ifeffit-1.2.11d/0000755000175000017500000000000011142471552012352 5ustar segresegreifeffit-1.2.11d/wrappers/0000755000175000017500000000000010771740460014221 5ustar segresegreifeffit-1.2.11d/wrappers/C/0000755000175000017500000000000010771740460014403 5ustar segresegreifeffit-1.2.11d/wrappers/C/ifeffitc.c0000644000175000017500000000400210771740460016322 0ustar segresegre/* iff_wrap.c : C interface to IFeffit XAFS Analysis library This module provides a simple set of functions to interface with the IFEFFIT XAFS Analysis library. The functions provided are: iff_exec(cmd) execute an ifeffit command iff_put_scalar(name,val) put a double to a named ifeffit scalar iff_get_scalar(name) get a named ifeffit scalar iff_put_string(name,val) put a string as a named ifeffit string iff_get_string(name) get a named ifeffit string iff_put_array(name,len,arr) set an array as a name ifeffit array iff_get_array(name,arr) get a named ifeffit array as an array iff_get_echo(char) get line from ifeffit's echo cache */ #include "ifeffit.h" static char iff_str[1024]; /* execute ifeffit command */ int iff_exec(char *cmd) { sprintf(iff_str, "%s\n\n\0", cmd); return (ifeffit_(iff_str, strlen(iff_str))); } /* put double into a named ifeffit scalar */ int iff_put_scalar(char *name, double *val) { sprintf(iff_str, "%s = %19.12g \n\n\0", name, *val); return (iff_exec(iff_str)); } /* get double from a named ifeffit scalar */ int iff_get_scalar(char *name, double *val) { return (iffgetsca_(name, val, strlen(name))); } /* put string into a named ifeffit string */ int iff_put_string(char *name, char *val) { sprintf(iff_str, "$%s = %s \n\n\0", name, val); return (iff_exec(iff_str)); } /* get string from a named ifeffit string */ int iff_get_string(char *name, char *val) { int i; i = iffgetstr_(name, iff_str, strlen(name), strlen(iff_str)); strncpy(val,iff_str,i+1); return i; } /* put array of length n into a named ifeffit array */ int iff_put_array(char *name, int *n, double *arr) { return ( iffputarr_(name, n, arr, strlen(name)) ); } /* get array from named ifeffit array */ int iff_get_array(char *name, double *arr) { return ( iffgetarr_(name, arr, strlen(name)) ); } int iff_get_echo(char *val) { int i; i = iffgetecho_(iff_str, strlen(iff_str)); strncpy(val,iff_str,i+1); return i; } ifeffit-1.2.11d/wrappers/C/ifeffit.h0000644000175000017500000000326010771740460016171 0ustar segresegre/************************* * C header file Ifeffit * *************************/ #if defined(WIN32) || defined(_WIN32) || defined(__WIN32__) #define IFF_EXPORT(a) __declspec(dllexport) a _stdcall #define IFF_INTERN(a) a _stdcall #else #define IFF_EXPORT(a) a #define IFF_INTERN(a) a #endif /* main interface routines */ IFF_EXPORT(int) iff_exec(char *); IFF_EXPORT(int) ifeffit(char *); IFF_EXPORT(int) iff_get_string(char *, char *); IFF_EXPORT(int) iff_put_string(char *, char *); IFF_EXPORT(int) iff_get_scalar(char *, double *); IFF_EXPORT(int) iff_put_scalar(char *, double *); IFF_EXPORT(int) iff_get_array(char *, double *); IFF_EXPORT(int) iff_put_array(char *, int *, double *); IFF_EXPORT(int) iff_get_echo(char *); IFF_EXPORT(char*) iff_strval(char *); IFF_EXPORT(double) iff_scaval(char *); /* raw interfaces to the fortran functions: these may need system level alterations as they assume 1.trailing underscore 2.char lengths as int at end of argument list these appear to be the unix norm. */ #if defined(WIN32) || defined(_WIN32) || defined(__WIN32__) int _stdcall IFFEXECF(char *, int); int _stdcall IFFGETSTR(char *, int, char *, int); int _stdcall IFFGETSCA(char *, int, double *); int _stdcall IFFGETARR(char *, int, double *); int _stdcall IFFPUTARR(char *, int, int *, double *); int _stdcall IFFGETECHO(char *, int); char* _stdcall IFF_STRVAL(char *); double _stdcall IFF_SCAVAL(char *); #else int ifeffit_(char *, int); int iffgetstr_(char *, char *, int, int); int iffgetsca_(char *, double *, int); int iffgetarr_(char *, double *, int); int iffputarr_(char *, int *, double *, int); int iffgetecho_(char *, int); #endif /* end */ ifeffit-1.2.11d/wrappers/C/if_test.c0000644000175000017500000000202010771740460016176 0ustar segresegre/* sample use of ifeffit */ #include "ifeffit.h" int main(){ int ret, i, npts; double x, xout, *array; double ax[200], ay[200]; char cxx[256]; /* basic execution of ifeffit commands */ iff_exec(" my.x = indarr(40)"); iff_exec(" my.y = sin(my.x)"); ret = iff_exec(" my.z = cos(my.x)"); ret = iff_exec(" show @arrays"); /* scalars */ x = 1.0023; ret = iff_put_scalar("xx", &x); ret = iff_get_scalar("etok", &xout); printf(" etok = %12.7g \n", xout); ret = iff_exec(" show @scalars"); /* strings */ ret = iff_put_string("str1", "Test String"); ret = iff_exec(" show @strings"); ret = iff_get_string("str1", cxx); printf(" out_string = %i %s\n", ret, cxx); /* arrays */ npts = iff_get_array("my.y", ax); for (i = 0;i! ls Ifeffit>shell lpr ifeffit.ps""" def help_EOF(self): print " EOF = quit = exit = Control^D ==exit the program" def do_shell(self, arg): import os os.system(arg) def do_EOF(self,arg): return 1 def default(self,str1): str = strip(str1) if ((str == 'quit') or (str == 'exit')): return 1 elif (str[0:1] == '!'): self.do_shell(str) else: j = self.ifeffit(str) self.prompt = self.ps1 if (j == -1): self.prompt = self.ps2 # # if this was invoked from a command line, execute the shell! if (__name__ == '__main__'): i = iff_shell() i.cmdloop() ifeffit-1.2.11d/wrappers/python/ifeffit_wrap.c0000644000175000017500000010547010771740460020362 0ustar segresegre/* ---------------------------------------------------------------------------- * This file was automatically generated by SWIG (http://www.swig.org). * Version 1.3.16u-20021020-0914 * * This file is not intended to be easily readable and contains a number of * coding conventions designed to improve portability and efficiency. Do not make * changes to this file unless you know what you are doing--modify the SWIG * interface file instead. * ----------------------------------------------------------------------------- */ #define SWIGPYTHON #include "Python.h" /*********************************************************************** * common.swg * * This file contains generic SWIG runtime support for pointer * type checking as well as a few commonly used macros to control * external linkage. * * Author : David Beazley (beazley@cs.uchicago.edu) * * Copyright (c) 1999-2000, The University of Chicago * * This file may be freely redistributed without license or fee provided * this copyright message remains intact. ************************************************************************/ #include #if defined(_WIN32) || defined(__WIN32__) # if defined(_MSC_VER) # if defined(STATIC_LINKED) # define SWIGEXPORT(a) a # define SWIGIMPORT(a) extern a # else # define SWIGEXPORT(a) __declspec(dllexport) a # define SWIGIMPORT(a) extern a # endif # else # if defined(__BORLANDC__) # define SWIGEXPORT(a) a _export # define SWIGIMPORT(a) a _export # else # define SWIGEXPORT(a) a # define SWIGIMPORT(a) a # endif # endif #else # define SWIGEXPORT(a) a # define SWIGIMPORT(a) a #endif #ifdef SWIG_GLOBAL #define SWIGRUNTIME(a) SWIGEXPORT(a) #else #define SWIGRUNTIME(a) static a #endif #ifdef __cplusplus extern "C" { #endif typedef void *(*swig_converter_func)(void *); typedef struct swig_type_info *(*swig_dycast_func)(void **); typedef struct swig_type_info { const char *name; swig_converter_func converter; const char *str; void *clientdata; swig_dycast_func dcast; struct swig_type_info *next; struct swig_type_info *prev; } swig_type_info; #ifdef SWIG_NOINCLUDE SWIGIMPORT(swig_type_info *) SWIG_TypeRegister(swig_type_info *); SWIGIMPORT(swig_type_info *) SWIG_TypeCheck(char *c, swig_type_info *); SWIGIMPORT(void *) SWIG_TypeCast(swig_type_info *, void *); SWIGIMPORT(swig_type_info *) SWIG_TypeDynamicCast(swig_type_info *, void **); SWIGIMPORT(swig_type_info *) SWIG_TypeQuery(const char *); SWIGIMPORT(void) SWIG_TypeClientData(swig_type_info *, void *); #else static swig_type_info *swig_type_list = 0; /* Register a type mapping with the type-checking */ SWIGRUNTIME(swig_type_info *) SWIG_TypeRegister(swig_type_info *ti) { swig_type_info *tc, *head, *ret, *next; /* Check to see if this type has already been registered */ tc = swig_type_list; while (tc) { if (strcmp(tc->name, ti->name) == 0) { /* Already exists in the table. Just add additional types to the list */ if (tc->clientdata) ti->clientdata = tc->clientdata; head = tc; next = tc->next; goto l1; } tc = tc->prev; } head = ti; next = 0; /* Place in list */ ti->prev = swig_type_list; swig_type_list = ti; /* Build linked lists */ l1: ret = head; tc = ti + 1; /* Patch up the rest of the links */ while (tc->name) { head->next = tc; tc->prev = head; head = tc; tc++; } head->next = next; return ret; } /* Check the typename */ SWIGRUNTIME(swig_type_info *) SWIG_TypeCheck(char *c, swig_type_info *ty) { swig_type_info *s; if (!ty) return 0; /* Void pointer */ s = ty->next; /* First element always just a name */ do { if (strcmp(s->name,c) == 0) { if (s == ty->next) return s; /* Move s to the top of the linked list */ s->prev->next = s->next; if (s->next) { s->next->prev = s->prev; } /* Insert s as second element in the list */ s->next = ty->next; if (ty->next) ty->next->prev = s; ty->next = s; return s; } s = s->next; } while (s && (s != ty->next)); return 0; } /* Cast a pointer up an inheritance hierarchy */ SWIGRUNTIME(void *) SWIG_TypeCast(swig_type_info *ty, void *ptr) { if ((!ty) || (!ty->converter)) return ptr; return (*ty->converter)(ptr); } /* Dynamic pointer casting. Down an inheritance hierarchy */ SWIGRUNTIME(swig_type_info *) SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr) { swig_type_info *lastty = ty; if (!ty || !ty->dcast) return ty; while (ty && (ty->dcast)) { ty = (*ty->dcast)(ptr); if (ty) lastty = ty; } return lastty; } /* Search for a swig_type_info structure */ SWIGRUNTIME(swig_type_info *) SWIG_TypeQuery(const char *name) { swig_type_info *ty = swig_type_list; while (ty) { if (ty->str && (strcmp(name,ty->str) == 0)) return ty; if (ty->name && (strcmp(name,ty->name) == 0)) return ty; ty = ty->prev; } return 0; } /* Set the clientdata field for a type */ SWIGRUNTIME(void) SWIG_TypeClientData(swig_type_info *ti, void *clientdata) { swig_type_info *tc, *equiv; if (ti->clientdata) return; ti->clientdata = clientdata; equiv = ti->next; while (equiv) { if (!equiv->converter) { tc = swig_type_list; while (tc) { if ((strcmp(tc->name, equiv->name) == 0)) SWIG_TypeClientData(tc,clientdata); tc = tc->prev; } } equiv = equiv->next; } } #endif #ifdef __cplusplus } #endif /*********************************************************************** * python.swg * * This file contains the runtime support for Python modules * and includes code for managing global variables and pointer * type checking. * * Author : David Beazley (beazley@cs.uchicago.edu) ************************************************************************/ #include "Python.h" #ifdef __cplusplus extern "C" { #endif #define SWIG_PY_INT 1 #define SWIG_PY_FLOAT 2 #define SWIG_PY_STRING 3 #define SWIG_PY_POINTER 4 #define SWIG_PY_BINARY 5 /* Flags for pointer conversion */ #define SWIG_POINTER_EXCEPTION 0x1 #define SWIG_POINTER_DISOWN 0x2 /* Exception handling in wrappers */ #define SWIG_fail goto fail /* Constant information structure */ typedef struct swig_const_info { int type; char *name; long lvalue; double dvalue; void *pvalue; swig_type_info **ptype; } swig_const_info; #ifdef SWIG_NOINCLUDE SWIGEXPORT(PyObject *) SWIG_newvarlink(); SWIGEXPORT(void) SWIG_addvarlink(PyObject *, char *, PyObject *(*)(void), int (*)(PyObject *)); SWIGEXPORT(int) SWIG_ConvertPtr(PyObject *, void **, swig_type_info *, int); SWIGEXPORT(int) SWIG_ConvertPacked(PyObject *, void *, int sz, swig_type_info *, int); SWIGEXPORT(char *) SWIG_PackData(char *c, void *, int); SWIGEXPORT(char *) SWIG_UnpackData(char *c, void *, int); SWIGEXPORT(PyObject *) SWIG_NewPointerObj(void *, swig_type_info *,int own); SWIGEXPORT(PyObject *) SWIG_NewPackedObj(void *, int sz, swig_type_info *); SWIGEXPORT(void) SWIG_InstallConstants(PyObject *d, swig_const_info constants[]); #else /* ----------------------------------------------------------------------------- * global variable support code. * ----------------------------------------------------------------------------- */ typedef struct swig_globalvar { char *name; /* Name of global variable */ PyObject *(*get_attr)(void); /* Return the current value */ int (*set_attr)(PyObject *); /* Set the value */ struct swig_globalvar *next; } swig_globalvar; typedef struct swig_varlinkobject { PyObject_HEAD swig_globalvar *vars; } swig_varlinkobject; static PyObject * swig_varlink_repr(swig_varlinkobject *v) { v = v; return PyString_FromString(""); } static int swig_varlink_print(swig_varlinkobject *v, FILE *fp, int flags) { swig_globalvar *var; flags = flags; fprintf(fp,"Global variables { "); for (var = v->vars; var; var=var->next) { fprintf(fp,"%s", var->name); if (var->next) fprintf(fp,", "); } fprintf(fp," }\n"); return 0; } static PyObject * swig_varlink_getattr(swig_varlinkobject *v, char *n) { swig_globalvar *var = v->vars; while (var) { if (strcmp(var->name,n) == 0) { return (*var->get_attr)(); } var = var->next; } PyErr_SetString(PyExc_NameError,"Unknown C global variable"); return NULL; } static int swig_varlink_setattr(swig_varlinkobject *v, char *n, PyObject *p) { swig_globalvar *var = v->vars; while (var) { if (strcmp(var->name,n) == 0) { return (*var->set_attr)(p); } var = var->next; } PyErr_SetString(PyExc_NameError,"Unknown C global variable"); return 1; } statichere PyTypeObject varlinktype = { PyObject_HEAD_INIT(0) 0, (char *)"swigvarlink", /* Type name */ sizeof(swig_varlinkobject), /* Basic size */ 0, /* Itemsize */ 0, /* Deallocator */ (printfunc) swig_varlink_print, /* Print */ (getattrfunc) swig_varlink_getattr, /* get attr */ (setattrfunc) swig_varlink_setattr, /* Set attr */ 0, /* tp_compare */ (reprfunc) swig_varlink_repr, /* tp_repr */ 0, /* tp_as_number */ 0, /* tp_as_mapping*/ 0, /* tp_hash */ }; /* Create a variable linking object for use later */ SWIGRUNTIME(PyObject *) SWIG_newvarlink(void) { swig_varlinkobject *result = 0; result = PyMem_NEW(swig_varlinkobject,1); varlinktype.ob_type = &PyType_Type; /* Patch varlinktype into a PyType */ result->ob_type = &varlinktype; result->vars = 0; result->ob_refcnt = 0; Py_XINCREF((PyObject *) result); return ((PyObject*) result); } SWIGRUNTIME(void) SWIG_addvarlink(PyObject *p, char *name, PyObject *(*get_attr)(void), int (*set_attr)(PyObject *p)) { swig_varlinkobject *v; swig_globalvar *gv; v= (swig_varlinkobject *) p; gv = (swig_globalvar *) malloc(sizeof(swig_globalvar)); gv->name = (char *) malloc(strlen(name)+1); strcpy(gv->name,name); gv->get_attr = get_attr; gv->set_attr = set_attr; gv->next = v->vars; v->vars = gv; } /* Pack binary data into a string */ SWIGRUNTIME(char *) SWIG_PackData(char *c, void *ptr, int sz) { static char hex[17] = "0123456789abcdef"; int i; unsigned char *u = (unsigned char *) ptr; register unsigned char uu; for (i = 0; i < sz; i++,u++) { uu = *u; *(c++) = hex[(uu & 0xf0) >> 4]; *(c++) = hex[uu & 0xf]; } return c; } /* Unpack binary data from a string */ SWIGRUNTIME(char *) SWIG_UnpackData(char *c, void *ptr, int sz) { register unsigned char uu = 0; register int d; unsigned char *u = (unsigned char *) ptr; int i; for (i = 0; i < sz; i++, u++) { d = *(c++); if ((d >= '0') && (d <= '9')) uu = ((d - '0') << 4); else if ((d >= 'a') && (d <= 'f')) uu = ((d - ('a'-10)) << 4); d = *(c++); if ((d >= '0') && (d <= '9')) uu |= (d - '0'); else if ((d >= 'a') && (d <= 'f')) uu |= (d - ('a'-10)); *u = uu; } return c; } /* Convert a pointer value */ SWIGRUNTIME(int) SWIG_ConvertPtr(PyObject *obj, void **ptr, swig_type_info *ty, int flags) { swig_type_info *tc; char *c; static PyObject *SWIG_this = 0; int newref = 0; PyObject *pyobj = 0; if (!obj) return 0; if (obj == Py_None) { *ptr = 0; return 0; } #ifdef SWIG_COBJECT_TYPES if (!(PyCObject_Check(obj))) { if (!SWIG_this) SWIG_this = PyString_FromString("this"); pyobj = obj; obj = PyObject_GetAttr(obj,SWIG_this); newref = 1; if (!obj) goto type_error; if (!PyCObject_Check(obj)) { Py_DECREF(obj); goto type_error; } } *ptr = PyCObject_AsVoidPtr(obj); c = (char *) PyCObject_GetDesc(obj); if (newref) Py_DECREF(obj); goto cobject; #else if (!(PyString_Check(obj))) { if (!SWIG_this) SWIG_this = PyString_FromString("this"); pyobj = obj; obj = PyObject_GetAttr(obj,SWIG_this); newref = 1; if (!obj) goto type_error; if (!PyString_Check(obj)) { Py_DECREF(obj); goto type_error; } } c = PyString_AsString(obj); /* Pointer values must start with leading underscore */ if (*c != '_') { *ptr = (void *) 0; if (strcmp(c,"NULL") == 0) { if (newref) { Py_DECREF(obj); } return 0; } else { if (newref) { Py_DECREF(obj); } goto type_error; } } c++; c = SWIG_UnpackData(c,ptr,sizeof(void *)); if (newref) { Py_DECREF(obj); } #endif #ifdef SWIG_COBJECT_TYPES cobject: #endif if (ty) { tc = SWIG_TypeCheck(c,ty); if (!tc) goto type_error; *ptr = SWIG_TypeCast(tc,(void*) *ptr); } if ((pyobj) && (flags & SWIG_POINTER_DISOWN)) { PyObject *zero = PyInt_FromLong(0); PyObject_SetAttrString(pyobj,(char*)"thisown",zero); Py_DECREF(zero); } return 0; type_error: if (flags & SWIG_POINTER_EXCEPTION) { if (ty) { char *temp = (char *) malloc(64+strlen(ty->name)); sprintf(temp,"Type error. Expected %s", ty->name); PyErr_SetString(PyExc_TypeError, temp); free((char *) temp); } else { PyErr_SetString(PyExc_TypeError,"Expected a pointer"); } } return -1; } /* Convert a packed value value */ SWIGRUNTIME(int) SWIG_ConvertPacked(PyObject *obj, void *ptr, int sz, swig_type_info *ty, int flags) { swig_type_info *tc; char *c; if ((!obj) || (!PyString_Check(obj))) goto type_error; c = PyString_AsString(obj); /* Pointer values must start with leading underscore */ if (*c != '_') goto type_error; c++; c = SWIG_UnpackData(c,ptr,sz); if (ty) { tc = SWIG_TypeCheck(c,ty); if (!tc) goto type_error; } return 0; type_error: if (flags) { if (ty) { char *temp = (char *) malloc(64+strlen(ty->name)); sprintf(temp,"Type error. Expected %s", ty->name); PyErr_SetString(PyExc_TypeError, temp); free((char *) temp); } else { PyErr_SetString(PyExc_TypeError,"Expected a pointer"); } } return -1; } /* Create a new pointer object */ SWIGRUNTIME(PyObject *) SWIG_NewPointerObj(void *ptr, swig_type_info *type, int own) { PyObject *robj; if (!ptr) { Py_INCREF(Py_None); return Py_None; } #ifdef SWIG_COBJECT_TYPES robj = PyCObject_FromVoidPtrAndDesc((void *) ptr, (char *) type->name, NULL); #else { char result[1024]; char *r = result; *(r++) = '_'; r = SWIG_PackData(r,&ptr,sizeof(void *)); strcpy(r,type->name); robj = PyString_FromString(result); } #endif if (!robj || (robj == Py_None)) return robj; if (type->clientdata) { PyObject *inst; PyObject *args = Py_BuildValue((char*)"(O)", robj); Py_DECREF(robj); inst = PyObject_CallObject((PyObject *) type->clientdata, args); Py_DECREF(args); if (inst) { if (own) { PyObject *n = PyInt_FromLong(1); PyObject_SetAttrString(inst,(char*)"thisown",n); Py_DECREF(n); } robj = inst; } } return robj; } SWIGRUNTIME(PyObject *) SWIG_NewPackedObj(void *ptr, int sz, swig_type_info *type) { char result[1024]; char *r = result; if ((2*sz + 1 + strlen(type->name)) > 1000) return 0; *(r++) = '_'; r = SWIG_PackData(r,ptr,sz); strcpy(r,type->name); return PyString_FromString(result); } /* Install Constants */ SWIGRUNTIME(void) SWIG_InstallConstants(PyObject *d, swig_const_info constants[]) { int i; PyObject *obj; for (i = 0; constants[i].type; i++) { switch(constants[i].type) { case SWIG_PY_INT: obj = PyInt_FromLong(constants[i].lvalue); break; case SWIG_PY_FLOAT: obj = PyFloat_FromDouble(constants[i].dvalue); break; case SWIG_PY_STRING: obj = PyString_FromString((char *) constants[i].pvalue); break; case SWIG_PY_POINTER: obj = SWIG_NewPointerObj(constants[i].pvalue, *(constants[i]).ptype,0); break; case SWIG_PY_BINARY: obj = SWIG_NewPackedObj(constants[i].pvalue, constants[i].lvalue, *(constants[i].ptype)); break; default: obj = 0; break; } if (obj) { PyDict_SetItemString(d,constants[i].name,obj); Py_DECREF(obj); } } } #endif #ifdef __cplusplus } #endif /* -------- TYPES TABLE (BEGIN) -------- */ #define SWIGTYPE_p_double swig_types[0] #define SWIGTYPE_p_int swig_types[1] static swig_type_info *swig_types[3]; /* -------- TYPES TABLE (END) -------- */ /*----------------------------------------------- @(target):= _ifeffit.so ------------------------------------------------*/ #define SWIG_init init_ifeffit #define SWIG_name "_ifeffit" #include "ifeffit.h" static int *new_Pint() { return (int *) calloc(1,sizeof(int)); } static int *copy_Pint(int value) { int *self = (int *) calloc(1,sizeof(int)); *self = value; return self; } static void delete_Pint(int *self) { if (self) free(self); } static void Pint_assign(int *self, int value) { *self = value; } static int Pint_value(int *self) { return *self; } static double *new_Pdbl() { return (double *) calloc(1,sizeof(double)); } static double *copy_Pdbl(double value) { double *self = (double *) calloc(1,sizeof(double)); *self = value; return self; } static void delete_Pdbl(double *self) { if (self) free(self); } static void Pdbl_assign(double *self, double value) { *self = value; } static double Pdbl_value(double *self) { return *self; } static double *new_Parr(int nelements) { return (double *) calloc(nelements,sizeof(double)); } static void delete_Parr(double *ary) { free(ary); } static double Parr_getitem(double *ary, int index) { return ary[index]; } static void Parr_setitem(double *ary, int index, double value) { ary[index] = value; } #ifdef __cplusplus extern "C" { #endif static PyObject *_wrap_iff_exec(PyObject *self, PyObject *args) { PyObject *resultobj; char *arg1 ; int result; if(!PyArg_ParseTuple(args,(char *)"s:iff_exec",&arg1)) goto fail; result = (int)iff_exec(arg1); resultobj = PyInt_FromLong((long)result); return resultobj; fail: return NULL; } static PyObject *_wrap_ifeffit(PyObject *self, PyObject *args) { PyObject *resultobj; char *arg1 ; int result; if(!PyArg_ParseTuple(args,(char *)"s:ifeffit",&arg1)) goto fail; result = (int)ifeffit(arg1); resultobj = PyInt_FromLong((long)result); return resultobj; fail: return NULL; } static PyObject *_wrap_iff_get_string(PyObject *self, PyObject *args) { PyObject *resultobj; char *arg1 ; char *arg2 ; int result; if(!PyArg_ParseTuple(args,(char *)"ss:iff_get_string",&arg1,&arg2)) goto fail; result = (int)iff_get_string(arg1,arg2); resultobj = PyInt_FromLong((long)result); return resultobj; fail: return NULL; } static PyObject *_wrap_iff_put_string(PyObject *self, PyObject *args) { PyObject *resultobj; char *arg1 ; char *arg2 ; int result; if(!PyArg_ParseTuple(args,(char *)"ss:iff_put_string",&arg1,&arg2)) goto fail; result = (int)iff_put_string(arg1,arg2); resultobj = PyInt_FromLong((long)result); return resultobj; fail: return NULL; } static PyObject *_wrap_iff_get_scalar(PyObject *self, PyObject *args) { PyObject *resultobj; char *arg1 ; double *arg2 = (double *) 0 ; int result; PyObject * obj1 = 0 ; if(!PyArg_ParseTuple(args,(char *)"sO:iff_get_scalar",&arg1,&obj1)) goto fail; if ((SWIG_ConvertPtr(obj1,(void **) &arg2, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | 0 )) == -1) SWIG_fail; result = (int)iff_get_scalar(arg1,arg2); resultobj = PyInt_FromLong((long)result); return resultobj; fail: return NULL; } static PyObject *_wrap_iff_put_scalar(PyObject *self, PyObject *args) { PyObject *resultobj; char *arg1 ; double *arg2 = (double *) 0 ; int result; PyObject * obj1 = 0 ; if(!PyArg_ParseTuple(args,(char *)"sO:iff_put_scalar",&arg1,&obj1)) goto fail; if ((SWIG_ConvertPtr(obj1,(void **) &arg2, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | 0 )) == -1) SWIG_fail; result = (int)iff_put_scalar(arg1,arg2); resultobj = PyInt_FromLong((long)result); return resultobj; fail: return NULL; } static PyObject *_wrap_iff_get_array(PyObject *self, PyObject *args) { PyObject *resultobj; char *arg1 ; double *arg2 = (double *) 0 ; int result; PyObject * obj1 = 0 ; if(!PyArg_ParseTuple(args,(char *)"sO:iff_get_array",&arg1,&obj1)) goto fail; if ((SWIG_ConvertPtr(obj1,(void **) &arg2, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | 0 )) == -1) SWIG_fail; result = (int)iff_get_array(arg1,arg2); resultobj = PyInt_FromLong((long)result); return resultobj; fail: return NULL; } static PyObject *_wrap_iff_put_array(PyObject *self, PyObject *args) { PyObject *resultobj; char *arg1 ; int *arg2 = (int *) 0 ; double *arg3 = (double *) 0 ; int result; PyObject * obj1 = 0 ; PyObject * obj2 = 0 ; if(!PyArg_ParseTuple(args,(char *)"sOO:iff_put_array",&arg1,&obj1,&obj2)) goto fail; if ((SWIG_ConvertPtr(obj1,(void **) &arg2, SWIGTYPE_p_int,SWIG_POINTER_EXCEPTION | 0 )) == -1) SWIG_fail; if ((SWIG_ConvertPtr(obj2,(void **) &arg3, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | 0 )) == -1) SWIG_fail; result = (int)iff_put_array(arg1,arg2,arg3); resultobj = PyInt_FromLong((long)result); return resultobj; fail: return NULL; } static PyObject *_wrap_iff_get_echo(PyObject *self, PyObject *args) { PyObject *resultobj; char *arg1 ; int result; if(!PyArg_ParseTuple(args,(char *)"s:iff_get_echo",&arg1)) goto fail; result = (int)iff_get_echo(arg1); resultobj = PyInt_FromLong((long)result); return resultobj; fail: return NULL; } static PyObject *_wrap_iff_strval(PyObject *self, PyObject *args) { PyObject *resultobj; char *arg1 ; char *result; if(!PyArg_ParseTuple(args,(char *)"s:iff_strval",&arg1)) goto fail; result = (char *)iff_strval(arg1); resultobj = result ? PyString_FromString(result) : Py_BuildValue((char*)""); return resultobj; fail: return NULL; } static PyObject *_wrap_iff_scaval(PyObject *self, PyObject *args) { PyObject *resultobj; char *arg1 ; double result; if(!PyArg_ParseTuple(args,(char *)"s:iff_scaval",&arg1)) goto fail; result = (double)iff_scaval(arg1); resultobj = PyFloat_FromDouble(result); return resultobj; fail: return NULL; } static PyObject *_wrap_ifeffit_(PyObject *self, PyObject *args) { PyObject *resultobj; char *arg1 ; int arg2 ; int result; if(!PyArg_ParseTuple(args,(char *)"si:ifeffit_",&arg1,&arg2)) goto fail; result = (int)ifeffit_(arg1,arg2); resultobj = PyInt_FromLong((long)result); return resultobj; fail: return NULL; } static PyObject *_wrap_iffgetstr_(PyObject *self, PyObject *args) { PyObject *resultobj; char *arg1 ; char *arg2 ; int arg3 ; int arg4 ; int result; if(!PyArg_ParseTuple(args,(char *)"ssii:iffgetstr_",&arg1,&arg2,&arg3,&arg4)) goto fail; result = (int)iffgetstr_(arg1,arg2,arg3,arg4); resultobj = PyInt_FromLong((long)result); return resultobj; fail: return NULL; } static PyObject *_wrap_iffgetsca_(PyObject *self, PyObject *args) { PyObject *resultobj; char *arg1 ; double *arg2 = (double *) 0 ; int arg3 ; int result; PyObject * obj1 = 0 ; if(!PyArg_ParseTuple(args,(char *)"sOi:iffgetsca_",&arg1,&obj1,&arg3)) goto fail; if ((SWIG_ConvertPtr(obj1,(void **) &arg2, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | 0 )) == -1) SWIG_fail; result = (int)iffgetsca_(arg1,arg2,arg3); resultobj = PyInt_FromLong((long)result); return resultobj; fail: return NULL; } static PyObject *_wrap_iffgetarr_(PyObject *self, PyObject *args) { PyObject *resultobj; char *arg1 ; double *arg2 = (double *) 0 ; int arg3 ; int result; PyObject * obj1 = 0 ; if(!PyArg_ParseTuple(args,(char *)"sOi:iffgetarr_",&arg1,&obj1,&arg3)) goto fail; if ((SWIG_ConvertPtr(obj1,(void **) &arg2, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | 0 )) == -1) SWIG_fail; result = (int)iffgetarr_(arg1,arg2,arg3); resultobj = PyInt_FromLong((long)result); return resultobj; fail: return NULL; } static PyObject *_wrap_iffputarr_(PyObject *self, PyObject *args) { PyObject *resultobj; char *arg1 ; int *arg2 = (int *) 0 ; double *arg3 = (double *) 0 ; int arg4 ; int result; PyObject * obj1 = 0 ; PyObject * obj2 = 0 ; if(!PyArg_ParseTuple(args,(char *)"sOOi:iffputarr_",&arg1,&obj1,&obj2,&arg4)) goto fail; if ((SWIG_ConvertPtr(obj1,(void **) &arg2, SWIGTYPE_p_int,SWIG_POINTER_EXCEPTION | 0 )) == -1) SWIG_fail; if ((SWIG_ConvertPtr(obj2,(void **) &arg3, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | 0 )) == -1) SWIG_fail; result = (int)iffputarr_(arg1,arg2,arg3,arg4); resultobj = PyInt_FromLong((long)result); return resultobj; fail: return NULL; } static PyObject *_wrap_iffgetecho_(PyObject *self, PyObject *args) { PyObject *resultobj; char *arg1 ; int arg2 ; int result; if(!PyArg_ParseTuple(args,(char *)"si:iffgetecho_",&arg1,&arg2)) goto fail; result = (int)iffgetecho_(arg1,arg2); resultobj = PyInt_FromLong((long)result); return resultobj; fail: return NULL; } static PyObject *_wrap_new_Pint(PyObject *self, PyObject *args) { PyObject *resultobj; int *result; if(!PyArg_ParseTuple(args,(char *)":new_Pint")) goto fail; result = (int *)new_Pint(); resultobj = SWIG_NewPointerObj((void *) result, SWIGTYPE_p_int, 0); return resultobj; fail: return NULL; } static PyObject *_wrap_copy_Pint(PyObject *self, PyObject *args) { PyObject *resultobj; int arg1 ; int *result; if(!PyArg_ParseTuple(args,(char *)"i:copy_Pint",&arg1)) goto fail; result = (int *)copy_Pint(arg1); resultobj = SWIG_NewPointerObj((void *) result, SWIGTYPE_p_int, 0); return resultobj; fail: return NULL; } static PyObject *_wrap_delete_Pint(PyObject *self, PyObject *args) { PyObject *resultobj; int *arg1 = (int *) 0 ; PyObject * obj0 = 0 ; if(!PyArg_ParseTuple(args,(char *)"O:delete_Pint",&obj0)) goto fail; if ((SWIG_ConvertPtr(obj0,(void **) &arg1, SWIGTYPE_p_int,SWIG_POINTER_EXCEPTION | 0 )) == -1) SWIG_fail; delete_Pint(arg1); Py_INCREF(Py_None); resultobj = Py_None; return resultobj; fail: return NULL; } static PyObject *_wrap_Pint_assign(PyObject *self, PyObject *args) { PyObject *resultobj; int *arg1 = (int *) 0 ; int arg2 ; PyObject * obj0 = 0 ; if(!PyArg_ParseTuple(args,(char *)"Oi:Pint_assign",&obj0,&arg2)) goto fail; if ((SWIG_ConvertPtr(obj0,(void **) &arg1, SWIGTYPE_p_int,SWIG_POINTER_EXCEPTION | 0 )) == -1) SWIG_fail; Pint_assign(arg1,arg2); Py_INCREF(Py_None); resultobj = Py_None; return resultobj; fail: return NULL; } static PyObject *_wrap_Pint_value(PyObject *self, PyObject *args) { PyObject *resultobj; int *arg1 = (int *) 0 ; int result; PyObject * obj0 = 0 ; if(!PyArg_ParseTuple(args,(char *)"O:Pint_value",&obj0)) goto fail; if ((SWIG_ConvertPtr(obj0,(void **) &arg1, SWIGTYPE_p_int,SWIG_POINTER_EXCEPTION | 0 )) == -1) SWIG_fail; result = (int)Pint_value(arg1); resultobj = PyInt_FromLong((long)result); return resultobj; fail: return NULL; } static PyObject *_wrap_new_Pdbl(PyObject *self, PyObject *args) { PyObject *resultobj; double *result; if(!PyArg_ParseTuple(args,(char *)":new_Pdbl")) goto fail; result = (double *)new_Pdbl(); resultobj = SWIG_NewPointerObj((void *) result, SWIGTYPE_p_double, 0); return resultobj; fail: return NULL; } static PyObject *_wrap_copy_Pdbl(PyObject *self, PyObject *args) { PyObject *resultobj; double arg1 ; double *result; if(!PyArg_ParseTuple(args,(char *)"d:copy_Pdbl",&arg1)) goto fail; result = (double *)copy_Pdbl(arg1); resultobj = SWIG_NewPointerObj((void *) result, SWIGTYPE_p_double, 0); return resultobj; fail: return NULL; } static PyObject *_wrap_delete_Pdbl(PyObject *self, PyObject *args) { PyObject *resultobj; double *arg1 = (double *) 0 ; PyObject * obj0 = 0 ; if(!PyArg_ParseTuple(args,(char *)"O:delete_Pdbl",&obj0)) goto fail; if ((SWIG_ConvertPtr(obj0,(void **) &arg1, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | 0 )) == -1) SWIG_fail; delete_Pdbl(arg1); Py_INCREF(Py_None); resultobj = Py_None; return resultobj; fail: return NULL; } static PyObject *_wrap_Pdbl_assign(PyObject *self, PyObject *args) { PyObject *resultobj; double *arg1 = (double *) 0 ; double arg2 ; PyObject * obj0 = 0 ; if(!PyArg_ParseTuple(args,(char *)"Od:Pdbl_assign",&obj0,&arg2)) goto fail; if ((SWIG_ConvertPtr(obj0,(void **) &arg1, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | 0 )) == -1) SWIG_fail; Pdbl_assign(arg1,arg2); Py_INCREF(Py_None); resultobj = Py_None; return resultobj; fail: return NULL; } static PyObject *_wrap_Pdbl_value(PyObject *self, PyObject *args) { PyObject *resultobj; double *arg1 = (double *) 0 ; double result; PyObject * obj0 = 0 ; if(!PyArg_ParseTuple(args,(char *)"O:Pdbl_value",&obj0)) goto fail; if ((SWIG_ConvertPtr(obj0,(void **) &arg1, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | 0 )) == -1) SWIG_fail; result = (double)Pdbl_value(arg1); resultobj = PyFloat_FromDouble(result); return resultobj; fail: return NULL; } static PyObject *_wrap_new_Parr(PyObject *self, PyObject *args) { PyObject *resultobj; int arg1 ; double *result; if(!PyArg_ParseTuple(args,(char *)"i:new_Parr",&arg1)) goto fail; result = (double *)new_Parr(arg1); resultobj = SWIG_NewPointerObj((void *) result, SWIGTYPE_p_double, 0); return resultobj; fail: return NULL; } static PyObject *_wrap_delete_Parr(PyObject *self, PyObject *args) { PyObject *resultobj; double *arg1 = (double *) 0 ; PyObject * obj0 = 0 ; if(!PyArg_ParseTuple(args,(char *)"O:delete_Parr",&obj0)) goto fail; if ((SWIG_ConvertPtr(obj0,(void **) &arg1, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | 0 )) == -1) SWIG_fail; delete_Parr(arg1); Py_INCREF(Py_None); resultobj = Py_None; return resultobj; fail: return NULL; } static PyObject *_wrap_Parr_getitem(PyObject *self, PyObject *args) { PyObject *resultobj; double *arg1 = (double *) 0 ; int arg2 ; double result; PyObject * obj0 = 0 ; if(!PyArg_ParseTuple(args,(char *)"Oi:Parr_getitem",&obj0,&arg2)) goto fail; if ((SWIG_ConvertPtr(obj0,(void **) &arg1, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | 0 )) == -1) SWIG_fail; result = (double)Parr_getitem(arg1,arg2); resultobj = PyFloat_FromDouble(result); return resultobj; fail: return NULL; } static PyObject *_wrap_Parr_setitem(PyObject *self, PyObject *args) { PyObject *resultobj; double *arg1 = (double *) 0 ; int arg2 ; double arg3 ; PyObject * obj0 = 0 ; if(!PyArg_ParseTuple(args,(char *)"Oid:Parr_setitem",&obj0,&arg2,&arg3)) goto fail; if ((SWIG_ConvertPtr(obj0,(void **) &arg1, SWIGTYPE_p_double,SWIG_POINTER_EXCEPTION | 0 )) == -1) SWIG_fail; Parr_setitem(arg1,arg2,arg3); Py_INCREF(Py_None); resultobj = Py_None; return resultobj; fail: return NULL; } static PyMethodDef SwigMethods[] = { { (char *)"iff_exec", _wrap_iff_exec, METH_VARARGS }, { (char *)"ifeffit", _wrap_ifeffit, METH_VARARGS }, { (char *)"iff_get_string", _wrap_iff_get_string, METH_VARARGS }, { (char *)"iff_put_string", _wrap_iff_put_string, METH_VARARGS }, { (char *)"iff_get_scalar", _wrap_iff_get_scalar, METH_VARARGS }, { (char *)"iff_put_scalar", _wrap_iff_put_scalar, METH_VARARGS }, { (char *)"iff_get_array", _wrap_iff_get_array, METH_VARARGS }, { (char *)"iff_put_array", _wrap_iff_put_array, METH_VARARGS }, { (char *)"iff_get_echo", _wrap_iff_get_echo, METH_VARARGS }, { (char *)"iff_strval", _wrap_iff_strval, METH_VARARGS }, { (char *)"iff_scaval", _wrap_iff_scaval, METH_VARARGS }, { (char *)"ifeffit_", _wrap_ifeffit_, METH_VARARGS }, { (char *)"iffgetstr_", _wrap_iffgetstr_, METH_VARARGS }, { (char *)"iffgetsca_", _wrap_iffgetsca_, METH_VARARGS }, { (char *)"iffgetarr_", _wrap_iffgetarr_, METH_VARARGS }, { (char *)"iffputarr_", _wrap_iffputarr_, METH_VARARGS }, { (char *)"iffgetecho_", _wrap_iffgetecho_, METH_VARARGS }, { (char *)"new_Pint", _wrap_new_Pint, METH_VARARGS }, { (char *)"copy_Pint", _wrap_copy_Pint, METH_VARARGS }, { (char *)"delete_Pint", _wrap_delete_Pint, METH_VARARGS }, { (char *)"Pint_assign", _wrap_Pint_assign, METH_VARARGS }, { (char *)"Pint_value", _wrap_Pint_value, METH_VARARGS }, { (char *)"new_Pdbl", _wrap_new_Pdbl, METH_VARARGS }, { (char *)"copy_Pdbl", _wrap_copy_Pdbl, METH_VARARGS }, { (char *)"delete_Pdbl", _wrap_delete_Pdbl, METH_VARARGS }, { (char *)"Pdbl_assign", _wrap_Pdbl_assign, METH_VARARGS }, { (char *)"Pdbl_value", _wrap_Pdbl_value, METH_VARARGS }, { (char *)"new_Parr", _wrap_new_Parr, METH_VARARGS }, { (char *)"delete_Parr", _wrap_delete_Parr, METH_VARARGS }, { (char *)"Parr_getitem", _wrap_Parr_getitem, METH_VARARGS }, { (char *)"Parr_setitem", _wrap_Parr_setitem, METH_VARARGS }, { NULL, NULL } }; /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */ static swig_type_info _swigt__p_double[] = {{"_p_double", 0, "double *", 0},{"_p_double"},{0}}; static swig_type_info _swigt__p_int[] = {{"_p_int", 0, "int *", 0},{"_p_int"},{0}}; static swig_type_info *swig_types_initial[] = { _swigt__p_double, _swigt__p_int, 0 }; /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */ static swig_const_info swig_const_table[] = { {0}}; #ifdef __cplusplus } #endif #ifdef __cplusplus extern "C" #endif SWIGEXPORT(void) SWIG_init(void) { static PyObject *SWIG_globals = 0; static int typeinit = 0; PyObject *m, *d; int i; if (!SWIG_globals) SWIG_globals = SWIG_newvarlink(); m = Py_InitModule((char *) SWIG_name, SwigMethods); d = PyModule_GetDict(m); if (!typeinit) { for (i = 0; swig_types_initial[i]; i++) { swig_types[i] = SWIG_TypeRegister(swig_types_initial[i]); } typeinit = 1; } SWIG_InstallConstants(d,swig_const_table); } ifeffit-1.2.11d/wrappers/python/DataPlotter.py0000644000175000017500000006003410771740460020342 0ustar segresegre from Tkinter import * from string import * from Ifeffit import Ifeffit from TkIfeffit import * import re, os, sys, types import Pmw, ScrolledText, tkFileDialog, tkColorChooser class DataPlotter(BaseWindow,Ifeffit): " DataPlotter: plot data " def __init__(self, master=None, iff_com=None, plot_opts = None): if (iff_com == None): iff_com = self.ifeffit self.iff_com = iff_com self.master = master if (plot_opts == None): plot_opts = self.reset_plot_opts() self.plot_opts = plot_opts self.arrays = self.get_group_arrays() self.groups = ['None'] + self.arrays.keys() self.ntrace = 4 self.opt_win = None self.trace = [] self.selects = [] self.non_x = ['xmu', 'bkg', 'pre', 'norm', 'chi', 'chik', 'chir_pha', 'chir_re', 'chir_im', 'chir_mag', 'win'] self.operations = ("None" , "negate", "derivative", "+", "-", "*", "/") self.colors = ("blue" , "red", "black", 'darkgreen', 'magenta', 'maroon', 'yellow', 'orange', 'purple') self.styles = ("solid" , "dashed", "dotted", "points") self.symbols = ('None', '+','*','o', 'X', 'squares', 'triangles') self.tkvar = {} self.tkvar['showgrid'] = IntVar() self.tkvar['showgrid'].set(1) self.show_operations = 0 self.opts = {'xmin': 0, 'xmax': 0, 'ymin': 0, 'ymax': 0,'titl':0, 'xlab':0, 'ylab':0} for i in range(self.ntrace): self.trace.append(["","","","",""]) self.selects.append(["None", "", "", "None", ""]) self.drawWindow(master) def btn_press(self,btn,event=None,ok_action=None,trace=None): ret = None if ((btn == 'ok') or (btn == 'apply')): if ((ok_action != None) and (callable(ok_action) == 1)): ret = ok_action() if ((btn == 'ok') or (btn == 'cancel')): self.main.destroy() if ((btn == 'ok_opts') or (btn == 'cancel_opts')): self.opt_win.destroy() if (btn == 'operations'): self.show_operations = 1 self.main.withdraw() self.drawWindow(self.master) elif (btn == 'no_operations'): self.show_operations = 0 self.main.withdraw() self.drawWindow(self.master) elif (btn == 'options'): self.plot_options(self.main) elif (btn == 'more'): for i in range(self.ntrace): for j in range(len(self.trace[i])): self.selects[i][j] = self.trace[i][j].get() self.ntrace = self.ntrace + 1 self.trace.append(["","","","",""]) self.selects.append(["None","","","None",""]) self.main.withdraw() self.drawWindow(self.master) elif (btn == 'ps'): self.save_hardcopy('/ps') elif (btn == 'cps'): self.save_hardcopy('/cps') elif (btn == 'gif'): self.save_hardcopy('/gif') return ret def save_hardcopy(self,device): initfile = 'ifeffit.ps' if (device == '/gif'): initfile = 'ifeffit.gif' if (device == '/png'): initfile = 'ifeffit.png' xfile = tkFileDialog.asksaveasfilename( filetypes=[("Postscript files","*.ps"), ("all files","*")], initialfile = initfile, parent=self.master) xfile = trim_cwd(xfile) if (xfile != ''): self.iff_com('plot(device="%s", file=%s)'%(device, xfile)) def style_choose(self,trace,select): # print " style_choose ", trace, select st = strip(select) self.plot_opts['traces'][trace][1] = st wsy = "symbol#%i"% trace sym = self.opts[wsy].get() # print " symbol should be = ", sym if ((st == "solid") and (sym != "None")): self.symbol_choose(trace,sym) self.do_plot() def symbol_of(self,trace): " return (style,symbol) from ifeffit styles " sty = 'solid' sym = 'None' sty = self.plot_opts['traces'][trace][1] if (sty[0:11] == 'linespoints'): sym = self.symbols[int(sty[11:])-1] sty = 'solid' elif (sty[0:6] == 'points'): sym = self.symbols[int(sty[6:])-1] sty = 'points' return sty, sym def symbol_choose(self,trace,select): style = self.plot_opts['traces'][trace][1] style = strip(style) wsy = "symbol#%i"% trace sym = self.opts[wsy].get() # print "symbol choose ", style, sym if ((style == 'solid') or (style[0:11] == 'linespoints')): select = strip(select) for i in range(len(self.symbols)): if (select == self.symbols[i]): self.plot_opts['traces'][trace][1] = 'linespoints%s' % (i+1) elif (style[0:5] == 'point'): for i in range(len(self.symbols)): if (sym == self.symbols[i]): self.plot_opts['traces'][trace][1] = 'points%s' % (i+1) self.do_plot() def toggle_grid(self): self.plot_opts['showgrid'] = self.tkvar['showgrid'].get() grid_cmd = 'plot(grid=1)' if (self.plot_opts['showgrid'] == 0): grid_cmd = 'plot(nogrid=1)' self.ifeffit(grid_cmd) self.do_plot() def color_choose(self,attr): # print "color_choose", attr c = None i = -999 t = ['fg','bg','gridcolor'] try: j = t.index(attr) c = self.plot_opts[attr] i = - (j + 10) except ValueError: try: i = int(attr) c = self.plot_opts['traces'][i][0] except ValueError: pass if (c != None): s = tkColorChooser.askcolor(color= c,parent=self.master) nc = s[1] # nc = new color if ((nc == "") or (nc == None)): nc = c if (i != -999): # bg, fg, gridcolor if (i < 0): qwid = t[-(i+10)] self.plot_opts[qwid] = nc # trace#N else: qwid = 'color#%i' % (i) self.plot_opts['traces'][i][0] = nc # self.opts[qwid].configure(background=nc, activebackground = nc) self.do_plot() def do_zoom_in(self): self.clear_echo_buffer() self.ifeffit('zoom(show)') s = self.get_echo_buffer() m1 = split(replace(replace(s[2],'cursor: x =',''),'y =',''),',') m2 = split(replace(replace(s[1],'cursor: x =',''),'y =',''),',') entry_replace(self.opts['xmin'], min(strip(m1[0]), strip(m2[0]))) entry_replace(self.opts['xmax'], max(strip(m1[0]), strip(m2[0]))) entry_replace(self.opts['ymin'], min(strip(m1[1]), strip(m2[1]))) entry_replace(self.opts['ymax'], max(strip(m1[1]), strip(m2[1]))) def do_zoom_out(self): entry_replace(self.opts['xmin'], "") entry_replace(self.opts['xmax'], "") entry_replace(self.opts['ymin'], "") entry_replace(self.opts['ymax'], "") self.do_plot() def do_cursor(self): self.ifeffit("cursor(show,crosshair)") s = self.get_echo_buffer() m1 = split(replace(replace(s[1],'cursor: x =',''),'y =',''),',') entry_replace(self.opts['x_curs'], strip(m1[0])) entry_replace(self.opts['y_curs'], strip(m1[1])) def do_plot(self): self.set_plot_opts(self.plot_opts) atts = ('titl', 'xlab', 'ylab', 'xmin', 'xmax', 'ymin', 'ymax') dat = {} for i in atts: try: dat[i] = strip(self.opts[i].get()) except: dat[i] = '' new = 1 ntotal= 0 nlast = 0 for i in range(len(self.trace)): tr = self.trace[i] gr = tr[0].get() if (gr != 'None'): ntotal = ntotal + 1 nlast = i for i in range(nlast + 1): tr = self.trace[i] color = self.plot_opts['traces'][i][0] style = self.plot_opts['traces'][i][1] gr = tr[0].get() if (gr == 'None'): tr = self.trace[nlast] gr = tr[0].get() ## if (gr != 'None'): x = tr[1].get() y = tr[2].get() grx = "%s.%s" % (gr, x) gry = "%s.%s" % (gr, y) if (self.show_operations): op = tr[3].get() yy = tr[4].get() if (op == "negate"): gry = "-%s" % gry elif (op == "derivative"): gry = "deriv(%s)" % gry elif ((op == "+") and (yy != "None")): gry = "(%s+%s.%s)" % (gry, gr,yy) elif ((op == "-") and (yy != "None")): gry = "(%s-%s.%s)" % (gry, gr,yy) elif ((op == "*") and (yy != "None")): gry = "(%s*%s.%s)" % (gry, gr,yy) elif ((op == "/") and (yy != "None")): gry = "(%s/%s.%s)" % (gry, gr,yy) ## cmd = "plot(%s, %s" % (grx,gry) if (new == 1): new = 0 cmd = 'new'+cmd if (dat['titl'] == ''): dat['titl'] = gr if (dat['xlab'] == ''): dat['xlab'] = str(x) if (dat['ylab'] == ''): dat['ylab'] = str(y) cmd = "%s, xlabel='%s',ylabel='%s'" %(cmd,dat['xlab'],dat['ylab']) cmd = "%s, title='%s'" %(cmd,dat['titl']) for j in ('xmin','xmax','ymin','ymax'): if (dat[j] != ''): cmd = "%s, %s=%s" % (cmd, j, dat[j]) # self.iff_com(cmd + ")") def update_array_choice(self, index, type, selection, get_group=1): # print ' PLOT update_array_choices: ', index, type, selection, get_group if (get_group == 1): self.arrays = self.get_group_arrays() self.groups = ['None'] + self.arrays.keys() for i in range(self.ntrace): self.trace[i][0].setlist(self.groups) if (type == 'gr'): if (selection != 'None'): tmpx = [] for i in range(len(self.arrays[selection]['names'])): x = self.arrays[selection]['names'][i] try: n = self.non_x.index(x) except ValueError: tmpx.append(x) self.trace[index][1].setlist(tmpx) self.trace[index][1].selectitem(tmpx[0]) self.update_array_choice(index,'x',tmpx[0], get_group=0) else: self.trace[index][1].setlist([""]) self.trace[index][1].selectitem("") self.trace[index][2].setlist([""]) self.trace[index][2].selectitem("") elif (type == 'x'): group = self.trace[index][0].get() if ((group != 'None') and (selection != '')): innx = self.arrays[group]['names'].index(selection) npts = self.arrays[group]['npts'][innx] tmpy = [] for i in range(len(self.arrays[group]['npts'])): if (self.arrays[group]['npts'][i] == npts): tmpy.append(self.arrays[group]['names'][i]) self.trace[index][2].setlist(tmpy) self.trace[index][2].selectitem(tmpy[min(1,len(tmpy)-1)]) if (self.show_operations): self.trace[index][3].selectitem(self.operations[0]) tmpy = ['None'] + tmpy self.trace[index][4].setlist(tmpy) self.trace[index][4].selectitem(tmpy[0]) def plot_options(self,master): self.opt_win = Toplevel(self.main) ma = self.opt_win ma.title('Plot Options') self.balloon = Pmw.Balloon(ma) self.menuBar = Pmw.MenuBar(ma, hull_borderwidth=1, hull_relief = 'raised', hotkeys=1, balloon = self.balloon) self.menuBar.pack(fill='x') self.menuBar.addmenu('File', 'Close') self.menuBar.addmenuitem('File', 'command', 'Close Plot Window', label='Close', command= Command(self.btn_press, 'ok_opts')) fr1 = Frame(ma,borderwidth=1) Label(fr1, foreground='red', text='Titles and Labels ').pack(side='top',anchor='w') fr2 = Frame(fr1) self.opts['titl'] = LabEnt(fr2,'Title ',self.plot_opts['title'],50) self.opts['titl'].pack(side='left') fr2.pack(side='top', anchor='w') fr2 = Frame(fr1) self.opts['xlab'] = LabEnt(fr2,'X Label ', self.plot_opts['xlabel'],20) self.opts['ylab'] = LabEnt(fr2,' Y Label ', self.plot_opts['ylabel'],20) self.opts['xlab'].pack(side='left',anchor='w') self.opts['ylab'].pack(side='left') fr2.pack(side='top', anchor='w') fr1.pack(side='top',anchor='w') # colors fr1 = Frame(ma,borderwidth=1) Label(fr1, foreground='red', text='Colors').pack(side='top',anchor='w') fr2 = Frame(fr1) Label(fr2, text='Background:').pack(side='left',anchor='w') self.opts['bg'] = Button(fr2,text=" ",padx=1,width=2,height=1, command=Command(self.color_choose,'bg')) self.opts['bg'].configure(background = self.plot_opts['bg'], activebackground = self.plot_opts['bg'] ) self.opts['bg'].pack(side='left') Label(fr2, text='Foreground:').pack(side='left',anchor='w') self.opts['fg'] = Button(fr2,text=" ",padx=1,width=2,height=1, command=Command(self.color_choose,'fg')) self.opts['fg'].configure(background = self.plot_opts['fg'], activebackground = self.plot_opts['fg'] ) self.opts['fg'].pack(side='left') Label(fr2, text='Grid:').pack(side='left',anchor='w') self.opts['gridcolor'] = Button(fr2,text=" ",padx=1,width=2,height=1, command=Command(self.color_choose,'gridcolor')) self.opts['gridcolor'].configure(background = self.plot_opts['gridcolor'], activebackground = self.plot_opts['gridcolor'] ) self.opts['gridcolor'].pack(side='left') self.opts['showgrid'] = Checkbutton(fr2,text="Show Grid",padx=2, variable=self.tkvar['showgrid'], command=Command(self.toggle_grid)) self.opts['showgrid'].pack(side='left') self.opts['showgrid'].select() if (self.plot_opts['showgrid'] == 0): self.opts['showgrid'].deselect() fr2.pack(side='top',anchor='w') fr1.pack(side='top',anchor='w') ## def drawWindow(self,master): if (master == None): self.main = Tk() else: self.main = Toplevel(master) Frame.__init__(self, self.main) ma = self.main self.main.title('Plot Data Window') self.main.withdraw() self.balloon = Pmw.Balloon(ma) self.menuBar = Pmw.MenuBar(ma, hull_borderwidth=1, hull_relief = 'raised', hotkeys=1, balloon = self.balloon) self.menuBar.pack(fill='x') self.menuBar.addmenu('File', 'Close') self.menuBar.addmenuitem('File', 'command', 'Close Plot Window', label='Close', command= Command(self.btn_press, 'ok')) self.menuBar.addmenu('Export', 'Export Plot to Postscript file') self.menuBar.addmenuitem('Export', 'command', 'Save current plot to Postscript (B&W)', label='Save Postscript (B&W)', command= Command(self.btn_press, 'ps')) self.menuBar.addmenuitem('Export', 'command', 'Save current plot to Postscript (Color)', label='Save Postscript (Color)', command= Command(self.btn_press, 'cps')) self.menuBar.addmenuitem('Export', 'command', 'Save current plot to GIF (Color)', label='Save GIF (Color)', command= Command(self.btn_press, 'gif')) self.menuBar.addmenu('Operations', 'Optional Operations') self.menuBar.addmenuitem('Operations', 'command', 'Enable simple algebraic operations', label='enable operations', command= Command(self.btn_press, 'operations')) self.menuBar.addmenuitem('Operations', 'command', 'Disable simple algebraic operations', label='disable operations', command= Command(self.btn_press, 'no_operations')) self.menuBar.addmenu('Options', 'Plot Options') self.menuBar.addmenuitem('Options', 'command', 'Set General Plot Options', label='Plot Options', command= Command(self.btn_press, 'options')) # ranges fr1 = Frame(ma,borderwidth=1) Label(fr1, foreground= 'red', text='Cursor and Ranges ').pack(side='top',anchor='w') fr2 = Frame(fr1) self.opts['xmin'] = LabEnt(fr2,'X: min ', self.plot_opts['xmin'],10) self.opts['xmax'] = LabEnt(fr2,' max ', self.plot_opts['xmax'],10) self.opts['xmin'].pack(side='left',anchor='w') self.opts['xmax'].pack(side='left') self.opts['ymin'] = LabEnt(fr2,'Y: min ', self.plot_opts['ymin'],10) self.opts['ymax'] = LabEnt(fr2,' max ', self.plot_opts['ymax'],10) self.opts['ymin'].pack(side='left',anchor='w') self.opts['ymax'].pack(side='left') fr2.pack(side='top', anchor='w') fr2 = Frame(fr1) zbbox = Pmw.ButtonBox(fr2) zbbox.pack(side='left',fill='both', expand=1) zombi = zbbox.add('Zoom In', command = Command(self.do_zoom_in)) zombo = zbbox.add('Zoom Out', command = Command(self.do_zoom_out)) zombc = zbbox.add('Cursor', command = Command(self.do_cursor)) zbbox.alignbuttons() self.balloon.bind(zombi, '','Zoom In on Plot Region') self.balloon.bind(zombo, '','Zoom Out to Full Plot Range') self.balloon.bind(zombc, '','Read Cursor Position (on Mouse Click)') self.opts['x_curs'] = LabEnt(fr2,'X:', "",10) self.opts['y_curs'] = LabEnt(fr2,'Y: ',"",10) self.opts['x_curs'].pack(side='left',anchor='w') self.opts['y_curs'].pack(side='left') fr2.pack(side='top',anchor='w') fr1.pack(side='top',anchor='w') # traces fr1 = Frame(ma,borderwidth=1) Label(fr1, foreground= 'red', text='Traces ').pack(side='top',anchor='w') Label(fr1, text='# ').pack(side='left') Label(fr1, text=' Group ').pack(side='left') Label(fr1, text=' X array ').pack(side='left') Label(fr1, text=' Y array ').pack(side='left') if (self.show_operations): Label(fr1, text=' operate ').pack(side='left') Label(fr1, text=' array ').pack(side='left') Label(fr1, text=' color ').pack(side='left') Label(fr1, text=' style ').pack(side='left') Label(fr1, text=' symbol ').pack(side='left') fr1.pack(side='top',anchor='w') fr0 = Frame(ma,borderwidth=1) for i in range(len(self.trace)): j = i+1 lab= " %i " % (j) co = "color#%i" % (j) st = "style#%i" % (j) sy = "symbol#%i"% (j) fr = Frame(fr0) Label(fr, text= str(i+1)).pack(side='left',anchor='w') self.trace[i][0] = Pmw.ComboBox(fr, scrolledlist_items = self.groups, entry_width= 10,entry_state="disabled", selectioncommand= Command(self.update_array_choice,i, 'gr',get_group=1)) self.trace[i][0].pack(side='left') self.trace[i][1] = Pmw.ComboBox(fr, entry_width=10,entry_state="disabled", scrolledlist_items=[""], selectioncommand= Command(self.update_array_choice,i, 'x',get_group=1)) self.trace[i][1].pack(side='left') self.trace[i][2] = Pmw.ComboBox(fr, entry_width=10,entry_state="disabled", scrolledlist_items=[""]) self.trace[i][2].pack(side='left') self.trace[i][3] = Pmw.ComboBox(fr, entry_width=9,entry_state="disabled", scrolledlist_items=self.operations) self.trace[i][4] = Pmw.ComboBox(fr, entry_width=10,entry_state="disabled", scrolledlist_items=[""]) if (self.show_operations): self.trace[i][3].pack(side='left') self.trace[i][4].pack(side='left') self.opts[co] = Button(fr,text=" ",padx=1,width=2,highlightthickness=1, command=Command(self.color_choose,j)) self.opts[co].configure(background = self.plot_opts['traces'][j][0], activebackground =self.plot_opts['traces'][j][0] ) self.opts[co].pack(side='left') self.opts[st] = Pmw.ComboBox(fr, scrolledlist_items = self.styles, entry_width= 7,entry_state="disabled", selectioncommand=Command(self.style_choose,j)) self.opts[sy] = Pmw.ComboBox(fr, scrolledlist_items = self.symbols, entry_width= 8,entry_state="disabled", selectioncommand=Command(self.symbol_choose,j)) (styl_, symb_) = self.symbol_of(j) self.opts[st].selectitem(styl_) self.opts[st].pack(side='left') self.opts[sy].selectitem(symb_) self.opts[sy].pack(side='left') fr.pack(side='top') # fr0.pack(side='top', anchor='w') for i in range(self.ntrace): self.trace[i][0].selectitem(self.selects[i][0]) if (self.selects[0] > 0): self.update_array_choice( i,'gr', self.selects[i][0],get_group=0) self.update_array_choice( i,'x', self.selects[i][1],get_group=0) for j in range(1,5): if ((self.selects[i][j] != None) and (self.selects[i][j] != "None") and (self.selects[i][j] != "")): self.trace[i][j].selectitem(self.selects[i][j]) # bottom fr3 = Frame(ma) bbox = Pmw.ButtonBox(fr3) bbox.pack(side='left',fill='both', expand=1) b_new = bbox.add('Plot', command = Command(self.do_plot)) b_more = bbox.add('Add more traces', command = Command(self.btn_press,'more')) b_quit = bbox.add('Quit', command = Command(self.btn_press,'ok')) bbox.setdefault('Plot') bbox.alignbuttons() self.balloon.bind(b_new, '','Update Plot') self.balloon.bind(b_more, '','Add More Row for Traces to Plot') self.balloon.bind(b_quit, '', 'Close The Plotting Window') fr3.pack(side='top',anchor='w') self.createMsgWin(ma) self.main.deiconify() ifeffit-1.2.11d/wrappers/python/Pmw.pth0000644000175000017500000000000410771740460017014 0ustar segresegrePmw ifeffit-1.2.11d/wrappers/python/iff_py_made0000644000175000017500000000000011117271734017713 0ustar segresegreifeffit-1.2.11d/wrappers/python/torture.py0000644000175000017500000000056710771740460017630 0ustar segresegre#!/usr/bin/python import Ifeffit iff = Ifeffit.Ifeffit().ifeffit iff(" show $&build") npts = 8192 narr = 128 for p in 'abcdef': print "= group %s " % p for i in range(narr): s = "%s.%3.3i" % (p,i+1) u = iff("set %s = range(1,%i,1)" % (s,npts)) iff(" show @arrays") iff(" show @scalars") print " erasing ..." iff(" erase @arrays") ifeffit-1.2.11d/wrappers/python/site_install.pyc0000644000175000017500000000114511117271727020752 0ustar segresegremò £s=Ic@s"dZdZdZdZdZdS(s/usr/bins-L/usr/lib -lifeffit s>-L/usr/local/share/ifeffit/pgplot -lpgplot_iff -lpng -lz -lX11s¯-L/usr/lib/gcc/x86_64-redhat-linux/4.1.1 -L/usr/lib/gcc/x86_64-redhat-linux/4.1.1/../../../../lib64 -L/lib/../lib64 -L/usr/lib/../lib64 -lgfortranbegin -lgfortran -lm -lgcc_s s+-I../../src/lib -I/usr/share/ifeffit/configN(tbin_dirtlib_ifftlib_plttlib_f77tinc_iff(RRRRR((tL/home/newville/Codes/ifeffit/ifeffit-1.2.11d/wrappers/python/site_install.pyt?sifeffit-1.2.11d/wrappers/python/t.py0000644000175000017500000000020310771740460016352 0ustar segresegreimport Ifeffit i = Ifeffit.Ifeffit() i.ifeffit("m.x = range(1,2,0.01)") i.ifeffit("m.y = sqrt(m.x)") m = i.list_arrays() print m ifeffit-1.2.11d/wrappers/python/ifeffit.sav0000644000175000017500000017141410771740460017701 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0038 Copyright (c) 2000 Matt Newville, Univ of Chicago #:strings #= group= a #= commentchar= # #= &install_dir= /usr/local/share/ifeffit #= column_label= energy xmu #= filename= a.xmu #= filetype= user #= a_title_01= Cu foil at 10K #= a_title_02= # cu10k.dat : this file is part of the uwxafs 3.0 distribution #= a_title_03= data taken at NSLS beamline X-11A Sept 1992 #= a_title_04= by M Newville, B Ravel, and Y Zhang #= a_title_05= foil of 99.999% Cu rolled and annealled to ~12 microns #= a_title_06= sample prepared by M Newville #= a_title_07= From X-11A : #= a_title_08= 2-SI111 HC/2D= 1977.260 STPDEG=6400. STPMMZ= 40. #= a_title_09= FOCUS=F TRANSLT=F E0= 8980.0 NREG= 3 NPTS= 611 NSCLRS= 3 EF= .0 #= a_title_10= SRB= -193.7 -43.5 30.0 2381.3 #= a_title_11= DEL= 10.020 .483 .050K #= a_title_12= SEC= 1.000 1.000 1.000 #= a_title_13= DETECTORSI0 I If #= a_title_14= GAINS 8 7 10 #= a_title_15= OFFSETS 51284 50016 48319 #= plot_xlabel= R (\A) #= plot_ylabel= |\gx(R)| (\A\u-3\d) #= plot_title= a #= kwindow= hann #:system #:scalars (nopad) #% pi 3.141592653590 #% etok 0.2624682917000 #% pre1 -200.0000000000 #% pre2 -50.00000000000 #% norm1 0.000000000000 #% norm2 0.000000000000 #% e0 8977.580000000 #% edge_step 2.322587530889 #% pre_slope -.5026020088799E-03 #% pre_offset 5.418381028235 #% norm_c0 -29.82876561247 #% norm_c1 0.8340789032382E-02 #% norm_c2 -.5189094647289E-06 #% rbkg 1.000000000000 #% kweight_spl 1.000000000000 #% kmin_spl 0.000000000000 #% kmax_spl 25.01915274729 #% nknots 15.00000000000 #% dk1_spl 0.000000000000 #% dk2_spl 0.000000000000 #% toler 0.1000000000000E-04 #% dk1 2.000000000000 #% kweight 2.000000000000 #% kmin 2.000000000000 #% kmax 17.00000000000 #% dk2 2.000000000000 #% dk 0.000000000000 #% rmax_out 10.00000000000 #:arrays #% [ 612] a.energy !VtUJ18}6VtYP[F7uVt]Tw{}_VtaZ(g2RVte^Ug2RVticpvUZVtmi}TWqVtqmyAu.Vtut6Vv9*?|3q !Vv9>aj/mVv9NDGO@Vv9_Vk.vVv9pog:[Vv:((0t7Vv:_Vv;I{ot7Vv;[7RiqVv;o\Y{qVv<&r2OqnDVv>Chmz)Vv>V^.qzVv>gw*}_Vv>y6'/D !Vv?0N};)Vv?Ak8\mVv?T`STdVv?eyO`IVv?w;e(2Vv@.Ta3qVv@AM;AlVv@RiPcVVv@d(Lo;Vv@uG{M) !VvA,`wXhVvA=}2zQVvAPug.MVvAb4c:2VvAsT7qzVvB*pM9dVvB<5{qQVvBO'}SDVvB`GR12VvBqg&hz !VvC))<0dVvC:HjhQVvCM>+`HVvC^]Z>6VvCo}.v%VvD'B]SlVvD8b21ZVvDI~GSDVvD\z:wDVvDn2zVvE6~ljhVvEHDAHVVvEYcp&DVvEn5OdMVvF%X=X@VvF6wl6-VvFH@Z)zVvFX-)1[VvFiLWiH !VvF}~iyZVvG5D>WIVvGFg,K;VvGVSURvVvGgvCFhVvGy;q~VVvH0^_rIVvHE6r(ZVvHU&ZF@VvHfIH:2 !VvHwl6-~VvI/4}{qVvI@WkocVvISVxOhVvIdvM-VVvIvBT7MVvJ-eB+@VvJ?1I56VvJPT7))VvJaz>2z !VvJsC,&mVvK,EQvuVvK=kY&mVvKO4Ft_VvK`]g:[VvKr&U.MVvL)L\8DVvL:rcB;VvLMu/8DVvL_=w,6 !VvLpg=L2VvM(3DV)VvM9YK_zVvMK%RiqVvM\Ns/lVvMmq`}_VvN%A'CZVvN9yl%vVvNIlmY_VvN[8tcV !VvNlb;)RVvN~.B3HVvO5Z{iIVvOG'(s?VvOXSbO?VvOiyiY7VvO}%NeDVvP4KUo;VvPEx5K;VvPWGUk6 !VvPht5G7VvPz@]+?VvU*kgb?.Vvo(UI~- !VvolFJy2VvpWtC2QVvqCH;EqVvr0Uk[MVvrwitC2Vvsd}}*qVvtUQAq)VvuBk}*qVvv3EtC2Vvv}}*qQ !Vvwn]T[vVvx`zu^ZVvyTt[MRVvzG;;f;Vv{;B,SDVv|1%<,_Vv}&h~2)Vv}vRf7MVv~m|^k7Vx%eLWDz !Vx&^YG6~Vx'V31RuVx(Q,dEHVx)K|}{qVx*F}/@MVx+A}:_)Vx,>`=;zVx-;FY.uVx.9m+P7Vx/8vREHVx6B\a;zVx7FO{0dVx8K|s'cVx9QVCJm !Vx:W3-)zVx;^P'7MVxvM<0dVx@'Cb?.VxA0W757VxB=:FD)VxCH=wP_VxDU*xG_ !VxEau8TcVxFpN|L2VxH%,%Y_VxI3ltO@VxJD9ys?VxKTd>SDVxLf{F3qVxMw\/(2VxO/yi4hVxPEjBp2 !VxQX>G6~VxRlUuB;VxT(Vs7uVxU>^IY_VxVX2@~.VxWnF|D)VxY.+=|hVxZDM*@uVx[^>PwlVx\x6P&l !Vx^9u80;Vx_U]9OhVx`qREmMVxb50{uVVxcRlq9cVxdr>hnDVxf7q8u-VxgWP;MzVxhwhg*I !Vxk`H6-~Vxm)nH2)VxnMDKx;VxopwhzQVxq<=n}7VxrcQ6RMVxt-H(g2VxuTknP_Vxv|?K|?VxxIs[z) !Vxys=n4?Vx{DNiH~Vx|n/xC[Vx~?TW([Vz%k,@elVz'[_EM)Vz@7jN4hVzAqO(wDVzCOZX/lVzE/\b*qVzFieDR%VzHI~K3IVzJ-t=+hVzKhJ@MRVzMLW/,6 !VzO/*?b_VzPmQD=hVzRSn}[MVzT:x;o3HV|@xb?vvV|By8\HVV|Dz%uZVV|F|jB';V|I%ke4@V|K*j;V)V|M./3uVV|O5E-NIV|Q91FhQ !V|S>x,SDV|UFkk;)V|WNlZzzV|YW*GG7V|[aEsT;V|]j+&u-V|_tgAP_V|b'W3U2V|d2`o+@V|f?x(*I !V|hMBF'cV|jZ}`eDV|ljba/lV|n|U8}6V|q0qX+hV|sA:v12V|uQqw`qV|wdY7IMV|ywT4\DV||2V0l. !V|~ExNyZV~&]Dy>_V~(q4^FhV~+-1twmV~-Eg[W.VvM16VW.W4R5-b_W.[W5ShzW.[p99+@W.\/d?B;W.\H~{DzW.\bVZ-~W.\|1R-- !W.];icB;W.]UK3mMW.]nv:*HW.^/(Df;W.^Hm`y[W.^b\K;W.y@.el~W.y_kOdM !W.z%hOX@W.zEl'x;W.zeH9CZW.{+U]KcW.{Kf@iqW.{kz=D)W.|2:lJDW.|RXZfdW.|r|{U2W.}9J[Y_ !W.}Yxn0;W.}zP?vvW.~A+*y[W.~a}E4hW0%(e;5_W0%I{*];W0%jUo_zW0&1uPodW0&Rq*@uW0&sow(2 !W0';/%elW0'\e][vW0'}q[ADW0(EA.9;W0(g*q-VW0).G9';W0)P'03IW0)qw~%uW0*9Jj3qW0*[Nh~V !W0*}BCZ~W0+EP43qW0+ga=|hW0,/N@--W0,QlTt6W0,sw,7%W0-_W0.Im8(2 !W0.lN|'dW0/57>SD #% [ 612] a.xmu !S.WTyvz)S.O|;ta/S.M||h16S.KyRazfS.Iy`c0'S.GzDxHNS.F%GUnqS.D.S8@qS.B6rbV~S.@=]M^{ !S.>GDZ]GS.<_D*'GS.:o?5BhS.97Z(Q>S.7Y.(EUS.6KyuPoS.6Jb*PcS.6L{Jo'S.6CaVHbS.6:~1(F !S.6*S.630Xd)S.?<=r];S.@2G-(BS.AMcG+;S.CDvUtSS.D4{radS.F(L/oK !S.I%i^5CS.L8VG=+S.PDYky&S.S]:EyZS.\JhK/DS.bi@--~S.lG-mY_S0,L+QJDS0LZhI-.S2*rd}cV !S4-\=J0;S6&IG9';S6_dV)-VS6{>-iy[S8*oIVnDS8'UKuJDS6y*eKl-S6o,Ll%vS6j%;O|hS6opxqEq !S6zL[qV)S82p'(NqS8H>Ci4hS8Y^zlB;S8hBJdB|@S>n%=C_)S@4,I5[MS@Sjle,6S@{ileu-SBMOIem%SB^s,ATdSBqF]PWI !SBtS?iU2SBnY~iy[SBe[4OH-SBV'0(NqSBFSxC[%SB6AaFt_S@~[uS.uS@Wvj8@MS@Up2)vMS@Ye?{iIS@c9.o/D !S@l)A^JlS@nR>'[uS@jUY*([S@f8w,[MS@hs`EDzS@sj-;EqSB%&h-zzSB'`L:[%SB%Hb;)QSB&I]-B; !SB/++@IMSB;UB\dvSBFs&[Y_SBN5,hnDSBUQ@'';SB^?4t_QSBklD6NISBylK,.vSD*X*y[%SD*x\KG_ !SBzY>FH-SBeEqG*qSBHt7|P7SB1>ZiU2S@y%4Kh)S@hy[,?.S@`5P.u~S@^Gu_nDS@UNlHfdS@?\*Nw&Ns/lS>se.VIvS>|&+p6VS@0cl)1ZS@Cvbe}6S@Y=kv57S@mU=OlVS@zf]ia@S@}P{mqz !S@vpGLNqS@npo,wmS@lCWZnmS@|_%;=hSBJO&|H.SB|c+y.MSD<4BZ>6SD=6iyZ~SD1:vd57SD%I.tG7 !SBqg1c.%SBXhl[iqSB7F%@z)S@h[nw0;S@juwY{qS>EX*yZ~S>.BuFdMS>+Nl2rHS>?%;AHV !S>ae)M1ZS@0\Qz1ZS@XS2eq)S@rl\)EqSB&sKoCZS@~.j;zQS@nDyEy[S@_YujhQS@X?}4|hS@U9iVEq !S@Ioj(.MS@97X+D)S@5^(k6~S@HDf7qzS@oa\a`ISBcxydelS>SM:z~VS>L'jLVzS>NRFMj@S>[*iAdvS>d;d'';S>csRw8D !S>ep+_~VS>i&-gRvS>j9CHjhS>pE))-VS>}G=x?VS@/@R|+hS@7>|v=?S@;;:Rv%S@;]odIMS@:s)I-- !S@>d@?fdS@Dhv;=hS@LbMAHVS@SH-ap[S@J`Q*DzS@7++hQ~S@%*c0';S>kKdB3IS>YJg7iqS>Q8?W@u !S>S\2b6~S>[[{~NIS>ap^_)QS>\=Zu>7S>L'SOpZS>7>zD^2S>-\{F|hS>7>YV5_S>AUU,odS>ArcPod !S>FA7\u-S>M-qpFhS>P.J~%vS>SB3bSDS>Vsv9_zS>Y}(?rqS>\wVtocS>^{c|X?S>_vV|xcS>`VEqQ~ !S>`nDJduS>_(g.qzS>XBHJhzS>J~rM)QS>9u4q%MS>+t&kAfx;S>'%}jpZS>*vxKc~S>1*3r@v !S>4SjqnDS>2}g[%%S>--R3}_S<{;31RvS*d`uzzS>1>'fp2S>3INwXhS>01eF/mS>&)TKc~ !Si1RvS<\)tsD)S.vS<>OO@muS<@>w+H-SdLc.S_S<=ibL*HS<9r6XT;S<7?\0_zS<3[jN4hS<-anJ4@ !S<):RU6VS<&bO?~~S<%+YA0;S:~})alVS:|[r'l-S:wPfK?VS:u_bAy2S:u8rZ%uS:sF;K/DS:o`w;Z. !S:lml[EIS:jl=e;)S:g2VgNqS:gmWs/mS:j?S=f+?S:i*3Bx;S:g_o/hz !S:c~utshS:^JBDnDS:ZKLVV)S:Y_-5cVS:Yls8@MS:YGU}K;S:XYIsX?S:U~*/,6S:Q,E&4?S:LVmgo; !S:HO7v%%S:ETLDAlS:C{tg[%S:B2Z.%%S:?R1+7uS:=XWBSmS:;O3qQ~S:9\93I%S:8kE&4?S:700_1Z !S:5hD+/mS:5wfLRuS:5}=+hQS:4yC9G_S:3<_^VzS:1:cGSDS:.\-`8mS:,GpZ6-S:*EZ-6.S:'_@56~ !S8~-h(>_S8{Ph_j@S8y2c0p2S8w}b%~.S8vrkYodS8udAa`IS8rMm`U2S8otDPk_S8ndN^*IS8l:2rmM !S8i757%%S8fFye0;S8d)oPWIS8b9LK[uS8_{'G_RS8]LCz~VS8[chxOhS8ZFMqZ-S8ZEf:c.S8ZQAL[% !S8Xp-+X?S8VfYhnDS8T7\,7%S8RGVVMzS8PJVLg2S8N,{W}_S8KG}hnDS8I-y,odS8FSWuzzS8D`g)Z- !S8BhfFL2S8@XFA\mS8>dZ4t_S8=f6{iHS8;\pi}_S89*P%Y_S86H3a@%S83n&3uVS81_[MRS6h2WhZ-S6eaMmz)S6cJoR~. !S6aD4+D)S6_TY5k_S6]r]7qzS6[r)\0;S6Yk>Bh)S6WVIQVRS6UKIahRS6SGId~-S6QgDAl~S6PI;+T; !S6Ni+p[%S6LNF07MS6I~AA`qS6H;B7MRS6F63k~q9cS6<{l6RM !S6:|N1.MS69(q/4@S66z8T?VS64f\RahS62XFf+?S60O&T?VS6.KQ7elS6,F>}shS6*135{qS6'wd?B; !S6%oBa3qS4}mVnDQS4{t@ZrqS4z*UA,7S4xD*Vj@S4v<)g*IS4t8=Mj@S4r+nJ4?S4p:?`];S4nPO-jh !S4lSHKWqS4jUmox;S4hJ@,cVS4fF6>7%S4dCUcRMS4bLM'OhS4`Xq>{qS4^dJ-nmS4\^(v12S4Zn)xt6 !S4XnHD=hS4Vj4d))S4Tcfys@S4R]OYwlS4POqXP6S4N:ruVQS4LBuQ^ZS4J<&FT;S4HH{pc.S4Fb6pJm !S4Dv(Au.S4ByBN0dS4@o*;9dS4?)mgo;S4=%%[ahS4;*ZJDRS491:E0dS47)~KWqS458`,;)S43,Q>[M !S4172,C2S4/9)W.uS2evH=lV !S2d2-*iHS2b4}/@MS2`9vsX@S2^iPnP_S2\Rb/@MS2ZRy|7uS2X^(0t6S2Vf*f|?S2To5hIvS2RuAiiH !S2P}hMV)S2O*US@MS2M7^.MQS2K;z-VQS2I6S2/18}7%S2-3@rDz !S2+Oxys@S2)M*adM #% [ 612] a.pre !R&RUD@D+Q'+?a36DQ''(wYc^Q'&~a]^tQ%}=K.A(GQ*=E9ucyQ*FL9(2SQ*RZxUGZQ*Qvd|AbQ*Qu%'zj !Q*^{L_r{Q*gScm`QQ*lQIYB%Q*saJ}K`Q*yd]`~5Q,&?t1fLQ,*{qc+OQ,/iud7WQ,2L91NeQ,9'ne%C !Q,>-Wv7~Q,L>0)t.Q,RL=gibQ,Wn4eQzQ,a'T51(Q,hS:iLcQ,r2.-@lQ,yC7)ytQ.(t4Ff^Q.2I|C.s !Q.9d5J~NQ.ECP,L0Q.Nsa(W=R&Ma8\0pR&OB&lFeR&Oy2%>bR&QR\e[-R&RR&+YxR&S1>ozpR&TP0kZ{ !R&Ujx[)SR&W?/fT-R&XY/qEKR&Yv'y&tR&[c{-NiR&]6>oiFR&^bLf?&R&_|I4kpR&ay{Y_hR&cA}.}' !R&eEq)9ZR&h&y'CAR&j=HX~_R&krw%'sR&nSaU\VR&pJ@g\FR&sAT+/qR&u>bkGaR&xDC5vzR&{EUFV0 !R(%-?:HNR((Hj`abR(,l:FxER(0Jpw{UR(4X+9DaR(8ZRR9%R(=jrPYtR(B^D99iR(Hzsx._R(Oa/z]= !R(WlsCS[R(](?@yLR(dH[:S,yO}{W>S.Xsu<%]S.tV}~K%S.~7&[>^S.{%m*_qS.r]o+I^S.hh@VH_S.ciqdgUS.id?6uq !S.tHdaN-S0,ubTCHS0BLiEnRS0Sv.sD)S0b\S%U0S0rD28K+S21Zg]_aS2AA%o\tS2^_K1z:S2{0'q;T !S4J~YvwES4jdqUqrS6=WP(.=S6i:m3V:S8/Jdja%S8O7pjSmS8w?\VQ,S:I/ZiVjS:Z[:Y;VS:m7Us)N !S:pL}w5YS:j\M(E;S:afJ3E>S:R;/q7;S:BpeWtyS:2g8eylS8{1'4a8S8m_>[GOS8f+Qa3eS8`n2S8b4)sN^S8jMbZbxS8wx}j/[S:7t5MI9S:Ed_M@`S:\1`L[cS:pd<]8zS<&-X/UaS<-k !S8bH]UI\S8Z+':]|S8O'/GP+S8GGzYH+S8?7>q)uS89e&MRRS86KT;l_S85f\y|/S8:4TLKCS8@5:PkK !S8JL&hivS8U}y?0GS8k`5(j]S:&88cwLS:6Mi2~MS:N,p^B\S:e6oe04S:wrS8ZTz%rbS8^db@a,S8hSrMjZ !S8q_N78kS8tJ_FT;S8piF]t&S8ljVTymS8off(\FS8zz~m08S:,UVOGhS:/RA:/kS:-Z+2]@S:.xxN{` !S:7y-c?iS:Dh-a;=S:PKDSDUS:X-l+%)S:_k8Y[GS:hxe;]_S:vm-mo|S<+4K:`:S<6B3Q?fS<7*kepZ !S<--V)~LS:r=)?l6S:V4D0BVS:>|QD,|S:-,rgk`S8wK-/nSS8o,J=,0S8mb`p<[S8e5(~[~S8Ogn/|D !S8<,o|gbS8-~-m9aS8+/vYv*S83q<,1@5(S:(;WPP1S:9'a2z'S:aBIq:nS<:'5k1ZSc=WBo !S<1T]NeZS:s)[P)IS:R469++S:)wGs,gS8X5}-m`S8-:o.c]S6bL+PunS6Kf+V0|S6IG|2%,S6]NNK'f !S8&dAA`KS8P2b+vsS8xZ>I_.S:9KU14@S:H)EJDBS:EqIbQwS:6_Ll*+S:(N%oVkS8{fs`tGS8y:A\0k !S8nJ%B/qS8^FEfEsS8[GJM\IS8nbfppMS:<[/iXjS:dL&V9{S:rIK*bAS:t7v\S8qq?(ic !S8vFb\iGS8}0B(m^S:+h{T[2S:33e{/+S:+206pIS8r=_p/vS8`|V/9SS8N*ZRMyS8FcS8H0vD>CS8C@w2YUS83mztk-S6ynV7~1S6pv_jabS6{BIk%rS8,DK:d^S8-LbrUc !S82`HNG}S8:8;l)bS8=~}l5RS8B%mjevS8FDbW*{S8J9>nx:S8M{xb6PS8PmJ1LES8RVR@M2S8S~`:%p !S8U+t_E;S8T.d^MSS8N8ZoY|S8AdRpArS81K8{'iS6~:g^>GS6y|B/|zS6{)B`*mS8%jx/2OS8,j]Xa) !S81+tIQeS80HNFeFS8+Ekv)^S6zG*k-~S6oX.SMcS6nJ*P(fS6s4cd1'S6rr^DeAS6n}a/-DS8<]DJK}S83NLr=Q !S6|\2I2KS6kBUYLlS6d];39:S6cP`+xS6`+q[Y2S6]L/h>7S6XTTtC< !S6U0Zrw1S6S\}OU`S6S*Yx)^S6T&b !S6IC))VpS6HHr3IS6IlAZ8,S6MG,U-/S6NOf5&sS6NEZrPCxqZK !S6;KW^0&S69^7P/;S69:5pu}S68ZO3+|S67/e\m&S66F&81WS65LYA.9S64jejnmS651''ERS64a2V%s !S64Pn-\{S65rgT,tS670%&nrS67>t{HBS66o2d:.S66'>%-Hxk+S4|Ql9rYS4{@]\\|S4zlfi,hS4z2~;&fS4y2qMo`S4wlJ_`fS4vq-PZ.S4u[^>U)S4u-uvuU !S4tW5WDnS4sf>{,0S4s7|nS4P`z`^,S4POHP7DS4P9tVe?S4Onn{P5S4O_931P !S4OAJ^dUS4NzCO~zS4NU&pF+S4N1DR8eS4M`Q~PvS4M/hfTQ8IS4LAaCMM !S4L:q3BgS4K|W6M)S4KX4kb&S4KR~XA5S4K6oVvRS4J{hc~;S4Ji6tLcS4JJ9-mDS4J@){|/S4IwmdJy !S4Ii,;w9S4IUMf`BS4IHji&,S4I38'(uS4H|h_*/S4HqcNk~S4HX~LGcS4HGw]{cS4H.O,BqS4Gm9=[0 !S4G`*JuzS4GF+%A~S4G?Q+1lS4G,AEKJS4Fu5M/9S4FmkRumS4F_unL?S4FX[}%;S4FYna&`S4F<2r70 !S4FAS4EYczzN !S4EUH*.(S4EQ,xH>S4EPd}=^S4EI6o=rS4E?f7R^S4EPI{NKS4E<5CF9S4E;[R.oS4E=U,;IS4E@l(Lt !S4E@Kl|GS4E>8yNYS4EBi){MS4EQMQ@kS4EO>CN+S4EF\gv&S4ERx7EFS4EU4JWhS4Ei)t;tS4Ee59D+ !S4E|'l !P%|.91\kP&QaH5}lP(V@wOhaP,\E:H+hQ&WY-|9;Q&~VU+&1Q((TUj&CQ(-r;+p]Q(-V}BS;Q(-V9sPq !Q(3=h`%QQ(7'>>4sQ(97O1N=Q(~Z*@&Q(AtVmrAQ(CxYn>NQ(F'vv~VQ(G78~olQ(J-CFp0 !Q(LA):MFQ(RTLNoNQ(U9==N3Q(WYAM2LQ([\gXA%Q(^u{p/4Q(c/o=igQ(f=GjPb?\R&\6JTQzR&_16vC4 !R&bcqn`NR&d~Ku&|R&h8`>;,R&m/UJ*/OR(+a=*h'R(/`W1}sR(8:]Etq !R(EiCp;7R(T;'8M|R(fkZv6cR(uSTYZ0R*BP;XR)R*^b^Uv+R,/K !S(B&*SlwS(fB~.=GS*%PdNLQS*1\A)o(S*5pb]M0S*4Lo=z/S*0jKc:4S*,L^aJ/S**<0K1JS*,rAjPf !S*1V)ny6S*9__]-/S*C-EM_.S*Jgxm,]S*Q6>x*lS*X,]3fs4pS.:hCh\zS.>G,0_zS.D>ha`8S.O`(n:JS.UeFLo*S._V.jM4S.hW)CZNS.o@-It[S.rL_Y`d !S.qyM'lNS.nZjbu:S.g.uq>9S.c(k;=WS.[g)h.+S.WuUVl`S.Mv;^TmS.IL-E4~+t !S.:qE32bS.76t-*_S.2ED%E5S./&9JWkS.+KJ`gUS.)&oNWBS.'YCm,vS.'=j~jES.)9&YS6S.+q{B)O !S.0DB8%8S.5J&i&}S.>v\y\qS.GwAF)`S.O'ix}`S.YGrL_PS.cSA`r3S.kKsGbaS.qb{]b;S.rQ=vtF !S.m5y6B6S.bTyQUzS.X3(%&cS.KpHqLuS.BR4ia8S.]S.?;F&FhS.HA}yC.S.N@:0(4S.Od~k&Z !S.M%%iqtS.Ic`UGAS.Hm`*_TS.P3H.nOS.an^VO`S.x(*^w/S0)J*a4sS0*+a+12S0%)crJLS.z,20qs !S.tA'h4IS.iY`CJ*S.[4p0qSS.IU@{]`S.6Fm7HkS,}W,.geS,mKJtG]S,cOg*)KS,bM`ue9S,k;=pWd !S,zc6BxXS.2qqP]DS.DXg7V=S.PC.\n[S.VgdS1+S.Uj{[<=S.O/SH?wS.Hug]nYS.EzX1ZJS.Dr4'm8 !S.@/8h79S.9,\*k|S.7ji:?:S.@:)|q{S.Qf;Z?eS.c53m(mS.i@3f5]S.j-E`0rS.gV5`=0S.`4Nd6o !S.R}w[GMS.BW6'}0S.35f(tdS.'VXZ`XS,z[qg:yS,w^,E5ES,y%.VUdS,~k6W}AS.)-+nuES.)7\}I? !S.*DwA^ES.,(5t9\wS./CWxI}S.-9H*gcS.&L/?XLS,wa[hawS,sj8LT^S,xC1vxAS,}3qBYbS,}^v]lE !S.%xg)z7S.):_U6eS.*u{O`%S.,`+aozS..WE0ZSS.0_TQ|S,}DZ&Ty !S.%:>^G0S,~yF:B]S,|g%]{nS,wwh+RuS,s5H>P`S,|urfb~S.&eFwRaS.)~S(',S.+Bnw@UR. !S,xurRbpS,qB5zz>S,nGo-3NS,mtcVrES,n)8o,{S,n,2/H5S,nbNO|NS,opKYcjS,pJHr&GS,o[Tmk7 !S,o,qz_uS,ny?O`CS,mwS,L;S,k;vkJ-OA !S,m[c|O&S,nv8V<3S,pa9aC3S,pfPP?fS,o\aM]jS,nBF7=@S,m+,qH\S,lHK;qYS,k:;Sv=S,i,h+Pd !S,gZbY3kS,fy<1J>S,fc4_//S,g.u~K@S,fUH-ayS,dhtEQcS,dJV`H}S,dd%gD5S,dE,uB`S,c7YL,^ !S,bKRfqfS,b&\S?RS,`yWDCaS,a.om(&S,arP;u8S,b]ZM{ES,d7'lJ,S,db<%LZS,d]n``3S,dRfmK& !S,cHRa+}S,aM,E10S,`5o:{WS,`CP7v&S,`vO\/6S,a9/ySdS,aF3^R.S,`gK6NrS,_-(*fyS,]\+l}l !S,\C.J<|S,[VHiFhS,[F\dS,Y|&4ltS,YD6iX)S,Xvk5}\S,XWB}(8S,Ww4fKz !S,VuaOZ0S,V?f+]BS,Uo6&=;S,UqsxdVS,UvsmF;S,Uzl2XlS,U+yl7uS,TRCED/S,TUodO=S,T&mH.' !S,S;6{.}S,RX>iWrS,R/9ME(S,Qsq7B~S,QMIvWlS,PvuGi&S,MC\Vg>S,MRaB9'S,M6(fGxS,L`{WYjS,L.3hmcS,KXyzUhS,K9l2E_S,Jwn^N_ !S,Ja)lx?S,JX9{0RS,J\P:2YS,Jif.2gS,Jj_<[(S,J[LWDiS,J2/z^/S,Ik=))>S,IiqMTdS,ITqPo( !S,IBl*vsKS,D+jKn>S,C|dKznS,CgFMd0S,CSM:8HS,CSYY|GS,CBPxElS,C5QdevS,C*A%L~ !S,BrQfZCS,Bcoy~pS,BN5jcaS,B4?P[(S,Avog8dS,Aaa*u~S,AO*Hz:S,A;t*2&S,@{lgekS,@bMV_S !S,@NbHVcS,@>>klS,?|x8,,S,?j6vU2S,?Xx9QBS,?D%s3PS,?;NJJKS,?5lxiV !S,?(KN4dS,>tor@PS,>a?XnYS,>Q,C4RS,>AYnsKS,>7:9K2S,>/Ukg&/N+RS,=osl+:S,=i(^N4 !S,=[}2^,S,=MPVJkS,==0kIqS,=-R%@hS,S,<_EV~jS,NS,;J64+'S,;;5R{B !S,;4fcPNS,;,0Zj)S,;&X\eRS,:w05USS,:ow(VDS,:k*zBOS,:`:m|AS,:XiG'lS,:M[_\6S,:Aa)eYS,9O_LoT #% [ 612] a.preline !S.R}.k7yS.PxwtmuS.Nun=N\S.Lr@GSdS.Jo.T8[S.HkRHArS.FgPCL?S.DdW7~bS.B`Lw3?S.@]M63& !S.>Y:_EmS.YiMrS.45wt^PS.4-<%o-S.3~Z1%e !S.3tDNZ,S.3lOPXoS.3co<2\S.3[1fz+S.3RQRSqS.3H:5e*S.3@E7cmS.37cBtJS.3/%masS.2~kk_I !S.2v.LJS.1L@uTgS.1C]FB6S.1:1?xES.11MjemS.1(j;S< !S.0z,f@eS.0qGVe%S.0guPA4S.0_7{.\S.0VRkRvS.0Mo<@ES.0DAUSES.0;\Ew_S.02xpe-S.0*8&f8 !S./{TQSaS./roAw{S./iA[0{S./`^+xJS./Ww;yUS./O8,CoS./FQ2S.)4,\Ry !S.)+@qDWS.(|VfYDS.(siA'mS.(k%6<[S.(b7je*S.(YM_yqS.(OsCZ5S.(G/8n|S.(>Am=LS.(5V(/* !S.(,h\WSS.'}~Ql@S.'u7,:jS.'lKA,HS.'c_Ux&S.'Zsji^S.'R,E8.S.'GcQa2S.'?b|wfS.'6xr2S !S.'./l7nS.'%D')LS.&vV[QuS.&mi5zES.&d{jHnS.&\4Dq=S.&SE>vXS.&JYSh6S.&AjMmPS.&861Mn !S.&/Hev>S.&&Y_{XS.%wl:J'S.%n}4OBS.%f7I@zS.%]HCF:S.%TZwndS.%Kj7PoS.%7h,JdS,~}i<0w !S,~ig1*lS,~TtnJ8S,~?;Z{SS,~)\GRnS,}m{S`zS,}WR.]kS,}A(cZ]S,}*Y>WNS,|m?ayqS,|U94T. !S,|=v=02S,|%'8S/S,{ft/TeS,{M}JTSS,{4hI/dS,ns;C?Q !S,nMf],/S,n'F*u0S,mZ6{RpS,m3nhxaS,lfY)}fS,l>TmqPS,kpMS,g`u2{qS,g5BCmlS,fcgtS,L-O.XKS,KKB1mHS,Jhdg?j3S,={bgc`S,=8WZ*RS,p0yS,2E)aPVS,1Vd\Q3 !S,0gNjD_S,/y'OIKS,/.lZ3|S,.?D[f^S,-Nzt|cS,,^SsLJS,+m~[z@S,*{`/jlS,*1%AVTS,)>U>^q !S,(LuMA]S,'Z>9>]S,&feSS*}=jK+JS*|H{D2US*{S6Tw'S*z^:vyKS*d>b=wTS*c@RaB{S*bB94IIS*aBx}}gS*`CX8%IS*_D/6+:S*^DWx5; !S*]D%|m2S*\CBPbtS*[BZ)I/S*ZAf+G6S*Y?s*Tp( !S*S.va>IS*R*PoNCS*Q%~H+[S*O{FIzeS*Nuf-zUS*MptC1`S*Lk)U9oS*Kd1N=9S*J^,saIS*IV{&&n !S*HOhVmWS*GHJVr1S*F@*9'LS*E6\\1|S*D.zy3WS*C&;=veS*AwKf@tS*@mVV)KS*?cWOL}S*>XTJX- !S*=NAW=`S*cS(c`s>k*S(bF4SoQS(a,7dRVS(_kBM_AS(^P,8|jS(]4o~@9S([s8knF !S(ZVc1l9S(Y9lSzjS(Wu}NY'S(VYnlF6S(U,`L5aS(S(-(%^f1S(+ZPfHZ&S&{F>7t{S&yu>'5vS&xIvraTS&vxUd33S&uLmWoPS&sztyZ1S&rNkoM1S&p{Ykr7S&oO/cuu !S&m{F6Y}S&lML7FIS&jx8lm:S&iIwojES&guLFonS&fEaRUbS&dof2CtS&c?InBjS&ai-PA`S&`8J4Q: !S&^afr`mS&]/Y_Y0S&[XDt'fS&Z%pc0gS&XM2&B,S&Vt,Ed/S&UA&e,2S&SgZ,^rS&R3||?xS&PZEqz} !S&O%.DM1R.P|L3xIR.A=|j^3R.1?s,AwR,{?xRy.R,k33l(@R,[/WNRDR,K(?Fo;R,:n71^3R,*e.4tQ !R*tKS@OcR*d1xL*tR*SnamRyR*COZ?tKR*3.aw5CR(|ex_IaR(l)U,\&R([f>N*+R(K18IVdR(:_@hJ6 !R()~h*c.R&s7E9N'R&b^0*'9R&Qv9r%rQ,0R,j8;Q(;D?cQ6Q%\YX`q[Q)R2%A(,Q-Fbp'X&R%]Gf%?N !R%nK-GIHR'%E@F2OR'6N4GP/R'GXs=tBR'X}8O@UR'j&YqJOR'{8\<.|R)2Y?cH(R)Cn}r9bR)UF373u !R)fVDfknR)x3&dygR+/Sd28mR+A)(\,LR+RZ7{&_R+d@(BUKR+uke(;wR--J7uPIR-?96`F(R-Pw62n; !S%O4tX,[S%P{wH[6S%RfhF9uS%TTB`ONS%VB-L\bS%X0(daWS%YxDzUhS%[fqbAZS%]UeGviS%_DiYIY !S%a44heeS%b}jIyRS%dmVW*zS%f^}-EAS%hOQ6/HS%jBX/X`S%l2D+so1S%y2;ffES%{'uPtpS%|uCH3KS%~jKbZxS'&`mHH'S'(U3g6vS'*L=H\^ !S',BN\R,S'.:/g^kS'01{Dc2S'2'kZi>S'3zE3L=S'5qolaAS'7jzo+=S'9dLo>VS';\ov)tS'=VsE~0 !S'?Q-Ap'S'AKb;Q; #% [ 612] a.bkg !S.WTyvz)S.O|;ta/S.M||h16S.KyRazfS.Iy`c0'S.GzDxHNS.F%GUnqS.D.S8@qS.B6rbV~S.@=]M^{ !S.>GDZ]GS.<_D*'GS.:o?5BhS.97Z(Q>S.7Y.(EUS.6KyuPoS.6Jb*PcS.6L{Jo'S.6CaVHbS.6:~1(F !S.6*S.630Xd)S.?<=r];S.@2G-(BS.AMcG+;S.CDvUtSS.D4{radS.F(L/oK !S.I%i^5CS.L8VG=+S.PDYky&S.S]:EyZS.\JhK/DS.bi@--~S.lG-mY_S0,L+QJDS0LZhI-.S2*rd}cV !S.heK'O+S0Mc;+(2S2/59@vkS2l?A%:(S4FdniY6=oz?=S>I)hXIdy)U !S>f7-gAgS>rLz)/)S>}=<*;KS@,k?<~IS@5-j/8GS@<=Y:DNS@BOKrSoS@H^8Nm_S@L\qu75S@PD4L%- !S@SQOb{GS@V2r1gbS@XM':zSS@ZMVj?kS@\??hcCS@^)^Qi2S@_x}a[]S@a\=I'RS@c4pq !SB/8`I:.SB0OL?;6SB1^SchFSB2awCI:SB3Z5ldNSB4J8-K7SB5/=L}kSB5cwu?JSB66.]<)SB6YA.I[ !SB6qv1u{SB7(SK{+SB7/qBMpSB7/+wU/SB7&6A?gSB6otl@5SB6X6>xLSB6;Kc4(SB5r]V&,}M3SB2g{QAgSB23{uL^SB1Z;00RSB1(>yuDSB0LQS8JSB/sgA+. !SB/?v_rNSB.fB.tNSB.1\gCeSB-UnhD,SB,xqnADSB,Dec;VSB+h0juNSB+1]w_%SB*Ssx2TSB)v;):f !SB)>^~T{SB(_cx|`SB(&hO|)SB'FJHmwSB&eys`}SB&+Dw7LSB%Gv;n6S@~fu~xvS@~(y2kYS@}D^~RQ !S@|_}[d_S@{yS}OiS@{7;*|TS@zOmBoRS@yfC=hPS@xzqZWyS@x4[zH:S@wG]?~GS@vX?A|WS@uh+Msi !S@tuDQa*S@t)*VcDS@s2Rz%[S@r:kJ~(S@qAaQ=xS@pG8od%S@oIaXf0S@nJ`i^JS@mHN{96S@lDo-+Y !S@k={8);S@j5dzBGS@i,%&.SS@gz}ebuS@fjp{f6S@e[>;?TS@dHU1VsS@c4H?@^S@aw.z?3S@`^WmN[ !S@_Dp{xJS@^'yOHKS@\csQ@aS@[Bc8riS@Y|P6\AS@XW)`ygS@W2p9u*S@UcBN|fS@T;-^>rS@Riof,e !S@Q=l4m-S@Ohkt1OS@N9.wj:S@Lbf<:S@>1b03^S@~NLl.=S>|fOp*JS>z|s);4 !S>y9]4:cS>wNa6YAS>ud1,4}S>sz.i={S>r4He.NS>pFxKyUS>n^2d{pS>lqY>ZLS>k+LGg/S>i?icsY !S>gRImCoS>ecLBauS>cvv6n%S>b.m&3iS>`A,f[:S>^SptzkS>\dx,GOS>ZvP2HsS>Y,F}{WUMP<(BS>S^e_&KS>Qn={R?S>O|N0b;*vS>LCT*v5S>JPiV:-S>H`FdGiS>FnONArS>D|s's{ !S>C/i]pkS>A?({4;S>?JmK/4S>=Xvh@[S>;eK,j6S>9rJp01S>8%jnW%S>6/`8B{S>4=rfEKS>2H\sby !S>0UjySsS>.aFMMfS>,kNjm-S>*v'cAoS>)&}wMtS>'2JTy%S>%>=rOXS<}H^8KzS<{QVsmgSo8S<_)4|+CS<]3l2u~S<[;9Hy1S\Xf{9S<SwrS<:lR;t^S<8u,pTmS<6|J@|jS<5*.V%gS<30VVgYS<190FDYS_xE-S<-G~(c4 !S<+P(?w[S<)VgP^eS<']t(d'S<%eD7pNS:}kReO9S:{sbS85S:yz\.\{S:x&1>EGS:v-gx|LS:t3y[[} !S:r:TOVSS:pAHv,XS:nF{(Y?S:lK.['6S:jRt|IrS:hY@wvqS:f`&,zbS:deAr68S:bjuv5ZS:`o/7aY !S:^u7Nr,S:\x7ylES:Z~k-Us1S:O>U(FFS:MAgpYI !S:KCUTEgS:IHqnpFS:GLftrzS:EOA?CaS:CR2N(*S:AU58J-S:?XTycWS:=ZR^79S:;\ngwLS:9_A{kw !S:7b4?lGS:5ce5)wS:3g/[jAS:1i:2qnS:/k`_ZkS:-ljBFmS:+om\lZS:)q]f4GS:'sd68VS:%tY}:6 !S8}wDjAvS8{xr_E~S8yy4&2DS8w|}DZ5S8v%Uk.SS8t&zvc:S8r*;m/_S8p,HXiWS8n.tR'BS8l08S0j !S8j3R>//S8h5e*XaS8f8=:loS8d;5CI8S8b=*:S6yhq:e-S6wl-{rq !S6uoO+r`S6sryUz]S6qx%CrAS6oxv+ZwS6m|\TPfS6l&H.r@S6j'9YqyS6h+C;FFS6f,,D,'S6L>a?jtS6J=yce>S6H>l_`RS6F?l:]eS6D?Q_YfS6B?E@'bS6@?2<\FS6>?D(CNS6h6'IS6.>vl>xS6,?+S1FS6*?O}@mS6(@E[{^ !S6&?_upKS4~>*{4vS4|@u>D@S4zA%v]=S4xAJcSHS4v@iKH*S4tAjjUMS4rBsmniS4pByw+KS4nDwHQ) !S4lEJ:4+S4jFNRyDS4hG[]Q1S4fI+J[mS4dJqV,/S4bLyaEDS4`LP'RfS4^P>Y}BS4\Qi?VdS4ZTq4H% !S4XVdHQ^S4VWW?{`S4T[@k%'S4R]ojD-S4P`^QPoS4Nb9Pq@S4LeZrjTS4JghMstS4HkMfRfS4Fmy9_C !S4Dpbqy}S4Bt|+A5S4@x'J+[S4>{Ca`XS4<|5WvjS4;';a;FS49+-ZjiS47-eu&BS452(,RgS433b3>O !S419On0wS4/;F2(sS4-@2aRWS4+Cdhp&S4)GOM0fS4'J%svwS4%O6&k_S2}SC>QvS2{V)La^S2yZEV&m !S2w]LHt%S2u`R40oS2sfGF6bS2qiadb)S2om89*JS2mq&\p4S2ktvhdWS2iy.A:-sXS2Nq{Zb5S2L{vWLIS2K+%p)7S2I3R+@/S2G?-v2R%%%%S>FhR%%%S>[%%%%%S>o;R%%%S@)R%%%%S@=hR%%% !S@R%%%%%S@f;R%%%S@zR%%%%SB4hR%%%SBI%%%%%SB];Q~~~SBqR%%%%SD+hR%%%SD@%%%%%SDT;R%%% !SDhR%%%%SD|hR%%%SF7%%%%%SFK;R%%%SF_R%%%%SFshR%%%SH.%%%%%SHB;R%%%SHVR%%%%SHjhR%%% !SJ%%%%%%SJ9;Q~~~SJMR%%%%SJahR%%%SJv%%%%%SL0;R%%%SLDQ~~~~SLXhR%%%SLm%%%%%SN';R%%% !SN;R%%%%SNOhQ~~~SNd%%%%%SNx;R%%%SP2R%%%%SPFhR%%%SP[%%%%%SPo;R%%%SR)R%%%%SR=hR%%% !SRR%%%%%SRf;R%%%SRzR%%%%ST4hR%%%STI%%%%%ST];Q~~~STqR%%%%SV+hR%%%SV@%%%%%SVT;R%%% !SVhR%%%%SV|hR%%%SX7%%%%%SXK;R%%%SX_R%%%%SXshR%%%SZ.%%%%%SZB;R%%%SZVR%%%%SZjhR%%% !S\%%%%%%S\9;R%%%S\MR%%%%S\ahR%%%S\v%%%%%S^0;R%%%S^DR%%%%S^XhR%%%S^m%%%%%S`';R%%% !S`;Q~~~~S`OhR%%%S`d%%%%%S`x;R%%%Sb2R%%%%SbFhR%%%Sb[%%%%%Sbo;R%%%Sd)R%%%%Sd=hR%%% !SdR%%%%%Sdf;R%%%SdzR%%%%Sf4hR%%%SfI%%%%%Sf];R%%%SfqR%%%%Sh+hR%%%Sh@%%%%%ShT;R%%% !ShhR%%%%Sh|hR%%%Sj7%%%%%SjK;R%%%Sj_R%%%%SjshR%%%Sl.%%%%%SlB;R%%%SlVR%%%%SljhR%%% !Sn%%%%%%Sn9;R%%%SnMQ~~~~SnahR%%%Snv%%%%%Sp0;R%%%SpDR%%%%SpXhQ~~~Spm%%%%%Sr';R%%% !Sr;R%%%%SrOhR%%%Src~~~~~Srx;R%%%St2R%%%%StFhR%%%St[%%%%%Sto;Q~~~Sv)R%%%%Sv=hR%%% !SvR%%%%%Svf;R%%%SvzQ~~~~Sx4hR%%%SxI%%%%%Sx];R%%%SxqR%%%%Sz+hQ~~~Sz@%%%%%SzT;R%%% !SzhR%%%%Sz|hR%%%S|7%%%%%S|K;R%%%S|_R%%%%S|shR%%%S~.%%%%%S~B;R%%%S~VR%%%%S~jhR%%% !T.R%%%%%T.T';R%%T.V)R%%%T.X+hR%%T.Z.%%%%T.\0;R%%T.^2R%%%T.`4hR%%T.b7%%%%T.d9;R%% !T.f;Q~~~T.h=hR%%T.j@%%%%T.lB;R%%T.nDR%%%T.pFhR%%T.rI%%%%T.tK;R%%T.vMR%%%T.xOhR%% !T.zQ~~~~T.|T;R%%T.~VR%%%T0&XhR%%T0([%%%%T0*];R%%T0,_R%%%T0.ahR%%T00d%%%%T02f;R%% !T04hR%%%T06jhR%%T08m%%%%T0:o;R%%T0shQ~~T0@v%%%%T0Bx;R%%T0DzR%%%T0F|hR%% !T0I%%%%%T0K';R%%T0M)R%%%T0O+hR%%T0Q.%%%%T0S0;R%%T0U2R%%%T0W4hR%%T0Y7%%%%T0[9;R%% !T0];R%%%T0_=hR%%T0a@%%%%T0cB;R%%T0eDR%%%T0gFhQ~~T0iI%%%%T0kK;R%%T0mMR%%%T0oOhR%% !T0qQ~~~~T0sT;R%%T0uVR%%%T0wXhR%%T0y[%%%%T0{];Q~~T0}_R%%%T2%ahR%%T2'd%%%%T2)f;R%% !T2+hR%%%T2-jhR%%T2/m%%%%T21o;R%%T23qR%%%T25shR%%T27v%%%%T29x;R%%T2;zR%%%T2=|hR%% !T2@%%%%%T2B';R%%T2D)R%%%T2F+hR%%T2H.%%%%T2J0;Q~~T2L2R%%%T2N4hR%%T2P7%%%%T2R9;R%% !T2T;Q~~~T2V=hR%%T2X@%%%%T2ZB;R%%T2\DR%%%T2^FhQ~~T2`I%%%%T2bK;R%%T2dMR%%%T2fOhR%% !T2hR%%%%T2jT;R%%T2lVR%%%T2nXhR%%T2p[%%%%T2r];R%%T2t_R%%%T2vahR%%T2xd%%%%T2zf;R%% !T2|hQ~~~T2~jhR%%T4&m%%%%T4(o;R%%T4*qR%%%T4,shR%%T4.v%%%%T40x;R%%T42zR%%%T44|hR%% !T46~~~~~T49';R%%T4;)R%%%T4=+hR%%T4?-~~~~T4A0;Q~~T4C2R%%%T4E4hR%%T4G7%%%%T4I9;Q~~ !T4K;R%%%T4M=hR%%T4O@%%%%T4QB;R%%T4SDQ~~~T4UFhR%%T4WI%%%%T4YK;R%%T4[MR%%%T4]OhQ~~ !T4_R%%%%T4aT;R%%T4cVR%%%T4eXhR%%T4gZ~~~~T4i];Q~~T4k_R%%%T4mahR%%T4od%%%%T4qf;Q~~ !T4shR%%%T4ujhR%%T4wm%%%%T4yo;R%%T4{qQ~~~T4}shQ~~T6%v%%%%T6'x;R%%T6)zR%%%T6+|hQ~~ !T6.%%%%%T60';R%%T62)R%%%T64+hR%%T66-~~~~T680;R%%T6:2R%%%T6<4hR%%T6>7%%%%T6@9;Q~~ !T6B;Q~~~T6D=hR%%T6F@%%%%T6HB;R%%T6JDQ~~~T6LFhR%%T6NI%%%%T6PK;R%%T6RMR%%%T6TOhQ~~ !T6VR%%%%T6XT;R%%T6ZVR%%%T6\XhR%%T6^[%%%%T6`];Q~~T6b_R%%%T6dahR%%T6fd%%%%T6hf;R%% !T6jhQ~~~T6ljhR%%T6nm%%%%T6po;R%%T6rqR%%%T6tshQ~~T6vv%%%%T6xx;R%%T6zzR%%%T6||hR%% !T8%%%%%%T8'';R%%T8))R%%%T8++hR%%T8-.%%%%T8/0;R%%T812R%%%T834hR%%T857%%%%T879;R%% !T89;R%%%T8;=hR%%T8=@%%%%T8?B;R%%T8ADR%%%T8CFhQ~~T8EI%%%%T8GK;R%%T8IMR%%%T8KOhR%% !T8MQ~~~~T8OT;R%%T8QVR%%%T8SXhR%%T8U[%%%%T8W];R%%T8Y_R%%%T8[ahR%%T8]d%%%%T8_f;R%% !T8ahR%%%T8cjhR%%T8em%%%%T8go;R%%T8iqR%%%T8kshR%%T8mv%%%%T8ox;R%%T8qzR%%%T8s|hR%% !T8u~~~~~T8x';R%%T8z)R%%%T8|+hR%%T8~.%%%%T:&0;Q~~T:(2R%%%T:*4hR%%T:,7%%%%T:.9;R%% !T:0;R%%%T:2=hR%%T:4@%%%%T:6B;R%%T:8DR%%%T::FhR%%T:K;R%%T:@MR%%%T:BOhR%% !T:DR%%%%T:FT;R%%T:HVR%%%T:JXhR%%T:L[%%%%T:N];Q~~T:P_R%%%T:RahR%%T:Td%%%%T:Vf;R%% !T:XhQ~~~T:ZjhR%%T:\m%%%%T:^o;R%%T:`qR%%%T:bshR%%T:dv%%%%T:fx;R%%T:hzR%%%T:j|hR%% !T:m%%%%%T:o';R%%T:q)R%%%T:s+hR%%T:u.%%%%T:w0;R%%T:y2R%%%T:{4hR%%T:}7%%%%T<%9;R%% !T<';R%%%T<)=hR%%T<+@%%%%T<-B;R%%TtA&R(GvNO>iR*xOd>*cS&N)LX:l !S&UGH-KVS&N_fg`^R,7ihR@&R&wfi@?[R(HA3mXTR(hR<;0fR*3R\Wn(R*hVzj/pR,OJ\.&BR./l;O{LR&O=`1>GQ(x%whnEQ(.;E]%_ !Q+nLxY:bR'-QWHpkR'37]n}_Q'_dR.>IQ`gpR,Q/vqqM !R*'vX?=RQ*`E9.spR'C+IGG]R)R~73[>R+3i-5^mR+I0L^b=R+1{IjrOR)L^9B5@R'|o0Bu\R'wL*VS| !R'fJ(z`nR'RTjs:CR'D.`wQOR%wE|eHPQ'{0U\8TQ.C1EVrDR&sDHYFyR(/@ovr^R(6\uvQ3R(=PV?b) !R(Wo;[lXR({@{232R*LXi3jzR*g7+^CyR*>:ojUOR(K*7_*IR&\UtzBQQ)Ia`N[zR%z3h*qlR'1}k36r !R%rhS>8+Q+nQI0?[Q%wC8&wBQ+y^a6M=(,R&y)tG}mR(.UG/L[R(:&r6+iR(D^sf,K !R(L=+?~.R(GkEm,:R(*x(j)TQ.IaP|XcQ)km:8M4R%hNwPqiR%n^ol_9R%`=cO@|Q+DPzb5QP*y'bLT5 !Q*6=1CllQ(g9'1(gQ'03[?K^R%];'KR%T_;QonR%N\d%J&Q+8{uyOGQ'[_sx4:Q'.VtgX:Q'U\H^4i !Q'M?fW[UQ'GFH4s'Q)qkA0sbR%PxsJI=R%QIy5|5Q-3g+2&jQ+0I@s^:Q':ha)*wP&oPcnwIQ&bqYXE~ !Q(p~?x|4Q.*?^HNNR&YG%RGhR&XL6-TzR&Ox_ILEQ,hmS1w]Q,,Nq*6;Q*aC;g/3Q(C-hW23Q%M]Mu@4 !Q'>0Y;8^Q'GFz(J;Q%qiK%E}P)w6wN-lQ'6x(}A)Q)9-)rT.Q'iP,s4MQ'9a[EL;Q']FQ+?QN%mHQ)E6rm:GQ'0wFKn?Q&V]5AkjQ*;ma62=Q*qnpEleQ,5z77ElQ,'d|Ju< !Q(dkW@S^P(SR}WOaP'V8%X7|Q&eLUVSKQ(_3GZZ6Q*Bzhz@PQ*W`{7FSQ(d;5>_`P*nxAw3_Q%rO-,3V !Q'`=xv::Q'm:'5w&Q'Zg[C)IQ'fqg(DzQ'x%*pm|Q'x[KXQfQ'|]uI=MQ'`EDI=^Q'=Ix3|ZQ'0Y{yBi !Q%Q)/IEPQ&ZI_ny'Q(CDPTk@|LP'rJ\h3* !Q%b7Z8VjQ%|||d%7Q'%92@R|Q'&9-N;/Q';ggv_iQ'D}w`&QQ'3g.]QMQ%U?y0h6Q&T7GR]+Q(/P&E`M !Q(/FZP?aQ&wfsTviQ&m]nT\P,?)^q:`__O+fQbhzJP%}K{DzrP%um/.2LO({8\V~+P&h@-hl8 !P&p7%<3qP&MY*LoTO%Sz{LX1O+?yOmmSO)Ct@o&)O,]D3WB,P&{OWn=qP&mawx-rP((<(}g'P(DQVmb- !P(0z41[)P&bp*O3sO(|Ssn<^P%Pc]1^VP'`rb*OEP'}\_*iJP)1~Yn]JP)1M`e&fP'2Cx,RFN'RsniUU !O,QIJ1IO&UVU:T-O,<)X.uUO(I;LNnxO,%dTi3\N'>'c6}oO(N-niBqO%b>BkMeO)b{7&/| !O'?yr)?LO&qliE']O(A}uI/2O&q{1,cRO..p}88IO,6r_;4FO(VzJP4dO%nT%ev*P%b%Jc`:P%j8iB-- !P')@0g:@P%|yG>p-P%sb<`3*P'.`}>%`P%vmZdd;P%iV4-{CP%\V[s@MO&rGEe/nO)htIwAwO'6:}+Go !O*RlYzOgN)>'mWXAP(\JeVMdP(Zxj=s*P&^|Deb[P&g,6MLIP&wf^HsqP((]GUL*P&}FN>o8P&{4S?dY !P&|w_lx'P(.[2_DMP('{;)L6P&Xv,Sx?P(/d|hvQP&oUD-e)O*U%UKuDO*n:T{'rO,438b+`O({xI/8H !O'Vo4+bVO+t%brs?O%r-HbB]O)7fzMz\P'22i?CeP'KgvBS/P'drGG`9P'_`lH|MP).Z*hZsP):08.X9 #% [ 500] a.chi_kw !R&%%%%%%P*UpbD;uQ((V(_xGQ*I_nI{8Q.H|'I':R&c~w,6qR(%xm/3YR(Dv35r/R(k5s4B)R*;T/w.v !R*g'v=f:R,3bVb9rR,R46^mQR,e\FzxkR,iRCn?yR,UrXkL`R,%sK*%^R*2VM3':R&x_3'v3R%]=2OaV !R)H6W@l~R-/CsaO}S%Y`GsswS%hjxO:aS%u{2>|RS'(H%ZI~S'7jQtXdS'HiTW^wS'T9rD}HS'^/p&fP !S'c:^qB]S']v[JwcS'CPh%8~S'':}y,YR-Hy?If/Q,WZct;(S&_q%?hqS(PO[PF,S(~5YcElS*:m;*(y !S*,r|^IgS(aWgT5eS(1iRGVDS&UC4[x=R(6?Mk,3R'-/tfGKQ,5Q}A*,S&i}-dG7S(biSTW,S*gHs`r+ !S,EGyC4{S,%q/k-vS*47HGymS(6z?Zd*R&nCjV\cS%rW{*>6S'fm09wQS)Z-l;24S+0o`Jo7S+9'`9hu !S+2R0anGS)uA-dYcS)Tj(kcsS'dl/<0}S%jAFL)sQ(2x4vlDS(5.Y^(gS*MgnYF+S,TqH%:oS.IyF'v* !S.XL&=aoS,p;>'}wS*Gsa)-~S&mxFoL-S''YOe%wS)K))sHJS+JYUH2WS-,S>HicS-8-O|/8S+rHXOI^ !S+2kjV5KS)[wcl%xS)]&euwFS+)2i&DbS+<~P}8jS)iqx.9wS'e>%KJ&S%zLiA:uS%whLt@,S'(kUtXe !S%Y7qx{[S&YbVd1kS(z*9Ba}S,%{8%vMS,rx2.&JS.sr)KdTS2CF&)MmS63t_m4*S8u=FE9,S:jU,)B0 !S:BjN`+cS6Q3MK/~S0EzZw-9S*8oL0gkR)X3]^9+S)Mw3OwLS+z0)&YeS-F.@Vm]S/4EhDZSS3qP,ua@ !S;)J+Mb}S?ZM{,+>SAc]St5*S?zq=G0@S;{.~407S70~fVFoS/h3@t0|S);,fz*5R,X5.A/1S(B'BM*c !S&Y3>%t&S%gaxH|=S'By\-}0S(/]WkjnS6,{39u(SH{9*.}7SV+ok-]/SXDFoDOaSTi|8G;gSPx_,jF} !SLoTrj0JSDN1*r !S)25p1RzS1:M7f('S1bu|f4}S%gBFG~FS<&T=5nBSR_)PBAgSZ~{Z=3WS^'QBu&'SZfAK,n=SR*B8J,5 !S@%[)=1nS(f.uyc~S5hkn^pNSEb-*beZSO=d>SGMSS2X~:v7SO`A-&'jSG&E(],OS?yf//kYS?b8}7bi !S=OqH@4wS;%ilQRyS7zdxR>nS1q>f^TpS'PA'i~;S,Acv4a]S2gg%R[dS6f_:Y'VS8OO%R5sS:6(~HP' !S>abL0pcSF)'U<|JSN7@/361SRv;x{`USL@4Xp8=S>4cVq'FS0CHG_Z&S).J{rv|>6LS.{Qu_L5S4Rn]jcfS8vfp+ipSS.~wGm'bS+61zgmNS5`_Yb=jS7U|&yfiS3hlDhHsS+}6qDknR,SY)V^q !S*_cRU*sS*/h^^^GS'G^kD[rS3j;EZ3:S=7swj8iS9qEnq6RS3~ey92}S5em=_)(S9f*r-{:S9m^2ket !S7-G;:WJS/3(\}_YR'z[aKBtS.\pqAEIS:K:QWS6SFu@i&cMSPq_&3MHST[w^I3MSPI_8x?jS@yhE-}= !S*?va,IBS1cLRUvS'd+erf{S)Gr4mH' !S)R4>MlS(/j1Vb1S.[etJILS0sqZ?S-,Nb`8(S+^ghR{NS+|eRue|S-Ld,&]~S-PgWVv%S-\nebBUS+vx6sYFS+&C5`T(S)cQPzTS !S'4nku[^S(L1[it,S,;tQ9B3S,{RX9};S.2j4ZdrS,fr=+>mS,12Whg{S,)pL4h8S*dq3yt{S(9R[5mR !R)J9-QmqS%q~UQ>[S%ZwVR)?S&SY`z@]S(gh{@A0S(Mj|hL?Q+:-mbuTR*>aLQPAS&\>3c:uS%R@C6GE !S'q^1YW:S)a|Tc]-S)i\t2*NS)mu9R+[:~'xS'T0xBsyS(Qnmd_OS,7amjS@ !S,9,,rKGS*aRCHcxS*EG@Z0=S*UCN.v}QTJ0S(Kq(/wFS&aV2h0uR%PdR:S1R-Oe^\O3R)ESbmsa !R+{GF6apS%]=_NFSR*zrV|2CS('9ISBYR,\:~1|)S%b}0}l>S'gy4:|>S)HMsaAbS)`j_T:_S)o>(`RV !S)[:TTEXS'nHSE;ES%UgLR1nS&`>8^TDS()wYV.S(N3:Co(S(2`FBG;S(Cz-?K[S(V@XNnzS(8hx]6YS&UjceYxR+>BDv=4S'%}e|k=S'Ck[Aig !S';vb[-yS%iel,;wS%RT;<{=S%]oK8BdS%{yA`yDS'BrH^LcS'V7eZ[]S'>{%4qlR)uvDFedS&c,Bfh` !S&_jYY}-R),W'qN4S(1Oh.dYS(>qf5G< !S(G[v\pVS(F?N|gnS('e4|X;S&`~G(clR.Gh\P* !R,b]uC36R(~mFJ4DQ)B)Hr`wR'OoNC&JR')k*N`@R(^EwFJ(R.EAeWOuR,b=~8]rS&Odb+DoS&\v&GM+ !S&T08y:CR,63>AU^R&wo4I44R)=n-BBSS%kX83V+S%yQk^Y6S'&ef&zOS'&t=d)?S%VWnJYeQ%fNsoA{ !R(c4NlI`R'9^<~lXQ*^0;Wx3R(Zj{,/7R&c8rjxQR(Q&OC0QQ%^7?,+GR&fPjo>CQ+JPf6pKR'Dz)KS%Sexg6.S%N}]y`IS%ZJ8A&`S%Q'p|&nR-/U7b,qR+DYG>O`R&O60Q+5KrkgS.J[dCy]S.W'|o-TS.cN;@;JS.otSkIAS.|@lc\^OS2+d|-lFS281:XzSAj%~`eKpS>2Jy6YgS>>q7ag] !S>K=P2uTS>Wch^)JS>d0'/7AS>pV?ZE7S>||X+S.S@/HpV`~S@;o/'nuS@H;GR|lS@Ta_~0bS@a-xO>Y !S@mT6zLOS@yzOKZFSB,Fgvhs*)SBQ_WD7zSB^+ooEpSBjR.@SgSBvxFka]SD)D_1huSF&BV\vlSF2ho.*bSF?5-Y8YSFK[F*FO !SFX'^UTFSFdMw&bEC+ASJ,d]n97SJ90v?G.SJEW4jT~SJQ}M;buSJ^IefplSJjo~7~bSJw<:OSPn5|iHFSPz\;:V< !SR-(Sed3SR9Nl6r)SREu*b%zSRRAC33pSR^g[^AgSRk3t/O]SRwZ2Z]TST*&K+kJST6LcVyASTBr|(-7 !STO?:S;.ST[eR~H~STh1kOVuSTtX)zdkSV&~BKrbSV3JZw&YSV?psH4OSVL=1sBFSVXcJDP')R3Sb-d?T`)Sb:0X%mz !SbFVpP{pSbR}.|/gSb_IGM=]Sbko_xKTSbx;xIYJSd*b6tgASd7.OEu7SdCTgq).SdO{&B6~Sd\G>mDu !SdhmW>RkSdu9oi`bSf'`.:nYSf4,Fe|OSf@R_70FSfLxwb>,)gSh=PVW7]ShIvo(ETShVC-SSJShbiE~aASho5^Oo7Sh{[vz}.Sj.(5L0~Sj:NMw>uSjFtfHLk !SjS@~sZbSj_g=DhYSjl3UovOSjxYnA*FSl+&,l8v9azSl\e4dopSli1M5}g !SluWea1]Sn'}~2?TSn4J<]MJSn@pU.[ASnM2BF3T !SxJXZqAJSxV~sBOASxcK1m]7SxoqJ>k.Sx|=bix~Sz.c{;,uSz;09f:kSzGVR7HbSzS|jbVYSz`I)3dO !SzloA^rFSzy;Z0&eYR(V>w1jPR*1y?LxW !R*`_sX~UR,+xn[3kR,J-L+2&R,fjdb2WR./(*UPmS&NT=]:/S&T3.);wS&Z8sm,)S&_QaikES&bZ(MTz !S&bL*C&PS&^v{XTwS&YZi{gcS&VO\pNS(:7VO{*S(Tx@6bhS(f4;T@fS(l3v4Z_S(iQ4lT[S(e{0*2VS(lJY}.m !S*(`yIypSF5E_?cdSLfO}j_CSTc**Y-I !S\gtY,raSdT4rHA'SjaSN6oxSnsJeuczSptQ;/}/SpXv2K1=SlyoCL7SBU'v;q2S>rqj-gCS:{,oc-SMTGS0_As:BhS.<*OHLVS,QYZH|cS,OZl?C !S0.zkTMNS0Y-GJ;bS0xJZA=YS22a7L8ES2;^NCb\S28nN0;,S2)_rWsUS0h1`\o(S0AFMGsTS.kqhsa_ !S.7HX+t>S*\~sr^dS*=i&J*6S*(rCXR)S(x:xadIS(w4(eP=S(}H)ZR{S*,vr1GI !S*5(WgB]S*7r>4JJS*332)v?S*&fm;U>\ZjS.i,CX}7S.7O86&kS,c/\kN.S,<_e@Q]S*{Y/5H]S*n0|tP7S*o;GM&l !S*~[I[bTS,@givz5S,g>>S(IdB,>mS(6mGd`VAS*a_^OEwS*`NxRkpS*Wr3Y&xS*HoVSo:S*50y*s/S(xxBDm3S(bGtfv]S(ME@&iJS(;+>szq !S(,+=(diS&zMEWLdS&r=z}82S&mxkLM)S&mtX41(S&r(:0K0S&yCR{'mS((3b+=HS(0s+0B%S(80d(}h !S(=*?(^\S(?7?L5.S(>S>2S+S(;{=S1J;|Z6TS1o3(?&FS1|TR=*`S3(c%b[IS3*O|_(US3)Xmh7`S1}*{I1^S1wb~.U6S1z@81Vt !S3%QdmwZS3)V==}IS3+2a{{lS3*<\_'ES3&qxFA+S1yXrF[CS1j9\r*SS1Hiv@yBS/P+o{)=S's@_I;. !S.I=frmHS0{(g0t,S2Mn~|ktS2[N>'7PS2]uXCWyS2eoU%0+S2uuE2g8S4(pgD4[S4*Ki`99S4%yVV@w !S4(0n(hcS4+0nVv|S4*qb@itS2yEu%\9S2A^J-dYS.hJg9]sS(vtiDr/S'JY28>)S+WxCy~7S-[[S?P{ !S/DTSn/&S14^<5}|S1t8&eX[S3(3}U&IS1Ew@ztsS-~58SV'S+LlhkZIS)%\g~I'S%Y@Hm/qS&i{XoNU !S*2z)lxq:PJ !S/97J4yNS/6rd+i=S%otG2Z*R'MeodmXR(e:DlbCS&wak}t?S2.?^?5SS,8x*MqkS&\hjV]kR&dc,1OJ !S%Tc}JSuS)gqv4zkS1h6n{8{S1jcGA??S1+@=|woS/\,CImJS-H^_rceS),v+9FUS&SnQVpsS.35+Xa\ !S2jb5Py1S2yAXKqQS2/C0{F5S0Vd-v;US2XsKu/DS2Y%3/oDS07(?D;?S%Z`/EE&S/&|d&yBS17dc_2A !S1Eq)6{ES1'GQb|PS1/0KxN.S1ibEOFxS3')tNg1S/JWQB%.S).S1AXTR'TT&(RwS(ATqW@]S,}hUH%R !S2rsxMr?S23@ZU0NS*r&j8q%S&kpp38,S%ca('&^S+.-cr=mS/zI:`sRS3%x[P*vS1ybAug5S1:y}9.n !S-YKo7QnS'oAN&PfS&p[4IY_S,NG1>fDS0|w}Jj1S4*bUjJ{S2,2BcabS*{yHDMdS&i5KewKR+75hj}+ !S'R[Kv`gS-`n|S0QS1}2RW)GS)p]gj0@S%_;`2sVR&z>QmPXS((ei>RAS.@_j/1OS4)?w1N~S.HSKTKM !S(ro[?4\S&dfEyrDR)-F/XJ/S'8WURwFS)=te(fUS+O~q@HnS/%,-U.DS1Uko3~mS3%*pn)QS-e^4B`4 !S'JG;evTR%c}1\KqS&y5oh[VS,k+A9|jS4%d@ahAS*L@mx2S1ew3Ar| !S-o2K%rjS'EpUm_^R%ui[WumS(NT,rRUS.VqP}3sS2U'H)]~S2|?DG57S4+*:nWhS2q8A2U_S0F6+u_N !S*K;Zf|\R*2)f[].S'_bOj`yS-]zdp{=S1|\u%&gS1)_NI-dS)`kiw&UR)j~s:6|S*0>hv7=S0rL~;Wj !S4')WhjXS0.GUAW\S(O7U~/^S+(i;6']S1BzL|5/S3+-i6r`S1MT8O,}S-OIly6pR'fb%pmkS.7C/N~K !S2N?Qqu9S4*AAG69S0~&;tUCS*Az_pR@S--&Q7.S%aX+t/mS+ltd)]FS1>64;[]S1~/FfCKS3*wqB9WS1zK;&iu !S1GUn_RzS-YKB\%wS'?yo_^OS*0U1&=3S0@yp}8qS2z0Yf:`S2h1fIUFS.xaAXkoS(axXx{%S)k%2ZwSS+gPMx?PR*}Rn[cQS.=9,iuMS2=b`c~OS2~dsDY|S2y]IME/S0mp0KnFS*le+'(G !S'J;^fc+S/)XMUz;S1tV_bqQS1n/l=p'S-ySKaPWS%|C50&fS.1=;rr/S2W1N<^lS4+*jcO5S2YQce'5 !S.eI2OF7yS'8:)EOvS0ZyaB]fS2x{es:*S2zi9s(3S0R4t+20S-~NMvth !S1x-blOOS1sFR(*G^*K]R&Zutu(SQ*s5?aA*Q,[T`%=gR&iWTByaR(7T3})BR(I'c3`w !R(8yi2=yR&g.dPhRQ&tIvxIPR%[vXs}%R'EjJ@eRR)=e0_YAR+LhJ=0,S%PDF};zS%[vIWv&S%bM_{9m !S%`~j6[pS%Xb@-LjS%N~e;j~R-.G+eyGR-4\hhW*R-9rYRidR+H>K1P\R'KK*RjaR&kz%Z0pR(touPpi !R(ARsA-3Q(`|5fMBR&Wafa;nR,wwN_?8S&zlvwh>S(P~I3lfS(icg;6xS(h:Fk]=S(\Y^xlVS(W@p61f !S(V8SDF.S(CT`9QKS&dTGb:QR+21*%~pS'HReaqJS)5dp%m,S)]z}UiCS+&-<6D,S+\MZJ\eS-Ew8cV~ !S-gPTdvXS-0??pv(S)?Jy`^gS&QjBCt\S,qVAop9S4^sFaR&SY[e/gpST`*IxACSVaToU:g !SJ(A9Ei8S6xDoG|cS(s='zxNS'P3zPIsS)88FZ5}S)CIdLQFS)z3|'4HS+e*bV_aS+e8P3+yS)XK=,eG !S%q>>2@^S&Q6uW%'S&vhUjS&t]AX[ES(3vL8nHS(,[)]]GS&nK^qt^ !S&g10&u{S&}{xGT'S(cS-r0M9;j !S'>Z)KgNS*`'5v](S0`Ef'((S2q>SV;+S22PL;CPS.;k+UmhS*0mn00eS&N~[gs;S%^a@1JyS'R;)9|N !S)H}Vs,3S+7' !S/L&I8J-S7PW1H=*S7FeeGoUS1_JlFKu !R.FrCg_;S*Gzo5}GS,%1Xj8+S*Iq\/OjS(6pw<}]Q-0mdy-PS'%tKLTwS'`ewGQuS'}EhGm5S'o`)m&4 !S'+~+AxsR(MO[CX)S(E:vVq7S({KCuqcS(^fE;F\S&^hMOw\R+xe !R'z1U0(0S%]r1\qzS'9i:2IWS'A{SJQHS%P5dG\qS(+3.5vpS*Rl.^?IS*{hvLEuS*/f.1gDS&Qx;LT. !S%oJ0%<3S%yztKp1R*]-wj?wS({6SS2KS*pZOOEYS(|,^I=yS%YsiW=QS+c]kwaKS/kUN[S[S/fvH)v9 !S+R^I=PjR'KD^aK]S*sWa{{wS.HO'hwhS..jZ?yoS*QI';}gR,rb3(n1S'NW|k_mS)YLr;2JS)g?528M !S'oZMn{[Q*.w8-48S*@cvh[V !S+MM=}d+R*N+iEiKS,G)3wqYS.nH-;x3S.L.Sd%eS*}.anEqS(Lb-5;~R.>~(+AdR%iN1MdoS%Q<9FeY !S'4i>}sqS)-15,,}S)n{}NoLS)t97F]5S)*NkBe`S%[=HqHvS&y8GNg7S(~Gw1[jS*?0%kW3S(x5LE0R !S(:8DSxcS&W]1CR5R&X9Gs/IR+5i_Dn.S%^rFT'YS%t+5(ayS%rI%ODDS%N6B]mLR*23_j*MS&hvR(ws !S&c.A-CzR'SeSGrcS'Ibv.9SS)@8bhD?S)/nM5VBS%eO{kG\S(@C[P|ES*vbnQzQ(-`Vb2tQ)coux{jR+b;yp/TR+t+]>-VR-&>fwr,R+zXGh5^R+KijuJ[R):n~snrR%N2,T:6 !R(O+yE,VR*v>p>CWR,S``AyWR,\x^nmzR,},z[V-S&S5e9.&S&a{uV?2S&khd'bSS&hqHI1@S&\/:8ie !S&S5.P{BS&[Xt|;~S&u0*uU9S(4N5CgdS(6~3si?S&s;`?DpR,/~YOcgR)7x>z&`S%Z+S0(8S%tmSru? !S'B4z`gYS'|~v&Y}S)^lHbcJS){alH~pS)g}vvd&S)1&92yQS'P+gG*HS%{h{x`;R+j^yD~pS&fUjwSH !S*Z48RplS.x>g;b3S4*_Rq*fS6J=7q+qS6jIX^1rS6+mc%ToS0sWd@kpS(3Oz1oOS1ohLxq2SG;Ae}?i !SYkO97H%SaV93ZIsSUa?p)z}S72lw|\QS<.\be%9S^;E,G2=SlN%szOLSb[v|dvUSH9WnsNLS*0O^TE] !S5Vtb;xiS=EZv1vtS9pT_eAmS3Kg};7wS-oBue[mS+\pL9BIS)r/X+xrS'Tt;eQJR,W;?LG|S(z,.t58 !S*LB/;`dS(ogKks7S&qb|-wtR*_`Rf@Wz1S0=Ix_i:S0]KgKT7S.sUM9GeS*V_4bMqS'\O*p'u !S30zA_gVS=FcV:?3SC(2RsrxS?BA(]veS37goS45S(=)tA_'S6v?%8+mS@(36vwkS>qwQRZ&S8UdBQN_ !S0:y2~h8S(g9XHEtR+PwX%H|S'GMgK{RS)-adb:DS+'HzR8IS-DCl,bKS/w8J|c:S39[OmW^S3HUc11m !S/Bi:&V|S%O\e)OeS2GW<'PTS>rISHmYSDsE{L[LS@D&UacPS0cAn;xoS-+x7X9jS;qN/QaaSA]CvI.U !S=(rBzwPS1;~NZ2@R+uV^Q%%S,@TFWFFS.J9bVSHS,~^?QoZS,M4iR)tS,OU_X4ES,o99f?XS,g-3pv9 !S*YSL>v2R,>vLQHrS)O{riUAS-z3++|RS17G)2uIS/f6>i:ZS+X;-SfNS%MWWEQ?S*Qsi;PdS.7fhS'drvUyoS)5ZMb', !S'Cq+x1ER(O\*W6SS(/2f.M{S&^t,%A5S'kf8S-3~gtJ~S'MHAxQ/S*.=+f^` !S.tggsGsS0eyL&?>S.L-wdo>S(nu'C6-S%u`c4dRS)ep_7*oS+:YnjZTS)XqV;m*S'/9|da4S&d/1/Hk !S*FTk.X^S,@g8qRyS*yM3TlOS()k~;Q.S'r9jBEKS-[a-ut/S/m-Wu],S-\0-HP7S'D5XKHmS*\p2aY~ !S0V/*s,7S2;zimy@S.f4N-9FS({v:lcZS%`3?xS)*}P.^LS)'7wQ[/ !S)%,DD['S'XiM-'pS%T@]kVZS&yuE_UjS*?8'|NSS*{]q>X,S*dt.p&gS(eGXkfTS&N%yQVHS%YW{+Q` !S'2fY3?{S'?2YMT9S'6bK@'oS''0@j9CS%jd~]LvR+ed0MbGR(`EK2nOS&\Zr7G>S&`-y8+=R(4]zi(s !S%jRD/r@S'K07^*AS':0:/=cQ-Q6:}a~S(_'h(2\S*usWJ{)S*wA>7}1S(W*[My3S%U(V1@QS)BK@6*3 !S+'{M>uHS)S^d+A(S'<9UdPiR&nS+SVYS(+oJ=_1S(aO3C;ZS(~R`f.IS*+3~xZ1S(gP*3'PS&qs&-_p !S%O_E77LS'm7?j9ZS)X?WE<}S)L[[uN%S'Ri*7uyR)>j2u[/S&s2eF<~S(M'A=dPS(M@K>MBS('=H8[_ !R,utu^LzR)SLpmpPS%dH~QFhS%m4y-e;S%P5=KzYR(IB^E~IS&i0v*9:S('ZKb,RS&jaAoP9R&vZa2]& !S%cS/J5OS'7}1'PnS':H(uc(S%l>frKGR%r\}k~(S&Yj/,L|S&{c9TGbS&uTVkFZR,}[{bspR+6nH3s: !S%w?i?q?S'(j7+g6S%VXw?H+R,y)b,(zS(E/k5t]S(rE(QsT #% [ 500] a.win !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !3&q}OOE1Q&cK2}C`HΘgRÈ>û¿Ÿ®·îêžî@R²lOb‘3=ýR]]]]ý©ªýOÿ6»þôßÞéÏÁÁÃÏ>{dþ=8üìÑþW~þÍ8|ðكãGþíàðà³Çÿ–=z·Ý¢Ÿe»È›,û·ó¦8Ÿõ”[÷þú³órRVåâäd¾zm˜ù.Z[ý¬ž,§…©äº\\dåÂÔýÕ6_/Ï/°˜TÓÔ3ü{V· SѸ¨YY™)œN‹‰©áªhÚ²®²ú k6^¶Åd„ߘßx’Ÿš±.ê¬ãòle†ZŽ/Ô—¦ìUqž_—“óbÑBièAvº2µ”Õ9Ö× þh¸—-«ñ‚[6/MÔåý{÷˜Ä% ¸®¦+&w…íPóæmU/ ¥›T‘ãoåx9Í‘p¦’¦˜y[˜ ‰ÈY»jå×ÚþÖ÷îMŠ³ìä"o¿Á 'e³÷ä^f~~›}­çãq1_@µ'ÿ8ùþäoDw—éÕ¤5ý!Ò²?p{^=¦ÿRGÙÂ\á÷ 1øiŠÅ²©²Ã{êà˜¯ËÆ0¸á=XXeK‚¹0O\ß™µì5‘ß›ü§ýÿû¯ž>ùÕ»jcÍþðøà±ÚÿLùÃÇGvûÿûøéˆ$þùÛÊ쾕ÞïaQÞUs³%ÖÓK³F@Ìž.ËéVûEy~qj¤ÀÔˆ&³,—f=ÉZV÷TÅn}}i–™Y{´Zö©™§fNêñrf6ø÷Õü´^.¤ù’tÓö äÝÅb6Å=µÍZ#‹‰4…¦žA&Rså‹Ü츼ŸŠ¼4=£¿š­êe“ýPœb%§M} ªƒ‘WeqM-Ã5ZV“âí>ô` ݲmáçJF‡š‹ÝÒ¾ù§õ›óÉÑ;:nþ;:ýwþ{÷?þüCß}ÛÍ?Èÿ£ÏìÎÿïå§;ÿMqædÚ´Ñ¿ÿÐùŸçÿùýðÑC˜ÿÝþÿîp‹úLõŸù×"Ÿð¯³b‘gF?.Ž?™í¸)ç°‚;šÙ¾Ž?ÝøþÍtÖ>é6ŵ«fæXt¤”ú=“?‚úGÙù²4g~R,¤‰E¹˜†./šŽ·³¼ZæFÕ~ÿÓ§T‚JJt ?NëÉ*;=×Óº9þä·gøóI¶(ÞšÞý–ØøsN«.ùÏ¢øäÞÿçŠ|(M>üóŸòì þø“—f~Ÿšã±XÍ EH™}ïùŸ>Íï ™i‚6èáÝ4ðºžã:šÇÔȧ†dæ?fvèL}¹s¹\,êêËú­ê—}vû‘?«g§µ_»<º‹Ê—À™^ÝøäöUU-šÕ×e1¨ÚÝÃÛ7ð—¦^ÎUÝø÷í«ýk gŸÕk#”Tåêéí›ø&?5'–IgÁxÏï`͘ãÒË¢Z~™ë VOïbYvª¿»ªÛ6?/ÂÚåáíø¶^_Öõ¥ª^ݾòïpb¨êÝÃÛ7𷼊pzzû&¾Ï'eýÊpäX7¡žÞ¾‰W㦆+‡gyu•·ªÿÅÝ5 $ïù6Ó,Ö <¿»f¾1RÉß‚7w×T õãÛ7òºœÝ­H=]»·?/ói}~ç{ûS°–QݪcêéÝíïVüw¶×GÚQÏoßL§þ»ª˜e§~ïùÖÆœ‚ºs®ßÁªBùi6ƒN;Á›;X[f…vZq×®¬—e;.¦S³±ÔË»×M麮´æLOn?î/§Z^™¿îb™ƒ«·rÌßwÀq³ë¯ùÚ[¶À—hÄ··ám8KïýÐJÏÏêj‘µå¿Šãû||^Ó8„îe÷é~äQötyž< ¿ïg–ÎVöÉŸÿZó&‰MÇ{ô§O¡3B‰OÁ´`MÖ ó¾ïÿ´ý/Ü:nßF¿ýîýö¿Ç‡vö¿÷ñóÚÿ´Ôµ´}8V@_]³v?+¹XLëËbòØ ÉÏ>!yôùC%‹þD›&l˜þü-ª÷æµ?ÎÃN ÷Ìlc'®Ô«¯áFtR¶ói¾²à@PàçàpA‹×·÷@Þ»G[köEuQ4%˜¶ü¦·VÀ@VþÜñlwhtË,×Êb¼Øæßyˆ„ÎâQ¶Þ úîuóù|ZŽñÍ(k—棼EŽ m€Oç«Æ,‹É]RM ÿ—ÓvŸÈdú/_›j»SfxG Ý4ß…f9¨žÅ©.`ËØÂð¼,Ýé ‹ˆr¤ŠV8õü<«‘^{f)u溘ȇW¹ÙŠ[¬±]ÂÇxÉÞ¹Ñár×ZmH" ”3 /F¼ {…,yl1d§N)$™+c•.õʱEäYêMŠ³|9%PŸcó:°T)¶0aµñE^4]µ _B '§åb–ÏQU@"§ëX|}%\ü¥ê„NþPÉŒá4o‹{l‚ÏòFL W˜ Ü—6ÿÄâ•;dX^å‹ÂôÔÈ=ÐÎòˆ ”ºÑ¢_œQ߀'ÍܶrÐ)Á÷™‰pR‡ñLØq”ÄRÒ²[Ž9&’—vÆ÷qny¡eé/m÷5­ùŒÁ_)"ø¥¢D¨Ê…‘eKk«Ç^Â'ÞÓâÁ í´@¡’¯Ü:bÁƒÛ Ñ,†Eä-lM€.ÔˆÃ,H\üIz [Pë± oTâ·[RgžOPW0A `qF¬MB’.Š@Y½H˜qÓÑÁÖcZõŽiuÃ1auEýÅ•ø·‚77§õÛyݦƣŠl1¨Wˆ“¸©yHûa[N ™¿43‰èn|E ˆª~»Ÿe/¶ ¬oÖ)|nù°Ò²×>m£O‹böÆ=¿VÌœdøv+ŽÇî÷S3JHÄ{Ïx¬F=^*Úô•±¼0ñ­%ê‚¥’ ãH.ª\DýIDL m8x6­Ûb0ÚÛb„ýâ¿Gì;žÈôÝÌ=Jn+ìséxgó†ñ]Õ—FÖ–sæŤ˜ §~ð Ó³rš}ÜݱÛ8o@°×=<{Þœ#Špä€ö '—­„å®Q™ëÜöl¤yÌÛ_D‹¢˜ÛNÓ F;N{1)(/Îœf¥W“]5D²Üí¯ Å§ÅE~UÖËFH Jy!{¦GÕ3Ä4·´Û82 Õ¤É¯-ã…e¡a*¿=¦§®C Ú¥Ý#»OKô¼(ZÓ¤¨‹ä]eévÛ~×»®öó§Ü»S€Ac*P„¸w¥q 4'IB¨2ýâÀcÍÄâß·¼/ üûtñÇïÑýáßÏ´ i.‹ ïh*NI¼ç\ä —í(Ö.Ïq!­fj9:,o¹Ei‰4…Ùª–•ÈFánúº ‰!âð°F³Œ±Îâì ..SÓ»NÚÅÌÀ25±®À •œÓbq]ð¤¼CåjJë5üöîTo$žFCCÂùþÙu™ëmt™YÞ¢Ñ(J@z™ÔdØ‹ÎÚâ§2C°ÅE=A-ÀÑ›X2ÍÅ(G¹¡öŸŠÙŸM^µ¥ÙŸÿô©ù+›,ÑÛlVOò)¯òÖ,ÚWEa+éo>M®¹9W‹mhÖæ›|Q7FV/.´ó mÁƒjã8G‡$ S^Eú´i Œ…ÛKEœ0MÜÖƒÕN¼Eê¤0.Qx4¾(§F!-YerPêœ (2éW1hö }=ŒG'q†TâQvêIjòÒ0š'qÍ[>ÒNêõ¶Ä,͹ʪ¢˜ðyº-l+)MÏò쪄’B?¨‡Éª~ݞ݉ &srœwð]ß²Ca„‡~ˈB©-“®4<úó77×|kÕ3aÐ`å^8Ö[Ýéʲ¤;ë®;讣­šúÀMG`ÌP,‹ ¯¹b…Ɉ””áÚeI“ß*5¼XN§'´.h™g‡£ Ÿ6Å´,ÎÀë‘ÀÀ)y_®¤)^ na¢µzs4g«:ÊÒ0q À Héƒ~©uTVkÝ'§œÉØÒŠ›Ì¢È5šE¨1–BrÃLÕ¸½È­Pß,t ¿ñ4ufè“îmû„ªÚ„þÀ ¢Ã«$¥ÍvØ‚àFÖ¢ÚTZ6š~†6ß!Õl£l‚m܆a*Â93¦ˆhdêÙ²Á¯½ùáC .æÍ©baÑ›¯õ/y2+B-1e)Mªüá˜H´}Ô"7¬v˜M Û•¯Ý]YžÑ…¡3‘¾Â/G¸ƒm}¹È«•ÞkᎪe7‰vðúÒ]K92o@â%´Ð¢iêFk¢›Î,â7šVV²Sz)½s}Á”æÀÓÝc³`ˆl·~(¨h»µtR^•ÙBDɵîSýíá$ê§|Œ„¥#=6²þò’žÊËë@MÛ‚9s°º@i©¯«ý{_£)WA"ämI×ÙF‚òg°¤éäžFÀ¢ü¼¼'Dî¹ôþ-W—ºü¶+Ô^1*ÛW…£3d#²fxZ'¹³¨ç$Fð„F®Q@õ¶Êçí…Ѽ=}2šÁHÀ÷x/›7õd96"’Œt— lû¦ÓëæMñgÒ³çŬ~";v&ሆm1=etrSá3l^×öEç¾yðÅþƒ½î{wÕf4Ú•ù;ìÊ!·*.UÃ5‹‡jøxžWçdžˆÎK+s:fåp‚*“'ÙáçÙK£™:~ØÉ_ÃOÿ©¡ÍwÓF?þóÁgŸ=TþÿðûᣣÃÃþó}ü|ŒøOæðûiÝ Ò¸OY¨ÌçÃ#‹ù<üü‹`>¹f‡÷”“ë'0ÓÙ¢œ·Ÿàd›9[ÎNÉÐ+a‚nŠôÜÈOú†8Ï씧\)øã¼RF'DJefŸ6ê,¨Hr„lÅ µ‚r ¹R×B³ε‡y0äÑæ)9˜ƒ:­,ÊYÁQMOòi[ëØ:Æè]ˆ¨ ÐuÌ‘c ¿3§±õƒöZŠÍBXÉM®T<¯@íY -FNâºø™¦›â§ei”di+jGêÎèÔ¨îÂL öñ"?ïÜ$ɽ“ŠÕ(ÇHì0Ž[7]N'ª›ª® Õ¤Dƒq”góz¾œ[šYø¯:»Ò,7 HCœ=¹ÍÈ™c¼1…êÙ0OM”­…_Tîj›™ùߦûÕjƒF+.+¦j°àõ²mcƒŸ×æ€íâS£%DñYy¾lÐ^1ev_äÔ^Q"37Å44ˆ@ö‚Á×ÝÒ2Ö"X\èx¬“A§Ü¥@‘‡aûW ¬†kºÞ‰ €þ×õ¼hà ÁH¡m\·õªÉÉR8£ûhÿðXÌ,ÐëÂœ Å,ËÂ2;@ð Þƒ4æ¢*×y¹HYÝùuÊ8냙pÙRU„ÈáeY©‡jJËë*,Àà¶xTVÛM@«,Eðè`›{Ü€b{…Ù pbT“×i-Ý †›S£WEá4o£OW‰ëÊÔ«^‰KŽ!1˜®p÷UvQĦ›M¦²°†(Ò–`ÕT'=q¼l€–]™ÈU˜ýéB!á×fü‹zë‘]34X7CËØÛ÷•ä¢±OdFu)ÿfIŠø<|»‡«Ï©…¡Ì4®Ìƒ·E‹q³æ…ùOµ˜®ÒŒãzÜÍ"O^=ã»;cž»8bË´´l7âVÈ&ŠwÔÊõµ‚ˆªÊØ ¬%ÆS#TPÍÿÚ¶—9Ý/`m€ñ^•y÷Æ;ßA³wB(é9óI¶ÙœÙ{æΖIÎa»ZÙ0ôK6ŒS´à’)ÛÈYˆnEí-x×¹©.HGºÀu%^°$q¡Ï›H³Ô÷½ÔÌÄÞÕ>þk ù#z[ŸJ'ÆÄo7à/_Öeôî¾hiËú¾ŠFõ'®±DY¡{gÑÌÌ tkN÷ÁpÞ vvÕK­ÕVÔ²[@?­èÑŽóFTꈴ­©tø‹Â´í? L¢<”ÁwIÒ¸Ö­²œgR‡ ÏR#âK 0†(ËÝö9…[ãU÷Þšpš/ÏØ›FúƒS£(^*e²bP1b.µ5ƒ$R%ÿ{Ù.|€”£'0¯ˆ`%XfŒíæ«WJdQ¼{@E`[ñ9§ðH²Ëô´TúÖh×ÕÎü:Âs\쫧¤Ù‡Ùq|wÜS¢‰oËAé¬ÎÉ,4˜µ5mÜÚø õ)$GÁ9Õ··E-wÆà“DhíÕöUx 6h‹þ¡^x‹ß˜WA@öä‰Õœöß©j¯ÃzÀ®¾p"ؽR¹Ðáh{ŠtaBK¬À žy­?E¸"ÔjhŠY}eM¶1YÈ\7žyC½K9lºŽ5ÇÀ{'YÞņìsóŽˆq=u/²æÔ!Züú!N¢w„®€¿È‚ISc~ŘÊíFÜ­Rðžw:ÞE~Þ#KøíqbJ}×¼0'ž÷$b˜ù¹=gYY©~‡tÚyíõÕ{Vª£ÊiØkà6‹pñ îFb…WF?—ÄÒSnÄ©6]æãeÕÏéô~+^WŒú=ö¤sÏ¢Æ!ArR¬kIÓaß X×óë†`¼ÄÈtî·ƒS¦VöTwä<Ž#¸kÃÙ•‘åc TìÞSËE=³`÷-0®ÕÎë‚Ž¾´þY n?iøàøú¼€i]‘ç«3}ØÙ$/›yÀàÆ…¼lƱ"hø†ù‚j·YRmL ¤%é‘€®‡Ñîõ8†3›öòèÝš£,ÔwFýµ‚x¡vÁ²øàI¡Þ±žw†yÆ€£m=+,_â¶ÊáˆG4ïÖVpÖtÕC—Ûv¼RôðÀâA©r’™ûìâÆñó.°óÒî ªëB œ¦õ)OA{ûFÚÐØp0[ ¨õ>BrÏêºSG–,S'(q$4¨½è,à©gˆŸl? ·½|yͬ‹zéþà«jÁvðö®ÃÇöK¹æ¨¹ÄººÐ^"á­¯ ŒÆÃßnHÇ[ ?6ÂJér†:è÷Ê,ªu2Ãßó¾¸y—ê9öÈ4šê|Ô.Ë1Ma_Çþî›g°8êê7ÁèçKS”ªØ‹¶tã©:ÌÀ~Èê³fþ‘oÒX‚þT8²Á†3BZ !:4N$‡Dºð ú½!LàdëyVâ«¢YaÈÒ•Y?çû7mp#ÿœ'J˜ü9ÆÏz¯ ÝÝÓ3ÐWŽ2F,ÞTÖ‹ôy!±Â Ü l— œ|h;ýÀ2áô3QŸNèz‹ Íä~c^–ÿ*èaSœcÕîùšH¦¸Hî@r·;% Ø­ñaª††¤6â!ú6OLÃ!ºs 0óô{EÕö ¯ÃEŸÀ?÷¼zö˪-dˆIï²Ðb;, THíûD$í g ¾©P6e_—l$JV†ÍöUÂᜯ”’µ`k\ËQ¼C©oåtjî¡Tñ ^ÅÓŠìèoÂe> *÷ç‚V y¤™YáHGVh—Õe¡·üD5ú«‘ ÷úy}÷ÈS6<€¥ÃH¦X¼©¼ƒã›Ê¬MHœAªL#HþcwMFgë‡óWÅoÞTÿÕâÅ_¹øÍæõF§0ež(3UÄŽÕ ­{E|â °;8O‡Ë¼>7;:üÿ‘7ªÎÕÂ<®ùŽÅÃC5L|¯ªyvQŒ/Oõ±©CÅ«¼)o#.¿TL3…§-ª'ìÛÍæô=p R³ì›ŠCÓÕggõA¾B+òæD¶åßmi¿rÆø÷FáˆÈ !ë»LGï‘úýÆŠ®ãÚX_ÛQ…Þ P (œ›-9³ÏX¥p…’ )`"–FŽÛT‚¤õñ༩Í6”²w±Al½=Œæ_›Ã\çi¢E‹§Ý9±Ç¡šqmÃÓIJÈ@mÈU?€0Õ­³˜BrR-r9tªéëq–Ûá¼ëDÓ5…TŽçÄ¡ßyy–… («rݲnIGŠ®é8.&DîyŸÓ¶¸AE¬r¹ººõÜqßï{½GmXÍ“³«…sõÛìuÑòºTðò\.ƒðÂÌíb¿>܃Ãñ´Ì^™ãõ¯K³£=qÀ«vÔÈæESÖÇ…ó@wƒç®)°Õª ŸiŘƒb1<:€£¶÷‚;®ß=êð@qå_DúãN[}âãW§O¤ì|i*y†u¨N…¯¢±”²Åxª¹Qhˆš÷¸ÃNYGž@ZG¾$´w’ Ç÷Ðõºeà õ:?ï…ŸoC­RGŽj¨Y2)¤Ð.F_0 Óù÷ #ÿÁ $x1Öäÿz|pðYÿáÑÃ]ü‡÷òCó‘Åÿ°#@¸à=1 ìbíD8úâ3‘Ý$„TíÂ@ˆÏ‡ÂóÒ”K&Œ›F~èäƒvoõÁ›+)¨1Æ ôG !H+TàUD ¬„ǶO#¡|îÅ{Ήr?¾u*t~¿¾O;Az¦ù…9ä4݆æÀ™O@vhß^¸~O¦yi~Ë…øë;ÿ–)AœLmâÅ1]}x~èxºëY¯Jlm»ð+¹a4PÏ%Æê:fZ8_:Ú¶×\,x¢` 8¨ž¸Ú”çFÂÅe? rYoEÿZBn»(ë†NðE çr0NóR‡÷À5 –U.ø.tölðþ)  Q7zëÐü˜…N^x±ùqbÎÊÆ̵ætßþjÉxdCrq†ø14ÊYµç2Å‚$çuÚ”G(w„Åvc­PH‚•à<^‰ÄÎá+!ŠÝ0v’Ÿ‡ò`MʆR§£ áHPaʆÖîfw7«©0²CH¯4•Þa¶£R*/¼zŸTZÝ •î†HšÛ(Þ§$æ ßm):©@ äS °Œaˆ ì’ó-%w R4×+T{~=ØßDˆié;/$r:¡#E©÷Q@xue2ñ²Ë²µþdä@¥µÙª,}ÝpT•ønl3:a^íùUÓ/¶ai°ËIp;ÏäÍ©r#·ä;<…èXE‹.~6ä:&fÔd¯ IT­Ý\5ù)mÒÓ ­›P¿žkõ[!¨Brú„qùÝÍŸ/ihÜytþÀÞ°2 `Næã”ȳüíD•õXyBUaþ¢õÂiåÕ ô]ÍÝ4ûXqÚLUçØ“Ý ¼Ðm8Í'_úyó:*°§¡þ:½Ê•ÝªëS®ìWk=ÊóI2äÞ$ð9²3C¦;ôûýïáÍåuè‰ôt2qIÙyµ¨&]•=šô‹¶¯h“ì/xY¬®ëfb“¬¶€*kxÔ†ÇîU-¦®¯9–ªÍæãºÔÍé‹n—7 jÛKy=ÚXîˆBÄI2:ì×(F1dOƒé[ñÑ`Ò±|]ëi6ªóª?Å°.8žÂ…N¼ƒ)$‘s'¡ˆ4Â30™FT’‚Ò¥Y¤uÞºò:”‹y–*=K~w¼@~Fâúnš®ÇãeãGWE©dØÔö ¶®Sˆ®˜Š X'vx-ù K·ãRU23|[¢7ãúèÍydEªÓ³p¥×õù^ÐÕñ‹¿ÖÙ¯ /±w™3uŸPÅkÅNè¾µ#¦+ØdTKx鸌õ¹ÂCÓX=¿g÷óºõŒ~!¾Yp4x‡ãÇÏ’-±GñÑ“û±éÑ ÜƒÃ¥w[tŠ%*#¡ œ„U²g\7†Ÿø Ô9u@ ¶êwŽ·02œ"™8i"ñžÐVÃ#…Z+‘d¶›¾]G¥fždÞö ª#,€×%›Ô)4˜®Fl¨ì’OÑŠb«F¢É üUõ|OdP¬[\:`~û¼«‡ûý£ä/C ‰·¨g›Výü«¯Ÿþý›×몗XÁí_9s«M á6ðÁo–…3Q‡Ãóö#~U$§0ñÝϯô§‹ÿ7§ÖÓú.áÿëò?|vpâÿíðÿïãçcÄÿ ‡Ððédúß.ÕøÿÁgeW;zøøè©Zå€lê¹9!`bö„ ÐÝ(M„ö2'ÓÏ:Xƒ 2#?dŽÒ‡Ö/³ŠD!Á¦e» ;‹@áäP’r&ç·È-¦Åx!x\¥• ‚{‘†ñ‚]'s¸µn`Ò=€¶“rá>¢£%ö˜`pºïè®[MKf/T4y@º»î¤}ZTæ0vaf~ù ]fÞ’ÓK*4²‡ßþ¦0ˢͫ¦Ðy=G§ÕžN¸Ø¾HT[rpÏò¦1UIºMw“H}>×úúŠ¼"ÚÅjŠjy},Qó\00úƒóŠ€@¬Ü;uQ,ï·óˆ€£g·Ž8îÝŒhQ7+õìàh¿Û°âŠØd8•ävR‹ºòà场r”¡·jÆ@QgdTî ²ÙøFå``JÙÌt‘-¨üZÝ¢ã`<¦Å› sšƒp¹ “@a—TÀjŽÃ«…ÏB ~A';Öø‘îoC-‘©{d~}SO’…äͲâFåÌêlB7LÿâèlZΑª)$­¼ßÒã—GlÊ H³‘|è™ã±bΉN²À —¶A¿ÿÞâyºjé¡"ÝÞÉŠà%–Â}ÒÛ-¨ûçæR ²eŽ¼ÛT” -¡÷ °{Î11½ñ²d=KK´R‚e/v¾l;_¶/ÛΗ­Úù²ÝÖ— Ä7é6©%o l©œÑG˜bs^¾-¦íÈ&½Õžƒ9Ú*‘0Íok’eÅRy–ã)2íIÕMéšA²R»ÏòKôÌšÖ m—3\]Ͳ¡¤8þu^Å¢tk»œOðàüÓÒÍà0‹½ OzwÎEÞ^¶ Ýîøñ´0Û梕+zÉŸcŽðS³Ú*Lˆ°17ª‹˜S¡ùP9ñ€íàtÙ®‚pçi±Û…fJ/¢—[p`Òµ±¸ÞÆ¥qY•?-SÀzy‹“!U°õ±°£®é=-P×@f̪«¯‘¬Ë§F¤LV:ÂZïñï—•ýϽxdU">•1CöÁ]sÇ(únî&Ãш7q¹ũMŒÅHIµÀÄ;á&+ƒ„HëÆbMŽ.-‡29º‡ÐëkÜÎ5nç—pëL9 –”»8æSÝRfÙÇ’{õä–ƒ5HÃÔ–®Š¤¤UÇîMg$/ë,¥>@~áµ…°’xîߘÊå^–$Vð&%¶›\G™+Üó^-Oï+ÇEÃþ_Áîw]ò†–NG¯€cÜŽÛþ¢ûAŒ¸OáKJlÚÙ:NðWíZ§†;Ð Õmè)?á/íì\]`9O&˜|d‡f=€Ž4¤{02ӛ뼙Dõªý{/u%^ÆÖ…ßÕÈúpâÑožob,3ø¬éZ _ø½òõŒ ;äø>Ú¯íwBx¨­-òf|ገc$¬n:·±aöÔˆ^iÀ09*¦ÞüV¼OËq¹˜®:£‹®8³c´|ƒ^D\!~(Í/Ë1‘´)-¶³8ßžj²!‰*ì;oÊɉWvO¶åx†k0ïñ¹6#ÈÝD\?о]Ÿæ§† Ä\ÛœŽM}nÔ«XÄô0Ù8pbªü‹¼a×yÎè´%ÙÚÙÅà\3qÅ1Ùžþå ÒÒ7õŽ0…½EY¢ù ­½IjÉ!Ðp›æ²•Ì|Éú7ÏsÑq¬çy&/ ¿Iù+ÙË &ev€v\š\}XÊâjqÇÎ({ž"ÕÊ$ìyÜ4–¡2GWrBþ}€3ì/V© bÄþŒšMYÄ|ƒ„rJiŠÖhU›øI`… t]ì±Áa.ظØãÄÊœ{1dÅþräˆI:¾dÊéÀ9qX-òXÛД¼¦ƒ:ùˆ¢åE {ý™ïôZì[Ï,ù†½áZ7Ä­´Å¢Ã¶,ìeÊ )Y×{Ú659æU”ßñþíÞÁþ«&µÿxeÆýçWí—Â8~ÎÌÇü=†‚‹b}: wvŠn–T×$Àø/òJû'í¤KK'QR·»ŒEòn° ‰~†hÇîtÓep¥Ÿ[7”Ï׎Ÿ!h™h‹ƒŸ(øä /ëjQBr!‚€Âoå%üwRà­Íhá—¿4y9¥gÃ/ëË=íPCÍOÅ*öº¹”!~c~?k}ˆÂ½Èú´\äÕ9Ð|£•$k‰,ݲvƒ=ÎâÓFØ—X&߯¨SsÄÏ(5¿ÏÕŽO÷ÂËß– g<†üöÎmŸC,fH°´’×kxË¥Ë]€Ë]6Ä_㺩Úrz 9ÇmU_Ó/EŽù‡ñÜpàOË×t4ØiÙš÷Xv ç˳3ü«Ê¯òÿ®åC úÌ0ÁEyvVWњʫºYaQÃëÅjRPw¦ùˆÙætºl/ðḚ́Ū©ÛBgPP|pNìðú3¤ü†ÜÎÓãhi”§Uþǘ—^†ŸÍÙ›º×epî¶fqÛݘœˆä±9úCé—´-QS]ï(*ô$ƒRT&*»׶ŒkÚ–é¶ ¨M{øK·¨r2î²{ô»mfßÖWºzÿÌ®[iÿŸçe>­Ïï hMþ£Ï>;ü?4¯wþ?ïáçcöÿ!ÿExQW7ñâeÛMrø¹õzp jÀù¹Ëø Ñ“ Exóƒfñ²ÑÞ7sR2‰è#t¹!î=žMùwÏYÅÞæ¹AÑM|  ðØ<=EŸ<Ë›Ãël¾pn,µí| ³‰™Í+£|÷ãÓ‚RÉ+}2º‚1ò{Žt&xȾüè$`IK‰ˆD ¡A,g³ ˜Gäåü(æCò&„Þn 5”àçqÔ%š.µÏ†ðcØ´•c v4Wã·7F~Z_Ñ Ùé]ôK¦º4Ô[¹Ü;Šhö׿7Va¿Èðý’₉öÖm áz“,í6HÁþ@E.“S·4㱚- 6cVÄ{ÎØj«ÝòÒRC£H%{[ ¯_fõÈ*¤ ©E e#ŽuÆ@FíV,®brg˜^¤Ùˆ@ü‚3j)W/Û8KM’®àµÈ±Ö”QWȉ~Fe 9¨µ+ó/¡JÏ ßp§iú¢®¼ë«€ìAâvSX¨ù?-.ò«R¸%bf&…zª / Ð «„번4ÅòäµÁþº¶C ÚZÜ#»¹Hô¼(ZÓ¤¨‹ä” eç¡ã]Wûù¿SîÝíÚŠ ±};Bܻڹ¹†^0­W¦_x¬™XüÝpÕ 7$Íe±âXEÎë7œ D"—í(Ö.Ïq!­æ}Ï;ÃVÔߥ—Œ‡=Sò%»é«¹Î‰†‡5bx4Sgqv†€·»™ÞYÞâ¹':¯ô2¹}™ÿ¡FîÝQ.ã@ú›#hSOµWª'TàFËh p)ºhòª-mSNÀ<«'ù”g· €¥ýͧ÷{²ýn³é·…ù&_ÔÃ,yÙ­ mëŽHÔ=G«=itÞž:‚+øq3pL.œ õO’Ë´9‚½ïäûɧ‚Ê'€ Í6¹`Œm,îkw¸ÚîUY±šg—a¦¢)„°aרž¤&/ £…Àd†õNꢵނËv‰‰ Ù Ñ9¯æB<Qãº*¡¤ÐCn9Â-¿Û³;ñ¹$£Hœwð]߲Ë`(Ä°èŽ"áŽ×,]©J$xÞø—Á7%šÛ‡=½¬;ݬ£­šzuâóm-Îdæ ‘Û"£—ˆÈ.KšüV ¬!à ‚˜ˆ‡#ô8P!i Üæ¾1ÜÙÏ?ÝÉ…»¡g†DÓ'|Bt[«bÏÖ¹ŠíFg^! h„©ˆÎiŠŒ¢ü¨ËÝíéãÅç cmHb RZ’_j*Iè3ÛÈ.‰QŒŒ‡Ú/ÅÓ#Í‚³A©1÷ƒ5o–àßx&îðï-Xw—Rëî2dW^§¤làBä+4JŽ©1t4¬îÿ«hjÐ(­,ø£%À\ UÚ¸5†Ö¹ÖYbꃿpî€×~MÎ"…·sõHy˜õÔïv¸CW×B¯ɶNG= E¡ŒƒÓŠºòý-ÔцÎ*ÝʽMׯ^o¾J<`'×¹¸„^2‹QÉa£§£½ÏÞÔY#å¨Uß±³†ÊÒáó8k¼' ó¦órSs À¼Á¼l b~Góò«1[à¤:êù°-¶4úxB¾Ó¡ éÔnÔâ—«Ì/ ñä  L 0/ß÷ürž‘*†Â^ [hbPÈG:þL0©ÑGN—@y3Âÿ¾Š¢‡ƒgu=…yÅ^›ß}\×ø÷Ë|B`äºm{{1jîË­Ã0†auá¦ù²_DçæZÁé´›ÄxZó…á4¤Uæð xdۜԥ)^Þ2 •¦ƒ/ íäccë¤Ñ8[f$ôƒ»FüýÈûüœ‚çïƒ}ÈÁÏ1໩óèNPƒ1üß¹ðίÁÿ=|pøXãÿ!þ÷у‡;üßûøù8ñÈá8ðûØø£…Úú=<°îððàFP?¬Ùaü<€XÕ–sò+¦ŽmÚ~ˆ1Ài¶ûB€CÀEo.Ù¸)fÝrRÈ_çíýjaŠçœ ;€6¡ÕÒÙVãér"©¾à¦·  Ö!ê™›ÍÞkö° ‹±¡ÂáÆh97ººÙ[a:›ÝÄ~ÆQŸI-ŸXV^ wk5UCⳃq9ÉUä2e,bËÐ4/ÍoŽuSþ H—[59®ŠfA@ýèå_å Aì¹0ªwé"Â:’{!Åñ€bvâ‹cgÎÝþvB’9ßh.Æãq×üUq-ÓÀ ‹9÷ŒÇu£~a¿)Y„Mý«h.Ì™"›PÈkð'/°Î™ÑügKÊ„VC¤ø·ð§‘93³®({V›ÁÛ~AÖº±‡ ¦µ²O‘YŒ’R3t†®‹·F×ËfF…+æ溔¸øŸ,š%Æ<|2fD¯6"mŽdm @v tå>…µRfj ¥^uƒˆ*+šx|¡idN¿€þªØŒïÏÞ°½L!ú%ÝEãwÝÇ×$¤·‰é%É'ýÀ¬m†y&=ìlN4æ#8žý¶XFr]Q(Cºº³|Ö–š€íb­ç‹öÔ¿îÇ0]Xt.1Ç ¶,&[¹‡æƒîÏj³Ï‹ªhÌqä|åj¶û®¼/݈Ekƒ¤£d‰WÞ¬x÷0úÙ„®xW*[?ünbÀw¸— R‰îÝ5r€…éä 3 —TáZÞ¸…TmG&Ø=ÀµLaPg…ìé·gÎ9=\Ò[o'pÎìÖ‡§ÒÿÒÝ(Öc±Š( Ö8÷¯KÚI‰uYÁ”ì–BfÂ:9…ýv5ä¬3ó²Q¨^àX+ÞŠŸ–¥Ù\P‹R—Àgè0bŠä­÷m€~]GV^Ä^0h¾uçžâo‘ObýŒö©óÍÿس'\ÁÿÊ ±Gœ×Q62óð„‹I:öä$Û%ü´²1;H[!uTrQ6Å.l¶Ÿ/ꩃSöd/p­‘&_qdœ>쩘 ÛH/6Ä™Ÿ YqdF_·z™Ù+Zë<€J[€º­®_͇c¨VÜuÌÞM)´ 6.g`Ž©ËJ'åÀUÏò½·¼·¿!!AŽÕd¹{ËIgôéi;ç""ã黨){Ò¸K[WÏh§­2Ÿb]ƒ½f, Û &²ƒ j*>Ñ~¶Jp4Šð 4uô02€ýL!ƒXM ûh•kCC8Í¿0Èäy„;8x‚ÿKÅá?zðäÑæpüJ83#*zyQž[ó F™gþ{R­ç—^>± lÉ/Ÿ¨eÛ +Ê5šW> ˆðˆëXwÌ9_ô0;œ›hsUœ½ž„¡etŒ²Áƒê¤h\ t[ãÚ1®f5ÊíÄÊül¼ i=¬ 铘„§ëN‹ŒQÂ2Œ×ÒƒÔôÔ^®^¤< Ζ`3Ð9o^T‘| Ð[‹ú$HžC 0œ™7çæ¬7b,žy:‘€ñðpŸ"BÙØbcýÜóuéQGBÍ”. EËr*‘FõÇ|+dþÈïDS¦ –…0–¤‘P†–UðDmÚÅ=·Â(û"(¶° yvfViݨêÌ肇íö>e¨ •cy³•·Ä»ë´?Ç"¹|k®!Ž¹v4Ã;mÅ!èÎzùzìDÊÈÀç·ŽjHúº¥;*èu›Ü –6«÷ʽ+­+¾oÁÖzn¤tç½noÓ‚ã+>CrØ=£Ÿ£œsª7êÏK×'8Ú63Â/Yûã™ü+s¼V<Š´ˆ,~fO5«±aŽäéòÖm$æ<‡·øÍ`klö"öÃ+VñRÃP)“.mD\hVô8$/Y•ÞƳËR.Ǒ߯7ÌrsZ\V`øR9ˆ0ç—§ Üy]ÆEgw&éÓ'wDº~L«7ÑÑPûŒ†ÊÌÞÊDøÆÂ·Ê )&ð-±– Õ+íp¯òfbEx2ÉdúZÝtoIªÓçêìé-7_—·Ã3[$«æû¶ßàëw=õLòUýi;þ+×y™f?z½Þ…ŽA·àQšÁd:93û^É#Þ3¼h–Qø@6cvíœ`V5úÝ À»A“IF¦Vuבùƒ­òôì²·ÙwÙÛª]ö¶]ö6½+í²·m±‹ÔM™Vaèå­“Åú×F¼N! hÞ„WŽ©$Ñæ´#óâ®°ÝüìaÌ ?ò Öç>“[nõQÚ™7ÖÆz p½9áÕˆ™ÛÀ.vÈb×H°KçÒyŸ¾åÔä6NÌ-w "¦Ç¸MК»ãêŽÇHš ˜·#u6‰RR­H °êiJ­`ª§QØÅæ7ʶÊ~øa¤ÏûÐÀ} ¨íû”ê7}h;=Óg41ðqÎPîy ’ÑPÉ<à g_BƒKÖºr’À*„¾lg.{±ÐE ’é\ÏðSï&|÷îÒÒÑä»ìtb4@"e­ì1a??G®º3ðLŒßmš•-vz€À%§ dd™ )¤“ÚÝ¿¯?ðìùõ`¾˜Ò¸—Ãu²ånF:0„>ª5…XÀ«z-%Ø®«JnÒW>|yÇ}ß#FÔ”°Ù¸í V.^Ái»»mGÏ>M®ÑÙм#KŽ« ²·s–Þ%YÜ%Y|GI—ó>ßn§ x7&ïPAàÓ–> á×ä*ït—^gù_§ë÷;ÈWØm$ÐÃ6ÊéwC7p7™Û8‚[e?u†(ÂË ?/œömkŸÚ‘+ÂwlÊáã"ŸÊLJÄM2’mx™íà‹j“šuãîýÊ]¿UûØ´t%ˆ*ThO‹qY<¿ÌÇæ]ݒㇸ€ç£ªÎ w€D°ýÎXи{6Ú$E2ziÔøÏpÏÁRª¼]‡Ð¥¡*°—}š=88ØË~ÿDi¡ vMj¯æĉS3y/õæHa¯âX¾“ ‡ T<|xq$hÙ‹eQQò—¨pÜ)b5²að3öàw“O7ûôwÿ5 O ýi=ΧøÊÐio¯·©Àµ·x[Œ—‹b]ïJ&Öÿ øš@­x¿8Êö„f«ÁÿFÒ¥p±‰*Ì„™¿ÿWùHÓÜ•mýΦïÅ«ïî¿û)ü¯û¿›ÝÿÝ䃜BÀ†u«“…ÕƒÂ÷Ù-§›SÓ½UÓÖ@Ðå»à‹×¦â;f‚¿>ùÝË'¿{u&è™QôqVVXÎBL!•TþŸYXiÿ÷f ågï€>V¶áêj&[\ìÝÏí.üè÷‚x 'ˆþ=TŠä¢ÜŒeÅ=e=×8†ýâ‹ÿµÅÕ>b=pŒÆéTÅ‘¯zŒÔv3R’(š ϲ®›E˜93‚s’#íPõÂÁüóÎ ›¶J2W7eWÙþ>ñš³ŒMÑyÌù9áÝ1§»;>< .Ç"<æb½xåì‘‚•0Ö Çp¡`ßržYÄÙ`¤tp â¢ÏVŽù•—¦µ*Ã<Ÿ'ùÌ(Ãç½{x´ –ËPe§3ç¼–<…ÎÌIj¨Úá$vÙ±‘6:P öúìMӶ輺è·Ê´ÆFGÁGN˜q?~«Ä îÎ+ðµÆÓÕþ:jˆpŽ«ËüBvh”3î|rès†yÇ_BvúZµµ÷¤Ã°uZZBäLN55ò²˜ ¼O™Zž´äòÈ]fDŸÆ~ý÷t¨˜Í+¦ßÆݸ/ݦ¹[ýi>À²Mn¸‹;Ôwèè!Æú™³î~îú'ÿéîÒ?®Ëÿøàáãà þÓãïâ?½Z¡eü§_DúGÕÓ bA%“?>¶É¿øü桶ËýÈŠÔ‡”ë‘Ôì-R=Ê ‚]jÇ]jÇÛ¥vä»õÄ8Ž>ìÌŽwÙù]bG庑±î;î;î;î;î;î;î;î;î;î;î;þ"ü¹v‰»ŽLw•ØqY¥÷ grŠ‚àÅ´&«ã¹]®„ nû.ã†\·ËĸËĸËÄø»—°à<ÙÐÍd;ÏÚMšÛ°¡­’?R}¹î2ï8S¢ÛÃD‰vk¼­ƒŒ I·w X¼¡’¶[Â9 `Bˆª£B4‚ƒÇ oeíV•’/¤MÔAËpv£xZѪb¨=ÒŽn8À{<íy½óͤxÛ7|WÀ}4e¤îhº“øéV}l!¦no'm‰T/G~ @σ>f?ýŠ¯jî`.¨S½ãü•{u’ª›QQŒ8ÄtÞ@à6{–)4"2–§P_?Ç°±>îõ«jQ¤Z}SäëMZ:h­?;F‡B7í½ ³z›G"Ca{¯E‡¦—xë}u1n¶3„Gkë²xÙC‡—} ¶ï.£Mù%Ð&P|·—÷Ÿ]1̦¨äRôón—VQ£m%!¢ZUå™$Y4‹þ[Ž-'iíìøpJ†êjÂ`Áœ†xN=mµïrRÂãHÒF]ªÄ`z^!dËa‹Êý}Á)”ÍŸdŸÀ ¥Æþ >ñûÝí–ªè{³]Á^M$AD™µªbŒ[›‹ $,÷^¤ï2Vóáo¢¸Ö¥ó3€ìE‹ë¢Ðÿa·XrÞvÖ÷™8óWòÓÅÞ!ð“Öá?vòîðŸïãçcÄþ€ŸëŸ)¨çƒÏZ¨çã£@=CŒç‚­†>¶\…¹yÂOkôS~ÊãÛ =5Â3r &Ä:s¸±æd$“8ÐÁt(Ù.Y ŠÔ· c [[Ñ)cÕ;1:Ÿt({™!ñ„Fq(1µ&¼‡¼!W˜l 凘4q=Ýáw¸Çîq‡{Üáw¸Çîq‡{Üáw¸Çîq‡{Üáw¸ÇPpÜ?f à¯ eÖ±ðvÃ2{–^…À‹#¸Še’Ïäu4x0Ç®ê•yb~eæháð›k ¤ ?œlƒq‚sNr ð2…lRp34ÔõõÓ¿ó:†:{õ0¾‰ Vµ‡…”1ƒW—©¬×€WKл0â29À[Âc5„_0”¾…}W¤T’ÞÖÍÌKRîÖøÆ[+ÏœD“ÉÇ‹Óº®­u7À™|>ŸrjyBctýt> mŽŸÙ¦oçÓúÔthûný?|‡=³Vy£Ñ|RÕæ´™Ÿ~²Yßè–îÛú/æ“;î\‡îÜ‚’ˆ€ºøGxÞ%nB†çÚ$ãmëXlÇÈ(¿ÂüÕÅäZ"[3‚Jìƒö` »È8ðӕ‚È™ßþZL緀ʽ\ÅYóö8¹§#üëYá2­3òµo­cR’¡®\¶×a0FahÀ ߆Z. “Š;ÀÁ/Ú©™ÂsJ d¾?š?ƒØ•0̶C!ó¼txƒâbÒAfb2“Ùæ¡e›‡)¶a6/˜ év8™9à)[”¸ê¥Ù ÍNÑÃ\–^díúy]7!fTËIb}Pm±×ónÉÅWæÀ[ˆd²õÌz©Ï ?³ØÀ)á”u H|Ùtà6›F†,9¹€Q_,ôP g¹“Œ‰OtßñêCÒ®íöâ“£WŠ€Ùj‹…›Ø|±0ê²YlíÐÿX©pö =—ÎS`O½Í…ñUcPÒáyaÖ,Ò k„ÃèéF»Ê§×ùªU«­j³Ú¥|¬ŸzoÙ¾¶AUÃl…=ôEy´ZKa(?Ü)ËØÏÿf3ZÞVV)h‹9@-,²2ÒÜÊq’Þ>„3´äæwpËÜòWðÓÅ~åç9ºƒ6úñŸ„ñ?=~|°Ã¾Ÿÿé8üƒÆ€ºnöá@ÕríbAX,ègŸÝ ê*wxPí&GGWv:*ypS0¨ÊßÍÛv3 hå%7囤òXu‡Av/³Ÿ¹ñþè*7GŸe›ŽšÀ­÷—†É÷ «¢êªd”µËñ…5*å¹rZup9H5y Þ*Q¸©ò`Ç­ “IÑøÝ÷ñWÜÁv ¶AZßM'u±ƒÇf3Û š RþLÕ!ŽÑGU¼FÂxXÀ’—뛃î`h<]©—R‹Ñ¹^ŸXд´ï™×Ž ì}Η°öô‰KNÅfvÁˆUpGÍü0žœA9³¨°DØè\ÚnY¬Ãý}—ô.ÙÐæ®Æ`Ÿ£k›‹ÎKE+¦BjŠ¼“tÞ¥?œö­'`çÆ€‡Èø Wjù[C(”œfJ² d¼To¹Xqçé† •d5§¸ÓâmyZNM1 â…]q˜4™º8Œ2Ôñ·’ ½æEæ_€7³?y3]±so¾È ; r ó—P£ÛF³×T¤î3]뉃a¼öø¢À³¤ "+À€ÁÌD¨’瘣‘¡…èWSæp·„}"½,+ÌÓ‹Fr6 :±µ«[ ô]>0ÓÔ_‘M©&÷FØœc– }LquB.ÊðÕÚLæöz­]5WkEß Pײ»)€gk#r.òËoZáb ב­F¦Ý©sW­àfO2t\˜Wy3±uP_G"#`*•]èHî'L¾ÞÑ—6ßýg÷ôuø½µõ+ZêJ¾úþûï¾ï¯Gä0b:$ ³ðGëÒ.?,!ɨCw˜’C\öI¥"ˆQZ.Z¯‘àüº {úýëO¿éE¸By4n$¡¹°o$XigOðj7 w;†€Û+ôe²Ù4ԥ̟¥Žî­ÒÏï|qc9ZÛ ä›B)EÀò%¡AwŸî’ÎÂ’ï hLe‚A©õXÚ˜"©UÑz©âáËŠä¥Û|z ’æØ° @ÓÚ9ÑŸ«_ª-òqâó7AüTm.ì"»22¦u˜ÀÁÖgzêB‹Ê YË0LaqÕ! Câ„Õ¦å¯@!àtT?¶%°¥RÝðZ]ª;ŽVÁCHÁZÔX¥_`Ïs€!§+³ð\– ;Ú=HdC]pU=mëúÌQæ ƒ™X]Vó%myÛ„ƒÙùI à œ7ZŸu5 ¬cZõ‡gÕ0³ôƒ&×Cþ ˆ"9OÄó®6cÔø¢Ä”´ª¶­ê¼¼**‚»JË#qhÛåL¥–rì,âöðBt€OQ[´…H•á­¾ËÍÿ¥5ê'©kNœûFŠ¢¬®ÎÊó%M`„(ŸX‹1êùõdrwÓKüˆûMgìÎÆpQ;2Žbõ°¢fäÿ¸˜€é%)õþç·ñaùÚ¿Õù…úß9ðT'ŽµöôªŽèEÙÃe;Ú`öü¼(ªiUpôZ&F×Ï–wçæ4ñx¸—ˆó¯UpqñFWuœ[L”1ʵEÏ VAï¦g½b‹ éÌŒ¢^¦\\T‰m±ü…_ɼncK–eÒ­ÄSƒdá³ê¼€‡å÷š‹…o€W´,™QˆÐ;€¹ËûÈzS_Ókô;wÒuC'3‘8 hñÐ܈ûö¢^N'ä-`˜f*kàˆ8€e 8-˜ñóÖž«0Kq×Uœ2ÖPkî&³ß×içȆäbó‹ep-1£žp ™bA²o‰¹Jæ]SsGXl7ÖJÐO¶g¡%$½<´ª(஼mµ¸ABKQÂÈÚ,#Çœ8E4ýú£iÖÝÌúÊîµ7_±BàÕnëóZéÔÞnV»­í´^@žâè0öÃÓŸr^ ø9çvE5´£Œ¼ï•òJ¾A ‘Ô)žé2Òæ“”W5o[ð>ÏÜSNã‘'¤LkgÞƒÎÑ”|œSá D§%K'ï°HC…Þ“¹~¢ù=½ý¥l ˆ°ËÖ¾IÅJÅ;Õïê_ÕN…â Ð$¬‰ôb¨œ¶cb(ŵƒa;ýÍüóÁ”1FdH F7K lPuÉ +?Â%éÒØÞÕÁº5]—-FPö Y®Ó¢j)'[Ó†Ú~t§¡ïYOÏËs}áWWS£Ñ}k4Ãò¼ê•œ\{´é•m{X™ƒ1½9€¶Í!´„?÷Á˜îH¶’cƒ Ô:Uñ·{zsa˜Œç&Ò£¿o%bôÐÇM‹|âÍùÚù÷F›÷TîQvøx£Þ2ÛwÇ1p©qìë32«ŒÁö«xËÐ!ZP¾ò»ëö™où+8³.}ï‹| èõD{²ëѳ(ØÅb/<šn åÅ¥’ö¸õñÎÕÛ }vÛl¦ åÓù…9Â/¢ë虑ÅeK¾ïb)ÌPùý¥ŒKOïÿ?ªÎ ¤î°•ÊÓ¡ýŠ<Ô*þ,ºøhÄæùâÂ-å3ÉY7ü´ Ù–£ÄèýñÜÿâƒ' db¤^‰Éô œHhóAƒ¢H¬‹kÞµ„þú×'/_>yõJS+ºDá ƒZ³†À ¨åj+GkÎm—kÄÌ_®\#/RCZ‘×#§fº(:ze>éØ\ŒÄz±l½“jAdržçFÍ™5õ'fUäMHb7-–ÔP™ú¿'U(cäíNîVR1N^å7“$sÒT5.Íáþ(Â#ı==GÔNts=C#“ÑÉKºä„ЦV¦Ø׎r5›$ÅzxzéÕ­JÿZTãDô8{t±Þ–ž‘Ôú¹³‘4n ½ÇÚæ÷pÉ‹p;‘3¬`n²öþžŸrF¬ŠkFƵ‚ŸôlrØQ‹ÙIuˆ Mö8‚‡žÎ!Å]C.­ây¨#”SÁ;ÅŒ ¢SLp*ÏK 3>⋾"îôL *B§Žè‘Ãoˆ9ŒqPDXCë=_Ý¡Õ#FUXfµà”„¼pÇM^¶×8f鮸%( ñ2ƒõ©g‘!æ4=+Š@DÃR³äSlSºÒ9ˆCJP'FÚ”µÄon#ÃÒr%ü»¤¦™ªËpn©4¶W·E·6Ô–}~nU4Ö5ÝÒhd«Ú|xRBßôÕ\_ÝI´m“"1”uF‹Iø¿–ÓÒ0«Ñ²où˜iN^†;@ׂS?}¼çoëBh8°ÚÍ`´¡’êl]ë­vÉ {é1³’0F6­o*õZB£¹Ÿµ GÁƒŠ“¯Ä̱¤eÑ”m.¥}$î“«:¸CÓ—âæàÙ²bÛŠÈpûñ´>³O3£/6[M!¦¢ÊÀÑJIGÔ*X'Ìm? ÿŸ•WJÅm=–ÑÕÀÉ: œÑ”ið\>«=òÈö×N´;.q¶SXgèM’Þ¡@p³7‡K¶™s/»äó±º0„§lå ž*[Tð–QðÈb/âÍ¢ Õ”ì é%û!†êÞßhñãe/¦«À‰¬T·Ñ™ ³ ÞãÜ‚8“YŒ¾¹Mg£› ¼y)Ø*L€íüÜ9 ‘þz§AEWîªr8ѹG£fø›â=p9¦‘Ë(Œ`-´ †Êa÷âg™ý{VÑïwÒç^ï¯™Ä gO¹y'3ç2Ñ_|ÂÄ÷PÆZ·O¸° >T˜J²ÖÊ”]ŽÍê¥Ã vì Wò¡€íKÞY¤ò ÃÐÅ—…ìI»{ ’ÿÞ75ìKÀlt0njT/ê¦üÜ=‚_¤Eiòşðî“É®TÁEƒ3mÁw ]´ÐÇPE\uƒ¡·AðêXK’"VNœE8=¡¼Grî\Ë°d¯Ð'­XäåŒUßÖ Èëi ¬5y7 R3%² j;´:‚H[6Úö²ÀpO¼JÜÈ-9Düo:åìã eªât™ª8î®b³ÄÙžlQ{ßòbA%k³b“ÏrÌvlµ:®ê3xíaÊCšu¿„”“Ø‹±KM9B¨S. OÏbíÔ:”‘Îù¬¤ë4 9h’Yu ¥ÂšYš‚V‚¨>è­c¨Z«JŒdJ1CƒEvikˆ³ôY£k'µƒ@­xÚ+«hâ¥áÀ*Wzwh…\‘ÖÆ”“ý¶€ym(Ùú·ãi‘§¢öâ»(k}_ÌjˆI3åeO×½ç? Ø¥[Dæ5Õõ©Òò:ÑYËÀØY§ò2GkT‡›D~§¥tŸ+¿²–׎Z¦+A<–ñ=–áý»¦Y.ÀÛ$ðo§C}¬ÐvX!Ù!–S}RÙVOÉ.ò ÞpMïdÏ¡î¡Ñ¶Ž’ÓL]ƒŸ}zôÅv¼€—>ëyª?üôpàx‚Ÿ}úàpM Škèsý ý%F )€dDÎÍEUC j°ZïOk³wÀoCüÛ‹ÍÚÑ»¶ÉþlÕ?i¿›ìãÿÙﲡÂ?~„Û™ëò¿?îÝét*’Nf¾ÖAŠàá~?•‰v¤zG¤{ u^4æ[/ûé÷ù“ƒó¿íXï@7`y¬kW,ÿàÉ£/ÌÿnÁðå绢0íhÕÄvú)|xô`ôðÑã›l0!oâ¼å°Åf¤p}pœ ­z0RîÈí#µŠõïGÝËŽ4uU»hGc†tÂçL'0Œ ñàoÍè(Jüñ!…?†ÝbÂ?òƒÂœW8í+WmÛêÐàØÜ`o³_žà™Ý´æÍ4Œ‚ͬ_ãÝI\›v Éh«©0ÙÝZYæ£Z¤^@Xíot$Ñk0!î´úHÒ˜c D±&l^ÑsË•”åz/ƒìö¾ïèâo⬣ÓwÇO ×ã[ûÎ4—îø…Çfs8Î4ðéôþ¡ãØi[DJî|÷ø>:Â߇_|ñy¢ï»ß¿€Ÿnü￘Õ<¿«ÐßøÓÿûðñÑà þ÷ÃÏwñ¿ßË-È+þ7røú{Øõ›i'à÷ãÏeK9:ø⿱^ëû ®véòwnNŒ6ÁüüC‹öý:¸“Gj9¹9B#=*‰›]2L6%|6»wòw5ƒV¦ýÚC©çYašÔQ&,žPe6ƒËzS!]8Ç3¤Š¥Õï뺻?G@Ñé4Ÿ=”’dXQUf ÒkYQT-{ëãGá‰`ø¥ÿ¢l² ®wXs›©‘°jܱ$èæñ±\LW@‡2šN"•´¼¿5 0ôó™¬_r¤)Ë„@&y+1ÚÃþpbÄÈŸÐÔmW(:bI`ú· X›ºkžÙå~?h!àîUp•§¨¢¢ì)ú˜~Z£Û>®šœAÁÍ–Ï6¡óaèY¬2RG‘œG>ÀP «¡<ÖqßdÓ!³Íh½»'´‘iÙ•Z:Ûm‹þØ­Öy¯ÌWtYe7+oT P×°,žd|†û]Ó©ˆî†¬'‚÷«Ú—ˆ*óøût§Ø§܈wÞ5Cô ÷y­3‡Ä¶vÇÑko‘Éî— ‹=××Ú^'î¤õ;ÊdíôØÒ&AðÕMÀȲºÉ›™/Vvâùv’\ûÜI³¨Ïϧ©I¦—7¦®‹èh½ ÌQs2)\(í ЂÊhI—òc¹×_s±¾ÖOë‚61°¬xÚ |ÐɶdXÕÉW9Ûêc›mõ±ûzÜÍ9{Ì4‹J­ ˆ?,®ûM%›*Öèf¼|ÁG¶+Gö`°*ÀN78Š erœ(þnó¾È’áMåâ¿ÜíÈ›|RÖØŒñŸ?úwWy£:ú¢Zü#o†{2§ª ½X) ¯c_]aÚî%(ï>Œp†7Rë÷ðÁüãŸW7®X»‡’r›¹ì¦× ½<¶ãÞ†àäfV—9Ä |@òø5Ï㣃ƒÑEQž_,ŽuäN}dæ÷óù¼¨&Ãëä’x/s”˜¼¡ÞLëórœOáÉrº^¿\n†ø0&KÔ¤~Ì“ê½%ƒ“nD‰¨±¦Ø!c;Tí®«òÏ×óÏØKrä7àw"Ä“ó|øè.çùNHûåZªú%=ŠY?Ð!w²kV 6ÍÁÏ6oøs\àto¦c¼©òŒF døÍ ìW¿”9{uQ_úW#~­Óõ­Ñ®Á θF‚½©äÁ¤®Þ ûw9e;d@_êïGF¾*0ÄÄðÿtïÿÿZBúš€îÐÿÿàñ£ÃGêþÿÈ”|øàhwÿÿ>~>ÆûÅá4 @õ³  l`Úµ)ÀÝ jw¸N¥érgC~žeÓ÷Ï›¼¬(PÞÉ^Ðç7„ ¼bÇ~+Œˆ0úñ-’ƒKç¬gTî" tG8\ñpʧâÁ´¨ ç”tm˜Û!C"Ä•1õd™¤$ÉYÁÎpnQT Äÿj˜‘sâ3òC&µñ†ør/ô_²8H{ã‡F^ä.ÈõbªÕ XŠÎÌDÙùrÇ: ÜÉŠ1¨6U˜´Ä8©Ï ¾.EF8+®9°…” ‰j*R6|º B?Áv¤¨+/)ä¶ÿÓÒtì>!}ÅŽJa¶wZr"ÇXUXÉ}¸Ü˜@6ã¯9°‚¬]µ‹b¶Onl?0ä®ê:j1ð³‘ë¤qëLV¢¦ƒ‰¿‡¼…üÃT”QNÍ¿|·(á.°P¥\Þ8h°ä²œ0‘{•Í²üï¬rÝA²º8‚ª$wÄÞïs‚)•tÝ滣áI–8vù!9Œ¬­¡Á¦0ÿ‚‡.qJë± VDòÍ01'ÃvT9ö´ëßr¡ë]4ˆ$î2T‰-sÒI¾ˆXU~çQ¹&YÔ6™áÌN¶œU°ÅI÷lUä¶#Ôu½¿!ÎðžWÉ®D4ÝR!n÷fó²]Ÿ£êð]„!kúE~žNr¥ý)ÅüBýÙ„Á3ø/¡j›ÇÎK¨¹³£Iœ¤)ôÓ–J~ðÙÇ®âhÞN·6B>µ8q°Œê]µº×!:Ð{(lH3Z£òã& ¬é‘EᆑêY³ðÓçψôÍAg|y·­x3Ñ û¼b²Õ þy”Y€±"@8x¢Tlø¶¢äBáûØ5­Böƒˆ CëwÖþ¤˜ C¶Ã}Ì8aÎÙU‡ÙÍ‘¼¾Ûxh{/|½YQ‡þÜ+&Íþ ÞTý%<þçýóßã»í¿=Úþ[ÉöV8;N-´:$ûi*{˜&Ü9&Hˆ²SY™fT˜M±Ö'¦¦+XΣêOÓ0KŒTÓÅ'$ú~9‡”'åÄÌ`Þ^¶awtoõÁQ‘BÖ•ÙŒðWÓ˳º„ÓË÷2Ȩç§'èzg´RÑúï"ôæ28À\¦Î£DßµÁ ºþÿxqgw»ˆ°&þÿÑg;þÿ?Ûùÿ¿bâËÿßãð:€×Ó¾þ¢íD0 ÊF8||ƒ(^ýÑüÎødÈÛ¶—p J&6Äz¸ á§E6¯[Ìë ÑŽÁ»åùKÐaÅynÿÿƒý¿s{²5îÜžªÛÓÎíi½cÒÎí)î0³(Ç—É´çør‹Åž¾›Säõ/ õ¾ÇîÀ±;p¬Lùºd7~¡»Hvƒ5Nï$ÛͯÕu§i1~!ù |6ëÍñ«„D®œ™æ ¹-iÞI¸mQ»[žž˜÷£ äíyS¬¾8Ð÷rî ìæ×â~ïö•(C$ûqvàÌÙ˜ŒÝý «òSã U–øêþ{¿_‡÷TS gì›Aâñ —Ûü·§ŒdÁ†²ÈY˜“‚š×7×°köÔM¥\:´Ëê²€( óñQ§ªó¦œ ‰FÇôÏèslþfŽ><ð¿ö"óÍã´›ÍB•›…õ¦¢¥Tá¢ë†6 +MÌð´tå¬!ä e-û~‹Âü˲Cï½QÕ¥Èqv^¹F˜‰~ˆ¥à¿ØåW^s'ñùû ¢Üµÿ¿4:ÁË¢Z~™7ï%þïÃC0öûöÿGŸ=z¼³ÿ¿ŸÑþ¯8üƒ¶þ«~öÙþõ‚ífþì¡Í|“„Àªrgö7¤2«¡#^=§Isß÷ªe{‹{€§Íø¢$Qp`Ÿßò6€>Ô+Ë2—aåHvi¯âÁ­ÝÚ6±=Í`Ĩƒ %UŠöÛ^[ÎÊ)W0ú¢´“µ2\žóܼ­îŒ«Ø8¦¶ÕäÆ€QËÆÙ°>hûc2âƒæöh}æ 9_ûa}±\óê¬VCPY(€õ`b"-Loô1úJ™¬YÔ’:æn\|çu!éÈ MÒ)Ÿ Ü E´º Ÿo=}BZ?®Ì9T­È ŸÉ gêOVfu €~b¥ m?À´½‘Z®FÝ€Òï¹~Y A áÓ…î"‰1îZ¬Rˆjyßk{W¤ú§´eìÁ±”Ù#½M÷Ó€q;GCÛMùdBl Zö‚µH˜}Ù´]žÞç’À:0^ó1L<ö¼,ll,'^*ö5‹'pÂ1‹ãÂœ'¬?“ŽVËÜ-Á/!67D[´KŸÀôÚžŽóvœO X6”Žc¤g»¥`3•3º€XÎçæäaÝIpAúÝ]{aÌÆ,÷ qÕö3¢mo‹ Wºú„h³.¾ÐHäúÔîœ;.EIVœâ©%?¼¡3ãM–xx>]ž£RðúrÐ"I‘Ýu¬u8ã”à¤b⩃^:üdH;FÈÎB°Þ˜×us æ#ô§«ý½îf•‡˜ŠóBo£€íMÖ¦\„aWKæ–›‹q›0 W5} <êGöA¼LX‡;7ëŠÛÖhá6(i'ô»É‘…Ú`a›úW=ωÅr`2ô$/eðû‘8Y¯/³áçûd(©Û¶„„oÈï-£þƒV‰é|i¢ aüëkp-9fu_{_òõ9hõN8£ñ£íÝ7]Ô‹Ëb•º_æ·7 af¾;­óƬ½ñ¸˜M¾¨›ÖyU¢žWd`/.5ên4 å½äâ‰!Û>^Åßy",\%o£½BÅ4¢ºÉôÌk¶¥n*lFöDUÛâÑ©Yå*Yñv\Ì €“7õÙYªYé TM ¤ÊM»é`øë=_ÒÙ… 0¡Ï"L©ßïôÉjö>6¨·oÙPÅÁ±ËõP­rÕYŽ[³·¦ Î¥â4ç­’Ÿø‘w¦ïtŽ3NåGÙL›X쨚¯Šè²×ôÐVt<^›–­j¬ZÒ°åpBwt—R{aN-Øb‚‹±:9£w;¼5»væ¹E€.[(®u ÇhG±ù£ÎWWæûåFÅŒó6l…}SáíÌŽÅA¾ù®qâ¹]ú<‰ ³  ±€JoÝ!²0Õ-+¬ÛIÿî6Ò)–ûŽƒã¢ŸŒÌŠÿ®è÷Eï»ÿÁÿÆ@DÚw$½'I~!ÒžcìäýÇ"ï³ì™»“H2g”clØŒ__bel5Î>ß?Øm Ûm 0­ý›”X»‘@¡×xÞúYNކljP‚}Í” OjËÒ“Äéª;4²¨æ`a#µŠjÁI"QmaôtXžïýò¢_’ä‹|Ý䓲Þâ~$_ÓáÞ ó)ØßÏ/¼-ÕyQœ’/….‹|zö7ˆ®÷´ZE¥k+ ÄZnixS º\åëHßæ˜X,Pè*Ÿ–›Gý òñ…•Mh`­Añó¨”ä $‚xÆZÎ;I&³xWb'¥õ~¦wÉ`L°Žg5ÜCLZÔ¼Qö ü 0qP’ÄeäZ+¸´Ý8ó#­Á37/¥GÃtzdƒŽ+ˆå{Ö¤äâ&K_qZ)3FFe!GxY‚F'Íðëcº1`{kGŠ¥ÖŠBÀ-.ÔßE5é•i]")P…ئ҂Œ ó¶Ú/sÌå:f¯hl“}•dˆç@·û‹úš•2Û$Y©¦õD§ðGyÒÐì ¤TÂkì¦WYßvQõ7mßG[þªÚ¢á_¥£…X˜- ŠÕuÃÓ|Y±_‹ÂÛ™#…â"Š‰"à{q·`'‚Á+£G†è)Ó»Y ççƒMóÙé$ç.Ó?O2U…E‰ñ¨¤_¡ùMEŸœ~Û»ÇTŠTs¢…P/ñ÷Zhà¢G­u€7K:€ÈB@(ø× ld[¼—ŒKq˜…pã ÞÅå¨kü•BºÅ_J£/K*ß—æf‡¼@×å× Ý«.Ò:X®ü›(œY±¹‰IkШßp4¢t_—Sˆ-8x6­ÙCU5#K³.øï§mÌùѺzÊߌ–±øBÉ=E4דl ßÇjÒ%ë1·°iϬÖ{ƒ¡|e(@7®p?FpË–£!"ö æ+¢rzŽ¾2Z$Òu‰Pöù Áy»XKùRHé?hš‘ÛŒ¶ÚÞ±=ç"=£c¼ôíUçkDv0D²]7Dõ¹%Ôt^T˜Ï«l»J ¬ë÷Žô/Tv•3™:\©s†¿Ðõùù´ø.uÙ•^T‹ä #÷ÛÌ‚­xUÍfñ>ITºß‹ááôtõŸ¯±ó•9p~ZŸEˆi©Ae{É};¡Î½Œxü]åM‰zÎq0Œ@8Ú*†q.Ó§HÙÊÅ:ˆ¬ƒò”ðK÷dÚ@ãü<#{Ž&v*Œ”ŒÞæ¹BQ43[üµ} ~=-Ï់¥ù3p‘ŒNõ»Ãír£šßãî‘}ÜŽ5ÈçV׌Ez5X[ goÑ©4H _Eî­8^®[ØR…çÓÓhA½±<Ρ’Þ¥ŒÍ$²ö–E-©«ù«Jý ûþý=„èžÊíúM¥[{S¹æ"ð]…O§æÏH)ÈcãJ]_€gi·ë¡"¡§Y1}p*,<âÛz#+Øo¨É «†Êƒªb¸|mûad@TBœ mê«I”'ò F~Ï yð O¸¢n >™ÞFBsñåÅ_ÓŸó¯C̶öwÀjð§ñ.`w8‹ Þ=»HgÖùÁ°=è„ðþ²~+ºµü­ýH²á¸bE0ê;Ÿ¥ßT$ÝòÉàÎâÉ:èTœ®Âž©“5šuf¾ðª¸ªéþ£š“ú’ô¤µÍ‚Ø‹6 /Ö6ÿšš¦ ôZóÜ}ä¸âÿ-¿˜a˜»嬪á7Ùig}Ê­Š:ÙZ¥{Š‡-ùÏ0õ¢hÃäÿù£ $ì6ÿ Šðä¾ÕY®òé²x"rBDA…mm@РŽÈÛéF_"óVË™çÓÞ6N%:•APæ{~ø¯vª—>ùÝdýJ¤É´Ÿc§¡)R3Ü«+ onwPà‘" Ǭ¾e¼†!pŒRg7§ÒÁ~±^’Pç§ë«ñúæl¬Ã€¼~*h^±Ãö“‚í ^\ü ©Ã+QÒÔ>¢Ÿ9P4°X»Qô­ú„6Ýÿ{àˆÞ—O°ÜzÇ°"%7‡í€Au1FÆÙ‘øz#¨’¨‘sSL§­µcøÔ’Úô艫l®Le¼"ÁÒÚ1Vcõ.>ÂÎWÁÕ‰b“  ÛWeú“FÕ ,?ÓÁWÔ \èñwýÉ~·‹uÒý({j(6…Z½ÿÕF`ÿy"ñ_:¸÷Û¶ÑÿåÑѣãNü÷vñ_ÞÇ-¡,þ‹æð;ŒïcâbÀl½Eïâ·ä§íÊ”ÿ 9š“<Ì©róODrÙ6Ø CÛ2ÙEZ™7õUix kP!$(àŒå€çðiRC*| "šysŠ¯b8t²³7›sz·€™åtú ^v‘*Ðs»cx ¾dÝ:Ü"õGö ÕÿL£#?÷yD·á†×FóÔ >t &¼Ã0Ù©·˜ù`t¨šeÏØÅCP`‚14l—§Ò?´}§.Ï!Q·vq43³©vÿ†”²Î$Ü2J‡«zÝêaÏÁ[ >fÄ­?r Ùõ"V ¤â*/§`—ZÅ?é’©½ Ÿ1Aøþ |èŒD¾{~4W°ÐλPepU Zí›kCõ¾–Ù½/¢@jA'BÌŠkׇö–ÂwC¨‹÷!Nƒ­jZŸcöqý¶kWN&36Ë±Ò ó…•­;¥€)êš8/1‘ï(w–u#¥:³‘\dNº:co`³k˜9l»£ðâ #¦–N®n:¬´% Âë§Dõ€àG°¹‡ãÁX¡W°à,½Ÿ8@æ ¿ÙÍ|æâÓÃ͵½™dW£Ml/ó¯\yMâü4(Ul%áYÕaÊãŒS•ýCPe:º½­ÉŠ@³*Nk0…:ñ'Pô]ÄÊ eµhVF0O"ÑâÉÁû?€l¥é¯àã¯ácÕ¸{HI¸6"2uFn€°¨m¢·‹:WÁ‹JÄ7Å%}Z¿%ÿfwöçÔå4­™Á¾Zœm&ÙÌŠ$ÐXÌf©9íËbœKä(CÜÜÏr7üY~Y4€MÒŒÒÈ‚’@ùSSñÈó¥V^Ñq.¤~‘Ãî# Uâ+ fM$æ‰uìˆqE°K®IîÚªgÊqŽ›‚ô SÈã‰"‹»áÙ‰ÁÙ§9Ò„ë²]â~ (ƒ 2Géæâ“i‘Ÿ}¢<…7`t×|ðŠbÚéi Å/Í•mšváEVGûY©i=±@ÇÄØA½ø…&îi¡Ãm9˜yrg¯(—FC_s@RŒx4¦f}‰+ZO:>atUHDŽΖrO¡^5×n'Ÿ¶õ(®ñŒåž"ò‚öQ-1¬šÁ¶Cx§}ºPö*I…€’g$Á¸5 ÊC¦-ºR«u¡¾ÐÍͣ엫Œ2Aáý)"Ö<-Î!"9ÇÈçåÂlù”*e]Tþ`\IíhRœA†D{bPœ*& 4h–šÕq}‚[–¼Á½Ô—ÓÂÌvY/›®b æöï– ‘Và´*Z¢s Äá`Y´zv;a­ø‚€‚ÁŒ¤è²žÐøt*@¢ø¤qÛ\;¤º. ø/-¸M™ªÂ+5]Kª Ãß@ô¸ÎÝàB•EXiÁO¡B¢PW÷eñ”~"!'f&__£rD¢­yû.W"R6<¦ª>°È@IA>¡Ô°‡=w°óÖU펨ð¯0J$™XúÏ4(ï@¶Tì8 }ca㻇uåIpÆÚD]éÒí;7÷ }¬ì¨-nìªÕk:5ÛÅ>¶&”†ÁÞc馒ië‡êOZòûáÇ6ÕiCýÙÓ›‚”ʧccà•W8/~"ž¸†­“‘+¥E?F­K톎}"ñ}ysvCÆæ‘éé¶ðó*8ãQ`‘$=Ù;I¤J8Ê¡äÀ½ÍùánHð`E áןjnt¢Q¸Íè-UEñ°KŽú$1ÖÒ¾õ«\Ø¢@ñgŠ›Õ²Yâ1R4v‡äŸ–¥àðöÌ4¸E§·í)é%dé¶ðL¼+šSèc ­¸ññ"C-ê«VTF!îG‡Lºc'>®Ôz\ÀµsßÈãöL0ÚÍW´'†²­G‡×~ôüy”…mȃ\°9Y,')[©]Éq rS¼º/û;+VêDçÀT+½Vc÷6è†Avò\m=_û-¸€qËFfÖ~¨¢š‘¹>rFà¨wL ˜2wëÍ„œöšY°YÊwmthó¼È«s‘y d’/÷ÓÖîÏÍLÖçj-¸‡ÞrÀØ Ôš4óu]-pÛx­Û‹ðþ«cœ««Ÿ¶áÙãÌ«oÍÊ i󔨾g vÁçÓ]¿$æ³góÌÎïgÊ›6Esº7i¿õY52»­R~°›ÁÔæâŒitÊÍ- jÆ:ŠÁËÕ—~ÔX¤þË« ÔvƤž5“2¦*®£<«î€¼×µnxl`ÝÈmèî.‹DÙßœ®¯Ô<”€ÂÆpYí¯@=Ð93hþ3ÌsÙ`%±ƒ‹w…0?©$x@Wëÿª—tJE„^6ÓltlÔ̺üX6ã‚œvUìjˆdDÔñ‚ÏÓ9%§ëˆã%×”ˇ7 »&xw$lÁxpœÚHËuSž—Unç¡s—ˆsb¦ ]ÀyæŠIÈáñAuxRk²jêŽh½È‹±·}Á§0òæ›%çáàƒlüKkbYD2rÆ¥rº¾,{}iï™æÁ!º¿¾¶`‘±°¸ýX÷O¡mí‚3Ÿ[ ´¥‰êr¬5º±__„Òí©­ºIB_ç*êEÝ‚ ©f£‰Y%‘ÜZõ9Çü*»¬êëÊ ;°¤n‰Ý6²F‹R;>Žrì_âËR¶ ¼ÇÛp^"›(ª™D^y’¡a]rÆ™Õh/Øñz× «kªîÄoa²ÆjñâqÅ‚XØZ‡³"·±¤›ü]8*fðÂ,»‹`Š±ìïo„‚ðÆà‹Èά"ž¤â­rÄŸNÌ2©;G4©"Åc:PËò…e_=î xæ”àR­}Â|äíž=‘ÌÆ †ˆG—×{O:{çüíƆâQ§CCYk“‡BŸgm4>Çåq®½±l*Ì_PdtDl™lFÃEqmŽÄ¹Ol[¡YæF}ûŠ6[ùi^POcd0èé*œVGŽ_ †©”øâJÍ`‰èyüÓ3Ël17Uä"Ÿ'M p%!½ÄÝ 8(‰ãË¿Óí¢wq…U,«h›t¡´uvH§ ‡kyR£Õ šm©ð§nõd¬(œ¡ë:€•àLùÎ]&tú²>ú˜èœ?F\X—çC~WéÅßßÎ_ðU6¤Ã€Kç¥<¾XÞ¸T‚aã.|,C³sã6´·ßác0uÑôÛ,èæô ¿Ô(~˜­÷Ï ¾?ºùes3+h€¢A;§»<ÆÄ ’…c‘ñõÃH$v”K¸MdC3*ÀBóÖï-U³ç£)fÈ¡Ž¯ñþ>$wéƒSThG¹}‹ª·(V›Åy šL¹ðF…ý¦Šô˜¡ñôÓ×—{ëcÙ¶S è :š «HÌ-̓æÏ ‚…  é t z±nâbÐYZÅ¿ÑGHˆ&:1Ç¥ñbºÚ‚ lÈ]G .¶.÷\XIæá3Ï@ ÅtÀVøÇ€œ€WyL;JÏ¡v̯¨¡$ –Æ*ÌÒ¬1GCü˜æJJêÞv€¶ÑÖ¸Ž|ŒøØ‚¡lN‚€»Òl¥cvuÇò Õrɦá[ v-ŸôrˆHx6µlB(‰è¥ÔÂmgVqÙ Ÿ¼>’Ýä÷ÉfûÀ˜ÿÏ^ÈçÚù¸{Ùå©@„Üuj²EˆŽXªÙÅ°!î#ˆXµ 'µzD¸¼~t¿`œ1V‡ûüGQôš‚¬!ßÆ;l1=ç‹z‚Mqö¾l=å‘w[¶!ÐΣ¥8 w3’œ£ëËÖ°&ãåH‚ïãùFÜqY+,mq“t<}µN%e‹²ßk(?V¢K[x +‚öÒ `ÏpŽì ³í¤CU2oÆP†\ê×jC Žpsæc“»¶âržÚÇÝ<"¥!ÁV¨2¥Ô%Ò`Ö¨L›(†xàX»Eû¥üÅlœlŸ?•­¬ûê/˜G/h…iÞÿ½{ü´9·O²ÁI ÕuùkÈ7O91áÎ ºaM ÃÍQ”Bþ¡O¶MÓ ©a¡‚ãb¦’1cöJXxmù¶cs‚páv'::±ÊðtOL8‰)qô­z§dß(‘œ}oØfs*~Z„‡ÆzŽ|ÑÙŽ¢Š‰\Í:ñq7 ~P;µÄj%:p¼wþà“_§ùÈwk>CK°O&'‚tn±*LO‘)¼ŽeAú©!sh„ÓX˜Eæwy½àÈÉêp+KA¼ä`Ú·ˆ|o&õ-³(& ®dû¦ãMXFÖ# l½øÕMA¡†Ý½€«ÜCZS-`í‹|"¬•è.Xìñj_‚—Cú&kšï½ZÖºž/o#F†50Ãtí.ÂCpa{&á E6}ªÔ~öª€XŽìIob wð³¨MZ¼C¶îgõ´ 5¼C%ˆlÁïÍy,]0&Üû“oüL )Žá ŠåÁƒ:à©ô¹CŒ%é´½há ¯Œ|s*G|«æ0}I†ž°´ä)FyŽ§}Ùä@ÂEÅCþãÛ™±¥cOŽ§œü>•âÕúªQð ç ¶ï©?yç½$·EKi¶G4w×¾áïVâá+{œÕbŒÎa8øó¦œt•YÜý»¬km(få„ è€\_ƒãè*CÌ Ù ¦Ë¯N×EVîÚy‹Øå¦V^‘˜ç^¬ Ýû{Œ—m…ºpZÜxÈZC!Mß­îN–‹ ¥W¯ÐÚ v¹²‹&#—«2¾bLk™±ÏQ”,wÁŽØ‘'åÎ,ü~*qpg gq÷Ô¡ìA¨ %ϑ݃!Ìà«h“)£¡3]t•#uÔêVÌ.~PÙ® Ý >¹‰›ªu`´&+Ôq°l÷—G ÷Qà¿PÝ›}¥·ÚÓTòðå`-½iO‚™¶®°4 ÿYb…¾þA¹a£…oEèøXwb˜é@9#~Á.uª‡ gӸŽ[áÑY ™oM©FxÇ"¿¤y7Ÿ˜¯Jò×þ U :ìMÔ?±ÿ8EÐ%`÷(-Õ ÓH'HñéâÞ9¯@‡Y¥}€B¼øöÅëïþöºÛ ͤŒøKÖ#áÓˆô±S¯”d1×ÙÓV=nµé°¡xzaÚ\òðñt9ƒ‚)òxK:YÖ5ô$ß™ãW_¢É­¤TF’orj-“|+à[”èŸ:…AõتIèEã+¸j¦ûîÚìÑÍKñÌÛ[(`gdIœÉ"÷tqáA'w·8ù¸b¾•†s#Ect銽ôµŸäX(ª‰;ßbcÍŽ \¾Jîµø6ž²‚Þy÷v œ‚»cB{xñÖp ª‘û8ám=>E Ȩ1›( ؉u¶«°Ø&—pØìÈÜ %vÅäkL´Z“Z„ÉdBæÑ–P7`ÅË J QÂuKÇdÂØ «5&7t–Ímý0ÁÜbÒ“SÛ–é½»jଠ»L›¦hçu¥ k ‡f½êlãëÇÓYY‰1uÊù4YÎf«Móá<ƒHèОœÏ˜ÛÛDƒj×F<C1´6 IyfÏ5ó(׈Ëëœõ feÁVh¿.Ï–¨Hf*ˆép¶ð°)0 bNYTŽ/!5Ù\̾zZB_ ZP¬zÄFsF&w"Ø=Øžj À~Ÿï‡¸!4yIž6²û¹“_ýKd*Y¾¬¸ž§¶'¥s$ÿq†ÓŒþž×¥ÙÖ3'þ'¾⦨ä³órØ…æUYslè´hŽ˜ÍÜ9ÂAn*!—zpÙ>_㎎Ì;- Xt tŠx±p (2Pß·t–‹ þä^á{Xù"m²TqvÖ½«‚‘{Vœw·{kú„EQh ÏhÆî­#g¢³+ ÿ¸(‹&oÆ+eï%Ë·l8=SͶLeIœžÓdÂf†Áä3x˜•r6+&%V(’~')Héõ:L3ãY òs¶pÒ§`;!õŒW"€¬Yc-"Ì_ï΄õåJÎ7ŒÕ /[h5À° "¹öQ?, ãÊ ˆTƒ³Â”P'ÜuuSë©„’åÈj‚8[@u½ßèðJ¾ ÃÎòRŇ ÐÏ– r“ôSÅ£ °¼*w€ò‘ Έ}‚ëék#›ÎÔ³ç£È¤mK%Ž%aUEÚyj´ÁNðC.Š_F;°“mÒv½&Ñ‚Ž@K2ÅûªÈ&h»]P]}EOœî:Û¨Už…–oOð噑¡E6 ³Ñ«ë½ŽE+‚Wµçká设‘$]‰¼sg¨RõUŒ+àÞáV¼.ׯÁuô¶ 2Á8­2ØiL••ø!4°Ý²pžS†;b6Ûñ HàýÂ›Í wX©o¼SJ&hQ̵É#`׋0Éh>°„^¼±tïßÌ@yÄ1Ö†FRùŠ9+)îȽõÄ” Ðèi%(s¶ºŽEñΞ4¹zã––|ÝæŠç`+1Ì«jRtßïº>A•öúP-"•Ü[Œ/ü‚Bv#JnZp<  é¨{äÝκ{¥g‡wÕÞ¦êèÎh=¢ûû²x’‘É-d=z¶Âèæ„dØãïl" ’ÂE4u L_1¢C l"VÌE>'Q£îWÁ?P¨‡žç䇶GªyÞÔ‹ÚìQ®:>¼ðÉ?¼ÿîÍëù¤F' Í`Ñr¼ÇZ—A~á.[w–;¬A¼R6åá§-Å$·-0Zl9ˆ ¸?ÁOÁÄ“` ò›T 4¼Fÿ_vé»,V§uÞLðz“]Z{ÙOI¨×ý@°|í# ³Ù°‚X½Â•k—îÈ1£=YTÆ…ð5º.,x<ê¥D1‹@^È/ž-Ä÷Ä@“#”R ê§ÅÔ Éfgg½‹O2²1åJJùåú¥î©x+ÊT²`0'XvÐj.qÙz «®°‚Þ<˜a?I µ}d+‘&)]Ý‚‰à&¸Ÿ rïŽJâÄH‘áwEŒd¢NéelØ‚ÐÔ!QR{‘3:rv nž]I¡îÁB²hòª-jáÞJâ`ÈÍÂE*êoþ®èELJ8¹ð]µPzA¡ÌzðÂØ¥p¬\iVì­Î&bë¦#Ú09Á³.ä¥ s¹¹HrÆHPÅzÍǨæ No¢UšJüë)—ß-¼¬­Åá](ÓPW„Öo­EÞWFè©{¹÷þµ:|z^nxá;¸3µÂªÛ²ÓéÉŠÌË=ŠX¦l )mÜV®{„P}XptšF‚û7–÷dæzŽ‹¿åêRÇFË»÷^T6ÜÃÈP€¶©¶ê>»£6=… î8ó‰eÝĽ…%ÐËœ5Û©q>­OóéK#¢BÃAØ?/jÓPÓÁ; ÈŠi¦­(*¼´ÄàÏI¤hi;”ð5l^©û}T©ìY#T©ÎkËbRoñp쉌Ô= ÖÇú^“±~„ê>¨š‚5NÃxNç·>²y±³•\0“‡J×ǨȾüæuf4½Âl;ž}} Kwn:C‘«²Óe»µ¶÷ Úßi÷& #ŽœÛÄ]œjèTHõ…q%4„±[µÎÎ|á´4²oªÈÑ4žEÁò,NØmÇr­F 8ÌOM;€/çH »ÜFA !ÇCP¸óŽ_HWlG”…k˜×ä'«¹q3„ñé×fy‹¤LÍ!Ì0^Ã]ƒÀy£ó¤s訔DÎÉ*1¸ÁQ4ÂQp¿ºb•;µ¦CSÍdZp6Ý'¬ç/Øl¶U×µóÔ&8ˆšõ¦Sc¥LUCÝÚqÁ`Q*,‘¢3@zÌBç»x4¦¢ôÛ…[Ô¼¬X` ÄöE y(Ú°¸oTë$¶[VfÌFœ. ÕþHÌTpïÑ·q} W­Fƒ?°:çPRž¥ifUe1Ff)úg:‡­Gn}ƒQ—„0D)š$ sŸâáb. 7b„T AÉFŒ…ÅN`¨#<•4ÓëZš%  rölãøn4[zv2XMõ’ÎÕfØI±kŠYÉ“¢ו Ê“Àh‰†’SL,QTtSn•­¦˜Á¹LÁZ= +b›³ñ``…DµŒYÂDsɬÃ,6¾æíºê¥›•ec¢ÊJqq¾Ò ‘înLC'Ñ¡0µ¢ùwRñù·$û{k¹Å¿¢Oð_Èç z²ÿ°Å}’ð¡`÷ÎO¦Ô¿/rçл)#°K cßZ|¼Îöh!-S +` a¶’Žw‡ƒØ°˜ží[äEÑíŸÈIÑ3›AÉ_Ë”–þy¡1-dâL [ÒóíaE6˜ómæ[‹šs§v$§}‡^ß¡×w?wüÇÿSðí»Aÿ¯Ãÿ<üì(Äÿ?züàh‡ÿ?+þÿqåü°ÑÿÔÍbÿéãíÿàÞ[üj`ÿ‚ûøº‘[{{m=¼=PšD’ä‹ñ˺=ºZ<×Uh¾ºI^v‹gØ4QgÊǽ©#€½ûÞРlï Ðë`½}ÎIG²>¬w¸¡#@*UÓ3÷þ0sÈçw ˜{LiªÚ"ÌÿfÖû¯‡T|÷иÝ9î:ÇÅôÿjùeÞÜ•òÿoëôÿŸ=|ðXéÿ@ÿ?||¸ÓÿßÇÏÇ©ÿ#‡àÊ?öQkþ"¢XËBeYxl%áÃÏŠ$<úBI‘ÍÏX±;8ˆ­QI}ÒŽ«%'æ¥Xið ½ÅáA™ºG ›žr?óÆVaÖËÐKð.'òÓXv:iê9à‰hĤ 7…U~œÿl¿ :¹ìÜ;x#Ê.ìÚ˜¼À¼ƒ&^iŠ ¤êdXšŽ:µL‹3ŒÖ˜¥¸ˆªð3EõÏv©Èå †çº(¦säx¾¦v—x?íŽ7à¬+}¸¡'|R±mZ|ð8oÇù¤à–‡ ~Û£Ht¼H'ÔŒ'‹5E›¬A"ïzÿ?·ºS¢@Bç·1•ü•Íñ±)…ÑqV¡šÜ´Éš%c@ÀÄf~`úNìyªLc+}‡\jˤmëq‰çµÎÛÖ,2Ñ0dËC Må÷ÛEîÀé¦zWž[õâ²X¥ÂñÛ¨‹_,úÓ>Q߀ 9즲òÊí¡RyÎñ omÄÖ¤!øF«ÓÉ©mº.þý|ñG/©‰x&ú76tÛ'˜-'…b æ@¾Àck^ѽ·šî/Ùh:kÎ «¬®êËÂ&uå—# Á“üñÔyt0¸×²›²•‡NC§I‡kó增Ƨ0×Ëj*lÇNšW†'ŠW‚\D«O_ÇÄ޸ØÓþs褡©‘=“ ï ^² Ë\yý¤Yq™0"#%d–Þ‡šq÷¼úRqc^ýiϤ0—t•žOÍN5Y¹P§Ô šª3ñ.”jî\X=‰a£žÑ)áôk*î¶D¯¨0Ê#hÐFòØdUú^Š`~V*<Û@Ø3vh$ºÓlÌMúýˆ´ë¦"Yi8–Ä&rØÙAz¶y>y›Ø?àÕ›‡Þø笚}2 ™1M Š¶¾¸*B=Na…Þr܆’·ÞIéC§*}šm‚ç©0SIYMRë w¿ÝÙH?X©=PQÎÕßĹ ~Ô)ij¥«Áur 8Ôy\î»T8€qCœ¸š»Zd|Ð¥0é> ²SGB–\y®+‚[Ç >FvÄ55D¹ßÙfÛž›ÓÁŽ> F¯ïÉ¿_§º2AtÍìÊálì)—ooBS t¯P,LHÁsÖ}d¶…Ųý«91u\À5Þ>¾ýoê÷éd‚0nìxç̮͉q‰8½lA[âDA’ª\a±vÖ¢Üýžò]I.=|½wÅiæªÎ+¬¶pTgzîö©¡—±Ô¶tÂMu`Ü^2±Œ(HcPáóyÇúœã×)ò¦>;K­§î' ìÄç¬'ëƒ=_ªtöZ7@±œj8 &?è“=êù1¹{û– EQ Î箇ÜФu’+öÞš(Ôþ¤0u†ýàµf…~ä¡$;]à³­= ZÚ"jˆg' ·¦‡ :­ÁÄ´,^%2'4l2ˆ¿˜r¢  @Á©Å¯jCO¤Ã ¦ìÌ&:œ[°²U^/‹0ƒNùU-÷%ðž¿òòÖÛÚé1÷­Sw·ëw("a’æ])ÖL;;¡ëDx •±pÙ 2kï;“ö¡¸DØš÷ðu`ÐþåIùXÒháÑl¸Fìî9ÇXád{Kp²3&NÃ¥ãí=‚ÚÿXÇ€÷Ze¯Š[Jꘔ¶©KjOJ{"öæ’ºWJËÖ°±¤Ž\ðÀçùø1aáýŽcZ¢‹·;>˜tô&#ŒÝ‚Í ÷l~ò/xÂ$¬~ß<9Éâ5HÈ›”“§}§¢€ENå&"˜• sæÄe¡C¾E7¾Âß%ì}Cw”ke³‹c±„8-«NV<mvÛÍ@¦Y<’Ñw€oåÜUÉG¹Y‚âÑ¿aB‰µ›&z§ŸõÐãtÜð˜JN º9‹#+©ÃÉœÞÝ è0#Î5>p,9÷ÆÂœ@,`Nû%då ±ûºÉ'e¼ÕÂ…÷O÷n˜OáéüÂ;:»Öi±ÀLxÙª{6dðG2ÛpTÿw[qg£uSAÙ ìéÝ~‰ «ß³’ˆ®|•Oˉ—O¬ªV{F; l‰S—Gwhпvð²ŸÑÏ;Õ~¦Õò†"ý€ýCeÔ.Š¨½EZðY$ä+”OÖ¦ä<á}~ŸH8s/­Á37rJ§¶mÚè‘ ž¯2”ïY“lûž’ÁH.Þ¤8Ìí¶B/ô;˜8lz«±ø›û‰#ºçûEÿ½=¼@ñ–Ì&ûBìñZZa©µÂ#«¿ ˜»ÍÜ™Ì ˜¢²V&D!_<ÙV”¡V_½Ž‰¸êùùˆp¥q­/È׬ÎÚ&ÉœH5­'zÙ‚—~ž¼pânóô:£ðŠ‡ÚõmUÓö}´å¯ª-öíþ_Q8 Ú–àUÃÐÚ蚦U ?Sås£».îùþØp]9‡ð×Þã=)>YŽÎÁ¢æ¬† o˜k×ìîÆÆHü?ÓÝNö¼˜ÕOäÐ’œ@ Ÿ““!øŽØ~¶÷ÄÚÁ›q~x¨]48ûNEy<ΔN7äšîukùÊ=Vù’Áw¶ØŒA…T¿æÚ\Œ"ùû“¦˜–f(ÇÙ€j åNÍ.œ?Y\˜Â‡ÝRn$z`{aßö¡÷Ã3Ø=Üø7MPZˆ.#÷„¼‡¥è êßpðu9-£lðlZ!â1ˆS¹t;ªïüm¼ËD늎‹Ã„˜ýnñ]U OñôI6†ï{Ýè2ú˜[Ø´gVÿºÁP¾2 ›i!oËÑ{óQ9=G_}éºD4í|…€‘±nDò¥‘Ú‰9¦£-¶‰ìÞ±=ç"=£c`ôíUQ-#ùN× Q}®F 5$7ô*Ûn€Rk½#ý •ÝßßDÅS¦Ô|¥ñú‹|QŸŸO‹à2-øEµøÀ}U”Àó¨j6 ÿðI¢Rˆ‰9<Ü‚ž®^øó5Ö“Aþ¼êSs ŽÓRƒÊö’ûvB{YtK^åM‰ûåq0Œ@0Ú*†q.ÓçÙÊÅ:ˆ¬ƒ²”0a÷dú¨ ãü<#û×58 € \H 渳BQQ<à¨ÅìÛðëiyÿ\,ÍŸj‹LNõ»Ãíؘ™ýAöü½;2Ÿü]nÇäó«ë Æ"=‹Îýг¿Ãj&MÈ5ÜQÁ"¶neKj OO‰;ËÍr•ô®el&¹’µ¢‘º*T°¬¡Ôß [Õß@[IñV°Œ\â7•nëMå‹ ²4z)08š?#¥ œ•+eNO‹Ø‚d”yÿà új…¯B]…Çë«4§fA™I,ÞÎif7Pã,9T†ä…ÕèäA’¦æa³:=íad8T‚ô¾ã¡Œ9«§„ܼn‘h©÷'2…¯ð þ¤«ÎÙ¡zßH(~x0 v(ì>ç_‡8í£døî?5㞊ﲨÒò·U¦;%Óª¨+b–êpÀg©7‰5·êdA»³X²:¥«°gªd Ä:f˜/¼*T¦Hºÿ¨ž¤¾$ýfm³ ­¢Í"Ês]Óñ¯©iª@/N;\xöuçR@ykÉì“1cxéÌ©~ƒ×€ÑS×¾ä7.†ž Iº§ØlVü§ê*íØE‹È’o ËïqöÏ﹢ݴ¡¤Úöæ ®­®±þžÀÆá+28ÁÕ ê)ϲiQ ;ýØËŽ³›­–3Ó½û¬˜¶E¬D§²Þ?üñž_þû‡ìÐ=… S³ˆà“ßMÙï DšLûf[+ªÉÐ ©î±PóÈm°qÃ#Eb¢ÛPÆkØHµ©RC7§ÒÁ~±^’Pç§ë«ñúællÀ¼~*h^±Ãõ“O Ç~ìÍÐÐÖñ‡l€/%ªy”hÉDœ÷p`8k€Àx°ú½†«ÿ uïÿxºÕŸ`+¸ŽambK†9ñµiÒt/¨.ÆÒ8O2$_ñ]uj`s¬u{ý>Õ{â*[£íR¯H°Èv,¶‹õ3>ÖÎW9]1ÌA0Ed™FHZ'ASÛ Ï̤½Á?jÓ:k"þ®³gÙïÀŽ‹–Ñ],…D,…§†bS¨õ Ñû]T<ú‰Åð4ï uùß?{ð ŒÿðøÁg»øïã‡xþc‹ÿ`ÏövçÝÂ.×N ˆ_|.büá°6 ¢¬ “ùªÁö“·CÎñÜ,ìÉðC aO¦â<‰÷—«¸#’"âEŸ›c8†\à1AEõ™ÙŽ¯Ðv?)ωˆ!Ü—ö—ïÈgZä’gŒ’Ãä«„ÃJÐÕ„Út•µu&¹¦‚K%ÈtUÌæ„õ”¡A~z¬Æ|T!àH€`w˜®…Ó4ðc$–7¤¼‘–±–NŽ=|‰R1†åšW¥ŽðcmäË „V—ŸiBæ|!íñŽ¢§6}Ã5ÏA8ÓÓ6¼öA3”Š( 0‚ȧ=ç' õ’™ž¯j°©3è_-‰ÎÑ=¦þŽëz !EÉÍ€†Ü®¼L4z4k63½„ w¸àÚ£Ö.j¸(ÕÀ‰Ð`:7ò=AB&yú¦À‘Û¬vŽª‚æ¼O±3ê±kËID´ç(­Ê r}‘¡1‚U@/£/`ÐEÓÔÍ  ìuõ®ZPìýb ’e<.´s,»Ù¡£rQqˆO1“‘y¼"l‰ËeE3‰™5KÌAèØ…k1›H° Ç‘Ç hÐ f’¦õ5y¡Ûúq{ÕD(6²l…/<^—0ƒ‹a3v#]Ô‘uçç(DÿbÀ4è!{¾”û>@6dÝ1·ŒÙ$=èÓ¥ÜóUÃõvkÓª0Öšw׆ã nÑ^bC´Œ®*Êg1ûó*·Ë$_äätXW]‚$ L \kƒÂgË¢ë,+È„TL†|ó;eh—YÅÅÏÄ*@¼¯ÄÈJ:½@@e…áTÄçZÊ{A :Ù«Í#x‚÷haÀ%moˆÔ…>ºeúû'a¼@£$§vä°EW¸7²Fgû¥C"{ŽÙU-GÊÎJÊôèà „&ŸYÞœ—©°@ªÄ–QgB·½yÝvùërK¹ì_…‹s† ‰B c$¼Ä\å]èEäok7Œ+¡¬rYÍëcÀ (À§†ÓÆÅFC'¤Î— 9±P)¸ÌŠX-U.<ˆo0õf@À)"®uJÖèÙFŸþŽé^\wöH sB­9s–%N-Y¼…ïÄóɆäRù,!¬Ë n!S,ÈI<9~Ì'Òp]vc­ø»©JÄÚ]:³­¢€³ßÚjÑZ²É5é€%#G9v$…~ý1HpèµS…iÑÂBø%ÕnëóZéÔÞnV»»H¬‹zF'(@:^XÎíx)0r¶lò‰ÅÛÕ³àycBe2±èu‘->j¼t0žË¾F‹òžµ`‡›WZ5é ,úl¬#@Ë1kB ŸZrÆ)FÉ,\¢ÎYöKšd}ĽžÝÕÐmÜߦEf‡eAß-–f!@Î ‡‡ï1Û3E`õI#Æ/êkØFé)Õà¾Ú­*6­Ï¹u‚çsƨ¬S+CN²&¯.ýð`®ï‘–å3§_³b¡Î´¾Òj±ÊŠ]ß»µò!”NL'úlJÖÝ##%ªžÖµ9Þ“g¥šC#(¿¨}²Ð|£$4+Ð/Æj§žÓçÙr²6=DUSCÚHöNŠUe3dc¦_Î"m*¼6,p~²G"'.I£ 3rÿ!îs³ìI6|4B°Ï‘ùGn"Õùþ4…Ž2(×\RœDÒC™æ-ýÏ–áÆ`<ÔØÖã•Á¶¸Dª $t[‡Ý2tTe¼þü/Ý‹©¢wßhÍq«Z¤râËè^!qͱÒ3W£µ`ŠEŽ¼$%Äk ƒÄúWúú´Þ·BþN”eØŠ.SÉ!éåûeªGƒâº“¹ýƒŽ †Hƒ¤Žy Vd6 °ìÕžyC‹¶oj-e”Ë éc‰AÍéµüX'8¢Ô¤ÉQV8ÛᬜL¦bÌçM#‚}ãèá]œ´~ª vÛwÈL ;:žëXÝÝóðV1X]DErö„ïL“½Â=²Xä嶮okôóÈçÔö,–˜]·/8¡n²U½4›5휜Æ×ï؉W‰¹%‡H£M§¡Òwš>äWçl»\"([n›K¤*‰$ñ½'T4%®\ ßM–x*ðùŒÑZJº!¦ÐêöÌûÎ…e NãqÝà8»Ì…Ç@Ùù¯ë l3ò¢ö«Ÿ–¥Ñ(ðÞQ’i[¤öy6 ðhãLªý”‹SÍÉ#âó ‰µ–P‚’òˆ¥ûòr s5^bŒ€n°®¨fµžH‚`!»v‚T^™Á…žÁpÏpÄqÝ7=ðaRÞUÒHÄÍ‹ÆHŠ+G}Q×Ê¿ðÍ|ˆöÅù`d¦cìº(AÌÉ ËžØÕj',0OìIÇž·¼‹…×-y3/”&Ôé/× E œ>ÄC‹ŒŒFH)Ç”nO­+OÊie i_±. èUðP^viÇ“„?µÎ,AIªsa¾:!W×™a—ãJ"ÃB\é±r¨ay­ÎÉ#ÿ`‡Ã:Çü“ÿˆÏ'ÎÝñ॒+=lp<ˆùÁY×^F#ýìÓgôt¯CÞ~Ï­Á !×L91…×îô‰ûÌÆÁ$¯í* {ÂmÍŸ­u¦7]5»\TÊW QìØí^!ù£°kÛEý—öဵQÉ6ôG(ÏüBÇbIà™C #OM/ö²ße:5ð²ÆÂb€üg·‚»¼}FßþÆt/Ò3U7þó‡l 8ï†fî ƒRò¤ã˜†úŽ÷]îÍm蟪íî€îº·êÓX™†áLãJŽ“ÄXG¡]¨»UÚ.CãýøàÑñ‚Pã…‘Ó›Õ¨é©>CêuüSÙ7ž ¸È 9KŒÊaOMÑŒºtUߺ)±r32Ñ~ZÖÑ—&ãÞ=k”9f‹*Éç'f“ƒ ûb>+­pWÕP)„šã“³ºþDJÑ$fƒ/Í¿ä×!‘~‰xœÂÏHŽgà"ÌßêÝÀTñµ­4¿>ø Ü£Õײƒ=±à¾ø˜›9Çá `†ù¸=ºCç…$þÿy™Oëó;qX‡ÿ?<< ðÿíò?¾—b›ÿOþKp žnàÀ‹¶ëpð…ÍytpsOªß9äÙ„ˆ¨îMÙêì[²rŒùínâ  $QEÈq{'î=š øw¶ŽÉ:½ƒƒØ!ü›q2Sa¹V)SèH)œaª,‰¢<?nÑLóÙé$ÇžòŠ#vƒáZÆð¼0}_4u`´?Àÿõbº&ð<£ã?·àøÏ16×z9æÎ[ŽÒã;ïUÀýµ<žxg]úŽ$îÙtµ1™Nè$õ]e´’¯§«Í» ƒˆ]Vš¢5 ª›Ââ¿dK€{fH Em±òŒŸÄ£¥{Ó©.â¸9[¶˜ºŠŽíz¾i]!”Æ1ø€‘¯Ïœáÿà®ò츱<¸¼·<Éüï?©Ö÷º‹Ëô”*ûM'~´«ßŨ{å8¼Séüé Hx;Šm;JÙKì=ë¸mNæíÎÿ‰ò{>Ÿbr°g¶m*ÙBÁÝΓ+\V®ïE·2OKÑêW7Wô„õäKw;r/¶"ÈMñ²>rùšhù‡Ÿg/óÔy”èû.Vþ¯÷§‹ÿ‡ _Öõå]Eÿ_‡ÿphþÆÿð`‡ÿ/?Œ>ÿ¨ðÿÂá4ô_:Ù‡ú·Kµøx`·¤£Ã/nø—ª5Ö,ø`ËOás~ËøþO›ñº7!þíóÛü+ÓýS˜bâ¿Û}0·  †ªàØpÕ”n×û²Ààs ƒ,1DÇ \¼ÄŒDWe["LNîà¨"¼S¢N Z“‰Ñ¡>9-*£R]|B·zO+WRgÔ³c Ããám!è`x[È7ù)úÏ ':4ôœ‚Š¿¦"A0*ö^›ia‘ø“ÀñÍ“]‚‘cUÓ€Ò*uƒ–·•ƒGi½©í¢µ8Â%Ô*¤•R,âŒôõªÜZQÕØÑy$J` GÔgS^ACð?ÜžI³!Þ±m‘¼{:-/!r„CFŠ¸>A¤D—h.'ɬŒÜƒßÊÕhôWù‡èUÒ4õu•_•çx“ò*ñKm‰/j–ì]„LÏÇ!1·]«Ó:o& FI äöÃ@2~ö6ì|Ñz)%ºœd^AF[„»ŸIdYuœÉó† 'a)‡[{rôá´T‰-ÁŽ„à6]­2TÁ-3‘ TRÓ3*"Yº¤ÐÛàöñŒ¹½¯ËÜà SPȶnr›ŠF7šXÏq¯oÆ'ñM€|´i‚h•Ù™¹ô5'‚2BØ<Ý‚s$b¤õ¸fD H\X5*+Sb_ìEÓ`l¤E9uEMmç[+¼œ&Æ*êŸ\]äfsÛ¡3&=((Ò5 qêªâ:äà&›%}ÞDL8c×ËvºŠÌ;VÒ;÷›G1 Qî°ÝOËž-g úÜ‹´v¶>ôQ6„”å[Œ¡â$L8‰w”¢AË’EWrÈ·¯&k*À—*rS ìJ¡wàÿ³™ŒÞ’%Ì~†¬ÓË!ÖkQ=ñ%šd †nÕY]²9´æØ7]ÂØ…ÑXúÂMØŽ‡ SH&hoº:Mh¸]—eN'e•Ó/øl°Â‰¶þˆÃ£PÀ÷>Z¯~YávïèaHvô¢Í{q85BõjŠÓ²:š¡n¾lmhpúj\cC¼‰Ä )›C<}¾gÆž¯ ˱Â9&ŽÂhC–5jœûÂó„*”HÃÊb2ñ9w?ˆ‚ŒX.šEè¨ÐzI…Fî(†m H®*}˜AÜë™…gÕ˜ýs³E̵[ÊßtXJ¯"?t³Áe_¢=[MO»¯óÓ`‘©´ž·Þ¯3†¬8õ-97$KKⶡda¥nI6Ÿ$C!Lœ²Eé2 û‘! ã þþ÷ððòºLv2‘so@…á¼ÎÄÞ@½ËËnqŒÉÆc^º”¼x“®ðÒì÷zhm'¨+–Vëú¼¼2ZÍ)…yõ?³S«·YLf©Ô”Èg`ÙAßAöÀ¿Öi‹ïш^#ß°®W_}óÕ³×ëªKò£W9s¤]úŽ‚sfóH²ò¦ sÑýÔÛä‹ qpDO ÍojØk1IûäZ¡>÷l=”R, éŲÑÅ1k¬™?î5v@^E‚™ÍÒ”üor'¶&|ëVïªç|¦%%}Óm w èìè”Ú‰E‘Je¹€Ç_˜Ì¡’P!Yî«&µcé«k³ƒØƒ|‹9›Ê·¢ƒjóʉ6…ãP/A-šçmk/3/(²9™rËñ¢nZ²BX_3}M„1KòÓîVMùn#—Á„Š¨ t]-ú’?Mù¼ÐŠD¹ 3U1kñ6 k…2: qTá[wð,5p&kùšã#*¹ÐtC|®dÇp–Q}†£ã>—®Ý9A혧ˆäuW$¼°;™G«eÏR1ø®7VDÕ¹¡„«2ß)ÙÌÞy×àX­Á[@/”&à\)ïP#ì£}Ý×Ñ<®Žœáá6dO+‰¼à í‘IºhÔv¤è‘œzˆR‘îžÖ)9F”,0 åТ)M É »¾c¬4÷M˜*ò!,·ÞxµPÎri DÆ>CŠ2Ê3›ËzëCLX\Á¾½ËG \J¦ñŸ–eƒvJVè.6Û„•o^OWçpîrT&hRã^ÆÚ1ì”2›{†ipï,ÆUùÓR¥×Pmò|°OyðãáæIYœ8é6)º¼Ê£WÄFÞk&ѧSgçÜÆb½\Æ­¡Í_ýµìÀ›½b^j‹E•yat®ò_éQëBq­¸ÝtU¿*$ü\†c £BGi´z°#Õ,[Ζ3ËrEK¶Ãxd#éh¼~GÉ'EI5†^ ƒ€bL[:*3«Ž80)Ìî:/V]>°ÉXq3Ššc–|/Ž‘GDÓI%ù5æ…º©}ÎcϺ¨í»™Š÷B¯i—$•¯À8±ûtj5·Vø¯lœ¥¦'µ©†!©.T¢×ær>1/OÊÉ´Xäíeë䞤©ïã j}Ìù^%Cœì+ã“BšÎ̹BÅ*ˆVkú 7ƒÔª\ê •xÇ0¢¨ü—Š)Ê+ˬ_WFt¦oì¶Wh¼Ë„Lñ® #'½ÄZ"%þ¦¡c~e^Éñ|:rjËY®&o å ;åú¿l’ç ЗOžÎçEÞ€SË'Q»…ë$¾=v/à 7pŸ"Ý4lãÙGD׉Ùy¢N‡Ø£×u=…ì áu#í£ö#ºJ"‚ý~’uy‘Ÿ;÷ªJu ¿º!ù¤ŽÓCåîöì¢_nmH•ãóåþx±oÃÞœîŸ7ådØ9pBµh9C‡$UèhëæxÜÙ¢œ·º¹£Ts‡ÉÙxµ0 g9¿‹Ùàªîx6.ÀQ•Æ„‰_—Åt¡M_&.? xþ°M™q:#´çwù­Ë²tÔ¿à®k iN&Öö¯/p23Z·j?ZìHG(Õ]ƒ¾–ËnçÊÕãÊõà ûn¼¨Á@}øÅ_ìܹv?ë~ºþ_êþÚX“ÿåáÑÃŽÿ—ùcçÿõ>~>Fÿ/Çá´˜ötIû€©åÚñ;úâsÙÍ?»IÚW¹ócø)@ã”››[¸„­ñš¹¡3˜ 6ƒ‡K°²%U0§G*•g«1§¥z\æ’2%Èž:¯çmf4E 3—8à-%ws?8T›ó‹²ùŽm{y *ˆ:DË3„t¸µ¤©ÏÏصÕQÀ}‚˜²ajÑ”…õl p‘œÓÐ;OÚ€ÔGÆÕ´­Ø ¦z'ö³b¯ñè±ëÓ !°´ qÜwAÖ „‡Ä‘¶ÄQÚ\G04±{¹¸{ ¶¶—.$q a×*²µW¥{ãî’ù¬&8è‚q7‰½-Õ ò½àÝ”zj¨òÓw3ó•™è6ŒÁ+$ˆ1ÙJ­¸àËmïö}†AÁ˜Lš²M¾n"8HÙ³84ð{µ‘åþhšµu”¾ëȵï^i ë@µ;+“n¥S{»YíÎð‡yâãÃè î•Ù?Dpq;žãf’¢m6’¾Ä ‹r|™J»F/·XìIŸâú#÷ðù€ƒoy²okØ òm6U=çòâˆÅÉ<ý°ßÉuö½${µˆËB†÷I|ÕŠÑ«GäºÇÂÑs› ±ÕF'“äalg/ïú ½0Ø Ç%C‚WËTϾ·½g5ìmÔÒ“HqÇP'zÀ’[ÀüÝý†vØã쟃Óü£ŸÛâ¯e“5%ýuZ—Sú­É¯?övÀ& TaæÓ$#pa^/ꆉ±ÏKC*΋8ͳ»%:4„iãbt§M=×Óh4/òþCœÈþ:_Îæ†ÑÂúN~ÂtÀþ;Œ'‘"³¥ÑM‰<1BwÑwKé—d£â¶úé|6]¶™ä§õ&›A ü–~dQð¹¸CJ“Zñ\ú—$·O­Ð>ÃQ†‹dÌç(Ö ë ÌR>-Ï+$s;Äzu. Ç;,‚¡f_çÚAVžŠ}ÔFH Ïó °á˜× ßëò+ f;í¼Ê~ךÿí²ßeo<ºw†š‘ÔŒ½Ô)5ü‰á±Xª¨ŒÎ–ÕM©ëçÁ.Žëê¬<_6ÅPq–ý óOHWv8ä^òÑCþ|‡Cþpºøß¿åU1QæãÛ·±&ÿÃÁã£Ïüïcó¿þ÷}ü|Œø_Åá4Xõ³¬l_"ˆÃ£ÏoVµ; 0³h—§˜W⯴³4[º©âen>¾MŽˆwÆn ³Ð™™Áy^~E¡"7cû‰Áµ2J¤F;Ê.«⦷4l r I0/Èàš;c³‡—ìMÂFckðKäcL{ULWÔ°Rª0p,)QM~Ž ò¬á´•1¦˜¸P3Ób/ã[|Ìif0¦ ‡dËá¼È{ÖÿÞñ “9 ¶6ÉŒ>\þ †‘Cy0WœÂoºêµGvžGƒÀ¬¬ð÷i9+’Š˜æÿ*>²sn·Hå…öé÷¯hHUnב»¡¢ÉŠ^“èX,äµo½#+ŽÅÂAµ°&C”Éõц L9Åô´ýgkqè7O«ãë ’•ã$쪧Z/w×z7h`Z*=á'\#¨i$ùÜNÄOK`FªŸ%PŽNÈ`;·†VX¼­,Q¹në'Áç[ŒŸÈž;½¼ñ¸Õ”ê¹yìßd{ 2p2Ð,â ozXQ9¼[`¤iα ŒJˆ‰ Ñ(EEGI=¢®Ë¶ð¿7G¡’.« B@OW„ULBù"½^;CV:7Å´,Î’–n¯ÔçŒ>· «í™oÐ.«ËbMPòÄ_šÊÓ×—aÁÓÖp‹¡ö§;ñ·/P®¸+}¼Ý*émœ‘ž¿¦­ -,õ—¢òA}øÆIAKíP±w mÆNœÎnSùÊq tQ2úÈ9,X« {鋶æ˱U˜~LE•õã`ÿ—ÙáþAo¥ÊUÏÍ„cR*¹%Òñdê V%í"Ü£Ã%ÖÙEµ ¨¶ÆC 1ºÏº¦E=ºó¦ó·k›f-m}ÓnrYû[1ØœK´Tu‡†G×è–dùC„,ß"ïÖ9r Š¡DšÍú4Næ¤Òl”†àõE§±ä²´rÔê ~ñiy%ã{¶ü ¢£ KÀVs|ú³ Üru‹þ¿¸>:r‹ëz#;¤$ë¹ùiYš—Á’&ÎØØ–L:«ƒK0°Ð‹U]ÙÓ¢°Ö"qlÇHzl¬ÖÞž@[ÉÓ±*³õ <“¯-É»BU #GõC$v‰"3—8þ¬ÉPM+çé…Œ¯ Rb,Æ·G2/õ—Û&ÃɲèH¨UÅ5YL@ñjíFQ{ ]_ë^z T N—âk—"_ZFRÝmºΩDúŒEòD`§9]Cv;@䉥·Lu-ÈЂAÃ'Žë6B%)£%ô}${J«]äÂßET1®.äýEØ3éÛ3rR~áêÕ\ßM¨z'Œ×Jàˆôuµ¾Põ1¦ BÕ똆zP|³ ¼óÚN%xqÃZdLäÈafÈÉ´^ôl'v8B`ßdCM`×Ëõ5uÙΦçÃæ+xkãž]ý´;wüaÆ‘¥ T5Ïž·Y}–øÝ.oBMF–8 æ¦`Ë°‰)ú¾ÓH(I… G<Ìê«Ôî¯zEƒ™Ê¿ÕmçÁwggm±Y&˜—`ºÛ`Û±1#y8É[×Y è“ç.ðn©%×ÍÖꮶÿî.v¶q“îÓ§=ý'Êôvß/è}ïÜ’c—a†z™R9u‘ëBŒ—SÌÌ VMÙÓ߇ûѦîE!ŸLØžŽ:>þNAQ0NªÔõ×ú/uKr“˜ÔéâŸîßÿª›$Ú]¬¼ÆŒÁlåÂW“Xm-xM€áÏ] ïÅë âvÁ‘&Ó¨¾?c…± \ æ× ŽÖà—8šVÚ±»Åë{í å °HåD)¾i;ÎäÆ,Që9~p<ã{Z§ÿq@bØzp|Fü²™! Â8†@ly”<6]~Òi ÷ Óׯ1k,©A§ ntÇBX ù[¡]xV¨vÿp"Ûó>.¦m‘nOƒì° ½¾îݤ (̯GüÏ)òűçaH»)Þ¡ªÈG„Çàc‹fw¡¡ý/8üÁqœÖoh@Æ”KÀùOóÙéĬÈcZÕ1ôðIÖ²Eˆ4¬öbتϿÍ^÷ü»'x£Ï1Ž9³gˆÑ¿«Š¿Ïy‹Ðöï…‹ŽZ×ѳ!Jõ1…ÕVÀzjìËú-¯Ò/åïNÌy[2 z+B1á'$U£ÐqÀ¼Êí™oRã™#þ5 ÛûÔ>}ÕŒ! y÷Å·¨Â!ºï¾7*øÊÊCxŠë@­d·zJN€z"³y6T `V»^èþªcìÿ·5ïM|ø¿ÔéèxO×é ñßÏ<¶Íø-´°}¹¯†®ëcÊlT¥¥b´V›™8ØzxêtwFÙÿ¨Ã¡.@•wøØÎ…«%ø$tÍI•ÓìCOüîEÉÌçºbŸ"]AÛíÉA§L8Ék+Ìv·Ö¸à|êýù5­éZÖÒ׫'\oä爵¹õÇâ!\‚Á.ü­ÛÚfcc¶}Š¨aHkÀ—7Ûí¶Þé¶Ûån¹ÃÝ|wÛrg²éÃÄP¹)©V¸@”'áÔ<ç#A89R=U3ô)º®m»wÆ›öÄM9ý÷þa·’çõuµe5‡;¿§~¿§Ã‡ÙS3ÿS¨õ0ÑûÌë)âÿÓÔ³ùây™Oëó»qZÿÿÁÿÿ!øÿ>Úùÿ¼b½ÌÿGqø‡í¤:Ú뤗l7 À¡ËðøáM\€Tõ*€ý?!JªØ}‰ò™\1ÜÐH‰ "‡⦎?`ËšãX¤Ëh¹âßÙ`EèSKŽª¡fߦ7äzâ¶s†¦v°äòaAW"£aôû²¥’‘Héšl˜à …÷L’ó3æØ¢ÆÁPEi/çrŠÚQSèÆ—_ª¼Û àë–>dKÅñã·[ É‘»Ø&¬îÁp²moWü”‘obœúš 9Ìoo8’ÐâÝ UôÓúm:Nº.r#x4¸¿ô½XÝ*)ˆiu?Ë^rŒ1Ž`uëèæÚoÅ nžt¡ØÆ{‚ r½ÔŒ’®>l<µÅr>-èÞïëÜý«ÀÄùêÎùŠ-°ô’¤ C¾ûÏÁh›|ïÞfš:3t‹ÉÙ> ÚÐ ½+Êÿ¡Ì –ÜhC3‘RXå›fý°Ì岩+îr7f¯Éøu=GsýF„±Ûê:-cƒF¾F¢ôÙ˜Bg»êþ¿Š¦9+¹Ûwc—£>‚«DvZçPH½ŠÇ;VÛ­.ÌFnU¯–§÷•‰áÿ¯`Óº'ašÆcÌüc´Š<ÀYr;n׊®ÜØô=…/ ißYä'ø«vÎUCÞ8ÃUo ~jÃýQmnÑê&Äw‰V7"Ž/*„&SÌ$’$îVˆJ¿_dªE…E”²Y¶y3‰«N ïNbdy&ý¸É8…ßö:£úœ‡^¡V^Dp_¿i ñ\dŠMŸ¬öªAËY9þ´¢EeƒºÑmG8àƒ=AøžlkSõ‘ÀØ ùîhº“~ZŠMúŸý´%R½ùÁòµS~Lóáïp>/û,ŸñÅÊ+•»Ôt.Km Î¥ZžË3b^ßÇ ót:DœÕ€½üXâR(Œ"nœ<„Ëc±Ciô~¼õÌh€Dô_ˉ â”ÃýD6x™†§a,òék–áx¹Q]|³õp/⨀*9hf¹ºXÈÍ%˜Þ/ÍöžCÔl$xœÒO˜†Œˆí²)þ# ÁŒ¾·—²¥ 2SE>¹1Ùö¢é§ ·b˜qš/«ñ…>ÛÚÒ×1X!²ž¾ð.ÿ{A†zÎÄrçºÏHuŽÿþ¹ ÿþ¹‚Ù1ðŠkŠÖL­¸òŒŸ@ø–ý†øÉñ±¥Y‰-‹BÆ3Ʋѡ æ1(;)ëWîz?ñß= ñŸG‡;üçûøùñŸŠÃ?hø§êgúS/Ønü÷Çe;úìèàOU»Ã~æxweN)¬ì²¶¦èž}\ÒÁ}xà÷ïÆàyð Dô^;ÄÆÀ¬amœô• ²vfŽw#Š<*"+Ã*4²M¸—/(R8DÓ)gÕ73jY9ÔÈ‘ú=¸V0gr„ÅÌ®P%Ý5NËñ%yºsÔO[^ƒŒ¸`Òšs¸—ÛPSÊ%Ôc0-“ÊHäj’7Ç]8]^o!ŠíE1¾T“ðeu¤îŒ:µØèήYr±&„&2]§ªjÉÜçò­›ÚkØ|Qh›Ž)FK3¹ÀغSŽ D÷0ú—†0{o#1DæM)Ë5T¢ä„Í ê„Ôµ‰quènª" Üí5dèä± ï‚`€½]]ß»O""¿lWá3÷I'9íš~FEJ°å¢³Á˜Îí`»Ö™èjBL$jMÁUÂz7À³½;§Î3kñ¨-‰/@m˜p„PXBmÔÊás\ògoŽ’b-skP|µ×‡ì$©ëKÕ ?ldïëÄBBVy½à|a*Œ:d6HÅ’d1}Ø@Š\ï#¼¢»vƒ0t>˧m¡Ñ™×l)‘Bw’D{àÌt´L¡U‰máO…_ɼVîôýd2Ÿ4 s@m f›Y€%ǃ?yÍÅ.5e‚šÂFS²5ê[æ;@ÉûÈzSxþµ` ÝÐi|•–ÉÍ Ëµõr:!€•ad³U•MAÁÖ7ˆãpZ,Œ¼VBî¦`ËÏGû«@rÔš3’öû.ø×lŽlä–íMå²|©…H\8R_ì< š?w„Åvc­øQâʳžå¡÷ Eg…µÕBQlɆ–¤C‹MÊn5è‰`úõGÉ<?¥¿']w¶ä°ð¢†j·õy­tjo7«ÝÖvZñ8‹£ê[mÜ?çÜN'Q7kWw&Jße—X³îÖ›µ¤R#ä"ÕN)·K “Rab•­‹p Œ‚7ÙÆ…L«5â€ew¸)j-Ûæèð¡êoù€#¤ÅXö…¸‹¨míÎa(lÖVa$‰ú„œ¤Ø£íÈ”º†Wï“L«˜LT(sId•¸yê)Oi|’YÜ»u>bzA,;Ö4½Ó7Ÿ×µ­@[Ô‘ƒêÓrR™H­²eZèï$.Ð_ÔÄCˆÒü;Çér¢ÕMZdüœú¦cèp}*mÒ*«’ïÆyUÃ=—ÚÝÑ:¾1FO}ž<‹žázœúÿÐÒ˜O1ÁýønLaR_¶¡e CDª—슓Ô_èÀ¸^Åßóë9ó’‚ø[¶ô‚;bnHkZrÆÈà »Ö~¢m'R]SP×»^é’=ݧ%"U’=­(\¬ä»À%LÀÝÍ©‚ßw|ÛteÝðàÛá‡`Lˆ× õV(ï‘\;Vé#_²WgŸÕ0ÚlÄßÖ qM]ÛöL`¼£ˆõyA,ZP«¨ðÐê3â׳l#§×¯7rKÙ§7r ÎuÇéšÈdºAf¦5Ö[²<°Òû’ƒµ@›󢚈ÿ8áüm-µÏy±Í“ çÙÇÖ†mrAV'íËü¥ï[¹KÄô~1ÙùvÓŒL FRÚ¦ð®ø|Ad0—ü¡Ûè~&,âñnÞF"¶§™!¨«H yctGÃuÃâí¸˜;‘:Ðï±$yGüÒ†î‡ÝÓ”ZŽbĶ>FnyyZ@B …½1~^^ÕhSI¨=&˜dèП$ïë‹X&ª{¾TÜ4÷T¯xà%lFÏ^Ä°Ñ*ˆ¿œ :Ù_‚¯µW:Cçñs¢Yp³]1æÝÍY‹ÜÜ07SžÔqìûht†¶ÃYJŸrÇæàL[®d³Åõ=2e¾²$ú”Šöîfák™@æ ܶ§‘|™î ¾ŽgHÞò4Ž?ôu SŒã³gÅþXFÝ–Y¸ Ã…ºÇÎV²6¸üiÖ¥V õ%] »¹I~ä×>„ ÜÔ«ŒÌi@«ð3ƒœÊîÝ@6ĺ’ J~•’KÈ¥‹Vkµ¬Têt…˜ÇÅøÄóxòòkØnú&ú#Ì˲ +²IBHÑÀ?:·3Š­¸œZU-Éà<°¨ç{öÊ0ü={¾}ÞÕõƒ¬ÏµjH Zõ,Q5#o{™nV“\/7`›gœq¡’3ðÕiË"C[l…®–â®'™§’úu‰ÜX‚D7;§Š÷ÜŸëKŸHlZŒtÃœ]òö’Þ}D9¶Ä÷Ù™Ó Ý3[n½.ï 5å D­/ 8;UAʳ±n’¦Oì·±/Gß5ß”mÇíèç5él‰ö|ê)š,¤‚úF¢e“µ+’Ÿšƒ Ü&âÃR ‹°H‹YbÛ\o/¢£P‚=(ÝÜÇè]…éf ’¸—FKÃQYãu÷PŒ]}43•ŒD;C]¯÷pésj:”¨ÈzýÕ]Œu‹¢0q”*¦‚ÀPÇÊž?æ0aúØ€·Íáu·9<ð<†à<ˆ0T•Œ-nQR;ã:&¯Âl8øºY–|ðÂÌDÅjч©(üõ›NJí H™BÝkT‡ÁE¶ž˜¯“bÈìcŠI/ß¼3v6e™—Ü›7•Â]óN·œ»ƒRöhá2d=ܶ‹õOWŠÕ Vø¸^ S}u~nŽ 9ïûr\£U‹rÚa4¿ç]†óß ãa¥k¸NîÊ#¼6â<èîö)Lš¤_mÁ‚În¤×·[©TKP®'ÙÒ¶"е¸)kÿƒ½©–°3¿©ôØ7Ëÿaò0²NÀã¡÷¤ž‰þä·ª•M8úe>EÎýº˜Áo1Æõú`^¯Œ00Ö½IAi¼Ÿ×“,®®`‹ë§7æn}»ûž¸ûÆ,­üîYÚ#ú;ãfÕÊ ¸Ùüö%d¢2ÿ~Kž !ƒ{£èò¶÷Z¸õK•Ü ”I™1V&ù¹§IJ˜ªXtN š„Gà– êøK_—•ƒx°2ߧV°ãî—̱Ð3x ìÖœ*¯ˆR\çÑcQÜí"[nï8 Mô›­œöiÃbn0ò®ãí n.r5ô^:™ßéËQö¦³8¯DYxbsJÉ®ØI}·hÇ+ݽë=P>±'ür©îí"ý”ßùœ÷ùœ?Îþ¯eUì|ÎA?]ÿïWã¦éð,¯®òö.\À×ø<:zú?:z°óÿ~?´ø>.ÿoŸÃ?hp¿«}^àÁ²í8‚?øüÈ:‚?<¸#¸ß€óñìD˜ˆ^Œ…Oó¦ýð|¿[ˆôeË9ÍÛ°—Ë-Ã#ƒºb<#½'‰æ„nbi˜|èÐPÌþÌ+SPäÿn÷)aBÐ:5;»b?æÍj”Yˆ+ûéQEF¢³ùxš7çà[ áÃsfÆ#hbX•ØÒÛ¯Y>FU·aÌïÄçŽèÞëΨ‹l™å‡>2ôFé C-ÅÌ^¼Y¾ý{Ü7r#F…7 ¨æ¦¡Ëâ².Àý6d¸ 6zÜ"T‰T auÀ‹J •™ËЭ«ó¡Y‚Hœq:BªKãÐbÔa¥ÁbΧ×ùŠDBOU,"ÖÔ¥+ H €šˆHH; tZØÐ/tçq ?;Ûjçq»ó¸Õ²içq»…Ç-ob}²TÙr»Ê;¥ÇŠd3‡¡iÝ"5ÞëzÅÚÑbͨÈp3ºCbªÄM•6ÌqÞ]¹˜Ì°ö¬T[O ëÐ Ãà7$C*(k#k¯3BÂÃÉc*ôº.ÛmzdÓ¯M8ÔîŠß…1 ;0 ;5OTÒhÙTô)ƒØŠ·†ðÈËUÖ'Ó(k—Fú±#»¹X(Q—c4SÚéÈžÒù§5mcn([C᧦ Šl±uö0ÙÕZ•ñj½ÊhoÄ·SƒÏ>vuñCs0½õ¡ñ)!R¬q€T…jy~>…häèmdT´LG°›ƒS…]ù|^äMΫ0—Ã75 ÙM“Kžª–À6É’´a éÏ |9ʦu}iÎ÷å%öîÑ–ÛÚ÷ïÂë:×{zM­¿À#£³&––N"Ù}Þ95zpw§Ù4ør,Fq'•“˜‚g›É¡6†[ç<»¬êë €…§ÓbÆÈ=’ö ^åjc5Šê|–Š· ôŒËÍØÚV´‚m×lÃÞ»¼{@•õi;^6‚6×ÎìÑ¿ *èYÝÖ@Ä}Î÷f®ÝÍX§†1ôB] …¨›7g¢gÚ¬´Æ£áv¢SV¯ÐƆSvó>¿rŸ¼X´'B%mÉMt£ïòÎw9èÕGæ»Ü™rP£Ö­x¯Ì†jÜϺÜwÃÎax³TEþf¡Î;7JB”<5%ý—O{7žÖÊ㠕ͨ H^û.KÅÛù´—à‚çzεµÝèìÐ~ÄãçÖúÒš´eöl¾ÖèVUsG‡”!lâ²9Ÿ7åäÄ+¿×,¾ $%'…GÔ8PòSHŠZƒrǺ¬yznv…˜Íàx²‰rH™LG'¯×ù u/ý¼èdªklߤ ‡eÞÌ/È—/Q\nVVú$Jï´¦fSe&¢Ž 6ϾԽŠI¢[0A<œ'n ׳)糕ýîŽC -RêR#)Ý4uë”ͧKÃbSà`Qh40Rl:ãGzEŸ&bE|„îGP{ðáÔ혡ÍÁ]ÝìŽUˆÌíE+Ç Ï>Ùo5R\Yãí!ÞXðÈ%Øœvœ=ÐE¢€qÞåÝVÂQ‹´Õ ÜMØJèç$Rþ¾wéˆòsî1 JƒNf!?“ùÚ¹£<²ˆçGª·ìðÍÑ]ûË¢Z¯­Pîm$O9€…™¸à‡–ïqöO2†2±a™ßÄ@ôãZ¬ºQiÕ%n·øÌ ŠPšvŠ?aÉ‘QyŒŠþW‚Ê–^+*_½{* ÿÒøê.h|u#_­£ñ©äf:Û|м€öº%£ &Vðøƒ@U~Z°7•< ‰e^þ×?Ì«duDJUßßÌþðäzÕ­³ÏÍ›dmtç¦j{&B¯|my2ëoàÙ‚ÛârÛÚÙm¸%r?YÖ^4Ëê1વa¡8ÈÚ0á_;öòŸ©©6GRö¡;%O 綡z*•DÔýSÓöpðïÓÅÿý|ñGhúŒËf<Õ^íâ+Ìø貿áßf± ¢PGðõðè`”Áÿè?ÉÒõU>J)øFþ#C=oŠ¢ =“Ü÷0™CþÔh-ÕøÂ(°ÆäyÀáû ÑÈy yò2èQl{DDø±£Ëþ2ª à±N¾g÷)ó¤ß}òÌî…QRFoªêf:ùÍ› ôÚ7ü?Sq”ˆ4IˆÁ†–”fˆJÇq1{ó@¼% Þú|]ã묬X2–Õxºœ¾þ©ªùïeëîv;£ˆ¡žî„財$ˆM1!Mlb~øw4±3¯r|Ú¥Ùc#c6™eÌadÑñƒŽ8&çÀ×ðÞçšGæñÜã?ÈcïK;šÍþ0Á}ì1 ýÁgÓýiÁ"€+í®Þ4ß›…W‘)#rH(ÃÍfcß·³Êô‚*CÎ`Fº?~o¸öôíè³/‰£J–I #[R±¡ìÙaä-$CÁ¨¸M6çhÏìnÃ?4K¾ñ\÷ì¶ÖbŽŠ#Á¢w:aÛ¢s —»_9`Y9™ kÿÁþ#ó ‹~š¥ú93'ìEmúIßí’eö;.™Î¿‚ :ȵ‡_|ñyb¿>÷¥´ÿK Û6úý>:8ý}¶óÿy?Ľ§ÿrø/Âý{º‰÷-ÚŽóÏÑãÏE:?øì¾?X½sýaOrØXã†x9)a¾4Ü…?`÷ìŸ ŸZçÃ#ƒ™V 'á°¢½®Õ Ëß[·t…ë[Ø< Ò$_EAˆEÅ4¨S²ñ°Íïæœw~^j+³Ú!‹º„x}ízGY,Èy§ÂTåbâ5~µ4ÅbÅñtc ϵ©¬Ú…Y„YòîtL§¨„.¦1j:h>YV„![@†ù®¨Ì f­e+‰é?@—£»ƒÓJwî;w‡»ÃÎÝá¦î ³7¥²BÑË-{¤\\oãÎ[U¢Kðª?©Uºª¯x¤!Õ¿,,u–æ¹ð]®hþ'¾ÒB)K=ÊÈeZnZä|ª%A“Ä\寘ÿ˜a«Ýó,ójQ¸ÝÓ²}`È5¼’®CÉtt«‰z_Bš±fZš^^q.þ"¯ÇÓO__²hP3°ŒÚå|^7‹Þ6÷FÞR(V¡^gh1«'åÙJ ~S@Ý ì€¨; j¨Ö쀨·„h¾ä+ãçÙȈKsþùUà1QÜŽY•DИ:ËƦÔ0-²çøVþ2\øH-²Ì̉j"7¬T‚B3Λº¾‚KÉ›¶ˆ.Ø'Œ ¿©´½‚Í á­% ¤{w«XÝÈž.#ÐØ(¿çÅz‚¦nÄ-jKnå©>ìöúØ›ÅÛb¼\á ÙÄ¢©ÑÑ”£s¯ËÕëK,y»Ãbb»»WX»ø‘[¢«@|¾Þ$ÚÎè¿þÞ»‡åáúÎ|0x:-Í1îS-ž—UÅ9`ùýȬ¤òbš¥Ö– ÌYdVîãà–Ú i’Â!¯.G8½¦øE~¥ÍyÁUNê'à¯8æ64Û‚‚Ó æE1ÇcëOëúR5…}å AÑ ¿©=1Mð÷åx.T5è(hw9™–ŒÎWÞøºvMñuDS#Û45ú„ª86˜ùˆ0ŸˆW^ªöÿàÏ°ø›A›=À¥55íþ`ŽÚàUñ ¿)®MãÏò†.'ïí®ûÖ\÷=€:ãñQÝõÅ~zîÿP!~÷÷>~øYçþïÑ£Ýýßûøù¨ïÿ¸þ‹¸ÿ#Ïå îÿpÑvîÿ<q}øÙÃÛ\BýîP¼àq¡ÿ¨ãAä?wƒ)H5@“Æv…’üžñÛœ”cÜ•Ñiœ£jÓS-öÖÍoÃ]4R“§¸’wâð‘ÙkÙ4âNã÷fälEÐ £ÈãYNÕ‹ºíƒr„5¦ë&ÙúW¯ýx17]ˆ=àø…½± ‘¾~ðBÛ>Ú„²V קû«¹0§•¢úðî‰á ·‰ë x6M¦´ïû­î濨9r„O¯g{Y‡sÏ wóïÔ骰¹/ü…î¥äR1VÎÊ·Ú<Š,ngi&zcú@£ÍÃfÉÞñɾ€MñÓ²hU¦PωÐ&ƒsRÃÝsàÁÙ¿´kÝUëQ©ÛÓ©Yyn=y/ºd‰—úHk<׋àêˆN/ìÍEc6ÆàJ3Ýq¬°ÛùYÝAç{:«„úasFôTáÒ뺀“F7àΊS0Å"XioË©Ë£€7¸ƒ£%Öä}i[½2[“Ïœe-V!¤ð¢æÆææZœÉ ‚½ÌºÇâë6 PØ?x´‹DúK -µƒæì 9™Á;hΚ³ƒæüZ"‘n¨ö삾ÿࣤ¹í¢&¢Í¢ç\+¯7;Öú3°î\+šÛÏ®Õî‹xÏöŽ¶>Öl©ôr´õº¾ÑÙÖìÍ·}ul~º]Göøñ¶¿í»;ßâRë?Þê"·<ÝFFu7ÇÛDHá»=Üîb&0Û çûžc&ÓÂY4yÃhÉ™i°†Ú· —L¡’‰ƒÞ]¸dê]*^2½M->$<.XÏ›úŠ£ ã÷“ °¡Nç›þ‰Tþ‰{íuÁš Ê¼¤ÃÀÊ7 ªìn³(€½$" [.Àü°ËƒÒÃóÖ±XœŽ{¸˜]{iÐFp¦Iè¯=­?ïñrÝ&´Ûõ7 Íû,~ýºÿ™7®M@ü¬.Ú›€Þ|Yô‰ž¤ÐQK‚îpõà‚hn¢‡RàB¹*~CÙ…²®v;‚_±Á.”õÇÊ:;úŽâ{{X4ñ,_ ìÈmdrÖq›Y,q7ú06·UðaÑ´’A‡¥@t¤ŸO$@­UÙzuSÍáþeYG¯SÑÒµ›Øúõ÷Ö°Èt5.Ä(ØV±É˜Ad.Œ÷bGŒ k’Úz¾%“Œ› Ÿx–‹z–ãš7‹†F1ASŠCÛn¢)6½®×>[ñš`±¯Meh§gýñ¯õ5ôÅ»²È݇Žý3~Ešûœ9K‰†q^Á´€õz¼p¦gR[O¶ÁÀ²1œ5qi8Y¤’xûZƒfp ä®™m°«fý˜ó—3Âç¾ï2DÙ羓ÞãutvÍ°ùÙ:FX²É¡«Cº2õ.Ç:,vÏ* gÆÄÇwnmCÀîC]8Ni#Pì*Ÿ.7)·¬3ÚSN ”ÿ³7ðªp.@JU×gĤîŽUlòF”ºXIh:£B-! 4p]s@<³ùø‚¥2]|ìàê?Ü?ð.„YD‡=Å‹C8þi»õUÙ–Ð÷ Ü%á§[~ñUÌÜ[QûBkæ¢jùˆ®•:K72tÁœè1Å·.ǻ۹€ðYÇ͵µÓ·¡ŒÔI•:{†5«²áÇÊe;¾€ñÖW4åúìì¾!$^YÖvFÄóܯu};uwœðÚL7½”m òà îN-8á´@Îa¾¶1‡Ì”ƒA=Ëg Òq:84u8}€KP· 3âZdp3–Ò=¦¥f´1ó/øì´ %îobq} “»6Ô´À=òè/j¢vÜ:¢I¸<õ^âT¯—“«9¹úðå¤=aür¥$@:Þ³ .~¶•’ ù‰Éø€ÓrÒÌÉ/ALšs0³5Dqo2R_AÞ½ˆŒÖÈH¬ÄÊI+(ñ¸œG¥âÇá·µûîW:‡AyÏBW}ô¡JåT <ð)R°Ž÷‘!åèèVRàŒ·}n”¯ÍW7IŠò@'EÁ¦?ˆ¤(„Yer®…Ü„gŒ©Ø,? ê™QàóͲv<¿’¬4åÝz³¼(wGæ«Û‘ùêFd¾ê'󇟒è`—’èR=Ø¥$º·HIô`‹”Dœc`RÖLèïá÷Wyή! Ddz1˜-§‹Ò¨:É‚q7®žb²i/‘è?‹bΠø¹ìNWatª#žÉ¡ÒßuÂ%óÕ÷§“‰ ÐÓMkdÊ~É)]µÅÒ7ew›½)[—¼IIä÷–pé,‘péÁ —$MŸÔèdDÈì˜\'ˆ64®§øÐ>=Ã5Kº€iÀx0<|¤ôcû¥ÕáÞ ÒÏœÝuú™³ Óψ¶µißäº#Ú³-*’›‘X>•¨IÕÑ›ÏI™1äG¸}ø»Éèw“½Aö»Ì&~Yè$ŒÚ‡ì¯Cb)ËdºœU*©ã¶âù¥5 3ʇXÙ‰©Á ÜÕymÓìì%?¥vƒ¯±ùØ×噣4æIJÓ5Ø{¨Œ` {ÓÙüOe‚ü/#Œo¾pמz•™ÞˆXÇ['­MãeC» ~¯–.OÊÉ´Xäíe«rÈØb*ß´[În#ÍÈ‚ï¼ð9ƒÉûbÚɪì¯. ^nœ¯çlÛ|=gåëñv`^žâè0t¬ªÈbƒëй?Ðo36„`<3pðp`¥Üš»Ûb9…ÎÞAN¡³]N¡;ü<ûº8m–y³‚Šø™ÃŒ¥ã}S¶ P•n¬?þ׃£‡Uü¯Gÿëñgwñ¿ÞDZÚÇÿ‹9üŒûºI 0Y¸Ý,@‡Vž>þüQÀ¸lj@b÷_`$0éz la”º¼™¨‘‘׊ V¥[„ËÓ¹r¼¸]“Ó)bæØŠ¥’hx "ÏΖÝ͂ἘN¦Ã,g‡èÕ]/O§ÖÝi| ñv/˜Wû9ÄM2'Dcm¼Ž;²EC ì"ç`­¾ƒ¡?9hËM”1;òæ~±OÕÁr„C‚ ‘ÍÆ„¤uâJEA¸K¨xã1£à.ZÐ.ZÐ.Z–Ç»hA¿¸hA¾²~'Ñ‚¬-¶_“ ‹Ý©*GyIïB•áUú»Ó¿O|57<øïç‹?úžÊ_J‘;’W,»,VÐËú§E?À›ø¬/Óñ*¶T)w±œî$–Sšav±œvQQ>¤CˇeçÉ_í<ùwžü“'?o–©Igƒjb‘‡æd‰ÓcÍѼkkÛ‡Àæå]8‚]8‚-39~ÓQo”˱Ç`—Špš^J§º*ô”ëx¼Ù vFL˜ßœS¾êº¨\ÛÏAËàÐõ C ‚ÀM‘÷ÇCbHsÒæ‘öºUÜ#Köthv¨œ¯ˆ¨(š¼ò{ýG…k1TzuBÒÖŠ”•Ÿ2à=‹àUĘzCÐÉúðãi‘”ø.Ôá¹9^}*&_a¿Îå›!êW?-Ë«| «_ò1# Ì–…†Ã½Í£QÎLt׉æ(4§màT ØŽM}*c6G†,à©-Žc|æóíº%¹n©q¤NÓ8P5Õ1-f¨Ã'oÌM8!¨¥É¬KE¹ã•{Ä|Þgå¶IðËtWØ­-Ò‡ïÅ Èb=— ŸÍÂiÆì[{W¦ë{Ƭ›´áÛ@ÀAC¡€û¾ cjÎ×È^o6°ùðÙ½nùÌ-ö\Ñ5ü†Í¨ZÂ~£ö‘¾íZÅí»æ›’ÙUsD±ÐYþ±Š«'7Prv+ŒùÉEØ¡pÑ °æ$òxR•ùE;Jù§Ê“ü¶õÉé„–Öâ›[âcnTì`»Ãyý ^EyÿÝm›Ðä-·M¯Š ¶M¯üϸm~|¯6òA£§Ö¡$„ ¥Ü^qѯV“ªXÑËbzZö|Ù”íin~ïqh:TýþLǃgF!.ÚX!bmç÷ú¸[&´ñ³û?}FO»ß(úÌüÙ,Rx;Þ£ xnåÀû3ú>ÚùnáOh¤H‚ˆþG;w»®'ñZoÂwîoó{SÝ­‹Ü›j\¢¶Ž/ã3yÔäÜ'~»S¡zÒ¹n¸úmöœGˆ-ƒÊå+±¦©Q'>9UÁ½´°Lê+œ™ÚÚ(Åæ_£?Q<ô6žã|Ùêïªt^áòkñæ£wÀ¥qè>´ç†<©¾QhŒˆ±÷¼‚/g ‘¹1-…;%R’Ü‚÷pð´šä³º¾Ìa]?«ëSCŸ¿Üó_T°bª1½ü®žT¹éê"}[¡j± `Í‘÷eÕa3<2ýŸŸçþêý›yÓ9ø¦6®b•óǃ‚â<ÏÂ?xº_N9ºÀ·Åuö_us©*@ •&öÌÖgþB`¾ÛÛÛÇBÞÖ'h9b¹ôëÏFÙçë»þ¥ÑJì¹ÑAŒÞ6ÇC<ø¡^eæÿ ÿsô\ÎN͹,¿Î«s|dV†!C“g_Âo§FµÜÀ¿»[O¿Æ~O_s‹¸’µ"x}ç<7ëgÙ´@W´|?1re|[»&¶@×gŽ‹¿’²f¯Ä¾üóàG×yÒßg—éâQÅCÙ` ÏUñè06qÿƒlçÿç¾èwL{éEœët7lk·õ®S=ݹ×må^÷ààÿeïMÛÛ¸®5Ñ| ~Eæô%˜‚ƒ&[ÇrZ³˜hº"Ü´v(eUHUAÜ}úw÷ǻƽ׮ eÅqŽÅÄ6 TíyXûޅe¢áäè믿êhþ?8¸îŸà§;þï d´Ïü÷›­ñwŽïÕãÿŽoÝûÿ÷süðnøuÆÿá ÿ§þ;#°ÃöÈ?Ú²°¿Û‡_ë9ëèð'„ýañ>æt¸¶°¸Ž¸?j~GÐ_g×Ørýˆ?,è—îg:ÆBPGÈ=×ORTy`Úœ¨b=åО²·[õÈ%ÃítM÷…´þa«l"L÷¦ˆ]Jé<._ýõ¢»bS§©õ¼‹¶ŠÀïó”qTÿ…òOŒøÀÄ ñ¼ Ùte- ËÇ:³§A¡´v•a¹X/£éJ°àR™âÑj.èOЉcœ]ÐæË’\N8såª`C\I1oY†ôœ\eË’ôeA'Žã”Mb,î¹@\Ø¿¼ËŸœî:Øï¹Î¬‹•×ü¶°Š›ÄPñ ñua/Ì#?µ‡¶¬Ÿ«‹_"BQàê/Ñ‘_¢#éçKtä—èÈ/Ñ‘Ÿ/:’xî¶Þ浧~ê…^+îçºÓ¡Úm½ülýûy{öˈq 4 Ž^Ý$ÀõKåg ¡ ƒZ¾ÄO~‰ŸüEŠø¿´øÉŸ7«¼9;]fyg|ªg–§‡¯™^^ Q!ÈVsÝóTDfþï™bþ§Û6­¤±[—þŒ<2&Êx¤‰j±d©©ÛÀ¬Õ¬ -bCsG)½ßÐáÑÂ¥ÇaíuyÝ$;ú¶˜´¡ðñ%ñ÷—pá/áÂ_Â…ëSþÙt¿ðÀõ§ªO¯&)ÛO?\#w7WÆ¢£ÏpèSºxÖ^h“‹œqñ9÷Zèþù½?I/Ý2ö›ÆÝe° ¯6ïDk\lu™•¯4'§ü¯5lMÇ°âW]WX @\'^lÇ={ð´zfü‰¨:(‡d¶Êo^½3ùø¼‚ƒ“ŒZÒ±®qt™aZ@Œš' ™3ßò>AëšÀ>ÉŒÌ~qÐ_ø5É&xßyY²éT(Rá{§áÒð‰*ÌR«æ¹–ròQ9^‰^˜$æ g¯˜1Ï\–ê‡0 Yî¤R© F {?ñbè5ÎÇP÷ ×ßv‚/ì7d'8 m+ŸDMÐaŸéä%@m0›l8ØüÍøÖzd+Båƒïô‮iHBÑKp%>G|hÇ7á¬ÈʆRÝŽ=¥5¡ìˆÎW &¢çs –<ôÛCÿ!´ Có…³áïÂÙ@KÂQ6l[ž[ÛƒžÕ4wzüuŠ†yÂØ´p½ÇÃKÕ0‡ó–¶ê²Â‚£F ÿõé%ºLÕ"Ú·„×Ð]ÎH ß”pâ§Ò;ëÁ†vmoJºØ²‚ýVð@ò9ƒ$VŸq ·i›òwp|·®ôö%̆Y áÁÃßÛ6†ž7š›í£™òø&_‹bÃÕ)ßn¿7CŽò“9B>™¨¢‹ŠcÃ’Ú6Ƥ1åÿjˆLð` “ÀïEAVúàAÂ&>CP"GÍÎó ”ê¦Øß}&™rõaŽlÕGìrùÀï"£E¶‡Ý×Òr·Ľ·ô¨å=kõi¯Ù&:¿Þ^ÆgO ~«íìýùU/HwûSžH7©ÍÇØq“‹ä‚Ý<¬ [¹¥n7Ž®Ÿ·¶Žæ¦G©/|»ûëuû×Òòî÷}s›…ÔS*–UG~Ð;×ËŠDÔ´²ã*Î`I¢¶[ÎðÙ¶þstˆ,ÔøÏ,*ÿg>ÿÌv…”D[3,AÆ®úôaë™âyŪÙ[$ËF÷ÜùÙß­MÑî^=ZõckÚì†EÓW¿D¨4Œé¥8¥W\ŽS šäNÕr3…˜?þ-êïþ·ý{%Tvwà9/`-ùí$w)bÑqê<¡m³Õâ>KÒ§”„ú‘)¾KðYeúvmıææ¤án,ã º3 3XÞhJñ‡(._ú»‹¸š waNƒY„¿wûø),ýþÇ=üsow¯Qí>•º÷×û÷¾o<B7׉”ëõ°\3rGØíÿ6þ· -+JœŠ=ÑQÙk6@Þ<Þö&t@ÿî.gN¬$}lÎu<îÚ&Ô$ü`ÐþœL¸ûõßømrx`·k}è¯áfÂwkîþ·áÑ”jÿX«f͇®ãýè¨93ííÛýÙnãQW­üÒò˜îÒðts“ÔúlxLvü±/æf¾îÛC!žL‘?pAPFŸ¾LgHñ¶H> d Bˆ8ÌI§²‚òC¦ºNu=|‚ÞÐÕIùVq^&i@šª]érnzìKõ—ê/?›Zâ¿•ðáIƒä÷wÏÿz||ï¨%ÿëá—øïŸã‡·ò¯,þ;\á¿ìð°­£Àk·™ÿõð®ÞVÇ÷>)ÿkXƒ÷$1R¸‡ŒWŸn#O GëY£Ùd.“ßÅJƾéOiz#€Í²j_°(Ù.‡‚í˜Eû_^,m £ð©ÍI®jOubÕk#/…3™xŒ˜†#øº¿g”’TDŽÝ˜sc9Ÿ›~éÌÀŸ+™Û;Ýšüí £:–èæFQØ…p²lÔy¸?:{st“Xnízc_ÖŸØÆa/hMýݺ@Œ~£ücw¤¤}ä“¢%[ÃýDëq…â{GÚúWÂÜ,øŸßhR®…á]¨ÿò&!½B’¸q4[’õŽ¥šÓ»ÒF ÅÞÙX\ªµäðG*?£"Jz;ÄŽ®õwßü tÏEÌo:½6œZ§Û’òÑYk«}`˜W©NýH šžf’ûL@}Í­¬0!®r9?=Ts™~±ZP\‘à èp[Œ 4ŸAX‡Â ì =¸iàÂw¤Ñ<}­ ¯Q­v‘lWf+È°ñ«c鮇ÊÌÿ(™ÅÒ|Uè"ie¢G~0ªFJ_&Ô3«I_¹UW+æç&W _2þ£ R›3Ö<]£KéW1 Ÿ-¸Ô7uK²ñús¿ûÛ hÛ Þ2¸Ÿë—xN:Â<³ù8–fÇæw°TWAG²Lš a¦@9åÂqÙ1mõÊ ¢”vsbt«5\¼€!ê:³Y®5šóš­wiU)yí–.R÷¨DØÆTfBᆟkzqYu"¸ùËÎë y„J“õ¢]˜ŤРƒTƒóD‘"õCì†_TEœ•)œËŒ¿˜0Ï"ŸÄs™Ý²;±¹úîûž]Ø7¹ôËÞ‰«œqÎûÐMÙ¯…pqÑ~÷9¯ÅùÀ5YI E³x؎ȤÙ]K qšf"æ¹­gñÔv[hžR;IEœÂB«ÇÞ&]ÁÓTܪ\Q€¯ŒP'­Ô#ÊD$q}HñI?,G†£~å7[öYbßÙ ÒñÇï6m;¦àC‘ ‘  ¯^ËéÊEÒ€ÇEˆOùô£äûªÚË6ífÛØš©7=®UêV;ŸE°Ö­­ÃÃØŒnÅÇ%ÜÞX}‚˜¸ &C§O‹dž&SôÅðØõ—û6̽3ó8>|céqŸá0]+~€»I[w@—>µm”Í^‡Óqö9þ¶‰æ0 ‚ I – 7÷Ðõ¢¶Q}ØiõS¦©1C?arnæøk þ<Ë—dä¾ÖÀ¨™dS^0óHWXK˜B@‰ÌŒÐ9æøQ[ãõ÷^=¥ßµo®½Ý5»Mê¸FØk(¡ù¶M.a]/Ûÿ1)rÏ–Ñ}û‡cB–:”O&é‡t¢g),­Ø !mò@xN|†­ÕqgE‰P¿ºNW£}¿!pчÕ.±žœXñÉ%`9}HãâSêñ·Øµ£–â›´6ÛVöyHF6 :}ƒœºÛj©e,¶ ,ã) £±ŒÇ䦑Xψ°––³â§ÆnÙ)½I חܲÿqJ_r~É]ø3ç.-(„£‰N¢jŽî¶ÀÖhA ~µŽjÏ× jª…aö#ôiD»‘fh^OfXð°d|8Äù5®ÐŽ„0ëÚ{\ “œx2P¹¸Äñ‡~þaSñ>cÓã<ŸãìJÂ&̦²û<Ï9½PLÿyŽQìõþÔ’z%“ñªJöÚÆ}¨¦û~ÎXFöÍ<^eãYë,b6B•§Xeô) M2´†Ó¿5(#h¸Ô¤ÆºF*CÝå`÷_™3ÒkY˜ER wdì‘z~jÒž¿À,SÆôDá¤q¥0KýÌäóÙ»FþžÎ¢4‘OÛTó¾t÷ s#óè«èHâPæñÏÂlâÿ0jé³Aÿèg þïÖÑãþï>þÿ÷3üüñ~…ÿ¢¡¾™›Pf»6·î;ÀßW÷>ðç ÷X¿x3ÆO~?¡mº¸ž_ ÕæE¢F\g[3T®BuN©/U¼#мúÞ÷Þ× ïãl@ÿÔð¾ÏØ…/ð¾/ð¾/ð¾/ð¾/ð¾/ð¾/ð¾/ð¾/ð¾/ð¾/ð¾/ð¾/ð¾/ð¾/ð¾/ð¾bxß&îCóÈVxY#ET‰õì$ZÖÚ†¿1ƨ¸›?fZþ‚îû‚îûdt‘÷ÜÝ×µ¶Tðk~Áõ}&\Ÿ;ÚA}z>|.DßMYÙ¿ÐŽÿòà|¿^ÜX3®R…5Ä ²NæËjy°Žk!b Ñ_/ã«5Ìá0ñ¥¡%l¯jß„¬qôzãÏàÖAÚöw‡sïF$×'¸¨Ó4Úéý¿÷#‹£#›çÃÃC4‡N '8È¥®ï03C>Nâ콇÷£‡ÑE[1'Õ¿ô°ÌФŽ!l^" JML³»bŽ.vzûþ•.Y]ägµÇ [ÃÏv1Aw\\b3*蔶Š^~[äSàBˆ‘"rR®õuîYõõVE §Ïj‰3†6K hdƒ…‘¥¢_ñ‘dùêbFŸ ]Çd¬èÊÔñ<ä‹E’ÐëWŸM±> 'Z W&Ãàì&™ƒ•&´¼{ÁkÏg¸å1Éw‡  ZI^ûXp\.aûrºl'{¡,„5¢CÉRñ‡8%Ô<¿þY®\t7uÏÂM¢¸Zf0õi@± =¶“âÀ¦Ú£™(gMå¤98,þˆeÈ"îDúù®÷ïrÅ× ‚,ˬ¥:ÊIý Êç›ôxS²Zúî“õM•õ‰id`Ï/ê¿?Ã4‚q“Ý‘ÑxUdò óP°ù±—†ë ù¯ƒûÅe€FZ+]ØTûL 0Xl4~doSk’"×°>í®H{gbó“Ê>‚®º¥û‡Ø‚ë¬Û°÷lÛÚÖóÔO.é—5|°lóÔO‘þ1c@©”;zNß]Ú©c(ÕOkÝÉ}ÎW/¡U <×Ðá÷Âr¨½hRmÚÇp~”îЮ×i¹„D˜Ðj&æ‡"QsˆƒÛ†‚šÙ'¯ÓX1(Âh3ÆÚv]ÂÆ‚ü•2F;ü;£ÒÅ8Dþ˜O‡ ŽÁìQ¥4 îôÅÒˆìý]àíp R©‰]@÷à¡®ÍkºªæuЭ¢¹ Ø‘’\cû:ÅS,ÿíyï¦ð^ÊýkBô_!ÐÛd »îö‰6DÛg`0ƒ%t%l)Б†Ü†$ÚÍÞÙ*¾[`¿Îñ@zWÔ…Äa0°Sc ¬:í`Ù|i\ÜЛ4"nU¶Cl·ï¹•m¯;å/É’u)gQbëî¯?v³ýï|¿ €å‡­¯?v³Ž‹¶õ‹êøj¹MX7OÜLHsnà_¦¨¾ZnÔƒg~bïibúj¹]Hžù‰ýÿ‹è¿ø`#'R]/(”ÀÎé×k†™ãûzuÕÏûÕfÎÌkÆ9ÕÙµý× vª¡€Âh¤ÈŒK{ÔS–»4qý>Œ’ÛŠ9´ÀHLXÑ“ãCF¯Ñ:j”"lgņ¾¥íå/}cM;À`-p0Éîz冑䘭#VÉnÒ&¨1¥ÅÛÑ,þ¾µe§1W-LIE†ÌFÌÔuZ±É<ª_ÿ´Ñá~l²ƒnm§;þ;ñ?yÑdŸwÑ1d¥³½øeë°žÐW¢ìs¼ó=;>y¯Á%*†sxÇüu09³xÂF ±¿_ƒj~óÒ)K‡¸_H ƒO“Ê™6º­è,÷e8’5ã2©y u!vD}NC'‘trÚF¼Ž?6šîª%î+Œ€ÓÁmynv|âðð>ý¿í‰ãÂvoÝ¿ó5üw¯¥å>„ìÁÑ!G=¸cBß\°Þ5"Úvuþq˜­«½ZY\£áLJhˆíÐÒ1ög˜ù¶±î ¶ÔâYÅÏÕ„ÏÍSL î‹ý·h7Šú»ð_ø¬Ïeìá§{»_¢j6FÕßùeDÕ4ã?à÷g˜,?OÈæø{÷ŽŽlüÇ]Œÿ8¾{ø%þãçøùÆ8jCd¼0ãQ¾ªÈÍ2®I“"Ï„Ò‹D ÄÀ|žË¸,•÷dKS*tG„Ä©ŠÕXd äì ›Ç Ï(yê¡øÔ`ó6ŸR…ŸNï™*W£2ùÛŠ$óáÍî/×ĺük€IQ¦†òWÔýyz‘‘A¬Š/Êpèã²{lo«ø’¸c¦¹Õ.=Ç‚Lgèo솸0'Vìá-0†@FM­›ˆÇ!±ØŠW摆­£XÈ5™#=üëó9¢À¡˜¡´É”—Œb͹Ïh¶á iA ÔýÑzŸ°¾Š|ËbЯ ¥õŠ.|“ªË8†šBGùEæ8óR(}±áåuµëM-Éòµy•uC;`•Æûr]×›C·~KPÍ›g¡…§ŠÔºX@ƒõJ…º–J<ÀÊ|9ú¸,àmše1£¡[bX“® Xá2…°ýV‹¤ôeØ÷Hi3æ8¡ Ø ’H3‰Õ#$åaÔO“-ðÕÅ‘Ø dÌy+œ»|]G·Øé=!³­MTê*"2ÏQêû7Àã‡Õ^“o¡ÜJDjö‰ãèƒÝ•Ìçì¨sâì¡i3˜x®”EÃÜÿ¸¬|=äÖ:o‡7iídÖÅ_& ŠØkì¥å Z €C? i–Ý'ÖWüqIëxã|Œ kˆï±[ÄÅ$rm»Q·2Ø>Å/£cÒ”ÏѵѪ\ã91U?쑳¢¹ãoµ„¢UÜnz 1HÔE¼\&f0R°Qh=-‘q±Tg9C±¿Þ<Î‡á ¯R’c)A¶|ÄÖ°E>E¯pô ~ d ´yÐ Qsœ-™AQîm´¨ò¹¤²µ£Ü§pµ´ÚD•¯d—eK%C'CIç<5~½¾´”gÐ3(lnÜZÀâäˆl›Ìf@ãªÿŠ¥§HHɾ©ráÿ…åKî6-JlVR·­n·'Ì0¯‚ƒ)§üxž€vã Š b~èŠC‡!ñ åc²ÅOeÝ=¼Üò‚Ö>Ìôäe8Ÿ˜8W”²'uÃÜZ4¨=‚Nkk'É‚YºfîGQ±ò†Øà»罓‚gÐX,\ Á×&qaëÖK'r4Ïâ´2 0ãîñÓ~ Aƒ ú!zÍ‚„yMâ?p±Ä…vÎ6'\A²Ï]gê´†ýaFjÓR»Ì˜·'&šZ‘9ËxšÀK׊l<<ýÆ!A³ùhž, á+xà€•_رd¤½Z–"sÀì–‘›–eú!—½‚}Žúntçpo#×EàÓka6‹úB§+ŒîRs>I/@™4(¤çuž¡I@‚ðz,øzÊf2ò,¨~¢éÁæ(¤îÑ;R¿ä€ÞŒt>­ QNYšu#t|xx¸g›²`aS"9}ÕÚš µwÔE;:< åÜþfõGlRamT¯¿Ó¬) m–xéx9VûòiN0Ý>f­Ð¶«µù&gù6­ôç:É?§ª‹ýú*®Ê¾Eq¥]–8ºH²—ËU±ÌËDEZCL…*ÐÌCQM¢†ðu…¬MrÔó—–œá„ÌY&V*d,LBò,E€d¥%.ßùpv©úNÄ0Þï$²mEcîظK—•šåh…ª½×—îrêëÊÈÍÞP<±ëtÆ«è@~¯Ù×Ö_¦ÞÅAO7×·ôcÖÔÊuFW•‘5­„­Ð³Ó«õ»eËõWå}ùÂjï<ª¯Öôzj×@J‡CŸ¢‘¢çU\ UüAtF¿PA3Šo¸b§y^/Wžy¤%.°þœ¸Y‚J{½æÙÜ—¾ l{Ñ®¾#ß¿îNP;­ <Ú…¯Ý_Ç»ßïõz¿Ãvƒƒ¿nT®|3ôl®«iÍP!3OUìPšÐøÈR˜©3Ù\ð¼IfƒKÈÙÒ<}ONØ©£­ô uδÚÇvZÎÓK›ýôü6×ù¹{2tu?ù.%P5ïÉ;°>n(Y‚^6*1ÙE•/YÔÞh6æLQ šôpXdDe"±„>ȶ6âÒóáÓ{[o›2aÛsΈ~–c3Ž\¼M÷ÍrUÎð«Û“g°û'0S Íþƒä¦%ŸÃxz4k2Y^Œ“g˜nù]R"'qCàß$e}ÂRUÃÚeÜ7ô(ÈÔ¶y ®ãÀ®û,¨°V¿E«bIy¦íºÂËŽýjd›ˆQÝ_Ɔßá;îl'j¿ÓhÀcR¤|övAß>r®Ñ³‚=„­XÆDrù\î—B°ØSäyC ¬)Údm•á!ðítkŠO1N”âã¼Ä;Oëܺа^SàX“X¹-èlÉ ]“0½îjb&Á˜Z–ÒÔª­Ed8 ¯ìuÒ,óeâÀõ¯ óK˜Sƒ 1~«¤‚ª\ À¸ZfZÿJ0˜ ItDB¯¸,V™ðÆÖ'®mT^åPùuvËè1´ë½ œ.›.–…žƒšh Ÿš©Å–tCB’à;«+ŸÊHI&6z ô)Cùí€ÍÚëX£šÚ¯ñÀ¨Jç6ÚÌÑ,Êߥ›÷|=Öj+qýwÙ¶aý®T'»þdzRMÐy†]0èûWçOž¾|zöôüýÉë'oÞ7éW sy®Ö[´ˆWù8ŸÛ5DŠ¥FOŽEg¶¯bË –TD&JqSÂ$™'H ’V½D>· ^Úòºk¢½í–J,jªåÖó7G-åÊNË`öÿ¶J ×ÆVÄÑ"Ÿ ½:g ôˆyÕÅxÉ?.mºt³9®D¥t¥y§+Ø«Ðì6ÈÛ ƒ –LÒfÅuè8º°„VD×æ9£³·¥ ”iw;ŒB¡±lMq‰ØÈ_G–>W³)‘Àæ!#%ö—–ü (Âø7Žn›k“ÕS$Ùr¢×g‚` Ù îzЭzØqáBÀüjÈzj)me•ð}J$8K¸>’¬d~ºÊV%eû €)¨àx–Ç‚¥UæóÝ·2®,15D‘âUDCã­ å çEàdURßyg—»e-É9<Ý(Ë €Ã|‘\Y’p˜ÅIš££ QrãMkæìRáä¤EzC y9PuxŠ¶T.Úä×ppÐx¿Î.ƒ+¯M6›:Ûà.’vΉHOræàv~e쥴›AÔÙÙ—‹«£Ý–aé½™93"¡Ð?Fýï²ôãž?¥mOáâèÍ‹dþ1Õ1k¦£|ŽU8½ÆpÃè_%ì·Äû/íOìTúJ ¤êA…wÕØ^¢CT3ƒèÁÐ(ÅqfÒØû±H?&s3ÌU88:6÷FhÔâŒ~9\Ù1™ÊuY%  öÕgÛ{¡ñy9ÛkÆv— ``¾Šöa†eÍ@ò-ÕáàP¾â…­i{m‡Ý¶UsܶjôÊS›09è:–šMTd–X£#CÉ@Álâ*2(lšÐΆª,ãB: íX–É£Ø=AfŒ¶/"XÈÁ‘´E7ë훃•uœ¹l9ñˆ´& RÉd&ŒápÑ,pa¬;çp!^Úž¬;9Ó£¯`BíµÛÐóQÑ+Tò@ªÌ‹*F?Ñ@‹iž|”6Mybv‹ÂÃÞXôĬ+qÊÿeî… ÁŠ‹%ßÓEâLeÔ€Šƒ9ÅÁü3ŠÇuçÝßu%¾JµëâK _ŸUA ECÑ“7òÒÈéb^ôG‰‰8T{$݆Z7~·DÌ,‡Þ»çÚÊîw—Õ„4ö2¶WÎ¥ÑyÜR?=êpýQ£ðƒ°çNZñ9¼v?L@[/&aG(ÐÅA£~ (‘úbØ?ªy<–ñ=‰áS­Ty-î_Êû0ˆ Ù–é«fŠmbˆ*±Mµ¶¢C+ PÔt …L¥ê€Kptý2ë¨åð&µxèŸEvýZöÑHO.@-+#m† !' [ %UuÌ£Ž¬3J„“ëh&<”|\¿Å ô6_&Ñó"¹È VÛþãää„ì^hX‹ú·£7 ˜âÌÝùêxÏ5Û¤©aÆ.\æ>0«£9|aë¬LS+ÎVKq~m,zTÀýWÎöRp¹,yíG§p·'´NîÝ9Þ»îN4Jk¸³¸éÆÜuŠg#´A¤¢ÜäŸüýïñÉË«®³ÊìË)Þ}F¦ºû€ÞðÁl½„!Ý÷á\x¾*ŠÔS´Œ"ÇFRŠâuKg¹‘Z|¥ 3Ì—zJÜô£€ÇC`4Ü6*ú-R¶gŽ|–~L&ˆ]ÑÕ;@»gëeBmóÀ…ŒU™ˆþI]dÍ"Í:ƒ` + rV™±h ŸAÍR:b×t ø9£í]ËÛÂÑC1îIÍy—Í3ÄÍX°¥ñl%ô} º*“Úâã—p'ž ÀÙüë˜l8f` ëÖ‰&ìið]8ÕÓx‘ÎÛ_½JBt¶¥?™ƒtÙþ&Òk§ZÏ“ÎvÔ,tö=ÕÖ/>‹{Ýõ&…ƒ]ÜÙˆøÃEwû10Ž÷®€HYóIPø'œƒ„_¾.€L;Ž—Rœ¥‘6bìbå} À5lÂ×k÷/ƒõä3ž,ó%"ÜêTO êëº8Èá^{ЇxÜ]¡U¦Û@ðy„ %ùy¢ŽðóÀýZK½¤¦)¶ˆâŸù°§f égÀ“ŸŒöÓëİ“C&>ÔùG:øã¨>®­ßÑx‘Ê7>—1&,§û’Áô¸Å™2¼ô4lä€É(V»˜Rã\í¡ŽÜ ßAbÍbi]A 3Á[HBLŽds¶ j†°×p y„ÊjJ¼øH¤œŽWsç°©²-SX?¥LšÏµt*ƒÃý´ÑTžZ´%0Mí(f•„î–80i!.Ƴõ0 ™õ”k.ú–FLç8àƒ0Ëϯ‚º•[q9Ž­°ä»›—Yx—ÆÃv#;ÒÀùo@XMÈ4A”èb5o…Æ3a7µÇ/BÒoÔ®k¯·àrÙ¨…<¢Zoo3é‡käÖxБr؆EßB_>"‹6oe¼C¬Ãt¸òè[w‡ IÞ©þŠþêR"ƒÏòÔòÊèz‡Oa}¼%η]|lQ˜Ä&×í”.%™„™Ú`nÍÁÈôµçédêFyYK£rC3(+8Öê'kÐÑ$Õ0!f Œðsr Ùˆé½ ³“ƒïWâ2\´ZmØû@±Ûu*˜3¸U²‘]‘Ì$âb¿D¦b®CéýšMœ×ÄÄx³æÛIÒ4ÓÀÇk]žŸµƒ·£]îžÂ lè]–·.«IŽÊ¤±Ÿš|„u§wòÙ¥^¯NÔÐ~ȶw\å¦dÜNaè!NE¤LÉrâÃ몃Œøþ.|L{éÖ5W×=âäþ Ì6ŸÓ¶düšX‡N2œñ<‚†OÈqúúàË2]¤s¶8jó3õkÀƣИ*Ý®¯JÕG¡Šà;›ÂÓd«·ÑÒûë.&u€]êÔOãû×ãFþÝv.eJ‹ÙàRŽœÿ¾ÿ»°3è¥òo—IçîÉ4ͬ8 È‘!½”s%K.bÐÚ2¡Û“=ú±C©ÞdÚ~ªÁuó„}Nƒ+¶ös\+˜Ÿ¤ª%¹&™E33HR‰jÜ)ZbÏ°šm”Ÿbø|K9Dñ0¼`Fx¬È^&!ÏÌ©èÑ趠ð g­Ò²ÌÇ);å\¤a0 rû{˜ž 6 à'78ò¥™üì‰"„HZ„v±^¨½3ò¹/£mÐâλGœ Ñ/F’àØ)N£èyÂøoH Wg†áÍO`wàWÞ xx¤;Øô1öcΓðdv5µ°“Å &•Ö¹H&õÏ«l©±6(PmtÒ‰GO††”d)öªzŽºy¤xuW¢¸@Ò‘3ñ}Ps‡µ¨IÅœ¢$™ aYWºß=÷ÝÎÊiz±*’¾KRœîîõz²»‘=b¹ª°°Ç_¾„3õO˜;:ºùv¹ dÞº{÷øöí¯v÷¢}zÀÒþªû^vmÀ?ö±ø ¶£““ì”’šÐF%?¥Ž:‰\.ðVKø-X®êò*N½i DÕ2ƒJT÷Pª¢H~I€Â aØ@ØC¸uNÉ—ÆúÇÇÍŠÑ.(–‘&Ë #†}(ù{cO9H;ÂÓe8;âqpEÊp±‚8!IJ­èëÑ,š<„£vJÞwIIø âo ßèÐbJ¾q]À]¸êc³ËØNGF &ÑÆ¢ê&¦ ®…\Ï*EP2»(V5Ò8’JÛð›oäÔ ê;ö¿ÎMóh¸„ÜÒÛÝçìJþe÷¦ÑgÝÖ˜ÇxQöÛv†íÑ·ï¯îݾm·¯|Òµ}åëÆö•Öãï·îÞúêÖݯ´4@[Êâî¹'=|ÌOß×›ƒ'¤^¿©]z¬èLÑëïÎ^»†HÇuÖ:žvN/³ó:Ì Ý[Õ fy~é¹[1vö¿½ü[é‰ø’ Í/‰‰—·#B‡8iNcŸ9›øu…ÀVÓöß-‚Êz>Õ"Îp|4v x$´ŒÛ{9Î3›zœ#{¯cùôas^ÛÅ·ß¼­'êæ¯O^=Nß=†ÁM{Ž—ãð"ÂÃgðÙÎNôþäÉÙ‹·Ž£OOž¿8{pGSŒc¥R:}"ºˆŠû’û{Kpí £}¾ ïDW˜µ…³%Eû^gE!䣨«/rÔIÅ©ÐÑ¢o°1:˜ÚÖåGwiã{ÿè<ö_~>ígx+ÿ9?:?>˜äãƒÇ˜ž€ÖÇçªãðèððîÝÛ¿9<<<ºwçÐþ~nÁw÷îݺwëèøö]xþöÝ{·~®lúY¡¾E¿¹(’‹Å†ç¶}ÿOúÃ;Ùoäof Hȯ ¸Ëeñ`Çœ ;êãy°ƒ‡Î>züò|~™2ø}´Jçt˜#Ù¾R}.–8îèh²è- G;ͪ¤tS ËQáο»põZùƒèb•Â½Ê¢›VQ¥Õ<÷뜠v”ž|œÖó›~BÏ6þƒÒy.(qǃßMég‡vàO^Æ;¨]ÊŸI²ÓûíþàΣø«ÑÈôçtJOkѳ£úqîZm³Ÿt ¹õg·¾eH ü\¶¾gû|”»ü’Þ¹D"(ñãÃBGIï•Ä‘V2#š» ™*}â—B³b˜¦a“Õ\ÑûHÈ-Ûõt¹š³Ø´E9þĪ¾ÛBÍ/`|°u!ùP£è‡4:íÔW,>\m]…y»i-ŒÂ­¨œgÌù'´µ©’£­ z¯K› Ïc™²VSìMjÜ?|l%"Íìæ¸vU–q,í»°ã;‡‡úÍUq1j«øÖ~"%2}dl‚-P½@¯(ÓL£Ý€²#P'ñŒ!d±%Õ>y8<ŒúЉKÆøáŸsŒ\Ü3]ù+|<€Gïâ¿¿¿ükV¦×l8 »³•b*c˜ÐØ'r-Ç/µG,?îµEhiDØeú€!–¾®üþÝáñW·Ž¾ÚCë'û7hÉNÅËfŒÈN:‘±1 weð¬¢u‚ ‹ç¹uŒ˜Ô9Ú˜ñŒ@Ì“„œ‹€ì·Ñ£ÚˆÔ;Ö‡ZÖn}wF(& ´W{.´-(6ËF©´,\inyŒ(ïÐ^AëûK Å)Í.f±N—•%ei dë¢-•zJ0ÐÝÇ af°³ßMÎŒ‡ó&…·ÏV d^'2¼AxDVUç˜6mΰI©Q¬PR ½¨ã¹Çú‡ÝO »bˆÃáñ×_óZ9‚äD¿úê.šH —ÔtŽ©3Õ•wÅ$Â¥æ÷å“—óK‹Õƒ:KkÈW^Ԙר³Ý'›jkõèfÏžë&i‚¹5¤šÔÆ‘,™€tÓ¤ÂÔMਸ਼ë”hеÇöÂïˆÏ‰o^åtœ£]™8¢Ì†ãu}–”‘}ÊñQîâi¡cÓÔÙ‰ó•$JšK}àB¥ª“ÝIhuPFu.d&Kskˆ…¤-æšÅ7ãNE0Ź°ËÈ’YÉøy#Œ®ÛÒ-ofÈHO¬$%ý¿nœj+$S!&H­~½·¦ñtc*MȧîÆ ÛœH3?µ—õUTƒÆ*ø/œ¸Ä‚å>KŠÚÐ7¹›tQê’S $÷Û3&iœ*Sò:ÚE} ¹éCþ>Å]¡c|^D‹Æ5òIáL–ãxŽÑ¦UbÒš³•£&Òhž.-ÖÙïf†jÈ/Ï®ŽU˜o]«S&îÔö¶eö½¿™Ÿ~­÷j[žÍ¡ŒžÄ?>«?£ì€þåZ“¢zT¯ºíÑ2ÁãñZ¥¢*C ­b×ĶG…ålR+WOÈéßÙ´'ÇóSH"xèÂÔ6_kñã©#Òèf :H:LDÅ0œ©¢²¹³Ý/à¡mŸ‡sn´°»›žçòÏóÅׯùÌEã I—œ>$ià SïöCØDŽo>„ÕÍ\'DÔ ;cºš3*¶^Þ²ÅjQ;ðÛ+óhW¬µö›¨Ë˜*¯%LãTËšJvè'aT¸c5sb˜Q3q™Û†m:k°“‹Ñ‘‘ºáÏcó§f_¬cí­YŽú6MEŽ¢F)z𢠳#›jÇ\ Î:ìZæ€Å¦qêÝ,\&Ý­>9hˆ‡ÜÕGæK¬ F%îuËpm µaH¬½èwg–Jâ-Ô6Bšæ$4z]8õŠËˆ›•³˜ÖÃN‚›'~°·[D!nÍƼ)ÏÉÂ%È”ÌÌ…*‚Ô&(„o1E2O“)5CÁí³\a&A8‰*FIFT0e®b"(+•48Ɉ‡Zn4çõ åó>h[šõÅð, fARz‡šœ—Np”ÔœTáy./JK#ü‘Yû¢‘V÷èj ·Âó€ül¶2yü6fÑ™HT§d‹§úÆ•¬ *ø³2$±tOˆKÜ.£“l„‹vÅSÿû nêkÕu+e>ÈOŒÜ”#ªY —ye&¤bã“3þ¨ãMÆXq°‚Uá]þImO¥)N-FÀ’§égƒrT‘B”aA!T‚…pøŽãÈw1e-%§ÚF‰7[J¢ÏìM92vHœæ«2Ä>¯=k!)LéíQÆi#aÏé˜6Ü™FÖ+åþ$'l &Ðô¶ƒSÍ+Þ¬J¬¶× ‹ÚÅuqí°-Ñp?ˆv¡Æ[»S,~HUm@2º)¥¹j·ŠHø Å€¹P>9$Ú9#L·ÃWQ}3ø w8dÈ(^™#u‡ äóÊù‰ì!4C“Ój×Hm…gɯ¼‚§y`ʺ÷û»X0â¶6NJÛ|´üµ3C54àr+$'ý6ÁmGM&;¡áZ t‰…£“L½Êd%]äYZ±9ådÚÖÜUs&Ó6ŠM „‡v,:ÁVˆÚXæ-ËbC±µUƒvxºN“Ì.Òë C í3:EÉIÊôèÅÚ˜Éj¤£ƒYN©O:+ë1u“œv.ƬMÅ“ eº¿åN*—ËÈOdë ÎMzY2h Ô¢i„[Ó.F}ÁØJ:.É5vÅœÂ$óî«¥ØÛpªx äZg ž±c:7ñ±Ï+÷YÏJ rýÓ¤iòÀ>ýð˜•é±²®á¼™&Ø*É95ðz*¢kÓ ë޹ϡ"B-Çß¹e,ê2÷ö0žúx,¡î¥¸ºúëúÝ© Xl‡„ê´òæ9ô9å­P«¶+Þ²všnLWO£×ÈoÄ9n®®lVUÜ}°Q]¹¶ªr£‚­iî–k(’qy’5âÍZ‘Æv¹´i‘e§PeoEöú*êw‚ ìn%P¥%`"ôÙ#ßl· _•¿ïÞ¹sëŽÙå&7X«i°Ãðv-ý‘*þGYÐÎ×iWAiÃ:‰7}Nìºqû,ä: S›Ö'Þ hrMpk¨¨¶InÕݼ›ÍûÐ<„7 = q|[€’BþLŽ{÷üù£GyT®ÒÊ&@áó‰bôæ&:ö†Ö[çµÙx}“…Rƪi]½I[à ÄûÛ‰*pçŽÉGW-÷>£íUR£‹Ò£Êþ‚®ÄIî2 5µ[?ñ-1 •~SÇᵘ –AL75xçI«ŸÑ`)!9*[‘êXƒ9ŒÝ¤`1ÞMf9vT9e“ùàýÊÇH_oq¶[œÔ}þÐ j³þym ê žlµx,•.SƒzÖÃáëRü¦gkÀ¹M&«"~CB˶ð}z^¬’†<¿U:‹]dTs(ŒÉQ¶Ä"¾äÜbbÙ£î»A DùFóƒä8RT0ŒHB˜)‚@”ˆ Ô‚¸gªµE}X {z”ÒaÉ'µ€$÷6·ÄI’X‘ÇÙü .<ÞÜ(mо}”#£5¹ý‹å,.Ó’ñ9+¾1$G›¢«\³™ç™`wû¤”G„…ൗÏ=AV:Œêü7m³°ö†kvãÔƒC.‚ƒëmˆêÐYÝR¨­nÃûçå‘ÚÎj0ûtôÌOX³c3“<³5œËÔÖ_Ed×7£âÛWžÐšSQ¡Ï ¹J&÷£ã;Ñ«xew´ýK ØÕŸfü×£yõY£¿¶ÅÞ;º{\ÿºuûΗø¯ŸãG¢~Uñ_Äçýíû„Ø/ì•D~ip݈ yÎQA—1±E|ÞX¯FÀ™oˆËð t4åþeó‚4‡ÕY‡ôdñP¨Ý­ GÔŸ“±eý4x^ÄËYÅŒ>sZAïòÌ{ƒ}î,•‰á«1Îø ‹Î–òZ‡±TЈ[¸öQqnP SBƒãámÖߦ݆ͷ°Fuè˜_]CÈÓ•£"V%–Ptj¨G;ÆQ Y%æ;FCZ È¥±”ÐͤӅyõbF(„ â]Ž ë%Z a±ÒØHSÁƒc}iï’IÚ÷"ëÜC±ÈpNåˆ^ìO)cÃDM¯´ÌÄB|Îf6_e”¶/* 8Ù²¶HD²N~Š/§@G¬Õ‡÷ ¢ɲ¬4Çq+ñzµy1ÚÀ8^ÊdY¯W1ú„®àûŽ ºsjŸå2Ó˜"ÉÙÚë%ëÿ¾‘5 ƈɡ ðYŸàÚH ¦_6òPT¸¢¼=°BÓƒ.åg賑†ìfÎ3Ì!E¹ìÎ’#× Ô³ªZÞ?8¸ºº¦Ót¸Jóa–üŸÙr~ ¥Ä´óíC4»eô|•NèÔuç¸ˆà˜¯³b6´G?ü_ÐZÞÀ^9SoÏ‹¶Ï[tÑKP'+T)³!½ù—|E࢙äWÙ<'Ѫ݆Aâ^ü¸C,ú”nõÅÙ«—n¤\›å º >á6à¬I¨6 }Ý?’ŽÁûãZu‘Ô "í ©G'õüpáuiqÁ­t]›¶kÔ,ŸO:›$V%aª¾Ïu[Û¹ÖŸÖrIæóÙÆÓ•÷ÉÍÂ;e4¿þ «SI®%„Ê]³bºÙ‚kËîÆ-c1æÓZçFL^Êrü„öˆºIY9O>.k Pü„éŒn:©\dÄE~òœJÃj¹V™]À†õôS÷…4W*ºV{¿X‰¾X‰~M?MûÏ4A»nR~>#ÐûÏ[GwköŸ;·o}±ÿü?¿BûO¤+üdó1mò†Ÿ¥?Ú‰á¦Ã<Ð̞ĢçO½›0¾p¥®È%ÃÔOU%¼ôî]Êh\j.VL«/rIùV"_<2ÏóKfðI’9¹‰R¡‘‘@?RÔ1Û9Ûy—Z¤E&‰Ê sìÎÞàÜå,?ñd’òÒjÆ ”D}e,à,Áý7Jø›p^\YIJ÷FšÁ¿Ó*&.±B0 Mò×´¯<,©>XE²œ“%ÞGêâÑ–f±¥§À{ªç;0áJkï8™0šs9E'ꀯÈxÏ ¢»b=¨5k=­]É:J爼†Yàî·ŽUB¯”µiã,²ïç~\¯ºC‰Pî…†rú+ÒB¿è–?ëOSÿcÐâgTÿ6ëGwîÝ5ü¯øùÑã[w¿è?ÇϯMÿãÈõRnè_ŠXoUM¼ýír R}ýõ=¹¼JóŽ­ìÖ|8:4‰qÔÖòWˆ&G4ÿ©hZg˜º„ZosTRB'æŽ"ÉXaïY+•FD™ H›n­êD°²Á2ihÄoI×I&A$‰–y_aÆ@È'ÙF0ü“|…â¥k.Ç BµŠÙ£r )Èœlqˆ3ñ9`Ä"?¤\¬¢ŠœdÓ<ÈÐìÑÄXµ©VgñÍåÌŒ$ã¹CìCkcßq†IU‡ú{-Nq}öTEʉ·Wœáî#¶®-5ŠÜ:à'DM2dÌ ×ë‚иK6Á€MÂÉWµ©4õ’ûÄæI‰„Ë ‘Øeû”3ž%˜ÆD‰0-þ+É ³†E÷!%sYw_vÊu9L>ŽÏ)Q!?ˆÐ]¸ã¨l9ßèx7”DDU…„`®f^ǺùœÝ…ÎŽ|ôì8ç;¦\{’÷çŠzçSº€:m=±¸©È5Ήcý°¿]•3NIµñê FR!h@ znž±Gzµ¼„E‡s£]W¯Cô'Ü[xú˜æ]ÔëçIGÒêLq™Ø¤Õ+è·ØÇ^Ò]AqŒæQœLj·VºsN¬«¸ *Æ,MqN¡µN^ë®mHÈS4äeY‚fC”ƒXÀm$&e#ÌÓ„IëµÚ~«W†…’ƒâÁpz–°f6ÜŽ³U…°˜Q‡›ä|zJRŸG¸]3 ¶µ,P‡8<ÏÃĘÊQ1IÈœ˜¶.Í`oû*ÛD=%håAìèÒâë$UϬ&»s½eø¾ÉÍCðzBꟽ˜;F×Þ$g×*žSŽªœIî¾ÃÓ•› h79RF"1: ‰×šØªêyeé´b®{Ò²y?x'QR2ÁsÓQä·4èt0“©dKØ JGxï?¡Ø> ±z$ ¤€×G#&b€&#qM0ºb²¨§‡liI)RÚ¤3Ÿˆ—ƒz[8‘‚¤±pËý-HZËJŸwÔ~¥'€ö7ÊñdAöÊ©L¼b¤tïàSÓ¶*CKZø»ösC¢SÙÕ $ýUèMî7Ov.o:?NƒÂÀïÒÀ*ˆ+ —ÆÄŸ2gá‘@Ég]?£ˆ`×TonÚDdd<ÇrÊ'ãøýQH8­öPµDká´Šþ­M*x«_ë¸ÃdpoSI§†cóý«ó'O_>={zþþäõ“7ïýWå㜴#wÆéô‰…Å9bb`OÁdÅ÷üê B¡÷À4x¸õ\öæ=f4ãÁ±ñea’[W†•Ôù”OŠ¯f€ œÄfgf&šc4`©™'%8ÞËx³0yÏ„=Ë5 3u§Y»ÓÎzj(òÎ —^Ž¢‘r >)Ö»YRø Ù|âè°í=„S`¾Í~t«Í^ԱľF8 0­eRÒIOÀ¦™à‘“$ ¬ÕÝŽè¢ê<iƒ™ÎËöÆx¾Å¬˜-¬1-bßT”¬VH–’ •1¥ÛFʨ¨tš²û®"®v4/Á¤«·+çhØ ž¤‰4,B2iÍÎà@P‹B$¨@gÅ•¥¢#û˜è—µ±€åœÄQ‚m­Å]Ö+@‰b‡”ý8Ä+Þ™—I²ìï!õ&.>1C‘šp‘A+õœe¹U¹Šç;®‘m†R¦üCŸ-ƒ*÷2)°*¼[:Á5 dJ€ê-,~t^ aÛ]æ«b¬4=j×Ëd’ÓõLyÃØô ,Ã#æV¹t+cÚ"ª¢´ô¾x½ƒðåNW•_Ïðæî}“ÕMY,ýÕN$¬<>;x'—;~ÌÝ~©ÉA⣠j˜qóz™nã§YžJ5Ñ£i7¨Ú´W)IW€àù ÏK„W²8\iº6:gY ã³}¢®â¢XwA ²V3RôLÖÙ^ðœa¡$^=lÇS<*ŸáQ)7ÖUìrê¾}]¸Û ïéy^ÉήÁ ²ØB»AHÉ(N|"¾§g£usi'¼;,h4„Z?Y®Dˆâq²†í!?X’ˆ/³Lf §dÑ~íX2¹%c„ãG`øŠì×ÑœÈÚÙd¶ÆëÍ<5s[oó Ú`3¶D:aàA¹||2Q„4PÒ³ã†#0Chƒx{œ,(˜dƒaW<\jOÉ‹íÀl™ƒ¤FqæZˆìº)Ä—×Ö©ebÄè&6ö ¨¿ëõt8½]ÇTKo7¥Þ–l×íÎ)k(3»ç Ï”#eÃ^‡âøÑñmúì:¶wIuq¥‘Wû5í#[×HÓdY%(rÜ@²¿Ý^Øm…mßw³^qÆ%TóȆG»xÁÍÒ*Ò²'Ï“Xª\÷½2AßË9U`êK‹Š¯‹ze²ŒaÛI–qœ£··ó^¸ûi!^IH†á­¥±Ô²*£¬2O/ù*a›[ɹ ø´eþBÍnÃzE&¶±±‡±á’3a Âá€ÈžÑÒ¿Z ãÚé$( )!]"]úè,í?&(@½€eõc²×&kY§ô+tÒ_$ #½è Èœi©‘P61„ DØc¿^”±}QSb \À‚«s¦l×+ÌUö8Ÿçøå^ûbüzÛb3·™|8-Î.YìybÈ»­i0܃|Úð °ñ+ů'ÿnÊ‘LòèLÑß"qL—fKVä6€…=KJx]¸ËM…3\—j%ÐÝádIÞd¸-cu‹Øª][Æ\ÅCØžƒì/¨câàµX¼jUb@¢š€e|7S-Ì™W¤—ÑK¨˜§?&:–ŸÇ­cê*ÃEü•(ª™ñÈ £þ»|½ÅcNä«ëíÍ槎"aÎa£SØxA|öÁ¢£wSΨȦ@öé ï„Ç_W‹¾ÞÜ¢ÚU*T1Z‡$Ï “oBEÒ±òÇ,Þ“Ú,>› ­H*ÝYeB¼V¶Y°ïE¯qqoK‚TœÁ¿‡ç >űü3Ð?e@_A/ãd½¿l_(Z-Ø4ý¸yЪ.Egöqp¢ ­r¹TœtÉá…ã".g•Ì{åOÉš¦í~tþȳ̳¶ä¯,ò0à€Ç~ŒtÈ\ºÈu€ñ%âN%G{*’ủq¼:„³¯·œeÁêÄýÖ4'²ù"‰çœÀ-obECƒ›¾év|xxØ-&nnŠ¿iJê÷sý.²g ­æâI¾ˆg1ßad†H®Êu ôîÍí ïwñ$ÍO î„*éNY vÆKÓyí'ÉGœ¾´WB)ž›"¹@ räir¶ÂF:ÎAÄÕ‚÷4æiU1L‘ñ ¬¼/‹|4Ob¿’z¸ °0|ÎsúûÐ{7ú½¦Óê¿åÂ"Qšé¾œŠ{‘çÓªûÎgÀ–Rr×d}:ŠäèÐÐí2©ü¹ä•`TŽœÍ’õ)“LPN;AßçîÚh«€—'¢t!Š¤Tšøb‰/ÑI’ý0â(fÄ]ÉñBó„U4%ª¬óÖuÛU›‰[ÕÐUU ¡1ëñÖ¶}¢êðµn$pØÆü©Þ«üæ$ÀÀÒª‘°”8Ñj‡ËÚ¡˜®Å(½XÁy4à£Røôëo4Ü ;j/ìÃ茒v¸#kyo©´î­‘Z5ò«a/pJÕ6Q]à$"êÎ%W=ñN¢U{~ŽÞ®ósxŠt¨—Ä)¹ŠèL¦î½-JÂCÃ}æÄDv²A;*ŒO$ {ŒQŽGDAJT5EjHÍrëãå@ˆÇ·7Çf¬eêuØ%úMqŠt”ð¼PƒÐrs]1ûn—mf¾ê2’Ù^z,ƒ³á (DMrÚɽÿvÆ??õßUé¼DmaûÒºÐó’«t:}`îÕ³í&Â{›;¯¨¼e(N><<ídõf4—.$8òt5ÿq¶¾ìîן{‹R/f+1%Ó (”Þj¾QÍo_ ]:×W×lî65G‚„ÞŽ†jù5êÅ*ØNùÀVACÞ6ÜÖ"|—wUƒW6½e«Gp˸˜\4qH=,³•e˜/r!QL(ªeÌ„¯ÐÖQ,qù9†C£KdŒj•Ã+¦ÕÀ^_üUü+6iªË.‰SACV‚Û?hì3aƳ<·@ôyˆn]kˆÆ4Áœ½E ÝjL`—H· FV¹ñ•Wßë.Rb‚Á® ôòI«¤‹ºˆå–"]2õ8Èž åzÁn1ç#ºمì\©®©–jAXäß©ÁûJ3Âj9½¨_ä a@dö²×-_U%Â=!¦4Ð{Ø®ÈwIßÝ2¯<7î¦ &ÚNŠ©ã„à ÷ÄÛ¶L:B>2cC4vŸ{=×ðŤ‚«ÇÈ,ÃÞï‰ÖÒ½…øˆž& žëæp )„¾)B"#!øb ´ônGá†Þñ>A÷  ßHÐã¡â F-¶Å¡Â$CœmÜz³x)²t̬‘{ˆgÃ…®â´:'RSÊ&ÁQö:ýÊô¸Äæh†FWúøñRr†³ËÑ“2Õ†P'E{¤§'ïžOç~vŽQ-Í6i&†'m´¸t³º²», teEHÏ’‘ƒ^Ó­ç|·¯Eòª{±Iôº‰äõµêxÚö4›æ!€ÔÏ)kŠ"1¹ÕÚÓNÙ^$kb¬­‡‘¹¼Æ‰lc0š «ZÞ’ø ŽX¤ cÉ5XfÚP9É(ž4¹Œëi~Õ4yÉ(Hfë"ÂCª2B_aDÁœ÷Y{”,š‰jfiUªlP lŠûCSiš­ÈRèhL{GÌÆ—Ð}F°Ž‰@:*a¹/Û·×u[r5rºç.¢Ž ^œŠ&ðbŽñeG”è“úÁ7Š»ôÀ"8OÒ’œß]ÆmC§pŽKc‰¡B*^"ß°|G»‹Sïož†O™¬Ã‚ñU÷%AÃ'©½ìµêY¾\à´AŸ²-qËJƒX€»dƱ{«-¯xëÎFÂk.I9‘®PFc­®\†ø/ÿŽ¦=±»©=UX—ˆ w©ÙS¼ÉØíâ+SÀ±œÎ­ÔHó¤Á8“c;ýA¡!Cì¬T*:uá)þ¶_G„ïÕ«ªìˆ-ãÜR&ü~(Þî„¡ÁûV"‰NÉ_P˜™„J%ÉB+ÉÈ ñv,”’gÓ¡ÒyaX¸ë5;¡š}Õߊ¬»þ¢ë—èwƒÃ1ÃÝÞuH{[F«)¦ÍÐ×e¨i8®„¬Ÿi¹ Ól¹ÚH‰9Z¡h½$o;Ÿ3Œ™¢ í†Q¤V˜VSZDÝN’0Ä¢sïzËÊÆzÒ³6Çú¥`VÙ£],àŠYJ2«e†çÅ"sü±žÖ£Nnur¥£šY4fhëŸ%ËÆóU|A.ë/`¥¢÷ÝW ‡SAþ-~îÓôâb=B ´X-»Ý} ×RlŠ ˆúOR"ˆ}àmå>ZkÄß Rï&#ca ó n8姱î͈ü›ŽÏÆûP»…[8ž;Ô†|‚jq`ôÕº GÔSnŒ:±fû£îeöùÑ æaÆm!+®æL·˜ÖkðÊS€|ˆµôòz ƒ#ùªÎU#ù]ø7T&ö—‚­£NÊ¡šuš² °èÚÑWYÒ>l­ÞÃ{ÿ¡œWÎÓD ´}á>ëÒïm¨Ç9gž­æsôH„N‹æ^î?‰³×¬/¸D:ãÖŽ0@»km)ùPŠx÷ŠíÏm'ïJ÷q¼¢5FïºpoCSF=HÑÐëâ•aC!…,],–vPÖ"¾1q0kgš¬‰ýwaø$þ—ÌÃF°ØÜèlô™0lKiÊ.í8×Swè”X/:àꊤÜåçX:NK,ÄAìÄÇ£J‘«&Tç{hNí“ïXJ”è.X ÈØÆ{8zuº/Ñ×wº¶ã-C"×½ØT%óº—‹D¿Í ͬT„II1\yøg&Ñ¡rE9&œ„£˜kªM8­B`g‘ Mäõ2©ähI•»C>'ô–âÅ0^.LÏ#¦×˜•q&ˆ4$wîÔZÐ=˧/,ãòcðWÝæŽ0&ËØÁT÷±ãZ5å¨ÆÛ¾Ñå2Ã0@‡ï&sñœÖ"`©24cŠ¹ˆc>Qƒ¼¨S”„%…NA3VxSÖ38¾„°¼óÔDR' ¸Fw G> gÅ`åØ„ÙOÝò`S-“²0¸£cŠ5§Æ†--4þþmDUÉEn4 Ñ€®]q"…Òá0ü&Œ÷_Óo*=ˆj%¡Y"õq¼Dê3Å·ˆé†çæ‰Ák .0b;¡”a9OŽCš“î³ËI|Œ»¡5Ô]çÐCt”pfQúå†]¨+ts=öBøÊF]·©ô?Hºœðš”Is‘»ˆP“5MÙIÅ{®©”]Šµá|ÁñÏ$¼g’xí{9Z‘:BÕ‘€”V‘rßC9bN]í¬ÎÌåôót¹T¯?æ=oÌfí©|…ƒ\¥g3/Œ7U5ýÜùU.j̾œ ´ó.( ?E¿ÉCœãaÕâF[S³n0yê«ûîßì¹ͼ)­eKÞg‡žmø¬úÔ·Íio­´­“É‹÷~äSCë¢ó+*ðñÙYÜㄘfW-ÿÕÙ99|üåFôW â* /gïrY² ƒ^¸lHcÒÆÔWÓ·ëõv…s¦AEEh颰@àBýUéš“PKðŽ£lÉXÜ6·y@<7ÊÝ(¤ @> 8´D]•ÜÙR‹Š¥pž-Ö#ÉÂEa"ÄAòŠL$£ ºtÐPš]Æ““5¾]×g¡ôJ ÆR¨ÒìJT©µt’«#æ{•WlŸ rR£àAæ-’¬™Å1˜… í¸È.°Óªh'öÙq*Ï1)>²‘ö¨-r”T^¨]»–ÄŽñ§*Œ9ö{hCäpyáZ‡¯0È«é÷è¾´6/—wD&\Ã=s°~°Ê(tYwÊ(AN|a^…¿Ü{A´¼q ¬8Ì!dy5 b#Å¢ÁÖbžW¾FÊH_È€ßvó«mXA&Í+Ä6ÑÞsßC?¢GèvîR·í{·ÒD*=hH¬:.’ŠˆÑ`¥Äg¨—D®¡ƒWÝŠ‹ú˜C¯¢h·‡òêReàLuß›TÖg€´áu…e»šÌN#–DÉ££®Sæã4º£¡Ì7¦ „Í,Ñ^ ¹îO°•æŸ>þÆf¸»˜pyŽYÓ^qªâÕÿ<É x^¥åx6o·=ÖdPºS2œ Ñ5ˆªáT'¬âW¹I-Dă|àZÔÚšPß<"ß Â¥ae³=nY¦ôìÃŒ9ƒ½0ï±BˆVšI åY´ =ç:Er7'slNmãzfhÜ,0œ‘eΛËøèdü ¡»5Ï14¾ÎÙ?ž¿:‹l6íHï|&l€eX–k3‡sÞ-‚ï*W·˜Ô~ýšC™ÌÜp”Ô)¹8SÏäC ·ù…Ïi˜~Ô}-ócÈ|@ë$N'Â&¸P8·:(Ðï%ï¬í3@o6 a±nûz’+¿Khïm"÷ÊIG%Ä2ɵ‰û4¾NÙ·’u:8½]±:8[´Uœ5~ÛkL½á>ëPÁµÝÖ˜‚ÅíbßQêk-ìóѱ¨ÁÀÙä˜ë~À¸ž[òëª!TÀzòéž ý¼G>òÌ)·(I®ÏÞ&ÇT è†u°u \gêÏZÖšÜöj¯Ö¼>¥êðƵÌñZÓ>Ã_ ÷\ár|Öo"EÚØt}…‹÷o¨¤mðÑ LØ µšrôÈvÒ¸5ï.–1ò 9Åb—Å—Só+Q üÚÈÙ;þuÿ*;5³À†«²NûælðËÅÕ‘Áû#eà)ÜÀ ºÿJ“o‡Î9ðŠÖc±Ê2µ°Ý­­ó«þªÀ:ËuIR®¡ó¼½Å5=__uˆ‡6,õëùØéÊé’gêœož9ªýuƈ¨·Ä.êÌ5­öRqb¢Vˆ¨ÁV[¡K‘k’ôJU þ+GF^š–"Ö‹•`Â}>÷1ߘHƒÎÖ½.#çq€ØK·{ù7z†ᙃùSlis¯0rÁàºG Úf¡/ “qþêüu¨œ3AÐmÐtR?éÀÓ ºVÝ-õP7;f˜/kV¨Áv[«˜ÏÞHyhð¤guÄftg[ ”Ï;‡£ÆKnJ®bYlˆß@ÖØGð±Q¤*g‘^:¼§+%8ñ<倫\>Vì~Ö÷©dp&ç¼êÊ=á%"r ¯ #p”.®6IOÍŠ{âPâcîTÒã0$TÑ$pHSº¾#¬¸Ž­õš#TÒ´2hý©L’„ ÒLï¯Ô&õˆúâMà3¸ÀÕÂïã©Þ€/?è´™£Uç+ÔËãà@6,ªkÄ ŸI|%Óhs’ ì“t(ÄKmžA&æD>Óq¾ª–«Ê^p\‘„{“™BÃBÈ¿¦A¾$4$œþKõÍÅ’l±4ÔWŽ.-¡ð*ŸHmÍün =ij›â5‹fŽ¹‡‡·ShØsJ;âï´Ÿ ·•îÝf¤<èôîQ·©¥ó€høöÕZ€zžäê/Wêl†:±éI‰hHãtùrR©ceõÏæ:z¯ºÙ:›è‰\æRöJ÷ñ3’¨"©hVà¿Ã;{rí!àšÈþaÅÛ:×ÍìÃ~´Ê.3DtÙŠ”H$ž&+4…Ç1J[ÑtEœLJê¼ÑÒn‹H>b:£¤=Aƒ@>ƒ€ð€áªÕT˜0ª¥kXÅ+ÉÐ+\ÈŽ»Ä¾ÎâJUÞ5Ö Çjô(™—³øj“ÈÖD.¹ØúzœŒMc"à%9-DÐ4ÔŠš›‚RÂsbTfxG‰6~:w»­¦Ù¼oJF² |•üàmù™k(™Íãæ3´© Û1a.Ò9ôø]ÿvÖÅI©„|M$Áx¬B¿ø€ÕД+Ç` {seˆ4ðô{œ°ÚœÏ$÷àõâÞ¥³ „Øâ|Y'6‰žÅ$l”ùœùÚKK€‡]‹øpèç—EœzRq‘FûYǤs;5[ü§äòf÷qžeyëÞ .;òÉÊ-GêC‘/ *7­’B„¤ ±Bö“=†Ì°4‡ž¼ÍŸ©ò¼„'‰Ù 5·”5Ðnêªw趃Åø"Ç Þ5¶›Nˆvm¥‹½çøë EÁÀ™L þUðV›³.ð "ØE±H î'“I© cWþpâ¼ã¶ñBD–ÑÆy±°ùúŒÑႼL$µŸ9¿VPÉt—³n¦·;šbãoPïmU{Ũ*r è¾mœ‹S€pèn0gœŠ6—^2í­¾»¡Õ6ÅëA¨ŸÉàèêeuˆäˆaõùÏÈ‹5=QÌuˆ'ÞµL5‹Y€æЩ”” àƒf0 ÿûœ[Û–‡›`à3ý 9>£Büç %àƒ‚%Æ?…E }Ôµo”•É¤ÿ4þ.ª“©³{\%E¦‡fǃґ‘v$7©q¼6S ò‰ð6ÿ1OŠ ÌþY€ ZvKùuÄ­26dú<$&¯Z£Lhgp"Š8G¢s̈ŸHo°™ra`Æ´™¬F œkWPV«ûËíaS2!óiÍé>rÜY\oÇY¹iÕ[rÁŽTjj%¢î`gD¶2€GkU@v°<¤ZDªã¥’ܘÓÚ/Q‚—²¥j‰$S [¼èÙîH©îΗð„5v‰¦`¢ËÈæ‘#΢w°ZC\@ô ʸop¹¯;ü ÍÓ9\®¸$„ë‚œÅÅä ªyÞ‹äÁæ…ÊTiá4µBî6J4V—”éóê#:•tàˆÀ)dLk“çµ8xsï’bT":œ6Í|ÍéÅ~ƒWãíljîqU–)þ #¯J:. \¶…êTD…ê-mE¢aTÌY¤ÛÀG{*6{°%Õík,’"™³‰5t2(ù¢"^[°'N46±Ÿx‚z?~>îƒ~™$¤Ïl3Á•¼½¹Â…ù'1ÿ¾Çx>äg7Í·ëϹ\¶‡1gñ(ñ€F©B.vÎÔ^&•÷’³!“ÂÉcØíuÍBd7ÇáÏcVv8†@ó§_O©Ðï—\ /)èQ¶ë´”1v¶îe…£1@5ó¢ˆAÍϺU^ŸÉ¹J‘$õÌÒIâE?‘RhsòÕÆguw®1UŠêÂúΧ(æiMÍ—#F”°Q"i[?ŸPϸ¤®tÃ- ÇjW%²}[HTÒŠàš :áØ›Zâ,I±%,Á~W2‰ÔÀ=ÑlÏ„Æf¿Kغ‚ò»† Lõ½¦¼¦Áv ²+“g… T~ë¹`ÝÈc Úœ–L8݆[¹o“‹}Pë¦\D’Tã¨áø#ËU‘‚ ì×ܳíb/‹j!„yÈëGº~Žã F£©áƒæB²ˆá ±ß1/j•Kz[‹‘ân±Èº%9ƒ&ÉÇ»àÒz›ôÐ6óØÓ×OŒ ñé˧Ï\?ž<}öð»—g ©)×C&c Òc…ÚÏ…  öµµ‡™aÕæ»hÓ(ºÌÎ‚Ó ¨€Èp,ºDYVò¡¿ƒnÞ•-Gzvm Xö¤O»¦³b©p‹s„Пå&šØO[»¯Ê–ñksŠ7«ëÍn#ºI“—ñ•àIŸ¥@‚ºìý5M] "ËéÊÑØ@8 7hyÐÊÁŒÒØÒ}¹¹0¦"eXC8»qGÛNV+ä­aÔÿ³ùûØÅE)c}—=ùÖ–#KàÑ^"yÛܦ/ľK¶aqWò±â?­K ;¹œRòl•µò²ë9æu;$2¤çX>* )»Žuq«µ÷ÃwYX¨ŸTõ#nƒÖ´iíJ¿¡nÿq\1¥t‚K•qÙ>íטÛC홹lé-WüöÊ» ÚBÒðQäÂ*eê´tÉî¤iµ„#´ê‚dÜ Ð½]£\—hŽ-Üþ¶ÐƒxUå L¼Ëw>KS “$»QcYn­9 #E9n ¬‰0›‘¾‰ñª8¸ š'8h,ëcäºÒ§ÌAËVÚÃÛV!åþvÎ}ÈrÊ/eÂ$Î8žißQ$aÓP^á³NƒÛ”0„­*‡SÈxëU'Ã¥Ÿ[©ÄìÔ*ŠÏL-¶‘À÷òÇd:Þ'Ée«IU×=’:¹R»òX ëyC L_ÞÀË|å×âô¯{ñ1ªZáþF+Ò ^9¦,÷Ä:¾ÚH~84g`,q-"M±‹!ÍÖ§¸Ôw3TlF5èíóšZuÈé°»žg.<`·E[hÖ8qp ÎÏ7ÉÞöåw¸ÅEjlÙ×’J"8…Û½ñ×]~|÷ûèA$ˆ]ªUëy"¦þ7óÁÏa«Â–è$Ê!í-—¡‡-™Ê/•|tãä ê—á7*o¶¼j´Saœp~ª? †óJ§Y=ÊÇ]Ù5j “:Í[T'åojÜ¢µècÝýÀ÷ð˜²dPkŸ%YŠÒ~—\stG(ú1ZÇ5P¶!å"{6ûµ$÷6Å¡*ʶÙC¼ÏÐÞ€Â?Ïñ–QÜsåÌä-->óA; _"!Ý,oÐk¹dl=2˜„ú¼–yK©ä[ËË•¯â4SB¿žŒ±7X¶ùì)*ÝŸÑõˆ¾!ÄàAƒ+dQHÉØeKÙ@µjéO˜žÕZšnó1lXBôˆÂû̆±zø‹ø0 M¬}çdÛ4™“FÁçm¢˜‰ø­úŸ©!ÄTß®—ƧvdÑõ1ù³iƒ¢u‰H½d“g}•a¾®èâÇ”\â•d‹§DY”Æ#…ýUÂAêôJÃY1AwYlj/Rô:¬ dG8c«ž$õ Â(.Ź– ­-ô‚Žzf»Ýg6d¤±¡œÝD]¬Rvm*¢Â.f\¿Æ÷Ë㜙‹¨˜’IZ àf‰QëôDšlèVÈ êHõæÕ€¡X §Ð£þ/Ho>HÀÊlÅ’Á ŒÄxËÞÅ— ¤W(¨·BO<™ä˜%¨eC ŠÙŒ— Û5¬±JpÀC’±OP(Rb0v®Pˆ»fmÀAâ)[Úm“^½ãµXf‘œfìX,]Ô¶4áý«ó'O_>={zþþäõ“7ï½öH4ý¡ë¦Ek;à_çŒÔof?b20Ï}DeÓg¼ék{¨Xѹ?«>B.4P·ŠO´ÛÝ\xEÕ¢[Y¢ÔtñÜÇ¿»„à}‰yÄ5–ûTߎÂgŽ†wùҙ—µÊ5/ȣʋµ‹Ëqšâ^ ª=GQÌÜÃ[…؆Jæa¢Ë›_ùO‘õ¦F´Ò?­’%>ù„ÝòÝÁßÙƒ|Ô2È‚à¡j!|·WWWÃI9^·°;†1±³ ЕTä`fí;^ƒðð1ƒZJÚÀ7ú˜d&\‡ª²“æï|á@$8ažGå¯5xäeš­Z©+ÕÄQ®a.>r?¥AÀ¾`MÆÆÂÖ„¡ ¾592g/+Ì VíiGÊ„Åð ‰Ùd´ä@Š×]ŽLƒá<:¦¿¿Ë|TàÑmj†£x‡ ™ªk±³ï¯Ò CŽ(½¸ÛêX2Å)ÜêØu_ùµÖEѱ‰ïtìámÅñ¢ 2±ª®å÷ší:Ü^V#qÑ’I¦÷è¢ÕÀÊÄ€—Ìl/Q9aê½îÊéžÑ}Âùò‹8Nü·!ŒcQn‘wÁ8nX¤0Z­¨¢s†ÌZÂÔ6eo /3Ù–º»ß‰ÄÀ º¡¨¶¼•ŽÛvçHÍ©ÁÌØ°„‰³HÀ¬©QÅsòa‹wAÀ¢ç‰€ÃŒyÒ] ûÊíüÀlxüše.ŸÓ×IǵzäAåR8§æZgYà.2>K5}zÊ|)>ÏðEÀI¦¶²ê-’%1fê„é5ñ «wgOX¯5Jrà†q|Š‰¹Ç3T[¯%öoëšÏ®$8v[Eœ°Ñ9GNÜHh¾NήèŠcm§BP[¡§õ@¼KKÍk(•x=ÍAþ ýncc”ÆÔLŠøª ¦(m¬*^”ðyq$ß±6Ûê0Ü΢RkYh¬‰Û|”|0wúëa¿Ü6Î-]­õÔ‘¢)ÙõA<—XÂü28ðªUj­R#4Óåó™Ç^{¶Hãéè<¤cÀÕé‰ÞüÿÌ«Âóüÿ\TÌ„êÌs ~¯w]Aõž£ð*^{Ÿ­Pça¬x°Å¨ÂC+jsÆýk “f2/:á­+ýøH- Íã¶&ÕØ1â‘ôFBÐö¡š³x„ÂΒÞ7ªòxû Ofö¡ˆ€çãy^Bßú{‘¦á x‚Áq8KQ¸æA ÇûçÏñ<:]æó,½Ì?tÜCw8`²µMÜš»ª#TÉïí,-ѸOyâ­ø»õp…e—PB°$´aT56¤b µ#œ8%Ç­Ê(ž:œ²¨€áü’zäµ¼b¸¹'".(á ¤ËŸ¤iÅóá =Þ9 nmÏˤR^dìI’Žó 5J²¼¾¸òúIÿùŒûüŽ4^”]ëï6‡Km˜[¦ÜibZª‚ºãk“Ú¹í]MyIøpÞ›t‚°ñŽ‰A0Ât=3L‚€eÜ~Çç’ÜElǦXrX`aà™æ2¾šÂjÜã Õ¨p§¬1$'¥g£¹¬R!öЪÔ<͈D3É U³0Ÿn^UœoÜ`óÕ"›%ȵ3ˆ Lü„¿2Ð&¿²_[2ŸT*ˆÑWˆæÛ„` *4)p Ð.i Ý*ß»L (˜oBHH_¼VZ,,™$åYÂ4s’C¾”ÛÏqФ „>‚J¯çíQðdË)W£}ò¯ç– …†,±§@v|Œœú–Xh×Ü|l¶Eó§‰fuW¤XÆùì ʤ,R¾&Ë+~2Uû H·¡–uÇ\]‹`:¦}§RùDH>ë„$zÄHÜKßgªµ8¢–”£<ÑŸ¼Â,4‡°@HN¬˜t"foo\Ù-–£áaGQw7eL™íVÞ–š:èn›†Ír/QtN>.É@Ö‡ ¤èÐ ¼°ôÜĨ¯b¤ è±»öcp _«epöÏa´å`R×2÷:H"Z `v•lD¬™<¨˜Š1$c‘Oœ¬-ùÕbRŲ¶ÉéE‘¬ÙÚÔÖ†i¸BPƒ–Ý`tÃTMiÒ|UÔYWw%nÓÆÊ“¤Ì™$X6;É(‰rˆ+=Mh©—çÒ*à϶1=3ØzÔUùª.ÉC¸ûiŽ„Ïä—,‡nâ+ÇÃÛ?2œóÁqŽÛrÎRŠ¦Ý"ÔÆ&§&³ÔsõðŠµÛ«ó½¶Ëµ&AƘŒZE ¢#aÝí¤(Ԕˈ¥éÙTPrB¦ÃŒ–1P§¥3²°Ù’ýü¨_&Ž}jAþBmÐPD©XÞϳËÁnD¦ ÚëVa·¯VÓÛ™ $ûmF4#¹*‰Ò?hK3ß»E„‡—¹š×B«PuÜv¿ðg=±y!nºøö›·Ñ×'Ï_?ØyüôõÙÓw;ŒyúæäÕóèôÝãèA4‚Síy–†p¿>|yŸíìDïOžœ½xpëø0zñôäù‹³wäͬHJ§O¤BçJ°ôíuÚ€=ô$Úçq¦Q !à¿÷£oâhV$Ó;8œU‹ùη/rÌKÕí-úæó­4ì`”OÖú"ïþæËÏ/ægˆ·øÏùÑùñÁ$Tù$§)ÿluÞ½{û7‡‡‡G÷îÚÿÂoGwïܾ÷›Ã{÷ŽnÝ»ut|çž¿}çÞßD‡Ÿ­~`ûƒXýnыņç¶}ÿOúûÓoÎoÐÆ"¿‚ø“±õÁÎ$á«ÁÊÍ›þÁ$û˜³$Ïç—i%~ètN¦*L¸²Ï=2;à™m¤á·$±î4«’ÒM5,Ü‚8ü=Ò?jå4×ËÁZE•Vs"#‰p…àà›þP(ê:ÿGW4º ¼ÔƒßMég‡ä.ø“-š;PHv)&ÉNï·øƒ;wŽâ¯F;È:„N§ô´=;ªŸÊµFÍäÇ«¥w&ÌŒŸc¬ Æ3üÇ¥ÃJ2¢cc脆°¡ñ¥·ÎW …Áàø20³ûw-ÒjfK¾ïæb"ÀîA@ïSäî‚ÿžâL!þ·öŽ®×-\ šhd¾Ðxä lêªÔ+¤aaÑÚe[ägðžÆŸïʤq $)ï²È‘ÚÚ}ê׆œmàyc/NôZšÎfU`Z ”¤=µñ"./Õ9È6 ±3¡ú,¥¤U)öJåš²¡ D$qüTédž x  HÔkƒ±!W$¢3y¯0È ~¤ å !›ÈÈç>’4ÖÝ+­.–Bæ9­&’T™@”ðŒBÈÁª³Äƒrö#\Nк]Nu)ÅP¨ TMzTå“Q×Õ yÒ"œyk¦³a ¾ÿp¹ä_÷˜ ÈásBal& Q¤@e M¬²ê£0ô¡‰o„ gHéŸ&0â²&wi‘Ûy$µM Sû ÷ì.ó¥´>Ï·ôEìÐò"¯(¶kz’UFÀÂ÷¶Tk,;ùˆËnªóƒ|éù‘ft(!/Û•)áôàµØœ65ª€¡QÆîVÖcŠmÆ¡E 1Õa–í–š¡kÅ,>Ü*ÖE¶¦YU-ï hv±K²^ÀÉqð&ˆ$â`Gü°DIä1ü„lRN#4¥-ÈŽV”‹XÛƒ°(_ÂóÙ²ŽJ¶JÆAq!xD¶( þSÃê…’©¨û0ãÍm=?CŽ€öVosY@- …/µ:­‘]sÎÞ-Ñ-ËœN 1ÑÛy¡(ý„ lSWC±1$Á+7ñÌA‚kµ˜w-+Õ5‘=Á³BçÓiÉYù„Ý»VF,¦x{ޘʭµƒ5©PžÇ¶!1f[_¡eÊ%_a‰zßÂ[NƒMŒGBRáN7É”_™À¼M&0oEÁøõÙw@„Ì{=ñJ÷yøt.¨µðµ(¤}ýî׸‘@%êOr3G ŽßU¾OMÚ“iˆ‚‰è»zd>ô±ÿ¬gºûþuÖr~5Ð/íÂ'ƒ•@h!*§Ò « A}h#ÙУ‘źЋ5QÆó¨Ïð?{P\%¤i‘q-HÍHÑOëA”[1ñfDKˆìIKø¥¶Ãñ§5üµÌL@7Ð`“øü€¨ÜUERa0>û¨)=ÔV˜©Ð!gãY^°²ìžM@¨QWc? "‡ŽU" 2¥Œ’ê*Ï ©xâ WGZA ì@Ö $û "´Ñ¨@ EÌ…)Ùq‘ꡬÉßRå)€) Ömìâ<*„Ç ÇéÐ7µb°ëi0J„´Ú‡*8’ï ÂÚŸ6L$Òîlñ:©Ê_ŸÓwB•$qÌÉЖ¹!èç+0dÓ4AI÷1뜡.ó$•¹‹Þs*öŽG"O}™f„†M«]¡D{Ê É(¶®¼.­š¼®Š$¾ï¿áÜôDTØjTùlV‰r_ÓÓx V‚Ée¤.³!“g gfb›Ÿ]Õ\irQ‘ÔÛd–ï–ø' "ùš%›³Åst÷®mHÕ|tã«œÑúòÓrÌõÒ3µ×0Àm'†&ÔüËOé(îx9ù˜Œ‘¶NU}ÇJÚ'›ÉNv»øáCÚIGAØõ"–wÝÚr”5²(^î sRp“iîþwÚÕb.»‹áF ¿f6SŒF*¢“§$geÁ¤rBØ'¾?{C¥ü Ü-E^iPl8˜£¤Z{«ŒíiŒôç‡øCKê{3À¯xS.þÈÞjÛç$ È¢ÕœŽÑÎÐ.AèŸO“ܦ‹5ܶÌ…MÕÊïÓ ã ÎË=%›!?ØtžÇFœøØÓwîƒ;ÊŒ~JÐK0¨ÌîÿþÃÿÖ¶¶”Âá„%­D]•ÿûãÿVæ ‘Ò2¸CÞÄúHŤì"/âåe(à(wh5oèò$¶*çé"êÇpCa 'f³ªîG¬/ˆb˜–õö“ÏãøਠÇû›hté&¦µä99>aÔƒî´sFæg.gç(Z¦AÚŸ Ë  ð¸Å“‰&EßZK¹„à²lîçqÆ‹u&ÛPúÉIy«Ù»/Jëµíh°öŽ°4Þ¨*i(Éüt9¡×(ø«VÓj9`a†¤7š¥Æ+AKø[­„t±H`¡ÀÃÉtÚAªÑÝVª,Þÿ1êsI‰‡a†6ÔÉ^­&iS5+(N]Cë4 š“¬€I)áðÀ‰ýÄ¿ÎM^t—“Á]Ý#É«ÞxïIZÂÃäøœ©óBé$èxÔœuN.6É7L«pœ`#íœ1ݦxÌÌ)H†bÓ1l:¼[ð‡T r®Ë=ÕX:A¸rÉ´ÒÍ1S6Fi^+æ$ÃB 'u: ]‹\Áœ­ßï…¹9sVF׊c±Jí—H²ÂÇ$ õžX^ã#²$?ñ”° ¥æSS¢ÙïŽÞ$÷²Š³.]ÍÖ°bø\‘z"³ì|·ìBü4ÅxZ+Ì2܉ú”Ð.z‡ÌlÞ–©³.1bt“[ ¤É@Ê®2‰¯[ÁânÍâ-qܘÀbÚP Ã1¡D~ÂXÖYƒ2êYRƒé‘e‡ÞØ1¦&>#0£i1qJ.¬€CŒ; ޻Р¢)l’IX»¾Ê ¥Csc6Á$s RHaíb«5¸±æ¿È`H¸ñX&¨”I9Æ|‹lëçÐLM˜rnË‹ÐåCxqVJ¹ C€:FÀؽGô¥¥ †âŸ´äCo’CY8uµÈo¸‰âÜsÖj›«Ú¨6WÚ* ‰fÊ Tú¥d¦ ÃRÄOåõ\ÿÌ„ÜkMz`’V…œ›¸Ë´ì8Y¨“=ÖXÀ¹œ Så"Í‚QQ?Úü·o0½±Ã¸ Ø[sY6á¹p &.,ÍN=ÐKé°Z›íÀÈ]ÉÊÅ•O…ì©L³uMŠ©0ܾÄ-ù‡(ú œÏ¬ÛØHi‰6Àgtfù‚ÎL=‚ÚÎ2öz¨D zPCò¬û ²I¾ösk”´C 9£†rÍÔudôI`OÙ`¢%³j›@M²”ü]S¹¥Ù¸ }|0Iä7 `¼Pp“ŠNŒ·g¹Z0¯—¾3w$Šn7Ë>sÓó‚‡måõIç «UÀ_ÜGÒÄÃhŸL j4<¾uÛÐaª‡N—«®U²pµÝ¤1|1´ÖÕÛ±½rø½•ÆcsmÅ ë‡tU†m éчñàÞÙÃIKŽ†w¦Éwï}åÚRååm\ÑU/uÙôqœðo‰ü Ã{ÇÇ|E\$£ÁMgÏšt‘ßFçVd3{âÇ&ðÙ¦1@Y…Ü¡¨å¯@ÙÑæ³æáCÏéAWê á P@¼¬­eŒez§‚–:kt`ØŠq†$‰'Õx>ˆ^ám2v=¾¾CG”ƒ Ôp©0ÔZ£$p*Y TVã‹Z;`š Ý‘¿•;3 ÒjK!ÎnêH»µîHC¯!hWÌ~@Ú˜|< w>-±ì5îýÖ ÀÓxŠ¿0#E£ÒTÀÁ‚¹iêâǪ(;½‡x8Ö0}×>ŸãØôf¯~F¾uy^<Ñ},¦&†÷˜Á’=9&ÂFÉèfÝëè%9[éZ{”V ÜF…üv²àTíxÿÍP€Cøœ‡6P*D)Ê{’`x´¤*ä¸ï)×ÛÁÿ;Äp3¾EdíÉt†E{¢å%}IRoÓ$Bþò ÝW¯¬ðc"ÒÁEîR "l‡;³ÝˆlžÎ¸Aëa‚½…`()%-›R\ Ò5Ah)XÙ§×BM¿È§û¸ð÷1µ?õ‡n{ÑÛâ½ßHÏæm[úôÝ»7ïìÞç…Ž"†hBÇàEœpÌÏ^"x-õ\ºŵ›bÔìºbø=›öåa<;#»ÑïQ=x%7Šž»&‹—³ W0u®>a˜´îé¦%§ÜsmrG•~Ü' ŸˆkÝE Ka²¯G‰¥=×õKG&™LûÜ•x¾ç«0C¨“ùu GbC ÔYò Á«Ÿ "¼WѶðO‰ÿEFw\uÿJÿ±O¯zÕæJÃf1bd-ó’äA˜÷QçÛëz¯Þ=ÇFÃùவO–‡+é“{—Iï‚IÇL58ô';s³5AÅfJnPSɆPâóYžãòùŸˆ,ÒçfPÖC7û¦BªÁrq”ŸÙ~‚:¡ö5Ü”e©RbN#Š„5ó:À½žÂe´º`-¦gºh5êè….À=·H?âYµöSà'™ªê–ëz‹Q"÷¾+ÄFÆuû9)—"^ÒR†'ŠzÞ]ä KµRp²V(»ÞgÍ’äþm!H qј YÌT:îœ.]*)Ç”íb‹êr• ÷q°ÛMCúÙþX`”(¬èÅ^Ä?î0ǹ۸\ìšü]¼Mk‡Š¤;£‘ÿØ\5©“v×íoÊÉÞ/óU5Û#ègc{ÚiÙâ›8ë2؈¬¦$kŽ]¸“Ø^~ …a=îÊaY*-|3h¶¨lúÇÏ`â¯ôÙßEo]|P¦µ÷­Ëd]Ï GòG9 ñçøпð/"Lt^ߎ3Åšzä¢E¾€õõ Ø~r–wMƒãq&º]ßø‚ÿ ¤Y&p»’H8>CD2dGDÌ ¡Xµ±œª¦˜§xñrÅ`hÉôŠ@ THHjUUá4JÍT¥Bï’ ¾?‚&m>ƒ“]¯= öEÂÆêéoÚÒbóOZz&+¶ 5tµ¶·Ë•…§â$XHWw}i?è*à¬{ÄÚ6Rðlš­  ùÚ¤Ì ¼.X$S±³¸”¸|]\8cp^ðÀ‚l0=b×Åf&qa,·— £‰-Œîb9;"íØSÔX(«:Ýÿ8ˆÖNoÓ¾ëŽÇZ(ˆÓöÑêË|þ¨oê~S€x“E·0·èSÎâdêÿørF,Ý÷eEçÄCÚS,]¨Cî~/:!x6ß漉˜ mÚwmR[fŠk6ô8þD%oCÒSï;·PàÔ›Û¢ŒPS_'ƒ€hNÁ(Д=܆G6÷½àªÂÓÛ; =#çìƒ$º¨# Њëä2èˈ“z¦nþê)á瘨!„ÚšrÿŸ” ¦_·'¾Gü{a†A,´«›z'EÕ<Òßa²÷•‘')s…„p6°¹5^¯ØäŸ&ChЋü }7¬;ÓŠw² ¥FuÛ|BýÒ‚ø1O”í BÄíPúHç/"êáQ¯_b´o×N%™ÇsÆ]É{ÛeºS-±m7/œâaý2™OÙ¸XíÝçÊð£!™Pìhgû»òêîÞ^ÆTÍý–¸ç°Nj:Ê‘ê%ÃÌa^yÅ÷ê%÷;%-­ÄÛàÜl¸¯â¬’†J©»jæÜþ>3ÝP–üŽ³në]]}l1î  ïa¢ ®­ßBnS%uäØ¡žÔNK«9ðƒ½Â^ã«&K¦S¥ÒÀ…‚¾ü6JQºzf s4{"\þ’± ¶öh•·jDgfå fݹáŒß·¡ƒ>i™­ Cs&ÖˆåÂkÈB@¶i¢jš÷¿Pnrœ—ú¶¸î>‚À1ïX'Xé ˜ë´WÄñ]±Âê ‘sÜÀKB†mp¬—*Ø Ž8»tTJcôôåÓÇg¸hkø7–ÙЇ?×s‘OBÌTêÓÖøÔÛì—wA þÕ¨óå^u„ÙRBë „p}ÂO9%\"áQûÔ#Ò6M… ­ÙS8©[RùWMJjY?A)ñ@Äë©üCç x™_ 4ø,ÏZWÚ8ß Y1 Á yã[¤™§Dò’|Äh¢zi§jÆÞ %Y…QG.êûiÙšµØ•ÊóqÉÙ|Kã-áä dúžåWÝ#£™sÔ؆§ØŒàlšÌîÎLò'j/8Kª1°™˜´UÑŽÖú*ý˜f;Ñÿ# Ò9hÈ‚2´oåìŒC›&)›´ ÷}@ë]’ ÅxŠϸáp¾Þùóytî¼ØÜÀÇ->çÇþãu~åþø þaËâÁb|S ƒù„_ä\p¤À*gCP?€ÚËé&N‡ ßQpü(°:ˆ?+=ƒRàj¤8IL\IH!] y3›Äñœ%kÏM'—Ýlƒå1-Ç°oáІòÚv`ìEXªÃµ»sZQìzÁûÏú†ŸFû 7;S±zQ€HÖâG¼x†Na|Aè½ZÙVe o÷O`˦%¹Æ½ã•ó·Q¬bÝ„ rLù[•,Eì©Øá­˜ŒSdï £b#&ßéóû?ê[¦(—ˆŽ+!¯E(éÐ…š{~&(ÁåË…$Z¬mÕ¤4¯ÐŸÚHM¥c:%2ýá!±ÊèåÊ#hGîÜlØgþ— йòñ%:• hO4ê+yþÝ æ(‡+Ah¼– 8k£r²‹!ZÉ4Q÷N´S¶­"ŽåZ•3õ¥àêÑÓï\ñáÓâb3§/h†.reŒóãÃyÔÉ-ÿØ¡LDˆÙ¾6°ÐêhçŒb iá'dÇƇ:ÿz+èDý”ÊÀ¯Že-áo«„X¢ðöùèÚüØÓ<˜òñ.ÌGÙ7­B1]ÃñhýÇ_þ¿Ý½¾c}Ùb‡ßÝúºvÑ軇]ÞWžCz ×éçþ¡æOøš/xË»ût²e»U›Cº–ªXÂç]PFßG©¡1žøç0{ïÅbM±Y«eÀu¨¡tËãÆYÈ#šÏµd¾ =>8}0Ì5OA-­ªb|^_ÆëÖÜ·,ÝV¸–0˵¹8þ¤¤ùEĉuøŸ…ìw˜DÐóháØžWÁÄèÍ’xÉÁy Ó íýd¢¼.´¤Ò:„Âx—Œô{' 0`F˜“`— ‹ÓŒÝ‚œVÒzÊV)ˆ¾YÙº Ñ2q~.œŸcœºu¿mAhÐbåêPk%âepþ{>7@f­XøiUÞú‡H|^w§a@à‚[ø qÑS³d“((§Æ)н”u\%.¥øYà·c8@ÿ7i5h*è+LnÝê¢:™"ñ µ‰\~%‹6&úñ‘á•@8¥¨ZìªNÂ/û ×&@KÓž]2†à*N1s\—¡üƒ>h<÷ÅjK¥ä…š$˜2Ÿ¯ ¡‚˽Ì?µÙ—˜+üPo/ÛP&ÅAZÑ:b+€Ðê^Æ´­LŽÁÕ€›¡cÖŠÒ:#cˆ²’¤Í}bÑ{‚j°Ã!”k’•Ä#Ø:!á×”R&ÇËžÀjÇÔ<ñù]›»£rÉ×™îºmdN |öðÿ(*`çýl-ëµ$IMÉÔÑ1½ö‡ af 2ŽSx¸h^d(?Àþúšè<4=šé“³µ®»K_~÷øôä‰KŒ(Ye%xˆÕ¶ 1‹HòxYKi!a‹IÀGMÖʶãŽM¶§é=ÒPÈS-m-Ê rÄ¡†sNö÷þzüý¶cð½[ìv†I!U;¦aÏêÏŽœËtB˜'…ÖD&„€É(>1r}9cd‡…dથ}£ç¿)Ì.€4Á%X¯™?()úÄc‡ôUÔ©—ûU¾ý4úÛĆ JœãMï2Æ2ÜÊÍs¼cù0‚팼ÝôTít“ÐUBFƒ5Q¥§ü‰ n‡N,¼ÂG«r­g'Ý°a¼ /_aäK™ÂJZ"çž öL¡6ÚHKaÊǤ_Þa “X ¨\?óêBŽXÕxˆYÙAúÜ®‹ðt–#s<ÈÓ·‡Ç{<ƒ.Ykê9×ëž6EÓ*>•AºGþ”yáBS¥(+,PÌòž73‘,Þz¼…,-ÚfUøìÀhÊCJÚ+qìYºÕ°îâ.™}¥¦†XºÖ…Ú•¦™è•|oAKkÅ-mö-EÑZל'†™ö’‘™iÌ¢ÎÙx¾OS KÔ¥[ $lÌQhÔ'1Q(Õž±H gäi>Õµnfa­?šW(Êâm#3šWÇÃÛ(7VIL4Q𠬱á*«¹_^c¦ôGɼœÅœ3T×ËчZ͆ùÇa<®.i0(§]~ÉJ4«,Ãh*v=zyÂÁ¾Ä\ÛŸrN)ÉR3}–“““b/K6ÙkÉnW™Q!a è5¨{{Ï.O·¸[âØ?E‘c€:3+§1&ÓÆ/Ú·,=g Þ>×5î\¹}k,‹˜À˜RE×Ä@ÐBŠ¼Ì§•£Ry}õq de±Ô=ʲ“Õ¸"ù-rÍr/ _xë"DoN4“u'ªå祤,¡?ôuá9)½4®»žö’--]Æ¥hî$8¿$†7 ¬Ræ"mFccY²å7IbÉ'”f„8lòÙÏ4Íàµ&™éy7Qê>H‘5€ A•øãE°ë›MΕ?Mvía‹|ð»Èf'â1W‰®œïß5—™IØûú¬éâlüPŽŒkÀ]¾Ã–„:Û6>ª ±i*X.Ïa2î‡:Žçhàý;8ýqY* šˆâøTeÊY-UàÇBÐÓ=¡¼[p’¥ ŸG;é*»äÄp˜áÏ;oþ´ã’_üŽ_D.cNWœæô[TL™Wü•mŸ3DPö¨³ü9.†ö?ÝÇ%hs¼ûõoðµsºË)â¶ñ½n’¾³†üŽRk"­›‡ »ÇMÀAkEp8£ðÛ—Öîiw&I£CþM*··Mö,·ïw4̾]vPŽ¨2Ì=ÐÑž]b©Ni5_ÈGøµ”b¾…³>°¯­äá?Å¿ûúè@Fv=èlè$»¨fŽµ„!:’±…ç˜Î¸ú”Æ,âå€ç,žsBµÃ)8”Öõ»ìÇ”ýì ò*8:ôЉÎN´ß‘ñŠÓ¬2Jçʸ–‚”9Î$l Ñçû‹x|!UîE§«ì,æ  f©ÐGN|¾qÅŠaèA@Ax$ž4kÆ*² !b“ÍsýZ¶ŒcjLÈ8g”µêÁ{^èÄF–Õj:MC‡%ÅýHMÎt²ˆ'Þ¢@Ô¢â/»„5lI+xåiX-@[®‰à¬9-’…=×s“ˆºLRPË€é4UÔ aþ­œ;Šó+¦Q곎*£&Ì*±Å£ÙJÙ–ú㸀c°|Îþôz©¬÷Zi«J¹Ÿ ýfù5i‚È N–}‹袮UB|Xž_«MP¾N|Z5ýĵ}Ðÿc^&ËYtÏ«¡;ñ™ÀO@&ŽMºZW9¦JŠ¦ëŠm|"|—¥Hÿún…{UÔ^+Ü—ìZ«¡'iÞ$Fç¡h•ýÏ,cĤŒ]Ò4K1‚RÛ^›Ãä%2z° ³t‹ÇÏ•´á¼„Ã_#˜ˆë üO4n¥,ÞHèJ»’Õ[’6q¿óËʼFC`5£òŸNÒ:ä•S¿Å'ŒYCEvþ6¤¿R.¥©•!!Dê'Ã`;†á2‰ÄŒûŒçÒdo÷Á,÷;4 ¡q|Ðt ·S²ÕÊ(Æ„¶"p–L:˜å¸V BíS2Žp]Ò,œ§+¥,C»¦_úz«ú½º…e‘‡€²7{þƒ UpÑa;°·ëÀ$0ƒ2ep—ƒ&Ó>.šbʼnԕŸí*'æḈè¯pƒQº­H€±[HoÿröâÍë·Ï^D*µ{ÑHKämýºˆ±ÿ¤´*߀DOåBGCñ¤ÁjÃå¹[ú"ÉȸJÌVš]|•ÎÉ>x±B÷wrQóÚ“‰ñTîtxÆŽj‰Õ«’ RòúÚüâWAª¤Žƒ3ƒïs7iè–´·š -HRÊßV òÏÑðÆì5èXÐÝE9\h<é> ¹S±SI3—pD.1Cª)“yÚѺ9l–\[<±‚P˜P! ê"h¬cõAø‰öõª¼›±žqpaR´±ò £í”‚Ð0‹£;岞¢/>1]ôX¬ÉýŠ¶|Ç# ­aÃ#.z:’üáÏ‹¼éŸIí¡¦LÆŒz½ê³µ¾Ý¶X³¯Oæç²Íˆ-†-ýÒÊ,C}Ý·™¤èc ëÀÝËI¾Åô%÷‡ÎCHºJ@E%ûeU20iD'Ã5ã¥f)l©bŒŽAèîÄ#ÜHÏmžL¹þÞJð¦æÙ,ìîHª±ÿ–q¥ö»mþⓤæX² “¢‡ºø¥KžèÞ÷âý.â|S"žæ$Ûw*(nL qXc¥vȃ2dž‹¾ASÊ·(/ŸÃ=ƒï?ˆxŸ|s@_wZn@w–-×<þ„F•ßHŠr„Ã&e+N–.ÍÐÃ/‰‹ Asÿθ<<„ÍÅKÖì9öÉIäíçE¾ZîbÐÈ…sì*"Ø]ï$òOù”ïd^ºjG <æ•)Ý©æYSÀÝÀ»ã÷7°ƒÝჭK¶%9 EkÃëNE ´8ù&hà nx³å½.sëzi„àžt1pÑùÖÓgAsBwf]$~ÅZï G6 5X?uvyE$Jý*cœc„ÃÊÇ3¸Ë”Æ>¢t:¦ô¶™r ’ÝÌêªalÚTÔ=ÇœäBþP܉¼Ï9ÑZ'ÐÕÔR®ó¶¾Hæ ½ŠŽŽÓ•L›Ï Òà~ð¤^'Fê"fÑ®]“O<ÓWS¹RæÕ!!ã„´»„@e¬²;ÃìN•,mlƼíð SbÂ…×-B]Ò2éCƒÎ.òÿd_£­Šl!\ß9,‘þîï}N˜ãÛ¿g*h* ¢Ýç”ç ñS‰”îišû38RÎje A«ƒ¡{ðÕ½ïÌ1Ôv^v›bÜð"{âÌ+®F²Çá_œ¢j€cÉÉo/ oÑÏ9!†)xýT÷ÛäŒd ¸Î[}"HEU-ÐÉÉš.ÒéUú#eQ#ð+8ª6Cö¬ª–÷®®®†cŽVéj<„Œ/Ò}XïWÉ_íapõýàé"ÂÙ›gÃq>\]üŸ,Iç#}þæG†XùÖ!|Â6ÐVƉƉ7=_LaDÈ¢Ròt½%úFþ`ò åª%¢õÈ÷ÇL­0›×N›“9Ä Ó…µÉZÕ”EœlGNï^°5<é qkúÐ8b\,ýÙÕqz”oëÉÓg¿{y=:yýääõóSµCIÐÄ|¸\e­„…µÈaŒIÁÅ™iÛ®fz/’| OJ„$à[ä#„‰¤rh^{ö…r5Z¤Õ~J|<ðŒ >5¸Žô#—(&lĶ,Ö´|û va²È ¸HÌaO©[³ÖŽKè„©H@ 2§ &¥ÈXÈ)|<<>Àoè2§.v§¤îàuKeÅ~Êw ×ÏYÞ=Õ|X½*ÙDÄÌÇ:€<ˆ£¨9Ë»›¯™2 M¨ùQWüWãþ0¥n(#^áýTÝWÍäq´fÎ×<‚|U[€9à7×Zº¾4ñ‡íIbÈ\ûuÍ6¨1†âYxö˜&AÆh·#zÅÙÃQ.ê´ƒs˜Åù¤ìï'9ªZ…#ÃrŠ™ÎQçl’™³¬'5Þ91WýÐaÆ`Á…ƒ0À4ªH`ènÛƒîœnŽóóÔXþEŠà\`;Íùq…‰VØÄ:ԇр斤ÊaB%Ct–  •KÂá©*Ö%Uv ˆ’k_;x8Ÿ×p²!7TA ú|aˆÜ``ñОç1å²)ȸIDï}¸1'‹¹é‰×Œ†—ñìF&Šo*RODèãn¢h¯‰"Ã@.¼„!µý ¯®&*Àd¡«MqÅj!5P_VØèZ5þ‹_­´† äÅšßÓ]„ÂÏŸ¾üîéîÖûõ$ãf𲅳ɢì3šÇ³]QäÈÆ™`ÈàÍYá)K†_¦ÖQ ý!ZµøeÚèßîv‘e¬›)g™¡ÇâC"9JPðá5!¤Ÿt 0 w2eTá£û„µgäÓ¡Ë¥Žü8§Xð™–ÛP)ûÑ4}†ù.ZV«A8¯§ÆëIîlFÕŒÞ Tt,ŬW“±:t¿+€‹ 1D‘o5sÝV¤½‰K¨ô:‚e{å MÿA`)¡<šFhÂ=Äæõ™Øk͸™—‰o, <¡ùÇSðù*ä»*j"šqÿpxÄ.DnEæä³íÙxicèR‘ R?ÏTöÁs"~têUdüf™õ”ƒ Ú+c"ñn=y%s…&š…ÉöL2mA¬#øei-NÄ°ÖM5G³JX¥ˆc³ ÆÁ–ЦE ‘¥# C›w=nà›Üõx9ÝÚû¬+åT™ŸHÐ3v 4§‹O¤ cë™"fLCIæAÎ ïCÂN³*)ÝT£ÁZ^žáßuw­üúÖAsgПVAZη/x€`DË^ÀÃß覥þ󸙣Ñ] v~7¥Ÿ4îüŽ—ïZ.åÏ$ÙéýöpçÎQüÕhä9ús:¥§µèÙQýœjkÙLN7¼({Ê3ëÑäõ)Ò¿&„‡À!0Ó÷*N±d,ù\2  [ƒØ@>ï#I&­õÿž‘ Œ-QfîQ Ã&ÞP³"<ÍÈ@•d ïðÕàIJúƒÌ×’^›U4ƒ‰÷>žƒ€1±Iû’f…ß|TŽI« UJàýݬ}ì’hh{–¬Ÿ!)®' tá€Z,¢–l'ï“8Ÿä››S¥8q®Åè}œVÏòÂ%Æ~¹Z×8îY–»Ô&EF n V9Õ%¢ËÞ/†ã¶«ÿà÷ðâï)m6ÉI¨¸\¢æu.ð².-ÕÁÄ̇‚Ä¢8ü¾6uª`~)IŸž€‚S+WK²–krŽý21V)‚Jò©-9½’aY 5­Ä¨]Ëåa>2#+™#öÑ,òŽLu¼—N«d žŽá¨M$ÙÂáð^›™âø¸EÞe­ ¨– „숕wÊvÏö c{g-ÅsE9FI½†Ç@àÔPEz¾/Ñ5ŸRœ×™6’EäWa` ,zG°굃G`RNžDÇwîÖ&¬ßy#3©@æ(Þè¾Å8K[¼& ãÃã©ŠØ: œÅÈ£ËÚ\¨U)Ãjט»½Ì;à&³@éL ºÆ(¬£%¡–‡ˆ…nó’ÑÏz°ŠISAP5òæP?wvV¥Ïà = ’#RP {wl£¢Úí²{ 9BóÉò¹Þâ¡P6õ÷“Ú”]ò4ê–R>ó]¨G>ÑrL˜%Ó,."N¯å³Ã5–0v° "êÅÀd³| æn†Zâ.=¼lÿ©#ôDòÇŒ..ó*£‰•\Nò—€WÜ…ãi8ÝZJa"!r“xRÂJ2ZÇÍ ûm…kQó^ —¤¤wApÓ• .‚¥àˆ*bæ@‚ÚÓ£|¼(ÿgé¾ !fŸi—JÆClWK[;î@I£ã÷º6Ñ#•a6%u8ÛÓíy¢ˆØVˆg&ÂE5YŒ‡Mó¼$ˆ…3ã—ü•‰QÁŠŽàQù‚­ðÄÓ¿s8ˆðÍxW×<ïÄw—Þý]ôÅË0 »ý$Ï„‹8fêv´tÃXàËN¬C©è*^ŠÁVb”¸Ø§áŠ.õÆï\ µ烊]"›¡ë,,sÊgF}pÒ7æ;“ûjö3~›»oMOtDøîµÂ{,N>³³X€²l9vôî¿ò“kø,D$eâ©(‹\)ºà¾×|EY(ôoÑíb“!‘ŒG°€¶V:k;ùM'Ri©ŠW)öÉe ëduˆƒ“ëI##¹9ïX—š”ñoòGCOË9FnÞÁឥ wJÒß@HHNPñ—p„ ÚCp¬tŸh€÷€Qî½HC£ñ®†Óîí}0D`HPæ F¼è:¦D:4ݯf”yÃ^‡È Ì©âˆ2ƒ¡ ¤”bI7#3_3=µ…ÒĤR ÷ £dN,Ïâ8–"&LmÕÃ*]X‚ÅÒšÝBÆüãR„Ë£§ù\$èáxÌ_É+œ¬!0{ ÓQ?&EδrLí6‹yÛkhïµè8ÔçíÑ”–‹~=Ãþ g•^Ct¨t°öÄ‹#£kÒ.”ÊV¨»ÐùÈ}ÔËé6RÄa×î:C1‹^·ÓJF‚f²V4í‹ ÑS°kʸAx$1" ÕH®\N-/ö3t˜3Ñ( W…X¸ˆ‡P1<²uÉã‰sù,'¢“¹v|{å*ÇÜ’~ñb1z îú·‚:ÖÀö´ÂÂÐ|¸¬kãÅ$ô‡»Ýá1bt™¦E”J°Ô •DÇ!osæKè³¢ˆtŒVH’Œ"g.–’S´Sg5ìÄ!eI•dÐdÊqk„”R ²@#Ä®(JŒÕ–g¢Â±LôÇ®8¸ôÄtaaÂÈøFs¾Ú‹\8‘D#NRTŸFG2œM²+ñMf#iy>tué´‡î±÷ ±2?BøR8vÞ@Gvè{‡~Àåk†ˆñÂƉÕØ׬Ž€Oâè½`Nܤ¤Ágˆ¹H.DÓ­÷G° òºI—ßíZr •ã!(/±Ó.jŸÚÿ Ü!ð Î0~ÕÇQ®¦íï8+)w~¿³÷ýž¸€DÖçåÀÑ'¯<=?±ó*Ùé 믩ø ‰¡y<2Ó±¥ßÏKÊHÝÂí’VÐÐјq1K£.çÑ"Ë£åß0Ö*úpõ1Zÿ¸ÃoâŽ|‰hr~”ìs¥¶<˜ãú÷›[Â㥮¨!Æ@»®¢~¾Zdþ·î£Çðl-ð^+â|xÇÏÓµçK>ò%o++ÙÌßV ¢Ø¹„›…øëYôNøé蜦:åóÙÅG©¨™²^ƒ²•“ªô¤c73Úç5üWU!ÀW?4…²ÛfkÞ-l¢h»‚»Ìà‘ØR çA¸(¤ÏÇ+ùìÇÊ5e’6;d~"5 ÝÀ€$Áà@Ô›LÙ•ôp&7S›¥N/•á¼ÿÓ}t"Îqt+ºÝcó|Ó•´ò-Wp{?|øðùó/^üËöAÄpí“BH‡ý¾zÇ«Ësè=®Ég´Ù‰*Ž6­ 9„'¨øP„eD3³¯áyrç$JJqå0—6ˆÑì4K.°/0`qV4 AÉf6ø!>ŠÛ‘¡òѯ–Y' x™‚¥wYG䨆¶“Üdl–bt…Õìh.}0j˜]S¤ö<ŠúFA£‘ç[“Wº¾á^­‘Z.—–dn"r 7òt¥1e¬Ž»”çmrïG6E†‹yý}ŠTÌo]ß{làX„Áå)ݳ¨gð“œGÓÙM¥e}ÿì¢^U¬-ƒyc”BqÊtÿj<›dxp& âüKLÓ8-ˆv E&J,z"„Úl3:+ÄhW7”Åñ(}5<¼/¦c²Sº:]ê5Ó‡sÓ]&ëQŽœ/D,¶J~íÄÕ"¼n¤ÝæÎ`iˆçj¤s-=»*1 !ú*]=ä'DìºãÀŽr6ö€a…Éz£ˆÿ”#ÁH6¤7R­ApûRÄ£·¬rÕó~8û4ÚHIçVïv`ó‘#^’L¡„šó7ÄMYc—Éãj–·È…Vy2S…è&fÑëJ9Bqž2ŒðA´»\\Ql\à:øzø=µ\†¼=ðI¹Ç—ÄW;i’£&Tó®ãuÂ=JsчáyŒˆµ× 8Š'ù ÞL>Äóð~ä‚&’E*.ÈÅâáëç>”V_6 Ú¬Mû4#ÐÀ"™ìš'¨x‡T{vDør~Ø6‡»Léָ˳Ý&Ã~€9–ñÅÀ»ôÛ“ש&3öÄ×çB5Ô³¿gÚ§óÁë™Ýt°Î(…¶,óFØX㤥Ôî‡4öèеöNØ› £{Œ­²œì‹b‰µŸïÝ0—çÖV$^g»^ÉÂ#£uÎAôççfãØú?Bo5÷—Åî2™þw|¹?8º®=¦Ã—Áö’ûth„hÜQOç–Ê6 53—’ÇÆ¿3á€"ýžv¬_mŽ Öú¬–Þ¼{nr~ý‰3¿–CÌŽhËð9í|Ì.¹/œPF·Ž/¸’ÛB@ ìtI‚²›Ó+cá` × œ|J‰}<:ôЋLÔe'K¾òÐ7¨ôǤâA$8sÏQÅÈ”O´"eÝ:æe‹ÔC@ &HXqʵ¨%ó²´ö-UïÕ´1±„´œQBkê‡?ÆDÆ­#w{Whœ‹ d®dÃ*‚¢³Bj8BS’&j\¦ŒÆü¨š–Hh]&Z^|®U—†Â€£E^£7”ž¤Al[\»@Q±¹>ýwÓÌß7†ePËĹ93˜1aŸ½•aãÄ6†_·F:ÊX5Ÿ›ûÑz{”‡HFÚ4eØ;’OZ³b?™Tˆ,E¶Wu.ånÑeËqE¾xZ4×aâVÎÌ2ÆÌ”° Š‘懘 P˜Ø8¬;G§12X'9AÎ.“¸‹¶kŒÆ&Ï Ò Ê@-–Kf6~UÌ fD³’3‡J[dXÇÁ®ígñH*Ù CV—Õ¾Zø4³Ü“žÛ¤O0|ît—ÉwŠd“ÄÔv¾®Y• —œÏ.¼—%;û;^‰T_ÊntÉÐä™ëyìJ›”GÁ z^yà½ìàaô´•¡@á„Úb”íÐ^•±dˆ<.dzËŒ˜L¶Ø¥Âüwš™®ñÂ>t½ó%9ÞÙÇÅ}. ò®Œ •ÞÆFlLĸR6]‰PügPüòó÷üiÆ:ŽŸÏº9þóðÖÝ㻵øÏ;wo}‰ÿü9~ø øõÄ2ÿ‡¬ð_Jèg­QAÔg„ v•uëèë¯ïíÿ¾ŽÎ’9’tÀwÅ2g^úèeºH‰çøá ¿›§qø6Ü&‡ûð¯ãè]B,ÏÏsP(Oóiu…Fö·Õ:zYÙ×­ïý-f (K±¦¢r<¢ìÁÕ8Eº-ƒ@‚*.˜À’ú“B²ç#MkSWív©Õ÷IYæã”ÌßÏ– © (HÛ¼³'\™HÄÍ ­ëŽà1ñUCä‚Šïx¾š("6ç8n<„9[J®µ– ,Œ+À¥G]\®Fó´œ <•z‚šÔ½Z¾(\eB¤¹HtH1 šÉi¤—Ãñ­dÄJ†á-™ëû¦ d¤šhp‚0oª÷ ºËkq#LI¤¼ogEW†zJ7FÄ‹Z:ŸqùªœQ‰¡<Œ,™Æ®‡7†¶ ÆJ `ô'0}NØíÖqöâitúæÙÙû‡ïžF'§ÑÛwoþ|òäé“hçá)ü½3ñëìÅ›ïÎ"xâÝÃ×g‰Þ<‹¾þKô§“×OhnžþÇÛwOOO£7Wo_ž<}2ˆN^?~ùÒ1FàÕ×o΢—'¯NΠܳ7T§”vòÞ{†¥¼zúîñ øäᣓ—'gDÏNÎ^c±Ï Ü‡ÑÛ‡ïÎN÷òá»èíwïÞ¾9} x‚/¾~óúäõ³wP×ÓW°§Ñ ð>ŒžþþŠN_<|ù’j|øôã5óñ›·y‡¢$¾ÿâÍË'OáóGO¡½|Ê5B¿|xòj=yøêáó§ôâ(è=ÆÄ÷ß¿xJŸB­áÿÏNÞ¼Æ1züæõÙ;øs]~wæÞ~rú¶ù»“SgïÞ¼¢Rp„á¥7T¼úú)„£N<‚wúÔ•‰íMçÉGÊ„‚ßHJ-ü3 ´G"F› xmh# ~š€¦g‡XZGÈ[èM»Ii òÚË…aMzžs?dý-aîÇ’™Øz¦çߌ¾}™£O`æŒ}«Q,êÄ­ÐpjÑÐÞ6³G·ubnÛû­»½”€L.04É;R2ºÉ¾ÁŠúiu4Ì;ß>—h2ú8™`-4¦B9Úí‘j„¿¥²ßÒî@uOÆ÷™›Iq˜0Äÿ'-}âH#9}_&,„ÒJŸã³4` E:ÆE’Úþ,â¥Z‚kƒv6^Ñ­èýš±ƒÊêÉáœ>C{ Lcì¥Àwš—0t]G¼F‡^ ÙþÖd$±G›‹ÔýM$5ÌmÁ·ü—KxááÂJB§.4èsš«ž«Bj8?WùU>É¥ð3ø•b hÔ)U‡>åˆív¾·pm}¦®ÖSè¬7ë`è¯èy((ž÷O?b–ǘ@ _ã³õô¢;`8óLÁÕ}‘ ³¤Â„­ï kj:M‡«4fùÁÿ™-ç„K›W¤øí|û0ú®¤TKȧœÐa)Ðêýí>âc©B †Š­`ŠÑÊÃ$äzì1àC…<QÌ›"CùoÅ>µÄŸÓÕ<‚¢Ñˆ¸œ9Ñ“ãU˜Èz=úáÿYô戊³UÂ÷ï ô™¾eWùK8G*Îljd—’BàMæƒðcõ¾&êÓyvu÷(s&?y°* ÐuFÜ L8¼|@w1=ºIÔ±.‡ØÌôc£‚ÈTðøþÿxË«¤‡¬"åÿ`Aèørýºl6F«'#`Úe¦ÞG.ÖÀñH SÕyõ(¶Xê¬ËFŽZ‹¢×.ͱšè­SÞï5ÌW„Fî'ѶÁíñFŒ° µC(êCqÝGû“¶ï÷zئ/%‡IS3ïy—”­‰E¾ˆÆ ;À­4•–[ÆSÏ÷Ö團NéÛ¿œ½xóúíó~¶íŠ«™?ÑO¦JìH-ô$ÛkMæe¢Ù,ÙäœïXŸ­ˆæK+okWÔÞ®`éÉòÚ*âD¦MJw#Žìúpx‹EëEáyú{Èo¨Ð›Å¡DùuÜåÓÜWL,×ÓŠ8!GN@Þ“ŠÖs*ø›£—`;óäà𕈅·‘†ñ Z‡´—O™ÏÍÑ2v7埵’– x&L¾‚2”í(y6¼ilôb¢çU"RîdÀ'¼&ð×6Èeòžn²yÙm:z•]…=¿7™Šš{C2@UWèˆPzËòhw ‰»Ös<œtšÌ±O ’× ž½¼ª\̶ó;7 pÛ2åkº,%¤Šâ1|M” íé)Y2hþǘ¼¼×wb¶ªü~-SÆηߤÍìé·|•­b&VX}„£Ïof¹Îa•2é'ì:dcóš?àÄxñÂEø!1þ "m‰Kl¹Ha{•LãAÓgk¼?Q¤ &LÌæ¶%õ¼˜Z+{ÒJ;T …$V#¢‘¤þòŸááÔ)a‡>ï]S'Îæa€ ‘¨Æí‘ãÜÄQ ë*ÌßËÇ{ܲ«t½³× pÖÓØf% …óò©‹IëBŒÃX5…9Ê(Ío™•À¯òšøØn:ÎAÊ£9û´-Ø ’ _ÁÞ þN›´{ÇÊúÆï°Ó툺]DËZu³ÓAðyü×u,¿m,ûNçyc ÿ‚¶‘‡Ù9™ˆa ëpy2åˆçiµF¥äC*Äþœô˜yÒT†ë²¼ÐosÉ×x°Åó¬RåªßifØàqlÚ‚“qeÒ‹d˹æð甪ºÉ5³ª$—å‹‹ ]`œœ œýW^ó·UL§Cm§Û[‚‰•Í!(|rÛF }œ"$‹ Fšm.a*–EÊQ½nããÎ[³-C 'Ò7éÿDÆTñâh8Ž”i{ë‚à«¡§<5,ÛÂn òµKµî9|ˆ\óS‘À ðŽéà x‘Thá©zX™zܼ£§#õÞ".gœeCµŒC¹¼ÈÄ H/)‚)Übë!OÚ0`<ú«¬Jéæë!P ‰äIé+µ»è°ùßZß¾îêÇö ¤A:8ØÒjï#)ˆ‡“zÝýq‡#}ŽæßÜ\·(÷-$/) §kgr#ÙQê—cЧ ¢{†’U E¬{›¢×óÄRj3·àÅ5Âi™CôÆ&ì”„Ç ÊrÒà“Šìc"CÊ_*õð@Sȧ½º P·®’Ѧcƒ„¾a|¶3A$’.’1j(JÊÍ ]á¹Ç0Er×ò)æwòOØÇf÷x‹È&ËUªn‹ºŽ§1"»<Á²2¨k´5â¦À/F~âé¬ÊžD,lèsì3ÔøÑ—­w$\Ï­{æ9¹•]ÆáÉyÐ „ÎòXo'e.êÅ àà8)à‰ýÖBxˆq<´¾Qñ¡¯qq™LöÑÈÌiS9óTÆ-V$™ÁúÛ ‰E¥ŸžEW§ ÃœÀ_~g·¬¿…áWebßÅ1ý¤ç²ž¢k[T"½ èÀã$ÔÁXncÓ9ñ'¼Nꃋ›AOµ2öÞŽŒRˆ†Á [vÒZШѓ¨äÀ’«ö§¡¡¡e1®Û¢?¹ÕøI.Ž¢'*’9RÌa PåRýãmÇ;¯$}_U$lÔF[Ž\$±§úU;=βYãžÓj FxÙ*êjÍ8ÍÙUÌÎŽ"8œd½EõÄòö#ï•@S>qˆ¶¾Aáâ›41§X–Ú:¤‚Ž¬tê»lU#çôRò¢'äHÎýU\dÌ0DÇ]Ø3ÉÆR eB’õTeXã1^5FœÈî®õŒÍGG^ÆAµö }¡T‡™Kò" uç#¿‚³á‡ÅÃZ˜îÄæsm]ÝlÕí OnJ³Z|ïîw[hÍójŒmÝEÎÚÚü¶·ø€Æ†°€°Tþ²7<¨Oz§mmZ"‘Z‹LÝ%¤‚soãšÒóI®ép¶N¢''§o_>üK”dÒ"§|ž=<^™ç¤L3¶Wp‘%«æì—0£KMRè¸é/{Ÿ’]°0{vÉÉMgtq‰Kz¯ç¼Ö”f3“0 ªþVA”ÊÔý.cʳêWhx‘»_2ʶ^¢mHÚ*@Òz; õœyä­ruqŒÐÔeð)#›Åú¨œ?]wSšõ&9'òÓ3ucšÚŸhˆ£L¶½S“‰28hí¹¦™¡`X… ¢£6%E%δD—²ꔚ„)¤y¹ÎP-IWIŠÎY ;fò%[uœ»Àì3çg£~™˜Y­ƒ’Ç”¼×AÓX>š£ž¡ìõÙš¹‚‚FHšûXŸAΞ٪¨Ä¦8ì9ÆW²dq®2m”$| úÈý(Ò¯9Ž¾Ã$|ÛÛ9Ùõ‚9í4ô{ð$€AÕÿ‚Üè‹pa¸4Ó¡Aj{B°©s´GÄ.=ƒLÂU^ˆVBhwËè‡|´mâö˜„×a™XKgü>®;T„ÂBìIkê"Zá&t:ÛÂÃ1.ÜyPìÅ­ÍÀ„ºœÛ{ "—(Þ $ÀT—U>G¢%µ1¦ÕxÞs€“r Ž"­.w¾ý+’,Üï©3 Q¿ù"NæÑ«ñË$ËbNöº¥ Qµ4Î?Uú"AðŒ¾›ƒhOÔS¡/“m¨Ç…ZUož• Ì™ÎöA$´ÚË­[Fz³­€И"ŸÃ¬BWŸÅœ±|w3‡ú+¾¹°½Î €yèš¡e÷™Áаbõ$ÕÝŸã é{ç–"šÑµp!ÍŒ¥OØ°ÇØ•w9Ìï ×¤ð´dÅâ’y·Ö‹ïÕ‹7Yª¸Óðýºòˆæžx*W®æ?ÎÖ—œ@4½ ÚºKÎcQc)èqJbu¶¦E Dh¬˜åAx£PjñÜïõžÄàZXŽ¡ƒÞ»ÔèQ2¾Ä¿NÓ‹‹uôÝuÅj9èѪzœÏÇó|u1ôþ˜x‚?׃Þc:˜Ëè/?&TRô"ϧUï(»ý–V’Á+yߟ¤rƒ"/ÇðO°}çX嫸‚ãöߟ0_Ë ³Yàvü,«uqzÏà>)ÒËè%H83WÀËõ¿|^ijxQ)ÉU9è=IymÅp«cñ~«a£ŸÄYŠaâÌ $  Á0sXžqA_Úb¦Ÿ23ã†Îû#7Ï 8%ßÓµ6NÜÚh­ÏAžÊ ,”Ká;eeš'›d^_MZÐpšqb¤Kæ‚Á=1µ2œÁâ)N@Rl¸Ü°Y:­ÖΤ ­x…®Õd‰F—x™Ïó ºz§>UOq‘Ó6–‹+zë% X,ðÁK9$Ï µB#eÇ@yê0ƒ²wáŒAñ‘ìR[âpv¾­×8wãm(óN! z‘ƒ°Æð¢´;‹<Ãè›ÆSv,Í cÜS©h fV²—¸í‹¨€`{Ë Ezl“XÜœ;ÖgíÏõóæ÷pÍ/#trÿ%þ+QU|ùù;ü4ã?šöèŸZÇ–ø[·êñwoß;üÿñsüüÚâ?Þ.º#¿”Ímüùâ@Húa¦æfóY¦Q ˜ÙüÛrér51æ%ª?Pƒž±š?MF“] W~¸ ~‡ÐÅFB)‘ÞÙ!¦ØÒcš ¡zÐ Zä–·“ÉxU)€:!SmàÄΰg⡱9ªSÁz£¢·êa5¡‡¯ê¡g °¡N,kC»Ñ˜‚Â@ZÀ ½0š©ÅsÄÃ":DþŽ„² ‰°ìzq$”ó,‹a;0¸Øòn•ÕÀÑ>* ú #® ƒEU°Uœ >Ø%ˆ [d‡º¨¡4}ª¶2]è¬ld™,c´ÅÏÑÝñ*g£gÕ¶¦)­°M¹nGÙ#Öe%‡C¸eíÆM Eàh‘ Al²qÕp:; ½ê9Þhë }ËÕµÉTEoH «¯ö6Ѩ°–V_ubioÁ£yEœtýñ5H±º³U™²÷*)K(átÜú‹t«MÜT¿‚a;“ ­=çaMægÎ6SšÌØ,ÆÞ´>ôÞ%|ÚaZOŽW>È&1,$Ô£;–›d:õé%ô=†•—¾ªs¼ð|ó>¹*ã«×…Ɉ­ÊõçÛ±hèö–(מV1IŠôÞ5Êud’úÑ U±ZØöØã™Üy3Ù­ñ<ÖÖ×n7ènß¾5bÆœ[\{ØáüÝ÷áÝÆžS´}ûPÂB:ãEx¸ì|Ë×[ø©‰HDUÜÓÓG¯î4Â|$We‹(YéÅßÃÔ7 }R¢ ô¢oB8‘ãÀ…Ú@Lp²AX¦JMí¨NƒÇ“¼BL¡¾Å°.— *1a%HäôƒÚ#'u‘0Ÿ¼ØhE'¡lÌ6%{ú_½}ùT€Ò,µš5$é°qÉŸŸ£7êü¼–ň“æ“Ä`Ö8¦V“h±ÈTô±êš\¶4ÂH j”\¦hs¥Z9P's‚‚O&"›ˆ '2KÆxKØ’Ð wÖ Î%vÑ×:%vARz4u‹~ãØ fÐ{Ð{ÖⲈ»+/Œj÷Ž,sèYÑ3(nÁë"°ëò­j‰d1%`yÓ ‡:‹}&¨q v Š`ƒœ¸/²M¸YTÞ<õƒ½Äô^¬ ù€ùB³G8"QeŒP /]<ŒKàB%r¾kÁÖï´Pº·BDBDCöœÁJ5ÐPtrÖÛt½°¥¬¢t« [Q„¥^§âPpJA°½.±U™8¯øÝ QàšÔ›–:·i”, Ë ›_¯g>>JÉaJiPGk·N$LÚ)+ô§ž<µŸ¤£h_ÌMÌ´¤a0Ÿªž‹uú{¥Ð~„ª€¿óíó,`HH…?‹ÅwÝcWl½‘Ö˜ÂR“ 9ÁºúV{í:z7¿(ÇMíE':¼Kx,m>d#ŠÎðS„9Ü#n)§•Âxz^kT•T\Ñã 9œÎcÕ5*†»,©Õý©ÙK^€Q‡;J|:\*Æ´}g„™=ì Ç FÛâôCØ·é_](èÕð~W0r"ñyå˜ÁìœQM ªá©Gk6nshîêìq6($ÎLj—ÃPDÃjé³#p¯Lþ¶JDˆ9ÞOLÅ/ T€jÃ? 3lŒâÛ”b\%Æ–ØÔðT D§ïJîk,D h‚yÖÂG÷*…<¹gš5‰©qšð¶UĤàAŠÌ ®TÞÖÎðY&˜ÐÙ4ÌôúkÊßX${ÑÀ[.ãQd§J[Õs­ª•l€^/>”šÎ+Oöj¯5;¨d 9b £:Š¹!ñéK΀ ëò‚C'9'œßŽ3/êÒòÍì15ÉW+¾Ï¨Q1YiIL‡þ$Y&ˆÊ•¤Õzé wvD\¶6¾“”ˆo05fìíÉéÓtâìÖ'¼˜À~ŽBŠ*óÜöQê2Ê:çy€j‹¦4U“hŸÒ‡•$ œ«´m>|‚µ=Ê}ËaúbŠ2 ôäÌx²JÙßœQÄø*¢÷˜/gÐCÍõº8tÂ?åÓ¢³ôB[wFáýE’è\”ž4@2öqÊEn–ÔCG ,àxîŸë5Ú_ÍÒÂ6ŸÄ‚«´”åR+ËìÕÊÜ>&V¨ê0´öw?0I8\ŒÉî ÚŶéxwo_¡wé¼Hæi2¥¯VÙe’ñWµ·FùŪÄ_þŒ-#ëÞýhO"ó\´ýÈ?»2½;ôÎÎ}#5s݃H–¸ 38Ñ°ÊÖÛeHܲ`íÑ”ªn"Í—=ÙßÖz\4Tc«§¿P]åѵ»IkÛ{M8¦k­¹ñN ’ñ‚ƒ5C„)m"-µ¼®2t\n{òz+Dú9%/Y³£Á¶ì¸' jóži“—‡Ü=­c×óc·u[c[AòË Æ¸·}ŒË$.ƳAÔßGcÜ›‡ÃC§èíf9.ÅÝûÑÑÂÇÇÃãÛ7¿Ò‹n]_7s/õY™?a {›aÔ\„Ýããî!Lšã@çÆ.ŽŸv£ûˆbúÏ¿×Àðn7ƒÓ»öfÛ´`zmwËõö¤ éÃ:ùëîl5Ÿã媂 'ì~»qŒ©[qM½Lpªà̧äïÁ¹OƺyQ¦»fRšrËJãì©æwæ0FCÑPã 2õÍÍžAå]mPäBGø^˜ËVÄIEB· pè1¬šºõÏ*&= t7·pÃŽÚ_@!]ß_xÝþšˆ²Õb„Ô'SS™¼Ì°LVÔ£0I¸dýV ™•æ2ä—¡ØsÍùù—}mú¥îU.Rª†#¦"\.ÿÄH˜„7fˆ;Ë«üdîôüt_¬–ÎTÑxþQZ-âeðBW %/è“OòÕhžü9.ø9I݃þ¹SúâÏh¸pP‚qÊn¾IûâW,œø&“ ì!¶B+—Ëv‡85'•øç$ºs®§ÃôËx½¢#të”EG`Öº¡T*¯/îmî™[¨Â.ñbpÝ¡.lk‡¤åeÒ?êhÁëë5šøχÃg¨c3þóÖñ½[·ëøOøø þóçøùµá?7’ü2ðŸ›Ûøá¿Uç¿Õâü´Là£"M¦óu“œ Íb‰š´ÀáP„ôi­|€"„ ÒcÂnÄ—øY%KvøàoZ ãeѸüÀÜK­öŸ Öc@Z-Ø2†™ÞÔƒ{Ü+‹iâ{ª8H.Ï Ús9äˆ ø>H¾"Ö!Û†Ð\SY,v T^ Cpò¶ºžo}ûx–ç á†Ú|'š±ý)§Àcœ…‘Ó@æuò*šã(ˆ—³6 ÿ?{ßUµõ;H T íêؘ'1„‚t¤ ¡ &™I2¤LîÌ„$ €¡H¯"BèHSéÝ‚Qib¡ƒ…¦Ò$וּv;gføî»ïûý>sïå&3çìºöÚ«þ—ML#¯…•y®yk”U(–Úƒ=d.ÆÕq¹­\œƒ‘@n5‰dþ×LkPëvÓçøJl;Ì ¡ÊÀ9BiË”C¬m¯D¤-JQŽŒÖ¢–z^hu¢ø±©/NMT:Æs#êvÃú3@è4SGo*ztÄpËŽAk„s4$ð `'€À¶ø¼ÅCÛÁ=[‰„ö%¾—˜P˜¥¦8ô|\ù"r[™!9º]ñˆÃ ´Ÿ‹í¥ÀÐNã3µ ôÏÄ‚5h…cA,𮦼P=¯:Þ嶃1ÖîM£ VŒÒ¸‰ÈÕ—”Ŧ„‘ p•)i—;ßp$SS3yšPjÒ‘\. 'œ4[¶3-3 # ÉLa£ +‹’Ð:€γd÷tt™RçÿÜ6ÇP"Á÷”Mbª iËCí(@«²ËHÉqsË‚×S`à剭!½œà÷ÊB˼ Q>É¡ÃÅ)”øáÒyÀ)S9ªÁxXõèì¼Gå ¼e=>ÛM^ Rùw  hSà­¤’æˆvžVAÎÖ%® 3}ó¼,D ‰é¸ÅWbQÍÀP Ýi´jób°<”@cnz=4pö~š 0¨DsVñE†Íž­CyGû*G€èÞ“¨°²®òd7 F´j •’U ¹‘ˆûà§IøeÁ”Æ÷'\ï¾ËÓæÉñéç‹Û%¾dæý@¯2ZbL ®fŹ)|”löx´²\œxB9°‘Z‰6²Â ÝëÇfè‘"F§iÙ‰D[jP[í܈žþܾ°É{‚7ëp¡Ÿ§ÀFžE&>nJwè%(+” !Rf"4K”¬ˆ½ uüýI`’J&üs:„é,Š¥A0ÊÈX›Œâܱ3hrŽRÒP„ ^±Š¿yDµ™E³Qà4y¨‘ÉGƒ—»¸¸ L¶À¢Xyq&^¥}ÍÚ§t iκt×Ñ2c>¶Xgª–CW%&ð`3_™"²%톫®•‡M#iÐÅév¹¼lÜa,ÉZ±:j­øX镘„oÂ=Žåä2K¨~¦aPuxJS:(žiìJ¹BTY-‚¿LVmøfÚ ÐŒV>é&è°škÖLÉ kÄíSŒÂ;júò.¾(! œÑèMÉ:i ot÷³Ã©}«s×Ø̵}„¿à‹`3´ †´mÁx˜ìÜ­ ¶1BÛR ¿ +uAê \Ãxªl„ÃK[ÀZ±œÂÑ#£Š\©>瀱Ù’%‹fqpô]8âu4ú¢ØxÜý^F£[tÃ0ØIf]±tA}: ¸1™GH´—îò%Ch,÷:éwˆŽŒ~Hžb®«¯Wbe™ÿÅå‡ÉÇ —SG]’œÃg-óà°¶#»¾[ž~UXw@mèö¢¿CS”€j àse7¼”vøí®ÂJŠ ©,!5aà)¶šh­í³[ç¶y|m/9ôd8aa¼N2ñÔLÁ#í+â¦Ì(ãXÍ ZJø¹23¬J„©J×j[¬†šà4ÖÜì€ÀI^WžÑžøÜ“™ðÍ”‘™‰ª&Ž¹‡ý—v±tzö*Ÿ`ä`ظP‹x¢çîÈáÙ]áûΪi5‡r*³†ù>ËÈzÕÄ\«^àg’¦u—‡TcXˆ( ô 3’5Ñ.>›Æ6´»/ÀêD$i·´ßB²¿¤Làšìˆ##÷8Ó4Žë†ê>:чôÕ*¤Ç!ÂçÔ§ üK{÷B1†é¨…¾ D)dOý;T‚z×=R /ÕÉFgwµ¤O¿âu&PGÚ*AD~4Õ‘žDTYÄS Çõ¶aMÌE|nÚMí±0? ͉Î,¾ãÃ3½™tÕWröDiÚƒ Ö¼‘®{¥m¤Bñi!J§ Ä&’£ˆÅ˼C½`Ê»>&Õ€ º¯¤-ËJ@Ä“ÖŠ¾r¶¤ÝãN’6Dé-«g¦ú…Ê:=Ú7ЧÐ<7€KV¯ÒKjV±¥h=£]æX©¤ £u9Ã)fØa&ðëwèVïudkM`T&Ÿ¹ ÁT5‹Áí£Øa.Ú¢r®³eP´-l'¿ u†a)£sA{+˜Ê7c ©r(ørÛ‰G…!‘7»ÏÙö¡ÃD¨r•µ¹ëϨ>Íþ¨¥mºÁ;F_D@¡È-4õ!Õ‘qøàD±ÍÁ_Âñ…(ß–‚uWZé¤%.ÇÑ$E·¢ö`ýºòs.6PdMq›Åq-¨¶¢!çßDÕ¥)EÝÇ”ü†ÐÞO¨H”o¨H-*R«îÝbEô§‚[Yð"/ê(1º“î\i£v¤«Š;û³Á¸ä}í¦­³îÐ8bæÑC,ÞŠ%Tòa@uB0hG Ѧ˜z\rˆ9°‘-eç¿ÌÇìÿSRÇ8ü ˆ°lE8%Må°p’„G†È Œ K©(Ý¡Ýá©^g[Ñ8 [+Ô)SLœÅzX-²•Ýå•LI*>&hhwÓƱø÷˜aO[ˆŠ‚lo²ÖÊ@ð 3$¨ìÅÿuãï;÷òøZ‡£vú`4ªVÜhEBbê`ºhaª»·•‚Øã ï=,“Û9ëoÒ¨î»mcð¡D–£Š÷z˜ßÞºAi4O‚ +…yè=28X=о†Y—=É|ôìPÀò0óÜJ`fÀ`¿]Æh]’gS¸!ä+nøyŽšScº¸Þ©¨øPÙ/;Ƀñ9fr€P#ºk3‡-T˜¢€¯Dš•p“ h“ÔÁTWBJ„9Pçè@®‡ At@YÌsÖ(wÁÜȺ?ÀÃÓ)K*ŒcA,Æß X²Û–?6ŽÖ¦þ”3ñ)Ù!¿*Xø!4ƒ‚ééµØ„8hpõ2Ði|V 3¬?¾ØU®ÐàG·l¬-:­‚\Zé7ƒz¯‘:/µÑéG Ç …c¦aÔlññb€ä&sÑ €Ê`˜«¢Þ„”’üOJãÿ“”F?õýKJºÿ õjÕ‹¬[Û§þCí¨òÿþ?D5ÿ{òÿZu›‰¼ÿ§düG%sü˜=VT KŸ ‹>sB«93³Èp¡ˆêVîÌ0s—š@qi3!/µÉ#5ÇÊK!¢"‘™1ÐP¼ Þ‡ÈÂsÐZÍpáˬf6A$ˆ$ Ò©NµROOw•ißPæœK‰c‡43”æáT†£¼ÌT(J‡MPÖçpj ;¼‚JCˆÀ„·—ò c6 k`öp–^ËÖÌ·ROŸ|ÅP&·Á²*KÈE¥¶+WSh™aÅÅT¡!É}u^“Za%UŸÂõ㳖ϲ°%Q’‚2K´—ô÷b¨¡¹ÃpPâªÚÀ•n}F†½1¹G¢1ñÇ-GÈP$pma »Bè’ó{ÿ[6ŒhÁÃ^ »$‹–¤QY.V(K©„ÔÇlÆè]ñ›°\'|•ÉYk.l5ýÓ‰½Ò'š¢G c‘VŸ1Ð*èAŸÑ*˜™äX4WK<@äuìÄ·q;™~ Ø€^¦ãP/Fµž« ´÷$¶éj*¡bFõËÊÒay>›tz¼àHkšÈ†ñÂóÚLÄ5ÄéÒuFÊ:ƒòT3ŹÆ%dÌ6w£@Ï@€Ìh‘Ãé’#»²n‰"È[<¬/Y;”ßñ™ d`!3}­HN°²öN<8ê}*ï誎+¤ý'ù%×ÁXËÚŒAaOÇ3jK…b:a|òÁDmâü¿EÑH˜9dYÞtbì|¡´]BÔz‹ñûÀÈù|E”¯D9òw>Õ%3÷Owŧzûâ/h×ìk~^Óö’Ÿ÷º„ 'üçyMHÈ(ÙàJáqÑÒ±Fì°Zó[3n†bjáþzÍX›r‹˜©&kè–‘Ê4#òˆõ¶HõúJYhJÑæ/BM˜ƒJ: e χß .´{2éИ°t ©ª¤§BŽXˆÒúÁ(Sb«§ö*ŽÅ)󬿶XüÜΪióR‡®1—Ã#Œ²þ‘A&S– +˜²tB~°Šo<§—Þ ¢“ )p2_ÊY…ùÝtdÅíÀ~v0ÐLÎÝPJAûÊ’h4QŠ6Y¡A‰Ý’¬°òK¾Ô>?K¯_hnçòø7t‰5cÇ Ð‹ˆ92©FÀjezm¹Òœ›Ö)/ ŠzjÄT@Ɖq‚˜óxVÈs’ ÊM_†N‰õPE1Œ»sŠô ÂUä)õ¤aÞS"¢]Y`½°b¼’J¬Ü$gw`x«ÎæÇ %L'¡jàxR° ð-²emå®Ñ/ÿ¸“ÿAÈýßûãëÿg¾€ÿø¯énþÿ¨zõê«ø¿QÚóukתóÿÿ¿ñó¿Íÿß™yºx¼»ðÊMþÿSBîcÀ~¢TH^ÅHè¼°JT€•»ÿ„ƒîl¦¸Ý¥WòÕ ä!ÀöÅjfÌÍÍÅC åˈ$%4zWûÂPÁ@Ê ÈEîžôd0Zp<Š6è_Gä´chÂkÚ ‘ÏzÛ9û†]‡-Ù(xØ,ÍF{¹°Ø±µÁÌ×ȈuáÝZ‘VíŸZ(i—²Q“ÏÔ´°T§¦…5mAÓ²Š}à>,â+ÊM¦c1ÏŽ¼ 6dëBþ¥'œþÂ'ÇçÂ#’¡ Š»Ë ëÀ qôw©Œ˜À1ut)»ÿvÿµyÿu÷¯$q¸+o:¬-n@TòÉ`D‰»- aGT7¶ ;TàBIA k´K ›Ý–î°3´(tÏ¢C4ÝË?Å0#ÆÆ°­°8Òí?h°f¾±ÜåÀ¡!VX ¶ÂìOG¶n´ÖÒR~ëö­[Æ*ok,â œ ³ŸŠÅHº×„™ ÊSaÜ;-ŠÐSTÁQRºyŠæ4`üÕ“@CÀ,\2™p,p‰!ÐXïK¸Xÿ³Ùíðm ›þL°ylv¸å3e#Ê÷ð…ÓëH %ûM›ÝéêŠtNZXÁ4[6踘'¬½/ÜxÆM‰ E—ôǬ,Ú»qiÚµˆu3ù5¢OŸÀ˜D¯·ÑfƒtuY#’µu%~¤½ö‰!·yS°*U¨º†$jֻŊOµqAØœ¥‡ÅÇÁÿ @;Tì.ógø|\!”>Ž@›ÒD¹ AÉŒÈðœîÀ"’mÁwrxõÕûæúœç×*šçƒyµ-ÖÙ´á#ŒOõFEÔqr;;mˆ¬|¸6ÉøR­ûi}6ҢljŽ¬EnÁ¶£BW½®þvuã| õø²5KNšÂu#„ù7ËFéÅ,ãÔl§P˜^ŽÃæÖ´'më’ñÙY“™¾¤œ°cT–Êæ3p}¶³9Àà]ná`CÔž±ÏðAÙf ÐRÓâ¼~#²¸`Ì z¹5”¶q:RòCít&æÈÛDp`£lã{,Ž ƒÊàtdÑsدœYÁ”¹ÄÇnr”ó¹‰ùXx r˜‰]â‡ì­»uÃW6F*¯ÞrìÛãÚ 5¯-`òè;È ²û5‡ØoGj"ZcstÏ(HÅ ¬ºÎ"Ìw™†¦Q°y@&eÜŸ>ÈLgÉ 6…$[@ ¥‹;mIÊëÚ_üÝ@ÔB+2[OcJÆ9Kzþ‰ 9N߸¤tˆE‚h  Ὤ؉xÅGÈ•ã°V–߆à,´)Y€Ã¤è[ {ì!^»™ST±L{¢FyUßM·Kãi\ €0R/Å[Q´"ÜüN~Ïñ(ôÙL¦ÖL­ˆºQHž!Ðêíú`{ˆõçHßœû ˜qÏb&ƒ:]Y!ŽÃæôOSròæ" ­Œ²”÷y¦î¦uÇÇk¤‘Ž‹— Ö£)Hø÷á%Òm<$àÚw)³ 7ñõY¸'ý<èoÀj„ ÅÓ¡ºM5¦2½.¨\K/š40ÞGŽ‡ò Ó3¥ŽgÇ¿Í ž“ÅP{,ÞÁ}^7†ÚR)Ü€ +Nàh‰V,¢S¶y'MÌ‘úÐ@+îcàkˆê“Ó£”ôSXP’П¥Óm ¤^QŽ>{ƒµ {Oÿ˜Š0˜Ú«¤Ýë­\—nåzþÃcÉo£Oi’©G<–Š5#ÿ¬G%ÌX°ºÆÏyÀ½Kˆr(°¥[)¢•;opOÅ™ø½’ÆU®ö¶9JühÀp3&ê·­{x½y*t9X–0v×è4Ï:JÐe@±”&]ö„¼ù†JõŠîÔ±sóØh¤Ò)Ðz„ÉÜF æùR 77uQ ŽÃB"sP©¦íãcÓŽc8ËWðøLòžü]QDƒE¸mbÑäŒÌç#$ëPh²#uf32ë ÜnN¯°dô „}Œ Wž0’^õg.3øG‰»‰™ÄñÀñ¸xšµk…Ï[¾¬HJ–°2튅+ǦfI§G$ÒµX ëB'%7ocqlÁíðhç'œ3À 5é~Iq82¤ ”XˆÔ´2]’i²*z'Ü<`XÏ€¢J‘o¨ñ'd4•`“ p6 ›Uª² B/¦(ßdnnfp­Ø—a(þ͸‚|©\_ÊSALb1”@—ƬŠBM$ÔùL ÔG åî.áSöL(°ÂJ1þz<6PP9H²Hÿâ©©²®ŽÇië Þhƒ¸{™»‚Aô½)%Ì¢®&²*æó(7´ê¡Q®N?xº„S.H˜ê`(=û[µV.`¨Õ†h…Ü=!Ô +¡êí¬«€Bl‡#¼1Ä;æ&g‚ò…Éq¹Ð¥`Ðt$ðrOº¯¬D l<ÂJ–¼¶f¿÷7éü,P6ÿðÄV'áɌ׋,h^ವËÜ[÷Ÿd¨#‰&‰á5’¼éoÌ” pnH¤“š½Q–-¢$—°¦htŽ¢ž6>d¥„FÙÊú·`ΪA.¥j>¢9HžLg°šU-ž:*бqÁï” âkïõç(×O<ÂÇѪñø,ÀwäÙ  7ph™óðž5Rô8¡ˆ®öÕ@‡ÛÅJ5øõý2 HÛ~·(2Ç:’wŸ‚Rî²pF]·}Wó¼²<ÂCnôE@ÛïÕœp¿#½õì¿2Xnã÷¥O˜†Ù¶•ÈKúWŸJÉz ®E‘tB–*¶½,¡/.ÄÔB®X¹áf.j¤ÉN»ücwÛ²ü3$@9E{£Sk¸¦r¸tùV̧ÅÅ;½i¶ Q*ÎáWÛlíƒËíƒEßÈWIR/Fz¼CN g1xÿ.ï­áªÃív¹e©,gÉp¦§°ÂqþKËqCªE©)§+JGÕaÒr@(ñ};æiÑÕ£³$¹\vþQçÿûÚtÊ2)•ÉDŠžÿêdRºÿ eJ‡¿˜~ù؆ªø#~õWõ'Ô‚U³À/ž‹£Â¬w- DAºš@þGUr\©™iéM4 p»²àÿ¾iŒÁîÃR‘âµFâÝ‚=¸’p‘96³ÀzÁ–£5@N)%ØHb~Ý4NÛIqÄD`Y•`³ýÁÑ2½¬r’‡éʨ€O¤ÓzÙ0Â;X8UBÆùòdwžñŸFXA˜æ móùâÌ:I͈¥–…‰%Ð’FÈF°r$[º¤K×çãˆ?Ì#fÌ°£Ž‡ÜÀxT&ižçïÁ‘ªf¥€È¸]./ƒUQ‡â¿D/8‘îP›;GB £anÂÝEÅéñVáÑi,„%“«–´øþ‚0÷î4ºTBot—É°^ø„¸"›¢MF™¯a¢ðt€ÉêÏe?6bß»Χ¨²&8«ñpvÄJ,?žpO‘&û^\Ø™©!•í‹"dÁdë–¨l=Ô£¯ÏÁ¬ŽÊMÅí~ËEÓfÀy=ÂïÆÑç@Û†U‹ëPÛ þÕ »abíøµÂÊqclªÆVSxÝ•D~Zbz‰ß˜×Èþ°v˜0”£¢Âq^,6ègÊ÷X²LÌX‘ ùˆ²eQR8¬SÏW:¬Ëž9!4(¥Ð9!P±ód§ ìÃ3‘…ñŽ7fZç5Ù½†Wmét!Ò›æÐDY,/6}™ná‘"˜K"|h £€vLƒ!s !c©E>iø¨zW¢²¨ ûºÇs̪‡ú‘©;Á9°ùge˜ŒÊIDÙ‡n8&.n%CÒõÕ»a–±)f)ë¯!Q=%™`³,M˜)x§—Àܱj]xÝe™ -e¬Ð:µ”ƒ'ÚÄçõKÖ‰×gö³díáPÀ2p=P·| ËQý æȽTLˆ±0±Š‰Î Gðm_¸Ë×èQû€¸fTe8FŠ— c67ÚÝ`åŠJ‹ä˜W~Ø(ì>O}ÃÀÎÖI@[§ÁQèα ]/#%zbþiÎ̦˜ M–ÕfõÌÁ= . ë6ú&øõi”ÀÙ x¼c•°QÒ[øZ4&èp;Ô@SJ×”!îxæc$ôaè–A@s Ɇ€ÔT#¨²V çR$uÌ©XAW*gÅh¹$"IôÍ×á¡e}Eã>ƒ×/sÕõ†ƒ)Ä:X_ DrAHc¼«Æ0¼!u[PÂeÝÐÓb,ì¶Gª“Xß+šI¸g”-{1ØL×½ ZŽŽnÔ¡C£®]•‰á½Æ¢5Ÿ¤9Ó!§ØŠ7<K¡PàŠP*yZƒ Œ³C7…Äó th÷†E/ »/Ž2°br±sQAèW$K½¼v›˜ëE Ž%ù”%2²þ×¢|û·…”gô*‰ÒmÆJÀó`HYÁÛû®/ ¬l¹È„ 6û·ö¥[™Ð¥Íƒo­º³w]w¥Ò¸~]Í5/¯úÈ™»^Dí é«Vƒ °â—NO—x ¬5˜ëHêÛ ^ŽÏA’^}W_ܪV„±@+ÛE@ئ èn•"ºàÆõ¶KÐz¦È•¹ßòÁfn£-r+_¹“{–ñ*’ÖP—ôU¬Äå{âÌ¡‚UËr’[ƒ ®Iérƒ[Q¾ÄkF*¯f®cOZ+ì"+B±êº9{C æ!ë÷¬Ô6ð Zp`bÀâÈ×¾ï#ßôe[ÇŠ þ)š/€ÊÎOª:5î?ÈéB¤*Öa8¸£©r™ÐuõÆN  g3ÜÎtUúóÉç$¼}V2‹5L_½Eð 9@ÃÛškù<*…öEyX|d5+¿u¿)DjÕmf`Þ܃ Á yXÞõüD[e‰S}ÌÁåAò@ä_ŒñQ(É涧Ba¶dxùHüU¤åUÊG(xx¬2ÁìgT¶`X5zÜãûkB’ÿî”FøØIKgÖFòëR¡,?H‘(|rÆ;‡ON]‹x—ì³ãˆÏq–Mrërw¿_q¿ƒb…\¥nW:«ìçà~Ïœ 4®ý©M­µ «ññ°9m RÒ¡h¢¤º’Ð’Šwdò`1 'v& Ÿ!¡¡bi±ñz}W6BJ=þ4 ¥Àl^uxdU—˜8t·°j3 o]ÝU*Àƒú¡öÈtD+Ù·™ðfˆïôøª*\ tºÕÖ¤ÎIÙl6eYùÕÜ~ÙŠàТE°À KߪË© 5‰J·Jºn†šï¤ç¸"oHûH<Õˆªúcrð\„!ˆÄã¤ÎÆK²t;ÄbÚ"ºC´{Ûí OFÕ†ôv¥æ‘’£-·ÊJánÀZ#º6tTG/sÚWêÎX™@,·_«ž@Pâê2^Øj‘+t—CáPt9aíf¨P/x•ÜBQŸ Öa|ÚXxº§ê)6a,ÝÌÈÌÐ}wB¹}Hyà]ÄÉy€œäv8Ò™&Áz1<¡Í=нÁŽ”¦¥ßúæ©:`œ´ÆÝS]&XªùIl+¾…¬Õ¡OÝbÌ@ÔŽ`QéìX1aA—ê.7ÒB…}ͬÚ×X껢 ÚA2(€Œvø¨ÝXù°Ábœ0¼†§a;lú\@]ò›JAw¤äNÊ1R†§ôÇu %+Ä=ÅÉÄí éϔ³æͿy‡åff91Ä;=Jt OÖwz™ïB¼uüi¿8J —ª¤¶áâwÔ  jÔ5û'ZNµ<Æì.JšG¦'±kàaº@~+]6”•2<ºàˆˆ2Ñ{ r2zt—:çYô»Šmê~ãu–€…^'\{Èm£¶@Šï… Ëø¦]3ãuL«Ó8¡,‘`¤t‡ÛÖKd‹a೎X7 Á˜Ì¦ô!2ê´«‡bøÞ~F©/Zù9²|ùiGMÕL?©µFå8T°K@ç£= ¢F´CÎôŒL¯’?Žé&0n¬Yò Ú „§›6$°ÚCVñb%‡¯¹H¹¨);V™ÅcèTáZ÷s¥ÊEŒÃ_ WfŽ$"µµ.Zþ« Pn(jÿ¾Û§_†0ŠÃppáJÉ@B•»ËË¡°¥i˜Ø É0bÞ.ˆ¶ƒZ÷½*÷µñ„ (Š3Q€«R”¨ÊÛÆS‡JŽ.ÇHÑw …ÀPíWÛw²ðÃò>º%ʱ0£guŸ9Ê9å…iù^dä`Û~ÏZùËÁøX~) XéÖ„EÜøuò-ƒ›ÏU/µzi³ú\úcIáÞ˜˜«q'ŒÌ¶šÝ6f™³1< ZÁ`%ŽwãÝȦ®¿+~DŠ›F;YJ»Lð‚o¢ª|¾ek­*Ð4Ià^\rÚª¢avhR]»Ê€LU÷ ë×Ä»0“Ó=ŠC3auu¨ÿtÙx\Š«ÅPá[D·âH;E¨°ÒF0H63•E ÝŠIøÏÇáàÚ¥iIËbßi4¥›dZv¤í¿Á¬ÜÙ 4b²&g’®ÏŽZÒ({KXh ¬`4ù* +U¹ªt‰".@«´$«Ç(Fwæ•tÙlæô:003møXø)JàVsyÔ¹1!X®KVrYr˜Û[*öF÷M˜dá_¨ÜþžBRÔÃoè—E§•™ÉtÅ6ù+<ÆEëżýÚ¶B¡¸AŒh_æ|¨ÚKh Ú1LpØ‘‡b0ßW»bqÑQ„P"ÿ tròFH<}X©9X'= 0ÂÞ`¦B9蟮›`ßÄ€Ú,}¯zÓESŽl¡ˆÖ<)æ¬ÃüåhÄÄ ¬R« 3hª#ÛïÄ [F ªÕLq%ºµfNÐéO†,HåÓ™çOWøœ J^€"¤‰` É.g‚¨ Gþcí¾F•Ñ }‰(6&Çùâ’g¾³,ÚmVÕ«Yê5p]Òáp™eŒE};“Òy9¶ä8Pî%F[Ä]Ë*°±8ŽEjίIö2]’ºªpf(‹æME/0g“ô´rrWSs¨¥ÓKàBh [˜j VÍè=5ÕŒ þúÛYæcñ°fÕ•%]IQ\I÷Ôå/¨+JuիǃºjEŠêj®^vB+ÔE!³h%G?”¢ˆâÒ¢2ìóŠ0;D$BaŒ?~Ī©éŽ¶­)+)© VU2ØlÌùAC…£gP_%ày˘ ?2Ø»Q–G/«›g)‚0ÕÇb>•œáh<ÏlR¶“Ð]̇ÆYˆh–¡*[¹Ä—r¼n6+làÈÀÄø†›ÊDéå p;˜‘‰Ê>"& ˆ6~æô×UwVÞQd~N¡1'Š§`ð Ú=îåÎc©Ì–h)•ûe㬪 šgçB.¯2@p¥h_•a¸—ðF1èYrQz RôqBÃÂÌÏ›ëEûë4*P§÷”@Ì9GJVo _K_j¢ûÞ¨çÑs¸l~$åÇOŠhݳÒÁÖ.‚Ë@\Ž:)‘dk5ëÓl­Z ÷uÕ´¹YSlRÌ¢î©ö™o3™\˜™¡$}$Ìp"g¤Èay2nW’Û–ÆÌV,¯.\·ÃAW;ÓÐÉi† #údpîU=#lú2ÊP‚õœH¢n»Û•Á^L‹wÅ»²…pw¿ñìþpŠ‚Ü ô8öu#£*çG4Ò’Ž’=†È †x)5”ª‰ñ A…MêÖ¬i 6Üx‰–§5—mÁ+ÏO E0íAƒPhº@µo|å^Ö@Lü¹¨ˆ† ë7t<×@ÿ­˜/Ä1Z`øØö=iBlö{ Wvལïïeà†9 )q„ÄÒDÓ83B5v6íêÕd‡0\o­Ù{ðÓæ¼\öí!„‰Ì írÁS´uIJ§¯CCÅyÁ•±Ò1ÐzF"@Ñ*ÔbL•“•ñ©4M’Ku¹2ùFïQÚa­êBØ9´D-™ßXKH;u"}¥½ŠÁã<%ƒó—å¨28²$ƒè_CCe˜³,¸F•²Fw:I^î…½DÁ™)T°„Áf:( 7 †K\…zmIìúzZèÖ̽ f2Ðœ$OÅŒÊì6FfAQ'%ãíÌM`Ûš$ ÚÁa T€ Y9÷Ã9ô§Ž!Ÿj #Ý‹’Ïvž³âoðnøŒ @ù^žiû ²7[Ñ»Ÿf=hãÒä/2Á, “¢Ômè*†b¤’MbXýˆ`¼ ¡ mkB-mÜ™ˆ béîÐæ…¨Õ80`~mï€Ì…êi (—3}€+E[_¥ýbª„Œ­‰¡|â­³qHrqHw¾,B™}{ЬÍI®ˆÿ¼$Ê/šSÝÈÚ‚—Ômp7^""²!ˆE\ÁÅ ²y ÆâÏ`¡¤‰ú6D‰Œ¯+ Î.•”NaÒ¾ù<³´i-9”T4l¢¾z!×9ŒÌZ¥³f‹„ÿP™jóï{À0oàè ÜqZ8 MKMl?BµC@;E9b‹{ `<´~ G™úW1sù9E“ü§†® ßm°7:FðßšRMýdv è¹ˆÌ1 åÅZc¶ÄDàÂF²nÍ+РÕLì™ÎT¯¼åÃÌ:©Ï›— iÂ^‹Ê†ºdJ>³ã}îøFøÕóý†mz¬EgÙK€I~#ê9~© &6…ÒŽZŃ'Sœci²dƒ%uSƒ°ÀËc?³IÔEï›Å¬èŒâPf¬˜3Y} ø–ŬixR1œœì£&áíD ¸ÜŠ×ÏwDFÐ'ë4øY n©yq«/7†n$H•çu¯Ô3욪ÄÊŒ«Ì,l.ÚÅí{*¨ÉѯÖ-œ‰»ISÈnüÖo R{&z[ÅOSlüzî¥Çàï¿ÇŸŒ“ è¦ÖÅtñªÓÿ°2Û¾øO¬h,û¨¢ñŸjÕŠ¬çSÿ92òŸúÏÿ•Ÿ¶1mÔ·-/¶Õô'þ=tèÐQcG­Žì·cǎÇŸûùÜõÛ?\¿}}âÄŽeË>Ú¬YPåÊe½^SHˆ)(È´ rõ«ÞK…!…Ûƒ¶O2•«cšPÜT¢™©™©X “iÉb2(?tIaÇŠ¦GƒLA‘ÕÊvZg*kÒž0™ZÏ™Þð™âÅ›5kf jaz7™ªÿ`º|ÉTXhÚ¾ÝZâÅ+&S¡É´ÝdªøáœMÏ5,Q¼xå-¼üYSåLÞK¦BSÐö[^¼z™ÞÓ_´)|R‰â¥³ÛWž8È[6$¤™6܆™.kÍí0m/ѧDŸ+¦K…¦Âí¦íõ?|üès“K/Ô,(&»ò½;ʆ”hdª<Ì=í0•èS¹çonaHÈö  ïL-zFšŠ7i¯\ùá§z6{ ×´#ÄT"È”ozä¥_~È>’T­txƒ¡æñË=ó¨)®¬és“é“©œiù×®¼v)¼ Föó3MÙ;L Le+™šµª\ìª×TbÚ®-Sök&^Š*[جÙv[H±#¶™%K•®\¼¼©óPÓÀŽ¦Gµ¥?Þ'ÿÊ—>¸Ýey¿±¥K•.Ö/ßôù¦G —ÿœ_ìò¥­7—›¾kªVÚÔ ™iü\Ó3•LýLÅ>75Ûbjõ莫©Ã K•ÜÞ,(zwþÕœ?r;[M¯î),´ýxŸåW¸zõúäå)Z³%ƒ²Ë˜hŠ*kZ~ÙTìAÓÖƒÅL|?¿|ýÊ”Âj¥¶k«Ð „i¼Éô îk~eÓl& n§^½|¹°°pûöí+n=sSxéŃš5ë·»òç9ƒ ºÜùç^*R´ýÿã1 +ügÁtÇT!¨zôê¡ z´fŸÝ«ç}üæÃO·Ë~¯`ç[•k÷?¾û½ù»&˜Ÿ|¤úhó‚=SB».ë³çý…ŸÍˆ¬0ÙZùƒEŸÏnà¹p|O×Síßh2,ø_íÖ,yùíßxüó*s—~½¸óüvo·[»ì›w{~Ðÿ»½kßývU\…}F:cÞ¯ÿá²¾Ÿ­[ql}ÆɦMRV?÷ÝÂÄ/•Ÿ»~U\^»‹¥ÌÍ6D¾ñáÈ2¥?}íù}‹Æ?=eZÙµ;~Z4ºŒ¹Y~öå/·LîÕâUíT´ü:äå7»/©j;?cE¯]¯†®­sè+ÓœŸô¿qfÿöòƒêÌl·{Լקæ´:[uÞ;w*÷ÞÔïУIë·íëuù̯'~¿S©þàG66?¸hEÙn/6yfз]öDù¸‚3·}X¼üãÿ’}åÉ™ëçß6`Î¥<31wå“ÑU‡-Ë2\–—ï©ÔýÜî‡_i`Ë}dïô9#WôþadüågãÞ|ø‘Ð'‡gU2ë»ß{%˜¦/.x«ô•ýr›Eôü~ÂC1=úN,ùà‘‰ýŸ}pô«Û?µqÁÔ¶õÎ%Œ9Ü7æÔô¦nËÉæ·Ë÷88¤áÀVßO¹Ýžy¿™·¡`vÿY•-­ÎÏ;ÿÌ„Š¢“&{NÄuä§×§{äÍxóhtõñŽ\o┦ñ=íƒ,½Q0¹Y‹šö·c[œwNŸ}t´sVðÛ£Ï.žž”<¤Ÿ»F—ïØëmúrþà6ýÏ/\Ò}Ùé·“ÛÕЭàhÊÜõsF]\º=~ôÅ)ëë\Ƈ[Å.?±Î¬ÑUÆï.˜ôäºëæÅ‚Û=9Ê\5fA~ÊÿŒ<±-tå°#‹zל[ò£Þ?Î:Róúò‚’·k¬è|°û IK¸zmN‡ÃN~÷Ε²ÏÍ/™25ã“ÿêÓµk¢cù¿]µÚ½ud{ó’íßkõè„rÕò›”œ{yï¸[t«;¦ô{{›ÖÞÓjj¯gWÖëãSvׯ?¼ú _r¯=¾÷ýòùWcÜ<¼ÎÂrOÎ:r°éÕÞC~ ®Û&䕱çßë3¹ýªCƒÚ|·æÛ>žŠ³?³öØúõ7=-Þ´ÿzö¥?§Æ|aÀÃÔ}&üèÒ¥o?|¬ê»Çë쨽ë¯Çÿ(õnZëÌ33'ìi?ì@…±Ã.ôNÞPjdÞÊS“g¼õäè+“ÍÇÞªqµÓ˜NÞð¶÷ïÿïÍÏ~õêÏÓæ­ùç‰ñI³Ö7r²Éò·v]ýeÐêOΖŽúôÍ7ó³.÷ù¸-çÖu-‘¾x÷oû« ž+»î쾇¯µoYمÔ]u~ÚòÆ%þºXûåUëWw^?¡þ’³7÷)Üûè÷KjþÞôê/ ùî¥~+†>[³îÎNÉ+¯~qíç?—¨÷ðÐ׿žVòs‡µd#‹íåvsV•‹ËXøÛðjå¾1•¹¶ãBë‰ÖŒù'<>cÓÊS²}\ýBƒkO¦7ï¹:ûðº­>9øzzLЕå»õˆØWòÀðý߾ZPÿÅ2Ͻrlömkhý[zƒ>1e OÕ[Ðþá·¾ý`Hùo×Õ;´*½pОÊg»}šÿI䀾֯¾ûq›ú7ÿm®Våàã]£v}ÿMKVluûÝ»Û4º26¹NÌ“]½»g?•þÖk jÔoø¨é™ÖoMšzªbï1³û<’R»º½éÏð‘ï?;%µ[XŠ{ïÜð.CÂm§½ò{»éŸt‰ü`lL¸kÀgÍFüúj‡êßÕz}þãiÏwþüì“‹GMë÷@©É=·,œ³iWX…›¥þþáÂCWB;Œ»´|VÜšªõÂzîó¼7¡Ó‰OBJg^ïÑæƒü‚;c¿<¸dúþõ+¾üKì;›K}ñß+'Î=tÃzyc…¥¿\}©ûkO7->æ£gº­y¢ì‹h°DT§|=ôÝÊž£¯”õÄO?ž{}k“kušvñP“/Lš8æà,÷íÅånäv½zr~…£:²¹²ÿ‚uã¬æ*ý› ?S3ûµÆU '÷è³dd÷5]ß·[TûYu×<ýó\ÏžRû¶­Þôé¸þC>òönuæÐt˳Úõ:ºÑqæáÑ{?áÜwòñ[×w5;Q9ïö¨“¥¦\ß]éô˜)ûNÕÖ³ ãø÷§nÝp*¬÷½œ_¹gõÞÓƒn|ÖoåØ=k¶|9ûƾäŽWït{;$ªëònµj6.·ýÙF…=—eïÿ Ùµ}‰Û74ŒÏH¼Ôï—öçZl®¼3§£·à×¾núçé/J–]“µ-Áf}®Ã—y‰‘ÍG]8÷Ô[u÷½Ýsñbëùöõ7åŒMŒüÜùÐóõ7O[çýüá´þK#¿~ø_UÞ}w牣v?4ceÝEo»Ø³mê·ï÷?œ0¤üϽÊ:üà1ïø'º;ê´)™ûiz½VíþJí¶yõ˜Mƒ/M¯puê‹ŽÞÇzý<  äsº½5hœåL‡]mÂéï6ÞÙéÈW$TœÑ;òl›õe—ôëä£ãV ¨çìû뀲}\%Öÿ>6ÿ£NYÏ忽¦F¹Øî\ú²Mþ×7J­ÝygÞkGdžŒüéù®ìí±rÚ„aÇOUwUÜþ™Ý5.eäé_܈íóxRÞâì¤ß__¾Ãµ‚jízz×¥Vö_[Ôø»1¥ìZqzf׿.LZÓèÐúWzËó×EGùF‡wÈœ<察›Óèè·¯ÖX{ì SÆ„ÍÇÏvüsÓ±¿~Íþbó‰?#²ÖÅ}}ñÓ›(ÝéúGeOüÖ°ä 忸þiãÁ¿Ê}léŸ×÷ö¾syRýe?¼±ÐœßfvºxædÕ¬byw®- úÝæ~UyÇïÓßlrÂáúsü¹rÞÜW~®ï…î¦M,ìÔäB…ÕMŸ¼ý‡;«É•jÛ_ÛTûoÕ—ŽùxrƒˆgÜã:lµ|ñÛcwBnË.¼UüáèË\·¿=Yê×½Ïqï~èÖµÆß_?nû³^;VÚtûû!ý>c÷¶r&m¨êŽ+¶¤]šeÀ郯_üI¬Ë¥‡\8;ôÚŸC¯†¼ñpÞk¿~;øáìÁk’†”Y2ôúÚ§ {¼~km\ÇŠCkþÞòÈÙ¤R¡‚F ùi×Ð+ƒ+4xã×úÃ|®Ç!¡oü{×e‚¢¬“ë¼Pgxãg†×h0ô›¬ÚÇBê‡ ~>tXüaUóÞxdÔuznýF×ìê?÷çŸÃâêÄ]©˜Ûzxã“ñ-ÛæåNX—»õàðë‡vNÖx÷ˆîÉ#*U±»Ç°j•_;—ûõŒA­Bssw÷:åÎ5GçÞi·{äªS#Oü9ÜóíPoôˆìž#^È10zÄcAYMϽY¡Ë¨Æur— e³wxÝ—FÕ»dèNË3g‡Î80qÒ؃ g& ú$ú_ýÏU>]û›ëãF¬[®õÐ÷¿W£øøs=sæeõ˜ß¶ûùëãÇ®ü›±“JLø£Aö•ëöyn7H¼vx‚itƒ_ÛûvX*gbÐ̉Á'–;2±|Ì€3=;š2L{Mª”3©òÌIU7Nª~dÒã7&™oL:¶Û^!¬Ã£U&‡Îœ\sãdëùIOÏ´?{äÎK–#“ëôšR/gJéK“£+MYUgJƒSšU™²tJÛO§ œïéõìÔv§Ö?}cjrâÔcxkÕ›RêÈä…?NnºtR¯™Ó:lœVåü´jçcb{Mï´8¤fí¨~aÓ{–™^yÏô> 'e™þÊ‘I­bâ»llp-±bÊù){^žÔ7gò3§äŽ®æ ›ÑÝ™7|cÞð°éC6æyæU¼‘7¬ÌŒ¬¶œ°õªøz™¼efN«2kÊÆi#ÃfœŸ¶htÞ¨†S ÊÌ·'oJ™Im×6<þÈëϾ<±Å>Ÿ~\÷Íó3çïÉ[z~Öê³?>?ëÃѳÞí•¿»Lþ»ó‡†Íº~HËã?p‡„E×ùâ˸—î|5û“œüwªäM8?{_¯YŸßxûLLþOeæœÚ“_)gæ#•ZÞúvȶèÜ‹OÕ?t£F÷Ƀ,§j<·3î–³×ÛßÌünfþ‰^ù¿äÌù4fnðÞ9¥oΞ¾qî d ¿ÖpÔÈÊ£þXúÌ®¯·ºÞ¡ú¦ya­†ß3ç‡2³Nž3?§ L»‚ ›s8çb•yý²bšåV˜{õßï|ò@3ó²g|üÊåOžyúhÞè='Ì¿tNÛ 3÷Ÿ/xiSÁ/eÞNlk•Ü°ÒÞ.Ujöùá÷°9WûäÝû©VS:îj¯:£OØÂ[ɯ۳ç?ÖnÔ‚ùOÿìðf½/4¯¹1¯Eε^Ô¥íÂ9Ñ-çŽÊ½“ÒÈ^uïÂ5Å{·¤LÅeÞŸüc•9ƒ-õT™ýH£Ù›{Ž©|á­Ö±!{ãj¶Ž(Œi6ý›{N½3¡ÑÒe›–ý:ºßÌ°:mÚ„^|oÙšM‹W\ˆ[õJ“õuú ÝÒô*Ówßxwm£©ƒköziÒô£'{µ|ry‹^KŸ¾°üã›ÓwÞì¿kÓÌV?Î6sùèÅ­«Î<ÒnΪ+¢nfnlW­]Éi©//¨±,ÿLNÁ˜™sÞ]ðÓÞiç^YÕ¯ûJWÿéù V~è\t¼æªËV^m4ýæ+«Û´Í¼<¯tÕù¯:WeeñAïž±jÌ”Õå.¬.Ü»²xÍ9Å-šÑhbûÄ÷r6½Wxseµ²³n¼ê‘Þ}+V»SÿpÕÕo.uyÙŠö5W‡=·ò¹Þ}Âߪ»ïè{MSf|=&ão>x±÷š¯n¾Wjöš:mÖ´9¶¦áÒ5«­íÒ{uû‹kZ¿4½ë쵯l^ëí¾¶ûÅz~¶6¾ñ:û­èWo­­Ð{]ÿÍëRS*=xc]FµõîÆëKY7`ÐúìÙën^ÿÚ±õƒo­ZmCnã Ã{o9hèÙÆlÞ0ö؆ñ·6L¬¶qrãS{oœ>hcÞì³6oÌ?¶qέs«m*h¼iAïM‹mZ2{Ӳ͛–Û´òÖ¦ÕÕ6¿ßxóšÞ›× Ú¼aöæM›7o9¶yÛ­Í;ªmù¨ñ–OzoùtЖݳ·ìݼeß±-ûom9PmëW·ì½õPè ­‡go=ºyëñc[OÜÚúCµm?5Þvª÷¶3ƒ¶›½íÂæm?ÛöësëŠ35þÿ­¦ÿóóŸûñµÿ6we²²Hÿ!pÑößÈúõëÕ2ÚëEÕúÇþûßø!ûïÀbÕ‹e¯°PûèÈ‘#;úeåææö‹l\8r±‰ÙÅàSñ;É›Ž¿±7æÝ­ .~¾¹°_èø§ZÅÈY™zq[†õ‹W.Ìt®ümˇ…;æfD[«NؽÀ½'µÑ;Bθ¶àðòŸý2pûì6/ùÜšŸ§±/dCÉ+÷|w}Ëà/\G¢†„zcƒ‹|sÔ¨!£ÇŽ?aâ¤ÉS¦N›>#oæ¬ÙùoÏyû­)ó&iPcêüw–½;½X±7WÎzoì«WM[;õ½“?ز|LJ3–NüdÂÂÌRKôùç+·­ÏÛ^|ËÁñ¾šòí¤ãû¿ÿaä§ãOŽÛ=|oÁ¾ž½þ·UkŒüò›k®lþêào×._úãvÉ53žŸÕtÈï[ÖöÎNí»À=vóöu&ÍkݪÌC‰܉ü²Éð qÜn9·ÍÐßK=^gã•‚—ÜV«ØùÔ¥ÎfÙT™éi¶sF¹úïWÌ›üýÖœ–—+´ÞSÇ9¿à™)5Klšxøó9?õðR…w^2»â• ÚMÿáËE]ŠÕ·8jÙ®Ô—{Ìù9ùâüÎîÝ´¦æø‚;_ùrã´ü~[›yžÜylúÉc“K¾Ó¿wõö—Æw®¶¸Õ–?WuÚžöÇΆ ¦Nü8ÿùšsvõ|bï®oª>îÒ‚ÓÇ^ªUøîñ¿·NèÓ|Xø ¯¬^zࡵ7K­ßôl—ÅOÝú²î˜Ë©¿®™ôÛÑn›·,»²cIÖ¯æ×_Ëny껯Ë~v,ü·Øß/͘÷¢ëñÄýïüxòâo×NTºóË_¦î¹ïtÚ;ód·7ú~òCî/}ãË*×&zÖk¿WÉ~"÷£˜%?Ž¬>pñÜÕHný`lõ— *‡.ZòÓëºs;G·Þ=|lÄ¡ä“ãœY’0®lEÓŽ ÍJ…šØª’óÔ¤èKOMn_ïü©)Û„žÛÝyzZç&=`zÀ{þôŒ~#ÃÎäÙ§;5Õ|ÑÒ3³R×?3;ãÓ°³ùÞC{j+ívžóÚçϾ3´TÍss‡/}vÄÀJËÎŒ­wáÜü‰¥&;›‚5//qÙùEÞŽýÛä¬yaÉ‚é7/v íaÙòu–-]ÒeÞ…w×êqÅÐO7=»rË.®J¾ðJØêO*¥XW|´ÿÿ°÷Ñ•/غ8[•JŪض+©Ø¶mÛ¶mÛ6*¶mÛæªw×ÞÝ}Îéî;úïèÑãŽûîù¡>¬ú­‘Éšk>óÁ¸×³¼™ÔM Q^4ÄŠ^4.­‘4¬:]4ƒØÀ^¶ì³PZµ­µž6Ñ”ŸwQ^u¤ Š_u>3˜Yw½?žu ¨è2€-®¡F\÷›[ö! ŸÓå!+wÔô¢SÑbæc¥âUcܦ>/Áñ±5Ì{/3ê­0±Œ¢²¢¬ç*¢Ô»åªbÍÆpçˆOµŸÑñŠ¨›å#í´Ÿ£½°Ÿ›vµO^éÐhœçZë`^×~§›µ`Ài\QzÊhZ nŽ|X°ÿx\—¸¸Û° —¤_1Ôï|\pä¼xZõO‡{Ú¦&DhÙeô`ÚŠ@«jY@v=ïøšw6N„o¾üˆ¾›`?Š †^šrŽb/‘¶j=…–z<ȧv¹ˆ,Æm½ìø™é~5ÕpYV/ž鰥é²>¼4ñ~P ß:ÔóÙûíJ›r£íNÛžºy]Ëúgë^él—‰„ô-ã—Ótžû¹¢æî®ûÛøwž÷¥%^Ò·×'iŠŸØí" ²µ0 |¤’ä0_„ˆíÒcÒ0F0~¨ã9t%?¬Âýpáv@¿‘õ"KÙX“HèV‰”ô¢ZÅÒDì@Ê’õav…ú³ |E°?þs+ãÏcz³ëÀ Ao( ÿéÛ"wS ¼1]Äö,•açRí9 D¤Ckñ=ˆõÆò“…è¸ÆÆ *TZ×JÍ»4enêÓŠñü/CÇ­maèØÌ$Csž—áÓõz³]Çý¤qôaÈ š‡ƒÉ\ËÐÈÞ'þð%Ãt041úý„×LMClmÕ±k8w,ìÂÂEñçª'ŠAu1椟^úÔ¤"äFë iÚF5_«“»æñèüÉ»uWÅ’aV‘­›¾_Ä$íók2ÎŒ‹tÅ%pÞ¥•&-ró##« z,  Š¶ÁÇ¥½¬)°zµ›WÁ¦mËR°1]ØNY¬š¯}¦m|©w´/>*æ²àAŽ‡PdS?š° ¬©ï‘íAÊÒÅ[š€~g„é ÇuU ãêpJšŒÂg.¥oŽkšs-R ßÖH›M¦¹ÍŒ÷@“”…™“[u°¥5<ÁùÖ4›ŠœñNˆŸ&¡E È ¿i 6·–é ¸/ùʵ8“ÏJM*e›ZmûˆàìYqªLš,$Ø…\ÊÍ}&ª«6!ÓûP$…C.ÚøÒ©‡Rð9³\³œ”ÑÔ®¡2¾âà´L©ÔO¾úfýˆëie°y§Þ.§‚“yH¬_¬*]³^S$“Åš…¹šÝpYªô©Ø4.BªŠzI>Zqù©6V:è^ÞbŠ¼f3ÜQð½(Ó®\ýšv€˜d6®|•ŸE_S?´QÝ’>¹à¦ïÌCUSÂM}é•·qL­†?Q…¦{s¾Š=Ö6=ÜÚêb„¹Ï5'/ðÀ½Û@Ù½»pŽS{:Ýe¦dîM}|ËÆ1‚׬ pdØò ­¡¢¦MþÕºãiÅ͘þ‹ZRŽÎÞ-j=*ß"j7‰eÚÏ5±]ÙT¸SÏ×…‘MÎ-ÓxÚ+[&É¢[$§K]½Ô5ƒwIÔ^vÒù÷åõ\vqh.C.ƒÉtšêíf…e‘¶Í{-£%ß³ZŠ++åŸÖXŽ(XD=,£í×ZÊbÍÅÒ–’G%·ÂÂ3ì‹Ý'§è¢9Ä9aÒŸT_ºgÜ%­ ÷¾”ÊFSF–f4Ösp±P¶=¿+õº-pÄãX>Ѻs ô” |Ÿ»|,gmt$­]ˆzî[û¸ˆA»ÛôçpíŽÇ‘k¼xÞ_b³ŠoºSÔbÎî¯oòÜËAëôÃÁ¶[¨GØAXÜ û~s£²ÝôTñ£|ÚœºµEEO¡\̲­QâE=v³Ùþ¼‡f€FeŒeùX]åT@{en;„ë°lÜøø ´xé|½x¸¥ò,-šAÊ´J‡æÔ˜¾ªZhÊîø¡YßðUè§ÓÄ“—°‘äe°ÁT“çñ·w&-Å&& á&k%až3HMÔBŸ8a7¸&ôe©C­Ï&ôšhÎÂÌŽÑKr+….ýÞx*ô_É„Ñž £ünšîšý8³•-„ž9¸P{—¸U-yå’ù°?ù|å= yˆ “fñO¦"?r%qCs6,g›qIÄ‚Jê(¬0Ixm¡àXQT´D ivÊ:ðÃl2X*±ŸŠ&pñ“wýÆ(JAwì ê×ú9…<™‰4ù§H24»µù‹c©QÄ‹gr\Ò´P˜k½£ªö³i¹Š=†sŠ‚K šRäˆd E‚©åü`„Ÿ©|Å‹Œ~°ªGµ¨cΡKkXa\ZK ígH;’çtUT™z2¿O afîƒdÄh:Дž'Éf‹JCÁ©³Gñâ/‰áh¡"Ð)#Æz8î“ž™<óÅÁSÈ™ wÒ¥þ>G€Þô²e5œaí‹Tš[Ó8Ú#ËïñÑŠ‰„'@˜9ÅY`¯4/®9?McaÔ$ Vsž_r(Ô‘9r÷ârPÝ(ÑÓrër±_)p_s+‘óÂ’¾¨å¹’Á°µå•¸æѨłcä Îå1qðѹåG¤äs¸Q±¬æÇäó‰Q𠹈¤ˆµH¬H½È`Êq*¨*¹ª¤ªµj¬j™ºúëq¨¹™¤™µI¼Rò¾°çØqÐÚª¿î¹”庵ã¬?úq&B”lR¶Îó8sä…¨•8” kö© —Fæ„a–Æ©ˆÁøJAJ®ýJ¯ëJAbJ:ŒJà ÊLÈË Ìx²Â’J`(ËÔJ9LªÛÒkWKƒVµ_y›aÌ£)èËÚÊÐæË»Êç‘+rGK»ÌÊ*ÚÊûõO„*êËïŽ*Vt‰*íE*ß+ç“Üõ FÕ*Ö197a”ö0N_mVÍÌOuÒddC¡çªÔª¢>W¯ F/?–•\½½®¦é'q£˜2ýT+«§=‹ã‚ªÒ'¨Ê§(§x‡7—í8NûWSY“êR”ãlwÎQ57Z1ç_ÁȘ°¿RwVCÒ^IXG™âT Ù_K Ì…_á‘_WƒY)F <ÑSo°WßÓð4 Äd^›/ÖÀÞ^¦_KP+ånF6–§K®$^[7[ªþFÅ6–‡{F%4V.S^óE¼\’³Ä*¼Àt­V‹+öµÉ‰³‰[½ép¶¤…£9§¯y¬­¦)©Ôà´Qü¬Xé¹1Ä<د½t®,êÖ «U!µ1áMÏÕ®ù¿¯ý2Üñ9åþ²öã°Ãöô¼þËÚÏÞ”u»­áµ%¨o 0ÇS^Ûk?ý0h XÞýýßïÊÕß\ÿ›€ÿbÿCÏJ÷ú?F&†?÷?ÿ‰úcÿCüíwiÜ_÷?~~~¿ï|~½Hˆ.»@ÌÏhX ¯ßìxC ÚI: -:mº„º•XzŒ]REëGàfdÏxe ™§Šî*YÊw«¸úº ——çarÆRwûk@ýù éTn´2Ê沬" â’ "Àdaê뽃 2Ô(ÐOßû}þ%‘—¾"Ÿ¤M@¨¾1 ¡Œ#NæþÊŒñw$à4¨ëyÿñtÁO|6ÌÃ#ºLéFÔ7Ž+3eð‰»Ûó|jÀÚ}fðbqjðVò–†6J–‹„§,ر)Ý'ÜërôiX™O6g—~ù~`lIª­IÔÚh—p‘ùnÜãN–¦å(v‘ÛËå;sÁ¦gŠ‘­ª:Iþ¬óìý ðK‹á\뽕Ä[s!l•÷SóñÒÙ°ßHå’h¡is8¸ü¿Dèm¢rŸåˆuX϶}ŠO'¿y]_Ÿ†h‹zÖ]ß& ñÎká•¥|‹tùR¸å8*¹¢DdX¦(Lì«!†‘å$Ô+‚®-¡&J$‘P™’o¹3x•gxh*5A–®hu¨´oU¯ £‡í•“íç§ãÚ“ÆܺŒ™ê&ôE"ä*¤-&àÉ’%!M„ƒÔhTt^ï¥õs4Çê7ûÃ>2¢(£6Ýòš®UéŠÖñ6Š‚þT1­ª´®áÒòF!³‹èžG¦\qŒ³“:ÿÍUãúA&±&™çÑĦM†™Íæ]z‹|£Èp«O뻉VíÉ£{Vm£e Ô-ëâÕÞu~ÖÝY9m, î;Ö?ŠOÍmz«,”“zh¹û­{¯¥²¥"j ?×~ý¢¼n;ÌäÇ×A’a7JáÍyØCÓ g?Î Lh7Á²a?Éq5n?ÅóÎašQÒaÆå[úÿVýcÿÿ«=ùß'ÿúo:Vúèÿô ÞÿýÔýßøèî¯ýÿõlé·¯€¾¾¾ß¾Rý­®¶þÓ7ÿþñë½@`›á¿qÏÀ¦Y>%á,ƒM´6=®~qÏs'!päƒëöb•jÕód0c‹ :b>̾cûS/ç&Ò»ð܈ÍÇé+k7Ff&î>ÈÖ$z¶LAt^±8 ¨!Ia .©‰f_2ƒ³£Ò>Gp~Έa-£ÌE®,D‹5Ô÷öO÷*µHÆ´«i­iéèm+hmnO—*&*íinëhœžYè îojì è^\Þ­þº8r~tÙ»^uqÿØSð°rÂ5A~ð±+T“Ui·µë{Z$£ý÷»îŒÝâ*´…._0ðŒ¤ÉøhKXo4ÅÏÊ>“ßGÀ99,C(n³§G³·´/-šˆû”‡òm:ŸZÓj_Œx¨@ÜR,rõ¶¨£?µpÄÑŒ¤Û>`<Ÿt|¡HJ¶á!iŽ·ý‘¢´P¼dzÑ~qNÇ;ÁøAd»!DI&y! DN¿s»átU-!¼6pH¿s{Qä%-{¿8ƒ ŸÓ&üÀÈ*ºÞ“Ï-DÞ“ψPb«!ûñ÷Ì¡r‰*]h† Z#†Ég¦+‹)£· ¨a®…2¸çÉE0F z†ˆ²¤¤ ‚u'ßõä–²ìýdŽ°œo·qu’VŠ¡|º 7è#QW䪆yá£í¤uC Š¸â `;®i€Â3'íNï%ÅùeÚîÌÃ`e¸{¾š”¸)ðÊUQ¤«h<-K0îR]³ˆ1-©¡øRÚ…B¬RÚÖÐ'•×bê` æ%ê&/*ìDWV1š9SƒwÏ2 Ù –ĵ_6f1 Y•ˆqRã_$ ¤h¸“w:A„%Y왉ۨ%–µž•a£;#ÑAnb_ö¾õRÚQI¿¦o€£B ­Y64Þt “TP™÷O2Ô· j„tëÆÜJD'ÈwÐ øÒåÁŒ™­ ”éžÕ¯ñ ß5uÇ)2}ÂÁ˵Aâȧ$.°zœyX@7 Xä‹ ~è·$q%0@Ô}D5ù™Óä/o/ã¸.?™æ±7ô˜m…iú¼BZõ¼Ë4á!Ló²Ÿ ÏCUªz9ÌpFË ¦y=¢ÕÛÖb y=­À“x=«¢q‡X´z»H™ªz»ì`Œ"ºì¤å ^[áðñêXàåy¿›>¾ u¦èö@òšÃùx\¯> mø x|PaÍ.}Øg|ök¸â>ïÞêbw³ÅN&ý8îs‘"K¾ˆÝ¦íoisijŽ¸±(¼!tòðáKEÔd‡Fàò©§É8Ù_yèÖïò/üODŒÅæÒ.ë À(¬N¢h‰d3Džˆo )¤c>” ˜î¹ËšÈéu¿“Š«‹ùäæ–):’ËNñÍW ~)Õ/—Ë, +–*çÜAð]VûRNXªtD±ÔôP¥'h¢ºG4ªT蘱 zª(¦’ ¡X¥H©{3ª’õE)—#Ñ€P|`„¼öâHÜdyשÖæÃB_8]¡µP•µ#ŸK1èÅ.ìÀB·]L}&,©¡%òXÿŒ˜&Ó‡Jÿp•8PÖ¿T—˜iUhiñ  ¾ÖøØ ¾q!ZluUsõ,fâÞß8˜TŸ ^©YO¡uœæœ3ë¹N,!€t®ÁÀÊ®OM•Œ¹|5:U6¢x‰™`¾u÷šœyÂǼr¦{X¡ÒFBˆo¼îåõÐÔdêóÍE/ˆŠ¨E·²øiTˆÅ![-²&„¸béX¦sVeÜqÏœÜz»ÞëÄ_Xb/Tª%jsž|(éDq¨eá,Ò²TŸãæyNë 8i|Ÿ„óeD&ª.¡Xâ€BýeTe².)_c—@<¤¢«?œ‡nÈ Ë'œh¾øeŒÝó.j`ü(^~÷˜!kÌiŸÃ?®Ó…ØtPÉcœ3±vŸõ a’?ó2íäUdÓ9~Ì· m"®ÆXðóý;—òª\Á×i­…îUãXšü¼¹wS톡×ë„|©È:Fúykš›éÞ¾ S¾C4JÊÉ2—Î(¹5¾¹’Cw,j“º²$ÖÉ6áF.*x÷‘é/KëÉ‘oöù Q?ÄkZóôÀ¦Üºt…š±üÅM4AÕãzpB[{'z¿£·³/W5Ö›2ŽÙ•Â±yd£yiÛ¿4åe¿$ñ¥+i¯ÛêYã \•l¬e4(µTÎŒ[Ìí†OÑ(áæ.F‰6¯¼.²4¿XÈ= ê³'À(U»7éQ¦“ Ü Ž2WM99&ó²&=ϲÓ{·ø3~ X¦Øäm­ [·útã熿œÈX³Ô[9:êãœVZ9ÏUÓœT˜g6ëàµ/YÙ%mì˜9«O=5Ór\*¥qV©F:–oa8·Kiê¶w^25ÏÖ†<šÇŠ÷ÅòõG:j^R$»øŽ½\_à_óîÎ~Âu©#ÝĹ²rpY¥Ï5ÁáŽm¶{ÐG"zÜmepÉh®%ºîÍy¹}µÄ6HRZ ™m_:Œqˤ³o$ï´¾Ñ\›M8{ÐË*ºìJÛ½BÃ=õäk× Z¯ŸËN• hD3.Mgª¯ðò¾Nñhö´÷M»ªØ_-½:ßÖ/=%oŽ¼)!}²ð}>ŠíŽ}0SÞ‘IÒ¶/›/^1è¹/¢¹ž& An›Ñiâ®;DàÑa0üm|HVÃnL¨?"=AÄ‚1éS¾ß\‡N¯`Üä~Õ´z­s?U確Ui £Å1$)Y¿‘Ðñô·³Äiâ†ÑˆÕ.7µoè *i]¥Õ\¼)pc“¥½ï% ÝÐT¼Ý#p,ããpÒ=#p¼§ê½˜.eu Fïaëë÷{Ûçìçz;“10Mô@ú‡“WóÜ—ï“=}“·œ×SpDŸþ÷€ÿëýß¿Oü/øÆ¿ßÿ±003ÿ¹ÿûOÔû¿U óÿÚÿý¡ÿíëëÓ¡ãôóóûTìèèøOßüûþï×{À×âåÔ,Ñ…&Ëf˜þÚÿISºU¹T]^þMLTç¬ š0]âðkÿÇelÝŸæÚ½M)¾¸Èo\ë6!äÌ}2õâô>rygŸºzûéãëçìãîæg/í ìš”’曚œ•è”‘”âQW&PêWZï“ÖXWÔTÔâÝÜæÕYìV:à¥Y3ÔÞ‘œÑ8›ÝÐ0ݽ蜵:•?¿¼²¹³¶7¿ÒëU;<á9rzrþcfiÝ£~y{)ñþàá9o{ò”­&»K ”ÿ1lªŽëßR…m;³Zzÿ9q•LFc(ÐÍ€|Ï2…Gçö“ 5졆 /ÉYá:t©—õ@‘ò9VŸ;†Pþñ3ZŒÂH ™S?2i¿þÙfîËô¡BÆÍ+väù‘´ÿp±:,Ù,Ñ©2ƒE$éùbË ®„°ÆD† ÞSµ f±Bvw°> ê”êtèà˜óÑÑ2‰õÙÂQ§«®E¡0S#»E¾ðs ƒãž ¬p÷/uê8´'5Z¬î),k-ögYiM©ªúí¯nÍF{Ãñw<›-v†+ýÚÂÅmu!v¨Öú-wgÛ}áS¸f®è6täu¸áoO×{K*üÚ]oÏwgSy >¿ýÍ@ȶ}ÀPM¶ßÿùÁ±üÚÿuÕ‚(˜ìü“ýŸ^(„Ãh éïû¿A²½’"“¥¦_û?®GôüH#”ž¼èß5Á ¢C1"¿k‚)^ âe~i‚EËB“4œNˆC䪞R ¢0“ ‹J‹âaZÓm^—ImMBí7K²GŽ²}ŒŽsì&¹!«®%!À:ËÇÑ<ùÒrf¹…Qi"йý-äYjmªy…J!äÁÅF«ÅEf§%r¯'¡Ù“«Æ%~då@í·£ÇÁU·ÃDzjfáq-ÇÕÕ„µŠÊ¬”4ÑŠô:ŽÊ²d1NóºU–Ó‹¦)Ž3ÊÆÆU«¦®¤·Ó¶~5ª#ʪ¶!ÌÒ ûÙðªŽÇ:÷Ë®1Êë–ÊÇ·êî—MN늫M2ŠÚ‹º1ê¶Ê¶·êZu®›ÖÎÍtÛ2œxwê¡[ˆÊºëANªæE-uÛÁ·4ú^¸9‰šÁª º¢-›\š·³Q®ÏççcgVçõ“±ŠÚ‰M«a‡q.¼L‡²¢ ò*È«9V¬ú!É'‡qžl §e)mæéfŽ Êzg › gg%®XÌËXîδëLë80’O;ŠÊgO… üV4‹3b^5=ij¶Î1‹ÇÚœÑÌã¥üôRÇ“‡<@án€TU[bE7Í[|í”U{lãVgtëÕå[D#þûu?šõûÍ0iõûí8ëÕûÝ´0íÇÝ·ìªûeãêÇuç+Ï{uôàîä©\ï…ð,¶—Ãfﯯ¡ê´do—툼Á{Wýñ®?ƒ^°R€öº>®Ünûb®{ƒZ˜k|$9rr]rÁµ¤¼ë0U;ó ~ЋÊø¢ à½ù%ÖtÁ×øk¼ê€ ¨|…5ªQÒáT_‘1!þbóõ„ɘ³ˆÎƒº?Á|P áIœ.ïõZ˜7"·2D¸CÙž¬Ÿ¤i< t,°™UH1m‡=§sÐàø†`$\‘iï|ºå;Ьtd‰¾~ŒOJk¯­ƒ†Üô¹‹ð÷[1÷€|HÑa~ÌÛ˜‰-lÿ _Q±1D¾(¥CA˨2È› $¤¡„ƒè;#oÔç5ù–ŽµmÈÖ4`¼*h¯„' €gÅœüé™öµ’è»pHzÑ„=­¼ÚO•UYð&¦¢ú rÑðãþ)E©â‡=r‰£¥¹gèyÙOÄë’Ò¯ìÀUÔùMò§ìRø“õ¡ef;:$} $Š)pŠ_•}_§íø/+‰OTâYØš.P*awxÛO{,ãbå§óŽ5úž© ób º›r™r¹¸ A._pÙR‡–byPÓbŽ˜°FURëvšãþØi¾Ÿ¾ó[øÁɨå±øå]›¯¨©•d=6rÉY⛊KÍí¢6µßïZˆ®©¯#j7¨m;§KðÈ×-˜³¯jo+TjζӞÚvÅcê‡~_ÌÛF­šÇ¾Ÿ¾.V`yä¶ô›=Ijn÷,,ý.+¦xÓ¶yÈ\¥:0ªu¡Üô¨ °pØhJîx¬6´7š{5zêZ²2öWÛпYêñ¹~ñ w»¥®Â,ã`>—GH/k=â:¤×øŠ¬,Óûol¯ŠMˆ>Ýß‘F©m°ç¹û\ÎY$}ö¬ùò] ©ÂOÓÝ—­W0«’è×þö¶{4ÓF]ÖgÂíeL¡>eHâáWÀ&Hœ>ÐhJ£iT}Æ‘ÄÇZkŠ¹×mP²Æ$ ÚÜg'„žLHIÀ14û”Êá¥ÝÞ™±úÜŒ=jC.©ä ?áë Ð!cr(ù‰ð\ë\"BcÉŒ‡)ž±ÛÌÄ9C +ì1¯ñîL”ÖC‰±¤9s=ûhc3µ©–½Úb#K¥¸ä¾¼ykHc‰z§…”{ÐjSƒ¹¤±1û ´¤SUñÊ™±0çê‚sIù†™ùjÓš”QóÏs '·•Ý¨æÜj æµµg'Ö–ƒ kιµåe+‹lï‹S-¬Œíi—Þ·‰kŽŸo«V“NÁ;×îͯK1ƒÏíX“7L¼3C4UMœRvAÞï%Y¥4’ä£qí\ã¤Ò6£€Û4XÎÃì—"ËÉ;€êžÇ‡0+HÔ¯(€cé¶Ùä_Q'2Ñmó‘^gö¤í#ÌQ–wyŽè_]5®ÚÂ8kŒ‘3%IÚS&&ÉÏëT.t8]ÌÝ ZüU/ÒÉ ý-žh÷2«î%Ý~kªR6——íÉ?¥TÐW»Ã¶¨ö>œ¸×Ÿ+e³íe…¸ #fÇ#¾;šb»º@|œžÀ[èfRî%eÕ?»Dí/Óߧ{^¶®Öœáæú/Q2xþ|ûdêhå>ñj­þÃÛ‹?ðq›.MP'nS9;EWÚ=9EÛ”¹ÝÒc<õááÆûŽGìå6¶õ1æý³° ‘êMÝ0èÕ~Y5Þ~gÔðö6KºI•£)+Öê6tŽwß%uäÇ;t1\pã1ð¡ýâùõHjAP^ÉDÈ“Õw'˜™ÕMÁÕ•Õ\Å»¿@ÝeÐPéÑÝäV»YÙד؟-Å_B!ΓêÉŸ=€Ÿ-໋û,ç[0±HJ@¿€DI€Ôs€$ºŸT ‚J <›—Ê2±xK ðl – ‘ze‹CIJwKž¿ÕsMˆˆ¬HP c°ƒ‘¾Kp‰A°Û0§Çr°»K J_‹´yˆxr`ÀZ3©˜pX Gd‰Pô°·mŠÆ¡c¢I¨m~ ÐwïT¨¯€óÏ¡¸·¡~ !ø !ìß½}õ¾å-•¿'2ò×É óé Ki +já/A«T!i:6hIan BkV ouèöþáÚÑ;º$áq®¿n€NÕbø,é®I}fž ½ì·1Á§®H8øñÕNŠÓmÊo–Œl3„ ÏH…$ªñ)ê=Z'.BL!Æ!zjå8àÂ%òª%*9f¦Ä'3$Š6Nž(#*vØg;ÏÌ%–%ö-v×Dæ{BÌù²ÞÐñWöx¹¯‡q·d1 Ä#qœ ¼4½Ñ$QðßýDìå%ˆâÖEâ–ɘƒƒãFã±&qȾà*R­Âü¡s"±4z±ø© 'QJw ŸãåÉíUãY^X£‹cÔGbvtÀ•”L1âÈâÙµ•bÔN", ©àU”}žâTU…õÉÃ:DOC’ òâ{‚¥¨cåýðBîؾUú€˜Æ„å%pª&k1¤·€&›&n•¤†CG’åãJ#¥¥F¨zfŒ2@1ñ%=’¥¹å¥T­D¤“ž¤iø¥¥‹¡§Û«¤‘g4¹’f•†ƒ©~KQ%í!'(7%éMžɘkåXXÉØðn3/Ý*óÇ ÈeËÚ/MÞ ÉڒϪGUɈÑBÏn þž½ÎâöêཛྷÍ{› Ô ‘C Éaߟ·šƒ0„P‡Ì‘‹¢–«šC@p aY“‹½šk¢Ê’“‹Ë‘Gtšk“{1†Ú–GÕ†G®öŠçÿwëŸáÿ?î6ü§ò阘þ1ÿ‘ñOýϤþÀÿ1ÀV@·ÿSÿù³g,ÕÞí‡~Çù¿žµ­èþ»ÿ×À4ˤìoZŸ­ß°þZŸß±þ>TÏ/ÿïXÿÿoᨠ>M:¡ý« Ü¿ÅCªzíê—ÿ÷Ö÷€±²1¢´Ô2µñýÃÿëc­mœJŠi “•–‹ áož•’W†‘“SžWR_œ\Û‚QÙ”]ÚT߈V‚<8H <3úi‚jŠ®y¦º mf¹›êGÑ8J?ÞÌð<úÊøÑÈ ìÄ9ÑùâÜâÅüÑÞëËÜJTä]sÔ6‹ZbÇ—´IèìsuãªÝ°ÒC`€õ'2¯cÜ 0‘Ûµao²o~\!5 ¼þ°˜N)賚O½ÑG¾*·‘•1L¦þáb˜dK¦f•*‰\iš g×˪“i¼Îþ--`2…(ÍŸ„"(ÿôX Š}6ëwÿo†•lXá’DP´ÇìIiIQ™ªfYI]…9dõ¤Tiü~ÙÙ/ÿoyaåù/ÿïyí0  ü—ÿ÷ì¼~ú—ÿw^Éü—ÿ·ü¢iý—ÿw;ˆ’F·<Éü²õ¸è¬¿…•ì~]÷zòªã~Ñüªóù°üªëÞO†²ý§g­0šÅõ(ÒŠë^8Öóë>$aª›~DJán B?4S0¾›!ü`ªÛa"y8Ÿ°õÛŒð]v`°~ª»q¦%‹» ¶£Š»I®§ó»)¾½q°ÑÌýV,j¼UúßX/îç±@æ`=ífc1=z»5–t„qø– x¹™õõÆÅï;Rq£µi>|G:VÈr³_ñà¤vÜò¹ò`ñAmkÒÀ:ÚzÂéÊM¦œÔá´„5ßo2DS?nÑÃ6´rùo¾ÐçÆg±Ÿd@V¹MøSö)›)ëäÄ«F6šº c÷Èe¢ãµO<ÛŽûqoR¯,8nÇ·4¸€û‹»^ïÁp·3Ôxßâ‹ŸÖE$c¼c½ v ve}›Óä{ñ²ßߧx«;Þ'Ö¨^ߋ导” ±¯-P8Yé«œÂâB|Z ¨K,±w§ÕÞíQ Õè„T:8>ó¾I{=ôeOž?ýȸ õž}ÃÛ®ΤÀròœ•ñ4I/¶…•vEMÀß4ñ¹ÞÅŸûŽÎÿ:ðûë=+Ë|¦L ‡~®™Ï?(¿ ÀŠ…=J½Mp7§%zOµî‘†à:ør5'’#„*ÒÊÕÙ5‹[¥»/"Ê+GEo ¼–¼ÿkh[r.B¨u’]ºß«6/7’m´Dð[‰ {7½w ÕÎÇqÉwBëè²ø]wl™Á $çÞÔ¯à¡bç-q8|º²¶*bnÔ¡Yßq¡c‡EµNíìsà2Ⱦp'þ ·E+‹áÀ'σé<Á155 Aw0U»-Ñp¼eé×0$§ÜѬŒÇ2¦(`ž‰µŽÇ×H:q½Î€l@H²¦" Âà'F¡B¬Kò5ßo#˳ùfÍÅ%ÍNÂœ¶¢äÝ™NTñvŠ¡]E­òùÔéWžeºØòå±Hò#FâÂn |÷>û^1ÉEù1Yày–Î}§Nuð‹Ð]Ç·i†°ùlÏxòÍÿ”1"²@}]\óP.ãKЦ\ð:â˽˜5!’zhc˃µ1‘¤â+£ju‚tåF¬c+RºJ —¯°$+ß]rÑ<%+͔Ճå2’b™©Ñ úWWWYª¡w–×æˆ<–Lj¥›¸–É~‹­ý >´Æ[SÇ:1¬a¾´k&ìÌ5GÊJ*º Vš~Ι"–æjd빶 Qe%?²‘·Y@f‹Tv5))8#BR:©üÄ Ž"öÔ5™Fä͉n6ëœtá8XB¨ù'’Æ9›¤ xFQa‚冤¹°HܾlÎ,g²ñ gFtÕ}â¢3•sýQ°f׆R¡«>ê^ ÝMK‹:FÁH¤…ŽFc%õˆÂ(‚ñ³e@´>S¨õB'4˜ZË k|ãxxÈ­úŠkKa%(+!<ñL‡ò3±ßÊëehç¸jøÕ„Š’ W!ÌÞªè¨a‚í ª6¹-¤˜O—+Ò«+ånãäôF½ô[„9¢þp‡â}Zî™ ¬zÝD%]#ª¦ÿk}êàMðâ‰àê¼|!ÇØ©’üŽ¼2³Þš [Ëëb‹yÇzÄã+x…Šµø¹–»r·TS]òĹçÛÊtTSC±ä…™º:ä?±,ýYÿÆú_ÎÿÿÆ 1ÿ332ü}þ =óŸùïÿ‘úcþ‡úWù?¿žù‡üd0»@¶ßçÎÄ,•IK,§ÿ>ÿs¬#óýeþ—K—ü,tvêÖ½M'ß×8\·_ç2aÕŽQ#áá®DñÜ¡…·õ_\_HhXx„«g`t€-APldJ*(pF¦oF:°_NPAZq‰w²_¹o¼ DRbiCažK‘{NkcgWx¥Ï2Ç>¯ÁîÆ¢‚Ìæöfש©Ü™¼¹¹–Åé‘õaú¸mÿÍõâ±Õ•ùŽ‰¬Ë“«Üëյîdxð-g¯Z÷j§÷ÎùIÜ"§Iäªò#Ó\£;\ ¦góÄnàWìÈ>À^ ›ÚÏOë"ô_8\o–¿õ 2ä ˜»«=GTD`Ö‚í“Yu§4H•¨V’}OYBÁ+_˜HãuÕ à8ü„˜ý5Õ ¹Œ)· ù SBMš’¤˜ÍÞ¨3Uç[Ñ¿ÊÅñt!Í «|MƒÊYjmµ™†žì…T¿¹ÂÊ@Ȧ eaAw8%¼É>o$”ú Ls¥þÄ(P&à‘ZV1S [%™Np²$aQ·vµÕã\Sð|½7O©}éþ h:_<[ª³íál¹Þ|k²³ýéj»/Oº‹#¬D{ª«ó×7–-Ýý×·5ÕÝ øù¿éý_\ß#8ÔšœÙNŠ’ÉŽ&ÄNà\_[òWb¬ “ÝP²¢–­Õ„’_\Ÿ A¸X ÙïZüÈã“ã½h¾Û¡=ûo¿¸¾sxSÂ8 –Ò¼8)!râ0)ÓƒDT¥Ðƒ$ ‚Ãd Ò­d½$Sƒ¬ÒÃTÓª’Ë.ò£DÛIÓâxÇÍÒâX×Ë“âhOyI„/‚™IX nYH(Íéq`$jˆ Ðg9̼BX;¼"=!1üâ{_7¼¢<;•²‚ËXÌR\·W¼ò«ÙeÉ de»i…>EV|¤§ÌŸ©j~FKkœE¥˜âæµÝ˜œçn# íe‹râu“$êTõ+0å–MKIk¹å€L˜ªÂ‚º3«ŠU)Ê‹ŽóJXê†G!Në®—¦!ëúç®ò«îyŽê*­[·¯üà¬ïç=]›°¶}J´](õæ7µÈêµÝÆTµƒõr7Uˆ0ÖÃK~X7#—ag7ýxÚv=»eíµ?XçFkZñ£=ªzQOÇoGHÜÇég!æ$ê§8Y¹ï&Ö<î‹šÓ"®}& ½:*ô…-™ÇqŠ©™æd¶ÄÆË©u—Þ=?zô¬©®çoÛζ\ºq®º¸~âØl1¶w²Žb¦½ÞÍBª•ÅÆƟ꤃Ç+Çã)±šš×:Ø›;˜—¾ó–µ…:T_røVvÓ¼…•NY¹ÔnUµ{´JCŸˆ&7¬Ã€L¹]8Iv\?@O²¬ß}p½GvŠ—¾ßÏD—=ÖîCàeop(Ñæd\qqï¹¹{-O&Ѹ®ž·QŸôcýÌ}n:léó+wøy‰Ý-âÔÙohaûŠ `h¬Kc4[¢T¿&z®q£u°¨Ç~Ôiè‘p´@ÔHŸ½/úÖà8fš°Ö7lÄwú•VØËLµ˜y:a}s ’õ­ñ4N \ésݵ™¶Ö&‰ ;ð >¨dH ÀÁgM¦x‰æ§ie`€ÊÒAÓ•=É9jÇpŠ±×”ƒ a2bpRݵ„!ïiNw°0é¢mô—4}/0Ñ¡AàÛÀ !vñ°`UUl” ak‰¨Ü­LRÇ~Cé¯m]¼û+ÙѨìdiB‘Çg ùÖ"ź8I=\Mò1©º¤¶|bšö‚1M«Róè"º`Ñq=Ì»”ùO³Ô;õD里ÓELÅ¢fjwiËãF,ºÅ㼇¤Üû/_€E'íÒî2Ž%Š9–F&Úî2¯#Š¹6DKmsÒƒæÙ지ÆÿªõŸvÉÉzGéá6=’|?·—|`Ó‚áð+ä>}òÆMà }µÏ½M/ñ¤ :Ö@)ÀÑí*{Dɇ›8bmƶbw40‚§pNë*ÃüRη½XÜÄzonÛ>ëàìßexééãºñúÌ\0¿PêøÔ¦yA°ÐzïKäÖx¶”Ç,Hi³p:}9{Ô>äx¥1´6þü®Ôt_Xé¹T®öÁ“ÜM:`M‹ããõ%)ª&€8Bo¡½P‘ ”bÚý¹Aš›ÝcçÍH¥&{¶(Ly|µýy`~ßÈð·_°ßêó Ûdm”óøírOÕqÌ—ݯåuÃBVÄqñpâ÷ +Òü^u°™T†r4­£6m I­(Ô¼¢cZEŸSú¸ iâ_\xìãA+ ‹['š<3ê©ŽØí]Çã}\ÆxÞ^¦|÷œà(»üX¯Ó!RLN×Gø©­3_ܘ H‰ND÷¢f’&e ; %Œ•§}«qÅ× Ró ´²Š‚ˆŸÐì˜éÉ/LFÕR`™ý¬p$äÐBö¹gÅ=stîF–jÊ«B%;5쇗ÝN ÏÖå~0¤ËLF=4êYB»¯a7æ\˜ü#ÔI÷Ô‡ýÌìê.moå0ÚpFóMAÑŒŽXÎ_·³ÌrþLa¾’³T©R*©ÔüŽG¾XŠ­Ûd, ¬¼™n½} Wê>îrÂþšz™õ¢5ࢉ1XévU; çÒ&BEyªÄWL>ÅxhIYWØê"µ‘"±!yTèœòÑ´©Û¾¼±Ó,Ó¦¨]ö%k#ýåæh:_Ý!ÃM’½{†¦èü·ÔÛ)âJp4TþþÛFCâûøï'ÄÿÔzB@ ÃAáÿÿþ‰Öóþ+Ñ FÝ û]ëÉôGþk‹n¸_ÉÞ_ó_E £Q_Lþšÿb I+Ö2™¨bTzðKëùù¯N¢; Ê ä|鋦G™.‡¥¿ò_['ÓiäŽrPÍŽsCHÊHr¸'IKòb„(N ”N‰óE98r 3œNOŠsŠBÉ£ƒÌNKKŠ(NJl“ÊNËk)ÊK>÷ŠfÔþâ zN+«)Îkú¥^Ëã”Pç]+ŠFX~ñ?i/TU ¿øe-,ªæí õŠæô0óËÖŽ8,ê¶ó¦ð²6û6Ê«ŽÌÞ_ù¯üä¿ZTú&]õ€5·Zÿ€"•8üÃz^“ÇKuÓ÷IÚ‚¾÷‹v…m7†õ9±—å¦31FÜymNvGáHõôÉp˺ÝÅQªÝ„J/öÝ¡)ã¤Å&\GºDݸÈçÊ{^,IOñ!¸‡9aÄÂi¥¾ˆ†©úsÇ)ûº9¹hK§¥vh›üå¢Jâaơλ%»%œ§)ΣJÇ —vj„E'ÉæMç# —M9iI§Ù·Hâm>X\æ•pëdËxaVëFÔÏN§"Kg«—}qeMæås)ö9pÀóQÌyÛaÅ7Û¦Ú\çÆ^~äËyWïfÙy•¸•û)áZ0Ç<;÷Ãr1(^G@Võ}ýãÛþ²|çãº3oéíF0-à%!-ðVÖ]ù˜³[Eún0;Uõ¶²š]på%ùÙ ÿ¨/°Û ÞÆa¯\;á™> Q¥?~i3‹õÇÑL”yÊÚÚ:SHË1}´ŽB”w1lœµÿ4%f7 [åz¦¤¿äÙÊ“zßÞƒU«6döc/ö-’eF<lacߨ"#]EæOŽ–VÌ&ÊLdó¥6øZ€ª`Å.rvI¾‘•£Uæ°‚ñA][ ¬|´5GA#ÃÚpàŽu”>6:’Ø(‰½ôà6¶ª/Ä­®Má>øÉP-¦ ´£á!.ä(ñû|"`ÑNŸJs-šû xåÃÜ.C‘û\^Õ®0†ønýœ¦Õ– ˜ÃIÿX‰uÊô–ŽfÄ€IñŒ'áϨ•e㨔ê¡|àj)üFA¥i¡!¯¸Å ¢ÔF,wÑÚ~FyR.ÞªñžÛ s¬}¢“Ì‘õÇ Jø¹ŽmŸe<Š¹”D›<ͳžV8’§¼6ɳç¤| aS¾È YÜ%œŸËdrûdßÏ„VUç¡rã 1ªuynÆçãÄ ¢ÏÆII-è‹*Ÿ¶ºù]æS5 韲ºž±M”J9·å%Œ†óÁ—ɇÉg#?”ˆH–ÉYÌr<”ÊDRy¨ù”©=”©L”)5.T¹=”ëÀ—« ‰-Ö¥=T˜H–«-.6-‡•k‰-µ­>Týâ~ê‹–¾>Tû˜Êƒþâ’Dü¹ç²ç˜–GÔëb*©ŒXÇT{Ì+s4Í…×–§@‹ $+ñÂgçÊ}™+Ô¡sY:ËCìÌ—6n“ª0â.¬Ô€Ö¼LZìÔV!1XÊ~!­ðvUîê¹J -¸ySrÕí막íS42?85)”ÛŪ\(6 âXÛÏ6NÜ9çµ & ¬ë,=Ë6÷.Y‹Ÿ6d<£1uàáSJÀ‹.¦Î¶Àßl^¢dhAô)÷ÂW]û3s)Þ¢õþÌ´ ±VÓYb#œö NÓA GïÇpªv ß¹ÖkáGQ’¯TÈO+éfÂ`2øTøÌO99eª°2™ÒEŠš˜6®Þ¸œÅ° Ó’­’Uä ² -YÿÊà~<Œ*v›Peá`_g=€9q7£ñzDbq¿øu¾ à®ûožÃÉxš3G¾¯ ¶¼»VÜäG»qSfõ}=ô’4"z‚Íe¿ŸCòÍDy¿õáìž&{;{½°ê’CêcñVñ;ö~U¶z'õ&"ñ|rÒ§+öAöaK²Ë]ðÕ~ðn:ô%hQìbö#qQ$vñ#]özkv«/ô£€òk÷§lÑ`2ñkwô'öC:öó:p¯ù E ÎK t¬ ®éè a¢]± ƒȘ§*§¨ô¬/í¨Ö•¨ñ¨s,Gdðü4 2Q T(ô·Xú¥õD¶cSêÆsr vI vkÁåîö†ôAñc öfƒÄ¹† l ‰X‰b 3<Ñ‹o Nr MI ý穉ÿïÔ?â¿ÿvãûß„ÿ¥þïï?3±ü©ÿûÔø¸ö_êÿ~=ó¿­ÿû þ+qïú+þ«q‘ IP9A7^J †Ö¶ V4“kãÍ$µ¤)¬ «`§&Zx­¿ O+¸ØÒpï3™£–kƒÚRs|án±?ÛœhoþÿÓêh¹Ùn4‡c›ìh½û ÿáIÿ3þ¯ãåîxî/øï:6&ãðÞï7²H|ÀïõûÅÿ!Alù üÿ©<ã%üÿþšõõ;þ«+ ¹ŒUÙ‹"&éý#ë+œ‚Í7J ÷Xÿþ+ˆü¡Ã»câ›HoªD7ÇTGœ,dj'H°›$é§;r(Íe²¢ŸLêgJšj$ ”büxRaª•—$g “„`g—z”áhJ}Ùzœ ¦—³0Ý0l ˆ¡ç›;‚Œ~RPÂP¶[WgvR‰ø½nþu‘Ïz% U½­—Ý?É•&í4‹ª® ªbX@Q.r®B„"c. ~ÐÃÁQ”R6ûB–=ât¶_ÇÁLi©±ÀQ¥aŸ¨æÓxŽpfÖ¤ÛuvÑÁë÷†Ry”…’È:)U~Ù¸Œ¼VÒSîENÛ 5erÕIx@i%ë\û}^A¼¦ì2Ëͦ»½…NÕü’âVªu7 UÑ*+'¿<ê$eåuØrˆ©ûùF>ÁÒM²8F²œ‘ûÃÏèt`Ñ­µ²xJãn–bsüû(óðIñ¬„²fޜн[À¼§œ%óœŠ1·á'쓇%æ`îÝi“føòUvd²u‡%Ëæ ™|Öí §‹§­¶ÏMï4«ß³¾²c#X/Ÿ÷b~Ïú([½¤ÿžõuùr”Lã†b›`õzRR,…yPÖ|ùzV£Mâj‘=‡Šw‘µ†€w™yæ&LÐOì¿rû»ñ(â†T¤K¸Ëy½K¾§@bø I\Ö]–L¸}á°½SæÀ¦æí×Akøæÿ™^ó&éÙÒ­ æz&Ê“çýýÊz@ÿÂ=›k3¸ ¤ˆæ …OŒ…á7„ úÌQ“v„1mŒ$ ªÅ×cÌM¥yŸ JÆ‹dcði_CŒ,ÙáB9Š ¹èÌgB%SŒæ¸Ûý¼F£ÐökkÊåþ€µ#ÜŽ¢„÷—ÕiŠ½ð<΀cÑ€w`Ýî§E¿*“ZïüÛm%6ÞúrÜí…Ê®áú/z7×yÈ? z9VcýÖÁ®Y)?Vèhcµz¿Ù nˆˆYÄŠŒ_‘(h#|’í\¥‰£H)È•Ñé˜ÐeˆgŸ.å(m•Ž NHe,t±mQj»Ml]·ÓS[•KÌ+¤qÓz½Mîûÿ7,QÄ<2nT‡àô‹ÿ[Â3ýÅÿuH2;‡Š_ç Ûo¼O²Ò ÄéhÃ8ß š¶Ú‘ †Ànåªà³EF¢µ» Bžsm+à!ç?ú>´öÓ!GD€N(z›Å žîô…{]dÌM,Ì׋µ1€ýÅès­ öpÀw¤â2+|?b É!YY‡£—èð} ô*$döA×~¬ CvÏ s€ÎÉR»I”\•{=ðÚ^á/÷ëÊBh,þL•…\Ì_³Ï5„'fÆÔ/åsÌVä€gŠ-ÿªXÆ·0Gó¥ü»å&ÞR™’h=8>D{LL KK9¡tšPH#Sÿå#¿H3ŒRµí\µ5·p»ËOtž÷›ÊhèðÄuŽóKL ñÕ÷T•Õ‚DøÝÅòfv ǽäÄÓûŒ™¾F––X[Jå½€"×5¥ÍÛÖéÎtª|ñS¡¡Ôå‰*§æ±K·§ömøj—!ñÍÛ´§ŽcÉj·Ô¸‰Ç¶'Çj£³ †¨ÌD}çkqö«àîøÏzžubI6†Å‚aVßžD{²d›Ê·Kîà<4ÜÃ’²?+¹`F€Àª)ô‚äÙøq¿ÎáØ)qb'‚Þ@ÊuŒó£³*Z Í 8j zISÝ]¨o×ñ³äÛ%*UÓxÌ~e¬¡a׎ÚzÎD±¾iÐ{Õå8Ð5 þ0ÈmmÁ!MOÔ>¼/ò×X,€”Fíìj¥žãЦ£í¬Aˆšq f÷ºÁâÓ§­ábåË„V”Ÿ ñ·£×ºiÝ¥µŸ¹ð`ŒSÜBÂ>OzÕ$ø:(Õ 'w˜ °ºõî!—}Ïo«~4D÷DÇÝÎ¥¢2û&F2ö|Ç´’…„ $>Ù-eÉ_‰¦Ñ.½–SE]SI|v‡e70e_9vnjÜ6ÕÔàX¿i¦þ¶º<ÙÔÔ °Mü…Ć]J@4M$_ö®sûm,‘N_Éeŧh<íËò}J}±4§cÞ»h‚LŽ@8ņËýñlqVI ó©B–býb|Yc¹¢‡Vÿ.E^Ñ øHŸŒêjˆÎ\ÓÀLDî`³ )›§ÛÌ°&”÷M[Žåԗ̯EW(Ba1_hëÙVv‡"&ò¾`¥ìò ÀÊ6†_Ñ™HŽ¢zKµ³[ ÖvË»U™ÎšíLdi69.­ Ú-›¢›¯wÛ6H’',.å¶ÔÒ #‚Í\,ö>b’•º>ZtŽU}ÓË¢Ò[^n<? Õµ¶Ô¯>jà/Ts?ö’«§¤ß¼Ö½"‰ÄÙ8 Iª†Q’ÂvкÉÐÖaàÙ:ï¶ÛØ´d)fx!º°˜VÏ)x^ ÛZÄEÏßC(š–ÁÂovvr¹Ðõ4>å £aa"¯}¡rÑ×uVùÉÝVL¤ç£àB!Hœ4Ã(¯Åšê’$éë—º°8ì+'æ’+[”ÚNMŽ—fr;´“Š ;6uÖrQ5vZ¿IUW¶mP·o£W2ÎR¥!IËý‚¼ºåÍp*6q*CÓà¼Ù0õ<‘Ïá6U+MôN*+»|*I‰*â¬6#%"|ê,-‰iŠBE-ÉEu!6ý¢i‡e†aj*릡h I,Ã4‹ðÚ1•î:K®ÒR4·üôɈó°i›&ײe”ΪõØïÙ²íüÕƪý:_‘î¿ü?ïgÖ´úy„×=ÿÍÿ“üùêÿŠ²ÅͺqÅÍ ¶óù_ý?É·#úïå·£TÍç·ctCÕðÿåÿ)¥%ì†ejçGŒ´šŠw˜Ý¦™hh”âå6˜7’tgXû°×ºá(oUiW*3nf.?MRòFo*ï M«Lؾo»îz,±=ªL»\Ý™XÍÚtå,aÚ8 .©p–Nc ôÀ;a-!ìzvä»»T6´U¶ú +k]Œ·Aùš ­µ„ÅKkíž ·ûžš¹{Ù6‹ ¿.]D½õ7Ÿî_ÂÝgÉkât!Ô^ûTÜ!jä7)›,A$O ®–.´õÍÆQ<5kÃNñjjË–¹…·É\÷}>6KÃò£‹_}¥G‡Cè˸‚n¬ J+Šõ¶ÖÖJy襜±â²œ&‹Ø˜-O­ý8·ïèP:/{Ê”Jf5ÌF‡¸ÁHb¾­JÖe °ƒM«öb¦ß5At 0U“}Œ-§ý@%€ð®MÏ—Tîù¬ æ¡R†óIøŠ|#¯—Šœ<ÜOÂq*“ 6U$2@¡vS×£ q» ×ËGdH»‰0‘ÈÇ\di»‰´‰ÈÇ>âX½‰r߃h*BÅ!„`4èƒæ‹“…ðíÈ ”£> ü†B>¼ hЃW˜'N˜!`déóôýBc°F³Ð!¤µ—´OË@>,¹ 6rÊO§ã#“¡CÂIŒ¯‚© &ˆÂ¦TKG,ѪÛívà·T8#ŠSä€Ff"*®.ÕoñšSGŠe¤$êÖ¡ ‹é1dGq«2ÏiôXVL% ›9Ž¢Ä1n#¤›4_aôõKèÿû; ç]…ª”~Hû¤Ï)¬û ë̘ú±’©€ZR†­C™oBöàu%#Lw¢’æMWùÁf:»Çhéâà´aof>ßÃd@€IbA'°@TeÃôÄòPEÇMŒ"ýA|ò±5K}ïY»e#çýÎÞÈÄÙô4ö Àk|„µÅÆGQÔé%ÑN‰3º˜¸çrA#€Ô`˜½…*µÕ|‰åâ|ÑÉÒ(DG¦Œ=0±·”šÓ”•v‘ í ÌeÔ9ÊHj¾xdË5)3œTéøS)~ Sdì´+RS$S¶6—|©á»7å™ZM¹þ`,jÊ"£]õ4â«*97°› ¢hÈLX°øÎZ.!ÕFÙÇ d*¨,AJ÷i@¸cÜ`Àg+õ£±:‘Êâ̬ws´ Î…ãuZïÂQr–>V…ÐfIV‚®½ð­±¹~2"F±“c|Óm1“½dïÈIëD°IôRgàxU%ËzÎCHx,$ ˜Ï›™ƒ\?â¾ÿµ7‰'°<\Þ\M ›âT/ &”B/:ÔE™Œd%¼Sp7x]†a5ŒSCWíYúr9²Ù žRps9¶<Î ’:•BRë:J|]ß…ƒB¶ë:Á2C?Vó…\â6ÉUåÀÉó…]a%5Ù(¼#Ètò:¥ûijeÜÑé&ó%}÷óÏå WT¾Û¬‰5cTÒO…!R 2ÇBœihÀúe¤štÅr¯³)¸Âx¬'Rî¯s9%Â’§ré¯ó%ReʧJþTž ÿ¿³þqþ—ÐÕ3´04P6506tøOøè™Yþ^ÿÅBÿçýïÿLý1ÿç9üýÿÁÁÁoÃÿßú}þÿõÌoó?Ûÿ·ù;ïoólïä¯[‰>dÁdÇ›ÿ5ù”Êwò¶®[ÞËš¡ï:¼²µÖ‚]~›ÿ ½}BÃ<ƒCµ€ c­ãíƒ"Q¬¢Aõ2²m’SÓ¢sµKôËŒó Šlc²bë›Û3ܪªjmÚ;c4âG†GG»½~ ö%”ê–Lu­TõÌÀΙd涶,»nnîï-Ž¯-¬ê¬N_nûÚß>/V‚º\`ðêöš#äÝÀGMŸàqÉÜÑmç™Rùýl(ùªëßã$†uÅË ê¯tF)¥»Ü ë $ä˜Ì­ÚBÉ‹'¹°^ÞSÉŽss¿Cb|ø3‘g:¥q0»ÄøΗ&©Ý¶‡})PrÖhïò%©XVÒ¦$ájg¬n´ðm„fµšie<«Sèk®Þêö…Å­(ÂÒÊpëDÒo¡ßî({d´@©S£-y¬ßyes¿yÁ1„ÅÿP­?](¦¶­Lk4XͳTø˜ZäŽ0thèT•þ±µ2µ%æؼ7šÌ"©š!¬½4e:¾dȾ|xƒ+„]©ëÐ7çï[UÉeð¹ ÔÍV­õö¤¿ÛI;òèù9NªizZÙ;íûµåSé æO´éúZp´íßùÝeÊÉäXÍ;Ñ5-Ä)4=Ô6uy.ð+ƒ V8q[ VD'u^ž Åý .+n¢>îzç ¡¬]á\ÑàÊã}7a+©˜Lú‘õdD l…$CCoè* áôÔNè w$rWˆÌú•T±”}MÖÂÔ­Ü•/Ùü()¹·JXùoìiXxb£yßÈFQ‹øLÜP‹y](PKxLœJ‹ó„u,JšÔËໜ’ë ÔóŠÂ+SË(+h¯ Él0íÕ™¯ÂfèÃAeçu:Lê§õÓBÑ RÔ±+n†¹ú¿üÿ-'‘¿üÿVœmçMg—íçÿÿmþ¿êþLôÓ ëû¿¤®©•¤¡•#¿î¿+æ_õÿßþ÷ïù_f¦?ùßÿHý%ÿçŸÞÿûõ: êïïÿ ÃAüõþŸÙä÷ÿÜ/`a~Ýÿƒ!øýþßòüù²‡°Éú_÷ÿŠ,úöë^Ʊ)AÎøzxúÙ/Yôy¶Zè]~NÍ/5Óç$É„< 5?ç-‰èB¢Ä(C¥”Žª´®Ø„ø@Ÿ|ã€q[¥+Qk{Y›3…Æt«;}ZS1R!MmGgÅð`ÅhE;{§¢o_ƒŠ /{?)ãô-y·Œ}†Š¬4—˜„íì"÷ä¹L³Ñ„쪌rÏÐ wJ²¸Âc¶;|®åDתõÇ @"–R§ÓȈ±Re1lÜ ªõÓí3:nN¢ßòG"ðbÂ$²Ã¥5ë g(ÎVÝ€Rk_ <ƒ§¡ÝP0=” gd§X€~€›Ràù†c÷RÅ?¥ÉBo—©t}ÀSË–ŸöÀ?{ˆ+§lˆÀů3QÜ«=¿${9dH5õZHI»b[eê÷ÆZ»öižìÜ}‡Þ€'.º ®Ñ.À=øë Ü+•qN®xz×úKÃé™\½X×5cºâ°¯æ3îÓêã>ôØëë#¹gnÜa•™@ïܾá9š™æQY49TÙ»®Æ9-Ƥ^¨eÇyZ$£ÇÙÁ^;Çù Jnû9I0˜ÆEN˜DEY]¦Ù¹I˜%EEìQ¥Mjäe‹dg¤^m¥å-¨0å@ §”@àËjFUýmåÁ¨U¾¾*±ž‚¡ðÃÚi1qâz^õÊÆu3QËæ½³ü¦í$ØÃæÃË–Šº´Ëv'þpªŽ3wÊŽgŠÐËö#wë. JÊ«¦™GÎËn`ÒõóÑ4C ~¢Aק Dä\vØ…ýÈá¢ôÑûz #˜h·Q”´Ð· »J\ç#LWœc<ã·l8öï S p ÓúƒuLõ1lOØ7ÓÒÂ8Lóò„ý¸î3§™]â­u“úÂëµ+Tù‘NôŚLí!^–vË|,«ÆêN+ng–Jsv•ú#v”OÑNåΛw.[¢QëãR¶]vJ¯§=—vKæ5i1ž–¥Ätw×I cÉÆS¹z­‡Éšî.æõ¸$+×Q,ãÎúEù»É»©MÎmß9©²  l\²7)â“aûò÷ìÁ—\;3wáoy êÖí+æxûïZˆžÏ#RÙ]/ ùÚU¯a·KgXÞÚ[}íîûµî)¯ö©Õ­7ˆ¦ Ìk(‰´áŽß-Ø  ÒjHµk?ôñmPB‘è"3e»¹lȽ¥ñ¡6­ ;KR!üÊ¥t¦T;âlÍw#5ò´©ðÖ)¥Øi6Á\_àéQûðwmBÐ(ó>¹‡|ïþ¤±!®õ™úé»Õ‹ÀJ^AíK¡£àaáX0s^O W¡!½«z„Z¨‹PM!½ªÁý.ÚZ-qšy¤haç&”0CÝ'O§}Œ ¶.mŒ:!l¦•/?¡ 8„~†c ¾ãÅ^…ÇVl‘›¶|)½=¨PI9U‡9Œn]Ä3tÉOÅ® ëžÄu)‰]è3lÄ÷‰ É5ôä’±‰¿b…~gÏIÙK+ĵ%×U«K™×cÐ.Ó#(MåÎ aÖ=­…ž²5•Ï\Ä6ßž˜ÔÒ[/*¼„ä˜J´Í(××à2"±,» éêHåüQÊ>øboVNJw5ÒïáÆhÓ·²<2íew™ˆ‘~ÃïîndÌ®L_Å –ýê+—÷YQA°ºij¼õ.ó„oºÇ0ÈAoƒ¨TT3xzéÅ*·òì¸øüeV¸”ÖVúsÑtIãFãçTÿ=Si´/âž …â… òš%ó%Èfe•neD•³)jâåiûeUÔ5yrƒæ?Ê”¾•:z‚ZšgÕ¼~ku”šŸÍù•ÿ >øPåÀ¡¤ )®Ò øRcBøI tÙ8®622N/je8h²°¨¼Âð!påÉÔ©Þíôœ”v•>tÑ«€š:]Š’{VÍ!–zéPB­x„ãS2æ!؈xfÕH“BÿŧPâDb£6@òB´–E*_/ª¨ïlE²¸]FlõÖ,\BÓÞ_mc“ºE …&!(m.c¢¨r-ÃmnL+Â!«J=Ó£L‹)ìI´Í²¶móÛhm÷»¹ °ÆÕÂRä“#†í•“æNbîz¢•£c3+ÔRÂ{¬.>Šç^ôJ\oOõùeËä|‰·£Pf *œ–¨Qx²°Ðö™ "—"2ErK¼à] ÷§ºhÉš¸ÛµV èåNª*÷½·ÍÛAç…µÙð'²ý j—üïŽ5þ¡n4o&‹·—lOítÒOC˜Ë„Kãy}«¥Æ~õ¦°#‡ÙÃU¢þ—é÷ç»ÍƒˆS®¨€»,ð‰ã´Ù‰2îäìÈãïâ®3ußïc÷;jûd%˜U5Cµ©5ïÓâyL³x¨D8g'K)'̘ÚMÂXŽIe%‰¥TzKγÛ5ë;Yz»6™wCŒÎ4†d—åôŒQêÉOÖ¿­äBÚ…&GÌÎs¯udY[JJã«×/.W>›áXsÁ:GƯ·ú7½e45ÃkšcÚ›Í5`[7Œ‘Kû«ŽóÙtŒ¬Xÿöczá¥ê+œ#4a±4HšÜ“-Kl·\,ËQozF>¬|ëß2Ošè;x7ó/÷稛•q­ÂÊÇv/½Èdò3÷6œ<6@¬nÃÖ^×ÎÉïk“‹&[P—+§\©R̃cX»¾Âìkóƒ s†QvÁW¶ÒÙÍÑ4÷;®\ÛB™•Ü0ö¹ú©­=<ì?Ú•Ïé›ß·n¢.kÜ/´¥Ì’gWf—$ï;Ç°EŒO”pàåãÑZº³×Z†?]™y&_“1zœÇHH»Hi®±]8Ý€á) ‹®¶Gw6kÝùF“)pk›œ©+{šh^1t„S=Úv¹troœæk+^mQ\ôw¤¾mÎbóòä0P_ >xyŠ¼ñrò>Õ|hÖìx5…°.½9^5>Îuyl/=¼ö{_7^½ø +g8+9ðû0ë„xëͱ€?»ï}öÅG÷{,6{sö½²Ç*Ò#QñúÖäæâ瘼$K¢%VäÊ}èU¥ä‚ƒªŸ£ä¦Àjižl÷¶(q°ï4)¨—òèÞ篮çþÀhøÞ€ïX ¨M(lÇe˜ªhXÇêÎy¨Íf¬{ì§L-–£åªq¬ªç$0”ÿdóLnŠÎk.âb¢æ ìºäççüAAêBçIkLFO†{‚K;b$ Ú¡0ÎR!¨õ õ- ÕÍ|-yþ:N”b‚NÐâQN–)VÈFSãbÒÁŽbž¬¦qÄ›KƘzn ÂÐ:,ÖçÂYZ½Ú66!:…Qß/1Ø¢Ö9ÚÞ϶†ܳ¬ªaDUÕȵ¿¹¨âNµÌÆ1w²p,÷r —5^yÞBwÙ"ÑoïÜâàÔ½Bõó98ã9J‰ÄAZÉ_ÍEjö8Ö”ìà™rÁ÷ö{{9Æ56:$b3E‹=À™5–R1ö+yœ|¬©ª9 RxTb‘}"R ¨Z©šàKdÅðW¤¤Bæ¤ÖûØ• Œ¤xÂRš‘–$ªÖ(›—8`ŒÈŽç$çÒxWÑ$÷TkÏÐdøФƃIJ³q ×x)òß~dH\«ò7öÐs•ÈøÔT …ÔJ²¤"zÇ•pÏ—ˆŒ” VÕ”°2v‚"ötè'×d÷eµÐ“àúTFÕàfU¥ÌÔ¤bhñNhµöÖüÔA׌áÒÔž¸ŒqQðÚ¯Ó™³ì™ó¡ ;?€mu W[3×W2ñc2-ù@·O2÷U³G2Ýj€µSÁPä2/_² ®Wð/ ÿµÿ#þ—²v0ä·¶6ÿ÷@ÿ*ÿ‹ŽñïóŸ™ÿÄÿÿ¡úëý—µºÿûõú¿cÿw „>ô—ýŸP|ôØÌUëG×ãàõ{—7·Î5ë2_™qÉò =ÒÉ2 ;]©ÂK H´éÉ#ô(ÊJj¯é*>L£XkŠ˜Lùô©B»g™»ø«éÛêÛWqªëp¬s7l=‰ŒˆV¸u¸Ûu¬ÌËõ ÛÊvO"©ù‹N`R WMÖõ$ÒÔì奾WVì%·"í4"~7ÚO°Çžä«^WˆÚwXt¤oßQÀIWùRjz{àg¯ŽpHW{\1øÄq ÊÈÛ¢ ’E­ ½à_õ»ÌO&‹ÄRh¹-Bn‡S(8ÏEg *u1˜oýf‰ÆK9Ë‹:(˜H+Ôë•^€û«¨FÔVé*ýÃÔ*ÓÜš*¸S%Ò¥ž¡ª´ü Ÿ„:ȯ6[ý%å“ µ»\Ñh«z”¬Òüæ@š|f¬À:üIÇ3ž]D)ÂK&ß-ç…Iæ?ŠÜÛÊÒfšpã7š@d«_d_¢ðg=tÑ%é舔ǥÑu²,›à%ŒÒJv¾ªñ½Sc‰\gw¹Y 'ãh<ß]ëJ4KnùÚV3Åžß)×?äKÑIÁÎkJ/")j¿¸Ú@¸Ï8ž8îC'ßL…/ÀÖ„?’¤Y:eEBi„,Ó‹¨Xë¢H <m 8ùd3téæ$@ûNëÛ­¬”ôD¹O„|ƒîÆìYØù¾è›(Âf §“ê*+í«iã·'}øõK/? ¢åazš™Û]‚ã&’qšž-)‚çb iŠ{þab ê§ã³›#Áà$ÿ¢ó"1‚$­0Ó¢4«Qrˆp£èâ¼(1³Ò"5LrÐìÑ‘SöP/zÓò:³'³ØÚÉ0s¡F’³ª.³:ÊÄnsåÈ{1€E]NLyݤ’~~3øEÊøªšeS‚ÖØYê—¸`ƒ½Ÿ8Mö:ŒºU ý¢ù´Ë½¨ø²W¼i—@ݺ‹i³º Ð;RÕð!¤g9âñdÜ&õ–&UÅB†~‰®6>ÇÐC9ãb€Ð¢#ûû¬ )÷Y‡LXpo¸5©ƒÈ‰}I™¶^7ñKÜ-s u¶dö€Oߥ'‡%©ëó•ÎÇÃŒŸg­º‘ÕįǯI“|“•ÅUn´Û5CVô{©æ‘í»õ´ŽmÍOY—WÐóRc×ýñæïÓ9æ]ïo·\W3Ñ\ÀÃxÕï8gV?66Ü¥-‡¤]ÍðQ™àBóël>ù¿ ðÍA»<ñbcÈ—~ÀÉh‡Ìì“ô€©þðXÃZ}ÖŠ‰Ú8¾ð¶Cp‚ärt8ñCÅ–áó<(ŠøÁ…b["ƒ±|΂"GOƒ‡bG-ª ¢¸— Q €Ù=ñg]Íþ¤5Sò-.wÅĬ ¯HÖÿCt×8=µ\t};Æ@ ñI44|Zü¾i¬¡Úz"®•-‹þU2ìÓlnfEKêthã8‡ÞV¿ úTd45ÈšÓ1=SS-Cw.ºm×"Ã÷ôvã»PÕ L‡ŸãÞAÚÁEHäìb,¹ˆÜ Èß ©="÷·)¡ÄvÐ ™3îW7¿UíeÚÆŸž¬b ˆPPØ%¼Šg2Bã€qÇr¸ïíÄ”dó¦ÑÇXÚæùGµâžÖa‡+ÑJ†2=B#o+J–èÃÖ."Q$"±É˜†._‡*1‹«Oà•À¤Ò‘&êù ÷={o˜4ГB" ¾‡€/ÚIAñžë¸ðŠÑ±ÄΤ‹4°ÍKºÚ˜t“†þ ,(ZÊ^êP@D]**6›PæPH¸@ÖÔàÔ”2êPÄTiZL6¥×àËq#íŽÙž âèÀcvf6ßý•¹töŽT>´y¾ØŽªLÎ]±\L¶X/±DmãT¶ýT±Ð¹B2’LuÌl¦>l¡Â,óTeÍl¡¹—¹Ü"“RsÎl)L“¹z žR›ût©ûмz弊2:ÍfÚ8h@Hg µ.’¸¡VŽ¯"qvD26ã{bhE î‹Ç]x_Cªq9¾B!ø\L@× ÌÚò¨SSC%õ¼ tïôÌ×Z¯B¬+Ètç–þ/4Vî€á™Ž/7‰•¦/'r¯1|öÔÔÅ/ǸOað_ÂõLã%ô Û×­°sp1„dj†~’—¼c@îdI¡òмžÑÒjèzê”sÐåÀ^n¶:×ûhÖ„’ºÞÝ7ŸøàxþÁ¶`íC*Á 5Uÿ}qÁœe´¿g8±&Dø}Ç?õ¹¿J¬ö›j"²}rUPÄÖ.&ÞÞàÝDmTíÎî%}“¦$&˜ Wø¹· ¾2>n ŽÌµ§ =¡:â IŒ}˜©(¹¥«±„«uL©J%¥UÃ0n¼æ3£ÀÈú·sÝžÉ/±©k‡û$tÂ"&ô€#j´— Ó.DýÐí#ZæóqÿÍã°z” T¹àt>Y]Ùžôá´ýëÌ“y¦1£ã>ýž‰(£[BØÙ¦ñÔŠ¨]Æ¡ðïâ½mxÚ‹¨ù”ÛüÂ:^¥{è Ëæà—¶µ Ð,f™•ê°ÕÈÚnBØëu1™÷È6º¦éæå7yRRYxð+Ãüoq~`ÔÌMM(oÆ5ß"[3N1fwQ£I£ ÎÕƒb7nGž¾¯KR»xWU!ì÷˜=ÏI’13.ÔÐLWô½™q¾ÂoO!·œ¤Xrú cÎ4²À/µjI{ÏΦO„ ¯L\îµÎÐf6#’‰»U¬,R9†Jr½ÝK¥a1J;M$S[Û<ñÕ!Sª4ÓßYf 6]\;¨©:&ËZXs,yô5“ÍO¯ÚJªJX±F8¥ÜæG´œ’Ä—L®ÀJÕiî›xw/Ì£Û×øœ²?.-Þ–_¬Â:UÎ| ·µž{ðx\C•;VOƒ{ž7ëcu´Ñ/ãæ›M Î9K¼ˆ¯Óá„h¼Ž}UÕ9Τí²%‰Sõ)’éÞMźlî3ë7œ=ž§ò!¶+ÇÆ·­¡¬‡ÞfÛëð«Ç=BïËQmžÍoÍ/ÇâÞ¯óÕ nÃssï·õ+Àd"à:Üû}Ÿ¶ûe*p_îýqÞm üÿ$Ôù³þIý#þ“¶q0µþ]þŸÊÿbbaøý7ýŸúïÿHýÿ(€Ëþÿ{~~þŒŠŠúã¡ß±à¯gþ>ÿkŠï—ÿÇëÿO9ù¡Å/ÿùEvÇ/þ×ÎK$ÖvÄ‚ÃvdÿÿK,»ï8vZÏ[í"aäëyÐà&É>·|ý¼Ê¿v¥Ñ7uÅúÀç¥çóëþe0Ÿ~XTt XhH„Ö×$°øÏQ©š)Ù¬é Ayê¹Å´™aeJ¥ÕT*UuòµÍä Ÿ²Ú¤Z»q;ºÐ€‡á€ÍÇ°&ð~ØŒpõ#¢ÌÌMiM­£o ‡S®ð°/ ,}ÞšØQßľœÁ9â|b;?ût·º:úõ3›ŒêpÐ-êµAê\`Xh10ÙŒè }ªp(<¯S̬ž¿€~˜Ag,ˆ¶¯²€m.}0…Òªdè²h,ƒ™W¬ìF»#=EÃçÖWÌ1÷ÔáH¡lÁE>ßl†‘& ùrâÝ4†L5*²)NƲԯ!‹`]ìÎl(ÂöÈn@½¶\»·'hB(Åš/‚ƒƒ«ÜÉ2 IÔ}¥÷PúT»ÓÐQiCŒ™vcR8Û™ÞØ?‡m N'þl© §å ÐRýæX.½ºQ0ÆýÂF³ :˜q¼íú.¯rÙ¤X“ý°04ŽÀ%«­Þ÷•gé‡Ì"†Lºäe¦Çø`9Zº…nþRß×o˜ãÁÕîÑN¤¯EÂn€ ¯ð†¸ÂÀÈôê–½çø*¿ ÜøþTP;`J ºš)ß‹LÈpG‹²˜ƒ ƒHäzt¿’S„è…GG–H…ÒµDPŠ)ïÁå:ú/þ×À¢R¥e¶çäþ7â}ºe?Q?ä I[eä ù» ôa )…èa*WHèaEÉÈaz~*ôQ†¥›èQæûHèQþòÈQvÜ ôqδØq®ÄKèqŽM˜q~Ô,´i”yúo`Ш(-nÄ´XÇ †"9/*Ì°´ˆ&´¬8¶á´,ª]츼a1 ,‘”üõ(’úJ¤¸£èø·_B×ðA  ¤ÎŠ,œ¤Þ˜Í¤A'€tšæÁÑ.B¾*tÔ Óѳ$‘âk@3§Lú}ñŒapkºfŒ•¸îj™5Ê…¢ÓV÷-° 1ÐZ±ŠìQ•5F¸ä÷.m”àö«J µ½…œ® G \GBoåÁÅ/D›£<°C· ‡kãôÝhuÊ- +†š±ÇºÏ ÔýŸÚÇ!ÆÓFÞWfÁVT: ô6ôPæ$âu‹ÞTÔ¬4CÀè³vFN³k2‹Êž¨so¢E¦xÆOâzå¾ FJGVú9ðëMNÆ΃–m Ì3:òÉΘî”ZšCx€øæ!ЪˆÖÃTcKKW‚`\$•—íxMH÷Ï%sŸ›»lÄ.PÎïÍ‚[Ál­a²-,/ðûŽ8Ϊ£/k3&¿ºØŒí]»²i´!LáUÛÞAHó3#¼?vANUÝWsuöï-öe1¨Q…ã~€‹rQ n~aÚ 7×ö¾Ú6ã ª±–l¿`€ÎùXê:¹8õT. Þíi§æ"3ÙÊx|ÊE#Žò51Ýþ`(æ‚Áˆ‘æN‹ƒÊFï÷¡òÄÆž¢ái)&‰¼¤Ø¹p#í‰0 ŒÑ) æã9¶ Öl@ôæU…‹ ù–“ƒò :6P’ɹ³§Ÿ,ëª&ˆx#3@Õ«¦yœ‡fÙ0ÀbaD–32È¡[©*—½ %l2LàP±g²Y2ÄËf´^ÿxx€gÈì{î§[KöB«ç·M؆Çj[é¾4wUQ\-9ÿä»Udô•²/D¤¸ï#rm7lÇXÇB+bÊ^~>çY§D‡`r«rVçþ´Îô"`ò)òôx¶x$Ÿåï ñÈÁ…pìaû*f˜«Mú«LÓÇÒ z\‡ ÓêEgÅúØ“Uê!lëƒIµsêô¬„¾¢ûðüøÛH’»YO>¹+?3ñK Ÿ,S>™d©ØKëLÀ-µ™ýˆæ„*¦"Áæžæìã0HGD!ÀÛ ”’Ø|žRCá‡ÙÐÙ‘L4i ¹¿ÙªÖŠ,>[ŽÂ!E¶f'™ò^™lÀ#eTz™ÊFQ}ÙÀgJ¯zEV4Ù—šr€ï—ré* ÐJ}ÆÙeßiG mE,> 1–òÔDS‹ ·1Tªë¬AjËï×Ò#ü,uÕŽ•†äg«£—õM¶TÖy½ªkpR$='+ÆOee@q–€RÕµ©Ö^–ÚZÏJËâ·õSµ§º6øpÕjûôSöD§ u3;Ÿ9/²:… ³6•“¦¥º%Ç*G¼5'æö+0K’»zù4©d Á©G»"%;:ÿÔ“¾eñG)å®ÉHõ3­Ê]gÙýw{kJÍWžåNäÃkN Ý|-tY £Ù ÞñÝg?—^B«kÏ‹2Þ»Û˜‰tžŽÚ¸G-ý¨E7…rBØÚÃèÜ7¹!ë ý/#¨Š·T_^FAòKÖ‰ õ_ƨ¾00kBõ1üÑ‘ªçi„#cH™¨ÁøñíHâˆcíeÒe²>ëéÿÇÞ_FG²¬I¢hŠY%fU•˜™JÌÌÌ,•˜™™™™™™™™™J¬JݽÏ>ÝÓÓ§gæ½ûúž7wVkéO.ÏÈTD¤‡Ùçnf“¦Ü¦)Ê @þ(éSA\÷HÇüÁ²S;ç†9OæB‡ÞCRâö¹$“þ"ô¬3Ùr¬íÌFŠ¶LPùj¹ÅM­þïDXJ+ýß|¹­Ÿ0L•*ß@2 ™ JR××¹á*u4®ÎSg¼ó˜*NȺœ8ß×fm–‰~§h”ÎãtÂ÷’æÿéÿ¥ ³P¬éž¾{¹©!´#ÓÒ>妣œÍÚÆæöL ×zí¾‘¡Yt^¨!;7•±ýŒØÚËõ‹e-ÊcùÈÜ 5}üP‘ö• ¾ùê6\“ –.ªÆî.Úoãœd„Gæ>˜¯îóeLqúÞ©¦óˆþæiÂPÆÁtàõ˜®² zz&ì![–âÿ8ƒÄÿrú6ÿ©êÿÿ%þgbacù÷øŸõ¿ôÿÿœú—õßÿÁúïÿlý'ä?ZÿaǃWÃ!y€‰bM‘+ùE €¬Ž5Ã!Jö(W§–±ä`6½#X0Ý*´gç<{†è<®¬ü\Á$wm5uÍuY%ÇÆWàÀ¾K- ^ss¦=Ë #ã ×°«K·ÓX9çœ ÐœÏh{MxçÚÏ „ßä; ¦òÕڬ̛´½’’À a•®²Ž‹šïúm±Ua‡`Ó}K#íýÕF1yšö³WËÇ›;›mÆIö>F£› äÝš T¿ŽYbÛin¾6OÀ‰ˆSÊl–¨é(9R&jW»ø‘zN ™”*Ñ­V: Ë„Ûæ¨ÈdR‰â ÛÞ6\2-H$}öKq.o1úMr–‚ªT*BÜøG“ºƒjäg>•@î¨;„ῆ•%]#nÑÕFˆÅbЄ ­šž&ÅÕ—„mO·Ù'h²¹ëùnê·dâTÂè„oö›y÷¨ýÚÌšˆA¯Ëû³ø|lÜ1L3Åè)Ø4¡N“…Âý¤œï˜nå5£ÓÖïM‡ëTÞ`ºâxVÄ“nØdKF´s¶ÔïšYA\kQÔnÑÕq¤e1wøï¯Ä=­ôiÛ&ö’‡ºéPh>ý/WÀ›žIŸQïOé”!O$v‚p_ö¥€ d°ïnÀ€T€.zèŽÓ†ühxЕûwWXr¬Ä­WS4ß4»S?‘ö\µüàÐØ—°0o¿ÔüH”ÙѤ0Ä{2PnC}vÚ|BðùGÔËñÄ ²‚â»ñH"g¾I,0D` ž0&Á¬©è©úÅ»Väé¯GIœÕX  F¥9 H“nüÑg²iЧaFI»æ€Ü4}óÈ7 Áô//€P1‰ /3u3ÐÄ`e#SK ¼¢Êt²t­¯g$¥AÙg…Áék¨ùNzëç9 œdÕ8ç¢%^å­×o%Õ£8@Ìòk ³êœ ßõulóº Êf÷ûqÈzð¸tëÖ}Úæ/b0Ñ‘ÉT´m×é•¥êþ6]7Á×e©ãiUiopvÛ¤Š¤¿«ßmû»`Ý©? áé m°Júàbq©_ŸB·Ôàz ;!«2`;¬‡1l;Qk1pƃe*¿µ¦÷ãÝí¬Ð¥à8ô&Æyé°VÐ3¿žgL°á×÷Þ“–_Î|1µi_úUÙ;&ÿ#‹enuþ×’ÝTm_ú+‡Ë¥ÃŠZŽuJ·’›—íô­ÄÔ •‘eůçúHè&A°læ}‹.ëÆ%Š¶—ìœ<'©ØgËRŠ ¾ƒÌÏšRsbµCá±.V9Üè@bm|;´†X¾Ò$jp-Àõ©¡§½RIr½8m¹ÎMºªDeCuðX 9hÊÂÔ¼có|©9‰FD.ox£©—‡ÚÊV[rsÿX¸uÔºÊþGô¤aã ¢ƒGÆæ9ÎQûº^ÅÏ&¸-qUðmמIÎçN³}%Ï •¢ûæŽEãã舭ÇuÕΗ¢±O¸]œk/8m­ß—È]PÌÿ=zìÿþ³·µ¶süÏLü_á?ÖÈÿc¥gü¯þï?¥þ®ÿþ/õ?ŽùwúŽË\Oý?ýŸh‰^¢ì¨gö­þÅÿé{í*Eàßý_™ ­h¨×¬RGŒ'53êV¹JAªÒìM‚Àíûºïx ü%§Îë­[?P (–;àx¼;hï"N@œ‚'xÀ–Ý^Zj|È–@J™\© >†„/ž$Êù:‚F"FûLñÛTñ Çüw´ ¬Û­é;˜«fZB¹Rá=­Æàó}ö¤'[Oò¯·¸1lˆµÚ+ ¥ª­ŽÑÖöù úÓv!‡;د™a5š½:ð˜Ä“­wY!7h5Òx­¶Ú#©w‚Û“0q_sòB¿J·;F”JWèLµ7]F³¥;š¯6þûü‡Ihh<•îßóþ[þûŒN/ñýÕßóÜ®¶~åû+ÿa¬Döƒçoù)93ÅÝ@àŸùß}B^ÈþÌhÍqý3ÿa Y-ÀIÅ,Ï¥Úe/2•Í™|?ôÄ ‹0Œ¼x?€²ù4߉´›ü rzHì Ši=ô šò|ô †ð ú0Vü0'ì0¬~ô0AºŠ0Q ´Ô(I­ÙÅ8YküÄ(E–ü(L?9l+™rÚAÀŸŸF˜1Îa@ÉÝF˜5¶w–›Í¶.žŸí¸_Ÿ™û“7Þ43–¿4?¼ß¼´€ëƒ0Ûž5¬0Laü4/DåÜ<7Ú`ý$…©ü,³4€“žÌäÈ•±B;sôšY×¼Q{çö•'{'kB(âj)“õÊÑU®ÆÕÆYÉE¶)2^ÛºS“/êaN×ó©* 9â©€¯D[{ÅT‚fkÃ4‚çjõa½Êy‹åkc⾬µÕß¡ËyÑZ7„ÝMÈ濽¡­s”¼ó»uåÉ‚íÕ5Ó…ÿ˜qët?ÉÆݱT´ôÍ¡2ääíbfH&ë85úݾ]v„ë¬û3[ë–vÆû|^Ó–ûž“ª†ò!ƒë“ë¿$Íã0\èo:T2àËaŠ-ðµA}§æ)Ãø~;BÇ÷ó.÷vèå¤æøñüa#ïB§•¬×J¸ÚW‰ ÔA¨b^ÌÑœhµRAΣSâKitm€ÀøwhÑ_}È6¥¤ÔñЊ®ýèõrAxž`†ä˜yµÁXöˆ ‡ø¯·!üðùH!fŒ7“7¡bRù()ä¸ø×ôlž‰ ä¸œuÀð¯í„Ÿ¨C4Ç¢ BðcÞP"„qÖÆxóØ-É"¤¤w®ü+9Ðø²Ñ÷é€e1|îã¸hˆúƒ¯¯«ÇÈ œõn¹_™J¸yHE£•2A8xD‚‰‰)Êö¶~Æ{,“b¦qâ0ŽÄ…pë9ˆãÆ+8k!R ¤Iœ6*ø×ljñµÉÕ×' Ý:sˆ# Ƚ«»pÍ_ɤŽEÙ›¬ujWy³(ºÚ´µÛõ•Øl ; KšŠHªŽÐULÚò&$(®ksX»”WÖ‘%\d®ïí7ѺŽEåÜLf0¿³ÈÞΞÛ>/;·ªË®;Eh¿üNlí…™:EXô†ØšØK–s¢UÌ_aB—ÑIL¯²$/?,»¢WR~oT®@\26FÍ¢àÑ?§´Ú^Lù¶¥É&.¡dβhŒ>µ-ÎT._àQôuë˜`ƒcÁH=©Dl¨ŒÄCi¸Éûþ|»“bî§ð¯JVkv§¶EÖ› µ 5Ɇ…P Wž“Meg¡ S–#¶¢"šJ™ÿ|!Ó虞¼Òj=º %~±it®ZK4cy46’š½ÆrRªÓ™á7´5³hT³yCá õŸËòÙ9CÆfgœPIËù%ºâ쪗‹ÊMÞ4Zš>koÍÍâ°Õa¸ œ.M^ÕM°š1—vþ­c§!1mÙò¸ÈAp{¨e1>JäNÌGB£¦ÒíwǺ®;7:Ï¢W‹°®'§˜°æ‰àÛs>Ó˜%¤Ô.(.;ìùl/öxï.$<­]Ÿÿ7©=X>vXDidÄÉ=Ä‘±ÿ'‘â?â?}#s[Ec+cÃNÿž…íò¿þ«ÿ÷Oª¿ðß<È¿ËÿúËùÿ¯úþûsÌÿù_ÿèÿO«÷·ü¯Vσÿ|ýüü `ÿ½þû_óŸsr³ƒÁÌ‹ŠUB J**¥Ëôkªêët›ÛÚÙZµ»:zû¨{4ûGF †Õ»§-ÑfæœÐòV²æ7¼'Ô¦6½ Q÷çQV/Rë'·ögp;ª{<¡ëE¯¨r³G›æw¢¶Ù)ÜЂ€P‘=°),‘X×!}%H¹A`]Ÿ#>v Ôý\A/5Sù˜Zý°Í@'ý‚˜T*Y]¡’1JÎx¶¹É2µ½¢át8µ…@«¡‰<`R<÷ÛnYBV­šBמãEj©B¸†µÿÒ”)M¡vJÁ2,Èþ¸5—_5Kûom„?ÐÇõ]Û¸züK\ƒ:ßf)öäJ½zÿjwl¶êŽ¡]ŸÀ³ =lhÄpCöàdAóqtzSR'S”ºQé»ô¾Ý5 [1m7—£Ó„m®”æ»ãуyÚSë_wÓóÅÊ´]ßt ,à˜|u¸9ÎNN;ø¢yyÚ\.L¶5Ÿƒwª bM{¼>€w×çml_=·Ý´½÷ T7ýW^KvO#ß}»›†×t&9Èó>#ÍS;-õå±''× ‹Æ6/ rv-vɆÂÏrõ5Jõ6O6ɬS-ÃN+ ª}L+Í8÷d[v/Ù>‰(ï.' Žj~1óoY3)fÂØ8ŠuR¾íe麖¸ª-¿(oË'¡,š¾ƒÕoúè<÷,f§é~ÓË]-$Ø6»F ;§jZ·¬©…ÿªeâ3òN?ðþN_† MS{ùöLQ€" Mj‰÷¹Nì#$³\5I½oµ–ö\Tl øº%×Lu+ÂYcqÝ‚›æB{ÁìW—ž©<)=~6&˜9Á<ƒèãI4̯^.I Ý‚²Ì¹I-­ýEû®=èwgu*lûÆæLJäëWfzQ‘&sû§2˜w¬•õÝ'Õ0 \ó ¿ß;#»j”2‡™Ñã M†ä¶Û¾ºÆÓ¯S<‡ѸÁ+’•6AëC‰_;Ö²¹Î¯”w»U.CQäîFÉè\¸OÌ >#i[ýf Q¤Wqk¦R~?GˆÕ¸1¦|éVε¾]v )þÿ>/—îW¾ô¼ÕtØ|«v¿%?àô(>ÈRAìnþUÿ}âû È'ëƒýSÿ`íCt¿ øŸ-*Ö’~H.•«:ÚÑ~D™o*6€³~Ì>Ipˆ7:ðõíoøï«J|!ÎÝßðß·:V|Î8(p%A´1aT)d Œje>Æ ”@¼ãϽK~ ëû!útd0Cb ì™Q‘–96A´íäÔNŽyydçÎ’A¶rÿ-KM&‡ñ}1„¶³ŸøËF„(eb’r$QÄpFM³N<Í?ýœ'õˆå™_ÛE«ël€í æî`\ËÊÖ!Ý`‚ò¡Íâ¼ç*!o3 FMò%VÚ½ÄììÊÞ(áÙÄ~nJ¬t²wp6U ‡Žæ_t–ûÓr%M¬…0&Jљ⯎HOàÌÊç3zàŽ™/†¨í“$"âIñúz¥”| º ûE¾¯‘ÚÏ)jÔKQØŽH³t6@Ý]RÉ/Ôè9§'-÷¶+aä{K©_Y …©•1£R_L’hÞÖ$©|$°r¡qùâ*nù¬R×cÉ Š&®üosȨ?Î. `AßæŠó|KXªÈ¿Ï…Λý•|aDN­œ„Ÿ»em‡.NÁ1„âT^1'+®ìµöðq´ÖJ®(Ð%Zð=@­ˆÞnv©P.J"Ú6”‹ß%+ïe·˜J©$±¤ÒL›ê=j#w³¥v<Ÿ9F[(P´²Èú´âxGG!)+™å®ìÄøÃE=M %ˆ25|¤²ð"zþxY#ÒV&•NB¢ú-®‘éD®¢^521Éœ·h¥œë;Bc“ Õ†eAhvV¦‹u mc%¥V¤_MßN)öU󦜣àÀÀ¡Óß:¥1ÓRÓÓ,1èÊüËÅWXñf“»¤›-¤cãÝ7e¥U-Üúq§î¯6 w¯Û³êÉy¯à¶¦²e LjÉé±éô š³ºõÀ¤rQÊ2h榬¾²våÚæYÍœ DËš1]ø–…¾e¼Ê€wj&—:2ËÒ`ÔVmävx+vNJ¯…ò…*~¤´7ÜX‹=q’Õ…EKKºÝ¨J†æ&/ùH>ò1Ò$œ®8‚¢©€Ìeš(ÞÊ“3³2×4²VJqX*/u“-”»j튊 Å÷ýŒqÀ©‹Îî§xѦ$õóâ¤@¹í|bDz):e°4|¼yîièük¡gõm¡íf ÍyK±P*ýÁ¥.–£;TM¶D)µ¶Â7¥!½¯ö´LYâ"3ß—Õi/œ¿[¬­Šà4¢ÁWq²mVEW¯cÔ~Ï’Ôl“TœÑRñet'ë¬ÈOŸå £r›A±ìlík¹×N'úËÈ…:m|ú.²ÛO2FÝ;Wêv¡MQÌz ¾ïB8;î—¯àÁT‘ˆŸƒß‡ÃÀ˜÷Ðj؇÷Ì{½<>¾qcó¾sËø8$—å€`š¾Oîø8¢i›4•yHßø8fŸiN»L?d¿œðiŸ á…‹ÃÍrú¬Ov¾oì»pÒåÛFHþ^S¢Ë[ª™>«L°»Ðúl^…~ªíp¿$¤îXÓÎ}j,ðº¢2ó€>B|F›ýàRÓ¾ƒØßyÑUíù¥åôÓ¥·&!°øÂ’GË•˜Zr³ÿ¾ž7–}g¦×"O/¬Î¡èM˜ÜÓ õAû3Ì,›±öð2ôoe6âkeuÈ#·m½‰†ñ¢Þ·ï¿/ôs^ã3¬ð2±I¢ßÞ· ê^2$ëq<%4°GÙº lÛs¨{*Lyç2xwlÏ*âß–luÑ>®n¶Þ…f»dz9*Ÿ¥®“ñ¾=`€‡ºÅ¤Î çm5ÀW2Ço{¨È'>ï¾eN?Á_¼*í|¡S}ñ œ_|­}¡m9…üÐÕ|Mý°S-õýð¡ýï‰üÑÅüŸ}DSüïÂ`«¼Ä®ÐR˜ãþHbdþ¤§þä«þwÜ­¼t/œfp-°',Ж‚£¼bì~"®»)R/ +«¾ÊXA’b¼®©œßƒÈÄ‘DƒôBÁ ÔÀðHü$Z}qŒ´L]t]aã ´9†XªB‚“ ` ‘`õ±"ú¼”BÂBXñ›mv ;ó@´CUA†ÉÂ\ACùÉ®aÉ«(Yl¡öbÀà_8U¤n„¹n=˜dHD1Ða#!ùРI¡a)¥aiñ^Ü&ŸÆ¡^˸[Æ.Ūhþ/L£‰ZÑÆ~a*"; F3!Ö£¡ 5Ðàß#ÊØ[É|¬Sú•ó##›”c„<¦YG–5|~DZµˆ‡ŒÍ'ÙÓ©a~¡úszªQqN*­lš»b¡v‡èE¡Z.¤“,ž‡« †ŽÑózwba—«Ñõf²·A2òNßZÙU_[T‚c¿Íz'¡¥yîyR)†ºCë¯`™ß¦ÒŽcÃE"˜{œ2S¿ú©‰Æ X¹°a®àP ù©ûÁ?ᔽH€°’ˆZëâkWã×Bä‚EcXœ"ýX´ÚPàj˜ïPxÕ-YµàôƒÁI’(d¦’¯^"oNMoÙ¢°‚SX"V¼‹“YÁý’(Š^ÌtG™cn%á˜ôøÕ­*ZABé¡òŒy| ØãBœ=ÎÈS;Š>ôR<É#›~1–?'•…—»P6šY‡¥%ŠC© ¦†¸%¤É6¨Ã†‰‚¶¦‰ë%Ý¥ }Ïxñ•K3erËÔËPm òOÌPËÄÊÀ=ÍPfN”9 û\^' òÚk;‰Êœõ1$°¢<í–¹CAÖjÀ&PÌ4’›¥¤û‚f§î8ô Ž®\áw3»×ÍÚ‹uPÏÊAÏöh52gíÈÍá,JÝgÑnôÍ./ü=tÓ–sŸŸ•–óÈa…Íš Ûž‹ìž ÂA žH7þny²–—™ †ãÓ×›;€LŒ™ªëœ?Zf˜C‘’>ŸMh‘Yzg¸±ÊÈ+Q@4|uä.¶( ó€§Õ“>/$/lÍûÁ †LQÄ›mãlFžyôP8ÁQÄ)¡,žiþ=3¼µ­°ç ßKÏw 4¾–˜ MaÄ¥¨¶®Ø¬ÚUúiy-mGe‡†Þ´EB’JõYÔ%gòêyDE”ÇF¹+j ïqõV¥ê{éczʾZÙVJµpBªÙrÚe\oGäù«®¥]ãòH@-ÎEéåâÏŸz­|oqyii„â¥-vmfcngŽÖ\ÚF”¹¸ísÎy\J!Ñ-Eš‰ÅÁ³1Eeƒ]\®½\ÅÙ? Ç‹d62G<üš/:‡$…ûẦ2~,XvÕQuÍDtͽ ­Dt®]tmÀuo]íxü(õ?×.iþ ¸@¼’üÑæý˜ÿLåõJUˆÿR¤³ÞcûÖÀ{§‚‡øp‡ª,›lÝn뵚èDÄë YaƒÅêC±Êê~¦*‰0ïÃŒ,Ž€Ö‚kt»è3 éëû WÊYJª ¶‘[·®´H*™ôÜO¶é±ÅŽ£ÇŪÍQ9@ï ‰]ÙØf@@•ë)>h ƒB$_!oQFûy2ÈQLÉŸ†!)UøT»>¨¶YZš€ü0NT9\ÙÚlÈ “Y:÷f0HÚè°Ùhíé éšÁ jNQXÍ9èâ j› šð–îG=ªq ê£ÁÙ%UÓÙâY3á1檕™|9W  åšeU”V9Š7ž1V˜é‘‘ —SéRA WïR3 [gåRÛÝL ]öáBÕÓ™‰Pò1Ñ‹7ÙÏ=9¨59ì99š99Þ99¹99 ù¿‹›Ä?öÿ ím­¬Œ~èÛ8ë;üg´ÿWþ,ÿàÿÊÊÄDÿ_ý¿FýÕÿó¹ýoë¿ý­­­ üµ ü·þߟcþoä¶q°ÿGý¿ÅãF÷¿÷ÿ`Õ<ɦÅ|×Vù>|A¼ýaáB‚‚ü£‚#âC£BB=ÓÐN°:YÈnîéà© ~^E>ñ•ðá•ÅÕ1åM5MU…_2¡ úú!zúºQò Ò“j«J‹KÛfJê§WÛ¦Vë:;GÁe†ÿÌÝEŸHK^ŠlMŸ»‹öyº)o]ˆóÝÚîè ãb³Ãj‡:_ѭ̓ô;ŽNŠ GžûijØ"í·qBP‘v„ÆŒ%ÀñÀþÀˆÇ+u$–ÌÏW “ˆÛ#üê+8œÎ°ÝF{8 ÉãEøÚ6©˜ÇÖ=ÙfO9“Š•}>ë^©ZJ®|Míš(0«Ûµá³\åÙ\¹À¶‚Ã[+8¤Qt>oÒÈ|ZLy“®×±¸ß¾ÔR?ï½È«mÙÊUÖ!Zž"N0Jæ6D¿!U5~É7©×ÔÏ kê‚üYÕ’ã·€t—Þ수ñ£ýÒ˜6K¸—NúAÇ8°ë9;‘.OôvãF䓱}±WcR¿ú¢´Ö\z³–í _Ià j‚ÂÏ4A½L†o¸;m7#èÁ“ˆc鞌ãeŒ÷mŒ“cÜLS®kžLÓßm8&o3™:¼ì'BF/r™(ÄÈðI‹øTáädjÑ*©â,©Y^ÑͶgä“¥\5Akyˆ=¬Z®ž6Œr¦ÖX\¶²7si(g׳žw[ºØvfiv¾±]¿N¦}÷ À—£ QZŽ#Wõèד@KZ¶A7Ä·³€ˆj–3–´è· ·Šlæ ¦6Ä÷+;Ó*òÕÈð-ÎëÞi¶+¼µ¯wVˆLw8Ø1Ü÷ã“ž?¦ù¾t]›ËôÈ=.ëê6=mƒÏþ~©ãBà]ÞO¨éÞ[½Q{ú~”|û%ú¥’ô°Æx÷‡ï÷£¥î.d]èyÔË7ÀÅI•Ö­ßÇAÖN?m¬ß0áwp¶ÐÞPíÛ€±‰$H¶Q˜7) ò½¯ÐU¦|Õé¸Å²oþ#Ä ÒÅÖj{M%\©T®ŸèJ;í¢ˆÆèûsx[÷òE%Ö8’Lò:w?çt­÷iàåƒ\§Šk€£¥:ÕjŸFCAg9Ù{Ö´ûSƒCPY†˜Æ­Òr}©®ëÔ²÷`Vm”54X“ï½pŒA¥šS‡&óÓSJðèÒÒ!b}ô¶Áw9a0©|ÚX”º‚`“1ªuÍÊ‘ã-â ²¥}9ÊÚõHUìÔ¬Tê÷¥{¤ö³‚ª.sÛµä‰ä;%S6#þÄNÙësR­=…ø®ë];@$Öw¨ccúÜ ¤öÆíî« £Õ9zÖ?ŒsùK@+ ÊW†° ‹}TEâ¡í­lïó=Ws×þÓó(ëL=¬¶ &•£h7­í³ýÔ> ë»öpøM¢g¶üÝ+QÊR]ß3þ¸™êB ­„¨ˆ'ÔMêíÛ6íü9&çY“B*$IˆLÇ€…)`¡ììŸXÔ”—ym†¦Yçd3{›@‡ÉF©5ö—é^®‡‘7j-PuxK@ÁW/¿è›’Jm^!»!eºIÂqm8'BÇ€ö:HdjìòSkkV:hk*'ƒU³ªá÷e8®Œç© ÷·ÚxÌ<É“@÷ÕQ™æ¡ad­¥Pм}«ˆ(Úu¾TçåUWGúP[ÇòÅ^—'K^P{Ð-i4Ì'b[8ê.Y3SŽŠV«Õ[¿z7³¬]qwZº˜¦_¶ÐŸá¥Ÿ€½Tvr \LØq"Ð(Þøš;¿ [ûˆº±¿Èiþzu"£°¾†2¤­iOå“)ŒµÓy€‘Á± àÄÑs’þM@¨x['õÉ¡Õ*@@<Å3Ââ”0 ïº Yè\ºq…ˆž/Ó:êæ iûö3ËÊhTI× ûqÛÞgæLË6|PÕ9ê™ü8”#®¡ßéœàÛŒ+a{Ú%rB‹TÛ\”üó1Ø…¸zf hG÷ºu•ö$,yXMÕAqÜvŽICµkȨ¹ã˜åBAdŽóÄÍ6NÞñ; )fk•­ôGͺðu߯òÊô‘Í:•™vqñ´·–&Jìã~¾ŒÊvߧÌ|s}¾Îb†Öß!ý>×ü|[é~j™ù}¸ñö¾û¥çeÄÇŸ#õóãT¶çmeÈP™ûû6¦çx"ûù¦ ò ‹¿ÎKkþ7ðý ˆå;dªc±lôâòöŒ\Hà ¿ê‹øâ»úl.f•™kNë‹"ï^'ê-á뇪†NToŒIî÷…7ꇷç÷­—ÀÌÝìÖ€HA7Ô_4×ÿ[("š3¹© 3“X€°^j+*ÇK€ž*<ƒ«“t à÷@p5 ‚Ö@´ï°ûRb°2f:ñ  fÈ}Gƒ ÕTõRz(×À@0oj°áª-•˜M?† {Ýp°Ò\m©;1VHDVK1t°Ykȶ\0$;Î[IˆòË7ùïÁÁ©à¡¥Z¾jfD¥j²»(O-a™«’aÙ®Þbꔣ¡yj^£vtÐ~õìjÍì^˜®í­« Xa½X‘ý쑃j‘î‘£©‘ã­‘“fÿ»Ð¾­ÿ1ÿ17¶2ú§ä¿2üãþ_†ÿÊÿøçÔ_ü„ä?Ôýùúÿþ—ÁÿÞÿ½Ðü·üõÿ»l~Ï„?qÌfÕ™¹0}–òù‚zï"`†Dïo–š;êê÷Òú‚_Ý€Z_mn$´MÿÕ­t·ùUŽÓ‚“€¶U|Îm7ùÜn}Õnæ\ Šë'¦œ§Åfhe{¤V¹Ud[Åy™§ÚÔ,Κ–zæe—Ö/—Ž "ww°”W}+p£CKGM`9µ³õ œ‰ëµû5- Z+Àú³ìƒCjÅN»Ô…‚¶’}€èŽAFøB§èuX¿][(©Znµ6þ½:Ù>ec:‹Ì6oõŒŒ+.ý0Q*L©t¬‚­=SíË©¢‰„6c[’…¬Ëa¾×Ú½¥ˆÐ·X©ö¥òõÐó#øñq£<[ï=Ë©ì ŠX«ó?i! ý”€ž Þñ'C° ä»pHj¹2u¾P{AXóEʨ §JÁ߃_üñ½CFÿžÿ’ -ÿWþ Ý´ÙAãrèA4w:i> ±Œ™A ¬ðaÓŸújʱÃ2"XŒ|¸û¡XxÍnþÄ:k,¹á"WnÇ3ÿtO˜bhå7‡#X«ló5³ëÝãŒïƒæzAÎÍ &ÙmÈád9Ô/cqiŽ8î™cY‰¡ý¤i>Þ/Ù…+?5²Kîä5ÌsR Î÷8òƒåL \x×- œUÊË®®X4,rûY°rý«ƒ,µ›!Ó<ê’sO˾´—5ÏÚXç™/PÊkTŒ0&ÑÓôVX «š›1,/+‹u°ã y:–– 3¨O÷mš‡6®QËÂ+úêŒýÁ#øÇhÕí`*Ñú8h{¡*ʺ“÷Xöx-ÖVñ†ÒÐu^ô¥,èâ(ÂÝA,ÖgÓw=é%\ …¨Q1¥h=h#ú\\Ñ\fâ Ž—ÞOwŸÃß7§‘t2sSñ¤-DÃH—¢b^ýš£{–`\&hÂ1×2„pèW\ØlZú†d]ܵîìù4 ‚o¿hÌäÉÖòÉ;EµñµõŠŽÂzˆ†ÕøûÅóØ%%"ËN .b³¥/Ðá{kÕ–ýQü‰G”úÀVùVÛT@§“Äi&—ˆûÙšEvÃfÒ§m±Ã67‡v‰÷Lg¶ðîêÜ›çr§î†‹+­©þ£#s`ÐãÚüè:¯÷ Óy§¶þQÓ:íÕq%V0 R;YBË}·ÂæâisΓrTƒí“ñZœ³ý&ØÜ3üáw|MòYYÿ ’6¤û 0ëÕ  JFÒ ²?#ñÖ1òüÜý©,ç ¤û4Ž.¦ëýíRwq7E)–ZC6 ~7Ý /ˆ¶Q†*÷+:aƒ‘¾¿½+ä\0S&?‚±£ïÄ](V™>Adè é½`6J¢^ao0\E £ÁµÆ¾N´ËÏ ¨ðeˆÜ­.’ÍÇ­p˜e¿4ʦQþwZ:f ÏVùUÄŽp>0¬>ÁËL{U"!‹º”èYŠt¦Œ¬Qão®£½TÎÄ3›>øSphCæ÷S^Þ<|•µr…ήE}^¿t醙çy¢C]Q¹¹´+rY´ -0é\÷^µw8I3l(í¬’s¹+¹É@ä¡üù<suíT$‹RGµm‚®±oŠ£.Ÿ%|qªÁ¾ ËÜi¼® ã©!éÊPzÕ"Š©¢Šâ¸ûq=(û¦0ÈrÙ^¨¼9¯ÁäÐítýª…»ÅEHÚjÔD»”m*¦ÏâÙyEê2t²eÓžè¾±Dn—Á9ªÉ9“‹DSãæ®óÕÒ}ÃríxdÞõ»R¶^UÃ& 3}Qv¸Aê_ò:Q‘RöimëK²&©U’6vDBÑ}¬œ†[LJ‘°6ŽtÑ4B“K'¹‡Ôà:„ YèÓ`9ãQßÖM©w ’ÝJ¡c‘A±¯úÔ:(¬ ‰ôý°ƒ¥÷¼g*„?R’S‡Åƒ¬—þ¢õMGC7Ú?¥‡û˜ÊÔmÌÒ!?ÝÅO{bÝuÊéA€=ËžÍÍÐΔ­YxÂSS:ã-Dλ"TN.s$ƒéÊfâŽönÄV$0ÇnŸ/›âÏÿ0QÞ{æl¶‹C}5Oá .fð-3âñZO­yr,•÷²+YŸb1yŒÕæ±Ô\ÁYî‚|*.â@}Hn佯†C·Rÿ¢9 ÎÛWÜTyúº2=Ì mn­³“¾Ð¦RW–´emÂÇ•ÌÍZ×¥-côž¾y óÜ´—eå¶Uéôì݇«s/™‘kLï‡_¹ãæÙÊêzîujX°Ÿ×Eg ·åï‚‘bë’49&·[óÐ:<†«>†òÜw`áÚ1å¾zƒ¸ºs»¸6òi¯jÊPSN“s”KwȨp°ì‘|èRζMî€oöoŸGV}8ÜÇÐ"*ºÓÃyŒg´é©5l-'‰TOTâ©Ý;ª\0ärzíîÜ1ey?•ÙJQël6™yk“qi|qr„rk¼:çË}8yÉB ˧<×€8ׇo]ÚsM»L™á¯T<‘ÏÚN8£ñˤ¾p¯Wo¦M’ïO£²7Cº„\´K•;',œÎâ®îÍ0»ŽTì·–›îd?ZÊð_»Ÿ¬›«0Í(*67cž.Ió\ôyß6‚å¼f†pjòI¹:hß[—PõLhÂ\ñ½uyñö÷í`ÜÔðü²Ö¾x­x-Çðmùsemî_Ûs¼ä¥NÚ³k|ªü|jQÛ#ó­}ÖIõ‰fsÁ ú6ÚÌED¦‡TêÓ¾à¹cj‡ºê& ê‡–ꇫÆ…†ZÀ(hâ†_jÇTâüZä·Ûà¯à¢aæâG‰‡éçÏýVìÌXë¢3À+À#¦Ë÷â'`æ'¦°äp¹`¾a)»j%ïjóÕö Ò‡0•…ƒ=hý dÃV+xûÉU*•Oæ4H.4X¡4XiÕâx9è+½"®àb‹UÈ|°ó)¥«š‹X°¡€)Vˆ9y¨¥X¨tð6dþ÷UTT¢ÔoÚ&ÆúÆ "a²&a|a܉X_ˆds~?ôUPòÈÃóÔL”L“Z=bZƒ~.‡óñ‡Œí‡×“›â q9‹ ›µ‰™u`™ušö´šö™5A‡6š „F&ª˜KÇGZ:šÇCFÅF )DJ«Y‡¾ÿz²¹OÝ ·Z‡ŒL - Å» z$ ^o ôqÚOŽÞ^º(vÁŠÎJ¥p q7‹ÆõÞ‹y‰ò”FB `…R…q ½e¹ "w&‚t‹†ƒ5ƒùÒGî@!® µF«Eo5ƒ³³+lƒ²€µÝ^áâ $•FV ÜmIMà2M`p üášÀ¨Ø+€BlÆx4òECç;b¢pýù˜øÒ˜@Šî·È5ä*B’Äâúø,‡ë’øC -ÀkJ…l”sÉ8IŸÄëÙ>Y ˆ–%L5È秸Ã\I2ôOÚl‚dáW$i(wýÇ·ÝgŸ_Š+˜D3·Ÿl©" )j~Ôt)í'*âC©ÏPÊü­i:+iàbN¹eî¥léC!îÎ i†g9k®t§(’{é}¦š˜®ÔìNOBrͯé0Ìõ0^—P?i|UC~–…&š³z“x·¤8Nögn°a¡9ÄÂøΆ%`:À-ºeØ´`¬`'F:¸‚ßÃDÞ)E¸yîŽy…¨ge 9×À­¿¨ÃÅ8»Ðœ4\^çŽy¯Á¨%e7ôøÃÑ4&­H 1±m©,Q¬X§(=ÙS°£ÿ=1Þ°¬Ù˜ïSÁH©Ùf«ú+%@²Ý)kû¨Â‘º Ê‹êãVÑŽ/yº–%‰­n§-†CFl)"äú˜CLÑëMdåB«}Ä|Qî[ ð§Y{­A;§)+ál“ÛbCÕõv«Óеû»Õ>U?üsžÃâìï;áB¿·ª‹®•ý­½-ŒnU²-43²÷'QºW¦²÷›Ñ„o þ'ô»B8R©Í Û‚{–’*:‰2zêóQPü®ì~×R®WiåàX°z%:-æuK®²U¤rN0Dù ?Ž8›dXFÖh~ ;ok^×y\ÔšS³j XýKž/¤3Ê·°×3Lâ€ûŸ­aqòO-ù¾ìG FîC )ÉØîæ`©a& c<æÇi²g¦ûr–õmé¶ÞC™ ±a¸ÙŒ¾"Ó9¾å¤9n¤§yð”bAè2Й9òî .Q*PG|±¼¤eJ”Dá_ÇÓÒV•Ð"9ã×ò‹[cå¡æ Ï¥ »Íôâ>·Ê/Ehͳóâì±µE…âR«F åõRÎ?2éš' “ªœ±BÔÜ«Þ*´©¨Õ(‚áòq‘ŠÕl|rú/ä2t¨h›†H¹®b5@+ÎZQìÇ«åR'誟C¿µôs膖+˜¨ØærêVñ°mw¦”(…CcÛ­êÃl1º)}q†ÿ1 žBQ?B0y7FÛ™>DÝòÁPE0Òé?AßgÕ N±@½ú]ì{šH˜ÊŽ”µëN/þÏ>l™Ú€òÖ­tÔËDк1þ£ZÕ(SCrª²@å™n•©Šµdõ)•(Gÿ“úªMþkÛV¹jçSÑP¿YË,õДc¤vݦ›%ÞãÌz½v¢i ÅK¶ Ðt©aJ踟2PÖvDçÒÑ:–AÏáSc×Uf»Ý¶ÏÙâ½vÑøIÊ]áÑ= îì“Ý‘¥Ä1ßqÜCÅ«þãàuÚíÔ¾gÃàž óSsá^¡‚»e,–“0Y糞Q³ç·ç…û½(Ïó,Y©íÞ—çÑQŽ«·/»ûVÖºå„ÝVýÈÍ땽úŽ$ÿ——/®̹€œ½à6»¾Ã»—Ç|žøçþX“¹ÿFÿ ²DÊp”øoúO¡(崙XÓæ!*³@Œø_AûòŠûå੘÷SFÑžje@ó9C €a"Ä‚°5«ƒ´î ø²…¹0EjC„wÁJ‡û˜+£"wÞ†P° ƒÌÉuáb…†_gBÓ9-ê"5 ?CG8Ïãb­¥Œ¸¶±RÙE£c# ÑÉÂF$ïÂ}&0hÊÄedäãrÁ‰t1Ä™$î£=…ŽHøÜÆU¶åÃüየ…Ïn¹ç‹"I01ã3¥êQ’Ë#I('è%åë /ö+4Ú&ˆ!ÒZ™IèJ‡ ïR‰Å‹ñ”Ã$µõ)ž™Åì=ê*Q«R{0cR2 ö±Ž%dÚS.2™ºR¦-kRæ_Q’=:‰éŸÙ§µ ïs^Œ xñËÊT‚€_¤Í01q†¬5˜òßÎ …¢ÎȾh4¦bM™ñ³­;ÚÛ9"”I¨žÙ‹\2úJ™J,¤¯ÿ*fŸ*“q_È~ûUÂ`!wÒŸê0(ãöý\îM Ð$—Â\@,ˤTGˆ&À2¢¤4¥z0s¸|jbB…#‰·†5ì›ÀZ† µ²_¤­š”Ób¶Õ#­¶vÇ:5Cx!á•U{ñ r Dd­ÑÐâ›`À×öó<+eÊ%Ã×æJ9Œ´pûÔòî)RªzIdDÜÓµ–ykA7•ßh¸ªŽF¨Åî¸yV¦’ëëOÍ؇ɢ}~ÛoO-½ÖÌ‚bKû8Ï­£¨ÒÕö)›ÇœÏm³QÕŽ%‹àÿ¯zÿƒúã?%c×ÿ$ÿ9þcdcúüߘYþ ÿý3ê/ü— òü÷W^|}}{{{WWW_>//üüWWßØX88T~~h,,$GG&&@Œ•ùàxó‰ùÙÝ€gÄ€ÀùüRÀÀ g|K?eШÐhz\$Ùfà€pv: 1ÿ¯ðúk8©¸½ýŠzz*Áuîþ¦GèÐú²Û©8ÀÁÀ°Àõÿe,Kàx Àü@÷së<Üýõ¾?^ÜNå*…ëᇉÉÿÇ×í Üþq8~@ä&øæàæðÙèaëûºNÍ-îŠëȇ É À üùIühÈM,µ;GÿOLÌhè-€¾= @¨¦ êàÇ@Bð(hÉ«]×µTh\(vßïÑ2ðĨ]$À€À¨?î=ohòI]éÒ®½€Ø|€z äÞð‰ èùã¹~bo¨à>ùù{ô1AÖôÓ ¡°Àr¾w&êç]K ïô¶áC¡R/  D0õ@ùL³Â¹»e}«ÙŠàBØùѹb €d ÐË ¸¿ ¢öÞ[~BBôðCŽâÝ»=ùËUÜïù1?!¡{´´¨ïA^â+-ÿ82´+ @H»€ X•@þæóçõP“¹/²üÄ…ìùãò±ƒ¢â¿]W<,ÀÓßÿbÏˇ»Û?HEOOOõ¥pZ; 84?¿Þ(Ö”› &&44ôœÕÏixÌOhèžÿ¿ýþ¥þÆsþü- $,±ÚܾhTÊ?• !HD™buùCXL›£uü~_„ã‰×Ž%+–ÃØM¤ÐŽgŠ7÷'³:œoŽ5”Ȧ°ûÀâK4–Êg ÄPj7–-„ŠçHdI4O—ª4Xl;-Wë „ã¿;U®5˜¥%KK¢øj¶`ìõ“?Wi‡:Üb±³Ýô 4sºëô}¹`ý‘z½îõȪ²åv¦)™ã«·gŠïþt8O VzÑ\œt/†ÓE{ŽzOò¦ËYWœâ@rññ6ŽèŽŠµªëårƒ<æ¦TfÃCÏLÑ7„TÎë“ö][M»¸ž )ótº§ÃYöB´îÝÝÙå„a /7—ËBç|Íg¾SÀ$I‹¦{‰õ²Ž_gW Ž'`j]{M€\×û·ö nPRV˦ûIÒqºû –^ÀéÐÉVȆui^ȨµA0ª6ôÞzH¾ï&aÜ8D– rö¨a4{±Úº?“±a<œSÈ7¯æ¤Q¼Ð–Çѽ’yÊ’\7åîÑÃ’Ñp¤°ãt«ò¥ã »bì“LGÖ"“,×ã°ù,÷§³oHÊR q½Ó¼PÒòÓü0ÄÁÓ‚XʳÂD‹³¢T“ò³âLçó³’\ØRZ­Ô/ʴʦ æ[IBÏêæw‹ zwJjúA´‡÷Û~ ¼º!,2˜t®I[zÕíÞ4²îšeà+ŽKµh+¶K‚Ù l¡«ó0lƒy9Ïâê(ÌÙ+N×ïdA}­YÆâBxÛÓÔ¥y>Pò1j9vÕ¼¾¿hù¨'ð°âµr›Âß`ä‚ØûÐdêK ¯ÜnC€ãyHþABD½PbÂ.W3‚o wa;((PzbÒŸap)¨y£Â‚âwáÁé„âGôWI5fž0]ýfBZuuQ\“ùØ0»Ìˆå×É‚¯Ï£#¼ow1îc˜§l” ÑF…øf#| ÷q±‘F_!ÆÙU.ÂCö¶^Šk¯Çl|ÜP û…ÒàI ÙבÍû%"E Ë£#Æ °q8D[‰e)ðïE[(I€búE€ëL¸’UÁHéØ„0uŽU¼'iƒx SŒq(ìaÚÑËHFm!{ó´vú}¢ô|1[›92( æ&òë LÔýx.ÛÈ|LòE]\Ðä>5Í£ø˜²eÈ ¿íDd5M&4‘*ÈLk["H­b’\ddAZ51¢LèÍLÖ3-Û“¹Lü±MÌ'~®H9Áp=3­…‰U)¯ÑÑŒM;€àêÔÒ33ôQýœóMÞ ô±LäÈXââUÌ}z!¥žT¥G6¹^ÞÄÖˆ”bœ§[X1kUª\#Á=ÕVPYˆÖÀ2‰óMbô-ËÁ¸4%ß}ÊqÛIðços½Põy]›¥r.Sùseâù«ŠÏƳ%´úö†sæ*Á©KÍ•õ•)Nô|Œ¨R® õ>^>w§"æ˜ó¹ 2e 5±2çOwCݘ´‘vªØ~a=„ö”¯àÅÚJsscÎVY‚¥V'aK«t•fVÅâ…#Q𙕥¤ò†"%Þþc?¹ÊØx„åY½•ÿì¹Ö™3kIÚÖ©†qÀÚœˆPͯ¢bÙ½‰¹ ÿ„žû- ÑÍ2í5åº izeÜ‹a±#Ö⮪¬+“ŽtZÎ×ÇšPû…Í%ÈfI'år÷Ió µx¾†Nãpm·ÜÇF§*¡#a÷°™–Í…áÛÁ:•ºöƒjÕPåL%7ºËØ 2UJücñx—z£±ù^Ùhb›±#¨ÚþC"{¢¬#Ú?¦ò0±m†ݘÍZœŽÌ¨Ï$U'mR½ú í½ð˜ó=nʺÙþh¸„«´i¢Þ5©.RÖCµƒÓ¨‹0Ê8á±£À.IœàÚœÝaL=Ì~,¯Ž»Á2ÏgÆúk}¦éy“Žd±p¹ÇÍ»AÓéÒá¯K¯µ×ü7VÒÞTfmÊ·\‹À^¨åF냲]ÎÉ|â_²ª]Ö¶}xëjUšÝÐýööúéâƲi!EÍ5Gr¶½kHr^»:°×ïã´¤`¦2ó7dÓ—FlÚŠü×ónÔ5Ö‚÷ª=LôÄb¯§p< ‹õ^/Ü.™3Î߶l¶™’I¤ÔG²4ªÃ–]ª0ÞZûÇ5Pd¯²EfÅLÊû:d?kÄW¯Ÿæ{µ­Tb´Œ\2+Ϫ{Ÿ% —î7ò?²nF'°µÃA±ŽB¼_ dßoBŒž73ƒcº&(ß¹ nA«Ó*ÇyØ=de»ùƒáõP…´/–á:”¨j—#ÑÑ×zt.éz³ì ±wîp«˜0m,ò 1wolÄydlíظ´Õ,»Æzs™–´·Pð¬sÝlMqÒtËFúd9ãåPW5«ž¦-¤ÌKÖDûQŒ¯ᤅò·, ~ºk|©ú2îEµq6óšš'ê]òÛ üÏ`¿×™Ô\0øF|v?pÔúÙûå~kveõ$“ì:£ç}êÓ;{€oDóè㘬'kñÛù¨Çô8)ìGOÓì·µ§n/õlbÇ É$;d«`'ÉgßÁE]YBiÿŸ’íF^MæÆ-~x"ÑD…F~ëŽÛ'6»˜¾¯˜Î_ÉßœlÛ!-QA¬6J´í‡ Ò0]6•êV´VDl¾(K0•¬LÍaÍô‹\ü U\¹4©Ø½ 0¡…%‰\œ6Zl4 ~î0;rªY ·íA²£¼8ç¹™Ùû_„ø¡{U@Á,aB>ªv-»åº) )»«ª’™»¸h;¥`Út » Èõà[lG…m††ˆ«úc>{Ú´Š ÓC’'¹1‰:d‡°ºzf«(¨)[þ"ð7#s¢)vægÔ6aÁy Aš6uOz vI𶓦q´ERiuQKQÎ-U+6“¡3Ñ]1 K "wÙdR4³¶w‰À²•Z Ü\µêµìU•™FP‹ö0s5sìc'¨*±Gu ÕòƒŽ©Uçsõ5º÷áI‰è`Ie÷MQ±c‹é?us 8 Õƒ+ŽF›ó ¶~J'‹ r •e M‡Ö Š²n 4QÑo{àÚvõ!gõëñkõ$6ö,T“ålöäy†d³kÑ‹ú²ztøõ†Ä`šƒ@©‘…%Ä­8 ÆÀxÊ|äYœ“QVMQdÏPäÃxÞNDÖ¼_ÙÐÞW— á©û|W;CÓT7Õ>KRVOÔ?óV;°â•O¶pN½K´&C3ùÚa…´é3·©cœúÁôù¹¨åˆ©!—FË?J`®¦„r`_‘k•ŸZ‹ø‘’Ú¼h8¶Å8¿:€¿Äx¤9Ó~u…þÉäî’>ɦV:Ð$æRn® ½»ª‹àRᦔš–lP%÷Bd¨oµf1§%jæÄÊ™eÌ8f¡aªÍ£l)•¢? QêœN®Ú ÖËð8Ëk Îታ2Ï„jÓö4‹ô 14>õomsu&w›aw[eU*YUªA×ûbƒ—¦Ò–– íÌôø³®˜¨r)Ýù1ì”< ”$<ŸÜ1Ì ‚”M<'Z<$ÑôûFä´y\ ˜YÜhDBhhyDp€ëNªEïi4º~4•xd©›&|ZNÆiΉyèãZØ«rÜ7w‰rçç$@yòöX²>Y|oZÒ,iôÕ创Ó1kA6–SOjüI&+EμZŽ#›ÍAhpsiF²c¡ ¶Ü–«Ñ]jL:2cªËÇOØ´èZh匔8Z‹"›Ų ÅFŽD‰bàöxñÕ8³vqÁvw Snóø~–D: Ï«ñçøTðV¶’°ÜïO¥À;Øð <‹@v,µ ƒj5¡¶ŒÀ–ü=Š°Ö¤¯y^vêED„y+ª¨Âçå8d¶†kh-çÆöæh=îÅ5œÙqÉ<ò•ÚΕÂq•Ø#BÖ03°Uº¤U?ª0+¥BSôLU ¡=XÜ|%ÉR½ÉJØ!¥nÚBcq<3×S»Lãýƒ«‘͵*,’ÖÊÇa«í]u003gÔ3AÃj(¯„ ¹–{¬Û†©9"vÈ›eø½ùÑâd|¥ÌYÏš8÷媕zs­= ‹–/!WpÚÌ£¦e1âÚidɇzí4ËàâW¹ÿ3”¯ÀÏ-Ê‹<.ðÃ.j R2‹D ©(TŽã ͽ+YU‚ˆhqª%3È:OÃ×L ãÌSôÝYU1»(kl­Ã¶01s ÖŒL¶(¹a/'1Í»ò‹îËó‘¹-/XSáUˆ÷}kyÎ2x¯£`¯ž=¬¶Eº—Ç“w¸ü܈'#É  2,má{+FgÉÓ\õ†‰v„hÇÛPHtÍ—vŒ/¤~‹‹@¢?zõõi«wŽc·7DÊm«?é¬jjصDj¨È¤Êˆ=)PÙv‰[“'y½6aö'Ž(Àö”:9»ÐüEšýã¢ì9Í7@ )(2=x²±à$ÒpRçÛ}Ï왆P«ÇaXjÕd¾ð†5œT¿6ü€êO–PµéDÐâž#Dg‹ WU‡ÓÒ…/¯H!·I¡K¸>þ¹¦{n„çDr1Å}“{%Rædbg;˜qn<¬ýцÝYšBùæd|Ó qOõZëúèסøPM§”I=ÎË /n[ƒþ3êÂ")¤¼™²Ì ¥L£”Í¢ˆNKí·™¼±¶Ž™xv>¬N Ùw禵ô¶äZv¶6{ `WRgCEn_EAÑã ë{t{D Ú˜ê^¥&èÖ%êäùDg4eâ k¯ÐäôµVÙôådòzµ·ÚñzÙíF™.loå¸ÿ†½ðï„ö”.PêűŒÎ…ÃM$±µN‰W#)óä. 4,-kéÂÎ΄ZÈ*ÞèTxq¶ÈŸ4ÓÖUSœ®Y+¾+gHc9šN¤ÏhÚ\y:Ü^Îbz®ioHE±öåjÖ3uÍém͉´q-mµÿjVô˜„«›%ÛªfËá…®{¼ó·â.äÜnÛ,ñÃÚ2:œÓûYéjÞˆ-Ž˜ìþÕ¼ ‘WØåYaV ¥5éá´g·[#=3Û¹›‚0OÄ•yG±S´é¥€&ÓR“–k9×Z’S5MýeRPj½¸˜Ÿ§þ~uw¼š¶ ô²‘~»#y3H¸Ó z=nÖ—¨½‘<Å>¶£w{¶AW…D:U›Þ9/2&Ä»´ªSèžÑ٘窻ä™!b&ÆY”Ê$ž¦÷R]Ç‹ñ¤Y(KÿNÈËKY^úÖ<¨,=ÃèWCiðH9ܾM:Ö*Çî3ãé³ÔF³Íªèv?š:óÓ^Yƒ]ó"^K˜:pš^G+÷6­ÌF…¼>wö®*•h˜m²¹(ôÞÕ½4í×Z‰I/'°µV ,3ì;®~›HõZDtÈk—Ì7¯ÁQ’vf†ÙX¢Ý·Çh­Ú…Ô^¹ÚÉAØ ’: †Rämجؔ(Ù‡±.¿›Zz«NÁó:ó’ÚâG¼>ŒÖÒžëØ"÷Ú¹™³ÎÑÏÞô£óŸ|•¹õw½…éÙÊofÃïŒÎ™4~E¾Ó¡m¥¿ªæ°³à}8—Þ(ªnªMKJÌ¡·ž–ŽÀ[ŒŠót]wÃ?,{VÃA=ÔmίFN¡ïÕyÞÑeÝýÞãè‰h÷Ú§àu:¯¼Ýžî÷jSøœGþ½û}´¨ bâWù³­–Ší™ÚÎÀVëëöÌÆÅRÝl.û›ÚÓ°-ÆÞàmÐJwʦæÆîÛe+âXÒ£³ì®pèÜ!yþÏÄŠù.Éái…gꇔ ‡p/èï‡ÏxÏáSBãÝÆ*#ÝWŠ•EëÙ¬¿ìáü^/=ª×§: ©Ëãa󔥇´¢ŽŠ¯Ç4¿¼u·ÏìÄû¬¤½˜ýÞš»~Öu£u]_ôðžGݬ$W]Dfoôdn}A‹¬¹‹ÞŠÎB=º©?ù&¼£»6à¦ÕÝBÄ^\g{è;})yu ÉííõÀ#ÇÊí #`‚ºBÏé  “(DšÉå …áãÛÿ*ýi(ŽAïy*$‹*œì)(£á¡¯•ódRº<)¥&ìÉ„€€V2¯#‘Ë'abob!H”ƒCëÐ|§§Z®Ð€³9J_¢RóWþ‘Ù~O¼^*“•…ó| Ô‚`éí ·b<ÒÁ¨øvÇ~%” ã{åêJ`$…ù•ç¹^!/úyzJ³¥f;L$x…ƒóKµ¦€ƒB«Å\³Í[9ïnxÅ‘a ›;åñz¢ ƒ4wµà60N‹ã^è(1¦¦™‹ÝY7”ü§bTW.ÿ5TCMDÆÛå¦ýŠÈH”ÛU\ÃC³ &Ï{üýÞŽ)tæËàïá"U³¶#”Ù¶O•Œ²&ð38Öô^ܨÜðæ{DA˜¡y‰ÎVÏ1ÜñÛî3}½¬‹§Mç¹°qLœRUB+òí;X3y@œúJþcPæYÆNWÎ…B‰Žšþ~‹Æbê*‚õ€íèf.JŒ"n"Œ$¡,ÜÝ8õ —-Éo×{[rFÌäÞÀH‡Þ‘uG – .à麔AQßxY¸˜r‰hvbºñ©ý[Þ×Æ_Hò¸ÂSB¦‹g“{Ô4´SøߨÊG8¦¨~É!Am(7Ò*õYŠ‹®á,ÉmI°P /1Ô°jä=Òi•€9¯ì› &öü~ˆ$HL+vèÔ+Öš­ä+ÔðRmV3[ÑØ Â3 -Ò åy9“šÝ¡-¶£ëÖiYTM; =k§0ß²ïZq«(–ov–ÕË;6î¾q£ë!³¦®#Å2#ËJ?Âd7‚Š–çÓa7ŠÃ¶%ÈŠp1$ÖWï,S­Gž&Yt7ñ¸¯—x‘"éÉÀ ªUqw¡9þî¼í'IGË{"D»ÖíÉìœ-aÄuYö§êAçù9Ñ ¦[J‡Ø® ƒä)Ý ÷eì^Žˆ×Z¶6ųóçÂ<*ŠZÈÁñ•øºÇ—ìHž¢ ņšÅn:éßû&ê5o'>‰Â§¬OCC,Ï[ÂFݼ—,ºÀˇ S¾ªAük·«¹’ó×A Š¶ú¹K#'ß*˜$R·AG¸~”fÛÁx PΠɺjÜê0!9b¹¥é²ëÆåÂO¹z´ÆõgŒµ úïA¡Êai_m؈ü‚Ü’ K¤p‘C–Q} ‰ï/ }ߥgy.Òðª Ny¿è‹ §_ ·9&ñô§!¹+x`_ì 5ýnºugrŒªñ¼>š † 8Ô:Ê­6wU€U­šUÉo€õ›ü@òü]X@[RÒ24”K©ó€fÜDM«ìÁ‰r-Xнf~ëªyˆ‚ãÜ‚äÍoôî©Ê‡’=íH6¹sžL’ ¤9ŽAëÄ\¿æp:Ñ(+]¥GkVã¥w _ËDæÃbëX²°9 G&ÑbV–1&]©]«$1$Ršo-®6¦û!˜ï1`8KÿD5Éú¥ù«Z>Ÿ¥ŠrEˆLu²MƹyÁݾ„©h¥Ö¾½élðdê²m&ÿ5çæãU€cÆ6:!þΔóKûl& Z ©Ä™Q>\A)ê\iIÂ\8’"5)3™ªÇy ~L!ÙˆÀd[g”ÅÍzÚOi¶óÚdòBk"B÷`yÕz.Gi±µË¬¾Pç7ÂD®&3rA¬º"†b\ûC¤ª+Y{9–lQ:w>6 VûöLFT<‹C(ÿÍ­ŒßRc©}9ÑŠQé׆'ÚÈIRW¤@äêTg]jÚù‰ÊHY­-vêž G#–‘ˆ}dªÙ›¶}É®Jƒ-³±ñr¹<ÚHeK"¹…²ñr—R)ÉEéGç…éЛð<óX°ò8ñÙ¦«š®‰wµ¶’g¨.½Æh÷! æ‡ {Óu}ñä%^Jjã¹x7Áº8.å‚Jjbõ^9å&"TjYèǵšð‚68{ÕÉ‘ûœ0Ñ¢í¡X¹Ñatfý)BÁëÀõ£]|çèe@jò{\ÔFèÌrpøÑÏmnÖLk¢u<©¤Ù:J“2ûˆC‡ðä×@Æ)èÔFj»ß÷Úö›Éúá«àÇËæÙ¸dƘªi¥D‰–ÑÒ*Ò!6®þ"ØùÉÓ¯Á‘30O#2c³‚DQy)"êE1O§÷"œ<ÅÖÁæ t‹D¿l0ñ´DýÒçKDœÊŒÓ«à´|¦ÝG¨fPX,\Neòµ×D£En»Ëe;¤ÓbßCLYdBUœ Ä^"$/ÔûŽEVYÓÙi³:Ì|Ï°¤¼q—™«´J‡Ò{Ê(þäJ¦1§å¹0Øh ¯Ñ#"-Ó=‹¾£½=äêžßKߤq‘?·XÃnŽ#Þù¦\†ÝÜ&×dåØ ’s³³Ú»m¹Æ PàÄ’,³°•x[O2zV?þ´î’¸»a˜msGxVúfÞŠÛ‘1@Hºÿ=åãdw²¢ÕÁã6‘®¢”:¤v" jC>«gA„Öod+ɱíñ‰Myꉰ †-,ÅL¦âIwýdST/\7ª}ŠG.²óm$Ìîù“ˆ¨ÂÓû ÌdýØÃýù{r§­‚SŽçó`®,›…‚ׇqŽè†vzªl;98W%á @ë·à§8ôž÷÷ÚÁë®vÓŒÎÕq:…3È–þ¼lAß6ÎZm骑kíÚEïN<ŸÄž È»¨y­­—"àaü»Z'Fλzš·‹Š¡[¢íÛcïræ•¡î­_L¹ýžÎÓú ?3fÊ…ðe“e °cÏÊcmˆÓçýÊ—±£ê²¢c2¢Î¥¼.€°QB²Q’ª#L½W°ƒâ {š ¡[±WáQý€o¡·°§}£;74_%£1èé²=±M©i±{Ó²Ý?¾ÞQ€X¿¯±>&³;‘ðF“À$Œ®‘uÍ•ÕÃR€” Lã>Úh£Á±­<)¿§‰(H›×|§IIUIo™Ö |ç#o$Åë“š+T$˜Úè@ÍDñ6ìZµ ô¥ê¢_¡®­Gù&‘õٲ/–†m˜ÀöƒøÛb,w‹Ïü%Rÿ8ûR|çYFË¡;e´%[ëuÕ=Ý’É›uEw'ìÐhÝ@²&'¶P‘ ™x‚ê7]!‡|âà>•0‹?‡L"1êléK!¹8Öü sDBF}š¨JÄ}LFy|štÑ~ÄX\b¿j®¿½ñ1pÑ ÔUðf¦4 ͬ JP¶Í Åt )²YRŸ0 5Žs;j™â‰v­}åƒoãK­`Ç›Îñ 5¥¨mþhMåÑ .ìˆuiì0ö,[ì !N ÷Ôê·ŒdºD´A9ô’âŽKÒßío@ Yä òhW9ÄŠ¥®Ï}gt}.èñAûêÙÀÀɳÆs®ÑmÃÝ#ø&øÏ6#<Ð Þÿý’ÈÄœ>•“%¢g.M½’鬷z±á€¨€ˆï·ùNò]’§a§jlÄÖ<÷IS”lQ\q°‹‚©7̳ü°Ú±Ò¨*«[Š<ÙSBHÐk_o±oˆ:~[„QI„)RlÀh ËQ*ÁprR¨g¢S8šS¸ƒZJ<‚~âprzqr’Zøãa²ý’é{¦„JáøÁ’cë:¼ÈÚ†D‹b.W†%/qc¼®}ëAnW™trûø,*‡Uf”R¿ÔPÊ/§Ž\ÉHáÀƱ>EontdÉÊs„tnn…zÀûØ|Eàbr A«q¸Àlä4³ÑÐvÅdÊû̆€AaÕå¨ø¯!Ĉ.sî‘GŠ¤S°ìûÁé+¼Áãð“BÃÏVS/…ÙI¸xoxÒ •ÕôcbûŠâçÓÝ Ägçc ø ¹\KãGZ³Ž#ÅÔ]„„“\¯ZpEµ1 ío Urd?Êv>ºDGwà›,XµîIÉ•DßòZdB‰Éåã pUbBòðG|¿©9ç>©å‘êN †Í„Gàä¥&Ðø¿áW‘%M’'²œ±¸ƒsÖ-Ôd Ñ\)¨˜wåNDÏiFóe¡q ‹ÝRœp˜ œcÚì ûÕB$ñQ9Y%¬ „%܆Çøô*Ä‹6¿»F½¤)x­5*YÄ6(KÎBN/HQ´À|PdÆ%c!€F¯É·pÁª°8§¬Qng•}Ã-YN$ºA-¦1të.Ùò«™ üÇ'jI¢ÜXi¸‰tv—üv/ڈ彴ÂH–Ô\¥Â ÔÔéEî»,÷rYNUGé•¡HUgñFy—ò7`ÖŠ——œ¹ñÒ®»ôqêÍ •‘¤B›tL¯r Q†52¿"í&‡Ø µ Û”µža©ÃV;K3 _/EÈŠp3N)¢©Ù? JEªqÿ:,!JÅ•ugþHDÆ#YŽLuˆ-X'¥BþÞpÏÁ4Ç5檪ÖI%Öb§”´ Cì±`K ƒ gÒÈönÆûf®ç ‘÷hj#Ðä{‘båøk«ÏJ®ž©©™N´+ ·Ï@«_*:pŒHÀÖå(j!õk õègýØ2R$Ã[Ö^J¨BYŠ8 I3ÎE OI÷%Àž-Ä~Ä¥X2±(ä{d]iÐ@Ðàj±INpF• ¬Õ0 MIë t„¯Mi0w©Éý–…+ó\[ù½…«“è4ÆL­óò^qˆ ‚Å{®(!n%ëE%>%rú¸ wÇ~d¼z ŽvrµÕÙ>9ëûˆ¬ÚUŸÆâ”FP_¸$á¥ÍmØÁû}où>!,YOטU3HF‹»]x†eJÒDt–dM‚Aý'º%§†˜Yß/²ì=Õô±åô³mû£È~k2Ÿ#Õ©Aýg<ýz’—¥§©½…Mýv©á9’=Ï 8\}‚¯@'é)ìcUiDjYËŽq¢+µi½ÇCVhqÎ6á"ªÁÁ¡þÌ¡qkŠ£ÃÝÒó):g­ßÚSD׺óSÈžœ¤3©ý3 êñ‚J…¿*ãqešÑwzLÍï"<1 Q $¯šáo` ¾íËB( Ù@‘¦Îj}<¢ï¬ÚÞÚ5ÊË%vg¯ðR?Ö»«–>Ú“pVj Ù^çTø­”³¤“ʳäç!õõžË‘\»ÊÀfçìhýÒZ+£“w œļ½ÅF õ]¤Ó~|¬¶é`ã-ûL8K¬Z·Ü –ßó4Ðw¿àÇKÃ*NkwV%±Ù'÷6 §•î/î[ìÒ'“±Â§Þÿm<åñ¤{P¥oÅ{9måt©|ôh2æ@èi¬N8œÔkÙÞˆyÔ2y'瞨„Ÿf‘™x«©#ê¨Ü>Ë*³TúîaAmÁ¼™S>lõ&^žP½“â¬Y y 0œŸ·¸K¥|-ƒ/c4žÿd˜½=òŽÞŠ4L”‰tsGj»ÒiÄ2iÄeœ=jy¦#¢¼’Å.©´NÁAT ²:!·; ãª#Q yîNÛrOjû¦°¿lŠÃe££¥ù°am2½ðyÓxlyÂØ´pdHò{[îëV§îåÁW>×VØèøˆ<‰-˜»)¢©Âí¹è)F]öÆÐO ®¥ xM'¡V‘bA®X?Zâ.¹îgßÐ)»¾Tx23‘æxð$UÙ¶šžtZ>9‹»fì]ž]lqô}ê€ù½_q¦‚Ÿ=Wž3ã\\ ô[Ì~öXZî<û³½„¹4¾=;éxò½„„¸Ú'ƒÔšúî`Œ¼DbÚ-̽D?¿Ä@½Æb¾Æ‘½Æ³½&ˆ¾&ª¾&™¾&cޔ¼Â:¾Þ±F¦µ¼fŒ¼f®¼f¼f?»¥ÛÂÇŸt‡’½åÓ¹Ê2¾ª¾ˆ¼¹¼•¬ô‡¼••¸K%¼¿–U®¼U¼U?¿Õ@½×b¾×‘½×³½7ˆ¾7ª¾7í¸§öa7‡¼·¦¼·•¼··¼wŒ¼7ö¼½¹½‡³Õ´ƒ}ôb~ô‘}ôûÈý„rP¥¹J톒î1ý+ùoñœUú˜\ñÌŒõö}» ÷öL{}þ–X:Ýó± ú{ñËW¹»aÝÇýuc&ê¨h[6–×ÒÈï͕߶¶^ ­¿0ÃgF¸×TaöEƒ|^Ãv~™WؼË?½fRpU ¼\¥€?-W'Þæ¿·ÙPOJà3Ù…ìó½r¿|^«~>~Ó¿íA»ËA¾ÿ’\{„·{ùüåx. ?Õý½  EÏ¿û½?“–yô–`0‹^ð#ÍþòôŽh4–P4žÚüžx<‚¤Þêìžd2•QÛB ÆÞxØÌnÚjõÁT: ²Éüù|¡„õýÇÙ/ŠÅRêRk÷Û}‘ | ëgñGBÁrÉ‘xK’•j‹•úGÊ\+ÅJ¼& Ô†óþFŒÞPöÕÅ3D» jðø ¹L>ÄL£fj¯~'ˆbµÕÑÁH:›hdf}®Ádô…}wºêááD¹j„×Ëåj½éBµõ;ëõf»,£Ãä\ íáÔ»}qG “íõG›Më°-¬­cŸÿz‹ÃÍõo®—Ûý‘:[ ÷Û¯ó•Û ç½vÅÎÔ×O^àÇÛóÃÍÍ'ŸÏƒ6Ûw?×ïþ0”¡H^pœ/ß‘%Øó|Ñ4\ ‚±-ZõpÝ_B ÂSåBˆÒ] Ã)tTóÃiÚ_#é ÀÿÐiü?Uÿþãoѯæ¶6BæúV¶¦ÿÏëYéÿ}þ++3ëéÿ)õ—þc€òðoô¿‰{õ\ôè¹>ƒKþRÿcým¿üŸï€oGÅ+XXÿ® >TÎŽ÷ËûS\–]a±ãê}øß<áÚhƒþÊ„]—b­HužX2Ø‘½ÂIwš9mGt™lRÖ—©Y™zú7™°®¾Á>vF~¡Þ Î1þ1‰žñ ±)~‰qi^Qö!†\ÅaåÑy9^ÙÕNµUù5iMní-Ž…ž=áe(‘•uõ±õy)Y­­cmIÓIéãSk+s ›Žñî}û#½¥n§¹k«; s[»÷[K+WOÏoOÀeôžÞ,{ÄB.S‹?hüùþÔ&í7fïÏ_C"uÛŒj@À™6Zi­Œx(Tºgª=L]<Ùwä©LÂTtU-O†Ø¾L$¶¥Ê6ZC’ƒD}æƒäžB(<ÔpçZ^vØ;¨? çÄÎpÎP胩pÚQf¾pzì™FJ°·’±%ÅŠX•î@3“dMÎN„ç㽇iôut•,-¾ˆÃõb{ȵ!Æ­ºˆ9nˆ{¦Jšïôút3Z» %.ÍÁ,ºÉ#ÆžN­áDµÛ/†‹¥ÃÊÎJMû›Þ¸WÚ Gë¥f22bÎÖ‡íd·în³·‡‹ÕI]åHÜ’ÀÁîÎWŠƒ€B¨z`çûóíÁDŽÀ÷÷ûËÃÅÎLOÏ÷ $|×Ãl×ï#(Ê|º€$B¾ˆ¦b¶„eRºŒç|ªN?¸Bœl¶ÿ§'\~ Áyónøß<ᘠV µ—J¢¹ŸZ÷¢~FžÄ apÅJA›ÆK±–Ä—‘Ÿ&*ÉÀE(›”Ç©·¥èͯ%ê'›‡f—§ó…gØÕŸšd:ö§™d¹–»™f{ú·™ðc ¦çç žçæû»¿@çeÑŸ—¢ÅóòSYÅÊ3h% óâ×Ï# ßÈÃJ²-òŠ Q(}ËÒ-ØÏ+rÜÇ÷*‘“×ÉË«uF-*êüÏ)Hb‹%*scüÝ­jšÎ–•C”UåAÝW så”S4-ýý癘Áï•u;î’–ÕAÍ´Íù´-'íÕKõÕÕëçý×í”mép´ ]ÁéôýP3tºK»¦ÄpM‹ÂÄ †Á$-»Á}ÿ‹ÊÕcIÛŒxô¤;æã pxvÝi&/– –7mžŒœP4 ƒª—L¸›ŒÕˆÛ“£Ðt¿ÙÚgøt¥™æd]p™˜F$í3hÝÓô§Hn6ì{,z"¨7ÎÇáXWtb¢lg´E7éçÑ9³žÇP©\zæQ€Œõ°Óæ{:™õûUχŠŠ§l™@©ç¶ƒ#+› Ž„ÌŠ³×É`™·3–ôè·súòé· ²7ü³ËÆ›÷«Ö“ê÷ëÎçë÷›Î竺\p4Û»Q²šûI¶›‡YQºß¿Um=Kê5k~?mºÜü~^óý}ˆñåýmÍ{Í(Yðvû£´ûöÌÂûãeÆ–ã5b[ö%$mà[ܯ•º7íqŸEX½#ðSbÐñ1ßBÁÝúB~ÈûQ¿ïû9Å×dåÆê*kP,œpöÐHãÛïÃlžU46Ì)ÐÒ®‚ws_D¯.v`¿¨²U’Hë+ä…Ƚ|G§ýÉ»™QÎH`*½°[ÁîZVÐegÌ•DµlåÅ[· "^ DI"o$µAþ!g‹¼sÔß¼fmèr°½`:ð[ V¸€QÌÍ^ÏFÉ ©¹‹G”(Rù36êyŒLX‚àfDœç6¢%¬ï˜_ˆùZDjY±ôCóǘ8~7©6²ˆÚT|Bcý>¹u²ˆÖelBç->`/ô:a€ó:*Ũ=ɉa—€LìK¥/c©—¶:YÌÚB1aRmŸZåyDTê&­›œq*UÂép6…[Ϙ¾À]ÂîC1ã´þ}jU‚Ÿ&jŽ˜›])D Á)ë‰ó+wbñ„igMV41sŸú„øI!¨ñ+¿[éìÕ\܇·1"ÉT˜Ab>~^¡»’øŽÛB2ÎÿWK™Cø<o½+¢õ¿.ç|ÚÛb> ;ôo˜…, –B‘ߧ²)é²ú"a©hAfJ%œsåŒåOðhÊçÝæ"Ùà¿Ï9’—ê +,ðÊU§ÆUŠó—b- ¶¯Ö%V8Ñ%o++tŒßTЫj|yÌt—Â}ûqžjC¥+ 0'V‡9Ÿêb£*È$×ƶ—¬~ÿ2ʦÍ@pVh°Û¿Äx7µIÌÃÖ‚øÑ@KN°sÈ(ÐÀ-XA5¯8²–4Ú˜¬§× ¦Z¶uyÏÛ.vn¥w<Ø ZT+™J5,¥nh-'ÌçaIn¡r¬x)nØ|qØØ‚òR i¥!r™Ìpgm–J̳ÿãj´º„çDU•1ZjéZn¢P{ß¡ÛŒϡ¡OBô‡`£ïÄ¿õÀÏ$$Kí—ª§®(ÜC-øj£bÚBðì:¯ê·We€Ù©¯t±±ß(Õã wý)u©F&Õ}žþ3D$²®:M~ûþg×/*1bY±1j¸ ¼,©[^ôfÄý¸2-ò«n­e¤¸÷,HÆI P†t§Âc–…Ò)›däÌøŽ…µ&–à‹(d϶·8/¸,0m 6ÕÁR 'é/¤OîÅUHõ9“_Ù$ìb%êót¤µ¥““;ƒnHc:Þö+pR¬YË„³Ä!Çrïôv¿iöµ«,:´#'¾«¢ú©¡fàd¶ôho“*¶N½m”¤Ll!®Ïÿ>& XßH¼ÏŽT9çmÁX Yâö[5÷Hع`ŒB²µ”\]9:üÜZ®î(°¾ž›ÎؾÅhé¼Á?s7LÛù=ýÜö ë{ó°HOËŽSSuHõ1,~蘼õcsÝ¿¯híbÐ1ö³Í<@qgŽþ/»yøE´­_YÇ.lóè#øµË˜×6½cãøl˜£Í h ̶Ü8Y‚äl ²1Ïÿ±~.™—ôÕ¬øyíÌ%˜3«è«iyÇÚ¹å°{ Ð65þå¹Ý­oÛ¦ŽMìB_„«zŒ×¦!'ëêݹÃkïÚ®­"kÜÅÅ~[ÿ®>ÃëFò#‚ϲý‚>)T¶s3g¼[3þ.6¦óÌçÛH…JuêLç1ÛÌëôÁô½mÚ‚•8o-6^ž©š·—ŽGbžËšˆÛµš…æ–µS:»ÛWàsï—îÛ>2Âñ¿2!¼œgÞƒº»_Ûey~ɾœ}‘z[Ž¡¿n}?g³~Ù Ù¶ùí¼'­~´sùjÛ)xD¼dvæÛ/èùýœàKºŠùü-æ ²òyåfÏw"òdÕg]ÕÃÜוЗYÅ÷Wˆop¡¯S¿oı/«¿7Š–5F¨û'› »¯ã¢ßʳß²?B«/ä©’™¹šå‹ïvŠï÷RÂœ`VÒz?%ƒúfÂVûŸ[#6ßãýHâùÍ9_„É­Xî¨Ì I[ј™‡Ÿˆ^¡Žæ-C ˆdKMåC ù r¸á¥¥€r'›1 /ŠŒŒFƒHZLZÙõ’µÜOÉ)ÀC‚Ør‚ űÌ]C uº÷ƒ±ÔHQ‚•Í‚nC‚|AɉB‰˜­*úC/¡BñAÀqfLN¥!¡!Îáx!˜«aÑ/¡JXáìaÆ®!¥jVâJAü§>4§a9¥Ô·óVÁÌáÁbÝ­!|É!å§~«ádö•ý©F ¥¢¡4µÃVV/^Œf`'Çþ fºì~™©`[£î(Qp¢þý`_)ä¢'ÍÈN] È^¢¾Š}CXa>v% ":?u÷Vz5#}Oþ¥æ?Á³Oáœ[ñ´Ã…½3ýóòmË{§Å€ÌåfNˆï…e 0×%1ße¢Âö&s‹avåÄÿaÊÉb.xØâÙâ½1â…/Ç_ñ•#QÚOäL8HÌ<±~ÅÓð>^;I;žà›Š[’ZZï.!ñ.¤Åm’v2Þn’?˜E²YZ²Y/¤ÚìWÁÝd ì{q»W0äÿLþ_\ÿÈÿÿô}øO£þ«ÿ9ÿg``abøwüŸ…™•á¿øÿ?£þâÿ ß@þ­ÿ×Ìÿ_ÃÿàÿãùŽ€]Û7uhÿ­ÿŠAÛßý¿ÊL‹]«oF®ÿ;ÿ÷?¸¾î—5E¡õ/X*œš>mtŸâM¢³ˆª,kºyéôæ«/ØGsf#  qˆŒŠŽ‰‹OHLJNIMKÏÈÌŠ Ïów„JÈÏ.+Ï ­Š¯ª¯O¬ j¨ni‹h®èîé+ˆ.T„- 웜êìhOêjêh^ˆZ™^߈Úš(p-ÎÛÝ<)kl¯îZ› n¸©½»ºlûµ|þø| ,ÛæM#"¥Ý% øDYøÚlñòvçÁÆ°ÞŠúhìX¬%"VB€%ÆQ Ýe8H&œ-tEXÒv<¬%ì g7ýš^&ÿC†LG3/U‹ €HIj$™~8_KÝž2ga«>›;Y¨¡ª7’˜G›ËO@PK'¯Ô¨•¥SØREßo¨Dt²o E¾V-èí¦áx2JJì÷m5¾X)` wÌé;¤ŠÙR×ðØX^-šk0ƒª¡±p=Í-á"óŒlh2JåµÜOŸ´uìÌT¦úé~—GÁ.‘¢¬Á¶º9LA*{ºè‘8…Š© Œ74¬Yü-¼“|×r¶†®qãÉÄÍy½D„˜²ý'קÊ{¦µƒGܾ Yûƒëÿ¸A†|AþäúФ¥¹˜ph€Þÿ€ëï…|&ßý×Gꎀ6žîÿåÿμlvÅ~ü7®zÃIqøקð¯3û“ëŸ&ȉP%*Âd(™”%k9Ÿ¥Hj¸­†ëýÁõÓÌŠËŽ£ óÓí†)N2a×H±m—ËN²=ŸÂŽ³ÏNr1,J³Ä¿–ŸæG²®æqþ)ûHNúSöÿ±÷pM-Íâ¡# "* X"Å„Þ¤ ŠÒ±!(E LBG‘^DéUŠJG¥ƒ‚JQQº ¥ÙA¬ˆÿSŠí~ß÷îóýþïÝs¯zΖÙÝÙ™Ù™ÙÙÑatvz ˆÈ©´HljܜƃŽye­ãyE"¢YÅŽÏ }ÆÐ¥ô‰F\}%’]Ô ¿F,¡©q6 ÇÕVpº­aÍËR¬²Þ˨»w¬‹7É/`ëb Šä{Uù¤u’¿¢Gç\­¶ËéUÅ`•CQí8áKaÍç÷¢USǪ%jôëô\NÝ]fN¬`ß(Z¾üì@þu†oÞÅÑÌ–6e¶­{[·þ拏&Ú$ª× x=ËžB¯s ëÉÜàÏÚ*{S.n°äÔš×)²2»gˆµìÑf¥7¥R‹Û·M¥8ÜeÝY#y÷Ûsb™Éñ”+z; lnŽ «}çh!Ý÷ÁÚ™t[0?Ì­ÓÆê6¨ß°TlèÞ¶…Xå×ð>_ªxñ¸¨ÙÇG¶ÈOJ;;>_Yöéé…YeÃOÏ"ìð×FRÜ_}M’øüþ}¯úöÈ%ûÍÌMÆ`/‡®µëÔàæšU-»Ò^î‰Y±)ÚA[áJ>½f@È>N {†(ofÖ?X&¯)qçÌvÓûÂ¥7.Ñã¢_¦mKl=¿—Ã>@V(usÈe½È òIXigañtñ©8òI늦÷IFzñ×e¢…#bõ£yEl.;“Ú×#ˆ½“[Dr¾›òÎÚV4–»5=BÖ²ÿéÁkÖìvq‹ÞUQ3¼å¹‡6®d*#«¿û’d®óÒ³³×õ«·¬iõµXšÚi”½ «t;rÛeâñ¤ÎÍ#{‹Ö¼Êœ´uÐq^µGmBfO¾½nsñÞ¢» ›¯Ê„ ëi?0Š}<(¬IVîN~sšÿß+÷ħ"‡í”štõχNMŠAåšv%¤ML—æ]Ý"r0'mu‚µ«ÃªÍÝW·­¼„’ËS¹[vðrëå´éщµF3Ž¤[ˆLºTœeŽË‰Çï½ÒY½¬¤/f*­:L3ÚòЧjßÙ‡O³uqlK>ÉgŽÎ\læx1xìôÊ‹žÓ[î†iû‘t)×ß$™:`ã3ÚÑèpðÒ›o{%ÄÇ®}ûÌÈ<‡K/!ý†ÅE$Ës¿´Š ÙmgÃnm´xrðzã¾ä´ƒë½_7†pØ™ÆSºKòBª•§O÷Ù²oõ¼°×Q&Ê{wÍnOòfÁë×ôD­le»á„ÎçÎK*¯ŽÖŒžaú„í:V˜Ô+—¬›ýÅ<°sË­Ó÷f_iÑ¥ÞA77J¼”Ö?þâ êÕ÷÷ˆYì…}¯/·ÞE Z]xXôªqj²ªKô¾ Ÿ—Ë/¸žOLVM’h7v7?ÜÑ»ïÃÝ5…[…Ðqã[oÃSŠŠ–:šnìí=3+~ëh'‘Áäüœ¸­»xï©OuŸ ¦»Þß~½¡2ÊÓàÅÞ[ž÷‰»¯½.½ø¡VÙr2ËGl­ŠÍ5Y¶5rdÃ[ö¼}7wïF=쫳òõ[ýæÄÆG½-‡=Tž¨Ž†Ú¿Ïó3žˆ×:<Ù)ð¥ýÙbàp|•õrFr­sññ£Ñ(ÅVÕŽOêÏUÓÞs¿i{4n0hònzÿÌ‹ ½GNº¼ÞòöìI»á­lŸìN]Š-å0Õcûì?;YøPæÅÝšw\£³5»½ªw[Î gª'z¼ËÞþžm㱂١o³]au/úx>ß-5íõÕãÆñ¯,Ç9QÇïmöe>.j{l È·;ÓWžÑ×ï©ï-z?­¾SZ~=Ö~‡Nú±äø-×öåŽ÷iˆóC6‹­KØ…B‹ $‹VˆŠ£ý$ƒOð7üˆ‘eõ—ó )Qr•óc5h±õ΢wÝÕŒµ¸CR*—>bBتèõuòË^·È†ƒ"ñ'Ûµt äH†cÎz\'ûãýâYH~öhÓ„@òˆàŸF<ÕÕ?+àïÛž|‡5Y§igèîøô™{í ’›§é³Ýöïu=bƒøÜì ¾gO6T°{}ÃC_=ÈXË;: ÈÌÿÀÃÆYWì–'nNm±æ}OCnO»¾jÅÆš}Ђ!ôþ}+3í{Y)·M‚¦ÊÍ‚´Œ£<ÌžzÒ izo<¸™Vw!H7À©õ¾¶Õwó„mW‚?Ô àj Ir°¸¡aU}a¿Ó•ˆbW’«÷©Çâ{RsÜNÄ㌈ïÝǺÈÙe%Y]æ9ŒÇi9~ÍqcÄ=Ó ¿Èèzc,¯6…öšæ5ª‹ ÁmÉr ßr×3$`*öt»<yÈbC®«§×ðêð™f•»Úî÷n¬Ð­yÎäé}é#Iªp—·L|cï»3ØUºåÔ†»Ñ§˜bŽ­!*¤\JÐÊÈ’7Ù´Òƒ½ÒR9ˆxèCdÐtD»pbÝ¡û„Oí˜=L˜çcƦÆf§‚NSSUÇŽ„Ļ϶Ž5´ìSŠpÐ ÝaÞ"©“Èçyèî’ôþ\·i%'çòd½–˜hÏ ˜5é«Ö„Þ>üÈ8ŸÏáº`í(bkz!“tÁMıêBò „$a—µÙ12Ù¯£fÊ»û2ÝM…Ýú³Ã'³}óÐŽý‘Í7ƒcÞi'2f4“}®çØ$d³xé’s8gÖv½í­ñý":ò­(ÛÏ©eቹ¹{mœYÏ’KµQ˜ÖŒ3qFÏÆbßkº÷awD¯Ý•Êà`tðîxïÞ„¸ÈÆà fKÒAÔ%SïƒeÁy¬‡5J½ ïÉË%¦åº;§*†Þß"×™'¥–.¸9—½"»çเ¯ÍŽ,lE¨´¨Þ(fÝÓÅÁQŒ»Î<ÿœ›)R´B;—Köêæ‘ÄÞ«M¡®Ï„ƒqŠWúí’b¥Æ‚“ëV´¸F†•t| }ýÙê#úÌ«X}õسëJOer‡#¶bñ<[åq2ï"vQìÚڦÞ^指Ïk‡E«…grå]¿S­8b§Æd{ýëD)QÁ„ífÐ4w[ŠduO %ÿ #>3R¹öÏ6–§ÕÑ¡»Cw,-ð×|~Sž·Þmü¼­yã2Žã–Ãl5²^• ìM9+ù}›ŽÍ4ù®k>¡Ò¼™“”ßT¶³9´¦9|°9r¦ÙOëÆ’:7ŽY¹¸ý-oH- >âI5-·î´¤™‹¥¯k­–i=ç#zÁ§5ÂfG^{KÁ`ëÙ™Öb±V.•2Ÿ¶Š”¶ªš¶šÁ¶ähÁ¨uí *í7ÌÛgšJTÚΧ´·†·¶¶ç·ëªi¿£ÒÑiÞq]GLžj¾²@L«¿l£Õ“ ¾–êƒ3íÑÃêb؇íQÃ7^t¾ ïHØyËŠ_}¢Fe¤FáóŒÐŒÏ­·ºÊn½OÙñ-\î¥Ca×äŒâÒ!¡å;Ø Vv­~©Æ³^aM­ßÚúõòSeÏVÜÜ$®&ðRNèk½/ëEáõj¢Î-,Õ«ò¤·Ëmyöîlˆ€’Åö­/eU—•…Ù|-PÙY+«q-0´›ñeÉ ùÝ÷‰©ø3]Üëo‡ßíÉCÄw*¸vý^­mYãýøÒnñ÷Ç”¸ºÇ²î _¿¯Á]sò~ ¥èÛ3¥oUĽuKé¶^ëázÙ³vi/*ÃRõ^3ç^dD¯H!¿ÓºžÈB!—£ÛH…Ò”—Qâw­#“-¤R ïž]ß›*oÑyþhgöp–xwþÒ®®û¹µSîïÛ5påå­K]. ½fC¼_ö4=ói_±o°7¹£âL_ûQtç×Á®¡;ªèn‹¡£¤¡ÞZTZæÀƒ¯CÖ?x¢ú %z;éÒXꃉÚ2›×!X}8Nª>|gñýö<âáûÚ‡3CgÅéÓ¨eü\ÿ€ùØ#Ö´G:{iþô?ñÿ✱;‰® –ô79€ÿ"þKFJ^î{ÿ¯¼Ü?÷ÿþ‘öÿæ!üô÷ŸÁôßþþ3aÉ êï?}¿ôÑŽ7\âe‘GZÏH‰q24½ìèlms=§[ë GÑµÖ áWÇü1²Jn;{¬vp$÷wzVÄ?¸SöasêK¿b½»É˜¢b<¯CgWWN¼KKT˵J—@ÅNß~ŠÄµU¡¾lIHÝVkGÎüµM"ap}yjfù$>¾_B½_Ty·ŠìJ±öJÙšÀ¿ù‚_/®tt_áÒÕ3/ÅÒ‡Ø…Ä %½uC†>ܺnyÖ)ÉÄÒ£ŸCNÙ„˜íœ'Þoz>²‡[#ˆ~µÄ;öª³KøÞUóòûG®õ<Éræ±Räf½¢­k$ž±œ^¦‰÷”½Ð¾Ì¨ñãÌ’-Ñé!ËÄCß .Ó:£|àÉáîMW‰{é¸ì›ùÜ%­ƒ­±ôœyÚ•§å>¿Û“©¾p`ëŽÁ³¤ÑFì€ñ‹ê"×OIÓìò’'/ùñ(>(#l `úÖ[}ðÈ“«§ßîsiZ2u9QI²‚Ù)y}s´ÎnÅAE:›eI}‡úg–ÄvÝŠ»'oÝ¥Ü)Ç=hÙ}¾T1‡£û¶: }–¸fuöÌRv: ±Ôyв!/ÊP_SɱŽ¯•¯ôj›Û$¶o¨&_¯ÂôHÌVmÚ6ùìâßu>öï¾Ì*¸ÛÕ­óÎ-òÙÛ]náRÜ7ºþëúC® ,©Þ|F:)LÖn7„=ºˆéƒÙ;Ž=ß«ýø8Úº™ŸÀˆ:¼îs˾¹×*ä³O–çêm,¡ÒEÙ£Ý*øQHÃÞTìÊ„ŠMîÛ2…¼¶põm8%³Á㼇v^_È5¥ ŸíË>YJæëf´Ëá=q¸±ÝØalŸÈwB¥|Í6Ãüy×XzCˆƒFd¤xœ£ž²H.TÂË4Ë_S¤>+^YG˜`*|N^·—Íæ#’w~¹CÕĹ EŸ;¹sZLy Ï×Mð’Æ[—^tOš8 {Õm­˜öõ}º³…žèüüü ¯ªܶÍÊ…—Ë·é­Ü¬xïraYÏ“¤B Ñú-EzMk ²ÏF.K”?¬K*Rb¾ôîLå-åþ¢òO¡[%õG•ïsj²èkt]Ë×0º]ëO÷.½žé©Ôõg‚Å Sjú‰;˜´ ¤½¿Šò*­ ¥¸.8¥žr9*Dj]¯rIM4q¦§ÕyÍðdÛñPæCWòÍ/Ý|vÂxO±FÛ 1¸£wñ.­³3¨«»¦fŽtZ*pç&neúøPÝ„õË¢ÞGRj4‡w”•;Xž/»çyþj@ïæRWA;£¼·y¯k·¹ßõi‰b·Þ{¬OLЇ/aújW"Bws*™µŒôI"vzŽ¦ŸÅÿókÞÿ›ž×k¼+Ö#ü=¿ý >±þK+Èü°þËÊ)ü³þÿ‰^ÿÕè˜ÓÄó©/OžùpoèCWßTS×”üㆶWuMS• ¯.×NxE<&⎠bÜ{ȆKU¯ò¯Lœ/zvЩgíMÓ;ªû:¶î»“™?‘rþYxücY­‘íMÂÛ;6Ê5­kX%ÖĆlˆNyæþøhà ùØ “[Ž2ˆàiÀ8õ´îÙcvGsïUYÕ¹¦©©/ÏŸyöìÓ'_††>ôõMÝ»÷¡«kª©iª¡áUeå«Ë—'òó'ΟÒYÀ± ˜gÕx98E¹±Ú‰¾ëå軉<¢xãq”ž‡«2«Æ¥°„•p3¸jM—Ÿmy’Ú*YFŽwoÞ,ì¿r¥ˆÈªÑ°Õ<ÜQÜââ||ëãã×InHÙ€DnÜ”™…>!;'7/¿ 0'+kãÙÔTÉuëâ%bÅOsóD¬ Yàï¿lªÍGˆã–§«+33Ù¥‡àìÄÅ«¢b¿•ÍÚêð%³1cc£}rr†ú[èéudwI#Ôw~”–ù*#k+µB*y©û^çAwöe,­ã{¢Ôü*dWtìé¿¢´öÜã5§íwoÜ槯¨ýØŠ>cIèªB„ßM¦Ã1"G\2rfÅ 7žh];}-öv–¶™*§Pþ8‹i²Ì‘^,†áâákÆœY{š–¨-Û'?|ÝêéeR΃rןO!Ü®áйƒ¯ÖU‰sœçTã%n¨ü€xêaÔAM=©,Å씌¥gaSé>“¥§tĶ5E纴ó)ÇQÞ¨]%çJ¹üÖ"ö%tIiFpOŸˆ!_7ÌMR>JOftçáµCâB«N¢ ÷…/^ÞÄÅÎÍmÇÆÇÝpÉc°Å¡,[,„霖QôðÞ“£ŽÝ>aÅ;%FBG:ûnêŸ}à~t”Žƒ3}㶣ÓîÕè׿3ÜñJå}¯Å¤gÆ5 åf&žå|—N¬Ë45]/8£B6ÕE²‘8ô…9®3­îîÖsní+Y"^âC¯'¬—±g8bSo‚@¤òûæáS[™Ç³¢¶vu£ \üX⥚Dpñ›:ÇžK,Ögè—»»‰Á= i -p.À€OõÜè}/»vì^%N Ý!Ûi͈z]¾¹fWmJàÔ˜YÉà÷–à iyèH÷3EÅŒ¼{yéR§±âBÞYl°ýT^WÌõf¬þªÖTƒ+}#ê,åÈl>tm×`Áå¸;f{´EZ&HÕ{è—°ïëìÖæ$qÈX:kŹ'§aGñÐtŠ¶jj‘<b¦jGÙ†8oú®·?«Îøï­Ï?—ÿÖ<þoÿ%ÿ¥¶(È/ÿe¤þ±ÿþÈËÿeˆe üGlÒEˆè"ÄMò¦)ÄV'„*™S›ŒÐ9ÉixRÚ*¡ƒ0LÑuOA*D¾‚°¬E8Ô"½Ó½/4";9=:Õ#:mb;mÒ:n÷YI÷nÞ£ï׈àoˆÓßXÿq†}ãŒþ¶)þ›tá·ð©oç¿}„íÎÿúÉp,fµ(éFËMëJýHÞ¥¬ïÞjKiê2m Pæbð  ÐGÞ\¢Í)~vOÈå)Î Ù×sU^1zîäY±‚s™;‹Æ*vvVfFÝRÍ5LLôt©lZ«XèéYâµ³s4vüoP„äØ÷#ýÇø_ZJöýÐÿáÿ?ñÀü?ˆ˜ÿýÏÏÏ{`Ð\!ˆ¯À2†YÅí÷?©ñ¶\×à³~º…¦püß>%Ä+}‰ä[`ü¡úá›|ˆ°gÁ³~ùãn ‡Ùlƒ‚CBçãÿ"mØü\ù0'Ì“b3³ÎÚW0">Í,9ymª>oàIºËºœúù%<å×\Jå.ÏàίT«¦K¸¾úª_íô²k\Í-ÛÚ:J‹nw®ºy£Ý¡¯5ïÙ[R{ž%u?™dxß;¶u mäýò®Óþ{ìü*ÌN6Ÿþ’-ɲÇ´‰ñ$ÓÅú5þï| ŸŸÂ\ç[dA‘’>xÓT`ôžºÇ)«ºSÈ{ôï¦ 2cfDsnŸ×JØ¢>¢R~wýM¿y/š¹, Ó•OfnÙ7Gç{중Ã+a£uû¶Š`­¦è ÏN–¹uô¿=˜¨Ýd<ôÉ™^æʪÃU+Œ%å+ìlóx1z˜3p{u3á®ÓŠ™ „Ó½—.TÕ±îÞ°ÏSý{ƒ†ê{õªËãws²ßÐ#?Ë ïÝß–fPý~åáb‹Ó²Ë_?¼6àjÞZñv¸ùøò €¼Ê©Ñ®,=÷Ë•UÓÏ{KvÖVxýèzØÆÝu5Ÿ¦Æîæ7þÿLJýÏóŸ?¿”ÿ2LþËlùÑÿ/ ÿGþÿ–ÿltÇþRþƒeùϺPþ—ïüNþrùBò¹ÅïÛeÊÿË÷Rù¿˜ÆÓ)ò?b¸Ô«#ðüÀ›Šñ‹-ïª;¦¾ùjó; â*yJ("*:òLL|@\B²ORÊY×´ô,|榰õ]´JöƒÒV:ø÷Ÿkji¿ÿ|3èÒeéVùÆÎ[]·ïܽӬß.yyæ2Æ=~2üôÙÈèØøÄó/Ç˲×obl‘í_÷ŽaèÕÌ×Ùo†2‘»ÎsÚv0ìq„™o๠4:ÇSçÃq©òàØìæ‡ÛÖ3 H$ò"Ó4Oö¼H|1ÆiÅeÞ2fÝ€Ýb¡6Ó[`«/$»4my%sS’¸4IÀÏIcÂöÆÂæ3ºJ{O~â϶šV X{ ÙÈÎr¿šQ«¶MX*©sª7×{ÞZóœ¸hlúî¼ev•x®ÎÔpq )?¹»ÉöÓ¬âVù·V1kl°«Ò“¶hô|I’Xsˆ´¼ÕËóôA³-f–iÑ¡uNêÅã-Ç,¿„:ËÉÞïÈÝz+Ö`ë–'MåGök 81>oØUÊ/:"kö´yÚØp£«U[ç’/òòÓ7{Âî›$y/}ý"÷"÷ëFqöŠ&Ï©îmªOgï¾x5Ž8ë?m|ÖîÙù7¼^H:ÞGÞ•t=ˆøqÛ‡l/]³Ú½<sbíî<™Åõ–¹åt ¥½ô¸M§à*âF÷0©Uì ÓoV®Ø(sdÉ·¸o¸Õø×­'ŠÝ½©çQÀÐì–0hÒ|"JE½Q¦7Î"T?8œ±=êö çã+>Œ?ðº}ꟑÍPç«—%:TˆÑw‰··Ÿ=²‘¯v’mÏ¥w.o”Å-8–}|Ö˜‡îJg÷iæhÜpïômä½²îû; Ž”[¾ìzðâ­çH朗‰Gã‘]®Î‡Þ™€õÜ°Ë_ —žåéô¸ýR¤(Ý\cÿס‡…¥î²q»j?ÂE>ųm`iÎÎx/ñR×c^#b¶CŸ^nåVN‹Þ™ú¥kçÕcv/*–žMz?:]þà¨÷+þI夡âö:“ïî=G™N½Ä¿fª¼e¤^$vÕbvÝèReÃËl¥ªOw/ÖM¨*­}ëÄ;3ë1qvéæ÷ZXýéü¢®IŠqî*ÕKDlŠÙþ¨ãÔÑéë¾r™Ô£·t±//8üÄK.»ýôç²Kö:0Ér «˜d#Ð;Õö䦦oZöÁåúz7ý múk8ýƒ6q­X¦ªÂÏ‘sCNðRˆ¡-ÿª«|Ó·,¡Û­/rýïÒ‹~\ÿ±g<öÏÙ²RÒ2?¬ÿ2ÿ¬ÿä×ÿtá¹þƒeþmûzþ‹jÿ!­ ó_ÅsößÙR^„ÏÁ.ÑÉêÃöµ& žlŒ'Û§8üüg#õ9›žØÑ'R—ûfsŸä(ÎßmW´º$µ”½pmIZµá•šòU•õqÉ7W^eèhÖ¾ÞZw´j#]¯^횎[]»îä´q5!ûØFG$x‡R{Çß¼Y6É>9þ~êÓLJdz_Ì `íò}tÍõ.ú9(Òo‡?'r™z¿¦÷×Í'Ù³g%Õ•–s»^îÝcY"°×ðÅ5 k­@QéF±Þ=vÍI‚öícVùÞ˜‡¹åì¤,—Ì3_{ ÛÀòÙÐîIFæÈ]l}Ú2ñðVÎòmn9Ir›ïeÉÞ t¨\Ž.f*ÉI[µä¶¸i!¶²¿àþ+3'¾æ #Gng‹ò²—ÃÝ'†šÞoÛœ¢˜µ;(Ü’I§»Ø>ÙlÓÖÕZ'^:yeÍS̹®Ä}¦å×Ù{F•™;† Ͻøµ”ÊéœG7µÝb°¬Å9Ü쵘µ{À]ê=ɽ_äÖ-I•Y·Èõ÷Ì¥j5y\|?õ\÷øªäò@ŒIÆ?ý„z8O”H—†vçÉUô˜M ¯21{Þ¹~¼Ôx’5C&]Š§>ÿåØ{'S¶Ø™KWl tþ+Ó©Èoÿä4æYðÓ3¼ü jÂÐù/#ã5BÑçÎYAë?íüW¾ ^ÿGS(÷q£©#Ðù¯ñѳ¾Ì"càù/‡‰BÐù¯‰¹Ÿ}5Åm›ûÙ×ëµ¾±çâÀó_Ûî<é=71‘_Üøy "ßîŽã‰ ‰bÍÂcƒ¦Lí_y­[_·® ±!iv¸‡éú…=/V5Å%¾ØóÉ¡«À¶Ós¿©ÛÇö+æžkºWŠ'Þ%mNR± sr_b€PQ½;åÙ}·x¯Ï«cÎèp~ó!kYQ…É»ÌUzS÷{^9™¥Ê{ÜL\*{Ü&>¥ìr{냆#í$·[r5¸K+›_ß^jßý˜;\rG%•h5Ë7+¡Ûßo§þKÆ:dÅæᛇ»ŒÓåVÙúëx­º6«1aY4«Ü#ÉçäþB0,ɳH±¹¨©p³äÌ›<¯™^_v„ïzYÓüm¼ëåëtZh(t׋êtMäìǧñÄÙOcÙg?Ã?ûÚ$ùíW?ûº¶Ø°D7ž½ÄìòIŽðtF¡±ÕòN<ÕYCëÙ;‰þ|VßÔ´ù¹ ¹+,X?i©³ÚJ™ßÂñ–ê¾aïª?µ#T¹‹•1ÈÏ.·øäá°³$µŽE‚Áþæåï¯hÔæ>Ý\ïykimæÅ «¥-øyo\F¯—˜xIÜÃؾüú‡ŒöíõXöþGw/µÆî U?g½º~ºaÍ…½ÎN}­¦¥ §%ÉOµÖï¯X+wLëÔúê”e_?jY»äo÷<מݤjÛú«$ªóЋÑ~º¼m[ÓEÇ€·I*«XMÆë—­¦`$eß꽿²Gß6cÝ€´þöUä£M”=²Ô‚GM%õ®óØFW÷šJîYw'b™v')i*¼ë¥§¥Ó­j*õMx¶Ê¨ÎnA¡ÿ]JÍ?Ï¿üüRÿûsþY)™ïïÿ““–•úGÿû¬ÿ} KûKý,ó_Ôÿ¨çÿèÕßTø^xýqþ®¿ïõ¿ùóÿi°þG‹¾ÈE\,¾TRzùJYùEnÆþŸÆÜ­mím-·ïÜí<ÝÝÓÁXÕ48ôàá#FDWﳑÒþÕ£Ï_\?U©R=àøvÕûÝSæŸßÌl1àt`>ËèoÀºKí æcþ@ùuÛ¢ÐÌ™ a:hùk¼³šÃ›"eT$8Ç™ÎÑGkj/SK|“*'a”÷ô×ÎXùØöU1äýx&:ñO Ù]¢[ü8®]Æù²ï–)p§`î±ì×xfÓp_Hç€bÇÄãç‘ç×g&ÅJÉtä/Kˆr²,ZùbÃ’ü+'ð9lŸqíºÿÜ¿^ð盲}7ùZ×DwÈpÖ¡Å̺fø]éHWó˜ Ü]-Ù›ÐÜ~ÓÁž¢ñÇt{„ØÊž©­ÉŸ¸s7Z§ZSæð¨ZØjÛ[…Ê©®  ÿÍ©ÞòoÇï/o¨Ý`òaúö;lã!_ò³Þ³–ćÇ>¾žx3Ìÿº®çXÝfÂþàëìÌx7ÚÔCilú¡ßÌ8*°„~ÌÒ?X\î¾ù ]ïYÒðŠ8Œ×ªÎ€Jý[ûu½§›‘!›^ùoô :j’áÄs¸‹Ïsé˜uЃOîYF|RÆ‘ÊOfåY6–±þÁݧ%8ÂD U>:f¤Œ<ºC%/~ôkàÀ‘j!—¹ÍOœ­×æÚáïܵÙLµÁêQ¤v¿ÖÓTõ\öO÷*6G»pñ ¥íà6µ÷ôà®Ý£—vÙ–,®;ž‘Znü9–)<¶”¼/ÏáBà졉óušUÂé9G[ùls7']R¶ ÕÍL9¿¯Ê.ç\aRÈxT>wÒ°õñYžˆlÇÜÜÒL®V‡³çìÖؤÇY#×]êúìø$¯Ð¹oL7"‰szÔ'X•7‘{eÜ4Dàä áªQvæFo¬ç;ãª×~wÓ”l¿fðŠU÷ËŒ?ÏHÙÕV\Íé2[™ ã¯x’ä\ä9ôÙ¼‘±‡åiÓîÏÕÉsðrÇÛ¸ù´Ú:}Í¿xUÁÌL’k«´µúËIÏ{‡ÕŒØö¸S[‘Ç®wn¨×/)¦Ûù–|hé$…ëÛù+õ·Ñ‚CñœªåÝEVÄ;År=8{µ-½¨`Uõµ˜Ž÷Œ "X77«º¨ô.kñYžña}@ô#wÍáÍ‘ ö¯# óÏŠm|¤¼b[Q_Ôž 'žYY¥1Ó>4Šô ÓV“§Ôpu¾hÂßí|Y±½tùËšË8¶Ô±HμN]¾½F¢u±F¬…÷õŒBÇvIÕ—…F€þ×kO»ëïÑ¿«ÿ½ñeÕô¿ækÌÊoü8ý¥]Ïfúæo{:³Bsý2¯7þHŽ V-í®¤7'Ñúl&Í ÜUo¤Â38쵯¯í¨Øž±Ì½ùú†Ïo‚Ô829ƒ*®>Óô~ k-Õ«Úý68düÄBŸYs¿öÞ‘]FüÂEc"â%'Âø¦¬§¯KIG¾Ý»½5w‡ƒê­§Ù¶x+1÷o*š¾Ý{;qU73]oß[!£Õ>jÐnVš´>°±ô ¶AÅÛC'ñO…7*tZ¯æ|º`@ä•]úŽD.-}ʯú©%Ò Ù܆M@xçŽF™Â}« oÜ=TYY,MŠ»Ÿƒ$„´wˆˆ¯ÅkˆI®i7à ÇÜ|qCúe¬>v¢„x ¿™ßVA• }7áÞ‹F¹ò– ÿ=âÈVlÒù¹þwË«*íc{ö¶Ÿ:ÿÑÿO=?ê¼Ýßö—ñ_r²ßßÿ,%ûOüÇyæã¿ÎCúŸwZ£zÆe p!N㶼_ƒA^p„W4·Å$ŽÂÑ[œa`0çuø fY F‡¦ tN‚ñbªd0”l“.¶Õ .Ñ•¶ çÔ&ƒqdë³ þkš/ÿåk%ÅÉyòD½‹š`xh€ßm•Hz®ÓH-›Œèå­™'VãÑßE6ÂËð­]·~ƒÖF$r˜ÀQÁM›…œcbÕÿW{ýäù‘ÿÉ6˜¿Õûÿ/Äÿ+H}Çÿ[äþ¹ÿí<0ÿïB¼CL-°ÿ¾-¸>H?~ü§•!~ë"g£šeFð6aðÒIµÁúõK#›Ÿ¾•t oEßý¤¡qÞ ÙKÓðŠ™SO2“eÅðÅOb–w?g«b?µ{¤§*Õ·éÕ3göøQ]/7uýа°ã«XÃOGDB6áffÐ&L<›™†È`fmBÄùãÉù—ò /””]¾˜]v©Â»¸º ¨®êZn­ÛÕ›9MGZZÛ:ovÙݹÖmu¿º×´¿¼¡ùÆ­Gbtt+GFÆÆW>(DMp2¾›žzùäîSáñw“ˆ;䦰³l~S›Õ¤xÃè¾-ívï°Ú²ä9ÆVûH²æªYÎÕ¼âsïo]£Õî$謜ÜÒø.~wb›©<û5òRŸ¿ªëì»TWäC—þ-º«Æ«3äCÕ 7WÌÿRlÜ=qÚ鎹R€×Qå2«CAVd™ˆ‰n|ÿùý8££Þr&ùÕS wÈbÚ ¼¤Š¹GcÄ–\e\ÏØ® ‘öÖãœuK<î]@ŠÒuÛ5±²¤ÁOJ»"BtÜåz<»™è–müZ7Lå%ñB\uÃ+‡Zá™"n•‡/ׄkvó¿dUs3—ƒgCªýôøP‘Éö¼Ïä—l¬.:çm%¿}të:ï·ªçiÉÞÒÑÙµ“†{VÖÚXVyýäl¬¥sÆêtÓY?µdý÷Ö$‡à#‚V'Öß`|¬±ÒÑîV@V»Ï.Γuí®”fÓ]BüÍ<'‹”ùuÙ«XSBjn+f…R°±ÃÆ[Ýî ›°4¸ëì|ðNàVÕj[ ½‰^ÁS»?ó E=îÕN‰í[¥m{†Ù8d8FûDî¹xõÏÈ.KÓµ-ùD€:åv¢`á»;ú /ßÝÝ£%>ÝmdâìʱðÎÕ_Èÿ¿Ñû÷×þ?y…åÿ?ñÿäåÜwòñ xŸ_‰ˆãߎ'&‰‹HþÇÁò¿ø—ò±OÐ5ä©EŸƒò êuà¹Þ^öºº—I^| ËhÂ*Tú‹8Ù£ÇfÔ†R¿|sqµñrðÁ³û†PÜvxœ´ ÜáC8án{ çt&86&>"1é´ZôÙ µÈs)Òr|ó¶œ:¿=ûÒ±ÒmWN–o«¬"Õ¨Öy]Sm¸îžŸUVTQÜ~ä¦J“g‹JÛ=Æž­fŽÃOŸZ¸B1acŸ½Á¿|7=®õñÓç/pL·¢Zqz½?sÒ¼9*£!ƒNå¤öÛtMŒK›/ ø†Íîq[§CzÚ$¤“vÃy^/éì“{Û·×";Ú¹Q–|af\`L/S5œ- dzßÝx’O•€£Nžr®œ¯\ñ±òÃK.g–hv„õ®n29ågÑ&'Ñ]¹ó¥ñMѲ—åû§ížUß»¸ôžÉ[Hì^q0‚n³Z ˜ç$ã ¹ÕñébÒÓÎ8!«my‰Œ£ôg·g½òI”6çÍÞ¯g'ÞåîM*þ:§š6R² ×W~½-áç/Õ™ìñò|«ÿÖ†µÊ“5ÅÙûí¶u¹=yQK¾ºÛgúåÝãÃÇ j=¼^ÛwÈn\~µÈgôÝxݱÉï'¾ í˜-?LÈkÙ•ìø4wË#S ü n"ñƒ•?çýøÁ2¼qÇ:­ ”d½o@/3ãè†ÆøÌc·Z†IWl )OlÞ.é =¢X•.°eg'€Ûyçž ûö¸Õ‚¡[ózíc”6¼¹ í kZ7݉³ Ä Ån3üÄɸ¾Eý .CÉ.þÙQl’-?îBŠP×’ìöŸFByÞ'ŽžÝÍŠZâE?ñÌ€WIŸL’3Mr—™ÈÎQóŠ?'Ǫ€qºó(7;$r#Çà^«ÙsSWï=™Ë¡æ°:ïc_«HQýÄg'Ölúä‰#±³\Õxç”2Ó׎îJos ¤\*§¯¿Òçåý ÿÞdöúÊÇ"z›NÄå #2Ü»½×5<–ÍSL_nÉÞVé¡þžùŒ«£¥‚}Ÿö²ÔÞÝ𼯹ξ$ó¼½æ~ïôûéq,D3qüã+‡*×N]Œ¿gâ@Ù1T{…wÏóŒº}ZÝ*Å_1Ü/zï)½{e“³%V¯{lƒ˜qw!‚̲ùÒ‹}VÕïM Ü-D>W3¼z©W‡hÔûªµo".úŒê=üÜÿ¡îcÇÅcÚÎ~þp±¬Ø—Eÿ}›ýô5ü¨ÿQHÙ–èöÇÎÿy?œÿÜ"ûýÿGPÿSì=ðþ¤ÂZà¦OŒKzĦYa$RÇÙ…H¢`m‘v$¢3¨ƒÄ9cì±ÊH ÖÙ#£$/§Q Õ! ‡¨_ŠvКÙþ°½ç/Œ,wL“ ¼@aÃ:%äïsi ¹&简zx¨“~³×–³»µòúN\˜ZðjY;:X±ÀT@ËܽíkàåG½M ÏCj-ÅáïÖ ÝE׫j›©Û?ž´Ê!;s¯†k°Ç… ˆæÞô8ð¡ê:Š}kÇuäV]Ê=ãÈæø˜n¼ßƒÂߨT]üáº×=öü°é”ÓÁ%nÊ­ÊkÄ>s¬W5p®4[êØq¾BÜ?bP á¡ûüEˆˆØÌؾ Í«,/̨ðÅ¥áõ›6ÞÜ»Ù÷8k('VJOÐ'««çm¾DLŽ—ëù»%ËKvûÌ><Ô#ÝÂ#ÓóÀvUŽ£f³I¨|øíœ7'kmÈV¾gϤ]Å0h‰­~3\o"6#¢K±,D›Þ:Ó™í¥7”ÌúVh_yµ—ëž¿u‡æGþ×Æ‘)D’'ø3æþ¯-² ?Äÿ*üÿñgØþCÑG">@ß¾¾¾½½½g>vÔ#ªDéjjߨ(Cvö•jj¬¼¼Ë)‚•¡Á[3EyýçÛUÖ«§[§Œj5ÀA ¼‚µk©oÎ7ÃUˆ•¬V)¾å»Ëì ð¤%!” „9" „S}ˆ7€è@ ®¶·zû4C¯^E¬"¦Ua”™ÔÔÔxÍ)0h 8¯/‚òÁó ÁzUÃüÐ Ã4/T‰Ÿfd`ñÐçò¦°óð¨ô§Aešaœy‹x Ø·WWê7ô‹žab`aUcÕñॢ Øy˜ÔX¼þjL3¼ßRN|ãá¹ÊÊ:äd~``Fð6sR<üF¦ôoLW*®I<¡÷ò‘G_+‹¸¢/2ÒCp%Âr9¢àB 8úˆu“ˆ7âˆÍˆDF‹8ˆkD&ÁýAÇê±îMÔAöojjW1æ*“ôoJgöX…³0³ <®!¢2ìÜ5V:+DÇ{×7T¸ = w‘Ÿ Cá>„¢"2!È°BÐu€è{dŽ˜|‹xºòÚ$þä7f¦«j¬cÍ*“žïÅö´OyMú˜ëOÒOM}{<¦0NùÍ˱[ù cHþ§Ž _«bfÞUô s>mñú”w õèøÔKÔ?ÖÍ+<‡\MÌ(÷t9½{SQݦ‡¸7-_Ñüøäל‡\öÖ~]«³…Š•9púógî2ÞR5º)tjH«?bÕ1mLà×`¹‰àá`VìØ“3únÌþ/WeùícÃ==Ê3Ëú$ÄT]X(JÎPç\ìþ¤l´Ã…¾µáwwŒ¥“ú+…I Ò,V>Ë ÍS-—¢ÒºsY-4½ýdy¾O8;£Š.o$+J¤ñ‚‡î.Çñó ò88ÜÖ™m" ×ÈLË›È+8“”g5[•c]P{Åñy!¦6´/köeÅŠÂ æ¼¢ã;úEm¯²å¿(‘Ì”°<Î_•“Ø_nŸœ¤…¦ÔÕr¾R­$‚º²WƉP|£¤,-Ò~ß¡s§LÎ$Úf,2}¤~¬Å"vô}XQ©ãêägÇžl«EëS­m‰^¬Z/„ŠgSpU[—ùXߘÙì)ÛT¥%y\(Ή»Ò¬`²q\úõÙ{´dûLkÁíëËò_wŠ~0i\3uÈ"«ÒÓD*eð¶w1v@¾pSº†¬î¥[F嬗qì §LDå§ï[¥:µ‹‹¿ïsÜåÖ/ïÀ÷ å̉¾Øã/ß-iXÿaVÓ-hücîcñî^Õíî—Zf×|~ܸ"íu‡cY÷— ï. ¸X•-ãªùT~TA¢êà)>“O ²SèקU̶z¶x$… 5¼$lµ?/yNêyÏŠ<å—Õd§ê¶5ë¦_6ëU¹=©Ézõ¶Sf ¼ô9éùᑨû³3ï‰Ï_Ëói“;ŸžÅ¯hß“¶fÛ‡ùG{J¯›x8$ÓÞà\w†ï…Ì)³ôØ=§³ˆú'ª7N|Yo [N¾Æ¨ìr€=¥íùíz²fñ Þv¤C\vý2/ž™tÖ­¼ +’¢N©d°±$4¬®rñ÷ÉàÐâ¹¾¦‹\MƲ¾¸ëë?KágUg28ó¹olZ»«©’É%Þ\/¤|úˆŽOæ*çÕ7…MߨÉäÞ{SÜë­µÁL&¯Éý›ÒI+ °*Yk ¹åªöú9ûd­ÛÄÛ¤Ôû€kMÖ†­±ªŸ÷z¾fïÝÈÒ’»k2ꈴ ?O ·¦Ìäésm‚¨%´öMž9tIp³Bß Òd4ï[A´VˆˆÎ™É˜-B"&}ÚJ&cOsŠÙ'êº3WxYHÂ}M[ã›ÉxËBR»…Û1‘% 3‚2Ñ•-X™©3>#‚YÂZûJ“Âj6Ë/Ïíp^V’üà€âõܦ#gîFŽ¨d¯»›k¨PRšêèƒRé@ßò ½”öþé;þmS¹7NÞ É^Å ²Åu9]W­‘ÓÀv)cÙô& ¼ë!ûº¹ks8dóöò.g‰Ì µ ÐwN‡ŸÛ<ÔÝŸW[²Ê_â¨0›…ð]›;—/´Ö&çÞMU/ÍÞ–ºy¿cG—\ò.U…è¼n¢Ì•Ü'>"FmÂ÷r3KóŒ-PÆ¥…$¹´Ã_ETéÜâJ’¦  òM{Zï—UMºDä›êöTõOytäþÐÚS÷yú¢ïÒ«çŸëê¿ÿÑÏ–K¹¥4 ¢Öéì`ÄÅøþåD}~ÿ-áâùwµñWú¿”Ôû? ÿÄÿü™YöH#'xé’ú ’Í!“‘F$,Ùˆ·Ýî ¢, ¬=Ægk¥+³!‡ŸŸ &ºC‰H"‚Áp{$ m("1[àG°ÅÙ`S‚Vh|³ÅÚ!--:KK4‹·Cº`HX©Š4$°bH'w 9¨4ø 5°v8IqÀ"ç'ºPpDYb® œ4@`¡Ù–€ih” O$‘Qbð0½Xð"amQÂbP“Âb´² €rRbÈÅÏâ²n¼+KíøÂÄžŽ¡ŽÑî=F@ZªðÜ8r [h\Ôq ÜÅ A˜Š/:¾p<ŽŒEZc€¿àCcìÀÉ„À€s@…$<’Å“(ñSÄ/ni' ‹¡À¸¶!DBJ,À1D>8" À04Ú7ú—Pæ(ažÄb4Ì— µjÏG£æJ æqI{ÐÔYü1‡Jì»Hg`zh]fpÉ€†(@{ÒòЧgï@™ÿ¶&’l±$Z!(„ÅãâUhL@>¿†„= gûk„À|ò+dÀ¹¿B”û!bêïvù•Úš¥-q'œåRp6p]€ÒA$HA©x,ÁFŠœº -AÌQ¿)Dà~XÉb0Eø'ãüS´â`3*YÌSŸµŽŒ$)Е yl2–‚†J7X'¤ÖÓ˜c2$¯póÜõƒP¡N-­Y…Ùæ¥ÙÚ¨l5ºŸB„Ø Ç ‡ tI¹:ºyic¡ KHVÍž*¹,̤-Ø–`ñdìïKI¥¾#D@>Ûáì]IX´5ÆÆÉžDt…fªŒ”vD’;†d댥8mÉèÅ‹€Ø÷äC%@£‹„m]± Be#‰ ;ïóÈ°¦KPp`A™ß-:>ìRHË@3lsœBv¤¸¿¯5¿(~HM·œ à 4g  µ£ @9hëQ0ôê ½mƒd~„ĶF9¸È̯'žX<žèŽׇ¹yJ(ȉý@ÛŠ wÌM’%MÊÈ‚bÂï\’ŒÜm™§ÛH},EFÚáip–h<‘èààZ ùçùz~¦ÿcI6S’ÿ6 à/ôyyù~ÿYVJæýÿO<ÿÿéÿó+öߦþÿµ@$ီÐJ£Ü°$@ Âài ß©õÔJxŒ5ïŒ!Ùã@À?˜ ¿©äB¤öì¯ ˆŸØ'À7`¢/ªõk ååÿ¬òó!ÃÊȯ†»P ÿq¨TÂú†©Rýâa‚Ùs*пn4Ñ4k3ÏZ UUp,UWĨVÚa\ñ*†`@ÄbÉHÀZ±ÆÒŠ‚ ¹“ˆ•ºc<‘X]G’°T€ q`³`É&œÛ<‹”tZ™…%ÀòÿsÖŒ§9»†¶¿ß„þ·)ÄŸƒÿí&ßä`Ö@D? kq èAbðøbã_%¤Ÿ™ø$¢;8«b AåêLß…”†z²°¤Ì¯J.0†á’²?)¹ˆ åCb˜x dôÜ´#mpxÛ}Dw²*ÀZ ÉóïÎÂ’2¿ÎÂ’²ÿÕáì$â¡áüÙôлÎ+-´í؆‹­óVá|æµ"Í8'›‰ƒF?`œƒkÖø[h€ëÐpa@4I Sç“Æ&`·Tž›kÌ ª:¾oÎÒ­\;ý›¾ƒ% Hb¾$ëbeYÿ·\ °í¾PÎIÿ!¯Ãœ:»Øù*ˆH9áÿÄÏPêX/ÐbÀÿ%ve†€¹ 5 X—ÐTi0‡0—`I%F”ö|ax(²‹‡B!ºür$`ñ-?öå§=¡–þ×ÿIOÍö¿&¼ÿ§°Ãßäø«ó¿[¤ˆÿ•“ú'þ÷<< —šwìÑ×üN‚ô¨3ç€C€)€Úe‹#amÀXQ$;4ßÙ“Ìüèâ`¦,¨MH3”„„$ô?°¢±-ö9,t9P= í)ÿÞ+n.ù‰8tê(‰/F°‘¦. ÔŸ¶EÓìÇEe@EH%y¢QÒ¨ïó þ¸saªÌO¡‚ 6 ¨8òdéEu¶"%…ú>—ÖŽÀßò,ºà´B ¸@ºRÐÁ@M‚‚%S˜@ÙÀà´´„t]KKPðXZ¢àÉ .¬´uÙì%˜þÝJ ž«@]q¡¿©ŠÖGQw¥Pˆ„Ðਲ’&¢5’(PG¤Y!D[ ¿$¢§ðwÀ Xk"æLÝ‹£º†T!Êú¾ƒÿ§Ýà?Êÿý6$"µÀ-AÒø/¯åÿ•‘û>þC^áŸßø3RCÆÚ"^ÄQ5-  )IpæÉ’d*1€ )&¼h‹•Xg^Œ©‹d8˜°Xóf³¡ŠÉ…´ÅÆ wè!cÖmKT‡x–êãíC”+ ª°*rõI ³8PÌ]ÂÓ „çRŒâ鈢‹0r“*ü!%!%ŒeøW\œ9ï; a)®$ A0¶P6…E( |Ò¨ph­Ò ¼ÐIAí$Д´„ÔbÅ\Cp`Eý`Ø8_èNêWàÀü°À^³±9 `Ê{Þ¿¬ )ÅHÔ¼R &-œ!ÔQ6ˆ  šh -´ $cÅ G“7 Ô^QHeH}?<ç>ìpx<øÍlëáp(ÿ(dv ¡©%¸:[R­l(°VŠÁ ÁM¿ŸÉ$\åàŠÇ[Λ¢`kÝÙ`Á;¬heÀÑY.ð‹…d©Y0hk éùx€É ‰²wu¶ö\ÐQ`t!P]CJý>[za6°þbç;®ŽƱ:ìÜEÍcN¦õRfQ*Ž@Æ’(‹qñ#Hj©E£•þ±ÑÎŽ‚sÆBü¤À¶så~–û=Ð'ÈÛ»¨O°²W©þéŸf’] N€ûÃÔ‘°.€†c‹Åc<õ÷û4g%„O9j!7XÈ9‚ lƒ@$ÌÑÍwYÀRAÁÙü"ÓÖÐœæs~ ÕáwP~ u~@?§˜ÎÏ­Ì¢@c0`cÿÓs¹"ɳxŠ“•–‘L1qÀQó˜; Úµ( 駿Á®5ÑÞÜöBƒÎM‰HRF‚BxA9PªAB‹ $?T‹_ Xá®x[¤5 ãS IE(öƒþ_6ëð·6k#a,_@3?õwe~ÚÅÿ„ìçRâN@Ö¢°ðÔž°ú¦Q!ÁûüÊÐ.Mq’ùoPœþ Õè?[ZLaðxh´îSÕ@1$¨FÂõ©„’dàZ`’†‚k¡¿W÷Å4 Âb@Ù¿p5@Ú!É•þKFÓÿ_4Ðÿ›ŸÅö¿5Ž ù÷·ñPPûåýÀ3oÿKå¤edeH¹¿¿+?>ÿÇíÿçßÐððX€}ÿÎø¿_Ï¿´”,8ç 2[äd¤eÁßãÿþñÿü‰G`“¤+™M<–à†tñ¤8  ÏP ]°$$°¸á\(Hw,iGÂb½ÀX-pãâ‚w ¡t$R ú¾±àö°à‚ÐŒ¹] #(âê‘30q ÚmƒW¤;Žâ€´m$° »:C>xk,ØWÜ‹ƒ=@Ð(<ε`ó‚h%“°G\4ÀÜÀ’È Ž¤CûÉH#"8"™öP)ÙÕzn+†B€,ܘaƒŸ ‘:r2–61d`Rì 8; [ €î]P²»ÎÆlØpDDÐ^ V‚æ  ~!ñГO«çŒ‡ƒ¬r,xu j ŸÂ‚;W@‘`ƒÁ¨"Í`K‡ÁíAÄçŒÝåJ°Œ3u`š‰û{ûÕ‰à‡&¸² ‡CaZ€ê2çeÀÚÂ~C0ÁÐ0 °Wu äÊYôJ&&ôC¡¦Ì÷ÆHÁª‰NàûnÈëƒ_{0„…­ì!](´Š0´}[q?d›£èl;17 ya u$ Àø?Z¢>ŽL¡Ž‘¿´çæoo²i~§Åý³#šº~î°&º.ÈÝIt¶&R[£½/†¶ .õu.ß$¸ýëC†åKt²Œ- Ûh‰!Ì1!¼—†£Ø3 e6§vRcT¤ÿ€ã|L‚€>hXÇÖÇœÈhPPP}Á\ ÞÉ”ý%sùK ¢:—éHÄÐÀ@6–„Ù…#¥áC?‹!â6ç@‚e©!7€,èñv€Å´§ ˜G8;O$ ÐÂPÀW@8€| ë TÉ J:, b±áà* ¼É º¥¡OQ$ ”ø°;Þï#º`!,΋L²†õSm®Ë; ð/4j~Â|H(x'ñרQÎÔÝ ê׿TÓ\lEâWeA£!%€BŠ ¤ }8 % IHeäB\À™`õ…s}oB$9!¶¤ cÚ°¼ÊQ'–¦`™'YX ÝÀÃ_Ô$^A×øÏ=-w!Àl?'B8Î[X HþE•YQŒŸ¯ÂF¦*u!æß±²Í¶([È·g@‚®zê‘@%’a±±++ÁEJA¥T¡“óô•c£ ™¹`íšÿkü¼PšÐÚ°ÆS~ÚP† –:Ô*lðu!dpQ„Õ-PT€¼ Î/Äds:€°Lj‚ú¢¶,¦ç.j…˜`íJöÜ­Å×ÛùÓs û}ñžH²+¨ž€¬!5†æÕDâ‰@s`è’„YÐ8­€Ô‡2ÊZ6KcÍ}ûuv‚EEŽŸõC #©Gå@,‘ÁÃÇ@ÉEG¤4 5 Ó`pÛ~M}ÍFP¤ihîÚq@N¤ž~FYÀnЖ$Pà6Aÿ| K¥.ÇAî?"ùöÉX¹h&* ¨pµ®y˜÷±™¡@…´hIíˆ%š–Æ;ôh.ì5.Ô’vî×è—‘ìy×°†í?_ž)à܆Ú}2|¢>»õ˜Ûn¢u_‡`GD?E‚ lšÖ š Á…2à!dHûî»<Ÿ!õ„L/™Íô¸@àh,¨^Q8–s 18‘U— :j@ÌAŽlð| ¤ Ã@pÀ) ïnQÀôIÝ,&4$@º¸çÌZXÒ;ÿ! ð›&h˜{pGŒ ²0µ 60€9WÍ (ܬ»:Ð H&@Ñ.HpÓ$G¢ ƒt%àŽ€¤j tÆkƒ¼0!Á¹hˆˆ¨ÚÞ\16$ra•ùwQ¤4ÛÜgs粄ÙþÖY€Á×CÍŶΉ`šˆü7¦ €öÃÌýtÚ Ô^Í­“ ÃÏX‹pv`8  °7¢5:÷§p¾ÿ½ÓOí;ˆf ºð¯Ilè»Ë©ÀEv'È­€¢Aœ{ÙƒÓa=@MÜl@šTÙECÔœ¨ ®Ô r4¿V $ÎÉj-™0ºÁgxÚ.¦uâG5€æÜK ʆ–0¸«TåÖ ènCZ}ØeN«>?QÀ,Ùͯì°C ˜d;Œ ¬aÑRŒ€yUÖÐpÔ•“†*ȇDP Ò¢!à˜¤ùÁ  \ª¨ÞQü¹ o(Æ ¡€Ý ñ‘D[ÖI¤1º@¤æ –ŠYؽ0……S0ÌeDkGÀòÇ ÏØB*øÁ¢¢„&æ᪋©ß• é†æ ý©TGƒ5Èêûa'2uÅý„”f± ôgžà†`aG§y0˜ÊS m[`7µ÷Ôì9lPoƒZh…Á¨0ð„Ê/ÌXð-\ß_ß#¬ü]‰Ÿ×ƒ èÂIKª8QEA/P£?µZÞ:@O¶0ˆ_·OÈ \Pì;I@¸ØÂ%ÔŠ(1ЇýÿØ{×ö6rca0_¥_Ñïl“6Å!åËähGÞ×ãñ$ÞÌÅk+™¼F«§E¶¤ŽH6Ã&%ñœ'ÿ}Q7 €F7)[ö$瘙Xd7P(…B¡PÐX-ÌY|ˆN¸òk?=ј?œË…øV­ñÓ¾ë]/¦-mG„+¼†ýƬ#8ëUtØSm©µFìȱ )†ÁøÀò6r=JC®åžû¾ß«­áIq%Ü7ýÓSâ)óE¾‡ÆQt©è «)5TÊU_€IŠ¿Hp?ìÐjꆋÌ 7›Š¤ìVb‡ÂD`Ú0!UŸ€‘œ ¢êÃKŠ]4¸O”€)n§€©k¥WÐ5€]  <x¬§}Ü€™ƒThNª«Ê·ÏD†×AKÜÑœˆ ËÙ‹ÒbŠ;'XAœUxš Ëá—æ´ü£0/ùZЫyÏNò‚<À¦è¦¨À ¥#ã*ÙÄ."/hVŠJê_¬Œô`ö:Ùò"¹ªØ›§È«/‹±á‡°3U«39]ì¨EóGgÒó›14yz ¦CNZs!xiýÈäX8±Ã…süñ¡bN…„ñB¦’e(P…†ò°‹‹’O“=7°mᤧBÇr°2ã ³[YÅnâxl:ؽÙ?²Õä…`ÚãU'rXÈo†úÖ &–;ÞÈ9på:tAäP¿=»øí*m‹Q·aI@¬ ©ŸÌ:ùmws«Ó¸dáÉA‹îthKt·oÞ# 4ËvDÝwŒQxxÚléíÖú§;ë :Œ± D"¿ÍGôÐþÕ¬lïèô¥k+QYŠ„§ÔÆ?=šŽ@µò8ÀT¢4€PËÇ@ü§YHPC…ÁõEÌeÜÊ2ÁÝÈ¥W°<Çòýþnl+~‘'_¬ÍÒçŨœçëŽ(á¥$ŽŒ]¾`¤åêNÉßè¦bKë«é:i–üt䮜P¿g–ÄÑ•9n]@$|Ùʪ|–Ül‰«ðWk³ ŸŽ.Þ¦ˆ†a4R<Ü<£E;Z_TR/•Â[:öY Î"§K/#@°Å•æ¸ZÎmÐ@´üpµÉý7ên¨ÌwÐ]8ùŠŠ‘IØLÇ%`c[yㇸjª>tõoDÿ/³æ†©kŽÎueò;8ѪŸ/A8ZÍŸãI¾Ìª+ÇÎñmŠ! 0ÞÎ* ¥©nd$5©êî†ôœK¸xPösdÉ âî`àÙ{žƒEÃà<:›@|­|†«pÄÌn΋ê’;¦êóJ¥n#2uïâ.UÌtš³WŽW%«e²¯`T¹AìLTàâbÍ‹šÆ‘ ­(P|E0ìto7ºß ŠåÍ4¼%ÚÐC¦×_«.±À|†Î•X5‚ÐÔ”fR•ºCz°ì¹1PÔÔHñ›—æ(_ÀyÐÕ*éä:µ„OÈC‰"ºâ`ŠŒ˜4"&Þ—hfˆ=2–¾°O·M̤¬éþ ;RëYËjal[2½F¦ë¯åÚ@€W<ªM,­.ÊI@ª<Ž¶2¹É­;<ÉȆ\à~(Ÿ\ç*ê¾ê€›Ù{ßØYk¡­;e W‰‹²3¸2ÜcÝúºÿ#w ²v°ötŒ¼ ÔølRH[¹¾yƒdÁ ©*7B>ßßtÔ ®„áÀÃmXKgX)š3ŒuËFe~$ë£[L–"Hlΰ±é OO8Èòf%’;I‚%J-ÝÝ;NØD¬˜À‘ÑÁ×®ˆKɸϒdÏf_¡~È–0þÃÚ•?r'ÕlÖ™G´T;±f*‘Ì6Ü„³Xå!WD÷g8¨\Yâ²ÀõÍës{hfÇžnÒ¡…9¯¸]m¹œtœI%2\3eRÛYVÊñ(bY‰:y˜gÒdJ]òŨEØÀŽØqóTòòÖc62tE#cÂÖ;?ÙS—inn¸H>F‹mÆŠÃfàȸ;@h ‚MÙaâñ5NaÎåZ$¯å 6ï6úÒy€˜œcr§é±x”Ô±ü¼©°» ¶lËu8M“‹FÑKòå¨kÁè'ÛÁ×6 {ˆ¼8·ckŸ“EÈlÍ!Äá>‰ß´ °™p0lÀ‹K¦+úÊ›‡×Aµ:ÛÓÉ´j ½hÁƒÛz)¦âjšÔÙl,ÖdŸEäžá0šë¡©ÛT#¯@(ªàÊÖ ŽÃ_7›~qû"KÎÊr’»Œt¸*Î=ðÖ‘Ž•˜ª/ì;±a/ eSVo}ò1Ù£u°Nøê|Rf˯P @ù +HÛ¹ùB¶c‚õôÏF†ÍCÌQÃíþÙ•¦è“Zƒ›8y®GÌÚ•™w¼Š£…è'å‰;‡q }'ÍkeËÍ_ó¬Âå,Þ…‰l5*£Õ$[¨ý[ëefþ½á9‰¤âBG4bˆŸ²ÿ 5žÜ‡íýÖ—”75Ñ]ÊK2{â6ÊB¸/ie^i÷\¾ˆÆãžTöôOGx”/:˜ fÝm“é§F=©š%Ð [$Iû]~^Ùájï ÛGæä6%‰È‚ˆÇä¬AžÜ˜<¨ŽíjfÞ¥Át‹}ùXô8[C}mµ‰üWGȶŒ » µ|ãúòÜ{]í´R(ª»k2 5Ô¬¿k¥.Šzz»:>Ú¯î°Ë¨»+6%_Ó葧/‘:l b­jƯʥ˜>¶ÚˆmrËNsšÆD¦´¦Mûž´²Å4÷)CmuäZÁ™`§sZUr£Í“¤lf…˜4O7ÕŽ© &Úb78ÑB@\Â35u¡pq«W5¹Ý3ˆôl[ÙM%À>2¼Å‡Þ[:á 7JfíbOÑÁ²ã=•T]êHæ–‚JªÞÞª.ôã1  lr§ÕÙTd›ÿ.Ç_x$øÝT£V:7ʤµo§¬¦ª žI„T¢_Ÿòå¸ÝâQòà‡»;WŽè Ò•RÀ,Á[PÖû–E!ù½»«d!7eiQÌÔ8‘LH†5I6=rjEŽëªB5A­BI«b±¸ƒÇ[ôRl¦æJÃwŠõ´éÏ4³9FB.‹2Hü1ºR6EÐæ9kdË!SâLÖæ¥.+ V-RÕ X¹IŠë(¸³£¦žë±£Îr«GC[`nT‚J]Zƒmcà ªG‡ŸáàÍ8Á­¦Q¬…uº;1þ*gdb®;–³>7'S¤[Úz"Ö(+ ØãK)₺9†Bͳë­:y¶Óp¬Ô®nì&ŸÎפ+‘% Ä hàæØ–8qÖÆÁãâÜ«æß7°W Þ4¨35¬3'Ì eñŽ–`oìÞ ךÁYøÈÚÌÈÇdC®_ÂðZœ£…¡²åC™‚"\î[­Là ¥;º­Ø4Æá”"d' BC#é Z£ªÞîîØ,Ñä5è €Zþ3ÒŸâŽ2e¼XÌÎ NOû’ß*~7ì1SÜWå‚–!ÙË+¸‘ñ›se°‚Oã°óäóEb¨våd‘¸Ý®í_–ºhrFŒÜݵ 9[ëJ¦¥âbÆœŠ›5óµó rtäÌ©TÀÈD› ‡gÌØæ™;™ñº,&f¦mÈ?ß™çÖ»ÁEÒ¼±Üyìò¾ðKJ÷æ¿çp´0-ˆØª”&oæ&œrngG_ËÉ5 f6ñ®å¼&ÍxÁV›ÎªÔ ¶pcAˆM¡u¹rþCºš—ã•Ë¢¼AÕˆ–ÜÏ¡¿OQ 7r’Ǻ4¼Þ“:ØFÿÂœ!òôj:;ÜïA‰ÃXÓÓ£jžÍí¼@´btµ>ôX΢#¨SSÙ]ïRýd Fqÿ™ªùèz„Ée¹(þN)ÇâÇÂà·a,¨„#ª`,àuËX˜?44(n ÞbX“ÍAp¶ »:궴FÆ«étíìÿ„o~¸r‡Àž}[ â¡%£ŸY Ã_w8Š`N.gQ±ï|j*®á‰ÓN@‰ƒè9˜9aMòb—¡å bŲŠ ±*a[’)ˆ_`k]5À êGßƤ&R“¢Ì­¢Î§  ÈK¢/èÌããT›H‰‹Ž»Ž'ÿ{Åà0Pg§à%È-"»IÒ•¿Ì®fïT’ô¦»Nã×\®¢‚¤ÿ0äÃÚ,üH† ÃŽ{(˜ñ3ÿÁM7*#SÒ©cÖuÞœB9À*ÐÔ€d%Ѷ¦à%ß´k°‚ LYÏШ·$ßh @WcDüè ÆWÔV1IãM¾kN©loòä!Û¼ÊÀ«y;kc9kÍÆ[XÇõÕË!Y8;ÕÝÿ‹Ö% ¤6€´†ÙXê51„|:_®  «›‡µ@|Å5&Éo ‚²E¿`_«_Ù›nqÊ¥]}î©8˜Ô•.Y¸xÕ{`ÎB.uyô"Al=óu£4bbd Ê6zcÓ%âµó€”ÔßXÜŸŸòEñs¨Æ|ê žgZX‘žEOM_~¹f•1M@± :ê‡945:sôØ¥ƒ)ø‘£ö‡¢úF¸ôÆÅC‚úP½žœ¼(ò‡¶9tƒ+·m0~h϶³ ˜mÙîÀ™€ ÑÁ ,…ÇàÚú*K,H<ëTql2f^#ƒ§~Ug*õ€éba¶IòÇ ía³a*…¶ÀX«¯a×fé­ÜždÅ<­¼DáÀKÆLGõÀXÐv ŽÁôtún€ë~òŒ‹ü_âíÝV¹}ÈݼÈMÎb9cuòŽ¾•§®lcrÕj1Å ²™âC«s0m«Û}«í¿~Ÿä^‹0;Ö¦b'=ï)Ù'„)ôÊ´Ø»úµ¯Ò¾g¿$ÉP{gâ½€.Æ:ò1o¯C“úØÙ3(¥ FïxTqg>ß x¯—AçW®˜!aËå9¯O ‡Ìw8ΡGX•yˆÚR¢ë…YÉ$K‰‚UïÉ;ähæ ðñ¦â®®Y¨…-ëëЖ&äîþfÙiœ»ú»¸=ýƒ( ³HªmEà´âïEÀÖ©2s5¨î‰ j`!A/2„î,à¦à&p¤à©¢Œà%ŒÝ¸iÑâZ+ôìXC¯nª9ÜçFᦟ`³«8a˯‚g ºÓÔ)¯ ]¶9«“GaèîŽí+¼³N¦  %û98 šè^t8TÞ¢ Æ -¤Õ‘ˆs¬%m­MÆ’˜eØsƒ†T"5{ð¦ Y¬“ùòEü;ÞŽuÇ:ý6´põ¹ÖßTõ¡Öݯ›<ñï í{oÂU[²±òðD9XG4$Þm§Bb/v?n@¡?ÊͱE­²çlu}‡æWŽX·RMH<¨ñ8ºÇuL¿:ÌI¦dš þª\ í‚HeNðàŸŸº¶–[)_Ñ>Wv{~tŽgôÚ8{d †_lÉh<£»clÚñø•Ž#…Oä<î¿ÑÂÇÁz>á©q;‚ÖQ½Ç$o=ÇÕ“‹ ‰¶2³µV=ìîL³yoÃz5‚´¨xEaþt“‡¸"‚RÝz=Y­Ý8B­º0𠶲oXà5"2 ì±Ã R–R€yòð‰BEö5^äXoŽð AYßzîX©Ñéf‘î|ìõº^ý—)@åÿùñýÌJsîU j´æ;BRoÔ}«kÎ.X­'§ä}llqu v‹Ðq–2Lòªò7¨Þ$V6[‡è,ÄM"Ó ƒ‘Ì(’œ­»•¸”²|§ð-·By‰z…Ë8Ÿ’/òK‡YÄí/¬ìD­f X.”µšÅ¬ˆ¹apXô­š¨Õd¦%.^;m2—yë\`?ￆ2Ï´$G‚\¤Î®²h¿»'˽!Üô•¼@P¿é»…é]à-óEQ.ćlÇ c ~S®,üâô|V€y©¹eYÚpà|n‘:kM³Yg­üH⯊¶‡8 Ú–x>ÿg}(­á·N{iÕ¹ÖиÇü0Lm2]³WY ~ÓsêT+ ®ÝQZ5M:/­sò½w7ÔxMøgµÖ£ÖöǬ–#Ö]ÿ=¬þm–¤s‘EÚxºÃ9 Šßí¨µµyv×·QŠÁ 嬦¹ñÇôåvlå±ÕIzõ;ÚÝ€ >Ðáiô¡ŒïS( ˆO¨¹±µ<Ìëç3‘ÆýÛÅ`˜¼ÃئƒX8*X»~‡¾ïÖ®n7ËÌۈˀÁ)ø*“XôãS§34`kÌm+NSc9øÚ.£kõÙr ŽXÒ»f¬U¡Öõmã!N}Š ÅI0e%÷]Ôú9‹zÞ¨-7´×.Ô’DâU¹€`2|ü8"•ºaQ©¨«‘ÆÕ1Æ šX€CS¼I1BÁpb“·úò!Y;Ç”õ8’q …}¡„5õž°…üÖý“úþînêµ m¼öR³^â''ç«VO€˜^Ž|%Duãf ‡Ý7¼–ºžtSyËî=È®¾«Or¿à äŒ÷y8™=ù¡iÉÀóƒ¹ëÖušu*e?Ž¤4«(iî_ ót áð´î©xîE1¥Æ)CÅÄØ} Ùþ*WÀÏ=æR–³HZ´âœîº}¸áà¨@¢ý gÅ´wûrf…>•blnëX—•‰Ñ5ïºÒ“ìµ61œî<®hh$C¨‡ÚÈ<[„#DÁ„íÀºät½Ä%ì%õ¤w¬/€|~˜ËϬ$•ÙnyÕ|;)Ž[pÁ{qݶʆ ¤B@ñR *¼\‘Z^A‹˜*MÝéUá å6§¬^éF×½7SÖq}ä1À®ƒÆ¥ÃÙZdêhªÃÔNvb,ñÔ’Ejr`+› e)?2f=ÏŸ!Ñ.3 þøw .ÃwJÑg@Jr>«2såä"R.1C ÄnÅ”}CÒó•*G&gÚ\;#Ç{ÓcM@'…puê,’Ç?}.çP:0Ý®oè·Ag ™Ãz3ò «Âèä8F{'ºeãÙ"Ï®vÃåâw™ùÿ$|ŒÏÍ\ÿ"jà#]·TÌ_ETÒ-7¢[“'6¸* ‘q8/¨#‹\^H"cQQò}…š²®ôFÖ-5ˆFe{ÁxlC‰G«k9`M=ÄͧSö£Ñ…öЯä —Íòè‰â5ÔOÞáIÆ ê§†®a¤]øD£iy<õ"aë›kt=$¼”ñ.*yYñèí¥è¿uB2k[ “ö£Þ—íÆù*n|мOC)Qƒ#=!s/i!ô?òqà·­ýC üØ1vÚ…7íÀPZ4L aÔh½p!GÿR+͈_†K ^©œ°É ªÌì ;Ø‚mÉjޓƈx¦À÷›Ëb’ƒ}µ%¯pÑ{ëœ:àF†¢N©xÀ—넯T#VnlÇR^_!ÞÁ”$  §ØþsžÏ¡Ÿ”-lYL‚êHWàÑV­F£<´¶w(cÇÎp0ø¨A¬%8WÇ‹h-ùL7‡zv†Ðß¡E±g½1.î‹þÁ€Æ˜:^ï;©ìÀ#r 3¼?á–bt.é Ü6î€ÜÄ4«Ì৽°à@`H4B ?’Z (H³ä 6è›zŸ‰2äÇ»ºýÒ˜‚ Á¯õ¢ bW%Š&Š ĺ–!ABjúQRé¹Å´VkSÂëý¸#ÿòãéw¯~xuôêô—×?}÷ó/×hY¢§îÜâÖ_NÆöª²˜©9Í-Önƒ5<öÊÛGµö‹.@öfzsêZ‡¡ÇˆÂ¸rF^!A‚ NÁêG …a¤šÊa|š(¥,ò‹(”‚ËÎï9B¼|ØÊfજ „dø:i8²io2“–\g‹Ò‘UÎûI¼»¤Lèç†Ç`<†T—°ù«” |pYä‘P\—Ø4ó˜öA4p¹Ácù×laÀHã¨´Ï TœÅbD_lÄi,ÅW¨ò FNîyá~O·û¼’ðîKúÚˆ•&Dæ hâdýÍ(ï¹Jg™Žu#á;&a}|QÝ‘ˆ¡.t"'ñÍ)€A¾Ò¹/å8×뀚 E§F>þ6ä™JdP6LYA"‹›—Ñ๙¦¶g…›‚ øXÞær‘ͪÏSxØHë2>•sù^½~Çž0=J2}Ü/-!Éfø…Üi3aÚhŒ>ëŠ`’4”q"xY9¼Ë­SzQ)ý‘. L•¿Ã¶3rmˆ@ÂËWI~’/ª‚‚¨±Æ SWÝÙWrR‹ 9ÃJõ.³$²Ã²$´d­¶]ìN£±”³IHeP]5óø5Þ¾92…¹ÙMQ”P õ%¾5ü—’kÊé:/FË•á²k#,NÎ1óØhQRôW4Àå]@’ÊòfÖW¸lEwðíZ-´`G~ÊBê,8Z“×—>þøH¹Ì1O—W†ž…飔ĉ‘j‡Z?@¨¾örC‰#ü:Å7%À‚AC úT„Š;ÊA.ÃÛ!nQ«Š‚™ý!§±¨u ;kŠ‡ýmê³)j»­Æý ±ãYB£O„eˆl}: ½à“=B¨›|•ì›ÞÚ¸•Ó-ë( ÁÄÔ£¯åq C1ó£oI6O×êéÚcÛÌœÒG_ŽÍ¥¯sÛKÖž¬ª÷·âÞwÛÝ‘mIFÞ& ìÆm.å½9Ò=òì.Ÿ;—R+ƒ“`{ªÅB²½´oZ—6è% åHÒÇà áv˜jáƒ!Í‘±7G¤‘j¤uæ°&À0‰,/Ç‹ì“Lg.2ÒÙªZ› ¤*’ŠBœb¹(øD%Ç|9›éWtoçF$’lbx« 6ãI+÷F!º îfÙ­Îü}YLrìË©‰QuÄÍ|4iÍïýñÁSŠ4³M¯“àÃÍXXOj¡ä>®ÄYÿ”šÔ ½çßAb}?ÑÐÊ(tÎfá‰Þá>‹Žÿ梣5²ÐÊ@md’)~F0ºuϤ‰3:¨©:üXÈ£ÂP˜%ðÊSÑiuÿT±Øèá"¯V/"[° QCuÀšŒí3t_Sׄ©õòÖHL’G.,9±‚ì'.Ò#é1D£à–XäŒ î`½UÏ@ÈÆÔŸ È(ƒ|–6 tÎÖ/&™rÑbŸA=R`|ƒÀVÃR‚ÔÌÐÕ¬Ù9¯ß8xl!2ùš( øGµWËóËbœ«íÙLÁ(Ç{q™ <€aR1¯˜fü·vwv‘Æi=ÊãñÜå\í’ë^_&ÕUþ RG Éz™E:®ÚU–ôêcßd‘-cì²æßï®QvïIw!•_x3òÚû˜Tb¤˜ÕÙ¤9›ÇÝ{ágw÷ÒöæGWÈhð÷òªƒV B+è0ì!ûà ÷#(Eòþy1ɵŽš¶äÔ/ë½â6¿/&Ñçöêq°¸¬cƬ!·”8­áAFõ¼œI‹åìÀ3GC‡åL”P³µ0¼yáÓ‰$%-TõÝH¨C„î>°ÔueN1ã|±ðåA)€³»³lOè §ÍnÂÄ;wÄÿüÜï¶Ç0ÌÙsy4š¼†A{'¸œ9º¢G6ÖK¡]Ñ?ë³ß±Ÿfãñ[Sò¨fù­) tóüžqßjs–ß$:4¢ÁåñI›9&Eµïhä›\Â[ÏäRpp†b§æÐÛÞŸóõYi–ÿ/` ik¨·ù4ŸžqnpÞû+Óð?4艤£±¤Õš]œš'ßÊU°#oµì:?›, Ζ—Bí§ÁËþŒ¤q ":¿à»K¸yÆ\šk–+TBrm HG¤#ó‡ d+ªÊ¬+7 ƒ&×ñ.&D0˜¥ÈŒgdžFÃPT'0ê‚O­d~‹î ß/Ê)U Ä7´!È”³‘l B AÅ‚.¤s ŽÇ1ÒÜK\k+ #'ÔŒçf%Ä5#¹EÁYa Oç>¥êËËE¹º¸ù—“>ýÁƒ -Ì P'¥ÊÞy„—eI*ÞBÉ)vØeœ­©$³ä¬ |”–©ZÚTöLÀPw™]€Pá—rž·ößAÜÕÓ£ì" o»é°µ+s5¡´QЉ$LçÞ«‰êqNMüâbVrœ:¤+Fœg½~µ#C3h¡Ž³Øœ¦{ 0ݤ‡2§7õógSõèEŒ‰í*süö7èHuÏ·y}¶ °W}2(­`¨r0œî F0mòtð…b¼´(õŠŠ Ò)’Õ0PåVåŽWÒ»sÀ]r‹#Î@¶ÎÚ>Z·U·- ëKÄP»eÓ=ÚÜÑ>ºÑ CÙχ›¹Ûe}›rÿ±Ý_ÜÁ¶™6ô8$x‡Ù0ºçù©ÐvÌ> Sm3ÏBQ€t0¬xLN6î)ƒÈž"´²/} û#r«q?«&î׋@}[ ŽUpùPqÊíŠÂQ„[V‡³Z€`…Ù‰Š»Qî'Lï'Œ«þ¼­8¯làLq­^ÍÚ·Žl ãôXx<ÀôV»þ~˜C€ &П´Š3g‡¤CÊ*CטÊY (E‘‰ ÆÌ3¯‡çÛKÛì(A–c¡äæ2GÓfÇM/M_˜àœ³|y“ç.á5îêþù†îx=fîñŒ:c7uvÃCˆ»×‘‡,Fæ#„Qb_0ô‚¿TrMACM>t ¼ýîø Û;l˜uÖx Y_±ñ¢>‹'¶Åô|ÈõÕr§•²í*ù¿`áE±ŒÓì\gƒ®‹áÜ5ÏÛ Hûè7F 0\‘ â\Æ_žÉ&*lLMn,— cˆ|‡úäá€,vWä¯@¢m@¾tA7Q˜}"¯ì™ˆÕ‘`£†Àe,ÆáDàÔ+R ŸþQ°q?Ž‰;ææW70rǸ­Û‘&Bj Ù 9‘Œ.p˜qÒ±/Rö¨i^ñzM¾þHVGWÚ%LîÄÇ^zW±g3¦4d($]¹©åv w†Ô<ÊÙºÓ)T1½6BÇlç~ÂvóÛH´Tæ°]…xtåü—POÒ(ßJÊÚ bjœ¶ÓïX½ Äç2ñr†0±û³X¢IŠa7¢­b%o ÌöäΆdX ÷eeþÓ•_% [’tù|aêѦü¤q¹Y€ nñÐÿ ýlê«ñ8:•í »»§cæ-Ú+±v Lè9Û|ˆÁ:¹²¡i¼5<4¡sW/P;À‰¡Ô[D}*BS(Òä1€„•>B€¾Íyøºáu:œ#ýu–Æ]%ß, =RtÈõôĬ—›ò*£ôAÏX@J¿TùùjXê"É9d«æ5¦ ÊT(ËÑZPPwÃQ..ò%ÅÍ’o¾#›ãçVÅ€ìÂc(–ÇiºcBÜš|µ9mž^Ÿj–r”J2ÃuúÊýDKý¾â¢C¦êd·QÚ$;"?1P'ä3¾¦í÷‡vëÝè2ŸÖ_yÉñΞš•ßN–Œ†zÜ‚,Vþ ¬O(H_ÿ•¿y‹q+©¢ê(Y'MÊšiD**¶ xcKÜ©ïJIA”œM–žR›ø« œN1„ùÏ¢í1¯n!¹Â³k³ˆ i¿çpxeŽ‡óÕ#UÌÙåÈì¬hÏòpåwKƒW¸©Ç3{5xC†œ8 Úq¯»f£R FGú0› èlÇl)J·zÖÿ¸.jáÆ)Æ!mbbu'¸¥:ÙS&Ÿa4#¢©M븲M€·7˜qì¶XöPT1%éq‚Ð_³Ò¿¾æM§ÍaØzdíl*Ù#XLbö6ä{ÌáòI‚r“«û 7ˆ®‡!AHòéǹ½Ù~(/ oé÷¦¾ñõO¡¶Ê&ÉÆ€QO £Œ¼DzCÞ…s#b‚ÌŠÓïÚ”›µó¬Ëœ\éX';^à zkce4ßy¾…âÚCAªoͶ6…¦.–—”,Ô3Ú50ùë/ìñ2°z¤Â4 ë‘18à ³R^SºÐ³³ò¶3è%Ãîñ¾JUKŸû-°Ä¶ê*H—^Œ1¾õ2º›}]ˆšqI,U|àÔt–„§#(\tC#®§ñ¾˜O³T÷’Æ®º(ÊœK·KIW9*ýÇ;.aÕÍ jzì@÷c¹-(×¢\¡7¹¯=*®ÞJZ88´.r8ä˜%õÒæbŠu¥ØX5S.Å*Ìõj_pö»³4õŒ¨ØÞTêk³Ó *…ÊÅs6D盯 GƒðýhØÑ·ÐQ«K>Ì0ç¶R«ja)‘ZppÜåbl4Ýí$¯÷,’#=Û6;º)øn¹ Ï&[«E'Z+oèS›Ï±¶!}ùâ‡ÌNûççÉ—ãƒ/+T„ÕÔøZ×{Iš˜ÿÖ¥ÇMCHÌ9ÕŸ=RÆAµ k¸¬²X:èÓq"s™Ô®8z$pB ŠŽ.¯ÄV½Ø kEû×ÙÑŸ“Woßþü–‡{Ïü­~ÅÆüÎã…à†q¾è¨1èvýë!8Ñøö ‘ˆy­äƒÖ V§?Xä:# ˜y9Å¢W)r[çM-·;Ïô/œèðJ¢¡wo~Ò³u/sEóA´­§¢¾Ž7“'& @ÛÍX"½ðqØm«ãÍê&Ry/2i"‘8Zç“U¥½qE üa0à6\üè<*õ½… ¼… óígÒ+Ú›å•Üÿ‰loWVÒ ¹E |¿ùL…5ç¾yà±› ß¿lð½ö‹ ’èX–yV=¾Ìm¯´vÉ–Oª&A‰9ñ¡¨6¥Ì¸ÃKÏHê»]>i…¶J¡ùZIãç‚PÃèôc¦ÈC”xdš‰'KÔÁ…Ý/KÞˆ,Ge”Íùž"ü ™»” ö¿Äð¨—xF)½DÛÀô¸4|j·¥\T]nþs·A9BÜô† òä «§AtQW Š¸Bfɬ¥Ý}ÀV¦S¹ˆÄ³ç%¨pб ÏÈFä-έ¦4ƒc•i[Á Ìr$¯!]/äo‚á/Iɧ#uX¤#óº ¬,NR°ªßCS(Tí¹Ê^ͦ¦‰V£«›ÀÐD]rt—`À„.Mm0æ65Qß]ìÖn#=‹4kàÔ?EÛ¦´¯.«ÝÜ‚ëvŸÌ{#÷T^9î‘«C ¯¦{oßjŸI-9ÐÙÅMõ±ñ™Ý/U$$È~@œÅ?fTO¦¥kw[î²Fœå ¤‡“§æª'qô±J ñj¼\×QJsÝƘqÈõ84P×®_Y$úL+V-oÁƒsK”î(‘!‡°hÈ·H€7ÆZÂÞ%œ[4›ÚI´¶ÊÀ)©E{Q¢9—é±\× vÉBûPx‹Kk¾ÑÞ¿çÛiö¢7E^;5_'§ÏùVy2¸ÑÛ~1_ŽH¹òö‘w6XN9­ÞÙ “xHÉ~ÿIAî㜯>0ó €Ø‹Šóc{‘5“Í›"²¥3‹¹ À%7ß9ãþW.® ¢¿8Ç¢µ<›˜À—Õô\£@€ÚDÓ–ÊüTS™7Ñ¢RP–j…&‹ŠñWv®¸üÍÆæ Jü*CƒØ£øœ¬ ƒ3Y¨Ãè©E‰$"¤¶ÄÂ粋;¦"ÜÜ)Üp6[CUve¡û6&9èEºò`ô}ïòX׃ˆtÞ;¼ö¯Ù§y‰,î[ E“Ev“™ÃÝ XÉ^g˜¤}[yvc‚—evÑCÕðÏççÞ+ úûO͡ЈxêÑð)s‚Äq8;¦6󹳌CºÏlYÜæqzV.Æ 9//SÌ.ïQx¬Æeqq9`:f«]Íò “»¢°¥ÐA‘jÒt‘ƒb àKë÷„V<"À :éj¢$D™ÒáH§ÙßËÅwÅ4ŸUDëǽ/fþ{Ä("ÊÔ¹‚Q8Ü(eRïtÔÔ= àv:‡Ý2Ý[à ¨þ“9¡Šš±¯²9ÆüÁWö{ºl ²)€mµÂø•àŒÇóä1Ê%Áã/“ý ¤ymƒ¢½€hc s‡P~‰‡IghŠí›/nAt1RÖœ 0Ê3˜«eó0hŽ¦cjDv¼…ª°iÂÁL†} íá›;‘ç¨DÇq³ 'è’ƒ{?À•ïÔv‡:f æPù¨(`Àôÿ¿Òó²2IX·ú‘aðÓü¡‹iâïÌNèüs:/'ë àJ„ )? oWõùF.f%½®:óñá R±ºó›:ß‚Eý9øÕË3ÞCã©÷…!û¹“ÇkÙ«"™S—~†×d×ÝsJ*X ÷i6?¿î å0©èÖÛG¥Á~ ~àà«èÎòŠÊºC\sœÓ ,Rº)Jðα”uæ ¨’Þ‘J6°h˜…B\Ô•afGW€Ì¼q G h8…ÑÑn²ënFºJV Xy> |Z¹Ãe*ƒ9ó`<ŠAä<ߣÈáBiu.|ÐI­vÜ­¯ , /·‹½-¥ë‘·í›Ö¸Û‚d[i[XG߆ã[K¸þë™Nü÷¡×íFâþÙ"$“A@=ç·Ýle·/a [˜È$bNÒx¸!˜šB†ÝÈ$Ñiã\˜¦8|P.9¤òÜI8çî n2)O9°d2¦+ùZ³¯0‚>XŒìQÅM» ÍBð6(âZ¸tbÑ Wº¾æ ^¢¤ý"E>/"À¤aÅ”ètã𵪪ô¥‚ ­ƒê·³tÆÀÇÕ¶¹:Ã"ñ´"Q aÄo€¥×| rÈz^ãsò![oSv5…Ý™wcëÅP ç6ã~Xøê'BùÀ-óQ ŽõA„Ñécä¤z î‡Rߟóõ›EŽáŽà;çÔI{ ½¢N;è‚‘¼æ[—¼1š*§cÛ'2„!÷äzê~óFã¬ÖQC¼z‚W¬å¦–š[‰ÜχEš.Ò¾}ñÒ]×ßÛõ1;ÙËûVläNDUì…V0[ð•ü»uµÌ§¯ÐþlZ]xNƒwR'¶EÕàlUéûF¢×t)ŸáSxñ×¢*ΊI±\ÿ"ô ìÿ^½Y”fp/Úc†f)[ =ƒ/QêRÿ€WïL<½=C{o¾]-—åÌCoø5¼`¡Á÷xàA{K1ŒÞSÏCpˆúËÌHúrÉã¡Ïë,öéÇR?'ô°G?Öp8Ü/á@¥ChاW@e~µýC³}qÐp¸_N Dãf|²‹œa‡~—êvçmNA̼wŸp;sÃã<Ì°;x£òz¦;³Ïaû- í1SÏ¢#g¨Øp`¡ý¼RÙìÓ}Œý‚z¨ ‡LpÁÔícgþ¸È®}ÒhL-Ê¢€¨ÿT†HìíÕq”-‡@ÍÔÚ—«¦ïó¥‘ò$h©sÑÒ.æé)lh=ü†o諵<à°c𬠷ZÿG†y–UÅf†¼É=Ø6mïŒÐÈKÚVV^/AP!+¯ÉŸŒ40ÉÅ‚mØÊVÔèxŠÁS¾ú‡áœê?É+ç®6‰R05{†ªÿBik{pÒ(¸ãÃ.‘0üâ‰ß»1@/Ìôˆi“Úâ¼a±ÒP`ø†²‘—ž'|ÂÞ™›…&Ü ÖRÆß…Õëçâ²pÕÄÆð"òvº¶™U’VÓ@Ëë WúlËC<°`Kã¬Ú¾$ ù+‹›½d¶šš_cžÁ¸DÕ© ƒ‚ÊIÏbÕf¢ "Î×nx¢ÈdgõK£ê,ê„ud×j§˜Í A$]É*sŠFm :8@ù-|_ž.Ï:ÞŠ‡cS¸Àqõ‹/«/zd9üewÓ–’;ËÒœù3¤?û'ÝÄ–7ŸÔûñ¥ZgêÞ]‚¹sHôiÓCæ×Ù]ã0ÖaŸ_yâtìÕ¹“Iþôt\˜Y8µ9âá¯Mg`Üó\Tõ‘UCg öjàÍS¹<©lÀ§tTö|œM ]Ù'PòâÆè¢*Pβ *ˆJÅ—øÿ]嫜ܥôcº•jÌœ3Ïf8ì|H·‹ä 'Ð ‘ôaÍ+ÈEã7ï·JWŒs¯Ùä¤8 bÊÐà]1KDÕÔ«!Øa‡ê¤ßº¢8i·ÖJ¤ê´ì-J óyW£{wgúRh»bàØŽmóØÚ®Ø;yÖqPzI¹!ó0½6"?¸‚`¤dŽ·Â&ràK) ï:ßëÔ¥P@ôÕ ›Ÿ^3k‚É:ÊC×\Úh Ô¤4qV./S` sºázØ9 ×ÁY_ùMm˜Ïð@Æ3䢇wß[ /;?»2töè¸ú=L‡&}M•(½1P4iéÒ^LÛRµâæà0äçK5èÜ›¨ñn˜À’¢ÈàDŒu fèð6Ó‚ ¥C]<4E­ÈÏ wë+Ö‘¦·vò‡4—o€ñ£AÀæËJV¡î…¬= 8†2ÌP7tƒCÿ4ü!<€ÃÕ§zC‚ËrªÈþw´½¡t„‚-ït؃„BM¸|#À=ÛÇU%)…&¨çÓcþ.ïÝ æµÄL¿Sv¬^ _ËmA+}…$pºæœ+¸‹‡\âjÄFq` Ôóý×RûŒÛC|n¸Ç™¬]È@ÉNE!ð­S¾-Õ¹¼“†µ¬‡¿‹ÜÈPxYôU1º‚èt3©†‰‰«ŠÌ0±Ã¦-<‚)U1á1»kÉÞ ï]câભ]_Í:«§1Äà‡ûÛ߀iš¿¨8³Y¼š³i•”Ó9ŸŒ€tQ’â<³}1§6Ø¢aŘ£üK@¸@#+H™8[ÉÊ6îf¸ÉÏ“46fœiÈë æaž#ÄB%; Ëo‘û¨VÅO…¾,’ÃæÌHòiVuêîêçmùZ°³Ÿ$Í ’nê ÝK›KÎ3-£½†ž»Dò°ÌÀWÞg˦ËLÅ[L`©§ãEëõÊ—¶D›Œ!"JÖ=Â3tÈ5»ÄSè«J:Š§ØU:/ÍGÝÆ*þ2ìÄŒïÀ!F€7¹Möé¿,ŽÞ0C)îo-Û ÝÐbšrdç/Ç¿ÎÈo¦–gàžÇ6hé°?€+³Q¥~bV³ƒo€ÃÝï• ³9Aã À6Ú0¹pGgK=·ùÍ´¨á„Fhõ0ý’óƲ4fzh!xû¦“‚ÜöeÇ‹mÃñ6*½6·m‡£ÜÀXþîóç_íÓÿêÍôþ:<ÝÿjRœÁwÈfrm †ƒÁ³gO~7 †_?è¿ðy²ÿlÿwƒ¯Ÿ|=|²ÿt߇O†OŸý.Ü#Ÿ•!ÓE’üîb‘_L[Êmzÿoúq¾O>ǯ¦Ù¨:Höî‰ÒÛ|=Ù}ìííY‹2Ø80†没<É ž÷õ¦ìë%E#º.¯(«¼­°žeÓbdĽlœãt(zš>VNl|Æé Y‚šbúã.–$Š^eeeýÊP”³6Ñ»Ñ^£ÿ¢†›–ãÕÄÆeÀïk4îAZ,Ó×Ì~hbñ1(0–`h6³ w*„&ï¬RyPä™?4Ý"gÃ`ç>ÇøØDÆ |~áé¸Áឱɢ-‰Q{+F ¿{*³I—júîc¾Ã€*°ã~k$ù²D[bÚF¿-á,¾,§g%~§jòÛÕäqõÕ½“oT÷ÕÌÈ®ßù¶ðô‹’l_ÿT@ØÚ5¨€à'jò1õOªþhFëÇ|¶ú6Ƽ¯xÝù­½+–'‹ŸJ#”å|§ØcP~½Të~KoÌ´ÏÕÀ¼ÍÆEI×¾ð“”bùø%»ê'Ü1‚b‰_—úÁt–‡VIÇíݲ?jðÚ¡sTLs;â»ÝfJ€g#5 ŠÿKÿW‡§n-ˆI@:¡p/Ì%U$ WÊ.Œ ª #Á§m…ñ:&¦d0UáQ9_“Fq«Âf–!ƒØHÀeù÷±Åä€.øäº:…üœR´2ïÙ{+jŽjë<[Ì‹ë2@¡Vt={-·5¥–¥)¿EQÁs‘1³½(†áUó3¥¨¢¼@©ØÏšµÅôªæu!êÅ£eß¼x{ôúÅaéhY#gç‹btmP6óV.Ò–² -¹È[•½ÌoÍÎ7*ŒL®ËGˈ†@›àf“ù¥afËåæ²õFË%n‹øeaýË.f·´NÁa²Dfó[KLÿ½>Qù_ñ¨þ|ýÁmlÿ›ÿùÿéþ×O‡Ãg¿6åŸ Ÿ >ËÿŸâãsåÆTM~dpO’±ö;ì8¯RHâaPóΧmoúÖl[¡p½•¡ ó[äñt†cPLÓ”í8ž¾4ñëè‰Ý½gÔ8>i² ' ²ˆÖ"Ï‚MÏëŸ^ýü戜gûü«)§¨ †7#!Ì°4mÊÅõ»=©Õy©m!Œ€ú)™G]ñÓ³b9Íæ¶L Ã.¿üâ¬Ôô wÒ—´íêöÂâ< T‹+ tÝO˜µF‹ñT¨ÐJ0ê‰Íñ̆çѲêÕuèHñâ<4ìÆN*ÅÇ"%©.»õ  _¶1¥þ v±æ+CºÌ°/hý!–3 ´æÙv¡üž"=&I°-ÿ+—ä£@(°yk{nnÑbCÍ­:&kûîÍ`½Ý¶ÉÔ“qÈÊÝ{I£‹&ÕQ£CC„~tÈ%†«jÇ©¹²æ…õêØÿ¶ÊÂ4©êo½/}þ|šOTþc=Ì}È~ði—ÿ?>ýï³gOŸ ö‡OžšòO?{üYþû–ÿÊj—¿Ñ©]~±eÌn]LdaÑå¿kÞömD®@¶Ò<ÜH@¦›¬Xz2 }ž˜›ÔëŸM X÷ ¥>DÓ œ5 }²2j­?Í*R„Ö?)Í€}­¿È'Sðˆ@Hg¦‚zNWR¡ ïÿ¢ˆX#Vˆ‚YUlë•Öæ3"úõo)øC ‘}Ÿ<}Ì‹[ Lï­› ƒg! §Áø4Œ¤×!^Ñ#΢út¹[úÍ9»Ñ& q²ñ`8ŠÎ°fùh#`Ä`E²°E¿;ÝР$;S mÆf§Óå˜\æ»gü×+u‚ÚëÆÌý”JV^¾D¸*¹ÖôíJ²tE0ç RûOÝT?¬ášŒäæ:–ño®0!™¡ÍÕºW”Öç“Í“X7ÿ$¿0 Ÿ3ö RèXúq%Î:á>lE嘥C&“>ùw0TÀ†¸‹aÖîº0]¿šð×ht¦FÉ4, Ÿ ‚jc_nQ§óè{tËåݳ¡HƒtoYÛ2»ˆHÂæéÏ‹×f¹o¡Øì%öFÙ”ôdd…׿Š¸l:E ÕˆýËHÏCЖÔ%¹8ΟJ°«Ëuq|¶óâÕï$õ‰ÜäHó„' ìßJ~²X€ÕõØKDxÒ ùÉQ±ïÖ©÷• Üˆ6mö@Á<Ó â$pW’±³s7²±ÕÚIÇk![¦„\‹„x-kÒ™Òµóíï E¥2x[ ¿’Úb4•àÇÁ5ï‰uÇ·92La¨·cþj)O%QdÕ¿×3…9'”m(E‚î \`Ž±|mž9G%×5¼—®QÌ¿ÂýgE4•è° —hq‡Ú¼Öºüvg'=ÐɹfèÊõ+bð«iíWÁ~¤RåWFç×.À~E”~õ¬`嶾ÞY{ñé/º ­·í¤@jè§k¨»]Oo¥¦ëæ®Ñ…ˆRŽ)Ì´¼cŽ>dËiJ¬þ®ôeØ]<é W$VÀÚGé¯ÿŽ$À¸ì¨Eç8Öç*ŽF$áªpË AX2{8s@¬ÚŸš…së83SòOz çD±3Üñ¡ça®‘ÜvµÔ.s3Øî3þÍV` n‡çƒßçé fª;ͪ+›Öùi2/«ªkm)áonó8sÂ:¿ÓÑ‘‚®$ÿ'·ÕKΑñbÕ«½ ŽÝžÒ¨.#GxZ«ói½ÜÙt%½‰Ž\:8LýÖ\éO¿PƒOÀþyÝ9Þ£;ïpŽyìIEÂ9çlUcØžki`–ø}e¡G5vZ"ñî‡sÇ»zWÒ_]‰Z¦¼KC¼LLjváNÊ;O<æ H¥x¥L 6ü •rðiŽv›ųú¦hqòjq8…È ¨piõ‘ÙÔ-Ÿ[ù²n ︖5ɉ+NOÅ“˜æ©õ>=n&\¶VNõ…¼ëbm?ãU'7é]»¡ b¯®Ø¼5Í!éD'×kI]鎹gêã™À…,ß0SNºÐ;BÞÓÜspœ íNÈ€чiÉìÙò½¬²Iÿ“œi?é‘6é`Og‘Åøž|0Xòª"^´ò>+óqi)çoÆ î†±Þ [¬qœLè™ÿùápü­ØÓð~¬z~¶e^5`AŠáß0èYB&'óR[%•øEÓQ—gçå)½¸ºïøôO6=]Xžr½…ƒec’¥¾?PŒ$Õð#Ôè{UbÁÔv$†É9ÉëØ÷aš”òVÂHÈR®kΠ”³G0¿šÄ¸‘ÂQ^E(±Z ÿ¹Æ…[Ìǽ˜y¾¸ÌæD+É eÖ.–,9\2@G9S8-oÌ FÀ@«¬fåŠr9édBkÈ™e¢@ŠŠSŠÕ%{áäºï¤¼@#BÊ…Hht˜æZø–çR#çK†ëâµà¸hTRœŸç8Ÿæl Õ!e7Þͯø¾/àr°çd"°¤€Z–RÙLÈÒ`³*ªKP¨2í[Éý=ÅÑ$yƒa!eö iæ2‘ÑFú¤2‡‚¬yõhàHdu’-‹ë:;~ ñŸÍø‹<‘Ä™ÀÁȟƹ ƒ‹„A‹@™± „áBô¾r,:LmWÌ †D$Àc`&Ñ€ªÙè’=Y\l`÷Þ "שҿ¶ù­=?bŸ¸ÿïdy_¾¿ði÷ÿ}úäÙŠÿ8xòäé³Áâ?>~ýÙÿ÷S|$o(˜#²œs¶Œ¨S™…mkl.+¿÷ûOl¬z´û ùö‡##á/9Ë5K#P4E}Š1uPè`l`¼[Í1eÔØ6y°{ ‰@^Ú8ÿéÁÁÙdiþ1OÓÝÓë|´„x¾ákzn \@®«ú{|l^CصúÛ‡æ H“‘WБ9¾ƒÚÙ™a‚õBô<ÝÝ=…¬¼f-‰&B~Cf]«@ÍÄ|Ÿ¾/æe‡„HÞ.&¥~©{Ð$¶4ÞÏàF ü³‹œªÂAkp&ƒFÚ÷“#4+ßÖ,’²­&«¤”Âæe6Œ•9Î`\®ŽR‡Å¥ÓM(38›¼˜‘ÈM†­-©QŽú‰ññ@5D A£Ìå*Œ´ ( |“ñB5¸•ãå¤Bw滦.…éz`x·‚¥ˆØ‰Xgáœcža¦g,£,Ω-‰hÀÐð}'Z£›35rCG«9É]¡´€üÐåß8egZ”^ìY?Zw§Vùœsã=AŒa,N/Ëɘ÷J0䬋qzƒ~I·¸lMÛL¿žjCÐ\Ú“B§7±äÌwƒ`í.©t@÷CÑû³íS{³ ›Ráîš9/ èh+&häžÓPƒO±ÚÙPe¨“¶›B†xä4»‚DKH:q•LŠ«œ··³U1YéOŠJ’È‘cO|”{ÉÞHº·w“-G—«Yoà‹®}ÂA¹ì¸’MO@WspF1ƒJ"#R÷’Ä{ɼœc¶E°1þ1¤]Ö¡Aô^Ñ*>2ôÌ¡ ~•@vÔ¬±é]Ú:xPl ÖœqzzšßÎø‡RŒð¬/¯šÖ¯™t,aöLˆ7 '•«~5ŸK¾Ž% o‡°û¦ Ê=#-y¬›;Ól®N±h…„­t™Jg²›gKƒÝÌ_è›—·Âš‚ÍBÌl ð  Å‚À.[Ì0½àÀÝJø1 ±Ï!ÙÀS$ÃÀ+ëAò ”y.Þ~¢×% î=à5¤È2"ß~¹5 µË}Ã#e¥R ”€¾{iè‘Á–¾DØ œ\+®ì½•‡–,Mž-}ó¿Oÿúê%Øø€*ƬÏÃeðó˜ ÁLþ·N¦ë¡ƒ¡Ð0m#ÂíSÄ6×Ï-+§_VÉ4íÑd2õÒTó‰K:·Ó/“Ü,óVÁbbuEuäC0¾ª—My¼aý½,f²ª¨Å®ÁÁüúô$UÐFÓ¹%WX ¤yEf.'üN£1Ég‹ÄGÙŒ‚Ù u¼Aу™šê¨KR ¡Ò2ŸZ|®ò5Â6»&$&<„Hðë›ZþSWºZî¬ã6.W`…hŸ nž ôçÜÐ/`¡nÏÚ%T2¢{ Ö®lDGÈë©®÷²—p(·dûî…Â.TÍ]è%ç†SHÐ8o* !×Çý1Á²q8wýY¯&Å(w\s‰7'ù MD‰P’CÝ"ù`™§Ã~£RmÎ ÷ UåùŒ“¶˜G ÂóCxã $ã¡âðï^2”Óo©ˆ.XÈ&«qŽ…PË×÷³ël",DWäðJè³Q\Á!Ñö,pµ‘A|CoP«æAuëÜ ‚ê8>»¢|É|ŸÂýÊL¬œ†ª'!=µÍ¨š=×lSK MdãqÛb–ÅXjÆÙRIwˆskQ¥éjbëÌ"­p~«6ŠñP|¢Á³ýèA 2u±ÞB#++&¿y'2ð‡ˆ ’’ÙìBúNV: ‹ˆ½£LðzÉj†@œ`'?CiÌuCœ¼²9¡¶öä´×ÉØhÏ×Ç‚©‡Ùû3vK·†F—5¦j»ìÉ,žŸÒWþ [›gF— §«Öí.¶))äñ7hÁ‚òrgÍgE<æ‘ÙBUOIšl¥¨v^Ð2ó2"c±V©r#i/‹Q%z:Ý3ÄCUî'ÉKÓ<¬°Sxéر<¹Ãò‚â‘Å%N5ǺDPqU»õnžŠl¢GÙe®v–i1‹ž+î&§ŒÖ§Ùí½@ÍnÓ®íÎ4±g¥‘œoÌbÃ|I"hÿ5[P C×µ‹|C8ø}+žPŸCY±2Τ:Iæ«ÅäXcÂdQ®–Š4Pp¨¿4翉hž‚ˆ‚â\‘áy%!¦ìÓ|92”ÊW) ü•k³Ó• ýü;ÅÜ:]ôíøÇ*_¬Ù€XµŸw  ÕÏ‹Û\ÒÂïKˆ‡Ê•!€?œ&YG<._ÚêÖguf5d¤ 3§‡1Êf7væ«­ÿxKó–¹õhQÌed`uÚ0qR|V¿Ê]pÎSPsO÷ŒxEVç0¢ByGê•Âªõüzzøzv^6´¦¡t#UM5ãxpr< ’¸šÞS •^½ª§+1Í›?v¼©ä6ìÂbHËXJ}Cž{1ô|È?e×0R6º_15ƒ`vO&˜xàÌ~äeiË*öóE‹±ú‹ñýÞ›ºsšY]îàÚvÄ0ÇÕvt”üÒ€\€Î÷R;¬ÁÛ–n¤'ËN—¢-žŸNmÚc“Ê2aL[*ÖK¼«e‹lLÅ|̧¤ Á÷/i7¶‰ß ÿ$&;²ªEÔúY%J¤)ˆè÷>mA½;7†·üK1ù/ÈR~{!ý"åê x1»^1¸‚ ËšèÏþ†ÿþjÅ†Ê §õÆ4ÈÔçµ[Iªföp¿kŸBʵèjÆ’{/™_–Ëò'ãøI à@ñTUñM‚‘‰á©Ç¤¡=!²ÙmQŽ.¬ì¿BZb_0&h(ŽE·z®61O€4å’s{y%bÁ¡&Þíß@¡çÎÌõòܶ†‘¢ù¬EÑs‡Î´ÓÒaCoP t ðŽòŽ&±î Ö(^ÓI[²ããI>|öŠË=ÁxèEì†oÓB¶ˆÉB–ª ‹Ùks{­€nªQ5€0#ëØõ&¦0ŠŸüs§n>XÕ!ðI1-,˲c³íÒ‰"@ õPmÒÕ£?ªÁ._?¼× <7M];ÚYpx¯9¨1¹hÿÛGߢqr”­øÈmÀH"ìã6Ê?bœ£q9ßFÖó‡¬àÛ&Òÿ‚¿m øÎoCBá6 îø;t¬ŠncdïÒª ù¡»Çß–Œ(…]©Š<÷ß>÷· Ðý{ Ðýû&ÑýB£ûÛéþ}Pé~ ™îß3îoE¨ûL©ûIuý^”ºÞL¨ë§Óõ=“éúcPézK"]ß®›It}¿ºÞ†@×JŸëÍäù~œt½']ß']ß7']NºÞ–“®ïƒ“®[8éúž9éz+Nºþ`NºÞÌIG‹²ª.³bqwruUÛIV7ñ!d´w?¤«+ÏÏÛî‘ë(˜ iÒ쎀fq8Ëòâb’ß ÕIµ’j’ƒR÷4-1Œ®¯ÛtÆåÚZ(åXpÎ-©¸³Ëì‚NCUþx¼ódƒY-ÍÆãЮÓ[»-Ž¼Jm#ÝzÀi•ĶêèzrkSÕ¢†cÃl4b§!¦*~CqÎ D¢‘b ¸CÅ"3«Vîl{•Â”ï,ÔOÕ["wr¥tcªé¦®30…Méù”#8ŸSXߣQ^UÚÌ+Æ0élÀœJÓlè›[U­ÿqÊ´«"ÔÄœm9£ë2ùuœB0†ôÄG½í¶ÖüôCP«ÛUpnïäÖ‡°¾;„µ¯ºC(z" ¨Ž†’G7íQ5,ÓõŒM]φšûQj,Ù\5=u£X*¢¨¡rËn¡År Å/-úQM£)µ÷>;WmpÆyÀÙïÂÓ]åÐ<Âoâ.jQ|“ÑC¦TjZãòÔYYB¼ö–« Õ(Á”]*Ò«ŽT˜4j$ˆÂ¤:^Ö ®ÿùY$j”}u¨(ê‡B›IEú°ÍðN©Ã'‚5®˜Ö)k†uejÜÌ\,ŠñP¨Ô.zØ:m&núm!iJ»¾ŒIµ7J—¶ò,¬»D)õë²ä$¿ÈgãP”ÜȨš'CÖYÃþ¸Â£ÃäÃdGFö^EÇ&Ü>‚äÈèßuÅ9 ›×œ€þU§Ú¹Ÿc#u÷­ÒaÝ)øn8çeu—á¤Ñ„JnŽæùì=%{S³Mª÷¸WÉÊ@üè‚•tî^…*oHîn<"8ma;¢[º›XÅ4ŠTñ½$› Ö„×biä,4Š»3'qUÛ¹‰nâC8JÐÞýp…\¹ZÎW2çÅ$‡uà6_äçÅm^%¥Ã¨@‰fÒòÇ•!G ®æ¨Z«Ô‘–z›ì¦Ùâ*_œºÞÖ@¿2{²¤o˜uªr€HƒêÝ°!JÚýa-ŒÍM}T±C¡óAb#{¯bGnAì`ôßoWsxnÚؤ™{ÝÛ(¤¶úˆ››êãGÙßddô¨;&›ƒ6]œÂXv?¸%'¹ÛèÚjÜ\“¡V!hñãê*Æ#r6‡Gqg+´w4âNSÞ?ÅŸ–æÙ½[D“Aô;aªƒ¶Ñ­ÆÐ.Õ¿‚E´Ž™¥-¢?Ê8a­šåx²Û2\¦äÜþ*/tXÌz<8³™ò `óΦ.¬l%çGîH}7>`ž°Æ9IÙ,—M6%‚¸à!t¯ûÿGßõ=&¯:ý4M˜Y}à ›Åór´ª§ñìßlj¨©q©ÉK;¥šdÀMjK^‚ É58|ÞÌÀéN&Ä‘çŒëקï[äY=®êÍþD|§çë.‘§i¯¢Yôœí!ä5 Ó8ØIàjAŠÙuyÕÀT6L!UÏ¢rÉ—·¦‡t ùyñ♞¼Ùß@,ÝP@™3áïÝÔn×5®ÇªÚwc”ÍNAX¨ƒla.P+e)£æx‘],Ë÷‚JU#ps™‚b»ÂTH¥p0ÖV<ƒ@5ñ ‚dµïwZ\P3ízûÀ™>HI‹"÷«>[¿Æãƒá †\Ü ˜A»cŸ«¿7<8AfrÚ@ÚÖü,:fWgºZ7‚ç)¾Å¹Îî@Qç:W¶‹qªÃÓ]Ï{¯gKøÙõÃÕ†#ŸûÕrî“Aˆú.tóÃw¯êAƹY=-. ;‘ë.=»³üÆ7eSÄ&ï¢ÙL8HZ;1q«ÑM1ì+\–$w\\1ø4ä»C³¶£jX®‹üFx€…ÛÜ%(®ä°zä?}Ä¢`T]uLp§°­X–{©"|ŽÑ† ïJÈvmU|5Z”\±Çé{ÉÍe¶Ü¾ ‘Õ?rÜôxüoLíômy{?QÀÛãŸ>>þÝàë§÷Ÿ™RŸšòO¿Þö9þ÷§øجtÃÃý^²(oàOµ,FWëÃÔoÄÑïƾÎTK˜â8Ùfaà‰r%™ò Ž­¼;ôh™‡E€ôÙ Zv2¬ÂÄlp’´nˆwv>dHs¡áãpMg·ê¬-ãɪ¹Å0U5=V¹¸§¬ËÅÛýUõ\RR Ƙ–Ú_6ê›l6 E~ad›Š®œÉzáÄÊ™,IöP”ï’KšrQíha¹ãl³à¡J„C¸Œ)D/CèK]~L ܦ'ÐyŽ_Ýc³.!к‹èò}á:ì83/Ny#¬ÆS–¹$­l赪×[SÒÈ×ãzÚH‡oÈn¼" xчªÄ|´YKÝH7h³8¸áy¹xJ`Ð9O”úð왌çî®Ï^² Ît~˜åo׆)*(|+Ù×8ÎR´þÕ)y[dEˆ/¾¬¾~ËÉÊ)°]ò¥ÀÀ橤)Sóê§ï"R­;”TÔPbNèHiźi+§p’ Ywi Õï^}ÿâ/?9tc«'H&îé½’¬©†WK…§é}]îZálÄÉÄ—ÉòxpÒKêä¥kºÞÍJ=Ç#o9´&+÷k³ªÇ¥D‘†kg|EÙS Ï/°H5~iSÏ‘Ýcv¤ä˜ï—ÆØvC¥é&µ«ÝIÏOšÄ—òÖ¤ÓÀB–]Æ„¶H+vtº-› M=Ò~61»êxðªÁÙƒlÓÝ_ÝôÍôž&ÚI!žšMNusLÀËÀ¯+óE„( T:+S³]îîœ Ïæó 1¹P 12†?4fÔA(±òù-B =ê%˜b$Vºø:{"”`¼{¸'»³&]„"Å"j¿jd—°½»,ÎeG«’Õ‰’ÜlBp XÀ„RPÕ0fÖôuo(spãçŒvM'˜‰ ™6L‰’ÛYá±KPj; €Cj)ÍT2UQhÃÁgRÑò)M6“p(R)†gùÛÑC6¿ôaRÇ ù¡ÅF„H *ÐM°” ç;exH9Q}¼Ö×éÉ&™µ&2|5+„Ñ~³4í¡ [·7ž(ºmWBšê3ÛbÖÖ ÄCócz¢nŒÇã8Ï ÔÂ\]±j¹Þftµu«wÑÞ s‰qít@þÀXyaL!PÚæ ­÷…ªÔ bò¹y©¶‚“ˆâ1’T÷dKÞƒÇ.XeõV¹0\h¶€”è^"ôÚ‘l+¹ÒñÁEê;Êâ†Ü`NŽð¦§áp(Ýœµö¶¦X­\ô©…m4c¤Î'ÍcB¸Õ( !çä]ž ŽJ¤…|MßO²êRŽz €*4ÕÙdr–™sVUå¨È Ï!Æ…—ÜCA(I^ŸCõ‡ ð¡ f:Ç6œ~ÂW›úÅÕdÊ*C¦zÊMÙ!Jð…9K@”yÌø´³rô¸Óˆ±ÌÊ8ÉZ[B«‡v(1ÿ/>tί“ÂŒ^P„žJ™ÚDX™†ž“V«ÙU>óès5ƒ«u16›QV]v!Pt†ƒÁ¦Æð¯j‰¾tƒ-·Ït c}â ¦ ú5Œid]‡Úmê“âb¦Up)”ã­5ä[¤|n¡‡ö©;œÑøº”šJG)V`i³ÔMÕgyã{3óù¸ÊH„Ð囦¦¢ÎÇäÌ¢›šf·Åt5å”–[H]ó:ÑÉ̽í¹Ó¾?ûœí©—ö긬ã†ayÍËÞ0õÞ8“àC½=lÙ£ ‘{ǶÕ3¬äxßúϽ%d³Ñ[à5ȘmqŒú3Ôõ6hü±ˆžÐwvØN%Ê·¢•áJg4ÛÝ¢á€r‡iÙÙÙ^jðϦꎓAL¶B°f8¿õUÞ{}¢÷¿/ËI¹¸¿ Ðí÷¿ûOŸîý»Á×Ïž=ƒ‚ƒgpÿ;xò9ÿó'ù?”§µò{¶|ˆŽä1ÿŸºê§ZÓ/Ì8éàž¢?0Íuè꜑¥Îø¸jËbßQG§¶š QÔ‘­ð­¦ÀÉ1¡„ó›à å2ÍÃíS©?â~q=èõZ{^-÷ü«ÄŠ¥$®Ùò(È´\@o¹Ÿó9jezôýÈ .Qí|é=Þ‹¹FmˆÂ¼).%á¦!~nJðtæ×=Ûü.TÊnJ ]©˜×ñRû®ÔœK-ë¥û¥^½ÔW qŠ—zêcð|Âéè‘Ò´úU”Ɖy´c†LREmÎêÑò…ãÂ0ÿ| °'Äf*Ü™ó•¯k× óîMï€ä AvË{~vŽ—”5îDIF &ý„ílB"<þŽdøÞ’ßñß/ƒ÷õûàLìDIªñ¬è§ÃÉ뵦Š½²4°àá7´OŠ™L‚û¦}ûø«÷voóÄ<Ù#‘nf6ÅìÙ$\Û ¯95ÈÂ@ûÇH<,EÀÊÑÔ¤‡2qR½Ç5†±öû±û±ˆ!/Cç{¸§¾ìßÊÿÁŒæWË™aÁC êÃþÓ§]\·øhX´/T£Sˆœwçùb”›ÃÚ˜d…I~ODb@Iƒ«€¤s61Bî¿ðˬåeÞ©ìçÿ?þ^ÐϧøžÑÏáð‰7Ýçiîã#¨B¿†ðëL~ퟸ‰ÔF]™f·#RNò@õ¸z+Ò4L‹+fňç)@ #Äf~è6[Å€eãû=lر­ªÕØš™â*Q{ü¬óÜß³º¸Cúõ¦å UG}Ζ-ȸU(y(òí7û!õÕcÁ# ¦=óg(œƒg%VÔÎ#€´‡õT…ýx…'XaH'»šÇ?Ô<ž9–æ2±-Åc-[QQÓ±¡—dÕë™X±òtØ·t4]n¦³\AÑø Úôˆô¨^“…ÈáÔ„´-³#x±ÂYgíѾ~ÔîèZ#¼…¢ÙúÅd`õK÷ü`),n2`•…†¢)†Ó0Z° ƒ¡€£ $U…´ÐçE>&ó±9ÜLiÅ–¸ù:[2µ\"nhËjW_åk¥°¾ºQºjSöؼf g•ËP»ÇU¨ªEÝO=S¦¤3©Õz2ÏëF»hXL=Y›¡TJk·¶Vœ †ª4Eq€aœ]Ô•2µn±Æ¿©¨†ßUB):l×5Ð6`„Ò,¢ã "d²P³*™ƒž²©Jô³†[ó¨EtÓœìf£!lVòHâ!ˆ$ÿïöQ’ð¯‹ÐvFF`¦þsø³Ïtå ?ÂòÞ•ýÆâûØŽ÷\Ÿ½‚úC>yŠÇ+lÓ S©ÍL–= †Æ ã€ì? ÿ £‹üØç-D]»ÁbÃ3¢·([hלh 0B£nSœ©Üð©6V°ÕVCí¿ýío$…Á~t–ç³D–®HcFš—9qøIY^A(®5T½(K¶ŠCøpÕ'¤H¶CBÆ<ô=¼Â+T« ›÷½º,WózR¡M Bé[‘_Ÿ Ï/º(\?Uü.~chy¥%ߪän5çºvMd¹WôÉÂzë6BÖW=hxÿsxúF,@ÒÁK×ùdRÞ¤Þ Å”ä[w³)/«)˜éb D”Ú锈šnï܈Oô)˜‰€ÓÈÏÈËà™\ü‰<–ä8ƒ ÛyN’$~]TÚ"aøÖ×|8m1Þ;UÓÎ&OÜìöÍâ–&À¤Itfðö+ûÆ·ÝvgJ¨Ý¿ ª[«ìÅ^Â#PÝôC998¶?´>ì¸É±ZÆL6Röi§ÛˆÒ?~ú”ÑQsüûCfÓ,«ó«]¹®Ë¡©ÔÝeÔÐt!O˜êl ¾×khH(EQ!˜hd,5èí4¢˜0…¬Zbˆ-bÂœì`<è ͤ¨gþQb9»ï`‹‡|61íÁ-ò¼#áËÉx.,fÕŽ„îùt‚W£î8 tfÛ`·¼V]’¿³é6³! 5¿¡ŠÏ±&Úœœ‡zr¢™£! ÚB'ßXìž›…—-Öp Z&ål²&ë¦"—#‘>èàÙÒ)¡í‹ÙÛì ÈÈbj×ÿÆÌsëï ¢ÁÅpGQ4àåÎeHѦ·GNnÞ‰åÉž–±¡½;ß2±¾§cعH.T¯ïN㳟Éÿ½˜¹¹ì²ek#^ñ9Þ0ï|Ñ‘ºNó°\¬}ÓQjž,Øû­À9Þ•Š>t;ÊçK¿²éò²˜­œã#„ °#,ײ s3‡êõ±`wd|G+,ÁEÌz˜á¿¸Ÿn(˜ªs×貘€yO«ð©9U«‘óÖ¾oZ>Ú®ÙåÖ¦ ³3ÆCžÉöl¶æl¹tàÒS°ùtHç©ðßÈ &bÔ„AÿìÛâÜ%ŽIOµÅµQv%ùÙp…|Aã\3Š¶¥ƒk‚©rž嘖ÍÑhÉN²ºÌÆå \`ÏÌóùóå;z« å9²AiÂHMÞƒsK²ì|×»½ s¦ø“Á|„§ª'f¯¦ šfWôqŸ[½SdM2()á·ó§lrþ ¡1kSùÈ5¹ÿÙ Ò]ÙÐàÎÁ¶Ð àIÀ4•¿2{è<ø=xÅx[+¸¶åáæèÉ­üÆE¼à°?†úÇþ‰ NÁX ù>TßåFåßȼÁþ{zVÞ[ø¯Möß_ïï?Áø_OŸ=~6|<û遼§Ÿí¿?ŧ1þ×h þ«¬â6Ý[†êúW‹ –­–åh’g FK‡«ÅÜ"Cå ª¶žB›jŒåüŒ½H]ö6Î'…éÿóÓm‡•Ù–å"ÖÚF,Z{±`h^4´z ƒÕ%zت:ûƒ–±"}™(ò‰õth(芣“j-WÃVk`5+þ±Êƒ i µM¼´åh╇F¸æÌ2±ŽµPe®ÆJèðLa_ ´ÛS‘Ì0Ò <þJ„aÌÂöÛב/Ï)é™ÛŠÅÃ+`c¿øžö °Ï)_ýSÛv©žx¾aEõ¦D;Q퇟–ødvΛF\áÎ9Ú5‡/¾]Îg œ¹¨-HÚ áå^f³ë¬ò&¦Çr±xîKço‹×fc \JŸõ’KÛ«gµ¸Bé,•:n"ë.….6Ç,õ^ƽ]ñ´Ö`u·ùË#¨r@jëwkUßÊÈàÇç WÕÓ Î×£sçËrRîGÁåš©š™¿=ÍËùjÞHLøv#•s´„jTˆpú È/²›Nä]y/Ìðæ‹|\ ®-¾.(&®Ym°}i¢;™Z»9!En¼— ¹ÎÒeÚp±x©È©<÷˜Ô†÷ŽK‚öÐ56Lv³×•¢Rò´a©á»Æõ†oíBã°–n3=‘ræh EÙ#ÕÜ`äOó[Ãìžš„8 \nNèSÒ춇CLê69LÏÊå¥ BFÄÒ8VV#lGÌÎé·\e^ÃF%z¹<¯?Òo†ÏÓž%žjÉAòšËÛ8á®á (ÖZñ±«0ËoÛÁØ1{ªÆ|‘_åªj­õ¡×;4ò—ùá›®/ =îÝ¥©s׶hüm5?TÑëÛ6Õ¾üä®5öÿpÇ•Yy¬N od·üU5Êæ újÅÉ« Dë÷/X±¹Y°Þµ…R1»WnDÖ½¡^<ÔA3Nüv7‹¼ª4êêϳŸ 1Z-czt%Œ«c¸£ñæ0Ô÷æîLôýfu6)F|‹U¹Þº$J˜bÎêV!ÓœÍ3Œ ™Èg›²1{„Æ¡µù‡.JœÃ”©gµ «5Œÿ/u§nkÑr0=ÑÌï–ùÔÔ]åKìÌᛆàÖén±AˆÒ›xáçÐÎÙçtÐëêÏÆ¡¨Z̨˜¹HP9LaƒO»"lé„xÕY¶hÆXN‘ÜáÌÁ’/±1v>‘žú=hB×F=ÜQ%hOQ]®{V/Y:y„%ˆŸ*dó\zï ÿ˜<¨ã[còžGi×OÌfa–@±œ¬áÆõ&[ŒÉŽÐ¼%mëËÕ¼‹Cî ] Ÿ[  £Ã»uÐ[¸Ãòî#¹ÚÊ+÷Õm-ŽÍæ«@sì±:6`†B¿W)ƒeSê^ìÄÌøÊXÙÙÂ*GKbŽ^Pôú³)0•ÌiVúÀ#6r‡”æ-±:Áò"éÐœÂÞ‹ÉIÍRMÛª÷cã«^âÁæõmY°ìiGÉÝĸXozø9ê°ë´Ès¯nóÑJäôP°å0¥`E±H4?‰î(íð Á£#;iب'´”‘KÁãoÀ}Ù “¸»3Z-LY;gô“0BW/*Öor=a~â;ÚŠjNºÁ$pˆÚb¶£@ªÝÄ>¶A‹w-/çÊŽÈvÿ#$]ü°x¤nA6ÔÞvåˆK”ÈYXßvÞwÐé~½ïÀ;„ÍènÓsîæ¦MJà ¦rô;®_½’S;œµÀ˜±cÊÁ1ÁØ:Ï`H‹“«yv”åy}…’©,…We^Þ¯›]3š„»~¿5re?Õæc÷kG¡ÈÁj£käI-!ºíá@/)ÊÃû$ZRXÚŒü;(ü¹ËoìA+`WUcñZ«ê¤§®Kåìt¬,‚Û9º ⬬«¹»à«OªWOÞ ›èà¿=n þT{ªõ$HžŽXyNNj¢’ZÏ «‡*$¬hPí„Óô•6íAòcve¶+3ªÖˆçœvD¥ÅsÝ÷AGâïÚ·IäÒ›}]ËryÛqKgÝ^tÝ¡LXz ŠÓµ”}Ó o´OÚþk .ÍBEpC£•„KªÑ"Ïg¶˜6•„`xkª®éëWɾOq[ŒÐ^¢¢âzz.Y4x—‡Ý:¼QXÉ~|‘C îÅÚ 1Î S«8_{·‰Iúè˱ù1ÿ³GF\dgNEjˆ¾doÝÉDß`Vn„§â.^1p¸53v¡%(‘sÀ‹–œ‡º¿§@©Wùú¬„óÉ,»..2/qòƒ$ϪBœ ¥sóUujEz˜™£¦wõÇÏÎ3b„‡Én8Ænqy£ñúbV.H$-Æ‚nl¨i#¸Øêd™X°aŽdY9 æ«Ùâi99œ¯*ÿ*ç=äˆßK “Ð;BxÅÊT†R;ø£/©#št© ­$fÚMÊ…[¶«Š1™UÝn(©9¾®;ãí?‘K10þ¸¸Ùa;z 1¸*åÁ7ñõ/Œ(Yúºk¯›j [èl>ÄzÝvâ“>P°ÔåQ8ÛgÀ5;Znõ9äqªl Ò`¡pPj)oœ——Åè M5ò­þ“6.ˆñ·ü2DìkvvƒaK²ãà<äÝÖ³Ž<±ºgcÙ"qD(fE‡¤­[[êjNÂmZ«1]ü¸âöø™ÍÖÀ©Š³ ¦Q€…Â\Aò=—a›tá™$ßsüÅûn3Ð0ôÀ!h‘Ïáþ` p·^y¡ü#DèÆA_­ýŽˆÝ;qÄhq>ñb)²ó@ΙV°Fö‚û ¦K9ø˜’9ýx‡¢˜nRÄ¡»ùšÜ·« oœä}¸1õ<_o.þ‰¼˜/Ü·‡‚A'«ro ” ŒPŽ²±®ž*ê½på­?ƒ-(Þ ž‹ß*>у|*ï-{¤Zõpï|w ·'zv:F”×?ã³Éhb¤öÀB‡4¥PÚž;!‘_C2ìËéÃtYÎMÇØÈ7].ÐFYú]00DŠš éò\JN*Agø.ÍSPܧaÊ'»Å“þ­/²-eý&—Ù èn¼Ï¶X{wÚ-²*q:’XÝZM- {iµAþ[á0ßS¨Mþ¿ƒ'Còÿ}2xúõýŸ ž}–ÿ>ÅgSr¦­}z‘bê.½ÿ>½¤ˆa7Ï¡/<ù.¤5^íËÌÆÙ2ƒ²>¤él55 kÄø˜Î¥\½bfd…)¤)䊭hÁÀÝd…sœ}<„~·-μ¼¸Ù—WûØÆ*p†EWD§YìE*`vmÅ&”0óö]*Ð/ í(•|ê×Øà*ìù ÿëúýª&Š™á[KO Ya"L¼ÉO)¡½¶ |ßKR—‹œµ’ñ´Av¥n/]\":»‘zm‚þ0[ ¼r†ÕN•7’ȶç`³Æa‹ò)DlšAe =Êd¨QÕ‡£íCg¨~–'äb—@æUŠïëªbOº.ó±['!,¡whûD„’°òó ¥` .z!Ï5Ûhúb`‹V|ŸÄ¡é/=ŒoðíFoQ4<Ü¡î™Ôqs=¸›÷8Øvä‡Ãhù¸C7^äû«ˆ¬ ÑZÂêiÍ£›¹¡z¯{3šé û³æÁƒ@GŇìÞæݯ!ï;°ˆÐŒ{û+NÂÇþþ‚pÏj¨­æÁ¨®æÇt5ÿ-FÔ;=ãÞw‚×úáÒNjKêbd>òÎÏbì]QjºÒ Õ  ù^¾z.ƒC[£ÁOÈú½ÇW8%ðýóæ̺à –CPÜ[ˆƒHY3vöœxõWÒcÂ]ð“>DÞiiy€ &­Û^v¿¥lˆ¢-¸î² ¾š\ñbò§¶q$ÝĪPi•n;Ͷþðý§yºÓ‘R›­½}ð?hڛʆ¡AîF"­SÙXp¿¥à&¢ÓÎ,õ€õg¦(‡)„4¯Fü]tè1jíì¤ ·7ÒËK¿*>òk *ñ_-ñýš¦rÓs{s׊.Û½íÿ2¯Ø¦ŠÊ=éõ/ó–Â/fë½FåjYÎñj¤ënlÓÝ€ëwR´µrˆ/Ôj­pwœ½u»­×q®7fD$ ½'ÙôlœÑ=q/c䃤êƒdy:Îù¼J–9Ý ¹/nb½ìð¢1Ái†²Æã†nν 7â»ù{6_EÕ/áB fm,F(P¶¯/XõìM$õ[?çl5P–P³9gàx3%=(™˜bÔÍI>Žˆ1 ^É[Swk½ûõ–l³]Bß›%Æ’í„]ìEv1»ªÛ<Å øxQ+×dà…ëFNÞ2i3sâêw4uÂþÜÕÆIm°Ö°Ãé–ãÌYkN¡¥q0ô!Ëô¶äÍX‹-;.Xuî´ÇhnC¡G °æÉØý°&Õ²öâð‰;´Ø×+|6˜EàÎMòóåG2d×̠ݘݚxŠÉKÅ£qÇb¨Û:%¶Öñ*z*¥l+ž^*’¤W–:yÕké‚5õÉá‚}.QU˜)–Eâ«"¨ÚÈßS÷}/b"N gåñ¬ G›…NA¶#Hæá6¦Ó|\€Ì¶î‘7ï³ÉyVLPÅXk2â6 E8ƒ »á Ç¸Ë°h–cüMCã—ùDƒã5ºixö‚ñq¢\–Rés@ï%¨k`cñ=oø}ñ):~Sô°É9ÄÂôiƒ¹·P¹ê°“ö@i¯LNv—½½!ÁØÛèhÿˆ¯œí½½ûÅâdL©k(e¾î¸^­¬Ó“òCŒybèU9¶EO ¤0Û‹8>ïÁµ·BÞé.Ö™ÿú'Š<~Ivw;R1 /­UBXÿXêIJëÊ·%@)æõàÚˆ‡ã¿RÒz›œ? V´_•‹¥u ¨q;xƵ£GÒ!žÁAbO´YjåÀ49_ͬ‘f8O¾¬Ò.ì&(=ݾ¦WEá´(Ý`h6Žµ;Þ™ãñ$ôkØñB)øJŠá¢HNŠ—u«X¨‚™Hîñ¤Û«“Ð0—‚ÚMØ˶.^½¯_®•»òûÃÎßäévÕ†î³^¦ÕýnmþsŒÚ¨Êíu‘ßtt¨ŒXó#Ä­àZÛ²¼Yå`'ï;¹qAƈµgÚòýM=]ÛaÔȪ‚5]9OF,ú>ñZhìnŠg ÈÁEç|QŽW#ÈH2“æh@ž#Ë™@̽Šfõà'êcôa„IÍFËÔ)©¹MñßGé´q<ÀÊ ºM‰‘!èo^¼=zýââ 2ª1½¿@î´8Ü¥¦2Œ¸:î瀶ºÌ)­B¸Åy¥Ô¼çtîVŒ;0t°ªQJŠ#x}¨ì!ý9ЃܑÅ0èz•½):_BGíQ˜¢Ö`8º1Ç=ðiWR¹bþ–ŸVÓ3ÓS Ûõ'.•‡•bCÓAi~ŸKjm)Nôš|¥ %•hûÈ}ßÕO[Ÿì!¶ îƒäù2Y’e§Éô‡4aå|†O'åÌH.b–Ì×f´f t/ËdØÚßïÂÚ¥\Xú‡WvÍ<=Þ£”Ù¦œ+]&«ãóv×?5ëÖüLÚÅÝL2¾_ßô³jOèÁ<ô‡˜+q†•A‹…¾Rs˜ìí÷p[Ü{ é­@–º‘x{ù i˜þ™AéïíÐüõ©þ[, ÇGg³éj²,Àð¿T{[lâÈ¢þ²¥ùó¦]ÁDKmáBêCLééø/¥Lš¢Âðï{íGÖ€< –ÈÍ;Rü=Ò¢”œƒ6—(V I˜’ç„Û€?Ç¢ ý襉GôÊÆsÁ ãâϱÀôúBpñÎYC”ÁÐzŠ÷ûÞ¢ú*í%kóI(™¢iæïã¯.8*Ê 3OmP¯4;ùáXšcû´—Œž±, ó¥‹ÂX"¾!Óž?|nRmeþ¢†K€*ƒ0•hBHök7ç8*Ax rúå`ýö×\ÈW¶Tè¬Í?ÃÁ@ŸÛö§isGlíiXk¼M­ñ®#z»»{úîÕËwo^½ýîÅÿ†ë]H>…ùšž 4%™Í¾…’<Â90„Â%y8W³â@ðtÃ[!Ÿ*•æT)À=&Y³£ËÕì Ž¥äWÞ9ô¸Œ-ݱÅÃÍÑÇŽ+<ôÞƒ:û#CL7O¶Ú7ºGÁ±_%j€ãÕÍÊWe!í V>ZUÜ“ïø¢*.P½—z$á©™ o`¿ˆãò½šqÞ  ŸÁÁ°úóýÀ÷ØŠôAòO´»È‰•¤ü£½†ÙŸÁ¤ñ¦G6—ƒN d”êhÈÚ¯>@q„¥ªTÖ'ÐÉÕ^ÖÐÛý翹{ÃçφO›ÿÇ=¹ÿnòÿÝÿzúÿ>}üÙÿ÷“|´+ǃä…sÅ]^b¶{$„ÀË#æ÷ûûyxµûƒ˜‚çDù÷vœ ª‘óVÔŸV›é&rsáE_ˆ9Ɇ¥ÚÜe©,{ËjWÔ1SO£±®Ü£´8˲&–XÌÂ'_Wrh½už®Ã÷ñkÝù—pl¥a©‚\ºÔòÊ3‹˜}éÒ\¦Ù§•Á},ŸÖw+P~'Bž¦×ÜÖ–*m„#~‰ªè¼ù_‰]aöW\è‘—Õe>™èü°À¬f`B`Öûù•$¯²Ñ¥p>¶Íä—Ùu.×µtîÉ(†šNM!ü™ô $y9)M!ùЯ̆¹,LC¨?åð!pÁEÊ cÂ0ÈÈ´ EÕJPW f©x’ˆNK@—aùô:›ƒ±'7ø>¾´ €9SVÁÈîôÛò§RÎWņ›Ä%Á¥†ÔÿÍÓéÒìA茚[ºÖ:˘®­ÇÖA¶´ó¼iª¦¥åzîaCßX­„ üüç|–äF‹Ë;:Cmä£j}œieà¤Âœ†ƒÔ8Fa½`ÇÈÌQ¶š,%]h žlE剿½N:5Û^¾hêt’¡Õ±°G ú£¦Œbõj ‡2x*®YB)š½L~¥8‰`Œ£‰Û [ä077LüŒ´Ý3œ›}PÀ—Ðî®E€—¦­ÿ›vqcw0À7/nS{;ýCo¢‡ ¦5!¬w;8+M'¦¾ –kß$û­¯ë­ßÄZ'ËݶæÙ"8 =;š¹|ÛVÈN‡õkÔ§$»a˜s’"Fà_¶»ì*TkÒÅ ‚ÆÍŸžŒü©Q>/d Ó‰Y”¦ âID,t"C*òÜF±ç«zu1ïµ-±µÇqÐûZ€s›aU\nÈ4_:Á?}OúûxzÆÐß4‚;!óPº$Õ"îþÞ¼3/G$ØjÔÐ:ݦæT¬(‡¿Ä†²§iëf€ÅáæßuO¿£½ÃX³KOyáøF3^õì%0ª‰^}ÿâ/?Õ@¹uÊUk‰&¼q zÃJ@uÓÍFd¾eR %ÏX†œ1™Q4ºÃ¾PÆÿ.ÓEY¥ÐÎAzøÊàZ…ÑVÍ@¢¼)þûº*Äɺ’æt3 ”Ilä°‘!!N6i¼ùB‹D é¹Û¡.žr¤JC²—¼–½’ÂT'„R•ƒÑˆÙýÁÜÕ Ã!uqàŒRŽF+¸í`Ìr «ûRùº¢A3±#Aãkƒë›…´%k‚ÇùÔ;˜uÁ±Æ Wõ—fg»@%W.Æ.`S˜-H³õÉòÄ u­ÜðB0$çL³bf£ý^Ë䛣ß>—H3ùyaŠ‘Ã^ÆzITž²/Þ]š#Þ{Æãòï¾áLÊìÝÀлŒ¢ ÅÞJïÞ¼xùêy/ùæí«£¿¼ýéy/!Ïh5/ tj@3!xŸm ½‚™^AæJìd-è<ᵡ¢iqÑôÌ( «e|ïÑ‘BN¦ÀÿÈâheV6¸PЊ‚øÍÊÍbÛAppg,YB³p[FPÒ ³×Rá@ÃÖ}skOºàb»äbú„Û\óøý]I#Ö%ˆ´ ÍÑûgâ~/w@í÷?÷÷Ÿ<ûÝàëgÏž O¿~òì?O‡Ÿï>ŧñþÇÝöë¾­02b4pè7o$Å KW×ä>X²o 3¬Å›9ºüüçR%½zûöç·`&ºË^3`¸8”;G°õ¤ÀÎN±Ø·†1d+ºæʦÁomº»;ð"púÊó8÷™uÙóŠ¥óbv•FoØíÊkÄ:õjÅkÁC“ öææè¡!úµælZÂòpjép-XgÄë¬5À„”7¢D»›Sc{kιü¸\P—þ럯U\_¤ÿqDßÃÈH'áÅ…¶E8ÀF…$Ö›ñ Ü1Ì£uo£©9ñÒ2³:Έ2¯¬m†-Ùu½ß&>äö±!ÕøÔcjm éÊõ)¾Â·vÕ‹RÕ'hñ÷;"×â5Ò@>5;ZQ‰óqÏè$’ÖK®÷Ê€93/9¥U>2 0™ž1››)Im=.áŠÀÁ€KëU׈L)",“ŠÕôž]f•‚Bô žùKeëÙ›KÌ͈÷øÔb¨jK»*Y¢Ù˜Îs³VF˜ ëCÜ&¬î[AmÚZÌ!c¬³­?².@*¦ c¹ýROAÒëÙjÞ׺Q%Œ5nc†Ì£=gÊ_fp·N°á"ƒ~˜2U'È×}O@dü‡¾f“É;ÈÉ2åÉ€nÒ zo†ÚKFã`·¦Æ­TEÞw#Û1µºµ ¢ï°Uäˆw(’:#¬G£þz–˜sœä¸AáƒûØóæ%P ³”ƒVC}yÕ¯æ“b9¡|t‚ß.D4c!O`@ì[9vé1<–·'‰N%ÂÐU8â@ G1udôf‘ã½ Uêaï7‹ÒÔ MkÍó«èªæ‰­KnC¯4T»MLßÒc mŠÿµ‰Š“GIíæ=¦áN*§\òöÖè~/Be³¸¶åÇÛz2KS§æÝ_Eªù^nÄz‰•t”…"˜#d‹ñu”‡Ø#ßü :_[ŸTœ*^à˜™Ú)ì>×Ø1 ?ÙÕÔ3[粘­äJ[_Ùt‰XØ@òs$C=èÄžpZØ~Ä t\⾃·`ó'“²œãŽŠ½²ãáÔ©¡ôw7f0‰|ì?†Ð5ä›%©ì#û Ж…è¢X“bW–°êðƱ}w"®‰¬*0ÖMÖZˆÔjn…EîG¥ü(¸~}h¢•¹Š`î4zÅh‰ÎWñEÔÈ–øbjN-á£ì6R øùh /†ª ÿôŸx`³ÔaJÛnÞoŠX¨sÈ$,îÝÀËcÕàô¦ršÊò Ì‚ÜXN³yÅ©ÏæÈ!ª‚£Á5FÒ@É~±È+#£‘œ¨û»Þ¬×0À×ßKDj D±Ž3ÁæÈårÑQðz‰>›é… UqëgQ’êiT .S¶Ž hfa®¬y¿Ê^!è§vý²'‰-»y$½ª=¡¸mD]L5°> =QŸì¶ÂKÍ°ŠšìU=tSq@Ù‡Ø 0÷øèj0VpêŸ×³ó’‡vw'ã(_07á qe{Ë£\÷ÿ »­•àå–‹=zPG™ÃwAé­e6ð¢‹Á‘B –7_7°õ‰ Dbã iÒЀTFA‚`€>ÑŽ”p(ÔùF±\{—ü~Z] %e6N¾¬"³Å±‘5hÊFô Y, fÝò§M×рȗI§6ñ= ¿—ðÀ8bòåù†¬í£éf+é8°"‘îš­Ôäҙ󭎦ƒ"6 t—M¶SììÔ¯ÕSÌˬ_Ä£ÊR9:œÛþ»cžVí¬ªA!‡ÍâÃÀ\aÝ06WÊß ¾Õ&ÿkà KU’ù V ’ôm¤­wùĆ+mhɼ죟WJ‰97•g0 fZ õ¨MjagÕIÚN„G7g‰ŽgÏ‚#¸AŠväE¬ÿÚ݉NŸ~HFØ^©ÖYöÍ`° ÇÊÛ­…U X¸ZXlïøtšc¬=qa&(}SËÂ%…À Èc?ÄvýÅÞ:D5òwo|~¿ÍøðbóÚö—vÀ9Òö¤3heVçKºT@ºný!OaÎ¥ ÔÖ§@w•]йziÙ Ö'=«mCÓS\z›Š>"¹øö¨šfcú˜.éðr3S‘s^L´‚`Lòڵ⻆¨K*àõª¬R«Òãh›NL*¦Š† 0& |¬TCÀÍË2øŽ‘¸ÌV•ÝvÉD©¯° Eâ:¦¦²=^°8‹³[÷˜„ZÆ*ðþÃF¢·Úº„þùÏ6e0 J#ÁíxB@ûÞ@K¶“JÆ'c·¹É ¿âë]×u£ÖÜsxã7çd÷÷hÎOLüÔ”ìs>Më]tÿ‘ŸÉ¡eD:ò#"crYg’³oùŠå^Á5®›õ@*ÙÙ©‹[ñàF>ÜÌlÕ(ª^ïJÏÞr„OçÓmö0HÖ!|…ȾoJésYˆÃ‚wƒç×è6ïÐ3*±4W£`›¥K¤WßÙœÝöß,£h FêxpÇNýÅðï„éð¥Y• ®Äw%‚ƒT&à¥+Ú¾ºõN´ŽpßcwÚ¸¨ð´%#‰£d÷ö þÝwzŸðô2³¡[÷Új”¸ÂIr÷º0gú6 ÕRRÓ•mÌ~8†š‡VXºQ_™‡4Sö†ž×,Mtž÷Øð ÛTn-5–à ¦„’,¹RÐŒG›‡†ÓEX ËÛ(¼©—Ãç.h„éÊ;tð¦¸mËŽà(âC&7©¦4O¾ÁAó¸#œC©Ôx=%VʘJqÜ\ŽÃ\ $ÄŽ`'ÔÚõÐr)'zó¡FžñÛF–4ŽÌ£•2ââ¤FØÁ°Ç Ù®qH(w9×K{–4D$Åàs‡÷òÙPdtCºþ˜¹Üîî)‡¦[äèN¶ÈѪ0BúÿöþãäáÿaÐ:uAðâ%³½ÿ„’à5ÙýÇŸ~~ûêå‹w¯¤â¦Fšjc¤H®l7ŠŽš9Ý’ÝN0G"¬Á#f£pߥ±éO³åè’@éz}aP§Ù³¢üÚ—¾‹|ÑŠ#ä·s¯tþy”ÖiJãKöÚõ@Ï;~ë1#mq‹¢›Á&,ÃIn›xšÈ°èÉoou‹9¹C»*~ãvS2¸ÅÿF3ÿГGôglí™Gï3u½døì¦b4ú}‰Çªnˆ¼C—1‘xÁ ¸NòÍq†U0Õ0Ð0Ž@4Ø°i-f¸>dçÛS{(Ô" ˆjFš©!–òÎ0XvNWy™9^h_*سSßÇYÆá¿Ãþþ㿼ÚK9Õ7ømֆϞ™Ì0p9˜ïP÷°Ý*:âÊã6 ¾$¸Ûiw½ ) œ [)é@(‰Ði ¬['…Í“åÜód@Nf0FƒZh½u#”ÄÌ&Afôøÿ3»G²NORÞµ#zÀƒ‘Äñ»£p|‚ˆÖIк6^ak å=Æì#ö8rñ“ÄâÖ&ëµòr‰þâxG}Ñl©j¸E6WUÜ;Ū1vÞsi ¼|2Z¥¢ßu¶×ah©ï¶D ÅÛ‰l£ÅPµWÅŽœT©œª¢âíR+Þõ±Œ,Ån=./ñHÙPhb÷î’@ú23çj2ÉÜåä5C³œDX'Àv%üþ[. 7©®‡!D}§¼àg$x«¦ñ+\ ;ðŒIÔè KÙö¿³Ej A¸¤¯·ÅàÕiD¢ ÐïI¨]Ôœ Ð ^åw5V©ö/‰t½ö £“à´[»Úi@Ôx¸Š{Ž‡N7BVœ®æ­S;ëH»âŠ<·Xô'wŽâ)[ëû:©Jý&_ÕÉ$›Wù†Š<ŸE£5Rq® ¦å~SHK,ëDZLÍ–×y=€¤RP8PlIú Pyh¢7ø`º!|_WL-—oá‘élpÌ”E=°$ƒ®…•$Å8ªN|4ÙaÜ #êÁÏ0€\¡¢éQ ×RûƘuÜ(ö×mѺëR¯k[÷&b{˦Ćæ~/M¿³®¯íÜÒaxfY«ÔÈ+]föÚ6¶T<ßáèí/ºˆÛa¼ádÖÅ;Ý­•pSèÖã‰ÄT^·ÔŒN^d³Ñ%©Y0A½·,7p5TÊ/vô †@â `ÓŽ½ñ×…êí®½Ãí‹6mEñår§î£°±CaùÖ.µ6Êå»dp'{YÞKzlo;¯:T«sݲ¼¸˜Ôî eý0¾õ1 ÞßÔÝeÝÀKRÌðŽÓõÏfæG7®»²þªpâÒ…m€Øl·%ƒ_Ñ£²-{ññ!¶g ŒJvÉGñO~ûú¯ÂØ:ƒÝÓþîõ÷¯_}‡Üúô»×ïÞü@©åÈ¢ÈÃî¼-J0ì:¢‹Ùur‘‚átÀä¿Êf:fÌ°1ˆ‹”_fÅD'êå5³! ûïÑQf‚j¿åDO̧ 1IXF˜PD‰cë 7Z-¯ùŠy`í²j)Éþk«ç7°’yI‘?–¥d˜æ¡F‡ó*5dã1·µZw›¤½3•_m8zï–ÒW{iÄä~YS“ BŒ© À×Äv5äý$y16½[öµtàÄÉü˜.$é_»rO‚xÉP~Äø¯8’{Ì艖¡Ä@GW?¶¼ã$fÊEý^Y–³ƒ“Fß^ÿpnr{áá`p`?šˆä­ëPZ“©H*–ë6Ñá˜EÛ^s²¹îƒä/³±Á~¶f¯>!>@FÌ+0†Ìe®£ÎÜ@v´‘4ΠÃØçrÖ24`~uÜu‰@àe@à‘BøMÖœÝc.W%¼ÃqÐñˆ¦y†œQ’×ÿd(7åð®¾9q³ÒEf¦²Xˆ¦ÜÚ8m9'@6këþA}Ë&3ݵ.ÀR¸(%02AŸó·oêd0YÍýeÓQ=ÑÖóÀ§†À(ÜÙ@=¾I”ìsÁàì°ÿS°”ðã²Å˜K¾]Гƒ›Ôq­ÙÚø¹'8‡¼+­7Å ´Ûx`,ì–³ÕRüÌͧb÷åoóaö™ïú;"A3I@djc*ŽŸ'ëÛ{ýÁ‡#Hh¤V†—êA ÷Ùß×öÙ(X£Á.ò{ `Rߎ9-¤ºwDu2 Î>PØêë HÊQ¼}*ŒÇ ä}^p`²É ¼2„))þ èÌpA¹nÂ;T¹(.Š™aªwƒ÷j€ci «oøìq·¯—æ;¹õs\ÑòC\ÔµÝì¨&˜I`M®Œ/¦éióé*$»åî*%ù{+ŸžËž¢ø4oÓèÂëM­ »ª:ÒŒt†´èCîÐKxAFœÏzî:î9m žUM| rkÕæ‘‚Æêø;¯.ÍYÝå^X>MÌÞ‚h©Õ*u´wOô¾SëÆÝÞÚ@ÖEøý©ÁÄ«ƒÛŒûÞÖ¸âØztÇö®r,ã°ˆSo cQê¹±ì6.Ãm¹J}£ æ÷²»,HaíS‹{Ù‡­óÉw²/±hçsuÖ‰ £S:ìRëìä•`'|ÕóˆcsòÙv¬ýÕÿâh>æ»åÖo°ÿ>{öô¿Ÿ>{²?„çÃgO¾|Öÿ~ŠO‹Åi=ZˆGWÿíb§Ç•ãG¬A¶ WŽQÝÖjÄâ㇮ÞzÿÎQ¾Û­H¬ªÖ Ùæl„Xlûd„‘Øß~Cw ýý[DïþT9ý‘¹Ï--ÎÿËll¦êå7ß¿þÿäéãý¯÷Ÿ>û_³|æÿŸâÃwæD¿¢(@˜øœÝ )`Zâì"‡<æË| ‰Ôè  3­Q6ÓYÓ«bºšóÉ$ß5Ð3Õ!³b¡ß«Õ6›*¡M‡µÕêŒÊ‚²šE%9 ¿¹œÿXå»o¼‚¨Û˜ip5G/8ƒýÄ Š½nX#žâIóßèÇØt¬¡k>®‹Õ [ª$x‡h<`Ë´jNÕ…a0-EÁ—U[ú”ÝÓ7?þrúÝ«ïá<ƒ®=ùyªöØ=ÚÈý»˜ä»§ß¾x÷ÊÞùáÔƒ¬.~¥Ÿ »™AÞðtÈo»Ü|i;.ó ²á ùQá£Ê9þs N„ßä…T0o䫪C±=Ý#Ç$ÇúQÔKÖy•#¾väñàäøÉÁ 8á“ϧÝUÐ[ëÔÆz§$µØÍ÷å™Ï³²:›#Ž±UQvJjúM×6g@9ù ²|ÁkŽßÑ÷!áèó/O=l‡äP^ ZmI5¦ þÒ—ÙÌ…“C “H±@0ä@ZŸþæõÇ^†žûòП¯Oá\&þ“é¡$$ôqéZ;\#'ÿ hâÍ 5a(šû‹¿#öø±8ÞÀk °B¸åÆÛky±œñ}€/EÃJLß;ì‰y{Ü<%ê (mƒããâwU½0¢ø[,ВΦ-0ÏA˯1"Ùr&×7Á¢6%ŽŸy‹Ùw•PÀ|³ì“,ª©µûQ˜ÂóÊ*÷ƒä y2ßkb*€SÚ 󕧻;æp¿uÕç]í˜ßØ>˜^*hYV¦$ŸcfÓÅFR–p'ÁIïa R8…] éáô˪o„FNô©›«‹ÿýij-‹™% "µ¥Û¹´±oxíÔÛ ¸Þ¹([pFQ·ð¦¹oíA,'y^¥"ÃÑÂÑá’6l LÈ'9æì*ÔÏ4V†À ¦%ðùV›6j:3˜]I_t„à¢ÞrÀ;šÂC…ÜsH¸1Œ*}a\Î!„S_bß!s a39\õ®ÑÓÓöS˜ 5öÍÙcZÙ¸—+tó'å¸z—böZ%—ý¡pL|—t _a ÷]Ê;±´B§nÌä,Ê©¼QÅ~-)À)g¯³êÿõO 튡€‘÷Þ+;½i­¯3à?ýT±–Üf]!úÖýƒr'äz­©R1ÇVš‚¯gt“"5–Uëÿ½„Ð’£WæœA;~Š<د¹ /y]½ã‰m=iJXxâ2ø@Ì.s¯õÂ쉨júcÅ陆Ɗbjö¯ºB¯‰üZÅ·i‹¡åû5 è5>zÌ ªáº‚²R ƒC^Ã3˜ ®Åm£²»Öz-•¡p54¢Ø‘Ð=Û€Ìõ0Dåjè!â‘Œ$‹€_V†eÚ†qs1Pù¡ ëMO5­ûåõ› ’]~ Çûüâ¼2üÂüPŠÆú¡>`D€ Û3&F&ñÈšÏGD»ð¹ˆ’oós®;Ð{ŸöxÇôCI ͤ–…ÉJö'A%RÒB—·¬‘kÁ‰qù*Èf÷aŠëú±ìSò ³’Éû’3æ,Ñ¢ À‰›ù[/‘Ó d¿™Ïå|Q AœÜðXÊ~Ã%l“âQkZ‘³r}º÷‡S+Ƕ÷»¬iË Kêu&“€P™ÍY$ ö8*OÐhÔ³¢MOeEóMSÅ“}áw¤>ý¶õÂÆJÀm…ãÓ£2šÉ×v [¨­žzÛÿÈp]a‡¦fÐëdc·¡’×o|é¸^‰mÝæóþÆiÙRO[E65†(|Ö¬±#‹åßþö·äµ„¬v$?k·ž™™‘‘PÒëœÛuCç½x²»«V=Z‡aœPˆ¹»­µ ü5›üFB|Cq qŒ¢´Z®'`Ádàà6Ï(âQz»ÈÁx,]óßjž(„Nš]_X£ËlQåK²c•G‘¢ÁÒÊsÖLU‰;¢Ò•™-HqJ—RB ¬(r{ 눢BMT±6„ #¯eãò,ß»¦m`€A„22-SLTgfÄÆMB’´Hûf ÜIK\{LäŸPØÙŽ`‘h“€×ó_Jx¹à—n’0 ½2*!n¾ämï!°j>«òqPèŸ4)B”0ÕÈœáúÇ4K”œâHô ŵ˜äñ.³Ržï‚«™XP–’TJ»¼ ˜Ý"Ô.*féðÄY#RdÚ…§—nëõˆÞÑ#¡?êªüÞþ½°Ôo†ôLhÍùNK0œ<šµ§4Ká°Ö¨"Ò×â(kó¯©cš‹Õ´Dl ¬ Ôî]Æcóþ{±ßÇ{Âï ?LJpZT£Úžcù{ÁÑGA¿‹÷0‚dEŒ[ ‰všùS•O ÷(œ9ŒÜ”Gr~¹ï©˜~Ä©ûù'#àëy~³(–Mc|ö^ÖFx²A`nWóßj¨#=¾æÑ$ÝaôkÚ2|Y•3a,u˜?Œ2KÙQ(ʆb«‚J·,ìJûæ/Õÿÿ˜3PÞ}›Ý‹øýÿ×O‡Œÿül0x2xúõÿûŸí¿?ÉçA“ŠÙ³l±Ûf—¼ÑUH‘uz±]æPÿ„ºSD[­ƒŒy¨-Ý"Ž•¿,—pz•ò:\T=ü,WYM&§Ë<[”çávÐaê¡¢zÉxmXk1ÂðÁس¦ •¤ÁûŠdk§3îxäR¢µð¬@eîgÏŽš„cĈuN7÷’,ÝõBD 2†ÂÃ׌Ҳ éòäâ%º™­ú Б´$vE¥p ¦ÌcÈ"Ql³cà+HËÒÔ¹Î'ø²¢Ð+‰£ÛÇv(«G´!'£À#¥Í5lys´ª2‰”g£KL¬W†.­A£ y6Uë]íÇfJ®½­kR¼[‡Œô›òì:n̓!éúÒ÷æŒ[ÕKÀïyê/6AÆ´|ÙUÑñë@AF(¿„(è>jŒ0òQ††ÉŒ¨~ÿ„~mh­ÐÃÐeÞ…¨…î<æ¤RWŸ]]/šE®‚ê!‚Ô'Áâ˜'ÇÓc„×æ>¾±òiû«ŸÄÆ è¾êë_|ñ«'%BeÕÜnxÑœåç*Ø’¦šÈM(-ß´ÝFûësÛé1V€£CMïT«¶Œm½†›yך"Öi´¨Z¯Üë1«q§Èfå•6“¤œÂ‹>¦h#×yˆ¨: ¢ØAÀÂh  Ð(2åéŠË0e¤“ï¦0¢5”éÁ¡ÀìKÝnĹ‚rÈýkõàÀóšA£e#SïÆI-B£uÉ;܆1cNljÜÊ è†ÎÃ(?85KDæÆEò÷>ÈîÜ,TPë©ŠÐá‘/>ùì7CÇfµµÈdãq„gØ›j`ä=Þûà»Èƒ^Ë˺åïæù(=)(Ñåìµ¢Úv)Á˜šÙˆq3ª½Ä`è¯(5 Ž¶©oOáÓôîãá÷¥¹ÞdïÞSf›[x¿qSG3µnÙY#Cçݦ$Ü-#›ýâËê‹$›˜U>^Óår·ËÚgÊW7¾¼ê_)§"ÒMSÍcûú„n˜ÝïÚV[ßYbMØ¡±sjøNð¢Q¤ø•nÍU3è ¶uéŒÖ×æŸð4uTþÌòVHApæÑdÑõpñK¿ßþ ¦NH΄þ ºÖÞéC¥¢Æ¢Ûí19»Þ×d»GqÜ FtÚvD=öGvAçUXñ&α!5Ÿƒvç3Tôô”l}|r,ùP¾´E5 OY–×÷v¨jû;<ír°¹ße+»³Ì2%4‹)“mrÕ4vŠ° ‡~;ó±­ ˜ÌÄ‚ˆ{6êØÔ."z¤lª á0[´¦h$[Ì-°s…[@.²qQn RnÃ2z̈aH[^dç_ÍÈbBÕš( ÀÞ/ˆ42„é–¬€ø#°I‘–Bj —LæHÜ£Ž­"òârêyeäñŤ˜Q„" ù4là¡üD°_97ç6÷z¶$9 ¤‡ pD]{Ss2&ñm]³ƒMòmYè6º½…èHP¥#ššøæ^?œCñúA\u\ÃQºûwÇ M7Ÿò±ãn0ÿ5ZB>aVªiô¯ˆ*rgÌ]£†óî ã˜ÁiN)2êí U6‚ðšûƒõb†ñÍqb£‰LÊŒz`j[x'ÍÍrÓ †§ÆN{ãTkz¢6öNRBôÖëðöª¾±›?äË%fÛòúîïpA?½­ÙôQ–¬n1 uVÀ8Ђš!ï‹cK8i‹*d\\€áÕ#Û1Ä«ª€èuÿëþZ°^ ÄiDS‚å#T6‘ѵ-k uu†˜^RÀÛ'Û­‡5>´ºÙMJ. 6-ríF¡´wpl«s XÍJÿ×—ãôKj²Û6ëÛrñmÒ«móáo›4~(öÚ óábs“ôÐIcþ#1:±|’òZÞO:Ú˜?‹…¢-Ú.½|Þc÷’dö¶ ƒúnèô%ÊLŽøÂÃŽ&ÂÃàå~æJMÌ82V#¸é<§´ì³¥£îµ{ÁY4ÅT´é¿o”Ù¸ýG~o¶ði·ÿØß—üß`ÿ±¿ÿâÿ=ÞòÙþãS|àJ}fÖÛB¼§aÛã+¸3É}C1Ö­ùÿ‰V ól|«œÁ­UîÅ$I¿¥CúDZÙ2·q›Èg³Ž-Ì: ‹xcdé1–>^¦ Â\zý13ºÌG¦·å ãBáP.K›1Dá×÷¥nCâ ©u*Ùi!~>6`³’5]Ûúø• —ÒvÚ_^õ½’ Ÿ—f´ršÚ +èD]xyEþÌ? TÐÝ6ÙÖÄL­ÛfNGèh©B¯ž;›Œ¼×ã¶Âû®ð)”¦¬ã©œR:„Ò¥»ùn¯¾¼ñ^Í ò)2ÝŽ2ìÚªôk× þêé¦]3”óšñY0­Ö0šÒ6™Ã´D E³føÃ.¥‚õá{õ·uµ°Vƒù |>ĄƼó»˜Ñ`Õ7¥a ¶5§ñ'a³I |>Ĭ>w2­©Íýf#§™˜xÚ ^Áhµ0…æs¼Ûø6`mÔ!¨ØïoÍóߤßÇl¨*Æ}’Ÿƒ«ÊVW÷nH ÊS\ÝAÐûÞ£~ › *ËÊêOh"Dã Ãúç|Ýf1¤¸ÉgÛ!m;¤Ñ .yXë–=üâ>,{dæ>ÌÄÇr¥­ P4ªœÀ R¾m+¡UÊ4˜Ì£…Š¶Nq¨ö!µB¨÷HtV©‰Š‚à j; ¥m”Ÿ ’þm‹àã nµ[ý÷·=j’Ù¶3DÒ5Þ˘Ç[¹w"$ÄùcÚ4Ýi ¨}•{â˹mSt'“©ÉOœ‘{Žúƒ“œÆ$±(•øy%QJ u=Óu‡—‰9Tå—…NÀûž§-ÿD·áе½ÊûšQÙCrÄ Ë C¶GîtÉa«´éXƒ"n“¥Zï_ÎÔ+Æ*îÙèËJ2Ÿ­¿>[i•Ø'±þŠ EÛ L¤½-3°&‹¬vïq.f¸ïu6†Ï‡Ÿá£í¶b–Y²Ï£ÀÇ5ÊÒMYòh¬ýßÏKJÜÕ¥I–ÝdFÈ]i5%„Ï]Ì æ4¿“Bø4‘gë0ˆU!w`k"†ÏFëÂÍÔ\kv{Š†Ï}P5£ðþ”íÙÒÚPöŸ­ 5°ÏÖ†íCû¡Ö†öPä|@Äà/-‹ë<ýlêçcýÙÔïßÖdï^? ö81÷e¸!þÓàɳgdÿ7<}òlñŸÌÓÏöŸâ† ŸSv@Ö6 ‚ÆÎ<Ã+`÷Mvm¦€BN¿]þx×ʨ€°‚Ák93׃¤3}}±4'n`]ø³—AmRaØh«G£Üp” ó­¤®ó´— ½dßü‘ÌñD]Š`¡'½Êõ’-s¶ªÖ.M¯)ó#C tn Ø#5¶p¼2Ø—h*|ØkkX/ƒ÷°©*3ððùçîN`@‰ÕØ}lj䉂­'^À{ûq6Žºâ¼´6”žÑe[EžA±rd†{±ŠU1ɽ€ü ¨²Å§Ô¢Ló®hšß¤íxJº´6³MÊHù¾¶˜;[aº¤—¨·Wž‚ÜTÉŽ¯‚=I²7»z1ÿ€•Èü8Æb¸m³¢@éEwð;;rÍu{IGàñÉ^f³Ò‚ßdkŽ7m à‚’Aáõ‚á¦ZBR3tÃOþÐÒß·À0§ž’h7b¶p¥[Î&km´Di8¥G£ êß³mÔÝþÅ¢wFåd5š5¼(oàQß!É@LŠžKF«R5×î¾MM3¬•5€ 2f4¿¸<í¤Õ¨sÃä\g‹“Ùõ¥c³Õô ±ÔYí€R]Ân"ª¸cŸô)–¶N0ƒõ 9œ¸t¢ac\`· ™ØÓGF\æâÀýaEp,º‡±òÁ"9šiº¡ËÌ3èáéPLˆ‰jh÷Í8yæŽä)Õ„ÉÂÒÔ¡|é:…u^èÉ´Ä(ˆMÉ¥€8زcG²r ¸Ý&‘CMM§çcªÕeíø,©aÕ6<<ÆËY¡CÒe› +I›Tœ[uhù0ÝŠ‡a”¾¶®M`úÛŒ÷] Y½öÉO| $òÆa#› ÍŽÌ?ž8nª«}ci™º­&ü¡±ŠÖªDŠú4I àÛ9Ê€VâkÎç_–]+ÝÀMŒÆö2Z@¶4Çö„æ0¹¶Œ³eɱÝÎe{øÿšøÑ0^0MÜd —%Xðáìî[K‹Ö¶¡ ›k0Å̸¹œÒòÅR,yÔŠ#^ø?OôŽ¹øZÎ×,iþßØÛ·þiÓÿ}g„ÉòâÃU€íú¿Áãgƒáï_?Ýÿúépøìñ× ÿ{òõ³Ïú¿Oñy|›AjvPŸsÎîýþ~ðý˜h X^%£r¬”Õ}D=¨ñ£¯ŸPÛWR™3T¾pî·û¤ù©iˆ¨Üzc9HТu^må"*®O¯*â}¿j¢`ÛiÔñûF Ñ jhÒñZÙO†Ôl¯n¼·<1¦O»»Cb2°¯ÖÁ«µ{uºµˆy¿oŸœ•Ëe9¥Gp¤cÌü˜7$Z©Ç6TëÀ3í$'«:¯q á% –DøÝ6"ж|Ï›Ñà’îÔ-æ~e°éY6¶õˆ Ðlî Q3#*ôCÕ¶.ź;_J­ÝZóØ45Ìý5gÙGA©Ž”yì•6€­ìƒä²¯™ó]b¤E#µX™ 7ͼ³çðMÓçî6èÖ¦F£d…Ž0¡VHPOü^?H.ùŸål¹U'à‘¦¬ÖNðS¯üFeâ†~ÈRy²»I19аx9¶k(#5ÖõŸ¯;·èMN´õûQÐýÆûTþû©\æß–åÕ=€i—ÿž0”ÿž>Ýÿ|ÿûI>âEÈä>’ý¼·¬'B\ää;—†`r2sŽ]Í ëQÌ»öó/û°­sÉÏ'ŸX-} í¤™Ù>ofÙuqwæú’PˆiŒo—Ñmê[¡<ÞÝjy´#‹ÖÝ¢òÜì(ZVŸ'Û`Ž2Èöód-³3-\ëOª‰…×Ù,uÇâê¼A16I²3 ªs7¸['Vz™Í®³*tè‘`ÐÙÜ9]šaœäæQ7Zö¥lua ûB5Bƒlåd󺀠wJ?ˆÛ ?GœÐE$&lÖæÄN†ÁRç—•/s‚° ÍÇ"Ÿ/:T< ›qS,/ÍTáÜÕq Kÿè']Ÿ¥i±þ‹58DÐ>Ñš¶¿Tpå0.FЛÌ;2È1\åè ¬IÁInd؆¡“›Ël™Ìò| ¶9 ȤKd%(øÞAD#¼_íñ)‰‰.ô¢¬ô 埫úªùˆ–F®IÒe9G¢A¦‡0ñ*Ö†LÊo ä‚Cw&‹KŸV¦t"¯ÐÑ/1X`ñ*¹Ì®s¯'ùŒCÈŒ‰b ¸ëÏôx‘ݘa¢Q%[l38ùBƒÂ˜D0Å–:úá´æä—É<ƯŽ)Å7]¬5” $^–“rÑ^PÔ*¸¥œU* UÆô™Œ)À - ptv ÌŽv½@YgëD­t2²¬4Q¾Ë—"±&—h€±ªæÙ(§:…;ao*|+'šÇO7]éÒƒ°“¸iëÆ\øÔ8[\©ÇI,¸10V|Û§IÁw¹Sb§)Üæ³ÑÕÅR»¦'N™ 殕>Gn¼~àh^¸À.ÛMÈ̾FïXº>/Íyå‚}U(Ü4—d­ëSvórb¶gø…×Qúú;¡&ÜÊËŽñýÐPáý(òÙEî ±aì&¯l—‹íhT ™ŒTÇ„óÀÉÇ 3£ìUļéCT¸tÇW6S7 l‘ÿy)<‚üöyhÒ#yfJEj15ëZŽÀªáȪ1¤eF | ¾{`‚™±±9d³Ï‰©‚T]]fð”Øža¢†¢é‘ ╳Š ·ÁQiˆ¼˜!×mè–×ôýb¹\}CJzWô'‡sš8E¹ª64 jCq/A¥5[ ¢T%g¾I&|ôr² Šš£Žõ‘’¢-‘²ýÐ;ÊãNwCeÒÔkÓóN€¦o0äŽËÀΦ˜WB–oZÉš•nÑ4µÞÓŠ?þÂ'•¶áË_ô‚Å/Ö¹`z¦ÅÑ%j ÁæÄ­‹y_y®&:öÚ…M§ùù`Dd쵊˜­€“‚³ßq#ÝÓÃÔSGeäͺk+NË‚‚b“šVL˜•4粟ÕâÜfjpZKÜE³ñ4UÓì HO_k„* P¸;!¢&úFîöâ19“_äËÑjAŠáƒt Óà=¿*°"r½<¶þS~cÎH×™ÔøîÄ>¦PZÒÃ{ 0ÃQ;yù®ÚÇh´Ì‘¸¬ñv¶ºaÌ3Éj€Í=tå\S3ì×’v\.k4ßgg.[-Œ\yïçÙEÀ¥ßð=¶0N" 1YI#ÝFwÖ!º¹Æûˆ #TjˆqÔ0^uªÙ|!%ªÕhÆqÚÛ ¥zà‘ (5N 4XÌãqS>&èdûJä¶yvâY_- àu4î~£¢:Ö5ý‰#—½mCµHü5AµŽ¡bºs=»€ôÎÙ2Û 6J›x ¶›KÖÖx¸]©v2v× 7F†ño¥ó©«e!wÙ ê«ùØ& úÞ7G·uþæ³­ÝÞ}³xïKh¿„Ým,§ŸgÎíL\±ùðnªy²»Ã›PãÄËyÔÇïe­_À¥s<彸¶bfKurX|4¿²müþPUý°s“«±8¬3Ô{ÑFS ,ìÏÖr2@ÉÖˆ®¦@Ç!;[oØÖ]Ag†z—£Æúb% p} nÙCÈM}½áv[Cq9­r_€Ðê¶`‡Kjõ¼Kô¬m(n®hHÕ-±¶ÛÐhU·+â.#e\ÈŠP§,%öìM“(CÿͺøMËy°µç¼ž›ùže†mf°¶ TU½ÿu5ƒF¬›™UW•âÓìV‹XàÃÊÙ+ic7U|H5>¤¶2¥kY”\¼UA±A‹V`–F‡§y]Ê¿áíÚÝËZ)«ÅÕÅ 2´Åo’›HÞ/œo ðp“\6‚°3réí0þ¥ºgXý¨fšmkÞ0>z4À‡‰‹Op)Mû¨ÔÊo+I0æ¡í¯ˆúx­‹è«tì*(Nùÿ$­´ô 1è}´š*û´bgEÆăò(2-“aÿ©g8XâM@¶tq#òöRXeß $Íl)Ôž‚"WÔp·_œ¯±øE^Ns>÷ÜðÆùCeUeA)uŸÀÜùù¡°þí%ä5䈥F›p…Å@LÙd2^?D;Ç ·ÖBcÅ—.úEKuÏ€œnÊúÜ}ú!ÝnèW£±|/-·øßßé$¦Vƒô`ï•·–7ôM´¯ Ôr›ï1õ~‚[]g¥[ð<›¼ØÅ­À}À»DÛGê~#ðq–ëY§†B[t2Û­ªÕT¬t(§t&š 2fÄ[_@IÇ€é†åô „ïĦ‘­1›Š>Lý§IÇy œA¦i]ZYÙt —*¦«)“#fÞ¨…³ÅÛdo_ÓÔòLŽ=kQ] ~s°°»Î,ú*‘êf<àÒ=l¼>âuh³çå Äxã3¤PÑ@Â\E¯‘å¦ÿÁÒ ûjøeÏ‹ë<,ÌUþz°B4Ãj¤¿²F¼7—4ò*šÂ6„Ù2@ñQŽÎÌ'r#äTZûá˜&óѺÒrIëŠj IÆHðSgîQ¬ë ê|qΛ2y*;RæýÔ!€3€X›c¥ÙsCf^ëÎFþõ}-µ‹_ܦke–°¶BÝáÎJ÷Õ¤$ѱgüÀW2­ùº•¦jâ“ntŽ¶õ”ÒøzJUƯ‘Rkªi-|tc»æ‡xXÁç=½¬¢wß•Ûm1uGŽÜiè*ÞRDs\5T@&Lªñ ù¾€;Ÿ8VèmÍË~n6Þã|â7,Ótãmþ!_ÿÀð‘NµVƒjq] !ýç’°ÍßGóVh,öë,(Z®V,ÀÆ«5Cb¬š®rtÑì:+&ÄOÙnÉ^²o0÷fj/±¤±‡X¼i„nÛFzÔ¾†éµ{CYhçxð ÕJo!î¬`‚ÏVÖ]áå+ü_xÊ7‡ÁlÅ‚)'ïmyP³åŸŒV“5ܱVÊY‘Ï*#T¬˜¸a®rr!è èóY¹º¸´ IJþˆºvÃdm*Ôá #.Í´c¿Âú³ç·Ùœ/M“Ff&þ%ËÚŠF,–— Û!¦ƒ©(b“OªGï»GÀg9fÕÙèCy,àGÕtd ù|e@B(q¿Ò&Âdöôºl€_\ÝÈcWoͦU™¾Ö˜Nà¸ã-»[Ÿ/ö„57ØA%§¶R€¢²Ýç‘èyÊO»ƒucýül$ͦ™g«eq¾š{UÔ >h s˜ÔóÁ‹}dñçË–­IŠ>ŽlMð‘¨c\ÁÎü£VokîG«n¬öxS5RcÔGWƒÇw£³MôÔÜsO`¿§Ÿûò;N ÔM[†ñ`¨ßˆXu»„Y¼V%s÷ÝNÓÐû(æ q÷[†gF6€ü¸>([vÇqEN„w¾l)·°æõä_+ ÒÇm;!«ãÓÛã°9GÁƒÓ¬ƒ©3h²Gc62s´T`´O=Þbëˆ,R%t¾§Øï}^«©;Ùìoã™.kçúN.s®ÇqÓrg/£ã5´|µÑ›ÞmMûr› ¯å_ìµa¼ ´èþEñ%J‚8Íó&i_P ½/¶ÉßÈZ P¡ÍÂ0 3:åÁý•E¬Œ@‘ÅÖ³«YêØ%˜Â…(Ÿ–“A|=ÔÅ9ÞÒC>׸ ×Ýo¶.h£Ü¶d(ŠÝ5ÁB‹ÐõFZmÞüþ{r¢¹½{jÔØ€âZ‰˜¥ ’Jp{ÅKVåu #°áÑ⌇Q¼ kÑè"ˆ5TØ— j7÷Î)ˆÊÆh" ;iB’‚SBÿ>ÔíDÌÏjDêÂIÔ§àn”Ö²{D'÷näpWèêÊânDïwºL½bÌÚ¯6ܵ u8ï¿Ö›kÞ¡ï]ñ“ÍЇ°³ß¤Ñ»QzÝ%|Ó•m#¶}i?ŠHû ¡Û7¶4Ú†ooºñóµHï鳃´­ó±äyêù½¡œçr@´5<3Á ‚úŒŒôúôÚàyÕlˆS…–ãW¯¹èëF?õ¨°n¥Ç 4äÊÖIȺ¾‡"¿Ã×:MÕk{®ò­lb_J2iƒ­AH=€R’èÁoc„¥cê=¬aáMÂGmä=î¤f!¾ÖÞoÐc£€Éüè©RI2ì²'!ÚBÆ©ÊíwE›Œ ÕÐõ@ÛL™;Î,Uç…æµK:ùÅA"q¢ ‚ã‚®?\D^ösìú(<î6L^/¯rJ~~nÚOö|T&W^ˆ ƒj'¾ÂºÂ¿]„F¢©ÁÛ(Ànf’[Ð’hÛ7ÜHúfÆ‘ýßšœj b# d/JÜ€„ýí°Ûºº½iH(Bèƒä§œŽË„ó§ámv ¾“|Ø]õH¦ÑKòå(áôjýÄTþ ä‘_® F)Äó¢4›ÙLE‰FW\ lY\oÁdl÷´ Œ$’ÆM<ÅÂpéÅ Æô¿Uê¶{ùDóPÜ óÙê^2€lÈÿöõ³§Ï~gþ}öÌ{údù߆ƒáçüŸâs·ŒŽ0:~òæO˜ð£!¹[-o„NMWAæ *oDÛ’OSŽ ‰­hêRUÝL-ó¦O×)1túxéH¢¸xiNï¦ùM)ý‰rË©DÞ+¿ÜlÅ×íÍ)æ¤Hc–¹m/CZϦ±’­|¿‡)±0 t¹ e=t‘ž9„#£þ1¶äÄæþŽ`3Äq± m;>Ÿ¬ªËˆ˜½Ì®rrÕ¤F»õ1òyíK&/ó…Ãú0œø#Ù:†­£×“+=‡ ß2Ïåùùá Ž°¨tûX¢»1c˜éÖõäkOÜÕ¢º#>\j¡O¾Æ7–2¼úbcHÁÉ?©0Ñ9)Ù°«dwDëƇJ˜;Ò ø Wù’LÓ„±™•ØÏjŽsrßÑ`½¦{Ô3½à|1õNŒÈ–¬æ2…ÆAÂeauæÂAðPSøµxÕS fgì'ãZâ.G“—L|Ï— ExýRñŽ@S Ð'›@·æဃ¬4©9Õ Tt:b˜Bè¥*Ô32«¹Ç $*}‡¼²Mña ˆ]“þXRêˆY˜"À$Ã"Ä‘¢MÓd,´³ÃÏ™lz6ΰ^"ñ9´ü9`ˆÅ캼Ê뮵Ë@·ˆf1 !rŸRc6;-_g‹Ú” Ÿ íO~»4… 0KUK¨H“‡ñ IÇs(S U)GµèÛÐ.ò„!@šyÂ¥w!26`h0k˜ Z.ßy8Ù›V 3±D/ )„q%Þc…M`–y•1TÖ)¯ó0ì„—œ\h𸢠‰ë¨ôà-Aqvî>ý¾ eä¹£é¨g‰õû]Ù~{ùÝ£uZBèXV|‡:ÿ"1oî+”;àH°Úýe×Õf'ŠIm¥Ö©mGÀ7D|iÆ+Øæ‚à52£b×H±Ù”8s&KÒKÞt»¸7.bGȸ )Jæs!‡¹€xõÍìp;Vè 5¬§Sæ­¬Tí·$Ð9?`Œ¯aD'à~ÜõÙœ•>ØýŸÿ£úŸ7Ù,óaî@íúŸ'Ãᓧ¢ÿùz0ÜGýϳÏúŸOòy¨ÉÞ}`Ö&Å£¿1×ËdšÙ,d†x¯ózÅUÅ¢ÿAµ:ÛÃÒÕîn4lµ®î˜RV!ó¯£aÒ,,¢h‚—Ÿ4®n*…Á2ÈSšŠ4>oR:UàBjR>Œ´ZÍ®rÉpº±ªÎ}ëå‘m¬JÑ$ðæÅ•ÿÃvUmP UõÉ@k¿¢c¤o¸ŠÑz[©µêš•z2WLŽÙ\ßÉHÁ?aßï-»ë&Åöä.yY%7Ë±Õ ] Î`­Ï=ôĘÝXêÒìäG2W@â L©ê7BÒ;;©Ûíóol~UÍþšâÝžmú×4 o–,Y)ë«êf]¥ñàØ%TK뉋>³aœ\ Gøè4Ž3Iã¨jQj<¸öòk©ôŽ3ÞqFé­† ò$.^™%ÉSâ¬x™¶ i…ø©ÕrºGè;ÆXåZy¿±Wtö±aœªÞ5džM1£­ÿ(»õÑ «…u ‹²\΃^ÑV¥%µ}ÂÐí?Ób¼Á{AÃðºú2ªèng/¥ #Y(\½Ç1mÒ¬1el§F²O¾¹ºyNª¯0™Ž—Åö:ÎÐÑ™¡JÉR ¾å˜ê;„È›Œ¹ oÊ×*­‘”-_¡ÈÙQå}Û™DkÇ‘Ý&Òh¿¶‚Ž-˜û œXŽgè^ª œ5é—g:S óÞzª 7/—=…¥]3=²Þ‘-Ö¤rŠuМüu§Ùxl™}'vº¶MôÁÊ×peJ­JðyÝ{­‡ì;h¹c¸“ñß[ -mÂ8OÒ¸ch´etá%0|xo•Î†—:¹g¾´Ù"@÷`÷9mÖ¦®?Ÿd£¼s{hèÚ4€Ûø!Þ}ìP Ú ¡å^²> 8Txšm‚¿fø M7@MüÛ|(#M|´^~ŒŽÅ:S£>Švo+uý¥w€ðÉ£ÍxgY…¤ci.ÄìŽéfµÔ–™´¥~˜qÂ8zØĘÎüˆ³Â‡lÝ+ÿÑã¹¾«ìÞëÁQõ`º§f—‰<Ìnë½µ¼ˆB¡ YfiÇÈ—Ë$β=4…WC 1)~.Ó L ?ãhÄGÓ6-w f7b ÚPÐ5íÆ2)—$c‡×QatÐ;ÄÅQË€#aUÌ`× ›‡ªèú=‘f±H "ÛÕIJ—‚ZÚa7î ŠE#wzV?ñ9ýп%¾ƒ3…[ù¥5¨4‹º!þ§Šý©.7Ä<'™àƒÂF–«å‡Æ<»I‚8R¢ü'…?Å9Rñ¤ºj¥\N¶¨‰*¥aä·ËE"ÁÄÌÛ¤ëÅ6Õ—U“7Ä.ªïõ©ð`K"½²z Ý÷XIÂ#eÓ5†Ú´0Û¢ûÔÜñÉ™éQÜ 2*Bdf+Ñp.í† Ce¿ÞµûR1ì¼êˆb‰pÈó¶i#ZšLþþ|~n˜fB¹%W9aß`Z6³(À„²ÄK‡ë¼ÃAÅW.®œ5þj ¢iˆgâ‘[Š~“ìÇr:x&þ»<¾}‚îG`—•¿!y—=?”ÖÛ[ÞFÄЩò‡ÜVŒ¤qøãÁáH–ÂÞ qóÛVúV\E‘8ßþmMß$ðEìÂáE„øõäîFKÞ4Q/Œ-<îúW'²b¨. >}ÛfÝø%7-nÓê‰ê~P‚(œið°A³×Ð'ýåÆè¾,V“y€Ô¾ƒü™¸.óX4„=ØtMå˵JZõ[5°NÔº#2:"²"«È©YUùÈáæ³½Æv؈ÀRÎE¾¤¹Ã9²ùmèé°éÒáג™—»–"ÝŸ3å"lÙÅ¡Mµ$G¬ƒäâ-ZØúI¾ÔéCp—‹ïnŸ‡ r[ÖçD•Ý Ëêé…ÍôwlÃ"Â], ÞݬË&!Ðo6"àÆb/¬½Õ墘]! ñ¥_7§á<‰Põ ùÄJN|Z 1;¹¨²ƒèv÷ÄT&G¥¤¬ÍÛiÒðƯÁ·ÝŽÃ1æ‘ÔMw¼Û=}•¬ŠŠªK"8P6š2Þ&êlcÖ»qT<ø­˜øHoÊ8ð_\—Ù0JÞÚóun £¥žHè²ÿÆÏßæ5=Ð5,¸Z Õô`wÃÅÖ{ ¯…Í1«œ¬–G ¢¼õý~ß]ýFΧֱbgçj½³‰Y}Uî.E}Íá3GŽ¨%èžÏ’’õòRWp ïÕÏ—#¹pÃiå³g¾„ô§»[ï­;<wÛu-I|[¤nÒqèê¤Ý]ŠòAúF&ç2hVÉ7IЋ֑SW†;‘áonæyt§½w•ÙÜÌdxw ;Ì90°WŘ{§°vÞxOm¾VD`ÇœÆ mÈך"o¨¯ø=¯°¸2‰”$á°t“¯j»¸Ò6ò&îp¬zÉ|QŽXýaÅÝ™b,3»š©d§€ÒŽþg–œ™3Ñ•ÞÚlâß5@#£löÇ… )ãÖÅ^l–Ѧj5\‹ÝB[òÝUÈY3pÒ5$;Ýì•2µ)nšÍ;¬“¼uúHTDâ¬ÜZUµg`h©AŸ4„šÌö¢G½­~s,ž'1pøØ“Æ/ë…ÜF þ[Ã? ›$pÿáO8?¿²ÿ‘ nR"·và¶Yß-qÀlµA'ëëÖR?H&eÉæÈTÑœ³ ¸G&«ª¸Î£ € Iy¸¯tH§0}¸|Ì*sb®ãv±¬NxABzã-ªœœ0%^þ™ðø0µØ16ó³ˆ|“<AÖÕ|a‘¸DÍBPUýC½jçª.lÈû^û¼`¶íl -¨hßî%Ojh©ª¨Wí¨ºÐhé sßIv·æŠ–#ÁÈxh äBdDU›EÙ’<4^Áñ^XD½d­;7³ *Ÿº¾ ÔáNNU*A»ÇX¹ÇòV.ÏÛF…Êl5(î†ò•´ ÉÚÉíGÞŽb[¿GmÚ|,q¶m@Â÷aÑ‚vÄ>5dô»f¸qr"©Pß 4¸ñ~âí–׶Ûl”[p]MhëØÉ w†þ öM(oaÚÏ%B•©ÂŠD)?/äæZ¡J—z#JâÑjñ­ø1 ¶wÓ jwÇì•T¥¦L¶¶…Ôs_Ûe»ãÔJ»ª:¬¨i3”¶H˜Òîû£¸«Ñtßmaetk~]‡çK¹M„@p|œ@îÙoícƒ8ÔØ„pÚFFÊÚ¯Íãb‹Ê×بWÉQùÇ’€vÜüì%>9=‹&¸¢À_¿²”òFÊB´Ðâ×wÒÍ;Ü¢Eš’,"uW%M±<u eÇ;Ãuy”⢲¹hu‚¦à+C xËW“¤òf£ËB¸’$Ç5@Þ²8R9c°;ÕÁÓ[0Ë€/ë®wïó£³ ŒÞûˆk¾ô´žú¶æ08:Ç5ü#†šøo=2ÆZ"qH‚ÅXc¦|Ü)º¾>Û»*jG´ ¤»õkÑ«°5çÑ«ul5Ä!ì¡/4ðÔôÐÙ­ ¼ê ÏN½@Úú¾ìý2îƒÓÙ_ã_Ñ&°vh#pc ëÝ6Ô»í°QÚ÷ÅAó´ ê}™[m¦Z©5dÔ;©öÜêVíª­Us¯ìê”9…ßíPFµy·ù ©í®Ò,lG'eŠ×§¦¼š›mÝ<§åª’UïÄ‹*Ž ¡ƒp|š†—Øê*næV}ÛTù§«¶ÁÁB7"ºãî…1šcÅ{"å‘u¬˜ín¾{å=¾é –JowW Þuö„ÑÈh#ÕXÄ7ÒMÙ{Ùúæ0Ɔ<:|s«éãê Ãwxo¢O3S­Ã÷[¹øüiüÄã¿,Ìþ¶ü®È&åÅ=€Ùÿwÿë¯Í»¯Ÿîýt8|öøkˆÿòdðôsü—Oñy|›1Ղ£Tûýýþà«9ÒÀ˜h X‚Öxœ÷w½˜-†Ý$D%˜n6É Ûîr±>/òÉ؆tQÄ„1]è+ y[‡s¹ïxÁdÝpËaFö)ÄH-È.•Z7–úDÁuy)Þo`݃ÁÂœ¾ãWÊ<žÒ³ LqP†žé9«y%…ZÈY‡‚éZ.ú,F ƒ2ßC/nosk}ˆEß\$‡)Ìr~kvº1ycϳ±Ä ;¶„p:^Ï1pîŽç—dé«—š -‹ëÌÆ ³®ÐÁh÷Ô‰¢é8z¦qvDê‰í‚Í&åÀb:0œ‹ÒØDÍC—}Ö5T¼… ›“Cßh±š=ÞU•0c ßš:4†°ŠfË| ¹,ÇÕS+&­ƒäTÑýÿm6.ÊwŸðãÇ3›ý“a¸ÿ¿~öyÿÿŸ»…gS„QÏFKú…Y°‰s[‚–ƒÂÆ‘2¤ê›ísnÞ8KsHŽ ¹iXó@RªCè¹3‰™›©Þt5Ys[3›­9”$´Ä-0˜°þoŸ€°ƒqæðm¨ž8qMòÃÌùæl4µ%«<?ÊÜÆLðZù vb,R6Xéîé|`ã½KyšU ‰…‡Ì­ÂÄEÂÂ}˳ó©"À½ŸgµˆvBµY¨ÝáOnÝ~ïª[݈rSùšèvn#8áĨ”ð;tžñä¶æÖtnƒCÊlphó¦fï¾IÅœm»¬‡ÃhùxހágçØÀ' #P,AïlCŽ;ç_Zç.ô¿›4EÅ'ì ŠThÁ32 ±~ [a xÆ“Ö€€¶ü"åð9@àQ’~qT—åj2FÞK\Þ®EKk¾G$ä™#jÔéÑK\iθ§75`HTˆ‘µï(¨·´òMÜÿš-<“ü8Fo]kíh@rÞ­ÁÆ&_:H~|ôøt:LZ¦ÓC×½ô§UÒ§¨†9Ö=Ó÷MºcºÇ•†/®ì!Ò%ŽOþƒ^Þk¦Xü #­7P}º°ZB¬pùåʬَ_ë£FÖÿyñç·ë½‡Cé;,óWu›ÁdýE†´HUØr2Ö„×0fQ"umû±¡ …+­{Ñïv…z ¤â\×èÔ‹úÅy5øxÅ+ÑXH3U,“d›äU€ÏêÉåÃ’qMç@à»õ¶e“Mõ]ÛpaKÇ’æÖhÏ3½æíc ¨-~™Qèæç=çSˆ´ÎÏ¿öÜ|š™±ž¬–ÁÀÑ΄ ÊYø¸å¸)w†gu;ñ…Ù(ó«­xâP#ŽQÈ °Á"ýÝÆäƒÿ±é7”~Aò\ð ú8€£ŽÊÕl©2JÙ–`–|û<7¶ÇXë„l89_ÅýÛJ›wÁ”£Æ0;¢ âWšIt«zXÈ€¤MÂÆÆœ_V*ë…nQ‘#õ‚é‘mK„*›ºËR†V5N¢{uCÓ¶ì"…Ú"?yÖà1 ßÄ÷¹FIŒ ’`61Ç­ñ:ÉoM°Y?W7ÊYÁô¹žjD¥µ:$´¡?‡ 9Lc6vk‰h÷)ãMãh7ÄëNG‘Ø=æĶ°üšJ%FG¤šË1$íëÒcž´Ô73¡+ÃO¨é:{çÍÝ{·»cƒž«€³º¡—t|ú“x¢¬Ãgu`²~¬¡’¡gcÕ6Øby7i+|U ¦w•“fnêY ½NH÷1À›)wc…ÚµQ²x—V¨H;‰ëJÚÐ5'ضêÃF QL} È‘ðn1 a@ “÷ˆí†Á›ElO«„BŒ%¾ŠG”]{—Ãgóà^)›LìÉ­nÿ[c—¬¼ŒÇ8nW0Ýùè´œ½¥µó1X‰ ¦Ùp )ÓE¶å™q!°.ÔrX¸xñ¸ºIö¼ëá­ ½6™Ûy¤šeëÍ2p¬Vó ¥¦=ñ(¹8Lŵ!ûV“t"ù·Þÿ´¯üQ[ÒlñøÆRmíy¶ ?d-Šƒ¶éVÈÁŽ¨º:î´HÁÞªZÓ^ß9hóDò.iqè/rŒ2ËøîTK¸ˆ°:ÈZ¤ý» yW$]<¢If¶!’âîö~ÓOÓ¡Ø9L#åÚ¿Ô'zÿÿn´€;ÜñËlvUlÐ~ÿ¿¿ÿøÉc—ÿíÞÿ=Øÿ|ÿÿ)>¯ü}Zˆßúÿ†·êh¤Å·ðhПLnÕ±7åµò—v_Ý4óU1ý¢M‰ ýh 5_Éoj)¼’îäëWà„˜k )©—_U9\öb Ümð¹Þ¦ç×~Ï?‘5ä‡Ý§#†ælwñÚ]¬Pí; êú„¨GñD‹Ô %æ‹rž]€±üÀ¡IöÄ Œ­M¿H«bY‚•`’U*o¨‰”ûZh?U°¯ì½%³åÅ}­‹±¸—’0÷rŸ «Û€.øèt¸z&8ùÑw:ÂA ³ü¦J]¨%=Ã8Ö"RµÁošFƒ^oâ~V™ w#Qy†¾ÖÑáĆƒgÔ®B—ÏJÌ¡HÖ«ì«îI¥¿Ù Ü?9pÿïD ‹/nÙãקS'3è6h4%‰ÁÃÒZÍQBüñ ôo¼WÀ»wò´qF°˜­œºàËÞ#k© OçFØ+c·9Þ¯k˜~{?åù87¶Y{‘ž.Ì~ë5}¿¦ ·¯=ÿë>×C®a‘º“¯ª¤ÙIdü\;~·oÊ«çµµP\‰¸?0'èûø´7«³I1r¶òJk£…šÐäœVˆ+YžsCêX}²jƒ`mPÔ°¢S9r¾|‹Å>ÒHXŒ õõ‘Ѽ g{cåhyŒw“gy>sBÀÀxßÙŒ´J€f½‡½qip×%qfáb‹-Ë‹‹Iþ'ï}G…-h‘ÒÃ0…Q¦ðûÃ{juff~C“Ûµ’ÍÒz¢³*^šªÑ´ökxƒªÌ qP­1/æ³@¼’/ѦûGn)LQl§–0|IŠïM}ÝH8Á&¹=Ù\¿ÙûH8ÔÕ¯·'šØNaiæÚŒRÌÝA6ÑËõ¿½Ü;Ÿ_ «VŒ5aÂ*hñå<óEâÆÊìê‹ÉŠGÅfË®át:)Áù{yO9!ƒöm{ ëƒå5é3îIn@¬æœ­(WUX³o/(žü4Ÿ–‹ubª\9—¸åHºÿŸ‰%VµÈ„³ú–[>/áYÄ,€4=0¯"÷ ”®úDŸì×ïÞ¹õ§DNi*¼L„*`º“TôÊÿC-à~k(ô‡ ‚Ek®·¨éUlK-xO(ÿí§òæÎØþoS)@Tµpë.‰a†Ô`ß)ÌwGl+m¯ÐU'€mõ0í¶SɧAÂÑùßÛŽ·ÇlœøQiÃØ;DÛ®˜÷ÜwC"kÛ2ÃA³k$:r;gƦk­bG]vYV²Ù?EìšöŒŸÜ\‚$™ôU|Ÿ@.`º7Nô1£¿Ûx¬/¼^ÃÙÂöÒPG¼ûB6ÞÖx¾Úó|q^.¦¤}=_ͬS£Zx VØ÷÷Wƒ2šWSO)‹m‰ÎN¡hEcŒ1”-G—ýf €Þ!Ôaèˆ`\áÆð-ŠKF p3A¤OG¥¥ceR:ñ9^ ìûÙr™OçK=ÛvNAñì€ü =ºm¾+$^˜S¸¼µšÑħ˜­ÌŽ>Y÷ƒ%ª5bO%C¿VKVèí¡î)¨Î"Á+òÿ³÷ï}mÉÂüü Ÿbb?þ E·„r 8æ¬oÇàäøgórFÒKíŒh÷Ý÷³¿uéûôè˜ØYi7Xšé®®®î®®®® ‡x7›Š‚Eê2AÉС¡¤:ñ½È·¥|›êlœÖþÖԉъ|l¢ OTá:!n€8X£Þ¨Íz£êoAW™øª6Lˆ“KÀÅá…´˜)ELŠEýØ0q—Á Ir1‰$K­Êö*3·ã"#N4¾bäJ P=K›¥F@„šVó‘*à:Áfx¾RÊ×óâôG6U¹¥¤Ä}ž66¥û¢Uu‘¢¼"¼+m®z÷S=V·Ã¤—ç¬õô+síà_îȬw+/†bÓš¢f.W+­‹Må·a’å!›f«Ë2®n6f\ÝÌrÇ]7/Yx¬+ïSŸUªy¡Eêۣ㿨Ç/ÕÍÌOúât)‘LËîÌ6æ#¼{Ùu+ÚšJú©mZÔWêa;æqÙ=?t·Úv;½©„ 2…ÖéY.^˜†"ڦ̴9•üJ4Wáo°ÿrR U²&ÊÀ~ì¾!ûCz×B[o­u÷ïÎTÓÑ”¥«ÌV¬#CBy.¾ö’N‚›­$Ãщàf7‡¢Üh?Ö7ê:‡$åÛ5êe=1÷NaS¢"BC3c%¦áUûÌI§G×A·oCõLÒ=§†Â¢OYŠÜ»@8œùCáí ƒsf!´l\]°”À„Câmè=H³~dŠ¥•E¿…¸ìÎSCĤâV<Áïi=En ¾zYJp_ò3]þ#1þ Ë­íÍÖ¦ÿ~,忇øÓ9¯. Òš&_›hXð iÎðô@ÕÑy/Vq Ãóä&Vñ ýrëeÝ aéF½±9ÅoãßØ£¶H“À^ ËBN5ƒ¾³¼t\ùÚWzÉp{þÒsEQçËu2èâõ±©ÜcJ•ûmðûňáw^‘½Ýh(• pÝxvg1ø·wryhzù'Ïœôº“;Œ ÕÒæÏõ‡ùëøÁ|ëþ/–šäþ_à 0ú÷ÁJ&bOGYS 0!³.üÆù˜èQØaM¹O&s/$›Y¶Ñ¡Ç" >fóy,V4¾Sê=Ò§„³·B­*§¸‘¯¢ÀnÑjKYp1"YZΉdË<ˆŽ¹„…w½ À*áÏ*_é/¡Ì#•Å2 ¢R>J>8_%Cíò{š}¢,æíñ…Ш\_Æ™XÂhÖ-L”‘[Á81Ýcª[¯\ؾXªA‘e×(bšHc*‹›!ml­QPUi†’vpãM¤°"c16¹ËÓÔÃâ%C¡Ï:{Ž4º®M•Ç²HÙîÌ4Ô%ÿN`ߌO›ê Ç(US?W í 5þQYC|M%$MF‚|‚˜V*‡BËÙ6³™@¤\°eVk•€m§ÖÔ»…YCy_œÊ*•Ç%Ç› yUçs.Y«OêF‹F¾G P|­3¯Â…¹™‘!År³U ¾€`°9®+ÁbzšB¼¶ù¤'œ}ø,ÎüGþÃjÉÅ/T‰È…)£rt+ ””s@ÐÀøH¨¬Ô©G£ôÜŒ%=qÔ ˜õ­IèšÔ°=‡í˃уF©4…"rü.$[“닼£ñßIìµ¢ª«½—qÿ>8ï¥Ñ¨¢AÉföPîP„•(v »]¹upËV³€¿ 7@¢oºèq¬X¿—Æh–ºçÔ±nµÍšžh²¯æ¯§ªçC hæÔ[`ê%Ó?iâO¾á‰ïØ3Í9ï_ÈC‘wâó±8ó?øg>›wê;MÛsßnyîÉ/`ÊÙoéâ¦O~®Y2û?X³ÿóÿ~7æ¥gðÒ3x^OÏ¥ÃïÒáW±yTÎðíÔI@v-±/GÄ ·f>S÷P²$Œ²þ£Gìók\†$¯`šázj´#Ó4M!I§æÕ".sÊ–Êb4R÷G·'‘ñ5PèÂZ- ßeI]2z ò胋¸¢}¡'xŽmƒœ<öV¾8$çæaâg[°V—'JöT:)îò>ÊɬŒñ_øŽ2äé ËlŸ5ëU‹mYË•ÓiýŸÒúqpÙžTñ»Éô›0tn;üêEÙÅý)ÇÑ£™TüÖ$ÀJ¡÷Ó:¢ŽúòcÍ…_Œ”±_í^³N+þ¡°É:ÍÿÌÙ'<*Àª”£] ~ð@AÃõðVžŸx˜ l1W1éhÄô·5ŸÃ^Ô‰+ÈÔÖŒöÑØ_–_u$q Uj5£gÎ ž¸+ø7É|=ëwÎÄB¹†EùŸ½¯âžUüÁ¿Šõ†2k««½â*V¯¾Ð2v‘œ¹Š?¸«øƒ¹ŠËzb­£z=ˆaûÅÄâBþ ²(¾æœWüã1e)ð,å¾¥üÁ^ÊÔµ¬ŽÔîØÝa5OìÕüV³‚­¾{×ó/zÆ‚þ Ä…½N'ͺ" N…ßEœÂ®Ÿ%q.m,,ÍŒÔÿŠ‹Sg¬Ëbº"çR «g±pý–ú_ãJGñKGëxiðKöoć] €ÿuµ±,}×—¾ëKßõ¥ïúÒw}黾ô]—Ôÿ³úøLõÿÀ$=ÏÒ›»z€L÷ÿXolIÿ_Ìÿ±Ý„òÛÍ¥ÿïƒ|Ï¢£q ‚DXµê­zãyrżšm˜Éè3¬Ín ÔÛy‰ˆÉä÷9£²ÏàŒ6(ìÒ}NL¦a&û3ëã÷ù0}DðÓpjÍá*âíâlü´f¶–ËœN&Eg´àl2_Ç Î ø)‡oÑ'dŠëö çdšÏ‡Õ à:¯“K>.³AïK­P_ò{Çܾˆíû\Í>kõ9¦=U¿&;÷ä¶æíŠÖ_{² y»êÉ4;÷dóö½.[63òaÜIÎ SY·²ù/l\”T\JŸÌÉ9-''õÆ5”­™NÐ ØLë-ª“¡°(Mµ1kª¨ÌY¶±´;GíÕäŽ^ „Cz5x0«+g(˜û²]ŸÍª-SêC’Úðš3š%`B0“k‹][Ú'ÈÎ]3æ^/W‘¡Í:Q ?rÊhÜ1wÂyž]F¹EDÒ¬Áû\Õ«Ÿ‰Š°ìÓ‘š04jËvµ•l§öó8m‡ô¼Tm°Ù†Ú©Í’Šiêí‚`î}}™t.ƒkTód°ê´ýæ8ï`€ëñЈW}ŸDÈÕ± ž†¦bÏÑK(˜f^"9@ìvPR”'ý±*‘w:n÷âCìTEÞ*;›rpÆ¿B°ü¹¢“ª!~Ž'·µ<°24`7¾œ¿âò±úT¾a óXüqðFìtNÖ¸*‹NaçÂ/Lxƒáµ¿€‹²‹qU 5¹tñ‚±ÚÇô&¨ÀÙ8G^ b,Öáì…ò°Z7™‚™T`—5±" ‹°,f…³u^O¦“ÈÚÄcú!7 mμGÁ»ýŠx]õ›VÕÝG6šÁ‹g`ÃjþHƒêVK|eÉâèF°c*ÈE¦æf!5÷’ sŽHKU€pªT u?ê\"»ùç¿VWE0%‚¶¼3žŠ©ô8x'ª ÖÓ¬&£­ãemÈk?~ȃhañQü8Źm€ˆ•IHó‰Ì*Vl“‡¯WÒ¬hÇcnårÙÇÁs1Ñ„ôl÷&^2 ®ÊQZšùq”õ<Ö³c³²Ú¡M<5^¢îYØyĦ³´v »ÓX ´…ái kßêfθgÀ·«»6ÝŠCa:­O§É—ô'šêÿsߌîžþe–ÿÏæFCûÿ´š˜ÿe£ÙXúÿ<Äg¦ÿhç˜Ç«ó»üàüùêóÂÌÈZÂ2äeu1qÀìò_o~:†˜™ÊÝž%¾‰ü1óPvéÄóå·PR:Y]xߘÐC—ÐŒPÔ˜ë#—•UØ©&‹®ÒmKèÓ}ŽÔ^¡Ú94Ž¬Ì¦S ÚÝ›mávŽâhOhä,ÜUú‚•9äK¥Ÿ±]X°ÄÈ:³1ã4îÉ¢RF|>Í©‹³žÎè<²ýéÙfîœFFà93Œukk͸II¾7 «öݪæªX¯Ø¬^š¾æ!_pó’n‘ TBE j ÚuüÔ3ïŸ ÷:ÚŒL ææAœyµÃúnßÍ¥ä¶7J¯‚œØ^L+1eX|Å/EÊUÿÛë,î²i“¿€½jÚ%öÞ•w9² Wgm.U`|΄³„šB&)¦únŵãêué,0$ ‡™ö «ϧcϽ#¬ÌÞ‰xUýc;{©;…¦órÁÏ Þ|®Ø9­ú©¾Ø·÷ÅžVõ¯á‹-wÇoß[ödq_ìMÛ{ó¯èW·¢‰$C!»–7'—1´užŽ3ÝO>'‘ñëO£0+zi: :Ñ8÷å¯Ê8c—X¬‚»I )Éw±²<×ö#áïcaY«Pr“I7²¿H:4Aó¨nö&ÁË(§8¼f7ãÕç•Év|UÕaUþk¸*~õ.ˆ8n•04HÅú?8„ÅÊį¿¦ó/ßw…Ó@ÁWð;ƃŠ.faÕ™Âå©Bdà  ó#A©wzi›Cç>?SÆÝŠÁ]ãÍTÅ9"á¥Y'ËKá(XÒ¶$ 7Œ_±Ñn’ã²%k&m~mŸ€ÐU È|‘,*÷2ùsÇw~ÓÛ"@Q!ë+.PRx®… £#%ÔæxŒÿ-00Г«à›†¢Ñ½9¦ÑQð¡ýÑJ'G¹OšY¥è“¶€í §Ù’Šrrò°*ìï[œ¶J`éuOÒa ÿ}–ŽFi¿p†—v…T\ջˬ—0¬©W”Mg¯yß4¿k“.ö&@ƒtñz`&¦Ì)%3.~ Ž¿tZ¼¾¥ÓâÒiqé´¸À|Y:-~eN‹ö}_N‹¶z§E½ûrZœ½ûvZ,Ês¨¿ÿd§Å»ãüoà´(aÏ®ŽÈ4JÆ‘”ƒî­m¯°zü-Ž‡xú¡ƒÐud8+Íåœ`’G8·ØùµäØÙ™¸Ìj·‹Ü¡œv”OÞ`Ï3ÆZ5{3-ªL‰ü4 º ÜsÃà^/Ø;sQGèÒÜЛ´OEE¼%„—>PÑ[x¡ªC,Î’¹QñÛëXfSiéÁj#g]$ÚóÀÑE'AAYiÏ}YæžÿJ†AZÓBféS»ô©]úÔº¬Ïõ©µ®àŠ>µ®îKpÍ…ÆÑœë¼cVøS þ/f›Âd„Õõ1˜ƒÎÖƒ£‹AJ³ !û@‘HÙ¢†c)ïgÿ’^ÀÓ·0Yj¾]L–®Þ‘­N ¸8ëÄE¬œ¹NVK§è¥SôÒ)úVNÑf¢Ës(”^“º#æû ÿmê#ô0ËzSGÛgÀQt“ oQif.‹*y ',n«ÂU\wGø&«¦Â„7ö¼Šº- ëβB7ɇ½ˆ|°FÔFËbOn³J¿‡N ³ˆ-”åY¯—"䑬H`XGçì@G×ö¹Ó]YK/?¾içÅT³—ÑàQížA¢xdÚWXZÑȃ~L©G#G.PæÕx«Í]È€x'™FÚá ¸Þe=)"Ô 4ºFû\b mT±ÄÁU’'íž2ÊŽ.@±q$Ê8í™dpªâ ÊSàZõº°ª}lNΤGŒn¢²ðkeÃ)Ó´]8±­hñ µxRÜÉ4m(¶iÎiÅ »ì\«¢®‹ó”ïâp[x?[¹Q°úœµ3Qû0 µ™ïo-(ÆÖâÑ, ÍÍŠ±ùWŠaÚIoÝ.(Æ­(Ç ^ÚÝÎÿråÎëüÏöضuv(¡„ßT¾Æûþøý¿eÈ‹ƒ$ê¥_6ÿcc}½±þÛ›­íÍfsk}›ò?®o-ý¿â ˜eÁœìx)›•Ï½ÛžäáÍ_uú)Ed–—ËZ}W»·´8)ÑÉ#5p¢¿áL% •áx€'€a”pJïóø—÷òá2Ýd—æ‚+3—š”–z ·e±¼ï×ey°‰ðXkPEå B)Þá#yÅvj/–£§&e¨j©›ƒY™|NÚm»/·Æñrp"6é¾^¥Ÿc öCÅ(H»á(*'Tø•c’){½]á  ‡Q÷FíðrÊœ"é»çù7}SwŠÂÍçkm$Œ`Q]EÊx!t=~‡£h|EÉÊP-Ãk }®EE4—çigœ‹¬M‡Xa^È i–w“CÓBzngµLâô)ØU¥CÌR½Gƒÿ‹Êt’{0½y3ùèöçi*Á|–¨VÞib›½¿Ôïbå¸MÿÞÒÛÝ?^ù%äûýè3Cþk567ùo«±±Œÿó Œ–¥Ä/Ò"+xâí)PO’¢¸¿¾*ñ‹ƒGh™ ÓñwšàE…<‚©yg ^*\ÅTÁ«à'm5R*T5ï.O}e¢Ã—Û€™’³%z-Û›­©*Yî´ÅÿOúñ~:¦ywÀôý¿µ½±¹åîÿ­¥þçA>°ÿdùNð_)úu öÁÙá¯ÐåàUçy”õ"´`2@Ni0Õ¯I.¿¢ïÃìà€ÆäòÇ|ôèÑûáZ7½F¿ *ǬvϬJØýÖ{ñÝ2Ãþ“Mäý#É2ï‡Ô„eYzÍñ‚øž9Àæ….¥T¦Ë_”8ȹRÞïðºPX‚ j™î]Ήƣ4‹‡°û²Ó¤¿äƪ¥Ê›a²v*ÕDƒ!_€CÖØQmPØÅë(ÉBë e—qÖÈ^nÔBn®P¬Ý„f8@.Æ[¼3 Êh‰¾‚É@DÁ,Y‚Š scâgèÅJ6©œMšA¬BW¿žè„ˆãB å É„®– ¡ì¼Ç©ésƆq7TÂÚ¹uu aHÂá¾’[¡cØ^WÊJ‹htJwobÅYæºZÃêøG^iI ôÒ9½ Ÿ¼ØyòjçÉ1:÷â›^Ú‰zô à'!É€½§éï}J„|×îöé­˜Á­BA>68Y,Ep-Á(Ž™m1S†*Ì»4”h ò/9!»¼’*ûߎ#.û>Zþ °rœñs'’sã+F0änyûhI‚ÕÛ1»vƒ 0&ÒbU©'Õºa-¡øÄ©3#dFÙ×=ÀÕbÐÌ3ŽºèêF8Cõ¨ã32ºaÁQÆÛ€ünv+v즦}­;= åíPºHá§ÐÝZPÄM÷€®»ùy·UÃø2»*Ô® ÿ4Ç¥sKFrÚmζ° ;«§«6÷€÷;rCpBA3£œ Nƒ^À»=|úŒò¥û)ŽU×A“öÔOIôýhpÁY·b„»Ttܪ‰€_âÇLÊ·ª¥lù£¿Ø° Ëúh ^÷Ór[Õ`ïÄ„%t{Eoç¢ú*ig÷ÂO=»ŒC¿f9ýr  –~úÓÛ¹èÇ€¾JúÙ½ðÓÏ.ãЯUN?Þ=Γ¸×-YÒF #þ×8'„Cz]ÜmœªÏ„5ž¢"Ì.rÆÏ«µª­Ë¢fžc ƒö(Ÿ$] ‚£sA1´ À™AáœËÖhÓÚ×·h}”áWsц‹©c–­„?ËZñ/0 `Òô¢~»2m\NA,jÌ>w}€v°V2R]Ó³ ®Ñ|¨jçAûMj—fýí/ÜÜf¯)›åytwµ¹ÙžoÔîÀôŠ¤™Â÷Ì‘jÚãô8Ÿ™iãT¢V1ÎâÎȦcøó;² A–còíÑG̾2ªç¨¥tðMO.ÊÇ¢ñ´¾.ÀÓ­9èë4=ûyvÐÙª&î¶àteܸ 6‹S‘Š(Èg¥ÐCÿ¸ø‚nŸÐJLEÅ'FË1U£d¦†·[ÎPíÆä—I¯lWvΕ®jÊu×ÝÚõw_±ß8ð‚²å"Ït”»©Âõh”&Àû£•¹é´<•ÎÏn9O¶¦S)y âëò0V2ñØÏ;‹ÿ®’3¯­à{ÀJ>ÔpF«hˆßK >Ó¢áT4 ˜kÔ‰] Iàw,ËkÛ`ªŠzα^œš³–ƒ²Ô‡ïêz”¬TO²bÕ?¶Vn±²ýÂÜ}Üþl0uïøàgžQŒŽuú]5¥Å¯%¯bÚÌcR’ò¸_+Ö~¤¸+d!s8 8I·þ”A™š€ë϶ֿÿO©ÿÇóñ “ß‹ûç ÿfc½±ýÛÛ[ÍÍÍuxÞÜÜÚZú<Èçqð\DGÎÉä·GEŽ(ÐöDØóâ P»f±ã ²ŠË×wLäÓZ#ØòÈ®On¸j“Áp&W)ÎÅÍÆêY6Ï1Yµ€Cñì1ËQ± ý­ºœÐ"ʽ´õªõXÔ¡gi¯K½ ߣBMãýßÆPÃÄÝU `ŸŒ˜í ©f¹g´Ìźý£;kã§GØ\8éwCg ÿðõ¬á^& Œè5jv*ü»ÕeIß;íu½:¹âVÂnXåE•8,æœõú¢ΊªM¨“ÌœQr`Àq ëùýú9€}\r3Yäç]Ì<ýóÔžíê\ä/ƒQÜq±LB|Ýïò|Är5&R ),æ¼¥P¨_8ÃD¡àíyÀäÅqÖé&W•Î *¸Õ;‘Ž³mLéngÜ£Dí 4clƒ‹1&à‚²G',J·—×(ÏÇ}Üi)œvÄ‘µ)2·°õ”©Ÿ §*Éq3ÒÎÝÔøªASñ|­µóJ„GmüÒÆcv£”˜µàq/‰xkBË«!©}Qo£‚k‚ÿâ2tú@„ÆœY@"(@üLÂo‚²”~oÓaL¦˜£êŽŽŽÂœÕT"*0ÆûäF"Úoš›?¶`zl¼(£ .7Àc a,b´û*írʳ,%ùåÚœÌë5¦Tf%(lo¶?5Zó¢°º¢H[!ºÃ0B^¢¢‡ Êà'BÁµä4ºj-G&ïã`¯K)žíÓcw95WíQÑsc}kû%´HåÖÄÄÞÆRÔÜaü%-H|Sa®´ü¼{» 6 —imoB}1™~ªŠŽÛ­Ÿ¶··_z&hK¬ë­ÆöÖËÀæÆVó¥ÒÆ@¯"JÍ @§Ùò#ÝD²lKõµPÉß_×l •ux)¾J\~š…K•\6JM{¾uÒLzV«ÈºBr6YÙW¿ ÿ‹¸s«õÓOÍ­ÆK€VrîX…õ­f«ÕœsAb1XpÌê0‰Q¥ŠïŸ[?nnýô²° °À ¼^ÿquæsþ6Î61&N¡‚I Seuå|ܽˆ»ª€S‚fSÓ\#^XŸ¶gÀ‚k]¬ýÀcž¥0‹oˆÏ›p«ª—7zq¸m`$Íg*?ÑP¡y\bH‚&ðãæk;Ž,H,’uî}_Aþ±Á·66¶¹~תϑãÔ‚>¿ƒ‡ÍfUì|\ûM¼b¾Q=h2êÿ€7ı_Ý©q1œ.‡^ÁXì¿EïÈe".¨…pÞï‹ß}qWü–ºGäßœl>ö‹€õuBBЪ)«W&@¬>ô­Û[¹Õ38ªûÎ×uãHª_|GoDmÏÑ C\§B%÷¿@]!éR‹¡TCâ_¡ó14Z¡„ðŸ;ôö .öG®“lçÔ¤‰xÏERë?[òÍ~Šú?"à~tø™ÿ ^·0þËÆæzk»…±`š›Ëøoôyø©„ ÞŽÛ= ÞˤrÊ?Ä'ù¥ÊãL£„x(|Ÿ£÷])üG cs‰¤AK¦d“ kx¹Z‰Fˆ|†°8fYpžxs‘é„LƒGÇ0PãÏN^c«Ï¡Ù½àíÞ»“£ý÷/÷Þoß¿{ûæø0@üŽŽ÷_î½:<Àpf¯Öë7€ño‡¯ã{/Q‰ˆmóÔ ‚g‡8Õ^í={yÈ°±‹èÝáþ ñßt h½¬Ço÷ðËáÿB7öÞ}¨!Aöß¼>>üï÷P^{¯ö~…^Ulr0Z'š D ûþûw‡¯Õ7ÏÛ÷ÏŽOŽNÞŸ¿¾ysðßýv´xüÁË7Ç’\ïkÐÖÉ^Ê ¡þ½?>"º½>9|÷î=-ñjðâÍï@Àw*ß¹°û@Ÿ7ï> H‚Zðû‹CxCþ:À^ž¼ÛCúŸ¼;Ú?1ËA£'oÞQu·ƒ×‡¿¾<úõðõþ!xƒ~?:>¬Â¨c‹Mÿ¾í¾'à(r¢4Qå<­ÑˆGσ½ƒßŽ°¢‡ÌÚÎ^ÆÑùkh9™@~Ê8ª<@\Ó†h!M `!nuX;Dh¡z:´7‘–ýŸÿÒfŠQ·ËíH+RƆƒöYq_%¼Ï×hAŒq€0ó£2)殳L4ö&éÌ›çñ‡ïÃàîЗÐD¢F–Θ”„ÿSÆä]šŽÊŠ}6Ýñ ÿ= ™è=~Ö÷Ûõ ¡†øï£4kXÛ1zrÀŸ?wˆ“Ú]ÅîNÅ)]½§]¼ ¦­³lO:ŽÁ ¯rjhàl¡À’Üʹ£Îgá Jv0ÉÃ{~Ž'yʼnä‰c\¨£G»øjÕÓœá{:ws¦¿ªÓœùÊnn±~y{TÞ—ÅzáÅ¿s9Šh@Y´ñÖo}'x<ª?é>B¿8· ËJÊÈö©ø¼Šé*+Isõ~NF÷´á‹1œR|ûb^G§Y§ì `˜{âAÊ2Be=Ò³u¢ìyí¨üÌ“÷—]åB¤Fœ-q/ùÝ‘¼€ÃÞ°­—œþF‡£‘8¬˜Û~èÖ|7¨XÀv½ ·jÕC³%/±ÉZÉ·Ç*Ëf„OÒqN$îãBhE[~=6>®5OOa†O OÉ#aTvÀ^ã ‰h•K µZœW@ƒ«9aÅjSš{Ò Ÿ,²•tøÞEk2Ðâ•qî G ^„bµ ×T,ùVh/^ gÅ⵪5µkÊ^AC)U?Óò¤*Ïfí¹æîŽ_Åì’2ñrnMý<ÀÜÒ§‹ùúx.°6ƒ‰§gTÂI³ÝðÚm^œ®íoÍ? œÚ"qTr7A:‰Œ”ÙvfíFúK“Jò5ú8]Èm_âŽ%5€²ÃkEKs7ÔreÁ1ùGܹ¤¸‰ú•5RìÚÖ‹GRXýßå¦Ý8;Ž{Švr×áy.“!VªšŠè«C%á–r{ô’¢H€¥ì9çáú0Ê\Qfé®``ò"iõpØu SÞò6²çø® „'D”M˜³ñƒ‘Œ( ºÅþÑ#åÁ7uìŒqòº šäö-=¢q­©Þ…Æé ŒçJÂ38¢‰‰'2û“ä0eGèîX…÷®úgý«Ñ_]A/†—ñà‚¼|ý#iy’˜8T¤hª F'ðE{UkLÙs ›ü™%¸ ŒÝ$Ö½•.Ó"µ‚·þÕÉ€rÅk¸† Hly;“²ˆ‚¢ØÎ0$… o?É挻êL^n ¸+©8‹­P&ËÁñö¬9Ooð€ ôc0'Q^ u¼<ÉuwV¨¯œfÝáëÏÄÔ6Ęì~P,M‹³Æ@ Hœ°0s ÷ ÎÃÕ•ÇE\_$ãkÎOaF¹X+’  £0Œ.¬Q §°6mÖk'è CÈߤãVÑÔøwÜoÇYM¼fô†®`"hû<ÎbX«draÞ¹¸h± öaÙ9òSaVќг|'è£}i;SBrk; NDRèN‹Þ£§k¡®àT›á”žÓÅQÎØ• ú±Ò-ÜØg”[2;61¿n[¦>2UFZUÄïH›%OÇÍ‚©“öR’w°Ù}üÓZŠÆ½Ñ0æÜ_&X’•J¤!Ã3¶KH¤ÐLV|uJp¯ysÖ˜»òè³ï-™9 +EýWMIꪞê$3–Œ¡rÁ<·¢·•±ð0‡ÌVkÉwe`,D‹³/3 ö—™ ã_ï‰9»Í…·¿[ïäáŠÝyòã§0Ýëî —±sß‹qˆo‡Š3…›2\*J]¡²ô'f:zÖb<ÄX ™K;üªY#¯Ê°«…Ú°{r"”rE:Täĺ=wpÒ´,Þò]‚ÌêR ñâ |Cs[X®KÏ°À“•È“ñ©HqŽu®…C£[öc(cë²—¥e¹Ã–>·Ð8Oé» ÍYÐìFt´êâÎÀ;ô‹ §=ç½hô0ÃxÏx/CW6h®ªâ.Ã& ;x¥ãך5•[°m}CÛâXý’¾T_òÆÀÕàqA‘zïJÔ/¤Äik«“B†zѳõy5bñÍf¨©™³TPÞ:¨®5»Ž°5°³4fREö€Ú-Ù›¤¨Ù ´\®lz‹A/ˆÝ¦Ýƒžt¶bíî 5ouèä؉ð»'ÑŒ¯ô,„E¸. æ7z¶¹w Géa ã¬Üçévðœ<‹ðHn¥3§49¬<†í‚PS8‚õ-=ÅÛ,ÎsΖ$„”ËTÌ¿!¾šŽ•wIˆºéÅE/Æ Ö’;‘Ù3¥sE’+ƒ×Žpg·4ƒ×Ô@ ÄðÌtùãƒA åGiÐÇd¥yÚ‡?$ƒ±§\Ò‰œsÎíE¨2…ÏA:qãîš“^åx£¿ËZžÝFMœÊó!EŸZ7fµ}(Ü pçXÙâ£<š¢ŒsL}P!“¼œRB—¾…ÅJátíÕ3 HIi 4òFëÇÂÔ·Ÿ (3mz.ÕM²uF?ã´‡ž$ "õ¤Måz x¯$|m,¼éhȲ×ñ¢l+±Z]F#˜ê½á%Œ…`û­,ÐÊÊ¡‰aåXº]PwÚ)ÔVÁæ”wTs?6xáî-8aðX¦5!W´Û,©êƒÚª‰1ÅÅÃi~w›î9Å—dXU³ö Ï 923‹ÈÉmÆb'syê´Þ.¦Íçü}FÊ1”5½f&sß .aP¥Hefuf;JýçmëíÝ,猪ý ˜‡5Tjo_ÎQ¯dO5ûo+6åg‘c ª3ÏqЭôxŽƒZÓ9¨¡@áÕ¦õ„QAB2@N;E>Ø´&?ûéóÚ«]˜¢û2JSCÃ`KTSuŠ3pW©žîª-=ÜkTKèl«·âx¼o‰cžå*3Õ Ê){ËÁ•2`:Ú9_gô¹¾¨BRb€}¶/XcÑÒ\"–£÷•ýÔ¸tý‹î#ËMåkÝTŠ[ÀÝUt}mtXâ¡VµÅWæX×eLÊN3d«ß¾ÔÂÖ<æ«ÝJÝ¥­eIf-ÚâD“ÇÁ¹gRyû3&Í­uýFÿÊ'’Oo0“9-ΘnÔe# ³…UÌ’iL}!áÖ¸ô6FX|8“”„»or\•ky)Ÿ­~\? ~†ŠÞôçí-³–ümŽ8Å»¨)”{+šÅQøþÃp¯p¼ì+¯\*(†a¯6»¹|©;°â=Ó­L³ó¥1 ˜Ç²W"ó/—–›òºfì‰/|³7§ÝºÄgŽ‹8¿uñ9ðKªLÉ窓ìwoá€~kíªÇËÇì-û;óîÅgŒó¤×Û 1ÿOñ6ÉÖ,[p\›-]I™·Ä]ád¥¶—Ú£8o§y$Ý£òßÚÆX¦#Y|í8¯ªýÔíáw»²tÁ+³´‚ÿDà-^·l†|rA‘ä¿Ý‘¶$›¯se÷^÷€'M }L3ݳxôå ±fÓbh+o¥é‘¼ ½ Â[M](\õ¹»4ò¥é(®õ⫸gùuÊ]}Л`ŒÁkŽ{“£Ãp4¤8 ˆ+`µÇ˜X/¤TŒU[=G+ÏÔÁø0ºLaIæ)_g¡å\€ë¦ƒpÄq 1KÐ0îÀz :‘ØU4ÖvÈ‚i'w™`]–-×݉’øužC€Œ)êÎpÎÎHê?;ëGÉàì,²ZìwrQ—c'Ÿ%cÁ @sùTÔ¨’QD\s„â~*Y°µ¿ÍŠgK5F¤]KäM.²% _¥ç¦‘-º›+dahŽÑ®„§'í­û ON¢…¡9j_ OM’…êõ„£ÿ‡ôñS:DÂb{àÇš-1ô̘1ê8*IíÛú1ú™ÿ$Æw1‚ºÇÙ&>÷?éÄç~çžøÜûŸ‚ú0¡@'$çý_›ÅKwü-霈óœëíy6­ÒÛ4÷ÕiêXˆOŽâ¾^,•äi³ú}åø[õÜ+ˆ¥£l¨ó¼L2ßÊÁvñªË¸ÃrÅ<:B<žtÁRoO·6^.>q+l÷Æ‹›5Ýë☹(lÎe‡Ÿ}Ç °áÇGýæ}SÿÞè5­V•œ¾ÈÞÌÊa þ’#U,2Ž÷7#î—GÞc¼WnÈSºƒDWøÊFŸ²…NÅ™–Z6okÂ=<ˆsˆç\Öe!HM%§ <Š…þ³Â°ê›¼…ÅŠð Dj:F·Ÿ–sr¥ù؇…qpýC`Œñ\$½óòš³;³g$ö뛜‡„ø¬Ù·ï\²¼¯›åY[å)¤Ao¡­í+à~³·îåníùÜóÔÚÒ<‡òXa9Œ.ª§°­,î§W‹™| 5ð¢ÕiùgðÃW¦s F¿E™ï¾ƒTÑÖ%‡ýú¥Þ£Œi$óaXƒ'Û=¾Íèùfƒxà‘æñãAw&‹Ðݺ{°?’YÐI;8C{BIHnñ*Ê‚¥;;@÷/?? ^À“^œùfÁ~ ?‘kòcìhé‡;Í?žD—(ZUT?n8–9-wù‰\à­§ÒÃ|6ήrÛ;ÂæÖø•¯ù—ZL)Ú5Ê U'«ÃU‰ÅWÏÎDêW´´Âÿ{ÔÝ Üñ¯]Íz “ç¶~hüøCk=hnî4ÖwÖ7¢Kpx3 þoH¹4±"e–èRí<çh ˆ©'ñue¿¼KÛÁïõßëÁ‹4=‘_2΃g¿Õ‚æO?ýHå^™>ë;ôè¿êÁï°”â~ðª¼Nr€ûÙHŠìgÌ^“n/¹D£(ØaNǵÐô9“ð^o©Ù-êQʬOM°lã ‘j<=  ž\œ„X%D2§9O€Š,¿ <_$Wñ€=ÊÛ1Ùü Ь0À‹…j!pÿb4ã‰úÛæ@Éù'XFÒM2`Œi6Y£äUŒQãuü:Ž@bÅq^t2bÌ+Ú›Ô(ô–b>3PíñÅÚyrç? 1Õü{G#îrlûç¬~‰£ñÿâq–Óè©ôÉ÷ü‘¹HÓ¼v>è#&µQÒŒ¥5š/hÉL1A+õ뛀ÃÑa1Æ€ø˜­¤åXi/Èî.[Àæyt!¦±,UºO‘aÐî# ³·´\Ÿ¡R,Ó]üS’gùnåÑ›¿=ª‰ôi]3R…V™y'è{³Ûܬᗠ|‘U¢Î(¹Òî ]'­‰°w·Ö-Y¼óWA•Gáë€ê… Ï•ÝÅtøùÃ796ê”Ì ¼†1`#éð{7î8í¹ƒøšKÁñUÔR‹*¤9eg¸î¢a‡U Jé*ç‚ aa!¾¹Ñ•Òõ.aAC=4ojìæE`'Q¶4f”YÖ|Ta¶QÓ¼Uü|áŸdMËT|Š™¸c".|YXsÆõ„èîV) ¦¡­À¬kÿí³VVîZDŽÓrW=¨Òósà»öMvw ÁŸ§£÷\Ø1x8öŠˆÅ"¿` –ÝVVÚzÖÙú4‡gDH¢›îî¢IÖŠÕØSUz¾fW0ERw@ÖþIÕŒ§Ô'šÂul®mbÐfÚ‡¦ËŸµ‰¶‹…\E$ÎM$ΉóH4ç@âÜ‹NaÜÅ'ÐÈÈhwDÍŽt«­[‘ÿ|TÚqÙêÀì-wV·º¾p«ç*6Ó;²wý%¬ôT¨ó51–îÛé“vtu¥ÝÞ¥zƆҖ…á¬ïñäW ßü-¬É„Û,³¤zN¹=´jã!ófs1 e^ù袡ø/ò³••Àó7‚’·0ý¹ò©a(—º£'‚Í+x…¡¥L)®ÝK;ŸõŒ%NØ;ÈÍŽ–¶aÑíz¡6uâVHØâ~_î¨"wt#QÖ֣£åÈ<›ÍâxçwW>e”6÷Ú Ñh¸Ä’ãF%ç°{ñ¹/æ?I6&‡¶JCB,°84š…ÑJR„›þ´ ª© w]EiúÉŽvývú,½ñS—3Sá2i»×=»ÂH¢sZ®8-¤¯g<ŽÍ² /A?S^/Q>•5­µ®€U@QQDFì§,ˆÆ#–0ÉåNè¾='íaÒÞŽê<ÛË/¬^3šN³;·$ÎÃòÑeNÀûi7†§é@M€n»×éÁ6≌ I s¯ ú0÷Y&RvýQ€žcNŸS g¾iõœÊ:sê¼|NÙÂÀâSJÖÿs aßj6•PDåžÐI"èÙSK9„œFÇ@ ·¤â—š† ü¾Ø!œ—ÊÆçž½TzGø•+Ò˜39%n´ýíà9ŒF—õ$‡â•B c, oþ6ít Ë½Ý{wr´÷R½V8™d(GŠŸíî†áÜ-PêDÝlg±ÞÕY¦œY½ˆÂŠm)b¤æ•5ê`¼ù[ѤØ!Ç5´ |΃KÎä˜ †ã§/ º¨ÒCÅØuçMè̦‡YÚ‰ãn=8c<ÇÎÌS 7ÎK¥´¶²E1W"Hæ‰Z‹²|Ç(ŽÅÆ”­œ8C*½P# OwÔ¤—²tÜ…c¤~Ø ÍŽ¢‘)v›tb]8{Çɺ„¶Ý@Sé|ÀGI—3ÎÖ®kW°È¸JÚË+ôáfû`¢ ‘Û ÓsúJÛ|7@hÚ(&×56ûqd<ì¡*7Î YèãJG¸ü­Pc»×&ééd苼ºiÔàEW?›ÐNekÉÅ–‚oBQ®C©(‘j×—ÈœéçÏ¢&©ä溟wé N‘±UfUý¼»{… <éñ/ÌR }Ò)æF¥º¢fu™;•Q¡¿OµÎúƒ÷öÔ];U‡žƒ4¢ÄÍSIcüíЙ9¾\ö¤É R‡œø@J…&TñFrT‘oÅR‘F À®¨F˜íŠÒŠ¬tÄ~£ã7­Xi$©;f_ u¹$hOÍ¡uL¿_£m<Ò+£â+é9­æ'…^’³ã‘B™°íä¥{ éi\'OZ ùw»•ªÎ7,d´rÈ:¹ÇÊäîØø»|‚ãÃÞmÂu”zxž¥}kÛD3£¬»Ý?€gŽj´O¼ù›)Ðz¥iìáô©vVGä{ ˜Éé,W1µ‘3©»ª«úè¬ú«ÃzNŠgeãkœŸo;¼9º|I²¢CíBÈöá9n&Xи/QE$­Väw:ëõŸHø6¿Ç“õÇ´!³`ÊÑ6‚\_n Zìñof‘⊌òÏöƦëÒiG°Rº0£ƒÒÎ#ôÔùDòz°'¤ \ ^zÐt%x_Ì9@ß—DBÚTÛŠ¡í8 Dg0MÌuV/uÅNŠÀ î–P$¸¾„ºR>SL ª2õIÊIªÛßíòíÈLºò7žeL¥iUÅ…›Ë ­å§¥ËàqðÄl‹žºFRûg¨— ò× Ã¤×¢!†*1Y³¤¶´1s­[gâ)¬‚Ũq8+ ŸÆLQÏð¾¤p9ÙD –ð«_ï\ÃP<:¼£§Ý‰âëTî,ÝJš=RZ‹ÙÈ3Ä8²¤7qoÁêéâšVðêFO•‘]{ö ¬É|‰Xpzõ㧾cš=Æ•"w)ØØÈ‹©ñOÿTX¢ôq/‹sÜE3/xï~DFÅIã³ûQ·’±Ý¿sZqlßDZ_×ó43gy|Ó‰‡h—P'ÂZ”]‚ Á3àƒ8ø•V­Õðø»:d¥G P†ÅrN"DoG±b[Qà¦çèRKŒ<¯GÃ!œC*çΉÁ?+’ üD²lQ8ü>ä£.þ­œ ÎZ5*ÄVÓÓ¥Œß ¯P5OikS“…±wŽÇÖ–(VÊ«ó7~‰÷<šÇ_¦ã^W²‹&ÒÖ:âg% ¶aGƒ|­ô¤¹h á„‹ Âx ·û¸×cw}9©‡"€l&¤|œŒ8G>nÓå{œïI=®óÆâC,è¦qþþÁ=&4RÆÐ& ë­jƒ$ÓÚÞCy¨ƒ?ÑÒã6÷n{!Ê..³1¯ôþBF^ƒ‡é·þóݿ߯]ÆlÛù4¾>“4Güúªe«»C÷#ÃÈÆþ­$—‚¯ñÆ@*©¦^(”u_à;¯ÝÓ½>÷è¼<.ûËöÉ÷K[Ý©ñ`×–_þ¢o)»KBIÙÝ9uR¸ÝÕVìîeý£Ãþp4QUU}Äo”ÏkEá¾äLcd<€›S~ Î’b{‘^eÈëCÍ!"Ò¶_/œnæ¿N¿Ëµøm.ùK§}9Nó@qù–Ô{h†½HÜfÌšX ¿r8A}7Ç·åqÚTqXg\õØ_Ç-‡ÞZ›ÂÈÏ\”÷<ðn{flßÝÝG2²ï#n ýw­˜¾ò©y&Ægþ0¿ç]Û «VÅ+ü÷¹²Áâ½B v¡ˆ)?ñc6~(׶ ¬eñ0« ª5xŠ¦›»–v[®áYy7Tâ¥q챚>oJÜ´ò¦ˆ Û'4a+T›ªtü"‘CÚp8ü¼º"ƒÁ éu'x$Ñ÷:….?ÿ6Ÿrÿßq¯w’ôãýtLKñNÀÓý7[-ôÿmmo6›[ëèÿ»½½¹¾ôÿ}ˆÏã`o<ºL3wÿ+ƒß¢ÁÞ ‹ž ¿BƒWçQÖ#X8@Dƒ$Î%l )FigŸMÞXÕ¯I.¿z;åOôïÛ¾3ÕœL=Z­ý~¸†¹ƒ—c¦»U™Å²ÁÁåÑf 6¡³¦ˆWï‡Ü„DyÕrÉZ;—pœèdqŸ{¬®L™T¾£ Ex×Ø7Fx)¥b";x×^w4ÀÊq‚EuÎ)R ©Òö1$VoǬZîÌuBç]•z‚3X]Y)æqêÈ·ç"A’샥ƒ;Ÿ'É”¸ç6ü(è·++ õ­Z ².â™mUK9ÜG0õk£¬{e)ƒ[šöA–¾,£Ø+|9ÉÌWI3«¢Yoª5Ë©Ö&e4;ˆ&sQ @|•ô2ð/PËxW–¡»H«Ët\º$_À»¹¨…@¾Jr™=(ÐË|él}Ê’L§lMÒÛù%ý*Éf÷¢¸,­×é6ÊIÇû7ùø•ì F EV|!Žf‡ôºŒ¨XP{2M§˜Û.r&\ƒjƾ/5óKdW ÚÝæ‚"ÐØõjÎ3“Äã‰4ñÞ-ÀGz3e¨d‘4ú1ÒÆ)tßÄiUKñ.ãìsPY½6ð|.Ê@¹"]äC¤ŠUàËÑÄÁ·ŒÏAbè>’à‹¹h‚‹DQO‘*v‘/Gç26=Ï:b¾í]Hôj¾•DE=KI?§µäû‚‹©€{?žƒFãá<¼,¥è7Î%¼‡_¥ènc›]Óß±2&Þ(áÙ:Í'²‡_§Àîàïj.a½H+äàJÍ#¨‡_£˜náîÐh½H!âèÍ%ž‡_¥pncïPiÁܳè˜ÁûVÝ|B9,»¯S$w{à.¼¹ÄqA0Žr5´0n0H:æsu5ÜJ¯JêîSz81’*êñ¼Î¶YÝ >Ô‚W¯jÁÁA-xñ¢ôû®Ž« °‚ßR Å<š€/ØzUª¤Šš«†Qn2¥\Ë.W^°i"Q˜V¤6”“‰ç gý”Ê5®q4ObÛ|?¤í²d/¦ãû‹_`^ kÔow£ ˆ¯`J†Mv¡5ÞŽw}€v°Vd]Ó³ ®AWªÓÛnR›4÷èh{á¦é*íýP4<«Õ½Ád-ÏßÅdî±Ö´ûn·LC€ÛÇû„÷C¼‹Ó(ˆ }´l‹ºËXæoë·oãå£àm÷ŽÃ`£0s`Ÿöo‚wÎœ#àiù6ô÷4\N}O›w¤½ÙüLÊãî_²³Þ…ö& 9‰ïkû6Ô÷5]N~_«w¤¿…ÀlD»sén}'&dš— yÛ¿ò6?…y[¾+#²‘˜2d)Z[sW.\ÍÜ~<\PåãÑÐT)kññ(kžÆÃ&ÅŒ¶ï4"4¦/k—.ÞûÜmHæÜ©1¹§½ºé£rÿ;v‘9ÆÅصÝû¥»É\;·3"÷²w—4>}4î{w‘˜c$Ì]¼puu·±˜o'wã~öò²æ§ǽïè4æaY֮#Óšsgw¹Ö=íí>f3­ûßÞ=xLÝà¹VáòÍuÓ––PWéçxÊ­Ô\ÕÜ‹›¹*®5æð¨êŸ^oA¬ÉÉEY-DÔžM™9ë—hÎÚe´šùR¢Í íîôºã9JJºš0„KRò´e£Ê² ‘”NRßX†úor|Ê3uªµQe'œêÑ(M*òchèÃÓjð×C±ÔerqÙC•Öè2é|Äy…«ÁAkuuŽ¾*¤#˜A+ø>h_¯® ¾²ºyYÔðœ%³ÏÝ ±£YNðØ°—`µ PÒ²Bíl˜ö&é ‚†szk€^ð6PYü¼äŸ¢2×Ö7V¹í²rÛÓà­pjµó‹Z0Š.vÕЙF€eÈm88o;m-íÔöt@~dõ\5¦°˜­Ä`…q-ÎTÔ߶Gòâ÷iÕäbp”<ij±BW1÷ÑB ›•ËJfÕ*®f5…B-•² EzÉШ¸Ü‚O²·¤É Ããøú…Ô0—ð‚kôñ‚Ñû;¯ÃJ5XSËP€ø]\hhß Õ¼eŒ/¢øR†='ÇÜ–@äÅ®eFÒ3å E:çb^˜i5ÍªÈ Šñþõ3}2—ŒnÜ’Ñ·¤cSͳènø,RÔÅÎ8Î ü¨!ÆôFžÔ‹,UÅ$›Ò±ob‚ßÐH›2uÕ0/‡à°†AC €¬-Ôá›õcãÔÞ&}eš§æVè+Ñ:µ¶;_‘õSgKóÚc¢­Ò_¼:6mÈaÇáZfdy*|ÒØèî-Ì5lmÔý \Q-6ïÐyt7s^AÏ0çðOÄó ïÈ6s×æC1~çz›`÷xÞ1DJɹ|„Ì6A£³ïñÆ fl:Â;H[µÌw†ëœ…OÕY9®;Æ^km¼ÀÛ¹3‚–VUדũÊükZmÛÍõì†ïÓêÑÐîLSÕ¤Sæ‘ݱX«F™jyÜA?òfê&o¦rÖ>…Ÿ;¼¼†öPüÿ5ºod+½´õ¨!l»Š‘_ßœìIõ»ÃŽF#ئþ7Q{á®élš#Ü& »ä÷ÅÕÂŽ8}¶²\eøBžê U…9‰«Fž`Ýô"m4¡üOå{k¶‡Ùx€nw¡ŽÓÈð<5—vžc1 ½ùðEµkP²à»]sﺫyW~Ùa©ÝdÅ•¯ð®Vm ‰kHÏ‚À …éä[!©% ]ЉìÑ@˜µ[Fm*éVwe•¡œ[µ }(«‹ hu¥x»‘©âröOÙˆšŠr”FcÔSãŒCOU¬ŠUÿ„RáŽé8Q²ûš{¹Ûÿ‚çêk¨üT £ÓïªÙ¯“<×¹ú]•í¡ßµ"b‰·Î”|PÊ9.´J«åqLT0 á1Ëì檢'|n:c×T%Úëqà˜ª¬Îêè”ñ*>Š EÇ<¡À)2ê‰íg?o2zÎD“áð†¼Áň‚.¨âÏFŸ']däp‡g}Ù$õ»žÿÔœ5ˆÒó“ ŸCÏ»3‰Üøì¼zµsp°óâÅN¿/B¦0 Ô¿\.Ñ,ûfȽ`ëµ›Ý&›§Mv7ší¹¨r|‰6†Uô¨W 0Œƒ1*8]zi:¬ü™AXüñ?’ìH¢ùÝâ~ÈÏôø­ífÉÿ±ÕÚÚZÆÿxˆf’ž½<Ü ¬A§óÁÁáñþ»£·'Go^ïpÚz dDñï†Yz‹n\ă8K:]Ôf@"ª•9²Eáî½?yñæÝNà!-ú-1ŽÓs·2 1èÔƒŸsØ•;ñÿë_á[•Œ>öÓá$#Z æ‘à„.`z‘E}Ü)γ8rQî?‚I:Æ0“pé&ÈiÛ(v¢‰-,äÒ,è§Ýä|Öx€.î™6Îú9&¿¢_¿¾~üŠ$Ž¼·{@Š—I'äqAóø$¿ä€¢Pž(Žx(|ŸãÝEü@ºÖ‹œ÷AKæÛ’ k ¡ù aq¸*à<–8Òu% ^Áñ›ç'¿ï½; øõöݛߎ`@ÿ÷÷ŽñY{¯ñÁÞëApø?oßoÞG¯Þ¾<:<@HPÿÝÞë“£ÃcŽf±ÿòýÁÑë_kÁ³÷'t0^½::A¸'ojÐð¡¬mT Þüõåѯ‡¯÷±À„ôûÑñaFíè Xlú÷=h÷=G }¤‰*çiF48zìüv„åa"‰IŽßￃ æûXÔ9G½Œ®bXÜ8¹‚åÁ=œ¨õd.[wÕöÒÁ¢ˆA#ƒ‰ü‡H±S ®³™…¢Q¶ ™›ÑÔÚÚÞ ^aÜ–½+XÄûpºË'Ö‚W{A£Õ\ÿ©´ØÃN¨ÀJi>-z’Ÿ¤ù¶Ž˜HRëI:ì€Þ3¢&ΗHIñ×(ÍXñ«ï+`‘)ÆaìÈì´è ÔoW½„-¨›ŽDXñ¸éÂÒwìÚ$Aº-R8Ñ}cѧ± ¤žiV{6¶|¡%‚µì`L¾’“™%ͤ|túráˆdCî䜗?óä6 ˤ×óEÒ”'mŸñ±cÃ,ZÛ%³p]'ŽËÂõ‹M BpsB)zòéÆ8RMlŦ—uÇ™ÑôqÖEî0ÎwæŠCŸÅÛñ4[´ºê 8m^ÅwjMRját&ÏÌâ«y¦¶ÆØà4ò‹ÝÉÍÈ >Ê÷0À/)rÖƒ°ÐX4¸ý áGÓ¬>ìE¸‚#Ti6ðBœ Är “C :—Ä]C²F±Gý:Í>O_jªÄŸ»Òôô\| ßq©=¾ïµ¦hj-5g§·a¹Jq`Fy¹÷ÌÛåݬ ›>£Œ2wÙ¥ï¸MßiŸ¾óF}÷º0© ²:›ucl9à73±pÇä?LRT6Ôüú¶£L1ÛIÀ|Æ U­ØëlÁ!6T½&Gx‚YDÕG§)æ­ÐÆ+“ûãþqò¸ q–¤ò’ßßz9!¥Eõ—ëYz³€»Ñ;è¶{”€Ù!ü«ƒeÐGÍð‘G;A›®ñÔ€2f(™[Ö #³@Í;ÑSM]tÒ:Ô9·Ï¢P¬ë…øš}á³?ÎH{ñØYŽ™SÏZŽ àP6 o?íå,ÕÒÏwÚt7X÷ooÓV¢ÎÅvû­ § ßD-¼åÌ16ƒÅ·7ïÆ‚ìK%–SwcøctgJétÓZiéT+òÁ|-‰‘±ÒØMkîu|­o6ŒVç‹4Ι/ÝÆK±è%ÖÉÍʬK¹pc×öïÊ*3!ɼÎF›¢¶Ve±—˜µ×Ëj‹PUVýXºâÚ›ó·­ãb(u;ÈÜõ6jèFU ýÆôš¥q{¹Q‡ÎB0¨˜ŒÏs¾ÓЩq¦ÍkÄà }®Øîd:™¨SY^ç&˪PEÿ‘ÝIaä4áiF¤<ã’ºóðXX€IœMm®Ú˜-ï”´‰°§$tà…–)Í ZxÑÃÐ>&£ïìÉ 02-zú‚*ú–;E}{„? ‘9½(YÝÀA¥’˜~Qª‡Å6x:䟓aÐå¤ÍP3!#à0]oy¼¬Oã؇™î‹3©^xzh´N-߶¹¨Ó‰ó\7E™ß½ù[ðÿÅoÿߦ·.“ã$Ðûë¯fÃç¤ÛÍë¨H‰I&PbÆä¼™½Sl|Ùë×,-­X§Õæ‰/KXE%P1³Š…dœ„Ÿ@rš‰hüøƒ3dài1TjÔL7Zrb0Sn’«…Å,Š ”•¶-+I‚Û]—%J™ChÇ^ì“QÜÏ+²Fbe„U£qj2mÖŒy(#é ~Û‡³$Hy+®Ù妑·òqFá·0çÎx@~™%ƒÏ|û®Ùu*Ïÿ&Êì,Doܽ|ö^£7*†m÷ÏB N‰€Ú¸ãQgœ)Ë {ZÙ³Ò3Äδ C³6zì@jð‹ô!´A+èãÖ–éNk ÚSª˜¦¬ÍBZ²oÆGnÚ“(£jd4Òyª“¢ªf„¼´&RüÁìŸSRÜZõ\¯I«›Âì,tª«š¢¨[•C©)÷m:3¿¹—;N€4Ÿã›C_;3î¬ Â µ7Ô»´ûB\tóû%“`ˆ­Škë·œØFâ:]4¸Ð!IHë(ðHžQU|ÄçѸ7R†ˆ3T…Ù~.x\)|Œh¸w8¾»øCÚØúFR¼H7²óið$Ÿ¨Q]¬WOÄôf ÜVWäÎ39°žªFCSL¿µŽ§Í»¸‰¡ 7å¬Áfy-G’¬"[ÕeÂx~Eå"÷$×Jc½Ï±Bª³~ S¢ Ü_¾zøY]Å©lt_rÜ>ÌêèBÚùS*PÁ/_ñ›ajÖC°f² ^²ñsV-—Cμ̨jìënuâŸV§´éw´ùýï‰iNøôΟŽTÔ(&÷&[Ó,8ˆû©é¾×'½®(S±„U3ºpgQÖ¹L:QÏà¡Òø–m³Ì³„e'½(˜Ž tã¶ï¾'½H«{rÛ­NS™aÎ1ùœ A"üÿ-ZÑÑ`Ìœö§jTw‡Ì°øÙi¹§qWïñ;!Å9s MñfÀ1'Åæî#Ñà#åÑ°kÎŪ ÍvòèÅçèâ3 ™Ó×ÄÀã¿ÇÉÈ@B.¤¿Ããé®&³±°¾ Œ?÷Sšÿõ·8!_ù5_Äwó™îÿÑÜØn´Üü¯ÍÖÒÿã!>˜µôd¤¸KÒyÒ½ÀA‡“]…WqÐ`e‘pEÜçVFAŸÔÞí8çñù¸GZUJ ˜£Mô˜}"6…]4öL1¬sÆiQÏHíä·¾¬å¨_¹N3h¦Ó‹#2#s¾Ö|Üî'#L(þŸP²scCœ]0|ÎéY–à¿Y=ØÇïÁïä'²z\f'Б}4Î~›ôê+Œ¹r¼Š»´yîã '^ÝïEä'ÁoGûÁL 6óh•R»³Ûzl²Í¼·ä ÅÑkÔé“Hq Ö[Bæ¼:^FÔÅëDŒ“œ' ä`ÄÇ>.áoà^ÖΣ~Ò›{fá ÖHÔl=¢¢t§;_ѼõŠPÿùê88ŽàÈz ûó‰:?kâ~£öº\ÿû8› Àª¨ÒÇÁÿ,Ðçï×.ãÞUŒ¬¾gðþ¯¹Õßè^|¿ÖIÇÐÿlV=‡%-®{jº”0«b·uíM§¶P|XL¶4ï±,ÅË’W!cxÂYŠéŽï~pyä‹'".I'Ì)v5iyo¥èm6NápP,+MY×â‹ùz¾\Áóæû–VV½›jb‘e:“ĺtãžžè4s6 LÒéÖ¾\FЇ£­˜Y[ñc[ôÚ&|\Bêž©£_—´åN#_´…i$ÿRÁ?ÚâT`® ¹RµØY¾W7ÞùuüHeý0îÅŠTs™DË M}\“gÊÌ’ÅKY¢x#º«Ù·~CÑÕD—&ZªLX%´ˆ¯½´ÐÓF¬°é$…ì‰ãRfe6eV‚ÂÜ “'(==}cþØŒâT)›Af¿çžB-E¶åÀ)%¿ÖcUœEA!›Žg)âàN¡ªü:ëæÓ6MbêU|h!Z21¸cù0¹…ä!¯jW&“ÊG†Iå#ÉÛ¹ã´õîÝÄÈAíôåêME¿ò_ ÓÓû­[׸s t Ç~2PÃÛì)<Š´‘7n±ðˆvAõ÷D*éì³F=w>…A'±áŒØ4êÕ 5¼I„75 ˆXð@†A}ê‡å"Üs¿ö uèQÇRt®NÃm…ÞÄÁÇÈp#ôÈ#®ô¨Jï¨Øµ¯A¥$—H¯cÜ´.ýæ¦x8é¡zÐOº]Ò]sÈÔŽ ýÙƒ½³bÓ€ ŠïÖ ‚L#¯¨J!u¶EGŒÍZ |UzÔE7IÞ‹ú"˜û±f´"Q—@Я‹ Æy/øR×€dµHH¹äÚC"eˆS¤çç "¢€‡O70"f³±Êy¢7r§·PHîìW8{ ÜS(þ}±Ë\¨ëv3¡.‹Ýa_ʨk‹ðbq: ¥ª äÓ»¢A+X«ý•Yœù*WUƒh°Â–ò…’#åsãÈ”H홂-é©ÞÖȶ¸(V4 £q?#)¬`yp6mOÕ{Þlʶ Õy9‡oMþ‚¼e'ÐÀO«ÀÏ8}¬À…JÙÓŠ§w_;RD<›¸“½ÂëUöPñ£U¹ôzˆt³%¦±ŒD- <‹2Ši,Ù,gn’½ÖŠD\ø æZbªšª%¬K­‰CÆ›Ã!+á/²h²Ùu -Pd,c÷°(Ûè«S¼µ-÷h!ŠB]¯6À8 J™ÊŽaj@Áê†Å‡giž'ÍÅ®ùÀœKTœÝíãƒZ æi¢äˆ±Øò͉թ—‹S<kS¿þ&—¦ ^éÂݻۺd oÓDDÑò,ͬ™XZ {[“8VÕ"t–n³¾QØ4ÅJTýó.pyªµÛõ.Z5¹Œ¢.»¨lÍÍiªy\…Spa™óKdµ¨Ôå:ʺýxt™vóŠ¥4«Î"òübh+\ç ]¤Î@")¹åUQ°[¼Ü•ïäÅ.°µyÀúp>À°pNM3³d€tD0˜|¥ª‹f]s  üÖ| J<¥C¯¬ß­¿¦ê_4¡¸­vdVÒÐŒ:`N²Þ06‰ÀæŸÍM£¸)bàA³e*žUÌ÷òìþèm?T(zO|ͽ‰E]ã]ÒÕAy ·›ÅûH1‰ázdÆx“c(«3ÊâW«ØAì&TV—ÀÄ}Â<¸HõŒ¼¿›Kÿýß«ý—ÂXô¿͸ÿÛÚÞØÞpã¿5–ñßæcÄ3ýVáß^{£dmŸN–ŒûG# ÀÖ…’Wq—¡giê_ÆÑÞ ]© „fù,=·üNÉ{ÕmÕmÕmÕ훌ê&-(4ì´Àn|9L씹©`¦þâÅãº|žåBªÝÇ(= CÊa‡œQ\)ÄášúMôG€“o§‚{,—ÉØô)s3>eñÏ.Ó,ùÇy/¾ÑÖÂóäï«|`XŸ§*•€Ë"ò—azc³ ±R¬rÚÊ`ûQ »8Ÿ$^+®ô *ùÃ×Ùaè AèæÀË•®“n0¢w&:­[`3ÎãËq¯‡æ'wéì–#{Ì1d%?4kÜj\Ýf\Íšh¯«ßjèÈxTk­)œ52‰âÕ3ýê´6Œ‘Ïó\¿šƃ?LÛÂcz§,¦J°Èúh]‚®-®aq}46]b ^²Xº€B37’ã ¥Ìʪ7…9Ç»d¬í±3†?éö„‹ØYŸ¥£Ë×é5šV4Ũ·ph·”°âr‡ÅÛ;3–W*ß`<[WÑe†ÝÂqAÍGðš9SD3Ø_ûm¾ìâÛCô¢c€*L,PuÔ¹ ª¤^·"§žÁ/öU¦B•ŠìÚE4€_ê~Ó¸„Dõ—¡ëšG‹¬'î:Eg(î Q¡Z(?u·®„ªHÒ­?ÿçá“Šy{»³ó1\t—EÁ îK43Œ¯ ˜Š”ËEÞ‡ØpK}¸6”PWê–íÄäˆEórÄy/…‹Õ6¶:ü¨©$·ºƒl¼VÜñTIi~Q2mË÷LUÄÝ5çúØ«÷\­«b`G|3}ñ|™us‡£̽¬•;ä⫨QZt•Üë"Ñ6E ˜ef´0¡\–3æÖŽä͵^üKÅá¯+‰¿êü n»ÏŒê`T{ÝGcŸ ‚ò~Š6<Íyzªw¹’*¹ ¥/d k–—Ôa윊 k·–¶\²£öÚ_Ç5?--7¿¡üØ)nÜôWÕ¯ ‰¿š1¡ÊxBnNðÎ’%´˜¡$ »Ó©ÎŽch„o,5„¸ pR>üæá¿`N7ãö`±¬J¥ùnÜÎó¿æ¨Ê·‰sá-~ ù6êvµp[”jř̔ÕtÒåÍZÏ‘•Ísˆ!Qz§÷0Êé%ëÜbDKFSžÌÜÅR˜Ùöë²µ´fÐzí®qžµÚBO‰äºdÇç9°ˆ7õ,î§W±‹•ý…‚õ›Éœ£Òãàþ¢`4ÆÓœþç£d*õѬŸ í › t˜¥í¨Ý›`$Fy>cH´¡ž±0#åQU7Q ¿ˆ°È›AþäÈgmÀÎe|Ù‘éÄZ Ž«„oŤˆí_ënãŠþʺœ³mªmÔ‰S?·¦¼Ƙ™M¦oN41á÷©a3ëR›³¶|Å…T@E†^ÁÔ_˜¾ Å=ñ]¢ï<†álÇ0Z½P×QÉŸ ‹ùS#s¬O.‡Æ‘8¦'Ž¾ÈJäW÷—¤ 9¥½ø…UÚŠªn6+ ÷}‰NÊ´ûJÉðE0Àr™;4è–qÚÉ /êÆ€ •!…»ß‘Î[¸®h¼j ¹>êÁꋽ;”.¢Ac^Íš‡Î%å³ðÊž…q˜„Î…ÒôøÍ,|Û)è»9R3ð  3mþÝSs3fßÕŸ0û”ßØLˆ…æ™{TNq@åËfÏ<*„³Kí7Æ•Þô%*!–‘w]ØŸäH“O^Q{Q£`Y…¶«‹PP¼¡>6+Ò#kƺ¾e•‹Ø}Vüzéú…n82JJàœ[böµâÁP!æ9:ô£+ÇšiÁµN§Ûž‰ãlÙAÖ¯¦“íAÅ9šSJWüEáìOïbôHUò9fÌݘ&]hÑfΦžµÇΩX†­~lZ°”¯‘Á­®Ãœ@ÐÍ¢n}I r¨ r\Ý9ÊéöçÌ©nnu£êÒÞ¹æÙ"­ e'Ó,°,p‘A‚„Îwyt˜ÁqLÞþ.—ö>k=áEõ;cŒ.‘S.u‡LŠ/tFo só~¯ŒRÁ¸Žç’߸œ×7„l}&ø3:ŠT d S2Í+`ááz”:âµù»wÏ6;U63ì‘_Féy…#Ãß‹È›ºiRˆ]{Ì}h@ÿDסƒßµ¸þ÷‡|f¶ó½µä¤s²“ ÔŸHJ€4Á­ºˆ‰pN€X³4Y£" ñë)AŸ‰rk â^æÑ>ñÏšý“/3û_ØœæÊþËe›öæ˜ÿ/ÆTº\\ü\ï>–€hé{S”»Ã`p·^¬ üá6kÀ1ç ™u4k5gÐãà…fÿݤiP0‚3l ñ­Û°Üäܬö³Íylª°`ïØ‚%9‡ê%ã±hà³ «¯–LpÛ(’†bÐåÃ%¾jÖ…aŸ_”ñÜMÄJDlÎ1ŒâF*ÝbÙ2²ô¢ìb~ª”÷Ícë9‹c7 ï „½#q”áÜY¬ùú‹1§¦äJTø3pÍÞú|ugö¥,ðƒ:úìu:iÖ¥à=«Ná{§ý$ú8—AX¬³‰¨/ÝLÓa]#ä9X=‹1ƒ„aìXàg¶Œs½Ùè=æÙÆ8à¡Nœ¬ÈæwåŸÉq¤}N€—¹dØÌ!sÈÅÉ`û¨>ÖŠ`@:ùÆéŒÑ+¸JŒFqHkDÌž˜&ño0j経 ¤ .týÜÇ{Üîã!|’Á8罉;[\w ßÓ‚ÅK‡‚9ÄH%üA_K֔ܘ"£¿ˆiôûxN‚à•­Âe¢~L ò2÷¹´øãR’ÍM­E Õ›ƒR½9H¥¢~[åÐïâ ËVªCÊ%ËŸc»\ÉÓâùÄ}{›a9GB÷,jŸ#¹{³‡h®ªþᲆ ØŽ~>×|ÂZ…áÝÇ»ER´/êñ,1Äš0QmQ–WÃÓç¿AV¾PíÔ¬öÑr­:3<‰žh¿ÁŽÝ¨ËÓþM%€L¨" Ë;ò¶Ð{À4ö Ÿ -i¬ ò©˜ºß¡ýµs)£íšá˜h*.^0mÑÍ¡®‚Î@úAH\l½cw»1ôÒû£8ÞŒqÔ ¼nŸê%{ì¯Íg8ø@/ÄŠVÁ”iÁèùÙ×^w2ȶåÌÑ¡\c½¸%£<©X>äEÇÑL¿KulxÀ¾œœÄ‹ž |A4-$o‹ßÁlZ¶5,†‰«~§\cÒÙóä³ìQ!¿šYCæX+&Äâ~V­ÂZb”wO›FÍ gkWPñàm£"šHŽäº²ˆzâ54àÉÛ!šZȫ챶;XÔçZ…OG­U(R25nB ?Fó`´îÆú=ÀظŒÇÈæ}Ùº Û÷äÇûòÓ€,æ­MÙwu䪅V™²ÙÞÕW€ Ap¸&À' A¹!%»¦« ôôD+ &Ì®<Ý-Ó_7 A?þÐE7†}T<åÖ?ª´G¿‹ÅOL’D­ÈË©@bȯÌ…ªˆ½#ç(ðNIm²¼íüÝÔÎß"¸tønhï†$K|“ŒØá<(¤U”Œ•æwý÷8éÌŠ»’ÃÿWXŒR‰ß¹ƒÑLÀº·Ì‹_ÇÇŸÿñÝáÞÁ«ÃûjczþÇFc{sóÿ4¶[›æVk½ Ï›˜r™ÿñ>tùÓM2fÒl"ïSó@Ì„1º¿bn[ð UbIö }f1¢ÿÄæ† ”’àYÔK/VÍü’6$?Ü5¡°äz(jJîI€Ÿ'½ø€àXµ)e¡%,?æ æ}8ºŒ4š² úFÏ‚ëˤs‰™\{c¼›ÄzÑ@Ç/éˆ×&ÉJ–«‚œ\Š9…4:‹'¨9À+2a6Š0¢`t™ÅùeÚ뮞dq짚L y™ÄY”u.é®p„¹çÚ\~uõ0T©·˜Ù²'‹;4:Ø ¹Ew“|Ø‹&Ð&¦æ˜T¹1può×?V̸ï9Öhl4¶·7K×?|`ýo7×·×›­æ¬ÿõÖvëÿ›÷ˆïóo¾þ}ã¿×NÇ#µØîÞÆ þßj5Ö1ÿïúæú6ÌÎÿ»ÑZòÿ‡øÐÑ% <ï¤/_]}© •œ¸wdoȯê*Çå$_…ÿ@È]~Üi |ù1¬× ÿ£¿åÌì—x²Ÿ‘ßÓŸ«0´Ìúë«+Ø‘;"òåVŸê?aÚyõó…fd« R°ø¼šûiˆ›?ýôÓ§ÁÆVÄW9™=eW ÔÚP`«ìŒ*«”Ê<|ŽÒùï>‡K 2L#Ôp%¬VD­Oƒ0x*ªØø‹¸7„NçŸí7o/1Jbðt«´‚Ÿ~ÜÞ 67Ö[v™dÒÞNp þ_Rïp7ðßz4WWkÒž1Jœ?Ìj‘ê³fâ9àh~! ¶§Ÿ†¤:‰u³M|Œh³¨>Jƒ^4t.ÉBDÎuQ†—Í‹˜Wáñ%ü \¹œÇdºx#i:!"vAÀëšz!Áÿ¨ø ½Ž(-¯t;ÀMýx|/\.r^â^La!Ó‘ v‹Ç³Qœ£´PŸ¦6“çWe†Ï3ò޳ƌþVç;EiúBÉÐLOOE8žéÇ(8ÍÒ¾Pȉìp»´”]ÿbǨoöãÝÿ1ZÛ=ìûòƒû¹ü×jl’ü·µ…Ç>ñü·¾Õ\îÿñyüÝã<û¡ ~ˆWÁp2‚ Ù×Ú?ä@Iðßü-Ñ$7ʃ¿“ÎçÞ¿Ó›:rS@ù7¡€UKßñ˜ˆúÁ'DwŒü0Ê]áw41™xA.•GǺÚ¡€Ôt£K8€<›ègz&œ!ÈöíI÷æI÷)ý°ðý ¼v"’ÔeÅŠü2¨âM7N@¾OÎABZ_-Þ C(¯aºu²hð9³A·y¸PyQ%W„ä×4—ß²XÒÈïÛ<³‰¯£É0ÎKÎhÈB㣕|´—]äˆÜód@Îø»K¤è<+6ŽÈÞ]¥‡%"”X¨àÃø<3d`q&%x®Œ²‹+´êÐ&‡v@¬~ØœñöQ ¬ÃêÇ&œ@í )ŸUë¸nñKÅx]uÊ°ê¼è^&˜¾*p>6 Ã/|;¥ä ØP„h õ^— èCµygÞNM®"«ˆ.âé˜\»d&F)·Š |Jѯº«Ÿ0^ž:úN—s Ö6rkY5¨$#Ú¸Ðø·­ràÀY3÷F4Õº©Ü0Ëã«—saF ;K…4?.Õ„ìr6ùï¿ÿ|eá0~@Iây¯VÛ»Îá±¢SÆ#/–çú©åW,§¼V'H//N‹¾2J‡òì¯Òg`ycŠS‹ðßÂ÷.7Pò5‘ÿ ·#ZUTš“X”‹ºÝJÈ„¤Äô’hgú™@àXx«â}dzô¦"ÛÄ6€ÚêÊŠº¼ÐçmÑçdÚ‘°îaAœT <Δʄ€€´ÀÐwBUdk2û¾¦Gfx<ÃO_]Ú¯("Aá;˜3 Lb}ÕB6ØÌ ¦ºaýÑ!+nîš ¢oœg“Œ\Á©áª€¢Aç’¬íÃkL]%ÊÆ7]ÜìÚù<à±ÿ1{eÅ“–]駬ò!È»£X÷K´¼‘¨&ëÔž‘yÎŽgò7Îïª[Ȇòz’;ãyTÂÃ~€>—äÊÅÞŸ]Ü9Ö£,êÄ'b¦à`ô™Ãâ„šþéðÄ,wŒ •j†ôhÄ©t¨´NNSå?*Rì2ÁÜG G‘ØágT÷aé@BVªCþ:0Oõ^r1$®™8¤à1DœŒiŸ¦C7a*‰ŽßçÂ<âH[]ËÒú{’ÃQ«Ë)ÇÀà,ÞOò<Ä$ +Bb".…½<³˜…¬î0]- h ïD|8íP½ñ¤)Žåä,fR/ºÈåõæKJµ"¶„)Ù¨Uú_µÇÓÌ—ÑžYdd+_‘âŽ9…Ï#— sÞlû)ï‚uî?n°Æ¢áàŠÈA„5ª(øÂÑ…/ìi^§ö5LnÌœK ¯½ƒš ecêßÅ€*ç|¶Ä¨æ#>Wæã6Ož:¡!ëCE4jƒP Rè"îFëØÒ1œ%øD'öK¿†c1°"̾h⧚jíx‘d9àØêwQ)@"¬ØãêL qÇÁÊgò«|…0i稄/SÆ: žªrUÄîìÄdîf¢šïT½‚:}©ƒñ$%¿ç³+¥®„¥‹¦¥+¬ §¢Ý‘FÉÞ™,hUQʵ©‚çx¿„BÜ4;¢-‚ôw$ÍJadñ9×p^‹C´N¦RhÂ5ê€X˺ â˜8Jë_E½Š"þS8©ÐÚ#Ü«ÈE$ë*¤7ŠÑ£$/4Ô,0 ŠpÔˆQûbMaæCÈó-ž a³ŠÌN] I±B› ^H¥l(ûFðéiè}W@¯0£Un´••F ˜UHâ³€’®8²¼ê’ØÅ­‹1£JÖ4ÊÙ+hòÚ>1ÿ‘&ãYs:ƒã9œøv ž§±"ÁzJiÚ[»Q¡¹ó#QAõɬ¨÷k#¥(K$ÕzÏ !™EsÍ‚ŒbÎ. Ä—àYøÚb’ࡸ»ÌÑgq׬MÅ—¡oE?$Ü–ºQÖ Òñh8&œY+²0v£™˜5J1cHNÜ::¤ s}pÕ;»öœ§n-0{,}¿¯ãE­ãŠ©¦¦Ä +¤`’?“°_ª¨—WÃa «*8ÿoHæ§qÕL:I{ü'XM¤•G0"ôǯÃPx1Oïü5_øõ«±Ó „;kë€×ŠÊÛÇQQ-¥Ø€8Ã[QùFHÉhàq4eæε"·¬ÄÇ‘É„`^F9¾G}BM•®Êê¦QŸHHal}VKLêb)ÏБø^iõ]‹ì`q°H›– L,Êdd@›ÛÀ`S S—’¦¹W÷Ò*sä3 MÒTºœãQ÷ÍxTjÆ"D¹}>W¸Qrì·8ÄÖƒ”ÎñZAµs%ÂÌAïhr›Áßך)j™½7¶·"1y}* ΀ìÖƒuÑ<µÀ»%¤äfõ·"6]h øÅ@ˆ~á`*ú¢Òíy: —™-C?ìyÝ‚abØ/“A Kùxwè°D5*!ÞÎå8ã ²±å€ß¡Ð4†cÈÇø"ö¯[§A8¡h*¯Ê< šÅªi0îÓw€D>sÖ„ˆGªÀjßé€ |8¿ ‰%=KÑË5dñA†Ï.eÌ4y…U@+â ÔféHh8£ß[íçèÄÊœ.‚ó ~«ˆr5¥WÇc“–´c`[QÈð+ƒW¬ÀgjºŽå¢6i7Vô«®â×c"J±Óªºê1Ž©2†&”,(úG ‰òù ÚBh˜Ô ñlBZ˜UIéÛŒNÏ ¨õŸƒæÜyó^êÇFãfs³³Õ|ÝlÀûí¼'<<S«td² mèw–f“ §qÎWTïb¾Cpe ¾%*î:Q=‡®¢Ae<€­6Öx‘ûà"¹Šì'Íü ‹W骧81÷ÃYÀOEfŸ´ÛÒ¡zL>2tW+nx¡ wHŸó©ä¯0YÒU±ŠÌ{äUaÚTvm§îõÔ í¯f¼ä³ÿy’\J"Îý´1Ýþ·¹ÑÜFûßÖv£µ½±¹Þ„ò›­õÍ¥ýÏC|,û_1ðßœí/®k9i¥FVtEèËùWÅs¿”§}©ô:qã˜A»°…öµõ2„lêfŠÞd›t¨‰{ò–çpüû9>`½Hɵ­‡ò ³Xoc„T ûÉn×HB:OS]lªÇ[Õ&gz¥z5Õ$0ÿOb¯?àp É—†Xë%º¾wTYv"J{¬ó%†]0=ån³û^HLTdM£ðÝ[ªU B½7HOvF€®§·ªrÑ[´ŽWââÃm›ÎËã¤ÃÄŸ†Ãßp»îã¼Lß9ž¨Î%Æg(Ê ªv‹ãnT†>üNëi knYãð÷G\ìGƒ«H^»[õ5ÅJ‡œÉ;´õFÃxªãâ67kl«nÁá¾!Ud“N1C‘ÃEB'v„ªÈ_ <@¼>¬¤ñï&WIwõäÒ'¯X @$ê>‹²Ne³†!ÒÖÅRâÊÐV®_>¯77]⢠¢?C¬Qã@iý…Í¢±ø§ìÐ;WKi'£~4¬´00%šòoDäïc467ì÷o_@+m¥» ¶ºÿmÃ?â@ DGb¸Cû$mNí?®Ÿ 2ÛŸúênßU“ç/o}_ŒŒ—Ž¤ËAæÉZAb³gøB_>ߢ3„茹]§ö4dÅËè*Ö—³Ð ûüÑ;8® õVÌT›2¸MGƒ 8¾41Ò¨‰c´idᆓR'n÷Æ|ëÐt²÷kSÏxÛI² v )êð›xo‰  ÎÓá–KÑ&ã‘:ŒäBÈL,<”¡Ö!ø:<õ:à‡Gtûç¶Iþ´¾¨{fÂ\ NŸˆ? JË™x@÷$3ëŠýÙ#㜰BØ”»yíÓ€ïmØ$ûÄ#‹½ÈgZLd‘õýmç=#ñ;æWC|Uäà€™‚-¬T)a2`n!øÈØ@è†Zm-õHíÅsŒ °f‘ïªvãJZ"š ÂØh¨¨±Íˆk“1h|å`k͹,Ø€Po¢r*$ÙTh-ƒOZßlhI溳‹#¯¸ÀüH ýeI‚!J¶$`ñ¾0qÞQVkâ:MYÉ|@ì ØâYu¢s2=’WMpjé«qÁ¢=(Ú”×_Ÿ^_XÎkƒgõ T‡á +›cã¢Éâѧuø4€éM¶ì¨Ñ‡u÷Ÿ¥ MCäþå.€þîÓmßÏÉ`(}7ˆuá,hk=C%‹TAR©dcakßê¤#Ñç@ªâØõ[”PŽ£ßø2Ñ[².4è+ü¨H– mSdF‹6q=­ÔÇ8É+p<3†¯hÄ5U÷8-qE%FÝœ.Ÿ)…‘Òós= ¹«µæ ’*x/DRÐLñÃ/M"Ï~ËÉuó&XÍø~ëmvâ4õïõÓÚ¶%4|ˆ½¦eöŠõêÏ0ËÛJ_ý{™~kìd¼“KµÑÐϘWí†Y ü¶`Àym:vY„7©4®  ×ÀÐÖLP7%SÖ½< {5 )!¥®Øê«Ë|¸”øÎ~Í®¹ºžZÒH{ñӼǧñ)W8EvŒ*Ü…#ËLCNº²^†âº[^„ά#ölû þΨ0ÁE†dƒŠZ[àÉ¥ çC’rSÌ#0¾àŒŠBíÍIuX!Ö¬ .™„ëˉr '—ñVI«tÇ™4G º|C4Ùîj{paàr ›˜Tjs m!Kj9Èàλx¦±^(_e#Z¢+¦–„Lôࣅc©C¯PD†÷ãgP{Ÿ*›ñWÞ$)†0h-”ó™WÙ!p¨Êjº8Ûþ,ª89¤Ä~P,ô…D’ }]è!žÛFH%T0å5NRè¼,ômûöÃY²åÜZ†âF8\úý/?·ýxïÿz£_áà|y_€3îÿ6·šäÿ¿ÕØÞln¬ãýßúÖ2þσ|Ôý z@£þ@·¶ï©ï.ðqpÌÖ2`GÐê`ÜoÑ—‚¥EÐp}5mk}cs7.)c÷^ôRØ>è!3 .^¡áøÐÚ¬O‚ÖöO[­Æºpµ§ŒlTCÜEM,Ÿ<à‹{å±¼W •á|Pdç âèõÑÉ›·'ÕšðóåÜ÷VÜÎÏé¹wA|DJJôœóî߽Æ.……ÍMÖœög4°Iõ†š›ÝhÃ4aCV‡Àd;ìÅ}J‰µlËÇ åØʆ‚£sj8SŽZ½Qý7z¤Žò²ÈÄ°[èX­…æ«–y¢¬,-1ÝF„#Û’:@5ò^˜7&U§y°súõqr*!Éõˬ‰a·áðæ¤À18¥'®Ÿ{ÕO²ê©r^yD_@Xà†Ñ–q²—–KЯ±RùNH §.1ðZ›jÔñGÑ[^Œ7Ž½»¹îõIÉùž^óòOL­†ª;Ô¬Ò—~rC—‹|Ê;¥ûT[Wƒ–¨~X;Ƨ+¥ø‘¹‡QУÔY€\€(yò; ‘|pwò f…r|Ù¤¾5:&cnüJ^xü5½Š³^4,¥‘@p:}D¡»Ñ&律­O‘†¬üðîä9&@qp¾D'Ò|‰`‡czý}uq“ï”Ò†‘+!ÍOÆÆÃoGXP˜{“PæÒO®6¤<‹5'¾+™ÞàA鈔Ä@fúŒ1KÞqIÏÑEK’@¯,ûù=,0{¿Ë|¸!ZMp—¿J”…W •š ±°¬Â~BÚW#¸`ÔÅ躴kK×5Þ€€4ðŽ_N¼QÔÉ]£©tÑê”ßÿLÂÇÝV~÷*ÃK·Ÿ:½47…a‹£'svc Ï×yª¯Š&n‹½’ñXrƒyh.]"¿Öâ Ôæ6n›'Þ)<‰n’ܸ”aß© ½”žö— ®ÒÏqEl¢ÅY(ß«©nH™&X!ú25úlèÌFÙÄŽºRS ¼€à“T¸ŠšŸO !&–ÂÏ“uŽU„•¿Ç´~ðÅȸwÓ‰‡£à7„s˜ei6½Åó©-^È/<-ê“Ž-WH'øjôÝàJ怉ǤCÙ}ÅÈýãaå]MA²²Ä%•Üþ¼Å°ziöRGåØÇßõ|\"÷=¢,‹ÎØââxÂ2¡éµŸË±vhgJ¨{ýºB5ŸRþàà‡ xâø>ت·~\oþ¨„ðX•PÝúˆPN…£¿vBw¶s‰hSÛVïjxµ Qÿ±ªz¤èÊKÃ@\v÷g¶?-é&֦믆ã<ÆO›’"fC$Ùí8E-â)à!ø­O<}àÑ‹çÑvxÐV‘‚zà‹<öíÚ' ùnR|7arËÖôT=6ÆCÿð]áÌQT›u,«îïÚŸÀóQR©)ÝâHè4#-28üBˆÏ’WDî]‡ fåúØ0²n ´TjS ÏOÊýÞæ(ìö\’Ø.JŒMü`‡r¤¸Ãg\äeeÝ ñ¤¦ÉY쌽õ,B!Wü«à] -)µm¹„3dR›|wÃÿñre¦aÕdſ¬^ ~ š*+䄬MTµê‘ã :Çäo„Õ"­ÍÂu!¨; dˆ„ж4#8ûÞ© )¨Pn«¹™¢)S2Y`ÛXÐOB¸\I ÍIÛ=i_'‘”W÷è%Ë&Ÿ'èUñò$qÑЗXÄ9‹€\ùK‡mäÐp‚´ÃùNœýºSNDÅ1 y d“ ºˆ’A]51ƒ„ËÐOVŒpe#ÀÅËCÛñ@Œ>j#<‘ÆÃŽ¯ÀÎbû Á’¬H¦a¼;æè[( 5Tg}¢i:]5*q2¾t`Ädrãñ$í é3è1- ºÛARn§˜­½ùû)˜ë DPKÉðc›IÛi'‰ ìL+a³ÇÖ&þݤï0×ñŸuø§ª `ÈÞõŒ3§Ó£2šš«[šŒìm³\k ýþ'¶‘i £F©áöÇž/‰Ð5ÕuAÕvcñcNÕTÚ^þb‡Ñ׊= ¾`œ# 2‘QI•ãí@)»z]NÃVsPÇô¾,_^ˆÏý)¹ÿ=‰Ú9掾— àù_ðÞ×Éÿ²¹ ¯—÷¿ð±îyÔ¿÷Ï¥XÃb%ùŽxµºÇTís¦¨lÛË7ì——ÉÅeõÐïÎgTË°èh_ŽÌÓ2½.TÃæéØ@[¸»9§]Û.QL[;:IÆ­Ó¶Ç)$j—• "8Õ *;¸›·“Ü8†™íî' < äa[@¥|AKTlpE”]#`ï{}  íxJiqŒüvR©ì IIzÒ¯–¨ïÝbÎU«žß á)nÆiš„?YŠ®5•(z¿¤$·$j ÆÊGS[lMºÂî'ÃÝ1y+˜En¥[qhÉ]渨…:^©h·±ÉžMtI%o´V ý1Ññ]Q}âi»hzT§¶è  Si8kXw¦6Ì‹0zË^ÆhÓ]^"y†oy¡Ù8°·†aí,ªøÝÄìó`/}À1~WÀOp Û©Ëî©^„ä=/æ%þxÁ¸â×£>šÏ—5ÿ˜>N&ÈYkOñ¬Ó.Ü¡Ìј‰ñµ Ck/¯¹àˆÎD8¡r·DVQ´ÐŠBÝœ Æ46æñf£t¤é2¨éGeÎHΛ¦Ÿ…Ž:vá ”z¬!ôÚ‡;+ÅØK'ùA:øŽ‚?0¥^<¦éçOƒ6:u| 1åë,šùhnMpEf^f I9Ê öG]PÇÑx4a§¼Hr9¬sçDZÎƹÖ{˜>‘ºxefšTVÃ2ØÃ"‡lˆ³|”¥íCì(iVárx"&Ñáo¶fÔ7Hpeã^N˜òÕ‘}—Gÿ£?}¼çHþ!Îÿ­ífÓ=ÿo5–çÿùØñŸTšoDðØë—©çïÌô Zý;‡y”¨ä; «í™7%[±˜vKΞ328”Ë®$.Ò0rž“{âÏïHò …éHFÕbÇ`S ¨”ñÇ›}‘C @ùÀ³´ç9?þ[<ÑH>£à®Œé+Lœ!sf(J{óg”ç†PÓÛm×ñÂsá‘Ô€~V×ÂU£ Ð+¯ ÷–l)¬nÊ+ð¢ ÓŒJbŒ—Ä·#Aøö²Êï/ìŒý½±áæßl67–ûÿC|Ôþσξ¥ßÈî?|’©Ù½Äñ6êÅ£‘ôT`û¹ µ ù­A’¬žX§*Œ£/0¤,)W1Ü•ˆÅ%N˜OQ_/þ=¹]ÝQ;0 9¥2ÂØí庘×Q"bܱSe/«º.Ÿ—Í ÕÕâ¼@yk,Ž74äIïs“‰é5‰# øN?"˜;Ç´Ôš¾ñv’Ã{*;Œ£Îåp|~Þd‡ä«èTVDŠëé\&ççéÀ )¹†CEa–Æ“nÌèô¢«xÐ38{å—Mö‘ÏG“,ÍcŠ4l ë-æèK©ûœ¥ûDëÒy*†Âš‹²7ÞÙhö©ª§Çœcb2BÆÔÒäT˜MŸžÜg5Aiá©Wñ’Ù=7”Žüv‡²ððK›Q–ìŽÛ–q#+3e‰v(ǵbä¤*´ag„\O–Ç“oê3Mþç|Ów?̺ÿm5]ýïÖf£¹”ÿâã•ÿyà¿‘S€Œ ËsVe¤ŽØ[þÔ4ê¯&]ΗJîJå¦L§.´bmÉ$©”¡‹k§7ódYÿ“.wS ,ä|F—,@ÿ?eñ7«ý4íÀqÙà0¥p&¿¦))¦ŸE]ÜÓ<שŒäí^Wª^4P6ƒ¸×ÅM Ä‘Š•èjÖUät£†tÓd4ÃuMN,êZeqŽ—ÅãHÖÜœÄÍY‰ŠPªX³ê]ðïrð}|¹‘ÿÿþÂí>òà{QκÿÝj¹þ_[Í­åþÿãþW$6 †¤ÿa!åA‡Ý¢ÿl‰àÕD°*›s‰Íàq ­øÿ€Q¥xZY7DÿŸY%YÁ0À.Åi½4ˆg?Ê¡ ij38ßýç¿T0Oᩦò/4VW>_4]—NÙÀ ¯„ùë`Ä%ð"L^¼Ù½R!6k…!S­€Èb’’uŠždèý;E¹©6•°PdÓâŠ*+NŽÒ øŽþ‡þO‰?Júñ=ª„^Ç1¥ ÆPß½t€YJF˜Û)Nw"|,b＊:ð.ÍYÅÑn’þ¸O¡Qˆ3&£!§,-ó>FÀЬ×gû+vƇ6ÛêJÿTÐ&}@æVD¢b¼ÁÀëFc,6nLM1:Š¦ð.6Fi¹æ+W6ÖºÉE2 &q”UéþÊy§p]$?„: Ù9¡>éþð¤ÿÓÀéM/íD=zý­VË1£ Gï#Ìù‹ˆH_ê†Ê . v‚³¡dÖFü¨? ÿ…0ÂÄýÏ°Ã$šV žLàƒ¿›ÿR±xÎ’<½©Žß¬-Bî­Ê~X{Ò_{Ò-§ìÊ—%é¤ïói–Ÿ0ªþZ,L~jÀ ÿBé¡BšÜzœN ò×À‹'¯vž/´¦ŒV%”VÂ~2 GÆýŸî³£zÖZßÙü þ¯‹"'ím\Îx0}t¸Iþ·µÁ‹¢?:±ÛÝü~KG¦Õ»5Éßaå I§4k«˜Öº‹ù±³è ëÙ2÷9X1(<×'ç}×]=¬¶Ní7v„ÌùU#V²Ø 1$kÐÖZ5kÀ6ñ'•ð5§ij„zS»Mû·&÷>U/›ãR ‚V%w6Nj‰ÆÏÍfRE–—T'8 ÷ízð[œXRrû徤p˜# á•x¯»xføÞy{½ÙXx€u<cŒzxúé_x~E‡Þ³q·×›¶ô-‹J·šôÕwœB^›5 ªÅS­l‰o…IOÒê†ï -ù5W>BÀׇmë<ê?o«Õ÷4öqA£X&6!×YŒÝÛÊ3wEÀl©”ûÒG^ÀÓ“®åÐ8-`Ë´ ù Í 2H „5ZÀ¦h««œíÏžaÙbÈWwNÙät;ÂDFtq±›|¸ãˆ½âÙZÓnGÐS$é=P(®j]+õ¤^騦¼¤Œ(“ÖC ú{AÓýAØò£aqÃX¨©ƒT‹²¿pa&en¡¼ÈFüpžÖ$‹ŠZk‘Ž XÌC|4Oݼ—QFÛ×ZÜŽ&¢Û³ÛXÃ6Ìñ(lG]N›î,5a Æòs—ÏýÏ}™ÿ̼ÿkmn¸÷Íåý߃||úŸ5ÿ™ð®Æ@¨ºÃ‘Ê©£ƒ£FJu•ª£à”ØԱ͇œD^$vùÛq"Gædœ*› *MDeNFÚtˆõ[yÜ–SÏéCÀ&†s¡¿¶1WVÕ)ý6µô»)OLw±ÒAH‘8" ÷ħáø¢FLcÂ$´¢–=˜5ÇôhN“&SZ–6I"¼©°l‚E†—ÐL^ië´«È+„-!c›1zJx3‘ìƦ…”!µ±Çñ®Ç(J u,Õ|K³…3™ ,ŽôŒgØNðˆ-µîÓ |ÚI0äé@ ­Ö‚U‰×Ô¤“ ¦¦Ña÷@ØTž\£²Pô;!~Z3F%§®J§[㥈„e×°H¶)—"å_áã“ÿp~‹³óÌ=€ýWssí¿[ëë l£Aö_[ÛKùï!>:èÒ¸07–wgRb²„Áœ‹¨Ø1°0-"ª+áþ‘_ÓÜ‘øVyóC}ÓËdðcŒ.µ’w™”ÅÇz’Gmõ~ÿf!_þ‘&ƒ üÀôD×°á& ™³\& X4u°p ±m*$Àþ¼º]1€Ã¯AÞ¦¡H Ÿ@õ®*˜©Ðeà#îp€ºbuÉtDç ‰?@ÒüœõÓäöÕBë!ÊÉæ12~Ažò(J˜då—,nxû¦kó{³2<©N©ê¼ž£&N]• ȉ§rZdñ°u¨ÈÇS%ÏPž”Q>³˜+ìž¼Û‰°íâyN ¾ê‹gñoÕT' QäuäcqˆbÐþÿŠ¯ÿ‹òHÅ@Qü}Žr‹ŒYfTÀesÕÿý:·//ÿ¿¯ƒ¿øÌàÿ›­f!ÿCcsÉÿäcÿ¿U¿ŸëÔ4»ËYíp“;Žz³O}˜¥go8|…¥g%`š‹^Ú†¶ÀàWªq¯Hå]Ø>¤˜©ýh<ƒ^§¿BÙ;ã὇gÜFé°_Å=yP‚¾sIº¥k4»D˜r7Ÿ˜Ì0Íftèð¦ÓwãîïÔÎÜ ¶f¸¢ùtHEŠŒ²©cgR¬ó…4*¯&Îü¹:E¡bÞáX$+]_F ~ñ^&û­HÌå½`…9¹èlÅètwNSqŠ+Î:^±àŸ;Sõ¡¢¥¥Šo©âûë|ç?íîs?gÀYç¿fsË=ÿm·Ö—翇øXç?=ðt¼g£_Œ+Ûa Í¢ÁÜ÷6E4¬ÉK´ÚÀ¯MÚ9›V6­››õÍR«Úf£Þ@¡ü§Ÿêj¹Ù6«MË ‘oz]#bµÈ«Ó꫺˜v»w!î¨ÎÖ^…nps¶iŸE¢½gûJê3=&n…[ñÃnÝ¥iÊ-á³Z?´~šEj6·Ìƒ©nó‡¦eÓMÏZ?¬7ç³êæBŽM=RUzœ8&é¦ë‰I¢ÖÝiÔ­÷ë—BOºuú< Ðþcëcù^lŠ§ÕùiWtÞ°M©ëªó߀[u Ý‚Jkã23í|v{÷£4ËŸÞƒ/gѯ­Äq5Þ¥«³|§«ÍÖzmcsk>žâ·¨_‘Åì«]Q\ز€ÿ0 ‚ÍïdÕ]´Ÿf´WÙê™ý–aÙŠöv c—E¼‹§x+ôÍC!5VíL!rÏ<Òµˆ¦“âÇ©‚×Zô¢ìd´ˆ5¢ì“A0¤dŸt;Q <Ä£.4KÇpB‰ñà?â`¢@<î|Î¥ió9ÇeËۄ⤊•×5%Ëloä=ü¹ÖDÜ=¶#f;g`&-iN¬n×Öš†‹2Û^ß–Ç·ågÖÇ{þCSú0az8«¿¸ýo‹l>ûßÆÒþ÷A>æù/ˆqàƒK1òߺ°}+xâ ŸS'óùî÷Q¿È^ãVE«[£0Ê%¨±–Ìï^ZÔ‹9Ïô©ð®u·BP F_âî§ %–Á|cæFÃuNGÞ‰,jŒÚ»¸Gy¼ÖTéÔÌ^Š¢‹'k9€Œ‹…JÔ¾ŒŸ¯uÜ%ê•BŸH£_áFÖžÿˆ³tu¥ùCc),%‚åÇùx÷ÿ›O8²bÿ¹QÐÿn5–ù?æcëÿgïÕÛ—‡ßˆP©Æ—{¡Ô½ÌªšÏ ½j—Á»`:ÈWÂfè¾#f¨Îÿü´å…jøþœ™Õªc¶Òh„î[ÙÎr·ZîV_üããÿ¿fÉ=ÝüñgÖùoc³åðÿÍåý߃|ÿÇA”ù ,·èâÁ"}-™@•%Ý?ÿµZt4kÔ•ï˜Öz¡Ài‘‰q2GÅůC‡6 eêTuk§œ¥‘31î6(A£øÎJƒÝV-°28ªP›vÕ¦ªÊ¨özií–·vsž†×íª-QUØ° ¬ lz{ÝÒ¶¼Ö­¾•#¸íE°åÖžÝÓ½hlè?y{º¡Rê11±ä¼×éc üuŒé1‰8F)†WRp),eƒûùø÷ÿt<¼G`–ýÏf«éîÿÛ ,÷ÿøXç?øodÏWF¤½‡@êŠÔòª¾iýitAà»!]ïºÎšáÛ–RƒnAµNÑôýÚ6xWÁÓ÷‚ "0ݵ’ŸÒiŒê!R!A´´®-Õ\KÝX‡“8iEè.©/öwUÇ{&=êëlàtõÓûšŽÑç⮽ˢn’TïNÍWQfàt4ý¡fX½ÄÃvOàT† hSP× Q´è(¼Ã2mæ\Ï«L¿بßI«Š†~%Q»§Ì›à÷\Ã[Ù.AtÇ…ûd …ÅÛm5µK–!È!â–CaŽ„ ¾~]œ÷F½–¢Þyª¢ öÒ ý‡O*hÕ}c(@@u£êÒºù×£µ1™-°ÆjVY·h N^1Z*e&¥¹¶ ¾ìèÆ0J@Æ辸oé`47ïe0%Ê3=ìw¡öD¹6sJBq-×^×9ËÈÝ£l÷*˜˜†¦lÿú4™±÷ŸœÃáO$,ºþðVê·EÓ×pÎBG©<ŽXÌŸòA7| Gõ»ÑuyL\§|ç¿IŽr=Z'>ÄýßœüÜû¿æöòü÷ ëüg ü7r ,¹| ÐçVì( .ÓÙûû8L±¨pÔ‡HffyÝxôÝw‰¥ŸÃAàDc` žîM(O…Œv>Š»œ9Bˆðg Vš{ÜâÚ-„^¨g,Õ@ÉF£¤ˆ ‰½¹Ù¨úðâl?Dà“ý„ß×›5îþhM©(L¬ŒªMLTvˆ`æ¥yr«MñÙŠ{ÿ,0ù˜ísziLt£lÅn{KêT‹Æ]æì:‹†¹ÀbÏ@q1 [ža¢j$›¾dìÜø#è2››ÉáËz:“Ž¥ 3wÄUZ¹K,üð4x™P>øŠÕ­Fô§vÇ>†û½8ʤ%XŠ¼‡U)K˜(P• ¿‹ý…³¸X¸©·Y|å2„ç…¯‘žÂøã^/kñ-ÞÎDòE&zÓFî¿qVOK‡š‡à éŒøË›çBõQœÝr kx,Òa0óN¿‹òžÞ y4ûŸ E€uøè×ÖOÕÂö«^ Üj\$ÒÜ À–ÐÄ™Ü,ÅŽnÝv‰¬h5/DFÑqµÖ€EdÚyуgp>"|ÜùÑjèì².¦!Ï0‡œ^ˆÆY‡bÔÅÈiÔX©TY0_ÁüŽEJéî'9µÐïÙü®ê<›gc Š ™˜ÜÜ¡çô´à2¢¯nУóL)_÷ Ò…"°¯²nÚpãAå b`®ýnÜ‹G@¶fœ¼â"?€½o_SžÛùE³Ü]8–¿9öÆ$Å@dŸ@63jâãkÍSŒyŠï¯ÛZ¼®p¹áPû²Ÿ&Ó*ìï=¹‡™„ã0³Þé” r„*DL )AÝáXÊT΢êß{Õ0pÊ®ˆñ¾Ñ)é,éÂFùçÜEÇÄš?Rz]ÁfD_Ëó4 Ýá«Á/èËdzJ¿ ]•Pfww© Xê|ßùŸ´Yzøâþ?ëÂþkk£ÕÜ^ÇóÿúÒþëa>ÖùßøoD`%µfãý9¨­Õ£ƒP¥Ó­ÅjN 1öÉOd£;¯™ÿ,j#RÇlQhßPæðŒöls†®Ú$bL#Ê0„×ôýZE.êI}¹¶¢nÛ¨Œöû†¿ÖSéûo1¸ººgØÅXW†|”Ž$>ß óñàsŒhµÓ¬gâÖKÃ0¢ø¶Œ‚ÿ\wk2ÆjÇS¯xÁŒ·JI¯ûic¤7U×—– ¿L½xÀªƒ_aºcüÞ m`(úˆ?ˆBœÕeì<1fâËÓ ©¢âËw»AkGº^™c,äiüûô/í¢\¶C~ѽú›Ý„ÿÄwÿç»õçéàAôÿ›Í†kÿ½ÕXÚ=ÌÇòÿ5þ«tþ±&N.1.½CªñYô𣇬T(  ²ÿì!ÿü—ÒäVlã‘âÛ“É0¾ÎÌê{ý<¹‰»Þ7ûé8KJj™M¶ðm˜÷¢‡·IFxQNG1DÕ<ÅmúqFA¶&Èí´×-‡ÛlyËcD—©¸ ¤ûe–ií[Ô›¿š5–ªZkÃSï6è“(C@êéÆpwÛ7ë¬5ç«d÷uîâó‚Ÿ1òã\•[4®qòñtu9›T ü›ÔÈøÅ K»7®JÃ*ãsLˆ…·dœ`VIB¡N^È×Tc„(í¨à¾A”]ä5€Ù!ݨ*ËêheK¥>6N1£î9ÿ`=XC¦rTXÊ!C”­ÊìB¤ ÁsÔl»ÏiJ!a5ü±£à„jõNšq±’Û:¾€l5j§7H)Œ´ 2 QÌÞ€úÀh1›ôkÄ’¶þ ò,½QGïŒëöS4cÃd=¼kÀ@Pâ½Ô»¯oÖŒ§ÖI°kuÅ&µâÆåÉc—O/³‰‘âÜ.ß_ɧûü´ª;6¯MŽôv³´©ÉFµÆdÄEÔ&næ¹G ‚ÀÒªmÏcÅh6†=<¡«dŒ¼ÐQ~°n‚?Æýaþi^‰Ôo½è“ Ëq·WøЄUÕ±ÉߟÛÒ@®d—¼*:ü+Õ¯Hj |,‹Vª*Þ<ÚI꿱wí%øÑÌÀµ0²Û©\¼Ä+0ªþ¤â˜mÖ ö¥‰I}ð°ð»8ÂçáÕRɹü|‰ïü÷ ÷U<?‹²8ÿ5[ÛÛ…ü¯ÖÆòü÷Kÿk ü7¢ý‘ëÓH2­ ýkGÙ9a|”ñg éEýv7Øíò?;Q÷Dà#=NfD€bJxêÏ&ŒDΖÎ%9Ó&Œ¬Ú/"Ù` sXèGšXb ‰íje¤ë˜ 5®{jxõ`3ˆdsI®U¢®(ÀXˆâYª u À¶dd«+}1~»îˆ*@EÃ+Ý°‰‡–?¢ZNÁf¨ë[ŠtºqñÍN¬b*#¤ ¬Ç›_üŠ‡C’àÃý^šÇ™5 âþ_-ÔBñ]×sÖ $´ãX¿Eñê Ú쑈¸ƒqó˜²Ð°ôì (3›ÕÁa@¢Š‘œi&ŽL ÅC&Œ‡ž‡]™Âý1þ 'HÇa”Ê{$«xÝa "5“•\=_6q0>}8¿ÒaÆ Žt†Ãõy wâ¼q£ž;‚àèq= Ê,´eT@µñÿ•ßÖëõÐ9›nA´ DÎ1ÒdßJüû`?Râ3ÓÜ Ë¨¹S kÇ™T2=˜àìGp V~HÏÏ=Ÿªÿ\ÖSÂ1ä©t]+%¹ºV„ü³Þ?&ô£ê yëëw‘|‹÷S±!Ë'•ŸË–V(lùDiÈ6ú™¼ ‡î¤W±Ž¬nÆZ·X‚ ¹~<ŠFã|'¬p±;x3COdÔ_+!Ù,:,'Ó95à„¥äH˜g #½³tg½I°“@J‚ ”\„:PÍ3¥n|&˜.ävÁzG–ÿl•úiÀ,BÏy¹€„Ù*¼.V>L¯J«òÄ€‰ E‹AY¡ˆUÚ˪ð¦]ÞroCø¢¼15nŒkÒ4—'Mp)¨ju',ÔQˆÓƒ,K0e3Ô‚¶^ˆc ;ÎLŒi‡3IüT‘ñP5†Â«¸„³.Ô.åX„Ê€ø¼¹’â|G<êûÂŽªD“:M­´´¨êhñ…s"c -^>+ÔC#ÚÕ~‰ÉÔC2|,Ä™-à•§×RÅ‘žVí€ÚTø–AqTyƒ`tOØ/ÔC«)`9=•æèmC(lKzÈ(õ¦T´fÌU7í!£mñA:EC(…Œ×Þž™\Rܬִ%”„aëž|gÛn|#lmq8Ñϣ腠¶m¤Að?¡UÀï¸ «P+´ïtpHCha¹…÷N8ߤ#ÒËŽØ2 Š)tþƉHP—®°ª"µº #`×)³w\Æ*â,ƒãYãëÈì‰S² ù"SφCuV9ɱ-Õ39> ‚ŠêRÔ¼NF_&Q¯ÀðU½åÍÍŸtsãÕÿߣî?3ôÿÍííBþ¿V«±Ôÿ?ÄÇÖÿ£ºC‡<]c,=•K”ÅBQ¬“kµ¾ÖÏ¢MrÔÃ(:ˆÊTÉJmP<7ÝFs¼Ô/µÆK­ñRk¼Ô¥Zc)²edžù—S±»þ½”ƺãߨÊ8ßüm†¾WÊ\j{—ÚÞ¥¶w©íý«k{Q¹Fì`©÷]ê}ÿ¬ù³Ô/5À_Hì×ÿjÙò>TÀ3ü7¶2þÇzc}õ¿[[Kýïƒ|ý¯:Þ|k*à·3!¶¶¿äÉmeú‘ÍÀÁ»t96…8Äaà ¹»™ýwüÉÜ›"¬•Pg¦'¡áèó%TÞÆYòR(0PÅHI|I¿3ÉqâŸPk…_cî^ãµü‰‘ÃZÕ¦ìn(ð§PƒÖ@솬 ¹goC8¤lxli#çã? Bˆ´ô|.¿¼<0ó€…—ûæå¦sžƒùK…(“‰ÆEr%Í“0b¼E7EÆ&f±7ÏSh© rÒºÖüÐk1ZùÇbáªK¥1æ\Xæ^[a S£«¡BÎXW{Ù®h)Ia'É À§úõ7 +V±,(t4¸¡°Ë éx5~ÊÀY<„q¥îwE nd)…ÿ[yÐN‘ÿ€²éÅ—ÿÂ~!þÿúö2þ߃||ò?ü·r fJX’.÷¦)…]þ-Ó[]¶#>(ÒntyËr'W5"…› 0ݨYò–: ì¹ gH  ¡‹˜ßuu`˜Ö“N:@þX)ÁÄ-»Ytm;Z :´l:´ Ã³öM õ€›ˆM··¤è.öTÔç; „²•¾ñ ¯/ãÁ§f¿éô0ºFÊî©ÂÄ¥.Cz¸7fø쬌úšZœ!dØ>ëBCD&nÕÌL¾­¾ÐÙåä:¥.aB+c—°jÓ¹eŒ‹2né©£²nÊú£ò›H!= o10—QnZÐÂ+£CÖÁ%R·;5\ äS1&±gœ%ãte Yè‹_Ó´Ûžý÷Æ ¯\¥ £I:ˆ²È˜’¥¨Í‹LÒÃVB:·‚ä\ë+Ãíœ+æsú˜óš¶‡Íž¶Â¯‘“O ö¢àŒxxUTo€}ždùè)l¿ø_8ËÝ|l§ðÏR“s_"w8c–Ïl}ý>[#"2ì<³ógš(o'—ñóÞdFërŸ“ÜIìsÊ÷9qiúArG84m‘ÈdƒLþªïôILD7VóD@Æ»]uW­šùk«›”ê;x´×9ÓÿI,uUXÄUw0c™`¬;Áú¿>2œSŠ¬EQT±º´ËžGò\]]±¹«¸Ñâ‚M|¥cüÖÇ^ AÂå±¥Ã^¶û[›Ê߈‡a $âYÑ ÷äÝ›b^^F-°½þÌýé¸Gc“^ ­½’d®<ô _<Ò¼W…1ïr_×]Ž%GÇö˜ÔtÜË íl$©Zçt½fÇëþÓ°WGÙ# Ò2üŽO¬p<,°t“¼Ÿäê‚·#¼xO—,Œß¼¬AE®YùόꎬtÁÂ~ÕÁ¤äžLˆMså"PŠ»v"(Ã^drWQ0[d¡Zôë(Äv¬š}ÝçéîÛ¥½Á—¥!C\«#U¨'i•ºÝr$by“tžÊìa%è@ J>°q«ðŒJvnhl]ÍÙw£ÚxÃ06)å2äÅûÛSTeÄÍûZç.qêÝaDœJøó;Ê¢ô‹´ƒT+‚Ö4zŸãÉ5Ì¿\ĸR¼D3&±°åÉ‹ ¹X€|ƒ.7ì²Ò¥ ¹¥R½×Pl&?ý.‘­ô³›ïð2½6¶“µP 6ïW‹ÑÌ×6e®óùC_ãôŠ’ .ê|Áª ü•r#/ÓqvÄÄê‚g¾y€ /²hÒÚÄWøm“ò‡Q^Ñ„ÝHèûeuÉÎZjQD›<¡kbñ¢zJî r(+ÔÈÞÜÉ"?2Šl}ÂãÅÑHFŒÃzÒd˜³%h QDs“Û5«s“– ?t5ÅfË@öx„EEžá# #¤ùÿ*úìD°çô Jz]öQP¾h°„Ð.‚ƒè«c{<©åŠ´4tÎ0^ÁÄt‡TžÝã™øYsôYü¥0›ŒtŸœ›8Ç›qÓËSÕH]nNòh@7@5ïl_Ǿéã؃|ç¿×”Èø@(1¿øýßúV£Q¼ÿ[žÿä£Î¯ÒnÔ“ §¯í?ýðw/’‡PjÍð•´æ³õ»(<Ç¢¼RæÐï*?JúqvÔ’×ê"7“+^E!»× ÌûÆPÖÅ-ìÁ¤9Ž€A`7Å- vО肤YÄá:ÅG˜$õ‘R-’Ü%§¸+n²ÿž¡õ™‘¥º“ÎR… .T”ô0×YW’µürÓs‘i*sÕªN æÁ½UÀ]ªhÒRê Ù¡R˜Œ$óvNö¼üК‘ì>i_0šx“BÚ3æyŒ)AüƒŽbݺÚIëÑãn8ŒïÁÎF=²³'oiR{Ò›¶‹ž»(3w®¦–ë Å!¹* cœ®è Q¼ 8c°³¾/™€³Þ$Rzl‰ŠÞܾNe{4+£³Æü-ÜãèË–ïä (Þµ4mÀôšÓì*¿;…•ç†d¶Õšt$´»èNGý¥ìøo';zå¿t?KÓÏ÷h–ü×ÚÚvãÿl4–ö_ò±ì¿äÀsrŸåý ¦¯bã°›Äm싲€rgwËÝ%óßG`xöhŸÅM꽈eœÕ”ö‡cíŒzANâºzèAsµí"õó´3ÎÏrí9ÍèwNÒ´‡öȤÏÁ»àÐè`¼…¡ دø½2$…Ç(ºÐ¢'ƒ2P£Z·$Ÿ„ÑnLz_ÇQ©0p7¬¡þs±i79 ­È¯[3²…Z 7'úŒ’an6×*k®Y:ÇÀ}Fãá}Œ†uÏ£q™’Þ>DO¨çIÜëzhãzCÆÇö‹zi¶÷RŽa²Ú핆´hM_p×)ˆÁYÄýáhBMä3Öš`Ä™9ˆÞbG}„-ª÷°ÖfQÁü¥¥¨eRß¿ÞgšüwÖzÿßV£µ^ˆÿ¸Õ\êÿä3‡üTˆ©âi/¾©~â`RxBÍ…²MšåZö)áÿº}©CãKyÅE!MtÔ¯°Pú¼PZÇ3%/.aÜ\HJ991FQz.p'·èI§‡ïàÅ¥ºµƒ·:œ‘E?õNý©¨nÕ4ÎÕª§Ö‘öfCYx†»:.¼}üQχ°|²q¿²U šõMüÓª¶&¬-MX¹&{w·ÉBçyÅì·V õ7=ê±b¯°;"[µz?-o.Ð2‡x«Z㈱üب 'ŽQάTÅ]©R7cì¬sz Ýùø6êÅ£Ql‘¦¥x;ä·N;UV 5æË¸ï– 'ÿä– §†«!è¹}ÄgâdLÐêBÖ’êVÉì™ìKùl¨Å3ªéD­1-;m;=µÀY ù‹'þ¥´Ü)D"b2„žhC½ô:Î|U^â _ åë«ñ_øjPÄ_•C¹Ñ()¡-É|E|Ãiß‘²Ïˆ§È¬”Ɉ/€ê_l{"ù•MQUc¦ÍZáøå G<þlÅ¡kÇÙèÓ`È@Û—„Þ)] aÏ€#"M½ú4PA\‹ýøUiõ}b=ŸÄ|Š ÎT â5-? rnª@æµôœS©1T°øñne °˜J.ƒOÈÃú©Ó3¥¤A=ã©Ðb;41 ç!G”ÅàZ3¹~°&F-³¦g áǽHÔA¤_«šgKÒÈN3”tÔo¥òQ­J\GÊ É^ Ý4æ.ug@RæIâ îz`@¡qã¬îçµó*y6•þdÓÆ?Ž{Ê«4'RUª©´ é:ê›ê'»€pè”)‡åU}Nß»l(Óµ£²N¹â…3¥ã÷¸³,F ,²]û4ÐfSLÑyúÿ<Œò¤EÕv~x~pÿ\㼦F‚ûÀ™ù1\†&FcÇvŒR b³P¼7Ý&èyq6æ¸c}϶Ô,„2ŒDÌqV_€iºœæÇÙsWéEŒzº¼bHÕÌyRñȆµÀåŽÕš#ˆ:‹ á{céÝÒ½â6„ ¦Å¾‰£2Ha vISñ^Ä`’m/Ô6(õO:+é£×™¡<=§Ô8b—JåÃåpßL')F+„U&BžÑ´æëPK-^\Me©ƒÔ°Í©Š5ºlÕ³#Ûhzâ4K >³{¯ ¿:k‡4ÚÒLî ç»QfL&ƒÛNÕK¸˜@ ¬öÅïi™iNq‰¬JÖò*Ò=÷’FÌDwìU¥/?ôº)wäDCßX{ÛÅaþª¸.Y;z×þÖº=qŸ˜B»v«ÒvuÄxÅ«žî:W4·ç¡b H÷‡‹T^WàYøÂÃi§ÝOxy­Ÿöƒ`ÿdåñù81?ì»Oο…ŽÉj GœšÖýôâàù‚¤â­‘¸3­èßÍÖ&††mmÿ´Õj¬ëñ2Ç”ŠÚaöyÍh<>&Lê/¢¾PÏ T_ þâáê—f>ÿFŸ©ö?ëÿ¿ÙÜ,Úÿ,ó¿>Ìg.û¢ŽÍùÃÚÿ ñÎX(lv„âBxªv´Ùši7T1¬Ùðwu¶]¹düNMÐËð/…–ü|ÉÏ¿ÿëÛÙáÿë[Òÿgkc}}«‰ü{ÿëa>ÿ×ÿm{ýÐÁ10>ÎãàDÝü¥ƒ8¸¤Kds2c® Nse%>aÈS‘CX¾§”Àa>ŠƒwÄœ£Ë´{æ7v0Ò©ÌH³™b‚m†¶²ã·²‚01–(ø­±½ÛÑg Õ¨P¤¯I×ð¯vŠ¹ð[]‡§N#¦©ÅŠ§{Ìè£3Ñ鎮â‹ØO˜`qÊ °ö'4»] ÛYÚ³p‚ÝÆgcŽ²,Ñ×á¸?„Qe‡ô²Þºþègt|ƒgkƒª? S‚— tþîäàÕ*á¹Ä8ïóKJ¨Ü¦´E0æq³í*{™‡x!r°Òâ@¶jÐÄîÙ"„Áò¹ÒóLè’µ¥c³ÕR•ƒäHt1 qŠ»Ü «Qð)¸H4Àdè˜k^,nÊ>RÌ¢8¢CaA‰֭𨗔«äfç x’Ãÿëx!òÉR6zWT ¼ÌX¶6¹öŠØ,9%úà¶4rkÁ‡Œ9¡Ê£9ªjü/¬ ù7p÷Éo£AÜýC€=@üW öãÆÝZú?ÈÇ’ÿŒÿF@Sä”õf„Èy| 5±Š8¼[®QXm¹óIAZŒvÃ+x>,1ï.„õ–*D fN¾;˘|wƒB¡#oäë€q»”ëì’­ËËUD„Si®Ÿ'71fvøGRÍ’,‡×d‘È9¬û 2Ãz¾E7ôÍI¯&áa+”-¬¦«óÁGTðkkS´ ³Ûs’bÄœ€Z—öšðš—’F´vßͧZ˜“{ ?Åd »\¥Ÿcáå²Þ›Aü~HÇ"ûQ}U-ØÒ]66îkUâúÀõ"p}ÌtŠ{ǃÛWDšØÓÚôÚ×#­ªÈ í©ü :URûkUUO³]ñ^¼Ž¯ß’œÝ,¾{†GKË¢Ÿº×•zmé[G"óÀ¶øÄ+Xc6¼&T¯SfZ8¸ØØw¶!›{¡,×·ìâ/»ª Ïu§&„BdÍs“je6[cڿͶæÙ¡dYמq`[×,´‰ÉjsïcV…¹7‰;îf‹ïdvó·\I¯ñ° ‚[/š¤ãQ¥`أƘ‰^¸7ma;/,`„H0«QµAúÛ´2ÿ]k¤×ƒÁ4—çèoúý­~¼ç8Ý G÷–þsæýÏÆƺ{þom-ïÿäcŸÿÿxKCn ö†ÆP§û2C$‡Y•^¨¤¸ÌúC„2¾]RòÍßdáa”ç˜QA†M ‚÷8ÃÇi/Ê’€´ê›|µ4]BUŠÊ€5E£b«µÛ–-C€Íöz„ Eó5…ÛÄm˜¢ÓƒŒ™ŒÄ-Tôи‡Q¿íe˜ŽzLDhT™ñ¶3NJ…ˆ1JòM¾õeddû:B¾Ý‘¯c vŽAÃÎÌ«Œõþ ÃÊâãïO¬f¶ÅêH§gG=-ÉèhŒ!¾¨ÈÑÂÚ“‡×žÙ¡Ñ^SŽ¶|œÅÿY–ŠS‚Æ1(¯UvñîWm,Kºx?²ÅŒš3ýã¼ùåüC6%p®p (¹Î[È”ú.!$Êù(qæxÁ=Êe¯2çŒô†*KžEg7J¯KÆub.21’˜s÷YÐ¥“ÚЉ0¼”—2â}~|òß»¨›¤Çt!ù ÷?›[ùoyÿó@Kþ3þ¹ÿñEÁeš%ÿÀdE½Àì‘Ê>EïÅ6n˜jtQˆýÏÉÚ‹ö/T㜹 =9œ»¡–~¡¯ƒ2Ä.$C ¯4jÁp¢<úŽŸu¾0"„ÑZ |ž‰£†¿I›²”ÙQ2¡¯/ã‹q Š­1D};< ”ù¢¢jZ¢‡1@}ØtKQVþb ,|§C(åƒöJ´ñi 0ºÍèÕxëý”7‰|hšP‰gSFxú°N'_ax÷@úèë§Ã‹ 8ˆ h´ß%˜wÇ=¸6’Æ Û/ä`˜²‘–—¦žñeÃé ££¨ûYóÙÔaç2£ÉˆmT£¡à›[|cÜÝγ¸5œò)#ó×> „´‰5õ\ ·ÔsÏÜ©zº?C›z®`€Ÿ:o^E=šÏã>~³¦‡…¢;E¬—rš´©%d;%S©teøBÏ óç“Ǩv·É³ÀŒ1Q½íŒ±zÿ“Å¿ÈdoÏ8Uø:N0aš?ÂÆÔ±žË9ñ̸Šæ,2L]é©]° ½’ñ½Èñ‡AS© ã¾ö'GõôX¦Ä€øÇB1SÿF$ÎoÏd(8h£TF9+áTw1O¡º0¶g-Asß]ÿ÷¢,OäxoˆíZ÷s‘´â 5úò]á2O† GFgcv‘2ðkÖ8ä±Ü«vÔµ®ÜI fó†›p+ê–°Ço‰²{NÝ¥>áß[Ÿà=ÿÇy:Î:ñ}ä~ÄϬûŸíÖFÁÿs}yþ:ÿ¿ÇmŠÈ&t#8 b‚z+pëÉg1Íó/¦ÈÉ×fš‚Ó&CíGÁúB‡•LRw™'h2”s í Ä–úí8Æ`êªs]eD›€¢”¬ÿ{\ßû¨¤øCA`¬Vd°Í;ÂË8ÊFa±(%O± ³iz êû*6LŸ=¥.“‹Kº1zf‡i<å0X¬ÝÇá*RÐP·PÉ _n\Dl+#é?¦4Òf&ïé š€ÃCׂï¿ÿ|-¬uâsŠOg¥7R˜ó7I—êÞ†jÉ|柯k.Ǭݑ¦.w­B9ñ!ÇW@ªÖÙmD÷×ïä‹MÈd7RÐ×ÉoVWz<L›~¢“Æ*üs³…–î7º¶ÖìÚ\wà %Ÿ!‘›¢ûa%Z&õ|ØKF\5Œý§¤l S†åŒèç…•±/téf`K“SáZL„(E$? á észÐðïiÖë~'OnwÎU¿¨ø &0õp®<¡ÈqyÔ挌GK—1åk§U\UÑ\ÔTÖôÌjFƃšXá3ëx<ç‰Çõ>³¶‘5¡&V¿ÿœm¯K És»+‚ÞÌN#±0¿jsªüw†4ùâù¿·6ñÝöÖÖV³ÙØØØÂûŸÍ¥ü÷Ÿå?{ÿÿrBàï…ØÐRJ!üðõnlzvKÛ[ÇÊü¤Ó$9•e®"à£9ušÓ¦›×Ls#QåS(™Ýé ‰ªô#gZ¶$¬Ô”n(Ê¥]H^G–Ï™š¶¹„Ãï§ývú,½aï¡FÒ[³aeÂÒÄ#¶6©>ª©ßï qÜK~Ï(U‹ñƶK)¼À(Þ£‹C.i‡\Ô<ú·8Ëq~Ù ~¬o˜ZŒ¡ßîÅÝcÔÅ°.%ê¦h¢TñR¨"„Ò7æÌÖKr©yb+vEáÓ¦¨'†N¢M º7êd)ª«pIn¹ê U¼9ò(y-㧾ÐA+•uœ%*7c\Aó¬ ¤#ÒåBªìÜôá_ŒH Þ‹åÉ%€4k!Í 4‘ªúÿ´èëfà šƒFˆcð(`MŒnM¬kÅ»‚×}ÅšiB!iQR>C¬î×8Íb²SìÒΘõ2¿a•æIÚùã-@Ò!{$“U9›©Å[í%)L¿œÕ噇¢ Ï,=.â±±ïÙgk©«K'—ÅÌ[•‘QõíÕ碜ëHf¾ìž»üD–÷¹ÖÉ6Ч„ó«püxŸJ·"¦N…ãÚŠêx±Ã#Û ÚyŽ”Š!±5;C»óiði~:寧z Ê >iÔ³AW³iÉEq>””˜¨UŸÍ¯mÉj È [TÓt¨ 5ÚæCŽì t'ç}Ié55¯”ÅÈ% ‰âɆ Ïüb¡ó´xÇÑBiZ) YÉ ÍúQ¯¤x y*ˆøý"$s¬{¼° ¯ÎϹÅÊ6z‘…¤d¤[/¥0ZA?.´~~üÆã5¼»;ùÌQrÚòyûKŸÏ¿ôÇwþ?2èWÑ=\Í:ÿocÌ7Ûþss{éÿó ËþÓøoÎY¿3wƒÌ;b¯³_›Æ@dt#3é6]SŸ'ò– ‹ ‡BSáôÛT¦;ZÝßPÏÔ}ùX±ë*k‡FÒ=q¯ÅIù¨a21ÔgvÒäW¬¨%ãè‚ðÝØX+Ô"o!¿£7OÜÊ¥°gtÂÙ]— óÄ*Ó¶±vœ²á ¥x!žk’~ëN`×€¯§+È.5J"—ýÈöQ„ú´L~VWEqi~$‘@\Ý ¤Ø)p5/®£ÀU)fÇÑEJ¶I£‰)“«$Æ p¦{ѧ|êv^~ø ^á0- @˜8ãŠ#žÌ˜§]´‹`:ä˜c€Ù—\+?zþ–’‡âºù–ä}6™Ò™×s~™ŸÉ0 +ÛÙ³ÙGW³.ëpjŒ•NÆê»wQµ1o;Ì­ÁºÇœªZoCk•ðçæ/ÒbzßI²NÏÌy‚2Ü¡÷¢P ·jƒØÖ^/VZZ€ÿÁ¦OŠÅÒ«¨W‘¯k”—ÿÈþ¨K-§"ŽJEÔ©:¬à€š4R½Js.ê3&k Ð.ÀÆsO؃ótÀ‡Ñi•n|0"纲¨ E› (ŽG¤Ÿ|Cúi€§ÌOü/’™e랎òl¨(Ê°å¾ïÊž‹Ù#uaUKÁkæÕžÐDVO& êôÆ]>QDdIXOiòlÌFžŸ ”aVÔtãĉ¬BÌbã‚R^:¿$ E ìL"zÓǼ!£ˆz"’Žëà2ÛYs”…à="åD³µ¾±©u3ö&aŒêµ!ÃEqDU ÒÕü®¦@RËL‰¯„ £Ò` (š› ½¬ß&…·ñv‚[¹ Õ)½ 9™GsnÀjÁ‹izPZÄ·DùT~¬±¹B-˜ÀW†U 0õŠzüT>æ*b›Sâ£3Š§Þ­¸ž/­.­:k:"‹&?ñ”Y ‰NWÂ% $7.· #µt…¶=3&‰Ü¨¼˜© zókÖ8Ǥe1­v*Ê(ÖÞ™ù%‘Pm±,+Ê­a-õ®Ÿt»tzhÔ7áý!h•á‰AO(×ûÆõ åôóÿsôÚÿò÷ÿë yþßÚØhl®ãù}ÿãa>Þó? ü7wü·n¸í9,/°(…£  êÀÌ×krK]oè+7v¿Ù&åPÚÞpøñ© DÊil^Y™~ÚO1ö´p>ªZÈÎuW7Ç­¿™t’ÃIO!Sy1ç¾¢S®Ûœgfœ°©aÒÏ•mÅ„dî‘f´% Úi¡L`Œ!ŠØ,[Ðóª’IάÌdâF[¥‚(@ûáœ3bº,jƒà1`ãÒ”Nx”a}” Q1ÜyÂHíI€×y’Ó¡a¤a®:ø\£Ñ‚â—ÅH„Óâ¥ÙMw‚ t(äÅè›ÍÑ¿M0Ê0Ž‡dò,¼¶0%œÑáˆvŽnì8êLšõ“È.Ð3Dìs‘föÒFü¢vÍ1k¤ ¢QSµG ft™ŽQÐdÂÏ«4‘  ÇPQ"£»¹†¾$ ¬óçt.Æ땶¥¹éKR¯F§R]äžëüÞî¹Îç¼ç’{÷Ll#‹­·ˆË<p¹yhZIÍÐÔ\DiØ*ffåI·ö¤[Å$nêöIܗÈêKáúE–t+<Èò-ÎåÞ¸?0®Á0FIÒùLf¯ƒ–=ƒÊTÕÓÀ®Õ ^µX‡[rªQƒV5i#ô£»mEý°Jº !œ šÆNZ§ïrdUIv»¦gÊB,– =*U˽G²RrgÖ²°Ä–ùŸ%Ý^<ŠòϹØÄ5Ó Å()@+P•ØJ,NýÄWRšQaZê+© ÕLžçòï|ÑË¿ó¹.ÿ¬-ÍÈH ÃåÃQŒfã#¢]~¯ø88¼‰èâu™@2eoÑK‘× Îe:ÂŽï‚òü \Pžñ Êà^4Œ I”E2(æuÎh‚|ed,By>Ýb- å'ßµ7ÃUñŸ™Íw.cΨ2ì_·Â2Åfðuk6ƒKÕæ4ý†E 1óŽÀ™þß›-¼ÿÝØØjl®on¢þo{ÿça>^ýŸøoZ('¯—ÚêDå0Ô€tÞ­„Ç“î &åWq¯Ž3>?Ë’¼yˬƒ¶²ÁÓçìÝpXfÌ&á"‹Öné(±@UÁÝvűZ<Ýç§X²Ûî‘+¹UȱßïΣŠlyU‘K‹ó‡Uù€Lòïmp>…K{ó¯ÊÞ¼í&ï,(>J–¬ÿRFãn!0é=+½Ó)Rˆì75u„@¯›ÆìÉËHbŒ<Å°9Z0DÃaeyPiÇ¡QßðH§ô:dC`’wçÔ(#€Y.ì´&kÍ̪·Ÿf1Y %± ’+ƒm­ªåU ÷ݨŸ¦Ÿ# u‘¦hzú6&OÌðX“A‡_¾I»ƒ°EÊöÁŠC¸i¾ñ·Z|#º¸ˆú‹ÞÂsŠ¹û2ò BO-,<ˆ2 1Åãw>÷Ä¥Äëø:øfŽJÚÀ žþ1ò‚©VëT¨âkOdߣžçÛ†ûª½g°_%„™’ãYù‚|dO'ü7­o¿G½Þ¸ßgYtQ~Àðw˜ÌÐÇ, žá·v:¸Ñ¡Qt°ûQ¢Ù ¦kÑlqÀ´qRÁÄ 8!^QÕ!Œ¦óªÈ1k¦Åyj补ώ ²ùÇÆ©™¡å/„‡»é¸Ý‹9ŠŽÁ£€Çyô.ˆìbŠ]ãÍ®M4îM­a`º4¼þóÕ _©vaÚùÿ(õù·à¼_Èÿ¸ÝZžÿâã=ÿãÀ?Ðá?Íå·>”œ?ð¢1B=ê%[ã@j¹Ö<“MÄsöDÂôÒ â6J–1ÁJ…ÇÁ‚®å»a)‚ÞlÍx÷£ÂÚ5‹%²ôzÆë"Œ;y²“óãÙu wÅ!³Ð(•—ŠÖÅb/¥E ª Ç»Òá°œÚÊ&UÌ¢¢â ´a>˜È³ŒnÖ(¨ýtG·óòUv<èÐlŠFpÈé¤;¿Ä²úÿš Ltÿ]ùßaaAøï2,±B ÓCëxg,%1gdjQ¼SÕ¹b™nÈqê+Àß„e ŠKU·þý2¡tì¡Ñ#ºY§*êjÅPî”s±h1~<…ÓÜ“µíŠÐU0UþÈ`OkFþówÖÖO§Ñ£„:Æ“Óp\‚Ê6}–ЮµF ñ]åq[FSŒÙ„C—Ë\¹ÞqŒûï° LIí~ í£™û©Et„ j²¶Cql¹8hø¹!yì¤ÚÍzÃz³Ð⇂g¸]ZCÜeê ËEøV(ç(«ÜTñg5¬@¥h}TjõãÎöi¡HºÜæÏxÊqß ²5±ÏOºõ']šStÉÝ$©[5[³jöòw9¶:*PàX‰èÌ[°UJZ#„>¨ùˉÑV_Ÿrm 7Ë&‡üj¯$ü¨M+|RožSë7NÓ˜fÒÏj¯Íâ°ø‘ÈꅢªMñÅSL®O›¯©ò–µd käÇ@„ÁT+&;ˆºÝZ YΆÑxˆ§$˪ÅÞfäGNiq`ðúi79Ÿ¶eäåü\²«7´æ…Àªö+¶ÇiÅ–gÔåuùùòïù_jâD˜Â/|ÿßÚØj¹çL ´<ÿ?ÀÇ>ÿÛÿMÞÿ«°|Qn:uºW±¢œ*B¼šNAéÚl„Ew‚œ—DJ¥RÂLÐŒËìõ·omÇ;±nLÒ1yðYØÊý§ ¾vÚOÓ^Ðç¸:øÿý5MùR…#¶ÿš¥y®pžî«-¨‰JŒžT¹ßxÍdB®õþ3ã6 ؘýî*"$§En–óÆô¯áM" ‘{k! /~qñƇî ÐÓ©ÎðÌ•q§QõÞa”V–—Ö tcÙñŠèÄRFZÊHwüx÷X–ÏÆùäžÒÿÍÞÿ›nü×Íõåþÿ µí=뀡ç“@¤¨ûFö~a`ãæyIØ°:UÇ\mÜ”s¸pÇöóàx—qFÉnr2YÇè,&9Âé83|1O«ÉÎÕ~–fÙäÓ ä¼¬‡”÷˜6Åg/OÈ]ÐeŽT1LC¦!YƤœ¶)›zfª`2Òö0ùxHcƒD“Ù_]•¦NáI^»5…:¢¹Œ*j÷âƒP)lŽæÃ^¤;¥$º`ÂÚRÇK¾2è„ÿØ&f8VÕJì[Ï{q<”ƒ-ü= ¯›©ñcüãû¸Yí¤ úgtÐ->þò×—I P× ñ¦!"'0õÅkQ ºGÆRܲ±ÜÖ—Ûúƒ}¼ûÿ0îÀ€î£K"æ—úÂñß×·7·ÝóÿVc{¹ÿ?ÄGíÿÇã6m¼¸ep¾"ýJó;Jú±ú>Æùl2·ÅÝ`o׊·Ì[[*<ìbr˜ÀJMû:†ýW8«õR 4³\ ,L®ëUÔÁX[9yûÑMÒ÷É á`\,ÜÒGñEL¹~ó>îí( D\Ÿï‡8`(ç˜AÔñO-RäsXA$*Æ›jðÞ±WƒïñŸUw[Å‚@Ös*>™üð¤ÿÃòýÆ7½vWz5 çUUýóõGÊi‡tOI4 ­÷´ÑQPµ3À=¡ss9DÑ*%U åžË0ÆPåâ­¶ÜWUg¼‹ǺӗLhNÏÖ˲*Œç§~»ùŽâ’L‡QúGwPÉ-&Y­ÙV†^ç=aJ³ªjƒè²AµÃÁ¸gìh/¿ÊBiÒå2Tº&jU ¤¨(Mý+ \EYç2ʸDÔ^FF[ÖoYGd¾âÿºŸl † ô㋈Ï+*?ãY4ÀKžó‡çõE8 ?™J?ºÁüFH‰¼ÊÁ¦¨dˆ¦æ_ž nâÀR aÔîèÃ{B÷·ìÀ wc1 ŒtÛMKipû†QsÀ”kÕ6ã§?ͦ›Re1Ýž¶êXˆgádЉËlÙ —ÛãŒZ— "…"Ƽè)BZ3'q×¥@Y+º„±Ü‹8[š¦ñhLý3K4±ç¬9ãŒÊ]ÜÎ1¹ôÈÒD™ß~Ê»È$6”20¤â%ÑJÙLMTÇ0VÉ@FÌÕ¸{¼&F€ÓÙ6pzVèÔ@X­Ÿ§q~–“䬀 ¢²…E-EñNÉr•ÞIš¬+Q}J>Xd÷fqž#è@DþBãø8 „£?  èK-æ êqá˜4J1 GpÅÂÀ>î|–’cÂÙòĹ ¦°Ÿw»(2^Œ.u1­´±Î Nôîˆ`Ê°Œ%ª'AK—‰msÍ 4(ž5—Z³¯Akö×ù”éÿFÙ¸ÿ0ö_ÍV³ÿ{scs™ÿáA>Jÿ·Ÿö`ÍçbèÈüë~ý¼W”˜äf¢‡êÿŸ½/«¨É3 †U…Ë$áv'=M¯3É@ {2eHÂ’qèé¾3Ó¤»oÓ·{& FÃâcsˆÍ§EÙŒ¸>@|àˆ(F}ˆèSô½ÇÃ\>ùuN-·ê.Ý=“É:ÒÓ}«êÔ©ªSUçœ:uO·íuìý1Ê¢Ï.ToÙ.Œ–°Jr7ζ75ñŠUµëw…ç`l˜!M’Àˆ²ƒáˆäYX|·²€‰âbرlĥǶ˜µ•­Nëµ–FÐ${`aQÞK ™–t²cB¸hÀâ‹3ÜA'ÖrDÕ°[,»TN›¥3+߇/PÜl&儽Û?ÚvÚØú54ê×P+EƒÔ¾6tƒ€²jc+74ÖȈŒ*XÙru_ÚÙÍìßf \ýZé;œxô°¯5ïK;—ç‰ÎL +­_´¾€'鸹‚$&o§’š)wQ¼B`msßl¤l¸«!ŸgÔ-¨r4¡¿‹|È2ûÒ%Êþ¥f[¿±ò%gt@nß›ò ×ÑN¨/ÝD¯¶¦ÚQ‡ßHDk•AWŒgYDÌ«Ó– #¦±g(gñ-»£°»áé£?âpÎ_+o´F^%^€¨‡gCuWe²³ÝìæœAÅAÀ±g±R¢·Øo»7‚v@z&RùÝB9Ï3]DصïÛÚ”[&m—vz4Ñ=¶ï öí.¯ORÝcJØÉ‘p§®, vUF€¤j‘K¡#îµ%úÇBå“„1ÆÔGE—~§®Å>d‘ÙEùüÇÉ•Â%Èmƒ$ŽKV»8©Â½¸ ÉÜ‚THæ\e¤­W*¢n«®BÊv$SÖiW)y]d…è©’v6ôüòRÉ,ÉQ"ì~#Ó(PΫè»ÛO±_(«,NLf`Ž6u2½˜m)μµP£>ò;̾Yƒ¥uA™ÜÒò Íqy‘€†—©è#ÚIvSlì*–±DîPw‘€Ç‚î¼’‰*(¯åVé?’)Êúo×4ké™Zél)ƒYˆ§›FX_ª”¶/׌˜%î,—–g#óZÇHCv±#ú.mÊ "8)­v;QàØãBu¨v ®‚c.;þ IÄ”‰Qk· Nq@ø…’ Ûn¿`â)¾!D¼QÉ™•rŽºN±ßrå5=žzÄqcоÙÐ|syW·ó/àÖ²VÓãÈ7TŸZ]—ó>¿!ML5úetƒÂ[ ÅPuç ähC®€„ïIZLE÷$` %óƒ}…ÛGh1BNµñ›Ô¥OêÒÿÉý?8Ÿ´ÆÅùkSýû_ÑŽ¸SÿŸœÔÿOÌ#ôÿ0Þ ÙÅãN TóªÆ,‚e»ýv ﯻáy²;§i£±Œ7€ ÏóĽërj+õöO÷-t¶lµbÕ"¦wËÙµ1ÛaJZ8¬ÉÃ]rÙW ^ÿpºJa8×ñxâ嚥T)°ñ„&ÖôËÂ<™¢â[´Ón¢UÃ3 mÏrnQÐ_¥Œz5¥æfQÞ ÍbÎ&=#ªàg3Zš3IW³{piø!¼þ„aO8«›2aFmÎ4–}-˜Ñ­“ãøÔÓÊ-Ôçêè/”ü™ ðƒÂI®ê’3‰U6ŒóRË¡ÔÍF=î’÷˜Ö ÔÆóSuáhó«ÙR³sYRjà¿,îO‰Atª™h^>„ÜÀ$›7Ô‰((Wlá4*“8É$1o¨u©>ÉNr€ÿÜÿ$ãäúŸzü_G‡óþW’üäÿ&âQüÿÙÿFqÿ3ËÓõŸâõÏn”žùÎCgµn_ü²+@»4&9=üEܧr«S#U£¤]`–6@· =þJu9ƒìDûTÇÇ¥î~pŇ?jyá>lùÞÖÖÖzf—&»4„Ã=-I&?ÞT† }Føpæш½a츙6R…ÓZwi‹µAÓÌЭü„V€¹Š`N¨›DƒÀµ-aç)@`ísàÎK¯‚_Ù"©¥a¼†q7¦ˆUµBå(-UÚ h”Ára……{JæáÁáX®A—È~^åÅi»ÀÑ”»þþ ao3Z¥ƒS¦`Ðà‰Ÿt)‚^k‚å1\ØÃwaÑ0ÖW°© ˆfÅ”Î7,¾´RfNÛ‹†„© iœ`ðmZŒ´0P VÐÚ òšnñ×mAxmB…t—™B9Ï ¨ÈÍ”Îeê××–.¡?iZÂ߈5FRp±_3òÅr•È`Eí$h8ö'R x­Ä*Vš™^|Çؼk(…@µ$‰Œ)aJ êeÖ³aQo¸õHYî²”‚Ó›ì°cD³%­H2Á¨cHOé¶þ’9RÀ‹ý9 øFxœ­%S³ ã&Ô›(pd*q(U$EŽ£”hL0 †7eª±ø2Ã(j`:àu(èÐ)­7àdƒßK"C•*d­!zoNÆh]Á £ŸËæÉ ¤+ùv«B½†YiBÍD.*…èÄþ&c|Ù/I €G*‡™=ÉA¿‘9hþý¾ X‡ÿKD#®øOÑؤþoBÁë,“>X»‘!‚vJRp½ì D’xé~ AæD†ßÝŸ…“Æ¡¨ ×q Ñ+øŠ(Éí H {L¿x¡G8JÆR,W`ëHH³óQN­[,=”ÇÁ³hl\€ÞJ¦['‹”Ê ñð¤v{ÃÞ¼°3È•¸Ç(ó€Á\[gwäó@:äÒM zYŽpº`ˆvù.ÖW¼=à0CA°s3«R=ö ¸PÏ°tzÙ^ëUC2`î£L{ªä‹¦Èá‹ëžÃ°C›I±Äà‰AWõ2öxÚ+Я:ši³ðUZÚY Ó2øÂí#m«Q1KêúÈÞ³$*dãÈS8áIêU湓‘I¶0` ¸=1^¸Ï–s4ƒ’D1üªdàr Í€5Õ«H–b8ÂL)¸Ïøªbըчë®òÄUêò ¦êÛ}µ§v,5tM¼—¢jÈ5Ú+t .dÚÓ­F1š‹Ó‹}(B¸óm)¸@ÇD¼Lç\a·ð´Î:z*ýwžJY"¢¨€ýÁ¦„—©äŒ.,¤ö!ÀƳGvŽËÆMCÀž‡¤ÂÕý€ËUF)3H};¡ax&õßà éä3¡'ÿŸÍãæüµ©.ÿíèd÷ÿ:‰x ùÿh|’ÿŸˆGÕÿÚÿƼÈvùlž_ž‘Z4Š‹«Vu­YÓµaõ"ÅP.‘HþOߥ@Û©Çâ]Éä‰CGû…É`}?éŠ.Vw1¥à—Þáü\ö/NRíxìØ«g 'W /°MÀŒkR(Ó Žä=$³ éFè!ia'±urË}ãn¹^ë?4—QÔÇa¨·þwFNýO"9ÿ{BýÊçkHÉ•ôä8PˆcDˆ‘<ò«0Â%²ÛÔG ZáíHugÆãËê=à›D;…z*9]ÑÑ)Dº‘§©·ñ0ü„£Qxtq—mÔ{KƒNVþ “’:Qw×Ë2&¥¯7ÚVàµþ¯©äÊYT‹¦ˆû=þC"–€õ¿£#šˆ Öÿd49¹þOÄcÛ:À ·ã•d†ß€X˜Àñ‡æíÄ}–tÇK×Q›ÑõXƒ+ÕÜæ!)GhÇëÐ4&#c´Pw #èþ¦ßñu¿[øÝñð™IÊ°¢4¿Á ð—íÙF€Ù"kJhvæBDü¶oª+±á‡Lc](' tpWã„aØW«Ò9÷Uv ¤Ì¤1Ÿ´|¿¹ÄÜæ™ÈÜâSæÔ3Çj$½$U’œÚЫé`sAGÅ…>›†Eöâí®·›uZ@Ó¯y\¡|² xI3E©…8CŒHQ][ qµ ÙÕ°eÎNõ]ŽUر<µ³I fî¨Q)W@Hù-$?Dl¶ o\p» u¹M0 iœ¡pr\ñÞ%lªq£<àÞË™^Û>#;m„;°ý@] »?~6ÍvQ÷@P7³öèx@¡‡DÍ-v‡POt/¤B0¿–À[!-°.0îÐdIŠ.tžN8HêP!9J(®°V;¯Ç «oúÓ‘‡ô ,N§h ÷ ÑU >çiQ%•ºÇóÎq½«ûÐD&§õ9CZql1yºð†ão'ŸÚçý?f G–}±ýÎÿ'cI§ÿ?ÂÿOêÿ'äQã¿K?Aü¿Ù@˜±Ø‚ËMájáúBN”ŽúÍRÆ(qÑ!ê<)(¸.{)•«˜^± ¸¢…¾·¼²eŸáGìk\ü?±OñíÝZzSuŸô/¤çüpÌ/+¾4lŠ|m.³P&k)½Ø‰çÍŒlJ2Âze%´#RƒJ+áð/tx®è>âPËVF+X‡U®1 •ÀˆÌ_5r"c–²ACrÔÕx¿™;hÈ*Q·e™*Ù,É×^Þ–Q²;r:ôLE Ñ|j;¨«eÖJ^MeÙ¹ŽôÁðøôÁÙF‰´pz`¸Ñ] ûöO„Ö KøoÛ7§ÈâÃ0HÐáZgéê¡Ù–ëqv¶éljÎå€CûBÔC8ï-À…ÜpŠ$mIqƒI-Ó³”¿pÞ”Å÷=x™æm5‚» )²@Y&D‰,K×…-0V·40Ÿ­¡R¥ÀÓÐè>Œe$J¬:{¹SîfHcE Ö|d€».e Rïb]Ò›ÑÐ8aÙ±9`¡È(“®õ,&,ý©ÒàðæHoÐF‡.í2À³_`f äZMƒ¶K§Q—¾¥€VJ’*Âb«Ì v Œ YY‘&¤ät‘ A2OÕNxµN#È ¬Ç—„\R|y¤¶ÒZû¨‘"Ç›¡²Ò“p••‰;O ŠcmK¶\“²hM4Ü8¤áZø´q®f§Ã N:ùxOÏx×¢€=õ¢dD¡Œl hÏ'”²Y ñ+B ]HˆºèÌòAd ¢HËg3äz"á$\ †¬àhÈϼ9l”M‚'-7)N ÿ0§üWé_ÊBN„ýWg$éôÿÒA~NÊñØç?!Ùû¢á®e„| ü—ƒwÁ5dO43–OhÇYxI’lëS²¿;ŒÄíA³«j#©JDÀ˜%Ãä±ó´2éÊHƬôƒé;ó-fïŸdƒ…MŸr ƒüšC¡=²ã½0*çqá*È84Š·‡Þ=aÅSZÁB2k•ÿ=hÝFsq&ãw%FÙûDvm¡]tLÑ0m³ÿLf¬]l£#Ùíãíuì>Ä8SŽeðÀ„doÙËÑ Ï.ˆ3ÿ¶£½Ä;[DäîƒÀ…ô¨’žáÅ%ŸÓ ;†ÊB`ö1 í’µÆÈøõ¢<õ ›„ö¡vÿ8ƒ´Žúz–rÐí^‚ãWå¡ã`Sº”•úœž{^ƒäuÏkÜ. ÉÍ3P9‡—›•Ž³“®3Ñ-'÷÷+'PuÁIõC9®·lì8r†½mÜ•MdÁ*ýlÄð‚9Âd i—ǹ¼0[eär¦=9…Q°)-û$Ÿ² è‹ «óÖŽ=å~LXf”•re)Ý'ù²ÈHptr bE‚uÓ^žö 3ŠQ¹3H“Â^rC â†3ô›D °±+Æ{;{R3©™|ÆåñÒÿ,. ZãûžzñÿÈ¿¦Hg¬#™ŒE’` M$c“úŸ‰xÚÚÚV‘Õ#gˆuM€S¥ÁJžzhÅ“zu›&[Ú@¥‚/Ùø-Êœ§Òiƒ¹i ´Áì°QheGHÅ’9XJå¹K\¹Ö0ú®€«EÃò6õY¹7Tóý&Ü8OÃ!P ªÂ{È á ‹ž\¥ Àw KÄ°r¥˜#U®]¼f9߇ÀhlÍâµËo\·~þŽ¶nÜÔ#¥ÇZW-_ÝcÿŽ·.[¾bñY«7²ß‰Ö =Ë—ö­^¾våÆUpÔÖÚºÄ4á|lsokëaN!“L‰hD^¨‚(a ¼Óé) äÁ¾…Å ‚4D=v:LUº}„ Ãø UXxÆgXëÎÀ}–tl$Œpë?Þš¶\ª9GGP²MÎ…ÚæÂx…YSuÅî깩¹aÝ1™;î¹sY„Ý’®° ¦f@Ô¨‚@PÈ(DP€ˆË¢á‚‡ÈÎãó’½/]ÊösÙÓ°AHÂœdµ<ø°ê7Ð øE6eé¹lS;¥ Rò´·ƒC0êk€ù5`´ָ˄ŠEà¡Òƒb4«)Å—xZ`Z‹ã‹n  :èVU·˜0FVЙ›w¼eŽ¹¥©s+ì¨s-zÉÈUI§ósÙ¹sym8.ŽÚÀ݃kÂXaM[žJIãÊúÛ°¦hŒeoò¡$HflÖ*£¢9½ÔРt<ímQ»=RxÀKi9#…d—Ï*–fI…´®}îÜ`X‚°Xë'sÉ d‚²aJ4z@éC7À"àUÃJý$Å"õå2@-sçâ¾³S­ d(±c˜4&‚ç:A¬Ù²%åC«´ )W"ƒ-2¢Køá`ux‘.¨Hm:©S,œÎÚHGw+ÚKNåvýJ— b”´±}E¢O³Ð.zT¢U"pB‚ÑS´ÿ»„Xz Ñ–JI €„ jª”èÚÉ~ ¾T4ÔÑ!žÖcñAÃÌp.D—Xh˜/¼"ðødT°!XFiØ`õáyµ™/ŠwöfpU í$_¥âd-.”Yq‚€ %\虇…*7ˆïD é u0gö¬Ø_K&ƒý²z†Éú²ÆקtÝu¹2 qýéÒ@½"ëzj­q²²,,ÔÄ–5O¼µ3,ËÂV†'Xð`ØxF*‘_ “›a¯íå/€Íäk/Ë€I,.:üj§.Ô¤ •KŒp›‘ Q¨lîe"OŽÀ÷°s÷Ât~vð춹Hƒ­ ű­s¤p†÷xl”Ã[É*…zÉ-M›ÓÎ @Ä^·´9Ëg³ÛÐ#Þ6¦Á02«gö˜´•þ‡møL‚—sN 3ZvdBVKÍØE£GŠÚq}–¡³›ö|¢·9m›Ë%Ñ"vT¯2TÇMø6›ŒŒïFÉšž¢ –Aè)½AT=7vÎNèí¤«µ92ÏÕ"²³h§Ì±N…|Å„4™NêîÒõ6L:=ØŽIÇLrθBШô"yQÿB2,æaHíÑF€Ês Å 8>0Z[äcTMúC»LPZ7HVº$ Qˆ{£ºÑã ž•ÃDNì#阇¤»©_ Êѵ2Ã^yߥ˜` Ç¤AX¨µÕN ¬ûk­€œ|^ÓÇKÿß“*ðÓãqý¯nü—DÔåÿ;Ö9yÿoBåþŸ4ðêõ?-P$IÚ@ m=ƒ¯_Pì–N:ýÃíR¹×&·£-ÜJíC4Ÿè{Džsݽƒ¾Zbäèá×—»ÄmÑ—•RTå6DOYر\£ÚR°Ý«ƒ% €°Âp'%Gýî°˜iØ&šÙ\H%áj–²`3§‰ËrºÇ0zKÈŽK‡—9ÿhßW,ÞÜ÷z)•µŒŒ|ó.„+‹št‹qa,â¾qïÀžÝ¸‚ð-¨7cw4"áˆgF8{¶o~¹Ã•Ð{¼ˆ*êRyÌe-Ï-Ç ëYÄôÅxóÊŽJUKð‘קzG× Z DQÇ<ê ÆN©—éo'¨8èˆ-pÓoÔR¹§{´±Õj"« Å®¶Ai:%℘4q™4qÙÿÊÿ%X'w‘H"ÒÙ™ôãÿà!ü_g4N¸¿òñ8ÄIŽ7"^Ï?9ÿç5þ‹ûÍ z×W‡0àuøÿXÇüÿÅâQ´ÿéŒF'í&䙥-IÁi2Y‹³Ì˜>Ž…#Œ˜¡‹û‡A²ÓpÉßc‡(â ÷Žaä¥Ílh[ $6l”   ´ß§Íb#«ô¥ü+\I†•Ymƒ9P!l¯Zˆ0¼iRN!è(n@tÁTv’^,æ²iúšåßR¨Â92pë:‘PÊF^Keòa}ÌFa\·4/Z[·’ÜGt 2쟺ÖÞTmŒÛéÌB\§ÜF¿¹ =~è]ZœÈÛ[±ß4šaÿ*ù>“›~ƒC²h"B"6>}©BšpýpÍ8Ò!l[v êŸ<ŠtÝDX¢#p5”ž•YÿñâYÒ}ýÙr>UD׆)´yÑåòéJÉ¢¨ VòýU¥d6·¾CH6á\j°Rtà5`â±9Í@¾ƒ£»R‚µè½®¬’€^‚h.jìgÒyI÷ûªü^AMgPÒa¦ä×%2 ¼12ƒ˜¤dÑ…p¼7”4‹“pYá RV¬6e-.Ðx|R8'ìBï“4ÈÞÙ™Q:Œ&•WUù•eqæõÖ×¥%mšqšõn7‘ ex Fôpÿ¬/Jû‡ÁÄW1Z ^-K•SP*iJü^Öá]‘€J•üµÒ?#ǧ>žûnœþJìÿ5ø¿h2ÞÉø¿X2AûßDtÒÿû„<³N8©b•NêÏN2 ÃZ±Z2 Þ¹J†¬ËslþÊîï±ãÏÒÎ*€ ‡f"p²*¼™!;„WÍš­”. ¨Ÿ Òi¾’‚·ÅJ™Kc°wëj…•XF9c@È*B_D`/ _Ño’š£Xu÷`®¶óTÈÃXY0sÌBXÃÂA| :Ôg2KQúZ% hëÆÃSÑû–em •ÍY4L«¶fCû9(P[Ú‚¤`9†RD í' #P¶ŲV)¶—Íö ˆãx^A+ê[‰ŽÈnäk£Îêäl8zø¥-ÎYD§íZ’+;Ú”NU,báÄEÔ$äÌTòE”ñmþlÊÁÑÞü0󼩢 ÿšG"PdȼQZ–ƒ­h“¡¡? P!A\/ò•0äK ~/ò9¢¶âT߸èØ’A9UJôw„çqlfÓ0|=@IjøЂ}³“6wµÇá(t›‘&{ %Y4}²e¯Õöȿ扼h±Á·ñ¸bo‘ʼ¶¯õ_ãq©£¶üvv‚ÿ÷x$ÑëŒÇã$2Ñ\ÿ'♥щSV q¡º®ƒÆD½²²2… jÆ"4`†4dÉ>_vñ+€W7Ô3nŒ_ÐÉ2‡ìäƒéö6c 鈺6¿s N` 8#… Ñ[&±ÑƒvÑ’<ÙÅÆ‚kŽTDiç.ßV„Mp'&mÐK£Àãúë®.®¼¶B*4ûêæHØ€ÊxÆyàRKw›ŠÀùr˜"Ú§žKd„ Ò°M¶Ü8È…žWKì¦p·ðRu 7 !²]“\èâ[1æd¨1YIUúAO 1™,¨áìÌР¡Ô°AjàÍNK•R*i¥G#¶ü‘ºÈ< i› ]©)Ò!ðô×Ò:CÚü¶€H¸*3³ü}}%£XB7 DFÕ7GÃR>âð‘€$|tÀG'|̇ð„#½º «jÖODµýˆA_¡ ­gSßÙË—&¤ê¢@óJÅYN FtH›<¤.T'.AKFf»Š¢UÊøP+MÚmû—õ– ‡j{˜>)âUoRí[R€÷m4*'¡3Cì˜ÇëX„+”ó†ù ¬Û+5¦”a›)’¯giK©LG›8Ø=Š³´•0ÝÈÓеý•A¹Àí·· v¬ðéœÑ¡ƒþT“{f)SÂ_|Ëá=Ƈ§(÷Mªï§96˜¹T‰d‹…“,»¡ 1å³Öóa¥_ò©m|¥lIÉýª¡´¥vBmÊò#*¤¹^=Òd3¨ÃQ áŽÌ'âvàA€‘þîQCΆ*i|ñJú¼ºU­," Ì;Ô*Ä*ª.7–Jˆ²~uvzΞÎNLÖ(«]’kF±2O¹ƒ/ŸƒçD\J:€’-8ð6 Q]†?Ècéúé€Wél‰0Ø°H+Z¶`ØPà³-ÚÕ.­ž@©éUž³sF1g'Y€Ÿó)o(S‰þTÉÆüPQÀ¾`ÿ6©Bù}us¤—$I‡Ð]Ì[gÍŠbc¨(ꮫ $kžKm±^vݾÁ±ºL&iuù"YÙü‹uº~Á¸Ä’|ÓK&†4#ûc’çíjm‘WG cÂy74®J䨾=$ÿR! h­‹8ð1dw:óÈƲ½ØE3W„cvø0PÒ_¬ŽÕ[£ºXÍê„yEC]Êr“n»°BÆB+èvMqYâÞìïå—Öëû~h2†"›\q­6zM4Âç· ’%UË.b ]xvfr–$Ó\Ý¡]Ò£(½Ô¥ds0À,£6ü ×é ÏŠ"þõ8 V"&ñ5áYhÞ%Jç“ÅsRSÕ™—’0 M“r•R±FKqŸÀGz5+ÂíKžCÉíu«÷@:9&¤“r髨 y$¸°¶cÄ$˜'½Õp¦òšHBr‚}ÈLÙÛi~ð(eÀ š4j½Ì:VÀ£@ÎÀk¨*Yë¶ÝÖHªœ’±¯k”ųÉY¸J©C)pªªèùäNCï£j§eÑ©Á¶ªQɶ £IIðÛ§íÅœYV1ua%E2³¹ äS:>áH¥7eÐÀ­dšÃJi;­,©’ü›råÔV·CɈ\ªœÍ ƒ9#U*•²–wf %'¥03SC¶ÔïÖ–B¾JÚ2\ËìsU¥„YôAQŒˆ=1fiKÑ A£.y,Ï$æ§p*¼ƒ?œµ²à6.­²†&w´Px·¡ !/AºO0†„r™Ê:P}Š•»ŒD!]8ÍÒiDkcËÇ6]pKÁðWræ–êÑ·ÁÒ&ãÇy,Ÿbj%e’ðÌ|cÍcgàÖ*ñ þÐE~ž×ëdX&B§È)¶"Q{"Šó²ªl­åõ¹Ûæê>@dõ13j©0‘Šz4òÅr•û:á‘àà€iùeÅK5†m®XJño®¾á»”ÁÎAxê®Æbƒ ñlµv‘ò5Ⱥyg&0è`3¬BªÈg>´§‹Š ]Éûú³ìT.Lé§DOå‹8½ªº~ûÁ`ú)”MlpAù³¯+`©—³ž¬^iËeÍ Ž»nñ7_-T$þ U_d1Ö]’škr#1û(¹Œ×Ç2òB Rñ^©Îc­k¤BçºåÐÂðŸJ—³Ã¼÷Oü±š ^6d”¶ƒµ@ésÉ+1ý}ŠQ¼¥©Hlo<©a!5+Ñs}0N¶Džüdã*—R néé¤hF±dT‘Îp,wœZÉeÜy¤3×pBW4òKU;qý84yUV9AåÎAÚ°# µ¦K¦e ¥²%­qˆ¬<„Z" Ô*P4-tƒ$¶®“zÃ¥ÅNg)¤´„oÙ²98˜sªÉÀ‘’i  f-2)‹Ð È™ ÔÁÿÁ† ÊñãƒzÄ'—90°ÏÍ’}ch¸·[p3jÙþVÑt¯Ôr¦¹Õ" äV²åòÕ@”o‘`c“²4{u1³<–2eIq.fÈ¥Rþ‹ïV2¡Yóàj£e z=ˆùãIÑ0(À(‡4zÎO—¥ Ä]Ò!ª+ˆw®˜O®Œaç p•$+Ð@ Ÿ<˜¤À1ULÓ[è’òo‹‹T(ǧ»©ÆÔOa¹½±"½>cÎö1©l‰=¢p­ž…bRÔêx„˜¬ nř޻ŵÑMŽÝä˜vAê—*4U)”,íñÎp4šŒ«ÛæÍeóYì{ЈÈN³€l´‰äOÐ#·,¨b ØÅâ¬QXgÊ\-‘H„£ æ«%ª .8Šíá «‚¿uqáÐ;bà²~ií±d8šX­Ù11‰åhPN8Ùs¢Ör®Ƽ‡& Ç:£5G¦ZÞàí‹'xÓ¨±~ŒÎæmî>{ÞÿâÝÆéX=ÿñhâÿÄ㤗;âIðÿ×Ñ1yÿwBž:þ?„ qòý!¬›8‰ÙŽ4\®/l«%œ0‹ L±¾É¶Eµ´Ss¬5}3àaî$QÎismT+(î(‚‚¦ ²á86ÒðŸî•S=]ÂCUh yܨåSƒÕâ8Ö„Ë,öá«ÈE„Øš2*6³RqøÏ‘·Æ,ÇPvp(ZIªÛ«—«<”Mo-ŒdŒ»û î‹Ø¯04îÚe|W˜‹_w)JÎ"Œ~"*ɬIUû _ª÷ôµ ùAEC´LU?¾Öhâö†hæµ+6·9Ý•€7š\o•æÛÉBKN[ÅÆ€€îãñQ6-ß ;ú%#ïÏ[Xf÷Ëmöc>6ûR—öÙñ–Ë÷§2¦·u)þÚu†)¥Q×wä/!f°3bà zºG¡>/q à<:›F§—˜„B™FýêðUå‹ÅGtùmŸÚ³Ø-±héžNO¼W+<¶.ajßÄZlˆŒ(xÏ$Ñ+mgkL%e E»y”#fÒ™Ëÿñâÿ0P«5~.êù‹Ä€ÿëèŒ%È¿ò±Hr’ÿ›ˆG¾ÿ®Opû¦¾aÑ%è¸]þgkFOŠlMeƒ±4xü X˜Š4•²]ÔM'²ŒêBNìBÑC ‡`À D1XGôd€ŽÜœ)WJEjÅc04žñCœAíûñ°x•Pk‹Y(¨ÍÅà´p0D»Î“àùIg2n\›ËK»6²<[é!vB©MÆp3Þ RµpçÂÆlÇuµÁqëðl=æ©5E»zéZK±œ&o2ªã–•²â;0~,¶yÀèïÙØÚèø P·3{¯.”­2Æ‚žô—ážoY £Gû2<¶‘†4uÎŒa|'÷Ñɧöã½ÿçûÍñSÿÔ‹ÿ$¹ÿ×D,Òý?‘ˆLîÿñÔÑÿ¤TõÖº/  :îÇhˆP#Å+“âb9ˆ’, %¹ø¨KÅbîb¸ÿx”’¨Î!|¯ ÜY2Rðú¦·bŒ2œãŠ3G”†µT;zA±>p<V¢%<|tÃÇéÀšl§èöst3%³˜1G xT/ŒB¹Tí³˜%µ Š­eä tÈlŽ¡9ŠÅit|±U»ƒT‹D¼ztiÅ2ÒŠ.©¿c@à€/b¦Y„¢4µRÈ^XA£Ö(t‘¯¢Ì™Úîo • þÀ‹¡šûæ©&ŽýÜ35ë}~#Q^CsÅ=fêKÂÉ[–SêègF£]º’ìï•XMç 7V¿çõïĘ¿º×*FNV×Òòª–‰/¾@ÈfUŸ¬AÑÎzöŸ£u‚$ïÌ&¥ÃpâÌqtfÌ¥Jƒõs9ÁÉzSo½¹Š½tM‡»ñI•/ø¸S ©”ýÒ¬Ja+·¨æ©„üÉV) [Wí›®ÐÔ@ÖÈeà´b­ó‡u ‘æC ÎìŸØ5“cŽÑEçý±Ì€a8áxeõ¡i–U69êR®Z›29¤žÂ~âÂh®8DH³œMËêQÌLR£±xB>"Ž:ô2‹Àn™yƒ¯Y­fUý!ú‹_ÕÊT‰Œ&PsÖáñÊêµdÙ:~‡- pès *(›¸| Ð 4Ч'÷\à (gƒãÜŒÖoš@™r/`=5h–ÐkõµRódCÊ˃ É2+9ðiŒüS–È欃C4€ \Á5wö½›ì‡C°ÃyLÞÇ,VÝ™¸O.¶'±ÚóRîò6g—óŒlD·Ðš·×ì³$î»ØR¤möú¼ 3€r&U @ë¾4Ä(Ñß 5 D2¶¥2F: {\È1Ÿ]„˜ZÎæÉ&d¥(¥ ¹î`[³³&#ªì•ˆÉÅî3­ˆ ,¸]˪tnk¯¾îlJž²Îj±Þ×%m“yê cÞùn´€$¾DÇHq 4ÌDžŸÛ´-ãö® ÒËt/X„•¯m•'´U^û•Ü[ÜOvê¨wƒ™3÷Œ´GŽIB ¬h¦_büKœIxChpöŒ^×I&;[Ò…GÌ#ݸÅ< «”QëªÝ;=¡ŒŠ×ÐD¤¡ñïHáHí¡öïCw÷³«Í F£+ûöqÜÕMœkÎøÂô£iüG‡R‡ d”AJr£¹À2É uróG 2³iÃPÖÖEYÿñ‘ª×‡2•%kÑVR¢-Õ©ù*T¦ÚG‰$[L‘•{D¨OÈ AÅojñ”Ž¢L/®P½ ¢iœ§èâOcºZC6åg-~z ¿ÄÀ×Sü<ÍGOÑ(‡¶#é©ìXK÷amFf­¡òðbA Yläªæ#RÓècß4õ¬(R²{×?iZ1ùìóã}þSnmÜ"Ö±ÿHFbQ<ÿI&;bDònÂÔÉóŸ yöÝ”W¡g\¼4Mìë¯rŒ':ö p>«f€S€’Q4Re®‡—«‘T¶Lo\9SÙͬ¤ûuÕã5­¤D•û1ÅLÐÞ`Xƒ»Ô0ktïÒ׊eŒQ\EšMT¥y=]7ˆ'«Å°{«—ålz`f #eU´„âXBdð·.–k‚+ºèåBȸµrðýTdòR/u8R½5²õu£~únÙûk¦Ûdy½\šÇm°,77[H—ð’“nß1âxP¾T—MŽqñÏ)i;]=§µó8»ˆæ1p™Ó¯–¡Ó'¯ ®¦ÖÒP;œ°Åѵݚë"¥[$‡(ª°×±À£/$ahÌå„íÓ3ƒìbÌyž„'—βõ(ÙûŒ îÁK£¿Ž[9dZåsl y ]œ÷¼­¯Kwk’â6Õ¸”úF•i—Î*l-˜#¡Ç¢™ÛÐ8QÙf¤±¯§hò¬;åD6y%Ë5ì=^ëÌ$‹¹p–HÍaªÏv;ÕXÂCšó×0‘R÷,¬dÐ÷ÔKx×ÁŠJ1ÍH·A@íþiñhLžŠlEî(™yiÉ‘“ʦ â¶á¬1BÞÆ}ºÌeøïÜÔ‹åð³íçífeâ¦-ÌÔ3/§)’ÌÓÒáS³xÈf¾XHýÜ@A³¢×2 ¢ŽØë/îþ“ˆ¹“âíëJ¼…UwÝ>kˆ®“²oò¯¯LÛ¨˜¼?d_E³eMEmHö”wíÝ£3¢{NýdÌ>2³œ»#©4BCc>Ebõ>)]ï“tí‡9aŠl„}&Àź0hbÇ»Ôø)Ÿ-Pf»Œ¤XÉÐõ™º’)éœ9ÄÛðëׯ[﹯ƒY•mOE²+Lh½©;d_ž¯U½†¦'~é0Vá&Qn/0Š…©›v {ÈHoexÙ'õª-¹ÖÓºƒË{¼¥(žÉWõíž·W>‰Oº˜+hjÁÞ’¤'Ž‹TRn“µÍŽ3‹ÞÖÖ¢i¹:é nrñÖAýrЯ¥DüÄÌ<‚ßéW’9È|Ua_ÔW9ø×`Õ™Wyò“ÔÈ^nÆü½˜@£"4 c.i¾WN•ÄO*½Acc|,}$ù£¾gAHý¦¦úê+©# Þ‘áT±H8ï€ã¬gžôxéÿÇÍð‹=uì¿:âQjÿÕ‘ˆÄ:::AÿMtNêÿ'â©sÿ?ƒ¤ ßþ×4qýߪZûÅÞªfoB5aö«/[0[1¤/{³9Ò«ªÅàŽM@zE¦A ÃñwQÈ¡'äëòm‹ËD¢ê¯”ùµvF‹¶á†óz–âÙ¸þ¦­U \¨Î,ëy©ß f¶Ïa¸ ɬ¦—[x\áÁœÙŸÊi}¹~üY3b2É$9]â€F„z 6æU`¡­ºãEq À™¤²# zb/ªàtSEs9¬¹X#²…*#¸*Y) FÉ‹| dX•\¹‘PÐ#aŒdJÏB2F.U @ü‹„8û‡SÑÙ°p„4u!­¡‹½ ËuƒJèðu éÙhsÆ°‘sô}ÙÈy’´2›&@̦ÍBv ÊµS 3o@÷èó"ó":wNdC’FʮוËnNòPÃï€\Ž0·šC†¸‡Hï—ÑàÖ„’·àZ™È™Î™é­š ž1ñÞ, _“—tÍÛ¢÷çÊZŪò8mp¿+5œÊæ@å湺 d6“<)Ù7ùXÄõ ²~ƒL*ê^ŠçÊæ¨/¦¼™!]ŸaSšÇ¡ Ë@ x…èÁøV;¶»W/‘Þ)U¡+Š„b, ŽŠ$¢ž*­‡Î‰…QNAàm|Tô£ 0ÄäÉ”R#. ’h=¸r4×~$Ìò*g³Š r—ªÅ žÆ#îÏ€(bÖ3ü"žó½mAËs8í® M’Öºz~{Ù]¡¼ìʹürø¸]ñÚv?l3Ù Eû|¦]½‚„_GÕíÀú=Ìm”ëv´Ú)Åb®Ê’ýÕ/á[­l@'éýYéµÒ­U›öÖ!Ž£ÖÁs<öM)Ÿ‚ÿæóB½QÕX+W˜æèÙ( ^[‰]JÙ4Ù\7#²C.›¦Ñ«øöt’½SéÞ¥{rYS54‚`9Ûkˆ‡‹=Ç,å2¢7å.žYÜCêƒÂZ²'”Y#ØJ7&üµ”ÖO>ófÉsS¢Þmq/Í>s²&Á€˜ï¦êÈkÁÅ–¾¬_P±}T͵.&C %ƒ[“®»jã¿øNúþ}ã?^ò?έ¨r@=ù?’L2ÿñX"‡û_‘HbRþŸˆ§Žüok_Ç)ľ ryצR›9õÐÞ9ìqùrèä’† ºôa(ö—w3áÕ©†•Z]û;oÓ:5‡×!°š+á¦D碄ðýQqX¨´C>§ßÅ ÉÛ.Q#»‡©eMU;Fm»9Û#™l5·Ò¶Qô6«S2xAðpJU#…PÃ0ÃM šè5h Wß<¯¾q^=Ó¼:†yµÌòà|£®%^m«¸:6q5-âjØÃÖËœ—¯¸±¹ßkÄØ$ ûZ³©I.ŸiÞ–nj¡ñwèD(™¨Dz;t³±Ÿ½¯¹„_ÅùM–ñÒ€E\m{¸š>p±…ó¶„ó³ƒóµ‚«a綀óêœÖo M7hðæaîõHàüXà0iS§Ø3Œ´WµÔxMôœËdmtk›«ù«5dªæ:±~ŸWÃit¶À£A€U/1z)×`Oq!…3ã×ðÄxòùGz¼äd]Œ = Øÿþ_bQ"ì;äÿDl2þã„*.À+dæ{n]ó|jìçÔü˜v ’eÇ~øU>gÆ°ˆic'f%OC¡}X4G‹FBAéM—/§“Íf*Fq>Æ){jÜŸº—çð‘Ÿcp‹ðá9áï{lþØàcK32wͲ¾Ý›€t$t¨•,}¿ù†óÂIÕûä3.×þ¿†HË©Žò¸Ùÿuv&}öÿx2–ˆ‘ý?OÆ;;ãQjÿ—œ´ÿ›gÖ 'õg '…a­X-Ap=eOý,§4"€ A3&Xƒ;mºê”‡R„HД5•²™'i& L,YÑÕ g»!žiËú8üÆЯ‘`àð—HJ:.̺Í_˜ÂÄn=ühb¼ì%þÃÁš ;2Kk—‡rÜél,dc²††ØÎ+ÌÒ6¤KÙbYʦ‡´Œ‘'›-:°H¯ÊÙBŬX/ ÝË\t3àý©’Å e)[±UŠ»Y˜¦±ç jjeÑZÉ7²^S‹©òˆ)Á–S6¹*“¡2ƒæ“•‚ô 0.,-Õh°D Üц©í>öŠÄŸ!ÂÕQ¤×6Œ²¨Öã•ÆBH£Šf^3Û²-Œ’ KRZb"[5éAu')ˆDÕꘖ¤ÄekB4ÿ²5ဠ£˜Koç Ú(ÖoÍþ¡mæ#}¢©›1Zÿ¬ôÍšÏ(\¡î´ž“S,â.È‘]thxZ îÔ¾h Ëi¡Úæê1]› ј&ˆc"ä:ekŒÄÈÀHÄãMŒ„ZÈ4Æ”Hxþë”4e¤¸‘g²ܤ3Y«˜KU5‘Ìfè][jå)!Àè=¼‡+'Ø¿ÛrN—kÜëWÍü~²ìçÍ ¢’g)´ói•1]’*ÿ,û­¼_äûÅt(T–©®Ðüèz,¯ÖVaµõ¤ üÜ:€{Šo…Å©B¯¬J}$·"2Z¬¾õ©LÖÜ€ÆmõZX²FÕB’]®±&„l:$¿Å÷.•<Ç}nŠÌÅ‚˜œãY·løv x Wƒi-c*>JÝKØÍc-Ox!qƒ8Ëyq¼²Kx#÷:lN+¨åg•É>$ß,öÓoÀ&5dä(¤”•lZysŒ-*eÏŒXí:l6¬À²ÂØñ+Ô¨83áVZzMU¸púà«l-öÖY&¬f”ŠÝåmM?‡2û 7Y^•*…5D)UW©­=$³H¹1ÔXRKè®F9‚Á”xMòÙ)‹ûI_1ÆYIXjæûMšx§Iá;Ô$¯w*{®$õ”³çYÿn¾î•ª@ù½H°9*xÏ·sg›|±Qžiö5Ïä•À¨z¦(f}ž98³æ†ç—¼Ö,KLs«gâ:´eèžÉ2×æ•.sY^é=U­,þý¦*6jåàG µò ~Ø+ÃF²íx.^[³¹\£ó‹ËQ 8™¨˜ÚšåÙ1‚¤ ÒöúJÚ6Î'‘›Y‚ð¥ 6F0f¼Éú5˜bf¨aPjl=Â[F‘áà­ øâ‹^›º˜´IñÏqµýÁlW†È*P¬f °†n¡-Ê‘)˜Ÿ”=]½àr+Ãø슧*¿òNRdX÷( É€·Rµ—dÖ]*`÷èÛ ö“&ÊîÚ˜Êdz]Ï)™u±¬FJ±û¦ƒjÉïu Ä.ÙÂ4!!­»ŒLå×Ú嶑Ìæ ™}!Í2•ÒùT•nàf ®`ÚÏ*d·i&áSèžÂªZ¦8¬ÁîùV-gC (xƒ¬¢Ž^lù„ÔŸ¦Þ SP•*d ë PÉjè»1e¶3`ÈñÌö”¥$Y Ú—žÖY‡faŒM nl‘ï\°ó&bbeŒÎ£\)jFŠðTãÅÞGÃÚR”“èx€ý¨<$tÊÈcÄ=Kzì¾Ô§êÊ>…ÔÍ,¤ì^!„ºO‡ä­,äÞ¬CÒ&­Â±·¸½§Ñ¯«h˜ì¨Óríj*˜5©lmi!y 964å·>|s 9v³sû ¹ ´“…<¶®{¯RË+›TÈkW ¹¶!•• 9X˜s“â*qFf±°ÆÈBaL½.¾ÕñyÆ™ñ…2mx¹:½Yp]ˆ®9BÚܹ[G wË,m™1ë!ÚåÍcˆ­pk ýF@Ò#ˆ¨ €¬/:ãã.}gr-ÍC¸VFñD†e`%.°ÌgÏ«ø¼$OLïÈ«8E¸…Ôp•ãÃó[[­ ¶—µ/°•ì$v ƒØ#ݢϙY ùB{>€F}‚`FO¼§‚¤«ÔÑ{­‚j‡°¼tÊÖÚÂíé¹Ù¯m_Ï°ïãPø‹*ÅæÇE'­mánXà»rXÒ«KPKõ4`Q·:äD_>ÛÆišO¨ü½ëçžÍúš*âê2K˜jFBÃûÑS±†ˆØŠh„Õèr}å…4õmv˜l‘zPERn õMÒàrÃB}›Ò0eÀ…wã"“3¿«ÙKÇ¥6€Žz¥ç«öŒ•&LžÂ©O²î±¡3rNå"ívÉÂy Ì5$tQúgŽ’œ8¶¶ÐàG-ÎùÈ@Ù•§(÷A+†ÐPÊUµ,ç1›´ÞÐNë$¿Òð~3_EzEèNIT;¿ù$…ç(0æt)¾Ñ7b€sÖÚW¤Ü Evñ¬†Þ’†"©Lf©ÈÖC.˜àiÄg’Çt¾þ9æ¼sNxÅ“_8í;°é¤JU×´R,œi­ê¡mºÒå, v±Ž®žHûy:¤’«ri;èrîŽ_K”_|×`_˜­l]®-Äùs‰ê.›»zÖ4y;érî.Ž_+”_lס94Fâ]òž)}Û ¾q¿[Ì3»½É ùÎÿÑ¢€-血ꢩ8‰Î‹¹´g«ŸØ>¬]ÆPjØh¥æÕ`DÍF™ /˜I”*¸€~Nż%D´Y'•;ã.¹„ËQ^ÄaGÞ`ï•Sæ «Äf9¹×»¼4Šž¤toÒ€z’½Ë³¡ô*+V7_¿ó’Wz/§óR²·—pºÑõÊÉ{¹d8ü§{§±%Åá~½»É¦ ’ót†‚s¯†¼kÝT×›–#ÀPŸO®ÏfÏäš™UZ _x]¶/bÁLQ:Ü,8 ûAø›“GSì1´¯t_/ÐrÎs§®µžY R^Ê1ŸtŽMO jn:2Auh¼J0Æo4Ex%ꔈ®f=£*e‚£˜kðkÖI·ç¨×®P”ᜥðá,¯mH*.Šë­9Í(Ó¤N6ç’ÉL'ÒlªpÐ|¶ ± ®öy—õj cÓñ*Ž¨(ÎR{m׈K%ª¥.Ê9g0úùÅ¿ÄD~#ó  %˜FšŸ»'`LŽmê]™ëgE*8éÆqòÕã­ÿ“L'Àÿs<ñŸbñx¬3Ú‘Œ¡ÿçø¤ÿÇ yêøVïo¯ÿg…Ì”£Ø7ÚÑ;îâ’¡UÍŠfUØ—‘T¥ˆŒ‰¦Õ§é\ž’‚“:Â0²pdÓן-çSE}a… 9d¤2º”t'Éù=÷ø;¢ÖW/ô©·Ãå(÷¸Ì›K¢<­x†§ûF¦áÀ³OÎ( *1wêÇ;•»"¤J;ÀGÍxKXÒßC3ÇËíéY8Œîue•9wI˜à°ŸIç%Ýï«ò{5Û94̪Пí¢ÎJ!qt¾¤}Â#j²i¢^G¯µP¥e£ä«„€¤ eM`2©¼ªÊ¯±"IŠM®’ójï^Šñ®™t@ýñxíÿÜÆz|NÿêžÿEј´ÿCü‡Žù3¹ÿOÀ³ïÛ8§~ÌÇ%Ë¥Ôi4÷ÇSë.1jÛsâ„Âः¨AÌ ¼ rý¼È#€€R×Q]©,N‚ l-4$-1)EšˆJí¥¬‰xÍÃÑZ0ènuò1Ñ(ÕÉC]ÃÀQ ÏhÐ5$z¿¢í¡mQÑ £>>¤)xð—JÅa[sHf™:Çìòl;IÑ,Vr¤®ÒÑLjÔ<(Ò+¢àáD.Ù*©ô…Õ Üj-ŠË”ªÜ¥ä%6 0L¡ÑÂlÀ½ a‚ÁF³ØÃ^&†ÇH¸¯l—”‚w”SýŒ „ó,Áê¡¢…z¦óçø:Ï NG˜jFACÐΣŒ'W+ÂpÚY”ÑeŒB@J9 ¯†7áÖ.#ûºžÏjôŠU0qø,gd6¼±|õò¥GUÚ2Ê…éâTŒñé€Íä—Ǽ£³z‡2·W¿*.=0"ª¹ìöã…w—ÀÀ6SÀ½ ‚ßzk¡ÆTM ´‹ÈSò{"•Ö«Ø·OØXúh‚ÇÐjOÄÁ›ž•§÷`‰1Í!r JATeÜWd @ÏFž «Tã£úÒ·û(¹mpk²™ eá)`?µ¸ G¼+áÅlÖÚQ‹Ö¦“¤B«¥~¨1h¼ïYqøüßõkà¯'ïDš§d`$Z*VX2-Ê-ˆÕ¨.V»:6z5Ïò`åï¬Ýž(Åkáé;mzÕi÷´gŽžÛמ§snuÊò™ri{;äŠdíÚ­À9ÄÞzK˜²ï;~OG>©Bu`k¬•êâ¢l+=èå“ڈ෪àÒì ¹’ Ç±r¸µòl$¢î­ã1Éâ{­-iCÓðJÌxѯ±×¸â.šp$ˆQˆ8Dß8§‹1Ö0—áƒémdIÔæi[¯¦Ûs xk›ü­äûù•x‚x5²N4lô³fÅ¢T[s/v£Zر¨ù‘5ôÏS Ì]c5«°írN”™L"`í(戃@ÙŽëÏÐÃÒíÞ§§µwÖº°C– ÃÏ}‚ëw™Ÿf¶ïÑ`gôþPˆ%£Gq€RE€êíŠ:›©€ -ìg>@×4qo@+ådFÁºy÷šgAf˜Ù#T—˜EDÛ(ºPU‰yTpˆ0n,T£ÏìŽÙ#škãÁ.s4X}]x1Pç²èÑ£¯fÌ­t©^U™MÑŽR=( Ç×*¨žéÿÙëí5ËJr¿ îT¯ÚnE<ûâ¢Î¸gþ]©oLõטS”h×a`cO’%}åÊ ¯Ñ(~£Bñëxw«‡=4ÆJ®¸x5©DÇÇKÿkßqˆû‘xõ¿JüßÈdü߉yö]ÿkS‹ó W‰Z¦Žª´<Þùî­p{š-Ê‘^M¶ý, ¾~:Y[‘U3K†vüG» ER—n“ØqŒËê­â먽õóv8™~Ö(—0°ÖÄ+ª5Ä–ƒ\ ‚íÑ Ni&î‘àRpx TÌä‹_í‘óè>F¡.È®’R¥©8{»‘1ñ:/WdHšÁ"/Húª±Ã TØ%YJZ[;äk«¥mã~ÀªË&|NíR«d¯¥Û‰yB^Qªd©lmîÀÛ"xÌLhˆˆãX•1XÉcÔ‚©Ý©´O ¨X¨Áꌜ( Î¥†ˆ›BX1„š¶^î5ì–€o0ðùŽ¦ipm²BGV1Êb<„TÁ=¾ÑŠ WRÂ^Áç=ÐXAÛ3Ç2€#øÝåÑ—µ©ÖÓ(Aô >®´¾Øû€ñÌE}Ž2‡rÙ”% 7’˪ô·Û91+`Èn¹9‡;Å«“éL¿N£ˆeáÛÕú–fm0äƒ4GiŒ·•—4=ò”´<ð¼öm m8›Ò¨Ãg¼ð…‚QaWàUꧨ*½U?£OŽ¾ s4$jm¡¥  £A§¯èöŒQÊBøZ§“è2Ó¥NȺ3¶qÚ®WÀIÌuò7B A=%Ô€‡´í…lÔ}åÀ†®µE;Øõ˜eܲAæ ·ó ¨¹aß>Ž- ¤…ð£ôâ”üjì^Û½q]ÏÆ`È]"¦–ˆù• 5KU(¿TÏ")¦dŒIskÑ°kŠú(„Ro4™z€ ¿ÐÈž½†Ûç.·!µ…ÉF B^%_X i%sþXålzku¡^° ¸¥^ËÍ%¸à–3¶í?ÊIÓ éH¿}i‡å‰9ÊÔ¢¹õ§‹~dèêÏ׌‚(ûRM–)È@ ž¾ïó¢$º xS-6^—|öùÀ¢(h‡ÿð%È“sû’ Ï—sÇk˜@DúN»“¿peIÙc^”(¾ï'4s™n› ¥AÒøJ-k€°aÚiµ‰SÂjßV¸¾ôP6—ñÅSkûàa |PB^E}1Â*²þ“š¥7èHAËvt.<¶›Ó ј¢0V™J>_å>|ê{æ$ÏÍßT—6bÂôJ È‹ìŠì¸G¤ÚeT2uä§CÄ¥e”Q Àâ4êÕHñÆšOýu‚>Ãv æë Ì{)ý1bUkMbYÄ’'ý®W&æ(Sk»åj&c¥þt­i22êO5+#U¡Þ´‰úäߟÎÉK¾É€6ðH6JoduVMÖŒéà+'{Ë—SÍ‘íØê"Ê8·ñ`=ý}…wÆ°UV‘ñôæ³ÞÈÕ6¶äÈ%”ÜFGš· î6‚íê½y©@ÎKx /‡²ášî:Dyïtit׉Ð^[cbpûÔ‹ÿÅuÊJñìDÞ=÷hIܳ'¤Ø(.khÌa'„y}™1Ë®Ò^©Þ}÷íGÙ]’Žðj2¶uËJ# µ¤^'xm“'³Wj´fj¬fjœùv¡r3À} ¹3©R†±•dáµ”½D6¶n³ó6Šp|«w¿ãåòáÏA ¥ŸdJ÷›ÛBè\–¿þ0¤üre¡bìëS™¬é̵!ʪïÒ^ºŽóµ˜þÇ ø¤±m2Ò‚Ñó4ƒRí¡$‘#H¥BÒù>=I]Æ;GrCÀ)Yæ¤Æ0Þyäò™^áËýÚ`£Ea|!s0Kz]ƒÀKŒpà+8΄—òÀkR6ò‚r«».¡œÐ itöE¾$BÚ|àï SK€¼’a â~}C?Õ 4¸3€·¥ò@ž¦£d+D%¢d`,ü‘Òƒ­ð‚ñ;ÈôUFnØ(“V0sŠ‹™»·€¾1›ç¥ä·Õ¢1RÊB4®úIº0ÒÓÀ£,p•ë™¿=Z¿ÀŠì64~Q«UÞ6 ‘Ê䎉Qeo.U FaY°J{稊áù52Pm<õ»—ó©;óÌ Ç¯¾øxŒGh>ì~õª]ÙP…JlÕp£ŒÊlQJ•Éú“ɦqaâ”Êg&Î9ªp̼T2Xs)jd²ÁÜxàqV·_!pi*ùO4ßeÐA¼~ÐFÚ’éÐÉø¦ûáñÔÿ——Q·ðŸuý¿vƤø_ÿ3žˆNêÿ'â©ÿ³ˆ¤à ÿ©GüO™Ìœ®c àO²F.Ó'¼È‚Y²=9V Œˆ ÁAKZ‘¬ ®¨V‘|#{ :}o4j§pØɃ$ÊMÑÐT¬†\æ½YK‚Ånè3¶AZÜó¥.<†²ôþ&iµþ•C&aeÁæ¢çºj^`,›âËL&I†ƒªäajçJåŠC¤¥åÆ2zÁìý(¹I­ò”TŒHÎ;hÊ%Œ+iŠDÈ)Y9»ç€À*`k׳¸`¢»†˜#Kg! dŒm +•üâ²IÕ7@¦°ä)ÖN(›€Û†³ÆˆäCæ9â—°;´~ñui²]>Íë†ÐõZJNײΈ¸.ìDK½—7ï@¹GÁõ_ë³èû9otÑg¡™!n,©¤øDÙ­ W鉄`¸^üªm6à˜û¿Žd´“ùÿOÄ` ö‘Iþo"ž±³q„<…ÚkëÙFÉ‚çSjóà P´ú12ÀKIÞÑÁm=Ýjí0VÂk}«‘³ŒÆ —‰8ïAp—KÆ®®UËi´`—>ñÑæ+û–_xN©u<Æ&_ÒË>áì=臊e“ý¥×Ë»Ô,VäR[Y^0;؆—Ü‘»oÐ+@x_¯W“œQ~€¹µ6–Á NwtbÄ~Í7Äê:Þä@8Ïw‹ÆBÞ±ãbucÇo¼7Ù4®†2Nñ ô` åK£6£¦ª’@¢FãËá$ ýj@¸¢çÏÚ³tû.>²6ü‘T9=T³Ç®n–öŸI¬%ÿ­À£ø}?®çÿ%M8ã¿YpRþ›ˆgßÍøjñcG^ƒ“T~ÐĹÃU ãi瘥œG¬eaJÃ4ÊZ)‘·µrê °¡ŠM´d»CYá}³¾åN{ŽÐ qgÐ×”ÈFçã»dòÙ÷§æúeû}ýOÆ"Tÿ×Æ"Q\ÿ““ößòìË‚ä¡(̺…ª«Åœdáä€êÁâp¬Q5ZKƒ:4Þy‡í…¼‚ 6ü:©7{]ëͼ^¶[÷;hzR©5©Ôz•ZÌQ¬g«y©Î^kýÚë^÷R–1w“’ßù©%ÿ1æ{Ÿ%À:þ?£±X”ÛÄI¼ÿKžIùo"ž:÷-F L¸’®Ç `¡MÊc¯…<¦lNöÞäÊÈ$)³EζíòD‚8JDÜ7ª÷»ø¶ÀSˆrPš´Ô¶„´G‚Käà >RÝþ€lÿÖ~×c¥›±¨ä†/LÏí@Û;]µ™¯!„¹“¢IggÕ¹ÍóQó[ï®UóøE¿sæPɱêä!¤B:ÑÝ'j.+[ÌÕ$Lø¹êì±ÜIËq'- êß'ÁÚ)ØÚ—•ôý+ZûW<šª_âµ4Ÿa¦ãív¿¿þKÀ277ãùõZQâÎEÂíoÂq-óû¼€u­êéÚä*Æ/Õ»V¼:7;ü—ÊAŽ»Ì¯\qt¡³ÇW›…Aæ¸À®ê( ûŽ¶¶¸áHÖQ!,ꌎ­ Ï6úðhÀ é@—‹s÷åq ÜÚgx28N îŽâ䛽Èpz‰4‡ŽæŒ{åsÎåtÂÎQÇL¡ôQÛŹ¦z·AÏèk3Iøè€Nø˜ 0s¤Æ:õiR/:©ýgÔ‹Nˆ®r³CQÙ;Q÷Øð&›}¿WqWv…äâñ|šz—ÙºJYÛ¡±%ñLvh•ƒ/Òki)jÍsVì§~wðÜ è(»`·?}nÐqåð¤Ð?ÂSKÿ ®™'ÀÿcG, þ’±Îd4£ñÿâÉä¤þw"žõ¿°®Èþ5Éä¾@Y“ÚÞ׳õ ŒÐka|c HQR±â+R ç6.khÊv_ u¬¯¶Ä/9*'×pí‚éB7U º´°ø¶®O9—§O)ƒíÓ6.’“¹sΤWê(|sb)?½´#ÑO)=i źÊKƒS2øy;RSU?¦túÔQâSº,Q’é!*FM¨Ñ»“æ[¨_V΋ HDÉØR˜TgLª3Ƥ©HFöŸª¢&ly '¼[ ÌGë?€×èX£±m­ão)¸Mj^—§üÏ™Õq Q/þC"Ö!ÅèlŠn2þóÄ<ã`Ä¥R‹3’ƒlA6šX”“Õ€bùjúì–r0ßÛH%ñȨƒ:ÔØàÁE-%køsGÙCJ¤S%˶¾©íþ½þ]C}MK\Îáí¬~îá3f£yøù‘o ú€¯«yõ uÒ`Ò`Ò@²ð‰ÄÐЊêŒÕPsY¯@Á¹ ü#ÄPx#?^üßÆ}?òQžÚü_<žŒÇÑÿGG?°ÿOtLòóÌÒVT 8!-­AýU •þŠsò‡5-þ­dðoÔa†øUYÊ¥TÚ~J¼¨ Ëçö@_™ý®^¢d ¤ SÆøí,°.Y:E Ÿ ­­déÊ˸*¤âð@¶é#üN%gørÜí$ &´—ˆïå¡0¨L­€Tž©yî Ìl!@~€ÅâHVa¹dkëÈ‘à $ƒÈdKò ò*5¶²S /Â}nu ÖÒ_2R[ëágׂ¢à‚lõÄη}$›OP+×€œSk¥-Îd0R­Ÿ„ÿëI#;…YªjeTPj¡ô(„õ¬ÝS·vN)uTY ecêæ®H/§H‰½­²Ì4K[kùD—„*FÈ!­”ÂVå¡TAË,d×1K[5PÄB¸\² bï?¥ý†FC1 º6Üê† Q7ÀÔÊZPs>‚Aª3ì™hÁq¯±-mpH†@HCàkÈ˼–*d´4œö*ðn$[Âá`ËÃ,m#T–Ååc ’C¿£¿28È@`NF¤@†Àê3†B_¹32ÒÚÚ‡'7à”¡µoØ(õ›– }E²¦”7r´é;[ ÍÐÒ³Æõ! ê©ôç²im€/Œ]­­%è‚_,žHâ¹5¼0óÜÑÅ`ÎìOåð%þfÙøw.)– js´Xç‚ŽX$Þ*Öb ( × P¹Á4ª*ùD0¤°%‘槔ìȧÒjß AÖ 4 iÔ؈åç7šÅa×raÈiž-VeX­á¶qC3Všá*´*¤å¹bEšt(—(6!­eikÍ‚Á?¥¢à £Û£A(sr¦Y„ÙÛG¸r²@zJï¾°”>Zf цgS©JŽ4˜þµãI"3(÷KÊ°.à6ŠÁÚ-Bµ Be…Õd,(ˬŽà½È„—ßÛ¬“Y"±ZH°DŽBììFàÆ#êÀìŽöÈsH£òõ­ë¿@§˜oñÀ\£}CŒ=ˇYá.Rtü¡ol¿§P–Ñ}Éx!ÄÍʬï[x.Ž H¤˜‡ò—<¢\ªÂ×I§ÊfVn‡DË”_5Éj @@`W÷¥;ÇÚ¥R§ŠÖXbMªÛ³+€¢Æ±oÆØ·6¦‚® ¾¿A>¬©dn?UJôwlŽ´/è˳ÌÖCšÒY ç7.Úµ¡GÝø±àÇÆ_åjT¢f$5ùVĉLQn…åF0”§jÀ¯ãÞ¤é É£+;‘´°:ŠEÙò$å+(‘ºt9•oK29rœpņ_ÐóÈ£õ,Þ°aù2]ÚxãX®vòp˜½%°õ„‘7 € Ífo·ê¢(¨ /ÃBðÖaºƒ²R®vÅâîÕ€}Éö{¦NæœQo#à —½½ûƒ†Å+8Ô°r0 Pê B!`ì*.žôÙu6\Ùd®OÖõðšÄ ›ÔçÉþév"ÂahÉ 'IãNb9"D²ÎZ”Q Ñ«ȳ,Ígà`¯‘Fév‘0W’‚Õ…ÔTCáUQbTÔŒ€'Âs®°ñÀA "> óÄÖÓºEìe²3Ô—"ñ¤˜zµ„ð!M(Uà`@1kèvÒ’*þb½OYá–¬Lí‚9ß mÜÁ¦"[0˜üZ"ö ¼³zÆ=ØEš oÞH¢ Oècw3Y¶ðV£j9RÖY*£nˆ,= z–Çî£0± gi@ÕÄøL^q —ÝJæ?Á»ŸrŒƒAº&˜…\U+˜Z‘°m‡YRDV»b&§úûKÆp6E‘Ó´uP„²œ:„'Õâ‚ßÑ—½ÜLÿöâ¾™Ä͸-³&,Ô”Ž†jGÂYËÎÁ éî¤EªkBÆ»¤<»_UiU0ú¤Ç:Ž¡N‰¿L8f£Äøšƒ×ÌÁkŒl¥‘cf© pÅ`{P½D-¤èÄ3° ,CÝ)K´Ö-Nߢƒ@É™‡¿CÜî^—`âòL$Ø2H ,;%zKËd ^)*º/g'¯“`D›@w¹Úex{ÙvÃëUÅÑEUr=¬G7ˆ]Š½&_Ø’¥ð€¾£Ø²otÕbW1j«Kc~}#(o{úxI€¹Ôqö’‚`¬ í*šÒ_õM"vŽïöo×D¯‡-Þ»1«7Ø 5ÅÕ„z-@ÒõbÖÐj6®ËƲ¬©eÏç}t~à œ£òQ-tŽÊ•ší%ÏoÍ‹^‹Ìs9e˜7 x꛳¡iÁÙA“kd”ÐIªÔ}†Q•dî1à?º-´R F>É®­EÑJJ $„ZrÄ[^`iT\p5H¾óìÍd3²1wD˨x1„ ÎûûÉF1奭J•»[ÞF#aPˆ¶4ç%R8ó8'G‰4r!˜VÉ ·oâG5®Ü¨ö€%ÎËÊ[e5ún "d-HLt§õë`q0€—@Ëô 1Ò\]Z §Gß|uE/Öµ8Þ˜D¬Q´ÑÁö¾锣‹¤È?}’¹L÷ƒÏÒÆÞñ4ù5‰™CRÂÅÛå_råbZ0´Ï)ápXúߥlo<Œí,4™%MÐëcŸ¢¯¹ÞŒ/RU݈ãhí2"ìo”ýÙ{MP¨šÔðéÂJÕt’c9{ËûœÌ°]*¼™‚íåµð Yp%Ü£P]ÅJ;~XÄö%ÅcW®X°äÃ8µdê:¾_yé‹ëõ`“†£j—†Jéš( Ü¥ÛŸßÞP­HÕãò®‡¯ ÍÖnÊà8~nmq¾!¥A·ØÂQGš6ZlÄÄ»„ÖÛ…f-­®TI{”ýˆ€¶‡~™§Ž áy†Ì V¼ É' cí¥=…d&ú @æ†õ¤B=5GÐÁÒ¹¢B–œ.e;+‡ÁíåÈ⬆)éâ»c¼¥sæ/ëàÇ$VlTÈŠš¡ßÅ‹(ïû(ö½LV6.ìRˆ„íýX¯zŽ¬–Øé•NÝÔó´>¡ÏÀµ„4J-+Îñ¨ê¥ÏNõÍ+ÚǾpR©3©² ü¬&F³¬ÙÚxµ-eC±Ò*ͲÝ3˜Àõ4â}T,aNÖ·¶HRñz/åëN›™n*v›äÁ!*¹úH”¾ðìÓö(d.:ˆÈpThñÙ}ë•q–rØz†ºæ"Dñ`JÑõá܉£ÄGÕ>JÒÔ> ç~cêD|)Y…\ï²…ÓáI‹—÷±R™¥­J2d£(V …7œ¤ •dcÆG(ÚB½Ÿ8«³•l‘±Ò éêö[”ô8Li}¤ã4n Âk’í••œ›»¢½€F›Þ†ê/5‘,Ür>’‚ÑIc(¿IʳkG¾K¥h涿…“q˜ÃGzL›XLnƒ­s“<„‚Å”•…eÃ?²?>d¢[Gl ®Ü¼+ë.àô¢Ök}µ¯¡Çïþ'³û—k uüD:â¶ÿNˆÿÞ휌ÿ>!¿/fhÃÌÒß¹nÙ/9ˆÛ^Z?÷ ¯Ä="fÅ×¹*ª^E¯"ìâÊè¯`BA¾åQþ—1o«#›¸ˆHS[½/þÑDï4¼ ¨&AïØi­¼C²¦‡KF1Gø-HÞœèê[^Ðˇ‰° šzsŠØß XC¼çÿ¶ò8¹þÁ§ÎüEhü7yþwvNúÿgßýÿØÔâçú=5âúg•Q2Ж•¬.¼´ÓläùÇ×QemÏ™uíOÿ?̉l]ç?ÎfK_pØsRô.þ²*¿«÷›Jö›ãŸQºÿ'ž´]Ãÿ‰Ô“®O&Ÿ×üñÜÿéÌŸÍ¿©ÞþëèŒD¤ý¿öÿxGÇäþ?Ï,žLŸOø×lš¯»üWí@¯Œ¼(kùqAó ºÀö‘M™äƒî{Ö{ö½äB…ýŽEØoµXLx}QßGœà’*¸èOpQÊ܈ëù˜Øª¬ÏÊy¥/gaƒ•¶TÛë²& « D®RZeÃÈû(Ϥnà–‘"Ti<9mæó)LC|ø=¾ÆÁR½Þ ›[™ö\Ò­H>ñuÝ^X˜vñv²Ãà&#÷Ù:‡SÖXú)ÖéÙ N7þd‹/„ ë3‡S9ð_`ƒðclÛÖ´‹mOºÎ®$€Ë©AêÁ7-®Aß.;¦U€h›‚HŸ¤ž˜¨'Þp=1¥ëÂJª„õÄõ”Ñ5nÀV≠©„À9 ™(`’7´Ï%ËáñTçU¤2’»œr¿!ôðèê Ö‚&ú ³YÙû@¼È-XÒà_<„í@PO?áÕ’§DOuÑ¢»„\€ÎµvRNÎW)xÃÀÒHzÛØ(‘pDMªz&™Ð…2›1eÃ!z¥$d"øœQé¨Í®ÜR?âû(š1fCˆ†DÃÌtE®ËÞ VäD¹ÿ\+ŒX¨$¹9‰uJ+FÆØ&'éÔ—#PG§Û™¦3 Sª9Mª®l䥃<C6µºäun»RŠò÷R›°@ÐceL‡sæ SŒøÛ<úœpgžÌɇM¦[Ñ#…Òç”±q &QC?è`'ñMJf^qf(›JŠ#Sî$Òžš Y<ã“:J;Š´7AíëªgúǼEÆyÄíè­qy¡\ªŽigœ?Š>gž=áز¤”MNpÓP “iÌ=û=f³ sD.. Úònu‚îX5lјJípé‹ÎˆNwÌ=Û×1@=ÂXÆ@p£!G;Ø6Ï""ù$#Ú—æbЂ1‘\rbf¤¢ÓâNöµÑÔƒõ˜š¿¶9ü:/^²r-[¾þ¬\Õ­;\Û3 .€ƒ‰!U¢kÇd¯À^¡µYìZÿÈß8W£ ucènÂÆÎ9LÝ ³@F-¢J@p¥Â/q|‡¬!Õ±õK.âçˆfºm"X‰àÔ%èÞRjõ.u"mWàÚ{èXa/J•ò6Ô¢i•% ©}°7ɘŒfÈ…„-”mW!0nL--zŠt*]Ù±ªR%s`@W"QË£êLë+¥2Y“w!ë±ôãZ‚_\.ñ¨íåÜC—Ê=Øì(ã¤âŒkPù5Š—ƒ]sô¯‹çª’±ÌÒ)îÈ*6ÑJwp&ØØy9U“²ÿw‘}k©e‘ýgL;Etÿ7Í~Ka) NôS­Kä'¸ìž¨"MÐhÝPBžÄý>g ”÷µ‹×ÛSrL’A|½IÒV˜¦¶Ä9'Ž¿{a{5šøá©#yÐÜѶ×M›µV›ØÈŸ†«Ø×ß‚ð˜Æš3_Ö9•O3³”5ð|S"_/‚Ûè"2! º¢ÖÑ1ÐYLzá$î›kÿK—WF}@Ø™Áý6‹ÃA!ÙX0Â2y¾j»<Ù¶™$|× YÖöY<‘%ýÆOÖÈlÓkFq1)k %Bæ€â]«’”Õ È’†ã >á ¨Æ«L2 ¥Í=OwóvX |™AÒ­\6cØó#”Ä0z2ƒ ¶öÀ™/sQÝ·¨ÒoË?倅ÎR¼‹|øs{ÂbÓlî¦K‹Ai³°KÀñ­Gî¿‹¥_2ndé.¦ð ‰ GðdAè[%1C¨Ëô8Í•  0=J“¢á ;0Ä>rŽÞ ÅYR>UÚÊä{=_탟´†v ˜g°”Ζ«Ž|œ‡“tÿjn¯ÌR>°±¸þ@Ê*éìé­06•â,Šø’ú–Âèÿ«7s˜•áʸ „u|1âçjjJ¦”DåzDѺ;“¤b@VDLÄ2%µB~ŒìU ® Åøñ…/§Ø£Ãf‹„„eää%X]Äl lÂWP-ýÝ–«øF2É«'ôØ|µ ;ñ@ÁYÒ’¢Ì ò‡M±X8qÀ4øYLÝ.ö¨Ä¬¼U\©ÛE(¹²d„ R³/&ËË a®``:eÑáǵ`°¥­5AI` QD~Cñ5Ã0káx>à«`e) @ÁåwȦ ¯éi­E¯™Á…ÊýºüZ÷G]æôòÒ6¸RÂnÐkQ¼tÜk$oŒæ7’7Nó&É› y“äMÒ¼äí y;ÉÛIóÎo$ï|p $ã ‰¿wvÏÞ½³{ïÞ½»óÝ{vç÷ìÞ™ŸÝ´wÏν{÷ìÙ™'¿öîÙÝÝÔ´g/d!i;wïÙ³g/ù˜MÊæ»»ó;gçw’¬»ó³Iún…$4Í&=·ggwÓìîÝ»÷Wz¾›ÔÕ½söì={D>O íÝÝ={'ÉOjÜ»“dÏÏž½»»j&™vw“W{à“à•ß È—;Iɦ٤λwÎÞ³w³s'ù ÏÞÝé;›šH†|žÙ¹»©»{vww’7;w”07`A 윽—4O~6Á¼›dð; rPÁÞݳ›ô=ÿ;÷îÞÝÔÔMþkêž=0Ý9»;ˆ´™´q÷Þüž½;I‹òM»÷’¢¤…Ý{†{ò¤³šºó©¦¤¡¤,”Ÿ=›|ægôòùÙùݳ¡g±¿à“=ݤ*òä}‚q7©‚dÌw“†åwvÃ8ÁØ‘¯t”Ètü` .ð±:q'½Ý{gwïínÚ ­€&‘Nß»gïkK…¯“'0øjSóo[u÷®‡.;ð°¹[»ûÖ¯_1sÖé^uÏm߸æ¨ø?}ìž=úméÕoë¾÷ãßü``Ã[¾yïíß¾!’þÖ‡»ïûÄwo™o½ðÓoÞ÷ÉïtÑe­o?ýþ;žøتÎíýÖýŸúΑÍ'®:jÑç_h:àœûN¿q惟úÑç¢S{>ôìù—N½÷žÕ¯”úöÓiM[n|áÁÅ—Ï<¤íþ'NþÅ]}ÌqÇglÛ1ýî+Û{✕ÓÞþÖ¿þü'^þýÙ‡¿õÈå×^ÐùÈ›ºäÄòüŸ~ìŠ÷ôIsþ=ç_rß´–[Nzì¿OÖÞô¬+ž¹x×{ž8dÑ–bÏò;›vrè赧\zõw7¿ûÈÚ¯Þ>}ñ•¯þý®ï}õË/ÿï³_õšã×}í+ùÃo~ðé¾ïí«{ùÅ_n=üÅÅNùë[ï¹ûß5O›1íŽMÃGíhšñ–_ûìÔ–È+;šš{´ÿ¼|~õŇ›O<Û¢¦ÙÓf.š~ÒÆEMÍóf>{kËqKžýEëqwõà[f¾7ž>å©;>ÚÔñì+Kßÿêç/mžrøÌ]Íú‡w\Òüíª]—9×%j>8uÃ1W^rýÁן÷™GîøÆ»ŒÝ¸ã¬Ìyßxöúƒµ]ÍGv$ž=qú¡ëW=uKáé¬>ý€g{É-l+.šúîW¿Ù¼ëØ)ßzè_š‹¦ÜÖü¶g‡šÚî?jÖ´)?=7û¾ÖÇék_ ^›½}ê‘‹}bÉŠgfOÙ»ð·Çïøô14íxõŽÖ¿<8õÀг};î>õèO7óÇ3×1¶«ùÎGŽùñóŸZÛqSÓÔ–Äc¿¿ï»á3n¿7ºøÎOïžsÙÔHO~Êßµù×<Þ‡>Ñ´à㥚οÿØÿZ_\¿hhêqýîĦÂÓ{v|õ€·7tÛÿ»úî[?ö¦¯jzÓË? ôOÿhlõÒO70sÇÕ×uüä¶+ŽÈ„šÞM“}ß”g{‚Í­ÍüúŽ]?¹àcÛoÚûÝöhî'é‡;Â[f½yÚ#ŸypÊÌwÏ¿m{ò¥Ð¿·ô¥¯4ßÕ<åg±Çºö”¹ßŸ²íK¿úôÞ–7={ÝÊ®jåΦ¶Ï~æ®ÝÇôÜùãcŸúÒžÉ|´½üÉ)Úš3ÒÃ×Ü9ã+ý»>ÿn£ó·ç¿zÙ“kŸÙuãÔe›ÏºoÆìŸìøð•ú]¯<÷ÞÎÿyå—×® ÿåùëÏ)üåW7Þõ—_x䮿4_Ø÷ž)33kvM9âî÷¼xó´@Ïâs{ÏIÍ9ù÷çTž­þú ƒ{.Ÿ6wËŸ2°û³¯þdÓà›f.n ¾2sÙÌjòøř̭•³¹n{ê’üe—”.~¾}˵—N_³è„÷¼œýêŠeé'¿‘œyAÓ8¥é“oo~ð{zOjþÛK›üRþþ=_û¿ÖæýÐ7ßöïÿ©0íí=Ç7Š7œ°ê¡K¦F§î½rå¿îÝôâ¥G}g׌ÎÇzóE/^¦|ë+ü芯~Z»pîG½pþôõ¿êò=-º*Ü=âöÀÔ[4ãá»wL¿üÖ¦W_¾õ¡ÝOþqîÀ{Âk¾sQÓMK:ÃÙ¿<ºtø'?š’ºñØê¦ëÖ½2eÑ¿‡Ïn¾ôO¿»æ¸c~|û‰+šN¸1дäŽ3ßqäÜ;š[®\r豟ùûa³Ë-Ÿ]± ²cÊ ñ;»n{áÜÇ^xòmÉïm:äÞÓ†žüɧŽL™þÇoösOë®ÏO8ÿÊþØmgÝ|Äü;‹¥žqý-3V\ÕTÞôPëû/ºõùƒ¿që5ùÏ̘¶Ã¸ý¼òŽƒ¦_ÐsõÜ7ù§ÀEùtßœUFË”»ï‰¿ù;KO:j ´òð©;š–Þyt¢åñû›ÿû÷ë?ö­?uÛ‘É;þûàUOßÿÃwmXsmóM¹-‹vÜ=Ð4|\Ë¿­:yç3_ª&gl¼½{Æ«ßü³—¾ùéá ,´D~xïgŒÐŒŸ¿ºeþCM_ûPOqù§7¥–>ØÒtýŽwùìбó/™1ãêÇ/‰]së¯Z{èaŦ=þÔ3We?²öÀC—ü*Û÷·o ÿâãguÔÕÛÖ`Çâ_Ü»¶ãW=ÓO-GWòƒìiß¾ñÊß,ô_°hðà ,ýäüæ€i¯,žÑ3㬫¦kS¯¿³émÝG&×=£Ovãá3×t´içY7ö»YßN1똫M‹þõ×SVDÎ]û¾WœØöÌ3·}bMsÓȽçc]•#æìê>;¿èÎCæÿíÀGO8äéS‡ß~æw–=òÌ •5‹>sï wœºãÓSÞÛtÕ‡3¯ÞvãmŸoŸû“?ï~ໟ-Œ|{ÏÏÿúç/<ø¦»ŠWœñÓçŽyùÇÖÜUºáÛ?ýu×Ë_|ü}w•?yÆÏ^¸42ýÜ[[ÿï{#7èêÕï|ýÛÓþãË_úÒêg›žþìÚãîÿ]Óá÷¿õÀõ_üöô›wÜüØüKã•K¾ûÖ_œ~ÄÁÿúÜ5?kš½ëÁ?†oŸžÎ~îR½çòï®j:pÑüoO+ìêºsõƒŸú›oo;s×”7]ÑÑþõ¸MW?4åØmé|k pØ”¹¯¬Ó‚×þï´%Å_õ»]Soû탽»ïžþÒ›>÷•'nyðà%‘©OoyKdêü ÏÜqÙ 3©‡×jIfɳG}êÁÿ˜¼ò‘E]M_ýúc¿J,8{ÉàÿÜ6í«·ôà׿õê´ëß{ø¯–8eÃ;Ž<ø¹ÿï¦]?œz¤·ëñKý [/K¿rèÎÚ]õÞŸ?8ãð]Óò©Ç¦½äÌ÷¾ºzZóé?;ÐxWùˆ·u6­¼ëº÷"7Ìþþg6~zê7?ØXtÉÍ÷~šýÝ;»‡ãmŸ½ßX–í=ô£ÉqéG>ÿÙ­;ãƒî˜rLòÚ›ïùùñOmûèîS7®¼iÇAgMrƽwÞºèö—Ö½/¶ø¡?uÛÎÎÖ%ÉÛ¿ëTmÖ1ÿö¶‹¶ÜüTäæOmê•3>°ðñ½¹óä¼3v 9cKOù­<Ø~`ç”®êýíÕ›ÖõÿýÞÌŽ¦£#ÚK÷_ôÊ—ÿ4ûK¾icµKûÓÀ÷ßUÜðŸ»/Ž|üOÿìÙñÜn=÷è3Þræ³=ßOœyû‘ï¼iúOÓS§~ìŠð7~<ÅggúèÝ÷®­{ò€;n{¨´þÔ{þdeþòÝM÷½ÔsÉaíÙõÿûô™W¬œ7òƒ‘Ŷßòñ¦÷_Z9å •˜9ðòú™2õmço¸¦?úÿžn»ú¹W-YúÞXäè—©ÃßÙ~oøŠ‡›C»Î=xÛµ‹§—/öè;ÿtÏe/üËñ‹.ošµèÜg‰÷ñS_j>%¾½åKÛõËŸ»î§_:÷ÿ=´&œžÖsYðzÓÙ?ž;ãüiÛ¿pÑc;gf土ݶìSM\Y½ Ð1eQõà™—3«ÖÊ¿<^ÿ†¦L™óÞæ‡v^úËh=wæ GrÉ/ë¯^ÜÒ¿òÂBlCdù†K]qô¡Áh[SòîèMçî8«tÆòÓzšç/ŠÞÿTÛu÷žpýQ±ƒvLý›KŽ;·Ôqý¥wxά¥çµí N;àœµV°c鬶û‚ýáª5ñ¶ð7½wy1yøÕÿèì=žýóû›/OiøˆŽë;gÿü¿Ž_ñõÂŒ™íwÝ»ýWÌ ­Ìo9lÎÍÃgg>¾éÔÇÖ¼|ÏÊ—ïiþùó+Úqù»§Í9³mÇŽsÃO”øAÇ”Mw`èüËf^{ú”¶?wâÛ_9±ï‘æ·_8ã‡úÛ_ú@òùågß¿5sƃïh}õÏǼ½cÚ†bË›rߌ¿çº¾Ë›Ïæ‡Çþ(8³?zþG:Ò×=ÏfÏxË‘ Ü5ã_<:Ñ1õ¿®úÈÆ_ŸüÔéèùŸ:íŒ#ÿçO'ÿå™iþïä>>mû§<¾àÖWÿÒõžÔQŸÈ®{bêQk8óm¯¶d¾nòÍÃþmɟ߶ý‰Ô——žòԂŇFnn¿¶iqÇmoýõ»iî^täO—oý½uÌÚg§òì´o[™Ï]vd÷³3º_œÖý¥]5ãæöG.;rÊÁ3?ÚÔÓ´þü惴#þ=š>áÅÛo‰¤Þ¾cÚaÃG­Zô‰¡2§Í8àÈÔC#SüESñÙnýóM:+}êÝ3N½ö­ü õ®³O=´xj1:óÕÿüД OxÛyÚ`SÓ”§ßZý¿c¼{Æa]G\ýôM?‹7ßøâ´u/ÞqHÑY|ôæTKóì]ÛN»÷’cV_{çþpÊŸ—~tuÓ)§ýË·ýå‚U;øÌ/¦æ"Í?ÿæŒÅ7`xfºõ´jêä‡î¹ãÈÈô‡n=íÐ=ðúEŸû¿æ‹Ç4_tóç>1óŠæ)/Mmhzë¦þËOÿ·›ò±‡œÊÀÿuýòK¹ü¼ßuí"­xÔöOLÝüDóôßú®áÁÍ3>rØÛ~uç­/ÌyÐÌVc`æ÷?µ¨³ë´?8åÏ´¯[tØSw¼¹gëÞÓÝÕq×Ç®›²ýž©Kš¦è‚æË#éßú‘Ã6Ò¹£üç£Þúøß»°ùŠÈ«÷†ÿvoäØûb'ß—Ø|_ÇÅ÷Í¿å¾®/ßwÊžûNýÛ}‹Ž½ÉÉ÷/Û|ÿŠ‹ï_uËý§ùþÕ{îŸ~OwìŦswU›Óséa=tßîb/¬˜zËçW¶öðëµûb›<¿íÐù÷þbøšØ¥S~qêÏ׬³Þûç{š~eÓÉÚ¥ž#fhM/߶;tþÙÏL™óè;Ÿzþøî—¶í=Àš^œý‡—CýòŠ[ÿ`…ï²s÷õ b³;àYK?ò»Õ±`4Ù?Í~¨÷ÅÇ>~Å÷Ž<ýÝ ?rxÏ‘ ŠÓï»xú93/OÏl Ýýå/ÿí ß<²iËãÓoý]¢õñèGŽN½oÊ«»¿rôÝg-\5ÒÑÝ4P™õjóªÿ}õéâ綶¿²¬zGlʧú— ÝÛ¾êáeÏzÑåÖ?6#¸yåŠà¥mÇ}tÚYmKÞè¬køXSâÁM‰m/—çMyr^ù²y««ënènº-ùÒv̳_ýé±_ûק¾zíËÕ~sÅ]ÇΟA$²ç¾üðò ½Ÿ¬÷ø ÿyäÃÇ. Þù›«fŸ{kiäùLõwO­-Í›;Ø2÷dë}ÿyî¼ Ÿ/ÝøÔìçfo»öåÙû;ïy¸ôTà ½š¦?¼íîÒœﾢ眇>òǦzÀoæ̼oÁò½¿¬,ý¼ž¼Rõ¹ÕǾôµOMû÷ãž[}~.:ç†5æþõ¡ø«·?§xæ[?4¯øÒßÿoöÊõs·\:ç_.Ÿ|É_¿4ôjÏ¡®½aÕšØé‹Ç_ûXùÊÄ·¸ñ¹âͼâ‰C?ÿ/=öÑeG,_^yyÓGvœ>ïöùW=ܼØ8cñO?nÉUÿö›åh‘”†ßÿœþççNœ²éŒyÆ~tù¿VZ;}Ѫ–Ž/žxðÞoï†Î\òð®æ°öþÓæ‡{Ûœ¥±•·_:÷s÷®º»Ô½ªúÄs__UúîºG;ß•þæêç‹ë–ë;>pÐ÷ÞtΙÓgNOœ«_?ó’o9jówô{>|qrU@?W?îYý˜‘‹-—ÎÚ´ô?ÿãô¼w/ê^Óñðå|úøÿN|÷¨žUK™xáþ9/¼|yømóþ~æåO}¢Éz¥ùÁ¶îÍ—Î;}Ëçÿp@¨û÷¯Î~ËŽ)o^¿{ÚQ=7–·½ï”Ї¾óäšK§\ô‡ÙïÐ~xè…S¯<ñùß=ò–EMÞyxû§¾<ïÅ¡õí¥‹ÿúû‡NzEÿÊõ§·\ýú²)]™³w¬ÿÖÖ—¯:6½ýíŸ þµC;öîæÌÏ–æ>ßld·ÿêð¹KB_˜}_Ç;>½Öüî¿\ï.¾réàwo¸~vþúyÆžw¿tåºÒæGïÔçÜpýŽmß<ëÿ;ýùÐeíO™ÿhù{–ÌøÀÁ_|çüùïjŸÑ¿«åëWöÀ5û›“Úz"—ßûÎàüHäñÕÿñ_ÞW^}ÄÔHøóß: rÆЂàMÍŸú}àÆ~²÷¨ÕÇš®?4yü¢ýн—mùòÊ«C_°~óÄ Ÿ0o~õO³µñø¿_w^á‹+Þ6÷©/¬˜ú®moÕ^Hüü“zäWÛçLýýì ¿R¾ýî½7œ¸íÜ›¦ºy}Ç°Õsö“??øáž7ÿæ‘_½Ôt{±õ¶Hëûï=¤²¤ùo;iåíßxS$°ý¥KgïªÄÜÔý+óØ× ^~ÍwŸ?aö‹—~錥Ç/™µéóÁ]¿;aÚ6žq{ð£÷n<0öè¿ýtíÒã³OŸ²«º¢ó–Û¿L_þÓGÞÛ“‰·ÏÝúû㟈~ê7üvUaå+s?vÿ׿sÊX?;þ¾æs^Z·|ç¯Þ´|þÝK¾»âÅ•ß?ð•‡×<½ý§ÿõ__ýÝýg6'gb¤§åÙ¦EÛ·½óƒýú§ËÜuú[®Ó?ºöÕs9éª!}æ÷N?ö¥¾çÚ£žHö4_õ??<¢çú§f¯=ö—×>:ûƒZìO-‹=–¸Zû}à­O>ô›ÄÐçt%® N½añ¥O?ù»ëŽ{æºÁ¯ð…#tieíÿ\¹ý” K?~ïñ»W¿ç†W×ü4qÅWúÏ™ßÑÔÑûNÞ¹á‰oü4ù·k.¿õÉw]óÔþíOŸ_þê·_½ðWÏþÄ9]ôÈÚýÿí]}leï:·‚±aL,ÉÜÑ9×nu»Þ]LJ)n+™0\Øt H×v-[Ö®ÐNÇ`K&Œ…†Œ Á?T P'‚‚¦›ˆ À@1A &~D%ÎM¾ôÞ÷½µGw·,ÃéûûãÍõî¹ßû¼_×»kŸç·¼mz'­ÝÛ^ž’²A·Pë˜{mn®n\©öÄÉŸ¿Ôë-kÛ—¡~¬¯ð¾ŽRßÌÙÔ©¶–©Ô$º=%ì»vA¯ëP'­?xìÈì–}7~^ëx®÷—Úª—×å¿3¯-Á˜­Š[ôZqúéâšBý®¾›“~|¸ÀÕ0!ƒËrÅ©ˆß(>[UþõÑôšd.{ñ§¶­*]Eùö9¿ö6eo>1›`Â3’ŸÝÄÎÑTœuÍo¹¾4cÿmñ™¢J}÷Îã'×oú½%pþê'…©=åí»ŸvÏìní»¸ëÌäk&¿›jKÖ©HUœÿøÇZø¿lc*Ô¸˜GÕ]ïaÈÝOuo?•H«q“K÷–/ è:ÈÓÙŸoÓ¶mÃêus÷ÿè|æÃC½É¥êÕ+Èès ¡øùFÕ´Pà-ZŠê›üÆ«lW|þñžàW¶ «›ÖP›ëª}%Î2¾Ô|äø¶“jèÝr$ùºiÙ÷i«B÷UuX{.Ú:Kò7nÒïÌ#©5/4^Y{}Q€î»¸'µ°·+“Ù‘ÖVxuüaUªí͆vnXó¶ßß2ï¾+t^àuƒqë{—Ý_žñeSq­þ!BÕj~Q¨Ýaµ67¯ó ©Äº9Ô••U¢j·RÅ 㶄;5ŒµÂ ]36Å4-1xyVë؉Gµí¡µãÔã4Íû¬Ö„V]æͲïJ›W®LÉxb×–Ý.U²–{xÏy­£+-uVÙ¼??P?¹±`¢&1Q5õž¾6Íûý%Ìqú– OCäÿdX†ŒýýæÍø÷¿‘@:Òý%ИÛáÿì ³E³%/@ÌjáªzM<謮 .x®?­"¹ ü)áÎK7,y¸G‰*ÆLÞåŠT.Dâ„%;˜?¨„ŠAä`T”åöèºrQÒ¬LÅȘEJ Ú¦$6œ ê%Ê#1ãŽ)? KÉ}ÅX¢¾¹)ÅR3Ï­f1=‰¶=Nå¾’šyúŠ“t‚[™Š“Œ§àÝŽ±‘¡’3“µáä¨Ðˆ°ðKK|3K‹†Ù°Z9¯D*^Æ,ÖFJ%7¯Y¥ÔŒ¬hÐtP±æX3ªÝõÁáï+´Ÿv(R1’†(Q9ÝŠTw´“9<•ÇµqðÊ^ÁV[àœG™T¨´ mR‘ b©ü÷R±·Ce‚*©–²TKJá kÙ4uÔ¤ÑE÷3¼Kªö¼<{žÝ½Ìá[âuçc$i&ABw%ýæå)†g(šì(3Íñ*‚Fñ?¿ÿSoµs¸æÀ?+<àñ :þv;Èìk·ßeè¡ô_(’ÆŸ5³Â Íò‚=O™qþçA:aÊ(u~<Þ_OÔàÚˆ² ØïŽÂ\µ•‹éyñŽÅîœQóM‡!‡A×?÷¨tßõÀ‡Zÿ4ÇFÞÿPÔ¡Y ¯ÿ‘@:ì‚D}•?èF¢gbp}l k¾Z8Š¤™r4v1-<œÊ„Ó¦M˜L}¬Àbæazy„vE“Fcï×s‹ì@ÖA”Tþ^wÚC­éÿÓÛ€!Ö?EÍéú§I3Câõ?Pg³‹b;v1ä\/ „8M„»a'Œó¹;ÐÅ!ga-Ø!Š˜M!ôPÙD1/”~3 i™‰,!s¿}pŠ( N•Ó ª›ôdTít˜¯4“Aà¤8+už!&úCš;bs:Qð¼Ï× J\ÀÐçj¯W˜ GP¾eðR×$’w$‚aÌâM²¨w‚àHµ,ʨšˆ¬¬šzP+PÉ-@¯ÔÁ…0ÚYbÌ1È-šSTöTI™¨«%~Ò$!¡*­š„’€øP»ìbº[FË+7š4IFMp+½Í«2ÔÔ›ˆ(«yWñ€1;QÅ×U§ Ⱥ©Œ‚Ûz9G¶KÄj`¾pDS›CùÓ¨|ˆ¤3 ÛÑ#ý®KÇÜ=¯ÿÃôìpgÏHÿ‡çñõ$€Ÿÿ0000000000000000000000000000000000000000FþLlÔ@ðifeffit-1.2.11d/wrappers/python/TkIfeffit.py0000755000175000017500000024474110771740460020006 0ustar segresegre#!/usr/bin/python ###!/usr/bin/python ## ## TkIfeffit: Tk widgets for GIFEFFIT ## ## Copyright (c) 1997--2000 Matthew Newville, The University of Chicago ## Copyright (c) 1992--1996 Matthew Newville, University of Washington ## ## Permission to use and redistribute the source code or binary forms of ## this software and its documentation, with or without modification is ## hereby granted provided that the above notice of copyright, these ## terms of use, and the disclaimer of warranty below appear in the ## source code and documentation, and that none of the names of The ## University of Chicago, The University of Washington, or the authors ## appear in advertising or endorsement of works derived from this ## software without specific prior written permission from all parties. ## ## THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ## EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ## MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ## IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY ## CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, ## TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ## SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. ## from Tkinter import * from string import * from Ifeffit import Ifeffit import re, os, sys, types import Pmw, ScrolledText, tkFileDialog, tkColorChooser def trim_cwd(f): "trim current working directory from a file name" cwd = os.getcwd() i = find(f, cwd) out = f if (i == 0): out = strip(f[len(cwd)+1:len(f)]) return out def ask_for_file(parent,defaults): "use file dialog to ask for file, and chdir to that dir" f = ' ' f = tkFileDialog.askopenfilename( filetypes=defaults, parent=parent) if (len(f) > 0): os.chdir(os.path.dirname(f)) u = trim_cwd(os.path.basename(f)) return u def entry_replace(ent, val): "replace Entry text with val" ent.delete(0,len(ent.get())) ent.insert(0,val) def LabEnt(frame, label, value, width,labwidth=None): if (labwidth == None): Label(frame, text=label).pack(side='left',anchor='w', fill='x') else: Label(frame, width=labwidth, anchor='w', text=label).pack(side='left',anchor='w', fill='x') wid = Entry(frame, width=width) entry_replace(wid,value) wid.pack(side='left',anchor='w', fill='x') return wid class Command: " Generic Command execution (simpler than lambdas)" def __init__(self, func, *args, **kw): self.func = func self.args = args self.kw = kw def __call__(self, *args, **kw): args = self.args + args kw.update(self.kw) apply(self.func,args, kw) class BaseWindow(Frame): def MakeMainWindow(self,master): if (master == None): self.main = Tk() else: self.main = Toplevel(master) Frame.__init__(self, self.main) ma = self.main self.main.title(self.window_title) self.main.withdraw() self.balloon = Pmw.Balloon(ma) self.menuBar = Pmw.MenuBar(ma, hull_borderwidth=1, hull_relief = 'raised', hotkeys=1, balloon = self.balloon) self.menuBar.pack(fill='x') self.menuBar.addmenu('File', 'Close') self.menuBar.addmenuitem('File', 'command', 'Close This Window', label='Close', command= Command(self.btn_press, 'ok')) return self.main def btn_press(self,btn,event=None,ok_action=None,extra=None): ret = None if ((btn == 'ok') or (btn == 'apply')): if ((ok_action != None) and (callable(ok_action) == 1)): ret = ok_action() if ((btn == 'ok') or (btn == 'cancel')): self.main.destroy() if (btn == 'calc'): self.do_calc() self.update_params(self.param_map) self.update_plot(None) return ret def createMsgWin(self, m,width=65): self.mesFrame = Frame(m) self.mesFrame.pack(side='bottom', fill='x') self.statusBar = Pmw.MessageBar(self.mesFrame, entry_width = width, entry_relief='groove', labelpos = 'w', label_text = '') self.statusBar.pack(side='left', fill='x') self.balloon.configure(statuscommand = self.statusBar.helpmessage, state = 'status') def update_params(self,params): for i in range(len(params)): r = self.get_scalar(params[i][0]) entry_replace(self.wid[params[i][1]], r) def update_array_choice(self, type, selection, get_group=1): # print ' BASE update_array_choice: ', type, selection if (get_group == 1): self.arrays = self.get_group_arrays() self.groups = ['None'] + self.arrays.keys() self.wid['group'].setlist(self.groups) if (type == 'group'): tmpx = ['',''] ix = 0 iy = 1 if (selection != 'None'): tmpx = self.arrays[selection]['names'] for i in range(len(tmpx)): if (tmpx[i] == self.defs['x']): ix = i for i in range(len(tmpx)): if (tmpx[i] == self.defs['y']): iy = i self.wid['x'].setlist(tmpx) self.wid['y'].setlist(tmpx) self.wid['x'].selectitem(tmpx[ix]) self.wid['y'].selectitem(tmpx[iy]) self.update_array_choice('x',tmpx[ix], get_group=0) elif (type == 'x'): group = self.wid['group'].get() if ((group != 'None') and (selection != '')): innx = self.arrays[group]['names'].index(selection) npts = self.arrays[group]['npts'][innx] tmpx = [] for i in range(len(self.arrays[group]['npts'])): if (self.arrays[group]['npts'][i] == npts): tmpx.append(self.arrays[group]['names'][i]) self.wid['y'].setlist(tmpx) iy = 1 for i in range(len(tmpx)): if (tmpx[i] == self.defs['y']): iy = i self.wid['y'].selectitem(tmpx[iy]) class SetPrefs(BaseWindow): """ SetPrefs Class: select overall preferences""" def __init__(self, buffer=None,master=None): self.master = master self.main = None self.buffer = [] if (buffer != None): self.buffer = buffer self.buflen = len(self.buffer) self.comfile = 'gifeffit.iff' self.cwin = 0 if (master == None): self.main = Tk() else: self.main = Toplevel(master) Frame.__init__(self, self.main) self.main.title('G. I. Feffit Preferences') self.main.option_add('*font', ('Helvetica', 12)) self.display() def display(self): print " Well, maybe someday" class ReadDataFile(BaseWindow,Ifeffit): """ ReadDataFile Class: prompt for ASCII file name, guess array names, allow them to be changed, and read in file""" def __init__(self, iff_com=None, master=None): if (iff_com == None): iff_com = self.ifeffit self.iff_com = iff_com self.master = master self.main = None self.input_file = '' self.marray = 32 self.narray = 16 self.array_disp = 7 self.array = [] self.entr = [] self.file_type = StringVar() self.file_type.set('') for i in range(self.marray): self.array.append('') self.entr.append('') self.read() def btn_press(self,btn,event=None): if ((btn == 'ok') or (btn == 'apply')): self.read_cmd = self.read_final_file() if ((btn == 'ok') or (btn == 'cancel')): self.main.destroy() if (btn == 'newfile'): self.main.withdraw() self.read(self.master) def ftype_choice(self,event=None): x = event if ((self.input_file == None) or (self.input_file == '')): return if (x == ''): self.read_temp_file() else: for i in range(self.marray): self.array[i] = ' ' if (x == 'xmu'): self.array[0] = 'energy' self.array[1] = 'xmu' elif (x == 'chi'): self.array[0] = 'k' self.array[1] = 'chi' elif (x == 'chi.dat'): self.array[0] = 'k' self.array[1] = 'chi' self.array[2] = 'mag' self.array[3] = 'phase' elif (x == 'feff.dat'): self.array[0] = 'k' self.array[1] = 'cphase' self.array[2] = 'mag' self.array[3] = 'phase' self.array[4] = 'redfactor' self.array[5] = 'lambda' self.array[6] = 'realp' self.array_disp = 7 elif (x == 'rsp'): self.array[0] = 'r' self.array[1] = 'chi_re' self.array[2] = 'chi_im' self.array[3] = 'chi_mag' self.array[4] = 'chi_phase' for i in range(self.array_disp): self.entr[i].delete(0,END) self.entr[i].insert(0,self.array[i]) def read(self, master=None, title='Read ASCII Data File'): self.input_file = ask_for_file(self.master, [("data files","*.dat *.chi *.xmu"), ("all files","*")] ) if (master == None): self.main = Tk() else: self.main = Toplevel(master) Frame.__init__(self, self.main) self.main.title(title) self.main.option_add('*font', ('Helvetica', 12)) if ((self.input_file != None) and (self.input_file != '')): self.read_temp_file() self.display_arrays() else: self.main.destroy() def display_arrays(self): ma = self.main self.balloon = Pmw.Balloon(ma) self.menuBar = Pmw.MenuBar(ma, hull_borderwidth=1, hull_relief = 'raised', hotkeys=1, balloon = self.balloon) self.menuBar.pack(fill='x') self.menuBar.addmenu('File', 'Read, Cancel, Exit') self.menuBar.addmenuitem('File', 'command', 'Read this file with these arrays', label='Read', command= Command(self.btn_press, 'apply')) self.menuBar.addmenuitem('File', 'command', 'Do not read this file, Look for a new file', label='Change File', command= Command(self.btn_press, 'newfile')) self.menuBar.addmenuitem('File', 'command', 'Close without reading these arrays from this file', label='Cancel', command= Command(self.btn_press, 'cancel')) self.menuBar.addmenuitem('File', 'command', 'Read this file with these arrays, and exit', label='OK', command= Command(self.btn_press, 'ok')) # file buffer display self.f_win = Pmw.ScrolledText(ma,label_text=self.input_file, borderframe = 1,usehullsize=0, text_padx = 10, text_pady = 10, labelpos=NW, hull_width=650, hull_height=320) self.f_win.importfile(self.input_file) self.f_win.pack(side='top') # group name fr_0 = Frame(ma) fr_0.pack(side='top',anchor='w') fr_1 = Frame(fr_0) fr_1.pack(side='left', fill='x',anchor='w') fr1 = Frame(fr_1) Label(fr1, text='Group: ').pack(side='left') self.g_ent = Entry(fr1,width=20) self.g_ent.selection_clear() self.g_ent.insert(0,self.group) self.g_ent.pack(side='left',fill='x') fr1.pack(side='left',fill='x') fr_4 = Frame(fr_0) fr_4.pack(side='left', fill='x',anchor='w') self.file_type.set('') self.ftypes = Pmw.OptionMenu(fr_4, labelpos = 'w', label_text = ' Column File Types: ', menubutton_textvariable = self.file_type, menubutton_width = 22, items = ['', 'xmu','chi','rsp', 'chi.dat', 'feff.dat'], initialitem = '', command = Command(self.ftype_choice), ) # menubutton_width = 18) self.ftypes.pack(side='left',fill='x') # arrays name fr_2 = Frame(ma) fr_2.pack(side='top',anchor='w') fr2 = Frame(fr_2) Label(fr2, text='Arrays: ').pack(side='left') for i in range(self.array_disp): self.entr[i] = Entry(fr2, width=10) self.entr[i].selection_clear() self.entr[i].insert(0,self.array[i]) self.entr[i].pack(side='left') fr2.pack(side='top') # fr_3 = Frame(ma) bbox = Pmw.ButtonBox(fr_3) bbox.pack(side='left',fill='both', expand=1) b_ok= bbox.add('OK', command = Command(self.btn_press,'ok')) b_rd= bbox.add('Read', command = Command(self.btn_press,'apply')) b_ca= bbox.add('Done', command = Command(self.btn_press,'cancel')) b_nf=bbox.add('Change File', command = Command(self.btn_press,'newfile')) bbox.setdefault('Read') bbox.alignbuttons() self.balloon.bind(b_ok, '', 'Read these arrays from this file and exit') self.balloon.bind(b_rd, '', 'Read these arrays from this file') self.balloon.bind(b_ca, '', 'Close without reading these arrays from this file') self.balloon.bind(b_nf, '', 'Do not read these arrays, Look for a new file') fr_3.pack() self.createMsgWin(ma) def read_temp_file(self): if ((self.input_file == '') or (self.input_file == None)): return self.ifeffit('read_data(group=_xx_,notitles,type=label,file=%s)' % self.input_file) col_lab = strip(self.get_string('column_label')) if (col_lab == '--undefined--'): self.ifeffit('read_data(group=_xx_,notitles,type=raw,file=%s)' % self.input_file) col_lab = strip(self.get_string('column_label')) if (col_lab == '--undefined--'): self.f_win.clear() self.f_win.settext(' Invalid File: ' + self.input_file ) self.group = ' ' for i in range(self.marray): self.array[i] = ' ' return tmp_lis = split(col_lab) s = os.path.basename(self.input_file) x = split(s,'.') self.group = x[0] self.narray = min(self.marray,len(tmp_lis)) for i in range(self.marray): self.array[i] = ' ' for i in range(self.narray): self.array[i] = tmp_lis[i] g = self.group # erase temp arrays for i in range(self.marray): a = self.array[i] if (a != ' '): s = self.ifeffit('erase _XX_.%s' % a) def read_final_file(self): if ((self.input_file=='') or (self.input_file == None)): return g = self.g_ent.get() c = 'read_data(file=%s, group=%s,label=(' %(self.input_file, g) # print ' array size = ' , self.narray, self.marray for i in range(self.narray): d = self.array[i] if (i < self.array_disp): d = self.entr[i].get() c = c + d + ' ' self.iff_com( c + '))') class ReadCmndFile(BaseWindow,Ifeffit): """ ReadCmndFile Class: prompt for IFeffit Command File name, allow complete loading, or stepping through execution""" def __init__(self, iff_com=None, master=None): if (iff_com == None): iff_com = self.ifeffit self.iff_com = iff_com self.master = master self.main = None self.comfile = '' self.lineno = 0 self.buffer = [] self.buflen = 0 self.cwin = 0 self.done = 0 self.read() def read(self, master=None, title='Read IFEFFIT Command File'): self.comfile = ask_for_file(self.master, [("command files","*.iff *.inp"), ("all files","*")] ) if (self.comfile != ''): self.lineno = 0 self.lineno = 0 self.buffer = [] f = open (self.comfile, 'r') self.buffer = f.readlines() self.buffer.append("") self.buflen = len(self.buffer) f.close if (master == None): self.main = Tk() else: self.main = Toplevel(master) Frame.__init__(self, self.main) self.main.title(title) self.main.option_add('*font', ('Helvetica', 12)) if ((self.comfile != None) and (self.comfile != '')): self.display_comfile() else: self.main.destroy() def display_comfile(self): ma = self.main self.balloon = Pmw.Balloon(ma) self.menuBar = Pmw.MenuBar(ma, hull_borderwidth=1, hull_relief = 'raised', hotkeys=1, balloon = self.balloon) self.menuBar.pack(fill='x') self.menuBar.addmenu('File', 'Read, Cancel, Exit') self.menuBar.addmenuitem('File', 'command', 'Read this file with these arrays, and exit', label='Load and Exit', command= Command(self.btn_press, 'ok')) self.menuBar.addmenuitem('File', 'command', 'Read this file with these arrays', label='Load', command= Command(self.btn_press, 'apply')) self.menuBar.addmenuitem('File', 'command', 'Do not read this file, Look for a new file', label='Change File', command= Command(self.btn_press, 'newfile')) self.menuBar.addmenuitem('File', 'command', 'Close without reading these arrays from this file', label='Cancel', command= Command(self.btn_press, 'cancel')) # file buffer display self.cwin = Pmw.ScrolledText(ma,label_text=self.comfile, borderframe = 1,usehullsize=0, text_padx = 10, labelpos=NW, hull_width=600, hull_height=320) self.cwin.clear() self.cwin.tag_configure('comment',foreground='red', font=('Helvetica', 12)) self.cwin.tag_configure('command',foreground='black',font=('Helvetica', 12)) self.cwin.tag_configure('active', foreground='blue', font=('Helvetica', 12)) new = 1 for i in range(self.buflen): l = re.sub(r'\r\n$', '\n', self.buffer[i]) t = strip(l[:-1]) if (len(t) < 1): t = " " words = split(t) if (len(words) < 2): words = [" ", " "] if ((t[0:1] == '#') or (t[0:1] == '%') or (t[0:1] == ';') or (words[0] == 'pause')): self.cwin.insert('end',l,'comment') else: if ((new == 1) and (t != ' ') and (t != '')): new = 0 self.cwin.insert('end',l,'active') self.lineno = i+1 else: self.cwin.insert('end',l,'command') self.cwin._textbox.configure(state='disabled') self.cwin.pack(side='top') fr_3 = Frame(ma) bbox = Pmw.ButtonBox(fr_3) bbox.pack(side='left',fill='both', expand=1) b_ok= bbox.add('Load All', command = Command(self.btn_press,'ok')) b_ss= bbox.add('Single Step', command = Command(self.btn_press,'onestep')) b_sk= bbox.add('Skip Line', command = Command(self.btn_press,'skip')) b_ca= bbox.add('Done', command = Command(self.btn_press,'cancel')) b_nf=bbox.add('Change File', command = Command(self.btn_press,'newfile')) bbox.setdefault('Load All') bbox.alignbuttons() self.balloon.bind(b_ok, '', 'Load this entire file') self.balloon.bind(b_ss, '', 'Execute next line (highlighted)') self.balloon.bind(b_sk, '', 'Skip highlighted line, go to next line') self.balloon.bind(b_ca, '', 'Finished loading input commands - Quit now') self.balloon.bind(b_nf, '', 'Look for a new command file') fr_3.pack() self.createMsgWin(ma) def btn_press(self,btn,event=None): if ((btn == 'ok') or (btn == 'apply')): self.load_all() if ((btn == 'ok') or (btn == 'cancel')): self.main.destroy() if (btn == 'newfile'): self.main.withdraw() self.read(self.master) self.done =0 elif (btn == 'onestep'): self.exec_nextline() elif (btn == 'skip'): self.exec_nextline(skip=1) def exec_nextline(self,skip=0): if (self.done == 1): return result = -1 while (result !=0): index1 = '%i.0' % (self.lineno) index2 = '%i.0' % (self.lineno+1) s = self.cwin.get(index1,index2) t = strip(s[:-1]) result = 0 if ((t != '') and (t != ' ') and (skip == 0)): result = self.iff_com(s[:-1],do_raise=0) self.cwin._textbox.configure(state='normal') self.cwin.delete(index1,index2) self.cwin.insert(index1, s, 'command') if (self.lineno == self.buflen-1): self.done = 1 else: for i in range (self.lineno, self.buflen): l = re.sub(r'\r\n$', '\n', self.buffer[i]) t = strip(l[:-1]) if (len(t) < 1): t = ' ' words = split(t) if (len(words) < 2): words = [" ", " "] if ((t[0:1] == '#') or (t[0:1] == '%') or (t[0:1] == ';') or (words[0] == 'pause')): pass elif (i == self.buflen-1): self.lineno = i self.done = 1 elif ((t != '') and (t[0:1] != ' ')): self.lineno = i+1 index1 = '%i.0' % (self.lineno) index2 = '%i.0' % (self.lineno+1) s = self.cwin.get(index1,index2) self.cwin.delete(index1,index2) self.cwin.insert(index1, s, 'active') self.cwin.see( '%i.0' % (self.lineno + 6 )) break self.cwin._textbox.configure(state='disabled') # self.iff_com("",do_raise=1) def load_all(self): if (self.comfile != None): self.done = 0 for i in range(self.lineno,self.buflen): self.exec_nextline() class WriteCmndFile(BaseWindow): """ WriteCmndFile Class: display accumulated IFeffit Commands, allow editing, and saving to file""" def __init__(self, buffer=None,master=None): self.master = master self.main = None self.buffer = [] if (buffer != None): self.buffer = buffer self.buflen = len(self.buffer) self.comfile = 'gifeffit.iff' self.cwin = 0 if (master == None): self.main = Tk() else: self.main = Toplevel(master) Frame.__init__(self, self.main) self.main.title('Save Command File') self.main.option_add('*font', ('Helvetica', 12)) self.display() def btn_press(self,btn,event=None): if ((btn == 'ok') or (btn == 'apply')): self.write_file() if ((btn == 'ok') or (btn == 'cancel')): self.main.destroy() def write_file(self): self.comfile = self.ent.get() f = open(self.comfile, 'w') t = self.cwin.get() f.write(t) f.close() def display(self): ma = self.main self.balloon = Pmw.Balloon(ma) self.menuBar = Pmw.MenuBar(ma, hull_borderwidth=1, hull_relief = 'raised', hotkeys=1, balloon = self.balloon) self.menuBar.pack(fill='x') self.menuBar.addmenu('File', 'Read, Cancel, Exit') self.menuBar.addmenuitem('File', 'command', 'Save Commands to named file', label='Save', command= Command(self.btn_press, 'apply')) self.menuBar.addmenuitem('File', 'command', 'Do not save to file', label='Cancel', command= Command(self.btn_press, 'cancel')) self.cwin = Pmw.ScrolledText(ma,label_text='Commands to Save (editable)', borderframe = 1,usehullsize=0, text_padx = 10, labelpos=NW, hull_width=600, hull_height=320) self.cwin.clear() self.cwin.tag_configure('normal', foreground='black', font=('Helvetica', 12)) for i in range(self.buflen): l = strip(self.buffer[i]) if (l != ''): self.cwin.insert('end',l+"\n",'normal') self.cwin.pack(side='top') fr1 = Frame(ma) Label(fr1, text='File: ').pack(side='left') self.ent = Entry(fr1,width=50) self.ent.selection_clear() self.ent.insert(0,self.comfile) self.ent.pack(side='left',fill='x') self.balloon.bind(self.ent, '', 'File Name') fr1.pack(side='top', anchor='w') fr1 = Frame(ma) bbox = Pmw.ButtonBox(fr1) bbox.pack(side='top',fill='both', expand=1,anchor='w') b_ok= bbox.add('Save', command = Command(self.btn_press,'ok')) b_ca= bbox.add('Cancel', command = Command(self.btn_press,'cancel')) bbox.setdefault('Save') bbox.alignbuttons() self.balloon.bind(b_ok, '', 'Save to file') self.balloon.bind(b_ca, '', 'Do not save to file - Quit now') fr1.pack(side='top', anchor='w') self.createMsgWin(ma) ################################################################################ class Ifft(BaseWindow,Ifeffit): " FFT Interface " window_title = "FFT Window" do_btn_label = 'Calculate FFT' do_btn_hint = 'Calculate chi(R)' xa_label = 'k' ya_label = 'chi' def __init__(self, master=None, iff_com=None): if (iff_com == None): iff_com = self.ifeffit self.iff_com = iff_com self.master = master self.opts = {} self.wid = {'x':0, 'y':0, 'group':0} self.params = {'dk':1.0, 'kmin':0, 'kmax':0, 'kw':1} self.defs = {'x':'k','y':'chi'} self.w_types = ('Hanning', 'Hanning Fraction', 'Kaiser-Bessel', 'Parzen', 'Welch', 'Sine') self.w_keys = ('hann','fhan','kais','parz','welc','sine') self.plot_types = ('chi(k)', 'k-weighted chi(k)', 'k-weighted chi(k) with window(k)', '|chi(R)|', 'Im[chi(R)]', 'Re[chi(R)]', '|chi(R)| + Im[chi(R)]', '|chi(R)| + Re[chi(R)]' ) self.arrays = self.get_group_arrays() self.groups = ['None'] + self.arrays.keys() self.param_map = (('dk1', 'dk'), ('kweight', 'kw'), ('kmin', 'kmin'),('kmax', 'kmax')) self.drawWindow(master) def do_calc(self): (gr,xa,ya) = (self.wid['group'].get(), self.wid['x'].get(), self.wid['y'].get() ) (dk,kw,kn,kx) = (self.wid['dk'].get(), self.wid['kw'].get(), self.wid['kmin'].get(), self.wid['kmax'].get() ) wtype = self.wid['wtype'].get() for i in range(len(self.w_types)): if (wtype == self.w_types[i]): wkey = self.w_keys[i] # fe0 = self.params['find_e0'].get() if ((xa != '') and (ya != '')): cmnd = 'fftf(real=%s.%s' % (gr,ya) cmnd = '%s,kweight=%s,kmin=%s,kmax=%s,dk=%s' % (cmnd,kw,kn,kx,dk) cmnd = '%s,kwindow="%s")' % (cmnd,wkey) self.iff_com(cmnd) self.iff_com('set %s.chi_kw = %s.%s * %s.%s^kweight' % (gr,gr,ya,gr,xa)) def update_plot(self,selection): if (selection == None): selection = self.wid['plot'].get() (gr,xa,ya,kw) = (self.wid['group'].get(), self.wid['x'].get(), self.wid['y'].get(), self.wid['kw'].get() ) if (gr != 'None'): kw = float(kw) lab = 'xlabel="R (\A)",ylabel="|\gx(R)| (\A\u-%s\d)"' % (int(kw+1)) cmnd = 'plot(%s.r,%s.chir_mag)' % (gr,gr) if (selection == self.plot_types[0]): lab = 'xlabel="k (\A\u-1\d)",ylabel="\gx(k)"' cmnd = 'newplot(%s.%s,%s.%s,%s)' % (gr,xa,gr,ya,lab) elif (selection == self.plot_types[1]): lab = 'xlabel="k (\A\u-1\d)",ylabel="k\u%s\d\gx(k)"' % (int(kw)) cmnd = 'newplot(%s.%s,%s.chi_kw,%s)' % (gr,xa,gr,lab) elif (selection == self.plot_types[2]): lab = 'xlabel="k (\A\u-1\d)",ylabel="k\u%s\d\gx(k)"' % (int(kw)) cmnd = 'newplot(%s.k,%s.chi_kw,%s)' % (gr,gr,lab) self.iff_com(cmnd) self.ifeffit("_xmax_ = ceil(abs(%s.chi_kw))" % gr) xmax = self.get_scalar("_xmax_") xmax = (int(xmax*100) + 2) /100. self.ifeffit("erase _xmax_") cmnd = 'plot(%s.%s,"%s*%s.win")' % (gr,xa,xmax,gr) elif (selection == self.plot_types[3]): cmnd = 'newplot(%s.r,%s.chir_mag,%s)' % (gr,gr,lab) elif (selection == self.plot_types[4]): lab = 'xlabel="R (\A)",ylabel="Im[\gx(R)] (\A\u-%s\d)"' % (int(kw+1)) cmnd = 'newplot(%s.r,%s.chir_im,%s)' % (gr,gr,lab) elif (selection == self.plot_types[5]): lab = 'xlabel="R (\A)",ylabel="Re[\gx(R)] (\A\u-%s\d)"' % (int(kw+1)) cmnd = 'newplot(%s.r,%s.chir_re,%s)' % (gr,gr,lab) elif (selection == self.plot_types[6]): cmnd = 'newplot(%s.r,%s.chir_mag,%s)' % (gr,gr,lab) self.iff_com(cmnd) cmnd = 'plot(%s.r,%s.chir_im)' % (gr,gr) elif (selection == self.plot_types[7]): cmnd = 'newplot(%s.r,%s.chir_mag,%s)' % (gr,gr,lab) self.iff_com(cmnd) cmnd = 'plot(%s.r,%s.chir_re)' % (gr,gr) self.iff_com(cmnd) def drawWindow(self,master): self.main = self.MakeMainWindow(master) ma = self.main # frame1 = Frame(ma, borderwidth=3, relief='ridge') fr1 = Frame(frame1) fr2 = Frame(fr1) Label(fr2, foreground='red', width=15, text='Data Arrays ').pack(side='left', anchor='w',fill='both') fr2.pack(side='left', anchor='w',fill='x') fr2 = Frame(fr1) # Group Label(fr2, foreground='black', width=7, text='Group').pack(side='left', anchor='e',fill='both') self.wid['group'] = Pmw.ComboBox(fr2, scrolledlist_items= self.groups, entry_width = 12, entry_state="disabled", selectioncommand = Command(self.update_array_choice,'group',get_group=1)) self.wid['group'].pack(side='left',anchor='e',fill='x') fr2.pack(side='right', anchor='w', fill='both') fr1.pack(side='top', anchor='w', fill='both') fr1 = Frame(frame1) fr2 = Frame(fr1) # X array Label(fr2, foreground='black', width=7, text= self.xa_label).pack(side='left',anchor='w',fill='x') self.wid['x'] = Pmw.ComboBox(fr2, scrolledlist_items= self.groups, entry_width = 12, entry_state="disabled", selectioncommand = Command(self.update_array_choice,'x',get_group=1)) self.wid['x'].pack(side='left',anchor='w',fill='x') # Y array Label(fr2, foreground='black', width=7, text=self.ya_label).pack(side='left',anchor='w',fill='x') self.wid['y'] = Pmw.ComboBox(fr2, scrolledlist_items= self.groups, entry_width = 12, entry_state="disabled", selectioncommand = Command(self.update_array_choice,'y',get_group=1)) self.wid['y'].pack(side='left',fill='x') fr2.pack(side='right', anchor='w',fill='both') fr1.pack(side='top', anchor='w', fill='both') frame1.pack(side='top', anchor='w',fill='both') self.wid['group'].setlist(self.groups) self.wid['group'].selectitem(self.groups[0]) if (len(self.groups) > 1): self.wid['group'].selectitem(self.groups[1]) self.update_array_choice('group',self.groups[1],get_group=0) ## Analysis Params frame1 = Frame(ma, borderwidth=3, relief='ridge') fr1 = Frame(frame1) Label(fr1, foreground='red', text='Analysis Parameters').pack(side='left', anchor='w',fill='both') fr1.pack(side='top', anchor='w',fill='x') # K min / K max fr1 = Frame(frame1) fr2 = Frame(fr1) self.wid['kmin'] = LabEnt(fr2,'k min ', self.params['kmin'], 12, labwidth=8) self.wid['kmax'] = LabEnt(fr2,' k max', self.params['kmax'], 12, labwidth=8) self.wid['kmin'].pack(side='left', anchor='w') self.wid['kmax'].pack(side='left') fr2.pack(side='left', anchor='w',fill='x') fr1.pack(side='top', anchor='w',fill='x') # dk / kweight fr1 = Frame(frame1) fr2 = Frame(fr1) self.wid['kw'] = LabEnt(fr2,'k weight', self.params['kw'],12, labwidth=8) self.wid['kw'].pack(side='left') self.wid['dk'] = LabEnt(fr2,' dk', self.params['dk'], 12, labwidth=8) self.wid['dk'].pack(side='left', anchor='w') fr2.pack(side='left', anchor='w',fill='x') fr1.pack(side='top', anchor='w',fill='x') # window type fr1 = Frame(frame1) fr2 = Frame(fr1) self.wid['wtype'] = Pmw.ComboBox(fr1, scrolledlist_items= self.w_types, entry_width = 20, entry_state="disabled") self.wid['wtype'].pack(side='left',anchor='e',fill='x') self.wid['wtype'].selectitem(self.w_types[0]) fr2.pack(side='left', anchor='w',fill='x') fr1.pack(side='top', anchor='w',fill='x') self.balloon.bind(self.wid['kmin'], '', 'Minimum k value for FT Window') self.balloon.bind(self.wid['kmax'], '', 'Maximum k value for FT Window') self.balloon.bind(self.wid['kw'], '', 'k-weight for FT') self.balloon.bind(self.wid['dk'], '', 'k-window parameter (window "sill" size)') self.balloon.bind(self.wid['wtype'], '', 'Functional form for FT window') fr2.pack(side='left', anchor='w',fill='x') fr1.pack(side='top', anchor='w',fill='x') frame1.pack(side='top',anchor='w',fill='both') ## Plot Frame frame1 = Frame(ma) fr1 = Frame(frame1) Label(fr1, foreground='red', text='Plot to Show').pack(side='left', anchor='w',fill='both') fr1.pack(side='top', anchor='w',fill='x') # Droplist fr1 = Frame(frame1) self.wid['plot'] = Pmw.ComboBox(fr1, scrolledlist_items= self.plot_types, entry_width = 40, entry_state="disabled", selectioncommand = Command(self.update_plot)) self.wid['plot'].pack(side='left',anchor='e',fill='x') self.wid['plot'].selectitem(self.plot_types[3]) fr1.pack(side='left',anchor='w',fill='both') frame1.pack(side='top',anchor='w',fill='both') # bottom fr3 = Frame(ma) bbox = Pmw.ButtonBox(fr3) bbox.pack(side='left',fill='both', expand=1) b_calc = bbox.add(self.do_btn_label, command= Command(self.btn_press,'calc')) b_quit = bbox.add('Quit', command = Command(self.btn_press,'ok')) bbox.setdefault(self.do_btn_label) bbox.alignbuttons() self.balloon.bind(b_calc, '',self.do_btn_hint) self.balloon.bind(b_quit, '', 'Close This Window') fr3.pack(side='top',anchor='w') self.createMsgWin(ma,width=50) self.update_params(self.param_map) self.main.deiconify() class Spline(BaseWindow,Ifeffit): " Spline Interface " window_title = "Spline Window" do_btn_label = 'Calculate Spline' do_btn_hint = 'Calculate background and chi(k)' xa_label = 'energy' ya_label = 'mu' def __init__(self, master=None, iff_com=None): if (iff_com == None): iff_com = self.ifeffit self.iff_com = iff_com self.master = master self.opts = {} self.wid = {'x':0, 'y':0, 'group':0} self.params = {'rbkg':1.0, 'kmin':0, 'kmax':0, 'e0':0, 'kw':1, 'find_e0':0} self.defs = {'x':'energy','y':'xmu'} self.plot_types = ('xmu(E)', 'xmu with bkg(E)', 'chi(k)', 'k-weighted chi(k)') self.arrays = self.get_group_arrays() self.groups = ['None'] + self.arrays.keys() self.param_map = (('rbkg', 'rbkg'), ('e0','e0'), ('kweight_spl', 'kw'), ('kmin_spl', 'kmin'), ('kmax_spl', 'kmax')) self.drawWindow(master) def do_calc(self): (gr,xa,ya) = (self.wid['group'].get(), self.wid['x'].get(), self.wid['y'].get() ) (rb,ee,kw,kn,kx) = (self.wid['rbkg'].get(), self.wid['e0'].get(), self.wid['kw'].get(), self.wid['kmin'].get(), self.wid['kmax'].get() ) fe0 = self.params['find_e0'].get() if ((xa != '') and (ya != '')): cmnd = 'spline(%s.%s,%s.%s' % (gr,xa,gr,ya) cmnd = '%s,rbkg=%s,kweight=%s,kmin=%s,kmax=%s' % (cmnd,rb,kw,kn,kx) if (fe0 == 1): cmnd = '%s,find_e0' % (cmnd) else: cmnd = '%s,e0=%s' % (cmnd,ee) self.iff_com(cmnd+')') def update_plot(self,selection): if (selection == None): selection = self.wid['plot'].get() (gr,xa,ya) = (self.wid['group'].get(), self.wid['x'].get(), self.wid['y'].get() ) if (gr != 'None'): # self.plot_types = ('xmu(E)', 'xmu with bkg(E)', # 'chi(k)', 'k-weighted chi(k)') lab = 'xlabel="E (eV)",ylabel="\gm(E)"' if (selection == self.plot_types[0]): cmnd = 'newplot(%s.%s,%s.%s,%s)' % (gr,xa,gr,ya,lab) elif (selection == self.plot_types[1]): cmnd = 'newplot(%s.%s,%s.%s,%s)' % (gr,xa,gr,ya,lab) self.iff_com(cmnd) cmnd = 'plot(%s.%s,%s.bkg)' % (gr,xa,gr) if (ya == 'pre'): cmnd = 'plot(%s.%s,%s.bkg_pre)' % (gr,xa,gr) elif (selection == self.plot_types[2]): lab = 'xlabel="k (\A\u-1\d)",ylabel="\gx(k)"' cmnd = 'newplot(%s.k,%s.chi,%s)' % (gr,gr,lab) elif (selection == self.plot_types[3]): cmnd = 'set %s.chi_kw = %s.chi * %s.k^kweight_spl' % (gr,gr,gr) self.iff_com(cmnd) kw = self.get_scalar('kweight_spl') lab = 'xlabel="k (\A\u-1\d)",ylabel="k\u%s\d\gx(k)"' % (int(kw)) cmnd = 'newplot(%s.k,%s.chi_kw,%s)' % (gr,gr,lab) self.iff_com(cmnd) def drawWindow(self,master): self.main = self.MakeMainWindow(master) ma = self.main # frame1 = Frame(ma, borderwidth=3, relief='ridge') fr1 = Frame(frame1) fr2 = Frame(fr1) Label(fr2, foreground='red', width=15, text='Data Arrays ').pack(side='left', anchor='w',fill='both') fr2.pack(side='left', anchor='w',fill='x') fr2 = Frame(fr1) # Group Label(fr2, foreground='black', width=7, text='Group').pack(side='left', anchor='e',fill='both') self.wid['group'] = Pmw.ComboBox(fr2, scrolledlist_items= self.groups, entry_width = 12, entry_state="disabled", selectioncommand = Command(self.update_array_choice,'group',get_group=1)) self.wid['group'].pack(side='left',anchor='e',fill='x') fr2.pack(side='right', anchor='w', fill='both') fr1.pack(side='top', anchor='w', fill='both') fr1 = Frame(frame1) fr2 = Frame(fr1) # Energy Label(fr2, foreground='black', width=7, text=self.xa_label).pack(side='left',anchor='w',fill='x') self.wid['x'] = Pmw.ComboBox(fr2, scrolledlist_items= self.groups, entry_width = 12, entry_state="disabled", selectioncommand = Command(self.update_array_choice,'x',get_group=1)) self.wid['x'].pack(side='left',anchor='w',fill='x') # Mu Label(fr2, foreground='black', width=7, text=self.ya_label).pack(side='left',anchor='w',fill='x') self.wid['y'] = Pmw.ComboBox(fr2, scrolledlist_items= self.groups, entry_width = 12, entry_state="disabled", selectioncommand = Command(self.update_array_choice,'y',get_group=1)) self.wid['y'].pack(side='left',fill='x') fr2.pack(side='right', anchor='w',fill='both') fr1.pack(side='top', anchor='w', fill='both') frame1.pack(side='top', anchor='w',fill='both') self.wid['group'].setlist(self.groups) self.wid['group'].selectitem(self.groups[0]) if (len(self.groups) > 1): self.wid['group'].selectitem(self.groups[1]) self.update_array_choice('group',self.groups[1],get_group=0) ## Analysis Params frame1 = Frame(ma, borderwidth=3, relief='ridge') fr1 = Frame(frame1) Label(fr1, foreground='red', text='Analysis Parameters').pack(side='left', anchor='w',fill='both') fr1.pack(side='top', anchor='w',fill='x') # E0 / find E0 fr1 = Frame(frame1) fr2 = Frame(fr1) self.params['find_e0'] = IntVar() self.wid['e0'] = LabEnt(fr2,'E0', self.params['e0'], 12, labwidth=8) self.wid['find_e0'] = Checkbutton(fr2,text = 'Find E0', padx = 6, variable = self.params['find_e0']) self.wid['e0'].pack(side='left', anchor='w') self.wid['find_e0'].select() self.wid['find_e0'].pack(side='left') fr2.pack(side='left', anchor='w',fill='x') fr1.pack(side='top', anchor='w',fill='x') # R bkg / Kweight fr1 = Frame(frame1) fr2 = Frame(fr1) self.wid['rbkg'] = LabEnt(fr2,'Rbkg', self.params['rbkg'], 12, labwidth=8) self.wid['kw'] = LabEnt(fr2,' K weight', self.params['kw'],12, labwidth=8) self.wid['rbkg'].pack(side='left', anchor='w') self.wid['kw'].pack(side='left') fr2.pack(side='left', anchor='w',fill='x') fr1.pack(side='top', anchor='w',fill='x') # K min / K max fr1 = Frame(frame1) fr2 = Frame(fr1) self.wid['kmin'] = LabEnt(fr2,'K min ', self.params['kmin'], 12, labwidth=8) self.wid['kmax'] = LabEnt(fr2,' K max', self.params['kmax'], 12, labwidth=8) self.wid['kmin'].pack(side='left', anchor='w') self.wid['kmax'].pack(side='left') fr2.pack(side='left', anchor='w',fill='x') fr1.pack(side='top', anchor='w',fill='x') self.balloon.bind(self.wid['kmin'], '', 'Minimum k value for background subtraction') self.balloon.bind(self.wid['kmax'], '', 'Maximum k value for background subtraction') self.balloon.bind(self.wid['kw'], '', 'K-weight for background FT (0 or 1 recommended)') self.balloon.bind(self.wid['rbkg'], '', 'Maximum R value to consider in background') self.balloon.bind(self.wid['e0'], '', 'Energy origin to define k=0') frame1.pack(side='top',anchor='w',fill='both') ## Plot Frame frame1 = Frame(ma) fr1 = Frame(frame1) Label(fr1, foreground='red', text='Plot to Show').pack(side='left', anchor='w',fill='both') fr1.pack(side='top', anchor='w',fill='x') # Droplist fr1 = Frame(frame1) self.wid['plot'] = Pmw.ComboBox(fr1, scrolledlist_items= self.plot_types, entry_width = 20, entry_state="disabled", selectioncommand = Command(self.update_plot)) self.wid['plot'].pack(side='left',anchor='e',fill='x') self.wid['plot'].selectitem(self.plot_types[1]) fr1.pack(side='left',anchor='w',fill='both') frame1.pack(side='top',anchor='w',fill='both') # bottom fr3 = Frame(ma) bbox = Pmw.ButtonBox(fr3) bbox.pack(side='left',fill='both', expand=1) b_calc = bbox.add(self.do_btn_label, command= Command(self.btn_press,'calc')) b_quit = bbox.add('Quit', command = Command(self.btn_press,'ok')) bbox.setdefault(self.do_btn_label) bbox.alignbuttons() self.balloon.bind(b_calc, '', self.do_btn_hint) self.balloon.bind(b_quit, '', 'Close This Window') fr3.pack(side='top',anchor='w') self.createMsgWin(ma,width=50) self.update_params(self.param_map) self.main.deiconify() class Paths(BaseWindow,Ifeffit): " Define Paths " window_title = "Define FEFF Paths" do_btn_label = 'Accept Paths' do_btn_hint = 'Click here to use this definition' xa_label = 'energy' ya_label = 'mu' def __init__(self, master=None, iff_com=None,paths=None): if (iff_com == None): iff_com = self.ifeffit if (paths == None): paths = {} self.feff_paths = paths # print ' self.paths ' , self.feff_paths self.iff_com = iff_com self.master = master self.opts = {} self.wid = {'x':0, 'y':0, 'group':0} self.params = {'dr':0, 'vary_dr':0, 'feff_file':''} self.defs = {'x':'energy','y':'xmu'} self.plot_types = ('chi(k)', 'k-weighted chi(k)') self.param_map = () self.arrays = self.get_group_arrays() self.groups = ['None'] + self.arrays.keys() self.drawWindow(master) def update_params(self,params): for i in range(len(params)): r = self.get_scalar(params[i][0]) entry_replace(self.wid[params[i][1]], r) def parse_feffdat(self): pass def btn_press(self,btn,event=None,ok_action=None): ret = None if ((btn == 'ok') or (btn == 'apply')): if ((ok_action != None) and (callable(ok_action) == 1)): ret = ok_action() if ((btn == 'ok') or (btn == 'cancel')): self.main.destroy() if (btn == 'calc'): self.do_calc() self.update_params(self.param_map) self.update_plot(None) if (btn == 'pickfile'): self.feff_file = ask_for_file(self.master, [("feff files","feff*.dat"), ("all files","*")] ) # print "feff_file = ", self.feff_file self.parse_feffdat() entry_replace(self.wid['feff_file'], self.feff_file) return ret def do_calc(self): (gr,xa,ya) = ('None','','') dr = self.wid['dr'].get() vdr = self.params['vary_dr'].get() if ((xa != '') and (ya != '')): cmnd = 'pre_edge(%s.%s,%s.%s' % (gr,xa,gr,ya) if (fe0 == 1): cmnd = '%s,e0find' % (cmnd) else: cmnd = '%s,e0=%s' % (cmnd,e0) if (fst != 1): cmnd = '%s,edge_step=%s' % (cmnd,st) cmnd = "%s,pre1=%s,pre2=%s,norm1=%s,norm2=%s)" % (cmnd,p1,p2,n1,n2) self.iff_com(cmnd) def update_plot(self,selection): if (selection == None): selection = self.wid['plot'].get() (gr,xa,ya) = ('None','','') if (gr != 'None'): xlab = 'E (eV)' ylab = 'mu' lab = 'xlabel=%s,ylabel=%s' % (xlab,ylab) if (selection == self.plot_types[0]): lab cmnd = 'newplot(%s.%s,%s.%s,%s)' % (gr,xa,gr,ya,lab) elif (selection == self.plot_types[1]): cmnd = 'newplot(%s.%s,%s.%s,%s)' % (gr,xa,gr,ya,lab) self.iff_com(cmnd) self.iff_com("set %s.preline = pre_offset+pre_slope*%s.%s" % (gr,gr,xa) ) cmnd = 'plot(%s.%s,%s.preline)' % (gr,xa,gr) elif (selection == self.plot_types[2]): cmnd = 'newplot(%s.%s,%s.pre,%s)' % (gr,xa,gr,lab) elif (selection == self.plot_types[3]): cmnd = 'newplot(%s.%s,%s.norm,%s)' % (gr,xa,gr,lab) self.iff_com(cmnd) def drawWindow(self,master): self.main = self.MakeMainWindow(master) ma = self.main # frame1 = Frame(ma, borderwidth=3, relief='ridge') fr1 = Frame(frame1) fr2 = Frame(fr1) Label(fr2, foreground='red', width=15, text='FEFF Path: ').pack(side='left', anchor='w',fill='both') fr2.pack(side='left', anchor='w',fill='x') fr1.pack(side='top', anchor='w', fill='both') fr1 = Frame(frame1) Button(fr1,text='Feff File', command = Command(self.btn_press,'pickfile')).pack(side='left') self.wid['feff_file'] = LabEnt(fr1,'', self.params['feff_file'], 40, labwidth=2) fr1.pack(side='top', anchor='w', fill='both') frame1.pack(side='top', anchor='w',fill='both') ## Analysis Params frame1 = Frame(ma, borderwidth=3, relief='ridge') fr1 = Frame(frame1) Label(fr1, foreground='red', text='Path Parameters').pack(side='left', anchor='w',fill='both') fr1.pack(side='top', anchor='w',fill='x') # R /Delta R fr1 = Frame(frame1) fr2 = Frame(fr1) self.params['vary_dr'] = IntVar() self.wid['dr'] = LabEnt(fr2,'DR', self.params['dr'], 12, labwidth=6) self.wid['vary_dr'] = Checkbutton(fr2,text = 'vary R', padx = 6, variable = self.params['vary_dr']) self.wid['dr'].pack(side='left', anchor='w') self.wid['vary_dr'].deselect() self.wid['vary_dr'].pack(side='left') fr2.pack(side='left', anchor='w',fill='x') fr1.pack(side='top', anchor='w',fill='x') self.balloon.bind(self.wid['dr'], '', 'Near Neighbor distance') self.balloon.bind(self.wid['vary_dr'], '', 'vary Near Neighbor distance in fit') frame1.pack(side='top',anchor='w',fill='both') ## Plot Frame frame1 = Frame(ma) fr1 = Frame(frame1) Label(fr1, foreground='red', text='Plot to Show').pack(side='left', anchor='w',fill='both') fr1.pack(side='top', anchor='w',fill='x') # Droplist fr1 = Frame(frame1) self.wid['plot'] = Pmw.ComboBox(fr1, scrolledlist_items= self.plot_types, entry_width = 40, entry_state="disabled", selectioncommand = Command(self.update_plot)) self.wid['plot'].pack(side='left',anchor='e',fill='x') self.wid['plot'].selectitem(self.plot_types[1]) fr1.pack(side='left',anchor='w',fill='both') frame1.pack(side='top',anchor='w',fill='both') # bottom fr3 = Frame(ma) bbox = Pmw.ButtonBox(fr3) bbox.pack(side='left',fill='both', expand=1) b_calc = bbox.add(self.do_btn_label, command= Command(self.btn_press,'calc')) b_quit = bbox.add('Quit', command = Command(self.btn_press,'ok')) bbox.setdefault(self.do_btn_label) bbox.alignbuttons() self.balloon.bind(b_calc, '', self.do_btn_hint) self.balloon.bind(b_quit, '', 'Close This Window') fr3.pack(side='top',anchor='w') self.createMsgWin(ma,width=50) self.update_params(self.param_map) self.main.deiconify() class PreEdge(BaseWindow,Ifeffit): " Pre Edge Interface " window_title = "PreEdge Window" do_btn_label = 'Calculate Pre-Edge' do_btn_hint = 'Calculate pre-edge line, e0, and normalization' xa_label = 'energy' ya_label = 'mu' def __init__(self, master=None, iff_com=None): if (iff_com == None): iff_com = self.ifeffit self.iff_com = iff_com self.master = master self.opts = {} self.wid = {'x':0, 'y':0, 'group':0} self.params = {'pre1':-100, 'pre2':-50, 'e0':0,'find_e0':0, 'norm1':100, 'norm2':300, 'step':0,'find_st':0} self.defs = {'x':'energy','y':'xmu'} self.plot_types = ('xmu(E)', 'xmu with pre-edge line', 'pre-edge subtracted mu(E)', 'normalized mu(E)') self.param_map = (('pre1', 'pre1'),('pre2', 'pre2'), ('norm1', 'norm1'),('norm2', 'norm2'), ('e0','e0'), ('edge_step', 'step') ) self.arrays = self.get_group_arrays() self.groups = ['None'] + self.arrays.keys() self.drawWindow(master) def do_calc(self): (gr,xa,ya) = (self.wid['group'].get(), self.wid['x'].get(), self.wid['y'].get() ) (p1,p2,n1,n2,e0,st) = (self.wid['pre1'].get(), self.wid['pre2'].get(), self.wid['norm1'].get(), self.wid['norm2'].get(), self.wid['e0'].get(), self.wid['step'].get()) fst = self.params['find_st'].get() fe0 = self.params['find_e0'].get() if ((xa != '') and (ya != '')): cmnd = 'pre_edge(%s.%s,%s.%s' % (gr,xa,gr,ya) if (fe0 == 1): cmnd = '%s,e0find' % (cmnd) else: cmnd = '%s,e0=%s' % (cmnd,e0) if (fst != 1): cmnd = '%s,edge_step=%s' % (cmnd,st) cmnd = "%s,pre1=%s,pre2=%s,norm1=%s,norm2=%s)" % (cmnd,p1,p2,n1,n2) self.iff_com(cmnd) def update_plot(self,selection): if (selection == None): selection = self.wid['plot'].get() (gr,xa,ya) = (self.wid['group'].get(), self.wid['x'].get(), self.wid['y'].get() ) if (gr != 'None'): xlab = 'E (eV)' ylab = 'mu' lab = 'xlabel=%s,ylabel=%s' % (xlab,ylab) if (selection == self.plot_types[0]): lab cmnd = 'newplot(%s.%s,%s.%s,%s)' % (gr,xa,gr,ya,lab) elif (selection == self.plot_types[1]): cmnd = 'newplot(%s.%s,%s.%s,%s)' % (gr,xa,gr,ya,lab) self.iff_com(cmnd) self.iff_com("set %s.preline = pre_offset+pre_slope*%s.%s" % (gr,gr,xa) ) cmnd = 'plot(%s.%s,%s.preline)' % (gr,xa,gr) elif (selection == self.plot_types[2]): cmnd = 'newplot(%s.%s,%s.pre,%s)' % (gr,xa,gr,lab) elif (selection == self.plot_types[3]): cmnd = 'newplot(%s.%s,%s.norm,%s)' % (gr,xa,gr,lab) self.iff_com(cmnd) def drawWindow(self,master): self.main = self.MakeMainWindow(master) ma = self.main # frame1 = Frame(ma, borderwidth=3, relief='ridge') fr1 = Frame(frame1) fr2 = Frame(fr1) Label(fr2, foreground='red', width=15, text='Data Arrays ').pack(side='left', anchor='w',fill='both') fr2.pack(side='left', anchor='w',fill='x') fr2 = Frame(fr1) # Group Label(fr2, foreground='black', width=7, text='Group').pack(side='left', anchor='e',fill='both') self.wid['group'] = Pmw.ComboBox(fr2, scrolledlist_items= self.groups, entry_width = 12, entry_state="disabled", selectioncommand = Command(self.update_array_choice,'group',get_group=1)) self.wid['group'].pack(side='left',anchor='e',fill='x') fr2.pack(side='right', anchor='w', fill='both') fr1.pack(side='top', anchor='w', fill='both') fr1 = Frame(frame1) fr2 = Frame(fr1) # Energy Label(fr2, foreground='black', width=7, text=self.xa_label).pack(side='left',anchor='w',fill='x') self.wid['x'] = Pmw.ComboBox(fr2, scrolledlist_items= self.groups, entry_width = 12, entry_state="disabled", selectioncommand = Command(self.update_array_choice,'x',get_group=1)) self.wid['x'].pack(side='left',anchor='w',fill='x') # Mu Label(fr2, foreground='black', width=7, text=self.ya_label).pack(side='left',anchor='w',fill='x') self.wid['y'] = Pmw.ComboBox(fr2, scrolledlist_items= self.groups, entry_width = 12, entry_state="disabled", selectioncommand = Command(self.update_array_choice,'y',get_group=1)) self.wid['y'].pack(side='left',fill='x') fr2.pack(side='right', anchor='w',fill='both') fr1.pack(side='top', anchor='w', fill='both') frame1.pack(side='top', anchor='w',fill='both') self.wid['group'].setlist(self.groups) self.wid['group'].selectitem(self.groups[0]) if (len(self.groups) > 1): self.wid['group'].selectitem(self.groups[1]) self.update_array_choice('group',self.groups[1],get_group=0) ## Analysis Params frame1 = Frame(ma, borderwidth=3, relief='ridge') fr1 = Frame(frame1) Label(fr1, foreground='red', text='Analysis Parameters').pack(side='left', anchor='w',fill='both') fr1.pack(side='top', anchor='w',fill='x') # E0 / find E0 fr1 = Frame(frame1) fr2 = Frame(fr1) self.params['find_e0'] = IntVar() self.wid['e0'] = LabEnt(fr2,'E0', self.params['e0'], 12, labwidth=18) self.wid['find_e0'] = Checkbutton(fr2,text = 'Find E0', padx = 6, variable = self.params['find_e0']) self.wid['e0'].pack(side='left', anchor='w') self.wid['find_e0'].select() self.wid['find_e0'].pack(side='left') fr2.pack(side='left', anchor='w',fill='x') fr1.pack(side='top', anchor='w',fill='x') # step / find step fr1 = Frame(frame1) fr2 = Frame(fr1) self.params['find_st'] = IntVar() self.wid['step'] = LabEnt(fr2,'Edge Step', self.params['step'], 12, labwidth=18) self.wid['find_st'] = Checkbutton(fr2,text = 'Find Step', padx = 6, variable = self.params['find_st']) self.wid['step'].pack(side='left', anchor='w') self.wid['find_st'].select() self.wid['find_st'].pack(side='left') fr2.pack(side='left', anchor='w',fill='x') fr1.pack(side='top', anchor='w',fill='x') # K min / K max fr1 = Frame(frame1) fr2 = Frame(fr1) self.wid['pre1'] = LabEnt(fr2,'Pre Edge Range: ', self.params['pre1'], 12, labwidth=18) self.wid['pre2'] = LabEnt(fr2,' to ', self.params['pre2'], 12, labwidth=6) self.wid['pre1'].pack(side='left', anchor='w') self.wid['pre2'].pack(side='left') fr2.pack(side='left', anchor='w',fill='x') fr1.pack(side='top', anchor='w',fill='x') # K min / K max fr1 = Frame(frame1) fr2 = Frame(fr1) self.wid['norm1'] = LabEnt(fr2,'Edge Step Range: ', self.params['norm1'], 12, labwidth=18) self.wid['norm2'] = LabEnt(fr2,' to ', self.params['norm2'], 12, labwidth=6) self.wid['norm1'].pack(side='left', anchor='w') self.wid['norm2'].pack(side='left') fr2.pack(side='left', anchor='w',fill='x') fr1.pack(side='top', anchor='w',fill='x') self.balloon.bind(self.wid['pre1'], '', 'Min Energy (relative to e0) for pre-edge line') self.balloon.bind(self.wid['pre2'], '', 'Max Energy (relative to e0) for pre-edge line') self.balloon.bind(self.wid['norm1'], '', 'Min Energy (relative to e0) for finding edge step') self.balloon.bind(self.wid['norm2'], '', 'Max Energy (relative to e0) for finding edge step') self.balloon.bind(self.wid['e0'], '', 'Energy origin') self.balloon.bind(self.wid['step'], '', 'Edge step') self.balloon.bind(self.wid['find_st'], '', 'Automatic determination of edge step?') self.balloon.bind(self.wid['find_e0'], '', 'Automatic determination of e0?') frame1.pack(side='top',anchor='w',fill='both') ## Plot Frame frame1 = Frame(ma) fr1 = Frame(frame1) Label(fr1, foreground='red', text='Plot to Show').pack(side='left', anchor='w',fill='both') fr1.pack(side='top', anchor='w',fill='x') # Droplist fr1 = Frame(frame1) self.wid['plot'] = Pmw.ComboBox(fr1, scrolledlist_items= self.plot_types, entry_width = 40, entry_state="disabled", selectioncommand = Command(self.update_plot)) self.wid['plot'].pack(side='left',anchor='e',fill='x') self.wid['plot'].selectitem(self.plot_types[1]) fr1.pack(side='left',anchor='w',fill='both') frame1.pack(side='top',anchor='w',fill='both') # bottom fr3 = Frame(ma) bbox = Pmw.ButtonBox(fr3) bbox.pack(side='left',fill='both', expand=1) b_calc = bbox.add(self.do_btn_label, command= Command(self.btn_press,'calc')) b_quit = bbox.add('Quit', command = Command(self.btn_press,'ok')) bbox.setdefault(self.do_btn_label) bbox.alignbuttons() self.balloon.bind(b_calc, '', self.do_btn_hint) self.balloon.bind(b_quit, '', 'Close This Window') fr3.pack(side='top',anchor='w') self.createMsgWin(ma,width=50) self.update_params(self.param_map) self.main.deiconify() ############################################################################### ## ## GIFEFFIT CLASS ## ############################################################################### class GIFeffit(BaseWindow,Ifeffit): progname = "G. I. Feffit" version = "0.9" copyright = """ Copyright (c) 2000 Matt Newville \n The University of Chicago""" contact = """ email: newville@cars.uchicago.edu \n web: http://cars9.uchicago.edu/ifeffit/ """ def __init__(self, load=None): self.root = Tk() # launch Ifeffit in screen_echo = 0 mode Ifeffit.__init__(self, screen_echo = 0) self.root.option_add('*font', ('Helvetica', 12)) self.drawsplash(self.root) Pmw.initialise(self.root) self.root.withdraw() self.root.title('G.I.Feffit') self.inp_buff = [] # command buffer self.ind_ = 0 # index in inp_buff self.plot_opts = self.reset_plot_opts() self.prefs = {} self.feff_paths= {} self.iff_com = self.do_ifeffit self.balloon = Pmw.Balloon(self.root) self.inp_buff.append("") ; self.createMenubar(self.root) self.createMainWin(self.root) self.createMsgWin(self.root) self.load_startup_file() if ((load != None) and (type(load) == types.ListType)): for i in range(len(load)): self.iff_com("load(%s)" % load[i]) self.clear_echo_buffer() self.root.deiconify() self.root.mainloop() def drawsplash(self,master): # Create about dialog. Pmw.aboutversion(self.version) Pmw.aboutcopyright(self.copyright) Pmw.aboutcontact(self.contact) self.about = Pmw.AboutDialog(master, applicationname = self.progname) self.about.after(5000,self.removesplash) def removesplash(self): self.about.withdraw() def createMainWin(self,master=None): nbFrame = Pmw.NoteBook(master, raisecommand= Command(self.nb_raise)) nbFrame.pack(fill = 'both', expand= 1, padx = 1, pady = 1) # Add the "Appearance" page to the notebook. cmd_page = nbFrame.add('Command Buffer') sca_page = nbFrame.add('Scalars') arr_page = nbFrame.add('Arrays') str_page = nbFrame.add('Strings') mac_page = nbFrame.add('Macros') pth_page = nbFrame.add('Feff Paths') self.nbframe = nbFrame self.balloon.bind(cmd_page, '', 'Ifeffit commands and raw output') self.balloon.bind(sca_page, '', 'Ifeffit scalars') self.balloon.bind(arr_page, '', 'Ifeffit arrays') self.balloon.bind(str_page, '', 'Ifeffit strings') self.balloon.bind(mac_page, '', 'Macros') self.balloon.bind(pth_page, '', 'Feff Path Definitions') self.cmd_win = ScrolledText.ScrolledText(cmd_page) self.cmd_win.configure(width=85, height=20) self.cmd_win.tag_configure('output', foreground='red',font=('Helvetica', 12)) self.cmd_win.tag_configure('input', font=('Helvetica', 12)) self.cmd_win.pack(side='top') self.sca_win = ScrolledText.ScrolledText(sca_page) self.sca_win.configure(width=85, height=20) self.sca_win.insert('end', "\n\n") self.sca_win.pack(side='top') self.arr_win = ScrolledText.ScrolledText(arr_page) self.arr_win.configure(width=85, height=20) self.arr_win.insert('end', "\n\n") self.arr_win.pack(side='top') self.str_win = ScrolledText.ScrolledText(str_page) self.str_win.configure(width=85, height=20) self.str_win.insert('end', "\n\n") self.str_win.pack(side='top') self.mac_win = ScrolledText.ScrolledText(mac_page) self.mac_win.configure(width=85, height=20) self.mac_win.insert('end', "\n\n") self.mac_win.pack(side='top') self.pth_win = ScrolledText.ScrolledText(pth_page) self.pth_win.configure(width=85, height=20) self.pth_win.insert('end', "\n\n") self.pth_win.pack(side='top') nbFrame.setnaturalsize() self.cmdBox = Frame(master) self.cmdFrame = Frame(self.cmdBox) Label(self.cmdFrame, text='Ifeffit>').pack(side='left') self.cmdBox.pack(side='top', anchor='w') self.cmdFrame.pack(anchor='w', side='left',fill='x') self.command = StringVar() self.field = Entry(self.cmdFrame, width=64) self.balloon.bind(self.field, '', 'Enter Ifeffit commands or use arrows to scroll through commands') self.field['textvariable'] = self.command self.field.bind('', self.process) self.field.bind('', self.process) self.field.bind('', self.process) self.field.pack(side='left') def createMenubar(self, master): self.menuBar = Pmw.MenuBar(master, hull_borderwidth=1, hull_relief = 'raised', hotkeys=1, balloon = self.balloon) self.menuBar.pack(fill='x') self.menuBar.addmenu('File', 'Read Files or Exit') # self.menuBar.addcascademenu('File', 'Read') self.menuBar.addmenuitem('File', 'command', 'Read Data File', label='Read Data File', command=Command(self.read_datafile, self.root)) self.menuBar.addmenuitem('File', 'command', 'Load Command File', label='Read Command File', command=Command(self.read_cmndfile, self.root)) self.menuBar.addmenuitem('File', 'command', 'Restore a saved session from a .sav file', label='Read Saved Session', command=Command(self.restore_state, self.root)) self.menuBar.addmenuitem('File', 'separator') self.menuBar.addcascademenu('File', 'Write') # self.menuBar.addmenuitem('Write', 'command', 'Write Data File', # label='Data File', # command=Command(self.write_datafile, self.root)) self.menuBar.addmenuitem('Write', 'command', 'Write Command File', label='Command File', command=Command(self.write_cmndfile, self.root)) self.menuBar.addmenuitem('Write', 'command', 'Save session to .sav file', label='Save session', command=Command(self.save_state, self.root)) self.menuBar.addmenuitem('File', 'separator') self.menuBar.addmenuitem('File', 'command', 'Close', label='Exit', command=self.exit) self.menuBar.addmenu('Help', 'About', side='right') self.menuBar.addmenuitem('Help', 'command', 'Get information on application', label='About...', command=self.help) # self.menuBar.addmenu('Edit', 'Edit Text and Preferences') # self.menuBar.addmenuitem('Edit', 'command', 'Define and Edit Macros', # label='Macros', # command=Command(self.macro_editor, self.root)) # self.menuBar.addmenuitem('Edit', 'command', 'Equaton Editor', # label='Equation Editor', # command=Command(self.macro_editor, self.root)) # self.menuBar.addmenuitem('Edit', 'separator') # self.menuBar.addmenuitem('Edit', 'command', 'Plot Preferences', # label='Plot Preferences', # command=Command(self.setplot_opts, self.root)) # # self.menuBar.addmenuitem('Edit', 'command', 'General Preferences', # label='General Preferences', # command=Command(self.set_prefs, self.root)) self.menuBar.addmenu('Process', 'General Data Processing') self.menuBar.addmenuitem('Process', 'command', 'General Plot Interface', label='Plotter', command=Command(self.plotter, self.root)) self.menuBar.addmenuitem('Process', 'command', 'EXAFS Pre-Edge and Normalization', label='Pre-Edge', command=Command(self.pre_edge, self.root)) self.menuBar.addmenuitem('Process', 'command', 'EXAFS Background Subtraction', label='Background', command=Command(self.autobk, self.root)) self.menuBar.addmenuitem('Process', 'command', 'EXAFS Fourier Transforms', label='FFT ', command=Command(self.fft, self.root)) # self.menuBar.addmenu('Analysis', 'Data Analysis ') # self.menuBar.addmenuitem('Analysis', 'command', # 'Define FEFF Path', # label='Define FEFF Paths', # command=Command(self.def_paths, self.root)) def process(self, event): if ( event.keysym == 'Return'): cmd = self.command.get() self.do_ifeffit(cmd) else: dir = 0 if (event.keysym == 'Up'): dir = -1 if (event.keysym == 'Down'): dir = 1 self.ind_ = self.ind_ + dir if (self.ind_ < 1): self.ind_ = 0 self.command.set("") elif (self.ind_ == len(self.inp_buff)): self.command.set("") self.ind_ = self.ind_ - 1 else: self.command.set(self.inp_buff[self.ind_]) def do_ifeffit(self,cmd="",do_raise=1): """execute Ifeffit command in GIFeffit's Notebook motif, updating the Command Buffer and currently raised page""" ret = 0 cmd = strip(cmd) if (cmd != ""): if ((cmd == 'quit') or (cmd =='exit')): sys.exit() elif (cmd == 'pwd'): s = os.getcwd() self.cmd_win.insert('end'," %s\n" % cmd, 'input') self.cmd_win.insert('end'," %s\n" % s, 'output') self.command.set("") self.cmd_win.see('end') elif ((cmd == 'cd') or (cmd[0:3] == 'cd ')): try: os.chdir(cmd[3:]) except OSError: pass s = os.getcwd() self.cmd_win.insert('end'," %s\n" % cmd, 'input') self.cmd_win.insert('end'," %s\n" % s, 'output') self.command.set("") self.cmd_win.see('end') elif ((cmd[0:3] == 'ls ') or (cmd[0:4] == 'dir ') or (cmd == 'ls') or (cmd == 'dir')): self.cmd_win.insert('end'," %s\n" % cmd, 'input') t = os.getcwd() self.cmd_win.insert('end'," %s:\n" % t, 'output') s = os.listdir(t) s.sort() out = '' for i in range(len(s)): lsi = len(s[i]) if (lsi < 20): out = out + s[i] + ' '*(22 - lsi) else: out = out + s[i] + ' ' if (len(out) > 71): self.cmd_win.insert('end'," %s\n" % out, 'output') out = '' if (len(out) > 1): self.cmd_win.insert('end'," %s\n" % out, 'output') out = '' self.command.set("") self.cmd_win.see('end') elif (cmd[0:1] == '!'): os.system(cmd[1:]) self.command.set("") else: ret = self.ifeffit(cmd) self.inp_buff.append(cmd) self.cmd_win.insert('end'," %s\n" % cmd, 'input') self.command.set("") self.cmd_win.see('end') self.ind_ = len(self.inp_buff) self.add_echo_lines(self.cmd_win, erase=0) # update the currently raised window if (do_raise == 1): raised = self.nbframe.getcurselection() self.nb_raise(raised) return ret def nb_raise(self,page): if (page == 'Arrays'): self.arrays_update() elif (page == 'Scalars'): self.scalars_update() elif (page == 'Strings'): self.strings_update() elif (page == 'Macros'): self.macros_update() elif (page == 'Feff Paths'): self.paths_update() def arrays_update(self): self.clear_echo_buffer() self.ifeffit("show @arrays") self.add_echo_lines(self.arr_win, erase=1) def scalars_update(self): self.clear_echo_buffer() self.ifeffit("show @scalars") self.add_echo_lines(self.sca_win, erase=1) def strings_update(self): self.clear_echo_buffer() self.ifeffit("show @strings") self.add_echo_lines(self.str_win, erase=1) def macros_update(self): self.clear_echo_buffer() self.ifeffit("show @macros") self.mac_win.delete(0.0, self.mac_win.index('end') ) self.mac_win.tag_configure('desc', foreground='darkgreen', font=('Helvetica', 12)) self.mac_win.tag_configure('args', foreground='red', font=('Helvetica', 12)) nmac = 0 macargs = [] macdesc = [] buff = self.get_echo_buffer() for s in buff: if (s[0:5] == 'macro'): sx = re.split(r',*\s+', strip(s[6:])) macargs.append(sx) macdesc.append("") nmac = nmac + 1 else: if (nmac > 0): macdesc[nmac-1] = s for i in range(nmac): self.mac_win.insert('end', "macro %s" % macargs[i][0]) self.mac_win.insert('end', " ") for j in range(1,len(macargs[i])): self.mac_win.insert('end', " %s" % macargs[i][j], 'args') self.mac_win.insert('end', "\n") if (macdesc[i] != ""): self.mac_win.insert('end', " %s\n" % macdesc[i], 'desc') self.ifeffit("show %s " % macargs[i][0]) skip = 1 if (macdesc[i] != ""): skip = 2 buff = self.get_echo_buffer() i = 0 for s in buff: i = i + 1 if ((i >= skip) and (s != 'end macro')): self.mac_win.insert('end', " %s\n" % s) self.mac_win.see('end') def paths_update(self): self.clear_echo_buffer() self.ifeffit("show @paths") self.add_echo_lines(self.pth_win, erase=1) def add_echo_lines(self, win, erase=1): if (erase == 1): win.delete(0.0, win.index('end') ) buff = self.get_echo_buffer() for s in buff: if (win == self.cmd_win): win.insert('end', "# %s\n" % s, 'output') elif ((win == self.sca_win) and (s[0:1] == '&')): pass elif ((win == self.str_win) and (s[0:2] == '$&')): pass else: win.insert('end', " %s\n" % s) win.see('end') def read_datafile(self, master): ReadDataFile(iff_com=self.do_ifeffit, master=master) def read_cmndfile(self, master): ReadCmndFile(iff_com=self.do_ifeffit, master=master) def write_datafile(self, master): WriteDataFile(master=master) def write_cmndfile(self, master): WriteCmndFile(master=master, buffer = self.inp_buff) def save_state(self, master): xfile = tkFileDialog.asksaveasfilename( filetypes=[("save files","*.sav"), ("all files","*")], initialfile = 'ifeffit.sav' , parent=master) xfile = trim_cwd(xfile) if (xfile != ''): self.do_ifeffit("save(%s)" % xfile) def restore_state(self, master): xfile = "" xfile = tkFileDialog.askopenfilename( filetypes=[("save files","*.sav"), ("all files","*")], parent=master) xfile = trim_cwd(xfile) if (xfile != ''): self.do_ifeffit("restore(%s)" % xfile) def plotter(self,master): DataPlotter(iff_com = self.do_ifeffit, master=master, plot_opts= self.plot_opts) def search_frame(self, master): a = 1 # print " Searching Current Frame for a string" # def setplot_opts(self, master): # SetPlotPrefs(master=master) def set_prefs(self, master): SetPrefs(master=master, prefs = self.prefs) def load_startup_file(self): pass # self.prefs['startup_file'] = 'AAA' # print "loading startup file:" # print self.prefs def pre_edge(self,master): PreEdge(iff_com = self.do_ifeffit, master=master) def autobk(self,master): Spline(iff_com = self.do_ifeffit, master=master) def fft(self,master): Ifft(iff_com = self.do_ifeffit, master=master) def def_paths(self,master): Paths(iff_com = self.do_ifeffit, master=master,paths=self.feff_paths) def macro_editor(self,master): pass def exit(self): sys.exit(0) def help(self): self.about.show() ifeffit-1.2.11d/wrappers/python/site_install.py0000644000175000017500000000055411117271643020607 0ustar segresegrebin_dir="/usr/bin" lib_iff="-L/usr/lib -lifeffit " lib_plt="-L/usr/local/share/ifeffit/pgplot -lpgplot_iff -lpng -lz -lX11" lib_f77="-L/usr/lib/gcc/x86_64-redhat-linux/4.1.1 -L/usr/lib/gcc/x86_64-redhat-linux/4.1.1/../../../../lib64 -L/lib/../lib64 -L/usr/lib/../lib64 -lgfortranbegin -lgfortran -lm -lgcc_s " inc_iff="-I../../src/lib -I/usr/share/ifeffit/config" ifeffit-1.2.11d/wrappers/python/GIFeffit.py0000755000175000017500000007112510771740460017550 0ustar segresegre#!/usr/bin/python ## ## GIFEFFIT: Graphical User Interface to the IFEFFIT XAFS Analysis Library ## ## Copyright (c) 1997--2000 Matthew Newville, The University of Chicago ## Copyright (c) 1992--1996 Matthew Newville, University of Washington ## ## Permission to use and redistribute the source code or binary forms of ## this software and its documentation, with or without modification is ## hereby granted provided that the above notice of copyright, these ## terms of use, and the disclaimer of warranty below appear in the ## source code and documentation, and that none of the names of The ## University of Chicago, The University of Washington, or the authors ## appear in advertising or endorsement of works derived from this ## software without specific prior written permission from all parties. ## ## THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ## EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ## MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ## IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY ## CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, ## TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ## SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. ## from Tkinter import * from string import * from Ifeffit import Ifeffit from TkIfeffit import * from DataPlotter import * import re, os, sys, types import Pmw, ScrolledText, tkFileDialog, tkColorChooser from tkFileDialog import askopenfilename # from Pmw import MessageDialog class ReadDataFile(BaseWindow,Ifeffit): """ ReadDataFile Class: prompt for ASCII file name, guess array names, allow them to be changed, and read in file""" def __init__(self, iff_com=None, master=None): if (iff_com == None): iff_com = self.ifeffit self.iff_com = iff_com self.master = master self.main = None self.input_file = '' self.marray = 32 self.narray = 16 self.array_disp = 7 self.array = [] self.entr = [] self.file_type = StringVar() self.file_type.set('') for i in range(self.marray): self.array.append('') self.entr.append('') self.read() def btn_press(self,btn,event=None): if ((btn == 'ok') or (btn == 'apply')): self.read_cmd = self.read_final_file() if ((btn == 'ok') or (btn == 'cancel')): self.main.destroy() if (btn == 'newfile'): self.main.withdraw() self.read(self.master) def ftype_choice(self,event=None): x = event if ((self.input_file == None) or (self.input_file == '')): return if (x == ''): self.read_temp_file() else: for i in range(self.marray): self.array[i] = ' ' if (x == 'xmu'): self.array[0] = 'energy' self.array[1] = 'xmu' elif (x == 'chi'): self.array[0] = 'k' self.array[1] = 'chi' elif (x == 'chi.dat'): self.array[0] = 'k' self.array[1] = 'chi' self.array[2] = 'mag' self.array[3] = 'phase' elif (x == 'feff.dat'): self.array[0] = 'k' self.array[1] = 'cphase' self.array[2] = 'mag' self.array[3] = 'phase' self.array[4] = 'redfactor' self.array[5] = 'lambda' self.array[6] = 'realp' self.array_disp = 7 elif (x == 'rsp'): self.array[0] = 'r' self.array[1] = 'chi_re' self.array[2] = 'chi_im' self.array[3] = 'chi_mag' self.array[4] = 'chi_phase' for i in range(self.array_disp): self.entr[i].delete(0,END) self.entr[i].insert(0,self.array[i]) def read(self, master=None, title='Read ASCII Data File'): self.input_file = ask_for_file(self.master, [("data files","*.dat *.chi *.xmu"), ("all files","*")] ) if (master == None): self.main = Tk() else: self.main = Toplevel(master) Frame.__init__(self, self.main) self.main.title(title) self.main.option_add('*font', ('Helvetica', 12)) if ((self.input_file != None) and (self.input_file != '')): self.read_temp_file() self.display_arrays() else: self.main.destroy() def display_arrays(self): ma = self.main self.balloon = Pmw.Balloon(ma) self.menuBar = Pmw.MenuBar(ma, hull_borderwidth=1, hull_relief = 'raised', hotkeys=1, balloon = self.balloon) self.menuBar.pack(fill='x') self.menuBar.addmenu('File', 'Read, Cancel, Exit') self.menuBar.addmenuitem('File', 'command', 'Read this file with these arrays', label='Read', command= Command(self.btn_press, 'apply')) self.menuBar.addmenuitem('File', 'command', 'Do not read this file, Look for a new file', label='Change File', command= Command(self.btn_press, 'newfile')) self.menuBar.addmenuitem('File', 'command', 'Close without reading these arrays from this file', label='Cancel', command= Command(self.btn_press, 'cancel')) self.menuBar.addmenuitem('File', 'command', 'Read this file with these arrays, and exit', label='OK', command= Command(self.btn_press, 'ok')) # file buffer display self.f_win = Pmw.ScrolledText(ma,label_text=self.input_file, borderframe = 1,usehullsize=0, text_padx = 10, text_pady = 10, labelpos=NW, hull_width=650, hull_height=320) self.f_win.importfile(self.input_file) self.f_win.pack(side='top') # group name fr_0 = Frame(ma) fr_0.pack(side='top',anchor='w') fr_1 = Frame(fr_0) fr_1.pack(side='left', fill='x',anchor='w') fr1 = Frame(fr_1) Label(fr1, text='Group: ').pack(side='left') self.g_ent = Entry(fr1,width=20) self.g_ent.selection_clear() self.g_ent.insert(0,self.group) self.g_ent.pack(side='left',fill='x') fr1.pack(side='left',fill='x') fr_4 = Frame(fr_0) fr_4.pack(side='left', fill='x',anchor='w') self.file_type.set('') self.ftypes = Pmw.OptionMenu(fr_4, labelpos = 'w', label_text = ' Column File Types: ', menubutton_textvariable = self.file_type, menubutton_width = 22, items = ['', 'xmu','chi','rsp', 'chi.dat', 'feff.dat'], initialitem = '', command = Command(self.ftype_choice), ) # menubutton_width = 18) self.ftypes.pack(side='left',fill='x') # arrays name fr_2 = Frame(ma) fr_2.pack(side='top',anchor='w') fr2 = Frame(fr_2) Label(fr2, text='Arrays: ').pack(side='left') for i in range(self.array_disp): self.entr[i] = Entry(fr2, width=10) self.entr[i].selection_clear() self.entr[i].insert(0,self.array[i]) self.entr[i].pack(side='left') fr2.pack(side='top') # fr_3 = Frame(ma) bbox = Pmw.ButtonBox(fr_3) bbox.pack(side='left',fill='both', expand=1) b_ok= bbox.add('OK', command = Command(self.btn_press,'ok')) b_rd= bbox.add('Read', command = Command(self.btn_press,'apply')) b_ca= bbox.add('Done', command = Command(self.btn_press,'cancel')) b_nf=bbox.add('Change File', command = Command(self.btn_press,'newfile')) bbox.setdefault('Read') bbox.alignbuttons() self.balloon.bind(b_ok, '', 'Read these arrays from this file and exit') self.balloon.bind(b_rd, '', 'Read these arrays from this file') self.balloon.bind(b_ca, '', 'Close without reading these arrays from this file') self.balloon.bind(b_nf, '', 'Do not read these arrays, Look for a new file') fr_3.pack() self.createMsgWin(ma) def read_temp_file(self): if ((self.input_file == '') or (self.input_file == None)): return self.ifeffit('read_data(group=_xx_,notitles,type=label,file=%s)' % self.input_file) col_lab = strip(self.get_string('column_label')) if (col_lab == '--undefined--'): self.ifeffit('read_data(group=_xx_,notitles,type=raw,file=%s)' % self.input_file) col_lab = strip(self.get_string('column_label')) if (col_lab == '--undefined--'): self.f_win.clear() self.f_win.settext(' Invalid File: ' + self.input_file ) self.group = ' ' for i in range(self.marray): self.array[i] = ' ' return tmp_lis = split(col_lab) s = os.path.basename(self.input_file) x = split(s,'.') self.group = x[0] self.narray = min(self.marray,len(tmp_lis)) for i in range(self.marray): self.array[i] = ' ' for i in range(self.narray): self.array[i] = tmp_lis[i] g = self.group # erase temp arrays for i in range(self.marray): a = self.array[i] if (a != ' '): s = self.ifeffit('erase _XX_.%s' % a) def read_final_file(self): if ((self.input_file=='') or (self.input_file == None)): return g = self.g_ent.get() c = 'read_data(file=%s, group=%s,label=(' %(self.input_file, g) # print ' array size = ' , self.narray, self.marray for i in range(self.narray): d = self.array[i] if (i < self.array_disp): d = self.entr[i].get() c = c + d + ' ' self.iff_com( c + '))') ############################################################################### ## ## GIFEFFIT CLASS ## ############################################################################### class GIFeffit(BaseWindow,Ifeffit): progname = "G. I. Feffit" version = "0.9" copyright = """ Copyright (c) 2000 Matt Newville \n The University of Chicago""" contact = """ email: newville@cars.uchicago.edu \n web: http://cars9.uchicago.edu/ifeffit/ """ def __init__(self, load=None): self.root = Tk() # launch Ifeffit in screen_echo = 0 mode Ifeffit.__init__(self, screen_echo = 0) self.root.option_add('*font', ('Helvetica', 12)) self.drawsplash(self.root) Pmw.initialise(self.root) self.root.withdraw() self.root.title('G.I.Feffit') self.inp_buff = [] # command buffer self.ind_ = 0 # index in inp_buff self.plot_opts = self.reset_plot_opts() self.prefs = {} self.feff_paths= {} self.ask_exit = 1 self.iff_com = self.do_ifeffit self.balloon = Pmw.Balloon(self.root) self.inp_buff.append("") ; self.createMenubar(self.root) self.createMainWin(self.root) self.root.mainloop() def drawsplash(self,master): # Create about dialog. Pmw.aboutversion(self.version) Pmw.aboutcopyright(self.copyright) Pmw.aboutcontact(self.contact) self.about = Pmw.AboutDialog(master, applicationname = self.progname) self.about.after(2000,self.removesplash) def removesplash(self): self.root.deiconify() self.ifeffit("newplot") self.clear_echo_buffer() self.about.withdraw() def createMainWin(self,master=None): pane = Pmw.PanedWidget(master,hull_width=700,hull_height=350) pane.add('top',min=80,max=800) pane.add('bot',min=50,max=60) nbFrame = Pmw.NoteBook(pane.pane('top'), raisecommand= Command(self.nb_raise)) nbFrame.pack(fill = 'both', expand= 1, padx = 1, pady = 1) # Add the "Appearance" page to the notebook. cmd_page = nbFrame.add('Command Buffer') sca_page = nbFrame.add('Scalars') arr_page = nbFrame.add('Arrays') str_page = nbFrame.add('Strings') mac_page = nbFrame.add('Macros') pth_page = nbFrame.add('Feff Paths') self.nbframe = nbFrame self.balloon.bind(cmd_page, '', 'Ifeffit commands and raw output') self.balloon.bind(sca_page, '', 'Ifeffit scalars') self.balloon.bind(arr_page, '', 'Ifeffit arrays') self.balloon.bind(str_page, '', 'Ifeffit strings') self.balloon.bind(mac_page, '', 'Macros') self.balloon.bind(pth_page, '', 'Feff Path Definitions') self.cmd_win = ScrolledText.ScrolledText(cmd_page) self.cmd_win.configure(width=85, height=40) self.cmd_win.tag_configure('output', foreground='red',font=('Helvetica', 12)) self.cmd_win.tag_configure('input', font=('Helvetica', 12)) self.cmd_win.pack(side='top') self.sca_win = ScrolledText.ScrolledText(sca_page) self.sca_win.configure(width=85, height=40, font=('Courier', 12)) self.sca_win.insert('end', "\n\n") self.sca_win.pack(side='top') self.arr_win = ScrolledText.ScrolledText(arr_page) self.arr_win.configure(width=85, height=40, font=('Courier', 12)) self.arr_win.insert('end', "\n\n") self.arr_win.pack(side='top') self.str_win = ScrolledText.ScrolledText(str_page) self.str_win.configure(width=85, height=40, font=('Courier', 12)) self.str_win.insert('end', "\n\n") self.str_win.pack(side='top') self.mac_win = ScrolledText.ScrolledText(mac_page) self.mac_win.configure(width=85, height=40) self.mac_win.insert('end', "\n\n") self.mac_win.pack(side='top') self.pth_win = ScrolledText.ScrolledText(pth_page) self.pth_win.configure(width=85, height=40) self.pth_win.insert('end', "\n\n") self.pth_win.pack(side='top') nbFrame.setnaturalsize() self.cmdBox = Frame(pane.pane('bot')) self.cmdFrame = Frame(self.cmdBox) Label(self.cmdFrame, text='Ifeffit>').pack(side='left') self.cmdBox.pack(side='top', anchor='w') self.cmdFrame.pack(anchor='w', side='left',fill='x') self.command = StringVar() self.field = Entry(self.cmdFrame, width=64) self.balloon.bind(self.field, '', 'Enter Ifeffit commands or use arrows to scroll through commands') self.field['textvariable'] = self.command self.field.bind('', self.process) self.field.bind('', self.process) self.field.bind('', self.process) self.field.pack(side='left') self.createMsgWin(pane.pane('bot')) pane.pack(expand = 1, fill = 'both') def createMenubar(self, master): self.menuBar = Pmw.MenuBar(master, hull_borderwidth=1, hull_relief = 'raised', hotkeys=1, balloon = self.balloon) self.menuBar.pack(fill='x') self.menuBar.addmenu('File', 'Read Files or Exit') # self.menuBar.addcascademenu('File', 'Read') self.menuBar.addmenuitem('File', 'command', 'Read Data File', label='Read Data File', command=Command(self.read_datafile, self.root)) self.menuBar.addmenuitem('File', 'command', 'Load Command File', label='Read Command File', command=Command(self.read_cmndfile, self.root)) self.menuBar.addmenuitem('File', 'command', 'Restore a saved session from a .sav file', label='Read Saved Session', command=Command(self.restore_state, self.root)) self.menuBar.addmenuitem('File', 'separator') # self.menuBar.addcascademenu('File', 'Write') # self.menuBar.addmenuitem('Write', 'command', 'Write Data File', # label='Write Data File', # command=Command(self.write_datafile, self.root)) self.menuBar.addmenuitem('File', 'command', 'Write Command File', label='Write Command File', command=Command(self.write_cmndfile, self.root)) self.menuBar.addmenuitem('File', 'command', 'Save session to .sav file', label='Save session', command=Command(self.save_state, self.root)) self.menuBar.addmenuitem('File', 'separator') self.menuBar.addmenuitem('File', 'command', 'Close', label='Exit', command=Command(self.exit)) self.menuBar.addmenu('Help', 'About', side='right') self.menuBar.addmenuitem('Help', 'command', 'Get information on application', label='About...', command=self.help) # self.menuBar.addmenu('Edit', 'Edit Text and Preferences') # self.menuBar.addmenuitem('Edit', 'command', 'Define and Edit Macros', # label='Macros', # command=Command(self.macro_editor, self.root)) # self.menuBar.addmenuitem('Edit', 'command', 'Equaton Editor', # label='Equation Editor', # command=Command(self.macro_editor, self.root)) # self.menuBar.addmenuitem('Edit', 'separator') # self.menuBar.addmenuitem('Edit', 'command', 'Plot Preferences', # label='Plot Preferences', # command=Command(self.setplot_opts, self.root)) # # self.menuBar.addmenuitem('Edit', 'command', 'General Preferences', # label='General Preferences', # command=Command(self.set_prefs, self.root)) self.menuBar.addmenu('Plotting', 'General Data Plotting') self.menuBar.addmenuitem('Plotting', 'command', 'General Plot Interface', label='Plotter', command=Command(self.plotter, self.root)) self.menuBar.addmenu('XAFS', 'XAFS Data Analysis ') self.menuBar.addmenuitem('XAFS', 'command', 'EXAFS Pre-Edge and Normalization', label='Pre-Edge', command=Command(self.pre_edge, self.root)) self.menuBar.addmenuitem('XAFS', 'command', 'EXAFS Background Subtraction', label='Background', command=Command(self.autobk, self.root)) self.menuBar.addmenuitem('XAFS', 'command', 'EXAFS Fourier Transforms', label='FFT ', command=Command(self.fft, self.root)) # self.menuBar.addmenuitem('Analysis', 'command', # 'Define FEFF Path', # label='Define FEFF Paths', # command=Command(self.def_paths, self.root)) def process(self, event): if ( event.keysym == 'Return'): cmd = self.command.get() self.do_ifeffit(cmd) else: dir = 0 if (event.keysym == 'Up'): dir = -1 if (event.keysym == 'Down'): dir = 1 self.ind_ = self.ind_ + dir if (self.ind_ < 1): self.ind_ = 0 self.command.set("") elif (self.ind_ == len(self.inp_buff)): self.command.set("") self.ind_ = self.ind_ - 1 else: self.command.set(self.inp_buff[self.ind_]) def do_ifeffit(self,cmd="",do_raise=1): """execute Ifeffit command in GIFeffit's Notebook motif, updating the Command Buffer and currently raised page""" ret = 0 cmd = strip(cmd) if (cmd != ""): if ((cmd == 'quit') or (cmd =='exit')): self.exit(prompt=self.ask_exit) elif (cmd == 'pwd'): s = os.getcwd() self.cmd_win.insert('end'," %s\n" % cmd, 'input') self.cmd_win.insert('end'," %s\n" % s, 'output') self.command.set("") self.cmd_win.see('end') elif ((cmd == 'cd') or (cmd[0:3] == 'cd ')): try: os.chdir(cmd[3:]) except OSError: pass s = os.getcwd() self.cmd_win.insert('end'," %s\n" % cmd, 'input') self.cmd_win.insert('end'," %s\n" % s, 'output') self.command.set("") self.cmd_win.see('end') elif ((cmd[0:3] == 'ls ') or (cmd[0:4] == 'dir ') or (cmd == 'ls') or (cmd == 'dir')): self.cmd_win.insert('end'," %s\n" % cmd, 'input') t = os.getcwd() self.cmd_win.insert('end'," %s:\n" % t, 'output') s = os.listdir(t) s.sort() out = '' for i in range(len(s)): lsi = len(s[i]) if (lsi < 20): out = out + s[i] + ' '*(22 - lsi) else: out = out + s[i] + ' ' if (len(out) > 71): self.cmd_win.insert('end'," %s\n" % out, 'output') out = '' if (len(out) > 1): self.cmd_win.insert('end'," %s\n" % out, 'output') out = '' self.command.set("") self.cmd_win.see('end') elif (cmd[0:1] == '!'): os.system(cmd[1:]) self.command.set("") else: ret = self.ifeffit(cmd) self.inp_buff.append(cmd) self.cmd_win.insert('end'," %s\n" % cmd, 'input') self.command.set("") self.cmd_win.see('end') self.ind_ = len(self.inp_buff) self.add_echo_lines(self.cmd_win, erase=0) # update the currently raised window if (do_raise == 1): raised = self.nbframe.getcurselection() self.nb_raise(raised) return ret def nb_raise(self,page): if (page == 'Arrays'): self.arrays_update() elif (page == 'Scalars'): self.scalars_update() elif (page == 'Strings'): self.strings_update() elif (page == 'Macros'): self.macros_update() elif (page == 'Feff Paths'): self.paths_update() def arrays_update(self): self.clear_echo_buffer() self.ifeffit("show @arrays") self.add_echo_lines(self.arr_win, erase=1) def scalars_update(self): self.clear_echo_buffer() self.ifeffit("show @scalars") self.add_echo_lines(self.sca_win, erase=1) def strings_update(self): self.clear_echo_buffer() self.ifeffit("show @strings") self.add_echo_lines(self.str_win, erase=1) def macros_update(self): self.clear_echo_buffer() self.ifeffit("show @macros") self.mac_win.delete(0.0, self.mac_win.index('end') ) self.mac_win.tag_configure('desc', foreground='darkgreen', font=('Helvetica', 12)) self.mac_win.tag_configure('args', foreground='red', font=('Helvetica', 12)) nmac = 0 macargs = [] macdesc = [] buff = self.get_echo_buffer() for s in buff: if (s[0:5] == 'macro'): sx = re.split(r',*\s+', strip(s[6:])) macargs.append(sx) macdesc.append("") nmac = nmac + 1 else: if (nmac > 0): macdesc[nmac-1] = s for i in range(nmac): self.mac_win.insert('end', "macro %s" % macargs[i][0]) self.mac_win.insert('end', " ") for j in range(1,len(macargs[i])): self.mac_win.insert('end', " %s" % macargs[i][j], 'args') self.mac_win.insert('end', "\n") if (macdesc[i] != ""): self.mac_win.insert('end', " %s\n" % macdesc[i], 'desc') self.ifeffit("show %s " % macargs[i][0]) skip = 1 if (macdesc[i] != ""): skip = 2 buff = self.get_echo_buffer() i = 0 for s in buff: i = i + 1 if ((i > skip) and (s != 'end macro')): self.mac_win.insert('end', " %s\n" % s) self.mac_win.see('end') def paths_update(self): self.clear_echo_buffer() self.ifeffit("show @paths") self.add_echo_lines(self.pth_win, erase=1) def add_echo_lines(self, win, erase=1): if (erase == 1): win.delete(0.0, win.index('end') ) buff = self.get_echo_buffer() for s in buff: if (win == self.cmd_win): win.insert('end', "# %s\n" % s, 'output') elif ((win == self.sca_win) and (s[0:1] == '&')): pass elif ((win == self.str_win) and (s[0:2] == '$&')): pass else: win.insert('end', " %s\n" % s) win.see('end') def read_datafile(self, master): ReadDataFile(iff_com=self.do_ifeffit, master=master) def read_cmndfile(self, master): ReadCmndFile(iff_com=self.do_ifeffit, master=master) def write_datafile(self, master): WriteDataFile(master=master) def write_cmndfile(self, master): WriteCmndFile(master=master, buffer = self.inp_buff) def save_state(self, master): xfile = tkFileDialog.asksaveasfilename( filetypes=[("save files","*.sav"), ("all files","*")], initialfile = 'ifeffit.sav' , parent=master) xfile = trim_cwd(xfile) if (xfile != ''): self.do_ifeffit("save(file=\"%s\")" % xfile) def restore_state(self, master): xfile = "" xfile = tkFileDialog.askopenfilename( filetypes=[("save files","*.sav"), ("all files","*")], parent=master) xfile = trim_cwd(xfile) if (xfile != ''): self.do_ifeffit("restore(file=\"%s\")" % xfile) def plotter(self,master): DataPlotter(iff_com = self.do_ifeffit, master=master, plot_opts= self.plot_opts) def set_prefs(self, master): SetPrefs(master=master, prefs = self.prefs) def pre_edge(self,master): PreEdge(iff_com = self.do_ifeffit, master=master) def autobk(self,master): Spline(iff_com = self.do_ifeffit, master=master) def fft(self,master): Ifft(iff_com = self.do_ifeffit, master=master) def def_paths(self,master): Paths(iff_com = self.do_ifeffit, master=master,paths=self.feff_paths) def macro_editor(self,master): pass def exit(self,prompt=1): res = 'Yes' if (prompt == 1): d = Pmw.MessageDialog(self.root, title = 'Save Ifeffit Session?', defaultbutton = 0, buttons = ('Yes', 'No','Cancel'), message_text = 'Save current state of Ifeffit before Exit?') res = d.activate() if (res == 'Yes'): u = self.save_state(self.root) if (u == None): res = 'Cancel' if (res != 'Cancel'): self.root.destroy() sys.exit(0) def help(self): self.about.show() if (__name__ == '__main__'): GIFeffit(load=sys.argv[1:]) ifeffit-1.2.11d/wrappers/python/test.py0000644000175000017500000000153510771740460017077 0ustar segresegre#!/usr/bin/python -O import Ifeffit iff = Ifeffit.Ifeffit() iff.ifeffit("show $&build") # note that a put_scalar can now go first! t = iff.put_scalar('tt',2.03) iff.ifeffit('ss = 88.1') t = iff.get_scalar('ss') print " ", type(t), " = ", t iff.ifeffit("$string = \" This is a string\"") t = iff.get_string("$string") print " ", type(t), " = ", t print """ > ifeffit('my.x = indarr(10)') > t = get_array('my.x') """ iff.ifeffit('my.x = indarr(10)') t = iff.get_array('my.x') print " t = ", type(t), t print " TEST Put array " xx = [] for j in range(len(t)): xx.append(t[j] / 23.0) y = iff.put_array("my.y", xx) iff.ifeffit (" show @arrays") iff.ifeffit (" show @scalars") print " TEST Delayed echo-ing with get_echo:" iff.ifeffit(" &screen_echo = 0") iff.ifeffit(" x = 12.34567890") iff.ifeffit(" show x") b = iff.get_echo() print b ifeffit-1.2.11d/wrappers/python/f.sh0000644000175000017500000000134010771740460016321 0ustar segresegregcc -Wl,-framework -Wl,Foundation -bundle -framework Python \ build/temp.darwin-7.3.0-Power_Macintosh-2.3/ifeffit_wrap.o \ -o build/lib.darwin-7.3.0-Power_Macintosh-2.3/_ifeffit_1.so \ -L/Applications/Ifeffit/lib -lifeffit -lpgplot_iff -lpng_iff -lz_iff -laquaterm \ -L/usr/X11R6/lib -lX11 -L/sw/lib -L/usr/lib -lfrtbegin -lg2c -lgcc -lSystem gcc -Wl,-framework -Wl,Foundation -bundle -framework Python \ build/temp.darwin-7.3.0-Power_Macintosh-2.3/ifeffit_wrap.o \ -L/Applications/Ifeffit/lib -L/Applications/Ifeffit/pgplot \ -L/sw/lib -L/usr/lib -L/usr/X11R6/lib -lifeffit -lpgplot_iff \ -lpng_iff -lz_iff -laquaterm -lg2c -lgcc -lX11 -lfrtbegin -lg2c -lgcc -lSystem \ -o build/lib.darwin-7.3.0-Power_Macintosh-2.3/_ifeffit.so ifeffit-1.2.11d/wrappers/python/setup.py0000755000175000017500000000663410771740460017270 0ustar segresegre#!/usr/bin/env python # To use: # python setup.py install # try: import os, sys, string, re except: print "Error: python is broken" sys.exit(1) try: setup_arg = sys.argv[1] except: setup_arg = '' vx = string.split(sys.version) pyvers = vx[0][0:3] if (float(pyvers) < 1.5): print "Error: python is too old" sys.exit(1) try: import distutils from distutils.core import setup, Extension except: print "Error: Python distutils not found." print " please upgrade python or install the distutils module." sys.exit(1) python = sys.executable pkg_site= sys.prefix pkg_site= os.path.join(pkg_site, 'lib') pkg_site= os.path.join(pkg_site, 'python' + pyvers) pkg_site= os.path.join(pkg_site, 'site-packages') # # test Tkinter and Pmw installation try: import Tkinter print "Tkinter is installed. " except ImportError: print " " print " ===== WARNING WARNING WARNING =====" print " Tkinter is NOT installed, or was not found" print " G.I.FEFFIT will not work." print " " #PMW installPMW = 1 try: import Pmw version = Pmw._version if (version == '1.2') : installPMW = 0 print "Pmw %s is installed. " % version except ImportError: pass if ((installPMW == 1) and (setup_arg == 'install')): pmw_dir = os.path.join(pkg_site, 'Pmw') print " Installing Pmw 1.2 to %s " % pmw_dir os.system('gunzip -c Pmw.1.2.tar.gz | tar xvf -') os.system("cp -pr Pmw %s " % pkg_site) os.system("cp Pmw.pth %s" % os.path.join(pkg_site,'Pmw.pth')) import compileall compileall.compile_dir(pmw_dir) # remove any old Ifeffit.py installations if (setup_arg == 'install'): old_files = ('ifeffitc.so', 'Ifeffit.py', 'Ifeffit.pyc', 'GIFeffit.py', 'GIFeffit.pyc', 'TkIfeffit.py', 'TkIfeffit.pyc') for i in old_files: os.system("rm -f %s/%s" % (pkg_site,i)) version = '1.0c' # # include and parse the data from site_install from site_install import * def key_parse(s,k): import string words = string.split(s) p = {} for i in k: p[i] = [] for i in words: for k in p.keys(): lk = len(k) if ((i[0:lk] == k) and (i[lk:] not in p[k])): p[k].append(i[lk:]) return p libdat = key_parse("%s %s %s" % (lib_iff,lib_plt,lib_f77), ['-l','-L']) incdat = key_parse(inc_iff,['-I']) # src = ['ifeffit_wrap.c'] ex_link = '' if os.uname()[0] == 'Darwin': ex_link = ['-framework','Foundation'] for dir in ('/usr/lib','/sw/lib','/Applications/Ifeffit/lib'): if (dir not in libdat['-L']): libdat['-L'].append(dir) setup (name = "Ifeffit", maintainer = "Matt Newville", maintainer_email = "newville@cars.uchicago.edu", description = "Ifeffit Extension to Python", url = "http://cars9.uchicago.edu/ifeffit", extra_path = 'Ifeffit', version = version, include_dirs = incdat['-I'], ext_modules = [Extension('_ifeffit', src, extra_link_args = ex_link, libraries = libdat['-l'], library_dirs = libdat['-L'])], py_modules = ['Ifeffit','TkIfeffit','DataPlotter','GIFeffit'], data_files = [(bin_dir, ['gifeffit'])] ) try: f = open('iff_py_made','w') f.write("") f.close() except: pass ifeffit-1.2.11d/wrappers/python/ifeffit_shell.py0000755000175000017500000000012710771740460020722 0ustar segresegre#!/usr/bin/python import Ifeffit Ifeffit.Ifeffit() i = Ifeffit.iff_shell() i.cmdloop() ifeffit-1.2.11d/wrappers/python/iff_shell.iff0000644000175000017500000000006710771740460020166 0ustar segresegrex = 1 show x my.x = show @arrays help help shell ! ls ifeffit-1.2.11d/wrappers/python/gifeffit.iff0000644000175000017500000000230510771740460020013 0ustar segresegreread_data(file=a.xmu, group=a,label=(energy xmu )) newplot(a.energy, a.xmu, xlabel='energy',ylabel='xmu', title='a') pre_edge(a.energy,a.xmu,e0find,pre1=0.0,pre2=0.0,norm1=0.0,norm2=0.0) newplot(a.energy,a.xmu,xlabel=E (eV),ylabel=mu) set a.preline = pre_offset+pre_slope*a.energy plot(a.energy,a.preline) newplot(a.energy,a.norm,xlabel=E (eV),ylabel=mu) spline(a.energy,a.xmu,rbkg=0.0,kweight=0.0,kmin=0.0,kmax=0.0,find_e0) newplot(a.energy,a.xmu,xlabel="E (eV)",ylabel="\gm(E)") plot(a.energy,a.bkg) set a.chi_kw = a.chi * a.k^kweight_spl newplot(a.k,a.chi_kw,xlabel="k (\A\u-1\d)",ylabel="k\u0\d\gx(k)") spline(a.energy,a.xmu,rbkg=1.,kweight=1.,kmin=0.0,kmax=25.0191527473,find_e0) set a.chi_kw = a.chi * a.k^kweight_spl newplot(a.k,a.chi_kw,xlabel="k (\A\u-1\d)",ylabel="k\u1\d\gx(k)") fftf(real=a.chi,kweight=0.0,kmin=0.0,kmax=0.0,dk=0.0,kwindow="hann") set a.chi_kw = a.chi * a.k^kweight newplot(a.r,a.chir_mag,xlabel="R (\A)",ylabel="|\gx(R)| (\A\u-1\d)") fftf(real=a.chi,kweight=2,kmin=2.,kmax=17.,dk=2,kwindow="hann") set a.chi_kw = a.chi * a.k^kweight newplot(a.r,a.chir_mag,xlabel="R (\A)",ylabel="|\gx(R)| (\A\u-3\d)") newplot(a.r,a.chir_mag,xlabel="R (\A)",ylabel="|\gx(R)| (\A\u-3\d)") plot(a.r,a.chir_re) ifeffit-1.2.11d/wrappers/python/README0000644000175000017500000000271210771740460016424 0ustar segresegreThis is the Python interface to the Ifeffit library. It assumes that you have python 1.5.2 (or later) installed on your system. Installation instructions: Type 'python setup.py install' as root. Detailed Instructions: 1. build and INSTALL the ifeffit library. The ifeffit library must be installed for the python extension to work properly. If you're building this from the standard distribution, a site_install.py file should already be in this directory. If not (or if you are building this after the Ifeffit library has been installed) copy this files from the ifeffit directory: cp /usr/local/share/ifeffit/config/site_install.py . (the exact location may be different, depending on how ifeffit was built and installed). Normally, you should not need to alter site_install.py, but if you run into trouble, you may want to look at this file for hints of how it thinks Ifeffit is installed on your system. 2. type 'python setup.py build' this will build the python extension for your system. 3. type 'python setup.py install' (do this as root) to install. 4. If python has been installed with Tkinter capabilities (see notes on installing python), then gifeffit, the graphical user interface will be installed with the above installation. Since gifeffit requires the additional Pmw widgets, these will also be installed if needed. Matt Newville ifeffit-1.2.11d/wrappers/tcl/0000755000175000017500000000000010771740460015003 5ustar segresegreifeffit-1.2.11d/wrappers/tcl/ifeffit_wrap.c0000644000175000017500000013727110771740460017627 0ustar segresegre/* * FILE : ifeffit_wrap.c * * This file was automatically generated by : * Simplified Wrapper and Interface Generator (SWIG) * Version 1.1 (Build 883) * * Portions Copyright (c) 1995-1998 * The University of Utah and The Regents of the University of California. * Permission is granted to distribute this file in any manner provided * this notice remains intact. * * Do not make changes to this file--changes will be lost! * */ #define SWIGCODE /* Implementation : TCL 8.0 */ #include #include #include #define SWIGTCL #define SWIGTCL8 /************************************************************************** * $Header: /home/newville/Codes/cvsroot/ifeffit/wrappers/tcl/ifeffit_wrap.c,v 1.1.1.1 2001/02/15 01:29:38 newville Exp $ * * swigtcl8.swg * * This file provides type-checked pointer support to Tcl 8.0. **********************************************************************/ #if defined(_WIN32) || defined(__WIN32__) # if defined(_MSC_VER) # define SWIGEXPORT(a) __declspec(dllexport) a # else # if defined(__BORLANDC__) # define SWIGEXPORT(a) a _export # else # define SWIGEXPORT(a) a # endif # endif #else # define SWIGEXPORT(a) a #endif #ifdef __cplusplus extern "C" { #endif #ifdef SWIG_GLOBAL #include #define SWIGSTATICRUNTIME(a) SWIGEXPORT(a) #else #define SWIGSTATICRUNTIME(a) static a #endif #ifdef SWIG_NOINCLUDE extern void SWIG_SetPointerObj(Tcl_Obj *, void *, char *); extern void SWIG_RegisterMapping(char *, char *, void *(*)(void *)); extern char *SWIG_GetPointerObj(Tcl_Interp *, Tcl_Obj *, void **, char *); extern int SWIG_MakePtr(char *, const void *, char *); extern void SWIG_RegisterType(); #else /* These are internal variables. Should be static */ typedef struct SwigPtrType { char *name; int len; void *(*cast)(void *); struct SwigPtrType *next; } SwigPtrType; /* Pointer cache structure */ typedef struct { int stat; /* Status (valid) bit */ SwigPtrType *tp; /* Pointer to type structure */ char name[256]; /* Given datatype name */ char mapped[256]; /* Equivalent name */ } SwigCacheType; static int SwigPtrMax = 64; /* Max entries that can be currently held */ static int SwigPtrN = 0; /* Current number of entries */ static int SwigPtrSort = 0; /* Status flag indicating sort */ static int SwigStart[256]; /* Array containing start locations (for searching) */ static SwigPtrType *SwigPtrTable = 0; /* Table containing pointer equivalences */ /* Cached values */ #define SWIG_CACHESIZE 8 #define SWIG_CACHEMASK 0x7 static SwigCacheType SwigCache[SWIG_CACHESIZE]; static int SwigCacheIndex = 0; static int SwigLastCache = 0; /* Sort comparison function */ static int swigsort(const void *data1, const void *data2) { SwigPtrType *d1 = (SwigPtrType *) data1; SwigPtrType *d2 = (SwigPtrType *) data2; return strcmp(d1->name,d2->name); } /* Binary Search function */ static int swigcmp(const void *key, const void *data) { char *k = (char *) key; SwigPtrType *d = (SwigPtrType *) data; return strncmp(k,d->name,d->len); } /*--------------------------------------------------------------------- * SWIG_RegisterMapping(char *origtype, char *newtype, void *(*cast)(void *)) * * Register a new type-mapping with the type-checking system. *---------------------------------------------------------------------*/ SWIGSTATICRUNTIME(void) SWIG_RegisterMapping(char *origtype, char *newtype, void *(*cast)(void *)) { int i; SwigPtrType *t = 0, *t1; if (!SwigPtrTable) { SwigPtrTable = (SwigPtrType *) malloc(SwigPtrMax*sizeof(SwigPtrType)); SwigPtrN = 0; } if (SwigPtrN >= SwigPtrMax) { SwigPtrMax = 2*SwigPtrMax; SwigPtrTable = (SwigPtrType *) realloc(SwigPtrTable,SwigPtrMax*sizeof(SwigPtrType)); } for (i = 0; i < SwigPtrN; i++) if (strcmp(SwigPtrTable[i].name,origtype) == 0) { t = &SwigPtrTable[i]; break; } if (!t) { t = &SwigPtrTable[SwigPtrN]; t->name = origtype; t->len = strlen(origtype); t->cast = 0; t->next = 0; SwigPtrN++; } while (t->next) { if (strcmp(t->name,newtype) == 0) { if (cast) t->cast = cast; return; } t = t->next; } t1 = (SwigPtrType *) malloc(sizeof(SwigPtrType)); t1->name = newtype; t1->len = strlen(newtype); t1->cast = cast; t1->next = 0; t->next = t1; SwigPtrSort = 0; } /*--------------------------------------------------------------------- * void SWIG_SetPointerObj(Tcl_Obj *objPtr, void *ptr, char *type) * * Sets a Tcl object to a pointer value. * ptr = void pointer value * type = string representing type * *---------------------------------------------------------------------*/ SWIGSTATICRUNTIME(void) SWIG_SetPointerObj(Tcl_Obj *objPtr, void *_ptr, char *type) { static char _hex[16] = {'0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f'}; unsigned long _p, _s; char _result[20], *_r; /* Note : a 64-bit hex number = 16 digits */ char _temp[20], *_c; _r = _result; _p = (unsigned long) _ptr; if (_p > 0) { while (_p > 0) { _s = _p & 0xf; *(_r++) = _hex[_s]; _p = _p >> 4; } *_r = '_'; _c = &_temp[0]; while (_r >= _result) *(_c++) = *(_r--); *_c = 0; Tcl_SetStringObj(objPtr,_temp,-1); } else { Tcl_SetStringObj(objPtr,"NULL",-1); } if (_ptr) Tcl_AppendToObj(objPtr,type,-1); } /* This is for backwards compatibility */ SWIGSTATICRUNTIME(int) SWIG_MakePtr(char *_c, const void *_ptr, char *type) { static char _hex[16] = {'0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f'}; unsigned long _p, _s; char _result[20], *_r; int l = 0; _r = _result; _p = (unsigned long) _ptr; if (_p > 0) { while (_p > 0) { _s = _p & 0xf; *(_r++) = _hex[_s]; _p = _p >> 4; l++; } *_r = '_'; l++; while (_r >= _result) *(_c++) = *(_r--); _r = type; while (*_r) *(_c++) = *(_r++); *(_c) = 0; } else { strcpy (_c, "NULL"); } return l; } /*--------------------------------------------------------------------- * char *SWIG_GetPointerObj(Tcl_Interp *interp, Tcl_Obj *objPtr, void **ptr, char *type) * * Attempts to extract a pointer value from our pointer type. * Upon failure, returns a string corresponding to the actual datatype. * Upon success, returns NULL and sets the pointer value in ptr. *---------------------------------------------------------------------*/ SWIGSTATICRUNTIME(char *) SWIG_GetPointerObj(Tcl_Interp *interp, Tcl_Obj *objPtr, void **ptr, char *_t) { unsigned long _p; char temp_type[256]; char *name; int i, len; SwigPtrType *sp,*tp; SwigCacheType *cache; int start, end; char *_c; _p = 0; /* Extract the pointer value as a string */ _c = Tcl_GetStringFromObj(objPtr, &i); /* Pointer values must start with leading underscore */ if (*_c == '_') { _c++; /* Extract hex value from pointer */ while (*_c) { if ((*_c >= '0') && (*_c <= '9')) _p = (_p << 4) + (*_c - '0'); else if ((*_c >= 'a') && (*_c <= 'f')) _p = (_p << 4) + ((*_c - 'a') + 10); else break; _c++; } if (_t) { if (strcmp(_t,_c)) { if (!SwigPtrSort) { qsort((void *) SwigPtrTable, SwigPtrN, sizeof(SwigPtrType), swigsort); for (i = 0; i < 256; i++) { SwigStart[i] = SwigPtrN; } for (i = SwigPtrN-1; i >= 0; i--) { SwigStart[(int) (SwigPtrTable[i].name[1])] = i; } for (i = 255; i >= 1; i--) { if (SwigStart[i-1] > SwigStart[i]) SwigStart[i-1] = SwigStart[i]; } SwigPtrSort = 1; for (i = 0; i < SWIG_CACHESIZE; i++) SwigCache[i].stat = 0; } /* First check cache for matches. Uses last cache value as starting point */ cache = &SwigCache[SwigLastCache]; for (i = 0; i < SWIG_CACHESIZE; i++) { if (cache->stat) { if (strcmp(_t,cache->name) == 0) { if (strcmp(_c,cache->mapped) == 0) { cache->stat++; *ptr = (void *) _p; if (cache->tp->cast) *ptr = (*(cache->tp->cast))(*ptr); return (char *) 0; } } } SwigLastCache = (SwigLastCache+1) & SWIG_CACHEMASK; if (!SwigLastCache) cache = SwigCache; else cache++; } /* We have a type mismatch. Will have to look through our type mapping table to figure out whether or not we can accept this datatype */ start = SwigStart[(int) _t[1]]; end = SwigStart[(int) _t[1]+1]; sp = &SwigPtrTable[start]; while (start < end) { if (swigcmp(_t,sp) == 0) break; sp++; start++; } if (start > end) sp = 0; /* Try to find a match for this */ while (start <= end) { if (swigcmp(_t,sp) == 0) { name = sp->name; len = sp->len; tp = sp->next; /* Try to find entry for our given datatype */ while(tp) { if (tp->len >= 255) { return _c; } strcpy(temp_type,tp->name); strncat(temp_type,_t+len,255-tp->len); if (strcmp(_c,temp_type) == 0) { strcpy(SwigCache[SwigCacheIndex].mapped,_c); strcpy(SwigCache[SwigCacheIndex].name,_t); SwigCache[SwigCacheIndex].stat = 1; SwigCache[SwigCacheIndex].tp = tp; SwigCacheIndex = SwigCacheIndex & SWIG_CACHEMASK; /* Get pointer value */ *ptr = (void *) _p; if (tp->cast) *ptr = (*(tp->cast))(*ptr); return (char *) 0; } tp = tp->next; } } sp++; start++; } /* Didn't find any sort of match for this data. Get the pointer value and return the received type */ *ptr = (void *) _p; return _c; } else { /* Found a match on the first try. Return pointer value */ *ptr = (void *) _p; return (char *) 0; } } else { /* No type specified. Good luck */ *ptr = (void *) _p; return (char *) 0; } } else { if (strcmp (_c, "NULL") == 0) { *ptr = (void *) 0; return (char *) 0; } *ptr = (void *) 0; return _c; } } /*--------------------------------------------------------------------- * void SWIG_RegisterType() * * Registers our new datatype with an interpreter. *---------------------------------------------------------------------*/ SWIGSTATICRUNTIME(void) SWIG_RegisterType() { /* Does nothing at the moment */ } #endif #ifdef __cplusplus } #endif #define SWIG_init Ifeffit_Init #define SWIG_name "ifeffit" #define SWIG_prefix "" #define SWIG_namespace "" #ifdef __cplusplus extern "C" { #endif #ifdef MAC_TCL #pragma export on #endif SWIGEXPORT(int) Ifeffit_Init(Tcl_Interp *); #ifdef MAC_TCL #pragma export off #endif #ifdef __cplusplus } #endif #include "ifeffit.h" static char *_SWIG_GetPtr(Tcl_Interp *interp, char *s, void **ptr, char *type) { Tcl_Obj *obj; char *c; obj = Tcl_NewStringObj(s, strlen(s)); c = SWIG_GetPointerObj(interp, obj, ptr, type); if (c) { c = strstr(s,c); } Tcl_DecrRefCount(obj); return c; } #define SWIG_GetPtr(a,b,c) _SWIG_GetPtr(interp, a,b,c) #include /*------------------------------------------------------------------ ptrcast(value,type) Constructs a new pointer value. Value may either be a string or an integer. Type is a string corresponding to either the C datatype or mangled datatype. ptrcast(0,"Vector *") or ptrcast(0,"Vector_p") ------------------------------------------------------------------ */ static int ptrcast(Tcl_Interp *interp, char *_ptrvalue, char *type) { char *r,*s; void *ptr; char *typestr,*c; int pv; int error = 0; /* Produce a "mangled" version of the type string. */ typestr = (char *) malloc(strlen(type)+2); /* Go through and munge the typestring */ r = typestr; *(r++) = '_'; c = type; while (*c) { if (!isspace(*c)) { if ((*c == '*') || (*c == '&')) { *(r++) = 'p'; } else *(r++) = *c; } else { *(r++) = '_'; } c++; } *(r++) = 0; /* Check to see what kind of object _PTRVALUE is */ if (Tcl_GetInt(interp,_ptrvalue,&pv) == TCL_OK) { ptr = (void *) pv; /* Received a numerical value. Make a pointer out of it */ r = (char *) malloc(strlen(typestr)+22); if (ptr) { SWIG_MakePtr(r, ptr, typestr); } else { sprintf(r,"_0%s",typestr); } Tcl_SetResult(interp,r,TCL_VOLATILE); free(r); } else { /* Have a string. Try to get the real pointer value */ s = _ptrvalue; r = (char *) malloc(strlen(type)+22); /* Now extract the pointer value */ if (!SWIG_GetPtr(s,&ptr,0)) { if (ptr) { SWIG_MakePtr(r,ptr,typestr); } else { sprintf(r,"_0%s",typestr); } Tcl_SetResult(interp,r,TCL_VOLATILE); } else { error = 1; } free(r); } free(typestr); if (error) { Tcl_SetResult(interp,"Type error in ptrcast. Argument is not a valid pointer value.",TCL_VOLATILE); return TCL_ERROR; } return TCL_OK; } /*------------------------------------------------------------------ ptrvalue(ptr,type = 0) Attempts to dereference a pointer value. If type is given, it will try to use that type. Otherwise, this function will attempt to "guess" the proper datatype by checking against all of the builtin C datatypes. ------------------------------------------------------------------ */ static int ptrvalue(Tcl_Interp *interp, char *_ptrvalue, int index, char *type) { void *ptr; char *s; int error = 0; if (type) { if (strlen(type) == 0) type = 0; } s = _ptrvalue; if (SWIG_GetPtr(s,&ptr,0)) { Tcl_SetResult(interp,"Type error in ptrvalue. Argument is not a valid pointer value.", TCL_STATIC); return TCL_ERROR; } /* If no datatype was passed, try a few common datatypes first */ if (!type) { /* No datatype was passed. Type to figure out if it's a common one */ if (!SWIG_GetPtr(s,&ptr,"_int_p")) { type = "int"; } else if (!SWIG_GetPtr(s,&ptr,"_double_p")) { type = "double"; } else if (!SWIG_GetPtr(s,&ptr,"_short_p")) { type = "short"; } else if (!SWIG_GetPtr(s,&ptr,"_long_p")) { type = "long"; } else if (!SWIG_GetPtr(s,&ptr,"_float_p")) { type = "float"; } else if (!SWIG_GetPtr(s,&ptr,"_char_p")) { type = "char"; } else if (!SWIG_GetPtr(s,&ptr,"_char_pp")) { type = "char *"; } else { type = "unknown"; } } if (!ptr) { Tcl_SetResult(interp,"Unable to dereference NULL pointer.",TCL_STATIC); return TCL_ERROR; } /* Now we have a datatype. Try to figure out what to do about it */ if (strcmp(type,"int") == 0) { sprintf(interp->result,"%ld",(long) *(((int *) ptr) + index)); } else if (strcmp(type,"double") == 0) { Tcl_PrintDouble(interp,(double) *(((double *) ptr)+index), interp->result); } else if (strcmp(type,"short") == 0) { sprintf(interp->result,"%ld",(long) *(((short *) ptr) + index)); } else if (strcmp(type,"long") == 0) { sprintf(interp->result,"%ld",(long) *(((long *) ptr) + index)); } else if (strcmp(type,"float") == 0) { Tcl_PrintDouble(interp,(double) *(((float *) ptr)+index), interp->result); } else if (strcmp(type,"char") == 0) { Tcl_SetResult(interp,((char *) ptr) + index, TCL_VOLATILE); } else if (strcmp(type,"char *") == 0) { char *c = *(((char **) ptr)+index); if (c) Tcl_SetResult(interp,(char *) c, TCL_VOLATILE); else Tcl_SetResult(interp,"NULL", TCL_VOLATILE); } else { Tcl_SetResult(interp,"Unable to dereference unsupported datatype.",TCL_STATIC); return TCL_ERROR; } return TCL_OK; } /*------------------------------------------------------------------ ptrcreate(type,value = 0,numelements = 1) Attempts to create a new object of given type. Type must be a basic C datatype. Will not create complex objects. ------------------------------------------------------------------ */ static int ptrcreate(Tcl_Interp *interp, char *type, char *_ptrvalue, int numelements) { void *ptr; int sz; char *cast; char temp[40]; /* Check the type string against a variety of possibilities */ if (strcmp(type,"int") == 0) { sz = sizeof(int)*numelements; cast = "_int_p"; } else if (strcmp(type,"short") == 0) { sz = sizeof(short)*numelements; cast = "_short_p"; } else if (strcmp(type,"long") == 0) { sz = sizeof(long)*numelements; cast = "_long_p"; } else if (strcmp(type,"double") == 0) { sz = sizeof(double)*numelements; cast = "_double_p"; } else if (strcmp(type,"float") == 0) { sz = sizeof(float)*numelements; cast = "_float_p"; } else if (strcmp(type,"char") == 0) { sz = sizeof(char)*numelements; cast = "_char_p"; } else if (strcmp(type,"char *") == 0) { sz = sizeof(char *)*(numelements+1); cast = "_char_pp"; } else if (strcmp(type,"void") == 0) { sz = numelements; } else { Tcl_SetResult(interp,"Unable to create unknown datatype.",TCL_STATIC); return TCL_ERROR; } /* Create the new object */ ptr = (void *) malloc(sz); if (!ptr) { Tcl_SetResult(interp,"Out of memory in ptrcreate.",TCL_STATIC); return TCL_ERROR; } /* Now try to set its default value */ if (_ptrvalue) { if (strcmp(type,"int") == 0) { int *ip,i,ivalue; Tcl_GetInt(interp,_ptrvalue,&ivalue); ip = (int *) ptr; for (i = 0; i < numelements; i++) ip[i] = ivalue; } else if (strcmp(type,"short") == 0) { short *ip; int i, ivalue; Tcl_GetInt(interp,_ptrvalue,&ivalue); ip = (short *) ptr; for (i = 0; i < numelements; i++) ip[i] = (short) ivalue; } else if (strcmp(type,"long") == 0) { long *ip; int i, ivalue; Tcl_GetInt(interp,_ptrvalue,&ivalue); ip = (long *) ptr; for (i = 0; i < numelements; i++) ip[i] = (long) ivalue; } else if (strcmp(type,"double") == 0) { double *ip,ivalue; int i; Tcl_GetDouble(interp,_ptrvalue,&ivalue); ip = (double *) ptr; for (i = 0; i < numelements; i++) ip[i] = ivalue; } else if (strcmp(type,"float") == 0) { float *ip; double ivalue; int i; Tcl_GetDouble(interp,_ptrvalue,&ivalue); ip = (float *) ptr; for (i = 0; i < numelements; i++) ip[i] = (double) ivalue; } else if (strcmp(type,"char") == 0) { char *ip,*ivalue; ivalue = (char *) _ptrvalue; ip = (char *) ptr; strncpy(ip,ivalue,numelements-1); } else if (strcmp(type,"char *") == 0) { char **ip, *ivalue; int i; ivalue = (char *) _ptrvalue; ip = (char **) ptr; for (i = 0; i < numelements; i++) { if (ivalue) { ip[i] = (char *) malloc(strlen(ivalue)+1); strcpy(ip[i],ivalue); } else { ip[i] = 0; } } ip[numelements] = 0; } } /* Create the pointer value */ SWIG_MakePtr(temp,ptr,cast); Tcl_SetResult(interp,temp,TCL_VOLATILE); return TCL_OK; } /*------------------------------------------------------------------ ptrset(ptr,value,index = 0,type = 0) Attempts to set the value of a pointer variable. If type is given, we will use that type. Otherwise, we'll guess the datatype. ------------------------------------------------------------------ */ static int ptrset(Tcl_Interp *interp, char *_PTRVALUE, char *_VALUE, int index, char *type) { void *ptr; char *s; s = _PTRVALUE; if (SWIG_GetPtr(s,&ptr,0)) { Tcl_SetResult(interp,"Type error in ptrset. Argument is not a valid pointer value.", TCL_STATIC); return TCL_ERROR; } /* If no datatype was passed, try a few common datatypes first */ if (!type) { /* No datatype was passed. Type to figure out if it's a common one */ if (!SWIG_GetPtr(s,&ptr,"_int_p")) { type = "int"; } else if (!SWIG_GetPtr(s,&ptr,"_double_p")) { type = "double"; } else if (!SWIG_GetPtr(s,&ptr,"_short_p")) { type = "short"; } else if (!SWIG_GetPtr(s,&ptr,"_long_p")) { type = "long"; } else if (!SWIG_GetPtr(s,&ptr,"_float_p")) { type = "float"; } else if (!SWIG_GetPtr(s,&ptr,"_char_p")) { type = "char"; } else if (!SWIG_GetPtr(s,&ptr,"_char_pp")) { type = "char *"; } else { type = "unknown"; } } if (!ptr) { Tcl_SetResult(interp,"Unable to set NULL pointer.",TCL_STATIC); return TCL_ERROR; } /* Now we have a datatype. Try to figure out what to do about it */ if (strcmp(type,"int") == 0) { int ivalue; Tcl_GetInt(interp,_VALUE, &ivalue); *(((int *) ptr)+index) = ivalue; } else if (strcmp(type,"double") == 0) { double ivalue; Tcl_GetDouble(interp,_VALUE, &ivalue); *(((double *) ptr)+index) = (double) ivalue; } else if (strcmp(type,"short") == 0) { int ivalue; Tcl_GetInt(interp,_VALUE, &ivalue); *(((short *) ptr)+index) = (short) ivalue; } else if (strcmp(type,"long") == 0) { int ivalue; Tcl_GetInt(interp,_VALUE, &ivalue); *(((long *) ptr)+index) = (long) ivalue; } else if (strcmp(type,"float") == 0) { double ivalue; Tcl_GetDouble(interp,_VALUE, &ivalue); *(((float *) ptr)+index) = (float) ivalue; } else if (strcmp(type,"char") == 0) { char *c = _VALUE; strcpy(((char *) ptr)+index, c); } else if (strcmp(type,"char *") == 0) { char *c = _VALUE; char **ca = (char **) ptr; if (ca[index]) free(ca[index]); if (strcmp(c,"NULL") == 0) { ca[index] = 0; } else { ca[index] = (char *) malloc(strlen(c)+1); strcpy(ca[index],c); } } else { Tcl_SetResult(interp,"Unable to set unsupported datatype.",TCL_STATIC); return TCL_ERROR; } return TCL_OK; } /*------------------------------------------------------------------ ptradd(ptr,offset) Adds a value to an existing pointer value. Will do a type-dependent add for basic datatypes. For other datatypes, will do a byte-add. ------------------------------------------------------------------ */ static int ptradd(Tcl_Interp *interp, char *_PTRVALUE, int offset) { char *r,*s; void *ptr,*junk; char *type; /* Check to see what kind of object _PTRVALUE is */ s = _PTRVALUE; /* Try to handle a few common datatypes first */ if (!SWIG_GetPtr(s,&ptr,"_int_p")) { ptr = (void *) (((int *) ptr) + offset); } else if (!SWIG_GetPtr(s,&ptr,"_double_p")) { ptr = (void *) (((double *) ptr) + offset); } else if (!SWIG_GetPtr(s,&ptr,"_short_p")) { ptr = (void *) (((short *) ptr) + offset); } else if (!SWIG_GetPtr(s,&ptr,"_long_p")) { ptr = (void *) (((long *) ptr) + offset); } else if (!SWIG_GetPtr(s,&ptr,"_float_p")) { ptr = (void *) (((float *) ptr) + offset); } else if (!SWIG_GetPtr(s,&ptr,"_char_p")) { ptr = (void *) (((char *) ptr) + offset); } else if (!SWIG_GetPtr(s,&ptr,0)) { ptr = (void *) (((char *) ptr) + offset); } else { Tcl_SetResult(interp,"Type error in ptradd. Argument is not a valid pointer value.",TCL_STATIC); return TCL_ERROR; } type = SWIG_GetPtr(s,&junk,"INVALID POINTER"); r = (char *) malloc(strlen(type)+20); if (ptr) { SWIG_MakePtr(r,ptr,type); } else { sprintf(r,"_0%s",type); } Tcl_SetResult(interp,r,TCL_VOLATILE); free(r); return TCL_OK; } /*------------------------------------------------------------------ ptrmap(type1,type2) Allows a mapping between type1 and type2. (Like a typedef) ------------------------------------------------------------------ */ static void ptrmap(char *type1, char *type2) { char *typestr1,*typestr2,*c,*r; /* Produce a "mangled" version of the type string. */ typestr1 = (char *) malloc(strlen(type1)+2); /* Go through and munge the typestring */ r = typestr1; *(r++) = '_'; c = type1; while (*c) { if (!isspace(*c)) { if ((*c == '*') || (*c == '&')) { *(r++) = 'p'; } else *(r++) = *c; } else { *(r++) = '_'; } c++; } *(r++) = 0; typestr2 = (char *) malloc(strlen(type2)+2); /* Go through and munge the typestring */ r = typestr2; *(r++) = '_'; c = type2; while (*c) { if (!isspace(*c)) { if ((*c == '*') || (*c == '&')) { *(r++) = 'p'; } else *(r++) = *c; } else { *(r++) = '_'; } c++; } *(r++) = 0; SWIG_RegisterMapping(typestr1,typestr2,0); SWIG_RegisterMapping(typestr2,typestr1,0); } /*------------------------------------------------------------------ ptrfree(ptr) Destroys a pointer value ------------------------------------------------------------------ */ int ptrfree(Tcl_Interp *interp, char *_PTRVALUE) { void *ptr, *junk; char *s; s = _PTRVALUE; if (SWIG_GetPtr(s,&ptr,0)) { Tcl_SetResult(interp,"Type error in ptrfree. Argument is not a valid pointer value.",TCL_STATIC); return TCL_ERROR; } /* Check to see if this pointer is a char ** */ if (!SWIG_GetPtr(s,&junk,"_char_pp")) { char **c = (char **) ptr; if (c) { int i = 0; while (c[i]) { free(c[i]); i++; } } } if (ptr) free((char *) ptr); return TCL_OK; } static int _wrap_ptrcast(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; Tcl_Interp * _arg0; char * _arg1; char * _arg2; Tcl_Obj * tcl_result; int templength; clientData = clientData; objv = objv; { _arg0 = interp; } tcl_result = Tcl_GetObjResult(interp); if ((objc < 3) || (objc > 3)) { Tcl_SetStringObj(tcl_result,"Wrong # args. ptrcast ptr type ",-1); return TCL_ERROR; } if ((_arg1 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; if ((_arg2 = Tcl_GetStringFromObj(objv[2], &templength)) == NULL) return TCL_ERROR; _result = (int )ptrcast(_arg0,_arg1,_arg2); tcl_result = Tcl_GetObjResult(interp); { return _result; } return TCL_OK; } static int _wrap_ptrvalue(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; Tcl_Interp * _arg0; char * _arg1; int _arg2 = (int ) 0; char * _arg3 = (char *) 0; Tcl_Obj * tcl_result; int templength; int tempint; clientData = clientData; objv = objv; { _arg0 = interp; } tcl_result = Tcl_GetObjResult(interp); if ((objc < 2) || (objc > 4)) { Tcl_SetStringObj(tcl_result,"Wrong # args. ptrvalue ptr ?index? ?type? ",-1); return TCL_ERROR; } if ((_arg1 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; if (objc >2) { if (Tcl_GetIntFromObj(interp,objv[2],&tempint) == TCL_ERROR) return TCL_ERROR; _arg2 = (int ) tempint; } if (objc >3) { if ((_arg3 = Tcl_GetStringFromObj(objv[3], &templength)) == NULL) return TCL_ERROR; } _result = (int )ptrvalue(_arg0,_arg1,_arg2,_arg3); tcl_result = Tcl_GetObjResult(interp); { return _result; } return TCL_OK; } static int _wrap_ptrset(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; Tcl_Interp * _arg0; char * _arg1; char * _arg2; int _arg3 = (int ) 0; char * _arg4 = (char *) 0; Tcl_Obj * tcl_result; int templength; int tempint; clientData = clientData; objv = objv; { _arg0 = interp; } tcl_result = Tcl_GetObjResult(interp); if ((objc < 3) || (objc > 5)) { Tcl_SetStringObj(tcl_result,"Wrong # args. ptrset ptr value ?index? ?type? ",-1); return TCL_ERROR; } if ((_arg1 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; if ((_arg2 = Tcl_GetStringFromObj(objv[2], &templength)) == NULL) return TCL_ERROR; if (objc >3) { if (Tcl_GetIntFromObj(interp,objv[3],&tempint) == TCL_ERROR) return TCL_ERROR; _arg3 = (int ) tempint; } if (objc >4) { if ((_arg4 = Tcl_GetStringFromObj(objv[4], &templength)) == NULL) return TCL_ERROR; } _result = (int )ptrset(_arg0,_arg1,_arg2,_arg3,_arg4); tcl_result = Tcl_GetObjResult(interp); { return _result; } return TCL_OK; } static int _wrap_ptrcreate(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; Tcl_Interp * _arg0; char * _arg1; char * _arg2 = (char *) 0; int _arg3 = (int ) 1; Tcl_Obj * tcl_result; int templength; int tempint; clientData = clientData; objv = objv; { _arg0 = interp; } tcl_result = Tcl_GetObjResult(interp); if ((objc < 2) || (objc > 4)) { Tcl_SetStringObj(tcl_result,"Wrong # args. ptrcreate type ?value? ?nitems? ",-1); return TCL_ERROR; } if ((_arg1 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; if (objc >2) { if ((_arg2 = Tcl_GetStringFromObj(objv[2], &templength)) == NULL) return TCL_ERROR; } if (objc >3) { if (Tcl_GetIntFromObj(interp,objv[3],&tempint) == TCL_ERROR) return TCL_ERROR; _arg3 = (int ) tempint; } _result = (int )ptrcreate(_arg0,_arg1,_arg2,_arg3); tcl_result = Tcl_GetObjResult(interp); { return _result; } return TCL_OK; } static int _wrap_ptrfree(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; Tcl_Interp * _arg0; char * _arg1; Tcl_Obj * tcl_result; int templength; clientData = clientData; objv = objv; { _arg0 = interp; } tcl_result = Tcl_GetObjResult(interp); if ((objc < 2) || (objc > 2)) { Tcl_SetStringObj(tcl_result,"Wrong # args. ptrfree ptr ",-1); return TCL_ERROR; } if ((_arg1 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; _result = (int )ptrfree(_arg0,_arg1); tcl_result = Tcl_GetObjResult(interp); { return _result; } return TCL_OK; } static int _wrap_ptradd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; Tcl_Interp * _arg0; char * _arg1; int _arg2; Tcl_Obj * tcl_result; int templength; int tempint; clientData = clientData; objv = objv; { _arg0 = interp; } tcl_result = Tcl_GetObjResult(interp); if ((objc < 3) || (objc > 3)) { Tcl_SetStringObj(tcl_result,"Wrong # args. ptradd ptr offset ",-1); return TCL_ERROR; } if ((_arg1 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; if (Tcl_GetIntFromObj(interp,objv[2],&tempint) == TCL_ERROR) return TCL_ERROR; _arg2 = (int ) tempint; _result = (int )ptradd(_arg0,_arg1,_arg2); tcl_result = Tcl_GetObjResult(interp); { return _result; } return TCL_OK; } static int _wrap_ptrmap(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { char * _arg0; char * _arg1; Tcl_Obj * tcl_result; int templength; clientData = clientData; objv = objv; tcl_result = Tcl_GetObjResult(interp); if ((objc < 3) || (objc > 3)) { Tcl_SetStringObj(tcl_result,"Wrong # args. ptrmap type1 type2 ",-1); return TCL_ERROR; } if ((_arg0 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; if ((_arg1 = Tcl_GetStringFromObj(objv[2], &templength)) == NULL) return TCL_ERROR; ptrmap(_arg0,_arg1); tcl_result = Tcl_GetObjResult(interp); return TCL_OK; } static int _wrap_iff_exec(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; char * _arg0; Tcl_Obj * tcl_result; int templength; clientData = clientData; objv = objv; tcl_result = Tcl_GetObjResult(interp); if ((objc < 2) || (objc > 2)) { Tcl_SetStringObj(tcl_result,"Wrong # args. iff_exec { char * } ",-1); return TCL_ERROR; } if ((_arg0 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; _result = (int )iff_exec(_arg0); tcl_result = Tcl_GetObjResult(interp); Tcl_SetIntObj(tcl_result,(long) _result); return TCL_OK; } static int _wrap_iff_get_string(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; char * _arg0; char * _arg1; Tcl_Obj * tcl_result; int templength; clientData = clientData; objv = objv; tcl_result = Tcl_GetObjResult(interp); if ((objc < 3) || (objc > 3)) { Tcl_SetStringObj(tcl_result,"Wrong # args. iff_get_string { char * } { char * } ",-1); return TCL_ERROR; } if ((_arg0 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; if ((_arg1 = Tcl_GetStringFromObj(objv[2], &templength)) == NULL) return TCL_ERROR; _result = (int )iff_get_string(_arg0,_arg1); tcl_result = Tcl_GetObjResult(interp); Tcl_SetIntObj(tcl_result,(long) _result); return TCL_OK; } static int _wrap_iff_put_string(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; char * _arg0; char * _arg1; Tcl_Obj * tcl_result; int templength; clientData = clientData; objv = objv; tcl_result = Tcl_GetObjResult(interp); if ((objc < 3) || (objc > 3)) { Tcl_SetStringObj(tcl_result,"Wrong # args. iff_put_string { char * } { char * } ",-1); return TCL_ERROR; } if ((_arg0 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; if ((_arg1 = Tcl_GetStringFromObj(objv[2], &templength)) == NULL) return TCL_ERROR; _result = (int )iff_put_string(_arg0,_arg1); tcl_result = Tcl_GetObjResult(interp); Tcl_SetIntObj(tcl_result,(long) _result); return TCL_OK; } static int _wrap_iff_get_scalar(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; char * _arg0; double * _arg1; Tcl_Obj * tcl_result; int templength; char * rettype; clientData = clientData; objv = objv; tcl_result = Tcl_GetObjResult(interp); if ((objc < 3) || (objc > 3)) { Tcl_SetStringObj(tcl_result,"Wrong # args. iff_get_scalar { char * } { double * } ",-1); return TCL_ERROR; } if ((_arg0 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; if ((rettype = SWIG_GetPointerObj(interp,objv[2],(void **) &_arg1,"_double_p"))) { Tcl_SetStringObj(tcl_result, "Type error in argument 2 of iff_get_scalar. Expected _double_p, received ", -1); Tcl_AppendToObj(tcl_result, rettype, -1); return TCL_ERROR; } _result = (int )iff_get_scalar(_arg0,_arg1); tcl_result = Tcl_GetObjResult(interp); Tcl_SetIntObj(tcl_result,(long) _result); return TCL_OK; } static int _wrap_iff_put_scalar(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; char * _arg0; double * _arg1; Tcl_Obj * tcl_result; int templength; char * rettype; clientData = clientData; objv = objv; tcl_result = Tcl_GetObjResult(interp); if ((objc < 3) || (objc > 3)) { Tcl_SetStringObj(tcl_result,"Wrong # args. iff_put_scalar { char * } { double * } ",-1); return TCL_ERROR; } if ((_arg0 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; if ((rettype = SWIG_GetPointerObj(interp,objv[2],(void **) &_arg1,"_double_p"))) { Tcl_SetStringObj(tcl_result, "Type error in argument 2 of iff_put_scalar. Expected _double_p, received ", -1); Tcl_AppendToObj(tcl_result, rettype, -1); return TCL_ERROR; } _result = (int )iff_put_scalar(_arg0,_arg1); tcl_result = Tcl_GetObjResult(interp); Tcl_SetIntObj(tcl_result,(long) _result); return TCL_OK; } static int _wrap_iff_get_array(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; char * _arg0; double * _arg1; Tcl_Obj * tcl_result; int templength; char * rettype; clientData = clientData; objv = objv; tcl_result = Tcl_GetObjResult(interp); if ((objc < 3) || (objc > 3)) { Tcl_SetStringObj(tcl_result,"Wrong # args. iff_get_array { char * } { double * } ",-1); return TCL_ERROR; } if ((_arg0 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; if ((rettype = SWIG_GetPointerObj(interp,objv[2],(void **) &_arg1,"_double_p"))) { Tcl_SetStringObj(tcl_result, "Type error in argument 2 of iff_get_array. Expected _double_p, received ", -1); Tcl_AppendToObj(tcl_result, rettype, -1); return TCL_ERROR; } _result = (int )iff_get_array(_arg0,_arg1); tcl_result = Tcl_GetObjResult(interp); Tcl_SetIntObj(tcl_result,(long) _result); return TCL_OK; } static int _wrap_iff_put_array(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; char * _arg0; int * _arg1; double * _arg2; Tcl_Obj * tcl_result; int templength; char * rettype; clientData = clientData; objv = objv; tcl_result = Tcl_GetObjResult(interp); if ((objc < 4) || (objc > 4)) { Tcl_SetStringObj(tcl_result,"Wrong # args. iff_put_array { char * } { int * } { double * } ",-1); return TCL_ERROR; } if ((_arg0 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; if ((rettype = SWIG_GetPointerObj(interp,objv[2],(void **) &_arg1,"_int_p"))) { Tcl_SetStringObj(tcl_result, "Type error in argument 2 of iff_put_array. Expected _int_p, received ", -1); Tcl_AppendToObj(tcl_result, rettype, -1); return TCL_ERROR; } if ((rettype = SWIG_GetPointerObj(interp,objv[3],(void **) &_arg2,"_double_p"))) { Tcl_SetStringObj(tcl_result, "Type error in argument 3 of iff_put_array. Expected _double_p, received ", -1); Tcl_AppendToObj(tcl_result, rettype, -1); return TCL_ERROR; } _result = (int )iff_put_array(_arg0,_arg1,_arg2); tcl_result = Tcl_GetObjResult(interp); Tcl_SetIntObj(tcl_result,(long) _result); return TCL_OK; } static int _wrap_iff_get_echo(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; char * _arg0; Tcl_Obj * tcl_result; int templength; clientData = clientData; objv = objv; tcl_result = Tcl_GetObjResult(interp); if ((objc < 2) || (objc > 2)) { Tcl_SetStringObj(tcl_result,"Wrong # args. iff_get_echo { char * } ",-1); return TCL_ERROR; } if ((_arg0 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; _result = (int )iff_get_echo(_arg0); tcl_result = Tcl_GetObjResult(interp); Tcl_SetIntObj(tcl_result,(long) _result); return TCL_OK; } static int _wrap_ifeffit_(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; char * _arg0; int _arg1; Tcl_Obj * tcl_result; int templength; int tempint; clientData = clientData; objv = objv; tcl_result = Tcl_GetObjResult(interp); if ((objc < 3) || (objc > 3)) { Tcl_SetStringObj(tcl_result,"Wrong # args. ifeffit_ { char * } { int } ",-1); return TCL_ERROR; } if ((_arg0 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; if (Tcl_GetIntFromObj(interp,objv[2],&tempint) == TCL_ERROR) return TCL_ERROR; _arg1 = (int ) tempint; _result = (int )ifeffit_(_arg0,_arg1); tcl_result = Tcl_GetObjResult(interp); Tcl_SetIntObj(tcl_result,(long) _result); return TCL_OK; } static int _wrap_iffgetstr_(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; char * _arg0; char * _arg1; int _arg2; int _arg3; Tcl_Obj * tcl_result; int templength; int tempint; clientData = clientData; objv = objv; tcl_result = Tcl_GetObjResult(interp); if ((objc < 5) || (objc > 5)) { Tcl_SetStringObj(tcl_result,"Wrong # args. iffgetstr_ { char * } { char * } { int } { int } ",-1); return TCL_ERROR; } if ((_arg0 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; if ((_arg1 = Tcl_GetStringFromObj(objv[2], &templength)) == NULL) return TCL_ERROR; if (Tcl_GetIntFromObj(interp,objv[3],&tempint) == TCL_ERROR) return TCL_ERROR; _arg2 = (int ) tempint; if (Tcl_GetIntFromObj(interp,objv[4],&tempint) == TCL_ERROR) return TCL_ERROR; _arg3 = (int ) tempint; _result = (int )iffgetstr_(_arg0,_arg1,_arg2,_arg3); tcl_result = Tcl_GetObjResult(interp); Tcl_SetIntObj(tcl_result,(long) _result); return TCL_OK; } static int _wrap_iffgetsca_(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; char * _arg0; double * _arg1; int _arg2; Tcl_Obj * tcl_result; int templength; char * rettype; int tempint; clientData = clientData; objv = objv; tcl_result = Tcl_GetObjResult(interp); if ((objc < 4) || (objc > 4)) { Tcl_SetStringObj(tcl_result,"Wrong # args. iffgetsca_ { char * } { double * } { int } ",-1); return TCL_ERROR; } if ((_arg0 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; if ((rettype = SWIG_GetPointerObj(interp,objv[2],(void **) &_arg1,"_double_p"))) { Tcl_SetStringObj(tcl_result, "Type error in argument 2 of iffgetsca_. Expected _double_p, received ", -1); Tcl_AppendToObj(tcl_result, rettype, -1); return TCL_ERROR; } if (Tcl_GetIntFromObj(interp,objv[3],&tempint) == TCL_ERROR) return TCL_ERROR; _arg2 = (int ) tempint; _result = (int )iffgetsca_(_arg0,_arg1,_arg2); tcl_result = Tcl_GetObjResult(interp); Tcl_SetIntObj(tcl_result,(long) _result); return TCL_OK; } static int _wrap_iffgetarr_(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; char * _arg0; double * _arg1; int _arg2; Tcl_Obj * tcl_result; int templength; char * rettype; int tempint; clientData = clientData; objv = objv; tcl_result = Tcl_GetObjResult(interp); if ((objc < 4) || (objc > 4)) { Tcl_SetStringObj(tcl_result,"Wrong # args. iffgetarr_ { char * } { double * } { int } ",-1); return TCL_ERROR; } if ((_arg0 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; if ((rettype = SWIG_GetPointerObj(interp,objv[2],(void **) &_arg1,"_double_p"))) { Tcl_SetStringObj(tcl_result, "Type error in argument 2 of iffgetarr_. Expected _double_p, received ", -1); Tcl_AppendToObj(tcl_result, rettype, -1); return TCL_ERROR; } if (Tcl_GetIntFromObj(interp,objv[3],&tempint) == TCL_ERROR) return TCL_ERROR; _arg2 = (int ) tempint; _result = (int )iffgetarr_(_arg0,_arg1,_arg2); tcl_result = Tcl_GetObjResult(interp); Tcl_SetIntObj(tcl_result,(long) _result); return TCL_OK; } static int _wrap_iffputarr_(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; char * _arg0; int * _arg1; double * _arg2; int _arg3; Tcl_Obj * tcl_result; int templength; char * rettype; int tempint; clientData = clientData; objv = objv; tcl_result = Tcl_GetObjResult(interp); if ((objc < 5) || (objc > 5)) { Tcl_SetStringObj(tcl_result,"Wrong # args. iffputarr_ { char * } { int * } { double * } { int } ",-1); return TCL_ERROR; } if ((_arg0 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; if ((rettype = SWIG_GetPointerObj(interp,objv[2],(void **) &_arg1,"_int_p"))) { Tcl_SetStringObj(tcl_result, "Type error in argument 2 of iffputarr_. Expected _int_p, received ", -1); Tcl_AppendToObj(tcl_result, rettype, -1); return TCL_ERROR; } if ((rettype = SWIG_GetPointerObj(interp,objv[3],(void **) &_arg2,"_double_p"))) { Tcl_SetStringObj(tcl_result, "Type error in argument 3 of iffputarr_. Expected _double_p, received ", -1); Tcl_AppendToObj(tcl_result, rettype, -1); return TCL_ERROR; } if (Tcl_GetIntFromObj(interp,objv[4],&tempint) == TCL_ERROR) return TCL_ERROR; _arg3 = (int ) tempint; _result = (int )iffputarr_(_arg0,_arg1,_arg2,_arg3); tcl_result = Tcl_GetObjResult(interp); Tcl_SetIntObj(tcl_result,(long) _result); return TCL_OK; } static int _wrap_iffgetecho_(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) { int _result; char * _arg0; int _arg1; Tcl_Obj * tcl_result; int templength; int tempint; clientData = clientData; objv = objv; tcl_result = Tcl_GetObjResult(interp); if ((objc < 3) || (objc > 3)) { Tcl_SetStringObj(tcl_result,"Wrong # args. iffgetecho_ { char * } { int } ",-1); return TCL_ERROR; } if ((_arg0 = Tcl_GetStringFromObj(objv[1], &templength)) == NULL) return TCL_ERROR; if (Tcl_GetIntFromObj(interp,objv[2],&tempint) == TCL_ERROR) return TCL_ERROR; _arg1 = (int ) tempint; _result = (int )iffgetecho_(_arg0,_arg1); tcl_result = Tcl_GetObjResult(interp); Tcl_SetIntObj(tcl_result,(long) _result); return TCL_OK; } /* * This table is used by the pointer type-checker */ static struct { char *n1; char *n2; void *(*pcnv)(void *); } _swig_mapping[] = { { "_signed_long","_long",0}, { "_long","_unsigned_long",0}, { "_long","_signed_long",0}, { "_unsigned_long","_long",0}, { "_signed_int","_int",0}, { "_unsigned_short","_short",0}, { "_signed_short","_short",0}, { "_unsigned_int","_int",0}, { "_short","_unsigned_short",0}, { "_short","_signed_short",0}, { "_int","_unsigned_int",0}, { "_int","_signed_int",0}, {0,0,0}}; SWIGEXPORT(int) Ifeffit_Init(Tcl_Interp *interp) { if (interp == 0) return TCL_ERROR; SWIG_RegisterType(); Tcl_CreateObjCommand(interp, SWIG_prefix "ptrcast", _wrap_ptrcast, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "ptrvalue", _wrap_ptrvalue, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "ptrset", _wrap_ptrset, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "ptrcreate", _wrap_ptrcreate, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "ptrfree", _wrap_ptrfree, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "ptradd", _wrap_ptradd, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "ptrmap", _wrap_ptrmap, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "iff_exec", _wrap_iff_exec, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "iff_get_string", _wrap_iff_get_string, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "iff_put_string", _wrap_iff_put_string, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "iff_get_scalar", _wrap_iff_get_scalar, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "iff_put_scalar", _wrap_iff_put_scalar, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "iff_get_array", _wrap_iff_get_array, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "iff_put_array", _wrap_iff_put_array, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "iff_get_echo", _wrap_iff_get_echo, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "ifeffit_", _wrap_ifeffit_, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "iffgetstr_", _wrap_iffgetstr_, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "iffgetsca_", _wrap_iffgetsca_, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "iffgetarr_", _wrap_iffgetarr_, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "iffputarr_", _wrap_iffputarr_, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); Tcl_CreateObjCommand(interp, SWIG_prefix "iffgetecho_", _wrap_iffgetecho_, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); { int i; for (i = 0; _swig_mapping[i].n1; i++) SWIG_RegisterMapping(_swig_mapping[i].n1,_swig_mapping[i].n2,_swig_mapping[i].pcnv); } return TCL_OK; } ifeffit-1.2.11d/wrappers/tcl/TclSetup.in0000644000175000017500000000152411117271643017075 0ustar segresegre# # Tcl Setup.in auto-generated during Ifeffit build # This file may need some modifications, but should give # a good guess for how to build the Ifeffit extension. # #== Ifeffit build configuration: # LIB_IFF = ifeffit library # LIB_PLT = PGPLOT libraries # LIB_F77 = Fortran libraries # LIB_X11 = X Libaries # INC_IFF = location of ifeffit.h LIB_IFF = -L/usr/lib -lifeffit LIB_PLT = -L/usr/local/share/ifeffit/pgplot -lpgplot_iff -lpng -lz -lX11 LIB_F77 = -L/usr/lib/gcc/x86_64-redhat-linux/4.1.1 -L/usr/lib/gcc/x86_64-redhat-linux/4.1.1/../../../../lib64 -L/lib/../lib64 -L/usr/lib/../lib64 -lgfortranbegin -lgfortran -lm -lgcc_s INC_IFF = -I/usr/share/ifeffit/config #== LIB_IFF = -L../../src/lib -lifeffit INC_IFF = -I../../src/lib -I/usr/share/ifeffit/config CC = gcc CFLAGS = -g -O2 -fPIC LDFLAGS = ifeffit-1.2.11d/wrappers/tcl/Ifeffit.tcl0000644000175000017500000000302110771740460017057 0ustar segresegre# # ifeffit interface in tcl # # M Newville Aug 10, 1999 # # # catch { load /usr/local/share/ifeffit/tcl/libifeffit_tcl.so ifeffit } catch { load ./ifeffit_tcl.so ifeffit} proc ifeffit {cmd} {iff_exec $cmd} proc put_scalar {name val} {ifeffit "set $name = $val"} proc put_string {name val} {ifeffit "set \$$name = $val"} proc get_scalar {name} { set ptr [ptrcreate double] iff_get_scalar $name $ptr set ret [ptrvalue $ptr] ptrfree $ptr return $ret } proc get_string {name} { set str " " set len [iff_get_string $name $str] return [string trim $str] } proc get_array {name} { set ptr [ptrcreate double 0 16384] set npts [iff_get_array $name $ptr] set list {} for {set i 0} {$i < $npts} {incr i +1} { lappend list [ptrvalue $ptr $i] } ptrfree $ptr return $list } proc put_array {name list} { set npts [llength $list] set ptr [ptrcreate double 0 $npts] set p_npts [ptrcreate int] ptrset $p_npts $npts for {set i 0} {$i < $npts} {incr i +1} { ptrset $ptr [lindex $list $i] $i } set ret [iff_put_array $name $p_npts $ptr] ptrfree $p_npts ptrfree $ptr return $ret } proc get_echo {} { set str " " set len [iff_get_echo $str] return [string trim $str] } ifeffit-1.2.11d/wrappers/tcl/Makefile0000644000175000017500000000257610771740460016455 0ustar segresegre# # Tcl Setup.in auto-generated during Ifeffit build # This file may need some modifications, but should give # a good guess for how to build the Ifeffit extension. # #== Ifeffit build configuration: # LIB_IFF = ifeffit library # LIB_PLT = PGPLOT libraries # LIB_F77 = Fortran libraries # LIB_X11 = X Libaries # INC_IFF = location of ifeffit.h LIB_IFF = -L/usr/local/lib -lifeffit LIB_PLT = -L/usr/local/pgplot -lpgplot -L/usr/X11R6/lib -lX11 LIB_F77 = -lg2c -lm -L/usr/lib/gcc-lib/i386-redhat-linux/2.96 -L/usr/lib/gcc-lib/i386-redhat-linux/2.96/../../.. -lm INC_IFF = -I/usr/local/include #== LIB_IFF = -L../../src/lib -lifeffit INC_IFF = -I../../src/lib CC = gcc CFLAGS = -g -O2 LDFLAGS = # # Makefile for the Ifeffit extension to tcl # location of Tcl/Tk libraries LIB_TK = -L/usr/lib -ltcl -ltk # location of tcl TCL = tcl # # how to compile C code to an object file for dynamic loading SHARE_FLAG = -fpic COMPILE = $(CC) $(SHARE_FLAG) $(CFLAGS) -c -I../../src/lib LD = $(CC) -shared LIBS = $(LIB_IFF) $(LIB_PLT) $(LIB_F77) $(LIB_TK) $(LIB_X11) default: ifeffit_tcl.so .PHONY: clean ifeffit_tcl.so: ifeffit_wrap.o $(LD) ifeffit_wrap.o $(LIBS) -o ifeffit_tcl.so ifeffit_wrap.o: ifeffit_wrap.c $(COMPILE) ifeffit_wrap.c -o ifeffit_wrap.o test: ifeffit_tcl.so $(TCL) test.tcl clean: rm ifeffit_wrap.o ifeffit_tcl.so ifeffit-1.2.11d/wrappers/tcl/Makefile.in0000644000175000017500000000123010771740460017044 0ustar segresegre# # Makefile for the Ifeffit extension to tcl # location of Tcl/Tk libraries LIB_TK = -L/usr/lib -ltcl -ltk # location of tcl TCL = tcl # # how to compile C code to an object file for dynamic loading SHARE_FLAG = -fpic COMPILE = $(CC) $(SHARE_FLAG) $(CFLAGS) -c -I../../src/lib LD = $(CC) -shared LIBS = $(LIB_IFF) $(LIB_PLT) $(LIB_F77) $(LIB_TK) $(LIB_X11) default: ifeffit_tcl.so .PHONY: clean ifeffit_tcl.so: ifeffit_wrap.o $(LD) ifeffit_wrap.o $(LIBS) -o ifeffit_tcl.so ifeffit_wrap.o: ifeffit_wrap.c $(COMPILE) ifeffit_wrap.c -o ifeffit_wrap.o test: ifeffit_tcl.so $(TCL) test.tcl clean: rm ifeffit_wrap.o ifeffit_tcl.so ifeffit-1.2.11d/wrappers/tcl/Build0000644000175000017500000000007310771740460015765 0ustar segresegre#!/usr/bin/sh cat TclSetup.in Makefile.in > Makefile make ifeffit-1.2.11d/wrappers/tcl/test.tcl0000644000175000017500000000324410771740460016471 0ustar segresegre# # ifeffit interface in tcl # # M Newville Jun 16, 1999 ####################################################################### source Ifeffit.tcl puts " Testing tcl wrapper to ifeffit:" set test 0 puts " Test <$test>: Basic Loading Worked" # incr test +1 puts " --------------------------------" puts " Test <$test>: basic commands" puts " ifeffit \"x = sqrt(12.3)\" " puts " ifeffit \"show x\" " ifeffit "x = sqrt(12.3)" ifeffit "show x" # incr test +1 puts " --------------------------------" puts " Test <$test>: get_scalar " puts " puts \[get_scalar \"x\"\]" puts [get_scalar "x"] # incr test +1 puts " --------------------------------" puts " Test <$test>: put_scalar " puts " put_scalar x 33" puts " puts \[get_scalar x]" put_scalar x 33 puts [get_scalar x] # incr test +1 puts " --------------------------------" puts " Test <$test>: put_string " puts " put_string title \"this is a title line\"" puts " ifeffit \"show \$title\"" put_string "title" "this is a title line" ifeffit "show \$title" # incr test +1 puts " --------------------------------" puts " Test <$test>: get_string " puts " puts \[get_string \"title\"\]" puts [get_string "title"] # incr test +1 puts " --------------------------------" puts " Test <$test>: put_array " puts " set l {1. 3. 5. 9. 22.}" set l {1. 3. 5. 9. 22.} puts " put_array \"my.array\" \$l" put_array "my.array" $l puts " ifeffit \"print my.array\"" ifeffit "print my.array" # incr test +1 puts " --------------------------------" puts " Test <$test>: get_array " puts " puts \[get_array \"my.array\"\]" puts [get_array "my.array"] puts " --------------------------------" puts " End of Tests" ifeffit-1.2.11d/wrappers/tcl/README0000644000175000017500000000252610771740460015670 0ustar segresegreThis is the Tcl interface to the Ifeffit library. To build and install this interface: 1. build and INSTALL the ifeffit library. That is, the ifeffit library must be installed in its final resting place for the tcl extension to work properly. If you're building this from the standard distribution, a TclSetup.in file should already be in this directory. If not (or if you are building this from the stand-alone perl distribution after the Ifeffit library has been installed) copy the TclSetup.in from the ifeffit directory: ~> cp /usr/local/share/ifeffit/TclSetup.in . (the exact location may be different, depending on how ifeffit was built and installed). 2. type 'sh Build'. this will simply do ~> cat TclSetup.in Makefile.in > Makefile ~> make If this fails, you may want to edit the Makefile to properly reflect your system's setup. 3. test the Tcl extension: ~> tcl test.tcl If the test fails (you'll see a bunch cryptic error messages), first check the 'Fortran.Notes' in the main wrapper directory. If that doesn't help, please let me know. 4. I do not know enough about tcl to know how to properly install a third-party extension in 'the standard way'. If you do, please let me know. Matt Newville ifeffit-1.2.11d/wrappers/Fortran.Notes0000644000175000017500000000401110771740460016642 0ustar segresegreFortran Issues -------------- On some systems (notably linux), there are some problems with pre-built fortran installations, especially when trying to make shared-objects, as needs to be done for the extensions made here. If you have problems building or running the tests for any of the scripting languages, it may be a problem with the fortran installation. I've personally run into such problems with a few different versions of gcc/g77 (or egcs, or pgcc) on a few different linux installations: The compilers appear to work out of the box for simple cases, but fail at making shared object libraries from mixed C and Fortran code. If you suspect a problem, the easiest solution may be to download and re-install the gcc and g77 compilers. This is actually not that hard, especially with gcc-2.95. I've never had or heard of a problem with a gcc compiler system built from scratch. It takes some time to install, but is not very difficult. If you're using a gcc compiler system and can build, but not _run_ the tests, and get error messages like can't find symbol s_wsfi can't find symbol s_copy can't find symbol r_lg10 Then the problem is almost certainly that the fortran library can't be found in the final link. On many linux systems, the library really is around, but simply cannot be found by the linker. If you can either copy the library to where it can be found (say, to /usr/lib), or can change where the linker is looking, the linking may very well work. Some hints: 1. find where g77 is hiding it's files. Usually 'g77 -v' will give a good guess. It's often something like /usr/lib/gcc-lib/i586-pc-linux-gnu/2.95.1/ There is probably a libg2c.a file there somewhere: that's the library. 2. The file /etc/ld.so.conf (it may be in a different location on non-linux systems) contains the list of directories the linker through to find libraries. You might be able to simply add the directory containing libg2c.a, and run 'ldconfig'. Matt Newville ifeffit-1.2.11d/wrappers/perl/0000755000175000017500000000000011117272307015156 5ustar segresegreifeffit-1.2.11d/wrappers/perl/a.xmu0000644000175000017500000001570410771740460016145 0ustar segresegre#a.xmu #--------------- # energy log(i0/it) 16009.9 -1.502163 16020.1 -1.503319 16030.0 -1.504143 16039.8 -1.504789 16050.1 -1.505477 16060.0 -1.506229 16069.9 -1.506795 16080.1 -1.507468 16090.1 -1.507740 16091.1 -1.507704 16092.5 -1.507495 16093.8 -1.507786 16094.9 -1.507637 16096.2 -1.507852 16097.6 -1.507640 16098.6 -1.507563 16100.0 -1.507901 16101.4 -1.507930 16102.4 -1.507724 16103.8 -1.507818 16105.2 -1.507710 16106.2 -1.507388 16107.6 -1.507615 16108.6 -1.507152 16110.0 -1.507206 16111.3 -1.506920 16112.4 -1.506922 16113.7 -1.506619 16115.1 -1.506228 16116.2 -1.505957 16117.5 -1.505210 16118.9 -1.504863 16119.9 -1.504374 16121.3 -1.503273 16122.3 -1.502426 16123.7 -1.501267 16125.1 -1.499481 16126.1 -1.498124 16127.5 -1.494928 16128.9 -1.490287 16129.9 -1.485299 16131.3 -1.474350 16132.3 -1.461208 16133.7 -1.434220 16135.1 -1.399308 16136.1 -1.370999 16137.5 -1.327021 16138.9 -1.273711 16139.9 -1.230815 16140.6 -1.206342 16141.6 -1.172971 16142.3 -1.156846 16143.4 -1.140268 16144.1 -1.136120 16145.1 -1.138399 16145.8 -1.144890 16146.8 -1.161680 16147.5 -1.174705 16148.5 -1.197610 16149.6 -1.220856 16150.6 -1.240319 16151.7 -1.256404 16152.7 -1.268349 16153.7 -1.276571 16154.8 -1.282156 16155.8 -1.286230 16156.8 -1.288774 16157.9 -1.290336 16159.3 -1.291502 16160.3 -1.292270 16161.3 -1.292046 16162.7 -1.289925 16163.8 -1.287086 16165.1 -1.282543 16166.5 -1.278356 16167.6 -1.275131 16168.9 -1.270436 16170.3 -1.265215 16171.7 -1.259753 16173.1 -1.253709 16174.5 -1.247567 16175.9 -1.242025 16177.3 -1.237573 16178.6 -1.234516 16180.0 -1.232725 16181.4 -1.232808 16183.2 -1.234651 16184.5 -1.236961 16185.9 -1.239656 16187.7 -1.244734 16189.1 -1.249213 16190.8 -1.255731 16192.2 -1.260589 16193.9 -1.266090 16195.6 -1.270044 16197.4 -1.273692 16199.1 -1.276865 16200.5 -1.279126 16202.3 -1.281621 16204.0 -1.283474 16205.7 -1.284225 16207.8 -1.282486 16209.6 -1.279564 16211.3 -1.276087 16213.0 -1.272423 16215.1 -1.269039 16216.9 -1.267085 16218.6 -1.266243 16220.7 -1.266294 16222.4 -1.266958 16224.5 -1.268066 16226.6 -1.268918 16228.4 -1.269138 16230.5 -1.268594 16232.6 -1.267493 16234.7 -1.266799 16236.7 -1.266193 16238.8 -1.266426 16240.9 -1.267450 16243.0 -1.269127 16245.1 -1.271028 16247.2 -1.273282 16249.7 -1.276157 16251.8 -1.278778 16253.9 -1.281365 16256.3 -1.283960 16258.4 -1.285302 16260.9 -1.286332 16263.0 -1.286597 16265.4 -1.286768 16267.9 -1.286705 16270.0 -1.286463 16272.4 -1.286017 16274.9 -1.285431 16277.4 -1.284842 16279.8 -1.283906 16282.3 -1.282917 16284.7 -1.281500 16287.2 -1.280598 16289.6 -1.280306 16292.1 -1.281232 16294.9 -1.282963 16297.4 -1.284776 16299.8 -1.286011 16302.7 -1.286281 16305.1 -1.285993 16307.9 -1.285433 16310.4 -1.285258 16313.2 -1.284994 16316.1 -1.285195 16318.5 -1.285572 16321.3 -1.286031 16324.2 -1.287043 16327.0 -1.288181 16329.8 -1.289683 16332.6 -1.291215 16335.5 -1.292566 16338.3 -1.293849 16341.1 -1.294963 16344.0 -1.295833 16347.2 -1.296517 16350.0 -1.296640 16352.8 -1.296394 16356.0 -1.295753 16358.8 -1.294922 16362.0 -1.293732 16364.9 -1.292775 16368.1 -1.292128 16371.3 -1.292314 16374.1 -1.292736 16377.3 -1.293847 16380.5 -1.295188 16383.7 -1.296597 16386.9 -1.297774 16390.1 -1.298782 16393.3 -1.299924 16396.5 -1.300967 16399.7 -1.301780 16402.9 -1.302127 16406.5 -1.302210 16409.7 -1.302064 16412.9 -1.301900 16416.5 -1.301758 16419.7 -1.301957 16422.9 -1.302438 16426.5 -1.303755 16430.1 -1.304867 16433.3 -1.305689 16436.9 -1.306393 16440.4 -1.307340 16443.7 -1.308047 16447.3 -1.308228 16450.8 -1.308098 16454.4 -1.307711 16458.0 -1.307380 16461.6 -1.307203 16465.2 -1.307408 16468.8 -1.308006 16472.8 -1.308598 16476.3 -1.309018 16479.9 -1.309700 16483.5 -1.310345 16487.5 -1.311414 16491.1 -1.312282 16495.1 -1.313080 16498.7 -1.313584 16502.7 -1.313920 16506.3 -1.314464 16510.2 -1.315082 16514.2 -1.315651 16518.2 -1.316555 16521.8 -1.317181 16525.8 -1.317234 16529.8 -1.317093 16533.8 -1.317254 16537.7 -1.317697 16541.7 -1.318135 16545.7 -1.318633 16550.1 -1.319254 16554.1 -1.319564 16558.1 -1.320135 16562.1 -1.320498 16566.4 -1.320926 16570.4 -1.321448 16574.4 -1.322024 16578.8 -1.322290 16583.2 -1.322952 16587.2 -1.323799 16591.6 -1.324591 16595.6 -1.325134 16600.0 -1.325536 16604.4 -1.325930 16608.7 -1.326581 16613.1 -1.326699 16617.5 -1.326886 16621.6 -1.327069 16625.9 -1.327460 16630.7 -1.328289 16635.1 -1.329103 16639.5 -1.330058 16643.9 -1.330516 16648.3 -1.331164 16652.7 -1.332039 16657.5 -1.332704 16661.9 -1.333023 16666.7 -1.333291 16671.1 -1.333438 16675.9 -1.333834 16680.4 -1.334452 16685.2 -1.335165 16689.6 -1.335665 16694.4 -1.336184 16699.2 -1.336713 16704.0 -1.337405 16708.5 -1.338143 16713.3 -1.339122 16718.1 -1.339825 16722.9 -1.340376 16727.7 -1.340967 16732.5 -1.341567 16737.4 -1.342054 16742.6 -1.342379 16747.4 -1.342740 16752.3 -1.343117 16757.1 -1.343657 16762.3 -1.344448 16767.2 -1.344852 16772.0 -1.345557 16777.2 -1.346313 16782.1 -1.346954 16787.3 -1.347860 16792.2 -1.348459 16797.4 -1.348939 16802.6 -1.349162 16807.5 -1.349646 16812.8 -1.350001 16818.0 -1.350842 16823.3 -1.351356 16828.5 -1.351882 16833.8 -1.352479 16839.0 -1.353161 16844.3 -1.353659 16849.6 -1.353944 16854.9 -1.354637 16860.1 -1.355363 16865.4 -1.355977 16870.7 -1.356311 16876.4 -1.356947 16881.7 -1.357450 16887.0 -1.357940 16892.6 -1.358577 16897.9 -1.358953 16903.2 -1.359358 16908.9 -1.360113 16914.6 -1.360658 16919.9 -1.361142 16925.6 -1.361730 16931.0 -1.362351 16936.7 -1.362933 16942.4 -1.363290 16948.1 -1.363721 16953.8 -1.363995 16959.5 -1.364662 16964.9 -1.365062 16970.6 -1.365602 16976.3 -1.366207 16982.1 -1.366849 ifeffit-1.2.11d/wrappers/perl/ifeffit_wrap.c0000644000175000017500000012150410771740460017777 0ustar segresegre/* ---------------------------------------------------------------------------- * This file was automatically generated by SWIG (http://www.swig.org). * Version 1.3.16u-20021020-0914 * * This file is not intended to be easily readable and contains a number of * coding conventions designed to improve portability and efficiency. Do not make * changes to this file unless you know what you are doing--modify the SWIG * interface file instead. * ----------------------------------------------------------------------------- */ /*********************************************************************** * common.swg * * This file contains generic SWIG runtime support for pointer * type checking as well as a few commonly used macros to control * external linkage. * * Author : David Beazley (beazley@cs.uchicago.edu) * * Copyright (c) 1999-2000, The University of Chicago * * This file may be freely redistributed without license or fee provided * this copyright message remains intact. ************************************************************************/ #include #if defined(_WIN32) || defined(__WIN32__) # if defined(_MSC_VER) # if defined(STATIC_LINKED) # define SWIGEXPORT(a) a # define SWIGIMPORT(a) extern a # else # define SWIGEXPORT(a) __declspec(dllexport) a # define SWIGIMPORT(a) extern a # endif # else # if defined(__BORLANDC__) # define SWIGEXPORT(a) a _export # define SWIGIMPORT(a) a _export # else # define SWIGEXPORT(a) a # define SWIGIMPORT(a) a # endif # endif #else # define SWIGEXPORT(a) a # define SWIGIMPORT(a) a #endif #ifdef SWIG_GLOBAL #define SWIGRUNTIME(a) SWIGEXPORT(a) #else #define SWIGRUNTIME(a) static a #endif #ifdef __cplusplus extern "C" { #endif typedef void *(*swig_converter_func)(void *); typedef struct swig_type_info *(*swig_dycast_func)(void **); typedef struct swig_type_info { const char *name; swig_converter_func converter; const char *str; void *clientdata; swig_dycast_func dcast; struct swig_type_info *next; struct swig_type_info *prev; } swig_type_info; #ifdef SWIG_NOINCLUDE SWIGIMPORT(swig_type_info *) SWIG_TypeRegister(swig_type_info *); SWIGIMPORT(swig_type_info *) SWIG_TypeCheck(char *c, swig_type_info *); SWIGIMPORT(void *) SWIG_TypeCast(swig_type_info *, void *); SWIGIMPORT(swig_type_info *) SWIG_TypeDynamicCast(swig_type_info *, void **); SWIGIMPORT(swig_type_info *) SWIG_TypeQuery(const char *); SWIGIMPORT(void) SWIG_TypeClientData(swig_type_info *, void *); #else static swig_type_info *swig_type_list = 0; /* Register a type mapping with the type-checking */ SWIGRUNTIME(swig_type_info *) SWIG_TypeRegister(swig_type_info *ti) { swig_type_info *tc, *head, *ret, *next; /* Check to see if this type has already been registered */ tc = swig_type_list; while (tc) { if (strcmp(tc->name, ti->name) == 0) { /* Already exists in the table. Just add additional types to the list */ if (tc->clientdata) ti->clientdata = tc->clientdata; head = tc; next = tc->next; goto l1; } tc = tc->prev; } head = ti; next = 0; /* Place in list */ ti->prev = swig_type_list; swig_type_list = ti; /* Build linked lists */ l1: ret = head; tc = ti + 1; /* Patch up the rest of the links */ while (tc->name) { head->next = tc; tc->prev = head; head = tc; tc++; } head->next = next; return ret; } /* Check the typename */ SWIGRUNTIME(swig_type_info *) SWIG_TypeCheck(char *c, swig_type_info *ty) { swig_type_info *s; if (!ty) return 0; /* Void pointer */ s = ty->next; /* First element always just a name */ do { if (strcmp(s->name,c) == 0) { if (s == ty->next) return s; /* Move s to the top of the linked list */ s->prev->next = s->next; if (s->next) { s->next->prev = s->prev; } /* Insert s as second element in the list */ s->next = ty->next; if (ty->next) ty->next->prev = s; ty->next = s; return s; } s = s->next; } while (s && (s != ty->next)); return 0; } /* Cast a pointer up an inheritance hierarchy */ SWIGRUNTIME(void *) SWIG_TypeCast(swig_type_info *ty, void *ptr) { if ((!ty) || (!ty->converter)) return ptr; return (*ty->converter)(ptr); } /* Dynamic pointer casting. Down an inheritance hierarchy */ SWIGRUNTIME(swig_type_info *) SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr) { swig_type_info *lastty = ty; if (!ty || !ty->dcast) return ty; while (ty && (ty->dcast)) { ty = (*ty->dcast)(ptr); if (ty) lastty = ty; } return lastty; } /* Search for a swig_type_info structure */ SWIGRUNTIME(swig_type_info *) SWIG_TypeQuery(const char *name) { swig_type_info *ty = swig_type_list; while (ty) { if (ty->str && (strcmp(name,ty->str) == 0)) return ty; if (ty->name && (strcmp(name,ty->name) == 0)) return ty; ty = ty->prev; } return 0; } /* Set the clientdata field for a type */ SWIGRUNTIME(void) SWIG_TypeClientData(swig_type_info *ti, void *clientdata) { swig_type_info *tc, *equiv; if (ti->clientdata) return; ti->clientdata = clientdata; equiv = ti->next; while (equiv) { if (!equiv->converter) { tc = swig_type_list; while (tc) { if ((strcmp(tc->name, equiv->name) == 0)) SWIG_TypeClientData(tc,clientdata); tc = tc->prev; } } equiv = equiv->next; } } #endif #ifdef __cplusplus } #endif /* ----------------------------------------------------------------------------- * perl5.swg * * Perl5 runtime library * $Header: /cvs/projects/SWIG/Lib/perl5/Attic/perlrun.swg,v 1.1.2.10 2002/09/02 22:54:30 beazley Exp $ * ----------------------------------------------------------------------------- */ #define SWIGPERL #define SWIGPERL5 #ifdef __cplusplus /* Needed on some windows machines---since MS plays funny games with the header files under C++ */ #include #include extern "C" { #endif #include "EXTERN.h" #include "perl.h" #include "XSUB.h" /* Get rid of free and malloc defined by perl */ #undef free #undef malloc #ifndef pTHX_ #define pTHX_ #endif #include #ifdef __cplusplus } #endif /* Macro to call an XS function */ #ifdef PERL_OBJECT #define SWIG_CALLXS(_name) _name(cv,pPerl) #else #ifndef MULTIPLICITY #define SWIG_CALLXS(_name) _name(cv) #else #define SWIG_CALLXS(_name) _name(PERL_GET_THX, cv) #endif #endif /* Macros for low-level exception handling */ #define SWIG_fail goto fail #define SWIG_croak(x) while ((_swigerr = (const char *) x)) goto fail #define SWIG_MAX_ERRMSG 256 /* Note: SwigMagicFuncHack is a typedef used to get the C++ compiler to just shut up already */ #ifdef PERL_OBJECT #define MAGIC_PPERL CPerlObj *pPerl = (CPerlObj *) this; typedef int (CPerlObj::*SwigMagicFunc)(SV *, MAGIC *); #ifdef __cplusplus extern "C" { #endif typedef int (CPerlObj::*SwigMagicFuncHack)(SV *, MAGIC *); #ifdef __cplusplus } #endif #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b) #define SWIGCLASS_STATIC #else #define MAGIC_PPERL #define SWIGCLASS_STATIC static #ifndef MULTIPLICITY #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b) typedef int (*SwigMagicFunc)(SV *, MAGIC *); #ifdef __cplusplus extern "C" { #endif typedef int (*SwigMagicFuncHack)(SV *, MAGIC *); #ifdef __cplusplus } #endif #else #define SWIG_MAGIC(a,b) (struct interpreter *interp, SV *a, MAGIC *b) typedef int (*SwigMagicFunc)(struct interpreter *, SV *, MAGIC *); #ifdef __cplusplus extern "C" { #endif typedef int (*SwigMagicFuncHack)(struct interpreter *, SV *, MAGIC *); #ifdef __cplusplus } #endif #endif #endif #if defined(WIN32) && defined(PERL_OBJECT) && !defined(PerlIO_exportFILE) #define PerlIO_exportFILE(fh,fl) (FILE*)(fh) #endif /* Modifications for newer Perl 5.005 releases */ #if !defined(PERL_REVISION) || ((PERL_REVISION >= 5) && ((PERL_VERSION < 5) || ((PERL_VERSION == 5) && (PERL_SUBVERSION < 50)))) #ifndef PL_sv_yes #define PL_sv_yes sv_yes #endif #ifndef PL_sv_undef #define PL_sv_undef sv_undef #endif #ifndef PL_na #define PL_na na #endif #endif #include #ifdef __cplusplus extern "C" { #endif #ifdef SWIG_NOINCLUDE #ifndef PERL_OBJECT extern int SWIG_ConvertPtr(SV *, void **, swig_type_info *, int flags); extern void SWIG_MakePtr(SV *, void *, swig_type_info *, int flags); #else extern int _SWIG_ConvertPtr(CPerlObj *, SV *, void **, swig_type_info *,int flags); extern void _SWIG_MakePtr(CPerlObj *, SV *, void *, swig_type_info *, int flags); #define SWIG_ConvertPtr(a,b,c,d) _SWIG_ConvertPtr(pPerl,a,b,c,d) #define SWIG_MakePtr(a,b,c,d) _SWIG_MakePtr(pPerl,a,b,c,d) #endif #else /* Function for getting a pointer value */ #ifndef PERL_OBJECT SWIGRUNTIME(int) SWIG_ConvertPtr(SV *sv, void **ptr, swig_type_info *_t, int flags) #else #define SWIG_ConvertPtr(a,b,c,d) _SWIG_ConvertPtr(pPerl,a,b,c,d) SWIGRUNTIME(int) _SWIG_ConvertPtr(CPerlObj *pPerl, SV *sv, void **ptr, swig_type_info *_t, int flags) #endif { char *_c; swig_type_info *tc; IV tmp; /* If magical, apply more magic */ if (SvGMAGICAL(sv)) mg_get(sv); /* Check to see if this is an object */ if (sv_isobject(sv)) { SV *tsv = (SV*) SvRV(sv); if ((SvTYPE(tsv) == SVt_PVHV)) { MAGIC *mg; if (SvMAGICAL(tsv)) { mg = mg_find(tsv,'P'); if (mg) { SV *rsv = mg->mg_obj; if (sv_isobject(rsv)) { tmp = SvIV((SV*)SvRV(rsv)); } } } else { return -1; } } else { tmp = SvIV((SV*)SvRV(sv)); } if (!_t) { *(ptr) = (void *) tmp; return 0; } } else if (! SvOK(sv)) { /* Check for undef */ *(ptr) = (void *) 0; return 0; } else if (SvTYPE(sv) == SVt_RV) { /* Check for NULL pointer */ *(ptr) = (void *) 0; if (!SvROK(sv)) return 0; else return -1; } else { /* Don't know what it is */ *(ptr) = (void *) 0; return -1; } if (_t) { /* Now see if the types match */ _c = HvNAME(SvSTASH(SvRV(sv))); tc = SWIG_TypeCheck(_c,_t); if (!tc) { *ptr = (void *) tmp; return -1; } *ptr = SWIG_TypeCast(tc,(void *)tmp); return 0; } *ptr = (void *) tmp; return 0; } #ifndef PERL_OBJECT SWIGRUNTIME(void) SWIG_MakePtr(SV *sv, void *ptr, swig_type_info *t,int flags) #else #define SWIG_MakePtr(a,b,c,d) _SWIG_MakePtr(pPerl,a,b,c,d) SWIGRUNTIME(void) _SWIG_MakePtr(CPerlObj *pPerl, SV *sv, void *ptr, swig_type_info *t, int flags) #endif { sv_setref_pv(sv, (char *) t->name, ptr); } #endif typedef XS(SwigPerlWrapper); typedef SwigPerlWrapper *SwigPerlWrapperPtr; /* Structure for command table */ typedef struct { const char *name; SwigPerlWrapperPtr wrapper; } swig_command_info; /* Information for constant table */ #define SWIG_INT 1 #define SWIG_FLOAT 2 #define SWIG_STRING 3 #define SWIG_POINTER 4 #define SWIG_BINARY 5 /* Constant information structure */ typedef struct swig_constant_info { int type; const char *name; long lvalue; double dvalue; void *pvalue; swig_type_info **ptype; } swig_constant_info; #ifdef __cplusplus } #endif /* Structure for variable table */ typedef struct { const char *name; SwigMagicFunc set; SwigMagicFunc get; swig_type_info **type; } swig_variable_info; /* Magic variable code */ #ifndef PERL_OBJECT #define swig_create_magic(s,a,b,c) _swig_create_magic(s,a,b,c) #ifndef MULTIPLICITY static void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int \ (*get)(SV *,MAGIC *)) { #else static void _swig_create_magic(SV *sv, char *name, int (*set)(struct interpreter*,\ SV *, MAGIC *), int (*get)(struct interpreter*, SV *,MAGIC *)) { #endif #else #define swig_create_magic(s,a,b,c) _swig_create_magic(pPerl,s,a,b,c) static void _swig_create_magic(CPerlObj *pPerl, SV *sv, const char *name, int (CPerlObj::*set)(SV *, MAGIC *), int (CPerlObj::*get)(SV *, MAGIC *)) { #endif MAGIC *mg; sv_magic(sv,sv,'U',(char *) name,strlen(name)); mg = mg_find(sv,'U'); mg->mg_virtual = (MGVTBL *) malloc(sizeof(MGVTBL)); mg->mg_virtual->svt_get = (SwigMagicFuncHack) get; mg->mg_virtual->svt_set = (SwigMagicFuncHack) set; mg->mg_virtual->svt_len = 0; mg->mg_virtual->svt_clear = 0; mg->mg_virtual->svt_free = 0; } /* -------- TYPES TABLE (BEGIN) -------- */ #define SWIGTYPE_p_double swig_types[0] #define SWIGTYPE_p_int swig_types[1] static swig_type_info *swig_types[3]; /* -------- TYPES TABLE (END) -------- */ #define SWIG_init boot_Ifeffit #define SWIG_name "Ifeffit::boot_Ifeffit" #define SWIG_prefix "Ifeffit::" #ifdef __cplusplus extern "C" #endif #ifndef PERL_OBJECT #ifndef MULTIPLICITY SWIGEXPORT(void) SWIG_init (CV* cv); #else SWIGEXPORT(void) SWIG_init (pTHXo_ CV* cv); #endif #else SWIGEXPORT(void) SWIG_init (CV *cv, CPerlObj *); #endif #include "ifeffit.h" static int *new_Pint() { return (int *) calloc(1,sizeof(int)); } static int *copy_Pint(int value) { int *self = (int *) calloc(1,sizeof(int)); *self = value; return self; } static void delete_Pint(int *self) { if (self) free(self); } static void Pint_assign(int *self, int value) { *self = value; } static int Pint_value(int *self) { return *self; } static double *new_Pdbl() { return (double *) calloc(1,sizeof(double)); } static double *copy_Pdbl(double value) { double *self = (double *) calloc(1,sizeof(double)); *self = value; return self; } static void delete_Pdbl(double *self) { if (self) free(self); } static void Pdbl_assign(double *self, double value) { *self = value; } static double Pdbl_value(double *self) { return *self; } static double *new_Parr(int nelements) { return (double *) calloc(nelements,sizeof(double)); } static void delete_Parr(double *ary) { free(ary); } static double Parr_getitem(double *ary, int index) { return ary[index]; } static void Parr_setitem(double *ary, int index, double value) { ary[index] = value; } #ifdef PERL_OBJECT #define MAGIC_CLASS _wrap_Ifeffit_var:: class _wrap_Ifeffit_var : public CPerlObj { public: #else #define MAGIC_CLASS #endif SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *sv, MAGIC *mg) { MAGIC_PPERL sv = sv; mg = mg; croak("Value is read-only."); return 0; } #ifdef PERL_OBJECT }; #endif #ifdef __cplusplus extern "C" { #endif XS(_wrap_iff_exec) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { char *arg1 ; int result; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { SWIG_croak("Usage: iff_exec(char *);"); } if (!SvOK((SV*) ST(0))) arg1 = 0; else arg1 = (char *) SvPV(ST(0), PL_na); result = (int)iff_exec(arg1); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++), (IV) result); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_ifeffit) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { char *arg1 ; int result; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { SWIG_croak("Usage: ifeffit(char *);"); } if (!SvOK((SV*) ST(0))) arg1 = 0; else arg1 = (char *) SvPV(ST(0), PL_na); result = (int)ifeffit(arg1); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++), (IV) result); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_iff_get_string) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { char *arg1 ; char *arg2 ; int result; int argvi = 0; dXSARGS; if ((items < 2) || (items > 2)) { SWIG_croak("Usage: iff_get_string(char *,char *);"); } if (!SvOK((SV*) ST(0))) arg1 = 0; else arg1 = (char *) SvPV(ST(0), PL_na); if (!SvOK((SV*) ST(1))) arg2 = 0; else arg2 = (char *) SvPV(ST(1), PL_na); result = (int)iff_get_string(arg1,arg2); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++), (IV) result); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_iff_put_string) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { char *arg1 ; char *arg2 ; int result; int argvi = 0; dXSARGS; if ((items < 2) || (items > 2)) { SWIG_croak("Usage: iff_put_string(char *,char *);"); } if (!SvOK((SV*) ST(0))) arg1 = 0; else arg1 = (char *) SvPV(ST(0), PL_na); if (!SvOK((SV*) ST(1))) arg2 = 0; else arg2 = (char *) SvPV(ST(1), PL_na); result = (int)iff_put_string(arg1,arg2); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++), (IV) result); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_iff_get_scalar) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { char *arg1 ; double *arg2 = (double *) 0 ; int result; int argvi = 0; dXSARGS; if ((items < 2) || (items > 2)) { SWIG_croak("Usage: iff_get_scalar(char *,double *);"); } if (!SvOK((SV*) ST(0))) arg1 = 0; else arg1 = (char *) SvPV(ST(0), PL_na); { if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_double,0) < 0) { SWIG_croak("Type error in argument 2 of iff_get_scalar. Expected _p_double"); } } result = (int)iff_get_scalar(arg1,arg2); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++), (IV) result); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_iff_put_scalar) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { char *arg1 ; double *arg2 = (double *) 0 ; int result; int argvi = 0; dXSARGS; if ((items < 2) || (items > 2)) { SWIG_croak("Usage: iff_put_scalar(char *,double *);"); } if (!SvOK((SV*) ST(0))) arg1 = 0; else arg1 = (char *) SvPV(ST(0), PL_na); { if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_double,0) < 0) { SWIG_croak("Type error in argument 2 of iff_put_scalar. Expected _p_double"); } } result = (int)iff_put_scalar(arg1,arg2); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++), (IV) result); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_iff_get_array) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { char *arg1 ; double *arg2 = (double *) 0 ; int result; int argvi = 0; dXSARGS; if ((items < 2) || (items > 2)) { SWIG_croak("Usage: iff_get_array(char *,double *);"); } if (!SvOK((SV*) ST(0))) arg1 = 0; else arg1 = (char *) SvPV(ST(0), PL_na); { if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_double,0) < 0) { SWIG_croak("Type error in argument 2 of iff_get_array. Expected _p_double"); } } result = (int)iff_get_array(arg1,arg2); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++), (IV) result); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_iff_put_array) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { char *arg1 ; int *arg2 = (int *) 0 ; double *arg3 = (double *) 0 ; int result; int argvi = 0; dXSARGS; if ((items < 3) || (items > 3)) { SWIG_croak("Usage: iff_put_array(char *,int *,double *);"); } if (!SvOK((SV*) ST(0))) arg1 = 0; else arg1 = (char *) SvPV(ST(0), PL_na); { if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_int,0) < 0) { SWIG_croak("Type error in argument 2 of iff_put_array. Expected _p_int"); } } { if (SWIG_ConvertPtr(ST(2), (void **) &arg3, SWIGTYPE_p_double,0) < 0) { SWIG_croak("Type error in argument 3 of iff_put_array. Expected _p_double"); } } result = (int)iff_put_array(arg1,arg2,arg3); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++), (IV) result); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_iff_get_echo) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { char *arg1 ; int result; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { SWIG_croak("Usage: iff_get_echo(char *);"); } if (!SvOK((SV*) ST(0))) arg1 = 0; else arg1 = (char *) SvPV(ST(0), PL_na); result = (int)iff_get_echo(arg1); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++), (IV) result); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_iff_strval) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { char *arg1 ; char *result; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { SWIG_croak("Usage: iff_strval(char *);"); } if (!SvOK((SV*) ST(0))) arg1 = 0; else arg1 = (char *) SvPV(ST(0), PL_na); result = (char *)iff_strval(arg1); ST(argvi) = sv_newmortal(); if (result) { sv_setpv((SV*)ST(argvi++), (char *) result); }else { sv_setsv((SV*)ST(argvi++), &PL_sv_undef); } XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_iff_scaval) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { char *arg1 ; double result; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { SWIG_croak("Usage: iff_scaval(char *);"); } if (!SvOK((SV*) ST(0))) arg1 = 0; else arg1 = (char *) SvPV(ST(0), PL_na); result = (double)iff_scaval(arg1); ST(argvi) = sv_newmortal(); sv_setnv(ST(argvi++), (double) result); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_ifeffit_) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { char *arg1 ; int arg2 ; int result; int argvi = 0; dXSARGS; if ((items < 2) || (items > 2)) { SWIG_croak("Usage: ifeffit_(char *,int);"); } if (!SvOK((SV*) ST(0))) arg1 = 0; else arg1 = (char *) SvPV(ST(0), PL_na); arg2 = (int) SvIV(ST(1)); result = (int)ifeffit_(arg1,arg2); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++), (IV) result); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_iffgetstr_) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { char *arg1 ; char *arg2 ; int arg3 ; int arg4 ; int result; int argvi = 0; dXSARGS; if ((items < 4) || (items > 4)) { SWIG_croak("Usage: iffgetstr_(char *,char *,int,int);"); } if (!SvOK((SV*) ST(0))) arg1 = 0; else arg1 = (char *) SvPV(ST(0), PL_na); if (!SvOK((SV*) ST(1))) arg2 = 0; else arg2 = (char *) SvPV(ST(1), PL_na); arg3 = (int) SvIV(ST(2)); arg4 = (int) SvIV(ST(3)); result = (int)iffgetstr_(arg1,arg2,arg3,arg4); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++), (IV) result); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_iffgetsca_) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { char *arg1 ; double *arg2 = (double *) 0 ; int arg3 ; int result; int argvi = 0; dXSARGS; if ((items < 3) || (items > 3)) { SWIG_croak("Usage: iffgetsca_(char *,double *,int);"); } if (!SvOK((SV*) ST(0))) arg1 = 0; else arg1 = (char *) SvPV(ST(0), PL_na); { if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_double,0) < 0) { SWIG_croak("Type error in argument 2 of iffgetsca_. Expected _p_double"); } } arg3 = (int) SvIV(ST(2)); result = (int)iffgetsca_(arg1,arg2,arg3); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++), (IV) result); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_iffgetarr_) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { char *arg1 ; double *arg2 = (double *) 0 ; int arg3 ; int result; int argvi = 0; dXSARGS; if ((items < 3) || (items > 3)) { SWIG_croak("Usage: iffgetarr_(char *,double *,int);"); } if (!SvOK((SV*) ST(0))) arg1 = 0; else arg1 = (char *) SvPV(ST(0), PL_na); { if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_double,0) < 0) { SWIG_croak("Type error in argument 2 of iffgetarr_. Expected _p_double"); } } arg3 = (int) SvIV(ST(2)); result = (int)iffgetarr_(arg1,arg2,arg3); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++), (IV) result); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_iffputarr_) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { char *arg1 ; int *arg2 = (int *) 0 ; double *arg3 = (double *) 0 ; int arg4 ; int result; int argvi = 0; dXSARGS; if ((items < 4) || (items > 4)) { SWIG_croak("Usage: iffputarr_(char *,int *,double *,int);"); } if (!SvOK((SV*) ST(0))) arg1 = 0; else arg1 = (char *) SvPV(ST(0), PL_na); { if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_int,0) < 0) { SWIG_croak("Type error in argument 2 of iffputarr_. Expected _p_int"); } } { if (SWIG_ConvertPtr(ST(2), (void **) &arg3, SWIGTYPE_p_double,0) < 0) { SWIG_croak("Type error in argument 3 of iffputarr_. Expected _p_double"); } } arg4 = (int) SvIV(ST(3)); result = (int)iffputarr_(arg1,arg2,arg3,arg4); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++), (IV) result); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_iffgetecho_) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { char *arg1 ; int arg2 ; int result; int argvi = 0; dXSARGS; if ((items < 2) || (items > 2)) { SWIG_croak("Usage: iffgetecho_(char *,int);"); } if (!SvOK((SV*) ST(0))) arg1 = 0; else arg1 = (char *) SvPV(ST(0), PL_na); arg2 = (int) SvIV(ST(1)); result = (int)iffgetecho_(arg1,arg2); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++), (IV) result); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_new_Pint) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { int *result; int argvi = 0; dXSARGS; if ((items < 0) || (items > 0)) { SWIG_croak("Usage: new_Pint();"); } result = (int *)new_Pint(); ST(argvi) = sv_newmortal(); SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_int,0); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_copy_Pint) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { int arg1 ; int *result; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { SWIG_croak("Usage: copy_Pint(value);"); } arg1 = (int) SvIV(ST(0)); result = (int *)copy_Pint(arg1); ST(argvi) = sv_newmortal(); SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_int,0); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_delete_Pint) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { int *arg1 = (int *) 0 ; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { SWIG_croak("Usage: delete_Pint(self);"); } { if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_int,0) < 0) { SWIG_croak("Type error in argument 1 of delete_Pint. Expected _p_int"); } } delete_Pint(arg1); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_Pint_assign) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { int *arg1 = (int *) 0 ; int arg2 ; int argvi = 0; dXSARGS; if ((items < 2) || (items > 2)) { SWIG_croak("Usage: Pint_assign(self,value);"); } { if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_int,0) < 0) { SWIG_croak("Type error in argument 1 of Pint_assign. Expected _p_int"); } } arg2 = (int) SvIV(ST(1)); Pint_assign(arg1,arg2); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_Pint_value) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { int *arg1 = (int *) 0 ; int result; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { SWIG_croak("Usage: Pint_value(self);"); } { if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_int,0) < 0) { SWIG_croak("Type error in argument 1 of Pint_value. Expected _p_int"); } } result = (int)Pint_value(arg1); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++), (IV) result); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_new_Pdbl) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { double *result; int argvi = 0; dXSARGS; if ((items < 0) || (items > 0)) { SWIG_croak("Usage: new_Pdbl();"); } result = (double *)new_Pdbl(); ST(argvi) = sv_newmortal(); SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_double,0); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_copy_Pdbl) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { double arg1 ; double *result; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { SWIG_croak("Usage: copy_Pdbl(value);"); } arg1 = (double) SvNV(ST(0)); result = (double *)copy_Pdbl(arg1); ST(argvi) = sv_newmortal(); SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_double,0); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_delete_Pdbl) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { double *arg1 = (double *) 0 ; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { SWIG_croak("Usage: delete_Pdbl(self);"); } { if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_double,0) < 0) { SWIG_croak("Type error in argument 1 of delete_Pdbl. Expected _p_double"); } } delete_Pdbl(arg1); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_Pdbl_assign) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { double *arg1 = (double *) 0 ; double arg2 ; int argvi = 0; dXSARGS; if ((items < 2) || (items > 2)) { SWIG_croak("Usage: Pdbl_assign(self,value);"); } { if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_double,0) < 0) { SWIG_croak("Type error in argument 1 of Pdbl_assign. Expected _p_double"); } } arg2 = (double) SvNV(ST(1)); Pdbl_assign(arg1,arg2); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_Pdbl_value) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { double *arg1 = (double *) 0 ; double result; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { SWIG_croak("Usage: Pdbl_value(self);"); } { if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_double,0) < 0) { SWIG_croak("Type error in argument 1 of Pdbl_value. Expected _p_double"); } } result = (double)Pdbl_value(arg1); ST(argvi) = sv_newmortal(); sv_setnv(ST(argvi++), (double) result); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_new_Parr) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { int arg1 ; double *result; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { SWIG_croak("Usage: new_Parr(nelements);"); } arg1 = (int) SvIV(ST(0)); result = (double *)new_Parr(arg1); ST(argvi) = sv_newmortal(); SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_double,0); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_delete_Parr) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { double *arg1 = (double *) 0 ; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) { SWIG_croak("Usage: delete_Parr(ary);"); } { if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_double,0) < 0) { SWIG_croak("Type error in argument 1 of delete_Parr. Expected _p_double"); } } delete_Parr(arg1); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_Parr_getitem) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { double *arg1 = (double *) 0 ; int arg2 ; double result; int argvi = 0; dXSARGS; if ((items < 2) || (items > 2)) { SWIG_croak("Usage: Parr_getitem(ary,index);"); } { if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_double,0) < 0) { SWIG_croak("Type error in argument 1 of Parr_getitem. Expected _p_double"); } } arg2 = (int) SvIV(ST(1)); result = (double)Parr_getitem(arg1,arg2); ST(argvi) = sv_newmortal(); sv_setnv(ST(argvi++), (double) result); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } XS(_wrap_Parr_setitem) { char _swigmsg[SWIG_MAX_ERRMSG] = ""; const char *_swigerr = _swigmsg; { double *arg1 = (double *) 0 ; int arg2 ; double arg3 ; int argvi = 0; dXSARGS; if ((items < 3) || (items > 3)) { SWIG_croak("Usage: Parr_setitem(ary,index,value);"); } { if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_double,0) < 0) { SWIG_croak("Type error in argument 1 of Parr_setitem. Expected _p_double"); } } arg2 = (int) SvIV(ST(1)); arg3 = (double) SvNV(ST(2)); Parr_setitem(arg1,arg2,arg3); XSRETURN(argvi); fail: (void) _swigerr; } croak(_swigerr); } /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */ static swig_type_info _swigt__p_double[] = {{"_p_double", 0, "double *", 0},{"_p_double"},{0}}; static swig_type_info _swigt__p_int[] = {{"_p_int", 0, "int *", 0},{"_p_int"},{0}}; static swig_type_info *swig_types_initial[] = { _swigt__p_double, _swigt__p_int, 0 }; /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */ static swig_constant_info swig_constants[] = { {0} }; #ifdef __cplusplus } #endif static swig_variable_info swig_variables[] = { {0} }; static swig_command_info swig_commands[] = { {"Ifeffit::iff_exec", _wrap_iff_exec}, {"Ifeffit::iff_ifeffit", _wrap_ifeffit}, {"Ifeffit::iff_get_string", _wrap_iff_get_string}, {"Ifeffit::iff_put_string", _wrap_iff_put_string}, {"Ifeffit::iff_get_scalar", _wrap_iff_get_scalar}, {"Ifeffit::iff_put_scalar", _wrap_iff_put_scalar}, {"Ifeffit::iff_get_array", _wrap_iff_get_array}, {"Ifeffit::iff_put_array", _wrap_iff_put_array}, {"Ifeffit::iff_get_echo", _wrap_iff_get_echo}, {"Ifeffit::iff_strval", _wrap_iff_strval}, {"Ifeffit::iff_scaval", _wrap_iff_scaval}, {"Ifeffit::ifeffit_", _wrap_ifeffit_}, {"Ifeffit::iffgetstr_", _wrap_iffgetstr_}, {"Ifeffit::iffgetsca_", _wrap_iffgetsca_}, {"Ifeffit::iffgetarr_", _wrap_iffgetarr_}, {"Ifeffit::iffputarr_", _wrap_iffputarr_}, {"Ifeffit::iffgetecho_", _wrap_iffgetecho_}, {"Ifeffit::new_Pint", _wrap_new_Pint}, {"Ifeffit::copy_Pint", _wrap_copy_Pint}, {"Ifeffit::delete_Pint", _wrap_delete_Pint}, {"Ifeffit::Pint_assign", _wrap_Pint_assign}, {"Ifeffit::Pint_value", _wrap_Pint_value}, {"Ifeffit::new_Pdbl", _wrap_new_Pdbl}, {"Ifeffit::copy_Pdbl", _wrap_copy_Pdbl}, {"Ifeffit::delete_Pdbl", _wrap_delete_Pdbl}, {"Ifeffit::Pdbl_assign", _wrap_Pdbl_assign}, {"Ifeffit::Pdbl_value", _wrap_Pdbl_value}, {"Ifeffit::new_Parr", _wrap_new_Parr}, {"Ifeffit::delete_Parr", _wrap_delete_Parr}, {"Ifeffit::Parr_getitem", _wrap_Parr_getitem}, {"Ifeffit::Parr_setitem", _wrap_Parr_setitem}, {0,0} }; #ifdef __cplusplus extern "C" #endif XS(SWIG_init) { dXSARGS; int i; static int _init = 0; if (!_init) { for (i = 0; swig_types_initial[i]; i++) { swig_types[i] = SWIG_TypeRegister(swig_types_initial[i]); } _init = 1; } /* Install commands */ for (i = 0; swig_commands[i].name; i++) { newXS((char*) swig_commands[i].name,swig_commands[i].wrapper, (char*)__FILE__); } /* Install variables */ for (i = 0; swig_variables[i].name; i++) { SV *sv; sv = perl_get_sv((char*) swig_variables[i].name, TRUE | 0x2); if (swig_variables[i].type) { SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0); }else { sv_setiv(sv,(IV) 0); } swig_create_magic(sv, (char *) swig_variables[i].name, swig_variables[i].set, swig_variables[i].get); } /* Install constant */ for (i = 0; swig_constants[i].type; i++) { SV *sv; sv = perl_get_sv((char*)swig_constants[i].name, TRUE | 0x2); switch(swig_constants[i].type) { case SWIG_INT: sv_setiv(sv, (IV) swig_constants[i].lvalue); break; case SWIG_FLOAT: sv_setnv(sv, (double) swig_constants[i].dvalue); break; case SWIG_STRING: sv_setpv(sv, (char *) swig_constants[i].pvalue); break; case SWIG_POINTER: SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0); break; case SWIG_BINARY: /* obj = SWIG_NewPackedObj(swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype)); */ break; default: break; } SvREADONLY_on(sv); } ST(0) = &PL_sv_yes; XSRETURN(1); } ifeffit-1.2.11d/wrappers/perl/test_a.pl0000644000175000017500000000052410771740460017000 0ustar segresegreuse lib '.'; use Ifeffit qw(ifeffit get_scalar); print " pi = ".get_scalar("pi")."\n"; print "-------------\n"; ifeffit("e0 = 7112.0"); print "-------------\n"; ifeffit(" print(' e0 = ' e0 'eV')"); print "-------------\n"; # $str = Ifeffit::get_echo(); print " ==> $str\n"; # $str = Ifeffit::get_echo(); print " ==> $str\n"; # ifeffit-1.2.11d/wrappers/perl/ifeffit.h0000644000175000017500000000326010771740460016751 0ustar segresegre/************************* * C header file Ifeffit * *************************/ #if defined(WIN32) || defined(_WIN32) || defined(__WIN32__) #define IFF_EXPORT(a) __declspec(dllexport) a _stdcall #define IFF_INTERN(a) a _stdcall #else #define IFF_EXPORT(a) a #define IFF_INTERN(a) a #endif /* main interface routines */ IFF_EXPORT(int) iff_exec(char *); IFF_EXPORT(int) ifeffit(char *); IFF_EXPORT(int) iff_get_string(char *, char *); IFF_EXPORT(int) iff_put_string(char *, char *); IFF_EXPORT(int) iff_get_scalar(char *, double *); IFF_EXPORT(int) iff_put_scalar(char *, double *); IFF_EXPORT(int) iff_get_array(char *, double *); IFF_EXPORT(int) iff_put_array(char *, int *, double *); IFF_EXPORT(int) iff_get_echo(char *); IFF_EXPORT(char*) iff_strval(char *); IFF_EXPORT(double) iff_scaval(char *); /* raw interfaces to the fortran functions: these may need system level alterations as they assume 1.trailing underscore 2.char lengths as int at end of argument list these appear to be the unix norm. */ #if defined(WIN32) || defined(_WIN32) || defined(__WIN32__) int _stdcall IFFEXECF(char *, int); int _stdcall IFFGETSTR(char *, int, char *, int); int _stdcall IFFGETSCA(char *, int, double *); int _stdcall IFFGETARR(char *, int, double *); int _stdcall IFFPUTARR(char *, int, int *, double *); int _stdcall IFFGETECHO(char *, int); char* _stdcall IFF_STRVAL(char *); double _stdcall IFF_SCAVAL(char *); #else int ifeffit_(char *, int); int iffgetstr_(char *, char *, int, int); int iffgetsca_(char *, double *, int); int iffgetarr_(char *, double *, int); int iffputarr_(char *, int *, double *, int); int iffgetecho_(char *, int); #endif /* end */ ifeffit-1.2.11d/wrappers/perl/test.pl0000644000175000017500000001017710771740460016505 0ustar segresegre#!/usr/bin/perl -w use lib '.'; $| = 1; print "=== Testing Ifeffit Perl Module ===\n"; $test = 0; $pass = 0; #---------------------------------------------------------------- # load ifeffit $test++; print "==============\n <$test>: loading Ifeffit .. "; eval "use Ifeffit"; if ($@ ne "") {print "FAILED\n"; die;} use Ifeffit qw(get_scalar get_string get_array); use Ifeffit qw(put_scalar put_string put_array); use Ifeffit qw(get_echo); $pass++; #---------------------------------------------------------------- # call ifeffit $test++; print "==============\n <$test>: simple call to ifeffit:\t ifeffit(\"x = 1.23450\");\n"; $i = ifeffit( "x = 1.234500"); if ($i eq 0) { print " Looks good. Let's look at the result with ifeffit(\"show x\") \n"; print " you should see \"x = 1.2345\" on the line below ...\n"; ifeffit( "show x"); } else { print "\tLooks bad.\n"; } $pass++; #---------------------------------------------------------------- # here doc $test++; print "==============\n <$test>: send a perl 'here-document' to ifeffit:\n"; # -------- my ($file, $type, $kweight) = ("a.xmu", "xmu", 1); my $read_data =<<"END"; set (kmin = 0., kweight = $kweight, rbkg = 1.2) read_data(file = $file, prefix = my, type = $type) END print "$read_data"; $i = ifeffit($read_data); if ($i eq 0) { print " ifeffit read xmu data and has and arrays:\n"; ifeffit(" show my.energy, my.xmu"); } else { print "\tLooks bad.\n"; } $pass++; #---------------------------------------------------------------- # get scalar $test++; print "==============\n <$test>: get_scalar:\n"; print " \t \$x = get_scalar(\"x\");\n"; my $x = get_scalar("x"); print " x = $x\n"; $pass++; #---------------------------------------------------------------- # put scalar $test++; print "==============\n <$test>: put_scalar:\n"; print " \t \$phi = put_scalar(\"phi\", 1.605);\n"; my $phi = put_scalar("phi", 1.605); print " gives \$phi = $phi , and ifeffit(\"print phi\") shows:\n"; ifeffit("print phi"); $pass++; #---------------------------------------------------------------- # put string $test++; print "==============\n <$test>: use perl's put_string\n"; print " \t put_string(\"\$filename\", \"my.xmu\")\n"; put_string("\$filename", "my.xmu"); print " \t ifeffit (\" show \$filename\"):\n"; ifeffit (" show \$filename"); $pass++; #---------------------------------------------------------------- # get string $test++; print "==============\n <$test>: get_string\n"; print " get_string('filename') returns: ". get_string('filename')."\n"; print " get_string('&build') returns: ". get_string('&build')."\n"; $pass++; #---------------------------------------------------------------- # put array $test++; print "==============\n <$test>: put_array\n"; print " an array made within perl :\n"; for ($i = 0; $i< 5; $i++ ) { $z[$i] = sin($i * 799 + 99.111);} print "[ ". join(", ",@z), "]\n was sent to Ifeffit array my.test:\n"; $i = put_array("my.test", \@z); ifeffit("show my.test"); $pass++; #---------------------------------------------------------------- # get array $test++; print "==============\n <$test>: get_array('my.test')\n"; @e = get_array("my.test"); print " result: [ ". join(", ",@e), "]\n"; print "==============\n Tests Done\n"; $pass++; #---------------------------------------------------------------- # get echo $test++; print "==============\n <$test>: get_echo: \n"; ifeffit( "&screen_echo = 0"); ifeffit( "show \@scalars"); ifeffit( "show \@strings"); $n_echo = get_scalar("&echo_lines"); print " now doing get_echo (from 'show \@scalars': $n_echo lines)\n"; for ($i = 0; $i<$n_echo ; $i++) { $str = get_echo(); print " $str \n"; } print "==== simple print of array, using get_echo to cache results:\n"; ifeffit( "print indarr(30)"); my $n_echo = get_scalar("&echo_lines"); for ($i = 0; $i<$n_echo ; $i++) { $str = get_echo(); print "::> $str \n"; } $pass++; END { print "==============\n Tests Done: "; print " Passed $pass / $test tests ... "; if ($pass == $test) { print " Looks good!\n"; } else { print " Uh oh!\n"; } } ifeffit-1.2.11d/wrappers/perl/Ifeffit.bs0000644000175000017500000000000011053150431017036 0ustar segresegreifeffit-1.2.11d/wrappers/perl/ExtUtils/0000755000175000017500000000000010771740460016744 5ustar segresegreifeffit-1.2.11d/wrappers/perl/ExtUtils/F77.pm0000644000175000017500000003464510771740460017661 0ustar segresegre package ExtUtils::F77; use Config; =head1 NAME ExtUtils::F77 - Simple interface to F77 libs =head1 DESCRIPTION This module tries to figure out how to link C programs with Fortran subroutines on your system. Basically one must add a list of Fortran runtime libraries. The problem is their location and name varies with each OS/compiler combination! This module tries to implement a simple 'rule-of-thumb' database for various flavours of UNIX systems. A simple self-documenting Perl database of knowledge/code for figuring out how to link for various combinations of OS and compiler is embedded in the modules Perl code. Please help save the world by sending database entries for your system to kgb@aaoepp.aao.gov.au The library list which the module returns can be explicitly overridden by setting the environment variable F77LIBS, e.g. % setenv F77LIBS "-lfoo -lbar" % perl Makefile.PL ... =cut $VERSION = "1.11_br"; # Database starts here. Basically we have a large hash specifying # entries for each os/compiler combination. Entries can be code refs # in which case they are executed and the returned value used. This # allows us to be quite smart. # Hash key convention is uppercase first letter of # hash keys. First key is usually the name of the architecture as # returned by Config (modulo ucfirst()). %F77config=(); ### SunOS (use this as a template for new entries) ### # Code to figure out and return link-string for this architecture # Returns false if it can't find anything sensible. $F77config{Sunos}{F77}{Link} = sub { $dir = find_highest_SC("/usr/lang/SC*"); return "" unless $dir; # Failure print "$Pkg: Found Fortran latest version lib dir $dir\n"; return "-L$dir -lF77 -lm"; }; # Whether symbols (subroutine names etc.) have trailing underscores # (true/false) $F77config{Sunos}{F77}{Trail_} = 1; # Name of default compiler - corresponds to one of the above keys $F77config{Sunos}{DEFAULT} = 'F77'; # Program to run to actually compile stuff $F77config{Sunos}{F77}{Compiler} = 'f77'; # Associated compiler flags $F77config{Sunos}{F77}{Cflags} = '-O'; # Associated compiler flags for shared libraries ## BR Jun 30 1999 I have only added entries for the two systems for ## which I actually know the answer -- g77 and irix $F77config{Sunos}{F77}{Share} = ''; ############ Rest of database is here ############ ### Solaris ### $F77config{Solaris}{F77}{Link} = sub { $dir = find_highest_SC("/opt/SUNWspro/SC*/lib"); return "" unless $dir; # Failure print "$Pkg: Found Fortran latest version lib dir $dir\n"; return "-L$dir -lF77 -lM77 -lsunmath -lm"; }; $F77config{Solaris}{F77}{Trail_} = 1; $F77config{Solaris}{F77}{Compiler} = 'f77'; $F77config{Solaris}{F77}{Cflags} = '-O'; $F77config{Solaris}{F77}{Share} = ''; $F77config{Solaris}{DEFAULT} = 'F77'; ### Generic GNU-77 or F2C system ### $F77config{Generic}{G77}{Link} = sub { my @libs = ( 'f2c', 'g2c'); my ($dir, $lib, $test); foreach $test (@libs) { $dir = `g77 -print-file-name=lib$test.a`; chomp $dir; # Note that -print-file-name returns just the library name # if it cant be found - make sure that we only accept the # directory if it returns a proper path (or matches a /) if (defined $dir && $dir ne "lib$test.a") { $lib = $test; # Found an existing library last; } } if( defined $dir && defined $lib) { $dir =~ s,/lib$lib.a$,,; } else { $dir = "/usr/local/lib"; $lib = "f2c"; } return( "-L$dir -L/usr/lib -l$lib -lm" ); }; $F77config{Generic}{G77}{Trail_} = 1; $F77config{Generic}{G77}{Compiler} = find_in_path('g77','f77','fort77'); $F77config{Generic}{G77}{Cflags} = '-O'; $F77config{Generic}{G77}{Share} = '-shared -fpic'; $F77config{Generic}{DEFAULT} = 'G77'; $F77config{Generic}{F2c} = $F77config{Generic}{G77}; ### cygwin ### #"-lg2c -lm"; # needed this on my cygwin system to get things working properly sub getcyglink { return join ' ', map {my $lp = `g77 -print-file-name=lib$_.a`; $lp =~ s|/[^/]+$||; $lp =~ s|L([a-z,A-Z]):|L//$1|g; "-L$lp -l$_"} qw/g2c m/; } $F77config{Cygwin}{G77}{Trail_} = 1; $F77config{Cygwin}{G77}{Compiler} = 'g77'; $F77config{Cygwin}{G77}{Cflags} = '-O'; $F77config{Cygwin}{G77}{Link} = \&getcyglink; $F77config{Cygwin}{DEFAULT} = 'G77'; ### Linux ### $F77config{Linux}{G77} = $F77config{Generic}{G77}; $F77config{Linux}{F2c} = $F77config{Generic}{G77}; $F77config{Linux}{DEFAULT} = 'G77'; ### DEC OSF/1 ### $F77config{Dec_osf}{F77}{Link} = "-L/usr/lib -lUfor -lfor -lFutil -lm -lots -lc"; $F77config{Dec_osf}{F77}{Trail_} = 1; $F77config{Dec_osf}{F77}{Compiler} = 'f77'; $F77config{Dec_osf}{F77}{Cflags} = '-O'; $F77config{Dec_osf}{F77}{Share} = ''; $F77config{Dec_osf}{DEFAULT} = 'F77'; ### HP/UX ### $F77config{Hpux}{F77}{Link} = "-L/usr/lib -lcl -lm"; $F77config{Hpux}{F77}{Trail_} = 0; $F77config{Hpux}{F77}{Compiler} = 'f77'; $F77config{Hpux}{F77}{Cflags} = '-O +z'; $F77config{Hpux}{F77}{Share} = ''; $F77config{Hpux}{DEFAULT} = 'F77'; ### IRIX ### if ($Config{'cc'} =~ /-n32/) # Modified by Allen Smith { if (($Config{'cc'} =~ /-mips4/) && (-r "/usr/lib32/mips4") && (-d _) && (-x _)) { $F77config{Irix}{F77}{Cflags} = "-n32 -mips4"; if ((-r "/usr/lib32/mips4") && (-d _) && (-x _)) { $F77config{Irix}{F77}{Link} = "-L/usr/lib32/mips4 -L/usr/lib32 -lftn -lm"; } } elsif (($Config{'cc'} =~ /-mips3/) && (-r "/usr/lib32/mips3") && (-d _) && (-x _)) { $F77config{Irix}{F77}{Cflags} = "-n32 -mips3"; if ((-r "/usr/lib32/mips3") && (-d _) && (-x _)) { $F77config{Irix}{F77}{Link} = "-L/usr/lib32/mips4 -L/usr/lib32 -lftn -lm"; } } else { $F77config{Irix}{F77}{Cflags} = "-n32"; $F77config{Irix}{F77}{Link} = "-L/usr/lib32 -lftn -lm"; } } else { $F77config{Irix}{F77}{Link} = "-L/usr/lib -lF77 -lI77 -lU77 -lisam -lm"; } ## probably this depends on the switches above also... $F77config{Irix}{F77}{Share} = '-KPIC -shared'; $F77config{Irix}{F77}{Trail_} = 1; $F77config{Irix}{F77}{Compiler} = $Config{cc} =~ /-n32/ ? 'f77 -n32' : 'f77 -o32'; $F77config{Irix}{DEFAULT} = 'F77'; ### AIX ### $F77config{Aix}{F77}{Link} = "-L/usr/lib -lxlf90 -lxlf -lc -lm"; $F77config{Aix}{F77}{Trail_} = 0; $F77config{Aix}{DEFAULT} = 'F77'; ### FreeBSD ### $F77config{Freebsd}{F77}{Trail_} = 1; $F77config{Freebsd}{F77}{Link} = '-L/usr/lib -lf2c -lm'; $F77config{Freebsd}{DEFAULT} = 'F77'; ### VMS ### $F77config{VMS}{Fortran}{Trail_} = 0; $F77config{VMS}{Fortran}{Link} = ''; $F77config{VMS}{DEFAULT} = 'Fortran'; $F77config{VMS}{Fortran}{Compiler} = 'Fortran'; ############ End of database is here ############ =head1 SYNOPSIS use ExtUtils::F77; # Automatic guess use ExtUtils::F77 qw(sunos); # Specify system use ExtUtils::F77 qw(linux g77); # Specify system and compiler $fortranlibs = ExtUtils::F77->runtime; =cut # Package variables $Runtime = "-LSNAFU -lwontwork"; $RuntimeOK = 0; $Trail_ = 1; $Pkg = ""; $Compiler = ""; $Cflags = ""; $Share = ""; sub get; # See below # All the figuring out occurs during import - this is because # a lot of the answers depend on a lot of the guesswork. sub import { $Pkg = shift; my $system = ucfirst(shift); # Set package variables my $compiler = ucfirst(shift); # Guesses if system/compiler not specified. $system = ucfirst $Config{'osname'} unless $system; $system = 'Cygwin' if $system =~ /Cygwin/; $compiler = get $F77config{$system}{DEFAULT} unless $compiler; print "$Pkg: Using system=$system compiler=$compiler\n"; if (defined($ENV{F77LIBS})) { print "Overriding Fortran libs from value of enviroment variable F77LIBS = $ENV{F77LIBS}\n"; $Runtime = $ENV{F77LIBS}; } else { # Try this combination if (defined( $F77config{$system} )){ my $flibs = get ($F77config{$system}{$compiler}{Link}); if ($flibs ne "") { $Runtime = $flibs . gcclibs(); $Runtime =~ s|L([a-z,A-Z]):|L//$1|g if $^O =~ /cygwin/i; print "Runtime: $Runtime\n"; $ok = 1; $ok = validate_libs($Runtime) if $flibs ne ""; } }else { $Runtime = $ok = ""; } # If it doesn't work try Generic + GNU77 unless (defined($Runtime) && $ok) { print <<"EOD"; $Pkg: Unable to guess and/or validate system/compiler configuration $Pkg: Will try system=Generic Compiler=G77 EOD $system = "Generic"; $compiler = "G77"; my $flibs = get ($F77config{$system}{$compiler}{Link}); $Runtime = $flibs. gcclibs(); $ok = validate_libs($Runtime) if $flibs ne ""; print "$Pkg: Well that didn't appear to validate. Well I will try it anyway.\n" unless $Runtime && $ok; } $RuntimeOK = $ok; } # Not overriding # Now get the misc info for the methods. if (defined( $F77config{$system}{$compiler}{Trail_} )){ $Trail_ = get $F77config{$system}{$compiler}{Trail_}; } else{ print << "EOD"; $Pkg: There does not appear to be any configuration info about $Pkg: names with trailing underscores for system $system. Will assume $Pkg: F77 names have trailing underscores. EOD $Trail_ = 1; } if (defined( $F77config{$system}{$compiler}{Compiler} )) { $Compiler = $F77config{$system}{$compiler}{Compiler}; } else { print << "EOD"; $Pkg: There does not appear to be any configuration info about $Pkg: the F77 compiler name. Will assume 'f77'. EOD $Compiler = 'f77'; } print "$Pkg: Compiler: $Compiler\n"; if (defined( $F77config{$system}{$compiler}{Cflags} )) { $Cflags = $F77config{$system}{$compiler}{Cflags}; } else { print << "EOD"; $Pkg: There does not appear to be any configuration info about $Pkg: the options for the F77 compiler. Will assume none $Pkg: necessary. EOD $Cflags = ''; } print "$Pkg: Cflags: $Cflags\n"; ## snippet added by BR Jun 30 1999 if (defined( $F77config{$system}{$compiler}{Share} )) { $Share = $F77config{$system}{$compiler}{Share}; } else { print << "EOD"; $Pkg: There does not appear to be any configuration info about $Pkg: shared library options for the F77 compiler. Will assume $Pkg: none necessary. EOD $Share = ''; } print "$Pkg: Share: $Share\n"; ## end of snippet by BR } # End of import () =head1 METHODS The following methods are provided: =over 4 =item * B Returns a list of F77 runtime libraries. $fortranlibs = ExtUtils::F77->runtime; =item * B Returns TRUE only if runtime libraries have been found successfully. =item * B Returns true if F77 names have trailing underscores. =item * B Returns command to execute the compiler (e.g. 'f77'). =item * B Returns compiler flags. =item * B Returns compiler flags for building shared libraries. =item * B Test to see if compiler actually works. =back More methods will probably be added in the future. =cut sub runtime { return $Runtime; } sub runtimeok { return $RuntimeOK; } sub trail_ { return $Trail_; } sub compiler { return $Compiler; } sub cflags { return $Cflags; } sub share { return $Share; } ### Minor internal utility routines ### # Get hash entry, evaluating code references sub get { ref($_[0]) eq "CODE" ? &{$_[0]} : $_[0] }; # Test if any files exist matching glob sub any_exists { my @glob = glob(shift); return scalar(@glob); } # Find highest version number of SCN.N(.N) directories # (Nasty SunOS/Solaris naming scheme for F77 libs] sub find_highest_SC { print "$Pkg: Scanning for $_[0]\n"; my @glob = glob(shift); my %n=(); for (@glob) { #print "Found $_\n"; if ( m|/SC(\d)\.(\d)/?.*$| ) { $n{$_} = $1 *100 + $2 * 10; } if ( m|/SC(\d)\.(\d)\.(\d)/?.*$| ) { $n{$_} = $1 *100 + $2 * 10 + $3; } } my @sorted_dirs = sort {$n{$a} <=> $n{$b}} @glob; return pop @sorted_dirs; # Highest N } # Validate a string of form "-Ldir -lfoo -lbar" sub validate_libs { print "$Pkg: Validating $_[0] "; my @args = split(' ',shift()); my $pat; my $ret = 1; # Create list of directories to search (with common defaults) my @path = (); for (@args, "/usr/lib", "/lib") { push @path, $1 if /^-L(.+)$/ && -d $1; } # Search directories for (@args) { next if /^-L/; next if $_ eq "-lm"; # Ignore this common guy if (/^-l(.+)$/) { $pat = join(" ", map {$_."/lib".$1.".*"} @path); # Join dirs + file #print "Checking for $pat\n"; unless (any_exists($pat)) { print "\n$Pkg: Unable to find library $_" ; $ret = 0; } } } print $ret ? "[ok]\n" : "\n"; return $ret; } sub testcompiler { my $file = "/tmp/testf77$$"; my $ret; open(OUT,">$file.f"); print OUT " print *, 'Hello World'\n"; print OUT " end\n"; close(OUT); print "Compiling the test Fortran program...\n"; system "$Compiler $Cflags $file.f -o ${file}_exe"; print "Executing the test program...\n"; if (`${file}_exe` ne " Hello World\n") { print "Test of Fortran Compiler FAILED. \n"; print "Do not know how to compile Fortran on your system\n"; $ret=0; } else{ print "Congratulations you seem to have a working f77!\n"; $ret=1; } unlink("${file}_exe"); unlink("$file.f"); unlink("$file.o") if -e "$file.o"; return $ret; }; # Return gcc libs (e.g. -L/usr/local/lib/gcc-lib/sparc-sun-sunos4.1.3_U1/2.7.0 -lgcc) sub gcclibs { my $isgcc = $Config{'cc'} eq 'gcc'; if (!$isgcc && $^O ne 'VMS') { print "Checking for gcc in disguise:\n"; $isgcc = 1 if $Config{gccversion}; my $string; if ($isgcc) { $string = "Compiler is gcc version $Config{gccversion}"; $string .= "\n" unless $string =~ /\n$/; } else { $string = "Not gcc\n"; } print $string; } if ($isgcc) { $gccdir = `gcc -print-libgcc-file-name`; chomp $gccdir; $gccdir =~ s/\/libgcc.a//; return " -L$gccdir -lgcc"; }else{ return ""; } } # Try and find a program in the users PATH sub find_in_path { my @names = @_; my @path = split(":",$ENV{PATH}); my ($name,$dir); for $name (@names) { for $dir (@path) { if (-x $dir."/$name") { print "Found compiler $name\n"; return $name; } } } return '' if $^O eq 'VMS'; die "Unable to find a fortran compiler using names: ".join(" ",@names); } =head1 AUTHOR Karl Glazebrook (kgb@aaoepp.aao.GOV.AU). =cut 1; # Return true ifeffit-1.2.11d/wrappers/perl/MANIFEST0000644000175000017500000000021010771740460016305 0ustar segresegreChanges Ifeffit.pm MANIFEST Makefile.PL README a.xmu dot.ifeffit_macros dot.ifeffitrc ifeffit_shell.pl ifeffit_wrap.c test.pl test_a.pl ifeffit-1.2.11d/wrappers/perl/dot.ifeffitrc0000644000175000017500000000025610771740460017637 0ustar segresegre# # start-up perl for ifeffit push @shell_commands, qw(less emacs grep diff); push @ifeffit_commands, qw(bkg make_ps); # ifeffit(" load $HOME/.ifeffit_macros"); # 1; ifeffit-1.2.11d/wrappers/perl/dot.ifeffit_macros0000644000175000017500000000436610771740460020664 0ustar segresegre macro pf "A.dat", "2" "simple plot of a file" read_data($1, type=raw, group=my) plot(my.1, my.$2, $3) end macro macro bkg "x.xmu", "my", "rbkg=1" "very simple background subtraction" read_data( $1, type=xmu, group=$2) kweight = 1 rbkg = 1.0 spline ($2.energy, $2.xmu, kmin = 0, kmax = 0,$3) newplot($2.energy, $2.xmu, group, color = blue) plot ($2.energy, $2.bkg, style = dashed, color = tomato ) end macro macro pre "x.xmu" "quick pre-edge subtraction" read_data( $1, type=xmu, group=my) pre_edge(energy, xmu) end macro macro feff_path "0001" "define a path from a feff file" path ($1, feff$1.dat, label = $1, $2) end macro macro make_ps ifeffit.ps /cps "dump plot to a postscript file" plot(device=$2, file= $1) plot(device="/xserve",file= "") end macro macro make_gif "dump plot to a gif file" plot(device="/gif",file= $1) plot(device="/xserve",file= "") end macro macro testplot "test plot" my.x = indarr(500)/35. my.y1 = (exp(-my.x / 13) * 2* cos(my.x *2.3 )) my.y2 = (exp(-my.x/ 7.5) * (20/sqrt(my.x)) * sin(my.x/5) * (cos(my.x*4)) + cos((my.x+2.50)*2) / 4 ) newplot(my.x,my.y1, color=red) plot(my.x,my.y2, color=blue) end macro macro srfit "plot R-space data/fit from Feffit files' read_data($1r.dat, type = rsp, group = dat) read_data($1r.fit, type = rsp, group = fit) newplot(r,chir_mag, group=dat, $2) plot(r,chir_mag, group=fit, $3) end macro macro skfit "plot k-space data/fit from Feffit files' read_data($1k.dat, type = chi, group = dat) read_data($1k.fit, type = chi, group = fit) newplot(k,chi, group=dat, $2) plot(k,chi, group=fit, $3) end macro macro skwfit "plot k-weighted k-space data/fit from Feffit files' read_data($1k.dat, type = chi, group = dat) read_data($1k.fit, type = chi, group = fit) dat.chik = dat.chi * dat.k^($2) fit.chik = fit.chi * fit.k^($2) newplot(k,chik, group=dat, $3) plot(k,chik, group=fit, $4) end macro macro sqfit "plot Q-space data/fit from Feffit files' read_data($1q.dat, type = chi, group = qdat) read_data($1q.fit, type = chi, group = qfit) newplot(k,chi, group=qdat, $2) plot(k,chi, group=qfit, $3) end macro ifeffit-1.2.11d/wrappers/perl/Makefile0000644000175000017500000006700711053150430016617 0ustar segresegre# This Makefile is for the Ifeffit extension to perl. # # It was generated automatically by MakeMaker version # 6.30 (Revision: Revision: 4535 ) from the contents of # Makefile.PL. Don't edit this file, edit Makefile.PL instead. # # ANY CHANGES MADE HERE WILL BE LOST! # # MakeMaker ARGV: () # # MakeMaker Parameters: # INC => q[-I../../src/lib -I/usr/local/share/ifeffit/config] # INSTALLBIN => q[/usr/local/bin] # INSTALLSCRIPT => q[/usr/local/bin] # LDDLFLAGS => q[-shared] # LIBS => [q[-L../../src/lib -lifeffit -L/usr/local/share/ifeffit/pgplot -lpgplot_iff -lpng -lz -lX11 -L/lib/../lib64 -L/usr/lib/../lib64 -L/usr/lib/gcc/x86_64-redhat-linux/4.1.1 -L/usr/lib/gcc/x86_64-redhat-linux/4.1.1/../../../../lib64 -lgcc_s -lgfortran -lgfortranbegin -lm]] # NAME => q[Ifeffit] # OBJECT => q[ifeffit_wrap.o] # SKIP => [q[test_dynamic]] # --- MakeMaker post_initialize section: # --- MakeMaker const_config section: # These definitions are from config.sh (via /usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/Config.pm) # They may have been overridden via Makefile.PL or on the command line AR = ar CC = gcc CCCDLFLAGS = -fPIC CCDLFLAGS = -Wl,-E -Wl,-rpath,/usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/CORE DLEXT = so DLSRC = dl_dlopen.xs LD = gcc LDDLFLAGS = -shared LDFLAGS = LIBC = LIB_EXT = .a OBJ_EXT = .o OSNAME = linux OSVERS = 2.6.9-34.elsmp RANLIB = : SITELIBEXP = /usr/lib/perl5/site_perl/5.8.8 SITEARCHEXP = /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi SO = so EXE_EXT = FULL_AR = /usr/bin/ar VENDORARCHEXP = /usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi VENDORLIBEXP = /usr/lib/perl5/vendor_perl/5.8.8 # --- MakeMaker constants section: AR_STATIC_ARGS = cr DIRFILESEP = / DFSEP = $(DIRFILESEP) NAME = Ifeffit NAME_SYM = Ifeffit VERSION = VERSION_MACRO = VERSION VERSION_SYM = DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\" XS_VERSION = XS_VERSION_MACRO = XS_VERSION XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\" INST_ARCHLIB = blib/arch INST_SCRIPT = blib/script INST_BIN = blib/bin INST_LIB = blib/lib INST_MAN1DIR = blib/man1 INST_MAN3DIR = blib/man3 MAN1EXT = 1 MAN3EXT = 3pm INSTALLDIRS = site DESTDIR = PREFIX = $(SITEPREFIX) PERLPREFIX = /usr SITEPREFIX = /usr VENDORPREFIX = /usr INSTALLPRIVLIB = /usr/lib/perl5/5.8.8 DESTINSTALLPRIVLIB = $(DESTDIR)$(INSTALLPRIVLIB) INSTALLSITELIB = /usr/lib/perl5/site_perl/5.8.8 DESTINSTALLSITELIB = $(DESTDIR)$(INSTALLSITELIB) INSTALLVENDORLIB = /usr/lib/perl5/vendor_perl/5.8.8 DESTINSTALLVENDORLIB = $(DESTDIR)$(INSTALLVENDORLIB) INSTALLARCHLIB = /usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi DESTINSTALLARCHLIB = $(DESTDIR)$(INSTALLARCHLIB) INSTALLSITEARCH = /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi DESTINSTALLSITEARCH = $(DESTDIR)$(INSTALLSITEARCH) INSTALLVENDORARCH = /usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi DESTINSTALLVENDORARCH = $(DESTDIR)$(INSTALLVENDORARCH) INSTALLBIN = /usr/local/bin DESTINSTALLBIN = $(DESTDIR)$(INSTALLBIN) INSTALLSITEBIN = /usr/bin DESTINSTALLSITEBIN = $(DESTDIR)$(INSTALLSITEBIN) INSTALLVENDORBIN = /usr/bin DESTINSTALLVENDORBIN = $(DESTDIR)$(INSTALLVENDORBIN) INSTALLSCRIPT = /usr/local/bin DESTINSTALLSCRIPT = $(DESTDIR)$(INSTALLSCRIPT) INSTALLMAN1DIR = /usr/share/man/man1 DESTINSTALLMAN1DIR = $(DESTDIR)$(INSTALLMAN1DIR) INSTALLSITEMAN1DIR = /usr/share/man/man1 DESTINSTALLSITEMAN1DIR = $(DESTDIR)$(INSTALLSITEMAN1DIR) INSTALLVENDORMAN1DIR = /usr/share/man/man1 DESTINSTALLVENDORMAN1DIR = $(DESTDIR)$(INSTALLVENDORMAN1DIR) INSTALLMAN3DIR = /usr/share/man/man3 DESTINSTALLMAN3DIR = $(DESTDIR)$(INSTALLMAN3DIR) INSTALLSITEMAN3DIR = /usr/share/man/man3 DESTINSTALLSITEMAN3DIR = $(DESTDIR)$(INSTALLSITEMAN3DIR) INSTALLVENDORMAN3DIR = /usr/share/man/man3 DESTINSTALLVENDORMAN3DIR = $(DESTDIR)$(INSTALLVENDORMAN3DIR) PERL_LIB = /usr/lib/perl5/5.8.8 PERL_ARCHLIB = /usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi LIBPERL_A = libperl.a FIRST_MAKEFILE = Makefile MAKEFILE_OLD = Makefile.old MAKE_APERL_FILE = Makefile.aperl PERLMAINCC = $(CC) PERL_INC = /usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi/CORE PERL = /usr/bin/perl FULLPERL = /usr/bin/perl ABSPERL = $(PERL) PERLRUN = $(PERL) FULLPERLRUN = $(FULLPERL) ABSPERLRUN = $(ABSPERL) PERLRUNINST = $(PERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" FULLPERLRUNINST = $(FULLPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" ABSPERLRUNINST = $(ABSPERLRUN) "-I$(INST_ARCHLIB)" "-I$(INST_LIB)" PERL_CORE = 0 PERM_RW = 644 PERM_RWX = 755 MAKEMAKER = /usr/lib/perl5/5.8.8/ExtUtils/MakeMaker.pm MM_VERSION = 6.30 MM_REVISION = Revision: 4535 # FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle). # BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle) # PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar) # DLBASE = Basename part of dynamic library. May be just equal BASEEXT. FULLEXT = Ifeffit BASEEXT = Ifeffit PARENT_NAME = DLBASE = $(BASEEXT) VERSION_FROM = INC = -I../../src/lib -I/usr/local/share/ifeffit/config OBJECT = ifeffit_wrap$(OBJ_EXT) LDFROM = $(OBJECT) LINKTYPE = dynamic BOOTDEP = # Handy lists of source code files: XS_FILES = C_FILES = ifeffit_wrap.c O_FILES = ifeffit_wrap.o H_FILES = ifeffit.h MAN1PODS = MAN3PODS = Ifeffit.pm \ ifeffit_shell.pl # Where is the Config information that we are using/depend on CONFIGDEP = $(PERL_ARCHLIB)$(DFSEP)Config.pm $(PERL_INC)$(DFSEP)config.h # Where to build things INST_LIBDIR = $(INST_LIB) INST_ARCHLIBDIR = $(INST_ARCHLIB) INST_AUTODIR = $(INST_LIB)/auto/$(FULLEXT) INST_ARCHAUTODIR = $(INST_ARCHLIB)/auto/$(FULLEXT) INST_STATIC = $(INST_ARCHAUTODIR)/$(BASEEXT)$(LIB_EXT) INST_DYNAMIC = $(INST_ARCHAUTODIR)/$(DLBASE).$(DLEXT) INST_BOOT = $(INST_ARCHAUTODIR)/$(BASEEXT).bs # Extra linker info EXPORT_LIST = PERL_ARCHIVE = PERL_ARCHIVE_AFTER = TO_INST_PM = Ifeffit.pm \ ifeffit_shell.pl \ test_a.pl PM_TO_BLIB = test_a.pl \ $(INST_LIB)/test_a.pl \ ifeffit_shell.pl \ $(INST_LIB)/ifeffit_shell.pl \ Ifeffit.pm \ $(INST_LIB)/Ifeffit.pm # --- MakeMaker platform_constants section: MM_Unix_VERSION = 1.50 PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc # --- MakeMaker tool_autosplit section: # Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto AUTOSPLITFILE = $(ABSPERLRUN) -e 'use AutoSplit; autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1)' # --- MakeMaker tool_xsubpp section: XSUBPPDIR = /usr/lib/perl5/5.8.8/ExtUtils XSUBPP = $(XSUBPPDIR)$(DFSEP)xsubpp XSUBPPRUN = $(PERLRUN) $(XSUBPP) XSPROTOARG = XSUBPPDEPS = /usr/lib/perl5/5.8.8/ExtUtils/typemap $(XSUBPP) XSUBPPARGS = -typemap /usr/lib/perl5/5.8.8/ExtUtils/typemap XSUBPP_EXTRA_ARGS = # --- MakeMaker tools_other section: SHELL = /bin/sh CHMOD = chmod CP = cp MV = mv NOOP = $(SHELL) -c true NOECHO = @ RM_F = rm -f RM_RF = rm -rf TEST_F = test -f TOUCH = touch UMASK_NULL = umask 0 DEV_NULL = > /dev/null 2>&1 MKPATH = $(ABSPERLRUN) "-MExtUtils::Command" -e mkpath EQUALIZE_TIMESTAMP = $(ABSPERLRUN) "-MExtUtils::Command" -e eqtime ECHO = echo ECHO_N = echo -n UNINST = 0 VERBINST = 0 MOD_INSTALL = $(ABSPERLRUN) -MExtUtils::Install -e 'install({@ARGV}, '\''$(VERBINST)'\'', 0, '\''$(UNINST)'\'');' DOC_INSTALL = $(ABSPERLRUN) "-MExtUtils::Command::MM" -e perllocal_install UNINSTALL = $(ABSPERLRUN) "-MExtUtils::Command::MM" -e uninstall WARN_IF_OLD_PACKLIST = $(ABSPERLRUN) "-MExtUtils::Command::MM" -e warn_if_old_packlist MACROSTART = MACROEND = USEMAKEFILE = -f FIXIN = $(PERLRUN) "-MExtUtils::MY" -e "MY->fixin(shift)" # --- MakeMaker makemakerdflt section: makemakerdflt: all $(NOECHO) $(NOOP) # --- MakeMaker dist section: TAR = tar TARFLAGS = cvf ZIP = zip ZIPFLAGS = -r COMPRESS = gzip --best SUFFIX = .gz SHAR = shar PREOP = $(NOECHO) $(NOOP) POSTOP = $(NOECHO) $(NOOP) TO_UNIX = $(NOECHO) $(NOOP) CI = ci -u RCS_LABEL = rcs -Nv$(VERSION_SYM): -q DIST_CP = best DIST_DEFAULT = tardist DISTNAME = Ifeffit DISTVNAME = Ifeffit- # --- MakeMaker macro section: # --- MakeMaker depend section: # --- MakeMaker cflags section: CCFLAGS = -D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm OPTIMIZE = -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m64 -mtune=generic PERLTYPE = MPOLLUTE = # --- MakeMaker const_loadlibs section: # Ifeffit might depend on some other libraries: # See ExtUtils::Liblist for details # EXTRALIBS = -L/home/newville/Codes/ifeffit/work/wrappers/perl/../../src/lib -lifeffit -L/usr/local/share/ifeffit/pgplot -lpgplot_iff -lpng -lz -lX11 -L/lib/../lib64 -L/usr/lib/../lib64 -L/usr/lib/gcc/x86_64-redhat-linux/4.1.1 -L/usr/lib/gcc/x86_64-redhat-linux/4.1.1/../../../../lib64 -lgcc_s -lgfortran -lgfortranbegin LDLOADLIBS = -L/home/newville/Codes/ifeffit/work/wrappers/perl/../../src/lib -lifeffit -L/usr/local/share/ifeffit/pgplot -lpgplot_iff -lpng -lz -lX11 -L/lib/../lib64 -L/usr/lib/../lib64 -L/usr/lib/gcc/x86_64-redhat-linux/4.1.1 -L/usr/lib/gcc/x86_64-redhat-linux/4.1.1/../../../../lib64 -lgcc_s -lgfortran -lgfortranbegin -lm BSLOADLIBS = LD_RUN_PATH = /usr/lib64:/lib/../lib64:/usr/lib/../lib64 # --- MakeMaker const_cccmd section: CCCMD = $(CC) -c $(PASTHRU_INC) $(INC) \ $(CCFLAGS) $(OPTIMIZE) \ $(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \ $(XS_DEFINE_VERSION) # --- MakeMaker post_constants section: # --- MakeMaker pasthru section: PASTHRU = LIBPERL_A="$(LIBPERL_A)"\ LINKTYPE="$(LINKTYPE)"\ OPTIMIZE="$(OPTIMIZE)"\ PREFIX="$(PREFIX)"\ PASTHRU_INC="$(PASTHRU_INC)" # --- MakeMaker special_targets section: .SUFFIXES : .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT) .PHONY: all config static dynamic test linkext manifest blibdirs clean realclean disttest distdir # --- MakeMaker c_o section: .c.i: gcc -E -c $(PASTHRU_INC) $(INC) \ $(CCFLAGS) $(OPTIMIZE) \ $(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \ $(XS_DEFINE_VERSION) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c > $*.i .c.s: $(CCCMD) -S $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c .c$(OBJ_EXT): $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c .C$(OBJ_EXT): $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.C .cpp$(OBJ_EXT): $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cpp .cxx$(OBJ_EXT): $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cxx .cc$(OBJ_EXT): $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.cc # --- MakeMaker xs_c section: .xs.c: $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(XSUBPP_EXTRA_ARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c # --- MakeMaker xs_o section: .xs$(OBJ_EXT): $(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c $(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c # --- MakeMaker top_targets section: all :: pure_all manifypods $(NOECHO) $(NOOP) pure_all :: config pm_to_blib subdirs linkext $(NOECHO) $(NOOP) subdirs :: $(MYEXTLIB) $(NOECHO) $(NOOP) config :: $(FIRST_MAKEFILE) blibdirs $(NOECHO) $(NOOP) $(O_FILES): $(H_FILES) help : perldoc ExtUtils::MakeMaker # --- MakeMaker blibdirs section: blibdirs : $(INST_LIBDIR)$(DFSEP).exists $(INST_ARCHLIB)$(DFSEP).exists $(INST_AUTODIR)$(DFSEP).exists $(INST_ARCHAUTODIR)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists $(INST_SCRIPT)$(DFSEP).exists $(INST_MAN1DIR)$(DFSEP).exists $(INST_MAN3DIR)$(DFSEP).exists $(NOECHO) $(NOOP) # Backwards compat with 6.18 through 6.25 blibdirs.ts : blibdirs $(NOECHO) $(NOOP) $(INST_LIBDIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_LIBDIR) $(NOECHO) $(CHMOD) 755 $(INST_LIBDIR) $(NOECHO) $(TOUCH) $(INST_LIBDIR)$(DFSEP).exists $(INST_ARCHLIB)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_ARCHLIB) $(NOECHO) $(CHMOD) 755 $(INST_ARCHLIB) $(NOECHO) $(TOUCH) $(INST_ARCHLIB)$(DFSEP).exists $(INST_AUTODIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_AUTODIR) $(NOECHO) $(CHMOD) 755 $(INST_AUTODIR) $(NOECHO) $(TOUCH) $(INST_AUTODIR)$(DFSEP).exists $(INST_ARCHAUTODIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_ARCHAUTODIR) $(NOECHO) $(CHMOD) 755 $(INST_ARCHAUTODIR) $(NOECHO) $(TOUCH) $(INST_ARCHAUTODIR)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_BIN) $(NOECHO) $(CHMOD) 755 $(INST_BIN) $(NOECHO) $(TOUCH) $(INST_BIN)$(DFSEP).exists $(INST_SCRIPT)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_SCRIPT) $(NOECHO) $(CHMOD) 755 $(INST_SCRIPT) $(NOECHO) $(TOUCH) $(INST_SCRIPT)$(DFSEP).exists $(INST_MAN1DIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_MAN1DIR) $(NOECHO) $(CHMOD) 755 $(INST_MAN1DIR) $(NOECHO) $(TOUCH) $(INST_MAN1DIR)$(DFSEP).exists $(INST_MAN3DIR)$(DFSEP).exists :: Makefile.PL $(NOECHO) $(MKPATH) $(INST_MAN3DIR) $(NOECHO) $(CHMOD) 755 $(INST_MAN3DIR) $(NOECHO) $(TOUCH) $(INST_MAN3DIR)$(DFSEP).exists # --- MakeMaker linkext section: linkext :: $(LINKTYPE) $(NOECHO) $(NOOP) # --- MakeMaker dlsyms section: # --- MakeMaker dynamic section: dynamic :: $(FIRST_MAKEFILE) $(INST_DYNAMIC) $(INST_BOOT) $(NOECHO) $(NOOP) # --- MakeMaker dynamic_bs section: BOOTSTRAP = $(BASEEXT).bs # As Mkbootstrap might not write a file (if none is required) # we use touch to prevent make continually trying to remake it. # The DynaLoader only reads a non-empty file. $(BOOTSTRAP) : $(FIRST_MAKEFILE) $(BOOTDEP) $(INST_ARCHAUTODIR)$(DFSEP).exists $(NOECHO) $(ECHO) "Running Mkbootstrap for $(NAME) ($(BSLOADLIBS))" $(NOECHO) $(PERLRUN) \ "-MExtUtils::Mkbootstrap" \ -e "Mkbootstrap('$(BASEEXT)','$(BSLOADLIBS)');" $(NOECHO) $(TOUCH) $@ $(CHMOD) $(PERM_RW) $@ $(INST_BOOT) : $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists $(NOECHO) $(RM_RF) $@ - $(CP) $(BOOTSTRAP) $@ $(CHMOD) $(PERM_RW) $@ # --- MakeMaker dynamic_lib section: # This section creates the dynamically loadable $(INST_DYNAMIC) # from $(OBJECT) and possibly $(MYEXTLIB). ARMAYBE = : OTHERLDFLAGS = INST_DYNAMIC_DEP = INST_DYNAMIC_FIX = $(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(PERL_ARCHIVE_AFTER) $(INST_DYNAMIC_DEP) $(RM_F) $@ $(LD) $(LDDLFLAGS) $(LDFROM) $(OTHERLDFLAGS) -o $@ $(MYEXTLIB) \ $(PERL_ARCHIVE) $(LDLOADLIBS) $(PERL_ARCHIVE_AFTER) $(EXPORT_LIST) \ $(INST_DYNAMIC_FIX) $(CHMOD) $(PERM_RWX) $@ # --- MakeMaker static section: ## $(INST_PM) has been moved to the all: target. ## It remains here for awhile to allow for old usage: "make static" static :: $(FIRST_MAKEFILE) $(INST_STATIC) $(NOECHO) $(NOOP) # --- MakeMaker static_lib section: $(INST_STATIC) : $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)$(DFSEP).exists $(RM_RF) $@ $(FULL_AR) $(AR_STATIC_ARGS) $@ $(OBJECT) && $(RANLIB) $@ $(CHMOD) $(PERM_RWX) $@ $(NOECHO) $(ECHO) "$(EXTRALIBS)" > $(INST_ARCHAUTODIR)/extralibs.ld # --- MakeMaker manifypods section: POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--" POD2MAN = $(POD2MAN_EXE) manifypods : pure_all \ ifeffit_shell.pl \ Ifeffit.pm \ ifeffit_shell.pl \ Ifeffit.pm $(NOECHO) $(POD2MAN) --section=3 --perm_rw=$(PERM_RW) \ ifeffit_shell.pl $(INST_MAN3DIR)/ifeffit_shell.$(MAN3EXT) \ Ifeffit.pm $(INST_MAN3DIR)/Ifeffit.$(MAN3EXT) # --- MakeMaker processPL section: # --- MakeMaker installbin section: # --- MakeMaker subdirs section: # none # --- MakeMaker clean_subdirs section: clean_subdirs : $(NOECHO) $(NOOP) # --- MakeMaker clean section: # Delete temporary files but do not touch installed files. We don't delete # the Makefile here so a later make realclean still has a makefile to use. clean :: clean_subdirs - $(RM_F) \ *$(LIB_EXT) core \ core.[0-9] $(INST_ARCHAUTODIR)/extralibs.all \ core.[0-9][0-9] $(BASEEXT).bso \ pm_to_blib.ts core.[0-9][0-9][0-9][0-9] \ $(BASEEXT).x $(BOOTSTRAP) \ perl$(EXE_EXT) tmon.out \ *$(OBJ_EXT) pm_to_blib \ $(INST_ARCHAUTODIR)/extralibs.ld blibdirs.ts \ core.[0-9][0-9][0-9][0-9][0-9] *perl.core \ core.*perl.*.? $(MAKE_APERL_FILE) \ perl $(BASEEXT).def \ core.[0-9][0-9][0-9] mon.out \ lib$(BASEEXT).def perlmain.c \ perl.exe so_locations \ $(BASEEXT).exp - $(RM_RF) \ blib - $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL) # --- MakeMaker realclean_subdirs section: realclean_subdirs : $(NOECHO) $(NOOP) # --- MakeMaker realclean section: # Delete temporary files (via clean) and also delete dist files realclean purge :: clean realclean_subdirs - $(RM_F) \ $(OBJECT) $(MAKEFILE_OLD) \ $(FIRST_MAKEFILE) - $(RM_RF) \ $(DISTVNAME) # --- MakeMaker metafile section: metafile : create_distdir $(NOECHO) $(ECHO) Generating META.yml $(NOECHO) $(ECHO) '# http://module-build.sourceforge.net/META-spec.html' > META_new.yml $(NOECHO) $(ECHO) '#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#' >> META_new.yml $(NOECHO) $(ECHO) 'name: Ifeffit' >> META_new.yml $(NOECHO) $(ECHO) 'version: ' >> META_new.yml $(NOECHO) $(ECHO) 'version_from: ' >> META_new.yml $(NOECHO) $(ECHO) 'installdirs: site' >> META_new.yml $(NOECHO) $(ECHO) 'requires:' >> META_new.yml $(NOECHO) $(ECHO) '' >> META_new.yml $(NOECHO) $(ECHO) 'distribution_type: module' >> META_new.yml $(NOECHO) $(ECHO) 'generated_by: ExtUtils::MakeMaker version 6.30' >> META_new.yml -$(NOECHO) $(MV) META_new.yml $(DISTVNAME)/META.yml # --- MakeMaker signature section: signature : cpansign -s # --- MakeMaker dist_basics section: distclean :: realclean distcheck $(NOECHO) $(NOOP) distcheck : $(PERLRUN) "-MExtUtils::Manifest=fullcheck" -e fullcheck skipcheck : $(PERLRUN) "-MExtUtils::Manifest=skipcheck" -e skipcheck manifest : $(PERLRUN) "-MExtUtils::Manifest=mkmanifest" -e mkmanifest veryclean : realclean $(RM_F) *~ *.orig */*~ */*.orig # --- MakeMaker dist_core section: dist : $(DIST_DEFAULT) $(FIRST_MAKEFILE) $(NOECHO) $(ABSPERLRUN) -l -e 'print '\''Warning: Makefile possibly out of date with $(VERSION_FROM)'\''' \ -e ' if -e '\''$(VERSION_FROM)'\'' and -M '\''$(VERSION_FROM)'\'' < -M '\''$(FIRST_MAKEFILE)'\'';' tardist : $(DISTVNAME).tar$(SUFFIX) $(NOECHO) $(NOOP) uutardist : $(DISTVNAME).tar$(SUFFIX) uuencode $(DISTVNAME).tar$(SUFFIX) $(DISTVNAME).tar$(SUFFIX) > $(DISTVNAME).tar$(SUFFIX)_uu $(DISTVNAME).tar$(SUFFIX) : distdir $(PREOP) $(TO_UNIX) $(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME) $(RM_RF) $(DISTVNAME) $(COMPRESS) $(DISTVNAME).tar $(POSTOP) zipdist : $(DISTVNAME).zip $(NOECHO) $(NOOP) $(DISTVNAME).zip : distdir $(PREOP) $(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME) $(RM_RF) $(DISTVNAME) $(POSTOP) shdist : distdir $(PREOP) $(SHAR) $(DISTVNAME) > $(DISTVNAME).shar $(RM_RF) $(DISTVNAME) $(POSTOP) # --- MakeMaker distdir section: create_distdir : $(RM_RF) $(DISTVNAME) $(PERLRUN) "-MExtUtils::Manifest=manicopy,maniread" \ -e "manicopy(maniread(),'$(DISTVNAME)', '$(DIST_CP)');" distdir : create_distdir distmeta $(NOECHO) $(NOOP) # --- MakeMaker dist_test section: disttest : distdir cd $(DISTVNAME) && $(ABSPERLRUN) Makefile.PL cd $(DISTVNAME) && $(MAKE) $(PASTHRU) cd $(DISTVNAME) && $(MAKE) test $(PASTHRU) # --- MakeMaker dist_ci section: ci : $(PERLRUN) "-MExtUtils::Manifest=maniread" \ -e "@all = keys %{ maniread() };" \ -e "print(qq{Executing $(CI) @all\n}); system(qq{$(CI) @all});" \ -e "print(qq{Executing $(RCS_LABEL) ...\n}); system(qq{$(RCS_LABEL) @all});" # --- MakeMaker distmeta section: distmeta : create_distdir metafile $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{META.yml} => q{Module meta-data (added by MakeMaker)}}) } ' \ -e ' or print "Could not add META.yml to MANIFEST: $${'\''@'\''}\n"' # --- MakeMaker distsignature section: distsignature : create_distdir $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) -MExtUtils::Manifest=maniadd -e 'eval { maniadd({q{SIGNATURE} => q{Public-key signature (added by MakeMaker)}}) } ' \ -e ' or print "Could not add SIGNATURE to MANIFEST: $${'\''@'\''}\n"' $(NOECHO) cd $(DISTVNAME) && $(TOUCH) SIGNATURE cd $(DISTVNAME) && cpansign -s # --- MakeMaker install section: install :: all pure_install doc_install $(NOECHO) $(NOOP) install_perl :: all pure_perl_install doc_perl_install $(NOECHO) $(NOOP) install_site :: all pure_site_install doc_site_install $(NOECHO) $(NOOP) install_vendor :: all pure_vendor_install doc_vendor_install $(NOECHO) $(NOOP) pure_install :: pure_$(INSTALLDIRS)_install $(NOECHO) $(NOOP) doc_install :: doc_$(INSTALLDIRS)_install $(NOECHO) $(NOOP) pure__install : pure_site_install $(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site doc__install : doc_site_install $(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site pure_perl_install :: $(NOECHO) $(MOD_INSTALL) \ read $(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist \ write $(DESTINSTALLARCHLIB)/auto/$(FULLEXT)/.packlist \ $(INST_LIB) $(DESTINSTALLPRIVLIB) \ $(INST_ARCHLIB) $(DESTINSTALLARCHLIB) \ $(INST_BIN) $(DESTINSTALLBIN) \ $(INST_SCRIPT) $(DESTINSTALLSCRIPT) \ $(INST_MAN1DIR) $(DESTINSTALLMAN1DIR) \ $(INST_MAN3DIR) $(DESTINSTALLMAN3DIR) $(NOECHO) $(WARN_IF_OLD_PACKLIST) \ $(SITEARCHEXP)/auto/$(FULLEXT) pure_site_install :: $(NOECHO) $(MOD_INSTALL) \ read $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist \ write $(DESTINSTALLSITEARCH)/auto/$(FULLEXT)/.packlist \ $(INST_LIB) $(DESTINSTALLSITELIB) \ $(INST_ARCHLIB) $(DESTINSTALLSITEARCH) \ $(INST_BIN) $(DESTINSTALLSITEBIN) \ $(INST_SCRIPT) $(DESTINSTALLSCRIPT) \ $(INST_MAN1DIR) $(DESTINSTALLSITEMAN1DIR) \ $(INST_MAN3DIR) $(DESTINSTALLSITEMAN3DIR) $(NOECHO) $(WARN_IF_OLD_PACKLIST) \ $(PERL_ARCHLIB)/auto/$(FULLEXT) pure_vendor_install :: $(NOECHO) $(MOD_INSTALL) \ read $(VENDORARCHEXP)/auto/$(FULLEXT)/.packlist \ write $(DESTINSTALLVENDORARCH)/auto/$(FULLEXT)/.packlist \ $(INST_LIB) $(DESTINSTALLVENDORLIB) \ $(INST_ARCHLIB) $(DESTINSTALLVENDORARCH) \ $(INST_BIN) $(DESTINSTALLVENDORBIN) \ $(INST_SCRIPT) $(DESTINSTALLSCRIPT) \ $(INST_MAN1DIR) $(DESTINSTALLVENDORMAN1DIR) \ $(INST_MAN3DIR) $(DESTINSTALLVENDORMAN3DIR) doc_perl_install :: $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod -$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB) -$(NOECHO) $(DOC_INSTALL) \ "Module" "$(NAME)" \ "installed into" "$(INSTALLPRIVLIB)" \ LINKTYPE "$(LINKTYPE)" \ VERSION "$(VERSION)" \ EXE_FILES "$(EXE_FILES)" \ >> $(DESTINSTALLARCHLIB)/perllocal.pod doc_site_install :: $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod -$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB) -$(NOECHO) $(DOC_INSTALL) \ "Module" "$(NAME)" \ "installed into" "$(INSTALLSITELIB)" \ LINKTYPE "$(LINKTYPE)" \ VERSION "$(VERSION)" \ EXE_FILES "$(EXE_FILES)" \ >> $(DESTINSTALLARCHLIB)/perllocal.pod doc_vendor_install :: $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod -$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB) -$(NOECHO) $(DOC_INSTALL) \ "Module" "$(NAME)" \ "installed into" "$(INSTALLVENDORLIB)" \ LINKTYPE "$(LINKTYPE)" \ VERSION "$(VERSION)" \ EXE_FILES "$(EXE_FILES)" \ >> $(DESTINSTALLARCHLIB)/perllocal.pod uninstall :: uninstall_from_$(INSTALLDIRS)dirs $(NOECHO) $(NOOP) uninstall_from_perldirs :: $(NOECHO) $(UNINSTALL) $(PERL_ARCHLIB)/auto/$(FULLEXT)/.packlist uninstall_from_sitedirs :: $(NOECHO) $(UNINSTALL) $(SITEARCHEXP)/auto/$(FULLEXT)/.packlist uninstall_from_vendordirs :: $(NOECHO) $(UNINSTALL) $(VENDORARCHEXP)/auto/$(FULLEXT)/.packlist # --- MakeMaker force section: # Phony target to force checking subdirectories. FORCE: $(NOECHO) $(NOOP) # --- MakeMaker perldepend section: PERL_HDRS = \ $(PERL_INC)/EXTERN.h \ $(PERL_INC)/INTERN.h \ $(PERL_INC)/XSUB.h \ $(PERL_INC)/av.h \ $(PERL_INC)/cc_runtime.h \ $(PERL_INC)/config.h \ $(PERL_INC)/cop.h \ $(PERL_INC)/cv.h \ $(PERL_INC)/dosish.h \ $(PERL_INC)/embed.h \ $(PERL_INC)/embedvar.h \ $(PERL_INC)/fakethr.h \ $(PERL_INC)/form.h \ $(PERL_INC)/gv.h \ $(PERL_INC)/handy.h \ $(PERL_INC)/hv.h \ $(PERL_INC)/intrpvar.h \ $(PERL_INC)/iperlsys.h \ $(PERL_INC)/keywords.h \ $(PERL_INC)/mg.h \ $(PERL_INC)/nostdio.h \ $(PERL_INC)/op.h \ $(PERL_INC)/opcode.h \ $(PERL_INC)/patchlevel.h \ $(PERL_INC)/perl.h \ $(PERL_INC)/perlio.h \ $(PERL_INC)/perlsdio.h \ $(PERL_INC)/perlsfio.h \ $(PERL_INC)/perlvars.h \ $(PERL_INC)/perly.h \ $(PERL_INC)/pp.h \ $(PERL_INC)/pp_proto.h \ $(PERL_INC)/proto.h \ $(PERL_INC)/regcomp.h \ $(PERL_INC)/regexp.h \ $(PERL_INC)/regnodes.h \ $(PERL_INC)/scope.h \ $(PERL_INC)/sv.h \ $(PERL_INC)/thrdvar.h \ $(PERL_INC)/thread.h \ $(PERL_INC)/unixish.h \ $(PERL_INC)/util.h $(OBJECT) : $(PERL_HDRS) # --- MakeMaker makefile section: $(OBJECT) : $(FIRST_MAKEFILE) # We take a very conservative approach here, but it's worth it. # We move Makefile to Makefile.old here to avoid gnu make looping. $(FIRST_MAKEFILE) : Makefile.PL $(CONFIGDEP) $(NOECHO) $(ECHO) "Makefile out-of-date with respect to $?" $(NOECHO) $(ECHO) "Cleaning current config before rebuilding Makefile..." -$(NOECHO) $(RM_F) $(MAKEFILE_OLD) -$(NOECHO) $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) - $(MAKE) $(USEMAKEFILE) $(MAKEFILE_OLD) clean $(DEV_NULL) $(PERLRUN) Makefile.PL $(NOECHO) $(ECHO) "==> Your Makefile has been rebuilt. <==" $(NOECHO) $(ECHO) "==> Please rerun the $(MAKE) command. <==" false # --- MakeMaker staticmake section: # --- MakeMaker makeaperl section --- MAP_TARGET = perl FULLPERL = /usr/bin/perl $(MAP_TARGET) :: static $(MAKE_APERL_FILE) $(MAKE) $(USEMAKEFILE) $(MAKE_APERL_FILE) $@ $(MAKE_APERL_FILE) : $(FIRST_MAKEFILE) pm_to_blib $(NOECHO) $(ECHO) Writing \"$(MAKE_APERL_FILE)\" for this $(MAP_TARGET) $(NOECHO) $(PERLRUNINST) \ Makefile.PL DIR= \ MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \ MAKEAPERL=1 NORECURS=1 CCCDLFLAGS= # --- MakeMaker test section: TEST_VERBOSE=0 TEST_TYPE=test_$(LINKTYPE) TEST_FILE = test.pl TEST_FILES = TESTDB_SW = -d testdb :: testdb_$(LINKTYPE) test :: $(TEST_TYPE) test_dynamic :: pure_all PERL_DL_NONLAZY=1 $(FULLPERLRUN) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE) testdb_dynamic :: pure_all PERL_DL_NONLAZY=1 $(FULLPERLRUN) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE) test_ : test_dynamic test_static :: pure_all $(MAP_TARGET) PERL_DL_NONLAZY=1 ./$(MAP_TARGET) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE) testdb_static :: pure_all $(MAP_TARGET) PERL_DL_NONLAZY=1 ./$(MAP_TARGET) $(TESTDB_SW) "-I$(INST_LIB)" "-I$(INST_ARCHLIB)" $(TEST_FILE) # --- MakeMaker ppd section: # Creates a PPD (Perl Package Description) for a binary distribution. ppd: $(NOECHO) $(ECHO) '' > $(DISTNAME).ppd $(NOECHO) $(ECHO) ' $(DISTNAME)' >> $(DISTNAME).ppd $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd $(NOECHO) $(ECHO) ' ' >> $(DISTNAME).ppd $(NOECHO) $(ECHO) '' >> $(DISTNAME).ppd # --- MakeMaker pm_to_blib section: pm_to_blib : $(TO_INST_PM) $(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', '\''$(PM_FILTER)'\'')' \ test_a.pl $(INST_LIB)/test_a.pl \ ifeffit_shell.pl $(INST_LIB)/ifeffit_shell.pl \ Ifeffit.pm $(INST_LIB)/Ifeffit.pm $(NOECHO) $(TOUCH) pm_to_blib # --- MakeMaker selfdocument section: # --- MakeMaker postamble section: # End. ifeffit-1.2.11d/wrappers/perl/Ifeffit.pm0000644000175000017500000001227710771740460017106 0ustar segresegrepackage Ifeffit; require Exporter; require DynaLoader; @ISA = qw(Exporter DynaLoader); @EXPORT = qw(ifeffit); @EXPORT_OK = qw(get_scalar put_scalar get_string put_string get_array put_array get_echo); $VERSION = '1.3'; bootstrap Ifeffit $VERSION; my $MAX_ARRAY_PTS = 16384; sub ifeffit ($) { my @com = split(/\n/, $_[0]); my ($c, $ret) ; foreach $c (@com) {$ret = Ifeffit::iff_exec($c); }; return $ret; } sub get_scalar ($) { my $ptr = new_Pdbl(); my $val = undef; if (Ifeffit::iff_get_scalar($_[0],$ptr) == 0) { $val = Pdbl_value($ptr); } delete_Pdbl($ptr); return $val; } sub put_scalar ($$) { return (ifeffit("set $_[0] = $_[1]")) ? undef: $_[1]; } sub get_string ($) { my $str = " "x512; my $len = Ifeffit::iff_get_string($_[0],$str); return ($len) ? substr($str,0,$len) : " "; } sub put_string ($$) { my $inp = $_[0]; $inp = "\$".$inp unless ($inp =~ /^(\$)/o); return ifeffit("set $inp = $_[1]"); } sub get_array ($) { # note the use of MAX_ARRAY_PTS !!! my ($ptr,$npts,$i); my @arr = (); $ptr = new_Parr($MAX_ARRAY_PTS); $npts = Ifeffit::iff_get_array($_[0],$ptr); if ($npts) { for ($i = 0; $i < $npts; $i++) { $arr[$i] = Parr_getitem($ptr,$i);} } delete_Parr($ptr); return @arr; } sub put_array ($$) { my $npts = $#{$_[1]} + 1; my ($i,$x,$p_n,$ret,$ptr); if ($npts gt $MAX_ARRAY_PTS) { $npts = $MAX_ARRAY_PTS;} $ptr = new_Parr($npts); for ($i = 0; $i < $npts; $i++) { Parr_setitem($ptr, $i, ${$_[1]}[$i]); } $p_n = new_Pint(); Pint_assign($p_n, $npts); $ret = Ifeffit::iff_put_array($_[0], $p_n, $ptr); delete_Pint($p_n); delete_Parr($ptr); return $ret; } sub get_echo () { my $str = " "x512; my $len = Ifeffit::iff_get_echo($str); return ($len) ? substr($str,0,$len) : " "; } # INITIALIZATION Code # and get compiled-in parameters for max array size. &ifeffit(" \n"); $MAX_ARRAY_PTS = get_scalar("&maxpts"); # 1; __END__ =head1 NAME Ifeffit - Perl interface to the IFEFFIT XAFS Analysis library. =head1 SYNOPSIS use Ifeffit; use Ifeffit qw(put_scalar put_string put_array); use Ifeffit qw(get_scalar get_string get_array); my ($kmin, $my_file, $file_type ) = (0.01, "Cu.xmu", "xmu"); put_scalar("rbkg", 1.1); put_scalar("kmin", $kmin); put_string("filename", $my_file); ifeffit(" read_data($my_file, prefix= my,"); ifeffit(" type= $file_type)"); ifeffit(" newplot (energy, xmu ) "); my $e0 = get_scalar("e0"); print "e0 = $e0 , rbkg = " ,get_scalar("rbkg"), "\n"; =head1 DESCRIPTION The Ifeffit Perl Module gives access to the ifeffit library for XAFS analysis. The module provides seven perl functions - B, B, B, B, B, B, and B. The B is always provided (ie, exported by the "use Ifeffit;" pragma), but the other commands must be explicitly imported, as shown above. =head2 ifeffit The ifeffit function provides the main interface to the ifeffit engine. The character string argument is interpreted as an ifeffit command. Ifeffit returns 0 if a valid command is sent and fully processed, -1 if a partial command has been sent (so that it will be expecting the rest of the command next), 1 if the "quit" command has been sent, and other non-zero valuses on error. The syntax for and meaning of command lines to ifeffit is described in I of the Ifeffit distribution. The syntax for the perl function is C<$i = ifeffit("plot(my.x, my.y)");> =head2 put_scalar This sets the value of a named scalar in the list of ifeffit data. The set value is returned on successful execution. The syntax is C<$i = put_scalar("kweight", 2.0);>. which is equivalent to C<$i = ifeffit("kweight = 2.0");> But having a choice seems like the perl way. =head2 get_scalar This returns the value of a named ifeffit scalar. The syntax is C<$value = get_scalar("x");> =head2 put_string This sets the value of a named ifeffit string. The value is returned on successful execution. The syntax is C<$i = put_text("home", "the merry old land of oz");>. The same effect could be achieved with the command C<$i = ifeffit("set \$home = 'the merry old land of oz'");>. but B takes care of the icky leading dollar sign, and returns the string instead of a simple exit status. =head2 get_string This returns the value of a named ifeffit string. The syntax is C<$bg = get_string("plot_bg");> =head2 put_array This copies a perl array of numeric values to an ifeffit array. The syntax is C which creates (or overwrites) the ifeffit array I, and fill it with the values of the perl array I<@array>. Note that the B to the array is passed into B, not the whole array itself! =head2 get_array This gets the values of an ifeffit array of numeric values. The syntax is C<@array = get_array("my.array");> which will fill the perl array B<@array> with the ifeffit array I. =head1 AUTHOR Matthew Newville -- newville@cars.uchicago.edu =head1 SEE ALSO ifeffit, Ifeffit Reference Manual, perl(1) PGPERL, PDL, GNU ReadLine Library =cut ifeffit-1.2.11d/wrappers/perl/pm_to_blib0000644000175000017500000000000011053150431017165 0ustar segresegreifeffit-1.2.11d/wrappers/perl/Changes0000644000175000017500000000133310771740460016456 0ustar segresegreRevision history for Perl extension Ifeffit. 0.01 Tue Dec 2 23:02:37 1997 - original version; created by h2xs 1.18 1.0 Fall 1998 -- works well, using array stuff borrowed from PGPLOT 1.1 Feb 1999: removed typemap, array stuff from PGPLOT, and replaced with straight XS code 1.2 Jun 1999: replace XS code with swig-generated ifeffit_wrap.c, altered Ifeffit.pm to use the swig pointer mechanism. ifeffit_wrap.c was generated from ifeffit.i by: swig -perl5 -dnone ifeffit.i in the swig/ directory. Note that this overwrites Ifeffit.pm, so don't try it in the main directory! 1.3 Oct 2002: switched from swig1.1 to swig1.3. ifeffit-1.2.11d/wrappers/perl/Makefile.PL0000644000175000017500000000171711117271643017140 0ustar segresegre# -*-perl-*- # Perl Makefile.PL auto-generated during Ifeffit build # This file may need some modifications, but should give # a good guess for how to build the Ifeffit extension. # use lib '.'; use ExtUtils::MakeMaker; use Config; WriteMakefile('NAME' => 'Ifeffit', 'SKIP' => ['test_dynamic'], 'OBJECT' => 'ifeffit_wrap.o', 'INSTALLBIN' => '/usr/bin', 'INSTALLSCRIPT' => '/usr/bin', 'LDDLFLAGS' => '-shared', 'INC' => '-I../../src/lib -I/usr/share/ifeffit/config', 'LIBS' =>[' -L../../src/lib '.$Config{ldflags}. ' -lifeffit -L/usr/local/share/ifeffit/pgplot -lpgplot_iff -lpng -lz -lX11 '. join(" ", (sort(split(" ", "-L/usr/lib/gcc/x86_64-redhat-linux/4.1.1 -L/usr/lib/gcc/x86_64-redhat-linux/4.1.1/../../../../lib64 -L/lib/../lib64 -L/usr/lib/../lib64 -lgfortranbegin -lgfortran -lm -lgcc_s" ))))] ); ifeffit-1.2.11d/wrappers/perl/ifeffit_shell.pl0000755000175000017500000002671410771740460020340 0ustar segresegre#!/usr/bin/perl -w # Simple shell for ifeffit in perl use lib '/usr/local/share/ifeffit/perl'; use vars qw($Escape $Prompt $HOME); use subs qw(ShowHist ShowCommands END HELP IfeffitHelp); use Getopt::Std; getopts('xq'); #--------------------------------------------------- # variables the user may want to customize are # initialized before reading .ifeffitrc. $HOME = $ENV{HOME}; $RCFile = "$HOME/.ifeffitrc"; $Escape = "!"; $Prompt_main = "Ifeffit>"; $Prompt_more = " ... >"; $history_file = "$HOME/.ifeffit_hist"; $history_lines = 500; @shell_commands = qw(cd cp mv ls rm mkdir rmdir more cat pwd vi); @ifeffit_commands = qw(plot newplot spline show fftf fftr load print pre_edge read_data write_data exit quit ff2chi zoom cursor help minimize set macro); %IF_coms=( "plot" => "general 2-d plot ", "newplot" => "general 2-d plot, after clearing plot screen ", "spline" => "XAFS background removal, ala autobk ", "show" => "display scalar, array, or text Program Variables ", "print" => "print value of scalar or array variable or expression", "fftf" => "forward (k->R) XAFS Fourier transform ", "fftr" => "reverse (R->k) XAFS Fourier transform ", "load" => "execute a file of Ifeffit commands ", "pre_edge" => "determine e0, pre-edge line, and edge jump of xmu data", "read_data" => "read arrays from data file ", "write_data" => "write arrays and text strings to data file ", "exit" => "leave Ifeffit ", "quit" => "leave Ifeffit ", "ff2chi" => "combine feff paths to give k and chi arrays ", "zoom" => "pick window on plot screen with mouse ", "cursor" => "pick x-y coordinates on plot screen with mouse ", "minimize" => "generalized least-squares fit ", "set" => "define a scalar, array, or text Program Variable ", "macro" => "define an ifeffit macro"); #--------------------------------------------------- # load needed perl modules $,=" "; $|=1 ; #--------------------------------------------------- # load needed perl modules $,=" "; $|=1 ; # make sure we can use ifeffit module print " Ifeffit"; eval "use Ifeffit"; if ($Ifeffit::VERSION) { ifeffit("print \$&build"); print " Ifeffit Shell Perl Module $Ifeffit::VERSION "; } else { die "Perl Module not installed properly\n"; } # readline module eval "use Term::ReadLine"; my $does_readline = ($@ eq ""); unless ($opt_q) { print $does_readline ? "(ReadLine enabled) " : "(No ReadLine) " ; } print "\n"; #------------------------------------- # load startup files, then files listed on command line if ($opt_x) { print "no configuration file loaded \n" unless ($opt_q); } elsif ( -e $RCFile ) { print " reading $RCFile ... " unless ($opt_q); eval 'require "$RCFile"'; unless ($opt_q) {($@ eq "") ? print " OK\n": print "problem\n"; } } my $retval = 0; foreach my $f (@ARGV) { print " loading $f ..." unless ($opt_q); $retval = ifeffit("load $f\n"); unless ($opt_q) { ($retval==0) ? print " OK\n" : print " problem!\n";} } my $shellcoms = join ("|", @shell_commands ); # used below in regex match #------------------------------------- # set up readline stuff if ($does_readline) { $term = new Term::ReadLine 'ifeffit', \*STDIN, \*STDOUT ; $term->ornaments(1); # read in history from last session if ((-e "$history_file")&& (open HIST, "<$history_file")) { my @allhist = ; close HIST; map s/\n//g , @allhist ; foreach (@allhist) { $term->addhistory($_); } } # set completion model: shell_commands and ifeffit_commands # for 1st word, filenames for rest of line my $attribs = $term->Attribs; $attribs->{attempted_completion_function} = sub { my ($text, $line, $start, $end) = @_; if ((substr($line, 0, $start) =~ /^\s*$/) or (substr($line, 0, $start) =~ /^help/i) ) { $attribs->{completion_entry_function} = $attribs->{'list_completion_function'}; $attribs->{completion_word} = [@shell_commands, @ifeffit_commands]; return $term->completion_matches($text, $attribs->{'completion_entry_function'}); } else { $attribs->{completion_entry_function} = $attribs->{'filename_completion_function'}; return (); } } } # # determine prompt and reading mechanism if ($does_readline) { # use readline if available $getline = sub { my $p = shift; my $j = $term->readline($p); $j = "__NULL_\n\n" unless $j; chomp $j; $j =~ s|~|$ENV{"HOME"}| ; return $j; }; } else { # or use simple read $getline = sub { my $p = shift; print "$p"; my $j = <>; $j = "__NULL_\n\n" unless $j; chomp $j; $j =~ s|~|$ENV{"HOME"}| ; return $j; }; } #------------------------------------- ## main loop my ($line, $prom, @args); if ($opt_x) {$line += $opt_x}; while (1) { $prom = ($retval == -1) ? $Prompt_more : $Prompt_main; # decide prompt $_ = &$getline($prom); # prompt for line next if ((/^\s*$/) or (/^__NULL/)); process_command($_) if ($_); } ## done #------------------------------------- sub process_command{ $line = $_ = shift; @args = split(); # $_ = lc(shift(@args)); # simplifies the matching below # execute: # based on first word (now in $_) exit if (/^quit$/o or /^exit$/o); if (/^\?$/o or /^help$/o) { Help($line); } elsif (/^\?\?$/o) { ShowCommands;} elsif (/^l$/o) { ShowHist(@args); } elsif (/^cd$/o) { chdir("@args"); } elsif (/^rm$/o) { unlink("@args"); } elsif (/^perl$/o) { eval("@args"); } elsif (/^($shellcoms)$/) { system("$line"); } elsif (/^$Escape/) { system(substr("$line",1)); } else { $line =~ s|~|$ENV{"HOME"}| if (/^load$/o or /^read/o or /^write/o); $retval = ifeffit("$line\n"); } } sub ShowHist { # use 'l' to show command history if ($does_readline) { my $n = $#_ > -1 ? shift : 10; my @h = $term->GetHistory(); my $min = $#h < $n-1 ? 0 : $#h-$n+1; map {print "$_: $h[$_]\n"} ($min..$#h); } } sub ShowCommands { print "Ifeffit is aware of these shell commands:\n "; my $i = 0; foreach my $t (@shell_commands) { print " $t"; $i += 1 + length($t); if ($i > 60) {print "\n "; $i = 0;} } print "\n" unless ($i == 0); } sub Help { @args = split(/\s+/, $_[0]); if ($#args < 1) { # general help from pod print "Help is on the way ...\n"; system ("perldoc $0\n"); } else { shift @args; foreach my $t (@args) {IfeffitHelp($t);} } } sub END { # executed at 'exit' # save history in history file if ($does_readline) { my @a= $term->GetHistory() if $term->can('GetHistory'); $#a-- if $a[-1] =~ (/^\s*(quit|exit)\s*$/); # don't save the exit command! @a= @a[($#a-$history_lines+1)..($#a)] if $#a > $history_lines; if (open HIST, ">$history_file" ) { print HIST join("\n",@a); close HIST; } else { print "Can't open $history_file\n"; } } print "\tHave a nice day\n" unless ($opt_q); } sub IfeffitHelp { my $t = shift; my ($s) = ("unknown command (may be a shell command)"); print " $t: "; foreach my $k (keys %IF_coms) { if ($k eq $t) { $s = $IF_coms{$k};} } print " $s\n"; } __END__ =head1 NAME ifeffit - Shell Interface to IFEFFIT =head1 SYNOPSIS B is a shell interface to the Ifeffit XAFS Analysis System. Ifeffit commands are entered and executed as they are typed in, giving complete access to the Ifeffit library in a relatively friendly command-line program. A sample session might look like this: %~>ifeffit Ifeffit 1.0004 Copyright (c) 2000 Matt Newville, Univ of Chicago Ifeffit Shell Perl Module 1.2 (ReadLine enabled) reading /home/newville/.ifeffitrc ... OK Ifeffit> read_data(My.xmu,type=xmu) Ifeffit> spline(energy,xmu, rbkg = 1.0, kweight =1 ) Ifeffit> plot(energy, xmu) Ifeffit> plot(energy, bkg) =head1 DESCRIPTION If you have the Perl module for the ReadLine library (Term::ReadLine and Term::Readkeys are both required), you can use the command-line editing features of the Gnu ReadLine library. Most importantly, this library makes the up arrow scroll through previous commands. It also gives you access to the last 300 commands typed in (stored in the file F<.ifeffit_hist> in your home directory) in previous sessions. The command C shows you the last C commands typed in. There is also some support for command-line completion via the tab key. While typing the first word at the command-line prompt, selected ifeffit commands and shell commands will be 'tab-completed', meaning that hitting the tab key will complete as much of a partially-typed command as possible. The list of ifeffit and shell commands recognized for this purpose is customizable. After the first word has been fully typed, the tab key will complete file names in the current working directory. e.g.: %~>ifeffit Ifeffit 1.0002 Copyright (c) 2000 Matt Newville, Univ of Chicago Ifeffit Shell Perl Module 1.2 (ReadLine enabled) reading /home/newville/.ifeffitrc ... OK Ifeffit> =over 4 =item 1. 'quit' and 'exit' will exit the program. 'l' lists the history buffer '?' is an alias for help, which will display this document, or give a brief command summary (as in: 'help plot'). '??' lists the known system shell commands that can be executed from within ifeffit. For other shell commands, use the '!' character to escape to the system shell. =item 2. The resource file F<~/.ifeffitrc> (if found) is read at start-up to allow customizations. This file is read as a B script (not as raw ifeffit commands). To allow further confusion (err, customization), you can load files of ifeffit commands at startup -- I will load the file F at start-up, as if you typed 'load myfile' at the command-line. This loading occurs after the F<~/.ifeffitrc> file is read, which can provide a convenient way to override default macro definitions. =item 3. Shell variables: (can be customized in F<~/.ifeffitrc>) $Escape [default = '!'] a line starting with this character is sent to the shell. $Prompt [default = 'Ifeffit> '] command-line prompt. $HOME [default from Environment Variable] users home directory. =item 4. A useful procedure for developing and testing ifeffit scripts is ifeffit> ! emacs script & -- add ifeffit code to script and save the file ifeffit> load script =back =head1 CUSTOMIZATION A typical ~/.ifeffitrc file might look like this: # # start-up perl for shiffit push @shell_commands, qw(emacs grep gunzip diff); # # pre-load some common ifeffit macros ifeffit("load $HOME/.ifeffit_macros "); This file is "require'd" by I. The "push" line, adds a few more commands to the default list of shell commands. The "ifeffit" line loads a bunch of pre-defined ifeffit macros. =head1 AUTHOR Matthew Newville -- newville@cars.uchicago.edu =head1 SEE ALSO I perl module to use the GNU Readline library to improve reading the command-line and enabling history mechanism. This module is available from Comprehensive Perl Archive Network. I perl module to use the Ifeffit XAFS Analysis library from within perl. Several applications distributed as part of the Ifeffit Analysis System, including this program, requires this Ifeffit perl module, I main reference for the commands of the Ifeffit XAFS Analysis system. =cut ifeffit-1.2.11d/wrappers/perl/README0000644000175000017500000000433710771740460016052 0ustar segresegreThis is the Perl interface to the Ifeffit library. To build and install this interface: 1. build and INSTALL the ifeffit library. That is, the ifeffit library must be installed in its final resting place for the perl extension to work properly. If you're building this from the standard distribution, a Makefile.PL file should already be in this directory. If not (or if you are building this from the stand-alone perl distribution after the Ifeffit library has been installed) copy the Makefile.PL from the ifeffit directory: ~> cp /usr/local/share/ifeffit/Makefile.PL . (the exact location may be different, depending on how ifeffit was built and installed). 2. build the Perl interface by typing ~> perl Makefile.PL ~> make The Makefile.PL file should properly reflect your Ifeffit installation, and should not require any tweaking. If this compilation fails, ask a local Perl expert or send email. 3. test the Perl extension: ~> make test If the test fails (you'll see a bunch cryptic error messages), first check the 'Fortran.Notes' in the main wrapper directory. If that doesn't help, please let me know. 4. install the perl extension: ~> make install You'll need write permissions to the normal Perl library, which probably means you'll need to be root. 5. The file 'ifeffit_shell.pl' is a friendly command-line interface to the ifeffit library. If the Perl Readline Module has been installed, then command history and tab completion should work. (If in doubt, install the GNU version of the Readline module). You may want to install this file as 'ifeffit' somewhere in your path to use instead of the standard, less-featured C version. You may also want to copy (and possibly edit) the two 'run-time configuration' files: ~> cp dot.ifeffitrc $HOME/.ifeffitrc ~> cp dot.ifeffit_macros $HOME/.ifeffit_macros Documentation for the Perl Module can be found by typing ~> perldoc Ifeffit additional documentation about the command-line program can be found by typing 'help' at the command prompt. Matt Newville ifeffit-1.2.11d/wrappers/Makefile.in0000644000175000017500000000767010771740460016300 0ustar segresegre# Makefile.in for ifeffit wrappers # SHELL = @SHELL@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ sbindir = @sbindir@ libexecdir = @libexecdir@ datadir = @datadir@ sysconfdir = @sysconfdir@ sharedstatedir = @sharedstatedir@ localstatedir = @localstatedir@ libdir = @libdir@ pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = .. AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS) INSTALL_DATA = @INSTALL_DATA@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ transform = @program_transform_name@ NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : host_alias = @host_alias@ host_triplet = @host@ CC = @CC@ CPP = @CPP@ F77 = @F77@ FFLAGS = @FFLAGS@ FLIBS = @FLIBS@ PACKAGE = @PACKAGE@ RANLIB = @RANLIB@ VERSION = @VERSION@ canonical_host_type = @canonical_host_type@ PYTHON= @PYTHON@ PERL= @PERL@ TCL= @TCL@ USE_PYTHON= @USE_PYTHON@ USE_PERL= @USE_PERL@ USE_TCL= @USE_TCL@ mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs CONFIG_HEADER = ../config.h DIST_COMMON = Makefile.in DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) # all: ext-python ext-perl all: .SUFFIXES: Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status $(BUILT_SOURCES) cd $(top_builddir) \ && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status @SET_MAKE@ IFF_LIB = $(top_builddir)/src/lib/libifeffit.a PY_DIR = python PY_SO = iff_py_made PY_CONF = site_install.py PL_DIR = perl PL_SO = blib/arch/auto/Ifeffit/Ifeffit.so PL_CONF = Makefile.PL TL_DIR = tcl TL_SO = ifeffit_tcl.so TL_CONF = TclSetup.in PL_VERS = perlversion ext-python: $(PY_DIR)/$(PY_SO) $(PY_DIR)/$(PY_SO): $(PY_DIR)/$(PY_CONF) $(IFF_LIB) @if test "$(USE_PYTHON)" = "1"; then \ (echo "Building python extension"; \ cd $(top_builddir)/wrappers/$(PY_DIR);\ $(PYTHON) setup.py build ; cd ..;)\ fi; ext-perl: $(PL_DIR)/$(PL_SO) $(PL_DIR)/$(PL_SO): $(PL_DIR)/$(PL_CONF) $(IFF_LIB) @if test "$(USE_PERL)" = "1"; then \ (echo "Building perl extension";\ cd $(top_builddir)/wrappers/$(PL_DIR);\ $(PERL) $(PL_CONF) ; make ;\ cd ..;)\ fi; ext-tcl: $(TL_DIR)/$(TL_SO) $(TL_DIR)/$(TL_SO): $(TL_DIR)/$(TL_CONF) $(IFF_LIB) @if test "$(USE_TCL)" = "1"; then \ (echo "Building tcl extension"; \ cd $(top_builddir)/wrappers/$(TL_DIR);\ cat $(TL_CONF) Makefile.in > Makefile; make; \ cd ..;)\ fi; install: all # # # #install: all # @if test "$(USE_PYTHON)" = "1"; then \ # (echo "Installing python extension"; \ # cd $(top_builddir)/wrappers/$(PY_DIR);\ # $(PYTHON) setup.py install; cd ..;)\ # fi; # @if test "$(USE_PERL)" = "1"; then \ # (echo "Installing perl extension";\ # cd $(top_builddir)/wrappers/$(PL_DIR);\ # make install; cd ..;)\ # fi; # # @if test "$(USE_TCL)" = "1"; then \ # (cd $(top_builddir)/wrappers/$(TL_DIR);\ # echo "==="; \ # echo "NOT INSTALLING tcl extension"; \ # echo "See README in wrappers/tcl";\ # echo "==="; \ # cd ..;)\ # fi; clean: @if test "$(USE_PYTHON)" = "1"; then \ (echo "cleaning python extension"; \ cd $(PY_DIR);\ rm -rf $(PY_SO) *.pyc build/* ;\ cd ..;)\ fi; @if test "$(USE_PERL)" = "1"; then \ (echo "cleaning perl extension";\ cd $(PL_DIR); \ if test -f Makefile; then make clean; fi;\ cd ..;)\ fi; @if test "$(USE_TCL)" = "1"; then \ (echo "cleaning tcl extension";\ cd $(TL_DIR);\ rm -f ifeffit_wrap.o ifeffit_tcl.so;\ cd ..;)\ fi; distclean: make clean -rm -f Makefile -rm -f config.cache config.log stamp-h stamp-h[0-9]* distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir) check: all uninstall: installdirs: .PHONY: distdir check install uninstall all installdirs clean .NOEXPORT: ifeffit-1.2.11d/wrappers/perlversion0000755000175000017500000000031010771740460016511 0ustar segresegre#!/bin/sh p=$1 test=tmp.dat $p -v | grep "5.6" > $test if test -s $test; then echo 'using wrapper for perl 5.6 and higher' else echo 'using wrapper for perl 5.005 or earlier' fi; rm -f $test ifeffit-1.2.11d/wrappers/swig/0000755000175000017500000000000010771740460015172 5ustar segresegreifeffit-1.2.11d/wrappers/swig/ifeffit_wrap.c0000644000175000017500000012141710771740460020011 0ustar segresegre/* * FILE : ifeffit_wrap.c * * This file was automatically generated by : * Simplified Wrapper and Interface Generator (SWIG) * Version 1.1 (Build 883) * * Portions Copyright (c) 1995-1998 * The University of Utah and The Regents of the University of California. * Permission is granted to distribute this file in any manner provided * this notice remains intact. * * Do not make changes to this file--changes will be lost! * */ #define SWIGCODE /* Implementation : PYTHON */ #define SWIGPYTHON /*********************************************************************** * $Header: /cvsroot/SWIG1.1/swig_lib/python/python.swg,v 1.5 1999/11/05 21:45:13 beazley Exp $ * swig_lib/python/python.cfg * * Contains variable linking and pointer type-checking code. ************************************************************************/ #include #include #ifdef __cplusplus extern "C" { #endif #include "Python.h" /* Definitions for Windows/Unix exporting */ #if defined(_WIN32) || defined(__WIN32__) # if defined(_MSC_VER) # define SWIGEXPORT(a) __declspec(dllexport) a # else # if defined(__BORLANDC__) # define SWIGEXPORT(a) a _export # else # define SWIGEXPORT(a) a # endif # endif #else # define SWIGEXPORT(a) a #endif #ifdef SWIG_GLOBAL #define SWIGSTATICRUNTIME(a) SWIGEXPORT(a) #else #define SWIGSTATICRUNTIME(a) static a #endif typedef struct { char *name; PyObject *(*get_attr)(void); int (*set_attr)(PyObject *); } swig_globalvar; typedef struct swig_varlinkobject { PyObject_HEAD swig_globalvar **vars; int nvars; int maxvars; } swig_varlinkobject; /* ---------------------------------------------------------------------- swig_varlink_repr() Function for python repr method ---------------------------------------------------------------------- */ static PyObject * swig_varlink_repr(swig_varlinkobject *v) { v = v; return PyString_FromString(""); } /* --------------------------------------------------------------------- swig_varlink_print() Print out all of the global variable names --------------------------------------------------------------------- */ static int swig_varlink_print(swig_varlinkobject *v, FILE *fp, int flags) { int i = 0; flags = flags; fprintf(fp,"Global variables { "); while (v->vars[i]) { fprintf(fp,"%s", v->vars[i]->name); i++; if (v->vars[i]) fprintf(fp,", "); } fprintf(fp," }\n"); return 0; } /* -------------------------------------------------------------------- swig_varlink_getattr This function gets the value of a variable and returns it as a PyObject. In our case, we'll be looking at the datatype and converting into a number or string -------------------------------------------------------------------- */ static PyObject * swig_varlink_getattr(swig_varlinkobject *v, char *n) { int i = 0; char temp[128]; while (v->vars[i]) { if (strcmp(v->vars[i]->name,n) == 0) { return (*v->vars[i]->get_attr)(); } i++; } sprintf(temp,"C global variable %s not found.", n); PyErr_SetString(PyExc_NameError,temp); return NULL; } /* ------------------------------------------------------------------- swig_varlink_setattr() This function sets the value of a variable. ------------------------------------------------------------------- */ static int swig_varlink_setattr(swig_varlinkobject *v, char *n, PyObject *p) { char temp[128]; int i = 0; while (v->vars[i]) { if (strcmp(v->vars[i]->name,n) == 0) { return (*v->vars[i]->set_attr)(p); } i++; } sprintf(temp,"C global variable %s not found.", n); PyErr_SetString(PyExc_NameError,temp); return 1; } statichere PyTypeObject varlinktype = { /* PyObject_HEAD_INIT(&PyType_Type) Note : This doesn't work on some machines */ PyObject_HEAD_INIT(0) 0, "varlink", /* Type name */ sizeof(swig_varlinkobject), /* Basic size */ 0, /* Itemsize */ 0, /* Deallocator */ (printfunc) swig_varlink_print, /* Print */ (getattrfunc) swig_varlink_getattr, /* get attr */ (setattrfunc) swig_varlink_setattr, /* Set attr */ 0, /* tp_compare */ (reprfunc) swig_varlink_repr, /* tp_repr */ 0, /* tp_as_number */ 0, /* tp_as_mapping*/ 0, /* tp_hash */ }; /* Create a variable linking object for use later */ SWIGSTATICRUNTIME(PyObject *) SWIG_newvarlink(void) { swig_varlinkobject *result = 0; result = PyMem_NEW(swig_varlinkobject,1); varlinktype.ob_type = &PyType_Type; /* Patch varlinktype into a PyType */ result->ob_type = &varlinktype; /* _Py_NewReference(result); Does not seem to be necessary */ result->nvars = 0; result->maxvars = 64; result->vars = (swig_globalvar **) malloc(64*sizeof(swig_globalvar *)); result->vars[0] = 0; result->ob_refcnt = 0; Py_XINCREF((PyObject *) result); return ((PyObject*) result); } SWIGSTATICRUNTIME(void) SWIG_addvarlink(PyObject *p, char *name, PyObject *(*get_attr)(void), int (*set_attr)(PyObject *p)) { swig_varlinkobject *v; v= (swig_varlinkobject *) p; if (v->nvars >= v->maxvars -1) { v->maxvars = 2*v->maxvars; v->vars = (swig_globalvar **) realloc(v->vars,v->maxvars*sizeof(swig_globalvar *)); if (v->vars == NULL) { fprintf(stderr,"SWIG : Fatal error in initializing Python module.\n"); exit(1); } } v->vars[v->nvars] = (swig_globalvar *) malloc(sizeof(swig_globalvar)); v->vars[v->nvars]->name = (char *) malloc(strlen(name)+1); strcpy(v->vars[v->nvars]->name,name); v->vars[v->nvars]->get_attr = get_attr; v->vars[v->nvars]->set_attr = set_attr; v->nvars++; v->vars[v->nvars] = 0; } /* ----------------------------------------------------------------------------- * Pointer type-checking * ----------------------------------------------------------------------------- */ /* SWIG pointer structure */ typedef struct SwigPtrType { char *name; /* Datatype name */ int len; /* Length (used for optimization) */ void *(*cast)(void *); /* Pointer casting function */ struct SwigPtrType *next; /* Linked list pointer */ } SwigPtrType; /* Pointer cache structure */ typedef struct { int stat; /* Status (valid) bit */ SwigPtrType *tp; /* Pointer to type structure */ char name[256]; /* Given datatype name */ char mapped[256]; /* Equivalent name */ } SwigCacheType; static int SwigPtrMax = 64; /* Max entries that can be currently held */ static int SwigPtrN = 0; /* Current number of entries */ static int SwigPtrSort = 0; /* Status flag indicating sort */ static int SwigStart[256]; /* Starting positions of types */ static SwigPtrType *SwigPtrTable = 0; /* Table containing pointer equivalences */ /* Cached values */ #define SWIG_CACHESIZE 8 #define SWIG_CACHEMASK 0x7 static SwigCacheType SwigCache[SWIG_CACHESIZE]; static int SwigCacheIndex = 0; static int SwigLastCache = 0; /* Sort comparison function */ static int swigsort(const void *data1, const void *data2) { SwigPtrType *d1 = (SwigPtrType *) data1; SwigPtrType *d2 = (SwigPtrType *) data2; return strcmp(d1->name,d2->name); } /* Register a new datatype with the type-checker */ SWIGSTATICRUNTIME(void) SWIG_RegisterMapping(char *origtype, char *newtype, void *(*cast)(void *)) { int i; SwigPtrType *t = 0,*t1; /* Allocate the pointer table if necessary */ if (!SwigPtrTable) { SwigPtrTable = (SwigPtrType *) malloc(SwigPtrMax*sizeof(SwigPtrType)); } /* Grow the table */ if (SwigPtrN >= SwigPtrMax) { SwigPtrMax = 2*SwigPtrMax; SwigPtrTable = (SwigPtrType *) realloc((char *) SwigPtrTable,SwigPtrMax*sizeof(SwigPtrType)); } for (i = 0; i < SwigPtrN; i++) { if (strcmp(SwigPtrTable[i].name,origtype) == 0) { t = &SwigPtrTable[i]; break; } } if (!t) { t = &SwigPtrTable[SwigPtrN++]; t->name = origtype; t->len = strlen(t->name); t->cast = 0; t->next = 0; } /* Check for existing entries */ while (t->next) { if ((strcmp(t->name,newtype) == 0)) { if (cast) t->cast = cast; return; } t = t->next; } t1 = (SwigPtrType *) malloc(sizeof(SwigPtrType)); t1->name = newtype; t1->len = strlen(t1->name); t1->cast = cast; t1->next = 0; t->next = t1; SwigPtrSort = 0; } /* Make a pointer value string */ SWIGSTATICRUNTIME(void) SWIG_MakePtr(char *c, const void *ptr, char *type) { static char hex[17] = "0123456789abcdef"; unsigned long p, s; char result[24], *r; r = result; p = (unsigned long) ptr; if (p > 0) { while (p > 0) { s = p & 0xf; *(r++) = hex[s]; p = p >> 4; } *r = '_'; while (r >= result) *(c++) = *(r--); strcpy (c, type); } else { strcpy (c, "NULL"); } } /* Function for getting a pointer value */ SWIGSTATICRUNTIME(char *) SWIG_GetPtr(char *c, void **ptr, char *t) { unsigned long p; char temp_type[256], *name; int i, len, start, end; SwigPtrType *sp,*tp; SwigCacheType *cache; register int d; p = 0; /* Pointer values must start with leading underscore */ if (*c != '_') { *ptr = (void *) 0; if (strcmp(c,"NULL") == 0) return (char *) 0; else c; } c++; /* Extract hex value from pointer */ while (d = *c) { if ((d >= '0') && (d <= '9')) p = (p << 4) + (d - '0'); else if ((d >= 'a') && (d <= 'f')) p = (p << 4) + (d - ('a'-10)); else break; c++; } *ptr = (void *) p; if ((!t) || (strcmp(t,c)==0)) return (char *) 0; if (!SwigPtrSort) { qsort((void *) SwigPtrTable, SwigPtrN, sizeof(SwigPtrType), swigsort); for (i = 0; i < 256; i++) SwigStart[i] = SwigPtrN; for (i = SwigPtrN-1; i >= 0; i--) SwigStart[(int) (SwigPtrTable[i].name[1])] = i; for (i = 255; i >= 1; i--) { if (SwigStart[i-1] > SwigStart[i]) SwigStart[i-1] = SwigStart[i]; } SwigPtrSort = 1; for (i = 0; i < SWIG_CACHESIZE; i++) SwigCache[i].stat = 0; } /* First check cache for matches. Uses last cache value as starting point */ cache = &SwigCache[SwigLastCache]; for (i = 0; i < SWIG_CACHESIZE; i++) { if (cache->stat && (strcmp(t,cache->name) == 0) && (strcmp(c,cache->mapped) == 0)) { cache->stat++; if (cache->tp->cast) *ptr = (*(cache->tp->cast))(*ptr); return (char *) 0; } SwigLastCache = (SwigLastCache+1) & SWIG_CACHEMASK; if (!SwigLastCache) cache = SwigCache; else cache++; } /* Type mismatch. Look through type-mapping table */ start = SwigStart[(int) t[1]]; end = SwigStart[(int) t[1]+1]; sp = &SwigPtrTable[start]; /* Try to find a match */ while (start <= end) { if (strncmp(t,sp->name,sp->len) == 0) { name = sp->name; len = sp->len; tp = sp->next; /* Try to find entry for our given datatype */ while(tp) { if (tp->len >= 255) { return c; } strcpy(temp_type,tp->name); strncat(temp_type,t+len,255-tp->len); if (strcmp(c,temp_type) == 0) { strcpy(SwigCache[SwigCacheIndex].mapped,c); strcpy(SwigCache[SwigCacheIndex].name,t); SwigCache[SwigCacheIndex].stat = 1; SwigCache[SwigCacheIndex].tp = tp; SwigCacheIndex = SwigCacheIndex & SWIG_CACHEMASK; /* Get pointer value */ *ptr = (void *) p; if (tp->cast) *ptr = (*(tp->cast))(*ptr); return (char *) 0; } tp = tp->next; } } sp++; start++; } return c; } /* New object-based GetPointer function. This uses the Python abstract * object interface to automatically dereference the 'this' attribute * of shadow objects. */ SWIGSTATICRUNTIME(char *) SWIG_GetPtrObj(PyObject *obj, void **ptr, char *type) { PyObject *sobj = obj; char *str; if (!PyString_Check(obj)) { sobj = PyObject_GetAttrString(obj,"this"); if (!sobj) return ""; } str = PyString_AsString(sobj); return SWIG_GetPtr(str,ptr,type); } #ifdef __cplusplus } #endif #define SWIG_init initIfeffit #define SWIG_name "Ifeffit" #include "ifeffit.h" #include /*------------------------------------------------------------------ ptrcast(value,type) Constructs a new pointer value. Value may either be a string or an integer. Type is a string corresponding to either the C datatype or mangled datatype. ptrcast(0,"Vector *") or ptrcast(0,"Vector_p") ------------------------------------------------------------------ */ static PyObject *ptrcast(PyObject *_PTRVALUE, char *type) { char *r,*s; void *ptr; PyObject *obj; char *typestr,*c; /* Produce a "mangled" version of the type string. */ typestr = (char *) malloc(strlen(type)+2); /* Go through and munge the typestring */ r = typestr; *(r++) = '_'; c = type; while (*c) { if (!isspace(*c)) { if ((*c == '*') || (*c == '&')) { *(r++) = 'p'; } else *(r++) = *c; } else { *(r++) = '_'; } c++; } *(r++) = 0; /* Check to see what kind of object _PTRVALUE is */ if (PyInt_Check(_PTRVALUE)) { ptr = (void *) PyInt_AsLong(_PTRVALUE); /* Received a numerical value. Make a pointer out of it */ r = (char *) malloc(strlen(typestr)+22); if (ptr) { SWIG_MakePtr(r, ptr, typestr); } else { sprintf(r,"_0%s",typestr); } obj = PyString_FromString(r); free(r); } else if (PyString_Check(_PTRVALUE)) { /* Have a real pointer value now. Try to strip out the pointer value */ s = PyString_AsString(_PTRVALUE); r = (char *) malloc(strlen(type)+22); /* Now extract the pointer value */ if (!SWIG_GetPtr(s,&ptr,0)) { if (ptr) { SWIG_MakePtr(r,ptr,typestr); } else { sprintf(r,"_0%s",typestr); } obj = PyString_FromString(r); } else { obj = NULL; } free(r); } else { obj = NULL; } free(typestr); if (!obj) PyErr_SetString(PyExc_TypeError,"Type error in ptrcast. Argument is not a valid pointer value."); return obj; } /*------------------------------------------------------------------ ptrvalue(ptr,type = 0) Attempts to dereference a pointer value. If type is given, it will try to use that type. Otherwise, this function will attempt to "guess" the proper datatype by checking against all of the builtin C datatypes. ------------------------------------------------------------------ */ static PyObject *ptrvalue(PyObject *_PTRVALUE, int index, char *type) { void *ptr; char *s; PyObject *obj; if (!PyString_Check(_PTRVALUE)) { PyErr_SetString(PyExc_TypeError,"Type error in ptrvalue. Argument is not a valid pointer value."); return NULL; } s = PyString_AsString(_PTRVALUE); if (SWIG_GetPtr(s,&ptr,0)) { PyErr_SetString(PyExc_TypeError,"Type error in ptrvalue. Argument is not a valid pointer value."); return NULL; } /* If no datatype was passed, try a few common datatypes first */ if (!type) { /* No datatype was passed. Type to figure out if it's a common one */ if (!SWIG_GetPtr(s,&ptr,"_int_p")) { type = "int"; } else if (!SWIG_GetPtr(s,&ptr,"_double_p")) { type = "double"; } else if (!SWIG_GetPtr(s,&ptr,"_short_p")) { type = "short"; } else if (!SWIG_GetPtr(s,&ptr,"_long_p")) { type = "long"; } else if (!SWIG_GetPtr(s,&ptr,"_float_p")) { type = "float"; } else if (!SWIG_GetPtr(s,&ptr,"_char_p")) { type = "char"; } else if (!SWIG_GetPtr(s,&ptr,"_char_pp")) { type = "char *"; } else { type = "unknown"; } } if (!ptr) { PyErr_SetString(PyExc_TypeError,"Unable to dereference NULL pointer."); return NULL; } /* Now we have a datatype. Try to figure out what to do about it */ if (strcmp(type,"int") == 0) { obj = PyInt_FromLong((long) *(((int *) ptr) + index)); } else if (strcmp(type,"double") == 0) { obj = PyFloat_FromDouble((double) *(((double *) ptr)+index)); } else if (strcmp(type,"short") == 0) { obj = PyInt_FromLong((long) *(((short *) ptr)+index)); } else if (strcmp(type,"long") == 0) { obj = PyInt_FromLong((long) *(((long *) ptr)+index)); } else if (strcmp(type,"float") == 0) { obj = PyFloat_FromDouble((double) *(((float *) ptr)+index)); } else if (strcmp(type,"char") == 0) { obj = PyString_FromString(((char *) ptr)+index); } else if (strcmp(type,"char *") == 0) { char *c = *(((char **) ptr)+index); if (c) obj = PyString_FromString(c); else obj = PyString_FromString("NULL"); } else { PyErr_SetString(PyExc_TypeError,"Unable to dereference unsupported datatype."); return NULL; } return obj; } /*------------------------------------------------------------------ ptrcreate(type,value = 0,numelements = 1) Attempts to create a new object of given type. Type must be a basic C datatype. Will not create complex objects. ------------------------------------------------------------------ */ static PyObject *ptrcreate(char *type, PyObject *_PYVALUE, int numelements) { void *ptr; PyObject *obj; int sz; char *cast; char temp[40]; /* Check the type string against a variety of possibilities */ if (strcmp(type,"int") == 0) { sz = sizeof(int)*numelements; cast = "_int_p"; } else if (strcmp(type,"short") == 0) { sz = sizeof(short)*numelements; cast = "_short_p"; } else if (strcmp(type,"long") == 0) { sz = sizeof(long)*numelements; cast = "_long_p"; } else if (strcmp(type,"double") == 0) { sz = sizeof(double)*numelements; cast = "_double_p"; } else if (strcmp(type,"float") == 0) { sz = sizeof(float)*numelements; cast = "_float_p"; } else if (strcmp(type,"char") == 0) { sz = sizeof(char)*numelements; cast = "_char_p"; } else if (strcmp(type,"char *") == 0) { sz = sizeof(char *)*(numelements+1); cast = "_char_pp"; } else { PyErr_SetString(PyExc_TypeError,"Unable to create unknown datatype."); return NULL; } /* Create the new object */ ptr = (void *) malloc(sz); if (!ptr) { PyErr_SetString(PyExc_MemoryError,"Out of memory in swig_create."); return NULL; } /* Now try to set its default value */ if (_PYVALUE) { if (strcmp(type,"int") == 0) { int *ip,i,ivalue; ivalue = (int) PyInt_AsLong(_PYVALUE); ip = (int *) ptr; for (i = 0; i < numelements; i++) ip[i] = ivalue; } else if (strcmp(type,"short") == 0) { short *ip,ivalue; int i; ivalue = (short) PyInt_AsLong(_PYVALUE); ip = (short *) ptr; for (i = 0; i < numelements; i++) ip[i] = ivalue; } else if (strcmp(type,"long") == 0) { long *ip,ivalue; int i; ivalue = (long) PyInt_AsLong(_PYVALUE); ip = (long *) ptr; for (i = 0; i < numelements; i++) ip[i] = ivalue; } else if (strcmp(type,"double") == 0) { double *ip,ivalue; int i; ivalue = (double) PyFloat_AsDouble(_PYVALUE); ip = (double *) ptr; for (i = 0; i < numelements; i++) ip[i] = ivalue; } else if (strcmp(type,"float") == 0) { float *ip,ivalue; int i; ivalue = (float) PyFloat_AsDouble(_PYVALUE); ip = (float *) ptr; for (i = 0; i < numelements; i++) ip[i] = ivalue; } else if (strcmp(type,"char") == 0) { char *ip,*ivalue; ivalue = (char *) PyString_AsString(_PYVALUE); ip = (char *) ptr; strncpy(ip,ivalue,numelements-1); } else if (strcmp(type,"char *") == 0) { char **ip, *ivalue; int i; ivalue = (char *) PyString_AsString(_PYVALUE); ip = (char **) ptr; for (i = 0; i < numelements; i++) { if (ivalue) { ip[i] = (char *) malloc(strlen(ivalue)+1); strcpy(ip[i],ivalue); } else { ip[i] = 0; } } ip[numelements] = 0; } } /* Create the pointer value */ SWIG_MakePtr(temp,ptr,cast); obj = PyString_FromString(temp); return obj; } /*------------------------------------------------------------------ ptrset(ptr,value,index = 0,type = 0) Attempts to set the value of a pointer variable. If type is given, we will use that type. Otherwise, we'll guess the datatype. ------------------------------------------------------------------ */ static PyObject *ptrset(PyObject *_PTRVALUE, PyObject *_PYVALUE, int index, char *type) { void *ptr; char *s; PyObject *obj; if (!PyString_Check(_PTRVALUE)) { PyErr_SetString(PyExc_TypeError,"Type error in ptrset. Argument is not a valid pointer value."); return NULL; } s = PyString_AsString(_PTRVALUE); if (SWIG_GetPtr(s,&ptr,0)) { PyErr_SetString(PyExc_TypeError,"Type error in ptrset. Argument is not a valid pointer value."); return NULL; } /* If no datatype was passed, try a few common datatypes first */ if (!type) { /* No datatype was passed. Type to figure out if it's a common one */ if (!SWIG_GetPtr(s,&ptr,"_int_p")) { type = "int"; } else if (!SWIG_GetPtr(s,&ptr,"_double_p")) { type = "double"; } else if (!SWIG_GetPtr(s,&ptr,"_short_p")) { type = "short"; } else if (!SWIG_GetPtr(s,&ptr,"_long_p")) { type = "long"; } else if (!SWIG_GetPtr(s,&ptr,"_float_p")) { type = "float"; } else if (!SWIG_GetPtr(s,&ptr,"_char_p")) { type = "char"; } else if (!SWIG_GetPtr(s,&ptr,"_char_pp")) { type = "char *"; } else { type = "unknown"; } } if (!ptr) { PyErr_SetString(PyExc_TypeError,"Unable to set NULL pointer."); return NULL; } /* Now we have a datatype. Try to figure out what to do about it */ if (strcmp(type,"int") == 0) { *(((int *) ptr)+index) = (int) PyInt_AsLong(_PYVALUE); } else if (strcmp(type,"double") == 0) { *(((double *) ptr)+index) = (double) PyFloat_AsDouble(_PYVALUE); } else if (strcmp(type,"short") == 0) { *(((short *) ptr)+index) = (short) PyInt_AsLong(_PYVALUE); } else if (strcmp(type,"long") == 0) { *(((long *) ptr)+index) = (long) PyInt_AsLong(_PYVALUE); } else if (strcmp(type,"float") == 0) { *(((float *) ptr)+index) = (float) PyFloat_AsDouble(_PYVALUE); } else if (strcmp(type,"char") == 0) { char *c = PyString_AsString(_PYVALUE); strcpy(((char *) ptr)+index, c); } else if (strcmp(type,"char *") == 0) { char *c = PyString_AsString(_PYVALUE); char **ca = (char **) ptr; if (ca[index]) free(ca[index]); if (strcmp(c,"NULL") == 0) { ca[index] = 0; } else { ca[index] = (char *) malloc(strlen(c)+1); strcpy(ca[index],c); } } else { PyErr_SetString(PyExc_TypeError,"Unable to set unsupported datatype."); return NULL; } Py_INCREF(Py_None); return Py_None; } /*------------------------------------------------------------------ ptradd(ptr,offset) Adds a value to an existing pointer value. Will do a type-dependent add for basic datatypes. For other datatypes, will do a byte-add. ------------------------------------------------------------------ */ static PyObject *ptradd(PyObject *_PTRVALUE, int offset) { char *r,*s; void *ptr,*junk; PyObject *obj; char *type; /* Check to see what kind of object _PTRVALUE is */ if (PyString_Check(_PTRVALUE)) { /* Have a potential pointer value now. Try to strip out the value */ s = PyString_AsString(_PTRVALUE); /* Try to handle a few common datatypes first */ if (!SWIG_GetPtr(s,&ptr,"_int_p")) { ptr = (void *) (((int *) ptr) + offset); } else if (!SWIG_GetPtr(s,&ptr,"_double_p")) { ptr = (void *) (((double *) ptr) + offset); } else if (!SWIG_GetPtr(s,&ptr,"_short_p")) { ptr = (void *) (((short *) ptr) + offset); } else if (!SWIG_GetPtr(s,&ptr,"_long_p")) { ptr = (void *) (((long *) ptr) + offset); } else if (!SWIG_GetPtr(s,&ptr,"_float_p")) { ptr = (void *) (((float *) ptr) + offset); } else if (!SWIG_GetPtr(s,&ptr,"_char_p")) { ptr = (void *) (((char *) ptr) + offset); } else if (!SWIG_GetPtr(s,&ptr,0)) { ptr = (void *) (((char *) ptr) + offset); } else { PyErr_SetString(PyExc_TypeError,"Type error in ptradd. Argument is not a valid pointer value."); return NULL; } type = SWIG_GetPtr(s,&junk,"INVALID POINTER"); r = (char *) malloc(strlen(type)+20); if (ptr) { SWIG_MakePtr(r,ptr,type); } else { sprintf(r,"_0%s",type); } obj = PyString_FromString(r); free(r); } return obj; } /*------------------------------------------------------------------ ptrmap(type1,type2) Allows a mapping between type1 and type2. (Like a typedef) ------------------------------------------------------------------ */ static void ptrmap(char *type1, char *type2) { char *typestr1,*typestr2,*c,*r; /* Produce a "mangled" version of the type string. */ typestr1 = (char *) malloc(strlen(type1)+2); /* Go through and munge the typestring */ r = typestr1; *(r++) = '_'; c = type1; while (*c) { if (!isspace(*c)) { if ((*c == '*') || (*c == '&')) { *(r++) = 'p'; } else *(r++) = *c; } else { *(r++) = '_'; } c++; } *(r++) = 0; typestr2 = (char *) malloc(strlen(type2)+2); /* Go through and munge the typestring */ r = typestr2; *(r++) = '_'; c = type2; while (*c) { if (!isspace(*c)) { if ((*c == '*') || (*c == '&')) { *(r++) = 'p'; } else *(r++) = *c; } else { *(r++) = '_'; } c++; } *(r++) = 0; SWIG_RegisterMapping(typestr1,typestr2,0); SWIG_RegisterMapping(typestr2,typestr1,0); } /*------------------------------------------------------------------ ptrfree(ptr) Destroys a pointer value ------------------------------------------------------------------ */ PyObject *ptrfree(PyObject *_PTRVALUE) { void *ptr, *junk; char *s; if (!PyString_Check(_PTRVALUE)) { PyErr_SetString(PyExc_TypeError,"Type error in ptrfree. Argument is not a valid pointer value."); return NULL; } s = PyString_AsString(_PTRVALUE); if (SWIG_GetPtr(s,&ptr,0)) { PyErr_SetString(PyExc_TypeError,"Type error in ptrfree. Argument is not a valid pointer value."); return NULL; } /* Check to see if this pointer is a char ** */ if (!SWIG_GetPtr(s,&junk,"_char_pp")) { char **c = (char **) ptr; if (c) { int i = 0; while (c[i]) { free(c[i]); i++; } } } if (ptr) free((char *) ptr); Py_INCREF(Py_None); return Py_None; } #ifdef __cplusplus extern "C" { #endif static PyObject *_wrap_ptrcast(PyObject *self, PyObject *args) { PyObject * _resultobj; PyObject * _result; PyObject * _arg0; char * _arg1; PyObject * _obj0 = 0; self = self; if(!PyArg_ParseTuple(args,"Os:ptrcast",&_obj0,&_arg1)) return NULL; { _arg0 = _obj0; } _result = (PyObject *)ptrcast(_arg0,_arg1); { _resultobj = _result; } return _resultobj; } static PyObject *_wrap_ptrvalue(PyObject *self, PyObject *args) { PyObject * _resultobj; PyObject * _result; PyObject * _arg0; int _arg1 = (int ) 0; char * _arg2 = (char *) 0; PyObject * _obj0 = 0; self = self; if(!PyArg_ParseTuple(args,"O|is:ptrvalue",&_obj0,&_arg1,&_arg2)) return NULL; { _arg0 = _obj0; } _result = (PyObject *)ptrvalue(_arg0,_arg1,_arg2); { _resultobj = _result; } return _resultobj; } static PyObject *_wrap_ptrset(PyObject *self, PyObject *args) { PyObject * _resultobj; PyObject * _result; PyObject * _arg0; PyObject * _arg1; int _arg2 = (int ) 0; char * _arg3 = (char *) 0; PyObject * _obj0 = 0; PyObject * _obj1 = 0; self = self; if(!PyArg_ParseTuple(args,"OO|is:ptrset",&_obj0,&_obj1,&_arg2,&_arg3)) return NULL; { _arg0 = _obj0; } { _arg1 = _obj1; } _result = (PyObject *)ptrset(_arg0,_arg1,_arg2,_arg3); { _resultobj = _result; } return _resultobj; } static PyObject *_wrap_ptrcreate(PyObject *self, PyObject *args) { PyObject * _resultobj; PyObject * _result; char * _arg0; PyObject * _arg1 = (PyObject *) 0; int _arg2 = (int ) 1; PyObject * _obj1 = 0; self = self; if(!PyArg_ParseTuple(args,"s|Oi:ptrcreate",&_arg0,&_obj1,&_arg2)) return NULL; if (_obj1) { _arg1 = _obj1; } _result = (PyObject *)ptrcreate(_arg0,_arg1,_arg2); { _resultobj = _result; } return _resultobj; } static PyObject *_wrap_ptrfree(PyObject *self, PyObject *args) { PyObject * _resultobj; PyObject * _result; PyObject * _arg0; PyObject * _obj0 = 0; self = self; if(!PyArg_ParseTuple(args,"O:ptrfree",&_obj0)) return NULL; { _arg0 = _obj0; } _result = (PyObject *)ptrfree(_arg0); { _resultobj = _result; } return _resultobj; } static PyObject *_wrap_ptradd(PyObject *self, PyObject *args) { PyObject * _resultobj; PyObject * _result; PyObject * _arg0; int _arg1; PyObject * _obj0 = 0; self = self; if(!PyArg_ParseTuple(args,"Oi:ptradd",&_obj0,&_arg1)) return NULL; { _arg0 = _obj0; } _result = (PyObject *)ptradd(_arg0,_arg1); { _resultobj = _result; } return _resultobj; } static PyObject *_wrap_ptrmap(PyObject *self, PyObject *args) { PyObject * _resultobj; char * _arg0; char * _arg1; self = self; if(!PyArg_ParseTuple(args,"ss:ptrmap",&_arg0,&_arg1)) return NULL; ptrmap(_arg0,_arg1); Py_INCREF(Py_None); _resultobj = Py_None; return _resultobj; } static PyObject *_wrap_iff_exec(PyObject *self, PyObject *args) { PyObject * _resultobj; int _result; char * _arg0; self = self; if(!PyArg_ParseTuple(args,"s:iff_exec",&_arg0)) return NULL; _result = (int )iff_exec(_arg0); _resultobj = Py_BuildValue("i",_result); return _resultobj; } static PyObject *_wrap_ifeffit(PyObject *self, PyObject *args) { PyObject * _resultobj; int _result; char * _arg0; self = self; if(!PyArg_ParseTuple(args,"s:ifeffit",&_arg0)) return NULL; _result = (int )ifeffit(_arg0); _resultobj = Py_BuildValue("i",_result); return _resultobj; } static PyObject *_wrap_iff_get_string(PyObject *self, PyObject *args) { PyObject * _resultobj; int _result; char * _arg0; char * _arg1; self = self; if(!PyArg_ParseTuple(args,"ss:iff_get_string",&_arg0,&_arg1)) return NULL; _result = (int )iff_get_string(_arg0,_arg1); _resultobj = Py_BuildValue("i",_result); return _resultobj; } static PyObject *_wrap_iff_put_string(PyObject *self, PyObject *args) { PyObject * _resultobj; int _result; char * _arg0; char * _arg1; self = self; if(!PyArg_ParseTuple(args,"ss:iff_put_string",&_arg0,&_arg1)) return NULL; _result = (int )iff_put_string(_arg0,_arg1); _resultobj = Py_BuildValue("i",_result); return _resultobj; } static PyObject *_wrap_iff_get_scalar(PyObject *self, PyObject *args) { PyObject * _resultobj; int _result; char * _arg0; double * _arg1; PyObject * _argo1 = 0; self = self; if(!PyArg_ParseTuple(args,"sO:iff_get_scalar",&_arg0,&_argo1)) return NULL; if (_argo1) { if (_argo1 == Py_None) { _arg1 = NULL; } else if (SWIG_GetPtrObj(_argo1,(void **) &_arg1,"_double_p")) { PyErr_SetString(PyExc_TypeError,"Type error in argument 2 of iff_get_scalar. Expected _double_p."); return NULL; } } _result = (int )iff_get_scalar(_arg0,_arg1); _resultobj = Py_BuildValue("i",_result); return _resultobj; } static PyObject *_wrap_iff_put_scalar(PyObject *self, PyObject *args) { PyObject * _resultobj; int _result; char * _arg0; double * _arg1; PyObject * _argo1 = 0; self = self; if(!PyArg_ParseTuple(args,"sO:iff_put_scalar",&_arg0,&_argo1)) return NULL; if (_argo1) { if (_argo1 == Py_None) { _arg1 = NULL; } else if (SWIG_GetPtrObj(_argo1,(void **) &_arg1,"_double_p")) { PyErr_SetString(PyExc_TypeError,"Type error in argument 2 of iff_put_scalar. Expected _double_p."); return NULL; } } _result = (int )iff_put_scalar(_arg0,_arg1); _resultobj = Py_BuildValue("i",_result); return _resultobj; } static PyObject *_wrap_iff_get_array(PyObject *self, PyObject *args) { PyObject * _resultobj; int _result; char * _arg0; double * _arg1; PyObject * _argo1 = 0; self = self; if(!PyArg_ParseTuple(args,"sO:iff_get_array",&_arg0,&_argo1)) return NULL; if (_argo1) { if (_argo1 == Py_None) { _arg1 = NULL; } else if (SWIG_GetPtrObj(_argo1,(void **) &_arg1,"_double_p")) { PyErr_SetString(PyExc_TypeError,"Type error in argument 2 of iff_get_array. Expected _double_p."); return NULL; } } _result = (int )iff_get_array(_arg0,_arg1); _resultobj = Py_BuildValue("i",_result); return _resultobj; } static PyObject *_wrap_iff_put_array(PyObject *self, PyObject *args) { PyObject * _resultobj; int _result; char * _arg0; int * _arg1; double * _arg2; PyObject * _argo1 = 0; PyObject * _argo2 = 0; self = self; if(!PyArg_ParseTuple(args,"sOO:iff_put_array",&_arg0,&_argo1,&_argo2)) return NULL; if (_argo1) { if (_argo1 == Py_None) { _arg1 = NULL; } else if (SWIG_GetPtrObj(_argo1,(void **) &_arg1,"_int_p")) { PyErr_SetString(PyExc_TypeError,"Type error in argument 2 of iff_put_array. Expected _int_p."); return NULL; } } if (_argo2) { if (_argo2 == Py_None) { _arg2 = NULL; } else if (SWIG_GetPtrObj(_argo2,(void **) &_arg2,"_double_p")) { PyErr_SetString(PyExc_TypeError,"Type error in argument 3 of iff_put_array. Expected _double_p."); return NULL; } } _result = (int )iff_put_array(_arg0,_arg1,_arg2); _resultobj = Py_BuildValue("i",_result); return _resultobj; } static PyObject *_wrap_iff_get_echo(PyObject *self, PyObject *args) { PyObject * _resultobj; int _result; char * _arg0; self = self; if(!PyArg_ParseTuple(args,"s:iff_get_echo",&_arg0)) return NULL; _result = (int )iff_get_echo(_arg0); _resultobj = Py_BuildValue("i",_result); return _resultobj; } static PyObject *_wrap_iff_strval(PyObject *self, PyObject *args) { PyObject * _resultobj; char * _result; char * _arg0; self = self; if(!PyArg_ParseTuple(args,"s:iff_strval",&_arg0)) return NULL; _result = (char *)iff_strval(_arg0); _resultobj = Py_BuildValue("s", _result); return _resultobj; } static PyObject *_wrap_iff_scaval(PyObject *self, PyObject *args) { PyObject * _resultobj; double * _result; char * _arg0; char _ptemp[128]; self = self; if(!PyArg_ParseTuple(args,"s:iff_scaval",&_arg0)) return NULL; _result = (double *)iff_scaval(_arg0); if (_result) { SWIG_MakePtr(_ptemp, (char *) _result,"_double_p"); _resultobj = Py_BuildValue("s",_ptemp); } else { Py_INCREF(Py_None); _resultobj = Py_None; } return _resultobj; } static PyObject *_wrap_ifeffit_(PyObject *self, PyObject *args) { PyObject * _resultobj; int _result; char * _arg0; int _arg1; self = self; if(!PyArg_ParseTuple(args,"si:ifeffit_",&_arg0,&_arg1)) return NULL; _result = (int )ifeffit_(_arg0,_arg1); _resultobj = Py_BuildValue("i",_result); return _resultobj; } static PyObject *_wrap_iffgetstr_(PyObject *self, PyObject *args) { PyObject * _resultobj; int _result; char * _arg0; char * _arg1; int _arg2; int _arg3; self = self; if(!PyArg_ParseTuple(args,"ssii:iffgetstr_",&_arg0,&_arg1,&_arg2,&_arg3)) return NULL; _result = (int )iffgetstr_(_arg0,_arg1,_arg2,_arg3); _resultobj = Py_BuildValue("i",_result); return _resultobj; } static PyObject *_wrap_iffgetsca_(PyObject *self, PyObject *args) { PyObject * _resultobj; int _result; char * _arg0; double * _arg1; int _arg2; PyObject * _argo1 = 0; self = self; if(!PyArg_ParseTuple(args,"sOi:iffgetsca_",&_arg0,&_argo1,&_arg2)) return NULL; if (_argo1) { if (_argo1 == Py_None) { _arg1 = NULL; } else if (SWIG_GetPtrObj(_argo1,(void **) &_arg1,"_double_p")) { PyErr_SetString(PyExc_TypeError,"Type error in argument 2 of iffgetsca_. Expected _double_p."); return NULL; } } _result = (int )iffgetsca_(_arg0,_arg1,_arg2); _resultobj = Py_BuildValue("i",_result); return _resultobj; } static PyObject *_wrap_iffgetarr_(PyObject *self, PyObject *args) { PyObject * _resultobj; int _result; char * _arg0; double * _arg1; int _arg2; PyObject * _argo1 = 0; self = self; if(!PyArg_ParseTuple(args,"sOi:iffgetarr_",&_arg0,&_argo1,&_arg2)) return NULL; if (_argo1) { if (_argo1 == Py_None) { _arg1 = NULL; } else if (SWIG_GetPtrObj(_argo1,(void **) &_arg1,"_double_p")) { PyErr_SetString(PyExc_TypeError,"Type error in argument 2 of iffgetarr_. Expected _double_p."); return NULL; } } _result = (int )iffgetarr_(_arg0,_arg1,_arg2); _resultobj = Py_BuildValue("i",_result); return _resultobj; } static PyObject *_wrap_iffputarr_(PyObject *self, PyObject *args) { PyObject * _resultobj; int _result; char * _arg0; int * _arg1; double * _arg2; int _arg3; PyObject * _argo1 = 0; PyObject * _argo2 = 0; self = self; if(!PyArg_ParseTuple(args,"sOOi:iffputarr_",&_arg0,&_argo1,&_argo2,&_arg3)) return NULL; if (_argo1) { if (_argo1 == Py_None) { _arg1 = NULL; } else if (SWIG_GetPtrObj(_argo1,(void **) &_arg1,"_int_p")) { PyErr_SetString(PyExc_TypeError,"Type error in argument 2 of iffputarr_. Expected _int_p."); return NULL; } } if (_argo2) { if (_argo2 == Py_None) { _arg2 = NULL; } else if (SWIG_GetPtrObj(_argo2,(void **) &_arg2,"_double_p")) { PyErr_SetString(PyExc_TypeError,"Type error in argument 3 of iffputarr_. Expected _double_p."); return NULL; } } _result = (int )iffputarr_(_arg0,_arg1,_arg2,_arg3); _resultobj = Py_BuildValue("i",_result); return _resultobj; } static PyObject *_wrap_iffgetecho_(PyObject *self, PyObject *args) { PyObject * _resultobj; int _result; char * _arg0; int _arg1; self = self; if(!PyArg_ParseTuple(args,"si:iffgetecho_",&_arg0,&_arg1)) return NULL; _result = (int )iffgetecho_(_arg0,_arg1); _resultobj = Py_BuildValue("i",_result); return _resultobj; } static PyMethodDef IfeffitMethods[] = { { "iffgetecho_", _wrap_iffgetecho_, METH_VARARGS }, { "iffputarr_", _wrap_iffputarr_, METH_VARARGS }, { "iffgetarr_", _wrap_iffgetarr_, METH_VARARGS }, { "iffgetsca_", _wrap_iffgetsca_, METH_VARARGS }, { "iffgetstr_", _wrap_iffgetstr_, METH_VARARGS }, { "ifeffit_", _wrap_ifeffit_, METH_VARARGS }, { "iff_scaval", _wrap_iff_scaval, METH_VARARGS }, { "iff_strval", _wrap_iff_strval, METH_VARARGS }, { "iff_get_echo", _wrap_iff_get_echo, METH_VARARGS }, { "iff_put_array", _wrap_iff_put_array, METH_VARARGS }, { "iff_get_array", _wrap_iff_get_array, METH_VARARGS }, { "iff_put_scalar", _wrap_iff_put_scalar, METH_VARARGS }, { "iff_get_scalar", _wrap_iff_get_scalar, METH_VARARGS }, { "iff_put_string", _wrap_iff_put_string, METH_VARARGS }, { "iff_get_string", _wrap_iff_get_string, METH_VARARGS }, { "ifeffit", _wrap_ifeffit, METH_VARARGS }, { "iff_exec", _wrap_iff_exec, METH_VARARGS }, { "ptrmap", _wrap_ptrmap, METH_VARARGS }, { "ptradd", _wrap_ptradd, METH_VARARGS }, { "ptrfree", _wrap_ptrfree, METH_VARARGS }, { "ptrcreate", _wrap_ptrcreate, METH_VARARGS }, { "ptrset", _wrap_ptrset, METH_VARARGS }, { "ptrvalue", _wrap_ptrvalue, METH_VARARGS }, { "ptrcast", _wrap_ptrcast, METH_VARARGS }, { NULL, NULL } }; #ifdef __cplusplus } #endif /* * This table is used by the pointer type-checker */ static struct { char *n1; char *n2; void *(*pcnv)(void *); } _swig_mapping[] = { { "_signed_long","_long",0}, { "_long","_unsigned_long",0}, { "_long","_signed_long",0}, { "_unsigned_long","_long",0}, { "_signed_int","_int",0}, { "_unsigned_short","_short",0}, { "_signed_short","_short",0}, { "_unsigned_int","_int",0}, { "_short","_unsigned_short",0}, { "_short","_signed_short",0}, { "_int","_unsigned_int",0}, { "_int","_signed_int",0}, {0,0,0}}; static PyObject *SWIG_globals; #ifdef __cplusplus extern "C" #endif SWIGEXPORT(void) initIfeffit() { PyObject *m, *d; SWIG_globals = SWIG_newvarlink(); m = Py_InitModule("Ifeffit", IfeffitMethods); d = PyModule_GetDict(m); { int i; for (i = 0; _swig_mapping[i].n1; i++) SWIG_RegisterMapping(_swig_mapping[i].n1,_swig_mapping[i].n2,_swig_mapping[i].pcnv); } } ifeffit-1.2.11d/wrappers/swig/ifeffit.h0000644000175000017500000000326010771740460016760 0ustar segresegre/************************* * C header file Ifeffit * *************************/ #if defined(WIN32) || defined(_WIN32) || defined(__WIN32__) #define IFF_EXPORT(a) __declspec(dllexport) a _stdcall #define IFF_INTERN(a) a _stdcall #else #define IFF_EXPORT(a) a #define IFF_INTERN(a) a #endif /* main interface routines */ IFF_EXPORT(int) iff_exec(char *); IFF_EXPORT(int) ifeffit(char *); IFF_EXPORT(int) iff_get_string(char *, char *); IFF_EXPORT(int) iff_put_string(char *, char *); IFF_EXPORT(int) iff_get_scalar(char *, double *); IFF_EXPORT(int) iff_put_scalar(char *, double *); IFF_EXPORT(int) iff_get_array(char *, double *); IFF_EXPORT(int) iff_put_array(char *, int *, double *); IFF_EXPORT(int) iff_get_echo(char *); IFF_EXPORT(char*) iff_strval(char *); IFF_EXPORT(double) iff_scaval(char *); /* raw interfaces to the fortran functions: these may need system level alterations as they assume 1.trailing underscore 2.char lengths as int at end of argument list these appear to be the unix norm. */ #if defined(WIN32) || defined(_WIN32) || defined(__WIN32__) int _stdcall IFFEXECF(char *, int); int _stdcall IFFGETSTR(char *, int, char *, int); int _stdcall IFFGETSCA(char *, int, double *); int _stdcall IFFGETARR(char *, int, double *); int _stdcall IFFPUTARR(char *, int, int *, double *); int _stdcall IFFGETECHO(char *, int); char* _stdcall IFF_STRVAL(char *); double _stdcall IFF_SCAVAL(char *); #else int ifeffit_(char *, int); int iffgetstr_(char *, char *, int, int); int iffgetsca_(char *, double *, int); int iffgetarr_(char *, double *, int); int iffputarr_(char *, int *, double *, int); int iffgetecho_(char *, int); #endif /* end */ ifeffit-1.2.11d/wrappers/swig/Ifeffit.pm0000644000175000017500000000034410771740460017105 0ustar segresegre# This file was automatically generated by SWIG package Ifeffit; require Exporter; require DynaLoader; @ISA = qw(Exporter DynaLoader); package Ifeffit; bootstrap Ifeffit; var_Ifeffit_init(); package Ifeffit; @EXPORT = qw( ); 1; ifeffit-1.2.11d/wrappers/swig/ifeffit.i0000644000175000017500000000031310771740460016755 0ustar segresegre%module Ifeffit %{ #include "ifeffit.h" %} %include cpointer.i %include carrays.i %include ifeffit.h %pointer_functions(int, Pint); %pointer_functions(double, Pdbl); %array_functions(double, Parr); ifeffit-1.2.11d/wrappers/swig/ifeffit_wrap.doc0000644000175000017500000001723510771740460020336 0ustar segresegreifeffit_wrap.c [ Python Module : Ifeffit ] 1. Pointer Handling Library ============================ %include pointer.i The pointer.i library provides run-time support for managing and manipulating a variety of C/C++ pointer values. In particular, you can create various kinds of objects and dereference common pointer types. This is done through a common set of functions: ptrcast - Casts a pointer to a new type ptrvalue - Dereferences a pointer ptrset - Set the value of an object referenced by a pointer. ptrcreate - Create a new object and return a pointer. ptrfree - Free the memory allocated by ptrcreate. ptradd - Increment/decrement a pointer value. ptrmap - Make two datatypes equivalent to each other. (Is a runtime equivalent of typedef). When creating, dereferencing, or setting the value of pointer variable, only the common C datatypes of int, short, long, float, double, char, and char * are currently supported. Other datatypes may generate an error. One of the more interesting aspects of this library is that it operates with a wide range of datatypes. For example, the "ptrvalue" function can dereference "double *", "int *", "long *", "char *", and other datatypes. Since SWIG encodes pointers with type information, this can be done transparently and in most cases, you can dereference a pointer without ever knowing what type it actually is. This library is primarily designed for utility, not high performance (the dynamic determination of pointer types takes more work than most normal wrapper functions). As a result, you may achieve better performance by writing customized "helper" functions if you're making lots of calls to these functions in inner loops or other intensive operations. ptrcast(ptr,type) Casts a pointer ptr to a new datatype given by the string type. type may be either the SWIG generated representation of a datatype or the C representation. For example : ptrcast(ptr,"double_p"); # Python representation ptrcast(ptr,"double *"); # C representation A new pointer value is returned. ptr may also be an integer value in which case the value will be used to set the pointer value. For example : a = ptrcast(0,"Vector_p"); Will create a NULL pointer of type "Vector_p" The casting operation is sensitive to formatting. As a result, "double *" is different than "double*". As a result of thumb, there should always be exactly one space between the C datatype and any pointer specifiers (*). ptrvalue(ptr,index,type) Returns the value that a pointer is pointing to (ie. dereferencing). The type is automatically inferred by the pointer type--thus, an integer pointer will return an integer, a double will return a double, and so on. The index and type fields are optional parameters. When an index is specified, this function returns the value of ptr[index]. This allows array access. When a type is specified, it overrides the given pointer type. Examples : ptrvalue(a) # Returns the value *a ptrvalue(a,10) # Returns the value a[10] ptrvalue(a,10,"double") # Returns a[10] assuming a is a double * ptrset(ptr,value,index,type) Sets the value pointed to by a pointer. The type is automatically inferred from the pointer type so this function will work for integers, floats, doubles, etc... The index and type fields are optional. When an index is given, it provides array access. When type is specified, it overrides the given pointer type. Examples : ptrset(a,3) # Sets the value *a = 3 ptrset(a,3,10) # Sets a[10] = 3 ptrset(a,3,10,"int") # Sets a[10] = 3 assuming a is a int * ptrcreate(type,value,nitems) Creates a new object and returns a pointer to it. This function can be used to create various kinds of objects for use in C functions. type specifies the basic C datatype to create and value is an optional parameter that can be used to set the initial value of the object. nitems is an optional parameter that can be used to create an array. This function results in a memory allocation using malloc(). Examples : a = ptrcreate("double") # Create a new double, return pointer a = ptrcreate("int",7) # Create an integer, set value to 7 a = ptrcreate("int",0,1000) # Create an integer array with initial # values all set to zero This function only recognizes a few common C datatypes as listed below : int, short, long, float, double, char, char *, void All other datatypes will result in an error. However, other datatypes can be created by using the ptrcast function. For example: a = ptrcast(ptrcreate("int",0,100),"unsigned int *") ptrfree(ptr) Destroys the memory pointed to by ptr. This function calls free() and should only be used with objects created by ptrcreate(). Since this function calls free, it may work with other objects, but this is generally discouraged unless you absolutely know what you're doing. ptradd(ptr,offset) Adds a value to the current pointer value. For the C datatypes of int, short, long, float, double, and char, the offset value is the number of objects and works in exactly the same manner as in C. For example, the following code steps through the elements of an array a = ptrcreate("double",0,100); # Create an array double a[100] b = a; for i in range(0,100): ptrset(b,0.0025*i); # set *b = 0.0025*i b = ptradd(b,1); # b++ (go to next double) In this case, adding one to b goes to the next double. For all other datatypes (including all complex datatypes), the offset corresponds to bytes. This function does not perform any bounds checking and negative offsets are perfectly legal. ptrmap(type1,type2) This is a rarely used function that performs essentially the same operation as a C typedef. To manage datatypes at run-time, SWIG modules manage an internal symbol table of type mappings. This table keeps track of which types are equivalent to each other. The ptrmap() function provides a mechanism for scripts to add symbols to this table. For example : ptrmap("double_p","Real_p"); would make the types "doublePtr" and "RealPtr" equivalent to each other. Pointers of either type could now be used interchangably. Normally this function is not needed, but it can be used to circumvent SWIG's normal type-checking behavior or to work around weird type-handling problems. iff_exec(char *) ifeffit(char *) iff_get_string(char *,char *) iff_put_string(char *,char *) iff_get_scalar(char *,double *) iff_put_scalar(char *,double *) iff_get_array(char *,double *) iff_put_array(char *,int *,double *) iff_get_echo(char *) iff_strval(char *) iff_scaval(char *) ifeffit_(char *,int ) iffgetstr_(char *,char *,int ,int ) iffgetsca_(char *,double *,int ) iffgetarr_(char *,double *,int ) iffputarr_(char *,int *,double *,int ) iffgetecho_(char *,int ) ifeffit-1.2.11d/wrappers/README0000644000175000017500000000401710771740460015103 0ustar segresegreWrappers to Ifeffit for Perl, Python, and Tcl --------------------------------------------- For each language, the wrapper made here will give you access directly to Ifeffit from within the scripting language itself. This merges the power of the scripting language and the functionality of Ifeffit. From the scripting language point-of-view, this is called an _extension_ to the language. From Ifeffit's point-of-view, this is called a _wrapper_. Building and Installation instructions are given in the README file in each subdirectory. To build each wrapper, you will need a working installation of that language. The latest versions of these languages, and a wealth of information about them can be found at: Perl: http://www.perl.com/ Python: http://www.python.org/ Tcl: http://www.scriptics.com/ For Perl, you'll need version 5.0003 or higher, and version 5.6 or higher is recommended. For Python, you'll need version 1.5.2 or higher, and version 2.1 or higher is recommended. For Tcl, you'll need version 8.0 or higher. You will also need a working installation of Ifeffit. That is, the Ifeffit library __Must Be Installed__ before these wrappers can be built. On some systems (notably linux), there are some problems with pre-built fortran installations, especially when trying to make shared-objects, as needs to be done for the extensions made here. If you have problems, please consult the Fortran.Notes file in this directory. Perl Notes ---------- Perl 5.6 made a substantial change from Perl 5.5 (aka 5.005) in how extensions are made. Because of this, the internal parts of the Ifeffit perl wrapper are different for perl 5.6 (and later) and 5.5 (and earlier). If you have perl 5.6 or 5.8 (as is recommended), follow the instructions in wrappers/perl. For perl 5.003 to 5.5, follow the instructions in wrappers/perl_old. Note: The way programs USE Ifeffit.pm is not affected by this change!! If you don't know which version of perl you have, type 'perl -v'. Matt Newville ifeffit-1.2.11d/PGPLOT_install0000755000175000017500000002536110771740461015047 0ustar segresegre#!/bin/sh # # This file will attempt to download the PGPLOT library # and then build it for a linux system. # # syntax: PGPLOT_install --system=system_os --prefix=PREFIX # # where system_os is linux, irix, sun4, etc # # This may need customization for some systems # # verified on: linux # prefix='/usr/local/' system='linux' dir=`pwd` logfile=$dir/PGPLOT_install.log wget=/usr/bin/wget ncftp=/usr/bin/ncftp ftp=/usr/bin/ftp # set pgplot file locales # pgp_ftpsite='ftp.astro.caltech.edu' pgp_ftpdir='pub/pgplot/' pgp_file='pgplot5.2.tar.gz' # # default is to build with gif and without png support # with_gif=1 with_png=1 do_clean=1 do_log=1 use_64=0 fcompl= # get command line options for opt do option='' case "$opt" in -*=*) optarg=`echo "$opt" | sed 's/[-_a-zA-Z0-9]*=//'` option=`echo "$opt" | sed 's/=.*//' | sed 's/-*//'` ;; *) option=`echo "$opt" | sed 's/^-*//'` optarg= ;; esac case "$option" in prefix) prefix=$optarg ;; system) system=$optarg ;; with-64bit) use_64=1 ;; no-clean) do_clean=0 ;; no-log) do_log=0 ;; with-fortran) fcompl=$optarg ;; with-png) with_png=1 ;; with-gif) with_gif=1 ;; no-png) with_png=0 ;; no-gif) with_gif=0 ;; -help | --help | help) cat< $logfile echo "# PGPLOT install log " >> $logfile echo "# system = " $system " == " $pgp_sys >> $logfile echo "# prefix = " $prefix >> $logfile fi # #----------------------------------------- ## ## try wget, ncftp, and then ftp to get file echo " = Looking for PGPLOT file: $pgp_file" if [ -f $pgp_file ] ; then x=1 else echo " = PGPLOT file not found " echo " = I'll try to download it for you..." if [ -f $wget ] ; then echo " trying with wget" tmp="ftp://$pgp_ftpsite/$pgp_ftpdir$pgp_file" echo "getting $tmp" wget --tries=2 $tmp fi fi if [ -f $pgp_file ]; then x=1 else if [ -f $ncftp ] ; then echo " trying with ncftp" $ncftp $pgp_ftpsite<> $logfile fi exit 1 fi ## echo " = Preparing PGPLOT Installation: " echo " = Looking for X libraries " x11_loc='' if [ -d /usr/X11 ] ; then echo " = X libraries found at /usr/X11 " x11_loc='/usr/X11' else if [ -d /usr/X11R6 ] ; then echo " = X libraries found at /usr/X11R6 " x11_loc='/usr/X11R6' else echo " = X libraries not found: could be serious! = " fi fi ## echo " = Looking for fortran compiler " if test x$fcompl = 'x' ; then f77 -v > /dev/null 2>&1 if [ $? = 0 ] ; then fcompl='g77' ; fi g95 -v > /dev/null 2>&1 if [ $? = 0 ] ; then fcompl='g95' ; fi g77 -v > /dev/null 2>&1 if [ $? = 0 ] ; then fcompl='g77' ; fi gfortran -v > /dev/null 2>&1 if [ $? = 0 ] ; then fcompl='gfortran'; fi fi echo " fortran compiler = " $fcompl if test $do_log = 1 ; then echo "# fortran compiler = " $fcompl >> $logfile fi if test x$fcompl = 'x' ; then echo ' No fortran compiler found -- cannot install PGPLOT!' exit 1 fi ## unpack kit echo " = Unpacking PGPLOT: " gzip -dc $pgp_file | tar xf - if test $do_log = 1 ; then echo "gzip -dc $pgp_file | tar xf -" >> $logfile fi # # copy Fortran90 gidriv.f for modern fortrans -- yick! if [ x$fcompl != 'xg77' ] ; then echo 'copying fortran90 gif driver to PGPLOT' cp -fp pgplot_extras/gidriv.f pgplot/drivers/gidriv.f fi echo " = Creating $pgp_dir and drivers.list " mkdir -p $pgp_dir if test $do_log = 1 ; then echo "mkdir -p $pgp_dir" >> $logfile fi ## ## create drivers.list echo '! PGPLOT drivers created by PGPLOT_install for ifeffit: ' > $pgp_dir/drivers.list if test $with_gif = 1 ; then echo ' GIDRIV 1 /GIF '>>$pgp_dir/drivers.list echo ' GIDRIV 2 /VGIF '>>$pgp_dir/drivers.list fi if test $with_png = 1 ; then echo ' PNDRIV 1 /PNG '>>$pgp_dir/drivers.list echo ' PNDRIV 2 /TPNG '>>$pgp_dir/drivers.list fi echo ' NUDRIV 0 /NULL '>>$pgp_dir/drivers.list echo ' PSDRIV 1 /PS '>>$pgp_dir/drivers.list echo ' PSDRIV 2 /VPS '>>$pgp_dir/drivers.list echo ' PSDRIV 3 /CPS '>>$pgp_dir/drivers.list echo ' PSDRIV 4 /VCPS '>>$pgp_dir/drivers.list echo ' XWDRIV 1 /XWINDOW '>>$pgp_dir/drivers.list echo ' XWDRIV 2 /XSERVE '>>$pgp_dir/drivers.list if test $do_log = 1 ; then echo "# driver.list written to " $pgp_dir/drivers.list >> $logfile echo "# starting build" >> $logfile echo " " >> $logfile fi echo " = Running the PGPGLOT makemake script " cd $pgp_dir/ rm -f grfont.dat pgplot.doc pgxwin_server lib*pgplot* pgdemo* *.o $dir/pgplot/makemake $dir/pgplot $pgp_sys if test $do_log = 1 ; then echo "cd $pgp_dir/" >> $logfile echo 'rm -f grfont.dat pgplot.doc pgxwin_server lib*pgplot* pgdemo* '>> $logfile echo $dir/pgplot/makemake $dir/pgplot $pgp_sys >> $logfile fi # hack grgfil to use $pgp_dir as default location sed 's|/usr/local/pgplot/|'$pgp_dir'|g' $dir/pgplot/src/grgfil.f > $dir/pgplot/src/grgfil_iff.f mv makefile Tmp sed 's|grgfil|grgfil_iff|g' Tmp > makefile sed 's|libpgplot|libpgplot_iff|g' makefile > Tmp sed 's|-lpgplot|-lpgplot_iff|g' Tmp > makefile echo 'customized grgfil.f for ifeffit' if test $do_log = 1 ; then echo "# customizing grgil.f for ifeffit " >> $logfile echo "sed 's|/usr/local/pgplot/|$pgp_dir|g' $dir/pgplot/src/grgfil.f > $dir/pgplot/src/grgfil_iff.f" >> $logfile echo "mv makefile Tmp" >> $logfile echo "sed 's|grgfil|grgfil_iff|g' Tmp > makefile" >> $logfile echo "sed 's|libpgplot|libpgplot_iff|g' makefile > Tmp" >> $logfile echo "sed 's|-lpgplot|-lpgplot_iff|g' Tmp > makefile" >> $logfile fi # hack xwdriv.c to use $pgp_dir a sed 's|getenv("PGPLOT_DIR")|'\"$pgp_dir\"'|g' $dir/pgplot/drivers/xwdriv.c > $dir/pgplot/drivers/xwdriv_iff.c mv makefile Tmp sed 's|xwdriv|xwdriv_iff|g' Tmp > makefile echo 'customized xwdriv.c for ifeffit' if test $do_log = 1 ; then echo "# customizing xwdriv.c for ifeffit " >> $logfile echo " sed 's|getenv(\"PGPLOT_DIR\")|'\"$pgp_dir\"'|g' $dir/pgplot/drivers/xwdriv.c > $dir/pgplot/drivers/xwdriv_iff.c" >> $logfile echo "mv makefile Tmp" >> $logfile echo "sed 's|xwdriv|xwdriv_iff|g' Tmp > makefile" >> $logfile fi # for 64-bit systems if test $use_64 = 1; then sed 's|/usr/X11R6/lib|/usr/X11R6/lib64|g' makefile > Tmp sed 's|/usr/X11/lib|/usr/X11/lib64|g' Tmp > makefile if test $do_log = 1 ; then echo "# 64-bit " >> $logfile echo " sed 's|/usr/X11R6/lib|/usr/X11R6/lib64|g' makefile > Tmp " >> $logfile echo " sed 's|/usr/X11/lib|/usr/X11/lib64|g' Tmp > makefile " >> $logfile fi fi if test $with_png = 1 ; then mv makefile Tmp sed 's|pndriv.o : ./png.h|#### pndriv.o : ./png.h|g' Tmp > makefile if test $do_log = 1 ; then echo "# fix png driver" >> $logfile echo "mv makefile Tmp " >> $logfile echo "sed 's|pndriv.o : ./png.h|#### pndriv.o : ./png.h|g' Tmp > makefile " >> $logfile fi fi echo " = Running make for PGPLOT " make FCOMPL=$fcompl FFLAGC='-O2 -fPIC' libpgplot_iff.a make FCOMPL=$fcompl grfont.dat prog pgplot.doc pgxwin_server cpg if test $do_log = 1 ; then echo "make FCOMPL=" $fcompl "FFLAGC=-O1 libpgplot_iff.a " >> $logfile echo "make FCOMPL=" $fcompl "grfont.dat prog pgplot.doc pgxwin_server cpg" >> $logfile fi if test $do_clean = 1 ; then echo " = Cleaning up and preparing for test" make clean if test $do_log = 1 ; then echo "make clean " >> $logfile fi fi cd $dir ls $pgp_dir/ > Tmp_file.lis echo " = = = = = = = = = = = = = = = = = = = = = = = = = = " if ((grep "pgxwin_server" Tmp_file.lis >/dev/null) && (grep "rgb.txt" Tmp_file.lis >/dev/null) && (grep "libpgplot_iff.a" Tmp_file.lis >/dev/null) && (grep "pgdemo1" Tmp_file.lis >/dev/null) && (grep "grfont.dat" Tmp_file.lis >/dev/null)) ; then if test $do_clean = 1 ; then rm -rf pgplot/ fi echo " = PGPLOT appears to be correctly installed!" echo " =" echo " = Please read README.PGPLOT for more on setting up " echo " = PGPLOT for your system and try running the demo" echo " = programs in $pgp_dir " else echo " = Uh-oh. PGPLOT is missing some important files!" echo " = It looks like PGPLOT failed during building or" echo " = is only partially installed." echo " = " echo " = Please consult the PGPLOT installation instructions" echo " = in the subdirectory pgplot/, and the log file:" echo " = $logfile" echo " = which contains a full list of commands run." echo " =" echo " = You may want to repeat these steps by hand or " echo " = consult the PGPLOT installations instructions " echo " = in install-unix.txt" fi if test $do_clean = 1 ; then rm -f Tmp_file.lis fi echo " = = = = = = = = = = = = = = = = = = = = = = = = = = " echo " " # done ifeffit-1.2.11d/Tmp0000644000175000017500000000000011071235614013021 0ustar segresegreifeffit-1.2.11d/COPYING0000644000175000017500000000365710771740461013425 0ustar segresegreCopyright, Licensing, and Re-distribution ----------------------------------------- Unless otherwise stated, the code in the Ifeffit distribution is distributed under the following license: Copyright (c) 1997--2000 Matthew Newville, The University of Chicago Copyright (c) 1992--1996 Matthew Newville, University of Washington Permission to use and redistribute the source code or binary forms of this software and its documentation, with or without modification is hereby granted provided that the above notice of copyright, these terms of use, and the disclaimer of warranty below appear in the source code and documentation, and that none of the names of The University of Chicago, The University of Washington, or the authors appear in advertising or endorsement of works derived from this software without specific prior written permission from all parties. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. A considerable portion of the code in this distribution is distributed under the GNU Public License (GPL). Specifically, all code in the readline/ subdirectory is taken from the GNU distribution, and is covered by the GPL (see readline/COPYING). In addition, the code in src/cmdline which uses the GNU Readline library is also distributed under the GPL. Much of the code in the fortran/ subdirectory is distributed under a BSD-like license from Bellcore/Lucent Technologies. When in doubt, check the individual file for it's copyright and licensing status or contact the authors. ifeffit-1.2.11d/pgplot_extras/0000755000175000017500000000000010771740460015251 5ustar segresegreifeffit-1.2.11d/pgplot_extras/gidriv.f0000755000175000017500000005514710771740460016723 0ustar segresegre!C*GIDRIV -- PGPLOT GIF drivers !C+ SUBROUTINE GIDRIV (IFUNC, RBUF, NBUF, CHR, LCHR, MODE) IMPLICIT NONE INTEGER IFUNC, NBUF, LCHR, MODE REAL RBUF(*) CHARACTER*(*) CHR ! ! PGPLOT driver for Graphics Interchange Format (GIF) files. ! !*********************************************************************** ! CAUTION * ! * ! The GIF specification incorporates the Lempel-Zev-Welch (LZW) * ! compression technology which is the subject of a patent awarded to * ! Unisys. Use of this technology, and in particular creation of GIF * ! format files using this PGPLOT device driver, may require a license * ! from Unisys. * !*********************************************************************** ! ! Supported device: GIF87a file format ! ! Device type codes: /GIF or /VGIF ! ! Default device name: pgplot.gif. ! ! If you have more than one image to plot (i.e. use PGPAGE) with this ! device, subsequent pages will be named: pgplot2.gif, pgplot3.gif, ! etc, disrespective of the device name you specified. ! You can however bypass this by specifying a device name including a ! number sign (#), which will henceforth be replaced by the pagenumber. ! Example: page#.gif will produce files page1.gif, page2.gif, ..., ! page234.gif, etc. ! ! Default view surface dimensions are: ! - GIF : 1200 x 900 pixels (translates to 8.0 x 6.0 inch). ! - VGIF : 900 x 1200 pixels (translates to 6.0 x 8.0 inch). ! with an assumed scale of 150 pixels/inch. ! Default width and height can be overridden by specifying environment ! variables ! PGPLOT_GIF_WIDTH (default 1200) ! PGPLOT_GIF_HEIGHT (default 900) ! ! Color capability: ! Indices 0 to 255 are supported. Each of these indices can be assigned ! one color. Default colors for indices 0 to 15 are implemented. ! ! Obtaining hardcopy: Use a GIF viewer or converter. != ! 1-Aug-1994 - Created by Remko Scharroo ! 9-Aug-1994 - New scheme for line plotting ! 16-Aug-1994 - Provide multi-image plotting. ! 8-Sep-1994 - Add opcode 29 [TJP]. ! 5-Nov-1994 - Adjust size of bitmap if necessary [TJP]. ! 18-Jan-1995 - Attempt to prevent integer overflow on systems where ! BYTE is signed [TJP]. ! 28-Dec-1995 - prevent concurrent access [TJP]. ! 10-Jul-1996 - Fortran (F90) version; make PIXMAP and WORK allocatable ! arrays; remove all pass-by-value; test ALLOCATED(PIXMAP); ! direct-access binary file output; higher resolution [PAS] ! 24-Apr-1998 - CASE structure instead of computed GOTO; "!" comments [PAS] ! 28-Aug-1998 - FORM='BINARY' in OPEN statements (Digital Visual Fortran 5.0) ! *** Note: Not standard F90; remove if troublesome. [BRupp] ! 26-Dec-2000 - treat signed bytes differently (Digital Fortran 6.0) [PAS] !----------------------------------------------------------------------- CHARACTER*(*) LTYPE, PTYPE, DEFNAM INTEGER DWD, DHT, BX, BY PARAMETER (LTYPE= & &'GIF (Graphics Interchange Format file, landscape orientation)',& & PTYPE= & &'VGIF (Graphics Interchange Format file, portrait orientation)') PARAMETER (DEFNAM='pgplot.gif') PARAMETER (DWD=1200, DHT=900) REAL XRES, YRES PARAMETER (XRES=150., YRES=XRES) ! INTEGER UNIT, IC, NPICT, MAXIDX, STATE INTEGER CTABLE(3,0:255), CDEFLT(3,0:15) INTEGER IER, I, L, IOS, IX0, IY0, IX1, IY1 INTEGER GRTRIM CHARACTER*80 MSG, INSTR, FILENM ! ! Note: for 64-bit operating systems, change the following ! declaration to INTEGER*8: ! INTEGER(1),ALLOCATABLE :: PIXMAP(:,:) INTEGER(2),ALLOCATABLE :: WORK(:,:) ! SAVE UNIT, IC, CTABLE, NPICT, MAXIDX, BX, BY, PIXMAP, FILENM SAVE CDEFLT, STATE DATA CDEFLT /000,000,000, 255,255,255, 255,000,000, 000,255,000, & & 000,000,255, 000,255,255, 255,000,255, 255,255,000, & & 255,128,000, 128,255,000, 000,255,128, 000,128,255, & & 128,000,255, 255,000,128, 085,085,085, 170,170,170/ DATA STATE /0/ !----------------------------------------------------------------------- ! SELECT CASE(IFUNC) ! !--- IFUNC = 1, Return device name ------------------------------------- CASE (1) SELECT CASE(MODE) CASE (1) CHR = LTYPE LCHR = LEN(LTYPE) CASE (2) CHR = PTYPE LCHR = LEN(PTYPE) CASE DEFAULT CALL GRWARN('Requested MODE not implemented in GIF driver') END SELECT ! !--- IFUNC = 2, Return physical min and max for plot device, and range ! of color indices --------------------------------------- ! (Maximum size is set by GIF format to 2**16 pixels) CASE (2) RBUF(1) = 0 RBUF(2) = 65536 RBUF(3) = 0 RBUF(4) = 65536 RBUF(5) = 0 RBUF(6) = 255 NBUF = 6 ! !--- IFUNC = 3, Return device resolution ------------------------------- CASE (3) RBUF(1) = XRES RBUF(2) = YRES RBUF(3) = 1 NBUF = 3 ! !--- IFUNC = 4, Return misc device info -------------------------------- ! (This device is Hardcopy, supports rectangle fill, pixel ! primitives, and query color rep.) CASE (4) CHR = 'HNNNNRPNYN' LCHR = 10 ! !--- IFUNC = 5, Return default file name ------------------------------- CASE (5) CHR = DEFNAM LCHR = LEN(DEFNAM) ! !--- IFUNC = 6, Return default physical size of plot ------------------- CASE (6) RBUF(1) = 0 RBUF(2) = BX-1 RBUF(3) = 0 RBUF(4) = BY-1 NBUF = 4 ! !--- IFUNC = 7, Return misc defaults ----------------------------------- CASE (7) RBUF(1) = 1 NBUF=1 ! !--- IFUNC = 8, Select plot -------------------------------------------- CASE (8) ! !--- IFUNC = 9, Open workstation --------------------------------------- CASE (9) ! -- check for concurrent access IF (STATE.EQ.1) THEN CALL GRWARN('a PGPLOT GIF file is already open') RBUF(1) = 0 RBUF(2) = 0 RETURN END IF ! -- dimensions of plot buffer IF (MODE.EQ.1) THEN ! -- Landscape BX = DWD BY = DHT CALL GRGENV('GIF_WIDTH', INSTR, L) IF (L.GT.0) READ(INSTR(:L),'(BN,I10)',IOSTAT=IOS) BX CALL GRGENV('GIF_HEIGHT', INSTR, L) IF (L.GT.0) READ(INSTR(:L),'(BN,I10)',IOSTAT=IOS) BY ELSE ! -- Portrait BX = DHT BY = DWD CALL GRGENV('GIF_WIDTH', INSTR, L) IF (L.GT.0) READ(INSTR(:L),'(BN,I10)',IOSTAT=IOS) BY CALL GRGENV('GIF_HEIGHT', INSTR, L) IF (L.GT.0) READ(INSTR(:L),'(BN,I10)',IOSTAT=IOS) BX END IF NPICT=1 MAXIDX=0 ! -- Initialize color table DO I=0,15 CTABLE(1,I) = CDEFLT(1,I) CTABLE(2,I) = CDEFLT(2,I) CTABLE(3,I) = CDEFLT(3,I) END DO DO I=16,255 CTABLE(1,I) = 128 CTABLE(2,I) = 128 CTABLE(3,I) = 128 END DO ! FILENM = CHR(:LCHR) CALL GRGI10 (FILENM, NPICT, CHR) LCHR = GRTRIM(CHR) CALL GRGLUN(UNIT) NBUF = 2 RBUF(1) = UNIT OPEN (UNIT,FILE=CHR(1:LCHR),STATUS='UNKNOWN',ACCESS='DIRECT', & & RECL=255, FORM='BINARY', IOSTAT=IER) IF (IER.NE.0) THEN MSG = 'Cannot open output file for GIF plot: '//CHR(:LCHR) CALL GRWARN(MSG) RBUF(2) = 0 STATE = 0 CALL GRFLUN(UNIT) ELSE RBUF(2) = 1 STATE = 1 END IF ! !--- IFUNC=10, Close workstation --------------------------------------- CASE (10) STATE = 0 ! !--- IFUNC=11, Begin picture ------------------------------------------- CASE (11) BX = NINT(RBUF(1))+1 BY = NINT(RBUF(2))+1 ALLOCATE (PIXMAP(BX,BY), STAT=IER) IF (IER.NE.0) THEN CALL GRWARN('Failed to allocate plot buffer.') BX = 0 BY = 0 ELSE ! -- initialize to zero (background color) CALL GRGI03(1, 1, BX, BY, 0, BX, BY, PIXMAP) IF (NPICT.GT.1) THEN CALL GRGI10 (FILENM, NPICT, MSG) CALL GRGLUN(UNIT) OPEN (UNIT, FILE=MSG, STATUS='UNKNOWN', ACCESS='DIRECT', & & RECL=255, FORM='BINARY', IOSTAT=IER) IF (IER.NE.0) & & CALL GRWARN('Cannot open output file for GIF plot') END IF END IF ! !--- IFUNC=12, Draw line ----------------------------------------------- CASE (12) IX0=NINT(RBUF(1))+1 IX1=NINT(RBUF(3))+1 IY0=BY-NINT(RBUF(2)) IY1=BY-NINT(RBUF(4)) IF (ALLOCATED(PIXMAP)) & & CALL GRGI01(IX0, IY0, IX1, IY1, IC, BX, BY, PIXMAP) ! !--- IFUNC=13, Draw dot ------------------------------------------------ CASE (13) IX0=NINT(RBUF(1))+1 IY0=BY-NINT(RBUF(2)) IF (ALLOCATED(PIXMAP)) & & CALL GRGI01(IX0, IY0, IX0, IY0, IC, BX, BY, PIXMAP) ! !--- IFUNC=14, End picture --------------------------------------------- CASE (14) IF (UNIT.GE.0) THEN ALLOCATE (WORK(4098,256), STAT=IER) IF (IER.NE.0) THEN CALL GRWARN('Failed to allocate work array.') ELSE CALL GRGI06(UNIT, BX, BY, CTABLE, PIXMAP, MAXIDX, WORK) END IF CLOSE (UNIT) CALL GRFLUN(UNIT) DEALLOCATE (WORK, STAT=IER) END IF NPICT = NPICT+1 DEALLOCATE (PIXMAP, STAT=IER) IF (IER.NE.0) THEN CALL GRWARN('Failed to deallocate plot buffer.') END IF ! !--- IFUNC=15, Select color index -------------------------------------- CASE (15) IC = RBUF(1) MAXIDX = MAX(MAXIDX, IC) ! !--- IFUNC=16, Flush buffer. ------------------------------------------- ! (Not used.) CASE (16) ! !--- IFUNC=18, Erase alpha screen. ------------------------------------- ! (Not implemented: no alpha screen) CASE (18) ! !--- IFUNC=21, Set color representation. ------------------------------- CASE (21) I = RBUF(1) CTABLE(1, I) = NINT(RBUF(2)*255) CTABLE(2, I) = NINT(RBUF(3)*255) CTABLE(3, I) = NINT(RBUF(4)*255) ! !--- IFUNC=23, Escape -------------------------------------------------- ! (Not implemented: ignored) CASE (23) ! !--- IFUNC=24, Rectangle fill ------------------------------------------ CASE (24) IX0=NINT(RBUF(1))+1 IX1=NINT(RBUF(3))+1 IY1=BY-NINT(RBUF(2)) IY0=BY-NINT(RBUF(4)) IF (ALLOCATED(PIXMAP)) & & CALL GRGI03(IX0, IY0, IX1, IY1, IC, BX, BY, PIXMAP) ! !--- IFUNC=25, Not implemented ----------------------------------------- CASE (25) ! !--- IFUNC=26, Line of pixels ------------------------------------------ CASE (26) CALL GRGI04(NBUF, RBUF, BX, BY, PIXMAP, MAXIDX) ! !--- IFUNC=27, Not implemented ----------------------------------------- CASE (27) ! !--- IFUNC=28, Not implemented ----------------------------------------- CASE (28) ! !--- IFUNC=29, Query color representation. ----------------------------- CASE (29) I = RBUF(1) RBUF(2) = CTABLE(1,I)/255.0 RBUF(3) = CTABLE(2,I)/255.0 RBUF(4) = CTABLE(3,I)/255.0 NBUF = 4 ! !--- Unimplemented Function CASE DEFAULT WRITE (MSG, '(I10)') IFUNC CALL GRWARN('Unimplemented function in GIF device driver:'// & & MSG) NBUF = -1 END SELECT RETURN !----------------------------------------------------------------------- END ! !*GRGI01 -- PGPLOT GIF driver, draw line !+ SUBROUTINE GRGI01 (IX0, IY0, IX1, IY1, ICOL, BX, BY, PIXMAP) INTEGER IX0, IY0, IX1, IY1 INTEGER ICOL, BX, BY INTEGER(1) :: PIXMAP(BX,BY) ! ! Draw a straight-line segment from absolute pixel coordinates ! (IX0, IY0) to (IX1, IY1). ! ! Arguments: ! ICOL (input): Color index ! PIXMAP (input/output): The image data buffer. !----------------------------------------------------------------------- INTEGER IX, IY, IS REAL D INTEGER (1) :: VAL ! IF (ICOL.GT.127) THEN VAL = ICOL - 256 ELSE VAL = ICOL END IF IF (IX0.EQ.IX1 .AND. IY0.EQ.IY1) THEN PIXMAP(IX0,IY0) = VAL ELSE IF (ABS(IY1-IY0) .GT. ABS(IX1-IX0)) THEN D = FLOAT(IX1-IX0) / FLOAT(IY1-IY0) IS = 1 IF (IY1 .LT. IY0) IS = -1 DO IY=IY0,IY1,IS IX = NINT(IX0 + (IY-IY0)*D) PIXMAP(IX,IY) = VAL END DO ELSE D = FLOAT(IY1-IY0) / FLOAT(IX1-IX0) IS = 1 IF (IX1 .LT. IX0) IS = -1 DO IX=IX0,IX1,IS IY = NINT(IY0 + (IX-IX0)*D) PIXMAP(IX,IY) = VAL END DO END IF END ! !*GRGI03 -- PGPLOT GIF driver, fill rectangle !+ SUBROUTINE GRGI03 (IX0, IY0, IX1, IY1, ICOL, BX, BY, PIXMAP) INTEGER IX0, IY0, IX1, IY1 INTEGER ICOL, BX, BY INTEGER(1) :: PIXMAP(BX,BY) ! ! Arguments: ! IX0, IY0 (input): Lower left corner. ! IX1, IY1 (input): Upper right corner. ! ICOL (input): Color value. ! BX, BY (input): dimensions of PIXMAP. ! PIXMAP (input/output): The image data buffer. !----------------------------------------------------------------------- INTEGER IX, IY INTEGER(1) :: VAL ! IF (ICOL.GT.127) THEN VAL = ICOL - 256 ELSE VAL = ICOL END IF DO IY=IY0,IY1 DO IX=IX0,IX1 PIXMAP(IX,IY) = VAL END DO END DO RETURN END ! !*GRGI04 -- PGPLOT GIF driver, fill image line !+ SUBROUTINE GRGI04(NBUF,RBUF,BX,BY,PIXMAP,MAXIDX) INTEGER I,J,NBUF,BX,BY,N,IC,MAXIDX REAL RBUF(NBUF) INTEGER(1) :: PIXMAP(BX,BY) !- I = NINT(RBUF(1)) + 1 J = BY-NINT(RBUF(2)) DO N=3,NBUF IC = RBUF(N) MAXIDX = MAX(MAXIDX, IC) IF (IC .GT. 127) IC = IC - 256 PIXMAP(I+N-3,J) = IC END DO RETURN END ! !*GRGI06 -- PGPLOT GIF driver, write GIF image !+ SUBROUTINE GRGI06 (UNIT, BX, BY, CTABLE, PIXMAP, MAXIDX, CODE) INTEGER UNIT, BX, BY, MAXIDX INTEGER CTABLE(3,0:255) INTEGER(1) :: PIXMAP(BX*BY) INTEGER*2 CODE(0:4097,0:255) ! ! Write GIF image to UNIT. ! ! Arguments: ! UNIT (input): Output unit ! BX,BY (input): `Screen' size ! CTABLE (input): Color map ! PIXMAP (input): Image data ! MAXIDX (input): maximum color index used. !-- ! 16-Nov-94: fixed bug (BYTE is signed) ! 09-Jul-96: revised to use Fortran90 constructs and I/O [PAS] ! 26-Dec-00: treat signed bytes differently for Fortran v.6 [PAS] !----------------------------------------------------------------------- CHARACTER GIF1*6 INTEGER*4 BWIDTH, BSHIFT, BREST, BOUT, BREC INTEGER PIXEL, I, J, K, M, CLEAR, EOI, TABLE, IN, TOTAL, PRE, EXT INTEGER OLDPRE, BITS INTEGER (1) :: BLKOUT(0:266) COMMON /GRGICO/ BWIDTH, BSHIFT, BREST, BOUT, BREC, BLKOUT ! BITS = 1 DO WHILE (2**BITS .LE. MAXIDX) BITS = BITS + 1 END DO PIXEL = MAX(BITS, 2) CLEAR = 2**PIXEL EOI = CLEAR + 1 ! ! Write Header. ! ! Write Logical Screen Descriptor (screen width, screen height, ! color data, background color index [0], pixel aspect ratio [0]). GIF1 = 'GIF87a' DO I=1,6 BLKOUT(I-1) = ICHAR(GIF1(I:I)) END DO CALL GRGI09(BX, BLKOUT(6)) CALL GRGI09(BY, BLKOUT(8)) I = ISHFT(BITS-1, 4) BLKOUT(10) = IOR(IOR(128, I), BITS-1) BLKOUT(11) = 0 BLKOUT(12) = 0 BOUT = 12 BREC = 1 ! ! Write Global Color Table. DO J=0,2**BITS-1 BLKOUT(BOUT+1) = CTABLE(1,J) BLKOUT(BOUT+2) = CTABLE(2,J) BLKOUT(BOUT+3) = CTABLE(3,J) BOUT = BOUT + 3 IF (BOUT .GE. 254) THEN WRITE (UNIT,REC=BREC) (BLKOUT(I),I=0,254) BOUT = BOUT - 255 DO I=0,BOUT BLKOUT(I) = BLKOUT(I+255) END DO BREC = BREC + 1 END IF END DO ! ! Write Image Descriptor. BLKOUT(BOUT+1) = ICHAR(',') BLKOUT(BOUT+2) = 0 BLKOUT(BOUT+3) = 0 BLKOUT(BOUT+4) = 0 BLKOUT(BOUT+5) = 0 CALL GRGI09(BX, BLKOUT(BOUT+6)) CALL GRGI09(BY, BLKOUT(BOUT+8)) BLKOUT(BOUT+10) = 0 BLKOUT(BOUT+11) = PIXEL BOUT = BOUT + 11 IF (BOUT .EQ. 253) THEN ! This is a nasty surprise - make a dummy 1-byte sub-block BLKOUT(254) = 1 BLKOUT(255) = CLEAR BOUT = 255 END IF ! Check if record already longer than 255 bytes IF (BOUT .GE. 254) THEN WRITE (UNIT,REC=BREC) (BLKOUT(I),I=0,254) BOUT = BOUT - 255 DO I=0,BOUT BLKOUT(I) = BLKOUT(I+255) END DO BREC = BREC + 1 END IF ! ! Write Table Based Image Data, in sub-blocks of up to 255 bytes. ! How many bytes left for a sub-block in this direct-access record? BOUT = BOUT + 1 BLKOUT(BOUT) = 254 - BOUT ! ! LZW-compression; initialize counters ! Start packing variable-size codes into 8-bit bytes. ! BREST = 0 BSHIFT = 0 ! `Read' first character. IN = 1 TOTAL = BX * BY PRE = PIXMAP(IN) IF (PRE .LT. 0) PRE = PRE + 256 ! TABLE = 4095 BWIDTH = PIXEL + 1 ! DO WHILE (IN .LT. TOTAL) IF (TABLE .GE. 4095) THEN ! Start new data stream; if n=PIXEL, then ! 2**n-1 (n+1)-bit codes ! 2*2**n (n+2)-bit codes ! 4*2**n (n+3)-bit codes ! . . . ! 1024 11-bit codes ! 2048 12-bit codes (incl. one clear code) ! ! push a clear code first CALL GRGI07(UNIT, CLEAR) DO M=0,255 DO K=0,4095 CODE(K,M) = 0 END DO END DO ! Initialize last used table entry and code width in bits TABLE = EOI BWIDTH = PIXEL + 1 END IF ! ! `Read' next character; check if combination prefix/extension occurred earlier IN = IN + 1 EXT = PIXMAP(IN) IF (EXT .LT. 0) EXT = EXT + 256 OLDPRE = PRE PRE = CODE(PRE, EXT) ! IF (PRE .EQ. 0) THEN ! If no earlier occurrence add combination to table CALL GRGI07(UNIT, OLDPRE) TABLE = TABLE + 1 CODE(OLDPRE,EXT) = TABLE PRE = EXT ! May need to increase width of code entry by one bit IF (ISHFT(TABLE,-BWIDTH) .NE. 0) BWIDTH = BWIDTH + 1 END IF END DO ! ! Last character ! CALL GRGI07(UNIT, PRE) CALL GRGI07(UNIT, EOI) IF (BSHIFT .GT. 0) CALL GRGI08(UNIT, BREST) IF (BOUT .GT. 0) THEN BLKOUT(0) = BOUT BOUT = BOUT + 1 END IF BLKOUT(BOUT) = 0 IF (BOUT .EQ. 254) THEN WRITE (UNIT, REC=BREC) (BLKOUT(I),I=0,254) BOUT = -1 BREC = BREC + 1 END IF ! ! Write GIF Trailer. ! BLKOUT(BOUT+1) = ICHAR(';') DO I=BOUT+2,254 ! Zero fill the final direct-access record BLKOUT(I) = 0 END DO WRITE (UNIT,REC=BREC) (BLKOUT(I),I=0,254) RETURN END ! !*GRGI07 -- Compress GIF output codes into 8-bit bytes ! SUBROUTINE GRGI07(UNIT, INCODE) INTEGER UNIT, INCODE INTEGER*4 BWIDTH, BSHIFT, BREST, BOUT, BREC INTEGER(1) :: BLKOUT(0:266) COMMON /GRGICO/ BWIDTH, BSHIFT, BREST, BOUT, BREC, BLKOUT ! BREST = IOR(BREST, ISHFT(INCODE, BSHIFT)) BSHIFT = BSHIFT + BWIDTH ! DO WHILE (BSHIFT .GE. 8) ! Send low byte to buffer, and delete it CALL GRGI08(UNIT, BREST) BREST = ISHFT(BREST, -8) BSHIFT = BSHIFT - 8 END DO ! RETURN END ! !*GRGI08 -- Accumulate bytes and write GIF output sub-block ! SUBROUTINE GRGI08(UNIT, INCODE) INTEGER UNIT, INCODE, I INTEGER*4 BWIDTH, BSHIFT, BREST, BOUT, BREC INTEGER(1) :: BLKOUT(0:266) COMMON /GRGICO/ BWIDTH, BSHIFT, BREST, BOUT, BREC, BLKOUT ! BOUT = BOUT + 1 BLKOUT(BOUT) = IAND(INCODE, 255) IF (BOUT .GE. 254) THEN WRITE (UNIT,REC=BREC) (BLKOUT(I),I=0,254) BOUT = 0 BLKOUT(0) = 254 BREC = BREC + 1 END IF RETURN END ! !*GRGI09 -- Encode integer into 2 bytes ! SUBROUTINE GRGI09(IN, IOUT) INTEGER IN INTEGER(1) :: IOUT(2) ! IOUT(1) = IAND(IN, 255) IOUT(2) = ISHFT(IN, -8) RETURN END ! !*GRGI10 -- Replace # in filename by picture number ! SUBROUTINE GRGI10 (NAME1, NP, NAME2) CHARACTER*(*) NAME1 CHARACTER*(*) NAME2 CHARACTER*80 TMP INTEGER GRTRIM INTEGER NP, IDX, L, LN ! LN = GRTRIM(NAME1) IDX = INDEX(NAME1,'#') IF (IDX .GT. 0) THEN ! -- if the supplied name contains a #-character, replace ! it with the page number CALL GRFAO(NAME1, L, TMP, NP, 0, 0, 0) ELSE IF (NP .EQ. 1) THEN ! -- if this is the first page, use the supplied name NAME2 = NAME1 RETURN ELSE IF (LN+2 .LE. LEN(NAME1)) THEN ! -- append an underscore and the page number to the supplied ! name NAME1(LN+1:LN+2) = '_#' CALL GRFAO(NAME1, L, TMP, NP, 0, 0, 0) ELSE ! -- last resort: invent a new name CALL GRFAO('pgplot#.gif', L, TMP, NP, 0, 0, 0) END IF CALL GRWARN ('Writing new GIF image as: '//TMP(:L)) NAME2 = TMP(:L) RETURN END ifeffit-1.2.11d/install-sh0000755000175000017500000001273610771740461014374 0ustar segresegre#!/bin/sh # # install - install a program, script, or datafile # This comes from X11R5 (mit/util/scripts/install.sh). # # Copyright 1991 by the Massachusetts Institute of Technology # # Permission to use, copy, modify, distribute, and sell this software and its # documentation for any purpose is hereby granted without fee, provided that # the above copyright notice appear in all copies and that both that # copyright notice and this permission notice appear in supporting # documentation, and that the name of M.I.T. not be used in advertising or # publicity pertaining to distribution of the software without specific, # written prior permission. M.I.T. makes no representations about the # suitability of this software for any purpose. It is provided "as is" # without express or implied warranty. # # Calling this script install-sh is preferred over install.sh, to prevent # `make' implicit rules from creating a file called install from it # when there is no Makefile. # # This script is compatible with the BSD install script, but was written # from scratch. It can only install one file at a time, a restriction # shared with many OS's install programs. # set DOITPROG to echo to test this script # Don't use :- since 4.3BSD and earlier shells don't like it. doit="${DOITPROG-}" # put in absolute paths if you don't have them in your path; or use env. vars. mvprog="${MVPROG-mv}" cpprog="${CPPROG-cp}" chmodprog="${CHMODPROG-chmod}" chownprog="${CHOWNPROG-chown}" chgrpprog="${CHGRPPROG-chgrp}" stripprog="${STRIPPROG-strip}" rmprog="${RMPROG-rm}" mkdirprog="${MKDIRPROG-mkdir}" transformbasename="" transform_arg="" instcmd="$mvprog" chmodcmd="$chmodprog 0755" chowncmd="" chgrpcmd="" stripcmd="" rmcmd="$rmprog -f" mvcmd="$mvprog" src="" dst="" dir_arg="" while [ x"$1" != x ]; do case $1 in -c) instcmd="$cpprog" shift continue;; -d) dir_arg=true shift continue;; -m) chmodcmd="$chmodprog $2" shift shift continue;; -o) chowncmd="$chownprog $2" shift shift continue;; -g) chgrpcmd="$chgrpprog $2" shift shift continue;; -s) stripcmd="$stripprog" shift continue;; -t=*) transformarg=`echo $1 | sed 's/-t=//'` shift continue;; -b=*) transformbasename=`echo $1 | sed 's/-b=//'` shift continue;; *) if [ x"$src" = x ] then src=$1 else # this colon is to work around a 386BSD /bin/sh bug : dst=$1 fi shift continue;; esac done if [ x"$src" = x ] then echo "install: no input file specified" exit 1 else true fi if [ x"$dir_arg" != x ]; then dst=$src src="" if [ -d $dst ]; then instcmd=: chmodcmd="" else instcmd=mkdir fi else # Waiting for this to be detected by the "$instcmd $src $dsttmp" command # might cause directories to be created, which would be especially bad # if $src (and thus $dsttmp) contains '*'. if [ -f $src -o -d $src ] then true else echo "install: $src does not exist" exit 1 fi if [ x"$dst" = x ] then echo "install: no destination specified" exit 1 else true fi # If destination is a directory, append the input filename; if your system # does not like double slashes in filenames, you may need to add some logic if [ -d $dst ] then dst="$dst"/`basename $src` else true fi fi ## this sed command emulates the dirname command dstdir=`echo $dst | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'` # Make sure that the destination directory exists. # this part is taken from Noah Friedman's mkinstalldirs script # Skip lots of stat calls in the usual case. if [ ! -d "$dstdir" ]; then defaultIFS=' ' IFS="${IFS-${defaultIFS}}" oIFS="${IFS}" # Some sh's can't handle IFS=/ for some reason. IFS='%' set - `echo ${dstdir} | sed -e 's@/@%@g' -e 's@^%@/@'` IFS="${oIFS}" pathcomp='' while [ $# -ne 0 ] ; do pathcomp="${pathcomp}${1}" shift if [ ! -d "${pathcomp}" ] ; then $mkdirprog "${pathcomp}" else true fi pathcomp="${pathcomp}/" done fi if [ x"$dir_arg" != x ] then $doit $instcmd $dst && if [ x"$chowncmd" != x ]; then $doit $chowncmd $dst; else true ; fi && if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dst; else true ; fi && if [ x"$stripcmd" != x ]; then $doit $stripcmd $dst; else true ; fi && if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dst; else true ; fi else # If we're going to rename the final executable, determine the name now. if [ x"$transformarg" = x ] then dstfile=`basename $dst` else dstfile=`basename $dst $transformbasename | sed $transformarg`$transformbasename fi # don't allow the sed command to completely eliminate the filename if [ x"$dstfile" = x ] then dstfile=`basename $dst` else true fi # Make a temp file name in the proper directory. dsttmp=$dstdir/#inst.$$# # Move or copy the file name to the temp name $doit $instcmd $src $dsttmp && trap "rm -f ${dsttmp}" 0 && # and set any options; do chmod last to preserve setuid bits # If any of these fail, we abort the whole thing. If we want to # ignore errors from any of these, just make sure not to ignore # errors from the above "$doit $instcmd $src $dsttmp" command. if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; else true;fi && if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; else true;fi && if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; else true;fi && if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; else true;fi && # Now rename the file to the real destination. $doit $rmcmd -f $dstdir/$dstfile && $doit $mvcmd $dsttmp $dstdir/$dstfile fi && exit 0 ifeffit-1.2.11d/aclocal.m40000644000175000017500000007546211110330535014216 0ustar segresegre# generated automatically by aclocal 1.9.6 -*- Autoconf -*- # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, # 2005 Free Software Foundation, Inc. # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. # Copyright (C) 2002, 2003, 2005 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # AM_AUTOMAKE_VERSION(VERSION) # ---------------------------- # Automake X.Y traces this macro to ensure aclocal.m4 has been # generated from the m4 files accompanying Automake X.Y. AC_DEFUN([AM_AUTOMAKE_VERSION], [am__api_version="1.9"]) # AM_SET_CURRENT_AUTOMAKE_VERSION # ------------------------------- # Call AM_AUTOMAKE_VERSION so it can be traced. # This function is AC_REQUIREd by AC_INIT_AUTOMAKE. AC_DEFUN([AM_SET_CURRENT_AUTOMAKE_VERSION], [AM_AUTOMAKE_VERSION([1.9.6])]) # AM_AUX_DIR_EXPAND -*- Autoconf -*- # Copyright (C) 2001, 2003, 2005 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # For projects using AC_CONFIG_AUX_DIR([foo]), Autoconf sets # $ac_aux_dir to `$srcdir/foo'. In other projects, it is set to # `$srcdir', `$srcdir/..', or `$srcdir/../..'. # # Of course, Automake must honor this variable whenever it calls a # tool from the auxiliary directory. The problem is that $srcdir (and # therefore $ac_aux_dir as well) can be either absolute or relative, # depending on how configure is run. This is pretty annoying, since # it makes $ac_aux_dir quite unusable in subdirectories: in the top # source directory, any form will work fine, but in subdirectories a # relative path needs to be adjusted first. # # $ac_aux_dir/missing # fails when called from a subdirectory if $ac_aux_dir is relative # $top_srcdir/$ac_aux_dir/missing # fails if $ac_aux_dir is absolute, # fails when called from a subdirectory in a VPATH build with # a relative $ac_aux_dir # # The reason of the latter failure is that $top_srcdir and $ac_aux_dir # are both prefixed by $srcdir. In an in-source build this is usually # harmless because $srcdir is `.', but things will broke when you # start a VPATH build or use an absolute $srcdir. # # So we could use something similar to $top_srcdir/$ac_aux_dir/missing, # iff we strip the leading $srcdir from $ac_aux_dir. That would be: # am_aux_dir='\$(top_srcdir)/'`expr "$ac_aux_dir" : "$srcdir//*\(.*\)"` # and then we would define $MISSING as # MISSING="\${SHELL} $am_aux_dir/missing" # This will work as long as MISSING is not called from configure, because # unfortunately $(top_srcdir) has no meaning in configure. # However there are other variables, like CC, which are often used in # configure, and could therefore not use this "fixed" $ac_aux_dir. # # Another solution, used here, is to always expand $ac_aux_dir to an # absolute PATH. The drawback is that using absolute paths prevent a # configured tree to be moved without reconfiguration. AC_DEFUN([AM_AUX_DIR_EXPAND], [dnl Rely on autoconf to set up CDPATH properly. AC_PREREQ([2.50])dnl # expand $ac_aux_dir to an absolute path am_aux_dir=`cd $ac_aux_dir && pwd` ]) # AM_CONDITIONAL -*- Autoconf -*- # Copyright (C) 1997, 2000, 2001, 2003, 2004, 2005 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 7 # AM_CONDITIONAL(NAME, SHELL-CONDITION) # ------------------------------------- # Define a conditional. AC_DEFUN([AM_CONDITIONAL], [AC_PREREQ(2.52)dnl ifelse([$1], [TRUE], [AC_FATAL([$0: invalid condition: $1])], [$1], [FALSE], [AC_FATAL([$0: invalid condition: $1])])dnl AC_SUBST([$1_TRUE]) AC_SUBST([$1_FALSE]) if $2; then $1_TRUE= $1_FALSE='#' else $1_TRUE='#' $1_FALSE= fi AC_CONFIG_COMMANDS_PRE( [if test -z "${$1_TRUE}" && test -z "${$1_FALSE}"; then AC_MSG_ERROR([[conditional "$1" was never defined. Usually this means the macro was only invoked conditionally.]]) fi])]) # Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 8 # There are a few dirty hacks below to avoid letting `AC_PROG_CC' be # written in clear, in which case automake, when reading aclocal.m4, # will think it sees a *use*, and therefore will trigger all it's # C support machinery. Also note that it means that autoscan, seeing # CC etc. in the Makefile, will ask for an AC_PROG_CC use... # _AM_DEPENDENCIES(NAME) # ---------------------- # See how the compiler implements dependency checking. # NAME is "CC", "CXX", "GCJ", or "OBJC". # We try a few techniques and use that to set a single cache variable. # # We don't AC_REQUIRE the corresponding AC_PROG_CC since the latter was # modified to invoke _AM_DEPENDENCIES(CC); we would have a circular # dependency, and given that the user is not expected to run this macro, # just rely on AC_PROG_CC. AC_DEFUN([_AM_DEPENDENCIES], [AC_REQUIRE([AM_SET_DEPDIR])dnl AC_REQUIRE([AM_OUTPUT_DEPENDENCY_COMMANDS])dnl AC_REQUIRE([AM_MAKE_INCLUDE])dnl AC_REQUIRE([AM_DEP_TRACK])dnl ifelse([$1], CC, [depcc="$CC" am_compiler_list=], [$1], CXX, [depcc="$CXX" am_compiler_list=], [$1], OBJC, [depcc="$OBJC" am_compiler_list='gcc3 gcc'], [$1], GCJ, [depcc="$GCJ" am_compiler_list='gcc3 gcc'], [depcc="$$1" am_compiler_list=]) AC_CACHE_CHECK([dependency style of $depcc], [am_cv_$1_dependencies_compiler_type], [if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named `D' -- because `-MD' means `put the output # in D'. mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_$1_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n ['s/^#*\([a-zA-Z0-9]*\))$/\1/p'] < ./depcomp` fi for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with # Solaris 8's {/usr,}/bin/sh. touch sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf case $depmode in nosideeffect) # after this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; none) break ;; esac # We check with `-c' and `-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle `-M -o', and we need to detect this. if depmode=$depmode \ source=sub/conftest.c object=sub/conftest.${OBJEXT-o} \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c -o sub/conftest.${OBJEXT-o} sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftest.${OBJEXT-o} sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_$1_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_$1_dependencies_compiler_type=none fi ]) AC_SUBST([$1DEPMODE], [depmode=$am_cv_$1_dependencies_compiler_type]) AM_CONDITIONAL([am__fastdep$1], [ test "x$enable_dependency_tracking" != xno \ && test "$am_cv_$1_dependencies_compiler_type" = gcc3]) ]) # AM_SET_DEPDIR # ------------- # Choose a directory name for dependency files. # This macro is AC_REQUIREd in _AM_DEPENDENCIES AC_DEFUN([AM_SET_DEPDIR], [AC_REQUIRE([AM_SET_LEADING_DOT])dnl AC_SUBST([DEPDIR], ["${am__leading_dot}deps"])dnl ]) # AM_DEP_TRACK # ------------ AC_DEFUN([AM_DEP_TRACK], [AC_ARG_ENABLE(dependency-tracking, [ --disable-dependency-tracking speeds up one-time build --enable-dependency-tracking do not reject slow dependency extractors]) if test "x$enable_dependency_tracking" != xno; then am_depcomp="$ac_aux_dir/depcomp" AMDEPBACKSLASH='\' fi AM_CONDITIONAL([AMDEP], [test "x$enable_dependency_tracking" != xno]) AC_SUBST([AMDEPBACKSLASH]) ]) # Generate code to set up dependency tracking. -*- Autoconf -*- # Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. #serial 3 # _AM_OUTPUT_DEPENDENCY_COMMANDS # ------------------------------ AC_DEFUN([_AM_OUTPUT_DEPENDENCY_COMMANDS], [for mf in $CONFIG_FILES; do # Strip MF so we end up with the name of the file. mf=`echo "$mf" | sed -e 's/:.*$//'` # Check whether this is an Automake generated Makefile or not. # We used to match only the files named `Makefile.in', but # some people rename them; so instead we look at the file content. # Grep'ing the first line is not enough: some people post-process # each Makefile.in and add a new line on top of each file to say so. # So let's grep whole file. if grep '^#.*generated by automake' $mf > /dev/null 2>&1; then dirpart=`AS_DIRNAME("$mf")` else continue fi # Extract the definition of DEPDIR, am__include, and am__quote # from the Makefile without running `make'. DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` test -z "$DEPDIR" && continue am__include=`sed -n 's/^am__include = //p' < "$mf"` test -z "am__include" && continue am__quote=`sed -n 's/^am__quote = //p' < "$mf"` # When using ansi2knr, U may be empty or an underscore; expand it U=`sed -n 's/^U = //p' < "$mf"` # Find all dependency output files, they are included files with # $(DEPDIR) in their names. We invoke sed twice because it is the # simplest approach to changing $(DEPDIR) to its actual value in the # expansion. for file in `sed -n " s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g' -e 's/\$U/'"$U"'/g'`; do # Make sure the directory exists. test -f "$dirpart/$file" && continue fdir=`AS_DIRNAME(["$file"])` AS_MKDIR_P([$dirpart/$fdir]) # echo "creating $dirpart/$file" echo '# dummy' > "$dirpart/$file" done done ])# _AM_OUTPUT_DEPENDENCY_COMMANDS # AM_OUTPUT_DEPENDENCY_COMMANDS # ----------------------------- # This macro should only be invoked once -- use via AC_REQUIRE. # # This code is only required when automatic dependency tracking # is enabled. FIXME. This creates each `.P' file that we will # need in order to bootstrap the dependency handling code. AC_DEFUN([AM_OUTPUT_DEPENDENCY_COMMANDS], [AC_CONFIG_COMMANDS([depfiles], [test x"$AMDEP_TRUE" != x"" || _AM_OUTPUT_DEPENDENCY_COMMANDS], [AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir"]) ]) # Copyright (C) 1996, 1997, 2000, 2001, 2003, 2005 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 8 # AM_CONFIG_HEADER is obsolete. It has been replaced by AC_CONFIG_HEADERS. AU_DEFUN([AM_CONFIG_HEADER], [AC_CONFIG_HEADERS($@)]) # Do all the work for Automake. -*- Autoconf -*- # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 12 # This macro actually does too much. Some checks are only needed if # your package does certain things. But this isn't really a big deal. # AM_INIT_AUTOMAKE(PACKAGE, VERSION, [NO-DEFINE]) # AM_INIT_AUTOMAKE([OPTIONS]) # ----------------------------------------------- # The call with PACKAGE and VERSION arguments is the old style # call (pre autoconf-2.50), which is being phased out. PACKAGE # and VERSION should now be passed to AC_INIT and removed from # the call to AM_INIT_AUTOMAKE. # We support both call styles for the transition. After # the next Automake release, Autoconf can make the AC_INIT # arguments mandatory, and then we can depend on a new Autoconf # release and drop the old call support. AC_DEFUN([AM_INIT_AUTOMAKE], [AC_PREREQ([2.58])dnl dnl Autoconf wants to disallow AM_ names. We explicitly allow dnl the ones we care about. m4_pattern_allow([^AM_[A-Z]+FLAGS$])dnl AC_REQUIRE([AM_SET_CURRENT_AUTOMAKE_VERSION])dnl AC_REQUIRE([AC_PROG_INSTALL])dnl # test to see if srcdir already configured if test "`cd $srcdir && pwd`" != "`pwd`" && test -f $srcdir/config.status; then AC_MSG_ERROR([source directory already configured; run "make distclean" there first]) fi # test whether we have cygpath if test -z "$CYGPATH_W"; then if (cygpath --version) >/dev/null 2>/dev/null; then CYGPATH_W='cygpath -w' else CYGPATH_W=echo fi fi AC_SUBST([CYGPATH_W]) # Define the identity of the package. dnl Distinguish between old-style and new-style calls. m4_ifval([$2], [m4_ifval([$3], [_AM_SET_OPTION([no-define])])dnl AC_SUBST([PACKAGE], [$1])dnl AC_SUBST([VERSION], [$2])], [_AM_SET_OPTIONS([$1])dnl AC_SUBST([PACKAGE], ['AC_PACKAGE_TARNAME'])dnl AC_SUBST([VERSION], ['AC_PACKAGE_VERSION'])])dnl _AM_IF_OPTION([no-define],, [AC_DEFINE_UNQUOTED(PACKAGE, "$PACKAGE", [Name of package]) AC_DEFINE_UNQUOTED(VERSION, "$VERSION", [Version number of package])])dnl # Some tools Automake needs. AC_REQUIRE([AM_SANITY_CHECK])dnl AC_REQUIRE([AC_ARG_PROGRAM])dnl AM_MISSING_PROG(ACLOCAL, aclocal-${am__api_version}) AM_MISSING_PROG(AUTOCONF, autoconf) AM_MISSING_PROG(AUTOMAKE, automake-${am__api_version}) AM_MISSING_PROG(AUTOHEADER, autoheader) AM_MISSING_PROG(MAKEINFO, makeinfo) AM_PROG_INSTALL_SH AM_PROG_INSTALL_STRIP AC_REQUIRE([AM_PROG_MKDIR_P])dnl # We need awk for the "check" target. The system "awk" is bad on # some platforms. AC_REQUIRE([AC_PROG_AWK])dnl AC_REQUIRE([AC_PROG_MAKE_SET])dnl AC_REQUIRE([AM_SET_LEADING_DOT])dnl _AM_IF_OPTION([tar-ustar], [_AM_PROG_TAR([ustar])], [_AM_IF_OPTION([tar-pax], [_AM_PROG_TAR([pax])], [_AM_PROG_TAR([v7])])]) _AM_IF_OPTION([no-dependencies],, [AC_PROVIDE_IFELSE([AC_PROG_CC], [_AM_DEPENDENCIES(CC)], [define([AC_PROG_CC], defn([AC_PROG_CC])[_AM_DEPENDENCIES(CC)])])dnl AC_PROVIDE_IFELSE([AC_PROG_CXX], [_AM_DEPENDENCIES(CXX)], [define([AC_PROG_CXX], defn([AC_PROG_CXX])[_AM_DEPENDENCIES(CXX)])])dnl ]) ]) # When config.status generates a header, we must update the stamp-h file. # This file resides in the same directory as the config header # that is generated. The stamp files are numbered to have different names. # Autoconf calls _AC_AM_CONFIG_HEADER_HOOK (when defined) in the # loop where config.status creates the headers, so we can generate # our stamp files there. AC_DEFUN([_AC_AM_CONFIG_HEADER_HOOK], [# Compute $1's index in $config_headers. _am_stamp_count=1 for _am_header in $config_headers :; do case $_am_header in $1 | $1:* ) break ;; * ) _am_stamp_count=`expr $_am_stamp_count + 1` ;; esac done echo "timestamp for $1" >`AS_DIRNAME([$1])`/stamp-h[]$_am_stamp_count]) # Copyright (C) 2001, 2003, 2005 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # AM_PROG_INSTALL_SH # ------------------ # Define $install_sh. AC_DEFUN([AM_PROG_INSTALL_SH], [AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl install_sh=${install_sh-"$am_aux_dir/install-sh"} AC_SUBST(install_sh)]) # Copyright (C) 2003, 2005 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 2 # Check whether the underlying file-system supports filenames # with a leading dot. For instance MS-DOS doesn't. AC_DEFUN([AM_SET_LEADING_DOT], [rm -rf .tst 2>/dev/null mkdir .tst 2>/dev/null if test -d .tst; then am__leading_dot=. else am__leading_dot=_ fi rmdir .tst 2>/dev/null AC_SUBST([am__leading_dot])]) # Check to see how 'make' treats includes. -*- Autoconf -*- # Copyright (C) 2001, 2002, 2003, 2005 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 3 # AM_MAKE_INCLUDE() # ----------------- # Check to see how make treats includes. AC_DEFUN([AM_MAKE_INCLUDE], [am_make=${MAKE-make} cat > confinc << 'END' am__doit: @echo done .PHONY: am__doit END # If we don't find an include directive, just comment out the code. AC_MSG_CHECKING([for style of include used by $am_make]) am__include="#" am__quote= _am_result=none # First try GNU make style include. echo "include confinc" > confmf # We grep out `Entering directory' and `Leaving directory' # messages which can occur if `w' ends up in MAKEFLAGS. # In particular we don't look at `^make:' because GNU make might # be invoked under some other name (usually "gmake"), in which # case it prints its new name instead of `make'. if test "`$am_make -s -f confmf 2> /dev/null | grep -v 'ing directory'`" = "done"; then am__include=include am__quote= _am_result=GNU fi # Now try BSD make style include. if test "$am__include" = "#"; then echo '.include "confinc"' > confmf if test "`$am_make -s -f confmf 2> /dev/null`" = "done"; then am__include=.include am__quote="\"" _am_result=BSD fi fi AC_SUBST([am__include]) AC_SUBST([am__quote]) AC_MSG_RESULT([$_am_result]) rm -f confinc confmf ]) # Fake the existence of programs that GNU maintainers use. -*- Autoconf -*- # Copyright (C) 1997, 1999, 2000, 2001, 2003, 2005 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 4 # AM_MISSING_PROG(NAME, PROGRAM) # ------------------------------ AC_DEFUN([AM_MISSING_PROG], [AC_REQUIRE([AM_MISSING_HAS_RUN]) $1=${$1-"${am_missing_run}$2"} AC_SUBST($1)]) # AM_MISSING_HAS_RUN # ------------------ # Define MISSING if not defined so far and test if it supports --run. # If it does, set am_missing_run to use it, otherwise, to nothing. AC_DEFUN([AM_MISSING_HAS_RUN], [AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl test x"${MISSING+set}" = xset || MISSING="\${SHELL} $am_aux_dir/missing" # Use eval to expand $SHELL if eval "$MISSING --run true"; then am_missing_run="$MISSING --run " else am_missing_run= AC_MSG_WARN([`missing' script is too old or missing]) fi ]) # Copyright (C) 2003, 2004, 2005 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # AM_PROG_MKDIR_P # --------------- # Check whether `mkdir -p' is supported, fallback to mkinstalldirs otherwise. # # Automake 1.8 used `mkdir -m 0755 -p --' to ensure that directories # created by `make install' are always world readable, even if the # installer happens to have an overly restrictive umask (e.g. 077). # This was a mistake. There are at least two reasons why we must not # use `-m 0755': # - it causes special bits like SGID to be ignored, # - it may be too restrictive (some setups expect 775 directories). # # Do not use -m 0755 and let people choose whatever they expect by # setting umask. # # We cannot accept any implementation of `mkdir' that recognizes `-p'. # Some implementations (such as Solaris 8's) are not thread-safe: if a # parallel make tries to run `mkdir -p a/b' and `mkdir -p a/c' # concurrently, both version can detect that a/ is missing, but only # one can create it and the other will error out. Consequently we # restrict ourselves to GNU make (using the --version option ensures # this.) AC_DEFUN([AM_PROG_MKDIR_P], [if mkdir -p --version . >/dev/null 2>&1 && test ! -d ./--version; then # We used to keeping the `.' as first argument, in order to # allow $(mkdir_p) to be used without argument. As in # $(mkdir_p) $(somedir) # where $(somedir) is conditionally defined. However this is wrong # for two reasons: # 1. if the package is installed by a user who cannot write `.' # make install will fail, # 2. the above comment should most certainly read # $(mkdir_p) $(DESTDIR)$(somedir) # so it does not work when $(somedir) is undefined and # $(DESTDIR) is not. # To support the latter case, we have to write # test -z "$(somedir)" || $(mkdir_p) $(DESTDIR)$(somedir), # so the `.' trick is pointless. mkdir_p='mkdir -p --' else # On NextStep and OpenStep, the `mkdir' command does not # recognize any option. It will interpret all options as # directories to create, and then abort because `.' already # exists. for d in ./-p ./--version; do test -d $d && rmdir $d done # $(mkinstalldirs) is defined by Automake if mkinstalldirs exists. if test -f "$ac_aux_dir/mkinstalldirs"; then mkdir_p='$(mkinstalldirs)' else mkdir_p='$(install_sh) -d' fi fi AC_SUBST([mkdir_p])]) # Helper functions for option handling. -*- Autoconf -*- # Copyright (C) 2001, 2002, 2003, 2005 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 3 # _AM_MANGLE_OPTION(NAME) # ----------------------- AC_DEFUN([_AM_MANGLE_OPTION], [[_AM_OPTION_]m4_bpatsubst($1, [[^a-zA-Z0-9_]], [_])]) # _AM_SET_OPTION(NAME) # ------------------------------ # Set option NAME. Presently that only means defining a flag for this option. AC_DEFUN([_AM_SET_OPTION], [m4_define(_AM_MANGLE_OPTION([$1]), 1)]) # _AM_SET_OPTIONS(OPTIONS) # ---------------------------------- # OPTIONS is a space-separated list of Automake options. AC_DEFUN([_AM_SET_OPTIONS], [AC_FOREACH([_AM_Option], [$1], [_AM_SET_OPTION(_AM_Option)])]) # _AM_IF_OPTION(OPTION, IF-SET, [IF-NOT-SET]) # ------------------------------------------- # Execute IF-SET if OPTION is set, IF-NOT-SET otherwise. AC_DEFUN([_AM_IF_OPTION], [m4_ifset(_AM_MANGLE_OPTION([$1]), [$2], [$3])]) # Check to make sure that the build environment is sane. -*- Autoconf -*- # Copyright (C) 1996, 1997, 2000, 2001, 2003, 2005 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 4 # AM_SANITY_CHECK # --------------- AC_DEFUN([AM_SANITY_CHECK], [AC_MSG_CHECKING([whether build environment is sane]) # Just in case sleep 1 echo timestamp > conftest.file # Do `set' in a subshell so we don't clobber the current shell's # arguments. Must try -L first in case configure is actually a # symlink; some systems play weird games with the mod time of symlinks # (eg FreeBSD returns the mod time of the symlink's containing # directory). if ( set X `ls -Lt $srcdir/configure conftest.file 2> /dev/null` if test "$[*]" = "X"; then # -L didn't work. set X `ls -t $srcdir/configure conftest.file` fi rm -f conftest.file if test "$[*]" != "X $srcdir/configure conftest.file" \ && test "$[*]" != "X conftest.file $srcdir/configure"; then # If neither matched, then we have a broken ls. This can happen # if, for instance, CONFIG_SHELL is bash and it inherits a # broken ls alias from the environment. This has actually # happened. Such a system could not be considered "sane". AC_MSG_ERROR([ls -t appears to fail. Make sure there is not a broken alias in your environment]) fi test "$[2]" = conftest.file ) then # Ok. : else AC_MSG_ERROR([newly created file is older than distributed files! Check your system clock]) fi AC_MSG_RESULT(yes)]) # Copyright (C) 2001, 2003, 2005 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # AM_PROG_INSTALL_STRIP # --------------------- # One issue with vendor `install' (even GNU) is that you can't # specify the program used to strip binaries. This is especially # annoying in cross-compiling environments, where the build's strip # is unlikely to handle the host's binaries. # Fortunately install-sh will honor a STRIPPROG variable, so we # always use install-sh in `make install-strip', and initialize # STRIPPROG with the value of the STRIP variable (set by the user). AC_DEFUN([AM_PROG_INSTALL_STRIP], [AC_REQUIRE([AM_PROG_INSTALL_SH])dnl # Installed binaries are usually stripped using `strip' when the user # run `make install-strip'. However `strip' might not be the right # tool to use in cross-compilation environments, therefore Automake # will honor the `STRIP' environment variable to overrule this program. dnl Don't test for $cross_compiling = yes, because it might be `maybe'. if test "$cross_compiling" != no; then AC_CHECK_TOOL([STRIP], [strip], :) fi INSTALL_STRIP_PROGRAM="\${SHELL} \$(install_sh) -c -s" AC_SUBST([INSTALL_STRIP_PROGRAM])]) # Check how to create a tarball. -*- Autoconf -*- # Copyright (C) 2004, 2005 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 2 # _AM_PROG_TAR(FORMAT) # -------------------- # Check how to create a tarball in format FORMAT. # FORMAT should be one of `v7', `ustar', or `pax'. # # Substitute a variable $(am__tar) that is a command # writing to stdout a FORMAT-tarball containing the directory # $tardir. # tardir=directory && $(am__tar) > result.tar # # Substitute a variable $(am__untar) that extract such # a tarball read from stdin. # $(am__untar) < result.tar AC_DEFUN([_AM_PROG_TAR], [# Always define AMTAR for backward compatibility. AM_MISSING_PROG([AMTAR], [tar]) m4_if([$1], [v7], [am__tar='${AMTAR} chof - "$$tardir"'; am__untar='${AMTAR} xf -'], [m4_case([$1], [ustar],, [pax],, [m4_fatal([Unknown tar format])]) AC_MSG_CHECKING([how to create a $1 tar archive]) # Loop over all known methods to create a tar archive until one works. _am_tools='gnutar m4_if([$1], [ustar], [plaintar]) pax cpio none' _am_tools=${am_cv_prog_tar_$1-$_am_tools} # Do not fold the above two line into one, because Tru64 sh and # Solaris sh will not grok spaces in the rhs of `-'. for _am_tool in $_am_tools do case $_am_tool in gnutar) for _am_tar in tar gnutar gtar; do AM_RUN_LOG([$_am_tar --version]) && break done am__tar="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$$tardir"' am__tar_="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$tardir"' am__untar="$_am_tar -xf -" ;; plaintar) # Must skip GNU tar: if it does not support --format= it doesn't create # ustar tarball either. (tar --version) >/dev/null 2>&1 && continue am__tar='tar chf - "$$tardir"' am__tar_='tar chf - "$tardir"' am__untar='tar xf -' ;; pax) am__tar='pax -L -x $1 -w "$$tardir"' am__tar_='pax -L -x $1 -w "$tardir"' am__untar='pax -r' ;; cpio) am__tar='find "$$tardir" -print | cpio -o -H $1 -L' am__tar_='find "$tardir" -print | cpio -o -H $1 -L' am__untar='cpio -i -H $1 -d' ;; none) am__tar=false am__tar_=false am__untar=false ;; esac # If the value was cached, stop now. We just wanted to have am__tar # and am__untar set. test -n "${am_cv_prog_tar_$1}" && break # tar/untar a dummy directory, and stop if the command works rm -rf conftest.dir mkdir conftest.dir echo GrepMe > conftest.dir/file AM_RUN_LOG([tardir=conftest.dir && eval $am__tar_ >conftest.tar]) rm -rf conftest.dir if test -s conftest.tar; then AM_RUN_LOG([$am__untar /dev/null 2>&1 && break fi done rm -rf conftest.dir AC_CACHE_VAL([am_cv_prog_tar_$1], [am_cv_prog_tar_$1=$_am_tool]) AC_MSG_RESULT([$am_cv_prog_tar_$1])]) AC_SUBST([am__tar]) AC_SUBST([am__untar]) ]) # _AM_PROG_TAR ifeffit-1.2.11d/src/0000755000175000017500000000000011117272040013132 5ustar segresegreifeffit-1.2.11d/src/fefftab/0000755000175000017500000000000011117272040014527 5ustar segresegreifeffit-1.2.11d/src/fefftab/12.dat0000755000175000017500000000616010771740460015464 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] mg.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] mg_k.amp !Q%%%%%%%Q8r,YPeYQL`z[1auQ`J,=WQ.Qt%Q==uNR.pthQ6.R0j[*(m9R2c@^K[vR4ZjBCAQR6R5`Vj@ !R8J_3>]tR:DfN&QNRI@XSL[R@X%l1LoRBqM&9PWRF;|44`IRHlq@C)ZRLGqz%TlRNpluEQ. !RrSCy5}OR|@5X:nMS.b%vA>aS.uR[eHWS.|zRk*0S.zQ4TyOS.nl=MawS.]b:wOLR~,AmPg[Rx_%V;Am !Rt@*_c`9Rn|3{=4`Rjpcte4@Rfq]24wuRbyT.Oj0R`-fVt&mR\Bvj&mnRX]a_tC{RT{(KHz2RRJUO(=( !RJ{iB4:-RF9~sE_/RB'm2D;3R>/:\MdtR:IVGMVUR6|giwMnR4p]=.PvR2x?r|fHR20o2Kt[Q|U9.>=P !Qn/o-[\gQbL:|RigQXN%oSz0QR^i0n7VQL?&+.j*QFQCpHsRQB|uee7dQ>VG`H9GQF~r[)8, #% [ 59] mg_k.phase !S6,h%MR%S0u@]d%%Rr.U[%%%RJGK;R%%P[v%%%%%RGxSm%%%Ri^>_Q~~S/)7ahR%S1VO|hR%S3}9Kc~~ !S7D9?VR%S9_t&l~~S;vh^2R%S?.xKc~~SA_RSc(uB;R%Sc{GNQ.% !SenN];R%Sg[i_=hRSiDX+hR%Sk)7Kt7%Skd\rw4@SmCGclF@Smz`UVzRSoWJY2zRSq39BG_RSqhyB?VR !Su8J-%v%SwXp6VR%SymmQVR%S{{B/DR%T-Rf|dMRT-\Ym=@%T-es:Bd%T-ng0OhRT-whs7v%T/6e_9d% !T/DrP?.%T/TO]WqRT/^[[ahRT/lLgVzRT/w/6fd%T1%MCJm%T10WTC[%T1,EvEI%T11Fl2)R #% [ 59] mg_k.caps !S>vz)R%%S>u|X@%%S>s*0c~~S>n:FhR%S>gO`H~~S>^m]d%%S>T2~VR%S>G[))R%S>9*Q.%%S>(Qb_R% !SH%u~~S.`1.MR%RvAwy2R%Rj66.%%%R^9_1Z~~ !RRO3qR%%RFz'OhR%R<_zR%%%R2X*0c~~QFXjxd%%Qc:hj@%%R3nT?VR%R=N,;)R%RG+MEqR%ROaq%MR% !Rg1-^Z~~R}<4hR%%S/NO+hR%S1H@9;R%S3:,&l~~S5(%UZ~~S5ofp2R%S7]N0d%%S9Hhf;R%S=G{qR%% !S?YyJm%%SAdz)R%%SCcm56~~SE^_MzR%SGTW(Z~~SIBLwDR%SK.D5_R%SKpAu-~~SMRs3qR% #% [ 59] mg.rep !S2l9C[%%S2mS}6~~S2qIv%%%S2wmmv%%S4&b*qR%S41yFhR%S4?K3I%%S4O-jhR%S4`l^[%%S4tLNqR% !S6/y{H~~S6G=P7%%S6`GG7%%S6{:&DR%S8=vahR%S8\EeDR%S8|f+@%%S:E.ahR%S:j(wDR%S<B)b6~~S>x,.u~~S@XieDR%SB7%%SrL.MR%%Sv`gk7%%Szud=@%%T.S4dMR%T.gCwDR%T0Imu~~~ !T0r5{qR%T2@[ahR%T2i'G_R%T47Pg[%%T4_vMR%%T6.EmMR%T6Vo3H~~T8%>SDR%T8MkSDR% #% [ 59] mg.lambda !T^e~JDR%T^kCVzR%T^y'WqR%T`.QzzR%T`59';R%T`&HzzR%T^Oe`qR%T\O7-.%%TX~Aq)R%TV0fp2R% !TR't7%%%TLrdz)R%THjgHF@%%T2zR% !Sh5lNH~~S`)eq)R%S\M<0d%%SZ{{];R%S\/;5_R%S\`};)R%S^RZNI%%S`Wxl-~~Sbm'';R%Sf5ATc~~ !Shbv~.%%Sl@O/m%%Sp&|lVR%Sro`iI%%SvexC[%%Szc6RMR%S~g5g[%%T.b_-VR%T.v>wm%%T00QjhR% !T0eKl-~~T2CbcVR%T2~||hR%T4c9CZ~~T6J@qzR%T8429c~~T8z`4hR%T:iiI%%%T<[J[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] rb_k.amp !Q%%%%%%%Qj-r-jolR2f|%'KdR8uihO3qR>oPD/\IRDNCY~:WRHgO9B@ERL^=U9D%RP1LY^3eRR5PCA,7 !RRkXZu>7RRvL3=}WRRU8~`8mRPcry,C{RNIhsRsXRJcx~Sh2RF\3{WkKRB9\/bO@R<_a^cvvR6|3t06_ !Q@.r&Bt7Qjo{-T9tR6ctD`-NR@?2L0OhRFW'HG.vRJ&zL)5_RH{=`H~~RFV8EX9TRB3Q%5/eR{%=PRX:QmE|(RZo1p{Ae !R`DcTq>WRbNC9IOTRbu=eUBsRb|l%U]wRb[?~=oOR`^~dQ0ZR^.u~~S\Pk;)R%S\L;%MR%S\De(2R%S\:CwDR%S\-8y2R%SZwO'c~~SZeB+@%%SZPsD)R%SZ:A,7%% !SX{qQ~~~SXaT;R%%SXEY7%%%SX()~VR%SVc'x;R%SVBZ>6~~STzcJDR%STW?b_R%ST2Am%%%SRe[56~~ !SP47-.%%SN=:g2R%SLwXD)R%SLYi];R%SL4YSDR%SJb^c-~~SJ1A,7%%SHU_MzR%SFvV%MR%SF:i}_R% !SDW,_Q~~SBr'G_R%SB1p*H~~S@JhV)R%S>c1_)R%S<{Th)R%S<:[mu~~S:Tys?~~S8q&`qR%S85/dv%% !S4]=T;R%S285SDR%S.ta/l~~Rli\LZ~~RR\uRMR%R8`MrH~~QYZ.IMR%RA%W];R%RUK1FhR%S/FjT;R% !S39R~.%%S5s;zR%%S9M7ahR%S;|zAl~~S?D^2R%%SAaC_)R%SC{QRMR%SG1PO@%%SI>eXhR% #% [ 59] rb.rep !S6:ZZVR%S6;_EqR%S6>mahR%S6D't7%%S6KA}7%%S6TZb_R%S6_nDR%%S6lr([%%S6{ehzR%S82>WH~~ !S8DRmu~~S8XDrH~~S8mgJm%%S:*\q)R%S:C%12R%S:\p_)R%S:x5&l~~S<:|\DR%S9';R%Sp0U&DR%Sn}}*qR% !Sp:nq)R%SVuUc-~~SR/%el~~SNn|lVR%SNC+\DR%SN>C2Q~~SNRK+@%%SNwmIMR%SPP*qQ~~SR2MV)R% !SRw-nl~~SThZ-~~~SV`(6VR%SX\]7MR%SZ]oh)R%S\c0Kd%%S^l6-~~~S`xg:[%%Sd.Lc.%%SfA1s@%% !SlNf3H~~SrkX\DR%Sz;zR%%%T.Yjp[%%T.{DV)R%T0D&`qR%T0g`bX\DR%T@f,wl~~TBkNuVR%TDrdU[%%TF{bwl~~ #% [ 59] rb_l1.amp !Q%%%%%%%QvAj]j+hR4yzq'L.R<]2Wp[nRB|F9JbtRHw5NK]xRNHV5_RBH)okT|R<]()gzZR6kY4iKp !Q>qJ[7GpQr1WSTd%R6_*`\(2R@++eYWIRF9G8QrrRH]g=`WYRHW]+4C;RF06VfJ,R@bkpJ2bR:rfJvx' !R6\dIxsmR6;e,9wMR:',ZDE)R>qx+@%%RDv6_^A,RJpgqPdERPQ+;zR%SM.QzzR%SOrMMzR%SSTR56~~SW/hV)R% !SY]9+?~~S])3];R%S_GPwl~~Sa^PO@%%Scn*}_R%Sev6nm%%SgwbshR%SirXlVR%Skh|/l~~Sm\:k6~~ !SygPshR%T/613@v%T/JcEQ.%T/T,^>_RT/ZM]h)RT/_E(Z~~T/c*W4hRT/e`W}_RT/f]AXhRT/dF_~VR !T/[wY2zRT/N4.57%T/Drq-VRT/CVh=hRT/G+Qnm%T/M1tSDRT/TEK';RT/\1]Kd%T/c~HB;RT/keQNI% !T/}z.iqRT14IL>_RT1CkmahRT1Rly;IvT1adLjH.T1p4+KC[T1~-MD{AT31D&-nmT3={4dqzT3`uhf;R !T3wPX7v%T528,6~~T5F:Tx;RT5YmKt7%T5l0*uVRT5}]L.MRT741ruVRT7BGn,7%T7La=|hR #% [ 59] rb_l1.caps !S\I;=hR%S\GhIu~~S\CC.MR%S\<%EH~~S\1t.u~~S\%(_)R%SZo_V)R%SZ]oh)R%SZIkO?~~SZ3]_zR% !SXuTt7%%SX[_f;R%SX@+P6~~SV|w,6~~SV^;nDR%SV>1Bd%%STvW];R%STSQ)zR%ST.pBc~~SRbLs@%% !SP1uB;R%SN;&bT|?~~SeXhR% #% [ 59] rb_l2.amp !Q%%%%%%%QF&Di}X8Qd\C%_+yR.^t)-JOR2&,x[v%R4;rCK,SR6F;SQrrR8Dd<[@VR:7^m}J(R:yMXh}h !R'vl|T`R>EDG1jmR>Q+i+'dR>Hs]]bGR>*07[DZR-7r6F !R.~l|KUoR0YTHHX0R44R;LBdR8?'Zlr)R:t2SXKDRRzR2DV%Q2*R87zrI%%R5X5eR\&h^Fi{R\1's1yNRZbA,9B{RXknV|~URVgE>-<&RT`gzs\ERLhHg}is !RHIu^f/WRD,p1gI.R>q/wt):RE\cyR2I)A~Q_R0tEpX0X #% [ 59] rb_l2.phase !Rg]|?~~~S/Vu:2R%S3]^Bd%%S7YTWqR%S;J>K;R%S?/?:2R%SAb66-~~SE.QVQ~~SGH(g2R%SIU'|@%% !SKVI--~~SMMPG7%%SO;|xc~~SO~2rI%%SQb,*qR%SSD&`qR%SU&/q)R%SUdQ2)R%SWMb7%%%SY?-6.%% !S_xyNqR%SgHV-VR%SmTV9c~~SqI6%u~~Ss\;~VR%SuQA(2R%Sw2tod%%SwdCFhR%Sy6|3qR%Sy_~VR%% !SyvH:2R%Si:Lo;R%Sc4pZ~~~Sc]`iI%%Se=)f;R%Se|^FhR%Sgd\,7%%SiMAHVR%Sk5,shR%Skub_R%% !SoXLlnm%Ss)js'd%SuF?{DzRSwY|`c:{Syj;NiI%S{y%}cVRT-Rb6{D{T-\]St?.T-f)^VzRT/%pI~.% !T/6l7em%T/FMEqR%T/UcdahRT/d\T?VRT/rk5G7%T1&M%MR%T13~\}7%T1B,Dj@%T1L^:Z~~ #% [ 59] rb_l2.caps !SL^&DR%%SL\b*qR%SLXV=hR%SLQkWH~~SLHGwl~~SL?.%%SF&^Jm%%SD^\\m%%SD;8u-~~ !S@r6jhR%S@+,2zR%S>glnl~~S>LvU[%%S>/8hzR%SO?~~RPlXxc~~R:iehzR%PTl{iI%%R9H9CZ~~RO5czzR%Rcf7qzR%RwQ~6.%%S/'sH.%%S3M6NI%% !S7%xp2R%S9FIADR%S;a07MR%S=zD9d%%SA+b&m%%SC3(Z~~~SE9=/l~~SG5)9d%%SI/Tc~~~ #% [ 59] rb_l3.amp !Q%%%%%%%QF,k9q:wQdi&\;KTR.`gN%AiR2(O;zR%R4>dSiSUR6IL>ov9R8H1|bV6R:;44A)jR:|y.{KL !R*q0oh)R>GvaCbdR>S?eu.%R>JiA&7VR>+m4k->RR8R@|h<1R6?5D[E% !R.~5dU+\R0V\tjp[R4.yvaeRw]R81>h;AmR:xXRFVrd~K3RJUtN..fRN=H^`O, !RTHyDT';RX8eEerKRZ>1,dV4RZtGKUu,R\&aVjzBRZZC~'k1RXeU4hFCRVaTttQ7RT['C1,KRLfOcSW& !RHHflHoMRD+TUrN6R>q6]hh6R2zR%S;PHnm%%S?5|`H~~SAiL_)R%SE6K|@%%SGPdiqR%SI^G{qR% !SK`EiH~~SMWu2)R%SOFdqzR%SQ/%em%%SQlu>7%%SSNdz)R%SU0P{qR%SUnU.MR%SWW>*qR%SYH7ADR% !Sa&9WqR%SgOp6VR%Sm]N0d%%SqSedu~~Ssg62)R%Su]*,_R%Sw?Lk6~~Swq?jhR%SyDC&DR%SymiqQ~~ !S{-I12R%Si7%T1B|Us@%T1M[em%% #% [ 59] rb_l3.caps !SL^&DR%%SL\b*qR%SLXV=hR%SLQkWH~~SLHGwl~~SL?.%%SF&^Jm%%SD^\\m%%SD;8u-~~ !S@r6jhR%S@+,2zR%S>glnl~~S>LvU[%%S>/8hzR%SO?~~RPlXxc~~R:iehzR%PTl{iI%%R9H9CZ~~RO5czzR%Rcf7qzR%RwQ~6.%%S/'sH.%%S3M6NI%% !S7%xp2R%S9FIADR%S;a07MR%S=zD9d%%SA+b&m%%SC3(Z~~~SE9=/l~~SG5)9d%%SI/Tc~~~ #% [ 59] rb_m1.amp !Q%%%%%%%Q\47:j5tR0H%~&dvR4|RBfKdR:K=`^s@R>et)9d%RBli}4Q&RF_&bkE~RJ7woN\MRLOXf=T< !RNF]qR|PRNu%y>;*RN{W-A>'RNYUBZT+RLf=6L)ZRJK2gVRIRFf=1fr~RBc3@QVRR>K.^=iAR:(8>>r1 !Qp'InB=TR0.+=No+R8X-hWa@R@~{?~DbRH;i\BHNRJe)fRoTRJ]bt\R=RH7_O4ywRBs^mTzbR>@Z08h2 !R:CE6&zjR8o]J+.ZR:|K(,9'R@0SC9V:RD^2}n3QRJ5.06poRNW);*p?RReFb;8,RVW2ed?BRZ0.Pb0x !R^a~RcF@R`r+YE'=RbBj9p,aRbKeypv8Rb-(bAp(R`53C?WtR\qVKq8FRZK}+>XdRX+o<0rYRNVDkL:m !RHxRfMyXRDG_\(k%R@(X:a[sR_R%S\UHjhR%S\Pk;)R%S\I7]d%%S\>axc~~S\1L&DR%SZ{STc~~SZi4D)R%SZTW(Z~~SZ=p6VR% !SZ%4H.%%SXdf7MR%SXHXxc~~SX*u2)R%SVeh1Z~~SVE1wDR%ST},O?~~STYWmMR%ST4N}_R%SRg]Kc~~ !SP5k;)R%SN?.IMR%SLyA,6~~SL[GK;R%SL6,G7%%SJc||hR%SJ2[el~~SHVrmMR%SFwb*qR%SF;nhzR% !SDX&P_R%SBrsxc~~SB2[ADR%S@KLRv%%S>cdahR%S<|*0d%%S<;16VR%S:UK[v%%S8qNiI%%S85WmMR% !S4]Zb_R%S28D-VR%S.ta/l~~RlhxOhR%RR\7UZ~~R8`7~.%%QYX:g2R%RA%>.v%%RUK-fd%%S/Fn4@%% !S39R~.%%S5s?ZVR%S9M;Am%%S;|zAl~~S?D^2R%%SAaG?.%%SC{QRMR%SG1T/DR%SI>i8m%% #% [ 59] rb_m2.amp !Q%%%%%%%QT22q~VRR.XUs/ZkR2f(pW{]R6f'\q`5R:Ug/(DfR>3Q/o';R@Y\L24qRBlN@>{MRDlap:6V !RFWY6qt'RH,Z*BiaRHAv8&c>RH<`[x@jRFscHfd%RF4*PJ(2RD1n{<([R@p:8%emR>AGcmoTR:\mh;T' !R03Onu5?QhW?QS`rPjb%MVF`Q\\H<`0@R05=Jf=7R2_uaFA]R49Q+V/4R4(2}6HBR2=a)_B7R00N)e0U !QpTh6<4hQX\u``uVQXyQ`e^&QvR`Ito@R2%ifx_zR6+v&Z;FR:/}}JxDR>*{U,a0R@q2g*I%RDOUj5si !RJf\6:{IRP*t?mb(RRq?%xwMRV3R\iL;RVu+BFM\RVxKo7hpRVKCbV*eRTcVZ[qsRRtZ5qI-RLOB6Tbd !RH>J:M@~RD(,[dAZR>oSNR7SRR2G?>7RxR0uPEWgk #% [ 59] rb_m2.phase !RM,SDQ~~Ry07MQ~~S1B*uVR%S5CK7MR%S9;aH.%%S=*:Jm%%S?hLBc~~SCAQrqR%SEhg*I%%SI)rI%%% !SK9:c.%%SM=WuVR%SO84@%%%SQ*h~VR%SQpcvv%%SSWF|hR%SU9ia?~~SUrU{I%%SWN0?VR%SY&dv%%% !S[]}SDR%S]ylnm%%S[9,wm%%SG(7iqR%SG>bg[%%SGRF7v%%SG^HjhR%SGiXlVR%SG}YK;R%SIO>G7%% !SKTg_)R%SO~S`qR%SY397MR%S]{z%MR%SaR\P_R%Sc\BOhR%SeW4hR%%SgK<@u~~Si:m]c~~Sk'AXhR% !Smp)VMzRSqKW|L2RSspo_zR%Sw1Y'03ISyGJ(2R%S{Zge0;RS}k_)vMRT-ZIjgc.T-d7KOhRT-~vXp[% !T/6?FdMRT/F:I~.%T/Uh,C2RT/dt8\m%T/s7-.%%T1'&(2R%T14W_b7%T1B_GO@%T1M;>2zR #% [ 59] rb_m2.caps !SL^CRv%%SL\{Y7%%SLXsL2R%SLR++hR%SLHaL2R%SLh:wDR%S>MD^2R%S>/`qR%%Sg[%%S6?U>_R%S4g+\DR%S42]CZ~~S2W,_R%%S0{8m%%%S0EehzR%S.k=P7%% !Rj*mqzR%RPlyg2R%R:iiH~~~PTU{H~~~R9HVR%%%RO5yo;R%Rcf?2)R%RwQ~6.%%S/'sH.%%S3M:.MR% !S7%|P7%%S9FL{I%%S;a07MR%S=zD9d%%SA+b&m%%SC3(Z~~~SE9=/l~~SG5)9d%%SI/XD)R% #% [ 59] rb_m3.amp !Q%%%%%%%QRn_&WgGR.RcoZmZR2]J:9~BR6Zp:'|@R:HRFcR@go;RF%4521[RB~3-vQVR@cuR\,7R>672j@%R:RmPnu. !R0-6`,I^Qfi,b)^3PNpWk?YhQ^D+\{UWR0=@t/}BR2iRiM)RR4D4OE5WR42H6vv%R2Ea.yfDR04SFt\Z !QpIzY;M{QVof3>*qQV|Ov_6sQtt)kh0HR0{E9_V)R6'3fnMJR:*%a'\eR<}7LzKTR@gB^Tx;RDCSb^[n !RJUx3I%%RNqlvXFPRT|f7+[1RVg3cS3`RVmJpYEhRVB1@w\mRT[9w.[2RRltKL=(RLKyFEl| !RH<,r=N5RD&?UX-?R>oF*6e>R7%%T-WA93I%T-X}i];RT-ZMD9d%T-\c>6~~T-a3B/DR !T-jceu.%T/'0A}7%T/Nb?RMR #% [ 59] rb_m3.caps !SL^CRv%%SL\{Y7%%SLXsL2R%SLR++hR%SLHaL2R%SLh:wDR%S>MD^2R%S>/`qR%%Sg[%%S6?U>_R%S4g+\DR%S42]CZ~~S2W,_R%%S0{8m%%%S0EehzR%S.k=P7%% !Rj*mqzR%RPlyg2R%R:iiH~~~PTU{H~~~R9HVR%%%RO5yo;R%Rcf?2)R%RwQ~6.%%S/'sH.%%S3M:.MR% !S7%|P7%%S9FL{I%%S;a07MR%S=zD9d%%SA+b&m%%SC3(Z~~~SE9=/l~~SG5)9d%%SI/XD)R% #% [ 59] rb_m4.amp !Q%%%%%%%QVx]At@WR.xF0)u3R4:k?>}eR8GF-L^nRv\:2M=RB4mAk;4RD(*.lAqRDKF\}ia !RD>[ug&LRBWo~tppR@;9;}a)RQj0}lsRB,omK~J !RHPv>0f'RL~DcE|qRPlKz8bSRT*K[C~3RTliA7IyRTx0-v@*RTTkQ50TRRs=8c2URR,sW+8|3^BNR:p{W=|OR82PxjP7R6/;1}PER4=(7lzDR2:21XCTR0S}}(2h #% [ 59] rb_m4.phase !S1wu.%%%S712Q~~~S;_RT/j5DEqRT/tnu-~~ #% [ 59] rb_m4.caps !T.e[56~~T.exC[%%T.funm%%T.hWshR%%T0D1[%%%T0HeP_R%T0LT/DR%T0OSq)R%T0QhAl~~T0S0;R%% !T0QzV)R%T0Pg6VR%T0R{a@%%T0T*,_R%T0T1FhR%T0S_^2R%T0Rx';R%T0R+P7%%T0Q@9;R%T0PcVQ~~ !T0P43qR%T0O^k6~~T0N~NH~~T0N.=?~~T0LxWqR%T0KKd%%%T0I[ahR%T0GJq)R%T0D~2)R%T0BE8m%% !T0;@~.%%T04a7u~~T0//q)R%T0*U{H~~T0&4@%%%T.{=;zR%T.u{iH~~T.pnq)R%T.lEuVR%T.a*yZ~~ !T.X{y[%%T.RPg[%%S~DO|hR%S|\h1Z~~S|'7MQ~~SzIiM)R%SxliU2R%Sx>DEqR%SveL[%%% #% [ 59] rb_m5.amp !Q%%%%%%%QX(:aXm7R.z?4naRR4=Y[uMLR8K&%aKDR{X`%b7RB:%*1`HRD,|H8GzRDO>yM4: !RD@PwO}fRBV=Y'-}R@4>qS%IR<6VcktWR6ezxVamR2%,BxMfQp6}JIbWQnEY(Jm%R0Xo@4~kR4b)aKh* !R:;x~V`YR<-2cd{=R:&v*A93R6=ch_o3R2yx%8tdR4-==&fTR4{g\%'pR8A~c_4(R:v~frY7R>T~.DD:RB09r[|B !RHTT48%[oM|R:oPN7BcR82PxjP7R6.m31v]R4:SQ8r9R28.Wo5SR0S1%ozm #% [ 59] rb_m5.phase !S39';R%%S7L>_Q~~S;WqR%%%S?\Tc~~~SCYwl~~~SGO\DQ~~SK=\DR%%SM|dMQ~~SQY?.%%%SU,WI%%% !SWNQ-~~~SYeP_R%%S[ndv%%%S]f/DQ~~S_C[%%%%S_H)zR%%S[xKc~~~SUS(2R%%SQs7u~~~SQVrI%%% !SQq5_Q~~SSmqzQ~~SW4|hR%%SYYC2R%%S]AshR%%T0D1[%%%T0HeP_R%T0LT/DR%T0OSq)R%T0QhAl~~T0S0;R%% !T0QzV)R%T0Pg6VR%T0R{a@%%T0T*,_R%T0T1FhR%T0S_^2R%T0Rx';R%T0R+P7%%T0Q@9;R%T0PcVQ~~ !T0P43qR%T0O^k6~~T0N~NH~~T0N.=?~~T0LxWqR%T0KKd%%%T0I[ahR%T0GJq)R%T0D~2)R%T0BE8m%% !T0;@~.%%T04a7u~~T0//q)R%T0*U{H~~T0&4@%%%T.{=;zR%T.u{iH~~T.pnq)R%T.lEuVR%T.a*yZ~~ !T.X{y[%%T.RPg[%%S~DO|hR%S|\h1Z~~S|'7MQ~~SzIiM)R%SxliU2R%Sx>DEqR%SveL[%%% ifeffit-1.2.11d/src/fefftab/21.dat0000755000175000017500000001710310771740460015463 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] sc.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] sc_k.amp !Q%%%%%%%Qf}6+e*5R2^n8?iUR:*tNnRXiTw;O4RTl_->mbRPsT9a|iRN1y6e,7RJ`QJXw,RHNV>J>'RFXbhW&}RF'yQiy[ !RLKWWLLoRTsisQC*R^s/=+1oRjF9pa3)Rv>AGvV%S.YB+9`6S0,BX1:(S0NRM0i6S0e.ftbhS0om-@9< !S0n56jYxS0e/G>):S0U/i{];S0B29}t3S0-9F2^3S.qbsy~_S.\)_f_zR|iD|bodRx=xY\*5RrnyD8B+ !Rh7+-FmxR^^*{MU[RV|pm1)HRP~m{fj,RLN~MR{'RH>&Cyq(RDKUV/x.R@q.duDbR>KxHZbUR8?,c,YK !R4br-N(7R2K;/cHJR0]->x|dR.]FSd8jQxtI|[riQn/uDU`SQf%X/7kOQd-YTu%v%SI:/s+hRSK;5_R%%SM=;NiI%SO@Ou)zRSQC7q1[%SSF07MR% !SUH.%%%%SWId~.%%SYI`U2R%S[GRUZ~~S]BDnDR%S_9Zb_R%Sa,hIv%%Sav<,_R%Scc80;R%SeNl:2R% !SiG|;zR%SmAa`I%%Sq8kk_R%Su(,K;R%Swgnq)R%S{Ed12R%S}vcjhR%T-^3ZJDRT-j&l~~Sc,0x;R%Se9P{qR%Sg=MEqR%Si==|hR%Sk;[el~~ #% [ 59] sc.rep !S4\YWI%%S4]e\l~~S4a3M)R%S4fsH-~~S4nmmv%%S4xqj?~~S6*{];R%S69*,_R%S6I&8DR%S6Zp&DR% !S6nDvMR%S8)Xt_R%S8@J`qR%S8Xp[%%%S8rpc.%%S:4Jy2R%S:Q\}6~~S:pPO?~~S<7))Q~~SvCFhR%S@SJXhR%SB/_9c~~SBjBp2R%SDMf_zR%SF3W4hR%SFuQ:2R%SH_>{qR%SJJdQVR%SL7QzzR% !SN%RiqR%SNnXD)R%SP^T/DR%SRO;1Z~~ST@`0d%%SV2^2Q~~SX%1VzR%SXr-)zR%SZeM%MR%S\Y0/DR% !S`hXt_R%SdyPshR%Sj1I~-~~SnD2%MR%SrWPcVR%SvkDj?~~S|%]?VR%T.T.UZ~~T.h6NI%%T0JY2zR% !T0rsxd%%T2A8DQ~~T2iZJDR%T47|P7%%T4`H6-~~T6.mu~~~T6W=;zR%T8%b{qR%T8N2Al~~ #% [ 59] sc.lambda !TB,%56~~TB..el~~TB4*U2R%TBYz9d%%T6~~Sv[ZrqR%SzEZ%v%%S~4Sq)R% !T.uALZ~~T0Hi0c~~T0xdmv%%T2Q%v%%%T4+UNqR%T4b4X?~~T6@sX@%%T6{Znm%%T8^9G_R%TPncS.gv=b~>R~sCtCA,RzA,HQ^[Rtdl_g*I !RhuSz??&R`8tpk|~RXM]g1PtRRFz0jDURLj6~LtARHT-;5,ORD]C&(L&RB%6.frsR>WK'W**R8FQK`Zo !R4gYH%4HR2O71;|yR0_x)TX-R._Mg7@@Qz+Q6MD:Qn=]4/zrQf0y%}+kQd;o61cKQVr>>GqB #% [ 59] sc_l1.phase !R~*pc-~~RR;:Ru~~QJ))R%%%RG9h)R%%Rio?VR%%S/-<4hR%S1V2nDR%S3psdMR%S5}dEH~~S7}cVR%% !S9r]_zR%S;^gt.v%S=D4A8DRS=~=*y[%S?Y@6JDRSA.]g_)RSAVm8L[%SAv4=3qRSC1H||hRSC<+L2R% !SA}n%^RvSCPyP]t7SE2z4OlVSG&Vb[MRSI&r@QVRSK,m@z)RSM3L_)R%SO:Y4|hRSQ@WoOhRSSEw}7%% !SUIb2zR%SWLCwDR%SYLv12R%S[K+@%%%S]F(Rv%%S_=B';R%Sa0SHVR%Saz5_Q~~ScgV1[%%SeSc>6~~ !SiNTh)R%SmIIqzR%Sq@tk_R%Su09+?~~Swot6~~~S{M^VzR%S}~eP_R%T-^}9';RT-k,DEqRT/4E1wDR !T/Hqt&m%T/\)|T;RT/o(&hzRT1%D9?VRT15Q0';RT1Dm?fd%T1Sn1*I%T1dHHfd%T1|*4D)R #% [ 59] sc_l1.caps !S0pIY_R%S0oA4?~~S0l+X?~~S0fj+hR%S0_E([%%S0U{I%%%S0J`M)R%S0=UNqR%S0.^.MR%S.w~%v%% !S.e^o;R%R~{=`H~~RzUhEqR%Rtx:c.%%Rp-crqR%Rj(NM)R%RbfJu-~~R\1'WqR%RT9%9;R%RJzMzQ~~ !QTeKl-~~Q764P6~~Qc]kcVR%R35o?VR%R=JiDzR%RIKL.MR%RW%Y_Q~~Rc{S0;R%Rs5yo;R%S-_xt6~~ !S/HS&l~~Sc,0x;R%Se9MAl~~Sg=MEqR%Si=:Bd%%Sk;[el~~ #% [ 59] sc_l2.amp !Q%%%%%%%QH[M{wXiQljt&^JmR0QzXac_R4Xrqt4^^Lo[RH>Rd57%RF@Ngi&4RD0GKCtSR@xQ7em%R>oCk%1WR*MnbH&RBpo*`InRHjR.NOPRN|MtUnqRVcDk-LkR^^/iT=,RF_3m(\1RBzNXzpNR@Ne|X*rR>.duhivR8&RWFs> !R4LFb4o~R24/@}laR0Dw&GY'Q|i)>nfTQt0M8@i7Qh340'qMQ\l@Z<|xQZ5a&~iCQPfVR=*1 #% [ 59] sc_l2.phase !S/*~)zR%S3.4H-~~S5emmv%%S7zk.v%%S9q-2)R%S;MEM)R%S;mW8m%%S;{Imu~~S;{f|@%%S;uJDR%% !S;pt.v%%S;t|;zR%S=*mMQ~~S=FR]c~~S=lQ^[%%S?@zMzR%S?vMQ~~~SAXH.%%%SC@b{qR%SE/sP6~~ !SIqs7u~~SMMI-.%%SQ'+@%%%SSS0;Q~~SUp+\DR%SW{xl-~~SYx{uVR%S[j4`I%%S]TQjhR%S_:qb7%% !S_y]Kc~~Sa]lRMR%ScAb*qR%Sc~RqzR%Se_x+@%%Sg>Jq)R%SgsSL[%%SiKQF@%%Si{([%%%SkO%ahR% !Smf|dMR%Sq&WU2R%SsAu-~~~SuZodT10:+c^[ #% [ 59] sc_l2.caps !SX3W4hR%SX2kwl~~SX0[-.%%SX,wHVR%SX'uJDR%SV{QRMR%SVslzzR%SVj|D)R%SV`|'c~~SVUzZ.%% !SVIx';R%SV<{];R%SV/+H.%%STz;Am%%STjJ0;R%STYPSDR%STG?vv%%ST3`,_R%SRx9t7%%SR`Y6~~~ !SP[/y2R%SPSO'c~~SPVK/DR%SPJedv%%SP4:g2R%SNpO`H~~SNLsdMR%SL~Q^[%%SLR++hR%SJ|f+?~~ !SJKA4?~~SHru2)R%SH@D5_R%SFhMV)R%SF7|P6~~SDcZzzR%SD7ndu~~SBhhb6~~SBB/DQ~~S@w*4hR% !S>wlZVR%Sqq6R>2OSxC[RBKIYfl.RFCDiTh)RHRzgi-N !RHjC;%,dRH<\ST?VRF>yMK6_RD/5R.{aR@wUEPjqR>nVS?^[R(SJO^GRBn+;qhbRHf~Y1_rRNx8f'BlRV^Os>?wR^XR3driRfV}hOftRn7Cnq)RRt;/tG/eRxQ*>*Pd !RzmlOc^[R|Fvox\@R|54%nRbRzRb;IXqRxNE)\0`|b&mRlbK^0OiRhzMFW>t !R`t%gPk%RZHYiK'.uWiUiR8&;7?k, !R4L(b3L;R23nW-{|R0DAIbq_Q|c--Db7Qt)j4X:4Qh*j0nxKQ\cG81y1QZ**[q7+QPYY?/-J #% [ 59] sc_l3.phase !S/4.56~~S3779;R%S5nOp[%%S9(whzR%S9xYO?~~S;T%9;R%S;sDMzR%S=&DQ~~~S=%}cVR%S;y&hzR% !S;swP_R%S;wSu-~~S=-'x;R%S=HMZ-~~S=n:FhR%S?BP{qR%S?wvem%%SAYfG_R%SCA}[MR%SE14/m%% !SIsT_zR%SMO1o;R%SQ(|\DR%SSU+7u~~SUr-rqR%SW}{([%%SYz5;)R%S[klNI%%S]Ue0;R%S_<+'d%% !S_zLBd%%Sa_%qzR%ScBuJDR%Se%f7MR%Sea1Jm%%Sg@(_)R%Sgu1:[%%SiM/4@%%Si|`I%%%SkQ'x;R% !SmhZRMR%Sq'jt_R%SsC.MQ~~Su\>oc~~SwnGC2R%SyyDAm%%S}%gJm%%T-RAlZVRT-[08`qRT-t}P'[v !T/*+b&m%T/8o/=7vT/G5/sP7T/S_5ONYT/`Mh6NIT/l5PZ^[T/vw{)nDT1%X)todT10W:-^[ #% [ 59] sc_l3.caps !SX3W4hR%SX2kwl~~SX0[-.%%SX,wHVR%SX'uJDR%SV{QRMR%SVslzzR%SVj|D)R%SV`|'c~~SVUzZ.%% !SVIx';R%SV<{];R%SV/+H.%%STz;Am%%STjJ0;R%STYPSDR%STG?vv%%ST3`,_R%SRx9t7%%SR`Y6~~~ !SP[/y2R%SPSO'c~~SPVK/DR%SPJedv%%SP4:g2R%SNpO`H~~SNLsdMR%SL~Q^[%%SLR++hR%SJ|f+?~~ !SJKA4?~~SHru2)R%SH@D5_R%SFhMV)R%SF7|P6~~SDcZzzR%SD7ndu~~SBhhb6~~SBB/DQ~~S@w*4hR% !S>wlZVR%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] xe_k.amp !Q%%%%%%%QPN/Hn6BQzHZs?ZWR2:4Apq>R6,*|Y=PR8gHoqj@R<3UwyDfR>Aq5&^KR@6/&Q)zR@hx;)4q !R@}+6V}hR@ryL0W)R@J;a-r)R>]}ROj0R-;7@Y; !RXU>=kUGRj~J/f/ERxI?0N\MS0`2)a@nS2]X1,v~S41A.mW'S4ORh//mccNRfnF2U(GRdtAnRZNR^w0-*w} !RX{UWl>3RTZC59@jRP3<.8qkRJ`[59B{RH%}Wm6URByb`Kc(R@[,g/B{R>@4Z-;yR:cDRqvr #% [ 59] xe_k.phase !S:xz=hR%S6ebshR%S2X}{qR%S.Rf[v%%RX.v%%%%R0reDR%%R=`eXD)R%SjL2R%SC[\u-~~ !SG^tSDR%SKZIz)R%SOFa7u~~SS)_j@%%SUayRu~~SY5_vMR%S[\EeDR%S_&WU2R%SaCaP6~~ #% [ 59] xe.rep !S::JHVR%S:;9?VR%S:=c^Z~~S:AoKd%%S:GY&l~~S:NzIv%%S:Wr@u~~S:b@em%%S:n;~VR%S:{d12R% !S<0WqQ~~S<@mQVR%S4xc~~~S>K[v%%%S>cRMR%%S>|\DR%%S@,K;R%%S>6<}_R%S>AT?VR%S>N/u.%%S>[qV)R% !S>jVb7%%S>z*eDR%S@09+?~~S@@kshR%S@QZVR%%S@bWmMR%S@sQJDR%SB*@-.%%SB:z5_R%SBKKc~~~ !SB}3iI%%SDG?.%%%SDv'Kc~~S@htK;R%S@*eDR%%S>j@mv%%S>diM)R%S>l;j@%%S>|g>_R%S@9ny2R% !S@V-2)R%S@vMQ~~~SB@8(2R%SBfu%v%%SD6(Bc~~SDaBp2R%SF4X?~~~SFcRqzR%SH9}wm%%SHkpwDR% !SL9qEqR%SNhC&DR%SRB>gZ~~STzq~VR%SX]OhR%%S\C`Px !R>YNzL,pR@3^Z9&MR@`|`xG`RB0Z,dEIRB\L>NF4RD:;E{dVRF/C%12RRHM1]BzbRLKCO9HsRR9?+qnD !RjOKmtG7RxHtGe`)R~PX)\({S0d[KGw6S2G`Ur>tS2fW_e/MS2l~Cw@rS2b=>J/MS2JDs[\uS2*o5@4: !S0aSO/DvS0<;NfmJ.RT-0*&Q.RNgs1)~VRJBnlI{tRFgGL'PWRBdOvJ|6R@J{D-waR>.ecTfDR:V-?Ys~ #% [ 59] xe_l1.phase !S>i\q)R%S:VT';R%S6J'C[%%S2D;f;R%R|WmMQ~~RVHRMQ~~R0{];R%%R;e\l~~~R]^o;R%%R}iU2R%% !S1%@z)R%S3LGWI%%S5iyZ~~~S7|Sq)R%S;(8}6~~S;y&hzR%S=^|7u~~S?3*8l~~S?P1Bd%%S?^whzR% !S?_[em%%S?hLBd%%SA2^{I%%SA{@--~~SE,DEqR%SG>EY7%%SIP?RMR%SK_{@v%%SMk43qR%SOq't7%% !SQq]h)R%SSmIqzR%SUdcF?~~SWW|i@v%SYG0f';RS[0b8\m%S[m[H:2RS]Gw=\DRS]plv-.%S_4BY5k` !S_Z=OH.%Sa2*~rqRSc1QtshRSeG}shR%SghU_)R%Sk5%Y_R%SmaKC[%%Sq8`qR%%Ssl0p2R%S}>7%%%% !T-e/mIMRT-~(yFhRT/;B,SDRT/R8[57%T/gBFp[%T/|l9C[%T16iXlVRT1KG|`I%T1bn:k7% #% [ 59] xe_l1.caps !SJb(&DR%SJ`cfd%%SJ\_9d%%SJUx3I%%SJLX3qR%SJ@d56~~SJ2IQVR%SH{iI%%%SHhq5_R%SHSs+hR% !SHpl%v%%S/dv%%S4ej|hR%S43:&DR%S2Z:{I%% !S2&IEH~~S0KKc~~~S.o3I%%%Rz+a7v%%RlkE4hR%R`F=X@%%RRqe(2R%RF;gNqR%R8ZUc-~~Q`3bSDR% !R?`Qvv%%R_a>k_R%R}jzf;R%S/u@]c~~S39e8DR%S5SzEqR%S7l_%MR%S;*3yZ~~S=>_R%%%SC[Y;)R% !SG^x3H~~SKZIz)R%SOFa7u~~SS)cJDR%SUayRu~~SY5cVQ~~S[\IEI%%S_&WU2R%SaCe0;R% #% [ 59] xe_l2.amp !Q%%%%%%%Q:w8*pTTQPV7ZA>'Qd]V/QNIQvytC&p;R.wf`J)jR0\ms//(R25n'NU3R2ZSMu^[R2q.RFr9 !R2xi61txR2r)EG8]R2]:+}tWR2RRf8D:@bRX,=}.XqRZ|}R7r/R^-z/u2&R^Aqen:vR\z|I@(IRZ>sm`Sc !RT|`chW@RR*8g}xnRN(6=BPmRHm`US@MRFB+>dsBRBG_fpl-R>}`>2_TR_R%SqQ)1[%%SuuZzzR%S{'%9;R% !T-e|DMzRT-vM16VRT/+:?)zRT/8[REI%T/Cvo/DRT/O3(Z~~T/ZA:FhRT/e3F3qRT/oPpwDRT/y>X7v% !T1(JSP_RT10uk2zRT18lVvMRT1@1'WqRT1Fp=p[%T1Li4hR%T1QgsdMRT1UOywDRT1WW?b_RT1WnDj@%T1PTu%v%T1V0]Sm%T1_*DV)RT1i*@-.%T1sM:wDRT1~AWU2RT3/[K+@%T3;5TWqRT3\dQVR% !T3qyX3qRT5,N0?VRT5?rPBh*T5S(uxx;T5dNs7-.T5vS*|6>T7,nx&L[T77T7N+.RF\DR%S8V%MQ~~ !S4jA8DR%S2(z~VR%R~b[qzR%Rb+nXhR%RDi9[u~~QX&2b7%%R7vPg[%%RQ7Kt6~~RghY?.%% #% [ 59] xe_l3.amp !Q%%%%%%%Q<)a7jC;QPnn]aftQf't/dv%QxO;.v:sR.}PuXu*R0cSoE1SR2=HVo3IR2bp>PwmR2z8@.2j !R4(\51nMR2|`VqZ.R2hcX7-.R2HS3lm5R0yey2R%R0O0Cps@R0-4GG/eR.~K:B?WR0EvBwxDR2?(8kdE !R<0TI3o+RBGp6Y)^RFx^GfdnRX?QF+9/RbhU(n/MRh~z/9j,RlJRN.@zRlMr@;b7RjZhoRh:RhZ_RHc'u2`5RDfwio{QRB6EY)2J !R@93'_CoRF&soiw4RLU3z6z2RRHmX`xHRVg6B:(kRZ]+aw4zR\hjN'`mR^%0EN@RR\a,36maRZ)',Rw1 !RTlZ@3dsRPxYN:7qRLx5MG,ARHg0dcOkRF=pE0({RBD'H`/BR>|5[W9uRvY_R%S5RBWqR%S9_D^2R%S=f8`qR%SAfx_zR%SEaqIu~~SIW&XhR%SMFL2Q~~SQ0RY_R%SSpPshR% !SWS2=hR%S[3CBc~~S]m(_)R%SaOQnl~~Se97MQ~~Si/l6.%%Sm9jt_R%SqVeLZ~~Suw]7MR%S{)Kx;R% !T-g@^.MRT-xH-ZVRT/-RIqzRT/:~W@v%T/FCT/DRT/QV-VR%T/\`_=hRT/gRk*qRT/qsurqRT/{a]3I% !T1*q8P_RT13F07MRT1;T7.bZAL[T7>Q@l>7T7P8>v~. #% [ 59] xe_l3.caps !Sr,V~VR%Sr+oG_R%Sr)WRF\DR%S8V%MQ~~ !S4jA8DR%S2(z~VR%R~b[qzR%Rb+nXhR%RDi9[u~~QX&2b7%%R7vPg[%%RQ7Kt6~~RghY?.%% #% [ 59] xe_m1.amp !Q%%%%%%%QB9G+6PKQ^9n33y[QxmFrzIvR0Ok`r.bR2cE+%s}R4noPm=@R6rRA7G'R8lpg,a0R:`9S2b7 !R83:ruWR>~JgkT3R@oXEKKdRBok~tshRF0(}f9+RHq_7^.NRN9[q]C[RTQBR[pCR\qNttE5 !R|Ru=hvMS.ivS.O0S.es%Zh_S0hgf;Y?S2;]c-DbS2SD.^wES2X.1VzRS2M~D=hRS28U;'=TS0upg{I% !S0Tn{/|iS019@:;4S.f{Q)I`R|?_BoYORtL;uxp{Rl_]fZ>7Rf2>++w,R`&VFR5[RZBW|fHNRV@{Gk_R !RR;F\'C[RT^nd%,?RXw,k,p.R\pemj}WR`Q>xn=FRbu+i=+VRdUnTK}3Rd=Ekz:+RbLXi.@zR\nc>,R8 !RX'V-e(xRRpn*eM;RNU@j~L1RJ4(dOT\RF[7)R_cRBZ0\@=.R@C/BnF0R>&.&6MwR:Oa_[/r #% [ 59] xe_m1.phase !S@hE([%%SrqvMR%S[qzR%SC[\u-~~ !SG^{mMR%SKZIz)R%SOFa7u~~SS)g*H~~SUa}2zR%SY5cVQ~~S[\M%MR%S_&WU2R%SaCe0;R% #% [ 59] xe_m2.amp !Q%%%%%%%Q<0EMoqFQP~,2kwmQfC(sLHFQxwSbRz)R0)^97\,R0lJYDM2R2IYp~^[R2r}?eIER45RuGZ_ !R4C/{&uwR4C>|YpSR46OI_[AR2xu-tK`R2Zu&Y:;R2;|UdemR0}KkvRER0t,^NbxR2%i-qH>R2D8yz@Z !R4(FeYWIR4Zd1@eIR8KHXukWRDz0l_7bRN&DEy2vRRD4{U2RRTOPa_5`RTiWDrP?RTOe{kl*RRt9.lWe !RR/Az8fTRP:X<{];RN;e>`L{q.R<98&:N) !R:xykNcBR@bu)+(SRF|~L0t7RLgA6pvVRR.Vs28;RV0lzJuaRXNCUxUZua6Rg6VR%SYtK_zR%S]NK';R%Sa)VMzR%ScaspZ~~SgF[12R%Sk2}C2R%So%D~VR%Sqo8`qR%SuR,?-~~ !S}eEeDR%T-k;?F@%T/)[H^[%T/9,2V)RT/D01k7%T/OE]_zRT/ZbjL2RT/ea?ZVRT/p1TSm%T/yze(2R !T1)./Td%T11Ov=@%T191v12RT1@4@mv%T1FSq)R%T1L)'+@%T1PVe(2RT1SiiH~~T1U734hRT1TfR~.% !T1MvBWqRT1L/8hzRT1Q~.mv%T1[0*,_RT1eBZb_RT1otPSDRT1zsg>_RT3,BUo;RT38*reDRT3Z2rI%% !T3oeN8m%T5*ZM~VRT5>>Hyg2T5Ql)RINT5cQQpo_R%Sh2+/l~~Sf2I--~~SdB;-VR%Sbvd57%%SbS_R%S`]2~VR%S`3^s?~~S^b~b_R% !S^7?fd%%S\doSm%%S\7h^2R%SZd6%u~~SZ6.%%%%SXaEa@%%SX1r,_R%SV[U[%%%SV*Bx;R%STRH^[%% !SR-KWqR%SNbh%MR%SLBlvu~~SJ*l:2R%SFu,k_R%SDk88DR%SBc(g2R%S@Z@9;R%S>RF\DR%S8V%MQ~~ !S4j=X?~~S2(z~VR%R~bTWqR%Rb+_~VR%RDi.ahR%QX%V%MR%R7v[ahR%RQ7S4@%%Rgh\y2R% #% [ 59] xe_m3.amp !Q%%%%%%%Q<:w~d{=QR9/xO~FQfbWsyK\QzGL[hlgR0.sp\-JR0raZ[iqR2Pz9Vt'R2{LQ)kxR4?3yey3 !R4M|A2S]R4OR^Aj4R4D5wwZkRL6*%^VVRPNRxAQNRRW3ZvneRRqHOVS]RRYilMO4RR'zrDb>W31RFTf%_39RL;iA>uyHisjR_R%Sk9r}_R%So&XD)R%SqjE21[% !T1OxY*qRT1My;%MRT1Sn1*I%T1]'FL2RT1g9w(2RT1qh2nDRT1|`/P_RT3.']x;RT39iznDRT3[y:[%% !T3qFv=@%T5,Fp6VRT5@.K6:3T5SQ1[INT5eAT-B7s%=@T7PC_R%Sh2+/l~~Sf2I--~~SdB;-VR%Sbvd57%%SbS_R%S`]2~VR%S`3^s?~~S^b~b_R% !S^7?fd%%S\doSm%%S\7h^2R%SZd6%u~~SZ6.%%%%SXaEa@%%SX1r,_R%SV[U[%%%SV*Bx;R%STRH^[%% !SR-KWqR%SNbh%MR%SLBlvu~~SJ*l:2R%SFu,k_R%SDk88DR%SBc(g2R%S@Z@9;R%S>RF\DR%S8V%MQ~~ !S4j=X?~~S2(z~VR%R~bTWqR%Rb+_~VR%RDi.ahR%QX%V%MR%R7v[ahR%RQ7S4@%%Rgh\y2R% #% [ 59] xe_m4.amp !Q%%%%%%%QINee@R4,s93\BR4qI<60LR6Z}8/r2 !R8GbV%4eR:=/Zd6&Razy|vZRBN=7_I-RFp4V`&4RL}tnfSmRV'2N1~_R^~AtLYlRjbvBA}7 !S.lbGY~>R|ZqT:7ERfl@U:x3R`ThRHeuRV8Zj&u.RLAEH?ygRDWt;*9\R@4Ci}_RRk8+jfPRFKig5OVRLGkGSKlRPntE4ToRTS?(r9jRVD_KI/nRVX2ZKu&RV4An17T !RRUOtSReRN|r>;i`RL@LqUg+RHX(J{p4R<=d*GW|R:>o(zZ. #% [ 59] xe_m4.phase !S><-rqR%S:&Q)zR%S4lYC2R%S0Z;j?~~Rj&m%%%%R>8}7%%%R7PC2R%%Rc2Iu~~~S/=8@MR%S3I1{I%% !S7RiqR%%S;X;zQ~~S?VMzQ~~SCJ0;Q~~SG.%%%%%SIU6VQ~~SK][v%%%SM=T;R%%SMDnDQ~~SKl6-~~~ !SAz%MQ~~S;{uVR%%S9XhQ~~~S9]7MR%%S;QjhR%%S=hj?~~~SA:o;Q~~SCp6VR%%SGE,_R%%SI`U2R%% !SKcb_Q~~SMRY_R%%SO2vMR%%SOchAm%%SQ4HRMR%SQZ5?-~~SQy|\DR%SS6Tt7%%SS;Kx;R%SQyqb6~~ !SIsF+hR%SER)rI%%SENQ-~~~SEuIz)R%SGLnq)R%SI))R%%%SId_R%S~U7EI%%S~[tk_R%S~ckWI%%S~lnHVR%S~v}?-~~ !T.RB3H~~T.SQrqR%T.TlRMR%T.V0l.%%T.WRel~~T.Xt_Q~~T.Z8y2R%T.[Oxc~~T.\_^2R%T.]`iI%% !T._IQVR%T._3];R%T.\IiqR%T.ZYgZ~~T.\MIu~~T.^'WqR%T.^62)R%T.]?zzR%T.[SXhR%T.Y0Sm%% !T.VF`I%%T.SJXhR%S~nHVQ~~S~Ojxc~~S~1bcVR%S|nIEI%%S|Qq^2R%S|6'Sl~~SztM=hR%SzXzAm%% !Sxl'x;R%SvyjH.%%Sv)R%%%%St4,2zR%SrDF;zR%Sp[Y_Q~~SnvB3H~~Sn6)V)R%SlMRmu~~ShE.=@%% !Sf37~.%%Sb{30d%%S`qf_zR%S^r]_zR%S\riI%%%SZz*@v%%SZ.3Y6~~SX:[IMR%SVMIQVR% #% [ 59] xe_m5.amp !Q%%%%%%%Q>KPU@FJQVZX)U,HQn?RV-ZP,]tRL3\(mVJRDHS+=3qR>~L/kk_R7R<*vY%vnR:5,_ZGSR6},qqwrFm<>tRFVOk-KBRLTpG6&+RP|X3@fcRTa):w^hRVSL.8vTRVh_'J[zRV@hdBsW !RR_ZArV%RP+\f\VBRLDS;*X:RH?r-KCLRDtv-YFmRB)hhn,MR>W'JXZ_R<;J(2*^R:;Scy}' #% [ 59] xe_m5.phase !S;)R%S0*&XhR%R^~%u~~~R4[qzR%%R?\y2Q~~Ri`@u~~~S/WUVzR%S3^7EH~~ !S7bWI%%%S;c6-~~~S?]h)Q~~SCOH-~~~SG1_)R%%SIXL2R%%SKa;zR%%SMA}7%%%SMK?VQ~~SKu.%%%% !SC/m%%%%S=0t7%%%S9fSm%%%S9iDzR%%S;\dv%%%S=ruVQ~~SADV)R%%SCywDQ~~SGO7v%%%SIj;zQ~~ !SKm%%%%%SM[--~~~SO:[%%%%SOk(Jm%%SQ;b[MR%SQaOH-~~SS'gZ~~Se^dem%%Sgooh)R%Sk/}[MR% #% [ 59] xe_m5.caps !S~E|pZ~~S~FYSDR%S~HIUZ~~S~KLwDR%S~Og>_R%S~U7EI%%S~[tk_R%S~ckWI%%S~lnHVR%S~v}?-~~ !T.RB3H~~T.SQrqR%T.TlRMR%T.V0l.%%T.WRel~~T.Xt_Q~~T.Z8y2R%T.[Oxc~~T.\_^2R%T.]`iI%% !T._IQVR%T._3];R%T.\IiqR%T.ZYgZ~~T.\MIu~~T.^'WqR%T.^62)R%T.]?zzR%T.[SXhR%T.Y0Sm%% !T.VF`I%%T.SJXhR%S~nHVQ~~S~Ojxc~~S~1bcVR%S|nIEI%%S|Qq^2R%S|6'Sl~~SztM=hR%SzXzAm%% !Sxl'x;R%SvyjH.%%Sv)R%%%%St4,2zR%SrDF;zR%Sp[Y_Q~~SnvB3H~~Sn6)V)R%SlMRmu~~ShE.=@%% !Sf37~.%%Sb{30d%%S`qf_zR%S^r]_zR%S\riI%%%SZz*@v%%SZ.3Y6~~SX:[IMR%SVMIQVR% ifeffit-1.2.11d/src/fefftab/13.dat0000755000175000017500000001114110771740460015460 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] al.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] al_k.amp !Q%%%%%%%QzVrR0ieTUKR@&js^FiRB5&R&8Rny_Cg{IRl00MoE]Rh@T(32BRdRaHNL_R`eIE5AUR\tr)W&}RZ/\D}%~RVL@n;e( !RNgH;8fTRHunE'xrRD\iux55R@Vpnt}lR7%%%S]F/m%%%S_q,C2R%ScBy*H~~Seo^Bd%%SiAc>6~~Skir@u~~So1*H~~~SqGjL2R%SsRy_)R% !Sy>Jq)R%S{Os'c~~S}tZ:2R%T-^a3([%T-k{M)R%T-xAU.MRT/)lu>7%T/4F:Bd%T/>:3@v%T/GD>WI% !T/OjmiqRT/W`aR9;T/_.fy*IT/f2&Cc.T/lri/P_T/sI^sdNT/yt/|?6.%%S>V1Z~~~S>-S`qR%S<\6~~SIqNiH~~ #% [ 59] al.rep !S4\Cc-~~S4]OhR%%S4`wXhR%S4f]Sm%%S4nWy[%%S4x[v%%%S6*ehzR%S68n8DR%S6Hm~.%%S6Z]l-~~ !S6n2b6~~S8)F`I%%S8@8L[%%S8X^FhR%S8r^NqR%S:4;)R%S<6po;R%Sv-RMR%S@S1*I%%SB/EeDR%SBj)Am%%SDMPk_R%SF3A@MR%SFu?%v%%SH_,gZ~~SJJR=@%%SL7CFhR% !SN%D5_R%SNnIiqR%SP^I56~~SRO07MR%ST@U6VR%SV2VrH~~SX%*_R%TFV9?VR%TBvtk_R%T@Pz9d%%T>?)zQ~~T_R%S~Db6~~~T.]Ju.%% !T00ny2R%T0a5*qR%T2:Bc~~~T2p+\DR%T4NF3qR%T6/-JDR%T6l4+hR%T8QRqzR%T:9,.u~~T>Vh=hR% !TB8wy2R%TD}/@MR%THo03H~~TLhh=hR%TPio+?~~TTr2Al~~TZ'^g2R%T^>.--~~Tb[Pg[%% #% [ 59] al_l1.amp !Q%%%%%%%QVKBFwuR@NM;lm~RB^N=&,7RF1.A8OLRHz.zp84RL|??iBx !Rh(W0UJmR~Zg?BFLS.zNe*zFS01|bis0S05gk*GzS0.U2iBTS.{;_4qRp+<\^o;Rl8T9DnDRhEt\`qRRdWzA,/eR`j[[lb`R\yzsp'|RZ4[H/8ERVQ2q:'3 !RNioIVnDRHxPg^10RD^i^.9NR@XTu10HR|vQDxI:*c;QR7T\U9H #% [ 59] al_l1.phase !S5}dEH~~S;5NuVR%S?=ol-~~SC=%=@%%SG3@QVR%SI{;)RT38DG*qRT3AxkcVRT3\LLJm% !T3kv-vv%T3|m34hRT5-M*eDRT5=AURv%T5H,h%MRT5Q)&`qRT5];}g[%T5XUdem%T5dCrQ.% #% [ 59] al_l1.caps !SFIGoc~~SFH)V)R%SFD(c.%%SF=E|,{qR%S>UyFhR%S>-E,_R%S<\.9;R% !S8s,WI%%S8S7z)R%S89%]c~~S6hEM)R%S66V-VR%S4\dQVR%S4(?rqR%S2NUVzR%S0uaL2R%S0D@56~~ !S.nS,7%%R|%Y_Q~~Rp|wP_R%Rh(aP7%%R^1l%v%%RT<>O?~~RJEf3H~~R@LjlVR%R6R%IMR%QlOyRv%% !R5bfl-~~RM=T;R%%Rakt{qR%Ru5c2)R%S-tNuVR%S/elZVR%S1W)%MR%S3GAy2R%S54(.MR%S98wTc~~ !S;R6~~SIqNiH~~ ifeffit-1.2.11d/src/fefftab/80.dat0000755000175000017500000003577010771740460015502 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] hg.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] hg_k.amp !Q%%%%%%%RDebpyv1RbzfmvxpS.T427YgS0nhGjr*S2zU`yKcS4uW'E'@S6^iW]>JS86*&rM)C5Rz&LOdRTKdyh3]RV*gdxhrRV8w^RMvRTKI/Xu_R%S/*];R%%S/b.v%%%S1?t*qR%S1x4\DR%S3V~VR%% !S73`Q.%%S9k}shR%S=HTt6~~S?yjH-~~SCI=dMR%SEjSLZ~~SI+A\m%%SKBa|hR%SMXgc-~~SU2=D)R% !SY=]|?~~S]?LFhR%Sa:WDzR%Se(+\DR%Sgfwq)R%SkH,G6~~Smz`4hR%SqM/XhR%SswKl.%% #% [ 59] hg.rep !S:t%Y_R%S:t\_R%S:yS@MR%S:}j'c~~S<)AHVR%S<0(NqR%S<8*4hR%S(nq)R%S>9oh)R%S>L<8l~~S>`&}6~~S>u:{H~~S@1ps?~~S@Iy_)R% !SBAY{qR%SD+Ywm%%SDllF@%%SFDEqR%%SFx[v%%%SHUfh)R%SJ53DzR%SJpr,_R%SLT`DzR%SN:M9c~~ !SN{|p[%%SPe,[MR%SRO[z)R%ST;H>7%%SV(@ahR%SVp:6VR%SX_&pRu~~S^/f/DR% !Sb95K;R%SfE6F?~~SjS2=hR%Snb[))R%Srs9Sm%%Sx*h5_R%S|=(.MR%T.V?F?~~T.j8dv%%T0L:[%%% !T0tFlVR%T2BZ>7%%T2jqIu~~T4925_R%T4aP[MR%T6/o';R%T6X7-.%%T8&Y2zR%T8N~rqR% #% [ 59] hg.lambda !Rh0c6-~~Rh2VrI%%Rh8.9;R%RhAFxc~~RhN?b_R%Rh^nq)R%RhrzIv%%Rj0Sl~~~RjKU&DR%RjiviqR% !Rl1WiI%%RlVJdv%%Rl~HB;R%RnOL{H~~Rn}Mb7%%RpTN0d%%Rr.J`qR%RreFxc~~RtEJ8DR%Rv(jH.%% !RzD8,6~~R~>qAm%%R|VaH.%%R|w'h)R%R~]G_R%%S.Wa@%%%S.bT3H~~S.np:Z~~S.|Ea@%%S00v9;R% !S0@B|@%%S0PT|?~~S0aG?-~~S0rl^Z~~S2*gFhR%S2=07MR%S2OwP_R%S2c'x;R%S2vS4?~~S40=xc~~ !S4bgZ~~~S6S*Y7%%SBI3Y7%% !SDac^[%%SF{(Z~~~SJ:zZ-~~SLUK[v%%SNpDf;R%SR1b?.%%STMC&DR%SVi@u~~~SZ+X?~~~ #% [ 59] hg_l1.amp !Q%%%%%%%QR`0^NEiQ~wHq}QgR2^UXb1gR6ae4:40R:Y28:)ZR>B]R,nQR@xiH%B|RDDfc]ohRF]/^G2{ !RHhX|gjHRJe6lub`RLTP}u7fRN7|>qPGRNhY\O@ !RNF0/1V2RL[y^lU?RX70~y_rR`6is`>+RheS+OH.Rpkn@Ap;RvP,)bT3Rx5JS&F0RtrYs>z:Rne[9i*] !RfMXt_R%R\Wh-MGtRRXC[(&R:Zib)lgR6glN\AaR6KEp[M.R8H{3Z}GR<+kgZ~~ !RDi2,OvbRL%=})pGRLvT83>tRL*tF\2>RH]s5f]TRFB?WSqrRD?Q&<%>RBceQS;ARBmbGiCFRHm*-cO1 !RN&mk:T/RPRZnr\7RR>35o-BRRKCX6I1RPmV;C/.RN|86|X@RL\fDd8TRJ6H9LxnRH+t3sul #% [ 59] hg_l1.phase !S/c[iqR%S3w/(2R%S9*o+@%%S=2`Y6~~SA4dqzR%SE0p{H~~SI'9OhR%SKqk.u~~SO\QrqR%SSA@MR%% !SUz38l~~SYS&Tc~~S]%^Ru~~S_K}SDR%SakfG_R%Se*Y[MR%Sg.0h)RT/SIiqR%T/jRRiqRT/~V)vMRT13tJL[% !T1MR[ahRT1_9?VR%T1m[~vv%T1y^WiI%T3)IgJm%T31>BC[%T37>2V)RT3;P1Bd%T3>zt&m%T3Q}`eDR !T3b+n}7%T3tIw8DRT5-S]7MRT5?w5SDRT5S67ADRT5e7QzzRT5wtyJm%T7/>.-.%T7>f@EI% #% [ 59] hg_l1.caps !S}RUZ~~R2RVIu~~PEc2)Q~~R1|l2)R% !R?q2%MR%RMf*uVR%R[X2^2R%RiFDMzR%Rw00|@%%S-kOdMR%S/MMzR%%S1//(2R%S1jWuVR%S3K}.u~~ !S7,QB;R%S9f/DR%%S=Bk?.%%S?t.-.%%SCD8,7%%SEfdmu~~SI)%qzR%SKAR=@%%SMX&,7%%SU11>_R% !SY=9Sm%%S]?E,_R%Sa::6VR%Se'w(2R%Sgg%12R%SkG{M)R%Smz\Tc~~SqM:Ru~~SswKl.%% #% [ 59] hg_l2.amp !Q%%%%%%%Q:lSm>2VQNz'c1fDQ`ubHA[5Qp0PCl-6QzF]l?rMR.UXMF5'R.]TpmcUR.S_{P_5QzAMI_(? !Qr76)BF(QhL;PAF0Q^n5;`4hQXO,K(vzQVQ(^(FiQZ8%xN\MQ`m05G[NQj'r1.MRQpyhNMcoQvwL.X+D !Qx4+;joHQrtV=a7vR.g'`R?4R4SQ/)j@RR@*~/=MjR:iwjo]TR8%&MWhZR4}b?1_*R4s,%'DJR6Vp.cF@ !RKMyQ1F=R>.6u.THR>I%Bxz6RDzUbpaP !RJQxR5D0RN?pL4agRP@Z}|)fRPg=:@F)RPCcD3U{RNe8)7WVRLh'Z=Y:RJWE5DjaRH0[O1}p #% [ 59] hg_l2.phase !S;qqZ-~~SA+i@u~~SE:>;)R%SID0/DR% !SeB(*I%%SiR<,_R%Smw&0;R%Ss]9OhR%SyTyNqR%T-T\.9;RT-ikC{I%T-{,0/DRT//?S`qRT/:|g>_R !T/P,Rz)RT/JE.ahRT/3+{U2RT/*beXhRT/-s8@MRT/5?Cs@%T/=xny2RT/Ft%57%T/Oz/XhRT/Y-T+@% !T/bFZB;RT/kfzb7%T/uFoG_RT1%X^FhRT10mH^[%T1=]I=@%T1LkEY7%T1^@6%v%T1pa6b_RT3'*BSm% !T3C/YWI%T3T184@%T3`R'p2RT3i{RADRT3q%g&DRT3v)v))RT3y:'|@%T3zS>v~.T3zuz`}_T5,B>0x; !T58hkV~WT5GXnXhRT5W7K+@%T5fFp[%%T5v`QRMRT7+`|'d%T7;_>WI%T7KY9Kd%T7Z-{DzR #% [ 59] hg_l2.caps !SZ{:&DR%SZzs7u~~SZynLZ~~SZx(*I%%SZuT+@%%SZr>O@%%SZn=\DR%SZiU2R%%SZcz1[%%SZ]RY_R% !SZV4p[%%SZMs\DR%SZDO|hR%SZ9z=hR%SZ./y2R%SXzpFhR%SXk|`I%%SX[BWqR%SXHcrqR%SX3tC2R% !SV?^6VR%STG4|hR%SRlM5_R%SR_X+hR%SRLcRMR%SR/J4@%%SPd'p2R%SP8Bt7%%SNajT;R%SN-X/m%% !SLPqf;R%SJrSTc~~SJ9FL2R%SHYyo;R%SFzeLZ~~SFB5&m%%SDd\,7%%SD.-vu~~SBRpg2R%S@xe\m%% !S>TLRu~~S<3^s?~~S8m\P_R%S6Ms\DR%S40HrqR%S0qz-VR%S.`&4?~~Rl6&dv%%RV5hnDR%R3rBx;R% !R[CJHVR%S-U(FhR%S1>Uk7%%S3wm%%%%S7LB?VR%S9xYO?~~S=DmU[%%S?c;j@%%SC&T?VR% #% [ 59] hg_l3.amp !Q%%%%%%%Q8z+laL2QL>IZWsyQ\Q,,mw]Qj+fN8eeQrkXTmL?QxHu>h7bQz%>~8F0Qvj5o,Z_QpyvBDu_ !Qj.I\`bxQ`|%4Vb7QZS+Uj5tQV|Rmjd)QZ,vVF;{Q`S5&2b7Qj3jWAl6Qr|BwL[%Q|4+q.6oR.]HOj&c !R.]F+*1+QzJ*=QnmR.]jm=qyR4'7a5O@R<=(+U*IRDeUwb'7RLQ=CfC[RR,)2SggRT@A?+7RRT94o@EI !RR,Ac>7%RN6E`PFHRHn=O9SmRDelU/dRR:O42\c>R6fR`lP'R4dIegTxR4V3uG66R64g~pNM !RX4kjp|RK; !T5=jih~WT5LHXT;RT5[ytwm%T5k::[%%T5{Aa;zRT70>Qfd%T7@KHNI%T7P3/,7%T7^^6zzR #% [ 59] hg_l3.caps !SZ{:&DR%SZzs7u~~SZynLZ~~SZx(*I%%SZuT+@%%SZr>O@%%SZn=\DR%SZiU2R%%SZcz1[%%SZ]RY_R% !SZV4p[%%SZMs\DR%SZDO|hR%SZ9z=hR%SZ./y2R%SXzpFhR%SXk|`I%%SX[BWqR%SXHcrqR%SX3tC2R% !SV?^6VR%STG4|hR%SRlM5_R%SR_X+hR%SRLcRMR%SR/J4@%%SPd'p2R%SP8Bt7%%SNajT;R%SN-X/m%% !SLPqf;R%SJrSTc~~SJ9FL2R%SHYyo;R%SFzeLZ~~SFB5&m%%SDd\,7%%SD.-vu~~SBRpg2R%S@xe\m%% !S>TLRu~~S<3^s?~~S8m\P_R%S6Ms\DR%S40HrqR%S0qz-VR%S.`&4?~~Rl6&dv%%RV5hnDR%R3rBx;R% !R[CJHVR%S-U(FhR%S1>Uk7%%S3wm%%%%S7LB?VR%S9xYO?~~S=DmU[%%S?c;j@%%SC&T?VR% #% [ 59] hg_m1.amp !Q%%%%%%%Q>:n^U%VQVJ%j'UKQnL@mdRER.oD^&p;R0}TO|w,R4/k2[SYR69GEV>WR8@,Ap(GR:CdQ|If !RDxdh+0R@@1yHXTRB8KB22%RD-U(^,'RDweB6{iRFcwO8.9RHKoni/,RJ,-:VzRRJa\d.6J !RL~ncnAr4D*Rp1G=3([Rh]@Fr8m !R`A]5Il>RVZJ4'8G(Jm%T5Qcd=@%T5cl?%v%T5vW&XhRT7.'OD)RT7=Z[iqR #% [ 59] hg_m1.caps !S6~~RnC4T;R%Rd`UVzR%RZALZ~~~RNEh5_R%RB(^_)R%R4L1c.%%Q2H@9;R%R1>-b_R% !R?;6rqR%RM7j`H~~R[0]/DR%Rg~jhQ~~RumvIMR%S-i0?VR%S/KR~-~~S1-Tt7%%S1i@v%%%S3K%]c~~ !S7+x?VR%S9ehV)R%S=BN0c~~S?sg>_R%SCCtwm%%SEfNy[%%SI(twl~~SKAUwDR%SMX-F?~~SU11>_R% !SY==3qR%S]?LFhR%Sa::6VR%Se'zb7%%Sgg(k7%%SkH%-.%%Smz`4hR%SqM>2zR%SswOL2R% #% [ 59] hg_m2.amp !Q%%%%%%%Q.R_Cj2:Q6^/sp^_Q>(IH%gKQBL[\2HcQD^IEGUkQDVm-87VQB4)z`Y7Q<`v?^b?Q6R8^:iY !Q2A0?RqzQ6D2V+bpQ@c9Ts{1QN;qe(2RQ\9R'DIvQj9[>,e4Qvv|pGbCR.d7rpc.R09gUl;jR0^c'<.b !R2(p7S}7R0b^HQ:3R0`lLFhRR2C_,06_R8&P&7)rR>`g}^x|RF'EDbLsRJL_jQ0pRL^>2`}`RL`nPFe< !RJio}7>SRH3hvA.^RD0dLzKTR>vw^}odR:c[4~jhR6bu~+3qR4+gRcjiR2+b`NhZR0qsS-;jR2GwAptx !R89GRZd=RjfIIcFR>QgO)Y1R_R%SQDalVR%SQmQzzR% !SONu2)R%SKG4X?~~SK3nTia@%%S<3imMR%S8m`0c~~S6Ms\DR%S40HrqR%S0r'G_R%S.`)nDR%Rl5}*qR%RV5=+hR%R3rcfd%% !R[C\\l~~S-U,&m%%S1>Uk7%%S3wm%%%%S7LEyZ~~S9xYO?~~S=DmU[%%S?c?JDR%SC&Wy[%% #% [ 59] hg_m3.amp !Q%%%%%%%Pz8gVQA(Q6)UYRriQ<0ZK.?gQ@4>L)@ZQ@{h~VR%Q@K*&u5?Q'FlZR08)G&OqR0j*trU3R279Hp`a !R2ap+;V)R2D;8B+@R2QJDR%%R4%d4vi)R8ByMNpcR>gkX[\uRD|\SFL{RJ@tPu\4RLMoNtQgRLM0Luu> !RJT-k`2BRFw&7\3QRBt&i_6NR>`y1M9dR:NQj1o;R6N7T}Z_R2p/yh,CR0lwCm@VR0T-]SAR<.-^)vJ?AMRn>G|7%%S9|9Sl~~S?-w@MR%SC26)zR%SG.B3H~~SI{VEqR%SMcljhR%SQ;(>_R%SSIM-VR%SS4dqzR% !SIlf?VR%SGglJDR%SIRxKc~~SK]T[u~~SMny2Q~~SQ&1NqR%SS3;^2R%SU;-V<0d !T/JPTia@%%S<3imMR%S8m`0c~~S6Ms\DR%S40HrqR%S0r'G_R%S.`)nDR%Rl5}*qR%RV5=+hR%R3rcfd%% !R[C\\l~~S-U,&m%%S1>Uk7%%S3wm%%%%S7LEyZ~~S9xYO?~~S=DmU[%%S?c?JDR%SC&Wy[%% #% [ 59] hg_m4.amp !Q%%%%%%%Q>vVQd'LQX`-zl_JQr.Ub8USR0&Cj:}'R23`Q|ftR4;?vq]DR6=H%lttR880?(7jR:,k0/DR !R:tRRr{]R<\L}C9lR>r:v4lWR@ICt|4`R@tN\z3]RBBj&1@=RBho-X/mRD06UPshRDNVl3@R !RDu/;P]+RBfdcVCKRJHg:2U_RNoJvg]'RNhd\ACcRJ[T%-YhRDW7AFbpR@6pml>7R>dOF59LR@ad0)E) !RBv1qCYGRD[P*(:7RDUhz~O8RBlG3^NqR@QR}l`]RQRJwzGeNVRJ+,:Q:6RFh\%heM #% [ 59] hg_m4.phase !S1si@u~~S7-vv%%%S;<'G_R%S?D~zzR%SCHK3H~~SGF.-.%%SO/zEqR%SQuHfc~~SUZm~.%% !SY8|lVR%S[iu2)R%S_92Z-~~SaZA(2R%Scr/P_R%Sg&[Y_R%Si*W}_R%Si~I12R%SkmdY_R%SmR34hR% !SotFH-~~Sq7Tl.%%Ss>c2)R%SsejX?~~Sswa`I%%Sunu.%T1/DvMR%T18`3U2RT1Ap/`qRT1L\kG7%T1VO;1[%T1aKYO@%T1mA'C[%T1xbvY_R #% [ 59] hg_m4.caps !SrfwL[%%SrfKc~~~Sre-JDR%Srbo?VR%Sr_]CZ~~Sr[U6VR%SrVVrI%%SrPbC2R%SrIw\m%%SrB@EH~~ !Sr9pVzR%Sr0T7MR%Sr&E@v%%SpuGSDR%Spi^NqR%Sp],SDR%SpOe`qR%SpAUwDR%Sp2WO@%%Sjikoc~~ !SjU4T;R%Sj=E4|hR%Sfuw@MR%SfR:*I%%Sf-kWH~~Sdc)V)R%Sd>WH~~~ !Sb@OT;R%S`H1:[%%S^S3Q-~~S\]?VR%%SZdKt7%%SXikoc~~SVpb?-~~ST|2^2R%ST2iuVR%SNnc>7%% !SLACc.%%SH|3qQ~~SFa:g2R%SDIZrqR%SB=&,6~~S@2Q6.%%S>)KSl~~S<(V1Z~~S:(=L2R% #% [ 59] hg_m5.amp !Q%%%%%%%QF&tSLSeQdo7]UJmR.epo3P?R26s'i.=R4Z]O{MrR6uvZZ*iR:.HJSM%R<5E1'u&R>1w68({ !R>|O>La,R@b%o9W)RB:hKD6z2R@l.4[)r !RD'_,k|`RDe=-%0hRD\a30\eRBpT_[tGR@Rv|q%NRR<+]C=}fR:zJF>G7R:6=N)F~R8LZ%pugR6wvm|PyR6h]C-+XR89h{{m?R@HdRLsvS6x7RL8'@e5[RJA;OV].RF}j}FnG #% [ 59] hg_m5.phase !S5aDrI%%S9u.%%%%S?)8P_R%SC1k[MR%SG4Hvu~~SK1K7MR%SO'_1Z~~SQqO3qR%SUZPoc~~SY<<([%% !S[o{uVR%S_A7z)R%SacYgZ~~Sc|_5_R%Sg1Ug2R%Si6A(2R%Sk025_R%Sky)5_R%Sm]&(2R%So6xx;R% !Sq@Lc-~~SqTc6.%%SsWm))R%Ss{:Jl~~Su2g*I%%SuSJXhR%SwIPg[%%Sy~yBc~~S}|BKd%%T-`tv57% !T-l&w0;RT-t:/`qRT-zgRQVRT/&Akk_RT/+U<];RT/0o?zzRT/6rj7v%T/>2s7v%T/GC62)RT/R=dMR% !T/m.SXhRT/~Bg:[%T1.U=p[%T141&DR%T15k%57%T14PEY7%T11J+H.%T1,V@Y_RT1&tg6VRT/}ZHfd% !T1(v\u.%T11-^Z~~T1:A[Y_RT1Cv&8DRT1N_'t7%T1XMqZ.%T1cj~F@%T1oN7~.%T1zsg>_R #% [ 59] hg_m5.caps !SrfwL[%%SrfKc~~~Sre-JDR%Srbo?VR%Sr_]CZ~~Sr[U6VR%SrVVrI%%SrPbC2R%SrIw\m%%SrB@EH~~ !Sr9pVzR%Sr0T7MR%Sr&E@v%%SpuGSDR%Spi^NqR%Sp],SDR%SpOe`qR%SpAUwDR%Sp2WO@%%Sjikoc~~ !SjU4T;R%Sj=E4|hR%Sfuw@MR%SfR:*I%%Sf-kWH~~Sdc)V)R%Sd>WH~~~ !Sb@OT;R%S`H1:[%%S^S3Q-~~S\]?VR%%SZdKt7%%SXikoc~~SVpb?-~~ST|2^2R%ST2iuVR%SNnc>7%% !SLACc.%%SH|3qQ~~SFa:g2R%SDIZrqR%SB=&,6~~S@2Q6.%%S>)KSl~~S<(V1Z~~S:(=L2R% ifeffit-1.2.11d/src/fefftab/36.dat0000755000175000017500000003002610771740460015470 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] kr.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] kr_k.amp !Q%%%%%%%Q\o06[bWR0R1F%+,R6-K}>X\R:Qzk~EQR>awQ)YdRBXL[1i5RF4F6;>WRHJ\-1WiRJ@4Txg; !RJnmI~dbRJy|X)I-RJa?HY88RJ&UM}0xRF~{tw^KRD]t7f[vR@{Kj;*AR>*>6%B|R8~ZLYdER4sY48zj !Qd{(F9/ER.^_I5I{R4uWb1nMR<'*ODU;R@%@s^0tR@TW+SL[R>j}mP}OR<6VMP8]R8K}hQ6.R6<^ccz2 !R6N(qZvvR:&/zxSIR>CqE5e}RByk`5{qRHW~PfzbRN.fI@z*RRO4kmlcRVY,kfl.RZL;}/.9R\~17bWI !RbRdrpB@RdT<@|WQRdfH;Sd-RdV54S@XRbzx7Q_}R`of>qzaR^AAf&ahRZggz6JHRX>,2@E[RNL?(H-S !RH\Wzky~RD/AgXK5R>a4&01?R<8vG<=8R8K49*|qR6:{F{zCR483zUxXR0xa'yiNR0iHF;7%%SeUi4hR%SgqcJDR%Sk.:s@%%Sm?jD)R%SoMu^Z~~SqZT+?~~Ssh[em%%Su~5cVR% !T-i?:VzRT/<*K';RT/W@J{qRT/[bLNqRT/`tN,_RT/gG/@MRT/nXN}_RT/v-dahRT/}bJL[%T1+4gc.% !T1<}n,7%T1MN@Xp[T1\xO~F@T1kmKt7%T1z8fPSiT3.0)eq*T3;SG?RMT3HI`4D)T3To_`}`T3w<30d% !T53?(Bd%T5G}]t7%T5[z}C2RT5o,2V)RT7'[gJm%T79@|+hRT7I^~^[%T7Y+gc.%T7bF~jhR #% [ 59] kr_k.caps !SVWy6VR%SVVLBd%%SVQv-.%%SVJIiqR%SV@(_)R%SV2w`qR%ST}0/DR%STjurqR%STV>WI%%ST?T+?~~ !ST&gBd%%SRf,wl~~SRIcjhR%SR+_5_R%SPf-fc~~SPE-)zR%SN|]3I%%SNXn}7%%SN3WY7%%SLft[MR% !SJB/hzR%SH1Lo;R%SFR)rH~~SF2Co;R%SDekk_R%SD9t[MR%SBdN@u~~SB3%iqR%S@ZK3H~~S@'+@%%% !S>Lg{I%%S='d%%% !S@Fgc-~~SB=;zQ~~SBytSDR%SDTunm%%SF4[z)R%SFpsdMR%SHUEy[%%SJ;tK;R%SJ~8y2R%SLh1Z~~~ !SNSOpZ~~SP@'Kc~~SR-aL2R%SRv>wl~~STehzQ~~SVUzZ.%%SXFlVR%%SZ87UZ~~S\*.=?~~S\vPg[%% !Sb)'+?~~Sf7REH~~SjGEY6~~SnXDrH~~Srj:Bc~~Sv|j/m%%S|5ry[%%T.U_)Q~~T.i_b6~~T0KlRMR% !T0s|D)R%T2B9OhR%T2jT;R%%T48ra?~~T4a7-.%%T6/Y2zR%T6W{8m%%T8&Fxc~~T8Nl^[%% #% [ 59] kr.lambda !St)O3qR%St-tO?~~St:{mMR%StP'7MR%Stl80;R%Sv46>6~~SvZ@9;R%Sx(ey2R%SxQCs?~~Sxw}7%%% !Sz@X'd%%Sz],.u~~Szqq~VR%Sz}bC2R%S|%oSm%%Szx?VQ~~SzguB;R%SzP/du~~Sz3>O@%%SxnR=@%% !Sx0Y*qR%Sh)6rqR%SX4X@%%%SRp`X_Z.%%T@\fx;R%TBb{M)R%TDk4X@%%TFuB_zR% #% [ 59] kr_l1.amp !Q%%%%%%%Qf9&oZ>7R2ES6/`MR8C;+KR5R>,HYF*zRBUP4BKdRF^g\kG7RJE9vsX@RLaBEs/mRNWA&y2R !RP&7,jp[RP'nMIv%RN\myWiIRLnR@HQXw:kRxyrU.rR@3ViXH.R>:*:&e@R:Rnn9mfR6[lskC3R4E{%`gG !R4cOL:SeR8Vcg8`)R>3b1nL[RD%p0`2fRHn`Z|_ZRNQ\Y(g{RR}r:vU[RX2]MLg3R\)^F(DBR^].GA({ !Rd1*tg[%Rf*G,{([Rf:Rndv%Rf&rAjF,RdHVWN-5Rb99.Y;)R^`WaR?nR\)2P;NbRXV.OukWRN\-WaqX !RHhri]dBRD8M+7neR>hBe/@yR<>L?X|DR8O`&Xu]R6>91=@rR4:~S\w8R0z6Jy'7R0jW2{bL #% [ 59] kr_l1.phase !S;{qvMR%SA4hR%%%SE@H^Z~~SIDs\DR%SMBmahRT/}'fp2RT1*^]Kd% !T1}{)T3.79}.vT3;Zgz~WT3HQ3znDT3Tw3MMzT3wG->7% !T53I|P7%T5H5r0d%T5\37Y_RT5oB&q)RT7'q:wDRT79VpFhRT7Ix25_RT7YA[~.%T7bUX|hR #% [ 59] kr_l1.caps !SVN<([%%SVLi4hR%SVHCs@%%SVA)j?~~SV6xSm%%SV*-)zR%STt`@v%%STbi8m%%STNVEqR%ST86B;R% !SRyn(2R%SR_X+hR%SRCUg2R%SR%uZVR%SP`a@%%%SP@'Kc~~SNwtcVR%SNTF'c~~SN/Kl.%%SLc(Bc~~ !SJ?,G7%%SH._Am%%SFOC_)R%SF/sP6~~SDcP&m%%SD7gJl~~SBbL*H~~SB15gZ~~S@XieDR%S@%\,7%% !S>KX;zR%SZ{DzR% !R@66%ESyR@WtUM@~R@e,bx%9R@^CajL{R@BCF9/DR>lld(txR>*:M-aLR<1JK4c_R:,VYVlBR6{M6syw !R2,zB):.R20.Y'F(R4USRahRR6z'aeklR8p%&EOPR8fnB\sPR6_@f]E9R2p91,sDR.W'h;v`QN?~=bC{ !Q4GO[`u{QhXMghErR2'TQOjyR6_kB8`qR<6_%,cVR@\kIh^2RDx8_o_2RJ&n+{0dRLwSoZ_%RPXhUl4P !RV`'a^QcRZFUl,NQR\=.Zi9MR\bPe?3ZR\[m/'r~RZ|fD]z>RXweX+Z?RVhA{Y7%RT\L8wIIRLR8-&jg !RF~pw6AuRBgNgPq7R>J-m~4WR<'9kz?UR8@i}SvmR64IW\tdR4A}T3I%R25?aGqIR0]9DMV* #% [ 59] kr_l2.phase !S/w-%v%%S5/o';R%S9:}K;R%S=>I]d%%SA9qj@%%SE-(Bc~~SGqVrI%%SKRw\l~~SO*q-VR%SQRu6.%% !SSpuB;R%SW*mqzR%SY4q%MR%S[5_-VR%S]..ADR%S]y^:[%%S_f25_R%SaP'7MR%Sc:@ahR%Se(iY7%% !Sk7^Rv%%Sob{(Z~~Su1m9;R%Swz,g[%%S{3/,7%%S}(I~-~~S}hmUZ~~T-USGg[%T-[U'|@%T-dH6RMR !T/t[XL2RT1/d\P_RT17XOlVRT1>MiQ.%T1E7h9d%T1Kp_cnmT1RI1lnmT1XnRw\mT1_)\y2RT1e+@M-W !T1s*RZrrT3%]):p*T311NB/DT3;zdzrIT3FDh6NIT3PC*/P`T3Yz^2R%T3c?v-.%T3lDx+@%T5+Z0';R !T5;o(NqRT5KDu^[%T5ZY)^2RT5i%iqR%T5wDo3I%T7+.`y[%T78/mIMRT7G/w0;RT7QnW0d% #% [ 59] kr_l2.caps !SDx0|@%%SDw/q)R%SDt(o;R%SDn}7%%%SDguB;R%SD^rQ-~~SDS{}_R%SDG7mv%%SD8dv%%%SD(Rv%%% !SBp_MzR%SB]7qzR%SBH9h)R%SB1hj?~~S@sjxd%%S@ZCs?~~S@?MZ.%%S>}.--~~S>_;f;R%S>?vQVR% !S<1)Z.%%S:0X`H~~S8\bshR%S8C?NI%%S6~K|?~~S6]@EI%%S6;>WH~~S4s&u-~~S4Pi8l~~S4.)MzR% !S2d3}_R%S2>R12R%S0pfh)R%S0G*([%%S.um57%%R~(Q>6~~Rr~u>6~~Rhu\}7%%R^j3qQ~~RT`)%MR% !R<4Bp2R%Q/nh1Z~~R;PpwDR%ROh>WH~~RcbT3I%%RwO6b_R%S/.=?~~~S1&IEH~~S1s6>6~~S74~jhR% !S9]fp2R%S;{%EI%%S?6CNqR%SAGk_R%%SCOOH.%%SEQ_Iu~~SGQ=lVR%SII;=hR%SK>]SxIlc !R@8i&pm^R@ZFIzXuR@gIkRz*R@`N@klNR@D3kXg?R>n?(BC7R>+D\W};R<2.@2[fR:,qi3y[R6{EIRW] !R2+b=(.MR2.+Y[F8R4RV]5G[R6vVp4T;R8lBC`otR8cRe~Q_R6\hrmn@R2nk8+ZBR.V~,u@pQNP7fv1{ !Q4@>t,H&Qh4;)OMFR0|BF~nIR6Y3YfG`R<.cdVnDR@Sic|7RRDnJ7v`,cR<'6K<(PR8@HG9UwR64ZGXMjR4A[oCHkR24mnt7nR0]Q&V'W #% [ 59] kr_l3.phase !S/w?:2R%S50*uVR%S9;@Y_R%S=>uF?~~SA:YG6~~SE.)MzR%SGrqQ~~~SKT\dv%%SO,z^2R%SQUPO?~~ !SSt%~.%%SW.MvMR%SY9*,_R%S[:CwDR%S]3>shR%S_%@UZ~~S_l8y2R%SaVNiI%%ScA'h)R%Se/bshR% !Sk>x[v%%Sok*([%%Su:e0;R%Sy)mU[%%S{=:Bd%%S}3D1[%%S}t21Z~~T-Vfg:[%T-\sA\m%T-f)^VzR !T/s9^g2RT10:%12RT18@,cVRT1?9&L[%T1E}%57%T1LX7% #% [ 59] kr_l3.caps !SDx0|@%%SDw/q)R%SDt(o;R%SDn}7%%%SDguB;R%SD^rQ-~~SDS{}_R%SDG7mv%%SD8dv%%%SD(Rv%%% !SBp_MzR%SB]7qzR%SBH9h)R%SB1hj?~~S@sjxd%%S@ZCs?~~S@?MZ.%%S>}.--~~S>_;f;R%S>?vQVR% !S<1)Z.%%S:0X`H~~S8\bshR%S8C?NI%%S6~K|?~~S6]@EI%%S6;>WH~~S4s&u-~~S4Pi8l~~S4.)MzR% !S2d3}_R%S2>R12R%S0pfh)R%S0G*([%%S.um57%%R~(Q>6~~Rr~u>6~~Rhu\}7%%R^j3qQ~~RT`)%MR% !R<4Bp2R%Q/nh1Z~~R;PpwDR%ROh>WH~~RcbT3I%%RwO6b_R%S/.=?~~~S1&IEH~~S1s6>6~~S74~jhR% !S9]fp2R%S;{%EI%%S?6CNqR%SAGk_R%%SCOOH.%%SEQ_Iu~~SGQ=lVR%SII;=hR%SK>h_HOc_RB;Ha]_2RDONx.riRFH4,Lo` !RF~bNj;VRH;LqE([RH2Joc'TRFb`GNQ.RDpixcDbRB^<9nqrR@/R)8M%RORAJBtQd[aSs:CR43ze:FiR:strTJuR@9DAwXDR@}/3O^kR@HPjgqbRR>VnZshRHD:/iZoRLg/t[TlRR%1Oz^{RV(AD/%fRXqTqeWUR\EEN15h !R`v[/J0`Rbz]@bWIRd7QQHfdRd*jXTdBRbRs6+[zR`K}jM':R\{S=~;FRZKqL[dKRX%dU>o5RN;~.1og !RHOx%gvVRD%~+S=?R>Yl]ymOR<30>`0RR8F^,tB]R67V\dIvR45=/'-%R0w*ylh[R0h61bzS #% [ 59] kr_m1.phase !S9=nXhR%S=PhnDR%SA\WU2R%SEa7--~~SI^e0;R%SMU-^Z~~SQD2Iu~~SU,::Z~~SWgE0c~~S[@vIMR% !S]mTG_R%Sa8gBd%%ScW5WH~~Senh1[%%Si%dY_R%Sk0OD)R%Sm5fG_R%So5t2zR%Sq3I%%%%Ss/~%u~~ !T-UF~F@%T/G:m]d%T/^UjlVRT/i}Pwm%T/ppYk_RT/u6K3I%T/w5HJDRT/vV4'd%T/r`|p[%T/k*mqzR !T/b-mY_RT/\;o|@%T/[0R57%T/]_zQ~~T/bUUBd%T/hij\DRT/oiRU[%T5oMAl~~T7'xunm%T79b1Bd%T7I|3([%T7YLV1[%T7bkM=hR #% [ 59] kr_m1.caps !SV[G&m%%SVYpRu~~SVU<];R%SVMf_zR%SVC>;)R%SV6(Bc~~SV&3Q-~~STmj`H~~STY(Jm%%STB2~VR% !ST)>{qR%SRhS\m%%SRL%UZ~~SR-s`I%%SPh:wDR%SPG/@MR%SN~[iqR%SNZf?VR%SN5K;R%%SLh]CZ~~ !SJC\\l~~SH3&}6~~SFSlZVR%SF4%=@%%SDgIY_R%SD;NiH~~SBf(NqR%SB4R]c~~S@[m--~~S@(;%MR% !S>Mi,_R%S.v%% !S0@rDzR%Rt.XL2R%RX{TCZ~~R@GRz)R%Q5La,RDzN3h.ERFnZ3)u_ !RHEE}M=iRHX6v(fDRHNC+wbtRH'orB[-RF=m{TUoRD8%iS[~R@td(:[%R>C.H;[fR:\}0zLCR6o4ifLw !QpXbFsp[QTjU`r+(Q^07gk:_R._)u9=jR2:FkJL[R4*E2yx|R41L,I*aR2^T:>_RR0iJRn1sR.cBof{- !QnXxxZPKQb{*l/y{Ql?2&LLKR.qR9/ReR2ZjgP22R6T^E};)R:S[/`EiR>MT'o}xRB@c:6s`RF%x=/m% !RLT@Bd:sRPzCdwmXRT^?bPW%RVk~9[%,RXDea>'QRX;A3.vuRV\`40\~RTk0BT(sRRvQ(7irRLI(F+),R<&nblA>R8?i2|d?R62_l+iLR4>uxu%UR22MF_P~R0\t'yur #% [ 59] kr_m2.phase !Ro({H~~~S/wMnDR%S5)]CZ~~S9.sX?~~S=-:2R%%S?~Z2)R%SCnrpwDR%SSavahR%SU|&u.%%SY2}C2R%S[:o_zR%S]9x_zR%S_14T;R%S_{j\DR%Sagi4hR%ScQap[%% !SiC^:Z~~SqEh5_R%S{a7-.%%T-_q9?VRT-k'|dMRT-qd@U[%T-v[eHVRT-z|>G7%T/&@cF@%T/.IBWqR !T/<>O?~~T/SUK[v%T/nI34hRT1'{cB;RT157:s@%T1?:f]/ET1Gk|?ZVT1ONITG_T1VYk7IMT1]?KWqR !T1lQv`0dT1z+Tyo`T3,Hww0}C{H~~S>_QZVR%S>@2EqR% !S<1?NI%%S:0yNqR%S8]8dEI%%S0puB;R%S0G4|hR%S.utO@%%R~(r,_R%Rt%-RMR%RhugwDR%R^j7QVR%RT`,_Q~~ !R<4Mj@%%Q/m,cVR%R;Pi];R%ROhB7MR%Rcb_-VR%RwOE6~~S74~jhR% !S9]fp2R%S;{%EI%%S?6CNqR%SAGk_R%%SCOOH.%%SEQ_Iu~~SGQ=lVR%SII;=hR%SK>R>=_%oiaR:Y}O2t'R6n]2^O` !QrHn}j'dQXJYOD%rQ`x'Q%QWR.hr_3U{R2@q}JL[R4.a%Kt7R43Cv&y{R2]DSqXuR0dGL6lFR.YtT?R0 !Ql-Fb]OhQ`M'Iw\mQjKo<@v%R.nu`UgfR2ZBG{xlR6T&gyFiR:QRrT}xR>IRVZHB'nURX6Xu+Z0RX0fO1b1RVT_~=TrRTdD%4eI%%RZvR<&nblA>R8?U%jtnR62zbWBmR4>^E?7_R21x4rVBR0]8M3F` #% [ 59] kr_m3.phase !RoKG_Q~~S/zu^[%%S5-2MzR%S92O|hR%S=0{Q.%%SA(P*qR%SCrviqR%SG\0_zR%SK=nXhR%SMqf_zR% !SQCNM)R%SSfWqR%%SW&b*qR%SY7ZrqR%S[?EuVR%S]>C{H~~S_5RUZ~~Sa&2=hR%SalFdMR%ScVrH~~~ !SiNXH-~~SqIlb_R%S{JSu.%%T-]QnHVRT-i-&@MRT-p02Z.%T-u=Kh)RT-y{30d%T/%ULJm%T/-wY{qR !T/}C{H~~S>_QZVR%S>@2EqR% !S<1?NI%%S:0yNqR%S8]8dEI%%S0puB;R%S0G4|hR%S.utO@%%R~(r,_R%Rt%-RMR%RhugwDR%R^j7QVR%RT`,_Q~~ !R<4Mj@%%Q/m,cVR%R;Pi];R%ROhB7MR%Rcb_-VR%RwOE6~~S74~jhR% !S9]fp2R%S;{%EI%%S?6CNqR%SAGk_R%%SCOOH.%%SEQ_Iu~~SGQ=lVR%SII;=hR%SK>[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] eu_k.amp !Q%%%%%%%R0,2zIluR8tJy\-*RB3l'CiYRHd0K}SDRND`BnjXRR&SdV_jRR_uo\~JRR?gJ`[^RP&E9[v% !RJweI6nmRF1IZaDrR>pngyFiR89CiQBJR0ZRK*r^Qb@}3iimQ~7o?XB'R4_b|fZcR:wvyd2jR@uP?ICG !RNHcm@riRV;cmt}tR`{gT3f3Rj+eVr^sRp1Q<~gwRtf?j8hVRxp@r]FLR|o~\-FdS.VW,+37S.cHM}3q !S.m&E~egS.rK~5lRl3LlebtRf)C3if3 !RXKQI;eqRNwtQ50TRJ8{<([%RH\d.)?FRL:>G]=TRR&>PAQ*RV[9Q,*)RZLTiqd9R\[Zs1g{R`0~(av/ !R\|Pokc6RZB8Rj:rRV:(>n`cRR)>gbHzRN;B|h*=RH{D.}NJRFL~2=w,RBL{g;nER>(9Ky>n #% [ 59] eu_k.phase !S3*j7u~~S7>2V)R%S;K;vMR%S?R/y2R%SCR]c~~~SGL`*qR%SZEj\DR%SZ;IQVR%SZ/C>_R%SX{PcVR%SXl&@MR% !SXZx/DR%SXH?JDR%SX4,WI%%SVxJP_R%SVa7v%%%SVHV-VR%SV.@12R%STlLFhR%STNsT;R%ST/IEI%% !SPvo/DR%SNlCs?~~SN7j`I%%SLw7U[%%SLVEM)R%SL-)V)R%SJUtSDR%SHx6^[%%SH;Pk_R%SFTT7MR% !SDj[UZ~~SB~R))R%SB7-vv%%S@I-.%%%S>[3Y6~~S2CJl~~QWX\DQ~~REr-)zR%Ra7Lc.%%S>S~JDR% !S@Y?-~~~SBN6~~S:Wk&l~~S:yi4hR%S1Ey[%%S>Vkwm%%S>|r8l~~ !SB*U{I%%SD59Kd%%SFBJu.%%SHQb;)R%SJbi];R%SLuGSDR%SP/GC2R%SRDVrI%%STZrM)R%S\I;=hR% !S`}Dj@%%SfY|;zR%Sl8n8DR%Sps[12R%SvV-2)R%S|:,&l~~T.ZK3I%%T.rtgZ~~T01O;zR% #% [ 59] eu_l1.amp !Q%%%%%%%QbFN8.@VR2%TIpBdR6p}&V(?R:?n/(RnjuD]oDRp/%Qb3iRpX6/cEQ !Rr.Ha,+`Rr^JhC-_Rr{W?'[-Rrp0cyugRr3W~xAYRny4WhKTRl;W2K=yRh:m-8y2Rd-?d);fR^wEZWOP !RV/5J:FiRNWf^I~.RJ@9,`p?RHe_n5wmRJvRo;&?Y}Y2R\l1PiU{ !RZhiP2d^RX=Y,_wwRTF7`pCiRP=tJ(j=RL\E+FroRHLRGX?xRD}5.v8bRB+){wK^R?-~~SCL{H~~~SG.f[u~~SI`r@v%%SM.G&m%% !SOIs3qR%SQU_)R%%SSO[12R%SU5{([%%SUg3eDR%SW9DIv%%SWegBc~~SY9YO@%%SYfys?~~S[9}.u~~ !S]agc.%%S_X?ZVR%SalgRu~~Se(E0d%%Sg59Kc~~Si@2j@%%SkL?NH~~Sm[OT;R%Son8DQ~~Ss*q-VR% !SuB>g[%%SwX]|?~~Syknu.%%S{{W}_R%T-RgdADRT-\IiqR%T-e[V%MRT-n2V)R%S\.D~VR%SZvXpZ~~SZbn,6~~ !SZM@Y_R%SZ6.%%%%SXw=\DR%SX\~%v%%SXA;5_R%SV~)1[%%SV_KSl~~SV?Db6~~STwgBd%%STTJu.%% !SR7ZNI%%SP(C.MR%SNJ|H-~~SN-X/m%%SLcxSm%%SL8S,7%%SJ_mUZ~~SJ'9OhR%SHCs@%%%SF\]7MR% !SDrU{H~~SD,ATc~~SB>lNH~~S@P`eDR%S>bX\DR%S2o3H~~QW7EmMR%REkX7u~~Ra4miqR%RyS+lVR%S3]lvu~~ !S7q&`qR%S;q[el~~S?cM~VR%SCT)=hR%SG9YO?~~SIlb_Q~~SME&XhR%SOpYk_R%SS8b*qR% #% [ 59] eu_l2.amp !Q%%%%%%%Q2EwVJVBQ>OoL7W]QJ+CFwmnQRvYkTWrQZbp)&dRQ^~fs3bxQ`=GnqM{QZX}m=@%QLJDn*}` !Q0Hx84G?QJ{Q,p'3R0`]0WqRR:<-=6[ER@f:78>'RBsEsaFPRBKq4|-,k_R<&rTEK' !R6oR.71{R8x5ilWAR@Nk6fY+RFAQ=]|@RJa,)\c>RNYQ>0mARP~G-g'3RT(HCGWIRTfrZ+ftRV9o4_~V !RVaye=FPRX)d<^YlRXC6i3\MRXIOn0_{RX8Ow&F0RV`7CxA}RTmtatBDRR_<5pVVRPBL.@G'RLy(}1%V !RF\6sDC&RB15qjg-mOL{R>krZ0>zRBKvdu:pRH(.TL[_RL^yx'g;RPeeQK9[RT9mkyLo:ymh^ #% [ 59] eu_l2.phase !Rf)nDR%%R:7UZ~~~R9C>_R%%R_WqQ~~~S-gvz)R%S1HdahR%S3vzMzR%S7=h-VR%S9Op[%%%S;O~F@%% !S=+)Al~~R>9l-~~~R>.MQ~~~RD}WH~~~RP;nDR%%RTRADQ~~RP=pZ~~~RDFt_Q~~R2kC2Q~~Qs&DQ~~~ !R}NmMR%%S3?GSDR%S7adqzR%S;]^g2R%S?FJTd%%SAvEH~~~SEBUo;R%SGaL2R%%SI}g6VR%SM>FlVR% !SOW'l.%%SQkZ^[%%SSytSDR%SW'7MQ~~SY'AXhR%SY{/,7%%S[nsP6~~S]]7MQ~~S_D|7-.%Sa&)u:2R !Sc_RT-oh\Td%T/&Fu)zRT/6sr];RT/G*(Z~~T/W1p*I% #% [ 59] eu_l2.caps !SLST?VR%SLR9_zR%SLNCg2R%SLGyo;R%SL?'x;R%SL3j\DR%SL&3uVR%SJpI~.%%SJ^VV)R%SJJkk_R% !SJ53DzR%SHwop2R%SH^x3H~~SHDS\l~~SH(_rH~~SFeMnDR%SFF~jhR%SF'7MQ~~SD`6jhR%SD=qnDR% !SB'a3qR%S>}Yod%%S>J6B;R%S>-:2Q~~S3iH~~SQ`4hR%%SS~JhzR%SW8)j?~~ #% [ 59] eu_l3.amp !Q%%%%%%%Q2Z|65MbQ>xB3[9p=(QFS,n}qBR0C[a1o;R8r~%1O`R@AdjkuzK/DRDV6'(*IRHr;i9jPRLj9LfYORP6be]03RRyoRVULFhrmRT}}H%v%RT3FpXn4RR&TtpZ6RNfC<:<9RLEWfvO0 !RF/I80uoR@d`aEO,R>E]UaHwR>M9.}paRB-,{r`}RFa6JgQ>RL;cxK)bRP@^B6shRRmXMR7ZRX1P/D|> !RVa/^Cv~RTc*IN]CRR30bQpwRNFG1EvcRJyn7rH[RFz.,d0~RDd31G)pRBDi&zR:s #% [ 59] eu_l3.phase !R\4H.%%%R0@u~~~~RC=|hR%%RiX7u~~~S/;eL[%%S1wM%MR%S5Lcvu~~S7nhV)R%S;(hEqR%S=-LFhR% !S?,N,_R%S[TpVS_Su<,ShS_Sy&=u)S_S{W+@I&_S}}niDS_T-^%c%MaT-isa_zaT-uXe@%4 !T/'+TcVaT/22LF@4T/F';aT/O;%Q.4T/WWb{I4T/_<|+@4T/fKj/DaT/lxDj`XT/rk&ea& !T/}y_rE/T1)sEZc]T1+7QO4&T1)w`(W/T1)q^i0sT1-Q5Bd4T145C6.4T174T3b~2-.4T3sS@Q.4T5*'g>74T5:G9*qaT5JF=7Ma #% [ 59] eu_l3.caps !SLST?VR%SLR9_zR%SLNCg2R%SLGyo;R%SL?'x;R%SL3j\DR%SL&3uVR%SJpI~.%%SJ^VV)R%SJJkk_R% !SJ53DzR%SHwop2R%SH^x3H~~SHDS\l~~SH(_rH~~SFeMnDR%SFF~jhR%SF'7MQ~~SD`6jhR%SD=qnDR% !SB'a3qR%S>}Yod%%S>J6B;R%S>-:2Q~~S3iH~~SQ`4hR%%SS~JhzR%SW8)j?~~ #% [ 59] eu_m1.amp !Q%%%%%%%QVAB][-.R.oO\.]dR43n\j,WR8Jz{}(oRgfZ6wRrI6-/USR^JYYz^2RVoYAtjqRT1oq))vRR87S=)BRP_mY_17 !RP%M1x3IRT-57q5;R^.H-AiiRdRnE?]w(2RlvD&MTpRjuAWU2RRhOfl5?.Rdf5bKuoR`pHTg,'R\z=&)_F !RTadpx_2RNJ5SQ\}RJ?\j*gGRHe;vR3vRJl5BHW2RNvkzU}aRT,Yyl(nRVg|{DWtRXre*ro6R\Ep]WEi !RZEbbv\XRVyCjl(YRT->SE9\RP'JmIn@RLJ1z[J.RH=ELnbpRDod1Cj{R@z@/*WhRk_R%SS82b7%%SUe*4hR%SU+KCZ~~SQV;f;R%SSF_Z-~~SUI/0;R%SW@Oxd%%SY-9h)R%SYkx7MR% !S]VEM)R%S_UruVR%SakbgZ~~Se%f7MR%Sg0jP7%%Si9slVR%SkEImu~~SmSU.MR%Sofp{I%%Sq}wm%%% !Su;toc~~SwR=dMR%SydBWqR%S{r0d%%%S}{L:[%%T-[6JDR%T-d=]3I%T-lu>7%%T-ttm=@%T-|3,;)R !T/0m/0;RT/:@9_zRT/?o/Kl.T/CLRMvNT/H+[8L[T/OT68BPT/Y6Zw@MT/ckfdmvT/n[[.emT16(Bc~~ !T1M9ny2RT1dHHfd%T1z,`@v%T35bv57%T3JzTKd%T3^jhvMRT3s)+xd%T5,^TSm%T5>wSP_R #% [ 59] eu_m1.caps !S\sjT;R%S\rL:[%%S\nKG_R%S\go;R%%S\^e0;R%S\S0_zR%S\E:Jm%%S\53DzR%SZ}*(Z~~SZh|/l~~ !SZS1NqR%SZ;[el~~SX|N4hR%SXaqIu~~SXEkK;R%SX(CRu~~SVcLFhR%SVC,&m%%ST{52zR%STW\q)R% !SR:*mMR%SP*imMR%SNM^{I%%SN07))R%SLfE8m%%SL:gVzR%SJaol-~~SJ)-2)R%SHEXH.%%SF^>_R%% !SDt,O?~~SD-nHVR%SB@8(2R%S@R%%%%%S>co[v%%S2&QhX5lNI%QvFi+i@vR.[O\nJYR0(wZt9LR0BjyNTDR0R^|u1; !R0uY,wHVR4wdQ}rzRF;|g&{5RrmeBDnDRbxRm2X,RPA4<_6NRFYqx.z*R@Z~6-~~R.?c*R>|ox0WqRBU\SiL;RDj)na?[RFbPs>8]RHH+yp*I !RJ&p).EIRJ\ALskhRL1T^LvVRLPuB(5CRLVf4>NQRL?jJUK\RJgH16Z2RHvm(B;vRFv>[F7vRDnoa>*) !R@:su5;NRI@s0R>XdD=F|RD*%bR2\RHS0YZG=RLP}Gh>:RN}uSG(wRTb5dU25 !RTP|ieo2RRikQ86,RPPMfM5)RLsKqI[HRJYW(HwsRFdV?jazRDT]lhofRB8,SxILR>]PuUAX #% [ 59] eu_m2.phase !RtpNqQ~~RJ0h)R%%QKy2Q~~~RMR56~~~RoBOhQ~~S/:`a@%%S1V^VzR%S3]Zb_R%S5H:{H~~S5`Y[MR% !S5-wdu~~S1N)nDR%Ry.Y_R%%OcR%%%%(Rzt;)R%%S0*@-.%%S.mQzzR%Rxl^[%%%RhSL[%%%RTdUZ~~~ !RG.%%%%%S/y/?-~~SQ{~rqR%SU+~F@%%SW.Xp[%%SY)d]c~~SYxbG6~~S[gvU[%%S]R@z)R%S_6_B[v%S_nv:*I% !Sc%tR12RSc\ubqf7%T/5h4'd%T/F6I12RT/VU3@v% #% [ 59] eu_m2.caps !SLVI--~~SLU.MR%%SLQ8Td%%SLJj|hR%SLAoKd%%SL6M5_R%SL(lnm%%SJr{];R%SJa&u.%%SJM4pZ~~ !SJ7O/m%%SHz-zzR%SHa.~.%%SHF]3H~~SH*ehzR%SFgP*qR%SFHyg2R%SF).iqR%SDb&m%%%SD?^6VR% !SB);Al~~S@%;=hR%S>Ky*H~~S>.n@MR%S3iH~~SQ`4hR%%SS~JhzR%SW8)j?~~ #% [ 59] eu_m3.amp !Q%%%%%%%Q86t)H>7QJ4l:yykQZeK>[y;Qj\>*Z4PQxcEe2=hR.ipgO`IR09kbN,_R0UvIu{ER0f>;=w, !R2)+{};)R4lOk`@vRDVlB}.vRp6hnx7R81]&d?B !R.g|:&ZgQx;Lz.EIR23o:[mvR65&r1VVR::ha~)2R>3KUvU[R@h/zR:sRB}qG,aTRDwFEgrQRF]ZB4Xd !RH<~MaH.RHrYdQ*iRJGx]*|qRJg)kq[ARJm2s]mfRJVKbh%MRJ%/LrcBRH5Xf6:2RF6wMy>`RD1F&Zr) !R>\W\S3QR:p%XmbWR:%siB|~R:IYX?jZR>-]tCevRBUuaof=RF{+?RB.9bXc_R>TdM=?b #% [ 59] eu_m3.phase !RjJ(2Q~~R>b?.%%%R3Qfc~~~RY-6-~~~R{'[u~~~S/o+@%%%S32GO?~~S5;(c.%%S7(Au-~~S7ESy2R% !S5tVZ-~~S3;gNqR%S-pcvu~~R-nhzR%%Rt&DQ~~~S.g5C2R%S.U,&m%%RtYG6~~~RdnhzR%%RRXt_Q~~ !RE\(&DR%SSN1wDR%SUWImu~~SWY.--~~SYS1NqR%S[FyRv%%S]4s'd%%S]x8`qR%S_[GC{I%Sa8dJcVRT/87kO@%T/Hq2Iv%T/Y/D-VR #% [ 59] eu_m3.caps !SLVI--~~SLU.MR%%SLQ8Td%%SLJj|hR%SLAoKd%%SL6M5_R%SL(lnm%%SJr{];R%SJa&u.%%SJM4pZ~~ !SJ7O/m%%SHz-zzR%SHa.~.%%SHF]3H~~SH*ehzR%SFgP*qR%SFHyg2R%SF).iqR%SDb&m%%%SD?^6VR% !SB);Al~~S@%;=hR%S>Ky*H~~S>.n@MR%S3iH~~SQ`4hR%%SS~JhzR%SW8)j?~~ #% [ 59] eu_m4.amp !Q%%%%%%%QHN=}ijFQfX+0]AzR.g-c3ebR4SL@'KdR:VJ.1)HR@>vpu28RDtrI(H-RJMfUQ_gRP5eWB9x !RVs:Z/ewRfZ4;7KtS0`ci\L[S>.aLL&ES8U<=r~*S2lJ]s9TS0YIE*GGS.t+QTW)R|e-EHDbRtRWGG7% !R`%D(TSmRVo;DBn0RTe%5HQ_RPa.jkC3RL8\5CauRHFIb@+PRF,M?XTk|SX&O&K5K !R8e1>t^cR4amxy]LR2\6y3XZR41*@ESyR8@'4Eo3R><[(XCuRD14pK}LRHR\6R+:RLFP;lGfRRc=2cc1 !RRky_w*vRRBj2D=DRP6I`mKARL_kA,|)9?VR%S8iqQ~~~S4lrqR%%S6p&DQ~~S_Q~~~S/(6VQ~~ !S1;1Z~~~S3WmMQ~~S5zzR%%%S9BOhR%%S;[--~~~S=e0;R%%S?^{I%%%SAIIMR%%SA~)zR%%SCL2Q~~~ !SCvahR%%SCS(2Q~~SAAdv%%%S=lJDQ~~S;pVzR%%S;[?B;R%S;j+hR%%S=0lvv%%S=\y{I%%SAEb.v%% !SCYaxd%%SEzt&l~~SI=oG_R%SKYE4hR%SMziQ-~~SQ;(>_R%SSTJu-~~SUl2)R%%SY0*uVR% #% [ 59] eu_m4.caps !T03k&m%%T045O@%%T05ATc~~T0757%%%T09fp2R%T0p.MR%T0B7N](VRDWr]U3ORJB{t[7^RP1nEadM !RVrDiQ_8Rf[0hMF&,S8WRBp+,TPWRBTWq_/} !RB2wTN0dR@k|Xh-VR@U<@TNzR@Q(b/l6R@XjW0`ER@_o>/O(R@W[`5+`R@9fXxnyR>`qh3U{RD46*SURD<+Gb|&RHaS@BkURLXdJ<(7RRvCD;N6 !RT&)/&ZURRU,uTt7RPD9lOGyRLkqgp73RJT8V*OPRF^b^7Y,RDI^GYIKRB>wl[:pR@2uy:H) #% [ 59] eu_m5.phase !S:)Pk_R%S6+7QVR%S2a7u~~~S0M)R%%%S0n.v%%S=d^Rv%%SAOmEI%% !SCb~>6~~SG-'Sl~~SIIXL2R%SKeRahR%SO.y:Z~~SQGZ:2R%SSaG?-~~SUzAm%%%SY;IQVR% #% [ 59] eu_m5.caps !T03k&m%%T045O@%%T05ATc~~T0757%%%T09fp2R%T0p.MR%T0[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] k_k.amp !Q%%%%%%%Qf5PpRv%R2H;m}BhR8Q]OWF4R>Q&35HoRDFnS*gkRJ1FpSdvRNjDxa;2RT?5pkAyRX``o*XH !R\sJ@>wmR`p0,ok?RdI{,{75RfE(&j(wRfN1ZPC{RdUycV-WR`]_e+*zR\&WqRf\RVGfUKURV\W\3a1RPcXR*a@RL44,=t_RFwkp-*qRD&6yW}nR@NQNF,WR>/^'Z(CR:pE@8pBR6+wPC>u !R2ceO{oHR0UuQqtHR.wjKb?5Qtrh~7C5Qn5Ad|guQdNB-/+{Q\zZKscmQ`8kbNn;)RS3ku%QVRS7vqV)R%S;ytHJDRS?tj9x;RSCg&{4hRSGP/w0;RSK/_Q^6VSYTr~gwDSYYld=@%SYO0;-VRSY6'mADRSWgu[iqR !SU[ExG_RSUP]^Bd%SUjHYg[%SWB}V~VRSY()5_R%SYl\4@%%S[Y|`H~~S]II))R%S_;8P_R%Sa/YWI%% !Sc&YWH~~Scyc.%%%Sesxc~~~SgnBt7%%Sii&XhR%SkcG.u~~Sm\fSl~~SoT&(2R%SqH4t_R%Ss8yVzR% !Sw4.57%%S{%zMzR%S}l,k_R%T-_KbG7%T-m~k{qRT-{zQ6.%T//1@=@%T/;Bn0;RT/Fc:2R%T/g~tO@% !T/{Ixp2RT13]Mf;RT1DzkSDRT1U3S0;RT1cTHNI%T1qwoKd%T3&6c)zRT33j0[v%T3LlFdMR #% [ 59] k_k.caps !RdRqV)R%RdB_V)R%RblJDR%%R`vw8DR%R^cPK;R%R\3kK;R%RXCi4hR%RT;H>6~~RNvZ)zR%RJC0t7%% !RDVZvu~~R>X(wDR%R8H:2Q~~R2'C6VR%QV_zvMR%Q?(3eDR%R/@;b7%%R7W~)zR%RA1]p2R%RK^1>_R% !Re2[ADR%RiRkO?~~RoaY.v%%Rwn8hzR%S-ahvMR%S/:)~VR%S/q8P_R%S1R.ADR%S35vY_R%S3u_nDR% !S5\QNI%%S7CN([%%S9)X+hR%S9h1Z~~~S;K4\DR%S=-/8DR%S=h,C2R%S?GZ:2R%SA%+t_R%SAZ-6-~~ !SC{;^2R%SG9`iI%%SIO:g2R%SKd8(2R%SMv@UZ~~SQ'SHVR%SS)>{qR%SS|p[%%%SUq|xc~~S[Jh1[%% !S]vADR%%Sa;XP7%%ScY)9d%%Sejg>_R%SgtjL2R%Si}]t6~~Sk}Uk7%%SmxwL[%%SosieDR% #% [ 59] k.rep !S4)'OhR%S4*>O?~~S4.%mv%%S443qQ~~S4S5SDR%S@-lF@%%S@gRQVR%SBJ8DQ~~SD/ZjhR%SDq>{qR%SF[%IMR%SHFNY6~~SJ3F|hR%SJ{Z%u~~ !SLjuNI%%SN[0h)R%SPL4xc~~SR=w,7%%ST08.v%%TDw|H-~~TF(ruVR%TF02~VR%TF/hV)R%TD}^c-~~TDbz^2R%TD8a;zR% !TBYmahR%T@oA}7%%T>}G[MR%T>._f;R%T<;Jdv%%T:MB[u~~T8g<8l~~T81A,6~~T6aDrI%%T6Dx+?~~ !ShYt2zR%S^qC&DR%SZtH%u~~SZ5Mb6~~SZ3VEqR%SZWh~VR%S\_R%S|kjL2R%T.Xx?VR%T.kA0;R% !T0AGgZ~~T0tJLZ~~T2P3DzR%T4.QVQ~~T4iPxRb=apHjiR`EQE+W-R\a4EXVbRX>uNUHFRRSB^w5xRLl`TR57RHO1TX4` !RT/pCuTPRb&GqmU[Rnu(NLAuR|2v%pnMS.r2)oJFS0@@nhV)S0_(O&M%S0s>/viMS0|&eKG_S0zhm7d~ !S0olRn@MS0^O5'7NS0H>4{?>S0.K;|R+S.kZOgU\R~MiY9V^RxA,ziMNRrN1u[(;Rlx_MjoHRh[P64^k !R^gAU|k@RV}SESqrRP~>9wL[RLIk|zQpRH/8u^jARD4?aj(SR@Yeu.f\R>8N[~_XR:wZ)X{zR60VXgD0 !R2fi9CYwR0X8%BmfR.yX*rTYQv&@Mo6bQn?6d~?1QdWkntSSQ^&Gj{l/Q`BjuP?ZQ\/3n~%v #% [ 59] k_l1.phase !S/\FIADRS3nzxt7%S7ye|lVRS;|Oa\DRS?w%+P7%SCh~.IMRSGQxp{I%SK19D%MRSM`)\0;RSQ)Q=H.% !SS@HLFhRSUIOWuVRSWCHg.MRSY,nWy[%SY^el'SmSY~?iBx;S[0j:Bd%S[(zGshRSYe1@=@%SY/)(c.% !SUL\)j@%SU;FFt_RSUWYPSDRSW4%=@%%SWvh9d%%SYdpBc~~S[UHjhR%S]GUFhR%S_;\y2R%Sa1jH-~~ !Sc*+'c~~Sc}yo;R%SexYshR%Sgs6>7%%Sim~vu~~Skhb[MR%SmbLNqR%SoZ)1Z~~SqNXlVR%Ss?gwDR% !Sw;lfd%%S{.F\DR%S}t~b_R%T-`B{uVRT-nt}*qRT-|n0_zRT//}qAm%T/<5E4hRT/GV2%MRT/hf0WqR !T/|/edv%T149(*I%T1EPujhRT1U_;f;RT1cv`0d%T1rB=xd%T3&Q?nm%T34*%iqRT3M,;rI% #% [ 59] k_l1.caps !Rd&zEqR%Rbq't7%%RbAT?VR%R`M6rqR%R^;D9c~~RZgO;zR%RVyK[v%%RRs4;zR%RNVKx;R%RJ%,?-~~ !RD:Tx;R%R>=t;)R%R8/uRMR%R0jc^Z~~QRA{Y7%%QC6PK;R%R/R2j?~~R7hKx;R%RA@`0d%%RKkdEI%% !ReAsP6~~RiaIADR%Rongg2R%Rwz%MR%%S-bj'd%%S/:}oc~~S/r+'c~~S1Rox;R%S36VvMR%S3v@12R% !S5].12R%S7D'+@%%S9*-NH~~S9h]C[%%S;K\dv%%S=-S`qR%S=hM1[%%S?GwHVR%SA%EI%%%SAZC*H~~ !SC{Bx;R%SG9]/DR%SIO3M)R%SKd0h)R%SMv@UZ~~SQ'SHVR%SS)B[v%%SS|lzzR%SUqy>_R%S[JdQVR% !S]v=dMR%Sa;Tp2R%ScY)9d%%Sejg>_R%Sgtfl-~~Si}]t6~~Sk}Uk7%%SmxwL[%%SosieDR% #% [ 59] k_l2.amp !Q%%%%%%%QHq]YB5'QjbOn2/4R.{+wg}'R24ZL@w]R4*q_/}7R4\/[V%NR4n>6;xtR4dj@5(KR4GK+:ug !R2zv(\1*R2X22Iv%R2H]o&L[R2VkqasqR4'TCze(R4\Pw9DJR4mM&t44 !R@v:Iaa8RL&AfQ|}RT&}6~~~RZYaj/m%Rb&K1)Z.Rh@EEKR~RnGQ{/,7Rt%a>fV:Rx%UnrsTRz:J}%1W !Rzff|5*rRzYU+a,|RxnDV6<5RvU<7~o\RrohSQ1;RnlR/lHBRjjBXG\j !RXtGz+/mRR|GI-5`RNUmr^|kRJB`-J[pRF=\/f/DRBQ6?M)}wowR:SVVVbC3T/H8EH6. !T/VGf|E.T/d7&`M*T/pr60KdT/}F-Q:2T1.B_RIMT19XyVV)T1D|:g2RT1J:nq)RT1Uy0t7% #% [ 59] k_l2.caps !STBAXhR%ST@}?.%%ST=-F@%%ST6_nDR%ST-kWH~~SR|WuVR%SRo7))R%SR_j?~~~SRNOt_R%SR;Lg2R% !SR&oKc~~SPje_}C2R%S>1;%MR%S<]AXhR%S<10t7%%S:a;zQ~~ !S8\qMzR%S6b[qzR%S4jlzzR%S2qMV)R%S0x@EH~~S0*RADR%Rzzq5_R%Rn5_-VR%R`lk{qR%R:bH%v%% !P<4jxc~~R7T&q)R%RK,j'd%%R[9FL2R%Rk(cRMR%Ryj3M)R%S-y|\DR%S/\HzzR%S1=%=@%% #% [ 59] k_l3.amp !Q%%%%%%%QHr_TGc2Qjd[*=Y/R.{ICigkR25(uCCwR4+K13+(R4\n63a@R4o*7j)fR4eZ+vw]R4HBGGLs !R2{q@'e8R2Y5-b_RR2IlBrvER2X/i7oTR4)+`D]DR4^8(JW1R6-:w'C[R6=hl[iqR65?tP/Rrn2P<~NRnk9]gq>Rji;:lJDRfqoy=eaRd.ONJ\mR`OR*6_n !RXr6)J7CRRzob^TTRNU`E>[cRJC;tv~.RF>>Ms<>RBQ,>3L;R@&PZf;vROR.[(SWPkQp,TIJ-NQh3z6r=&Q^DCHLK0QT*_5iJ@QPDC&c~EQHlPt_}C2R%S>1;%MR%S<]AXhR%S<10t7%%S:a;zQ~~ !S8\qMzR%S6b[qzR%S4jlzzR%S2qMV)R%S0x@EH~~S0*RADR%Rzzq5_R%Rn5_-VR%R`lk{qR%R:bH%v%% !P<4jxc~~R7T&q)R%RK,j'd%%R[9FL2R%Rk(cRMR%Ryj3M)R%S-y|\DR%S/\HzzR%S1=%=@%% ifeffit-1.2.11d/src/fefftab/35.dat0000755000175000017500000003002610771740460015467 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] br.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] br_k.amp !Q%%%%%%%QXd=p?`]R0,Y'AYPR4P^FT,xR8fH1|7vRR>JiDzR%R:muVvMRR87viCyG !R2*TDB[vR2\Wg/klR6@KzHb`R8c3'xQFR:@>QJ^&R8qb%REIR6autaT;R4Oz,mKtR4-..BmfR4xxP:[I !R8df9=T;R<|;LyFhRBKQ7D~VRFxf)?7fRLHvE30dRPk?zc4PRT~\;'y*I%Rf=vqkwmRdu-)e\>Rd1B\,OlR`qw&{IuR^6Z~(bkRZSsV`@JRV~gGdtlRLy;mpXX !RH*x+L*qRBZ(RhfvR>4W2NgYR:kBUo;R !T/T;Y?.%T/hpC.MRT/|jIADRT15\J}7%T1H6&dv%T1Ya7-.%T1iqG*qRT1yUM^2RT3'5]OhR #% [ 59] br_k.caps !ST7Ck6~~ST5m=?~~ST19G_R%ST)\0;R%SRy0+?~~SRkpRu~~SR[tG6~~SRIJ_rH~~~S>/YWI%%S_R%S88(2R%%S6Z'/DR%S4{M)Q~~S4B`iI%%S2d%IMR%S2+l2)R%S0N@QVR% !RteuRMR%RXlgwDR%R>kx[u~~P|32f;R%R;Wj7u~~RS@}?.%%Rid34hR%S-VrI%%%S/XKh)R%S5D:.MR% !S9-gRu~~S;dqV)R%S?7lb_R%SA_S\l~~SC}^c.%%SG:O`H~~SIN'G_R%SKZ_nDR%SMbYK;R% #% [ 59] br.rep !S6pNM)R%S6qKx;R%S6tH%u~~S6y?)zR%S8&-JDR%S8.iM)R%S89?2)R%S8ESy2R%S8SMnDR%S8c)1[%% !S8t8\m%%S:,x[v%%S:A-nl~~S:Vb[MR%S:mb{qR%S<,+;zR%SAB+@%% !S@I}?-~~SB@--~~~SB~YC2R%SDYOdMR%SF8ra@%%SFttWI%%SHY88DR%SJ?TOhR%SL'`iH~~SLkJq)R% !SNVZRMR%SPB}SDR%SR0RY_R%SRy%12R%STh@Y_R%SVXG?.%%SXI.ADR%SZ:L&DR%S\,;MzR%S\xV^2R% !Sb*xG_R%Sf97MQ~~SjHyg2R%SnYn,6~~SrkX\DR%Sv~'/DR%S|7(_)R%T.Ui}_R%T.if|@%%T0KslVR% !T0t)^2R%T2B@iqR%T2j[UZ~~T48vADR%T4a>G7%%T6/`M)R%T6X(Rv%%T8&JXhR%T8Np>_R% #% [ 59] br.lambda !S|>yJm%%S|CeTc~~S|Qxx;R%S|hq~VR%S~-HB;R%S~Qx/DR%S~z`}_R%T.Uq=hR%T.Z*DzR%T.]z=hR% !T.a@mv%%T.cv-.%%T.eWU2R%T.f,wm%%T.eL[%%%T.c`8l~~T.`o+?~~T.]1FhR%T.Xq%MR%T.TDIu~~ !S~/d--~~Snq7%%SRR[ahR%SP~/8DR%SPvU[%%%SR.+t_R%SRQDb7%%ST'sH-~~ !STbt2zR%SVLDf;R%SX=(.MR%SZ3ot7%%S\0&LZ~~S^0}.v%%S`6:2R%%Sb?NI%%%SdL?)zR%Sf\Su-~~ !SleB+@%%St%8LZ~~SzN4hR%%T.[ZrqR%T.}C2R%%T0F;1[%%T0j;V)R%T25@em%%T2[CFhR%T4xy*I%% !T6rxl.%%T8p%U[%%T:o{,_R%Tw~nm%%TB%f7MR%TD/m%%%%TF<*];R%THJKl-~~ #% [ 59] br_l1.amp !Q%%%%%%%Qb%-/&qrR0xk2)Y?R6f:/AvfR@a>c@OR2+'Rs3rR447klNI !R8;cdP\aRau*RVaU~G=PRZhRhKx;R^UfEkodRb%2Tokd !Rf=N']SmRfzt~rbxRfrts~F@RfNUurEiRd_*5liGRb@r:7IkR^ZaH]=nRZs;]xJMRX@>99cLRN1:fZ6w !RH8h9o,=RBdG|JuRR>_R%S.lu>6~~R`-fc~~~R:zj@%%%R1P7%%%%RS9[u~~~RsCwDQ~~ !S/PX\DR%S1}/@MR%S5K,.v%%S7n~JDR%S;5hIu~~S=T/DQ~~S?qKSl~~SC5H%u~~SEV'+@%%SG{{];R% !SQb[MQ~~SWI5[MR%S[mXpZ~~S_q|T;R%Sc7{_RSqAz_EqRSu)8/q)RSwbyYJP;S{=@TG_RS}l_,g[%T-]JG4X@T-j6tshRT-vOB';RT/>TI=@% !T/TMmU[%T/i/qMzRT/}%vmv%T15uXT;RT1HS5.v%T1YzeL[%T1j85SDRT1yn{}_RT3'GPwm% #% [ 59] br_l1.caps !ST+{U2R%ST*Na@%%ST&%el~~SRx^Bc~~SRnKl-~~SRaS(2R%SRQ{DzR%SR?yBd%%SR+WuVR%SPn{}_R% !SPVGO?~~SP;q~VR%SNyV1[%%SN[\P_R%SN<+'d%%SLu*DzR%SLR^.MR%SL.l>7%%SJcXT;R%SJ]H)zR%S>-P&m%%SjKh)R%PzTcZVR%R;WfWqR%RS@ndu~~Rid6nl~~S-Vv))R%S/XOH-~~S5D:.MR% !S9-gRu~~S;dqV)R%S?7i([%%SA_O|hR%SC}^c.%%SG:O`H~~SIN'G_R%SKZ_nDR%SMbUk7%% #% [ 59] br_l2.amp !Q%%%%%%%QL%gcYg[Qp\pvaF>`^l&R@5Jw4]3 !R@lEH>/eRB5.z{2BRBC-DyTTRB>TJYHoR@}|+%+,R@Pzc(,pR>l+M\n8Rze*jc_RD9X2(7ERHH6raNYRLIdD2%NRP9bZ/Y3RRlgr|p[ !RXb&)DH>R\50UcYhR\tnDbS+R^/|.aT-R\uZo{./R\.?irh=RXuy5AI(RV\3VfpERTJ*_'t7RL,oo42+ !RFRh--xmRB;xpDY1Rp.MR%Sx+p[%%%Svqp<];R%SHYDeWUR@7em?:{ !R@nUFsL2RB73~,rzRBDyo^Q>RB@0h)R%RB%>25;)R@QtmjQoR>la5f~BRp~_ !QjGW2f\@R0iFE3gGR62\dM4qR:Ta?wD.R>rC3UA,RD038{Y7RH>+o6tORL?%%mv%RP.`W),hRRa`r/IE !RXW09XQoR\*Bnq0lR\ip@iLcR^%',)8;R\l,z:bYR\'8_,f2RXq&Q[x+RVX2Vw|wRTF.fw[5RL+DQf'r !RFRBdqBFRB:{(m`\Rv~.%T1J0;Q~~T1Q^HjhRT1X\lZVRT1_@8q)RT1elt*qRT1l+qnDRT1r6;EqRT1x(8}7% !T3+pm9;RT38FWuVRT3Cm5[MRT3NEL:[%T3XEGk_RT3a~4+hRT3kM^VzRT3tdS}7%T3}[cF@%T5<0Fp[% !T5LI`y[%T5[fX;zRT5jlRqzRT5y._f;RT7-H|X@%T7:tHJDRT7GlkWI%T7VklrqRT7a+~F@% #% [ 59] br_l3.caps !SzJ%ADR%SzI2j?~~SzF[12R%SzBH)zR%Szp.MR%Sx+p[%%%Svqp<];R%S'NI6Q_R@J6:{I%RBU7N2AmRDFD)yEz !RDw=],.vRF1?g?YCRF))A,qBRD^<}BC[RBv>s1-_R@s&sDU;R>X|ANY[R<,h9urMR8MB~h39R4kyWW4i !Q|dh'29@R06;&baTR4?/dTNzR8EpB`D{R:N7y;cJR:BHzE>OR8F+}=t`R6>|O]|@R4sz`D*AR6V^i4hR !R:-}tlvRR>1w\wy2RBK(|a,|RFiN\)[fRL-D=|5ORPF+{-){RTRF,{qRRXMi~FG?R\6lKj+iR^]{QUEz !Rb{@LgO`Rdh(~w&yRdkjoO@IRdMmu=hvRbgMwqvkR`Qq.K&7R\t'yG=3RZ:eqX3)RVi0lUzLRLk'Ld'p !RFz)e(f~RBQtN1b8R>.Ak*/3R:f9)j8eR6~@0lK3R4sMdox;R2qzH^X-R0Xn|tNFR0A+z|ZM #% [ 59] br_m1.phase !S?>[))R%SCQM~VR%SG].12R%SKaUNqR%SO^m]c~~SSU+7v%%SWDTKc~~S[-5?.%%S]iA@MR%SaE0c~~~ !SctRUZ~~SgD)R%%%SihQ6-~~Sm-wm%T/zdRiqRT1(,~>7%T1/`[]d%T17=R9;RT1>en\m% !T1PWVPk_T1a.NDV*T1pV%XL3T3%:5jSMT33HgaP7T3A,x|dMT3N?TlvvT3[0CZ~~T3gI1VzRT5/8DR%% !T5E/Wy[%T5Y`adMRT5mZgwDRT7&PI]d%T79*%EI%T7JY6ZVRT7ZefSm%T7jIL>_RT7r-<4hR #% [ 59] br_m1.caps !ST:4xd%%ST8^Jm%%ST4&u.%%ST,E}_R%SR{p>_R%SRnKl-~~SR^HF?~~SRKp{H~~SR6vQVR%SPyk7%%% !SP`Z%u~~SPEU2Q~~SP(cvu~~SNd:s@%%SND;Am%%SL|lVR%%SLYx7MR%SL5axc~~SJj)f;R%SJC%z)R% !SFx;-VR%SDg[mu~~SD)+xc~~SBa5*qR%SB9;-VR%S@fJ,6~~S@7=@%%%S>aHvu~~S>0wq)R%SlcrqR%P|C{H~~~R;X&,6~~RSA.u~~S-VrI%%%S/XKh)R%S5D=hQ~~ !S9-gRu~~S;dqV)R%S?7lb_R%SA_S\l~~SC}^c.%%SG:S@MR%SIN+'c~~SKZ_nDR%SMbYK;R% #% [ 59] br_m2.amp !Q%%%%%%%QVr2@grvR.wBOrCgR49wd8iiR8Gtl>fHR&/ii !RFzS1NPdRH0n&wc>RF|S9-xxRFP;vPJMRDbik;8,RB\Di(=qR@?BJzxtRd:ORFwu2SkG !RNK2pZ+4RRj&KI.fRVB;8W7~RXBhZG2VRXhyEs(SRXQw}\5/RVe.'4FPRThGVH*3RRk}T.F?RJu;>PpS !RFL6Tz;XRB9e~@L7RN,_RT/5zi,_RT/FH-~~T3IdwHVR%Sx+{U2R%SvqGshR%Sv[=dMR%SvCYG6~~Sv*=;zR%StiJ\l~~StLvU[%%St.g&DR% !Sp}7%%%%Sn}43qR%SnLjH.%%Sn3}_R%%SlojP6~~SlOXdMR%Sl.xp2R%Sjh0G_R%SjFe_R%Sh3bwm%%SffA}7%%Sf=UNqR%Sdm\u.%%SdB_V)R%Sbpl%u~~SbD6rqR%S`q:wDR%S`D4'c~~ !S^/>&m%%SZz5;)R%SXry[%%%SVr@-.%%STu9CZ~~SRyM9d%%SR%%IMR%SP-m56~~SN;gs@%%SH~=H.%% !SFVaH-~~SD9t[MR%SB&U.MR%S>p<];R%S{{>k%5RBHSk|)fRDT6|WXHRFCF+{-* !RFpR+rNaRH'*..emRFsVcOnYRFHN[%X(RD\^MeL[RBX:37ktR@=XK{%ERQjOyuh39QxwD]`iIR0];w+=4R4Iz5d|,R8E:ntcWR_R%SI9g:Z~~SK~)V)R%SOat_R%%SS>O?~~~ !SUn0_zR%SYG7%T/(|4;zRT//6(g2RT/5Vs\DRT1JEH6.%T1SiHZVRT1[op{I%T1c3znDRT1j)[ADRT1pN[]d% !T3%E:Jm%T32kV~VRT3?*DzR%T3JDY?.%T3U%8L[%T3_7'Kd%T3i1sdMRT3rpqb7%T3|.oSm%T5;LI~.% !T5L(rQ.%T5[_>2zRT5j{-)zRT5yS.9;RT7-xE8m%T7;XEwHVR%Sx+{U2R%SvqGshR%Sv[=dMR%SvCYG6~~Sv*=;zR%StiJ\l~~StLvU[%%St.g&DR% !Sp}7%%%%Sn}43qR%SnLjH.%%Sn3}_R%%SlojP6~~SlOXdMR%Sl.xp2R%Sjh0G_R%SjFe_R%Sh3bwm%%SffA}7%%Sf=UNqR%Sdm\u.%%SdB_V)R%Sbpl%u~~SbD6rqR%S`q:wDR%S`D4'c~~ !S^/>&m%%SZz5;)R%SXry[%%%SVr@-.%%STu9CZ~~SRyM9d%%SR%%IMR%SP-m56~~SN;gs@%%SH~=H.%% !SFVaH-~~SD9t[MR%SB&U.MR%S>p<];R%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] v_k.amp !Q%%%%%%%QpH79`A@R4@(m,QBR:Poo`iIR@-~QcCORB~[BZI1RF2.^z]hRF`Tq-*iRFcB,wm%RFKt^cRBFk)nVfR@pCklYCR@?*.rSUR>fov/jXR>53Q6hBR<]\s5{)R<0xMY0T !RxR~<5%NeES.lUX%,vS0)L9QD/ !S04~'BtqS08k>z?US04vMJ@nS0,|BslVS.|.T^iCS.ogZap[S.bSD[S8S.TZe@ApR|f&?5jqRz*A\2b7 !RpU|.=zBRfe*%+t_R^O9*@P-RX**@wuZRR558E5:RL_C:dBnRHMY0;6aRD],%P_8RB,{1=iAR:S:WM]< !R6gNj_5[vB3R.i>&%6JQx'p44;9Qlw)1zD:Qh[YS}EYQT/5R5T3 #% [ 59] v_k.phase !S<}aWuVRS8p\Y2zRS4u||hR%S22(x|@%S.V%0C[%RbX|hQ~~RFLNqQ~~Q\12R%%%R9iiI%%%RU'd%%%% !Ro'C[%%%S-{p>_R%S14v=@%%S3BG;)R%S5H|X?~~S7GV5_R%S9B5&m%SCB1-:2RSEIQ&Gg[SGRKA4@%SIYuF?~~SK__:wDR !SMbZS`qRSOc>I9;RSQ`Mv))RSSZ\XhR%SUQ0p2R%SWCpNqR%SY2cnm%%SYx2~VR%S[`gFhR%S]G?RMR% !Sa1(k7%%Scy7EH~~SgkN,_R%SkX/l~~~So:\\m%%SqodIMR%SuF)f;R%Swp3eDR%S{88DQ~~T-eg7iqR !T-zPvY_RT/44&,7%T/GxIahRT/WzF;zRT/iY(Jm%T/xzAHVRT1.dY_R%T1A=,{qRT1WM-2)R #% [ 59] v_k.caps !S6S5.u~~S6R3}_R%S6O;V)R%S6JH2)R%S6C]Kc~~S6:{I%%%S60OD)R%S4~32gs@%%R0~YC2R%Q1J7U[%%R3Y5G7%%RAcfd%%%ROs&P_R% !R_%D5_R%Rm']x;R%Ryt[qzR%S-zd9;R%S/ZJDR%%S17y_)R%S1mI))R%S3F~jhR%S3xuJDR%S5OQJDR% !S7kRz)R%S;-q^2R%S=LNM)R%S?h/4@%%SA{s/m%%SE,9Kc~~SG.xp2R%SI-V-VR%SK*reDR%SOlyg2R% !SSD~2)R%SUpP*qR%SY:t.v%%S[Qs`I%%S]dXpZ~~S_s9Sl~~Say)Z.%%Sc|WuVR%Se|p[%%% #% [ 59] v.rep !S4c<}_R%S4dI))R%S4gm9;R%S4mOT;R%S4u?%v%%S6%;b6~~S61>;)R%S6?80;R%S6O)Al~~S6`dU[%% !S6t*qR%%S8/0;Q~~S8EimMR%S8^'3I%%S8wo';R%S:93H~~~S:V/XhR%S:tcVR%%S<:|\DR%S<](*I%% !S>z.EH~~S@XLVzR%SB45O@%%SBn]7MR%SDQk2zR%SF7EmMR%SFy)~VR%SHb_R%%%SJMrmMR%SL:N(Z~~ !SN(@=@%%SNq7=@%%SP`~NH~~SRQZVQ~~STBt[MR%SV4kC2R%SX'3mMR%SXt(&DR%SZg='c~~S\ZvQVR% !S`j3(Z~~SdzvMQ~~Sj2d]d%%SnEEDzR%SrX\hzR%SvlIU[%%S|&W0d%%T.T9OhR%T.h=hR%%T0J\l~~~ !T0r{8l~~T2A?^[%%T2i^*I%%T48)j?~~T4`Kp2R%T6.u6-~~T6W@u~~~T8%f[v%%T8N5{qR% #% [ 59] v.lambda !T%vIMR%T>.,cVR%T>3{8m%%T>5N,_R%T>0iqeq)R%TBG`eDR%TD}^c-~~TH_Iu~~~TLFqIu~~TP3eDR%%TT%q1Z~~TVw/q)R%TZsFt_R% #% [ 59] v_l1.amp !Q%%%%%%%Q^\RMPUkR0_{kNVTlRRBMf(;u_RDa^|c^[RFJCN;VrRFiCijc_ !RFhkQ^AQRFP*Mx9clkR<\C74~kR:n>E0Fq !R:\V4K*-R>i_NZ-6RFjcF5*qRRFTVpFhR^d`obdERl1m.0z>Rx*AzIQVS.[ml>JbS.~DrF9bS0;_KMG^ !S0G2d)8,S0J8=au1S0D}'X2/S0<(XdBXS0/rgwI|S.{|%l.4S.mu'>OwS.^bloGrR~g}BR57Rz}\|wP` !RrE&6]zbRhHz`8iER`'6TdC}RXQ?+=s^RRTG}*PdRLxuW/}qRHbiVc`zRDn,VI2XRB:u=LO`R:\=`VJ9 !R6m&u~PDR4H'Xv=@R2Hd'z>PR0@`N97NR.kVFJr9Qx6_a-dxQn,^kmGSQhk~dpBdQT;Y)]0_ #% [ 59] v_l1.phase !SRcQQ/8RD=f(Jp_RFzS1NPdRHUe^_XuRH;~xia@RFBwvSXiRD+WtJmI !R@bU&3f|R>?Q2a~kR<%;qfQFR8sMsjxdR6xWTx,xR648BxX`R4Yfbfw(R42*@:zZR2l=G,22R2QFbms} !R6'v>b?RR:Da3bwmR>H7/~}GRBk]qs)BRHo^>V'+RPJECnL[RX>IX3EiR`+K*]r5RfTJ)_EqRlD+LdL? !RpM.Hr_>RrsL+XdMRtXyWN*]Rtm9hjG?RtaL8/6gRt:FDx9tRr^i]X`IRpt[^{EERp'4ST\eRn(Y+Qnm !Rh0COj>&R`^T}.N^RZB?Cu]{RTR^m1{IRP)@*I|PRJpG\god%%%R]>od%%%Rmxp2R%% !S-SURv%%S/?+|hR%S1%2EqR%S1_GshR%S39~fd%%S3jW,_R%S5?JDR%%S5on0;R%S7J~%u~~S9.*a@%% !S?,Qfc~~SAj4;zR%SEZS`qR%SIOj/l~~SM5l)zR%SOb7mv%%SQyM9c~~SU'`DzR%SU}m=@%%SWrFX@%% !SYaW,_R%S[LuB;R%S]3|p[%%S]rZ%v%%S_S/(2R%Sa/zEqR%SabyJl~~Sc7i([%%ScccrqR%Se3U2R%% !Sg<=`I%%SiKJ,7%%Skb7IMR%Smwgg2R%Sq+}{qR%Ss588DR%Su<)Iv%%Sw@8(2R%Sy?ZVR%%T-SU2-VR !T-bvkshRT-qVuAL[T/&W}[q{T/2b&{Y7T/@BX8@NT/K~\rK;R%SZa6>7%%SZ\J4@%%SZVz-VR%SZPhIu~~ !SZIkO?~~SZB)=hR%SZ9Ju-~~SZ/kG7%%SZ%%mv%%SXrn`qR%SXe%el~~SXU84?~~SXC+7v%%SX.-.%%% !SV(K[v%%ST{viqR%SV(]p2R%STvf7MR%ST]yNqR%STI]d%% !SNf@iqR%SN4%ahR%SL\A>TWqR%S<@PC2R%S:K.12R%S8]Fp[%%S6sUNqR%S60';Q~~S0~-ZVR% !S.n2=hR%RniEiI%%RZ.qV)R%RFpDAl~~R4h)-VR%Q5,k_R%%R5QW@v%%RE8kG6~~RSO^k6~~ #% [ 59] v_l3.amp !Q%%%%%%%R.VCXUhFR6mqjU1cR>OGZ?;jRD9{b6VvRFvaK9i=RHR,AKzbRH8_)`Y7RF?y3H6.RD(z(=W- !R@`A]4U*R>=f*y6VR:}uT(hFR8rV,C2RR6x*gq'tR64--9&MR4Yuh:2.R42LGpVVR2lg:IRER2Qlx)tK !R6'Kaju*R:COqu^[R>F9RM\yRBhc]T(sRHkb]*y7RPEL.y:[RX8[;;WaR^~}?}NQRfMVY}*qRlRJoWCU?*RFrk:|i/RD4_^ivER@e_{[1{R:=Aeun3 !R6SM/R2zR%SW%K+@%%SWs~F@%% !SYc4t_R%S[NS0;R%S]6%--~~S]t7mu~~S_U1>_R%Sa1|\DR%Sad{a@%%Sc:5g[%%Scf0WqR%Se5WH~~~ !Sg>?vu~~SiM't6~~Skd9_zR%Smz4L2R%Sq/9WqR%Ss8)EqR%Su>P.u~~SwB^g2R%SyB';R%%T-Sr@QVR !T-c6@9;RT-q~}ry[T/&xl*D{T/3(oJ,7T/@qzrmNT/LI+EK;R%SZa6>7%%SZ\J4@%%SZVz-VR%SZPhIu~~ !SZIkO?~~SZB)=hR%SZ9Ju-~~SZ/kG7%%SZ%%mv%%SXrn`qR%SXe%el~~SXU84?~~SXC+7v%%SX.-.%%% !SV(K[v%%ST{viqR%SV(]p2R%STvf7MR%ST]yNqR%STI]d%% !SNf@iqR%SN4%ahR%SL\A>TWqR%S<@PC2R%S:K.12R%S8]Fp[%%S6sUNqR%S60';Q~~S0~-ZVR% !S.n2=hR%RniEiI%%RZ.qV)R%RFpDAl~~R4h)-VR%Q5,k_R%%R5QW@v%%RE8kG6~~RSO^k6~~ ifeffit-1.2.11d/src/fefftab/79.dat0000755000175000017500000003577010771740460015512 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] au.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] au_k.amp !Q%%%%%%%RDnHj*|SRd165cVRS.VRWSM)S0qaCL-_S2}ur8adS4yB=WG]S6biDk]WS8:9,GbhS8Z*4D9v !S8i*J@?_S8hth[\BS8ZlYGa>S8@g,HI]S6v/,6diS6HO4:^IS4mK|C7cS428MIU7S2L/OP~nS0b;uKyH !Rh..n<+qRDLr&ZyCR>t.-~FRRl'b=E.v%%SuetcVR%Sy7QVR%% !T-_'G%57T-tn0yNqT/}5z9d%T1@eq%qzT1Ur[aD*T1i9))d9T1{^_+B'T33+Hs;zT3Ca{7~.T3SL2vMR !T3ba(Rv%T3qEPBh)T5%lFzAmT54+&u.%T5BFL2R%T5P`h~VRT5^rBSm%T5lb%57%T5ynLZ~~T7,,21[% !T7FYlrqRT7\?S`qRT7m{.=@%T7{OLVzRT9++@IMRT92)d9;RT979U&DRT9:Bg_)RT9WH~~S_2Rmv%%Sc,0x;R%SeradMR%SiV2%MR%Sm5|;zR%Sog\8DR%Ss8gBd%%SuaVb6~~ #% [ 59] au.rep !S:an}6~~S:bO@%%%S:dB|@%%S:gM^2R%S:ko?VR%S:qQZVR%S:xJu-~~S<&[56~~S<0(NqR%S<:n(2R% !SgZ~~S*P?.%%S>==X?~~S>QT+@%%S>g62)R%S>~ALZ~~S@<};)R% !SB6Tt6~~SB~&@MR%SDa4;zR%SF8Y2zR%SFmahQ~~SHK>C2R%SJ+=|hR%SJgUg2R%SLKw(2R%SN22%MR% !SNt3DzR%SP]hrH~~SRHb_R%%ST4sL2R%ST|2^2R%SVjIADR%SXYRU[%%SZIG&m%%S\9unl~~S^+'?VR% !Sb5%~-~~SfAO'd%%SjOkg[%%Sn_T';R%SrpL&DR%Sx(6VQ~~S|:_)Q~~T.V)Q~~~T.j&P_R%T0L,&m%% !T0t88DR%T2BKd%%%T2jfOhR%T49';R%%T4aEa?~~T6/d-.%%T6X,2zR%T8&QrqR%T8Nsxc~~ #% [ 59] au.lambda !Rj(`a@%%Rj*_=hR%Rj0[--~~Rj:T/DR%RjHFdMR%RjZ+X@%%RjoY*qR%Rl.mv%%%RlKfKd%%Rll4+hR% !Rn60p2R%Rn]N0c~~Rp.*a?~~Rp[zMzR%Rr2zvMR%Rrg/`qR%RtDI--~~Rt~po;R%Rvb[MR%%RxIu6.%% !R|sGcVR%S.TwL[%%R~pR--~~S.T5od%%S.[=dMR%S.dw8DR%S.pN(Z~~S.}Qfc~~S01lJDR%S0A1s@%% !S0QGSDR%S0bHJDR%S0t->7%%S2,Hnl~~S2?9h)R%S2RRiqR%S2f6:2R%S2z>2zR%S44_Z.%%S4ID5_R% !S4~6vv%%S6ZD=hR%S87VIu~~S8o[-.%%S:NCg2R%S<-c)zR%SGm=@%%S@(PshR%SD&B+?~~ !SFD/}7%%SHbc2)R%SL'v]d%%SNGfl-~~SPh%))R%ST.ahQ~~SVOhvMR%SXq38l~~S\8q)R%% #% [ 59] au_l1.amp !Q%%%%%%%QZk4g;%MR0@8?5/lR4oG}[cFR:7B~{OuR>IPbQfdRBIqV)R%RF68_^2RRHj0}lrrRL/YnRpC !RN=Zv680RP;A.gvVRR&j9v*aRR]i5T/iRT+SL[%%RTF4f9t7RTRb%oSmRTQNzXP7RTAQ6:'XRT&leW7~ !RPG4Su*ERP;C{y/7p,pRp5w:2d9Rn=_;)&v]@R:Z:b4uNRtI@f%9 !RFd=n`([RLBEZt=,RLqSlc?oRJk;0uygRH9vftbhRDucHX/mRB{RAgx_RBSC2{jNRBj*am3VRJ*^z&=1 !RN?Pfw(3 !T-kTmem%T-v[o:>`T/(b;nh{T/686M5_T/EtczzRT/X&712RT/kn|H.%T/~|c:2RT15Pi8m%T1B|Us@% !T1[J`qR%T1m(|7v%T1{KaX@%T3-FYSDRT36xLRv%T3>BG;)RT3Cw'C[%T3Gj'd%%T3K5a/m%T3^JA7%T7;hHb_RT7K)O|hR #% [ 59] au_l1.caps !S:+~jhR%S:*}_R%%S:'z=hR%S8|t_R%%S8upJm%%S8liy[%%S8al2)R%S8Toh)R%S8E|'c~~S857%%%% !S6|Q%v%%S6gsdMR%S6QE,_R%S68qrH~~S4xF'd%%S4[n@MR%S4=6b_R%S2vDZ.%%S2S:FhR%S2-cNI%% !S.a=3qR%RhVtK;R%RXV2%MR%RP;u^[%%RF,VZ.%%R:G%~-~~QzRaD)R%QQ3dUZ~~R5x^g2R%RCn?:2R% !RQkwl~~~R_knP_R%RmimqzR%R{d+t_R%S/*gb?.R:BbQ~'TRBPhp4T;RJ6W7rL;RNuo'~X0RRBIo7%IRRPE_v\, !RPY8BtWmRLvBVKWMRHif9gm^RDKdQB,xR@5Z;&zErR8wDzueuR8:_T}^?R8=K||R^R8v'&,T3 !R>]*}K,xRBxq_zCKRD[rY_o3RBwP7t-cR@h>VIjCR>hvi1xnR>/_ma~FRE\od/yRF6mcb?K !RJhqkA)cRNTXzaY[RPN|Itk?RPl:4JVuRPC35d9gRN[@x_Q~~ !S/e*}_R%S3WSy2R%S7SXhR%%S;_vqzR%SA)4'c~~SEa/m%%%SK>]OhR%SOZeP_R%SSQ@9;R%SW&HVR%% !S[et?.%%S[>pRu~~SWnIEH~~SUqjdMR%SW&edu~~SWioOhR%SYc&@MR%S[adqzR%S]bVZ.%%S_dj;zR% !Sai`Q.%%Scpk6~~~Se|Zfc~~Si5h%MR%SkTW([%%So'C[%%%Sqct*qR%SuP]+@%%Sy:)5_R%S{lG.u~~ !T-`i|'d%T-qKt[MRT-}brU2RT/-)YcVRT/3ixG_RT/87kO@%T/:j}bC2T/;]|-jiT/;zl|X@T/Gd;WunHWT/c-O\DRT/rd<,_RT1'hgNqRT17{.=@%T1FuG.v%T1Veq)R%T1f_*@v%T1u3l:2R #% [ 59] au_l2.caps !SZ3hZ-~~SZ3@QVR%SZ1xWqR%SZ/\m%%%SZ,G7%%%SZ(;Iv%%SX}5k_R%SXw9|@%%SXpDAm%%SXhXP7%% !SX_kSDR%SXV'+?~~SXK47u~~SX?8y2R%SX2*@u~~SV}ShzR%SVmPC2R%SV[o/DR%SVH@9;R%SV2^2Q~~ !STn{o8J}R:z7Fn7zR8Y|)\IjR6uoSSP`R6uHl|;2R8Ob3CQ> !R>+=2H>7RB>aaFP7RBy)e.d~RB9/R>5lwWC`RI]?VR%S:712R%%S6,NQ.%%S2):Ru~~RvrmMR%%RPyFhQ~~QlJDQ~~~RAMrH~~~Re9[u~~~S/%+t_R% !S1n0_zR%S5dDZ.%%S9gyFhR%S?&YWH~~SCXNY6~~SI=oG_R%SMn%ADR%SQz\y2R%SUcLFhR%SY.mv%%% !S]f[-.%%S]Kdmv%%S[/qrH~~SW{mqzR%SWyCRu~~SY[34hR%S[QRqzR%S]MjdMR%S_L~^[%%SaMZRMR% !ScPry[%%SeVj?~~~Sg`|'c~~SirQRMR%Sm5bgZ~~So`qR%%%SsB4\DR%Sw.S4@%%SyrCg2R%S}KPWH~~ !T-fZq9d%T-w9/hzRT/)HmY_RT/2W@QVRT/9/*}_RT/=S>&m%T/@(p5C2T/@r4V=iT/A*+=X@T/LPENK\`:-_ !R@Nd&OA8RBK7v'wMRDA;N_x+RF25<(+\RFx0=:g2RH^~hS?_RJ?(C*mNRJqvAHs`RLDrta(SRLj8e/bO !RNM+7-.%RP`1{>lNR\-'>+n}RbSD%DGtRh9r?>7%T/Rj4`I%T/iT`iI%T1%9?2)RT16cgwDRT1D4+D)R !T1[Lqb7%T1kw^Jm%T1yR4H.%T3++w,7%T34]j+hRT3<6_nDRT3AsbK;RT3E}_R%%T3I\:k7%T3](GWI% !T3m@Y;)RT5%XOlVRT58_=D)RT5J}EY7%T5^>X7v%T5pBk?.%T7)(IY_RT7:\d-.%T7J(Df;R #% [ 59] au_m1.caps !S:1CwDR%S:0Bl-~~S:-?JDR%S:(9l-~~S8{1wDR%S8r/,6~~S8g-^Z~~S8Z1:[%%S8K=T;R%S8:RQVR% !S8'p2R%%S6m8q)R%S6Vd9;R%S6>:_)R%S4}hnDR%S4a:g2R%S4B]/DR%S2{n`qR%S2XdMR%%S233U2R% !S.fFL2R%Rj8kG7%%RZ_%MQ~~RRO_Z-~~RH=H-~~~R?}oR0pQsIV0R4u+o)'tR<1w;T~gRBHc`];RRFt]7YTXRJ;{DV)RRJR2mz)R !RHn=qD+0RFJ_SY2zRB[1E=N5R>Z}8;~VR:_V=w,7R6{(m?m~R4cmXW,`R4'L6Kx`R2}Y04,|R4Qj:7iq !R8tNIVy?R>%RHAL[R>hRmH+XR>AXSx37RJST@ !RFqGyL<9RJa@?M%;RLi-}T'gRN;(%riIRN%|GwaCRLR&86e|RJa&/b\KRH\=Yae'RF9TXUUJ #% [ 59] au_m2.phase !S9Y{qR%%S=lnl~~~SAxD%MR%SE|Y.v%%SIy_)R%%SMo*,_R%SQ]<@u~~SUCPO?~~SWzOX@%%S[Kt7%%% !S]e5SDR%S_V^2R%%S]dJ_RT-qyn(2RT-}H}G7%T/,0/DR%T/2DD^2RT/6Gi8m%T/8a9HrqT/9B7;=iT/9TNk&mT/E(,C{I !T/QXrs/mT/`G]+@%T/oziQ.%T1%,T|@%T15IO/m%T1DRB3I%T1TUG2zRT1d]4\DRT1s5VZ.% #% [ 59] au_m2.caps !SZ46b_R%SZ3dz)R%SZ2C&DR%SZ0';Q~~SZ,k_Q~~SZ(\8DR%SX}VZ.%%SXwW0d%%SXpaP6~~SXhnDQ~~ !SX`'G_R%SXV5_Q~~SXKBl-~~SX?Cs?~~SX2-zzR%SV}WH~~~SVmS}7%%SV[o/DR%SVH@9;R%SV2eL[%% !ST_R%S:=Bp2R%S6xbG6~~S4Z:2R%%S2=c:2R%S0%[=@%%Rr,9p2R%RZfv9;R%RDle,7%%RCy'3H~~ !RkA>&m%%S/AO'd%%S3)2Iv%%S5a6>6~~S94NY7%%S;_8u.%%S?*DV)R%SAGR12R%SCc2rI%% #% [ 59] au_m3.amp !Q%%%%%%%Q6zr4g(kQH7\(PH&QV1m]FqR0\{h_xt !R2LS4|1oR2Da3B/DR2Fg)8WzR2Q\{T-gR68P^KjP !RHX'B1,OR6a?~MlBR4H(OQ3hZR<[V'I~5R:gldb%OR:&wn([BR8\7@uaqR8YDt&vqR:,bKt55R@[tTn=& !RF%Tn^B*RHnCt+I+RJw,mi]-RLK0{G}tRLC2R%SSfPWI%%SWMx+@%%S[-Cs?~~S]]7MQ~~ !S_~[iqR%SavU[%%%SYOyRv%%SQ+>G7%%SQljD)R%SSqvMR%%SUyhj?~~SW~I12R%SY}4|hR%S[t?vv%% !S_se<:?rqT/>h]z=iT/>ha9SmT/Ic<-NI !T/V=ba/mT/dpXX@%T/t>jp[%T1)QpJm%T19\VAm%T1H^/_R%S:=Bp2R%S6xbG6~~S4Z:2R%%S2=c:2R%S0%[=@%%Rr,9p2R%RZfv9;R%RDle,7%%RCy'3H~~ !RkA>&m%%S/AO'd%%S3)2Iv%%S5a6>6~~S94NY7%%S;_8u.%%S?*DV)R%SAGR12R%SCc2rI%% #% [ 59] au_m4.amp !Q%%%%%%%QLS)d\:kQr]'/ib/R0cainoLR4K'FRd~R8&QxKJQR:On_nwURvQ2MYdR@tYVj1K !RBdAjIemRDGH]qX,RDw-arK'RFAM4vKtRFYv-fQkRFg]nv{aRFl'cirARFj.Dc80RFb/HO7vRFS*.w\m !RD\hySKHRBm^By1cRHsuFZ|XRLk2)_qZRLS?gaq%RHY~kHnmRBy.<5i]R>ufi;H>R>U7v|P7R@S.8Su. !RBgGr9MBRDNSwBOhRDLY3zu_RBhomrw}R@T9|EotR>+A:Nj8R:\nr{U{R8EO1.g&R6MFTFL3R4}CIXW- !R6aJc>7%R:Bdj(=(R<7GLk>?R:vkSmlnR8~xNa.RR82&cZ6KR6^(LbWuR6X5;L0PR84@uvHmR@QMc=F_ !RF_RT3(~6RMR #% [ 59] au_m4.caps !SpT4\DR%SpS|H.%%SpSIEI%%SpRH:2R%SpPn,6~~SpNdU[%%SpKsH-~~SpH<}_R%SpCjH-~~Sp>G[MR% !Sp8'CZ~~Sp0_zQ~~Sp(9l-~~SnxhrH~~Snn93H~~Snb[))R%SnUx3H~~SnH6RMR%Sn9Bl.%%Sn)?F@%% !SlK_1Z~~Sjp*mMR%SjVO3qR%SjR\u-~~SjLvz)R%SjDM1[%%Sj9hrH~~Sj->6~~~Shxg_)R%Shgx|?~~ !ShTX`I%%Sh>Jq)R%Sh%@z)R%SfcIU[%%SfE'l-~~Sd~VR%%%Sd\MIv%%Sd9?VR%%SboX`H~~SbKjP7%% !S`NFX?~~S^Uhj@%%S\`XlVR%SZkLNqR%SXt(&DR%SVztoc~~SV(lJDR%ST4hR%%%SREmqzR%SN*qvMR% !SJY;)Q~~SH;EqR%%SD|R]c~~SBf_1[%%S@[D~VR%S>RXpZ~~SXf*eS,RB)oXf9tRDAnI2mzRFE0L,~> !RH3d)a~kRHiGo2KTRJ1Q]shvRJBu9YO@RJCe2LBdRJ6Q?icgRHx?,(8YRHZ(H4+hRH7hMQA(RFkeP%57 !RDKHKCLKRBS@8E@vRHZgajL{RLTKc:.rRL=/W-JiRHDzI;b7RBh0EoOiR>mQ,z9dR>Vu}8\mR@ZQi4D) !RBok+W_bRDUF.57%RDPvHM.ERBjSHmoTR@SO*vbWR>(fOq;BR:Xl}o`ER8@4Ep[nR6Fr{1RvR4uD,8Y3 !R6V)C=b'R:6*+U~:R<+;dev/R:l)6Fh.R8vNDfMfR8,kWb`OR6\E8awgR6Y{VG^;R89>+Ca|R@`yAgyh !RFSh0*u6RJ_xf0+GRLrLM?:^RNPUrr9}RNA@S`+tRLl&aWRWRL,o:n(3RJ6jPq\)RFsOPG>?.%T/DGO?~~T/J~C*I%T/Rb2zR%T/[^K[v%T/ecq9d% !T/}-xSm%T12[{a@%T1<9_V)RT1AZ;EqRT1Btt{qRT1@p,od%T1G[MR% !Sp8'CZ~~Sp0_zQ~~Sp(9l-~~SnxhrH~~Snn93H~~Snb[))R%SnUx3H~~SnH6RMR%Sn9Bl.%%Sn)?F@%% !SlK_1Z~~Sjp*mMR%SjVO3qR%SjR\u-~~SjLvz)R%SjDM1[%%Sj9hrH~~Sj->6~~~Shxg_)R%Shgx|?~~ !ShTX`I%%Sh>Jq)R%Sh%@z)R%SfcIU[%%SfE'l-~~Sd~VR%%%Sd\MIv%%Sd9?VR%%SboX`H~~SbKjP7%% !S`NFX?~~S^Uhj@%%S\`XlVR%SZkLNqR%SXt(&DR%SVztoc~~SV(lJDR%ST4hR%%%SREmqzR%SN*qvMR% !SJY;)Q~~SH;EqR%%SD|R]c~~SBf_1[%%S@[D~VR%S>RXpZ~~S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] ac_k.amp !Q%%%%%%%S09x'Q`VS:D^F.Y?SD;AItW|SLo,;MmGST~+DLN%S\a~6'Y^Sbp42ZynShK?k7B3SlL2MwYW !Sns'(+r9SpgTnIirSr+o>NnhR^~./hh>R^];NDzRR^MVpX|iR\e)MX{zRX?'D^A,RR+_VMzRRLyx./BPRLIMQxLSRL='XC:[ !RPqk<7GKRT7zPXc_RV.s?`GGRVYCuX/mRV/%l8F0RTk8l;xtRRG2)HttRPk}e4@%RPb>l/JY #% [ 59] ac_k.phase !S:Cqb6~~S6.b{qR%S0v>.v%%Rp>&m%%%RDoG_R%%R/BSm%%%RY5cVQ~~S-ahvMR%S1d0C[%%S5crqQ~~ !S9`|L2R%S=[EmMR%SAS({I%%SEGx[u~~SI9unm%%SM(s@%%%SOn[56~~SSV|T;R%SW;`4hR%SYv?B;R% !ScUPO@%%Si?dahR%SmVjdMR%Sq+YSDR%SuO07MR%SyW>shR%Sy}+`I%%Sys+D)R%S{SH2)R%S}m-vu~~ !T-^216VRT-m6}G7%T-|WTh)RT/2N6F@%T/BmADR%T/TA)EqRT/hKSl~~T1(,6.mvT1KKfV^3T1nyq6NI !T3EmAp:[T3_KfhrIT3oe0cZWT3}':fh*T51(FhR%T5>XurqRT5H|7QVRT5OR1{I%T5UO)f;RT5l%0h)R !T5}'P{qRT78&c>7%T7L?gwDRT7aGBh)RT7v+6b_RT9/}mahRT9CjhvMRT9U].U[%T9hfnTd% #% [ 59] ac_k.caps !SDEsT;R%SDEVEqR%SDDXt_R%SDB{,_R%SD@b{qR%SD=jT;R%SD:;Iv%%SD6/\l~~SD1Jl~~~SD,2zQ~~ !SD&B+?~~SBz%MR%%SBs7--~~SBkv~.%%SBd8LZ~~SB\/LZ~~SBS_^2R%SBJd-.%%SBA@MR%%SB7GK;R% !S@nS,6~~S@P4|hR%S>|;V)R%S>HQ:2R%S>9&q)R%S>4B';R%S<{|pZ~~SO?~~~R~q@~-~~Rnu+3qR%R`&xC[%% !R:6:{I%%R1qg*H~~ROx[QVR%Rkjl2)R%S-{eDQ~~S1K*,_R%S3yk[MR%S7M}gZ~~S9tujhR%SAS,[MR% !SEp9G_R%SK2/4?~~SO4:g2R%SS,7IMR%SW&b*qR%SYl4+hR%S]L:6VR%Sa.j`I%%ScbqAl~~ #% [ 59] ac.rep !S>wlZVR%S>x>C2R%S>yk6~~~S>|;V)R%S@%g&DR%S@*9[v%%S@/cb_R%S@64t_R%S@=dqzR%S@F8@MR% !S@On4@%%S@ZK3H~~S@f0WqR%S@rtgZ~~SB&gBd%%SB5e}7%%SBEm))R%SBW)nDR%SBiL_)R%SB}(o;R% !SDe8hzR%SF=q%MR%SFxfp2R%SHai@u~~SJ;AHVR%SJk~b_R%SLF:g2R%SL|]|@%%SN[8(2R%SP;nDQ~~ !SPxI=@%%SR\n8DR%STBt[MR%SV*MrH~~SVmLc-~~SXWf3H~~SZC.))R%S\/Q)zR%S\vmu~~~S^d}?.%% !SbhM1Z~~SfoSHVR%Sjy?rqR%Sp+=3qR%St8yVzR%SxGz9d%%S|X)Al~~T.XmEH~~T.lX/m%%T0N5WI%% !T0v/Td%%T2D4L2R%T2l@]c~~T4:PO?~~T4bczzR%T60~fd%%T6Y?RMR%T8'Z>7%%T8O|D)R% #% [ 59] ac.lambda !RZ)&`qR%RZ*'l-~~RZ,}shR%RZ1|7v%%RZ8y2Q~~RZAtcVR%RZLgVzR%RZYUFhR%RZh:Rv%%RZxp{I%% !R\1A,7%%R\E[9;R%R\[eHVR%R\s_Z-~~R^3BSl~~R^NoOhR%R^l+3qR%R`1-:2R%R`Qub_R%R`tT3I%% !Rd4.~.%%Rf2>2zR%Rh@M-VR%Rh[)rI%%Rhr@--~~RjBG;)R%Rj}VZ-~~RljKCZ~~Rn`gFhR%Rp^ruVR% !Rrcap[%%RtnE@v%%Rv~.IMR%Rz8GgZ~~R|P^>_R%R~lMZ-~~S.\;5_R%S.h^VzR%S.u=lVR%S0(2vMR% !S0I3Y6~~S0k9';R%S24)f;R%S2WTh)R%S2{U2Q~~S4E}_R%%S4jlzzR%S65yJm%%S6[AhzR%S8rehzR% !S:e5SDR%SKMAm%%S@?0Kc~~SB3-)zR%SD'C6VR%SDugwDR%SFjHRMR%SH_4'd%% #% [ 59] ac_l1.amp !Q%%%%%%%QPIKtkPxQz,*@EthR21-otydR4rRoTuJR8Cm*{U{R:Vtoc~~R6YV;PGR>e6_W&} !R@3K[gJmR@c{D2B\RBR6JDR%RDh<3};*RHR;QK|@RLkECE};RRL>;MYdRXCbv4p7R^@nxseRzQZwnFyS0()bJ[wS0dR;Q'uS2+2&@j`S24VQZ+rS2-}<4_HS0wS9{eSS0]oC%6} !S0<*YW5bS.mIAunSRzkw:%Y;Rn~-Qf\eRbvQjsl{RVocS/>'RL;O3qR%RBlH1W'lR>MbJ|eg4\=7v !RJ/`0iotRP|wCdx'RTArhZ.%RTDCKnqrRRY_d,0TRP:4Z`s0RLaTYNXHRJL&I|+hRHfavcyCRHKC)|fP !RL46a'S[RN6r_ruORP4|1yh?RPZ@H2X3RPGPfa3qRP8L~s&,RN1P,IX|RLnZy4{qR%So9bk_R%Sqi|XdMR%S>U;Iv%%S>&wTd%%S43qR%S2Rd~-~~S0f3I%%%S.y%12R%RxKH)zR%RhX8du~~ !RBR=dMR%QeZ-6-~~RKS:k7%%Ri\s+hR%S-xW(Z~~S1ISXhR%S3v@12R%S7Goc~~~S9mM-VR%SAR2j?~~ !SEok?.%%SK/bO?~~SO3DV)R%SS,M=hR%SW%oSl~~SYkShzR%S]LP*qR%Sa.Q2)R%ScbT3H~~ #% [ 59] ac_l2.amp !Q%%%%%%%Q0l?nbR8QM{SxJuR@w:n]F(RB}p?_u_RDYRW^dfRDe.QnW1RDPDapx3 !RB&.&LiYR@b_]/VfRB/4*1RTLCWD8uRZaw`.KtR`*&O0MBRbK\7W*9Rd%qQn{YRbnap8gC !R`xFk|FuR^G]nS:kRZ/o8{o+RT8*l<\/RPG_em]1RNH?F/{YRL\|)k>8RJ^tH|s> #% [ 59] ac_l2.phase !RO[IMR%%R}+X@%%%S1^yk6~~S5t9Kc~~S;0_1[%%S?H[EI%%SCayRv%%SG|c:2R%SM:;%MR%SQIcjhR% !SUK?zzR%SY;>WI%%S[s3qQ~~S_?<}_R%SaWW4hR%Sce:FhR%Sem,cVR%SgsOlVR%Si|n}6~~Sm1VzR%% !Su0E4hRT19&[57%T1+@j;zRT/mQ2)R% !T/_pk7%%T/h^.qzRT/sH8y2RT/}_rmMRT1-W+'d%T16_g*I%T1=nuvv%T1BhrH~~T1Fzq5_RT1XNz%MR !T1eDJdv%T1uf3tg[T3-D__ErT3>a`X@nT3PI(/`qT3aaz|/mT3s4X?~~S^k<x|@%%%S<]^g2R%S6-2MzR% !S2(p*H~~Rt\y{I%%RN4Bp2R%Q^YP.v%%RAMgNqR%Rc4b&m%%S-\y2Q~~S1/ZjhR%S3ZZzzR% #% [ 59] ac_l3.amp !Q%%%%%%%Q26`L).EQ>5oOYwmQHnz/}7%QR~6{e'DQ\i_JsP7QfCKUSw0Qp2J35HoQzr[haKhR0&z)oM_ !R0}Cvx2wR45O&CTTR6[AJj;2R:1o.,jqR<_5;dVJR>z-@wy{R@sKLDAmRBCN<;6*RBE9n^4yRB(1+/2b !R>FIV6z2R>&lH50TR>eH&Gg[RHC&Bu`9RPYuWl^[RVkDcZGxR\7go}.vR^c^3CnMR`J|6GayR`I'I+mE !R^b~8BpWR\BG>5]+RX:lp5`ARRR0n7vIRL7mnWk'RDT@;/uwR<_{t`@vR4{@Xw3QR0:M3pQ[R0)=YMms !R:Wu^,C{RBhqaoNzRFnji}(oRH`;Lp<]RH^42ADvRFpS}.;bRD]R)XSqRB`@qt@ARB;MWamxRB|(TT{} !RF{Q]TjPRJCjRaD*RL`wqcD3RNFbeQ0tRNIqW5q_RNV53sX_R%T-cK,.v%T-y*[9;RT/1aP7%%T/B1v12RT/P]e\m%T/]>JL[%T/h.J4X?~~S^k<x|@%%%S<]^g2R%S6-2MzR% !S2(p*H~~Rt\y{I%%RN4Bp2R%Q^YP.v%%RAMgNqR%Rc4b&m%%S-\y2Q~~S1/ZjhR%S3ZZzzR% #% [ 59] ac_m1.amp !Q%%%%%%%QHwjwyO`QlqMDq.ER0GPu\4@R46dMPUkR8)<-)zRR:}?i{K'R@(7liy[RDAN81zZRHx68sbK !RN~-,5dERV\5MmriR^hpFaySRfvvg3.bRn1hM1[%RpW5*&j}Rp=BHkWIRn3tx2D:Rj~XmLB@Rj*4jbod !RhE(XtflRj&0TS0eTbdUmS0adcG>YS0P9-:n> !S02\@_+7S.dwm?huRz(6EF3qRnY*lHfdRd.{x]SmRXu6+SxDRP?-=bC{RHf~dzU;RDa&ZJa`RDA:&h8u !RJ?[lOc_RP8+GwZkRRLX>*([RRN75kPxRPdfqP*)RNOtRKyaRL/cy4qJRJ((taxdRHCGQi5,RH'E+8be !RJ^K8{^aRLX52cNfRNYK;&(fRN}/&NoqRNm=v?]{RNbz3I0aRL`)V\uRRLHf'`0vRL+u`.%| #% [ 59] ac_m1.phase !S1AkG6~~S5U;%MR%S9bRz)R%S=iY6~~~SAj7v%%%SEd34hR%SIVq~VR%SMAXhR%%SO}5G7%%SSSn8DR% !SUvpBd%%SY.EmMR%S[*ot6~~S[j1&DR%S];hb7%%S]_D^2R%S_-M5_R%S_`HZVR%SaD6rqR%Sc/\HVR% !Sga)Am%%SkF1Jm%%Smx9OhR%SqMEM)R%Su)16VR%SwRW8l~~SyiH6.%%S{qEM)R%S}k^c-~~T-WI|P7% !T-]x,wm%T-czoWqRT-iZyg2RT-nqC&DRT-sE&}7%T-vZ\}7%T-wsLVzRT-v?>[MRT-r+zLg3T-m?.xp2 !T-joauNIT-s:}TfLT-~)ta/mT/.g2&[f[v%%S>,l)zR%S7%%S2V't6~~S0iEDzR%S.|,2zR%Rxi>*qR%RhuCNqR% !RBm0CZ~~Qa,@H_Q:Gv*d8MQ4nUp|J0P\'vzA6BQ2_._^{IQLXxZ&1s !Qp\}RIy;R21)qKSmR8%^R|WQR>+]zpk7RB[k'b-cRDr]vVIvRDc/y{I%RBR*CqE)R>mE4t3iR:y4&O6> !R0o`\*CCQx|Y*k@AR0HgVBF(R8Z~>>r&r=RL-]661_RPE>}{([RR|%:^T/RTm|p*31 !RTt%|kv5RT1`X5siRPbC}YodRLXrU/zFRF{6jN<)R@{a)I-.R:m8NkodR4k){[1{R0SQL+)BR0'Gmy,' !R6}Y3{G5G{u2RB.zW7h:RBvGTY@fRD)vP4k}RBZd:X\bR@j9UrDDR@)q,apbR>gWW\/MR@W>2yjH !RDYQ)@BBRF|,o911RJC@@)DPRL5C'3imRLF13i+/RL\G:I57RJq1IY;JRJ>n6'hYRHRY:GlV #% [ 59] ac_m2.phase !R\N@u~~~R0Vj@%%%RC3M)Q~~Ri]OhR%%S/=ywDR%S1xUJm%%S5@aD)R%S52-2)R%R>N(Z~~~R2bod%%% !QQ)R%%%%R9)EqR%%RCzAm%%%RK`M)Q~~RObcVQ~~RSHZVQ~~RY?JDR%%Rc8,6~~~Rq;R%%%%S-fg:[%% !S5sn}7%%S?dVIu~~SI[{gZ~~Sv)?jhR%Sth[em%%StLG2zR%St._f;R%SriO+hR%SrHrqQ~~Sr&{}_R%Sp]fp2R% !SnFMj?~~SlNP?.%%SjJWU2R%ShGMb7%%SflS`qR%SfBHrqR%Sdne@MR%Sd@V%MR%SblgRu~~Sb?kWI%% !S`m=dMR%S`@bWI%%S^m:s?~~S^>xu%v%%S<]^g2R%S6-6.%%% !S2(hj@%%Rt\Y2zR%RN4U*I%%Q^TN0d%%RAN1wDR%Rc4b&m%%S-\|lVR%S1/^Jl~~S3ZZzzR% #% [ 59] ac_m3.amp !Q%%%%%%%P|I^mfMBQ6?KvvPhQ=PQ>,jbxn0Q4fLr\(2P6/Qnn7zJ@RB&6Pod%R@smLHr)R>j1[=khR<3.^UnMR8DZJs3) !QzKCL:HkQ`y&^06:R01CX8zjR8W@jj[VR@F6O/2bRFZ+rU{IRLW_I]ysRPw+knu.RTU'~twIRVC'pTHs !RVB&IHAMRTQDkA0;RPzf0:B@RLkI*^&iRH0 !R6Eu-3w4RxRB*p]2]&R@_r)WueR>sE:&=zR>4_bq|qR\8pHG( !RBY:0=@XRDvw|V|MRH8'6'~nRJ,7,t:|RJA7gTb&RJX7F\DRRHt]uDC9RHGBVYP[RF`So+Li #% [ 59] ac_m3.phase !RHYgZ~~~Q{WI%%%%RW5k_R%%R}tshR%%S1CT/DR%S5+%=@%%S7^VV)R%S9{\q)R%S1'&(2R%QO&DQ~~~ !R9dQVR%%RIZrqQ~~RUQ%v%%%R].9;Q~~R_z=hQ~~RcH>6~~~Rgzf;R%%RqNU2R%%S-RB3I%%S/EHZVR% !S7[Kt7%%SCn-%u~~SMevADR%SQvcF@%%SUow(2R%SY].12R%S]5V~VR%S_R]?VR%Sa\?^[%%ScUfC[%% !SeB{uVR%Sg(Z6.%%SgcHfd%%Si@+P6~~SipDAl~~Sk=5shR%SkQE,_R%Sk=egZ~~Sv)?jhR%Sth[em%%StLG2zR%St._f;R%SriO+hR%SrHrqQ~~Sr&{}_R%Sp]fp2R% !SnFMj?~~SlNP?.%%SjJWU2R%ShGMb7%%SflS`qR%SfBHrqR%Sdne@MR%Sd@V%MR%SblgRu~~Sb?kWI%% !S`m=dMR%S`@bWI%%S^m:s?~~S^>xu%v%%S<]^g2R%S6-6.%%% !S2(hj@%%Rt\Y2zR%RN4U*I%%Q^TN0d%%RAN1wDR%Rc4b&m%%S-\|lVR%S1/^Jl~~S3ZZzzR% #% [ 59] ac_m4.amp !Q%%%%%%%QDgosPqBQd}SjIemR.x^gCtmR2pE>[pQR8%suXulRS2U~X}m=S2MT1N([S2-MP<'Zq31SQV`*a]3I !R0P(&0nUR4|,xy*IR8kk-)kxR:tU=r*9RR8&fwCPtRR>jFC91kR@EzAqCGR@2se*UWR>B@cRcFRcW.\R/ !RD(zJ*Y7RFjCYk1YRJC?jgwSRLCnHZOYRLTeqPbURLrZlQaSRL6dv~FlRJI?.%%%SkHB;R%%Sm5[MR%%SmmQVR%%SqD%MR%%T-~Gwm%% !T/([%%%%T/*&XhR%T/,,.QVRT//5axd%T/3US@MRT/9){eDRT/?g'3I%T/G|)f;RT/SVtod%T/jUK7MR !T1jYDj@%T1|ncb_RT3+f{Q.%T31Hub_RT36v;b7%T36~~ !T.XP7%%%T.T5od%%S~iXlVR%S~?4P6~~S|p*mMR%S|HcrqR%Sz}+`I%%SzXvahR%Sz5]t6~~SxlZzzR% !Svki8l~~Sta6b_R%SrMI-.%%Sp7<,_R%Sn'5oc~~Sj|Ft_R%Sj'X;zR%Sh0;-VR%Sf5x7MR%S`=/l~~~ !S\^.MR%%SZ+(wDR%SVNN~/]S2UV74wQS2M3%PC2S2-,8Ob'S0]43@`1S02(NHaq !RrK]y09tRb{xPp5hRT}ZHfd%RP&\8?HgRHYu:Wb/R@H.x1nqR6sc-i0dQ~pJOOlWQ0IJ~]C_Q`BBcDb7 !R0ts7R6mXqB[vR<81L9@ER>WSSGv5R@5QBOpTR@%r*Cg2R>9:G:*7Rr=vtJ/ !RD=o'ekGRH,plG+ARNCt^LKURL^<*HsdRJor&U.MRHT}Vmni #% [ 59] ac_m5.phase !S7OT;Q~~S;W(Z~~~S?Am%%%%SAj7v%%%SCxd%%%%SEshR%%%SGcNI%%%SIQ2)Q~~SKB+@%%%SM7))Q~~ !SO,K;R%%SOv12R%%SQYcVQ~~SS-NH~~~SSM)R%%%SSh~VQ~~SU2^2Q~~SUd))R%%SWG[MR%%SY4+hQ~~ !S]f/DR%%SaE0d%%%Schb6~~~Sg1o;R%%SiV5_Q~~Sk^[%%%%SmEmMQ~~Smk*qR%%SmO/l~~~SS'l.%%% !SQ{@v%%%SQzR%%%%SS-&@MR%SSFIel~~SSn@))R%SUH]G_R%SW/GgZ~~SY&RahR%S[=Us@%%S__~2)R% !Ss[3Y7%%Swe^&DR%SycW@v%%S{@ZrqR%S{vK+@%%S}VkSDR%T-R;:.MRT-S-)V)RS}{m))R%T-TaX@%% !T-[W8l~~T-e7o/DRT-q(3eDRT-}SwTd%T//vx';RT/6~~ !T.XP7%%%T.T5od%%S~iXlVR%S~?4P6~~S|p*mMR%S|HcrqR%Sz}+`I%%SzXvahR%Sz5]t6~~SxlZzzR% !Svki8l~~Sta6b_R%SrMI-.%%Sp7<,_R%Sn'5oc~~Sj|Ft_R%Sj'X;zR%Sh0;-VR%Sf5x7MR%S`=/l~~~ !S\^.MR%%SZ+(wDR%SVNN[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] ar_k.amp !Q%%%%%%%Qdmwng%VR2@yw;hbR8CYl9}xR>87:,9'RBw>HcrqRHHzr/P_RL^Iqd]dRP\K8Pn,RT=ptjA8 !RVYsv^p*RXN4AeVBRXo/B&xDRXZ5@qNiRV`8b_CKRT(Gnm,?RNoFsZ%-RJCF%vTHRF-A?5jqRBfL5J+m !RPC(@g8YRdUHJ{vERvLqjLHFS.h(@SNVS0=7]]`6S0\rT9\2S0pjYnB+S0xSpoMfS0uwikYpS0k4s=X@ !S0YGA'1GS0A[/pi~S.~+luPKS._1iz%NR|@Tl_7bRvOipXuNRps?fUk[RlRG/<+qRhANy-m5Rd>2%rb/ !RZ|A,S_PRTVB;>y@RNjOXXkhRJADJ\cuRF,YISasRB86(1DPR>i,d3vER7%%S[`%iqR%S]aJTd%%S_S/(2R%Sa3Kp2R%SaZA(2R%Saj29c~~Sa^[IMR%Sa3DV)R%S_CtSDR% !S[:o_zR%S[AhzQ~~S[xV^2R%S]edu~~~S_[4H-~~SaQf?VR%ScFC:[%%Se9[u~~~Sg,6ZVR%SgxrY6~~ !SilNH~~~Ska+D)R%SmX^FhR%SoS>K;R%SqOhR%%%SsKuJDR%SuEPcVR%Sw;w`qR%Sy.~-~~~SyyDAl~~ !S}tp.MR%T-aLO`I%T-p~tO@%T/%a.57%T/3NznDRT/@l]w(3T/MVzkSET/YTgtwmT/dhtG[NT1*e,,*q !T1=^>%57T1Of'?2)T1_vTl.%T1pMS8DRT1~g.MR%T31ZHB;RT3A1dem%T3KNMrI%T3b.%mv% #% [ 59] ar_k.caps !S^6%--~~S^4@%%%%S^/6fc~~S^&jX@%%S\u.mu~~S\fMAl~~S\Tzb7%%S\@go;R%S\*1wDR%SZk::[%% !SZP^6zzR%S>(-:2R%ST3H~~S4.gJl~~S0}I]c~~S.ux/DR%Rrb<7%%Rs7I))R%S/2:Ru~~S1>-b_R%S3BCZ~~~S5BMf;R%S7;pk7%%S90Bl-~~S9|*yZ~~ #% [ 59] ar.rep !S4\s+hR%S4^(k6~~S4aP[MR%S4g6VR%%S4o-B;R%S4y1>_R%S6+;1Z~~S69C[%%%S6ICFhR%S6[/Tc~~ !S6n^Jm%%S8)nhzR%S8@`U2R%S8Y,O@%%S8s,WI%%S:4`mMR%S:Qo7MR%S:p_)Q~~S<77]c~~SvQzzR%S@S\m%%%SB/mmu~~SBjMj?~~SDMqZ.%%SF3b.v%%SFu\4?~~SH_Iv%%%SJJoKc~~SL7\u.%% !SN%]c~~~SNn_^2R%SP^[IMR%SROBKd%%ST@gJl~~SV2eL[%%SX%8q)R%SXr4D)R%SZeT?VR%S\Y7IMR% !S`h`4hR%SdyTSl~~Sj1M^2R%SnD5_Q~~SrWW}_R%SvkHJDR%S|%`yZ~~T.T.UZ~~T.h6NI%%T0JY2zR% !T0rsxd%%T2A8DQ~~T2iZJDR%T47|P7%%T4`H6-~~T6.mu~~~T6W=;zR%T8%f[v%%T8N2Al~~ #% [ 59] ar.lambda !TJ['Kd%%TJ]k?.%%TJeL6VR%TJp,oc~~TJzcnl~~TL'8`qR%TL%6JDR%TJp4/m%%TJPyo;R%THyufd%% !TH7m--~~TFA_^2R%TDAkG6~~TB=Ft_R%T@989Ny[%%Twm%%% !S|i];Q~~SfqvMR%%S^|H-~~~S\C%z)R%SZgsdMR%SZg~^[%%S\0Ju.%%S\k.QVR%S^^1>_R%S`_h=hR% !SbmGoc~~Sf+=X?~~ShL2Q~~~Sjt{qR%%SnJ~%u~~Sr'_zR%%StdOxc~~SxM%qzR%S|;%qzR%T.Rxp2R% !T.~p&DR%T0SXD)R%T2*uzzR%T2^gVzR%T4:twm%%T4sD)Q~~T6SzEqR%T86crqR%T8uS/oKd%% !T@dsX@%%TDG7mu~~TH0aX@%%TJzyc-~~TNqxt7%%TRoI=?~~TVs9x;R%TZ}<O]3RT:Bs3bxRP&Ew>RVRJ>2rw`)RD?i99^CR>aORaD)R<;^0hU; !RL9jNT-gRbPj3+SMRv7=y,NS0cg=4n}S0x?'~,GS2&|3iP?S0~^6/1*S0t:|'Qk !S0bOzK^gS0JH7SXiS0,hV\:NS.g&n+,IR~/lh8btRx5@m-.%RrRYYZWARn(X6iy[RhlEf|@%RddDpcvv !R\?Xc.]sRTmOI[p~^NrZR6~~ScCz5_R%Se8iDzR%Sg,tWI%%Sg{)Iu~~ !SioJP_R%SkdeHVR%Sm]&(2R%SoXGcVR%SqU]';R%SsR--~~~SuLQ>6~~SwCBc~~~Sy6mY_R%S{'03I%% !S}}&HVR%T-b?GSDRT-qxe\m%T/&ZyBd%T/4HK3I%T/Abau){T/NM.[=@T/ZJx}wmT/e[Ds\DT1+LRXp[ !T1>B4?6.T1P>vs3qT1`H=H.%T1pxu%v%T3%-vu~~T31{6jhRT3ANs/m%T3Kg|7v%T3bCt.v% #% [ 59] ar_l1.caps !S^3F3qR%S^1a+hR%S^,WmMR%S\~8y2R%S\rb.u~~S\d-vv%%S\RbWI%%S\>Z^[%%S\(,&m%%SZi?>6~~ !SZNL_)R%SZ1_)R%%SXm++hR%SXLl%v%%SX*qR%%%SVa?6-~~SV<'l.%%STo'_zR%STF07MR%SRt~>7%% !SP5FlVR%SNfp2R%%SNJ(VzR%SN%D5_R%SLU]p2R%SL(HF?~~SJR^wDR%SHz~2)R%SHH%--~~SFn3Q.%% !SF:/`qR%SD`EDzR%SD,(&DR%SBP;MzR%S@s%ahR%S@;Al~~~S>^,&l~~S>'|?~~~SPSDR%S4.gJl~~S0}I]c~~S.u{iH~~RrbJq)R%R`%God%%RL|Vb7%%R*(Z~~S3BCZ~~~S5BMf;R%S7;pk7%%S90Bl-~~S9|*yZ~~ #% [ 59] ar_l2.amp !Q%%%%%%%QNC)l}?wQtu{wv^SR0m/yS@MR4K+dWCgR6mon({IR8{-W%6oR:tur],xR<]ZY4X@R>6qZ+,W !R>\Y\y^;R>wM_IQVR@(ApUyGR>}&6Ux|R>_:6O7vR>(}^x|@R<1QA6%-R:(IZ6dbR6w1t\-oR6+/ECnM !R>6u*cxxRL~,tUykRZ:&sSq)Rb~g&1V2RjgU,;8,RpeWhH[ERv.|mEI%RxtJIAh{Rzzj+?aqR|C%Tlo\ !R|(+}CDfRz*.\bRzRvHcb`{9RrG_vgg{RnP3ZGL*Rj_MY+kCRfvfG6aqRd:j;3K'R`bGowR+R^5)-PFt !RVqnWwqURR*xiTf9RLdC;f2HRHT\H7w`RDPzN*3CR@fNKH{|R>BZW,x?R<0V=B,ER8z5GdQ+R4:=_jew !R2'l_l3aR.o\eDDSQzqC2R%SWlYC2R%SYhiuVR%S[QRqzR%S]'&LZ~~S]Gg[%%%S]an}7%%S_&bO?~~S_Wj7v%%SaKuJDR% !Sg|R]d%%Sin_9d%%SkL4T;R%Sm.b2zR%SmkwHVR%SoM;Am%%Sq(]Kd%%SqX;zQ~~Ss)o|@%%SsRv%%%% !SszzvMR%SuJ*Y6~~Suw*4hR%SwNw4@%%Sy*4D)R%Sy`L_)R%S{;k.v%%S{oJP_R%S}F8du~~S}te4?~~ !T-[u.mv%T-f7Q2)RT-p:E0d%T-yuHm~.T/)*2b[MT/1uq~zzT/:UYG[MT/|oiVErT1.Xwu.%T1;K]=xdT1F5Z:2RT1P6=H.%T1^9]Sm%T1b1g2R%T1m5EY7% #% [ 59] ar_l2.caps !SN+G?.%%SN*3y[%%SN&P;)R%SLzM1[%%SLr.=@%%SLgTx;R%SLZub_R%SLLAP_R%SL;s\DR%SL)c%u~~ !SJot[MR%SJZUc.%%SJCgVzR%SJ+Sq)R%SHktWH~~SHPod%%%SH4A\l~~SFp='d%%SFPZ^Z~~SF/&y2R% !SBjMj?~~SBNRem%%SB;pFhR%S@~5cVR%S@d5[MR%S@Hq9c~~S@,Y&l~~S>iY6~~~S>KjP6~~S>-:2Q~~ !S7R[qkx !R>]3EyLKR>w}tnfTR@(nQn/(R>}OBwL[R>__gGWIR>)IITl.R<1sNc(gR:(d@Oj0R6wA9)6NR6*}n,7% !R>5G4~XTRL{b>R)rRZ6orreDRb{&1TbGRjcFdtrzRpa)ZL\]Rv*18+VbRxo=@X'dRzuOgf&MR|=r=\'D !Rz}@.iM*Rz&&8a?[RvEQTD,hRrEHex&MRnNpp5c{Rj^\=W\(RfvP/O'dRd:Ly^LoR`ags1->R^4BVoro !RVp1`Sg`RR)EA*8IRLcwgx>CRHU;|jw|RDQ`ZH@lR@fQlJh9R>B2Qj[,_'*XQb.z0vZlQZgqSkW[QP>/>easQL-/~`w1QF:B38)X #% [ 59] ar_l3.phase !S1+D)Q~~S5>qAl~~S9LLJl~~S=Sw0;R%SAU+7v%%SEOR9;R%SIBPWI%%SM,{M)R%SOgO`I%%SS<,;)R% !SU\DQ~~~SWkjL2R%SYhEM)R%S[PczzR%S]&7U[%%S]Fxd%%%S]a&,7%%S_%sX@%%S_V{@v%%SaK,SDR% !Sg|R]d%%SioN0c~~SkMGshR%Sm0?zzR%Smmy_)R%SoNs/m%%Sq*;9c~~SqYshQ~~Ss+)Am%%SsSdv%%% !Ss{EDzR%SuJ*Y6~~Suw*4hR%SwNw4@%%Sy*4D)R%Sy`q-VR%S{k;)RT-p>%57%T-y|bv~.T/)=+hR%Se&rm=@%%Se>*qR%%Sg9HrqR%Si1}&l~~Sk)5;)R%SkzYcVR% !Smu{DzR%Souo[v%%SqxcZVR%Ss{WY6~~Su|_5_R%Swz|xc~~Syv=@%%%S{meHVR%S}awu.%%T-V[L>_R !T-h=hQ~~T-xdu6.%T/.*D1[%T/Y]+@%%S<|YSDR%STt[MR%Qn^p*I%%R-]}wl~~R[e/(2R% !Rwa1Jm%%S/LI56~~S1_@Y_R%S3j=X?~~S5lnHVR%S7ke4?~~S9dU6VR%S;W|L2R%S=IK+@%% #% [ 59] cl.rep !S4}'7MR%S4~/\m%%S6'HrqR%S6,o?VR%S64Hvv%%S6=~jhR%S6I\u.%%S6W.ahR%S6fJP_R%S6wRahR% !S80?zzR%S8DaH-~~S8Z`];R%S8r6F?~~S:18}7%%S:KhMzR%S:gnLZ~~S<+G?-~~S6~~TJS-%u~~THChEqR%TF.}?-~~TBtC2R%%T@dGod%%T>\`M)R%T<_K/DR%T:n1*H~~T:/iiH~~ !T2{};)R%SnQ2)Q~~SbwH2)R%S^JyVzR%S\Fjxd%%S\,Bh)R%S\;AHVR%S\fT[v%%S^LHjhR%S`B@EH~~ !SbE7~-~~SdS&0;R%Sfj7v%%%Sj/a;zR%SlVU_)R%Sp*1.MR%Sr]{uVR%Sv=]WqR%Sx|b&m%%S|fw(2R% !T.p;nDR%T0BbG6~~T0qd9;R%T2I2j@%%T2|sL2R%T4XnXhR%T66vu~~~T6q'OhR%T8S4@%%%T<_8u.%% !T@4W,_R%TBj}2zR%TFNBSm%%TJ8HzzR%TN)'t6~~TPz'+?~~TTw;Z.%%TXzZRMR%T^)u:2R% #% [ 59] cl_l1.amp !Q%%%%%%%Qdn0??4PR2>T)dGpR89VI%mvR0Z4f+@R6xY-%)NR2Fp(q'tR2IUFm[=R87DPVRn !RN~deUaPRjt;xnF0S.Ty']bGS0>[/UK\S0je&OM\S2)C./;6S22}Qfd%S20'1Or]S0|gPshRS0f_AD4q !S0GZRDhbS0'J}~LkS.d2^MRrR~&rbE1.RxD+BhrIRroO,'_VRnK=gx|@Rj9hZk:;Rf0co;o3Rb5j9T3m !RZ%sb}SARRglAN*9RN)~ifl=RHZYStvRRDDG(6'/R@SFBp+zR>19vaaYR:{5Y'{}R8i_x:e`R43C{~?- !R0}@ih[WR.mkV-32Q|+;2B[vQjzd]/S,Qbl0OgP2Q\[|4lenQV,l26~~SY9R57%%S[`U2Q~~ !S]}/du~~Sa4[U[%%Sc9`DzR%Se08sdq{ !T1Sm5j'dT1ewn8DRT1u2C&DRT3,;\Td%T39eY2zRT3F)/XhRT3UYCVzRT3]IVnDRT3s_GshR #% [ 59] cl_l1.caps !SZ1WiH~~SZ/ra?~~SZ*tC2R%SX|\hzR%SXq6rqR%SXbnu-~~SXQX/m%%SX=f+@%%SX'MAm%%SVhvMR%% !SVN<([%%SV1g{H~~STmQ2)R%STMU:Z~~ST,(o;R%SRc)V)R%SR>WH~~~SPrTh)R%SPJp_)R%SN{MMzR% !SL>a/l~~SJY(o;R%SJ;eq)R%SHrM)Q~~SHJ*}_R%SFxX;zR%SFKFL2R%SDwB+?~~SDI'p2R%SBt\`qR% !SBD]C[%%S@keXhR%S@68Td%%S>YNQ-~~S<|R9;R%S;)R% !S4e0_zR%S2QM~VR%S0E'l-~~Rzb.-.%%Rf3Bx;R%RR*9[v%%R>Tx;R%%Qn^]p2R%R-]}wl~~R[dzMzR% !Rwa*0c~~S/LEU2R%S1_@Y_R%S3j=X?~~S5lnHVR%S7kaT;R%S9dU6VR%S;W|L2R%S=IGK;R% #% [ 59] cl_l2.amp !Q%%%%%%%QNbdsBKdQvhQ%-R>hqE.KtR@WEG1Bd !RB4:N+SMRBXo'X`IRBh2&.VJRB]r?;>WRB8]3])>R@UbuwsPR>bcWn-oRWAdvRTKXp??oRb&s&;2%RjwK:=W-RrOrT1FiRv{x6S`qRza]v;LCR|]4D8mnR|khJgM^R|39G=:C !Rx_1'[QWRtqs<=`IRr1X2yPtRnOdQ?4PRjswe[ktRh@;VAW1RddB+G?.Rb6mv,?.R^`:o;R%R\8mUnX^ !RTyCM=Q4RP;Ke@?_RJ{2`(okRFk)y`zNRBe.;_E0R>|BFE,,R<^%4lVRR:QPU1Q|R8D8+qR_R2h/Qyd: !R0Z}juEvEIT/D:hIQVT/Ln>hIvT/T|E*~*T/\q]}wmT/sF1z5_ !T1&tP9p3T14hkSDRT1?__j@%T1M'{Q.%T1WC\8DRT1`|i@v%T1p65cVRT1rvI))RT1~7em%% #% [ 59] cl_l2.caps !SHs}WH~~SHrxl.%%SHon0;R%SHja7v%%SHcR))R%SHZKWqR%SHOMj@%%SHBg:Z~~SH4:Bc~~SF~/\l~~ !SFlG.u~~SFY1g2R%SFDIQVR%SF.4H-~~SDpWDzR%SDWMMzR%SD{[9;R%S>N,;)R%S>&wTd%%S[MR%R2|&u.%%Q4HFdMR%R/%6nm%%RO.|t_R% !RaVQvif[QVRR0{v-P~>R4cZ]Dg*R8;I\@;>R:Zrb%ktRi&)m8MR@WT.N@v !RB4I8&c>RBXvKSHVRBh9LaP7RB]}P'|dRB8d_LFDR@UjK&L[R>bgDBT\RrcgRjvdFz[ARrO-,k_RRvz{+O*zRz`B6r>OR|[?,u0LR|iAv1auR|0BX@b| !Rx\(G4(wRtn~A[57Rr/:VK/DRnN.~\`)Rjs3'5*MRh?~{*dVRddT`L:[Rb71Df;RR^`EiI%%R\8_,;4+ !RTx6Yg)lRP:('swQRJz_lcr0RFkS*NgRRBeo/K^}R>|O~89fR<]]8b@fR:Pwi:MeR8D*W{v(R2gdD<>W !R0Z)RFo@Q~P0:_M{QtD-y0OhQdsWJM^AQ\a7%%Su%3}_R%SuRf[u~~Sw%+t_R% !SwT?zzR%Sy.{[9;R%S>N,;)R%S>&wTd%%S[MR%R2|&u.%%Q4HFdMR%R/%6nm%%RO.|t_R% !RaV[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] mo_k.amp !Q%%%%%%%QZ)Hb81*R030vO9_R4[0t2]DR8u<|)39R<}C[B3IR@nIvoE9RDGSS,7%RF^R,%Y`RH[29N0d !RJ=7z%q{RJb+&`bxRJq7/~\YRJo90}i9RJ_NHgaPRJCYz&&URHz4>/RbRHRNL^AuRH'_NiI%RF[)'rF} !RF5Wt3/,RLiXRPyoRZ2zE0}SRfvk`s7-RtCAIEI%R~'FYnbtS.Z}SUj{S.R8Op@iRxTpH,*)RnK37s3r !RbQc\.O0RV`r^^txRL]ufW[^RFCn7kp.RDCSgWOuRF?Zw9u&RJ;%4knuRNKtX|KDRRKnzAOqRV3aB/=8 !R\NAW)IvR`i*vRtlRd1(*4YxRdZ8r5D #% [ 59] mo_k.phase !S:ad))R%S6PU-:2RS2Ir6F@%R~Ru)Co;RZ)Co;R%R6`zIu~~R3c@]c~~RS-8Tc~~Ro[oSl~~S/0nXD)R !S1KMLg2RS3_iBSm%S5n%6JDRS7v3Y6~~S9w~\XhRS;s-r([%S=f]p{I%S?Qi0d%%SA3C?)zRSAd9';R% !SMdu6-~~SQ@57%%%SU%i([%%SWl<4hR%S[W~)zR%S_;d9;R%SaphEqR%SeFn4@%%Sgtc2)R%Sq/ZF?~~ !Sul|X?~~S{:bcVR%T-WCI~.%T-lDm12RT-~s`I%%T/8=;V)RT/IO>G7%T/YFa\DRT/j_]h)R #% [ 59] mo_k.caps !S.X[12R%S.W]_zR%S.TaX?~~R~i%iqR%R~%?B;R%R|(z5_R%RxtY&m%%RvTaX@%%Rr}axc~~Rp<(6VR% !RlC~:2R%Rh;kwl~~Rb}@ADR%R^T?VR%%RXtE4hR%RT(b?.%%RL~C*I%%RFe}6~~~R@8(VzR%R8L[mu~~ !Qs2)vMR%RE,p.MR%ROHjhQ~~RU@j;zR%R]N@--~~RgXG?.%%RsMZRMR%S-Z.%%%%S/=ywDR%S/~<4hR% !S1f9t6~~S3Nn_R%S5yBd%%%S7`)Iu~~S9E'G_R%S;'yNqR%S;b`eDR%S=A>K;R%S=x:c-~~ !SAI>SDR%SCq_j@%%SG?Xxc~~SIfX;zR%SM/st_R%SOL?rqR%SQ`?b_R%SSl{iI%%SUuJhzR%S]*gk6~~ !S_{MMzR%ScbmahR%SgEl:2R%Sixn0;R%SmGK;R%%Som_Am%%Ss32Al~~SuJY{qR%Sw`\(2R% #% [ 59] mo.rep !S6e_9d%%S6f\du~~S6i\L[%%S6nW0d%%S6uI12R%S6~2MzR%S8.em%%%S8;+T;R%S8I0CZ~~S8Xp[%%% !S8j4`H~~S8})9d%%S:7G&l~~S:M7ahR%S:dMvMR%S:}/du~~S<=3M)R%S9dmu~~ !S@DOX@%%SB;'OhR%SBv(:Z~~SDQC*I%%SF1;Iu~~SFm^.MR%SHR;=hR%SJ8xCZ~~SJ{D1Z~~SLeGgZ~~ !SNPpwDR%SP=SLZ~~SR+:g2R%SRsyRv%%STcPoc~~SVSiiI%%SXDc%u~~SZ65?-~~S\(3@u~~S\tYK;R% !Sb'A}6~~Sf5tWI%%SjEvEI%%SnV|xd%%Srhyc-~~Sv{Vj@%%S|4ft7%%T.UT/DR%T.iTh)R%T0Ke8DR% !T0su)zR%T2B25_R%T2jL{I%%T48kG7%%T4a3M)R%T6/URv%%T6WwXhR%T8&C>_R%T8Nh~VR% #% [ 59] mo.lambda !ST0}SDR%ST3\LZ~~ST;Kx;R%STH6.%%%STYT3I%%STnzEqR%SV-jhR%%SVI:*H~~SVfZb_R%SX*u2)R% !SXI9;Q~~SXfl.%%%SZ(cRMR%SZB;Q~~~SZY%~.%%SZl\4@%%SZ}*(Z~~S\0dIMR%S\SsP7%%T@D=D)R% #% [ 59] mo_l1.amp !Q%%%%%%%QZ2m77*aR04w}BImR4]X'4\ER8x()CrvR>&)r[zrR@qem(_*RDJ&Q^LKRF_kuO)BRH[)]<@v !RJ=+~~+4RJ`f*_b7RJn{S8~oRJlX^af+RJ\qa]|@RJB|>'qjRHz_7WU{RHTGu95'RH,Wr5{qRFam^ca( !RFAPvQ~[RLvY^3eRh'ob+QoRtJk*O{zR~*U4B';S.[/~N1aR~~S|F=}RxRJgW/,RnJGSVf; !RbShn_pGRVdaeEsyRLcnmsftRFL)VuAMRDJD+L9lRFDA1%?gRJ=jyK[vRNL1%12RRRJ:+J0ujhR%RQ_mz)R%Ro1K7MR%S/,E<([% !S1Fmf7MRS3['9OhRS5i;=D)RS7qKP2zRS9sA}[MRS;nS|H.%S=b9~fd%S?MT{,_RSA/If7MRSA`hlB;R !SCV]|NY7SC[AwTd%SCr52zR%SE2wzEqRSEW%>.v%SG+70h)RSG`2|/m%SI?M5_R%SIyq=hR%SKWn`qR% !SM+dMR%%SMF^FhR%SMAU.MR%SKnURv%%SK*-NH~~SIPUFhR%SI@\u.%%SIMkSDR%SIm4H.%%SK=XdMR% !SMct*qR%SQ?%QVR%SS~JhzR%SWjwu.%%S[V\0;R%S_:Ey[%%SaoFL2R%SeEOt_R%SgsDrH~~Sq.G&l~~ !SukpRv%%S{9]x;R%T-WdiqRT/IRW];RT/YLs?~~T/jfW([% #% [ 59] mo_l1.caps !S.Y,shR%S.X/HVR%S.U3@v%%R~mvmu~~R~*'l.%%R|-WeDR%Rxx~B;R%RvXq%MR%Rt'[QVR%Rp?eu.%% !RlGOdMR%Rh>}shR%Rd&@))R%R^W-)zR%RXvzMzR%RT+.~-~~RN&[57%%RFh0G_R%R@:*mMR%R8NS0;R% !Qq{_b6~~RE*bwl~~ROEy[%%%RU=c:2R%R]KNyZ~~RgUo_zR%RsKF'd%%S-YujhR%S/=gc-~~S/~1:Z~~ !S1f+@%%%S3NcB;R%S57ADQ~~S5y;Iv%%S7_xOhR%S9Dz-VR%S;'r4hR%S;bYK;R%S=A712R%S=x7))R% !SAI:s@%%SCq_j@%%SG?Xxc~~SIfX;zR%SM/st_R%SOL?rqR%SQ`?b_R%SSl{iI%%SUuJhzR%S]*gk6~~ !S_{MMzR%ScbmahR%SgEl:2R%Sixn0;R%SmGK;R%%Som_Am%%Ss32Al~~SuJ][u~~Sw`\(2R% #% [ 59] mo_l2.amp !Q%%%%%%%QH@NP*bxQj*&xhk/R.{\,ZeuR2DO]+h.R4RV0X)fR6Ghzqe(R6ztr5+`R89W=gc.R89ffaX@ !R6}S5@'pR6Vv76C*R4}xUteYR4C_zkSDR2_@jdj`R0zm_S?_R0>AQD6NR.`OjK|oQx/>@-a(Qn\`u?4P !Ql]kcYk;R2r4rdU[R<*+WJ4dRD.Q[3vERLG~*L|8RT%6Je@NRX8_`q<1RXcw;7.fRVQ.Ia5ORR&kNkC{ !RJY/5F9TRB\+40>hR:TF(K[vR4(sJl'TR0XH|+olR4(3?+|hR8eF+KC[R>KXZ0hrRBoLCM+0RFt~3iH~~ !SalM~VR%Sc1HjhR%Sc/0_zR%Sa99+?~~S[oAXhR%SWcGwm%%SW%`yZ~~SW&ZjhR%SW@{a@%%SWfzb6~~ !SY|n4?~~S]=4;zR%S_YH%u~~SayN([%%Se@;b7%%Sg\X5O@%SirtQfd%Sm+-7em%So;(uB;RSuSG?RMR !Sy\x]/DRS}Un(2R%T-^IoSm%T-o1yk7%T-}qLg2RT/3V|T;RT/B2Z:2R%ST2Lg2R% !ST%/Tc~~SRp`x7MR%SR,88DR%SPrF3qR%SP]=/m%%SPFl2)R%SP.j`I%% !SN3I%%%%SL=jxd%%SJzv))R%SJs7QVR%SJasL2R%SJG*M)R%SH~^6VR%SHVCJl~~SH)@57%%SFR\u.%% !SDy*mMR%SDCLo;R%SBf[QVR%SB/>K;R%S@R79;R%S>v)rI%%S>AB+@%%SrU2R%S/>aT;R%S1dqzR%%S5)*@v%%S7?_~o>hRBb/H\BtRFfA49LS !RN`3{kodRTU/h})^RXQ&tL2KRZ[Wt,IOR\(p8PYaRZ~]K+7}RZX1~Sd1RXq?b=N&RVz6;IrERPe9yK44 !RLP{J+n&RH;=85ciRD1mu7<}R@R|I,A`Rd|XEp #% [ 59] mo_l3.phase !S22w`qR%Rv0l-~~~RNpVzQ~~QlJDQ~~~R;{,_Q~~RWujhR%%RqWM)Q~~S/&rZ:2R%ST2Lg2R% !ST%/Tc~~SRp`x7MR%SR,88DR%SPrF3qR%SP]=/m%%SPFl2)R%SP.j`I%% !SN3I%%%%SL=jxd%%SJzv))R%SJs7QVR%SJasL2R%SJG*M)R%SH~^6VR%SHVCJl~~SH)@57%%SFR\u.%% !SDy*mMR%SDCLo;R%SBf[QVR%SB/>K;R%S@R79;R%S>v)rI%%S>AB+@%%SrU2R%S/>aT;R%S1dqzR%%S5)*@v%%S7kE\qR@._+kY'RBm43HaqRF/b%7''RH+)`xV:RHcS==ft !RJ+r-UB@RJ=T%CN)RJA`3uzzRJ=t*UL&RJ3ZfMivRJ&|{e5xRHs{*E6FRHft\vemRH[xK(zZRHU^Fq;B !RJ%,+JTdRPsRI_f^Gi]S._c(`%TS.R8IULKRx@vJHlFRn?X2-aL !Rbes*`,`RXCx0I~wRNj?VO,WRHgV[zycRFZP94FPRH.ZbSp;RJ[fxBl.RNJ:*v6oRR4e/|DNRTh64gTT !RZoCSD-VR^})mN@vRb;hg@=@Rbd|meVIRbXZttLpRb&TXrm`R`/f95Y.R\|6+@eSRZfJ>>0TRRkx&}(l !RN7NFR83RHi.=SbORDNHnmm4R@di0R8/R}*qRRhqjdMR%RF|Y.v%%Q:DvMQ~~RA,y&DR%R]R2EqR%Ry>?vv%% !S/V7~vv%S1m`gFhRS5%i[]d%S727^.MRS98Zg.MRS;8AR=@%S=0g,&m%S={0ys@%S?bnj3qRSAA*Y7%% !SCS1wa`ISCpE0d%%SE_RSEpsC_)RSG7D]h)RSG^nbO@%SI34hR%%SIe6B;R%SK<|'c~~ !SKfP2zR%SM%h^2R%SK~Xxd%%SK^]';R%SK,[MQ~~SI^e0;R%SIQO7u~~SI]4\DR%SIz8,6~~SKHGwl~~ !SMjt_Q~~SQCUg2R%SU'JP_R%SWmDZ-~~S[Y0/DR%S_=(Rv%%Sar0?VR%SeH.mu~~SgurqQ~~Sq1%z)R% !SunZF?~~S{;k.u~~T-WNdz)RT-lMwe4@%%RN9A4@%%RFz+/m%%R@KHrqR%R8_Am%%% !Qo;.EH~~RClVQ~~~RM|Jy2R%RSoi<)B-|XQ<7dQa+DQlB';bI9R4.--~~~R:X`c_).R@5yS\t?RBTg'_1[RBV[MR2,A&jX@QhB>xpauQRou's2:Qz?bWtFmR2dR(-P'R8'y@WU{R<+`6CGWR>tf<-YC !RF_,qpnqRLfgvT1kRR._(=`xRTb/:A*hRVU{p_r(RVu&+*R:RVoy?Uc.RVN%z\TdRTr/{'IpRP81N2po !RL7|3:|FRH.<=U'QRD*gB'D;R@PI+-DqRR4Ag_rI% #% [ 59] mo_m2.phase !S6m*2zR%%RFeXhR%%Qt:[%%%%R3JL[%%%RGYC2Q~~RYq9c~~~RkK3I%%% !R{P.v%%%S/.~vu~~S/p[mv%%S1URQVR%S37j;zR%S3qWa@%%S5NimMR%S7)4L2R%S7ZUc.%%S9.1{I%% !S;66RMR%S?B_V)R%SS0FpZ~~SYs)f;R%S]1V1Z~~S]yDf;R%S_W_=hR%Sa.MQ~~~Sa]wLZ~~Sc1E0c~~ !Sc[ZrqR%Sc|WuVR%Se*K';R%Sc0K?VR%SY`Na?~~SS{s/l~~SSalNI%%ST2^{I%% !ST%>.u~~SRprQ.%%SRaDMzR%SRPh%MR%SR?0Kd%%SR,FlVR%SPrQ-~~~SP]H)zR%SPFw,6~~SP.uZVR% !SN3Sy2R%SL=r8l~~SJ{&}6~~SJsF+hR%SJb+`I%%SJG9';R%SH~ljhR%SHVR%%%%SH)NiI%%SFRkO@%% !SDy9G_R%SDC[IMR%SBfj+hR%SB/M%MR%S@RIMQ~~S>v8LZ~~S>AP_R%%SrU2R%S/>aT;R%S1duZVR%S5)*@v%%S7+ZX0R2Qg1j'@R2-9?SYWR0\1`)u_ !Qj97+:BdQ:O2\pI5Q<%(Y_}hQnw(zP}tR4@~aye0R:lwC.|uR@I35SH2RBe/JW?>RBc0';R%R@X8_lfd !Rae][U7 !RFH{oMWaRLO1bT[RRPqYSB&xRTL..RwdRVA@l+'NRVaajFp>RV]Z7% #% [ 59] mo_m3.phase !S6A[56~~S26PK;R%R|43qQ~~RZe,7%%%R>CwDR%%PO[%%%%&R;>gZ~~~RO2vMQ~~Ra.qzQ~~RqE];R%% !S-[iM)R%S/CTx;R%S1(@ahR%S1dXL2R%S3DEqR%%S3{xl-~~S5W.ahR%S7/fx;R%S7_I--~~S91@=@%% !S;0,.u~~S=u%-.%%SUJ_^2R%S[E[9;R%S]O.~.%%S_7_f;R%S_mSXhR%SaC.MQ~~SaqiQ-~~ScDlfc~~ !Scn^&DR%Se5[))R%Se?+|hR%ScJhV)R%SYxLRv%%SU-Iz)R%SSl+X?~~SU*)Iv%%SURVIv%%SW()~VR% !SYLnq)R%S[oLRv%%S_6=lVR%SaYYK;R%Sc}FlVR%SgCR`0d%Si]z't7%SksllF@%So,SKl.%SuL~P&m% !Sy\:`lNI%%ST2^{I%% !ST%>.u~~SRprQ.%%SRaDMzR%SRPh%MR%SR?0Kd%%SR,FlVR%SPrQ-~~~SP]H)zR%SPFw,6~~SP.uZVR% !SN3Sy2R%SL=r8l~~SJ{&}6~~SJsF+hR%SJb+`I%%SJG9';R%SH~ljhR%SHVR%%%%SH)NiI%%SFRkO@%% !SDy9G_R%SDC[IMR%SBfj+hR%SB/M%MR%S@RIMQ~~S>v8LZ~~S>AP_R%%SrU2R%S/>aT;R%S1duZVR%S5)*@v%%S7JG6NthRBpKq4Q}RFs*}F7CRJQB}\oLRLgbvMj*RN`dQM'+ !RP?xY6ShJR>LsH3otR@S\)-KX !R@`B-neeR>h-KWqRR:v|;0sHR6VK>+n}R2/d4N`QQ~N`(=p[R.X%0oJ3R2/m5I9;R6(`)0hNR8x5H%U7 !RB((s`+qRHPM: !RJeWG`eDRF\XBhGiRBXe{s~4R>~qDQ'TR<0N\ysGR8}kd|I>R6i<]5MLR4=IoX4`R2B+I[gY #% [ 59] mo_m4.phase !S6~~Sm?7ADR%SmxZ>7%%SoVf;Q~~Sq3EDzR%Sqk;MzR%Su\({H~~ !Sws/m%%%S{+gc-~~S}<<([%%T-V_M1[%T-`hs\DRT-krBx;RT-v{*];RT/(Kc6.%T/2hm12R #% [ 59] mo_m4.caps !Sh/A_R%SjLo_zR%SjN\(2R%SjM{eDR%SjJxC[%%SjE\q)R%Sj>43qR%Sj4c:2R%Sj)9c~~~ !ShT7qzR%Sf~JhzR%Sft?RMR%Sfw?:2R%Sfvf7MR%Sftnu.%%SfrH6.%%Sfo^Bc~~Sfl'x;R%Sffx_zR% !Sf_^VzR%SfUHF?~~SfGo?VR%Sf6r(Z~~Sd|fOhR%SdemIMR%SdLcRMR%Sd1x3H~~SboyNqR%SbS93I%% !S`f*uVR%S`%VIv%%S^EVj?~~S\fMAl~~S\)}C2R%SZDx+@%%SXaxd%%%SX*u2)R%SVStcVR%SRxW([%% !SPvz)Q~~SP)Rmv%%SN4yRu~~SLEH6.%%SJ^lJDR%SHuPK;R%SH7/0;R%SFWtg[%%SDuYC2R% #% [ 59] mo_m5.amp !Q%%%%%%%Qh_q]Ex{R2^)sbv~R8dvqXadR>R^:/{)RR9xx%]dRR'/2JsPRPf3B<.bRP?Py_XuRNh?X~uc !RJB?%S%fRJIYC5)^RN8sv8WURN.oBFwuRHmubrMrRBPrjLA,RIunaC;R@S-4ctO !R@`W0a,WR>hki8m%R:x&^|FPR6XN%9%^R23-M@Y_R.RSLE0dR.]aVH.4R24]{7Y_R6-4/s6cR8|pzr31 !RB-f6Ry;RHV90*>tRN<]ouecRR0n,w`\RT;xS\9|RTo'\UM+RTyxif<2RTeK(wGJRT8(zFQ-RNb.\+Y: !RJe^)~VRRF\K%%G]RBX)p(A>R>|YbF*zR_R%SjLo_zR%SjN\(2R%SjM{eDR%SjJxC[%%SjE\q)R%Sj>43qR%Sj4c:2R%Sj)9c~~~ !ShT7qzR%Sf~JhzR%Sft?RMR%Sfw?:2R%Sfvf7MR%Sftnu.%%SfrH6.%%Sfo^Bc~~Sfl'x;R%Sffx_zR% !Sf_^VzR%SfUHF?~~SfGo?VR%Sf6r(Z~~Sd|fOhR%SdemIMR%SdLcRMR%Sd1x3H~~SboyNqR%SbS93I%% !S`f*uVR%S`%VIv%%S^EVj?~~S\fMAl~~S\)}C2R%SZDx+@%%SXaxd%%%SX*u2)R%SVStcVR%SRxW([%% !SPvz)Q~~SP)Rmv%%SN4yRu~~SLEH6.%%SJ^lJDR%SHuPK;R%SH7/0;R%SFWtg[%%SDuYC2R% ifeffit-1.2.11d/src/fefftab/09.dat0000755000175000017500000000615210771740460015473 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] f.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] f_k.amp !Q%%%%%%%QxvP/O'dR65DX+hRRO@S.j:6,z:S0*VWHfzS0?<4p)+ !S0ahk?%}S0g\>?8yS0dQU95KS0UyY{B/S0>sU2)vS.{-4`@}S.Zyc8rZRz>C:gHFRrbKK7u[RlCzqeii !Rf<1t8FyR`ODlJ~oRZx`F/OqRV]eJ.iFRRT\Z;LJRN\B4luqRJtR>r]4RHA8JVu7RDu{Nh?rRB]6XaZ4 !RYz^3SwQQE,_RSy7R^wDRSyv[MR%S4NqvMR%S4GfG_R%S4<1wDR%S4,H%v%%S2rs/m%%S2[}cVR%S2B*uVR%S2%DZ.%%S0_tK;R% !S0=d))R%S.r[9;R%R~05oc~~Rt4WuVR%Rf|p[%%%RXUyk7%%RT.eHVR%RPrQ.%%%RNo?zzR%RLF|D)R% !R@ij\DR%R86M~VR%Qvxi=+hR%S0Pr0d%%S0f3I%%%S0~&@MR%S2>CVzR% !S2[-RMR%S2zI-.%%S4BJu.%%S4gLJm%%S68|lVR%S6jw,6~~S8-Cs?~~S8F_~VR%S8`\L[%%S8|A\l~~ !S:{}_Q~~SK[v%%%S@7DZ.%%SB%/Td%%SBnN];R%SD_5_Q~~SFP{M)R%SHCYk_R%SJ6yg2R% !SL*reDR%SLy9l.%%SNn({H~~SPc1_)R%SRXSq)R%STN1wDR%SVCxWqR%SX9slVR%SZ/}[MR%S\&4dMR% !S`;-VQ~~SdPNQ-~~Shf2Z.%%Sl|(wDR%Sr8-nm%%SvN=`I%%SzdTl-~~S~zs7v%%T.eq)R%%T0HVvMR% !T0q)vMR%T2?VvMR%T2h-VR%%T46ZVR%%T4_-VQ~~T6-ZVQ~~T6V16VR%T6~^6VR%T8M16VR% #% [ 59] f.lambda !T^UVV)R%T^`756~~T^xJu-~~T`-jD)R%T^nN8m%%T\j1&DR%TXqb[MR%TT7%%SZr>O@%% !SXv*NTC[%%T@^A,6~~TBr5{qR%TF0/DQ~~THKx_zR%TP\QrqR% !TV\.]d%%T\j1&DR%Td,;rH~~TjV*eDR%Tr3Adv%%Txwcb_R%U.YJ(2R%U.}k;)R%U0IIMQ~~ ifeffit-1.2.11d/src/fefftab/87.dat0000755000175000017500000003577010771740460015511 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] fr.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] fr_k.amp !Q%%%%%%%R`;Cy)zvS0lcTT03S6Wf6>3ES<5.6soeS@[*TjnoSDl/,C;;SHee*|]_SLF+9zm1SNf9wmLg !SPkdLlygSRVcy?kWST(`7Yl]ST=+D}mmST;{]L]pST(*;TTMSR]`yIl[SR+1;ZdASPGM-.z`SNZ+/H]* !SHi(Fxi.SD[i449jS@.?}SZFS<@a.A%tS:M1Y/fES8su`X`3S6v[P@MhS4V;R&o'S2?a7B'&S0RW`]=c !S01:TZ>yS.{;SlpKS.eG-2e_R|>ft~LkRpfl-0=0Rd5,v`y[RVI2>~izRJWQ;WD2RDX.8/L[RFF|=dcF !RV;8^lC*R^(~M;PGR\^RP6@sD\URP,~Yi*9 #% [ 59] fr_k.phase !S4=6b_R%S0('|@%%R^>od%%%R2T_zQ~~RAxl-~~~Rm-vv%%%S/cm~.%%S3i8m%%%S7l+|hR%S;lV-VR% !S?jR9;R%SCf.z)R%SG_F;zR%SKV:Ru~~SOJ^Jl~~SSvgo;R%S>gDf;R%S>VzR%%%S>EU2Q~~S>32Am%%S7%%%Rnv%%%%%R`Wj7v%%RR)`Y6~~RBL6zzR%R2lZ2)R% !R=%\u.%%R_^yFhR%S-W97MR%S/~rqQ~~S3F'?VR%S5hb[MR%S95^>_R%S;^7iqR%S?(_MzR%SEa/m%%% !SIwC>_R%SO3DV)R%SS3gFhR%SW'X;zR%SYvQVR%%S]^]';R%Sa;;Al~~Scs4;zR%SgIm--~~ #% [ 59] fr.rep !S>YYK;R%S>Z.mv%%S>[_Am%%S>^>;)R%S>at_R%%S>fYO?~~S>lC*H~~S>s1Jl~~S>zzvMR%S@)vMQ~~ !S@3viqR%S@?%QVR%S@K6^[%%S@XSq)R%S@fyNqR%S@vTl-~~SB-<4hR%SB?6vv%%SBR=dMR%SBf[QVR% !SDQ-6.%%SF+C:[%%SFhB[u~~SHR))Q~~SJ+f+@%%SJ]?VR%%SL8Kl-~~SLoe8DR%SNO1o;R%SP0Zb_R% !SPmzrH~~SRS-JDR%ST9qj@%%ST|+D)R%SVe`qR%%SXPOdMR%SZhnDR%S0Li}_R% !S0pn(2R%S2;zQ~~~S2ayRv%%S4.\P_R%S4Uv12R%S4}]t6~~S6Kmel~~S6t=+hR%S8C)Z-~~S:dndu~~ !S<^7iqR%S>X7QVR%S@R_Al~~SBMQZVR%SDHa'd%%SFD/}7%%SH?nl~~~SJ;iQ-~~SL7riH~~ #% [ 59] fr_l1.amp !Q%%%%%%%QR_59Z>7Q~mHPG[NR2[*k?pdR6YG9wL[R:H,oIH:R<}a]1ykR@D>[9MfRBO+rCg2RDCNBIZN !RD{45\J}RFFXqH+}RF[}4Wy7RFhfw>&mRFvVV`4iRH9`D`<)RHtM7FJ0RL(7Js+hRNk;CMeMRT-.DkZ_ !Rdyh\~\YRpBt=WQ.RvMa8AUwS0*Rh92lS0rvCUcRS2=%Xr*9S2?f~?t=S2,<]yg^;RNPTTo8aRPM)9gQyRPt_]=`>RPWg}0DQRPA\4TqMRN1YHmCkRLVMxhU;RL+`I%S[v79;R%S[B)6NI%SWL(84@%SSN`7Y_R !SS*/B+@%SUGT:c.%SWn0X`I%S[/0;Q~~S]B'_zR%S_O9/DR%SaOd))R%Sc=sL2R%Sc}g[%%%SiOzAl~~ !Sm>pRv%%SqQF@%%%Sug5C2R%Sywu.%%%T-Sq8,7%T-g1B?VRT-zL4/m%T/2MNiI%T/DNiI%% #% [ 59] fr_l1.caps !SLoR~.%%SLn8DQ~~SLjBKc~~SLctshR%SLZub_R%SLOL2Q~~SLA]7MR%SL1RQVR%SJy6zzR%SJdkshR% !SJNH6-~~SJ60p2R%SHv)MzR%SHZD=hR%SH=*y[%%SFx>g[%%SFX0[u~~SF6ap[%%SDm|+hR%SDJ%ADR% !SB1.MR%%S@8EeDR%S>2R%%%%S<.riH~~S:W%iqR%S:0Bl-~~S8\|H-~~S8+Hvv%%S6Q^Z~~~S4v`y[%% !S4@H^Z~~S2bK;R%%S2(O;zR%S0FBKd%%S.a~jhR%Rt^3@v%%RfA@MQ~~RVr1Ru~~RHA>&l~~R8gUg2R% !R5~i0d%%RYrj7u~~R{J/L[%%S/s(Rv%%S3@x';R%S5fg_)R%S93XH-~~S;ZEQ.%%S=}NuVR%SE_kSDR% !SIw1*H~~SO1c.%%%SS2q5_R%SW'jP7%%SYuxSl~~S]^1>_R%Sa;Iv%%%Scs%ahR%SgIW8m%% #% [ 59] fr_l2.amp !Q%%%%%%%Q8-0o:PtQHwq\:N)QZod?7b3RL0@>I1{RVuRB@tlR`&C_^DfRdAQx;&->RF`.:*(7R@6*t2h>R8TXFZIVR0n5-Yv5QX~d;pk7Q`bQ{IB3 !R:6BO5O@RD%7S*-NRH6Hy?){RHoQ(,NvRH]YU:eyRFl^41}pRD]/6.79RB^aEO8sRB@YCUr-RDbo*Z80 !RHv=:m7+RLMo6,M(RNi,ng;JRPOR*e:?RPD@acp.RPG'\7% !T1%?Pod%T10QcNI%T1;{{8m%T1F;K/DRT1Oa;V)RT1X7}?.%T1^w9WqRT1c6RMR%T1fEviqRT1v4Vb7% !T3(ntcVRT38r~o7MT3J-C|J0T3Zw*8HWT3lE'w(2T3||ol.%T54:cRMRT5DXf+@%T5T2Z.%% #% [ 59] fr_l2.caps !St=L2R%%St<@--~~St8}6~~~St3OP7%%St+jxd%%Sr{|p[%%Srp+7u~~Srb1Bc~~SrR8q)R%Sr@EI%%% !Sr,^>_R%Spq0l-~~SpYpwDR%Sp@qzR%%Sp&7UZ~~SncyBd%%SnF0[u~~Sn&kG7%%Sl_u^Z~~Sl=S(2R% !Sj'BG_R%Sh.s3qR%Sf(2vMR%Sb}V5_R%SbI&\m%%S`v]c~~~S`F2^2R%S^olRMR%S^@%IMR%S\jd))R% !S\;b7%%%SZfny2R%SZ7m-.%%SXb?RMR%SX1}&m%%SVZTOhR%SV'd%%%%STM?F@%%SRq9?VR%SR9N0d%% !SN\O'd%%SJ|Hvu~~SHFUs?~~SDty&DR%SBUZZVR%S@?MZ.%%S>,@ADR%S:qMzR%%S8ZgwDR%S2/W0c~~ !Rx1.MR%%RP*(6VR%QNRkshR%RAtFlVR%Rc[pg2R%S-kL*H~~S1;5;)R%S3ce,6~~S70h)Q~~ #% [ 59] fr_l3.amp !Q%%%%%%%Q8ghks*UQL7Yr3\MQ^2=%;O}QnA(;y_NQ|QDc?JER.{0;l[jR0M&C;g*R0mc^vCGR2)DM3kp !R24:5+-FR26YL6*iR22>wj,WR2*Jvb2zR0|u?TW)R0zN7-vvR2&0^WpcR25:glnmR2LP4BKdR2h`Nd8M !R4zPO}[)R8JcK.?gRt`&O^GR8E,P~EQR0h~^FYxQXUpn6fdQZOZ'rJ] !R8Y8/Jj}RB4.rV,CRF:DzC*%RFp5sgIZRF`fvX{URDu_ZgZ6RBlXVLBdR@rk=6UUR@VPQ^rcRBvUXe|6 !RH+Ou0+]RJ[L'q8gRLtB?U95RN\:DgJPRNVt?7]*RN\4i)QxRLaSsBTnRJloiZPVRHly@X-4 #% [ 59] fr_l3.phase !S/~)zQ~~S58({H~~S9Fxd%%%S=Q/\l~~SAV[el~~SEWAdv%%SIS`(Z~~SMKys?~~SQADvMR%SU3qQ~~~ !SW~|3qR%S[oLRu~~S_`Ot_R%ScT';Q~~SgJMIv%%SkBunm%%So;aH.%%Ss10+@%%Suzo3I%%Sycx/DR% !T-j3|L2RT/,4qnDRT/D1{mMRT/WPnP_RT/g5}O@%T/uGwm%%T1(UM^2RT14kczzRT1?x+dMRT1IpFD)R !T1RaD)R%T1ZZaL2RT1aqQ6.%T1hY_vMRT1nwF/m%T1taB';RT1y='d%%T1zd*a@%T1m'slVRT15r?>7% !T1,dS}7%T17`r@v%T1B|Us@%T1M8EeDRT1Vap6VRT1_8Wy[%T1epT/DRT1isxd%%T1lmNeDRT1|Q4P7% !T3/*8HVRT3>nn4dNT3P,mFJ0T3`o9SHWT3r*|{U2T5(md~.%T59~>[MRT5J,Ls@%T5YczzR% #% [ 59] fr_l3.caps !St=L2R%%St<@--~~St8}6~~~St3OP7%%St+jxd%%Sr{|p[%%Srp+7u~~Srb1Bc~~SrR8q)R%Sr@EI%%% !Sr,^>_R%Spq0l-~~SpYpwDR%Sp@qzR%%Sp&7UZ~~SncyBd%%SnF0[u~~Sn&kG7%%Sl_u^Z~~Sl=S(2R% !Sj'BG_R%Sh.s3qR%Sf(2vMR%Sb}V5_R%SbI&\m%%S`v]c~~~S`F2^2R%S^olRMR%S^@%IMR%S\jd))R% !S\;b7%%%SZfny2R%SZ7m-.%%SXb?RMR%SX1}&m%%SVZTOhR%SV'd%%%%STM?F@%%SRq9?VR%SR9N0d%% !SN\O'd%%SJ|Hvu~~SHFUs?~~SDty&DR%SBUZZVR%S@?MZ.%%S>,@ADR%S:qMzR%%S8ZgwDR%S2/W0c~~ !Rx1.MR%%RP*(6VR%QNRkshR%RAtFlVR%Rc[pg2R%S-kL*H~~S1;5;)R%S3ce,6~~S70h)Q~~ #% [ 59] fr_m1.amp !Q%%%%%%%QBicASu.Q`KpE-)zQ|wkKyNqR0nL+\DRR48(kfG_R6Y))`Y7R8xgNKZ>R<[ZfN0d !R@}bd.+PRDM>0(*IRH'Z)y(kRJkj;[2jRNmasEZ&RT3[;BP|RXq([S`)R^s?SptxRf,ilge0Rl0Dk'|d !RvLsYmZNRvps3NRfRv0LOpLKS.i[gS.{S0A7mr4VS0\QPK+.S0c^'d'6S0ZoKwR+S0Dr%yPpS.}PTOs+ !S.TOdn~kRv3o?D=iRjr~7_|0R`QsROqJRVCuR\M%RLR%RQ*iRD8e}KjuRW-g6RLuV)PH`RNuZF[d5RPAGb:.yRP'd>A@`RNpR_F1GRLckw{OERL5\O>?wRJrhgKDX #% [ 59] fr_m1.phase !S=>|`I%%SARSXhR%SE`.ahR%SIgg{I%%SMiGk_R%SQd~RMR%SUZTOhR%SYIriH~~S]2S\m%%S_nIiqR% !ScI%mv%%SeulF?~~Si?o[v%%SkYk;)R%Smi,;)R%Sol.mv%%Sqa,WI%%SsGShzR%SsyN(Z~~SuDi,_R% !Sw=}WI%%Sy+V=hR%S{(g{H~~S}7em%%%T-W-vQVRT-c;(c.%T-nHs`I%T-xe\l~~T/'u80;RT//z7=@% !T/7,Mb7%T/=IL>_RT/C+FP7%T/H0]x;RT/LD+xd%T/O,(g{IT/O?8>odT/J{['';T/AWFy.MT/7U7>.v !T/2?8,[MT/;Y3+L3T/G@^Rv%T/RR/Td%T/]'nTd%T/g-:2R%T/p0lvv%T/wXGcVRT/~=]|@%T1;42^2R !T1KNuzzRT1_@8q)RT1sX5*qRT3-1m]d%T3Api}_RT3U5\`qRT3hUWiI%T3zk=P7%T52tYod% #% [ 59] fr_m1.caps !SN7Tl-~~SN6/8DR%SN1yk6~~SN+*0c~~SL{N=.~-~~S<9OhR%%S:`u2)R%S:9:c.%%S8eA6~~Rtw'C[%%RfWo+?~~RX-+|hR%RHUB?VR%R8zyc.%% !R5kx7MR%RYa2^2R%R{;rI%%%S/r2Am%%S3@W8l~~S5fd%%%%S93XH-~~S;Z:VzR%S=}5G6~~SE_kSDR% !SIw;~VR%SO1_MzR%SS2q5_R%SW'qj?~~SYu|3qR%S]^1>_R%Sa;Q6-~~Scs)Al~~SgIW8m%% #% [ 59] fr_m2.amp !Q%%%%%%%Q4hL/Mu_QD?jefbGQRMBu=9TQ`&Dtq39QjoDIN^*QtfcPkBDQ|^~TXr]R.^yhexDR.mVPGx\ !R.qcQ*/,R.laCi}_R.`7Kz'tQ~iO*`,`Q|5V8Wy[QzZ68y2RQ|N@cjhRR.VmW5d3R.hvC2CKR.itF8*Y !Q`B)WjjyQff@_l,GR29)h\F0RGRHS{-R>4sCFW%R@W-rEUf !RDgI(|*kRH>)b.i\RJ\]vt9DRLP2l{?PRLXQJ6e|RLhza'8~RJ{2`U/ZRJ9.0m~9RHDMW;i- #% [ 59] fr_m2.phase !S-j`mMR%S1~,k_R%S70YO@%%S;73}_R%S?7Kt7%%SC1g{I%%SG&KG_R%SIot[MR%SM[;b7%%SQBuJDR% !SU(@ahR%SWg{mMR%S[OfOhR%S_=>G7%%Sc1ey2R%Sg+KCZ~~Si|8@MR%SmdGK;R%Sq7F7v%%SsQ[EH~~ !S}=spZ~~T/+EZ%v%T/Jmxp2RT/Yw2b7%T/gBg_)RT/truzzRT1'yRQVRT14.-vv%T1?)Co;RT1HX_5_R !T1PucNI%T1X632zT3GF}QxxT3X3W\q)T3ibl1:[T3zCvU[%T51cK3I%T5B'Mf;RT5QS`qR% #% [ 59] fr_m2.caps !StB)b7%%St@{pRu~~SZiJ8DR%SZ9v]c~~SXcw@MR%SX32f;R%SV[G&m%%SV(='d%%STM`4hR%SRqKSm%%SR9\du~~ !SN\][v%%SJ|f+?~~SHF}{qR%SDuG.v%%SBUwhzR%S@?XT;R%S>,?zV)R6eqY.B|R0k0/4-kQd|ck_JeQVs}'_V* !R4Qrm0C[R<54G|C;R>plt]t7R@DgrK=0R@ArfcStyPf,AR>5^b_}&R+@R>^n\%~Z !RBi@U1@/RF;}ix?^RHUA;KwuRJJnou}GRJXan9w7RJj_vDeIRJ*CDgdfRHGsGCI.RFWeH&X2 #% [ 59] fr_m3.phase !S/<757%%S3OJy2R%S7\fSm%%S;ceP_R%S?dGod%%SC_Rmv%%SGU%12R%SKDrmMR%SO09t6~~SQqO3qR% !SUU<];R%SY7b2zR%S[sjT;R%S_W[]c~~Sc>=t_R%Sg&Wy[%%SifD%MR%SmA2=hR%SodJ.v%T/\D8P_RT/gA_9d%T/sHzV)RT1&07qzRT12Z1_)RT1>@^Rv%T1Hu+|hRT1R0r}_R !T1Z;c%v%T1aGX\DRT1ghxt7%T1mTD%MRT1rj%ahRT1w<:Jm%T1zRX'd%T1zNW4hRT1ob]+@%T1I71{I% !T11VNiI%T19cpJm%T1C}@ADRT1Mk'[v%T1Vq2%MRT1^w{4hRT1d~Cs@%T1hVF`I%T1k'MAm%T1zpRu~~SZiJ8DR%SZ9v]c~~SXcw@MR%SX32f;R%SV[G&m%%SV(='d%%STM`4hR%SRqKSm%%SR9\du~~ !SN\][v%%SJ|f+?~~SHF}{qR%SDuG.v%%SBUwhzR%S@?XT;R%S>,j/e)rR6hZe>r\ !R:N})RZYR>PoABY{RBsCM*;+RHf^&a?[RP2yQ-K|RX<,pdH_R`|wll)2Rl-Y`\h@5RN/Mz@RERB7|i=}WR6`dybcVR.p34sL3R.|-kT)6R4AB\sP7 !R8JH>Ls@R:pfPe}7R<[\;_xtRIzdYc2R>b)A/;pR>Fm&Y`tR<\3E1~_R:p79'ZqR:]4a`1aR>aW2`0G !RD5@*K*vRH)m5{TDRJV{>w82RLY7HW0RRLbO6}+sRLw]up+oRL>^>J4wRJJ3R*x~RH,C_AFf #% [ 59] fr_m4.phase !S:FEa@%%S60Kd%%%S0u~ZVR%Rn~.%%%%RDIel~~~R/RADR%%RWO?~~~~R}2)Q~~~S1.Y_R%%S3X7u~~~ !S5i0d%%%S7[ahQ~~S9+lVQ~~S94@%%%%S7{_R%S|ssL2R% !S|JA`qR%SzxY*qR%SzKv]c~~SxyHjhR%SxMrH~~~Sv}v56~~SvUm]c~~Sv/\HVR%Ste3uVR%StAxh)R% !SrENa?~~SpDG*qR%Sn:~:2R%Sl,`eDR%ShzLg2R%Sfv>.u~~Sd{Kp2R%Sd+xc~~~Sb5czzR%S\HW@u~~ !SXl`];R%SV?eP_R%SRi>shR%SPHjhQ~~SN0mem%%SJobG7%%SH`K';R%SFVaH-~~SDI6JDR% #% [ 59] fr_m5.amp !Q%%%%%%%Q4w+H0zfQDteg-dLQV&2J6N_QfLchYh?QxH-]\*YR0/;[CUCR27IER<;R4MWkuA7R6uk,OtQ !R:ZNtZ2RR>Z\cw_+RB{=e~t^RHk}^XT`RP46d}MbRX8*Uq6NR`sshfJ,Rjzok[TlRtu`M*{9R|}+)sFP !S.R{{>~cRr-@-?Q_R^{<,U?NRVxGd&kGRL_[YVhbR@_c:uX0R6*6%QVRQ|q4A8DRR0*Z*0UKR4[>S*<) !R8ep,TfLRGR<|yK-|XRweGFm !R03sR<<47+^kR>9T}R\uR>T8pgloR>pscc7%%%SEBJu-~~SM6=lVR%SW6O\DR%S[=5*qR% !S]0jt_R%S]W;^2R%S]pPO?~~S_.CFhR%S_LRu~~~S_u`8m%%SaTE8l~~ScI)MzR%Seee@MR%Sk)RIMR% !S{'jP7%%T-VoqEqRT-a-Q:2RT-fdb{qRT-k*3U2RT-oTy*I%T-rlE,_RT-rq-VR%T-pJiDzRT-qD{@v% !T-wm[ahRT/'4Bp2RT/2NW4hRT/>=+hR%T/JA-nm%T/V5n,7%T/c5QB;RT/oR`y[%T/{i>*qR #% [ 59] fr_m5.caps !S~b;)R%%S~bqf;R%S~deHVR%S~glJDR%S~l,k_R%S~qS8DR%S~x/DR%%T.R,?.%%T.Rxp2R%T.SvADR% !T.TwLZ~~T.V%qzR%T.W1wDR%T.X:Bc~~T.YFH.%%T.ZGSDR%T.[D~VR%T.\7U[%%T.\qrI%%T.]CZ~~~ !T.]5&l~~T.[SXhR%T.WVEqR%T.S1*I%%T.Rb{qR%T.R_Am%%S~w93I%%S~_F;zR%S~?U>_R%S|ssL2R% !S|JA`qR%SzxY*qR%SzKv]c~~SxyHjhR%SxMrH~~~Sv}v56~~SvUm]c~~Sv/\HVR%Ste3uVR%StAxh)R% !SrENa?~~SpDG*qR%Sn:~:2R%Sl,`eDR%ShzLg2R%Sfv>.u~~Sd{Kp2R%Sd+xc~~~Sb5czzR%S\HW@u~~ !SXl`];R%SV?eP_R%SRi>shR%SPHjhQ~~SN0mem%%SJobG7%%SH`K';R%SFVaH-~~SDI6JDR% ifeffit-1.2.11d/src/fefftab/82.dat0000755000175000017500000003577010771740460015504 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] pb.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] pb_k.amp !Q%%%%%%%R@I2QV80RZM*rg-|RrlK^)5`S0&GA.l>S2'J<|'dS2ug;;\)S4\,eWpQS64+?QLGS6W[{F}P !S6m-f]Y^S6u-yufdS6pf+[/cS6`zb4n4S6G7,a8VS4~a6jPnS4U'n4mXS4%n{J(AS2LW6V)5S0qV(P22 !RzA|]7IrRjA5HrS:3qTo:QS8^tF|jBS6d'%'*US4St0F&| !S2?VV+KsS0/Yk%;iRx/~'f'p5%~RX'jhOn4RVk8CRB|RRhW>n_:RN`B&Jj}RJmqRU[%%S=FD)Q~~SAK';R%%SELYk_R%SIK2Z.%%SMFe`qR% !SQ?MZ.%%SU5O@%%%SY)&`qR%S[t<8\l~~Sk*iI%%%Smr+L2R%Sqa>k_R% !S}I8L[%%T-pKqj@%T/Dy95K7T/y4}LNqT11FXNY7T1Bkw{Y7T1SG:i}_T1c%gJm%T1qW@X.~ !T3%-`ZC*T31_0l.%T3=OEVEqT3Hzef/DT3Td'5odT3aeu\oKd%T7LO)f;RT7W(iY7%T7`/:k7%T7gH;EqRT7kVZ.%%T7n11c.%T9'9'_zR !T97IXL2RT9Jj|hR%T9^2&6~~~Q~;(c.%% !Q7s;1Z~~R1KC[%%%R;wA`qR%RGOQJDR%RS.'Kd%%R]tMb6~~Rim++hR%Rus,{qR%S-e/LZ~~S/Dkwl~~ !S3&=\DR%S5di([%%S9E{8l~~S;xr4hR%S?G@el~~SAfmem%%SE'BG_R%SG@]d%%%SIY|`H~~SQ8xh)R% !SUE1wDR%SYK3H~~~S]Iq1[%%Sa9.12R%Sc{@v%%%Sg_aH.%%Sk9v]c~~Smi/u.%%Sq':c.%%S>3eDQ~~S>AM%MR%S>PH%v%%S>`]_zR%S>r0?VR%S@*{8l~~S@?,k_R%S@TZ>7%%S@kOdMR% !SB^o_zR%SDBKd%%%SF/KG_R%SFd+t_R%SH<4hQ~~SHq~zzR%SJP0x;R%SL0QF@%%SLm%%%%%SNQQ:2R% !SP7iqR%%SPygVzR%SRc4P6~~STMyc.%%SV9t[MR%SX&t?.%%SXnqMzR%SZ]a3qR%S\M8P_R%S^=J0;R% !SbEJ8DR%SfP7mv%%Sj]2Z.%%Snke4?~~Sr{\(2R%Sx2T';R%S|D7=@%%T.Vyc-~~T.js'd%%T0Li}_R% !T0trU2R%T2B~fc~~T2k;rH~~T49R~.%%T4amiqR%T6025_R%T6XP[MR%T8&ra?~~T8O:g2R% #% [ 59] pb.lambda !RdZ~6-~~Rd\[~.%%RdaOH.%%RdiTh)R%Rdtl)zR%Rf)7ahR%Rf:g{I%%RfOEK;R%S0>H%u~~S0N&}6~~S0^5C2R%S0nkk_R%S2%i(Z~~S27)MzR%S2HdahR%S2Z[iqR% !S4.F\DR%S4]L.MR%S63KKc~~S6d9_zR%S8;b7%%%S8m`0c~~S:F/l~~~S:xz=hR%SshR%SFg/R@+=hjkh !RB/]Z+|iRD+`hWw4RDwx3WY7RF_a:Xy.RH=>/lweRHi>{}uFRJ/Q6JKlRJED@OL{RJQ%2TlRRJU*30d% !RJa~y2?kRLK.2l0'RZ6Z*O3)Rj\Sv<|qRzX^XbRVS.l=VP33S0(-n-s5S.}^:qRR@KxekGRPl'KYXkRP2PWw.pRLo_*ivXRJZ{3Ya>RHo]r'q7 #% [ 59] pb_l1.phase !R1a\DQ~~R]r7%%SiCM.iqRSk.'5od%Sm&%'p2RSo%vX'd%Sq*6Q:2RSs/0FL2R !Su3\tcVRSw6C|dF8Sy89T7MRS{;jh-VRS}G66-~~T-Xsy&DT/4;`}_RT/YQ:{I%T/mc%QVR !T1-AWU2RT1>R12R%T1LqWoX`I%%S>Vkwm%%S>;|xc~~ScVR% !S6/\m%%%S2ztod%%S0dQzzR%S0);Al~~R~vk*qR%RrfZ>6~~RfITG_R%RX|JTc~~RLNCg2R%R>uq^2R% !R2C>;)R%PK{`Q.%%R1d,cVR%R?4lzzR%RK^&DR%%RY.u6-~~Re[RiqR%Rs1>_R%%S-XWQ-~~S/:G2zR% !S1x4\DR%S5\XhR%%S9=Bp2R%S;pZZVR%S?@`yZ~~SAbV~VR%SE%1VzR%SG?U>_R%SIXwu-~~SQ7DZ-~~ !SUDnhzR%SYJ~nl~~S]I>.u~~Sa8uvu~~Sc{DV)R%Sg_O3qR%Sk9r}_R%Smi757%%SqS2>R0A`4Sf/R06@HW@v !Qlcp?rqRQL;j{WCCR.sM?T%OR:[}kNF4RFh90|@%RPg.HyyGRX8UG-/]R\)~5w9|R\K<56{ERZXgC4>G !RVfa%nRbRR3f/AYWRL82hHb_RF0b.Z`]R@*cAMB\R:3|AEOPR4^_TR~.R0ki}\YWR03'3nvfR2&>>0Sm !R:\dVvg&RBD^Wo9tRDuLXAd-RDj.9yNqRD%b8SvWR>aaZB.GR>evZrqRRDcTya+i !RJ6AA}e`RL|gNI}yRP.?70?9RPbPj_H[RPG>i/iLRN|C*7.>RN%p{PE`RJqK6cqHRHU_`q/& #% [ 59] pb_l2.phase !S;T[u~~~S?klrqR%SE*[]d%%SID~VR%%SMb?vv%%SS(WDzR%SWL<];R%S[rA@MR%Sa>fl-~~Seb'[v%% !Si~:VzR%So5OdMR%Ss:b?-~~Sw2f;Q~~Syx4\DR%S}X(Rv%%T-[c||hRT-h>pwDRT-seoKd%T-~)`}_R !T/8{Y6~~T/'VZRMRS}xE8l~~S}[^wDR%T-TJ|H.%T-\aN4hRT-es[12RT-oL5g[%T-y)2%MRT/(N|L2R !T/1byJm%T/:ejX@%T/CWpc.%T/LUyFhRT/U}Yod%T/`pM9d%T/ndrDzRT1(Db[MRT1BslVR%T1[GG[MR !T1|DJ@MRT33MC&DRT3?i)Iv%T3II>wm%T3Q0hrI%T3WI%%%%T3[y:Z~~T3^.\,7%T3^{J-JET3ji&`([ !T3w+N`Q.T5,-N|'dT5;|T;R%T5K[0h)RT5\-FdMRT5kB]/DRT5{fqEqRT71^:[%%T7@;E([% #% [ 59] pb_l2.caps !S`Tqj?~~S`T_V)R%S`T(s?~~S`R~-~~~S`QMZ-~~S`OGcVR%S`Le0;R%S`I@z)R%S`E1Ru~~S`@(:Z~~ !S`9wq)R%S`2]h)R%S`*%EI%%S^y{I%%%S^nC>_R%S^`xl-~~S^Q`];R%S^@BWqR%S^,j'c~~S\pr,_R% !SZyBc~~~SZ-2MzR%SX1ufc~~SVm+t_R%SVVE(Z~~SV4N4hR%STeOL2R%ST6r(Z~~SR^.qzR%SR(IY_R% !SPK(s@%%SNlhAl~~SN4?6-~~SLV/XhR%SJxZ>7%%SJAwTc~~SHf;vMR%SH1[IMR%SFWmMR%%SD~g.MR% !SBZFdMR%S@5y&DR%S_R%R8zF`I%% !R7et?-~~R]+{0d%%S-[em%%%S1=T_zR%S3nxh)R%S7De(2R%S9m/y2R%S=4/m%%%S?ThrI%% #% [ 59] pb_l3.amp !Q%%%%%%%Pt|b}VZ.Q4rG<{53Qfb2*@vR8xF4ar9R4OR,0SmR0^o&85xR.{M/9cSR0f&X2{J&0R@N:&DR%R>_3Ep.\R>+cb1rnR>1E)W&}RD)O_Z.% !RHPXqnGkRL;sD~E%RNH=J|opRN}W;jp/RNgRv4h5RNGwzKU7%T/tz6)zRT1.5WmMRT1HK3H~~T1a;vqzR !T3(hB7MRT39iznDRT3Ew-%v%T3OLHF@%T3W(x3I%T3]A4@%%T3amiqR%T3cuq9d%T3dZ+(wDT3p*S7U[ !T3|J[_R%S^`xl-~~S^Q`];R%S^@BWqR%S^,j'c~~S\pr,_R% !SZyBc~~~SZ-2MzR%SX1ufc~~SVm+t_R%SVVE(Z~~SV4N4hR%STeOL2R%ST6r(Z~~SR^.qzR%SR(IY_R% !SPK(s@%%SNlhAl~~SN4?6-~~SLV/XhR%SJxZ>7%%SJAwTc~~SHf;vMR%SH1[IMR%SFWmMR%%SD~g.MR% !SBZFdMR%S@5y&DR%S_R%R8zF`I%% !R7et?-~~R]+{0d%%S-[em%%%S1=T_zR%S3nxh)R%S7De(2R%S9m/y2R%S=4/m%%%S?ThrI%% #% [ 59] pb_m1.amp !Q%%%%%%%Q87N>DEqQJLLbQB;Q\f5bH\YQp,LlgRvR._dZ[35R0[O%{^qbR4U{g(0tR6TW8&_^ !R8S0_\|mR:Q9:a=}RLw=7v%R@Hlr([%RBCd,[u[RD<9hfg;RF3o9t7%RH)KemX(RHwb4\a` !RNV|`>*rRR?tq6rrR`i[{,,ORpt1Fu<5R~?lebRzS.ik&xPES.oeYZAMS.a(\(hMR|Hg&eJ?:R6?O{cfdQ|W08RH6?GOC_ !RL>(2jQRRN`jRr<7RPXI0}W%RPqIiW(ERPF9eD9zRNk)QYGTRLP2vd4ORJC[x+wIRHW>%l3~ #% [ 59] pb_m1.phase !R1'?VQ~~R]5.u~~~S-{^*I%%S3(CRv%%S7(_)Q~~S9|Vb7%%S=o}.v%%SA\xCZ~~SECDf;R%SG}<|;zR%S[I%IMR%S]K_RSy1SVAm%S{+hkSDRS}1Tp{I%T-XPJbO@T/.=C>;)T/fU?rqRT/uJOL2R !T1.ibwm%T1=WXH.%T1JjX@%%T1VRTG_RT1`bSDR%T1iI_Am%T1pGbC2RT1uOr8m%T1yf8`qRT33SuRMR !T3CHF@%%T3Uu(g2RT3i;eL[%T3{|+D)RT55R)rI%T5Gl1:[%T5ZbuF@%T5l+BKd%T5|*%iqR #% [ 59] pb_m1.caps !SBJ-JDR%SBHeP_R%SBDd]d%%SB=}WI%%SB4dqzR%SB(ps@%%S@tRUZ~~S@cnm%%%S@Po?VR%S@;[ADR% !S>~=lVR%S>dtG6~~S>IREI%%S>,5G7%%S.u~~Sa8yVzR%Sc{H6-~~Sg_Rmv%%Sk9v]c~~Smi>O?~~SqOT)>Q<8UW7-wQBNKm3QwQJ5.Fp'|QRE=)b|kS9JfTRFx&FYeYRN%6Sl2NRPg_Gy8YRR:Xu^m9RPci?eWz !RNBg@ym^RJ@u67pgRDyp^twmR@Lz@Mp\]R>y`A/AaR>GA`pIZR7%%S[53DzR%S]=?6-~~S__5;)R%ScaS(2R%Sij9x;R%SotcVR%% !Swa1Jm%%S{KcZVR%S}b_Q~~~T-X3j7v%T-_PJq)RT-eKRY_RT-i^zZ.%T-kYV5_RT-l:C]p2T-w`dG&m !T/)yU\8DT/8x6/8DT/Hi0c~~T/XKG;)RT/i(WDzRT/xENa@%T1.wvADRT1>vY_R%T1MT*uVR #% [ 59] pb_m2.caps !S`P^c.%%S`PP.v%%S`Ow,6~~S`Ny[%%%S`MPG7%%S`KY*qR%S`I'Kd%%S`EoOhR%S`ArcVR%S^?:2Q~~S^+wP_R%S\p;Iv%% !SZyFD)R%SZ-O\DR%SX3{];R%SVpHjhR%SVZ(g2R%SV7y_)R%SThVMzR%ST9T[v%%SR`J\l~~SR*OP7%% !SPLo;Q~~SNnBOhR%SN5a/l~~SLWFX?~~SJybcVR%SJBu%v%%SHg*mMR%SH2C&DR%SFXJ0;R%SF%57%%% !SBZXxc~~S@6&@MR%S{qR%R8z8,7%% !R7f,SDR%R],PSDR%S-[em%%%S1=T_zR%S3nxh)R%S7Dhb6~~S9m/y2R%S=4/m%%%S?TlRMR% #% [ 59] pb_m3.amp !Q%%%%%%%PRWssJBPQ.[b~+[zQ421.Ga0Q8{H6*eiQ@0@r~vRQFcswc:WQNfKO%KtQX6Q?;j@Qb*_Mkwm !QlRG&m% !R4etEP,tR:rUJt_vR>70HM@ZR>38wusR:=Li.6&R>~@_J5S !RDA()HTmRH.TnzU3RJBIG1g2RL)d`{x{RL*&-gRvRJvWFeQVRJ4b`~A_RH:u0hrIRF/Lo`*D #% [ 59] pb_m3.phase !S:|@mv%%S6e|H.%%S2P:_)R%RzX@%%%%RN_1[%%%Q3{qR%%%RO^_)R%%Rwj7v%%%S1//(2R%S3|1&DR% !S7gdADR%S;K}SDR%S?(uB;R%SAXOH-~~SE&ZjhR%SGG'[u~~SI_b[MR%SKoKc~~~SMucrqR%SOqiQ-~~ !SSj4;zR%SSf>C2R%SQ3oOhR%SMd[ahR%SM1\\m%%SMBK?VR%SMv]c~~~SOaf+@%%SQUm]d%%SSLPO@%% !SUC_)Q~~SW:Lo;R%SY0Z>7%%S['5od%%S[{]_zR%S_&xCZ~~SaDEM)R%Se?I12R%SkE>shR%SqZ>7%%% !SyPLs?~~S}9G;)R%T-V)R%%%T-^mVIv%T-e{\q)RT-koJP_RT-o{XH.%T-qcyg2RT-r+8op2T-||6xSm !T//7H/8ET/=rt88ET/MXt_R%T/]>k;)RT/m`-)zRT/|yDAm%T13Y,*qRT1CI57%%T1QyFD)R #% [ 59] pb_m3.caps !S`P^c.%%S`PP.v%%S`Ow,6~~S`Ny[%%%S`MPG7%%S`KY*qR%S`I'Kd%%S`EoOhR%S`ArcVR%S^?:2Q~~S^+wP_R%S\p;Iv%% !SZyFD)R%SZ-O\DR%SX3{];R%SVpHjhR%SVZ(g2R%SV7y_)R%SThVMzR%ST9T[v%%SR`J\l~~SR*OP7%% !SPLo;Q~~SNnBOhR%SN5a/l~~SLWFX?~~SJybcVR%SJBu%v%%SHg*mMR%SH2C&DR%SFXJ0;R%SF%57%%% !SBZXxc~~S@6&@MR%S{qR%R8z8,7%% !R7f,SDR%R],PSDR%S-[em%%%S1=T_zR%S3nxh)R%S7Dhb6~~S9m/y2R%S=4/m%%%S?TlRMR% #% [ 59] pb_m4.amp !Q%%%%%%%Q2i@w^]'Q@QDS.sXQN4u.\IEQZl.S2/4QhDcYmKtQtl{bBYOR.\Z.4@nR0;j5*qRR0v)(Lrv !R2WZ^R\QR4=%b]9tR6(9[pugR6sUbT|@R8meG4/p_RT@Vlu>7RN&LSMy?RDq@nQz2R>xUC2-VR>PdAU=(R@\-syVV !RBt&9-X0RDN:Bh%rRD>7D@zNRBJ^8yV{R@,WNHS|`R4(JNnh2R2=5)i,` !R49%.[ZNR8mhUpV2R<@jK}wmR,@fR8aaz`:9R8:O@RW]R8JxL&O+R>v%K0fm !RD^WTy_}RHhqh(NcRL+/Z6(&DR%Sv=Ywm%%SvJ/(2R%SY.)niQfNM-2R<)tp_?FR<}YjT48R>|>gJ{YRB%6:A,7RD+L+7v%RF0EReL7 !RJZm}tAURJRQBG3iRN=OSc6wRT3SDjJyRT.=M/}7RLj4sbG[RD^?%e{YR>qd<&n]R>Xk\%m-R@l>+9Hs !RD+YzK6_RD]^TPtWRDJFD1SeRBSP^Vd^R@2@ZnOqRuhxRLL|QywWRJSbH_^ARH44X/aC #% [ 59] pb_m5.phase !Rwf|@%%%S1Gr0c~~S5T^Bd%%S9Z||hR%S=ZpJl~~SASjX?~~SEF29c~~SI0kcVR%SKnFxc~~SOJW0c~~ !SQxpVzR%SUE5WH~~SWc5cVR%SYxE8l~~S]+S(2R%S_/H2)R%Sa*L_)R%Sauq^2R%Sc]5&l~~Se:Ug2R% !SgA?^[%%SgC_)R%%Sgh}gZ~~Sgztod%%Sg{U2R%%SiEUVzR%SkTOhQ~~SoWU2R%%Ssum~-~~Swg)Z.%% !Sy~r(Z~~S{t::[%%S}Tlvv%%T-RF4;zRT-VE757%T-ZSUwDRT-_R|P7%T-fEdU[%T-p6e,7%T-}UFhR% !T/GPA0;RT/\?/8DRT/gSRahRT/mEP?.%T/oX1&DRT/oq>WI%T/nlt*qRT/kX%ahRT/f^)5_RT/cHm~.% !T/hij\DRT/q=9/DRT/zlu>7%T1*yZ~~~T16&1s@%T1@./0;RT1Ky5C2RT1WiSy2RT1c=Kh)R #% [ 59] pb_m5.caps !Sv>(&DR%Sv=Ywm%%SvJ/(2R%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] tc_k.amp !Q%%%%%%%QP;7=%i)Qx~vtB-gR24a>eMnR6%(BYK`R8`?|T_zREUWX=4R@Gt^sR9RB8WfR&] !RBqac;|TRDAs)-'/RD]Z+[z*RDmoFo1kRDt23*8mRDq>B/5xRDhJD-VRRD[/%[ZNRDM,St;NRDCNySdv !RF+gV^+8RLyCH5T|R^O:id12Rnrv`/[ZR~W2UPO@S.}VYoHaS079l^LlS0,|z^{IS.dej(]/Rxa\@@go !Rl?cq7s}R`&5DcgSRTNCa>CWRLI~0/=8RHC+~bflRH:+7u~~RJIzK8N]RN2ouI}dRP{_hEIIRTa}J^o; !R\7LDmvIR`k8&=FPRdBU\LiYRdt`tOvbRdbraXQRRd,ZQx(lRb4wpAZrR`%-D\9%R\d+Ult^RTbT<^y1 !RN}<fiRJMaj=leRF2edOfPRB=i*M8,R>9a3h^pR:ymgflKR8[`]NMrR6g=I'c(R6v=XW+W #% [ 59] tc_k.phase !S=_rI%%%SAqz-VR%SE{IIMR%SI|A\m%%SMt|;zR%SQebO@%%SUNreDR%SY0lRMR%S[et?-~~S_:B?VR% !Sab43qR%Se)Q6.%%SgD)R%%%SiW]J,7%Skc[34hRSmgKuJDRSob:3@v%SqS%6JDRSs8_@~.%Ssl?JDR% !Suew|lVRSuoKhF`ISw/i+L2RSwRg}od%Sy&OW,_RSy]`Znm%S{@{@QVRS}(G+`I%S}j)+xd%T-V7eHVR !T-[WY[MRT-_??%v%T-`J}[MRT-^=L2R%T-YNj\DRT-T[F\DRT-R&o';RT-R(>;)RT-S{)nDRT-W2^{I% !T-b;gNqRT-owxC[%T/%6-6.%T/5DM1[%T/EL[IMRT/TdIMR%T/c-.mv%T/q&]7MRT/~k6ZVRT1KQ,k_R !T1cwhV)RT1z3zIv%T35`eDR%T3Ju*DzRT3]QyBd%T3q79_zRT5(SO'd%T58wc>7%T5K8s+hR #% [ 59] tc_k.caps !S2/+H.%%S2.57%%%S2+GcVR%S2&fSl~~S0z>{qR%S0r'G_R%S0h'+?~~S0\>&m%%S0Not6~~S0?_%MR% !S0.lb_R%S.v;=hR%S.a~jhR%R~BJ,7%%RxavahR%RrnIiqR%Rlg'3I%%RfJQrqR%R^qU:[%%RX&HVQ~~ !R<\hV)R%Q7hVrI%%R3WbSDR%R9p,&m%%RC=(wDR%RM\*Y7%%RYc&@MR%Rg>NQ.%%RuA,7%%% !S@Iv%%%%SB@8(2R%SB~4t_R%SDY.v%%%SF8\m%%%SFt[))R%SHXu)zR%SJ?7ADR%SL'?zzR%SLk&HVR% !SNV2Iv%%SPBY*qR%SR0*Q-~~SRxSHVR%STgnq)R%SVWuVQ~~SXH\XhR%SZ9z=hR%S\+ieDR%S\x*uVR% !Sb*L_)R%Sf8edu~~SjHQ^[%%SnYE}_R%Srk43qR%Sv}\`qR%S|6apZ~~T.UfC[%%T.icB;R%T0Kp2R%% !T0t)^2R%T2B=/l~~T2jWuVR%T48vADR%T4a:g2R%T6/\l~~~T6W~rqR%T8&JXhR%T8Np>_R% #% [ 59] tc.lambda !SPuxx;R%SPxE];R%SR%Tl.%%SR1=p[%%SRA=\DR%SRU,&m%%SRl0';R%ST+i@u~~STG<6~~ !SV&u.%%%SVCI57%%SV^gVzR%SVx?VQ~~SX5Uk7%%SXJ3,_R%SX\-nm%%SXkX7v%%SXy-^[%%SZ+_Z.%% !SZ[EH~~~STzTp2R%SLR++hR%SJ5mahR%SH[+t_R%SHLcvu~~SHUIY_R%SHmh9c~~SJ7KOhR%SJcr(Z~~ !SL=Bp2R%SLvW8m%%SNZb_Q~~SPC'3I%%SR/-%v%%SRxL.MR%STjjxd%%SV_lB;R%SXW>*qR%SZP~>7%% !S^w>oc~~SdNiI%%%Sj/~JDR%Snsy.MR%Ste_^2R%Sz^Qb_R%T.Wdz)R%T.s;V)R%T05E4hR%T22lfc~~ !T2oG_Q~~T4S^&DR%T69C[%%%T6zK/DR%T8bm=?~~T:LAP_R%T<6{iI%%T<|]3I%%T>i<([%% #% [ 59] tc_l1.amp !Q%%%%%%%QNuI9NMrQx>)c57nR2*`SbwIR4qynOSMR8OPK)=hR:tU>p]pR>-fPv&]R@.>K/.^R@w%YI]d !RBV;>2zRRD&W\+lVRDDgjg,KRDXU@k9LRDbHl*{]RDe:It]+RDaiMpX}RDZR^J2bRDT,iEw}RDR,5j6> !RFH:G^c.RN<`|p[%R^j[(cK3Rp0kh+>GR~f21xu&S.~Gnsy'S07%JjYHS0+oJDY`S.cdY&Q@RxWvytwm !Rl=+_um5R`,Sx}wmRT]?8[~.RL]HE_b7RHWHhz?kRHGvdY_RRJRM@s3rRN45I\:kRPy*UHF@RT])M42^ !R\-m^hj@R`_J'Z6wRd6-`MycRdf9YM/4RdU`8aVxRbzu7XudRb*NLMVrR^uJw-C*R\[>X}CERT\9rWMU !RNx6[txjRJJ%n1Y*RF/T9uE}RB;K@,vRR>7mCv>=R:x5fdFUR8ZT=z@DR6f8cuhPR6u-X.dZ #% [ 59] tc_l1.phase !S=W+L2R%SAi30c~~SErU2Q~~SIsF+hR%SMkujhR%SQ\XD)R%SUEdz)R%SY'bG6~~S[\mmv%%S_1C.MR% !SaY?vu~~SczkSDR%Sg;V)R%%SiO9mADRSk[Hb;)RSm_M-zzRSoZVd9;RSqKnXD)RSs2;(>_RSsg+yRv% !SufQF@%%Sut&?+X@Sw6c-ZVRSwXq>{qRSy*3\L[%Sy^_U:[%S{?PH%v%T/TUo;R%T/bxT[v%T/pqb6~~T/~[tk_RT1KBRY_R !T1cj_R%RX+4`I%% !RKR.i'np(GQ|(iG~[EQt.n1'qF !QlMO19@ER2?,JcxTRsw,R^>PH)V)R\/htgb?RV`1/\Oq !RP3'1Cp*RH5IP>jqR@*>QPodR8Kmal2)R48QLO1&R4Hr@w-JR8AS6ckWRy%}cWRXG-=.Y`RR71jpCa !RLy}Uf^yRHc7h.BQRD[Rt1w6R@w5&L=/R<~>-*g8R:k'm2%JR8HP1KZMR6*9'5gbR4VtbxS3 #% [ 59] tc_l2.phase !SB+6>7%%S6~~~Q_WqQ~~~REfG_R%% !R_h)R%%%Ry&P_Q~~S/DvqzR%S1L2Q~~~S3M6NH~~S5Hm~.%%S7@kO?~~S97}cVR%S;330d%%S=8cb_R% !SEoFpZ~~SM'nTd%%SOCsdMR%SQVU:Z~~SS_^VzR%SU[go;R%SWMx+@%%SY8uRMR%SYy?)zR%S[Y|`H~~ !S]1~:2R%S]URv%%%S]^]';R%S]3;9d%%SYc?nm%%SUjqIv%%SSd<,_R%SSJJXhR%SSSBOhR%SSm3}_R% !SUptSDR%SY*=`I%%S[EEDzR%S]f{uVR%Sa0=T;R%ScN{];R%SegK03I%Sg{YT3I%Sk3U=L2RSqRs3qR% !Su`YWmMRSy\Wn`qRS}QW@v%%T-^P'7MRT-m@N@v%T-}Ed12RT/2%g&DRT/?y\8DRT/M]<@v% #% [ 59] tc_l2.caps !SVk->7%%SVjP[MR%SVh\y2R%SVeR=@%%SVa7v%%%SV[go;R%SVU.))R%SVMIQVR%SVD`4hR%SV:r,_R% !SV0(s?~~ST~<4hR%STqR%%%%STcfd%%%STTv]d%%STD~2)R%ST3r@v%%SR{H6-~~SRgK7MR%SRQeP_R% !SP].U[%%SNg3@v%%SNDu^[%%SN>k;)R%SN.?fc~~SLli0c~~SLHVQ~~~SJx*uVR%SJHb;)R%SHoc6.%% !SH:'WqR%SF\`qR%%SD~F?~~~SDEznDR%SBh2%MR%SB1K[u~~S@VMzR%%S>}K;Q~~S>LUg2R%SD>WIR4U'h.[=R2zKC5->R2Dg+hG+R0i}v|^kR085q[ADR.dnv.+/QzXJ?J5xQrXOq_j@ !Qj9lynL[R2/mc}dER<@j])6NRF/]l@9;RP'Fixa4RX%o\B^CR\MamK9tR\~KB3[9RZqM|\=8RVJ08smE !RNyfy;u_RF~rd9uoR>v7xaX@R8?HCCwDR4,WJX*UR4=38D4qR85]EHpKRp.N !RN60IzU;RTB?-&l6RXNA8_R%%SYI-RMR%S[/,[MR%S[iEiI%% !S]@|t_R%S]dQVQ~~S]mM-VR%S]Avel~~SYp`a@%%SUuz1[%%SSnkk_R%SSU62)R%SS^V1Z~~SSxdmv%% !SU|zf;R%SY65?-~~S[PUFhR%S]qXt_R%Sa:tSDR%ScZ1_)R%Ses44`I%Si-;>WI%Sk>Ve(2RSq^0OhR% !SulQ6RMRSyg?gwDRS}]Ny[%%T-_eWU2RT-nLtSDRT-~_|xd%T/3@%mv%T/A1RQVRT/O'Fp[% #% [ 59] tc_l3.caps !SVk->7%%SVjP[MR%SVh\y2R%SVeR=@%%SVa7v%%%SV[go;R%SVU.))R%SVMIQVR%SVD`4hR%SV:r,_R% !SV0(s?~~ST~<4hR%STqR%%%%STcfd%%%STTv]d%%STD~2)R%ST3r@v%%SR{H6-~~SRgK7MR%SRQeP_R% !SP].U[%%SNg3@v%%SNDu^[%%SN>k;)R%SN.?fc~~SLli0c~~SLHVQ~~~SJx*uVR%SJHb;)R%SHoc6.%% !SH:'WqR%SF\`qR%%SD~F?~~~SDEznDR%SBh2%MR%SB1K[u~~S@VMzR%%S>}K;Q~~S>LUg2R%S6PW>*q !R>n_/3y7R@Ddr/,7R@m&}:_*RB64)MoXRBT;74VbRBod;MkxRD/wbpp*RDIG5G7%RDd=PVD:RF+.&Ep? !RHq=9t:_RPvC)tC{Rb_K\sq%Rrz_9|*1S.\^2u_CS0,Cx.LrS098P:XrS0)_e|=uS._LK~6{Rx7}~Pl* !Rl:Rg=b'R`Q{cxxWl~QLR`NPU_AWR^C}A+Y[R\.@7}ZLRT.WoHrQR:p5D,P=R8U-C'@3R6`sa1P^R6oShMg[%%S9F[U[%%S9~yg2R%S;[`0d%% !S?,;rI%%SAV%))R%SE&SP_R%SGOr8l~~SItJq)R%SM70C[%%SOK(s@%%SQX3([%%SSavahR%SYuf?VR% !S]mPg[%%SaW'l-~~SeR0e|WImvR2^ltWAeR4B(u)NiR4j)}brUR6'/P@tGR60&Su.% !R6.J|]:cR6&:G]9tR4sL'x_{R4cs2OX@R4S@)k.vR4AvlY4XR4.B_iF4R2q;L?kWR2U2loMBR21'V.(; !QvaB3y/NCR6q?mPUGR>a\5]W)RDMr/CTTRFjzKhXuRFct[cF@RDQ:e3uW !R@GR.ZrqR:f~yg{IR28lPC{IR6J9e@%IR:O.eQ`]R>CwOB@j !RFCMzV%rRL],SDR%RR/UO;zRRTefn*xVRVZ_woKdRV}z^*]JRX%^{`w&RVaxA}{uRV-R0}CARPYcQ6EC !RLXp<>qXRHQ2VVF@RDQg4qW'R@rOx}V^R<{|kb0xR:iV=?X%R8H=awvWR6,Khm%QR4[Hk&%x #% [ 59] tc_m2.phase !S;P^c.%%S?`vEH~~SCdg&DR%SG\U.MR%SKHlF?~~SO*(6VR%SQ[/0;R%SU(e0;R%SWFspZ~~SY]1k7%% !S[k.QVR%S]qU:[%%S_q:wDR%Sak/du~~Sc_/}7%%SeN1wDR%Sg9/DR%%Sgz38m%%Si]OhQ~~Sk.v% !T/;4Zfd%T/Fyp*I%T/S4]3I%T/_v|t_RT/leT?VRT/y.uZVRT1*t0x;RT16=z(>_T1AF{};*T1`BS+H. !T1t5_}g[T3,4vw\mT3=J%ADRT3NdJ`qRT3]g,&m%T3m}Mb7%T3|bz^2RT50k)9d%T5>i@-.% #% [ 59] tc_m2.caps !SVk?RMR%SVj_5_R%SVhkSDR%SVe`qR%%SVaFP7%%SV[vIMR%SVU<];R%SVMX+hR%SVDk.v%%SV:}&l~~ !SV03mMR%ST~G.v%%STq\y2R%STcm~.%%STT}wl~~STE+L2R%ST3yZ~~~SR{OP7%%SRgNqQ~~SRQi0c~~ !SP]5oc~~SNg:Z~~~SNE*8m%%SN?*iH~~SN.Y;)R%SLm%%%%%SLHlF?~~SJx=/l~~SJHtO?~~SHouJDR% !SH:9l.%%SF\oKd%%SD~XT;R%SDF3([%%SBhD9d%%SB1aP6~~S@V`4hR%S>}]OhR%S>LdADR%SZ5]e]Q~rL}ZWAR0]MY0SmR2T>yb0TR45_o^)6R4\(bvRER4qdR(:[R4y\:efx !R4w@tyR-R4nts%KtR4b81l%vR4S21y\]R4CH>-ttR43%zL0PR2zXb4>lR2d_5FDNR2I`D:DBR2&PlzRI !Qte%Gv~.Q@{bxD7bQFA*d7d~R.jbg8]QR6yjth\0R>ki`:R-RDWO4l*iRFrPTTy*RFhtc@]dRDSc_6RHLmX6|URDOMB\q?R@p^wl{ER<{9U3.bR:iL4oF6R8H)QX_wR6-;nS9BR4]=MT;@ #% [ 59] tc_m3.phase !S;j^k7%%S?zkSDR%SC~;EqR%SGuT+?~~SK`|L2R%SOA/q)R%SQqGshR%SU=F+hR%SWZALZ~~SYn{Y7%% !S[{@QVR%S_&/LZ~~S_~7ADR%Sav)rH~~SchLBd%%SeV:wDR%Sg?ZVR%%Si%K+@%%SiaT;Q~~Sk@*a?~~ !Sml/\l~~SqI=?~~~T-w'}wm%T/8/iiI%T/CM=D)RT/K5od%%T/QL\\m%T/V}}O@%T/\?P&m%T/aA-JDR !T/es3([%T/iCufd%T/jS:FhRT/eY^c.%T/P^M9d%T/5Uyk7%T/,7%T/H35WI%T/T@bWI%T/`x.12RT/mf_V)RT/z3`uVRT1,&6B;RT17FEGk_T1BKg>;*T1aG>FH. !T1u>+C:[T3-2H/\mT3>V*eDRT3Ot0/DRT3^oQF@%T3o6m57%T3}yz5_RT51zhb7%T5@-Yg[% #% [ 59] tc_m3.caps !SVk?RMR%SVj_5_R%SVhkSDR%SVe`qR%%SVaFP7%%SV[vIMR%SVU<];R%SVMX+hR%SVDk.v%%SV:}&l~~ !SV03mMR%ST~G.v%%STq\y2R%STcm~.%%STT}wl~~STE+L2R%ST3yZ~~~SR{OP7%%SRgNqQ~~SRQi0c~~ !SP]5oc~~SNg:Z~~~SNE*8m%%SN?*iH~~SN.Y;)R%SLm%%%%%SLHlF?~~SJx=/l~~SJHtO?~~SHouJDR% !SH:9l.%%SF\oKd%%SD~XT;R%SDF3([%%SBhD9d%%SB1aP6~~S@V`4hR%S>}]OhR%S>LdADR%S\JJ|OHR@h?04g?RBf`]L~_ !RDYM,;rIRFCg/+]|RH'-ds|iRH[Sb{([RJ0W.++hRJXp:6VRRJ{p`I:sRL=]ct*rRLP/v_[ARL[(:kI9 !RL)doZf@RJ}]9B~BRRE=B?@^RTBETbYKRP:}9eY3RHIp/:84R@p(0t7%R>RzF%DZR@7~YdAiRB8?As{z !RBBi5~izR@Id1tOdRR@I?Afv56~~Sq|Jy2R%SsSdv%%% !SuC&DR%%SuN^NqR%Su`8HVR%SuASP_R%Ss}C{H~~Su16VR%%Sw6,k_R%Sy~XT;R%S}\\HVR%T-X/HVR% !T-^K>g[%T-bt{qR%T-fe)j@%T-k5NQ.%T-riL_)RT/)|WuVRT/Kl1_)RT/ddV%MRT/ohU:[%T/up&DR% !T/~v0h)RT1+V=hR%T11;q~VRT16skC2RT1*qR%Sn>'[u~~Sn5[MR%%Sn,%Y_R%Sl{A@MR%SloMAl~~SlbTWqR%SlTOhQ~~ !Sj}*qQ~~SjL~:2R%Sj=LVzR%SjAn8DR%SjD(c.%%SjDEqR%%SjCL&DR%SjABOhR%Sj=LVzR%Sj7%%%%% !Sj-EQ.%%ShywDR%%Shhgs@%%ShSxC[%%Sh;~2)R%Sf{`uVR%Sf_eq)R%SfBt[MR%Sf%q1Z~~Sdc%u~~~ !SbwlZVR%Sb8XhQ~~S`Wu2)R%S^v'p2R%S^5wm%%%S\MrmMR%SZi0c~~~SZ13@v%%SXY*M)R%STwFT;R% !SRs?6.%%SP}1g2R%SP+0[u~~SN9L.MR%SLP[qzR%SJdoSm%%SH~i0d%%SHCRQVR%SF_G*qR% #% [ 59] tc_m5.amp !Q%%%%%%%QR;n@tXdQ|t@XN%mR2K~KlC2R6Af/DR%R:&fx;R%RsK=BhrRB(%BlV5`RH0)-QHgR@[T@EI%R>Gb9{ng[R.tmF)AmR2zA_t&mR6~%W@ne !R@NkGkqfRH3b_;;|RN)?7T,bRR&7vMGlRT79Bb<=RTqrA6_)RV,\:_U;RTx%GR4mRTM;^A%_RP*S8W0C !RL/k)r6kRH(6k~pRRD(O\QBgR@G1QrbxR5k_R%S{.cjhR%S}exh)R%T-Xx?VR% !T-_/;Z.%T-cQ^[%%T-g>,O@%T-kdq1[%T-sF/HVRT/*UZZVRT/Kl1_)RT/dGG[MRT/oR`y[%T/u]l-~~ !T/~yjlVRT1+hR%%%T11N,;)RT17(EU2RT1*qR%Sn>'[u~~Sn5[MR%%Sn,%Y_R%Sl{A@MR%SloMAl~~SlbTWqR%SlTOhQ~~ !Sj}*qQ~~SjL~:2R%Sj=LVzR%SjAn8DR%SjD(c.%%SjDEqR%%SjCL&DR%SjABOhR%Sj=LVzR%Sj7%%%%% !Sj-EQ.%%ShywDR%%Shhgs@%%ShSxC[%%Sh;~2)R%Sf{`uVR%Sf_eq)R%SfBt[MR%Sf%q1Z~~Sdc%u~~~ !SbwlZVR%Sb8XhQ~~S`Wu2)R%S^v'p2R%S^5wm%%%S\MrmMR%SZi0c~~~SZ13@v%%SXY*M)R%STwFT;R% !SRs?6.%%SP}1g2R%SP+0[u~~SN9L.MR%SLP[qzR%SJdoSm%%SH~i0d%%SHCRQVR%SF_G*qR% ifeffit-1.2.11d/src/fefftab/73.dat0000755000175000017500000003577010771740460015504 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] ta.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] ta_k.amp !Q%%%%%%%R02xD=1oR::&jSWURD2va\p;RLqT=~TtRV;/J4@%R^=@i3U3RdtW7REIRl&5T%VJRp^=(yUC !Rteh1nbORx6z`i|(Rz,GFu?oRzD`lq6*Rz%X)todRx(@sUGWRtOnG+N5RpCVT9OiRjbjZ%-.RdV'IFJ0 !RN%,QB;RR<\6{<75Qtpsi~1;R:R7RrEq[BmfRn~h_B7NRlR4X1JmRj'bUG/@Rf]BwvtGRdA~|yp*Rb5r^`dz !R\p7qf,xRXO*N97MRR8u**dVRJXCfFt;RDqnx}wmRBpshR%Sm%f[u~~SoLLJm%%Sqgq=hR%Ssxu%u~~Sw&`(Z~~Sy&u.%%% !S};f_zR%T-\tJ(2RT-kq|/m%T-vtR12RT-}1?)zRT/&U.MR%T/)qxjP7%T1ROP[MRT1dTK?VRT1wL^_)RT3//A`qRT3=wWy[% #% [ 59] ta_k.caps !Rv'OhQ~~RtzD9c~~Rtdx';R%RtA3Q-~~Rrh}C2R%Rr(CwDR%Rp2{eDR%Rn.m-.%%RjuIz)R%RhRVIv%% !Rdyn(2R%Rb6aL2R%R^7tk_R%R6c1:[%% !Qm3CBc~~RC*)Iu~~RUw/q)R%R]zM1[%%Rex1k6~~Roq}C2R%R{[qzQ~~S-~hf;R%S/bV~VR%S1I/0;R% !S31\8DR%S3u%QVR%S5^Sdu~~S7GYoc~~S9/P;)R%S9op2R%%S;T;-VR%S=6]l-~~S=q+T;R%S?O_Z.%% !SA}[qzR%SENcB;R%SG{:&DR%SKODrI%%SM{Q.%%%SQGZ:2R%SSdz)R%%SUz:Rv%%SY0hrH~~S_\w0;R% !ScjUs?~~Sge*4hR%SkZs`I%%SoIiqR%%Ss+FP6~~Subx[v%%Sy<^NqR%S{fD%MR%T-SC>_R% #% [ 59] ta.rep !S:8.]d%%S:8lZVR%S::v12R%S:>K;R%%S:CEy[%%S:If7MR%S:QNH~~~S:Z\4@%%S:e1s?~~S:q-2)R% !S:~JDR%%S<330d%%S7bWI%%S>Nj7v%%S>gDf;R%S@'DnDR% !S@~RqzR%SBkl)zR%SDV/4@%%SF/hV)R%SFeXhQ~~SHDLBc~~SJ%X'd%%SJbpwDR%SLH.IMR%SN/5wl~~ !SNqxt7%%SP\1*I%%SRG]t7%%ST4@IMR%ST{~)zR%SVjWuVR%SXY~>6~~SZJ.]c~~S\:o_zR%S^,/du~~ !Sb6O7v%%SfC0OhR%SjQ[iqR%SnaKC[%%SrrCBd%%Sx*-rqR%S|7%%T2jqIu~~T4925_R%T4aP[MR%T6/o';R%T6X7-.%%T8&\l~~~T8N~rqR% #% [ 59] ta.lambda !Rzs^FhR%RzvZNH~~R|%NeDR%R|43qR%%R|H`8l~~R|bk;)R%R~(M^2R%R~MO3qR%R~wa;zR%S.U|7v%% !S.[6JDR%S.`o+?~~S.funm%%S.mG&m%%S.tshR%S6^HjhR%S6w~JDR%S87zrI%% !S8zQZVR%S:drDzR%S=i@u~~S@+u)zR%S@tsD)R%SBdY;)R%SDT}.u~~SFEz%MR%SJui0c~~ !SN[\P_R%SRBc6.%%SV*r@v%%SXm{s<1='dRD,\+ty&RH0%/<^sRJxG&0QFRNQt<)u_ !RPmS&33zRRp/=r8mRT[736yCRV-f6LFiRVD[\bsiRVG]J*gkRV6s[Y|`RTp1eY+`RT?fTV+0RR]Jb+Y/ !RLvH)N'lRHnnV-GxRN32V8,7RNG`}p~_RN{Y9V^3RP~`~7+PRT/^:1n(RTlgLSw0RTqV:6O8RTR5*AGh !RT'2Ah]DRRiab]OhRRpU:QttRT4&j[8MRTXz;|/mRTsL4s9xRV%o\ff'RT~z})^3RTqyUbjqRTa'0eC? !RT*s*t0xRP}-AVmVRL}l(kT3RHRtTiD2RDUBW|L3RBdVDY):RBlcfF*qRT1uW2Am%T3-*2f;RT3<6_nDR #% [ 59] ta_l1.caps !S.sg>_R%S.rmMQ~~S.p)Z.%%S.kHJDR%S.dzrH~~S.\c>6~~S.Rb{qR%R|ji@u~~Rz>R12R%Rv[W8m%% !Rrh)Q~~~Rnd&\l~~RjOJy2R%Rf)u^Z~~R`M+xd%%RZ^E0d%%RT\{}_R%RNGuF@%%RFwp_)R%R@7S4?~~ !Pntry[%%R;LRu~~~RMGjL2R%RU.&\m%%R]8hzQ~~RgPqAm%%RsZ9h)R%S-]]/DR%S/Cufd%%S1,i];R% !S1q;Am%%S3\N];R%S5GeXhR%S72EqQ~~S7uwdv%%S9]|dMR%S;D4'c~~S=(N(Z~~S=dpg2R%S?EEiH~~ !SAwcb_R%SEKcZVR%SGyI~.%%SKMQ6-~~SMy<];R%SQE:o;R%SSc%--~~SUy.MR%%SY0DIu~~S_\VAl~~ !Scj*0d%%Sge-nm%%SkZw@MR%SoI[=?~~Ss+J0;R%Suc%u~~~Sy?RQR?nTEGGQ\*}2@57Qd0hrc:{Qj:a2N/,Qn3VPxjPQnf_Y}lN !Qlun'&L[QhkDJ%OyQbdm,LzZQ\3,E}_RQTs9x}.vQPkO-Iz*QP\necLkQT@ZN;t'QZ366PvGKRH`n7Y|`RHY|zG~cRH\tgx3IRH`E8`|LRHchb:_)RHb|yBrYRH`Iv7zrRH\3Kfqc3DRRB3\8_vyRL>@dyvh !RPOv>dz}RRco)))5RRr2p6JpRR=PPXxJRPFe|fKGRL}_Veo9RJmQ^UDTRHKT4]Z(RDbPsh7i #% [ 59] ta_l2.phase !R8s3qQ~~R;jt_R%%RcgNqQ~~S/%iqQ~~S1cP&l~~S5;7=?~~S7be}7%%S;(5C2R%S=B4\DR%S?YMb6~~ !SAq?jhR%SE3ehzR%SGYv56~~SK6c)zR%SO+QJDR%SS9y*I%%SWS*}_R%S[ZCNqR%S_A\HVR%Sab7mv%% !Sg*XlVR%Sg8GgZ~~Se7oSm%%Se2EM)R%SeTh)R%%SgHGSDR%SiQ,G6~~SkbI]c~~Sm{D1[%%Sq?9CZ~~ !SscCs?~~Sw1Ru~~~Sy[CFhR%S}(yFhR%T-Uck{qRT-a8*Y7%T-kpRv%%T-u`K';RT-~emmv%T/-/kG7% !T/?@h^2RT/M|:g2RT/Y=6b_RT/`o7cF@T/d5T3I%T/dfs{0dT/e'qTKdT/fDDKx_R%SN5l)zR%SLw7U[%% !SJ}_vMR%SJ/qrH~~SHR\,7%%SHCK7MR%SH2rH~~~SFq(>_R%SFLdel~~SD|Ywl~~SDMc%v%%SBu*iI%% !SB?Lk7%%S@aH-~~~S@'a|hR%S>Fzf;R%S7%% !S44c:2R%S0s:g2R%S.[pg2R%RhK-fc~~RNW(Z~~~R4h_j?~~R-V\Td%%RE)Kx;R%RYiU2R%%S/fmem%% !S3c*iI%%S7L;%MR%S;-TOhR%S=fkcVR%SA:-^Z~~SC`|'c~~SG,o?VR%SII\,6~~SKa?ZVR% #% [ 59] ta_l3.amp !Q%%%%%%%Q0:Y;e^oQ:I,XB.VQDHb;=5OQN.Q\j;2QVCb/*Y7Q\vy0HNIQbYV]{f|Qf2*F?S7Q`:lcKPWQZ9v\Gv5QR{ATK8?|^mX:R@d]8{GdRJi%Jjs^ !RNxn):%CRR37b-7%%SMOw,6~~SQVXt_R%SUwB+?~~S[:Yk_R%S_7g&DR%Sai\q)R%Sc}`@u~~ !Si2~2)R%Si8?^[%%Sg1`a@%%Se{?.%% !Su=Ywm%%Swdz)R%%S{3W4hR%S}ZD=hR%T-ZW5{qRT-f'nTd%T-p\\m%%T-zHtshRT/)J][v%T/1n[57% !T/D)8P_RT/RhD^2RT/^%`U2RT/eI-Cs@T/hW5WI%T/hy{30dT/i3^]KdT/jLQPK;T/m'{,_RT/~>EY7% !T13+SL[%T1Bzeq)RT1RPyo;RT1b2-zzRT1rOHvv%T3'8vem%T370?zzRT3F[kO@%T3U&@qzR #% [ 59] ta_l3.caps !SRkSDQ~~SRj`mMR%SRh2nDR%SRc}G7%%SR^2R%%%SRVgNqR%SRMoWqR%SRCR--~~SR7i([%%SR*adMR% !SPvG&m%%SPfv]c~~SPV@57%%SPD[ADR%SP1n(2R%SNx%]c~~SNc+3qR%SNM(>_R%SN5l)zR%SLw7U[%% !SJ}_vMR%SJ/qrH~~SHR\,7%%SHCK7MR%SH2rH~~~SFq(>_R%SFLdel~~SD|Ywl~~SDMc%v%%SBu*iI%% !SB?Lk7%%S@aH-~~~S@'a|hR%S>Fzf;R%S7%% !S44c:2R%S0s:g2R%S.[pg2R%RhK-fc~~RNW(Z~~~R4h_j?~~R-V\Td%%RE)Kx;R%RYiU2R%%S/fmem%% !S3c*iI%%S7L;%MR%S;-TOhR%S=fkcVR%SA:-^Z~~SC`|'c~~SG,o?VR%SII\,6~~SKa?ZVR% #% [ 59] ta_m1.amp !Q%%%%%%%Q^qEgfoDR0fX0KrYR6PmV0&qR<.g8NvjR@V`.6%vRDgCQ2U;RH_)GlNIRL9b@D7RPM]CaWQRNR4OH.% !RLbU&GJMRLDiD3K'RLZ1@.E%RN7(7HAMRNwk~3~NRPRv>Yv~RPvJ*e{5RR/qGNXHRR6Z=knuRR5``|p[ !RP}\bu7fRP7lh?|}RLN(AW7~RH8&Dp}KRDI}ZvEuRB]\g?7+RBfJ[@*ZRDH_~L5]RFTK:Y(YRN}L4ukW !RRmZAEuHRT_y2lbBRT[@AenGRRh9J)y\RP`A,(JmRN/ZjAl/RJXu0:e?RFem7e7kRBk`,cz9 #% [ 59] ta_m1.phase !S8`;^2R%S4OF6b_RS0Ia1o;RRj_`Y6~~RFH`8l~~Q3[MQ~~~REuF?~~~Re/u-~~~S-_tRU[%S1'FpZ~~ !S3CC~^[%S5ZSYWI%S7m7%T/,Rgo;RT/1Yo?VRT/ItNQ.% !T/\Rlb_RT/om=dMRT1)-hf;RT1<;.iqRT1Oe~%v%T1ak?RMRT1trn`qRT3,F5shRT3;\uRMR #% [ 59] ta_m1.caps !S.y3eDR%S.x6:2R%S.uE,_R%S.p\\l~~S.j&P_R%S.aZB;R%S.WKKd%%R~=lVQ~~RziH6-~~Rx*8l~~~ !Rt4[UZ~~Rp.VIu~~Rjr%iqR%RfJkG6~~R`lK3I%%RZ|MEqR%RTy{mMR%RNc{DzR%RH98`qR%R@R>SDR% !Q2Q4P6~~R;4}2zR%RKp3@v%%RSL[IMR%R[Y;)R%%Rew)EqR%Rs,shR%S701FhR%S7sqnDR%S9\'h)R%S;BK?VR%S=&wTd%%S=cNmMR%S?D6)zR% !SAw%em%%SEKJ,6~~SGyBd%%%SKMIv%%%SMy1c-~~SQE,;)R%SSbt2zR%SUy'3H~~SY0H)zR%S_\Y{qR% !Scj*0d%%Sge1NqR%SkZzzQ~~SoI[=?~~Ss+Mj@%%Suc)V)R%Sy<^NqR%S{fK?VR%T-SFxd%% #% [ 59] ta_m2.amp !Q%%%%%%%Q4A=KI+,QB6*>[cFQN7R:lFdQV}ED42^Q^7pyFhRQ`bln2AIQ`Fx7|3)Q\@q|UdfQTk1FD)R !QL4KP'_VQB,-Y'MBQ8srviqRQ8KpM.iqQ@I-NmMRQL)h?XT;QVt\vKW)QbA(.=NYQl(YXS:GQruqO0y* !Q~4wWy[%Q|qBqP*)R.X.`A76;jR@g;)TwMRB71vLqb !RB5mCrQ.R@{Ie9:cR@g-U0+@R@\qQZVRR@[16YJMR@^;'^BdR@aB.'aXR@b:TVeMR@c++Ri7{p[nRN2N);BRHHqo@]o !RL[dNQa(RN|N%C4uRPG8Th%rRP&\l?'fRNDDmGhJRL5Q^5ajRJ2iV\a-RFtHtjD1RD72jXxs #% [ 59] ta_m2.phase !RjC2Q~~~R>wDQ~~~R1GcVR%%RS^s?~~~Rq}wl~~~S/<3U2R%S1N)nDR%S3R`U2R%S5J.]d%%S72>WH~~ !S7^'3I%%S7]v9;R%S5S5.u~~S1(z~VR%S-V8,6~~R{%~-~~~S-XbK;R%S/)Iu~~~S/Z`8l~~S12S8DR% !S3LhEqR%S3Fp6VR%S1nj|hR%S1XdMR%%S18sP6~~S1PfG_R%S354|hR%S5-VvMR%S73Qvv%%S9Cn(2R% !S;]bG7%%S?%3}_R%SAK*uVR%SCpey2R%SG6V-VR%SIO,2zR%SK^Ug2R%SMf*uVR%SOf<@u~~SQ_j?~~~ !SU`(6VR%SY:HF@%%S[K6:2R%S]6@l>7%S]RjQnm%S]TIi([%S]UYo?VRS]b&/(2RS]|=3qR%SavN@u~~ !SeV%))R%SiATc~~~Sm+bK;R%Soo*uVR%Ss`1wDR%SwBmADR%S{/@MQ~~S}q~zzR%T-_G@em% #% [ 59] ta_m2.caps !SRm}cVR%SRm12R%%SRjYSDR%SRfBl.%%SR`Qvv%%SRY)9d%%SRP-b_R%SRE_=hR%SR9ny2R%SR,czzR% !SPxA}6~~SPhj?~~~SPX(wDR%SPFGbC2R%S6~~RNVOX@%%R4hQ6-~~R-VJ@MR%RE).iqR%RYiU2R%%S/fqEqR% !S3c*iI%%S7L>_Q~~S;-TOhR%S=fkcVR%SA:1>_R%SCa%ahR%SG,o?VR%SII_f;R%SKa?ZVR% #% [ 59] ta_m3.amp !Q%%%%%%%Q2{1YGx\Q@M'~IFW}={zR@IPqS?_R@oVT-,G !R@j@2/}7R@Q}:91kR@9l-=H.R@+XmS4@R@&]vL7ER@%~8mMNER>}MeuxH'HsR>-VF3iI%%S?^VzR%%SC)Wa@%%SEN_b7%%SGmzMzR%SK,/du~~SM;-VQ~~SOB?VQ~~SQBBG_R%SS;ZRMR% !SW;k.u~~SYon0;R%S]%H^[%%S]h7Kt7%S_'@[=@%S_%gvU[%S]~}&HVRS_0l]G_RS_JfSl~~ScA9|?~~ !SezQ6.%%Sieuvu~~SmN2Al~~Sq7uZVR%Su)4p[%%SwdG&l~~S{Q|X@%%T-T8h1[%T-bk0/DR #% [ 59] ta_m3.caps !SRm}cVR%SRm12R%%SRjYSDR%SRfBl.%%SR`Qvv%%SRY)9d%%SRP-b_R%SRE_=hR%SR9ny2R%SR,czzR% !SPxA}6~~SPhj?~~~SPX(wDR%SPFGbC2R%S6~~RNVOX@%%R4hQ6-~~R-VJ@MR%RE).iqR%RYiU2R%%S/fqEqR% !S3c*iI%%S7L>_Q~~S;-TOhR%S=fkcVR%SA:1>_R%SCa%ahR%SG,o?VR%SII_f;R%SKa?ZVR% #% [ 59] ta_m4.amp !Q%%%%%%%R.s>4;1[R8^VV[c;RB7D`T'4RJM6>/=URR;N^ke`RXQQAH`eR^-3%=aUR`|mCD^:Rd1_j8r' !Rd]@|2@~RdOZ`XsqRbo-KfKdR`k,uH0'R^GTqR|PRZn_7Bj,RX,WQ0V^RTA2,}O@RPR>8T)bRLhx';rm !RB~\K~B;R>%Ep5UGR@c,wQ`]R@oGmhamR@=7{bi9R>Gv?V`YR9d'ci1R@.g&x}xRB..n%/0 !RBiLLD[ARByf5N3zRBakTXY/RB-do3f3R@NRsB*vR>pK`0UKR>D?O)AmR>%CGIVJRRN<`YdTDRL-z2snYRJ5){F2HRH8-O`1aRDr'G,_d #% [ 59] ta_m4.phase !S:N1Ru~~S6='?VR%S26[EI%%RzJ0;R%%RT~rqQ~~R2a\DQ~~R7^wDQ~~RW'7MR%%RsVV)Q~~S/Bf';R% !S1^)Z-~~S3swl~~SI*Z%u~~SIj?ZVR%SKq0l-~~SOCRv%%%SQ~zzQ~~SUZu>7%%SY'AXhR% !S[Ast_R%S]V(>_R%S_gEU2R%Saw^&DR%Se+b&m%%Sg5shR%%Si7j;zR%Sk/gg2R%SkwsP7%%Sm\:k7%% !So}[MR%%Ss'qEqR%Ssn>&l~~Su6?nl~~SsvG&l~~Sq}.u~~~Sq%.ADR%SoD\y2R%So(i4hR%SoXhR%%% !SqD)-VR%SsCO;zR%SuF-F?~~SwIM-VR%SyZ_Iu~~S{a:g2R%S}q'OhR%T-[])b7%T-fpeTd% #% [ 59] ta_m4.caps !S`v5[MR%S`xunm%%Sb&hzR%%Sb39[v%%SbCDAm%%SbV-zzR%Sbj5shR%Sb~S`qR%Sd8(VzR%SdIv%%%% !SdYJ(2R%Sdf;Q~~~Sdp)Z.%%Sdvg&DR%Sdz?jhR%SdzkSDR%Sdx=T;R%SdrxG_R%Sdjkg[%%Sd_|T;R% !Sd0YshR%SbU?)zR%Sb3+'c~~Sb,v~.%%S`~>[MR%S`rQvu~~S`e\m%%%S`X`I%%%S`KUJm%%S`>0x;R% !S`0(NqR%S^z_EqR%S^i:&DR%S^U9G_R%S^>5G6~~S\~.%%%%S\`};)R%S\A9WqR%SZy4/l~~SZUTSl~~ !SXSDQ~~~SVS{}_R%ST\6fc~~SRjs'c~~SPzhb7%%SP-^Z~~~SN7XL2R%SLBDnDR%SJR34hR%SFC2Q~~~ !SBu.IMR%S@X/HVR%S>GATc~~S<44;zR%S:'oC[%%S6~+3qR%S4xIahR%S2xrY6~~S2%Kt7%% #% [ 59] ta_m5.amp !Q%%%%%%%R0%tHsv=R8w%(zU%RBZCg_95RJxb}YRVRRm(UjyaRZ,D7s.'R^bBFxpHRbU^7+M?Rd_bOs\6 !Rf*ac*pcRdo+4wfTRd,)xe}[R`yR)6}lR^Mj_7.fRZmMQ0=0RV~u`'@ERT4:R%mvRPADhh'tRLU9=2eM !RBi5QxxR@NrcTOiR@\*vv[bR@+7|Px\R>7Y3'l.R.WmHiUR@%~Wt?RRB&@){S0 !RBag&/f/RBqMZeIERBXf6)h>R@}_{I_BR@C|cat;R>e&f^%VR>8T4lhfR_R%S76M~VR%S9?P&l~~S;B&q)R%S==SLZ~~S?1HjhR%S?w1NqR%SAZgRu~~SC4r];R% !SED|T;R%SEjOlVR%SG^'|?~~SI7VIu~~SIxOD)R%SM&xC[%%SOTSl~~~SS756~~~SUm/Td%%SY91FhR% !S[S?:2R%S]g)5_R%S_xjt_R%Sc/)EqR%Se=-F@%%SgG?.%%%SiHk2zR%Sk@h^2R%Sm.Oxd%%Smk]t6~~ !Sq1FhQ~~Ss4IADR%Sszo|?~~SuBqj?~~Su'A4@%%Ss,K;Q~~Sq-7ADR%SoMTp2R%So3>shR%SodQVR%% !SqQ%QVR%SsRrDzR%SuTaX?~~SwZ)V)R%Syls`H~~S{qq5_R%T-RNwXhRT-]TF'd%T-hYMb7% #% [ 59] ta_m5.caps !S`v5[MR%S`xunm%%Sb&hzR%%Sb39[v%%SbCDAm%%SbV-zzR%Sbj5shR%Sb~S`qR%Sd8(VzR%SdIv%%%% !SdYJ(2R%Sdf;Q~~~Sdp)Z.%%Sdvg&DR%Sdz?jhR%SdzkSDR%Sdx=T;R%SdrxG_R%Sdjkg[%%Sd_|T;R% !Sd0YshR%SbU?)zR%Sb3+'c~~Sb,v~.%%S`~>[MR%S`rQvu~~S`e\m%%%S`X`I%%%S`KUJm%%S`>0x;R% !S`0(NqR%S^z_EqR%S^i:&DR%S^U9G_R%S^>5G6~~S\~.%%%%S\`};)R%S\A9WqR%SZy4/l~~SZUTSl~~ !SXSDQ~~~SVS{}_R%ST\6fc~~SRjs'c~~SPzhb7%%SP-^Z~~~SN7XL2R%SLBDnDR%SJR34hR%SFC2Q~~~ !SBu.IMR%S@X/HVR%S>GATc~~S<44;zR%S:'oC[%%S6~+3qR%S4xIahR%S2xrY6~~S2%Kt7%% ifeffit-1.2.11d/src/fefftab/55.dat0000755000175000017500000003577010771740460015504 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] cs.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] cs_k.amp !Q%%%%%%%Qf%2sqQ6R2?Qrf3jR85uS2s&cki]S2w-D+ZnS2l<`0?VS2W`]QF@S2<-^K.d !S0w*f,BYS0U]^j'`S02ns%w]S.h3Kz:RZ*;xXr]R^4%Nl^[Rb31<`uVRd~w(og;Rh(yB{BTRfu[N2AmRf&pJ7)rR`-Ii/dd !RZ=6JfReRTy_{D(0RPJ6Wp8-RJ~LlUZU,R:Z)i:D| #% [ 59] cs_k.phase !S?2nDQ~~SCFE7%%SSYLs?~~SWO@%%%%S[>Dj@%%S_',wl~~SabcVQ~~ !Se;eL[%%SgduZVR%Sk'=xc~~Sm1.qzR%SmxslVR%So4@%%%%SmSgBc~~Sk:2R%%%SiLhEqR%SiDX+hR% !Sk^ey2R%Smn][u~~Sq%O/m%%SsL&DR%%SuwR=@%%Sy?K|@%%S{ZP&l~~S}n2b6~~T-ZZ.IMRT-d_RT7'{MMzRT7>Q3a@% #% [ 59] cs_k.caps !SP0iUg2Q~~S>1qb6~~S_R%S0Zk2zR%S.r|'c~~RxcVR%S]vtG7%% #% [ 59] cs.rep !S8v|P6~~S8wo';R%S8zF`H~~S8~Yg[%%S:*Qvu~~S:2't6~~S:;2%MR%S:Esxc~~S:R2EqR%S:_w`qR% !S:o.UZ~~S<%h^2R%S<7j`I%%S32Am%%S>Kc6-~~S>eQ)zR%S@&UwDR% !SB%EI%%%SBgnq)R%SD[d56~~SF@/0;R%SFu;EqR%SHT6:2R%SJ5[MR%%SJs07MR%SLXYwl~~SN?hf;R% !SP(N([%%SPl\XhR%SRWznDR%STDNiH~~SV1z5_R%SVz>2zR%SXiK';R%SZY;rH~~S\Ig&DR%S^:gVzR% !SbDAl~~~SfP;MzR%Sj^%12R%Snm4H.%%Sr}OdMR%Sx4a7v%%S|F]|@%%T.W97MR%T.k.u~~~T0M)Q~~~ !T0u.IMR%T2C>;)R%T2kQfc~~T49hrI%%T4b)^2R%T60DIu~~T6XfOhR%T8'*uVR%T8OL{H~~ #% [ 59] cs.lambda !S:b9Kd%%S:c/\l~~S:esP7%%S:jF+hR%S:p[IMR%S:xNU2R%S<'r4hR%S<2aH.%%S<>g[%%%S.cF?~~S>?&@MR%S>OY.u~~S>`5WI%%S>phEqR%S@'A4@%%S@7s|hR% !S@k'[u~~SB7~-~~~S@kpRv%%S>NPcVR%S>*|'d%%S0.z)R%S>Dq5_R%S>_)R%%% !S>}RU[%%S@ETCZ~~S@jR9;R%SB7zMzR%SBa]3I%%SD3756~~SD`P?-~~SF5<?Z3z,hR@F>Afx;RB;,iK'< !RB{K';R%RDW.-,4}RF/9Fhz.RFcm0U-_RHO|]GM>RJYH'E8mRN;Kn]MBRRb2I`0dRXvsmYn,R```v^wE !RrK2>HnmRv_J'j[1R~t)\z:wS0MBWm=OS0|I\^>JS2:'fo0_S2@hw9PWS2;71^:[S2,*GAmQS0ou69`i !S0T~;qL}S07-XK4`S.q:_<-*R~j&pR`1Rx%~x\5SRp=.I.2jRh\a%DZ.Rb>iE);BR\FcYD[fRX)VPyR- !RRI*.~vvRTK|.REIRXLn&}T3R\B\IW];R`2j;9Mr(J:R:LhvdbI #% [ 59] cs_l1.phase !S9|~jhR%S?6NH~~~SCCq=hR%SGK7))R%SKLLJl~~SOGShzR%SS<:o;R%SW*bwl~~SYkx7MR%S]LLJm%% !S_~M5_R%ScMNiI%%Seka/m%%Sg|zf;R%Si~iy[%%SkmGK;R%SmG*M)R%SmdREI%%Smn1s@%%Smi[]c~~ !Smc;EqR%So=%ahR%Sq3tgZ~~SsNW}_R%Sutl)zR%Sy:,od%%S{SOL2R%S}f\du~~T-YafOhRT-c6@9;R !T-l9r}_RT-tpK[v%T-}47QVRT/+7F\DRT/2{H6.%T/:AbshRT/A+@mv%T/G-*tC3T/L+YL*IT/OqP-b_ !T/UStyJmT/[;m12RT/d(w.]dT/nlpk[MT/zY7mv%T1-@ox;RT1:v-RMRT1I/Q)zRT1WTh)R%T3&(O`I% !T3?|%=@%T3YE)nDRT3pc@9;RT5-^x3I%T5C3sxd%T5XT\@MRT5lLrQ.%T7'L*mMRT7=|1o;R #% [ 59] cs_l1.caps !SPWiH~~~SPV@57%%SPR%mv%%SPJp_)R%SP@w\l~~SP4>G6~~SP%12Q~~SNmOxd%%SNYRz)R%SNCE0d%% !SN+5*qR%SLk*(Z~~SLO6>6~~SL1a+hR%SJl[EI%%SJL,K;R%SJ*97MR%SHa.~.%%SH_gNqR%S>:^_)R%S88DR%S:g%U[%%S:4-jhR%S8Yqf;R% !S6}vY_R%S6Eng[%%RZ^+\DR% !R6b%57%%R5(g2Q~~RS?q9c~~RoIf7MR%S/-z1Z~~S1M|T;R%S3nT?VR%S738HVR%S9L6VQ~~S?l%-.%% !SCw_9c~~SGyr,_R%SKg0OhR%SONxl-~~SS2Wa?~~SUa;V)R%SY13@v%%S[Y>cVR%S]vx';R% #% [ 59] cs_l2.amp !Q%%%%%%%Q<,IB(.)QPp(_U:[QdzdAk1CQx2fq@&]R.wS<+BbR0XkyGtWR2*_)PUkR2F6DO;2R2O=CZaq !R2DHm\xhR0~zvQ2)R0L[Lfh*R.gfjnn]Qx\[Pi*9QzwO+kJMR0by(rqvR68MrvW]RRZ{~gfz>RX)bt{qRRT%yRu= !RV2>Y*Z4RRBJ<`m4RN:+JXxURJ+Hv/1eRF[;N>U1RBZgD~gdIR>&k08ARR:n?)6J' #% [ 59] cs_l2.phase !RSgFhR%%S-Y7mu~~S1c:2R%%S5eT?VR%S9_eL[%%S=RQVQ~~SA=n}7%%SC|ol.%%SG\7z)R%SK7QzzR% !SMkQB;R%SQGaT;R%SU.s3qR%SY0*uVR%S]eKG_R%ScxW([%%SinEeDR%Smij7u~~So}bg[%%Sqk?.%%% !Sur^s@%%Syw,7%%%T-SM0G_RT-e)|T;RT-tn|H.%T/)]YO@%T/7Sn\m%T/D=~F@%T/P%zMzRT/Zn+H.% !T/di_=hRT/m};MzRT/vO[U[%T/~@w8DRT1+J[~.%T11jS(2RT173`Q.%T1;J&y2RT1>0:>_RT1?)Co;R !T1;@V%MRT1:1x|@%T1@&N8m%T1H}-b_RT1Rl_%MRT1\{UVzRT1gcNmMRT1s3fWqRT3%.^Rv%T3GB?zzR !T3\d0h)RT3qn=7v%T5+OVb7%T5>_-VR%T5PTBD%MT5bV|Ea@T5rd_]1GT7(b?NmNT79w>&m% #% [ 59] cs_l2.caps !SzDU:Z~~SzCAu.%%Sz?ZVQ~~Sz9P2zR%Sz0y*I%%Sz&,7%%%Sxr{8l~~Sxc_Iv%%SxR=dMR%Sx>wHVR% !Sx)\0;R%SvlTOhR%SvSgg2R%Sv9;vMR%Stw9WqR%StYdEH~~St:ey2R%Srt>?.%%SrRREI%%Sr/DR%%% !Snqd]c~~Slwdv%%%Sjl}k_R%Sj/.9;R%Shbv~.%%Sh9ia?~~Sfi^s?~~Sf?xSl~~Sdq2%MR%SdHiyZ~~ !Sby}K;R%SbP'7MR%S`~IUZ~~S`PpwDR%S^{<([%%S^IPC2R%S\o[--~~S\9jt_R%SZ\?:2R%SX}aT;R% !SVHNmMR%SRqKSm%%SPK(s@%%SN1Qb_R%SJ{]_zR%SHo3mMR%SFa,2zR%SDPt{qR%SBBLRv%%SkRZ';h%.tR\K(cUpZR\pJY/3CR\[8vc|}RZ,|5@Np !RT{Btw%WRR5MJaitRN.x~EuVRH~>2WicRFV=\90QRBVZNQ:HR@<`69\HR>&-y@L\R:m(zjAo #% [ 59] cs_l3.phase !RY]l.%%%S-s0[u~~S1}WI%%%S7&;~VR%S9zqZ.%%S=n(2Q~~SAZ4P6~~SE?YgZ~~SGyjlVR%SKUO;zR% !SO/s+hR%SQfr4hR%SUN)nDR%SYNL_)R%S_&3,_R%Se1Z6.%%Si}hnDR%SmxhrI%%Sq3P?-~~Sq{Q-~~~ !Sw(ps?~~S{/@MQ~~T-US&y2RT-g734hRT-w%m-.%T/+r*8m%T/9kyJm%T/Fa)Am%T/RL_MzRT/]>JL[% !T/gA>K;RT/pXT_zRT/y.Tl.%T1&v6JDRT1.)U:[%T14El:2RT19e?^[%T1=tE}_RT1@S?:2RT1AE.ahR !T1=BlRMRT1<,uF@%T1B(dem%T1K,^>_RT1Tv5[MRT1^}l)zRT1i^K7MRT1u+(wDRT3')Zvv%T3IDVMzR !T3^Wm))RT3st3iI%T5-Qm57%T5@VIu~~T5R]rz%MT5d\rw4@T5t_\'1GT7*vj8@NT7<..em% #% [ 59] cs_l3.caps !SzDU:Z~~SzCAu.%%Sz?ZVQ~~Sz9P2zR%Sz0y*I%%Sz&,7%%%Sxr{8l~~Sxc_Iv%%SxR=dMR%Sx>wHVR% !Sx)\0;R%SvlTOhR%SvSgg2R%Sv9;vMR%Stw9WqR%StYdEH~~St:ey2R%Srt>?.%%SrRREI%%Sr/DR%%% !Snqd]c~~Slwdv%%%Sjl}k_R%Sj/.9;R%Shbv~.%%Sh9ia?~~Sfi^s?~~Sf?xSl~~Sdq2%MR%SdHiyZ~~ !Sby}K;R%SbP'7MR%S`~IUZ~~S`PpwDR%S^{<([%%S^IPC2R%S\o[--~~S\9jt_R%SZ\?:2R%SX}aT;R% !SVHNmMR%SRqKSm%%SPK(s@%%SN1Qb_R%SJ{]_zR%SHo3mMR%SFa,2zR%SDPt{qR%SBBLRv%%S+%%G~> !R>wavd`zR@k6pntdRBf|tPwmRDy;w|VbRHYmn}AyRN%gE%I)RTZf'GTXR^n=eH*iRlY6C+r9RzGmj'4\ !S.S^n[icRzAr?5MbR~?.*ot7S0:qRfKRS0cDNc=tS0yPUQb_S2'\wZucS0~iU%G'S0r@l3Ch,CR^e_'pVzRbE281a,Rd>`XR@ZaH=kNR>0P+uHXR:F](6v8 #% [ 59] cs_m1.phase !S9&Q)zR%S=:/X\DRT-shgs@%T-{yHjhRT/)oLwDRT/1O\hzRT/8iehzRT/?T+@%%T/EYL1c.T/Jc+;1[T/NhVnhz !T/U6BMf%kshR #% [ 59] cs_m1.caps !SP\Y2zR%SP[/y2R%SPVh=hR%SPOUNqR%SPEQRMR%SP8j|hR%SP)O3qR%SNqc%u~~SN]WM)R%SNG>cVR% !SN.z)R%%SLn`M)R%SLRahQ~~SL4}{qR%SJomADR%SJO3M)R%SJ-8y2R%SHcz1Z~~SH?Q^Z~~SFsol-~~ !SDURQVR%SBWJ\l~~S@H>7%%%S>b)9d%%S>SDR%S6FzAl~~S4f5K;R%S4).iqR%S2D%qzR%S0]7qzR%S.u:2Q~~RxR^Ru~~Rj+}WH~~RZbc2)R% !R6fQjhR%R3~f?VR%RS=&,7%%RoHO7v%%S/-z1Z~~S1N&4@%%S3nT?VR%S738HVR%S9L2vMR%S?l(g2R% !SCwbshR%SGyr,_R%SKg4/m%%SONxl-~~SS2Wa?~~SUa?6-~~SY16zzR%S[Y>cVR%S]vx';R% #% [ 59] cs_m2.amp !Q%%%%%%%QDx[WGGRDh}X5DF !RBXrv\fTRRP,{z;AmRP26M=@I !RP+`|O*zRNnszd*aRNC<)TODRLZm3&4@RJZr]nTdRHG-hC<9RDy7vNVjRBLfhCg{R@%5{k@AR]W)R@B/>a/mRF?L+g_NRJz_&?uyRPIfox@[RT^a:5Y'RX7i9FbhRXmdZd^.RXj>d}44RVu~n*V_ !RT/ig@FJRPYw0`NKRLeB_[q.RHf_a,51RFFOR@8,RBMUlZU)R@7{lD_?R<|iLim;R:iLo,wm #% [ 59] cs_m2.phase !RQQZVR%%R}RMR%%%S1Veq)R%S5W'G_R%S9NoOhR%S=={U2R%SA%bWI%%SC_o|@%%SG9YO?~~SIhKx;R% !SM;16VR%SOi\q)R%SSHDb6~~SWD:wDR%S]-JDR%%ScoT7MR%SiuTt7%%Sm['Kc~~SoJuvu~~SocT+?~~ !Sqh4L2R%Sw*U{I%%S}*A@MR%T-^kfG_RT-p;MV)RT/&lK|@%T/65ujhRT/D-9C[%T/PX\DR%T/[m%mv% !T/ex}wm%T/o)O|hRT/w:Qb_RT/~^LJm%T1+=Q%v%T11.g&DRT15uyBd%T19U}od%T1;[SXhRT1;p`od%%Sx?tshR% !Sx*Y[MR%SvmQzzR%SvTaX@%%Sv:9G_R%Stx3H~~~StZ^6VR%St;_j?~~Sru;j?~~SrSOp[%%Sr0A}7%% !Snr^NqR%Slx[-.%%Sjn/q)R%Sj0^g2R%ShdQ2)R%Sh;GO@%%Sfk9';R%SfAGgZ~~SdrI%%%%SdIndv%% !Sbzo|?~~SbPaT;R%S`~q^2R%S`Q7em%%S^{Qvv%%S^I^wDR%S\obG7%%S\9nTd%%SZ\FT;R%SX}hnDR% !SVHYgZ~~SRqVMzR%SPK7MR%%SN1\\m%%SJ{a@%%%SHo03H~~SFa(Rv%%SDPt{qR%SBBLRv%%S0J(/YWRDI:D^{I !R@}Amj}WR:nP;6\}R<)]M9)bRBt%~.%%RFyK+[CGRJ>9DqORH}X.Q]lRFnIesx@RDJ_oro+R@{^ykx\R>W&/qk/Rv/}T3IRDoCW-}lRJMV{2AmRNuK{4@IRT0X3WB[RVdpz'1rRXBc'^zpRXA;&.(PRVT4x?`D !RRpMP,9LRPES[m(fRLTviXN@RH[\F^&bRF>4(L)=RBG@_n~oR@4t*k,^R<{BW;%`R:g|\e@N #% [ 59] cs_m3.phase !RWBC[%%%S-g*H~~~S1p:6VR%S5qD^2R%S9iW4hR%S=YR12R%SAA][u~~SC|5O@%%SGVgs?~~SK,mahR% !SMYwHVR%SQ.I))R%SSffKc~~SW`5{qR%S]@))Q~~ScrEDzR%Siw2b7%%Sma.57%%SoSmmu~~SolpJl~~ !Sqq,C2R%Sw6cNH~~S}@~RMR%T-aQyg2RT-s,[))RT/)sMj@%T/9Gqf;RT/GMiQ.%T/T&L[%%T/_>P.v% !T/iJN8m%T/rQ@9;RT/z^at_RT1'{BSm%T1.S-%v%T149HrqRT18yA,7%T1EF|hRT1>KyNqR !T18o.U[%T17J]7MRT1=_Z.%%T1G*bwm%T1Q4P7%%T1[KHNI%T1f/a`I%T1q]8`qRT1}fdmv%T3F[)rI% !T3\1.))RT3qj]3I%T5+eJ}7%T5?-6-~~T5QJVf;RT5cc.B3IT5t%KEU{T7*Y_-VRT7<5OG?. #% [ 59] cs_m3.caps !SzEdz)R%SzDMzQ~~Sz@j;zR%Sz:\8DR%Sz2'OhR%Sz'4\DR%Sxt%~.%%Sxdd56~~SxS>od%%Sx?tshR% !Sx*Y[MR%SvmQzzR%SvTaX@%%Sv:9G_R%Stx3H~~~StZ^6VR%St;_j?~~Sru;j?~~SrSOp[%%Sr0A}7%% !Snr^NqR%Slx[-.%%Sjn/q)R%Sj0^g2R%ShdQ2)R%Sh;GO@%%Sfk9';R%SfAGgZ~~SdrI%%%%SdIndv%% !Sbzo|?~~SbPaT;R%S`~q^2R%S`Q7em%%S^{Qvv%%S^I^wDR%S\obG7%%S\9nTd%%SZ\FT;R%SX}hnDR% !SVHYgZ~~SRqVMzR%SPK7MR%%SN1\\m%%SJ{a@%%%SHo03H~~SFa(Rv%%SDPt{qR%SBBLRv%%SR<[+uAT~ !R>\r.Md9R@\;T}-,RBg&@WRd+LV`<)RvkyK@xLS0;>(G2zS2=lP,]t !S0U)i~?oRvk)@/F0RdE,>}lNR\jGHXxdRT2FsAY3RJ`^]Kd%RB|r1LCSR>DPgax@R:lRwu8yR:1Z3j)B !R:3'^Kn0R:Xq|xd%R<.[lE0@Rrl2T8hR<]*bfMPR:c),Re> #% [ 59] cs_m4.phase !S<-m~-~~S6r|L2R%S2b&m%%%S.TwL[%%RVP7%%%%Q|_Q~~~~RAmMQ~~~ReeDR%%%S-u^[%%%S1?6-~~~ !S3DEqQ~~S3ujhR%%S3c2)Q~~S1`mMQ~~S/Cg2Q~~R}^[%%%%RwI%%%%%RuMzR%%%RqSm%%%%Ri;)Q~~~ !RUlVR%%%R_Sl~~~~Ro`qQ~~~S/1Ru~~~S1Us@%%%S3nu.%%%S7/y2Q~~S9R=?~~~S;{,_R%%S?IQVR%% !SAgk6~~~SCvahR%%SEv57%%%SGi0c~~~SIRiqR%%SK3uVR%%SKe@MR%%SM0|@%%%SMC[%%%%SM8`qR%% !SEi8m%%%S?xpVzR%S?q@Y_R%SADYcVR%SA|p[%%%SC\*}_R%SE<@QVR%SE|JTc~~SGj&u-~~SM6=lVR% !SOf8`qR%SS@8(2R%SUl]l.%%SY?FdMR%S[cr(Z~~S_3bSDR%SaO1&DR%Sca9Sm%%Se|SLZ~~ #% [ 59] cs_m4.caps !T.ljD)R%T.lxx;R%T.mN@v%%T.n=7v%%T.oI=@%%T.pnq)R%T.rSy2R%T.tK;Q~~T.vTl-~~T.xlvv%% !T.{2Am%%T.}Qfc~~T0%mQVR%T0'zb6~~T0)y>_R%T0+b&l~~T0-1:Z~~T0.=@%%%T0/(VzR%T0/IEI%% !T0..em%%T0+.~.%%T0%AhzR%T.}88DR%T.||D)R%T.{eDQ~~T.yfh)R%T.w7%%%%S|;v))R%Sz6WeDR%Sx7V%MR%SvD9c~~~StZt*qR%SrshvMR%Sr-|X?~~Sp=U*H~~Sl)vqzR% !ShmPC2R%SfQGSDR%SdDVrI%%SbAxh)R%S`;&.v%% #% [ 59] cs_m5.amp !Q%%%%%%%Q@v|X({fQ\i~@uv_P2mWKR@_(EA4lRBiq-\IMRFI9;Q~~RL?0%UAQRV%P/HO8Rd&),C2RRvga(O;{S0:~*cX0S2=Yp.n@ !S0TpojSqRvg.))R%Rd?/29FqR\a5B5&mRT&+*HHBRJR**];RRBlRyu_JR>2k}C^;R:YZg3wYR8x%dg1? !R8yQMs\ER:F*=DC&R:w',MtKRRLTJBXuvRHV1CaP7RF3];Uy?RBr/[PNnR7 #% [ 59] cs_m5.phase !S<,SDQ~~S6q^2Q~~S2`[9;R%S.S?^Z~~RV;zR%%%QvzQ~~~~RC/l~~~~Rg3qR%%%S-{@v%%%S1G?-~~~ !S3PSDR%%S5.IMR%%S5%v%%%%S3-b_Q~~S/koc~~~S-pk7%%%R}B;R%%%RydMQ~~~RuEqR%%%RkjhQ~~~ !RW{qQ~~~Ra[%%%%%Rqd%%%%%S/:&DR%%S1]|@%%%S3vY_R%%S76JDQ~~S9Wy[%%%S=&hzR%%S?OX?~~~ !SAn`qR%%SC}WH~~~SE}O@%%%SGpo;Q~~SIZrqR%%SK;Z.%%%SKmIMQ~~SM8`qR%%SMK?VQ~~SM?2)R%% !SEg[%%%%S?xpVzR%S?rxG_R%SAH9h)R%SC(Rv%%%SCb1g2R%SEAXD)R%SG'=xd%%SGoc6-~~SM>k;)R% !SOm.ADR%SSIxp2R%SUvDZ-~~SYGOdMR%S[nl6-~~S_<~rqR%SaW^NqR%Scki8m%%Sg)I--~~ #% [ 59] cs_m5.caps !T.ljD)R%T.lxx;R%T.mN@v%%T.n=7v%%T.oI=@%%T.pnq)R%T.rSy2R%T.tK;Q~~T.vTl-~~T.xlvv%% !T.{2Am%%T.}Qfc~~T0%mQVR%T0'zb6~~T0)y>_R%T0+b&l~~T0-1:Z~~T0.=@%%%T0/(VzR%T0/IEI%% !T0..em%%T0+.~.%%T0%AhzR%T.}88DR%T.||D)R%T.{eDQ~~T.yfh)R%T.w7%%%%S|;v))R%Sz6WeDR%Sx7V%MR%SvD9c~~~StZt*qR%SrshvMR%Sr-|X?~~Sp=U*H~~Sl)vqzR% !ShmPC2R%SfQGSDR%SdDVrI%%SbAxh)R%S`;&.v%% ifeffit-1.2.11d/src/fefftab/51.dat0000755000175000017500000003577010771740460015500 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] sb.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] sb_k.amp !Q%%%%%%%QDp5fENaQdQ[XDrIR.a{<|8OR22mixr`R4W0?OySR6s5Wi+qR:+c20l.R<3Qvht'R>.I3\q* !R>u2T?@^R@Q7th%MR@vGPeXhRB/-Shs8RB,B6P&mR@oc)xA4R@BY4\a`R>\MMYBhR`R\;(6,YKR`WIkX)BRbpA?mvnRdYravahRdrSCV6dRdL~1akURbP3`r)XR\BG_/tN !RVLxZI12RR-EHzmhRLk:1=6>RHKj8sP7RDe]GqfW%bPpSRod%%SYc<4hR%S[GdiqR%S]7N@u~~S_,SDR%%S_}]W([%SateyVzRSchO[z)R !SeW`0?VRSgA-JDR%Sg~~+3qRSi]:;%MRSk6;x2Z.SkcDx+@%Sm.G5G7%SmIixl.%SmXg0+@%SmZPYod% !SmFurqR%Sme^Jm%%Sog,od%%Ss(v12R%SuMNiI%%SwuRqzR%S{F.Y_R%S}sN4hR%T-^XjT;RT/+i@u~~ !T/DFgc.%T/\%{a@%T/rOq%MRT1.GK;R%T1B1-:2RT1VwdQVRT1iOP7%%T1|q;Am%T39X-F@% #% [ 59] sb_k.caps !SDRd~.%%SDQFdMR%SDMIQVR%SDFmEH~~SD=_Z.%%SD1}od%%SB}qf;R%SBmF7v%%SBZ\XhR%SBE^NqR% !SB.S4?~~S@oI=?~~S@T@iqR%S@7@z)R%S>rQ.%%%S>QtshR%S>/R=@%%S_R%S:p|7v%%S<+5*qR%S<@iqQ~~S/J}7%%S>J9|?~~S>fG;)R% !S@htK;R%SBV_EqR%SDHRMQ~~SF&HVR%%SF\]7MR%SHTcuCa,QV|.eh]DQp:Oj-\4R.w|(q]OR2,-1Yz:R45oHg5hR6:6s`I%R880R*]`R:.QrQK3 !R:w'g4j0R<[wJyV{R>6>vrL;R>_Ke+{1R>~}v?IVR@87VsnYR@B1_v)*R@E8\M_jR@CsXX*1R@G{[M?k !RDCU2SN9RL[LA3qvRh(lYL]LS0%XZJ3FS2R0y8\IS4K?GFZBS4i,H|_ZS4^oajT;S4=R|A\mS2gJ,wt? !S22LE\L[S0V4f9(hS.{McPz=R|}|)1iYRrpdW.{=Rj<(qnZFRb16S\p_RZa&QgwDRTs~0N};RPu0';R% !RNmfaft7RTTd_./URZd+LVzRR^q[@Oj0Rb-d{M;fRbq&3Q;0Rd0)oLd;pP{R9G_R%%R7rDzR%%Rc16VR%%S/3?>6~~S302~VR%S7%u6.%%S9n\l~~~S=VNiH~~SA7Y_R%%SCl'/DR% !SG?k2zR%SIfuJDR%SM-3a?~~SOF1o;R%SQWGk_R%SS_pk6~~SU^FhR%%SWQ:{H~~SY6Cs@%%SYeWy[%% !S[9)=hR%S[/%ADR%S[7.ADR%S[G~>6~~S[l6vu~~S]G4X@%%S_.&8DR%S_vJ&Td%SahG@em%ScY7M-VR !SeFL=L2RSg.Y_R%%SgkO5*qRSiHy%U[%Si{AK&q)SkM{^*I%Sks,=t_RSm5S*}_RSmG4>k_RSmM_Pk_R !SmHW@u~~Smjd))R%Soi^NqR%Ss)9?VR%SuL_rH~~SwsT;Q~~S{BoC[%%S}o,SDR%T-^.Q2)RT/+?i0d% !T/CsUs@%T/[X9x;RT/r&?:2RT1-{2f;RT1Af^g2RT1VULo;RT1i1Z6.%T1|WF3qRT39>yo;R #% [ 59] sb_l1.caps !SDd|t_R%SDcZzzR%SD_KSl~~SDXYSDR%SDO'?VR%SDBslVR%SD48@MR%SB}0/DR%SBibSDR%SBT*,_R% !SB}hIv%%S>\Y2zR%S>9a3qR%S|JUR6)mP7PhR6/X>sa8R6*f8>YpR4upG2]D !RltVcyg2Rh+/EPyKRb-&=AFyR\'|{Z\YRV,Tt_-VRP>{q;(?RJ`qRf[vRFB^dG5GRBE.|Ez~(XX@ !R>|T5a/mRFdcakQgRNezuG=PRT^n@XL2RXR*W*53RZi.IkuyR\Q8_=D*R\V7t/sPR\*MiVo(RX,qOO5t !RRlRLxQ`RNm~/99:RJqNTon;RFh+EQtDRD4)vB7)R@LL>^]=R<}i|sC(R:dV/P?KR8ltW,*> #% [ 59] sb_l2.phase !S@UxWqR%S`T1)UZA(2T1;_2Rs%T1Kc*+L2T1\};gNrT1l4=[z)T1z]1FhRT312`Y7% #% [ 59] sb_l2.caps !Sh1?rqR%Sh1-^Z~~Sh0T[u~~Sh/W0c~~Sh.**qR%SZutshR%SZH>[MR%SXr0d%%%SX@W8l~~ !SVhR%%%%SV6[EI%%ST_=hQ~~ST.ZNI%%SRXieDR%SR)d9;R%SPU)5_R%SP&a`H~~SNR8q)R%SL}Ls?~~ !SJ`Bx;R%SH@l>7%%SD|9/DR%SBcX/m%%S@S4dMR%S>Ih9d%%So?VR4~IiXecVRR4>os@mv !R.xQ+n*NQbrx(ti9R6<.gV-{RJd3DDVrR^H}&4s(Rl--LtA0RrcEU\kGRtq+c&.9Rt@ir,PxRpYE^J/( !Rl5_;I-.RfKY-w*YR`R|PD/}RZSc/8e@RT]Qco7MRNta0=_6RJ@~k{qRRF&Y)vy;RB,-b81*R>d?O9E9 !R>hH.u6.RFO:@<7ZRNNAG3/,RTESh)z.RX7P+uUcRZN'MWZhR\6m;;WaR\=oMqS5RZo03NvMRVv[IcF@ !RR_{h)<1RNer8tYDRJjtSjC3RFcCP77ZRD1_5kTXR@JLj{rAR<|reMy_R:e5eesPR8mMFK/6 #% [ 59] sb_l3.phase !S@Eu2)R%S<1nq)R%S6|ft6~~S2rdUZ~~S.m`U2R%R^-JDQ~~R6cNI%%%R9/(2Q~~R]BOhR%%S-ZV-VR% !S1?i0c~~S3yruVR%S7TsH-~~S;+&P_R%S=VRIMR%S?}gZ~~~SCFieDR%SEeuvu~~SI'~fd%%SKB'_zR% !SSOA\m%%S]PPwm%%Sij^FhR%Sm3Qvv%%SmzJ@MR%Sof^g2R%SqXr];R%SsMalVR%SuB[u~~~Sw4.57%% !Sw{8l~~~Syac^[%%S{A0;R%%S{sol-~~S}F&P_R%S}j1o;R%T-RO_5_RT-ShNiI%T-S4C_)RS}p}od%% !S{_d9;R%S{AjX?~~S{wSP_R%S}w*Y6~~T-[I%IMRT-ezTKd%T-pOQnm%T-{+i@v%T/+wT?VRT/KiZ%v% !T/_d'';RT/rsag>_T1+>BNU3T1=@ZWF%T1MH24L3T1^m=}{rT1moe`M*T1|M3];RT33-\}7% #% [ 59] sb_l3.caps !Sh1?rqR%Sh1-^Z~~Sh0T[u~~Sh/W0c~~Sh.**qR%SZutshR%SZH>[MR%SXr0d%%%SX@W8l~~ !SVhR%%%%SV6[EI%%ST_=hQ~~ST.ZNI%%SRXieDR%SR)d9;R%SPU)5_R%SP&a`H~~SNR8q)R%SL}Ls?~~ !SJ`Bx;R%SH@l>7%%SD|9/DR%SBcX/m%%S@S4dMR%S>Ih9d%%SFZ]LhjR>mVrY(KR@5[k*PdR@U/}e`)R@wHE%EIRBGC%go; !RHH.bTPWRPotdh'PRlgb*'sHS0?Qo;rMS2h%}O1KS4W]uGL*S4j3dZd=S4Xxr5/@S44uR~CsS2^Vb,*r !S2*RcHPpS0Om;zcRS.vMsZ@lR|Zot\5/RrYU3RH_Rj,atHv-Rb.(sho3RZhPG7%%RV+R=VZwRR1w,?hB !RP%|O_lBRTK6KR&]RZFbX9E9R^LGyzwRH,,xpkfRDK/0CtSR@]N{uCwR>Fak`{zR<>?lcNIR:AuPk_RSg]s5shRSi;'a|hRSim4%OT;Sk?ouJDRSke>l)zRSm(^Au.%Sm<-&@MRSmE?tshR !SmHALZ~~SmlxSl~~Sojn4@%%Ss)O3qR%SuLXX?~~SwsIADR%S{BJu-~~S}nSP_R%T-^+XdMRT/+EZ%v% !T/CyFhR%T/[cTt7%T/r0rY7%T1.-vu~~T1Ar@QVRT1V`F|hRT1ishQ~~S@~~ZVR%S@c4P7%%S@ETCZ~~S@&*4hR%S>^m]d%%S>;q~VR%S2zR%RbK3mMR% !RV7cjhR%RJ&C>_R%RshR%Q/:]';R%R1f6:2R%R=|_~VR%RK=yRu~~RW^fh)R%Re+9x;R% !S-oI=?~~S1Kr}_R%S3|UNqR%S7Ig&DR%S9gFD)R%S;~|X?~~S?:5gZ~~SANVEqR%SCaQJDR%SI~*DzR% !SMzm12R%SQrI%%%%SU^%z)R%SY,n>KRHj+&Mg*RNVnpXkOlR<{^NL.8R:eP;x9tR8nFc/y{ #% [ 59] sb_m2.phase !S>=t;)R%S:*J\l~~S4v~.%%%S0oZb_R%Rr0|@%%%RJ^wDQ~~PKDQ~~~~RIG&l~~~Rkwdu~~~S/>VZ-~~ !S1w>K;R%S5P]OhR%S7~hAl~~S;MiuVR%S=qeq)R%SA6XT;R%SCP_-VR%SEeXhR%%SGu(Bd%%SK%6JDR% !SOyFhR%%SSZFdMR%SeR^Rv%%Sm+t_Q~~Sms3qR%%So[V%MR%SqKys@%%Ss@.em%%Su4i@v%%Sw%[=@%% !Swk~>7%%SyQC*I%%S{/93H~~S{_Y?.%%S}.79;R%S}NEDzR%S}c1:[%%S}iQRMR%S}\MnDR%S}:=L2R% !Syx-B;R%Sy]I=?~~S{;yc-~~S}yJm%T-v8f/DRT/'@EH~~T/GZ2rI% !T/\*CBd%T/oZXmirT1(7G9';T1:akjcqT1J{W&4@T1\QYcz{T1kts.57T1z]R57%T31SO'd% #% [ 59] sb_m2.caps !Sh0(s?~~Sh/t?-~~Sh/DvMR%Sh.GK;R%Sh,x7MR%Sh*uzzR%Sh(2-VR%Sf~Uc.%%Sfy{mMR%Sft88DR% !Sfm7]c~~Sfdgo;R%SfZ`8l~~SfNsT;R%SfAoc~~ !SVi2Al~~SV74H-~~ST_iQ-~~ST.~vu~~SRY,shR%SR)z-VR%SPU;Iv%%SP&lZVR%SNR@12R%SL}PSDR% !SJ`Bx;R%SH@l>7%%SD|Ih9d%%S6~~S/-d=@%%S1;GO@%% #% [ 59] sb_m3.amp !Q%%%%%%%Q6W{>FwQQH*{859pQXKsqB;.QhZK_83QQxP4Og,KR.v/vWY[R0\W9ZLkR2>XYOC_R2uJsM>W !R4M.%}7nR4xHz1[%R6Bk}*qRR6`Yc}1CR6wOlwaLCw !R4':PivjQ~GtoA%fQBh]>eJ4R6k{mWdVRFC6L?NIRPhWWo+@RVv'5HC*RZ3/(q6NRZ-gB{~k9(CwRxRTSArg:fRVUo@H:tRVyPt*e/RVlv;^wiRT[u9TcW !RPj1[UIRRN0DacRyRJFWJ|sqRFLmWAw0RB}Jzq?rR@A`fnPcR6p&DR%S8}Bh)R%S4orY7%%S0hD9c~~Rp@qzR%%RHljhR%%Q9`qQ~~~RK>K;Q~~RmriI%%%S/GG7%%% !S3&OpZ~~S5Z9CZ~~S9.l>7%%S;X4`H~~S=|_~VR%SAARahR%SC[}cVR%SEpwDQ~~SI&Fxd%%SK/f/DR% !SQ%MQ~~~SSRb2zR%Se]47v%%SmQ2)R%%So9WqQ~~SoywhzR%Sqi.=@%%Ss\N8l~~SuPdEI%%SwAVAl~~ !Sy-Tt7%%Syls`H~~S{JiiH~~S{{/u.%%S}Igo;R%S}iQRMR%S}}ryZ~~T-RPFlVRS}u|3qR%S}QiU2R% !S{0f';R%Sym[=?~~S{KBl-~~S}LQb_R%T-WGk_R%T-b1ufd%T-lvgJm%T-weY{qRT/(iY7%%T/I7zrI% !T/]W757%T/q-L`7%T33G1Bd% #% [ 59] sb_m3.caps !Sh0(s?~~Sh/t?-~~Sh/DvMR%Sh.GK;R%Sh,x7MR%Sh*uzzR%Sh(2-VR%Sf~Uc.%%Sfy{mMR%Sft88DR% !Sfm7]c~~Sfdgo;R%SfZ`8l~~SfNsT;R%SfAoc~~ !SVi2Al~~SV74H-~~ST_iQ-~~ST.~vu~~SRY,shR%SR)z-VR%SPU;Iv%%SP&lZVR%SNR@12R%SL}PSDR% !SJ`Bx;R%SH@l>7%%SD|Ih9d%%S6~~S/-d=@%%S1;GO@%% #% [ 59] sb_m4.amp !Q%%%%%%%Q:Q%-oyKQNvI/r]?Qd4P*:47Qx8@b%yFR0-XqeN*R2'ny2R%R2wqMzR%R4i1Rv%%R6U7EH~~ !R8OOdTl.R@?k^U}'RB@sf?e,RDU->3D{RF{uAlaq !RPtt:o,xRT~5>,22R`KO`P?.Rls?uMRnRnFXk%~.RdI_K*;:RX*F*@%nRN'cn9|@RHBuiV[fRF:4_zU_ !RDmbr@%nRDFf0VH>RBdn?7{aR@fNDaeV.RPc{R<6\iC0PR8`,mA@rR6%@lkHoR2JRFjpZ~~SGouJDR%SKCx|@%%SModIMR%SQ@*NvR:Zr+t;*R<f%/6,GR@\*M:~_RBa%?)NiRDvi/3Q.RHBf%*a@ !RR1[FNQwRV2a;~s`R`Vx>\`qRlxm-%}?RnCs.8/MRd@qkq:SRVxx?vy_RLv5E8HVRH8sEW-NRF1(MGVZ !RDdiZ[q2RD=?x%1{RBZn4XkhR@\If:fhR>L96q6*R<-0]G(oR8W6y(N)R4w%F3TDR25-r1e0R.T=5A&) !Q~Qe6/?_R8PTgZ~~S9\HVQ~~S=BQjhR%S?|j/l~~SCW|pZ~~ !SG.,?.%%SIYy&DR%SM(del~~SONIIMR%SQqs\DR%SU7}?.%%SWSS,6~~SYh:Ru~~S[s(wDR%S]pT/DR% !SaU_rH~~SaKMAl~~Sa2}g[%%S_7qzQ~~S],:_)R%S[UWDzR%S[g1>_R%S]WFX@%%S_cljhR%SachAm%% !ScEfWqR%ScebO?~~ScrimMR%Scv3}_R%SctC{H~~ScoqEqR%Schb7%%%ScZV-VR%Sc8mmv%%Sa@s|hR% !SUQ\XhR%SQt&l~~~SQqzvMR%SS67el~~SSc|X?~~SU?eP_R%SUvpBd%%SWSp:[%%SY3hZ-~~S]8ZF@%% !S_WmqzR%SaxE];R%Se7%%Sz:g2R%%Sz;*@v%%Sz;V)Q~~Sz<2f;R%Sz[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] i_k.amp !Q%%%%%%%QL~0P%-wQt[dcD/4R0q9]3vXR4]3z%@GR8;hu{'lR:dq?PsDR<{3z<)JR>|4Pz+0R@fv4?Db !RB9X^f-gRBKvU:x3RBCbkQ_JR@zEY`VjR@=UcC)~zYdR<8=DzJeR:/81BN1R8I2SM0HR8cdrFIf !RJoueo~gR^an}7%%RpE=MC?sS0f`,:AuS4%34m-DS4_Dh7w]S4jD7DZ.S4UyS;e(S410[WGGS2]xd5Ez !S2.@p]Q4S0XPob4}S0*S]MAmS.X`QA[wRx)(k~LkRnU+Ak&IRfL8l\FTR^_{?Yv5RXRpLiJ]RT1_Yyk[ !RPF|Dtz^RT{gP%h:R\.o-q~{R`G+*&QNRd+R|Dv)RfAE5{qRRfo>\`qRRfO.'7>xRdS~XmscR^NcV{P8 !RXR)Y{K9RT1IE6n(RNg)Mb~,RJ=Ty|jyRF[l)n8ORB[oc'.k^DqR>*e=-I8R:_Q>n(W #% [ 59] i_k.phase !S4kI]d%%S0X9Sm%%Rj?.%%%%R@[em%%%R1DMzQ~~RWYoc~~~R}.mu~~~S16:VzR%S3u||hR%S7U'|@%% !S;-3a?~~S=WiH~~~S?yx|?~~SC8_R%SG}`eDR%SI@8LZ~~SI0oCZ~~SGV8P_R% !SEbUFhR%SG5;MzR%SGoBG_R%SIdh9d%%SKa8@MR%SMcpJm%%SOkEY7%%SQt1g2R%SSyx3I%%SU{Bx;R% !SWwW0d%%SYnWr@v%S[`~d=@%S]OL2Q~~S_9PpwDRS_w^NM)RSaTdxp2RSc'LY-b_ScGW4YwmScYJiiI% !Sca}bC2RSe0<^*I%Sg3B/DR%SiNF3qR%Skq6)zR%So?/8DR%SqldahR%SuDZRMR%Swwj|hR%T-^K>g[% !T-wlS7%% #% [ 59] i_k.caps !SHF-jhR%SHDm12R%SH@zrH~~SH:S@MR%SH1WiI%%SH&1s@%%SFrFX?~~SFb?RMR%SFO}{qR%SF;\Td%% !SF%57%%%SDfpVzR%SDLat_R%SD0fp2R%SBm3}_R%SBN&}7%%SB-G.v%%S@e:FhR%S@Ab*qR%S>vgo;R% !S6~~S4S~nl~~S2|D)Q~~S2JF/l~~S0r=;zR%S0?[EI%% !S.f7qzR%RxL3@v%%RlS-nl~~R`P2zR%%RTC\8DR%RH,Jq)R%R:eKG_R%QzWj\DR%QQs)Am%%R5sgc.%% !RWD_EqR%RwI,?-~~S/`F3qR%S3+r];R%S5I)rI%%S7aKCZ~~S9x`iH~~S=5Qfc~~S?IrDzR%SEf@EI%% !SIg?rqR%SMay.MR%SQMs7u~~SU/6B;R%SWfYshR%S[:5C2R%S]_i,_R%Sa)KSl~~ScFn}7%% #% [ 59] i.rep !S:,/du~~S:,|;zR%S:/P;)R%S:3cB;R%S:9T7MR%S:A&Tc~~S:J-%v%%S:Td%%%%S:`u2)R%S:nQrqR% !S:}[MQ~~S<4,{qR%S)D9d%%S>@DZ-~~S>XX@%%%S>r%EH~~S@2cJDR% !SB00|?~~SBpuB;R%SDbhIu~~SFL@=@%%SH(,od%%SH_y>_R%SJ@vIMR%SJ}}*qR%SLb{([%%SNIahR%% !SP2&Ov=@%%S>P{(Z~~S>T+dMR%S>Y4|hR%S>`i8HVR%S>ss'd%%S@&-nl~~S@3dUZ~~S@BP{qR% !S@RB3H~~S@bx[u~~S@t1g2R%SB+e`qR%SB=Qnm%%SBO=|hR%SB`|pZ~~SBrKp2R%SD)^{I%%SD:\8DR% !SDmf7MR%SF9Z>6~~SFhu^Z~~SB08g[%%SZl4+hR%S^ZnHVR%SbLvU[%%SfB/DQ~~Sj:3@v%%Sv1+\DR% !S~5cVR%%T.ou%u~~T0;eL[%%T0b2V)R%T2/2b6~~T2VZvu~~T2~Q:2R%T4Ll%v%%T4uMZ.%% #% [ 59] i_l1.amp !Q%%%%%%%QDcX(Rv%Qd2pjB=0R.\6-4*?R2)%F7v%R4G[VbbhR6\vHr>OR8fr|W,_R:er]L=(R=-iV:wR>q/^?1;R@?qA|a\R@^w-v-.R@x,?9`iRB4diJraRBPT5j9xRBzY?bPxRDg40h?FRH)y`su* !RXm0*qU_Rjr1lJDRRzB3{,I^S2/]LtL*S4(%dibxS4J~xe?_S4K6>t{rS45L6KWqS2lzRP%~S2D1zhAI !S0rnfOb@S0FA4ka)S.twFatJR~=Ja=jTRtqCWJ)jRlcGEreERdvrBz+TR^Q9q0D%RX`p2p\]RTUKXBR~ !RPj*y[%%RTlxHyI~RZSpx7))R^Ya9K)bRb6%&ew0RdIR_XHwRdtqI3~&RdVMlkspRb_1VC-_R\msN>Sb !RVz%Ez>:RRcI2UPpRNE^w'=)RH}Z2rI%RFF*Tr<)RBHxQ{%[R@0;C2R%%R__1[%%%S-fMf;R%S1JQ)zR%S5'mADR% !S7X2^2R%S;',wl~~S=G{qR%%S?_j@%%%SAm,cVR%SCn7z)R%SEa,2zR%SGChEqR%SGo>g[%%SI0]/DR% !SIGNuVR%SIIIqzR%SIP`@v%%SIv|P6~~SK^Ug2R%SMXv=@%%SO]Kd%%%SQdsX?~~SSixG_R%SUj_5_R% !SWf.12R%SY\+wP_RS[M=Ywm%S]:;MV)RS]|lVR%%S__j-jhRSa<93mMRSaiXL.q{Sc24_O3qScHnA_RT/x5*M)RT13QK3I%T1G'jP7%T1[H/8DRT1rn&Td% #% [ 59] i_l1.caps !SH_B[v%%SH]zb7%%SHYnu-~~SHS&Tc~~SHIY;)R%SH=Vb7%%SH/)j?~~SFx3mMR%SFe%em%%SFOdMR%% !SF8Fxd%%SDy.MQ~~SD^%z)R%SDA8DR%%SB|lzzR%SB\mIMR%SB;D^2R%S@rL_)R%S@N6F@%%S@(TSm%% !SGR0(pSm_BR0n`+]>CR2PT_bmbR4&KIc7fR4JaY<&} !R4bD'9t7R4mBH\;ZR4lZH>[MR4`,2gV2R4I+apiYR4)*&f[-R2\r9*BTR22iyJ9|R0b{Z4P7R0@O3z|y !R282k^_NR8yw~ab'RBh1'Ty*RZZF/,qBRj%YZ;[fRpv\1a+hRt0'bXc_Rrh{g1;%RpS7&_eMRldqIm;b !Rh`N`1'3RdL^(FhRR`3z?sr]RZtm5DqZRVTmf7,dRR2?FZ:{RLnRENotRHXP}X)BRDY^nV+yRB)%\w_^ !R@G65,22RFU2s|KDRN>?k)pGRT6*]/OLRXH~lPRVR\,n-'1UR^'_*cD,R^5a.P~dpR7%%T1JM)-VRT1QdZNI%T1XEot7%T1^FhQ~~T1c^{mMRT1g}C{I%T1k%I9;T7<9tAy3T7KNcEuVT7\t,21[ #% [ 59] i_l2.caps !SnT.12R%SnSU.MR%SnQe,7%%SnNeDQ~~SnJR=?~~SnDzvMR%Sn>2V)R%Sn5x[v%%Sn,Bh)R%Sl{=`I%% !Slnedv%%Sl`];Q~~SlP~>7%%Sl?crqR%Sl,k_Q~~Sjr7~-~~Sj[y:[%%SjC{H~~~Sj*:o;R%ShhkSDR% !SfeH2)R%SdwUwDR%SbtpRv%%Sb28P_R%S`jLVzR%S`G%57%%S^ypNqR%S^P_R%%%S^%Oxc~~S\RmQVR% !S\%IMR%%SZQb;)R%SX}lNH~~SXOs'd%%SV{y[%%%SVMf_zR%STy/7%%SJ7KOhR%SFy1>_R%SDip>_R%SBa*0c~~S@Z5?-~~S>RcjhR%SR4Rbf^;J !R4j|]WqRR4vX`=C;R4vKOGcVR4jZ/YtWR4T?.RHJ7>3^ORDxJr@e:RB)k]P2ZR>_uctaTR)vXL2T7MPyruWT7^y|c^[ #% [ 59] i_l3.caps !SnT.12R%SnSU.MR%SnQe,7%%SnNeDQ~~SnJR=?~~SnDzvMR%Sn>2V)R%Sn5x[v%%Sn,Bh)R%Sl{=`I%% !Slnedv%%Sl`];Q~~SlP~>7%%Sl?crqR%Sl,k_Q~~Sjr7~-~~Sj[y:[%%SjC{H~~~Sj*:o;R%ShhkSDR% !SfeH2)R%SdwUwDR%SbtpRv%%Sb28P_R%S`jLVzR%S`G%57%%S^ypNqR%S^P_R%%%S^%Oxc~~S\RmQVR% !S\%IMR%%SZQb;)R%SX}lNH~~SXOs'd%%SV{y[%%%SVMf_zR%STy/7%%SJ7KOhR%SFy1>_R%SDip>_R%SBa*0c~~S@Z5?-~~S>RcjhR%SM.QXbpR@)Pr_E)R@`d`*RARBD{keBt7RHi8~^iYRLn%s\@r !RbuYQmS4;;6Dx+S2~=/|@nS2]W{&7zS26\)+[V !S0gfws:CS0tfD%Rl:lab&mRd[tlxAYR^G)4nJ4RXd92hb7RTc:>)wa !RPy,b>jqRTeJAu]HRZ8:&a`IR^5MY6eQR`gdZr6NRbwjd9G4RdHpf(6+Rd*r]0JgRb5X(E6UR\N~YQ<* !RV_Riou`RRNRHofY_/gRF:bX%:HRB?,,Z:3R@(zYzt'RATc~~SwqR%%%%T-]r\q)R !T-w6X/m%T/5s.57%T/Lvgo;RT/cXP[MRT/x=miqRT13YmahRT1G1\8DRT1[O(Rv%T1rrh~VR #% [ 59] i_m1.caps !SHc)zR%%SHab&l~~SH]V9d%%SHV`Y6~~SHM2%MR%SH@~RMR%SH2J@MR%SF{IIMR%SFh0G_R%SFRgo;R% !SF;;f;R%SD{uzzR%SD`f3H~~SDCm]d%%SD%@z)R%SB_=hQ~~SB=gc.%%S@tl)zR%S@PJq)R%S@*h~VR% !S_R%S6aHRMR%S63Rem%%S4_16VR%S4,~b_R%S2S{}_R%S0zcJDR%S0Fn4@%% !S.l:{H~~Rx}jL2R%Rl{STc~~R`plnl~~RT]X`H~~RHA:FhR%R:vD~VR%Q~.,?.%%QOVd]c~~R5i0c~~~ !RW;)R%%%Rw?I12R%S/_O|hR%S3+1&DR%S5H_Iu~~S7a@IMR%S9x`iH~~S=5Qfc~~S?Ik*qR%SEf@EI%% !SIgG2zR%SMay.MR%SQMs7u~~SU/=\DR%SWf]Sm%%S[:5C2R%S]_pFhR%Sa)O3qR%ScFn}7%% #% [ 59] i_m2.amp !Q%%%%%%%Q<'XEQ~6QPprt[7^Qf:)vaw,Qz%M'rgkR0-j1NM*R0vF>eMnR2ZbQ.79R44lMNL;R4]X>1Bd !R4{Ax?9DR62qd&?_R6:mrzTpR681%g-_R6.Tij)BR4wtm'KdR4csUv8MR4Mf1?NIR46w|6:WR2wK_JGh !R0@%-xf'QxsDf%]dR2fq7CrQRD`%b6ZWRP;ZUss(RV2a%EbSRX=PRTzBNk&m !RRrKKPAURP_NNKKdRNF/v/0]63<34R;)R%T1K'U&DRT1R*@QVRT1XLi4hRT1^1;%MRT1b|-F@%T1fooC[%T1i?+|hRT1i{Y[MRT1h[/0;R !T1`.i([%T1^/*4hRT1d-k{qRT1mG9';RT1wa)f;RT3(AbshRT33@Xp[%T3>b->7%T3J?P&m%T3kwW0d% !T5'2~VR%T5;a5shRT5O(q2nET5b;{S07%%Sl?k2zR%Sl,vY_R%SjrFX?~~Sj\5.u~~SjD:wDR%Sj*W}_R%Shi2Al~~ !Sfest_R%Sdx+@%%%SbuB;R%%Sb3^*H~~S`l*DzR%S`H\}6~~S^{CBc~~S^QvQVR%S^&XD)R%S\Sj|hR% !S\&8DR%%SZRBWqR%SX~Aq)R%SXPA0;R%SV|@IMR%SVN&4?~~STy=p[%%STJ&0;R%SRs}2zR%SRC8XhR% !SNziQ.%%SLWBx;R%SJ7RiqR%SFy8XhR%SDiwXhR%SBa-jhR%S@Z5?-~~S>R`0c~~SshR%R0uRqzR%R3CHF@%%RK[K+?~~Rcm<,_R%R{F.Y_R% #% [ 59] i_m3.amp !Q%%%%%%%Q<1._L%VQR)umibxQfVR3_iQQzK2%oiaR02OmF0\R0{|mKZcR2a1kTu&R4<2p&a`R4el;X+h !R6*Ql8n8R67RB5\J+5tR>d\4?=HR[(l:G_R7%T3Ks]|@%T3m`?>7% !T5(g2Q~~T5=B]x;RT5Po9DnET5csiS0;T5u>:>;)T7-O'0|@T7=P}e4@T7M>l4t`T7_2:9G_ #% [ 59] i_m3.caps !SnSU.MR%SnR|+hR%SnQ5cVR%SnN9[v%%SnJ&Td%%SnDVMzR%Sn=h-VR%Sn5_-VR%Sn,,shR%Sl{/,7%% !SlnZjhR%Sl`Y[MR%SlP~>7%%Sl?k2zR%Sl,vY_R%SjrFX?~~Sj\5.u~~SjD:wDR%Sj*W}_R%Shi2Al~~ !Sfest_R%Sdx+@%%%SbuB;R%%Sb3^*H~~S`l*DzR%S`H\}6~~S^{CBc~~S^QvQVR%S^&XD)R%S\Sj|hR% !S\&8DR%%SZRBWqR%SX~Aq)R%SXPA0;R%SV|@IMR%SVN&4?~~STy=p[%%STJ&0;R%SRs}2zR%SRC8XhR% !SNziQ.%%SLWBx;R%SJ7RiqR%SFy8XhR%SDiwXhR%SBa-jhR%S@Z5?-~~S>R`0c~~SshR%R0uRqzR%R3CHF@%%RK[K+?~~Rcm<,_R%R{F.Y_R% #% [ 59] i_m4.amp !Q%%%%%%%Q>be?@d~QX0aAm=lQp-w\PrNR.pJ0lxER0t/jSqkR2nfLBQkR4_hM0sHR6GRLJ|AR8'Gc=rG !R8\Ckn(WR:6~c0I2R:qcYmKtR<_~2)R%R>d71]smRB-6eBlwRDvzj:40RJ7/4j>GRN}.v%%%RV9Vg,9' !Rj|`T2o|RrZERg]'Rj9)i6r)Rl6j?xmAR`uTE;eM !R>l'mupKR>kdfGqfR>c8ifqFR>Kg8x-gRXBpRLn[dhJ.RR)y*DZ*RTYqFqa{RVDs8n&0RVR7F9E9RTzV+E@R !RR=Jk,9LRN`2a+&3RJ}E)F}WRF{>)dQARDT7YA7vR@j5B`},R>;-uEZzR:uGR`QsR8w+~gO< #% [ 59] i_m4.phase !S:7z)R%%S4}hnDR%S0m|t_R%Rnox;R%%RD}WH~~~Q}vv%%%%RUbK;Q~~R}[EH~~~S1L{I%%%S5J^&DR% !S9Gyo;R%S=DT';R%SA?:VzR%SE69h)R%SG~eP_R%SK`PcVR%SO0.z)R%SQB3mMR%SS6Tt6~~SSc,G7%% !SQU_)Q~~SM(s@%%%SGYnu.%%SEO`mMR%SEE4hQ~~SG)zQ~~~SI;b6~~~SKedu~~~SO4WuVR%SQG9Kc~~ !SS=kC2R%SSwcb_R%SUGMb7%%SUhkSDR%SW+1&DR%SWCi4hR%SWXQJDR%SWdW];R%SW_?jhR%SW4jT;R% !SMTjP7%%SIK+?~~~SIJ~%u~~SIpFD)R%SKFqIu~~SK|p6VR%SM\~JDR%SOA>K;R%SQ(>_Q~~SU;1Z~~~ !SWe\HVR%S[4lVR%%S]Z4+hR%Sa*>*qR%ScE>O?~~Sem>wm%%Si.-.%%%Sk9kcVR%SmS%el~~ #% [ 59] i_m4.caps !S|Zeu.%%S|[0CZ~~S|\Cc-~~S|^Ey[%%S|a:g2R%S|dxKd%%S|iK';R%S|nmmv%%S|t{qR%%S|{|L2R% !S~)h=hR%S~2;f;R%S~;IQVR%S~E)%MR%S~O,{qR%S~Y?RMR%S~cJhzR%S~m8q)R%S~vB|@%%S~~K|?~~ !T.SFxd%%T.S-JDR%S~mREH~~S~fC6VR%T.R,?.%%T.SvADR%T.T*uVR%T.S&0;R%S~v)MzR%S~]9+@%% !S~@w8DR%S||UNqR%S|]A4?~~S|>%Y_R%Szy9G_R%Sz[CFhR%Sz>R12R%Sx|^FhR%SxaR9;R%SxFjT;R% !Sv]5&l~~Stnq)R%%Sr{XH.%%Sr-c)zR%Sp>RUZ~~SnU{mMR%SlqD^2R%Sl2`4hR%SjL*I%%%SfEiI%%% !Sd6JhzR%Sb'3H~~~S^xUo;R%S\{Gk_R%SZ}Uk7%%SZ+BKd%%SX;)R%%%SVHs;zR%ST[l>7%% #% [ 59] i_m5.amp !Q%%%%%%%Q>q^J>quQXPUW?q:Qpb`(ly&R.xCVYIAR2%E`gwZR2~-ZmNeR4su/AH+R6`z3]>kR8F;Q*fQ !R:&9D,P^R:^qkWKwR09t7%%R@2JZ`53RBQSS?2rRFQgR@>RTf=0R>h=.57% !R>_,|@B3R>^x;{wYR>VfHmGKR>?`0^40R\&UR<(StUC.R8~I%qV)R6_sFt>dR4.9]55GR0Pm'Kd% !QzwDY}K`R6jt;{S0R@LnPU?NRH/1[[ahRL{d4(AIRR7a^zpCRTg;@\k]RVRbHr,;RVaUaS/MRV,7lP*M !RRFB-l&{RNh(qOo^RL&rnP9ZRF}LkGOlRDUErl7:R@hf.XI[R>9h[Wj&R:s-VK?HR8sd*?(C #% [ 59] i_m5.phase !S8IMQ~~~S45Uk6~~S0&cb_R%R`,.v%%%R6O\DQ~~R;c6.%%%RcO|hQ~~S/-Uc-~~S3'7MQ~~S5y7iqR% !S9p(FhR%S=f1FhR%SAY|;zR%SEJ+lVR%SI3?b_R%SKj[z)R%SO6~ZVR%SQG'7MR%SS:YG7%%SSffKd%% !SQ\0;Q~~SM1k7%%%SGdDZ.%%SEZZzzR%SEP.u~~~SG4P6~~~SIF\DR%%SKp_)Q~~SO?R))R%SQQi0c~~ !SSGvY_R%SU&712R%SUOVb6~~SUp+\DR%SW2&`qR%SWJ^o;R%SW_G*qR%SWkM=hR%SWej|hR%SW:Lo;R% !SMS2b7%%SIKt7%%%SIL7EH~~SIrm))R%SKK@EI%%SM(RQVR%SMb`eDR%SOEgFhR%SQ-2)Q~~SUC_)R%% !SWl-ZVR%S[=@%%%%S]cPK;R%Sa13eDR%ScO%=@%%Sev6nm%%Si4|hQ~~SkCRQVR%SmYPwl~~ #% [ 59] i_m5.caps !S|Zeu.%%S|[0CZ~~S|\Cc-~~S|^Ey[%%S|a:g2R%S|dxKd%%S|iK';R%S|nmmv%%S|t{qR%%S|{|L2R% !S~)h=hR%S~2;f;R%S~;IQVR%S~E)%MR%S~O,{qR%S~Y?RMR%S~cJhzR%S~m8q)R%S~vB|@%%S~~K|?~~ !T.SFxd%%T.S-JDR%S~mREH~~S~fC6VR%T.R,?.%%T.SvADR%T.T*uVR%T.S&0;R%S~v)MzR%S~]9+@%% !S~@w8DR%S||UNqR%S|]A4?~~S|>%Y_R%Szy9G_R%Sz[CFhR%Sz>R12R%Sx|^FhR%SxaR9;R%SxFjT;R% !Sv]5&l~~Stnq)R%%Sr{XH.%%Sr-c)zR%Sp>RUZ~~SnU{mMR%SlqD^2R%Sl2`4hR%SjL*I%%%SfEiI%%% !Sd6JhzR%Sb'3H~~~S^xUo;R%S\{Gk_R%SZ}Uk7%%SZ+BKd%%SX;)R%%%SVHs;zR%ST[l>7%% ifeffit-1.2.11d/src/fefftab/29.dat0000755000175000017500000002206410771740460015475 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] cu.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] cu_k.amp !Q%%%%%%%Qr{FB\.9R4`Gm_xPR<+T~X/mR@pY9e8DRDj=9U<9RFtfw5=PRHL(Qb_RRHfX-wRbRHyH7D~V !RJ6bJyloRJQapu:{RJpD&-nmRL5E:\`MRLNfIWU{RL_[kx03RL`Aa`(7RLK19C=qRJoWX7B|RHg\s8Rb !RRHL9~B;RPd:mA~oRJpEk779RBzpj_lBR:z?+BKdR6+Q[d&]R4nj/w7VR:)egyFhR@2~o>g[RF:t)+/m !RL)AZ`vjRPQ{\^o;RTU,H5yKRX>}PXnYRZoFy*+qR^56-uttR`HU[tNQRbR]3&%fRdLWTmSYRf7&pPO@ !Rh86cv*6Rfv`_4^GRdkEm'L !R>N%1Df;R:Z~;X+iR6r4]4JrR4eN%g?sR2]udeyiR0kXta;OR.}uf9H.Qx99in*5Q^PSL2vN #% [ 59] cu_k.phase !S@Rj;zR%SmahRSOq0_R%Sa3wXhR%ScG9Kc~~SeZ}G7%%Sgp'|@%%Sk)kwm%%SqTy*I%% !Suf7qzR%Syl5cVR%S}u/\m%%T-`l2rI%T-rIEmMRT/(.Tl.%T/6\uvv%T/IN5{qRT/P-[EI% #% [ 59] cu_k.caps !SBCTx;R%SBBLRv%%SB?/\m%%SB9[u~~~SB1z~VR%SB(+\DR%S@v))Q~~S@go_zR%S@WD1Z~~S@DZRMR% !S@/MnDR%S>qpk6~~S>WW4hR%S>:LJl~~S?.%%S7%%SWDj@%%%SYLFhQ~~S[NDV)R% #% [ 59] cu.rep !S2fL.MR%S2gfh)R%S2k`@v%%S2r-rqR%S2{)Iv%%S4,H%v%%S49~fc~~S4Il>7%%S4[\,6~~S4oJP_R% !S6+07MR%S6B\@MR%S6[xKc~~S6w&y2R%S89yNqR%S8Xb&m%%S8yEU2R%S:B2Z.%%S:g}&l~~S<;-VR%% !S>=p[%%%S>tL*I%%S@UEU2R%SB9;-VR%SByey2R%SDbNuVR%SFM/4?~~SH9NU2R%SJ'9OhR%SJp4/l~~ !SL`3U2R%SNQ)1[%%SPB\du~~SR4t;)R%ST'a3qR%STtyo;R%SVh\y2R%SX\`qQ~~SZP~>7%%S\E[9;R% !S`W(Z~~~SdiXH.%%Sh|w,6~~Sn6nm%%%SrK8SDR%T8Mgs@%% #% [ 59] cu.lambda !T0ns+hR%T0p%12R%T0s>G7%%T0xD%MR%T0~kWH~~T2+l2)R%T22^2Q~~T28GgZ~~T2<6F@%%T2=Iel~~ !T2;NiH~~T266vu~~T2-jhR%%T0|lzzR%T0p0+?~~T0bpRu~~T0VEqR%%T0L3@u~~T0F3qQ~~T07h9c~~ !SZ6Yg[%%STsIADR%ST(ps?~~SRxwq)R%ST;D^2R%STqU_)R%SV`[9;R%SX^>_R%%SZgp*I%%S\{D1Z~~ !S`=P[MR%Sba3(Z~~Sf1Z6-~~Shb5G6~~Sl>Ls@%%Sny|7u~~Sr`DzQ~~SvKHrqR%Sz:nLZ~~S~.M-VR% !T.uW@v%%T0IM-VR%T0yLJl~~T2QJDQ~~T4+;zR%%T4`sxc~~T6>3DzR%T6w*Y6~~T8WU{I%%T<[gJl~~ !T@)G*qR%TBV7=@%%TF-q9d%%THd.el~~TLDkSDR%TP)]h)R%TRlPod%%TVY2V)R%TZIQzzR% #% [ 59] cu_l1.amp !Q%%%%%%%QdiN`7Y_R2?pNg?NR8?g~0aXR>.ZM:'3RB]r,sw,RFk\:f-gRJRa8a}WRLn9|mxLRNi@azf< !RPKb[\,7RPuP~1,'RR80cn9|RRMTQhWaRRVniy+\RRR0i?(CRR=|)`J]RPkvfztKRNxp,MLCRLQ7(r%E !RTpoBy8}RRv6Cuq^RLW-n5Z_RB}fF)39R:2{~[tlR2PP4GGqR2I`OH5?R8Q6u2U;R@4L9H&@RF[n(og; !RL[pKn0;RR2RtAF0RV:XrU{IRZ'7}B&MR\YSDyEzR^yG&wy3Rb0wIbWIRd:SI=G?Rf3-l8MJRfx:f:0+ !Rhu&m*otRhU&D7i)RfAoq1+\Rbh]m|;lR^xivvDeRZjRZP`HRVESSdjCRR)dEw2/RN.SrH%CRD+F\M;B !R>VaZF5lR:b'K0|R2acZ+WXR0m^&NJ@R0&Rf4-cQxIMW&HeQ^OS<%*K #% [ 59] cu_l1.phase !SA*Cg2R%SE:i}_R%SI?0';R%SM7Q2)R%SO~ALZ~~SS`MMzR%SW9.UZ~~SYd6%v%%S]/A`qR%S_OsL2R% !SalM~VR%Se+'c~~~Sg?K|?~~SiNF3qR%SkX:g2R%Sm[ahQ~~SoY(&DR%SqOGcVR%Ss7T/%ai9[vT/+SzTKdT/1=+hR%SB8b*qR%SB0rY7%%SB&n\m%%S@t]OhR%S@f7qzR%S@UWiH~~S@B[v%%% !S@-@]d%%S>oU&DR%S>U,od%%S>7tk_R%SY||.RJvJT[;bRRSMp0_a6[EIR@Clw5SRBT_HdpCRFU~~|,WRJD`fHUcRN&6R'{-RPTg7r{]RRw-kShzRV7~MJl6RXClGL*IRZCw6-V5 !R^'B)JB>R^Q\z/O>R^.`Fzh,R\bRRYuvQOzRNa,e{tvRL%Ng]7?RBVs}Np, !R>5F,MJ2R:IuWqgsR6e&5hTOR4VrZ4/IR2P}klcVR0\CY{Y,R.ym.QhfQ~|ph9nyQrAdDt6p #% [ 59] cu_l2.phase !RtRQVR%%RLvADR%%R0_=hQ~~Q}rqR%%%R=B?VR%%RKf/DQ~~R[{{qRT/@bbC2RT/G[|t_RT/M`4hR%T/S&({I%T/Wi[9;RT/\-}G7%T/`+W,_RT/cds|hRT/g/*4hR !T/o4jxd%T/vx*uVRT/~R))R%T1+h16VRT12R/y2RT19,L*I%T1?sd))RT1F~0Kd%T1N0&(2RT1c5jp[% !T1pxu%v%T1}u?%v%T31nL[%%T3=*`,_RT3J3MMzRT3UiMU:[T3_K;R% !SN;<0c~~SL5V~VR%SJ2EqR%%SH4x?VR%SF>nP_R%SDNvEH~~SBah-VR%S@tYoc~~S@-aL2R%S:{<([%% !S8c?%u~~S6OyRu~~S4G[MR%%S2El:2R%S0Fy.MR%R~lcNI%%Rn8^o;R%R\qkwl~~RN2Rmv%% #% [ 59] cu_l3.amp !Q%%%%%%%R2&5DU@LR>)}V46RLX_&&nzRFSw8My_R@a.,Mb7RR.S(r>shR0F~_U_RFP\fv*aRJ>j=>*)RLydTn>pRPMN*3BxRRoJ}PSERV/w4]jfRN`%cX=?RL%4/'&MRBV+V<<% !R>5].M._R:Ir=NE3R6denRP]R4Vy75_oR2P_y`5WR0[o)t-fR.y>J4vbQ~qc:kfHQr7_9otM #% [ 59] cu_l3.phase !R`5od%%%R8v%%%%%Qioc~~~~R=FD)R%%RIpg2R%%RU{U2R%%Re/u-~~~Ruq5_R%%S//WyZ~~S1@B3I%% !S3`9[u~~S7=&P_R%S;I{}shRT/\]F'd%T/`W?b_RT/d6\XhRT/gZljhR !T/oUYG7%T/w;9?VRT/~vQVR%T1,69h)RT12}rU2RT19TT[v%T1@:RQVRT1GDxt7%T1NTNU2RT1c]sH.% !T1qF}WI%T1~Q{iI%T32Co;R%T3=]bk_RT3JqJ@MRT3V>p5g[T3_z^i4iT3mwiw}7T3u}jwu. #% [ 59] cu_l3.caps !S`HgwDR%S`I++hR%S`J3Q.%%S`Kv9;R%S`N;^2R%S`Q4+hR%S`TMAm%%S`X&,7%%S`[\P_R%S`_&`qR% !S`a|hQ~~S`d,?.%%S`dxp2R%S`d,?.%%S`a%=@%%S`[)MzR%S`Q\4?~~S`Cx3I%%S`/H2)R%S^ciy[%% !S^[GK;R%S^kUk6~~S^hGO@%%S^WJ8DR%S^K;R% !SN;<0c~~SL5V~VR%SJ2EqR%%SH4x?VR%SF>nP_R%SDNvEH~~SBah-VR%S@tYoc~~S@-aL2R%S:{<([%% !S8c?%u~~S6OyRu~~S4G[MR%%S2El:2R%S0Fy.MR%R~lcNI%%Rn8^o;R%R\qkwl~~RN2Rmv%% #% [ 59] cu_m1.amp !Q%%%%%%%R2@ANJ?_R<]2abC{RD*O-yBdRFRoe2S]RFe3P5}tRFL`e[-wRF3q(ZDbRF*~0cHBRF5.tvY_ !RFO:|?6.RFtCzT=0RHDp\iw}RHoC&I:ORJ9:givERJSTDsMjRJ\eS<:KRJPzM&`qRJ&.7rpcRH)Df[Xq !RPoG@9BlRP;vwh-{RJZCi-NIRB}1v-RNR<>q*\[5R6bEw-%vR6G-W=}WR:B28^R-R@5HNf3IRF0Uras( !RJo_J4*1RP8\ja)BRT:VNiI%RV}HgYNQRZQ{JWcgR\s2*KODR`,DT|vbRb4:1b%ZRd1ZQ+X@RdtNl(?* !Rfu_MH[PC2RTxw@t_Ij)}s=R:W`'Zo)R6on&&C7R4ci-GOdR2\;fSCMR0jZdJ^aR.|hlB4zQx2,E,E~Q^PTAmMo #% [ 59] cu_m1.phase !SB.AkR12S>-1I57%S:Ow3Q.%S8+6b_R%S4_}g[%%S20qj@%%S.RM-VR%R^B+?~~~R7%%SI/uRMR%SGa=X?~~SET(NqR%SCroOhR%SC{6ub_RSEM7VnDR !SG.MNDzRSGoHz1[%SIW52zR%SK>XFP7%SK~OnXhRSMbRhw`qSODhLBd%SQ%C`_R%SB(:6VR%S@v7]c~~S@h't6~~S@WZ%u~~S@Dt&m%% !S@/n\l~~S>r7Y_R%S>X%=@%%S>:{mMR%S6~~QHTOhR%%Qw]yNqR%R9&F/m%%RCmPC2R%ROVK/DR%R[7%%SWDj@%%%SYLFhQ~~S[NDV)R% ifeffit-1.2.11d/src/fefftab/67.dat0000755000175000017500000003577010771740460015507 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] ho.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] ho_k.amp !Q%%%%%%%R0>E|E(mR:UvRB`[ZkWIRJ<{}58]RNx'3P?.RRVIhYjqRT4:/WgGRRpmTzb7RPf=fpV{ !RL~@YBC[RHuWs0T\RDed)6}lR@lNaQQ_R>M/78L[R0.]5C{R>p@Md9*rS?j&f=3nSC^G2YcWSGJ:foC[SK,k3HZWSM^}aqIvSQ+2eL[% !SSB~,G7%SUH}NQ.%SW8a4`I%SWgb_vMRSW{h'+@%SW~8F/m%SY%zF`I%SY3-4t_RSYM&dQVRSYo5~>7% !S[m8HzzRS]OOlVR%S_v*a@%%SadiM)R%Sc8u.%%%Scw&Td%%SenR=@%%SgxQjhR%Sk5cVR%%SmU=pZ~~ !Soy=L2R%SsDPG7%%Sugdel~~Sy-\4?~~S{Gj'c~~S}\-%v%%T-Xo5K;RT-bL1c.%T-k@'p2RT-sIiM)R !T/*Q8y2RT/7`XlVRT/A+@mv%T/Emj`I%T/FtE}_RT/IqHb_R%Q:@,cVR%Q2*;^2R%O@7@z)R%Q3Oh-VR%QEhu^[%%Q[c%QVR%Qu>P.v%%R/Mk.u~~ !R3)+/m%%R5mREH~~R9gI~-~~R=qAHVR%RC1}od%%RG^E0d%%RMCb?-~~RS=UNqR%RYMzvMR%R_w>&m%% !R{(NM)R%S/Bt[MR%S/e9WqR%S1&,7%%%S1J({I%%S1wfSm%%S3Rz)R%%S54=|hR%S5tK_zR%S7^='c~~ !S9JXhQ~~S;8`qQ~~S='PWI%%S=pK7MR%S?^ZZVR%SAKR~-~~SC6[EH~~SCyVV)R%SE`2Am%%SGD:.MR% !SI{@QVR%SMMWa?~~SOuTOhR%SSDh=hR%SUow(2R%SY?crqR%S[cTt6~~S]~FdMR%Sa6O7v%%SgZm~-~~ !SkkP.v%%SogTx;R%SsZ'Sl~~SwJ`M)R%S{-xSm%%S}ai@u~~T-]5&l~~T-jG?.%%T-vqzR%% #% [ 59] ho.rep !S8>V~VR%S8?B;Q~~S8AhzR%%S8Ef3H~~S8KA4?~~S8RPC2R%S8[9_zR%S8eSP_R%S8qGO@%%S8~k{qR% !S:3f|?~~S:D8P_R%S:V6rqR%S:iehzR%S:~gRu~~S<;?jhR%S.0C[%%S>Jwy2R% !S@TDIu~~SBF>k_R%SB{s/m%%SDW%EH~~SF5vY_R%SFq:Ru~~SHTt6~~~SJ:Yk_R%SJ|6b_R%SLeO'd%% !SNP=t_R%SP_R%T6Wh~VR%T8&4dMR%T8NZJDR% #% [ 59] ho.lambda !S00rY7%%S01@ahR%S02^{I%%S04ol-~~S07s3qR%S0;i,_R%S0@J6~~ !S4+-F?~~S2r*8m%%S2k?RMR%S2n7z)R%S2xC6VR%S4,~b_R%S4?.%%%%S4Sst_R%S4jlzzR%S6)RIMR% !S6ChEqR%S6_>{qR%S6|%=?~~S8?c)zR%S8^9G_R%S8}T|?~~S:CX3qR%S:d4H.%%S<+C_)R%S_R% !S>I56~~~S@GZ:2R%SBGry[%%SDIiM)R%SFLzZ-~~SHQALZ~~SJV_j@%%SL\t?-~~SNcwdv%%ST|wu-~~ !SZ6Cs?~~S^KV9d%%Sbb;MzR%Sfz>{qR%Sl9Uo;R%SpSmmu~~Sto%]c~~Sz1&DQ~~S~MlB;R% #% [ 59] ho_l1.amp !Q%%%%%%%QhnR%[ahR2cTEp7ER8sDW>@fR>s-)1[%RD^U&nJYRJ3%+t_RRNI:KQcNRRHxSl~~RV5`Gur) !RXhy25X8R\3|CI57R^Eos;d^R`/:aXzBR`11aeCcR^HuDyuBR\;&t|C;RZ&n75T3RVr>MO|iRTl&Avem !RNn1xI=@RTQ``X'@RXgL@@8MRZ~beBt7R\\K:a^kR^.PPnbtR^_1_`vER`3+IWY[R``}HbI^Rb6OZD+T !RblHvZ?oRdNsLMOXRf/R98YWRfU0a|hRRf`/%hD^RfAbDEqRRdY]a'N1RbUC_?F@R`fP;co !RXir_V;%RX5h^lGLRT{-49=XRR?BPZhnRNh43V3]RJh8vMdZRH4yCd'pRD9f6&.9R>~sz*OP #% [ 59] ho_l1.phase !RQ`reDR%R}fN0c~~S1Z6Yg[%S5\sf+@%S9WP)9d%S=IqCo;RSA3f>C2RSCnsf+@%SGFw(VzRSIo>`@v% !SM3-FG?.SOD~g~^[SQI2GaTKRoSmSU'MiuVRSUd4ecVRSY[[=@%%S[4gM9d% !S]UK;-VRS_K&(2R%SaL?rqR%Sc@NeDR%Se*K';R%SeqJdu~~Sgcb;)R%Si`'G_R%SkgO;zR%SmyLo;R% !Sq8dQVR%SsU4/l~~Sup`+8@MRT/CE};)RT/F0y*I%T/I[ahR%T/OLVzR%T/Vs)Am%T/_/uvv%T/{}BC[% !T16a6>7%T1KYp.MRT1_o:c.%T1s~MZ.%T3.0h)R%T3@pFD)RT3T>czzRT3fl.%%%T3wFEa@% #% [ 59] ho_l1.caps !RF(CRu~~RDv.em%%RDQQ^[%%RBnvel~~R@t~>7%%R>dSXhR%R<>N,_R%R8]ys@%%R4i~)zR%R0c_Iu~~ !QjAMIv%%Q8o(*I%%QEM+T;R%Q}N:Jl~~R3JmIMR%R9XKCZ~~R?vXL2R%RGLC.MR%RO5C2R%%RW3Znl~~ !RsZVvMR%S/&}7%%%S/L/`qR%S/iimMR%S16q9c~~S1fe\m%%S3Cat_R%S5&5SDR%S5g5g[%%S7QZ2)R% !S9>C{I%%S;,eXhR%S;urM)R%S=e,[MR%S?S\m%%%SA@y_)R%SC,[))R%SCp2vMR%SEWP?.%%SGt{qR%S[bP.u~~S]}I9;R%Sa5yo;R%SgZq^2R% !Skk6ZVR%SogQ>7%%SsZ6.%%%SwJ\m%%%S{-xSm%%S}at;)R%T-]5&l~~T-jG?.%%T-vqzR%% #% [ 59] ho_l2.amp !Q%%%%%%%Q0\,o*InQ:}(/XN~QDu3ea`IQN2p+33UQTc&EwXiQZE&`5e}Q^'&2E([Q^MMh-D>Q\9hFz^{ !QV/ijD?FQPEez2u_Q`\mtAF0R0?AV2Q6R4Zv`0d%R6T@`d-RR6?-'`w}R4S4ytL*R2U`>u7fR0UcVR>`pU;IvRBoQ\NU{RFlu2oPWRJF'G={zRLWjC0HNRNIze^o; !RP)Rm:zZRPTfpf}xRP}tK2hbRR@l>3eiRROc^:6VRRJmNwXiRR/SP1XXRPXBHh>3RNr9BTjPRN)Z*1=( !RHq[DH(5YRBa&%m['RFk.&}TuRJceZg8?RT+U(MQH !RT|~_4\6RTp7eYDnRRvaY\u~RPRHi[GORN5vI\,7RJDd.W`4RH(Hl%a{RD^rlKH5R@zoVX'G #% [ 59] ho_l2.phase !Rr.UZ~~~RFCVzR%%Qs_)Q~~~RQj@%%%%Ru%MQ~~~S/W8HVR%S1x`DzR%S5,G7%%%S5z~2)R%S7IIqzR% !S7*VEqR%S3%1VzR%Rgzf;Q~~R5TOhQ~~R6?nm%%%RJ=dMQ~~RP]';R%%RL}[MR%%RBfWqR%%R2GcVR%% !Rqfp2Q~~S3Kr4hR%S7lf?VR%S;Iw\m%%S=g+7v%%S?zJdu~~SC-F@%%%SE:6zzR%SGHX/l~~SIZ8Td%% !SKn&0;R%SO(-:2R%SQ90|@%%SSEw}6~~SUK}wm%%SWLNqR%%SYFdMR%%S[<%EH~~S],7%%%%S]q;f;R% !SaP>ujhRScc'E8m%SeKF{U2RSe[DOuNISeBXUNqRSe34dqzRSeJ%H^[%Se{zIv%%Sga?6-~~Sm680;R% !Sq&HzzR%SsyrQ-~~Swm))Q~~S{]wq)R%T-VXt_R%T-f.go;RT-v(Au.%T/+`xG_RT/:m*a@% #% [ 59] ho_l2.caps !SNy1c-~~SNwtcVR%SNt3DzR%SNm{a@%%SNeJXhR%SNZT+@%%SNMPG7%%SN>C2Q~~SN-3a?~~SLt7mu~~ !SL_OX@%%SLI/Tc~~SL1<];R%SJqzR%%%SJWw^&DR%S>O\hzR%S<~_Iu~~SSDR%S2UzZ-~~S0u*iH~~S0;.iqR% !Rp,mahR%RT('|?~~R:1Yk_R%QQ>+`H~~RA`\(2R%R[AlZVR%RsvN@v%%S/6;EqR%S1@79;R%S7>OdMR% !S;9i7QPZ@3--[QXCHF@%%Q^2*J1*RPn=LA,7RPgya4r]RPLUkJAaRNuQ{lb;RN6CgxPWRLI)U*6k !RH;bjvKtRD6t)>LOR@/^p~{iR<):tL*RB?/1E{*RFF;e|hVRJ;rI%%SOR8(2R%SQc-6.%%SSoOhQ~~SUt|`I%%SWti];R%SYn6B;R%S[bi];R%S]R@z)R%S_C2Q~~SN-3a?~~SLt7mu~~ !SL_OX@%%SLI/Tc~~SL1<];R%SJqzR%%%SJWw^&DR%S>O\hzR%S<~_Iu~~SSDR%S2UzZ-~~S0u*iH~~S0;.iqR% !Rp,mahR%RT('|?~~R:1Yk_R%QQ>+`H~~RA`\(2R%R[AlZVR%RsvN@v%%S/6;EqR%S1@79;R%S7>OdMR% !S;9i^ll;EqRBzdV)-VRH33FX@%RL9>=;*ARP2zOa)B !RT(9\*Y7RX:5gdpgR`n]oLDBS0:wmRx=.e'&MRbmf`&ccR\|P@pg2RZRE.o[-RXGd)cnmRVGV3XS( !RPPF**s0RVTOV=hRRZWU6YJMR\ZDHojPR\smk6t+R\ww@Y3iR\tL[4@nR\h]Xa0\R\_l,G7%R\dgjcLG !R^(T_R(_R^[Tbc]lR`=},|QoR`r}/=usRb1Z88=8Rb&tD|3MR`TX;zR%R^e^qLBdR\c>`g4TRZYWMIy_ !RTc4RP7=*bWfRVu66Jl[ !RXGCklz2RVp?%vEmRT_|P.p4RR&1oeqzRNSDS;SvRJVZHnl=RH%)&YWIRD-WgB@>R>uq]Bb~ #% [ 59] ho_m1.phase !RMdj;zR%Ryisxc~~S1HJlZVRS5JyDf;RS9EA~JDRS=7XDrI%S?{\[57%SC]ct*qRSG8A&Td%SIfaF+hR !SM7Vi;9dSOe=?wdvSSGFOH.%SU2qyn(2SOrv>.v%SS%.+P7%SU-hxOhRSW%6?JDRSWk7IMR%SYO(Z6.% !S],e`([%S_-X/m%%Sa4>G7%%Sc-@]c~~Scueu.%%SeeZF?~~SgY+;zR%SiUcvv%%Sk]@EI%%Smp)5_R% !Sq0PWH~~SsMpFhR%SuiF3qR%Sy&qMzR%S{8Y2zR%S}E)%MR%T-UwOL2RT-_.tk_RT-ghEqR%T-okT|@% !T/&sE8Bt7%%R:Sj3qR%R6[S}6~~R2PmahR% !Qxg84?~~QFi@--~~Q7}?-~~~QqMLg2R%R1rdUZ~~R9*&4?~~R?Kf';R%RE~mY_R%RMjt_Q~~RUl*iI%% !Rs@ZNI%%S-}rU2R%S/Hap[%%S/f>C2R%S13bwl~~S1ctO?~~S3A,[MR%S3}shQ~~S5e,6~~~S7O[UZ~~ !S9qAl~~S[bHnm%%S]}Ay2R%Sa5v57%%SgZxx;R% !Skk6ZVR%SogTx;R%SsZ=H-~~SwJ`M)R%S{-|3qR%S}awu.%%T-]5&l~~T-jG?.%%T-vqzR%% #% [ 59] ho_m2.amp !Q%%%%%%%Q6Z.ZRj`QF|@PZP'QV{v+M>WQfOJaar9QtR_D49xR.[ay='dR0:mDwl)zRD;@2XmE !RDt38qF`RFH-,Yl*RFrOA\m%RH:1P21[RHR7|U@=RHU?Q[bWRHE]@hUI5R<.i]OEtR8vecwN0>D;RBslU.'ZRFcw0R[pRP36/u2G !RR<~-DutRRFf2%\,RPhC>B,^RNZU}0x}RLP)DqRMRHoiY~^>_R%S5w93I%%S3[\,6~~Rk}G6~~~RpZjhR%%S0KOD)R%S0l^Z~~~S0gJHVR%S0PFH-~~S00N0c~~ !RvAHVR%%S5Bunl~~S;O.57%%S=gL&DR%S?nKl-~~SAqU_)R%SCodmv%%SEony2R%SGr|L2R%SI{VEqR% !SM.8L[%%SO<`uVR%SQH|3qR%SSQCs@%%SUR~RMR%SWO@%%%%SYEf|@%%S[7l>6~~S]%H^[%%S]hCo;R% !SaCwDQ~~ScSRZNI%Se7W-rqRSeBS_t&mSe&Akk_RScoTy*I%Se+U~:2RSe]Bl-~~SgC/`qR%SksJTd%% !SodB|?~~Ss_k.u~~SwU'WqR%S{H80;R%T-T\O'd%T-dG.-.%T-tZW@v%T/*OieDRT/9nqrI% #% [ 59] ho_m2.caps !SN|R9;R%SN{;9c~~SNwP;)R%SNq:wDR%SNh\Tc~~SN]bG6~~SNPShzR%SNA?:2R%SN0(NqR%SLv{a?~~ !SLb21Z~~SLKdmv%%SL3f|@%%SJtCVzR%SJY[qzR%SJ=Us?~~SHz8u-~~SH[[=?~~SH;_EqR%SFtATc~~ !SD[12R%%SBdY;)R%SBB{uVR%SB)cJDR%S@exCZ~~S@C}oc~~S>xfKd%%S>P]t6~~S>%Y;)R%SSDR%% !S;9lvv%%S?&N];R%SA_2nDR%SE=^k7%%SGlyBd%%SK6IU[%%SMYaT;R%SOv}cVR%SS19G_R% #% [ 59] ho_m3.amp !Q%%%%%%%Q6|@@/c>QHf?@6C*QZ-.i{dVQh{6cA>'QxDh|,2{R.oQxJbtR0Qz1@i)R25%0l*ER2wj@|P7 !R4uP.MvNR8^9)O;2RBP*~mGKRjqY+xN1RX3NJj_ZRBV7y%NAR:wNrl=mR6slasSMR4B[->I9R0|ec24L !QRz4Rh=DQ.tL3S0H&R.e8q?g.R4,9vD5_R88*2=KDR<0{ZE;:R>aT}I1{R@q*+\5xRB`HX~~UnRB@-{z&wRF,@9jn-RNS2B)Zw !RP_3I/DaRPlUkwt?RP;hN7_0RN5Bjz?}RL0'M?s1RHVYj+drRFKHpNz}RD1bBu4PR@Rm)F+w #% [ 59] ho_m3.phase !Rp6B;Q~~RDLVzQ~~R-nhzQ~~RSVj@%%%Rud9;R%%S/\iiI%%S1~4+hR%S53l:2R%S7.pg2R%S7jN4hR% !S9)EqR%%S7gruVR%S5N30c~~R{A0;R%%RfAdu~~~S0+Zfd%%S0X9Sm%%S0\A`qR%S0N97MR%S08DvMR% !S.syRv%%S:['e8DRSD)|P[MRSBJ[T5KbF'?VRSG7% !S4[Pk;)RS2Moj+hRS0B?'/DRRzJy2Q~~RfDzR%%%RRtoc~~~RB-)zQ~~R0hZ.%%%QO&DQ~~~R7MR%%%% !RW?RMR%%Ro%H^Z~~R{p9G_R%R}pT=xd%RwBAXhR%Rs/zEqR%RwHLC.MRS-c'E8m%S/I9J,7%S3ws6b_R !S7gy-:2RS;d;:.MRS?XD4L2RSCKC:6VRSGCB-B;RSK+t|?ZWSMtPzeL[SQ`fA}7%SUECI~.% #% [ 59] ho_m3.caps !SN|R9;R%SN{;9c~~SNwP;)R%SNq:wDR%SNh\Tc~~SN]bG6~~SNPShzR%SNA?:2R%SN0(NqR%SLv{a?~~ !SLb21Z~~SLKdmv%%SL3f|@%%SJtCVzR%SJY[qzR%SJ=Us?~~SHz8u-~~SH[[=?~~SH;_EqR%SFtATc~~ !SD[12R%%SBdY;)R%SBB{uVR%SB)cJDR%S@exCZ~~S@C}oc~~S>xfKd%%S>P]t6~~S>%Y;)R%SSDR%% !S;9lvv%%S?&N];R%SA_2nDR%SE=^k7%%SGlyBd%%SK6IU[%%SMYaT;R%SOv}cVR%SS19G_R% #% [ 59] ho_m4.amp !Q%%%%%%%QLvF/BKGQv6tJWU3R2.7%G]PR62N:8esR8F/%c'bR8?dV_kB:dW9 !R-a6R6@YrKuR>}LLL}pRD2\ipc.RN4}DZw^ !RPU9eVo%RPxUpV>fRPKy4:g2RNFeG`&`RLD2@8(tRHf,Z^[%RFVnW5<+RDQ)7D%\RB;Pg=p[ #% [ 59] ho_m4.phase !S0w-%u~~RpP_R%%%RHjhQ~~~Q6%%%%%R98DR%%%QAqQ~~~~S8['Kc~~SBavahR%SBSTc~~~S@E3U2R% !S7%%T0P_vMR%T0U2R%%%T0Y,*qR%T0\>&m%%T0^l%v%%T0`XH.%%T0adMQ~~T0b9p2R%T0b2V)R% !T0]}.v%%T0YWmMR%T0YWmMR%T0Y:_)R%T0Wz%MR%T0V7=@%%T0T8`qR%T0R/0;R%T0P,shR%T0N.=?~~ !T0L6zzR%T0JJXhR%T0Hap[%%T0FqnDR%T0DoWqR%T0B[-.%%T0@)MzR%T0=4`I%%T09|dMR%T06Q:2R% !T0,|`H~~T.}4X@%%T.t*M)R%T.l(g2R%T.dd~-~~T.]NU2R%T.Uq=hR%S~VG*qR%S|c]l.%%SxVTKc~~ !Sv4i@u~~Sro1FhR%Sp_OX@%%SnP%~-~~SlBnTc~~SjB*,_R%Sh@mv%%%SfAa;zR%SdKmADR% #% [ 59] ho_m5.amp !Q%%%%%%%QLy%'TMBQvCX'9l5R22O48@MR6=zDu5kR8C6magjQn2>:rF4R@:3{5SiRD37M86JRNp%tJ~4 !RV4yM-h%R^gE(D.qRzYNzjZ\S`5Rm`1 !RWW'~B #% [ 59] ho_m5.phase !S0H+3qR%Rd~VR%%%RSDR%%S4(&DR%%S2j/l~~~S:iiI%%%S:?:2R%%S8@z)R%%S6G.v%%%S4UFhQ~~S2kg[%%% !S0.=@%%%Rx@v%%%%R^8DR%%%RHRMQ~~~R6ZVQ~~~Q-zQ~~~~R9XhR%%%ROFhQ~~~ReY6~~~~R{wm%%%% !S/W}_R%%S1kC2Q~~S5)1Z~~~S7B3I%%%S9W0d%%%S;a|hQ~~S=_MzQ~~S?O3qR%%SA0d%%%%SA`Q.%%% !SCR]c~~~SCuNI%%%SCw,7%%%SC@IMQ~~S?tK;R%%S=ZZVR%%S=)5_Q~~S;~(g2R%S=6O7u~~S?IgJl~~ !SAD]C[%%SCTMf;R%SEa>G6~~SGnedv%%SK-;j?~~SM:3eDR%SOM9c~~~SQaKh)R%SSvPC2R% #% [ 59] ho_m5.caps !T0&`(Z~~T0'.12R%T0(LJl~~T0*`uVR%T0-kWH~~T01]p2R%T067el~~T0;@~.%%T0@cjhR%T0F7QVR% !T0KZ>7%%T0P_vMR%T0U2R%%%T0Y,*qR%T0\>&m%%T0^l%v%%T0`XH.%%T0adMQ~~T0b9p2R%T0b2V)R% !T0]}.v%%T0YWmMR%T0YWmMR%T0Y:_)R%T0Wz%MR%T0V7=@%%T0T8`qR%T0R/0;R%T0P,shR%T0N.=?~~ !T0L6zzR%T0JJXhR%T0Hap[%%T0FqnDR%T0DoWqR%T0B[-.%%T0@)MzR%T0=4`I%%T09|dMR%T06Q:2R% !T0,|`H~~T.}4X@%%T.t*M)R%T.l(g2R%T.dd~-~~T.]NU2R%T.Uq=hR%S~VG*qR%S|c]l.%%SxVTKc~~ !Sv4i@u~~Sro1FhR%Sp_OX@%%SnP%~-~~SlBnTc~~SjB*,_R%Sh@mv%%%SfAa;zR%SdKmADR% ifeffit-1.2.11d/src/fefftab/60.dat0000755000175000017500000003577010771740460015500 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] nd.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] nd_k.amp !Q%%%%%%%Q~,'.6;jR6Ym@Eu.R>AvCUBdRDL0PR26RRuSQVShZK3IR2qiI~@9R<010ziQRD/PK,wmRJfNejIf !RZiGtHnmR`Sx[S%fRrTvYBC[R|g{b]6:S.f>A0.GS.xiuxiaS0)Vs1|:7(;S0<\J9j,S04:R{KmS.~yQ>7%S.hD=GBhR~CQFRzrRvhD^S@MRn}GLY*)Rh@v[RTtc,8\mRZk)4a?6R`'H\}7%Rb76{C[B3R`nBN(|U !R\l-pjzIRXcsB>_YRT>77qaeRNy`4HK3RL3z;9=FRFrz~^tSRDN`._xPR@Z4FW^9R<L4xc~~S<`DzR%%S:st_Q~~S:-0p2R%S8@`U2R%S6Tt6~~~S4jA8DR%S4'F'c~~ !S0=Ft_R%Rniu2)R%RR+>G6~~R4q(>_R%R1S^o;R%RO-b;)R%RkQS`qR%S-w@))R%S141&DR%S7U'|?~~ !S;iGk_R%S?lm~-~~SC]PWH~~SGM'+?~~SK4-jhR%SMfOD)R%SQ=KC[%%SSimMQ~~SW1;Iu~~ #% [ 59] nd.rep !S8R(:[%%S8Rtk_R%S8ULJm%%S8Y_Q~~~S8_T';R%S8g)~VR%S8p7iqR%S8z}C2R%S:-C*H~~S:;5_R%% !S:JXhQ~~S:[K+?~~S:mj;zR%S<'QF@%%S<<^*I%%S*EDzR%S>E)Iv%%S>a/HVR% !S@d'';R%SBTv]d%%SD@u6.%%SDv++hR%SFSH2)R%SH3ot7%%SHpR--~~SJU=p[%%SL;w7%%T2jqIu~~T4925_R%T4aP[MR%T6/ra?~~T6X7-.%%T8&\l~~~T8N~rqR% #% [ 59] nd.lambda !S4:WiI%%S4;4L2R%S4=/HVR%S4@ADQ~~S4Df_zR%S4JA`qR%S4Q(g2R%S4XnXhR%S4aWuVR%S4k7IMR% !S4ucNH~~S6&sP6~~S62`4hR%S6>|;zR%S6Kj+hR%S6Xxc~~~S6fN0d%%S6t=+hR%S8(I56~~S86v-.%% !S8f,SDR%S:4G?.%%S8?q^2R%S8.L>_R%S8,,shR%S84@mu~~S8CJHVR%S8WNa@%%S8oAXhR%S:07qzR% !S:M\0;R%S:m3Y6~~S<4QJDR%SG::Z~~S>mox;R%S@;I--~~S@crM)R%SB3-)zR% !SDC:Z~~~SFW/P_R%SHn+H.%%SL-\XhR%SNIDZ.%%SPg.qzR%ST,TWqR%SVMTKc~~SXorY7%%Sb)~VR%% !SfxG_R%%Slp)~VR%Srj[12R%Sxgcvv%%S~g*mMR%T.jh-VR%T0,(o;R%T0GUk7%%T0c3a@%% #% [ 59] nd_l1.amp !Q%%%%%%%QZwRrmj`R0A`tQ%-R4oTzmriR:3NNQ>>D*2BRB54DOIfRDq30Cx3RHAQyRP2,(br1RRB);-'/RT6~n,qBRTH5Rr'lRRpAbRz)RR'n0O5ORPLv8fp{RP>M\Ym=RPT3-,1C !RTN)'Wj8RVZC+^UCRf^wPx_VRpKtzRPhRvcicfd%RzRVTf@jR|I2c%v%R|rOAz':R\YGLA.iR^g)B)TDR`3,a+*UR^XLUQ[f !RZbe-BL^RVk+C&wURRUhQ2M{RN?g_y.\RJ^VE0(9RFL2bqv?RD-2:yH8R@.QVR%T/BlBjt_T/H=_*eET/P)9c~~T/ZAQCNqT/f9q_EqT/rcu>7%T1%/n8DRT1I~zV)R !T1blJhzRT1{;=D)RT37u6-~~T3NAl6.%T3d-dahRT3xgxWqRT533FX@%T5GZ=lVRT5[=h-VR #% [ 59] nd_l1.caps !SZ%;b7%%SX}wHVR%SXyruVR%SXs5O?~~SXiviqR%SX^0+@%%SXO}{qR%SX?YgZ~~SX-+|hR%SVrU{H~~ !SV\5wl~~SVD-2)R%SV*FX?~~STi30c~~STLT/DR%ST.S4?~~SRi3yZ~~SRHT+@%%SR&UwDR%SP]25_R% !SNC6VR%%SL:)Z.%%SJFg>_R%SH}`eDR%SH\XhR%%SH4Sq)R%SF_<0c~~SF*3U2R%SDJ>oc~~SBfPWI%% !SB%bWI%%S@Qiy[%%Sw+bC{QN_F%K2ZQZ)_vV;BQb-omH^[Qf=fG%57QdrEt6'TQ\|LiAsPQLs[Hj:_*Qjf3B\w0R4_DmN@vR>ykkPwmRHHmuuttRL;lL-:2RJ~iNmcFRHnl|FmERFJiw5'\RD-PZJ5x !R>YR5,lNR>4qeN*9RH2H-B0XRN;u`A5SRRfO[T1kRVS;gL`aRX]4l:loRZGL8p,'RZo},X)BR\0Ilb_R !R\G[].)rR\U:KV+0R\N%'faXR\*X(hj@RZ=jx6+XRX00Xf9tRT`N0^TxRP~a(1EzRN8zKhycRJNRAK*Q !RBwN+A8ER@P%^AIER@}Kj~Q:RDgQtSx]RJABHz'iRP2%a<'lRTU\@X;hRX1eepQ7RZ'.2:wDRZJ@Kfu] !RX*'gppHRTZXX9+dRPbVSHGxRL_jpLk[RJ4@|oEoRF,~DCL(-<,cS #% [ 59] nd_l2.phase !R^(VzQ~~R2/m%%%%RA`uVQ~~RiAy2Q~~S/?+|hR%S3)@~-~~S5eu-~~~S9DU_)R%S=)Rmu~~SABt[MR% !SM.vIMR%SW1;Iu~~SYPV5_R%SYkP.u~~SYa.~-~~SY^:6VR%SYz]CZ~~S[[s|hR%S]T\dv%%S_^Tx;R% !Sg^;nDR%SmF7v%%%Sql~6.%%Suu/8DR%SygM9d%%S}Ja`H~~T-ZlcNI%T-gl%v%%T-t7X'd%T/&.ox;R !T/1MKx;RT/<.Kt7%T/E~Uc.%T/O.`y[%T/WWgk7%T/_@`y[%T/fM:sdNT/lu6vv%T/rQ-|3qRT3Q:ZZVRT3cr757%T3v6?JDRT5-Zw@MRT5>9V^2RT5Nbt2zRT5_DKx;R #% [ 59] nd_l2.caps !SJ7Goc~~SJ6-6.%%SJ23];R%SJ+^k6~~SH|_Z.%%SHq2Iv%%SHcG.u~~SHS@))R%SHA3,_R%SH,}shR% !SFpwDQ~~SFY.-.%%SF?]G_R%SD~\4@%%SDb.--~~SDD;f;R%SD%'Kd%%SB^V1[%%SB\gg2R%S_R%S?%MR%%% !SA{];R%%SEo&(2R%SIMNDzR%SM)/4@%%SO[/y2R%SQ}k;)R%SUCxWqR%SWbFlVR%SYuPK;R% #% [ 59] nd_l3.amp !Q%%%%%%%Q4L@oQ;FQBW(BRREQP'NV|T;QZSlz]C[Qb^b:sNYQfu@CN([QfY'dR6oQ^r,D-*iQP'p)hb7 !QBEY~ByOQhh{yUugR4N:jcLGR>aoz|L{RH,qQEj\RJyPx^,pRJclady;RHTz,OUsRF0w'=j0RBl>~2U; !R>44|4gcRrwJ4RH|z]vYod%T/)9QjhR !T/4_GshRT/?@God%T/I:1c.%T/RDWI%T/uF*QRMT/yx~q^3 !T1&C[In@T1'/(L&DT1'3MF`IT1)G&/(2T1.2_EqRT15C=L2RT1>>,shRT1H;qZ.%T1RbLNqRT1q_j@%% !T3+r];R%T3@XA8DRT3S]_V)RT3f7\,7%T3xd>SDRT50'\@MRT5@`;^2RT5Q>3DzRT5arK';R #% [ 59] nd_l3.caps !SJ7Goc~~SJ6-6.%%SJ23];R%SJ+^k6~~SH|_Z.%%SHq2Iv%%SHcG.u~~SHS@))R%SHA3,_R%SH,}shR% !SFpwDQ~~SFY.-.%%SF?]G_R%SD~\4@%%SDb.--~~SDD;f;R%SD%'Kd%%SB^V1[%%SB\gg2R%S_R%S?%MR%%% !SA{];R%%SEo&(2R%SIMNDzR%SM)/4@%%SO[/y2R%SQ}k;)R%SUCxWqR%SWbFlVR%SYuPK;R% #% [ 59] nd_m1.amp !Q%%%%%%%QPr/%-@9Q|E{_+T;R2JjP-ttR6IUEavbR:=Oo_CoR>%[{M;fR@]|l.IMRD6=&GUGRFo/wny{ !RJv_Al~~RRH_V%0DR`~Y9TMBS.SpV7}-R|{dOs{URf4ksM3]RZM8N-rrRTpp`D1[RR__R|P7RR6Y4Guk !RRl.}-|4RTNPqpN)Rb~QUx:cRlK=[U[%RrU8>5&IRv6Y,5k`Rv~+M+[VRxCX^7LcRxPu8tjqRxgfuv-. !Rx|;.r{]Rz)L1DPGRxchjBwMRvkdE5AURt7s]BdnRp54dw)jRjlUTCHkRf?{%r:&R`mvfNk'R\PL2kSE !RR{o,HJERN[u}bv5RN('/-v-RNtEl0WgRRm`vyT/RX2nsYhQR\-i1/fBR^:&Z[]-R^`zOPh)4/RN+E5eRWRJN.MA01RF>Uhoj,RB{M}?s7%%SGvcjhR%SK\{Y7%%SO?R))R% !SQz)vMR%SUUvz)R%SWog_)R%SWe0_zR%SU-)1Z~~SU(O;zR%SUiZJDR%SWZZzzR%SYH(g2R%S[0oC[%% !S_5K;Q~~SaFS&y2R%SshR%S8FU*I%%S6ZVQ~~~S4od%%%%S4,Rz)R% !S0AY{qR%Rp,WmMR%RR8_9d%%R4sGcVR%R1U.))R%RO-:2R%%RkM@Y_R%S-v\,7%%S13TCZ~~S7U:6VR% !S;iD1Z~~S?lc)zR%SC][QVR%SGM.EH~~SK4-jhR%SMfZ>6~~SQ=R]c~~SSimMQ~~SW1?)zR% #% [ 59] nd_m2.amp !Q%%%%%%%Q8>fD?cNQJ;Ug+7vQZWWF.&]Qhur'b}tQtlnl~~~Q|n?v.x'R.UnF\~oQ||p0U8YQtKsI<|q !Qnc1G|ywR0qbFxY+R@et\~%vRbn^',.vRn5itY&mR\NPyJm%RPRIQ5BhRHav_Wa@RBu&zYukR>bT_Kp{ !R68*EFIfR2o60:7ER8l5X4}WRgP+RN%R8^o]tRBazVlX0 !RR2@wRF*CO2z8RJm}',mZRP2RUV]DRRhg-j/^RTdc>iZCRVa01SL/ !RTdY|4/6RRV7%\}qRNw@,mH:RL.LMOD]RHjHi&0`RDnV4IJORB`ZlppDR@EBA}Q;R_Q~~R`DIu~~~RLop2R%%R6crqR%% !RereDR%%S1bv~.%%S7nGg[%%S=9w(2R%SAD_RScU:{mMRSe-G.v%%SevbWH~~SgvZNI%%Sk&VAm%%Sm4{0d%%Ss`sT;R% !Swz4'd%%S}K_zR%S@uHfd%% !S>^:Z~~~S<[4H-~~S:m,?-~~S:I34hR%S:'z=hR%S8^.MR%%S883,_R%S6jsL2R%S6BJ,7%%S4rXlVR% !S4G(Jl~~S2sSLZ~~S2CPO@%%S0jg>_R%S05::[%%S.W97MR%Rt0W(Z~~RfRW8m%%RXkqf;R%RL)Pk_R% !QXg:6VR%R=f`iI%%RYSUwDR%Rs/dQVR%S/0N0c~~S1E97MR%S3\-nl~~S5q2Iu~~S9%H^Z~~S?%Tl.%% !SA{`uVR%SEo&(2R%SIMNDzR%SM)2nDR%SO[/y2R%SQ}nu.%%SUCxWqR%SWbFlVR%SYuT+@%% #% [ 59] nd_m3.amp !Q%%%%%%%Q8PctH%vQJ_TN\L[Q\3^[oE9QjdDV^1(k !R4gbFAUSR29|MJ93R6}-7DG~,x(sR@ypWP}+RD6h_OBLRF;L8DCKRH,t-wl6RHov&mX( !RJVEU_coRL61*g}KRL]f&%{aRLhtS~nmRLS5>R)rRJtEXc+XRHwUA<:KRFfEn3_bRDKcJst`RB,Z&\2b !R[rRJ=v`^/RRNZJJktjRR56v/8=RT0QodAmRV3Y+&FM !RT?3,aylRR5sw,7%RN]<>-I1RJu-`.MCRHZ]Qc>%RDbm=q7bRBXuaA;^R@?C-Y*FRcVR%S91RQVR%S=\Fxc~~SAjU*H~~SEa/l~~~SIC84@%%SKnvADR%SO7xKd%%SQSgg2R% !SSi/P_R%SUv'Kd%%SWyruVR%SYu+|hR%S[h{@u~~S]V(>_R%S_='k?.%S_w`>O@%SaP0AXhRSay7+t_R !ScU>XXdMScV,JL[%ScV,)^2RScn^G2zRSeF3qR%%Sg44`I%%Si2s7v%%Sk2s7v%T/O,P.v%T/`(=p[%T/pycvv% #% [ 59] nd_m3.caps !SJ9unl~~SJ8[56~~SJ4]|?~~SJ./0;R%SJ%(_)R%SHsQnm%%SHe_9c~~SHUTSm%%SHC@=?~~SH/)j?~~ !SFry[%%%SF[,cVR%SFATc~~~SF&Op[%%SDcx/DR%SDE~NI%%SD&j3qR%SB`7Y_R%SB>K_zR%S@uHfd%% !S>^:Z~~~S<[4H-~~S:m,?-~~S:I34hR%S:'z=hR%S8^.MR%%S883,_R%S6jsL2R%S6BJ,7%%S4rXlVR% !S4G(Jl~~S2sSLZ~~S2CPO@%%S0jg>_R%S05::[%%S.W97MR%Rt0W(Z~~RfRW8m%%RXkqf;R%RL)Pk_R% !QXg:6VR%R=f`iI%%RYSUwDR%Rs/dQVR%S/0N0c~~S1E97MR%S3\-nl~~S5q2Iu~~S9%H^Z~~S?%Tl.%% !SA{`uVR%SEo&(2R%SIMNDzR%SM)2nDR%SO[/y2R%SQ}nu.%%SUCxWqR%SWbFlVR%SYuT+@%% #% [ 59] nd_m4.amp !Q%%%%%%%QHs{w'+5Qp:x4Z[(R0tbE0{CR65~:PH&R:Szp.GKO5RD1-}(s]RHRG4[B>RN;](lSo !RVBalX\=RfTq@>u\S0-XtBDR@Rq~fUK !R>sPb3/,R>S13%6oR>Rs,WI%R>hsjxd%R@*_14fPR@4cpo;RR>{k&E^*R>Grr7*=RpLNz|yRF'zOz0@RJgcLt:XRNf|q]+VRR,I(NobRThaFwe+ !RT+CPKc:RR0t?0V^RN_e08OfRJuC9IYFRHZfA^OURDb5>CpORBL;l[(;R@A0yT-uR>?dfiue #% [ 59] nd_m4.phase !RmqzR%%%S/CBc~~~S1(.MQ~~S1Ea?~~~S1t;)R%%S3k_R%%%S7(:[%%%S9U.MR%%S=;%MR%%SA2Am%%% !SE;)Q~~~SIKt7%%%SM47v%%%SM/DR%%%SI?B;Q~~SI,?.%%%SIlb_R%%SKgBd%%%SMcZVR%%SO\8DR%% !SU&,7%%%SW3iH~~~SYZVR%%%S]%el~~~S_0|?~~~Sa-^Z~~~Sc)-VR%%Se&XhR%%Sg+hQ~~~Si::[%%% !SkWeDR%%So&Tc~~~SqRY_R%%SsvUZ~~~Sw1Rv%%%Sy5*qQ~~S{'[v%%%S{diqR%%S}7ADR%%S}T+@%%% !S}E,_Q~~SyN}_R%%SuS\l~~~Sso\@MR%SsoQF@%%Su0YshR%SuXieDR%Sw0?VR%%SwixG_R%S{u7em%% !T-T]WM)RT-b7%%%%T-o1X|hRT-{w7z)RT/.mk*qRT/;>LNqRT/G3tC2RT/R`Bx;RT/^qO|hR #% [ 59] nd_m4.caps !T08b*qR%T09%9;R%T09uJDR%T0;H>6~~T0=Ft_R%T0?mY_R%T0BSm%%%T0ESTc~~T0HVvMR%T0KZ>7%% !T0NO+hR%T0Q.%%%%T0SIiqR%T0UA,7%%T0Vmz)R%T0WreDR%T0XOH-~~T0XZB;R%T0X@mv%%T0W\q)R% !T0S({H~~T0Ltwm%%T0HVvMR%T0GJq)R%T0EiI%%%T0CM^2R%T0@rDzR%T0>21Z~~T0;H>6~~T08iDzR% !T06;EqR%T03uzzR%T01]p2R%T0/EeDR%T0-)zR%%T0*Y[MR%T0'w(2R%T.~~ZVR%T.{l^[%%T.xA4?~~ !T.nZF?~~T.d9;Q~~T.ZP}=QhU7^D4bR0af(m\;RD*.AB4)RHOApttTRN:cZDe/ !RVB{:zj1RfV5WjU*S0; !RdDsrcM6RVeijW|qRV[ioDMVRRJ:'mE%RN2q,D|TRH}>X4}WRF:R5PSDRD+.g*f3RB,17.m-R@@:/s+h !R>`9~{pcR>?iGtHoR>@.>L*IR>WMv64PR>tq6;,CR@&\p_)RR>o34g(kR>R1R2~]BtI{R8eE8F(2R>xn,~t2RF2>k9Z>RJtk|:D3RNwb6iX+RR?}O13pRTz0nEH6 !RT>5>hvg #% [ 59] nd_m5.phase !S9:k6~~~S;sH-~~~S=3@u~~~S;1FhQ~~S7tk_R%%S7S4@%%%S9*4hQ~~S;5&m%%%S=at_Q~~SANk_R%%S{1g2Q~~S{nP_Q~~S}@]d%%%S}\XhR%% !S}Iz)Q~~SyOH.%%%SuTp2Q~~Sss`mMR%SsuX/m%%Su7++hR%Su^pNqR%Sw6F@%%%Swq8P_R%S{~T+@%% !T-UP.QVRT-cFdMR%T-p9~B;RT-|xC6VRT/0.J`qRT/6~~T0=Ft_R%T0?mY_R%T0BSm%%%T0ESTc~~T0HVvMR%T0KZ>7%% !T0NO+hR%T0Q.%%%%T0SIiqR%T0UA,7%%T0Vmz)R%T0WreDR%T0XOH-~~T0XZB;R%T0X@mv%%T0W\q)R% !T0S({H~~T0Ltwm%%T0HVvMR%T0GJq)R%T0EiI%%%T0CM^2R%T0@rDzR%T0>21Z~~T0;H>6~~T08iDzR% !T06;EqR%T03uzzR%T01]p2R%T0/EeDR%T0-)zR%%T0*Y[MR%T0'w(2R%T.~~ZVR%T.{l^[%%T.xA4?~~ !T.nZF?~~T.d9;Q~~T.Z[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] pa_k.amp !Q%%%%%%%S2SZB4_=S>tfq%tRSJ{=oh-2SV[CyoNoS`d^OcAMSj4t}-izSpzFW1hjSv|32mU[S|9}(P]t !S~fo`iI%T.VM4(1FT.W14Z\vwg`ZS4~9UNg !S8s}bS97S8kFLg[cS81>O|R^S6*R@m?BS2cJ,UHyS05d`)d2RnoaED1[RTKt]D,hRB9_E_=hR@=yE9n0 !RTnAS;s\R\N46h/YR^0eF^N)R`>H-~=HR`:?b%vnRZs4_,v5RTNW8\9|RP5H1=SMRNH*|DrIRL6J(8Bt !RPd'`+l{RRq>@\btRTrbk99PRVLH]C2R%Sk}1Bd%%SqLVV)R%Sub_-VR% !SymiqQ~~S}o3mMR%T-angBd%T-reKl.%T/)P-b_RT/:KT[v%T/Lv&8DRT/c3@QVRT1*|SL[%T1X&6IU[ !T35>==|iT3M=^``T5+?2MzRT55z2Iv%T5oc~~SFAF/l~~SFAIiqR%SFA7UZ~~SF@ZrqR%SF?Cs@%%SF=/HVR%SF9V^2R% !SD|Ywl~~SD^k7%%%SD)/XhR%SBG4|hR%SB3-)zR%SB'.12R%S@h{eDR%S@A9|@%%S>gS@MR%S>+}2zR% !SdEH~~SGYY&l~~SKZQ:2R%SOUg2Q~~SSQ*DzR%SW;\Tc~~SYx(*I%%S][s3qR%Sa588DR% #% [ 59] pa.rep !S@8B+?~~S@8j3qR%S@:5gZ~~S@7%%T8Oxc~~~ #% [ 59] pa.lambda !RV@EmMR%RVA;~VR%RVCq=hR%RVH5?-~~RVN8HVR%RVU~:2R%RV_O3qR%RVj[U[%%RVwM%MR%RX+v=?~~ !RX<&}6~~RXMiQ.%%RXa/m%%%RXv*9Ny[%%S@&vem%%S@nS,6~~SB\E@u~~SDJBOhR%SF8N8m%% #% [ 59] pa_l1.amp !Q%%%%%%%QH==bK}/Qhm6DmriR.u5Wn5/R28&-{P\R4@i7x0%R65c}[ApR6sxUaieR8Ou.8AaR://t?Nm !R:zfnGY'R>1-:f}xR@gB'hC&RDh,|&,7RJ,JdS%fRN\UZq2JRT9sCEU3RXnS*&4@R^DEqR%T/FdBWqRT/NBbG7%T/e>a/m% !T/uV16VRT1/5{M)RT1C8J4@%T1W7Y_R%T1k~6vv%T3%jkC2RT39>88DRT3L,9';RT3_NDzR% #% [ 59] pa_l1.caps !ST<,;)R%ST:}oc~~ST7h9c~~ST2Am%%%ST*h5_R%SR{2Am%%SRoT7MR%SRa~jhR%SRR[ahR%SRAL6VR% !SR.[=@%%SPt66-~~SP^:Z~~~SPFw,6~~SP.7]d%%SNn7U[%%SNR~-~~~SN6ZzzR%SLr~NH~~SLT8C2R%S@9C6VR%S>XQ%v%% !S_R%S][GK;R%Sa4xd%%% #% [ 59] pa_l2.amp !Q%%%%%%%Q0zc'5O]Q>+Yj:_rQJYKMHf@QXkAkg=qQj)Zut22Q|nJ-%v%R0VK]kr1R2x@wSbtR6Qbqg:cGSR@KFi:CSRJ,*a>4}RPviI]0|RV|kGPt3R\[CO*MrR`_dmM4qRd?l=]:cRfAj'uQ_ !RfVfwXGCZ)CoR8G8Pcs`R6,r,58] !R\aRJZ>MkA0RHE%J_H>RFBmc_MVRDi8r}%5RDic/+{1 !RHYhO4b{RJrbswzyRN:~_]pLRN~4>D8%RP'Gh@X6RP=R&43;RNA>u5GqRLc>3}FeRJoEy'uh #% [ 59] pa_l2.phase !R[Ck6~~~S-}N,_R%S39@iqR%S7MY?-~~S;^_rH~~S?j*0d%%SCm(:[%%SGd{t2V)R%S>Z=H.%%S>>uF?~~S<|*0d%%S<]t[MR%S<>C2R%%S:wXD)R%S:UVV)R% !S8B>C2R%S6MGshR%S4L*H~~~S2Mc%u~~S0w4@%%%S0PMb6~~S0&0_zR%S.TV^2R%RvGDEqR%RlQ^Z~~~ !Rb[79;R%RX^,K;R%RNU&DQ~~RD8VAm%%R8^2-VR%QpV>2zR%QU&j3qR%R5o7MQ~~RCN\q)R%RQ7%%S?yn(2R%SC;kwm%%SIiEiI%% !SMppNqR%SQz16VR%SUt,O?~~SY]]Sm%%S]Gnu.%%Sa*(6VR%ScXWQ.%%Sg-F@%%%SiX4;zR% #% [ 59] pa_l3.amp !Q%%%%%%%Q0qlI`-lQA0R4|&1jwQ !R8V@=zAmR<1YJ/L[R>[JW9MBR@m8r}E~RB\GQfd%RB~e\b*qRB|P7?:{RB],IsX@RB(ObfzbR@B<-L84 !R_RT/svs|hRT/}9{,_RT1,).iqRT134~F@%T18AUwDRT1t2V)R%S>Z=H.%%S>>uF?~~S<|*0d%%S<]t[MR%S<>C2R%%S:wXD)R%S:UVV)R% !S8B>C2R%S6MGshR%S4L*H~~~S2Mc%u~~S0w4@%%%S0PMb6~~S0&0_zR%S.TV^2R%RvGDEqR%RlQ^Z~~~ !Rb[79;R%RX^,K;R%RNU&DQ~~RD8VAm%%R8^2-VR%QpV>2zR%QU&j3qR%R5o7MQ~~RCN\q)R%RQ7%%S?yn(2R%SC;kwm%%SIiEiI%% !SMppNqR%SQz16VR%SUt,O?~~SY]]Sm%%S]Gnu.%%Sa*(6VR%ScXWQ.%%Sg-F@%%%SiX4;zR% #% [ 59] pa_m1.amp !Q%%%%%%%QPT*+PT3Q|GB8,EYR2['mG5GR8%+2hE)R<]x7WdVRB]i50(*RJ5A|Kh)RRF@iTC[R\%:NW<) !Rb{j{Li~Rf`l?;j@Rdq9C3=|RXvVzgs@RXWl*pc.RXX7eZjhRXrCvo/E !R\bQhT'tRL*)uuWeRN+jY;<-RNU8*]D}RNH`KcyURNJ]4*,cRLP^jwCURLI@Y|`IRL09`Qu, #% [ 59] pa_m1.phase !Rgn}6~~~S/ZFdMR%S3f@EI%%S7jr];R%S;g6zzR%S?Z.%%%%SCA?^[%%SEruzzR%SI5:_)R%SK5eXhR% !SKr~NI%%SMF'd%%%SMxr4hR%SOb}*qR%SQ\0;R%%SS^1c-~~SUc{iI%%SWiviqR%SYoF'c~~S[rehzR% !Sanf/DR%Se]FL2R%Si8o';R%Sklr([%%SoIiqQ~~Sqr?b_R%Su.+t_R%Sw67el~~Sy0|dMR%Syzb[MR% !S{axc~~~S}E0?VR%S}~eP_R%T-WI|P7%T-\>NuVRT-`8HVR%T-bm@z)RT-cOnXhRT-bw+H.T//qnhzRT/9h`4hRT/BEzIv%T/J8DR%%T/a`L_)R !T/r(P*qRT1+ezEqRT1?r:o;RT1Sf/DR%T1hf)=hRT1|Sf/DRT36,}shRT3I3kK;RT3\YWI%% #% [ 59] pa_m1.caps !STf3I%%%STd}cVR%STaG?.%%ST[God%%STS,[MR%STHVvMR%ST;pFhR%ST--ZVR%SRvF7v%%SRck2zR% !SROMEqR%SR9QjhR%SP|%ahR%SPc.%%%%SPHr([%%SP-ALZ~~SNjWQ.%%SNL]p2R%SN-X/m%%SLgFD)R% !SJYE}_R%SHf}SDR%SFeFT;R%SDflvv%%SD:g2R%%SBsmiqR%SBK@iqR%S@uHfd%%S@?%QVR%S>]slVR% !SQ6SE.GRVQ@sM,]HNQP*CCr|qQdI}^ZDbR.aN/>K;R2up4GQBR:&WQynMR@{gwjjT !RHzX7dRERNO;mMY?RNke\owMRLYZ[bWIRHgl(9zbRDlL8uvvR@r8/m(_R>%iuYJMR::R6;IRR6Wb[mXq !Q|BN4D)RQhptTC+\R.y15D|TR6v5d6nmR>4wkBoDRD14ber=RJ0SZ2}CRNnsKNU2RT1*kms}RVu[)`UW !RXnR98YWRXoWIwFyRVum)XSqRT,y,v~.RNZ9q{l_RH\H+~yCRBFzo?*iR<=,<15hR6iCBC6VR4J;.EI% !R85nSr5WR>5fyzZ.RB-/gLvVRD5m.1A,RDW6dbziRD5@DIIURBF)FVjzR@\K6[r|R@4?:JJ&R@KpA~80 !RD:z3D4SRFP=%PvwRHsBc-hjRJiys%UERJ~(.Xp:RLEJa:WqRJ^PhMV*RJ9T]J1aRHY.6U_N #% [ 59] pa_m2.phase !S@T{,_R%Swl~~R~2MzR%%Rxsxc~~~ !RzBp2R%%R|}*qR%%R~7el~~~RxY[MQ~~Rn<,_Q~~R^ra?~~~RL{4hR%%R8tG6~~~Q=FhR%%%R?Pk_R%% !S1@|P7%%S;ooCZ~~SEVaH.%%SIy>;)R%SM}Z^Z~~SQpk7%%%SUL2R%%%SWkc2)R%SYuXmiqRS[o5V5_R !S]\JFT;RS_Aar];RS_{9IahRSaUS.9;RSc)7H:2RScL;tV5`Sc_2rED{ScU::6VRSaxKN0d%S_hPR12R !S[VX/HVRS[mgJl~~S]cxSm%%S_aBKc~~Sa^|7u~~ScW5WI%%Se@8(2R%Seq}gZ~~SgDnhzR%Sk:'WqR% !SmWs/m%%Sq@^wDR%Su9QjhR%Sy/L6VR%S},`eDR%T-[0YO@%T-l\QNI%T-},5k_RT/3-JhzR #% [ 59] pa_m2.caps !SBk5G7%%SBi|'d%%SBf>C2R%SB`7Y_R%SBWgk7%%SBL|7u~~SB?xSl~~SB0k?.%%S@yTSl~~S@fBl-~~ !S@Q9h)R%S@:G{qR%S>{q-VR%S>abK;R%S>F*U2R%S>(}K;R%Swl~~S4PL*I%%S2RsX@%%S0|L2Q~~S0UL&DR%S0*~)zR%S.Y0Sm%%RvqO3qR%Rlw&y2R% !RbzlB;R%RXx%9;R%RNiO+hR%RDH@9;R%R8i|L2R%QrWB/DR%QS;~zzR%R5iQRMR%RCIW8l~~RQ7{kcMum5QJi||d0DQ\DZ_rf3QvCv_Lg2R0|eruD>R6hLZbX8R>ABwIbW !RD|7m;b7RJC'IxDJRJd5ta[VRH`C*0ysRD~=fKFqRB6&Lps@R>Ex{wgCR:ZQ)-9DR6sMG:3AR48-0.U[ !Q`+c4bKVmnGg[RDeMfs~kRJq}]lV.RP]&{<([RTx])2nERX]+r6;F !RZKyvlxTRZA\f\w0RXRTDz>ATdRNkE@CcwRHi/1ZSca_O3qR>:FyJ2bR>O~;f_{ !RB9V^weaRDI)3WJ]RFehUmqGRH]mYG`WRHtPAW>wRJ;g6i-*RH\g+g>`RH;ln<)?RF`iH1vh #% [ 59] pa_m3.phase !S<<\{}_RS87l>7%%S4U}K;R%S2;oWqR%S0>K_zR%S.U3@v%%Rt62)Q~~Rj,O@%%%RbPO@%%%R`5&l~~~ !RbHF?~~~Rfa@%%%%RhNY6~~~RdGO@%%%RZZ2)Q~~RLhzR%%%R}*qR%SAUpNqR%SIc?%v%%SM^)5_R%SQTR~-~~SU>?vv%%SWk_R%%%S[+3([%%S]0YhnDRS_&o{,_R !S_kOR9;RSaO+V=hRSc-Ta|hRScaIx';RSe5925_RSeY,UQb`Semb[Iq{Seg)9?VRSe5]9t7%Sc)qe(2R !S]cLJHVRS]qnhzR%S_e-JDR%SaaSq)R%Sc^Df;R%SeU+7v%%Sg;K/DR%SgiadMR%Si9=/l~~Sm+bK;R% !SoEh~VR%Ss*imMR%Su}\`qR%SyqXP6~~S}ktWH~~T-aPPSDRT-rnvem%T/(}~>7%T/8y'WqR #% [ 59] pa_m3.caps !SBk5G7%%SBi|'d%%SBf>C2R%SB`7Y_R%SBWgk7%%SBL|7u~~SB?xSl~~SB0k?.%%S@yTSl~~S@fBl-~~ !S@Q9h)R%S@:G{qR%S>{q-VR%S>abK;R%S>F*U2R%S>(}K;R%Swl~~S4PL*I%%S2RsX@%%S0|L2Q~~S0UL&DR%S0*~)zR%S.Y0Sm%%RvqO3qR%Rlw&y2R% !RbzlB;R%RXx%9;R%RNiO+hR%RDH@9;R%R8i|L2R%QrWB/DR%QS;~zzR%R5iQRMR%RCIW8l~~RQ7{a0RDm~g9G_R>`C`?izR8<&MnDRR0jf]x\@QTi~u8fx !QRK,8)IRR0@-;8pFR6%2J?euR8s`v6nmR:i05=HwR:[\Pf*QR8SadSccR4_l)X[1R0=)H+;2QZ7=BBzb !QpHQSW%jR6<67*hZR<,h3CFDR>sC\K@ER@l`xTztR@hOnY(hR>}q\9E]R>4*KG}HR[+Va>~ !RBf]8H*iRFC]bIh^RHy/?1(GRJ~,l>Y=RL9_Y\~&RLbnu=h5RL'}oxJ,RJBt_'_*RH4R2{yj #% [ 59] pa_m4.phase !R6vv%%%%R=wDQ~~~Rg\DQ~~~S/Adv%%%S34X?~~~S5w@MQ~~S9URv%%%S;}wm%%%S?8,6~~~SA/u-~~~ !SAdU[%%%SC/HVQ~~SC[U[%%%SE@em%%%SG80;Q~~SI;b6~~~SKD-VQ~~SMNy[%%%SOYk_R%%SQalVQ~~ !SWcVQ~~~S[KOhQ~~S]n\l~~~Sa9l-~~~ScXP7%%%SeXlVQ~~SgGe7v4 #% [ 59] pa_m4.caps !T.z&{qR% !T0*viqR%T0,M=hR%T0-vQVR%T0/712R%T00?VR%%T01.MR%%T01e0;R%T01~^[%%T01z~VR%T01]p2R% !T0.ZNI%%T0*s/m%%T.~zzQ~~T.xwq)R%T.vj`H~~T.tv~.%%T.r30d%%T.nwTd%%T.kDj?~~T.gYk_R% !T.ccrqR%T._j@%%%T.[tG6~~T.X(.MR%T.T@iqR%S~qalVR%S~N(6VR%S~*m))R%S|aT;R%%S|=[12R% !Sz7ndu~~Sx'YshR%StjDMzR%SrSedu~~SpE=;zR%SnB:c.%%SlG^>_R%SjNBSm%%ShQ;j?~~SbWZnl~~ !S^x8`qR%S\A5wm%%SXcw@MR%SV?6-~~~SRy%12R%SPWA@MR%SNC:6VR%SL2eq)R%SHy}&m%% #% [ 59] pa_m5.amp !Q%%%%%%%Q^hL;[>mR0v)e6m{F07RHvc/d-.RD8:BFp[R>&*P)ZRR6Z !Ql4-XT;RR6&,7RxLR:ot2(qbR>]-6s}WR@Y'fda2R@Xfq^)iR>rTL}fZR>-f4nesRg|MP*) !RBz<,nzyRF_rd{qR% !T0*viqR%T0,M=hR%T0-vQVR%T0/712R%T00?VR%%T01.MR%%T01e0;R%T01~^[%%T01z~VR%T01]p2R% !T0.ZNI%%T0*s/m%%T.~zzQ~~T.xwq)R%T.vj`H~~T.tv~.%%T.r30d%%T.nwTd%%T.kDj?~~T.gYk_R% !T.ccrqR%T._j@%%%T.[tG6~~T.X(.MR%T.T@iqR%S~qalVR%S~N(6VR%S~*m))R%S|aT;R%%S|=[12R% !Sz7ndu~~Sx'YshR%StjDMzR%SrSedu~~SpE=;zR%SnB:c.%%SlG^>_R%SjNBSm%%ShQ;j?~~SbWZnl~~ !S^x8`qR%S\A5wm%%SXcw@MR%SV?6-~~~SRy%12R%SPWA@MR%SNC:6VR%SL2eq)R%SHy}&m%% ifeffit-1.2.11d/src/fefftab/15.dat0000755000175000017500000001706410771740460015474 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] p.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] p_k.amp !Q%%%%%%%QPn]XI+PQ|)v'tT3R2A6\DCKR62>ev^SR8g~FvahR<+yWWvER>*vIq8uR>bF)Z8yR>s0|/{Y !R>Z[NS0;RRrY06JwUS.u~S+~kS0X@&2~=S0r^V9OZS0n8u,vZS0VC3.D9S0;JF%jsS.|1IOZ,S.e5:f6P !R~n)u=KhRzd]KY*rRvf@}GqBRrkdUf`iRnwkG6~~Rj|a*dNARh),D-lFRd/|Ho[vR`9H%e{YR\K27}Mb !RTPbWxG`RNP]H)`2R8_0=7{pR6W%46[ER21_C.9- !R0,dV8])Qvy\';z.Qn,22&+=Qb*aw3)gQZ(wah=ZQT&*iEX^QNbDp'cSQRAKyw@rQ^6u*STd #% [ 59] p_k.phase !S6<<([%%S2*MrH~~Rt_rI%%%RLdv%%%%Q4K;Q~~~RG@9;R%%RiOdMQ~~S/,_Q~~~S1_Rmv%%S52v))R% !S7\/q)R%S;)Hb_R%S=R}?-~~SA.2EqR%SE+`I%%%SK*vEH~~SS=JTd%%SYKu%u~~S]?/8DR%S_WPcVR% !Se*zIu~~SgO@mv%%SikX7v%%Sk~i0c~~So2:.MR%Sq>->6~~SsLruVR%Su]Ju.%%Swka/l~~SyvDZ-~~ !S{}K_zR%T-R:RQVRT-[=dMR%T-d'hrI%T-lTpVzRT-tc@]d%T-|c6RMRT/*G&HVRT/1uTOhRT/93L_)R !T/J@Bx_zT/Y~+|hRT/hF)f;RT/uqwZ?&T1(}sdqzT15_t]OiT1AN2:RvT1LAZ0KdT1Vpu(g3T1t4uNI%T3K&f/DRT3\nC>_RT3h^A,7%T3sPmahRT5(-x/DRT5)JhV)RT5=%.em% #% [ 59] p_k.caps !SP]9OhR%SP[[ahR%SPVh=hR%SPNfWqR%SPCaP6~~SP5`@u~~SN~u>7%%SNkT|?~~SNUk[MR%SN=j/m%% !SL}bg[%%SLad))R%SLCx|@%%SJ~K3H~~SJ]FpZ~~SJ:l%u~~SHpdADR%SHK/hzR%SF}~b_R%SFUC.MR% !SB|.~.%%SB%Lc.%%S@Z~6.%%S@8B+?~~S>lM~VR%S>F~F?~~S_R%S86rM)R% !S8I%IMR%S8\j3qR%S8r'l-~~S:.l>6~~S:G)^2R%S:`fWqR%S:{vEH~~S<>Qfd%%S<\Y{qR%S<|cVR%S@~s`H~~SBZJDQ~~SD7rDzR%SDs+D)R%SFVhb6~~SH<`Q-~~SH~VvMR%SJh6)zR%SLSB+?~~ !SN?lF@%%SP-Hfd%%SPv)rH~~SReWU2R%STUpNqR%SVFmEI%%SX8C>_R%SZ*L:Z~~SZvy_)R%S\iu2)R% !S`wbO@%%Sf-4t_R%Sj={y[%%SnOboc~~Srb4|hR%SvuALZ~~S|.v%%%%T.T~fc~~T.i%EH~~T0K=/l~~ !T0sT;R%%T2AkG7%%T2j/l~~~T48QrqR%T4`sxc~~T6/;~VR%T6WadMR%T8&-JDR%T8NS0;R% #% [ 59] p.lambda !TZ_%MR%%TZb>cVR%TZk=t_R%TZw1s?~~T\'9OhR%T\)\Tc~~TZwRahR%TZVU_)R%TXv57%%%TVzb[MR% !TTf/hzR%TR=dqzR%TNbh%MR%TL),C2R%THKmel~~TDvOT;R%TBRx';R%T@=@IMR%T>6lF@%%TSDR%S^P0/DR%S`;gs@%% !Sb5Qfc~~Sd:z~VR%SfJC>_R%ShbC{H~~Sl()5_R%SnNh~VR%Sp{kK;R%StTf';R%Sx37~.%%SzptSDR% !T.f\@MR%T07K+@%%T0do/DR%T2:\8DR%T2laL2R%T4F{0c~~T4}@em%%T6[iqQ~~T8<3yZ~~TnbO@%%TBGR12R%TF';-VR%THgaP6~~TLT`DzR%TPH,k_R%TTAhV)R%TXAXD)R%T\GK;R%% #% [ 59] p_l1.amp !Q%%%%%%%QR9Qw8KlQ|u9(Vs8R2L?i/[ZR6A&OZfdR8{Dh>t6[R>~tt(g{R@9VnjIf !R>~Iuap[R>>M58raR<-81Q(CR8QgR'=0R4dDFQ-6R2@`8R'LR2K*5p5hR6SEQn2bR6S0x1eHJOS0sF/Y[kS0Zz@}FHS0?nIf0uS0%x/'W>S.hd2@uE !S.STg3-9R|*w0RoTRx(pQpR-Rt-WDp?NRp5]wq)RRl9TuZhfRh<3u9C[RdB3%[^.R`H3>@emR\Ya-O)RJ,G99.zRDhgAodQR@\dmYrNR?L}Qv~OHWq&Qn/~yLvVQb.qQf.KQZ)tF|cjQT(lVt~>QNbd.:XBQRBNn.BfQ^:vDrx' #% [ 59] p_l1.phase !S4y1>_R%S0g;nDR%RnH^[%%%RFK;R%%%QWwm%%%%RMd%%%%%Ro{}_R%%S/M8,6~~S3'_V)R%S5W5{qR% !S9)M1[%%S;T|dMR%S?*OP7%%SAg?NH~~SEkI]d%%SKYpwDR%SS+lzzR%SW|ywDR%S[wd-.%%S_?5cVR% !Sc|IADR%SgKR56~~Sij^FhR%Sm%,?-~~So3j\DR%Sq@iqQ~~SsP9Kc~~SuawP_R%Swq`Y6~~Sy}+`H~~ !S}*w}7%%T-S*Qvv%T-\1CwDRT-d|A\m%T-mOIADRT-udlb_RT-}dbWI%T/+L2Q~~T/2z`Y7%T/:8XhR% !T/KEO(.NT/[)4lz{T/iGH`8mT/vvhO7RT1)~{b.vT16]?<}`T1BG}H%vT1M;NW4iT1WcOFP7T1tvoSm% !T3,Pi8m%T3>`^*I%T3KNn`qRT3]8kk_RT3i%/Td%T3sm|+hRT5(ClJDRT5)`\q)RT5=7B|@% #% [ 59] p_l1.caps !SP\\m%%%SP[%%%%%SPV5;)R%SPN3U2R%SPC.MQ~~SP50x;R%SN~EuVR%SNk)9c~~SNU?rqR%SN=B';R% !SL}:_)R%SLa;zR%%SLCPshR%SJ~&dv%%SJ\|H.%%SJ:CwDR%SHp<8m%%SHJa`I%%SF}Z:2R%SFTx_zR% !SB{h5_R%S@~lF?~~S@Z@9;R%S@7ZNI%%S>kfG_R%S>FD)R%%S !RF'en?^[RFQ6B/p;RFaaBUvVRF[58Tk?RF>z)tw[s4RD=G%fjPRBmTW.KtRBY\l9&MRBgb)<}; !RH9ULmKPRZL/LzD:Rhxqa5siRr}8u5_vRxS*0Fp[Rxh_*2AmRva2Fn}7RtJxFSL[RrDeh{9\RpB_S^}p !RnGAvG5GRlNvf*BTRjQ4-'AYRhNI[[6&RfHZ7%_BRd1?5B&MR`mqly_rR^FgrImvRZveu&dvRXLzh7Vn !RR,@EUi5RLIgFR@+14|@jR(jIqOQf>:0'_{QZl%-B~XQR{=(r4aQNPJ?NddQHb.~@zrQ@>:RV>|QWI%T3-R|t_RT3>7,?.%T3@Cv12RT3K7qzR% #% [ 59] p_l2.caps !SvCg{I%%SvCUg2R%SvBqj@%%SvA^Jm%%Sv?jhR%%Sv=.56~~Sv9QjhR%Sv4i@u~~Sv.iqR%%Sv'A4@%% !StxA}7%%StmaD)R%Sta=|hR%StS&y2R%StBv9;R%St0lvv%%Srvh^2R%Sr`b.u~~SrHR))R%Sr.4lVR% !Sn|f+?~~Sn?(g2R%Sn0]/DR%Sl|BKd%%SlkHnm%%SlY;rH~~SlBBl.%%Sl&O'c~~SjbUFhR%SjDPk_R% !Sj&W0d%%ShbV5_R%ShD0l-~~Sh%2EqR%Sf_O|hR%Sf>{([%%Sdw`qQ~~SdUtwl~~Sd3s/m%%Sbl)V)R% !S`t[MR%%S`+-jhR%S^D4pZ~~S\b^c-~~S\(EU2R%SZH(g2R%SXi];Q~~SX5ryZ~~SVac^[%%ST:fC[%RDmdRv[bRD=%2m8MRBmELDmVRBY`Z)V*RBh&Y&6B !RH;/f:>`RZOR-F*1Rh~F?~~~Rt*\Rf03Rx[e>C{IRxqT5od%Rvi>*=&,RtQS\\{YRrIE]<{9RpEef?'/ !RnHe.:dfRlNnl9&MRjQ,>CpORhMy9EoPRfH0&f2=R8/m7yV@R6+DgSjFR0abc/XK !R.`>mw\mQp+4=x{CQf6O?40rQZqYl2coQT&gk/J`QNG`Qhv?QHN5=E`Q.%T3@k~b_RT3K?2)R% #% [ 59] p_l3.caps !SvCg{I%%SvCUg2R%SvBqj@%%SvA^Jm%%Sv?jhR%%Sv=.56~~Sv9QjhR%Sv4i@u~~Sv.iqR%%Sv'A4@%% !StxA}7%%StmaD)R%Sta=|hR%StS&y2R%StBv9;R%St0lvv%%Srvh^2R%Sr`b.u~~SrHR))R%Sr.4lVR% !Sn|f+?~~Sn?(g2R%Sn0]/DR%Sl|BKd%%SlkHnm%%SlY;rH~~SlBBl.%%Sl&O'c~~SjbUFhR%SjDPk_R% !Sj&W0d%%ShbV5_R%ShD0l-~~Sh%2EqR%Sf_O|hR%Sf>{([%%Sdw`qQ~~SdUtwl~~Sd3s/m%%Sbl)V)R% !S`t[MR%%S`+-jhR%S^D4pZ~~S\b^c-~~S\(EU2R%SZH(g2R%SXi];Q~~SX5ryZ~~SVac^[%%ST[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] yb_k.amp !Q%%%%%%%R.W.A:?NR6pFvM/gR>[>`OP7RDa42L?*RHw~ipqbRLDJmK^CRN'Dq/n]RN._p3l_RLo4%ahR !RLKX`5AURL6w.9;RRL@XB@iqRLnI}>%ZRN]~]YsiRPW,N`InRRIyQxSmRR|[op{IRT.`sj/mRRdVBbNQ !RH3(f`iIRDp4|kJMRD^@cyBdR>{oIC0tRC2SW'\][v%SWpLdADRSY_UxWqRS[L[,?.% !S_7Qs`I%ScLVGO@%SezdsX@%Sg=7QVR%Se'zb7%%Sc.W];R%ScFFt_R%SeBP2zR%SgYeXhR%Si|8@MR% !SmJR=?~~Sos{y[%%SsA_9c~~Suf47v%%Sy*QRMR%S{Bh)Q~~S}SYWH~~T-W[O/m%T-`nCc.%T-i@cjhR !T-{iEDzRT/1,]OhRT/=Tg:[%T/F)^{I%T/I[ahR%T/J`,;)RT/M4L2R%T/Q_XP7%T/WT-fd%T/q)4p[% !T1*/[Y_RT1=R.ADRT1Pg/bnP_R%R>)'+@%%R<<'G_R%R:AUwDR%R89?2)R%R4|d))R% !R2WF3qR%R.|Ea@%%Qf%(:Z~~Q>CVV)R%Q7J5.u~~QgKNU2R%R/~1:Z~~R5v\P_R%R=/kk_R%RC`Adv%% !R_{|pZ~~Rqu}G6~~Ry(='c~~S-T9OhR%S-{OP7%%S/QYg[%%S1/9|@%%S1l@]d%%S3T,.u~~S5>t{qR% !S7+t_Q~~S7t4|hR%S9blNI%%S;Q;EqR%S=>TWqR%S?*9[v%%S?mriH~~SAU+7v%%SC9mADR%SCuvQVR% !SGN^s?~~SIxaX?~~SMFi@v%%SOp~:2R%SSB=xc~~SUj[U[%%SY1[IMR%S[IIqzR%S]YbC2R%Se%6nm%% !Si4,WI%%Sm-@9;R%SoyZZVR%Ssh|T;R%SwJJXhR%Sy~cNI%%S}WDV)R%T-[2j@%%T-g]Kd%% #% [ 59] yb.rep !S8Cv12R%S8DaH-~~S8FyRv%%S8Jh1Z~~S8P->6~~S8Vy>_R%S8_Am%%%S8i757%%S8t]+@%%S:'YO@%% !S:6(g2R%S:E~rqR%S:WU2Q~~S:jX@%%%S<%5[MR%S<;CJm%%S-Hfc~~S>J/(2R% !S@Um]c~~SBB6^Z~~SBuGwm%%SDQ4P7%%SF/~JDR%SFk>cVR%SHNtg[%%SJ4]|?~~SJvB3I%%SL_eL[%% !SNJ_9c~~SP6s`H~~SP~ALZ~~SRljD)R%ST\3,_R%SVLA,6~~SX=3(Z~~SZ.[ahR%SZzYcVR%S\m)MzR% !S`yvz)R%Sf.eHVR%Sj>}*qR%SnPC2Q~~SrbUk6~~SvuLFhR%S|.rDzR%T.T{,_R%T.i%EH~~T0K9OhR% !T0sL{I%%T2Agg2R%T2j,2zR%T48JXhR%T4`l^[%%T6/8DR%%T6W^*H~~T8&)j?~~T8NOP7%% #% [ 59] yb.lambda !S.R,?-~~S.RPg[%%S.SY2zR%S.UI56~~S.Ww4?~~S.[2j?~~S._(c.%%S.c\XhR%S.hm12R%S.nVf;R% !S.tv~.%%S.{l^Z~~S0)7ahR%S01*mMR%S09IahR%S0B6^[%%S0KKc~~~S0U.qzR%S0_AHVR%S0j,{qR% !S27J-m57%%S>~tO?~~S@w8hzR%SBp_MzR%SDj|D)R%SFf.12R%SHawu-~~SJ^DAm%%SPVd]c~~ !STSfx;R%SXR12Q~~S\Qe,7%%S`RRXmuKA;Z !R\X:&M\0R`7&l.mvRba`cKE]Rdy{_,}ORfjlPMLCRfrnyxPWRf3`'I.fRd&iT<@vR``|afW)R^9jPQ:{ !RT7fjP7%RZGP-9-gRZlO]memRX}N}0p{RVu:SPqfRV=9LI*=RVB2/-%vRVd(wc/]RX?Svem%RXwm[0Uo !RZTjSFIAR\2_(}C{R\kD06tOR^jL2R^U>JE@vR^6n->bhR\[G)7S4RZncY_8QRXzTAJuw !RT_z[])bRPIC'\zjRJp]:7EIRF?(4/m%RBV=ZlTtRB6NUqdHRB|M~-|-RF=eP'8wRHn@0)E)RRUlyuYY !RV)sGQfCRVIp7Gf{RTpvD.EIRR_fG)Z2RPC@zP_.v%%S/r8SP_RS3tpVV)RS7oHrqR%S;ag[mv%S?KdX'd%SC-2}C2RSE_twm%ScE8=\DRScvy:Z~~SeL(FhR%Se~?nl~~SgeGC2R%Si\Cc-~~SkcUc-~~ !Smvj;zR%Sq7>wl~~SsSw0;R%Suo(NqR%Sy+D)R%%S{_RT1b36F@%T1uB%]d%T3-4E7%%RTx.12R%RR1LJm%%RN2aH-~~ !RH|[z)R%RD[`U2R%R@*9[u~~R:B6:2R%R4ID5_R%Qzt7IMR%Q8_q5_R%QWn[Y_R%R1Fq%MR%R9M7ahR% !RY(jlVR%Rk)5;)R%RqJ_9d%%Rw|{U2R%S-a.Y_R%S/9y*I%%S/sWuVR%S1XG?-~~S3A>oc~~S5-.mv%% !S5tshR%%S7cnHVR%S9S/q)R%S;B.12R%S=0'_zR%S=vQzzR%S?`}_Q~~SAI79;R%SC/+H.%%SClKWqR% !SGHX/m%%SIuZVQ~~SMEY[MR%SOp@=?~~SSAD-VR%SUi9[v%%SY025_R%S[HAL[%%S]Y6ZVR%Se%34hR% !Si3ehzR%Sm-@9;R%SoyeTd%%SshqZ-~~SwJJXhR%Sy~nHVR%S}WDV)R%T-[2j@%%T-ga+hR% #% [ 59] yb_l2.amp !Q%%%%%%%Q0~h8;RnQQd2R~3.=QhNHM[x'Ql^I'*3z !Qpg~^kI9Qt|Cb<5WQz\>qT';R.ZuQrobR.sq>t]{R.f=s9x;Qx'1]J|HQfwup%}dQVH'UcYhQD|wlQm5 !Q2\=\^g{QZvT%y(GR.W|fpPHR2NF;1[%R6N^?O0\R:Z3GJq*R>n~h|/mRBid8VLgRFI_gdemRH\+SHzz !RJP-VmCGRL-`m\M%RLZ\n(A,RL{pTSm%RN9|zAm%RNA.y.y;RN9)VU:[RL|VKuC*RLYSmUpsRL-XXVZw !RHh{.=`mRFBEE/mnRBQAd.x'R>N[gIx=R:~H4*f_R:qbNfy'R8r:MS?Nkqm.hSA*BvdW;SAk3&|j2SC`]|?X2SE^tl)S_SGe6ZzS_ !SIpdl=j2SM%<:MSeb.Em&_SeXo?V+2SeibCz|2Sg3TunF2Sk4b;q|2 !Smlym]=2SqUQVv&_Su;oW(42Sw{k`@O2S{gSURO2T-UB{|leT-d\5@DiT-sc4dy%T/((yC*X #% [ 59] yb_l2.caps !SPl`8m%%SPkPSDR%SPgt.v%%SPax?VR%SPY`eDR%SPO8@MR%SPB`DzR%SP4(Rv%%SN}Z^Z~~SNkBh)R% !SNWIIMR%SNAyVzR%SN*|p[%%SLlap[%%SLR~vu~~SL8*}_R%SJupJm%%SJX=X?~~SJ9FL2R%SHrxl.%% !SFWSy2R%SDosH.%%SDVWz9d%%SB{oOhR%SBZ%v%%%SB4R]c~~S@e[56~~S@9C6VR%S>czV)R% !S>1_MzR%S_Q~~S3wZjhR% !S7rDzQ~~S;[`0d%%S?9UJl~~SAq\y2R%SEE8HVR%SGhq5_R%SK2LBc~~SMNcfc~~SOcvFD.|,QJ]BP;coQTZMjs'dQ\it'a%=Qd69&`>OQj%czuiUQnEKef=yQrRVPhg* !QvP6YJmIQzCI=f^CQ|~PC)GtR.RfMI&VQ~=cEn8)j@%Qj<}>LYlQ\mLU.>xQP:(rC}'QBrf>P=P !Q8.lr.KtQXa,OQ0pQz7G&L6WR0~'2W5WR4x^lOMjR:(t7K^CR>=cNdd5RB9,xh?FRDsG)9d%RH+f/@qz !RHxzM|B'RJT}.bAURL&4H3otRLDo3H~~RL[.V^A,RL`0%ZkWRLVrk~>7RL?]LDb[RJvQDe/MRJK&3MM{ !RH/RLbFHRDhEtWWYR@~+aJ0;R>(Ig%m?R:]%95ZWR:QniTF3Rx]AXhRS>*|i@v%S<-bBC[%S:'kcVR% !S6vU6VR%S4h:z~VRS2Z,G7%%S0MnhzR%R|jL2Q~~RhS(2R%%RTu2)Q~~RBk&m%%%R21Jl~~~QK`qR%%% !RK{4hR%%RiLGWH~~R}~'Sl~~S/,(-^[%S/.Ev6nmS-nt}*qRS-dI_f;RS-u6RMR%S/?N-?nmS3>}K_zR !S5vsMEqRS9`'sH.%S=E(AP_RSA++D)R%SCqWGk_RSGO3W\q)SK4UM;39SMr>wiDzSQLd{a@% #% [ 59] yb_l3.caps !SPl`8m%%SPkPSDR%SPgt.v%%SPax?VR%SPY`eDR%SPO8@MR%SPB`DzR%SP4(Rv%%SN}Z^Z~~SNkBh)R% !SNWIIMR%SNAyVzR%SN*|p[%%SLlap[%%SLR~vu~~SL8*}_R%SJupJm%%SJX=X?~~SJ9FL2R%SHrxl.%% !SFWSy2R%SDosH.%%SDVWz9d%%SB{oOhR%SBZ%v%%%SB4R]c~~S@e[56~~S@9C6VR%S>czV)R% !S>1_MzR%S_Q~~S3wZjhR% !S7rDzQ~~S;[`0d%%S?9UJl~~SAq\y2R%SEE8HVR%SGhq5_R%SK2LBc~~SMNcfc~~SOcpI{w4@RD?S[WoPRHamyT/DRLzk/PPxRR/5NAl6 !RV.;_Ap_RXxGHebtR\tz'}ayRf2deedvS2:{_MkxRvYW\1<]RhPHA:FhRd0wtYdjR`[2GaT;R^6j,Kg; !RT`)F;zRR\H])v\,R\rz_`N=R\4/z~e,RZ&B)5flRX't0ssqRVLbVD{ARV*:[^Z6RTttf^;JRTt52kwm !RV)MqT~gRVMF\H2*RX&|ngBdRX[_Y0SmRZ(dvhKxRZ62ZCs@RZ+c}I''RXd8>&m%RX2iQAbORVPEY6~~ !RRb@J'WRF0p\4=-RBRjl%5QRB4TgRsnRBv>d@Y}RF2ZhnJCRH]tPpsdRR6]A5UU !RTcn^]4FRV*GQzh>RTTvlf8~RRE?(>.`RP,tQM]&RLF/v5bhRHnf>^&:RD{IHCjWR@sZG|r~ #% [ 59] yb_m1.phase !RC}(&DR%Rq'yNqR%S/w`j7v%S3ys}{qRS7sk}O@%S;e8e@MRS?N,TWqRSC.A9WqRSE_{Vj@%SI/V38m% !SKREAdv%SMqGaT;RSQ:VV)R%SSvm0h)RSU=_9?VRSQXJF/m%SSe/'kcVSU`^iN7%SarsEa@%ScT~fd%%Se4&u.%%SemXL2R%SgXTWqR%R/{8l~~~R9*NjpZ~~S5*pc.%% !S5rj7u~~S7aol-~~S9Q<4hR%S;@AhzR%S=.BWqR%S=tt2zR%S?_Pk_R%SAGk_R%%SC-jhQ~~SCk?RMR% !SGGpRu~~SIu=H-~~SMERADR%SOpCwDR%SSAGgZ~~SUi5{qR%SY0*uVR%S[H=lVR%S]Y::[%%Se%:NqR% !Si3ehzR%Sm-Cs?~~Soylnl~~Sshu:2R%SwJN8l~~Sy~r(Z~~S}WH6.%%T-[2j@%%T-ga+hR% #% [ 59] yb_m2.amp !Q%%%%%%%Q8CfOq;BQJI>aQC*QZzPz9d%Qjp>XlGxQz(tU;,hR.sjWuVRR0SQ&a;zR26D<8eeR2{+wZr) !R4x-e[Y`R8@]k1}'RR.fs7hc]R0mwn`M*R4Kgo,wmR8?Qeg}'R:~(dxH*R>KC53pcR@P0COC; !RB8QRq8uRBh[Y5z:RD53T<@vRDReAzf`RDj'h`vERDt/Z.|PRDoU*f3IRD^YU==XRDDfSW0dRB}u;m8M !RB'BO~g.R@,^E*s0R_Q~~~S0HDb7%%S2kk;)R%S4]OhR%%S63O+hR% !S8B7))R%S:9,.v%%S:{J\l~~SVT9OhRS>^tV~VRS>Ea5*qRSdel~~~ !S>2CJm%%S2J_}0xRJ+uaDrIRvA,mGRVRBHS29g_R4eWy&S,R2@2?fFqR0q]ErH6R0X|UBN1 !R.awY51CR0/1-XIAR.~YPOqXR04@1og;R0u[&kG7R4=t3UeUR6~o,IRjR:\MQ~=HR>%.JDYYC{R<;`75@qR8sW:7q2R6rl`DNiR6tjlgx,R8rEm`3\Rx:-%IvRHx.~'+d !RLqx1b,tRNlVO1mlRNq}5?vvRN:vr'l.RLLXMz~ORJ2X5Z:2RH-GmU8&RDr)&UwDRB:uWz)o #% [ 59] yb_m3.phase !Rrv]d%%%RH0p2R%%Qc~VR%%%RQ+/m%%%RsM9c~~~S/Tr}_R%S1{\L[%%S59kcVR%S7BLwDR%S9:)Z-~~ !S9wqrI%%S;BhMzR%S;Bdmu~~S9P,O@%%S/B=xc~~RVQ%u~~~S01Bd%%S06ub_R%RxgFhQ~~Rdxt7%%%RRe(2R%%R@y>_R%%R0Vj?~~~QSQ.%%%% !RM%]c~~~Ri.k*qR%R}*=`H~~S-vo(*I%S-rL10+@S-T&tcVRR{jL2Q~~S-VxZb_RS-{GwQ`]S1zN6F@% !S5Wsxc~~S9BB]Sm%S=(yJHVRS?j_D9d%SCY1M^2RSG8uRMR%SIz}%]?VSMa:Fdq{SQ=gjH.% #% [ 59] yb_m3.caps !SPpGWI%%SPo47v%%SPkT3H~~SPeTc~~~SP]9OhR%SPR`0c~~SPE};)R%SP7AhzR%SP&e@MR%SNnF/m%% !SNZEQ.%%SNDjdMR%SN-fd%%%SLo=/l~~SLUVV)R%SL:Qb_R%SJx25_R%SJZR))R%SJ;O|hR%SHt{([%% !SFY1g2R%SDqXP7%%SDX&P_R%SD@79;R%SB|{U2R%SB[*a@%%SB5P.v%%S@fQF@%%S@:5gZ~~S>del~~~ !S>2CJm%%Su'bR>WKwfp{RB_.fj?mR3LkmbS4lCm'hrS0DLzEB/R~LUvrH[Rrvfj5{)Rj[ZBIeI !RTsGrkhJRRNqD2IvRN0kqpN)RHUYoLaPRDCRO+KDR@TeO|Tm_ThrR>.v%\j4R>DLH|;2R>o~rEiI !R@AbWlE-R@Z]>1?*R@b&~7H_R@[KJ;2%R@SaA0BlR@G~,6K|R@s&21eyR>\3@P-> !R&s|kdcRHaqge/u !RLqV\@c%RP'Wf&^oRP0NApQ7RNVDPFOHRLk5Y`v0RJJ{r;buRHD0KOzfRFBLyo;1RD)@En;a #% [ 59] yb_m4.phase !RnIMQ~~~RBM)Q~~~R1D)R%%%RY%u~~~~R}>7%%%%S1*y[%%%S3Hnm%%%S3sD)Q~~RKXhQ~~~S:Gnu-~~ !S:h~2)R%S8^z~VR%S4r0c~~~S0F|hR%%S2*U2Q~~S8aD)Q~~S6zzQ~~~S6,k_R%%S4ATc~~~S2_Z-~~~ !S0FX@%%%R~6.%%%%Rfa?~~~~RTy[%%%%RF;)R%%%R4oc~~~~QQzR%%%%R?~VQ~~~RYF@%%%%Rq[v%%%% !S/+'d%%%S1;zR%%%S3NQ-~~~S5`];Q~~S7oSl~~~S9vel~~~S;r}_R%%S=cvv%%%S?Hb_R%%S?|xc~~~ !SC'?VQ~~SCe`qQ~~SE3iI%%%SE9';R%%SCT;Q~~~SA1wDR%%S=}oc~~~S=JHVR%%S=:ps?~~S=t^>_R% !S?\>oc~~SAWkK;R%SCWBSm%%SEXMj?~~SGds|hR%SIi_=hR%SKt,shR%SO(N(Z~~SQ9)b7%% #% [ 59] yb_m4.caps !T.tYoc~~T.u'x;R%T.vIqzR%T.x^Bd%%T.{l^[%%T0%tk_R%T0*koc~~T00JP_R%T06_nDR%T0=8@MR% !T0CjlVR%T0J-JDR%T0Ox?VR%T0U+7v%%T0YI9;R%T0\tcVR%T0_S\l~~T0aG?.%%T0bOdMR%T0bpRu~~ !T0_2nDR%T0\q)R%%T0]jt_R%T0]cZVR%T0\f/DR%T0[@UZ~~T0Y_-VR%T0WreDR%T0V/}6~~T0TJu.%% !T0RiM)R%T0Q8y2R%T0O[12R%T0Mv))R%T0K{,_R%T0Ij;zR%T0G?vv%%T0DNiH~~T0AD-VR%T0=ywDR% !T04dqzR%T0+DrI%%T.|bod%%T.tz^2R%T.mkO?~~T.fU&DR%T.^whzR%T.W.=?~~S~frY7%%Sz[o/DR% !Sx9MAl~~Stvgo;R%Srh\Tc~~SpXw,7%%SnLuB;R%SlL4T;R%SjJ:FhR%ShK`iH~~SfUHF?~~ #% [ 59] yb_m5.amp !Q%%%%%%%QJKbBOSfQpK5[518*-RBlnx:G(R4}WjY_hRHn`e&.+ !RD,X}a7NRV?`[eeeR^FSt{4=Rz%q>AuRS@B32f\@S4o4oFwuS0F8|gM:R~X]\Ag_r !RTq;9Cx3RRIR[^.NRN'XUv8MRHJ3aevfRD6}6EInR@GJA9PWR>GH>;F`R<{WY[,dR>7f+^\]R>c_|4t)6*R>gBCdOyR>PmRt*) !R(&R<+rs)R46D&WM1R4(?clB?R6;r7@|[R:.TPc*iR>2.x:^fRHszikdj !RN.}Dh2NRP?}[;=iRPFqd'l2RNk{x.KHRL}0Y]t7RJX{tU~TRHOl`0dgRFJH7:^uRD/Pl5yl #% [ 59] yb_m5.phase !Rj*qQ~~~R>.MR%%%R5jhR%%%R]`qQ~~~S-gNqR%%S1OlVR%%S5'x;R%%S7/y2Q~~S/%iqQ~~S;%9;R%% !R;7MQ~~~S4M=hQ~~S2ywDQ~~S.pk7%%%S0bwl~~~S8H^Z~~~S6fd%%%%S4uF?~~~S41Bd%%%S2P[MR%% !S08m%%%%RzdMQ~~~Rd5_Q~~~RRAl~~~~RBU2R%%%R2'd%%%%QwI%%%%%RCpZ~~~~R]8DR%%%RuMzQ~~~ !S/:o;R%%S1Kh)R%%S3^>_Q~~S5pJm%%%S9%ADQ~~S;,wm%%%S=)5_Q~~S=t.v%%%S?XP7%%%SA1wDQ~~ !SC4;zQ~~SCp[%%%%SE=t_Q~~SEC2R%%%SC]WqR%%SA:&DR%%S?+/l~~~S=R-.%%%S=D38l~~S?%|t_R% !S?h't6~~SAfE];R%SCeR=?~~SEg'|@%%SGutshR%SIyLo;R%SM+-jhR%SO:=pZ~~SQHq9d%% #% [ 59] yb_m5.caps !T.tYoc~~T.u'x;R%T.vIqzR%T.x^Bd%%T.{l^[%%T0%tk_R%T0*koc~~T00JP_R%T06_nDR%T0=8@MR% !T0CjlVR%T0J-JDR%T0Ox?VR%T0U+7v%%T0YI9;R%T0\tcVR%T0_S\l~~T0aG?.%%T0bOdMR%T0bpRu~~ !T0_2nDR%T0\q)R%%T0]jt_R%T0]cZVR%T0\f/DR%T0[@UZ~~T0Y_-VR%T0WreDR%T0V/}6~~T0TJu.%% !T0RiM)R%T0Q8y2R%T0O[12R%T0Mv))R%T0K{,_R%T0Ij;zR%T0G?vv%%T0DNiH~~T0AD-VR%T0=ywDR% !T04dqzR%T0+DrI%%T.|bod%%T.tz^2R%T.mkO?~~T.fU&DR%T.^whzR%T.W.=?~~S~frY7%%Sz[o/DR% !Sx9MAl~~Stvgo;R%Srh\Tc~~SpXw,7%%SnLuB;R%SlL4T;R%SjJ:FhR%ShK`iH~~SfUHF?~~ ifeffit-1.2.11d/src/fefftab/74.dat0000755000175000017500000003573210771740460015503 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] w.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] w_k.amp !Q%%%%%%%R2waAgLwR@bY\Q4uRN2gsd,dRZ7(b<5WRdcJk7u6RnX^IFc_Rvh+k88ER~3q/,>?S.bG=JF0 !S.s:PK.hS.|w=U7TS0%ppU9ZS.|*o8*5S.qtq]7yS.ap1:7>R~D\GiK'RxELhTKdRprt_?)2Rhx.=Us@ !RN:.LC'3R:Sswj|'R.~9}{IjRDg+);:SRXY0s+a8Rh?+PH0pRrymX{U2RzUn=?6.R~+VRxODR~(iB&[5 !Rzqf8zErRx+Rz^eURt0=P|;zRp3+jj/mRlF?Fv@zRhgiz,%~Rf?Y'MAmRd*N_IJg|RPVpOuX|RLz}+*h.RHjswS^RRDmo6*L[ #% [ 59] w_k.phase !S=^WiI%%SAr{8l~~SG)-zzR%SK5'[v%%SO<`uVR%SS?tshR%SW>jpZ~~S[9;R%%%S_/5wl~~SazZo[v% !SegFGcVRSiOUs?~~Sm3']Sm%SoklgwDRSsEoi;yc.T-^{z7ah !T-}m*-4uT/,^95K;SyhyEy[%SwXQXxd%S{E']Sm%T-UzK2~VT-hv>V~VT-{2E,;)T/3.2EqRT/D^lnm% !T/UwhzR%T/fl]G_RT/w/WU2RT1,]{Q.%T1;.bWI%T1HKu%v%T1TX`I%%T1_[W8m%T1i]Bl.%T1rtyo;R !T3-_g*I%T3?{=`I%T3OVZvv%T3[3<([%T3b3pc.%T3fC=p[%T3i{1Rv%T3mT]Sm%T3q{h~VRT50kJ(2R !T5C^T/DRT5WC,od%T5jwM%MRT5}~|3qRT77[2EqRT7IdoSm%T7\dB|@%T7nEwXhRT7}/KG_R #% [ 59] w_k.caps !S.yM9c~~S.xa|hR%S.vF7v%%S.rSy2R%S.m12Q~~S.f47v%%S.]`iH~~S.S\m%%%R|tWH~~~RzJ({H~~ !Rvi0?VR%RrwL[%%%Rnt]+@%%Rj`5{qR%Rf9P{qR%R`Yp.MR%RZfN0d%%RT^V1[%%RNA-%v%%RFf~B;R% !Q|KFL2R%R1k0x;R%RGpCRv%%RQSra@%%RYZ@]d%%RcQ9h)R%Ro-M~VR%R{?1_)R%S-~aL2R%S/cPod%% !S1J0;R%%S31\8DR%S3s9/DR%S5ZO7u~~S7@\u.%%S9%H^Z~~S9bO@%%%S;CiY6~~S;}L*H~~S=[[ahR% !SA/|H-~~SC\p:[%%SG1Au-~~SI`MrH~~SM2Rmv%%SOWb.v%%SQt.-.%%SU/2b6~~SW@=dMR%S]nQrqR% !Sa{Sy2R%Sew%em%%Sin/q)R%Sm\[Y_R%Sq>N,_R%Ssw.]d%%SwPr0d%%SyzxOhR%S}H7ADR% #% [ 59] w.rep !S:G`@u~~S:HD=hR%S:JJ4?~~S:Mq~VR%S:RahQ~~S:Xw,7%%S:`PcVR%S:iL:Z~~S:sieDR%S<%O/m%% !S<2Rmu~~S<@|+hR%S.IqzR%S>Ce0;R%S>ZK|?~~S>rTh)R%S@2)-VR% !SB-\}7%%SBrl^Z~~SD_O3qR%SF9hrH~~SFnmmv%%SHM9?VR%SJ-s;zR%SJjd))R%SLOW,_R%SN6:2R%% !SNxX`I%%SPbJ(2R%SRMV)Q~~ST9uJDR%SV'?VR%%SVoYshR%SX^fh)R%SZN^s@%%S\?3a@%%S^0;R%%% !Sb:2vMR%SfFMEqR%SjT[QVR%Snd57%%%SrtqAm%%Sx,M=hR%S|>g6VR%T.VMzQ~~T.jG?.%%T0LI56~~ !T0tUFhR%T2Be8DR%T2j|D)R%T49=/m%%T4a[UZ~~T6/y{H~~T6XB';R%T8&d-.%%T8O,2zR% #% [ 59] w.lambda !Rx_/4?~~Rxas'c~~Rxj4;zR%Rxwuvu~~Rz1)~VR%RzIW8l~~Rzg3eDR%R|/sP6~~R|WL_)R%R~)`}_R% !R~ZKWqR%S.S`M)R%S.YFH-~~S._Pk_R%S.e{}_R%S.lm~.%%S.s}2zR%S.{S0;R%S0)F;zR%S01]p2R% !S0L|7u~~S0cfd%%%S0WCBd%%S0W1.MR%S0\:FhR%S0ea`H~~S0qz-VR%S2&IEH~~S26_%MR%S2HCs@%% !S2[<,_R%S2o9+?~~S4*/u.%%S4?k{qR%S4V2%MR%S4m2EqR%S6*b.v%%S6BcZVR%S6[34hR%S6t'7MR% !S8Y_Q~~~S:A-nl~~S<){eDR%SY&HVR%S@Dt&m%%SB1Ru~~~SBxdmv%%SDfSHVR%SJ2X+hR% !SLko?VR%SPL<8m%%ST-gwDR%SVj(Rv%%SZM2%MR%S^0r4hR%S`o8`qR%SdT*uVR%Sh9HrqR% #% [ 59] w_l1.amp !Q%%%%%%%Q\?w.9;RR0K=5Ub-R6(LaV'tR:V:(vriR>v2*S0RR2/2/4@RTU/EsxdRVeI~zvrRX4S6+_ZRVgz0\l6RTfBcQm5 !RRS-WOP7RPUJca'd%%S:QUc-~~S6H4(.MRS2GKr4hRR~bc2)R%RZM~VR%%R8.+P7%%R3K;R%%%RS4hQ~~~Rq5od%%% !S/;alVR%S1\st_R%S3xegg2RS75AXD)RS9FtBC[%S;S@Tl.%S=ZR3}_RS?\6m~.%SAX%pBd%SCMFY.v% !SGZU(k7%SIO`NO+iSK.83,_RSK]>%~.%SM(n6fd%SM]+dMR%SOObz^2RSQXV't7%SSus`H~~SWK\@MR% !S[1VzR%%S]|@mv%%SaoJ,7%%Se[w8DR%Si;F`I%%Skf}SDR%So+OH-~~Sq>v56~~SsHub_R%SuK(*H~~ !Sy_GshR%S}Qeu.%%T-[Ef3I%T-fKUJm%T-nK*Q.%T-t(]';RT-xR@12RT-|[vIMRT/'EoOhRT/?HjD)R !T/Qs}WI%T/e8OL2RT/xY21[%T11]H)zRT1E.~vv%T1W5Hnm%T1j;-zzRT1{f>C2RT30oR57% #% [ 59] w_l1.caps !S0ffKd%%S0elZVR%S0c(g2R%S0^NqQ~~S0X.Y_R%S0O{y[%%S0F,WI%%S0:NM)R%S0--ZVR%S.x+@%%% !S.gCwDR%S.T{,_R%R|-I12R%Rva'?VR%Rr(zZ-~~Rl8[~-~~Rf5=t_R%R^x&LZ~~RXKnTc~~RPcK3I%% !R6oF'd%%QYt=+hR%R=m.ADR%RG&][v%%RO10+@%%RYGSDR%%ReIb{qR%Rs%kO?~~S-[ADQ~~S/C)5_R% !S1,=t_R%S1p6VQ~~S3Z'x;R%S5CCwDR%S7+[12R%S7lPK;R%S9Qd=?~~S;59';R%S;q(c.%%S=QAq)R% !SA*1Rv%%SCYaxd%%SG/-JDR%SI^.MR%%SM/p:Z~~SOU)5_R%SQr+p[%%SU.&\l~~SW?vu~~~S]n)j?~~ !Sa{(6VR%Sew)EqR%Sin,6~~~Sm\IEH~~Sq>Qfd%%Ssw2=hR%SwPnP_R%Syz|/m%%S}H:{I%% #% [ 59] w_l2.amp !Q%%%%%%%Q8R0DQ=BT-R2iq9>nuR8@:8EKpR>8V&oL !RJ'Nf[rERHRY?:i5RF~YWCugRF]-Rlq:RFMLA*F}RFHz*&`)RFLMv7]dRFT%@.:*RF^^5NMNRFitdR35 !RH,Y4yp*RFyH&(i5RDk-p*f3R@w%\EDVR>>bR^e0RSz@p.?R@nNK,QuRJnuF_R%%R_w(2Q~~S-`CBd%%S1:;Iu~~S3gm9;R%S771{I%%S9^]';R% !S=,v~.%%S?YJ(2R%SC4JTc~~SEwDvMR%SIsX?~~~SO)aH-~~SSAop2R%SWL8}7%%S[:5C2R%S]c6vv%% !Sc;xOhR%ScExl.%%Sa*EDzR%S_o?zzR%Sa:ey2R%Sc2g*H~~Se>=+hR%SgQv-.%%Sikqf;R%Sm0r}_R% !SoUhj@%%Ss&{4hR%SuU:Z~~~Sy)|/l~~S{S2=hR%S}t~b_R%T-\EH6.%T-fnTc~~T-pGP.v%T-y4,2zR !T/2'wq)RT/A.zrI%T/Li<([%T/Toj{y[T/Y+,=t`T/ZP`'G_T/[8T8]7T/\H9C[%T/^Y73Y7T/o_*@v% !T/~A>&m%T146q9d%T1D%0C[%T1SYe}7%T1c}z9d%T1ryAP_RT3(teXhRT38OA8DRT3G+d))R #% [ 59] w_l2.caps !STBHrqR%STA][u~~ST?EQ-~~ST;ZRMR%ST6F?~~~ST/fSl~~ST'dmu~~SRxHNI%%SRmkO?~~SRa{0c~~ !SRT~fc~~SRFywDR%SR7lb_R%SR'W(Z~~SPp@=?~~SP]~fd%%SPJZjhR%SP5}O?~~SNz2nDR%SNbryZ~~ !SLlljhR%SJ|Hvu~~SJ=h-VR%SJ,g6VR%SHxHrqR%SH]sH.%%SH9z=hR%SFiU{I%%SF:(FhR%SD`bSDR% !SD*?>7%%SBK]x;R%S@kSDR%%S@0V9d%%S>ON4hR%S/@QFNW;hE)QV,_8a)fQbzFqu^[QnfN58kGQx67J:ykQ~'P9R~.R.S,`v<`Q~Q[.+P7 !Qz8bkfl.Qrc,k4qnQjFxQ6,shRFMiE\^oRHU0Y9KdRHp5PWf3 !RHX=bsD)RH'kd'26RFQaOXs(RF-KQ+BLRDu,n&fxRDmoMG]tRDo*TG;)RDtd[Zo7RD}s|YW%RF-{0E&Y !RFIW(B8K<)7bRD50\OiAR@GD`-NIR+xIcl8R@DZ{\o9RJ>J(}z^ !RNUERy).RPtDF)UqRR:t*WzFRPpCM3_LRP)O8)J9RLo2_/HeRJf'NaUsRHH%,)SzRDbsw\h] #% [ 59] w_l3.phase !Rnf[v%%%RB};)Q~~R/>shR%%RU2^2Q~~RwehzR%%S/nGC2R%S3Eo+@%%S5pruVR%S9=urqR%S;c^6VR% !S?1=p[%%SA_'t7%%SE>J(2R%SI0?zzR%SM:;%MR%SQW~NI%%SUtM=hR%SYwsP7%%S]ZQ:2R%S_x}.v%% !SeC0OhR%SeGry[%%Sc%IqzR%Sa_%qzR%Sa{/P_R%Scna`I%%SexYshR%Si1%U[%%SkIgo;R%SmgUg2R% !Sq1\\m%%Ss[[ahR%Sw/,6~~~Sy\ZF?~~S}+F+hR%T-Uy`od%T1gwS,7%T1vgz5_RT3,n>K;RT37%%SBK]x;R%S@kSDR%%S@0V9d%%S>ON4hR%SW\^Qf@RBO[_+xdRF.UKsZBRHL_[m-.RJUgN[LmoxRP'/N)Q6RP00{1'3RP/a4cb;RP(R88VfRNqK=^N)RN\O09^C !RLJKM/XhRJ>%8(t/RPcmkshRRR~ClMGRV&DxQ7fRV'_]C[%RTJUc@99]x;RLz/Y/@NRNGF'YlNRNfDFz>3RN~0tCi5 !RPL,2KP3RP/IBwxDRL_=dqzRRHSc.u6.RDd\3h*eRBm&hF9jRBd,y&**F~yRN>OUs@%RJhfz&e9RFy~I1LhRD.'1|], #% [ 59] w_m1.phase !S@3s/m%%S:|S(2R%S6u6V-VRS2wbRz)RS0)F;zR%RfgFhR%%RDr52zR%PSI%%%%%RC\hzQ~~RaEy[%%% !R}S`qR%%S/n&Tc~~S3/Pqf;RS5F1k[MRS7WzjdMRS9dc)1[%S;l5?.%%S=n/+lVRS?j63K?2)R !T/PsYwm%T/d4lVR%T/wVxOhRT10aF+hRT1D7DZ.%T1VBP{qRT1iOq%MRT1z|P[MRT307%IMR #% [ 59] w_m1.caps !S0k5G6~~S0j;V)R%S0gN(Z~~S0bpRv%%S0\E@v%%S0T-fd%%S0J)j?~~S0>@el~~S00ny2R%S.{^*I%% !S.jkgZ~~S.X:Bd%%R|M+T;R%Rx%f7MR%RrFlzzR%RlUjH-~~RfQvu~~~R`:B?VR%RXgtSDR%RR%BWqR% !R80R57%%QU(]p2R%R=8;Z-~~RE?YgZ~~RMJ[Y_R%RWf~B;R%Rcp)Z.%%RqR`y[%%S-WD1[%%S/?T+@%% !S1)38l~~S1mEI%%%S3WP?-~~S5@~RMR%S7)MzR%%S7jQnm%%S9O{U2R%S;3^s?~~S;odIMR%S=P5k_R% !SA)Q6-~~SCYHJDR%SG.|P7%%SI]}SDR%SM/a`H~~SOTt[MR%SQqwUFhR%Ssw5wm%%SwPnP_R%Sy{%iqR%S}H>[MR% #% [ 59] w_m2.amp !Q%%%%%%%Q8c1x7))QJcs+i{9QZI'zR3YQf>u{zu_Qn&Da{rAQpKC0e\mQnWCg2R%Qh`(-EnB)_>WQV/NS6,GQbC+]Z(CQlaS(S@NQt|nt^,K !R.XKyJ%6R.U;V'hUR.l%]Mw'R0AibI1{R4%?IU[%R8JtGSl[Rnr`7ZR>tMb)t'R>avdSn]R>\Th~KXR>^p^a:CR>f4kmKtR>qq4{4DR@%[b/@N !R@PY]\sPR@^nps-kR>z2*cu>R0Y5QIVRFyJ,@j5 !RL8Ks|YxRNbXDA%xRP:5;YO1RN~w:E`-RNHRc^XnRLB:p8B3RJB-G*TDRH+[`NZ&RDIkceg; #% [ 59] w_m2.phase !S6B;R%%%S233U2R%RxSy2Q~~RT&}6~~~R0|'d%%%R7k*qQ~~RUC_)Q~~Roo';Q~~S/'D%MR%S12w`qR% !S30AXhR%S3l\}7%%S3Y@ADR%Rwa@%%%%R?:xWqRS[Hqw`qRS[N:a(.NS[Y17iqRS[oK)b7%S_dmv%%% !ScC?rqR%Sg.oSl~~SishR%%%Sm]4\DR%SqNy[%%%Su2>{qR%Swz4'd%%S{d+t_R%T-U)O3qR #% [ 59] w_m2.caps !STDRIMR%STCg2R%%STAKG_R%ST=`H~~~ST8HVQ~~ST1e0;R%ST)_j@%%SRz<0d%%SRoWqR%%SRccrqR% !SRV`4hR%SRHPK;R%SR9;vMR%SR(|\DR%SPq^VzR%SP_;f;R%SPKfp2R%SP7+t_R%SN{0?VR%SNcljhR% !SLmPg[%%SJ})9c~~SJ>L*I%%SJ-Yg[%%SHy7iqR%SH^[%%%%SH:at_R%SFj=X?~~SF:i}_R%SDaJ0;R% !SD+&u-~~SBLI57%%S@l:{H~~S@1AP_R%S>P9Kd%%SZ_QV)x=d_f !QHT>UM@~Q:8q4Y=PPnorD*@vQ4Spqe/MQD@H%wo'QR~gBy1cQb3syE)JQnT{k=HwQxw3[aD)R.\aE_/4 !R01oDi;:R0%fsn%fR05DtFffR0TdQB,xR2~[BqErR8>N6@oxRnbc^SeR>FADgs@R>0:)z4qR>'TM./UR>''&>hJR>+qpbMbR>5E8owMR>A2__Er !R>hy9cDbR>wW-d~wR>C{R8>6M*eER8Sd6J4.R:>mOBrdRxRF82qCek !RJLM_Z,5RLwQAXO?~~S-sXdMR%S/+t;)R%S/gFhQ~~S1]u%v%%S3b)^2R%S5p]';R% !S9/HzzR%S;QQ:2R%S=ze(2R%SAM-2)R%SCukWH~~SG=OH.%%SIUP*qR%SKd4H-~~SMj:Bd%%SOh3];R% !SSo2Z.%%SWLGWI%%SY^x3I%%S[Luc)zRS[nP0/DRS[v1'WqRS[ynbp.NS]*'L*I%%SJ-Yg[%%SHy7iqR%SH^[%%%%SH:at_R%SFj=X?~~SF:i}_R%SDaJ0;R% !SD+&u-~~SBLI57%%S@l:{H~~S@1AP_R%S>P9Kd%%SlX@=khR>1B-50TR>F;yY}tR@@EJQR)RBH(}&m% !RD/)uZz{RD=G'(s@RBw]8'}xRB544f9tR@Da;~s`R>UjVXE=R{RNA]=;KPRL;@[hN/RJFS16*iRHK8V=QvRF)KE~D6 #% [ 59] w_m4.phase !S>zGshR%S:hoWqR%S6a'd%%%S2bdiqR%S.mJ`qR%Rb62)R%%R@8P_R%%Q_?VQ~~~RI@12Q~~RexG_Q~~ !S-bI9;R%S/~o7MR%S3:Lo;R%S5Hq^2R%S7O[U[%%S9N-rqR%S;Cps?~~S=0=T;R%S=m'';R%S?E|L2R% !SAN5WH~~SAo+?~~~SCg0+?~~SE>7mu~~SEx3mMR%SG}`eDR%SKT0|@%%SO>fl-~~SQ{ZJDR%SUJMIu~~ !SWdAhzR%SYuI12R%S](lnl~~S_44;zR%Sa>X7v%%ScF`H~~~SeIM-VR%SgDMzR%%Si7:s@%%SizH>6~~ !SmNS0;R%So[oSl~~SqOa7u~~Sqw^o;R%Sqfp2R%%So{F|hR%So*kK;R%SmI3}_R%Sm(,&m%%SmQ9CZ~~ !So_R%Sb.Tl-~~ !S`yvz)R%S`iVEqR%S`Vlfd%%S`A7z)R%S`(V1Z~~S^fx;Q~~S^HRqzR%S^'h)R%%S\_+xc~~S\;/4?~~ !SZ9Uo;R%SX;\Tc~~SVDyc.%%STSBOhR%SRalVQ~~SPm'';R%SNv'';R%SN&f/DR%SL6u>6~~SH%ndu~~ !SDVAHVR%SB93mMR%S@&zEqR%S'T[v !RB4~N4YxR[KS4s(R<}__~e,R>J}m^O/gnMR<-muXEaR<%;gti9 !R<;bssL2RwNGRF5,T6uy #% [ 59] w_m5.phase !S>`VEqR%S:N~)zR%S6G2V)R%S2Hs;zR%S.S`M)R%R\CFhR%%R:FT;R%%R/h~VQ~~RO.))Q~~RkcNH~~~ !S-z}g[%%S1=%=?~~S3R12R%%S5_y>_R%S7e{Y7%%S9cb_Q~~S;XQnl~~S=Cp*I%%S?%_f;R%S?V}C2R% !SA[zrI%%SA|'c~~~SCt,O?~~SEKX`H~~SG-2MzR%SI4=3qR%SKfE8m%%SOR4H-~~SS4]WqR%SU],.v%% !SWvV%MR%S[-8y2R%S]:\\l~~S_FHRMR%SaPlNH~~ScXP7%%%Se[K;R%Soi6F@%%Sq](*H~~Ss+%ahR%SqrY7%%%Sq*cB;R%So3>shR%SmR+t_R%Sm3&4@%%Sm\|H-~~ !SoIf7MR%SqL2-VR%SsN|L2R%SuUAu.%%Swhs\DR%SynXhR%%S}(_rH~~T-TXN4hRT-_oj+hR #% [ 59] w_m5.caps !Sf.ahQ~~Sf08_R%Sb.Tl-~~ !S`yvz)R%S`iVEqR%S`Vlfd%%S`A7z)R%S`(V1Z~~S^fx;Q~~S^HRqzR%S^'h)R%%S\_+xc~~S\;/4?~~ !SZ9Uo;R%SX;\Tc~~SVDyc.%%STSBOhR%SRalVQ~~SPm'';R%SNv'';R%SN&f/DR%SL6u>6~~SH%ndu~~ !SDVAHVR%SB93mMR%S@&zEqR%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] fe_k.amp !Q%%%%%%%QD=CYc<~Q`~ElcCOQ|cKe]T\R0];}]i=R2h@'-zWsTR>N>YOjWj\DRR>z|c^[%%R>n1*;t'R>NJ1*I%Rl+IemR7RbJSaG;NRhru|C3A !RnUen_eMRrSO-&zjRtjb9N\MRv[xeY2zRx1XMzCKRxK@v|P7RxSs.wvARxL=xpHFRx5W[(q>Rvgdgj2: !Rro5e0_zRlxT)))5RfgpEnIE>RN}:BL@bRJhqb'RlRF{f,,xrR>X}-~Db !R:QT,9}=R6sE9bK8R4V'eo4FR2K~.fNkR0_IExauR.vz>E.6Qz9eD9ysQnrtm`sjQRl3kxZM #% [ 59] fe_k.phase !S9N)aH-~~S>(\\m%%S>%QzzR%S_R%SYhLg2R%S[q&`qR%S]x*,_R%S_y~:2R% #% [ 59] fe.rep !S4WI%%%%S4XXdMR%S4\&Td%%S4aj/m%%S4ih5_R%S4ssL2R%S6&*Y6~~S64:Bc~~S6DE(Z~~S6V<0c~~ !S6iuzzR%S8%:s?~~S8<;9c~~S8Toh)R%S8n~JDR%S:0jt_R%S:N52zR%S:m:s?~~S<4)Al~~Ss@%%%%S@O[z)R%SB,;)R%%SBg0t6~~SDJfx;R%SF0f';R%SFrn`qR%SH\j|hR%SJHAL[%%SL5=P7%% !SL}I9;R%SNlV-VR%SP\\m%%%SRMK/DR%ST>wHVR%SV1&DR%%SV}[))R%SXpZ6.%%SZd'Kc~~S\Wh5_R% !S`gEU2R%SdxDnDR%Sj0E8l~~SnC84@%%SrV^2R%%SvjUs@%%Sz~r(Z~~T.T*uVR%T.h/4?~~T0JQrqR% !T0rp>_R%T2A4dMR%T2iVj?~~T47xp2R%T4`DV)R%T6.mu~~~T6W9[v%%T8%b{qR%T8N2Al~~ #% [ 59] fe.lambda !T6cUc-~~T6ds|hR%T6hb[MR%T6nW0d%%T6uiyZ~~T6}?vu~~T8*&}6~~T8.b2zR%T80&LZ~~T8,}*qR% !T6~wdv%%T6qVrH~~T6_4'c~~T6HPoc~~T6.f[v%%T4m6%v%%T4QTOhR%T47>SDR%T2y~^[%%T2g7EH~~ !SnL%12R%S`2GshR%SZ)9c~~SXz9d%%%SZl,k_R%S\j\hzR% !S^s[12R%Sb+XdMR%SdEIIMR%Sff7))R%Sj3A@MR%Sl`8m%%%Sp8S,7%%SrokcVR%SvQljhR%Sz8@MR%% !T.aH.%%%T02:Rv%%T0_AHVR%T24N4hR%T2eYWI%%T4>X\DR%T4sD)Q~~T6OnXhR%T8-~6.%%T<+vahR% !T>P'7MR%T@yjH-~~TDNvEI%%TH)8u-~~TJbP.v%%TNFSLZ~~TR/4@%%%TTvAhzR%TXgey2R% #% [ 59] fe_l1.amp !Q%%%%%%%QLW2v1loQrO{0~:{R0\HdA@rR49CM?TtR6_,l6CsR8tBl*D{R:yC]5.-RYqbK)> !R@9T0~q^R@hPE6XTRB2rm]v9RBN8'Q,lRB\fLx2aH !R8yrt->7R6'rGa,3R0g7slJpR2M&Z1txR:s|{MrIRFTJ}2~2RR0h*SqrR\=_A[RERdfBb<d&Y@+P !R:XnF3M)R6yg73;AR4Z;u4v/R2O0Uh;_R0bTwcD(R.x_(^BWI%%Sqo5&m%%SsZVvMR% !SwI79;R%SyUdel~~Sy(wDQ~~Ss_%qzR%Ss*EDzR%SshR[ahRSuktShzRSwwh*@v%S{(H\4@%S}/P(o;R !T-SE:n3-T-\9l``vT-dVZ@9(X|hR%S>'WqR%%S<~IU[%%S?.%%S9JQNH~~S;XQnm%%S=`Z%v%%S?d]c~~~SAf_1[%%SCg%12R%SIObod%% !SM+R9;R%SO[u6.%%SS'9+@%%SUAd-.%%SWXg>_R%SYhLg2R%S[q&`qR%S]x&L[%%S_y~:2R% #% [ 59] fe_l2.amp !Q%%%%%%%QJ]9zDhEQlII3EtCR.tHuY4XR0l:>p/wR2:,-WrOR29~Gy<9R0qz,uMZR05y|VtKQ|IRD05K !QjR:@WU{Q\+RnrVFRB6.+k4XRH6Ws^N)RN@|j,2zRT8'aQ%v !RXjCpV1[R\w3'shvR`Z_\W\MRb{%7VIvRf%Fv3-NRfmohE75RhJ;8xh)RhqCIAndo !R:?+qKXvR6cxd>LlR4GH8|E6R2;rv,B&R0NUS\%WR.bQd's+QvFnb19ZQr7O?~~S[2TKd%%S]-Q^Z~~ !S]^8XhR%S]SqMzR%S[_b[MR%SYi`,_R%SYU|\DR%SYqalVR%S[LIY_R%S]2tK;R%S]x]/DR%S_fR~.%% !Sg2^2R%%Sk<<(Z~~SoGgZ~~~SsrTh)R%SyP,*qR%S}uLk6~~T-bkPwm%T-q2g*I%T-|u)zR%T/,r-)zR !T/5ShzR%T/=>R12RT/D8T?VRT/JWcfd%T/P@W8m%T/U[B3I%T/ZKmem%T/^qO|hRT/c&5SDRT/fwWU2R !T/p@OT;RT/y^>;)RT1)*.ahRT12:lJDRT1;42^2RT1D(IY_RT1Lyyk7%T1Uo_zR%T1^HXT;RT1w1@=@% !T3,FVb7%T3:`sT;RT3Im%mv%T3UPj^FhT3c`6\4@T3o:CG{qT3yIM\y3T5,JL{mMT55Wi<:o #% [ 59] fe_l2.caps !S^pEU2R%S^pLo;R%S^p[IMR%S^pq=hR%S^q0l-~~S^qJ@MR%S^qXt_R%S^q\Td%%S^q?F?~~S^pWiI%% !S^o9OhR%S^m(_)R%S^im))R%S^e5SDR%S^^z5_R%S^Vb[MR%S^L+\DR%S^>]OhR%S^-yg2R%S\sQ%v%% !SZo[u~~~SZs4`H~~SZxSm%%%SZj@IMR%SZOg>_R%SZ-'Sm%%SX^x|?~~SX2s7v%%SV^FhQ~~SV.V%MR% !STXH.%%%ST(ey2R%SRT*uVR%SR&oKc~~SPU4/l~~SP+0[u~~SN\VAl~~SN59';R%SLhoWqR%SLC%12R% !SJ?0';R%SH:ZZVR%SF779;R%SD85SDR%SB>~b_R%S@K^g2R%S>\Fxc~~S_-VR%Q4@SXhR% #% [ 59] fe_l3.amp !Q%%%%%%%QJUIEi`CQl:sJusR0oaif,/R03sSn1*Q|7eSP_R !QjEYAQkWQ\'g:-+XQV,VkttWQZ~-LVkxQhXr?L)ZQx;PrKaXR.pr6r([R0K\Hlg.R0p^(%z)R2']oyV2 !R2yyRF}3R6]%8J)FR8+5=(OflR`S7K|zBRbsBZXL{RdwTD>{qRfeR8k8]RhB(u0';Rhh{B.<-Rj)t[>wmRj.4Kdj< !RhLO`H~~Rdie6FmXR`W%3*;eR\6IW8BERVi=TtEYRRD|`Fx&RN+:if.@RJ,7\8]`RFL->Pt3R>B~kD++wR2;^tQa[R0N*%mrER.al%YugQv?3n0g;Qr+':q^xQd=-P&YB #% [ 59] fe_l3.phase !S?_,C2R%SCo&q)R%SGr,;)R%SKi2f;R%SOT(*H~~SS34D)R%SU`bSDR%SY'E8l~~S[86fd%%S]1zZ-~~ !S]aN4hR%S]UsdMR%S[`uzzR%SYlub_R%SYZ'/DR%SYvU6VR%S[Q<}_R%S]82=hR%S]}t{qR%S_kjp[%% !Sg7-.%%%Sk@@U[%%SoKl-~~~SsujD)R%SyRw8DR%S}x=xc~~T-c+%=@%T-qL;Iv%T-}4X@%%T/--{DzR !T/5m=?~~T/=X&P_RT/DR(_)RT/Jtr0d%T/PaEa@%T/U|0[v%T/Zl\4@%T/_8>K;RT/cCCwDRT/g:ey2R !T/pVCo;RT/yt2V)RT1)?||hRT12WznDRT1;T{,_RT1DEW}_RT1M9N0d%T1V/4@%%T1^iF|hRT1wUhj@% !T3,gE0d%T3;6<4hRT3J;.EI%T3Uxs5shT3d99A4@T3of+}{qT3y|PAy2T5,}O`mMT55|7i:o #% [ 59] fe_l3.caps !S^pEU2R%S^pLo;R%S^p[IMR%S^pq=hR%S^q0l-~~S^qJ@MR%S^qXt_R%S^q\Td%%S^q?F?~~S^pWiI%% !S^o9OhR%S^m(_)R%S^im))R%S^e5SDR%S^^z5_R%S^Vb[MR%S^L+\DR%S^>]OhR%S^-yg2R%S\sQ%v%% !SZo[u~~~SZs4`H~~SZxSm%%%SZj@IMR%SZOg>_R%SZ-'Sm%%SX^x|?~~SX2s7v%%SV^FhQ~~SV.V%MR% !STXH.%%%ST(ey2R%SRT*uVR%SR&oKc~~SPU4/l~~SP+0[u~~SN\VAl~~SN59';R%SLhoWqR%SLC%12R% !SJ?0';R%SH:ZZVR%SF779;R%SD85SDR%SB>~b_R%S@K^g2R%S>\Fxc~~S_-VR%Q4@SXhR% ifeffit-1.2.11d/src/fefftab/46.dat0000755000175000017500000003577010771740460015504 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] pd.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] pd_k.amp !Q%%%%%%%QZ54xg_*R04AVT-nR4YKwrRfR8mXY^>_RxRF7G:F]XRH1u5-:W !RHrZoT[vRJGhPNQ.RJf/1V1[RJx4O%pCRJ{~=OHRfkiRADRR\A05/w0RRs]`=?[RLdUO2pGRHxg5X?6RHIhQyTxRHrrM?F@ !RP74gn(2RX'1|j7-R\i_,(4yR`?R}.B|R`uTTJIER`zsOZ_kR`\xaCtxR^sXj56SR\m|@WCFRVIxN3.S !RPn6.&3}RLMIL[%gRH;ib9p3RD=^T/0oR@HdDoh]RshR%SO-'x;R%SQy;%MR%SUdIqzR%SYH|X@%%S]'?zzR%S_Y]t7%% !Sc,0x;R%SeRx';R%Sgsi@v%%Sk4LVzR%SmHZzzR%SoUVV)R%SqZ_%MR%SsVvqzR%SuI4H.%%Sw0'QF@% !Sy78HzzRSyZ)oWqRSyn%D~VRSyz(>_R%S{g[%%S4orY6~~S4e`([%%S4Y]OhR%S4KnTc~~S4<WH~~Q:5^>_R%R-{2Al~~R;DXP7%%RI)%qzR%RUxY*qR% !Rcw*4hR%Rqx,wl~~S-Z8y2R%S/>Z:2R%S/|6>7%%S1^rQ-~~S3@Oxc~~S3{([%%%S5Z]l-~~S79FL2R% !S9i=`I%%S=:iY7%%S?cyg2R%SC0;-VR%SEQ%-.%%SGjsL2R%SI~K3H~~SM3:Jl~~SO>|`I%%SUODMzR% !SYE_b6~~S]1@=@%%S_nMIu~~ScEfWqR%SeoW([%%Si:T/DR%SkW^*I%%Smo{uVR%Sq*n6~~SnK^Bc~~Sr^I~-~~Svqhb7%%S|+Y.u~~T.TaX@%%T.heq)R%T0K';R%% !T0s>G7%%T2AY2zR%T2iwXhR%T48?^[%%T4`adMR%T6/-JDR%T6WS0;R%T8%xp2R%T8NH6-~~ #% [ 59] pd.lambda !SFFVb6~~SFH`8m%%SFNy6VR%SFY9';R%SFg=pZ~~SFxfp2R%SH31wDR%SHI}cVR%SHbc2)R%SH|ft7%% !SJ=NY6~~SJX=X?~~SJr^NqR%SL22nDR%SLJMnDR%SLaJTd%%SLw0;Q~~SN1}K;R%SNFb&l~~SN\KG_R% !SP7f7MR%SFd34hR%SDe5.v%%SDA)j@%%SD=BKd%%SDM(c-~~SDi~rqR%SF6ap[%%SFdtk_R%SH?0p2R% !SHxP2zR%SJ\(VzR%SLCB?VR%SN-q^2R%SNu;j?~~SPe;5_R%SRWVEqR%STK~fc~~SVBKc~~~SX:_)Q~~ !S\[H:2R%Sb+,{qR%Sf\[57%%Sl;(c.%%SpyeTd%%Svc}G6~~S|SOL2R%T.^O`H~~T.xe\l~~T0owq)R% !T2Mj@%%%T4,shR%%T4g+\DR%T6H>[MR%T8*Gk_R%T8gG2zR%T:K1k7%%T*)}zVrR@AI'm:*RBEAVi3zRD6p/|Vb !RDsXi9;.RFHLoX`IRFl]WbwmRH-K]NcgRH>P*&J4RHHyoy.)RHI?V?jiRHBac{iIRH3a~}dERFyb[o(* !RFLs&J-&RNI^-1I5RV32DU(GR`uoJL^_RpB[ORl>S.TngsUsS071i\L|S0[{8>kBS0cWG%n+S0PEbN;: !S0**QO:nS.RUj=r5Rrx)MQaqRf|NXB=0R\]dvE+qRTAM'=T;RN6yd)`5RJHTHNI%RHl+I|ieRJ1CcgZ6 !RP6bTWqRRVnPut9LR\NY&)X,R^yNs&O6R`U3E25)R`\zXYayR`@y?/kGR^XdfZzeR\Tk;uAMRV7msJJ1 !RP_+6mS-RLB,1*7RRH1}{]G4RD6&~.lMR@BmGw_2R_R%SqJP_R%%SsFD)R%%Su8M%MR%Suy^EU2R !Sy0JIEI%SyeI34hRS{-|T_zRS{@VQ6.%S{Z7%T/-n/(2RT/;Aedv%T/HHB;R%T/UBv9;RT/bF9Sm%T1-W+'d% !T1D{sxd%T1[5t{qRT1p(C.MRT3+,=t_RT3=XYSDRT3Q*W4hRT3bvvmv%T3s_hb7%T5-Ynu.% #% [ 59] pd_l1.caps !S60OD)R%S6/QrqR%S6,]+?~~S6'p{H~~S4{756~~S4rcfd%%S4hF;zR%S4\cVQ~~ !S4-6vv%%S2swu.%%S2^cvv%%S2GT|@%%S2.@12R%S0ltO?~~S0O+hR%%S0.i(Z~~S.e[56~~Rzy9G_R% !RXyg{H~~RJ;+T;R%RDLwhzR%R*qR%SO>|`I%%SUODMzR% !SYE_b6~~S]1@=@%%S_nQ)zR%ScEfWqR%SeoW([%%Si:T/DR%SkWadMR%Smo{uVR%Sq*qvMR% #% [ 59] pd_l2.amp !Q%%%%%%%QXkfhnh{R.~jI2j@R4/B=T;RR6nwl'SmR:)Z,4|hR:kl9}wmR<*`H4=}R:wNrl=mR:LviKZ> !R8eK8{N=R6oG+6PKR4pTzc?JR2okSS,7R0rZTq>WR.}01H7fQz?hvc%RQn>L?HX0Qd['<_2nQ\fA{Z`9 !QD):~7:*Qxlnm5I9R2[1lWp?R::v&B6:RD/;3:}pRNjh1]wMRZ54L0A4Rb@lm2>WRfQzi+wuRf^SIW]< !Rd-YqmU[R^AM[+/IRVfa*gFiRNplr,;*RH%py`~NR@]m5HQ_R<*k,~b_R8a=luPKR8XEyR;bR:RZBw^o !RBd6m@Q{RJxeZ{C0RR-`ERYJRV1e.7l>RX@q+%9`RXww?D>PRZ.\4EotRXpCxuZHRX67MjQRRRdB'>:( !RNZxcARmRJTo:;t5RFXwd*(LRBm<)9l'R@*&y`NeR<^6_@:aR:B9n3hLR6vB;&]7R6A1;^au #% [ 59] pd_l2.phase !S6~~S0ns+hR%Rv|/m%%%RVvahQ~~R8riH~~~Qyt_Q~~~RG_%MR%%Ra;%MQ~~ !Ry+hR%%%S/@U6VR%S1@xp2R%S37B3I%%S3{bwm%%S5XEa@%%S7&kG6~~S7CN(Z~~S7[VnDR%S7yq=hR% !SALq=hR%SGmK+@%%SKp>;)R%SOy)Z.%%SS]FL2R%SUuvQVR%SWp5gZ~~SYVG*qR%S[1'WqR%S[^='c~~ !S]-?JDR%S]PM=hR%S]lA(2R%S]}mahR%S]~C*I%%S]f=xc~~S],j'd%%S[+q%MR%SW|;zQ~~SW/hV)R% !SUI6JDR%SUj:g2R%SW]9t7%%SYebshR%S[uSog:Z~~S<\.9;R%S:HO7v%%S84sp[%%S4~EQ.%%S2sDrH~~S0nUwDR%S.nlZVR%RrXgc-~~R<1%z)R% !R/1K[v%%RM<~rqR%Rig'|?~~S-lM5_R%S1(5gZ~~S3:fCZ~~S5EMMzR%S7Kwq)R%S9PI]d%% #% [ 59] pd_l3.amp !Q%%%%%%%QX%PKU&ER.qllub_R2x1P9KdR6[T&P;)R8onS[Y`R:Xqi;9dR:sBo*,_R:g|_CR-R:?:dEf3 !R8YNDT9PR6dux<.bR4gJexYOR2h+m(:[R0l?Td3YR.xUYG7%Qx~FlEF4Qn7B0]bGQdg,3MC&Q^'(.Scc !QBe4EHSZiURFk84~cNR@KjKU-_R:tb<(m9R8RBfUUgR8J&OM[fR:DB}L*I !RBSwFJ({RJeg]}0ERPsX]{XHRTx*EVgHRX.,xvsXRXeVYjBaR@)AE6(JR<]e08zFR:Aa[xm|R6w1}1g2R6BF(*mM #% [ 59] pd_l3.phase !S<<+'c~~S8-K3I%%S4.0h)R%S0=1&DR%Rli0c~~~RN*,_Q~~R0H6-~~~R5GSDQ~~ROFhR%%%Rg]3H~~~ !S-S1*I%%S/Y3DzR%S1Vm12R%S3JHzzR%S51twm%%S5eP_R%%S70h)Q~~S7JR=@%%S7`0c~~~S7|6b_R% !SA>Rz)R%SGs-F@%%SK{)nDR%SQ.+t_R%SSnGC2R%SW.0h)R%SY(I~-~~SYh[ADR%S[BLwDR%S[obG7%% !S]>@ADR%S]a)f;R%S]|wP_R%S_4J0;R%S_4yRv%%S]vtG7%%S]=;V)R%S[;^VzR%SY1:[%%%SW>Bh)R% !SUWQ.%%%SUwqMzR%SWizIv%%SYr3U2R%S](S@MR%S_8-nm%%SaC]p2R%ScM@57%%SeW_iQ.%Skk^B?VR !Sooh0l.%Ssjo.12RSw[jn}7%S{P^>_R%T-S'z=hRT-b~+|hRT-qo[QVRT/%=&P_RT/4HK3I% #% [ 59] pd_l3.caps !SZ=spZ~~SZ=DMzR%SZ;j?~~~SZ95&m%%SZ5T|?~~SZ0wLZ~~SZ+;1Z~~SX~_%MR%SXw'h)R%SXnM%MR% !SXdq1Z~~SXZ:2R%%SXNTh)R%SXA[~-~~SX3L:Z~~SV}pwDR%SVlZ2)R%SVYSDR%%SVD;f;R%SV,ShzR% !SRxA4?~~SRMs7u~~SRJl6-~~SR?jhR%%SR*ZJDR%SPg.qzR%SPC'3I%%SNsS(2R%SNEh5_R%SLnra@%% !SL;e(2R%SJa1o;R%SJ+ieDR%SHP9';R%SFu)1[%%SF@W8m%%SDg(k6~~SD4gc-~~SB]cZVR%SB-z1Z~~ !S>og:Z~~S<\.9;R%S:HO7v%%S84sp[%%S4~EQ.%%S2sDrH~~S0nUwDR%S.nlZVR%RrXgc-~~R<1%z)R% !R/1K[v%%RM<~rqR%Rig'|?~~S-lM5_R%S1(5gZ~~S3:fCZ~~S5EMMzR%S7Kwq)R%S9PI]d%% #% [ 59] pd_m1.amp !Q%%%%%%%QLJcz=R6\pm]d !R>r(0e\mR@L4y\&0R@{3QKu&RBK\23U{RBqa^C.NRD9I~V-VRDUOywDRRDl%Zt@fRD}\.p_rRF1\OA8E !RFcx@C84RPZRYGLsRZ&8WxRZRdi~OW|qRru[y&5xS._^0D0'S0?6BUu,S0`f.\ZrS0dXKF?iS0O5Y_%U !S0(6lV)5R~xSRi([Rr}l`P0TRh<,y@ZNR^1.ABA4RTzs@_AmRNwfP2zRRL+R5e?:RJDeOSL[RJV=sL2R !RP8/%~zVRVVN\z)lR\%gy{|(R^H}ml*tR^~T{Y]^R`.wx/I[R^p&Dh@aR^/y]C:xR\.=+\DQ~~R4<&}6~~QH:62)R%Q{VZ.%%%R9pfCZ~~RG\;Z-~~RUWj\DR% !Rc[6JDR%Rq`:&DR%S-X3([%%S/<@RR2)q,NnRF`\0rUWR@~6Ew%fRWIT32ta/m%T3ArZ%v%T3Qo,SDRT3`w7z)RT3nU'3I%T3}f]Sm% #% [ 59] pd_m2.caps !SZ=~jhR%SZ=OH-~~SZ;u:2R%SZ9?zzR%SZ5_vMR%SZ0~fd%%SZ+F+hR%SX~f?VR%SXw2b6~~SXnT?VR% !SXdxKd%%SXZ=lVR%SXNXH-~~SXA_^2R%SX3Ot_R%SV}pwDR%SVlZ2)R%SVYSDR%%SVD;f;R%SV,ShzR% !SRxDnDR%SRN+L2R%SRK2~VR%SR@1VzR%SR*{8l~~SPgO`H~~SPC@ahR%SNseonTc~~S<\.9;R%S:HO7v%%S84p6VR%S4~EQ.%%S2sDrH~~S0nUwDR%S.nlZVR%RrXQnm%%R<0qEqR% !R/1VV)R%RM=3M)R%Rig/0@q1[R21+&IEIR2(]/6_JR0z7o7%IR0kI\U'3 !Qv{6ACqbQzOaYf@EQpNb[g&EQbjy7Q*iR0GBg~;\R8ho1UcRRBGR?YY'RJ6%AS,7RNQ~2)rmRP7'q4Dr !RNT{6{tCRJons-yCRFOccwzjR@maq;AmRbg[% !R}ex.GhR&m%%T-R^Z6.%T-bnIEI%T-qkZ^[%T/%J1NqRT/4ptSDR #% [ 59] pd_m3.caps !SZ=~jhR%SZ=OH-~~SZ;u:2R%SZ9?zzR%SZ5_vMR%SZ0~fd%%SZ+F+hR%SX~f?VR%SXw2b6~~SXnT?VR% !SXdxKd%%SXZ=lVR%SXNXH-~~SXA_^2R%SX3Ot_R%SV}pwDR%SVlZ2)R%SVYSDR%%SVD;f;R%SV,ShzR% !SRxDnDR%SRN+L2R%SRK2~VR%SR@1VzR%SR*{8l~~SPgO`H~~SPC@ahR%SNseonTc~~S<\.9;R%S:HO7v%%S84p6VR%S4~EQ.%%S2sDrH~~S0nUwDR%S.nlZVR%RrXQnm%%R<0qEqR% !R/1VV)R%RM=3M)R%Rig/R0yW;:XgR4[Y@0O^R8+1f4`%R:B|^U+gRF-`\SuR@6`&1GW !R@xJY}@fRBY04u1;RD5'1V*ARDeVhm12RF6zL[qVRF^]wS3QRH'9F^FhRHDUwOL2RH\_+%{=RHmpG8kG !RHzP{8=\RRrpe.KPRZ*J5Y5GR\hmN^K7R\\dYy&ERX`Vi^zZRRD{:~WARJt\E%6oRFg12}g[RFC|r8m% !RFc:d\btRF].8L[%RD^5VKt[R@lf4iOPRY[g:'|RF?o-|X@RJ|k>pJSRNixmx';RP{+4.bIRReXm)IYRT&Q'qsJRRshCN,;RP@vxOD) !RLa@X7M5RHna+-ZeRF'Ew1A%RBD%aE8PR>],&?O`R<>cVR%Su1ps?~~Sutoc~~~ !SyBDIv%%S{GT3I%%S}4[12R%S}\}6~~~S}k(&DR%S}f4\DR%S}`koc~~S}vgJm%%T-W9X;zRT-]yV1[% !T-b*|L2RT-cJe@MRT-c,o?VRT-ai^*I%T-_tsD)RT-]gAu.%T-[4ZB;RT-V{S0;RSwlP&l~~Seq?jhR% !Se/712R%Se.VnDR%SeC)5_R%Seea`H~~Sg4n}6~~Sg_s\DR%Si1;Iu~~Si^IY_R%Sk5?-~~~Smr^NqR% !Sq(*H~~~Ss9sH-~~SuD6)zR%Sw[Fx8R2%\1L,5R4cUKPu?R84tR%toR:NNtt\1RTs-^E1R@G%3gk7 !RB0D&'}xRBlSI9g;RDIo4,{qRD{[SxoDRFMxxH<5RFv>^_MzRH?&4[CGRH\)A<31RHs:ArVFRJ).x1N) !RJ0:H&Y|RT*(n4UsRZ:nmQ.rI)ws,QRO)TN\M !R4sIK)/4R>^'|`mNRFE@.FnYRL*FsC28RNt:0lV.RR,kgI8/RRp>sw,7RT.xE`-GRR{=O]|@RPGbw{z% !RLcR-u2URHp|dBx`RF'f{:KURBBDm1YsR>\CbL]+R<:C}LCwR8y2+Ea@R6D``49qR4DygN&k #% [ 59] pd_m5.phase !S=1PshR%SADh=hR%SEPpRv%%SIV_j@%%SMUYG7%%SQNiI%%%SUA`M)R%SY.IMR%%S[o(*I%%S_OKCZ~~ !Sc(|\DR%SeUat_R%Sg{\L[%%Sk?v--~~SmV4'c~~Sod`0d%%Sqil:2R%SseXD)R%SuWRel~~Sw>O?~~~ !Sy^?NI%%S{]lvv%%S}F&P_R%S}iyZ~~~S}u3fl-~~SuKP2zR%Sw`Th)R%SyhY?-~~S{}=+hR%T-ShNiI%T-]mSXhRT-h;6rqR #% [ 59] pd_m5.caps !Sp%x';R%Sp'1FhR%Sp*`Q.%%Sp0%]c~~Sp6X/l~~Sp=\DQ~~SpDNDzR%SpJXhQ~~SpOSLZ~~SpR~vv%% !SpTny2R%SpT}SDR%SpSIEI%%SpP3iH~~SpK9+?~~SpDgs?~~Sp[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] nb_k.amp !Q%%%%%%%QZFQ)\[~R09Ld-gZR4eiPvRER:+Q%-o\R>9RD}N-RB2GlA>'RDlOKYO@RH0i97MRRJ1TSc3= !RJov>Dj@RL8'eeVBRL@^,?zVRL4tx>g[RJs'GX7vRJK1ZUn(RHsub3'lRH@&rPukRFcoA(=LRF2qT~fd !RDJ7Rljp)eiiRtT^1&{5Rvfi{}BDRt?/~I\uRlbi(p1cRbfUQf?V !RX13mYuFRLs<`B3%RDmPjSL[R@}/sjL{RB\APM=hRFf-@bLORL8;)cQ_RPU~]lo\RTU*huLGRX54yO;{ !R^7e}w2bRb4dnPqfRd?bfl.%RddU+p'|RdKNr9bNRbbO1t1-R`Zq]?.%SK4`mMR%SKl2MzR%SMIeHVR%SM|s'c~~ !SOGtWI%%SOR)MzR%SO/oKd%%SM

_R%SKMMV)R%SK/bO?~~SK9[QVR%SK[vmv%%SM1\\m%%SMh4L2R% !SQG*qQ~~SU*4D)R%SWl`];R%S[ZJhzR%S_FlzzR%Sc+L{H~~Sea@%%%%Si7[ahR%SkdZNI%%Ssv<,_R% !SyXYSDR%S}~9h)R%T-fzx+@%T-{mg&DRT/4D)R%%T/GL@=@%T/XUYk_RT/h)}g[%T/x8Cc.% #% [ 59] nb_k.caps !Rj@D~VR%Rj6+3qR%Rhq;Am%%Rh>1Bc~~RfQBCZ~~R^s[12R%R\=]3H~~RXQ%-.%% !RTT8`qR%RPGbC2R%RL+S(2R%RFYdiqR%R@wvem%%R<+]3H~~R6't[MR%R.kZ^Z~~Q@0Ny[%%QU(='d%% !RCO9Sm%%R[JN];R%Regyk6~~RkQS`qR%RsNPcVR%R}MRmu~~S/'@EI%%S/`|p[%%S1Dk.u~~S3+;zQ~~ !S3m^.MR%S5Vo3I%%S7@4lVR%S9(pNqR%S9j7QVR%S;OdqzR%S=2}g[%%S=n/LZ~~S?M@56~~SA*oOhR% !SCVE([%%SE}=+hR%SII))R%%SKnURv%%SO7I))R%SQT9OhR%SSh]h)R%SUu)zQ~~SW|C:[%%S_.`U2R% !Sc%7]d%%SedkO@%%SiFKh)R%SkycRMR%SoGFlVR%SqlCs?~~Su1[%%%%SwH'Sl~~Sy\p:Z~~ #% [ 59] nb.rep !S6fny2R%S6glJDR%S6jl2)R%S6oc6-~~S6vXp[%%S8%>SDR%S8/qrI%%S8<7Y_R%S8J0x;R%S:WDzR% !S@E([%%%SB;^2Q~~SBw)EqR%SDR3iH~~SR+u)zR%SRtV5_R%STd-RMR%SVTBl-~~SXE8HVR%SZ6a'c~~S\(_)R%%S\u+3qR% !Sb'j+hR%Sf6?%v%%SjF=3qR%SnWCg2R%Sri_R%T8Nh~VR% #% [ 59] nb.lambda !SVohMzR%SVrU{H~~SVzxOhR%SX.Xp[%%SXA,[MR%SXWtgZ~~SXr;^2R%SZ5Bh)R%SZT2Z-~~SZskC2R% !S\97qzR%S\WGG6~~S\sQ%v%%S^2b7%%%S^HO7v%%S^ZQ:2R%S^hoWqR%S^sx?VR%S^|Vb6~~S`*0?VR% !S`PATd%%SVj:g2R%SNUYG7%%SL0;R%%%SJRW];R%SJCFhR%%SJLfh)R%SJfjP6~~SL2{eDR%SLbO?~~~ !SN?O7v%%SN|dMQ~~SPe3uVR%SRR79;R%STC7iqR%SV7k*qR%SX/VAl~~SZ*:&DR%S\'Z>7%%S^'NU2R% !Sb]p2R%%ShFSq)R%Sn9}.v%%St7/Tc~~Sz<{];R%T.Ui}_R%T.rxG_R%T06g.MR%T0U62)R%T2Z0';R% !T4B*,_R%T6+uNI%%T6qKx;R%T8^]p2R%T:M>{qR%T<=Ea?~~T>.cF?~~T>{>*qR%T@n~nm%% #% [ 59] nb_l1.amp !Q%%%%%%%QZ=n3oDnR07d=oo&R4c4XRzrR:(,Y;8,R>5NYZE-RB-pv|{zRDfV2W&}RH*pYwARJo1k^EzRJE{,I]dRHoyhf_zRH:;gy0tRF]N&DCKRF*Pn)>W !RD@`k&m%RJI&U2-WRV:VrjU*Rb7:r[aDRlfoI1^;RtSTeN8mRveymOqJRt@NoRbfejO5t !RX0Rb6`V.S}RdDz?F`mRdgGGB?{RdN_SBW)Rbe%~Nw?R`]4blnqR^DK%1{IR\'5\s?LRRj=S~;) !RN0=N8vPRHVy,h/`RD74lpg{R@M>PkwWR7%S=NO{y[%S?G/zj@%SA9(RQVRSA}`{8m%SC`9c6.%SE9]nIirSEbp|,{r !SGBlCs@%SG&m%T-{m%IMRT/4F:Bd%T/GQ(g2RT/X\S,7%T/h2%MR%T/xAMnDR #% [ 59] nb_l1.caps !Rj<97MR%Rj1}&l~~Rhm6nm%%Rh:7iqR%RfMJ@MR%RdMK/DR%Rb:iY6~~R^p:[%%%R\:NqQ~~RXN%EH~~ !RTQNmMR%RPE-)zR%RL)/}7%%RFWP?.%%R@utO@%%R<)eq)R%R6&1s?~~R.i|p[%%Q>{Sy2R%QU63k_R%S;OhQ~~~S=3+'d%%S=n3,_R%S?MCo;R%SA*s/l~~ !SCVHb_R%SE}@em%%SII))R%%SKnURv%%SO7Lc.%%SQT9OhR%SSh]h)R%SUu)zQ~~SW|C:[%%S_.`U2R% !Sc%7]d%%SedkO@%%SiFKh)R%SkycRMR%SoGC2R%%SqlCs?~~Su1[%%%%SwH'Sl~~Sy\p:Z~~ #% [ 59] nb_l2.amp !Q%%%%%%%Q:[j%0v^QP24(i1.QdNn*vEIQxJ/@y:[R0*~7+P7R0suh[b3R2Uv:,9'R4';%DGtR4@+K>0x !R4F,}{j8R4;Dvy:[R2{t[:vzR2WQMnsuR2*{K';RR0T9ooC[R.{mvL%1Q~7fMHEQQtDS1rXHQlRBe]T\ !QpL43?xTR2z:C2o3R:vNHwdvRBPH45{)RJ7O_(TTRP42Q.,?RRjr)kL*RRk}R+A]RP?A_mo/RJ`3'zb7 !RD0mh0zbR<5~>6~~R4:8.>eYQ~[-Ob5GR03H^ifBR6*6>KJ,R<..sO5tR@n,k)VrRF/=W'V:RJ)=%f03 !RPfy-1(GRVA*C878RZ)`/dP-R\'e?cqHR\D|-T?eR\5]NVXMRZ^q-gFsRXptlrqRRVudfom3RPL%z&sm !RL6@>b?RRFulpI^'RBgSDR?;R@22Oeu]R<7%pVnpR:+-{PvRR6k]9bPbR4NXX^(1R2~-:W7O #% [ 59] nb_l2.phase !RT4hR%%%QL_R% !S9]_V)R%S;Jxh)R%S=8?:2R%S?&UwDR%S?pQb_R%SAbt2zR%SCY=P6~~SEV9?VR%SG]dmv%%SItNQ.%% !SSS0;R%%SWS2=hR%SYK3H~~~S[Hpo;R%S]EeDQ~~S_9Zb_R%Sa&Kl-~~Sag'WqR%ScHq9d%%Se%(:[%% !SePnP_R%Seh2%MR%SeIu6.%%Sa>n,7%%SYt~b_R%SWhQ6.%%SWfK?VR%SY+qnDR%SYXfOhR%S[12Q~~~ !S]Xzf;R%S_{7Y_R%Sc@K+?~~Se`j\DR%Si&yi4hRSkBs]|@%SmY7IMR%SokA(ZZVSqz:.MR%Sy4LDf;R !S}<-NI%%T-\D?jhRT-le:k7%T-}8y{I%T/1tlrqRT/A>2zR% !SR,FlVR%SPv?fc~~SPe,[MR%SPRk*qR%SP?G.u~~SP*|'d%%SNoNU2R%SNXkC2R%SN@tk_R%SN'\@MR% !SL)|T;R%SJ3}_Q~~SHnW0d%%SHe>K;R%SHS`qQ~~SH98`qR%SFq^{I%%SFJWU2R%SDxys?~~SDI^Ru~~ !SBqG*qR%SBMi,_R%StR47kE&uw !R4>5%@12R43}Sp:[R2u1Q:62R2QBI'*vR2%Bn~\YR0N|3+SMR.vd6j*UQ|]HEsEaQrdlW=}WQjhV(IY` !Qn<.>N|qR2mZHX/mR:f>S5wmRB=e(y84RH}br:vVRNz:W0UKRRWZRpr-RRZ0'H\}RP/9mKW)RJR;)CJm !RD%31HcNR<,`OP7%R42Ng.BXQ|e>M?7fR0+84wVPR4{H*fPWR:}r@F\ER@bD6Uc.RD|1PJ6gRHt{JeVB !RPVNco,SRV/U2~Y*RXrIx]k1RZq{7k8dR\74a1dAR\)e`:7PRZSls;(QRXfJWy[%RVl:\yn>RPG|TYNX !RL2zw5.vRFsc^S0JRBf~*va.R@1EgVQbR<6^8\owR:+>ki~lR6kEa:'%R4Nz<1yUR4%F(9e5 #% [ 59] nb_l3.phase !RL`M)R%%QC`H~~~~RM@EH~~~RmahQ~~~S/-&@MR%S1B*uVR%S3H}G7%%S5E)%MR%S79Bl.%%S9(O`H~~ !S9nvADR%S;Z:VzR%S=Ecfc~~S?24'd%%S?zCJm%%SAk&l~~~SC_hb6~~SE[3}_R%SGaDrH~~SIwQrqR% !SS]Mf;R%SW`l^Z~~SYXxc~~~S[WK';R%S]T?VQ~~S_HYC2R%Sa5JL[%%Sav&8DR%ScWot7%%Se3\LZ~~ !Se_Hb_R%SevAhzR%SeXOH.%%SaL?rqR%SY}h%MR%SWq(>_R%SWoJP_R%SY57mv%%SYbPwl~~S[;:.MR% !S]cf?VR%Sa,*M)R%ScJa;zR%SejBp2R%Si014T;RSkLVkwm%SmcXT;R%SoutG_-VSs*EDzR%Sy>6ljhR !S}G'[v%%T-]Aj|hRT-mj&,7%T-~FoG_RT/2wh1[%T/BLsdMRT/P~T+@%T/^tHJDRT/klJhzR #% [ 59] nb_l3.caps !ST%AhzR%SR~KWqR%SR{h~VR%SRwCc.%%SRq5_Q~~SRiImv%%SR`)nDR%SRU6zzR%SRHtshR%SR;>2zR% !SR,FlVR%SPv?fc~~SPe,[MR%SPRk*qR%SP?G.u~~SP*|'d%%SNoNU2R%SNXkC2R%SN@tk_R%SN'\@MR% !SL)|T;R%SJ3}_Q~~SHnW0d%%SHe>K;R%SHS`qQ~~SH98`qR%SFq^{I%%SFJWU2R%SDxys?~~SDI^Ru~~ !SBqG*qR%SBMi,_R%Sd`wj}RL}nw>odRL[(sU1cRL4aV(|\RJfNuSYWRJ@m:fv^RHx_T%l>RH^@vQ.I !RHLr-aDrRNdI|,P/RZ`-r6MZRfE5B2O4RpJ1g)hbRv]=q~GxRx?.HXj0RtO:SvH_Rld@,{:oRbrQggA, !RX]{)g*IRNmaUpGWRH054_Z.RDCK>3/,RDY80](*RH43fx_zRL:lNp%1RP>Clnm%RT,08U5hRV\_-09P !R\StI,r1R`IB0CLKRbP&8>gbRbq0)*oxRb^N^\d-R`}YESmQR^}YGu(JR\j\GQ%-RZRWs:?lRRJ&&PBD !RLpQ|6OdRHDB2ec7RD'6BC@'R@AL:B'rR<>k:KIAR:..92GtR6nnprYqR4u)X{y[R63b'yK7 #% [ 59] nb_m1.phase !S4kn,6~~S0[l>6~~RlgK|dMRRFl?nl~~Q5%QVQ~~RG/y{I%%Re>'7MR%S-^`l:2RS/{wQNI%S38QrqR% !S5IAwTd%S7U'|@%%S9[rL:[%S;]e`M)RS=Z:.qzRS?Pur([%SAA&y2R%SC)p-:2RSCdPQ%-.SE<0+dMRSGRmXp[%SGr*K';RSI.Q'/DRSIE08G7%%SMq[em%% !SQLjlVR%SU-\4?~~SWnj3qR%S[[{[MR%Si9V^2R%SkfN0d%%Ssx7))R% !SyZ_Iu~~T-R*ot7%T-g.j`I%T-{z0G_RT/4ODMzRT/G_<0d%T/Xd3}_RT/hEB/DRT/xU1>_R #% [ 59] nb_m1.caps !RjnT?VR%Rjc~ZVR%RjDX+hR%RhjT;Q~~Rf|=X?~~RdzY?-~~Rbe|lVR%R`?<}_R%R\ai8m%%S9'R57%%S9hvqzR%S;NQRMR%S=1uB;R%S=m1{I%%S?LM^2R%SA*1Rv%% !SCU~:2R%SE}5k_R%SII,cVR%SKnY2zR%SO7I))R%SQT5oc~~SShZ-~~~SUu&@MR%SW|Ft_R%S_.d56~~ !Sc%7]d%%Sedo/DR%SiFOH.%%SkycRMR%SoGFlVR%SqlGSDR%Su1[%%%%SwH'Sl~~Sy\p:Z~~ #% [ 59] nb_m2.amp !Q%%%%%%%Q81k{dgoQJvM}hR2ph=.57R4Il~Qm5 !R4oQOqQ6R6-c\b{)R68._Ph%R66P@[ZNR6)V8w_^R4mN[YBDR4NaR9;RR4'zdb+`R2T/Hs`IR0x=\G)^ !Qjp|PHQ_Q<9l-h(?Q2O,Hnm%QbTaB*uWR2=62oPWR8=V%LIZROz?O)BR>B`ehzRR<46@A=8 !R86:n'*-R2`^Y*([Qr.w-k2zQR:2Q4DU;R>,G:AT@R@k;[;tK !RHA~oT[vRN6ll'|]RRLM|NWhRTzL~vfcRVij?ZphRX'-zR?\RVr_OsWnRVJ.Gr};RTjbEG~[RNyXKyvz !RJw<&GpDRFi-@zo0RBaR0N:wR@/I0sK&R<5cXvS4R:*%Uyc5R6jk2`+^R4OrSpOhR4()2y.; #% [ 59] nb_m2.phase !S.]dIMR%RXJ(2Q~~R4`eDR%%R33iH~~~RKLZ~~~~R_[v%%%%Rq5K;Q~~S-X/HVR%S/;ZRMR%S/v34hR% !S1Udel~~S35?vv%%S3o4\DR%S5O)Am%%S7.H^Z~~S7fIahR%S9BA4?~~S9u1_)R%S;J,7%%%S;sspZ~~ !S=_0l.%%S?16VQ~~Q]`qQ~~~RIQzzR%%RUp6VQ~~Ra3eDR%%Ri}*qR%%RsTx;Q~~R}?JDQ~~S-vj`H~~ !S/G4|hR%S/jMj?~~S/r2Al~~RaTx;R%%RtT/DR%%Rz:g2R%%Rr8_R%%%S/BPShzRS1ax)b7%S3{qR%%%S77[+mEIS9J*-NI%S?f|G?.% !SCsDrH~~SGmREH~~SK`IIMR%SOSl6-~~SS4D)R%%SUv++hR%SYSh1[%%S],j'd%%S_T;-VR% #% [ 59] nb_m2.caps !ST%W];R%SR~aL2R%SR{~rqR%SRwYWI%%SRqKSm%%SRi_b6~~SR`?b_R%SRUI56~~SRI0h)R%SR;PG6~~ !SR,Y&m%%SPvQzzR%SPe>od%%SPR}?-~~SP?YC2R%SP+4;zR%SNo]/DR%SNX}WH~~SNA-%u~~SN'jt_R% !SL*1.MR%SJ4.Y_R%SHnb*qR%SHeIEH~~SHSkk_R%SH9CZ~~~SFqiuVR%SFJf/DR%SDy*mMR%SDIm--~~ !SBqU_)R%SB=)f;R%S@a.Y_R%S@*OP7%%S>Mw`qR%SG6~~S:cf?VR%S:1NqR%%S8ZR))R% !S6@KOhR%S4.4H.%%S0yHjhR%S.j5*qR%Rlz-zzR%RVQ}G7%%R@j@%%%%QtAWy[%%R/8+H.%%RccC*I%% !S-m)rH~~S1:?)zR%S3^X3qR%S5|_Z-~~S94}{qR%S;EzIu~~S=R;b6~~S?UfCZ~~SAXspZ~~ #% [ 59] nb_m3.amp !Q%%%%%%%Q6s?L/J}QHb~hFUOQZJ?>WL_Ql%W`^YlQ|H@y28QR02@;v\,R0uOtQ6pca>`eQhJa?J2>R2YCV+j0R8YzoH4uRffU'mfR>U.@9uoR*GUk7%QXAWaEO,R0<_JsP7R4j{|SL[R8~<9d_BR7 !RH,qd3 !RJqqHx9WRFes;)Q~~RYCNqR%%RuCo;Q~~S/KHJhzRS1k6i0d%S5+ft6~~S7AfB@EIS9S_{@v%S?o{XH.% !SC}ShzR%SGvQVR%%SKj>k_R%SO^i}_R%SS>5k_R%SW'>gZ~~SY_Q6.%%S]78LZ~~S_`W4hR% #% [ 59] nb_m3.caps !ST%W];R%SR~aL2R%SR{~rqR%SRwYWI%%SRqKSm%%SRi_b6~~SR`?b_R%SRUI56~~SRI0h)R%SR;PG6~~ !SR,Y&m%%SPvQzzR%SPe>od%%SPR}?-~~SP?YC2R%SP+4;zR%SNo]/DR%SNX}WH~~SNA-%u~~SN'jt_R% !SL*1.MR%SJ4.Y_R%SHnb*qR%SHeIEH~~SHSkk_R%SH9CZ~~~SFqiuVR%SFJf/DR%SDy*mMR%SDIm--~~ !SBqU_)R%SB=)f;R%S@a.Y_R%S@*OP7%%S>Mw`qR%SG6~~S:cf?VR%S:1NqR%%S8ZR))R% !S6@KOhR%S4.4H.%%S0yHjhR%S.j5*qR%Rlz-zzR%RVQ}G7%%R@j@%%%%QtAWy[%%R/8+H.%%RccC*I%% !S-m)rH~~S1:?)zR%S3^X3qR%S5|_Z-~~S94}{qR%S;EzIu~~S=R;b6~~S?UfCZ~~SAXspZ~~ #% [ 59] nb_m4.amp !Q%%%%%%%Qh=,t=3)R2[Y}AMJR8kRK+Z;R>l69`iIRDVMO)^{RH|OZ||HRL~kl\v_RPYWZd%|RRg40@=G !RTP}gs*1RTvcfFp[RV)P{bwmRT~pTrJ]RTj_y@.fRTISsf+@RRxa;1[%RR@NNGk_RPYK)JsPRNfq:Yo@ !RHCl[(|8RFgAe_+0RHbT>w^KRFnbksw,RBB~Jt}+RtV\Kzb !R>t5[\,7RRB2;ui'9R>[X6f8~R:g`/4%'R8^9lwPQR6NH9eK@R4)7JdX/R2/F2P/S #% [ 59] nb_m4.phase !S68MIv%%S2(VV)R%Rv+T;R%%RP5gZ~~~Qnel~~~~R=VV)R%%R[Y_Q~~~RwXH.%%%S/NsT;R%S1ceu-~~ !S3r\L[%%S5|(wDR%S9&3uVR%S9~k2zR%S;wA`qR%S=i&4@%%S?S;~VR%SA4]WqR%SAf7))R%SC3IIMR% !SChY?-~~SCs=X@%%SCy'3H~~SC\S,6~~SCOlVQ~~SE(Ug2R%SG_,gZ~~SKPuF?~~SMgq=hR%SOW'l-~~ !SQ5y&DR%SQjkg[%%SSMrH~~~SUK*,_R%SY)zR%%%S]SB+?~~SaoyNqR%SeAKG_R%Sg:\8DR%SgurqR%% !Sk'bG7%%Sko[v%%%SmOqIv%%So,EY7%%SodJ_CJm% #% [ 59] nb_m4.caps !SbZ+3qR%Sb]aX@%%Sbh,C2R%SbxT7MR%Sd3Y[MR%SdKbG6~~Sde:FhR%Sd~aL2R%Sf_R% !Sfe2=hR%SftQfd%%Sh&B+?~~Sh.`yZ~~Sh3W}_R%Sh59Kd%%Sh3mqzR%Sh/SP_R%Sh(O;zR%Sfxoh)R% !SfLWiI%%Sdum57%%SdkZ^[%%Sdn5wm%%SdlB;R%%SdiF3qR%Sdf47v%%Sdc4P6~~Sd_|T;R%Sd\({H~~ !SdVXt_R%SdNb.u~~SdCo;Q~~Sd5TWqR%Sb}od%%%Sbhxt6~~SbP~b_R%Sb6KWqR%S`swP_R%S`V9c~~~ !S^fia?~~S^%ADQ~~S\F?6.%%SZik&m%%SZ0.U[%%SXLzZ.%%SVjWuVR%SV3bwm%%ST]QF@%%SR-@]c~~ !SP,l)zR%SN;R%%%%SLIW];R%SJZo7MR%SHuxSl~~SH4E_R%SDs+D)R%SD81s?~~ #% [ 59] nb_m5.amp !Q%%%%%%%Qh?P{+SMR2\+8_+0R8lD2Iy>R>mHTbdERDX4wTmPRH~mZHhTRN'mon2mRP]AZshlRRkd/r97 !RTV5:;B\RT|HY%~.RV/F(m1{RV*U<~kWRToZC32BRTM'u`8mRRz3h5_RRR?FygA,RPUAcN:KRN_[qKP3 !RH4Bmg}pRFSzo<2BRHJEp*|(RFRe9b*)RB%|Ti*]R<,Be>5GR8Qwt>FHR:8n'2.ERu0)sc_ !R>uMj1JmR}ceRT~Jqgi-RT~~zEepRTb7t,d,RT/XHy,pRNGf-82m !RJG&LhghRF9b&Ph\RB1VE_=iR>YCg>nnR:fE:g6SR8\da2VrR6LG\d^aR4'yXwXaR2-syb'J #% [ 59] nb_m5.phase !S4wp_)R%S0gv12R%Rp/LZ~~~RJ9_zQ~~Q42zR%%%RCQnm%%%RaT/DQ~~R}Q^[%%%S/h~VR%%S1}WH~~~ !S52%qzR%S7:vz)R%S9>C{H~~S;<.ahR%S=3ZJDR%S=~P&l~~S?g.))R%SAFqnDR%SAw7z)R%SCBlRMR% !SCsSL[%%SC|Ywl~~SE&A~b_R%Sg8Y{qR%SgspZ~~~ !Sk'bG7%%Skq9d%%%SmQs`H~~So-}G6~~Soe93I%%SqEU{H~~Ss%QzzR%Ss]5od%%Su9N0c~~Sy'ys@%% !S{>g6VR%S}MZ.%%%T-Wqd9;RT-buB_zRT-lvgJm%T-x%.ADRT/(hPk_RT/4R_R% !Sfe2=hR%SftQfd%%Sh&B+?~~Sh.`yZ~~Sh3W}_R%Sh59Kd%%Sh3mqzR%Sh/SP_R%Sh(O;zR%Sfxoh)R% !SfLWiI%%Sdum57%%SdkZ^[%%Sdn5wm%%SdlB;R%%SdiF3qR%Sdf47v%%Sdc4P6~~Sd_|T;R%Sd\({H~~ !SdVXt_R%SdNb.u~~SdCo;Q~~Sd5TWqR%Sb}od%%%Sbhxt6~~SbP~b_R%Sb6KWqR%S`swP_R%S`V9c~~~ !S^fia?~~S^%ADQ~~S\F?6.%%SZik&m%%SZ0.U[%%SXLzZ.%%SVjWuVR%SV3bwm%%ST]QF@%%SR-@]c~~ !SP,l)zR%SN;R%%%%SLIW];R%SJZo7MR%SHuxSl~~SH4E_R%SDs+D)R%SD81s?~~ ifeffit-1.2.11d/src/fefftab/40.dat0000755000175000017500000003577010771740460015476 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] zr.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] zr_k.amp !Q%%%%%%%QX\wOR4Ptm~vvR8i2eCPtR+ubn,RJ>7_Am%RJ)j4RFq599OhRR=hf%~RR\bdkZ{iRf4]+:40Rjyb9)LCRlF|y~^[RhMP*([%R`d/*J\mRVsSAjc: !RLmWPQB;RDK[%,?.R>~>Ho{|qRJ({+VE)RNc]N>VZRR}<)N=`RVqj7p40RZGk{QK3 !R`*l~uT+Rbcx5m2FRd]r?Aq)RduUGc*iRdW2F'UKRbdF1'zqR`RB6]_eR^32-OlHRZknA0%^RRGg[X4o !RLgQeuNmRH.y7>OdRBiVgz,5R@&E>T/'R<%8gm:DR8oN+of=R6S46n|AR4Ym\<0YR4gg~H}a #% [ 59] zr_k.phase !S04WF3qRR`nGyo;RR8+Sq)R%R9QkWI%%R]ua'd%%S-\-C*I%S18cmY_RS3e-%u~~S7-Rn@MRS9FP|;zR !S;VQ'Sm%S=^+?6.%S?]i1wDRSAUw'C[%SCFh\y2RSE0+qXP7SEk[@go;SGDZ.f[vSGn<30d%SI3cIU[% !SISw%ADRSIC^Lo;RSIOWTh)RSIeYbC2RSK-M~VR%SKZMZ.%%SM3:Jl~~SMhv))R%SOBny2R%SOn/LZ~~ !SQ)d9;R%SOog:[%%SO%go;R%SM&(2R%%SKUG{qR%SK]BG_R%SM)b7%%%SM`=`H~~SODPG6~~SQ+_5_R% !SSt0x;R%SW^,K;R%S[I3}_R%S_7qzR%%Sc%IqzR%Seest_R%SiCZZVR%SktlNI%%SoFu)zR%SwV(c-~~ !S}80;Q~~T-`T-fd%T-uNWY7%T/04\DR%T/BlYg[%T/UPH%v%T/fZiy[%T/um-vv%T1*l/8DR #% [ 59] zr_k.caps !RXy1>_R%RXnT?VR%RXNj\DR%RVt0/DR%RV+5O@%%RT(Sdu~~RPlyg2R%RNE8m%%%RJf3mMR%RFvV%MR% !RBw%el~~R>h(c.%%R:J)EqR%R4w+H.%%R0:z5_R%QV'UJl~~Q17?B;R%QqFi@v%%R3_Q~~S1Q%u~~~S35}shR%S3wp_)R% !S5ab&l~~S7LIY_R%S978LZ~~S9{<([%%S;cljhR%S=JL6VR%S?.xKd%%S?kA0;R%SAKaX?~~SC*0d%%% !SEUrQ.%%SGzs7u~~SKD?jhR%SMh`4hR%SQ24'd%%SSP\_R%Smt-b_R%Sq@xKd%%SsdZrqR%Sw*52zR%Sy?VvMR%S{Rd57%% #% [ 59] zr.rep !S6h:Ru~~S6i;^2R%S6l7em%%S6q2Iu~~S6w~JDR%S8&d--~~S81=L2R%S8=]3H~~S8K^Bd%%S8[DZ-~~ !S8l_%MR%S:%Oxc~~S:9j+hR%S:OW,_R%S:fia?~~S<%D5_R%S;\0;R% !S@Ej7v%%SBy&DR%SR,\`qR%SRu:2Q~~STdgo;R%SVT}.v%%SXEo+?~~SZ7=dMR%S\)8,6~~S\uZVQ~~ !Sb(;nDR%Sf6g.MR%SjFa\DR%SnWdUZ~~Sri]_zR%Sv|7-.%%S|5CVzR%T.U[IMR%T.iXH.%%T0KhrH~~ !T0sxd%%%T2B5od%%T2jP[MR%T48o';R%T4a7-.%%T6/Y2zR%T6W{8m%%T8&Fxc~~T8Nh~VR% #% [ 59] zr.lambda !SZ`RADR%SZcUc-~~SZlQ:2R%SZ{+L2R%S\4p6VR%S\M-VR%%S\i([%%%S^-gRv%%S^N-rqR%S^o';R%% !S`5G[MR%S`T,SDR%S`p.qzR%Sb.\,7%%SbB}SDR%SbS&y2R%Sb^bcVR%SbfYO?~~Sbk_-VR%SboJ,6~~ !Sd1/WI%%SJpI~.%%SJwo';R%SL6xx;R%SL\p_)R%SN2]h)R% !SNjA\l~~SPNPcVR%SR8/q)R%ST&XhR%%STs3M)R%SViOP6~~SXc2)Q~~SZ_q~VR%S\_I--~~S^aQnl~~ !SdD'OhR%Sj3L:Z~~Sp.9;Q~~Sv352zR%S|AF/m%%T.`-NI%%T.~2)Q~~T0Bx;Q~~T0bL*I%%T2j[UZ~~ !T4Tu%u~~T6A:FhR%T8/MIu~~T8yI56~~T:j|hQ~~T<^)5_R%T>RU6VR%T@HEQ.%%TB?I12R% #% [ 59] zr_l1.amp !Q%%%%%%%QXIglFC_R0'kiW0GR4J\r.=@R8_^n>&mRSwUR\L.w{kKRf&3hFf9t7R>}LL/N]RD6w4-IzRJ))8J-&RNh\PidVRT+.G^x|RVzpxbk`RZPwbK_{ !R`7:qc`9Rbp(>+gcRdhw3>shRf'Peb{)RdbE.}6eRbn+@RZr>s0+lRRL<@=R9 !RLjySePQRH1I(g+8RBkhPKUGR@'z}o\eR<&FV`~hR8pPShzRR`VrWY7%R6k^c-~~R9oKd%%%R_>Qfc~~S-`;@~.%S1=[8L[%S3jnj|hRS74-r([%S9Mm}cVR !S;^O-F@%S=fXgc.%S?fVpFhRSA^iN7%%S_6x/DR%Sa~ZzzR%See.]d%%SiBoC[%%Skt.QVR%SoF>G6~~SwUZZVR% !S}7b2zR%T-`R=dMRT-uNxG_RT/08]7MRT/Bssp[%T/UXjT;RT/fed-.%T/uwa;zRT1*wJ4@% #% [ 59] zr_l1.caps !RXiRADR%RX^|\DR%RX?GSDR%RVe-nl~~RTv[=?~~RRtRUZ~~RP_U:Z~~RN8N];R%RJZ1:Z~~RFk>cVR% !RBlP&l~~R>^Au.%%R:A*4hR%R4nj3qR%R03Bx;R%QT;lfc~~Q1w/q)R%Qs'7))R%R3B<@v%%R9}7%%%% !RShw6~~S-hHb_R%S/;ZRMR%S/pc.%%%S1QFdMR%S36Db7%%S3x3mMR% !S5a{U2R%S7Lc-~~~S97QzzR%S9{UVzR%S;d,?.%%S=Jb*qR%S?/0_zR%S?kSDR%%SAKp2Q~~SC*?>7%% !SEUyk7%%SGzs7u~~SKD?jhR%SMh`4hR%SQ24'd%%SSP\_R%Smt-b_R%Sq@xKd%%SsdZrqR%Sw*52zR%Sy?VvMR%S{Rd57%% #% [ 59] zr_l2.amp !Q%%%%%%%Q2RhQ'SmQ@2*_z}hQN%G/I6oQ\,^8u5?QjCMI`rAQxSe\2b7R.p5V.EIR0LL-^[%R0w[`y[% !R2:Yg=p[R2H2nbH&R2Eha|YxR25xj/HVR4HgoL]pQrwygXIfQl(1q-e,R2UWu*iIR8sJ;F)fR>qX+aySRDICEw)FRHUNZH3aRLBpVzR% !RReSskv5RV~D>-`oRZRv5cO8R\D}D,2hR\ZQ|nU.R\A?\8M}RZ`/\pQyRXjZvM4qRVj?h8btRP1*MP4\ !RJrqp.cFRFSC}SG*RBDWN*VcR>gyq)qDR:p&m%%SGQ/8DR%SIccNI%%SM+vahR% !SUr52zR%SYo>gZ~~S[iM)R%%S]fE8m%%S_bh%MR%SaW:&DR%ScCvUZ~~Se+b&l~~Seh2%MR%SgD8,7%% !SglO7v%%Sgs.~.%%SeRADR%%S[f>g[%%SW~_%MR%SY%Xp[%%SYM*eDR%S[(i}_R%S[ccNH~~S]F/m%%% !S_}Dj@%%ScMYcVR%Seot6~~~Si69G;)RSkU_-2)RSmq~2)R%Sq/Smmv%SsBYlNI%SuPq/XhRS{a?pJm% !T-Xf+@%%T-iUpNqRT-ymaD)RT/00[QVRT/>lNH~~T/MlX/m%T/\:%z)RT/j,::[%T/v=G?.% #% [ 59] zr_l2.caps !SRAW0c~~SR@Y_Q~~SR=dqzR%SR8u-~~~SR2>{qR%SR)rmMR%SPygVzR%SPm~RMR%SP`hZ-~~SPR--~~~ !SPB-B;R%SP0t6~~~SNxQF?~~SNe&0;R%SNPP.v%%SN:x|?~~SL~JDQ~~SLfmADR%SLN-rqR%SL41Jl~~ !SJ5x[v%%SH@VIv%%SFy`a@%%SForY7%%SF^B?VR%SFD,C2R%SD}+`I%%SDVpk6~~SD,6ZVR%SBWo+@%% !SB&;Z-~~S@L;Iu~~S>pNqR%%S>9l.%%%S<\op2R%S<&+lVR%S:Itk_R%S8nRahR%S8:@=?~~S6a^FhR% !S4E8HVR%S23[]c~~S0'y6vlT+QLcgE~d=QZc1?qH>QhsYT/H2Qx%OA?^[R.kC[B3IR0G]z't7R0s&O6>7 !R26BrvEIR2DEAa}WR2BFof=0R22`Q~@_H8F0QtZdic_JQlg}kRgo !Qp~+^b,tR2i=BR~.R:E]G)waR@Q5WMF`RFUvEQ&eRJkvvD[em%Qj>4&fSmR2NO^6e,R8jn\HVRR>g?q_:wRD=YnleQRHHFNHlkRL4l:8Bt !RRUMRx.VRVmvW/EERZBhzkSDR\69KEh6R\Mbr9n0R\6>/]bNRZVgJ`^vzR:o{|EznR8fWIe%WR6NEvt0[R4:2Km^tR2d^->T3 #% [ 59] zr_l3.phase !RJgo;Q~~QW.v%%%%ROB?VQ~~Roq)R%%%S/9T[u~~S1Q?JDR%S3[n@MR%S5[xKd%%S7TG_Q~~S9Gnu.%% !S;8R=?~~S=(84?~~S=rMMzR%S?d@U[%%SAXhvMR%SCPt{qR%SENF3qR%SGSvem%%SIeHVQ~~SM-B;R%% !SU{Bx;R%SY{ehzR%S[v:s?~~S]sf+?~~S_pS@MR%SaeIiqR%ScRPgZ~~Se9qj?~~SevAhzR%SgRGod%% !Sgz^{I%%Si(-^[%%SeadMR%%S[nl6-~~SY,NQ.%%SY-t*qR%SYUc-~~~S[1^:[%%S[liyZ~~S]OL2Q~~ !Sa-=lVR%ScWhZ-~~Seyb?-~~Si?G2V)RSk^L)~VRSmz}C2R%Sq9,'[v%SsLRndv%SuZP]OhRS{jI{a@% !T-Yh>{qRT-jPI9;RT-zl[iqRT/19G_R%T/?m8q)RT/Nt}O@%T/]H}k_RT/k0^g2RT/wM,g[% #% [ 59] zr_l3.caps !SRAW0c~~SR@Y_Q~~SR=dqzR%SR8u-~~~SR2>{qR%SR)rmMR%SPygVzR%SPm~RMR%SP`hZ-~~SPR--~~~ !SPB-B;R%SP0t6~~~SNxQF?~~SNe&0;R%SNPP.v%%SN:x|?~~SL~JDQ~~SLfmADR%SLN-rqR%SL41Jl~~ !SJ5x[v%%SH@VIv%%SFy`a@%%SForY7%%SF^B?VR%SFD,C2R%SD}+`I%%SDVpk6~~SD,6ZVR%SBWo+@%% !SB&;Z-~~S@L;Iu~~S>pNqR%%S>9l.%%%S<\op2R%S<&+lVR%S:Itk_R%S8nRahR%S8:@=?~~S6a^FhR% !S4E8HVR%S23[]c~~S0'.-RVO%D(uBR`[w9t>?Rh`FwD}hRlyi{-rrRl{E[sy.Rhg:q&J}R`x/TbUkRX=tZ;[f !RNX~]62rRF\dPuMZRBDpt[F8RB8|&:JIRDkz{[1{RJ+w]5~>RNGr8rotRRN[O6EQRV7S?{iIRXb2l8({ !R^C>yg{IR`yom+P7Rbnj_5Ev(wuP~R:w?8s'GR8hohqT=R6ND7\>KR4V/rW-NR4c`jd`N #% [ 59] zr_m1.phase !S0G[|t_RRf&}7%%%R7%% !SSy[%%%%SWabod%%S[KZb_R%S_9lvv%%Sc'L.MR%Seh9?VR%SiF29c~~SkwGg[%%SoII))R%SwXDMzR% !S}:ZZVR%T-`baxd%T-u^Z~~~T/0Cx3I%T/B|O@%%RXEd12R%RVUNqR%%RTQlrqR%R3+C:[%%R9gjlVR% !RSW8HVR%Rk;IQVR%RuXWQ-~~R{7mv%%%S-e>&m%%S/8m%%%%S/n1NqR%S1O29d%%S34;1Z~~S3vR6NB0zpk !R86Uui\MR8bDp:eyR8y=\]>hR8yqQK|@R8hHj3>OR8Gl3l:2R6t+aA&0R6;mWxzbR4UT|VZwR2gg}wDv !Qt'v`5+`QFph1skhQ:tJ1~:3QbZ+qq]hR0n}0S+HR6>z+/m%R8|sW,_RR:\{GPayR:9cJ+eRBm5:QxT !RJ-?~v}?RNic,>aFRRsjfB]TRVBhH,CWRX-`Fr\TRXkqfRNd%;&-N !RJ]lQH(FRFI'1P`mRB?g-eu.R>f%PYaqR:o4z|/mR8e=p3k5R6MM(1GIR4:PVn/%R2f\RD9@ #% [ 59] zr_m2.phase !S2Im--~~RzmEI%%%RTtg[%%%R43iI%%%R3[qzR%%RMdmu~~~ReK';R%%R{%~-~~~S/=Qnl~~S14r];R% !S3'y*I%%S3qiuVR%S5_)-VR%S7IqzR%%S91~:2R%S9ptwm%%S;Qr([%%S=-tO@%%S=]slVR%S?,FlVR% !S?Z.%%%%S=po_zR%S3}shQ~~S/NMVMS_SarI=d&_SeAk_v&_Sgg9g^\_Sk0g9ka2SmP`R@w_Sokrj7O2Ss(`-M|2Su:Q=Ga2S{Suv,a2 !T-Wq_IMaT-i'QIv4T-yZ``qaT/02%uVaT/>~=';aT/N3AhR4T/\`ZMzaT/jX>o;aT/vyp.%4 #% [ 59] zr_m2.caps !SRAp_)R%SR@s3qR%SR=zf;R%SR94\DR%SR2Tp2R%SR*.ahR%SPy}K;R%SPn:FhR%SP`~NH~~SPRB|?~~ !SPBC6VR%SP1,K;R%SNxcZVR%SNe8DQ~~SNPbC2R%SN;4p[%%SL~\XhR%SLg%U[%%SLN@-.%%SL4C_)R% !SJ60p2R%SH@d~.%%SFyo;R%%SFo}SDR%SF^M9d%%SFD:wDR%SD}6ZVR%SDW%EH~~SD,E4hR%SBW}_R%% !SB&MnDR%S@LI~.%%S>pa+hR%S>9zb6~~S<\~JDR%S<&:FhR%S:J%em%%S8n][u~~S8:K7MR%S6ai@u~~ !S4E?b_R%S23[]c~~S0'9+@%%Rrn7UZ~~R\2u:2R%RD\=7v%%R.emIMR%R/78q)R%RAis/mR60YAZTt !R6r;aE5WR8D6\K~BR8[if=[VR8]Kpb\8_eMQDL6UP22Q>e;VMzRQhnZEQo\R25ChgGWR6_LvA5xR:A,=G,tR:w+oXkCR:N|^^fD !R4)M]/wUQ~lcmuDbQF=TUG2zQ@Aj'^TxQz%^5~WeR2r9_L7jR88?kXr9R<=Q;prQR@)`cckWRB\N9{|q !RHs/t_vNRNTYJC6^RR_/JVJVRV/^BZttRVvHIc{TRX,of~%-RVno*QNmRV?8LsDGRT[?68y3RN^(LQp1 !RJYH%kR8RFFECU1yRB>lh^{IR>e8m:>nR:npe~._R8eN_ko*R6MByF\/R4:r9`{~R2g|(YU* #% [ 59] zr_m3.phase !S2(e0;R%Rt5C2R%%RNHrqQ~~Qrp2Q~~~R9_9d%%%RSP?-~~~Riy&DQ~~S-TKd%%%S/ObK;R%S1E1wDR% !S36O\DR%S3~mY_R%S5ja7v%%S7TG6~~S=c@9;R%S?0]Sl~~ !S?V?F@%%S=GShzR%S34[z)R%S/Jo';R%S/4w,7%%S/D&`qR%S/]Mf;R%S/|pZ~~~S1Hk{qR%S1st;)R% !S3I@UZ~~S3~/\l~~S5aA8DR%SS,(?)S_SSupa+hR%S>9zb6~~S<\~JDR%S<&:FhR%S:J%em%%S8n][u~~S8:K7MR%S6ai@u~~ !S4E?b_R%S23[]c~~S0'9+@%%Rrn7UZ~~R\2u:2R%RD\=7v%%R.emIMR%R/78q)R%RAd^K'J,R:'%=?^7R4uHcr/uR4~TddktR8kE_7w\m !R>2Elb|`R<%iK%l>R8@**jFPR4TVz1x3R2Ew,-ttR2J}s_hbR4V6~9&MR83][y_*R:qlAn1*R>R@{sT< !RF.IE(x3RL)2KbJPRPBw7c@ORRwPHVZhRTnzP&iERV2kM\mQRV)5D[|jRT^vfiNDRT&ov=]3RN-<;cL5 !RJ)&S69/wTdR:FWQ{-w-H6{R61]+i]CR2rd5SRER0yLga3) #% [ 59] zr_m4.phase !S2)EM)R%Rrd%%%%%RJB3H~~~Q1H-~~~~RI6nm%%%RiH%u~~~S-xA4?~~S1>z9d%%S3UQb_R%S5c)zR%% !S7hi,_R%S9gXX@%%S;`2f;R%S=RU6VR%S??%QVR%S?~zzR%%SA]J,7%%SC3qR%%%SCZxx;R%SCx&(2R% !SE7:s@%%SE1Q>6~~SE(]';R%SC_hb6~~SCm/Td%%SG2?F?~~SKE{8m%%SO%8L[%%SO~W@u~~SQgzZ-~~ !SSK=/m%%SU2~zzR%SW+-F?~~SYG^>_R%S]?b;)R%SaQI12R%Se;'OhR%SgKh)R%%SiSDR%S{6+3qR% !S}L-:2R%T-WKKd%%T-b14/m%T-m-RMR%T-wG_-VRT/HeqMzR #% [ 59] zr_m4.caps !SbG^c.%%SbJp_)R%SbT+dMR%Sbb\[MR%Sd0hMzR%SdGO@%%%Sd^2R%%%SdsU*H~~Sf,n,6~~ !Sf=?ZVR%SfJ\l~~~SfTYO@%%Sf[5[MR%Sf^K7MR%Sf^NqR%%Sf[O/l~~SfUVzQ~~SfLq=hR%SfAY{qR% !Sdj*0d%%Sd4b&l~~Sd&s+hR%Sd&vem%%Sb|Mj@%%SbwS,7%%Sbs*0c~~SboX`H~~Sblv--~~Sbj@mu~~ !Sbfv]c~~SbaSq)R%SbY1Bc~~SbM.iqR%Sb<~)zR%Sb(`tRTn&Dzo3RTpBe[CkRT]cH50TRT8dc)1[RR^^c[W]RPszAl~~RNy=l9C[RLlurv[= !RDR;+T;RRB.?SMu_RB%.G(<9R>I=;~2)R8e>yiJ]R4^o>Ct/R4s`q-VRR8h[j\'DRG[V|xd !R>5)^2R%R<({us?[R8CzkgiYR4Xv3-NIR2JsD:~_R2Ot+ZX0R4ZMwptxR87\<-?oR:v&QKPWR>VvD'+@ !RF3sx,9pRL/6kha{RPH_;{UARR}CSct2RTv5U}KIORDoXQ-6.R@fz*39nR>455cMHR:E_R%Rl{iI%%%RDZB;Q~~QgX?~~~~RMv9;R%%Ro*}_Q~~S/60Kc~~S1VHb_R%S3lNI%%%S5yFD)R% !S7~@9;R%S9|9Sm%%S;shvMR%S=e3uVR%S?PJq)R%SA4hR%%%SAk~>7%%SC@mu~~~SCfa|hR%SE(Ug2R% !SE>T|@%%SE7X'c~~SE-tshR%SCcHfd%%SCrGG6~~SG?RMR%SquU>_R%SsU}&m%%Su7lb_R%Suq9?VR%SwMC&DR%S{:/`qR% !S}Pz^2R%T-Wdz)R%T-bY]SHVRT/I,_vMR #% [ 59] zr_m5.caps !SbG^c.%%SbJp_)R%SbT+dMR%Sbb\[MR%Sd0hMzR%SdGO@%%%Sd^2R%%%SdsU*H~~Sf,n,6~~ !Sf=?ZVR%SfJ\l~~~SfTYO@%%Sf[5[MR%Sf^K7MR%Sf^NqR%%Sf[O/l~~SfUVzQ~~SfLq=hR%SfAY{qR% !Sdj*0d%%Sd4b&l~~Sd&s+hR%Sd&vem%%Sb|Mj@%%SbwS,7%%Sbs*0c~~SboX`H~~Sblv--~~Sbj@mu~~ !Sbfv]c~~SbaSq)R%SbY1Bc~~SbM.iqR%Sb<~)zR%Sb(`[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] be_k.amp !Q%%%%%%%QbKl,Uk7R2-hZzV)R83~vazfR>:r3i6kRDAC8-%vRJB[~3otRP:xN]U&RT|YH^'|RZQHzGO@ !R^c=_Nm)RbUSG3/,Rd~]U1>`Rh%JQUc.RhVWy8%fRh]q]O'\RfAP;x9tRbd/X=Q&RjKwk?5? !Rp>m4~)2RfXY_t~>R^X)Hlr)RX(-hLg2RR/^MXA]RLaUn~v-RHh3V};rRF1oGuF@RBoE;eL[R@_D|j/m !R>XKl0wMR6~~SIjn}6~~SKiHZVR%SM^g2R%% !SOLUg2R%SQ4A8DR%SQq5_Q~~SSP)9c~~SU+9/DR%SU\{4hR%SW10OhR%SW[BWqR%SY':>_R%SYLv12R% !S[Y7IMR%S]d4H-~~S_~X/m%%Sc4{U2R%Se8W0d%%Sg0|dMR%SgzI-.%%Sibv57%%SkEXH.%%Sm%,?-~~ !Sm[~vu~~So7}cVR%SomqV)R%SqI2EqR%Sq~xx;R%SsYh%MR%Su2Iv%%%SubEY6~~Sw5(&DR%Sw]?2)R% !Sy\rKKd%S{YOO@%% !SFeXhQ~~SFMeq)R%SF3Znm%%SDq0G_R%SDR9;Q~~SD0_V)R%SBf7))R%SB>]t6~~S@dD5_R%S@+[UZ~~ !S>t'[v%%S>bjpZ~~S>7mQVR%S.;=hR%S>fYO?~~S@HI12R%SB-4t_R%SBnR=@%%SDX*0d%%SFCO`H~~SH0R~.%%SHxt[MR%SJhH>7%% !SLXw,6~~SNJ:k7%%SP<,shR%U2BaX?~~U0BE8l~~T|ur([%% !Tlt9Kc~~T`F2^2R%TV:g2Q~~TN=j/l~~TH:lnm%%TBz_j?~~T@+;V)R%T<@iqQ~~T0g-:2R% !Sf8A_R%T0&\HVR%T0<:o;R%T0RW8m%% !T22w`qR%T2p{mMR%T4XQJDR%T6CCwDR%T81O`H~~T8|f+@%%T:q)R%%%Tbg6VR%TDc+X?~~ !THqH>7%%TN0bk_R%TRThrH~~TX)Kx;R%T\bP.v%%TbKn0;R%Th?9h)R%Tn<\(2R%TtCp*H~~ ifeffit-1.2.11d/src/fefftab/76.dat0000755000175000017500000003577010771740460015507 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] os.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] os_k.amp !Q%%%%%%%R8t(3}I^RLPVm=UsR^W2nZg.Rns{uIgoR~<8Ph\0S0)w_'OhS0X9_M/kS0{Vv(AuS2:2Liwo !S2H?k'laS2LQ+t8sS2G4T_zRS29`hQ^xS0~IzysRS0b'S0G/2HUUS0.OAk=E !S.e/eTrYRzclL>%5RrR\;H|4Rjpgq{DVRd{x~EThR`pufVt'R^EglzNiR\MBUJ+HRZ{/,7%%RZkduLcw !RZoS5@H_RZ(zh-e,RTX5^hxtRN3mEzy?RHA_Q\%fRDhe@DhbRD+n|\S,RD0NZ\XiRF3ZGL*IRP@&?DE) !RTQ=YJ:GRVq+f+`mRX(m:h%)RVVV~y3iRTK&)p*BRPz9UEt1RNGX'%PzRJ?FI|8SRFY[=D,J #% [ 59] os_k.phase !S7@8L[%%S;Tc6.%%S?e/L[%%SCqTp2R%SGyr,_R%SK~0p2R%SO~E,_R%SSzQ6.%%SWrMrI%%S[fBG_R% !S_V.iqR%ScAedu~~Sg):Ru~~SifYshR%SmExG_R%So{8HVR%SsRS%em%Sw%v:s@%SyOZB;R%S{uJa`I% !T-lIlWeET/%|E~NIT1U)fgWTT1^Ie{UAT1o+=fpAT3'9cD^AT39Rree+T3KLbr,nT3\~|y*XT3n84h)a !T5%8D12aT56'Gc.4T5FW^RMaT5V]|h)aT5ev1ZVaT5t2MY_aT7'6RQ.4T73,A3qaT7=sCb_aT7Guprqa !T7^>lvMaT7qv+Sm4T9(Pc~VaT95-G{I4T9=C212aT9Bwl9d4T9G9\hR4T9JUk:[4T9N,Yod%%S>?vQVR%S>TWM)R%S>jZB;R%S@((k6~~S@@vmv%% !SB:<8m%%SB}%56~~SDj|D)R%SFEreDR%SFz'OhR%SHWh~VR%SJ7l>7%%SJt&HVR%SLX9/DR%SN>C2Q~~ !SP&2=hR%SPiQvu~~SRT5oc~~ST@--~~~SV-0Kc~~SVu-ZVR%SXcw@MR%SZSR=?~~S\CgVzR%S^4YSDR% !Sb={U2R%SfImu~~~SjW[9;R%SnfuJDR%SrwA`qR%Sx.eHVR%S|@m-.%%T.V`4hR%T.jYSDR%T0LWiH~~ !T0t`@u~~T2Bp2R%%T2k->7%%T49H)zR%T4aboc~~T60';R%%T6XIADR%T8&kG7%%T8O3M)R% #% [ 59] os.lambda !Rrx;Q~~~Rrzb7%%%Rt'x_zR%Rt3~rqR%RtDmUZ~~RtZ=H.%%RttA0;R%Rv8mmv%%Rv[b2zR%Rx(ey2R% !RxSn8DR%Rz(p*H~~Rz[Y;)R%R|7xp2R%R|qf;R%%R~TpVzR%S.T9OhR%S.Z~6-~~S.b,*qR%S.iQ.%%% !S0(2vMR%S0FN}_R%S@-D=hR%S@np:[%%SBVmz)R%SFk0/DR% !SJ>A0;R%SLlVvMR%SPAbshR%SRqZ.%%%SVH.%%%%SXy8XhR%S\PrU2R%S`(vz)R%Sb[IMR%% #% [ 59] os_l1.amp !Q%%%%%%%QZ'.Z1/dQVRRB/&@8EARDsx~oMBRHK|'H`]RJhN9X}W !RLqt;_M2RNgZA(2RRPKn,|;{RPx).Yn,RR9>j]>CRRF(&f(*RRCeP_rmRR4k]8*5RPq;j(aPRPIdX~MZ !RLQZZ_|yRJ23v5EYRPKoT8vfRTgmQ&GhRZ60fGBDR^N/%71{R`n*:V-{R`sPvX6>R^Y9)}UGRZ=gf3WY !RTOU%F?6RNfXE_/4RJYDw7?gRHANxzb7RFug)T]xRH)aml(CRHS}[3<)RJ2UglnmRJoczwYWRLUcH-pK !RP-^&S,7RPX(i:z6RNR57%%%RJN3}H4PRFTcNCTxRDBugfYORBoH2SJYRBxs4-%RRDdWwfkQRLqcr~w9 !RPx8:Pj^RT/zi1'3RTP*0:_R%SUDF`I%%SY'/DR%%S[]rY6~~ !S_4nXhR%Sa_}C2R%Se+SL[%%SgKJu.%%SieU.MR%Sky_rI%%So-Q^Z~~Sq4jxd%%Ss4sZfd%Su-@]c~~ !Sy;g5C2RS{.9r4hRS{\O7gJmS}&KhMzRS}H|7QVRT-R%YPwmT-Yac6RNT-c9(<]7%T18Uz~VRT1D~KWqRT1O~Iz)RT1Yu;EqR !T1nxoC[%T3&0QF@%T34Y'[v%T3@D~VR%T3IDwWI%T5?^'|@%T5S--6.%T5f'0WqRT5yX7QVRT71geTd%T7DlB;R%T7V=1o;RT7eNh5_R #% [ 59] os_l1.caps !S4ZS`qR%S4YV5_R%S4Vhb6~~S4R)rI%%S4KU&DR%S4C2Q~~~S48y{I%%S4,{(Z~~S2y5gZ~~S2iZJDR% !S2XgZ~~S0sWuVR%S0Z}G6~~S0@U6VR%S.~2)Q~~S._c%v%%RzvpBd%%Rt)Z.%%% !RXsN}_R%RBQ@9;R%Qh+.56~~QE/@MR%%R1%9_zR%R;GuF@%%RGE)%MR%RSnN];R%Ra]slVR%RocT+?~~ !R}u/\m%%S/8=\DR%S/yP*qR%S1`6jhR%S3F.Y_R%S5+%=?~~S5hb[MR%S7K6:2R%S9,WmMR%S9g)5_R% !S=B86~~~SIO[UZ~~SKsWQ-~~SO5czzR%SQL)5_R%SS_Zvu~~S[6\XhR% !S_BsH.%%ScA2b7%%Sg:;Iu~~Sk()5_R%SmdzMzR%SqE*8m%%SsxWqQ~~SwI[ahR%SyrRADR% #% [ 59] os_l2.amp !Q%%%%%%%Q>PFVb7%QVCh3];RQj{~|OVbQ|w(sJXDR0+Sbv`zR0Shz|_6R0fD&vemR0cx,lrrR0NeeZcN !R0*GrR:*R.ThET)EQtD&H*iIQhOp;OF,Q^VttzH>QXX5EazBQX)Ui}_RQZ\jzMoXQ`6c9]/EQdhPY7X( !QjjU>wwyQp/(G4(wR0N/p]2wR4e*X.Y`R:{8U&KlRBEy+1qLCR>)Xod`kR9G<`QpR@9']p9lRHt'@lzD !RN?p)]h*RPoTqpK;RFG.a@`J #% [ 59] os_l2.phase !S<>g[%%%S8,_vMR%S2}::[%%S.|3M)R%RbI~-~~~Rr?>7%T/DHD't7T/GK_8u.T/I+{XlWT/J.8Su.T/K\]Nk'T/[Jh1[% !T/idCFhRT/yOd))RT1/I^wDRT1>~:VzRT1OPPSDRT1^Vkwm%T1na1&DRT1~QZzzRT335=t_R #% [ 59] os_l2.caps !SVUhEqR%SVU1c.%%SVSA`qR%SVPAy2R%SVL2Q~~~SVFmEI%%SV@EmMR%SV8l6.%%SV07MQ~~SV&T?VR% !STup&DR%STj0[u~~ST]J,6~~STO^k7%%ST@k*qR%ST0ny2R%SRy_MzR%SRg1c.%%SRS4dMR%SR=]WqR% !SPK3mMR%SN]E8l~~SLq\Td%%SL^4xd%%SLPqf;R%SL7)rH~~SJm`0d%%SJC)Z.%%SHm&\m%%SH8uRMR% !SF[uZVR%SD|hQ~~~SDBH)zR%SBaR9;R%SB&gBd%%S@FY.u~~S>gVzQ~~S>/~%u~~S@fR04{BG(oR.yPvFc_ !R.UjOmQlQvAG~^=qQjf:O=IfQ`T,:h3]QXgGv&\mQVG2(x:cQXY7xp2RQ^NFd5LsQdozTX-FQjk|&`bx !QpV{62;fQr=[qn.^R098nA|WR4>V|fOiR:N@*OmER@qN(PK`RFcSy)hbRJZ} !RJKDiK]xRH1rYqAmRDi_4M|TRBU{)p4TR@c6;@GKR@9KNuZ2R@-Mal5dR@:'Cm9IP:OgcRg=H87VRHAIXK-F !RLca*fyHRP98_v7^RPr3+wZrRPgKCZW^RP,6y={URN*dQN%_RL&>{;<\RHf\?%woRF-Y4:jm #% [ 59] os_l3.phase !S:4h-VR%S4|ywDR%S0tC2R%%Rroh)Q~~RLgBd%%%QB4hR%%%RE<^>_R% !S_bo?VR%S_OR]c~~S[V_j@%%SY~pJl~~S[DGshR%S];aH.%%S_Cps?~~SaRndu~~ScfJ,6~~Se~R))R% !SiAQ)zR%Skeu-~~~So7}cVR%SqkQB;R%SuG@em%%Swyb?-~~S{JLZ~~~S}jol.%%T-[%_Am%T-dxaX@% !T-yDq5_RT//)_EqRT/;/r'T/_e/L[% !T/n(Df;RT/}j+D)RT13UL&DRT1C:{mMRT1S_w`qRT1b[>wm%T1rt88DRT3(]H)zRT3760p2R #% [ 59] os_l3.caps !SVUhEqR%SVU1c.%%SVSA`qR%SVPAy2R%SVL2Q~~~SVFmEI%%SV@EmMR%SV8l6.%%SV07MQ~~SV&T?VR% !STup&DR%STj0[u~~ST]J,6~~STO^k7%%ST@k*qR%ST0ny2R%SRy_MzR%SRg1c.%%SRS4dMR%SR=]WqR% !SPK3mMR%SN]E8l~~SLq\Td%%SL^4xd%%SLPqf;R%SL7)rH~~SJm`0d%%SJC)Z.%%SHm&\m%%SH8uRMR% !SF[uZVR%SD|hQ~~~SDBH)zR%SBaR9;R%SB&gBd%%S@FY.u~~S>gVzQ~~S>/~%u~~S6oRK+@R@I_&|VbRBONX('3 !RDJKp5JMRF:5@&FyRF{%k-(CRHYkA[~.RJ/SIsBLRJX=39fpRJx[M4p[RL8E;Y):RLJ%c4mERLSlDb7% !RLF.RB[\_Sy{RDJZAqk/RF?~:(?NRH5HJo26RJ*87:<] !RLyQ*(tSRNc%ABa}RLroeiw}RJ):xg3ARF>pIrL;RD6,uh6sRBh,`l7:RBrWkx6ERDY-rRSYRLRenm*. !RPVsV8*hRRdv,hi\RT.B~P4`RR`p?BSWRPjKbUP{RNSn&TC7RL'Su_1/RHE&\>G;RDgU\d^A #% [ 59] os_m1.phase !S7kshQ~~S;~c)zR%SA0;vMR%SE4[z)R%SI2(c.%%SM(Yk_R%SOr_b6~~SS\A`qR%SW?k{qR%SYw93H~~ !S]N`uVR%S_z=hR%%ScExl.%%See^&DR%Si%Ck7%%Sk8qrI%%SmEtg[%%SoL=pZ~~SqK[}?.%SsCYNQ.% !SwUQq9d%SyR)yc.%S{@LvJ`rS{vHIo/ES}G7>SDRS}z&@))RT-X41&DRT-`TG|`IT-j`<:o9]x;RT3GH0p2RT3NDd]d%T3S\6B;RT3WnUwDRT3\KJ,7%T5QwhV)RT5du+3qRT5xP2zR%T70cA(2RT7CrQ.%%T7UFzf;RT7dcr([% #% [ 59] os_m1.caps !S4^>_R%%S4]DnDR%S4ZS`qR%S4Unq)R%S4O8du~~S4Fp6VR%S4_Q~~RS5tWH~~Ra,]OhR%Ro8Kl-~~ !R}OQJDR%S/4~F@%%S/vW];R%S1][QVR%S3Clnl~~S5(}&m%%S5fv9;R%S7I_f;R%S9+@mv%%S9ezj@%% !S=A[Y_R%S?u+X?~~SCMc%v%%SE~+|hR%SIOIADR%SKsA\m%%SO5UFhR%SQL)5_R%SS_b7%%%S[6\XhR% !S_BsH.%%ScA9|?~~Sg:?)zR%Sk()5_R%Smd~-~~~SqE-rqR%SsxWqQ~~SwI[ahR%SyrU{I%% #% [ 59] os_m2.amp !Q%%%%%%%Q6q_.MJeQH'`b}]tQTyB/fiaQ`/E&YP/Qf>:-INAQhBs:'fLQfEq0lNmQ`Rz~o_VQX0o1FhR !QLYzC3R6;vBWqRR<.fMv>xR@`lM.EIRDK0mv79RF8V|/m%RF/O(E)J !RDC-wGg[RB2x|(@bR>sYbL]LR{hk{M !R>\(jOH.%R:pY*S;6R:5:SzwKR:/WK4z|R:X(9o&MRo?W !T/fw6fd%T/vep_)RT1,gLJm%T1+`I%% !SPKX;zR%SN]ia@%%SLrGk_R%SL_H>6~~SLR2EqR%SL8=7v%%SJnhV)R%SJD'+@%%SHmvmv%%SH9kcVR% !SF\dQVR%SD}WI%%%SDC6zzR%SBbA0;R%SB'RY_R%S@GH%v%%S>hB7MR%S>0e\m%%S6~~S6;qZ.%%S2z^{H~~S0^5C2R%R|5vY_R%RbF1o;R%RJ:&hzR%R2s{U2R%Qs&9WqR%Rk=p6VR% !S/PT|?~~S3;J@MR%S5{/,6~~S9ZMZ.%%S=-iU2R%S?Wot7%%SA~YC2R%SEB&L[%%SG\uvu~~ #% [ 59] os_m3.amp !Q%%%%%%%Q6F*V-lFQF*0cxLSQRO67X(QbBtVD9dQ^p~pK3mQXO{W`qvQNYtgf`i !QBVmY;)RQ6/.WE6FQ0'0:.\,Q:[^~-HBQJ7BJs^kQXo@gjS(Qh&ytI1{QtO&U7W]Q~|=V/4@R.x\3Rx' !R0Ju(Txl1;R2?[}h_jR6?CK7MRR<&2PqPGR@Q}bv57RD8=/~0pRD|GR@mUOS^oR>Q7A^g{RfWZDtKR>Ns68F0RC2R%SM@|+hR%SQ6G.u~~SS};)R%%SWa/m%%%S[<%EH~~S]f[--~~Sa(N([%% !Sc)&.u~~S[+^k6~~SU_'+@%%SU|R]c~~SWlNI%%%SYfys?~~S[aV=hR%S]Xa7u~~S_Ii([%% !Sc:2-VR%ScG]t6~~SaS5SDR%S_vO/m%%S_RdY_R%S_ihZ.%%SaJiDzR%Sc>e}6~~Se>21Z~~SgFLVzR% !SiVzvMR%Skq^2R%%So=;V)R%SqmSXhR%SuH|3qR%Sw~1:Z~~S{RY;)R%S}uq9c~~T-\HaL2RT-fIeHVR !T-zfJ,7%T//el6.%T/:~W@v%T/Bzm12RT/Gh~'/DT/J1[[aiT/KN_eq*T/L>rn`rT/M_+DXuT/\iKslW !T/k(}od%T/zjC_)RT10V+/m%T1@Bu%v%T1Pv*+`I%% !SPKX;zR%SN]ia@%%SLrGk_R%SL_H>6~~SLR2EqR%SL8=7v%%SJnhV)R%SJD'+@%%SHmvmv%%SH9kcVR% !SF\dQVR%SD}WI%%%SDC6zzR%SBbA0;R%SB'RY_R%S@GH%v%%S>hB7MR%S>0e\m%%S6~~S6;qZ.%%S2z^{H~~S0^5C2R%R|5vY_R%RbF1o;R%RJ:&hzR%R2s{U2R%Qs&9WqR%Rk=p6VR% !S/PT|?~~S3;J@MR%S5{/,6~~S9ZMZ.%%S=-iU2R%S?Wot7%%SA~YC2R%SEB&L[%%SG\uvu~~ #% [ 59] os_m4.amp !Q%%%%%%%QdDLON4hR24koL@bR8(ELH6]R<_:H-BrR@zCJm%%RDwz%V|yRHSy~H%-RJk6t*qRRLc:0u`9 !RN?fUJm%RN[C|piYRN^}iHO\RNMoR-5?RN-1RLM:RLXt117ERJ|TP0iaRJ@Z*rS0RHY]~i1xRDUa`:JmRB3c/YtWR>n]8vemR>Zgj%pCR@OsXO@nRBe<4+~F !RD\Ec[(;RDn@.tG7RDCj6DHcRBFh}P^?R@8*{Na@R>)/E>e4R<,rbJ[5R:J8fY=,R:)K&agcR8~-EZ80 !R:bx.Sj}R:R6?~|-sRR67qFtn,R6jM8V/YR8|qkbcZRD/8tUcw !RHk:Sx?9RL`pfkBhRNSbS7&8RNcq/q[mRNB1b=y'RLN0IL4MRJ`oQAWURHhNK{&-RFDuC{>L #% [ 59] os_m4.phase !S;7g&DR%S?Jop2R%SCViQ-~~SG[^wDR%SKY^c.%%SOP{(Z~~SSAKG_R%SW*j7u~~SYg='c~~S]B^Bd%% !S_p^:[%%Sce}7%T1=^rQ.% !T1DExl.%T1MC?rqRT1Vr:Jm%T1`FMEqRT1k&l~~Sl>qAl~~ !Sl;>WH~~Sl6V-VR%Sl0R~-~~Sl)1[%%%SjzOX@%%SjpO;zR%Sje0_zR%SjXQJDR%SjJSu.%%Sj;;f;R% !Sh_O3qR%Sh.oSl~~Sf[~RMR%SfQK3H~~SfLT/DR%SfCjlVR%Sf8wy2R%Sf-&@MR%Sdy|\DR%SdkHJDR% !SdZo[u~~SdGlNI%%Sd1tSDR%Sbr|p[%%SbW2f;R%Sb8`([%%S`qxt7%%S`OR]d%%S`+oG_R%S^aY.v%% !S\aGcVR%SZf&(2R%SXpRv%%%SV}[))R%SV/'h)R%ST7GK;R%SR?%QVR%SPIoSm%%SNZLk6~~SJDaH-~~ !SFs&u.%%SDUCwDR%SB?xSl~~S@*5{qR%SGRFfXl_;B !RBNT7^~_R>OHnq%rR@xxlCs@RDFk76Q_RD@'(demR@zx}4%=R>a,jDrIR>S{/1@=R@N&y~AMRBe@RkaT !RD\+v|f+RDlVr2I-RD@<~99`pcRP'3VD_;RN[^i\IcRLeX*UmVRJu/.m%nRHxDA&UlRFS\,>m' #% [ 59] os_m5.phase !S;q_EqR%SA*Cg2R%SE6=H-~~SI;2nDR%SM8h1[%%SQ/`([%%SSyAP_R%SWaqIu~~S[CUBd%%S]x-fd%% !SaJOp[%%Sco/hzR%Sg1CRv%%SiDj@%%%SkN30d%%SmMU_)R%SoBSHVR%Sq,9p2R%Sqe1*I%%Ss95K;R% !Su2Tp2R%SuJO'c~~SwGJq)R%Swy=pZ~~SyOwP_R%S{JmIMR%S}zK/DR%T-b[n@MRT-rr5{qRT/&@BWqR !T/1O}WI%T/;Aedv%T/DL7iqRT/M>^c.%T/V.34hRT/_'2Z.%T/h)<0d%T/p{30d%T/yYvY_RT1'V2Iv% !T18&XD)RT1D>=t_RT1M/}6~~T1Q}&HVRT1Q_q~VRT1Luxx;RT1FSP;)RT1@]0|@%T1r7~.% !T1Eo2Z.%T1N~gwDRT1XHhAm%T1b2oWqRT1m7w8DRT1v{~NI%T3(;0G_RT33fPWI%T3?8XD)R #% [ 59] os_m5.caps !SlA3,_R%SlAA`qR%SlAiiH~~SlBFL2R%SlB}.u~~SlCGWI%%SlCCwDR%SlBg:[%%SlA>&l~~Sl>qAl~~ !Sl;>WH~~Sl6V-VR%Sl0R~-~~Sl)1[%%%SjzOX@%%SjpO;zR%Sje0_zR%SjXQJDR%SjJSu.%%Sj;;f;R% !Sh_O3qR%Sh.oSl~~Sf[~RMR%SfQK3H~~SfLT/DR%SfCjlVR%Sf8wy2R%Sf-&@MR%Sdy|\DR%SdkHJDR% !SdZo[u~~SdGlNI%%Sd1tSDR%Sbr|p[%%SbW2f;R%Sb8`([%%S`qxt7%%S`OR]d%%S`+oG_R%S^aY.v%% !S\aGcVR%SZf&(2R%SXpRv%%%SV}[))R%SV/'h)R%ST7GK;R%SR?%QVR%SPIoSm%%SNZLk6~~SJDaH-~~ !SFs&u.%%SDUCwDR%SB?xSl~~S@*5{qR%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] b_k.amp !Q%%%%%%%R.dE*GG7R8B[5CHFR@la.LuBRJ'b{>p.RP{BbQ(gRXXwE'&qR^jX|ERfRd[Oe&TdRj(|L*/Q !Rn*J.?,GRpce4RzrRr|B6PhJRtqyTSm%RvHq/78MRvX2;,`ARvB[:zZ.Rt_*N[O0RrPzY`~sRrXqcx=y !S.f/18yxS.R/750,RvoY94g?Rn-*E[VJRd6m3gk7RZl[^fz>RTN+}>\1%VRJruyQ>7RH2Z%'~g !RD^j=D;fRB;M.r{]R>xG{TdIR'ztR.xx;r2IQvseVlIvQjDg+yLDQbVG=w71Q\|+5qJVQVn/*}f*QP4ziV*2QJP(\zc&QD@acw^d !Q7T/;Jyat`T/8t}K_{T/f+kFlVT1Ei|i@v #% [ 59] b_k.caps !STl^[%%%STjc^Z~~STdriH~~ST[@UZ~~STN1wDR%ST=gc.%%ST*;)R%SR:9G_R% !SPw'C[%%SPWm))R%SP6aL2R%SNm^Rv%%SNHd=@%%SL{gk6~~SLRahQ~~SL'8`qR%SJP;rH~~SHl_nDR% !SH&a;zR%SFen\l~~SFHU>_R%SF,=+hR%SDh4p[%%SDB';Q~~SBp;%MR%SBCg2Q~~S@q~VR%%S@Fv=?~~ !S>vCFhR%S>L4xc~~S<|G?.%%S+;zR%Rcr(6VR%Rm6gRu~~ #% [ 59] b.rep !S2aQJDR%S2bod%%%S2fiqAl~~S6XB';R%S6sY.u~~S86`8m%%S8U[%%%%S8vPg[%%S:?S`qR%S:f+dMR%S<9W([%% !S>9l.%%%S>phEqR%S@Qwdv%%SB6)1[%%SBviqR%%SD_hb7%%SFJ^o;R%SH72j?~~SJ%,?.%%SJn93H~~ !SL^CRv%%SNOD)R%%SPA,6~~~SR3K';R%ST&?:2R%STs_5_R%SVgIY_R%SX[Tl-~~SZOurqR%S\DVMzR% !S`V2Iv%%SdhiQ-~~Sh|5O@%%Sn64P7%%SrJ[Y_R%Sv_EqQ~~SztM=hR%T.S)j?~~T.g8}6~~T0If[v%% !T0r.ahR%T2@TG_R%T2hz-VR%T47IMR%%T4_rmMR%T6.B3H~~T6VkSDR%T8%:s@%%T8Mgs@%% #% [ 59] b.lambda !U4[,cVR%U4\J}7%%U4^x|@%%U4]i?<4hR%T>M=hR%TD4}WI%% !TH<8HVR%TLM|xd%%TPj*yZ~~TV6>6~~~TZfN0c~~T`FL2Q~~Tf0)b7%%Tj}9Kc~~Tpyi4hR% ifeffit-1.2.11d/src/fefftab/10.dat0000755000175000017500000000616010771740460015462 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] ne.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] ne_k.amp !Q%%%%%%%QxNv,UcwR6(qOrvjR7R|4snj|hR~sl_;AmS.[w[6`9 !S.r9GU5]S.wNv>8hS.x.:aE~S.r;Hb\9S.eK{]3qS.S]FlwaRziXJ;VNRv2myi<)RpOs~gp*Rjw`:o;R !RfL.4DMzRb5/ZsU.R^(B%qh>RZ*w47luRV7@X[^eRROGn-svRNr723IXRLDHqQ_?RH{8hMZKRFaIJ@Sd !R@w87;UMR32f;T-]&S3Q.T-aKG;)RT-eX]WqRT-iUO`I%T-mHP&m%T-q8Wy[%T-u(_rI% !T-~`Cg2RT/..D~VRT/70oC[%T/@&URv%T/I/y2R%T/R3Qvv%T/ZI\u.%T/adn@MRT/hw~%v%T1%-&l~~Q3]2Z.%%R33:&DR%R?Sd-.%%RKlDb7%% !RWy1>_R%Rcw*4hR%RoctshR%R{={y[%%S-rimMR%S/G1Bd%%S/sWuVR%S1D8,7%%S1m6nm%%S3:bcVR% !S5=spZ~~S7;S\m%%S95{M)R%S;-Poc~~S;zLBd%%S=h7=?~~S?QZVR%%SA7K+@%%SAt)^2R%SEamiqR% !SGf)b7%%SIb::[%%SKUaP6~~SMC'|@%%SO*q-VR%SOfdIMR%SQDw`qR%SQx{Q-~~SSNdz)R% #% [ 59] ne.rep !Rzmtk_R%R|)=D)R%R|h\0;R%R~umY_R%S._,C2R%S.pQb_R%S0*zIu~~S0BAXhR%S0\L[%%%S0yAP_R% !S2>}shR%S2ac^[%%S4-q9c~~S4]^Bd%%S61WiH~~S6K|@%%%S6dS4@%%S8%(_)R%S8@}cVR%S8^5gZ~~ !S:aywDR%S6O7u~~S>~ALZ~~S@mvIMR%SB^vz)R%SDQ)V)R%SFD,C2R%SH7m--~~SJ,0Sl~~ !SJzv))R%SLp(FhR%SNeN8m%%SP[3Y6~~SRQ+3qR%STG1Bd%%SV=F+hR%SX3b.v%%SZ*/,6~~SZz`}_R% !S`6:2R%%SdL4/l~~ShbWI%%TPrXH.%%TR0]Sm%%TRB|dMR%TR4Zfd%%TPHMZ.%%TLxkcVR%TH{L:Z~~TDlD=hR%T@eq)Q~~ !T`*];R%T@x9t6~~TD;&`qR%TF\[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] u_k.amp !Q%%%%%%%S4<|T`o:SBE9Gc\dSP/1cJbiS\G3*WJ]Sh'&1~:3Spz%A}EYSz+AQrqRT.U*10xYT.j[eQ?o !T.xH)`<)T.~fvJ{oT.}xU;^AT.vh:Lx%T.ih`SF0T.Wjr&K^S|449?'/SvCRDeiiSp847\P`Shtt !S0|]3RBJ@`MrIR<'0NxL' !RR.XwdckRZ78kYK;R\P[a?A(R`Gh;Am%R`l0(demR\T3gc5?RV-p6[[=RPht(VNiRNo[EW8IRL01T0Lw !RPW|}>\QxSm%%S:_Q~~RF2V)R%%R-h=hQ~~RWDEqR%%S-WznDR%S1X5*qR% !S5Uc.%%%S9PX7v%%S=Hg.MR%SA>.QVR%SE0^g2R%SGz5;)R%SKfWM)R%SOOY.u~~SS5(&DR%SUpLJm%% !S_PtWH~~Se6B_zR%Si%s3qR%Sg9AXhR%S]}PSDR%S]gTx;R%Sc?_nDR%Si(<8l~~SmiPcVR%Ss7[=@%% !SwQs;zR%S{\J}6~~T-We@qzRT-h}4X@%T-ys1Jm%T/0W|L2RT/B4Mj@%T/VHI12RT/t@:*I%T1L*q-VR !T3/jID~VT3Fq+>G7T3T6&8*~T3`s)|/mT3o]<.aiT3}oa,WIT5.Vy>_RT55]DnDRT5cVRT7/=FP7%T7D8xh)RT7XVeq)RT7lUuB;RT9&9E];RT98E9[v%T9L4Ea@% #% [ 59] u_k.caps !SFzD^2R%SFzVrH~~SF{/u.%%SF|-F?~~SF}K_zR%SH%4H.%%SH'AXhR%SH)vqzR%SH,vY_R%SH0@iqR% !SH4+hQ~~SH8,[MR%SH<8HVR%SH@@U[%%SHD+T;R%SHG=P7%%SHIQzzR%SHJDR%%%SHIG&l~~SHF8du~~ !SH+;1[%%SFaWuVR%SD|N}_R%SD;h=hR%SD%2EqR%SBnN];R%SBRpg2R%SB(iY7%%S@MRIMR%S>jVb7%% !S>(%z)R%S<O?~~S6*+L2R%S42zR%SIqkwm%%SMnQ)zR%SQiqvMR%SUT)=hR%SY7SXhR%S[uap[%%S_Ncfc~~ #% [ 59] u.rep !S@D9d%%%S@DeL[%%S@F-F@%%S@HI12R%S@K[--~~S@OjT;R%S@TslVR%S@ZzV)R%S@a{0d%%S@iy6VR% !S@rtgZ~~S@|miqR%SB-kWI%%SB9jP6~~SBFn4?~~SBTv]d%%SBd-RMR%SBtJLZ~~SD+sL2R%SD>NQ-~~ !SD}e}7%%SFTLwDR%SH46b_R%SHsywDR%SJJGC2R%SJy|7v%%SLRw\m%%SN.-RMR%SNeN8m%%SPD|/l~~ !SR&R=?~~SRc}G7%%STI3Y7%%SV/{Y7%%SVr*qR%T.Xf+@%%T.lPoc~~T0N.=?~~ !T0v(:[%%T2D)Q~~~T2l5cVR%T4:EU2R%T4b\`qR%T60slVR%T6Y4X?~~T8'R~.%%T8OqIu~~ #% [ 59] u.lambda !RTM?F?~~RTN.=?~~RTPT|?~~RTTYO?~~RTZ80;R%RTaNY6~~RTj?6.%%RTt`@v%%RV&[Y_R%RV41&DR% !RVC3@v%%RVSiiI%%RVeoKd%%RVyK[v%%RX4X@%%%RXK47v%%RXcD=hR%RX}'7MR%RZ>>?-~~RZ[34hR% !R\bATd%%R^S3Q-~~R`SZjhR%R`e8DQ~~Rb'WqR%%RbQAq)R%Rd.EI%%%Rdne@MR%Rf\iiH~~RhQ?JDR% !RjKMf;R%RlJ^&DR%RnN2Al~~RpUZ6-~~Rr`Ot_R%RtnP;)R%Rx%:NqR%Rz8RahR%R|N%EH~~R~eP_R%% !S.lX/m%%S00Y*qR%S0O=|hR%S0nUwDR%S24?ZVR%S2TFL2R%S2tjL2R%S4;J@MR%S4\@))R%S6e|H-~~ !S8O/m%%%S:8^&DR%S:|S(2R%SP~b_R%S@;Wa?~~SB&?:2R%SBk5G7%%SDV6NI%% #% [ 59] u_l1.amp !Q%%%%%%%QD\&(n>'QbPR{c0'Q|z(IfjPR0VyYjqCR2R1yEzCR4;p}bUhR4sG-\aRR6NXNfS0ns]PJ>S0|a~4mES2+RE}G,S2+}\HKX !S0|ZuHclS0gAfdr>S0EF}JrSS.rms9AYRzi5]&6gRnMDm0kdRb9H5+)fRVm;BxBlRNl(kDaVbRTku=wP`RTPhdE^sRRD[S_@~RNrB[-.%RLVvBr-NRJW^Mi,`RH9`VEqR%S?R8b\w~\Y !Rsyb*bxRB6Y;rI%RD4H[Q*iRDhIp4/mRDxmdx=0RDk3DI?BRDDGNXH.RBit@:*IRB,}dt*) !R>NWT|NYR>>voSm%R>s~8n8ERH__5n,7RP5_@bi]RV40Ols`RZrT[8iiR`3i>s&uRd8CTqB7RffzrhD: !RhS2d7KPRhDEka/mRf*.3-NIR`gF/^JmRZSfbG7%RRggG[IrRJ]zYZm5RBe}z+/mR-yRP5PG-=/RN;}n\o6RLd:*>R8RJuc`];R #% [ 59] u_l2.phase !R[*a?~~~S-yTSm%%S317iqR%S7>L*I%%S;Ekoc~~S?E:o;R%SC:ufc~~SG%0h)R%SI])b6~~SM.kO@%% !SOO4`I%%SQfFL2R%SSvq1Z~~SW)alVR%SY5\g[%T/nQvQVRT/w1hEqRT/~MaH.%T1*%I))RT1.{VEqRT1?fys@% !T1KTfp2RT1[,jp[%T1l*iH~~T1|{-)zRT34YHJDRT3Eu~ZVRT3W:k[MRT3ghqZ.%T3wqgNqR #% [ 59] u_l2.caps !SD8a;zR%SD7QVR%%SD3u2)R%SD-||hR%SD%eHVR%SBu5cVR%SBhRmv%%SBYbg[%%SBHpJm%%SB6%QVR% !S@{H6-~~S@dzrI%%S@Lufd%%S@3r,_R%%S>UTx;R%S>7[=@%%SC2R% !S8x25_R%S8)}C2R%S6(?)zR%S4.F\DR%S2[)rI%%S25K_zR%S0f3I%%%S0;=D)R%S.iQ.%%%Rze&Tc~~ !RpiDzQ~~Rfd-RMR%R\QlF@%%RR+>G6~~RFGqAl~~R:J)EqR%QxaG?-~~QS=C:[%%R7&vADR%RCrGG6~~ !Rg7gJl~~S/&MnDR%S1Z|X?~~S5)*@v%%S7GG[MR%S9akC2R%S;}'[u~~S?@1VzR%SA\3,_R%SI.H^[%% !SM7;=hR%SQA/(2R%SU:Tx;R%SW~tshR%S[ixl.%%S_Kv9;R%Saz~VQ~~SePX\DR%Sg{;^2R% #% [ 59] u_l3.amp !Q%%%%%%%Q2buTt7%Q@[5FTQFQP%V0:TTQ`5nKpO`QrRw7B_2R.xD%H;\R22~FNY7R4Um?{/,R8'uBBl. !R:Ug(2CKRq^{RBNEK+]3RBW`9P:;RBDE3|SMR@s/5]wqR@:YQjD)R>T0R3gk !R:no)8_:R:c`7)U;R@E%RF(.pr,`RLNCwVf&7kORHm_%g&DRFdNcTOhRDe6euo\RD.MwFo9RBoX89u& !RFPhg.C?RHa>=>dERL&)'~LoRLmtF|~%RLwh{4ESRN:(Q>WmRLG5>1O-RJt/tl?oRJ1N|u3+ #% [ 59] u_l3.phase !Rg=3qR%%S/WreDR%S3jt;)R%S7zC&DR%S=*Sy2R%SA-?nl~~SE&Awl~~Sg<'l.%% !Sog\8DR%SurbSDR%S{c~ZVR%T-ZOurqRT-l`1Rv%T-|_VMzRT/0g_)R%T/=0_V)RT/Gz9d%%T/Q\sf+@ !T/Z;IQVRT/b7AlZWT/iSeO'dT/p5i*8mT/v.z8,7T/zp_4L2T/}vnrhZT/~;0=L{T/z9Gy&DT/q+Rl>7 !T/\x6P&mT/^7tk_RT/eM|xd%T/mtry[%T/viPcVRT1%B(NqRT1,Kg:[%T11gZZVRT16QS`qRT1G4uNI% !T1Rd~-~~T1b'uJDRT1s*};)RT3)mo/DRT3;:~^[%T3L^3@v%T3]pVzR%T3n2Hb_RT3~8%ADR #% [ 59] u_l3.caps !SD8a;zR%SD7QVR%%SD3u2)R%SD-||hR%SD%eHVR%SBu5cVR%SBhRmv%%SBYbg[%%SBHpJm%%SB6%QVR% !S@{H6-~~S@dzrI%%S@Lufd%%S@3r,_R%%S>UTx;R%S>7[=@%%SC2R% !S8x25_R%S8)}C2R%S6(?)zR%S4.F\DR%S2[)rI%%S25K_zR%S0f3I%%%S0;=D)R%S.iQ.%%%Rze&Tc~~ !RpiDzQ~~Rfd-RMR%R\QlF@%%RR+>G6~~RFGqAl~~R:J)EqR%QxaG?-~~QS=C:[%%R7&vADR%RCrGG6~~ !Rg7gJl~~S/&MnDR%S1Z|X?~~S5)*@v%%S7GG[MR%S9akC2R%S;}'[u~~S?@1VzR%SA\3,_R%SI.H^[%% !SM7;=hR%SQA/(2R%SU:Tx;R%SW~tshR%S[ixl.%%S_Kv9;R%Saz~VQ~~SePX\DR%Sg{;^2R% #% [ 59] u_m1.amp !Q%%%%%%%QV:.sIemR.w(?Or9R4V&BG%5R:L0`FIfR@g>sBZ>RH].:C5hRR1RriRXA}d:.)RTmjXqy?RRu>9wL[RRMOQ`zJRRF-CamERRXr=\'DRT%_|P[MRTYch1iY !RXp)|}LOR\OZ`s/mR^qgnaFuRni<7vmvR|+v7HWAS.nl2`AsS0829H2dS0S/zO5AS0fU77I?S0n4w)s) !S0hmoIZNS0UL@}u)S05f?db/S.fzIbU8Rz5&@hOXRnq8,=WQRdb`|Q\YR\6v%9J,RTggNJraRPRF:9zb !RNLW=`I%RPgG[Iq{RRf:rwgCRT&DK?GxRRV\icX0RPO.RnIXRN4Sp+v{RL(>4'&jRJ/,C4bpRFoJe_+0 !RJ-JA3RWRJk:0zB0RLl57?|XRN>x(RQVRN3g*l'WRN;Y1Mk=RLF:Mu/8RLDrniZoRL-DH+UH #% [ 59] u_m1.phase !RQq~VR%%R}w@MQ~~S1[Y;)R%S5]&q)R%S9SqMzR%S===X@%%S?n5wm%%SC+_R%SPXF+hR%SP:x3H~~SNv6~~ !SLI(:[%%SJVTp2R%SHRcF@%%SFWSy2R%SF.)MzR%SDfa|hR%SD=>k_R%SBf>C2R%SB.lb_R%S@LM^2R% !S>f8`qR%S<}2V)R%S<8&Td%%S:KG_R%%S8]ny2R%S6on0;R%S6'p{H~~S4:>;)R%S2MX+hR%S0b.v%%% !RrAMnDR%RP7Lc.%%R0?q9d%%R7zk.u~~RW1g2Q~~RuQpJl~~S/YAy2R%S3*bwm%%S5MzvMR%S=2o3I%% !SAUVzQ~~SEn,7%%%SIqwl&*Y7RHIX2^2RRP(M~~9h !RR;o?*iIRPEeI=h.RLZT(hEqRH`4=WXHRDhN|*\MR@{P_4p[R>:0;@1WR:YTz9&(R6~e;_xtR4NQ]:TT !Qlz7RB_\F/m%RH^F8N@-RNKZ0A0`RR~~;*2BRX,OOh4q !RZO,1)wxRZAw/Fj0RVlaY=P7RRLLzmJaRLUM-,z:RFBLKUCSR@50?hf;R:Sxh)R%R6mgKr1. !R8GPl1:[R>(_2O%=R@}_'KFqRD8s,/@NRDdlBb4\RDHO[?EvRB\Z^SWkR@r_\_G6R@EvPjSMR@EJ|^q( !RD)D0?]lRF8_uvfcRH[]@2{+RJToO&k>dT/v(6`dVT/rGl&@NT/jg'bk_ !T/X(G{qRT/Wu]l.%T/^Y*([%T/fNgFhRT/nezj@%T/v`%iqRT/}BC[%%T1(O;zR%T1-0lRMRT1=aJ0;R !T1I5Ay2RT1XNY6~~T1iLxWqRT1z7{z'+?~~S>]5od%%S>>|`H~~SN3zQD]vO/m%QXL^?/kGQr;_C`a@R0[7l>7%R60RP4X@RRLDA]Hz2RHilvI3~RD~bf1)ZRB9P\E2BR>Ue5Dj@R:u2)NeiR8>vJ&3vR4f6E9jPR25~Aq)R !QRHj@IMRQX/l8f6_R.|'=Ea@R8%j%^p*R><0xJ,7RDDWS]n0RJNch38mRPAX,HN%RTt(/b@fRXu91,RV !R\3UAzxtR\PJvZ1;RZg}O]3IRX.H|xFqRR_KiZgSRLb[ugaPRFJpy`J(R@-yY2kxRB=oD%MRRBhpe'>RRBMzC('IR@c:A8%tR>xt1x'FR>Jm0''-R>I`v|mE !RB'lA'JuRD0tp32cRFMT0:1uRHGWC05SRH^|`)OFRJ+&\y'XRHN|BO6yRH3Ku?dZRF^d*CqE #% [ 59] u_m3.phase !SB)6YC2RS<{'w(2RS:4zAl~~S6cYC2R%S4Q%-.%%S2Uvz)R%S0sB';R%S0SF/m%%S0S|lVR%S0lm56~~ !S2(wDQ~~S2%H:2R%S0_:.MR%S0)F;zR%RzqIu~~~Rj,O@%%%RVOH.%%%RB1.MQ~~QbBc~~~~R7-vu~~~ !S1e1NqR%SASc>6~~SI/Tc~~~SKu~6.%%SOigk6~~SSO^k6~~SUz6rqR%SY8Q)zR%S[>'[u~~S]4a4;zR !S]yHg.MRS_\h5;)RSa:_F`I%SamVIu~~Sc@PUFhRSccjl2)RScypw@qzScyb`^*IScXedQVRSai~gwDR !S]Y{qQ~~S]OA8DR%S_4U*I%%Sa(?NI%%Sayk6~~~ScmY;)R%SeSIiqR%Sg)Al~~~SgU1c-~~SkCdem%% !SmXW,_R%Sq9iz'+?~~S>]5od%%S>>|`H~~Sv|A2msRJ[dK9,(RXk/O\5xRl)Zv+7JS.ajK)R4S0zi%5_oS2u5O1Jm !S4-2y0Y9S2fk.8m)S26}}shRS0c&Ko&MS0;8'-fdS.sST?5dS.VB?QRXRzUD=oK@RtoUvHP'Rp:bs+~F !R`vo|5lNRXAPTd|PRN_h7q*ARN9.IQs`RJcRugaPRF\3)t5GR@|c,%`zR<'5cg~_R4rg>8raR.W1Y4;2 !QViqEhhbQ~(JT_]DR48]f}=PR8GD;^{IR:Wkvp}'R:aEe&[~R8knEAmr5^c.R@wIFx0;R@|u=]|@R@>p'@S}R>Py@gvvR>)@l&sPR>V}Meq) !RBVvUB_]RF.W1~7:RHdZ{=z_RJko9}:XRL*<9%95OEpRJy0XCGfRJ>I3U/ZRH6RQina #% [ 59] u_m4.phase !RTY7%%%%QDhR%%%%RKDQ~~~~Rs6VR%%%S/j\DQ~~S3O@%%%%S5z1Z~~~S90;R%%%S9wy2Q~~S;J,6~~~ !S;t7%%%%S=XX@%%%S?T';Q~~SA^*I%%%SCp6VR%%SG+X?~~~SI@UZ~~~SKSP_Q~~SMc6-~~~SOnL[%%% !SUs'd%%%SYYgZ~~~S[z)Q~~~S_G;)Q~~SadADR%%SccJDQ~~SeJ\l~~~Sg%ahR%%Sgc:2R%%Sk&dv%%% !SscRMR%%S}Hfc~~~T-Z&dv%%T-ap6VR%T-hE([%%T-nH2)R%T-t9';R%T-y[,?.%T-~9dIMRT/&f[-.% !Sql1_)R%SsDLg2R%Ssxj+hR%SuL%UZ~~Sw'Ny[%%Swb9p2R%Sy3j7u~~SyB=/m%%Sy@(_)R%Sy`[9;R% !S{:>;)R%S}8XD)R%T-V0*Q.%T-b%1VzRT-nDrmMRT-zou%v%T/.%[ahRT/:KuJDRT/F1?rqR #% [ 59] u_m4.caps !T.~Gwm%%T.~RqzR%T.~zzQ~~T0%bWI%%T0&cb_R%T0'w(2R%T0)B[u~~T0*s/m%%T0,TWqR%T0.9_zR% !T0/xh)R%T01VV)R%T03%iqR%T04D)R%%T05LNqR%T06;EqR%T06nHVR%T07*r?T&)\RJVNm3V?RXe~ZX},Rl%Eh)%4S.aT^'z/S0zl^5ajS2uYoiot !S4-tMiW`S2ga>Zq6S27w~/FyS0cvyl4PS0<+'PAUS.t8)By*S.VpMKPuRzX=OB~gRtowKlo\Rp86<^@= !R`j^Arw4RX.W~QAMRNFf*y6WRLoRF%-{3naR@@Qjw,7R:A}NcB;R40HQH%-Qp7E.v3Y !QFtYQ{/,Q|YAuf0|R4C&zgGWR8V',N|qR:hN5X0\R:s5e*N=R8~Smr^OR6>l3[oxR0~RegTxQj&K/M;B !Q`?eHg]pR4V%XlzzR:VILUtV,UGR@b5?g2oR@k_,KNNR@2::chBR>IP9q_%R>'CM+qJR>bexG|` !RBiiX\cPRFJMnFO2RJ.ecSgkRL8[WLd3RLU*I%%%%R7iqR%%%Ra6VR%%%S-xOhR%%S1c:2R%%S5?JDQ~~S7b2zQ~~S9jX@%%%S;QF@%%%S;x;R%%% !S=CRu~~~S=~:2R%%S?vMQ~~~SA~)zQ~~SE43qQ~~SGHB;Q~~SI[ahQ~~SKmmu~~~SM}.u~~~SQ.EI%%% !SW2zR%%%SYtO?~~~S];5_Q~~S_bk_Q~~Sc%MR%%%Sc}C2Q~~Se`uVQ~~Sg5O?~~~Sgh-VR%%Siv57%%% !Sw:o;Q~~T-XA\l~~T-asp[%%T-h/4?~~T-mo/DR%T-sMj?~~T-y(k6~~T-~NP?.%T/)F\hzRT/-,ry[% !SqxcZVR%SsZeP_R%Su49x;R%Su_qZ-~~Sw;eL[%%Swvtk_R%SyHK3H~~SyV/4@%%SyQM~VR%SyroOhR% !S{NTh)R%S}LJHVR%T-XKoC[%T-dKpVzRT-pgwhzRT-}V.EI%T/0iO+hRT/=5hnDRT/I;{eDR #% [ 59] u_m5.caps !T.~Gwm%%T.~RqzR%T.~zzQ~~T0%bWI%%T0&cb_R%T0'w(2R%T0)B[u~~T0*s/m%%T0,TWqR%T0.9_zR% !T0/xh)R%T01VV)R%T03%iqR%T04D)R%%T05LNqR%T06;EqR%T06nHVR%T07*[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] sr_k.amp !Q%%%%%%%Qdp:Kc6.R2?4tiCgR8<4C'_2R>&LxM^{RBRM&'R8*+,<*]R@9{m3}`RH[^5g[%RP0i{p7ERT2Zlj&uRTJ_qvTlRPysIj4`RL08e(i5RDX2[,yK !R>0|V:.MR:(^5D[fR:>LI3gkR>N|J5DjRDD8N_+TRJ:SR-)Y(),UR:3v<%yuR8&qkAxKR4l4.Y+&R2k0[V.XR2ho{@jC #% [ 59] sr_k.phase !RqVVrH~~S1*V[em%S55F'?VRS982{SMK}t2zR !SOjvi([%SS%nY{qRSU0JIEI%SW0O*U2RSY%bbC2RSYi]unm%S[GB1FhRS[q/)EqRS]02GshRS]3`)%MR !SY9kcVR%SUz:Rv%%SU\@qzR%SUdy:[%%SU|3iI% #% [ 59] sr_k.caps !R2pb?-~~R2c+X?~~R2:FD)R%R0Q1_)R%Q~XT;Q~~QdR>SDR%QDpWDzR%PQ]YO@%%QQ^whzR%R-S;~VR% !R1{MrI%%R7Z4t_R%R=HMZ-~~RCEVEqR%RIQ'/DR%ROj{0c~~RW9]x;R%R]q}C2R%ReaR9;R%Rmd8q)R% !S/2xOhR%S1(wDQ~~S1Ew4@%%S1a,{qR%S3+Y.v%%S3X\DR%%S52C&DR%S5kHnm%%S7N^*H~~S95.v%%% !S9wn8DR%S;an4?~~S=L?rqR%S?6`];R%S?z`Y7%%SAcu>6~~SCKv]c~~SE2@57%%SEpVV)R%SGRMR%%% !SK)Pk_R%SMN-)zR%SOl}G7%%SS2(>_R%SURRiqR%SWpsdMR%S[.ADQ~~S];s\DR%S_@^wDR%SeA1s@%% !Si8?^[%%Skt5k_R%SoQ8Td%%Ss+,{qR%SuO|hQ~~SwopVzR%S{4(wDR%S}GOdMR%T-W*];R% #% [ 59] sr.rep !S6C2Q~~SP,&m%%%SPtaxd%%SRd9;Q~~STTUo;R%SVEVEqR%SX7/y2R%SZ)8u-~~SZuiyZ~~S\hi,_R% !S`v]c~~~Sf,7IMR%Sj<~NH~~SnNl^Z~~SraF+hR%SvtRU[%%S|.4H.%%T.TwLZ~~T.h{eDR%T0K5od%% !T0sL{I%%T2Agg2R%T2j,2zR%T48N8m%%T4`p>_R%T6/8DR%%T6W^*H~~T8&)j?~~T8NOP7%% #% [ 59] sr.lambda !SbM=D)R%SbQ36~~Sdnst_R%Sf9y*H~~Sf`%EI%%Sh+KCZ~~ !ShNY6~~~ShmxKc~~Sj.8(2R%SjBJu-~~SjP.u~~~SjWEDzR%SjXjxc~~SjUrQ-~~SjPeXhR%SjL<];R% !SjrJ8DR%ST|p[%%%SPGATd%%SN5NuVR%SLgFD)R%SLd?B;R%SLxh)R%%SNCb?-~~SNtt{qR%SPUg2Q~~ !SR>LNqR%ST-d=@%%ST|^FhR%SVvS4@%%SXti];R%SZv}?-~~S\|f+?~~S`+kgZ~~Sb7q1Z~~SdFgc-~~ !SjJ:FhR%Sp\/(2R%Svzgs@%%S~JwTc~~T.m)rH~~T04@IMR%T0VPk_R%T0ySdv%%T2CEU2R%T4Y@ADR% !T6MD9d%%T8Cnq)R%T:<[9;R%T<7MQ~~~T>4>G7%%T@2|xd%%TB3J8DR%TD5O@%%%TF9*uVR% #% [ 59] sr_l1.amp !Q%%%%%%%Ql.+`akhR2x2>HnmR:2)DIF\R@,_jDF`RDbAC7EIRHu0mg}pRL`-|8Y|RNz3+A8ERPj13;lg !RR-_^hM2RPxVJ;D:RP>4WXH.RN8>;_M2RJhBnk?wRF|o0wCqbR:b&AIS}R6]Zawu. !R0,[Ph\rR4y{LQxTR>M{F2H>RH&;GRz)RNalhEM)RRm3wn\mRT1gat_RRPe_muaqRJtYbs_/mu6RdO'`F<[Rd14%_dlRb70jF1YR^rhI@D.R\J-n,)2RX}B2`90RPJmlY;1 !RJh+PLbvRF,iIn~JR@i&>6}VR>-ZmlX,R:6pq*UbR8)?P%x=R4m}3L:[R2lAx?%`R2j.GeQN #% [ 59] sr_l1.phase !Rum12Q~~S1>v8q)RS5I{Rem%S9M?cNI%S=Hl_,g[SAWup&ESMiZgRv% !SQ1@H:2RSSIAlZVRSUWLEU2RSW[<%EI%SYTJ_9d%S[B9Zb_RS[}^M9d%S]PZ'x;RS]k?vv%%S]lir@v% !SW|4`H~~SU@u6.%%SU2OX@%%SUI'p2R%SUju)zR%SW8kG7%%SW`5{qR%SY+T_zR%SYI}cVR%SYUn(2R% !SY6~6.%%SW)eLZ~~SSZ}G7%%SQzNDzR%SS,BCZ~~SS\tcVR%SUERem%%SW6'Sl~~SY(Q>7%%SYtO@%%% !S]sWQ-~~SabnP_R%SeJ8DR%%Si0HrqR%SkpG2zR%SoQz1Z~~Ss,diqR%SuZa'c~~Sy'QjhR%T-[-@9;R !T-r?37bhN=`R@NRYg2vR@jSx/wUR@&xa@[bR<>8@9,xR6fB'X`I !R0]ov)8,QT2ES>NvQHkOn`([R0(8)we9R6;1-YQgR<7VC6GxR@rH~CzZRF97@9uoRJ;SR{H%v% #% [ 59] sr_l2.caps !SNziQ.%%SNyNqQ~~SNu`8m%%SNo?zzR%SNfV^2R%SN[J`@u~~SN-:{I%%SLt%Y_R% !SL_+/l~~SLHVQ~~~SL0X`H~~SJq8u.%%SJVXP6~~SJ:dem%%SHwa;zR%SHYFlVR%SH9v]d%%SFs*U2R% !SDXs'c~~SBoW(Z~~SBVmz)R%SBAzj?~~SB({mMR%S@f0WqR%S@FFt_R%S>}l)zR%S>XBKd%%S>/oKd%% !S<^FD)R%S<0,.u~~S:Y6ZVR%S:%tG7%%S8JGC2R%S6m56~~~S6543qR%S4W+p[%%S2yp*H~~S2D)Q~~~ !S.zvMQ~~Rp>v~.%%RZ7D~VR%RDJuRMR%Q|R-RMR%R1wbshR%RGq'OhR%R[sIem%%RmqoWqR%S14UNqR% !S3lNI%%%S75j'c~~S9Sj3qR%S;qEqR%%S?&J}6~~SA15gZ~~SC;d]d%%SE;F`H~~SG9&LZ~~ #% [ 59] sr_l3.amp !Q%%%%%%%Q8:{Adv%QJ=*A.9;QZu_V`4iQl%DkCauQz_[5KjuR.}VCD|0R0aur=&,R2C{.4VbR2}KBQr) !R4XdWx9+R6+lTa|iR6L6pu,GR6[x`F(wR6WZL|c_R6R2}oY\*5R2.tRv(_R03ycr3U !Qf-pr*-sR0Eh0mSzR4e|]o5'R:,3rsxdR>,n1x(OR@D:Ly7DP}tR<86m/F0R6b'2D9d !R0[6wVAmQRzKbnWzQHB3(x3IR.}H?L|dR64lbGLsR{qR%S?IB|@%% !SAOWQ.%%SCO29d%%SEIGod%%SG?gRu~~SI3\q)R%SK&_^2R%SKt\|`I%%Sc%0CZ~~SchS\m%%SeQV-VR%Sg9p{I%% !Sizw`qR%SmOb.-.%Soo9.z)RSs+ysdMRSu@^K;-WSwTW_=hRSyfya+hRS{ut9Kd%S}~5%Y_RT-lXqIv% !T-~IG&m%T/4LL&DRT/D(0+@%T/Sg?)zRT/b';-VRT/p4miqRT/~C.))RT11um~.%T1=C3@v% #% [ 59] sr_l3.caps !SNziQ.%%SNyNqQ~~SNu`8m%%SNo?zzR%SNfV^2R%SN[J`@u~~SN-:{I%%SLt%Y_R% !SL_+/l~~SLHVQ~~~SL0X`H~~SJq8u.%%SJVXP6~~SJ:dem%%SHwa;zR%SHYFlVR%SH9v]d%%SFs*U2R% !SDXs'c~~SBoW(Z~~SBVmz)R%SBAzj?~~SB({mMR%S@f0WqR%S@FFt_R%S>}l)zR%S>XBKd%%S>/oKd%% !S<^FD)R%S<0,.u~~S:Y6ZVR%S:%tG7%%S8JGC2R%S6m56~~~S6543qR%S4W+p[%%S2yp*H~~S2D)Q~~~ !S.zvMQ~~Rp>v~.%%RZ7D~VR%RDJuRMR%Q|R-RMR%R1wbshR%RGq'OhR%R[sIem%%RmqoWqR%S14UNqR% !S3lNI%%%S75j'c~~S9Sj3qR%S;qEqR%%S?&J}6~~SA15gZ~~SC;d]d%%SE;F`H~~SG9&LZ~~ #% [ 59] sr_m1.amp !Q%%%%%%%QZas~,k_R0@:A5A0R4sKKm/0R:Cg{z7bR>a|T,wmRBpg)y,KRFmYVGsiRJRpr&-&RLw'kLYl !RNy'=rRARPUAwli1RP_~swEeRP?OM2TpRNN3\L[%RL9t;%q{RHeo/~nmRF&)0dmvRB=AVG]tR>[cYz6* !R8)dFC6{RZ`*8m !R@.JR=@%R<2PGh7bR<3gBFp[R>sjYy<9RDByJI>/RHw.xu;jRNCRp4/mRRRSw%ADRV?y319HRXojvBI= !R^G+[?fdR`bT+5;7% !SY>_-VR%SW[XL2R%SW9@iqR%SW2*@v%%SW9R~-~~SWJtcVR%SW^c.%%%SWr};)R%SY)GO?~~SY*b.v%% !SWg+\DR%SUw,6~~~SSwMnDR%SSHZVQ~~SSOLVzR%SSx~B;R%SU[riH~~SWH-6-~~SY7L>_R%S['*uVR% !S]|@mv%%Sai<([%%SeO(.MR%Si47QVR%Sksgc-~~SoUK[u~~Ss0W(Z~~Su^eTc~~Sy+D)R%%T-[FMj@% !T-rX@mv%T/-TZb_RT/ArhZ.%T/U{(6VRT/hL;Iv%T/zCCRv%T11>jL2RT1@*ot7%T1L`*];R #% [ 59] sr_m1.caps !R4Hv-.%%R4;)R%%%R2kczzR%R2'JP_R%R.})^2R%QnT~B;R%QN`ehzR%PTI/y2R%QI=5*qR%Qu~s`H~~ !R1Xa=.&\mR@U3?Yv5RB5cvs,WRBV6A'*-RBXxWK9PRB:J0^Q>R@W'=L{IR>WO]EC2R%%QCpZ~~~~RQ6)zR%%RwTh)Q~~S/{Na@%%S3^x|?~~S77@U[%%S9_.iqR%S;|kg[%%S?6rqQ~~ !SAB2~VR%SCE5WH~~SE@W8l~~SG5%Y_R%SG}4|hR%SIe^Jm%%SKHhf;R%SM&iiI%%SMYK_zR%SO,1g2R% !SQ(7EI%%SQ`Y7%%%SK[7%%S_il:2R%Sa^_)R%%ScOIel~~Se=Y.v%% !Si0/DR%%Skhlm~.%So6|7QVRSqU-=lVRSsoG7(_)Sw-YC2R%SyC@Kt7%S{UL8XhRS}aNd12RT-jf^Bd% !T-|rRADRT/3=N4hRT/C17EI%T/RupJm%T/aN8HVRT/od3Y7%T/}mDZ.%T11U%U[%T1<|DrI% #% [ 59] sr_m2.caps !SN{)%MR%SNyl%v%%SNuyg2R%SNo]/DR%SNfp2R%%SN[cjhR%SNNFX?~~SN>yo;R%SN-TOhR%SLt?.%%% !SL_D^2R%SLHp&DR%SL0r4hR%SJqRIMR%SJVq~VR%SJ:~:2R%SHwzj@%%SHYczzR%SH:62)R%SFsGcVR% !SDY.v%%%SBowq)R%SBW1.MR%SBB=xc~~SB);Al~~S@fJ,6~~S@F`I%%%S>~'x;R%S>XT_zR%S>0'_zR% !S<^Tx;R%S<0:c-~~S:YATc~~S:&%ADR%S8JN];R%S6m !R>N\E@v%R@@msSxDR@y|W..fRB?Xu{{]RBAqZxE9R@}F=|&uR@@J96AMR>A^-at;R<,N_|L{R8`~C1B@ !R.kPFPPSQb`UiHK|QD4P&gugQbl_2bAyR0AL@yjDR2{SA3_bR4qiuVR%R4{`Uw'DR4Dt9y<]R23&GV.E !Q~ovfMAmQZ'x+-jiQH66nt?.Qh:qg32BR0W\CMZRR4lyr~`]R8vR<+6>RR@WbZN6kRD.3]>JM !RJ8fJvW9RNZClEHERRQlX5J7RTw4_h|MRVe~u3/gRVq9lmX6RVN8:G(hRTmc%%od%%%QWoc~~~~RS6jhQ~~RyUs?~~~S1*cfc~~S3h4'd%%S7@N@v%%S9gyFhR%S=+4;zR%S?>^c-~~ !SAI79;R%SCKNU2R%SEF5shR%SG:+7v%%SI'lRMR%SIi|L2R%SKM%MQ~~SM+-jhR%SM^)5_R%SO17EH~~ !SQ0G_Q~~SQn9WqR%SK7riI%%SA`qvMR%S?s\DR%%S?bfG_R%S?\BOhR%S?^=L2R%S?m4lVR%SA4hQ~~~ !SAw7z)R%SEaL{H~~SQ-'/DR%SY=5shR%S[t]+@%%S]{<([%%S_tT3I%%Sahj@%%%ScY%Y_R%SeFuNI%% !Si9@iqR%Skr/3Q.%So@,Bh)RSq]=WuVRSsvsT?2*Sw4w,7%%SyK3WY7%S{]ya+hRS}j%lb_RT-kMtK;R !T-}eJ4@%T/4+yo;R%SN-TOhR%SLt?.%%% !SL_D^2R%SLHp&DR%SL0r4hR%SJqRIMR%SJVq~VR%SJ:~:2R%SHwzj@%%SHYczzR%SH:62)R%SFsGcVR% !SDY.v%%%SBowq)R%SBW1.MR%SBB=xc~~SB);Al~~S@fJ,6~~S@F`I%%%S>~'x;R%S>XT_zR%S>0'_zR% !S<^Tx;R%S<0:c-~~S:YATc~~S:&%ADR%S8JN];R%S6msr9NdNRBCW[F%bRDPJ.g>jRFTEr7ktR>Q%CcvvR:\]MUPOR6)aPwt?R29/+u`]R2Khn*\qR6(|5DErR8aqKf';R:b@&n?_R:yd..H_ !R:M&'}wmR8IT&tBhR64XD6<5R45iQ?Q_R2wB;)4qR4Uqv\,7R6lWRH^[R:Em'd/yR<|9n]MBR@U}x,SD !RF{{5TgTRLYrPd[^RPVSJSR/RRwp2-`DRTgNj)1IRTzum(,'RTana\AZRT.~Dj`,RRFKxR_0RL8)DnC) !RH(Ze}hdEm@GR<<@Bo5'R8W\qgo`R6R+@u6.R4RxSk\DR2L`*];RR0]m9w>' #% [ 59] sr_m4.phase !Re([%%%%S/I%%%%%S3R12Q~~S7QzzQ~~S;G_Q~~~S?3];R%%SAn`qQ~~SECVzQ~~SGeP_Q~~SIy:Z~~~ !SK|lVQ~~SMoC[%%%SON(Z~~~SOr,_Q~~SQ(>_Q~~SQ'+@%%%SOuB;Q~~SOfh)R%%SOYG6~~~SOO`H~~~ !SO/K;R%T00rY6~~T03U2R%%T0757%%%T0;alVR%T0@v%%%%T0F[z)R%T0LWiH~~T0RL>_R% !T0X'?VR%T0])=hR%T0aJy2R%T0e.]d%%T0g}K;R%T0j4;zR%T0k]OhR%T0lLFhR%T0lb;)R%T0lALZ~~ !T0gJHVR%T0d<,_R%T0dgo;R%T0dU[%%%T0cjD)R%T0bpRu~~T0aoG_R%T0`|p[%%T0`BSm%%T0_tK;R% !T0_Wk)__BXRB7(:kI9RD>~'9{0RD~_n2kb !RF?K3I%%RF5wYrgGRDgc.%%%RD/MN)|yRBP%k(?sRB,0tucNR@}tKg:[RB4?bQ_JRBIQKx_zRBQ,3`_b !R>M5n]IbR>FZ*w}7R:N0z)d9R4rB:;F%P{*kpR@YYX?we !RH&7'}MtRL^Wq*9}RPYVr@;bRR{P)~waRTlWKf@jRV'2n\wyRThnFPNCRT3[&]QCRRHW%pW/RL9NB@PC !RH'k7CvsRBn5%t+sR>ggfAW?R<:[/@f?R8VtB4`%R6Q1zGshR4Pqb~9.R2K*QH:{R0\}Y%dZ #% [ 59] sr_m5.phase !Ri{qQ~~~S/cB;R%%S3lrqR%%S7l>7%%%S;bG7%%%S?NiI%%%SC/m%%%%SE_-VQ~~SI'Kd%%%SK;5_R%% !SM>C2Q~~SO/`qQ~~SOfh)Q~~SQ-2)R%%SQ8,6~~~SQ0G_Q~~SOx|?~~~SOfCZ~~~SOVzQ~~~SOLo;R%% !SO.MQ~~~SOHjhR%%SOo_zR%%SQE([%%%SSk&m%%%SWh%MR%%SYq9d%%%S[DZ.%%%S[f[u~~~S]3uVR%% !S]hzQ~~~S_W(Z~~~Sa`K;R%T00rY6~~T03U2R%%T0757%%%T0;alVR%T0@v%%%%T0F[z)R%T0LWiH~~T0RL>_R% !T0X'?VR%T0])=hR%T0aJy2R%T0e.]d%%T0g}K;R%T0j4;zR%T0k]OhR%T0lLFhR%T0lb;)R%T0lALZ~~ !T0gJHVR%T0d<,_R%T0dgo;R%T0dU[%%%T0cjD)R%T0bpRu~~T0aoG_R%T0`|p[%%T0`BSm%%T0_tK;R% !T0_W[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] tl_k.amp !Q%%%%%%%RBqwzkvDR`=Z%ndvRzq*NX5tS0S}'&oZS2[}}fV{S4Tpg[Rj6T:AWzR\lL7c_nRT1'COd)RN.4N(eyRJW%sL=LRJ:.PJL[RJtdJ|wQ !RR?Kp^:[RVaB.U[%RV?DeP;)RR1RmsMFRLs20YsiRJ%lcgwERF?C;Tp2RD.~~d'LRD7JL24qRJ|U%cnI !RPN9;TwMRT>?j5.RRT}NWt4XRV;M^EMrRTPaT.G'RRW3vQo`RP128N'@RLHpx9nFRJQMi+]_ #% [ 59] tl_k.phase !RgvahQ~~S/\xCZ~~S3n3Q-~~S7{w4?~~S=,9';R%SA3)Iu~~SE6K|@%%SI6M~VR%SM3/P_R%SQ,N,_R% !SS|^FhR%SWoUJl~~S[_PG7%%S_LO;zR%Sc6gwDR%SexV9c~~Si^;%MR%SmBA}7%%Sq%O/m%%SsbujhR% !S}}-b_R%T-t[>wm%T/\3W?b_T/xbF.Y_T13%ep_)T1E]5@AET1WPjOlVT1hMt@AET1xVcz-{T3-_[Y(o !T3;wXol.T3IHtp.NT3V>51BdT3brAO'dT3oXZ7ADT3}%TV9dT51LNM)RT5@l_%MRT5PPeXhRT5_J~JDR !T7%'wL[%T7=;_RT9lVvMR%T;%F%ahRT;8t43qRT;Jw>od%T;]kr0d%T;nsA\m%T;~,&HVR #% [ 59] tl_k.caps !S:Dd9;R%S:CuB;R%S:AJ}7%%S:=Bp2R%S:7Y;)R%S:047v%%S:'1FhR%S8vIMR%%S8i|L2R%S8[pBd%% !S8K{Q.%%S8:GWH~~S8&}[MR%S6km=?~~S6Tlvu~~S6;xt7%%S4{/u-~~S4^IY_R%S4?a'c~~S2xv9;R% !S0c[iqR%S.]}wm%%Rjs9/DR%R^{reDR%RTL6zzR%RH{Ot_R%R>WA@MR%R4+Ft_R%QBc>[MR%QyFbK;R% !R9%m-.%%RCmf7MR%RO\Fxc~~R[M<0d%%Rg?O\DR%Rs8gBc~~S-S}[MR%S/0g_)R%S/hlB;R%S1GnP_R% !S5'(*H~~S7c;EqR%S;C6VR%%S=v8LZ~~SAEiI%%%SCf=T;R%SG&hV)R%SI>wm%%%SKVf;Q~~SS45O@%% !SW@'p2R%S[D*eDR%S_AXhQ~~Sc05K;R%Sepn(2R%SiS~nl~~Sm-hAl~~So[h9d%%Ss.%IMR% #% [ 59] tl.rep !S<,A0;R%S<,t2zR%S<.d56~~S<1`)GshR%S>8gBc~~S>IK+@%%S>[IMR%%S>niiI%%S@)R%%%%S@?\4@%%S@W97MR% !SBM)Q~~~SD4d))R%SDx8G7%%T8&`M)R%T8O,2zR% #% [ 59] tl.lambda !Rf:?rqR%Rf<(Z~~~RfA93I%%RfIu6-~~RfUwhzR%RfeH2)R%Rfx5K;R%Rh48@MR%RhMPk_R%RhiwXhR% !Rj/KG_R%RjQxx;R%RjwHVR%%RlEj\DR%Rlpz5_R%RnD~VQ~~RnuljhR%RpOL2Q~~Rr,'[v%%Rre`M)R% !Rvt1g2R%Rzd>wm%%Rz?HB;R%Rz[go;R%R|<*];R%R~68y2R%S.T{,_R%S.`Y7%%%S.mG&m%%S.{5{qR% !S0/qMzR%S0?:VzR%S0O:Bd%%S0_pk6~~S0px|?~~S2(O;zR%S2:I~.%%S2Lat_R%S2_9?VR%S2r-rqR% !S4H?JDR%S4yg{H~~S6R3}_R%S8+Hvv%%S8_>2zR%S:9bk_R%S:n\l~~~S%U[%%%S@n9WqR% !SD'k?-~~SF<*];R%SHPv~.%%SJf>g[%%SL|.Y_R%SP8?:2R%SRNm))R%STeZF?~~SV|a7v%% #% [ 59] tl_l1.amp !Q%%%%%%%QL1]Hh>3Qr%X.LuBR0]pwp4)R4Gmz'A4R8)DpFhRR:[}6^x3R>)VZJKlR@G^%bE5RBZ[]N0d !RDc'UmKPRF`mU{+qRHSaeXolRJxRJsc)h=iRLE%Iq8uRLe?SSfTRLyA*9qjRN'Q`U{IRL}uyj*z !RLQ7imq{RL?Y;K(*RXr4,Kg;Rdf0d|P7RppRPGT3RzdQAlaqS.V',LD_S.X8=PO*R|c0\;D:Rts5I'hr !RjvW?vckR`GCQwl6RTo\bhMVRJ\2B03IR@w.tZ2rR8~V<^]LR4;v1;\0R2ALR\P_R4AlQRy;R8D~'O;<7]RR/s{9]fRRC}QkEvRPkN%wDsJ0RJGTg,hJRHN4WI%S}->PSDRT-Sv>+;{T-^ZPdiqT-jgm@U[T-z%DGsiT/5GOJy2T/Q[W];RT/k\h1[%T/}Hv-.% !T1=n4?~~T1OKh)R%T1]oUo;RT1izQ6.%T1t&=\DRT1|AQrqRT3(mKOhRT3-?`8m%T30|&m%T3fLhj@%T3yX_Z.%T5212vMRT5EK=/m%T5WP7mv%T5j:yFhRT5{Nl:2RT71&p:[% #% [ 59] tl_l1.caps !S@,gZ~~~S@+T;Q~~S@'pVzR%S>{f3H~~S>s8du~~S>hB7MR%S>[/y2R%S>K_V)R%S>9~B;R%S>&5wl~~ !SeoYce,QJ,=:E};QRCV]6P'QX?\+Vb7QZv/1G6[Q\9J]IaiQZOQ(u%-QX)OS)[f !QT\(2R%%QR{%B@35QTj.7GodQZ=&gbjqQb'P^\USQjIhm:]LQrfl+,WIQzP1}[>xR.SNd]OZR.^\'2.E !Qt>WIf[vQbp|1qLCR.\o}MtKR6edz,JMR@x8u]G`RJicc&a'FAy{R2rQ8y2RR2R_x.z)R4;<0C6W !RpZo1}KR>Cy-,(zR>RMNQJLRDj/8S,7 !RJ?gpSIXRN-Y[^~_RP4Wy-EnRPc)]a07RPD+%d@1RNomLQ&sRLsO@KkNRJc[QJ;iRHB[aciU #% [ 59] tl_l2.phase !S9R6%v%%S=g62)R%SAy:6VR%SG.qV)R%SK6~~SaJp_)R% !Sg%eHVR%SkjYwm%%SqYwHVR%Sw9|dMR%S{XBp2R%T-WG*([%T-g;Tp2RT-u-HB;RT/'?]l.%T/1ocZVR !T/EfqEqRT/;49x;RT-q5>cVRT-j63shRT-w3>shRT/&/WU2RT//ACc.%T/8ZjhR%T/ApWiI% !T/K(dem%T/T77]d%T/]P=t_RT/g(0t7%T/qGK_zRT/}Clnm%T12'pVzRT1Dj&P_RT1ZV`Y7%T1n?ZzzR !T330v9;RT3DI0h)RT3PiY[MRT3Z?\XhRT3acW@v%T3gGbC2RT3k@SXhRT3m%hlfdT3mW;eL[T3y%T'yO !T5+AM0G_T5:4vS4@T5IsQ%v%T5Y?RMR%T5i[d~.%T5x`6F@%T7.p%U[%T7>a7-.%T7M5y&DR #% [ 59] tl_l2.caps !S^=c^Z~~S^=Mj@%%S^k_R%SDYaxd%%SD&(VzR% !S@[x';R%S>9K?VR%S:p[IMR%S8N.ahR%S6.f[v%%S2oRY_R%S0]Mf;R%R~te4@%%Rhl*iH~~Q>;cJDR% !RIHE,_R%RmX=X@%%S/LAu-~~S3->7%%%S5]@EI%%S91]Kd%%S;YH%u~~S=y?NI%%SA>Z:2R% #% [ 59] tl_l3.amp !Q%%%%%%%Q0{\c^=qQr\R013DHxTR0<>iU{I !R.U6%`0dQlh_BrQwQ~`3V[emR61plM=gTT !RT0-t/93RNxe~I\uRJA7,jp[RDSCdW8mR>g&90PWR:5%~;/}R6)~\(^;R2_'+?~~R2;9+R9;R2wBDtv~ !R:[%C_v)R@in[uDbRB~`Y|;zRBdbXr8mR@r3DGO@R>}kRawnR>:KZ%JO_2pvRLF2+d>xRJ:E=-(kRFwWVEJ1 #% [ 59] tl_l3.phase !S;S=\DR%S?h^VzR%SC{r@u~~SI3\q)R%SMD0G_R%SQV%qzR%SUj/m%%%S[*Z%u~~S_N?>7%%Sc~~ZVR% !Sibk;)R%SoK]Sl~~Su+3M)R%SyODMzR%S}ZaL2R%T-_6Uc.%T-n15C2RT-{M`4hRT/-;M1[%T/7\xh)R !T/L%o/DRT/E4V=hRT-~.(_)RT-sl'/DRT-wI34hRT/%&JXhRT/-fny2RT/6j&u.%T/?tshR%T/H|,WI% !T/R)?F@%T/[)8,7%T/d3d12RT/mZ\}7%T/wkCVzRT1)UPO@%T18'?zzRT1JO{U2RT1`8{Y7%T1t407MR !T39BYshRT3JW4D)RT3Vi)%MRT3`41o;RT3gM2Iv%T3m-]G_RT3p|nXhRT3rZicfdT3r}bJL[T3~.lByO !T50R%TG_T5?3:`a@T5NjU*I%T5^=p[%%T5nGnu.%T5}H`8m%T73g)Z.%T7CF&u.%T7Qq.iqR #% [ 59] tl_l3.caps !S^=c^Z~~S^=Mj@%%S^k_R%SDYaxd%%SD&(VzR% !S@[x';R%S>9K?VR%S:p[IMR%S8N.ahR%S6.f[v%%S2oRY_R%S0]Mf;R%R~te4@%%Rhl*iH~~Q>;cJDR% !RIHE,_R%RmX=X@%%S/LAu-~~S3->7%%%S5]@EI%%S91]Kd%%S;YH%u~~S=y?NI%%SA>Z:2R% #% [ 59] tl_m1.amp !Q%%%%%%%Q:,J5q|0QN3]+uz2Qb:KFAy{Qv@Ql95'R0(d|8RbR2).~'*a|sLR>}ATwbOR@wz>]{QRBo4N*U{RDcsLNW~RFTEu6k|RH@Dt{fXRJ)J=o@E !RL}defmARNzYu)1[R^hZ{)|yRjv,qiuWRt|)~Q'xR|1>1[qVR~5I(wp;R|4%o3f3RvP5QRBrMy+`ERBo5]EvjRH>fvi8^ !RLJ@T>4XRNo--M|fRPbz?lQ|RPvoz2,hRPGY.TNzRNc\P.EuRLGAXw9BRJ1Y(&7GRH7q;f}/ #% [ 59] tl_m1.phase !Rc2nDQ~~S/Bt[MR%S3POdMR%S7W~)zR%S;YK_zR%S?TaX@%%SCIb2zR%SG8>oc~~SIzQZVR%SM\Vm)rIS{=EP2V)RT-U3:CRvT-`)6YC3T-n+-Q:3T/*nkJq)T/QX_5_RT/q?Iz)RT1(%d57% !T1>jwu.%T1NN{qRT3+2pFhRT3/+a\DRT3BOuM5_R%S>gwhzR%S>X07MR%S>F1o;R%S>1x|?~~ !SWH~~R7?B;Q~~RE,'7MR%RQmN@v%%R_P=t_R%Rm0*,_R%Rygfh)R%S-y3eDR%S/Zk2zR%S1_R%SS2mUZ~~ !SW?dahR%S[D'+@%%S_A0_zR%Sc0*Q-~~Sepx|@%%SiSst_R%Sm-hAl~~So[vmu~~Ss.%IMR% #% [ 59] tl_m2.amp !Q%%%%%%%P6v>O3:oPDd,4@|PPJNH/s(.PD_US|9TP4Y&2y3ePDW5v-5?PxA6JdXqQ4[9X9(*Qbh !QFmYj+D)QRAl8O9xQ^9RNAR0eu<}>dR4)X?RDYLdlEQR@71?+jTR:lgK4U*R6UzB`^OR2[eMETDR0:&mRW]R.h@5RW*R0?4=*gG !R6^\FD8,R-ttR>n6LN([R>c*uR0DR>'_R% !S=UyFhR%SA*];R%%SCU&hzR%SEzD^2R%SI@)rI%%SKYShzR%SMl7%% !SWmOT;R%SWfoh)R%SUQ-6.%%SQ|[UZ~~SQ:wDQ~~SQGaT;R%SQxa|hR%SS`;9c~~SUQ0p2R%SWF'?VR% !SY=eRUZ~~SJ^wDQ~~SJ%u6.%%SHGlrqR%SFjlzzR%SF4y.MR%SDZ:{H~~SD&Wy[%% !S@\7UZ~~S>9RY_R%S:p_)Q~~S8N2Al~~S6.mv%%%S2oYshR%S0]QF?~~R~tZ:2R%RhkN,_R%Q>8n\l~~ !RIHW@u~~RmXi@u~~S/LAu-~~S3->7%%%S5]D%MR%S91a+hR%S;YH%u~~S=yC.MR%SA>Z:2R% #% [ 59] tl_m3.amp !Q%%%%%%%P2P6%f[|WQP@r9WdgoPhjEWkl*Q2B6&i=`Q:0]QHPpQBeArQ[3<)RLu;4;&aRNj&B(&iRNT6b[qz !RLE**j%bRHVaXK`iRDD-Cio+R>}XE4.5R:[2s)AmR6F/OzLgR2L;e@y;R0'uXxd%Q~i>[R|,R.yWTLe0 !R60.*?izR:wWCp<]R>,`h~VRRhXPR:].2|T;R:.|:o^rR8rDCMl%R:0f%}CPR@/jEO\{ !RDO?{Qg{RH>k)E2,RJPqWa@%T/E|e`qRT/M\uRMR !T/UYry[%T/]aIem%T/e~-6.%T/n]7MR%T/wxoC[%T1(bX\DRT16(cRMRT1H*ehzRT1_=a7v%T1uX[U[% !T3;|[U[%T3L4:g2RT3WAdv%%T3_wvem%T3fdmv%%T3kzpFhRT3oOYwm%T3pjq>{qT3ptc'/DT3{LPB5' !T5-dbP.vT5<;:K[vT5KjmEI%T5[>.v%%T5kSH2)RT5z[SXhRT71.0C[%T7@v(_)RT7OC/`qR #% [ 59] tl_m3.caps !S^;@Y_R%S^;.EH~~S^:JHVR%S^9:c-~~S^7UZ~~~S^5Dj?~~S^2S\m%%S^/(2Q~~S^*o+@%%S^%iM)R% !S\ym]c~~S\riI%%%S\jY.v%%S\a*U2R%S\V,gZ~~S\IQ2)R%S\;/4?~~S\*hZ-~~SZr3U2R%SZ]9+?~~ !SXgm9;R%SVp2vMR%SV003I%%STwuvv%%STbSDQ~~STAw0;R%SRsJ0;R%SRDt&m%%SPkt{qR%SP5czzR% !SNWTC[%%SLx5&l~~SL>RUZ~~SJ^wDQ~~SJ%u6.%%SHGlrqR%SFjlzzR%SF4y.MR%SDZ:{H~~SD&Wy[%% !S@\7UZ~~S>9RY_R%S:p_)Q~~S8N2Al~~S6.mv%%%S2oYshR%S0]QF?~~R~tZ:2R%RhkN,_R%Q>8n\l~~ !RIHW@u~~RmXi@u~~S/LAu-~~S3->7%%%S5]D%MR%S91a+hR%S;YH%u~~S=yC.MR%SA>Z:2R% #% [ 59] tl_m4.amp !Q%%%%%%%Q6g13X9TQHJ:LYG7QX}WSK9+QjHb?0wMQz[z*3)JR0*ED2B\R0o{'.riR2YzbPt3R4AHHR>x !R6'xaVpkR6hHx`w}R8N9~&VBR:5wY|Y/R:yQK4r9RU2x6{iR@FUnaFuRB7y_0*QRD&Wi6jh !RFi}xO1oRF3`g9iw<.'LR@gqI,g7 !RB}3iH~~RD\~8aN5RDRI}vRERBcr`%EIR@E,bJL[R6~~SM=boc~~SQ%_f;R% !SS`_b6~~SW;-2)R%SYh/XhR%S]2tK;R%S_N};)R%Saa/HVR%Sch{eDR%Sef,.v%%SgW_b7%%Si=f+@%% !Sk]@EH~~SknSP_R%SmbHnl~~Sm{Rel~~So%SXhR%So@,cVR%Sq9^Bd%%SszVMzR%Sy.dY_R%S{xP{qR% !T-T-m~.%T-\Rs|hRT-bt::[%T-h)d9;RT-lgK[v%T-qRmu~~T-w']/DRT-~4[12RT/-iFX@%T/9w:FhR !T/Y%REI%T/l'WM)RT/vp)5_RT/|e`qR%T/~uI12RT/~YczzRT/|]_1[%T/xU1>_RT/s,ShzRT/o[k*qR !T/tZ/8DRT/|mbWI%T1,51Bd%T15_CJm%T1@S?:2RT1JJ0_zRT1U\C>_RT1aQJDR%T1ltH%v% #% [ 59] tl_m4.caps !Stch,C2R%SP4pb_vR@+ib.U7R@bWF,WIRB@>(jsqRBxD(fh)RDUDFE*] !RFrhH[EIRF-;}8Y3RLN[mwo'RR@8//+mRR@AyU0PRL_(K(s@RD~{APqfR@?N9pA,R>nuTD,hR@tT3;t' !RD1I9>JMRDiP>FH.RD[v*yeyRBjJ4SAaR@H].riIRxs{1RJJ8&}0,RH+Og;5r #% [ 59] tl_m5.phase !S1fe\m%%S5z*@v%%S;-u>7%%S?6<4hR%SC7ndu~~SG3O+hR%SK(at_R%SMpeTc~~SQWot7%%SU6tshR% !SWh4'c~~S[6M~VR%S]Ue0;R%S_kujhR%SawlZVR%Scyfh)R%SeqG*qR%Sg_Rmv%%SiBv]d%%SivoSm%% !Sk}dEI%%Sm-]G_R%Smytwl~~So6|X@%%So;GshR%SoXGcVR%SqU4xc~~Su@V%MR%SyO.Y_R%S}==3qR% !T-V|[U[%T-_h,C2R%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] pt_k.amp !Q%%%%%%%R@tj|66wR\DbeRw]Rv%8vSXhS02P8IM*S23?PiKiS4%M37^'S4bC/)~DS65L1i`QS6S.bSDs !S6b5.0&MS6cNuG`pS6XT-e|HS6Bd@bUYS4}?D}'MS4UNE1]pS4&_7}nQS2L)wFulS0la?zq'S0/O}rM1 !R`Vic.X(RBAe0~X0R8sQxOARRbUo)e/MS.\QG&FFS0_-bG]^BdRD1hG0AYRBa[wra@RD?fqa5tRLzh]-fd !RRCZ&yA,RT~C9TIbRVKt.c)2RVAo]Xi2RTG^OO0)RR0W1VE_RN_sy5FmRJep]83`RH:xKX]Q #% [ 59] pt_k.phase !S3xy*I%%S93Q.%%%S=D38l~~SAQ&dv%%SEY~>7%%SI_+xc~~SM`A@MR%SQ]]/DR%SUW,_Q~~SYLX|hR% !S]>9';R%Sa+urqR%ScofKd%%SgUYk_R%Sk7ZrqR%Smof';R%SqJ(VzR%SszRmu~~SwMC&DR%Syvg8XhR !T-dZ-9h)T-x3lE,`T11J;lB;T1J}ayK\T1_61kmbT1r6*{]7%%S432f;R% !S2|sL2R%S2jqIv%%S2W%EI%%S2AFxc~~S2)q5_R%S0jMj?~~S0O(.MR%S01Z6.%%S.l(g2R%R~1Lo;R% !Rd=dqzR%RLOA8DR%R81i4hR%Qz^cvu~~Q/v|+hR%R/bA0;R%R;(RQVR%REhQ6-~~RQh:.MR%R_%D5_R% !RkIo/DR%RwvW];R%S-prQ.%%S/QYg[%%S12'OhR%S1l5cVR%S3Kr4hR%S5+3qQ~~S5d9_zR%S7C4T;R% !S9wTd%%%S=R%mv%%SA+^FhR%SC[z)Q~~SG+|hQ~~SIN5{qR%SKi6F@%%SO%U[%%%SQ9v9;R%SWj{U2R% !S[v(_)R%S_uQ^[%%Scn{4hR%Sg[d56~~Sk>mahR%Smxe8DR%SqPx7MR%Ss{|'c~~SwJra?~~ #% [ 59] pt.rep !S:]uJDR%S:^Ug2R%S:`M)R%%S:c_%MR%S:h1Z~~~S:mu6.%%S:tyJl~~S:}>?-~~S<,wl~~~S<7uZVR% !S(\\m%%S>;_j?~~S>P*qR%%S>ey2Q~~S>}9';R%S@<%iqR% !SB5i];R%SB{`uVR%SDb]OhR%SF:bcVR%SFod%%%%SHMKSm%%SJ-V-VR%SJiqQ~~~SLN5`@v%%S>rBSm%%S@UEU2R%SDZX/l~~ !SF}K_zR%SJG.-.%%SLkR12R%SP6RqzR%SR\({H~~SV(*mMR%SXNQ.%%%SZu>7%%%S^BL.MR% #% [ 59] pt_l1.amp !Q%%%%%%%Q\?LN([%R0INv<_bR4}?HH,GR:JCLejXR>`kK}.vRBdp08klRFU)mMz.RJ0ivmQWRLQziF3q !RN_,U%z*RPZD[^RvRRCN2mU[RRvqeRKtRT?~ke\IRTSZT92ZRTYyB6m5RTR4em[bRT;N|4N5RRrUPXJ0 !RP))zND{RLuzma`Rh`>Ge`)Rd/FM'{Q !R\[2{A~JRT_~sLeURLkdEI%%RFQTnwBPRB.WS`fXR>lX^0SIR>S7:6*iR>~NA=U*R@{7eAORFMNCE1l #% [ 59] pt_l1.phase !S7;tK;R%S;NuzzR%S?['p2R%SC`EDzR%SG^{mMR%SKW%iqR%SOHg.MR%SS49/DR%SUsi@v%%SYSCc-~~ !S]-4P6~~S_[?B;R%Sc)d9;R%SeLAu-~~Sgh}gZ~~Sk%QVQ~~Sm5WmMR%So>l)zR%Sq@f7MR%Ss:ey2R% !SwL9RY_RSy<1]p2RSytNf|@%S{<\xC[%S{X/t?.%S}(0?D=iS}e@i757T-W5~iy[T-`@F}2zT-jT9a|i !T-usFt_RT/(D?;ErT/6=IW8mT/E}M=hRT/WJ\l~~T/j%ahR%T/|+dqzRT12;T';RT1@-GSDRT1Kn[~.% !T1bbyo;RT1t407MRT3(]';R%T34V/4@%T3={y[%%T3E2xOhRT3JP|`I%T3N?[EI%T3Qu_%MRT3fA-%v% !T3w3)%MRT5/l.mv%T5B|h-VRT5UPshR%T5hlM5_RT5zr/P_RT73\/L[%T7E1aP7%T7TJ712R #% [ 59] pt_l1.caps !S82[el~~S81^:[%%S8.em%%%S8)nhzR%S6}&HVR%S6t@em%%S6i`,_R%S6]5K;R%S6NmMR%%S6>[MQ~~ !S6,Uk6~~S4r\L[%%S4\kk_R%S4E)nDR%S4+Ft_R%S2ieDQ~~S2K}wl~~S2,/@MR%S0c|X?~~S0?PK;R% !Rt*Sy2R%RZHq^2R%RHSvel~~R@:~^[%%R6BBl-~~Q\Md9;R%Qg*?>7%%R7gvUZ~~RENMMzR%RSG4|hR% !RaIY_Q~~RoOe`qR%R}Te\l~~S/2xOhR%S/qR%%%%S1UNqR%%S38`M)R%S3u4+hR%S5W'G_R%S78E@v%% !S9pq=hR%S=M=D)R%SA'G_Q~~SCW_b7%%SG'x;R%%SIJs+hR%SKg%U[%%SM~IUZ~~SQ9C6VR%SWj.~.%% !S[u^6VR%S_uQ^[%%Scne@MR%Sg[U[%%%Sk>t{qR%Smxe8DR%SqPtWH~~Ss|)Am%%SwJvADR% #% [ 59] pt_l2.amp !Q%%%%%%%QD9b44Y/Q`_]kzS8QzSRY%57R0AQ5vRER20&oZ>7R2^10R`zR2rO];JeR2mm^aP7R2S(agTT !R2&j&fSmR0G,pUnMR.a]&DY?QtesPdxLQht+g()ZQb;%,F'@Q`S/HzzRQdC0/a`IQjJ49Ba4Qp[=JK9+ !Qxo^4ZM6Q|8Dt~>7R0(a[c&9R2tI{97NR:L7`tQgRBC=M[emRHk1@s|iRN9wM\qrRPPhe3nOy'+qyRV~UAGURFc.@.)` !RL9,Q&VBRNxpa(8?RPjY(GM6RPzd]&BHRPJ)S'+VRNWg1_JaRLTkQrm0RJ@HQ+>*RFh%iGYK #% [ 59] pt_l2.phase !S>Jp_)R%S:8Kl-~~S6.3Y7%%S2+hR%%%Rx;)R%SX1cRMR% !SX()~VR%SVwM%MR%SVkk;)R%SV^}K;R%SVQ)V)R%SVAo';R%SV18XhR%STy/|;zR%SF_NDzR%SF%GK;R%SDEGk_R%SBe{4hR%SB-R))R%S@P<tHJDR%S>?z1[%% !S:vD~VR%S8Wkoc~~S6:HF@%%S2vahQ~~S0Z;j?~~R|7j;zR%Rd5jL2R%RLq0l.%%R6|(wDR%RQ^+7u~~ !Ry)[ADR%S/}M=hR%S3dPC2R%S7BfKc~~S9oslVR%S=@Kt6~~S?f%]c~~SC)6rqR%SED_EqR% #% [ 59] pt_l3.amp !Q%%%%%%%Q@omPmKtQZ{=vd`zQreg`HLrqvR29bQckWR0yx`Cr- !R0OV7RH6WNX5tRL`9?lg.RNxNr[1{RN~0ta>G !RN-^Sr&}RJRXPa>GRFV<\fp{RBT~AtcWR>g^L|FPRuQ}c<~R)b/JBSRF/7ZO=g !RJZPl7+PRN?K*_'3RP4)90uhRPFS@*RfRNt9:K(sRN.RSU5&RL/pE4D*RHxp4&O6RFJJ-cX\ #% [ 59] pt_l3.phase !S<330c~~S6{2f;R%S2qy>_R%S.q5_Q~~R`8_Q~~S/up&DR% !S3^_MzR%S7Mo3H~~S;I2EqR%S?X6b_R%SE&iDzR%SIaGcVR%SO95K;R%SSJ?^Z~~SW6apZ~~SY]l.%%% !S_;z-VR%S_,SDR%%S[PN,_R%SYT9t7%%SYZaL2R%S[B(NqR%S]<^s@%%S_>4X@%%SaBk?.%%ScIgJm%% !SeSuRMR%SgbsD)R%Six;-VR%Sm<>shR%Soe5SDR%Ss@++hR%Su{adMR%Sy\*}_R%S}24L2R%T-VPry[% !T-mk.QVRT-}|&,7%T/0.kO@%T/97MQ~~T/?N:Jm%T/CI?jD)T/EW*virT/F>e-%vT/FiUat_T/SMCCRv !T/`aHGSDT/o`2f;RT1%:hEqRT14Vx+@%T1Dd5[MRT1S\^Jm%T1ccd=@%T1sRD5_RT3(%<,_R #% [ 59] pt_l3.caps !SX[;=hR%SXZeu.%%SXY1g2R%SXVVMzR%SXRvIMR%SXN;9c~~SXHXxc~~SXAy2Q~~SX:>;)R%SX1cRMR% !SX()~VR%SVwM%MR%SVkk;)R%SV^}K;R%SVQ)V)R%SVAo';R%SV18XhR%STy/|;zR%SF_NDzR%SF%GK;R%SDEGk_R%SBe{4hR%SB-R))R%S@P<tHJDR%S>?z1[%% !S:vD~VR%S8Wkoc~~S6:HF@%%S2vahQ~~S0Z;j?~~R|7j;zR%Rd5jL2R%RLq0l.%%R6|(wDR%RQ^+7u~~ !Ry)[ADR%S/}M=hR%S3dPC2R%S7BfKc~~S9oslVR%S=@Kt6~~S?f%]c~~SC)6rqR%SED_EqR% #% [ 59] pt_m1.amp !Q%%%%%%%QJ06fBNzQlwnxlK3R0@oidY;R2yW%**]R6OgI2>WR8u0rwn]R<6~j(e0R>HdX0MBR@Ql}/sP !RBQku?%vRDJL+p'|RF;'``_bRH%>ttWIRHcR9Mf;RJ@B>C2RRJq2cJDRRL@Bj8sPRLcBBb<=RL~JsgTT !RNBSb*qRRNDlq&GCRX~07>wmR`+*gPZ:RdIpUY?wRh'-NGvZRh`@cd6&Rh(dKwq)Rd27h@~.R^.Viesu !RVE|&[Y_RNF},XJ0RFXmtJq*R@F}KZ/]R<2hO4Y/R:.=2S8DR:4`rFF,R:~c|(5hR>:&GZpoR@`ToC[% !RH-\b,@fRL8HG)+0RLIo-u>7RJ8PPFZBRFb83i31RDOhtskJRBgE7m(fRBQp*&q4RBtg5[7^RJ;)R%SMl&du~~SQXP7%%%SU>k_R%%SWxy*H~~ !S[R|+hR%S_&xCZ~~SaNfWqR%ScpFhR%%Sg1dADR%SiF]|@%%SkT{Q-~~Sm\IEI%%So\b*qR%SqUJm%%% !SuhK[-.%SwbTmem%Sy[SJ4@%S{6IJ`qRS{\N];R%S}*E'*Q.S}]1)Z.%T-U(,RU[T-\qe>&mT-ez{l^[ !T-pEpPsiT-|4\'C[T//o9pVzT/?y}&m%T/Rm-.%%T/gT[-.%T/{Ixp2RT12V0l.%T1@\IEI%T1L6s`I% !T1b=(.MRT1rpX3qRT3&_t&m%T32C-^[%T3;lX/m%T3C2R%%%T3H_q~VRT3LamEI%T3PPlrqRT3e&MIv% !T3uo03I%T5.Jvem%T5A^o;R%T5T2Z.%%T5gUnL[%T5y_0l.%T72PJq)RT7D-<}_RT7SPfl.% #% [ 59] pt_m1.caps !S875[MR%S8680;R%S83<([%%S8.H^[%%S8'V^2R%S6xmADR%S6n2b6~~S6ab&l~~S6S@))R%S6C*I%%% !S60~fc~~S4w+H-~~S4a>G6~~S4IVIu~~S4/w0;R%S2n?:2R%S2PWmMR%S20fp2R%S0h]h)R%S0D1Z~~~ !RtW'l.%%RZt@em%%RJPY&m%%RBD&`qR%R8IMQ~~~QpHO7v%%QU;1Z~~~R5|_Z-~~RCllF?~~RQm\u.%% !R_w:FhR%Ro)M1[%%R}3]_zR%S/0)b7%%S/o+@%%%S1SE@u~~S36t*qR%S3sa7v%%S5UjH.%%S77@UZ~~ !S9p>;)R%S=Lz5_R%SA'1k7%%SCWImv%%SG'bG7%%SIJ`qQ~~SKft[MR%SM~IUZ~~SQ9JP_R%SWj.~.%% !S[uap[%%S_uXxc~~ScnhzQ~~Sg[U[%%%Sk>x[v%%SmxhrH~~SqPx7MR%Ss|,{qR%SwJy{I%% #% [ 59] pt_m2.amp !Q%%%%%%%Q:0XH05pQLQf&iiIQ\L+>:m^QhKZOpiYQp3T0yGWQrS]sZB,dI))RQN<>kfl.Q^A7=.REQlg-C/R=Qz>MB03IR.iNU)hb !R0RK6WadR0HFNz%MR0G~@6jKR0mAVnM\R4vbQ&w0R<(*pEy[RB+YaWuVRFDM]tmbRHW@[i([RHcNGEF} !RFyG%oSmRDW8f%1{R@p{}CloR>(c`ZC*R:Jov=]3R81%0e1*R6BJu'LSR6(lF=,WR6:35&W1R6lc25uF !R:s:mD5_R>TvKOhRR>yY6K|@R>;9X:GLR<9y2ENSR:PP[S}yR:2>)WjJR:;mb>\6~~SaeMIv%%SaaieDR%SYUqb6~~SUF+hR%%SUe1NqR%SWS^&DR%SYJ~nm%%S[A9WqR%S]2LBc~~ !S_}eXhR%S_~jD)R%S_[B|?~~S]tujhR%S]/{}_R%S]2:.MR%S]^vUZ~~S_E*8m%%Sa6Gwm%%Sc/?:2R% !Se.ZNI%%Sg4?ZVR%SiBr}_R%Sk[^wDR%So&y2R%%Sq[%mu~~Su?,k_R%Sw~kWI%%S{Z6RMR%S}}4|hR% !T-i,_R%%T-xbdEI%T/*2[ADRT/2iuVR%T/8ctshRT/s^`6~~SXWEDzR%SXSe@MR%SXO&P_R%SXID5_R%SXB`iI%%SX:|7u~~SX2@57%% !SX(`a@%%SVw|H-~~SVl<}_R%SV_KSl~~SVQJDQ~~SVB25_R%SV1Ug2R%STyE0c~~STeOL2R%STOf+?~~ !SRZ@9;R%SPb_vMR%SP1M9d%%SP&2=hR%SNnn8DR%SNS'h)R%SN.riH~~SL^4xd%%SL.God%%SJTa3qR% !SHx6^[%%SH?k2zR%SF`5{qR%SF&/(2R%SDF+hR%%SBf_1[%%SB.2EqR%S@PryZ~~S>t{M)R%S>@OT;R% !S:vel~~~S8WzIu~~S6:L&DR%S2vahQ~~S0Z80;R%R|7|P6~~Rd6)zR%%RLq4L2R%R6{b.u~~RQ^O`H~~ !Ry)f;Q~~S/}Pwl~~S3dPC2R%S7Bj+hR%S9owL[%%S=@OT;R%S?f)=hR%SC)6rqR%SEDc%u~~ #% [ 59] pt_m3.amp !Q%%%%%%%Q8q0IH{iQJw\P0p{QZT~%MvMQf4FYo)bQlRlQ,?wQnL*}~q:Ql)Y[&raQdQn,6=HQZ268:N) !QLDAE00|QK'qmzR.mZ)8u.R0E.?Cdf !R20Z,]lwR2%';?jhR2,R.aKDR2Ce|lVRR61.y:[%R<)r}CloR@}YQM5_RF6`6||hRHEGmOT;RHN;N?PK !RFa]1yk7RD=`DC-_R@V'q*syR7R6kYriWYR4zR9@{TUoRrnMQWRB-`?r.L !RFPd~]*0RJ;P0Ej&RL=qTrjdRL`Ca('uRLJwp.y;RJt8]N)JRJ+;9TpARH(R+Aw)RD][{>&P #% [ 59] pt_m3.phase !S=w~nl~~SC0>g[%%SG:=L2R%SK7%%%Ss<1Rv%%Suz8P_R%Sy`f3I%%S}=hvMR%T-X18XhR !T-oWqR%%T/%(|7v%T/0@^wDRT/8^Jm%%T/>BUo;RT/AkAF/mT/C[qV)RT/D*7*6~~SXWEDzR%SXSe@MR%SXO&P_R%SXID5_R%SXB`iI%%SX:|7u~~SX2@57%% !SX(`a@%%SVw|H-~~SVl<}_R%SV_KSl~~SVQJDQ~~SVB25_R%SV1Ug2R%STyE0c~~STeOL2R%STOf+?~~ !SRZ@9;R%SPb_vMR%SP1M9d%%SP&2=hR%SNnn8DR%SNS'h)R%SN.riH~~SL^4xd%%SL.God%%SJTa3qR% !SHx6^[%%SH?k2zR%SF`5{qR%SF&/(2R%SDF+hR%%SBf_1[%%SB.2EqR%S@PryZ~~S>t{M)R%S>@OT;R% !S:vel~~~S8WzIu~~S6:L&DR%S2vahQ~~S0Z80;R%R|7|P6~~Rd6)zR%%RLq4L2R%R6{b.u~~RQ^O`H~~ !Ry)f;Q~~S/}Pwl~~S3dPC2R%S7Bj+hR%S9owL[%%S=@OT;R%S?f)=hR%SC)6rqR%SEDc%u~~ #% [ 59] pt_m4.amp !Q%%%%%%%QV.8q)R%R.iMMzR%R2~_nDR%R8+Sq)R%R:{la/DvR>]eE1{%RB,@EleuRD@9nny{RF?^H6>\d6nmRHd].:<]RHENKs*zRF{k@|Hw !RDQ;IQVRR@go{p,KRFmLGlvRRJSgBc~~RJ9O9,+]z(4L{R>gsm&JYR@sT/ib/ !RD&\V;|0RDY7A1V2RDJthsMjRB^B*)%NR@K)I0&MR>&tb3pcR:balqpGR8[wnpq>R6v\/q)RR6]80%]d !R8H(_7DZR:k+LuxxRMtRNAmTG_RRN.J6%['RLOu&C+dRJj1;s@_RHvqT2w&HVR%SypSdu~~S{vNeDR%T-W(m9;RT-gxI=@%T-v5,*qR !T/'5*M)RT//y.qzRT/7OmiqRT/>Iox;RT/E6F@%%T/L>[qzRT/S{CBd%T/\McJDRT/e`xl.%T/o29?VR !T1)t.-.%T17wo';RT1A2S\m%T1FJ%ADRT1GQc)zRT1Dyc-~~T1@1i4hRT1:2`Y7%T14Tg:[%T13FqnDR !T19*|p[%T1A@g&DRT1J_^2R%T1So{,_RT1^T{uVRT1hDt&m%T1s5wHVRT1~ycRMRT30Fb&m% #% [ 59] pt_m4.caps !Sn]\du~~Sn]`DzR%Sn]`DzR%Sn]Y*qR%Sn]?VQ~~Sn\_9c~~Sn[Kt6~~SnYTWqR%SnVjdMR%SnS-%u~~ !SnN@v%%%SnHHfd%%SnADR%%%Sn9,wl~~Sn/XD)R%Sl~t*qR%Slr|L2R%SleqMzR%SlWS0;R%SlGt2zR% !Sjk,O@%%Sj66-~~~Shq_j?~~Shl@]d%%ShfL.MR%Sh]_1[%%ShRh^2R%ShF=|hR%Sh81s@%%Sh'}SDR% !SfoSHVR%SfZFdMR%SfBHrqR%Sf'YshR%Sdd9;Q~~SdDZRMR%Sb}5G7%%SbZO\DR%Sb7(:Z~~S`mD~VR% !S^oR~.%%S\v79;R%S\&ra?~~SZ2C&DR%SX;nhzR%SVC:[%%%STK9OhR%SRW&}7%%SPh(c.%%SLNviqR% !SH}NQ-~~SF_kSDR%SDH.%%%%SB2Lg2R%S@'.z)R%S_R%R:fHrqR%R>wUU{WYRBn)h([nRFJePx>hRHem%f[vRJeNiQhB !RLJSv6JDRLr-?d{=RN(=5/93RN%=8J`)RLj-:-'xRLF;&,EYRJqTVCvVRJ=bU=^GRHa8I0VA1mO0R>h_QBr5R@x_/W?> !RD,2`<([RD]0^~P'RDLN3:vVRB]V-k=uR@H&\5{MR<|=MEqRR:\W%8^oR8TYEo+@R6n0(EgGR6SJx>0x !R8;pFN<)R:^DmE6kR<8Z?%v%R:bsFvc8R8^n5<4.R6l48sP7R6JeG%~.R6Xxe;6GR8J9(UI~RB2YuIz* !RF}sWLfDRL*Z9G-yRN4ZEp{3RN`qoe7%%SkH>[MR%SmLn(2R%SoFmiqR%Sq5NuVR%SqrF|hR%SsJp_)R% !SuLQ>6~~SueL[%%%Swcu>7%%Sy1<8m%%SyP_-VR%S{*j7u~~S}31wDR%T-YZLFhRT-jP(Jm%T-x[k*qR !T/)Po?VRT/279_zRT/9d>SDRT/@Z`];RT/GCVzR%T/NDRIMRT/Uv?fd%T/^=e`qRT/gF&u.%T/pj'?VR !T1+J[~.%T19U]';RT1Bm{a@%T1G~3[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] zn_k.amp !Q%%%%%%%Q@%4-Q:3QXyPe-gSQrfSedv%R01aDe^oR2H_7ahRR4^P:Ce0R6rve/(2R:,2LyFiR<=HiPjq !R>K;6g5hR@RgY3SURBR_tvY&mRH)TZ>7%RH2tb'n0RF}u.r^ORFQ1{M%r !RJD^ksR^RJ>_G*qRRF2qKPSiR>q&F*BxR8?0oJu.R2YWbt2zR2E6sQnmR6V>{=&,Ryo;Rbc%7gvVRd]pS9u& !Rh&Y`LWiRf~-Y:I5Rf/w;VM{Rbu;5I~RR`Es6wbDR\MO?kU8RX:vlh/YRT)b^&M;RP07T2EcRDw|hXx@ !R@@dmB|@R7%T/h%\,7%T/s,tWI%T/~9<@v%T1/8st_RT1NeZF@% !T1bZ6RMRT1uPYod%T3.F}2zRT3>YdiqRT3PH)V)RT3`6B_zRT3n~80;RT5''Bl.%T5+yO;zR #% [ 59] zn_k.caps !SDukWH~~SDtPwl~~SDp^_)R%SDj7--~~SDa?6.%%SDUvz)R%SDH1_)R%SD8&y2R%SD%ZNH~~SBjr8l~~ !SBSn8DR%SB:R-.%%S@xlvv%%S@Za'c~~S@:*mMR%S>phEqR%S>J^Jl~~S<{Q-~~~SO?~~S7&ra?~~S9)M1[%%S;*XH.%%S=)s\DR%SAi30c~~ !SEHM~VR%SGzGO?~~SKEh~VR%SMceP_R%SO|}2zR%SS3XlVR%SU?HB;R%SWHC*I%%SYK7))R% #% [ 59] zn.rep !S4;4L2R%S4_R%S8%qV)R%S8?B;Q~~S8ZNI%%%S8w;~VR%S:;lB;R%S:\/(2R%S:~?JDR%S`Gk_R%S@:]p2R%S@sU*I%%SBUS@MR%SD:4/m%%SD{4D)R%SFd:NqR%SHO)Am%%SJ;LBc~~SL)/}7%% !SLqyc.%%SNajT;R%SPRJ=P7%%SrR*oc~~Spc|3qR%StBv9;R%Sx%iqQ~~ !T.ULo;R%T.~w@MR%T0PFH.%%T0}[qzR%T2R]d%%%T4)9d%%%T4[IqzR%T65)9c~~T6j.57%%T:]BG_R% !T+E*zkR2v6ww0QVmCFhR@c?4FE= !RBnggS@NRDr*a2S8RFl~H.X(RH\>2*adRJ>jb&m%RJjKr.w]RL'1sEotRL&;urkPeYR6]B}Z^[R0/sSK_eR0(RQf;5R6)r`(=qRVZRfC&p*6k !RhdvB3I%Rh^_u*OuRf`j\DR%RdF*6R<%R`jM8HCVR\mZXh`YRXW)i8[RRTB0_MPYRPE00o5'RF+4K(z{ !R@JBTkUCRjbJtdR4,_AApuR237M,GTR0BLNqRS{pz]h)RS}\:rQ.%T-U5rU2RT-[g/-nmT-b.&E.bT-hBd_AmT-nO+D)RT-tP1,od !T/)9Gy&DT/7FIH^[T/DmG&m%T/QCs?~~T/](V1[%T/h;/XhRT/sIb2zRT/~V)vMRT1/UaP7%T1O/b*qR !T1c'x;R%T1u{{];RT3.rehzRT3?'LRv%T3Pok?.%T3`Zk2zRT3oH`];RT5'KJP_RT5,@=dMR #% [ 59] zn_l1.caps !SDq_j@%%SDpHjhR%SDlRqzR%SDf2Z.%%SD]:c-~~SDQv--~~SDD4L2R%SD4-F@%%SB{dU[%%SBg%z)R% !SBP%Y_R%SB6cNH~~S@u+X?~~S@V}C2R%S@6G.u~~S>m1{I%%S>G/@MR%SK4ySQd5voPq>Qlk=QSKD !QzR^aT1?R0,{-CNrR2&:II|uR2{9WnYWR4q}1_rIR6`&:X;2R8@E''X`R8hvNOF1+MjR?wRTX1~gG[RPgw8@&RRN-w`2t.RDP5]0VH !R>~iZKq%R_-VR%SIg}oc~~SM*%EH~~SO:ey2R%SQASP_R%SS>p.MR%SU2OX@%% !S[3)nDR%S_):.MR%Saa[12R%SeF>k_R%Siod%%Sbigk7%%SbniiH~~Sbt2V)R%SbyX|hR%Sb~iU2R% !Sd)?jhR%Sd,rU2R%Sd.xKd%%Sd/0_zR%Sd,}O?~~Sd'{Q.%%Sby`lrqR%SHHEuVR%SFWf3I%%SDieDR%%SB|'d%%%SB4dqzR%S>&~nm%% !S:fia?~~S8Q<}_R%S6GOdMR%S4CS@MR%S2Be8DR%S0JN8m%%S.U:[%%%Rnn&y2R%R^zxt7%% #% [ 59] zn_l3.amp !Q%%%%%%%Q4Co(e9fQ@~l5ujiQLJ)B:fhQT?^XsJcQXdt\tukQ\3?~(l]Q^Z,?TMxQd5voPq>Qln?2 !ROr?+;2R7R:'*-{ZoR4z7TPHoR0}uo@W]R.dSaU.)R.{kL[U/R2W+S2E)R6c3kY.- !R:wCgw'DR@({JhNiRD'Kax&(RFt_N_6NRJY}zTaXRN7V@ueQRPgQ{H{ERT1~e3Q.RVNQBJ,7RXYCJ6B; !R\[,x:5UR^EWTU-_R^:GUQ.4R\_eG?ECRZc&3w`jRX>\M0hNRTUMpp,ZRPfZToU.RN-7]44~RDO~}On5HRjX.RR8=D.pwxR6,-{vtlR2v2U:6wR0}/+r&YR0?zwBZcR.gwF4;9Qvo59ywb #% [ 59] zn_l3.phase !S@.W];R%S:qk.v%%S6Z.IMR%S2@(_)R%RtV1[%%%RD.~-~~~R9iDzR%%Rq3mMR%%S1]7))R%S7Ae@MR% !S;hMzR%%S?sc^[%%SCfe\m%%SGEy6VR%SInsP6~~SM0u%u~~SOB&(2R%SQHI12R%SSEehzR%SU9E8l~~ !S[9yNqR%S_0/hzR%Sah,C2R%SeLi}_R%SiBoCZ~~Smbm=?~~SsvU[%%%S{Y.-.%%T-]y5C2RT-n7&8DR !T-ywS,7%T/)&UwDRT/0W|L2RT/7/F/m%T/]+@%T3PL*I%%T3^X*%irT3fc7W8m #% [ 59] zn_l3.caps !Sb\d--~~Sb]=/m%%Sb^xWqR%Sba^k6~~Sbe>od%%Sbigk7%%SbniiH~~Sbt2V)R%SbyX|hR%Sb~iU2R% !Sd)?jhR%Sd,rU2R%Sd.xKd%%Sd/0_zR%Sd,}O?~~Sd'{Q.%%Sby`lrqR%SHHEuVR%SFWf3I%%SDieDR%%SB|'d%%%SB4dqzR%S>&~nm%% !S:fia?~~S8Q<}_R%S6GOdMR%S4CS@MR%S2Be8DR%S0JN8m%%S.U:[%%%Rnn&y2R%R^zxt7%% #% [ 59] zn_m1.amp !Q%%%%%%%Q<,E5(g{QR8ao=L{QhNlKlb6'n({R@cPDOBLRBYDk'[vRDC{Ar&}RDvnRahRRF>L8}7%RFKFX\KlRF?Fkg[%RDp_tYod !RHy+NbA0RHwglOMjRDx^A:k7R>rA;^O`R8\j~AWUR46unM%NR6ni=+w,RRf`m~t-IRdp;X{R:Rb_G~+UHR`3@o;M]R\=Et,/9RX,ioh'ARRwi1t1nRP&'|>p'RDqK:}^7 !R@;mbtgmR<>%Qw)QR8HY0%YBR68OPEfBR4&_V}tER2/oQM``R0>3@D4WQzvTwiiIQdWJx(6+ #% [ 59] zn_m1.phase !S7Pv57%%S;cpJl~~S?o_1Z~~SCsp[%%%SGp&DR%%SKcb_Q~~SONM)R%%SS0)b6~~SUbYod%%SY2F`I%% !S[SgBd%%S]mIMR%%Sa%z)R%%Sc2%MR%%Se8+H.%%Sg8op2R%Si4>k_R%Sk*ehzR%Sku|3qR%Sma@IMR% !Ss8?:2R%Sue(2R%%Sy+.56~~S{4(wDR%S{ih5_R%S{H4P7%%Sy//(2R%SwG`eDR%SwR+P7%%Sy&g\8DR !Syca2^2RS{K?2)R%S}3]_zR%S}uWDV)RT-WN[.AET-]k}lNIT-d%k*/uT-j)Tu}GT-p+x)b7T-uxzm12 !T/*I3z%NT/8G7/y2T/EbpRv%T/R1at_RT/]ekG7%T/hnS,7%T/sr1Rv%T/~wY{qRT1/vpg2RT1OB=/m% !T1c3Z%v%T1v%|P7%T3.z%qzRT3?2gNqRT3P{,;)RT3`ee@MRT3oL@ahRT5'H1:[%T5,@=dMR #% [ 59] zn_m1.caps !SDv=?~~~SDu&@MR%SDq0G_R%SDjfOhR%SDanXhR%SDVLBd%%SDHa'd%%SD8VAm%%SD&3Q-~~SBkK;R%% !SBTNU2R%SB;2Iu~~S@yPshR%S@[H^[%%S@:p*I%%S>qWKP{qR%S<|C_)R%Sk_R%S4Ro/DR%S2vw\m%%S2?+3qR%S0`7Y_R%S0'9+@%%R|y?rqR% !Rpd\P_R%RdYcVQ~~RXWmMR%%RL^)~VR%R@joG_R%R4{TCZ~~QPhqZ-~~QkxE8m%%R7Cyk6~~RC,bC2R% !R_AU.MR%R{1M^2R%S/\xC[%%S1p+\DR%S3{>O?~~S7&ra?~~S9)M1[%%S;*\(2R%S=)s\DR%SAi30c~~ !SEHQ^[%%SGzGO?~~SKEh~VR%SMceP_R%SO|}2zR%SS3XlVR%SU?HB;R%SWHC*I%%SYK7))R% ifeffit-1.2.11d/src/fefftab/88.dat0000755000175000017500000003577010771740460015512 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] ra.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] ra_k.amp !Q%%%%%%%R~uh4o1kS6todo1US@.7F`f3SH)y:?mhSNa[Nk8`STuq:Lx%SZb;eT}SS^~ffF9xSbo|w_&' !Sf5FP<4pSh*_;(.;ShQ`:L]'ShT(ngyGSh4MYy*%SfQ^P*qRSdUhYDX,SbE?F+YxS^}IFFP7S\MbfhMz !SR@\.y(GSJbT7@&8SBu[>ceMSGS8h>eHe,S68@@QSZS2m@0/C)S0\x4Xk&S01B/TH@S0E'2c80 !S0drQ*>HS0uzle|HS0e|^(7MS0;~GdjYS.Tl5YC{Rnj;8u.%R\{q|4UORN6Fb~>7RDpLPdLcRFDT3-`] !RVm:I[.fR^J(^:[%R^%ICYdER\=}a[U[RZDt@heMRV4<0;4qRP8nIM)vRL03n1o`RJ]Xj[U[RL(Dv_f; !RP^F)+xdRT2*^XBLRT~Zt:txRVQT>L<]RV&B>}O@RT]j3([%RR9JF2eMRPP`&.oxRPDDB%zr #% [ 59] ra_k.phase !S6m@12R%S2X1Jm%%R|]t6~~~RPt.v%%%PxqR%%%%RMg_)Q~~Rw\LZ~~~S18l6-~~S5;M1Z~~S9;Z-~~~ !S=91k6~~SA49/DR%SE,aT;R%SG|X@%%%SKolRMR%SO`97MR%SSMcnl~~SW8)j@%%SYy%UZ~~S]\2b6~~ !SgD\Td%%Sm6`8l~~SqUCRv%%Suc)V)R%S{k3iH~~T-]v7 !T3UgSa;{T3pvLPsiT5(IC)Z.T55g6VR%T5Byo_zRT5Oq0G_RT5Z)`}_RT5`DNiI%T5eg;Iv%T5{]FL2R !T72B7MR%T7G0=xd%T7[?Pod%T7o}eXhRT9*T-fd%T9>36F@%T9Qm&\m%T9cHjD)RT9uvU6VR #% [ 59] ra_k.caps !SBpfh)R%SBp>_R%%SBnzEqR%SBliU2R%SBi^s@%%SBee@MR%SB`qvMR%SB[1{I%%SBTYO@%%SBM4L2R% !SBDzQ~~~SB;t&m%%SB2(>_R%SB'K?VR%S@v,cVR%S@j&P_R%S@]?zzR%S@OuNI%%S@Ap_)R%S@31Ru~~ !S>\N8l~~S>6e,6~~S<\GgZ~~S<.-RMR%S:|sp[%%S:w|lVR%S:d?B;R%S:Ba|hR%S8q5;)R%S8@8L[%% !S6dlb_R%S6+_Z.%%S4Hv-.%%S2c+X?~~S0z;Am%%S056ZVR%R|zalVR%Rn%IMR%%R^'R56~~RN-X/m%% !Q8%IMR%%REbUFhR%Re`VEqR%S>a(.MR%S>bX\DR%S>e,[MR%S>h_EqR%S>m9;R%%S>rqvMR%S>yQb_R%S@'6:2R%S@/yVzR% !S@9g_)R%S@DZRMR%S@PYK;R%S@]`iH~~S@kpRv%%S@{5{qR%SB1aP6~~SBCBc~~~SBV3];R%SBj;V)R% !SDT,wm%%SF.%mu~~SFkPwm%%SHS@))R%SJ+=|hR%SJ\mmv%%SL7`U2R%SLnd-.%%SNMxOhR%SP/5.u~~ !SPlFdMR%SRQHB;R%ST8'h)R%STz7ahR%SVceu-~~SXNMMzR%SZ:A,7%%S\'25_R%S\nsP7%%S^]IahR% !SbabK;R%SfiL_)R%Sjsol.%%Sp&>od%%St4Ea?~~SxCg2Q~~S|T3I%%%T.XLVzR%T.l:{H~~T0Mv))R% !T0us`I%%T2CxWqR%T2l.IMR%T4:>;)R%T4bUFhR%T60p2R%%T6Y0x;R%T8'OD)R%T8OmiqR% #% [ 59] ra.lambda !RZeu-~~~RZfys@%%RZj5O@%%RZoP{qR%RZvy_)R%R\&QrqR%R\23];R%R\?q^2R%R\O[UZ~~R\aD)R%% !R\u.mu~~R^0nTd%%R^HO7u~~R^b'7MR%R^}PSDR%R`@mQVR%R``'l.%%Rb'3I%%%RbJ2b6~~Rbo0WqR% !Rf6\4?~~Rh;-zzR%RjS2=hR%RjWP?.%%Rjsl2)R%RlHX/m%%Rn.ZrqR%RnzQZVR%Rpv'p2R%Rry]Kc~~ !Rv*.ahR%Rx:YG7%%RzP>?-~~R|j^FhR%S.S&0;R%S._IQVR%S.l3a?~~S.y3eDR%S0,M=hR%S09|dMR% !S0\^o;R%S2&EeDR%S2JuRMR%S2p/+g>_R%S>|_~VR%S@syRv%%SBkV5_R%SDcHfd%%SF[MQ~~~SHSh1[%%SJL7EH~~ #% [ 59] ra_l1.amp !Q%%%%%%%QXe%|.`zR0+5/JsfR4KeWF7RR8Yz~moTR`i%RBKC0KFqRDJT8cizRF-Ca+hR !RFQHo@6oRFb17pI~RFjJc>7%RFuQW&`)RH2B6v?BR8b2N86BR:0y}iRA !RFWYIt?wRP,(Z+T`RR^Vbt:;RR_EuL?NRPu+WeS,RNXyZPC{RL,O7Y7IRHttk`{9RH;`BM|0RH@bV=]y !RL0zglt^RN=MhhY-RP;+@yQ7RPacj49jRPLNehcURP9?+I1ARN/,O3|LRLa3MnH2RLFG%WbE #% [ 59] ra_l1.phase !S;[U6VR%S?nZF@%%SCz^{I%%SI%[ahR%SK}EY7%%SOsUs?~~SSakgZ~~SWG>?-~~SY}ry[%%S]OW,_R% !S_okcVR%Sc((k6~~Se+L2R%%SewgBd%%SgZ3a?~~Si.}?-~~SiVWAdv%T/BjieDRT/DNiH~~T/@v.pg2T/5I5[MRT/'d?|X@ !T-|(}V5_T/,n%^RvT/9+=n4@T/DO07MRT/OHvu~~T/Ywt?.%T/c=S(2RT/jr8m%%T/qdZ)zRT1.Z&@MR !T1>|)f;RT1R{znDRT1g<-rqRT1{-kWI%T35jwu.%T3I@4lVRT3\`qQ~~T3nrVEqRT5'I9_zR #% [ 59] ra_l1.caps !SP7Lc.%%SP62)Q~~SP2CJm%%SP,*M)R%SN}=P6~~SNr1.MR%SNd_Am%%SNTy*I%%SNC/i}_R%%S>>;)R%%S{MR.fOEpXUR.uyTcv} !R0'[i'1kR06,9BLiR0P/jDi`R0}T}XnYR2jP?WwYR4n-@fMBR8&<89|@R::<+A8DR/6}SZF !R>q;:O\iR@/lNZQ_RB&j&2'tRN0tA:nqRV{HRo(*R^W]*F3qRbh?FtPxRdbab1FDRdV}_E[^Rb_1JT8< !R`1~FUs@R\0{ODU;RVa;aTr5RPiGXVS]RJN`,O-kRBoe[Pv5R<&aA@g&R47xJK5KQxD>Rzk/Qrxnm@CG !R:H6X>G7RD/lv1pORHF|+RJ+SHFNYRH:Wyf`iRF'2%HHgRD&8m_R%SOw9WqR% !SS|lzzR%SY-wdu~~S]_R%Skmvmv%%So8DR%%%SqQ?%v%%SsczV)R% !S{Ll%v%%T-\qrH~~T-uAmIMRT/0U)~VRT/BZEQ.%T/R[ZNI%T/a'8(&DR%Sv*Kp2R% !StntcVR%StWL:Z~~St>3iH~~Sr}2V)R%Sr`STd%%SrB'u%u~~S:gcRMR%S47M-VR% !S05(&DR%Rd7H:2R%RPsJAh2RJDy;SFyRT(MH*SURZYJI|mER^nJ9<2BR`t@a|V>R`xne.9;R`9IQW{9 !R\xwTOYxRZ/YOn`)RTpc9PE5RP./jhd9RH{UawxhRBOMVp84R:ke_TaXR4+o1{[9Qtyoaq,hQlN+hHtt !R8g9=,2zRB:?=)PGRFF't(JmRH17p~P'RH*]WQK3RF@N_9FqRD3el@@VRB78g7iqR@out@E%RBr+i,9{ !RFxb_2z&RJIE33B7RLdxbA9%RNKkiYK)RNLpDJ?ERNUWm8lbRL\L:68}RJodcpYGRHskK2um #% [ 59] ra_l3.phase !Ru5_Q~~~S1:Bc~~~S5I\u-~~S9TJP_R%S=ZDb7%%SA]%]c~~SE\8hzR%SIY_R%%%SMVi,_R%SQU/`qR% !SUW)%MR%SY]dmu~~S]h8u.%%Sar)%MR%SesEa@%%Sidtk_R%SmD.EI%%Sol6.%%%Ss-{iH~~SuCNM)R% !S}8({H~~T-e+lVR%T-~^2vMRT/:-=lVRT/L.y:[%T/\(t.v%T/jG7mv%T/w2/4@%T1(K;-VRT127s|hR !T1:s5*qRT1B\.9;RT1Ilf?VRT1PSKl.%T1Vi0?VRT1\4oG_RT1`+.~.%T1`&FT;RT1S]%9;RT1/|@mv% !T/x/{4hRT1'NQRMRT12JO'd%T1(&DR%Sv*Kp2R% !StntcVR%StWL:Z~~St>3iH~~Sr}2V)R%Sr`STd%%SrB'u%u~~S:gcRMR%S47M-VR% !S05(&DR%Rd7H:2R%RK;R6(IQn6BR8XKQMZ.R<-OXT)>R>^zb/dvRB;E%>Od !RD{b(P]tRHt3WUV{RN+zP:,'RR`ZBcZVRXhD7Rh6[0IKtRnpT0,.vRtZC\gFDRv|^<}BD !Rv;ky<8mRt@Fdcg.RrU{g+J0S.cmvcI8S0;RRP,6S0[%OF;lS0gl)if|S0fy&ERRt[:BN1RJI}B&L[RBpzRgCSR>qcZ|IfR>cFI])b !RFb+-F@%RN>K8m:sRPg,8/:GRPnoX^X}RP-<3w)FRLvYq3I7RJZ|k]|zRHUBgXQ&RFvgyN([RFx?B2o; !RJ]`?j&3RL`lMq>IRNabZ;KBRP,U~*}nRNt@wWG7%%Si]SHVR%Sk=p6VR%Skf?VQ~~Sm)%qzR%SmBI=@%% !SoZXT;R%Sqmx';R%Su*{8l~~SwOLVzR%Sy}m=?~~S}I\u-~~T-Wyey2RT-a}bC2RT-jj>G7%T-rAdu~~ !T-x{qvMRT-~}1Bd%T/*Q8y2RT//V/XhRT/3trU2RT/6~+3qRT/7x=/m%T/5Gi`uWT///Z,k_T/'kIaD) !T-|kECBdT/+@W@-.T/6PUnq)T/ADA9|@T/KnBOhRT/V(c.%%T/_GZ:2RT/g9~B;RT/nKdmv%T1+i9[v% !T1<2f;R%T1P5Uk7%T1dWCg2RT1xAFT;RT33.DZ.%T3FduZVRT3Z/y{I%T3lW2Am%T5%4hvMR #% [ 59] ra_m1.caps !SP\y{I%%SP[X'd%%SPWOt_R%SPPaT;R%SPG::Z~~SP;>{qR%SP,oc~~~SNv*a?~~SNc+3qR%SNM|/m%% !SN6x/DR%SLx&L[%%SL]IahR%SLA8hzR%SJ}T|@%%SJ^O;zR%SJ>+;zR%SHvQVR%%SHSdQVR%SH/kG6~~ !SDq7ahR%SBxYshR%S@pUBd%%S>tV~VR%S>Ge}7%%S<|]3I%%SG6~~S8i([%%% !S8/Q)zR%S6Mhb7%%S4ih5_R%S4)Kx;R%S2@xp2R%S0V_EqR%S.jzAm%%RtxT7MR%Rf(tSDR%RV4\hzR% !R.y0+?~~R?0sH.%%R_c9h)R%R}{6F?~~S/{&XhR%S3J(2R%%S5thnDR%S9E.ahR%S;jWQ.%%SCOOH.%% !SGja7v%%SM)E(Z~~SQ,N,_R%SS}qf;R%SWucNI%%S[`QRMR%S_@(:Z~~Sazhb7%%SeS|lVR% #% [ 59] ra_m2.amp !Q%%%%%%%Q4:/qvj`QB6/,|}WQNZ0cv;bQZ45T}i9Qba8[rL;Qhtlkgm9QlUfTF'dQlT5](GWQhdSXrCg !Qb6>igN)QXd4~jhRQRY7lYv5QX^uqnVfQns6AL*RBR/{),hRH^Me<6kRN9gm]d%RR-=N]7rRT5X5r?>RTTcTe\m !RT2]r}_RRR.@pyFhRNPchiThRJEN7M}hRDnVrX@nR>|N_'t7R8x;3@neR2t1RBYXh/j\RB2;T-m~R@F1AY(&R>aeF^nqR>I@B7j`R@PILkSm !RDYO.w.2RH*J~XGQRJJHs0RKRL=E,bxFRLL60pYsRL_76@1{RJsp>U<5RJ:>CN|+RHI~T|5L #% [ 59] ra_m2.phase !RGfd%%%%Rsn(2Q~~S1.Y_Q~~S528,7%%S9.zrI%%S;~jD)R%S?o7))R%SCZ|X?~~SGDpk7%%SK1zZ.%% !SO,&l~~~SSHi0d%%SYQeu-~~Sa-iU2R%Seqd9;R%SiYiNa@%T1G/l6.%T1MTKd%%T1Q^HjhRT1Tz6NI%T1eF[U[% !T1qsnXhRT3'i=ywET395AjX@T3J7-RMRT3[gg{I%T3lgVV)RT3~65?.%T54L62)RT5D6o7MR #% [ 59] ra_m2.caps !Sx82b7%%Sx6ub_R%Sx30d%%%Sx,uF?~~Sv~9CZ~~Svs4;zR%SvemIMR%SvV8,7%%SvDOX?~~Sv0dmu~~ !Sttwm%%%St]=/m%%StCp*I%%St(`;)R%SDkY&m%%SBToC[%%S@?jhR%%S>'j+hR%S:g_rI%%S47PgZ~~ !S04zf;R%Rd6}k_R%R_RQZw[(zhbQZ@dt<5U)ZR>rZKmemR@SMkL*IR@[tnR(3R@8s78V,R>Q=}|Y/RVx1K03 !RBZfAWYTRF'6CRxwRHA;^04)RJ6K0@n9RJJ(}g[gRJ^01eF0RHz;Hlr)RHF.Qm7iRFZmD3AV #% [ 59] ra_m3.phase !RW,O?~~~S-ef/DR%S1q%MQ~~S5uLk6~~S9r~NH~~S=i\q)R%SAZM~VR%SEF]|?~~SI/>od%%SKrD1Z~~ !SOb?-~~~SSffKd%%SY=spZ~~S_O*U2R%SeRx';R%Si[>wm%%SkwO'c~~Smh^2Q~~SoD16VR%SouGSDR% !Sux6:2R%T-dOqIv%T/7{VEqRT/IN5{qRT/Y]=T;RT/hzU_)RT/vq1[%%T1)+xc~~T13ZU>_RT1;)R%SDkY&m%%SBToC[%%S@?jhR%%S>'j+hR%S:g_rI%%S47PgZ~~ !S04zf;R%Rd6}k_R%RqpGP/RP:eB~%NRZ2Qky?sRf-{Le;6Rrz<=^X}S.\R[(txS0&OqS0iL_)R% !S.g,S=7vRpfDbvK+R^C}e-FdRX6QI-RNRN<8QSR=RBfZJjjTR88)U3@vQ||1|z|0QRs]r|6>R.h[H~-E !R4CHV)4qR8AY%>A0R:^Ogp8}RQP*M)RR>z}hZ9aR>fDE+C(R[|.2E0 !RD(*,u,*RFpd>a)|RJGn1<~*RLI:y?|BRLWxX_qlRLqUftmbRL7j`xuYRJGbHPisRH,]pq6N #% [ 59] ra_m4.phase !S>.Tl-~~S8w8DQ~~S4pVV)R%S0us`I%%RxDV)Q~~RXvY_Q~~R@EqR%%%QzhR%%%%Q5VQ~~~~QYVQ~~~~ !QY%%%%%Qa[%%%%%R-~VR%%%R5ZVR%%%R?-VR%%%RGZVR%%%ROJl~~~~RUD)R%%%RYZVR%%%R]}7%%%% !Rwwm%%S_Z_%MR%Sc|xd%%% !Sw0}SDR%S{M=hR%%S}SR=?~~T-SA-nm%T-X>dEI%T-]RV%MRT-a@,?.%T-alVQ~~T-_x2Z.%T-a_lB;R !T-g~:2R%T-qNL:[%T-|m(:[%T/.d`y[%T/:w^&DRT/Fr52zRT/Syt.v%T/`Al6.%T/l8c>7% #% [ 59] ra_m4.caps !T._c%u~~T._mz)R%T.`1.MR%T.`\q)R%T.aDMzR%T.b:_)R%T.cC*I%%T.dVIv%%T.exC[%%T.gGWI%% !T.hx+@%%T.jR9;R%T.l,G7%%T.mY;)R%T.n{4hR%T.p84@%%T.q_R%Srf';R%%SpUaP6~~SnA5wl~~Sl13@v%%Sj+\hzR%Sh0c6-~~Sf:Jl~~~SdAt?.%%S^K~B;R% !SZm~.%%%SX=WQ.%%STbZ^[%%SR?MZ.%%SN~[iqR%SL_ZRMR%SJMJdv%%SHA/LZ~~SF0=xd%% #% [ 59] ra_m5.amp !Q%%%%%%%Q8{{Z*N+QN+L4bodQbO`y9.1QxFrzur>R0@:z*rOR2XxuO&IR6%W_hsCR8`/6;iXR<]zP`K/ !RB,g;oSPRH6PG.50RP/ri{jgRZ&d'x48Rd|&Za^GRrnQ[34hS.[Ef3I%S0;>DZzH>S0hE}3iI !S.e`0(8}RpS/g7irR^+7fHz2RVo2z4p[RLjYQ[(;RB23hF)fR6WYK/p;Qp&g&0,xQPqf>JL[R0+MZxye !R4aS>uTtR8[a&u.%R:t@6JDRR[zpyk !R.ghd'hrR6i%tD>WR<.yI.^SR>@8P|`IR>l)bk)WR>ZYoS6cRk(]Quc !RD=%_ykqRH2nZh-'RJl4p+liRLnyu9yVRN%P'_E_RNAYZG&SRL]cm,@WRJlK>CP'RHOchLg3 #% [ 59] ra_m5.phase !SshR%%SO|7u~~~SU{y[%%% !SWZZzzR%SWo;vMR%SY%\P_R%SY;B7MR%SY\-%v%%S[/uRMR%S[l3_R%T-aUzZ.%T-cA:FhR !T-i|p[%%T-sEhZ.%T-~vXp[%T/1*+p[%T/=2.iqRT/IF4;zRT/VXmEI%T/bok?.%T/o-Pod% #% [ 59] ra_m5.caps !T._c%u~~T._mz)R%T.`1.MR%T.`\q)R%T.aDMzR%T.b:_)R%T.cC*I%%T.dVIv%%T.exC[%%T.gGWI%% !T.hx+@%%T.jR9;R%T.l,G7%%T.mY;)R%T.n{4hR%T.p84@%%T.q_R%Srf';R%%SpUaP6~~SnA5wl~~Sl13@v%%Sj+\hzR%Sh0c6-~~Sf:Jl~~~SdAt?.%%S^K~B;R% !SZm~.%%%SX=WQ.%%STbZ^[%%SR?MZ.%%SN~[iqR%SL_ZRMR%SJMJdv%%SHA/LZ~~SF0=xd%% ifeffit-1.2.11d/src/fefftab/48.dat0000755000175000017500000003577010771740460015506 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] cd.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] cd_k.amp !Q%%%%%%%QDQhC(UCQbdNV(c.R.ULqP<~R0x\PR9vR49o=j/mR6LFI`cgR8U4c6RMR:UOU7tlR;@:a+iR>yia8dvR@V'_DVrRB&o&tcVRBG*ez,CRBZwuP]PRBbW0EGGRB[]/S,7RBFu~?XyRB'qC,5G !R>xI=?~~RFGN~t@fRPaa01;nRb%U[%%%RvBDbAy3S0*'B<^lS0uLOX)jS2HKI;BrS2SUK.{2S2?Y4B|w !S0oMhfX`S0:0&9DvS.Zr1cn3Rt^iHRTlRhmZqv7^R^j@kJxDRV^w.,QBRPOx[;b7RLEAMrf3RJ@bJ-\Y !RLWFMm8MRTQ)l.79RZ}eW%(;R^wyt.v%R`lqi|cPRb4KP[PJRb0Xmv-hR`XGu*MdR^Ywg}[?RXHLgg'7 !RRejs0MBRNG`cO9ERJ7Y,9_GRF+|Rl1,RB>&HQ;\R>adH&m%%Sc>ShzR%SeWo+?~~Sgh`Y6~~Sip@ahR%SkmkshR%Sm_b[MR%SoD-VQ~~ !Sq47u~~~So{X.Y_RSot}*qR%Sq,>yJm%SqXpm9;RSs8y62)RSsu7ADR%SuW-Uc.%Sw7L[,?.Swpb?o[v !SyLuX/m%Sy~}dEI%S{Prcfd%S{t_Jdv%S}5==|hRS}E.pBd%S}I&8DR%S}?crqR%S}+,WH~~S{ioOhR% !S{;yc-~~S{[|t_R%S}\r_R%RtjH.%%%Rl6hAl~~R`mSXhR%RTtFlVR%RHTOhR%%R:tFH.%%QvD2Iu~~Q]x<@v%% !R7p,od%%REfsH-~~RSV7=?~~Ra<@-.%%RmsjT;R%R{GLs@%%S-}->7%%S/\3,_R%S1:g2R%%S1r~)zR% !S5K(NqR%S7{Rem%%S;NMrI%%S=vG&l~~SA=r];R%SCWqvMR%SEk_R%%%SG{tC2R%SK07qzR%SQH6vu~~ !SUA1*I%%SY1PO@%%S[sft6~~S_N`,_R%Sa}&m%%%SeLfC[%%SgmiqQ~~Sk0lRMR%SmK+?~~~ #% [ 59] cd.rep !S6DHb_R%S6EImu~~S6HM5_R%S6MVMzR%S6TZb_R%S6]YshR%S6hPG6~~S6u3?-~~SK;R% !SN?]l.%%SP-/8DR%SPu_Iv%%SRe/L[%%STUA,7%%SVF:Bc~~SX7f[u~~SZ)kwm%%SZv?B;R%S\i757%% !S`vzrH~~Sf,M=hR%Sj=6b_R%SnN{8m%%SraQ%u~~Svt]OhR%S|.;b7%%T.TwLZ~~T.h{eDR%T0K5od%% !T0sL{I%%T2Agg2R%T2j,2zR%T48N8m%%T4`p>_R%T6/8DR%%T6W^*H~~T8&)j?~~T8NOP7%% #% [ 59] cd.lambda !SB\HzzR%SB^5C2R%SBcPod%%SBl:2Q~~SBx1k6~~SD-)1[%%SD>Uk6~~SDR@UZ~~SDgqb7%%SD~nHVR% !SF<]_zR%SFTu%u~~SFm6%v%%SH+07MR%SHBJ,7%%SHXxd%%%SHnZjhR%SJ)`4hR%SJ>Z^[%%SJT.12R% !SLOp[%%%SDrCg2R%SBsj/m%%SBN7%%T0CyFhR% !T0v>.v%%T2OewL7QPaIH7:*Qf?6meAPML(N)R>ydT&/MR@@3na8@R@W_c`8mR@dR%\IER@heZ,k` !R@l(*k~>RJ*3Oh}hRTU\w6,GRdCx?*iIRx%&E}I^S0,Fpm`\S0u5ycICS2E~V~UjS2O9Fb&mS2:3lxp{ !S0j1phBXS06B0|Z;S.Y(>2%yRt\c]LG|Rh|a7u~~R`,yICk7RX+9z+T;RP|;KVeMRLt<@GdjRJl38w7V !RLi'r`Q.RTD*@XOmRZ[?;vcFR^J~^|[]R`?E8<&&R`bzf2X>R``}&f\wR`/ps>p'R^3TT@0d%RB4R78jrR>XzjceuR<@4wz^^R:Dj_a-rR8}U}]\s #% [ 59] cd_l1.phase !S3y4xc~~S92pk7%%S=@pBc~~SAI(_)R%SEK?2)R%SIGG[MR%SM=,2zR%SQ,)^2R%SSn*4hR%SWO&P_R% !S[(_)Q~~S]Tny2R%S_yNqR%%Scnu-~~S<5G7%%S/[RiqR%S1:7iqR%S1r];Q~~ !S5Jp:Z~~S7{Gk_R%S;NBx;R%S=v8LZ~~SA=d))R%SCWj\DR%SEk_R%%%SG{w}6~~SK0?2)R%SQH6vu~~ !SUA1*I%%SY1T/DR%S[sft6~~S_Ncfc~~Sa}*M)R%SeLi}_R%SgmiqQ~~Sk0p2R%%SmK.z)R% #% [ 59] cd_l2.amp !Q%%%%%%%Q6@rzTp3QF-}%@13QRxr882>Q^J%Ql%RQfFIdPv5QjfARIcFQlXR.[ZNQl3~+zxPQhz_\/td !QfQ~]Ny[QdG1@mJxe9mfRlm>s|V>Rn.8Uxmf !Rj[Fws=}Rd}ME([%R^^[(l4PRV|mKq_FRPBs.j)fRH{])W~NRD*u9C[%R>lojwWzRv8;UfDRHDnL]V^R:xv'u}GR8Z2tt+`R6vh;`Q5 #% [ 59] cd_l2.phase !S3{u2)R%S93j\DR%S=<@-.%%SA;@~-~~SE0AXhR%SGte4?~~SKR{h,g[%T/AR@z)RT/C?)zR%T/CjlVR%T/BZEQ.%T/?C@=@%T/9yl%v%T/32T';R !T/&9(NqRT-~xHrqRT/*GG6~~T/39n0;RT/=O=3qRT/Go?VR%T/QumY_RT/[wY2zRT/f+G?.%T1)OO5si !T1T1_'Y9KdT1p;;b[MT3%.xhrIT35H?JDRT3D/\HVRT3Q^AP_RT3a,ShzR #% [ 59] cd_l2.caps !S^3XH.%%S^3Imu~~S^2x+?~~S^2+T;R%S^0r4hR%S^/6fc~~S^-0p2R%S^*UVzR%S^'?zzR%S\}J(2R% !S\xe8DR%S\s(wDR%S\l>7%%%S\d56~~~S\Z\}6~~S\OB';R%S\B(NqR%S\2M1Z~~SZzJL[%%SLbRz)R%SL-JDR%%SJSXhR%%SH{'l.%%SHIkO?~~SFsa7v%%SFDX+hR% !SD+]WqR%S@n^&DR%S>X3qR%%S_R%S1iadMR%S3u;EqR%S7%M-VR% #% [ 59] cd_l3.amp !Q%%%%%%%Q66+)>2{QDr~JhzRQRZmDpC.Q\~dFqQ6Qdv+:Bd%Qj9t_^i5Ql-V*CnMQjhs=F+iQh`\mz`5 !QfHvc)1[QdTO~LrQQd_7lUTTQh.0a:)6Qlc5+dj`Qry|H3.=QzCY5~[ER.ST>U{:R.ce\jZQR.eouA&c !Qd\bU>%5QjAu<1p*R0qo3I%%R8qJua'dRDR)f%]dRP}_dSQNR^3XQyg2RfjX2YjqRl=n7L0+RlY>h8IE !Rj.|n0?2RdT:u(%VR^91M3s0RV[PW^1cRP%WL`sTRHazDrWYRBnE-+IfR>Xi)e[5R<.oeL5aj0RH)i%EI%RNqG-(BdRT9b@RZ'r-ec;RXR+Mi7ZRTFES-wV !RP;j(',qRL=UXhn+RHHC0QQ|RDQQhLg3R@p~PSJCR>CwsJ%AR:x@DG22R8[&1g-(R6w}9IS4 #% [ 59] cd_l3.phase !S5,k_Q~~S9>Yod%%S=FsL2R%SAEOt_R%SE9p2Q~~SG}8\m%%SKZ_nDR%SO*L_)R%SQDalVR%SSLT/DR% !SU@/y2R%SUzLg2R%SWLNqR%%SWshR%%%SYEf|@%%SY{2f;R%S[_q5_R%S]Kdmv%%S_<5{qR%Sa/5.u~~ !SeradMR%Sqb`eDR%Sy^v12R%T-VTR~.%T-hJRahRT-tgb?.%T-}ID5_RT/*%PC2RT//R.em%T/4HK3I% !T/8wXD)RT/='UJm%T/@X.~.%T/CBC6VRT/E/,6~~T/EZnl~~T/DJGg[%T/A3BSm%T/;bT3I%T/4q\0;R !T/'m6JDRT/&G\`qRT/+lzzR%T/4_GshRT/>xP{qRT/IB3H~~T/SHaL2RT/]FlzzRT/gM@~.%T1*|C(Fi !T1=h`z%MT1OUK')>T1`X-0KdT1qh/U.MT3&X2VrIT37&-JDRT3E`0?VRT3S4oG_RT3bo;vMR #% [ 59] cd_l3.caps !S^3XH.%%S^3Imu~~S^2x+?~~S^2+T;R%S^0r4hR%S^/6fc~~S^-0p2R%S^*UVzR%S^'?zzR%S\}J(2R% !S\xe8DR%S\s(wDR%S\l>7%%%S\d56~~~S\Z\}6~~S\OB';R%S\B(NqR%S\2M1Z~~SZzJL[%%SLbRz)R%SL-JDR%%SJSXhR%%SH{'l.%%SHIkO?~~SFsa7v%%SFDX+hR% !SD+]WqR%S@n^&DR%S>X3qR%%S_R%S1iadMR%S3u;EqR%S7%M-VR% #% [ 59] cd_m1.amp !Q%%%%%%%Q4iF>k_RQDVod-hBQTJ*jpiYQdE22Q6.QtHqDxHNR.i60Kd%R0YI4`31R2JJAe93R4;'A4@% !R6+0S~0pR6s*u9C[R8^^)o|@R:FkH\XhR<*\]zS]R(QEQR>;/nm79R>egJrotR@/\g*>+R@N0uX7- !RBCRM4p[RLDFR}jqRX;|s3EiRfws1vvIRz=V{=}WS05f\D4/S0{orEC0S2I\A,fHS2NhYFH.S27?J0,x !S0fuww0;S03WncpRS.WJ;|;pRt[p=9xO@RT6sXG?.RZ:AA6X0R\{QeK%'R^ncGN;:R`:?4,P/R`9v(~HgR^cnv`}}R\h}>:z'RVkQSaY/ !RR7n,Q-pRL~Vj}kMRHs*jrExRDnt`gX\RB+c,e{hR>PrFNklR<:j>St\R:>X^%.[R8ww;6{[ #% [ 59] cd_m1.phase !S5JOL2R%S9]y*H~~S=k7%%%%SAr5{qR%SEr\L[%%SIl6vu~~SM^_rI%%SQIrDzR%SU-\4@%%SWcw@MR% !S[8WU2R%S]_i,_R%Sa%G&m%%Sc=N}_R%SeMrH~~~SgVE([%%SiVZ-~~~SkM~VQ~~Sm;iQ-~~Smx{,_R% !Sq,2V)R%SqYwHVR%Sqzbx[v%Ss9?<}_RSsUu%-.%SswJcb_RSu@,,shRSuea&,7%Sw4q|xd%Swb-P*M) !Sy68F/m%SybsdqzRS{1@2EqRS{S;'+@%S{mQe,7%S{~Z~ZVRS}+ft6~~S}'t[MR%S{t{qR%%S{b\`qR% !S{CO`I%%S{cGwm%%S}`1Ru~~T-Zk[))RT-gt'[v%T-tz^2R%T/'evADRT/4Sf/DRT/AVb[MRT/g1[mv% !T/~h>2zRT1;7lb_RT1PRd57%T1ee93I%T1x?VR%%T328u.%%T3C}Yod%T3UbnP_RT3j|]WqR #% [ 59] cd_m1.caps !S?.%%S8nKG_R%S8TG_Q~~S886fd%%S6sd))R%S6Rn@MR%S6/Fxc~~S4c@]d%%S4:I57%% !S0Sfx;R%S.Rb{qR%Rx%>.u~~RnI|t_R%RbwKl-~~RVqy>_R%RJFJ0;R%R<[`0d%%R.`CBc~~QS[aD)R% !R7G5G6~~RED%))R%RS8SP_R%R_}=P7%%Rm^hj?~~R{62MzR%S-{eDQ~~S/[*a?~~S19t[MR%S1rGG6~~ !S5Je@MR%S7{D1[%%S;N?>7%%S=v4lVR%SA=`I%%%SCWf|@%%SEk_R%%%SG{{];R%SK0Bl.%%SQH6vu~~ !SUA4dMR%SY1WiH~~S[sjT;R%S_Ncfc~~Sa}*M)R%SeLi}_R%SgmmQVR%Sk0p2R%%SmK.z)R% #% [ 59] cd_m2.amp !Q%%%%%%%Q4.Ek9H*Q@{*|0,SQNCfR}FHQZ.qIw-JQd6aW9jPQl]=(8`)QtUV@vmvQ|*v(K%9R.^L;D+0 !R.{zs^4TR0@QH*w}R0`S1demR2'7WJ?_R2GzT6x/R2g4Ib2zR4()js'dR4=DK(*IR:<~vrD{R6f_RS?:R4pZRA.^R4e)7,uk !R:5fJ713RBAa;zR%RH}}>/:}RNMjF'x)RR,1SnqYRT:Z\,>?RT~_u;4ERV9t~GrCRT~lvSM-RRSeQ1A3 !RNe)='\eRJy=rxzbRH5gHl*[RDGIqGloR@jscOEiR>@RwC>`R:x_RT/Xe~%v%T/c/`M)RT1'7N9[v !T1:OX&P_T1Lh-|jTT1]y=e`qT1oP+?ZVT1~]?~ZWT352K/DRT3C~b;)RT3Qi;^2RT3aXshR%S^30?VR%S^2^VzR%S^1l%v%%S^0X`H~~S^.zrI%%S^,qAm%%S^*<(Z~~S^'*,_R%S\}0Sm%% !S\xKd%%%S\riI%%%S\k{([%%S\cub_R%S\ZCNqR%S\O(Ru~~S\AhzQ~~S\27=@%%SZz*@v%%SZd{`@u~~SLbe4@%%SL-`8l~~SJSgBd%%SH{6F@%%SHIvIMR%SFsl2)R%SFDc%u~~ !SD+a7v%%S@n^&DR%S>X3qR%%S_R%S1iadMR%S3u;EqR%S7%M-VR% #% [ 59] cd_m3.amp !Q%%%%%%%Q2|M,,5lQ@c*|AY3QLyIB;JeQXX:b]e]QbT@fA?:QjpWluxTQr`rSk?wQz1a'MI-R.V.(-P' !R.t*7fIbR09Hem,?R0ZYBkcVR0|_dPyoR2DrR5bhR2eSH~ZWR4'b,d+uR4=Q/a4`R4IUU4/mR4HrH0]x !R0xxo9'`R0EV[IwKQzy{jhgsQj]}pc@9R2Oe?b;*R<\BzUm^RFt7&[CkRN}@h0zbRTHr^vz)RV()U>|` !RT<9~kLORPY,Dw*5RLBIjQnmRFo?7`cgRBAWVDi-R<~@qTZ>R:%O=_Z.R6P1WfqFR4ZTMdl>R4O,ATd% !R8xmA=ySRB'oh)R%RHa:x{'5RN/5SGk;RPff,;w1RRt|YBYORT`33i:*RTwy*C40RTev}nqNRRAtYIrq !RNW:6r:NRJp=:e.lRH/7G:PORDB\eZ}dR@hJdYkuR>>p-M>jR:wF%C43R8]PQxxe4?~~SCqMV)R%SG?C*H~~SI]4\DR%SKrKKd%% !SO&DQ~~~SQ.EH~~~SS2:Rv%%SU3B/DR%SW1r,_R%SY.PgZ~~S[))Q~~~S[{&}6~~S]oR~.%%S_`Ot_R% !Scb[MR%%Si7b{qR%So2LBc~~SyNreDR%T-fL='d%T-x3Adv%T/'Sb*qRT/-bn,7%T/2Y0Sm%T/6vk*qR !T/:~W@v%T/>d+t_RT/AwqrI%T/DE>O@%T/Ejr8m%T/EkYod%T/Counm%T/?IQzzRT/8OOlVRT/05C{I% !T-|FHvv%T-{T8`qRT/'{qRT3EMv))RT3S8OL2RT3c9dIMR #% [ 59] cd_m3.caps !S^3>shR%S^30?VR%S^2^VzR%S^1l%v%%S^0X`H~~S^.zrI%%S^,qAm%%S^*<(Z~~S^'*,_R%S\}0Sm%% !S\xKd%%%S\riI%%%S\k{([%%S\cub_R%S\ZCNqR%S\O(Ru~~S\AhzQ~~S\27=@%%SZz*@v%%SZd{`@u~~SLbe4@%%SL-`8l~~SJSgBd%%SH{6F@%%SHIvIMR%SFsl2)R%SFDc%u~~ !SD+a7v%%S@n^&DR%S>X3qR%%S_R%S1iadMR%S3u;EqR%S7%M-VR% #% [ 59] cd_m4.amp !Q%%%%%%%Q63{>a3MQFES,Tu&QV[xeiW5Qfx~f~:{QxG/_lfdR.}kaiH6R0p[NI_BR2d'D{.bR4V~3+Dr !R6I)IHLGR89-mp}'R:&Sg+%bR:k_v6U?R8IJezjR>tQjMu:R@TElW@vRB3*IN5|RBlo2D9d !RF;]NDh>RPU>=-7fRZHZ)%y;R`GN>?RHtl%e{Y !RHg.bQX0RHPt]T03RFZ',1nMRB}UTM|0R>v]SqgOR:YJQd=@R66\9BdnR0pl`m>xQnvJW9MBQPoCRP]lxRCkRRaV87riRT4d2Cc{RT1EJJ*oRPy5+kc{ !RNBu^g>URJV[Y4^1RFrU9kL{RD+rxAxOR@L.rE:hR>%LNY,+R:UxjLV{R6}g=p[%R4}[nBJ_ #% [ 59] cd_m4.phase !S5CYk_R%S9W;^2R%S=dH^Z~~SAkK;R%%SEk|`I%%SIeSP_R%SMXQnl~~SQCdADR%SU(9G_R%SW^uB;R% !S[4OH-~~S]\t?.%%S_~3a@%%Sc>=t_R%SeQ5?.%%Sg\OL2R%Si`Vj?~~Sk\cb_R%SmPUFhR%So;o|?~~ !SqqPk_R%SszlB;R%Sun5wl~~Sw3;^2R%Sw-R))R%Sulc)zR%SuUfC[%%Sua5shR%Swe}7%%Sv9ny2R%Sv4A8DR%Sv.34hR% !Sv'HNI%%Stz.EH~~Str;9d%%StireDR%St`~NH~~StW^NqR%StMlfd%%StCG{qR%St8FT;R%St,Yoc~~ !SrWB/DR%Sr>yo;R%SrGI]d%%SrT,SDR%Sr[rDzR%Sr_5;)R%Sr_*@u~~SrZtshR%SrRV%MR%SrEzIv%% !Sr4}2zR%Spz/}6~~Spa}WH~~SpG4X?~~Sp*Qvu~~Snfn0;R%SnHeu.%%Sn*sT;R%Slgp*I%%SlKqEqR% !SjeFT;R%Sj*[]c~~ShID~VR%Sfb=P7%%Sdv|t_R%Sd3-rqR%SbN[]d%%S`oUo;R%S`92Z.%%S\Heu-~~ !SZB)=hR%SXC2Q~~~SVD)R%%%STN~NI%%SR^HF?~~SPmd~-~~SP*tgZ~~SNC6VR%%SL[8q)R% #% [ 59] cd_m5.amp !Q%%%%%%%Q6>d4q_jQFZ~rus`QV|A}o0|QhJJKtPSQx}k>w9|R0*H~qt'R0xHc}*)R2m%ARDZR4a:FD)R !R6TX-g.MR8Eu7Z1;R:4]fvD6R:{*L/`qRJK|s'dR@-nCM9dR@i&h*@vRBI.2+|DRD*6z=~F !RFTX1g{IRPuz'|zBRZj4(dH_R`_X4hkSRbF*w=)BR^pGP%*=RXY:69C[RPaO@{&}RJs]n~\YRHqF;2B\ !RHcri]J,RHL^;i|qRFT`6,*)RBw(JW0dR>p*PV*eR:RwOb&mR60D`7`zR0jj9e?_Qn79yo_{QP1>,_d9 !R0T?`dU[R:jsK,dqRD2;LJ>DRJ5KvcTtRN=8B:v*RPixx[s-RRm/XkJMRT>gtF9TRT:U|L^[RR'T>cC5 !RNFr&|RaRJZ=u*o:RFso,EH+RD*}Kz&*R@Ka%BVHR<}LcgtLR:Sdt4|hR6{p~`*9R4za_(-3 #% [ 59] cd_m5.phase !S5wop2R%S;1-:2R%S?>^c.%%SCF+hR%%SGG'[v%%SKAGC2R%SO4j/l~~SQ{5{qR%SU`/P_R%SY=ZB;R% !S[mXpZ~~S__R%Sk9}wm%%Sm2u:2R%Sm},shR%SocxSl~~ !Ss1IY_R%Su3oOhR%Suzgs?~~Sw<3U2R%Sw4GcVR%SurimMR%Su\[~.%%Sui>shR%SwF7QVR%Sy1R-.%% !Sy`(6VR%Syq;Am%%SykJLZ~~SyX*0c~~Sy=_Z-~~SwwFT;R%SwP\_R% !Sa*6jhR%S_K0|@%%S_LO;zR%S_era@%%Sa3~rqR%Saa[12R%Sc5uF?~~ScdKOhR%Se;2Iu~~Si%-vv%% !Sk7SXhR%SmJe}7%%Sv9ny2R%Sv4A8DR%Sv.34hR% !Sv'HNI%%Stz.EH~~Str;9d%%StireDR%St`~NH~~StW^NqR%StMlfd%%StCG{qR%St8FT;R%St,Yoc~~ !SrWB/DR%Sr>yo;R%SrGI]d%%SrT,SDR%Sr[rDzR%Sr_5;)R%Sr_*@u~~SrZtshR%SrRV%MR%SrEzIv%% !Sr4}2zR%Spz/}6~~Spa}WH~~SpG4X?~~Sp*Qvu~~Snfn0;R%SnHeu.%%Sn*sT;R%Slgp*I%%SlKqEqR% !SjeFT;R%Sj*[]c~~ShID~VR%Sfb=P7%%Sdv|t_R%Sd3-rqR%SbN[]d%%S`oUo;R%S`92Z.%%S\Heu-~~ !SZB)=hR%SXC2Q~~~SVD)R%%%STN~NI%%SR^HF?~~SPmd~-~~SP*tgZ~~SNC6VR%%SL[8q)R% ifeffit-1.2.11d/src/fefftab/22.dat0000755000175000017500000001710310771740460015464 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] ti.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] ti_k.amp !Q%%%%%%%QrY1ANNaR4fA0z6NRH-6RRUP7'5p !RPX=FE~NRNEjU:m9RL.npQ6wRHvOJwc>RFkBA{F}RDjKSno'RBs-{C0PRB-d8)[fR@N5w\{YR>~ki+ !S0WkBeraS0Tq~Jp;S0Jgijc_S0=,4(wDS0,Mst(oS.uN>k2@S.c]?{|ES.R/Y%-wRz}RHwGhRv{Kvd~. !RlYrljwm%%%RMunl~~~RcG*qR%%RwA@MR%%S//>K;R% !S1.V%MR%S3.?B;R%S5-2MzR%S7)?F@%%S7zyc.%%S9l2MzR%S;U8XhR%S=4;oWqRS=af+@%%S?(I8q)R !S?4A8DR%S?`3`,_RSA<2mU[%SC)8B+@%SE%7NH6.SG)aeod%%S[z;f;R%S]gTx;R%S_Qg.MR%Sa9dmu~~ !Se)cJDR%SgyZ6.%%SkpG2zR%So_H>6~~SsDEM)R%Su{Kp2R%SyRh^2R%S{|C:[%%T-U%o/DRT-xfe8DR !T/3F7QVRT/Fvw\m%T/ZG+;zRT/jW|p[%T/{X29d%T10w{}_RT1@MNDzRT1R3J\m%T1i]cZVR #% [ 59] ti_k.caps !S47u6.%%S46t*qR%S43pc.%%S4.ndv%%S4'n0;R%S2xys?~~S2n7z)R%S2a_~VR%S2SA`qR%S2C>;)R% !S21NM)R%S0wuvv%%S0bOdMR%S0K25_R%S01hj@%%S.p4T;R%S.R3Y6~~RxH+3qR%RpKl-~~~Rh.8q)R% !RF%~.%%%R>>jL2R%R8|{y[%%R0nR=@%%Q.[^Ru~~R/`3yZ~~R=?d=@%%RK=jxc~~RYO\DR%%RgiH6-~~ !Rw(tSDR%S-o,.v%%S/TC[%%%S17\P_R%S1r`uVR%S3QB;R%%S5-K|?~~S5a.~-~~S78[56~~S7h@~-~~ !S;(o_zR%S=Er@u~~S?dO/l~~SC&3Q-~~SE:q=hR%SGF&P_R%SIHLFhR%SKEadMR%SMA7z)R%SS'w(2R% !SUXkgZ~~SY'ia@%%S[KHNI%%S]aFt_R%S_r8HVR%Sc&Cc-~~Se+=X?~~Sg-,k_R%Si,O?~~~ #% [ 59] ti.rep !S4bczzR%S4cp&DR%S4g=p[%%S4lvQVR%S4ti];R%S4~f?VR%S60hrH~~S6>fG_R%S6NWY7%%S6`8l~~~ !S6s\hzR%S8.^Rv%%S8EAdv%%S8]Y*qR%S8wJXhR%S:8lZVR%S:Uhj@%%S:tFH.%%S<:_MzR%S<\du~~~ !S>yk6~~~S@X(.MR%SB3n`qR%SBnwa`H~~T>yX|hR%T>~x/DR%T@,v56~~T@6&@MR%T@>=t_R%T@CG2zR%T@C&DQ~~T@;(>_R%T@)o3H~~ !T>hqZ-~~T>DT';R%T[MR% !T.n=7v%%T0@cjhR%T0oZb_R%T2FieDR%T2z/XhR%T4UQb_R%T62v))R%T6l;EqR%T8MJdv%%T?RLney-Hg !RLqV{j,|RLLh|,tWRJdKtkPxRHlO)Am%RFjRuHBtMb)t'R>9=Di>t !R@~I{RemRHc[CvQ{RR`DnU~_R^_e,0+dRl3Jh'HNRxRjb<@RS.ev\{2XS05z{B8.S0Shh=hRS0eDC%fg !S0joI8WUS0gLavpCS0\:rdkOS0M%h.irS0;?tFVbS0(4~-SWR.{|o~UyQ~{ZI+bKQrcvJjBLQj/O?MX_Qf^.dza^QV-dm0&M #% [ 59] ti_l1.phase !S6>-tshRS2.M\y2RRvpN([%%RR3];R%%R0&4?~~~R9]7MQ~~RUp6VR%%Roh1Z~~~S-{'G_R%S1)[ADR% !S3,DEqR%S5*iH~~~S7%EmMR%S7u{DzR%S9g_rI%%S;RzMzR%S=6'p{I%S=hXLVzRS?4;&`qRS?K.<,_R !S?(Chj@%S?A{Y6~~S?sMj@%%SAd<,_R%SCf9'il:SEpfz=hRSG|>k_R%SK.%79;RSM7\M%MRSO?MaH.% !SQDKx;R%SSGCVzR%SUF{yZ~~SWCeTd%%SY<`Q-~~S[1t.v%%S[}0Sm%%S]jft7%%S_UCRv%%Sa=i@v%% !Se/:k7%%Si&A_R%S2AY2zR% !S2/t?.%%S0vI))R%S0a*0d%%S0Imu~~~S00QjhR%S.n{4hR%R~tlNI%%Rx_R%R/sfOhR%R=PshR%%RKLm9;R%RY]&q)R%RguG.u~~ !Rw3yZ~~~S-p-:2R%S/U=L2R%S18RahR%S1sOlVR%S3R&8DR%S5.(_)R%S5a^FhR%S79%]c~~S7hZRMR% !S;(s@%%%S=En`qR%S?dGoc~~SC&3Q-~~SE:twl~~SGF*0c~~SIHLFhR%SKEZJDR%SMA4@%%%SS'w(2R% !SUXkgZ~~SY'f';R%S[KHNI%%S]aC:Z~~S_r8HVR%Sc&Cc-~~Se+9x;R%Sg-)1[%%Si,O?~~~ #% [ 59] ti_l2.amp !Q%%%%%%%QlX<{RB3/>G|s%4Vb7R<_oJfSmR:\N>6SIZ.5(KRBv){LWiRHk@oe?_RP=it+n}RX0b/;e(R`3_kA0;RfzmaPLsRn=^u91GRrsa^|c_ !Rv\b}]SIRx[%wqXuRxq<^]KdRx_hk0f'Rx'+(@aiRv3buAxDRt0XH^/uv'MT'R8^ZkIfn !R4|9/IhHR2]wXGw:R0g{0Y*qR.dUN,H4Qz.VIU6VQl]?cWfnQ`}dl8fxQ^\)lglJQTOWsdp0 #% [ 59] ti_l2.phase !RNR56~~~PE6~~~~~RG80;R%%Rao;R%%%Rw?>7%%%S-v_f;R%S/PjpZ~~S/zq~VR%S1HCs@%%S1r-rqR% !S3F'?VR%S3wm%%%%S5R0CZ~~S7-~6-~~S7dV%MR%S9AYWH~~S9yeTd%%S;Z6vv%%S=>fl-~~S?)Y?-~~ !SCt7IMR%SGQtO?~~SK5A0;R%SMpS@MR%SQC-^Z~~SS]unl~~SUg0+@%%SWd+t_R%SYWeDQ~~S[Ef3H~~ !S]0)=hR%S]r*];R%S_X8@MR%Sa<-rqR%Saw2=hR%ScTwL[%%Se/(VzR%Se_LBc~~Sg2OX@%%Sg](NqR% !Sil<4hR%Sm(T/DR%SoCqb7%%Sq[v%%%%SslQ^Z~~Suw&Td%%Sw~Uc.%%S{(dADR%S}'[-.%%T-c4q%MR !T-rO@TG_T/'4}tWIT/5uvk*rT/B7pr,`T/OMV53iT/[4fe\mT/emp,odT/o>\`qRT/z6fN0d #% [ 59] ti_l2.caps !SZ&@MQ~~SZ%gJm%%SX~/\l~~SX{EiH~~SXwZjhR%SXrn`qR%SXm++hR%SXfG_Q~~SX^n(2R%SXVGshR% !SXM/4@%%SXB}wl~~SX8&0;R%SX,*qR%%SVy'3H~~SVjmiqR%SV[4lVR%SVIpg2R%SV6PK;R%STzXP7%% !SRu'x;R%SRl|X@%%SRr^s?~~SRg5C2R%SROMEqR%SR/gBc~~SPd+P7%%SP9a3qR%SNe\m%%%SN5.-.%% !SL]%9;R%SL*F|hR%SJQ~ZVR%SHz`}_R%SHJ{4hR%SFwA5Y&l~~S<2Z.%%%S:48du~~S8>Dj@%%S6Q2rI%%S4hy>_R%S4'T[v%%S.x'_zR% !RpaywDR%RZ_,gZ~~RF1M^2R%R4-WeDR%QG9&L[%%R93BSl~~RG_|xd%%RW43qR%%Re?q9d%% #% [ 59] ti_l3.amp !Q%%%%%%%QlNBEzIvR40=-;EqR:cfIeiERB/xJ6jDRH+V20&qRL3^?Uc.RN+:kt{rRLrb;?F@RJp5>jp[ !RHFE')iQRDk^+2KxRB:~>dW]R>qi^8}7R<^sXQQ_R:[lBKUKR8hLB%aDR8(78XGU9PHoRBs7?OFPRHg\/@y;RP9RDu%BccaRB@MWj{CR>v3F[z*R8^CMH_% !R4{{mN`}R2]`5B2OR0gEX[Q9R.d&VOROQz'omtG7QlU(v6+FQ`tql)i%Q^O{DYS2QTB?aaOZ #% [ 59] ti_l3.phase !RLO'c~~~Q;l-~~~~RI6%v%%%RcgNqR%%Ry/m%%%%S-}C2R%%S/Vc%u~~S1&(VzR%S1Lt.u~~S1v++hR% !S3IO/l~~S3zlfd%%S5Tlvv%%S70CZ~~~S7f_V)R%S9CTSm%%S9{Qvu~~S;[v%%%%S=@H:2R%S?+7--~~ !SCv++hR%SGSoKd%%SK7G&m%%SMr\q)R%SQE3U2R%SS_S\l~~SUhgs@%%SWecb_R%SYXxc~~~S[FyRu~~ !S]1<];R%S]s=|hR%S_YK_zR%Sa=e`qR%Saxj+hR%ScVU:Z~~Se1*mMR%SeaNY6~~Sg4Qnm%%Sg_*eDR% !Sims|hR%Sm*1wDR%SoEOP7%%Sq]x;R%%SsoBl-~~SuyM9d%%Sy&|H.%%S{*fWqR%S})]C[%%T-cR%IMR !T-rhnst`T/'UlC*IT/6k3iT/[Y58\mT/f8>YodT/ojE5Y&l~~S<2Z.%%%S:48du~~S8>Dj@%%S6Q2rI%%S4hy>_R%S4'T[v%%S.x'_zR% !RpaywDR%RZ_,gZ~~RF1M^2R%R4-WeDR%QG9&L[%%R93BSl~~RG_|xd%%RW43qR%%Re?q9d%% ifeffit-1.2.11d/src/fefftab/62.dat0000755000175000017500000003577010771740460015502 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] sm.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] sm_k.amp !Q%%%%%%%R.waBm:*R8Xo|G+KR@f?YJL[RH5%suNIRLig0?e,RPIG2A^KRR)`>{([RPe1yeF0RNMa7P-> !RJExY(?sRDWuXO2:R>79y[|PR6L=8eCFQ~xxKv9;QFRXihS.^c46'[S.jF?[ePS.taXmW] !S.|3+N68S0%BkBZyS.|~:^:[S.sv|pX-S.ceh01kR~NpS*Y7RxO-z^loRr3F>xjPRjgz4PT3RdP,Sa`I !RVkCNGYKRNZQ@{znRJUuY1_rRJ]r]lCsRN`E4pSeRTXenq0@RPc)OcG=RLuHWch3RHZB|^;nRF/R7%% !SYT9t6~~S[~]G_R%S_C[%%%%SaOn}7%%Sc%\,6~~SYp&DR%%SQgYk_R%SS-8Td%%SSue,6~~SUk`@u~~ !S[@vIMR%S]\2b6~~Sa6RqzR%Scmd57%%Sg6|3qR%SiP'[u~~Skg@ahR%Sm}jp[%%Sq<.ahR%SsV8C>_RT/B4Mj@%T/E'-jD)T/J&MjdNT/RXGjp[T/]Jg;IvT/i%'25`T/tVo|@%T1=]j+hR !T1UL`a@%T1l}1Bd%T3)-aL2RT3>qI-.%T3T?*iI%T3hI4H.%T3|Vx+@%T56YgZ~~T5I7D5_R #% [ 59] sm_k.caps !SZ16zzR%SZ05oc~~SZ-2MzR%SZ(0OhR%SX{/u.%%SXr4D)R%SXgE0d%%SXZb;)R%SXL8}7%%SX<.=?~~ !SX*>O?~~SVptSDR%SV[z)R%%SVERel~~SV-\4?~~STnp@=?~~S>(k7%%%S<;Y?-~~S:O6>7%%S8d*;4'd%%S>WZnl~~ !S@\({H~~SBP7mu~~SD5lNI%%SDj,2zR%SFHJDQ~~SH);)R%S4E1.MR%S4PV~VR%S4\N];R%S4hg*I%%S4uIz)R%S6(M^2R%S65ujhR%S6ChEqR% !S6qZRMR%S6}*([%%S6MD9c~~S6Dpk7%%S6H0';R%S6SN];R%S6d=?~~~S6y4/m%%S874X@%%S,sD)R%S>RXpZ~~S>y%z)R%S@F4`I%% !SBPg6VR%SD^UBd%%SFn|H-~~SJ'aX?~~SL]OhR% !Sb{EDzR%Sh`tg[%%SnHm57%%St2o3H~~Sxxdmv%%S~f?VR%%T.hpk7%%T0(=p[%%T0Aop2R% #% [ 59] sm_l1.amp !Q%%%%%%%Q`Ar,/hVR0l\}&ZkR6Ti'6tOR<,C|k`AR@IkOz'OiRNs(%Sj} !RPYPfqX,RTVp)``QR`xOBZ>7Rhu=)PG7RnJB?0Z>Rpsh`UwiRrZ@h^2RRt+%%G~>RtFw[LTTRtkCzWVF !Rv<Rd3g{|'dR^mZigFh !RTneSIEIRNKw.]d%%S>/J}7%%S7%%%% !S2V{eDR%S.}88DR%Rl+(wDR%RN^\8DR%R2+D)R%%R5YN,_R%RQuZzzR%RmF}2zR%S-t*M)R%S5;f_zR% !S9OOlVR%S=P~b_R%SABSm%%%SE2s7u~~SGru2)R%SKKl-~~~SM}i8l~~SQOX?~~~SSqJdv%% #% [ 59] sm_l2.amp !Q%%%%%%%Q2j}:hTLQ@?/b/zjQLP1*QhB !R:2_}8Y3R:jCROfPRBn-O@_BRHf7aw,7RN0'VRqVRP|a,{qRRTuNo=T;R@W(x;=ZRD[X-_F~RJE=l;3]RNz\jrU{RRv;[=dMRV:Agzf1RXwZg`|> !RX,hzK%2RTvDdx{nRR6esXsiRN=VoKnyRJl~%A`7RFgfy6|kRDOLY`uiRB/63(8gR>W8d>]x #% [ 59] sm_l2.phase !RbE0d%%%R6Pod%%%R=.MR%%%RcNDzQ~~S-{'G_R%S1^`_RT3x;-VR%T5.mU6VRT5?-6.%%T5OGX\DR #% [ 59] sm_l2.caps !SL.5[MR%SL,t{qR%SL({I%%%SJ|Sq)R%SJsX?~~~SJh6)zR%SJZR))R%SJJ]7MR%SJ8^o;R%SH~ap[%% !SHhtoc~~SHQE,_R%SH87U[%%SFwSP_R%SF[IqzR%SF=x?VR%SDy5gZ~~SDY.v%%%SD7ndu~~SBo6:2R% !S@Xx?VR%S>T/DQ~~S4`B%1{ !R8fgp(84R:;{4fA4RB14KodIRFywk1BdRL>qKo1GRP0D+KR5RRK`);AmRTGC3qG+RV&b.TohRVQX9e?_ !RVuFur/3QRP~zPYK;RNVZF^\]RL(rM^Df !RD]?K:B@R@F->KJ,R>U+PAy2R@8RGH(nRDQk0gd3 #% [ 59] sm_l3.phase !RXO@%%%%QlrqQ~~~RG(g2Q~~RmM-VQ~~S/NRem%%S32oWqR%S5f)b6~~S94]3H~~S;T3mMR%S=sR9;R% !SCKUo;R%SY=Kh)R%S[>2V)R%S[86fc~~SYn2b7%%SYZs`I%%SYlr(Z~~S[F4;zR%S]82=hR%S_

_R% !Sg;RIMR%Sm-RMR%%SqT(s@%%SuV;f;R%SyCi}_R%S{yYG7%%T-UlU>_RT-b<.=@%T-nFB';RT-z6?nm% !T/+d7]d%T/6^ey2RT/@u^6VRT/JL'|@%T/S74lVRT/[BE];RT/bmZNI%T/ihN+L3T/o|pP*qT/uNC4/m !T1%@8L[%T1)W%ZUcT1)sVtK;T1)8_ZRNT1*f>C2RT1/ad))RT176Xxd%T1@4@mv%T1I^sdMRT1f:|\DR !T1yR4H.%T33FjT;RT3El2rI%T3WrVj@%T3j&[Y_RT3zpFhR%T51HnHVRT5Aq)R%%T5R*1wDR #% [ 59] sm_l3.caps !SL.5[MR%SL,t{qR%SL({I%%%SJ|Sq)R%SJsX?~~~SJh6)zR%SJZR))R%SJJ]7MR%SJ8^o;R%SH~ap[%% !SHhtoc~~SHQE,_R%SH87U[%%SFwSP_R%SF[IqzR%SF=x?VR%SDy5gZ~~SDY.v%%%SD7ndu~~SBo6:2R% !S@Xx?VR%S>T/DQ~~SEYRXONLg+8RTDGKEdVRR>f\yA,RPghl]zb !RPQWZqeMRT,,7De(R`)EO{y[Rf^u\^YGRju~ngugRn,hAHM~VRRVL9~U=xRX{5kng;RZtH0`IBR\eKBOa8 !RZIO3`f|RVni&E4sRRqQ5-kjRNeik_R%%S/UDf;R%S3`h~VR%S7dkshR%S;aQ%u~~S?Vv))R%SCEGk_R%SG-HB;R%SIj&,7%%SMHd=@%% !SQ&kk_R%SS`0?VR%SW1cRMR%SW&SP_R%SS2Lg2R%SSX=3qR%SURox;R%SWIVIv%%SY76JDR%SYwRahR% !S]iHZVR%S_m'p2R%Sc-p&DR%SeIu6-~~Sg\9WqR%Sij^FhR%Skz2V)R%S\:.))R%S\3J\l~~S\*5WI%%SZxP2zR%SZjGcVR%SZZ.IMR%SZGi8l~~SZ3KKc~~ !SXw=\DR%SX_NDzR%SXF'?VR%SX+1&DR%SVhkSDR%SVK*,_R%SV+zf;R%STeKl-~~STCM^2R%SRyuB;R% !SP]lRMR%SNO9/DR%SLkR12R%SLLx3I%%SL)u:2R%SJYM=hR%SJ'e8DR%SHJ.]d%%SFgey2R%SF'MAl~~ !SD><xI=?~~S>0^Bc~~S\f0memR:Y?sLDf !R2:N}7(_R0W?b_R%R6%^?c4uR8|M9A%fRpu3{U{R<0_AD4qR:cBI4pxRG-Q8.l #% [ 59] sm_m2.phase !RrnTc~~~RH-ZVR%%Qag2Q~~~RO_)Q~~~Rq[v%%%%S/G]+@%%S1eh1Z~~S3o8dEI%S_TSt?.%Sa.try[% !Sc2-O7v%ScWt(4xdScXedQVRScR}yJm%Scd)yc.%Se7%%T-c&][v%T-u?;j@%T/,I]d%%T/=>ry[%T/MpX|hRT/^H?%v% #% [ 59] sm_m2.caps !SL0yNqR%SL/^o;R%SL+eU_rH~~SO?~~S<6m56~~S:mqV)R%S:HGwm%%S8{.=@%%S8R(:[%%S8'';Q~~ !S6SoKc~~S4~Aq)R%S4L<];R%S2qg*H~~S2:nLZ~~S0[l>6~~S.{2Al~~Rzy'3I%%Rn:V1[%%R`WTCZ~~ !R@EEiH~~QCq4'd%%RC,x7MR%R[[Kt6~~RsrncVRQz5mzv))R.jy_.|,R04BB%GpR0E.37@1R0C)M=7%RJ,4xg_)RBjl4:BdR>@e;KSmR:=U2[/0 !R0kC5qmVR.wHUIY`R45@gcYhR8+j2eL[R<%t/RaiR>naa0[vRB>FM3~*RDNL,DB7RFE=TL~_RH+kH}G7 !RHhh{X9TRJFk&XYxRJu\b,@fRL4G6uttRL4;5|`IRJleoWEiRJ/v0se;'UOUOR:YeWObKR:6BngfKR<-g?[@@R@1_TxeKRDgpmic?RJ47=6a6RN&pLw0-RPD?\`YnRTTVy1dx !RT1Nz0o&RR@fW*DORN|rT.-RRLEq~LYdRJ.9yy43RF;(l6P]RD0>9dT'R@p1Ms.lR>?Nes3) #% [ 59] sm_m3.phase !RhH-~~~~R<_zQ~~~R5W@u~~~R[6JDQ~~R}:VzR%%S/{52zR%S3@=dMR%S5K3H~~~S7:hEqR%S7XL2Q~~ !S5~ap[%%S3,Z:2R%S-b:_)R%R=dADQ~~Rd+xc~~~RzBKd%%%Rvi,_Q~~Rjg[%%%%RZO\DQ~~RF\`qQ~~ !RSM)Q~~~S1GMb6~~S7l+|hR%S=<];Q~~SAEehzR%SE-f?VR%SG\?:2R%SI}0Sm%%SM>JL[%%SOVK/DR% !SQkDj@%%SSzXP7%%SW(1>_R%SY'[-.%%SYyTx;R%S[k.QVR%S]VxOhR%S_=nQNI%S_wpAu.%SaQ9oC[% !ScRQO7v%Scvk4BKdScv>V~VRScoJfSm%Se%2M1[%SeV7=?~~SgF[12R%SiEY7%%%SkJ{4hR%Sq^?)zR% !SulTOhR%S{(4xd%%T-R}yJm%T-eA`qR%T-wgjlVRT/.jr];RT/?`Na@%T/PJHzzRT/`v^wDR #% [ 59] sm_m3.caps !SL0yNqR%SL/^o;R%SL+eU_rH~~SO?~~S<6m56~~S:mqV)R%S:HGwm%%S8{.=@%%S8R(:[%%S8'';Q~~ !S6SoKc~~S4~Aq)R%S4L<];R%S2qg*H~~S2:nLZ~~S0[l>6~~S.{2Al~~Rzy'3I%%Rn:V1[%%R`WTCZ~~ !R@EEiH~~QCq4'd%%RC,x7MR%R[[Kt6~~RsrnzW9R.~`BnPBR4_~qBMBR:LyN/nVR@(}(%w1RDTJ_5.`RH|jrWWhRNZFz0,b !RV0Y{gYdRd?KOucVS03_eq)RS:atNYqBS:FZqZs(iJ]RLh.r@XqRHlQ%2xtRFE6>>?.RDU~NQ&eRB|>g=p[RBR+(p*I !RB%ur-d=R@[X8'`iR@If;o3IR@K7g&DRR@YAZ*:&R@aWi]juR@WSh{{9R@367KW)R>OhV6<5RUC.MRRD*<|sSMR@{I]VF-R>s_4PT3 #% [ 59] sm_m4.phase !S=m9;R%%SAAdv%%%SA+L2R%%S;qj@%%%S7^Ru~~~S7+t_Q~~S7ahR%%%S9ra?~~~S=GWI%%%SA1wDQ~~ !SE43qQ~~SIKt7%%%SMJu-~~~SM25_Q~~SGfd%%%%SGlF@%%%SI_Am%%%SK\m%%%%SMWqQ~~~SOM^2R%% !SScB;R%%SUhvMR%%SY6.%%%%S[S4@%%%S]Wy[%%%S_Sm%%%%SaP*qQ~~ScMzR%%%SeQRMR%%Sg[z)R%% !SiqAm%%%Sm7]c~~~So]7MR%%Ss&hzR%%Su>{qQ~~SwF|hR%%Sy?6.%%%S{'[u~~~S{Z:2R%%S{~b_R%% !S}A(2R%%S{V5_Q~~SwznDR%%SuV)Q~~~Ssx|@%%%SsvkO?~~Su5M=hR%Su\fx;R%Sw3MrI%%S{'fp2R% !S}A6fd%%T-XUa+hRT-dn.9;RT-pujD)RT-}L~:2RT//G4X@%T/;*'G_RT/FN-NI%T/RV0G_R #% [ 59] sm_m4.caps !T05e}6~~T06,k_R%T071VzR%T08t?.%%T0;9d%%%T0>.QVR%T0AGgZ~~T0DzR%%%T0H^6VR%T0LAu.%% !T0OmEH~~T0S%ADR%T0Ulnm%%T0X29d%%T0Z%v%%%T0[God%%T0\:FhR%T0\[56~~T0\P;)R%T0[w8DR% !T0WNKOl8[~RD?D)gp'RHtJNguJRNWAWJsI !RV/yrtajRd@E8h9RL[Ugog;RH]~6L\]RF59xunmRDE=oJWzRBjr1YNQRB@CVkwm !R@mmr4V>R@IWYhXPR@80SJ%fR@:Z){ZJR@I|RX9xR@SS\|@nR@Jkw41KR@':j:}'R>Dn.M?kR.R@{k)LRgR>s)^,a0 #% [ 59] sm_m5.phase !S;)R%SF:6zzR%SD86~~SGYyo;R%SIyq=hR%SM>czzR%SOdZrqR%SS%xKc~~SUA-JDR%SWZeu.%%SYvF\DR% #% [ 59] sm_m5.caps !T05e}6~~T06,k_R%T071VzR%T08t?.%%T0;9d%%%T0>.QVR%T0AGgZ~~T0DzR%%%T0H^6VR%T0LAu.%% !T0OmEH~~T0S%ADR%T0Ulnm%%T0X29d%%T0Z%v%%%T0[God%%T0\:FhR%T0\[56~~T0\P;)R%T0[w8DR% !T0WN[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] pm_k.amp !Q%%%%%%%R.`~*)'^R8,h%)J@R@(4b>QBRFAC/Pn,RJk[5Ls@RNC|>-b`RNzPp4>GRN[W>qWaRLEJL5-> !RH?3Gk_RRBQ\El^[R<.7TYshR4<,6p=bQd6(RZ?oQ>}WeKl.R0T&>]<+R8^TU]';R@OA]T[vRFxK&OSM !RVW?QS`qR\Z}NkC{Rls4KIKtRvaYwRi)R||)1.TlS.\hxY/ZS.i]HdqlS.u&+`{@S.}rul5vS0+ecOc_ !S00K9/3gS01EAkXCS0,/Fwk~S.z1LNg?S.g'YG[nR~S\Z%rERx7fxYhnRpc%D'L.Rj0Y`RH_Rbh=.57% !RV.ZVTV^RNNDWsTPHJDRT/B0SOp[T/E}jlzzT/LI10u`T/V)r+p[T/a]&>&mT/mika/mT/yl0p2RT1C}@ADR !T1\@qzR%T1t@tG7%T30i@QVRT3Flw@MRT3\J\HVRT3pl)V)RT5+'-B;RT5?E\(2RT5RM16VR #% [ 59] pm_k.caps !SX]pVzR%SX\kk_R%SXY]OhR%SXTE];R%SXM+T;R%SXCeTd%%SX8N8m%%SX+;zQ~~SVv9_zR%SVeN];R% !SVRzrH~~SV>ryZ~~SV):Ru~~STl/8DR%STSQ)zR%ST9P{qR%SRx'_zR%SR[/0;R%SR<`uVR%S%&8DR%S>?o7MR%S>\-JDR% !S@_j?~~~SBR=dMR%SD;8u-~~SDol-~~~SFMb7%%%SH.B3I%%SHk::[%%SJP88DR%SL7)rH~~SLyZZVR% !SNcapZ~~SPO)f;R%SR;^{H~~ST)>{qR%STqrmMR%SVa;V)R%SXQIUZ~~SZB0WqR%S\3N9Kc~~SjMHb_R%Sn]g_)R%Sro-fc~~Sx'9+@%%S|9~fd%%T.V%qzR%T.i|p[%%T0L,&m%% !T0t;rH~~T2BOD)R%T2jfOhR%T49*uVR%T4aIADR%T6/gg2R%T6X/l~~~T8&URv%%T8NwXhR% #% [ 59] pm.lambda !S2s6>6~~S2slzzR%S2u\}6~~S2x`DzR%S2|sL2R%S4(8XhR%S4.\P_R%S46+3qR%S4>J(2R%S4G_-VR% !S4Qc)zR%S4\GC2R%S4gey2R%S4s]WqR%S6%y_)R%S62cnm%%S6?k2zR%S6M9?VR%S6Z~ZVR%S6i4D)R% !S8=h-VR%S8\j3qR%S6r,;)R%S6ebshR%S6fC6VR%S6p?rqR%S8&Fxd%%S8:vz)R%S8R|+hR%S8mk*qR% !S:0}.u~~S:P,O?~~S:pxWqR%S<99t7%%S<\l6-~~S>'T7MR%S>M9d%%%S>svahR%S@ADvMR%S@iXH-~~ !SBvxKd%%SF-iyZ~~SHAP;)R%SJW];R%%SLolRMR%SP/oKc~~SRKLRu~~SThKSl~~SX,hnDR%S`40[u~~ !Sdy[mv%%Sjh0G_R%SpYATc~~SvLjlVR%S|B<@v%%T.]*,_R%T.wGC2R%T07oSm%%T0RH^Z~~ #% [ 59] pm_l1.amp !Q%%%%%%%Q^2K~Sh2R0Wc9lK3R65]HK/iR:]Or0)bR>qcjeYWRBq52n.^RFZi2Fv=RJ1LnSu.RLSO.,,t !RNk,Zn^KRR%J~@1{RT0{?u[ERTr4'}SERTngXK5'RT'YeAJ}RR'+nw%ARP;xW([%RNw+*>VZRN{hm{sT !RRER*X5tRT^W8d;bRd7W44FuRlW_rk]PRrO'L@aiRv0)P9e8RvwG=;*ARxG3zu^[RxaWHK:cRz%hx.8M !RzF-'AXiRzZmA,LsRzLCE9n0RxfJ|4JURvFW_DamRrNmXL2RRn1F=aJ0Rh[^'M^{Rd%r<**9R^TXX:40 !RTNO-H0'RNMFt{75RL:8nEp?RLf6g0^CRP[YFK&MRV,Q/51nRZ:liDuIR\\@COr]R^@1rZKnR^I2/>sD !RZj[XF_2RV}o\u@9RRpy2jkhRN]v|PdxRJ|OF=AdRFivw:-|RDGPyy:ER@T3:N,;R<=pV8Zr #% [ 59] pm_l1.phase !RywP_Q~~S1R'';R%S5]6~~~SkC<];R%SmXL2Q~~SolZVQ~~Ss'WqQ~~SuO@T/LqY~WET/V>=3([T/aQGlrrT/mJEsxdT/yBY*qRT1C.XL2R !T1[F?6.%T1sI{a@%T3/e][v%T3EsL{I%T3[PJL[%T3orz%MRT5*8W0d%T5>H0p2RT5QW@v%% #% [ 59] pm_l1.caps !SZ\n\m%%SZ[PC2R%SZWOP7%%SZPod%%%SZGaxd%%SZ<)nDR%SZ.,?.%%SXwp_)R%SXeU.MR%SXQ>[MR% !SX;4L2R%SV}E4hR%SVc{iI%%SVI'p2R%SV,e}7%%STh~VQ~~STIu6.%%ST)Q6.%%SRa]|?~~SR>ATc~~ !SN}lrqR%SLqcnl~~SL,3DzR%SJeedu~~SJCk6~~~SHtaT;R%SHD=hQ~~SFh%MR%%SF,shR%%SDGnP_R% !SB_m12R%S@uP&m%%S@/\HVR%S>Bk?.%%S2|]V'PRFA+nZ7fRHt9oN4DRHT.NJggRFFAiSuRRD'jtbk;R@iqk?a( !RU;F}WRVNF_tC{RX?b&=\DRXl|6zCoRZ5jlRNh}~q{ARL,`?mY` !RDQw.zrIR@U2BBG_R@A-6n2bRBW6jL>uRFx.Em9oRLha5Nb:RR=5V;whRV*T(vEXRX5I1qW=RZ7dWr-z !RX.'w,k0RTj;c(aBRPzaWAyARL{z'DglRJPw,'pARFJ5TLwDRD2~}LtiR@mZqwSgR>?Bs)PG #% [ 59] pm_l2.phase !R`MAl~~~R4V~VR%%R?1[%%%%Re^NqR%%S/-d=@%%S1nMnDR%S5KqEqR%S7{hZ.%%S;P=t_R%S?@GK;R% !SI{sT;R%SWRN@u~~SYZRqzR%SYc)zR%%SYLFhR%%SYCzZ-~~SY^=p[%%S[>A0;R%S]5wl~~~S_?*iI%% !Sg?VvMR%Sm)8,7%%SqNQRMR%SuR|P6~~SyBwLZ~~S{{|L2R%T-VG'7MRT-c,-b_RT-oE];R%T-{7K+@% !T/,^(k7%T/7OL{I%T/AVAm%%T/Jt0Sm%T/SU*mMRT/[Pyo;RT/brYt{rT/i[(q=iT/oW<>O@T/tdi/u. !T/}.?B;RT1%\R.emT1%QD=hRT1&-+ft7T1)?;EqRT1/VI-.%T17xwL[%T1AJXhR%T1KDB[v%T1i3J8DR !T1||V=hRT373Y7%%T3I}J(2RT3\HKWqRT3nYHnm%T5%eZjhRT56C1c.%T5Fe5.v%T5W6B_zR #% [ 59] pm_l2.caps !SJa9/DR%SJ_xOhR%SJ[~vu~~SJUSdu~~SJLTSl~~SJA.]c~~SJ3CBd%%SH}G7%%%SHk=t_R%SHW9[v%% !SHA>&l~~SH)YcVR%SFj=X?~~SFOJy2R%SF3/,6~~SDoK?VR%SDPLs?~~SD03mMR%SBh]h)R%SBEm))R% !S@/7z)R%S>+)Al~~Su7fQ^V-5VKTQNR|JLb? !Q8qHL9~BQ\P48P0/R2k85f@ER?.RD|4RcTtRHV-[hH>RH82)t]PRF,'CYvZRBgiNSn8R@NUd8[5 !R:{>mRJ:3_wdRRNY[/7vIRRId8/L[RTZH^AP`RVMrIw&0RV~1Kw:GRXIW.tdE !RXj0A5HJRZ&hAd}?RZ004W|qRXzK4~|}RXHB=UdfRVQI0=j0RT{N;H>7RB8V7XQ:[02o| #% [ 59] pm_l3.phase !RVY.u~~~QZfd%%%%RI))R%%%RoYWI%%%S/Z`8l~~S3Ay2Q~~S5yufd%%S9PE}_R%S=%J`qR%S?nDQ~~~ !SInKG_R%SWaEa@%%SYvJ6~~S]M|xc~~S_UG2zR% !SgT7qzR%SmAS,7%%Sqi]_zR%SuoA}7%%Sy`+pZ~~S}@D5_R%T-YN)%MRT-f:IY_RT-r[9;R%T-~Pa/m% !T//zxt7%T/:lC*I%T/DvqzR%T/N:`a@%T/Vn@qzRT/^fUo;RT/f&uk{rT/ledcjiT/rZ^'|@T/w`pjH. !T1%yLo;RT1(FERemT1(7W];RT1(m?,G7T1,%NeDRT121b?.%T1:I&l~~SH)YcVR%SFj=X?~~SFOJy2R%SF3/,6~~SDoK?VR%SDPLs?~~SD03mMR%SBh]h)R%SBEm))R% !S@/7z)R%S>+)Al~~SV0T9=TRB:}*mqzRDqLxyGWRHPP2HxT !RLRE*h5`RRuMCD|0Rbp9AG;rS.lwDTwMRz^~LGRv&gnfp{Rt}geXD*RtK{uzYdRr?OKYO@Rn]+6&1sRjV~]eUSRf@,Z+X@Rb%`/RNIW9-:{RL;TarU{RL_Vi;<}RPG-shR%SMn;5_R% !SQN2f;R%SU,2zQ~~SWL]Kc~~SW3W4hR%SSMv))R%SSf[QVR%SUZPoc~~SWNy6VR%SY<`Q-~~SY~6.%%% !S]xoCZ~~Sa'_1Z~~ScGwHVR%Sek5G6~~Si*bwl~~Sk>Ls@%%SmRW];R%SofP2zR%Sq{Th)R%Su6JhzR% !SwIu6-~~SyYwl~~~S{er_RT-{Bf';RT/('|?~~ !T/4slzzRT/=6b_RT5QPG[MR #% [ 59] pm_m1.caps !SZd'Kc~~SZb_Q~~~SZ^[%%%%SZWp>_R%SZNSy2R%SZB_zQ~~SZ4LVzR%SX}~b_R%SXkM=hR%SXVs\DR% !SX@SXhR%SX(Jm%%%SVhgs@%%SVMX+hR%SV0|dMR%STm%IMR%STMcnl~~ST-&@MR%SRdzrI%%SRAHVQ~~ !SP&=7v%%SLsmEI%%SL.Z)zR%SJh+/m%%SJE|'d%%SHv`0d%%SHF-jhR%SFi`uVR%SF.MvMR%SDID~VR% !SBa8du~~S@vqzR%%S@0w(2R%S>C~^Z~~S7%%SEl4t_R%SIRbWI%%SM+G?.%%SO\ra?~~SS.{ce, !Q~uA<:*%R2RP_Y?.RBUts1-_Rh]ngBC7Rl)wecmZRXIRiqR%RLmw`S[~RF=_BIaiR@a:a(sC_)RBC{r2b[RDa(,Y^X3qRN2@`s(SRL^V3rH6RJl*]FL2RHdvaR]dRFM|miqRRD4gcKT7 !R>GOQktWR:|hE:o;R<,b6Ga7R>ON,\?ARBm~vtEGRHU<7dY`RL{I&?N7RPeI+kNnRRt3Eqr,RVJ@v`8RBzi{Hc@R@^yAShDR>0{wmu6 #% [ 59] pm_m2.phase !Rt)~VQ~~RHAq)R%%Q]q)Q~~~ROTSl~~~RqWqR%%%S/H.mu~~S1g%12R%S3pO;zR%S5Ze,7%%S5fv9;R% !S3]6:2R%S/;~zzR%Re6jhR%%Qe7%Scq2%MR%SeUlnm%%SgO.Y_R%SiT,.u~~Sk]sH.%%Sq}lrqR% !Sw8A{qR%SDR9;Q~~SD1vU[%%SBjBp2R%SBGR12R% !S@0hMzR%S>,NuVR%SNL*J7Jq< #% [ 59] pm_m3.phase !Rh_5_Q~~R{qR%T-Yh>{qRT-lF{qR%SDR9;Q~~SD1vU[%%SBjBp2R%SBGR12R% !S@0hMzR%S>,NuVR%S?RN(h*zQ6RJ(vmfc6RFMj+wM%RDQ0z_>WRBfG]a|hRB-vdXwu !R@T&ZMZ.R@/.G;8,R>~0<4R^R@/UUnL[R@D+Apq>R@MG.QVRR@@6|.GKR>nm(_)RR>(_yB?WR<'2:hj@ !R66E+t[rR2>'u)V)R2TFY%rLR6YezN@YRWRD}K4Z&VRBhBB?MHR@^N4K6PR>Yv-c8U #% [ 59] pm_m4.phase !S1ol.%%%S56~~~SOR--~~~ !SSoOhQ~~SUwu.%%%SYF@%%%%S[gJm%%%S]oKd%%%S_kcVQ~~Sag2R%%%Sce(2Q~~Seh5_R%%Sgt_Q~~~ !Sk3a?~~~SmX'c~~~Sq&q)Q~~SsK7MR%%Sub7%%%%SwhZ-~~~Sy]|?~~~S{DEqR%%S{shR%%%S}:{H~~~ !S}E,_R%%S{-b_R%%Sw6jhQ~~Su-zzR%%SsnP;)R%Ss|XdMR%SuCR--~~SupJHVR%SwKZ>6~~S{KMf;R% !S}jYwm%%T-]2o|@%T-iiSy2RT-v4e;)R% !T0OP7%%%T0RD~VR%T0Tv]d%%T0W&4@%%T0Xa\DR%T0Yt{qR%T0ZXxc~~T0Znl~~~T0Z\XhR%T0Y|;zR% !T0UL&DR%T0O3(Z~~T0K]x;R%T0Jgg2R%T0I(_)R%T0FjT;R%T0D~b_R%T0izv>CARD?zbY~>RHkXy4ehRNTw9B=M !RVOocy40RfZef\B^S0K6'JB+S:O*F0y*S:AqG7[bS4T(_;f;S2+v2sjyS0:;u=lVS._EqQ~~RxlTXU.) !RbYYf2RnRVLA&z[fRVF1cs}WRR8qbz+0RLv->w2bRHt?Tr&4RF=c61_)RD@8j~yCRBT`;OX@R@ug.~db !R@AC`w4@R>vH.W@-R>kz'pV{R>xQ'H1;R@4Meu*ER@?@.ADRR@3P5La,R>c(5KuoR}=RRJ2w0%^RN}[0%-9RLXk]Auw #% [ 59] pm_m5.phase !S?q5_Q~~SCbK;Q~~SEN,_R%%SCH.%%%%S=]p2R%%S9h1Z~~~S9YWI%%%S;JP_Q~~S=jlVQ~~SAP?.%%% !SEO@%%%%SI_f;R%%SMKd%%%%SM*,_R%%SG{DzQ~~SG{iH~~~SIkO@%%%SKgg2R%%SMd%%%%%SO[IMQ~~ !SSy6VR%%SW(Jm%%%SYPK;Q~~S[qzR%%%S]y{I%%%S_unl~~~Saps?~~~ScmUZ~~~Sep>_R%%Sg|D)R%% !Sk;EqR%%Sm`0c~~~Sq/hzR%%SsTx;Q~~SulB;Q~~Sws/l~~~SyhR%%%%S{NQ-~~~S{}O?~~~S}Cs@%%% !S}JhzR%%S{/dv%%%Sw7~-~~~Su2%MQ~~SstV~VR%Su))vMR%SuI}?-~~SuvQ2)R%SwRtG6~~S{U4T;R% !S}sQnm%%T-^BUJm%T-jqy>_RT-w=0[v%T/*?f?VRT/6@O/m%T/B.\u.%T/Mgo_zRT/YW+p[% #% [ 59] pm_m5.caps !T07]?VR%T07zMzR%T08wy2R%T0:Ug2R%T0;)R% !T0OP7%%%T0RD~VR%T0Tv]d%%T0W&4@%%T0Xa\DR%T0Yt{qR%T0ZXxc~~T0Znl~~~T0Z\XhR%T0Y|;zR% !T0UL&DR%T0O3(Z~~T0K]x;R%T0Jgg2R%T0I(_)R%T0FjT;R%T0D~b_R%T0[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] gd_k.amp !Q%%%%%%%Q\SL*tg[R0A,w2b7R4Rc/aNvR86k4T8ZR:=}=|T-R:biR'.VR:Jg2zo3R8RGAe_LR6%po47v !R2'}oW[^Qp']1|c_Q@%K9ziQQN(*m,cVR.bt{qR%R4GesHV.R8yYkl\}R>=YLuq^RBC3P*bxRF.UiHlk !RLn[2HI1RPJ9,w+HRZxI1kEYRb*{qzo3Rh18cXmjRn:BYyYGRt'vxMtpRxW?jT,xR|\k5qPGS.T{@r7p !S.`BBJr6S.gZV&ITS.ic6g6.S.drR|59S.YRP\n~]@ERV2AVz?kRX|y5g[%R\;zar&YR`8K*PL{ !R^9>5R>=RZabV(TTRV]Z:.xSRRPjXu(0RN`it(\@RJE4.w1KRFmro2``RBeL,C{IR>>mXir/ #% [ 59] gd_k.phase !S-dGoc~~S1wmmu~~S7+(.MR%S;2'+@%%S?2g*H~~SC-,k_R%SEzt&m%%SIgdADR%SMLhj?~~SQ)<0d%% !SSRADR%%SU^nq)R%SSvAhzR%SER&8DR%SEaxc~~~SG`Y[MR%SIhH>6~~SKo@iqR%SMrF|hR%SOojt_R% !SUCfCZ~~SWU)Z-~~SYbqf;R%S]/^o;R%S_LO;zR%Saf5&l~~Se*GG6~~SgM[el~~Siu4+hR%SmEq-VR% !SopPO?~~Ss??nm%%Suc-6.%%Sy'`DzR%S{?GSDR%S}Og>_R%T-W7&\m%T-`@k*qRT-h[^Rv%T-p%8L[% !T-~eM%MRT/.ahQ~~T/4Mu:2RT/7/BpV{T/:WMC&ET/Aj+ol.T/Ka[Y;*T/VOH~6.T/aFnMnET1)V8,7% !T1@j\hzRT1Wu5cVRT1ml(Bd%T3)Bn0;RT3>_U_)RT3RVB[v%T3fh-2)RT3zP`eDRT528,6~~ #% [ 59] gd_k.caps !S\9U&DR%S\8bO@%%S\6)V)R%S\1i4hR%S\+f+@%%SZ}}shR%SZt]t7%%SZi`,_R%SZ]1k7%%SZO)Al~~ !SZ?JDQ~~SZ.EmMR%SXunHVR%SXamiqR%SXL@=?~~SX5?vu~~SVvi(Z~~SV\Vf;R%SV@[ahR%ST|e`qR% !SRoPWH~~SPi-NI%%SN|vahR%SN_h=hR%SN@mQVR%SLrKKd%%SLAR=@%%SJcTt6~~SJ&JXhR%SH>|;zR% !SFTfKc~~SDh<0d%%SBzg*H~~SB2iuVR%S@E3U2R%S>XMEqR%S-E,_R%S>Ge}7%%S>cRMR%% !S@eq)Q~~SBW)nDR%SD@|P7%%SDuR))R%SFRvIMR%SH397MR%SHofp2R%SJTG_Q~~SL:v12R%SL}3DzR% !SNf{,_R%SPR--~~~SR>P.v%%ST+wu-~~STt?RMR%SVcS`qR%SXSOL2R%SZD/4?~~S\5Ay2R%S^'&LZ~~ !Sb24p[%%Sf?T+?~~SjNTh)R%Sn^hj?~~Srp'WqR%Sx(+\DR%S|:fCZ~~T.V-2)R%T.j*0c~~T0L/`qR% !T0t?RMR%T2BR~-~~T2jj/l~~T49.UZ~~T4aL{H~~T6/kG7%%T6X3M)R%T8&URv%%T8N{8m%% #% [ 59] gd.lambda !S2,e}7%%S2-;EqR%S2.kshR%S21CRu~~S24v=@%%S29HrqR%S2>o?VR%S2E.=@%%S2L9l-~~S2T0WqR% !S2\e@MR%S2ezEqR%S2ohMzR%S2z+xd%%S4*qR%%%S46+3qR%S4A_^2R%S4MZvu~~S4Yz^2R%S4fa3qR% !S66YgZ~~S6YFlVR%S4|Y.v%%S4tShzR%S4w/(2R%S6'LRv%%S66s;zR%S6J2=hR%S6`GG7%%S6y%U[%% !S89_zR%%S8V%MQ~~S8sqnDR%S:8wTc~~S:Y2zQ~~S:zB7MR%S.qzQ~~S>S*Y7%% !S@V)Q~~~SB\(2Q~~SDdMR%%%SFnu.%%%SH{+L2R%SL.l>7%%SN=qIu~~SPN(Z~~~SR_B7MR%SZ>Ls@%% !S^h8u.%%Sd:O;zR%Shho3H~~Sn?%--~~Srplnm%%SxJ-JDR%S|~_%MR%T.`CBc~~T.woKc~~ #% [ 59] gd_l1.amp !Q%%%%%%%QVeej(VVR.ruc0(DR4.]iO+iR817o[neR:uOyO\iR>DT5bY'R@R+~r([RBH>n(VzRD(S%S7z !RDR^c9`iRDo8J;Z.RF(%n[K+RF6'iM\URFC0-PodRFQA(YrzRFc}R12RRF|%\rw4RH=mK9t7RH]ENa@% !RJc;`-NIRL2K=WuWRX++-=5tR^:/~n+HRbFv9.goRdiT@bWIRf[`LcK3Rh7o4u1;Rhd%&]+PS+ #% [ 59] gd_l1.phase !R2\xj:BdRCC\XKC[Rm9ge;5`S/[T}{M)S3P\y=L2S76~~S{2NiH~~S}7%T-m9unm% !T-|>&HVRT/,R&8DRT/2hLBd%T/6SJ}7%T/:vvIMRT/B7g&DRT/Kls;zRT/V@&\m%T/a&/q)RT1(XF+hR !T1?c?nm%T1VmriI%T1lW9[v%T3(5?RMRT3=T7qzRT3QH,G7%T3ee1s@%T3y;q~VRT510HNI% #% [ 59] gd_l1.caps !P^vOxc~~PDg7EH~~PSaoG_R%Q5uAq)R%QGyM^2R%Q_J[Y_R%Q{9lRMR%R/xG_R%%R3g^_)R%R7hpFhR% !R;zx+@%%RAB{uVR%REt::[%%RKZ,k_R%RQN:&DR%RWPV~VR%R]a1&DR%Re&XhR%%RkUc-~~~Rs;jdMR% !S/4]WqR%S1?ljhR%S3-/\l~~S3L*H~~~S3m6%v%%S5=Kh)R%S5oqj?~~S7NadMR%S92O|hR%S9t;MzR% !S;^jlVR%S=KBG_R%S?9)b7%%SA'5K;R%SAo'_zR%SC\'CZ~~SEGfG_R%SG1fC[%%SGsn}6~~SIYqf;R% !SM7IMR%Sw12-VR%Sy|Ywl~~S}b;)R%%T-]CZ~~~T-kL*I%%T-xlvv%%T/+=X@%% #% [ 59] gd_l2.amp !Q%%%%%%%Q6Rn{QvvQHea2vy;Q^2C`ZgSQtrPmi([R0:Omg`aR2OG5}shR4Z@u*m)R6T5RU[%R8;4/l=H !R8i\k(8YR:*=F`|(R:3'Oa7vR:){4sL2R8kQI>^?R8EfX1g{R6qHrbwmR6>ZE,_RR4i4KC[%R4AxHV:'3R6%r[w8DR>=9NwJ4RBvRPnx)'SIRRV3yrcBRT(O&FL{ !RTQWYf&qRTz:NdgoRVG-s{gGRV[f%9;RRVZ\95YpRV9.+bK;RTS0`:g{RRSQ*DYdRPAycaHRRN+3Si/, !RH)a@60pRB_9AZ7fR@'@0O~FR>f;3F+.RB0SwP1yRF\K7m1PRL4DoR7'RP;ZC[DeRRp*v6nmRXS>4XFW !RX3o%&LjRV;PRfzTRRf.nSVPRNx%gF|VRLN`]g&xRHK?~sPFRF2LY};}RBgv]ogBR@.iLcD[ #% [ 59] gd_l2.phase !RGM~VR%%Rqe8DR%%S/hO3qR%S3GbgZ~~S5lXT;R%S9&[~.%%S;.kO@%%S=0a|hR%S?0a3qR%SA1DAm%% !SC3qR%%%SE8`M)R%SG@.ADR%SIJR=@%%SKXYwl~~SMkBh)R%SQ)gs?~~SSI,?-~~SUp6VR%%SYDtK;R% !Sc)o3H~~Sgh)vMR%Skae`qR%SoIxKc~~Ss'>C2R%SuR>SDR%SwwrfG_RT1,VaH.%T15HFdMRT1Px[u~~ !T1ce3Q.%T1w6(g2RT3/OHRMRT3AD?jhRT3SG)^2RT3d**];RT3tg+\DRT5+,x7MRT5;9N0d% #% [ 59] gd_l2.caps !SLqcnl~~SLpPO?~~SLlwdu~~SLg%U[%%SL^o;R%%SLTFpZ~~SLGrU2R%SL9>C2R%SL(lnm%%SJpQ>6~~ !SJ\P_Q~~SJFyRv%%SJ/qrH~~SHqKx;R%SHWadMR%SH<`Q-~~SFzOX?~~SF]2Z-~~SF>\oQF@%%S>TmADR%S>5N,_R%Sk_R%S8A=7u~~S6fk?-~~S60';Q~~S4QIU[%%S2qB[v%%S26:VzR%S0T]/DR%S.s)Al~~Rz//(2R% !RZCs@%%%RC2R%SSuF@QH2uF'ysQ\>8hH6wQrahCJm%R0,z+n0`R2?>{3U3R4H2)*^*R6@eDvMRR8'.%dK+ !R8Ub3\^oR8pyJ'h)R8zWDs7vR8rD^>uFR8ZM}xfpR84`ER+PR6_M}JL[R6*g1[mvR4RsOu`]RTe,W(WERTx_TtT3RTwEm?_JRTUld{WmRPr^4eGCRNcGj*;^RLNzn,R>]u?dZNR>FD)F60R@jmW];RRF:]&|X1RJixZe71RNo-HJt}RRH3iZ^jRX-(pf>s !RVlHRVUXRTwQm]fwRRM('CzDRNdi`A:}RL>H}hB}RH>k62[+RF)Zlx0MRB`<9<5|R@'SSy%& #% [ 59] gd_l3.phase !RQpk7%%%R}.IMR%%S1?+3qR%S3xBG_R%S7C4T;R%S9W%iqR%S;^cRMR%S=_k.u~~S?^ZZVR%SA]g:Z~~ !SC^FhR%%SE`~rqR%SGe|H.%%SImcjhR%SKxz=hR%SO.cF?~~SQD2Iu~~SS`_b6~~SW+UNqR%SYY)^2R% !ScD2Iv%%Si.MvMR%Sm*1wDR%Soli0c~~SsJwy2R%SuvBWqR%SyAvADR%S{d6nl~~T-Rm4H.%T-_E/u.% !T-koJP_RT-wsmEI%T/)6z1[%T/3`,_R%T/=7Xp[%T/F%~vv%T/N.^.MRT/U[b{qRT/\Fj/m%T/bS|=3r !T/n[h9d%T/umDs\DT/xIi/3QT/wQeEeDT/w.f,SDT/zR'V^2T1'/st_RT1/D4p[%T18=4;zRT1Sf/DR% !T1fO&u.%T1z'6:2RT329;vMRT3D.34hRT3V;q5_RT3fmx';RT3wTY*qRT5.)%qzRT5>*[]d% #% [ 59] gd_l3.caps !SLqcnl~~SLpPO?~~SLlwdu~~SLg%U[%%SL^o;R%%SLTFpZ~~SLGrU2R%SL9>C2R%SL(lnm%%SJpQ>6~~ !SJ\P_Q~~SJFyRv%%SJ/qrH~~SHqKx;R%SHWadMR%SH<`Q-~~SFzOX?~~SF]2Z-~~SF>\oQF@%%S>TmADR%S>5N,_R%Sk_R%S8A=7u~~S6fk?-~~S60';Q~~S4QIU[%%S2qB[v%%S26:VzR%S0T]/DR%S.s)Al~~Rz//(2R% !RZCs@%%%RC2R%SS5GR4:Pl43)R6eI{7&]R:M5p,]PR>0f&tcVR@_u0{ngwmY0RXP4?V80R\Dtqzg2 !RZTlo'J,RX70&F(SRTJ>&Mp5RPH<]q`S;V9c~~~S?3wQNI%SA\HzzR% !SCxAgBd%SG/LiY7%SI7.ADR%SK6Y88DRSM.uA(2RSM{/712RSOh64t_RSQPvzMzRSS6(jlVRSSq{5{qR !SW`sxd%%SY_u^[%%S[s(wDR%S_+dMR%%Sa6KWqR%Sc@8q)R%SeP?.%%%Sggfh)R%Sk-t*qR%SmSyVzR% !SozqZ.%%SsCe0;R%Su_[el~~SwtQfc~~S{(k[MR%S}1T/DR%T-SY2zR%T-\Eh~VRT-dRI))RT-kxuJDR !T-{,Pwm%T/+H1_)RT/1j{0d%T/5s.57%T/:WW4hRT/Az(c.%T/KQTt7%T/UxqEqRT/`Zyg2RT1()D9d% !T1?9G;)RT1VJ1s@%T1l4:Bd%T3'tAy2RT3=<2f;RT3Q1/`qRT3eTg_)RT3y'LwDRT50{MMzR #% [ 59] gd_m1.caps !Q:|a\DR%Q8]Fp[%%Q0ZQ^[%%P9k-b_R%Q9AzEqR%QQ(n(2R%Qm0r}_R%R/;9c~~~R3-EQ.%%R71VzR%% !R;Fb&l~~R?ki8m%%REE}_R%%RK.h^2R%RQ%g&DR%RW*fWqR%R]=urqR%Rc_mz)R%Rk7=dMR%RqyYk_R% !S/2I-.%%S1=uNI%%S3*W}_R%S3I@UZ~~S3jW,_R%S5;%))R%S5m`y[%%S7L_MzR%S90\@MR%S9rO+hR% !S;]/DR%%S=Ih9d%%S?7S4@%%SA%f7MR%SAm\,6~~SCZc)zR%SEFKh)R%SG0V^2R%SGrfWqR%SIXp[%%% !SM;\y2R%SOlcrqR%SS=?ZVR%SUfwq)R%SY7pg2R%S[b=t_R%S_.4lVR%SaKn0;R%Sc`F|hR%Sk*pc.%% !So=}2zR%Ss>7IMR%Sw19G_R%Sy|]WqR%S}b;)R%%T-]CZ~~~T-kL*I%%T-xlvv%%T/+=X@%% #% [ 59] gd_m2.amp !Q%%%%%%%R2}ai|b'RV@SG;rR>0f&tcVRRk^V&@)RBC_c{w}RDS4?u3=RFA)WTUoRFtRY|`I !RHJN~kWIRHzv|M>WRJSGux:?RJxI6@1{RL.*dvj?h(LKURB`[),ZqRH*'3yIRRL'a>2:eRNYi+|ORH'Oa_tcR_;[ #% [ 59] gd_m2.phase !RYvv%%%%R{9p2R%%S/,c2)R%S/d`U2R%S1U<];R%S3U4T;R%S5\;Z.%%S7e^Jm%%S9o';R%%S;wE@u~~ !S=~S`qR%SA*`uVR%SC07MR%%SE5h%MR%SG<)nDR%SICyk6~~SKNNa@%%SM]AXhR%SOs5*qR%SS:Jm%%% !S]{CBc~~SgMB7MR%Sklr([%%SofbG6~~SsN_=hR%Su{H6-~~SyB{,_R%S{^qb6~~S}{6F@%%T-]\hV)R !T-ib{M)RT-uJVf;RT/&G\`qRT/0PATd%T/9aft7%T/B/e@MRT/IqvqzRT/Q+MEqRT/W^a+hRT/]Y^|\D !T/i=T3I%%SF|?ZVR%SF^uB;R%SF@ADR%%SDzWa?~~ !SBmBWqR%S@o[QVR%S@2B[v%%S>pdem%%S>UyFhR%S>6O7u~~S7%%S4Qu>7%%S2qjdMR%S26_%MR%S0U'WqR%S.sJ0;R%Rz2i,_R% !RZG66-~~R}O@R>u0OxUKR>eZSX.5R>8]&|eR-\pV`~R@_`=7XqRBnkD\,[RD\>,]t7RF4}(g{I !RFd=G?.%RH9Qz7KtRHk%,==}RJ4d=oG_RJCn7A5xRJ6IqW1wRHgS?K_2RH%@Amb|RF/zJm_BRD4-]v*vt*)R<77(W'lR:8gmnopR:Bu<jP2C-_ #% [ 59] gd_m3.phase !Rin,7%%%S/.eHVR%S/qz-VR%S1Mj?~~~S3;Xt_R%S58;5_R%S7;iQ-~~S9AN];R%S;F{U2R%S=KF'c~~ !S?NSTc~~SAP_vMR%SCR1{I%%SESZF?~~SGU_MzR%SIY,O@%%SK^o;R%%SMhC&DR%SOx(NqR%SS8L6VR% !S]~4P7%%Si'|dMR%SmHeu.%%SqBV9d%%Su)?jhR%SwT&LZ~~SysW,_R%S}4:Bd%%T-V6\}7%T-b2~2)R !T-n5V~VRT-ysR9;RT/*lx/DRT/4nBt7%T/=tn,7%T/F7rDzRT/MrimMRT/U%&8DRT/[M?jhRT/a@}X\E !T/lp',.vT/sZ9R57T/ubJ+*zT/tNJ4dNT/s{1lJET/w=33U2T/}idU[%T1+}^c.%T14ywDR%T1P_NDzR !T1cRy:[%T1w@|t_RT3/i=`I%T3At)9d%T3T=:g2RT3e+Vb7%T3v/F/m%T5,s@IMRT5=4JTd% #% [ 59] gd_m3.caps !SLtFH-~~SLs3(Z~~SLoV^2R%SLiZnm%%SLaFt_R%SLVtoc~~SLJ?:2R%SL;]h)R%SL+*yZ~~SJrehzR% !SJ^aP7%%SJI%IMR%SJ1t.u~~SHsFt_R%SHYY&l~~SH>T3I%%SF|?ZVR%SF^uB;R%SF@ADR%%SDzWa?~~ !SBmBWqR%S@o[QVR%S@2B[v%%S>pdem%%S>UyFhR%S>6O7u~~S7%%S4Qu>7%%S2qjdMR%S26_%MR%S0U'WqR%S.sJ0;R%Rz2i,_R% !RZG66-~~RpSR`?'UICk !RR\gsUs@RJ9HuYUGRL02dgvVRJ-(.UtSRFi+YnbtRDn7Yv-wRDBl9S^KRDD.<.OTRDK8w33zRDEpg\kG !RD(bfsHR@eg*^s@R@Z9Q&93R@;g+^UCR>e&z',i9 !R:%7sX@%R63l7T@ER2|0RHj^R4*wV%P*R6ys,~VwDR%%%R7QVR%%%Rc9c~~~~S/2f;Q~~S3&HVR%% !S5eP_Q~~S9=7v%%%S;d%%%%%S?&`qR%%SA:Jl~~~SCFt_R%%SELNqR%%SGK3I%%%SIB|?~~~SK5.v%%% !SO=L2R%%SQ<0c~~~SSVEqQ~~SUdMQ~~~SWc2)Q~~SYa'd%%%S[d~-~~~S]l6.%%%S_unm%%%Sc)vMR%% !Se@--~~~Sg_Z-~~~Sk+|hR%%SmREI%%%Soop2R%%Ss%12R%%Ss|\DQ~~SuiQ.%%%SwFX?~~~Swot7%%% !SyHvu~~~Sy9/DQ~~SwEiI%%%Ssz5_R%%SqrY7%%%SqV^2R%%Sqc.mu~~Ss*/P_R%SsV1Z~~~Sw@JSDR%T0I[ahR%T0J\l~~~T0L6zzR%T0ND1Z~~T0PujhR%T0Sfx;R%T0Vf_zR%T0Yj'c~~T0\^o;R% !T0_AHVR%T0a`mMR%T0c_Iu~~T0e9WqR%T0fI=@%%T0g0t6~~T0gJHVR%T0g?NH~~T0fmem%%T0est_R% !T0a&P_R%T0ZrM)R%T0W4hQ~~T0V7=@%%T0T]/DR%T0RZrqR%T0PFH.%%T0N.=?~~T0KwLZ~~T0Ij;zR% !T0Gh%MR%T0Epc.%%T0CyFhR%T0A~JDR%T0?q9c~~T0=N4hR%T0:g{H~~T07h9c~~T04GcVR%T00k?-~~ !T0&uvu~~T.vg&DR%T.m8L[%%T.dsX?~~T.]G;)R%T.V)Q~~~S~Z]l-~~S|d^wDR%Szp6VR%%Sv_qZ.%% !St8f=yRn<>K+NYRj|3nzEqRhD&os*zRdL0FWnR4mRL'a-Y;rRH{g;MV)RF[U|eN]RD_@O2eMRD3%LvkORD4(h}}ORD:k2(qbRD5N\BHN !RBr+p6w@RBFjTvVJR@y:&st_R@`n2]oDR@[=\;GtR@WTUo;RR@M70B1kR@/6AJ)FR>Y`DV)RR6VR%%%R94?~~~~RcrI%%%%S/7~-~~~S3+;zQ~~ !S5jD)Q~~S9B+@%%%S;hrI%%%S?+T;R%%SA?b_Q~~SCLVzR%%SERU[%%%SGQ^Z~~~SIIqzR%%SKG7%%%SwImu~~~Ss~:2R%%Sqy*H~~~Sq]Sm%%%Sqi~NH~~Ss1%12R%Ss^:[%%%SwJ1*H~~ !Sy^nq)R%S})~2)R%T-UPp.MRT-aIW8m%T-n-v-.%T-y]=/m%T/+Jc>7%T/70oC[%T/C*>*qR #% [ 59] gd_m5.caps !T0I>SDR%T0I[ahR%T0J\l~~~T0L6zzR%T0ND1Z~~T0PujhR%T0Sfx;R%T0Vf_zR%T0Yj'c~~T0\^o;R% !T0_AHVR%T0a`mMR%T0c_Iu~~T0e9WqR%T0fI=@%%T0g0t6~~T0gJHVR%T0g?NH~~T0fmem%%T0est_R% !T0a&P_R%T0ZrM)R%T0W4hQ~~T0V7=@%%T0T]/DR%T0RZrqR%T0PFH.%%T0N.=?~~T0KwLZ~~T0Ij;zR% !T0Gh%MR%T0Epc.%%T0CyFhR%T0A~JDR%T0?q9c~~T0=N4hR%T0:g{H~~T07h9c~~T04GcVR%T00k?-~~ !T0&uvu~~T.vg&DR%T.m8L[%%T.dsX?~~T.]G;)R%T.V)Q~~~S~Z]l-~~S|d^wDR%Szp6VR%%Sv_qZ.%% !St[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] ba_k.amp !Q%%%%%%%QjA?zgV2R2e;pGF=R8dBr7@1R>>d1y84RBDBXfZcRDmfQcNIRF\m(oMfRFhUNXeE~R>~gzjs(R:Pcxvl>R4W]lT=TR.~%p=@QR0=mkCD%R6t4il^[R@Zon=FPRJT~>|;zRT>IQg~_ !RjKG`FftRrXE&EKpS.^pPn_:S0T2%=XKS2'9%q:DS2;4;z_0S2?KRd?JS2;]1Z.MS21eZ7'OS0}R2q(u !S0kA3wS_S0T0XY.vS08FS;\?S.r?\=J0R~_4osH.RvVYRJ`rRnB8y^:[RfCRbQxxR^pUe(9lRXx`9+*1 !RR[d2*syRTT3(CaPRXQZUzlBR\Q'&3ngs[CRLElZ4JgRH_faQZHRDOz%{'DRB4f^+IiR>Xyuuy;R:ZF6~~Sue:FhR%Sw|i@u~~S{3HZVR%S}={0c~~ !T-U50x;RT-^Yry[%T-gg^:[%T-pcvu~~T-y@pBd%T/'Oa7v%T/.xe8DRT/5J^o;RT/:a(.MRT/>U43M* !T/CaNgk7T/I,fNy[T/Q`jg>`T/\1M'OiT/gs(@aiT/tmKt7%T1(hIQVRT173?b_RT1EZFdMRT1nG;rI% !T3.YX7v%T3H;IQVRT3_x=T;RT3vt<7%%SR6d=?~~SR&oKc~~SPniiH~~SPZapZ~~ !SPD^{H~~SP,l)zR%SNm:*H~~SNR-vu~~SN5RUZ~~SLqMzQ~~SLR.el~~SL1NqR%%SJiW}_R%SJFMj@%% !SH/Fxc~~SF32f;R%SD*MrH~~SBQYg[%%SB1p*H~~S@funm%%S@;xOhR%S>e[~.%%S>1_MzR%SSDR%S8}r0c~~S:--6-~~S:7vIMR%S:D?jhR%S:R6%v%% !S:aY.u~~S:rGk_R%S<*\(2R%S<>88DR%S&{4hR%S>?kWI%%S>Yz9d%%S>uEuVR% !S@uZzzR%SB`F3qR%SDT,wm%%SF4Q%u~~SFioOhR%SHIN@u~~SJ+A\m%%SJi>O?~~SLO2^2R%SN6eu-~~ !SNyo_zR%SPdD~VR%SRP-b_R%STy&DR%SfK@iqR%SjYNuVR%Snh{@u~~SryV1[%%Sx1'3I%%S|C62)R%T.Vv))R%T.joG_R%T0Li}_R% !T0tv56~~T2C,&m%%T2k?RMR%T49V^2R%T4au)zR%T605oc~~T6XWuVR%T8&y{H~~T8OB';R% #% [ 59] ba.lambda !S8mJ*qR%S)KSl~~S>9hMzR% !S>m*a?~~S@;T';R%S>Ih9d%%S<[U6VR%Sk;)R%S.qzQ~~ !S>Mw`qR%S>p*H~~~S@:wDR%%S@a~jhR%SB1*mMR%SB[ox;R%SD.56~~~SD[vIMR%SF0t[MR%SF`{8l~~ !SJ)Xt_R%SLQR))R%SN}pRv%%SRS}[MR%SV-Iz)R%SXce,6~~S\B_1Z~~S^}t{qR%Sba:Bd%%Slp<8l~~ !StF*U2R%Sz{4D)R%T.`F|hR%T0'YshR%T0I3Y6~~T0k*M)R%T23:o;R%T2UhEqR%T2xQjhR% #% [ 59] ba_l1.amp !Q%%%%%%%QRTNmQs`Q~P\S2'tR2UaQ2?FR6Os0n0;R::YvfjPR-cRP[nMU6{RTr^*H~~RZ/h&,EYR\|mDgzZR`::3CnMRb/]o8`q !RfS;7?0'Rh|u5\:UYS0^/teFTS0^{{AI7S0YlTDF~S0OhfY4B !S0@[JQs8S0,\]}}=S.nFF0@XS.R%C|/3RxVu76k3Rr&0FY=PRjG~2U:[Rd*zI|WQR^2Q6AbORXfG]7BX !RRjGMr[9RT>Q;p0tRVt@Xo1kRZ`g1oQFR^\djwfTRbPP/vs?Rd]u5r7Cloh?FR:LZS4TJ #% [ 59] ba_l1.phase !S3plJDR%S9*&4?~~S=6hf;R%SAwm%T-]4?6.%T-es:Bd%T-nE{8m%T-vYuF@%T-~L`` !T/C;d1{IT/IZc4t`T/R/u1_*T/\CdW8mT/gs;~2*T/tX?6.%T1(?YC2RT16[EI%%T1E'dmv%T1md&\m% !T3-rB/DRT3GZE,_RT3_7'Kd%T3v:a+hRT52=V=hRT5GiY[MRT5[u2MzRT5q0zb7%T7,foh)R #% [ 59] ba_l1.caps !ST8Aj~jhR%S>6KWqR%S;jG?QJ2tH(nMQZHN]9a}Qh^)FJTdQtP}FVb7Q|[yxx_zR.Wd5MxLR.RPuXgyQxY-Ks5t !QlRk>o8/RbcwS//MRd1iESTdRd0rSF/mRbp~L6D> !Rb?\Cl80R`P^:J{YR^GQ_PNQRZ|WNVEqRX=^fy5CRTDL0V@~RP9O~,*)RL-2}(vVRH-r95]PRDH5P3=` !R@d+C~'xRDXmCyk7RJM?;R|PRP1gGkn,RT_PfZ3~RXw?U?nPR\Q6RmAtR^*0GQ_JR\vQ,R7eRZO;9G*> !RVG.='vZRR[[oM|0RNO\h]]qRJFhP5]mRFsWel&+RBr9E+-UR@YYf@\FR>>y9jDUR<(fWNsT #% [ 59] ba_l2.phase !R:vel~~~R;.12Q~~Re1Ru~~~S/9,SDR%S31r,_R%S5}NQ.%%S9i=`H~~S=QWeDR%SA:g{H~~SE.Xp[%% !SIEWY7%%SO`Gk_R%SWxfp2R%S]sx?VR%SaK3mMR%Sc6)zQ~~ScSN8m%%Sch/4@%%Se4K;RT-w),C2RT/*U{H~~T/6~ljhRT/BIZNI% !T/Lt66.%T/VXw713T/_O;1[%T/gbaEa@T/o2VnhzT/uq}QfdT/{^k>?.T1&9ov]dT1)PSR46T1+&)_Er !T1(}sdqzT1([*ot7T1.DRmv%T16|T_zRT1@O_5_RT1JS[Y_RT1U?Uc.%T1`rwXhRT1lxHrqRT35Yl)zR !T3K1?NI%T3`h~VR%T3tfdmv%T5.)F`I%T5@O/l~~T5R]v9;RT5bzpFhRT5sS^o;RT7*V%))R #% [ 59] ba_l2.caps !SD{J8DR%SDz+xd%%SDv.el~~SDoV9c~~SDfL.MR%SDZq^2R%SDLpNqR%SDbjpZ~~S>A:k7%%SgZ~~ !S::0t6~~S8<\(2R%S65?.%%%S4ZP&l~~S45h%MR%S2guB;R%S2?A(2R%S0pc.%%%S0HljhR%S.{9[u~~ !S.S?^[%%RvU/`qR%Rl_Iv%%%RbL4xd%%RVtc2)R%RL%{a@%%R>qZvv%%R2M7=?~~P?a5shR%R1oa3qR% !RSXDMzR%RsSsP7%%S/Hap[%%S1bNuVR%S3s9/DR%S7(T/DR%S9:cvu~~S;NgFhR%S=_}C2R%SCduZVR% !SG[q1Z~~SKP_R%%%SO.y:[%%SQ_qZ.%%SU7QVQ~~SWY]OhR%SYuPK;R%S]8{4hR%S_K;vMR% #% [ 59] ba_l3.amp !Q%%%%%%%Q8Aw(geUQJ?]F6>7QZZCz9?WQhsrhVMzQtik\@j`Q|wI:o_zR.ZlFEXwR.V3~H0iQz.hbdW] !Qn;.Yn,7Qby]7>wmQnz62~*iR292]-%-R:ETEkodRDM;s?weRN){XtX8RRNG5<~NRRQt|r];RP:IFVS] !RH6n]BG_RF)m;>P/RLA&&jX@RTr=;zR%RZiEoG%5R^`RKd3YR`aCJx`iRb0;O9bGRb31(BFqR`xrP^,K !R`Mw?1(GR^eaL'7)R\c+xtj(RZD%m8(2RVdJGSVfRRp03;2JRNi8zPk_RJ`k4;RIRFd|B*3zRD()lTob9RXV?qj}:R\0}K2eIR\eO2xHNR\YJ5fPjRZ6Tsecj !RV4tN0S:RRM6UFtuRNCWte=)RJ>jw8,MRFmj+or`RBm[8*=c4ZVaR<&{*}BD #% [ 59] ba_l3.phase !R2g>_R%%RC=|hQ~~RmB3H~~~S/^vz)R%S3WxG_R%S7Ij`I%%S;5l)zR%S=x>C2R%SAaYSDR%SEUFhQ~~ !SIk9Kc~~SQ%n@MR%SY43([%%S_/9WqR%Saax?VR%ScM8u-~~Scj8du~~Sc~*iI%%SeI/y2R%Sg.]?VR% !SmR[=@%%Ss6p&DR%Swj\DR%%S{{[]d%%T-Z9?zzRT-jPI9;RT-yHQ:2RT/,|`H~~T/9RkshRT/D~s`I% !T/OViQ.%T/Y?0V^3T/b9.U[%T/jLTia@T/qvJ8h{T/xX6q9dT/~=dTl.T1(o/.]dT1+zrVa6T1-ENVEr !T1+-J@q{T1*]ABt7T10N)Iv%T193EDzRT1B`Ot_RT1L`l:2RT1WAl6.%T1bqT';RT1nz_EqRT37_b[MR !T3M/uvv%T3brU2R%T3vp;Iv%T50'}.v%T5B\@MR%T5Tk,shRT5e&fx;RT5uki];RT7,jOlVR #% [ 59] ba_l3.caps !SD{J8DR%SDz+xd%%SDv.el~~SDoV9c~~SDfL.MR%SDZq^2R%SDLpNqR%SDbjpZ~~S>A:k7%%SgZ~~ !S::0t6~~S8<\(2R%S65?.%%%S4ZP&l~~S45h%MR%S2guB;R%S2?A(2R%S0pc.%%%S0HljhR%S.{9[u~~ !S.S?^[%%RvU/`qR%Rl_Iv%%%RbL4xd%%RVtc2)R%RL%{a@%%R>qZvv%%R2M7=?~~P?a5shR%R1oa3qR% !RSXDMzR%RsSsP7%%S/Hap[%%S1bNuVR%S3s9/DR%S7(T/DR%S9:cvu~~S;NgFhR%S=_}C2R%SCduZVR% !SG[q1Z~~SKP_R%%%SO.y:[%%SQ_qZ.%%SU7QVQ~~SWY]OhR%SYuPK;R%S]8{4hR%S_K;vMR% #% [ 59] ba_m1.amp !Q%%%%%%%QJ)S^<8mQli~n/(2R0>TN64,R2u~o1}KR6IN(?`]R8l;P[;>R<+y^kLsR>>O}3b/R@O{^jVb !RBkaEk1gRFMG[sjTRJsIe1zZRRd(Uec>R`%89_1[Rpx~fz{eR~i%WP0TR|D>:Tp{Rrcq_'9tRl2-:Y1C !Rdta.3F}Rf8E~rqRRprYt-/]R~xtpM+0S.zxYCxQS08qKvl>S0DiU*<\S0Go-,=ES0Dy+R;mS0~w*Y7RnyxwaFuRhW}(|FPRbO8tyJmR\k|I\btRXWD,shRT21WUDfRV]^g5k;RZ@*b|XhR^3P5WQHR`z~]]CIRd*>J]j/Rd-6Q*pcRbK?`^RTHA|w]jRN~*u*KtRJhjTEPrRH1{&Es7RD*idCd>R@p7mc:c+L)iR:F[-2]] #% [ 59] ba_m1.phase !S1}/@MR%S76Xxd%%S;D%MQ~~S?KLRu~~SCLpNqR%SGHEuVR%SK>*M)R%SO.))Q~~SQr>*qR%SUW%EI%% !SY5}*qR%S[gUg2R%S_3mMQ~~SaFYwl~~Sc4lzzR%Sc=~F?~~Sa\Fxd%%S_wWU2R%S_kBh)R%Sa+}2zR% !Scy[mu~~SgD}C2R%Sii8m%%%SmEmMQ~~SoxCZ~~~SsD(>_R%Sua'?VR%Swv34hR%S{*:o;R%S}1I56~~ !T-SG`@v%T-\4l\XhR%S>7|+hR%SG[MR%S8YX7u~~S6r>O?~~S6.|P7%%S4D/}7%%S2X@%%%%S0l/8DR%S0&7z)R%RzN8HVR% !RV(lJDR%R44X?~~~R5,&HVR%RQ;/XhR%Rm.D~VR%S/&4@%%%S1K8`qR%S3m9_zR%S7-vu~~~S=Pe4?~~ !SAaNY7%%SEgtSDR%SIWRADR%SMB~B;R%SQ*wXhR%SS\Su-~~SW/hV)R%SY\%el~~S[|q%MR% #% [ 59] ba_m2.amp !Q%%%%%%%Q8x?lwRbQLLfGoUKQ^7}A.KPQlj_K2~VQxfY.azfR.W[\:k7R.d(/%m-R.SVr[Z*QtRAwny{ !Q^quocVvQ>GBrLLoQHkTB0A}R0p%`H'TR>0F7%mvRNmBkK0XR^.CmrOuR^GE]X`IRV_'9g,'RNhnNdU[ !R@3BolK3R:]GV46>R8S,)t' !R<4VqOT`R@(}W|HRRDe1Z`GGRJ?|h)4qRNq]feiWRT9N9n0;RVz/WCV'RXbOByg=RXf)+wD]RV|9m\;S !RT?~yl8QRPnGbk|`RLw?v27=RJ%)oCLKRF\Co4R2RBc@q%DiR@QRvJESR>9({MSkR:|(d4{1 #% [ 59] ba_m2.phase !RHjhQ~~~QwM)Q~~~RUwu-~~~R}W@v%%%S1@|P7%%S5*STc~~S7e=\DR%S;>4X@%%S=jZB;R%SA9T[u~~ !SCi5{qR%SIDlB;R%S_@PC2R%Sc;(>_R%ScutO@%%SclIUZ~~Sc%XL2R%SaB8RUZ~~SuKmADR%SyxQjhR%T-Rn~JDRT-e1~:2RT-upo;R%T/*_+T;RT/7|=|hRT/CmD5_R !T/NG*([%T/Wqfjt`T/`HoBG`T/h..L>_T/o%vPg[T/u/:v13T/z;gNqT1&tX.K+T1'f%KOi !T/~LB&(2T/~%R>.vT1*/|H.%T132mU[%T1cvv%%%S>BFpZ~~SSDR%S2iKp2R%S2@mu~~~S0r.ahR%S0J&0;R%S.|:g2R% !S.T.U[%%Rv[6JDR%RlcgwDR%RbO1&DR%RVvZNH~~RL'8`qR%R>rImu~~R2Mu:2R%P=ps?~~~R1nj|hR% !RSVu:2R%RsR%mv%%S/HSLVbmbQzEm[45tR.^TEY[MR.l1n_VrR.]'IrSUQvgL}UN) !QbCb{eOLQBCWRpFDQFpbOK`iR0^9o@bWRv~RNC|fjf+ !R>b5+7XqR:(Z_lu>R<4~3QKZwXiZJRD9Id{5WRHkc?h|0RNBGL5%]RRdE+{-lRVKx]lzVRX5\lZmORX:a*n67RVXM`fUa !RR~mg'/HRPX(lqeMRLeN+E2_RHrfLf\iRFR{o6THRB\CAH6KR@Ma~VgRR>6o.uX%R:yh1w*~ #% [ 59] ba_m3.phase !R@E(Z~~~R5WeDQ~~R_DnDR%%S-v,cVR%S1i9[v%%S5Ry:Z~~S93uVR%%S;g(FhR%S?9v9;R%SAcfc~~~ !SE;\Td%%SIo:>_R%S_+zAm%%ScHmY_R%Se.w\m%%Se&J4?~~Sc9-B;R%SaTf';R%SaU%UZ~~Sc.6nl~~ !SiNF3qR%SoK*Q.%%Su__EqR%S{6HB;R%T-UU7iqRT-h9&(2RT-y7EH~~T/.45shRT/;XbK;RT/GQ(g2R !T/R'.U[%T/[JQ4t_T/ct?]G`T/kR>^>_T/rBlYg[T/xDpv13T/}Fknu.T1'=}LNqT1)b+Vx+T1*HXfOh !T1&Ur\(3T1%vn][vT1,.Xp[%T158d-.%T1?&KG_RT1I2IQVRT1SpbcVRT1_FJTd%T1k]HNI%T34r52zR !T3J_w`qRT3`adMR%T3t|ywDRT5.Qp&DRT5AE@v%%T5SfAXhRT5d?0';RT5uGA0;RT7,foh)R #% [ 59] ba_m3.caps !SD|w,6~~SD{\L[%%SDw[Y_R%SDq)-VR%SDguB;R%SD\=7v%%SDN<([%%SD=y.MR%SD+KC[%%SBpuB;R% !SBZFdMR%SBA~JDR%SB'sH-~~S@f0WqR%S@Hq9c~~S@*+'d%%S>cvv%%%S>BFpZ~~SSDR%S2iKp2R%S2@mu~~~S0r.ahR%S0J&0;R%S.|:g2R% !S.T.U[%%Rv[6JDR%RlcgwDR%RbO1&DR%RVvZNH~~RL'8`qR%R>rImu~~R2Mu:2R%P=ps?~~~R1nj|hR% !RSVu:2R%RsR%mv%%S/HSL9R0*X&MjDR2\M'RSoR64/dF4~R8w'1|VTRA>\@j`R:_r.X^GR8dK'c9h !R8R[^iQwR8u>5\CcR:XXuz1[R<8]@^5hR22R2|NpTSmR<-M5_R%RBeH;]\HRHtOc?p_R%%SQj@%%%%SS|pZ~~~SUIel~~~SU&,7%%%SSU{I%%%SSZnl~~~SU*U2Q~~ !SY2)R%%%S[MvMR%%S]edv%%%Sa8}6~~~ScRmv%%%SeZ%v%%%Sg]|@%%%SijL2R%%Sm+t_Q~~SoXhQ~~~ !Ss3@v%%%SuaH.%%%Sy%ahR%%S{0x;Q~~S}-ZVQ~~S}vQVQ~~T-W1wDR%T-[b2zR%T-^9l.%%T-]v]d%% !S{E4hQ~~SuBc6.%%Su4+D)R%Sua@mv%%Sw@U6VR%SwzXP7%%Sy[<,_R%S{A_^2R%S}1,&l~~T-`m;=hR !T-np:Z~~T-}RN@v%T/1FR]d%T/>{(Z~~T/L10+@%T/YP2V)RT/eC(k7%T/pm@U[%T/|`6jhR #% [ 59] ba_m4.caps !T00UJm%%T00g_)R%T01G{qR%T02PG7%%T03uzzR%T05^c.%%T07`yZ~~T09qj?~~T0<3U2R%T0>K_zR% !T0@`0d%%T0Bf';R%T0DYcVR%T0F07MR%T0GG7%%%T0H=H-~~T0HljhR%T0Hwdu~~T0Hap[%%T0H'Sm%% !T0Cr,_R%T0>p.MR%T08'h)R%T05^c.%%T049/DR%T01p*I%%T0/,6~~~T0,,O?~~T0({mMR%T0%q1Z~~ !T.|fOhR%T.yc.%%%T.vg&DR%T.syRu~~T.q9?VR%T.nZF?~~T.kwm%%%T.i0?VR%T.f47u~~T.b|;zR% !T.YyJl~~S~i)Iv%%S|]'_zR%SzZIUZ~~Sxee@MR%Sv{2Al~~Sv7VnDR%StH;EqR%SrS{Y6~~Sn9r4hR% !SjyJm%%%ShWImu~~SfFft6~~Sd@Y_Q~~Sb4j/l~~S`5sD)R%S^=FP6~~S\@8LZ~~SZMlB;R% #% [ 59] ba_m5.amp !Q%%%%%%%QHJqaHAbQjY-ojmfR0/=Ml=2R2asi.T^R64f']B@R8n%PB0_R0TNC_rR:M=)]1GR8Ov=SbO !R8=&'AJ4R8_|R;+TR:DiI,?.R<&p4j/mRpR2f-lGi9 !Qx3@4:}'R4&Xm[=@R<5diqR%RBpVfC9ORJ'+c}RsRNiTTvYBRRmfVcV&RT|yA{90RVNn&]9^RVE7Q(A\ !RRwD'mQHRPU5p/B:RLgKal0ZRHo7{%)CRFKVmYl_Q~~SE%~-~~~SGcNI%%%SIriH~~~SKAK_zR% !T0@`0d%%T0Bf';R%T0DYcVR%T0F07MR%T0GG7%%%T0H=H-~~T0HljhR%T0Hwdu~~T0Hap[%%T0H'Sm%% !T0Cr,_R%T0>p.MR%T08'h)R%T05^c.%%T049/DR%T01p*I%%T0/,6~~~T0,,O?~~T0({mMR%T0%q1Z~~ !T.|fOhR%T.yc.%%%T.vg&DR%T.syRu~~T.q9?VR%T.nZF?~~T.kwm%%%T.i0?VR%T.f47u~~T.b|;zR% !T.YyJl~~S~i)Iv%%S|]'_zR%SzZIUZ~~Sxee@MR%Sv{2Al~~Sv7VnDR%StH;EqR%SrS{Y6~~Sn9r4hR% !SjyJm%%%ShWImu~~SfFft6~~Sd@Y_Q~~Sb4j/l~~S`5sD)R%S^=FP6~~S\@8LZ~~SZMlB;R% ifeffit-1.2.11d/src/fefftab/86.dat0000755000175000017500000003577010771740460015510 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] rn.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] rn_k.amp !Q%%%%%%%RDHDTDIvRbUJjL)iS.Se:@IcS0w5bQV@S48J.W_LS6Iv'EvIS8P=z+{}S:JfzM^mS<8^-QP' !SHQE@B|S>k%10X1S@(>wGGTS@5@nIqsS@9uaEryjS>a}g9ev !SoJQS<%y1+2LS8x-+1%]S8%IGNhLS86[\RRmS8^XJ&({S8CtVjs(S6AY-N0YS4'p8bFWS0sZh;Jw !S0'ga9&[R~b]?Ta}RvJWBa>lRn5z`Z?JRdI:YN0@RZ57}_4qRN~JNZcsRFwK?6K3RD@E+5VZRFR@mOfP !RTZ]>*fXR\=;EHA(RZ~u>-3=RXa+mN2BRVG`F//(RRJ7RV&.E7RERTT'I7O0RR/hzDt'RNwM<)IvRNhalx\V #% [ 59] rn_k.phase !S.w&Td%%RZiU2R%%R.d]d%%%RG)zR%%%RqSm%%%%S/|DrH~~S5*L:[%%S90,wl~~S=3@u~~~SA41o;R% !SE2d]c~~SI/({H~~SM)6NI%%SO{:Jl~~SSq-VQ~~SWdiqR%%S[V)-VR%S_Dq~VR%Sc0oh)R%SesT;Q~~ !Soo@iqR%Sup%z)R%S{P'[u~~T-Yo8RU[%T5hB3mMRT5t'y*I%T5}U)Z.%T7)?F@%%T7-QE,_RT7BVH>7% !T7S/WU2RT7gYh%MRT7{X5shRT95rBx;RT9JEl^[%T9]N)Iv%T9q53iI%T;(io+@%T;:8MnDR #% [ 59] rn_k.caps !S>l\XhR%S>l%v%%%S>j5shR%S>g62)R%S>b}*qR%S>]R~.%%S>Vs7v%%S>N|L2R%S>En`qR%S>;MV)R% !S>/oKd%%S<|vahR%S_R%S6niDzR%S6+_Z.%%S45?vv%%S2`L_)R%S2A;~VR%S0s[UZ~~S0J)j?~~S.{H6.%%S.SQrqR% !RvYjp[%%Rlk[))R%Rb`znDR%RX;F`I%%RLO6>7%%R@Fgc-~~R4'fp2R%P~bjL2R%R1A1*H~~R?5uF?~~ !RaYvY_R%S-inYJq)R%S>Yz9d%%S>[TG_R%S>^3@u~~S>at_R%%S>f`iI%%S>lU>_R%S>sNY6~~S>{P?-~~S@*Vj@%% !S@4i@u~~S@@*K;R%SBAGg[%%SBT]/DR%SBi+pZ~~ !SDSmIMR%SF.%mu~~SFiGG7%%SHTt6~~~SJ27=@%%SJcjhR%%SL>~>7%%SLvD~VR%SNUk[MR%SP7:NqR% !SPtV~VR%SRY\.v%%T2DC&DR%T2lO7v%%T4:_)Q~~T4brU2R%T61/`qR%T6YJLZ~~T8'e8DR%T8P)^2R% #% [ 59] rn.lambda !R`.G&m%%R`/ZF?~~R`3>*qR%R`9HNH~~R`AyVzR%R`LsdMR%R`Z6vv%%R`isT;R%R`{uVR%%Rb62)R%% !RbL`a?~~RbeF/l~~Rd&8hzR%RdC8XhR%Rdb>?-~~Rf)F;zR%RfLT/DR%Rfq\y2R%Rh>h%MR%RhguB;R% !Rl<)nDR%RnHm57%%Rpe1s@%%Rr7j`H~~Rr@PC2R%Rrgi}_R%RtJZjhR%RvshR% !S2+V=hR%S2R'';R%S2yG{qR%S4GWmMR%S4p@ahR%S6?\XhR%S6iBx;R%S89J,6~~S8cr(Z~~S<0_1Z~~ !S>-P&m%%S@*~rqR%SB)%MQ~~SD'N0c~~SF&=\DR%SH%J9de(pO !R>|@`]uoR@W;DCvVRB'A{J<%RBGtU\<%RBdL`zMVRD+2olORpN|>6+4Rdf}}]t7RZ(sf=T;RNWD+pb?RDA/.Ws0R:Ek=;kxR2:g<~kWR.ulNp?GR4@)LQ>7 !RDH(-W@vRNAHhb|sqXqRPdxfWfXRPJW[g\@RN6fBrF;RLIZSNC&RL+`&lY- #% [ 59] rn_l1.phase !S:Bwq)R%S6/ra?~~S0}fl.%%Rt>;)R%%RLQ)zR%%Q.rI%%%%RGeP_Q~~Rk+X?~~~S/3)Iu~~S1e8hzR% !S54P6~~~S7T*Q.%%S9i'l.%%S;rF|hR%S=ntcVR%S?]v]d%%SA?I12R%SAo.z)R%SC;~2)R%SC^-:2R% !SEm9_zR%SGeu-~~~SIe+H-~~SKmIMR%%SO(nq)R%SQ@REI%%SSS|lVR%SUcm57%%SWlgwDR%SYmY_Q~~ !S[f,SDR%S]Vn=7v%S_A&,[MRSa%e=\DRSa\wIiqRSc,\`qR%Sc73-NI%Sa=c5jp[S[10N?>7SU}H-6.% !SW4^0t7%SY\FT;R%S]+S(2R%S_GPwm%%SaY}shR%SceSu.%%Sebt2zR%SgL9l.%%Si+gc.%%SmQhf;R% !SqA-%u~~SuP`eDR%SyeYWH~~S}utshR%T-eUe0;RT-xbCVzRT/2.PC2RT/D5[qzRT/Umw8DR #% [ 59] rn_l1.caps !SHSYWH~~SHRBWqR%SHNWY6~~SHH>[MR%SH?\XhR%SH4Sq)R%SH'+dMR%SFqLg2R%SF_\y2R%SFKcZVR% !SF5o?VR%SDx-B;R%SD^X|hR%SDCAu-~~SD&P_R%%SBb.v%%%SBBAXhR%S@{+'c~~S@XSq)R%S@4b&l~~ !S;)R%S6lTt6~~S6/?^Z~~S4]pVzR%S4,DEqR%S2R@U[%%S0wU.MR%S0BbG6~~ !S.gGWH~~RxG?vu~~Rl=DMzR%R`'yNqR%RR^pNqR%RF.v%%%%R8MJdv%%QZaDrH~~Qy-Tt7%%R;2w7R.ZunINSR0/1{5v'R0Sx1{:KR0ogk%RE !R2(68:R)R.g2w_i-R.Rc)tqT !R0WfA}7%R6/8DQ~~R<;=JoaXRFxtLKy*RTX1D|/mR^5U46f@Rb[E|U]LRd4~E*NaRbM/UHcNR^l7/qrI !RZUzA'&MRTxPCXIfRP-.D=a8RJ'9]TT\RBnC54X@R6~~SQPUk7%%SUFq%MR%SY9C[%%% !S])B7MR%S_oz=hR%ScZo[u~~SgD-2)R%Sk-apZ~~Smr'l.%%Sq_`}_R%SuSFxc~~SyQ\XhR%S}^/Ls@%%Sl=lVR%%Sl;j?~~~Sl8MIv%%Sl3dz)R%Sl-^6VR%Sl&1s?~~Sjw9|@%%SjlvQVR%Sja/l~~~ !SjSlZVR%SjD|T;R%Sj4_Z-~~Sh|dqzR%Shi9[v%%ShT47u~~Sh=MEqR%Sh%.el~~Sfe2=hR%SfIPg[%% !SdFC:Z~~SbYCVzR%S``2f;R%S^[]?VR%S^'G;)R%S\\:k7%%S\1=L2R%SZ^^_)R%SZ0OD)R%SXZ{iH~~ !SX*IIMR%SVS:FhR%ST{oOhR%STJ;~VR%SRrP?-~~SR@V%MR%SPhIQVR%SP5nu-~~SN\a;zR%SN(l%v%% !SJX'd%%%SH*W4hR%SDX@%%%%SB1Z6-~~S>m5[MR%S|;zR%R4'7MR%%R;P2zQ~~R]Bwq)R%R}U_MzR%S1'ys@%%S3Q>[MR%S5vgJm%%S9@y:Z~~ #% [ 59] rn_l3.amp !Q%%%%%%%Q8I)BKrYQJ[/9HvRQ\HTNEpcQlWPC\kGQ|'BG_R%R.{)V[vyR0SR2^q0IpCR2_.\EeER2V@/+sqR2Cl1r%ER2)+OcLGR0`*[uZVRT3B}66.%T38JyVzRT17J~%v% !T1@(_)R%T1L`*];RT1X&P_R%T1amq1[%T1j[vIMRT1r`uVR%T1y+4;zRT1|u}k_RT3%HtO@%T33tC2R% !T3@VTOD*T3P9OD)RT3a3mqzRT3qoidz)T5)-6*DzT59Pe}7%T5JhYcVRT5[.+P7%T5j^?NI% #% [ 59] rn_l3.caps !Sl>Ls@%%Sl=lVR%%Sl;j?~~~Sl8MIv%%Sl3dz)R%Sl-^6VR%Sl&1s?~~Sjw9|@%%SjlvQVR%Sja/l~~~ !SjSlZVR%SjD|T;R%Sj4_Z-~~Sh|dqzR%Shi9[v%%ShT47u~~Sh=MEqR%Sh%.el~~Sfe2=hR%SfIPg[%% !SdFC:Z~~SbYCVzR%S``2f;R%S^[]?VR%S^'G;)R%S\\:k7%%S\1=L2R%SZ^^_)R%SZ0OD)R%SXZ{iH~~ !SX*IIMR%SVS:FhR%ST{oOhR%STJ;~VR%SRrP?-~~SR@V%MR%SPhIQVR%SP5nu-~~SN\a;zR%SN(l%v%% !SJX'd%%%SH*W4hR%SDX@%%%%SB1Z6-~~S>m5[MR%S|;zR%R4'7MR%%R;P2zQ~~R]Bwq)R%R}U_MzR%S1'ys@%%S3Q>[MR%S5vgJm%%S9@y:Z~~ #% [ 59] rn_m1.amp !Q%%%%%%%Q>P5cMGtQVw1J/(2Qp;zPf5KR.z;&_'PR22pR9r5R4D)LDT'R6T(OiS0R8d%'/=8R:t0f4FP !R>+MJm_BR@@nv'p2RB[JuQIVRHS_w67ARL8_OX@%RP2L^.y;RTAqk}]tRXf3i`BTR^Aia)iv !RlLr=JTdRr-vM4p[Rrr1R7aDR~ZnJ%emS00`\X;S0E^M=kJS0+;zAZkS.`'p/pT !Rxdyi<([RnNe?;[fRd1^dzycRXm56JS,RNgcrTC[RF+MZZ.IR'7 !RD4Fr'@ERLRJ=r8mRP1jd|3)RP1U.>wmRNDsT%5RFq2n9&_RFF(X:x[v%%S7_Wa@%%S9wIiqR%S=+nXhR%S?/}7%%%SA),g[%%SApX3qR%SCR9;Q~~SE(Ug2R% !SG.u6-~~SGe_9d%%SIM\y2R%SKDo3H~~SMOa7v%%SObnP_R%SQsg>_R%SU&mmu~~SW,*qR%%SY(Bc~~~ !SYuPK;R%S[`,BC[%S]Blvv%%S]wz:wDRS_H=]|@%S_`Ot_R%S_W({mMRS]g-ZZ2*S[/n5+;zSWfU1>_R !SWDXLVzRSYOc^[%%S[m%mv%%S_*Imu~~Sa:Sdu~~ScD9d%%%SeAD-VR%Sg,m=@%%Sgi@u~~~Sm9X`I%% !Sq)6NI%%Su8712R%SyN4hQ~~S}]hMzR%T-c9z=hRT-vLIY_RT//vW8m%T/B7%IMRT/Sy2Q~~ #% [ 59] rn_m1.caps !SHo_V)R%SHnA'_1[%%S<-0';R%S:(eTc~~S6v8(2R%S691FhR%S4gE0d%%S45o?VR%S2[G&m%%S2%s|hR%S0J)j?~~ !S.mo/DR%Rx}fl-~~Rlk2zR%%R`M[ADR%RR}}O?~~RFHnm%%%R8bx7MR%Q^d)MzR%QuAiDzR%R9~crqR% !R]N`uVR%S-WD1[%%S16PK;R%S3foh)R%S75/dv%%S9XxQ`)s{wmR0p0PclFR0Ueei=`R0,vQ~ZWQ~<,\zEq !QBg-{iI%Qnt0y=DrR4CdBLwDR>]gE:vVRHyVf{_bRPN_tr\MRTQ/.+HwRV:ufc~~RV/71f}xRT77pRgK !RPhR}l?oRLss_>i]RHd]/VEMRD?q%>wmR>f&TOYxR:'?9~_JR45|Zxx;Qzw=%@z)QFMy])LCQP&I]uQ_ !R6+pFLloR<~K:1uBR@hFp%)rRB4Y8n?_RB%s]BdnR@O~vD'LR>fA8kR1R>._R%Sm0`iI%%So?'x;R%Sq>nu.%%Ss*(6VR% !Sm`?>6~~ScWsT;R%ScjNQ.%%Sh&>K;R%SffPWI%%SfJ}[MR% !SdH/\m%%Sb[79;R%S`b&HVR%S^^ruVR%S^+hvMR%S\`yZ~~~S\5x[v%%SZbuF@%%SZ4:Bd%%SX^7EH~~ !SX-6vv%%SVUa+hR%ST}uF?~~STKwL[%%SRsr8l~~SRAb*qR%SPi<([%%SP6O7v%%SN]/DR%%SN)/4@%% !SJX6>7%%SH*ehzR%SDXUs?~~SB1sdMR%S>mO/m%%S[MQ~~R4&edv%%R;P6ZVR%R]C7EI%%R}V&JSuR2LKy0{QR24E'D%MR0h^f]/ER02f~hT' !Qb>muljiR.`Zc.\IR4zw67ADR@*?Y;0lRJ7\K5Khza[)rR:-QK;)vR4@^Ru~~Q~cfrUwiQJIuR&raQJAPmQe, !R4TR_)&u~6[xLR@<]/\W1R@,ZUx:cR>Y1^'H5RqS?^[R<3WJCU\R>l[H]B5 !RBz^yF[GRFSgL9T)RHlW%DxERJ`mtJZ-RJhb_|>GRJw4ZjTNRJ65Qr2,RHJO)81aRFUyjmXE #% [ 59] rn_m3.phase !S3z^2R%%S94]3H~~S=Bys@%%SAL(FhR%SEOYSDR%SIN'G_R%SMFt;)R%SQ:e0;R%SU)Lg2R%SWlkWI%% !S[Pg[%%%S_/e@MR%SabyJl~~Se6)1[%%Sg[riH~~SiyUg2R%Sm2>WH~~So7go;R%Sq+G?.%%Sq_~2)R% !SmjJTd%%Sg`6jhR%SgA4dMR%Sgju)zR%SiZ=lVR%SkYgZ~~~Sma&u-~~Sojft6~~SqpHF?~~SsoBl.%% !SufBl.%%SwTz=hR%SyNQ.%%Sh&>K;R%SffPWI%%SfJ}[MR% !SdH/\m%%Sb[79;R%S`b&HVR%S^^ruVR%S^+hvMR%S\`yZ~~~S\5x[v%%SZbuF@%%SZ4:Bd%%SX^7EH~~ !SX-6vv%%SVUa+hR%ST}uF?~~STKwL[%%SRsr8l~~SRAb*qR%SPi<([%%SP6O7v%%SN]/DR%%SN)/4@%% !SJX6>7%%SH*ehzR%SDXUs?~~SB1sdMR%S>mO/m%%S[MQ~~R4&edv%%R;P6ZVR%R]C7EI%%R}V&|y5hRF>1>3iH~~R>Vm-iJ8R><4tabpRGri~z2R>K.cZ*(R>'RB{eSR<>a'6m5R:X@0k<6R:LF}P<'R>lF%~(4 !RDG%1:,DRHAVd-?RRJhejz&ORLkWq7H:RLo`kXS[RL}*h-]lRLFS{<([RJNM&i{]RH1&]SI_ #% [ 59] rn_m4.phase !S:HaL2R%S61i}_R%S0s|D)R%Rn(:Z~~~R@7ahQ~~R7`0d%%%ReMMzQ~~S/Q5?.%%S3aP[MR%S7i([%%% !S;cwdv%%S?P*([%%SC*\L[%%SEK?2)R%SGVvMQ~~SIK.z)R%SK%ZrqR%SK?=lVR%SK=urqR%SI}Bh)R% !SG5nP_R%SE3m))R%SCfa|hR%SE&{Y7%%SEz{@u~~SIOP[MR%SMw3,_R%SUf2Z-~~S]1&hzR%Sa%CFhR% !Sc(0+?~~Sc`J\m%%Se,fl.%%SeKR~.%%SekYoc~~Sg96^[%%SgoV9d%%Sie;Z-~~Sm/[~-~~SqW[]c~~ !T-Tq[em%T-jPI9;RT-u;:wDRT-{@4H.%T/%5fG_RT/(Od))RT/*`3y[%T/*)q~VRT/'=,2zRT/'?]l.% !T/-+jT;RT/6U|\DRT/A?E,_RT/LO&,7%T/Xa\DR%T/c{pc.%T/p^EU2RT/}OoG_RT1/KNy[% #% [ 59] rn_m4.caps !SzSP;)R%SzSWU2R%SzSmIMR%SzT;Q~~~SzTr4hR%SzUa+hR%SzV^VzR%SzWn*(Z~~Sf:Ug2R%Sd:2-VR%Sb?Uc-~~S`J/q)R%S^Vb[MR%SXyR--~~ !SVEO+hR%SRvg&DR%SPMi,_R%SN/.]d%%SJs|hR%%SH^=p[%%SFP9p2R%SDH]G_R%SB>{(Z~~ #% [ 59] rn_m5.amp !Q%%%%%%%Q6.]pS6\QF4\fGViQV5K6M_XQf3b-XMEK%l>RBU?4{7~RFzY?UEzRLc*oJ>KRRaQ5R)rRXq2^A,7R`'LPe4@Rf%./h&a !RnCLAiL;RhP:z[W9RZyM=&T@RRPzoR&]RJ7y{(x3R>f2H[EIR6/%}0SmR2EWY-3=R4o]/^g{R:%\rzMV !R<`Fo/ZFR>Ww}6~~R>lN1C{%R>Mgw&[~R<_WX?eQR:Pq/lK|R6}fGO-kR4::Mt&mR0M7,|C;QvOTTla( !R0ed)xZcR8H@h=D)R7TJ:JIR>=t-:SaR{S?5St !RD\sgTSmRH]G^MSzRL1x>8B6RN6[o'BlRN;GbbX?RNJP%xMTRLid(.y;RJopQX]FRHPtfar5 #% [ 59] rn_m5.phase !S6lyBd%%S2WTh)R%R|Pwm%%%RP[%%%%%OuR%%%%HROJHVQ~~RyP[MR%%S1A?^[%%S5AmIMR%S9;5_R%% !S=+0[u~~S?i3yZ~~SC>ry[%%SE].z)R%SGgRv%%%SI\T?VR%SK9(NqR%SKUVV)R%SKWn`qR%SK@uZVR% !SG[+t_R%SEY*M)R%SE/w0;R%SEH}G7%%SGBX`H~~SIs07MR%SOL1>_R%SWLzZ-~~S]iehzR%SaTAXhR% !ScQpJm%%Se-?nm%%SeQ5?.%%SenCc-~~Sg2lfc~~SgXG?-~~Si2d]c~~Sk%}?-~~SmF?6.%%SqdX'c~~ !T-VDOX@%T-lV?jhRT-wA1NqRT-},VZ.%T/&itC2RT/*)q~VRT/,={y[%T/+e@))RT/(q:.MRT/(p1c.% !T/.},shRT/8E~rqRT/C={U2RT/Ng0t7%T/Znm%%%T/fDu^[%T/s=>k_RT1%rtC2RT121b?.% #% [ 59] rn_m5.caps !SzSP;)R%SzSWU2R%SzSmIMR%SzT;Q~~~SzTr4hR%SzUa+hR%SzV^VzR%SzWn*(Z~~Sf:Ug2R%Sd:2-VR%Sb?Uc-~~S`J/q)R%S^Vb[MR%SXyR--~~ !SVEO+hR%SRvg&DR%SPMi,_R%SN/.]d%%SJs|hR%%SH^=p[%%SFP9p2R%SDH]G_R%SB>{(Z~~ ifeffit-1.2.11d/src/fefftab/16.dat0000755000175000017500000001706410771740460015475 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] s.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] s_k.amp !Q%%%%%%%QZ.g%%/yR02t-iXmR4WlSSfTR8j~tmw]RcW !RDet(D|0RB|uVQ=HR@[)3tyoR+:HGi9 !RT:@gYG7Rp9S|MxtS.ig-0@jS0PN|%2FS0uDn{4hS2*'h@oTS2&pz'+@S0nc:d+PS0Pb\SfTS02./%NO !S.pdn-A:S.Wx2s\DR|42K9wqRvscXBR>a/&x:QR_4qQtZAPC;\QfI0%shdQ^H(I2_FQX>pt5-cQRK=9;{WQVTo:^BcVR%SM@iqQ~~ !SQhIv%%SJp,oc~~ !SH;IQVR%SFCat_R%SD{MrI%%SDYA0;R%SD1dADR%SBb66-~~SB9(s@%%S@jjOH.%% !S>8gBc~~S<_RIMR%S<+Jy2R%S:Pqf;R%S8v,?.%%S8AH2)R%S6g*mMR%S63Gk_R%S4Zeu-~~S4)9d%%% !S0g}K;R%S.V\Td%%RjQ|X@%%RV*)Iv%%R@xlvv%%Qx/T?VR%R/9uJDR%R?yc.%%%RQ'OhQ~~R}LN(Z~~ !S/oe\m%%S3,21Z~~S5O?~~TT^]Kc~~TRrSy2R% !TPp.))R%TN[J_QZVR%TSDQ~~TqO|hR%TBJJXhR%TF*3U2R%THjYwm%%TLWMrI%%TPJb*qR%TTD1[%%%TXCZZVR%T\I))R%% #% [ 59] s_l1.amp !Q%%%%%%%Q\23~)zRR0DnG:(GR4q<-xbGR:/lie5xR>0<@DlBR@kL9Q0LRD(xtyCSRDs5/93IRF5rGg=q !RD{PSst_RD/|uzs8R@]Z0&tdRSd[i([Qbunm;{eR4[&B/a`R>,|yO}W !RTMc5egCRpT:)m)rS.n(nwi/S0U[j|;@S0{00^/hS2/YO{k'S2,e.O/mS0todRfcj>m.fRbgpQOc_R^q;w@j` !RVo(OEKLRPc9ZEaRRL-s|~VdRFcBSlMlRBPZ{k(]R>ev4yn[R%~ !R0V`tAc>Q~RVkUv1Qt_qR?|XQfNkVOuNQ^IrzjPjQXBiQ~q2QRLEjV2nQVVmlwriQ^zu6^Yw #% [ 59] s_l1.phase !S@O%=?~~S<

_R%S83CBc~~S42GO?~~S09|dMR%Rj.--~~~RFk_R%%%Ppm%%%%%RC0[u~~~R_h)R%%% !R{OdMQ~~S/]nTd%%S1o]Sl~~S3yvU[%%S5}R12R%S7|f+?~~S;:uB;R%SWLvIqS_SYAV~zS_S[)Ij;S_ !S]t7=d&_Sa3D%qS_ScLqVMS_Se]0'_S_SghBt[&_Sin=u)S_SkoI1VS_Smnz:.&_SoqIj;S_SqwwmI&_ !Su&?RqS_Sw-cg.&_Sy32~zS_S{6D2%&_S}6\qMS_T-SPDmv4T-[uJlVaT-c{s3I4T-kgdiI4T-s7PFha !T/*iZ)R4T/:vqY_aT/Is=|d\T/W{/[UjT/eSH5_aT/r\7q].T/~y\1&ST10DVy_8T1;5W(2aT1YYN,[\ !T1kb,.MaT1}wko;aT32'C^[4T3C[^2)aT3P=*XhaT3[v~zR4T3k5T[MaT3ozvuVaT5+9]WI4 #% [ 59] s_l1.caps !STzXP7%%STxw(2R%STs|D)R%STkoc~~~ST`XH.%%STRD~VR%STA@MR%%ST-`];R%SRqZ.%%%SRY?-~~~ !SR>tWH~~SP|\DR%%SP^WiH~~SP>uF?~~SNw^o;R%SNTy*I%%SN0mem%%SLe93H~~SL>1g2R%SJoP2zR% !SH:whzR%SFBz=hR%SDzb[MR%SDXUs?~~SD0uJDR%SBaJy2R%SB8DvMR%S@i_b6~~S@>m=?~~S>j29d%% !S>8QNH~~S<_@57%%S<+@%%%%S:PjL2R%S8v%%%%%S8ADQ~~~S6g'3I%%S63D1Z~~S4Z^Z~~~S4)2Iv%% !S0gyk6~~S.VXt_R%RjQjD)R%RV*)Iv%%R@xt6~~~Qx0JP_R%R/9uJDR%R?yfh)R%RQ'OhQ~~R}LC.MR% !S/oe\m%%S3,21Z~~S5{l_B[vRB.S%7sXRD&Sgbjq !RDb-}<nKI.fRzrbNyWERxQ6yuiB7R:wtx\]\R8pNyk}eR6f{pDFUR29p8jXa !R02M48s/Qvr(q+aFQltZ687VQ`@XVOrwQXB%B2ZpQRUFj?I*QJeKI(3AQD,sw1MHQ@'COKj: #% [ 59] s_l2.phase !S5y0OhR%S;1}K;R%S?=V=hR%SCAY2zR%SG=]|@%%SK18}6~~SMuXxc~~SQUtwl~~SU+1o;R%SWNTh)R% !SYe>K;R%S[o:>_R%S]l{DzR%S__s7v%%SaJm%%%%Sc1{mMR%Sct:WHZWT/G\J;Z.T/Pu%rDzT/Ynk_RT1sB@iqRT3)WznDRT3+U.))RT36pJl~~ #% [ 59] s_l2.caps !SD:?)zR%SD9WM)R%SD7F\DR%SD3fWqR%SD.]?VR%SD('3I%%SByx3I%%SBp>_R%%SBe.]d%%SBXDMzR% !SBJ)j?~~SB:4xd%%SB(b?.%%S@o_1Z~~S@Z~6.%%S@DeL[%%S@,nu-~~S>mR%mv%%S>4xc~~~ !S:|Kh)R%S:@MR%%%S:.RiqR%S8ui0c~~S8_toc~~S8Ig&DR%S84Kh)R%S6y7iqR%S6a+D)R%S6DiQ.%% !S6%U6VR%S4^n(2R%S4=+hQ~~S2tE}_R%S2PqAl~~S2,bC2R%S0b.v%%%S0=JTc~~S.s)Al~~R~cvQVR% !Rl?}G7%%RZq{@u~~RL;2%MR%R>+0[u~~R0%I))R%QKK&q)R%R5T'_zR%RASQ)zR%RKzf_zR%Rk/)j?~~ !R}=Vb7%%S/:&DR%%S1&xh)R%S1f{Q-~~S3Fa\DR%S5&&y2R%S5YN,_R%S70?zzR%S7aD)R%% #% [ 59] s_l3.amp !Q%%%%%%%QR2oA.O0Q|huwTrYR2Kf@c?&R6CV.Ah{R:,LxswQR<](}HcsR>{{>k%5RB.^%R@SxlK3IR@/Yhe:GR@3U)Gsi !RDhBF|~FRXA_Zs;{RfEPjEznRpK:evZsRvcN_bR\nBQ7emRZDv=XJy !RT*.w<_[RNFr*VB7RJ/OqcJERD|@eKyZR@wMEygHR>71-oLZR:w\w?J6R8p%vrkZR6fu&cpsR29N9)W^ !R017L=d8Qvg`?ybkQln<kswQ>xIOR[t #% [ 59] s_l3.phase !S5xp{I%%S;1cvu~~S?=>7M-WT/G`*@-.T/P|?{D{T/Z&PnM%T/bF6:VzT/j+ODMzT/qb%1V{T1-}x(s@ !T1:xl_R%%SBe.]d%%SBXDMzR% !SBJ)j?~~SB:4xd%%SB(b?.%%S@o_1Z~~S@Z~6.%%S@DeL[%%S@,nu-~~S>mR%mv%%S>4xc~~~ !S:|Kh)R%S:@MR%%%S:.RiqR%S8ui0c~~S8_toc~~S8Ig&DR%S84Kh)R%S6y7iqR%S6a+D)R%S6DiQ.%% !S6%U6VR%S4^n(2R%S4=+hQ~~S2tE}_R%S2PqAl~~S2,bC2R%S0b.v%%%S0=JTc~~S.s)Al~~R~cvQVR% !Rl?}G7%%RZq{@u~~RL;2%MR%R>+0[u~~R0%I))R%QKK&q)R%R5T'_zR%RASQ)zR%RKzf_zR%Rk/)j?~~ !R}=Vb7%%S/:&DR%%S1&xh)R%S1f{Q-~~S3Fa\DR%S5&&y2R%S5YN,_R%S70?zzR%S7aD)R%% ifeffit-1.2.11d/src/fefftab/39.dat0000755000175000017500000003573210771740460015504 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] y.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] y_k.amp !Q%%%%%%%Q\cF>bv5R0O~r([%R6+eYJ>'R:R2xclkR>eTO%KtRB`aFJF0RF@T+EotRH[ijyRvRJUV_{l_ !RL-V>rgGRL<.X^FiRL({es3)RJSH:L&ERHfmD/n]RFhaOQygRDbe?-'TRBYT)WZM[<|q !R<5_oaBLRB'z2{OPRJ6yAhd^RRnMM(0+RZaj\CjHR^~k@+P7R`AaPp9HR\XBQ4+hRV:_s*)JRL|X-n'h !RD`v=G?.R>>O=SxDR<9:NbwmR>c/hNiIRDH(NEiIRJAofaX@RN|I<;9dRTUiTSkVR:Z){,PxR8KNn<.iR62LvsdcR45S;]quR4;)ZZUj #% [ 59] y_k.phase !R2.57%%%RCt;)R%%Rmo=xd%%S/aSA`qRS3W'Ny[%S7BjLVzRS9~Vgs@%S=V5|`I%S?}ME([%SC@?[iqR !SERex`iISGZt1)5_SIXw,x[vSKM.6nm%SM7P)^2RSMr'_R%SSWo+@%%SUE&}6~~ !SYEQRMR%R:}qAl~~R8HW@u~~R4Zeu-~~R0[RiqR% !QjA7U[%%Q:pT/DR%QA@%mv%%Qw*8m%%%R1ylJDR%R7yi}_R%R?/)EqR%REN_b6~~RM&(2Q~~RSk1g2R% !Ro5.v%%%S-mo/DR%S/903I%%S/Q5?-~~S/tFlVR%S1GBh)R%S1{n`qR%S3[uZVR%S5@0=T;R% !S@>(&DR%SB34D)R%SBk@ADR%SDGBh)R%SF'fp2R%SFd[=@%%SHIgo;R%SJ0r}_R%SJsjT;R%SL^8XhR% !SNJ(VzR%SP7+t_R%SR%3}_R%SRn5wm%%ST^&hzR%SVNUVzR%SX?dahR%SZ1Lo;R%SZ}]+?~~S\p?)zR% !S`}L*H~~Sf2EM)R%SjB`iI%%SnT&q)R%Srf5oc~~Svy%12R%S|2Co;R%T.UAu.%%T.iBSm%%T0KR~-~~ !T0sfOhR%T2B';R%%T2jB';R%T48`M)R%T4a(Rv%%T6/JXhR%T6Wp>_R%T8&8DR%%T8NadMR% #% [ 59] y.lambda !S^_VrH~~S^b{([%%S^m(_)R%S^}I9;R%S`9SHVR%S`TT[u~~S`sKh)R%Sb;)-VR%Sb^/`qR%Sd'=T;R% !SdI4H.%%SdhO|hR%Sf*&XhR%Sf@}?.%%SfRb2zR%Sf^~:2R%Sff3I%%%Sfi+p[%%Sfi30c~~SfhRmv%% !Sh(aP6~~SX0[-.%%SPRXp[%%SN*Imu~~SLMq~VR%SL@_f;R%SLL{mMR%SLj[z)R%SN;)vMR%SNoC[%%% !SPQ[EH~~SR:K[u~~ST(x3I%%STv>.u~~SVmxKc~~SXiK';R%SZhI-.%%S\jUNqR%S^o]x;R%S`wHzzR% !SfhZ-~~~SlgO;zR%SrrF|hR%Sz.1VzR%T.V-2)R%T.u2rI%%T0;+/m%%T0[l>7%%T0};)Q~~T41g2Q~~ !T4zS8DR%T6kShzR%T8^Z6.%%T:SWyZ~~TBk?.%%T@p3fP6[RBeS:{[9RF>H80;RRHOsmobGRJ?*d?fd !RJe1XOVbRJj,GfG`RJNiCGm=RHrL0ooDRH&L9.13RD}v]fwMRBsylJDRR@g2[/0;R>^^d`cgRM7li7~RDCh&R=@RJH/]Jj4RP1QRXE]?I&8RZs6d.em !R`K7VKf'RbpHp8XhRd[=83cBRdpP@|ieRdP,V?r)RbX,s>YKR`>=3y]WR\stignqRZNs>S%tRPz|Q&q? !RL?pP;L0RF^)3d||RB>eFCq>R>X]<2AmR:\@*=f:R8M;I*2>R63jDe-]R46H;KH1R4<);y:_ #% [ 59] y_l1.phase !R0-o7MR%REuXT;R%Ros^k6~~S/kLdem%S3ae&Td%S7NGNQ.%S;1F&u.%S=dD.v%% !T-]}V~VRT-sF/HVRT/.'*uVRT/BPtWI%T/U.qzR%T/gF&u.%T/xNXlVRT1-Dpk7%T1;/J4@% #% [ 59] y_l1.caps !RD5shR%%RD*4D)R%RBa1Jm%%RB'9+?~~R@0zb6~~R>%8L[%%R:^vU[%%R8+3([%%R4>}*qR%R0AKG_R% !Qd[D~VR%Q6AbO@%%QE^(k6~~Q{7xp2R%R31\8DR%R90,wl~~R?=w,7%%RE\5.v%%RM2@Y_R%RSv>.u~~ !Ro=Bp2R%S-na`H~~S/:)~VR%S/R+P6~~S/u5cVR%S1H&du~~S1|N}_R%S3\R=@%%S5@ox;R%S7(>;)R% !S7kshQ~~S9V^{I%%S;A`([%%S=,&m%%%S=o;R%%%S?W*];R%SA=8@MR%SA{U{I%%SC]mel~~SE=t_Q~~ !SGkpwDR%SK6(g2R%SMVpFhR%SOxPWH~~SS@`0d%%SU_@Y_R%SWv1VzR%S[)8,6~~S].RiqR%Sc3];Q~~ !Sg+GcVR%Sih0G_R%SmFurqR%So{F|hR%SsG=t_R%Suhpk7%%Sy-jhR%%S{B-fc~~S}SCc.%% #% [ 59] y_l2.amp !Q%%%%%%%P\fnMjdMQ0_v[K2ZQ6l8:GP/Q>EgtaxdQFZSbQ0'QPYnIRS}Q\EV1??oQhcNqo3IQv4'G0p{ !R.\xT+khR00Ll{W5R0Oi||R\;\-|leR\N,haF_R\/~~Kb*RZH3,5}SRXNMr(6WRVKA=p5-RNcP7i,} !RJJ8Gh\rRF)]O\;iR@s~=75qR>?b1H4,R:LZ+XwjR8C\)tllR61wHs`IR2|:{aJyR2IRfXw% #% [ 59] y_l2.phase !S.p?NI%%RZ,k_Q~~Q|;)Q~~~REczzR%%Rm^.MQ~~S/R{a?~~S35dEH~~S5at;)R%S9%=dMR%S;5diqR% !S=<*8m%%S?:~^[%%SA5ATc~~SC-Iz)R%SE%V%MR%SEyruVR%SGxx;R%%SK&;5_R%SM;8P_R%SOdtG6~~ !S[Aa`I%%S_HvQVR%Sa\`M)R%ScbfG_R%Se^zZ-~~SgP:_)R%Si8gg2R%Siug.MR%SkTDnDR%Sm,Mb6~~ !SmO(Ru~~SmBx_zR%SeS%ADR%S[ahR%%%S[IBWqR%S[p)5_R%S]NRADR%S_3bSDR%S_tPSDR%Sa[,?-~~ !Se>{([%%SglKWqR%Sk4%6%v%SmPH;j@%SokAfx;RSs**GG7%Su?;%))RSwPMAHVRSy\4-jhRT-X>dEI% !T-jTjt_RT-{%W];RT/0ys?~~T/@wo';RT/OO.Y_RT/]~xx;RT/l>T3I%T/z&vem%T1+i{8m% #% [ 59] y_l2.caps !SPYdEI%%SPXX?~~~SPU;Iv%%SPOd))R%SPH,k_R%SP>I]d%%SP2gs?~~SP%?fc~~SNp+7v%%SN_qE(Z~~S>?vQVR%S7%%R1Ib2zR%REHk2zR%RWJ^o;R%S/,uF@%% !S1f'_zR%S50R~.%%S7P\`qR%S9o5od%%S=%\u.%%S?2Iv%%%SA=v=@%%SC>o?VR%SE=q%MR% #% [ 59] y_l3.amp !Q%%%%%%%P^&.\U'3Q0d_]1FiQ6rTB>v5Q>M'(GWIQFb5/RahQPab7X'dQ\Ml5e%fQhlmpouoQv?AJJ4@ !R.^BrVXmR024|X8RF(M1[f\RFd\fSm%RF/{dyAuRBDm7xaXR<]I@8L[ !R6?9M}yoR.]1HCR\-o1vriR\BBkL?VR\%yFLRYRZ?Y\^9@RXFSSYUzRVC~Ty&'RN`N,r&Q !RJH8X<4wRF(0L&XwR@sfaUGWR>?G9+Bf2wR2J?]8Cc #% [ 59] y_l3.phase !S._mz)R%RV;zQ~~~QX*qQ~~~RIREI%%%RqJu-~~~S/bpRu~~S3E?b_R%S5q'OhR%S93j\DR%S;CLJl~~ !S=Hr(Z~~S?FkC2R%SA@--~~~SC7)MzR%SE.%mu~~SG'+dMR%SG~i0c~~SK*N7%T-{vq1[%T/1r|p[%T/A|9Sm%T/PLYk_RT/_'t7%%T/mIQ2)RT/{'a3qRT1,s.57% #% [ 59] y_l3.caps !SPYdEI%%SPXX?~~~SPU;Iv%%SPOd))R%SPH,k_R%SP>I]d%%SP2gs?~~SP%?fc~~SNp+7v%%SN_qE(Z~~S>?vQVR%S7%%R1Ib2zR%REHk2zR%RWJ^o;R%S/,uF@%% !S1f'_zR%S50R~.%%S7P\`qR%S9o5od%%S=%\u.%%S?2Iv%%%SA=v=@%%SC>o?VR%SE=q%MR% #% [ 59] y_m1.amp !Q%%%%%%%QZ^=6rbxR0@;Q1fDR4u3Wo+@R:HZ=rGGR>jt<_pkRB~g7G9'RF{~VJdvRJ^{Fa)BRL{?e=c_ !RNo{]0WrRP:)t6pKRP6^/]7MRNja[j&,RN(2GORF%7qnp;RD/R7ox< !R@Tq2e:GRFE.[g8YRNA3y6VRRVWeboFqR^'DSa4`R`~\bSa`Rb&1[G~>R^(C>~q:RVbESO{URNX=q,g[ !RFYLOf9tR@QzV0*QR>HZKQ?&R@I;b6~~RDY^rPFHRJ0,x7,dRNS`)i|qRR^V1aWQRVI:{i+qRXtVnS,7 !R^NM^l-6R`v[Ps]XRb_3hgS9RbsdH)uIRbYOhy%1R`j=UvlyR^Y_%dU>R\<~+P>?RXy;WhZ.RPYUW8{8 !RL%\'`Y%RFKNFX{)RB/&+VAIR>Lja~O)R:S7m;G{R8EkLb-[R6.:kqlMR42W%vhmR47j@J'~ #% [ 59] y_m1.phase !R4zi,_R%R?}N,_R%Rik_Q~~~S/L}@ADRS3?D:.MRS7&wIiqRS9]N)Iv%S=.q8u.%S?O*FX@%SAdCgVzR !SCo>R-RMSEp[1HF@SGi0<^*ISIY\zEqRSKBWj7v%SK~57mv%SMX/wy2RSO)pcvv%SOLbQB;RSOeg_rI% !SOs;_RT1-VCJm%T1;BF'd% #% [ 59] y_m1.caps !RF/a;zR%RD}[))R%RDYSDQ~~RBwrphEqR%RqAl~~S7&JXhR% !S7j-F?~~S9Tv9;R%S;?~ZVR%S=*L_)R%S=mh^2R%S?UbcVR%SA;w`qR%SAzF;zR%SC\hzR%%SE<~NH~~ !SGk=t_R%SK5pRu~~SMVt&l~~SOx[QVR%SS@cjhR%SU_MR45}shR%R6O^/=r9R6v*)hS]R6NW^MH>R4;?SJ}7 !R0I7m,FHQd;5FDMzQ:QEu}rzQXuUjXR9R02r^s@%R4\Ii{CgR8qz16VRR>EL>*_R:KkRr'lR8BN%[,vR60D5HecR2{~Fk)=R2KYU7Lc #% [ 59] y_m2.phase !S2G,shR%RxeDQ~~~RNT[u~~~PfI%%%%%RIgJm%%%RmO/l~~~S/=?ZVR%S1g7EH~~S5)NiI%%S79%]d%% !S9=_~VR%S;9A4@%%S=-eu.%%S=vCFhR%S?`1.MR%SAEZnm%%SC&T?VR%SC\S,6~~SE2]CZ~~SE[BWqR% !SG2)R%%%SG9dIMR%S?vqzR%%S9R@z)R%S7Ta3qR%S7@`U2R%S7@CFhR%S7L[mv%%S7eA_R%%%SP3'G_R%SP%U[%%%SNpA,6~~SN_RIMR% !SNM6rqR%SN9OhR%%SL~M~VR%SLhqS\l~~S>@++hR%So?VR%SE=q%MR% #% [ 59] y_m3.amp !Q%%%%%%%Q4GQr+SMQBu@+p=qQRe/h3*9Qd.Qih.EQvE)`l2rR0*rV]5'R27'nBOhR4Hy~/8ER6Z0zi0@ !R8c%b>;NR:Y{v-CsR<7ea?{ERP*TDR6li6-S]+Q:U-_}`AQX+Wb@H_R0+@>:J^R4SvBjLWR8h*'G_RR !RJ5/CoxgRDy;6H[IR@opnmYrR>=w/0K5R:KT'hwRR8Bb3H)DR60=N2&OR2|56uFzR2L]~?C* #% [ 59] y_m3.phase !S2@3Y7%%Rvy>_Q~~RLedv%%%Q/DzQ~~~RK`M)R%%RoN8l~~~S/Fft6~~S1ptSDR%S531wDR%S7BPWH~~ !S9FfOhR%S;Ar7%T-Wrl^[% !T-jb]OhRT-{LxWqRT/1c@9;RT/B&[57%T/Pb->7%T/_LBd%%T/msjT;RT/{U{H~~T1-Skk_R #% [ 59] y_m3.caps !SPY}shR%SPXqnDR%SPUTx;R%SPO}WI%%SPHB_zR%SP>_R%%%SP3'G_R%SP%U[%%%SNpA,6~~SN_RIMR% !SNM6rqR%SN9OhR%%SL~M~VR%SLhqS\l~~S>@++hR%So?VR%SE=q%MR% #% [ 59] y_m4.amp !Q%%%%%%%QXK\ew6nR0*Xig;-R4TyBRf)R8xKXq4(R>7~9]P3RBD+hau@RF>Bbm.fRH|@(1M[RLE]GP@( !RNK/x/SMRP2QABHNRPVjb%Qq.irR8brlz`~R4:5/\2bR2;uyyFhR4Ra'L@bR8S@[Qe,R<&K)Y,tR<]G:s-k !RR|v= !RF]yti8mRLH]~+ypRPS.%X'dRR}Q)bLsRTpbMD&hRV.TSR_7RTvl2rL>RTKG(-^[RRg~P9QvRLb_yGY9 !RHY*,oUKRDE,gSdvR@]:R8|`/f@0R6uxI`cFR4oIiTtnR2`0`yLKR0kM?7em #% [ 59] y_m4.phase !RBQ.%%%%R3C2R%%%R[z)R%%%S-f_zR%%S1U*H~~~S56vu~~~S7f[v%%%S;/DR%%%S=DAl~~~S?LBc~~~ !SAHZVR%%SC7v%%%%SCwP_R%%SESDQ~~~SG'x;R%%SGO7u~~~SGpJl~~~SI2j@%%%SIH^Z~~~SIXL2R%% !SI\u-~~~SIZ)zR%%SIZNI%%%SIMvMQ~~SK+H-~~~SM~B;R%%SQu^Z~~~SS{8m%%%SU]WqR%%SW::[%%% !SWt{qR%%SYb;)R%%S[em%%%%S_5K;R%%Sc,C2R%%Sg%ahQ~~SiQB;R%%SkVR%%%%SmB3I%%%Smy:Z~~~ !Sq.UZ~~~Sq}SDR%%SsaP7%%%Su;Am%%%SunhzQ~~SwK';Q~~Sy(wDQ~~Sy`I%%%%S{::Z~~~S}yBd%%% !T-\>oc~~T-fMf;R%T-q'+@%%T-{adMR%T/+cP&m%T/6&Y{qRT/@V>{qRT/L69C[%T/V[em%% #% [ 59] y_m4.caps !T0RL>_R%T0R{a@%%T0TJu.%%T0Vj@%%%T0YqAm%%T0]QF@%%T0aNY6~~T0eVf;R%T0iWY7%%T0mBWqR% !T0p_MzR%T0sWuVR%T0uw@MR%T0wj|hR%T0y+\DR%T0yx3I%%T0zB[u~~T0z;Al~~T0ym9;R%T0xzb6~~ !T0t)^2R%T0o+?~~~T0nUwDR%T0nN];R%T0mn@MR%T0m,cVR%T0lHfd%%T0koc~~~T0kK;Q~~T0k1g2R% !T0jurqR%T0jU*H~~T0j%ahR%T0i+pZ~~T0ggVzR%T0est_R%T0cX/m%%T0`uVQ~~T0]unm%%T0Zk2zR% !T0R{a@%%T0L(FhR%T0FF+hR%T0AKG_R%T0,>0Sm%RB4v)-z9RF+=iFw>RHdv0l:iRL)jTCSe !RN+*Dd~RRNh}WQ&eRP1)3AVBRP;5gtSERP441G2zRNwh%y:[RNSD]q3]RL{o(amERL7wwwc>RJ_Q~~Sm@UZ~~~Smx';Q~~ !Sq.UZ~~~Sq~fd%%%Ssc.%%%%Su?.%%%S}||hR%% !T-\fx;R%T-fg:[%%T-qGshR%T-|(Ru~~T/+yDAm%T/6K(NqRT/@omADRT/LL-^[%T/Vu:2R% #% [ 59] y_m5.caps !T0RL>_R%T0R{a@%%T0TJu.%%T0Vj@%%%T0YqAm%%T0]QF@%%T0aNY6~~T0eVf;R%T0iWY7%%T0mBWqR% !T0p_MzR%T0sWuVR%T0uw@MR%T0wj|hR%T0y+\DR%T0yx3I%%T0zB[u~~T0z;Al~~T0ym9;R%T0xzb6~~ !T0t)^2R%T0o+?~~~T0nUwDR%T0nN];R%T0mn@MR%T0m,cVR%T0lHfd%%T0koc~~~T0kK;Q~~T0k1g2R% !T0jurqR%T0jU*H~~T0j%ahR%T0i+pZ~~T0ggVzR%T0est_R%T0cX/m%%T0`uVQ~~T0]unm%%T0Zk2zR% !T0R{a@%%T0L(FhR%T0FF+hR%T0AKG_R%T0[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] tb_k.amp !Q%%%%%%%R0?Bhur_R:?.Jg@2RBfD[H^[RJG*Q^psRP,L8.O0RRj*ULg{RTHuvpugRT'nn+9TRPi2m_Lg !RLgQ2*ZJRH1`;.(;RB6KWdG'R<5&py?NR6T8EfmfR2xtSwhGR4,Z=i=]{H7W9 !RFu2j{k'RLe'mtG7RTSO&:k7RZppZ9&MR`{7h,Y'Rh&TgXQ&Rn(z7OT;RrtJ'Ju.RxAXODMzR|C:hFyw !R~ol/3|qS.Y3[BfLS.\QiQH\S.YMV0QrR~m162)RR|,o]mADRvs+7+^kRr8T}chfRlL+,[))Rfbgt+}W !RZV/4PI9RPqPqPG7RJ=Nhz4qRFB|(TE9RFm8)[emRL)aziuWRPYA'yV2RT[?z0RZRX4_9?VRR^0S^ga3 !R\e2WFc:RZQ3;=MuRVdAI75[RRd9QsXGRNx2}M.,RJc`KN\MRH/?1}a0RD*/9fezR>`VD1|U #% [ 59] tb_k.phase !S1:cRMR%S5Mo|?~~S9Z?%u~~S=`&}7%%SA^l%u~~SEVRmv%%SIG&m%%%SM/H2)R%SOi\q)R%SS@--~~~ !SUe1NqR%SW{xl-~~SY~i0c~~S[azf;R%S[jn}7%%S['{,_R%SWuTt6~~SW@em%%%SWBv]d%%SWbN,_R% !S[/c>6~~S[v(_)R%S_K86~~Sgt3iI%%Sk*pc-~~SmBqEqR%So`xl.%% !Ss'bk_R%SuIB|@%%Swh@Y_R%S{)~zzR%S}?yg2R%T-VH/\m%T-`ESTd%T-ia1Jm%T-r9c6.%T-yzlB;R !T//g;Iv%T/:}.-.%T/AwqrI%T/D]dIMRT/F5JWU2T/J~(nL[T/S,*:o;T/\XF[12T/fNtQfdT1,F~jhR !T1BM38m%T1XV:.MRT1mg?rqRT3(P=+hRT3=:Bc~~T3PTLwDRT3d>.v%%T3wTY*qRT5.gdADR #% [ 59] tb_k.caps !S\VIu~~~S\UWDzR%S\R|+hR%S\N^*I%%S\H^[%%%S\@z)Q~~S\7]d%%%S\,_vMR%SZz-zzR%SZk{qR%% !SZ\?:2R%SZK,.v%%SZ8F/l~~SX~+|hR%SXh;Al~~SXPlrqR%SX7_Am%%SVvahR%%SVYi8l~~SV:\8DR% !SR~Gwm%%SPuc)zR%SPL-^[%%SP2)vMR%SNiot6~~SN>4X?~~SLd}?.%%SL+@mv%%SJFg>_R%SH^/rf|@%%S>,~>6~~SWH~~S2f{Q-~~S0>lNI%%RrG;)Q~~RT_W`@v%%S1[mu~~S>NB/DR% !S@U_)Q~~SBJ8DQ~~SD(Z6.%%SD]:c-~~SF<*];R%SFw=\DR%SHZhf;R%SJ@?fd%%SL'h)R%%SLjuNI%% !SNUR--~~SPAP_R%%SR.[=@%%SRvj`H~~STep:[%%SVUa+hR%SXF9Sl~~SZ7H^Z~~S\)0l.%%S\uA(2R% !Sb'WqR%%Sf5pwDR%SjE\q)R%SnVTp2R%SrhF`H~~SvzvMR%%S|4(wDR%T.UPO@%%T.iMMzR%T0K]x;R% !T0smiqR%T2B.UZ~~T2jIADR%T48gg2R%T4a,2zR%T6/N8m%%T6Wsxc~~T8&;~VR%T8NadMR% #% [ 59] tb.lambda !S0]jt_R%S0^@=?~~S0_iQ-~~S0b9p2R%S0e^&DR%S0i|'d%%S0o6:2R%S0u<}_R%S0|2^2R%S2)iuVR% !S22+/l~~S2;&`qR%S2DU:[%%S2NY6~~~S2Y.u~~~S2d,cVR%S2oNy[%%S2{;^2R%S4-T+@%%S4:Au.%% !S4f&q)R%S4X,{qR%S4H)V)R%S4GPSDR%S4OdMR%%S4]^Bd%%S4oY*qR%S6*b.v%%S6B?2)R%S6[|+hR% !S6wGg[%%S8:@=?~~S8XSL[%%S8wo';R%S:>1g2R%S:_D^2R%S<'Bl.%%S734hR% !S@9)b7%%SB=Y.v%%SDD;f;R%SFLhEqR%SHVkSDR%SJb2zQ~~SLnd-.%%SN|@%%%%SR0l.%%%SX`~rqR% !S^*F|hR%SbOr];R%Sfw7z)R%SlF1Jm%%SppPO?~~SvB,SDR%Sznn\l~~T.T{,_R%T.k^>_R% #% [ 59] tb_l1.amp !Q%%%%%%%Qf;a'BohR2GCJ,PSR8I]o`iIR>:M4G):RBqHlD/4RH7E1aP7RL@T[cjhRP2AojA]RRjS[vmv !RV:)?Q:3RXT4bO]3RZU~\/xDR\(>XXdNRZf:fn[~RXfzK:>_RVP[jF3)RTCl;j@%RRJ|xRRERPdB5?Yh !RN@TQ0KdRR{G[\,7RZ^X]LVVR`+;W.^.RbWz{V(cRdU&mb{rRf4mNmF8Rfaqq,UGRh.WYQ[jRhZ/SB+@ !Rj6'\B^CRjqpK,t3RlKPbVo|Rla1*KwMRlQ&zBy*RjknM%MRRh_Xz`kKRf0GR^b;Dvy; !RVQJ};gORNzsGi&YRJ.p8uV.RFTk43qRRFk84C_*RJS;0FPTRN`E{F>lRRS7^76oRT|aK6cdRZhdMA,q !RZL,h68URXE+.&pPRThtgH)2RPq*-_u_RN8Fj1L]RJ._dF9ERFYM,D*SRB^cu44sR>FEbc^u #% [ 59] tb_l1.phase !R]Yod% !T/-9}wm%T/8S/q)RT/?Yv57%T/CA|H.%T/F:)5_RT/KPLNqRT/SD`Y7%T/\T}SDRT/f6b;)RT1+MTKd% !T1AH'/DRT1WMnhzRT1lK7))RT3'@W];RT3<'dmv%T3OA-JDRT3c2k.v%T3v7Q{){}I^RTxP%>ARBYmnD:aRH)_B*BTRL:om6^(RP'qw*4hRVQy~=|{ !RV_pq't7RV(0+'+1RRh)]`iIRP-7ec3=RLb,ef3fRHfGei7%%%RY+|hR%%R{Yod%%%S/zq~VR%S3FlVR%%S5Zw@MR%S7VjdMR%S9'v]d%% !S5{tC2R%RSY[MQ~~Q2p[%%%%R<^g2R%%RNQF@%%%RVp[%%%%RV+hR%%%RLEeDQ~~R_R !Sau=29d%Scs-B_zRSeA]oYO@Se;9c~~~Sc~jw,7%Se.'*uVRSe]47v%%SgGnP_R%Si;U:[%%So)X+hR% !Ss%d57%%Sw)u^[%%Sy~\4@%%S}v?B;R%T-bU\\m%T-r]jt_RT/(u[iqRT/8oV^2RT/HM*eDR #% [ 59] tb_l2.caps !SN=B';R%SN<+'d%%SN8j=3qR%S>H4+hR%S<}+;zR%SBh)R%S9<>*qR% !S=87z)R%SA'G_Q~~SC`/P_R%SG>Ay2R%SIna;zR%SM7y:[%%SOZeP_R%SQxZb_R%SU2VrH~~ #% [ 59] tb_l3.amp !Q%%%%%%%Q2.fVlfdQ1Cr|qQPtA8M\0QXTZ<&4@Q^%6W1{%Q^w,E1p*Q\_WN=Y/QT8&1dem !QBQDk|4`Q<|>vY_RQrNAG3/,R4SM|xd%R:C*yIRER<=saTS8i|DrRBy/AAs,RF~-\FTshR%S9g%U[%% !S9-U>_R%Ri[MR%%%Qsk7%%%%R4]OhR%%RFjL2R%%RPIY_Q~~RN{Q.%%%RF[MR%%%R8DZ-~~~PeI%%%%% !Ry5shR%%S3HXxd%%S7oE8l~~S;d_Al~~S?@Y_Q~~SAe@qzR%SE'03H~~SG>>?.%%SITdmu~~SKkz9d%% !SO)KSl~~SQ>pwDR%SSOEj=3qR%S>H4+hR%S<}+;zR%SBh)R%S9<>*qR% !S=87z)R%SA'G_Q~~SC`/P_R%SG>Ay2R%SIna;zR%SM7y:[%%SOZeP_R%SQxZb_R%SU2VrH~~ #% [ 59] tb_m1.amp !Q%%%%%%%QXJS~>bhR0*7~o[vR4T.BDu_R8w;3hw8Qcf-BRBGvp\8DRFLCGMx+RJDIQIG'RN3l.j}W !RR-@wy{IRVtSLmzrRfZ&n&0;S0^(CB0|RnD-}>MbR^@?FP(KRX\rMB>hRV:vWQYhRT?\?)h>RRV5KG3i !RNnY,AMJRTRgK{|qRZuMgOywR^|}%_/YRb.zC&DRRbbn1PaTRbrM'u`9Rbq.J*vERbk5vY_RRbyVrP?. !RdE-evx'Rd~\2mQ{Rf^J(O`IRh)Li/_:Rh*),FlWRf[>2HxTRdb;uuxTRbM1dYjLR`'7d4OHR\Sa`vxL !RTriaX*1RNbG.lttRJ)y1:=qRFV?WR+/RFh(u50TRJD+-O)BRNG[0:gpRR5_W^nxRT\BELjeRZC5=;*A !RZ(eU:V]RX%qD8b2RTNg7Lc.RPY([jf[RL~n`O3jRHxDoct+RFJW=lE%RBS@&^}pR>><~>_o #% [ 59] tb_m1.phase !RU^`n>K;RSQ*I>SDRSS6+BKd%SUaxd%T/>JxC[%T/BLRv%%T/EhaH.%T/K5NuVRT/S({I%%T/\3nJL[%%S=,&m%%%S=t^>_R%S?c\XhR%SAR6JDR%SC?pJl~~SE,.QVR%SEpVV)R%SGX|D)R%SI?3a@%% !SK{o+@%%SORXp[%%SQ|j/l~~SUL+7v%%SWvdY_R%S[F\DR%%S]kdEH~~Sa.Q2)R%ScBBG_R%Sif&q)R% !Smw`M)R%SqvRJ\pAZr)RJVmI7]dRJ7SPmDZRH[mfsZBRFr(_vd-wR:^Mi|(LR:){Bn9FR:q[cA=?R>nnm-GSRD/Fnp]9RH4,4hW.RJuOUl%vRRZ=k6Nu !RT'=Yt`tRRb=4B+]RPd(&q?gRN?KjG^,RL+(ldZNRH>rlNddRF-iK)O\RBjS&c>7R@1t@Ppe #% [ 59] tb_m2.phase !Rx%EH~~~RL?^Z~~~Q5%v%%%%RK>&l~~~Rm++hQ~~S/.ahQ~~S1J3uVR%S3Q[iqR%S5?nl~~~S5dlb_R% !S5T.z)R%S3P2V)R%S/I_Am%%QC3qQ~~~S.eq)R%%S0V%))R%S0LfC[%%S.~VQ~~~R|]+@%%%Rlxx;R%% !PvR%%%%%S/a@%%%%S7O(Rv%%S;h)R%%%S?P?vv%%SAuVR%%%SE25;)R%SGB47v%%SIPrU2R%SKaC:Z~~ !SMs5shR%SQ)z-VR%SS60Kc~~SU'7MR%Sg(K[v%%Sgv^.MR%SmfjP6~~ !Sqd79;R%Suj]3I%%Sygc.%%%S}at;)R%T-`e{4hRT-q(uB;RT/'\*Y7%T/7l|3qRT/G_\y2R #% [ 59] tb_m2.caps !SN@PC2R%SN?5cVR%SN;G*qR%SN5&m%%%SN,66.%%SL{)nDR%SLm[ahR%SL^&DR%%SLLLJm%%SL8wTc~~ !SJ}_vMR%SJfc6.%%SJN5{qR%SJ49Sm%%SHrqR%%%SHV4pZ~~SH87U[%%SFr};)R%SFRN@v%%SF0[-.%% !SBs7--~~S@t.-.%%S@K/DR%%S@05K;R%S>k_-VR%S>IK+@%%S<~:{I%%S?.%%%S9EY6~~SIna;zR%SM7y:[%%SOZi0d%%SQxZb_R%SU2VrH~~ #% [ 59] tb_m3.amp !Q%%%%%%%Q6uOQ=9TQHZCGdS}QXx.GA({QhhX[KHNQx'3m=-kR.iZiBx;R0EAI^5hR0ut-LJIR2K{yCaP !R46n00WrR83HAOSMRF[1,qT'Rtz?B2'+RXJq2bbhRF~nFRl>R@;o^t^?R:r(*@;bR6zunN&YR4=^6*'l !Q`9J4YSDQNz,Y*,;Qv6.{ue,R2=(=ye0R6\wHJOLR:e=:PwIR>Rw8X5OR@vLX&fTRBx~x)S]RDbRm8ii !RF?.|@emRqqR8Y>Ki|^R:H'~IvIR>B[7&zcRBX__QplRFXyOhWpRJ=0\][vRP|h|xjW !RRN9z)]aRR3eUPe4RP=,^m=7R@&QqXbK #% [ 59] tb_m3.phase !Rlo7MQ~~RB-)zR%%R1.57%%%RUe`qQ~~RwcB;Q~~S/c3a?~~S3&iDzR%S50Z>7%%S5{iI%%%S7K.z)R% !S7@go;R%S5AHzzR%S13:o;R%R3=+hQ~~Rzr];R%%S07`y[%%S05=t_R%S.mJ`qR%RzMj@%%%Rl\}6~~~ !R.i,_Q~~S/x5K;R%S993H~~~S=Q>6~~~SA4@IMR%SCTunl~~SEgx3I%%SGuEQ-~~SK(HF?~~SM7j`I%% !SOHub_R%SQX{yZ~~SSdJ`qR%SUih~VR%SWgLJl~~SY_MV)R%S[Q5cVR%S]>a/m%%S_',wm%%S_dThMzR !Sc/X&u.%Se)>{qR%SeLju`];Se@lT+@%Se&>sD)RSe,jlzzRSeYx[u~~SgD)R%%%Si8d-.%%So'`iH~~ !Sq~:{H~~Sw+e`qR%S{'jP7%%S}{b.u~~T-cK,.v%T-s_]h)RT/*;D^2RT/:[79;RT/JFxc~~ #% [ 59] tb_m3.caps !SN@PC2R%SN?5cVR%SN;G*qR%SN5&m%%%SN,66.%%SL{)nDR%SLm[ahR%SL^&DR%%SLLLJm%%SL8wTc~~ !SJ}_vMR%SJfc6.%%SJN5{qR%SJ49Sm%%SHrqR%%%SHV4pZ~~SH87U[%%SFr};)R%SFRN@v%%SF0[-.%% !SBs7--~~S@t.-.%%S@K/DR%%S@05K;R%S>k_-VR%S>IK+@%%S<~:{I%%S?.%%%S9EY6~~SIna;zR%SM7y:[%%SOZi0d%%SQxZb_R%SU2VrH~~ #% [ 59] tb_m4.amp !Q%%%%%%%QLs9z*83Qt6[I3V?R0S)?Y;rR0z,3^AgR8RyRaLmR@6Xcge0RF0U33x2RJtUgxS07G;RB3S.Zg;Jd4RxIeViuVRpUk=~r) !R\EjXC_*RVSeeZB`RRjDc7'pRNRwb]t7RJ2g90A}RFFb^7EIRD;f;bI9RBmb=t_RRBdgFu}lRBet4uNI !RB[H?c1;RBG&{HlkRB0_4%S4R@{%k@emR@xc)6d=R@vivnzjR@nx5hIvR@Wl0@irR@1e69R5R>Xj?;xt !R:mAInzjR8)z*WQwR4Ta(5g[R2he9ljQd|;KRD9MR0`iRH@h%WT1RPZ)'mr6 !RR@>alu0RR:T4nXiRPHP?ANlRN+L9;8qRJx0T|~cRH4WH4y'RD|CjlmORBu2fv}kR@dOKE*9 #% [ 59] tb_m4.phase !S6Z5cVR%S2XUs?~~S02f;Q~~S0+L2Q~~S82/}6~~SDozb7%%SH?nm%%%SFc.IMR%SDK5&l~~S@oj+hR% !SG6~~~SA,_Q~~~S=\\m%%%S;qEqR%%S;e&0;R%S;uk2zR%S=<*8m%%S?gYk_R% !SAnvem%%SE,hnDR%SGB7qzR%SIV_j@%%SKr~NI%%SO-P&l~~SQCo;Q~~SSYLs?~~SUt_R%%% #% [ 59] tb_m4.caps !T0-}k_R%T0.Kt6~~T0/bshR%T01lJDR%T04a7u~~T086B;R%T0<>O?~~T0@k*qR%T0ESTc~~T0J;~VR% !T0Not7%%T0S({H~~T0Vj@%%%T0Y|;zR%T0\WU2R%T0^V1[%%T0_tK;R%T0`_b6~~T0`qvMR%T0`Th)R% !T0\:FhR%T0Vc%u~~T0Ulnm%%T0UDf;R%T0SqrI%%T0Qvv%%%T0Of+@%%T0MMzQ~~T0K5od%%T0I(_)R% !T0F|hQ~~T0E+L2R%T0C4/l~~T0A7%%Sb_)Q~~~ #% [ 59] tb_m5.amp !Q%%%%%%%QN@'s%c8QvMtL6lF !R:ctue_:R6|X%i([R4Orn&TdR2g9}Z^[R4c>h]+VR:.t+7vFR>scFo0cRDFb6;xtRHQOh6`]RPmdGgl1 !RRV(XsQO?~~T0@k*qR%T0ESTc~~T0J;~VR% !T0Not7%%T0S({H~~T0Vj@%%%T0Y|;zR%T0\WU2R%T0^V1[%%T0_tK;R%T0`_b6~~T0`qvMR%T0`Th)R% !T0\:FhR%T0Vc%u~~T0Ulnm%%T0UDf;R%T0SqrI%%T0Qvv%%%T0Of+@%%T0MMzQ~~T0K5od%%T0I(_)R% !T0F|hQ~~T0E+L2R%T0C4/l~~T0A7%%Sb_)Q~~~ ifeffit-1.2.11d/src/fefftab/28.dat0000755000175000017500000002206410771740460015474 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] ni.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] ni_k.amp !Q%%%%%%%Q>v{Ht*qQX`6aQ;jQr/(lQ=mR0&A?oF(R25w>)eMR4AKa-?&R6I~h'W)R8OY:=SMR:Pm7O/m !RCH9O6aqRD*2wMu_RD*[qN'lRBo.sQ%vRBA\b;;f !RB3^Cpl&R@VyY<_R%S{84dMR%Sw}Pwl~~SuMzQ~~~SuCYG7%%SuyOJTd%SwkYNuVRSybi1Rv% !S{ZQ/8DRS}Ou1:[%T-Tyc~6.T-\>[c%RT-c>^2<1T-j,ATd%T-pY{B/ET-vuCYk_T-}-*STdT/)/8a`I !T/7x~fd%T/FP_-VRT/TLe0;RT/aX*0d%T/mtR12RT/ym9;R%T1+ptSDRT17z%qzRT1CgL&DRT1e+=3qR !T1y`&}7%T33-<4hRT3Fa}2zRT3Vg8}7%T3i(HjhRT3xegg2RT5-y4/m%T5A+Kh)RT5Hnedv% #% [ 59] ni_k.caps !SB,|`H~~SB+p[%%%SB(HjhR%S@|_5_R%S@ta/l~~S@jJy2R%S@]}wl~~S@OBKc~~S@>ShzR%S@+WuVR% !S>pCwDR%S>Xy.MR%S>?4t_R%S<}+;zR%S<^M^2R%S<=:g2R%S:s6b_R%S:L2vMR%S8{sT;R%S8N'G_R% !S4ecb_R%S4H;j@%%S4%s3qR%S2StcVR%S0{koc~~S0EDzR%%S.fQF?~~RvlPod%%Rj=Sq)R%R\jY.u~~ !RPD6rqR%RD(~^[%%R6tH%u~~Q^F|D)R%Qazo|?~~R5yBd%%%RAfLwDR%RMON}_R%RY5r0d%%Rcu2rH~~ !S-[W8m%%S/~JhzR%S3ABOhR%S5UTSl~~S7`n`qR%S9f/DR%%S;iGk_R%S=l)V)R%S?lq^2R%SET>C2R% !SI27=@%%SKctshR%SO/@))R%SQKia@%%SSdCFhR%SUtTWqR%SW~q9d%%S[-*DzR%S]/Su-~~ #% [ 59] ni.rep !S4J+lVR%S4K;Q~~~S4Nj\DR%S4T_1[%%S4\kk_R%S4g+\DR%S4sR]d%%S6'{uVR%S68BOhR%S6JVf;R% !S6^WDzR%S6t9Kd%%S81ZZVR%S8JYWH~~S8e9|?~~S:'NU2R%S:EH6.%%S:e&y2R%S<,OdMR%Sja\DR%S@E[]c~~S@}C2R%%SB^hEqR%SDBp2R%%SF)@~-~~SFkqf;R%SHV<0c~~SJB3I%%%SL/P;)R% !SLwy2Q~~SNgI56~~SPWehzR%SRHmY_R%ST:Ug2R%SV,pwDR%SVy]p2R%SXlo7MR%SZ`K';R%S\TD%MR% !S`d>SDR%SduW@u~~Sj-mY_R%Sn@o/DR%SrTMAm%%SvhS\m%%Sz|zf;R%T.Sra?~~T.gzZ-~~T0JFxd%% !T0radMR%T2A)j?~~T2iKp2R%T47qV)R%T4`=;zR%T6.b{qR%T6W2Al~~T8%[ahR%T8N+'c~~ #% [ 59] ni.lambda !T4)^2Q~~T4*j7v%%T4.%mv%%T43+L2R%T49H)zR%T4@ADR%%T4F{0c~~T4LK7MR%T4Oh-VR%T4P2V)R% !T4M't7%%T4F*yZ~~T4;C&DR%T4-6vu~~T2vOT;R%T2d3}_R%T2QJDQ~~T2?ZVR%%T20,SDR%T0~?nm%% !SfD-zzR%S\7:2vMR%T@_[el~~TD0%9;R%TF_-VR%%TJ8bO?~~TLpWiI%%TPRXp[%%TT8ZjhR%TV|KCZ~~ #% [ 59] ni_l1.amp !Q%%%%%%%QHlf}zeMQl3t3}n,R04s:._fR2g3uhfsCAT?W !R@lk,AMJRB^-?1xXRDFQOnXiRD}KT85/RFN6x[-.RFh.k@emRFqG;L0PRFc~9h)RRF@L3o6:RD[~:i4h !RB`6n.@VR@bwfS+HR:oX8q`5R2x8.-fsQ~Kl0jA]R4(m=ceuR<_t+|olRF@Zi%irRNVy_^DfRV1yS>~> !R\2G:3@vR`Vl5QB>FHRdTLRQw@R`.7KZvCRZK=WLUyRTbPO4tMRP=RLq-eRL?zp1bFRBAa)MA^ !RcR4C\-|89R2D1lG1nR0SoYoS|R.hXHdr3Qtc>/:vsQZ'G=3j8 #% [ 59] ni_l1.phase !S7]C6VR%S;pDf;R%S?|Ea@%%SE'MAm%%SI%X'd%%SKvm--~~SOg'WqR%SSP;MzR%SW2~b_R%SgP_-VR%Si[y:[%%Ska+D)R%Sm_T';R%SoW%iqR%SqG0/DR% !SuuW@u~~SyZX/l~~S{s~F@%%S}>(Jl~~Sw|b&m%%SsP]t6~~Ss]=/m%%SuN,3iI%SwM%0C[%SyL{I%%% !S{JP|`I%S}Cc]G_RT-T'+-jhT-[VV.|,T-bg:J9|T-i^IGK7T-|yXft7T/),6HB< !T/8-Xxd%T/Fc:2R%T/TcA(2RT/ao&q)RT/n4h-VRT/z4'c~~T1,:|7v%T18Gg[%%T1D53iI%T1eZ_nDR !T1z5(o;RT33\>&m%T3G7EmMRT3W8ZjhRT3iP0Sm%T3y3p>_RT5.C\\m%T5AST?VRT5I@N@v% #% [ 59] ni_l1.caps !SB*~)zR%SB)nDR%%SB&FT;R%S@zY?.%%S@rWY7%%S@h=hR%%S@[m--~~S@M-zzR%S@<;^2R%S@)8P_R% !S>mzrH~~S>VNiI%%S><`uVR%SC2R% !SI23];R%SKcq9c~~SO/@))R%SQKf';R%SSd?fd%%SUtTWqR%SW~q9d%%S[-*DzR%S]/Su-~~ #% [ 59] ni_l2.amp !Q%%%%%%%Q8LDp404QHhMiNcQQT~3|:z.Q\S*&d6YQ^'ZA,3EQXYUuxk1QNRona*-Q@Oh/Cv*Q2cO)p){ !Q:+IILjHQN7GXwbtQd?iBWM*Qz7oEzIvR0;HZJ.^R23A0MEMR2wl\]P|R4PiffKdR4q6R))RR4{P'q(c !R6yM+{;^R:3xLAIER8nYD,C2R6Y/?>T3R4Hx|d6{W4iRDABZAq* !RHm=D6<5RN((eLb?RR%BE2[ARTgR)0K@RX;G:twmRZ]8SL=qR\oJc7=dR^q{/(VzR`iRzlX0RbL`Vm8M !Rdk`R`^0)WqCR^05~pekRZHq&8XVRVD(;P-cRR.cO>AFRN)d;i6rRJBfzV-tR@rj5I>f !R'P3b/R40~H6s~R22NEV]VR0A/;Ql)R._3OC`SQzpV>R?gQl}<4q.7 #% [ 59] ni_l2.phase !S=jKh)R%SA}I]c~~SG/Fxc~~SK4}{qR%SO4miqR%SS0Y*qR%SW+?ZVR%S[-8y2R%S_RNeDR%Si66-~~~ !Sw[1{I%%S}Y`@u~~T-^t.u~~T-lMVMzRT-xP/@MRT/)N=`I%T/3YT3I%T/5G6~~S\}Bh)R%S\ZrqR%%S\3?b_R%SZb0/DR%SZ4{yZ~~SX`l^Z~~ !SX2V)R%%SV^v12R%SV2H>6~~STa-jhR%ST7-vv%%SRhHb_R%SR@]?VR%SPs]3I%%SPM.iqR%SP&e@MR% !SLzEqQ~~SJsF+hR%SHnW0d%%SFony2R%SDy5gZ~~SD.dY_R%SB@;b6~~S@QO\DR%S>c*DzR%S:SqMzR% !S8;Zvv%%S6'(*H~~S2wqMzR%S0v(:Z~~S.vQ2)R%Rv(;%MR%RdPR12R%RT+wu.%%RDE~NI%% #% [ 59] ni_l3.amp !Q%%%%%%%Q8ILH[+uQHbgRx(eQTuxdz2;Q\H\5a&cQ\u<%/3vQXKRHb-yQNC:fmVrQ@>zn:5]Q2W'_MCN !Q:4u5vREQNE{&'UoQdOaJ0;RQzH21C@bR0=%so]TR24u_rEER2y@cH0'R4R3@dRER4rOU@=@R4|^2wvf !R6z[kqWaR:4lO7v%R8o:slO8R6YjKX&,R4IEhe(3R4,fYYRVR6,oM}Y'R:0c'd79R>`@9xg;RD<[S0_z !RHghSC>`RL{qJWk'RPxPNsEaRT`7,d^wRX3ZTW([RZTfQTt7R\fpB*j\R^i+B@iqR``<[wy{RbCl7}0T !Rd4zd-?RRbjx:tZ_R`ZNQ)~2R^,~Q^3^RZE[bQGfRVA*lyecRR,q2hmsRN)'XvWVRJB`:aHwR@r1jlc] !RaT;R !T/jo@EI%T/}D3];RT149ia@%T1GHXxd%T1^nP;)RT1z:Rv%%T3:H,k_RT3Nr~rqRT3^2}g[%T3j*\L[% !T3sol.%%T3|3W}_RT5)I`0d%T5/m79;RT55Ucvv%T5:h,C2RT5?M]h)RT5ClgRv%T5Gq[ADRT5K[rDzR !T5T^Bd%%T5]TIahRT5fEGG7%T5nh].z)RT9J1k_-VT9T@ut*rT9b:,hIvT9jZ6Yg[ #% [ 59] ni_l3.caps !S`q3];R%S`qPk_R%S`rJ\m%%S`swP_R%S`uyg2R%S`xFL2R%S`{)%MR%S`}lrqR%Sb&OL2R%Sb(k7%%% !Sb*P?.%%Sb+?6-~~Sb*mMR%%Sb(gVzR%S`~c)zR%S`x47u~~S`nqrI%%S`b4|hR%S`QcNI%%S`5G6~~S\}Bh)R%S\ZrqR%%S\3?b_R%SZb0/DR%SZ4{yZ~~SX`l^Z~~ !SX2V)R%%SV^v12R%SV2H>6~~STa-jhR%ST7-vv%%SRhHb_R%SR@]?VR%SPs]3I%%SPM.iqR%SP&e@MR% !SLzEqQ~~SJsF+hR%SHnW0d%%SFony2R%SDy5gZ~~SD.dY_R%SB@;b6~~S@QO\DR%S>c*DzR%S:SqMzR% !S8;Zvv%%S6'(*H~~S2wqMzR%S0v(:Z~~S.vQ2)R%Rv(;%MR%RdPR12R%RT+wu.%%RDE~NI%% #% [ 59] ni_m1.amp !Q%%%%%%%Q<4cH?C*QR?zu.PhQhC_dVIvQ~>B-YY'R0STbEF}R2ZU{ZQ_R4`3E]%^R6dBp{imR8f)Zvv% !R:d'R/F0R<[Wnh1[R>Ln*W&4R@3dbe}7R@i9o+UsRB7CMD=DRBMYst3iRBRS3Dd^RB@xlynMR@s7-R,d !RB%@hIgKR@UH0*uVRpR'RnS80Mf; !RnHv%,?.Rl&HM)(MRf}wOPh3%qR2?(p9D%R0Q*/+8KR.d|9VQiQtMLpc%\QZ&oQ8CX #% [ 59] ni_m1.phase !S7p\8DR%S=*/P_R%SA7REI%%SE>Bh)R%SI>2V)R%SM6:2R%%SQ&1NqR%SSgN(Z~~SWF.Y_R%SYv4H.%% !S]CuB;R%S_ceP_R%Sa|)Al~~Se3QRMR%Sg>CVzR%SiBz=hR%SkA[57%%Sm:CwDR%So,:_)R%SoqXt_R% !Su72EqR%Sw[sX@%%Sy]u%u~~SywP_R%%Sw~8Td%%Suj&P_R%Su^62)R%Sw5IVIv%Sw}~q9d%Sys;h=hR !S{irH6.%S}^xu%v%T-VJ)Pk`T-]en+{1T-di{tyoT-kTLwDRT-r(MS8ET-xD0&q*T-~RJYWIT/*Q+n4@ !T/99^Bd%T/G\dQVRT/UTia@%T/bUUBd%T/ncI12RT/zTp2R%T1,TqEqRT18^CRv%T1DOIem%T1eptwm% !T1z@dY_RT33`>shRT3G;%qzRT3WCufd%T3ibeXhRT3y>jL2RT5.G]OhRT5AHzzR%T5I.:*I% #% [ 59] ni_m1.caps !SB-4t_R%SB,(o;R%SB(WDzR%S@|qIu~~S@toc~~~S@j]3H~~S@^62)R%S@OX@%%%S@>m=?~~S@+miqR% !S>pa+hR%S>Y<?YC2R%S<}OdMR%S<^ufd%%S<=fOhR%S:sf+?~~S:Ley2R%S8|LVzR%S8NZJDR% !S4gAP_R%S4J6fc~~S4'c6.%%S2UNqR%%S0},O@%%S0FMEqR%S.gK7MR%RvsyRu~~RjCeTd%%R\of';R% !RPHMZ.%%RD,P.u~~R6w5SDR%Q^]F'd%%QaikK;R%R5x/DR%%RAe^&DR%RMN};)R%RY5\oc~~S5UTSl~~S7`n`qR%S9f/DR%%S;iGk_R%S=l-6.%%S?lu>6~~SETA}7%% !SI2:wDR%SKctshR%SO/@))R%SQKia@%%SSdCFhR%SUtTWqR%SW~tshR%S[-.%%%%S]/Su-~~ ifeffit-1.2.11d/src/fefftab/66.dat0000755000175000017500000003577010771740460015506 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] dy.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] dy_k.amp !Q%%%%%%%R0B9{B%tR:DF9x.GRBm*H9&MRJML5iK'RP2o-o,SRRnT~KE]RTLb4^QcRT,reP3iRPsOPW+q !RL{Y=9{vRHWDBF'dRBxlaosHR>H\uvv%R:EOViQ.R8>jc+>*R8HqP?vvR:HF/gugRdERnL>Gt:;Rt@q.;6NRx\XtTWq !R|DcFdMRR~LLXH]HR~zWL3@vR~hTcyTxR|soeURvRzF%_&N]RvBa,3A@Rpwk0njXRlB&b5*)RfksWf|@ !RZ|65Mb7RRD::t2VRJVTUvU[RF,/;0V:RDun^xfLRHfAXX-kRN-STN0dRR3NTp+8RTqMv=NYR\L[mu~~ !R\M1Hc7LRZOh8xC|RVsN|I{aRR}kb>]fRP:[r'DgRL)zvHv`RHMU[pnMRDFN9HL8R>~/0UnT #% [ 59] dy_k.phase !S/pB?VR%S5)Co;R%S95HJDR%S=:AP_R%SA8'h)R%SE.8(2R%SGvF\DR%SK\W0c~~SO8uvu~~SQdaD)R% !SU)iuVR%SW81*H~~SY0~fc~~SYeIEH~~SYq@~-~~SYU3eDR%SY-O\DR%SWti];R%SW}aT;R%SY>bgZ~~ !S[GsD)R%S](^:[%%S_T3mMR%Sa[f[v%%ScLTx;R%SeB+dMR%SgC6zzR%SiPaxd%%Skh>2zR%So-)V)R% !SqOYwl~~SssTbk`T/InF_5_T/Pj`zbBT/YHktWIT/b_x=T;T1'Nr@v% !T1Z9h)R%SnP_R%S0pjH.%%R|ti];R%R`/^&DR%RBLT/DR%Pn8A`qR%R=f`iI%%RUnFT;R%S/t%~.%% !S5+BKd%%S9(ZZVR%S;t|;zR%S?emIMR%SCIb2zR%SE}@em%%SIV;Al~~SM&q)Q~~SOICk7%% #% [ 59] dy.rep !S8>V~VR%S8?EuVR%S8AlZVR%S8EmMQ~~S8KOhR%%S8Rf7MR%S8[VnDR%S8f%9;R%S8qzQ~~~S:%SXhR% !S:4YSDR%S:E5{qR%S:W?>7%%S:juNI%%S<&(2R%%S<<^*I%%S/YWI%%S>LCRu~~ !S@Te8DR%SBH6-~~~SB~}k_R%SDYwl~~~SF8kG7%%SFt+`H~~SHWZJDR%SJ=n,7%%SR,%~.%%SRt[MR%S0jQJDR% !S0rH6.%%S0zu^Z~~S2*%iqR%S23[]c~~S2=_Z.%%S2H5?-~~S2S/L[%%S2^UBd%%S2jEa?~~S2vlb_R% !S4Gj'c~~S46VvMR%S4+v=?~~S4-:VzR%S46SmsX@%%S@oA}7%%SBrl^Z~~SDw|H-~~SF~WeDR%SJ,J(2R%SL5A0;R%SN?5cVR%SPIvmu~~SVnFT;R% !S\/_^2R%S`LwDR%%SdkpRu~~Sj25;)R%SnSrXh3a]3RDY/w0RT-az}yoRZ(;U)o|R\u.xHkWR^~-aI:*R`hU%[KtRbE*E6F@RbquiAO(RdA|(7W]Rdo?Y~xT !RfKT3+p[Rh.P|gc.Rhg2-c\}Rj,X{BxcHRLB,e\'hRP4zY.t5RRh.i]3PRZ*l@N'H !RZ2,Jp'_RX@LpS93RTtMRQ.IRR,c-`TRRNQ@b/_ZEC #% [ 59] dy_l1.phase !RWE1.MR%S-giN_RSUm(:Z~~SWL(X|hRSY)g5C2RSY^e7U[%S[6+F+hR !S]U,_RT-ckShzRT-lASu.%T-t6.mv% !T/*gN([%T/6rj7v%T/>xqj@%T/CClJDRT/F%=@%%T/J=,{qRT/Q0V^2RT/YNcB;RT/bMS\m%T1&UG{qR !T1;qhb7%T1QDtK;RT1e{o+@%T1zQO\DRT34y.MR%T3GwSP_RT3[Z\}7%T3nGUFhRT5%DlB;R #% [ 59] dy_l1.caps !R<+s'c~~R:yL&DR%R:T86~~S/W-NH~~S1%OT;R%S1BaX@%%S1hgs?~~S3=[12R%S3sR]d%%S5U,K;R%S7;=hR%%S9%'p2R% !S9k?vu~~S;Y@el~~S=H7em%%S?7@z)R%SA%tk_R%SAmIqzR%SCYA0;R%SECA,6~~SG+3qR%%SGja7v%% !SKKYshR%SM{)%MR%SQJsP7%%SStJLZ~~SWECBc~~SYo(s@%%S]9PWI%%S_UCRu~~SahPk_R%Si2kwl~~ !SmCk7%%%SqA;Z.%%Su3oOhR%Sw~NI%%%S{bFlVR%T-T@iqR%T-bI9;R%T-o_1Z~~T-|/l~~~ #% [ 59] dy_l2.amp !Q%%%%%%%Q0_{l:S@Q<+,oN0dQF&2/b9LQNALR;b7QTl^_tdtk_Q\Ubo_]DQ\+rkUN)QV9C_gNr !QJZ^HPRVQF2K0~0'QjH=|jB'R2Z_D}0xR86yijc_R:.K(GWIR8ke+LpOR6ye<:k[R4wElo%9R2s~EG}t !R.or`F[8R2M*LWiIR8+q*cu>RXCh3]RJ/VtR4mRLU\KqX,RN[}*.KtRPDVK.\u !RPxZ{_x+RRHe+}AURRnA0VpGRT.T%h^3RT:5k17jRT+{k0^gRRa,*A&yRP~=HNmNRP0g&jIfRN5pmfMB !RHd?WH6.RDFuT9t7R@9SojA]Rj(RTo>-HF< !RVE>~w_+RT{~0vJhRRqW]VL?RPA5ZAfqRLynLB+1RJ)%WdU[RFfbq52aRDCNOcC=R@`n'J,y #% [ 59] dy_l2.phase !Rn^Ru~~~RBqvMQ~~R/QRMQ~~RUG?.%%%Rwf|@%%%S/h5_R%%S31Q>7%%S5AA`qR%S77Z)zR%S7]Fp[%% !S5x:>_R%S/)XP6~~R?+T;Q~~Qx@v%%%%RF2V)R%%RRf;R%%%RTZnl~~~RN0WqR%%R@NDzR%%QvrH~~~~ !Rq|?~~~~S31\8DR%S7T9+?~~S;>yo;R%S=io+?~~SA,fl.%%SCA\m%%%SES{4hR%SGfN0c~~SI{&}6~~ !SM6m57%%SOKfp2R%SQ\jX@%%SShe(2R%SUm^wDR%SWlo7MR%SYeWyZ~~S[YBC[%%S]Gk;)R%S_0mem%% !Sac6GSDRScl@*a@%SeHCzZ.%SeK|5*qRSe1Rv%%%Se-?-6.%SePX}2zRSg2D^2R%Sgy9G_R%Sm[++hR% !SqQ7el~~SuP4|hR%SyG;MzR%S};X+hR%T-\J0_zRT-l91FhRT-|C/`qRT/2/yVzRT/AR@z)R #% [ 59] dy_l2.caps !SN\1s?~~SNZtshR%SNW/u.%%SNPpwDR%SNH8Tc~~SN=7--~~SN/~nl~~SLzc%u~~SLiDzR%%SLV/XhR% !SLA5.v%%SL*UVzR%SJlI12R%SJRiqR%%SJ7l>7%%SHuPK;R%SHWwXhR%SH9*,_R%SFruzzR%SFQEuVR% !SD9LRu~~SB>.QVR%S@s;V)R%S@YMb7%%S@;Lg2R%S>sR9;R%S>NIIMR%S>&^&DR%ShJQD0J//L[Qb=xP:|8R2,'{K]xR6a}{{CgR8_VuhmVR8IuLLz6R6])cY`AR4]DUh3]R2Z'>YhJ !Q~'IO{\MR0s4n+5tR6I?sn}7R:}M}'MBR@MCI6`9RDX_BZ+}RHKO>;v)RJsL1zlBRL{R[tdERNe;)w5/ !RP?h3}c2RPiAa.oTRR4AHhf>RkORPA}n(V{RNOq8c[ERLV_6HX0 !RH0U'memRBsvzU:[R>mPb7PhRu.NWRF[/2-nxRD9I{_R%S9CTSm%% !S7vu6-~~S1NUVzR%RKb*qQ~~Pm%%%%%%R>AP_R%%RLBOhQ~~RN\@MR%%RHYC2R%%RQB;R%Smy:[%%% !Sqny2R%%Sunp:[%%Sydn@MR%S}Y)^2R%T-_OBKd%T-o4QJDRT/%AhzR%T/5:|7v%T/DSra@% #% [ 59] dy_l3.caps !SN\1s?~~SNZtshR%SNW/u.%%SNPpwDR%SNH8Tc~~SN=7--~~SN/~nl~~SLzc%u~~SLiDzR%%SLV/XhR% !SLA5.v%%SL*UVzR%SJlI12R%SJRiqR%%SJ7l>7%%SHuPK;R%SHWwXhR%SH9*,_R%SFruzzR%SFQEuVR% !SD9LRu~~SB>.QVR%S@s;V)R%S@YMb7%%S@;Lg2R%S>sR9;R%S>NIIMR%S>&^&DR%Sd{D2R:-=(NTDR>NDqGshRBdLiP,tRFp2WU^;RJoDV.|,RNceXT,x !RRZGt2zRRX,f^RF\Rd?s4z^{S0`*C5yoRpt\ptwmR`A7G779RZ`<@YX8RX=9M|/mRV;7<1'3RTFYgvd5 !RP)z|'JQRTxc_Y7nRZ[y?/kGR^4p\7<-R^va~SJ}R`7|R7KPR`?uG:WiR`9IxxuoR`1k{:-_R`;+end- !R`],f@EIRb9/gQ>7Rbvx=,SiRdK|wIEIRd[pFD)RRdBUa(.NRb_J|PPSR`\2B@W]R^Hj&G4XR\.e|h4q !RToX}MW=RNn`e;hbRJ,``E+LRF9}Hu_gRD|)Hx`xRH8]^RtVRL-[n5t3RNuYV<4dr #% [ 59] dy_m1.phase !RQWKKd%%R}\re4@%SSgj.Y_RSSY'c6.%SOyYdEI%SS.L|\DRSU5m6%v%SW,pp*I%SWr[d~.%SYV3GG7% !S]4R9;R%S_2VMzR%Sa;XP6~~Sc:2-VR%Se/T?VR%Sg%^.MR%SgyaP7%%Si{TCZ~~Sm-1_)R%SoB.z)R% !Sq]/DR%%Ssy\\m%%Sw9P{qR%SyNvEH~~S{^n(2R%S}ik&l~~T-YMAHVRT-bRd57%T-k&2b7%T-ruO7v% !T/)Oft7%T/5Xr8m%T/=]/hzRT/B=xc~~T/EFIem%T/Iv_Am%T/Pl?nm%T/Y,*qR%T/b%K+@%T1%zv))R !T1;>e}7%T1Ppz~VRT1eODrI%T1z-'/DRT34X@%%%T3GXU*I%T3[BWqR%T3n,WmMRT5%/_^2R #% [ 59] dy_m1.caps !R>/6~~SCX&P_R%SEB*,_R%SG)~2)R%SGi\L[%% !SKJrww7VQfCocMKTQtD3:L]'R.Y6P3W5R05~`hw6'TRXz6j;@5RFE@Ti5WR>P9*uVRR:/+8*Y7R6=b>GPSR2`c3,n, !QVMM/{F}QF@QQ.PhQni|[uaqR2&)/llkR6JdomADR:W^@WU{R>LHg}5GR@w}hy>`RD'kaV+TRDnYgf`i !RFJuDZvvRFz(01rQRHL:~s&,RHpBGrMrRJ+dYkTXRJ*k+4`IRHnMyE7~RHBHu<&4RFb[gT=yRDzl4;kx !RB*ApWiIR>DrfgtxR:qTrAc,R8v{sgx|R:9UBbiORXSLJ[RHWv^20pRFFcyPF6RD)aP8:UR@IKU|PB #% [ 59] dy_m2.phase !RxKKc~~~RLf/DQ~~Ps[%%%%%RIu6.%%%Rkeu.%%%S/,>cVR%S1I'p2R%S3R`U2R%S5EBSl~~S5s\hzR% !S5uxSm%%S56]G_R%S1M:wDR%RAs/m%%%R~JDQ~~~S0X29d%%S0_tK;R%S0FBKd%%S.ux/DR%R|,*qR%% !RF;)R%%%S/noKd%%S9-C*H~~S=-S`qR%S?XmEI%%SAoW(Z~~SC{)Iu~~SG)`}_R%SI2u:2R%SK?^[%%% !SMO1o;R%SO_%qzR%SQkSDR%%SSr~rqR%SUsDrH~~SWn712R%SYb|`H~~S[SFT;R%S]?'x;R%S_%l>6~~ !SaTAyVzRScZ/-JDRSe1tL*I%Se11fh)RScn:`=P7%% !Sq5K;Q~~Su6NI%%%Sy/iDzR%S}&O'c~~T-ZSvem%T-jX*0d%T-z|>G7%T/1%d57%T/@\P_R% #% [ 59] dy_m2.caps !SN_GO?~~SN^0OhR%SNZAq)R%SNT(s?~~SNKC6VR%SN@:NqR%SN2zvMR%SL}T3I%%SLl.mv%%SLXol.%% !SLCjH-~~SL-)V)R%SJnop2R%SJU/teXhR%S>OUNqR%S>'bk_R%S(mS^YGR8oH3rl_R6,fwEadR2UR\)>W !QTR_lF]3Q6v%fbNQQbB3y}~>R0I%BHHXR4o%01FiR8|44z^{R[E(x3RFiR}){ARH1PiU{IRHE]Wxl.RHC))\y3RH,09@+uRFYbl)8uRDz7iVTLRD9:gBUK !R@F:hu{iRue>RH4lo.~KRP>&6l:^ !RR-2QH51RR%b{(&SRP>OFL~ARN,2j-M9RJ{:zYg7RHA*24X5RF55IT?^RBtqcij?R@g[%%Sgx0|?~~SmZ<4hR% !SqPWH~~~SuRX'd%%SyJjX@%%S}A>&l~~T-]AJ4@%T-mteXhR%S>OUNqR%S>'bk_R%SLEglmDRDwsG\jBRJmk18=kRP[~>w2b !RVl|2.(;RbM0MU]ZS.{VH[p)S@'.u0]xS6|*%iqRS24oM61;S0/9Gt^cS.R}:rP&Rv^@~BJ,Rnj2K^%V !RZ\L4HzVRV?8WL(GRReP-D't !R<7(o3P?R8_(>_R%R6.,5Yl*R2wk6Z+rR43Ze\A=+hR%T0CBc~~~T0HO\DR% !T0MMzQ~~T0R+P7%%T0V3];R%T0YfG_R%T0\[56~~T0^o_zR%T0`F3qR%T0aC_)R%T0a`mMR%T0aNY6~~ !T0];R%%%T0X5shR%T0WkK;R%T0WF|hR%T0V%))R%T0T1FhR%T0R+P7%%T0Ot_Q~~T0MgNqR%T0KaX@%% !T0Ib{qR%T0Go?VR%T0F%=@%%T0D1[%%%T0B/DR%%T0?q9c~~T0=?ZVR%T0:G2zR%T0757%%%T03`,_R% !T0*-rqR%T.z4p[%%T.pyk6~~T.hiQ-~~T.aH.%%%T.Z5?-~~T.RX'c~~S~5Bh)R%S|B1FhR%Sx4KC[%% !Stlk2zR%SrL.MR%%Sp<30d%%Sn,}*qR%SjyR--~~Shxk?-~~Sfwuvv%%SdxZb_R%Sd(uB;R% #% [ 59] dy_m5.amp !Q%%%%%%%QN?.MJh5Qvs(E6TtR21C=vKtR4WI}p:/Qlq2:msXR<,_qA[RR*qS6~e@;=iS26b-^=qS00aj:%VS.T.1AZ0Rvfw/Ye}Rnp@zU:[ !RZ\_L1x|RV99PRB84,4IfRBE,<\WU !RBFRx0E]RB:8hQaqRB(&Y|8@R@qgk4MFR@l%GC{IR@foA9j,R@_qb@/0R@KTGPwmR@+(3I_BR>ZJ}fG` !R<-:n[V%R8W52zR%R6(X8jc[R2u4T]vlR44dxEs0R82g8rd8RARB9H1L|FRFIh]]Q22onRHVK@1oFRFC_kNetRD9nH*B(RB%@tGGI #% [ 59] dy_m5.phase !S27k*qR%RvEqR%%%RNSl~~~~Ql.%%%%%R/@v%%%%Qq;Q~~~~RM/DR%%%S42zQ~~~S>b7mv%%S>[mu~~~ !S=+hR%T0CBc~~~T0HO\DR% !T0MMzQ~~T0R+P7%%T0V3];R%T0YfG_R%T0\[56~~T0^o_zR%T0`F3qR%T0aC_)R%T0a`mMR%T0aNY6~~ !T0];R%%%T0X5shR%T0WkK;R%T0WF|hR%T0V%))R%T0T1FhR%T0R+P7%%T0Ot_Q~~T0MgNqR%T0KaX@%% !T0Ib{qR%T0Go?VR%T0F%=@%%T0D1[%%%T0B/DR%%T0?q9c~~T0=?ZVR%T0:G2zR%T0757%%%T03`,_R% !T0*-rqR%T.z4p[%%T.pyk6~~T.hiQ-~~T.aH.%%%T.Z5?-~~T.RX'c~~S~5Bh)R%S|B1FhR%Sx4KC[%% !Stlk2zR%SrL.MR%%Sp<30d%%Sn,}*qR%SjyR--~~Shxk?-~~Sfwuvv%%SdxZb_R%Sd(uB;R% ifeffit-1.2.11d/src/fefftab/32.dat0000755000175000017500000003002610771740460015464 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] ge.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] ge_k.amp !Q%%%%%%%QH;I4bC{QjHjZ.79R00q>gm9R2l1BV2JR6I22*5|R8z3K[gKRgv]YK`R@{8P7IM !RD&'TLZ6RDuGy(UCRFXUp=eaRH)UonTdRHAmthg*RHEj9Xv=RH5z_'9tRFnwYI5[RF;f3,7IRDT5HSN] !R>Y[SVWaR@5CDlm~R<'t,_CKR6dKD@K+R2?U,K;RQ|DLy9]TQ|dc'e`MR2S.0R57R8?1@f03R>+0NMQ[ !RB]J%^RvRF~iTr<)RL7ii*GG !Rh,PR}cWRhB?bh;BRfdPC?\}Rdp3Uat`Rb_P*/3QR^~F%=,BR\%2sc*/RX)GGWt&RT>t)`]YRHl9M]1G !RB~EgVkxR>g~9uU?R:Y+O~jhR8@dIUSeR4rAK3@}R2q~GquWR0w=yo//R.f(L?rrQtO%fyAF #% [ 59] ge_k.phase !QJ%%%%%%RM5oc~~~Rw1Rv%%%S1.kshR%S5%QVQ~~S7mk*qR%S;T,SDR%S?2y>_R%SAdriI%%SE6SdiqR%Sq(.))R%SqlWwXhRSsW{];R%SuBoz=hRSw.:hEqRSwrqG*qRSy](NqR% !S}Nf@S}7T-\t,Rz*T-kR<,_RT-y,l)zRT/+n)EqRT/8'&L[%T/D.AhzRT/O{XlVRT/[Jh1[%T/{oOhR% !T16_%MR%T1JI(:[%T1]ac:2RT1n}7%%%T3'G0/DRT37^z~VRT3G2&l~~SB0k?.%% !S>Jm%%%%Sx[v%%S6D6NI%%S6KPWI%%S6Tlvu~~S6`&XhR%S6m-vu~~S6{{];R%S82X+hR% !S8Do|?~~S8Xb&m%%S8n*Y7%%S:*z%MR%S:CB?VR%S:]3mMR%S:xNU2R%S<;<0d%%S_R%T6/8DR%%T6W^*H~~T8&)j?~~T8NOP7%% #% [ 59] ge.lambda !T0Epc.%%T0FT_zR%T0HVvMR%T0KhrH~~T0O{y[%%T0ToCZ~~T0Z)V)R%T0_6NI%%T0cq^2R%T0gQb_R% !T0iq-VR%T0jQJDR%T0i:Jl~~T0f(NqR%T0`uVQ~~T0Z0p2R%T0R'p2R%T0I3Y6~~T0@0h)R%T07`yZ~~ !T0*Na@%%S`}i8l~~SXn712R%STv34hR%ST.~vu~~SRvMQ~~~ST*Cg2R%STND1Z~~SV(VV)R%SViDV)R% !SXZ=lVR%SZS`qQ~~S\TD%MR%S^[Ck6~~S`gxWqR%Sby\\m%%Sf5{qQ~~ShPT3I%%Sjo-B;R%Sn7D5_R% !StntcVR%S|_gs?~~T.j-jhR%T05x7MR%T0];R%%%T2+zf;R%T2V't7%%T4'BG_R%T4Sp:Z~~T8,,shR% !T:4s'd%%TQtshR%T@ebO@%%TB|lzzR%TF=(.MR%THZ@]d%%TJzMzQ~~TNCE0d%% #% [ 59] ge_l1.amp !Q%%%%%%%QL6@l>7%Qr<_UbL5(vVRB6I;*l_RDWc-;xt !RFirz)o3RHkI>1,pRJY7Dr31RL2^T_oXRLP_16VRRLWE}PW%RLG*{tyoRJ|/eJ`)RJBtCUQ>RHP^Q=p7 !R@{2OvVnRB2RTlFa'0|RXlI5t{rR\\iPoysR`Eog(gWRbp*,0p{Rf*}jEZ& !Rhq:\n?_Rj&IIwkGRhB*MTR~RfD=zL%VRd.T{[qhR`Hv)i5(R\E_N|7gRXETZD'tRTW0&]?ORH{Ou%|x !RD/m3`h+R>pv,]e]R:_]qldSR8Eu45,AR4vp@4%PR2th+X]3R0zA`UfcVRT3'gxWqRT38%iM)RT3GVe(2RT3X2+/m%T3[x25_R #% [ 59] ge_l1.caps !SL_R%SHCo_zR%SH%cjhR%SF_\y2R%SF=f+@%%SDs{U2R%SDNJ\l~~SD'&(2R%SBWgk7%%SB,TWqR% !S>GP.u~~SG[MR%RdG*qR%%RXK7qzR%RLM>{qR%R@Nw}7%% !Q=j]|@%%RCC(FhR%R]GC2R%%RuKE8m%%S/4w,7%%S1=uNI%%S3E4hR%%S5IvIMR%S7J8hzR%S=0'_zR% !S?o/hzR%SCJn8DR%SErn`qR%SI;^VzR%SKXN}_R%SMk_vMR%SO{bSDR%SS-\}6~~SU2w`qR% #% [ 59] ge_l2.amp !Q%%%%%%%QB\TI\XaQ`*bg(]DQ|4`)cdZR0b>29}SR2}VaB6WR68BjScyR8E~x4MjR:K'qZ6U|Kz>R>tSfz+TR@K_A^JmR@mav45tRB'&^b0TRB*/s[Q{R@w3ohv)R@\9fKd%R@2OqF}WR>W7%GxR:6vs9bGR8`yq{eER6z:4X]3R4sm@cnIR2UW4i{9R0:1[<(>R.^lAi>iR0>kQlTtR2ra4PEY !R6k3,@tGR:li&78MR>mmY|?[RBjDZZp&RFb[XL2RRJYit>jqRNGQz{{9RR.X*\L[RT_Hs)f{MR>Q|gJh]R:INei:hR81l.:Y*R4gRJm>3R2hIDl}@R2'3p,DcR0nu.%%Scv>wl~~Sk5}*qR%SqIw\m%%Suh:.MR% !SyDU:Z~~S{Unq)R%S}QLFhR%T-T]WM)RT-[,yJm%T-`{-rqRT-fFlzzRT-kQTOhRT-pDxOhRT-u,`eDR !T/&AJ}7%T/1)D9d%T/;,Y&m%T/D=]WqRT/LkmahRT/Tr}_R%T/\s[12RT/dm?B;RT/l\J4@%T1):sdMR !T181s?~~T1FJ%ADRT1Tk}*qRT1aMj@%%T1oEoOhRT1{R:*I%T3,r?>7%T3;Rb{qRT3D8EeDR #% [ 59] ge_l2.caps !SlhmUZ~~Sli-)zR%SliuzzR%Slk/@MR%SllTt6~~SlmzMzR%Slo03H~~Slo_V)R%SloBG_R%Slmh9c~~ !SljdqzR%Slexh)R%Sl_4'd%%SlV8P_R%SlJwTd%%Sl=*y[%%Sl,Uk7%%Sjs_R%Sb3sxd%%S`e;~VR% !S`=(Rv%%S^oH)zR%S^HD=hR%S\{dz)R%S\U'|?~~S\.6JDR%SZ`~)zR%SZ91FhR%SXj^FhR%SXAIiqR% !SV2lfc~~ST%S}7%%SPxI=@%%SNyhEqR%SN(<];R%SL4@%%%%SJA*}_R%SHN[9;R%SF^x|?~~SBO(.MR% !S@-zzR%%S\7X-ub_R>uRT:uBR@LW/,7%R@nNtyo;RB'bj6>7RB*]9rF}R@wV)3GGR@\LrcB;R@2OqF}WR>W'So5p !R:47p4/mR:6;x%O0R8`EBia@R6yhD.(;R4sc[KZcR2Usu1|8R0:jIqNiR.^b7bJ_R0=(jcRyR2oD;i3z !R6f]4:,pR:g:`}%5R>gOb(]'RBc%B-X0RFZY2WsTRJQ=O[kORN>,.X.~RP~WF2H>RTUIyEU2RVx^zB(s !R\CGE\/MR^It4UGWR^W5+x&jR^A>l%E3R\ax3rLyRZTRZpL~RV~SG+rQ[6d@8R:IDawCUR82&8>{FR4g49`d@R2h1pyrQR2&hlR>xR0;uC0PqR.\=on>p #% [ 59] ge_l3.phase !S>{L_)R%S:gyFhR%S6ZO7u~~S2S3,_R%S.R/y2R%RX]OhR%%R4%Y_Q~~R9p:Z~~~R[rDzQ~~R}*iI%%% !S/yps?~~S3HXxc~~S5ir@u~~S9*)nDR%S;<{8l~~S=IREH~~S?On4@%%SAPFH.%%SCKh)Q~~SEBv]c~~ !SIc||hR%SM^XX?~~SS&cb_R%SW1;Iu~~S[4DMzR%S_Du^[%%Sc{2Am%%Sk:'WqR%SqM|/m%%Sum-RMR% !SyIm-.%%S{[uZVR%S}WwXhR%T-UAT?VRT-[g<8m%T-a[J`qRT-f}OdMRT-l.79;RT-pw{4hRT-u\)EqR !T/&m3Y7%T/1U,od%T/;_[em%T/Dt@ADRT/MDpFhRT/UDf;R%T/]Acb_RT/eBa|hRT/m9,wm%T1)j_R%Sb3sxd%%S`e;~VR% !S`=(Rv%%S^oH)zR%S^HD=hR%S\{dz)R%S\U'|?~~S\.6JDR%SZ`~)zR%SZ91FhR%SXj^FhR%SXAIiqR% !SV2lfc~~ST%S}7%%SPxI=@%%SNyhEqR%SN(<];R%SL4@%%%%SJA*}_R%SHN[9;R%SF^x|?~~SBO(.MR% !S@-zzR%%S,@fR8R9c{DzR:ryR;b7R>.ugC{%R@9/|J>p !RB6&hHxTRB|n&J0`RDYTEcm~RF%HGq|0RF8[OZ,GRF:Z,F.ZRF*Y|isyRDcn}Y]PRD4.,==}RBQi*e~o !R^7E(6WR:e]bNQ.R6a@`n@)R2Z.asL3R.{>51w6R.z}yJ5:R2kuv=1KR8D{C3H6R>&?IGhJ !RBQa'd%%RFm6%u~~RJz|kyoO\_P !RBwXKi_qR>bcbXR2R:U;::(dR8=h@M/&R4o]A6@KR2pH6~~~S/pjH-~~S3f.12R%S7Rf7MR%S;7>wm%%S=nHzzR%SADh=hR%SCnyVzR% !SG9]/DR%SIYPwm%%SKt}*qR%SO2\y2R%SQFr];R%SSX*yZ~~SUfL.MR%SWr?>7%%SY{Znm%%S](A,6~~ !Sc&KjP6~~S|c9:QR6}-d0EKR:YF|2VrR>**}RgoR@JL&+e]Es/m%R:{9UW6FR8cWm]4\R6vZ`];RR6G('zpkR4oD.W];R4+D|h`YR21[Y&=\ !R07?K>,6R.aqOuA>R.~uuc9~R27M28IER4|`s_5`R:(V3^dfR>6j=~yCRBF9;a@nRFM,kh|yRJF0OL+8 !RR0Mh}UGRVF)uN08RXTg]@(;RZ-0qUnERZ,AlLQ]biU:R:I):_OkR80`695'R4d{vf>&R2dvFEA9R0|:/&75R07[O6f@R.YKt:hu #% [ 59] ge_m2.phase !S:)X+hR%S4pe0;R%S0e'CZ~~Rn[ahR%%RFryZ~~~QOBd%%%%RMK?VQ~~Rq(NqQ~~S/R6JDR%S31_rH~~ !S5f0|@%%S9;e(2R%S;g6zzR%S?4lzzR%SAX@mv%%SCx;vMR%SG:lnl~~SIS;Z-~~SKh-zzR%SMxFL2R% !SU'ny2R%SWa7--~~S[>i8m%%S]Z)1[%%S_RoSl~~Sa4WuVR%Sam.ADR%ScV%qzR%SeP?.%%%Sgd\,6~~ !SkGL*I%%So_{@u~~Su5E}_R%Sy=qnDR%S{mH:2R%S}z]C[%%T-Yk7IMRT-`m;=hRT-g(yk7%T-lkLNqR !T-ypYk_RT/+o1k7%T/6oP{qRT/@w-JDRT/J+ZB;RT/Rem%%%T/[4S(2RT/cV?jhRT/k^x|@%T1(we@MR !T18.9;R%T1F_s\DRT1U=e`qRT1b.--~~T1p4fOhRT1|HK3I%T3-a6>7%T3<6_nDRT3DghEqR #% [ 59] ge_m2.caps !SlhEM)R%Slh^{H~~SliMrH~~SljdqzR%Sll4+hR%Slm]?VR%SlniDzR%SloF'd%%Slo(s@%%SlmREI%% !SljR]c~~Slej3qR%Sl_)-VR%SlV16VR%SlJp:Z~~Sl='?VR%Sl,Uk7%%Sjs/7dR0V;H0QUR4ALx=:gR8&-IHt.R:\rh``QR>-~v5/eR@Nk6fY+RBa@cB_z !RDcg^WiIRFV25qf;RH5}iRb3RH^6u`oPRHtXNeZFRHwkwQ`]RHj+f-PpRHJlnu&eRFuD[N.bRF6+uNI% !R@>X1ZO\RB5uwL/Iz&YWIR:jcc3*]R8VC?;,CR6hZ8y2RR61gn0uoR4NZ80;RR2YRW^dfR0YXuUB@ !R.ehdBl~Q~]?7g<9R02_7)\UR2[M^n4;]DRBfsVDamRFdo*>RzRJTWQU%1 !RR)V7ulkRV1,wSCURX9`?,~[RXmRsH~6RXrmjUv8RX=V5%57RV2Y@N(/RRr779f2RP[;b\fBRH/)Vt2O !RBXj/3wgR>Q?T>.gR:I%uZphR80z~)@5R4e%R05fvT9+R.XJb16A #% [ 59] ge_m3.phase !S:'r}_R%S4o&(2R%S0cB;Q~~RnJ`qR%%RFbC2R%%QS4hQ~~~RM[u~~~~Rq9+@%%%S/SqrH~~S33DzR%% !S5glJDR%S9=g>_R%S;hnhzR%S?6JhzR%SAYx[u~~SCyO;zR%SG;[em%%SIT*Q.%%SKh-zzR%SMwWU2R% !SS~YC2R%SW[y:Z~~S[7O/m%%S]Q1:Z~~S_K0|?~~Sa2U_)R%Sarj\DR%Scd5[MR%Seh~VR%%Si3STd%% !Sm/({H~~Sq^;Iv%%Sw/[Y_R%Sy|]WqR%S}A3,_R%T-U%N@v%T-\MjdMRT-bzKx;RT-hh't7%T-n3F3qR !T-z[pg2RT/,=:Bd%T/72_EqRT/A2{eDRT/JE.ahRT/S%ADR%T/[UAP_RT/d((FhRT/lBunm%T1)Ph%MR !T18dv%%%T1G@6JDRT1Um.ADRT1bl)zR%T1po)=hRT1|{MrI%T3.SgBd%T3=)6rqRT3EKe8DR #% [ 59] ge_m3.caps !SlhEM)R%Slh^{H~~SliMrH~~SljdqzR%Sll4+hR%Slm]?VR%SlniDzR%SloF'd%%Slo(s@%%SlmREI%% !SljR]c~~Slej3qR%Sl_)-VR%SlV16VR%SlJp:Z~~Sl='?VR%Sl,Uk7%%Sjs[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] ga_k.amp !Q%%%%%%%Q@YLnk8]Q\55BK;vQvnS1MH>R0MN%Js,R2n(^:[%R64LIoSmR8RvH_B\R:moE8m%R>*01cvv !R@8c&sP7RB>3TwEARD8>~[f7RD~sUi-NRFZZTX1&RH%,|q4(RH5amc?&RH0=]fKdRFqFN;@~RFALEJy{ !RDaEO%6&RDMZT6{iR@SW]47vR:bW]ZPKR4Zn9'%^R07VL}77R08''E=5R4ODtYodR:ICupvVR@@,,shR !RDz/7z)RRJ@kfwiiRNL}TsVbRRF0+*0dRV5n94r9RXry/cizR\QE*[l>R^~KUjS(RbABP(g{RdK(*I%% !Rh':RP->Rh4-A)[fRfNXa^A_RdJ7Qgx,Rb+/nsz0R^?Z})N/RZ8KFYdqRV3@e8BbRR>|8]|dRFtYPGHR !RB4.(g+8R>(Ddl>7R:%k1wwUR6jQ,LqPR4M_{J6TR2QE>^hyR0[DR'F:R.R\1M*iQlQW)mOj #% [ 59] ga_k.phase !S/.~vu~~S3A%ADR%S7J&Td%%S;J,7%%%S?A9|@%%SC/ZjhR%SEoFpZ~~SIL|\DR%SK|e6~~SU.REH~~SWDTKc~~SYU[mv%%S[b6ZVR%S]jX?~~~S_o*,_R%SaonTc~~Sclu>6~~Seea`I%% !Sk:whzR%So%:*H~~Sq_GO@%%Su'Zb_R%Suo:c.%%Su@Ck7%%SqG,O?~~SoX&u.%%Son}[MR%SqLsdMR% !Ss4u)zR%Ssy)Z-~~SubsR]d%SwKfaX@%Sy3ySdv%Syuoy*I%S{]3Adv%S}CuPod%T-RO-||hT-XqI^)e !T-hMQap[T-wI~]G`T/+OE5WIT/8S/q)RT/D^+7v%T/PA_^2RT/[kwHVRT/g:ey2RT/rKp2R%T18E5{qR !T1L_cnm%T1_~VR%%T1r|{U2RT3)e+lVRT3;nhzR%T3Ke)j@%T3Zx/DR%T3l%8(2RT3p1fh)R #% [ 59] ga_k.caps !SJ(Au.%%SJ&gg2R%SH|,WH~~SHt@el~~SHiXlVR%SH\%em%%SHKbk_R%SH8c>7%%SF}=+hR%SFeMnDR% !SFKBl-~~SF/&y2R%SDjWuVR%SDI{a?~~SD';vMR%SB\L[%%%SB5Hnm%%S@f,wl~~S@:DAm%%S>f&LZ~~ !S:n`M)R%S::)Z-~~S8m`0c~~S8@&8DR%S6i)Iu~~S65T|?~~S4ZHfd%%S2~_nDR%S2HhAl~~S0m%IMR% !S07oSl~~S.]<@v%%RvN/,6~~Rjb}O?~~R^x<@v%%RT1'3H~~RHAE@v%%R_vMR% #% [ 59] ga.rep !S4hMV)R%S4iY[MR%S4lz1[%%S4rU2R%%S4z@~-~~S6*6F?~~S66.%%%%S6CzZ.%%S6S`qR%%S6e712R% !S6xLRv%%S83CBd%%S8IqzR%%S8azf;R%S8{Z%u~~S:%~.%%S<_oWqR% !S>|r8l~~S@\F/l~~SB7oSl~~SBr+'d%%SDU&hzR%SF:I57%%SF{u2)R%SHe>K;R%SJPC2R%%SL_R%T2iadMR%T48-JDR%T4`OP7%%T6.u6-~~T6WDV)R%T8%j;zR%T8N9[v%% #% [ 59] ga.lambda !T0V7=@%%T0W&4@%%T0YEY6~~T0],wm%%T0avahR%T0gN([%%T0m7]d%%T0radMR%T0w?:2R%T0zTp2R% !T0{zIu~~T0{8m%%%T0x1k6~~T0rh~VR%T0k@ADR%T0b66-~~T0X*yZ~~T0M`4hR%T0Cr,_R%T0;alVR% !SlR3}_R%S\6;j@%%SVPbg[%%STCBc~~~SR{{8m%%ST({mMR%STJQrqR%ST~z1Z~~SVgjH-~~SX\-nm%% !SZYv57%%S\_iuVR%S^l^6VR%Sb%d57%%Sd>E4hR%Sf\/L[%%Sh~Tt7%%SlK>C2R%Snv,?.%%SrJj3qR% !SzGr0c~~T.`8HVR%T0-o7MR%T0W-NI%%T2'}SDR%T2TFL2R%T4(4xd%%T4WEDzR%T6-pJl~~T8l[EI%% !T:~80;R%T>:'|?~~T@SvADR%TBqU_)R%TF8o';R%TH]YshR%TL+]|@%%TNVlfc~~TR+(Ru~~ #% [ 59] ga_l1.amp !Q%%%%%%%QF;xBo{%EIR@`|t[qz !RBwfTT[vRF)mFip?RH(hY-[ERHtB8@))RJSkCVzRRJxjjztpRL.uxssqRL&>EdriRJ_g09t7RJ%2/}7% !RFgPKBK@RF<`iMF`RB+,]T03R:j8qY\yNMRN|};94\RR{CuB\@RVm,2=G;RH(a>lu( !RB>X73g*R>0m9L]pR:+k5PA0R6o4b^e?R4Qp~ge0R2Sr6~~SuSi6F@%Sw?XL{I%Sy*/|H.%Symbx7MRS{VSURv%S}>Fa\DRT-R/7U[%T-XXXcUQ !T-hFuvQVT-wK)iQ.T/+WqU_)T/8[REI%T/Dm&8DRT/PSS,7%T/\+*y[%T/gP9Kd%T/reDR%%T18e][v% !T1M&1NqRT1`L_)R%T1sJc>7%T3*/T?VRT3<8p_)RT3L/R=@%T3[>wm%%T3lI`U2RT3pNu2)R #% [ 59] ga_l1.caps !SHy7iqR%SHwa;zR%SHs1&DR%SHk[))R%SHa.~.%%SHSs+hR%SHCs@%%%SH1>;)R%SFv8q)R%SF^fh)R% !SFD|T;R%SF(}oc~~SDdqzR%%SDDU:[%%SB|.~.%%SBWUVzR%SB0g_)R%S@aa\DR%S@64t_R%S>b0Sm%% !S:itC2R%S:41Jl~~S8g`a@%%S8:V1Z~~S6dDZ-~~S61PO?~~S4VzvMR%S2{k&m%%S2FEx[v%%R_vMR% #% [ 59] ga_l2.amp !Q%%%%%%%Q8cCwz]R0[6WKsLR2QBQ?,NR4FrdjZXR6;C5F*z !R8-HfwbOR8uhe]fpR:],:J^KR<2iE1~_R>FLlnm%R>I=QA:GR><7;v\,R%oTR2CR0~2z0NzR4p-Ia~F !R8uxZ>x\R|`RP)'8J}7RR\+5pORVG&*zg*RRbXC>4QRP/kNkC{RFFQ7+jM !R@nH~JmBRyJm%%SGHm~.%%SIKa|hR%SKGczzR%SM=7--~~ !SQe/L[%%SUx)b7%%SYmY_Q~~S]\Op[%%Sa[f[v%%Sew}6~~~SkqKx;R%SsCK[u~~SyC_)Q~~S}J9WqR% !T-YujhR%T-czNiI%T-l2yc.%T-s*)Iv%T-y2\y2RT-~[|+hRT/)\Q)zRT/.=@%%%T/2b[MR%T/6rj7v% !T/@tUk7%T/JUsdMRT/Sg?)zRT/\6Db7%T3LIh9d%T3TrA1s@ #% [ 59] ga_l2.caps !Sh2S8DR%Sh33U2R%Sh5'7MR%Sh8&y2R%Sh;~2)R%Sh@[ahR%ShEZ%v%%ShJXD)R%ShO29d%%ShRzrH~~ !ShUYk_R%ShV^VzR%ShUdel~~ShRO/l~~ShLZZVR%ShCm]c~~Sh7ndv%%Sh(@ahR%Sfo.z)R%SfWvEH~~ !SdBy*H~~Sd5Pwl~~Sd3];Q~~Sb{Adv%%Sb^fCZ~~Sb;Iv%%%S`mx';R%S`D,g[%%S^s+hR%%S^GrU2R% !S\w8DR%%S\MJdv%%SZ~ap[%%SZVo3I%%SZ/gg2R%SXbyo;R%SX<97MR%SVoG_R%%SVH.%%%%STzB[u~~ !SRnwTc~~SPcNmMR%SN\a;zR%SL]jP7%%SJfuJDR%SHt{([%%SH*W4hR%SF:PO@%%SDKh)Q~~S@t)]DCQ^f3D(qbQp|q-S26R.daq|xdR0[SHd-]R2Qj:mWsR4GRd57%R6<.?q^3 !R8.?,MiQR8vc1ZaqR:^*j-cNR<=E1IK+R3^D^{IR>G7'wL[R>IzVm`UR>_RR0)^A,7%R.t,|eR=R0|4k(vVR4lmN^l& !R8qXY4%=RYYpR\:+rmy|RX|CdBSPRVCzOhCKRR`xkhR_RP._/1GWRFEPe]P| !R@nVDwm|R7%T/d]}SDRT/k}VZ.%T/sCq=hRT/zomem%T1(G{qR%T1>@^Rv% !T1L`l:2RT1ZYyo;RT1hVF`I%T1th|xd%T3(Jm%%%T34*gFhRT3>{[]d%T3M1E0d%T3UKCps@ #% [ 59] ga_l3.caps !Sh2S8DR%Sh33U2R%Sh5'7MR%Sh8&y2R%Sh;~2)R%Sh@[ahR%ShEZ%v%%ShJXD)R%ShO29d%%ShRzrH~~ !ShUYk_R%ShV^VzR%ShUdel~~ShRO/l~~ShLZZVR%ShCm]c~~Sh7ndv%%Sh(@ahR%Sfo.z)R%SfWvEH~~ !SdBy*H~~Sd5Pwl~~Sd3];Q~~Sb{Adv%%Sb^fCZ~~Sb;Iv%%%S`mx';R%S`D,g[%%S^s+hR%%S^GrU2R% !S\w8DR%%S\MJdv%%SZ~ap[%%SZVo3I%%SZ/gg2R%SXbyo;R%SX<97MR%SVoG_R%%SVH.%%%%STzB[u~~ !SRnwTc~~SPcNmMR%SN\a;zR%SL]jP7%%SJfuJDR%SHt{([%%SH*W4hR%SF:PO@%%SDKh)Q~~S@gD+7-.QXTce@;>QrJD`8HVR02%@{RfR2Mb88DRRZJzM1[R@[-n2b7RBPXlhf8yZZVRF%k?|`R:KW1*+qR@6foZ6w !RDj|]@tlRJ,QOFP7RN5(Yh%NRR+mc?%vRTr:kTu&RXTm'lshRf1Obl7+Rd1]1]kkR`om7KVAR^,ogW4wRZ'{~=q`RV%0U]U5RR2oZcG/RFlle_th !RB.A>3qKR<}i21[%%S3OdMQ~~S7WNa?~~S;UR-.%%S?I}?-~~SC59Kd%%SEqPG6~~SIKHNI%%SKwMIv%%SOBFp[%% !SQ`o+?~~SSyP*qR%SW3'l-~~SYAxC[%%S[Lfh)R%S]Sj3qR%S_W:o;R%SaWA@MR%ScSra?~~SeLfCZ~~ !Si}9Kd%%SmbpwDR%Sq>v57%%Ss^/`qR%SuJKG_R%Su,)^2R%Sq`m))R%SozIQVR%Sq0WqR%%Sqbk_Q~~ !SsG+`H~~Su.mQVR%Suq9?VR%SwX|Ywm%Sy@dK+@%S{'qIQVRS{hoLwDRS}O6Lk7%T-S[&;~VT-Yv2):A !T-iJyZZWT-xC\-JET/,HoT[vT/9I@z)RT/EP\O?~~T3g+7v%% !S:pPO?~~S:C2R%S6k(&DR%S676JDR%S4[n@MR%S4%oSm%%S2Iel~~~S0mn@MR% !S08Op[%%S.]kcVR%RvR%%%%%Rjen\m%%R^z7=@%%RT2EM)R%RHB0WqR%R_vMR% #% [ 59] ga_m2.amp !Q%%%%%%%Q@M9@][%Iv>t3 !R@3j2lfdRB9Eb7_BRD4B@\fTRD{^e@>xRF\Y?05pRH+wxQ,lRHG[i^V2RHQ*}n,7RHJ->|}WRH38+-r) !RHne2G9LRJO^=^FhRH,u^E0dRBdKPB}xR>Ch_Oc:R:c<]>JMR8m?(~/8R80{Ji6FR6@-%;b7R4:9oMmV !R2-Z.]0|R0=/dvf\R08O&[Y_RBI<@t4}RFRc]~B;RJMUKF'd !RR?)cNf3RVVzRc}dRX^e~OMjRZ'y?66hRXp`?JjkRX%vB.P1RTbsN0W;RR8qD^%GRNnr}@gwf}*TR2Av**zpR.zN:>zpQ|-VdP88 #% [ 59] ga_m2.phase !S0grQ.%%RlAL[%%%R@|T;R%%R1ZB;Q~~RYGwm%%%S-Utwl~~S1FWQ.%%S50hrH~~S7nY{qR%S;LK[u~~ !S=~m56~~SAQK3I%%SCy.MQ~~SGB\@MR%SIaN}_R%SK|H-~~~SO95K;R%SQL\8DR%SS[aD)R%SUf6:2R% !S[dkshR%S_YK_zR%Sc9v9;R%SeP?.%%%Sg<=`I%%SgbNuVR%Si*j7u~~Si^jH.%%SkP9';R%Sm]&(2R% !Sq5@ADR%SuB3mMR%SytuF?~~T-SQrqR%T-bVD9d%T-mP0x;RT-uxP2zRT-|u)zR%T/(x3I%%T/.EAdv% !T/:MD^2RT/EP;MzRT/Oj,2zRT/Y1Tx;RT/aaurqRT/iakg[%T/qP4|hRT/y?`];RT1')b6~~T1=UhEqR !T1L5)^2RT1Z9R57%T1hRf[v%T1tp='d%T3(YG7%%T34GujhRT3?%;b7%T3M*+'d%T3UD)gs@ #% [ 59] ga_m2.caps !Sh2.iqR%Sh2i,_R%Sh4\hzR%Sh7`0d%%Sh;]CZ~~Sh@:s?~~ShE97MR%ShJ7U[%%ShNo+@%%ShRaD)R% !ShU@=@%%ShVE(Z~~ShUNqR%%ShR_R%S\MU_)R%SZ~i0c~~SZVvMQ~~SZ/kG7%%SXbyo;R%SX<97MR%SVoG_R%%SVH.%%%%STzB[u~~ !SRnst_R%SPcNmMR%SN\a;zR%SL]n0;R%SJfuJDR%SHt{([%%SH*W4hR%SF:Lo;R%SDKh)Q~~S@djR>4LZx+d !R@CSnx1GRBIcC|)BRDE)A2b7RF2OFS/MRFmC~?}GRH5mo@q2R:S;ob*)R8Tsx_]DR6d*=Y.vR4cw|e5pSRD%t(BJQRF}h/(=LRJkn_9d% !RR??]a3qRVB/j,q_RX@%:/e{RXcS7Iu{RXY(To1GRVqYq&|WRT\i7d(MRR7kL6R0RNoRuKuhRF@X^sEp !R@m]1,1gRWI%%SC}{qQ~~SGG+;zR%SIewy2R%SM&LZ~~~SO=9x;R%SQP<2K/DR !T1Lh,C2RT1Zsn}7%T1i+i@v%T1uPYod%T3)6)zR%T34s^FhRT3?qlfd%T3M}v57%T3V(&ZF@ #% [ 59] ga_m3.caps !Sh2.iqR%Sh2i,_R%Sh4\hzR%Sh7`0d%%Sh;]CZ~~Sh@:s?~~ShE97MR%ShJ7U[%%ShNo+@%%ShRaD)R% !ShU@=@%%ShVE(Z~~ShUNqR%%ShR_R%S\MU_)R%SZ~i0c~~SZVvMQ~~SZ/kG7%%SXbyo;R%SX<97MR%SVoG_R%%SVH.%%%%STzB[u~~ !SRnst_R%SPcNmMR%SN\a;zR%SL]n0;R%SJfuJDR%SHt{([%%SH*W4hR%SF:Lo;R%SDKh)Q~~S@[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] mn_k.amp !Q%%%%%%%QLL\aXh.Qpo;NUDfR0KuGY5GR2q4n9j,R6&U0r&4R6|^q5%5R8gD1B87aX4C;R>BG+ZX0R>BWq>AUR>7y-+y.ReCr/XRLhp*HxMRH_X]0XCQlg~vmvgQR>/K,-M #% [ 59] mn_k.phase !S;?KWqR%S?QljhR%SC\.]d%%SG^ps@%%SKZg.MR%SOP9Kc~~SS?b_Q~~SW)'OhR%SYf0|@%%S]BW(Z~~ !S_q|T;R%Sc@*O@%T/su)zR%T1(`Gk_RT16nAwm%T5l;%))RT5}8\l~~ #% [ 59] mn_k.caps !S:yL&DR%S:xJu-~~S:uK3H~~S:pLo;R%S:iOt_R%S:`W}_R%S:Ue0;R%S:HzzQ~~S::84?~~S:)Pk_R% !S8pjlVR%S8[~vv%%S8E/P_R%S8+{yZ~~S6jN}_R%S6LJHVR%S6+c:2R%S4b)^2R%S4;;f;R%S2j|D)R% !S.}`@u~~S.\BOhR%R|2`}_R%RrX-F@%%Rh(DAm%%RZte4?~~RND%MR%%R@W~NI%%R2b.--~~POB`DzR% !R3(NM)R%R?g<];R%RM<^*I%%RY[:NqR%ReiI%%%%Rqgq=hR%R}YQfc~~S/'dmu~~S/ZC*H~~S12H>7%% !S3T,.u~~S5sn}6~~S95wl~~~S;M6rqR%S=]wLZ~~S?g*I%%%SAjc^Z~~SCkk;)R%SEkPwm%%SKTFpZ~~ !SO/&Tc~~SQ^62)R%SU)Am%%%SWB`iI%%SYXWuVR%S[gz5_R%S]oZ>6~~S_uk2zR%SawDR%%% #% [ 59] mn.rep !S4\h1[%%S4]wq)R%S4aEa?~~S4g+\DR%S4n|H-~~S4y&DQ~~S6+07MR%S698`qR%S6I4lVR%S6ZzzR%% !S6nOp[%%S8)cnm%%S8@U[%%%S8X{U2R%S8r{];R%S:4Us@%%S:QgwDR%S:p[IMR%S<73}_R%SvQzzR%S@S\m%%%SB/qMzR%SBjQJDR%SDMu:2R%SF3ehzR%SFu_nDR%SH_Iv%%%SJJoKc~~SL7\u.%% !SN%Z)zR%SNn_^2R%SP^WiH~~SRO>k_R%ST@cjhR%SV2alVR%SX%57%%%SXr0d%%%SZeP_R%%S\Y3iI%% !S`h\Tc~~SdyPshR%Sj1I~-~~SnD2%MR%SrWTC[%%SvkHJDR%S|%]?VR%T.T.UZ~~T.h6NI%%T0JY2zR% !T0rsxd%%T2A8DQ~~T2iZJDR%T47|P7%%T4`H6-~~T6.mu~~~T6W=;zR%T8%b{qR%T8N2Al~~ #% [ 59] mn.lambda !T8^5gZ~~T8_^{I%%T8cjhR%%T8j1&DR%T8qh=hR%T8yWiI%%T:&3uVR%T:*-NH~~T:)u:2R%T8~NmMR% !T8s%=?~~T8aGcVR%T8J&Td%%T8-zV)R%T6hWa@%%T6GOdMR%T6&RahR%T4aEa?~~T4Ed12R%T4/.9;R% !Sra7QVR%Sb)]h)R%SZr_=hR%SXTj+hR%SX-(Bd%%SX3L:Z~~SXX%ahR%SZ8,[MR%S\(WiH~~S^&,[MR% !S`.N@v%%Sb@'Kc~~SdYcVR%%SfzQ6-~~SjGmahR%Slu(Bc~~SpMg*I%%St+XdMR%Svh=hQ~~SzOS(2R% !T.cyg2R%T05+`H~~T0bSDR%%T28*Y7%%T2i^*I%%T4C.qzR%T4xIahR%T6UTSl~~T84DMzR%T<4XdMR% !T>ZO\DR%TB,;)Q~~TD][QVR%TH:Df;R%TJv>SDR%TN]:>_R%TRI%mu~~TV9P2zR%TZ.Pg[%% #% [ 59] mn_l1.amp !Q%%%%%%%QR%b{tk;Q|7|yU,pR2>N\vtGR6(C-K_2R8U8*|6>R:k9k/l6RVVE**9R@1*.UE1 !R@VjE}%5R@p~_OftRB&|LLG3RB-4;uiURB((3'hNR@pk(uM6R@R+,pwER>~d/&({R>Av/qrIRMb6~~SkPK;R%%Sm[.em%%So^8XhR%SqXQnm%%SsHXT;R%Su,czzR% !Sw)Tp2R%Sw7@12R%Ssu7ADR%Ss6+Q%v%SsaW0?VRSua&712RSwlG^>_RSy{Aop2RS}-^WDzRT-SePscI !T-]3JN8mT-f4.*_R%R@Cz5_R%R2P|;zR%Pof=xd%% !R358\m%%R?r>*qR%RMF.~.%%RYcCNqR%Rep7EH~~RqmADQ~~R}]sH.%%S/('|@%%S/ZXxd%%S12VrI%% !S3T/hzR%S5sn}6~~S95{M)R%S;M:Rv%%S=]{,_R%S?g.))R%SAj_~VR%SCkg[%%%SEkM=hR%SKTFpZ~~ !SO.|t_R%SQ^2R%%%SU)Am%%%SWB`iI%%SYXT;R%%S[gz5_R%S]oZ>6~~S_ugRu~~SawDR%%% #% [ 59] mn_l2.amp !Q%%%%%%%QZP*KIs}R0(\oDjdR2|LXP>?R6BEH}UkR8*=Y.v%R89rJ+ZBR6y=&:k7R6?dNA~JR4MRK6{i !R2SG;-RrR0\__*S0R.uGs>8]Q~Hg\C_NQ|+[E^1cQ~Mejg|\R.gI|:cRR0*Fyp*IR0@W&XhRR0JS/cxT !R2Pom}r1R6DtbUgWR8AlgaP7R:;KM:RvRy%2:wR\=EE:&D !R`jr>=+hRdmKeBW)Rh85c-aqRjRj~((N([RlJqg.)*Rlb\0VpGRlgiWnCcRl^WS*)nRlF>D*sy !Rhv3REvXRdZ^dO=`R^tcb{xlRZ0oI/a-RTZW8h2cRP6yaV\FRJ}Q(Kw|RH+8X3NtRDPABl?1R<\=;^;\ !R8a^LYG7R62JVt|oR2zvpM~{R0p3^BanR01+7a%LQ|ob.JSDQ~~R2Jy2Q~~Qs&DQ~~~ !R=@=?~~~RI@UZ~~~ROR-.%%%RQ0l-~~~RO[mu~~~ROsdMQ~~RU(wDQ~~R]1*I%%%Rgf+?~~~RuIu~~~~ !S3Jq)R%%S7IcF@%%S;Tqj?~~S?w`qR%%SE:bcVR%SI?>[MR%SK{<([%%SODf;R%%SQS}[MR%SSUlnl~~ !SUM[em%%SW>7mu~~SY(7iqR%SYg.MQ~~S[Fg>_R%S[|+hQ~~S]Rw\m%%S_&3,_R%S_P2zR%%S_x)=hR% !Sa|yRu~~Se(ps?~~Sg14xd%%Si9p2R%%Sk@*a?~~SmC)Z-~~SoEadMR%SqG,O?~~SsD^{I%%Sy3W}_R% !S{s*U2R%T-VQ6vu~~SR0BCiY7%R0L5:.y; !R2Q~{X]|R6EO;DVrR8Abys]3R::H_,g[RY&mT/1G6{D{T/;hlIU[T/H,Q6vu~~S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] co_k.amp !Q%%%%%%%Q@Qo^Zi1QZdQ:L&EQtH6o-|XR01j>/1sR2=dX8O(R4D3t88DR6E'xD;BR8@RQR0DR:78wXdr !R<(n-V&RJrr+(R@,O}::[R@U`Y>?.R@p~lZe,R@}YG[MRR@w>3jr9R@]g,:POR@,nu.%% !R>)*eDR%RR4~d7vPhRa0Rp~[FQJERrTLGQ7ARrs{fR&]Rt-/mQO8Rt)kJ:Fh !Rr'f\op2RlrN1};zRh8Njg>`RbULEZV&R\lE2ATd%%SU):Ru~~SWf1k6~~S[@}cVR% !S]mf[u~~Sa8XhQ~~ScUi}_R%Sek]OhR%SgzPG6~~Sk(;Iv%%Sm)MzQ~~Sm}}*qR%Sopi}_R%Sq[B|?~~ !Sufg:[%%Sy)(>_R%Sy_@Y_R%Swy6VR%%SuIgJl~~Su))vMR%SuYs9/DRSwNGJq)RSyKF2^2RS{I1{I%% !S}E8AyJm%T-r:-=lVT-xol*D{T/%>izIvT/+UjVb7T/1\Fxd% !T/@['Kd%T/ODv))RT/]bry[%T/k7X'd%T/w~`8m%T1*T*,_RT17,g6VRT1CZA(2RT1O\st_RT1qlTOhR !T3,X)Am%T3@2j?~~T3T'%]d%T3cyr,_RT3vGK;R%T5,%@12RT5;N:&DRT5NvW];RT5Y~=lVR%S>vd56~~S>l}G6~~S>a3(Z~~S>S93I%%S>C5g[%%S>1%12R% !SMVrH~~R2'rY6~~PS3QRMR%R1E97MR%R=DAl~~~RI8tcVR%RU&qMzR%R_hk.u~~RkLyk7%%Rw/,6~~~ !S/SjX?~~S1v9_zR%S59<@v%%S7Mgs@%%S9Ye}6~~S;`:&DR%S=d=dMR%S?fyNqR%SAg`[MQ~~S6Pa/l~~ !S6dOT;R%S6y}&m%%S871{H~~S8Oxc~~~S8jC:Z~~S:,Ay2R%S:I|+hR%S:i=`I%%S<0I=?~~So?2)R%S@Jop2R%SB'~B;R%SBc0';R%SDF{yZ~~SF-3_R%STcVR%S\V0G_R% !S`era?~~Sdw&Td%%Sj/1s?~~SnB,.u~~SrUYG6~~SviXH-~~Sz}x7MR%T.Sy{I%%T.h+T;R%T0JN8l~~ !T0rh~VR%T2A1*I%%T2iS0;R%T47u6-~~T4`@u~~~T6.f[v%%T6W5{qR%T8%_Al~~T8N.ahR% #% [ 59] co.lambda !T4p*mMR%T4q>2zR%T4tm=?~~T4z=D)R%T6'(*H~~T6.>SDR%T65%Y_R%T6:2R%%%T6<\q)R%T6;TKc~~ !T665?.%%T6,CVzR%T4x,SDR%T4f*Q-~~T4Q3a@%%T4:WiI%%T2}^c.%%T2gn(2R%T2TX`H~~T2EKKd%% !Sj?]G_R%S^5t2zR%SX\UwDR%SVZ0';R%SVA`M)R%SVQ\XhR%SV|R]d%%SX`~rqR%SZTW(Z~~S\T9+@%% !S^^)~VR%S`pS@MR%Sd0]Sm%%SfQV-VR%ShxY*qR%SlK>C2R%Sn}7mv%%SrY~b_R%Sv;I-.%%Sx{52zR% !T.^pNqR%T0/IEI%%T0\3,_R%T20uJDR%T2aXdMR%T4:(FhR%T4n:k7%%T6J2=hR%T8']x;R%T:}:_)R% !T>EQRMR%T@m4lVR%TD@(_)R%TFqmUZ~~TJN@v%%%TN/H2)R%TPnmIMR%TTXOH-~~TXF5shR% #% [ 59] co_l1.amp !Q%%%%%%%QJ<{6AxDQn(JhZ~*+LR2q,ME([R6ZFiq&< !R@HJ{4hRRB,emTG_RBbq.d&]RD2Wa9LSRDQZ,(8YRD`f4e-oRD^zwV^{RDJ4ZU7ERBxN/k}tRB5sw~80 !R>6mh{@vR:cO?tK`R4f?]l.%R.v=-jhRR2R=9O1.R87b*i6)QV,ICS>~ #% [ 59] co_l1.phase !S99(NqR%S=Kqj?~~SAWNcVR%SMOol.%%SQ?_nDR%SU(e0;R%SWd|+hR%S[@CFhR% !S]nkG6~~Sa<@--~~Sc\uRMR%Sev[=?~~Si/VAl~~Sk;qZ-~~SmA2=hR%So?b;)R%Sq6x/DR%Ss%QzzR% !Sw>p.MR%Sys6>6~~S{a(Ru~~Sy@j;zR%SsL4xd%%Ss:,C{I%Su(7EH~~Sw+|~F@%Sy2pgVzRS{7BT7MR !S}8J0_zRT-SXKC[%T-[gU8X'T-cRBx_{T-jrd4lVT-qwIS}7T-x]&[57T/%2C?rrT/+Oooh*T/1`rKp3 !T/@m;b7%T/O^k7%%T/]}.u~~T/kQm~.%T/xB5K;RT1*xRY_RT17X.~.%T1D+B';RT1P1ufd%T1rE6F@% !T3-0e8DRT3@eL6VRT3TRGK;RT3dKZb_RT3voSm%%T5,MHb_RT5;o(NqRT5OD`4hRT5YhB[v% #% [ 59] co_l1.caps !S@,czzR%S@+[UZ~~S@(>_Q~~S>|nXhR%S>u7ADR%S>kLs?~~S>_U:Z~~S>QT+@%%S>AM%MR%S>/8hzR% !SshR%S:fbG6~~S:FL{I%%S8}QB;R%S8WY[MR%S8.L>_R%S6[mQVR% !S2n7z)R%S2No+@%%S2/+H.%%S0^RQVR%S0--ZVR%R~sY.u~~RrUJm%%%Rf%6nm%%RXIZ)zR%RJna;zR% !R>?o7MR%R0vEI%%%Pg^rQ-~~R1LwhzR%R=JL6VR%RI=NY7%%RU*?>7%%R_k43qR%RkNL_)R%Rw0&(2R% !S/SjX?~~S1v=@%%%S59C[%%%S7Mo3I%%S9Yi];R%S;`:&DR%S=d:*H~~S?fr4hR%SAg\\l~~SGOjxc~~ !SK,fG_R%SM]t[MR%SQ)?jhR%SSDoWqR%SU\hzR%%SWlgwDR%SYv8(2R%S[}ujhR%S_&/LZ~~ #% [ 59] co_l2.amp !Q%%%%%%%Q@8r={9MQX%iDOxGQj4;^&\WQtxR*K>YQx|1Al*LQvHQ%,FHQl_(m~UgQ^EG2v-*QLJMnDR% !Q:]+,hu_Q8b)rCugQJizZn2bQ`S`:o;RQt|c^Z~~R.y5Ac>7R0g/2dGpR2D5[0C[R2h|3tJMR2wpebVZ !R4k/%])bR87Tj[Q{R866Q>T3R6PSZ,*)R67KNR{aR6~AJx-gR:u*-}k_R@P}shR%RFD&u(ugRL/^Q+;2 !RPaIEY(KRTusJ-C*RXj}P}]tR\CFQrmrR^_eI|mER`kEMNb/Rbfqo}i9RdQ5az39Rf/l,fw(RfS:BW:o !RfZ+e.j-RdSjXi~1R`l>Y%G*R\qn|s?HRXhSMne@RTLNZ-<`RP0n|^jORL,%}oHaRHGE/~+%R@,ZEefj !R:x+~vnDR8O@%%SIxZ>6~~SMkyJm%%SQTwL[%%SU3bwl~~SW_16VR%SYx2~VR%S[iu2)R% !S[3&4@%%SS),gZ~~SOkqAl~~SQ_RT/S|Kh)RT/XF=|hRT/\NK';RT/`A*Y7% !T/iWY7%%T/rb+;zRT/{hwT|?~~T3J45*qRT3X8Sj3rT3cobo?VT3my~'xbBh)R%SV)\yQ8sVRxODQL%a]d|PQ`ho]'BlQv6y-/y{R.{.&d-.R0hwptwmR2Ep2mCGR2jNR3reR2y<.);f !R4lN_@`zR88W-0R~R86{~Uc.R6Q%yl4PR6734*4DR6})4T48R:rJTCx3R@MCo;R%RF?=>phjRL*9)Zvv !RP[;KnjXRTo1f'48RXcc|OVbR\;k'7n@R^Wn6rEiR`bq=b@ARb^Bx<{9RdHT=aFPRf&mRh'PRfJd}m'L !RfS(n>&mRdO2&3_bR`iLj}7cR\oL`8cTRXey7N2BRTI~K>9ARP/E'?jwRL+Z~yTxRHGRT'yOR@,+u[ZV !R:x6~~SMs]|@%%SQ\7U[%%SU:4/l~~SWe7z)R%SY}&HVR%S[m0h)R% !S[0YO@%%SS),gZ~~SOqS\l~~SQBy*I%%SS5e}7%%SU0n0;R%SW->7%%%SY'{uVR%SYyg2Q~~S[mndv%% !Sc.PC2R%Sg92~VR%Sk;Pk_R%So\m%%%%SuG.QVR%S{6O\DR%T-W2^{I%T-g~ZzzRT-u3znDRT/%z;f;R !T//07qzRT/72_EqRT/>8d-.%T/D]dIMRT/JIPC2RT/O]bk_RT/TJT?VRT/XjfOhRT/\rsT;RT/`as'd% !T/iq-VR%T/rwyVzRT/|,+`I%T1*oHNI%T13/T?VRT1;C-^[%T1Cl4P7%T1LDEM)RT1Tg:[%%T1lmNeDR !T1{oHNI%T30/e@MRT3>}*qR%T3J_w`qRT3Xo6S`rT3dAKK?VT3nV`kKbBh)R%SN)_P*)R>yMUB\eR@?JBQXTR@NeAYWIR@MtS~nmR@8+F7Jhout]t !R>&/'N4DRPxR\~o,`OP !Rbn:r)g*Rh(yh'ZcRjaZNQhBRlxkAY+`Rnt+2BMBRp[`i6jiRr2~pg{IRrTJn.1{RrfInfE9RreRuEIn !Rpam>`.bRlX(rwZ8Rf{}{\X~RbC9Q])(R\]a.TV:RVlYB(jWRR-n6*]gRLlmuBe*RHyhl0';R@@[5mT^ !R<.e]ihZR8I\6ZVR%SU):Ru~~SWej|hR%S[?jD)R% !S]k<=t_RT1PHQ^[%T1r[KOhR !T3-?`8m%T3@el~~~T3TVH>7%T3dVu^[%T3w+H.%%T5,XBp2RT5;rbSDRT5O9f';RT5YRN@v% #% [ 59] co_m1.caps !S@.6nl~~S@-.IMR%S@)o3H~~S>~Hfc~~S>vo/DR%S>m.ADR%S>a=|hR%S>SGg[%%S>CDAm%%S>17EI%% !SQAq)R%R2+&u-~~PM@xKd%%R1C/`qR%R=B`DzR%RI7d~-~~RU%~vv%%R_h8,6~~RkL\\m%%Rw.w\m%% !S/SjX?~~S1v9_zR%S598`qR%S7Md9;R%S9Ye}6~~S;`:&DR%S=dADQ~~S?fyNqR%SAgcvu~~SGOnXhR% !SK,j'c~~SM]x;Q~~SQ)CJm%%SSDs7u~~SU\hzR%%SWlgwDR%SYv8(2R%S[}ujhR%S_&/LZ~~ ifeffit-1.2.11d/src/fefftab/52.dat0000755000175000017500000003577010771740460015501 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] te.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] te_k.amp !Q%%%%%%%QJ&.Vd1{Qli&;P<=R0?pQoP:R2yWGR12R6P<=sDrR8tqsmq2R<2K^?kWR>9dt0{vR@/uobNQ !R@m1skFmRB:mXx;vRBL48Y[)RBFo'ekGRB);MyIZR@Mes:BdR>]/(8BtR<\{i71WR:Yi1?8UR8nS2Hb` !R@Z<1p*IRPOiCG+`RhpHM9?VS0Hy~_i}S2z:vk}9S4kB5n|HS4~`}voTS4lVWot7S4Ev(rF4S2nE1<`v !S28k*IIMS0]H]gfD !RNz-U~+XRTuSAy^;R\;bM{eDR`Xxh'\HpR.v%%S=yC.MR% !SAQk{qR%SC}Hnl~~SGGaxd%%SIcyBd%%SKvm--~~SM~7ADR%SOvd57%%SQZo[u~~SQ|L{I%%SQxHNH~~ !SOQWeDR%SOQ_%MR%SQ&J}7%%SQd1{I%%SSMgNqR%SUB=/l~~SW?k{qR%SY?k2zR%S[>{M)R%S]:9vY_R% !SD(*mMR%SBi>*qR%SBNZ%u~~SB2+xd%%S@mo/DR%S@MvqzR%S@,FlVR%S>c@9;R%S>>_R%%%ShnDR%RH.BWqR%S>G+`H~~S>a+hQ~~S>|Bp2R% !S@{p>_R%SBdo/DR%SDXzAl~~SF_R%SN=Ea?~~ !SP&=7v%%SPjVb7%%SRV)Q~~~STBbG7%%SV0>g[%%SVxg_)R%SXg{mMR%SZWsxd%%S\HLFhR%S^9T7MR% !SbC='c~~SfOA\m%%Sj]6:2R%SnlLk6~~Sr|oG_R%Sx4*U2R%S|F*yZ~~T.W1wDR%T.k+;zR%T0M%qzR% !T0u.IMR%T2C:[%%%T2kN,_R%T49e8DR%T4b%~.%%T60DIu~~T6Xboc~~T8'*uVR%T8OL{H~~ #% [ 59] te.lambda !S@(B?VR%S@)NDzR%S@,v56~~S@2Tp2R%S@:@ahR%S@D.iqR%S@OjT;R%S@]-fd%%S@kwm%%%S@{~rqR% !SB3-)zR%SBD~2)R%SBWF|hR%SBj0[v%%SB|wu-~~SD5aT;R%SDH1_)R%SDZ>[MR%SDl.IMR%SD}[))R% !SFXnXhR%SH(0OhR%SF1M^2R%SB@}?.%%S@f}.v%%S@R:s?~~S@QVvMR%S@]YO?~~S@r[9;R%SB4D)R%% !SBUDf;R%SBzcJDR%SDIW8l~~SDuR))R%SFJ+lVR%SFz{@u~~SHSs+hR%SJ.^Ru~~SJe+H-~~SLB{Q-~~ !SNzZvv%%SR_B7MR%SVJ,[MR%SZ9}wm%%S^.O/l~~Sb&{4hR%Sd}->6~~Sh|V=hR%Sn%%%%%%Sz<=`I%% !T.`&4@%%T0-Uc-~~T0UeTd%%T0~Uc-~~T2M|T;R%T2wu.%%%T4HC*I%%T4s5O@%%T6DO|hR% #% [ 59] te_l1.amp !Q%%%%%%%QBD;]lK3Q^TgQxSmQzFXmqs8R0Xc(z.ER2p~h5jLR6(A:k7%R80kS2=hR:0K}/GFN903R>tfD]8aR@iU{ !RL.0LxmfRX~Y?f0|Rr7S4l]wpAuS4U356{ES4.eT8lp1}^7R<^nS'b9R:O9nUXg #% [ 59] te_l1.phase !S0k_R%SON([%%%SQ*p>_R%SQPR12R% !SQpUBd%%SQqD9d%%SQzU_)R%SS6B_zR%SS]g:Z~~SUBKc~~~SW7M-VR%SY2yc-~~S[/c>6~~S])L)5_R !S]x=(Rv%S_gUyFhRSaQrbwm%Sc7N+'d%Scr//q)RSeMS)j@%Se{oS'h*SgGCpNqRSgbB1FhRSgq2y>_R !Sg{f_1[%SiIzrI%%SkJVf;R%Smd56~~~Sq,SDQ~~SsS1s?~~Su}}O?~~SyRw8DR%S}*6F?~~T-q9?VR% !T/06LFhRT/HFR9;RT/_2,g[%T/uMGshRT1/cT+@%T1DlX/m%T1Wr^*I%T1kn3Q.%T3(~W@v% #% [ 59] te_l1.caps !SF`{8l~~SF_U_)R%SF[IqzR%SFTT7MR%SFJ{}_R%SF>nP_R%SF02~VR%SDy.MQ~~SDeh1Z~~SDP7%%%% !SD8VAm%%SBxzb7%%SB]Mf;R%SB@8(2R%S@{9[u~~S@Z]G_R%S@8IEH~~S>nbO?~~S>IK+@%%S<|`mMR% !S:Y=t_R%S8V4'c~~S6@sX@%%S4V2%MR%S4(g{H~~S2PWmMR%S0w%em%%S0Bt[MR%S.h6NH~~RxVu:2R% !Rl[bWH~~R`]AXhR%RTZ`8m%%RHS&Tc~~ROR.g%b4jTR0R}cc\}R27g]oJuR2nWW9P|R4AV)G*q !R4eFO`31R6%+>@=dR653hMd^R6:w=AggR66V.rZoR6)-k7B3R4kK07)*R4K0GM=iR2{XlVR%R2I0~s-F !Q~4EyUTxR0Cns{y[R !R@6D_N{]RFa4AMr%RNXA95z^RTPiEJ)jRXVpcvv%RZ~UWlH%R\n~;| !RT:=Ms~\RP==:GEvRL>LvxItRH05V{qhRDY@ITANR@jEYj;GR>C*Z'_OR<*qh&J}R:,AmIT* #% [ 59] te_l2.phase !S;ZiyZ~~S?nH2)R%SC|GcVR%SI+/HVR%SM.<,_R%SQ+L{I%%SS}[qzR%SWp'3I%%S[]Y*qR%S_EY[MR% !Sc(x|?~~SeadEI%T1O@mv%%T1WkdiqR !T1_d@U[%T1fq_EqRT1mF0[v%T1s=y.MRT1xQjhR%T1}%NeDRT3&R'Kd%T3(f1FhRT3);T';RT3'gWiI% !T1xy1c.%T1vL[mv%T1|.vmv%T3+5H%v%T35>Mb7%T3?lB_zRT3JP|`I%T3UNj7v%T3``|p[%T5'.}cVR !T5;Z]G_RT5O@'V^2T5a~Ze,7T5tS{vEIT7+*U2zR%Sjo;vMR%SjlCNqR%SjhQ6-~~SjcZ2)R%Sj]W(Z~~SjV@Y_R%SjMeq)R% !SjCeTd%%Sj8;~VR%Sj+1&DR%ShvH:2R%Shes+hR%ShSWU2R%Sh?HB;R%Sh)>2zR%Sfk9';R%SfQ1_)R% !SdP1Bd%%Sb`a@%%%S`[rDzR%S`)+T;R%S^fLRu~~S^BiOY.u~~SpR4v@*Z%vR4VT~fd%R4-OVS\mR2UAQT9t !Q~[].@o/R0.Sb9KdR<.;yTSmRT8/s[13RfcI|{y[Rpb+2+P[RtRV_j@%RtP5m?0'RrA689E]RnLtZ^[% !Rj1{]P^cRd]9AXGdR`(s)(>`RZNlUnH{RTs')b7%RPDAUG:;RJx{+~MZRF`a:NEiRBfyBA%fR@=J%rW5 !R>z\[FBpRFJLbsYxRN?KNC?*RT6';&B%VY_5R<+CvaVtdirT7M|NkK2zR%Sjo;vMR%SjlCNqR%SjhQ6-~~SjcZ2)R%Sj]W(Z~~SjV@Y_R%SjMeq)R% !SjCeTd%%Sj8;~VR%Sj+1&DR%ShvH:2R%Shes+hR%ShSWU2R%Sh?HB;R%Sh)>2zR%Sfk9';R%SfQ1_)R% !SdP1Bd%%Sb`a@%%%S`[rDzR%S`)+T;R%S^fLRu~~S^BiOY.u~~SeS91X}QX?r1uTPQp[}LzZ.R.zf|xQkR2-8||zfR44&0H<5R64v%U/TXs_.ER@&~hQO\R@Pgo)=hR@|Qt=+hRBRj%X=XRD8\Lx3IRF4@1'Wq !RR,W4m[=R`O7Qc\}RzOl*s:gS2;&3Y/eS4FAX1-_S4jU6*iIS4e'Di|qS4I/V9k?S2|:4P[NS2ND+\~o !S0xRw4dMS0GW6PRVS.rj9i{VR|eb0;&RV}/tyJmRR|pYiNa !RPSJz>WIRT\mccNIRZFIh7S4R^Hv~:HFR`mBl2,JRbh/+VDbRd.jA\z0Rbfva/)yR`o>cO|lR\';QB@| !RV9ER<./RR'=CMq.RLia^k)tRHO12e;.RDqf4g[S`Rpvz)R%S>K[v%%%S<~m~-~~ !S:[wHVR%S1ngBd%%S5;,C2R%S7X9x;R%S9oslVR%S=,.-.%%S?At?-~~SAUat_R%SGr/u-~~ !SKpxWqR%SOj9Sm%%SSU{I%%%SW5k_R%%SYktWH~~S]?=lVR%S_cpJl~~Sc,\`qR%SeJ)j@%% #% [ 59] te_m2.amp !Q%%%%%%%Q:3w\owMQN5Y1(nqQ`v|B=qJQt;-&TrYR.lvB'%^R0[J{o+@R2CE}R&8R2}OO3bxR4U*`sfP !R4}`wlK|R6Chm8L[R6[LtnB+R6iIW]\@R6pSA}>?R6o&i'l.R6gv}cVRR6YA*q}hR6DLb6DbR6'vR(:[ !R2,Z[bWIQjO}d9g;Qt4CrYqBR@(tiI79RNOtF0jPRVP`AjftRZ5pG::[RZVaWj\DRZ(O-F@%RV~R'`pc !RT^KrQvvRR0/wW};RNVch*.bRJzF13OPRH@VUGE5RDb;Ds`%RB+f.8L[R>UHd]FqR<8vCbMbR:=}r@/jUamR<*n4f0IR:,Z7~]' #% [ 59] te_m2.phase !S=Gm=?~~SA['';R%SEh4'c~~SIo^g2R%SMpeTd%%SQkpRv%%SU`bSDR%SYP5G6~~S]:%z)R%S_xcZVR% !ScWw4?~~Sg22Iv%%SiaP[MR%Sm2mz)R%SoYpwDR%Sq|}{qR%SuBF'c~~Sw]X`H~~Syt;)Q~~S},-b_R% !T-gMi,_RT/&Fu)zRT/tk[qzRT1*_E([%T1.p;Iv%T15>ujhRT1=cZzzRT1FnMnDRT1Ou`];RT1XK`iI% !T1`Adv%%T1gE7~.%T1mep_)RT1sE97MRT1x8~%v%T1|BZ>7%T3%D2%MRT3'%zrI%T3&nN8m%T1~MzvMR !T1tA;5_RT1qz&2zRT3G)2Iv%T3R9U&DRT3]]{uVRT3~^^_)R !T59U-^[%T5MWLT/ET5`Y-T+@T5sKcap[T7*;gM'PT7<,XyRvT7Ks('3IT7[)\Td%T7lKA}7% #% [ 59] te_m2.caps !Sjqtod%%SjqT';R%SjpDAm%%SjnEeDR%SjkPwl~~Sjgb?.%%SjbrU2R%Sj\vel~~SjUgVzR%SjM:.MR% !SjCA,6~~Sj7u6-~~Sj*u2)R%Shv9_zR%Shekk_R%ShSWU2R%Sh?K|@%%Sh)I--~~SfkK;R%%SfQGSDR% !SdPR12R%Sba(.MR%S`\a;zR%S`*XH-~~S^h*@v%%S^D?jhR%S\vEmMR%S\JzEqR%SZw.9;R%SZGpRv%% !SXr0d%%%SXBJu-~~SVl~ZVR%SV=y.MR%STiAdu~~ST:}oc~~SRf\@MR%SR7~vv%%SPbyJm%%SP3=;zR% !SLmTG_R%SJKlvu~~SH,CVzR%SDmiqQ~~SB^<];R%S@U[IMR%S>OY.u~~SR6LQ+UGWR6dnj](OR6sJRIBXR6{1edgKR6z<'9+@R6sd))R%R6eT&z3]R6P{Z-weR64]A}7% !R27.ZR)*Qj8]hzJeQh^&{vEIR>Ffu`8mRLc5pMlgRT_DJ4khRXDF,QX0RXg2{FF,RX;Xw=c_RV;';~O8 !RRxm&,bhRPNb:MwaRLyXy\FyRJGc>%RERFl:`[oxRD8&|Kh*R@_LW/,7R>2Gqdl>R:r;Wcq^R8y50=7- !R:@=QrM)R@_2g7S}RH88J`IIRL|GJBHNRR+RSDCKRTcN<-d=RVm8N'Z[RX9W0+ohRX-Ynui)RT~=99W) !RR0w8Vf>A5J&cR<+(S^{M)R%SofHrqR%Ss/UwDR%SuNSTd%%SwiAdu~~S{%57%%%S}5nP_R% !T-gBny2RT-}8Y2zRT/yLk[MRT1.JCc.%T12/QNI%T18IW];RT1@cB_zRT1IjUNqRT1Rqh=hRT1[GhIv% !T1c:2Q~~T1jA?^[%T1p^>;)RT1v=`mMRT1{1K[v%T3%3gk7%T3(1_MzRT3)f47v%T3)IgJm%T3&t_vMR !T1v8WU2RT1s[N@v%T1yO\hzRT3(g{I%%T334V=hRT3=qF;zRT3HdZNI%T3Smb{qRT3_0oh)RT5&@,cVR !T5;'{Q.%T5O1ZO\ET5b>5]+@T5u%q]C[T7+w5QTPT7=oA-%vT7MPp'3IT7\o~fd%T7nF>G7% #% [ 59] te_m3.caps !Sjqtod%%SjqT';R%SjpDAm%%SjnEeDR%SjkPwl~~Sjgb?.%%SjbrU2R%Sj\vel~~SjUgVzR%SjM:.MR% !SjCA,6~~Sj7u6-~~Sj*u2)R%Shv9_zR%Shekk_R%ShSWU2R%Sh?K|@%%Sh)I--~~SfkK;R%%SfQGSDR% !SdPR12R%Sba(.MR%S`\a;zR%S`*XH-~~S^h*@v%%S^D?jhR%S\vEmMR%S\JzEqR%SZw.9;R%SZGpRv%% !SXr0d%%%SXBJu-~~SVl~ZVR%SV=y.MR%STiAdu~~ST:}oc~~SRf\@MR%SR7~vv%%SPbyJm%%SP3=;zR% !SLmTG_R%SJKlvu~~SH,CVzR%SDmiqQ~~SB^<];R%S@U[IMR%S>OY.u~~S'ckII?QTvw]]O+QlQ@TzDbR.`c65_vR0ee`I5jR2dHmxR82bFngC !R8l]*idCR:Fu)zR%R:x?zzR%R7/|*y[R@+6Zn6BRB7)<@gKRD_y'ov^RHK\x2.ERLR}}Xjy !RZXGH1WiRb(Yp4>GRfT{@Yy&Rp?a-e>KRjFrX.zNR\kOV^62RP\2Cs]3RHMC84`mRDDw^,5GRBWvu?Xy !RB>vQ6K3RB))c&~JR@_(?&@NR@)6C.)*R>8As`:KR<4+8*8IR8uQTXr]R6I?XX\DR%SYGwm%%% !S[38HVR%S[_>2zR%S[zk.v%%S]2pk7%%S]@3}_R%S]K&q)R%S]R@z)R%S]QrqR%%S]?eu-~~S[^='d%% !SQM1Z~~~SMX-F@%%SMX-F?~~SMz6NH~~SOO&,7%%SQ)}gZ~~SQbqAl~~SSCnLZ~~SU(.MQ~~SY2cnm%% !S[XW,_R%S]}Ay2R%SaDWa?~~ScjoG_R%Sg'ny2R%SiM2nDR%SkdH:2R%SmmU6VR%Sq(&hzR% #% [ 59] te_m4.caps !Szsp[%%%Szt(o;R%Sztc2)R%SzukWH~~Szw>K;R%Szy='c~~Sz{cfc~~Sz~\4@%%S|()~VR%S|+}WI%% !S|0LRv%%S|5G7%%%S|:i}_R%S|@ZrqR%S|FhvMR%S|M2nDR%S|SZF@%%S|YsD)R%S|_o3H~~S|e-%v%% !S|mH:2R%S|gE0d%%S|K47v%%S|Se@MR%S|sdqzR%S~*DzR%%S~*HZVR%S|xjP6~~S|ecb_R%S|M=hQ~~ !S|1?)zR%Szl~ZVR%SzMM1Z~~Sz-\4?~~Sxh*eDR%SxIEmMR%Sx+lzzR%SviQ-~~~SvN=`I%%Sv3s/l~~ !StLo;R%%SrbUk6~~Sprot7%%Sp'&LZ~~Sn8>&l~~SlO0[v%%SjjZfd%%Sj-[EI%%ShIADR%%SdE[]d%% !Sb8MnDR%S`,HJDR%S\~a'd%%S\)C&DR%SZ-t*qR%SX6A(2R%SVGX\DR%STW1.MR%SRjC_)R% #% [ 59] te_m5.amp !Q%%%%%%%QY}>[TlR@P|\XV>RB]5z)`YRF*2t.-.RHl6vAS,RLo+{C_r !RZg^^_J@Rb0~geqrRfWjtFDNRp=9qR[bRj?I6;j@R\`=Wb{MRPO;Ui<)RH@QMK3%RD9,{?xTRBLgVS1* !RB3yhk'\R@wrRv79R@SezIQWR>x'C2vNR>-]TVlgR<*%t|)fR8l12Y?.R6@\m{&}R2b@|HvvR0(OMgGW !Q|]G[^=(R83LGvGKR@vPaIADRHULaA(ARN:J)mHqRR:R:P2-;^=R8PfN6&{ #% [ 59] te_m5.phase !S0iP?.%%RlQ^[%%%RB30c~~~R1Kh)R%%RY@9;R%%S-Vcnm%%S1I{a?~~S58>od%%S7|LVzR%S;c=H-~~ !S?G{(Z~~SC*U2Q~~SEeMnDR%SIE/P_R%SK|'?VR%SOSop2R%SQ}->6~~SU?VvMR%SWJ/L[%%SY?Q^Z~~ !S[4=3qR%SY4f+?~~SU\Kl-~~SS8p_)R%SQ:z~VR%SQ6rqQ~~SQvIqzR%SU-7em%%SWIw8DR%SYRqzR%% !S[=C_)R%S[hZRMR%S](t.u~~S]9fKd%%S]F_5_R%S]Q-ZVR%S]XGcVR%S]Wy[%%%S]El^[%%S[cTt7%% !SQKSm%%%SMY@em%%SMY@el~~SM|8dv%%SOR`0d%%SQ/;Z-~~SQh/4?~~SSHapZ~~SU,WI%%%SY:lnl~~ !S[_(>_R%S_+&P_R%SaMOX?~~Scq@Y_R%Sg0fp2R%SiU`K;R%Szy='c~~Sz{cfc~~Sz~\4@%%S|()~VR%S|+}WI%% !S|0LRv%%S|5G7%%%S|:i}_R%S|@ZrqR%S|FhvMR%S|M2nDR%S|SZF@%%S|YsD)R%S|_o3H~~S|e-%v%% !S|mH:2R%S|gE0d%%S|K47v%%S|Se@MR%S|sdqzR%S~*DzR%%S~*HZVR%S|xjP6~~S|ecb_R%S|M=hQ~~ !S|1?)zR%Szl~ZVR%SzMM1Z~~Sz-\4?~~Sxh*eDR%SxIEmMR%Sx+lzzR%SviQ-~~~SvN=`I%%Sv3s/l~~ !StLo;R%%SrbUk6~~Sprot7%%Sp'&LZ~~Sn8>&l~~SlO0[v%%SjjZfd%%Sj-[EI%%ShIADR%%SdE[]d%% !Sb8MnDR%S`,HJDR%S\~a'd%%S\)C&DR%SZ-t*qR%SX6A(2R%SVGX\DR%STW1.MR%SRjC_)R% ifeffit-1.2.11d/src/fefftab/58.dat0000755000175000017500000003577010771740460015507 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] ce.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] ce_k.amp !Q%%%%%%%QpqUA3Q.R4G@|P0MR:\Gc,8]R@C\N+b'RDJ[@KHNRFjS|4)fRHD,YG[MRH.ZJv+PRF+KLe0; !RB;umV%NR,>uk !R\?ZYcFORX)1iFo^RRRwYWc;RN1i\.0RRJIEmn@NRF2:r>5KRBmq:Tf'R@*/`kMLR:s)Z?Q_ #% [ 59] ce_k.phase !S7*dz)R%S;>88DR%S?K{uVR%SCSiiI%%SGU_MzR%SKQR))R%SOG::[%%SS6XT;R%SUyVV)R%SY[/Tc~~ !S]4oG_R%S_^Q>7%%Saxj+hR%Sclq^2R%S]^g{H~~SQvIqzR%SSHi0c~~SUB';R%%SWATc~~~SYAHzzR% !S_4J0;R%Sapa+hR%SeJFxc~~Si3'l.%%SkigFhR%So7Y;)R%SqX1&DR%SsqiQ-~~Sw,jL2R%Sy>dEI%% !S{MO|hR%S}YFlVR%T-X5Z:2RT-arGG7%T-k9OD)RT-t0^g2RT-|G0Sm%T/)m<,_RT/05C{I%T/58JXhR !T/<`?[EIT/A-={0dT/F~rj7vT/N}BdINT/Y)w@)*T/e*26rqT/r?+|hRT1%s;1[%T13GYK;RT1Z`RADR !T1t@2j@%T33KR~.%T3Ji'l.%T3aOsp[%T3wQ`];RT52\uRMRT5Ftqf;RT5[wC>_RT5pT^g2R #% [ 59] ce_k.caps !ST~8Td%%ST}(o;R%STyLJm%%STsP[MR%STk9';R%ST`cB;R%STS|lVR%STE2f;R%ST4@IMR%SR{Vj?~~ !SRfyNqR%SRP]+?~~SR8bshR%SPy;nDR%SP^Au.%%SPB&(2R%SN~EuVR%SN_K/DR%SN?2)R%%SLwXD)R% !SJc||hR%SHds|hR%SFeJ4?~~SF<~NH~~SDxv9;R%SDT7qzR%SD(9G_R%SBP7mu~~S@sQJDR%S@8|H.%% !S>UTx;R%ScVR%S6m@12R%S6&zj?~~S4:i}_R%S2O@mu~~S0e2=hR% !Rt1Ey[%%RRkDj@%%R4uMZ.%%R1:cRMR%RME?vu~~S3VlB;R%S9xNU2R% !S?1iY6~~SC7%mv%%SG'(*H~~SIo(*I%%SMVpFhR%SQ.mQVR%SS^<];R%SW0mADR%SYQx/DR% #% [ 59] ce.rep !S8])b6~~S8]v9;R%S8`MrH~~S8ddY_R%S8j`I%%%S8r:&DR%S8{KKd%%S:,>?.%%S:8^&DR%S:FWuVR% !S:Uz~VR%S:fp{H~~S:y2R%%%S<2o|@%%S50x;R%S>OUNqR%S>k>?-~~ !S@lm~-~~SBZM~VR%SDKUo;R%SF(k[MR%SF^|\DR%SH?%v%%%SH{=`I%%SJ_[ADR%SLEsxc~~SN-m~-~~ !SNq>WH~~SP\1*I%%SRH6vu~~ST5E4hR%ST}M=hR%SVlGwl~~SX\-nm%%SZLJHVR%S\=G?.%%S^.ox;R% !Sb9K?VR%SfF>k_R%SjTmem%%Snd]?VR%SruU>_R%Sx-<4hR%S|?]G_R%T.VU:[%%T.jR9;R%T0LT/DR% !T0t\`qR%T2Bp2R%%T2k->7%%T49DIu~~T4aboc~~T60';R%%T6XIADR%T8&kG7%%T8O3M)R% #% [ 59] ce.lambda !S6K(NqR%S6Kmel~~S6N(6VR%S6Qeu.%%S6Vo3I%%S6]@EI%%S6e(VzR%S6m~-~~~S6w~JDR%S8)%qzR% !S84wP_R%S8AZF@%%S8Nsxd%%S8\bshR%S8jv=@%%S8yPO@%%S:.[MR%S:BL.MR%S:U*mMR%S:lVvMR%S<-q^2R% !S6Gwm%%S>[M-VR%S@(3eDR%S@PCVzR%S@yqb6~~SBJQrqR%SBv6nl~~SDHo[v%% !SFb0x;R%SJ%u6.%%SLGFlVR%SNl&du~~SR9FpZ~~STc3a?~~SX5&HVR%SZbn,6~~S^8@qzR%SfuaL2R% !Sn,r0c~~StB;vMR%Sz[?fc~~T.Zs'kih6RBFvz:~_RDcwTrY7RFv'a>*) !RJ+{s(RvRL@6_0G`RNaHAoZ>RR/6=29dRT>?J'dIRTs@a8GhRTsk7Igg{R:bxOkWX #% [ 59] ce_l1.phase !S/t4X?~~S5-2MzR%S99(NqR%S==b&m%%SA:}od%%SE0^g2R%SGx=xd%%SK];-VR%SO8U.MR%SQbfG_R% !SU%9_zR%SW0t[MR%SY&@MQ~~SY[AhzR%SYv8(2R%S[&;~VR%S[/0;Q~~S[AhzQ~~S[b6ZVR%S]3_b6~~ !Sa+\DR%%ScJsP7%%Sepn(2R%SiL.))R%SkyXX@%%SoBDnDR%Sq_8u.%%SsvvIMR%Sw/[Y_R%Sy>dEH~~ !S{I@UZ~~S}Ojxc~~T-Va~jhRT-_iy6VRT-h]NU2RT-q0w(2RT-y2\y2RT/&RVnDRT/-&@MR%T/2Jw0;R !T/;Pc~ZVT/A3z>{qT/GJ/L[%T/OABW([T/Y9+}{rT/d|{y[%T/qyfh)RT1%G1g2RT12qo|@%T1Yrcfd% !T1sM[em%T32fMf;RT3IsX@%%T3`h]h)RT3vibwm%T51rF3qRT5F:ufd%T5[2,C2RT5oq(c.% #% [ 59] ce_l1.caps !SVanXhR%SV`L_)R%SV\=7v%%SVUK7MR%SVKz=hR%SV?wdu~~SV1Jl~~~STz\0;R%STg`wm%% !SJw\l~~~SHte4@%%SFs9/DR%SFHk2zR%SF(YG7%%SD\*}_R%SD.vmv%%SBV%))R%S@xiZ.mv%%S43qR%S2R]c~~~S0hGshR% !RtMZRMR%RT&?:2R%R6&dv%%%R17XpZ~~RMEviqR%Rifl.%%%S-vIqzR%S1=qnDR%S3VD9d%%S9xYO?~~ !S?1iY6~~SC6tshR%SG'/DQ~~SIo+dMR%SMVlfd%%SQ.tk_R%SS^@=@%%SW0mADR%SYQ{iH~~ #% [ 59] ce_l2.amp !Q%%%%%%%Q6&vh0zbQDd>}dLcQRdi5E4hQ^_FJ:N)Qh0;3MycQl_'Q7emQl[V7{~NQfBn]MAmQXV&(1(k !QLO+uw93QfmgPC^;R2s{a>vZR>*(D}Y'RHYz5Hv-RP8vvZ8URJbe6~i1RRJ=b5G7RX+]Uml>RZtBD.xLR\wo`}n,R^V'd3Y7R^pKk-|4R^{UoVpG !R^{[pp<]R^k0(XBLR^;)Ad\QR\EVbQ|XRZ0Un%{aRVWfA;Z.RRdt|=IfRNgs]&>'RJlFsi@vRFyE_lIV !R@|VjpP+RB-QR4DNRD~FPI9~*2fRXn>0&{~RZyWm,BhR\=(&iA@RZYY5W[9 !RVlj7@^DRT2/Psw,RP-MO3qRRL%vvs%=RHT.LDgDRDMsZq~{RB7z09Y9R>u;H[5%R<WH~~S]9fKd%%S]i+L2R%S_YshQ~~Sa_%qzR% !SiX0[v%%So@n@MR%Ssmw8DR%Swym9;R%S{qiuVR%T-WKlRMRT-e{\q)RT-sEGk_RT/%yT/DRT/1eqrI% !T/h7ahRT5OAFxd%T5_omem%T5pk[MR% #% [ 59] ce_l2.caps !SH4=|hR%SH2yc-~~SH/&0;R%SH(M^2R%SFyG2zR%SFms|hR%SF_}g[%%SFOoG_R%SF=Sq)R%SF)6)zR% !SDlw@MR%SDTr4hR%SD;-zzR%SByiY6~~SB\xC[%%SB>]t6~~S@y%12R%S@X+hR%%S@5qf;R%S>lJDQ~~ !SgZ~~S:Tg_)R%S8Wh5_R%S8,QB;R%S6d9_zR%S6>|;zR%S4r4D)R%S4JWU2R%S2|]WqR%S2T47u~~ !S2*`,_R%S0YI9;R%S0+b&l~~S.T{,_R%RtXft6~~RhQgRv%%R\2X+hR%RNZI12R%R@um57%%R42&`qR% !R7TsH-~~RW5-b_R%Rs=^FhR%S/6jhR%%S1Hvu~~~S3[IqzR%S5pUg2R%S9+=3qR%S;:qb7%%SA=UNqR% !SE7j;zR%SI,7mv%%SKd\P_R%SO>BCZ~~SQpN(Z~~SU8w0;R%SWW:Jl~~SYuLk6~~S].9;R%% #% [ 59] ce_l3.amp !Q%%%%%%%Q6/Yj*\MQDttV3NaQR|>&HVRQ^|\LSdvQhRQw,j(Qn,bvibxQn0rU]R~Qf~|}P.vQZMIJptx !QNM--ap[Qfit=[riR2kd@jFuRrpWWe{RUk7%%S5-eP_R%S7q^c.T/qfZPK;T/w@YTWrT/{p*:JmT/~~].13 !T1'%G.-.T1%rJP;)RT1HH[iqRT1S5^>_RT1^S1s@%T3%\712R !T3:[(_)RT3OyZ6.%T3cWZJDRT3vVg*I%T5/9,.v%T5A&BOhRT5QUqb7%T5b@2j@%T5s4`H~~ #% [ 59] ce_l3.caps !SH4=|hR%SH2yc-~~SH/&0;R%SH(M^2R%SFyG2zR%SFms|hR%SF_}g[%%SFOoG_R%SF=Sq)R%SF)6)zR% !SDlw@MR%SDTr4hR%SD;-zzR%SByiY6~~SB\xC[%%SB>]t6~~S@y%12R%S@X+hR%%S@5qf;R%S>lJDQ~~ !SgZ~~S:Tg_)R%S8Wh5_R%S8,QB;R%S6d9_zR%S6>|;zR%S4r4D)R%S4JWU2R%S2|]WqR%S2T47u~~ !S2*`,_R%S0YI9;R%S0+b&l~~S.T{,_R%RtXft6~~RhQgRv%%R\2X+hR%RNZI12R%R@um57%%R42&`qR% !R7TsH-~~RW5-b_R%Rs=^FhR%S/6jhR%%S1Hvu~~~S3[IqzR%S5pUg2R%S9+=3qR%S;:qb7%%SA=UNqR% !SE7j;zR%SI,7mv%%SKd\P_R%SO>BCZ~~SQpN(Z~~SU8w0;R%SWW:Jl~~SYuLk6~~S].9;R%% #% [ 59] ce_m1.amp !Q%%%%%%%QLt|_05KQtK|X|1oR0on],SDR4]:|\DRR8@QSYWIR:s(^&VfR>CF7fc6R@iatCloRD=N\cxT !RH1t7R6oRN%472X,RX5[}UcwRjyo6;[fS.X4F`|(RxQ|2H>7Rh>c7g<9R^W^yA>KRZ:JB10tRX::bsYx !RX]CZkAURZZ?XWuVRhWBbu0LRt6Z=rGGR|(Oz7ZNS.TD{Z{WS.^KAcAqS.c1hBGrS.d2_WuDS.cn>MO\ !S.aA(U-7S.[4[XLtR~bG5;U;RzifikRVRvE)k\N]RpYXsTuoRj[t=l]lRdc.U2U_R`%D:uu>RZ[MwB9t !RR`rrOP7RPXgUvNARR3<&~`9RT]Zs(,]RXabtwLWR\oQO)AmR`Ihv+3jRb'jWADoR`sQOso2R^;%)c:A !RX|m*PDXRT|Mc6{>RP_CR{otRLIcjA1*RHm0<}Z(RD`-&+0JRBHK]14TR>aNhxU9R:\h*9bN #% [ 59] ce_m1.phase !S/-YC2R%S3@m-.%%S7MR%%%%S;Sb*qR%S?SJXhR%SCLwhzR%SG@KOhR%SK.D5_R%SMq/}6~~SQUPO?~~ !SU4ywDR%SWfRY_R%S[)F`H~~S[c)1[%%SYz~2)R%SWt::Z~~SWq|/m%%SYGV~VR%S[,0Sl~~S[nl6-~~ !Sa(nq)R%ScK=xc~~Ser9[u~~SiKX`I%%Skw][u~~So>z^2R%SqZf?VR%Ssr,_Q~~Sw*Na@%%Sy8op2R% !S{B?zzR%S}G=P7%%T-UZap[%T-^Tia@%T-g:LJm%T-o]bG7%T-w\/(2RT-~|Iem%T/+WnaTWH~~SPH0Kd%%SP&e@MR%SN^,oc~~SN:7EI%% !SJz%qzR%SHvgJm%%SFuMZ-~~SFJxCZ~~SF*TCZ~~SD]qEqR%SD0X;zR%SBWY7%%%S@z<0d%%S@?;EqR% !S>[M-VR%Sk_R%S4>yJl~~S2SE@u~~S0i+pZ~~ !RtS][u~~RT*oOhR%R6)&`qR%R17?B;R%RMFZfc~~RigHjhR%S-vIqzR%S1=n4@%%S3VR6XqtV5`RL',J=`%RfA&XD)RRfvbBIKtRZig3+'dRPmZ>\UwRJ9++m[=RDRoTnqr !R:Av2?_nR6[t9kjqR<&+=@|PR@2}mKt7RBa&%DWIRF{{8;lBRHtTVH>7RJ`KbtHoRLDO,tx7 !RN&-7RPCRNT1vriIRNf[4v'LRNW)whs8RL},%x]xRL)%/[~.RHk;wR=@RFDKODk/RBsyQprvR@Nc=sp[ !R<Y'RJZC|mtKRP9zqJyARTAHS@{+RVT1JD\8RV~:}+v=RVz|T|0B !RTYd&DaARR9U/aB2RNL)W?+\RJVhIk*qRH6u>[ghRD:^]?)aRB,=)~G6R>l6aE97R7%SaEvbWI%SanmIMR%Sc0IOT;R !Sc;4b&m%Sc,_z-VRScGtP.v%Se*RADR%Sex5K;R%SgxC6VR%Sk)&`qR%Sm;Zvu~~SoSIEI%%Sw;.iqR% !S{\`qQ~~T-[,X\DRT-o&>&m%T/(IREI%T/;2)-VRT/M9UJm%T/^,z^2RT/nzf_zRT1&5A0;R #% [ 59] ce_m2.caps !SH68y2R%SH4t_R%%SH0wLZ~~SH*DzQ~~SF{>O@%%SFod%%%%SFaj/m%%SFQX/l~~SF?5?.%%SF*mqzR% !SDnQNI%%SDVHb_R%SD<^NqR%SB{mh^2R% !SBCZ~~SQpN(Z~~SU8w0;R%SWW:Jl~~SYuPK;R%S].9;R%% #% [ 59] ce_m3.amp !Q%%%%%%%Q8Sz_EqRQJ`GA8~oQ\&l5FH.Qj8GzVrIQte?.@CGQz~8oq|TQ|IAQVJeQt|E\k8]QdeQ\He, !QL7(C[>SQ^SCcyM^R63Ae/bORJLjX4d)RdXt81*IRf>2{,PxRZ?*JkG7RPJB2L}'RHrgW,3iRD2Zmb(& !R8qHDbx\R6'18NU{R:9F){H6R>9An\m%R@^nYXr9RBu(c+,WRDx,SK*QRFs:KMAmRHc+vC0tRJK?OKYO !RL15gu:{RLcYUFhRRLywUx,/RLn_LRgKRL>1>1yGRJH%(L-_RH3ZkM6NRDj(e=FPRBBXwYHoR>yix5K; !R:k;3k.-R<3S,e?:R@&bq=KDRDI6~5FHRJ+2ZDCzRNchiF@|RRj`,407RT}IIhvyRVMxhB85RVRAdM'f !RT9_A5gjRPxOmQKXRN6JbX,[RJG:{y?aRH*Z5*bxRD1SnQi&RB&i8.MaR>h;t\&URR12RT/OA}[MRT/`1hj@%T/q9ys@%T1(LdADR #% [ 59] ce_m3.caps !SH68y2R%SH4t_R%%SH0wLZ~~SH*DzQ~~SF{>O@%%SFod%%%%SFaj/m%%SFQX/l~~SF?5?.%%SF*mqzR% !SDnQNI%%SDVHb_R%SD<^NqR%SB{mh^2R% !SBCZ~~SQpN(Z~~SU8w0;R%SWW:Jl~~SYuPK;R%S].9;R%% #% [ 59] ce_m4.amp !Q%%%%%%%QHR~^[V8QlezO8Y|R0ULw/KsR4^bC[1iR8k~*VmzRk9?aL2RBDR>Dk&Z)2R>J6S{o+R>(\BW([R<9qlPodR:-0-9R5R6c4f8J} !R0Lka7neR0_k~1m^R6g-Zx}ER>1zGR@m|60kkR>_U1JAwm%%%S]hzQ~~~S_{,_R%%Sa{I%%%%Scx+@%%%Sexl-~~~Si)^2Q~~SkB_zR%% !Sml>6~~~SqD%MR%%SspNqQ~~Sw4D)R%%Sy@mv%%%S{;MzQ~~S}'/DQ~~S}]G_R%%T-REmMR%T-T';R%% !S}-6.%%%Sux+?~~~SsjlVR%%Ssor4hR%Su9`DzR%Suga+hR%Sw@v%%%%SwzcJDR%SybsD)R%T-RC\\m% !T-_m8L[%T-n,,*qRT-{Vj@%%T/.s[z)RT/<'sH.%T/H~=H.%T/TwE@v%T/`Nw4@%T/lYQfd% #% [ 59] ce_m4.caps !T07h9c~~T08'h)R%T08m%%%%T0:&DR%%T0;alVR%T0=d))R%T0@%mv%%T0BSm%%%T0E+L2R%T0G]+?~~ !T0J)j?~~T0L>;)R%T0N97MR%T0Ot_Q~~T0Q1_)R%T0Q~6-~~T0RL>_R%T0RSXhR%T0R2j@%%T0QK3I%% !T0Lq=hR%T0G8\l~~T0AD-VR%T0?_%MR%T0>*qR%%T0;alVR%T08{Y6~~T06,k_R%T034D)R%T00C6VR% !T0-YC2R%T0*zIu~~T0(LJl~~T0%xKd%%T.}N,_R%T.zvMQ~~T.x9t7%%T.uALZ~~T.r6jhR%T.np:Z~~ !T.eE@u~~T.Z~6-~~S~s`H~~~S|s1o;R%S|%]?VR%Sz9f';R%SxM)R%%%Sv[L>_R%Stg.qzR%SpOb&m%% !Sn1^:[%%Sjh>{qR%ShWQ.%%%SfN@QVR%SdA+H-~~SbAWyZ~~S`FDrH~~S^G}O@%%S\TV9c~~ #% [ 59] ce_m5.amp !Q%%%%%%%QH/Nt4y.QjFehT),R0>D9/zMR4EX8-rMR8Yk-ZCVRnuS4W7DYFHS2=1x?*iS0H4db^cS.h)~O7v !RhlD>,'7RZ[5vksiRVv4uSR=RRnr*];RRNFeX_GtRHq/Gz6*RD^B9*XHR@{o.((GR>Y+}k,OR4o?]l.R>:n0[XqRDY[<@g{_&K !RT4A>aa&RP{k&THaRN=Xc0h1RJI`Y:v&RH)H]_gwRD-o:`5WR@nG(hL)R>]xj:YaR_Q~~SY'Sl~~~S[Goc~~~S]qrI%%%Sa)Z.%%%Sc)-VR%%Sc~zzR%%Se~NH~~~Si.QVQ~~SkG.v%%% !Smq1Z~~~SqJP_R%%SswhzR%%Sw;)R%T0N97MR%T0Ot_Q~~T0Q1_)R%T0Q~6-~~T0RL>_R%T0RSXhR%T0R2j@%%T0QK3I%% !T0Lq=hR%T0G8\l~~T0AD-VR%T0?_%MR%T0>*qR%%T0;alVR%T08{Y6~~T06,k_R%T034D)R%T00C6VR% !T0-YC2R%T0*zIu~~T0(LJl~~T0%xKd%%T.}N,_R%T.zvMQ~~T.x9t7%%T.uALZ~~T.r6jhR%T.np:Z~~ !T.eE@u~~T.Z~6-~~S~s`H~~~S|s1o;R%S|%]?VR%Sz9f';R%SxM)R%%%Sv[L>_R%Stg.qzR%SpOb&m%% !Sn1^:[%%Sjh>{qR%ShWQ.%%%SfN@QVR%SdA+H-~~SbAWyZ~~S`FDrH~~S^G}O@%%S\TV9c~~ ifeffit-1.2.11d/src/fefftab/45.dat0000755000175000017500000003577010771740460015503 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] rh.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] rh_k.amp !Q%%%%%%%QRp3A~JDR.R[OvF)R2\WPPZ_R6X?%]8RbeEq6`]RbR8)}pDR`y9y2JeR`%W?n41R\pKbM5%RV9AFG0T !RPW7H')TRL2M5?|FRFv]FXB6RB|)lQj~R@&&FKbYR7%T3kg2vMRT3|TFL2RT56>I9;R #% [ 59] rh_k.caps !S4x|dMR%S4x(s?~~S4u4+hR%S4pK[v%%S4ikod%%S4aB';R%S4W(6VR%S4JxCZ~~S4<~NI%%S4->7%%% !S2ukWH~~S2bK;R%%S2M3];R%S25~b_R%S0viqQ~~S0[God%%S0=kC2R%S.wh1Z~~S.U/`qR%Rx5pwDR% !RXPOdMR%RBU^:[%%R:_+/l~~R2v2EqR%QN^7iqR%Qk13@u~~R7aol-~~RE7%%SA?/\m%%SCh)vMR%SG13@u~~SILB?VR%SK_~zzR%SMnF/m%%SOz'+?~~SW4F+hR% !S[+mEH~~S]qyc.%%SaW^NqR%Se0k?.%%Sg[o/DR%Sk)oWqR%SmIcF@%%SoctshR%Sq|&P_R% #% [ 59] rh.rep !S6IvIMR%S6JwTc~~S6M~VR%%S6S*4hR%S6Z.IMR%S6c1:[%%S6m~-~~~S6zd]d%%S8/7UZ~~S8?EuVR% !S8Q5cVR%S8dY_R%%S8yT/DR%S:6%-.%%S:Mu^Z~~S:g?)zR%S<(1c-~~S'WqR%% !S@9-B;R%SB*U{I%%SB`XH-~~SD=c:2R%SDxY*qR%SF[uZVR%SHALZ~~~SJ(|7v%%SJl:VzR%SLW)Iu~~ !SNC6VR%%SP0W(Z~~SPxx_zR%SRh:.MR%STXDMzR%SVI/0;R%SX:T/DR%SZ,Jq)R%SZxp{H~~S\k]t7%% !S`y8}7%%Sf.S4?~~Sj?.%%%%SnPg[%%%Src2MzR%Svv3}_R%S|/a;zR%T.U,&m%%T.i,_R%%T0K@iqR% !T0sWuVR%T2Ara?~~T2j3M)R%T48URv%%T4`wXhR%T6/?^[%%T6WeDR%%T8&1*H~~T8NVj?~~ #% [ 59] rh.lambda !SJ0?zzR%SJ2Pk_R%SJ9)=hR%SJCk6~~~SJRI))R%SJdV%MR%SJyfC[%%SL7G&l~~SLP|`H~~SLkk_R%% !SN-:{I%%SNH\}6~~SNcDb6~~SN|zAl~~SP;%MR%%SPQEQ.%%SPe|lVR%SPy4T;R%SR1[%%%%SRD=D)R% !ST8edu~~SJNOP7%%SFw/(2R%SF9lRMR%SF'X;zR%SF-|3qR%SFDM1Z~~SFfK?VR%SH7/0;R%SHhb[MR% !SJE|'d%%SL'}wl~~SLh-zzR%SNQjhQ~~SP>[qzR%SR.>.v%%SRzR%%%%STn~%v%%SVe`qR%%SX^>_R%% !S^&[~.%%SbR`0c~~Sh-7em%%Sli?>6~~SrR-vu~~SxA.9;R%S~5cVR%%T.e(2R%%T0%xKd%%T0y/09t6~~ #% [ 59] rh_l1.amp !Q%%%%%%%QP%0C&S,QxL@Q0Z>R2+_O-?&R4qVV)A5MS]R@)\VFv=R@tpM;T' !RBXb.{otRD/Vw&TdRDU~{iI%RDqwKaT`RF,\]DXPRF75-a6>RF;~:5)^RF8VA+H.RF13ee@NRF%J(1(k !RF*%8X{R,(ekR}R:=Pk=:CR8C`\`rS{Ag_rI%S{uKI=@%S}QF5*qRT-Ry)o|@ !T-X2:K[vT-\a0_V*T-`*52zRT-aknu.%T-aQyg2RT-_24'd%T-[O7-.%T-Wqd9;RT-UN_=hRT-Tc'Sm% !T-X]bk_RT-b4n4@%T-o)6NI%T-}V.EI%T/2DD^2RT/@]Y*qRT/N;i,_RT/[_38m%T/i+OlVRT15.0h)R !T1M(c-~~T1cBU&DRT1xXC:[%T33lb;)RT3FcVQ~~S4.v%%%% !S2wEeDR%S2cx/DR%S2N`Q-~~S27J_R%%SK_{@u~~SMnF/m%%SOz*eDR%SW4F+hR% !S[+mEH~~S]qyc.%%SaW^NqR%Se0k?.%%Sg[o/DR%Sk)oWqR%SmIcF@%%SoctshR%Sq|&P_R% #% [ 59] rh_l2.amp !Q%%%%%%%QR/=N*U{QztZd>i9R2/6Hm~.R4Zt7b:;R6cO;.bWR8GpCgA,R8cfsMxtR8a~g.MRR8G.=R9< !R6rgQR;>R66r~Bg;R4MoQ+BLR2baD1SeR0y;R_AmR0;liB6_R.`]S&Y,Qx_nDebOQpLTR,nQQh]k7M-V !QR5sk=A]R0JD-^d/R6k*~(Q>R@7L+Bp3 !RFv\gbjqRNnV(*|(RT[]n@+:RX@0;91dRZ44NaEpRZUcoyK7RZSNQL\]RZ+yPoa-RXAMktgLRRZ9[[rt !RNIp^q76RJ>=+*oHRF=W?PU-RBT~KNmyR>dXMSScR9';R%S_^nLZ~~ !Saw'CZ~~Se-?nl~~Sg41&DR%Si0bG6~~Si}.QVR%Skdi(Z~~SmBx_zR%Smu{DzR%SoOe`qR%Sq1nq)R% !Sy`:Jl~~T-^geTd%T-nhYcVRT-}v56~~T/0h%qzRT/:gZZVRT/B[ndv%T/I'wL[%T/NcPod%T/St)9d% !T/XWImv%T/\McJDRT/_:.MR%T/`:R-.%T/^NqR%%T/XN`Q.%T/N2>2zRT/C5Y&m%T/;g]Kd%T/882=hR !T/8wXD)RT/?\n\m%T/I7zrI%T/T;8P_RT/_kaxd%T/k&m%%%T/uiMrI%T1&;_xt7T10g@lb_T1NDrP?. !T1a?Z5cWT1r|3EiIT3)_-lF@T3:i<([%T3INH6.%T3Y[>wm%T3hB|dMRT3v'e8DRT5*^o_zR #% [ 59] rh_l2.caps !SZ)oWqR%SZ)@57%%SZ'ia@%%SZ%8(2R%SX{bwl~~SXw2b6~~SXq^{H~~SXk3iH~~SXchf;R%SX[F7u~~ !SXR)rI%%SXGj'c~~SX.v%%SV\lZVR%SVJXD)R%SV6I12R%STy{mMR% !SRwJ}6~~SR68Td%%SR+3M)R%SP}&m%%%SPhf_zR%SPJp_)R%SP%N@u~~SNT>g[%%SL~Xxc~~SLKV9d%% !SJp;Iv%%SJ9U&DR%SH\4@%%%SF~iy[%%SFH%u~~~SDl9CZ~~SD7rDzR%SB_/4?~~SB.'Kc~~S@XbK;R% !S>BC6VR%Sk_R%%S0903I%%Rz?'Sm%%Rfdo/DR%R.xlvv%% !R;T;-VR%RY`U{I%%RwF%=?~~S/P7mu~~S1flvv%%S3|&,6~~S7/XD)R%S97`U2R%S;?5cVR% #% [ 59] rh_l3.amp !Q%%%%%%%QPn0FY=PQz@q.bWIR2('vA~oR4RmYflR0t/'`iIR08(,9hrR.^AR_=KQxVqX0qjQpNx`iimQhf=y|nY !QPXCcrTDR0;[xtCiR6W&+Vb7R>}J{<([RJ>=qB|dRTcz/T&(R^7mlZ]lRbw2@Fc_RdWu^SdvRbK|**1S !R\xrK7>xRVTP?qlgRN_v_Y0TRFc^+EGlR@,G@OxdR:Aa)Uq>R6vafGflR8)T)`&4R:?Qj(~NJN9 !RFeMMV)RRN[0Qgp*RTG_r_aORX,zC|jXRX|GbW=CRZDT::^_RZBlRie/RXv8r%/vRX3s&NU:RRRb9t0, !RNCA~&gNRJ:Y2iz`RF;\aHZpRBS-;|aFR>cyJ'G;RYod%%S[\T?VR%SYNI%%%%SW9Z>7%%SUHo[u~~SU%ahQ~~ !SU,tWI%%SUoYshR%SWtWH~~~S[.ZrqR%S]H2)R%%S__Co;R%Saq't7%%Se%\fSm%Sg3\f/DRSmNbL*I% !SqXJuRMRSuSy9l.%SyH>j'd%S}?4P6~~T-Z:HF@%T-jWBSm%T-y9w(2RT/,sw,7%T/;eL[%% #% [ 59] rh_l3.caps !SZ)oWqR%SZ)@57%%SZ'ia@%%SZ%8(2R%SX{bwl~~SXw2b6~~SXq^{H~~SXk3iH~~SXchf;R%SX[F7u~~ !SXR)rI%%SXGj'c~~SX.v%%SV\lZVR%SVJXD)R%SV6I12R%STy{mMR% !SRwJ}6~~SR68Td%%SR+3M)R%SP}&m%%%SPhf_zR%SPJp_)R%SP%N@u~~SNT>g[%%SL~Xxc~~SLKV9d%% !SJp;Iv%%SJ9U&DR%SH\4@%%%SF~iy[%%SFH%u~~~SDl9CZ~~SD7rDzR%SB_/4?~~SB.'Kc~~S@XbK;R% !S>BC6VR%Sk_R%%S0903I%%Rz?'Sm%%Rfdo/DR%R.xlvv%% !R;T;-VR%RY`U{I%%RwF%=?~~S/P7mu~~S1flvv%%S3|&,6~~S7/XD)R%S97`U2R%S;?5cVR% #% [ 59] rh_m1.amp !Q%%%%%%%QFjgP8d-Qh(Mkh0HR.p5'qIRR2:hx0`]g; !R<|mi&)FR>Z>^zKTR@2H^QT+R@^\Iwd-RB-e3C}'RBQVd`\MRBpYOzAmRD2gR[H:RDK~@XZgRDdSA:X} !RFk>M:p*RR;9nXD)R^=}Y`H6Rlh[C|c_R|u?%u~~S00%P\@)S0[c;K-uS0gt*T&,S0VyjUVRS01eT]j( !S.Zi'dFURt|'L6p&Rj,ehkwmR^c;.34hRVI\U'3RJdUE*1SRL*:pCwERN%IIJYW !RTD[-SvfRZKg6Z2)R^Q|t?K3R`S(`N)vR`kgbaV,R``1G`?MR`3S>QShR^=}S-v-R\3KFRr/RTgz0cDb !RP3\uzHyRJq|dOB'RF_DF-F@RBjo;j*1R>rSR;VURFH.%T-b[,cVRT-o@S}7%T-}fsH.%T/2U/`qRT/@oLRv%T/NLtwm%T/[nO'd%T/i:k[MRT15Bv]d% !T1M6G{M*R4-a6y;JR2zZ;tsDR2p'C8gCR2dz^XIfR2Ux'2hbR2?pz(TT !Q|w\aC:[Qj_b(Jm%Qb&Bi6?&QtS-1>'F(RF9x(fUoRL)atrMrRN=(*8{YRL~0_h=i !RJWGZtO@RFE.[IcFR@c8^4xdR:udqQaqR6>n0i*]R2?GD%IrR0N32todR0~43([%R4F^=r*9R8,8RtdE !R@OrU{I%RH?TGEB[RN8O.3@JRR3wmaR^RTD\PLpHRV*atA4]RVGmeu3pRV?^5xIARTr`=qu_RPpEbE'= !RLyDJW]vRJ%cl)yjRF/W_7w]RBMEIVXPR>`k`A]\ReXhR%SsMeLZ~~S{02~VR%T-pyk6~~T/2\({I%T/?xt[MRT/H(}&m%T/Mvj`I%T/Rq-zzRT/WGCVzR !T/[N'G_RT/^}sD)RT/aM/}7%T/b,e4@%T/_Um]d%T/WKe8DRT/I2Pk_RT/;D^2R%T/3`n.v%%SV\lZVR%SVJXD)R%SV6I12R%STy{mMR% !SRwN];R%SR6G.u~~SR+P[MR%SP}K;Q~~SPi-NI%%SPK3mMR%SP%kO?~~SNTT[u~~SL~k2zR%SLKhMzR% !SJpM^2R%SJ9cZVR%SH\Bt7%%SF~xSm%%SFH4P6~~SDlKWqR%SD8&y2R%SB_=hQ~~SB.6%u~~S@XmEH~~ !S>BFpZ~~Sk_R%%S0903I%%Rz>ryZ~~RfdY;)R%R.xa|hR% !R;TBG_R%RY`dU[%%RwF07MR%S/P7mu~~S1flvv%%S3|)f;R%S7/XD)R%S97`U2R%S;?5cVR% #% [ 59] rh_m3.amp !Q%%%%%%%QJg&cC@=Qn8ziK=0R01h*`;:R2EW3EpcR4;]0R&]R4nadj`IR6.^vI7^R63m=AN9R6)sF`[9 !R4pCqmriR4Y4893IR4Ag+FP7R4-\`pjHR2x5G:_)R2lX_VMzR2cmpvNAR2ZS1bT|R2M6XA?_R28Ya[U[ !Q|I%0`iIQh.@e^JmQ\8jMI0hQnvEN\6gR4K-4L62R>&+fv''RF4I+,/@RJ}KH5\I2RPc{/tFH !RLoX{vNtRHykxs6;RF+sp_wsRBJQJcd/R>_ZM|_wR(bQR:%(J)=pR6_El-4_R63c'6~~SS%EH~~~SUL{H~~~SWih5_R%SY|X?~~~ !S]*}_R%%S_)tK;R%S_ya+hR%Sagat_R%ScO7QVR%Se2mUZ~~Semn@MR%SgMB7MR%Si+UNqR%SibFlVR% !Sm=-jhR%SsFol-~~S{2~2)R%T-tsD)R%T/64mEI%T/Bx\@MRT/JeVAm%T/PG/dv%T/U6RqzRT/Y[n@MR !T/]^r,_RT/a-Iz)RT/cZ@]d%T/d=Us@%T/aqXP7%T/Yk0/DRT/K4g>_RT/<|L2R%T/50(*I%T/2;:Rv% !T/4Qv-.%T/;y0+@%T/EqJdv%T/Q0V^2RT/\zTKd%T/hZ-~~~T/s_w[MT3;X3([%T3JKsH.%T3ZyyFhRT3ihVMzRT3wX9/DRT5,df7MR #% [ 59] rh_m3.caps !SZ)zR%%%SZ)K/DR%SZ't[MR%SZ%B|?~~SX{mqzR%SXw9|@%%SXqf;R%%SXk;)R%%SXcp&DR%SX[MR%%% !SXR12Q~~SXGmahR%SX.v%%SV\lZVR%SVJXD)R%SV6I12R%STy{mMR% !SRwN];R%SR6G.u~~SR+P[MR%SP}K;Q~~SPi-NI%%SPK3mMR%SP%kO?~~SNTT[u~~SL~k2zR%SLKhMzR% !SJpM^2R%SJ9cZVR%SH\Bt7%%SF~xSm%%SFH4P6~~SDlKWqR%SD8&y2R%SB_=hQ~~SB.6%u~~S@XmEH~~ !S>BFpZ~~Sk_R%%S0903I%%Rz>ryZ~~RfdY;)R%R.xa|hR% !R;TBG_R%RY`dU[%%RwF07MR%S/P7mu~~S1flvv%%S3|)f;R%S7/XD)R%S97`U2R%S;?5cVR% #% [ 59] rh_m4.amp !Q%%%%%%%QJOzFgRdQnIsrW['R0C.LuUyR2u`];R%R6@Z)zR%R8XfZojPR:d6.>SDRZydaKD !R@J<';<1RB2a/[RERBo+mxKdRDMS%KwqRF'2{CnMRFV?AnQsRH(e&<^sRHQ*lhmVRHuKD[H_RJ9ga{y[ !RJTg?{:&RRb?GSDRRZ1e7;E)R\y0HNI%R\[RNK.w[dZRFt]L;XPRDDZ2n'DRDRqh=hR !RDojnTFqRDIUd}r1RB*TUNM*RwB4J0Q8&Df9a}QR70bz9dR.\3eA(E !R8|PDk'\RBE@mp40RHjW?m+fRN3~kD)*RPdZYw^KRRbd9>:(RT;a?[^wRTG~B3w`RT/dR}-[RP=AYvr+ !RLT9E1sdRHZ1MitoRDfV2BDyRB*JJ+P0R>='5mzUR:}TMGC^R8^rTN1+R6)>Twl~~ !Sw=}WH~~Sy&bshR%SyU*H~~~Sy\wTc~~SyJQ)zR%Sy4Qnl~~Sy;YcVR%Sy{`,_R%S}1PO@%%T-SZ;EqR !T-Y@x';RT-\2m12RT-]>Qfd%T-]Rvmv%T-]Z6vv%T-^/l6.%T3I8tcVRT3SXV=hRT3]m^Rv% #% [ 59] rh_m4.caps !SpgFD)R%SpgTx;R%SpgyFhR%SphV)Q~~Spi+L2R%SpiHZVR%Spi:&DR%SphNiH~~Spfp{I%%Spd;b6~~ !Sp`_=hR%Sp[zMzR%SpV38m%%SpO6>6~~SpG0x;R%Sp=yRu~~Sp3\(2R%Sp(9l-~~SnuapZ~~Sng}oc~~ !Sn2(c-~~SliBx;R%Sli0c~~~Sln9|?~~SlpNM)R%SlpYG7%%Slo3mMR%SlkpwDR%Slf)b6~~Sl]S/EAR4&HVR%%R6Mo|?~~R8hN=S>'R:vBavw]RqZ-JS, !R@c.nIxLRBMTeEOPRD1do=xdRDkYT+G?RFF8{y=qRFucs1g{RHGd5L1cRHnmCRk+RJ6}]R`zRJRIXz+y !RJas^SsPRRm&v'.VRZ7Q6U%1R\vyWiI%R\2btJ^oRV?swfSmRN:`XB~gRFgh.a.5RD=K;Y?.RDOA4dMR !RDm6y?kWRDFf2SUSRB'KF.~.RR86;.=&QR2?zP8\mQj6RDGshQ8M=zf;RQR_]x=B'R._W?GQT !R:&bJMcJRBJJPDaWRHpZW3J8RN;u[wV|RPo5xgWiRRn:/*4iRTFi-i& !RLUm^dUjRH[bQ(99RDfV2BDyRB(QbX>NR><'Dnx~R:{Wm'Z>R8\Wn>IKR6'buH)OR4)Gagx| #% [ 59] rh_m5.phase !S;L*mMR%S?_3];R%SCkyo;R%SGr([%%%SKr1wDR%SOkWmMR%SS^~:2R%SWKg:Z~~S[2M1Z~~S]lK|@%% !SaEgFhR%Scq]h)R%Sg21[% !T1bI*a@%T1m>OdMRT1x&HzzRT3)F-F@%T338W0d%T3>j.~.%T3IYc2)RT3T*>shRT3^?G.v% #% [ 59] rh_m5.caps !SpgFD)R%SpgTx;R%SpgyFhR%SphV)Q~~Spi+L2R%SpiHZVR%Spi:&DR%SphNiH~~Spfp{I%%Spd;b6~~ !Sp`_=hR%Sp[zMzR%SpV38m%%SpO6>6~~SpG0x;R%Sp=yRu~~Sp3\(2R%Sp(9l-~~SnuapZ~~Sng}oc~~ !Sn2(c-~~SliBx;R%Sli0c~~~Sln9|?~~SlpNM)R%SlpYG7%%Slo3mMR%SlkpwDR%Slf)b6~~Sl] # # This file is free software; as a special exception the author gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY, to the extent permitted by law; without even the # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. .SUFFIXES: .SUFFIXES: .c .f .o SHELL = @SHELL@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ sbindir = @sbindir@ libexecdir = @libexecdir@ datadir = @datadir@ # sysconfdir = @sysconfdir@ # sharedstatedir = @sharedstatedir@ # localstatedir = @localstatedir@ libdir = @libdir@ infodir = @infodir@ mandir = @mandir@ includedir = @includedir@ oldincludedir = /usr/include DESTDIR = pkgdatadir = $(datadir)/@PACKAGE@/fefftab pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = ../.. ACLOCAL = @ACLOCAL@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ transform = @program_transform_name@ NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : host_alias = @host_alias@ host_triplet = @host@ CC = @CC@ CPP = @CPP@ F2C = @F2C@ F2CFLAGS = @F2CFLAGS@ F77 = @F77@ FFLAGS = @FFLAGS@ FLIBS = @FLIBS@ MAKEINFO = @MAKEINFO@ PACKAGE = @PACKAGE@ RANLIB = @RANLIB@ VERSION = @VERSION@ FEFFTAB_FILES = 04.dat 05.dat 06.dat 07.dat 08.dat 09.dat 10.dat 11.dat \ 12.dat 13.dat 14.dat 15.dat 16.dat 17.dat 18.dat 19.dat 20.dat \ 21.dat 22.dat 23.dat 24.dat 25.dat 26.dat 27.dat 28.dat 29.dat \ 30.dat 31.dat 32.dat 33.dat 34.dat 35.dat 36.dat 37.dat 38.dat \ 39.dat 40.dat 41.dat 42.dat 43.dat 44.dat 45.dat 46.dat 47.dat \ 48.dat 49.dat 50.dat 51.dat 52.dat 53.dat 54.dat 55.dat 56.dat \ 57.dat 58.dat 59.dat 60.dat 61.dat 62.dat 63.dat 64.dat 65.dat \ 66.dat 67.dat 68.dat 69.dat 70.dat 71.dat 72.dat 73.dat 74.dat \ 75.dat 76.dat 77.dat 78.dat 79.dat 80.dat 81.dat 82.dat 83.dat \ 84.dat 85.dat 86.dat 87.dat 88.dat 89.dat 90.dat 91.dat 92.dat pkgdata_DATA = $(FEFFTAB_FILES) mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs CONFIG_HEADER = ../../config.h LIBRARIES = DEFS = @DEFS@ -I. -I$(srcdir) -I../.. CPPFLAGS = @CPPFLAGS@ LDFLAGS = @LDFLAGS@ LIBS = @LIBS@ AR = ar F77COMPILE = $(F77) $(FFLAGS) F77LD = $(F77) F77LINK = $(F77LD) $(FFLAGS) $(LDFLAGS) -o $@ CFLAGS = @CFLAGS@ COMPILE = $(CC) $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(CCLD) $(CFLAGS) $(LDFLAGS) -o $@ DATA = $(pkgdata_DATA) HEADERS = $(include_HEADERS) DIST_COMMON = ChangeLog Makefile.in DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) SOURCES = OBJECTS = all: Makefile $(DATA) Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status $(BUILT_SOURCES) cd $(top_builddir) \ && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status clean-data: rm $(MAKE_TEMPS) clean-LIBRARIES: -test -z "$(LIBRARIES)" || rm -f $(LIBRARIES) install-LIBRARIES: $(LIBRARIES) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(libdir) @list='$(LIBRARIES)'; for p in $$list; do \ if test -f $$p; then \ echo " $(INSTALL_DATA) $$p $(DESTDIR)$(libdir)/$$p"; \ $(INSTALL_DATA) $$p $(DESTDIR)$(libdir)/$$p; \ else :; fi; \ done @$(POST_INSTALL) @list='$(LIBRARIES)'; for p in $$list; do \ if test -f $$p; then \ echo " $(RANLIB) $(DESTDIR)$(libdir)/$$p"; \ $(RANLIB) $(DESTDIR)$(libdir)/$$p; \ else :; fi; \ done uninstall-LIBRARIES: @$(NORMAL_UNINSTALL) list='$(IBRARIES)'; for p in $$list; do \ rm -f $(DESTDIR)$(libdir)/$$p; \ done mostlyclean: -rm -f *.o core *.core clean-compile: -rm -f *.o core *.core distclean-compile: -rm -f *.tab.c libifeffit.a: $(OBJECTS) -rm -f libifeffit.a $(AR) cru libifeffit.a $(OBJECTS) $(RANLIB) libifeffit.a .f.o: $(F77COMPILE) -c $< install-pkgdataDATA: $(pkgdata_DATA) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(pkgdatadir) @list='$(pkgdata_DATA)'; for p in $$list; do \ if test -f $(srcdir)/$$p; then \ echo " $(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(pkgdatadir)/$$p"; \ $(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(pkgdatadir)/$$p; \ else if test -f $$p; then \ echo " $(INSTALL_DATA) $$p $(DESTDIR)$(pkgdatadir)/$$p"; \ $(INSTALL_DATA) $$p $(DESTDIR)$(pkgdatadir)/$$p; \ fi; fi; \ done uninstall-pkgdataDATA: @$(NORMAL_UNINSTALL) list='$(pkgdata_DATA)'; for p in $$list; do \ rm -f $(DESTDIR)$(pkgdatadir)/$$p; \ done install-includeHEADERS: $(include_HEADERS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(includedir) @list='$(include_HEADERS)'; for p in $$list; do \ if test -f "$$p"; then d= ; else d="$(srcdir)/"; fi; \ echo " $(INSTALL_DATA) $$d$$p $(DESTDIR)$(includedir)/$$p"; \ $(INSTALL_DATA) $$d$$p $(DESTDIR)$(includedir)/$$p; \ done uninstall-includeHEADERS: @$(NORMAL_UNINSTALL) list='$(include_HEADERS)'; for p in $$list; do \ rm -f $(DESTDIR)$(includedir)/$$p; \ done ID: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ here=`pwd` && cd $(srcdir) \ && mkid -f$$here/ID $$unique $(LISP) distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir) subdir = src/lib distdir: $(DISTFILES) here=`cd $(top_builddir) && pwd`; \ top_distdir=`cd $(top_distdir) && pwd`; \ distdir=`cd $(distdir) && pwd`; \ @for file in $(DISTFILES); do \ d=$(srcdir); \ if test -d $$d/$$file; then \ cp -pr $$/$$file $(distdir)/$$file; \ else \ test -f $(distdir)/$$file \ || ln $$d/$$file $(distdir)/$$file 2> /dev/null \ || cp -p $$d/$$file $(distdir)/$$file || :; \ fi; \ done # DEPS_MAGIC := $(shell mkdir .deps > /dev/null 2>&1 || :) # -include $(DEP_FILES) %.o: %.c $(COMPILE) -c $< check: all install-exec: install-LIBRARIES install-data: install-pkgdataDATA install-includeHEADERS install: all @$(MAKE) install-exec install-data uninstall: uninstall-LIBRARIES uninstall-pkgdataDATA \ uninstall-includeHEADERS installdirs: $(mkinstalldirs) $(DESTDIR)$(libdir) $(DESTDIR)$(pkgdatadir) \ $(DESTDIR)$(includedir) clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) clean: clean-LIBRARIES clean-compile \ clean-generic mostlyclean distclean: -rm -f Makefile config.cache config.log stamp-h stamp-h[0-9]* maintainer-clean: maintainer-clean-LIBRARIES \ maintainer-clean-compile \ maintainer-clean-generic \ distclean @echo "This command is intended for maintainers to use;" @echo "it deletes files that may require special tools to rebuild." .PHONY: clean-LIBRARIES maintainer-clean-LIBRARIES uninstall-LIBRARIES \ install-LIBRARIES mostlyclean \ clean-compile maintainer-clean-compile uninstall-pkgdataDATA \ install-pkgdataDATA uninstall-includeHEADERS install-includeHEADERS \ distdir check installcheck install-exec install-data install uninstall \ all installdirs clean-generic \ maintainer-clean-generic clean distclean maintainer-clean ifeffit-1.2.11d/src/fefftab/83.dat0000755000175000017500000003577010771740460015505 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] bi.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] bi_k.amp !Q%%%%%%%R>Q)F>rS6>\LZqtS4ymh[T@S4VS|sp[S40[UpyrS2dMCuM6 !S0^t3h@ZS07eXhDtS.ylUS_+S45^>gFZS8kgSWk'S:wNY:ATS:uNo;t]S:,EP~ttS6qok}H&RFYFsS+mRHZyB6+X !RRMgGF~kRXX(M+/mRXBX'H?oRTK`_@@1RPSoN'zbRL`c.r=`RHZ*{jFPRF'YYbyoRDu17|mERJxs14Wv !RPLiwW`-RT;+%@8MRV&ys-)2RVHtK;rmRTcI*]?2RR}J8wTdRPUGu[9&RL~Ob%~.T/uPMLBdT1,P`.ahT1` !T5Xm(:[%T5s-F?~~T7,7,?.%T7:)@Y_RT7DxDnDRT7Nee@MRT7Vc)V)RT7[;/4@%T7^/5.v%T7qaDMzR !T9'r}_R%T9;RM-VRT9O)T';RT9bG>?.%T9v:*I%%T;.\u-~~T;Ah*@v%T;Rot[MRT;bk>cVR #% [ 59] bi_k.caps !S5k_R%R~s4`H~~RtVs7u~~Rj%K+?~~R^lHB;R%RTmMR%%%RJpnLZ~~R@qlB;R% !R6m@12R%Qp7}cVR%QAnUwDR%R1nXhQ~~R=A(VzR%RI(Au.%%RS{@-.%%Ra-'x;R%RmM)vMR%Ry|N}_R% !S/}|`H~~S3dEH~~~S7F0[u~~S9x8`qR%S=E;^2R%S?crM)R%SA~o7MR%SE?a'c~~SGZ]l.%%SO:^_)R% !SSGG6~~~SWO`mMR%S[OB';R%S_?*iH~~Sc)-VR%%SehZ-~~~SiC9l.%%Sksd))R%SoH.IMR% #% [ 59] bi.rep !S,~>6~~S>6hf;R% !S>AfSm%%S>Mt&l~~S>[:s@%%S>ikK;R%S>y\\l~~S@0]Sm%%S@By*I%%S@VU:[%%S@kHJDR%SB'YshR% !SBrOP7%%SDR@UZ~~SF?*DzR%SFy-^Z~~SHPNuVR%SJ+LVzR%SJbm=?~~SLBDnDR%SL~)V)R%SNac:2R% !SPG::Z~~SR.Lc.%%SRq2%MR%ST[9;R%%SVFWQ-~~SX2zQ~~~SXzD^2R%SZh^{H~~S\W`uVR%S^GN,_R% !SbNIIMR%SfXDMzR%SjdW];R%SnrSTc~~St'u%u~~Sx8A7%%T60H)zR%T6XfOhR%T8'*uVR%T8OL{H~~ #% [ 59] bi.lambda !Rd%\,6~~Rd'.z)R%Rd+_5_R%Rd352zR%Rd=a7v%%RdK/DR%%Rd[SXhR%RdnhzQ~~Rf*koc~~RfC\8DR% !Rf_2nDR%Rf}E}_R%RhD0l.%%RhgPshR%Rj3DzQ~~Rj[_f;R%Rl,Jq)R%RlY\`qR%Rn/>od%%RnaR]c~~ !RrU)~VR%Rt}K;Q~~Rvtv~-~~Rvki8m%%Rx8'h)R%RxxsH-~~Rzr~)zR%R|{W}_R%S.Sd--~~S._c%v%% !S.lX/m%%S.z16VR%S0.@z)R%S0=)f;R%S0LAu-~~S0[zrH~~S0l'x;R%S0|L2Q~~S23/u.%%S2D-2)R% !S2oV9d%%S4B<@u~~S4oys?~~S6DHb_R%S6sN4hR%S8I0CZ~~S8y6zzR%S:Ob&l~~S<&Su-~~S>`]_zR% !S@jNY7%%SBtyo;R%SF%~-~~~SH1T/DR%SJ=R9;R%SLImQVR%SNVH>6~~SPcF*Q87V !R@G9G.`1RB>~6(40RD,Oqy>`RDh|/z/}RF?qJ\2bRFf~i\L[RH(+g\4dRH:fYp.MRHGzjb~>RHSg.L(k !RJ].FfW)RNa_R9J,RZPUuIU[RpzHgAIES.fj|k|`I%RL6g'T7MRHv|HfQkRF^(DQ.nRDc?7%%%SYo3mMR%S[T*Q.%% !S]pT/DR%S_>;rI%%S_f=/l~~Sa?-ZVR%Sa|yRv%%ScqzvMR%Ser3J8DRSgx>->7%Sk%z%qzRSm+Rh^2R !So-SoKd%Sq*m3}_RSq~P_?jiSsu|U&h{Sun~nl~~Swr'&q)RS{?o|dMRT-dWe~nmT/Kr%mQWT/_]QnHV !T/v'slVRT1,ShzR%T1:cs;zRT1FnMnDRT1Q:at_RT1ZH,G7%T1aq0G_RT1g4miqRT1kWxG_RT3%Xwu.% !T35S9WqRT3H?k2zRT3[m8(2RT3nhCo;RT5(M^2R%T5:qWvUZ~~~S>W^NqR%S>6~ZVR%S0/DR%S?_[el~~SA|e`qR%SE>J(2R%SGY88DR%SO8uvu~~ !SSG-b_R%SWOC_)R%S[NZJDR%S_>yo;R%Sc)-VR%%Seh@Y_R%SiC62)R%SkskC2R%SoG}O@%% #% [ 59] bi_l2.amp !Q%%%%%%%Q.xBXZxxQ8lWX9SmQBW{Na@%QL7*.d`zQTfsv4VbQ^/9,\oLQfLk\\OqQnb^OJTdQvpB'D;B !Q~vM'e\mR.t*KIs}R0:hBT|dR0W.kmw]R0nx5aqJR2%)U|7vR2,KQY}OR2'lZs?[R0o]hU[IR0LILnii !Q^k;hZV.Q.R82v;>R0:aSCk0R>j.}g6VRLcs~EXHRVb[f>g[R\e+7F;VR^|`KIS4R^mt,FVbR\T3()KT !RXHQ&op3RR\2Cm*aRLS36TSIRF?smn93R@1>0SL7R:)hkTmfR47Kw,8C?RLu&1NW #% [ 59] bi_l2.phase !S=qZvu~~SC-XT;R%SGBJ,7%%SKV6rqR%SOhX+hR%SSxD%MR%SY+_Z.%%S]5i8l~~Sa;4'd%%Se;2Iu~~ !Si5Jq)R%Sm)?F@%%Sop/`qR%SsUXX?~~Sw3n`qR%Sydy:[%%S}3ot6~~T-Vpyk7%T-bEz%MRT-m-s;zR !T/,_Q~~~S{~Lk6~~Sui_b6~~Sw=Y.u~~Sy(~^Z~~Sy~%QVR%S})`}_R%T-SM0G_RT-]K;vMRT-g1B?VR !T-pFhR%%T-y6<}_RT/'^}&m%T/0&HzzRT/8Wr@v%T/B4nXhRT/NXwP_RT/a}{qR%T1):sdMRT1I0z=hR !T1jrs/m%T1{@gJm%T3-V<0d%T37@CFhRT3?Bjt_RT3F6[EI%T3KCtSDRT3M|,2zRT3O9mADRT3[\9A}7 !T3h%Z?N%T3w8`757T5-Dy3eDT5=<+L2RT5M}->7%T5]IpBd%T5n+'?VRT5~(\8DRT72oI=@% #% [ 59] bi_l2.caps !Sd(jH.%%Sd(PshR%Sd'e\l~~Sd&GC2R%Sb~LFhR%Sb{q-VR%SbxPWH~~Sbt=P7%%Sbo,wl~~SbhqZ.%% !SbaLVzR%SbXft7%%SbNW}_R%SbBrY7%%Sb5N,_R%Sb&=7v%%S`o5&m%%S`\*Y7%%S`FlzzR%S`/@qzR% !S^4@%%%%S\FMj@%%SZ@O/m%%SXhu^[%%SXNImu~~SX*mqzR%SV[&8DR%SV,=t_R%STSuRMR%SRxwq)R% !SRB[u~~~SPe_^2R%SP.cF?~~SNR1VzR%SLv:*H~~SLA*4hR%SJffp2R%SJ34hR%%SHZ.IMR%SH'AXhR% !SD\5wl~~SB5Hnm%%S>geTc~~S~>7%%RoPy&DR%S/JvADR%S1}m=?~~S5U0+@%%S7~*DzR%S;F2^2R%S=h/}6~~ #% [ 59] bi_l3.amp !Q%%%%%%%Q0O}P(CSQ:v16YJMQF:+_~VRQPKr?UTTQZT@t*([QdM\vu.nQn?y(h>WQx&RQuPKR.W=SO,, !R0%,\|;zRR2ajl:+8R2\xO%lcR2JI6D2nR2&e:BFq !QjgEYdW]Q:Ri2Lg2R.qC38q&R>(77F%bRJgLPWAeRT['eY2zRZYmp?JiR\sYDP*)R\jQ>vK+RZY0)S\m !RVWOF4r]RPv_>@+PRJyLovVJRDqS'LDBR>mf/1V2R8pJWF5qxR>Gl1[INRD%kv/fx !RHI:JxS^RL1srG{cRNAI~z;nRNzzWK1NRNgvRR35RNQ1BTpARLX%0*T&RJP1k2(rRH=fs17q #% [ 59] bi_l3.phase !S?^S@MR%SCtM=hR%SI.Oxd%%SM@^wDR%SQP}shR%SU^gVzR%SYi7~.%%S]oaX@%%Sar;9d%%SeoHNH~~ !SifK?VR%SmWs/l~~SqBgeTc~~S~>7%%RoPy&DR%S/JvADR%S1}m=?~~S5U0+@%%S7~*DzR%S;F2^2R%S=h/}6~~ #% [ 59] bi_m1.amp !Q%%%%%%%Q8Ig+=F,QJpvx{,_Q^B_+zT'QptEeI|,R.hY5+r]R0emO>G7R2d/auUcR4bq\PBDR6a^>sw, !R8a%iIINR:_viQK3R<^znBa}R>].X96_R@[O?\gCRBX~Qn^KRDWWa22JRFV^1P22RHXr[R(;RJ^Zwdv% !RR8bYRU[RVyTU]';Rbj5hZa(RxOz26z2S.qASuH;S03uCRrES04YFl(YS.zp's>YiAw0Q\CJaPEYR27%gCRv !R@V=/:C.RJ.o|yo;RSgG>g6VRSiFF^k7%SkD,;rI% !Sm>>yJm%So3QNmMRSo}mnsP7Sqi7JdQVSsOsDrI%Su0^;Iv%Su]|NY7%SsdVq~VRS_C;>{qRS_P|ywDR !Saxmel~~SeMv))R%SgurqQ~~Sk6vv%%%SmD@Y_R%SoE'G_R%Sq5NuVR%Sqla'c~~SsAB+?~~SwY3DzR% !S{D/}7%%T-UrF3qRT-iK~fd%T-|D8,7%T/6-Sf5&l~~S>Dq5_R%S<{nMb6~~SGY;rI%%SO8n\m%% !SSG1Bd%%SWOJy2R%S[NZJDR%S_>}O@%%Sc)4p[%%Seh@Y_R%SiC9l.%%Sksn}7%%SoH'/DR% #% [ 59] bi_m2.amp !Q%%%%%%%PvG`=+V>Q6/UYNQ.Q>=W}DTLQFUM%.SYQNy:f%d~QXR3iIR0fn&({IR:4u*haHRD;.HAL[RL<:WxR6RlR*sTR2*b8WBxQrl{GR12QXR;]AJ4QfYH2m?g !R4}Ee9WqRj,%0U.R>4sK/C)RQt%GR<.@W}sVR<5fV}y.R@gxOit` !RF/%7Q09RHu4mytxRL3(CD\)RLw0U>]ARLsW03g]RLiEx2z5RJ{;rT/*)J][vT/:1f&L[T/J,Ay2RT/ZqD^2RT/jLat_RT/{4l2)RT11=b&m%T1@*O+hR #% [ 59] bi_m2.caps !Sb}.--~~Sb|urqR%Sb|7u~~~Sbz~VQ~~Sby;nDR%SbvriI%%Sbskg[%%Sbounm%%Sbk,*qR%Sbe7UZ~~ !Sb^3@v%%SbUjlVR%SbK|dMR%Sb@^.MR%Sb3ZJDR%S`~jD)R%S`n%ADR%S`[4H-~~S`F9x;R%S`/'CZ~~ !S^4]3H~~S\G.-.%%SZB?2)R%SXlNI%%%SXRY;)R%SX.ndu~~SV^\\m%%SV/HVQ~~STV[em%%SR{DV)R% !SRDeL[%%SPgS@MR%SP0A4@%%SNSW0d%%SLwMIu~~SLB.z)R%SJg]';R%SJ3vEI%%SHZaL2R%SH'ia@%% !SD\DR%%%SB5P.v%%S>glnl~~S7%%S=h3];R% #% [ 59] bi_m3.amp !Q%%%%%%%P~?hhLBdQ6uZLfoDQ@Kh~yQ>QJ*eA5OdQRn8=eoLQ\eK{VxtQfe2^VzRQppN_xlwQ|&{5jDr !R.ni}~PKR0C&{UVzR0o\`Mk/R2@,IZkWR2fee%/0R4.pmr/,R4J~)}JMR4^7|S/MR4haF^k7R4fXaQJE !R2igPIoxR0gxq8fTR2`lR7]dR:gd.;S]RDL^Tp{IRL:4UWZoRPfsO[kORRv&}4,WRRzjz4b'RR0^f*,` !RNY@p?kWRJPbj%S4RF+'T.d5R@Tb&}(KR:|mK9t7R6M_IA2>R2(dB,.vQr_|sWMNQV:n5^>_Q`W\j)^{ !R4OnDPUkR:ubewF0R>D+41G3R>Jm}X\DRw-D6K0 !RD6YSuu,RFzeGD[fRJ6L:+8=RJ{^yE8fRJ~w>R||RJyKe'itRJ7:M]=jRH@6{P\tOdMR%S:_lfc~~S6Nq-VR%S2Ad--~~Rz6b_Q~~RPcvv%%%QHNI%%%%RG]l-~~~RmH:2Q~~S/MXt_R% !S36VvMR%S5s;zR%%S9OHRMR%S;~fd%%%S?LyFhR%SAmQ2)R%SE+kC2R%SG;>WH~~SI@go;R%SK:?NH~~ !SMwxC[%%SMRvmu~~SIKa|hR%SE{3U2R%SE\h1[%%SE{M)R%%SG`K';R%SITw(2R%SKP%56~~SMKJP_R% !SOE%iqR%SQ:sdMR%SS.9_zR%SSy^_)R%SUkQfc~~SWcw@MR%SYn6B;R%S]S|H-~~Se*viqR%Sm_PG7%% !Su[el~~~Sy;8u-~~S{Mpk6~~S}Lnq)R%T-TT,SDRT-Zz5;)RT-_`-NI%T-apx3I%T-bU\\m%T-n+4)f; !T-zGI'hrT//6B}.vT/?3d8L[T/O.@12RT/_a.Y_RT/o51g2RT1&(62)RT15u7em%T1DZdahR #% [ 59] bi_m3.caps !Sb}.--~~Sb|urqR%Sb|7u~~~Sbz~VQ~~Sby;nDR%SbvriI%%Sbskg[%%Sbounm%%Sbk,*qR%Sbe7UZ~~ !Sb^3@v%%SbUjlVR%SbK|dMR%Sb@^.MR%Sb3ZJDR%S`~jD)R%S`n%ADR%S`[4H-~~S`F9x;R%S`/'CZ~~ !S^4]3H~~S\G.-.%%SZB?2)R%SXlNI%%%SXRY;)R%SX.ndu~~SV^\\m%%SV/HVQ~~STV[em%%SR{DV)R% !SRDeL[%%SPgS@MR%SP0A4@%%SNSW0d%%SLwMIu~~SLB.z)R%SJg]';R%SJ3vEI%%SHZaL2R%SH'ia@%% !SD\DR%%%SB5P.v%%S>glnl~~S7%%S=h3];R% #% [ 59] bi_m4.amp !Q%%%%%%%Q2?i*1RvQ>W9X`(7QJh?[Lc.QVpT9n%AQbnUHw1sQncDB6euQzS;igC.R.pwuxE9R0Mvhc;j !R2/dR|LWR2r,@jUOR4d})a*zR6d>.4H.R8r0(mO0R<2FRI>xR>Yri6jhRB1H]V{ARDe{S5eYRH@8gXX@ !RP-U4~4,RPgkl?-6RPWeq2\0RV0N*e~oRTCNw]03RL9;7bP/RBc>Gj'dRz{ARD'F,(G3RBn4m~~6R@}WnsLWR>es1s]3R<44(='dR8V,4-_nR4|wn*reR2ZPr};*R0eX34]X !R2pzl;c&R8gY&HVRRpJA1v8 !RDVVBs9TRH^326|cRJ}e@\mnRLvQ,4'NRLvb1d@]RLm;uMKuRL89^D,`RJ@o[RQlRF{as61, #% [ 59] bi_m4.phase !R^)EqR%%R0n`qQ~~RCu)zQ~~Ro,7%%%%S/k*M)R%S3mVnDR%S7l/\l~~S;gWiH~~S?_qZ.%%SCTyNqR% !SGFJy2R%SK2^VzR%SMr?b_R%SQO%=@%%SSzg*I%%SW@W8l~~SYQiU2R%S[T@EH~~S]GN,_R%S_*Q.%%% !Sa%4lVR%S_lhAl~~S_Vt&m%%S_c^6VR%S_gAu.%%SaCe0;R%SclEuVR%Si1jlVR%SmbbC2R%SqXkC2R% !Sso7qzR%Sua]|?~~Sw>5k_R%SwggVzR%Sy2+/m%%SyZ,G7%%S{2GO?~~S{zS8DR%T-SB6:2RT-bdxKd% !T/2(_MzRT/GfV9d%T/S,|;zRT/Y26~~ !Sh;RIMR%SfCufd%%SdM-zzR%SbR8(2R%S`RoSl~~S^Rs|hR%S\W*8l~~SZa^FhR%SXq(>_R%STF7QVR% !SPmKOhR%SNJ/q)R%SL'YO@%%SHdZNI%%SFSp:Z~~SDCAu-~~SB6;EqR%S@1^_)R%S>+urqR% #% [ 59] bi_m5.amp !Q%%%%%%%Q2j3UY1CQ@U:kI9;QN@Ea[CGQ\,0yqpkQht0tucNQvg3T3IR>8*g6e,R@VCCsdNRB|OcEnKRB.\qxZcR>mn9G,OR<:CgN75R8Zxg@+,R6&{bA0;R2]KpXjTR0eke3XH !R2fjsqB\R8Y)FN4hR<:4=893RW8gugRN5oXDt9RLVvrk_R%SSlP&m%%SW'03I%%SY2cnm%%S[3d12R%S])c%u~~S]m/y2R%S_I=@%%% !Sa::6VR%Sa'I=?~~S_mW8l~~S_|h-VR%Sa()Z.%%SaabK;R%Se4l2)R%SiYNuVR%So/WU2R%Sq|Jy2R% !Su6JhzR%Sw&n\m%%Sw\3,_R%Sy*uzzR%SyM[el~~Syt%57%%S{J>&m%%S}5}*qR%T-U5rU2RT-d7l>7% !T/3\mIMRT/I]rY7%T/U'x_zRT/Zt~b_RT/]KUJm%T/^PaT;RT/^L`a@%T/\&BOhRT/WTNU2RT/Tr\q)R !T/ZL4T;RT/c3@QVRT/l}8\m%T/wNU{I%T1(h(c.%T132mU[%T1?>PSDRT1K;z-VRT1Vy3eDR #% [ 59] bi_m5.caps !Svmo/DR%SvmUZ~~~Svl[iqR%Svk.u~~~Svi)%MR%SvfFL2R%Svc4P7%%Sv_M1[%%Sv[:*I%%SvVXt_R% !SvQO\DR%SvK{uVR%SvF1&DR%Sv?yBc~~Sv9FpZ~~Sv2XP6~~Sv+IADR%St}v~.%%Stv&8DR%Stm]d%%% !StPK_zR%St6@]d%%SrgI56~~Sr_RIMR%SrnqrH~~Srw:FhR%Srt|;zR%Srj(.MR%SrXUNqR%SrAMnDR% !Sr%aD)R%Sp_lfc~~Sp6~~ !Sh;RIMR%SfCufd%%SdM-zzR%SbR8(2R%S`RoSl~~S^Rs|hR%S\W*8l~~SZa^FhR%SXq(>_R%STF7QVR% !SPmKOhR%SNJ/q)R%SL'YO@%%SHdZNI%%SFSp:Z~~SDCAu-~~SB6;EqR%S@1^_)R%S>+urqR% ifeffit-1.2.11d/src/fefftab/47.dat0000755000175000017500000003577010771740460015505 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] ag.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] ag_k.amp !Q%%%%%%%QPB&cq{AQz-Xj9^gR24{Z;j@R4~u[EI%R8^JFEa@R<-X:?kWR>DfQ2\UR@L(O@RHvpMG5lRPdbShzRR^A/[V%MRp2JKN7~S.^ARG_aS0KxYsA1S0yRZbR`a>[;=iR`w4);|0R`h3J?^[R`-YmEAeR^,KOBZ>RVoy+Z[( !RR7`G5g_RLs;8/tCRHd+*R@]RD_UM~tHR@n;V{syR>=>nB\SR:}QTV@~R:(8o}ncR8pcEQ>I #% [ 59] ag_k.phase !S9:}K;R%S=N/u-~~SAZ\XhR%SE`Vj?~~SI`%iqR%SMY21Z~~SQL,od%%SU8sP7%%SWyUg2R%S[Z)zR%% !S_4;V)R%Saa{yZ~~Se.w\m%%SgNreDR%SigAP_R%Skwdv%%%So%L>_R%So}T3H~~SqpeTc~~SsW=`I%% !SuU?CNqRSuml6vv%Suueu-~~Su~c\}7%SwDqGshRSwti*8m%SyOq_j@%S{,7-hAmS{aeh1[%S}V~VR%S8-zV)R% !S6uEQ-~~S6`kod%%S6J2=hR%S61Au.%%S4p='d%%S4RriI%%S42vqzR%S2j:g2R%S2Dcnl~~S0v(:Z~~ !Rv|miqR%Rh7%mu~~R`lRMR%%RX@tG7%%RN*>shR%RB7&\m%%R4qWa@%%Q<^Q>6~~R/if3H~~R=nf/DR% !RKwBOhR%RY}CVzR%Rg}(&DR%Rut1g2R%S-i|pZ~~S/K~fd%%S1,tWI%%S1fpVzR%S3E}_R%%S3~T+?~~ !S7Uey2R%S;*%EH~~S=UI~.%%S?}JL[%%SCEO+hR%SE_z-VR%SGsgc-~~SK)B7MR%SM6LFhR%SSKwL[%% !SWCwhzR%S[2>WH~~S]rot6~~SaLUg2R%Scy0+?~~SgGFH-~~SigE0d%%Sm(twm%%SoAdQVR% #% [ 59] ag.rep !S6./y2R%S6/4dMR%S62C&DR%S67W8m%%S6>mahR%S6H,G7%%S6S@))R%S6`GG7%%S6o>g[%%S8%xp2R% !S88>&m%%S8L;%MR%S8aol-~~S8x{,_R%S:7Y;)R%S:QkWI%%S:mPgZ~~S<0j+hR%SdEH~~SX0[-.%%SX|ywDR%SZojP6~~S\b{qQ~~ !S`qEqR%%Sf'D%MR%Sj8Y2zR%SnJdQVR%Sr]Sl~~~Svpyk6~~S|*mqzR%T.TZ>7%%T.h^VzR%T0Jy{I%% !T0s7--~~T2AURv%%T2isxd%%T48;~VR%T4`^*H~~T6/)j?~~T6WOP7%%T8%xp2R%T8NDV)R% #% [ 59] ag.lambda !SD7%mv%%SD8~JDR%SD>ry[%%SDHNmMR%SDU]Kc~~SDe~%u~~SDy5gZ~~SF4ft6~~SFL1c.%%SFdtk_R% !SF~I12R%SH>7%%%%SHWl^[%%SHpk[MR%SJ.tG6~~SJExG_R%SJ\(VzR%SJqYcVR%SL-4P6~~SLCuB;R% !SLD-VR%%SDsDrI%%SD'ys?~~SBea`H~~SBf(NqR%SBwyVzR%SD;zR%%%SDbv~.%%SF6t*qR%SFjSLZ~~ !SHHq^2R%SJ+6b_R%SJj}WH~~SLSqMzR%SN?Gwl~~SP-Hfd%%SPwVf;R%SRif|@%%ST]jt_R%SVSP;)R% !SZmNeDR%S`5oc~~~Sd_TKd%%Sj5]+?~~SnkRz)R%StLYG7%%Sz2OX@%%S~vcjhR%T.jJy2R%T0^<];R% !T29ia@%%T2pHjhR%T4N)%MR%T6,YK;R%T6e|H.%%T8F,{qR%T:&y2Q~~T:bK_zR%TMseu~6R@2Bk|d)R@im,j.~RB?/7+bKRBfvX{U3RD,q0FwuRDC:.Ga0RDP)&[&]RDR`B6^[RDM~NjU* !RDX_z'e]RL?oS2b7RTO=kc9DR`ctk2@5Rp}*b66.S.abRN)1{Yj(RJUhk'[vRJ,B(,9' !RN.-I68i&9(R:xnwP;kR8}+,,oGR8kmv:lh #% [ 59] ag_l1.phase !S9/>&l~~S=B\du~~SAO[12R%SEVGshR%SIVu^[%%SMQ;EqR%SQEB/DR%SU33U2R%SWt[))R%S[ULJm%% !S_/S,6~~Sa\Y2zR%Se(LJm%%SgFmEI%%Si]HNI%%Skki];R%SmqCo;R%SomPgZ~~Sq_1[%%%SsEFX@%% !SuO.&\m%Sw%pI~.%SwAdv%%%SwQ_7ahRSwlR7]d%Sy8x7MRT-kh0G_RT-y13eDRT/,FDMzRT/99^Bd%T/F'ny2RT/R~zV)RT/x;<0d% !T15dmQVRT1Kyvz)RT1`}Pwm%T1v-~6.%T3.U6VR%T3B>0x;RT3T%5[MRT3e6q^2RT3y}NuVR #% [ 59] ag_l1.caps !S:&0;R%%S:%2j?~~S8|3(Z~~S8w4dMR%S8p;Iu~~S8gCRv%%S8\T?VR%S8Oj/l~~S8A.]c~~S80R56~~ !S6ww0;R%S6cCNqR%S6Lcvu~~S63w4?~~S4rr@v%%S4UJHVR%S45R12R%S2lp&DR%S2G?-~~~S0xV9c~~ !Rx=-F?~~Rhceu.%%RbDf;Q~~RXqT';R%RNVlfc~~RB^*H~~~R69NU2R%QBr~rqR%R/Pg6VR%R=YCVzR% !RKdy_)R%RYmREH~~RgoK?VR%RuhLBd%%S-i%EH~~S/K25_R%S1,2zQ~~S1f9t6~~S3EQvu~~S3~3*) !R4/03/P`R2L]X:Q>R0exZQ2rR0'N4dqzQ~9?~9h)Qtbuu;>WQnvBd[aiQlV[8@y;Qju%G)eMQhsYH{W5 !QN]_xhU;QrS6J0,xR2/;=yPeR8XdHb|`RB\?WuGxRN[Yh\0C{H~~ !R@Q;4_.ERHtbg3^*RPH2^KylRT^MH&Y:RV|k>TrNRXimvW2|RZ.gbP&3RXy1Pi;eRXCNSwV3RT(6ox2H !RNxBR^uuRJu&=[\uRF|~/k{cRD1lhkeYR@L,Yer=R<~'h;EMR:[X?]_DR89P'AEmR6\9BJ:J #% [ 59] ag_l2.phase !S;tfG_R%SA,TWqR%SE4|hQ~~SI4=3qR%SM*cB;R%SOr)%MR%SSVj@%%%SW2RIMR%SY^tSDR%S]'R56~~ !S_?<}_R%SaIoSm%%ScE_=hR%Se0)b6~~Se`nhMV)R !T/3l/8DRT/4F:Bd%T/:f1FhRT/D&@))RT/NDs7v%T/XhU_)RT/bkI]d%T/lhLg2RT/vobG7%T19mk~b_ !T1LLPC^;T1^)VnhzT1nZ>>?.T3%`i6jhT34F+hR%T3DHI12RT3S6>[MRT3`\{}_RT3oo?zzR #% [ 59] ag_l2.caps !S\;/4?~~S\:l%u~~S\9nTd%%S\83,_R%S\5mahR%S\2mz)R%S\/0;R%%S\*dz)R%S\%TG_R%SZyXX@%% !SZrfWqR%SZjw,7%%SZb(o;R%SZW{8l~~SZLN([%%SZ?FdMR%SZ0H)zR%SXy?rqR%SXecb_R%SXO5*qR% !SV@u6-~~STv(:[%%STt->7%%STgrQ.%%STPX\DR%ST0FpZ~~SRc0p2R%SR6NI%%%SP_`4hR%SP+urqR% !SNPATd%%SLsbK;R%SLhxt7%%SNuVR%S8+mEH~~S4yNM)R%S2t%56~~S0s_5_R%S.um57%%RNwf/DR% !Q~(nL[%%R;'7qzR%RWuMZ.%%RsJZjhR%S/8HVR%%S1NNRhm,[xsm !RfTz;0@ER`}wY|Y/RZ`6u.3YRRwT56pKRL6JOY=PRDm.t{bxR>~U9;}hR<%&%H^[R:'_BmH_R:.zQZVR !R@@yMIgKRHa}'_V*RP3pV7EBRTJ,3:MeRVh{[(/aRXV%/Ns0RXu7qsR2RXflm,WTRX3LOT`bRRxA;b@/ !RNo{,pW>RJp39%/JRFyp+RfMRD/&+29dR@K/Wod%T/HIJ`qRT/@>{M)R !T/5;C&DRT/5kn,7%T/<.++hRT/E@y_)RT/Oflvv%T/Z4/HVRT/d:]Kd%T/n0FL2RT/x0A}7%T1;=%lb` !T1MnJ(^;T1_D6JhzT1p-20l.T3',Bz=hT35h%MR%T3E|W,_RT3T_RIMRT3b,5k_RT3qTH)zR #% [ 59] ag_l3.caps !S\;/4?~~S\:l%u~~S\9nTd%%S\83,_R%S\5mahR%S\2mz)R%S\/0;R%%S\*dz)R%S\%TG_R%SZyXX@%% !SZrfWqR%SZjw,7%%SZb(o;R%SZW{8l~~SZLN([%%SZ?FdMR%SZ0H)zR%SXy?rqR%SXecb_R%SXO5*qR% !SV@u6-~~STv(:[%%STt->7%%STgrQ.%%STPX\DR%ST0FpZ~~SRc0p2R%SR6NI%%%SP_`4hR%SP+urqR% !SNPATd%%SLsbK;R%SLhxt7%%SNuVR%S8+mEH~~S4yNM)R%S2t%56~~S0s_5_R%S.um57%%RNwf/DR% !Q~(nL[%%R;'7qzR%RWuMZ.%%RsJZjhR%S/8HVR%%S1NN]W=tn,R@7B<2AmR@d2%~CsRB1+U*I%RBOz^39\RBi>pHcN !RDunOp[%RNUrN5WIRXAc7^RvRdS,|}WIRtK-z=]XS.kWDR5jS0SZP-1nS0{g8G}OS2)?}{B/S0ok^&:Rzb]~f@RdHD}o\eRZnuxHR)RT8N{UZ[RN\W,(-_RL,dk@emRJTsXR9< !RN9Fr*8mRT]3Kci1RZI65:i]R\}Ia[a=R^g7h=kJR`'U?2VdR^vse./)R^?.0LkbhR:sVI4yAR8w&+NLnR8f+R5^g #% [ 59] ag_m1.phase !S7try[%%S=.n@MR%SA=N4hR%SEFhvMR%SIJGC2R%SMGuF?~~SQ>{qR%%SU/6B;R%SWr4D)R%S[Scb_R% !S_-X/m%%SaY`eDR%Sc}v56~~Sg@:s@%%SiTT7MR%Sk`RADR%Smcub_R%So^8XhR%SqNgFhR%Ss4fOhR% !SuJdu~~~Sw7/fx;RSwd%Pg[%Sw|L2Q~~Sy:d:*I%SyW60Kd%SyuX:g2RS{od%T-Vx9t7%T-TMtod% !S}}<>cVRT/,SOL2RT/9E`uVRT/F2'OhRT/S/tcVRT/xL'3I% !T15u7em%T1L216VRT1a4}WI%T1v>HJDRT3.bbC2RT3BK;vMRT3T0/hzRT3eDd9;RT3z1AP_R #% [ 59] ag_m1.caps !S:'<@u~~S:&;5_R%S8}?.%%%S8x@iqR%S8qCo;R%S8hOX?~~S8]`DzR%S8Pv57%%S8B:c.%%S81at_R% !S6y0OhR%S6dZNI%%S6M~VR%%S65;MzR%S4t::[%%S4Vw_R%R=FD)Q~~ !RKTrY6~~RY_u^Z~~Rgcm56~~Ru^S@MR%S-h2nDR%S/JJXhR%S1+Ywl~~S1eh1[%%S3E1.MR%S3}p.MR% !S7UHjhR%S;)pk6~~S=UBd%%%S?}C2R%%SCED1Z~~SE_o3I%%SGsgc-~~SK)EqQ~~SM6W@v%%SSKwL[%% !SWC{H~~~S[2EqR%%S]rot6~~SaLYG7%%Scy7EH~~SgGJ(2R%SigHjhR%Sm(xWqR%SoAh1[%% #% [ 59] ag_m2.amp !Q%%%%%%%QD9h}]HNQ`RfL?z2Qz&ylTW)R08vL|}3R0}?dh@~R2Q>aKR5R2j(X2H>R2rfmAe@R2oWu?4P !R2f6boUKR2ZzDq.ER2R+B&tdR2MfWJraR2O=z)gsR2Uo7=NYR2^EnSfTR2ew6M5`R2grq4p[R2`){}I^ !R04VkaxdR0F8W,(.R.ed{?BYQnl(*-`]R0d@5jO+R:=,_^HFRD>.k*qRRLLuJdXqRR%b*757RRr}O[d5 !RR@I*8OqRNcV^og;RJJG+Tg;RDn%;mriR@4skGt|R:hE>O@%R6iqJTQkR4K7xpS@R2y}s)mVR4CjcV8Q !R:`/XtuFRBm|s4^YRJ::d@5TRNYA\]pARR0NL}a0RT5WK]6_RTpPz>(GRT~Sy{imRTesb89,RR1&n:oY !RNCVC-^[RJTv.Kq?RFi\@[*DRD&^&}Y=R@E}aW&oR_R%SCXYSDR%SGKPWH~~SK3uVQ~~SMkBh)R%SQ>6ZVR%SS_6NI%%SUtPwm%% !SW~+|hR%SY|,WH~~S[p_rH~~S]],SDR%S_DMV)R%Sa(}K;R%Saf-fc~~ScH|3qR%Se++D)R%SefI=@%% !Si^7EI%%So=_~VR%SspYk_R%S}9-fd%%T-x*y6VRT/2hLBd%T/=/W0d%T/CQ_%MRT/H9&L[%T/L=2^2R !T/Ox`DzRT/S46~~ !SZr_=hR%SZjol-~~SZawu.%%SZWp>_R%SZLC.MR%SZ?80;R%SZ0=/m%%SXy1>_R%SXeU.MR%SXO*0c~~ !SV@u6-~~STvAhzR%STt\`qR%SThKSl~~STQ1_)R%ST0rY6~~SRcXxd%%SR6o7MR%SP_yc-~~SP,1g2R% !SNPShzR%SLsq%MR%SLhxt7%%SK;R%%S8+mEH~~S4yNM)R%S2t%56~~S0s[UZ~~S.um57%%RNwWU2R% !Q~'LRu~~R;'FL2R%RWuTt6~~RsJedu~~S/8L6VR%S1NN !R2X<\XRNKXm9g;RJ2fMv_fRDWDl4ieR>yP[sjTR:T0|@%%R6V:s6T+R47VCP]tR2ewlv;bR4/Ex9lw !R:It@D_R%SKOp[%%%SO,NuVR%SQWdz)R%SSw-%u~~SW0ia@%% !SY7x';R%S[3Qvv%%S]%:*H~~S]i:&DR%S_N4D)R%Sa1,K;R%Sal}G7%%ScO(wDR%Se12-VR%Seka/m%% !Si`9[u~~So7%T18{H+3r !T1K~Ry|8T1]xil:2T1n~mCk7T3&Dou%vT35<]_zRT3Efbk_RT3TTy*I%T3b3pc.%T3qxpVzR #% [ 59] ag_m3.caps !S\;/4?~~S\:hEqR%S\9jt_R%S\8/L[%%S\5j'd%%S\2j?~~~S\/,[MR%S\*]_zR%S\%PgZ~~SZyQ>6~~ !SZr_=hR%SZjol-~~SZawu.%%SZWp>_R%SZLC.MR%SZ?80;R%SZ0=/m%%SXy1>_R%SXeU.MR%SXO*0c~~ !SV@u6-~~STvAhzR%STt\`qR%SThKSl~~STQ1_)R%ST0rY6~~SRcXxd%%SR6o7MR%SP_yc-~~SP,1g2R% !SNPShzR%SLsq%MR%SLhxt7%%SK;R%%S8+mEH~~S4yNM)R%S2t%56~~S0s[UZ~~S.um57%%RNwWU2R% !Q~'LRu~~R;'FL2R%RWuTt6~~RsJedu~~S/8L6VR%S1NN4msc:2QV3lWQ@9Qln%xDjdR.d/vddZR0jPgBysR2m%5cO8R4jk,}{)R6eAlF1KR8\7Uu:{ !R:PB(c~6R<@vRQ*iR>-EC\8DR>oFEZ%vR@Sc}<z+jqJRH6@I_f;RFATx~X0RB]3w`([R>F%dn*YR8oY0>?RR47=;SQsR.]k{@+_QT27[/MJQBQK^d:* !R2KJu.%%R:IRRZ(nvZ1RR~b,sGdRRvpM|%:RPWiz+rs !RLzqAKi6RJ1u~oc6RFJX@4MyRBc.}c/1R@%`dKbdR<]Q\]^-R:9jgqG{R6^mh9IiR4_KH[W< #% [ 59] ag_m4.phase !S7x*uVR%S=1|\DR%SA@`0c~~SEJ:FhR%SIMo3H~~SMKY*qR%SQBc6.%%SU3757%%SWvkshR%S[Y(o;R% !S_4%ahR%Saa:Bd%%Se,jL2R%SgK&LZ~~Sia3M)R%Sko;-VR%Smto?VR%Soq}C2R%SqeURu~~SsO8@MR% !Su})^2R%Sy,Hnm%%Syw/q)R%S{A;5_R%S{GLs?~~S{7X'c~~S{&wy2R%S{3iI%%%S{j9x;R%S}U|\DR% !T-RY0/DRT-T:7EI%T-SeVAm%S}~t*qR%S}e_9c~~S}F]3I%%S{{/u.%%S{BdIMR%SwjJ0;R%Sk_q~VR% !Sc=*qR%Sc*l^Z~~ScH:VzR%ScoT7MR%Se@QVR%%SekdiqR%Sg?6.%%%SgoYshR%SkSR=?~~ !Smd*_R%St@~vu~~St==X?~~St8j|hR%St3S0;R% !St-LFhR%St&ZF@%%SrxyNqR%SrpO`I%%Srg6zzR%Sr]+dMR%SrR1VzR%SrFA8DR%Sr9W([%%Sr+h-VR% !SpL+\DR%Sp;D9d%%SpA]7MR%SpG88DR%SpJBt6~~SpK9+?~~SpJ)EqR%SpF/m%%%Sp?'x;R%Sp4Jy2R% !Sp&%ADR%Snmndv%%SnX=X?~~Sn?q^2R%Sn%:s@%%Slc1:Z~~SlF8du~~Sl)5;)R%SjfYshR%SjJmIMR% !ShdTl-~~Sh*;^2R%SfIB3I%%Sdc)V)R%SbyJHVR%Sb6zzR%%S`S/(2R%S^tcVQ~~S^?LFhR%SZSoKc~~ !SXO&P_R%SVR]c~~~STV/}7%%SRbx[v%%SPti8l~~SP,E@sW7ZQVTeY'R6r6f6LGR8jf&6fd !R:`Qk{qRR@l'[-.R@*A@gg{R@j*[D5_RBJWA\2bRD&zt>r1RDVe`_=hRF(qx>}ORFNp5[y; !RHgi1.MRRR|JrLtxRZtkQlTtR^xxd'wMR`70Y;\UR\Pz/QNIRV@gQ\MnRN]3EDzRRH|>(+MjRH2;4Gjq !RH@Q%.x'R8j:aDv)R426RV|yR.Xmg-3{QRR8wNs0QB+A/3n< !R2Mxt7%%RnD?JRT-xo:WLRT%1(J>eRP_A<3kh !RL}tM%I0RJ4oV31SRFKF{YgqRBao~b_R%SyAra?~~S{,Rz)R%S{LYk_R%S{OzAl~~S{>Mb6~~S{-mY_R%S{;rI%%%S{s1o;R%S}_>{qR% !T-SR{_R%St@~vu~~St==X?~~St8j|hR%St3S0;R% !St-LFhR%St&ZF@%%SrxyNqR%SrpO`I%%Srg6zzR%Sr]+dMR%SrR1VzR%SrFA8DR%Sr9W([%%Sr+h-VR% !SpL+\DR%Sp;D9d%%SpA]7MR%SpG88DR%SpJBt6~~SpK9+?~~SpJ)EqR%SpF/m%%%Sp?'x;R%Sp4Jy2R% !Sp&%ADR%Snmndv%%SnX=X?~~Sn?q^2R%Sn%:s@%%Slc1:Z~~SlF8du~~Sl)5;)R%SjfYshR%SjJmIMR% !ShdTl-~~Sh*;^2R%SfIB3I%%Sdc)V)R%SbyJHVR%Sb6zzR%%S`S/(2R%S^tcVQ~~S^?LFhR%SZSoKc~~ !SXO&P_R%SVR]c~~~STV/}7%%SRbx[v%%SPti8l~~SP,[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] la_k.amp !Q%%%%%%%QNCgEJY3Qt9s>wA2CoRhCqap6VRfZ82V4LR`s-;JjF !R\1;?kB~RVn.ckpwRR4'jc?}RLlP9`BjRJ*+4N4hRDn+}0OKRBR=KMf}R>j&e6H,R:^d2Yuk #% [ 59] la_k.phase !S3n[Y_R%S9(ZZVR%S=7[=@%%SAAop2R%SEG[MR%%SII\,6~~SMI2EqR%SQHtshR%SUO29d%%SYo3mMR% !SaB8g[%T3cY)^2RT3jCi}_RT3osa\DRT3t(&DR% !T3z=D)R%T5&Ecu>7T5.z%0C[T59:&9WrT5D};0l.T5R;0]SmT5`GG6~~T5nsWQ.%T5}7u6.%T7LHr([% !T7fw{}_RT9&rZ%v%T9>l)zR%T9V,?RMRT9lNSy2RT;(/1NqRT;R12R%SBvW];R%SBMQZVR%S@wGC2R%S@B3mMR%S>b}*qR% !S>&~nm%%S4T;R%%S>Lz5_R%S>f]/DR%S@'Zb_R% !SB&4?~~~SBh]h)R%SD\OL2R%SF@H^[%%SFuMZ-~~SHTHNI%%SJ5j'd%%SJs;1[%%SLXYwl~~SN?e,6~~ !SP(JHVR%SPlQ^[%%SRWot7%%STD@56~~SV1g{H~~SVz+xd%%SXi52zR%SZY%~.%%S\IMQ~~~S^:N(Z~~ !SbC~^Z~~SfOx?VR%Sj]e\l~~SnltshR%Sr}66.%%Sx4GcVR%S|FDMzR%T.W5WI%%T.k+;zR%T0M%qzR% !T0u.IMR%T2C:[%%%T2kN,_R%T49hrI%%T4b%~.%%T60DIu~~T6Xboc~~T8'*uVR%T8OL{H~~ #% [ 59] la.lambda !S8Bj+hR%S8CUBd%%S8EtgZ~~S8Ij`I%%S8O/m%%%S8Ux3I%%S8^'3I%%S8gJm%%%S8qvqzR%S8}Mb6~~ !S:/tcVR%S:=)Am%%S:Juvu~~S:Y::Z~~S:g}&l~~S:v{a?~~S<,66.%%S<;U_)R%S1;%MR%S>V:/B0|?~~S>db2zR%S@/J4@%%S@V%qzR%S@~@]c~~SBN*];R%SBy2vMR%SDKNU2R%SDxny2R% !SH:HF@%%SJZ}k_R%SN%h^2R%SPN/u.%%SRyX3qR%SVMj@%%%SX~Aq)R%S\W-rqR%S`1k7%%%Sj&+H.%% !SpCM9c~~Svef/DR%S~28,6~~T.iXH.%%T0//q)R%T0N~NH~~T0o2Z.%%T25VZ.%%T2V6NI%% #% [ 59] la_l1.amp !Q%%%%%%%QNjOdGa0Qx/CqG{)R2+6D't7R4w.%^Z6R8[[)U|8R<0*oKFqR>I]X2pGR@FKcap[R@zKkafP !RB1i7`y[RB-rqR%%RB,(=e@)RB>Ia3_>RBn?Lw{5RDb|78(3RFp5;^eURJ6/n?^[RL`FMf_{RP4K0H4u !RXR'syaPR\hBH+IfRf(,V%;>RthoRkRzR~Actw'hS.cy[C\]S.qgsX=nS.zQff5pS.~k@pFDS0&qi5c+ !S.~Ec(%VS.uhgg&OS.eVy,r\R~b4MI0hRx`L`L3ARrB{7j)fRju1MVrIRd]_Zhb[R^iW]KUKRZGa9e?_ !RTHCH+BLRTSah-5dRVp:el'TRZSZ'H1;R^X`~8TdRbS?lk/@RdgxRuKWW*qR%S=ocZVR%SABt[MR%SC^gVzR%SEh)-VR%SG_MV)R% !SIHb;)R%SK)_EqR%SKb=+hR%SMBl.%%%SO'u%v%%SOlXxd%%SQ\c>6~~SSQ5?.%%SUH]G_R%SWAfx;R% !S]+=3qR%S_lK3I%%ScCvU[%%Sg%VnDR%Si]{Q-~~Sm/IiqR%SoR{r>?]HT/HyTx;RT/TS{z%MT/aUs?~~T/oQXT;RT/}qEM)RT125BC[%T1[1S@MR !T1u_Tp2RT35c~ZVRT3MS}[MRT3dut*qRT3{@`0d%T56|%=@%T5KP6ZVRT5`vI))RT5v7@U[% #% [ 59] la_l1.caps !STx1k6~~STvq1[%%STrwXhR%STlHfc~~STcB;Q~~STWreDR%STJ&0;R%ST9|dMR%ST'oh)R%SRm`U2R% !SRWa@%%%SR?||hR%SR&`qQ~~SPeuRMR%SPIdY_R%SP,9';R%SNgPO@%%SNGX7u~~SN&Su-~~SL^<8l~~ !SJI|t_R%SHQeu-~~SFG/dv%%SDfZb_R%SDFmEH~~SB}E}_R%SBS;5_R%S@|L{I%%S@FkC2R%S>gA,7%% !S>+)Al~~S2zR%S0>shR%% !Rjh\0;R%RJ6Xxc~~Qd9ny2R%R;-B;Q~~RW4y.MR%RsNqR%%%S/FjT;R%S1hrmMR%S5(_rH~~S;LVV)R% !S?__EqR%SCfL.MR%SGWDV)R%SKE'G_R%SO-tO@%%SQ`gk7%%SU5p.MR%SWc.IMR%S[*~NI%% #% [ 59] la_l2.amp !Q%%%%%%%P|W}U5\aQ8E^>n,7QD|,FnFTQXZBkB&MQv-0C|U*R23X)9JQR82jT~X0R>pk]0I=RFU7e?LG !RL:ho/'DRNTU\LiYRN`|-:^;RN1as6>7RLA2PdEIRJE&%em%RHG2HxSmRFORe7kORDaaC=SMRD'd|>\Y~>R\HYTbJqR^+*lP&mR^N&\'h*R^aS|DMz !R^iF9_-{R^Qwt7mvR\p=gqb7RZj>%;ftEYRTO>dEI%RPMK[GC{RLF]T*BTRHK9QQ{iRDj3Bt:_ !RB,OiP7nRD`(iHlkRJ;hh5%5RNs4FZIVRTO%%mH,RXpdQ.BuR\SZ7N5:R^7xMn=8R^1]'p|QRZm}?(h\ !RVgs)8btRR~Zze4wRNon'(q/RJfkk5L@RH97y4cWRD3+r[KPR@x)W3C?R>ZDFvWVRK;R%SSJ`M)R%SUe8hzR%SY,YK;R%S[SFT;R%S]~80;R% !SgN1.MR%Sm8q)Q~~Sq^g2Q~~SuccrqR%SyXkgZ~~S}CV1[%%T-Zru2)RT-hkaxd%T-uoF'd%T/('|?~~ !T/3E/,7%T/=f9t7%T/G8\l~~T/Ou~t*rT/Wms(wDT/^wkR13T/e*\q)RT/j'0|@%T/m\6(g3T/o[>k(o !T/o{qRT50=qIv%T5B_zR%%T5SGczzRT5d=`mMRT5uR\,7% #% [ 59] la_l2.caps !SFZ{iI%%SFYdiqR%SFUyk7%%SFOdMR%%SFF~jhR%SF;}C2R%SF.`0d%%SDy5gZ~~SDg[mu~~SDT,wm%% !SD>dEH~~SD'UJl~~SBhlB;R%SBNKKd%%SB2b[MR%S@oT7MR%S@Q+3qR%S@1E0c~~S>jS(2R%S>HMZ-~~ !S<5C{H~~S:?:2Q~~S8:*I%%%S6[+t_R%S69`iH~~S4pK[v%%S4K?2)R%S2~Tt7%%S2W;9d%%S2/HVQ~~ !S0`_b6~~S060Kc~~S.c%v%%%RxS_^2R%Rll,k_R%R`g/`qR%RTIIMR%%RFr0c~~~R:45*qR%Qj0AXhR% !R?@vmu~~R_*Th)R%R{=^k7%%S/[KOhR%S1mLc-~~S5%B|?~~S79r4hR%S9Nkod%%S;_V)Q~~SAdvIMR% !SE^jH-~~SITNy[%%SM3|'c~~SOg=L2R%SS@4H.%%SUc^[%%%SY'WM)R%S[F;V)R%S]Ym=?~~ #% [ 59] la_l3.amp !Q%%%%%%%P|U=&[Y_Q8Bc>R2,glX7-R8(\{6yCR>brdrH[RFCuOwbt !RL'G*_=iRN@Z:l-6RNMM-?v-RLxuh|/mRL/%T@EIRJ3)F}WIRH4k'MAmRF<'m&&0RDL=-A6gRBicb}H& !R@rcoMAmRB.(]@(;RFPDQc`]RP5WCufdRTh--:O`RXLgzk9pRZQRtAfxR\43ho:cR\Y9m{a@R\ouC*I% !R\{]JzxtR\hw`qR%R\2%64P7RZ0eX4FuRVc60BzbRRxdwn?_RNzY]KFqRJwi3h.ERH%cpBJQRDGExiw4 !R@gg,dI)RDA_?e>KRHuy~BuoRNR)7eHWRT,y,e=kRXNBtm3oR\1q[x-nR\qGS:?NR\lJ_?4,RZSZ[|w7 !RVT0.pyGRRnXrqC*RNbXZ<6yRJ]rW9qjRH2Um;YNRD-tWyP+R@uC6zOrR>XUO?~~S_8~%u~~ !Sga_~VR%SmMR%%%%Squ%v%%%SuzkSDR%SyosH.%%S}[q1Z~~T-]C:6VRT-kCA,7%T-xN?>7%T/*h5_R% !T/62\Td%T/@WGG7%T/J)j?~~T/RjlKWqT/Z_&UwET/aa^v13T/gjp6VRT/l`*8m%T/p3o6:2T/r+]oUo !T/qMVk.vT/r-}Jq*T/wx:qb7T1&@;=hRT1/fLRv%T19vl>7%T1DpX|hRT1PU\\m%T1\a`I%%T3%gruVR !T3;]<@v%T3QckWI%T3e~`8m%T3yS5SDRT52U|7v%T5DtK;R%T5UTt[MRT5f]+dMRT5wr&}7% #% [ 59] la_l3.caps !SFZ{iI%%SFYdiqR%SFUyk7%%SFOdMR%%SFF~jhR%SF;}C2R%SF.`0d%%SDy5gZ~~SDg[mu~~SDT,wm%% !SD>dEH~~SD'UJl~~SBhlB;R%SBNKKd%%SB2b[MR%S@oT7MR%S@Q+3qR%S@1E0c~~S>jS(2R%S>HMZ-~~ !S<5C{H~~S:?:2Q~~S8:*I%%%S6[+t_R%S69`iH~~S4pK[v%%S4K?2)R%S2~Tt7%%S2W;9d%%S2/HVQ~~ !S0`_b6~~S060Kc~~S.c%v%%%RxS_^2R%Rll,k_R%R`g/`qR%RTIIMR%%RFr0c~~~R:45*qR%Qj0AXhR% !R?@vmu~~R_*Th)R%R{=^k7%%S/[KOhR%S1mLc-~~S5%B|?~~S79r4hR%S9Nkod%%S;_V)Q~~SAdvIMR% !SE^jH-~~SITNy[%%SM3|'c~~SOg=L2R%SS@4H.%%SUc^[%%%SY'WM)R%S[F;V)R%S]Ym=?~~ #% [ 59] la_m1.amp !Q%%%%%%%QPH{P;MzQ|1uak0xR2Y@;S\mR8*6+BKdR<~2,ZpoRDtt-PK;RP[xUvU[R^\qq{^*R`+56`GG !RTB43qrmRL0>JL[%RH'Cx&>'RF3sukWIRF&I^<@-RFC(qB03RF{g]^_rRHnE6cNIRJpA'-fdRLzw0g:[ !RTK[680{TDRp2<'`L;Rh~G|;8uRb{Qx*|qR^BeGmKtRZ430OYx !RTDaAR9`RTIWIxp2RVZ7+(p*RZ6*s7MvR^.&P1bJR`|A1h+\Rd29?x\VRd@5oK8II'HWtR:J%]I4W #% [ 59] la_m1.phase !Re)nDQ~~S/JN8m%%S3VD9d%%S7ZkWH~~S;VVrH~~S?F}WI%%SA~4t_R%SE3+L2R%SEI*a?~~SCu}k_R% !SE/hV)R%SG-eP_R%SI@4lVR%SKQ`];R%SM\VAl~~SO`znDR%SQ`\q)R%SS]?2)R%SUX*0c~~SWQEuVR% !S]5^>_R%S_r<([%%ScGH%v%%Sg'?VR%%Si]HNH~~Sm-GSDR%SoP_Q~~~SqnF/m%%Su+[U[%%Swa/m%T-u5)9d%T-{3k&m%T/&..ADR !T/.x^_rIT/6=92~VT/>oz~~[T/HqfunmT/TEuaL3T/a@RxKdT/o8*4hRT/}SOL2RT11xfKd%T1Zy_rI% !T1uQAL[%T35\dQVRT3MM*@v%T3drZnm%T3{=&,7%T56|F+hRT5KSp_)RT5`vI))RT5v3`Q.% #% [ 59] la_m1.caps !ST}3iI%%ST{s/l~~STwrDEqR%ST,(o;R%SRqhb7%% !SR[ZrqR%SRCdADR%SR*9[u~~SPi?b_R%SPLz5_R%SP/Cc-~~SNjP6~~~SNJIEI%%SN)6NH~~SL`mqzR% !SJL3eDR%SHSYWH~~SFHv-.%%SDhR%%%%SDHYgZ~~SB~}k_R%SBTh)R%%S@}v57%%S@H6vv%%S>hc%v%% !S>,C{I%%S}5+^ykQX3.+`:KR.gd]xJ,R6pQ+;1[RFI35?dbR^:9&IbWRjm?Wee@ !Rd8p,[>xRZXdIro9tR<^E>wHV !R8I{Ds7vR6p6AE@vR:5NV0dnR@:`Mc-6RBdno.U[RDm5+C:[RF`uKr-NRHNCILuBRJ7eedv%RJ{B{|.~ !RLb8G8y{RN5%lN:KRN?b+tn,RL}cLYdERL:QXmirRJ/kF1rvRFf^63RfRD8n*eZFR@i_br)JR>T.%j}W !RR_Bu,oR<6`P~Z^ #% [ 59] la_m2.phase !S;z't7%%S?qKSl~~SC92~VR%SEG/du~~SGQ=lVR%SIV4'c~~SKI6nl~~SKj07MR%SK2=hQ~~SGhT';R% !SG2-2)R%SGPG[MR%SI?0';R%SKBHNI%%SMQ,k_R%SOg.qzR%SS(ey2R%SUI:*I%%SWnB+@%%S[=vahR% !Scv\,6~~Sk(0OhR%SoxJu.%%Su64t_R%Sy7y_)R%S}1bcVR%T-Z?rM)RT-i'w(2RT-v_f;R%T/)6YC2R !T/4XNY7%T/>eU.MRT/GrXlVRT/P+=IemT/WJw({IT/]xc{D{T/cVP4|hT/gvKHNIT/jxG7INT/l=)]R5 !T/jl'/DRT/kL:+\ET/q]]P2{T/z@*wl~~SFWSy2R%SFQ:{I%%SFHU>_R%SF=P7%%%SF0/DR%%SDz[ADR%SDh}gZ~~SDUK7MR% !SD@%%%%%SD(p*H~~SBj%ahR%SBObK;R%SB3r@v%%S@pcvv%%S@R:s?~~S@2Tp2R%S>k_-VR%S>IY_R%% !S<6LFhR%S:@;=hR%S8;6NI%%S6\MnDR%S6:whzR%S4qb[MR%S4LRQVR%S4%dY_R%S2X@%%%%S20BG_R% !S0aNY6~~S06g.MR%S.cM~VR%RxVxt7%%RlnOpZ~~R`hv))R%RTJo';R%RFsKCZ~~R:5V~VR%Qj?{qR%%R_(CwDR%R{;nhzR%S/[D5_R%S1mLc-~~S5%F\DR%S79unm%%S9NoOhR%S;_V)Q~~SAdvIMR% !SE^n(2R%SITNy[%%SM3|'c~~SOgA,7%%SS@4H.%%SUc^[%%%SY'[-.%%S[F;V)R%S]Ym=?~~ #% [ 59] la_m3.amp !Q%%%%%%%PTso3nvfQ0qMYI@VQ>-^y5;rQTo=?;xtR.VYzL_rR6X.lki]RF%h4k0xR\c7jHCsRj;%na;z !Rbkty9@ERZ:IKL.MRRp3Q,UkRN@thF;zRJ>cdk{)RFW9iK*vRD(W-<4hR@`jVq2%R>Kg{q-WRKI34&uR@kPy}odRBnbu7emRDa1LcYhRFO[Opb?RH;ek8\mRJ(~yyFh !RJn(2H3=RLEXPPSDRLTu{@8(RL=NUq6NRJXVlIU[RHQ}3FIfRF2>)\c>RBas^3+(R@;T:[M.R>'y*c:{ !R:~@p?){R>YkNLfDRD&(xgT/RHUqP_LURN3TzpZmRR\%d6%4RVI.btWIRX;EwA:YRXFT\3`)RVo3^RQV !RT=vX+6yRPsXP>HzRN%shChBRJ3yu[irRFnR8Kf=RBtFJoGBR@igOXG?R>OZkU_UR<3U6g[%%SI\:k7%%SK]_V)R%SMjHvv%%SO~P&l~~SS>.QVR%SU\^&DR%SY%rDzR%S[MkSDR% !Se+=X@%%Sk:i4hR%Sq7Tl-~~SuRTG_R%SyUvz)R%S}R,cVR%T-]gbcVRT-l^AP_RT-zCJl~~T/,wwy2R !T/8<30d%T/BI9_zRT/KKC6VRT/SVgdemT/Zo-:{IT/a7z%qzT/fdl+|hT/jym1{IT/mm4hvMT/o&w'R5 !T/m&QrqRT/mNPX\ET/scT'_{T/|Pt{qRT1,0(*I%T16Kbk_RT1AEOP7%T1M*S0;RT1YA0;R%T1|veHVR !T39+}{qRT3OO@mv%T3d)cnm%T3wuhAm%T514(Rv%T5ChEqR%T5TfDIv%T5f1C.MRT5wcLk7% #% [ 59] la_m3.caps !SF\UwDR%SF[>wl~~SFWSy2R%SFQ:{I%%SFHU>_R%SF=P7%%%SF0/DR%%SDz[ADR%SDh}gZ~~SDUK7MR% !SD@%%%%%SD(p*H~~SBj%ahR%SBObK;R%SB3r@v%%S@pcvv%%S@R:s?~~S@2Tp2R%S>k_-VR%S>IY_R%% !S<6LFhR%S:@;=hR%S8;6NI%%S6\MnDR%S6:whzR%S4qb[MR%S4LRQVR%S4%dY_R%S2X@%%%%S20BG_R% !S0aNY6~~S06g.MR%S.cM~VR%RxVxt7%%RlnOpZ~~R`hv))R%RTJo';R%RFsKCZ~~R:5V~VR%Qj?{qR%%R_(CwDR%R{;nhzR%S/[D5_R%S1mLc-~~S5%F\DR%S79unm%%S9NoOhR%S;_V)Q~~SAdvIMR% !SE^n(2R%SITNy[%%SM3|'c~~SOgA,7%%SS@4H.%%SUc^[%%%SY'[-.%%S[F;V)R%S]Ym=?~~ #% [ 59] la_m4.amp !Q%%%%%%%QlGuf7hPR4=M:].VR !S4_z-VR%S2L-5)9dS0^kp2o3S00-po}/S.h-&hV)R~K/cd.fRxeA26NIRt4Ti-vRRn`X~wsPRj2L0sp7 !RZbA*0FqRPyP;+B'RL9|{)IvRL,c'p{IRHf%V68URDv=V{eDRB4|k=A]R>^'7j`IR<;X=;1[R:5\/0uo !R8aUztC{R8kC^:[%R:DnNJ?_R<'_OqnERC3QSvfRshQ~~SC[12Q~~SEr0d%%%SI(_)R%%SK3Q-~~~SM7qzQ~~ !SQz-VR%%SUJy2Q~~SWdEI%%%S[1VzQ~~S]A*qR%%T0wm%%T.sFP6~~T.p84@%%T.lm~.%% !T.c?JDR%T.Xt_Q~~S~]hMzR%S|\5.v%%SzguB;R%Sx{oOhR%Sx5LNqR%SvCo;Q~~StNfWqR%Sp4&P_R% !Slp)~VR%SjL.))R%Sh:%U[%%Sf0}SDR%Sb}G[MR%S`|s'd%%S`'yNqR%S^)B7MR%S\57%%%% #% [ 59] la_m5.amp !Q%%%%%%%QlJZI,{;R4>%zqG2R/}osS6x(p=ea !S4a(Ru~~S2M*o~IVS0_^biGGS00sYJ:GS.hk[F7vR~Ps1b0TRxi|M-lFRt8-L>E~RnbzYCO`Rj3[WHO\ !RZ`&k/sPRPu3qd9;RL3CT&:GRJ|m_^{IRHYotB`iRDhPCgDfRB&&zb>?R>M~Z2)RR<)~%(EUR8|6=vi) !R8LI]YlNR8UmzrI%R:0S]c6.R:oK>=bKR<C3R6E~?nm%R2nt4-?& !Qzp[v'V^R2r__E/uR:mbgR}?RBJ=/'quRHcWLiOfRNVa]*yxRRcnWV-lRT}T]W9FRVW`NR.(RV[Mp>j+ !RT7HnO%2RPsLerVgRN*PlLykRJ32Z_|XRFj+)^k%RBmfTH8UR@SvTFwuR>A?-\%fRC2R%% !SS&}6~~~SUR9;R%%SWk_R%%%S[8q)Q~~S]H2)Q~~S_E8m%%%Sa>;)Q~~Sc>{qR%%SeP?.%%%Sgx?VQ~~ !Sk^6VR%%SoJ}6~~~Ss)5_Q~~SuIv%%%%SwU2Q~~~SyMEqQ~~S{5G7%%%S{e4@%%%S}&du~~~S{~b_Q~~ !Sw:&DR%%SqFp[%%%Sq7Q2)R%SqdPgZ~~SsDxOhR%Su'=T;R%SudD5_R%SwM)R%%%Sy>vY_R%S}u3VzvMRT/Ky]Kd%T/X,(&DRT/d1S@MRT/p3eDR% #% [ 59] la_m5.caps !T0DYcVR%T0Dkwm%%T0EDzR%%T0F;1[%%T0GJq)R%T0Ht*qR%T0JN8l~~T0L3@u~~T0MrH~~~T0OSq)R% !T0Q*DzR%T0RH^Z~~T0STd%%%T0TG;)R%T0Tv]d%%T0U2R%%%T0U+7v%%T0T`iI%%T0Sy2Q~~T0RtG6~~ !T0MnhzR%T0Hi0c~~T0ARahR%T0>*qR%%T0wm%%T.sFP6~~T.p84@%%T.lm~.%% !T.c?JDR%T.Xt_Q~~S~]hMzR%S|\5.v%%SzguB;R%Sx{oOhR%Sx5LNqR%SvCo;Q~~StNfWqR%Sp4&P_R% !Slp)~VR%SjL.))R%Sh:%U[%%Sf0}SDR%Sb}G[MR%S`|s'd%%S`'yNqR%S^)B7MR%S\57%%%% ifeffit-1.2.11d/src/fefftab/11.dat0000755000175000017500000000616010771740460015463 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] na.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] na_k.amp !Q%%%%%%%QH}z9d%%QlOxw-}GR07GwrotR2gO>en]R61yN9%9R8K8-M~VR:Yfma*UR<`E-\}7R>bxBG_R !R@cQgN3URBe&_=D*RDjFRh^3RFtPkpRlDgbGqB !Rxw/%&FyR~}?kh4(S.fOE&iTS.rK+}{qS.tpERg~S.mUKvsXS._F)Uq>R~@3D*@vRxe*xI.fRt5|hD2J !RnOV/1&iRj*gGB}xRdk+Wp,KR`aEQdRXy,L,?ZRV8~l~>qRR^vvb)pRP0Rfe9nRLfDSSf3 !RF])/4@%RB,n)5FeR>':muE)R:?YON}?R6nOwB;dR4ZSQNm-R2\Xe.<4R0oNYkk4R04YIV).QpR_R%SC7XpZ~~SE]6:2R%SGzkwm%% !SK6[iqR%SMDy>_R%SOKjP6~~SQK+dMR%SSB[-.%%SU1}od%%SUls`I%%SWY5G7%%SY@zrH~~S[%u6.%% !S_*qvMR%SaGATc~~ScXLVzR%SebL*I%%SgdG@ADRSi`iEDzRSkYF*y[%SmNZJDR%So@_f;R%Sq0?lF@% !Sqtth4'dSs\2tK;RSu>hTp2RSuw/>&m%SwQWwXhRSy(yUBd%SyWEm))RS{*],wm%S{Vlc)zRS}(l;j@% !T-TA0_zRT-^~AL[%T-i)%MR%T-rT`iI%T-{l=lVRT/*{1Rv%T/3n`qR%T/<@?B;RT/D\|lVRT/[[2EqR !T/hzU_)RT/vHAL[%T1'E&XhRT12dD5_RT1==BKd%T1E~o7MRT1OtX7v%T1UQI12RT1X632zR%S41g2Q~~S2ayRv%%S2\5wm%%S2`Adv%% !S2F=|hR%S0yP*qR%S0J-JDR%S.nKl.%%RxfqEqR%Rl&7%%S2=F+hR%S2Rl>6~~S2jP[MR% !S4*EiH~~S4FH-~~~S4dbWI%%S6+>k_R%S6NI%%%%S6tO@%%%S8JN];R%S8rDzQ~~S:3F3qR%S:LLJl~~ !S)zvMR%S>j=3qR%S@S?^[%%SB>Z:2R%SD+l2)R%SDtPwl~~SFdS}7%%SHU[mv%%SJGYoc~~ !SL:?NH~~SN-[iqR%SN{Imu~~SPo_zQ~~SRd_R%TX`~rqR%TX=3([%%TVB*uVR%TRn5wl~~TNs5shR%TJddY_R% !TFVe(2R%TBXDMzR%T>rQ-~~~Tz9d%%Sb9RY_R% !SZO0[v%%SZ.IMR%%SZOurqR%S\A2=hR%S^Owu-~~S`u?JDR%SdRu6.%%Sh?pJm%%Sl:2R%%%Sp@>wm%% !StQ:VzR%Sxl+X?~~S~61_)R%T.a5shR%T.xSHVR%T06XT;R%T0OLVzR%T0i(6VR%T2)Al~~~T2DC&DR% !T40f';R%T4{3U2R%T6oIahR%T8gJm%%%T:b~b_R%TdZrqR%T@jNY6~~TBs[UZ~~TJH6RMR% !TNvaD)R%TTW-NH~~TZC1c-~~T`:TSl~~Tf=&,6~~TlJ=7u~~Trb4|hR%Tz*J8DR%U.V}C2R% ifeffit-1.2.11d/src/fefftab/50.dat0000755000175000017500000003577010771740460015477 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] sn.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] sn_k.amp !Q%%%%%%%QB'/BhU;Q\wWSBOiQxRu8_^2R0OA&[VgR2gGZ`x{R4y>%V%MR8*`t[7^R:.(h-*iR<(YWy=BaXR@/YT)6NR@S+rxYtR@f+ytL*R@gp]s*zR@V`E2f;R@2\4ppsR>WY_4.~RoD{_tS0_@M0AoS.}S+3HbR|bzm4*zRr/JL*thRh)uyKMBR^c^AjuNRX-}}shRRR9`d/BPRNA{%pjm !RLvtMiQ.RTK>C(`=R\.]s3bxR`GdW~){RbN739qjRd*`vy3ARd9_vU,DRbkR`p+q^A,RZ`|K)K[ !RTr-+8%PRPSX'*q5RL<+T65)RF}1.iW~RD:F.=+ZR@Q(3xgfR>315vc0R<2v~k:;R:D[d1Ip #% [ 59] sn_k.phase !RW21[%%%S-fU&DR%S1sA8DR%S5yTx;R%S9yA,7%%S=rXH.%%SAe@qzR%SEQTOhR%SI75[MR%SKp>;)R% !SOHg.MR%SQtRU[%%SU?K|@%%SW]2Z-~~SYs;zQ~~S]&uRMR%S_*|pZ~~S_}SDR%%Saglnl~~Sc?\4@%% !Sc<`,_R%SaJ9|?~~Sa91k7%%Sa[u6.%%ScAZjhR%Se06+X@%SeyWehzRSghebO@%SiWGUk7%SkCXc:2R !Sm+qF;zRSmhx'_zRSoEWBtb&Sov:*I%%SqFY^>_RSqiea`I%Ss*^RQVRSs;3@-.%Ss?NI%%%Ss7fy*I% !Sqp+7u~~Ss0a|hR%Su/uvv%%SwKe8DR%SyqjdMR%S}@*a?~~T-XiDV)RT-f%<*qR%S@__EqR%S@Jl6.%% !S@3koc~~S>taxc~~S>YR12R%S>?RMR%Rd{Vj@%%RXUyk7%%RL.D5_R% !R>b;MzR%R2A4dMR%O>mVIv%%R1;1[%%%R=O1&DR%RI`7~-~~RUr52zR%Rc,`@u~~RoDvMQ~~R{b%~.%% !S/|'d%%%S3WimMR%S7.em%%%S9Vq5_R%S;ugRv%%S?3koc~~SAH'Sl~~SCZq^2R%SEl\}7%%SM/5wl~~ !SQ*5{qR%SSyey2R%SWd|+hR%S[B,.u~~S]t\/R=@%%S>Lk[MR% !S@SC>_R%SBGdEI%%SD/{Y6~~SDd|t_R%SFCZZVR%SH%%mv%%SHbc2)R%SJHLFhR%SL0%]c~~SLs6b_R% !SN]p{I%%SPIkshR%SR6vQVR%SR~zzQ~~STmy:Z~~SV]bk_R%SXN0?VR%SZ?0p2R%S\0dIMR%S\|ieDR% !Sb._f;R%Sf7%%%S@}czzR%S@{+'c~~SB-gwDR%SBD~2)R%SBd-RMR%SD/=\DR% !SDYHJDR%SF-[EH~~SF_<0c~~SH9z=hR%SHq9d%%%SJPnu.%%SL2S\m%%SLp/`qR%SNUJm%%%SP<AtV1=qR>`vy@KtR>tj(>PxR@%(9ENaR@&{OXzBR>}mUlQ_ !R@aU9@f7RF[+-7emR^@U;.W]Rxh}{E'lS0V3fL5hS2^}Dc%vS4>Q[pI~S4KC*)>|S47L@c7fS2g_,Q%- !S24/QVkSS0W-@tZ3S.wu*d/BR|ks<'lRZ[?8]MBR^f;6%XqR`k&ItuQRbH?`V}*EY?&eR<(aPzY)R:<*=2(7 #% [ 59] sn_l1.phase !RW{qQ~~~S-mQzzR%S1y*mMR%S5}?vv%%S9zEqR%%S=p1c.%%SA^o_zR%SEFS(2R%SI'25_R%SKZyBc~~ !SO-tO?~~SQT';Q~~SSs>G6~~SW1Q>6~~SYB7qzR%S[J~%v%%S]Jn\l~~S_@PC2R%Sa*EDzR%Sa`KKd%% !ScH_%MR%Sc61:Z~~Sc50/DR%ScIMvMR%Scsjxd%%SeMMzR%%Sg+oK?VRSghs4;zRSiOh-VR%Sk7(xWqR !Skv=1Jm%SmWAw0;RSo2e@oHsSobWbSDRSq2KSl~~SqUQf?VRSqpt.v%%Ss(u(g2RSs092Z.%Ss->t{qR !Sqr\q)R%Ss5UFhR%Su20G_R%SwKp2Q~~SypiY7%%S}>,*qR%T-XM>WI%T-eZ,k_RT-s'0|@%T/?^^_)R !T/WnCc.%T/o&6fd%T1+-,k_RT1@b{qR%T1S~v-.%T1hP4|hRT1za29d%T33QCs@%T3I]d%%% #% [ 59] sn_l1.caps !SBe*}_R%SBcfd%%%SB_b6~~~SBX{0c~~SBO[12R%SBCg2Q~~SB5E4hR%S@~VQ~~~S@kOdMR%S@V0l.%% !S@>^c-~~S@%,cVR%S>cNmMR%S>Er@u~~S>&DQ~~~S<^r,_R%S<;NDzR%S:p/`qR%S:HlF?~~S8yLo;R% !S6JDR%%%S4-tshR%S26iyZ~~S0c%--~~S00;vMR%S.T5od%%Rt%Y;)R%RfZk2zR%RZ-ZVQ~~RLY(&DR% !R@,Y&m%%R2_lB;R%P`AMnDR%R1&[Y_R%R=>_R%%%RISU.MR%RUhR%%%%Rc%BWqR%Ro?W@u~~R{^%12R% !S/{h5_R%S3WP?-~~S7.D~VR%S9VPG6~~S;uM~VR%S?3`uVR%SAH'Sl~~SCZu>7%%SEl`];R%SM/2=hR% !SQ*9[u~~SSyiY7%%SWd|+hR%S[B,.u~~S]t\uIz*QB5jcF5+QL.9d5(KQV5g6c\}Q`J.tM'tQjk}3Cr-Qv:>x>g[R.XOXc_R>i_mhwaRFeF03mNRNl;vR|,RT\bO?~~RX?_[.H_RZK9]{uVR\+a8r[OR\,{iLbCRZZA?lt{RVVH8%AD !RRA&,*utRNAHqs`%RJG>g.awRFCnJn<%RBfwaFt_R@,a)Be&R<]Z`H.nR:C_gxp^R8R7@Ki= #% [ 59] sn_l2.phase !S:,qAm%%S4r4D)R%S0aG7%%SoDY?.%%Ss@w\l~~SuW*];R%SwTz=hR%SyEw4@%%S{1\8DR%S{u_nDR%S}]7%T/47`0d%T/>lNI%%T/]_zR%% !T/q?]]SmT1)sq0G`T1;e=LA,T1MNP}*rT1]'g:[%T1my~iU3T1|lRqzRT30vl>7%T3@s_Z.% #% [ 59] sn_l2.caps !SdJGg[%%SdJD-VR%SdJ93I%%SdJ&y2R%SdI\P_R%SdHtshR%SdGe4?~~SdE|L2R%SdCNM)R%Sd@&\l~~ !Sd;Lg2R%Sd5TWqR%Sd./Td%%Sd%))R%%Sbt+;zR%Sbg'WqR%SbWm))R%SbF1o;R%Sb1|\DR%S`u)V)R% !S^xCZ~~~S\x=/l~~S\C?NH~~S\1eTc~~SZp]';R%SZL4T;R%SX{756~~SXKjt_R%SVsW,_R%SV?eP_R% !STe5wl~~ST0rY6~~SRW1wDR%SP~=lVR%SPLUg2R%SNuv--~~SNF=X@%%SLqF`I%%SLBpVzR%SJnRahR% !SHSUwDR%SF6VvMR%SBsj/m%%S@[=dMR%S>IK+@%%S<>Y&m%%S:9A}7%%S86Xxd%%S64+hQ~~S0:o;R%% !RlV`Y6~~RL=QJDR%Qp=FP7%%R99qEqR%RSdU[%%%RmgUg2R%S-rq-VR%S1'ys@%%S34uNH~~ #% [ 59] sn_l3.amp !Q%%%%%%%Q.k}h)NEQ8]Pc_;BQBViA-rMQLYU2wvfQVjglRF8Qb-{:3OPQlWdsqnEQx,pB>->R.`e%tG7 !R07RK@LcR0f-6%;bR27[N1Z6R2^=Q;j@R4%9aq,hR4>w^GSiR4Nas'd%R4SzS)(cR4LB|*0dR45wGnu. !R061~L%zQZ]L=O*zR2]NR)`5RBNH6H:{RRjMR-hBRb8TkYC{Rl\h-wa'_9m/0 !R>VwZsQoRFQ-RuZVRNUqYMb7RTDh=hR%RX&zl~i1RZ2,i/1aRZm+km}-RZp;^|0\RZFG)|]%RVGxRksh !RR5\tNInRN:78~|`RJAdOH?RRF?`QI~KRBdxkCO`R@+0Yr?>R<\mk0bGR:DI@`|SR8S'^bJ( #% [ 59] sn_l3.phase !S8sQ%v%%S4^uB;R%S0N97MR%Rh5shQ~~R>>_R%%%R5*DzR%%R[mv%%%%S-cFdMR%S1UV1Z~~S5Af/DR% !S9'kcVR%S;auNH~~S?<0c~~~SAj\DR%%SE9OD)R%SG].12R%SI|(.MR%SM;d9;R%SOP~b_R%SQbWmMR% !SY8y2R%%Sa,Yod%%SoQ1:[%%SsSVAm%%SukA0;R%Swi6jhR%SyZ3a@%%S{F=3qR%S}/vADR%S}qS8DR% !T-VlX/m%T-\Kzb7%T-aI6JDRT-eb.QVRT-i:1>_RT-kok?.%T-mHP&m%T-mO(Rv%T-kb?RMRT-gu0';R !T-[_[ADRT-XPWmMRT-]W>O@%T-f?RqzRT-pVkwm%T-{,Pwm%T/+NCBd%T/5h4'd%T/@?B;R%T/_AHVR% !T/rp1TSmT1+N%+t_T1=FePn,T1O(^xWrT1^_U:[%T1obfw(3T1~MzvMRT32[tG7%T3Bj{y[% #% [ 59] sn_l3.caps !SdJGg[%%SdJD-VR%SdJ93I%%SdJ&y2R%SdI\P_R%SdHtshR%SdGe4?~~SdE|L2R%SdCNM)R%Sd@&\l~~ !Sd;Lg2R%Sd5TWqR%Sd./Td%%Sd%))R%%Sbt+;zR%Sbg'WqR%SbWm))R%SbF1o;R%Sb1|\DR%S`u)V)R% !S^xCZ~~~S\x=/l~~S\C?NH~~S\1eTc~~SZp]';R%SZL4T;R%SX{756~~SXKjt_R%SVsW,_R%SV?eP_R% !STe5wl~~ST0rY6~~SRW1wDR%SP~=lVR%SPLUg2R%SNuv--~~SNF=X@%%SLqF`I%%SLBpVzR%SJnRahR% !SHSUwDR%SF6VvMR%SBsj/m%%S@[=dMR%S>IK+@%%S<>Y&m%%S:9A}7%%S86Xxd%%S64+hQ~~S0:o;R%% !RlV`Y6~~RL=QJDR%Qp=FP7%%R99qEqR%RSdU[%%%RmgUg2R%S-rq-VR%S1'ys@%%S34uNH~~ #% [ 59] sn_m1.amp !Q%%%%%%%Q8A@kH%vQJ]Bwz3]Q\x4oPi]Qp64@dktR.^TEY[MR0VhoO.5R2LquM.ER4AuynL[R634M&R= !R6|&?2rIR8e:,lkWR:JRWOHwR<)F{my;R<\>i\3-R>-zj4C;R>RS[6?JR>s*VhpkR@4?yTx;R@O%8)[f !RD,Xgf&MRJ7L,7X(Rb/n~C*IR|MuV\XDS0dqE(3^S2k1RgJmS4D?^R;bS4JO_;PGS42@N0rYS2aaIp%V !S2.H?BBlS0RJ7lD(S.tCY8V;R|&l;-KXRpns@)gORh'2gIGKR^ydZ*b/RX\GId~.RR{{xLhjRP6r~cUc !RNMhY03%RT4jE{U{RZ>RU-+XR^A53BY=R`DFC4(SR`|C\N<,Rb3mz4Y=R`fHewY,R^nn`P%9RXx*:D^[ !RT:0b6K|RP'EhIB|RJpR=o-JRF`d~\8bRB|yNB?iR@7%Sk,KX`I% !Skj1-^[%SmJ6X/m%Sm~~)@V%SoTQ)1[%So~<1.MRSqGRgo;RSqcLcvv%Sqv`;^2RSs%{1wDRSs&%SXhR !Sqs=3qR%Ss8-%u~~Su3RADR%SwL:[%%%Syq)-VR%S}>EY6~~T-XN&4@%T-eYe}7%T-s(9G_RT/?h/XhR !T/Wwn\m%T/o4)Am%T1+:7iqRT1@q5;)RT1T2'+@%T1h[pg2RT1zl,G7%T33[w8DRT3IfMAm% #% [ 59] sn_m1.caps !SBgrQ-~~SBfPWI%%SBbHJDR%SB[]d%%%SBR:*H~~SBF>k_R%SB7oSl~~SB&}7%%%S@mo/DR%S@XLVzR% !S@@vmv%%S@'=T;R%S>e[~.%%S>H%QVR%S>(JHVR%S<`w}7%%S<=T;Q~~S:r1wDR%S:Jn\l~~S8{KKd%% !S6L4T;R%S4/l6.%%S2:I~.%%S0g%z)R%S041o;R%S.Wdz)R%RtDT';R%Rfuhf;R%RZDpk7%%RLlwdu~~ !R@=KC[%%R2n%el~~PzAY2zR%R/w-%u~~R=6~ZVR%RIMd9;R%RUd0CZ~~Ra|,{qR%Ro=Bp2R%R{\N];R% !S/{dUZ~~S3WEDzR%S7.:*I%%S9VEM)R%S;uC*H~~S?3];Q~~SAH+3qR%SCZ|X@%%SEld=@%%SM/2=hR% !SQ*=;zR%SSym9;R%SWd|+hR%S[B/hzR%S]t_vMR%SaG/@MR%ScinZwdu~~QJwra@%%QX;}C2R%Qd]OA'8aQpzgY[;>Q~<=4z^{R0(_zQ=HR0_AIrZo !R292@8q)R2j@QO7vR4>)g]KdR4fj32LgR605(pdfR6M9WoA4R6b,Z0@jR6mU8Z7fR6no&gXXR6cV|X]3 !R47Xh_qZR.lE1|MjQV4aic3aR2?u8S:kR>_[jNvERJg&En-oRTA8xIKtRXr-U;g*RZ]?e~80RZ,B[`0d !RVg>2ta0RRsn=6LkRNg/Uca(RJTpA9A}RFIcJGJMRBGUZO;VR>Vr|XvbR:}KC65dR8h3M*{9R8(;b.;b !R:46(LUgR@}S7WK'RHmN41o;RNVk~L)ZRRB@h3>^RTa*gGg,RVZv&7B_RVy2k\U6RVhaaYHkRTJy66.%% !S9t7mv%%S=JOp[%%S?u6RMR%SC@TG_R%SE_}gZ~~SGz]CZ~~SK5HJDR%SMDnDR%%SONfWqR%SQRM-VR% !SW7b{qR%SYW~rqR%Se=kC2R%SqlRMR%%Su\XD)R%SwbDj@%%SyS+lVR%S{C2T1mQyQ>7T1|Z>[MRT30zLBd%T3A>.-.% #% [ 59] sn_m2.caps !SdI8(2R%SdI8(2R%SdI--~~~SdHxSl~~SdHT+@%%SdGshQ~~SdFgc-~~SdE([%%%SdB[u~~~Sd?7el~~ !Sd:e0;R%Sd4t;)R%Sd-VR%%%Sb~S`qR%Sbs]3I%%Sbf`iI%%SbWOt_R%SbEy[%%%Sb1n(2R%S`t|;zR% !S^xNU2R%S\xV^2R%S\DO3qR%S\34hR%%SZq~zzR%SZMD9c~~SX|8@MR%SXLa+hR%SVt>cVR%SV@EmMR% !STehzQ~~ST1DAm%%SRWVEqR%SP~^Z~~~SPLo;Q~~SNv5[MR%SNFOlVR%SLqQZVR%SLB{Q-~~SJnVAm%% !SHSUwDR%SF6VvMR%SBsj/m%%S@[ADR%%S>INeDR%S<>\`qR%S:9A}7%%S86U>_R%S64(.MR%S0:o;R%% !RlVR%%%%RL=?6-~~Qpdb2zR%QL,bgZ~~QXO}{qR%Qdvu&*Y7Qr?aR)ycQ~`sUqpkR0,skxF(R0d/:[3Y !R2>P5^uBR2p5)CvVR4DHEqvNR4mY-GA0R67D)w5/R6TiVLI~R6ir[m%nR6uOx^40R6vuMlB19xD;BRJ5AuUfhRRg)YSS,RX=4^yk7RZ(88r*]RXRKooC[ !RV5/x2.ERRD%H.PhRN:Il&sPRJ+M2hS]RD}h>TPWR@~tOV{eR>79FL2RR:`IO'JQR8L|gRB|R6h5r@gK !R8t_t9H*R@aF,Yz^RHM]TF'dRN3yCrUPRPx%6H@lRT~6wRLcZx(*IRH{D-[N2RF+jy*mNRBXf0[^aR>}e4tnMR}*qR%SYW5{qR%Scsg>_R%Ss3eDQ~~Su||D)R%Sy&fSm%%Syooh)R%S{XJ0;R%S}?k2zR%T-R)%qzR !T-X(.MR%T-]W>O@%T-b?GSDRT-fFL2R%T-i\(2R%T-km9_zRT-lm]?VRT-l/`M)RT-iI,?.%T-dT9+@% !T-VhW*qRT-w=QJDRT/'uXxd%T/2K^g2RT/=5'7MRT/\mIMR% !T/pfh)R%T1)eMB[vT1<(Q,dET1M}}O@%T1]tH0p3T1o3GUk7T1~-2MzRT32X:Bd%T3C.0C[% #% [ 59] sn_m3.caps !SdI8(2R%SdI8(2R%SdI--~~~SdHxSl~~SdHT+@%%SdGshQ~~SdFgc-~~SdE([%%%SdB[u~~~Sd?7el~~ !Sd:e0;R%Sd4t;)R%Sd-VR%%%Sb~S`qR%Sbs]3I%%Sbf`iI%%SbWOt_R%SbEy[%%%Sb1n(2R%S`t|;zR% !S^xNU2R%S\xV^2R%S\DO3qR%S\34hR%%SZq~zzR%SZMD9c~~SX|8@MR%SXLa+hR%SVt>cVR%SV@EmMR% !STehzQ~~ST1DAm%%SRWVEqR%SP~^Z~~~SPLo;Q~~SNv5[MR%SNFOlVR%SLqQZVR%SLB{Q-~~SJnVAm%% !SHSUwDR%SF6VvMR%SBsj/m%%S@[ADR%%S>INeDR%S<>\`qR%S:9A}7%%S86U>_R%S64(.MR%S0:o;R%% !RlVR%%%%RL=?6-~~QpJ`HA(R20'GN%ER2yEkDB7R4evK2zv !R6O{dGhJR85t*QK3R8sH?rM)R:TRT}Z_R<4Z^AP_RX7~nt?R@G?&=U*RB@vDQDbRDH%)@oT !RJ|jlMhbRNTyWaG?R\e5YBR5Rh_NUK>hRl.aERemRf@Cs`+qR\-|~Q{iRPz`V_ErRJl>x[v%RHQ;gTbG !RH(ex=j0RFWhWw4@RD`mgg{IRBHY52kxR>tC1C'3R<3t3/,7R8E&FT;RR4Q6j1ohn:K=>R<8],W>lR8gGxT_5R6g[qTIt #% [ 59] sn_m4.phase !RMrY6~~~RyuNH~~~S1Ipg2R%S5LFhR%%S9GN,_R%S=:b?.%%SA&rh{uo>hR@]=vw<%RB[:rQo\RDe8IN2B !RL=fvTzbRNh}`&`)R\zRLB`ERhm?A3,_Rl2=}^c.Rf;]+HhBRZ~`jmq2RPp\+%pCRJcg'u%vRHJ+4dj` !RF{d|nn]RFPkQn18}R<+6v5qBR8S !R.ZYKeJYR8k)SlRvRBS.Yyk;RH{XbW^sRN>c>Y~>RR%s`GysRT:k`@N^RTpe;*42RTtR@I*SRRw@l.@d !RP9u^=zMRLQj?uT+RHl(Uxl=RDsSBx'NRBA0'X9(R>f~?bt>R<6XxP|YR8e<^QpRR6dOdP{_ #% [ 59] sn_m5.phase !RaL&DQ~~S/;@~-~~S3Ed12R%S7H:2Q~~S;BRY_R%S?5BCZ~~SAzcJDR%SE^TSl~~SI;^VzR%SKkz9c~~ !SO;u^[%%SQ_j@%%%SS~)zQ~~SW=LVzR%SYQ{iH~~S[a~F?~~S]lpJl~~S_rQvv%%SaqS\l~~Scg~:2R% !SgZ0';R%SgvpBd%%SiOs'd%%Si+\hzR%Sg;RIMR%Se]47v%%SeQk{qR%Se}fl-~~SgxFp[%%Siq6rqR% !SkM@Y_R%Ske|H.%%Ski\L[%%SkaA8DR%SkRcF@%%SkAP;)R%Sk,]+?~~Sihq~VR%Si5o?VR%SeyE0c~~ !SYVvMQ~~SW7TG_R%SW3ehzR%SWMpk7%%SWyJm%%%SYS*4hR%S[-7%%SmXDrH~~Sow;5_R%Ss-6RMR%Su4HRMR%Sw>@em%% #% [ 59] sn_m5.caps !SxbV~VR%SxbL*I%%Sxa}{qR%Sxa@%%%%Sx`F3qR%Sx_6NH~~Sx]jt_R%Sx\6fd%%SxZM~VR%SxX]|?~~ !SxVc%v%%SxTh)Q~~SxRem%%%SxPg6VR%SxNhZ-~~SxLm]d%%SxJkG6~~SxHapZ~~SxFBKd%%SxC\8DR% !Sx6XT;R%SvvcF@%%Svu+X@%%Sx8p_)R%SxPBh)R%SxYbgZ~~SxXwP_R%SxP\[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] ir_k.amp !Q%%%%%%%R<:T.+bKRR2=QA[5RfK^GYYpRxmx`/,7S0%[|yhjS0dZ7HDES2=9fv^LS2c9iZZHS2|m-Ijh !S40EYLbvS42YtsHKS4*cx&:GS2s@pWOuS2Y\V4A8S28n26h_S0kXc5ZLS0?6n7[+S.hAmz?FRxaP}G_. !RR~ed?c*R:;oIYS/R8e\N{s0R`<0gKF(R~f/x2O4S0KOXH&eS0yTpfILS2+G>jmBS0urd_?\S0R>YXmq !S.}UYybQR~(]iLtxRr`+1vU[Rj(UV-9DRbN})<\MR\xB`L:[RZA&BOhRRXM{Cu%-RX56u@GpRX>bzFN5 !RZ0')kayRXzhZEcBRTrD6W2BRN\YNY/eRHmWf?*iRF.rx0A}RD5i,zpGRB|l3.^.RDqM5;)RRNjSYKg; !RT(dWm>xRVUNCXX@RVp7RTO=7{8/RR-^^fx-RNWLsho3RJTlJ~{xRF{g^nym #% [ 59] ir_k.phase !S5'f';R%S9<:Jl~~S=LruVR%SAYPSDR%SEb88DR%SIfy*H~~SMgi}_R%SQdZ)zR%SU]T7MR%SYRMQ~~~ !S]CPshR%Sa0W(Z~~Scsg>_R%SgX}{qR%Sk:O`H~~Smr:&DR%SqL@ahR%Ss|}2zR%SwPB&L[%Syzs%ahR !T-fI0v]dT/%5?&dvT1@~8b5lT1Q;>~izT1by\?^[T1u+Iem%T3-07>wmT3>j;rI%T9E[1{I%T9\:C.MR !T9n9mem%T;'vVIv%T;;U>;)RT;NQRMR%T;b1cRMRT;tB`iI%T=-EnvNeDRT=Mlfc~~ #% [ 59] ir_k.caps !S4OzAl~~S4O-jhR%S4LNqR%%S4H4P7%%S4B-fc~~S4:EU2R%S40p{H~~S4%`yZ~~S2rh5_R%S2d0C[%% !S2SiiI%%S2A`M)R%S2-nHVR%S0r5{qR%S0ZgRv%%S0AKG_R%S0&7z)R%S.c%v%%%R|JxCZ~~Rtefx;R% !R\.2j@%%RF1fh)R%S>DmU[%%S>Y8\l~~S>o%]d%%S@,88DR%S@DpFhR% !SB=UNqR%SD&,6~~~SDmEI%%%SFGfG_R%SF{j7v%%SHYC2R%%SJ90WqR%SJu2MzR%SLY::[%%SN?5cVR% !SP&st_R%SPj*y[%%SRTaX?~~ST@QVR%%SV-Iz)R%SVuCNqR%SXd+t_R%SZS]7MR%S\Cnq)R%S^4]3H~~ !Sb=wu.%%SfIf[v%%SjWP?.%%Snffp2R%Srw3,_R%Sx.S4@%%S|@ZrqR%T.V\Td%%T.jUs?~~T0LT/DR% !T0t`@u~~T2Bp2R%%T2k)^2R%T49DIu~~T4aboc~~T60';R%%T6XEa?~~T8&gg2R%T8O3M)R% #% [ 59] ir.lambda !RpNY[MR%RpPqf;R%RpW`,_R%Rpb{([%%Rprdz)R%Rr,pRv%%RrE6~~RvH3[qV)R%S@@dY_R%SB&%el~~SF28u.%% !SHYv56~~SL(S@MR%SNQ||hR%SP|0[v%%STLtwm%%SVx4\DR%SZIz)Q~~S\v/y2R%S`H`];R% #% [ 59] ir_l1.amp !Q%%%%%%%QV~:aSq*R.z|?(;JR4A|[3d1R8W.}u)2R<^/OU<]R@UoT>g[RD;(hQSRNh^*P?.RP>GigN)RP_{{2:SRPrZ?Cl&RPxI@Y;)RPpXx9e]RP\(i.6&RP:dNz0H !RL\ZCGWIRJPPSDRJA4K?z{RF,weJ`)RBxEtf1kRBak?;PlRD){T`'lRDmFlAEARFg]P+`IRHhNP\RBueCQ:WRBm{_v'ZRDKwvbCERLB}Y%^' !RPO%H_RSwi<:o;RSy<.eHVRSy]^jlVRS{%LniiIS{ZyNfWqS}K@tk_RT-U{9BG`T-`U?}k`T-lHd2Er !T-y^R`0dT/.LH0KdT/?%J7%T3TX8@MRT3jiadMR !T3|DC&DRT55RJ`qRT5HzGO@%T5[l(Bd%T5o?p&DRT7'P+`I%T7:RrDzRT7K}axd%T7[:&hzR #% [ 59] ir_l1.caps !S6VR%%%%S6UTSl~~S6R\,7%%S6MlB;R%S6G'[u~~S6>I9;R%S63sT;R%S6'Sm%%%S4s@IMR%S4c<}_R% !S4QIU[%%S4=bK;R%S4(4xc~~S2jmiqR%S2QU>_R%S26EQ.%%S0s7-.%%S0T&L[%%S02b[MR%S.i3yZ~~ !Rj1r,_R%RRW*];R%RLC`&}7QV6}F.Y`Qja,9R~.Q|>`[L7ER.|lF7\QR0F~vdRER0UmI>wmR0OE?Oc_R06|>Jq* !R.i_eY.8Qz1R'q[fQn-cInw_^3QXg_4?'TQTRjgRckQT|R9'nUQZG~NakhQ`N`(e7VQf6lyBd% !QjNRLf&MQlrP`=;zR0Ea6NQHR4v0q^=LRI]dRJ7kg_F`RN4Fg3eDRN}913l_RNfpDUq> !RL`>{wBtRJ'OxUJmRF9z[DO-_tv~R>1{@;b7R>:u1M6*R>b.]8A,buG(R0WW^n7R>{UaC/@RHGwl55~ !RLrc34baRPOVpkr)RR5K*?[ERR5YzUzHRPV4%S4@RNX4E:FKRLQPr1NuRJ7mXn{GRFY\xsDN #% [ 59] ir_l2.phase !S@Cg{I%%S<1%z)R%S8%_Am%%S2{J8DR%S.}gZ~~~Rbi}_Q~~R>:6VR%%R/reDR%%RSa@%%%%RwHZVR%% !S/xa3qR%S3k(o;R%S7hD^2R%S;xg:[%%SAJ8DR%%SG2}C2R%SKpxWqR%SQ20G_R%SS}fl.%%SWL]Kc~~ !S[pI~-~~S[FMj@%%SW=/HVR%SUm/Td%%SW;yc-~~SY5Bh)R%S[7%T/?>nj3rT/AG@:*IT/BHX[U[T/CVh[=dT/RN8SP` !T/`I,?.%T/p(k7%%T1%},shRT15T(NqRT1F'Fp[%T1U-AL[%T1e:yk7%T1u1[IMRT3)nwTd% #% [ 59] ir_l2.caps !SX4;1[%%SX3ehzR%SX2-zzR%SX/KG_R%SX+d))R%SX&wy2R%SV{0d%%%SVtBC[%%SVlVQ~~~SVciU2R% !SVZ%--~~SVO=3qR%SVCT/DR%SV6b_Q~~SV(hj@%%STs[U[%%STc7ADR%STQGSDR%ST=}WH~~ST(ps?~~ !SR6kWI%%SPGe}6~~SN\a;zR%SNIw\l~~SN;o3H~~SL{UVzR%SLWyZ~~~SL-4P6~~SJW*8l~~SH|qnDR% !SHEnuc)zR%S>?z1[%%SpQn'*n~%v !Qp{SUr|qQp[RK{Q.R01hed`1R4M^aM>WR<%3YdxLRB^w:?NIRH`Q(7I)RL^BcJS,RNNbZDE)RN9|ve'h !RL5KUnSuRHXk4y.MRDm2B|C_RB2J<+p[R>qJlwdvR>'hqqlBR2Sc8F0R>i\Rs;2 !RBYTHHX0RDd8,dW]RDM>)OX@RB0m}r0dR>dU(]DJRNmDPIHRFnD.5vl !RL:}J'rt'M #% [ 59] ir_l3.phase !S>>TWqR%S:,(Jl~~S4{B/DR%S0x*Q-~~Rt]Kd%%%RNc6-~~~QT([%%%%RCbK;Q~~RgMj@%%%S/0C6VR% !S1z38l~~S5rPcVR%S9zu:2R%S?CJl~~~SE*EiI%%SIvEmMR%SONW}_R%SSV,C2R%SW8?^[%%SYV`Y7%% !S]uYgZ~~S]TUJm%%SYE0?VR%SWdxKd%%SY*'l.%%SYyFD)R%S[~vv%%%S_0I=?~~Sa?\}7%%ScQeP_R% !Seh.-.%T1Yuc)zR%S>?z1[%%Sgf`iRH/-;wJ}RHagv[+,RJ5qjmW]RJ\=8CEzRJzy54X@RL8)keyW !RLU*G+1&RLDu}RriRV3}9%l>R\TitV.ERb'cR[DZRdLfHZKXRdb:b}lNRb]QUU;JR^D6?nm%RX4KA37Z !RPUuYY&mRHrtlW2BRBl{vS}7R>jx:9V:R<{'Z3~NR>0:)z4qR>t@'p2RR@whj'87% !T1d%(_)RT1tb)^2RT3(dADR%T34W7Y_RT3>&b*qRT3ECBc~~T3JoZ>7%T3O(@ahRT3S>@ADRT3iVB7MR !T3{-d=@%T5481s@%T5Gchf;RT5ZXbod%T5n0r4hRT7&DG*qRT79N-)zRT7J|wP_RT7ZGpRv% #% [ 59] ir_m1.caps !S6ZZ2)R%S6Y\`qR%S6Vd9;R%S6QtO@%%S6K/hzR%S6BMf;R%S67x';R%S6+Q%v%%S4w=\DR%S4g:6VR% !S4UC.MR%S4A_^2R%S4,.QVR%S2ngBd%%S2URQVR%S2:FD)R%S0w7z)R%S0X*y[%%S06jhR%%S.m<,_R% !RjYa/m%%RR{{8m%%R>6'/DR%R4DqZ.%%Q\cyBc~~Q[|(.MR%R5v?B;R%RCL=L2R%RQ=hQ~~~R_Auvv%% !RmO[U[%%R{`Kp2R%S/,M=hR%S/lLFhR%S1QcrqR%S36.mv%%S3sR]d%%S5V&@=dR6bDq?r)RR8?mxq[fR8`p2cQ_R:9bQIU[ !R<~(WIB3R@7DDjvbR@7H&O'dR>8bR]5DR<,?~*\_R:FM.kZ|R:4RWWWhR:N)8B1rR<@\^/|WRDS{4K]q !RHz-{Cx_RL^\qiyxRNU@4[=VRNf*%RS}RNAeQQNXRLWvf]RDRJ_H=z(?RHQ4,]9tRD{,j%/- #% [ 59] ir_m2.phase !S9oH)zR%S?'i<*qR%%SgSHzzR%Sirn`qR%SmDKSm%%Soy{H~~~Ss[B3I%%Sw;2Iv%%Syl@]d%%S}4x?VR%T-UT/DR% !T-jpP*qRT-z4.~.%T/+gPshRT/4<'l.%T/9s{0d%T/=4}x7MT/?'TT[vT/?tLGWIT/A)&N~*T/Odewy2 !T/]_8u.%T/m?>[MRT/}@tG7%T12xi=+hR%ST)0G_R% !SR7'Kc~~SPH)1Z~~SN]WM)R%SNKC6VR%SN=Ea?~~SL|~jhR%SLY::[%%SL.D5_R%SJX.~-~~SH}o?VR% !SHFdMR%%SFg^_)R%SF-I12R%SDLeTd%%SBl:2Q~~SB2I-.%%S@Sd--~~S>vG&l~~S>@^.MR%S88QFlqp{:K !QaTQP:{+5VZQ^cL?:eUQlimRTdnQz0)1vCGR.i,1XX@R05JLkI9 !R0_9tj'dR0J&{),hR0e@?i;^R2Uw9^I~R6ih%4edm3%LcR<4>X}tWR8z5]hU;R81y+)AmR6jcXmI)R6lTx1?NR809e}[NR8_asp[% !RPa<@8(R>P]m^RvR_R%SE3iH~~~SI53DzR%SM-|X@%%SOxE];R%SS`)%MR%SWC2R%SU]PWI%%SW[\,6~~SYY0x;R%S[R34hR%S]DkSDR% !Sa8%em%%SaCK[u~~S_NQRMR%S]iA@MR%S]>Yoc~~S]Q`];R%S_.riH~~S_xyNqR%Sas]3I%%Scv%IMR% !Sg%ahQ~~Si8Y2zR%SkU|\DR%So%W8l~~SqYshQ~~Su;:Ru~~Swus`I%%S{N;9d%%S}r,;)R%T-[em%%% !T-q/MnDRT/&B2Z.%T/1c@9;RT/9xBl.%T/?->7%T16}<=+hR%ST)0G_R% !SR7'Kc~~SPH)1Z~~SN]WM)R%SNKC6VR%SN=Ea?~~SL|~jhR%SLY::[%%SL.D5_R%SJX.~-~~SH}o?VR% !SHFdMR%%SFg^_)R%SF-I12R%SDLeTd%%SBl:2Q~~SB2I-.%%S@Sd--~~S>vG&l~~S>@^.MR%Sq-Iq`~RB@.bF]|RDRp:N[^RFOB~%-. !RH6=3)RD1\gC*mRFk+xJqNRFfo?FNYRD+hKLRvR@?G5*IIR>^~O?6.R@F3>fXyRvR8D5{e.^ !R:7)FLeUR2zR%SuAL6VR%Suq2%MR%Sw@?B;R%Sy.REH~~S{R\u.%%T-UY8\m%T-fOw,7%T-t>QB;R !T/%Ij`I%T/.nsP7%T/7AZF@%T/?Gaxd%T/GJ/L[%T/ObK;R%T/XDnhzRT/aMPk_RT/j^UBd%T/sN)nDR !T1+{n`qRT1914T;RT1BA0_zRT1GR)rI%T1H,4|hRT1D[m-.%T1?6NmMRT19FA8DRT14VW&HVR%Sh:0OhR%Sh2@~.%%Sh('3H~~Sfv6nm%%Sfhhb7%%SfYI9;R% !SfGdEH~~Sf3?>6~~SdutO?~~Sd[Oxc~~Sd>::[%%SbxWqR%%SbVvqzR%Sb3p>_R%S`iot6~~S`ERADR% !S^E~rqR%S\Ka|hR%SZVNDzR%SXb`@u~~SVlhf;R%STt%~-~~SR{=;zR%SR,88DR%SPU,od%%Sop@0v^RBbo+Ao'RF:j1KT\RHOz/E+(RJHVl|X@ !RL%t~|3qRLESK2RnRLNBb~|4RLCG{a-kRL){82b7RJ^>'Ye4RJ0N'9+@RHZ[hH>7RH'mB`ZoRFQs*JY3 !RBwFM'{QR@1~xY&HVR%R@FQt)H>RBcRr-\} !RDcHfd%%RDxP'>g[RDO,8JXhRBM@mV_jR@2z7_6sR[MRT1I(WiI%T1IFnXhRT1E`XH.%T1@3z%MRT1:GLNqRT15iviqRT16y;Iv% !T1=_9?VRT1Fc2rI%T1P0LRv%T1YvCk7%T1dwkG7%T1ncAq)RT1z)gs@%T3+ar8m%T375I9;R #% [ 59] ir_m5.caps !SnJJ}6~~SnJ@))R%SnIqzQ~~SnI,cVR%SnGv~-~~SnF4;zR%SnCnq)R%Sn@d57%%Sn&HVR%Sh:0OhR%Sh2@~.%%Sh('3H~~Sfv6nm%%Sfhhb7%%SfYI9;R% !SfGdEH~~Sf3?>6~~SdutO?~~Sd[Oxc~~Sd>::[%%SbxWqR%%SbVvqzR%Sb3p>_R%S`iot6~~S`ERADR% !S^E~rqR%S\Ka|hR%SZVNDzR%SXb`@u~~SVlhf;R%STt%~-~~SR{=;zR%SR,88DR%SPU,od%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] ca_k.amp !Q%%%%%%%Q`i;0`L;R0{Itur)R6{%X|]XR<~0])S]RD+ej\a`RJ8M36;FRPHif_1[RVW]v/({R\R]|e5/ !R`x34ISYRdGqgJOqRdU]5r};RbKyrXH.R^M}OvaiRZ0jf\KHR`&:oKUKRjF+;3*9Rto0c`GGS.U`ANn'S0(VGEN=S0O0^,odS0j:%>^?S0yMBn08zRBOAVxS(R>~Z^<R<_'Q_,hR6bxBM9J !R46).{Q=R2%'v,WuR0<%eDE;Q|@aO=uNQr{q\I;xQhgAKCrCQ`z[qUAuQ`F.IP=BQX'gxWqR #% [ 59] ca_k.phase !QohzQ~~~RWczzQ~~S-_3];R%S1[53DzRS5KkT|@%S90*%EI%S;`jr8m%S?(E7~.%SA9+*0d%SC7Ccvv% !SC|Q4P7%SEUtA0;RSE{=gc.%SG=xys@%SGV2_j@%SGkk,O@%SG~Y->7%SI3<(Z~~SI(Ug2RSO3h~VR%SQ-<}_R%SS(@H:2RSS~`];R%SU{k&m%%SWzH>7%% !SYynL[%%S[z%qzR%S]y{I%%%S_x\@MR%Satwm%%%Scm}cVR%SedG&l~~SgXC_)R%SiJA`qR%Sk:at_R% !So9:c-~~Ss1M9d%%Sw%bWI%%SyllF@%%S}QALZ~~T-[yq=hRT-i`Imv%T-vFyRv%T/(:6VR%T/J}:_)R !T/_7%T/r5::[%T1*\mIMRT1;-zzR%T1JW};)RT1Yh0G_RT1hFC:[%T1wP_R%%T347rDzR #% [ 59] ca_k.caps !S.Y}*qR%S.Xf+?~~S.T{,_R%R~^WDzR%R|b}O?~~RzPx[v%%Rx)_j?~~RtHMZ-~~RpTN0d%%RlNf3I%% !Rh8*Y7%%Rbj~jhR%R^3XH.%%RXEJ\l~~RREbwm%%RL2x+?~~RDe&Td%%R>%12Q~~R4}aT;R%Qn/n8DR% !R;j/HVR%RA:o;R%%REe`([%%RMgxWqR%RWt{qR%%Rcm12Q~~Rq@:NqR%S-Sy{H~~S/:z5_R%S/}X7v%% !S1fwq)R%S3OzAl~~S57{a?~~S5x2~VR%S7[s|hR%S9<[9;R%S9t\_R%SeGryZ~~SgT47u~~SiW>*qR%SkU3eDR%SmRW];R% #% [ 59] ca.rep !S4LGWI%%S4MWl0p2R%S@G9Kc~~S@~hf;R%SB`,_R%%SDD-2)R%SF*PcVR%SFl}k_R%SHW@v%%%SJC84@%%SL0Mf;R% !SLxr}_R%SNh?F?~~SPXX?~~~SRI\P_R%ST;@~-~~SV-XT;R%SVzAl~~~SXmS4@%%SZa+D)R%S\Tzb7%% !S`dqV)R%Sdv,cVR%Sj.?B;R%SnA=7v%%SrTqj?~~Svhx+?~~Sz}ATc~~T.SvADR%T.g~:2R%T0JFxd%% !T0reDQ~~T2A-JDR%T2iOP6~~T47qV)R%T4`=;zR%T6.f[v%%T6W2Al~~T8%[ahR%T8N+'c~~ #% [ 59] ca.lambda !TD/6B;R%TD1Ug2R%TD85SDR%TDAd-.%%TDKv]c~~TDSq)R%%TDV2nDR%TDOS(2R%TD=7QVR%TBwgBd%% !TBK25_R%T@m&8DR%T@,?RMR%T>@^.MR%T_R%SZ6hAm%%SZD't7%%SZp&DR%%S\X.~-~~S^Q8Td%%S`X&,7%% !Sbj5shR%Sf,3iI%%ShPfG_R%Sj}'7MR%SnV>{qR%Sr6'x;R%StujD)R%Sxa1Jm%%S|Qm~-~~T.ULo;R% !T0'~B;R%T0W<([%%T2/2b6~~T2cLFhR%T4@+P7%%T4xy*I%%T6Yyo;R%T8=&P_R%T8|/HVR%T>7+t_R% !T@lB;Q~~TDNd12R%TH7x';R%TL'oC[%%TNx0WqR%TRtdiqR%TVwIEI%%T\&&0;R%T`4Mj?~~ #% [ 59] ca_l1.amp !Q%%%%%%%Qf'8][U7R2EXP/dvR8L8n\m%R>GZQpo&\{YRh{WLSGhRv-mbHnmS.]GS0yxTT|dS0dO&s=}S0Klwq?FS01k.vf\S.pq&lj9S.U3^K7MRz

E<)RtKs8rhZRnryI1Vz !RdLBzg)AR\4xws7)RTj{:wqdRNyCzI,&RJQX~''CQ|R|*YT3Qt0zw~,NQht-b81*Qb)sUWq #% [ 59] ca_l1.phase !Pvj?~~~~ROT/DQ~~Ry@_Am%%S16=.Y_RS5'mADR%S7gsU4T;RSIU%kO@%SIbHM~VRSIf[U6VRSIb%oSm%SIV@Tw(3 !SI-WwXhRSIZ{:&DRSK:l?JDRSM*Rx';RSM~GeXhRSO|6mY_RSQ{Fft7%SS{Cg2R%SU{J8DR%SW|8@MR% !SY}4|hR%S[~@9;R%S]~crqR%S_}OdMR%Saycvu~~ScrbSDR%Sei+p[%%Sg]I=?~~SiOoG_R%Sk@h^2R% !So@j`I%%Ss9~B;R%Sw.eHVR%Syuo7MR%S}Z*iH~~T-\li0d%T-jRzrI%T-w:yk7%T/).W];RT/Kf@iqR !T/_~<}_RT/rnN];RT1+6xSm%T1;\|lVRT1J}t{qRT1Z4ieDRT1hc0p2RT1wmmv%%T34V/4@% #% [ 59] ca_l1.caps !S.UPO?~~S.T9OhR%R~pYG6~~R~3l:2R%R|9p2Q~~Rz)b[MR%Rv^VzR%%Rt%Y;)R%Rp3y6VR%Rl0V^2R% !Rfv34hR%RbQ>6~~~R\uwdu~~RX/dv%%%RR1m9;R%RJzcnl~~RDT?2)R%RshR%RANl:2R%RExfp2R%RMy<];R%RY*W4hR%RczkSDR%RqLhj@%%S-U,&m%%S/;~zzR%S/~Uc.%% !S1gqb6~~S3Pt2zR%S58qrH~~S5y%U[%%S7\_9c~~S9=?6.%%S9u8y2R%S;Q%QVR%S=+4;zR%S=]wLZ~~ !S?|fOhR%SCshR%S]_.iqR%Sa&H2)R%Sc;(>_R%SeGo?VR%SgT47u~~SiW>*qR%SkU3eDR%SmRW];R% #% [ 59] ca_l2.amp !Q%%%%%%%Q4fKtcO8QD(230JQQP\S\^k[Q\GvSkCWQf[P4y.MQr)I=1JmQ~{X0(s@R0R+PTT7R2vlsdj` !R6`0,@H_R:OQV&y|GKQFR@Z:xCLKR1g2RR:h+eq}C !RBDP(8XiRHKsFy'3RNi=5Df`RV/ZCGWIR\nIKnF0Rd[/0;R%RlA5{2mVRrYc0Z>7Rx7'J|H.R|%7PECC !R|vZn2AIR~((CUnMR|NH.d*=RzMJSIEIRx).Q*iIRtJH7%_BRpZxx\@MRl[)AFfPRhb7jI+PRduy%`-l !R\~3o\Y:RVi,;x9tRR(%3^tiRL^,qJ5SRHPB52>ERD[/6=LPRB&0+i2cR>]4AWBxR>{|QXhlds|iQTmn7`:wQN+V2]?9 #% [ 59] ca_l2.phase !S7%%S8[pBd%% !S:A`qQ~~S:rot6~~S<:[mu~~S_R%S:j07MR%S:7QzzR%S8RxKc~~S6cvQVR% !S0{@--~~R|k_Q~~~R^zEqQ~~RDFP6~~~Qn))Q~~~R1:g2R%%RASy2R%%ROYG7%%%R[|P6~~~Ri,*qQ~~ !Ru8P_R%%S-_TKc~~S/?[EH~~S/zB[v%%S1Z[iqR%S39@iqR%S3pZ6.%%S5LUBc~~S7&gg2R%S7Y,O@%% !S9tujhR%S=2&|\DR%%S>T[--~~ !S_R%S0<(Z~~~S.YnP_R%RXbnu-~~ !RBZcrqR%Q~5Mb6~~R/c3a?~~RA>VZ-~~RQQHB;R%Ra`sT;R%RoiW4hR%R}kbC2R%S/3uzzR% #% [ 59] ca_l3.amp !Q%%%%%%%Q4ftCeuRQD(e_3RAQP\W?_%MQ\FZod>SQfWtTed-Qp|cRy:[Q~qV4+D*R0PpxjLWR2uPp1Ez !R6^xu`zJR:NVF1g{R<}s)t.-R>yZo+JyR@<6D2MVR@+V'Z+nuvvRRHHeU'3IRNeBAeRbRV+'iot7R\iAs(p*RdUQGA0od%%Rx&F\0,xRtGwOp[%RpXl_|xdRlXgo0WrRh`AJ`([Rds5D.9g !R\{jjxd%RVggA9A}RR'n*.IcRL^KO9cpRHPVPe=JRDZxF|wnRB%eA+~kR>\sb4>lR{qR%%S-`4hR%%S/@?B;R%S/{52zR%S1[\u-~~S3:T/DR%S3r)Iv%%S5N30d%%S7(PO@%%S7ZrqR%% !S9vOxc~~S=3+'d%%S?K^g2R%SAb{M)R%SCtBCZ~~SE~[EI%%SI(m]d%%SK(62)R%SK~M~VR%SQo9{Q.% !SUOWj\DRSY-LVkwmS[]S{Y7%S_'*%EI%SaG4jT;RSca|zf;RSetiK';RSgj\^&DRSk%%mv%% #% [ 59] ca_l3.caps !SVAQrqR%SV@X'c~~SV=_Z-~~SV8w0;R%SV2@~.%%SV*%iqR%STz)-VR%STnYWH~~STadMR%%STSTd%%% !STD1Z~~~ST3\LZ~~SR|(Ru~~SRiMMzR%SRUm]d%%SRA/(2R%SR+:g2R%SPm~RMR%SPU0OhR%SP::6VR% !SN6P&l~~SN0:c-~~SN-Poc~~SLzB7MR%SLe&y2R%SLIbWI%%SL({I%%%SJ]QjhR%SJ3kK;R%SH`];Q~~ !SH0p2Q~~SFYNuVR%SF'IahR%SDOZB;R%SBxzb7%%SBJ4dMR%S@wGC2R%S@L?)zR%S>|\DR%%S>T[--~~ !S_R%S0<(Z~~~S.YnP_R%RXbnu-~~ !RBZcrqR%Q~5Mb6~~R/c3a?~~RA>VZ-~~RQQHB;R%Ra`sT;R%RoiW4hR%R}kbC2R%S/3uzzR% ifeffit-1.2.11d/src/fefftab/33.dat0000755000175000017500000003002610771740460015465 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] as.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] as_k.amp !Q%%%%%%%QNv:\q8,QxSY8Mr%R23t !R@3:<8m%RDW'f]xYYpRR547J~&RV;(HD/4RZ92IR`[TT5~>Rbvc&93I !RftTwJJ4Rh8NgN([RfkO}{qRRf*^/TRR47~ZO7vR29tW)sNR.|]}<[OQ|v}^%ri #% [ 59] as_k.phase !S0ToCZ~~Rh?6.%%%R>8}7%%%R3v~.%%%R[2EqQ~~S-Vcnm%%S1@j;zR%S3~(Bd%%S7ZvQVR%S;2.EH~~ !S=]~fd%%SA+.~-~~SCN&4@%%SEm2EqR%SI/,[MR%SKH9C[%%SM_-zzR%SOt66.%%SS-}k_R%SU@b{qR% !S[nO'd%%S_`^NqR%ScaVb6~~Sg`WY6~~Si~tshR%Sk+|hQ~~SgMM1Z~~Se(Sdu~~Scobk_R%Se4N}_R% !Sef:c-~~SgFWQ.%%Si+JTc~~SinT?VR%SkZ]l.%%SmHHfd%%So7vIMR%Sq&o{,_RSqotmahRSs]kjp[% !SwW*U{I%S{DvEq-VT-R:+0[vT-`>q6rqT-mYyG2zT-zJdu~~T/,~/\m%T/9]t7%T15K?2)RT1HyM^2RT1ZrEiI%T1mJ1NqRT1~0lRMRT33xdmv%T3D5M=hRT3Hfk?.% #% [ 59] as_k.caps !SNZ/\l~~SNXQnm%%SNSiDzR%SNKv9;R%SNA%em%%SN3:Jl~~SL|e.u~~SH8BOhR%SFmpBc~~SFGj'c~~SDz/XhR%SDPt{qR% !S@{wXhR%S>j*y[%%S>5Qfc~~SB\dv%%QEPV~VR%RA[VIu~~RYae`qR%Rq6ZzzR%S-z-VQ~~S1)Wa@%%S3/RahR%S50*uVR%S9p_)Q~~ !S=X%=@%%SA4@IMR%SC]qEqR%SG(nLZ~~SIFBp2R%SKZnHVR%SMlYgZ~~SOy4T;R%SS%bWI%% #% [ 59] as.rep !S6[(:[%%S6\)EqR%S6_,g[%%S6d2EqR%S6k2zR%%S6t*qR%%S6~pJm%%S81HF@%%S8?fc~~~S8Oboc~~ !S8a3S0;R% !S@?||hR%SB5tWI%%SBo.z)R%SDJjX@%%SF*|L2R%SFgey2R%SHLcvu~~SJ3d12R%SJvM-VR%SL`mqzR% !SNLRu~~~SP9Ny[%%SR'L.MR%SRpFhR%%ST`0?VR%SVPWmMR%SXA_^2R%SZ3@QVR%S\%M-VR%S\q~2)R% !Sb%&8DR%Sf3n`qR%SjD(c.%%SnU=pZ~~SrgEU2R%Svz-VR%%S|3HZVR%T.UI56~~T.iImu~~T0KZ>7%% !T0smiqR%T2B*uVR%T2jIADR%T48gg2R%T4a,2zR%T6/N8m%%T6Wsxc~~T8&?^[%%T8NeDR%% #% [ 59] as.lambda !T0-?nm%%T0-vQVR%T0/_9d%%T02PG7%%T067el~~T0:YG7%%T0?Aq)R%T0D1[%%%T0Hap[%%T0LT/DR% !T0OHvu~~T0P}*qR%T0Q*DzR%T0OP7%%%T0L>;)R%T0GUk7%%T0AO'd%%T0:Jm%%%T02tod%%T0+L2Q~~ !T.upo;R%Shx8sh-VR%TB),gZ~~TD;@57%%TFP=P7%%THgsdMR%TL'}wl~~ #% [ 59] as_l1.amp !Q%%%%%%%QT8^'FDrR.\DOB8'R2qyAxh)R8%.Jb@fR<(Ot~PKR>x&xJ3QRB^2[L_NRF1:c[6oRHIT%|A] !RJJqi_b7RL3L@ym^RL^r3y[%RLntWtg[RLfb{bwmRLGbvOL{RJlm;O;2RJ&]%FFPRH+i6pYGRF&im]UK !R>_ZLHyCR>?*:g{IR:Syomm-R61OTC2vR0sR}CO`QncdM@1WQb;*Nue,R0)|w_SzR4q?g}5GR:^A8t\< !R@>TM>2{RDlVW;H>RJ4SI[~wRNP0T&bORRft|cAMRVu8PidVRZ|(:`O,R^l2h6NIRbKo;?)2Rdh(QA/M !Rh_O@|P7Rhvvy0HNRhFmt^TTRf[jA)j@RdR<1l)VR`v?R(\1R\{GA10:RZ)?^8~?RVCK|-CHRJl(d3Qw !RDuOAONCR@S>~FI/R<7fxpH%R8u'IoM|R6A&.l>7R4;(z1=qR2=&~~BQR.}}sb=(Q|z+MB7N #% [ 59] as_l1.phase !S.v0CZ~~RZ|X?~~~R0q-VQ~~RAGG7%%%Rggc-~~~S/9BG_R%S1~jhR%%S5cJhzR%S9Ah1[%%S;t7%%%% !S?G@em%%SAoSHVR%SE9DIu~~SGY88DR%SIu^6VR%SM5&m%%%SOKjP6~~SQ`<([%%SSrh~VR%SW)Kx;R% !S]Koh)R%Sa69C[%%Se2[ADR%Si4c:2R%Sk`8m%%%Skd++hR%SepM9d%%Sc/;Z-~~Sc4wu.%%SceE@u~~ !SeH'Sm%%Sg/OpZ~~Sgs.~.%%Si_gs?~~SkNP?.%%Sm>OdMR%So/iiH~~SozJ93I%Sqjyhj@%SsZ,<7%T1[5T3I%T1mnY{qRT1~MzvMRT34?Sk_R #% [ 59] as_l1.caps !SNO1o;R%SNM[ADR%SNH}k_R%SNAFT;R%SN6m57%%SN)Hb_R%SLs=|hR%SL`W}_R%SLKNyZ~~SL4*0d%% !SJtR12R%SJX{U2R%SJ;O|hR%SHv;b7%%SHU>_Q~~SH2cnl~~SFhTp2R%SFBkcVR%SDuNI%%%SDLO`I%% !S@xHNI%%S>f*,_R%S>17EI%%S@H:2R%QEfa3qR%RA]?2)R%RYb[qzR%Rq6iU2R%S-z-VQ~~S1)T';R%S3/RahR%S50.UZ~~S9p[IMR% !S=W{];R%SA4@IMR%SC]mel~~SG(nLZ~~SIFBp2R%SKZnHVR%SMlYgZ~~SOy4T;R%SS%^wDR% #% [ 59] as_l2.amp !Q%%%%%%%QHtC;lTPQlPA=?weR0;%c%QVR2r?wDo3R6Ee3YqBR8hBgWiIR:}z[aKDR>+-vPnuR>}|F]bl !R@fC,C{IRB=J\;*eRB]f>}.RRBkdUpRRRBhiPFH.RBT1|VS]RB0Ci+=XR@VuVL40R>rvj+5OR>+\kry[ !R8WqJxYOR81.>M2nR6PD8EeDR67Jhs7vR4iVME>OR2crY(k[R0;{gJ4sQx.HZ?v-QxqB)0+]QRT~Ny_PRRR^>&v(XRHyuy+FP !RDA%sn'5R@1[vE+qR:yfc8RSR8`*I?KFR62'wt}lR4/t.k|sR2FHoV_\R0RKaxn8R.t7%%T/v|+hR%T1=bsD)RT1VXf+@% !T1fTP{qRT1qcJDR%T1zL%U[%T3'vsX@%T3.`r@v%T34o]Sm%T3:kLs@%T3@Bmem%T3Ehs\DRT3Jz3];R !T3W>K_zRT3bnu.%%T3mOu)zRT3wA{:Jl~~S.v%% #% [ 59] as_l3.amp !Q%%%%%%%QHw9Cm9;QlV&]rQwR0;o'FL2R2sEDE>OR6F}*QK3R8ievm-.R<%Ge78MR>,X{]48R@%FIyq> !R@gcjR]dRB>\hRIMRB^m\X@IRBlYNMMzRBiKv0R5RBTWwVWaRB0VpJ'hR@VqeBHNR>r_][`1R>+23|{U !R8W'(g^;R80)gPaTR6OT2GshR66p9a3rR4i>DzCKR2d5?Jl[R0IQx5OvT]TQxfy734iR0Pi)6z2 !R4DhW6?&R8H`Kb?wRK !R\(|'QjhR^566-~~R^Q15e,_R^Ih*6m@R\w@(?Y)U(R61c_{;mR4/j%xDJR2F'-/t1R0QW},iVR.t%2`&v #% [ 59] as_l3.phase !S=;XP7%%SANZ%u~~SEZALZ~~SI_^{I%%SM]LRv%%SQT=/m%%SUCtwl~~SY,*(Z~~S[fX;zR%S_?5cVR% !SajKh)R%Se4N}_R%SgP_-VR%Siej|hR%Skt*qR%%Sm|A\m%%Sq%'';R%Sq}.u~~~SswhzQ~~Suo|@%%% !S{Okg[%%T-S5L*I%T-htl)zRT-~~{DzRT/7E[9;RT/H^x3I%T/\HzzR%T/wMnDR%T1>)alVRT1W..em% !T1g-S`qRT1rGG6~~T1{/|H.%T3(^PO@%T3/Do3I%T35SZF@%T3;Kia@%T3@yPO@%T3FAvADRT3KOV=hR !T3Wmn@MRT3cGwm%%T3n07qzRT3w{Y6~~T5'&:FhRT5/a4`I%T58:-:2RT5@jN4hRT5I((FhRT5`=4`I% !T5okyJm%T5~XEa@%T735/@MRT7@S)EqRT7Nc3a@%T7[>HJDRT7gCsdMRT7v>SDR%T9%Ef3I% #% [ 59] as_l3.caps !Sr5a/l~~Sr5RU[%%Sr4yRv%%Sr3tgZ~~Sr2{:Jl~~S.v%% #% [ 59] as_m1.amp !Q%%%%%%%QLa+BZ>7Qt(+\4-kR0k8b,aTR4X+gzlBR8;4nj|hR:jSpO&,R>1aLIoTR@Ai(,C{RB@>9p2R !RD*jogfDRD[[6W.bRDxBl1>;RF%XZEuVRDqrq^i5RDQr8)xtRB{V[lEQRB;B=;-{R@KOL}9'R>UH2L0P !R8{sMc%vR:/(-;[fR83ni,uFR4pkg`O,R2Uh\n8DR0;@W*Y[R.qe'c3wR2+-[c_nR6;xY{([R:d>fk%Z !R@.uo1}KRDKeC.;>RH\?_snYRLh.6[/URPo_zR%%RToPuRcFRXl|%:&iR\T~yE\MR`/]}f@ERbIT~vgK !RfF9C8FTRfiC>\YWRfF[B>C3RdeBD'ngRbdx?TA4R`6p*nc(R\Bv_}ECRXQtQCdfRTs=607?RJQ([N/I !RDa/0|aUR@C\Q<*wR<,6\g}hR8kp7i~]R69.jT%^R46,*y{,R27q]xg|R.{j7ZLzQ|u/d-.% #% [ 59] as_m1.phase !S2/=\DR%Rt0+?~~~RJ++hQ~~QMOhR%%%RO<8m%%%Rs[mu~~~S/eDQ~~~S3HJDQ~~S7%79;R%S9V>2zR% !S=(0t7%%S?OBKc~~SAr=;zR%SE7X'd%%SGS]7MR%SIm)MzR%SM*MMzR%SO@DZ-~~SQUEU2R%SSi|'d%% !S[GsD)R%S_@[=?~~ScGO?~~~SgGjp[%%Sic<}_R%SipaP6~~SganXhR%SeQzV)R%Se82b6~~SeNdz)R% !Sezu^Z~~SgW\(2R%Si:3@u~~Si{fWqR%Skf\dv%%SmS\HVR%SoB9t6~~Sq0_1[%%Sqy(84@%SsfQnHVR !Sw^m.ADRS{LDK=xdT-R};-2*T-a']+dMT-n@Q2)RT-{/IEI%T/-aDrI%T/9ztK;RT/EbOdMRT/fI=?~~ !T/{ffKd%T15og_)RT1IK6:2RT1[DO3qRT1mut*qRT1~\U.MRT34C3@v%T3DYujhRT3I4sp[% #% [ 59] as_m1.caps !SN\5SDR%SNZWeDR%SNUk[MR%SNMtoc~~SNBzb6~~SN5.-.%%SL~Q^[%%SLk?vv%%SLUaP6~~SL=g>_R% !SJ}_vMR%SJaYwm%%SJCcvv%%SH}}shR%SH\`([%%SH9dIMR%SFo4\DR%SFI*a@%%SD{J8DR%SDR1{H~~ !S@})^2R%S>kfG_R%S>7PC2R%SCG{qR%QEGj'd%%RAZrM)R%RYaHRMR%Rq6^[%%%S-z16VR%S1)Wa@%%S3/RahR%S50*uVR%S9p_)Q~~ !S=X%=@%%SA4@IMR%SC]qEqR%SG(r,_R%SIFBp2R%SKZnHVR%SMlYgZ~~SOy4T;R%SS%bWI%% #% [ 59] as_m2.amp !Q%%%%%%%QPue>G|R:7mu0=0Rnwy5k; !R8ijyRv%R8d7(~HgR83}@C4TR6_*>3{]R6E[2.S}R6.;{eDRR4fWX-Q:R40qe^-_R2AjZ&5SR0HL?}|* !R.Y~/]0TQzv74sp[R.qm;Lw6R25WcoMBR4}TdoE9R:%sJx*-R>1eIBPWRB;97Ga0RF=*;aKhRJ/Ns/m% !RPj|S'kdRV&os;CoRX>FpMS8RZ%:~`7DRZ2lxI%|RX\5_-2JRVV.*p4MRTBksy,]RR55=s6>RHoI9~0i !RD>.&%yqR@0~j1b1R:yEJY2{R8_8;jKaR6/zR[aiR4,tSqP1R2AqwQ>fR0M^OP_oR.qh)^|r #% [ 59] as_m2.phase !S?X/HVR%SCk4X?~~SGw@MQ~~SK|ZB;R%SO{6jhR%SSs7--~~SWe7z)R%S[Q'/DR%S_7XL2R%Sar_b6~~ !SeNl:2R%Si%kshR%SkRTl.%%Sm{.=@%%SqE];R%%Ssf1FhR%Sw)4'c~~SyBe8DR%S{YhIv%%S}ms3qR% !T-o=|D)RT/%PczzRT/5o-B;RT/C~P&m%T/N.=?~~T/U]slVRT/\Dz-VRT/cU7EI%T/l:t.v%T/wb{([% !T1-j&u.%T1C.7]d%T1Y)lfd%T1jFHvv%T1w,WmMRT3&uGSDRT3/,(Jm%T367x';RT3dW];RT5G;`4hRT5_@*SDR%Spc+|hR%SpW)Iv%%SpI/Td%%Sp93I%%%Sp'1FhR%SnlxSl~~SnVTp2R%Sn=kgZ~~Sl|c:2R% !SjsGcVR%ShwM%MR%ShYA0;R%ShERel~~Sh*U2R%%Sff7))R%SfDYcVR%SdzJdv%%SdThrI%%Sd.Lc.%% !Sba{yZ~~Sb;XP7%%S`o-fc~~S`HG.u~~S^{1.MR%S^SEeDR%S^*o+@%%S\[OT;R%S\1L&DR%SZ`oOhR% !SXO`mMR%SVA\l~~~ST:k[MR%SR<0c~~~SPC@ahR%SNLp*H~~SLVmU[%%SJbE4hR%SHqpFhR%SD`bSDR% !SB{:Jl~~S.v%% #% [ 59] as_m3.amp !Q%%%%%%%QPua^%z)Q|JC)pC.R2J`Up.)R6G\t'(sR:7_?\4@Rc.|Z(g !R8Y}-iy[R8PW&FT;R6|V7R6S.*0-BR6h*Vj@R:@=pF9/R>H9OZ>[RBL,7ThNRFGO(3VjRJ3?ojP7 !RP_^mfn0RTl:=}E5RX&@?1PORXi/[0|ORX|.)d}kRXQn(]LLRVPwJcHJRT@L5J8xRR3[[8xDRHmqu3g1 !RD=Xc6}.R@0EWZE}R:yEJY2{R8_S0yv8R6/skbQgR4-+C^>\R2ALo9&xR0L;T}=PR.q8bd%B #% [ 59] as_m3.phase !S?X/HVR%SCk4X?~~SGw@MQ~~SK|ZB;R%SO{6jhR%SSs7--~~SWe7z)R%S[Q'/DR%S_7XL2R%Sar;9d%% !SeNGk_R%Si%GK;R%SkQeu.%%SmyPO?~~SqC[%%%%Ssc@9;R%Sw%S}6~~Sy><1\8DRT3C}9';R !T3QQ6RMRT3]{Q-~~T3iRb2zRT3t/@MR%T3}uXT;RT5-35WI%T56?Q^[%T5?=ZB;RT5G}=+hRT5_s,{qR !T5oa%=@%T5~__j@%T73R=dMRT7A,Ls@%T7OG0Sm%T7\*&4@%T7h2jdMRT7w&0;R%T9%xhrI% #% [ 59] as_m3.caps !Sr5G[MR%Sr55G7%%Sr4\DR%%Sr3[9;R%Sr1}K;R%Sr/a`I%%Sr,OdMR%Sr(5C2R%Sp|a\DR%SpuhAl~~ !Spm>SDR%Spc+|hR%SpW)Iv%%SpI/Td%%Sp93I%%%Sp'1FhR%SnlxSl~~SnVTp2R%Sn=kgZ~~Sl|c:2R% !SjsGcVR%ShwM%MR%ShYA0;R%ShERel~~Sh*U2R%%Sff7))R%SfDYcVR%SdzJdv%%SdThrI%%Sd.Lc.%% !Sba{yZ~~Sb;XP7%%S`o-fc~~S`HG.u~~S^{1.MR%S^SEeDR%S^*o+@%%S\[OT;R%S\1L&DR%SZ`oOhR% !SXO`mMR%SVA\l~~~ST:k[MR%SR<0c~~~SPC@ahR%SNLp*H~~SLVmU[%%SJbE4hR%SHqpFhR%SD`bSDR% !SB{:Jl~~S.v%% ifeffit-1.2.11d/src/fefftab/75.dat0000755000175000017500000003577010771740460015506 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] re.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] re_k.amp !Q%%%%%%%R6OW*%`gRFfwz3]N72>WR|uELY8]S.qykpC9S09.jsQ}S0Q/c2Nb !S0`DNPlaS0fv1`Q~S0eD.LU}S0\6xv[tS0Ku2eK2S05E5IVJS.rxV,Y'R~x@GmS4Rvdrd948Rn+syTf' !RNQwa.oTR8W+4D~+R2Iq%T4CRNgB=V+TRf@c-fysRvRGJ/mIS.Xv0KBOS.q2_prQS.t-Rsc|S.g91=[. !R~l`YucNRxeSE0rYRrf&hta0RlxkW9c6RhaNN@0hRdn01pa,RbGobO8eR`CWGXc_R^Z.ZE_bR^,m7iEi !R\BTm;S]RX{HkbC3RT6C>FeyoRJ(Y&J60RF6emS`) #% [ 59] re_k.phase !S9n`M)R%S?)-VR%%SC9E8l~~SGETh)R%SKMTp2R%SOQAq)R%SSPyJl~~SWL8}7%%S[C?NH~~S_6'x;R% !Sa~Hfd%%SehD9d%%SiN%EH~~Sm/;VMzRSof/e@MRSs>\zEqRSulgK[v%Sy<<757%S{aVLBd%T-RA8.]d !T-sy2-VRT/'QJD17Ss`>aT;RSshe6fd%SwRzXt_RS{Vij\DRT-WZI}cVT-ijysdMT-{\uK3IT/31lJDR !T/DNHZVRT/UNxl.%T/f(.))RT/uxHrqRT1*t0x;RT18`3U2RT1E7&\m%T1P^%12RT1[%/y2RT1dXlzzR !T1z-'/DRT33(tSDRT3C5JL[%T3OEot7%T3W(6VR%T3[u9h)RT3_t]OhRT3cBnTd%T3gIs3qRT5%e9|@% !T58@_f;RT5L+jxd%T5_gK7MRT5rka/m%T7,Nj\DRT7>\oKd%T7Q_\0;RT7c=5shRT7r+L2R% #% [ 59] re_k.caps !S0qG*qR%S0pX3qR%S0n1NqR%S0j)Am%%S0d?fd%%S0\{}_R%S0S|lVR%S0IEmMR%S0=-F@%%S0/3Q.%% !S.yX3qR%S.hAHVR%S.U>;)R%R|)~zzR%RvV%qzR%Rpo@iqR%Rju?%u~~Rdg8}6~~R^D<0d%%RVeR=?~~ !R>;%MR%%Q@_%))R%R9Lm9;R%RCa)Am%%RKy'WqR%RUtE}_R%RaEXlVR%RmI%IMR%RysDrH~~S-{p>_R% !S/`MMzR%S1E~NI%%S3+\hzR%S3j{U2R%S5OJ0;R%S72_EqR%S7nO'd%%S9NviqR%S;.&8DR%S;f*uVR% !S?;Lg2R%SAjBp2R%SE@^Rv%%SGp`a?~~SKBOhQ~~SMflRMR%SQ(PshR%SS=Qnl~~SUOS(2R%S]%Oxc~~ !Sa1uB;R%Se.S4?~~Si&p_)R%Skn{Y6~~SoQ4t_R%Ss0e\m%%SudKOhR%Sy4r];R%S{]+@%%% #% [ 59] re.rep !S:Tk?-~~S:UK[v%%S:WMrH~~S:Zr(Z~~S:_ZRMR%S:ea;zR%S:m,?-~~S:us;zR%S<%~RMR%S<1N([%% !S<>?RMR%S%-RMR%S>8cb_R%S>M^2Q~~S>c~6.%%S>{f3H~~S@:sdMR% !SB52zQ~~SBxdmv%%SDfZb_R%SFAMIu~~SFuyBc~~SHSzEqR%SJ4=3qR%SJpcRMR%SLU5gZ~~SN;U_)R% !SN}V~VR%SPg+7u~~SRQ{DzR%ST>'7MR%SV+5O@%%SVsA8DR%SXb;rI%%SZQx/DR%S\B>C2R%S^3;9c~~ !Sb[MR%S2n;Z-~~S4)'OhR%S4>Mb7%%S4TLwDR%S4k%56~~S6()5_R%S6?M~VR%S6W@u~~~ !S8:@=?~~S8x~fc~~S:_+/m%%S.MQ~~~S>qLBc~~S@[+P7%%SBEA@MR%SD003H~~SHM'+?~~ !SL&({I%%SNZ6vv%%SR5BCZ~~STkZgaP7%RBa3qyEzRFSt2=++V=iRZE5J0uoRV_XNF|h !RRZ{h{^*RNizE~}lRLXvef+dRL)o>L~:RL.qB8vfRLL,uQZ{RLqfphmzRN=z(*|(RNds@4@nRP.LN4~F !RPv(fdIMRPns5gE1RNHU_nh{RJ4}a')bRF731p*IRD-~VO,WRBlKlw]\RD,HUs1KRF%>]7V;RNE1TRa@ !RRERVZFlRTNoOqbcRTbki_?8RT,p~y4QRR,@F6mZRNbb67x'RL2~?>AyRHC(rB~MRDY*Ra'< #% [ 59] re_l1.phase !S=k(Jl~~SA}Pwm%%SG-t*qR%SK0Bl-~~SO+)Al~~SQx6:2R%SUd3}_R%SYI?fc~~S]'v]d%%S_ZAq)R% !Sc,rU2R%SeSjX?~~Sgu8Tc~~Sk76JDR%SmMo3H~~So^o;R%%Sqj.@12RSso7qzR%Sumk.QVRSwe7G&m% !S{t0HrqRS}hdl>7%T-TgpV1[T-Xe]y*IT-\CrImvT-aeV^{IT-iRJ-nmT-sC[(_*T/%+/iD{T/2U/`qR !T/AhvqzRT/RJ-nm%T/csn}7%T/u09OhRT1+1o;R%T19Y=+hRT1FK-fd%T1Q}G6~~T1\Gk;)RT1eu~6.% !T1zI-.%%T31FD)R%T3?ZO7v%T3K+-jhRT3S[NeDRT3YkBC[%T3^Y<Uk7%%S22lfc~~S2%@z)R%S0p0+?~~ !S0_6NH~~S0LT/DR%S08/(2R%S.{{8l~~S.cyg2R%R~0';R%%Rx(AP_R%RpfSm%%%Rj5o?VR%RbI&\m%% !RHJ^&DR%R2+w,6~~R-m8LZ~~R7N^*H~~R?b/du~~RI|Hvv%%RUz38l~~RcNm))R%RqFlzzR%S-V}C2R% !S/>wHVR%S1'N0c~~S1i{8m%%S3Qxx;R%S58y2Q~~S5xf';R%S7]0|?~~S9@))R%%S9{UVzR%S;[ndv%% !S?5_R%%%SAf|@%%%SE={yZ~~SGmkshR%SK?E,_R%SMcwdv%%SQ&GC2R%SS9'c*iQ\Ld\O6>Q`_*(ze(Qf*E}9Z> !QluF8)qZQrt@J'7RD8^&^g{RDOq32|0RDkME([% !RF\4CDmVRFrlJjIfRD{16>mbRB:',.v%R>[yBiotREFt/a~R@RnX-t{RJE4sFv/ !RNe@z:PeRR2~[ru+RR\Q-KNGRR@asMN[RPU1Z16u0RF3Eb^1U #% [ 59] re_l2.phase !S6S*4hR%S2Ara@%%RzNY6~~~RRo3I%%%Qz'c~~~~R?TKd%%%RaRQVQ~~S-c80;R%S1?HB;R%S3t+`H~~ !S7OfOhR%S;/H2)R%S=q=hQ~~SAfx_zR%SEo}SDR%SK3%EI%%SOVkwm%%SSj%ahR%SW]i_RT1)U/`qRT19I{Z^[%T3<{52zR #% [ 59] re_l2.caps !STwn\l~~STw0_zR%STu.IMR%STqgs@%%STm,cVR%STg0t6~~ST_{eDR%STWY6~~~STN&}6~~STCFD)R% !ST7]?VR%ST*oOhR%SRv|t_R%SRh/4?~~SRX3([%%SRG21[%%SR5%56~~SP{[9;R%SPfr}_R%SPP]t6~~ !SN\zj@%%SLnkG6~~SL*}_R%%SJr6F?~~SJdvmu~~SJK+@%%%SJ'V^2R%SHW'G_R%SH'2~VR%SFMAHVR% !SDpP*qR%SD7MvMR%SBW1.MR%S@v,cVR%S@;/XhR%S>ZeP_R%S<{BSl~~St0s29dRD[{)e:GRHT%e-ygRJLr|BaXRJPGWj4< !RHt~s)f;RF|*o|zBRF'6J%SYRD:CDetdRBh*eDR%RBT;Se5SRBR'f@iqRB\cxSm%RBqz5K,xRD1dNOP7 !RDy]`IB3RF6l.G~>RDC1's5tR@al/1*IR>.sjT;RReYRPmnjB1NRP,QO2lgRL{O}c*iRJt_9a<|RHXSQ%>[RDus0]Xv #% [ 59] re_l3.phase !S4C^:Z~~S02iuVR%RbtSDR%%R7%%% !S9Q)zR%%S=2vMR%%S?zG*qR%SCzLg2R%SI8^o;R%SMcVvMR%SS00|@%%SW:Lo;R%SY|(wDR%S]Dgs?~~ !SalXxc~~Saglnm%%S_,wm%%%S][Ck7%%S]{<([%%S_r4hQ~~Sa|,{qR%Se49/DR%SgK?zzR%Sig2vMR% !Sm/;5_R%SoXGcVR%Ss-=lVR%Su_f_zR%Sy6+|hR%S{`5{qR%T-R1HF@%T-]E*8m%T-gW{];RT-ps8dv% !T/*Na@%%T/9uJDR%T/Eh@Y_RT/N0ny2RT/Rrjr8mT/T|r`uVT/V5ZHfdT/W:3_tKT/Y(N,;)T/iZeP_R%S<{BSl~~SU,fSApsC_ !RL@>CA,7RJTiX~)2RR9@PmlcRV@O/?+XRXPz;MNiRZ5}C0A4RZ6H'x}/RXC3{8m%RT[_`Q5?RPDf;Q~~ !RL&fgq=iRH/iO@3YRF-l{9>hRDx13E=`RFF4u4t_RH+%lUTTRHk/UM+0RJM}P^>_RL*pdx';RL]E.);f !RNiehVJ@RN{`-ZlFRLl?eH]lRHmzuAL[RF%=WsfPRB~_Yz2RRg=W9jPRPjq*QSwRNJst:.8RJvR9)W~RH324jVLRDK-i0PB #% [ 59] re_m1.phase !S=(cvu~~SA:z5_R%SEDf_zR%SIF?6.%%SM?zzR%%SQ2;Am%%SSwMnDR%SW\1NqR%S[:]Kc~~S]m79;R% !Sa@2EqR%ScgV1[%%Sg/L6VR%SiKr4hR%Skbc2)R%SmshCJm%So~sUNqRSs)jR9;RSu(-S`qRSuyRcjhR !S{2+IADRS}0@(:[%S}zu1i}`T-WAY{qRT-[v[@z)T-a58d-.T-h/eRaiT-puFqf;RT3/i=`I%T3=ZIU[%T3H}h%MRT3Qi};)RT3X<=`I%T3]9SHVRT3aOsp[%T3f/{4hRT3}dmQVR !T55w9|@%T5I8+lVRT5\`([%%T5ofp2R%T7)A6B;RT7;RTG_RT7Nc3a@%T7`76~~S2TMf;R%S2L2Q~~~S2B.U[%%S26>6~~~S2(e0;R%S0sL{H~~ !S0bL*H~~S0ObK;R%S0;9c~~~S.~~ZVR%S.f}.v%%R~N:Jl~~RxFMEqR%Rr*cB;R%RjT(NqR%RbgDf;R% !RHh[ADR%R2H5?.%%QwgQb_R%R5b;)Q~~R=t{M)R%RI:zZ.%%RU@[ahR%RavQzzR%Rotjp[%%S-S-JDR% !S/;S8DR%S/~JhzR%S1g;%MR%S3ONY7%%S56hAm%%S5vk*qR%S7[H:2R%S9>RU[%%S9z:wDR%S;Zf?VR% !S?5(o;R%SAf_1[%%SE=mEI%%SGm]?VR%SK?6RMR%SMcapZ~~SQ&8hzR%SSgJ/iiIRBNna>rzRD@L0z'tRDCBk1}' !RBiSNRADR@sR(/`qR>},hF}WR>8o+2S8RdER>8-,NQ. !R@/He,7%R@Y|wH~[R@-*MpykR3sDYRP)C+2UjRNz40MAmRNIbuaM}RLL=Sfp{RJN`V3`URH:N`mrARD[Ggt`O #% [ 59] re_m2.phase !S>K03H~~S::C.MR%S64^k7%%S29p{H~~R~'Sm%%%RZnHVR%%R:\HVQ~~R-YcVR%%RIj;zQ~~Rcf_zQ~~ !Ryzf;Q~~S/+wu.%%S-o|?~~~R=del~~~R:9|@%%%R8=@%%%%Q^4@%%%%R-~VQ~~~R=zZ-~~~RMQF@%%% !Rm~.%%%%Ro1NqR%%RYcNH~~~RMv9;R%%RIG&l~~~RQ+T;Q~~R_YO?~~~Rq~B;Q~~S-{ZJDR%S10BG_R% !S3HM~VR%S5jKCZ~~S9;Rmu~~S;mADR%%S?DVrI%%SAp7EH~~SE8C>_R%SGOurqR%SI\u-~~~SK`3U2R% !SOn>&l~~SSNsT;R%SUeUwDR%SWZS`qR%SY,e-%v%SY?fJP_RSYIi_=hRSYSaY.v%SYf6LFhRS]UocZVR !Sa2o3I%%Scx.z)R%Sgceu.%%SkM*eDR%So?Hfc~~Sq}OdMR%SulB;Q~~SyWMMzR%S}76JDR% #% [ 59] re_m2.caps !STyWDzR%STxw(2R%STvq1[%%STsP[MR%STnkk_R%SThlB;R%STaUs@%%STY/du~~STOP7%%%STDkwm%% !ST8{Y7%%ST,,O?~~SRx2Z-~~SRi7Y_R%SRY7mv%%SRH/\m%%SR5qf;R%SP|J0;R%SPgZZVR%SPQ>6~~~ !SN]P2zR%SLo=/l~~SL+e_R%SH'{uVR%SFN,_R%% !SDq;Al~~SD8[Pg[%%S<|-jhR%S_R%R:c+|hR%Q1yRu~~~R;Kv9;R%RyW)%MR% !S185SDR%S3|Ft_R%S7``,_R%S;@(:[%%S=mFehQpQi>F5tQ|(:HjhRR.g5I)yc !R0<:1;FVhkaxdRB:-jItGRD(/f|]3RD'SHfv9 !RBJ5L*I%R@P`7K+@R>V[w%H_RWz7b !R>Hv:S93R>rN\xC[R>HHFBwMR<6&^MD^R8~;T-q=R8JmH5~TR8RFh5DTR:.i/Mg*R<8<5P?@RDgi7VLn !RJ&E77GpRLY9YDskRN@RStCpRN;\Sod%%SK6~~~ !SN]P2zR%SLo=/l~~SL+e_R%SH'{uVR%SFN,_R%% !SDq;Al~~SD8[Pg[%%S<|-jhR%S_R%R:c+|hR%Q1yRu~~~R;Kv9;R%RyW)%MR% !S185SDR%S3|Ft_R%S7``,_R%S;@(:[%%S=m8RRTlC`GJqRT:7r04\RRPc{|DrRPZXryb?RNZTg%NARLUc'?GxRJNak%~.RHI384s( !RBL5{ep;R>3XNpuBR@ZQG)lgRBiubuF@RBU:n>G[R@I7x^?*R>M.0Le0R>Rbv&\mR@N_`MU;RB\|t'%9 !RDJDMVk/RDX{t7PhRD3JTQ)2RB=Uqz\yR@;s&BlwR>=x5C{IRwmR1RH[CXpy]RF8;W5WI #% [ 59] re_m4.phase !S=~:2R%%SC6mY_R%SG@sX?~~SKC%12R%SO=W,_R%SS0JP_R%SUv++hR%SYZO7u~~S]7}cVR%S_hv))R% !Sc8_9c~~SeZ}G6~~SguYC2R%Sk./y2R%Sm7l>7%%So8=7v%%Sq/'C[%%SqugRu~~SsWOt_R%Su/-%u~~ !Sw238l~~SwOieDR%SyKG;)R%Sy~0Kc~~S{Xg>_R%S}Y}O@%%T-\:nq)RT-lhtod%T-|Mc%v%T//g}&m% !T/;4{U2RT/EP\2zRT1V=&u.%T1_hb7%%T1i6B_zRT1t-WeDRT1}vGK;RT3.lT+@%T3:91k7%T3Ee{4hR #% [ 59] re_m4.caps !Shx?VQ~~Shx}SDR%Shztoc~~Sh}pwDR%Sj'P{qR%Sj+UNqR%Sj/RahR%Sj3'l.%%Sj5h%MR%Sj7EmMR% !Sj7_Am%%Sj6K|@%%Sj3^NqR%Sj/5SDR%Sj)+/l~~Sh{7~-~~Shqg*I%%ShfW(Z~~ShYlrqR%ShKJu.%% !Sfpqb6~~Sf?I12R%Sdm-RMR%SdbqAl~~Sd\n8DR%SdR|P6~~SdGRz)R%Sd;PG6~~Sd.bWH~~Sbzo|?~~ !SbkAy2R%SbYdEI%%SbEFX?~~Sb.0CZ~~S`mm-.%%S`PbC2R%S`1%z)R%S^iA@MR%S^F/m%%%S\{znDR% !SZ{'l-~~SX~PK;R%SX.U6VR%SVSDR%SRR|P6~~SP[3Y6~~SNera?~~SLvADR%%SHby&DR% !SF84dMR%SBtnu-~~S@`}_Q~~S>K|dMR%Spa,/R>ELmwy{RDn*2G=,RJi(|RTuzIzF`RR{/{t4XRPteHD=hRNf,*TC[RLTr9d_BRJCsI/0;RH7'<|b' !RB1t?ZO8R?`,(oJVEmq{R@JHYdbWRBZ8Zub` !RDGC&}EYRDTdH*pcRD-luHIVRB69Z-+4R@3D9iotR>40GPwmR}+R:o1J.@VR:T+}6{ER:MYX\DR !R:y=@C\]RX]nRN?<7s^RRP)gC5J,RP-Q-dUERN[pVQ|-RL\-pVNiRJh&8s/iRHijeFhaRFEI@d57 #% [ 59] re_m5.phase !S?M1Z~~~SC_@Y_R%SGiFX@%%SKkR12R%SOe_^2R%SSX.Y_R%SWCi4hR%S['hrH~~S]^ruVR%Sa4|D)R% !Sc]v]c~~Sg%'Kd%%Si>nP_R%SkOg>_R%SmX6>7%%SoW)Iv%%SqL5gZ~~Ss6O7u~~SspYk_R%SuEj7u~~ !SwBia?~~Sw]yNqR%SyY{M)R%S{2d]d%%S{hTp2R%S}km=?~~T-^5k;)RT-nnkG7%T-~OyRv%T/1fYO@% !T/=/wy2RT/GGx[v%T/Q3.=@%T/Zfk?.%T/d;E([%T/mb=t_RT/vx*uVRT1%^O;zRT1-g.MR%T14~_nDR !T1CpV1[%T1O0IahRT1WPg6VRT1[}cVR%T1Zz&`qRT1U%?fd%T1Me6fd%T1Gl?nm%T1D4L2R%T1GYdiqR !T1N]7qzRT1Wtnu.%T1a;V)R%T1j|dqzRT1u~t*qRT3%_/XhRT30njX@%T3<7h9d%T3GY]OhR #% [ 59] re_m5.caps !Shx?VQ~~Shx}SDR%Shztoc~~Sh}pwDR%Sj'P{qR%Sj+UNqR%Sj/RahR%Sj3'l.%%Sj5h%MR%Sj7EmMR% !Sj7_Am%%Sj6K|@%%Sj3^NqR%Sj/5SDR%Sj)+/l~~Sh{7~-~~Shqg*I%%ShfW(Z~~ShYlrqR%ShKJu.%% !Sfpqb6~~Sf?I12R%Sdm-RMR%SdbqAl~~Sd\n8DR%SdR|P6~~SdGRz)R%Sd;PG6~~Sd.bWH~~Sbzo|?~~ !SbkAy2R%SbYdEI%%SbEFX?~~Sb.0CZ~~S`mm-.%%S`PbC2R%S`1%z)R%S^iA@MR%S^F/m%%%S\{znDR% !SZ{'l-~~SX~PK;R%SX.U6VR%SVSDR%SRR|P6~~SP[3Y6~~SNera?~~SLvADR%%SHby&DR% !SF84dMR%SBtnu-~~S@`}_Q~~S>K|dMR%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] pr_k.amp !Q%%%%%%%QvghQ`GGR4yhc4`[RFhSA-oR8*MDvy;R09CqEYnQ:CT,L*IQjqr{gN)R4~b]I(uR>I1Min;w8'S0K%;7C1S0LRFR7:CwERD0~}5g_R@A]Qm@1R<)d0~lU #% [ 59] pr_k.phase !S5_B[v%%S9rsT;R%S?&`qQ~~SC.Y_R%%SG0]x;R%SK,t{qR%SM}2V)R%SQm`U2R%SUW_b7%%SY;mz)R% !S[s;1Z~~S_IKt6~~Saqx+@%%Se3Bx;R%SeKp2Q~~SOA/q)R%SQA9|@%%SSJd-.%%SURRiqR%SWW+pZ~~ !S]Mu^Z~~Sa,]OhR%Sc`gk7%%SgJBOhR%Si}K_zR%SmH{iH~~Sog}&l~~Ss'qEqR%Su>WI%%%SwRtG6~~ !SyeGC2R%S{u%QVR%T-RC\\m%T-\FqIv%T-f'Mf;RT-o;kSDRT-wpT/DRT/%c?%v%T/,SOL2RT/2./Td% !T/:|FP7%T/?U:=p[T/D?dVnDT/JrPujhT/SpEuz{T/_4uCNqT/k{V3];T/y*Sy2RT1,0(*I%T1RK.z)R !T1k_Y?.%T3*LbcVRT3AS[Y_RT3X(z~VRT3mzU:[%T5(qeq)RT5=3B/DRT5QyXX@%T5f,Z^[% #% [ 59] pr_k.caps !SVW|p[%%SVVpk7%%SVSHzzR%SVMc%u~~SVEhZ.%%SV;YcVR%SV/DvMR%ST{-rqR%STjr8l~~STXhvMR% !STDs7u~~ST/B+?~~SRr30c~~SRYQB;R%SR?F?~~~SP}sD)R%SP`~NH~~SPBk?-~~SN}9p2R%SN\93H~~ !SLIbWI%%SJH'x;R%SHOMj@%%SH+F+hR%SFg:6VR%SFB&L[%%SDo1k6~~SD<+L2R%SB^*H~~~S@{{8m%% !S@U?)zR%S/R=@%%S>J+H-~~S>e|lVR% !S@h6NI%%SBWUVzR%SDF:Bc~~SD|@IMR%SFY&m%%%SH9<@u~~SHuiyZ~~SJZCNqR%SL@j`H~~SN(zZ.%% !SNl]G_R%SPW^NqR%SRCvU[%%ST19G_R%STyP*qR%SVhY?.%%SXXJ0;R%SZHu>6~~S\9}.v%%S^+Vb7%% !Sb6KWqR%SfCQ>6~~SjR<,_R%Snb=t_R%Srs@mv%%Sx+6>7%%S|=bK;R%T.VF`I%%T.j@%%%%T0LEU2R% !T0tQfc~~T2Be8DR%T2j|D)R%T49=/m%%T4a[UZ~~T6/y{H~~T6XB';R%T8&d-.%%T8O,2zR% #% [ 59] pr.lambda !S4mKt6~~S4n/q)R%S4p9G_R%S4sa7v%%S4xIahR%S4~Lk6~~S6+_Z.%%S63~NH~~S6=H.%%%S6GeXhR% !S6RqzR%%S6^iY7%%S6kATd%%S6xHrqR%S8+t_Q~~S89g:[%%S8Gv~-~~S8VB[u~~S8e'h)R%S8t*(Z~~ !S:JQNH~~S:s/HVR%S8{a?~~~S8b+`H~~S8[Kt6~~S8a@IMR%S8o/DQ~~S:(ZZVR%S:@F7v%%S:[V%MR% !S:yO`I%%S,.-.%%S>Q_%MR%S>xPWH~~S@FUNqR%S@obk_R%SB?iy[%%SBjc^Z~~ !SF%NeDR%SH>:_)R%SJZJhzR%SLyO`H~~SP@~vv%%SRdd~-~~SV0BG_R%SXW^s@%%S\&N8l~~SdN{];R% !SjQTOhR%SpWn`qR%SvaH.%%%S|mpBd%%T.ck2zR%T0&U.MR%T0CM^2R%T0`XH.%%T0}uF?~~ #% [ 59] pr_l1.amp !Q%%%%%%%QXcGJT\eR0+o->7R@RyAk<=RD.G>0SmRFR>w8S,RHjR?Sh2 !RJ~.;{eERN;Wot7%RPU~cd=@RRb9?aL3RT=K9'_zRT3xe>V6RR_&olRNRR=(D_B7RR;Qczs8RR[37`y[ !RVuTz5%5RZ=~[%B3Rj0]Yn>KRtQg97;>R|/,(Jm%S.S*g7([S.[d}*4~S.`)ljkJS.an|qR_S.bTR~7q !S.b=,JT~S.^f;Q,~S.VGx?vYR|v'vxaXRxf3_^62Rt+P.vf\Rn.HKXY/Rh.X%8xDRb;}wx`iR\Y&=\DR !RRs/UkAyRN~}'^,pRP-wyxqFRRI5;SkGRVYGddh:RZ}:j&xhR^oXi=O^R`g%+CYzR`rLEdX3R^`5Y\0F !RZUS{;=eRVUOU:R}RR8r;r=CRLzvLCb8RJ@Qj2q.RF.}.F;VRBlobur)R@&OJ[,-R:r2}~JZ #% [ 59] pr_l1.phase !S/:YG6~~S3MLBd%%S7Y%57%%S;]:>_R%S?YujhR%SCNgk7%%SG;B7MR%SIy,&l~~SMR~-~~~SO{L_)R% !SS<([%%%SUED1[%%SW7[ahR%SWj9x;R%SY+|hQ~~SY;c%v%%SYMzvMR%SYi7~-~~S[4]|@%%S[bbC2R% !S_VZRMR%Sam~RMR%Se8Op[%%SgjT;Q~~Sk9&LZ~~SmW~)zR%Sos(.MR%Ss0W(Z~~SuDZRMR%SwV%))R% !SyctO?~~S{nIEI%%S}uPK;R%T-ZN+p[%T-cZhf;RT-lDLBd%T-ta/l~~T-|BhrI%T/);Al~~T//-?JDR !T/9Dy>_RT/?=>}shT/DV=5O@T/K:P?cVR%SH^Sdu~~SH80;R%%SFq^{I%%SFJP;)R%SDv@z)R%SDBDIv%%SBcjD)R%SB'D%MR% !S@A{Y6~~S>Z=H.%%Sz+0R\MEus`IR\m|4*MrR^(1f0>C !R^6C*}PxR^61u8({R\y&ihaHR\@rMSJYRZ@(eNs0RVyA_~Z2RT=PDx2ZRPKPM=&uRLX3^\d-RHerZ{6F !RBFz5VhbR@_k0O*URBtbQfd%RH)Ts,;dRLg'~89FRRQ:Wl[cRVfb/sP7RZ.f4Z{qRZewUlJERZU7*:FK !RVzMhP/sRTGI5T9{RPHOah&Mb6~~S5~i0d%%S9blNI%%S=PRz)R%SAvW];R% !SM4FP7%%SW*_=hR%SYco7MR%S[7RiqR%S[7.ADR%S[49Sl~~S[Lc-~~~S]*kK;R%S]{gk7%%Sa*q-VR% !Si)6)zR%Smk21Z~~Ss:{mMR%SwE:&DR%S{:T/DR%S}{6F?~~T-_xt6~~T-m1t.v%T-yco[v%T/+U]Kd% !T/6hWa@%T/A8Kl.%T/JsieDRT/SjX@%%T/[~1_)RT/cRvb{qT/jF/HVRT/pO&M%NT/u\f{uWT/yZ3VEq !T/~+V5flT/}`{8m%T/~`g-:2T1(Yo?VRT1.p}&m%T17&vADRT1@\j3qRT1K'U&DRT1Ut'[v%T1uzs7v% !T30_NiI%T3EXp6VRT3Xz|/m%T3kqf;R%T3~>6~~~T55wZjhRT5FUs@%%T5W(P*qRT5gq2nDR #% [ 59] pr_l2.caps !SHdZNI%%SHc<4hR%SH_B[v%%SHXmiqR%SHOg>_R%SHD:.MR%SH6GSDR%SH&@MR%%SFn(VzR%SFYl)zR% !SFC^:[%%SF+d))R%SDl*iH~~SDPt{qR%SD48@MR%SBp0+@%%SBPg6VR%SB0&(2R%S@h't6~~S@Dlfd%% !S>-=lVR%S<,'[v%%S:5{M)R%S8hi,_R%S8G1g2R%S6|ft6~~S6VR%%%%S6/1*H~~S4a(Ru~~S47|P7%% !S2gTSm%%S2;8u.%%S0fLwDR%S04hQ~~~S.Z1_)R%Rthu:2R%RhDMzQ~~RZhiuVR%RN(K7MR%R@>bC2R% !Qg):Rv%%RIkO?~~~ReeOL2R%S-U6zzR%S/gyk6~~S1{`,_R%S57pg2R%S7Ln(2R%S9[`y[%%S?]&L[%% !SCXG?-~~SGLC.MR%SK*gk6~~SM_V)R%%SQ7ahQ~~SSZ80;R%SUyRu~~~SY=wP_R%S[PrU2R% #% [ 59] pr_l3.amp !Q%%%%%%%Q4gzD9d%QD2k8tr1QPugrAl6Q\ZRbkn,QdqC&0nUQj2xhU:[Qhpf`KsmQb6iYCi5QRkxvfMB !QH?TmDr.ySGhRHmPv57%RN<3A'`iRNghM1[%RHC-5{:oRNXJhGO@RT'\uFkhRVjj{;^2RXoUbh>|RZUP]Lp*RZyD{H6.R\7%^Z6. !R\Hnr.=@R\L>b06_R\8H1O&,RZ]}wRi)RX`3Abe4RVC5*(:7RRdeT_]DRNv;SsieRL,HPBR5RH=?@,r1 !R@~JHs`IR@@GPQu>RBUzG21[RFd:eJkdRLFB90YbRR/9&cJZRVD/iw\IRXfEeio:RZC~|/sxRZ77:-[c !RVc-\=CXRT3o*G%@RP86[BPWRL7Z>)c]RHh9b(RoRDc'SjFmRBP<)z9zR@3PC2l;RLNqT/mB7))RT/sCm~RNT/xJ:JHVT/|@Furq !T1&]5C9lT1&-`8m%T1'-L-:2T1+-nHVRT11AB+@%T19I{_R%SHD:.MR%SH6GSDR%SH&@MR%%SFn(VzR%SFYl)zR% !SFC^:[%%SF+d))R%SDl*iH~~SDPt{qR%SD48@MR%SBp0+@%%SBPg6VR%SB0&(2R%S@h't6~~S@Dlfd%% !S>-=lVR%S<,'[v%%S:5{M)R%S8hi,_R%S8G1g2R%S6|ft6~~S6VR%%%%S6/1*H~~S4a(Ru~~S47|P7%% !S2gTSm%%S2;8u.%%S0fLwDR%S04hQ~~~S.Z1_)R%Rthu:2R%RhDMzQ~~RZhiuVR%RN(K7MR%R@>bC2R% !Qg):Rv%%RIkO?~~~ReeOL2R%S-U6zzR%S/gyk6~~S1{`,_R%S57pg2R%S7Ln(2R%S9[`y[%%S?]&L[%% !SCXG?-~~SGLC.MR%SK*gk6~~SM_V)R%%SQ7ahQ~~SSZ80;R%SUyRu~~~SY=wP_R%S[PrU2R% #% [ 59] pr_m1.amp !Q%%%%%%%QNtq)6`]QxKH+Z0'R20['=/mR6&g@S4@R8lFOa\DR~IR;6NRBQR-DZwRF,z.\fT !RJ/,^fh)RPI/VqVNR\|nZyBdRvl-,S9XS.]TYe4@Rlqu7JN]R^m6[2mzRXK`W\/MRTs{8bK`RT>36,*) !RT{xt/dvRVp_UK%9Rf4u:U0PRp30aa)BRv^mj-F@RzZd'8&UR|UQsdj`R|}-iy[%R~2wd^aPR~A45HFd !R~BCqW]`R~,ZCwa`R|BcD|L{Rxx2xrgkRtzF7omARpS[suNIRjo<.nsPRf,QR>wmR`PfY%&]R\+3K)+T !RRiAl6.%RN~h4TuoRP'`onF0RR9F8CVDRV;~1HMZRZTw^b0TR^A2=mhHR`7MC7M*R`Dm9nxlR^:B%;?8 !RZ3u>U+JRV9i[c0mRP|[AE~RRLgVQ/AoRJ0jnn\mRD{}._O`RBazmQ`eR>vU(ANoR:kpD'W) #% [ 59] pr_m1.phase !R}zzR%%%S1dcF@%%S5p}od%%S9vZrqR%S=uTOhR%SAm|t_R%SE`@u~~~SILx|@%%SM4\DR%%SOrF3qR% !SSRH^[%%SW+\hzR%SYD{eDR%SYZaL2R%SW8gg2R%SU_s\DR%SW/GgZ~~SWr-)zR%SY]dmu~~S[Goc~~~ !S_UG2zR%SaoX`H~~Se;+/l~~SgjIADR%Sk6~6-~~SmTV9c~~SonQrqR%Ss+?6-~~Su?MZ.%%SwPQB;R% !Sy]_1Z~~S{f9+?~~S}km=@%%T-Y?NmMRT-b:_)R%T-jwj3qRT-s3TC[%T-zou%v%T/'lNmMRT/-iFX@% !T/8PX7v%T/>rLI57T/DElHfdT/K/M>[)T/S|_KSmT/^|tjL3T/kI;+T;T/xAMnDRT1+<'l.%T1Q=ZB;R !T1jVm12RT3)R/y2RT3@I%IMRT3W3QRMRT3m-]G_RT5'|*M)R #% [ 59] pr_m1.caps !SXKBl-~~SXIzrH~~SXEo+?~~SX>yJm%%SX5Jq)R%SX)D^2R%SVtqf;R%SVd))Q~~SVQ-6-~~SV<+L2R% !SV%6%v%%STf[QVR%STLEU2R%ST0Y*qR%SRmJ`qR%SRNtC2R%SR/-%v%%SPh%))R%SPE\L[%%SN{uVQ~~ !SLad))R%SJ[DZ-~~SH`koc~~SH:=L2R%SFsa7v%%SFL@=@%%SDx&(2R%SDC|7v%%SBe=7v%%SB(m9;R% !S@CCRu~~S>[X'd%%ST3imRM'EvirRB(?%Xp[RDM]//EARFY6:\kGRHV8cawuRJCICJHVRL)JIW]; !RLg'yN/uRNA|Jli1RN^}&l~~RN]Ch=.5RN7J8hzRRLI0Y5*)RJ=(G::[RFxr?s)fRDS[t5dERB-dvGT+:NEiRBbNNeM}RHBqSLOCRN)pXcn^RR>,Yr'{RTcauK~QRVJq4`Q'RVq0OH>( !RTaBE[oWRRI8nPViRNbDNLGfRJog_WKLRHPmSKwjRDT;qQDbRBFOOw~YR@+\2|g7R<_th:PD #% [ 59] pr_m2.phase !RnriH~~~RD,2zQ~~R/>*qR%%RU6b_Q~~Rw^*H~~~S/he(2R%S343qR%%S5E|pZ~~S79Mf;R%S7EWY7%% !S3Kr4hR%Rs}&m%%%RWWI%%%%R9Su.%%%RF8\l~~~RbNqR%%%Rb4xd%%%RTh5_R%%RBHZVR%%Qfa@%%%% !RowTd%%%S3*qQ~~~S95HJDR%S=Zt*qR%SAfqEqR%SE_}g[%%SIFJ0;R%SKvW8m%%SOBN0c~~SQ_[el~~ !SStUFhR%SW&6B;R%SY(XX?~~SY|MEqR%S[o=xc~~S]Z{STd%S_@>.v%%S_x<{8m%SaM)`Y7%SapYk_R% !Sc9;REmMSc02s\DRSc;f\@MRScf\@MR%SeMC&DR%SgEdz)R%SiKMf;R%SkYrU2R%Sml|3qR%SuJ._f;R%S<-:{H~~S:7`U2R%S8jJTd%%S8Heu.%%S6~=H-~~S6WwXhR%S60OD)R%S4b;rI%%S49';Q~~ !S2hG*qR%S2;vqzR%S0f|@%%%S052zR%%S.ZNmMR%RtkEY7%%RhFP7%%%RZjYwm%%RN*;9d%%R@@Y_R%% !Qem%IMR%RIi3U2R%RecjD)R%S-U3@v%%S/g}K;R%S1{gFhR%S57tG7%%S7Ln(2R%S9[`y[%%S?]*,_R% !SCXJy2R%SGLC.MR%SK*kK;R%SM_V)R%%SQ7ahQ~~SSZ;j@%%SUyRu~~~SY=wP_R%S[PrU2R% #% [ 59] pr_m3.amp !Q%%%%%%%Q8Q9N-kWQJ]Bq*2BQ\(;xIw]QjEJ5L*IQv,~;oj,Q|e]^,odQ~^*)>{rQxy^4IAEQl/ZO)Am !Q\IC:s*1Q~-WN^hFR<*4uVJeRVuEz;b[RlJj6(BdR`W<`YqBRTA_%8EARL*tHvneRF%,waC;R@[QcOr9 !R6i9{XhvR407mXp[R8apRFXZ4}HoRHI0E|9xRJ2SSbsi !RJsO2ZRMRLQbF*7~RLqfg:[%RLsW+)39RLPDHzCoRJeO}e}7RH\@lV}hRFA4B(+XWBTRB5I(ymHRFn8zGu8RLSTzl]9RPfP.O_wRT1D*85{RTrLQNTaRVF&D(/d !RT>[7>7_RR+YOx0|RNJVC?4TRJ^KOcb}RHBpu2*{RDIs}Rg.RB?tYXM)R@&d1L)^R<[:,&}I #% [ 59] pr_m3.phase !Rdd9;Q~~R8vmu~~~R9O'c~~~R_IahQ~~S-b|;zR%S1>G6~~~S3dPC2R%S5wY{qR%S7n*Y7%%S9(pNqR% !S5AHzzR%S-Xt_Q~~R_P{qR%%R?wG2zR%%QDD)R%%% !Rs-:2R%%S3;0l.%%S9P%57%%S=z9?VR%SC/t?.%%SG+n4?~~SImgJl~~SMDIv%%%SOjS(2R%SS-R))R% !SUB25_R%SWM=hR%%SYNtgZ~~S[GsD)R%S]9_1[%%S]~6a'd%S_b?vu~~Sa?+Iem%SalWOP7%Sc4pZ~~~ !ScT.1S@MScHByNqRScSJyVzRSc~aL2R%See.]c~~Sg\=7v%%Si`l^Z~~Sknedv%%So(9l-~~Su__EqR% !Sy|?.%T/WF[z)RT/hIcjhRT/yOd))R #% [ 59] pr_m3.caps !SHfk?-~~SHeP_Q~~SHaSL[%%SHZzzR%%SHQtO?~~SHFC_)R%SH8IiqR%SH(;Iv%%SFoys@%%SF[_f;R% !SFEJ\m%%SF-Lk7%%SDmiqQ~~SDRVIv%%SD5p.MR%SBqgs@%%SBR=dMR%SB1VV)R%S@iTh)R%S@F?ZVR% !S>._f;R%S<-:{H~~S:7`U2R%S8jJTd%%S8Heu.%%S6~=H-~~S6WwXhR%S60OD)R%S4b;rI%%S49';Q~~ !S2hG*qR%S2;vqzR%S0f|@%%%S052zR%%S.ZNmMR%RtkEY7%%RhFP7%%%RZjYwm%%RN*;9d%%R@@Y_R%% !Qem%IMR%RIi3U2R%RecjD)R%S-U3@v%%S/g}K;R%S1{gFhR%S57tG7%%S7Ln(2R%S9[`y[%%S?]*,_R% !SCXJy2R%SGLC.MR%SK*kK;R%SM_V)R%%SQ7ahQ~~SSZ;j@%%SUyRu~~~SY=wP_R%S[PrU2R% #% [ 59] pr_m4.amp !Q%%%%%%%QJ+e8FRKQp:@;hY-R0mipY}tR6&07doTR:;2:[ofR>N]XJhGRBa>{a>5RF{5d&)jRL^%VB[v !RTV]xO(DRb}sD)R%S.hz=jB'S68|cEnex(jVb !R>,i<%bWRET3=C;R>fSx`iIR>oUt8WBxR}Q[Pw^R>%*14-} #% [ 59] pr_m4.phase !Rcf;R%%%S-w`qQ~~S/ot6~~~S1FP7%%%S1~jhQ~~S3x[v%%%S73Y6~~~S9_^2R%%S=CwDR%%SA:&DR%% !SE?vu~~~SIKOhQ~~SM6:2R%%SM^Bd%%%SK:FhR%%SI\u-~~~SK/LZ~~~SK{Y7%%%SMuJDQ~~SOnq)R%% !SU=3qR%%SWQB;Q~~SYub_R%%S]C>_R%%S_QjhR%%SaO`I%%%ScKx;Q~~SeJ8DQ~~SgQ%v%%%SiczzQ~~ !Sm-.%%%%SoZjhQ~~Ss.))R%%SuPG6~~~Swb.v%%%Sy`mMR%%S{Pwl~~~S}0Kc~~~S}Yg[%%%S}q^2Q~~ !S}>7%%%%Swbwm%%%Su'OhQ~~SsgeTc~~Ss{WY7%%SuG5k_R%Suu6RMR%SwQRMQ~~Sy55k_R%S}K>C2R% !T-YqiuVRT-gl%v%%T-u*/,7%T/(-LFhRT/54(wDRT/AvH^[%T/Mjh-VRT/YB?zzRT/eSM%MR #% [ 59] pr_m4.caps !T08m%%%%T09,SDR%T09y*I%%T0;=D)R%T0=-F?~~T0?>7%%%T0Aop2R%T0DRIMR%T0GCVzR%T0J-JDR% !T0LfC[%%T0O/HVR%T0Q8y2R%T0R{a@%%T0TCZ~~~T0U=L2R%T0Ui4hR%T0Ut.u~~T0UVzR%%T0TkcVR% !T0P7mv%%T0J?^[%%T0E/,6~~T0Cg2Q~~T0B/DR%%T0?iy[%%T0=-F?~~T0:?rqR%T07REH~~T04hR%%% !T02/XhR%T0/_9d%%T0-<4hR%T0*s/m%%T0(P*qR%T0&%el~~T.}?RMR%T.zJdu~~T.w8hzR%T.sjxc~~ !T.j5*qR%T._mz)R%T.UfC[%%S~J~nm%%S|X)Al~~Szk\`qR%Sx}c2)R%Sx1.MR%%Sv7%%%%Sj-Lk6~~Sf}(o;R%SdoLwDR%Sbog:[%%S`sKh)R%S^t_vMR%S^&uRMR% #% [ 59] pr_m5.amp !Q%%%%%%%QF}sSRKtQjPJs-U;R0IbOu8UR4`Wsu^LR:'1f~iC\9s];RB[\E=}WRFx[d>ayRL]6yXX@ !RTVshLA;Rb~{iI%%S.i67|ieS69a'an4S:TEGG7%S6VMSQrqS2nJ-gRvS0h;/XhRS0';pz2%R~c@BfKd !RfEx`s[VRXVL0YZ:RVhS_>+`RR[|c2rIRN?;Z``vRH}8IM)vRF(8qDpGRB\es(p*R@K}4F+iR>Rw]{|q !R3oVVx9t7R>a:~INAR>II;=hRR=n=J0R0Qkr`nR:y@BzO}RB|@@h/QR<}/]ABS #% [ 59] pr_m5.phase !S5,G7%%%S7go;R%%S993I%%%S7mQVR%%S7>SDR%%S7CFhR%%S9(VzQ~~S;9OhR%%S=gVzQ~~SATC[%%% !SET3H~~~SI[ahR%%SMD%MR%%SMjP6~~~SKDvMR%%SIf[u~~~SK8hzQ~~SM*uVR%%SM~B;R%%SOwDR%%% !SUFP7%%%SW[))R%%S[%%%%%%S]L[%%%%S_Zb_Q~~SaX3qR%%ScS\m%%%SePcVR%%SgVb7%%%Sii];R%% !Sm2j@%%%Soa;zR%%Ss5g[%%%SuY?.%%%Swk&m%%%SyjT;Q~~S{Z:2Q~~S}9C[%%%S}b_Q~~~S}yBd%%% !S}B;Q~~~Swb.v%%%Su(c-~~~Sskj'd%%Su'^Bd%%SuM`}_R%Su{=;zR%SwW4hR%%Sy<+L2R%S}T6:2R% !T-Zd@z)RT-hx+?~~T-v.tG7%T/).W];RT/6K(NqRT/B{3y[%T/Ns3M)RT/ZU_MzRT/fI^.MR #% [ 59] pr_m5.caps !T08m%%%%T09,SDR%T09y*I%%T0;=D)R%T0=-F?~~T0?>7%%%T0Aop2R%T0DRIMR%T0GCVzR%T0J-JDR% !T0LfC[%%T0O/HVR%T0Q8y2R%T0R{a@%%T0TCZ~~~T0U=L2R%T0Ui4hR%T0Ut.u~~T0UVzR%%T0TkcVR% !T0P7mv%%T0J?^[%%T0E/,6~~T0Cg2Q~~T0B/DR%%T0?iy[%%T0=-F?~~T0:?rqR%T07REH~~T04hR%%% !T02/XhR%T0/_9d%%T0-<4hR%T0*s/m%%T0(P*qR%T0&%el~~T.}?RMR%T.zJdu~~T.w8hzR%T.sjxc~~ !T.j5*qR%T._mz)R%T.UfC[%%S~J~nm%%S|X)Al~~Szk\`qR%Sx}c2)R%Sx1.MR%%Sv7%%%%Sj-Lk6~~Sf}(o;R%SdoLwDR%Sbog:[%%S`sKh)R%S^t_vMR%S^&uRMR% ifeffit-1.2.11d/src/fefftab/14.dat0000755000175000017500000001114110771740460015461 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] si.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] si_k.amp !Q%%%%%%%QFXzDD^2Qfq1Fzf;R.pxd-hBR2@ptD(cR4^e'r}_R6mwL}GJS&F0RBe~^f?{RHRSu+MF !RXO|U;u_RvbY&E^*S0)mmk\*S0P?|RFwC|fq?RBdwVN6FR>b|ljI3R<+ck1Q>R8u27^p*R6t~{p}DR4rlybJ(R0WaxpyY !R.[{ZgRvQpSV'{kDQfP,+)sFQ\h,h~^uQTe,Ly7MQNhLiE?qQJkF1vRBQLJ|nkZTQZ.U_PR1 #% [ 59] si_k.phase !R.iQ.%%%RG5cVQ~~Rq(NqQ~~S/kRU[%%S3`^*I%%S7MR%%%%S;2w_R%T-XE]_zRT-bcO7v%T-lLN([% !T-uX(Rv%T-~;u:2RT/,W/P_RT/4OeAy3T1Wku4+iT1bjT47vT1l|Iem%T1w*gk7%T39<'G_R !T3J,t{qRT3[u{DzRT3gLk[MRT3xegg2RT5)sXdMRT53l{iI%T5A=?6.%T5?&~JDRT5Oa,{qR #% [ 59] si_k.caps !SL4j'd%%SF{W}_R%SF\UwDR%SF;nhzR%SDsA8DR%SDO29c~~SD):Ru~~SB[VIv%%SB1z~VR% !S>OkC2R%S<`m))R%S*qR%SWH~~STOt_Q~~SVA1*I%%SX2zQ~~~SZ%;b7%%SZq~zzR%S\e2b7%% !S`sKh)R%Sf)B[v%%Sj:I56~~SnLIY_R%Sr_5;)R%SvrP?-~~S|,=+hR%T.ThrH~~T.hm12R%T0K*uVR% !T0sB';R%T2A\l~~~T2i{8l~~T48C>_R%T4`eDR%%T6/1*H~~T6WVj?~~T8%|P7%%T8NKp2R% #% [ 59] si.lambda !T^Vq5_R%T^ZXT;R%T^dQVQ~~T^q4L2R%T^zxt6~~T^zEqQ~~T^gI~.%%T^:nq)R%T\Ij`I%%TZ9`iH~~ !TVh16VR%TT(ey2R%TP8\HVR%TLG->7%%TH[iqR%%TD|5O?~~TBQdahR%T@8,6~~~T>/oKd%%T<8vel~~ !T8_^{I%%St*:Jm%%SfC7iqR%S`BNyZ~~S^'r}_R%S\Z1:Z~~S\`Bx;R%S^+5shR%S^f:>_R%S`XC:[%% !SbX3qR%%SdcFdMR%SfxD%MR%Sj;v))R%Sla.~-~~Sp3>shR%Srera?~~SvDH>7%%Sz(O;zR%S|kqf;R% !T.pX|hR%T0Bx;Q~~T0qvMQ~~T2IADR%%T2}/@MR%T4Y5G7%%T67L>_R%T6qlfc~~T8T9+@%%TOmxL !RR=ABjf+RLB8q((kRFz{ZkPPRBgyWPX}R>ePrWd1R<-g=:fKR8vb8xR5R6v;jC7cR4swvLHQR0X4[kb} !R.\S8DebQpVU6E2PQfR@,U5}Q\jv4Uc]QTeRY<1wQNj+a[}dQJkP@F~}QLK@1<6\QZ1(y`d8 #% [ 59] si_l1.phase !Qh\DQ~~~RIZNH~~~RsPO?~~~S/xzb7%%S3nj3qR%S7\EeDR%S;Ba3qR%S=|nXhR%SAX.Y_R%SE0AXhR% !SGaOlVR%SK:UBc~~SMs.Y_R%SQ[Oxd%%SUQ-6-~~SYRXL2R%S]U]p2R%SaK3mMR%Se*8l~~~SgK5&l~~ !SmB>C2R%Sowc>6~~Ss6e,6~~SuNehzR%Swo2Z.%%S{81*I%%S}UjH.%%T-Y(ruVRT-cPv~.%T-mA5wm% !T-vSBt7%T/%:NqR%T/-\\HVRT/5XQJDRT/==(wDRT/Dkwm%%T/L-]1k7T/S<'.13T/Z?0.U[T/a7vf[v !T/q[/0;RT1&XyPe4T14,4(wDT1@ccNI%T1L}caL2T1XpYvY`T1cgxmemT1mrZnm%T1ws^k7%T39rCBd% !T3JX]WqRT3\D)vMRT3gtt2zRT3y06:2RT5*6g.MRT54,P.v%T5AS3Q.%T5?PSDR%SF{>O@%%SF\@))R%SF;U:[%%SDs'c~~~SDNreDR%SD(z~VR%SB[9;R%%SB1aP6~~ !S>OUNqR%S<`6F?~~S<@[=?~~S:y62)R%S:RZNH~~S:%m-.%%S8P;rH~~S6z5;)R%S6JKl.%%S4u7em%% !S4FVb7%%S2r8m%%%S2D-2)R%S0oi_R%R}DS\l~~S/=n}7%%S1*FX@%%S54f+?~~ !S7S?:2R%S9dy_)R%S;mD~VR%S=rj\DR%S?o7))R%SAf:c.%%SC[N@u~~SEJ3,_R%SG68y2R% ifeffit-1.2.11d/src/fefftab/90.dat0000755000175000017500000003577010771740460015503 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] th.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] th_k.amp !Q%%%%%%%S0Yfya}jS<({|.3Sn|}OG?.SlCF4J3vShH|MzCKSd9{m3}`S^u1_)R% !SPEaUs@%SFKzlYyoS>*lvnWkS6b6=teCS06u'^(oRpPCv`U2S.r(_tYpS2C&TEa]S4f3CLf1S6`8LkcO !S8&JsPh8S6nQ%pNFS6.&v.}1S4&MunD5S0b|gRckRzqn\M>|R`V[1r>tRL'8^VoXRBuJ?b|`RHeTY1I~ !R\K1Esj0R`]1R)MzR`Ko`iI%R`s0(s@%R`7srHpKRZNrE)|yRR|vI}\ !RR4jTldbRTB.1YrzRV2s8RRVzBpA,RR0Vcc1;RR'>vvmv #% [ 59] th_k.phase !S<~IvIMRS8i>O@%%S4Vo|@%%S0G1Bd%%RfCg2R%%R<6^[%%%R7_f;Q~~Ra6VQ~~~S/)%MQ~~S3(R-.%% !S7%:s?~~S9y62)R%S=p@=?~~SAdUZ~~~SEUcvu~~SICk6~~~SM.QzzR%SOo\@MR%SSS%ADR%SW28u-~~ !S_ed-.%%SeH{DzR%SiWf3I%%SkFC_)R%SkMD9d%%SiWq-VR%Sk2yc-~~Smz?F?~~Ss)wce,7%T/Sy2Q~~T/pA712RT1>[|t_RT1b>Wtg[ !T35Cmw8ET3L}%=8eT3\**virT3i_pJHVT3xR*.u~~T7g2&[MR%SDT;R%%% !SD9WM)R%SBvmQVR%SBJ?^Z~~S@bWmMR%S@C`a?~~S@8M%MR%S>~W@u~~S>ZDb6~~S>(rQ.%%S~b_R%S.RTG_R%RpFL{H~~ !RL4&P_R%Q^R6%v%%R;ct*qR%RWN0?VR%Rs\8DQ~~S/NKKd%%S3%K+?~~S5Ss+hR%S7yLo;R%S?V?F@%% !SCvahR%%SI8WU2R%SM:B?VR%SQ4L2Q~~SU/t?-~~SWu?%v%%S[Vu^Z~~S_:PshR%SanSu.%% #% [ 59] th.rep !S@8qMzR%S@9C6VR%S@:lJDR%S@=9/DR%S@@]?VR%S@D~zzR%S@JD-VR%S@P`eDR%S@X(.MR%S@`CBd%% !S@icB;R%S@t*M)R%SB%PC2R%SB1z~VR%SB?Lk7%%SBN*];R%SB]g:Z~~SBnUwDR%SD&P_R%%SD9WM)R% !SDyz~VR%SFQ0';R%SH.xp2R%SHqlfd%%SJNwXhR%SL%'p2R%SLXN}_R%SN44;zR%SNl&du~~SPKuJDR% !SR-hf;R%SRkL*I%%STPnP_R%SV7gJl~~SVz/XhR%SXchf;R%SZN[9;R%S\:NqQ~~S^'?zzR%S^n}[MR% !SbqLBd%%Sfw\HVR%Sl&a;zR%Sp1~:2R%St?-ZVR%SxM`4hR%S|]A4?~~T.Y?.%%%T.m&8DR%T0NZ%u~~ !T0vPC2R%T2DQZVR%T2lZ2)R%T4:i}_R%T4b}O?~~T61:Z~~~T6YQfd%%T8'p2R%%T8P0x;R% #% [ 59] th.lambda !RXN,_Q~~RXO&P_R%RXQm~.%%RXVO3qR%RX\zEqR%RXe?:2R%RXoJP_R%RX{IIMR%RZ/1*I%%RZ>_-VR% !RZOurqR%RZbqf;R%RZwVAm%%R\3vEH~~R\K{Q.%%R\eb*qR%R^'*,_R%R^D)vMR%R^bhnDR%R`)2nDR% !Rb;,g[%%Rd3-rqR%Rf71VzR%RfnN];R%Rf|OlVR%RhGMb7%%Rh|dqzR%Rjd(:[%%RlTa|hR%RnM&euRMR%S@VF`I%%SBG-b_R%SD8*Y6~~SF)2Iu~~SFtLNqR% #% [ 59] th_l1.amp !Q%%%%%%%Q@/?6s;zQXgs8Wk'QpS)JF>GR.n\&yVZR0k0PlE?R2`{-efTR4V}z{[2R6US9&>'R8fLFp2v !R<6d?glJR>|{5m=@RD*Z?)V)RHFLi4hRRLp\b=+hRREzE3U3RVtCU7(;R\@,Id]@R`[\dB|@RdfE\%{a !RntAUr|qRt7h,f1kRvQ}Uk7%S.V`j>urS0AO:Nm0S0h4\C(kS0|hRrJkS2)D;MNiS2%v;A}(S0qT%W>^ !S0W[/VtpS02O5Z{iS.]mZiC?Rv>P\QvRRhs=1H&RDLP9Xn}RD]J9Xyw !RL{hc80;RT+36&93RV0m-gZ6RV2lgE)JRTF):sdNRPxt@<;:RN?RE~8URL(cVueuRJ;.}ujiRH[Rz3qa !RL=(/J.ORN3>k,HhRP2_RT3RP0x;RT3e{&4@% #% [ 59] th_l1.caps !SRMvqzR%SRLnLZ~~SRIXpZ~~SRD6)zR%SRO4`H~~S_R%RULlnl~~Rs>n,7%%S/KwL[%%S1zI-.%%S5L;nDR%S7q-zzR%S?UT/DR% !SCukWH~~SI5qAl~~SM9OhR%%SQ4W,_R%SU.oSl~~SWte}6~~S[W-rqR%S_:,K;R%San6fd%% #% [ 59] th_l2.amp !Q%%%%%%%Q6p[`9n0QH~UUKn0Q\md+}(&QrW:W@8(R0**n@M1R2HadeW1R4sPvrL;R8N/'uv-R<,Z7:*I !R>_@PD|TRB(EavahRD31QLk7RDw2My(kRF@OkvV%RFD*z3`vRF-59~fdRD]qm8L[RD']3Y(KRBHMoy&i !R@%ir9[vR@%{hzvMR@ks,onyRH;_EqR%RPotRd57RVu),-_%R\T&/L[%R`M^6RqzRblYljolRdF1bGPS !Rd&|9n({R`jUWu*iR\Y:^i<)RVV*Rf3mRNt~2U:[RFpe6m~.R>iBJbshR84Y0_NiR4&@vv_BR4=Q`8m% !R>OBvh=DRFMsr+b'RJS\sqg*RLJVo?*iRLDpYCVzRJJ,6Q+XRH,e>HcsRF,799a}RD[wu?Q_RF%TQRV; !RH{h:JZ)RL<]*pwDR%S{,Rz)R%T-UM6)zRT-g'qEqRT-w(eTd%T/+8.9;RT/7bi];RT/BWM)R%T/L=SL[% !T/U,a/m%T/]7%T/k}VZ.%T/r)7ahRT/v]ny2RT/xP(&DRT/tg:6VRT/gw9WqRT/W;@~.% !T/Me^o;RT/VUk6~~Sz=F+hR%Sz9p{I%%Sz4&,7%%Sz+w,7%%Sx{Y[MR%Sxo.z)R%Sx`Q-~~~SxOx?VR%Sx=Ft_R% !Sx)%MR%%Svlu>6~~SvU/`qR%Sv;iuVR%Stzs\DR%St^[IMR%St@{_R%Sl;f_zR%Sj62MzR%ShUhEqR%Sh/2b6~~Sf_tK;R%Sf4zf;R%SdcJDR%%Sd83Q.%% !Sbf}wm%%Sb;>{qR%S`h8,7%%S`92Z.%%S^aN4hR%S^-0p2R%S\P88DR%SZpruVR%SZ5X\DR%SXR\u-~~ !STjnXhR%SR*wXhR%SNN4D)R%SJ~GSDR%SH`52zR%SFGqAl~~SD/2b7%%S@m`U2R%S>Q_%MR%S6|MEqR% !S2u}k_R%S.m&8DR%R^X.56~~R<.go;R%R1I2j?~~RS3?>6~~Rq@iqQ~~S/Cufd%%S1o1k6~~ #% [ 59] th_l3.amp !Q%%%%%%%Q6OramW]QH:,uNAeQZYiL%o/QnkbFbdjR.n.}qI-R2+V:7^6R4M}76Q_R6y+%ahRR:M*q&7RBnekD_FRD0Hd3N=RD-fcG9pRBkPy<8mRB=H6hAmR@\bpp*IR>y(MhE) !RA4+j\wUR`9~QJ5xR`yhdbm= !R`hk?{=`R^aFt_R%RZ_Y/yA,RTk6YN,_RN>/<`BTRFE}my,'R>Gw?LFiR6p~56DbR2[nWPjqR2e-nl~~ !R<]as=X@RDJNqmd5RHG(([u6RJj(RF0xRNeDRD422F\iRBeC'fezRD0yZQ?< !RH)Ugq,]RJB(i-NIRL`7+qV`RNDHk_M~RNHA9ntkRNXBxn=gRL]AJ6=2RJ}wD+_wRJ.W-mx^ #% [ 59] th_l3.phase !Rm`0d%%%S/tyo;R%S5*'l.%%S92x+@%%S=54X?~~SA//q)R%SCyO;zR%SG_Iv%%%SK:gVzR%SMeQrqR% !SQ-2)Q~~SSG8\m%%SU\OL2R%SWnqMzR%S[&gg2R%S]:%z)R%S_P=t_R%Sak,*qR%Se0g_)R%SgVLBc~~ !Sq4%ahR%SwA~JDR%S}6zV)R%T-__f_zRT-q:G{qRT/'>v57%T/5J^o;RT/An&0;RT/LT/DR%T/V+[U[% !T/^io+@%T/fnn8DRT/nIS}7%T/uJp:[%T/{WkK;RT1&=Bp2RT1(>0/DRT/~yjlVRT/r>DEqRT/`itg[% !T/Uuxx;RT/^,9';RT/hRM-VRT/rfLwDRT/|t[qzRT1,8)j@%T13VTKd%T18`3U2RT1=?2MzRT1OWj\DR !T1\Y=t_RT1m)C&DRT1~yw5wmT36HsN4hT3H9+Us@T3Yr'zb7T3kU`Uk6~~Sz=F+hR%Sz9p{I%%Sz4&,7%%Sz+w,7%%Sx{Y[MR%Sxo.z)R%Sx`Q-~~~SxOx?VR%Sx=Ft_R% !Sx)%MR%%Svlu>6~~SvU/`qR%Sv;iuVR%Stzs\DR%St^[IMR%St@{_R%Sl;f_zR%Sj62MzR%ShUhEqR%Sh/2b6~~Sf_tK;R%Sf4zf;R%SdcJDR%%Sd83Q.%% !Sbf}wm%%Sb;>{qR%S`h8,7%%S`92Z.%%S^aN4hR%S^-0p2R%S\P88DR%SZpruVR%SZ5X\DR%SXR\u-~~ !STjnXhR%SR*wXhR%SNN4D)R%SJ~GSDR%SH`52zR%SFGqAl~~SD/2b7%%S@m`U2R%S>Q_%MR%S6|MEqR% !S2u}k_R%S.m&8DR%R^X.56~~R<.go;R%R1I2j?~~RS3?>6~~Rq@iqQ~~S/Cufd%%S1o1k6~~ #% [ 59] th_m1.amp !Q%%%%%%%QXn]cwdvR0:9sU8}R6(Y9DIvR<+`{tY'RBHjp9NzRH|;Ok;rRPT+UbukRVGx+Jy2RXyy_hx+ !RZ-S[WoPRXI<}K,xRVSvZ1:[RTkk=-7fRTE't@/0RT6i^jVbRTDO^NIIRTd6X^N)RV<>oFp[RV}Fz5I^ !R\a=VR`_b:QxTRdPg9;<1Rnv_t|n}S.RQ1B8]S0,[CcV.S0QkqPTBS0g%Tz>/S0nKK-51S0eesc9K !S0Mf66brS0(|Ca[1S.V=57b:Rtt=]A}7Rj;>v@riR^sR(CDBRV9{WIT-`']Sm%T-j_:G{rT-u0x;R%SL{z%MR%SL^]';R%SL@7]c~~SJz`4hR% !SHoIahR%SH%\P_R%SF,=+hR%SD%pBc~~SBHljhR%SB(E0d%%S@\[~-~~S@/-%v%%S>TLRu~~S=PRJzHp;0HRHxJPRG'RFYzu/8DRD/cyl\YR@\cf8~&R>/}W8{YR:]:^UyGR84+N5P/R4iFv9?2 !Q|7g\LiYQr8h'.8MR0@f,g'|R6e-<1.MR>H~/i6FRD=CZap[RJ:Y&KohRNu`qt@H7:*RRuFG.ckRNcNO~r)RHxl1e[~RBl0)m13Ruw&'1GRBW*;eL[RDI:p[:sRDXM%my_RD+.t2h_RB600&0vR@Nco8B:R@.k.,miR@btSWu9 !RD]}*.>iRFv`8GT_RJ?-oFAzRL/lCo.hRL@~`jIiRL[4sC}aRJnqs(IlRJCY1;PNRH[^+,)p #% [ 59] th_m2.phase !S5Wl^[%%S9d4H-~~S=\\m%%%SAA1s?~~SCkC2Q~~SG&_R%T-c'E8m%T-tQM5_RT/+;h=hRT/9^,od%T/EeH2)RT/O\9WqRT/Ww-%v% !T/_352zRT/ec/\m%T/khIu~~T/q=Ywm%T/u~9h)RT/yKc6.%T/zPo?VRT/w(=L2RT/lf}SDRT/^)aH.% !T/PkX7v%T/WMv))RT/aH&dv%T/k?zV)RT/tzw`qRT/}gtSDRT1*c%-.%T1/^)~VRT144`H~~T1FI^Rv% !T1SDz-VRT1cn^Jm%T1udd`y[T3-4>dEIT3?6WwXhT3PkSOL3T3bZF5*rT3s3_=hRT5)E_=hR #% [ 59] th_m2.caps !SzG7mu~~SzE~NH~~SzBKd%%%Sz_R%Sv[el~~~SvB03I%%Sv'+@%%%StdW8m%%StFhR%%%St'_1Z~~Sra>k_R%Sr?hf;R% !Sp.@U[%%Sn:zZ-~~Sl?crqR%Sj:PO@%%ShZM5_R%Sh3_=hR%Sfd?fd%%Sf9;-VR%SdgCwDR%Sd;^{H~~ !Sbiz%MR%Sb=b&l~~S`j+hR%%S`:TSm%%S^bRz)R%S^-v-.%%S\Pk;)R%SZqD^2R%SZ5}*qR%SXS'C[%% !STkC{H~~SR+WuVR%SNNr@u~~SJ~zV)R%SH`RADR%SFGt{qR%SD/+H.%%S@mY;)R%S>Qb_R%%S6|Q%v%% !S2uvQVR%S.l|X?~~R^X3ji_tKRBy3CnL[RFtVYSS, !RH\?Y|FuRHB.?Og?RFHpWjr9RD3%f44B^E5+`R:s[a)+yR8Hr>O@%R4yiCfkdR2S84[d5 !Q`i?,x(sQbf?I,jqR0:`=sDrR6q,H\XhR>`.Yp]pRDgqAHVRRJt{(TLSRP^^y`0/DRR2_&,+C;R21fTmH_ !R87},pO)%USdvR@Z,;U:[RBG{VMs8RBX>K'MfRB.nQZAfR@=+2Z1_R>VYKxg;R>5MkhQ6R>f8Ih|j !RB[z6u<&RDoK2KSmRH1_Gq&ORH~SOdMR%SK8Kl-~~SKuK3H~~SMDy>_R%SMe)j@%% !SO/*4hR%SO_C&DR%SQCo;R%%SS4KCZ~~SU.Y_Q~~SW0=xc~~SY80;Q~~S[FU*I%%S][s3qR%S_{cB;R% !Sky;Iv%%SyN-NI%%T-^qW;)RT/ZVG*qRT/bT,.v% !T/iP_vMRT/onF/m%T/uhf;R%T/{=v=@%T1&(62)RT1)Vyc.%T1*uZ2)RT1()e(2RT/xWB/DRT/ipEy[% !T/ZRF7v%T/`Pg6VRT/j4}WI%T/t%]?VRT/}Y@ADRT1,;C&DRT12vy:[%T17Toh)RT1;d]c~~T1M`-NI% !T1ZAtcVRT1jG0Sm%T1|9VeL[T33X6[EIT3E@{O+hT3Vuw&y3T3hYoY*rT3xsZB;RT5.~@9;R #% [ 59] th_m3.caps !SzG7mu~~SzE~NH~~SzBKd%%%Sz_R%Sv[el~~~SvB03I%%Sv'+@%%%StdW8m%%StFhR%%%St'_1Z~~Sra>k_R%Sr?hf;R% !Sp.@U[%%Sn:zZ-~~Sl?crqR%Sj:PO@%%ShZM5_R%Sh3_=hR%Sfd?fd%%Sf9;-VR%SdgCwDR%Sd;^{H~~ !Sbiz%MR%Sb=b&l~~S`j+hR%%S`:TSm%%S^bRz)R%S^-v-.%%S\Pk;)R%SZqD^2R%SZ5}*qR%SXS'C[%% !STkC{H~~SR+WuVR%SNNr@u~~SJ~zV)R%SH`RADR%SFGt{qR%SD/+H.%%S@mY;)R%S>Qb_R%%S6|Q%v%% !S2uvQVR%S.l|X?~~R^XaL{IR2hdFFP7R8)C@ZNIR:O4*-)zR:r_+:%VR:?4A\m%R6pdNOP7R2fS~b(oQzT9)VU;QL+pn|e< !R0/,:y?NR86MR@mY;)R%R@Z;1??oR>f(83eSRos`ZQ_ !RD.]g{w`RFgZ]L^yRJB1]L>QRLAC8VaSRLR|X\l[RLu7n.zrRL6%|'ZTRJKI3e9XRH4>1aro #% [ 59] th_m4.phase !Rb{H~~~~R8-.%%%%R;Sm%%%%Rag2Q~~~S-pk7%%%S1KCZ~~~S3lNH~~~S5yBd%%%S7rDzR%%S9b*qQ~~ !S;T7MQ~~S=PO@%%%S?WK;R%Sr*XH-~~SnuO\DR%Slqt&m%%Sjw9|@%%Sh~Q:2R%Sh(.MR%%Sb-m56~~ !S^N52zR%SZr:o;R%SX:bcVR%SToZb_R%SRP?vv%%SP.\,7%%SLt?.%%%SJdY_R%%SHQtO?~~ #% [ 59] th_m5.amp !Q%%%%%%%R.`6PE-.R8X}|ST~RD(jX\f(RPDK:S_+R^iSDc7IRp@|;{`}S.^^IKRaS0M)t^kqS0z9P>4[8MRDnuRT:uBR@[Oxc~~R@K~gZFRR>\+/'&MR~4V\F0 !RDCIXuyHO)RLh@Vr8:RL|qJjftRNGowrsTRL_%Cdr6RJt&q*joRHZoP?3O #% [ 59] th_m5.phase !RT4hQ~~~Q@zQ~~~~RI~-~~~~Rom%%%%%S/RADR%%S3(&DQ~~S5E,_Q~~S7M-VR%%S9B+@%%%S;.12R%% !S;w(2R%%S=ps@%%%S?u:2Q~~SC(wDQ~~SE;MzQ~~SGP&m%%%SIdY_R%%SKwy2Q~~SO.MQ~~~SQ;f;R%% !SWHJDR%%S[4lVQ~~S]^o;Q~~S_x;R%%%Sc5;)R%%Sc~zzQ~~SeI%%%%%SeF3qR%%ScX+hR%%SSJ8DQ~~ !SM?2)R%%SK|lVR%%SM03H~~~SMQF@%%%SO'3I%%%SOaq%MR%SQLjlVR%SSDd]c~~SU[8L[%%S[wm%% !S}HEuVR%T-VW*];RT-bi`uVRT-oON}_RT-|44`I%T//.God%T/K;R%Sr*XH-~~SnuO\DR%Slqt&m%%Sjw9|@%%Sh~Q:2R%Sh(.MR%%Sb-m56~~ !S^N52zR%SZr:o;R%SX:bcVR%SToZb_R%SRP?vv%%SP.\,7%%SLt?.%%%SJdY_R%%SHQtO?~~ ifeffit-1.2.11d/src/fefftab/84.dat0000755000175000017500000003577010771740460015506 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] po.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] po_k.amp !Q%%%%%%%R>NJQ7m-RVa<2USiRnG@ZyI~S.gILD/YS0h9hQ36S2_GkYC[S4Kyoq`oS6,|>6Y-S6\9F;ae !S8%iGP:XS8=j.u^xS8J}%T%'S8N,x|ggS8HMHxt[S8;]tBFSS8(wIEz8S6l?rI/8S6Sj9/7GS6:l}]Ra !S4U0lZ'qS46\,P%KS2TO4375S4`o8rD2S8~d6|ROS<5EQ^]6S<':6thnS:%))VZRZP41%\uRR;zpBFqRJqA8E{9RF_~GCA,RF-,dEI%RH9f3up& !RRn5]W([RZ3efY=,RXwWK=P[RV3W<([%RRM`T^yGRNX-N4YxRJ@(?CNrRFY3IHeuRFF4@b{rRJ|xfwL[ !RPRhxya,RT?7xhrIRV,8_XA]RVRxz4^GRTocID.ERT6;Mf,xRPgs9^t=RNA(ihvvRLx%'[u~~S6|jT;R% !S4{EiH~~S462MzR%S2;*@u~~S0AhV)R%S.m?fc~~RzoK?VR%RpgTx;R%Rfzg*I%%R^?{iH~~RT_O|hR% !RJv>SDR%RB*zIv%%R8(6zzR%Qp{reDR%QE{_=hR%R3O]3I%%R?Pz9d%%RKhNiH~~RY:A,7%%ReuO7u~~ !S/%I))R%S1fHNH~~S5GDj@%%S7wkG7%%S;C=p[%%S=aSq)R%S?}Qfd%%SC@,?-~~SE\J}7%%SM<9[v%% !SQIv%%%%SUTBl-~~SYT=T;R%S]DY?.%%Sa0HNH~~ScpUBd%%SgKNU2R%Si}5k_R%SmR6nl~~ #% [ 59] po.rep !S>%?fd%%S>%riI%%S>'T7MR%S>*Adv%%S>.7]d%%S>39[u~~S>9G_R%%S>@^.MR%S>I&\l~~S>RXpZ~~ !S>]=/m%%S>i-NH~~S>v12Q~~S@*@v%%%S@9d%%%%S@JwHVR% !SD-MZ.%%SDdg&DR%SFLdel~~SH4/HVR%SHfFp[%%SJ?xx;R%SJvPg[%%SLU9G_R%SN6/8DR%SNr}_Q~~ !SPWb.v%%SR>/@MR%ST&-%v%%STiP?-~~SVT0WqR%SX?vu~~~SZ,dEI%%SZtK_zR%S\b{qQ~~S^R9_zR% !SbX07MR%Sfa5*qR%SjlYC2R%SnyxWqR%St.cF?~~Sx>]t7%%S|OUs@%%T.X(.MR%T.kpRu~~T0M\Td%% !T0u]l.%%T2CfC[%%T2krU2R%T4:,&m%%T4bFlVR%T60aX?~~T6X|D)R%T8'@iqR%T8Oboc~~ #% [ 59] po.lambda !RbKuJDR%RbM@~-~~RbQT+@%%RbXT_zR%RbbBh)R%RbnxCZ~~Rb~6RMR%Rd61:Z~~RdJhV)R%Rda{0d%% !Rd{adMR%Rf=ywDR%Rf\[57%%Rf}_Q~~~RhG,shR%RhllF?~~Rj:m]c~~Rje-%u~~Rl7b2zR%RlfY*qR% !RpNGG6~~Rrk7mu~~RvHLk6~~Rt|U*H~~Rv@&\m%%Rvv0CZ~~RxgC.MR%RzgB?VR%R|s1o;R%S.R|P6~~ !S.^{I%%%S.kaxc~~S.y%12R%S0,uF@%%S0;9c~~~S0J&0;R%S0Y7%%%%S0he(2R%S0xRY_R%S2.Y_Q~~ !S2WqvMR%S4(?rqR%S4Se@MR%S6%y_)R%S6Rj`I%%S8&4dMR%S8S}7%%%S:(9l-~~S:ViuVR%S>0+?~~~ !S@5BCZ~~SB;9c~~~SDAd--~~SFH\XhR%SHO}2zR%SJW];R%%SL_ZRMR%SNgq=hR%SPpCwDR% #% [ 59] po_l1.amp !Q%%%%%%%QDF=U*(7QbZRgP~cR.VuS|g,R2%OBIF)R4IG*gzSR6g+_W5WR8}r6[LcR<1sBV^3R>7%/NRA !R@1f&cWeR@{Wa}[)RB_tp|nYRD98[h9dRD`yy+J0RD~)s7v%RF8ygeTdRFKdU5nuRF_i(=p[RH%Hsgc. !RLmHNxG`RTJL9E-sR\,4l=eJh@5 !Rtx.+edRRh]tjvKtR\OA+][RRPa9pgeURF?wB)pkR<.- !RLW2gpTbRNz37VP.RPsdy7%%SDtfl-~~SDk\`qR%SD`(6VR%SDQ}G6~~SDAY2zR%SD.s3qR%SBt%~.%% !SB],wm%%SBD1[%%%SB)>{qR%S@f\@MR%S@H3`@QVR%S><~)zR%S_R%S0,,O@%%R~b|`H~~RrZI12R%RfPQB;R% !RZE,_Q~~RN8UwDR%RB(m9;R%R4n:k6~~QD-%QVR%R-uZzzR%R;HR))R%RG~VvMR%RUc{iI%%RcQ6-~~~ !S-sQJDR%S1Z%--~~S5;3];R%S7mB|?~~S;;vMQ~~S=]H)zR%S?{Kp2R%SC>Uk6~~SEZS`qR%SM:Ey[%% !SQI`0d%%SUSmIMR%SYSN];R%S]DR%%%%Sa0A4@%%Scp4T;R%SgKNU2R%Si}9Kc~~SmR+t_R% #% [ 59] po_l2.amp !Q%%%%%%%Q2tf)5%5Q@b\+x8\TJqNR2Ny8wfxR2W<5AuRR2Vs4I+PR2K1FhR%R22tOP(KR0e~VT5pR0.4Y@H_ !QLu21`otQP}u9B1kR238r.=@RBg&8BA4RR)6UlygR\%b's9TR`WHA(2RRbB@LU}'R`fj='N1R^/DY?.% !RXjoRY_RRR{>=2@~RLn`6gp*RFZIfw:GR@Fg~`*9R:5_t~>7R4);Ko1GQxB8x\GhQTa~\uvvQr7_t'T\ !R:4D)16WRBXN?b_RRFKXUv8MRFZWQ@9;RF+,g8gCRDrGtIRP:3\-;jRN7%%%Si*fWqR%Skjl2)R%SoKV9c~~Ss&a`H~~SuV?F@%%Sy&mmv%%S{KX`I%%S}kpwDR%T-[}r0d% !T/-KqEqRT12mN@v%T1NXp6VRT1[B>C2RT1cxP2zRT1m/Tc~~T1w/P;)RT3'VKx;RT31qE([%T3;^eTd% !T3Ds)Am%T3MFQnm%T3UGpwDRT3]0j+hRT3dnzj@%T3m2f_zRT3wN&XhRT5.+x?VRT5X,ShzRT7*n*4hR !T7I|t_R%T7YI6~~SfS>oc~~SfR2j?~~SfP43qR%SfMF`H~~SfIb{qR%SfD~2)R%Sf?>7%%%Sf8L6VR%Sf0FpZ~~ !Sf&}6~~~Sdv3}_R%SdiqvMR%Sd[{a@%%SdLI~.%%Sd;+xc~~Sd'{Q.%%Sblv--~~SbUr,_R%Sb\`qR%S^R6%v%%S\NDV)R%SZ`h5_R%SZ>|;zR%SXuF?~~~SXK?2)R%SVw>K;R%SVF3(Z~~STlm57%% !ST89|?~~SR]5&l~~SR(3eDR%SPMKx;R%SNs9Sl~~SN?RqzR%SLfAXhR%SL3Th)R%SJZo7MR%SJ((FhR% !SF[MQ~~~SD2=D)R%S@bWmMR%S><_R%S6Ms\DR%S4?vv%%%S22H>7%%R^%m--~~ !R6<}_Q~~R9TY*qR%R]sHvv%%S-WhZ-~~S12=D)R%S3dmQVR%S73z%MR%S9W4D)R%S;z6NH~~ #% [ 59] po_l3.amp !Q%%%%%%%Q4RawmmvQBwxF`WYQR1Nwpm^Q`/otk0/Qli:;Q6.Qx}IL|;VR.k%I(;CR0@|?sC;R0kvWH.n !R27?~\%fR2VTlKu&R2oWqbI9R4'%}PZ_R4/se6X0R4/T.D.ER2}Ak`eDR2c}GR0[:=DrI !QRE>O@%%QB4G0Fb'R0ZFPj'dR@wcb+&,RN~|+'\eRXm^&vL?R^@x|B5pR`.ymSr=R^Z|2yPtR\.*hZ.% !RVuFZ|X@RR8Sl>/eRL8iG7u6RF0pZZVRR@(ws9[-R8}+qu^[R2{8FV+TQxHbvH2rQTA7KXr]Qlf+tClo !R8^^^Au.R@r?)h^WRD\st_R%RDiWu~ZVRD;Q[>.vRBPMz2>|R@UcqD)aR>lC@UvCR>b;JI^6RD%7-t|1 !RHE-q.(;RL)`1WN+RN;`%c_nRNx`42SYRNh*'[%MRNYJ]LZ6RL_J0qM2RJZI85^?RHLr~R64 #% [ 59] po_l3.phase !S=GE4hR%SA\>&m%%SEmKt7%%SIz}C2R%SO*P?.%%SS0JP_R%SW2RIMR%S[/y2Q~~S_(o_zR%Saw=7v%% !SefWqQ~~SiQ7ADR%Sm6)V)R%SooZ>6~~SsI-vv%%Suw-nl~~SyE5WI%%S{fdmv%%T-RDe(2RT-]Pe}7% !T-}s]WqRT1CcK3I%T1Z/`M)RT1d^]p2RT1lZRqzRT1uR))R%T3%?jD)RT3/X1o;RT39h0l.%T3CJW0d% !T3LSzj@%T3Tz/4@%T3\wn8DRT3dUm9;RT3l9}wm%T3tLo_zRT3~YUFhRT54^JHVRT5\JU.MRT70T%9;R !T7PczzR%T7`0C6VRT7l%)MzRT7uaOlVRT7}}lNI%T9+CEU2RT90zWX7v !T9Nlx/DRT9^)tdiqT9nI(|7vT9~]@EI%T;5G|;zRT;E1sdMRT;V*h~VRT;f'\@MRT;u(nL[% #% [ 59] po_l3.caps !SfSc>6~~SfS>oc~~SfR2j?~~SfP43qR%SfMF`H~~SfIb{qR%SfD~2)R%Sf?>7%%%Sf8L6VR%Sf0FpZ~~ !Sf&}6~~~Sdv3}_R%SdiqvMR%Sd[{a@%%SdLI~.%%Sd;+xc~~Sd'{Q.%%Sblv--~~SbUr,_R%Sb\`qR%S^R6%v%%S\NDV)R%SZ`h5_R%SZ>|;zR%SXuF?~~~SXK?2)R%SVw>K;R%SVF3(Z~~STlm57%% !ST89|?~~SR]5&l~~SR(3eDR%SPMKx;R%SNs9Sl~~SN?RqzR%SLfAXhR%SL3Th)R%SJZo7MR%SJ((FhR% !SF[MQ~~~SD2=D)R%S@bWmMR%S><_R%S6Ms\DR%S4?vv%%%S22H>7%%R^%m--~~ !R6<}_Q~~R9TY*qR%R]sHvv%%S-WhZ-~~S12=D)R%S3dmQVR%S73z%MR%S9W4D)R%S;z6NH~~ #% [ 59] po_m1.amp !Q%%%%%%%Q:@c95&mQN\]KQjhQbxq=_GtQx:z0f]xR02xLO;zR25I>eXhR48/XW%ER6:L{^s@R8<4xo`i !R:=6:IoTR<>Q(cs@Mpc5?R@BTyhf`RBEGR12RRDKH{u*iRFThLkT3RHdxZH(gRJ|l@wy{RNDm:M'P !RXC)GV9@R`&34T,xRd]-c-9hR~W*{1RvS00b`Cu%S0K&/>3xS0H05jM\S02>pEPkS.ikJSu.RzoKRNnBj}(&RDlV;EmrR<1Y:Fpm1{QlQbn9A}R2NIO1<9 !R@rllMZ.RJR*)|7-RN8xUo;RRN/HyWpcRL:3LQ6wRJ,}T2^/RFv%E_~~RD~^oY4BRDal`BK*RH2=c(;k !RL1-x96:RNKF=_q+RPG``RqORPgM|;UBRPB7Os9xRNwQF2zYRL`)|AO?~~SAoL.MR%SE8d-.%%SGTe\m%%SIi:o;R%SKuhAl~~SMydel~~SOtaxd%%SQf,wl~~SSMXt_R% !SU~?%u~~SWZLFhR%SY'(*H~~SY\yVzR%S[<|p[%%S]/f/DR%S_.Y;)R%Sa2Jdu~~Sc5`9[v%Se4<'l.% !Sg,O&P_RSgw?2rI%Sia@X'd%SkD'2Z.%Skwa}WI%SmAf(*I%Sm@L0+@%Si^uB;R%S_z6NH~~S]KqX+hR !S_(&hzR%SaJiDzR%Scomel~~Sg003H~~Si>g6VR%SkBnTc~~Sm7aD)R%Smsc:2R%SoLtSDR%Ssk7%%%% !SwWJ\l~~S{a[UZ~~T-Yrr@v%T-l~i0d%T/'&P;)RT/9gxWqRT/LwOL2RT/^[[ahRT/oLp*I% #% [ 59] po_m1.caps !SF?k{qR%SF>J(2R%SF::[%%%SF3A@MR%SF)alVR%SDwM%MR%SDhd9;R%SDWQ.%%%SDC|7v%%SD.nq)R%%S>Jp_)R%S>%?fd%%SUk6~~SEZP&m%%SM:>_Q~~ !SQIcjhR%SUSq)Q~~SYSN];R%S]DU_)R%Sa0HNH~~Scp84@%%SgKR56~~Si}=+hR%SmR+t_R% #% [ 59] po_m2.amp !Q%%%%%%%Q0o{@F;VQ<_4ePM>QHJ\mLEzQT0=1Bk?Q^j9e%H_Qj~>Qt7pFdq{R0Q*HW=\SDQ~~S_/hzR%%Sauc)zR% !Se\+lVR%Si<1wDR%SkpNM)R%SoD?jhR%Sqk?.%%%Su12vMR%SwHDb6~~SyV/4?~~S{YC{I%%S}NmMR%% !T-XM_EqRS}(7iqR%Sw5^c.%%Su1/wm%T/+%2EqRT/7*~NI%T/ZTW([%T1?&*Y7% !T1\Fbod%T1j'JP_RT1u%8(2RT1~9Uo;RT3,8C>_RT337NeDRT38R9_zRT3;CG2zRT3_R%Sdgo_zR%SdZ@9;R%SdK/DQ~~Sd:2-VR%Sd'A4?~~SblXxc~~SbUnL[%%Sb='d%%% !S`?KWqR%S^S712R%S\OL{I%%SZdDZ-~~SZCGWI%%SXyk[MR%SXOC_)R%SVzq5_R%SVI=dMR%SToSHVR% !ST:]';R%SR_:wDR%SR)z-VR%SPN|L2R%SNtT3H~~SN@[=?~~SLg7iqR%SL48dv%%SJ[DZ-~~SJ(I56~~ !SF[\,6~~SD2D^2R%S@bfG_R%S>J-J4-kQJW=4`I%QV]hvj`IQb]V.;x+QnNYKjt`Qz/VMbLsR.iDp/*5R0>?oi&} !R0jt !RNyRzW*]RJqK{kdjRFLw~7'pR@vJ)~D>RTK-BR:~la-4,R>Shm~k|R>b{|L2RR>AB+@%%RR:an{}iDR:b{g6=eR>ri:D:S !RD/.)M+jRFnD'l5?RJ+BS~A:RJt)ZgjZRJyArOmERJ{0^xDvRJ8\q/ccRHE%mz9URFDspv)1 #% [ 59] po_m3.phase !S?*2Am%%SC>1Bc~~SGM~VQ~~SKXR]d%%SO^T/DR%SS_AHVR%SW[F7u~~S[REI%%%S_D%MQ~~Sc/yVzR% !Sepfh)R%SiQ7ADR%Sm+Sq)R%SoYi];R%Ss&hzQ~~SuF8@MR%Sw]J,6~~SyjEa?~~S{lG.u~~S}`];R%% !T-YoY*qRS}^P*qR%SyL9l-~~SwE=`H~~SwC%U[%%SwrDV)R%SybG[MR%S{_kSDR%S}a+D)R%T-Ws3M)R !T-`ARahRT-h3viqRT-oSp_)RT-vScb_RT-}@:*I%T/*=v=@%T/24A8DRT/=_R%Sdgo_zR%SdZ@9;R%SdK/DQ~~Sd:2-VR%Sd'A4?~~SblXxc~~SbUnL[%%Sb='d%%% !S`?KWqR%S^S712R%S\OL{I%%SZdDZ-~~SZCGWI%%SXyk[MR%SXOC_)R%SVzq5_R%SVI=dMR%SToSHVR% !ST:]';R%SR_:wDR%SR)z-VR%SPN|L2R%SNtT3H~~SN@[=?~~SLg7iqR%SL48dv%%SJ[DZ-~~SJ(I56~~ !SF[\,6~~SD2D^2R%S@bfG_R%S>C1zlBQr3K[tUkQ|zv0gbdR.}vM2>|R0]=>,{) !R2E'b5dER481'jmER6;Hs0>hR8PXv@8MR:wpuO%bR>X-*aG?RBF*Cz.ERF?y3H6.RJ@NJ,bhRN=5k%57 !RV~Dx}A0RXf?)@57RR_ytgiYRVPh|:FDRR,W2pN)RHB`xJWzR>ekPA0;R:DP;U:[R:iBzfX`R>D3G:,' !R@ce&S:kRBA*qOn4RB4EbN|qR@K;(tZ_R>=`dd57R:qEIt-cR8n.E@(% !RDQ;%p:ARHU;Ym[xRJw]mgOvRLt?OHZORLuj>-N|RLtg4\@QRL?01mT{RJFv:|)BRH'3a1aj #% [ 59] po_m4.phase !S2>NQ.%%RvTKd%%%RJ\P_Q~~Q_?VR%%%RU3qR%%%S-S-JDR%S1Z(g2R%S5__j@%%S9cxSl~~S=e[~.%% !SAcPod%%SE[))R%%SIIQ2)R%SM+YSDR%SOY8\m%%SQvuZVR%SU)EM)R%SU}P.v%%SWdtk_R%SY8y2Q~~ !SYQb;)R%SWt+`I%%SW(ruVR%SW7f[u~~SWP2V)R%SYKj+hR%S]?S`qR%Sc+_5_R%SgngBc~~SkcCNqR% !SmtCVzR%So`B/DR%Sq7>wl~~Sq\RahR%Sq~%--~~SsI]?VR%Ss|jxc~~Sumz)R%%Sy-cNI%%S}(Q>7%% !T-x\RahRT/4ptSDRT/@4H.%%T/F6iy[%T/IA*}_RT/KA0_zRT/L10+@%T/J@%IMRT/FF+hR%T/DV)R%% !T/I}7mv%T/RyPO@%T/],66.%T/gWSTd%T/s8w0;RT/}nmmv%T1/{z%MRT15k_R%Sxm.ADR% #% [ 59] po_m5.amp !Q%%%%%%%Q2nd5wt?Q@^M'8klQNNa_)}hQ\@mh`CCQj7t~GayQx92)%3~R.q&4xQkR0[([?[jR2Ib|iS0 !R4?WH~=HR6=Qw.zrR8FzdR(;R:\{fA}7R>%|x`DzR@X-u*tCRD;8U[_BRH)..+P7RJwZ||hRRNh{xqX, !RX4?[NS0RXgdywp;RRUI1Z9hRVRH%`YG(KR>NhGshRR:@8+*y[R:x>)dd~R>[0tLs@ !R@{Nwb9LRBUt~y}'RBELZ-DbR@XOL.q{R>Gw5Z^[R:yqPFp7R8Cu39y*R4eakg:7R284QQ^[R052qAA< !R2GuZD=iR8TU<.{=R}DhN%[ !RDgR]D+>RHpA1Tv>ERN>{[CN)RN>|g`2>RL_C/3+6RJdKY9KdRHCL|?<` #% [ 59] po_m5.phase !Rd7=@%%%R8'p2Q~~R=P*qR%%RgDrI%%%S/EA@MR%S3B]/DR%S7:Yk_R%S;-|X@%%S=vG&l~~SA_iQ-~~ !SECeTd%%SGzzR%%%SKPc2)R%SMwf/DR%SQ9ys?~~SSJ;~VR%SULZZVR%SW@:*H~~SW}5k_R%SYNmMR%% !SYfg_)R%SY1WiI%%SWBG;)R%SWT,.u~~SWn/q)R%SYlXT;R%S]fHrqR%ScY%Y_R%Si@+P6~~Sm08`qR% !So=XdMR%Sq'U&DR%SqW>O?~~Sq{>shR%SsA3Q-~~Sse3uVR%Su6~~Sw*];R%%Sy@f[v%%S}7+P7%% !T-z3&XhRT/6kpwDRT/B2~VR%T/G}21[%T/JqXt_RT/LfdIMRT/MVcnm%T/KpS@MRT/Gry[%%T/F%=@%% !T/Km:*I%T/TiRem%T/^yrQ.%T/ik~>7%T/uBMf;RT1&,x[v%T12SY2zRT1>a,2zRT1JYLNqR #% [ 59] po_m5.caps !SxB[-.%%SxBHrqR%SxAsP6~~Sx@}?-~~Sx?f?VR%Sx>5k_R%Sxm.ADR% ifeffit-1.2.11d/src/fefftab/68.dat0000755000175000017500000003577010771740460015510 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] er.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] er_k.amp !Q%%%%%%%R02Ka\{vR:%&`t,wRB>)Cbr1RHj/Wr@vRNC?VkSERPvuR-K3RRT1jvi)RRGRF[ouP5G !RB}+IRq2R@p?Oe-oRDMS-RLg^s4C;RJ.|TekGRF%k~XmjR@b8H|If #% [ 59] er_k.phase !S-~e,7%%S37A*}_RS7B3(6VRS;E,I]d%S??hh+T;SC1jpWD{SEtNlm57SIRx*uVRSM%gt:xXSOE6rIIN !SQTuL4T[MRS_?VQ~~~Sa_8,6~~Sc/4?~~~Sc2y>_R%ScVv))R%SeAl6-~~SgGnP_R%Si^[mv%%Sk~{DzR% !SoJ?:2R%Sqq/}7%%Su<%iqR%Sw]cZVR%SyyO;zR%S}5?-~~~T-U,hIv%T-^oFL2RT-gnxC[%T-p,RU[% !T/'b]+@%T/5`S0;RT/@680;RT/F7QVR%T/Gj6>7%T/I?:{I%T/Mt9';RT/TVw`qRT/\-=lVR%S>J+H-~~ !S@TH)zR%SBDYcVR%SBy6VQ~~SDT\@MR%SF3STd%%SFnqMzR%SHRQ2)R%SJ8:FhR%SJytwm%%SLc:VzR% !SNN0d%%%SP:AP_R%SR'a|hR%SRp)Z.%%ST_E([%%SVOKh)R%SX@6JDR%SZ1WiH~~SZ}NQ-~~S\op{I%% !S`|R9;R%Sf12-VR%SjA;5_R%SnRPC2R%SrdX'c~~SvwCc.%%S|0bG7%%T.U3@u~~T.i3yZ~~T0KDIu~~ !T0s[UZ~~T2Ara?~~T2j7--~~T48URv%%T4`wXhR%T6/?^[%%T6WeDR%%T8&1*H~~T8NVj?~~ #% [ 59] er.lambda !S.v_f;R%S.w*4hR%S.xA4@%%S.zG*qR%S.};rI%%S0&uvu~~S0+A8DR%S00JP_R%S06;EqR%S0zGshR%S@wUwDR%SBv34hR%SDv'Kc~~SFv~.%%%SHxp{H~~SJ{Rel~~SL~yg2R%ST2iuVR% !SX>QB;R%S\Kt7%%%S`Z_%MR%Sdj]3I%%Sh{`,_R%Sn3`Q-~~SrFOlVR%SvZ*DzR%SznBt7%% #% [ 59] er_l1.amp !Q%%%%%%%QjM7rFIfR2ny%,jqR:+4wOW-R@01^,&mRD{`JohrRJVL{WY7RNs*PxRZ_'[dRER\,E&KRbYRQ?v-Rd*Xy3VjRd;rRbOtn,7%R`Z/Ob&mR^QuL,sDR\CR`X*z !RV@4c;|TRPJdv+WQRJTvN_2nRF+cpb0TRBxo\X1oRDL(6lzlRFvP;KEZRJZQGD(cRN:mK]TURVKZAg7j !RX>rEfSqRX%7)07\RT}:;-yrRRN-U{FnRN|b@2ShzR%SczNDzR%Se_AHVR%SgIADR%%Si?7%T1F1z5_RT1Y}]t7%T1mk@em%T3'[U6VRT3:&wTd%T3M9&(2RT3_PUk7%T3oc=H.% #% [ 59] er_l1.caps !RNpVzR%%RNdTG_R%RN@S}6~~RL^vU[%%RJfF'd%%RHW^*I%%RF3Znl~~RBUDf;R%R>cs;zR%R:`756~~ !R6K,.v%%R2%=?~~~Qj(g{I%%Q2=|hR%%QSSQF%d94XdQNB-A%{aQTwQ}^TTQZirn4G?Q^n2ixNzQb)9<=;{Qb:%Z,R1 !Q`:`aq7bQ\w(ED&aQbXZOS[5Q|oaL)hbR21Ww}7%R2}jafW)R2m5k^(kR2-an/xDR05>zL_rQz,UXAd- !QP~LkQ:{QpsOj?.nR2;7F]mfR6fjEjjyR<4{L.y;R@G)TJ[ZRDOG/KG_RH46UTSmRJT?f_RPf}`RiMRPS`W\q*RP,I>Dj@RNPo-B;RRLm?h9k? !RHvd@|[1RD~a,S'DR@u'`sQCRD[PsVapRHT9:ZQmRR;<^P@f !RTROyt>yRT_,'B3|RRw/qN:hRP`7%C_vRNIez5W/RJ_.j)sFRHCCF(|-RDz-Tt&[RB;)5y&E #% [ 59] er_l2.phase !RtNqQ~~~RHdahQ~~QW[MR%%%RO@=?~~~RqNU2R%%S/HHB;R%S1i'G_R%S3vK+?~~S5kx7MR%S7@vIMR% !S7<7Y_R%S572j?~~S/fE];R%R[i([%%%R-X+hQ~~R:M%MR%%RHQ^Z~~~RJZNH~~~RDQnm%%%R6q9c~~~ !Ru`}_R%%S56~6.%%S9E+'d%%S;d|P6~~S=n6fc~~S?tv~-~~SAx*Q-~~SC~\4@%%SG.B3I%%SI<_b7%% !SKN-rqR%SM`iI%%%SOqHb_R%SQ~Z2)R%SU+R]d%%SW-/\m%%SY(\8DR%SYy?)zR%S[k*qR%%S]Wn`qR% !Sa<`3y[%ScWXwP_RSeJpq=hRSegk-3sGcVRSeII,cVRSepc.%%%SgMc%u~~Skn^Jm%% !SoXsL2R%SsLk[MR%Sw;pFhR%S{)9d%%%S}u/\m%%T-`v`U2R%S>K>g[%%SvY_R%S0_LBd%% !Rx?EQ-~~R\IXL2R%RB\:FhR%QRbAy2R%R95^>_R%RQq2%MR%RkGt2zR%S-fr4hR%S/p,K;R%S5nHVR%% !S9iSTc~~S=T{uVR%SA3MrH~~SCkyo;R%SG@d~.%%SId8q)R%SM-c)zR%SOJ^Jl~~SQ_%))R% #% [ 59] er_l3.amp !Q%%%%%%%Q21l3A93Q>%,lo7QP}8Q^p5`3k'Qb}@]W[^Qf=/mLEzQfN:2gs@ !Qd@k(?rrQ`2Jlq2JQ`1J4s'dQrwFU09tR0RW8l~~R2IFs4-FR2C.qF&,R0fmHxp{R.t`RncMQtL>4@[b !QHKy_53iQduoG~q:R0\)lSMvR6+n*Ngj8v'pRBqT|'ysRFWu--DbRHy(]0fLRJv<*v(; !RLZ`df%9RN.7^i1.RNV49x;RRNrTtY~>RP+=7^aPRP*[HC]LRNpcv*VFRNIA3+wuRLn9RRU^\`?yRPDZSs/(RN1^Jf?HRJKuwXz%RH4Wo|;~RDm5Eg{[RB/[n5g( #% [ 59] er_l3.phase !RlEuVQ~~R@Xt_Q~~R1kg[%%%RWc2)Q~~R{+;zQ~~S/tFlVR%S3>)9c~~S5O?6.%%S7Ig&DR%S9%tG6~~ !S9-80;R%S7<3yZ~~S1v++hR%Rm&8DR%%R7b{qQ~~R2xd%%%%RD%ahQ~~RH&@MQ~~RBviqR%%R8M-VQ~~ !RsvUZ~~~S5lF?~~~S9|p6VR%S=>jL2R%S?DeL[%%SAIEmMR%SCK5&l~~SEQ(g2R%SGZGwl~~SIhZRMR% !SKz%))R%SO2U_)R%SQBy*H~~SSOf+?~~SUUzZ.%%SWVwv`U2R%S>K>g[%%SvY_R%S0_LBd%% !Rx?EQ-~~R\IXL2R%RB\:FhR%QRbAy2R%R95^>_R%RQq2%MR%RkGt2zR%S-fr4hR%S/p,K;R%S5nHVR%% !S9iSTc~~S=T{uVR%SA3MrH~~SCkyo;R%SG@d~.%%SId8q)R%SM-c)zR%SOJ^Jl~~SQ_%))R% #% [ 59] er_m1.amp !Q%%%%%%%QZ4aMBy*R08_2Iv%R4kfUlC*R:@CGB}xR>i~5+)fRD0o5G[MRHIB2T=0RLV/B/@rRPU_Rv_B !RTKup<8mRXK)A'h)R^bw8mB3R|iviqR%S.jz)6`]RfvOXxRZj0jjL{R\:~G=P7R\*k:wp;RZk-QgDBRZYd@LqbRZID&Pn,RZ?Q*/,7RZBfZrbx !RZZS+{QRR\-BdB3IR\j>Po)bR^Ci}bk;R^f&^NM*R^f{V*2BR^H[3vEIR\fz~x(*RZv>_t~>RX{Un0uo !RTKh,qmVRNxZn[RERJ?Xa%aiRF&g~wGhRBy?ayDBRDGC.`:5RFiu4EPURJH/O^gWRL}n>r\MRV)GEIaS !RVvv2Hw+RV_OB&{V[W9RJpqAW^]RH>Zw7~KRDGtL'PWR@8bYRU[ #% [ 59] er_m1.phase !RK'5&l~~Rw,7IMR%S193EDzRS5;V\Td%S95cGwm%S='Z(Bd%S?k4ft7%SCLM.iqRSG%vEmMRSIREimMR !SKz4DrI%SOHU|\DRSQ}ux:>_SUSCdW8mSOxc9&L[SQsZu>7%SS~&@MR%SUv?0';RSWbk|`I%SYG*TC[% !S]%+q%MRS_*>21[%Sa/N];R%Sa~'x;R%ScfcZVR%SePMb6~~Sg=;1[%%Si47QVR%Sk7:*I%%SmF}2zR% !So`,;)R%Sq}Z^Z~~Su@7%%RH05oc~~RDM_EqR%R@W]_zR%RHTt6~~QG[(:Z~~R-yTSl~~R5@]c~~~R;s~jhR%RCa?6-~~RKdndu~~ !Ri\@))R%R}^x3H~~S-pv12R%S/52zR%%S/]_zQ~~S14v=@%%S1m/Td%%S3Pi8l~~S58c>7%%S5}o?VR% !S7k21[%%S9Yx7MR%S;I=?~~~S=8XhQ~~S?''_zR%S?n9WqR%SAY[MR%%SCBp2R%%SE)lfd%%SEh>{qR% !SIF}2zR%SKuGSDR%SOEMrI%%SQoqEqR%SU@|P7%%SWiviqR%S[2X+hR%S]L[%%%%S_^XX?~~Sg*-)zR% !Sk9h)Q~~So4}{qR%Ss'fKd%%SuqlB;R%SyTU&DR%S}._Am%%T-X(.MR%T-e:FhR%T-qe(2R% #% [ 59] er_m2.amp !Q%%%%%%%Q6hJj%=@QH=&oWEiQXEinvemQfxjO('3Qt{aoauNR.`WT-fdR0@wG`@vR0}pRvR8FIu;xtR@AXK36kR^tjy0^CRb)'yFolRBeNWh2%R:EcC,z^R69})+/mR2hz>[j`R0RgUP5l !QTQgn&c>R@jb[p0PRBaOv>HJ !RDBs(AIERDpSyuX0RF?4zwh2RF_HPNThRFwi@']xRF}hii31RFr_lIU[RFWA__[fRF/Zfg_)RD[GyO4` !RB68/9_2R>pq7R/R:?s1.9-RQ !RPitSm'wRR0ncFf^RPd(n}g/RNc7h>+`RL_2.,B&RJ,E5pwERFv^''Z0RDZk6_OFR@y2:*c\ #% [ 59] er_m2.phase !Rz(Rv%%%RNA}7%%%PHVQ~~~~RIGK;R%%RkB;Q~~~S/*K';R%S1JBOhR%S3YNuVR%S5Un(2R%S7;tK;R% !S7^sdMR%S7X'd%%%S5g.MQ~~S/zq~VR%RVMEqQ~~S0*52zR%S0q16VR%S2.56~~~S20IahR%S2*gFhR% !S2X8du~~S:g1x|@%SBLw566.SBT)%sjTSB([V7ahS@?e_9d%S>R1pNqRS<[v%%%%S:_U(FhRS8[_xOhR !S6R@G&m%S4Eolvv%S2:7iqR%S01LCRv%Rx-NI%%%RdEqQ~~~RR*qR%SNyNqQ~~SNlNmMR%SN]HrqR%SNLG{qR%SN9SHVR% !SL~yg2R%SLhkwl~~SLQ1:Z~~SL8'CZ~~SJw\l~~~SJ[s|hR%SJ>t2zR%SHzYcVR%SHZw@MR%SH9r}_R% !SDye0;R%SD.-vu~~SBiP?-~~SBPnP_R%SB3;^2R%S@kHJDR%S@F)f;R%S>w^&DR%S>L1>_R%SW6kR4}XUy0tR2d-RFySR0[[2EqR !Q^&WDnp;QL0wkz9dQZKvD]&MQ|i*D[tGR2MrH=H.R6PjnJ4@R:Iwy,a0R>%5G(JmR@;\N'a4RB0B*TG; !RBi\^U%VRD:|EhZ.RDaQ|893RF%%jEl:RF;<'mW9RF>xOR]dRF2@C{[9RDoh}q+yRDGTWW<)RBs>:,&m !R@P6j2VrR>6%S%emR:m1:KRlR8SCLtU5R8(&E%xLR8ohoeV|R.u~~~S.b/dv%%S0_:.MR%S2'v9;R%S23[]c~~S26q9c~~ !S2z38m%%S8V;Al~~S>T/DQ~~S@8xh)R%S@+=>k_RS>QH(g2RSK;R%Rua~jhR%RwV,C2R%S-YcYk;*S/7PUFhRS3WYj'd% !S7ALtSDRS;7rA@MRS?'`STd%SAq(n(2RSEe|p6VRSIK^S.9*qR%SNyNqQ~~SNlNmMR%SN]HrqR%SNLG{qR%SN9SHVR% !SL~yg2R%SLhkwl~~SLQ1:Z~~SL8'CZ~~SJw\l~~~SJ[s|hR%SJ>t2zR%SHzYcVR%SHZw@MR%SH9r}_R% !SDye0;R%SD.-vu~~SBiP?-~~SBPnP_R%SB3;^2R%S@kHJDR%S@F)f;R%S>w^&DR%S>L1>_R%S\zdY\ZRJ%NhArORP';n@@h !RTlC=yDBR\=\;Sb^Rn<]9'YHS6O&b\klS:|7J5pSS2K21[R@?IWxzbR@P3E-\}R@nVY0Sm !RB-vh5c2RB4J_xHNRB,RC,RVR@x/m1i5R@nSKcDbR@d997BXR@Zr)(EzR@I{}%57R@00^SopR>k>KWxl !RR4a`wp/@R2pO'nDaR4b|.J0&R8bhOH(vR`^RB,0Mx5SRLGZ*zTp !RP(nkUP{RPc)0}tuRPG6{DzRRNOTP\*vRLSs8:+JRH|s]qR|RFokG.HmRDk'n9.aRBSn*@q] #% [ 59] er_m4.phase !S0(P*qR%R^Td%%%%R62)R%%%R9P_R%%%RY>7%%%%Rkvv%%%%RK4@%%%%S:R'Kd%%S@R|P7%%S>xu%u~~ !S<[JK;R%%S8AhzQ~~S6HB;R%%S4X7v%%%S2qIv%%% !S0@-.%%%R|G6~~~~Rbg2Q~~~RNd%%%%%R>:[%%%%QhhQ~~~~R1hR%%%%RGrqR%%%R_Kd%%%%Ru~VQ~~~ !S/>O?~~~S1Q%v%%%S3fl.%%%S5}G7%%%S95SDQ~~S;?zzR%%S==L2R%%S?-VR%%%S?k.v%%%SABSl~~~ !SC=3qR%%SCkgZ~~~SC}WH~~~SC_5_R%%SAL:[%%%S=~^Z~~~S=8}6~~~S=%z)R%%S=-E,_R%S?05K;R% !S?~D=hR%SC+KCZ~~SE4[z)R%SG=H.%%%SIPczzR%SK[~.%%%SMkcVR%%SO}@ADR%SS8SP_R% #% [ 59] er_m4.caps !T.|_5_R%T.}->7%%T.~O7v%%T0&gBc~~T0)u^Z~~T0-rqR%%T02[ADR%T07zMzR%T0=`I%%%T0CXX?~~ !T0IEmMR%T0Not7%%T0SjX@%%T0X*yZ~~T0[]d%%%T0^K7MR%T0`Q.%%%T0aoG_R%T0bSDR%%T0bZ^Z~~ !T0^V1[%%T0Znl~~~T0[1{I%%T0ZrM)R%T0Ybg[%%T0X*yZ~~T0V3];R%T0T5&l~~T0R:*H~~T0PFH.%% !T0NVEqR%T0Lq=hR%T0K25_R%T0IEmMR%T0GG7%%%T0E2f;R%T0B[-.%%T0?iy[%%T09QtJLAp1rR2(?.*s3R6:x`onFR:Mc(N\fR:^E5aNKR6Q)=Qh|RBQHL&a`RJot[8o{ !RTKtk;x:R\5(i,/'Rn;}'jq%S6PmV0&qS<%pgINeS2MLI~.%S0.Wk\&UR~@{88suRtX&X,e}Rl[PJcWe !RX6gFY66RTW,Mr:KRP1dO&btRJaxI[w]RFDBGqfR@1DX59LR@B=t58]R@`rkv~. !R@z)L?){R>~E0YlNR>`&<;2J !R((k`~1RB9hT:*:RLZi6-S< !RP@2q_&sRPz.vA.=RP[H_B[vRNbP23x{RLbych4bRJ.%0gAuRFxlaK0_RDp\Q(d|RBWqO_Id #% [ 59] er_m5.phase !S.b7%%%%RVpZ~~~~Qv)R%%%%RCX@%%%%RgL2R%%%S-mUZ~~~S-alVR%%S5YC2R%%Rs{I%%%%S6gsdMR% !S:;~VQ~~S80h)Q~~S4)^2R%%S0ZJDR%%S:0;R%%%S:,[MQ~~S82EqQ~~S6:VzQ~~S4K;R%%%S2dqzQ~~ !S03U2R%%Rz'c~~~~R`?VQ~~~RL4@%%%%R:\m%%%%QH.%%%%%R5NI%%%%RKTd%%%%Rc-VR%%%Ry\DQ~~~ !S/L_)Q~~S1^k6~~~S3t{qQ~~S71VzQ~~S9D-VQ~~S;NU2R%%S=L&DQ~~S?;f;R%%S?y>_Q~~SAOt_Q~~ !SCHRMQ~~SCu)zQ~~SE+`H~~~SCgc.%%%SASy2R%%S?+xc~~~S=@=@%%%S=-:2Q~~S=6<}_R%S?;/XhR% !SA/bshR%SC9[--~~SEA|lVR%SGKWqR%%SIa@IMR%SKjX@%%%SM{Q.%%%SQ4A8DR%SSG-b_R% #% [ 59] er_m5.caps !T.|_5_R%T.}->7%%T.~O7v%%T0&gBc~~T0)u^Z~~T0-rqR%%T02[ADR%T07zMzR%T0=`I%%%T0CXX?~~ !T0IEmMR%T0Not7%%T0SjX@%%T0X*yZ~~T0[]d%%%T0^K7MR%T0`Q.%%%T0aoG_R%T0bSDR%%T0bZ^Z~~ !T0^V1[%%T0Znl~~~T0[1{I%%T0ZrM)R%T0Ybg[%%T0X*yZ~~T0V3];R%T0T5&l~~T0R:*H~~T0PFH.%% !T0NVEqR%T0Lq=hR%T0K25_R%T0IEmMR%T0GG7%%%T0E2f;R%T0B[-.%%T0?iy[%%T0[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] c_k.amp !Q%%%%%%%R.{sBu}GR8l[liy[RBE>>Qc*RJ[WqSN9RRLdfaftRXt+cb;)R^x]AHD>Rd\YZ:t/Rhyj1Abt !Rl~ts&u.RphHRN{9Rt>Wi8{YRvRG^kqBRxPZ03^sRz4k,5k`RzS1P@emRzN,gM2JRxW=:r,_S0'>j:Rg !S0nBa5:3S0fXJ^sfK/)-+R]QXPEQvv%QRB`ycGSQJ=p'_Kq !Q@gg@63'Q@^nv)Y\Q:bi]@hHQ8A3-TWIQ8LAC~RyQ4-IjW>tQ44u1NyTQ05;l_%nQ0T;Z^2V #% [ 59] c_k.phase !S>E`,_R%S:4wm%%SX7,?.%%SVk%~-~~SVC(FhR%STs(Ru~~STFn4@%%SRqo|?~~SR5;)R%%SPZ=H-~~ !SP%\u-~~SN]WM)R%SN8&Tc~~SLk`eDR%SLEKp2R%SJybcVR%SJTRY_R%SJ/IiqR%SHbX7v%%SH8%ADR% !SFc~ZVR%SF4T_zR%SD_.EH~~SD0;-VR%SB\>&l~~SB/IEI%%S@]v]c~~S@3~)zR%S>efx;R%S>?8Tc~~ !S<@6nm%%S:IbWI%%S8XlzzR%S6k[))R%S6(;Iv%%S4Ci4hR%S2dg&DR%S20BG_R%S0Xp6VR%RvaH.%%% !Rf3U2R%%RVCAu-~~RH1WiH~~R:hoWqR%R.b:_)R%Q7CN(Z~~R1+hR%%%R;-X/m%%RCg,K;R% #% [ 59] c.rep !S2FbK;R%S2H*DzR%S2L62)R%S2S+lVR%S2\S,6~~S2hNDzR%S2vlb_R%S4-EQ.%%S4@+P7%%S4Tmel~~ !S4kPwm%%S6*+L2R%S6DS\l~~S6`s/l~~S8%/y2R%S8EEDzR%S8gk[MR%S:2^VzR%S:_=D)R%S%}cVR%S>^|7v%%S@AA43qR%SH+X@%%%SHt=+hR%SJd-vv%% !SLTv9;R%SNFOlVR%SP8gBc~~SR+WuVR%SRxt7%%%STl^[%%%SV`imMR%SXU4T;R%SZIriI%%S\>lrqR% !S`Q%QVR%Sdd1{I%%Shw|H-~~Sn2>WH~~SrG(o;R%Sv\,[MR%SzqB[v%%T.Rj;zR%T.fyNqR%T0IPg[%% !T0qvMQ~~T2@B3H~~T2hkSDR%T47:s@%%T4_d9;R%T6.3Y7%%T6V`Y7%%T8%/y2R%T8M\y2R% #% [ 59] c.lambda !U25'7MR%U26>6~~~U28hV)R%U28a;zR%U20_V)R%U0u@]c~~U0P43qR%U.w`qQ~~Tzk}O?~~TnHE,_R% !TbXMEqR%TX[3}_R%TPTt[MR%TJ?%-.%%TDi.ahR%T@n~nm%%T>HMZ.%%Ts]3I%%TDwbshR% !TJ.W8l~~TNJIEI%%TRq'+?~~TXH4P6~~T^)f_zR%TboQF@%%TheCc-~~Tne+H-~~TtnWU2R% ifeffit-1.2.11d/src/fefftab/85.dat0000755000175000017500000003577010771740460015507 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] at.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] at_k.amp !Q%%%%%%%R@M6taT;RZ_p-g-ERtHPhq0VK6_S6559[d2S6zxj@aSS8[)M2%- !S:/FvSoDS:RAD{%XS:j4BCu}S:w}Nt*%S:|}ukziS:z;xPIVS:qM|:P6S:c~1wHtS:SNm^J3S:A0OS}, !S8`RVu{@;AIRTI3kXFPRPP<@7@VRL'v`};)RH40M'W)RFsgrwgCRL)}~0DJ !RPYv,d^wRTB/z{+(RV/Bp/YWRV[zPUJIRTw<1@ahRTE|{^~:RPxeX>8]RN]HOA~dRNE22^A, #% [ 59] at_k.phase !RhDMzQ~~R:~nm%%%R;)=hR%%Rem))Q~~S/K=/m%%S3U`/dv%T/Xh4p[%T/g0P/@MT/svmJ'u)V)T1GSLSdvT1S/`>O@T1aOcpNMT1sJ:xblT3/lwdv%T3I;.mQWT3aXBwL[ !T52_wkk`T5Myn(2RT5`p7EI%T5nLWDzRT5z-Z2)RT7+8sP7%T74<+L2RT79_8u.%T7=F6b_RT7Q~ZVR% !T7bKFL2RT7v]0|@%T90S6B;RT9DNehzRT9XkJL[%T9k]L.MRT;%5:_)RT;6V8P_RT;GSOL2R #% [ 59] at_k.caps !S>A/q)R%S>@OT;R%S>>TWqR%S>;;Am%%S>6e,6~~S>0pVzR%S>)]h)R%S<{0?VR%S@i(Z~~S>A>K;R%S>Bv9;R%S>E\LZ~~S>IK+@%%S>NB/DR%S>TAXhR%S>[IMR%%S>c]G_R%S>lyg2R% !S>wDR%%%S@(x|@%%S@5[qzR%S@CNM)R%S@RM-VR%S@b[MQ~~S@syRv%%SB,M=hR%SB@8(2R%SBU2R%%% !SDA\l~~~SDw:k6~~SF[\,6~~SHFG?-~~SHzkwl~~SJS-%v%%SL.zrI%%SLf{uVR%SNG,O?~~SP)5_Q~~ !SPg2R%%%SRLr,_R%ST41o;R%STvq1[%%SV`tg[%%SXL.))R%SZ8BOhR%S\%TG_R%S\mXpZ~~S^\HVQ~~ !Sba=|hR%SfiL_)R%Sjt2zR%%Sp&qrI%%St5->7%%SxDYcVR%S|U)Z.%%T.XSq)R%T.lB;R%%T0N&}7%% !T0u~ZVR%T2D)Q~~~T2l5cVR%T4:I56~~T4b\`qR%T60wLZ~~T6Y88DR%T8'V^2R%T8Ou)zR% #% [ 59] at.lambda !R`mW8l~~R`nqrI%%R`ro+@%%R`yCwDR%Rb(Qb_R%Rb4:g2R%RbBQjhR%RbS\}[MR%S@^ZZVR%SB`cB;R%SDc=lVR%SFf9+@%%SHiQRMR%SJm--~~~SLpxWqR%SNt|;zR% #% [ 59] at_l1.amp !Q%%%%%%%QDx0nqQ[QdbF?Qm5R.dPh.xLR26%/hnpR4[U9+R{R6xkwd\QR:3.vu6.R<=7GC{IR>;g4ukW !R@-qYgWER@mU-+X@RBFl8lHBRBnDgY*)RD2z8P_RRDK7?R>xRDb\]^nMRF(7*[oxRFX|S85xRHL^ei/, !RRW(VwYWR\NZtC^;Rde*>IoxRz}15f1kS0?4cJ2_S0p9'SJ&S0yh)YORS0eqYB&MS0?0'88iS.gdY=3j !RxGm}Mb7Rl?QBGuFR`?iZ}G7RTWp.N{9RJ2MUE4DR@'fpF5OR6/j6w*YQp}{+~,lQ`R.WzIvR2K,nbsh !RBqbNO^kRLpmCN([RPVO*@%nRPDewAh2RNJ5Z*/,RL003.i)RHc4w=c_RF[<,XySRF7X61,'RHR\)J(i !RLT;cSy=RNqRW)MwRPlP]=G1RR6P(]'y[X #% [ 59] at_l1.phase !S4Meq)R%S0:YG7%%Rb~^[%%%R:BOhQ~~R7ZNI%%%R]jX@%%%S-eiiI%%S1P[MR%%S54A\l~~S7j\hzR% !S;?2)R%%S=eMIv%%SA(iY7%%SCPSDR%SksN4hR%Sq:%12R% !Su'e\l~~Sy521[%%S}HEuVR%T-_zCJm%T-t2oWqRT/-*A@MRT/@Ccvv%T/R/qrI%T/c?crqR #% [ 59] at_l1.caps !SFi`uVR%SFhIv%%%SFdS}7%%SF^,K;R%SFU4T;R%SFIl>6~~SF;}C2R%SF+v=?~~SDsZfd%%SD_5_Q~~ !SDHdahR%SD0>g[%%SBp(k7%%SBT&LZ~~SB6B_zR%S@q*eDR%S@P8\m%%S@-w@MR%S>d6JDR%S>?-ZVR% !S:{Qvu~~S8~k{qR%S6tDEqR%S4k7IMR%S43:&DR%S2^)Z-~~S2)[ADR%S0N.=?~~S.r^s@%%Rzb1g2R% !Rncub_R%Rba6b_R%RVW_b6~~RJEL_)R%R>(JHVR%R0YqAl~~Q7kH%v%%R3`adMR%RAM\Tc~~ROB)b6~~ !Rqb1Bc~~S/Y_-VR%S39slVR%S5j~F?~~S99(NqR%S;Z|3qR%S=zlNH~~SC[d56~~SK;D9d%% !SOL&DQ~~SSWo+@%%SWW[9;R%S[IIqzR%S_6m57%%Sav}cVR%SeRem%%%Si+UNqR%SkZaL2R% #% [ 59] at_l2.amp !Q%%%%%%%Q684w2IRJ1.R*eb #% [ 59] at_l2.phase !S9%'p2R%S=9K?VR%SAIM-VR%SEU`k_R%SqN0c~~~Su&@))R%SwX5shR%S{1r,_R%S}oP{qR% !T/=se`qRT/m_EM)RT1++SDR%Sh3B/DR%Sf~rqR%%SfnoKd%%Sf]0WqR%SfImu~~~Sf4dqzR%Sdws+hR%Sd_:wDR%SdDi,_R% !SbClJDR%S`W,;)R%S^Y+`H~~S\[s|hR%S\1+7u~~SZg'3I%%SZT3H~~QGPK;Q~~RM6+X@%%Rm~dahR%S/@4H-~~S1s^FhR%S5Br4hR%S7g8XhR%S;1%z)R% #% [ 59] at_l3.amp !Q%%%%%%%Q6u{Z&]\QH_:-v?BQZ.NU0a}Qj,kxRK+QxVZL_v)R.oa%:&iR0KjWxNzR0zCnn1*R2GAH&Gh !R2euG+}WR2{`MkOdR4.GW^s@R41ZUjhvR4+JZ[LcR2t&l6o\R2WNlaSMR2-{`_b7R0OR_MNiR.aw30?W !QLum=zAmQxC.'@(;R6'HUB?VRD=RvPg[RR8rw4@%RZvM4p[%R`5\8XV>R`hgxp^;R`&d9hC&R\JsK:qb !RX6%>F{1RRVu4A\mRL`Du}8]RF^iSF/mR@Wll&93R:L7^wDRR47jlR0DQt^s\E9\Q:hk'i&}Q\~^IREI !R8]LBAFTRB'C6zYdRDuP;||DRF4LlD2nRDiDXac_RB~zup-_R@~OY9c(R@4g%:~:R>~N~t:3RD%{m=AN !RHAMkJh@RJ{(1?02RN5*DH)lRNu2q%E/RNfO0F'dRN_LcZB-RLe4?GtuRJcK4a3TRHZt3s-\ #% [ 59] at_l3.phase !S9KV9d%%S=_v))R%SAowq)R%SE{fWqR%SK)%))R%SO,1g2R%SS*oOhR%SW%*_R%Sqfp2Q~~Su:VV)R%Swe2=hR%S{4c:2R%S}ae`qR% !T/:VoWqRT/xUruVRT15Sa`I%T1DA6B;RT1Nw-%v%T1X~cNI%T1cLFhR%T1n+5shRT1xFOlVRT3()~VR% !T30{3y[%T39-m~.%T3@^Ru~~T3Gj'd%%T3Nh*eDRT3Ul?JDRT3]a;1[%T3h1ps@%T53grQ.%T7(>|`I% !T7@2|T;RT7N9[v%%T7YqEM)RT7c^E0d%T7l;_EqRT7s}/@MRT7z%qzR%T7}KQF@%T9%JoKd%T930Boh* !T9?eZr([T9O5f~BSDR%Sh3B/DR%Sf~rqR%%SfnoKd%%Sf]0WqR%SfImu~~~Sf4dqzR%Sdws+hR%Sd_:wDR%SdDi,_R% !SbClJDR%S`W,;)R%S^Y+`H~~S\[s|hR%S\1+7u~~SZg'3I%%SZT3H~~QGPK;Q~~RM6+X@%%Rm~dahR%S/@4H-~~S1s^FhR%S5Br4hR%S7g8XhR%S;1%z)R% #% [ 59] at_m1.amp !Q%%%%%%%QR.Ujj5=,R0`9[eZkR2iUsxQkR4rG6f84A5lrrR@>@^BQkRBIn_;T'RD[)o/h{RFt]]@q2RJ>(hvcFRLn=dg&ERPUy9]SmRTO',Z^[ !Rb+.A9WqRj(pdem%Rn5]=T;RS.Y'=7neS09+I])bS0Qy:,Q,S0Q6R&1*S0=n1\V|S.wZlyBdR~Yr[)yc !RtHz''_zRhzW5&6BR^M:]OD)RT+kj`WYRJ(n-(,pR@J\aO*WIuRPa>fktBRP=g@&64RNzjo?jwRLeuO8SjRJwGJ%:*RJOq|z&. #% [ 59] at_m1.phase !S6cz1[%%S2PqAm%%R|R12Q~~RRt&l~~~Qb&DQ~~~RE0x;Q~~RiT|@%%%S/8iDzR%S1w,7%%%S5Ta|hR% !S9+H.%%%S;U-^Z~~S=w@qzR%SA7kshR%SCIx';R%SES2=hR%SGRqzQ~~SIHLFhR%SK3Th)R%SKm|P7%% !SO0.z)R%SOa6b_R%SQ53iH~~SQtl)zR%SSi30c~~SUknu.%%SWu,k_R%SY~VvMR%S]*&4?~~S_'|G?.% !S_wh`}_RSae({H~~ScJMy>_RSe'~B;R%SeTera@%Senq}C2RSebdjY.vScP@^Rv%S]uV-VR%S[6mdY_R !S[3LLo;RS]Itk_R%S_kJ(2R%Sc*OP7%%Se:)~VR%SgA-JDR%Si:6zzR%Si{,;)R%SkY)^2R%So}_-VR% !SskPSDR%SwxD%MR%S}2QZVR%T-]d(_)RT-q~w@MRT/*|{U2RT/>@D~VRT/P>%Y_RT/aX*0d% #% [ 59] at_m1.caps !SH*Ot_R%SH)-zzR%SH%%mv%%SFx7MR%%SFnj3qR%SFbg[%%%SFT:c.%%SFCDf;R%SF06^[%%SDtqf;R% !SD]PWH~~SDD0l.%%SD(~^Z~~SBf,.u~~SBGUk7%%SB'K?VR%S@_mz)R%S@rBSm%%S>LUg2R% !S<-(g2R%S:/+lVR%S6}<WI%%%RX+kC2R%RJk*qR%%R>F~F@%%R0rp>_R%Q3VRmv%%R3P66.%%RA?b_Q~~RO6'/DR% !RqX)f;R%S/X]|?~~S38vADR%S5j1o;R%S98OL2R%S;Zb_Q~~S=z5_Q~~SA>lNH~~SC[\u-~~SK;\NffKdRJ-BSCTT/8/R #% [ 59] at_m2.phase !S9>v~.%%S=Rndv%%SAaR9;R%SEk0/DR%SIoAXhR%SMnXD)R%SQhtK;R%SU]T7MR%SYLyk6~~S]7`U2R% !S_vRiqR%ScU|7v%%Sg/^Jl~~Si]9t7%%Sm*Gk_R%SoIxKd%%Sq`^NqR%SsmKOhR%Sum)rH~~Sw\f/DR% !Swzq~VR%Sq1-:2R%Sm=zAm%%Sm9;R%%%Smdh9c~~SoRVnDR%SqR`yZ~~SsYdEI%%Sua29d%%Swc0';R% !Sy^-:2R%S{QM5_R%S}>Ay2R%T-R/XD)RT-XE_RT-jU1c.%T-s^4T;RT1=8Y{qR !T1Kv~RMRT1X%H:2RT1bis/m%T1l.IMR%T1tA;5_RT1{f>C2RT3'LZ6.%T3*hGshRT3,d+t_RT3:>17ir !T3Fp3=;zT3VKLv}dT3g*MF`IT3wT8zKx;RT5P/w0;RT5`X29d%T5ojq%MR #% [ 59] at_m2.caps !Shu8Tc~~Shtfl-~~Shs9x;R%Shpey2R%Shm34hR%ShhNDzR%Shb]OhR%Sh[Y;)R%ShS>&m%%ShIZrqR% !Sh>R12R%Sh1vUZ~~Sf}n,7%%Sfn-nl~~Sf\f/DR%SfI_Am%%Sf4sL2R%Sdx=T;R%Sd_qZ.%%SdEW}_R% !SbE-)zR%S`XUNqR%S^ZTt7%%S\_Am%%%S\5Ls@%%SZkbC2R%SZ@zrH~~SXmDZ.%%SX=A\l~~SVeN];R% !SV2S8DR%STY,*qR%ST%^wDR%SRLFD)R%SPs@%%%%SP@OT;R%SNgi}_R%SN5.-.%%SL\6B;R%SL(pNqR% !SHZ.IMR%SF.\P_R%SB]QF?~~S@6rqQ~~S:_)R%QGU_MzR%RM62rI%%Rm~vv%%%S/@8(2R%S1s^FhR%S5Br4hR%S7g<8m%%S;1%z)R% #% [ 59] at_m3.amp !Q%%%%%%%Q4N;T[%nQBp/Cc.%QR)M]~_JQ`'6v`0dQlbgpY*)Qx{o}&t?R.kYv~.%R0B,4L^;R0md162) !R2:'l~6.R2[E-Z*iR2vpIR4B4^bMbR4-E9P:;R2e+:U_r !R.gTY6Sm\7riRL=Y0RCkRF{,KMf;RBPa`up&RP~EQ !R4IRe<31R<0[l/}[R>dXy^WiR>|iWDkxR>d8-;j@R>5@Uq0=RoZ)*@v !RD(8YD@'RFa^Xg-tRHy[1J%xRJk9TtbhRJr/I..iRJz\%B`[RJ8<4>EhRHHF{oyaRFM~aZYY #% [ 59] at_m3.phase !S9Su.%%%S=gt.v%%SAvW];R%SG&5SDR%SK*kK;R%SO*(6VR%SQ~D=hR%SUsHRMR%SYc8Tc~~S]MTp2R% !Sa2kSDR%SckpRv%%SgERel~~Sir?>7%%Sm>^>_R%So\W0d%%Sqq:wDR%Ss{6jhR%Suvj`H~~Swa5*qR% !Swx&q)R%SsJSP_R%Sofia@%%SoOpZ~~~Sos:Bc~~Sq\5SDR%SsX;1[%%Su\MIv%%SwaNY7%%SyaJ0;R% !S{ZiU2R%S}LQb_R%T-SwIiqRT-ZG2V)RT-`Qvv%%T-fH<4hRT-l9r}_RT-r+.~.%T-xQXT;RT1FJb.Ma !T1T*AD)aT1_kv];aT1j&m%%ShIZrqR% !Sh>R12R%Sh1vUZ~~Sf}n,7%%Sfn-nl~~Sf\f/DR%SfI_Am%%Sf4sL2R%Sdx=T;R%Sd_qZ.%%SdEW}_R% !SbE-)zR%S`XUNqR%S^ZTt7%%S\_Am%%%S\5Ls@%%SZkbC2R%SZ@zrH~~SXmDZ.%%SX=A\l~~SVeN];R% !SV2S8DR%STY,*qR%ST%^wDR%SRLFD)R%SPs@%%%%SP@OT;R%SNgi}_R%SN5.-.%%SL\6B;R%SL(pNqR% !SHZ.IMR%SF.\P_R%SB]QF?~~S@6rqQ~~S:_)R%QGU_MzR%RM62rI%%Rm~vv%%%S/@8(2R%S1s^FhR%S5Br4hR%S7g<8m%%S;1%z)R% #% [ 59] at_m4.amp !Q%%%%%%%Q4(Ug2R%Q@{OP6~~QN`w}6~~Q\.:*H~~Qh?6.%%%QtDxOhR%R.Vyc.%%R09le?SaR2%ILIY_ !R2xw_6)zR6+>(+MjR8L341o;R<)ynL:7R>xvn\2bRD(tqkeYRHF64;K/RLpXc)h>RRFFQ8qrRVs+:rn< !Rb_&vKW)R@G6c%XqR@H_|)|0R>o]OKC[Re4R>2M4~,lR>(pg^:[R<[?Mu\kR:u4v*kSR:9WVR1(R:3QGYv~R>m)KC>y !RDLGKoLeRHK~c}xjRJppI\JoRLq%V*wYRLsV*j&IRLz4YNUPRLCx[c6~~R~_%MR%%RRU:Z~~~Q04hQ~~~ROM^2R%%R{Hnl~~~S1TU&DR%S5crqQ~~S9o9OhR% !S=s@%%%%SAlLFhR%SEWmMQ~~SI3)nDR%SKV/XhR%SMeN8m%%SO`dz)R%SQE|L2R%SQnS,7%%SS&0_zR% !SQ>ATc~~SO=2^2R%SMM:Rv%%SMR`yZ~~SO/@))R%SQK{uVR%SUbl)zR%S[{w4?~~Sa{(6VR%SemuZVR% !SgwWy[%%Si\s+hR%Sk.EmMR%SkOnXhR%Sko|dMR%Sm;S\m%%SmpnLZ~~Sod`0c~~Ss+QJDR%Sw=8@MR% !T-f+NY7%T-|=>k_RT/-G.v%%T/3K@iqRT/6wsP7%T/9\][v%T/;3RADRT/:%}cVRT/6\U.MRT/5gm9;R !T/;Bn0;RT/DZK3I%T/O(.MR%T/Yt{qR%T/enJXhRT/plXxd%T/}7j;zRT1/o5od%T1;aDMzR #% [ 59] at_m4.caps !SxuGwl~~SxuD=hR%Sxu5cVR%Sxtyo;R%Sxt\`qR%Sxt88DR%Sxsj/m%%Sxs:g2R%SxreDR%%Sxr.ahR% !SxqR%%%%SxpuB;R%Sxp>_R%%SxoZb_R%Sxns+hR%Sxn&Tc~~Sxm%IMR%SxkdiqR%Sxj)Al~~Sxgnq)R% !Sx[sX@%%SxLxWqR%Sx.DZ-~~SvhZvu~~SvpgVzR%Sx&yVzR%Sx(^_)R%SvwoKd%%Svck2zR%SvI)MzR% !Sv)Jdv%%St`*];R%St::6VR%SrldahR%SrDMV)R%Spv+P6~~SpN1Rv%%Sp'5&m%%Sn[H:2R%Sn6rM)R% !Sl:A,7%%Sj@pg2R%ShEp.MR%R2/o1WtCR4'@wM0H !R6(mvdK+R88DqWw4R:W7FBp3R>.p,7xpR@tUuIU[RDsXsHRMRJ+PmkZ:RNJlx5V6RRpCe:-:RX9i>Mpk !RbDoNmy;Rb+Rel=HRXRu.%f\RTo<.{~NRLvj&9A}RB_Kc?80R:2OlD=hR6Jb-iy[R8UR}?.%RyL\%H_R@^WZ:A,R@\(Y>MbR@%(Au.%R<}~Y4X@R:bk'OsLR80q@JdRR4M3WxV:R0n^n/mIR.\bDmsQ !R2)q-jw,R8O-VwvfR|=RjDC !RDbOo7;>RHgL(^pwRL9J~xK*RN;P:eKZRN>%cr([RNF'Vyx;RLe]Wi~9RJjxQ89fRHJI;5mE #% [ 59] at_m5.phase !S2Pt{qR%Rz[z)Q~~RNlvv%%%Q/iI%%%%ROTSl~~~Ry,{qR%%S19=xc~~S576JDR%S91*H~~~S=%go;R% !S?mz)Q~~SCT)=hR%SG/\m%%%SIY0/DR%SKsbK;R%SM}i8m%%SOujD)R%SQYJ(2R%SS(E0d%%SS:k[MR% !SQY)9c~~SO[/y2R%SMl&du~~SMr`Q.%%SOOd))R%SQo7))R%SW4T_zR%S]V|/l~~ScR(_)R%Sg>&HVR% !SiD(c-~~Sk&w0;R%SkPG[MR%Skp8XhR%Sm4hvMR%SmXb&m%%So1V1[%%So}EY6~~Ss?gwDR%SwJ}[MR% !T-g[|P7%T-~?U>_RT//IEH~~T/57b{qRT/8R'Kd%T/;/QNI%T/<]_zR #% [ 59] at_m5.caps !SxuGwl~~SxuD=hR%Sxu5cVR%Sxtyo;R%Sxt\`qR%Sxt88DR%Sxsj/m%%Sxs:g2R%SxreDR%%Sxr.ahR% !SxqR%%%%SxpuB;R%Sxp>_R%%SxoZb_R%Sxns+hR%Sxn&Tc~~Sxm%IMR%SxkdiqR%Sxj)Al~~Sxgnq)R% !Sx[sX@%%SxLxWqR%Sx.DZ-~~SvhZvu~~SvpgVzR%Sx&yVzR%Sx(^_)R%SvwoKd%%Svck2zR%SvI)MzR% !Sv)Jdv%%St`*];R%St::6VR%SrldahR%SrDMV)R%Spv+P6~~SpN1Rv%%Sp'5&m%%Sn[H:2R%Sn6rM)R% !Sl:A,7%%Sj@pg2R%ShE[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] o_k.amp !Q%%%%%%%Q|Gp.trzR6SHQlnIR>Hh|gX4RDumVSFyRL%5.;b7RPdQ(m_39RlMTq[emRnCuzh=hRve}~+|iS.zb^AakS0DmShDWS0dIIy4) !S2=snMMVS2D6/)j@S27@J`qRS0xRiHaqS0V.=aU*S0-Ihx|zS.].4]0qRx^D~MhbRpH[\M% !Rb.3U]R~R\)*9[v%RVB`GbUGRPv@BR&]RLhoWqR%RHpH;i>2RF0(\f*;RBZP[4K&R@;Uje-A+lVR !R8qb'&4VR68aLO9(R2x/}u2G0QV`U4bod !QL=`B7SCQJ>R(`l|QBDKA6]{Q>neCgI.Q>Mf?9x-Q6}Y'KK8Q8>FTDvFP~@3oc+4Pn:FcVp< #% [ 59] o_k.phase !S7{O+hR%S=4>G6~~SA?q9d%%SED,C2R%SI@riI%%SM6/8DR%SO}l)zR%SScWh~VRSWA;VMzRSYpWw}7% !S]=<^NqRS_['=/m%SaoQF@%%SczA{Y7%Se{4l2)RSgoxr4hRSiS9JfSmSkI>J[57Sm?LkWmMSo/MB[v% !Ss5>jp[%Su?vk*qRSw:mKOhRSy*q8P_RSynO=X@%S{U0t7%%S};'Zb_RS}{Znm%%T-X3IIMRT-^]slVR !T-d|A\m%T-k)lfd%T-ppa+hRT-v?>[MRT-{M`4hRT/&G\`qRT/+8op2RT/0*Imv%T/4~g.MRT/:'mem% !T/Ff2Z.%T/R_:Rv%T/]FlzzRT/gL8XhRT/qG*qR%T/zlu>7%T1)+7-.%T10F'd%%T17`0d%%T1MFY.v% !T1XJ7U[%T1d\,6~~T1o:3eDRT1wnURv%T3'V+/m%T32l>[MRT39.UZ~~T3Hfk?.%T1\'dIMR #% [ 59] o_k.caps !S0UL&DR%S0S,[MR%S0K~fd%%S0@JshR%S?mo/DR%SAd4lVR%SCTunm%%SE?k{qR%SG%\P_R%SGa^FhR%SI@d56~~SM%]c~~~ !SM}66.%%SOsdMQ~~SQawP_R%SSIPg[%%SU,e}7%%SUd,cVR%SW=t_Q~~SWnmmv%%SYAP;)R% #% [ 59] o.rep !S0AVAl~~S0C7iqR%S0H9h)R%S0PQB;R%S0[ox;R%S0j)Am%%S0z|xc~~S24JTc~~S2J;5_R%S2bG[MR% !S2|dqzR%S4?dW8l~~S@N+L2R%SB9n0;R%SD'FpZ~~SDpP*qR%SF`l^Z~~SHR3}_R%SJDGshR% !SL7CFhR%SN*qvMR%SNxr4hR%SPmFw,7%%T<0T7MR%T:DR%%%%T2,/@MR%Sp(pNqR%SftUFhR%S`ydel~~ !SZbI]d%%SZNf3H~~SZzK/DR%S\to?VR%S`2KSl~~Sb`Z%u~~SfG4|hR%Sj=A\l~~SnA2=hR%SrQ0Kc~~ !Svl>[MR%S|7_Al~~T.XWQ.%%T.p4T;R%T0.ahQ~~T0G}shR%T0b+;zR%T0|{U2R%T2>]+?~~T2Z|X@%% !T4K%]c~~T6?C*I%%T87l>6~~T:48du~~T<4U*H~~T>8`([%%T@@NeDR%TBKwL[%%TDZxx;R%TLBt7%%% !TR%j`I%%TVol.%%%T\l_%MR%Tbv-RMR%Tj1nLZ~~TpS_9c~~Tx'G_R%%T~`h5_R%U.prQ.%% ifeffit-1.2.11d/src/fefftab/44.dat0000755000175000017500000003577010771740460015502 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] ru.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] ru_k.amp !Q%%%%%%%QV)*3x1kR.hDN/,7R2|{Q1_*R8(@Kt7%R:u{/9A}R>T({KV^R@ukbczzRD&~/x1GRDwY@z8, !RFYx[KDnRH+/pAT@RHEs+-nIRHSLT?GxRHUO6q9dRHLE+ZfdRH;.0VVrRF|M:/5/RF_D1-m5RFB,dq1[ !RF(PC^:[RNV~Q\J4RZ`'oxMfRjHB+4C;RzU)~w@MS.yhct]tS0EAoc'TS0L=RwEOS07(Y-N|S.g^;pUC !RxN_7cyCRl(ON4hRR^tLWnR=RT[Y2wzFRLl'5\h2RHejH6&eRHELMIgKRJ5?C;TpRL\&'UNMRP;U(6D> !RX4SWU2RR^6v~GSDRb38dsMFRb~Yk|`IRd)%2D'PRb`7j3uSR`yBKFcPR^v7SVdlR\bX&{t5RTuXkQ28 !RP90@a.5RJjV=mhHRFR.@-_XRB[|5mw]R>[M`BuCR<;=*Dh>R8zjnHJpR8'`^|jyR84`W8HV #% [ 59] ru_k.phase !S?8EeDR%SCJIiqR%SGSR=@%%SKS|H-~~SOL)~VR%SS<3U2R%SU~g.MR%SY`)'OhRT/LfC[%%T/Z`Y[MRT/h=@IMRT/uo>g[%T1B&tcVR !T1Z-pJm%T1pBY*qRT3+YpRv%T3@k]t7%T3S;GshRT3f~B;R%T3xI@z)RT5.z`4hRT5B',wm% #% [ 59] ru_k.caps !S2pps?~~S2osH-~~S2m(:[%%S2hCJm%%S2ag>_R%S2YDj?~~S2O29d%%S2C6zzR%S25O@%%%S2%~vv%% !S0noKd%%S0[ox;R%S0G-b_R%S00QjhR%S.q~VQ~~S.WO+hR%RzJ|lVR%Rr}Z^Z~~Rl=hvMR%Rd=KCZ~~ !RFYa/l~~R.f?2)R%Pj8N8m%%QaX(wDR%R3`S0;R%R?,;rH~~RK1zZ.%%RWb;rH~~ReWreDR%Rs`sT;R% !S-bx[v%%S/J4dMR%S11-^Z~~S1q>{qR%S3VD9d%%S5:'WqR%S5v4H-~~S7VcJDR%S95axc~~S9m3Y6~~ !S=?CNqR%S?iqvMR%SC:_rI%%SEcGwm%%SI,g6VR%SKH@]d%%SM[y_)R%SOid12R%SQtG[MR%SY-ZVR%% !S[~hAl~~S_iO+hR%ScNOt_R%Sg'N0d%%SiQc)zR%SkyFD)R%So?2rH~~SqXQnm%%Ssp1c-~~ #% [ 59] ru.rep !S6Ux|@%%S6Vz-VR%S6Y}O@%%S6^{mMR%S6e|H-~~S6np_)R%S6yXX?~~S8,0Sl~~S8:K7MR%S8JGC2R% !S8[~vv%%S8o2~VR%S:)qZ-~~S:@%IMR%S:W`,_R%S:pbcVR%S<14T;R%S/Cc.%% !S@=a7v%%SB2>2zR%SBi|'d%%SDF3([%%SF&^Jm%%SFcVQ~~~SHHc)zR%SJ/n8DR%SJriI%%%SL]7MQ~~ !SNI++hR%SP6.IMR%SP~:2Q~~SRm<,_R%ST]0WqR%SVMc%u~~SX>r0c~~SZ0Z>7%%SZ|n4@%%S\oP2zR% !S`|`mMR%Sf1aP7%%SjB&L[%%SnSJ4?~~Sre\l~~~SvxOhR%%S|1r,_R%T.U>;)R%T.i>shR%T0KOD)R% !T0sbod%%T2A}[MR%T2j>G7%%T48\l~~~T4`~rqR%T6/Fxc~~T6Wl^[%%T8&8DR%%T8N^*H~~ #% [ 59] ru.lambda !SLg7iqR%SLiSTc~~SLpLo;R%SL{kK;R%SN184?~~SNDB[u~~SNZ[EI%%SNsKh)R%SP47-.%%SPP.QVR% !SPlQ^[%%SR.^wDR%SRIndv%%SRcXxd%%SR{H6-~~ST7-vv%%STJ\l~~~ST\>&m%%STliU2R%ST}(o;R% !SVfL.MR%SN)eq)R%SHv8(2R%SH&KG_R%SFcRqzR%SFcO7u~~SFunHVR%SH;(c-~~SHc}k_R%SJ:NqQ~~ !SJq1Z~~~SLR{SD-VR% #% [ 59] ru_l1.amp !Q%%%%%%%QTDAw'1GR.[MC(}1%U[R@CuHOzBR`'0?;3]RTso:GHoRN.ip~+XRJ)\uRMRRH]KS9|@RJD'ai+(RLbX_MCoRP;l*P\< !RX(sizr%R^&aX&P`R`xzsO{1Rbhl+C)ORbnVQ}UkRbMf6d>iR`h~7-SwR^g&&5>8R\TJV?|}RTk[:etk !RP0yO'v9RJdT?7,8RFLo4DcNRBX&M/?:R>XH7BmfR<8RwZRCR8x|f%vQR8%n*lVzR82m[A)u #% [ 59] ru_l1.phase !S?,C2R%%SC><7%T-c[PC2RT-_G@em%T-Z~6-~~T-X59Kd%T-WJd-.%T-XHvv%% !T-_kHJDRT-kEreDRT-yChj@%T/.UE0d%T/=sDrI%T/LV@57%T/ZOMj@%T/h+,2zRT/u\cb_RT1AoH)zR !T1Yw+H.%T1p24p[%T3+K<@v%T3@^Ru~~T3S1V1[%T3fx0WqRT3xDy>_RT5.{hZ.%T5B)=hR% #% [ 59] ru_l1.caps !S2rNa?~~S2qQ6-~~S2n`([%%S2iwXhR%S2cAL[%%S2Zq^2R%S2P[MR%%S2DXt_R%S26mY_R%S2';vMR% !S0p%12R%S0]%]d%%S0H6-~~~S01VV)R%S.s%ahR%S.XLVzR%RzTFL2R%Rt,hIv%%RlF`mMR%RdF1&DR% !RFa[U[%%R.s,{qR%Q08DvMR%Q]agc.%%R3PlrqR%R=x:c-~~RK%b2zR%RWW[9;R%ReNZ%v%%RsXjT;R% !S-b:_)R%S/ITG_R%S10T[u~~S1pm9;R%S3Uv12R%S59]/DR%S5umY_R%S7VIu~~~S95HJDR%S9lwdu~~ !S=?8Tc~~S?in=PR:.Ou&aR:7lKvO0R6<26rqRR6;4^M@~R8cl`+A8Rk?RZ^;(HWmRZ-&?2GiRX=I0e>5RRCm_JpX !RN1/7C>UY)AR<*Bwnl/R8dL/vrxR6@xWrFgR4nvyfj| #% [ 59] ru_l2.phase !S>U}&m%%S:F(Rv%%S6C&hzR%S2L9l.%%S.`kK;R%Rb*I%%%%RBPcVR%%PGVQ~~~~RA&4?~~~R[-RMR%% !RsK7MQ~~S/.'Kc~~S1521[%%S34n4?~~S5,o?VR%S5wD-VR%S7aV=hR%S9HD=hR%S;0qEqR%S;|}{qR% !SE`p>_R%SKlt*qR%SO>;)R%%SQd'';R%SS{-rqR%SU}=t_R%SWnxh)R%SYUuB;R%S[6`8l~~S[lAq)R% !S]B'_zR%S]hK/DR%S_%*a?~~S]{-NH~~S]HD=hR%S[/c>7%%SWWWY6~~SUU]Kd%%SU0X;zR%SU,ATc~~ !SU`30d%%SW_&{%bWQ~:H=jEaQt2@4522Qj[_8_ZR !QZ-qt&m%R0ybZ%%nR8bHnm%%RB6i06+XRLAonOZgRV8PKCtSR\vk4\a`R`g%&>v~R`[~jy~_R\ujwM%M !RV}I%79;RP@w]N)JRH?X>{bxR@D[iz|yR:)n9^I~R6.~4JF0R6.LcNmNR8W+F18YR@72RR=>fy`D !RN+L8*xwRHxCwH5CRDuNYI9Blt0bGR<*8p]gIR8d*U<0*R6AamfDXR4pBzeIc #% [ 59] ru_l3.phase !S>7EI%%%S:'`iI%%S6%;b6~~S2/HVQ~~R|X\DR%%R\34hR%%R'7MR%S1CLo;R%S3ABOhR%S57Oxd%%S7&-JDR%S7hD^2R%S9M4'c~~S;3bSDR%S;}pRu~~ !SEb?RMR%SKyA,6~~SOLNM)R%SQsg>_R%SU1`a@%%SW4>k_R%SY%y_)R%SYfQjhR%S[Fr8m%%S[|Sq)R% !S]Qo7MR%S]wIiqR%S_4)Am%%S_0,.u~~S]W;^2R%S[=]3I%%SWcw@MR%SUaQJDR%SU<^NqR%SU8du~~~ !SUl~ZVR%SWkPwl~~SYz`}_R%S]:84@%%S_WW}_R%SaqiQ.%%Se,,p.MRSg2zR%SVpb?-~~ !SVf.z)R%SVZPoc~~SVMqZ-~~SV@3Y7%%SV1?rqR%ST{8l~~~STimMQ~~STVqZ.%%STB2~VR%ST+OlVR% !SR-RqzR%SP=Zfd%%SP,@ADR%SP%<,_R%SNlCs?~~SNO]WqR%SN+`1wDR% !S@STMI-R@(+}tWI !R@]}jb&mRB1SdQw@RBXLivEIRBxj)@dZRD:sRZ){RDR8_(x|RDhK[['LRDz[+(p*RF3(FYwmRFFp,)eM !RHMc<*U{RR]US(HFR`3>UQb_Rni4*eVfR~E>N'5KS0*{1jSjS0J\'<-9S0K=x`H:S02:~r>OS.b)O>*) !Rx-kXe-oRl1^9'yOR`P1sHhBRV^)L}&mRP+B9cK|RJ~=z8btRJG/Ko&MRJoAOqcJ !RVh(PRz)R\Q5N9IbR`O?S46uR<0G1'c2R8s_Hs{gR6z;6KPWR8-/A6a| #% [ 59] ru_m1.phase !S=3h~VR%SAF,WI%%SEP9p2R%SIRLc.%%SMM/XhR%SQ@Y_Q~~SU-?%u~~SWmOT;R%S[M8P_R%S_&bO?~~ !SaSdv%%%Scz8P_R%Sg@%%%%%SiXc^[%%Skj*U2R%SmsT_zR%SoteFT;RSqlvU6VRSs[NwXhRSu?dw\m% !Sw[adqzRSy)eSu.%SyVh>pwDSyteLey2S{7]0|@%S{XC6zzRS{}~Aq)RS}P'3mMRT-R7Lx|@T-WEgyk7 !T-\9fKd%T-`,@em%T/Lje_R% !S0qd9;R%S0^]Kd%%S0Ij;zR%S03-)zR%S.tRUZ~~S.YyJm%%RzcLFhR%Rt;q~VR%RlUuB;R%RdUPO@%% !RFpO;zR%R08+H.%%Q8s>k_R%QScq^2R%R3'jP6~~R=T2~VR%RI`QRMR%RW=/HVR%Re7oSl~~RsE?>6~~ !S-`UVzR%S/H+3qR%S1/9|@%%S1oYshR%S3TqEqR%S58_^2R%S5t{([%%S7U^_)R%S94kg[%%S9lHB;R% !S=>y&DR%S?if|@%%SC:_rI%%SEcD=hR%SI,_vMR%SKH9CZ~~SM[v%%%%SOigk7%%SQtNuVR%SY-^6VR% !S[~hAl~~S_iRel~~ScNSTc~~Sg'N0d%%SiQfd%%%SkyFD)R%So?6RMR%SqXUNqR%Ssp1c-~~ #% [ 59] ru_m2.amp !Q%%%%%%%QN)'ValVQriv}:fDR0RJ3+6>R2nT@n93R4r(`_O}R>0kG/dvRDf_nU~_RHzq7m)NRJ_OS048RH~DxR`z !RF?nZ)1[R@vQj26*R<1+Pbg[R6@e7kO@R0r2?4mER.S|}bC3R.}cf[}?R2ZHZ^2vR6SI^O}WR:Kg0UYG !RBfp>h;BRJ>DZhUPRN}{iw`)RRj~JBqTRTu|zuT(RP`.zS=N !RLeBQd%\RHf=`:k[RDk;X0,tRB2'5Y.-R>@;}v57R<(L|9E9R8d;KUS6R6CEk)K7R4sXBRcr #% [ 59] ru_m2.phase !S??)1Z~~SCN\q)R%SGPa/m%%SKE^*I%%SO.3}_R%SQe3,_R%SU74H-~~SWY@ADR%SYqVrH~~S]&c>6~~ !S_,i8m%%Sa*xG_R%SazlB;R%Scj*0d%%SeSXD)R%Sg8][u~~Sgt7IMR%SiS^&DR%Sk0hrH~~Skf8?7%T/Pe%em%T/VEqR%%T/[DVMzRT/_~<}_R !T/d:<];RT/gaE`|;zR6WaHuLkR6\RRt*)R6Q9e1*I !R6;YFU8}R4{G3FIfR4_w}>?.R4F_&k*)R407p7(;R2w8%tG7R2fFv},tR2Tq@&\mR2?SD[/0R0|w@\,7 !Qv2hm7d~QV&C7}44QN7XwMg*Qrt5p'3IR4oQ{2f2CUzo|RDi1fBRZRH|-M/MnRJ^dau}lRH{E)bbh !RF;*jnXhR@pYZS`qR<*V|nQNR69Wx7\,R0i6K<2BQ|m&@RTdAF_VNRPU:;8fu !RL\i0jguRHa46BAdRDhCSi&dRB/aiC)VR>?ERW8mR<(.jQ^IR8cstQUXR6D?gb>FR4uVara] #% [ 59] ru_m3.phase !S?bWmMR%SCq|xd%%SGsQnm%%SKgg2Q~~SON|L2R%SS*h5_R%SUU1c-~~SWu_nDR%S[1t.v%%S]>~>7%% !S_C'|@%%Sa>jL2R%Sc27ahR%Scy(k7%%Se`0?VR%SgBhrH~~Sg|@IMR%SiZ/8DR%Sk6&du~~Skir@u~~ !So;~VQ~~SuLQ>6~~T-W8Op[%T/-X|D)RT/Ajft7%T/LO@%T/Sj7QVRT/?pR-.%T/6*{];RT/3LI57%T/4*U2R% !T/:s`Ry(UzO4R@})^mVJRBss~3D2 !RD]SI>.vRF@CB{BTRFspwlZVRHH>WpfhRHq%Y3iIRJ<*hwRBihQDb7RB1\dMvMRBi|nW?> !RD.ASmmvRBRW3V[fR>z'0VH>R:[W,VhbR4p3t?RMR.z%7TNmy;RH>{nYWIRDEY]\c,R@f.*mcFR,-jR:`9t8hOR8DF%-zwR4jOShM@R2mW|,m= #% [ 59] ru_m4.phase !S=9@EI%%SAKZ>7%%SEUyk7%%SIY%57%%SMT>gZ~~SQH|3qR%SU6[EH~~SWxBG_R%S[Yc2)R%S_4r8l~~ !SacYg[%%Se1~^[%%SgSbO@%%Sims|hR%Sm&4dMR%So00WqR%Sq0x_zR%Ss'>C2R%Sslk2zR%SuM-zzR% !SwY:_)R%Sy0>g[%%SyR9;R%%SyM>WI%%Sy3u2)R%Sy%=@%%%SyDMzR%%S{La+hR%S}q6)zR%T-Z;qZ.% !T-`+^FhRT-cMC2R%T/(kj'd%T/\^NM)RT/qw5.v%T/xiVEqR !T1%xe8DRT1*y:6VRT1/^)~VRT14Tg:[%T19rkK;RT1?<`Q.%T1DY;MzRT1IqoWqRT1OCfC[%T1_i)%MR !T1k)~zzRT1v,43qRT3&`:o;RT325;)R%T3<3FX@%T3GPt2zRT3R\u-~~T3]F^FhRT3g\-JDR #% [ 59] ru_m4.caps !SnWdUZ~~SnX=X?~~SnYuF?~~Sn\B+?~~Sn_:Rv%%Snb=t_R%Sne+H.%%Sng?rqR%SnhZRMR%Snhlfd%% !Sngg{H~~SneAK;R%SnU^_)R%SnM\y2R%SnD9?VR%Sn9U&DR%Sn-V-VR%Slz5;)R% !SlF`mMR%SjwAWI%%Sf:dADR% !SdS-JDR%Sbo?2)R%Sb3DV)R%S`Ool.%%S^i2f;R%S^'oCZ~~S\D2%MR%SZfY*qR%SZ3hZ-~~SVP3DzR% !STM%qzR%SRUT/DR%SP\o';R%SNkcVQ~~SN'unm%%SL;zvMR%SJVIu~~~SHt=+hR%SH5}*qR% #% [ 59] ru_m5.amp !Q%%%%%%%QT`_ATEGR._YTyD>R2kS&~L5R6eDT1uJR:JkC-\JR3{]RPllw+@nRVn,+CA,RHIfU/oLRB\Wb=P7RB+ARZNIRBgx8JHe,R:Y~:d+PR4oR/wBPR.z`ESTdQX%At\=|R@d'`ZGLRNQ.%%Sy]3I%%%SyUGWH~~Sy:FD)R%Sy+D)Q~~SyKh)Q~~S{U}K;R%S}zvqzR%T-[.H^[% !T-`puB;RT-d19l.%T-f3P?.%T-gk_-VRT-j7}?.%T-p%z)R%T/)lu>7%T/\:%z)RT/qO,WI%T/xP(&DR !T1%|EK_zR !T1kYG[MRT1vP\`qRT3'@W];RT32]CZ~~T3K;R%SnU^_)R%SnM\y2R%SnD9?VR%Sn9U&DR%Sn-V-VR%Slz5;)R% !SlF`mMR%SjwAWI%%Sf:dADR% !SdS-JDR%Sbo?2)R%Sb3DV)R%S`Ool.%%S^i2f;R%S^'oCZ~~S\D2%MR%SZfY*qR%SZ3hZ-~~SVP3DzR% !STM%qzR%SRUT/DR%SP\o';R%SNkcVQ~~SN'unm%%SL;zvMR%SJVIu~~~SHt=+hR%SH5}*qR% ifeffit-1.2.11d/src/fefftab/71.dat0000755000175000017500000003577010771740460015502 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] lu.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] lu_k.amp !Q%%%%%%%QF]<,CloQh;o7))RR0%=LCj{R2f+?2:=R6To*MM{R:Nd3PMbR>V+xVt'RBi:H4mERH+Q-jYx !RLIEWL,'RP_}vBA}RTg=hsU*RXU%4R@VRZ|9oR57R\zS;n2>R^Ix]gq>R^B'n*)nR\]wP-xTRZEzIl3= !RLF\0,wmR>L*b9.VR6{<*]R6N>G*[^RDL]faX@RReUKUCSR^f%:3S0RhNFX`mMRnkJ9Du_ !Rrw=z:RvRv*j((}KRvOYLD^{Rv5S=H@9RtLiaYSERr6^:6VRRnc;=|w,Rj|vmq]DRh8U]lstWRTQk|p+\ !RX4mj8@MRXflxrQ5RX2UAErORV%0;Y?.RRX)N3-*RNeF]l~6RL.6C?+)RFz}s0?ORBiRC+CX #% [ 59] lu_k.phase !RlgK[u~~RB.lb_R%R/o=T;R%RU5Z:2R%Rw4sL2R%S/ddvmv%S38ew0;RS5b)6)zRS9.YBC[%S;SE=;zR !S=ve^Jm%SA>[BWqRSC^eF/m%SE|IL>_RSI=L'WqRSKU2NDzRSMi*g-:2SOxPZb;)SS(h/}7%SU,pwDR% !SYV.^wDRS[__c%v%S__=~F@%S_+vahR%SWzS8DR%SYwl~~So+29d%%SqX;zQ~~Ss}G[MR%Sw@\P_R%SyTunl~~S{`l^[%%S}dOT;R%T-W~NH~~ !T-jzAl~~T-{-8Td%T/.RmQVRT/7}%Y_RT/@em%%T/A*Y7%%T/EA@MR%T/JqXt_RT/dB>C2R !T/wJuvv%T10tbg[%T1D53iI%T1W78q)RT1jRl>7%T1|Llnm%T35,{([%T3Fpx3I%T3UxA}7% #% [ 59] lu_k.caps !RPr0?VR%RPkt{qR%RPY-b_R%RP9a3qR%RNgT/DR%RN.N@v%%RLB=T;R%RJHZzzR%RHA/L[%%RF+8@MR% !RB`BSl~~R@+miqR%R<@[=?~~R8Cv12R%R44MEqR%R.k+;zR%QPNfWqR%Q3K?2)R%Qs,od%%%R3FlVQ~~ !RM>N,_R%Re.DZ.%%Rmx5od%%Rs}oc~~~R}1:[%%%S-y0+@%%S/UwhzR%S18*Y7%%S1y'3H~~S3bgZ~~~ !S5N^s@%%S7;Zvv%%S9(pNqR%S9oaX@%%S;[B|?~~S=EBx;R%S?-9CZ~~S?ljD)R%SAOq%MR%SC0P{qR% !SE`^*H~~SI0&LZ~~SKX~F@%%SO*EDzR%SQV4L2R%SS~)zR%%SWD(c.%%SYZs`I%%S[jr];R%Sc8>K;R% !SgG0Sm%%Sk@O/m%%So3Th)R%Sq|zAl~~Su^HF?~~Sy9LRv%%S{lJhzR%T-T=/l~~T-`kK;R% #% [ 59] lu.rep !S8bbC2R%S8cIz)R%S8e^Jm%%S8iB/DR%S8nRahR%S8u6-~~~S8}Bh)R%S:,x[v%%S:8'C[%%S:DY?-~~ !S:RZNH~~S:b.QVR%S:s(.MR%S<+R9;R%S*/P_R%S>D+xc~~S>_\Tc~~ !S@cgRv%%SBVc%v%%SD3xl.%%SDgfh)R%SFE\q)R%SH%v%%%%SHbPwm%%SJG9';R%SL-yg2R%SLpI57%% !SNZI12R%SPEr@u~~SR2Q6.%%SRz8P_R%SThwujhR%S4VRmu~~S4o-B;R%S6.PgZ~~S6H_Iu~~S6cJhzR%S6~ljhR%S8@`U2R%S8]&(2R%S8ym]d%% !S:i=`I%%SMZRMR%S@Am%%%%SB7*KR2((_v))R6wKkg6WR<_f:(k7RB6T?*'lRFR^OO]|RJZ_a@,?RNKKyUjmRR%|w=c_ !RTDBV.I)RVOU&[oTRXA]EM8,RXy=0n0;RZ>RsxFqRZGOTdB3RZ;7&`mrRXu>;`vERXB(*vxLRVWgtA0< !RPC{vW]RV6*EhaHRVgoU@ZN !RX:B%x@jRXjKDB[vRZD}KU&DRZt{r,PxR\>(mR(;R\Dq7pBdR\2[vr=`RZda_|EaRZ.`6Tt7RXKqdKpW !RT^z@S-&RPdmUk(KRL?7{a@%RFf*C}&mRBra2<;^RBD%4DMzRBtMobk_RD}DAl)eRHJG`bERRR4SqRRX !RTnRwWV\RVEuV|_6RTyseFo9RRr@7&zcRPZR(a)xRLtn+;d^RJB6x?-bRFH4P7%%RBB,?TWj #% [ 59] lu_l1.phase !RX[BWqR%Qn-vv%%%RGFh-VR%RoD}gZ~~S/]}pRv%S3KpeTd%S70}wm%%S9gOn}7%S=;Tp2R%S?a<+L2R !SA~bn,7%SE9~%-.%SGGX,{qRSIMvn@MRSKM]8`qRSMGGmahRSO;k+;zRSQ+<6F@%SQo~MVM{SSV+h`Y7 !SW@`cfd%SY<.VnDRS[A%SXhRS],8o';RS][g1>_RS_1nq)R%S_k_vMR%Sa^PO@%%ScdO/l~~Se{K';R% !SiDIQVR%SkmGK;R%So<[9;R%Sqac:2R%Su%_f;R%Sw;)RT/EG1Bd%T/Jt0Sm%T/cKfKd% !T/v:NqR%T1/Lx3I%T1BQub_RT1UVs7v%T1hkt2zRT1z`kK;RT33J)j@%T3D~e,7%T3TC+\DR #% [ 59] lu_l1.caps !Rjx_V)R%Rjn712R%RjNqvMR%Rht|`H~~Rh,tWI%%Rf+6>7%%RbpNqR%%R`IKt7%%R\j`H~~~RXzi,_R% !RTz4'c~~RPi<([%%RLH'/DR%RFpO;zR%RB.2EqR%R<4J0;R%R6(?)zR%R.bLs?~~Q:viM)R%Q[])b7%% !RE\-nl~~R]F_5_R%Rg/6B;R%Rm=-jhR%RufyNqR%S-]8`qR%S/<3U2R%S/zB[v%%S1ba/m%%S3MiQ-~~ !S5:at_R%S7([IMR%S7pg2Q~~S9^Jl~~~S;K&(2R%S=6'/DR%S=y)Z.%%S?_qZ-~~SADCo;R%SC&P_R%% !SEZS`qR%SI-&dv%%SKWcfd%%SO)KSl~~SQTslVR%SS|HRMR%SWBG;)R%SYYg[%%%S[jJTd%%Sc83Q.%% !SgFf+?~~Sk@O/m%%So3_b6~~Sq|oG_R%Su^L&DR%Sy9WM)R%S{lJhzR%T-T=/l~~T-`o+?~~ #% [ 59] lu_l2.amp !Q%%%%%%%Pfq&]rQwQ2XKyEgGQ8rsSa&,Q@0l]:TTQF>E38eeQL7>G_NEQPcLL8XhQTdb\lSgi0331RBqH[\EeRFN2PG7%RHViRx'; !RJ;AvmMvRJcz`LLoRL)9KRRERLBa|hR%RLX}WOWQRLaP?&dvRL\TAM,hRLM5vAZFRL2BJIEIRJkmK%O0 !RHk`eQ\}RF]M%mXqRBw0>nT@R>sE^nxDR<@HTlV.R:~U)0cERRN,w,/)r !RR,ah|NkRT%}eIO|RRqdeyHFRR(nOPPtRP&JBMn^RLP^j0P:RJ;3K?qpRFr&Ls*1RD1v9Sd< #% [ 59] lu_l2.phase !S5mY_Q~~S9r@QVR%S=T:>_R%S?nDQ~~~SAiI%%%%SCJqrI%%SCtX7u~~SE;8,6~~SEZE,_R%SE|-F?~~ !SGGV~VR%SGoy*I%%SI?c)zR%SIhlfc~~SK4NY6~~SKQ1:Z~~SKU@ahR%SIRf7MR%S?*2Am%%S9EDV)R% !S7z}C2R%S7R:NqR%S7kK_zR%S7yWiH~~S99_1Z~~S9s=|hR%S;e\m%%%S=fG;)R%S?pX|hR%SC'g_)R% !SE>)9c~~SGVvMQ~~SIoP2zR%SM+C_)R%SO;%MR%%SQE([%%%SSH+3qR%SUEGk_R%SW=LVzR%SY09OhR% !S]%D~VR%S_T5~>7%Sa`dY;)RScDJ.9;RScS'YO@%ScE&)EqRSc?Ja`I%ScNv34hRScog3@v%Sgo7%%SPzlB;R%SPuPod%%SPn6fd%%SPdtG6~~SPYdEI%%SPLg{I%%SP>,O@%%SP-m56~~ !SNv'';R%SNbryZ~~SNNFX?~~SN8]7MR%SL{d12R%SLc[EI%%SLJBt7%%SL/tcVR%SJn5SDR%SJQ2)Q~~ !SHG66.%%SFPA0;R%SF0{uVR%SDz38m%%SDaMj@%%SDAkG6~~SBvq1[%%SBMcnl~~S@z`Y7%%S@J93H~~ !S>phEqR%S>:WDzR%S<\@MQ~~S:|Kh)R%S:A`qR%%S8`QRMR%S8%TG_R%S6EBSl~~S4f5K;R%S4.\P_R% !S0_O|hR%R|3/,7%%Rb]OD)R%RJ<>shR%R0aUs@%%R3(1>_R%RKMQ6-~~Rc1HjhR%Rwyb?-~~S36K|@%% !S71{I%%%S9u5?-~~S=ShV)R%SA2>2zR%SC_wi9Q2Ft=)xPQ8H7m:8}Q>7Z>+C;QBiXmK9tQH'AkMHcQJwDEhhbQNO*9ZLkQP^U`Ltx !QRDfrUVzQRNQAv2jQPmsK5&mQN:PR?%-QHgk%*~NQBP9(09tQ:~Un8VfQ6ZI>nbtQ82B2T]xQ>BqY|C; !QT_l/?^[QfK+-wsPQze>'{|qR0QSQB%^R4N|p[%%R8my{Z0pR>;]Bp.rRBE=I.iMRD{e5wm%RH)]=(Rv !RHf\l/USRJ3:xV'PRJP-A2eqRJfTKQjhRJzV]<@vRL&S1ZSJvBmemR:v~Xi'HR:\z@piCRlDL(kXRBLk.qmhRLZ7Ae@N !RPYG/E,0RRSV+bHCRRIiW(E1RP`)tWH~~SAH9h)R%SCX}{qR% !SEn|H-~~SI-NmMR%SKEZJDR%SMZxSm%%SOireDR%SQs7v%%%SSuKWqR%SUr-rqR%SWidU[%%SY[xKd%% !S]Pn,6~~Sa%|:Bd%Sc2TOD)RScoK-B;RSc|1<8m%Scl&5SDRSce7N@v%Sct[_f;RSe;f47v%Si9V^2R% !SkrM)R%%So\6B;R%SsAj3qR%Sw(WDzR%Syow(2R%S}Ms\DR%T-\W;^2RT-klrqR%T-z(M9d% #% [ 59] lu_l3.caps !SR%))R%%SP}~>7%%SPzlB;R%SPuPod%%SPn6fd%%SPdtG6~~SPYdEI%%SPLg{I%%SP>,O@%%SP-m56~~ !SNv'';R%SNbryZ~~SNNFX?~~SN8]7MR%SL{d12R%SLc[EI%%SLJBt7%%SL/tcVR%SJn5SDR%SJQ2)Q~~ !SHG66.%%SFPA0;R%SF0{uVR%SDz38m%%SDaMj@%%SDAkG6~~SBvq1[%%SBMcnl~~S@z`Y7%%S@J93H~~ !S>phEqR%S>:WDzR%S<\@MQ~~S:|Kh)R%S:A`qR%%S8`QRMR%S8%TG_R%S6EBSl~~S4f5K;R%S4.\P_R% !S0_O|hR%R|3/,7%%Rb]OD)R%RJ<>shR%R0aUs@%%R3(1>_R%RKMQ6-~~Rc1HjhR%Rwyb?-~~S36K|@%% !S71{I%%%S9u5?-~~S=ShV)R%SA2>2zR%SC_wRV.*ne93RV)E2mU[RTJB5v]@RRyl`m>xRRgC4-|}RRYR^&l[RRLoB^}'RRFER|ie !RRL=>q/YRRmyFm|,RTJ=zG]tRV.2{;KxRVaThpykRV~--7W9RX&wj*FXRVo-ow{~RVKsT70DRTz5N?[E !RR\@M'DnRP'ckU84RJt*jrzJRFSg%q3*RBmRY4CuRB@Qds4YRBnPl/)jRDs>UWSURH:t]8rDRPn|VoA} !RTMb&\,qRV%C+(`iRT\g7cz*RRVnHXKsRPBx@{JdRL`QY.68RJ/W_eq*RF:S[wE/RB7,}L|) #% [ 59] lu_m1.phase !RT@`0c~~Qt4T;Q~~Q[+t_R%%R155k_R%Rw9BG_R%S1pf`iI%S5s_RSOE1K[v%SQ/3^zZ.SQoEG7%S]?FUs@%S]yS@MR%S_^cRMR%SaR\P_R%ScWa@%%%Sen`qR%% !Si8}[MR%Skco7MR%So4Jy2R%SqYaT;R%Ssvd56~~Sw2:Rv%%Sy@EmMR%S{H0p2R%S}IkO@%%T-U<*8m% !T-g~:2R%T-w0g:[%T/)4'c~~T/27%%RLyHF@%%RHD=hR%%RBXVb7%%R<[k*qR%R6Lv12R%R0*U{H~~QBMk.v%%QU?ZVR%% !REBz=hR%R[}Bh)R%Re\A`qR%Rkfys?~~Ru:aP7%%S-Y;MzR%S/8ZjhR%S/w7z)R%S1_o|?~~S3K47u~~ !S58BOhR%S7&Fxd%%S7na;zR%S9\OpZ~~S;I2EqR%S=4>G7%%S=wH2)R%S?^Df;R%SAB{uVR%SC%@z)R% !SEYhIu~~SI,_vMR%SKW\LZ~~SO)KSl~~SQTslVR%SS|=X@%%SWB<@u~~SYY`@u~~S[jJTd%%Sc8:k6~~ !SgFbK;R%Sk@RiqR%So3f|?~~Sq|s'd%%Su^O`H~~Sy9[--~~S{lJhzR%T-T=/l~~T-`o+?~~ #% [ 59] lu_m2.amp !Q%%%%%%%R2A,~?`9RFYFvNl_RH+7xwL[R:a=^eF0R4Jl>IzrR0e`@EthR.ke;9?VQz{.?PodQvolhs%b !QvJ4[~K3Qvy|.K+@Qxnn-@RjQzZ&`nYWQ|(xI:&iQ|6@yzGtQ|+b;_M2QzqdBBJWzR@\{rX9T !RB3}2SraRBR+SP;)RBkIC=^GRD&KI.emRD9eEV(cRDArklkWRDA+kGT3RD4(a/HVRB{mgxE]RBdP^qb7 !RB)G@i,;R@DUU_0lR>7wvwmXR:fxIaN_R%S?Co;Q~~S?RTG_R%S?_/}6~~S?i\(2R%S?r(6VR%S?x^Bc~~S?}yo;R%SA(2vMR% !S?|/l~~~S?QljhR%S?I\P_R%S=|_~VR%S=G^c-~~S=F_R%SNPi];R%SN:x|?~~SL}t{qR%SLedu~~~SLLAP_R%SL1l%v%%SJp%U[%%SJRq1Z~~ !SHHX/m%%SFQX/l~~SF2&`qR%SD{%iqR%SDbqHb_R%S>;;Am%%S<\zj?~~S:},*qR%S:B=T;R%S8a.57%%S8&1*I%%S6EuVQ~~S4fhMzR%S4/1s@%% !S0_tK;R%R|5dEH~~Rb^6zzR%RJ;iQ-~~R0`_b7%%R3(dADR%RKMXP7%%Rc1:6VR%Rwy[%%%%S36O\DR% !S71{I%%%S9u5?-~~S=Sl6.%%SA2>2zR%SC_w7QtdXR=]3Qxx[+DU;Q|t\D3h6R.VLNzXqR.aCzb/eR.iImu~~R.nN}l}lR.p@?q^3 !R.[>CcT>R._kYO]3R.o7C?NIR.}5qpT[R0me%x';R4F0?p&DR8<(&st`R:}NUV8uR>@^b>FHR@5homem !R@cDjYSER@~-QLFhRB:2WO+iRBKa0y*IRB\&i5^cRBa-+il_RB]uN_ZwRBN}[@goRB;=-J@rR@|{\L[% !R@Ak`[RjR>`BY6SV+*;G6RHU3cjkJ !RLWo9RNaSA}H1RNrBoc:PRNDY|+zERL[e2(NcRJGYz%+:RHE<*QYhRF.yMrJNRBQANw^Y #% [ 59] lu_m3.phase !S?7%%S?V`4hR%S?aa\DR%S?mN@v%%S?yfh)R%SA,TWqR%SA9F'd%% !SAP0Sl~~SA?6vv%%SAHSn,7%ScR.pg2RScHN:Jm%ScV}czzRScxDnDR%Sgu4t_R% !SkSN];R%So>@ADR%Ss%<,_R%SugYk_R%SyVtK;R%S}6zV)R%T-ZT^Bd%T-j%i([%T-xLO;zR #% [ 59] lu_m3.caps !SR(;%MR%SR'6:2R%SP}z^2R%SPx_1Z~~SPq=hR%%SPgwhzR%SP\`M)R%SPOY.u~~SP@pBd%%SP0OhR%% !SNx\@MR%SNeC>_R%SNPi];R%SN:x|?~~SL}t{qR%SLedu~~~SLLAP_R%SL1l%v%%SJp%U[%%SJRq1Z~~ !SHHX/m%%SFQX/l~~SF2&`qR%SD{%iqR%SDbqHb_R%S>;;Am%%S<\zj?~~S:},*qR%S:B=T;R%S8a.57%%S8&1*I%%S6EuVQ~~S4fhMzR%S4/1s@%% !S0_tK;R%R|5dEH~~Rb^6zzR%RJ;iQ-~~R0`_b7%%R3(dADR%RKMXP7%%Rc1:6VR%Rwy[%%%%S36O\DR% !S71{I%%%S9u5?-~~S=Sl6.%%SA2>2zR%SC_wOL{8[S0@|quo%RhB3r3C`RX:DUzk{RTKeN(+hRl.HGdq2RlNmZ\}7Rl/^5`@vRj*08?b;RfPz+StdRbTf9zHcR^Ef99t7RZ&^==y. !RL,D4v+,RHRp^I57RFJccT9tRD1WP\T+up?sR<{U.6v-R<~&w0;RR>W4c+7RR@=i,Pwm !R@qi@]8p[|P7%R>\)aLpOR>GOtWP? !R7%T-yRB|@% #% [ 59] lu_m4.caps !T07]?VR%T08/(2R%T09[u~~~T0;~zzR%T0?Aq)R%T0CBc~~~T0Gz9d%%T0LxWqR%T0R'p2R%T0W-NI%% !T0[ox;R%T0`0?VR%T0cq^2R%T0f|@%%%T0iL_)R%T0k@ADR%T0lW@v%%T0m>wm%%T0mMR%%%T0m0CZ~~ !T0i/P_R%T0d12Q~~T0c[iqR%T0cM5_R%T0bL*I%%T0a*0c~~T0_S\l~~T0]yNqR%T0\E@u~~T0Znl~~~ !T0YEY6~~T0WreDR%T0V>WH~~T0TR57%%T0RSXhR%T0P7mv%%T0M\Td%%T0J`M)R%T0GJq)R%T0C}&l~~ !T0:dADR%T01K[u~~T0(x3I%%T.{@u~~~T.t.-.%%T.lfd%%%T.d~RMR%T.]-fc~~T.U[IMR%S|<~NI%% !Sxrsxc~~SvUxWqR%StG6ZVR%Sr6S`qR%Sp*8HVR%Sn(_)R%%Sl%ndu~~Sj&{Y6~~Sh0(s?~~ #% [ 59] lu_m5.amp !Q%%%%%%%RNh->;n'S0D%gT=yS0G6Aj,xRhlvCe9%RXYa:3|bRTclpX+.RVmG_[BnR\3g[B&>R`m1&p:[ !Rf7T}QkLRj*l%C%YRl8C6dDZRlVC|%ahRl4ON,%5Rj,1r&-&RfP6zmgoRbQH4sW-R^@1}t+`RXy8M=1o !RJ|8lwdvRHF{@F\ERFEZ(,odRKykZi4DR>dq'HNIR>O|V76&R>;dF]Lw !RafRPKA/nQsRNzy@pBdRN7fD_(cRJrS'ZGARHmfyruwRFhH=?^xRDK\`;,8 #% [ 59] lu_m5.phase !RtFhR%%%RPJm%%%%RPNqQ~~~Rt>_R%%%R^(2Q~~~QP[%%%%%RY.%%%%%S/1wDR%%S3>cVQ~~S7-vu~~~ !S9`qR%%%S=)5_Q~~S?>WH~~~SAI%%%%%SCJy2R%%SEE4hQ~~SG80;Q~~SG~ZVQ~~SId57%%%SKBt6~~~ !SMcZVR%%SOC.MR%%SQ>2zR%%SS+'c~~~SSq-VQ~~SUnXhR%%SY(Bc~~~S[IMQ~~~S]lZVQ~~Sa.qzR%% !ScEM)R%%SeY[MQ~~Sgn4?~~~Sk(Bc~~~Sm8L[%%%SoBOhQ~~Sq@iqQ~~Ss3eDQ~~Sstwl~~~SuPG7%%% !SwZnl~~~SyHRMQ~~Sy{y[%%%S{2zQ~~~Sy[UZ~~~SwDzR%%%Su9d%%%%Ss]p2R%%SsL&DQ~~Su+[UZ~~ !Sun~nm%%SwnGC2R%SynU.MR%S{q(>_R%T-R:RQVRT-[ZrqR%T-ey+7v%T-pWSTd%T-{3k&m% #% [ 59] lu_m5.caps !T07]?VR%T08/(2R%T09[u~~~T0;~zzR%T0?Aq)R%T0CBc~~~T0Gz9d%%T0LxWqR%T0R'p2R%T0W-NI%% !T0[ox;R%T0`0?VR%T0cq^2R%T0f|@%%%T0iL_)R%T0k@ADR%T0lW@v%%T0m>wm%%T0mMR%%%T0m0CZ~~ !T0i/P_R%T0d12Q~~T0c[iqR%T0cM5_R%T0bL*I%%T0a*0c~~T0_S\l~~T0]yNqR%T0\E@u~~T0Znl~~~ !T0YEY6~~T0WreDR%T0V>WH~~T0TR57%%T0RSXhR%T0P7mv%%T0M\Td%%T0J`M)R%T0GJq)R%T0C}&l~~ !T0:dADR%T01K[u~~T0(x3I%%T.{@u~~~T.t.-.%%T.lfd%%%T.d~RMR%T.]-fc~~T.U[IMR%S|<~NI%% !Sxrsxc~~SvUxWqR%StG6ZVR%Sr6S`qR%Sp*8HVR%Sn(_)R%%Sl%ndu~~Sj&{Y6~~Sh0(s?~~ ifeffit-1.2.11d/src/fefftab/34.dat0000755000175000017500000003002610771740460015466 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] se.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] se_k.amp !Q%%%%%%%QT]4X)I-R.b3/zxtR2vJ*4hRR8%-=&WzR:xv`B6_R>_f.nGhRB1^(SsPRDF;+zT'RFAd)-2) !RF~&+@mvRHE-RfE6bflRRfs+@pnMRf[xx7Q2Rf+X`c[jRd4>gm,1R`h:LvbfR\{G9wYfRZ6*W_HcRV[]Mz?kRLA~`'gf !RFM6~-r\RB&w+D[+R<`GY'3mR:AZ6JE:R6_ISnV;R4WM:YurR2V{7'^`R0?RMR%SL|p6VR%SL_ZRMR%SL@_f;R%SJz-2)R%SJX+D)R%SJ4Vb7%%SHi\L[%%SHC8}6~~SFuIz)R% !SDMxt7%%SB;pFhR%S@X^k6~~S@4SL[%%S>cdahR%S>5}O@%%S2`Y7%%Q3x_V)R%R=|XdMR%RUevel~~Rm:NqR%%S-hAHVR%S/o9t6~~S1p=p[%%S7Xwu.%% !S;AgBd%%S=xWqR%%SAIqV)R%SCpSdv%%SG4P6~~~SIJ_R%S6u(Bd%%S6{tC2R%S8*]_zR%S853DzR%S8AOL2R%S8OT;Q~~S8_38m%% !S8pI~-~~S:)7=@%%S:=Mj?~~S:S3Q-~~S:j>k_R%S<(l%v%%S>TWqR% !S@Gp.MR%SB>9Kc~~SB{RADR%SDVO|hR%SF6+3qR%SFr;^2R%SHV`Y6~~SJ=1Jl~~SL%H^[%%SLi=`H~~ !SNTX;zR%SPA,6~~~SR.bWH~~SRwqY=^kR:0^%AwUR6whX&_:R4VRdGl*R0rVa,EVQ~7T0>c{R.W\^iR0>G*IwGR.s5KAj; #% [ 59] se_l1.phase !S8F4;zR%S43Znm%%S0(ey2R%Rb)~VR%%R:T?VR%%R580;R%%RY6.%%%%R{M=hQ~~S1%@z)R%S3Zx/DR% !S71Df;R%S9](s?~~S=*I%%%%S?N/,7%%SAn`qR%%SE2h=hR%SGO)Am%%SIjQnl~~SM+s'c~~SOGtWH~~ !SWCat_R%S[R|+hR%S_Z/\m%%Sc^S@MR%Sg/ZjhR%Sgd))Q~~SeqR%%%%San/LZ~~S_aqnDR%S_Uk[MR% !S_r&4?~~SaG^c.%%Sc(c-~~~SckHJDR%SeYj'd%%SgKh)R%%Si?1_)R%Sk3@QVR%Sm&JXhR%SmrWUVzR !SqrT-fd%SudM?jhRSyJ8gr,`S}'96:2RT-W,CL&DT-dN7kshT-qL}&m%T-~&hV)RT/0+1Jm%T/Q^/_R #% [ 59] se_l1.caps !SPhM1Z~~SPfz=hR%SPbJ(2R%SPZwdv%%SPPVZ.%%SPCG{qR%SP3Vj@%%SN{7Y_R%SNfOD)R%SNOR]d%% !SN6LFhR%SLuK3H~~SLX]WqR%SL:-:2R%SJsy.MR%SJR:NqR%SJ/,[MR%SHdOT;R%SH>Ls?~~SFpwDQ~~ !SDJBOhR%SB8HVQ~~S@TwL[%%S@0oh)R%S>`*];R%S>2R%%%%S<^_rI%%S<0bk_R%S:[h9d%%S:+DMzR% !S8SU.MR%S6zCo;R%S6Ey6VR%S4jDrH~~S43pc.%%S2Vb6~~~S0y/0=T;R%Q5/C>_R%R=}@ADR%RUezEqR%Rm:<];R%S-hAHVR%S/o=T;R%S1pAP_R%S7Xwu.%% !S;AgBd%%S=xWqR%%SAIqV)R%SCpP*qR%SG4P6~~~SIJ8hzR%SK];-VR%SMj/HVR%SOqWR4?Zlg.MR6rk,]t7R:=*dN@vRW{%mrER@KVm^e0 !RB,=F1YGRBT^[qV*RBi*7^'3RBjaTBl.RBXTZV}hRB3ho|@%R@Y;nhzRR>pT'Bl.R<}9c'SmR<*'0RGK !R6O@u]NzR6%3c/?_R6'P-)*AR6&q,~xTR4uGAqrIR4&'pv`UR0N>|?MLQp.ee)qZQ^)&7cnIQpN2-Gwm !R0_s:{WYR4n*x5K;R:&\dHm5R>9]W,;*RBKK~XP[RFXZWh~WRJ\Z=Vb7RNWY7sftRR?Abb}ORTp(nP;) !RZS:RVFMZ>8oRT-uZwG&RJX79zdH !RDz==r1tR@f01l`9RwHVRT3'BG_R%T3-.3Y7%T32h^VzR !T3?ynL[%T3L&hzR%T3W3QRMRT3aKr}_RT3k0/DR%T3tF]|@%T3}O?~~~T5,BNU2RT54sW,_RT5Lv12R% !T5\eRahRT5kkn,7%T5zj-jhRT7.P?RMRT7{qR%T7eSqMzRT7o5v~.% #% [ 59] se_l2.caps !SvJl6.%%SvJ93I%%SvHPK;R%SvEW}_R%SvAL6VR%Sv<%iqR%Sv5;)R%%Sv-*iH~~St}G[MR%Str7Y_R% !SteIiqR%StVzQ~~~StFsL2R%St5%~.%%Sr{MMzR%Srf.UZ~~SrNy[%%%Sr5z^2R%Spu*DzR%SpXHnm%%Sbps@%%%SbHMZ-~~S`y5C2R%S`N};)R%S^~%v%%%S^RKt6~~S^&Q)zR% !SZmw2=hR%Sx%zrIRYvpT'Bl.R<|x^ufdR<)N`_b7 !R6N2.DaH.RBBu{3-*RFO/8%2jRJRL}C{IRNM&N];RRR4L33)JRTe02QeQ !RZH}pNTDR\fVs\e@R^8UZ'`xR^?md~ejR\yWh\1eR\(&K)5%RXe[{M54RVC>@10bRT*nSr}gRJVp<}}H !RDz,@?@lR@eCR4P?3(ErR2cfVa_LR0f-Xv`?R01,+\'D #% [ 59] se_l3.phase !S7SQNH~~S;f.UZ~~S?qlB;R%SCv2EqR%SGs8@MR%SKh`}_R%SOV1[%%%SS;eL[%%SUsOlVR%SYI&8DR% !S[pM^2R%S_5od%%%SaM.iqR%Sc\qrH~~SeelZVR%Sgho3I%%SifG_R%%Sk`viqR%SmXt;)R%SoQ1:Z~~ !SuEW}_R%Sy5=+hR%S}KPWI%%T-a|Ywm%T-rup&DRT/'G>cVRT/6NbSDRT/K=qIv%T/o,HJDRT18][u~~ !T1Kz=hR%T1WmTl.%T1`c|X@%T1h<0c~~T1o8Cc.%T1ufny2RT1{y:6VRT3'y*I%%T3-dpBd%T33EA@MR !T3@Rq1[%T3Ldem%%T3WqNDzRT3b3Ot_RT3kfl-~~T3tv&\m%T3}~b_R%T5,|kC2RT55[3}_RT5MO3qR% !T5]M/XhRT5lW+'d%T5{JJXhRT7/BpVzRT7=YSDR%T7J]y*I%T7W8l~~~T7f?.IMRT7o{3y[% #% [ 59] se_l3.caps !SvJl6.%%SvJ93I%%SvHPK;R%SvEW}_R%SvAL6VR%Sv<%iqR%Sv5;)R%%Sv-*iH~~St}G[MR%Str7Y_R% !SteIiqR%StVzQ~~~StFsL2R%St5%~.%%Sr{MMzR%Srf.UZ~~SrNy[%%%Sr5z^2R%Spu*DzR%SpXHnm%%Sbps@%%%SbHMZ-~~S`y5C2R%S`N};)R%S^~%v%%%S^RKt6~~S^&Q)zR% !SZmw2=hR%SQ.X(R>pADI;bR@{'tJTRREIR<:aFRGpR:(lHJ^& !R4FZJM\0R4Rp>BC[R6)=W%EIR6:0x>JMR6&*x(@=R44N=r]=+hRR^=dMKLSR`cDU,&m !Rdk]RM<1RfDi'}Z_Rf4Uw@TKRdbR-tuYRbnU8;?rR`KR\HqPR\aq*T2.RXyjY+I+RVHVe'-FRL5g,{+S !RFCoM_c&R@yxPCeUR<[,\{GdR:=ByC5hR6[on*=RR4U-2=w,R2TZp|,:R0;u(9P(R.r-jN}` #% [ 59] se_m1.phase !S<(hEqR%S6p1>_R%S2e8hzR%S.awP_R%R\9;R%%%R6P&m%%%R7REH~~~RYiU2Q~~R{BCZ~~~S/x5K;R% !S3Mx+@%%S5xbG7%%S9DrmMR%S;f~fd%%S?+miqR%SAH.mu~~SCc/8DR%SE~:VzR%SIAKl-~~SKbwHVR% !SU7)MzR%SYkWH~~~S_7%%Sei>*qR%Sg9(*H~~SehZ-~~~Sc[ZrqR%Sab,shR%SaF5O?~~ !SaR)MzR%Sau_Iv%%ScN2f;R%Se0Y*qR%Set0x;R%Sgbe_^2R%S>7q1[%%S3l^[%%Q3q(>_R%R=|?6-~~RUf'_zR%Rm:del~~S-hE(Z~~S/o9t6~~S1p=p[%%S7X{U2R% !S;Aj|hR%S=x[QVR%SAIu6-~~SCpSdv%%SG4P6~~~SIJg[%%SMj/HVR%SOqWW%l}]+R@};(wS,RD0`T]/DRD~rTtmb !RFWIvE+qRFm_Nn1ORFh}8y{IRFI}uCGWRDjV/NU{RBtHMP]+R@ihPj6>R>O`XJ_^R<,i:j2:R8cg&Xw, !R2Goys@%R2*}jz+yR2M{zh2nR4*Bj+GdR4]7z~*iR4lUHr([R4T8}XU*R2sa{t0xR0|%T2s\R.}]D6YC !QxxRX%s}Qtn%nsq%R.^mF=?SR2&/C0+@R4lNt{>OR8kpUnL[R,O !RDuaD7DZR@dqE:U&RcD=hRT/E2f;R%T/KtT3I%T/T(<];RT/_?7em% !T/o`2f;RT1+Wf|@%T1AG?RMRT1R&`M)RT1^>E}_RT1g~m57%T1p9Ny[%T1w[Y_R%T1~HPod%T3*jXdMR !T39GBC[%T3FVb7%%T3RY[qzRT3]`tC2RT3h%MR%%T3qoE];RT3{EiH~~T5*]FL2RT53U=L2RT5LFhR%% !T5\S>K;RT5ks.57%T5{)\0;RT7.|(.MRT7=Jy2R%T7J]y*I%T7W&XhR%T7f0T7MRT7oe?^[% #% [ 59] se_m2.caps !SvJa;zR%SvJ.9;R%SvHEQ.%%SvEM)Q~~SvAA7%%Sr{Th)R%Srf5oc~~SrO*U2R%Sr6/8DR%Spu8y2R%SpXN}_R% !SnO7-.%%SlOFP6~~Sj}hnDR%SjfsH.%%SjIh^2R%Sj+)f;R%She&m%%Sd>ShzR%Sbpvz)R%SbHQ:2R%S`y8}7%%S`O&u-~~S^~%v%%%S^RKt6~~S^&Q)zR% !SZmw2=hR%S%M<1R:r^Gtx7R>T(wQ<5R@yo^Q>7RD,hrEDzRDzY0Sm% !RFRo~,G7RFhu~JsuRFd8PH4PRFEF@G~>RDf:cbPxRBp[lwKHR@f\Ecu>R>MDb,lNR<+B.\3QR8c5E903 !R2G5}shRR2'@mazfR2H5NS_^R2}ti/B+R4Vn|J>pR4dIi&j}R4Gggb\C2R%S_g6zzR%Sc5,O?~~SeWo+?~~Sgt[qzR%Sk3.=?~~SmFurqR%SoW`,_R%Sqfe8DR%Ssw9WqR% !S{gx3H~~T-[z8,7%T-q:G{qRT/)WhZ.%T/5GfG_RT/=b9';RT/D`}_R%T/K{n7%T3+kczzR !T3:.y:[%T3G3DzR%T3S6>[MRT3^9w(2RT3hQ6.%%T3r=N4hRT3{u2)R%T5+=c:2RT54@TG_RT5Lyk7%% !T5]7;=hRT5lW+'d%T5{`>shRT7/jy.MRT7>66-~~T7KEU{I%T7W~)zR%T7fyK7MRT7pPVZ.% #% [ 59] se_m3.caps !SvJa;zR%SvJ.9;R%SvHEQ.%%SvEM)Q~~SvAA7%%Sr{Th)R%Srf5oc~~SrO*U2R%Sr6/8DR%Spu8y2R%SpXN}_R% !SnO7-.%%SlOFP6~~Sj}hnDR%SjfsH.%%SjIh^2R%Sj+)f;R%She&m%%Sd>ShzR%Sbpvz)R%SbHQ:2R%S`y8}7%%S`O&u-~~S^~%v%%%S^RKt6~~S^&Q)zR% !SZmw2=hR%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] cr_k.amp !Q%%%%%%%Qll/TCx3R4>|e']/R<;Q}bv5RDU8UFhRl(-/y{IRt,8T^40Rz:xed-. !R~B3huLGS.Vy4M\MS.[bkFeS.S()]6qR~CgZ~~~Roj3qQ~~S-RB3I%%S/:8XhR% !S1)mU[%%S1{gFhR%S3yJm%%%S5y7iqR%S7x';R%%S9sE'03I%SCU^3@v%SE61fC[%SG(Q>6~~SG}hzgs@SI{`7Y_RSKy|QJDR !SMv%X'd%SOpNPcVRSQh.mQVRSS\k8\m%SUN<([%%SW;}C2R%SY&93H~~SYgDAl~~S[L%12R%S].h^2R% !S_hrI%%%ScIXp[%%Sg-XT;R%SiiGG6~~SmCX|hR%SoqMzQ~~SsB?VR%%Suhx+?~~Sy.REH~~T-Zj1o;R !T-oA;Z.%T/(X,WI%T/O?~~S4dtk_R%S4L<];R%S41;Iv%%S2mS}6~~S2LwhzR%S2)(>_R%S0[RiqR%S0.eHVR% !Rl{W4hR%Rhzf;Q~~Rbca'c~~RZ0hrH~~RN]LRv%%RBOWQ.%%R4sD)Q~~Q8x~fd%%R1)6rqR%R?0RY_R% !RM4Mj?~~R[.b2zR%Rgt[qzR%RuNw}7%%S-b[MQ~~S/@8(2R%S/v(:Z~~S1PAy2R%S3)=D)R%S3[0C[%% !S5zNiH~~S93DzR% !S6RQ2)R%S6h[ADR%S8&Fxd%%S8?q^2R%S8Zz1Z~~S8wd-.%%S:<6jhR%S:\OpZ~~S:~\XhR%S`hZ.%%S@:~^[%%S@snXhR%SBUlnl~~SD:M^2R%SD{MrI%%SFdPC2R%SHOBp2R%SJ;eq)R%SL)IQVR% !SLr97MR%SNb&HVR%SPR`0c~~SRD'OhR%ST6%QVR%SV(VV)R%SVuUc-~~SXhy>_R%SZ\cb_R%S\Pk;)R% !S`a,WI%%SdrbSDR%Sj+4`I%%Sn>L*H~~SrR8q)R%SvfMf;R%Sz{)Iu~~T.Sd--~~T.gl%v%%T0J8DQ~~ !T0rVj?~~T2@xp2R%T2iDV)R%T47f[v%%T4`5{qR%T6.[ahR%T6W+'c~~T8%TG_R%T8M}g[%% #% [ 59] cr.lambda !T:,[MR%%T:.;)R%T8[H:2R%T88xC[%%T6mvmu~~T6HEuVR%T4~I12R%T4^,K;R%T4C62)R%T4/][u~~ !Sh@Pg[%%S^[HBNMrRDcw/NkpRJ]lo7n@RP;B1;nERTB5Py<9RVao=Ib3 !RX=z}B*-RX3XJ>odRVT7JYWIRTU+B+RDJ+Qf)b !R>g8t,siR_RR|uG4ft7 !S.Zp|wbtS.eu:wIS.^(<|&;S.VD][zGR~LJb1I~R|Dg:LJmRz/.s*FX !RrXd~~weRjUBRA{5RbDqTeOARZi|b1?lRTfTgD+yRP'VMTZ>RJ_FussERF`d-B)>RD'~[iqRR<60Vmub !R8@uq-Q(R4oz_CP=R2hkFK:0R0^l0HkWR0)A|3bxQ|kIh6kWQppbLYk_Ql6md}g7QRa>1j*z #% [ 59] cr_l1.phase !S6P{fWqRS2@l+|hRRzeE}_R%RXj+D)R%RNAXhR%%RB8/(2R%R4_Y?.%%Q6,Jq)R%R17J{qR%SC2w`qR%SE6+3qR%SG5cVQ~~SI3\q)R%SMsspZ~~ !SQLjlVR%SSy6VQ~~SWBkcVR%SYZO7u~~S[n1s@%%S]|=3qR%Sa(gVzR%Sc-O7u~~Se.2EqR% #% [ 59] cr_l2.amp !Q%%%%%%%QTFcm}FHR.r-H&w0R4l=\}fHRr+=QgSR:4d3<([R6&Bd_)/tMbRD\aGO1KRL-KFDrIRRbk?7OyRZ.'wL[%R`1PKOV> !RdX2{d}dRhLWNKKdRjg(QUTTRlV}?;PlRn(/_UI5Rn8BooC[Rn3n+,i]RlwNK:x|RlTH\p,'Rl%7@s07 !Rh'1vjW?RbBY1>59R\>^jgZERVRIN~R)RR)P>9CbRLlJE{8mRHf}ik|oRDzo/sjnRBMVsW|qR:qrgRk+ !R8'tYs0FR4Xget]fR2SJN(c'R0IkKMY1R.l?e1~[Qvxb4~*[QjNZ7uYNQhO9.%j~Q\,/?)TZ #% [ 59] cr_l2.phase !S3f5K;R%S7be}6~~S;,A0;R%S;y8}6~~S=@^.MR%S=>c2)R%S;}Dj@%%S;TBG_R%S;+h-VR%S9j3qR%% !S9`_=hR%S9fAXhR%S9tFH.%%S;(V1[%%S;.kO@%%S;&f/DR%S9ib.u~~S9MTp2R%S9=0[v%%S9EVj?~~ !S=Wb.v%%SA(E0c~~SE*IIMR%SI=@%%%%SMBG_R%%SQ*ZJDR%SSOf+?~~SU^UBc~~SW]t7%%%SYRcF?~~ !S[?_Iu~~S]'R57%%S]eRahR%S_E1Ru~~S_{;9c~~SaSY{qR%Sc'W([%%ScRTG_R%Scz<0c~~SeEm))R% !SgDcnl~~SiEd12R%SkMe(2R%SmWoOhR%So]F'c~~Sq^r,_R%Ss`KKd%%Su`4hR%%Sw[VIv%%S}DZvv%% !T-[8[57%T-i8kvY`T-x6aSL[T/)eQCNrT/7N^l%vT/C&0,wmT/M'GIa/l~~SJlI12R%SJB,.u~~SHsUNqR%SHL\\l~~SH'+dMR% !SF&{Y7%%SD(G{qR%SB'a3qR%S@&N];R%S>*:Jm%%S<5diqR%S:GY&l~~S8\P_R%%S6r/u-~~S2gEy[%% !S0V/}6~~R|zS8DR%RhCWiH~~RTw?:2R%RBaG?-~~R2/2b6~~QG>|;zR%R7ZgwDR%RExBG_R% #% [ 59] cr_l3.amp !Q%%%%%%%QT9iAt7nR.mwRqK/R4bjb779R<6Cd_:SRDC|6wKHRLWytn943u2R:1i2dl>R4~13uGxR2F0XpLKR0=vonjXR.`=Pp9HQ|V6&@MRQxhtTE]< !R2PK2NL;R4s|?|,WR6|A=G7nR:GvfIaiR>\N8l~~RDXy}\h2RL(`HmRERR]/q]7%R`*mmHLG !RdQT5HcsRhEnwZTtRj`F\GJMRlPGb%~.Rl{a69oDRn1ibaxdRn-C>n,7Rlpz4~MZRlMsj0T\RjxvxQ4, !Rf|1KuJDRb?gfb_~R\=Z]lv4RVQz;xcLRR(XwE^lRLk5b6UMRHf'7}.CRDzaqvIQRBM{A&QlR:qT~nXZ !R8'q>N8AR4X]jRNHR2Ruz;t.R0IJ0Gh;R.kgZ?E;Qvp[w92aQjF>_.DaQhBN:q?8QZxVWr>e #% [ 59] cr_l3.phase !S5,]+?~~S9)/}6~~S;LDAm%%S=>;)R%%S=]Z>7%%S=XQ%u~~S=9D%MR%S;fR~.%%S;:[mu~~S9vADR%% !S9j_Z.%%S9n`M)R%S9{CBc~~S;.CFhR%S;3P?-~~S;*MMzR%S9l^6VR%S9P,O?~~S9?^[%%%S9H2)R%% !S=ZO\DR%SA+.~-~~SE-(Bd%%SI?u>7%%SMDy>_R%SQ-'/DR%SSQhAm%%SU`WY7%%SW_R%%%%SYTA4?~~ !S[A=7u~~S])TKc~~S]gTx;R%S_GX7u~~S_}axd%%SaV&`qR%Sc*H6.%%ScUEU2R%Sc}->6~~SeH9h)R% !SgFf+@%%SiGAy2R%SkOg>_R%SmZ<4hR%So`[]c~~Sqb-b_R%Ssbr0d%%Sub[MR%%Sw^GWI%%S}H:{I%% !T-[UiY7%T-idTRY_T-x[0&L[T/*/ypNqT/7~'LRvT/CJXYwmT/MS0%a/l~~SJlI12R%SJB,.u~~SHsUNqR%SHL\\l~~SH'+dMR% !SF&{Y7%%SD(G{qR%SB'a3qR%S@&N];R%S>*:Jm%%S<5diqR%S:GY&l~~S8\P_R%%S6r/u-~~S2gEy[%% !S0V/}6~~R|zS8DR%RhCWiH~~RTw?:2R%RBaG?-~~R2/2b6~~QG>|;zR%R7ZgwDR%RExBG_R% ifeffit-1.2.11d/src/fefftab/69.dat0000755000175000017500000003577010771740460015511 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] tm.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] tm_k.amp !Q%%%%%%%R.w**Y:_R8Tz)jkhR@[9EJ?_RFw=U0{QRLD4pZ~~RNqdMmd5RPN|=eJ}RPCGlKqFRN^')ga, !RL\VXp=qRJXEL9sHRHjtsI2jRHIPbk|`RHT,XnXiRH~&yA,7RJ]ttr%jRL6BUg{IRLPyIk22RLH.(_)R !RDdsq,g[RB'S6.X(RB]%gUg3R@vRX_.ERBvb>l`]RJ]OYwm%RT~eL[EmR^}kgtSERhGV-~ZVRnhle*F} !Rt3^xmE%Rvd8]+khRxOR7h~{RxT2NpB@RvzF,xy*RtlN+.~.Rr6(_7DZRn?V-fv9Rj;U:[%%Rf9hq:'3 !R\VWpl80RT[E,b)^RLocgQ+}RFL`dz)RRBSq=w,7RBgU'1ykRF7,3z4(RH|ImaYxRLm%(,' #% [ 59] tm_k.phase !S-UFO@%SK>JSu.%SMUmrpc. !SO\dndv%SQR.Oxd%SS7Bf*uWSSjw}/dvSU?q2Iv%SUp@i([%SWKH<4hRSY*{];R%SYf~:{I%S[HQpo;R !S]lfys@%SaInKG_RSchb7%%%Sc{ZJDR%ScCUg2R%Sc=D)Q~~Scp\\m%%Seq}gZ~~Si.gJl~~SkP&m%%% !Smvj;zR%SqDy>_R%SskEY7%%Sw4V=hR%SyQcrqR%S{hnDR%%S}x^g2R%T-[8[57%T-dBfKd%T-le[Y_R !T-~j5O@%T/3NznDRT/?%k*qRT/F?t*qRT/HgaP7%T/ImU6VRT/M_R%S8rehzR%S:%pg2R% !S:4NY7%%S:D\y2R%S:VAl~~~S:iW4hR%S:~C*I%%S<:_MzR%S-'x;R%S>IkshR% !S@TwL[%%SBC7iqR%SBw%em%%SDR]d%%%SF1Tx;R%SFlrqR%%SHPRU[%%SJ6;j@%%SJwy{H~~SLaC:Z~~ !SNL9G_R%SP8MnDR%SR%qzR%%SRn@qzR%ST]\@MR%SVMj@%%%SX>X\DR%SZ/}[MR%SZ{w}6~~S\nD-VR% !S`{0?VR%Sf/qMzR%Sj@'p2R%SnQD=hR%SrcSod%%S:EDV)R%S:drDzR% !S<[?B;R%S>ShV)R%S@Ms7u~~SBIB3I%%SDEw4@%%SFCS@MR%SHA{}_R%SJA2=hR%SLA*4hR%SRC}oc~~ !SVHkPwmR`Yt+`RXE|qB[vRX]NR{a@RZ,[9{_bRZ_{CaA]R\;)CJm% !R\q/ygDfR^PNHl)2R`1OF`|(R`]Vp{b]WRVh,2%DiRTymLj7dRRY-;s)BRP4[MHttRLB@}U?oRHhPa;;,RDnlko0[R@_wK4wB #% [ 59] tm_l1.phase !RGco7MR%Rsi<([%%S1-L0t7%S50+}{qRS9*[h^2RS;v{Z%v%S?`smiqRSCB8GC2RSEtclF@%SID%|t_R !SKcb_Q~~SMxpDf;RSQ(54X@%SQ~AE@v%SSmSP%57SUStF'?WSW6g)e(3SWr3;^2RSYQ\)EqRS[-f0|@% !S]U/5.v%S_X:0OhRSaVOqnDRSc@K+?~~Scu{iH~~SeRx';R%Sg44`I%%Sg|~F@%%Siz9d%%%Sm+bK;R% !SoA]7MR%Sq]HrqR%Ssz9?VR%Sw:vUZ~~SyPI9;R%S{`l^Z~~S}kE4hR%T-YSS,7%T-bK)=hRT-jf=T;R !T-|bod%%T/0tI9;RT/;_[em%T/Bx}.v%T/FqMV)RT/IX'c~~T/MVcnm%T/S*J\m%T/YbgZ~~T/snrWI%%QZ/N8m%%Q/0C6VR%QqECg2R%R3Fa\DR%R;2@Y_R%RC5]t7%% !RaHr([%%Rs{6jhR%R{U-:2R%S-cyg2R%S/34D)R%S/e*}_R%S1Ctwl~~S3'|dMR%S3jDrH~~S5UjH.%% !S7C?NI%%S92/4?~~S9{NB%D6R0/5yVNiR0\e&y2RR0Epj|YxR.ayq-W{Qr1xk|C;Q^{(4+KD !Q8ULU?kWQ\qYI@U[R01v_b*;R4MBD4HRR8io\+@nR{rRD|a&S71RHNhuiu{RJVb`/IE !RLBZ.3Y7RLu4sFbKRNF/D;I-RNf*}K,xRN|RK\sPRP&FRKOhRNsI[n1sRNV)yS*YRN)\D2_jRLQ,5<~N !RHs^O1&ERF6H-YN-RB7|]O.5R>5|dX\WR:|^6RdpR<bZtzxiRBR%Y2gVRFFj:p~:RPF:<9GQ !RRz?dSU.RTGnM/?:RRruvg[7RPj?rD%yRN[&D0.1RJwv=&juRH]JbLGWRF:nMG7;RBUQZ+=B #% [ 59] tm_l2.phase !RvaH.%%%RJx';R%%Q?9c~~~~RM'_zR%%Ro1s@%%%S/&hzR%% !S/;^2R%%S9&({H~~S;Dq~VR%S=<-rqR%S?(,K;R%S?wUwDR%SAnJ}6~~SCm>.v%%SEqf;R%%SG|BKd%% !SK0}.u~~SMAn\m%%SOQ[EH~~SQ^lnm%%SSf7))R%SUh`Y7%%SWe;Z-~~SY].12R%S[P;rI%%S]>NuVR% !Sa(C.MR%ScJ?E,_RSeF}pwDRSepMZRMRSehW5WI%SeO,pwDRSeNRD~VRSej]LwDRSg>G7%%%SkP5G6~~ !So4R9;R%Sq|dMQ~~SugRQVR%SyQ80;R%S}@.ADR%T-ZaHRMRT-j5lNI%T-yNB/DRT/.+mEI% #% [ 59] tm_l2.caps !SPT=xd%%SPS*Y7%%SPOJTc~~SPIGK;R%SP@~vv%%SP6KWqR%SP)aH.%%SNtt{qR%SNd3Y6~~SNQ_nDR% !SN=P[MR%SN'cZVR%SLjIem%%SLQgwDR%SL7go;R%SJvM-VR%SJYqf;R%SJ;{eDR%SHvgJm%%SHV&p1c-~~S>A712R% !St2zR%S6]w(2R%S4|`I%%%S4Ac>7%%S2aMj?~~S2(O;zR% !S.U6zzR%Rd]NU2R%RJxe8DR%R2[QzzR%R/rH6.%%RIS?:2R%Rc%IqzR%RyqTp2R%S/G-b_R%S5EQ.%%% !S9@MR%%%S=*f3I%%S?b|;zR%SCA?^[%%SEoQjhR%SI9)=hR%SK\^Jm%%SMy8}7%%SQ3dU[%% #% [ 59] tm_l3.amp !Q%%%%%%%Q2C6v']xQ>F|WYqBQHsF>qPGQR`?UTSmQZ_L_a~kQ`sV*Kp2QfF=z6rqQj?/XeYWQlVp^Q~wMN@y_R.zED`}_R.mwEE{~Qz\K`?/]Ql/GPWf3QZaLPb;r !P~Me|0jPQR~-8RS4R.Zf?u`oR2rB+WBTR83Q.+WQRlRFu}a,2zRH~-aVE) !RJiUS9u&RL@vf;-WRLj?fys@RN-pZBQFRNBaXZ:{RNDa)/XhRN6glCl&RLrx~_jdRLFeFDXuRJnvCH7f !RH;4XUs@RD]vckpwR@fTgh3]RAJvEY(RB.)GR53RDy~oEd5RNuJ`Y?h !RRPDp-Z{RRy>4W:sRROD5Z1jRPLJ>JSuRN@jj44`RJblhJzIRHLy65paRF,@JO[oRBHePeIM #% [ 59] tm_l3.phase !Rns3qR%%RD,WI%%%R/C2R%S30:>_R%S5BMf;R%S7?m~.%%S7|{yZ~~ !S9<30c~~S7yAu-~~S5b%56~~S18sP6~~RckSDQ~~R388DQ~~R4O?~~~~RBSTd%%%RFhIu~~~RDbod%%% !S/.^.MR%S;4)Al~~S=5yo;R%S=yyk6~~S?^=L2R%SAOieDR%SCD;f;R%SEAy2Q~~SGEf|@%%SIP0x;R% !SK^]';R%SMo<@v%%SO~iU2R%SS1O;zR%SU893I%%SW9{,_R%SY5g6VR%S[,r0d%%S[yI57%%S]g)5_R% !SaPO@%%%Scre*}_RSeoX1&DRSg>@=dMRSg4RVIv%Seru'/DRSeq;iuVRSg3FqnDRSgaXdMR%Skqw`qR% !SoUp*I%%SsDiuVR%Sw.=@%%%Syr&XhR%S}ae`qR%T-]wf/DRT-mPrU2RT-|rs/m%T/1FR]d% #% [ 59] tm_l3.caps !SPT=xd%%SPS*Y7%%SPOJTc~~SPIGK;R%SP@~vv%%SP6KWqR%SP)aH.%%SNtt{qR%SNd3Y6~~SNQ_nDR% !SN=P[MR%SN'cZVR%SLjIem%%SLQgwDR%SL7go;R%SJvM-VR%SJYqf;R%SJ;{eDR%SHvgJm%%SHV&p1c-~~S>A712R% !St2zR%S6]w(2R%S4|`I%%%S4Ac>7%%S2aMj?~~S2(O;zR% !S.U6zzR%Rd]NU2R%RJxe8DR%R2[QzzR%R/rH6.%%RIS?:2R%Rc%IqzR%RyqTp2R%S/G-b_R%S5EQ.%%% !S9@MR%%%S=*f3I%%S?b|;zR%SCA?^[%%SEoQjhR%SI9)=hR%SK\^Jm%%SMy8}7%%SQ3dU[%% #% [ 59] tm_m1.amp !Q%%%%%%%QZ6Uk~LkR09?d7O0R4mDx>;rR:Ce0H\}R>n}t::[RD:~}z9dRHXmWP0TRLky)J*YRPqk%X6> !RTmS>>r1RX`GD_EqR^-=]y&iRn@^_VC&S0v2egyGRlpr^Yk`Rd@ye'R5R`KQBfR~R^,I|0Sm%SY>.\P_R !S[w-)V)RS_'mm-.%Sa,*M)R%SawDQ~~~Sc[m-.%%Se@--~~~Sg&/q)R%Sgq,gZ~~Sinxh)R%Sk{'l.%% !So8*}_R%SqT|dMR%Ssr;9d%%Sw2T';R%SyF{yZ~~S{V2%MR%S}_XP6~~T-X=[z)RT-a1R-.%T-iK~fd% !T-{GNQ.%T//Mg*I%T/:(v12RT/AF>G7%T/Eb.u~~T/HpJm%%T/M&YWI%T/RV0G_RT/Y1ufd%T/s0uJDR !T1,Uyk7%T1@@d57%T1Sh`}_RT1g;g*I%T1zm4lVRT32{{8m%T3F%OT;RT3WxhMzRT3gu|X@% #% [ 59] tm_m1.caps !RZ_nDR%%RZSUwDR%RZ.f[v%%RXKr4hR%RVQ`8l~~RT@y_)R%RPteXhR%RN:;%MR%RJFFP6~~RF@D~VR% !RB(tSDR%R7%%%S-_|T;R%S//T?VR%S/aoG_R%S1@xp2R%S3%GK;R%S3h%MR%%S5SYWI%% !S7A=7u~~S90;R%%%S9yat_R%S;hv))R%S=W2f;R%S?D+/l~~SA/(VzR%SAqrmMR%SCX@%%%%SE<@QVR% !SGsr];R%SKGgZ~~~SMqu:2R%SQBP{qR%SSm_f;R%SW<&}7%%SY]oh)R%S[vxp2R%S_.G&m%%SeT8`qR% !Sic@]c~~Sm]`DzR%SqP=t_R%Su?ub_R%Sw|+D)R%S{VD9d%%T-S&0;R%T-`1.MR%T-l_Iu~~ #% [ 59] tm_m2.amp !Q%%%%%%%Q8%SIfy*QHhy4g7EQZ(H;zCKQhf\z(c.Qvo4~'bGR.hUSGg[R0I*iAdvR2+}z;39R2qI1ivE !R4pXBlRNR8D'z't7R>H7POvbRR7BW)B\RplS/>&mRB`&4tPxR8HC[l+}R4Ez48.9R23*00:cR094@*ot !QbWV5qEMQZo[~r3UQbcn[E:KQ|dG12`YR24)Y0SmR6/*ARaiR:,./8=8R~aVeq*R<]l4&>KR:5hkoQ)R8D{z=R^R8hLo,CAR<,tsM&RR>j@4zV8RBUD9RE:RLP\s>/s !RP5Zk;C&RPo]SKURRPZmi}3iRNhD3'a4RLk\.u;7RJA)jCy?RH371>D4RDrB>__rRB7+1YG7 #% [ 59] tm_m2.phase !Rz1Jl~~~RNJP_R%%PZ.%%%%%RIADR%%%Rk?JDQ~~S/*oOhR%S1L'WqR%S3]W(Z~~S5^/7ut*qRS@7DZ-~~S@Iw-JDRS@(t9p2RS>P*qQ~~S66-~~SHxp{H~~SHX(Ru~~ !SF<~NH~~SDPI9;R%SD4N4hR%SBv>.u~~SBXspZ~~SB7&\m%%S@kV~VR%S@Bqj@%%S>p~:2R%S>B&(2R% !S_R%SEoQjhR%SI9,wl~~SK\^Jm%%SMy<];R%SQ3h5_R% #% [ 59] tm_m3.amp !Q%%%%%%%Q8NJz.S}QJ`8aj[VQ\FzvsIfQlQ(a4QoQz}oHt@fR0%QXbodR0cNu4{zR2IiK,DjR48O8'`i !R6:I>A0;R8h9.6}GR>c)FFt_RPu0Qub`RlH~)Pz:R@JR,>%ZR6jmOkyoR41d=a4]tQjjF2TaXQn6;bKJ,R.T0Zh]RR2'S,qAmR4nx&j07R8c\1amER]nV38mR@Yg-cCO !RB;*|&|HRBflDkA0RD1eR]&(RDMOT2'+RDc.qV)RRDhCe({IRD`I]-c*RDID]h)RRD'U*B+dRBZ0kW31 !R@L(Bv9;R%R<(n,t{rR8atFT70R6u5M'2ZR8>[EtFmR:Yk?`PQR>8`F07NR@yTxUg{RJo8qNha !RNSx;c0pRP6?h|/mRP(]8[&]RN=,a%gYRLEs)dR(RH|g?xAYRFtlujZ_RD]Hp6b4RB%%]94J #% [ 59] tm_m3.phase !RrL.MQ~~RF`@v%%%QmQVR%%%RQPG7%%%Rsm9;R%%S/W1.MR%S1|KCZ~~S587U[%%S7=*0d%%S9.VIv%% !S9bRz)R%S9vel~~~S9WyZ~~~S5t.QVR%R5,G6~~~Rrwq)R%%S0Yt{qR%S2N\q)R%S2y]p2R%S4:WiI%% !S6DFv=@%S>4[4lVRS66-~~SHxp{H~~SHX(Ru~~ !SF<~NH~~SDPI9;R%SD4N4hR%SBv>.u~~SBXspZ~~SB7&\m%%S@kV~VR%S@Bqj@%%S>p~:2R%S>B&(2R% !S_R%SEoQjhR%SI9,wl~~SK\^Jm%%SMy<];R%SQ3h5_R% #% [ 59] tm_m4.amp !Q%%%%%%%QL(?|d8fQr[8Q8|+R0w6&dhtR6,o%(wpR:D|`49/R>R6*J0CR>%\\l:/RF7weun3RNPVYGd7 !RT:s51I~RZ*C6/XKRdZq93MGS0s(ZjYxS@Duz%y;S2sovaD*S04I(=SMR~0Y5k_RRt._8B+@Rl'rct5l !RVTayyv1RT)f@3vERNai82b7RJ4KK5C{RDyPZaSMRB,yrN5WR@-NrI_BR>dQ2=5OR>y8A-N%R@EUn0uo !R@h%s/OqR@wnKn>pR@wotG(KR@l9bYKR>^?R>erI[ah !RtFCf !RNP'Ztm6RPH<=fnFRP>3hDSzRNTzAS)?RL`yanMnRJ7zssrKRH-S%R6-RF*.N{ffRBkkx1\] #% [ 59] tm_m4.phase !R|&l~~~~RP.MR%%%PvQ~~~~|RIz)Q~~~RmQVR%%%S//P_Q~~S/sT;Q~~R[ahQ~~~S:kvY_R%S>5)^2R% !S<@>.v%%S8lAq)R%S4bC2R%%S0EDzR%%S6{DzQ~~S:(VzQ~~S82EqQ~~S6;j@%%%S4Mb6~~~S2hvMR%% !S0Cg2R%%R|shQ~~~Rdj@%%%%RREqQ~~~RB6~~ #% [ 59] tm_m4.caps !T.xZb_R%T.y(k7%%T.zJdu~~T.|bod%%T0%tk_R%T0)y>_R%T0.i([%%T04@IMR%T0:?rqR%T0@U6VR% !T0Fft7%%T0L_)Q~~T0R'p2R%T0Vf_zR%T0Z`8l~~T0]jt_R%T0`0?VR%T0ah-VR%T0bZ^Z~~T0blrqR% !T0^vz)R%T0[w8DR%T0\WU2R%T0\E@u~~T0[_R% !T0Pg6VR%T0O/HVR%T0MMzQ~~T0Ke8DR%T0If[v%%T0GUk7%%T0E'l-~~T0B6^[%%T0?(Bc~~T0;ZRMR% !T02>2zR%T0(iY7%%T.yx|@%%T.r/P_R%T.jvahR%T.c`8l~~T.\%ADR%T.T25_R%S~Hu>7%%Sz=07MR% !Svtz^2R%StWHZVR%SrH\}7%%Sp8wTc~~Sn,Mb6~~Sl+ft7%%Sj)w`qR%Sh+1o;R%Sf4~F?~~ #% [ 59] tm_m5.amp !Q%%%%%%%QJw0~+4zQrH/;MaDR0u6Xm\gR6,.I,/+R:HEb86TR>_2LjRAR:`~Y1idRB&u,F('RB^9}sXO !RPvSqxa;RXnlA`XeRdUb;TR~S0sq^uX0S@I@hq.ES2v<5z'PS06*({+qR~ys^igkR>Vo>k|);[AR@8Sh~s` !R@[4\zM2R@k/swWzR@k3{~)zR@_[~ICGR@V/Tx)>R@KE)dsXR@A/rz,hR@0yYk_RR>tR~DZwR>ZR\%^S !R/FW^ZR6xx'h]_)R%%%Qt2Q~~~~R1@%%%%%RGb_R%%%R_[u~~~~RwU2R%%% !S/Bx;Q~~S1T;R%%%S3hIv%%%S5||hQ~~S93uVQ~~S;_R%T0.i([%%T04@IMR%T0:?rqR%T0@U6VR% !T0Fft7%%T0L_)Q~~T0R'p2R%T0Vf_zR%T0Z`8l~~T0]jt_R%T0`0?VR%T0ah-VR%T0bZ^Z~~T0blrqR% !T0^vz)R%T0[w8DR%T0\WU2R%T0\E@u~~T0[_R% !T0Pg6VR%T0O/HVR%T0MMzQ~~T0Ke8DR%T0If[v%%T0GUk7%%T0E'l-~~T0B6^[%%T0?(Bc~~T0;ZRMR% !T02>2zR%T0(iY7%%T.yx|@%%T.r/P_R%T.jvahR%T.c`8l~~T.\%ADR%T.T25_R%S~Hu>7%%Sz=07MR% !Svtz^2R%StWHZVR%SrH\}7%%Sp8wTc~~Sn,Mb6~~Sl+ft7%%Sj)w`qR%Sh+1o;R%Sf4~F?~~ ifeffit-1.2.11d/src/fefftab/72.dat0000755000175000017500000003577010771740460015503 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] hf.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] hf_k.amp !Q%%%%%%%Qdex2UfDR2DWVDrxR8U-L{uOR>e%FZu>RDryrcB*1bl?oR.SW9a`BR.rBg,G[R>S5KOw,RN*k&L6WR\)c:A,7RfQmy}@ARnH(l_r%Rrm=x0|@ !Rv(/r=Y/RvHn{B:?Rv3Y)YjqRtKYOq7bRrI|9kQBRp(x7]UKRlT.?`1SRhz4`G4}RfGUsf^CRb|&EK.V !R\v0wf/DRX)KQU[nRP]a|*4DRH}~v7%%%RGg*mMR%RmRAhzR%S/O?K|@%S39}^>_R !S5yFdqzRS9Ym^.MRS=506^[%S?eD8P_RSC6J9WqRSE\;@Y_RSG|g;%MRSK=\DQ~~SMRNX9SmSO``l+X@ !SUSDz-VRSW(H\4@%SUu=]|@%SKJesP7%SMPSH2)RSQ@BA}7%SU6mY_R%SY(?)zR%S[t8\l~~S_bUk7%% !ScO>k_R%Sg7B|@%%Sisl2)R%SmNl^[%%SozEqQ~~SsBJP_R%SuZEN_R% !RT/(VzR%RPNIIMR%RL\t?.%%RHYrU2R%RDDC&DR%R>u(g2R%R:7-RMR%R4=+hR%%QvfJ,7%%Q0~8Tc~~ !R;fH)zR%RSvS}7%%RcI`0d%%Riis/m%%Rqls;zR%R{qWa?~~S-}%~.%%S/]jt_R%S1C>;)R%S3+Qnm%% !S3ok?-~~S5Z~ZVR%S7FJ0;R%S91CwDR%S9u*DzR%S;]2~VR%S=C5g[%%S?&~%v%%S?bT3H~~SAAw0;R% !SCpE0d%%SG@9;R%%SIjv=@%%SM=boc~~SOigk7%%SS6jhR%%SUUCwDR%SWk;)R%%SY{A@MR%SaK3mMR% !SeYLs?~~SiS5wl~~SmG]OhR%Sq6po;R%Ssr>shR%SwN]_zR%S{(-^[%%S}QLFhR%T-Z1_)R% #% [ 59] hf.rep !S8}?.%%%S8~&dv%%S:&3uVR%S:)j@%%%S:.ox;R%S:5A0;R%S:=;V)R%S:F[U[%%S:QJhzR%S:][v%%% !S:k<'/hzR%S>>jL2R%S>Ww}7%%S>r\(2R% !S@r/P_R%SBcPod%%SDGyJl~~SD{%iqR%SFW|'d%%SH7L>_R%SHs4`I%%SJW-rqR%SL<|'c~~SL~`8l~~ !SNgxWqR%SPR`0c~~SR>^c.%%ST+i@u~~STsu)zR%SVbsD)R%SXR`U2R%SZC.))R%S\45shR%S^%m--~~ !Sb0i~b_R%S0Gry[%%S0Q.%%%% !S0p3eDR%S0~R))R%S0p[mv%%S0r+'c~~S0y:6VR%S2*QRMR%S28a;zR%S2I+P7%%S2[CFhR%S2o.12R% !S4*/u.%%S4@=dMR%S4WEDzR%S4o?VR%%S6-{DzR%S6G=P7%%S6a2^2R%S6{W4hR%S8jhvMR%S@\;5_R%SBN]_zR%SDAo';R%SF5`eDR%SH*2f;R%SLdQVQ~~ !SPQLk6~~ST?b_Q~~SX/*Y7%%SZyI~.%%S^jX@%%%Sb\QrqR%SfO+hQ~~SjB<@u~~Sn5|;zR% #% [ 59] hf_l1.amp !Q%%%%%%%QZrU.3\qR0CHAwbWR4xY+iS0R:K~s0_VR>nKb}siRD)&Wmy;RH/B_R%S9*Q5?.% !S;GNf|@%S=]E1Rv%S?lkm=@%SAvFQJDRSCz^{H~~SEz(X3qRSGtpO;zRSIk/Y{qRSK\g4/m%SMIN+'d% !SQFFSq)RSS9Z+|hRSU4@B3I%SUv*dz)RSWGSlZVRSWyiJ\m%SYbBCZ~~S[`cfd%%S]st_Q~~Sa>X7v%% !Sco|?~~~SgLwhzR%Sk(}&l~~SmXZfc~~So~`8l~~SsAEeDR%SuTslVR%Sw`MMzR%SydcF@%%S{bFlVR% !T-YB&L[%T-i37~.%T-v-*DzRT/%}ujhRT/,WP?.%T/0sa\DRT/4i{8m%T/9-:{I%T/>DEqR%T/Vs)Am% !T/i^1c.%T/|v++hRT16+;1[%T1I2IQVRT1\PTWqRT1nJuvv%T3'@xKd%T38pPO@%T3H'E8m% #% [ 59] hf_l1.caps !Rx1Rv%%%Rx'oh)R%Rvdd~-~~Rv4L2R%%RtK;-VR%RrO]WqR%RpA~%v%%Rl|jT;R%RjLNqQ~~RfeKl-~~ !RbmsX@%%R^f(*H~~RZMo|@%%RV%2EqR%RPEU2R%%RJT9Z^Z~~RaRMvMR%Ril&@MR%Ru2|xd%%S-^A,6~~S/AY{qR%S1(z~VR%S1lzzQ~~ !S3Xc^[%%S5E;9c~~S71whzR%S7x*uVR%S9c(Bc~~S;LO;zR%S=3{8l~~S=sC_)R%S?VXt_R%SA7dY_R% !SCjEa?~~SG==3qR%SIiEiI%%SM<@u~~~SOh%))R%SS4hR%%%SUSSu-~~SWj+D)R%SYzvqzR%SaJwy2R% !SeX~jhR%SiS5wl~~SmGa/l~~Sq6b;)R%SsrBSl~~SwNhZ-~~S{()~VR%S}QP&m%%T-Z1_)R% #% [ 59] hf_l2.amp !Q%%%%%%%PPG2zoT7P|2z~\BtQ2Uloe&0Q6qw%m-.Q<7g]N\MQ@SznQ<5QDb>f|s(QHNz}8y{QJacsFt_ !QL),tbc{QJMDB3+qQFoQfPbCQBF/b7|PQ|}WQ@PL-uxTQHiBx;R%QR0'KUJm !Qf2M4SL[Qt%L6]l.R.mhQdrtR0qH^:WER6(s~sr]R:[19K?VR@4fLHcNRD>H%4H.RFhPs9p{RH]g'Du_ !RJ)'a|hRRJ:C,Vw{6,z,YRBSP4BvDRLdUb^ZE !RPmbHr,;RRuC9IvuRRu)wfDrRR5\/X?.%%Sq7Tl.%%SsJedv%%SudD5_R% !Sy)PG7%%S{K,wl~~S}l||hR%T-\A&Td%T-gi-NI%T-rSXD)RT-|NJ\m%T/+cP&m%T/4@j;zRT/7T/ms9AXiT/p?ZlF@T/osy)e(T/okWSy2T/q5407MT/t00,.vT1+wmmv% !T1:bjp[%T1JS:k7%T1Z.X'd%T1i`;9d%T1yp*I%%T3.\qMzRT3>;MzR%T3MVU:[%T3[}}*qR #% [ 59] hf_l2.caps !SRBMAl~~SRASP_R%SR>bC2R%SR9}SDR%SR3Na?~~SR+7-.%%SP{>*qR%SPocZVR%SPb\y0t7%%S>@++hR%S<_d]c~~S:~gRu~~S:Cfh)R%S8c7el~~S8)cnm%%S6KT7MR%S4o&(2R% !S2HYg[%%S0,;)R%%Rr=j/l~~RXj9x;R%R@(M9c~~P\BWqQ~~R=,z^2R%RSa`mMR%RiJE@v%%S1O*y[%% !S5K,.u~~S941Jl~~S;m{a@%%S?L}&m%%SAzIv%%%SEF'?VR%SGk2zR%%SK-gRv%%SMD0G_R% #% [ 59] hf_l3.amp !Q%%%%%%%PJ{:*89|Pr*jw;RnQ0e}SE9\Q4`l.)F`Q8Yy&DR%QQB1c\LE1Q>>@==,WQ8e/_<\MQ48r8?LGQ2u23=4`Q8sUzg8}QBH.,?.%QL4=<{];QT]gg8Bt !QfpRB|@%Qr1JqW*]R.U_x}kjR0OMt6`'R4[b:=t;R:2fxP=uR>e~~c?oRBoM^9l.RF>|%eHVRH3,wXXdRHeWDN'lRHo[oLRvRHx~Z{b/RJ+YoG7IRJ05Pl1;RJ.,)Fn}RH~K'%]dRHnPYqT'RH[5{G8] !RH&PdxlRRF8FWuVRRBesoI.fR>jKh)R%R<7apSdvR:jy5+uVRUO+=CuRB+FPDMRRL6N}a_V !RP>K6iU2RRFk=Fs6RRJm(CQMRPjIGO]3RNqwt;GHRLM_-8ULRJ?n7%%Si1yFhR%Sk'(*H~~ !SmV%MQ~~Sm<0?VR%Sks?ZVR%Skms3qR%Sm%X'd%%Smeb*qR%Sob21[%%Sqkjp[%%Ss~W@v%%Sw=Ft_R% !Sy[d56~~S{|v=@%%T-U1PshRT-a4JTd%T-lU7EI%T-w8H2)RT/'+zAm%T/0A%em%T/8t_vMRT/@q7T/r>Tj+iT/tVB(s@T/sxL)e(T/se0FL2T/u.f|dNT/x-B}.vT1/_2Iv% !T1>MiQ.%T1N>9Kd%T1]d|P7%T1m@?fd%T1}WH~~~T325[qzRT3AuRMR%T3Q=sp[%T3_ZGSDR #% [ 59] hf_l3.caps !SRBMAl~~SRASP_R%SR>bC2R%SR9}SDR%SR3Na?~~SR+7-.%%SP{>*qR%SPocZVR%SPb\y0t7%%S>@++hR%S<_d]c~~S:~gRu~~S:Cfh)R%S8c7el~~S8)cnm%%S6KT7MR%S4o&(2R% !S2HYg[%%S0,;)R%%Rr=j/l~~RXj9x;R%R@(M9c~~P\BWqQ~~R=,z^2R%RSa`mMR%RiJE@v%%S1O*y[%% !S5K,.u~~S941Jl~~S;m{a@%%S?L}&m%%SAzIv%%%SEF'?VR%SGk2zR%%SK-gRv%%SMD0G_R% #% [ 59] hf_m1.amp !Q%%%%%%%Q\Dz;f\@R0NAU(}KR62vj}x7R:l`{s/mR@EN-}*)RDjVZik'RH~pEt0xRL{6]j^kRPZ;ct]t !RRtE}O-kRTlcY/O(RVFtAAh2RV`[H~aqRVb?)5|`RVRoTQB`RV4E+yDBRTfFH1_*RT5>*HaqRRVtz^2R !RNA2:_`5RLl1U>BDRR6BkoysRRNq`'~BRR@'}nbtRR26uskCRR/q12vMRP{Evn93RPYC@^p*RP32Nw}7 !RNuRTID,[y;RT]/k|kCRT[{4\.^RTLMYPZ_RT4t3iI% !RRF(q6-[RP3ec~DbRL7uxmADRFu%4bC{RD.ylv-.RBNgg~AMRBi~XSCQRD]Aie;'RFt<*wn~RPK@gu`s !RT30nQkWRTsAK5r\RT_8KV9dRRbCX^eFRPTODDfURLw+yyi&RJF(Vk)+RFPU%R'SRBPCLR{p #% [ 59] hf_m1.phase !S0n(eTd%Rn9)=hR%RDUdem%%QsAP_R%%RQ7Kt6~~Rs?<4hR%S/T1%z)RS3%t<_RT-tW6F?~~R8)QZVR%R0?>6~~~ !R3hXP7%%RK}(Jm%%RYiXlVR%R_vZ)zR%Ri9OD)R%Rs_Xt_R%S-Z'7MR%S1%i(Z~~S1j,2zR% !S3V*eDR%S5BnTc~~S7/c>7%%S7u{DzR%S9a)f;R%S;J[Y_R%S=2<0c~~S=qm12R%S?U6zzR%SA6Q:2R% !SCiadMR%SGO?~~SM<=;zR%SOgwhzR%SS4]WqR%SUSHzzR%SWi~)zR%SYzvqzR%SaK%9;R% !SeX~jhR%SiS9WqR%SmGhIv%%Sq6eu.%%SsrF3qR%SwNl:2R%S{()~VR%S}QP&m%%T-Z1_)R% #% [ 59] hf_m2.amp !Q%%%%%%%Pd4mgml>Q2)yF0%9Q6_OCMVrQ:ivEV/}Q>D3M1SeQ@HNvk@fQ@{Y%*~NQB;)nQQD~U(@VnQHdHOOZBQN.rgKqjQT*n\}j(QZFK9HNIQ`p&zgGWQh9jC~'xQn=FuCo`Qrp(MuP' !Qz07sVpkQxv=69oDQ|Xw>l)zR.`uuIriR0}^95K;R4{Q~C8}R:.MCe({RSRBDxJD}hRBOmuz]DRBVTMa2:RBXY5ur)RBRA7G&mRBHQ3/EeRBwm !R@{'98J}R@Tf{Pg7R>Rl1]9PR<({%oAYR8pJ%vG]R8Wiw{x5R:4tHtMPR<@v:D*OR>lJ6~~S7,}*qR%S7:V1Z~~S7n@MR%%S9_pFhR%S;`W4hR%S=lFdMR% !SA'NyZ~~SCBhrH~~SE`eDR%%SG}-b_R%SK9>C2R%SMHz1[%%SOPZ:2R%SQQi0c~~SSLtwm%%SUBDIv%% !SY;|T;R%S[lI12R%S]x}66.%S_]wSu.%S_q*2Am%S_i6)bmbS_f+wm%%SyX1Jm%%S}ByNqR%T-[SXhR%T-j/{Y7% #% [ 59] hf_m2.caps !SRE:o;R%SRD@~-~~SRAL6VR%SRY&m%%SN'_zQ~~SLiZnm%%SLPE}_R%SL5lrqR% !SJ6C*H~~SH=wP_R%SFl)zQ~~SF]t7%%%SFI@UZ~~SF+\hzR%SD`|'c~~SD7;b7%%SBc:{I%%SB1aP6~~ !S@V}C2R%S>ynq)R%S>@i(Z~~S<`HZVR%S<%KOhR%S:DJdu~~S8cub_R%S8*D1Z~~S6L0t7%%S4oY*qR% !S2I'p2R%S0,Pwl~~Rr>JL[%%RXidU[%%R@'e\l~~PZyTx;R%R=,sD)R%RSaG?.%%RiJA`qR%S1O29d%% !S5K/hzR%S945*qR%S;n%ADR%S?L}&m%%SAzMV)R%SEF*yZ~~SGk2zR%%SK-gRv%%SMD0G_R% #% [ 59] hf_m3.amp !Q%%%%%%%Pb[Uze(2Q0rssk0xQ64n[ZG/Q8kh}L]LQ:Y;KU}pQ:UWbI1{Q8l@gB)bQ6nctshRQ6Tx3w`) !Q8w1SIW]Q>|JT~:{QH)9Rs3qQP\8qjG?QZARAGJMQbx8lSlNR8q5tkn,RkligFiR@Lpvc,l !R@bCM\c>R@f14@X(R@g9LU,pR@kMpP{)R@s4ubn,R@vc0_GOR@v0HqH>R@mg:iY7R@bC9[ckR@U>;)R% !R@8dq9;vR>o-U:^_R4BR>6=?O4~RH0V.*7h !RL9]lVNERNPPPQ@lRNmm3ZY`RNHxrkKRU[%%S;Q;EqR%S=Fol-~~S=uM5_R%S=z.EH~~S=D|/m%%S;(vz)R% !S7UtSDR%S5VY?.%%S5.>SDR%S5%)MzR%S5.IMR%%S5CV1[%%S5`GG7%%S7(/`qR%S7LM9d%%S7qfG_R%SIZR))R%SKoslVR%SM~xx;R%SQ+qIu~~SS,I]d%%SU'0|?~~SUv2EqR% !SYoP{qR%S]EeDQ~~S_QEXH.%Sa46EQ.%SaD&-nm%Sa8gn}mbSa3Oq%MRSa@f03I%Sa^S&y2RSeXlVQ~~ !Si7u6-~~Sk}-b_R%Sod`0d%%SsMlfd%%Sw>9Kd%%Syxg_)R%S}dDZ.%%T-^yX|hRT-mLPshR #% [ 59] hf_m3.caps !SRE:o;R%SRD@~-~~SRAL6VR%SRY&m%%SN'_zQ~~SLiZnm%%SLPE}_R%SL5lrqR% !SJ6C*H~~SH=wP_R%SFl)zQ~~SF]t7%%%SFI@UZ~~SF+\hzR%SD`|'c~~SD7;b7%%SBc:{I%%SB1aP6~~ !S@V}C2R%S>ynq)R%S>@i(Z~~S<`HZVR%S<%KOhR%S:DJdu~~S8cub_R%S8*D1Z~~S6L0t7%%S4oY*qR% !S2I'p2R%S0,Pwl~~Rr>JL[%%RXidU[%%R@'e\l~~PZyTx;R%R=,sD)R%RSaG?.%%RiJA`qR%S1O29d%% !S5K/hzR%S945*qR%S;n%ADR%S?L}&m%%SAzMV)R%SEF*yZ~~SGk2zR%%SK-gRv%%SMD0G_R% #% [ 59] hf_m4.amp !Q%%%%%%%Qv^%^^WiR6/\fj(.R>2%ceNoRF,qjceuRLv(O]6ARTO^l|KwRZb/q=I3R`GD/b{)RdN7jrVc !RfoG;t?ZRhNtA(9lRhGv;Hb_RfeF7TNzRdWE8d;bR`}LK7MRR^3}j;h>RZ82`CcRRV44iYbhRR/\2utO !RFIi~5\7`+Ci~R)x,UUCR>pa\{4iR@eL:6VR !RBCJXYwmRBW0oq3]RBH{IUpsR@~c@/({R@V1Is3rR@-`K[gKR>g}Yod%R>NC`LtxR>9]@M)vR>)@e0r5 !R.uqtR8ENYg?aR4ryr?:WR4E']<5:R6+28@E/R8PhfQt9R<=TG@tGRFx*D9BO !RL@VG_wwRNk~=I31RP2+t-&SRNl8~NlfRN2}/M*WRJwJs39%RHz((6e,RFzxn5eYRD]B2'Ra #% [ 59] hf_m4.phase !S6/8DR%%S0wXhQ~~RrG_Q~~~RJahQ~~~P8%%%%%'RGB;R%%%Rg`H~~~~S-u:2Q~~S1A\l~~~S3_R%%%% !S5ub_R%%S9+H.%%%S;4\DR%%S=84@%%%S?6NH~~~SA.ahQ~~SAzIu~~~SCe`qR%%SEI]d%%%SG&@MR%% !SI@U[%%%SIpBc~~~SK][v%%%SM=T;R%%SO'3I%%%SQ+T;Q~~SSMMzR%%SU}WI%%%SYQ:2Q~~S[s3qR%% !S_3I%%%%SaHF@%%%Sc\Td%%%SeoOhQ~~Si%Y_R%%Sk0';R%%Sm0CZ~~~So&0;Q~~SojX@%%%SqJP_R%% !Ss`a@%%%SuZRMR%%Sw>O?~~~SwY7%%%%Sw4D)R%%Su-VR%%%Ss(k7%%%SqJ,7%%%Sq2Z-~~~SqfwL[%% !SsQWeDR%SuOft6~~SwQV-VR%SyT47u~~S{clF?~~S}i7~-~~T-Z9?zzRT-e&BOhRT-p'I=@% #% [ 59] hf_m4.caps !T0U+7v%%T0UO`H~~T0Vc%u~~T0X]|?~~T0[5[MR%T0^8}6~~T0aUs?~~T0d}cVR%T0hGshR%T0kYoc~~ !T0nR=@%%T0q&shR%T0^l%v%%T0]47u~~T0[@UZ~~T0Y3DzR%T0Vc%u~~T0Sy2Q~~T0Pr0d%%T0MU:[%%T0J&0;R% !T0@k*qR%T07`yZ~~T0/EeDR%T0'l.%%%T.zR%%%%T.r|'d%%T.k+;zR%T.c4P6~~T.[em%%%S|xy*I%% !SzRh^2R%Sx5m=?~~Sv&8hzR%Srn7UZ~~Span}7%%Sn_:Rv%%SlZw@MR%Sj[_f;R%ShcP&l~~ #% [ 59] hf_m5.amp !Q%%%%%%%Qx*DV]}xR674IHkfR>=,USfERF:}2@_qRN,]7V;BRTb&SVVzRZuBX+<(R`Z=3RSYRd_eqk.v !Rf~OCxuGRhZ[o-u>RhOax:,KRfhtQgK\RdVX~Q:2R`x\>PDjR^+QE;9dRZ,[e|=H(ugR>(58;]hR<`7j=IfRf2:oBlR@[Yg2vM !RB9r?UTTRBM>=t_RRB>^mT9+R@sfj+&uR@K%,){AR>{y^QxTR>\1*I%%R>B=(m1{R>-2WoSIRuY\%mR4nvOUxIR4D?eEA=R6.;f*f|R8W\^q8_R2zR%%SA6jhQ~~SC(wDQ~~SCnXhQ~~SERz)R%%SG/\m%%% !SIJ`qQ~~SIzrI%%%SKhV)R%%SMIahQ~~SO4xc~~~SQ:Rv%%%SS^*I%%%SW4|hR%%SYb_R%%%S]*Y7%%% !S_D%MR%%SaYG6~~~Scm12R%%Sg&,7%%%Si6ZVR%%SkA(2Q~~SmADR%%%So6fd%%%Sozj?~~~SqYshR%% !Ssn(2Q~~Suf_zR%%SwJ8DQ~~Swdz)R%%Sw?>6~~~Su6)zR%%Ss0OhR%%SqRY_R%%SqshR%T0^l%v%%T0]47u~~T0[@UZ~~T0Y3DzR%T0Vc%u~~T0Sy2Q~~T0Pr0d%%T0MU:[%%T0J&0;R% !T0@k*qR%T07`yZ~~T0/EeDR%T0'l.%%%T.zR%%%%T.r|'d%%T.k+;zR%T.c4P6~~T.[em%%%S|xy*I%% !SzRh^2R%Sx5m=?~~Sv&8hzR%Srn7UZ~~Span}7%%Sn_:Rv%%SlZw@MR%Sj[_f;R%ShcP&l~~ ifeffit-1.2.11d/src/fefftab/49.dat0000755000175000017500000003577010771740460015507 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] in.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] in_k.amp !Q%%%%%%%Q@L,o(zZQZdj'4\EQtbFwCTTR09'gOZXR2K+/B9t7%R>fdES7VR@974A4dR@YQ,ZtOR@j>%9X`R@l:fIKtR@]lk{qRR@?'>]'`R>m{pAWz !Rui?R:60.uJt #% [ 59] in_k.phase !S/A.9;R%S3T_1[%%S7b2zQ~~S;iZ%v%%S?jzAl~~SCf+@%%%SGZs`H~~SKIAhzR%SO13eDR%SQlIU[%% !SUFt_R%%SWtHnl~~S[@o/DR%S]_t&l~~S_w6fc~~Sc,4X@%%Se1~^[%%Sg-?%u~~Sgv9_zR%SiV9?VR% !Sk-=H-~~SiH)V)R%Si1)5_R%SiLhEqR%Sk,ZS`qRSkpbr0d%SmZae`qRSoCB?VR%Sq*cB;R%Sqj8RahR !SsL%Y[qzSu);iuVRSuZ2%qzRSw*&XhR%SwL).EI%Swe`xl.%Swu]*Q.%SwysJy2RSwr5{qR%Sw`F3qR% !Sw4*U2R%SwN*];R%SyLL&DR%S{iCg2R%T-SohrI%T-`u]l.%T-mlWeDRT-zl[iqRT/.&d-.%T/T(<];R !T/kuTt7%T1(Zwdv%T1>?5?.%T1SZ,k_RT1fP/@MRT1z[b2zRT32M@57%T3D[D~VRT3Z6RMR% #% [ 59] in_k.caps !S@E:o;R%S@C}oc~~S@@sca'd%%S>QtshR%S>=t;)R% !S>'fKc~~S7%%R^wIiqR%RR@Y_Q~~RDWQ-~~~R6ki];R% !QNHR))R%R-^S@MR%R;9.z)R%RGdahR%%RU/OpZ~~RaM2Iu~~RmeA43M)R% !S@A+H.%%SB6Tt6~~SBns+hR%SDJjX@%%SF*|L2R%SFg^_)R%SHLQb_R%SJ3F|hR%SJv(_)R%SL`>O?~~ !SNKv9;R%SP8j|hR%SR&dQVR%SRo[QVR%ST_=hQ~~SVOe_R%T8&;~VR%T8NadMR% #% [ 59] in.lambda !SB0Fp[%%SB1~^[%%SB6jhQ~~SB>]t6~~SBIIMR%%SBVu:2R%SBfmem%%SBxoh)R%SD2VrI%%SDGcVR%% !SD]mel~~SDtPwl~~SF1FD)R%SFH-6-~~SF^M9d%%SFt2zQ~~SH/8DQ~~SHCdem%%SHWsxc~~SHl7el~~ !SJ[9_zR%SF8N8m%%SBnCc-~~SB=n}7%%SB0)b6~~SB6jhQ~~SBJy{I%%SBhe(2R%SD3fWqR%SD^UBd%% !SF4,WH~~SFg[%%%%SHDS\l~~SH~HB;R%SJ`uzzR%SLEeDQ~~SN,Z^Z~~SNoG;)R%SPYz9c~~SRF)f;R% !SVGT|?~~SZPl)zR%S^`bwm%%SbvG&m%%Sh7;b7%%SlVkSDR%SpzTKd%%SvH3Gb8}:_R>f/5wm%R>yeY28uR@(HipPtR@*\GQfd !R@pS2urqQ~~S2XX6Z]l !S2)bNBSmS0LL1A=dS.m1u*SvRxyd%>SERnB0|q7bRdDdmSgCR\6h=N\qRToK{BSmRPC6W(6VRZTO&u.%R^TT=NkKR`O]/@=OR`|S8sZJRb*MYN2qR`Xsk:i~R^`{p+@7{R&2b7R:.uX7:9 #% [ 59] in_l1.phase !S/cc)zR%S3vs3qR%S9)EqR%%S=/5.v%%SA.6%u~~SE&Ac2)R%SQta/m%% !SUISXhR%SWq:Rv%%S[7h^2R%S]Py&DR%S_bUk6~~Sal4P6~~Scm12R%%SedQzzR%SgQ%v%%%Si1%UZ~~ !Sk(;Iv%%Sixqj?~~Sizlfc~~Sk7ZrqR%SkaIZrqRSm9dB3I%SmmbbC2RSoIZvQVRSq'peTd%Sqa8zj@% !Ss>{=gc.SssZKE];SuHojP7%SuqeiiI%Sw9Gqf;RSwS:-:2RSwd/BOhRSwjHa'd%Swf3I%%%SwY,*qR% !Sw7GK;R%SwRADR%%SyN4hR%%S{i1Rv%%T-Sdndv%T-`cIU[%T-mRAhzRT-zK+dMRT/-\;Z.%T/S_~zzR !T/kPDj@%T1(9G_R%T1=x&(2RT1S:gVzRT1f29?VRT1zA+H.%T326CNqRT3DJzj@%T3Z&op2R #% [ 59] in_l1.caps !S@MzR%%%S@LcRMR%S@HxSl~~S@B_V)R%S@9ys?~~S@.q1Z~~S>{EDzR%S>k[MR%%S>YYK;R%S>EFX?~~ !S>/&Tc~~SK;R%Ryu?nm%%S-wN];R%S/V(c-~~ !S30=xc~~S5d9_zR%S9:4T;R%S;bo?VR%S?)R%%%%SABia@%%SCVeq)R%SEh4'd%%SGxLRv%%SO9sH.%% !SS3gFhR%SW&t?.%%SYk6ZVR%S]G;rH~~S_wiiH~~ScI?B;R%Sek5G6~~Si/op2R%SkK[QVR% #% [ 59] in_l2.amp !Q%%%%%%%P@U3>:q_P\3-NH~~PxRfCV]DQ0lYtR?gQ4pi8A~&Q:Os[^e0Q@ljp`otQHo~)oWrQRQXnDCK !Q\_t&8S,Qh3WpTSmQrnjhd9;Q~ElEnN|q !Q~O8br?>Qb8<*-1;R2:?+k[0DRJYgv2|TRXn{[ui1Rf*EE0v9Rn77eedvRp|+?-DbRpdYrMrI !RlvlcnOqRh,OiI_BR`h8(wh{RZ93_MkxRRgq9&(2RLQ\]d_BRF^0r3?>RB;^v,):R>P@8T\eRaKMt.-RFp`f\zjRNt'kH80RTSXS=LARX+WRz_MRZ-O&h6dRZ_jGAf7RZ\srx`LRZ/,:_dVRT~jD9;5 !RPnI2C?sRLn34a7vRHv+_R2rRDxTzmriRB?*)21/R>eh}L,9R<=GlYg:R8|2A*%MR87+Vbx\ #% [ 59] in_l2.phase !R7aD)R%%Ra[IMR%%S-qEN_R%S^vem%%%S^d)MzR%S^NGG6~~ !S\N@v%%%SZUIY_R%SZ@Goc~~SZ3ot7%%SXr};)R%SXN\(2R%SV}LNqR%SVMM1[%%STt4X@%%ST>{([%% !SRbfG_R%SR,FlVR%SPPRz)R%SNuXxc~~SNAgBc~~SLi:&DR%SL8.]d%%SJb+`I%%SJ2|T;R%SH^LJl~~ !SFDxt6~~SD*gFhR%S@jYSDR%S>RgJl~~SI9R0,0wSu.R0Uw?>t|R0w]@W]GRFD%}'jPR@~c@j-FR>;kLeMJR<=fgFOsOE5WRF]@gw^&RN^Y<]_zRT=.XK=jRVn`l@r/RXp9mv*.RZHx_h&lRZGfcZBoRXvLy0g,RTr(:m`\ !RPd+h^XkRLgk*1A)RHqFP+~?RDtwAm[bRB=MI~3pR>dW(Jl~~ !S_HNI%%%SiRJ`qR%SsqS\m%%SyTunl~~S}=hvMR%T-VPR12RT-^X(wDRT-e9_1[%T-k4%=@%T-pn/L[% !T-v+[12RT-zv,cVRT/%/3uVRT/(]5od%T/+?i0d%T/,vNeDRT/-:eTd%T/+qB[v%T/(QtshRT-}=A\m% !T-o~Pod%T-m=vahRT-r?30x;RT/rQ)_R%S^vem%%%S^d)MzR%S^NGG6~~ !S\N@v%%%SZUIY_R%SZ@Goc~~SZ3ot7%%SXr};)R%SXN\(2R%SV}LNqR%SVMM1[%%STt4X@%%ST>{([%% !SRbfG_R%SR,FlVR%SPPRz)R%SNuXxc~~SNAgBc~~SLi:&DR%SL8.]d%%SJb+`I%%SJ2|T;R%SH^LJl~~ !SFDxt6~~SD*gFhR%S@jYSDR%S>RgJl~~S*6tZ:2R>PV*7K+R>pRT4c_R@25ZL%z !RB8?^h/}RJ|OLivERZbJUe0skbJS3R<\6E6WmR:]zJ.Z*R:)L:RUx #% [ 59] in_m1.phase !S1.Pwm%Subcp&DRSw*93mMRSwDQA(2RSwV?_nDRSw^AfSm%Sw\bO?~~SwS0;Q~~ !Sw9F'd%%SwUVzQ~~SyOspZ~~S{iviqR%T-Sk&HVRT-`i|'d%T-mW*8m%T-zNDzR%T/-`,Z:2RT1SJ)EqRT1f?e,7%T1zMNiI%T32@vmv%T3DV;f;RT3Z1(FhR #% [ 59] in_m1.caps !S@P-b_R%S@Npc-~~S@K+dMR%S@Dlfd%%S@<)Iv%%S@0w(2R%S>}K;Q~~S>m]d%%%S>[X'd%%S>GE4hR% !S>0{Q.%%SR@N\t2CoR9'RDi8*m\,RB654((]R>`LF=JMR<_R%SiNuVQ~~Su[2j@%%S{w+H.%%T-V2;Am%T-^X(wDRT-d~s;zRT-j]3I%%T-o~Pod% !T-t|n}7%T-y[M-VRT-}]'_zRT/&qv))RT/)7@z)RT/*Ixp2RT/*1sdMRT/'yzZ.%T-}Z/8DRT-w=0[v% !T-i2PG7%T-f~xx;RT-lCCwDRT-u;:wDRT/%aol.%T/0J/q)RT/:s}{qRT/E?q9d%T/Os6>7%T/n[7''; !T1(9&q)RT1:jbdiqT1LKKrY7T1^26?nmT1m[gz5_T1~Gi8m%T339>g[%T3A;5_R%T3Q5QB;R #% [ 59] in_m2.caps !S`idz)R%S`idz)R%S`idz)R%S`i]_zR%S`iKKd%%S`i*];R%S`hF`I%%S`g:Z~~~S`eURu~~S`c+3qR% !S`_d]d%%S`[8(2R%S`UG2zR%S`M|/m%%S`Dq~VR%S`9a|hR%S`,A0;R%S^vL>_R%S^cmY_R%S^N8l~~~ !S\N@v%%%SZU|\DR%SZALZ~~~SZ5)9d%%SXt+`H~~SXOUs?~~SV~;EqR%SVN1.MR%STtgZ~~~ST?Lk7%% !SRc4P6~~SR,k;)R%SPPp.MR%SNurM)R%SNB&q)R%SLiOt_R%SL8@qzR%SJb::[%%SJ3)nDR%SH^Sdu~~ !SFDxt6~~SD*gFhR%S@jYSDR%S>Rk*qR%Sh%QjB]tX4i9R43HO+1oR4Y(b=^kR4wFO5RzR635}kE~R6=ir+HRR6:oZ/\m !R2slFNY7R07Ua=;2Ql\=3nYWQx:iv;W=R6dDTq[fRBMIbbC3RL__(8MnRT;](jVbRV}sjs9xRX/VjmW] !RV)jNfA}RR9I`R{aRN%;_E/uRH^=E?izRD@-QE,`R@0N%z;fR<8vG?8yR8_]yV1[R6VL`I[bR6*Y8N8m !R8jO9t[NR@gtm3-NRHSkni}MRN.no{@CRPk4g,XFRT&]%1FwRTt)M9(9RV7:{Iw&RV)4xhqARRf?TWO| !RNywBQXTRL;tZ~&lRHT`JD&^D8+.ZR<;BO;%yR:%%s_R%S^cmY_R%S^N8l~~~ !S\N@v%%%SZU|\DR%SZALZ~~~SZ5)9d%%SXt+`H~~SXOUs?~~SV~;EqR%SVN1.MR%STtgZ~~~ST?Lk7%% !SRc4P6~~SR,k;)R%SPPp.MR%SNurM)R%SNB&q)R%SLiOt_R%SL8@qzR%SJb::[%%SJ3)nDR%SH^Sdu~~ !SFDxt6~~SD*gFhR%S@jYSDR%S>Rk*qR%S=Ikx03R>~**3BxR@i9hS)jRBXaiOP7 !RH,(R3`QRP*\/zTLRZ~.GS^&Rd?P2H6wRf]p/+]|Rd''%9\@R\/2Nzu_RRSw.UAQRLBe5L*IRJ+Tx2hb !RHevoQ\4RH>I>Qu>RFC.w6u>RBt|_nS,R@)Nvn93R<%A]E@-R6vceR.fR2m6{w}7R.mi*kodQdY]`FIf !R.ti)^A,R:/{u;aWRBe%Vq~WRHy'c>QwO(R@sAb3:&R>G0VP/SR:sGc}rzR8EYu5T|R6EF>D>W #% [ 59] in_m4.phase !S/oW(Z~~S5(?)zR%S93Th)R%S=7>.v%%SA3MrH~~SE()~VR%SGo03I%%SKTys@%%SO3wXhR%SQe[57%% !SU6f?VR%SW[BWqR%SYz1Z~~~S]8e@MR%S_KN0d%%SaXBKd%%Sc_B7MR%Se`XH.%%SgZq^2R%SiMS\m%% !Sm>A0;R%So6>[MR%Sov^Ru~~Soy.qzR%SoReHVR%Sm~Cs@%%Smf,SDR%Sm|Hvu~~Soezj?~~SqXJTc~~ !Ss2NDzR%SsG{qQ~~SsG(&DR%Ss7|+hR%Sq{_b6~~Sq`w}6~~Sq@xKc~~SopEU2R%So(62)R%Sk<`Q-~~ !S]M7ahR%S[I))R%%S[E[9;R%S[]rY6~~S],j'd%%S]\/(2R%S_1}K;R%S_c+3qR%Sa7%%%%SjZLFhR%Shpps?~~Sh)38m%%Sf=UNqR%SdX=|hR%Sbxbk_R%Sb@pBd%%S^I[=?~~ !S\A'C[%%SZ?)V)R%SX_R%SR_,C2R%SPtZ^Z~~SP0e\l~~SNFt;)R% #% [ 59] in_m5.amp !Q%%%%%%%Q4uDW6?&QDn\n[CkQTm7)U[IQdrV[[{=Qt~]pLG3R.n`W%+uR0^X(5g[R2Nu5j.~R4=cHS&U !R6+^Esj0R6q[orJ]R8[6ZGwmR:BD@K+@R<(MbT3IRMSN`3zR@7?ROB'RB%d'xuoRBr,=:Bd !RHGF{khJRPHcLKqjR\AgjUYlRdSFQ~.nRffEOl~[Rd&?W-8UR\(J9b*)RRKG3},ORL;UfC[%RJ&+7t4} !RH`VH.u6RH8W%BPWRF<2O893RBm2LW/,R>{bF9SmR:waEAY|R6oDVS)jR2f6@d~.R.fn}G(KQbp,qMNi !R.unY4IfR:3c]&cyRBjkhS&0RJ'k'0guRN9S-A{~RPpVtk\ZRR|l6TD-RTSxSbE-RTTcx&N*RRMV7IpQ !RNkr\6zGRL(.zP1CRHBM_z]aRDNs|tx`R@s*FaPcR>E7*go8R:q:)D9dR8CUqyTTR6BDuAfq #% [ 59] in_m5.phase !S1\Kl.%%S5o3mMR%S9zIQVR%S=~W@v%%SAzg*H~~SEog_)R%SI\mmv%%SMC'|?~~SO{[9;R%SSS>od%% !SU}[))R%SYGHJDR%S[d57%%%S]zB7MR%Sa/oKd%%Sc9)b6~~Se;ZRMR%Sg6iy[%%Si*|L2R%Siphj@%% !SmQD=hR%SoC;%MR%Sq%1{I%%Sq%5[MR%SoWXlVR%So)[el~~Sml|3qR%So*Qvu~~SooaX?~~Sqbz9c~~ !Ss<52zR%SsQ>6~~~SsO1&DR%Ss>qf;R%Ss'fKc~~SqfZ>6~~SqF6>7%%Sou]G_R%So-)V)R%Sk>bg[%% !S]KYshR%S[J`qQ~~S[G9';R%S[_PG6~~S]/6fc~~S]`3U2R%S_7;=hR%S_gxWqR%Sa@w\l~~Se2PG7%% !SgHo[u~~Si^;%MR%Sks`I%%%So2b7%%%Sq=miqR%SsY`eDR%Suh6NI%%Swn&Tc~~Syv9_zR% #% [ 59] in_m5.caps !Sx3r@v%%Sx3XlVR%Sx2b[MR%Sx15gZ~~Sx/3Q.%%Sx,[qzR%Sx)Q6-~~Sx%xKd%%Sv{wXhR%SvwR=?~~ !SvrimMR%Svm`U2R%Svh=hQ~~Svb_-VR%Sv\jX@%%SvVcnl~~SvPJq)R%SvIndu~~SvBuJDR%Sv;PG6~~ !Stw{4hR%St[M-VR%Ste[~.%%St}NuVR%Sv2jdMR%Sv9N0c~~Sv9ny2R%Sv4.~-~~Sv(qb7%%StrBSl~~ !St]*uVR%StCwDR%%St'bk_R%SrcHB;R%SrCps?~~Sp}qAl~~Sp^<8l~~Sp?S`qR%Sn|(.MR%Sn`)Iu~~ !SlyyFhR%Sl>7%%%%SjZLFhR%Shpps?~~Sh)38m%%Sf=UNqR%SdX=|hR%Sbxbk_R%Sb@pBd%%S^I[=?~~ !S\A'C[%%SZ?)V)R%SX_R%SR_,C2R%SPtZ^Z~~SP0e\l~~SNFt;)R% ifeffit-1.2.11d/src/fefftab/07.dat0000755000175000017500000000615210771740460015471 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0068 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #:system #:scalars (nopad) #:arrays #% [ 59] n.k !Q%%%%%%%R.R%%%%%R8%%%%%%R@R%%%%%RJ%%%%%%RRR%%%%%RZ%%%%%RdR%%%%%Rn%%%%%%RvR%%%%% !S.R%%%%%S.zR%%%%S0I%%%%%S0qR%%%%S2@%%%%%S2hR%%%%S47%%%%%S4_R%%%%S6.%%%%%S6VR%%%% !S8v%%%%%S:m%%%%%S[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%%SJ%%%%%% !SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%%S\%%%%%% !S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.f;R%%%T0I%%%%% !T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%%T8MR%%%% #% [ 59] n_k.amp !Q%%%%%%%R.]l%i[^R8/f3EDzR@D%HiU2RH8~5k`Rl(HZ0Z>Rn`k0|rrvC84R<`+lcBgR:_P/|%pR8maV;0@ !R66g?bSpR2yo=s9xR0r:jsp[R.~wt/[lQ~30GX7vQtiMBs9TQl3(RF9Q4OpQ<&zAxS^Q:zw/K1kQ4wZ'@<`Q67-%eaCPxz6qAH6Ph'Fl7FN #% [ 59] n_k.phase !S;{,_R%%SA3ewTd%SE>foh)RSIA|~jhRSM=VLBd%SQ1HjhR%SSwI+t_RSW[[eHVRS[7qh=hRS]f.\u.% !Sa29ys@%ScP*(Z~~SeePUszBSgrBNBxm=@%Smb`2Am%SoBziQ.%Sq.*97MRSqvnop2R !Su{;Kx;RSy)yX3qRS{%GK;R%S{pDAm%%S}[xKd%%T-U9RY_RT-[|ieDRT-bqAl~~T-imuZVRT-pjp6VR !T-w^`a@%T-~?4P7%T/*e~nm%T/0|kg[%T/7-5?.%T/=,^c.%T/Bx}.v%T/H^6VR%T/N8Op[%T/SbwHVR !T/`iSy2RT/l\J4@%T/w=)Am%T1'?w@MRT11)dEI%T3Kunm%%T3O:4/m%T3o@>.v%T75Ls?~~ #% [ 59] n_k.caps !RbM^2Q~~Rb6@]c~~R`Jxh)R%R^3>shR%RZL0t6~~RV>k_Q~~RPhu:2R%RJt&HVR%RDcLFhR%R>9sH.%% !R6SR=@%%R.Wa@%%%Pp`bwm%%QuPYK;R%R5fk?-~~R?dGoc~~RK+{0c~~RY8qrH~~Rc]G;)R%Rg}LNqR% !RqkQB;R%RytE}_R%S-gRQVR%S/89|@%%S/d<,_R%S174H.%%S1d\,6~~S38?^Z~~S3e}7%%%S59Ju.%% !S5fQjhR%S7947u~~S7et?.%%S99:c.%%S9gBd%%%S;;Jdv%%S;hXt_R%S=::6VR%S=d=dMR%S?2\0;R% !SA6r(Z~~SC3TC[%%SE*xl-~~SEwiDzR%SGe[Y_R%SIMo3H~~SK0cZVR%SKiL:[%%SMECg2R%SO}*M)R% !SQub;)R%SSgnq)R%SURZ)zR%SW6A(2R%SWpZ6.%%SYKWqR%%SY|ft6~~S[R(:[%%S[}?.%%% #% [ 59] n.rep !S0s7-.%%S0tg[%%%S0y=pZ~~S2&fSl~~S20|dMR%S2=y.MR%S2MIQVR%S2_9?VR%S2sA8DR%S4/VAl~~ !S4GmahR%S4b0x;R%S4~PK;R%S6Bunl~~S6cR))R%S8,J(2R%S8R6nm%%S:'&LZ~~S:N~)zR%S:jMEqR% !S<`^NqR%S>AqMzR%S@&@))R%S@gV1Z~~SBQ8y2R%SDa/l~~S`L5gZ~~Sbn:FhR%SfG1Bd%%Sj.?B;R%Sl{tC2R% !Spz_EqR%Sv)Y?-~~Sz;s7u~~S~VvMQ~~T.cU>_R%T.yqb6~~T06ub_R%T0Ndz)R%T0g4T;R%T2&EeDR% !T2h4p[%%T4SwTc~~T6CK7MR%T86U>_R%T:-80;R%T<'Bl-~~T<~jD)R%T@%Tl.%%TB)XP7%%THHTOhR% !TLlVvMR%TRBT[v%%TV~7em%%T\kDEqR%TbchAl~~Thg3eDR%TnuO\DR%Tv4SL[%%T|X,{qR% ifeffit-1.2.11d/src/feff6/0000755000175000017500000000000011117272040014126 5ustar segresegreifeffit-1.2.11d/src/feff6/phash.f0000644000175000017500000000274410663646452015430 0ustar segresegre subroutine phash (npat, ipat, rx, ry, rz, dhash) c hashes a path into double precision real dhash include 'dim.h' double precision dhash dimension rx(npatx), ry(npatx), rz(npatx), ipat(npatx+1) common /atoms/ rat(3,0:natx), ipot(0:natx), i1b(0:natx) double precision xx parameter (iscale = 1000) parameter (factor = 16.12345678) c Hashing scheme: Assume about 15 significant digits in a double c precision number. This is 53 bit mantissa and 11 bits for sign c and exponent, vax g_floating and probably most other machines. c With max of 9 legs, 47**9 = 1.12e15, so with a number less than c 47, we can use all these digits, scaling each leg's data by c 47**(j-1). Actually, since our numbers can go up to about 10,000, c we should keep total number < 1.0e11, 17**9 = 1.18e11, which means c a factor a bit less than 17. Choose 16.12345678, a non-integer, c to help avoid hash collisions. c iscale and 'int' below are to strip off trailing digits, which c may contain roundoff errors dhash = 0 do 210 j = 1, npat xx = factor**(j-1) dhash = dhash + xx * (nint(rx(j)*iscale) + 1 nint(ry(j)*iscale)*0.894375 + 2 nint(rz(j)*iscale)*0.573498) 210 continue do 220 j = 1, npat xx = factor**(j-1) dhash = dhash + xx * ipot(ipat(j)) 220 continue dhash = dhash + npat * 40 000 000 return end ifeffit-1.2.11d/src/feff6/terp.f0000644000175000017500000000220310663646452015265 0ustar segresegrec Linear interpolation and extrapolation. c Input x and y arrays, returns y value y0 at requested x value x0. c Dies on error. subroutine terp (x, y, n, x0, y0) implicit double precision (a-h, o-z) dimension x(n), y(n) c Find out between which x points x0 lies i = locat (x0, n, x) c if i < 1, set i=1, if i > n-1, set i=n-1 i = max (i, 1) i = min (i, n-1) if (x(i+1) - x(i) .eq. 0) call fstop(' at TERP-1') y0 = y(i) + (x0 - x(i)) * (y(i+1) - y(i)) / (x(i+1) - x(i)) return end function locat (x, n, xx) double precision x, xx(n) integer u, m, n c Binary search for index of grid point immediately below x. c Array xx required to be monotonic increasing. c Returns c 0 x < xx(1) c 1 x = xx(1) c i x = xx(i) c n x >= xx(n) locat = 0 u = n+1 10 if (u-locat .gt. 1) then m = (u + locat) / 2 if (x .lt. xx(m)) then u = m else locat = m endif goto 10 endif return end ifeffit-1.2.11d/src/feff6/sidx.f0000644000175000017500000000162610663646452015272 0ustar segresegre subroutine sidx (rholap, npts, rmt, rnrm, imax, imt, inrm) implicit double precision (a-h, o-z) dimension rholap (npts) character messag*128 imt = ii (rmt) inrm = ii (rnrm) c Set imax (last non-zero rholap data) do 220 i = 1, npts if (rholap(i) .le. 1.0d-5) goto 230 imax = i 220 continue 230 continue c We need data up to the norman radius, so move norman c radius if density is zero inside rnrm. if (inrm .gt. imax) then inrm = imax rnrm = rr (inrm) write(messag,'(1x,a,g15.6,a)') $ ' sidx: moved rnrm to ', rnrm, ' au ' call echo(messag) endif if (imt .gt. imax) then imt = imax rmt = rr (imt) write(messag,'(1x,a,g15.6,a)') $ ' sidx: moved rmt to ', rmt, ' au ' call echo(messag) endif return end ifeffit-1.2.11d/src/feff6/ovrlp.f0000644000175000017500000000427410663646452015467 0ustar segresegre subroutine ovrlp (iph, iphat, rat, iatph, ifrph, novr, 1 iphovr, nnovr, rovr, iz, nat, rho, vcoul, 2 edens, vclap, rnrm) c Overlaps coulomb potentials and electron densities for current c unique potential implicit double precision (a-h, o-z) include 'const.h' include 'dim.h' dimension iphat(natx) dimension rat(3,natx) dimension iatph(0:nphx) dimension ifrph(0:nphx) dimension novr(0:nphx) dimension iphovr(novrx,0:nphx) dimension nnovr(novrx,0:nphx) dimension rovr(novrx,0:nphx) dimension iz(0:nfrx) dimension rho(251,0:nfrx) dimension vcoul(251,0:nfrx) dimension edens(nrptx,0:nphx) dimension vclap(nrptx,0:nphx) dimension rnrm(0:nphx) c find out which free atom we're dealing with ifr = ifrph(iph) c start with free atom values for current atom do 100 i = 1, 250 vclap(i,iph) = vcoul(i,ifr) edens(i,iph) = rho (i,ifr) 100 continue if (novr(iph) .gt. 0) then do 104 iovr = 1, novr(iph) rnn = rovr(iovr,iph) ann = nnovr(iovr,iph) infr = ifrph(iphovr(iovr,iph)) call sumax (250, rnn, ann, vcoul(1,infr), vclap(1,iph)) call sumax (250, rnn, ann, rho (1,infr), edens(1,iph)) 104 continue else c Do overlapping from geometry with model atom iat iat = iatph(iph) c overlap with all atoms within r overlap max (rlapx) c 12 au = 6.35 ang This number pulled out of a hat... rlapx = 12 c inat is Index of Neighboring ATom do 110 inat = 1, nat c don't overlap atom with itself if (inat .eq. iat) goto 110 c if neighbor is too far away, don't overlap it rnn = dist (rat(1,inat), rat(1,iat)) if (rnn .gt. rlapx) goto 110 infr = ifrph(iphat(inat)) call sumax (250, rnn, one, vcoul(1,infr), vclap(1,iph)) call sumax (250, rnn, one, rho (1,infr), edens(1,iph)) 110 continue endif c set norman radius call frnrm (edens(1,iph), iz(ifr), rnrm(iph)) return end ifeffit-1.2.11d/src/feff6/phmesh.f0000644000175000017500000000627210663646452015611 0ustar segresegrec make e and r mesh for phase c input: nr, dx, x0, nemax, iprint, c ixanes, edge, xmu, vint, vr0, imt, edens, nph c edge, xmu... used only with ixanes = 1 c output: ri(nr), ne, em(ne), ik0 [grid point with k=0] c c set nemax = nex (from dim.h) for max number of points subroutine phmesh (nr, dx, x0, nemax, iprint, 1 ixanes, edge, xmu, vint, vr0, 1 imt, edens, nph, 2 ri, ne, em, ik0) implicit double precision (a-h, o-z) include 'const.h' include 'dim.h' dimension ri(nr), em(nex) c edens overlapped density*4*pi c imt r mesh index just inside rmt c see arrays.h dimension edens(nrptx,0:nphx) dimension imt(0:nphx) c r mesh do 100 i = 1, nr ri(i) = rr(i) 100 continue c xkmin needed only with ixanes if (ixanes .gt. 0) then c Need xf**2 min for all unique potentials, take rho(imt) as c min rho xf2int = xmu-vint xf2min = xf2int do 400 i = 0, nph rs = (3 / edens(imt(i),i)) ** third xf2 = (fa / rs) ** 2 if (xf2 .le. xf2min) xf2min = xf2 400 continue xkmin2 = xf2min - vr0 if (xkmin2 .lt. 0) then c print*, ' xf2min, vr0, xkmin2' c print*, xf2min, vr0, xkmin2 c print*, 'bad vr0 in phmesh' call fstop(' at PHMESH: bad vr0') endif delk = bohr/5 xkmin = sqrt (xkmin2) n = int(xkmin/delk) - 1 else xkmin = 0 n = 0 endif c energy mesh c n pts (-2 le k lt 0, delk=0.2 ang(-1) ) (only if xanes) c 30 pts (0 le k le 5.8, delk=0.2 ang(-1) ) c 9 pts (6 le k le 10., delk=0.5 ang(-1) ) c 10 pts (11 le k le 20.0, delk=1.0 ang(-1) ) ne = 0 delk = bohr/5 if (ixanes .gt. 0) then xkmin = n*delk do 110 i=1,n tempk=-xkmin+(i-1)*delk ne = ne+1 em(ne)=-tempk**2+edge 110 continue endif delk = bohr/5 do 112 i=1,30 tempk=(i-1)*delk ne = ne+1 em(ne)=tempk**2+edge if (i.eq.1) ik0 = ne 112 continue delk = bohr/2 do 113 i=1,9 tempk=6.*bohr + (i-1)*delk ne = ne+1 em(ne)=tempk**2+edge 113 continue delk=bohr do 114 i=1,10 tempk=11.*bohr + (i-1)*delk ne = ne+1 em(ne)=tempk**2+edge 114 continue c print*, 'phmesh: ne, nex, nemax before setting ne ', c 1 ne, nex, nemax ne = min (ne, nemax) c print*, 'phmesh: ne, nex, nemax after setting ne ', c 1 ne, nex, nemax if (iprint .ge. 3) then open (unit=44, file='emesh.dat') write(44,*) 'edge, bohr, edge*ryd ', edge, bohr, edge*ryd write(44,*) 'ixanes, ik0 ', ixanes, ik0 write(44,*) vint, xkmin, n, ' vint, xkmin, n' write(44,*) 'ie, em(ie), xk(ie)' do 230 ie = 1, ne write(44,220) ie, em(ie), getxk(em(ie)-edge)/bohr 220 format (i5, 2f20.5) 230 continue close (unit=44) endif return end ifeffit-1.2.11d/src/feff6/xcpot.f0000644000175000017500000001563210663646452015462 0ustar segresegre subroutine xcpot (iph, ie, nr, index, ifirst, jri, 1 em, xmu, vi0, rs0, gamach, 2 vr, densty, 3 eref, v, 4 vxcrmu, vxcimu) implicit double precision (a-h, o-z) c INPUT c iph, ie used only for debug and labels. c nr number of points in current Loucks r-grid c index 0 Hedin-Lunqvist + const real & imag part c 1 Dirac-Hara + const real & imag part c 2 ground state + const real & imag part c 3 Dirac-Hara + HL imag part + const real & imag part c 4 See rdinp for comment c ifirst first entry flag, set to zero before first call for c each unique potential, see vxcrmu and vxcimu below c jri index of first interstitial point in current c Loucks r grid c em current energy grid point c xmu fermi level c vi0 const imag part to subtract from potential c rs0 user input density cutoff, index=4 only c gamach core hole lifetime c vr(nr) total potential (coulomb and gs exchange corr) c densty(nr) electron density c c OUTPUT c eref complex energy reference for current energy c v(nr) complex potential including energy dep xc c c WORKSPACE c vxcrmu and vxcimu are calculated only on first entry for a c particular unique potential, re-used on subsequent entries. c vxcrmu(nr) real part of xc at fermi level c vxcimu(nr) imag part of xc at fermi level c c This subroutine uses atomic (hartree) units for energy, c phase uses rydbergs. All inputs to and outputs from xcpot are c in rydbergs. (Factor of 2 to convert from one to the other.) include 'const.h' include 'dim.h' dimension vr(nr), densty(nr) complex*16 eref, v(nr) dimension vxcrmu(nr), vxcimu(nr) character*128 messag complex*16 delta c First calculate vxc to correct the local momentum dispersion c relation, delta = vxc(e,k) - vxc(mu,k), and c p^2 = k^2 -mu + kf^2 - delta. c In jr theory, v(e,r) = vcoul(r) + vxc(e,r) = c = vcoul(r) + vxcgs(r) + delta(e,r). if (index .eq. 2) then c Ground state exchange, no self energy calculation do 10 i = 1, jri v(i) = vr(i) 10 continue else c Add the self energy correction do 20 i = 1, jri rs = (3 / (4*pi*densty(i))) ** third c xf = 1.9191.../rs xf = fa / rs c xk2 is the local momentum squared, p^2 = k^2 - mu + kf^2, c k^2 represents energy measured from vacuum. c See formula 2.15 in Lee and Beni's paper with the last 2 c terms neglected. (complete reference?) xk2 = em + xf**2 - xmu if (xk2 .lt. 0) then call echo(' error at XCPOT: xk2<0') call echo(' i, jri, rs, densty(i):') write(messag,'(2x,2i8,2g15.6)') i, jri, rs, densty(i) call echo(messag) call echo(' xf, fa, em, xmu, xk2:') write(messag,'(2x,5g15.6)') xf, fa, em, xmu, xk2 call echo(messag) call fstop(' at XCPOT-1') endif xk = sqrt(xk2) if (index .eq. 0) call rhl(rs,xk,vxcr,vxci) if (index .eq. 1) call edp(rs,xk,vi0,vxcr,vxci) if (index .eq. 3) then call edp(rs,xk,vi0,vxcr,vxci) call imhl(rs,xk,vxci,icusp) elseif (index .eq. 4) then rstmp = (1/rs**3 - 1/rs0**3) ** (-third) call edp(rstmp,xk,vi0,vxcr1,vxci1) call rhl(rs0,xk,vxcr2,vxci2) vxcr = vxcr1 + vxcr2 vxci = vxci1 + vxci2 endif if (ifirst .eq. 0) then c vxc_mu indep of energy, calc only once c Calculate vxc at fermi level e = mu, j.m. 1/12/89 xk = xf * 1.00001 if (index .eq. 0) call rhl(rs,xk,vxcrmu(i),vxcimu(i)) if (index .eq. 1) call edp(rs,xk,vi0,vxcrmu(i),vxcimu(i)) if (index .eq. 3) then call edp(rs,xk,vi0,vxcrmu(i),vxcimu(i)) call imhl (rs,xk,vxcimu(i),icusp) elseif (index .eq. 4) then rstmp = (1/rs**3 - 1/rs0**3) ** (-third) call edp(rstmp,xk,vi0,vxcr1,vxci1) call rhl(rs0,xk,vxcr2,vxci2) vxcrmu(i) = vxcr1 + vxcr2 vxcimu(i) = vxci1 + vxci2 endif endif delta = dcmplx (vxcr-vxcrmu(i), vxci-vxcimu(i)) c Correct local momentum according to the formula c p^2 = k^2 - mu + kf^2 - delta. Note that imag part c of delta is ignored, since xk2 is a real quantity. xk2 = em + xf**2 - xmu - delta if (xk2 .lt. 0) then call echo(' error at XCPOT: xk2<0') call echo(' i, ie, iph, xk2, em, xf**2,'// $ ' xmu, delta') write(messag,'(2x,3i7,5g15.6)') $ i, ie, iph, xk2, em, xf**2, xmu, delta call echo(messag) call fstop(' at XCPOT-2') endif xk = sqrt (xk2) c recalculate vxc(e,k) and vxc(mu,k) with the corrected c local momentum if (index .eq. 0) call rhl(rs,xk,vxcr, vxci) if (index .eq. 1) call edp(rs,xk,vi0,vxcr,vxci) if (index .eq. 3) then call edp(rs,xk,vi0,vxcr,vxci) call imhl (rs,xk,vxci,icusp) elseif (index .eq. 4) then rstmp = (1/rs**3 - 1/rs0**3) ** (-third) call edp(rstmp,xk,vi0,vxcr1,vxci1) call rhl(rs0,xk,vxcr2,vxci2) vxcr = vxcr1 + vxcr2 vxci = vxci1 + vxci2 endif c delta corrected calculated with new local momentum delta = dcmplx (vxcr-vxcrmu(i), vxci-vxcimu(i)) c Note multiplication by 2 in the exchange correlation part to c to convert it to rydberg units. 19 continue v(i) = vr(i) + 2*delta 20 continue endif c Reference the potential with respect to mt potential, ie, c first interstitial point. v(jri) = 0 c Note that the reference does not contain the core hole lifetime c since the total atomic potential should have it. However in the c perturbation deltav = v - vmt it cancels out. c ( deltav = vat - igamma - (vatmt-igamma) ). eref = v(jri) do 11 i = 1, jri v(i) = v(i) - eref 11 continue c igamma added to the reference so that k^2 = E - Eref, where c Eref = Vat(mt) - igamma / 2 eref = eref - coni * gamach / 2 c Add const imag part eref = eref - coni * vi0 ifirst = 1 return end ifeffit-1.2.11d/src/feff6/potslw.f0000644000175000017500000000176610663646452015660 0ustar segresegre subroutine potslw (dv,d,dp,dr,dpas,np) c c coulomb potential uses a 4-point integration method c dv=potential; d=density; dp=bloc de travail; dr=radial mesh c dpas=exponential step; c np=number of points c ********************************************************************** implicit double precision (a-h,o-z) save dimension dv(251), d(251), dp(251), dr(251) das=dpas/24.0 do 10 i=1,np 10 dv(i)=d(i)*dr(i) dlo=exp(dpas) dlo2=dlo*dlo dp(2)=dr(1)*(d(2)-d(1)*dlo2)/(12.0*(dlo-1.0)) dp(1)=dv(1)/3.0-dp(2)/dlo2 dp(2)=dv(2)/3.0-dp(2)*dlo2 j=np-1 do 20 i=3,j 20 dp(i)=dp(i-1)+das*(13.0*(dv(i)+dv(i-1))-(dv(i-2)+dv(i+1))) dp(np)=dp(j) dv(j)=dp(j) dv(np)=dp(j) do 30 i=3,j k=np+1-i 30 dv(k)=dv(k+1)/dlo+das*(13.0*(dp(k+1)/dlo+dp(k))-(dp(k+2)/dlo2+dp 1 (k-1)*dlo)) dv(1)=dv(3)/dlo2+dpas*(dp(1)+4.0*dp(2)/dlo+dp(3)/dlo2)/3.0 do 40 i=1,np 40 dv(i)=dv(i)/dr(i) return end ifeffit-1.2.11d/src/feff6/pertab.f0000644000175000017500000000536010663646452015577 0ustar segresegrec Periodic table of the elements c Written by Steven Zabinsky, Feb 1992. Deo Soli Gloria c atwts(iz) single precision fn, returns atomic weight c atwtd(iz) double precision fn, returns atomic weight c atsym(iz) character*2 fn, returns atomic symbol double precision function atwtd (iz) double precision weight save /atwtco/ common /atwtco/ weight(103) atwtd = weight(iz) return end real function atwts (iz) double precision weight save /atwtco/ common /atwtco/ weight(103) atwts = weight(iz) return end character*2 function atsym (iz) character*2 sym save /atsyco/ common /atsyco/ sym(103) atsym = sym(iz) return end block data prtbbd c PeRiodic TaBle Block Data c Atomic weights from inside front cover of Ashcroft and Mermin. double precision weight save /atwtco/ common /atwtco/ weight(103) character*2 sym save /atsyco/ common /atsyco/ sym(103) data weight / 1 1.0079, 4.0026, 6.941, 9.0122, 10.81, 12.01, 2 14.007, 15.999, 18.998, 20.18, 22.9898, 24.305, 3 26.982, 28.086, 30.974, 32.064, 35.453, 39.948, 4 39.09, 40.08, 44.956, 47.90, 50.942, 52.00, 5 54.938, 55.85, 58.93, 58.71, 63.55, 65.38, 6 69.72, 72.59, 74.922, 78.96, 79.91, 83.80, 7 85.47, 87.62, 88.91, 91.22, 92.91, 95.94, 8 98.91, 101.07, 102.90, 106.40, 107.87, 112.40, 9 114.82, 118.69, 121.75, 127.60, 126.90, 131.30, x 132.91, 137.34, 138.91, 140.12, 140.91, 144.24, 1 145, 150.35, 151.96, 157.25, 158.92, 162.50, 2 164.93, 167.26, 168.93, 173.04, 174.97, 178.49, 3 180.95, 183.85, 186.2, 190.20, 192.22, 195.09, 4 196.97, 200.59, 204.37, 207.19, 208.98, 210, 5 210, 222, 223, 226, 227, 232.04, 6 231, 238.03, 237.05, 244, 243, 247, 7 247, 251, 254, 257, 256, 254, 8 257/ data sym / 'H', 'He','Li','Be','B', 'C', 'N', 'O', 'F', 'Ne', 1 'Na','Mg','Al','Si','P', 'S', 'Cl','Ar','K', 'Ca', 2 'Sc','Ti','V', 'Cr','Mn','Fe','Co','Ni','Cu','Zn', 3 'Ga','Ge','As','Se','Br','Kr','Rb','Sr','Y', 'Zr', 4 'Nb','Mo','Tc','Ru','Rh','Pd','Ag','Cd','In','Sn', 5 'Sb','Te','I', 'Xe','Cs','Ba','La','Ce','Pr','Nd', 6 'Pm','Sm','Eu','Gd','Tb','Dy','Ho','Er','Tm','Yb', 7 'Lu','Hf','Ta','W', 'Te','Os','Ir','Pt','Au','Hg', 8 'Tl','Pb','Bi','Po','At','Rn','Fr','Ra','Ac','Th', 9 'Pa','U', 'Np','Pu','Am','Cm','Bk','Cf','Es','Fm', x 'Md','No','Lw'/ end ifeffit-1.2.11d/src/feff6/cubic.f0000644000175000017500000000163210663646452015405 0ustar segresegre subroutine cubic (xk0, wp, alph, rad, qplus, qminus) c input: xk0, wp, alph c output: rad, qplus, qminus implicit double precision (a-h, o-z) complex*16 s1,s13 parameter (three = 3) parameter (third = 1/three) c this subroutine finds the roots of the equation c 4xk0 * q^3 + (alph-4xk0^2) * q^2 + wp^2 = 0 c see abramowitz and stegun pg 17 for formulae. a2 = (alph / (4*xk0**2) - 1) * xk0 a0 = wp**2 / (4*xk0) a1 = 0 q = a1/3 - a2**2/9 r = (a1*a2 - 3*a0)/6 - a2**3/27 rad = q**3 + r**2 if (rad .gt. 0) then qplus = 0 qminus = 0 return endif s13 = dcmplx (r, sqrt(-rad)) s1 = s13 ** third qz1 = 2*s1 - a2/3 qz2 = -(s1 + sqrt(three)*dimag(s1) + a2/3) qz3 = -(s1 - sqrt(three)*dimag(s1) + a2/3) qplus = qz1 qminus = qz3 return end ifeffit-1.2.11d/src/feff6/fmatrx.h0000644000175000017500000000011110663646452015612 0ustar segresegre complex*16 fmati common /fmatrx/ fmati(lamtot,lamtot,legtot) ifeffit-1.2.11d/src/feff6/lambda.h0000644000175000017500000000043310663646452015540 0ustar segresegre common /lambda/ 4 mlam(lamtot), !mu for each lambda 5 nlam(lamtot), !nu for each lambda 1 lamx, !max lambda in problem 2 laml0x, !max lambda for vectors involving absorbing atom 3 mmaxp1, nmax !max mu in problem + 1, max nu in problem ifeffit-1.2.11d/src/feff6/rot3i.f0000644000175000017500000001061710663646452015363 0ustar segresegre subroutine rot3i (lxp1, mxp1, ileg) implicit double precision (a-h,o-z) c input: lxp1, mxp1, ileg (lmax+1, mmax+1) c also beta(ileg) used from common /pdata/ c output: dri(...ileg) in common /rotmat/ c subroutine rot3 calculates rotation matrices for l = 0,lxp1-1 c subroutine rot3 calculates the beta dependence of rotation c matrix elements using recursion of an iterated version of c formula (4.4.1) in edmonds. c c first written:(september 17,1986) by j. mustre c version 2 (17 sep 86) c version 3 (22 feb 87) modified by j. rehr c version for genfmt, modified by s. zabinsky, Sept 1991 c Initialized dri0. Some elements may be used before being c initialized elsewhere -- rot3i needs to be carefully c checked. S. Zabinsky, April 1993 c c******************** warning****************************************** c ltot must be at least lxp1 or overwriting will occur c nmax must be at least nm or overwriting will occur c---------------------------------------------------------------------- c notation dri0(l,m,n) = drot_i(l'm'n') c l = l'+1, n' = n-l, m' = m-l, primes denoting subscripts c thus dri0(1,1,1) corresponds to the rotation matrix with c l' = 0, and n' and m' = 0; dri0(3,5,5) : l' = 2,n' = 2,m' = 2. c-------------------------------------------------------------------- include 'dim.h' include 'rotmat.h' include 'pdata.h' c dri0 is larger than needed for genfmt, but necessary for c this calculation algorithm. Copy result into smaller c dri arrays (in common) at end of this routine. dimension dri0 (ltot+1, 2*ltot+1, 2*ltot+1) c initialize dri0 do 200 il = 1, ltot+1 do 200 im = 1, 2*ltot+1 do 200 in = 1, 2*ltot+1 dri0(il,im,in) = 0 200 continue nm = mxp1 ndm = lxp1+nm-1 xc = cos(beta(ileg)/2) xs = sin(beta(ileg)/2) s = sin(beta(ileg)) dri0(1,1,1) = 1 dri0(2,1,1) = xc**2 dri0(2,1,2) = s/sqrt(2.0d0) dri0(2,1,3) = xs**2 dri0(2,2,1) = -dri0(2,1,2) dri0(2,2,2) = cos(beta(ileg)) dri0(2,2,3) = dri0(2,1,2) dri0(2,3,1) = dri0(2,1,3) dri0(2,3,2) = -dri0(2,2,3) dri0(2,3,3) = dri0(2,1,1) do 30 l = 3, lxp1 ln = 2*l - 1 lm = 2*l - 3 if (ln .gt. ndm) ln = ndm if (lm .gt. ndm) lm = ndm do 20 n = 1, ln do 10 m = 1, lm t1 = (2*l-1-n) * (2*l-2-n) t = (2*l-1-m) * (2*l-2-m) f1 = sqrt (t1/t) f2 = sqrt ((2*l-1-n) * (n-1) / t) t3 = (n-2) * (n-1) f3 = sqrt(t3/t) dlnm = f1 * xc**2 * dri0(l-1,n,m) if (n-1 .gt. 0) dlnm = dlnm - f2*s*dri0(l-1,n-1,m) if (n-2 .gt. 0) dlnm = dlnm + f3*xs**2*dri0(l-1,n-2,m) dri0(l,n,m) = dlnm if (n .gt. (2*l-3)) 1 dri0(l,m,n) = (-1)**(n-m) * dri0(l,n,m) 10 continue if (n .gt. (2*l-3)) then dri0(l,2*l-2,2*l-2) = dri0(l,2,2) dri0(l,2*l-1,2*l-2) = -dri0(l,1,2) dri0(l,2*l-2,2*l-1) = -dri0(l,2,1) dri0(l,2*l-1,2*l-1) = dri0(l,1,1) endif 20 continue 30 continue 40 continue c-----test sum rule on d c open (19,file='rotmat.dat',status='new',carriagecontrol='list') c write(19,*) ' l, m, sum' c write(19,*) ' (dri0(il,im,in),in = 1,ln)' c do 70 il = 1,lxp1 c l = il-1 c ln = 2*l+1 c if(ln.gt.ndm) ln = ndm c do 37 im = 1,ln c sum = 0 c do 50 in = 1,ln c m = im-il c term = dri0(il,im,in) c 50 sum = sum+term**2 c write(19,60) l,m,sum c write(19,62) (dri0(il,im,in),in = 1,ln) c 60 format(2i3,e30.20) c 62 format(5e14.6) c 70 continue c close(19) c-----end test------------------------ c Copy result into dri(...ileg) in /rotmat/ (zero it first...) do 90 il = 1, ltot+1 do 90 m1 = 1, 2*mtot+1 do 90 m2 = 1, 2*mtot+1 dri(il,m1,m2,ileg) = 0 90 continue do 120 il = 1, lxp1 mx = min (il-1, mxp1-1) do 110 m1 = -mx, mx do 100 m2 = -mx, mx dri(il,m1+mtot+1,m2+mtot+1,ileg)=dri0(il,m1+il,m2+il) 100 continue 110 continue 120 continue return end ifeffit-1.2.11d/src/feff6/totale.f0000644000175000017500000000226710663646452015615 0ustar segresegre subroutine totale (dval) implicit double precision (a-h,o-z) save common /print/ iprint common /dira/ dv(251), dr(251), dp(251), dq(251), dpas, tets, 1 z, nstop, nes, np, nuc common /deux/ dvn(251), dvf(251), d(251), dc(251), dgc(251,30), 1 dpc(251,30) external exchee dc(1)=1 do 10 i=1,np 10 dp(i)=d(i)/dr(i) if (nuc.le.0) go to 30 do 20 i=1,nuc 20 dp(i)=d(i)*(3.0-dr(i)*dr(i)/(dr(nuc)*dr(nuc)))/(dr(nuc)+dr(nuc)) dc(1)=4 30 call somm (dr,dp,dq,dpas,dc(1),0,np) dc(1)=-z*dc(1) do 40 i=1,np dp(i)=d(i)*dvf(i) dvn(i)=d(i)*dvn(i) 40 d(i)=d(i)*exchee(d(i),dr(i)) dc(2)=2 dc(3)=1 dc(5)=2 if (nuc.ne.0) dc(3)=4 call somm (dr,dp,dq,dpas,dc(3),0,np) call somm (dr,dvn,dq,dpas,dc(5),0,np) call somm (dr,d,dq,dpas,dc(2),0,np) dc(4)=dval-dc(3) dval=dval-.50*dc(5)-dc(2) dc(2)=dc(3)-dc(1)-dc(5)-dc(2) dc(3)=.50*dc(5) if (iprint .ge. 5) write(16,50) dval,dc(4),dc(3),dc(2),dc(1) 50 format (1h0,5x,'et=',1pe14.7,5x,'ec=',1pe14.7,5x,'ee=',1pe14.7,5x, 1 'ex=',1pe14.7,5x,'en=',1pe14.7) return end ifeffit-1.2.11d/src/feff6/TEST/0000755000175000017500000000000011012363551014707 5ustar segresegreifeffit-1.2.11d/src/feff6/TEST/phase.bin0000644000175000017500000017344611012363551016520 0ustar segresegrePcopper Feff 6L.02 POPAbs Z=26 Rmt= 1.310 Rnm= 1.468 P+PPot 1 Z=29 Rmt= 1.272 Rnm= 1.392 P PPot 2 Z=29 Rmt= 1.272 Rnm= 1.392 P PGam_ch=1.325E+00 PPMu=-5.619E+00 kf=1.804E+00 Vint=-1.802E+01 Rs_int= 2.010 P8(1úµ7xæ@2ƒÊÑnÚ¿2ƒÊÑnÚ¿(ˆ2ƒÊÑnÚ¿ŽÅ®L·Ù¿¢Œ[½×¿nØÐ!$ûÓ¿âQPíÍ¿Zü)`¨Á¿{<§„¿h’ uGcÁ?Òå$­nrÓ?¸}üC¢ß?qÈ…F‘ æ?­)½…'î?F t™ÿ2ó?ˆkáÓþ­÷?š«ÜÀ„ü?@å²c¢Û@d>ÀÅ¢@aÒ\Ê—@0ª8°º @&}ŠTw @ÒÜØE@ÈòÏ¥T@p€jŠ@Ì…è ° @ßJÎÆ'@¥÷ŽÎY@!d·Æ¢@OHÕ®@RYáü @æ»ÂǨ"@ŒáþV#@†UÃcÖ&@–Ÿ½ä*@¹¿ \­.@øZN¥A‚1@Án?­Ñ3@M’bÓðD6@‡Î)a Ü8@ËuÄèÿ–;@¹ºr7¼@@  ¸äžôC@š^J¶tG@ª^ª£}ô{ž¤Õîn.õ¿—‚ÂTÃ憎‚ÿé/)õ¿~ µ {©¿v|êظ õ¿<ú P©¿†“ßAõ¿ÂdF䪿Œà´žq õ¿Žm˜B«¿Û Ü2õ¿Œ‡Jª®¿ÐÎ-\î õ¿‚κN2È°¿u#õ¿ˆP)r˳¿ „^·_]õ¿†gk$-嵿pâV èÈõ¿Yþyθ¿ÀåTÉyö¿’ý@äÊZ»¿RÀ+ֿ̯³IGpô¿ŸÇG–݅׿6Û0|õÓó¿-ø}ŒˆjØ¿°ëILDó¿‘î×;Ù¿¸1Ë,dÀò¿pÐ'ÞfqÙ¿¢N ÚGGò¿s5î ³Ù¿´ÂWÂØñ¿è ícšÖÙ¿¾oü/¯qñ¿x$éãÙ¿£ i'qñ¿+×AÎÝÙ¿ŒÑsŽ‚¼ð¿¥Ø€ÇÊÙ¿ ¦™£.lð¿%µY"­Ù¿=6ãuÒ!ð¿ÏFïÿL‡Ù¿šr# ·¹ï¿|ƒUá/[Ù¿èÙ¿9ï¿}à¥jK*Ù¿0D9CÂî¿HñàŒÐõØ¿ÔG¨YSî¿Ýç屾ؿ@²ày[í¿;V.êñ-Ø¿§êkõqˆì¿É}F™×¿Œm©§ÄÒ뿇™fm׿¢2…Tô4ë¿!”>uÖ¿$©•EÀªê¿ÞW ¼éÕ¿ÏjÓ0꿱ô©dÕ¿õfDŠÄé¿óIý²{äÔ¿þ}„dÇcé¿äNe§éjÔ¿îœ8R¾è¿_Ì£M‰Ó¿0 w\-6è¿Ú3Kb½Ò¿r´KÄç¿${ˆbÓÒ¿TÃY±cç¿%v:(W]Ñ¿„ˆïÀç¿D½ØÄпÀ¶ÌÈæ¿rù^õ€9пr=˜Ë‰æ¿ TÕwsÏ¿%-¹/Ræ¿%ç54WˆÎ¿r@ûÀ æ¿Hn²(H¯Í¿ä <Ç„ôå¿œaù%GæÌ¿Cu ›ÿâLTÕÓ¿‚ªg1š –¿ÃóÔ‚uµ?¡™6‡ZR1?º¤À1¹ Æ¿*š x@¼¿yå? "z?. #®ÐÖQ?‰ì¡ß÷¢1?h«J§œ¶?õ@€Õûâ>¼YhøzÅ>ÃÑE»{>“Ô"Ôžu>ùoS$Ô¿{!bvý•¿Ü¤?#^µ?x冪!]"?g¦°íÆ¿ûjÈ_÷Ç&¿¢@µ¨ {?…ñƒÔÂGR?¹Ùä…2?YÖï(bp?Zð÷fs/ä>Ú -À‹Æ>Gù®ñö>TDb°ùv>ü“XÕ¿^E”ÿìñ•¿w6Cµ?€9ÞŒD1¿±ÑpoŠÆ¿¡º0)T˜5¿çpTõA~?˜ô›¬÷ªS?{Û”Èß`5?·¾gM?Ö“" 'è>WŒi<Ê>Ë(žÙ¯•>L ¯FJ{>“\‡Ž“Ö¿¿»Y—J.–¿7ö ¾²å´?ž¼È:úQ¿<Ê8‚R#Æ¿ë]ÑwƒcC¿…/¯Z§ý?f_Ýì4V?v!ÒžÙÖ:?)¬Í?‰Ô?í:ºXð>Z%<^¼sÐ>·T£6¦>÷©ý0m‚>¢}ðï®Ø¿NVù~` —¿,¬ú‡V´?Ï”åÝLc¿&vý<Æ¿Â:þ P¿C-N.†?:&ø¡ýFZ?¶ULU B?ûÕ„É?Ñž)š”N÷>?bԸ˟Ö>Y/|_9§>ÃoÕ¹ñ^‹>ÐË–,_Û¿WË!Áj㘿=¯£ý­³?$aòr¿;æëPö[Æ¿ÀØ´$ %Y¿›ì€#|?W¦‡õ<`?s8æ¿—®I?wåHŽÓÂ"?µådZH?ß3×Åà>æžHIų>M|AŸRE–>¶ÊÕò8 a>ÿ$n7F> ú j§Þ¿!oʾ®à›¿,©—ÏË°?#Ç<Fw~¿Ëœœ{Æ¿‡TÀºªÐb¿j‘‚Ëד?™>Q(ÕÐd?í—ÎOýR?Õ˜{¹#¡*?]VþA§ ?äÉ€ÔÀê> L|t~êÁ>˜'¢`£>“ŠÁ|ëüp>" ñJ—óU>w©`apFá¿ròêpnúŸ¿ÀJLžÛ©?Ä´.˜‡¿ïx±e’Æ¿~™%Ù,k¿"ý¨€Õ7›?RoC¦\k?ߥ‹”ÉÔ\?††îš3?L¨÷-!?³ŠjžÎõõ>cJE,#øÐ>ŸÄÒün9²>Ok‚Ÿåã>ù-èœðf>².‘ Œã¿¢Ë¨i¢¿“ÊRV\Ò›?‰ ¼-ë¿jdBțƿ„s„n2¾r¿²=憞ע?ÑÔüÙàË¡Á>J‰¦Ì°“>~øÎy>²]k¾)æ¿ß˜`G}Ѥ¿Í‹ùkî {¿w''{4l–¿±¶Ÿ Æ¿0ƒùqòÝx¿›â>3[ª?÷ŠLéw?š‰Çœ1q?þÝå#'F?^Ëa• 3?×±×ñ ?õî´ fð>[ýtŒTÑ>92±Šk¦>ü뇵ˆŒ>_=<%é¿*EVka ¦¿b$­T¦$«¿ÒË‹v;›¿×XGò¾Æ¿hË{ë¿dŠßlè±?VS÷DÂ~?àL*âyz?_K؃iP?»è²U¦@? 9þ½uz?Û=Æ?†T?‚#W©ñà>/Ä”H¹>ÝX„ÏnŸ>?ÞòÂxËn>âZ´ÔœV>œhk-„ì¿“ˆï†§¿ SßÁc'½¿?á%á¿é«0.;Ç¿·Ÿ)⼿]–ȸ?¶ÞO +ƒ?ëò‰„?¿¬º¶¯ªW?VÄ ÆL?¿µq¶ñÐ&?åÔÍ=&?ý‰ÖÅ-ð>¥=l`â_Ì>¿Ñ´9±>ô¡Yç؃>-­‘?dl>ÌKi˜…ð¿Fc¥º¢·¾¿UGÎÑ€ Æ¿üæð&é꺿‰ÙÅ¿V·½S«¿QþLÂiÂ?Úo“]—q-¿ÈSËâ’?äç>¡(V?,ÿ:ÃH`?!`ªûRñ4?ÇgŒÌk‹%?Û,Y¥`ï?)öSæå>Ä‚ôÎ>ÈÈ“õq¡>)+ìEõ>Döû¦I€ð¿þYgOdÿü`=c¼†Å¿Ôe÷~øêÀ¿6Û© Í¿¿â^pŽ€°¿÷“—)É?¡4™¿7z?UþGšEÖš?1 ÁŠ%q?²I<h?PýW6©rK??¨Ø­0?Ô¨TŒX ?ËãˆðÓºñ>z::ç™ã>ôÎT]€­>#L\¾òͤ>åÐ.ÇÈb>:÷ú»6a>0ÜÁ<‚-ñ¿k“ë‰Ä¿@^ÃêÇ¿coæÈ;Á¿×u®¶f¸¿½"¿.ê°¿%Tv>Ø–Ï? Æôµ·¸Ž?Ôg¨D®¡?' ²kZF~?Êð¹0Øp?ŒD6ÌíÜW?3”í8?çCä•ç(?1œÑÓ¦vü>/™¹ò>Ê8׉q¹>n笽óIµ>ðÉù}r>‹ò<Ùæùr>¾C5æèñ¿æ½n¢Ä¿K^¾&GÊ¿•:-­Á¿ºpäd“‡°¿Ïl$ËK‹°¿jT (ÚàÓ?ïþ©½{˜?°0ÍáL—§?taÎ`‡?¸ Fš{x?|Žç¼õb?uqÖ]WC?à$èxNý4?¼ÕE× ?­¯T·ù?Cœ°ÞkÇ>üﳃæÄ>Zñ«“ê‚>‘ücv <„>ø/«ÿ¿Ûò¿LHxñ¬Ã¿ä3êåºÎ¿zqó:³À¿”Ùv•¡†¥¿ÍÜáºwõ¯¿Fš®¥p<Ø?ðx/HÑž?½÷½ôšV¯?¾‚ê¥?÷>ß &z?%55-8|k?ÉO÷ÈN?˜ð†ë€@?d¬ÖÍö ?P°í|& ?½x3Ö>9cM2¢Ó>n›Æ³>“>–+ÌäÌ”>ËP^cÕËó¿@ôê\¿'èÈ/ÎÒÑ¿…#0¿¿ÖH¤"‡š¿côwoÚ­¿l9ÀI‡Ü?71]ÜÙ¡?$iéá³?5'^!e”?ïcˆ;vˆ?Ã` –ßr?ý GÉRW?{@q¯ˆH?kv¯Óž!?±5stâ«?_ª·–§ìä>ËÃã;ä{á>P}—ǑУ>FdB›V¤>¬BÍ|TÛô¿¥cbúÀ¿5f¬p¦ÔÔ¿žd¬¼ø~¼¿^v¹Ü²Ž¿"Jl[ž¬¿¬ÿUüš“à?zéDkO¢?¯U·Ü’¹?¶KFeÚ˜?O®xÚ³‘?¬ÞŽ‡Û"y?T*â#b?1âîPßQ?oMìúíC.?N?®”?î"?¼Q±¿Ýó>¿5@¸î>o1¾ ßÓ´>?WOž³>gIê©:Ÿq>žægÌÄŸøÞõ¿Ÿ‡Óºî-¿¿Ù#yw·×¿ZÔç- º¿¨eu+²}¿xÍGÈ·©¿ðÛ¿Ïâ?¡Lw¶ü)£?.ýœÝd–¿?ãZRFÞ?E¦‹ï–?­ˆOsØO€?eá·½Cäj?+(M1Y?ÔrÜáÎ8?HF_fÙ0-? 7àKÀ ?‡£ýù>ꜥ{Å>F¸&--:Â>‚ªÙ߃>×Ãëãnœ„>8Ã}7öö¿ísè£#绿ÑF„ÌÛ¿È™œÇÙ%·¿oû-š}x¿Ðç9™Å.§¿¯âWÎòä?ÀlÆ”ÿ±¢?© e|tŽÃ?懔¡?îq@Ÿ?„^õ‡”„?šxîrc&t?б Fefa?²áµW,zD?} -6?¹]=Àîn?F$/v›?ím;QÕ>Ž"žÐ> ÍPJú–>ØŒ Òå–”>j½3¡ø¿üx¤À¹¿Y=Áw¥oÞ¿•Kõù ´¿ÛkÌ¿/‚¿@hc£¤¿­Ý3Ñæ?3jÆ•o¢?.øeÚDeÇ?‰¹t1 >£?¤•:…¤?ÅÕ30Hn‰?¥ëw”}?…X~ng?Æc#GP?‡J…>G@?Ûübá,Ó?U†Xƒl?<-Lsä> „_\\Ý>)¸â~Ÿ§>^Ðþüê£>÷R}Åù?w¸FŽJO¶¿vòÌ¡¾Çà¿ÌÑè>²¿Èzó¤Y‡¿ì XÂàé¡¿SëéhVÇè?Ö­:5Pm¢?šò}2švË?æЄAˆ.¥?a fwSª?…áIllŽ?æ44ÍÒs„?œãíóv¨n?`Ç-^1Y?qÁÆ£FG?ûHwPõ“(?àé3>I?}Â3–7ó>!ítª.é>³8FÏïx¸>Ù£z~¥±²>»-²‡µÀy>ç]¨ÜœÆv>ÍVÇNú ø?^@~¢³¿EïÌ pâ¿ûÁEí-¥¯¿{hÏ7“¿6pikHò¿uµµ„ðyê?eGÛ~¢?Š†k àÏ?z?&Lø‘¦?öã~É-Í°?gžXù‘?CÞæD›Œ?“–ûåT¸s?Ó9u/Mc?å#‡K[P?Û“ÊÒ¤4?y¹P„šõ$?Pö¶E³?. ¨7"õ>"W¡…ݸÈ>Ná×ueÁ>Ó,9ìô–Œ>£ÔŒ…¾†>^°@…üö?•:‚lz;±¿‘…<ä¿È…^T¨†«¿§[QÅ~V™¿ºc61ôƘ¿kßkoKì?þT#Š¢u¢?~c±žÒ?ÑŸ MT$¨?!–©¹´?õOM,æ”?z^ ¾·H“?¸£ »äx?OD/ñÉ‚l?U ˆô}sV? Ë I¹@?K}"›‰[/?5ËaAt?C,àÖ'>?fßµs»Ø> "Ú§tÎ>s$˜íàž>dÑ>˜–>\Ò$Óšäõ?ÛÅåßÓý­¿wR|%³å¿†Õ @Š§¿‡AèZW¡¿€3–ÂØM“¿X„Ùš˜Ãí?]qøø£?ê!…ÿ-Ô?5;'C/©?ÆòøÒœ:¹?ªr&½®—?_äjø¥™?7­´üô¹~?zNÀO¶t?Òÿ­Éæ&^?±ÉêJ?ºVã2î6?CЧwñJ?(KºXw ?ùð¡Î&Òæ>ùõª“dÚ>“Ò=¯>‘½ö´¾¤>‰50Âo"r>‘ëýD'k>ú÷{dÚô?o§™%Iø©¿Pì¶ÝJç¿þŽú¤ 裿*hzèó¦¿vô<(Ñ‹¿Ÿ®&?Cï?r!—XÎô£?îƒXÿ1Ö?¨á#ª?½(ŸÏŽ+¾?jÌgS'Vš?ÈR±™¾ ?Z&_y"œ‚?È€²ý{}?ƒH*ÉmÙc?#V šT?ŸyÒ|h@?ÊwÒö'?–F;´z\?oQ€~šõ>kSÙyKæ>–'ƒ £¿>aŠfßͳ>)„¥eùƒ>†>›7÷z>yÞ P~Ìó?*4§0];¦¿/õsè âè¿/ÆÄ.ç° ¿­óáRª¿¾ˆÎ.q¬‚¿ýË…Cnð?ÿ?”¡ìÿ£?>¾Y¢+Ø?@øÃ+0üª?‹â—ò—Á?fðýûzÿœ?"'Š}:¥?ÀÉlòO)†?Îô=–]„?6‡!‰™i?Ï£õ _?*‹–ÉÚñF?("œ£ì2?ô¡Âx4 ? Ç­¾ÀÂ?S‰>4Xò>îðJÝ¡´Î>wS¯½còÀ> HIê •>îýŠ>±N.ìû¾ò?+¢i—䢿Õlé±|ê¿aîYðd|›¿üÝ´‰c¯¿Áˆ'ò=s¿U`Õ€ñ?½¨ó¾Ú¤?™17+ùÙ?à{¿Þ«?$е2Ä?3¥v™ãFŸ?Õú8zª?\ñâÞeЉ?_X÷¢ž‹?—ôº#K(p?%ÖÝÝf?Öº—Å'cO?ÇòD[¶O>?û%k;ï(?N 5ÀÐO?u1ÙÞÛtý>sŸôÜ>;Èä¾pÍ>üI7t„¥>%¬šh˜>Õ>Ò*¥ºñ?¤Iün Ÿ¿šlÝ` ì¿ÌÛ ¢p)–¿ÑòÍ$ë0²¿]ŒµJçƒD¿jÒ{Èñ??>ûÃ5Ž¥?Gu`ŸÝ§Û?Œ ƾ¬?ߊó ÎÆ?ÝNqoƒ§ ?2¦kØ;3°?Éù±“?ýÜï«ßY’?㲄C t?<“‚{p?{´fê U?9¦}o±G?a‰ŽPn1?/pÙ¶ ?&†„Mz?Rüsõ‰ê>¬© ,÷ïØ>ýfÿSµ>ôú8M¦>‡—D”c}>þÐÊLÊp>ô4ò³ð?‹æMéš¿¼@ZšŸí¿jÍ’q6‘¿ÜûàŽ5ú´¿wIåñg?¨Y>xlò?÷¬Fö¥? ÜdçjÝ?UÑ{Ö™­?t¥OŸ"WÉ? Nb줡?ïKÛä\³?´­"ëk²?ò¥%òƒÆ—?|F Ydx?õ¨}M(w?õ}ª[?­ð¤ä… R?8Z*p¼8?„嘆uÄ&?¢â> 3³?lÔÇæ«¥÷>¾@«­“›ä>ç!:ÊAƒÄ>èíÏ„Ú³>«ñ¿#,Ž>†{Ö€€>ÊGrº-oì?«uƒulŒ¿&€Þñ‘¼ð¿Í^&Võ|¿Ý‡t²¼¿úÁ¦B¼A…?¾¨ËAÐó?š<,æ9ʦ?ÓI\©Z»à?Ù]©Ü°?«~†ü¡:Ï?Õêå”}Ä£?:€zt%þ»?>Ým‰¦•?dMßÙXÙ¤?%Í Éd‚?j¨wJß´ˆ?5‡bË%i?1{ø)ù\g?Ð-õszK?ÆVï!ÙA?,µŸAZ'?r«‘^?2ÑK€U? œªdWç>œG}¾ØÒ>|Y4½Z’´> Ç|ô 8¢>ï§&nØí~>•fkÞjôm>» 㱆µç?P-ˆˆr¿$‡Ÿr!—ò¿® f±áeV?]Óyµ»Â¿*Äž¤õ?ÕOç¥Uñô?æéU¨=^¨?¼¾í5t°â?m6'Œ¢-±?úñ+¯*@Ò?É•®EŠÞ¥?ž:嵬KÂ?1‹ÿkÓ˜?9#V-.°?0û#Uþ‰?jƒx¡J"—?ÀÃet?ñÝŒÚ^z?ñRÕJZ?éÓéZ6X?ÿÊ<`l;??N‚ª4+2?ýliï”?*qË—Ÿ?ßlõAüî>¶CHܳ×>nÀõÈu¿Á>lÉ`0¥>åä;";‘>‘Ï SçNã?Öé¡o8j?7Ñ©áRô¿‹9¥98>?É]I‚6Ç¿²×*xº–?^8÷?`íõ?sóßÑlª?rûîhÙŠä?§b§g¤â±?(:¯²ÁÔ?Æn€—¨?‰(Ï4F/Æ?–ÏÈ4kœ?URO+Cƒ¶?‡@ùC?#SL‹J+£? (–#ßÇ}?i›uß-Š?¢üÝ]ÅÅf?# n¸l?{iï×’ÕK?µÒd_o¥I?fvÜÓ‚+?UV*‡Ñí"?0 <Ø>L?b’C5 m÷>`ÃZ›Þ>÷I'AS¤È><»Ë#±>Í›7£P–>- ¶O¶€>Äh€ë•VÞ?=M)æƒ?(‚èòõ¿ç°.ÿ—?kÞY+aiË¿LGr:ò´›?ÛTæÐü¾ö?×(|7­?†«³1¹"æ?øõ¬+ú-²?îÉP‰HN×?~IyË@ ª? —¦Î_»É?ïsüùä{Ÿ?9ö•ÎCž¼?¸óíý´`’?¥æÉG_¬?¾CÂÀ¸Èƒ?O³ix‚—?œ¡[õA¼q?zr©ßì~?C 0’’Y?^ómÜeÆ_?°ž•ä§Ç=?e¯Å}Ö§;?•;Ft^?1™DKs?Óê‘è"mö>ŽS¶=è½è>žäS><ÓÍ>G¼Dĺ>ý ²%yê >-d£†Fî‡>Î.wá‘p>Çvú%yÖ?-±¯yȯ?ÞÐ1y÷¿ãQ½¶_•?¬©¹9˜IÏ¿x {9 ?91;Žðh÷?¿î/§¯?…8}m‹ç?ȱ‚ðu²?5Ëd‡ÇÙ?Ðu0ž¡«?rëÓE‚4Í?šÒçÖ}¡?²ÞV:Á?_“9=èé”?£¿v¼³?ã 1QŒZˆ?ùhðnO¢?ó‰¤Ó y?É †…Qè‹?1ÉDËÇ$e?…½.8pkq?rÊ#¸-ßL?™Š ÀòÎQ?¦36 0?%­H.?"ºga¨ ?³Lç^™µ?ïWw[Ãìæ>wµ¥™–Ú>N#z›k¾>ºv¶µ)¬>ä·K”‘>û"ée†QÍ?ª \ÒB—?™Ì§Zïù¿Z™ï—W›?Ø‹W¾¿Ñ¿¿+àŠ?z¢?ˆÓwôOå÷?ï…9’ ð?—Í Ö,Ùè? lÞ@¼²?wRÍÜ?a.ý2•¬?Ýãî؈dÐ?"®Ç¬='£?‚×’m ˜Ã?†Êê"¿„—?^‚ +@‰·?¸c†\tŒ?0²Ó,Êž©?Ì”"ò??Ù“¨G7Y?ßÛ!>ú^d?—µ#DQ_@?)dFÆt0D?¸8Þ«®ˆ!?˜³ ÛOÍ ?<5@Ê÷bÿ>Ó?{QÆ÷>èeÎÔÆ×>s×ÔÚèÍ>Ôó}&Oæ®>:¼½zÇÙž>w#l>`[wp=0¼?2ŽˆïŽ›œ?çYÖžÁ÷?µ²\À4 ?R®Ô¿­ç—¹ŠF¤?Oú×aEø?o©Ák±?ÍÎ|s¤ê?tÄ­·à²?ò­^k Þ?|¬ÕåC­?Ú]&I,Ò?LL~¤?ì»+èÎ'Æ?GŽÙÆ5Bš?â̯Ò\–»?¦6«ŽE/?”5$—°?Æ°)J¬ƒ?„(#¥µX¡?®œü©u?I?`d•È?ŒM µ¿ôc?SàŸ˜âÔt?}Ÿ_ƒN?…¬rX?(UÉ T§2?-lpÞþ7?Ï͇îHD?åsÞÃØ?¸¢PÔYÉð>`pz¢aê>M¼>1gýÈ>¿u°ç À>c‚|YË >Äí2â‘>þÕV…Or>¹Ž[aSi¿î·¶B§g ?…ÙðÄÅRö?¥‰éËF<¢?@XÉ4Ö¿t#äæþÖ¥?Œ՘ø?«á¶¶ÇÛ±?Ì‚v®;ë?}E‚`Ó˲?+á§"ìß?Ì$È;ùè­?ó"ÍðBÑÓ?¨î$uòv¥?tA eÙÈ?£°€¡åœ?HoÞëmk¿?!­¼—Æ;’?y×Ëkõ ´?«Ž͆?½×€šXš§?"ô`•f{?†ìKΗ?î$'(Êl?ÂËÞ%Ž$ƒ?ÛÁ«Å Y?ªk}[B™i?Æ]èt0óA?~B–×ÇwL?} {W%?Dås ¯*?&PošT?T Øî_?µª­ò#â>ªØ.‹¤Ý>Œcû(ž—º>QÆi3+ö±>z†l ù>)c†,ƒ>.Ô³ c>ýX-EË¿Y $è*0£?¯BØ¿†¬ó?îm蚟¥?gY£®MÚ¿ØÙÿeæ¨?ô)öØÊù?ó&@vÞù±?]À(®í?ò]Ê&R²?ÙUc!çËá?_¬øÆà´®?shuwŽ­Ö?}î Uò¦?éhgoÁ Î?sŸ§Þi ?Ðm2¼3ÔÃ?[ c–?.·]k*º?Ñ©“¦(?Sg§ ‚±? ëy4wÂ?^. ¦?Ýí„•w?4ÐLNé—?ÎZÒ1m~j?±^lbh…?ƒªh¨Y?Ñv=vé o?Ôˆ2=0—C?¬µES?†¸Ž œ)? õ`±[4?… wàE ?tm9?¸,ÖÊ?¯ê>¼Ú_àjPì>vØ^íÅÇÅ>·/¡ÇGÃ>(„6òÔŸ>‘ágq6—>"Êþ±¸‹s>Œ‹Ú¯£ûÙ¿OFPƒ^¤?½ÁÒîl@ñ?—:9ò52¦?ÞÌß.Þ¿õ±ònû¨?1ký:Ñßø¿éo`”±?ºƒ¼ý·î?©ªÒ½w×±? ÚèŒ_ã?…  Ìu®?µ}º<{Ù?=¾îpå¨?f'ï‡15Ñ?D0R С?Üõ-oëÇ?UÝ“=¡º™?ﹶ˜ÉrÀ?à */’?ÐZA¦øs¶?”Y;r<ê‡?Ì÷—tz>¯?9ÑÅ×]‹?׺©›à¤?qd”. ›t?…i˜?嵤d`”h?‘(Â…œÑ‡?ôl£åY?°ÿÕ9Es?ΉÇòõCE?ß(ot Z?‘0xS.?9¿J°>?v0œBðU?ŸMJHÂ?£Ã/_ó>òyß‹D ù>]wã‚ßÑ>!Ï×(›dÓ>?ÙÝ°Ù«>a‚¬ §ª>êpšÉÿׂ> 5£ºâ¿èfzÉ£à¤?÷ö@gî?_ŠÍÙ:µ¦?¾kvÜÚá¿Á³‘™¼t©?²G׬¬ø¿…ÕáÅJ±?üNð ]ð?TbÀ,í±?§=^Ãä?ðúÛ®?£ü0+ÿÛ?D×z:i¨?BÛ`ÒkÓ?HëÆá£?‰4œaË?!úØÝ4œ?†–îHbÅÃ?”À1謢”?¼Öó¼¾&¼?ᎺÖ~{?ôü1ó?¤1€„ò„?*Ó‡q;b¬?ªc)´_úz?ŒÑoåó£?ÕDv{^5r?t¶ÍKÀý˜?d@^ ìf?áÕ¯ÍíeŠ?y.ÇLRÿX?‘Ê‹ù:w? XKViñF?7¡#Ás-a?Ü‹Ø÷m¼1?®ØÏjAžE?$Õ™»äS?Ky›­Uu'?Kö‘Ï0fú>©šl{2?@û€ô»ýÙ>÷›ùsâ>¬—µ{¶>80õò4b»>í¦-=‘>w{0‡%’>Öª›|´ g>ÁWßà™ö翆> ÇÄ¥?ZmVõvðé?H”rQ£Ù¦?*Äá7³°â¿ñ´Ìk¬•©?h¿t‚T’ø¿É;§·3]°?e ÄÜ­Šð?÷#Ï­V°?Ú.¹C æ? ºýhK­?B{ö•f>Þ?Áb˨?ÊÖÌHñrÕ?Áä‹O•£?,‹t–xýÎ?DÉ¢©zž?åD»7S˜Æ?¤C±IÇ–?öíÃ(ø×À?·£–Ú:ã?.:@Þ ¼¸?Þÿ»Ÿˆ?ß.ò‡jʱ?4™?§ùÂ7ª?6 í_ïiw?_ —ø>£?@ã ·pÆ©N\#ãð>²ÉWÂÂ>?«X]Ë>ÆîÑ{*ž>Iö±gå£>Ý~íý‘˜v>.ÿq÷5Ùì¿:â ­9»¤?O‘"§f'æ?\æÆFm…¦?ëœÚN]ä¿v+‘Pm©?rÑÄwñŠø¿ørŒ7x¯?uK8MÍñ?ˆüL4X)¯?Û¹üŸç?ëMRµÒL¬?ÉVYÄ:à?2åcìV¨?|,ëF×?F Òr™ø£?§Û‹ß,Ñ?ÝEy®ÁŸ?»r4²¥É?;¬GcÔ˜?j,–*¾7Ã?EæwC»’?ì}ÁXr½?jÛin¬ Œ?ñÎx5>¶?dƒÉã©ç„?ôp¬.MZ°?MÜ¡}?:^j혨?3æÀ@•t?òèüK½¢?‹xã¹)+m?4úïñ¶pš?%Øv_ d?¥dcs?ØH‹ ©ÈX?âñŒ«uv€?î̘©+J?±^u¨?vl?‘Ü“p,p7?Ø9£ß=U?¼î˹ò!?J„Pö°ß:?’ŸOHÀ?G,Ð/Û? øÃtë>Ò¼,ʸý>™áhvïþË>ašºX.Ú>ûš›¬ãd©>¤4Wյ𿰠Pw¤?… ý<¥â?ïyc œ2¦?²è¶wãå¿{õï¨T©?7©×š‰ø¿‹Õ+!Ã+®?4Ò%ÕÙXñ?¤·Ñ¸—­?z΂# è?ûÚE‡IW«?™\†ûâ*á?&T‚P¬Ó§?¼‰*¬'Ù?Ùxè¤?éûYê°Ò?àV¶•Ï` ?¶}„óÌ€Ì?='”±|š?_ŠÃâÅ??Û*œ ”?Wº³ùÇÀ?~%#{qP?pc‚×¼Vº?£Í@Nȇ?W>ø¢n´?¢Å”Ë[‚?Rf¬šEª®?$Å ©z?»Œ¬õ8p§?ÇËv;Nr?‹#F`h¢?1‰jÑê^j?Þ8 hQ›? 2üU…Ôb?li?o…²‘?© Ø*ü‰X?Þ!„—Ehƒ?å®0¢K??g¯ªr?Ù=¦€:?óhM@šœ\?"š¥è÷Â%?¶>Óð¯C?3"Ì(Øí?¥äÕ#¾'?z&Q:ó>‡6 X ?Bö£þYÕ>u†gúCÑò¿J¼Vé&¤?|lç,âÞ?Nä`M꺥?Òï1+Q翃2ï•ñ¨? 6 bM›ø¿â§7½€ë¬?Ø{r= ¨ñ?“—NNF¬?Ô¨Åùè?ÔµC+R!ª?6ŒBÿ\â?õÒèÇü\§?“ «ˆÆÚ?M á.çï£?‘*¨…šQÔ?aØpJ¶ ?àÂi )Ï?lêaÅ/(›?ªœÊq¨aÈ?/„dQ·•?{éËô1Ã?;Ž\.ËB‘?оܖ2¾?™þá!Š?êùÿ8ܸ?Ï ÙN¹`„?}a…g¬%³?‡m7B2a?çTê#P­?Kë:†8w?;áX®²¦?‰Ñ¬A vp?PðÆõA¢?YR„Þœüg?µ=g®Tœ?Ž¸lì¦a?|uJ»6t“?~ÓÕ/X?¥í+†?<Ÿ™ôL?¯&Pà)—v?û{À×£=?CÏE…4c?y"¿1*?ªÔKTL?*®É?”¸(&ªT2?…Í ûîZú>gÛÖW£Ðô¿WÒðÜÅ£?q§ËóÓØ?2–·+¥?î_°.fºè¿¡Cò ¥¨?ôÚžõGªø¿* Yä«?âÜ2Ùæñ?T—Ƶת?¶àé»é?p΀Rò ©?õfÿïâ?ÛàÞ˜¦?)ZÖ®iÜ?»õ¶æøΣ?#øûœ{½Õ?“"½»Jº ?©ž4¼UÑ?óÞòU|ÿ›?}ßä!Ÿ­Ê?Ìø`dþÆ–?Ì÷ò^pÅ? KÅfYN’?O¤š5CÁ?ÍÚyÊb?¬: òŠ|»?ÑßGôÕ†?¼À¸Áq¶?©ªb«?]‹-±I²?hL †£{?2콌¬?uÖWZUÅt?Ã'ùb“U¦?”Î ¼ém?¼öÌN5J¢?iGdPLôe?N0ë–{?¤óÜg-‹`?DFÁýû[•?\ø$[¹W?B~¾Ö`‹Š?ö[N?ãµ s|?oêbd@?ðª‚æui?D‚Âs¯.?r‚6; T?ŽòáXæ?Yâhñ¬ö¿P)Ãà“¡£? —MÓ?KŒÔѤ?Ô ¹’ûé¿å‡ìR¨?(Ô½+ÚÀø¿Û×35üÀª?wÔÚò?Ç^¸ÞÈ°©?ß‹Ôuê?Õ´ÙsX¨?MªM°ã?0çòÁí¥? åÎüüÞ?¶Sdx‰d£?íz]™ç3×?2·OÝΠ?ùÔ\/IÒ?·î¤€@œ?In™}^Í?¤L³ç®—?ÐvûšÜÇ?ãO6ŠS“?/Â:|ÂYÃ?Þ$Þ¬:?}3Øè£Ô¿?÷â:R‰?eûá½¹?s*Þ߃?¯ÔåŠZµ?DÈòù~?”âZ/¢É±? AÞx?¿˜òO¬?oÇI»%Õr?@G´W¦?]y]Ááqk?°ò0˜gƒ¢?Ôî¢9d?ŸK&“µËž?Š;­O_?‚@XAj—?s‹‚ˆx$W?¡tË&ÖÌŽ?œf¦ŽÞÿN?%ó—áJ?ÜšæðA?ÛÜ6ß"­p?ùi(‘qÜ1?v­‰;Àjø¿L¡ÏWXq£?…±”åÉaÌ?„¶´j¤?&{;þŸ8ë¿*%Ç¥¥à§?¡ÕOÚø¿˜ÛY éÚ©?@NT¨Mò?Þ†h݈’¨?æÚÿP›ë?/8ÿjø¦?Ìé§ð~ä?úë,`y4¥?ôq‡ÛXrß?I2hïü¢?•]1µh½Ø?D¸Þ¢£ ?o‘ñ"¤Ó?«±/²ªœ?è©ÑÐÌÏ?“̆y ˜?ÓÀ=)Ê?ïPú}ƒ=”?g_–cÅ?$X2fd•?F5ÒìqíÁ?õƒ ïŠ?”3»Éº¾?÷ÅcM†?-°4³¤ª¸?ÁÍM±q~?/>CÑ›¹´?™\ïÇk{?Á‚ OÄœ±??/ºHv?Êø¢Ç¨’¬?™Ò)¹‘6q?¯$ˆ¬ž¸¦?ÏšÏhêji?[ÀÒPò¢?º‰‡îÃb?¡s©º% ?-ï…]?å/L¡™?§æyV{wV?p”- Å‘?Þø)b&«O?p­~Ó&…?…'wlC?Cu 4V{Y‚¶Ò¿ÏÃ8‰=’¿C=Ú2…Å£?•OÈòÕž _÷äjÑ¿\h:y‘?«øT×C j?#Dí}ÆFB?“^[ÒÕ?‹;>2³û>UêaجÌ>n;«¨é¯>+–ÈR{t>›0;X9”[>ãkë÷Ò¿eé[—m6’¿¸žlŸ£?Šèb ع¿W3d2Ñ¿LÚÍ"‚?À›«4¦k?–ð¶ïæ¼B?Ì=º§k3 ?uÉaØ‹»ü>ÄØ·nÆPÎ>ÏG‡öÀ°> D¯v>·…&‹ÕO]>‹iÈš»Ó¿¦8|É9:’¿ZS ?«£?rˆ½/Q4¿¹û-H ¢Ð¿ËNu^ b‰?ÊgözÐán?¬aA¤Õ/D?,ìë$º"?µ‹K?ˆºô;)Ò>fÛY½¯[³>»Â­×h{>qÀ?åŒa>úòÿÔ¿´5í’&Œ’¿Ð³‹ËÙ\£?¦š'æ³J¿¡ f¶sÛÏ¿Ò¥èú~E?DJÊfr?8csÂ;ÔF?f_S/’'?º¢ŸX¶"?mÍY%3Ø>é }Â}¸>9¸>%Qƒ>‡GóÁ÷‚g>jQNÄÖ¿Å°ú4P„“¿bw<3k“¢?°)i-¨\¿ê+ʼnοy†×ãŸs?œq%w?,›¸.b K?Åd§œØ/?Ì›%œ@a?|:?òožá>AG;çÃÕÀ>ôˆ}dŽ>…ë@Moq>¯~å7 Ù¿u5†Œt•¿|ÌöÆIšåÈ>ô|Û?4ö™>…£ùò@|>±#t†6ØÛ¿NÀo™i˜¿ê?>øªi›?M/¡Uª®w¿Ò|†ÙÕÌ¿­¤êDL‰J¿†0“B „?ð`µ^þWU?3«Í’@ã@?WcâŽ>?]$Ú ¤–ö>Ö;eÅ‹Ó>ÚiQLݘ§>‡yE †ˆ>î;‰6ß¿º:ì4KÄœ¿”Ù6j?]%¹o;ô‚¿¾vá«zÌ¿à³@f"i¿dZ°¡<Œ?<¿KÙå[?£•ärýÀI?ok5ú ?é'5so4?RLBœà>ïSŒ®5e¶>w é{ –>ŠYñ€ d>òŠ¡Œ­|H>cÓ(Ú™á¿×†Û¸_Þ ¿"1} >ÆS¿I<˜WŒ¿zF†0ÈdÌ¿l˜×1u¿Û³¸B“?Niñ'_b?Pçµ%6èS?ºi™¡¿2)?SÖѨ?±ÒíÍðëê>0ñÅ/@ÔÅ>õ]«y¥>¨#^#ìnv>nOŠX†4Z>mƒ„ýƒìã¿DNÞþüY£¿}Eó>3Þ›¿iì«ï-“¿>ëxÁÕÌ¿e䬑S}¿Ð²?hW;›?|ܧp»h?‚”nÖ^?êÏßΩ«2?¢Œº?«H¿µö>Úðí¾‡…Õ>ÒM 4H”´>úÌí›?‰>]_ +vl>¶Œ?C>æ¿ÈO®<ß?¥¿$AŒâ}{°¿OÇsë—¿ÃÏVíÍ¿ö5ÆjÉ,‚¿’_Cô´¢?|®[*Én?—7,¬Q¦g?*O—Ò?>;?yŽ/1)?´ÇçÓç?z©Š["å>#pƒÃ>‚+å)œ>”-þh ©~> Äk`²é¿øVÿ~ÁÚ¥¿gÁÿp½¿WëC¼$š¿«Œ\àͿƱFÉ\E„¿éuõ (©?3hÅ`:cs? ¸ƒ”d¶q?b«¡À6C?˜­s_P5?´¸].Ë?z£€Ù Kô>;ç±ÉžÒ>¸å%°®>}zM>7›¯¬í¿~†bG¿”½¿Á#ÿ„z‚Å¿¶!|zô¹¿åÏ·vÍ¿íM/cÙ¨¿ ÍF³? .Öz7ºj¿¯è[þ€?äß×/žè!¿ÖçÍÚI? ½¸ß3+ÿ>1nŸ¹k°?\õ`ô£Ù>Ó†Õ‰/kÌ>ÉÞE>!¤>v¶Øß„>¯41TÞe>øpjƒÁí¿DEu\ å¿d)Ž~ÿ ÿõ\NÀ¿âsz躬ȿ‹­Û3®¿0¯X`μ?$#£$=?ê’&ÄŠ?yY· ÑT?=›§ðGdU?¦rÇÎ71?;<‰Òh?¡±ÑF"?Ä¡z2ñRÙ>ƒy—ÈéÄ>Ö/ꬅD“>ÝËuÇ»„> ÝÑYºçbÞPÄ¿ò7ÿ‡Ä¿©ÞWïj"Á¿¿üѦÁ Å¿…¥.98¯¿#ƒ›XcÂ?d pµâz?xœDŸâa’?ÂÍT2/i?Ügä ð^?QðŒ‰”0B?iyãpq9$?dTÅØ?ضù ä>E|ç1BÖ>`|³è¾ >† €IƒB–>ÉMð¿{ k›eYÄ¿sG:YÅ¿êƒݦÁ¿q#dµ~2Á¿NÕÖéî¿|Þ—Í÷ÞÇ?­ƒ$®—‚Š?Æ]D²A*™?™0 û"u?"c»ª4šf?P‰ÐvN?£â“rÉÔ/?t¸¾' ‡?܇U“ñ>Y,êaÞ½ä>¿LE̯>.ƒ@ðC¦>üÔ@„„?f>‚*“§+ñb>ÓšÀvBéð¿ÙF –ç²Ã¿ä`Œ{f–È¿„\µ-X_À¿ŠT›ëîC¼¿,FØÒ¦¬¿ö¸êAoºÍ?’¿ U€•?©$è­ ?NÂÓa€?›¤¢D#(p?•g×{OpX?_ݯžSÁ8?Ñ9 ’ )?Ó·ÚgÜý>C½¿õ´Ýò>{T÷ßÒ¼>¡D3Öµ> |­•¶v>Jv—dÝt> ]M,Ëñ¿>!Íç~¿ôÉ¡—Ì¿ví] „¾¿ a ñ鶿dÇ/*ª¿]@èEÕÒ?®B5ŒÎ›?9‚Gc¶¥? v=£zð…?r(ž}ñÀv?V_É=a?eŽß= C?Y<4W¹ø2?5 á4 ?¥+j¾üþ>íÂ~{àÅÊ>éÐÞ_„Ã>mZ ¶qC‡>VO*ìöƒ>ùr4!¾ò¿é@šÂöEÁ¿»sX²°Ð¿yuÃõûM¼¿?–ƒjj²¿Ç­u‘ ø§¿J1n€"±Õ??íTY`¡?°»3Õ6¬?II±´h•?w  Þä?zè1!¹h?EwF :M?ÇF=?.Õ%5ñB?ýVO…ßâ ?“¤ŸÚñÙØ>7_w°(±Ñ>.¤b¤—>}È2âA“>=4¬lT¹ó¿‡:šTPk¿¿‡GkÂLÓ¿¯!¸Ð¹¿_±‚)¶‘­¿ü‹h倥¿üº/]_Ù?ðB%ée˜£?ã'lQ;ʱ? Å1φG’?*#‡õÜý…?q¹n°|Zp?öÂŽ˜ V?˜²¨õD?ĦÁ¥ !?ß•œ/?Xny¬æ>x—úª‘Þ>Ñ=K“á§>8g5@á¡>´cEÚ¹ô¿L½tfm¢¼¿*‹'?¨Ö¿1«k{z,·¿‚}òYf¨¿¢‚½Y£¿ó&öqÝ?ùJ†{º¥?ùä5MM¶?ˆ§b>3ì–?Û?[Œ±ý?¿1.Áòv?ðXÁ¯=v`?$™¸†/ˆN?P¾þ´ã,?—vtY±â?¼ÓÒ$miô>"°Ðé>Ta —ž·>Ÿì[ëõ °>ö•/3¥v>2çý2uq>ò²šóøÒõ¿^b¬åœ¹¿ ,\û!TÙ¿1•¿n´¿øñº‘²;¦¿É¦9耞 ¿SÅÃ…ÀŒà?†Äp*ä¦?÷"ó²]»?Î5 ;›?Ñ%Op ”?j;¾ÔV|?­ìþ¶ h?#g¹_G=U?!7¿H™"7?„ð PÔ(?ÉÍJ î?ϽóÊÖ=õ>ºk!wÁÆ>4µ’sÀ½>/„C4ñˆ>­^´ó€>0ÙžÕØö¿¶é.ro׶¿aBÿ`©RÜ¿~å¡;¨.²¿œƒî/¤¿:›/Nœ¿G ~${â?HÛ«`m«§?i‰ÎôÀ? ©µæêŸ?ªB”ñ2Mš?4SÍ2pð?=:»ï"3q?îc¡þ ]?˜åw0ÄB?bîK€à1?<;p$²?‹ÙÁ@^?=Ø„÷ÔRÕ>£–rM¶úÉ>œnœ†ª­˜>ŠA&ä >¾¢ó Þ÷¿š–£÷[´¿RïEcqaß¿ë ·`0°¿0_‘¸ü²¤¿IÇÃ21s˜¿Ÿ÷z»iRä?ÖNÝX‘§?eºžz¿Ã?ÄV¯ ûw¢?X0q™¡?Ž•.£¢†?-“{¯@x?]u¶r0Îc?²íÀÝÙK?K¦19a:?-YƒèÐ?û«aýM ?y{bŒ’ã>|pÇ¿šovVz³¨>n¢¸ß«ç>¢#T´»äø¿,ñ§AV¬±¿iaÈ3¯<á¿¡ø—ô ƒ«¿¾5ɸþý¥¿™—ÿûP“¿SÊžx’æ?»=P‚¤%¨?óÙR(Ç?ÛÈü F§¤?~˜¤Âœ¥?AÇxNLm‹?Óö§ûF¸€?‚ÃÈ>ôi?‘'qs¬èT?‰¨Ó½B?ÞØaÙ%?⺒ñ ?œ"¥B‰tñ>§w¨ú¹â>ظUHý·>±.*"²üª>÷VÆMÏ·{>a Ñ‘¸ p>Ï.”’Nø?'\ º=›®¿ÛZdŽNÜâ¿uœÜÈáz§¿t!öû¨¿¶ž½/翺ի—u¤ç?–úì+þ§?± àŽË«Ê?äK©Rí˦?xøõøª?6Mjñ(Š?ï+QÓ¤†?l•hÑÀíp?Ö0Ú’bÉ^?ºé %lJ?Íæs/-ë0?DÀ6ðK ?ø%óì;jþ>°¡ü´»Õî>sßyó°Æ>pLŽøèð·>GëaZÔ–Œ>¢æ$¸¢›~>ñK"´áM÷?Ž›zF7Sª¿oŽˆ0\cä¿ÒÔuMÖ£¿¸ù=u¬¿hZL-a²…¿œAo9é?óldLÈ–§?W”IMûKÎ?ÙL¢µ½¨?¾P0Œ°?.ïû©“?Tò[ Ž?~Yä4üÉu?× ¦µ7f?Jƒ ]R?ã¶:îƒ:?ÃG:«Ô(?[²sfšÚ ?v¾‡$Ûïø>Àͬl‰éÔ>톫jµÕÄ>]íâìœ>§€NOI”Œ>šäàåMö?r}-J¦¿06¯) êå¿oœH›9 ¿þ†a—ñµ¯¿rÏ÷\ux¿”—DÂê?ËmF¨?úml<.ùÐ?Òa¹ñvxª?•Áô<·ô³?×¥R’̾–?ÑB¸ƒœ“?Q к@{?˜÷ÊGÛTo?+X¶î;ÑX?4ñCD?üI(!‘1?ÏgPgg?aOÌؼ¥?ü8ჼâ>}àÑnß«Ñ>­‹cü™«>šš¶¤‚š>àèé/Iõ?»s/A:‘¢¿ÜX|ÙVxç¿&V¤äù™¿Ã ™ƒ“²¿L9Á§£©^¿r]À®ì?uÅ8 q¨?ºà°Š¾Ò?|%Rã«?áö”Þª·?´°'˜% š?Íp_¿Ù™?°ª&Á7ä€?cÁàÙ ­u?æÌ‚Öh™`?+ŨTN?Š#\3V9?ŠÖ@’aS!?ú¯€¬Ò‚?€¡yXbð>݃;È|Ý>qÔß #º>HTïC§> <Ó·¡>p fsn>Ê_‡ÎãOô?.»´×¹]ž¿f'.ãÓôè¿ÝùÖIÔ ”¿·éq/´¿ø,”TR°`?& T4ª„í?.½Äd…¨?ÂŽÛãyÔ?H&‹Qý­?hl¾íµŸ»?L—pšñX?ÁÅFŸ?S|Ï&Т„?_”¡l}?Ñ[OÔœáe?©I¼×À;V?–kCcüA?ÛåpÝl+?ùª¨M>K?5æTv¥öû>ïì‡)è>šk;5&ìÇ>­Íï@f´>·A³‰qm‘>T:Íÿ}|>Œ‡ëi”Wó?ýq=äH˜¿¤ãbº•q꿬 W¹V8¿”Bb¦€¶¿ý9aÙx?E]¯Bàî?¤TÔ‰$j©?iö0Ï-+Ö?áÕßøÊ-®?:cWKUÅ¿?î´Çè6 ?^}ã|£?ôæLçCžˆ?—ŠhnYƒ?_ b:,l?Ô‡baá_?Kw|Ç5öH?x¹25?ªè­f!?ñÓG?ð&GÎÎ`ó>1tF€ mÕ>t/7âï†Á>"…×Ñ6 >DQÕíÖŠ>êãvZ{ôð?Ÿr dm†¿"~2î¿ë’Ò$Á¯h¿šL†/®½¼¿þ)¬ãŽ?œ õçöð?°ów¶¢Éª?·˜\ýÚ?fI ‹[°?z12+1Å?T¤íO?'U½ÅD¶®?ë`1:ü‘?¿ò®øn’?6D~dØâx?¾‘Ëfß>' 8:#@Ã>D¼bÞ×r«>K2­‡­Ž>D ë¸ÅÐs>»¡%:ÓVí?ÎœNh4Q¿Ð6A!Ñð¿WªQ.õv?Κ”|ÅÉÁ¿sY:–?eOæZò?'ÉTòæ«?’#ì÷»Ý?‚=ÆÖÿ±?‹Uw [Ê?×<×ô7¦?»GdW”üµ?v‚S"™À—?°=Å4Ä%Ÿ?1æžzǃ?°T¢1‚?œ‚7¡Ri?˜ûÇ*a?»Î¦MCI?Z‘fFË:?Z–ñØî#?xíÇi?ìr‡Â9ù>|ÄÚJã>A¡5¬KéÉ>*Û›ã±>O¹kÍqÆ•>ˆÃ!§õ|>ò|ÇÐ ^>àí¦­ùè?N‘¡IW|?VóRî]ƒò¿Ê\oä´‚‰?Þ®ÿ €Å¿(Ê‘‘Gg›?굨õS‹ó?Ýl¡~ܬ?ÛTÃò.œà?ñ »›:²?¦"rK%.Ï?Çú“Û8I¨?e%ȼZ½?ŠY»ˆÅÁœ?îÄ>V5Ó§?•¶0ƒ?_ÄüÒŒ? ^ë æ>CÁ™lÒ>P–¡¦ü¨µ>ºÀîùq¡>bKuhúV>ûq×ä?³{ƒ ¡‹?8‹n­9 ô¿Ï¢m›“«’?Ä!NøºUÉ¿ñ܉FóŸ?ì&U'׎ô?=3¸µm/®?ˆ¬Ò+Eâ?Fß²ì³?aS ö!ßÑ?Ë¢r7Eª?s121»ïÁ?O×T¼|Y ?AZõÕ˜­°?QI“Ë=s’?6­—Mš?X>ËŨà€?ŒŒ¬J”i?ÐÖd•h?Îa—Ôb?‹™$Õ2ÚJ?‘m>:öÞ@?½ºÃþpÈ'?1o–óU? òëãë?¿äºêQ#ð>ÑÁmHÿ‚Ó>zÉ.WùÁ>”æ=¢>T’=±>00Ÿëck>áRìóà?j„×}“?và\¤õ¿›F½-•ä—?j¢°ƒÍ¿ñ0ÓCÔ¢?À\žtõ?𭣿°?X~÷†Ðã?ºÅ-Ψ³?§ ç˜cÔ?8+œóIX¬?–'µv1Å?ßö?²þ¡?:·Crªµ?„éÔ i–?qBmÏ.ª£? {´ÿËŸ‡?®´ìoŽ?¬ûI5t?…aeDÕñr?ø€¼Ç,¥Z?é?0Ö9ÎS?<äÌYò;?~⪯G1?å!°Fgn? H&[Ë ?Ä[8,¼ï>T~ã#à>ðZ²ÂiÁ>Ó€Rƒ±>Eà U÷¾Ž>‰Æw=¨€>Ûÿ àU>šæžó£Ú?|IJ>Í’˜?-‹‘Š/÷¿pTmŽ®œ?¹ö`¸Ñ[пÉ!XXú£?Ï­~Í1ö?D~½ƒ"±?òg„?ô:å?Ö–«Vé³?äb4…n?Ö?Ù’2é=®?—GpÞRÈ?Õ(²=’ª£?åL!;´‹º?«¾`²™?SHe ãª?AΈÄ~Ž?L8ŸŽ—?VÄ_R'~?£(õ-?êXç;e"?ß9 ÁcH?#xŠ˜+ú>⣯ Þ>æɨQÐ>;RòUE¯>oúQ³I½¡>É~ïH½y>¥ö^"úUÓ?ºûgRÍ?…?MØîyø¿™C'ÑÖ ?,ó¤†(Ò¿“»é3ô×¥?ÈFµñLËö?-þÎz¿ ²?`‰†Ïr‹æ?Â5^¦"´?#@ÿËQØ?µ{ùÏš¯?œv¼I7iË?Ø`Ø "}¥?•Ir]:¿?Þ1ß ›?4ß”+±?¤ÇÄ ¿‘?Ë~Æö ?ŠÍòñc~„?Õ}$ƒ‹Œ?¾Büã(s?9O‚¥ît?Wß:‰‚3\?»¿†¹/gW?Hœ?¿br@?G¾œf÷6?§Ú þ·Æ?Òvên ?$ÝE³7N÷>åÝöhDë>&ÒÔÆœÌ>ª5.:åÀ>¸éxè®,œ>¨Ê¶D[’>¦É¼××Ce>›wf3!¥È?¼Ñ|Âp~¡?.'übjø?”XÉiO£?DÚËPÔ¿'J5Ƨ?-ÿëpmH÷?£É‘Ò+ݲ?ü“¯ÖÆç?Ô£ñJvj´?§WòÅDÚ?[G™ÆO2°?Àß(dUwÎ?2êôŠ=§?†¨ xLçÁ?ù·¨.iž?‡´ûjÏ´?ã00“Çé“?¼§ ÿ§¦?g«ä¤öp‰?V`uÎ=¤•?¸ÀÀ’Ì{?;Õ¬s?Æ⢉5h?Ÿt>Vhg?'¶#¼¨P?þðƒ?Í€J? ¿²šÐO2?">v~7G)?T™2.—B?$#)¿?$,/uç> n’”æÜ> 3\§d»>jAøÜmȱ>-§‚Q‰>ÿÝE‘d/ƒ> ëîP>åY&¿Šæ®vi¥?I4¼x5Ðõ?5º‚x§?3C}[Ú׿°Wñó“fª?l ø?ãPJ³Á³?ÅÀaAsýé?ГcW¥´?^ü1NçÝ?É猪8Ó°?oεy¨Ò?áËŠŸLr©?J:høƒ|Æ?øŸ¹×fU¢?³P"<Ü»?§ýj›¨Y˜?&èx]Ú±?#SÌ W?åÈ£??fƒ¯v †?;_<”m”?äÓSc"z?$™)_p‚?ìn®Ú„øh?æ•DD³j?i&–;«ðR?îr»q®¡P?;þ)Ȳ7?í¸Ê½ÏŽ1?ÀBÂO´?”A&C"»?PDAóàGò>òneLÙè>¯èXtÈ>ÛmÉÁ>º,†«-™>GÀIß…”>àé]‹s¦c>´9H¶Ô0Ê¿ªu`ÒÙÕ§?Ñ«ló?7ñC¼…©?aœQË­}Û¿*ËÄ~¿o¬?·‹·Z”ø?ŒÏÏÑ´?wm³ÈfÜë?äž¹HEP´?º¦Æô×£à?†#ÔÏ™l±?{-2ÍÔ?o6¾]náª?°&ŽïØÊ?µôÇñµW¤?»hõ“ƒÁ?k‚s”ÿÐ?-ÊìÁ ¶?˜föœË”?Ø¿Xà¬?Øóöƒ‹?tŸhÍ=»¡?|Ö•)Òvƒ?×c¯ç¼“?VLï°Ýx?Ì8N†Ëñ‚?féôeÖìi? ©GG±n?ô¯½ U?ئ×HõT?ûdÉ·:Ô Ò#UÜô>m·*ù§Ô>Í%¹’‡Ï>ãÏb¡¦§¨>¨mõ±¥>ˆ 'ø}»v>,"YJcØ¿ëB¼ô¨? Лæ5ñ?U©à05¬ª?’ §+… ß¿‘ÖÈãàa­?Õ6òtñø?-cAj@¿³? Ái‹Ç{í?¶Qa–…´?¿Zúa&â?;qV¤Æi±?{ Ý)€_×?Ê2ý™¬?íÒ6f]õÎ?–IuÔ<Â¥?2Œ]ïÄ?K3Ða¬¦ ?ä¹vSït¼? ÕYáŠí˜?¼×[» ³?ìÅÉr‘?ƒ= 5©?Áf»ÿ«‡?´ÂuýYN ?­Ÿéh?ÿ¹PFŠu“?-!” Ñw?&™èu;„?gŠÅhõj?‘=̺Öq?˜ÒdYtX? YØÀ¬‹Z?±“zeÒâA?Áá€\aÍ@? š d%?q|ò?z@"?ÐdbmM!?"OÚ©›8?ŠF¾­iOá>dI€Ü>Õr­¾]·>\d‚ýÖ´>"ç~E3‰>?wûT;‹>óÿ¨\™S>’©iá¿|ÞcÙûŸ©?gº}GÄZî?†lžƒ¥W«?HþÍs&á¿s¶¾w®?oh ‰^ù¿êàÊÁ³?uÝLÔî? ƒÚN>ž³?Ú8Ä ã?±$ð“`}±?”¾ÄÕ¹Ù?˜ƒ ÓÛ­?ãt{Ñ?8-=Šž„§?ŸW$‡6È?±Ó•Seú¡?F«¨ÜÿÀ?önßàá›?SÚرò·?ñ!“‚ Z•?¬¬O q‡°?¸U4GîÇ?2št¸g™¦?ÿOI’Ä„?øÁi2‚¦ž?K˜;w?UÚûÿ퇓?>¦8äv?{¿(ê…?¶þ¯¼ük?:êÇ9ít?]uøߎ[?û_„Oâ`?W@I^ïE?žÇ‹Gq0G?tÞòT¤,?GÃ$HX+?|à‰Í¬ ?°÷¾Ñƒ ?³PÞ‚½ì>Ì|Þf¾;é>„æ KBÅ>P¡0>_Ä>_g†FI`š>R‚(󛢜>I5—ïemi>vµØéŸAæ¿ ¤#ÌJø©?‰EkUšê?åøìØ»«?öäȲÁ±â¿($Gb†Š®?B?`ç=çø¿Îkp‚ã³?É6ïÒ®üï?-íÞ¯™³?ã_"4Íä? 3Ö 6c±?ÄÉãÎKýÛ?(ê’­?Tcr|_Ó?CS¿žG¨?Mõ¼†Ë?‚7i'¼£?ZC£ÚµÃ?2t ‰Vž?[î!7¼¼?†ë¾þ|Ò—?é¦wÉ´?3 þ9¬’?rpÖquˆ­?bQ¥„Š?ÿæ7Å5ä?' #‚?Úä2ùÃ`?c“Åݬ|?P…¨Wiè“?~ ßhv?€­®rˆ?¨ðw)ðl? EË/λx?ôd8ÆÊ^?¶c»Lˆe?µ8Ïîú‹J?óøMÆ>êO?[‰éäÑ2?CÕ§KbQ4?™a-Ì>?§Ê´y?’öñE ö>6râÇèõ>ÍÇH‚=‹Ò>ìP›«ãÒ>Õv£²ª>Ä#S4»1­>Üœ¯´µ}>Òé¡#Íê¿Òú5vËç©?(%¥ç?,ûŠ««?bfFgu+ä¿ i/,ɤ®?ÿ}¾è Íø¿ÃÈ&ƒ²?‘£¿¿Ëzð?5Ý4š²²?5`#‘»íå?À±<ı?A\< ±Þ?YÆqÅ®?×õd7Õ?ú‡‹”?³AÅS»-u?ôhÐËB†Š?Ïdú•Àm?ÑõÒY}?Ÿ Z=E a?} °vk?lTȹ8®O?{¸/?iÜU?|+i(‚D8?ï­ÆfQè=?‹>a±?Üž )Î!?JcØ­{Ù?µ¤:¾¦?òÉú ß>9Ñ@`=Sá>ØrGèÕJ¸>}lfˆï¿ñ!â÷©?¬«`%ÈÜã?fRqÛª«?EÈ ¼å¿_®¿§á®?F{=Âø¿’ÃêqóD²?‡]иàð?(³–ó²?“Pny¢øæ?Æl~èö°?0 Eà?YÜ«WìÓ­?ªÔ[ÑüÖ?ä~%Ï‘ß©?²B«þ6ÔÐ?¡,Íu¥?±?­† É?à€!?¹¡?Ù˜»Ò‹Ã?¦ÀZÂãX?tÝ¡‘›Ñ¼?¯t^Îà–?ÏdêÐP¶?@ƱXP’?=NU±?2mða' Ž?>1c¸;Š©?Æy–É8>†?2Оõ|Í¢?D¼ø…¿'?‘yŠç2vœ?6´çr\x?æPÈ àq•?Òü`°?Wt?ÚzÄË~?H ß©ñen?–‹~Ðr?ÁÖ ©b?nDyq?uçÖ£R?H›¿âõ¿]?^w¯$¸>?2LšÁ_ñ¿–@o+¤ñ©?sNË­øÔà?£ïMq«?ÊåD<çæ¿×™Å«âí®?±{OÚÃø¿˜D›¹™Û±?«Õ‡ë<ñ?9~ê¤Ã±?7‘: ÜÛç?Í-InÀ˜°?ظóé²÷à?ö²DÄÍ®?[´uš°œØ?|ÐVR8ÿ©?Ëöù^[Ò?ñw|³U~¦?|5¢Š:¾Ë?éBŸ®T£¢?»QÔAîEÅ?«ƒ£ñúž?aôAXæ¤À?‡â-ô™?L)\¿Ã¹?‹™O½d”?|R¥¯´?äyùµIk?t‹ÎÆ_°?21ù)u}‹?¢žY¸š¬¨?˜lÿu†Ú„?—èDS‚¢?K³xÿ@}?Œ=CyͲœ?aƒÚt¹v?ÈCí––?@@C²‚s?QË åt?©F‚×n?<ÓS_¼„?ѬØ9d?° uÑv?JR›C U?ƒMòd?·þT‹KC?ݯ€¦ÆJO?ô UœV,?¯¸Ü@@5?‰Ü"ÿzé?–0!å(bó¿ƒáåÞ©?UGáhfüÛ?„à¨Ø_«?®ß\¡Œ*è¿Þ%Ÿf¯?•}+wÆø¿n’.¡±?ð;=‚ñ?RpéÄmR±?ùL!·è?—©B.c°?\Žþ ØÌá?X±î­|Û­?8(ÄciOÚ?ð‰]å_ª?77±à¾Ó?ôñ0سϦ?‰ŠxŸZwÎ?&l†¹È£?Éq¶Nâ«Ç?Ϥp8ßk ?Û~€¾­ Â?:rznNw›?F˜ Ì«ô½?Ʀú$N—?ŸÂm¥²·?™¾÷«}w’?YÕ†6ݲ?La; ¾Ó?näonãÒ®?Y€IRÿl‰?š%„ Ïf¨?¢™ð½˃?ÂŒwÆŸ¢?-Øǧå{?í¡öd?ÆÑÞ´œcu?¹ŠKoÓø—?¯!Å°r?ŸÚÁ>`c’?ý²Ágo?3‰xáøˆ?—’ßJ°e?…P"TIÔ{?7)ì%ÁX?¦\€’ Ëj?ÏC¹ñXG?{@4:.V?°xs…2?T¶#õ¿.¹K£!ª?ªDî,ÄÄÖ?ŒÁ¯´lu«?9Üñ‘.Zé¿P‰[FW¯?:`|ÄeÖø¿Äœa¾Œ\±?›eC´ÞÃñ?™Áúç±?$ønzµté?Ÿ§j-°?ŽaŽ¢â?;'x»-À­?þ6ú‡ØÔÛ?à Ú–9Ī?í\b£¸HÕ?!­Zu–§?¶Û·vÐ?M<ÑZ8¤?ĺW®4Ê?Ä’H ¡?bãNB=áÄ?:xIo÷Z?0üÖâÑÀ?öÝ>?n„¡œÃ»?Äù¤•7•?u®Žíj¶?ʈÆJ¸÷?ÏY~S%²?Ûqƒ¤l‹?‹v=n[®?¯q?¸Ç$¬L? 4V{Y‚¶Ò¿ÏÃ8‰=’¿C=Ú2…Å£?•OÈòÕž _÷äjÑ¿\h:y‘?¾øT×C j?#Dí}ÆFB?Þ’^[ÒÕ?‹;>2³û>UêaجÌ>n;«¨é¯>+–ÈR{t>›0;X9”[>ãkë÷Ò¿eé[—m6’¿:lŸ£?Šèb ع¿W3d2Ñ¿LÚÍ"‚?Ö›«4¦k?–ð¶ïæ¼B?Ì=º§k3 ?uÉaØ‹»ü>ÄØ·nÆPÎ>ÏG‡öÀ°> D¯v>·…&‹ÕO]>iÈš»Ó¿¦8|É9:’¿ZS ?«£?rˆ½/Q4¿¹û-H ¢Ð¿ËNu^ b‰?ÊgözÐán?¬aA¤Õ/D?,ìë$º"?µ‹K?ˆºô;)Ò>fÛY½¯[³>»Â­×h{>qÀ?åŒa>$úòÿÔ¿´5í’&Œ’¿Ð³‹ËÙ\£?¦š'æ³J¿¡ f¶sÛÏ¿Ò¥èú~E?DJÊfr?8csÂ;ÔF?f_S/’'?º¢ŸX¶"?mÍY%3Ø>é }Â}¸>9¸>%Qƒ>‡GóÁ÷‚g>jQNÄÖ¿Å°ú4P„“¿bw<3k“¢?°)i-¨\¿ê+ʼnοy†×ãŸs?Žq%w?,›¸.b K?Åd§œØ/?Ì›%œ@a?|:?òožá>AG;çÃÕÀ>ôˆ}dŽ>…ë@Moq>³~å7 Ù¿5†Œt•¿|ÌöÆIšåÈ>ô|Û?4ö™>…£ùò@|>¶#t†6ØÛ¿NÀo™i˜¿Ç?>øªi›?M/¡Uª®w¿Ò|†ÙÕÌ¿­¤êDL‰J¿†0“B „?ð`µ^þWU?«Í’@ã@?WcâŽ>?þ#Ú ¤–ö>Ö;eÅ‹Ó>ÚiQLݘ§>‡yE †ˆ>ì;‰6ß¿º:ì4KÄœ¿Ó“Ù6j?]%¹o;ô‚¿Àvá«zÌ¿à³@f"i¿ïcZ°¡<Œ?<¿KÙå[?†•ärýÀI?ok5ú ?ê'5so4?RLBœà>jSŒ®5e¶>w é{ –>ŠYñ€ d>òŠ¡Œ­|H>aÓ(Ú™á¿å†Û¸_Þ ¿"1} >ÆS¿I<˜WŒ¿zF†0ÈdÌ¿l˜×1u¿„Û³¸B“?Ljñ'_b?8çµ%6èS?ºi™¡¿2)?SÖѨ?±ÒíÍðëê>0ñÅ/@ÔÅ>õ]«y¥>ó"^#ìnv>nOŠX†4Z>mƒ„ýƒìã¿DNÞþüY£¿üEó>3Þ›¿iì«ï-“¿CëxÁÕÌ¿e䬑S}¿n·?hW;›?|ܧp»h?ÔnÖ^?éÓßΩ«2?¡Œº?«H¿µö>bðí¾‡…Õ>ÒM 4H”´>úÌí›?‰>]_ +vl>¶Œ?C>æ¿ÈO®<ß?¥¿,AŒâ}{°¿OÇsë—¿°ÏVíÍ¿Õ5ÆjÉ,‚¿…_Cô´¢?|®[*Én?ƒ7,¬Q¦g?*O—Ò?>;?FŽ/1)?´ÇçÓç?ø¨Š["å>#pƒÃ>¤*å)œ>”-þh ©~>ŸÄk`²é¿üVÿ~ÁÚ¥¿oÁÿp½¿WëC¼$š¿šŒ\àͿƱFÉ\E„¿âuõ (©?3hÅ`:cs?¸ƒ”d¶q?b«¡À6C?˜­s_P5?´¸].Ë?ú¢€Ù Kô>;ç±ÉžÒ>±ä%°®>}zM>4›¯¬í¿{†bG¿”½¿Ñ#ÿ„z‚Å¿¶!|zô¹¿åÏ·vÍ¿òM/cÙ¨¿ ÍF³? .Öz7ºj¿¯è[þ€?äß×/žè!¿ÖçÍÚI? ½¸ß3+ÿ>ŠnŸ¹k°?\õ`ô£Ù>q‡Õ‰/kÌ>ÉÞE>!¤>Ù¶Øß„>¯41TÞe>÷pjƒÁí¿BEu\ å¿ d)Ž~ÿÿõ\NÀ¿ósz躬ȿ‹­Û3®¿9¯X`μ?ø##£$=?ê’&ÄŠ?yY· ÑT?X›§ðGdU?¦rÇÎ71?˜<‰Òh?¡±ÑF"?#¢z2ñRÙ>ƒy—ÈéÄ>Ò/ꬅD“>ÝËuÇ»„> ÝÑYºçbÞPÄ¿8ÿ‡Ä¿¬ÞWïj"Á¿¿üѦÁ Å¿…¥.98¯¿ý"ƒ›XcÂ?d pµâz?‚œDŸâa’?DÍT2/i?$Ügä ð^?QðŒ‰”0B?°yãpq9$?dTÅØ?)·ù ä>E|ç1BÖ>{`|³è¾ >† €IƒB–>ÉMð¿{ k›eYÄ¿|sG:YÅ¿êƒݦÁ¿•#dµ~2Á¿†NÕÖéî¿‚Þ—Í÷ÞÇ?­ƒ$®—‚Š?é]D²A*™?™0 û"u?"c»ª4šf?P‰ÐvN?¡â“rÉÔ/?t¸¾' ‡?܇U“ñ>Y,êaÞ½ä>‚LE̯>.ƒ@ðC¦>©Õ@„„?f>‚*“§+ñb>ÓšÀvBéð¿ÙF –ç²Ã¿ä`Œ{f–È¿„\µ-X_À¿ŠT›ëîC¼¿,FØÒ¦¬¿¹êAoºÍ?°¿ U€•?†©$è­ ?/ÂÓa€?›¤¢D#(p?•g×{OpX?_ݯžSÁ8?Ñ9 ’ )?Ø·ÚgÜý>C½¿õ´Ýò>{T÷ßÒ¼>¡D3Öµ> |­•¶v>Jv—dÝt>]M,Ëñ¿<!Íç~¿ôÉ¡—Ì¿ví] „¾¿ a ñ鶿dÇ/*ª¿]@èEÕÒ?®B5ŒÎ›?W‚Gc¶¥?ïu=£zð…?(ž}ñÀv?V_É=a?eŽß= C?Y<4W¹ø2?5 á4 ?¥+j¾üþ>ªÃ~{àÅÊ>éÐÞ_„Ã>mZ ¶qC‡>VO*ìöƒ>ùr4!¾ò¿é@šÂöEÁ¿»sX²°Ð¿yuÃõûM¼¿?–ƒjj²¿Ç­u‘ ø§¿@1n€"±Õ?ZíTY`¡?À»3Õ6¬?II±´h•?š  Þä?zè1!¹h?GwF :M?ÇF=?ˆÕ%5ñB?ýVO…ßâ ?“¤ŸÚñÙØ>7_w°(±Ñ>.¤b¤—>}È2âA“>=4¬lT¹ó¿‡:šTPk¿¿‡GkÂLÓ¿¯!¸Ð¹¿_±‚)¶‘­¿ü‹h倥¿üº/]_Ù?ðB%ée˜£?ã'lQ;ʱ? Å1φG’?(#‡õÜý…?q¹n°|Zp?ÃŽ˜ V?˜²¨õD?ĦÁ¥ !?ß•œ/?Xny¬æ>x—úª‘Þ>âÑ=K“á§>8g5@á¡>´cEÚ¹ô¿U½tfm¢¼¿*‹'?¨Ö¿1«k{z,·¿„}òYf¨¿˜‚½Y£¿ó&öqÝ?%ùJ†{º¥?ùä5MM¶?ˆ§b>3ì–?ó?[Œ±ý?¿1.Áòv? YÁ¯=v`?$™¸†/ˆN?P¾þ´ã,?—vtY±â?\ÔÒ$miô>"°Ðé>a —ž·>Ÿì[ëõ °>ö•/3¥v>2çý2uq>ò²šóøÒõ¿^b¬åœ¹¿,\û!TÙ¿1•¿n´¿ùñº‘²;¦¿É¦9耞 ¿QÅÃ…ÀŒà?Äp*ä¦?¯"ó²]»?pÎ5 ;›?î%Op ”?j;¾ÔV|?æìþ¶ h?#g¹_G=U?!7¿H™"7?„ð PÔ(?ÉÍJ î?ϽóÊÖ=õ>ºk!wÁÆ>4µ’sÀ½>/„C4ñˆ>­^´ó€>0ÙžÕØö¿¶é.ro׶¿aBÿ`©RÜ¿~å¡;¨.²¿œƒî/¤¿:›/Nœ¿G ~${â?HÛ«`m«§?i‰ÎôÀ? ©µæêŸ?ÉB”ñ2Mš?4SÍ2pð?`:»ï"3q?îc¡þ ]?šåw0ÄB?bîK€à1?H=;p$²?‹ÙÁ@^?ÿØ„÷ÔRÕ>£–rM¶úÉ>œnœ†ª­˜>ŠA&ä >¾¢ó Þ÷¿—–£÷[´¿UïEcqaß¿ë ·`0°¿0_‘¸ü²¤¿IÇÃ21s˜¿Ÿ÷z»iRä?ÖNÝX‘§?eºžz¿Ã?ÄV¯ ûw¢?X0q™¡?Ž•.£¢†?;-“{¯@x?]u¶r0Îc?ýíÀÝÙK?K¦19a:?*YƒèÐ?û«aýM ?û{bŒ’ã>|pÇ¿šovVz³¨>n¢¸ß«ç>¢#T´»äø¿*ñ§AV¬±¿kaÈ3¯<á¿¡ø—ô ƒ«¿¾5ɸþý¥¿™—ÿûP“¿SÊžx’æ?»=P‚¤%¨? ÙR(Ç?âÈü F§¤?~˜¤Âœ¥?AÇxNLm‹?ëö§ûF¸€?‚ÃÈ>ôi?‘'qs¬èT?‰¨Ó½B?ÞØaÙ%?⺒ñ ? "¥B‰tñ>§w¨ú¹â>ظUHý·>±.*"²üª>÷VÆMÏ·{>a Ñ‘¸ p>Ï.”’Nø?'\ º=›®¿ÝZdŽNÜâ¿zœÜÈáz§¿h!öû¨¿¶ž½/ç¿»Õ«—u¤ç?–úì+þ§?Ù àŽË«Ê?ÝK©Rí˦?±øõøª?'Mjñ(Š?+QÓ¤†?l•hÑÀíp?Ö0Ú’bÉ^?ºé %lJ?Íæs/-ë0?DÀ6ðK ?ø%óì;jþ>°¡ü´»Õî>Qàyó°Æ>pLŽøèð·>GëaZÔ–Œ>¢æ$¸¢›~>ñK"´áM÷?Ž›zF7Sª¿pŽˆ0\cä¿ÒÔuMÖ£¿¸ù=u¬¿hZL-a²…¿œAo9é?óldLÈ–§?\”IMûKÎ?àL¢µ½¨?¾P0Œ°?.ïû©“?’þñ[ Ž?Yä4üÉu?`× ¦µ7f?Jƒ ]R?d·:îƒ:?ÃG:«Ô(?[²sfšÚ ?v¾‡$Ûïø>¥Î¬l‰éÔ>톫jµÕÄ>jíâìœ>§€NOI”Œ>™äàåMö?r}-J¦¿26¯) êå¿ünœH›9 ¿ö†a—ñµ¯¿rÏ÷\ux¿€”—DÂê?ËmF¨?ùml<.ùÐ?ßa¹ñvxª?•Áô<·ô³?×¥R’̾–?òB¸ƒœ“? к@{?:øÊGÛTo?+X¶î;ÑX?4ñCD?üI(!‘1?ÏgPgg?aOÌؼ¥?^9ჼâ>}àÑnß«Ñ>­‹cü™«>šš¶¤‚š>ßèé/Iõ?Às/A:‘¢¿ÜX|ÙVxç¿&V¤äù™¿Ã ™ƒ“²¿L9Á§£©^¿r]À®ì?uÅ8 q¨?¸à°Š¾Ò?|%Rã«?âö”Þª·?´°'˜% š?Íp_¿Ù™?°ª&Á7ä€?ÀÁàÙ ­u?æÌ‚Öh™`?y+ŨTN?Š#\3V9?ŠÖ@’aS!?ú¯€¬Ò‚?€¡yXbð>݃;È|Ý>xÔß #º>HTïC§> <Ó·¡>p fsn>È_‡ÎãOô?%»´×¹]ž¿f'.ãÓôè¿ÝùÖIÔ ”¿·éq/´¿ø,”TR°`?& T4ª„í?.½Äd…¨?ÁŽÛãyÔ?a&‹Qý­? l¾íµŸ»?=—pšñX?%ÂFŸ?|Ï&Т„?Ì”¡l}?Ñ[OÔœáe?©I¼×À;V?–kCcüA?¸æpÝl+?ùª¨M>K?TèTv¥öû>ïì‡)è>¯m;5&ìÇ>­Íï@f´>·A³‰qm‘>T:Íÿ}|>Œ‡ëi”Wó?ýq=äH˜¿¦ãbº•q꿬 W¹V8¿ÝBb¦€¶¿<:aÙx?E]¯Bàî?¤TÔ‰$j©?iö0Ï-+Ö?áÕßøÊ-®?*cWKUÅ¿?ç´Çè6 ?^}ã|£?ôæLçCžˆ?–ŠhnYƒ?_ b:,l?Ô‡baá_?Kw|Ç5öH?x¹25?ªè­f!?ñÓG?ð&GÎÎ`ó>QvF€ mÕ>t/7âï†Á>"…×Ñ6 >DQÕíÖŠ>êãvZ{ôð?Ÿr dm†¿"~2î¿ë’Ò$Á¯h¿šL†/®½¼¿þ)¬ãŽ?œ õçöð?°ów¶¢Éª?·˜\ýÚ?fI ‹[°?{12+1Å?F¤íO?'U½ÅD¶®?ë`1:ü‘?ãò®øn’?6D~dØâx?nCˆ¹ r?i{0CƒZ?*D†‡ºL?VlO·–6?\sš&xà"?߉³W ?S‹,Úθô>¾‘Ëfß>, 8:#@Ã>D¼bÞ×r«> K2­‡­Ž>D ë¸ÅÐs>»¡%:ÓVí?ÎœNh4Q¿Ð6A!Ñð¿WªQ.õv?Κ”|ÅÉÁ¿sY:–?eOæZò?'ÉTòæ«?’#ì÷»Ý?ˆ=ÆÖÿ±?‹Uw [Ê?×<×ô7¦?nGdW”üµ?g‚S"™À—?>Å4Ä%Ÿ?ôŒæžzǃ?°T¢1‚?œ‚7¡Ri?˜ûÇ*a?»Î¦MCI?x[‘fFË:?Z–ñØî#?xíÇi?ìr‡Â9ù>zÄÚJã>A¡5¬KéÉ>ŸÝ›ã±>O¹kÍqÆ•>È!§õ|>ò|ÇÐ ^>àí¦­ùè?N‘¡IW|?VóRî]ƒò¿Ê\oä´‚‰?Þ®ÿ €Å¿(Ê‘‘Gg›?굨õS‹ó?Ýl¡~ܬ?ÛTÃò.œà?ñ »›:²?¦"rK%.Ï?Çú“Û8I¨?e%ȼZ½?ŠY»ˆÅÁœ?îÄ>V5Ó§?•¶0ƒ?_ÄüÒŒ? ^ë æ>CÁ™lÒ>P–¡¦ü¨µ>ºÀîùq¡>bKuhúV>ùq×ä?w{ƒ ¡‹?8‹n­9 ô¿Ï¢m›“«’?É!NøºUÉ¿â܉FóŸ?ì&U'׎ô?=3¸µm/®?ˆ¬Ò+Eâ?Fß²ì³?bS ö!ßÑ?¾¢r7Eª?q121»ïÁ?O×T¼|Y ?AZõÕ˜­°?QI“Ë=s’?6­—Mš?X>ËŨà€?ÓŒ¬J”i?ÐÖd•h?Îa—Ôb?‹™$Õ2ÚJ?pn>:öÞ@?½ºÃþpÈ'?1o–óU? òëãë?ÁäºêQ#ð>ÑÁmHÿ‚Ó> Ì.WùÁ>”æ=¢>`W’=±>00Ÿëck>áRìóà?ˆ„×}“?xà\¤õ¿ªF½-•ä—?u¢°ƒÍ¿ã0ÓCÔ¢?¿\žtõ?ì­£¿°?X~÷†Ðã?ºÅ-Ψ³?§ ç˜cÔ?>+œóIX¬?z'µv1Å?Øö?²þ¡?x·Crªµ?“éÔ i–?–BmÏ.ª£? {´ÿËŸ‡?ó ´ìoŽ?¬ûI5t?beDÕñr?ø€¼Ç,¥Z?§>0Ö9ÎS?<äÌYò;?žäª¯G1?å!°Fgn?jK&[Ë ?Ä[8,¼ï>T~ã#à>ðZ²ÂiÁ>ÙRƒ±>Eà U÷¾Ž>ÿ‹Æw=¨€>Ûÿ àU>—æžó£Ú?|IJ>Í’˜?-‹‘Š/÷¿pTmŽ®œ?¹ö`¸Ñ[п»!XXú£?Ï­~Í1ö?D~½ƒ"±?òg„?ô:å?Ö–«Vé³?áb4…n?Ö?Ù’2é=®?GpÞRÈ?Î(²=’ª£?æL!;´‹º?«¾`²™?THe ãª?ΈÄ~Ž?L8ŸŽ—?VÄ_R'~?¢(õ-?çXç;e"?ß9 ÁcH?h{Š˜+ú>⣯ Þ>þåɨQÐ>;RòUE¯>ÿQ³I½¡>É~ïH½y>¥ö^"úUÓ?ºûgRÍ?†?MØîyø¿™C'ÑÖ ?,ó¤†(Ò¿“»é3ô×¥?ÈFµñLËö?-þÎz¿ ²?`‰†Ïr‹æ?¿5^¦"´?#@ÿËQØ?µ{ùÏš¯?œv¼I7iË?Ø`Ø "}¥?•Ir]:¿?Þ1ß ›?4ß”+±?¤ÇÄ ¿‘?Ë~Æö ?ŠÍòñc~„?Õ}$ƒ‹Œ?¾Büã(s?9O‚¥ît?Wß:‰‚3\?¼¿†¹/gW?Hœ?¿br@?Àœf÷6?§Ú þ·Æ?Óvên ?$ÝE³7N÷>PáöhDë>&ÒÔÆœÌ>ª5.:åÀ>¸éxè®,œ>¢Ê¶D[’>¦É¼××Ce>›wf3!¥È?¼Ñ|Âp~¡?.'übjø?”XÉiO£?DÚËPÔ¿'J5Ƨ?-ÿëpmH÷?£É‘Ò+ݲ?ü“¯ÖÆç?Ô£ñJvj´?§WòÅDÚ?[G™ÆO2°?Ãß(dUwÎ??êôŠ=§?†¨ xLçÁ?¸¨.iž?‡´ûjÏ´?ã00“Çé“?¼§ ÿ§¦?g«ä¤öp‰?V`uÎ=¤•?¸ÀÀ’Ì{?;Õ¬s?D㢉5h?¡t>Vhg?%·#¼¨P?ñƒ?Í€J? ¿²šÐO2?&>v~7G)?T™2.—B?(#)¿?$,/uç>n’”æÜ> 3\§d»>oAøÜmȱ>-§‚Q‰> ÞE‘d/ƒ> ëîP>åY&¿Šæ®vi¥?I4¼x5Ðõ?5º‚x§?3C}[Ú׿°Wñó“fª?l ø?ãPJ³Á³?ÅÀaAsýé?ГcW¥´?^ü1NçÝ?Ï猪8Ó°?oεy¨Ò?áËŠŸLr©?J:høƒ|Æ?øŸ¹×fU¢?³P"<Ü»?§ýj›¨Y˜?&èx]Ú±?#SÌ W?åÈ£??fƒ¯v †?;_<”m”?SäÓSc"z?$™)_p‚?ìn®Ú„øh?æ•DD³j?i&–;«ðR?ïr»q®¡P?;þ)Ȳ7?ˆ»Ê½ÏŽ1?ÀBÂO´?–A&C"»?PDAóàGò>òneLÙè>¯èXtÈ>ámÉÁ>º,†«-™>MÀIß…”>àé]‹s¦c>´9H¶Ô0Ê¿ªu`ÒÙÕ§?Ñ«ló?7ñC¼…©?aœQË­}Û¿*ËÄ~¿o¬?·‹·Z”ø?ŒÏÏÑ´?wm³ÈfÜë?äž¹HEP´?º¦Æô×£à?†#ÔÏ™l±?{-2ÍÔ?o6¾]náª?°&ŽïØÊ?µôÇñµW¤?»hõ“ƒÁ?k‚s”ÿÐ?-ÊìÁ ¶?˜föœË”?Ø¿Xà¬?Øóöƒ‹?tŸhÍ=»¡?|Ö•)Òvƒ?×c¯ç¼“?VLï°Ýx?Ì8N†Ëñ‚?féôeÖìi? ©GG±n?ô¯½ U?ئ×HõT?ûdÉ·:Ô Ò#UÜô>m·*ù§Ô>Í%¹’‡Ï>ãÏb¡¦§¨>¨mõ±¥>ˆ 'ø}»v>,"YJcØ¿ëB¼ô¨? Лæ5ñ?O©à05¬ª?’ §+… ß¿‘ÖÈãàa­?Õ6òtñø?0cAj@¿³? Ái‹Ç{í?¶Qa–…´?¿Zúa&â?;qV¤Æi±?{ Ý)€_×?Ê2ý™¬?îÒ6f]õÎ?–IuÔ<Â¥?2Œ]ïÄ?D3Ða¬¦ ?ä¹vSït¼? ÕYáŠí˜?À×[» ³?ìÅÉr‘?ƒ= 5©?Áf»ÿ«‡?´ÂuýYN ?­Ÿéh?ÿ¹PFŠu“?-!” Ñw?Ö™èu;„?gŠÅhõj?‘=̺Öq?•ÔdYtX?ëZØÀ¬‹Z?±“zeÒâA?Áá€\aÍ@? š d%?q|ò?z@"?ÐdbmM!??RÚ©›8?ŠF¾­iOá>dI€Ü>Õr­¾]·>Æ[‚ýÖ´>"ç~E3‰>/ûT;‹>óÿ¨\™S>ÿ‘©iá¿ÞcÙûŸ©?gº}GÄZî?†lžƒ¥W«?HþÍs&á¿s¶¾w®?oh ‰^ù¿ðàÊÁ³?uÝLÔî? ƒÚN>ž³?Ú8Ä ã?±$ð“`}±?”¾ÄÕ¹Ù?˜ƒ ÓÛ­?ãt{Ñ?L-=Šž„§?ŸW$‡6È?¿Ó•Seú¡?F«¨ÜÿÀ?önßàá›?SÚرò·?"“‚ Z•?¬¬O q‡°?×U4GîÇ?2št¸g™¦?ÿOI’Ä„?÷Ái2‚¦ž?K˜;w?VÚûÿ퇓?‚>¦8äv?{¿(ê…?4ÿ¯¼ük?ƒ:êÇ9ít?[vøߎ[?‚û_„Oâ`?TDI^ïE?¤Ç‹Gq0G?|ÞòT¤,?PÃ$HX+?|à‰Í¬ ?¼÷¾Ñƒ ?³PÞ‚½ì>Ø|Þf¾;é>„æ KBÅ>\¡0>_Ä>_g†FI`š>d‚(󛢜>I5—ïemi>wµØéŸAæ¿ ¤#ÌJø©?‰EkUšê?ØøìØ»«?öäȲÁ±â¿$Gb†Š®?B?`ç=çø¿Îkp‚ã³?Ç6ïÒ®üï?-íÞ¯™³?ã_"4Íä? 3Ö 6c±?½ÉãÎKýÛ?(ê’­?Tcr|_Ó?CS¿žG¨?=õ¼†Ë?{7i'¼£?>C£ÚµÃ?2t ‰Vž?Zî!7¼¼?†ë¾þ|Ò—?é¦wÉ´? þ9¬’?poÖquˆ­?&Q¥„Š?ÿæ7Å5ä?' #‚?öä2ùÃ`?c“Åݬ|?…¨Wiè“?@ ßhv?€­®rˆ?¨ðw)ðl?ÆGË/λx?õd8ÆÊ^?Ôc»Lˆe?¸4Ïîú‹J?ðøMÆ>êO?W‰éäÑ2?bÛ§KbQ4?™a-Ì>?Í´y?’öñE ö>1râÇèõ>ÍÇH‚=‹Ò>æP›«ãÒ>Õv£²ª>s2S4»1­>Üœ¯´µ}>Òé¡#Íê¿Òú5vËç©?(%¥ç?,ûŠ««?bfFgu+ä¿ i/,ɤ®?ÿ}¾è Íø¿ÃÈ&ƒ²?‘£¿¿Ëzð?5Ý4š²²?5`#‘»íå?À±<ı?A\< ±Þ?YÆqÅ®?×õd7Õ?ú‡‹”?³AÅS»-u?ôhÐËB†Š?Ïdú•Àm?ÑõÒY}?Ÿ Z=E a?} °vk?lTȹ8®O?{¸/?iÜU?|+i(‚D8?ï­ÆfQè=?‹>a±?Üž )Î!?JcØ­{Ù?¶¤:¾¦?òÉú ß>9Ñ@`=Sá>ØrGèÕJ¸>}lfˆï¿ñ!â÷©?¬«`%ÈÜã?fRqÛª«?EÈ ¼å¿_®¿§á®?F{=Âø¿’ÃêqóD²?‡]иàð?(³–ó²?“Pny¢øæ?Æl~èö°?0 Eà?YÜ«WìÓ­?ªÔ[ÑüÖ?ä~%Ï‘ß©?²B«þ6ÔÐ?¡,Íu¥?±?­† É?à€!?¹¡?Ù˜»Ò‹Ã?¦ÀZÂãX?tÝ¡‘›Ñ¼?¯t^Îà–?ÏdêÐP¶?@ƱXP’?=NU±?2mða' Ž?>1c¸;Š©?Æy–É8>†?2Оõ|Í¢?D¼ø…¿'?‘yŠç2vœ?6´çr\x?æPÈ àq•?Òü`°?Wt?ÚzÄË~?H ß©ñen?–‹~Ðr?ÁÖ ©b?nDyq?uçÖ£R?H›¿âõ¿]?^w¯$¸>?2LšÁ_ñ¿@o+¤ñ©?sNË­øÔà?£ïMq«?ÊåD<çæ¿×™Å«âí®?°{OÚÃø¿›D›¹™Û±?«Õ‡ë<ñ?6~ê¤Ã±?7‘: ÜÛç?Í-InÀ˜°?׸óé²÷à?ݲDÄÍ®?[´uš°œØ?|ÐVR8ÿ©?Ìöù^[Ò?Ýw|³U~¦?|5¢Š:¾Ë?ÛBŸ®T£¢?»QÔAîEÅ?«ƒ£ñúž?aôAXæ¤À?‡â-ô™?L)\¿Ã¹?ꊙO½d”?|R¥¯´?äyùµIk?…‹ÎÆ_°?×0ù)u}‹?¢žY¸š¬¨?Zlÿu†Ú„?M—èDS‚¢?²xÿ@}?Œ=CyͲœ?aƒÚt¹v?ÈCí––?„?C²‚s?Ë åt?±F‚×n?<ÓS_¼„?ЬØ9d?¯ uÑv?KR›C U?€Mòd?ºúT‹KC?د€¦ÆJO?öUœV,?«¸Ü@@5?ŠÌ"ÿzé?–0!å(bó¿}áåÞ©?UGáhfüÛ?„à¨Ø_«?­ß\¡Œ*è¿Ò%Ÿf¯?•}+wÆø¿|n’.¡±?ð;=‚ñ?RpéÄmR±?úL!·è?Ž©B.c°?\Žþ ØÌá?X±î­|Û­?8(ÄciOÚ?ð‰]å_ª?77±à¾Ó?ôñ0سϦ?‰ŠxŸZwÎ?l†¹È£?Éq¶Nâ«Ç?Ϥp8ßk ?Û~€¾­ Â?:rznNw›?H˜ Ì«ô½?·¦ú$N—?ŸÂm¥²·?Š¾÷«}w’?YÕ†6ݲ?La; ¾Ó?äonãÒ®?;€IRÿl‰?œ%„ Ïf¨?d™ð½˃?ÂŒwÆŸ¢?±×ǧå{?í¡öd?ÆÑÞ´œcu?œŠKoÓø—?¯!Å°r? ÚÁ>`c’?ƒÁ²Ágo?3‰xáøˆ?œßJ°e?ƒP"TIÔ{?<&ì%ÁX?¤\€’ Ëj?ÍC¹ñXG?x@4:.V?±ts…2?T¶#õ¿!¹K£!ª?ªDî,ÄÄÖ?ŒÁ¯´lu«?:Üñ‘.Zé¿P‰[FW¯?:`|ÄeÖø¿Äœa¾Œ\±?›eC´ÞÃñ?™Áúç±?$ønzµté?Ÿ§j-°?ŽaŽ¢â?5'x»-À­?þ6ú‡ØÔÛ?à Ú–9Ī?í\b£¸HÕ?­Zu–§?¶Û·vÐ?M<ÑZ8¤?κW®4Ê?ýÄ’H ¡?bãNB=áÄ?:xIo÷Z?!üÖâÑÀ?öÝ>?n„¡œÃ»?µù¤•7•?u®Žíj¶?»ˆÆJ¸÷?ÏY~S%²?Ûqƒ¤l‹?v=n[®?¯q?”´Ç$¬L?ifeffit-1.2.11d/src/feff6/TEST/feff.run0000644000175000017500000000200011012363551016333 0ustar segresegre Feff 6L.02 copper Calculating potentials and phases... free atom potential and density for atom type 0 free atom potential and density for atom type 1 overlapped potential and density for unique potential 0 overlapped potential and density for unique potential 1 overlapped potential and density for unique potential 2 muffin tin radii and interstitial parameters phase shifts for unique potential 0 phase shifts for unique potential 1 phase shifts for unique potential 2 Preparing plane wave scattering amplitudes... nncrit in prcrit 9 Searching for paths... Rmax 5.5000 keep and heap limits 0.0000000 0.0000000 Preparing neighbor table nfound nheap nheapx nsc r 1000 17 178 4 5.2920 Paths found 1038 (nheapx, nbx 178 4) Eliminating path degeneracies... Plane wave chi amplitude filter 2.50% Unique paths 34, total paths 562 Feff done. Have a nice day. ifeffit-1.2.11d/src/feff6/TEST/files.dat0000644000175000017500000000421510772773144016524 0ustar segresegre copper Feff 6L.02 Abs Z=26 Rmt= 1.420 Rnm= 1.468 Pot 1 Z=29 Rmt= 1.356 Rnm= 1.392 Pot 2 Z=29 Rmt= 1.356 Rnm= 1.392 Gam_ch=1.325E+00 Mu=-5.608E+00 kf=1.795E+00 Vint=-1.788E+01 Rs_int= 2.020 ------------------------------------------------------------------------------- file sig2 amp ratio deg nlegs r effective feff0001.dat 0.00000 100.000 6.000 2 2.5527 feff0002.dat 0.00000 100.000 6.000 2 2.5527 feff0003.dat 0.00000 46.888 6.000 2 3.6100 feff0004.dat 0.00000 5.515 12.000 3 3.8290 feff0005.dat 0.00000 11.029 24.000 3 3.8290 feff0006.dat 0.00000 5.515 12.000 3 3.8290 feff0007.dat 0.00000 8.939 24.000 3 4.3577 feff0008.dat 0.00000 8.939 24.000 3 4.3577 feff0009.dat 0.00000 100.000 24.000 2 4.4213 feff0010.dat 0.00000 4.056 10.000 3 4.7633 feff0011.dat 0.00000 11.357 28.000 3 4.7633 feff0012.dat 0.00000 4.056 10.000 3 4.7633 feff0013.dat 0.00000 20.293 48.000 3 4.7633 feff0014.dat 0.00000 20.293 48.000 3 4.7633 feff0015.dat 0.00000 34.533 12.000 2 5.1053 feff0016.dat 0.00000 5.152 4.000 3 5.1053 feff0017.dat 0.00000 5.152 4.000 3 5.1053 feff0018.dat 0.00000 5.152 4.000 3 5.1053 feff0019.dat 0.00000 38.115 12.000 3 5.1053 feff0020.dat 0.00000 38.115 12.000 3 5.1053 feff0021.dat 0.00000 5.600 4.000 4 5.1053 feff0022.dat 0.00000 5.600 4.000 4 5.1053 feff0023.dat 0.00000 5.600 4.000 4 5.1053 feff0024.dat 0.00000 3.397 6.000 4 5.1053 feff0025.dat 0.00000 3.397 6.000 4 5.1053 feff0026.dat 0.00000 2.711 28.000 4 5.1053 feff0027.dat 0.00000 27.991 6.000 4 5.1053 feff0028.dat 0.00000 27.991 6.000 4 5.1053 feff0032.dat 0.00000 3.820 24.000 3 5.2920 feff0033.dat 0.00000 3.820 24.000 3 5.2920 feff0034.dat 0.00000 7.519 48.000 3 5.2920 ifeffit-1.2.11d/src/feff6/TEST/phase.pad0000644000175000017500000022700711012363551016505 0ustar segresegre#:FEFF6X POT File: npad = 10 #:ne,nph,ihole,ik0 = 49 2 1 1 #% rnrmav = 2.63276380462662 #% xmu = -0.413013720690333 #% edge = -0.413013720690333 !RIYdR._cZzRI,Cb]aNiAREX;:6fj:;RA)K2mo\'oR9SsLN{~1uR/}Z-41vXeP{|v&Rzw<&R2/3R?G_[t !R@a]hN-09IRR:o]Xi*T=Rdni1_GNQ}RzIJ>a|B42S0H}7Wz`q\S2`H;dj(~4')6SBOUv3Zo~3SFCHB']?.4SJ@A@Z;HG9SNF@qqO1oxSRUF{m>UM9SVmS^McY9` !S\4fsld=5WS`_&ap@[@KSf8G(XRYZhSjtm|%@8)bSp`AN0cPaYSvTuRzbIO/S|RV0O<|KzT01LA7Ri@[ !T0}~*zJ2OqT2v84FyX;XT4t.]Q-&]cT6waL>rQ\ET:&vZj<%7CT<5n.y=UHtT>JG|kw.6}TD*ViV*A\L !TH{H{(c_M]TP.xW=o-dVTVS1X;L`GdT^4'}{VCPnQYFWTFL:u1S/wV%-`1[hQ_Q|,o[XG1 $S/z(*Tqk?2Qg[u-DU%6;S1%lVduITQQqPu@/mhr4S10KOq8C50Q{[OIr),]%S1AwRvm8q}R-miBsmoY< $S1Y[z{8m}HR7[Z}dh:bfS1DmhLlhdFR=PCv4MD5KS11>yw25.3RAE.a*TDi=S/y1-3A%/SRC^i?Kw3DR $S/hD`6o]gzREUWCBw^Y:S/XuYE78r\RG4,YFOYY&S/Jc2qrRI13+;ILhdS-\cdOAwYnRI)oVjzS3nS-UC}:e5MDRGzOu:5MOwR}\;ldvU?5RGoXP/SqEA $R{vuVnS~4dRGcPholWBuR{;wMI^e\HRGVS8K(m-~Ry^w81hB';RGHtzOhnd@Rw>U5J`W>IRG%._eRL.w $Ru07XsV+`wREZE2pyEZ%Rs0GxLT?DNRE5mxmpK^}RqRCIbT]<5jQ $RmoigF[q]DRC(_T5;{2\Rm:9X*LI[=RAc.GtT<X%h8nZ $Ri)>ZNt{9BR?4suH@-1eRgJ}P9rNQ4R=a;}ZA^`sReu94,9?V/R=7qtol.J>ReL8o&@Tt&7l;S/(Cb'zq(qR3;pJhPxmq $S/@Dl%)k)zR1wV9df2<_S/X-=eDAI.R1RUv[e]kXS/ry@2Ge9wR/|3(UYg63S12[o\B/*_R/P=1aA|@, $S1N8m(-L2k4Q{|HgV4QRRS4*zr.J0:zQs8O9d,eZ0S2ikPy0B^.QiS=t_gB0: $S2Npw&mQWRQa?7r7;s`5S233{Y=D{NQYEFm^st]wS0rp{?;_qAQQo<0[~E/zS0X327&M0MQKUX{+_E-l $S0=Rm>%``6QE[NNg@vuXS.}j*~oa-XMyau5uvP?w*kC5sr]QBJ_iRLYa5R7Yq8yJmxQQFrn4M_@[- $RI=:/7ZD{UQHv:1=f~gaRYCH\Y3mb;QJDLqgJ:fKSB+QJ8tGv<&}' $S-czdPus]zQH}ur?CN5HS/?AP{u[V9QHe)v`~Pn-S/qt2w>Mu(QHFmxMNu@RS1F|i0UjQkQH;r%d?_N9 $S1s)|31)zEQH,zd2g/a) $Qp/OF&c6~sO9FF^8)ciQ3L7F*s%UcP_mHg=O)-1Q7qp-6sg=mQSr*~R'B9UQ;|*7\%N&vR/09-PPo>aQ?0g:OKxSU $R3h=2@]-kgR-fq*n0>Z|R3X.UCQjFIR/z?:%J:0qR5>9kNQGQ]`8jS0`Ri~;r':=g&QAa>jScaF< $Ro;=M-~}~vQ=,-)?}AH2RsKt>H+=aUQ7gShad|T_Rw_zoh2mG}Q3WjbC]Wl&S-d_+JR?R`Pakr(o2xZo $S/9X2Ux2mNP22`P27KfDS/eM**}]enPptt3aK)7:S14QoCuuo~Q2R9QT%vlRS1[4Fu;7:-Q8>&IDE{2\vS2bBu&jC}.QB:eE\IFg&S2>*C?xBG{QF'MjCKa6lS0T~ab{:efQJN^.%cOK| $S.qbLrZq0uQLRhI~QM,nRz6+c`WrQtQL{9ygi=\.RnOz&*3f1(QN,PJdX;0&Rd2qtIsFT,QLlNY:K*lS $RZ8nNiDN<+QLRsR|osVXRPeD4C.it1QL-tvTR8V/RHN1s@J6^kQJ[ZH2'J1oR@XSV2XW3FQJ?s&02o}d $R8}'1oOXktQHz%1P5y&M $R3h`|317]iO/M?`,}rJ'R3hpKA0i{]O3nwCJ~`EKR3i]xBp^dMOAoTt/WY_WR3kNDW>ZpqOY]FTY0qRN $R3nT'aX};(O}1RdVSq2/R3rNHGjfltP1vWwq1{/XR3vFMeE<^6P9C6/,S2-lR3y5tY^g~UPAsDH]'Q\E $R3zD?nj?+^PMZ;5SFMWxR3zs?Gp:QDP[AjJG_tpzR3~cMTJ`[hPi5gi'CkOdR54(`4Q?~@Pq|f6K8>%3 $R3JuVoK~+qQU&HY0(8d?R/Z.))sH@uQ_%cYmev>mQyuDFsvpFiQ_f|C2kDv8Q_*'~8_ME)Q_,BvjZzD/ $QIwfxl[Y4JQ],~[R]T3.Q;`6oJHEQDQY:LY4j4,AQ1ZHEl^ExMQU]t~SB*5NPc{6l?m3/8QQ[BD*r+V[ $PYvWB{\+9SQMFkwlp9iOPsm/N<;U8QQI1Hh(4XlWQ/0i?;P7^&QCg~C>)o[aQ5M,qg*2B8Q?3IG-ODMP $Q;10y>TUlMQ9t{*'kk||QC:e`SCoizQ5PQ4oG%nupFR9~z}a-WJ=QB|&dRC\*m9/Wg?QL6Wl{i[^NRIQSD(Xdt*QP50o'5yYu $RO9'1_+zQYQP{0S|1NtwRSwP3C)qK_QRF[rg4BW{RY>PMs/I{SQPx,`wewkdRij_iQ0wJ*QP`L?-aKTiRmUL>,c7NyQPFm46kQy8 $Rq>5GHRsy[QN}hOucH?[ $P^dzPglZ1dP.u|;z`2d%P`m?60E|KhP0&slX=lG^Ph:kY-s7)rP0I4`xtk,oPtTi7j?I}.^TPD'fn+.d`- $QFWMeZKR7JPLzEK1c(t+QRy3}LzevbPZ=>(?@9MEQdP4GWrW*JPhlCq}.?)5Pz/Xg(-z6u $R2O[9`j0\pO9.kMXP;>1R6mu+2e+U-P^mBtd):wUR<.R>|'Az2Q2hTilH-.-R@|x?RRlvDQ:iC;\yA)A $RH(c0VA\P9Q@9)Fy)Q.}RN*AV6}}RJQDblckf74sRT@|_BE9jiQF-DLS24(&N3eC/QT99u'[Q\nmcE+3S0 $S2erRh_q?`Q`NklfcM1tS2oEKKzINeQb])&.i5,*S2w\(d[`fDQdH=XlYIinS4*NVDVO-fQdZs*|A:b[ $S1~]g'1s1>Qbqz1_J3&KS1yXZR)0asQb%1UDJ'|6S1v|5=l/d3Q^iq:@,,1qS1v:M-hre/Q\`?Q43`e2 $S1v.R^|Kk.veWB*VNN\8k/ZynQ)O>ebt;a4d;N^8h8s~7{^OBb2,)}nSxNdJ]P?_4{*OJK\Dpe(s(NpO`q+Q(=F $OVm{L*ws^XO.j?ttXVj4Ol=6lr@cT\O2Lcq2}m&-P08IRo^DeeO81o9%Jl<%P4wbb0GFR*O@NWg+RMPz $P>7:%^*6o/ON8uwmH0xqPJu+CAd1MJObK&4Irw)MP`,sw8(lJtP.R_ka6LA{P~,q[S,U),P2R'2HrlOh $Q6?p~7)DywP2,h54tF+4QQLpCH=RqJb $R>e3EZY~mYQP8``VvTa2RB5~Y]H=MvQR11p]S~ER2[7*\S.kH[%ykM|A4t[g5mgM>-R|*>KW)N05LD[J~j:M@{^L>@G4;N2u2*+K.|}MH_[Wrle+z $N:%7@SAiNhMV=YH{BD^lNDVuckf`H6Ml~2PBR>GmNXM_OVJvPwzOtSVuVR2BBO4o~rktr}l $P6z++T`ACPNg1wI=1{9ibxQ~D?{c[=FsQ:I`kioto]R0@@.N0HsRQe1R25W0g*a7>Q>guA?ox3]Xb~(QL8u[?uTw+RBZRRv,)+:QP4.jEZ]8TRFGnkDiA\b;ie16z $RLe)XNSilYQX/v(mDgRTRP0xs[d`dARX'F7[|H2RQZ}y>F_gXr $R\:xE'>DyV{Xf^Rn5{j>D&;wQR,efpQT@%Rp7s|CM0DgQP.3[3u0nA $Rr)IlUf|h4QN5~=}{e/d $L:W%K&0l)QKn:{u?LG<;LcLZ:EIj4d8>MJ7V3`};:`M.ty'Nlz'N $MlRNaGWBZ?M8N=sCRnZf%IP~yVIf.qe^PFpbx*0|1IQ2>cE+e;'LPP`r8seqYs $Q6Ocz)bHWAP\DH9Z|:zNQ<=J&-[Af)Phi0vCif;/QBeSbM2sobPvu5<**gN,QJ`7SrvDLuQ.s;Pz;~Bd $QT=IWQLpYLQ0aPOG3]oJQ^Ow(.ih4CQ2QqWY*E=p%,*TfR8)4cGPs\vQ@p8G-2NP7R:=+/}>Dt^QDF[lLHT^A $Rk%q[\Dq\QJ&/W^:RNOR@y+Lx3o%hQJrtj@F??{RDz-(e7NoXQN4)-D&Lm2 $RHwQRsWJ31QP50e`s/qJRLba>sQsajQPMzc[,DJfRPQNygbG1dz:RXM4>\e&EEQNU+12K6onRZ]jlkLT[oQLrHBdVbS0R\c+d-09WSQL=Zkyb0BQ $R^nXJlM9J%QJ^D88ap3r $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%KB?'{.n7ZsK.eK/-Bj7TK^P):K2VbzK86}7hsd(sL0~p0xq5PdKL9Sj{>|\- $L@7B)'Jc4SKz,_{_d.Q0L`^FPS3K7OL8Jku5c3WAM2f'x?i+9ALP+knX/@74MD8wP->5_=M.\nhjb;=, $N.cx=l}9>mMF[SC}mYeIN4[l@SD^vxMz)hC`8F1+az=EN6(2,ZtyA(NN^?rR8U'VNBXA7L2yRC $Nn191pKVcTNX&lSlAhmbO2)MptQ{rgNv^0%|7FDFO:H4D(q>ztO2QyU@X3ofOH(-Y~3L`2O:&|3Sp]y_ $O^/vk~hM;GOD5[.]~?ssO~dj6s%iUZORDon}FQrxP2whB0<_AbOd{nUWZo(C&'Qz}CPfHAzcKx,tP:vArfp0~OP~h%2H{) $Q2+6,hKZlbPHhZOU7Q6*lwvEp,GPR&',Q4mS]Q:MCH%VGu?PZlmMb4ulYQJB6)DzT(:PvJK8vPb_yPR0'hK``_^6Q6+qy2`7Z6R0~_K%AkS'Q862kbyu'P $R2t{eZuIX`Q>cutt\'{@R:WVB]B=WiQBKCHen@Yu $R>-xf82E`JQD`'2T/)']R@_mjiL~C?QFeLL+O{P7RD,Af:*,6WQH8*sjk%SiRFElb%UTMiQHVh%hx>tZ $RHbpJhg7@GQHbY?`VA|]RJoG|AdFL2QHT*4B|ASCRL|~q.^&TeQHItHI4/ypRP.4q{de3nQH(~Sh}y[w $RR.}[@JZ&Wk&xl1|&M<8+4l9L~w $MV7r,^'bhNMP*mo2ofg-M~uvY:G,zbMpSPWp.JmzN6T@jKU(itN2Z<,2YyrLNDQ[Z&/o`mN<2r_u@kLd $N^7sJnBCT'NJV.xerz;pO.zBlI;8-8N`v\@.iDsxO6LL7Udf%DO.bW3LLH'WCBi&MzLO|.Dq]mf74PJ.g1:)aZ\P0kDZ.]HK=PXLg=S/a\@P4ZtD|A?';Q0KYAfETy0P@n.k;@gby $Q:3{xD{v=(PRIia:QAZ{QFq@W_%.;aPfe]aJlr1|QVy99Fq~(gP|OFx=[OW1QhK41{w2pNQ0D[EIw^=u $QxFQ/D}4c@Q2;c{[>}7iR.qL_Ta4@`Q4//J[XCv1R0T+4m},~SQ6&2J|(,KWR2|HxtgMMwQ8tgME^G00 $R6Io}XZUEuQ<@[kRmu/EQ>HZ*(=_XmR:uV80QBo`Q@HOb=eqQzR>+sYPkog@Q@z~gNh%6i $R@1lQVf9Z1QBHUO};Kb3RB>ld~(pV7QBbzWd_fjLRD>h)<]uFOQBd5s6f+uC|\? $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%KDh'{)UaXtKBKWA0XH;qKbF3:F-o`XKdn&S\ptYGL2+l9f;F74L2kXhP%V.B $L>vKBE,@CTL@z?X2[vn.LZX]?:4%4KL\=nutiKQhM0Yjs:gsObM0~Q.}twsqO0We]Fk(c< $ONn5b6^r(XO6;J=S||@cOfUG%SC%voO<|2K';Ep9P.zrx71d'*OF}^s]W'}{P>p(Y~?k`%Op8t=p&uok $P^|LAt(mQvP48xCD>1SkQ0hdC6)S[QP>RpYY=MLEQ:/a]lh%5tPLP\pto),2QDue{Rf.W7P\TQl98Rqwm&`Q0%v*pxYJER.ZxNaetL9Q2I]F9,EtI $R0kLE-uG?*Q4vxqX2@CnX=BJMR>r2lSr*90Q>JGn\hX:y $R@mwU(h+\oQ>ZlK3o%E= $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%K`UdI@:S+KKhrsQ>Vk^hL2`\He;G:~L2vy9akY6: $LBlc\~^/(UL@mX&L:b-DLdb>du5ZJ.LZe,4O\X(mM2WiQQwukUM0&=:7,sjcM@^ex}c5[dO.gp:iI&oINLob^NT6rAO4nQ:U2x9?NbGWv(OX(;OVR{|BWT1^O6&XP-yQPp $P2_RwmgMj/OJY~^;lk7LPDjuPRym2bOr97u}Nl?kPf~i']Om-DP4',juQa~:Q20tCvj0Q5P<\@~7+n>] $Q:5}(4WpW-PHHeEOaL8'QD;1BMQHCDPTleWsPHJ*QNh'O*]^=vtQ2P'D+oqXER0wys:)pMoQ4Jw`CuW'GR2i*T|&\p(Q69q,_ex'5 $R4cP7BtA8kQ8'mOVcv,;R6XM*i/aVBQ8Uty*5*}4R8G/F>=n]RQ:%rO:2M,.R:B`R0\ $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%K|4Kd;YQ>sKr5>lC[pxsL8Yc'J:jmOlZo-_'SNrijzM;~o*Ol8jt/3<:6O8LvW7O_xtP6fMo.FT-HONMCfl@9]dPL1IMJ^r&fOt_Lv{vE`L $PpG->2I4?EP2xAbz]tOfQ2U}>U\uKJP:{ZdL_d4`Q:B?m4jy(-PDnAZ9,&}&QLHPqu:sWSPXvwh2x|Nm $Q\NMoW|*/PPj`&>:`.:xQjgPj8q^tjP~&~+lUqE=Q|P,0r-nSRQ0Iu`2_%-eR04q~ABk?vQ25:1]KH=~ $R0u{{6.a>(Q2t;[Ir4&2R2h:5%JVXUQ4YbKzE\3;R4UCi-6HgvQ6)&b&{nUDR6>=/EMdO{Q6QFK%UlN\ $R86gHLZV_IQ6uSfL>DV? $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%KbI'sH^^hFL`vlQ@v]efM<%DLw)*;oANV&eP.u7t}a4i.O<)-5.Z8JB $P<6/(0suw6ORPW9[(H~ePRtid`GcJjHePR^K)~6Ek]QVz6c4hqB@P`^RK)xR~PQd=Unky,olPpV]gN5%5CQt-w1NguskQ.ZI?U`R5< $R.]bz\=T@JQ09@_Ka:.4R0=~A:yL+xQ0p?NdG)SuR2+6jC2K0KQ2N/Z@9rh,R2muECM:;j $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%L.s'a~L0H}K^28=A+-5XL:/MAtGlk,L0H8?=(\:&M0SZqIdcf4LVL>}fm7ay $MXKdtmy-gUM8Sri*kY]wN:)lvG=Xv%Mf>A2%PVeONjSOH.3=SON8]6+L2}uvO:H`eWEHpBNXM~*7Uy;p $O\fA_XY8kiO2&kAKmiAwIOvmPB*WBJ,e=cOV_V5Cn0NCQ.dD6v:pt\P2sTMxW-Qq $Q:fLf&/c9IP@R4~{R.gHQHU&y+XuK9PN%HqKpE:AQT(a[ps>u5PXf,h90g\^Q^h)w>oa%JPfU/JImC1L $QlwL(r[{tYPtVq<3,Q\nQz@?Pw0@}DP~jlVTwkdXR.oq)(5|PTQ0&Yg~)izfR0ZXC`(bo]Q0Wg?J{]D3 $R2@:J6J=YpQ0w]DT%Q-O $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%L05^])=UMyKX.d+/bv&j $L^JQcIcH5JL\dKDM.ZhlnNb'1N0@n*D*JL1MD~zV]v>c2NJ]~hvG*FnN.wf(EdMQ} $O0j3wy(|&*N@O=>ScW=MODsE&4G`gTNh+\g/ay)POt-T,]q0,`O4BLQnjIVGPHFa/?{tHlOZvAuTg,,c $Q0:'CC4(PDP2sE0q,jeyQ:}J}|gF7>P>Z9qsnm%dQFwGpt]U2dPHpFmA'%P^Xj6y[aK6Qh`1avQ[RXPjOfGINiJcQtMj1gz0JoPro7TwnruWR.T:kxT[MyP|a*LUYz}? $R0>j&Bu:9AQ.qA\)rS8e $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%LB{d@3QM|)L0[>mg}&P=M4%]wGDtv6LRbg^BsVC0M^TDa.uPC)M6+ssZrXpz $N:7=5sd/;6MXRrtO+GzpNfDfoIZQsaN47EEzlwXGO83S3n~DcNNJ@VwoyBA4P0E2?dd7k^O6l@tNAa4H $PP4H}EQnH5O`7BnUXT(PQ0m()j]aqsP2rwH*_g^\Q<>-bIs\6eP $QN[&)0iHE\PN/%0cW]'7QXidd~GQ)'PXI9XTLEE^Qf26c5(vU>PbE`P{Zu]vQpU8WAjLVoPj'T5[?oJG $Q|EB^d`xR'PrLQ9xZLze $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%L6'._\tc]{K\j{caZaY-Lpj;?3}D&6LPN0`Of&`e?TM@IRGo(Q*2NJD26wk-/zMrxX]mWQX-/rEcHRnPRni.\x}6yQd=*?EOb~nPZ}\>I(Qx2 $QnKirNFPhTPb0@QCKYc- $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $LNbohdau6zL0pdHZUY=]M6[etgIj0XLPXyG^qN,+Mdm?+kbXQ&M40y)lD:rlNd>XMRpjPLN0fBbX-54* $ON^|L(ldW{NdOk&EWafEP8L9rK*K2YO>5)toC?c.PbQ+of'DKiOhj4~TL2ZFQ4*|PU+`s-P2m^F+;QFP $Q>%MAj'+BQP:Cy-_UM3^QF)7hhv^?mP@4s:Awe4YQL]atB`W)*PFKqxutgF{QVtV81U]zKPNc.|O)5k: $Qb{BtU0pcVPV4sbTwPG/ $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%LsDix*Nv)&lkYwuaP>9*L.Wd~%OB,+x)>]EyPn4X>)@xAGOly@6:PP%s $Q4jy{,e=kYP2gYcMI/HmQ>MRK>z}JEP8cc/fwW)rQF+i6szuPEP>*Gl`V]zKQL^C+UHd*kPD+oq28o81 $QX/3I\PyykPJv}^q8GU< $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%L2I~dA*U_bKD{hjW3t;CM:Cm.WyKAoLNp)%>`ig@ $N:~jlhD.]AMJF3/.z3xhO6)p]_7lnaN{*~rGkwwP8,uIh;t;^QF=KkJQBHaP<.v&pC-O( $QL|>827(DPP@{[pr,SY_ $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%LDWk>gVeX4Kfi{)B,Z-^ $MNmY'xm3-|Ln99RUS^Z_NL)b;EL<2WM\tcFGcEQFO>CL]ecp(tNuM2'gq04xFiNdp&C3`w%/Mx+aDxG`}qOJMhL<~~geNNGeL%H~W3 $P4rNsg{dXP4~0[a.;T^ $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%M4D(EO\-DgLNZV6l|trG2P:VO^^Ac)`O6xtC/sw_mPbpbBVJ^QAORRrQLH>=OQ2j,^@tT&nOzXJcl+KkW $Q<41g^8pO0KLmIuB)v63MBb.oB*r%3LN9RU*~t|{N>h|D)ZpgbMD&]xlq0Q} $O62]OwOfuGN6;_[`D2nzOrv?_1PQiONh{imUf?MiP@}fiyU&KeO:U2qjpYmBdL7'pN<@yOTG;HHP0R`]Tz;xQ5%vs;^xyLRAiuDgADKDQ52X%+&murMR]&\VD*kXIQG%g42uj,~Rcm/9WDV{9QIas50}}J~Rm1;KPVCm-QK7fEw,b-X $Runk9D1:d,R/6}A|vJWGRwp}K^|@]mR1^pdz]R[uR{NLHqyiLtR31dd^(0+LS-T@Di?EJgR32rV-Xq@l $S-i*iIcyqGR1x>Uov*iRS/%I29K{qbR1R8NuOUO{S/=K7&6Sb:R1+UI|9?O;S/V<[}}c~oR/T*TzYMaA $S/o]HrHRMZR/(%Y;O~AgS11K)lz1cgR-R7CLmc_3S1KACxE/X+Qu2[BqO_e]S1e2@`=chuQkkuc1(IXz $S3%/P6[cr%Qc*zr}=9U4S2p=8(3.8{QYv&CeVME=S2VtyKCMiDQS1Dnj5,JUS2=X{9FvfkQKZ2x>7CI2 $S0}lw-<8~UQEAd5`oTFwS0e2L*[6E4Q?D%BX%6MAS0LZg_~k7KQ9aP87;([eS.j4]B9;VyQ-xRl*;VBQ $Rx<:FoW7](P-f>s`\j6uRl/yD%~g1|Pd1=3ip0dNR`@iQ|OS1QQ2+Foc:YeMRTpZ=P,2_ORUPlzGPR;nQRS|TPan.ERc?ncVD@b|QRo<@h@@yy $Roc&2L&.%kQRj3T`tl.OR{^3Oq[jo\QRns/z`jXZS-x.JDv[~rQRm7DhJ4c.S/M^u8R2a?QRgJ/TkCsy $S/z'ZuLt58QR|(-b'cBq $QHF{Un,ls:M;@)RraTOAQHEtO]qW3nNe2+DdGU9JQH>pz9wSdEO?zWJvPV&UQH&\jP8f^WOmaE'%0OM; $QFBG/p(8BlP3sG%5@':|QBq3YE`@0*PA}>^+W3|DQ>)6`nLL|(PY&]v|7hhRQ488}|~ITh4LcRGmoU[Q'}%Qm0NeSmN<8RKw@hM=GKPQc{Q)pUbDIRQ*mTjT0(QU5J>/soFjRYT(e}0h+9QM^@Ov6tR1*& $S-fa&e@02mPX8xi,}FThS/7\=d*19>Q0[PCOkD.2S/`L=Da)NNQ67J{n<.g|S1,n={-`[,Q:Q}NY}JuP $S1Q>IMrBC~Q>[H,?5e:FS1tW+U2+I;QBm%/pKg]rS2r~CnX_hTQF|O,e:s-*S212NKTlNrQN=K=MU[3[ $S0N]WH+5p.QRK`=lVU@XS.p^k;9}SbQTLq[]FNqCRzbhGAqW9TQV'o4POas~RpIx=::nLEQVFVY|*0e% $RfOorxNfCxQVA[oG%qWdR\xpP8CHTiQVAU6&~F~lRTa?,S@\SgQV9F\wY;KgRLa}`M0azXQV*E7-or:t $RF%oHfYH/fQV1'=j`zBQ $R=;&81Z@I=Q4b-@8X1rxR=-3]5BGbYQ4+hmbNUHHR;cW),[K\WQ0X{7`Skm*R;6}Mg(CzYPpzR(LG_j? $R9g8smMi95PPWJZV25:oR9Fjs39z~*P4qcfI(yG&R91F3xJ,]HOmLkxS{v%yR9&-xa\:C=P?m[N?]ZI| $R7}HLUNLL]PS>`zF@/3.R9(O-tk,r>Pe8doL*?*tR96Y3l4Psy4(%qW:[R9R=l&*Tn/P}U`@[Pe`4 $R9E;[t.Z{FQOUWF9%pXaR5af1_BbAlQYV+DF4v:=R3H`@k(\Hm5MUQS>y(_}~OwQeFJ_v;e1FQO+%LXh7V5QW}|6>X|38QIud;So5a( $QOM*b)Wi[BQEjTJ.i_s]QKUb9lcy9AQA[[-lRevFQI+=fIcjgSQ=THuZOfW1QI6C?EW{kZQ9h&GbuAU; $QKB\C?Y||uQ5P|t~}*j%QO{'?oL3:_Q1XD(U>KpYQUb3pY{+:qQ-j*^,3_aEQ[sF*:P'v)PYsFxb%_J? $QciS\~-*.tP5J{4:8Ne2QkP1|9=oRsP84+%2ZXHmQsV|HyxT({P\?s1\2QE1R/)c34AURyQ2\YEnpbDC $R1;oZB;IsxQ8bGzg(={^R3W>,r)_)TQ>(oN,z,>_R5v\(eO%,ZQB(d=TZaqvR99W&s7y`zQDtCD(ijz< $R;R6flT1fTQHW>VuVrjkR=j,8b,)lYQL6rM5a/8gRA.I}@hGg@QNhqDqyCx=REjM)h`}j[QT7CQV~FVu^y\rROo+Pj9'PZQXo5~Sg^7\RU/XVFNS,PQZL2eWvx\xRY?%NuFb8[QZpqP+7a+? $R]Eg4e9@skQZx{jL'@z'RaBF(;hE*.Q\1jQohsV~Re7cPVo6`UQ\5V[lANTQRg}U8TMF+sQ\@8MmDlyJ $Rk__:9/_cKQ\V/HlYl&n $PB]DV}}7*IOX-v20;|qbPD6(tF^vxLOXfx{eGB=pPF{id4JiY[O\f&^`)pjcPN8PiH`NsAOdDYG=eBCy $PXKRZz?W]@Op1.xRSQP^PhD8Z735;mP.YmjYR,j5Q.RSv&ra3QP0r[*,;z>mQ27HS0j|(qP4`\8W3ce\ $Q6\iO}l*7;P:-=8)Lz`,Q<|(SIoX+^P@5r8Ltnr2QFLgc)t~{9PFw%>hqi:&QR.w?&E^XNPP?}upy.;~ $QhY-]v0;kgPAbE\BQtJJR.x&aImR]@ON%~%\\xZ:R2NmvK8[3;P`U1)^0qVqR6H?A5M3y=Q0o;Bg]b/* $R:M\rx9Y)mQ8MHG;Ep8+R>fyp@0H3rQ>8kD~pI.ARD;cC6F1e?QD=QjRAAGuRHxSRm3Gx;QH9&fu:iaL $RNdBH)1tF?QL-hsQFH(-RT=YdtaLsRQN/d`KgCkERX~%Ksrh5gQNm@P2f*OIR^X~L?Sc14QNe;87dwfA $Rd,&X\&WB0QP9+5U{CQ+Rh;:xx`stuQP,sTVV)+BRlON02+*[5^Qh3C98(\udS2iW'9,A-YQjf3s%fSRx $S2w46R5K8_Ql6(b>i6(yS4&FdX<70cQje)Km@8@zS3)BuW3*FYQj=G?)MPYNS3%EmC16qzQhNDe`|z[% $S1|osZ*M_/Qfe~ZY-:y+S1{dTYz'%xQf/<~c-Ld%S1{rt0|,izQdH3YWkh*>S1|00bUv&DQb~*AxKY*X $S1}cvcGTrVQbS_:f?th< $O0?H,B~U_SNN>Bi]u/AqtO2K_QHx|,`N@h<8IX%P;O6-B'O6k%FNFK502rS'r $O:y&GR@pi/NNx>|xQ96EOD[obP9|3tN^9Q~=[ud=OT6<'noN*INtv1l*lVbFOlF,6A%2}2O0oY]v7tTF $P0O,urQO(UO6_[1?,qkPP6O>JnmMps%n>P>~7H.r5voOJdXlQ6ws1PLND|nsPUyOZjh34Lg*P $PpCVH57BX%O12ENBYu^pQ0t@`I`7LbP0eX,]7x~BQ6,(A\ao{jP@p+rp;1/pQ<*?n]Y]S.PT8xJY5c%v $QB`EL0(R0o3yzm/\gQB'Epp+f,4R2ypJFnQJ2eVI\{kBR8Fu)i+xhGQN(;0dJc~ $Rt52W8I.yHQlda1^r4pSRxNR_6ctr~QlFUnCyJQgR|Dovl[D}nQjP_X?N<'7R~}EI^n^GuQh\Gv(}uS^ $S.^1h^X]CFQfs'Yr^}ZkS.h8iE3]s&Qdq3w@'[=4S.q;hj=++'Qd9D~z}l6mS.x4SE7~QfQbMHB\?g\& $S.~b31(WV|Q`vs(8J45~ $MD>w+wdY\tLzlq>(uE)NMF<]GNo10eL~yCL/roY6MLP]6X)Up9M06@@xMDu3MX{emeZR.JM2X8K>S=Nd $MpmU~MLDRWM8'l4F|OACN0v.lHIAz3M@E&J=wW%1N8cM_^Yp-QMN|DVx>ti'NFPTL7Q]nHMjGu9wELRU $N^ZA6JJN?4N0jvgS_kr3O.~9J7.e(7N8h'~_>OFDO6_J1f;^&1NF9A=/c%y}OB^3YC[bYWNZKgLBxNKI $OlR4;&sZ+-N@Fr*kCRLtP0skpLK3s?OJKH(g{.DOx{5Ts^-%B $PHhU*=^kS>P2e.XWUzPhPV~nDhSFDaP8OGin._FfPl(YN/s3I4P@Y;u,PO[8Q.ouJVd9`5PH{}=R5VGg $Q2Z,SiV.6yPV:Mh^2-E{Q6mO_=1r5EPd1-?AQ]/TQDQ.|Y)P~&C&BQ2'G+E>-J4QTdX(u&xe\Q4=354J[HGQ`-f/EQjy,Q6^YlMKw\sQl,-&J':r=Q8~ZTIIJ8W $Qx[ueBTv $R8W:EQPD*\co}TcR>WyJDLaT|QT-'Nb{XoERB/w-vZaroQVw04kpwOI $RD^s*LJb\&QZY4vjaAM%RH-m(2aAXVQ\j}WES>81RJOA2&c[>MQ^OCh4,J<+RP'B|H>l{qQ`Xk2zZ;qQbWifsMV{V $RbpCzfNNbdQb'vEIgo4uRf@?`2+e2'Q`n\rg5(jfRhV]{:>d.DQ`4_>n.<_zRji&5Gf6SZQ^mUiK0.Po $RlliU|k>ZrQ^L/6G%DNo $KjC3zAF&thK>[,yABx(L.ZUV:zlB@KBdzNG8UE-L2OtoTD'S%KLd_:76YWX $L:6-1@ux+S9N^wg~HT:CGO:xVp^E>7Ve6(R2@Sp|d]s|QBF=n9}gY;R4MW~rz_r@QDnEk[m0Nd $R6V\V|Q\k6QH>^/.MWvwR8^@.NQAr]QJtllQy453R:d|/57nBKQNKDZU0zY~R>gtx{7I`oQREr,Bxr^' $RB]D?T,\H0QT]?d8wxhIRFL+nn{,DsQX)u)'-_%/RJ,|1raG.KQXQoXq0&H)RLb7Z_*K,iQX~-b7Ny.a $RP3Uc^9DiCQZFcTS6l}.RRSiWA>?MBQZ8KP?_D-eRTrN=>kA(+QZKr17i%xn>^.qKCpN6-b*CDCUDNP^27K57NkN@?q8A*zdoNnQlzX`<%|NR8_JsNFneO2)a_C+C;rNj_^M,?~_x $O8w`4=2GY(O0O\M=We&YODtdh;B'k4}&KIMeOVpf+:4BHFO>=iW''U1]Or;>Jxx}QhOJ/>x%|Aww $P0gq_0z~%kOXf}s)/>UNP6N')]J)vUOn>e4+db.8P>7IN%]CHSP0(xd{,_c4ORP2nNs_8\PF $PTn>]^_=}SP8/^j[9;eSPfB2]Gi-C;P>&k'\wz`7Pz}oi;nP^}PDOkzQQ*.oQ6.*=l>v~yP\C`b^uNJX $Q@bvmSAH6(P|NJT[9ZfQQNyZi4wGTsQ29bC%|@Q<%/5NhvsaR0Q(>xzH9?Q>114RVnR4vPRP>/%vQF/8P8@kz&3(9ZQNaA8s{+QRg\lK|a7{RH@PKW~4_kQRqH{su|<2RJQynyou\HQTD;Z-o1Zx $RLX7bcS7b-QTT=RFsd:n $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $L2~kHP1y3`KHb85cMp3TL>wlmRfgNOL2h%3(1oWDLRN7*>qX0jLBxFZO-}v3LxY*7+JFbZL`rJfzHwWJ $M4fm0NM?7QM0r0*S&]Z2MBEZ>'[6&mM:O>9y0b.|MZ`^,2q2c\NBaW^&F]|SN~AN,WtN2dNTL8e04._s $O4;f4p{JVcNn/I,|rvYtO<\Ua|%P{1O0RR\ZgL-XOJ7Zqn5DwAO6kF|.EBO>*dA]je(m $Ox_iA2WpvUOHHiR+mL}dP2.ZF9vMEwOVc}sJ47yHP6i((>Y<3`Oj>5(b_oI=PLlDLGlkzdP4>Fg3t+\u $PthPo}]pbFP@vwg=w27wQ433(Ahr3zPTx=,nX,OSQ<_?fvFC-nPp,[Y1PaaNQH>SA%OqgfQ065&-'IYN $QT]|h}&6RYQ2\2qd%^Q)Qb5Ge%ppbUQ4lt)mAm5JQnY:ql^HN]Q6hYLbnP->R.ui=&NeOuQ:d+DczS;| $R232kZhE-:Q@.a*QB^0?JTvgER6S/?Kj7R_QDm-bRoXquR8azN]CfYWQHD(V.,s1? $R:hC(WE?/8QJ-UV*r_*oRvWRyn>4MQLj=D~,xNcR@tTMqh+o2QN)J0)Pt.1 $RB{tJCG%.)QNfbikSpqe $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%KJ_C*3nF5SKDsy6yOW9[ $Kr+p^;_na8Kh`kF5`k9BL4l|J9}(diL2WIoccyanLDxltL*[2)L>v~8}JAKgLf'Lc_<:NFLT}-;*{YaU $M2C4N,=[poL~[3QapdIeM>7^ba7A,PM4}7Eb5IeyMRs~FN1>U1M@y=u32Yk=Mx~n:vg.hcMV+<~tt@NE $N4Q5p@{llvMv5L\]U48`N@)gmQ?O;fN2\P;[E5t%b\eR0|s\q37[6Q>;j1bZ)tiR2xW69/%E7Q@BnA*_('4 $R4wGYkoxY`QBo7>N3Zo2R6nF<-5cb=QDX{}d_*%xR8hmi3ZVw6QFG?\qHo)XR:d|C^VQ3;QHGz_r:E-V $R4TD_DTIXM2Jy,48G]BMRL=zSL^NyM<4ux9j>MKMv7DYBtk=vMJ{CYuj^n, $N4'j4dhS=:Md^'RZZ5'\N>%)~0Noo5N05Y95h.c_NL}1`/L:]MN6AN:HFITEO2P=r(1;GsNX5^|0S)5s $OJHnsgfTRoO2pv{>udS,R6jkR4P-`|%]rLQ@\:+DAJ-6R6A}+U*,a=QBK{+ub}@v $R884+0A'FtQDQ;gC]fIZ $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $L._6I@o|Dgka@eM0OLY5QX8}MR~-|mu1e=M8I7FD*??eN6uE@_'ohZMhbr*:Q;5< $N`u<5?4U{[N:o7ikGL^uO6p',cxr@_NdAUWH\y'5OT45[O+:kdO63sJ5?@>bP0LY+cf^X $QDYYJ;uU{tPzj.z]{?VcQR3.m\U`^9Q07/pWz_\JQ`)zTeQ'XFQ2Uxh,kaj)QnUWj:G0%dQ67T%3>;|S $Q|NiT?}KV)Q8.V;/YeE[R0*w~*G-.GQ:)qG54*%XR0q]k}=|8|Q+@@8h}E2 $R4C_[sPhQRQ>v'H,l=+` $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $L0w(,VaE(HKXT/fGNz50Lvc,?0?\\P.Xm,I3*{GPtZjNEtQ}NP@eSV5N~R, $Q6a_Olv{ObP\ALq;j/`AQBBp1PgTD3Pr;r3[R.TZII:'XkQ6{Y2/krAYR0c{qRQ{,Kh8_]HP^K` $M.lkV-}UN2mrkTG|K_ $O26+lM2|lENL}UPa_*;&ODj>5r=JSkO0>P)R/3SVOnHbhrBo7jO>X]{jcXWnPBa&mHGiQVP075`mfCq* $Px]D[ku9i\PB:c|yQxytQ6V]5@GZR]PZ3va6W`sBQ@O;CYsP-gPjX:I0iJeoQJ;DL>82z{PviTu0-Cqo $QToE`4Oxq&Q0?4n3\RUQlEIeJ+iS~Q48GwZbF1RQx`+NiG~:JQ6/Fg6ZPBVunR*LRwOSWF&RJL0n98U8\zaM8MVG\d,i/LVNj\,H/NcMjO,:ubr/pM8Cd2;b9XD $N<9lc(>zUAMf9LTMpvjqNfok/@Oq2@N:%2G'0@>_O6b+PDQ]E5N\w.~A8f8*P.X/jSlf}^ODm|YhM^Ee $PFrH/1052vx&~\)L@PdRAvb,wRB $QH3yW91w[]Pp(aLvE@)YQRM;`oN\llQ.trr3W-muQ^1-xHRDuUQ2(]JS/6vOQh3ELIbB[yQ2Vpr_kdAN $QtIVC@RmOaQ4N,WhzN&Q $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%L<6M]vqe^UKR{%*@Gt}yM.cfmu29sWL:@hy(TEt( $MHRTOinL}gLxyFCI)T4WN0qW(UmkT|MDDH})y.[@NH_BQl0KodN0(&;.p*(lJzR[CNr|e2?}Ijr $P0i+:TF.SKOLlY+]vYvoPLZ[5%7Mu:P2eQaE9@_9Q.nFK*^Em3PDF\Zp}TC81XP^xH;yMq>QQFTA}5p}lEPj9UI/L[]&QPbjDx_+{rQ.YGzjSV%KQ\-7q%n-f*Q0YmIr|uiA $Qduf,+Yn|)Q2'BS;)kjR $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%L0Y]U5KC6,K6qC}XB@R/ $LTl18Qv^'LK|2ItmwPd3M8*d\5[2RELJuB>CuRbOXfUktPZihsVbrb4QF=-it7oRFPf1U=S,~Z>QPM7H{}HdnP|QdqrSrN% $QZb?oBlB?,Q08=v;B}`[ $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%L>@mxv5jZ}KHo4Kq2[PvM.j=~[LdWQL6P},53`XlN0Bt'R?M:SM>sfjjixuq $NxRP8^6_W{N>)gx[a+q]OT+c`2e6<-O4Cz}rt21_P8=eq4lwNeOb0,kGLq{.P\4Y[@FtV6P6N306|bt; $Q0oTp-CJ'\PFCvdASfRkQ8K3E~O=t{PRD:If=N^^Q>\)1q/vN?PV{lF(XSF3QFF6g|Mfh?Pb_0MdV[CA $QPbf8;,i\[Pxef-Y^[S4 $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%L2Kvi%BW@qK4-cuKn-`+M80CC.{xBmLFtRip0:'w $N6zebULr;}MR3V>_BBrtO2<{s\v[]rNJ1;IeA7dsOdq.'^*yRRO8p%fW_0HwPwXEC%.(aPTQu.1Q~7F $QFnHoPu0L_P`^l5['Q59 $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%L@iP?=2(KHKFODx/jQ9K $MFw0||n.SxLh*oe'ET+2NBk?5V@ngtMp1xh`i0VbO8Gxbm_LzgNZ_6wwde|SO|oXh9'A*7O>x()p3[G. $PD,iFdc{\XO|RZ\4dxTuPrCRdD[8}xP:;UIiT'7rQ49h]912;jPFyjY_tp*AQ:U.y2-1aWPNTj)_CQ?0 $Q@K@Wwu7qDPRD@=zrDw< $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $L^6p|e\&3]Kr.fx{3WrqMbY)y/OR2kM2<~(Ns|7`NV*R:}GTZBN2(0Q^:yVVO@z[e)33fYNr5lIZE`mo $P2%Gn)y:U?OF`c?JSbJ8PL6r)n4UY)P0/i{_c=5*Q.W*Azd&?}P<.ya9.8jbQ6,=)/N^(:PH+2;8Xk,H $Q<;RjstW.nPL`OXuvHq) $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%M0Z+B7dRliL6MHB)j5M_N0J@I\7?BNMaA,N8Q<.48,eq $ONU9D+Q-8~O0CMA2?FC:P64HJUxsQfOP-HU;U8c%PV@YJ4CBiy0n%txqP<'(l}|L'/OZ9U[H;-h&PbXaFq4ukJP2lw)P8)'A $Q2EnsfdkcYP>^z.O*-kN $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%LL70>7^&j^KPA3s_'Ht{MNVXgYOz|YT1~;{sO8f]L?f.QjPBe\4^L&zwOf*_v57.OU $Pr1FWDBaT^P4b53w+ql< $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Lt2feBpyV.L.}7C)qy=D $Mp4nXpn49DM2SJ;FcZ~lNZe7yI93kHN0FD7HdmPfOBZ=?TYy-@NbhB2%|aYjP2->nf2%C1O>eY9?H{qW $PLKZJ+byLVOrX3.i,U[@ #:label,iph,lmax,iz 2 24 29 $R?34{i|f^XQ5&JujiM54R?CD4BcESXQ5%B*ph8^tR?se^>Tz&mutQR]&\VD*kXIQG%g42uj,~Rcm/9WDV{9QIas50}}J~Rm1;KPVClhQK7fEw,b., $Runk9D1:cIR/6}A|vJWUov*iRS/%I29K{q^R1R8NuOUOpS/=K7&6Sb:R1+UI|9?O;S/V<[}}c~oR/T*TzYMaA $S/o]HrHRMZR/(%Y;O~B(S11K)lz1cgR-R7CLmc_3S1KACxE/X+Qu2[BqO_e]S1e2@`=chuQkkuc1(IX= $S3%/P6[cr%Qc*zr}=9TQS2p=8(3.8{QYv&CeVME=S2VtyKCMiDQS1Dnj5,JUS2=X{9FvfkQKZ2x>7CI2 $S0}lw-<8~QQEAd5`oTGZS0e2L*[6E/Q?D%BX%6LVS0LZg_~k7KQ9aP87;([eS.j4]B9;VyQ-xRl*;VBQ $Rx<:FoW7](P-f>s`\j6uRl/yD%~g1|Pd1=3ip0dNR`@iQ|OS0nQ2+Foc:Yc6RTpZ=P,2_ORUPlzGPR;_QRS|TPan1;Rc?ncVD@c2QRo<@h@@yy $Roc&2L&.%kQRj3T`tl.OR{^3Oq[jo\QRns/z`jXZS-x.JDv[~rQRm7DhJ4d0S/M^u8R2a?QRgJ/TkCs, $S/z'ZuLt58QR|(-b'c@} $QHF{Un,ls:M;@)RraTOAQHEtO]qVTfNe2+DdGU9JQH>pz9wSdEO?zWJvPV&UQH&\jP8f^WOmaE'%0OM; $QFBG/p(8BlP3sG%5@':|QBq3YE`@0*PA}>^+W3|DQ>)6`nLLyIPY&]v|7hhRQ488}|~I7IPw_:)7j/R% $P/KmcQd.VZQ12s(*[grPQ=;6~dOaE{Q5EX``vd)kQ]|WuuP(PeQ9DZMTKflHR/4jPKs8+wQ;P~\][Th4LcRGmoU[Q'}CQm0NeSmN<8RKw@hM=GKPQc{Q)pUbDIRQ*mTjT0FQU5J>/soFjRYT(e}0h+gQM^@Ov6t='R]aFQ9v\L~QGL2:r|fMxRanWN;5+WJQAR1*& $S-fa&e@02mPX8xi,}FThS/7\=d*19>Q0[PCOkD.2S/`L=Da)NNQ67J{n<.g|S1,n={-`[0Q:Q}NY}JvZ $S1Q>IMrBC~Q>[H,?5e:FS1tW+U2+I;QBm%/pKg]rS2r~CnX_hTQF|O,e:s-*S212NKTlNrQN=K=MU[3[ $S0N]WH+5p.QRK`=lVU@XS.p^k;9}SbQTLq[]FNpARzbhGAqW9TQV'o4POas~RpIx=::nLEQVFVY|*0c1 $RfOorxNfCxQVA[oG%qWdR\xpP8CHTiQVAU6&~F~lRTa?,S@\SgQV9F\wY;KgRLa}`M0azXQV*E7-or:t $RF%oHfYH/fQV1'=j`zBQ $R=;&81Z@I=Q4b-@8X1rxR=-3]5BGbYQ4+hmbNUHHR;cW),[K\WQ0X{7`Skm*R;6}Mg(CzYPpzR(LG_j? $R9g8smMi95PPWJZV25:oR9Fjs39z~*P4qcfI(yG&R91F3xJ,]HOmLkxS{v%yR9&-xa\:CEP?m[N?]ZI| $R7}HLUNLL]PS>`zF@/3.R9(O-tk,r\Pe8doL*?*tR96Y3k+Psy4(%qW.FR9R=l&*Tm-P}U`@[Pe`4 $R9E;[t.Z{UQOUWF9%pYDR5af1_BbBnQYV+DF4v:=R3H`@k(\Hm5MUQS>y(_}~OwQeFJ_v;e1FQO+%LXh7V5QW}|6>X|38QIud;So5a( $QOM*b)Wi[aQEjTJ.i_r=QKUb9lcy9PQA[[-lRevFQI+=fIcjgSQ=THuZOfW1QI6C?EW{kZQ9h&GbuAU; $QKB\C?Y||uQ5P|t~}*j%QO{'?oL38jQ1XD(U>KpYQUb3pY{+:qQ-j*^,3_aEQ[sF*:P'trPYsFxb%_J? $QciS\~-*.tP5J{4:8Ne2QkP1|9=oRsP84+%2ZXHmQsV|HyxT>eP\?s1\2QPrR/)c34AURyQ2\YEnpbDC $R1;oZB;IsxQ8bGzg(={^R3W>,r)_)TQ>(oN,z,>_R5v\(eO%,qQB(d=TZapeR99W&s7ya]QDtCD(ijx9 $R;R6flT1fTQHW>VuVrhvR=j,8b,)lYQL6rM5a/8gRA.I}@hGg@QNhqDqyCx=REjM)h`}j[QT7CQV~FVu^y\rROo+Pj9'PZQXo5~Sg^7\RU/XVFNS,PQZL2eWvx\xRY?%NuFb8[QZpqP+7a)J $R]Eg4e9@skQZx{jL'@z'RaBF(;hE*.Q\1jQohsV~Re7cPVo6`UQ\5V[lANTQRg}U8TMF+sQ\@8MmDlwV $Rk__:9/_ciQ\V/HlYl&n $PB]DV}}7,.OX-v20;|qbPD6(tF^vz@OXfx{eGB=pPF{id4JiY[O\f&^`)pjcPN8PiH`NsAOdDYG=eBCy $PXKRZz?WZYOp1.xRSQP^PhD8Z735;mP.YmjYR,j5Q.RSv&ra3QP0r[*,;z>mQ27HS0j|((P4`\8W3ce\ $Q6\iO}l*6XP:-=8)LzwsQ<|(SIoY)wP@5r8Ltnr2QFLgc)t~yEPFw%>hqi:&QR.w?&E^W=PP?}upy.;~ $QhY-]v0;n/PAbE\BQtJJR.x&aImR]VON%~%\\uy`R2NmvK8[1tP`U1)^0qVqR6H?A5M3y\Q0o;Bg]b/* $R:M\rx9Y*gQ8MHG;Ep:FR>fyp@0H3rQ>8kD~pI.ARD;cC6F1d.QD=QjRAAKtRHxSRm3Gx;QH9&fu:iaL $RNdBH)1tF?QL-hsQFH(yRT=YdtaLr~QN/d`KgCjDRX~%Ksrh5gQNm@P2f*OIR^X~L?Sc14QNe;87dwfA $Rd,&X\&WB0QP9+5U{CQ+Rh;:xx`stuQP,sTVV)+BRlON02+*[5^Qh3C98(\udS2iW'9,A-YQjf3s%fSRx $S2w46R5K8_Ql6(b>i6(yS4&FdX<70cQje)Km@8A|S3)BuW3*FYQj=G?)MP[QS3%EmC16qzQhNDe`|z[% $S1|osZ*M_/Qfe~ZY-:y+S1{dTYz'%xQf/<~c-Ld%S1{rt0|,izQdH3YWkh+@S1|00bUv&DQb~*AxKY)V $S1}cvcGTrVQbS_:f?th< $O0?H,B~U^BNN>Bi]u/AqtO2K_QHx|,`N@h<8IX%P;O6-B'O6k%FNFK502rS'r $O:y&GR@pi/NNx>|xQ96EOD[obP9|3tN^9Q~=[ud=OT6<'noN%PNtv1l*lVbFOlF,6A%2vcO0oY]v7tTF $P0O,urQO'LO6_[1?,qkPP6O>JnmMps'1WP>~7H.r5trOJdXlQ6ws1PLND|nsPQ5OZjh34Lg*P $PpCVH57B`RO12ENBYu^pQ0t@`I`7LbP0eX,]7x~BQ6,(A\ao|UP@p+rp;0~/Q<*?n]Y]UgPT8xJY5c%v $QB`EL0(Q2R'RBT;)WQd=KW\_m?6Q6'{n.y=KF $Qt7:XA`V%?Q:+[mn<@(\R.myQhu*E,Q<{~PcWbl5R0o3yzm/\gQB'Epp+f,4R2ypJF~ $Rt52W8I.yHQlda1^r4pSRxNR_6ctr~QlFUnCyJQgR|Dovl[D}nQjP_X?N<'7R~}EI^n^GVQh\Gv(}uS^ $S.^1h^X]CFQfs'Yr^}ZkS.h8iE3]s&Qdq3w@'[=4S.q;hj=++'Qd9D~z}l60S.x4SE7~QfQbMHB\?g\& $S.~b31(WV|Q`vs(8J44? $MD>w+wdY\tLzlq>(uE)NMF<]GNo10eL~yCL/roY6MLP]6X)Up9M06@@xMDu3MX{emeZR.JM2X8K>S=Nd $MpmU~MLDRWM8'l4F|OACN0v.lHIAz3M@E&J=wW%1N8cM_^Yp&\MN|DVx>ti'NFPTL7Q]nWMjGu9wELRU $N^ZA6JJN?4N0jvgS_kr3O.~9J7.d~qN8h'~_>OFDO6_J1f;]}CNF9A=/c%y}OB^3YC[bYWNZKgLBxNKI $OlR4;&sZ0TN@Fr*kCRLtP0skpLK3tWOJKH(g{.DOx{5Ts^-%B $PHhU*=^kS>P2e.XWUzPhPV~nDhSFGWP8OGin._FfPl(YN/s3O|P@Y;u,PO[8Q.ouJVd9`.PH{}=R5VGg $Q2Z,SiV.7oPV:Mh^2-E{Q6mO_=1r7XPd1-?AQ]/TQDQ.|Y)P~&C&BQ2'G+E>-J4QTdX(u&xn>Q4=354J[G9Q`-f/EQjy,Q6^YlMKw\sQl,-&J':r=Q8~ZTIIJ8W $Qx[ueBRr $R8W:EQPD*\co}TcR>WyJDLaU2QT-'Nb{XmARB/w-vZaroQVw04kpwPK $RD^s*LJb[RQZY4vjaAM%RH-m(2aAXVQ\j}WES>81RJOA2&c[>MQ^OCh4,J<+RP'B|H>l{qQ`Xk2zZ;qQbWifsMV{V $RbpCzfNNbdQb'vEIgo4uRf@?`2+e2'Q`n\rg5(jfRhV]{:>d.DQ`4_>n.<_zRji&5Gf6T=Q^mUiK0.N/ $RlliU|k>ZrQ^L/6G%DNo $KjC3zAF&thK>[,yABx(L.ZUV:zlB@KBdzNG8UE-L2OtoTD'S%KLd_:76YWX $L:6-1@ux+WLN^wg~HT:CGO:xVp^E>7Ve6(R2@Sp|d]sqQBF=n9}gY;R4MW~rz_p_QDnEk[m0Mb $R6V\V|Q\jrQH>^/.MWuuR8^@.NQAr]QJtllQy453R:d|/57nBbQNKDZU0z\(R>gtx{7I`oQREr,Bxr^' $RB]D?T,\H0QT]?d8wxhIRFL+nn{,DsQX)u)'-_%/RJ,|1raG.KQXQoXq0&H)RLb7Z_*K+gQX~-b7Ny-o $RP3Uc^9DiCQZFcTS6l}.RRSiWA>?MBQZ8KP?_D-eRTrN=>kA'fQZKr17i%tDRX'p-NfuoGQZ:io5{,aJ $RZ7<8NTlm{QZ2BI0v-jp $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%KFsAn&HN_ZK00mc6PkbK $Kp[[V0w5OVK:}JyiiJf[L6Ns4/+KAXKTr*PeSVLn>^.qKD5N6-b*CDCUDNP^27K57NkN@?q8A*zdoNnQlzX`4}&KIMeOVpf+:4BHUO>=iW''U1]Or;>Jxx}c,OJ/>x%|Aww $P0gq_0z~%kOXf}s)/>UNP6N')]J)vUOn>e4+db.8P>7IN%]CN|P0(xd{,_c4^]P2nNs_8\PF $PTn>]^_>4qP8/^j[9;eSPfB2]Gi-W@P>&k'\wz`7Pz}oi;nP^_PDOkzQQ*.oQ6.*=l>w'`P\C`b^uNJX $Q@bvmSAH<+P|NJT[9ZOfQNyZi4wGTsQ29bC%|@Q<%/5NhvsaR0Q(>xzH9JQ>114RXrR4vPRP>/%vQF/8P8@kz&3(9ZQNaA8s{+QRg\lK|a7{RH@PKW~4_kQRqH{su|<2RJQynyou\HQTD;Z-o1Zx $RLX7bcS7b-QTT=RFsd:n $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $L2~kHP1y9AKHb85cMp3TL>wlmRfgM{L2h%3(1oWDLRN7*>qXIJLBxFZO-}v3LxY*7+JG5/L`rJfzHwWJ $M4fm0NM?7QM0r0*S&]Z2MBEZ>'[67tM:O>9y0b.|MZ`^,2q2ckF|.EBO>*dA]je(m $Ox_iA2Wq3_OHHiR+mL}dP2.ZF9vMEwOVc}sJ47yHP6i((>Y<3`Oj>5(b_oI=PLlDLGll)tP4>Fg3t+\u $PthPo}]pbFP@vwg=w27wQ433(Ahr3zPTx=,nX,OSQ<_?fvFC-nPp,[Y1PaaNQH>SA%OqmBQ065&-'IYN $QT]|h}&6RYQ2\2qd%^NhQb5Ge%ppbUQ4lt)mAm5JQnY:ql^HN]Q6hYLbnP->R.ui=&NeOuQ:d+DczS;| $R232kZhE-:Q@.a`QB^0?JTvfCR6S/?Kj7R_QDm-bRoXt'R8azN]CfX]QHD(V.,s0> $R:hC(WE?/8QJ-UV*r_*oRvWRyn>4]QLj=D~,xK]R@tTMqh+o2QN)J0)Pt.1 $RB{tJCG%.)QNfbikSpoa $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%KJ_C*3nFN2KDsy6yOW9[ $Kr+p^;_na8Kh`kF5`k9BL4l|J9}(diL2WIoccyanLDxltL*[2)L>v~8}JAKgLf'Lc_<:~|LT}-;*{YaU $M2C4N,=[mDL~[3QapdIeM>7^ba7A,PM4}7Eb5IeyMRs~FN1>xPM@y=u32Yk=Mx~n:vg/>=MV+<~tt@NE $N4Q5p@{lm6Mv5L\]U48`N@)gmQ?O;fN2\P;[E5t%b\eR0|s\q37[6Q>;j1bZ)tiR2xW69/%CRQ@BnA*_('4 $R4wGYkoxY`QBo7>N3Zo2R6nF<-5cb=QDX{}d_*%xR8hmi3ZVw6QFG?\qHo'TR:d|C^VQ3;QHGz_r:E+C $R4TD_DT]kM2Jy,48G]BMRL=zSL^xIM<4ux9j>MKMv7DYBtkaYMJ{CYuj^n, $N4'j4dhS=:Md^'RZZ5'\N>%)~0NpudS,R6jkR4P-`|%]rLQ@\:+DAJ-6R6A}+U*,a=QBK{+ub}@v $R884+0A'GOQDQ;gC]fHP $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $L._6I@o|Dgkaq9M0OLY5QX8}MR~-|mu2nbM8I7FD*??eN6uE@_'ohZMhbr*:Q;5< $N`u<5?4U{[N:o7ikGL^uO6p',cxr@_NdAUWH\y'5OT45[O+;EdO63sJ5?@>bP0LY+cf;zbOL6)`FrKhO $PjN $QDYYJ;uU{tPzj.z]{?VcQR3.m\U`^9Q07/pWz_\JQ`)zTeQ'XFQ2Uxh,kak2QnUWj:G0%dQ67T%3>;zH $Q|NiT?}KUdQ8.V;/YeE[R0*w~*G-.GQ:)qG54*%XR0q]k}=|8|Q+@@8h}E2 $R4C_[sPhQRQ>v'H,l=+` $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $L0w(,VaE(HKXT/fGNz50LNv9&a}gTc} $O`*:.vc,?0?\sP.Xm,I3+-=PtZjNEtQ}NP@eSV5N~R, $Q6a_Olv{ObP\ALq;j/`AQBBp1PgTD3Pr;r3[R.TZII:'XkQ6{Y2/kr>5R0c{qRQ{RKh8_]HP^K` $M.lkV-}<^qLB[0=i\R@0MLKlCKt;mvM0msS2*PziN2x@t_{|6OMNy(dzpC2*NPthd8IoLUN2mrkTG|K_ $O26+lM2|l.NL}UPa_*;&ODj>5r=K-SO0>P)R/3SVOnHbhrBo8lO>X]{jcXWnPBa&mHGiQVP075`mfCq* $Px]D[ku9i\PB:c|yQxytQ6V]5@GZR]PZ3va6W`sBQ@O;CYsP-`PjX:I0iJeoQJ;DL>82z{PviTu0-Cqo $QToE`4Oxq&Q0?4n3\RUQlEIeJ+iS~Q48GwZbF1RQx`+NiG~:JQ6/Fg6ZPBVunR*LRwOSWF&RJL0n98U8\zaM8MVG\d-K&LVNj\,H/NcMjO,:ubr29M8Cd2;b9XD $N<9lc(>{8IMf9LTMpvjqNfok/@Oq2_N:%2G'0@>_O6b+PDQ]ESN\w.~A8f8*P.X/jSlf}bODm|YhM^Ee $PFrH/1052vx&~\)NSPdRAvb,wRB $QH3yW91w[]Pp(aLvE@)YQRM;`oN\llQ.trr3W-muQ^1-xHRDzOQ2(]JS/6s'Qh3ELIbB[yQ2Vpr_kdAN $QtIVC@RmOaQ4N,WhzN%K $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%L<6M]vqfXHKR{%*@Gt}yM.cfmu2:%RL:@hy(TEt( $MHRTOinL|uLxyFCI)T4WN0qW(UmkttMDDH})y.[@NH_BQl0KpGN0(&;.p*(lJzSO3Nr|e2?}Ijr $P0i+:TF.SKOLlY+]vYvoPLZ[5%7Mu:P2eQaE9@vxQ.nFK*^Em3PDF\Zp}TC81XP^xH;yMq>QQFTA}5p}lEPj9UI/L[]&QPbjDx_+{rQ.YGzjSU}-Q\-7q%n-hLQ0YmIr|uh7 $Qduf,+Yn|)Q2'BS;)kjR $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%L0Y]U5KCaBK6qC}XB@R/ $LTl18Qv`~uK|2ItmwPd3M8*d\5[2RELJuB>CuRbOXfUktPZihsVbrb4QF=-it7oZ6Pf1U=S,~7>QPM7H{}He3P|QdqrSr7: $QZb?oBlB=fQ08=v;B}`[ $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%L>@mxv5jZ8KHo4Kq2[PvM.j=~[LdWdL6P},53`XlN0Bt'R?M:ZM>sfjjixuq $NxRP8^6_W{N>)gx[a+q]OT+c`2e6<-O4Cz}rt21_P8=eq4lwNmOb0,kGLt[CP\4Y[@Fu~TP6N306|bhE $Q0oTp-CJ'\PFCvdASfRkQ8K3E~O=t{PRD:If=N^^Q>\)1q/vN?PV{lF(XSF3QFF6g|Mfh?Pb_0MdV[,7 $QPbf8;,i\[Pxef-Y^[G> $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%L2Kvi%BWAXK4-cuKn-`+M80CC.{xCILFtRip0:'w $N6zebULr;}MR3V>_BBrtO2<{s\v[]rNJ1;IeA7dsOdq.'^*yT6O8p%fW_1f>PwXEC%.(aPTQu.1Q~7F $QFnHoPu0L_P`^l5['Q59 $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%L@iP?=2(L,KFODx/jQ9K $MFw0||n.SxLh*oe'ET+2NBk?5V@p(&Mp1xh`i0VbO8Gxbm_L{;NZ_6wwde|SO|oXh9'A)TO>x()p3Z)n $PD,iFdc{\XO|RZ\4dxTuPrCRdD[8}xP:;UIiT'7rQ49h]9126(PFyjY_toUJQ:U.y2-1_LPNTj)_CQ?0 $Q@K@Wwu7qDPRD@=zrDw< $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $L^6p|e\&3]Kr.fx{3WrqMbY)y/OR2kM2<~(Ns|7`NV*R:}GT\6N2(0Q^:yVVO@z[e)35iCNr5lIZE`mo $P2%Gn)y:U?OF`c?JSbJ8PL6r)n4UY)P0/i{_c=5*Q.W*Azd&?}P<.ya9.8G,Q6,=)/N^(BPH+2;8Xjc) $Q<;RjstW.~PL`OXuvHq) $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%M0Z+B7dQbYL6MHB)j5M_N0J@I\7?BtMc>1N8Q<.48,eq $ONU9D+Q-8~O0CMA2?FC:P64HJUxsQfOP-HU;U8c%PV@YJ4CBhhP0yY/0Qdl(Q0Hfk3LFy[Py0n%txqP<'(l}|L&rOZ9U[H;+-kPbXaFq4ujvP2lw)P8(]m $Q2EnsfdkcYP>^z.O*-Gz $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%LL70>7^&laKPA3s_'Ht{MNVXgYOz|YT1~;zqO8f]L?f-4HPBe\4^L&zoOf*_v57-2; $Pr1FWDBaT^P4b53w+q`J $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%% $Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Q%%%%%%%%%Lt2feBq)*TL.}7C)qy=D $Mp4nXpn49DM2SJ;FcZ~lNZe7yI93kHN0FD7HdmPfOBZ=?TYy,lNbhB2%|TAUP2->nf2%C%O>eY9?HzT6 $PLKZJ+byLFOrX3.i,R{* ifeffit-1.2.11d/src/feff6/TEST/chi.cu0000644000175000017500000005651410771740457016035 0ustar segresegre copper Feff 6.01l potph 4.12 Abs Z=29 Rmt= 1.291 Rnm= 1.427 K shell Pot 1 Z=29 Rmt= 1.275 Rnm= 1.395 Gam_ch=1.761E+00 H-L exch Mu=-5.513E+00 kf=1.798E+00 Vint=-1.784E+01 Rs_int= 2.017 S02 1.000 Feff 6.01l ff2chi 2.01 Curved wave amplitude ratio filter 4.000% file sig2 cw amp ratio deg nlegs r effective feff0001.dat 0.00000 100.00 12.00 2 2.5527 feff0002.dat 0.00000 22.98 6.00 2 3.6100 feff0003.dat 0.00000 10.59 48.00 3 3.8290 feff0004.dat 0.00000 8.65 48.00 3 4.3577 feff0005.dat 0.00000 55.41 24.00 2 4.4213 feff0006.dat 0.00000 10.63 48.00 3 4.7633 feff0007.dat 0.00000 21.81 96.00 3 4.7633 feff0008.dat 0.00000 18.94 12.00 2 5.1053 feff0009.dat 0.00000 8.46 12.00 3 5.1053 feff0010.dat 0.00000 43.71 24.00 3 5.1053 feff0011.dat 0.00000 8.21 12.00 4 5.1053 feff0014.dat 0.00000 32.80 12.00 4 5.1053 feff0018.dat 0.00000 4.14 48.00 3 5.2920 feff0019.dat 0.00000 4.09 48.00 3 5.2920 14/ 16 paths used ------------------------------------------------------------------------------- k chi mag phase @# 0.0000 -2.207770E-01 2.450757E-01 -2.019864E+00 0.0500 -2.258729E-01 2.488592E-01 -2.003982E+00 0.1000 -2.309626E-01 2.525630E-01 -1.987383E+00 0.1500 -2.360314E-01 2.561852E-01 -1.970102E+00 0.2000 -2.410645E-01 2.597244E-01 -1.952168E+00 0.2500 -2.491587E-01 2.662735E-01 -1.931285E+00 0.3000 -2.575004E-01 2.727896E-01 -1.907187E+00 0.3500 -2.659530E-01 2.792048E-01 -1.880129E+00 0.4000 -2.743774E-01 2.854596E-01 -1.850353E+00 0.4500 -2.863232E-01 2.942105E-01 -1.802869E+00 0.5000 -2.976766E-01 3.025414E-01 -1.750368E+00 0.5500 -3.079765E-01 3.103069E-01 -1.693430E+00 0.6000 -3.167811E-01 3.173866E-01 -1.632575E+00 0.6500 -3.254519E-01 3.254964E-01 -1.554251E+00 0.7000 -3.309300E-01 3.325814E-01 -1.471100E+00 0.7500 -3.325812E-01 3.384826E-01 -1.383789E+00 0.8000 -3.299136E-01 3.430758E-01 -1.292900E+00 0.8500 -3.225339E-01 3.480200E-01 -1.185716E+00 0.9000 -3.090098E-01 3.513522E-01 -1.074783E+00 0.9500 -2.892943E-01 3.529571E-01 -9.607652E-01 1.0000 -2.636792E-01 3.527612E-01 -8.442489E-01 1.0500 -2.304372E-01 3.526909E-01 -7.120257E-01 1.1000 -1.912904E-01 3.504754E-01 -5.773469E-01 1.1500 -1.477663E-01 3.461270E-01 -4.410770E-01 1.2000 -1.016781E-01 3.397273E-01 -3.039520E-01 1.2500 -5.029632E-02 3.335893E-01 -1.513504E-01 1.3000 7.364781E-04 3.251437E-01 2.265087E-03 1.3500 4.882016E-02 3.144663E-01 1.558781E-01 1.4000 9.157820E-02 3.017034E-01 3.084028E-01 1.4500 1.320764E-01 2.886741E-01 4.752127E-01 1.5000 1.634598E-01 2.736403E-01 6.401963E-01 1.5500 1.845640E-01 2.568589E-01 8.017039E-01 1.6000 1.951973E-01 2.386614E-01 9.577229E-01 1.6500 1.988311E-01 2.205626E-01 1.123159E+00 1.7000 1.931948E-01 2.016483E-01 1.280216E+00 1.7500 1.804848E-01 1.824130E-01 1.425266E+00 1.8000 1.634549E-01 1.634790E-01 1.553654E+00 1.8500 1.451407E-01 1.459225E-01 1.674359E+00 1.9000 1.278356E-01 1.303759E-01 1.768521E+00 1.9500 1.138611E-01 1.178914E-01 1.833030E+00 2.0000 1.045796E-01 1.094835E-01 1.871227E+00 2.0500 1.002614E-01 1.062653E-01 1.908550E+00 2.1000 1.000176E-01 1.078986E-01 1.955368E+00 2.1500 1.015764E-01 1.133182E-01 2.030054E+00 2.2000 1.019518E-01 1.210344E-01 2.139987E+00 2.2500 9.594850E-02 1.284780E-01 2.298342E+00 2.3000 8.103157E-02 1.344841E-01 2.494917E+00 2.3500 5.612489E-02 1.376861E-01 2.721736E+00 2.4000 2.301811E-02 1.372029E-01 2.973029E+00 2.4500 -7.015291E-03 1.382569E-01 3.192356E+00 2.5000 -3.790084E-02 1.375336E-01 3.420781E+00 2.5500 -6.651878E-02 1.349236E-01 3.657140E+00 2.6000 -8.973660E-02 1.303787E-01 3.900703E+00 2.6500 -1.081091E-01 1.273685E-01 4.155286E+00 2.7000 -1.177661E-01 1.231622E-01 4.415281E+00 2.7500 -1.177277E-01 1.177868E-01 4.680695E+00 2.8000 -1.081191E-01 1.112935E-01 4.951804E+00 2.8500 -9.212418E-02 1.074745E-01 5.253431E+00 2.9000 -6.818963E-02 1.030083E-01 5.559725E+00 2.9500 -3.923388E-02 9.794417E-02 5.871042E+00 3.0000 -8.781614E-03 9.234457E-02 6.187945E+00 3.0500 2.226552E-02 9.028096E-02 6.532381E+00 3.1000 4.922092E-02 8.793818E-02 6.877236E+00 3.1500 6.886895E-02 8.532054E-02 7.222543E+00 3.2000 7.909592E-02 8.243622E-02 7.568337E+00 3.2500 8.355749E-02 8.370352E-02 7.913059E+00 3.3000 7.792778E-02 8.457277E-02 8.253036E+00 3.3500 6.310586E-02 8.504332E-02 8.588664E+00 3.4000 4.114543E-02 8.511824E-02 8.920253E+00 3.4500 1.629589E-02 8.669043E-02 9.235675E+00 3.5000 -1.028352E-02 8.739294E-02 9.542721E+00 3.5500 -3.537968E-02 8.741142E-02 9.841483E+00 3.6000 -5.649588E-02 8.689316E-02 1.013259E+01 3.6500 -7.216545E-02 8.626848E-02 1.041568E+01 3.7000 -8.051114E-02 8.439841E-02 1.069089E+01 3.7500 -8.142164E-02 8.149050E-02 1.095446E+01 3.8000 -7.622737E-02 7.789485E-02 1.120286E+01 3.8500 -6.642710E-02 7.380926E-02 1.144664E+01 3.9000 -5.370447E-02 6.901848E-02 1.167471E+01 3.9500 -4.035708E-02 6.383076E-02 1.188192E+01 4.0000 -2.833304E-02 5.866135E-02 1.206230E+01 4.0500 -1.775006E-02 5.332308E-02 1.222702E+01 4.1000 -1.016460E-02 4.864892E-02 1.235588E+01 4.1500 -5.421484E-03 4.526838E-02 1.244632E+01 4.2000 -2.618082E-03 4.381327E-02 1.250658E+01 4.2500 -4.189084E-04 4.357437E-02 1.255676E+01 4.3000 2.067053E-03 4.556663E-02 1.261175E+01 4.3500 6.218351E-03 4.953948E-02 1.269223E+01 4.4000 1.308079E-02 5.499213E-02 1.280654E+01 4.4500 2.253065E-02 6.066597E-02 1.294688E+01 4.5000 3.476022E-02 6.698535E-02 1.311196E+01 4.5500 4.911887E-02 7.362454E-02 1.329675E+01 4.6000 6.440400E-02 8.033536E-02 1.349649E+01 4.6500 7.867164E-02 8.664850E-02 1.370471E+01 4.7000 9.068355E-02 9.283196E-02 1.392161E+01 4.7500 9.877800E-02 9.878108E-02 1.414507E+01 4.8000 1.015128E-01 1.044140E-01 1.437345E+01 4.8500 9.769238E-02 1.093413E-01 1.460297E+01 4.9000 8.718038E-02 1.138675E-01 1.483594E+01 4.9500 7.008153E-02 1.179307E-01 1.507162E+01 5.0000 4.715020E-02 1.214720E-01 1.530933E+01 5.0500 1.983497E-02 1.244491E-01 1.554790E+01 5.1000 -1.012579E-02 1.268059E-01 1.578790E+01 5.1500 -4.050560E-02 1.284791E-01 1.602870E+01 5.2000 -6.892287E-02 1.294121E-01 1.626962E+01 5.2500 -9.340846E-02 1.295511E-01 1.651323E+01 5.3000 -1.116237E-01 1.288474E-01 1.675576E+01 5.3500 -1.222252E-01 1.272779E-01 1.699605E+01 5.4000 -1.247179E-01 1.248504E-01 1.723269E+01 5.4500 -1.191624E-01 1.212198E-01 1.746326E+01 5.5000 -1.073310E-01 1.169050E-01 1.768629E+01 5.5500 -9.119791E-02 1.120900E-01 1.789922E+01 5.6000 -7.299829E-02 1.070485E-01 1.809917E+01 5.6500 -5.453403E-02 1.021334E-01 1.828629E+01 5.7000 -3.760656E-02 9.787377E-02 1.845518E+01 5.7500 -2.292556E-02 9.488518E-02 1.860553E+01 5.8000 -1.019106E-02 9.381987E-02 1.874072E+01 5.8500 1.695462E-03 9.505466E-02 1.886739E+01 5.9000 1.462198E-02 9.911575E-02 1.899762E+01 5.9500 3.053609E-02 1.059489E-01 1.914192E+01 6.0000 5.086489E-02 1.151983E-01 1.930687E+01 6.0500 7.601822E-02 1.262165E-01 1.949592E+01 6.1000 1.047001E-01 1.384729E-01 1.970690E+01 6.1500 1.340472E-01 1.514008E-01 1.993687E+01 6.2000 1.598716E-01 1.644977E-01 2.018263E+01 6.2500 1.772859E-01 1.773249E-01 2.044132E+01 6.3000 1.815754E-01 1.894984E-01 2.071054E+01 6.3500 1.691672E-01 2.006811E-01 2.098838E+01 6.4000 1.385074E-01 2.105761E-01 2.127332E+01 6.4500 9.066175E-02 2.189229E-01 2.156417E+01 6.5000 2.948907E-02 2.254950E-01 2.186000E+01 6.5500 -3.922001E-02 2.294222E-01 2.216294E+01 6.6000 -1.063900E-01 2.311509E-01 2.246944E+01 6.6500 -1.634517E-01 2.305866E-01 2.277902E+01 6.7000 -2.029203E-01 2.276716E-01 2.309132E+01 6.7500 -2.196888E-01 2.223848E-01 2.340608E+01 6.8000 -2.119589E-01 2.147411E-01 2.372309E+01 6.8500 -1.816191E-01 2.047914E-01 2.404226E+01 6.9000 -1.339781E-01 1.926212E-01 2.436355E+01 6.9500 -7.688291E-02 1.783502E-01 2.468705E+01 7.0000 -1.936700E-02 1.621303E-01 2.501300E+01 7.0500 2.996572E-02 1.436992E-01 2.534281E+01 7.1000 6.400595E-02 1.238377E-01 2.567591E+01 7.1500 7.931163E-02 1.028041E-01 2.601391E+01 7.2000 7.616470E-02 8.088088E-02 2.636036E+01 7.2500 5.837373E-02 5.838656E-02 2.672450E+01 7.3000 3.240674E-02 3.574462E-02 2.713913E+01 7.3500 6.026254E-03 1.425344E-02 2.783781E+01 7.4000 -1.330478E-02 1.367187E-02 3.007739E+01 7.4500 -1.993364E-02 3.431215E-02 3.079603E+01 7.5000 -1.114994E-02 5.543684E-02 3.121342E+01 7.5500 1.255890E-02 7.538744E-02 3.158330E+01 7.6000 4.654794E-02 9.399799E-02 3.193399E+01 7.6500 8.409889E-02 1.110075E-01 3.227555E+01 7.7000 1.174418E-01 1.262090E-01 3.261180E+01 7.7500 1.393102E-01 1.394348E-01 3.294443E+01 7.8000 1.443717E-01 1.505531E-01 3.327427E+01 7.8500 1.302547E-01 1.594679E-01 3.360166E+01 7.9000 9.797777E-02 1.661203E-01 3.392671E+01 7.9500 5.171610E-02 1.704887E-01 3.424932E+01 8.0000 -2.029603E-03 1.725899E-01 3.456928E+01 8.0500 -5.583362E-02 1.722242E-01 3.488768E+01 8.1000 -1.020327E-01 1.697774E-01 3.520225E+01 8.1500 -1.349946E-01 1.653991E-01 3.551228E+01 8.2000 -1.516141E-01 1.592781E-01 3.581684E+01 8.2500 -1.516295E-01 1.516436E-01 3.611470E+01 8.3000 -1.373675E-01 1.427675E-01 3.640423E+01 8.3500 -1.130073E-01 1.329683E-01 3.668335E+01 8.4000 -8.355693E-02 1.226174E-01 3.694938E+01 8.4500 -5.377599E-02 1.121479E-01 3.719902E+01 8.5000 -2.728047E-02 1.020635E-01 3.742853E+01 8.5500 -6.043347E-03 9.305106E-02 3.763412E+01 8.6000 9.908173E-03 8.566185E-02 3.781504E+01 8.6500 2.186767E-02 8.044556E-02 3.797441E+01 8.7000 3.185861E-02 7.774431E-02 3.812133E+01 8.7500 4.185536E-02 7.754383E-02 3.826927E+01 8.8000 5.309245E-02 7.944680E-02 3.843100E+01 8.8500 6.563176E-02 8.280587E-02 3.861417E+01 8.9000 7.828608E-02 8.691388E-02 3.882056E+01 8.9500 8.890574E-02 9.113779E-02 3.904814E+01 9.0000 9.494519E-02 9.497108E-02 3.929326E+01 9.0500 9.410283E-02 9.801352E-02 3.955334E+01 9.1000 8.508379E-02 1.000105E-01 3.982330E+01 9.1500 6.800348E-02 1.007934E-01 4.010017E+01 9.2000 4.445391E-02 1.002651E-01 4.038136E+01 9.2500 1.725537E-02 9.839253E-02 4.066442E+01 9.3000 -1.009248E-02 9.520250E-02 4.094692E+01 9.3500 -3.413278E-02 9.078080E-02 4.122617E+01 9.4000 -5.217071E-02 8.527379E-02 4.149904E+01 9.4500 -6.281007E-02 7.889377E-02 4.176159E+01 9.5000 -6.617223E-02 7.192981E-02 4.200867E+01 9.5500 -6.371042E-02 6.474016E-02 4.223291E+01 9.6000 -5.786379E-02 5.787010E-02 4.242627E+01 9.6500 -5.124837E-02 5.199086E-02 4.258071E+01 9.7000 -4.599924E-02 4.790018E-02 4.269417E+01 9.7500 -4.322059E-02 4.632406E-02 4.277962E+01 9.8000 -4.271896E-02 4.755043E-02 4.286620E+01 9.8500 -4.308658E-02 5.122618E-02 4.298298E+01 9.9000 -4.211553E-02 5.658387E-02 4.314281E+01 9.9500 -3.744207E-02 6.281260E-02 4.334367E+01 10.0000 -2.726223E-02 6.924879E-02 4.357766E+01 10.0500 -1.091665E-02 7.570634E-02 4.383760E+01 10.1000 1.094042E-02 8.154815E-02 4.411686E+01 10.1500 3.591755E-02 8.649449E-02 4.441053E+01 10.2000 6.043255E-02 9.034052E-02 4.471508E+01 10.2500 8.042108E-02 9.293895E-02 4.502807E+01 10.3000 9.221032E-02 9.418933E-02 4.534774E+01 10.3500 9.335768E-02 9.403144E-02 4.567288E+01 10.4000 8.325683E-02 9.244083E-02 4.600263E+01 10.4500 6.336249E-02 8.942556E-02 4.633645E+01 10.5000 3.696955E-02 8.502357E-02 4.667406E+01 10.5500 8.583310E-03 7.930026E-02 4.701544E+01 10.6000 -1.698850E-02 7.234638E-02 4.736093E+01 10.6500 -3.562568E-02 6.427600E-02 4.771137E+01 10.7000 -4.474926E-02 5.522535E-02 4.806856E+01 10.7500 -4.384852E-02 4.535362E-02 4.843634E+01 10.8000 -3.456111E-02 3.485104E-02 4.882377E+01 10.8500 -2.028493E-02 2.397821E-02 4.925710E+01 10.9000 -5.403752E-03 1.331770E-02 4.984768E+01 10.9500 5.704860E-03 6.784013E-03 5.126448E+01 11.0000 9.662170E-03 1.373925E-02 5.262711E+01 11.0500 4.915975E-03 2.455294E-02 5.320549E+01 11.1000 -8.185107E-03 3.562810E-02 5.363888E+01 11.1500 -2.708771E-02 4.643174E-02 5.402997E+01 11.2000 -4.762091E-02 5.672220E-02 5.440352E+01 11.2500 -6.487252E-02 6.632417E-02 5.476827E+01 11.3000 -7.424739E-02 7.509217E-02 5.512801E+01 11.3500 -7.248105E-02 8.290220E-02 5.548469E+01 11.4000 -5.839074E-02 8.964988E-02 5.583935E+01 11.4500 -3.320131E-02 9.525046E-02 5.619263E+01 11.5000 -3.740330E-04 9.963916E-02 5.654492E+01 11.5500 3.502749E-02 1.027716E-01 5.689647E+01 11.6000 6.730268E-02 1.046238E-01 5.724745E+01 11.6500 9.120953E-02 1.051926E-01 5.759796E+01 11.7000 1.029638E-01 1.044947E-01 5.794808E+01 11.7500 1.009386E-01 1.025661E-01 5.829785E+01 11.8000 8.592643E-02 9.946154E-02 5.864727E+01 11.8500 6.091954E-02 9.525276E-02 5.899634E+01 11.9000 3.046610E-02 9.002717E-02 5.934504E+01 11.9500 -2.544430E-04 8.388609E-02 5.969330E+01 12.0000 -2.643883E-02 7.694281E-02 6.004103E+01 12.0500 -4.475851E-02 6.964801E-02 6.038820E+01 12.1000 -5.339656E-02 6.176275E-02 6.073450E+01 12.1500 -5.253659E-02 5.341350E-02 6.107961E+01 12.2000 -4.414639E-02 4.473109E-02 6.142292E+01 12.2500 -3.142161E-02 3.584874E-02 6.176330E+01 12.3000 -1.801370E-02 2.690057E-02 6.209813E+01 12.3500 -7.215959E-03 1.802191E-02 6.241990E+01 12.4000 -1.282199E-03 9.362680E-03 6.269448E+01 12.4500 -1.015846E-03 1.644301E-03 6.216592E+01 12.5000 -5.702613E-03 7.272440E-03 6.059157E+01 12.5500 -1.338220E-02 1.467008E-02 6.083891E+01 12.6000 -2.138140E-02 2.150517E-02 6.115372E+01 12.6500 -2.697797E-02 2.766191E-02 6.148389E+01 12.7000 -2.804253E-02 3.306775E-02 6.181959E+01 12.7500 -2.351800E-02 3.766875E-02 6.215757E+01 12.8000 -1.363855E-02 4.142674E-02 6.249638E+01 12.8500 1.479434E-04 4.431875E-02 6.283519E+01 12.9000 1.552304E-02 4.633688E-02 6.317346E+01 12.9500 2.981833E-02 4.748794E-02 6.351072E+01 13.0000 4.059072E-02 4.779309E-02 6.384651E+01 13.0500 4.624290E-02 4.739495E-02 6.418171E+01 13.1000 4.595296E-02 4.623954E-02 6.451404E+01 13.1500 4.015495E-02 4.438242E-02 6.484266E+01 13.2000 3.025640E-02 4.189153E-02 6.516639E+01 13.2500 1.827785E-02 3.884711E-02 6.548358E+01 13.3000 6.385025E-03 3.534251E-02 6.579179E+01 13.3500 -3.575911E-03 3.148645E-02 6.608726E+01 13.4000 -1.043577E-02 2.740877E-02 6.636405E+01 13.4500 -1.387877E-02 2.327315E-02 6.661238E+01 13.5000 -1.440968E-02 1.930434E-02 6.681616E+01 13.5500 -1.313309E-02 1.584071E-02 6.695089E+01 13.6000 -1.140860E-02 1.339500E-02 6.699268E+01 13.6500 -1.047121E-02 1.255021E-02 6.696039E+01 13.7000 -1.110968E-02 1.346071E-02 6.694425E+01 13.7500 -1.347707E-02 1.560913E-02 6.701544E+01 13.8000 -1.707281E-02 1.832621E-02 6.717226E+01 13.8500 -2.089288E-02 2.115091E-02 6.738788E+01 13.9000 -2.370448E-02 2.381449E-02 6.764040E+01 13.9500 -2.437344E-02 2.615950E-02 6.791591E+01 14.0000 -2.216263E-02 2.809017E-02 6.820589E+01 14.0500 -1.692774E-02 2.962810E-02 6.850690E+01 14.1000 -9.116201E-03 3.065536E-02 6.881310E+01 14.1500 2.104159E-04 3.115460E-02 6.912179E+01 14.2000 9.665243E-03 3.112485E-02 6.943079E+01 14.2500 1.784253E-02 3.058021E-02 6.973803E+01 14.3000 2.362177E-02 2.954967E-02 7.004132E+01 14.3500 2.639686E-02 2.807771E-02 7.033807E+01 14.4000 2.617761E-02 2.622627E-02 7.062491E+01 14.4500 2.354264E-02 2.407874E-02 7.089725E+01 14.5000 1.945966E-02 2.174737E-02 7.114864E+01 14.5500 1.502061E-02 1.938604E-02 7.137021E+01 14.6000 1.115959E-02 1.720866E-02 7.155104E+01 14.6500 8.423938E-03 1.550301E-02 7.168218E+01 14.7000 6.855279E-03 1.459928E-02 7.176784E+01 14.7500 6.009047E-03 1.473769E-02 7.183666E+01 14.8000 5.106587E-03 1.590648E-02 7.192981E+01 14.8500 3.280768E-03 1.785765E-02 7.207187E+01 14.9000 -1.474323E-04 2.027576E-02 7.226390E+01 14.9500 -5.432181E-03 2.289442E-02 7.249619E+01 15.0000 -1.226778E-02 2.551808E-02 7.275814E+01 15.0500 -1.988553E-02 2.809950E-02 7.304285E+01 15.1000 -2.696197E-02 3.046296E-02 7.334329E+01 15.1500 -3.204991E-02 3.253011E-02 7.365539E+01 15.2000 -3.386234E-02 3.424147E-02 7.397638E+01 15.2500 -3.158605E-02 3.555246E-02 7.430430E+01 15.3000 -2.510880E-02 3.643098E-02 7.463782E+01 15.3500 -1.510315E-02 3.685607E-02 7.497600E+01 15.4000 -2.941987E-03 3.681691E-02 7.531823E+01 15.4500 9.541749E-03 3.631223E-02 7.566412E+01 15.5000 2.040282E-02 3.534973E-02 7.601349E+01 15.5500 2.796546E-02 3.394559E-02 7.636636E+01 15.6000 3.115680E-02 3.212400E-02 7.672301E+01 15.6500 2.971929E-02 2.991677E-02 7.708398E+01 15.7000 2.425503E-02 2.736299E-02 7.745027E+01 15.7500 1.609175E-02 2.450908E-02 7.782357E+01 15.8000 6.998971E-03 2.140951E-02 7.820679E+01 15.8500 -1.184618E-03 1.812921E-02 7.860521E+01 15.9000 -6.932163E-03 1.475063E-02 7.902906E+01 15.9500 -9.336474E-03 1.139448E-02 7.950016E+01 16.0000 -8.279585E-03 8.286590E-03 8.006949E+01 16.0500 -4.430117E-03 5.991019E-03 8.084914E+01 16.1000 9.660843E-04 5.599857E-03 8.185480E+01 16.1500 6.299924E-03 7.336910E-03 8.271406E+01 16.2000 9.997691E-03 1.002907E-02 8.333133E+01 16.2500 1.087522E-02 1.294623E-02 8.382567E+01 16.3000 8.402103E-03 1.580764E-02 8.426261E+01 16.3500 2.819735E-03 1.848552E-02 8.466987E+01 16.4000 -4.910212E-03 2.090649E-02 8.506008E+01 16.4500 -1.331306E-02 2.302165E-02 8.543963E+01 16.5000 -2.071663E-02 2.479633E-02 8.581199E+01 16.5500 -2.560505E-02 2.620606E-02 8.617922E+01 16.6000 -2.693414E-02 2.723487E-02 8.654254E+01 16.6500 -2.434176E-02 2.787438E-02 8.690273E+01 16.7000 -1.821112E-02 2.812330E-02 8.726024E+01 16.7500 -9.577753E-03 2.798704E-02 8.761532E+01 16.8000 9.500455E-05 2.747735E-02 8.796805E+01 16.8500 9.219855E-03 2.661188E-02 8.831839E+01 16.9000 1.640129E-02 2.541384E-02 8.866610E+01 16.9500 2.069603E-02 2.391147E-02 8.901080E+01 17.0000 2.176572E-02 2.213766E-02 8.935183E+01 17.0500 1.997101E-02 2.020715E-02 8.968842E+01 17.1000 1.600000E-02 1.807135E-02 9.001888E+01 17.1500 1.093027E-02 1.577279E-02 9.034057E+01 17.2000 5.898678E-03 1.335962E-02 9.064889E+01 17.2500 1.853820E-03 1.088912E-02 9.093511E+01 17.3000 -6.311517E-04 8.438205E-03 9.118106E+01 17.3500 -1.447691E-03 6.137429E-03 9.134431E+01 17.4000 -9.291620E-04 4.288572E-03 9.132458E+01 17.4500 2.717380E-04 3.599186E-03 9.103062E+01 17.5000 1.371538E-03 4.490704E-03 9.079581E+01 17.5500 1.663493E-03 6.180048E-03 9.083366E+01 17.6000 6.951252E-04 8.043930E-03 9.101967E+01 17.6500 -1.623699E-03 9.851662E-03 9.127176E+01 17.7000 -5.003664E-03 1.150935E-02 9.155595E+01 17.7500 -8.849396E-03 1.296941E-02 9.185713E+01 17.8000 -1.240204E-02 1.420440E-02 9.216774E+01 17.8500 -1.491485E-02 1.519845E-02 9.248350E+01 17.9000 -1.582003E-02 1.594395E-02 9.280175E+01 17.9500 -1.484896E-02 1.644020E-02 9.312059E+01 18.0000 -1.208127E-02 1.669265E-02 9.343856E+01 18.0500 -7.901742E-03 1.671939E-02 9.375553E+01 18.1000 -2.942524E-03 1.653449E-02 9.406887E+01 18.1500 2.086563E-03 1.616044E-02 9.437726E+01 18.2000 6.534972E-03 1.562510E-02 9.467928E+01 18.2500 9.928006E-03 1.496159E-02 9.497336E+01 18.3000 1.203169E-02 1.420819E-02 9.525775E+01 18.3500 1.285611E-02 1.340801E-02 9.553066E+01 18.4000 1.260321E-02 1.260819E-02 9.579047E+01 18.4500 1.157849E-02 1.185803E-02 9.603614E+01 18.5000 1.009335E-02 1.120543E-02 9.626787E+01 18.5500 8.385132E-03 1.069114E-02 9.648780E+01 18.6000 6.574978E-03 1.034129E-02 9.670033E+01 18.6500 4.671404E-03 1.016082E-02 9.691166E+01 18.7000 2.614391E-03 1.013115E-02 9.712837E+01 18.7500 3.429977E-04 1.021408E-02 9.735579E+01 18.8000 -2.136733E-03 1.035999E-02 9.759711E+01 18.8500 -4.706565E-03 1.051660E-02 9.785338E+01 18.9000 -7.129700E-03 1.063537E-02 9.812409E+01 18.9500 -9.087966E-03 1.067501E-02 9.840789E+01 19.0000 -1.025435E-02 1.060264E-02 9.870315E+01 19.0500 -1.042354E-02 1.043539E-02 9.900783E+01 19.1000 -9.459320E-03 1.011135E-02 9.932125E+01 19.1500 -7.466923E-03 9.618884E-03 9.964223E+01 19.2000 -4.764003E-03 8.952685E-03 9.996985E+01 19.2500 -1.828937E-03 8.113177E-03 1.003036E+02 19.3000 7.970634E-04 7.105926E-03 1.006434E+02 19.3500 2.632412E-03 5.941152E-03 1.009900E+02 19.4000 3.372664E-03 4.633393E-03 1.013462E+02 19.4500 2.972868E-03 3.201759E-03 1.017213E+02 19.5000 1.671550E-03 1.674596E-03 1.021621E+02 19.5500 -5.358859E-05 3.315504E-04 1.038349E+02 19.6000 -1.591710E-03 1.701750E-03 1.056049E+02 19.6500 -2.344393E-03 3.401844E-03 1.060538E+02 19.7000 -1.877522E-03 5.117673E-03 1.064385E+02 19.7500 -4.302089E-05 6.813511E-03 1.068078E+02 19.8000 2.960678E-03 8.460332E-03 1.071717E+02 19.8500 6.607330E-03 1.003088E-02 1.075332E+02 19.9000 1.014066E-02 1.149937E-02 1.078939E+02 19.9500 1.273237E-02 1.284174E-02 1.082543E+02 20.0000 1.366656E-02 1.403600E-02 1.086149E+02 ifeffit-1.2.11d/src/feff6/TEST/nstar.dat0000644000175000017500000000102010772773144016540 0ustar segresegrepolarization 0.0000 0.0000 0.0000 npath nstar 1 0.0000 2 0.0000 3 0.0000 4 0.0000 5 0.0000 6 0.0000 7 0.0000 8 0.0000 9 0.0000 10 0.0000 11 0.0000 12 0.0000 13 0.0000 14 0.0000 15 0.0000 16 0.0000 17 0.0000 18 0.0000 19 0.0000 20 0.0000 21 0.0000 22 0.0000 23 0.0000 24 0.0000 25 0.0000 26 0.0000 27 0.0000 28 0.0000 29 0.0000 30 0.0000 31 0.0000 32 0.0000 33 0.0000 34 0.0000 ifeffit-1.2.11d/src/feff6/TEST/feff.inp0000644000175000017500000001176610772773207016357 0ustar segresegre TITLE copper HOLE 1 1.0 CONTROL 1 1 0 0 PRINT 0 0 0 0 RMAX 5.5 POTENTIALS 0 26 Cu 1 29 Cu 2 29 ATOMS 0.00000 0.00000 0.00000 0 Cu0 0.00000 0.00000 1.80500 -1.80500 2 Cu1 2.55266 -1.80500 -1.80500 0.00000 2 Cu1 2.55266 1.80500 0.00000 -1.80500 2 Cu1 2.55266 0.00000 -1.80500 1.80500 2 Cu1 2.55266 1.80500 1.80500 0.00000 2 Cu1 2.55266 0.00000 -1.80500 -1.80500 2 Cu1 2.55266 -1.80500 1.80500 0.00000 1 Cu1 2.55266 0.00000 1.80500 1.80500 1 Cu1 2.55266 -1.80500 0.00000 -1.80500 1 Cu1 2.55266 -1.80500 0.00000 1.80500 1 Cu1 2.55266 1.80500 0.00000 1.80500 1 Cu1 2.55266 1.80500 -1.80500 0.00000 1 Cu1 2.55266 0.00000 -3.61000 0.00000 1 Cu1 3.61000 0.00000 0.00000 -3.61000 1 Cu1 3.61000 0.00000 0.00000 3.61000 1 Cu1 3.61000 -3.61000 0.00000 0.00000 1 Cu1 3.61000 3.61000 0.00000 0.00000 1 Cu1 3.61000 0.00000 3.61000 0.00000 1 Cu1 3.61000 -1.80500 3.61000 1.80500 1 Cu1 4.42133 1.80500 3.61000 1.80500 1 Cu1 4.42133 -1.80500 -3.61000 -1.80500 1 Cu1 4.42133 -1.80500 3.61000 -1.80500 1 Cu1 4.42133 1.80500 3.61000 -1.80500 1 Cu1 4.42133 -1.80500 -3.61000 1.80500 1 Cu1 4.42133 -3.61000 1.80500 -1.80500 1 Cu1 4.42133 1.80500 -3.61000 1.80500 1 Cu1 4.42133 3.61000 1.80500 -1.80500 1 Cu1 4.42133 -3.61000 1.80500 1.80500 1 Cu1 4.42133 -3.61000 -1.80500 -1.80500 1 Cu1 4.42133 3.61000 -1.80500 1.80500 1 Cu1 4.42133 1.80500 -3.61000 -1.80500 1 Cu1 4.42133 -3.61000 -1.80500 1.80500 1 Cu1 4.42133 3.61000 1.80500 1.80500 1 Cu1 4.42133 -1.80500 -1.80500 3.61000 1 Cu1 4.42133 -1.80500 -1.80500 -3.61000 1 Cu1 4.42133 1.80500 1.80500 -3.61000 1 Cu1 4.42133 1.80500 -1.80500 -3.61000 1 Cu1 4.42133 1.80500 -1.80500 3.61000 1 Cu1 4.42133 -1.80500 1.80500 -3.61000 1 Cu1 4.42133 -1.80500 1.80500 3.61000 1 Cu1 4.42133 1.80500 1.80500 3.61000 1 Cu1 4.42133 3.61000 -1.80500 -1.80500 1 Cu1 4.42133 3.61000 -3.61000 0.00000 1 Cu1 5.10531 3.61000 0.00000 -3.61000 1 Cu1 5.10531 3.61000 0.00000 3.61000 1 Cu1 5.10531 -3.61000 3.61000 0.00000 1 Cu1 5.10531 0.00000 3.61000 3.61000 1 Cu1 5.10531 -3.61000 0.00000 3.61000 1 Cu1 5.10531 -3.61000 -3.61000 0.00000 1 Cu1 5.10531 0.00000 -3.61000 3.61000 1 Cu1 5.10531 -3.61000 0.00000 -3.61000 1 Cu1 5.10531 3.61000 3.61000 0.00000 1 Cu1 5.10531 0.00000 -3.61000 -3.61000 1 Cu1 5.10531 0.00000 3.61000 -3.61000 1 Cu1 5.10531 0.00000 -5.41500 1.80500 1 Cu1 5.70791 1.80500 -5.41500 0.00000 1 Cu1 5.70791 0.00000 -5.41500 -1.80500 1 Cu1 5.70791 -1.80500 0.00000 5.41500 1 Cu1 5.70791 -5.41500 0.00000 -1.80500 1 Cu1 5.70791 5.41500 -1.80500 0.00000 1 Cu1 5.70791 -1.80500 5.41500 0.00000 1 Cu1 5.70791 5.41500 0.00000 -1.80500 1 Cu1 5.70791 -5.41500 -1.80500 0.00000 1 Cu1 5.70791 1.80500 5.41500 0.00000 1 Cu1 5.70791 5.41500 1.80500 0.00000 1 Cu1 5.70791 0.00000 5.41500 -1.80500 1 Cu1 5.70791 0.00000 -1.80500 -5.41500 1 Cu1 5.70791 0.00000 5.41500 1.80500 1 Cu1 5.70791 1.80500 0.00000 5.41500 1 Cu1 5.70791 0.00000 1.80500 5.41500 1 Cu1 5.70791 5.41500 0.00000 1.80500 1 Cu1 5.70791 1.80500 0.00000 -5.41500 1 Cu1 5.70791 0.00000 1.80500 -5.41500 1 Cu1 5.70791 0.00000 -1.80500 5.41500 1 Cu1 5.70791 -5.41500 0.00000 1.80500 1 Cu1 5.70791 -5.41500 1.80500 0.00000 1 Cu1 5.70791 -1.80500 0.00000 -5.41500 1 Cu1 5.70791 -1.80500 -5.41500 0.00000 1 Cu1 5.70791 END *%# Input-mode Time-stamp: <2008/03/27 14:33:27 newville> *!!&& Local Variables: *!!&& input-program-name: "feff" *!!&& End: ifeffit-1.2.11d/src/feff6/TEST/paths.dat0000644000175000017500000003241711012363551016527 0ustar segresegre copper Rmax 5.5000, keep limit 0.000, heap limit 0.000 Feff 6L.02 Plane wave chi amplitude filter 2.50% ------------------------------------------------------------------------------- 1 2 6.000 index, nleg, degeneracy, r= 2.5527 x y z ipot label rleg beta eta 1.805000 0.000000 1.805000 1 'Cu ' 2.5527 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 180.0000 0.0000 2 2 6.000 index, nleg, degeneracy, r= 2.5527 x y z ipot label rleg beta eta -1.805000 -1.805000 0.000000 2 ' ' 2.5527 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 180.0000 0.0000 3 2 6.000 index, nleg, degeneracy, r= 3.6100 x y z ipot label rleg beta eta 0.000000 0.000000 -3.610000 1 'Cu ' 3.6100 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 3.6100 180.0000 0.0000 4 3 12.000 index, nleg, degeneracy, r= 3.8290 x y z ipot label rleg beta eta -1.805000 0.000000 -1.805000 1 'Cu ' 2.5527 120.0000 0.0000 -1.805000 1.805000 0.000000 1 'Cu ' 2.5527 120.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 120.0000 0.0000 5 3 24.000 index, nleg, degeneracy, r= 3.8290 x y z ipot label rleg beta eta 1.805000 0.000000 -1.805000 2 ' ' 2.5527 120.0000 0.0000 1.805000 -1.805000 0.000000 1 'Cu ' 2.5527 120.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 120.0000 0.0000 6 3 12.000 index, nleg, degeneracy, r= 3.8290 x y z ipot label rleg beta eta 0.000000 -1.805000 -1.805000 2 ' ' 2.5527 120.0000 0.0000 1.805000 0.000000 -1.805000 2 ' ' 2.5527 120.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 120.0000 0.0000 7 3 24.000 index, nleg, degeneracy, r= 4.3577 x y z ipot label rleg beta eta 0.000000 0.000000 3.610000 1 'Cu ' 3.6100 135.0000 0.0000 1.805000 0.000000 1.805000 1 'Cu ' 2.5527 90.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 135.0000 0.0000 8 3 24.000 index, nleg, degeneracy, r= 4.3577 x y z ipot label rleg beta eta 3.610000 0.000000 0.000000 1 'Cu ' 3.6100 135.0000 0.0000 1.805000 0.000000 -1.805000 2 ' ' 2.5527 90.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 135.0000 0.0000 9 2 24.000 index, nleg, degeneracy, r= 4.4213 x y z ipot label rleg beta eta 3.610000 -1.805000 1.805000 1 'Cu ' 4.4213 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 4.4213 180.0000 0.0000 10 3 10.000 index, nleg, degeneracy, r= 4.7633 x y z ipot label rleg beta eta -1.805000 0.000000 -1.805000 1 'Cu ' 2.5527 150.0000 0.0000 0.000000 1.805000 1.805000 1 'Cu ' 4.4213 150.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 60.0000 0.0000 11 3 28.000 index, nleg, degeneracy, r= 4.7633 x y z ipot label rleg beta eta 1.805000 0.000000 -1.805000 2 ' ' 2.5527 150.0000 0.0000 -1.805000 1.805000 0.000000 1 'Cu ' 4.4213 150.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 60.0000 0.0000 12 3 10.000 index, nleg, degeneracy, r= 4.7633 x y z ipot label rleg beta eta 0.000000 -1.805000 1.805000 2 ' ' 2.5527 150.0000 0.0000 1.805000 0.000000 -1.805000 2 ' ' 4.4213 150.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 60.0000 0.0000 13 3 48.000 index, nleg, degeneracy, r= 4.7633 x y z ipot label rleg beta eta -3.610000 1.805000 -1.805000 1 'Cu ' 4.4213 150.0000 0.0000 -1.805000 1.805000 0.000000 1 'Cu ' 2.5527 60.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 150.0000 0.0000 14 3 48.000 index, nleg, degeneracy, r= 4.7633 x y z ipot label rleg beta eta -1.805000 -3.610000 -1.805000 1 'Cu ' 4.4213 150.0000 0.0000 0.000000 -1.805000 -1.805000 2 ' ' 2.5527 60.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 150.0000 0.0000 15 2 12.000 index, nleg, degeneracy, r= 5.1053 x y z ipot label rleg beta eta -3.610000 3.610000 0.000000 1 'Cu ' 5.1053 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 5.1053 180.0000 0.0000 16 3 4.000 index, nleg, degeneracy, r= 5.1053 x y z ipot label rleg beta eta -1.805000 0.000000 -1.805000 1 'Cu ' 2.5527 180.0000 0.0000 1.805000 0.000000 1.805000 1 'Cu ' 5.1053 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 0.0000 0.0000 17 3 4.000 index, nleg, degeneracy, r= 5.1053 x y z ipot label rleg beta eta 0.000000 -1.805000 -1.805000 2 ' ' 2.5527 180.0000 0.0000 0.000000 1.805000 1.805000 1 'Cu ' 5.1053 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 0.0000 0.0000 18 3 4.000 index, nleg, degeneracy, r= 5.1053 x y z ipot label rleg beta eta -1.805000 -1.805000 0.000000 2 ' ' 2.5527 180.0000 0.0000 1.805000 1.805000 0.000000 2 ' ' 5.1053 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 0.0000 0.0000 19 3 12.000 index, nleg, degeneracy, r= 5.1053 x y z ipot label rleg beta eta -3.610000 0.000000 3.610000 1 'Cu ' 5.1053 180.0000 0.0000 -1.805000 0.000000 1.805000 1 'Cu ' 2.5527 0.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 180.0000 0.0000 20 3 12.000 index, nleg, degeneracy, r= 5.1053 x y z ipot label rleg beta eta 3.610000 3.610000 0.000000 1 'Cu ' 5.1053 180.0000 0.0000 1.805000 1.805000 0.000000 2 ' ' 2.5527 0.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 180.0000 0.0000 21 4 4.000 index, nleg, degeneracy, r= 5.1053 x y z ipot label rleg beta eta -1.805000 1.805000 0.000000 1 'Cu ' 2.5527 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 0.0000 0.0000 1.805000 -1.805000 0.000000 1 'Cu ' 2.5527 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 0.0000 0.0000 22 4 4.000 index, nleg, degeneracy, r= 5.1053 x y z ipot label rleg beta eta 1.805000 0.000000 -1.805000 2 ' ' 2.5527 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 0.0000 0.0000 -1.805000 0.000000 1.805000 1 'Cu ' 2.5527 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 0.0000 0.0000 23 4 4.000 index, nleg, degeneracy, r= 5.1053 x y z ipot label rleg beta eta 0.000000 1.805000 -1.805000 2 ' ' 2.5527 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 0.0000 0.0000 0.000000 -1.805000 1.805000 2 ' ' 2.5527 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 0.0000 0.0000 24 4 6.000 index, nleg, degeneracy, r= 5.1053 x y z ipot label rleg beta eta -1.805000 0.000000 1.805000 1 'Cu ' 2.5527 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 180.0000 0.0000 -1.805000 0.000000 1.805000 1 'Cu ' 2.5527 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 180.0000 0.0000 25 4 6.000 index, nleg, degeneracy, r= 5.1053 x y z ipot label rleg beta eta 0.000000 -1.805000 1.805000 2 ' ' 2.5527 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 180.0000 0.0000 0.000000 -1.805000 1.805000 2 ' ' 2.5527 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 180.0000 0.0000 26 4 28.000 index, nleg, degeneracy, r= 5.1053 x y z ipot label rleg beta eta -1.805000 -1.805000 0.000000 2 ' ' 2.5527 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 60.0000 0.0000 1.805000 0.000000 1.805000 1 'Cu ' 2.5527 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 60.0000 0.0000 27 4 6.000 index, nleg, degeneracy, r= 5.1053 x y z ipot label rleg beta eta 0.000000 1.805000 1.805000 1 'Cu ' 2.5527 0.0000 0.0000 0.000000 3.610000 3.610000 1 'Cu ' 2.5527 180.0000 0.0000 0.000000 1.805000 1.805000 1 'Cu ' 2.5527 0.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 180.0000 0.0000 28 4 6.000 index, nleg, degeneracy, r= 5.1053 x y z ipot label rleg beta eta 0.000000 1.805000 -1.805000 2 ' ' 2.5527 0.0000 0.0000 0.000000 3.610000 -3.610000 1 'Cu ' 2.5527 180.0000 0.0000 0.000000 1.805000 -1.805000 2 ' ' 2.5527 0.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 180.0000 0.0000 29 4 24.000 index, nleg, degeneracy, r= 5.1053 x y z ipot label rleg beta eta -1.805000 1.805000 0.000000 1 'Cu ' 2.5527 60.0000 0.0000 -3.610000 1.805000 -1.805000 1 'Cu ' 2.5527 180.0000 0.0000 -1.805000 1.805000 0.000000 1 'Cu ' 2.5527 60.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 180.0000 0.0000 30 4 24.000 index, nleg, degeneracy, r= 5.1053 x y z ipot label rleg beta eta 0.000000 -1.805000 1.805000 2 ' ' 2.5527 60.0000 0.0000 -1.805000 -1.805000 3.610000 1 'Cu ' 2.5527 180.0000 0.0000 0.000000 -1.805000 1.805000 2 ' ' 2.5527 60.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 180.0000 0.0000 31 4 24.000 index, nleg, degeneracy, r= 5.1053 x y z ipot label rleg beta eta 0.000000 1.805000 -1.805000 2 ' ' 2.5527 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 120.0000 0.0000 -1.805000 0.000000 -1.805000 1 'Cu ' 2.5527 180.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 120.0000 0.0000 32 3 24.000 index, nleg, degeneracy, r= 5.2920 x y z ipot label rleg beta eta 1.805000 -1.805000 -3.610000 1 'Cu ' 4.4213 144.7356 0.0000 1.805000 -1.805000 0.000000 1 'Cu ' 3.6100 90.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 125.2644 0.0000 33 3 24.000 index, nleg, degeneracy, r= 5.2920 x y z ipot label rleg beta eta -3.610000 1.805000 -1.805000 1 'Cu ' 4.4213 144.7356 0.0000 0.000000 1.805000 -1.805000 2 ' ' 3.6100 90.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 2.5527 125.2644 0.0000 34 3 48.000 index, nleg, degeneracy, r= 5.2920 x y z ipot label rleg beta eta -3.610000 1.805000 -1.805000 1 'Cu ' 4.4213 125.2644 0.0000 -3.610000 0.000000 0.000000 1 'Cu ' 2.5527 90.0000 0.0000 0.000000 0.000000 0.000000 0 'Cu ' 3.6100 144.7356 0.0000 ifeffit-1.2.11d/src/feff6/TEST/feff.err0000644000175000017500000000003110774505552016336 0ustar segresegre Fatal Error: at FRNRM-1 ifeffit-1.2.11d/src/feff6/istval.f0000644000175000017500000000531310663646452015622 0ustar segresegre subroutine istval (vtot, rholap, rmt, imt, rws, iws, vint, rhoint, 1 ierr) c This subroutine calculates interstitial values of v and rho c for an overlapped atom. Inputs are everything except vint and c rhoint, which are returned. vtot includes ground state xc. c rhoint is form density*4*pi, same as rholap c c ierr = 0, normal exit c =-1, rmt=rws, no calculation possible implicit double precision (a-h, o-z) include 'dim.h' parameter (delta = 0.050 000 000 000 000) dimension vtot (nrptx) dimension rholap (nrptx) c Integrations are done in x (r = exp(x), see Louck's grid) c Trapezoidal rule, end caps use linear interpolation. c imt is grid point immediately below rmt, etc. c We will integrate over spherical shell and divide by volume of c shell, so leave out factor 4pi, vol = r**3/3, not 4pi*r**3/3, c similarly leave out 4pi in integration. c If rmt and rws are the same, cannot contribute to interstitial c stuff, set error flag vol = (rws**3 - rmt**3) / 3 if (vol .le. 0) then ierr = -1 return endif ierr = 0 c Calculation of vint including exchange correlation c Trapezoidal rule from imt+1 to iws vint = 0 do 100 i = imt, iws-1 fr = rr(i+1)**3 * vtot(i+1) fl = rr(i)**3 * vtot(i) vint = vint + (fr+fl)*delta/2 100 continue c End cap at rws (rr(iws) to rws) xws = log (rws) xiws = xx(iws) g = xws - xiws fr = rr(iws+1)**3 * vtot(iws+1) fl = rr(iws)**3 * vtot(iws) vint = vint + (g/2) * ( (2-(g/delta))*fl + (g/delta)*fr) c End cap at rmt (rmt to rr(imt+1)) xmt = log (rmt) ximt = xx(imt) g = xmt - ximt fr = rr(imt+1)**3 * vtot(imt+1) fl = rr(imt)**3 * vtot(imt) vint = vint - (g/2) * ( (2-(g/delta))*fl + (g/delta)*fr) vint = vint / vol c Calculation of rhoint c Trapezoidal rule from imt+1 to iws rhoint = 0 do 200 i = imt, iws-1 fr = rr(i+1)**3 * rholap(i+1) fl = rr(i)**3 * rholap(i) rhoint = rhoint + (fr+fl)*delta/2 200 continue c End cap at rws (rr(iws) to rws) xws = log (rws) xiws = xx(iws) g = xws - xiws fr = rr(iws+1)**3 * rholap(iws+1) fl = rr(iws)**3 * rholap(iws) rhoint = rhoint + (g/2) * ( (2-(g/delta))*fl + (g/delta)*fr) c End cap at rmt (rmt to rr(imt+1)) xmt = log (rmt) ximt = xx(imt) g = xmt - ximt fr = rr(imt+1)**3 * rholap(imt+1) fl = rr(imt)**3 * rholap(imt) rhoint = rhoint - (g/2) * ( (2-(g/delta))*fl + (g/delta)*fr) rhoint = rhoint / vol return end ifeffit-1.2.11d/src/feff6/xx.f0000644000175000017500000000141710663646452014760 0ustar segresegre double precision function xx (j) implicit double precision (a-h, o-z) c x grid point at index j, x = log(r), r=exp(x) parameter (delta = 0.050 000 000 000 000) parameter (c88 = 8.800 000 000 000 000) c xx = -8.8 + (j-1)*0.05 xx = -c88 + (j-1)*delta return end double precision function rr(j) implicit double precision (a-h, o-z) c r grid point at index j rr = exp (xx(j)) return end function ii(r) implicit double precision (a-h, o-z) c index of grid point immediately below postion r parameter (delta = 0.050 000 000 000 000) parameter (c88 = 8.800 000 000 000 000) c ii = (log(r) + 8.8) / 0.05 + 1 ii = (log(r) + c88) / delta + 1 return end ifeffit-1.2.11d/src/feff6/istprm.f0000644000175000017500000001412410663646452015636 0ustar segresegre subroutine istprm (nph, nat, iphat, rat, iatph, xnatph, 1 novr, iphovr, nnovr, rovr, folp, edens, 2 vclap, vtot, imt, inrm, rmt, rnrm, 2 rhoint, 3 vint, rs, xf, xmu, rnrmav, intclc) c Finds interstitial parameters, rmt, vint, etc. implicit double precision (a-h, o-z) include 'const.h' include 'dim.h' dimension iphat(natx) dimension rat(3,natx) dimension iatph(0:nphx) dimension xnatph(0:nphx) dimension novr(0:nphx) dimension iphovr(novrx,0:nphx) dimension nnovr(novrx,0:nphx) dimension rovr(novrx,0:nphx) dimension folp(0:nphx) dimension edens(nrptx,0:nphx) dimension vclap(nrptx,0:nphx) dimension vtot (nrptx,0:nphx) dimension imt(0:nphx) dimension inrm(0:nphx) dimension rmt(0:nphx) dimension rnrm(0:nphx) character*128 messag c intclc = 0, average evenly over all atoms c 1, weight be lorentzian, 1 / (1 + 3*x**2), x = r/rnn, c r = distance to central atom, c rnn = distance of near neighbor to central atom c Find muffin tin radii. We'll find rmt based on norman prescription, c ie, rmt(i) = R * folp * rnrm(i) / (rnrm(i) + rnrm(j)), c a simple average c based on atoms i and j. We average the rmt's from each pair of c atoms, weighting by the volume of the lense shape formed by the c overlap of the norman spheres. c NB, if folp=1, muffin tins touch without overlap, folp>1 gives c overlapping muffin tins. c c rnn is distance between sphere centers c rnrm is the radius of the norman sphere c xl_i is the distance to the plane containing the circle of the c intersection c h_i = rnrm_i - xl_i is the height of the ith atom's part of c the lense c vol_i = (pi/3)*(h_i**2 * (3*rnrm_i - h_i)) c c xl_i = (rnrm_i**2 - rnrm_j**2 + rnn**2) / (2*rnn) do 140 iph = 0, nph voltot = 0 rmtavg = 0 if (novr(iph) .gt. 0) then c Overlap explicitly defined by overlap card do 124 iovr = 1, novr(iph) rnn = rovr(iovr,iph) inph = iphovr(iovr,iph) c Don't avg if norman spheres don't overlap if (rnrm(iph)+rnrm(inph) .le. rnn) goto 124 voltmp = calcvl (rnrm(iph), rnrm(inph), rnn) voltmp = voltmp + calcvl (rnrm(inph), rnrm(iph), rnn) rmttmp = rnn * folp(iph) * rnrm(iph) / 1 (rnrm(iph) + rnrm(inph)) ntmp = nnovr(iovr,iph) rmtavg = rmtavg + rmttmp*voltmp*ntmp voltot = voltot + voltmp*ntmp 124 continue else iat = iatph(iph) do 130 inat = 1, nat if (inat .eq. iat) goto 130 rnn = dist (rat(1,inat), rat(1,iat)) inph = iphat(inat) c Don't avg if norman spheres don't overlap if (rnrm(iph)+rnrm(inph) .lt. rnn) goto 130 voltmp = calcvl (rnrm(iph), rnrm(inph), rnn) voltmp = voltmp + calcvl (rnrm(inph), rnrm(iph), rnn) rmttmp = rnn * folp(iph) * rnrm(iph) / 1 (rnrm(iph) + rnrm(inph)) rmtavg = rmtavg + rmttmp*voltmp voltot = voltot + voltmp 130 continue endif if (rmtavg .le. 0) then write(messag, 132) iat, iph call echo(messag) 132 format (' WARNING: NO ATOMS CLOSE ENOUGH TO OVERLAP ATOM', 1 i5, ', UNIQUE POT', i5, '!!', /, 2 ' Rmt set to Rnorman. May be error in ', 3 'input file.') rmt(iph) = rnrm(iph) else rmt(iph) = rmtavg / voltot endif 140 continue c Need potential with ground state xc, put it into vtot do 160 iph = 0, nph call sidx (edens(1,iph), 250, rmt(iph), rnrm(iph), 1 imax, imt(iph), inrm(iph)) do 150 i = 1, imax rs = (edens(i,iph)/3)**(-third) c vhedbr from Von Barth Hedin paper, 1971 vhedbr = -1.22177412/rs - 0.0504*log(30/rs + 1) vtot(i,iph) = vclap(i,iph) + vhedbr 150 continue 160 continue c What to do about interstitial values? c Calculate'em for all atoms, print'em out for all unique pots along c with derivative quantities, like fermi energy, etc. c Interstitial values will be average over all atoms in problem. c rnrmav is averge norman radius, c (4pi/3)rnrmav**3 = (sum((4pi/3)rnrm(i)**3)/n, sum over all atoms c in problem rnrmav = 0 xn = 0 rs = 0 vint = 0 rhoint = 0 c volint is total interstitial volume volint = 0 do 170 iph = 0, nph c Use all atoms call istval (vtot(1,iph), edens(1,iph), rmt(iph), imt(iph), 2 rnrm(iph), inrm(iph), vintx, rhintx, ierr) c if no contribution to interstitial region, skip this unique pot if (ierr .ne. 0) goto 170 call fermi (rhintx, vintx, xmu, rs, xf) c (factor 4pi/3 cancel in numerator and denom, so leave out) volx = (rnrm(iph)**3 - rmt(iph)**3) if (volx .le. 0) goto 170 volint = volint + volx * xnatph(iph) vint = vint + vintx * volx * xnatph(iph) rhoint = rhoint + rhintx* volx * xnatph(iph) 170 continue c If no contribution to interstitial from any atom, die. if (volint .le. 0) then call echo(' No interstitial density. Check input file.') call fstop(' at ISTPRM') endif vint = vint / volint rhoint = rhoint / volint call fermi (rhoint, vint, xmu, rs, xf) do 180 iph = 0, nph rnrmav = rnrmav + xnatph(iph) * rnrm(iph)**3 xn = xn + xnatph(iph) 180 continue rnrmav = (rnrmav/xn) ** third return end double precision function calcvl (r1, r2, r) implicit double precision (a-h, o-z) include 'const.h' xl = (r1**2 - r2**2 + r**2) / (2*r) h = r1 - xl calcvl = (pi/3) * h**2 * (3*r1 - h) return end ifeffit-1.2.11d/src/feff6/trap.f0000644000175000017500000000055410663646452015270 0ustar segresegre subroutine trap (x, y, n, sum) implicit double precision (a-h, o-z) c Trapeziodal integration of y(x), result in sum dimension x(n), y(n) sum = y(1) * (x(2) - x(1)) do 10 i = 2, n-1 sum = sum + y(i) * (x(i+1) - x(i-1)) 10 continue sum = sum + y(n) * (x(n) - x(n-1)) sum = sum/2 return end ifeffit-1.2.11d/src/feff6/potsl.f0000644000175000017500000000250510663646452015461 0ustar segresegre subroutine potsl (dv,d,dp,dr,dpas,dexv,z,np,ion,icut,dvn) c c coulomb potential uses a 4-point integration method c dv=potential; d=density; dp=bloc de travail; dr=radial mesh; c dpas=exponential step; dexv=multiplicative coefficient for the exchang c z=atomic number; np=number of points; ion=z-number of electrons c if icut is zero one corrects the potential by -(ion+1)/r c ********************************************************************** implicit double precision (a-h,o-z) save dimension dv(251), d(251), dp(251), dr(251), dvn(251) das=dpas/24.0 do 10 i=1,np 10 dv(i)=d(i)*dr(i) dlo=exp(dpas) dlo2=dlo*dlo dp(2)=dr(1)*(d(2)-d(1)*dlo2)/(12.0*(dlo-1.0)) dp(1)=dv(1)/3.0-dp(2)/dlo2 dp(2)=dv(2)/3.0-dp(2)*dlo2 j=np-1 do 20 i=3,j 20 dp(i)=dp(i-1)+das*(13.0*(dv(i)+dv(i-1))-(dv(i-2)+dv(i+1))) dp(np)=dp(j) dv(j)=dp(j) dv(np)=dp(j) do 30 i=3,j k=np+1-i 30 dv(k)=dv(k+1)/dlo+das*(13.0*(dp(k+1)/dlo+dp(k))-(dp(k+2)/dlo2+dp 1 (k-1)*dlo)) dv(1)=dv(3)/dlo2+dpas*(dp(1)+4.0*dp(2)/dlo+dp(3)/dlo2)/3.0 dlo=-(ion+1) do 40 i=1,np dvn(i)=dv(i)/dr(i) dv(i)=dv(i)-(z+exchan(d(i),dr(i),dexv)) if (icut.ne.0) go to 40 if (dv(i).gt.dlo) dv(i)=dlo 40 dv(i)=dv(i)/dr(i) return end ifeffit-1.2.11d/src/feff6/getxk.f0000644000175000017500000000046710663646452015447 0ustar segresegre double precision function getxk (e) implicit double precision (a-h, o-z) c Make xk from energy as c k = sqrt( e) for e > 0 (above the edge) c k = -sqrt(-e) for e < 0 (below the edge) getxk = sqrt(abs(e)) if (e .lt. 0) getxk = - getxk return end ifeffit-1.2.11d/src/feff6/phase.f0000644000175000017500000001035610663646452015423 0ustar segresegre subroutine phase (iph, nr, dx, x0, ri, ne, em, edge, 1 index, rmt, xmu, vi0, rs0, gamach, 2 vtot, edens, 3 eref, ph, lmax) implicit double precision (a-h, o-z) c INPUT c iph unique pot index (used for messages only) c nr, dx, x0, ri(nr) c Loucks r-grid, ri=exp((i-1)*dx-x0) c ne, em(ne) number of energy points, real energy grid c edge energy for k=0 (note, edge=xmu-vr0) c index 0 Hedin-Lunqist + const real & imag part c 1 Dirac-Hara + const real & imag part c 2 ground state + const real & imag part c 3 Dirac-Hara + HL imag part + const real & imag part c 4, 5, 6, see rdinp or xcpot c rmt r muffin tin c xmu fermi level c vi0 const imag part to add to complex potential c rs0 user input density cutoff, used only with ixc=4 c gamach core hole lifetime c vtot(nr) total potential, including gsxc c edens(nr) density c c OUTPUT c eref(ne) complex energy reference including energy dep xc c ph(nex,ltot+1) complex scattering phase shifts c lmax max l (lmax = kmax*rmt) include 'dim.h' parameter (bohr = 0.529 177 249, ryd = 13.605 698) dimension ri(nr), em(nex), vtot(nr), edens(nr) complex*16 eref(nex) complex*16 ph(nex,ltot+1) c work space for xcpot dimension vxcrmu(nrptx), vxcimu(nrptx) c work space for fovrg complex*16 p(nrptx), q(nrptx), ps(nrptx), qs(nrptx), vm(nrptx) complex*16 p2, xkmt, temp, dny, pu, qu complex*16 jl(ltot+2), nl(ltot+2) complex*16 v(nrptx) external besjn c zero phase shifts (some may not be set below) do 100 ie = 1, ne do 90 il = 1, ltot+1 ph(ie,il) = 0 90 continue 100 continue c limit l, lmax = kmax * rmt c lmax = rmt * sqrt(em(ne)-edge) c Use kmax = 20 so we get enough l-points even if kmax is small lmax = rmt * (20 * bohr) lmax = min (lmax, ltot) c set imt and jri (use general Loucks grid) c rmt is between imt and jri (see function ii(r) in file xx.f) imt = (log(rmt) + x0) / dx + 1 jri = imt+1 if (jri .gt. nr) call fstop(' at PHASE: jri > nr') c xmt is floating point version of imt, so that c rmt = (exp (x-1)*dx - x0). xmt used in fovrg xmt = (log(rmt) + x0) / dx + 1 ifirst = 0 c calculate phase shifts do 220 ie = 1, ne call xcpot (iph, ie, nr, index, ifirst, jri, 1 em(ie), xmu, vi0, rs0, gamach, 2 vtot, edens, 3 eref(ie), v, 4 vxcrmu, vxcimu) c fovrg needs v in form pot*r**2 do 120 i = 1, jri v(i) = v(i) * ri(i)**2 120 continue c p2 is (complex momentum)**2 referenced to energy dep xc p2 = em(ie) - eref(ie) xkmt = rmt * sqrt (p2) call besjn (xkmt, jl, nl) do 210 il = 1, lmax+1 l = il - 1 call fovrg (il, ihard, rmt, xmt, jri, p2, 1 nr, dx, ri, v, dny, 1 pu, qu, p, q, ps, qs, vm) temp = (jl(il)*(dny-l) + xkmt*jl(il+1)) / 1 (nl(il)*(dny-l) + xkmt*nl(il+1)) xx = dble (temp) yy = dimag(temp) if (xx .ne. 0) then alph = (1 - xx**2 - yy**2) alph = sqrt(alph**2 + 4*xx**2) - alph alph = alph / (2 * xx) alph = atan (alph) else alph = 0 endif beta = (xx**2 + (yy+1)**2) / 1 (xx**2 + (yy-1)**2) beta = log(beta) / 4 ph(ie,il) = dcmplx (alph, beta) c cut phaseshift calculation if they become too small if (abs(ph(ie,il)) .lt. 1.0e-6) goto 220 210 continue 220 continue c Warn user if fovrg failed ihard test. if (ihard .gt. 0) then call echo(' Hard tests failed in fovrg.') call echo(' Muffin-tin radius may be too large;'// 1 ' coordination number too small.') endif return end ifeffit-1.2.11d/src/feff6/cpl0.f0000644000175000017500000000140310663646452015152 0ustar segresegre subroutine cpl0 (x, pl0, lmaxp1) implicit double precision (a-h, o-z) c----------------------------------------------------------------------- c c cpl0: Calculate associated legendre polynomials p_l0(x) c by recursion. c Adapted from aslgndr. c c first written: (25 june 86) by j. j. rehr c c version 1 (25 june 86) (aslgndr) c version 2 (March, 1992) siz c c----------------------------------------------------------------------- dimension pl0 (lmaxp1) lmax = lmaxp1-1 c calculate legendre polynomials p_l0(x) up to l=lmax pl0(1) = 1 pl0(2) = x do 10 il = 2, lmax l = il-1 pl0(il+1) = ( (2*l+1)*x*pl0(il) - l*pl0(l) ) / il 10 continue return end ifeffit-1.2.11d/src/feff6/genfmt.f0000644000175000017500000003364010663646452015604 0ustar segresegre subroutine genfmt (ipr3, critcw, sig2g, iorder) implicit double precision (a-h, o-z) include 'const.h' include 'dim.h' include 'clmz.h' include 'fmatrx.h' include 'lambda.h' include 'pdata.h' include 'nlm.h' include 'rotmat.h' include 'vers.h' include 'pola.h' complex*16 rho(legtot), pmati(lamtot,lamtot,2) complex*16 pllp, ptrac, srho, prho, cdel1, cfac complex*16 cchi(nex), cfms, mmati dimension mmati(-mtot:mtot,-mtot:mtot) dimension t3j(-mtot-1:mtot+1,-1:1) dimension xk(nex), ckmag(nex) complex*16 ck(nex) dimension ffmag(nex) character*12 fname, messag*128 logical done c Input flags: c iorder, order of approx in f-matrix expansion (see setlam) c (normal use, 2. Do ss exactly regardless of iorder) c used for divide-by-zero and trig tests parameter (eps = 1.0e-16) c Read phase calculation input, data returned via commons open (unit=1, file='phase.bin', status='old', 1 access='sequential', form='unformatted', iostat=ios) call chopen (ios, 'phase.bin', 'genfmt') call rphbin (1) close (unit=1) c Open path input file (unit in) and read title. Use unit 1. ntitle = 5 open (unit=1, file='paths.dat', status='old', iostat=ios) call chopen (ios, 'paths.dat', 'genfmt') call rdhead (1, ntitle, title, ltitle) if (ntitle .le. 0) then title(1) = ' ' ltitle(1) = 1 endif c cgam = gamma in mean free path calc (eV). Set to zero in this c version. Set it to whatever you want if you need it. c cgam = 0 c cgam = cgam / ryd c add cnst imag part to eref c do 20 ie = 1, ne c eref(ie) = eref(ie) - coni*cgam/2 c 20 continue 50 format (a) 60 format (1x, a) 70 format (1x, 79('-')) c Save filenames of feff.dat files for use by ff2chi open (unit=2, file='files.dat', status='unknown', iostat=ios) call chopen (ios, 'files.dat', 'genfmt') c Put phase header on top of files.dat do 100 itext = 1, ntext write(2,60) text(itext)(1:ltext(itext)) 100 continue write(2,70) write(2,120) 120 format (' file sig2 amp ratio ', 1 'deg nlegs r effective') c Set crit0 for keeping feff.dat's if (ipr3 .le. 0) crit0 = 2*critcw/3 c Make a header for the running messages. write(messag, 130) critcw call echo(messag) 130 format (' Curved wave chi amplitude ratio', f7.2, '%') if (ipr3 .le. 0) then write(messag, 131) crit0 call echo(messag) endif 131 format (' Discard feff.dat for paths with cw ratio <', 1 f7.2, '%') write(messag, 132) call echo(messag) 132 format (' path cw ratio deg nleg reff') c Set nlm factors in common /nlm/ for use later call snlm (ltot+1, mtot+1) if (pola) then c Make 3j factors in t3j (multiplied by sqrt(3*(2l0+1)) for c further convinience - the same expression for chi) c l0 - final momentum, initial momentum = l0-1. do 140 m0 = -l0+1,l0-1 t3j(m0, 1) = (-1)**(l0+1+m0)*sqrt(3.0d0*(l0+m0)*(l0+m0+1) 1 /(2*l0)/(2*l0-1)) t3j(m0, 0) = (-1)**(l0+m0)*sqrt(3.0d0*(l0*l0-m0*m0)/ 1 l0/(2*l0-1)) 140 continue do 145 m0 = -l0+1,l0-1 t3j(m0,-1) = t3j(-m0,1) 145 continue endif c While not done, read path, find feff. open (unit=4,file='nstar.dat', status='unknown', iostat=ios) write(4,198, iostat=ios) evec 198 format('polarization ',3f8.4) write(4,199, iostat=ios) 199 format('npath nstar') npath = 0 ntotal = 0 nused = 0 xportx = -1 200 continue c Read current path call rdpath (1, pola, done,xstar) icalc = iorder if (done) goto 1000 npath = npath + 1 ntotal = ntotal + 1 write (4,201,iostat=ios) npath, xstar 201 format (i5, f8.4) c Need reff reff = 0 do 220 i = 1, nleg reff = reff + ri(i) 220 continue reff = reff/2 c Set lambda for low k call setlam (icalc, 1) c Calculate and store rotation matrix elements c Only need to go to (il0, il0, ...) for isc=nleg and c nleg+1 (these are the paths that involve the 'z' atom call rot3i (il0, il0, nleg) do 400 isc = 1, nsc call rot3i (lmaxp1, mmaxp1, isc) 400 continue if (pola) then c one more rotation in polarization case call rot3i (il0, il0, nleg+1) call mmtr(t3j,mmati) endif c Big energy loop do 800 ie = 1, ne c real momentum (k) xk(ie) = getxk (em(ie) - edge) c complex momentum (p) ck(ie) = sqrt (em(ie) - eref(ie)) ckmag(ie) = abs(ck(ie)) c complex rho do 420 ileg = 1, nleg rho(ileg) = ck(ie) * ri(ileg) 420 continue c if ck is zero, xafs is undefined. Make it zero and jump c to end of calc part of loop. if (abs(ck(ie)) .le. eps) then cchi(ie) = 0 goto 620 endif c Calculate and store spherical wave factors c_l^(m)z^m/m! c in a matrix clmi(il,im,ileg), ileg=1...nleg. c Result is that common /clmz/ is updated for use by fmtrxi. c zero clmi arrays do 440 ileg = 1, legtot do 440 il = 1, ltot+1 do 440 im = 1, mtot+ntot+1 clmi(il,im,ileg) = 0 440 continue mnmxp1 = mmaxp1 + nmax lxp1 = max (lmax(ie,ipot(1))+1, l0+1) mnp1 = min (lxp1, mnmxp1) call sclmz (rho, lxp1, mnp1, 1) lxp1 = max (lmax(ie,ipot(nsc))+1, l0+1) mnp1 = min (lxp1, mnmxp1) call sclmz (rho, lxp1, mnp1, nleg) do 460 ileg = 2, nleg-1 isc0 = ileg-1 isc1 = ileg lxp1 = max (lmax(ie,ipot(isc0))+1, lmax(ie,ipot(isc1))+1) mnp1 = min (lxp1, mnmxp1) call sclmz (rho, lxp1, mnp1, ileg) 460 continue c Calculate and store scattering matrices fmati. if (pola) then c Polarization version, make new m matrix c this will fill fmati(...,nleg) in common /fmtrxi/ call mmtrxi (laml0x, mmati, ie, 1, nleg) else c Termination matrix, fmati(...,nleg) iterm = 1 call fmtrxi (laml0x, laml0x, ie, iterm, 1, nleg) endif iterm = -1 c First matrix call fmtrxi (lamx, laml0x, ie, iterm, 2, 1) c Last matrix if needed if (nleg .gt. 2) then call fmtrxi (laml0x, lamx, ie, iterm, nleg, nleg-1) endif c Intermediate scattering matrices do 480 ilegp = 2, nsc-1 ileg = ilegp + 1 call fmtrxi (lamx, lamx, ie, iterm, ileg, ilegp) 480 continue c Big matrix multiplication loops. c Calculates trace of matrix product c M(1,N) * f(N,N-1) * ... * f(3,2) * f(2,1), as in reference. c We will (equivalently) calculate the trace over lambda_N of c f(N,N-1) * ... * f(3,2) * f(2,1) * M(1,N), working from c right to left. c Use only 2 pmati arrays, alternating indp (index p) c 1 and 2. c f(2,1) * M(1,N) -> pmat(1) indp = 1 do 520 lmp = 1, laml0x do 520 lm = 1, lamx pllp = 0 do 500 lmi = 1, laml0x pllp = pllp + fmati(lm,lmi,1) * fmati(lmi,lmp,nleg) 500 continue pmati(lm,lmp,indp)=pllp 520 continue c f(N,N-1) * ... * f(3,2) * [f(2,1) * M(1,N)] c Term in [] is pmat(1) do 560 isc = 2, nleg-1 c indp is current p matrix, indp0 is previous p matrix indp = 2 - mod(isc,2) indp0 = 1 + mod(indp,2) do 550 lmp = 1, laml0x do 550 lm = 1, lamx pllp=0 do 540 lmi = 1, lamx pllp = pllp + 1 fmati(lm,lmi,isc)*pmati(lmi,lmp,indp0) 540 continue 550 pmati(lm,lmp,indp) = pllp 560 continue c Final trace over matrix ptrac=0 do 580 lm = 1, laml0x ptrac = ptrac + pmati(lm,lm,indp) 580 continue c Calculate xafs c srho=sum pr(i), prho = prod pr(i) srho=0 prho=1 do 600 ileg = 1, nleg srho = srho + rho(ileg) prho = prho * rho(ileg) 600 continue c Complex chi (without 2kr term) c ipot(nleg) is central atom cdel1 = exp(2*coni*ph(ie,il0,ipot(nleg))) cfac = cdel1 * exp(coni*(srho-2*xk(ie)*reff)) / prho cchi(ie) = ptrac * cfac/(2*l0+1) c When ck(ie)=0, xafs is set to zero. Calc above undefined. c Jump to here from ck(ie)=0 test above. 620 continue c end of energy loop 800 continue c Make importance factor, deg*(integral (|chi|*d|p|)) c make ffmag (|chi|) c xport importance factor do 810 ie = 1, ne ffmag(ie) = abs(cchi(ie)) 810 continue c integrate from edge (ik0) to ne nemax = ne - ik0 + 1 call trap (ckmag(ik0), ffmag(ik0), nemax, xport) xport = abs(deg*xport) if (xport .gt. xportx) xportx = xport crit = 100 * xport / xportx c Write output if path is important enough (ie, path is c Write feff.dat if we need it. if (ipr3 .ge. 1 .or. crit .ge. crit0) then c Prepare output file feffnnnn.dat (unit 3) write(fname,241) ipath 241 format ('feff', i4.4, '.dat') open (unit=3, file=fname, status='unknown', iostat=ios) call chopen (ios, fname, 'genfmt') c put header on feff.dat do 245 itext = 1, ntext write(3,60) text(itext)(1:ltext(itext)) 245 continue write(3,250) ipath, icalc, vfeff, vgenfm 250 format (' Path', i5, ' icalc ', i7, t57, 2a12) write(3,70) write(3,290) nleg, deg, reff*bohr, rnrmav, edge*ryd 290 format (1x, i3, f8.3, f9.4, f10.4, f11.5, 1 ' nleg, deg, reff, rnrmav(bohr), edge') write(3,300) 300 format (' x y z pot at#') write(3,310) (rat(j,nleg)*bohr,j=1,3), ipot(nleg), 1 iz(ipot(nleg)), potlbl(ipot(nleg)) 310 format (1x, 3f10.4, i3, i4, 1x, a6, ' absorbing atom') do 330 ileg = 1, nleg-1 write(3,320) (rat(j,ileg)*bohr,j=1,3), ipot(ileg), 1 iz(ipot(ileg)), potlbl(ipot(ileg)) 320 format (1x, 3f10.4, i3, i4, 1x, a6) 330 continue write(3,340) 340 format (' k real[2*phc] mag[feff] phase[feff]', 1 ' red factor lambda real[p]@#') c Make the feff.dat stuff and write it to feff.dat do 900 ie = 1, ne c Consider chi in the standard XAFS form. Use R = rtot/2. xlam = 1.0e10 if (abs(dimag(ck(ie))) .gt. eps) xlam = 1/dimag(ck(ie)) redfac = exp (-2 * dimag (ph(ie,il0,ipot(nleg)))) cdelt = 2*dble(ph(ie,il0,ipot(nleg))) cfms = cchi(ie) * xk(ie) * reff**2 * 1 exp(2*reff/xlam) / redfac if (abs(cchi(ie)) .lt. eps) then phff = 0 else phff = atan2 (dimag(cchi(ie)), dble(cchi(ie))) endif c remove 2 pi jumps in phases if (ie .gt. 1) then call pijump (phff, phffo) call pijump (cdelt, cdelto) endif phffo = phff cdelto = cdelt c write 1 k, momentum wrt fermi level k=sqrt(p**2-kf**2) c 2 central atom phase shift (real part), c 3 magnitude of feff, c 4 phase of feff, c 5 absorbing atom reduction factor, c 6 mean free path = 1/(Im (p)) c 7 real part of local momentum p write(3,640) 1 xk(ie)/bohr, 2 cdelt + l0*pi, 3 abs(cfms) * bohr, 4 phff - cdelt - l0*pi, 5 redfac, 6 xlam * bohr, 7 dble(ck(ie))/bohr 640 format (1x, f6.3, 1x, 3(1pe11.4,1x),0pe11.4,1x, 1 2(1pe11.4,1x)) 900 continue c Done with feff.dat close (unit=3) c Put feff.dat and stuff into files.dat write(2,820) fname, sig2g, crit, deg, 1 nleg, reff*bohr 820 format(1x, a, f8.5, 2f10.3, i6, f9.4) c Tell user about the path we just did write(messag, 210) ipath, crit, deg, nleg, reff*bohr call echo(messag) 210 format (3x, i4, 2f10.3, i6, f9.4) nused = nused+1 else c path unimportant, tell user write(messag, 211) ipath, crit, deg, nleg, reff*bohr call echo(messag) 211 format (3x, i4, 2f10.3, i6, f9.4, ' neglected') endif c Do next path goto 200 c Done with loop over paths 1000 continue c close paths.dat, files.dat close (unit=1) close (unit=2) close (unit=4) write(messag,1010) nused, ntotal call echo(messag) 1010 format (1x, i4, ' paths kept, ', i4, ' examined.') return end ifeffit-1.2.11d/src/feff6/imhl.f0000644000175000017500000000374410663646452015257 0ustar segresegre subroutine imhl (rs, xk, eim, icusp) implicit double precision (a-h,o-z) c what is xk? k**2 - mu + kf**2? c written by j. mustre (march 1988) c code is based on analytical expression derived by john rehr. c it leaves the real part, calculated in rhl unchanged. c c modified by j. rehr (oct 1991) - adds quinn approximation for c losses due to electron-hole pairs below the plasmon turn on c see new subroutine quinn.f, which incorporates r. albers coding of c j.j. quinn's approximations for details. include 'const.h' c alph is Hedin-Lundquist parameter parameter (alph = 4.0 / 3.0) external ffq integer icount save icount data icount /0/ icusp=0 xf = fa / rs ef = xf**2 / 2 c xk0 is xk normalized by k fermi. xk0 = xk/xf c set to fermi level if below fermi level if (xk0 .lt. 1.00001) then xk0 = 1.00001 endif c wp is given in units of the fermi energy in the formula below. wp = sqrt (3 / rs**3) / ef xs = wp**2 - (xk0**2 - 1)**2 eim = 0 if (xs .lt. 0.) then q2 = sqrt ( (sqrt(alph**2-4*xs) - alph) / 2 ) qu = min (q2, (1+xk0)) d1 = qu - (xk0 - 1) if (d1 .gt. 0) then eim = ffq (qu,ef,xk,wp,alph) - ffq (xk0-1,ef,xk,wp,alph) endif endif call cubic (xk0, wp, alph, rad, qplus, qminus) if (rad .le. 0) then d2 = qplus - (xk0 + 1) if (d2 .gt. 0) then eim = eim + ffq (qplus,ef,xk,wp,alph) - 1 ffq (xk0+1,ef,xk,wp,alph) endif d3 = (xk0-1) - qminus if (d3 .gt. 0) then eim = eim + ffq (xk0-1,ef,xk,wp,alph) - 1 ffq (qminus,ef,xk,wp,alph) c beginning of the imaginary part and position of the cusp x0 icusp = 1 endif endif call quinn (xk0, rs, wp, ef, ei) if (eim .ge. ei) eim = ei icount = icount+1 return end ifeffit-1.2.11d/src/feff6/indata.f0000644000175000017500000002435110663646452015563 0ustar segresegrec major revision, input now comes from main program feff c input data is passed here to indata for processing subroutine indata (iz, ihole, wsin, ionin) implicit double precision (a-h, o-z) save c logical unit from which to read input parameter (linp = 1) common /print/ iprint common /atomco/ den(30), dq1(30), dfl(30), ws, nqn(30), nql(30), 1 nk(30), nmax(30), nel(30), norb, norbco common /dira/ dv(251), dr(251), dp(251), dq(251), dpas, tets, 1 z, nstop, nes, np, nuc common /ps2/ dexv, dexe, dcop, test, teste, 1 testy, testv, niter, ion, icut, iprat, irnorm character*40 ttl, messag*128 character*2 titre common /char/ titre(30), ttl external fpot character*2 ttire(9) data ttire /'s ', 'p*', 'p ', 'd*', 'd ', 'f*', 'f ','g*', 'g '/ c following variables fixed as data by jm 4/20/87 data i /0/ data j /0/ data k /0/ data l /0/ idep = 0 icut = 0 c Normal use, iprat = 1 iprat = 1 irnorm = 1 iex = 1 nuc = 0 c idep=0 starting potential = thomas-fermi potential c idep=1 starting potential read in from cards c if icut is zero one corrects the potential by -(ion+1)/r c if iprat is zero the pratt procedure is used c if iex is zero one uses the unmodified slater exchange c l=0 standard option for the bloc ofs points and their precision c finite nuclear size option if nuc is positive c if irnorm=1 renormalize potential to wigner-seitz radius dvc=137.0373 dsal=dvc+dvc iz1=0 ion1=0 nuc1=-1 dpas=0.05 dr1=0.01 nes=15 niter=50 c orig values: teste 5.e-6, testy 1.e-5, testv 1.e-5, test 1.e-7 c JM used teste 5.0e-5 to treat negative ion, c SZ changed teste to 1.0e-4 for selenium only to avoid convergence c problems with this particular atom. c teste set to 1.0e-4 to reduce run time (sz and jjr) teste = 1.0e-4 testy=1.e-04 testv=1.e-04 test=1.e-07 np=251 nstop=30 c Set dexv to zero for use with exafs model dexv = 0.0 dexe=1.5 dcop=0.3 c i, j, k set to zero when old read statements removed i=0 j=0 k=0 c iz = atomic number c ion = iz-number of electrons c norb = number of orbitals c idep = should be either 0 or 1 c i = number of points for the integration = 251 by default c j = number of attempts to adjust the energy = 15 by default c k = number of iterations = 50 by default c norbco = number of core orbitals c put input data passed from feff into the necessary variables ws = wsin ion = ionin c given iz, find norb, norbco, then den, nqn, nk and nel for c each orbital. call getorb (iz, ihole, ion, norb, norbco, 1 den, nqn, nk, nel) if (norb .gt. nstop) then if (iprint .ge. 5) write(16,44) norb write(messag,44) norb call echo(messag) 44 format (' norb=',i3,'too big') goto 999 endif c dexv = exchange coefficient for the potential: dexv=1. for slater c dexe = exchange energy coefficient c dexv should be equal to 2.*dexe/3. in order to satisfy the virial theo c dexv=0.0 and iex=1, hedin-barth exchange and correlation is used c dpas = exponential step; dr1 defines the first point = dr1/iz c test = energy precision criteria in dirac c teste = self-consistency criteria for the energies of all the electron c testy = self-consistency criteria for the wavefunctions c testv = self-consistency criteria for the potential z=iz if (nuc .gt. 0) then call echo(' enter atomic mass ') read (linp,*,end=900) dval c dval = atomic mass if nuc positive dval=z*(dval**(1.0/3.0))*2.267700e-05/exp(4.0*dpas) if (dval .le. dr1) then dr1=dval nuc=5 else dval=dval*exp(4.0*dpas) do 170 i=6,np d1=dr1*exp((i-1)*dpas) if (d1.ge.dval) goto 190 170 continue write(messag,180) call echo(messag) if (iprint .ge. 5) write(16,180) 180 format (' error for the atomic mass') goto 999 190 nuc=i dr1=dr1*dval/d1 endif endif if (iprint .ge. 5) write(16,210) ttl,niter,teste,testy,testv 210 format (1h1,40x,A40,//,5x,'number of iterations',i4,//, 1 5x,'precision of the energies',1pe9.2,//, 2 23x,'wave functions ',1pe9.2,//, 3 23x,'potential',1pe9.2,/) xtmp = 8.8 dr1=z*exp(-xtmp) if (iprint .ge. 5) write(16,220) np,dr1,iz,dpas 220 format (' the integration is made on ', i3, 1 ' points-the first is equal to ' ,f7.4, '/', i2,/, 2 ' and the step-size pas = ',f7.4,/) if (iprint .ge. 5) write(16,230) test,nes,idep,icut,iprat 230 format (' dans le sous programme resld la precision relative a', 1 ' obtenir sur l energie est ', 1pe9.2, 2 ' et le nombre d essais ',i3, //, 3 'idep=', i3, 5x, 'icut=', i3, 5x, 'iprat=', i3, /) if (iprint .ge. 5) write(16,240) dexv,dexe 240 format (' dexv=', 1pe14.7, ' dexe=' ,1pe14.7, 1 ' if dexv=0.0 hedin-barth corr. and exchan. is used'/) k=0 dval=z*z/(dvc*dvc) if (nuc.gt.0) then if (iprint .ge. 5) write(16,250) 250 format (1h0,30x,'finite nucleus case used'/) endif do 350 i=1,norb c den = orbital energy in atomic units and negative c nqn = principal quantum number; nk = kappa quantum number c nel = occupation of the orbital k=k+nel(i) if (den(i) .ge. 0.0) den(i) = -z*z / (4.0*nqn(i)*nqn(i)) nql(i)=iabs(nk(i)) if (nk(i).lt.0) nql(i)=nql(i)-1 if (nuc .le. 0) then dfl(i)=nk(i)*nk(i) dfl(i)=sqrt(dfl(i)-dval) else dfl(i)=iabs(nk(i)) endif l=2*iabs(nk(i)) if (nql(i).lt.nqn(i) .and. nel(i).le.l .and. 1 nqn(i).gt.0 .and. nql(i).le.4) goto 340 write(messag,330) den(i),nqn(i),nql(i),j,nel(i) call echo(messag) if (iprint .ge. 5) write(16,330) den(i),nqn(i),nql(i), 1 j,nel(i) 330 format (' error in the card ',e15.8,i2,3i2) goto 999 340 continue j=nql(i)+iabs(nk(i)) titre(i)=ttire(j) if (iprint .ge. 5) write(16,345) nqn(i),titre(i),nel(i), 1 den(i) 345 format (7x,i1,a2,i16,1pe23.7) 350 continue if (iprint .ge. 5) write(16,370) norbco 370 format (' no. of core orbitals=',i3) if (k.eq.(iz-ion)) goto 390 write(messag,380) call echo(messag) if (iprint .ge. 5) write(16,380) 380 format (' error for the number of electrons') goto 999 390 continue if (iprat .eq. 0) then if (iprint .ge. 5) write(16,410) 410 format (1h0,' the pratt procedure is used'/) else if (iprint .ge. 5) write(16,430) ws 430 format (1h0,' wigner-seitz radius = ',0pf10.6,/) endif if (nuc .eq. nuc1) then if (iz.eq.iz1.and.ion.eq.ion1) goto 600 if (iz.eq.iz1) goto 470 endif c dr(1)=dr1/z c do 460 i=2,np c dr(i)=dr(1)*exp((i-1)*dpas) c 460 continue c Let's make this consistant with grid in other routines c dr array commeted out above c SIZ December 1990 do 461 i = 1, 251 dr(i) = rr(i) 461 continue c starting potential 470 val=-ion-1 c Following code is a block, block ends at line 600 if (idep .eq. 1) then c read in starting potential (in a.u. and negative) if idep=1 read (linp,480,end=900) (dv(i),i=1,np) 480 format (8f9.4) if (iprint .ge. 5) write(16,490) TTL,(dv(i),i=1,np) 490 format (1h1, 40x, A40, //, 1 5x, 'starting potential multiplied by r ' /, 2 10(2x, f9.4)) dval = -z/dv(1) if (nuc.gt.0) dval = 1.0 do 500 i=1,np dv(i)=dv(i)*dval/dr(i) 500 continue else if (idep .ne. 0) then write(messag,510) call echo(messag) if (iprint .ge. 5) write(16,510) 510 format (' error for idep') goto 999 endif if (iz.ne.iz1 .or . ion.le.ion1 .or. nuc.ne.nuc1) then do 520 i=1,np r=dr(i) dv(i)=fpot(r,z,val) 520 continue if (nuc .gt. 0) then do 530 i=1,nuc dv(i) = dv(i) + z/dr(i) + 1 z*((dr(i)/dr(nuc))**2-3.0)/(dr(nuc)+dr(nuc)) 530 continue endif goto 600 endif endif if (icut .eq. 0) then do 540 i=1,np if ((dr(i)*dv(i)).gt.val) dv(i)=val/dr(i) 540 continue endif val=z+dv(1)*dr(1) if (nuc.gt.0) val=z+dv(nuc)*dr(nuc) if (abs(val) .ge. 0.1) then write(messag,550) call echo(messag) if (iprint .ge. 5) write(16,550) 550 format (' error for the potential ') goto 999 endif 600 continue c End of block above if (norb .ne. 1) then do 620 i=2,norb k=i-1 do 620 j=1,k if (nqn(i).eq.nqn(j) .and. nk(i).eq.nk(j)) then write(messag,610) call echo(messag) if (iprint .ge. 5) write(16,610) 610 format (' standard configuration') goto 999 endif 620 continue endif 630 iz1=iz ion1=ion nuc1=nuc do 660 i=1,norb nmax(i)=np l=1 j=nqn(i)-nql(i) if ((j-2*(j/2)).eq.0) l=-l dq1(i)=l*nk(i)/iabs(nk(i)) if (nuc .ne. 0 .and. nk(i) .lt. 0) then dq1(i)=dq1(i)*(nk(i)-dfl(i))*dvc/z endif 660 continue c -- Normal return return c -- Error condition, stop program c Unexpected end of file during read -- stop program 900 continue call echo(' Unexpected end of file') c Fatal error, stop gracefully (sic) 999 continue call fstop(' at INDATA-1') end ifeffit-1.2.11d/src/feff6/pijump.f0000644000175000017500000000130210663646452015616 0ustar segresegre subroutine pijump (ph, old) implicit double precision (a-h, o-z) c removes jumps of 2*pi in phases c ph = current value of phase (may be modified on output, but c only by multiples of 2*pi) c old = previous value of phase include 'const.h' parameter (twopi = 2 * pi) dimension xph(3) xph(1) = ph - old jump = (abs(xph(1))+ pi) / twopi xph(2) = xph(1) - jump*twopi xph(3) = xph(1) + jump*twopi xphmin = min (abs(xph(1)), abs(xph(2)), abs(xph(3))) isave = 1 do 10 i = 1, 3 if (abs (xphmin - abs(xph(i))) .le. 0.01d0) isave = i 10 continue ph = old + xph(isave) return end ifeffit-1.2.11d/src/feff6/exchee.f0000644000175000017500000000057410663646452015565 0ustar segresegre double precision function exchee (d,dr) implicit double precision (a-h,o-z) save c jm if density= 0,make exchange energy equal to zero if (d .eq. 0.0) then exchee=0.0 else x=(3.0*dr**2/d)**.333333333333/30.0 rx=1.0/x exchee=.02520*(x**3*log(1.0+rx)+x*.50-x**2-1.0/3.0-0.2020129 1 2*rx) endif return end ifeffit-1.2.11d/src/feff6/diff.f0000644000175000017500000000103310663646452015223 0ustar segresegre subroutine diff (v, dx, n, vm) implicit double precision (a-h,o-z) complex*16 v(n), vm(n) vm(1)=((6.0*v(2)+6.66666666667*v(4)+1.2*v(6))-(2.45*v(1)+7. 1 5*v(3)+3.75*v(5)+.166666666667*v(7)))/dx vm(2)=((6.0*v(3)+6.66666666667*v(5)+1.2*v(7))-(2.45*v(2)+7. 1 5*v(4)+3.75*v(6)+.166666666667*v(8)))/dx nm2=n-2 do 10 i=3,nm2 10 vm(i)=((v(i-2)+8.0*v(i+1))-(8.0*v(i-1)+v(i+2)))/12.0/dx vm(n-1)=(v(n)-v(n-2))/(2.0*dx) vm(n)=(v(n-2)*.5-2.0*v(n-1)+1.5*v(n))/dx return end ifeffit-1.2.11d/src/feff6/frnrm.f0000644000175000017500000000216310663646452015444 0ustar segresegre subroutine frnrm (rho, iz, rnrm) implicit double precision (a-h, o-z) include 'dim.h' dimension rho(nrptx) c finds norman radius c Need overlapped densities. We'll get them in the form c 4*pi*density = rho. Also need z of atom c Then integrate out to the point where the integral of c 4*pi*density*r**2 is equal to iz sum = 0.0 do 10 i = 1, nrptx-1 fr = rho(i+1) * rr(i+1)**3 fl = rho(i) * rr(i)**3 sumsav = sum sum = sum + 0.025*(fr+fl) if (sum .ge. iz) then inrm = i+1 goto 20 endif 10 continue call echo( ' FRNRM Could not integrate enough charge') call echo( ' to reach required z.') call fstop(' at FRNRM-1') 20 continue c inrm is too big, subtract one from irnm and interpolate c to get correct value inrm = inrm - 1 deltaq = iz - sumsav fr = rho(inrm+1) * rr(inrm+1)**3 fl = rho(inrm) * rr(inrm)**3 c dipas is delta i * 0.05 dipas = 2*deltaq / (fl + fr) rnrm = rr(inrm)*(1 + dipas) return end ifeffit-1.2.11d/src/feff6/vers.h0000644000175000017500000000021610663646452015276 0ustar segresegrec{vers.h -*-fortran-*- character*16 vfeff, vpotph, vpaths, vgenfm, vff2ch common /vers/ vfeff, vpotph, vpaths, vgenfm, vff2ch c} ifeffit-1.2.11d/src/feff6/atom.f0000644000175000017500000002657210663646452015272 0ustar segresegrec code: relativistic atom code (relativistic hartree fock slater) c modified desclaux code -- partially translated from the french c c modified by: r. c. albers (from previously modified code from c j. e. muller who in turn got it from the danes) c j. j. rehr and s. i. zabinsky for inclusion in feff c c special features: renormalizes charge density at wigner-seitz c radius c c version 2 (30 september 87): renormalized coulomb potential and c renormalized charge density are produced to be used in XAFS c calculations by cphase program. j.j. rehr, j. mustre university c of washington., a.djaoui university of essex. c please acknowledge use. r. c. albers (los alamos national lab) c j.j. rehr (university of washington), c c Subroutine calling hierarchy siz 1/8/90 c ATOM c INDATA c GETORB c FPOT c DIRAC c INOUH c INTH c POTSL c SOMM c TOTALE c SOMM c CDSLD c SOMM c YKDIR c RENORM c POTSLW c c Version 1/11/90: Input and output re-organized to work c easily with overlapped potential code c in FEFF. c c Version Aug 1990: Minor modification to work more easily with c FEFF4, cluster version. SRHO no longer has c factor of r**2. INDATA uses rr function to c set r grid. c Version Dec 1990: Writes to atom.dat restored c Version Feb 1991: Unit 16 opened in atom if necessary c June 1992 dirac upper and lower components and total energy c passed out for use with matrix element calculations c c Input: title title, max 40 characters c ifr index of free atom, used for output labels c iz atomic number of atom c ihole location of electron hole c rws Wigner-Seitz radius c ionin ionicity c iprint print flag, passed through commom /print/ c ispinr 0, do not save dirac spinors, else save for c orbital ispinr c c Output: vcoul(251) coulomb potential (no factor r**2) c srho(251) electron density in form c 4*pi*density (formerly 4*pi*density*r**2) c dgc0(251) large component (set if ispinr.ne.0) c dpc0(251) small component (set if ispinr.ne.0) c eatom total energy in rydbergs c c All data is on a grid r(i) = exp (-8.8 + (i-1)*0.05) subroutine atom (title, ifr, iz, ihole, rws, ionin, vcoul, srho, 1 ispinr, dgc0, dpc0, eatom) implicit double precision (a-h,o-z) save c Save central atom dirac components, see comments below. dimension dgc0(251), dpc0(251) character*(*) title dimension vcoul(251) dimension srho(251) common /print/ iprint common /atomco/ den(30), dq1(30), dfl(30), ws, nqn(30), nql(30), 1 nk(30), nmax(30), nel(30), norb, norbco common /dira/ dv(251), dr(251), dp(251), dq(251), dpas, tets, 1 z, nstop, nes, np, nuc common /ps2/ dexv, dexe, dcop, test, teste, 1 testy, testv, niter, ion, icut, iprat, irnorm common /deux/ dvn(251), dvf(251), d(251), dc(251), dgc(251,30), 1 dpc(251,30) character*40 ttl character*2 titre common /char/ titre(30), ttl dimension tden(30) character*30 fname external dalp data harryd /2./ if (iprint .ge. 3) then c prepare file for atom output write(fname,14) ifr 14 format('atom', i2.2, '.dat') open (unit=16, file=fname, status='unknown', iostat=ios) call chopen (ios, fname, 'atom') c call head (16) write(16,*) ' Free atom ', ifr endif ttl = title nstop=1 mark=0 call indata (iz, ihole, rws, ionin) iter=1 do 30 i=1,np do 30 j=1,norb dgc(i,j)=0.0 dpc(i,j)=0.0 30 continue if (iprint .ge. 3) write(16,40) ttl 40 format (1h1,40x,a40) n=-(ion+1) 60 continue do 70 i=1,np d(i)=0.0 70 continue tets=test ymax=0.0 vmax=0.0 emax=0.0 c resolution of the dirac equation for each orbital do 150 j=1,norb de=den(j) 80 call dirac (nqn(j),nql(j),nk(j),imax,den(j),dfl(j),dq1(j),j) if (nstop.eq.0) go to 110 if (nstop.ne.362.or.iter.ge.10.or.tets.gt.test) go to 90 tets=testv go to 80 90 if (iprint .ge. 3) write(16,100) nstop,nqn(j),titre(j) 100 format (' nstop=',i4,' for the orbital',i3,a2) call echo( ' Fatal error. Wigner-Seitz or muffin tin') call echo( ' radius may be too small.') go to 999 110 val=abs((den(j)-de)/de) if (val.gt.emax) emax=val nmax(j)=imax do 140 i=1,np val=dgc(i,j)-dp(i) if (abs(dp(i)).gt.1.0) val=val/dp(i) if (abs(val).lt.abs(ymax)) go to 120 ymax=val y=dp(i) yn=dgc(i,j) 120 val=dpc(i,j)-dq(i) if (abs(dq(i)).gt.1.0) val=val/dq(i) if (abs(val).lt.abs(ymax)) go to 130 ymax=val y=dq(i) yn=dpc(i,j) 130 dgc(i,j)=dp(i) dpc(i,j)=dq(i) 140 d(i)=d(i)+nel(j)*(dp(i)*dp(i)+dq(i)*dq(i)) 150 continue c dgc and dpc are set in loop above, only referenced in remainder c of code, so save them into dgc0 and dpc0 here. Note: np=251, c set in indata. dgc0 is large component c dpc0 is small if (ispinr .ne. 0) then do 152 i = 1, np dgc0(i) = dgc(i,ispinr) dpc0(i) = dpc(i,ispinr) 152 continue endif if (mark.eq.0) go to 280 c This is case mark .ne. 0 c d is the core electron density resulting from the renormalized pot. dval=0.0 do 160 j=1,norb 160 dval=dval+nel(j)*den(j) dval=dval*2.0 c jm-- core charge density commented away in unit 6 appears in unit 3-- if (iprint .ge. 3) write(16,170) dval 170 format (1h ,' core energy = ',e15.8) c jm- renormalized potential c note conversion to rydbergs using constant harryd c passvt is part of old system to pass data directly from c ATOM to PHASE c do 200 ixx=1,251 c 200 passvt(ixx)=harryd*dr(ixx)*dr(ixx)*dv(ixx) c d is the core electron density resulting from the renormalized pot. c next write renormalized electron density for each shell do 270 j=1,norb do 240 i=1,np d(i)=dgc(i,j)*sqrt(12.56637062) 240 continue 270 continue go to 750 c mark .eq. 0 case 280 continue call potsl (dc,d,dp,dr,dpas,dexv,z,np,ion,icut,dvn) if (nuc.le.0) go to 300 do 290 i=1,nuc dc(i)=dc(i)+z/dr(i)+z*((dr(i)/dr(nuc))**2-3.0) / 1 (dr(nuc)+dr(nuc)) 290 continue 300 continue do 310 i=1,np dval=abs(dc(i)-dv(i)) if ((dr(i)*dc(i)).le.n) dval=-dval/dc(i) if (dval.le.vmax) go to 310 vmax=dval j=i 310 continue c print 320, iter,vmax,dr(j),dv(j),dc(j),emax,ymax,yn,y c 320 format (i5,1pe11.2,3(1pe16.6),2(1pe11.2),2(1pe16.6)) if (tets.le.test.and.emax.le.teste.and.vmax.le.testv.and.ymax.le 1 .testy) go to 430 if (mark.eq.1) go to 430 iter=iter+1 if (iter.le.niter) go to 340 if (iprint .ge. 3) write(16,330) niter 330 format (' number of iterations greater than',i4) nstop=2 call echo(' ATOM-Fatal error, too many iterations.') cc print*, ' iter, niter ', iter, niter go to 999 c potential for the following iteration 340 continue if (iter.eq.2) go to 350 if (iprat) 350,390,350 350 dval=1.0-dcop do 360 i=1,np dvn(i)=dv(i) dvf(i)=dc(i) 360 dv(i)=dval*dv(i)+dcop*dc(i) go to 60 390 continue do 400 i=1,np dval=dalp(dvn(i),dvf(i),dv(i),dc(i)) dvn(i)=dv(i) dvf(i)=dc(i) 400 dv(i)=dval*dv(i)+(1.0-dval)*dc(i) go to 60 430 if (iprint .ge. 3) write(16,40) ttl if (iprint .ge. 3) write(16,460) 460 format (12x,'energie',12x,'(r4)',14x,'(r2)',14x,'(r)',15x,'(r-1)', 1 13x,'(r-3)'/) c valeurs moyennes de r do 470 i=1,np dvf(i)=dc(i) 470 dq(i)=0.0 dval=0.0 do 560 i=1,norb im=nmax(i) dval=dval+nel(i)*den(i) do 480 j=1,im 480 dc(j)=dgc(j,i)*dgc(j,i)+dpc(j,i)*dpc(j,i) l=5 if (iabs(nk(i)).eq.1) l=l-1 do 550 j=1,l dp(j)=dfl(i)+dfl(i) if (j-2) 490,500,510 490 n=4 go to 550 500 n=2 go to 550 510 if (j-4) 520,530,540 520 n=1 go to 550 530 n=-1 go to 550 540 n=-3 550 call somm (dr,dc,dq,dpas,dp(j),n,im) 560 if (iprint .ge. 3) write(16,570) nqn(i),titre(i), 1 den(i),(dp(j),j=1,l) 570 format (i3,a2,6(1pe18.7)) if (dexv.eq.0.0) go to 650 c energie totale en moyenne spherique do 580 i=1,norb 580 tden(i)=-2.0*den(i) dc(1)=1 do 600 i=1,np 600 dp(i)=d(i)/dr(i) if (nuc.le.0) go to 620 do 610 i=1,nuc 610 dp(i)=d(i)*(3.0-dr(i)*dr(i)/(dr(nuc)*dr(nuc)))/(dr(nuc)+dr(nuc)) dc(1)=4 620 call somm (dr,dp,dq,dpas,dc(1),0,np) do 630 i=1,np dp(i)=d(i)*dvf(i) 630 d(i)=d(i)*((d(i)*dr(i))**(1.0/3.0)) dc(2)=3 dc(3)=1 if (nuc.ne.0) dc(3)=4 call somm (dr,dp,dq,dpas,dc(3),0,np) call somm (dr,d,dq,dpas,dc(2),-1,np) dc(2)=-3.0*dc(2)/(105.27578**(1.0/3.0)) dc(1)=-z*dc(1) dc(4)=dval-dc(3) dval=dval+(dc(1)-dc(3)+(dexe-dexv)*dc(2))/2.0 dc(3)=(dc(3)-dc(1)-dexv*dc(2))/2.0 dc(2)=dc(2)*dexe/2.0 if (iprint .ge. 3) write(16,640) dval,dc(4),dc(3),dc(2),dc(1) 640 format (1h0,5x,'et=',1pe14.7,5x,'ec=',1pe14.7,5x,'ee=',1pe14.7,5x, 1 'ex=',1pe14.7,5x,'en=',1pe14.7) go to 660 650 call totale (dval) 660 continue c pass out eatom (total energy) (factor of 2 is to put energy in c rydberg units) eatom = 2 * dval if (norb.eq.1) go to 710 if (iprint .ge. 3) write(16,40) ttl if (iprint .ge. 3) write(16,670) 670 format (1h0,47x,'overlap integrals '/) c overlap integrals do 700 i=2,norb k=i-1 do 700 j=1,k if (nql(i).ne.nql(j).or.nk(i).ne.nk(j)) go to 700 im=nmax(j) if (nmax(i).lt.im) im=nmax(i) do 680 l=1,im dq(l)=dpc(l,i)*dpc(l,j) 680 dc(l)=dgc(l,i)*dgc(l,j) dval=dfl(i)+dfl(j) call somm (dr,dc,dq,dpas,dval,0,im) if (iprint .ge. 3) write(16,690) nqn(i),titre(i), 1 nqn(j),titre(j),dval 690 format (34x,i1,a2,i3,a2,f19.7) 700 continue 710 call cdsld if (irnorm.eq.1) then call renorm (dexv, vcoul, srho) endif do 720 i=1,np 720 dc(i)=harryd*dv(i)*dr(i)**2 if (irnorm.ne.1) call fstop(' at ATOM-0') norb=norbco if (norbco.eq.0) go to 750 if (mark.eq.1) go to 750 mark=1 go to 60 750 continue c return srho as 4*pi*density instead of 4*pi*density*r**2 do 760 i = 1, 251 srho(i) = srho(i) / (dr(i)**2) 760 continue if (iprint .ge. 3) close(unit=16) return 999 continue call fstop(' at ATOM-1') end ifeffit-1.2.11d/src/feff6/mmtr.f0000644000175000017500000000370010663646452015275 0ustar segresegre subroutine mmtr(t3j,mmati) c calculates the part of matrix M which does not depend on energy c point.( see Rehr and Albers paper) implicit double precision (a-h, o-z) c all commons are inputs c inputs: c t3j: appropriate table of the 3j symbols c Inputs from common: c rotation matrix for ilegp c path data, eta(ilegp) and ipot(ilegp) c mtot,l0 c Output: mmati(...) include 'const.h' include 'dim.h' include 'pola.h' include 'rotmat.h' include 'pdata.h' complex*16 mmati dimension mmati(-mtot:mtot,-mtot:mtot),t3j(-mtot-1:mtot+1,-1:1) do 10 i = -mtot,mtot do 10 j = -mtot,mtot mmati(i,j)=0 10 continue li = l0-1 c l0 is final orb. momentum. Thus here we need to change code c in case when initial momemtum larger than final one. lx = min(mtot,l0) do 60 mu1 = -lx,lx mu1d = mu1+mtot+1 do 50 mu2 = -lx,lx mu2d = mu2+mtot+1 do 35 m0 = -li,li do 34 i = -1,1 do 34 j = -1,1 m1 = m0-j m2 = m0-i m1d = m1 + mtot+1 m2d = m2 + mtot+1 if (abs(m1).gt.lx .or. abs(m2).gt.lx) goto 34 mmati(mu1,mu2) = mmati(mu1,mu2) + 1 dri(il0,mu1d,m1d,nsc+2)*dri(il0,m2d,mu2d,nleg) 2 *exp(-coni*(eta(nsc+2)*m2+eta(0)*m1)) 3 *t3j(-m0,i)*t3j(-m0,j)*ptz(i,j) c dri(nsc+2) is angle between z and leg1 c dri(nsc+1) is angle between last leg and z c eta(nsc+3) is gamma between eps and rho1, c eta(nsc+2) is alpha between last leg and eps c t3j(m0,i) are 3j symbols multiplied by sqrt(3) 34 continue 35 continue mmati(mu1,mu2) = mmati(mu1,mu2)*exp(-coni*eta(1)*mu1) 50 continue 60 continue return end ifeffit-1.2.11d/src/feff6/paths.f0000644000175000017500000003251010663646452015436 0ustar segresegre subroutine paths (ckspc, fbetac, pcritk, pcrith, nncrit, 1 rmax, nlegxx, ipotnn) c finds multiple scattering paths c This is single precision, units are Angstroms. BE CAREFUL! c pcrith is cut-off fraction used when building paths c (path criterion for heap) c pcritk is cut-off fraction used on output c (path criterion for keeping) c ipotnn is output, used by pathsd to duplicate paths criteria, c which are used only for diagnostic output. include 'dim.h' parameter (necrit=9, nbeta=40) dimension fbetac(-nbeta:nbeta,0:npotx,necrit), ckspc(necrit) include 'vers.h' c This common in pathsd, mpprm common /atoms/ rat(3,0:natx), ipot(0:natx), i1b(0:natx) dimension m(-1:natx,0:natx) dimension mindex(natx+1) c Used for packed integers dimension iout(3) c ok true if all paths to rmax found. If heap full, npx exceeded, c etc., last general shell may be incomplete, set ok=.false. logical ok c Heap data structure: c index is the pointer to the element of the data structure. c Each element contains c r total path length c Note that r is sorted along with index -- this keeps c the heap maintenance routines fast. c mi, mj m matrix elements used to place last atom in this path c npat number of atoms in this path c ipat(npatx) indices of atoms in this path c next is the index of the next data structure element available. c If an element is freed, npat is the index of the free element c to use after using current "next" element. c nx is max number in heap integer nx parameter (nx = 10 000) c parameter (nx = 60 000) c r also used in making m matrix, must have nx >= natx+1 integer index(nx), npx, np, n, ip, i c parameter (npx = 100 000) parameter (npx = 4 000 000) dimension r(nx), mi(nx), mj(nx) dimension npat(nx) dimension ipat (npatx,nx) c Keep this path on output logical keep1(nx), kp1tmp c Used with ipack, so need ipat(8) dimension ipat0(8) c paths are typically about 10 or 20 Ang parameter (big = 1.0e3) parameter (nheadx = 30) character*80 head(nheadx) character*80 title, messag*128 dimension lhead(nheadx) c Returned from criterion checker, false if path fails criterion logical keep external sdist c read input c header... c i, x, y, z, ipot, i1b of nat+1 atoms (i=0 is central atom) open (1, file='geom.dat', status='old', iostat=ios) call chopen (ios, 'geom.dat', 'paths') nhead = nheadx call rdhead (1, nhead, head, lhead) c header from geom.dat includes carriage control... c nlegxx is max number of legs user wants to consider. c nlegs = npat+1, so set npatxx = min (npatx, nlegxx-1) npatxx = min (npatx, nlegxx-1) c Input rmax is one-way distances rmax = rmax*2 nat = -1 c ratx is distance to most distant atom, used to check rmax ratx = 0 10 continue nat = nat+1 if (nat .gt. natx) then write(messag,'(1x,a,2i5)') ' PATHS: nat, natx ', $ nat, natx call echo(messag) call fstop(' at PATHS: bad input') endif read(1,*,end=20) idum, (rat(j,nat),j=1,3), ipot(nat), i1b(nat) rtmp = sdist(rat(1,nat),rat(1,0)) if (rtmp .gt. ratx) ratx = rtmp goto 10 20 continue nat = nat-1 close (unit=1) c Warn user if rmax > dist to most distant atom if (rmax/2 .gt. ratx+.02) then call echo(' WARNING in PATHS Module:') call echo(' rmax > distance to most distant atom.') call echo(' Some paths may be missing.') write(messag,'(1x,a,2f12.5)') ' rmax, ratx ', $ rmax/2.d0, ratx call echo(messag) endif c Count number of 1st bounce atoms (at least 1 required). n1b = 0 do 30 i = 1, nat if (i1b(i) .gt. 0) n1b = n1b + 1 30 continue if (n1b .lt. 1) call fstop(' at PATHS: at least one '// $ '1st bounce atoms required.') if (rmax .ge. big) $ call fstop(' at PATHS: get real with rmax!') c Make title for this run, include carriage control because head c (read above) includes carriage control. write(title,32) rmax/2, pcritk, pcrith, vfeff, vpaths 32 format(' Rmax', f8.4, ', keep limit', f7.3, 1 ', heap limit', f7.3, t57, 2a12) write(messag, 34) rmax/2, pcritk, pcrith call echo(messag) 34 format (' Rmax', f8.4, 1 ' keep and heap limits', 2f12.7) call echo(' Preparing neighbor table') c prepare table telling distance from atom i to atom j and then c back to central atom c First bounce is m(-1,...), m(0,...) is bounces from central c atom that are not first bounces. do 60 i = -1, nat ir = i if (i .eq. -1) ir = 0 do 40 j = 0, nat c r begins with element 1 so sort routine later will work r(j+1) = sdist (rat(1,ir), rat(1,j)) r(j+1) = r(j+1) + sdist (rat(1,j), rat(1,0)) c we don't need m(i,i), since this will be = shortest c of the r(j), so just set it to something very big, c it will sort to the end of this row and it won't c bother us if (j .eq. ir) r(j+1) = big c If we're doing first bounce, use only the allowed first c bounce paths. if (i .eq. -1) then if (i1b(j) .le. 0) r(j+1) = big endif 40 continue c prepare row i of m table c m is a distance table ordered such that distance from c i to m(i,0) to 0 < c i to m(i,1) to 0 < c i m(i,2) 0 < c : : : c i m(i,nat) 0 c c That is, m(i,0) is index of atom that gives shortest path, c m(i,1) next shortest path, etc. c Note that m(0,0) is shortest single bounce path. c Again, r and mindex go from 1 to nat+1, m goes from 0 to nat call sortir (nat+1, mindex, r) do 50 j = 0, nat m(i,j) = mindex(j+1)-1 50 continue 60 continue call echo(' nfound nheap nheapx nsc r') c initialize heap data space "next" pointers do 70 i = 1, nx-1 npat(i) = i+1 70 continue npat(nx) = -1 c initial condition: make the first path c n number in heap c nna number skipped counter c nhx number used in heap max, a counter n = 1 nna = 0 nhx = n nwrote = 0 index(n) = 1 ip = index(n) next = 2 mi(ip) = -1 mj(ip) = 0 npat(ip) = 1 ipat(npat(ip),1) = m(mi(ip),mj(ip)) c near neighbor is atom ipat(npat(ip),1) for first path into heap ipotnn = ipot(ipat(npat(ip),1)) c Someday change keep and keep1 to lkeep and lheap to match c ccrit variable names. c Initialize keep criterion xcalcx = -1 call ccrit (npat(ip), ipat(1,ip), ckspc, 1 fbetac, rmax, pcrith, pcritk, nncrit, ipotnn, ipot, 2 r(n), keep, keep1(ip), xcalcx) open (file='paths.bin', unit=3, access='sequential', 1 form='unformatted', status='unknown', iostat=ios) call chopen (ios, 'paths.bin', 'paths') c These strings are all char*80 and include carriage control write(3) nhead+1 do 88 ihead = 1, nhead write(3) head(ihead) write(3) lhead(ihead) 88 continue write(3) title write(3) istrln(title) write(3) nat do 90 i = 0, nat write(3) (rat(j,i),j=1,3), ipot(i), i1b(i) 90 continue c r is the heap, index is the pointer to the rest of the data c np is the number of paths found and saved np = 0 c nbx mpat max (Number of Bounces maX) nbx = 0 c done if path at top of heap is longer than longest path we're c interested in c done if max number of paths we want have been found c begin 'while not done' loop ok = .false. 800 continue if (r(1) .gt. rmax .or. np .ge. npx .or. n.le.0) then c n=0 means heap is empty if (n.le.0) ok=.true. c if (n.le.0) call echo(' Heap empty') goto 2000 endif c save element at top of heap in arrays labeled 0 c dump to unit 3 (unformatted) ip = index(1) npat0 = npat(ip) do 100 i = 1, npat0 ipat0(i) = ipat(i,ip) 100 continue r0 = r(1) c Don't write out path if last atom is central atom, or c if it doesn't meet pcritk if (ipat0(npat0).eq.0 .and. keep1(ip)) then write(messag,'(1x,a,2i6)') $ ' paths: odd case at npat0,ip= ', npat0,ip call echo(messag) endif if (ipat0(npat0).ne.0 .and. keep1(ip)) then np = np+1 c pack integers call ipack (iout, npat0, ipat0) write(3) r0, iout nwrote = nwrote+1 c write status report to screen if (mod(np,1000) .eq. 0) then write(messag, 132) np, n, nhx, nbx, r0/2 132 format (4x, i6, i7, i8, i4, f10.4) call echo(messag) endif endif if (np .ge. npx) then write(messag,'(1x,i5,a)') np, $ ' paths found. (np >= npx)' call echo(messag) goto 2000 endif c Make new path by replacing last atom in path from top of heap, c put this path on top of heap and buble it down. If row is c finished, or new path is too long, don't add it, instead c move last path in heap to the top. c If working on row mi=-1 (first bounce atoms), don't c use them if not allowed 1st bounce atoms. mj(ip) = mj(ip) + 1 if (mi(ip).eq.-1 .and. i1b(m(mi(ip),mj(ip))).le.0) then c not allowed first bounce atom r(1) = big keep = .false. c call echo('1st bounce limit!') elseif (mj(ip) .ge. nat) then c we've finished a row of m matrix r(1) = big keep = .false. else c new path has same indices, etc. Only need to replace c last atom. ipat(npat(ip),ip) = m(mi(ip),mj(ip)) call ccrit (npat(ip), ipat(1,ip), ckspc, 1 fbetac, rmax, pcrith, pcritk, nncrit, 1 ipotnn, ipot, 2 r(1), keep, keep1(ip), xcalcx) endif c If r is bigger than rmax or keep=false, remove element from c heap by taking the last element in the heap and moving it to c the top. Then bubble it down. When removing an element c from the heap, be sure to save the newly freed up index. c r(1) and index(1) are new path, set above if (r(1).gt.rmax .and. keep) then call echo('odd case rmax...') endif if (r(1).gt.rmax .or. .not.keep) then index(1) = index(n) r(1) = r(n) c use npat as pointer to next free location npat(ip) = next next = ip n = n-1 c nna is Number Not Added to heap nna = nna + 1 c Maybe heap may be empty here, but that's alright endif if (npat(index(1)).gt.nbx .and. n.gt.0) nbx = npat(index(1)) c If heap is empty, don't call hdown. if (n.gt.0) call hdown (r, index, n) c and make a new path by adding an atom onto the end of the path c we saved, put this at the end of the heap and bubble it up. c Do this only if it won't be too many bounces. if (npat0+1 .le. npatxx) then ip = next if (ip .lt. 0) then c call echo(' Heap full') goto 2000 endif next0 = npat(ip) do 200 i = 1, npat0 ipat(i,ip) = ipat0(i) 200 continue mi(ip) = ipat0(npat0) mj(ip) = 0 npat(ip) = npat0+1 ipat(npat(ip),ip) = m(mi(ip),mj(ip)) call ccrit (npat(ip), ipat(1,ip), ckspc, 1 fbetac, rmax, pcrith, pcritk, nncrit, 1 ipotnn, ipot, 2 rtmp, keep, kp1tmp, xcalcx) if (rtmp .gt. rmax .and. keep) then call echo(' odd case rmax and tmp...') endif if (rtmp .gt. rmax .or. .not.keep) then npat(ip) = next0 nna = nna+1 else c add it to the heap next = next0 n = n+1 if (n .gt. nhx) nhx = n index(n) = ip r(n) = rtmp keep1(ip) = kp1tmp if (npat(index(n)) .gt. nbx) nbx = npat(index(n)) call hup (r, index, n) endif endif goto 800 2000 continue c end of 'while not done' loop if (.not. ok) then call echo(' Internal path finder limit exceeded -- '// 1 'path list may be incomplete.') endif close (unit=3) write(messag, 2010) np, nhx, nbx 2010 format (' Paths found', i9, 3x, 1 '(nheapx, nbx', i8, i4, ')') call echo(messag) end ifeffit-1.2.11d/src/feff6/sclmz.f0000644000175000017500000000252610663646452015453 0ustar segresegre subroutine sclmz (rho, lmaxp1, mmaxp1, ileg) implicit double precision (a-h, o-z) c Set CLM(Z) for current leg. c Makes clm(z) (eq B11). Fills array clmi in /clmz/ for ileg, c elements clm(0,0) -> clm(lmax+1,mmax+1). c If mmaxp1 > lmaxp1, fills m only to lmaxp1. c calculates energy dependent factors c c(il,im) = c_l^(m)z**m/m! = c_lm by recursion c c_l+1,m = c_l-1,m-(2l+1)z(c_l,m-c_l,m-1, l ne m c c_m,m = (-z)**m (2m)!/(2**m m!) with z = 1/i rho c c To test pw approx, set z = 0 include 'const.h' include 'dim.h' include 'clmz.h' complex*16 rho(legtot) complex*16 z, cmm cmm = 1 z = -coni / rho(ileg) clmi(1,1,ileg) = (1,0) clmi(2,1,ileg) = clmi(1,1,ileg) - z lmax = lmaxp1-1 do 10 il = 2, lmax clmi(il+1,1,ileg) = 1 clmi(il-1,1,ileg) - z*(2*il-1)*clmi(il,1,ileg) 10 continue mmxp1 = min (mmaxp1, lmaxp1) do 20 im = 2, mmxp1 m = im-1 imp1 = im+1 cmm = -cmm * (2*m-1) * z clmi(im,im,ileg) = cmm clmi(imp1,im,ileg) = cmm * (2*m+1) * (1-im*z) do 20 il = imp1, lmax l = il-1 clmi(il+1,im,ileg) = clmi(l,im,ileg) - 1 (2*l+1) * z * (clmi(il,im,ileg) + clmi(il,m,ileg)) 20 continue return end ifeffit-1.2.11d/src/feff6/exchan.f0000644000175000017500000000111510663646452015562 0ustar segresegre double precision function exchan (d,dr,dexv) implicit double precision (a-h,o-z) save c dexv=0.0, hedin-barth corr. and exch. potential c dexv.ne. 0.0, dexv*slater exchange potential c d=4pi*rho*r^2 , radial density for r=dr c this function calculates exch=-r*Vexch c 105.27578=32*(pi^2)/3 c comments added by j. mustre 8/27/87 if (dexv.eq.0.0) go to 10 exchan=3.0*dexv*((dr*d/105.27578)**(1.0/3.0)) return 10 continue rrs=(d/(3.0*dr**2))**.33333333333 exchan=+0.5*(1.22177412*rrs+.0504*log(30.0*rrs+1.0))*dr return end ifeffit-1.2.11d/src/feff6/ffq.f0000644000175000017500000000063610663646452015077 0ustar segresegre double precision function ffq (q, ef, xk, wp, alph) implicit double precision (a-h,o-z) c input: q, wp, alph, ef, xk c q is dimensionless, normalized to fermi momentum c xk is momentum in invBohrs c output: ffq only wq = sqrt (wp**2 + alph*q**2 + q**4) ffq = (wp+wq)/(q**2) + alph/(2*wp) ffq = ((ef*wp) / (4*xk)) * log(ffq) return end ifeffit-1.2.11d/src/feff6/rhl.f0000644000175000017500000000725310663646452015112 0ustar segresegre subroutine rhl (rs, xk, erl, eim) implicit double precision (a-h, o-z) c input: rs, xk c output: erl, eim c This is a new hl subroutine, using interpolation for the c real part while the imaginary part is calculated analytically. c It uses hl to calculate values at the mesh points for the inter- c polation of the real part. The imaginary part is calculated c using subroutine imhl. c c written by jose mustre c polynomial in rs has a 3/2 power term. j.m. c for the right branch the interpolation has the form: c hl(rs,x) = e/x + f/x**2 + g/x**3 c where e is known and c f = sum (i=1,3) ff(i) rs**(i+1)/2 c g = sum (i=1,3) gg(i) rs**(i+1)/2 c c c lrs=number of rs panels, in this case one has 4 panels c nrs=number of standard rs values, also order of rs expansion c if you change nrs you need to change the expansion of hl c in powers of rs that only has 3 terms! c nleft=number of coefficients for xx0 parameter (lrs=4, nrs=3, nleft=4, nright=2) include 'const.h' dimension cleft(nleft), cright(nright) save rcfl, rcfr dimension rcfl(lrs,nrs,nleft), rcfr(lrs,nrs,nright) data rcfr/-0.173963d+00,-0.173678d+00,-0.142040d+00,-0.101030d+00, 1 -0.838843d-01,-0.807046d-01,-0.135577d+00,-0.177556d+00, 2 -0.645803d-01,-0.731172d-01,-0.498823d-01,-0.393108d-01, 3 -0.116431d+00,-0.909300d-01,-0.886979d-01,-0.702319d-01, 4 0.791051d-01,-0.359401d-01,-0.379584d-01,-0.419807d-01, 5 -0.628162d-01, 0.669257d-01, 0.667119d-01, 0.648175d-01/ data rcfl/ 0.590195d+02, 0.478860d+01, 0.812813d+00, 0.191145d+00, 1 -0.291180d+03,-0.926539d+01,-0.858348d+00,-0.246947d+00, 2 0.363830d+03, 0.460433d+01, 0.173067d+00, 0.239738d-01, 3 -0.181726d+03,-0.169709d+02,-0.409425d+01,-0.173077d+01, 4 0.886023d+03, 0.301808d+02, 0.305836d+01, 0.743167d+00, 5 -0.110486d+04,-0.149086d+02,-0.662794d+00,-0.100106d+00, 6 0.184417d+03, 0.180204d+02, 0.450425d+01, 0.184349d+01, 7 -0.895807d+03,-0.318696d+02,-0.345827d+01,-0.855367d+00, 8 0.111549d+04, 0.156448d+02, 0.749582d+00, 0.117680d+00, 9 -0.620411d+02,-0.616427d+01,-0.153874d+01,-0.609114d+00, 1 0.300946d+03, 0.109158d+02, 0.120028d+01, 0.290985d+00, 2 -0.374494d+03,-0.535127d+01,-0.261260d+00,-0.405337d-01/ c c calculate hl using interpolation coefficients rkf = fa/rs ef = rkf**2/2 wp = sqrt (3/rs**3) call imhl (rs, xk, eim, icusp) c eim already has a factor of ef in it j.m. c eim also gives the position of the cusp xx = xk / rkf c set to fermi level if below fermi level if (xx .lt. 1.00001) then xx = 1.00001 endif c calculate right hand side coefficients if (rs .lt. 0.2) then mrs=1 elseif (rs .lt. 1.0) then mrs=2 elseif (rs .lt. 5.0) then mrs=3 else mrs=4 endif do 210 j=1,nright cright(j) = rcfr(mrs,1,j)*rs + rcfr(mrs,2,j)*rs*sqrt(rs) 1 + rcfr(mrs,3,j)*rs**2 210 continue eee=-pi*wp/(4*rkf*ef) if (icusp .ne. 1) then do 230 j=1,nleft cleft(j) = rcfl(mrs,1,j)*rs + rcfl(mrs,2,j)*rs**1.5 1 + rcfl(mrs,3,j)*rs**2 230 continue erl=cleft(1) do 250 j=2,nleft erl=erl+cleft(j)*xx**(j-1) 250 continue else c right branch erl=eee/xx do 280 j=1,nright erl=erl+cright(j)/xx**(j+1) 280 continue endif erl = erl * ef return end ifeffit-1.2.11d/src/feff6/mkptz.f0000644000175000017500000000556010663646452015471 0ustar segresegre subroutine mkptz c makes polarization temsor ptz if necessary implicit double precision (a-h, o-z) c all input and output through common area /pol/ include 'pola.h' include 'const.h' c addittonal local stuff to create polarization tensor ptz(i,j) real e2(3) complex*16 e(3),eps,epc dimension eps(-1:1),epc(-1:1) character*128 messag c Begin to make polarization tensor c Normalize polarization vector x = sqrt (evec(1)**2 + evec(2)**2 + evec(3)**2) if (x .eq. 0.0) then call fstop( $ ' at MKPTZ: Polarization vector has zero length') endif do 290 i = 1, 3 evec(i) = evec(i) / x 290 continue if (elpty .eq. 0.0) then c run linear polarization code do 291 i = 1, 3 ivec(i) = 0.0 291 continue endif x = sqrt (ivec(1)**2 + ivec(2)**2 + ivec(3)**2) if (x .gt. 0) then c run elliptical polarization code do 293 i = 1, 3 ivec(i) = ivec(i) / x 293 continue x = evec(1)*ivec(1)+evec(2)*ivec(2)+evec(3)*ivec(3) 2935 format(1x,a,3g14.5) if (abs(x) .gt. 0.9) then write(messag,2935) ' polarization ', $ evec(1), evec(2), evec(3) call echo(messag) write(messag,2935) ' incidence ', $ ivec(1), ivec(2), ivec(3) call fstop(' at MKPTZ: Polarization '// $ 'almost parallel to the incidence') endif if (x .ne. 0.0) then c if ivec not normal to evec then make in normal, keeping the c plane based on two vectors do 294 i = 1,3 ivec(i) = ivec(i) - x*evec(i) 294 continue x = sqrt (ivec(1)**2 + ivec(2)**2 + ivec(3)**2) do 295 i = 1, 3 ivec(i) = ivec(i) / x 295 continue endif else elpty = 0.0 endif e2(1) = ivec(2)*evec(3)-ivec(3)*evec(2) e2(2) = ivec(3)*evec(1)-ivec(1)*evec(3) e2(3) = ivec(1)*evec(2)-ivec(2)*evec(1) do 296 i = 1,3 e(i) = (evec(i)+elpty*e2(i)*coni) 296 continue eps(-1) = (e(1)-coni*e(2))/sqrt(2.0) eps(0) = e(3) eps(1) = -(e(1)+coni*e(2))/sqrt(2.0) do 297 i = 1,3 e(i) = (evec(i)-elpty*e2(i)*coni) 297 continue epc(-1) = (e(1)-coni*e(2))/sqrt(2.0) epc(0) = e(3) epc(1) = -(e(1)+coni*e(2))/sqrt(2.0) do 298 i = -1,1 do 298 j = -1,1 c ptz(i,j) = ((-1.0)**i)*epc(-i)*eps(j)/(1+elpty**2) c above - true polarization tensor for given ellipticity, c below - average over left and right in order to have c path reversal simmetry ptz(i,j) = ((-1.0)**i)*(epc(-i)*eps(j)+eps(-i)*epc(j)) 1 /(1+elpty**2)/2.0 298 continue c end of making polarization tensor return end ifeffit-1.2.11d/src/feff6/feffbd.f0000644000175000017500000000561710663646452015543 0ustar segresegre block data feffbd implicit double precision (a-h, o-z) character*10 shole(0:9) character*8 sout(0:6) common /labels/ shole, sout include 'vers.h' c character*12 vfeff, vpotph, vpaths, vgenfm, vff2ch c common /vers/ vfeff, vpotph, vpaths, vgenfm, vff2ch data shole /'no hole', 'K shell', 1 'LI shell', 'LII shell', 2 'LIII shell', 'MI shell', 3 'MII shell', 'MIII shell', 4 'MIV shell', 'MV shell'/ data sout /'H-L exch', 'D-H exch', 'Gd state', 1 'DH - HL ', 'DH + HL ', 'HLnoimag', 'Gs HL '/ c 123456789012 data vfeff /' Feff 6.02l'/ data vpotph /' potph 4.12'/ data vpaths /' paths 3.05'/ data vgenfm /' genfmt 1.44'/ data vff2ch /' ff2chi 2.01'/ c 6.01l EXAFS only lite version 10/02 jjr c 5.05a is current working version c 5.05j is jjr's version 6/93 c 6.00 Alexey's polarization and XANES c 6.01 Release version of FEFF6 including bug fixes ala and jjr c 4.04 Major code reorganization. Muffin tin finder modified -- now c uses average of all possible muffin tin radii instead of minimum. c 26 March, 1991 Steven Zabinsky c 4.05 Yet another improvement to muffin tin finder, now averages c based on volume of lense-shaped overlapping region, April, 1991 c 4.06 Bug fix in sumax, april 1991 c 4.07 Several minor changes involving non-standard F77 6/6/91, siz c 4.08 ION card added 7/24/91, siz c 4.08a, bug in header for ION card fixed 9/10/91, siz c 4.09, quinn correction added to imhl, interstitial calculation c corrected, rmt modified to handle too few neighbors and c error msg in phase about hard test in fovrg modified, c folp card added c POTPH 4.1 Same as feff4.09, but version hacked to work with c module potph of feff5, Mar 1992, siz c c new version common added, siz, Mar 1992 c feff 5.03, first 'real' release, lots of little changes. c 4 criteria added is the big change. siz, April 1992 c feffx 5.04, intermediate intermittent version of code with c background, xsect, xmu, timereversal, lots c of input cards, xanes, etc. July 1992, siz c e REQUIRE card removed, Oct 92, siz c f, and paths 3.04, new crits, 9 points. Oct 92 c g: major bug in xsect - ixc not passed to xcpot, beginning with c 5.04g, it's fixed. c h use gs for xsect (hard coded) c i fixed init and final state mixup in xsect c Feff 5.05, release version with all of the above in it. XANES c is turned off in RDINP for the release -- turn it back on c there for development. c Feff 6 includes polarization (Alexey) and XANES (Steve Z.) c Feff 6.01 is the first release version of FEFF6. c Feff 6.01l EXAFS only lite version 10/02 jjr end ifeffit-1.2.11d/src/feff6/pola.h0000644000175000017500000000026010663646452015251 0ustar segresegrec global polarization data logical pola double precision evec,ivec,elpty complex*16 ptz common /pol/ evec(3), ivec(3), elpty, ptz(-1:1,-1:1), pola ifeffit-1.2.11d/src/feff6/wphase.f0000644000175000017500000000261310663646452015607 0ustar segresegre subroutine wphase (nph, em, eref, lmax, ne, ph) c Writes phase data to file PHASExx.DAT for each shell implicit double precision (a-h, o-z) include 'dim.h' complex*16 eref(nex) complex*16 ph(nex,ltot+1,0:nphx) dimension em(nex) dimension lmax(0:nphx) character*30 fname c Dump phase data, eref and complex phase for each shell do 260 iph = 0, nph c prepare file for shell's phase data write(fname,242) iph 242 format('phase', i2.2, '.dat') open (unit=1, file=fname, status='unknown', iostat=ios) call chopen (ios, fname, 'wphase') call wthead (1) c write out unique pot and lmax write(1,244) iph, lmax(iph), ne 244 format (1x, 3i4, ' unique pot, lmax, ne ') c for each energy c ie, em, eref, p=sqrt(em-eref) c ph array to ltot+1, 5 values per line do 250 ie = 1, ne xp = sqrt(em(ie) - eref(ie)) write(1,246) ie, em(ie), eref(ie), sqrt(em(ie)-eref(ie)) 246 format (' ie energy re(eref)', 1 ' im(eref)', 2 ' re(p) im(p)', /, 3 1x, i4, 1p, 5e14.6) write(1,248) (ph(ie,ll,iph), ll=1,lmax(iph)+1) 248 format (1x, 1p, 4e14.6) 250 continue close(unit=1) 260 continue return end ifeffit-1.2.11d/src/feff6/cdsld.f0000644000175000017500000001462410663646452015416 0ustar segresegre subroutine cdsld implicit double precision (a-h,o-z) save common /print/ iprint common /atomco/ den(30), dq1(30), dfl(30), ws, nqn(30), nql(30), 1 nk(30), nmax(30), nel(30), norb, norbco common /dira/ dv(251), dr(251), dp(251), dq(251), dpas, tets, 1 z, nstop, nes, np, nuc common /deux/ dvn(251), dvf(251), d(251), dc(251), dgc(251,30), 1 dpc(251,30) c titre = identification of the wave functions s,p*,p,........ character*40 ttl character*2 titre common /char/ titre(30), ttl c -- This read commented out to make input easier, not used for c PHASE calculations irm = 0 ins = 0 npun = 0 nmfg = 0 nmrk = 0 c read (5,10) irm,ins,npun,nmfg,nmrk 10 format (8i3) c valeurs moyennes de r**j if irm non-zero c tabulation of the wave functions if ins non-zero c the potential multiplied by r is perfore if npun non-zero if (irm.eq.0) go to 200 if (iprint .ge. 5) write(16,20) ttl 20 format (1h1,40x,a40,/) 30 read (5,10) j,l,n1,l1,j1,n2,l2,j2 if (l.eq.0) go to 200 c valeur moyenne of (p1*p2+q1*q2)*r**j if l positive c valeur moyenne of (p1*q2+p2*q1)*r**j if l negative if (n1.gt.0) go to 40 if (((n1+1)*(n1+2)).ne.0) go to 60 i1=1 i2=1 go to 80 40 i1=0 i2=0 do 50 i=1,norb if (nqn(i).eq.n1.and.nql(i).eq.l1.and.(j1-1).eq.(-nk(i)/iabs(nk(i) 1 ))) i1=i if (nqn(i).eq.n2.and.nql(i).eq.l2.and.(j2-1).eq.(-nk(i)/iabs(nk(i) 1 ))) i2=i 50 continue if (i1.ne.0.and.i2.ne.0) go to 80 60 if (iprint .ge. 5) write(16,70) j,l,n1,l1,j1,n2,l2,j2 70 format (1h0,' error for the card ',8i3) go to 30 80 dval=dfl(i1)+dfl(i2) if ((dval+j).gt.-1.0) go to 90 if (n1) 170,170,60 90 im=nmax(i1) if (nmax(i2).lt.im) im=nmax(i2) if (l.lt.0) go to 110 do 100 i=1,im dv(i)=dgc(i,i1)*dgc(i,i2) 100 dq(i)=dpc(i,i1)*dpc(i,i2) go to 130 110 do 120 i=1,im dv(i)=dgc(i,i1)*dpc(i,i2) 120 dq(i)=dgc(i,i2)*dpc(i,i1) 130 call somm (dr,dv,dq,dpas,dval,j,im) if (l.lt.0) go to 150 if (iprint .ge. 5) write(16,140) j,nqn(i1),titre(i1),nqn(i2), 1 titre(i2),dval 140 format (24x,'(p1p2+q1q2)r**',i2,' for ',i1,a2,i3,a2,5x,'=',1pe14. 1 7,/) go to 170 150 if (iprint .ge. 5) write(16,160) j,nqn(i1),titre(i1),nqn(i2), 1 titre(i2),dval 160 format (24x,'(p1q2+q1p2)r**',i2,' for ',i1,a2,i3,a2,5x,'=',1pe14. 1 7,/) 170 if (n1+1) 190,180,30 180 i1=i1+1 i2=i1 if (i1-norb) 80,80,30 190 i2=i2+1 if (i2-norb) 80,80,180 200 if (ins.eq.0) go to 260 do 250 i=1,norb,3 j=i+2 if (j.gt.norb) j=norb im=0 do 210 l=i,j if (nmax(l).gt.im) im=nmax(l) 210 continue do 230 k=1,im if (((k-1)*(k-48*(k/48))).ne.0) go to 230 if (iprint .ge. 5) write(16,20) ttl if (iprint .ge. 5) write(16,220) (nqn(l),titre(l),nqn(l), 1 titre(l),l=i,j) 220 format (9x,'r',14x,3(i1,a2,'g.c.',i11,a2,'p.c.',10x)) 230 if (iprint .ge. 5) write(16,240) dr(k), 1 (dgc(k,l),dpc(k,l),l=i,j) 240 format (7(1pe17.7)) 250 continue 260 if (npun.eq.0) go to 300 do 270 i=1,np 270 dp(i)=dvf(i)*dr(i) c write(8,280) ttl 280 format (a40) c write(8,290) (dp(i),i=1,np) 290 format (8f9.4) 300 do 310 i=1,np 310 d(i)=0.0 nag=1 if (nmfg.eq.0) go to 470 if (iprint .ge. 5) write(16,20) if (iprint .ge. 5) write(16,320) 320 format (/,30x,'integrales magnetiques directes et d echange'//) 330 read (5,10) i1,i2,n1 if (i1.le.0) go to 470 if (i2.gt.0) go to 350 if (((i2+1)*(i2+2)).ne.0) go to 340 if (n1.le.0) n1=1 i1=n1 n1=i2 i2=i1 go to 360 340 if (iprint .ge. 5) write(16,70) i1,i2,n1 go to 330 350 if (i1.gt.norb.or.i2.gt.norb) go to 340 n1=1 360 j1=2*iabs(nk(i1))-1 j2=2*iabs(nk(i2))-1 kma=min0(j1,j2) nm=nmax(i2) do 380 j=1,kma,2 call ykdir (i1,i1,j,nag) do 370 i=1,nm 370 dp(i)=dq(i)*dgc(i,i2)*dpc(i,i2) dval=j+1 call somm (dr,d,dp,dpas,dval,-1,nm) 380 if (iprint .ge. 5) write(16,390) j,nqn(i1),titre(i1),nqn(i2), 1 titre(i2),dval 390 format (20x,'fm',i2,' (',i1,a2,',',i1,a2,') =',1pe14.7) if (i1.eq.i2) go to 440 j1=(iabs(1-2*nk(i1))-1)/2 j2=(iabs(1-2*nk(i2))-1)/2 kma=max0(nql(i1)+j2,nql(i2)+j1) j1=iabs(nql(i2)-j1) j2=iabs(nql(i1)-j2) kmi=min0(j1,j2) j1=kmi+nql(i1)+nql(i2) j1=j1-2*(j1/2) if (j1.eq.0) kmi=kmi+1 nm=min0(nmax(i1),nmax(i2)) do 420 j=kmi,kma,2 call ykdir (i1,i2,j,nag) do 400 i=1,nm dp(i)=dq(i)*dgc(i,i1)*dpc(i,i2) 400 dc(i)=dq(i)*dgc(i,i2)*dpc(i,i1) dval=j+1 dvalp=dval dvalm=dval call somm (dr,d,dp,dpas,dvalp,-1,nm) call somm (dr,d,dc,dpas,dval,-1,nm) call ykdir (i2,i1,j,nag) do 410 i=1,nm 410 dp(i)=dq(i)*dgc(i,i2)*dpc(i,i1) call somm (dr,d,dp,dpas,dvalm,-1,nm) 420 if (iprint .ge. 5) write(16,430) j,nqn(i1),titre(i1),nqn(i2), 1 titre(i2),dvalm,dval,dvalp 430 format (' gm',i2,' (',i1,a2,',',i1,a2,')',5x,'(-1)=',1pe14.7,5x,'( 10)=',1pe14.7,5x,'(+1)=',1pe14.7) 440 if (n1+1) 460,450,330 450 i1=i1+1 i2=i1 if (i1-norb) 360,360,330 460 i2=i2+1 if (i2-norb) 360,360,450 470 if (nmrk.eq.0) go to 530 if (iprint .ge. 5) write(16,20) if (iprint .ge. 5) write(16,480) 480 format (/,20x,'integrales magnetiques rk=integrale de p1(1)*q2(1)* 1uk(1,2)*p3(2)*q4(2)'//) 490 read (5,10) i1,i2,i3,i4,k if (i1.le.0) go to 530 if (i1.le.norb.and.i2.gt.0.and.i2.le.norb.and.i3.gt.0.and.i3.le 1 .norb.and.i4.gt.0.and.i4.le.norb.and.k.ge.0) go to 500 if (iprint .ge. 5) write(16,70) i1,i2,i3,i4,k go to 490 500 call ykdir (i1,i2,k,nag) do 510 i=1,np 510 dp(i)=dq(i)*dgc(i,i3)*dpc(i,i4) dval=k+1 call somm (dr,d,dp,dpas,dval,-1,np) if (iprint .ge. 5) write(16,520) k,nqn(i1),titre(i1),nqn(i2), 1 titre(i2),nqn(i3),titre(i3),nqn(i4),titre(i4),dval 520 format (20x,'rm',i2,' (',i1,a2,',',i1,a2,',',i1,a2,',',i1,a2,') =' 1 ,1pe14.7) go to 490 530 return end ifeffit-1.2.11d/src/feff6/ccrit.f0000644000175000017500000000551710663646452015432 0ustar segresegre subroutine ccrit (npat, ipat, ckspc, 1 fbetac, rmax, pcrith, pcritk, nncrit, ipotnn, ipot, 2 rpath, lheap, lkeep, xcalcx) c lheap to add to heap, lkeep if keep path at output. c NB, if lheap is false, lkeep is not used (since path c won't be in the heap). include 'const.h' include 'dim.h' logical lheap, lkeep dimension ipat(npatx) dimension ipot(0:natx) parameter (necrit=9, nbeta=40) dimension fbetac(-nbeta:nbeta,0:npotx,necrit), ckspc(necrit) c local variables dimension ri(npatx+1), beta(npatx+1), indbet(npatx+1) c mrb is efficient way to get only ri and beta c note that beta is cos(beta) call mrb (npat, ipat, ri, beta) rpath = 0 do 300 i = 1, npat+1 rpath = rpath + ri(i) 300 continue c If we can decide only on rpath, do it here... if (rpath .gt. rmax) then lheap = .false. lkeep = .false. return endif c If last atom central atom, do put in heap, don't use it c as an actual path at output if (ipat(npat).eq.0) then lheap = .true. lkeep = .false. return endif c Make index into fbetac array (this is nearest cos(beta) grid c point, code is a bit cute [sorry!], see prcrit for grid). do 290 i = 1, npat+1 tmp = abs(beta(i)) n = tmp / 0.025 del = tmp - n*0.025 if (del .gt. 0.0125) n = n+1 if (beta(i) .lt. 0) n = -n indbet(i) = n 290 continue c Decide if we want the path added to the heap if necessary. c (Not necessary if no pcrith in use.) if (pcrith .gt. 0) then call mcrith (npat, ipat, ri, indbet, 1 ipot, nncrit, fbetac, ckspc, xheap) c xheap = -1 if not defined for this path (too few legs, etc.) if (xheap .ge. 0 .and. xheap .lt. pcrith) then c Do not want path in heap lheap = .false. lkeep = .false. return endif endif c Keep this path in the heap lheap = .true. c We may want path in heap so that other paths built from this c path will be considered, but do not want this path to be c written out for itself. Decide that now and save the flag c in the heap, so we won't have to re-calculate the mpprm c path parameters later. c Skip calc if pcritk < 0 if (pcritk .le. 0) then lkeep = .true. return endif c Make xout, output inportance factor. call mcritk (npat, ipat, ri, beta, indbet, 1 ipot, nncrit, fbetac, ckspc, xout, xcalcx) c See if path wanted for output c Do not want it if last atom is central atom (xout = -1) or c if xout is too small lkeep = .false. if (xout .ge. pcritk) lkeep = .true. return end ifeffit-1.2.11d/src/feff6/heap.f0000644000175000017500000000312610663646452015235 0ustar segresegrec These heap routines maintain a heap (array h) and an index c array (array ih) used to keep other data associated with the heap c elements. subroutine hup (h, ih, n) c heap is in order except for last element, which is new and must c be bubbled through to its proper location c new element is at i, j = index of parent integer n,i,j integer ih(n) dimension h(n) i = n 10 j = i/2 c if no parent, we're at the top of the heap, and done if (j .eq. 0) return if (h(i) .lt. h(j)) then call swap (h(i), h(j)) call iswap (ih(i), ih(j)) i = j goto 10 endif return end subroutine hdown (h, ih, n) c h is in order, except that 1st element has been replaced. c Bubble it down to its proper location. New element is i, c children are j and k. integer n,i,j,k integer ih(n) dimension h(n) i = 1 10 continue j = 2*i k = j + 1 c if j > n, new element is at bottom, we're done if (j .gt. n) return c handle case where new element has only one child if (k .gt. n) k = j if (h(j) .gt. h(k)) j = k c j is now index of smallest of children if (h(i) .gt. h(j)) then call swap (h(i), h(j)) call iswap (ih(i), ih(j)) i = j goto 10 endif return end subroutine swap (a, b) t = a a = b b = t return end subroutine iswap (i, j) integer i,j,k k = i i = j j = k return end ifeffit-1.2.11d/src/feff6/setlam.f0000644000175000017500000001056210663646452015607 0ustar segresegre subroutine setlam (icalc, ie) implicit double precision (a-h, o-z) c Set lambda array based on icalc and ie c icalc what to do c 0 i0, ss exact c 1 i1, ss exact c 2 i2, ss exact c 10 cute algorithm c <0 do exactly as told, decode as: c icalc = -(nmax + 100*mmax + 10 000*(iord+1)) c Note that iord=0 <=> nmax=mmax=0, so use c icalc = -10 000 for this case. c iord = 2*nmax + mmax, so if you want iord to control, c set nmax and mmax large enough-- if you want nmax and c mmax to control, set iord = 2*nmax + mmax... c inputs: ie used for cute algorithm c nsc used from /pdata/ to recognize ss paths c output: variables in /lambda/ set include 'const.h' include 'dim.h' include 'lambda.h' include 'pdata.h' dimension mlam0(lamtot), nlam0(lamtot) character messag*128 c one degree in radians parameter (onedeg = .01745329252) c Set iord, nmax and mmax based on icalc if (icalc .lt. 0) then c decode it and do what user wants icode = -icalc nmax = mod(icode,100) mmax = mod(icode,10000)/100 iord = icode/10000 -1 elseif (nsc .eq. 1) then mmax = il0-1 nmax = il0-1 iord = 2*nmax + mmax elseif (icalc .lt. 10) then iord = icalc mmax = iord nmax = iord/2 elseif (icalc .eq. 10) then c do cute algorithm c set mmax = L0 if straight line path, otherwise set mmax = 3 mmax = il0-1 do 10 ileg = 1, nleg mag1 = abs(beta(ileg)) mag2 = abs(mag1 - pi) c if beta is not 0 or pi, path is non-linear if (mag1.gt.onedeg .and. mag2.gt.onedeg) mmax = 3 10 continue c Set nmax based on ie and l0. c k <= 12 invA (ie=41) nmax = L0 c k >= 13 invA (ie=42) nmax = 9 nmax = il0-1 if (ie .ge. 42) nmax = 9 iord = 2*nmax + mmax else write(messag,'(1x,a,i7)') ' icalc out of range ', icalc call echo(messag) call fstop('at SETLAM') endif c-----construct index lambda (lam), (mu, nu) = mlam(lam), nlam(lam) c lamtot, ntot, mtot are maximum lambda, mu and nu to consider c Use ...0 for making indices, then sort into arrays with no c trailing 0 so laml0x is minimimized. (note: this is a crude c n**2 sort -- can 'improve' to nlog_2(n) if necessary) lam = 0 do 20 in = 1, nmax+1 n = in - 1 do 20 im = 1, mmax+1 m = im-1 jord = 2*n+m if (jord .gt. iord) goto 20 if (lam .ge. lamtot) then call echo('Lambda array filled, some order lost') goto 21 endif lam = lam+1 mlam0(lam) = -m nlam0(lam) = n if (m .eq. 0) goto 20 if (lam .ge. lamtot) then call echo('Lambda array filled, some order lost') goto 21 endif lam = lam+1 mlam0(lam) = m nlam0(lam) = n 20 continue 21 continue lamx=lam c lamx must be less than lamtot if (lamx .gt. lamtot) $ call fstop(' at SETLAM lamx > lamtot') c laml0x is biggest lam for non-zero fmatrix, also set mmax and nmax c Sort mlam0 and nlam0 to use min possible laml0x lam = 0 do 30 lam0 = 1, lamx if ((nlam0(lam0).le.l0) .and. (iabs(mlam0(lam0)).le.l0)) then lam = lam+1 nlam(lam) = nlam0(lam0) mlam(lam) = mlam0(lam0) nlam0(lam0) = -1 endif 30 continue laml0x = lam do 40 lam0 = 1, lamx if (nlam0(lam0) .ge. 0) then lam = lam+1 nlam(lam) = nlam0(lam0) mlam(lam) = mlam0(lam0) endif 40 continue mmaxp1 = 0 nmax = 0 do 50 lam = 1, lamx if (mlam(lam)+1 .gt. mmaxp1) mmaxp1 = mlam(lam)+1 if (nlam(lam) .gt. nmax) nmax = nlam(lam) 50 continue if (nmax.gt.ntot .or. mmaxp1.gt.mtot+1) then call echo(' mmaxp1, nmax, mtot, ntot icalc') write(messag,'(3x,5i8)') 1 mmaxp1, nmax, mtot, ntot, icalc call echo(messag) call fstop(' at SETLAM') endif return end ifeffit-1.2.11d/src/feff6/pathsd.f0000644000175000017500000003031410663646452015602 0ustar segresegre subroutine pathsd (ckspc, fbetac, ne, ik0, cksp, fbeta, 1 critpw, ipotnn, ipr2, 1 pcritk, pcrith, nncrit, potlbl) c New degeneracy checker, cute and hopefully fast for large c problems c pcritk and pcrith used only for analysis after outcrt include 'const.h' include 'dim.h' include 'pola.h' common /atoms/ rat(3,0:natx), ipot(0:natx), i1b(0:natx) c np1x number of paths to consider at 1 time parameter (np1x = 40 000) c parameter (np1x = 60 000) dimension iout(3,np1x), iout0(3) dimension index(np1x) double precision dhash(np1x), dcurr, ddum dimension rx(npatx), ry(npatx), rz(npatx), ipat(npatx+1) dimension rx0(npatx), ry0(npatx), rz0(npatx), ipat0(npatx+1) double precision rid(npatx+1), betad(npatx+1), etad(npatx+1) parameter (nheadx = 40) character*80 head(nheadx) dimension lhead(nheadx) character*6 potlbl(0:npotx) character*128 messag c eps5 for rtotal range, eps3 for individual leg parameters. c eps3 large since code single precision and don't want round-off c error to reduce degeneracy. parameter (eps5 = 2.0e-5) parameter (eps3 = 2.0e-3) logical ldiff, last parameter (necrit=9, nbeta=40) real fbetac(-nbeta:nbeta,0:npotx,necrit), ckspc(necrit) real fbeta(-nbeta:nbeta,0:npotx,nex), cksp(nex) write(messag,30) critpw call echo(messag) 30 format (' Plane wave chi amplitude filter', f7.2, '%') c Read atoms info open (file='paths.bin', unit=3, access='sequential', 1 form='unformatted', status='old', iostat=ios) call chopen (ios, 'paths.bin', 'pathsd') read(3) nhead do 40 ihead = 1, nhead read(3) head(ihead) read(3) lhead(ihead) 40 continue c Header lines above include carriage control read(3) nat do 50 i = 0, nat read(3) (rat(j,i),j=1,3), ipot(i), i1b(i) 50 continue c Initialize stuff... c nptot number of total paths, incl all degeneracies c nuptot number of unique paths for which must calc xafs c ngs number of generalized shells (unique distances) nptot = 0 nuptot = 0 ngs = 0 xportx = eps5 ndegx = 1 c0lim = 1.0e10 c1lim = 1.0e10 c Initialize keep criterion xcalcx = -1 c write output to paths.dat if (ipr2 .ne. 5) then open (unit=1, file='paths.dat', status='unknown', iostat=ios) call chopen (ios, 'paths.dat', 'pathsd') do 60 ihead = 1, nhead write(1,58) head(ihead)(1:lhead(ihead)) 58 format(a) 60 continue write(1,61) critpw 61 format (' Plane wave chi amplitude filter', f7.2, '%') write(1,62) 62 format (1x, 79('-')) endif c Write crit.dat (criteria information) if (ipr2 .ge. 1) then open (unit=4, file='crit.dat', status='unknown', iostat=ios) call chopen (ios, 'crit.dat', 'pathsd') do 65 ihead = 1, nhead write(4,58) head(ihead)(1:lhead(ihead)) 65 continue write(4,61) critpw write(4,62) write(4,80) 80 format (' ipath nleg ndeg r pwcrit ', 1 'xkeep accuracy xheap accuracy') endif c Read path data for each total path length range c Prepare for first path. read(3,end=999) r0, iout0 c Begin next total path length range last = .false. 100 continue ngs = ngs+1 rcurr = r0 np = 1 do 110 i = 1,3 iout(i,np) = iout0(i) 110 continue 120 read(3,end=140) r0, iout0 if (abs(r0-rcurr) .lt. eps3) then np = np+1 if (np .gt. np1x) then write(messag,'(1x,2a,i8,a)') ' Warning: Pathfinder ', $ 'stopping at ', np1x, ' paths.' call echo(messag) goto 200 endif do 130 i = 1, 3 iout(i,np) = iout0(i) 130 continue else c r0 is the rtot for the next set c iout0 is the packed atom list for the first path of the c next set goto 200 endif goto 120 140 continue c Get here only if end-of-file during read last = .true. 200 continue nupr = 0 c variable nuprtt was nuprtot, changed to be six chars, SIZ 12/93 nuprtt = 0 c Hash each path into an integer iscale = 1000 do 230 ip = 1, np npat = npatx call upack (iout(1,ip), npat, ipat) c Get hash key for this path. c If two paths are the same, except time-reversed, the xafs c will be the same, so check for this type of degeneracy. c We do this by choosing a 'standard order' for a path -- c if it's the other-way-around, we time-reverse here. call timrep (npat, ipat, rx, ry, rz, dhash(ip)) 230 continue c Do a heap sort on these things call sortid (np, index, dhash) c Find beginning and end of range with same hash key c i0 is beginning of hash range, i1 is end of the range i0 = 1 300 continue i1 = np + 1 dcurr = dhash(index(i0)) do 310 ip = i0+1, np if (dhash(index(ip)) .ne. dcurr) then c end of a hash range i1 = ip goto 311 endif 310 continue 311 continue i1 = i1-1 c At this point, i0 is the first path and i1 the last c of a hash range. Do whatever you want with them! c Sum degeneracy, including degeneracy from 1st bounce atom. c Check this range to see if all of the paths are actually c degenerate. Make sure time-ordering is standard. npat0 = npatx call upack (iout(1,index(i0)), npat0, ipat0) call timrep (npat0, ipat0, rx0, ry0, rz0, ddum) ndeg = 0 do 430 ii = i0, i1 npat = npatx call upack (iout(1,index(ii)), npat, ipat) c Note that if path gets time-reversed, we lose 1st bounce c flag (since first atom is now last...), so save path deg ndpath = i1b(ipat(1)) call timrep (npat, ipat, rx, ry, rz, ddum) c Sum degeneracy here. ndeg = ndeg + ndpath c Check for hash collisons begins here. ldiff = .false. if (npat .ne. npat0) then ldiff = .true. goto 430 endif do 320 iat = 1, npat if (ipot(ipat(iat)) .ne. ipot(ipat0(iat))) then ldiff = .true. goto 400 endif 320 continue do 330 ileg = 1, npat if (abs(rx(ileg)-rx0(ileg)) .gt. eps3 .or. 1 abs(ry(ileg)-ry0(ileg)) .gt. eps3 .or. 2 abs(rz(ileg)-rz0(ileg)) .gt. eps3) then ldiff = .true. goto 400 endif 330 continue 400 continue if (ldiff) then call echo(' Pathsd WARNING:') call echo(' two non-degenerate paths hashed '// 1 'to the same hash key!!') write(messag,'(1x,2g14.6)') $ dhash(index(i0)), dhash(index(ii)) call echo(messag) write(messag,'(1x,a,2i8)') ' npat0, npat = ', $ npat0, npat call echo(messag) call echo(' iat, ipot0, ipot, ipat0, ipat') do 410 iat = 1, npat write(messag,'(3x,5i8)') iat, $ ipot(ipat0(iat)), ipot(ipat(iat)), $ ipat0(iat), ipat(iat) call echo(messag) 410 continue call echo(' ileg, rx0,ry0,rz0, rx1,ry1,rz1') 412 format(1x,i7,2f12.6) do 420 ileg = 1, npat write(messag,412) ileg, rx0(ileg), rx(ileg) call echo(messag) write(messag,412) ileg, ry0(ileg), ry(ileg) call echo(messag) write(messag,412) ileg, rz0(ileg), rz(ileg) call echo(messag) 420 continue call fstop(' at PATHSD: hash error') endif 430 continue c Find path pw importance factors, and recalculate c pathfinder crits for output call outcrt (npat0, ipat0, ckspc, 1 nncrit, fbetac, ne, ik0, cksp, fbeta, 1 ipotnn, ipot, 1 xport, xheap, xheapr, xkeep, xcalcx) if (xport*ndeg .gt. xportx*ndegx) then xportx = xport c ndegx is degeneracy of path that makes xportx, used for c testing new path keep crit ndegx = ndeg endif c frac is fraction of max importance to use for test frac = 100*ndeg*xport/(ndegx*xportx) c Write output if path is important enough (ie, path is c at least critpw % important as most important path found c so far.) if (frac .ge. critpw) then nupr = nupr+1 nuprtt = nuprtt+ndeg nptot = nptot + ndeg nuptot = nuptot + 1 c Write path info to paths.dat c mpprmd is double precision, used to get angles c 180.000 instead of 179.983, etc. call mpprmd (npat0, ipat0, rid, betad, etad) c skip paths.dat if not necessary if (ipr2 .eq. 5) goto 576 write(1,500) nuptot, npat0+1, real(ndeg), 1 rcurr/2 500 format (1x, 2i5, f8.3, 1 ' index, nleg, degeneracy, r=', f8.4) write(1,502) 502 format (' x y z ipot ', 1 'label rleg beta eta') do 510 i = 1, npat0 iat = ipat0(i) write(1,506) rat(1,iat), rat(2,iat), 1 rat(3,iat), ipot(iat), potlbl(ipot(iat)), 1 rid(i), betad(i)*raddeg, etad(i)*raddeg 506 format (3f12.6, i4, 1x, '''', a6, '''', 1x, 3f10.4) 510 continue write(1,506) rat(1,0), rat(2,0), rat(3,0), ipot(0), 1 potlbl(ipot(0)), 1 rid(npat0+1), betad(npat0+1)*raddeg, etad(npat0+1)*raddeg c End of paths.dat writing for this path c Write to crit.dat here (unit 4, opened above) 576 continue c cmpk is degeneracy corrected xkeep, should equal frac cmpk = xkeep*ndeg/ndegx c cmpk is accuracy of xkeep, 100 is perfect cmpk = 100 - 100*(abs(frac-cmpk)/frac) c cmph is same thing for xheap if (xheap .lt. 0) then cmph = 100 else cmph = xheap*ndeg/ndegx cmph = 100 - 100*(abs(frac-cmph)/frac) endif if (ipr2 .ge. 1) then write(4,560) nuptot, npat0+1, ndeg, rcurr/2, frac, 1 xkeep, cmpk, xheap, cmph 560 format (i6, i4, i6, 3f10.4, f8.2, f10.4, 1pe14.3) endif c write out fraction error between xkeep and critpw endif c And do next ihash range i0 = i1+1 if (i0 .le. np) goto 300 c print 600, ngs, rcurr, nupr c write(messag,600) c call echo(messag) 600 format (1x, i5, f12.6, i7, ' igs, rcurr, nupr') c write(80,601) ngs, rcurr/2, nupr, nuprtt 601 format (1x, i8, f12.6, 2i9) if (.not. last) goto 100 if (ipr2 .ne. 5) close (unit=1) c delete paths.bin when done... close (unit=3, status='delete') close (unit=4) write(messag, 620) nuptot, nptot call echo(messag) 620 format (' Unique paths', i7, ', total paths', i8) c Do not let user accidently fill up their disk if (nuptot .gt. 10000) then call echo(' You have found more than 10000 paths.') call echo(' To continue this calculation, restart') call echo(' with current paths.dat and at GENFMT') call echo(' 3rd module of CONTROL card') call fstop(' at PATHSD: user must verify large run.') endif return 999 call fstop( ' at PATHSD: no input') end ifeffit-1.2.11d/src/feff6/setgam.f0000644000175000017500000000437310663646452015605 0ustar segresegre subroutine setgam (iz, ihole, gamach) c Sets gamach, core hole lifetime. Data comes from graphs in c K. Rahkonen and K. Krause, c Atomic Data and Nuclear Data Tables, Vol 14, Number 2, 1974. implicit double precision (a-h, o-z) dimension gamk(6), zk(6) dimension gaml1(6), zl1(6) dimension gaml2(6), zl2(6) parameter (ryd = 13.6058) save ienter c Note that 0.99 replaces 1.0, 95.1 replaces 95.0 to avoid roundoff c trouble. c Gam arrays contain the gamma values. c We will take log10 of the gamma values so we can do linear c interpolation from a log plot. data zk / 0.99, 10.0, 20.0, 40.0, 60.0, 95.1/ data gamk / 0.07, 0.3, 0.75, 5.0, 20.0, 100.0/ data zl1 / 0.99, 20.0, 35.0, 50.0, 75.0, 95.1/ data gaml1 / 0.07, 4.0, 7.0, 4.0, 8.0, 19.0/ data zl2 / 0.99, 26.0, 31.0, 60.0, 80.0, 95.1/ data gaml2 / 0.001, 1.7, 0.8, 3.5, 5.0, 10.0/ data ienter /0/ c Call this only once, if it gets called a second time the gamma c values will be messed up by repeated taking of log10 if (ienter .gt. 0) then call fstop(' at SETGAM-1: re-entered SETGAM') endif ienter = 1 if (ihole .le. 0) then call echo(' setgam: no hole, setting gamach=0') return endif if (ihole .gt. 4) then call echo(' Feff6L only does K and L shells') call fstop(' at SETGAM-2') endif zz = iz if (ihole .le. 1) then do 10 i = 1, 6 gamk(i) = log10 (gamk(i)) 10 continue call terp (zk, gamk, 6, zz, gamach) else if (ihole .le. 2) then do 20 i = 1, 6 gaml1(i) = log10 (gaml1(i)) 20 continue call terp (zl1, gaml1, 6, zz, gamach) else if (ihole .le. 4) then c note that LII and LIII have almost exactly the same c core hole lifetimes do 30 i = 1, 6 gaml2(i) = log10 (gaml2(i)) 30 continue call terp (zl2, gaml2, 6, zz, gamach) endif c Change from log10 (gamma) to gamma gamach = 10.0 ** gamach c Table values are in eV, code requires atomic units gamach = gamach / ryd return end ifeffit-1.2.11d/src/feff6/nlm.h0000644000175000017500000000007010663646452015103 0ustar segresegre save /nlm/ common /nlm/ xnlm(ltot+1,mtot+1) ifeffit-1.2.11d/src/feff6/arrays.h0000644000175000017500000000412610663646452015624 0ustar segresegrec Notes: c nat number of atoms in problem c nph number of unique potentials c nfr number of unique free atoms c ihole hole code of absorbing atom c iph=0 for central atom c ifr=0 for central atom c Specific atom input data dimension iphat(natx) !given specific atom, which unique pot? dimension rat(3,natx) !cartesian coords of specific atom c Unique potential input data dimension iatph(0:nphx) !given unique pot, which atom is model? !(0 if none specified for this unique pot) dimension ifrph(0:nphx) !given unique pot, which free atom? dimension xnatph(0:nphx) !given unique pot, how many atoms are there !of this type? (used for interstitial calc) character*6 potlbl(0:nphx) !label for user convienence dimension folp(0:nphx) !overlap factor for rmt calculation dimension novr(0:nphx) !number of overlap shells for unique pot dimension iphovr(novrx,0:nphx) !unique pot for this overlap shell dimension nnovr(novrx,0:nphx) !number of atoms in overlap shell dimension rovr(novrx,0:nphx) !r for overlap shell c Free atom data dimension ion(0:nfrx) !ionicity, input dimension iz(0:nfrx) !atomic number, input c ATOM output c Note that ATOM output is dimensioned 251, all other r grid c data is set to nrptx, currently 250 dimension rho(251,0:nfrx) !density*4*pi dimension vcoul(251,0:nfrx) !coulomb potential c Overlap calculation results dimension edens(nrptx,0:nphx) !overlapped density*4*pi dimension vclap(nrptx,0:nphx) !overlapped coul pot dimension vtot (nrptx,0:nphx) !overlapped total potential c Muffin tin calculation results dimension imt(0:nphx) !r mesh index just inside rmt dimension inrm(0:nphx) !r mesh index just inside rnorman dimension rmt(0:nphx) !muffin tin radius dimension rnrm(0:nphx) !norman radius c PHASE output complex*16 eref(nex) !interstitial energy ref complex*16 ph(nex,ltot+1,0:nphx) !phase shifts dimension lmax(0:nphx) !number of ang mom levels ifeffit-1.2.11d/src/feff6/fmtrxi.f0000644000175000017500000000734110663646452015634 0ustar segresegre subroutine fmtrxi (lam1x, lam2x, ie, iterm, ileg, ilegp) implicit double precision (a-h, o-z) c all commons except for /fmat/ are inputs c inputs: c lam1x, lam2x: limits on lambda and lambda' c ie: energy grid points c iterm = 1 if we're doing the termination matrix M, c -1 otherwise c ileg, ilegp: leg and leg' c c Inputs from common: c phases, use ph(ie,...,ilegp), and lmax(ie,ilegp) c lambda arrays c rotation matrix for ilegp c clmz for ileg and ilegp c path data, eta(ilegp) and ipot(ilegp) c xnlm array c c Output: fmati(...,ilegp) in common /fmatrx/ is set for c current energy point. c calculate scattering amplitude matrices c f(lam,lam') = sum_l tl gam(l,m,n)dri(l,m,m',ileg)gamt(l,m',n') c *cexp(-i*m*eta), eta = gamma+alpha' c lam lt lam1x, lam' lt lam2x such that m(lam) lt l0, n(lam) lt l0 c gam = (-)**m c_l,n+m*xnlm, gamt = (2l+1)*c_ln/xnlm, c gamtl = gamt*tl include 'const.h' include 'dim.h' include 'nlm.h' include 'lambda.h' include 'clmz.h' include 'fmatrx.h' include 'rotmat.h' include 'pdata.h' complex*16 cam, camt, cterm, tltl complex*16 gam(ltot+1,mtot+1,ntot+1), 1 gamtl(ltot+1,mtot+1,ntot+1), tl c calculate factors gam and gamtl iln = 1 ilx = lmax(ie,ipot(ilegp)) + 1 if (iterm .gt. 0) then iln = il0 ilx = il0 endif do 30 il = iln, ilx tltl = 2*il - 1 if (iterm .lt. 0) then tl = (exp(2*coni*ph(ie,il,ipot(ilegp))) - 1) / (2*coni) tltl = tltl * tl endif lam12x = max (lam1x, lam2x) do 20 lam = 1, lam12x m = mlam(lam) if (m .lt. 0) goto 20 im = m+1 if (im .gt. il) goto 20 in = nlam(lam) + 1 imn = in + m if (lam .gt. lam1x) goto 10 cam = xnlm(il,im) * (-1)**m if (imn .le. il) gam(il,im,in) = cam * clmi(il,imn,ileg) if (imn .gt. il) gam(il,im,in) = 0 10 if (lam .gt. lam2x) goto 20 camt = tltl / xnlm(il,im) gamtl(il,im,in) = camt * clmi(il,in,ilegp) 20 continue 30 continue do 60 lam1 = 1,lam1x m1 = mlam(lam1) in1 = nlam(lam1) + 1 iam1 = abs(m1) + 1 do 60 lam2 = 1, lam2x m2 = mlam(lam2) in2 = nlam(lam2) + 1 iam2 = iabs(m2) + 1 imn1 = iam1 + in1 - 1 cterm = 0 ilmin = max (iam1, iam2, imn1, in2, iln) do 40 il = ilmin, ilx c skip terms with mu > l (NB il=l+1, so mu=il is mu>l) if (abs(m1).ge.il .or. abs(m2).ge.il) goto 40 m1d = m1 + mtot+1 m2d = m2 + mtot+1 cterm = cterm + gam(il,iam1,in1)*gamtl(il,iam2,in2) 1 *dri(il,m1d,m2d,ilegp) 40 continue if (eta(ileg) .ne. 0.0) then m1 = mlam(lam1) cterm = cterm * exp(-coni*eta(ileg)*m1) endif c Above was org coding, change to use eta(ilegp) as test c based on algebra check. July 20, 1992, siz&jjr c Changed back with redifinition of eta(see rdpath.f) c which is more convinient in polarization case. c August 8,1993, ala. c if (eta(ilegp) .ne. 0.0) then c m1 = mlam(lam1) c cterm = cterm * exp(-coni*eta(ilegp)*m1) c endif fmati(lam1,lam2,ilegp) = cterm 60 continue c test of fmati(lam,lam',ileg) c plot fmat(lam,lam') = csqrt((z/2)**(m1-m2))*fmat return end ifeffit-1.2.11d/src/feff6/dalp.f0000644000175000017500000000077410663646452015246 0ustar segresegre double precision function dalp (d1,d2,d3,d4) implicit double precision (a-h,o-z) save c c procedure of pratt to accelerate the convergence c d1=initial (n-1); d2=final (n-1); d3=initial (n); d4=final (n); c ********************************************************************** if ((d1+d4).eq.(d2+d3)) go to 10 d=(d4-d2)/((d1+d4)-(d2+d3)) if (d.lt.0.0) go to 20 if (d.lt.0.5) go to 30 10 d=0.5 go to 30 20 d=0.0 30 dalp=d return end ifeffit-1.2.11d/src/feff6/mmtrxi.f0000644000175000017500000000475610663646452015652 0ustar segresegre subroutine mmtrxi (lam1x, mmati, ie, ileg, ilegp) c calculates matrix M in Rehr,Albers paper. c in polarization case implicit double precision (a-h, o-z) c all commons except for /fmat/ are inputs c inputs: c lam1x: limits on lambda and lambda' c ie: energy grid points c ileg, ilegp: leg and leg' c c Inputs from common: c phases, use ph(ie,...,ilegp), and lmax(ie,ilegp) c lambda arrays c rotation matrix for ilegp c clmz for ileg and ilegp c path data, eta(ilegp) and ipot(ilegp) c xnlm array c c Output: fmati(...,ilegp) in common /fmatrx/ is set for c current energy point. c calculate scattering amplitude matrices c f(lam,lam') = sum_l tl gam(l,m,n)dri(l,m,m',ileg)gamt(l,m',n') c *cexp(-i*m*eta), eta = gamma+alpha' c lam lt lam1x, lam' lt lam2x such that m(lam) lt l0, n(lam) lt l0 c gam = (-)**m c_l,n+m*xnlm, gamt = (2l+1)*c_ln/xnlm, c gamtl = gamt*tl include 'const.h' include 'dim.h' include 'nlm.h' include 'lambda.h' include 'clmz.h' include 'pola.h' include 'fmatrx.h' include 'rotmat.h' include 'pdata.h' complex*16 cam, camt, tltl,mmati dimension mmati(-mtot:mtot,-mtot:mtot) complex*16 gam(ltot+1,mtot+1,ntot+1), 1 gamtl(ltot+1,mtot+1,ntot+1) c calculate factors gam and gamtl iln = il0 ilx = il0 do 30 il = iln, ilx tltl = 2*il - 1 do 20 lam = 1, lam1x m = mlam(lam) if (m .lt. 0) goto 20 im = m+1 if (im .gt. il) goto 20 in = nlam(lam) + 1 imn = in + m if (lam .gt. lam1x) goto 10 cam = xnlm(il,im) * (-1)**m if (imn .le. il) gam(il,im,in) = cam * clmi(il,imn,ileg) if (imn .gt. il) gam(il,im,in) = 0 10 if (lam .gt. lam1x) goto 20 camt = tltl / xnlm(il,im) gamtl(il,im,in) = camt * clmi(il,in,ilegp) 20 continue 30 continue do 60 lam1 = 1,lam1x m1 = mlam(lam1) in1 = nlam(lam1) + 1 iam1 = abs(m1) + 1 do 50 lam2 = 1, lam1x m2 = mlam(lam2) in2 = nlam(lam2) + 1 iam2 = iabs(m2) + 1 imn1 = iam1 + in1 - 1 fmati(lam1,lam2,ilegp) = mmati(m1,m2)* 1 gam(il0,iam1,in1)*gamtl(il0,iam2,in2) 50 continue 60 continue return end ifeffit-1.2.11d/src/feff6/fixvar.f0000644000175000017500000000221610663646452015616 0ustar segresegre subroutine fixvar (rmt, edens, vtot, 1 vint, rhoint, nr, dx, x0, ri, 2 vtotph, rhoph) implicit double precision (a-h, o-z) include 'dim.h' include 'const.h' dimension edens(nrptx), vtot (nrptx) dimension vtotph(nr), rhoph(nr) dimension ri(nr) c PHASE needs c vtot = total potential including gs xcorr, no r**2 c edens = rho, charge density, no factor of 4*pi, no r**2 c From overlapping, vtot = potential only, ok as is c edens = density*4*pi, so fix this here. c If new grid is different from old one, be sure to interpolate c somehow... c Only values inside the muffin tin are used, except that XCPOT c (in PHASE) uses values at imt+1 and requires these to be the c interstitial values. So set the last part of the arrays to c interstitial values... imt = ii(rmt) do 190 i = 1, imt vtotph(i) = vtot(i) rhoph(i) = edens(i)/(4*pi) 190 continue do 200 i = imt+1, nrptx vtotph(i) = vint rhoph(i) = rhoint/(4*pi) 200 continue return end ifeffit-1.2.11d/src/feff6/Makefile.unx0000644000175000017500000000156610771740457016430 0ustar segresegre.SUFFIXES: .SUFFIXES: .o .f .f.o: f77 -c $*.f OBJ = feffbd.o atom.o besjn.o bjnser.o ccrit.o cdsld.o \ chopen.o cpl0.o cright.o csomm.o cubic.o dalp.o \ diff.o dirac.o dist.o edp.o exchan.o exchee.o \ exjlnl.o fermi.o ff2chi.o ffq.o fixvar.o fmtrxi.o \ fovrg.o fpot.o frnrm.o genfmt.o getorb.o getxk.o \ head.o heap.o imhl.o indata.o inouh.o inth.o \ intpol.o ipack.o istprm.o istval.o mcrith.o mcritk.o \ mkptz.o mmtr.o mmtrxi.o mpprmd.o mpprmp.o mrb.o \ outcrt.o ovrlp.o paths.o pathsd.o pertab.o phase.o \ phash.o phmesh.o pijump.o potph.o potsl.o potslw.o \ prcrit.o quinn.o rdhead.o rdinp.o rdpath.o renorm.o \ rhl.o rot3i.o rphbin.o rpotph.o sclmz.o sdist.o \ setgam.o setlam.o sidx.o sigms.o snlm.o somm.o \ sortix.o str.o strap.o sumax.o terp.o timrep.o \ totale.o trap.o wphase.o wpot.o xcpot.o \ xx.o ykdir.o feff: feff.o $(OBJ) f77 feff.o $(OBJ) -o feff ifeffit-1.2.11d/src/feff6/sortix.f0000644000175000017500000001102510663646452015645 0ustar segresegre subroutine sortir (n, index, r) c SORT by rearranges Indices, keys are Real numbers c Heap sort, following algorithm in Knuth using r as key c Knuth, The Art of Computer Programming, c Vol 3 / Sorting and Searching, pp 146-7 c Array r is not modified, instead array index is returned c ordered so that r(index(1)) is smallest, etc. c rr is temporary r storage (Knuth's R), irr is index of stored r dimension r(n), index(n) c Initialize index array do 10 i = 1, n index(i) = i 10 continue c only 1 element is already sorted if (n .eq. 1) return c H1: initialize l = n/2 + 1 ir = n c H2: Decrease l or ir 20 continue if (l .gt. 1) then l = l-1 irr = index(l) rr = r(irr) else irr = index(ir) rr = r(irr) index(ir) = index(1) ir = ir-1 if (ir .eq. 1) then index(1) = irr return endif endif c H3: Prepare for sift-up j = l c H4: Advance downward 40 continue i = j j = 2 * j if (j .eq. ir) goto 60 if (j .gt. ir) goto 80 c H5: Find larger son of i if (r(index(j)) .lt. r(index(j+1))) j = j+1 c H6: Son larger than rr? 60 continue if (rr .ge. r(index(j))) goto 80 c H7: Move son up index(i) = index(j) goto 40 c H8: Store rr in it's proper place 80 continue index(i) = irr goto 20 end subroutine sortii (n, index, k) c SORT by rearranges Indices, keys are Integers c Heap sort, following algorithm in Knuth using r as key c Knuth, The Art of Computer Programming, c Vol 3 / Sorting and Searching, pp 146-7 c Array r is not modified, instead array index is returned c ordered so that r(index(1)) is smallest, etc. c rr is temporary r storage (Knuth's R), irr is index of stored r dimension k(n) dimension index(n) c Initialize index array do 10 i = 1, n index(i) = i 10 continue c only 1 element is already sorted if (n .eq. 1) return c H1: initialize l = n/2 + 1 ir = n c H2: Decrease l or ir 20 continue if (l .gt. 1) then l = l-1 irr = index(l) kk = k(irr) else irr = index(ir) kk = k(irr) index(ir) = index(1) ir = ir-1 if (ir .eq. 1) then index(1) = irr return endif endif c H3: Prepare for sift-up j = l c H4: Advance downward 40 continue i = j j = 2 * j if (j .eq. ir) goto 60 if (j .gt. ir) goto 80 c H5: Find larger son of i if (k(index(j)) .lt. k(index(j+1))) j = j+1 c H6: Son larger than kk? 60 continue if (kk .ge. k(index(j))) goto 80 c H7: Move son up index(i) = index(j) goto 40 c H8: Store kk in it's proper place 80 continue index(i) = irr goto 20 end subroutine sortid (n, index, r) c SORT by rearranges Indices, keys are Double precision numbers c Heap sort, following algorithm in Knuth using r as key c Knuth, The Art of Computer Programming, c Vol 3 / Sorting and Searching, pp 146-7 c Array r is not modified, instead array index is returned c ordered so that r(index(1)) is smallest, etc. c rr is temporary r storage (Knuth's R), irr is index of stored r implicit double precision (a-h, o-z) dimension r(n), index(n) c Initialize index array do 10 i = 1, n index(i) = i 10 continue c only 1 element is already sorted if (n .eq. 1) return c H1: initialize l = n/2 + 1 ir = n c H2: Decrease l or ir 20 continue if (l .gt. 1) then l = l-1 irr = index(l) rr = r(irr) else irr = index(ir) rr = r(irr) index(ir) = index(1) ir = ir-1 if (ir .eq. 1) then index(1) = irr return endif endif c H3: Prepare for sift-up j = l c H4: Advance downward 40 continue i = j j = 2 * j if (j .eq. ir) goto 60 if (j .gt. ir) goto 80 c H5: Find larger son of i if (r(index(j)) .lt. r(index(j+1))) j = j+1 c H6: Son larger than rr? 60 continue if (rr .ge. r(index(j))) goto 80 c H7: Move son up index(i) = index(j) goto 40 c H8: Store rr in it's proper place 80 continue index(i) = irr goto 20 end ifeffit-1.2.11d/src/feff6/quinn.f0000644000175000017500000000373010663646452015453 0ustar segresegre subroutine quinn (x, rs, wp, ef, ei) implicit double precision (a-h, o-z) c input x, rs, wp, ef c output ei c*********************************************************************** c c quinn: calculates low energy gamma (approx. proportional to e**2) c formula taken from john j. quinn, phys. rev. 126, c 1453 (1962); equation (7). c a cut-off is set up at quinn's cutoff + ef = ekc; it is a c rounded inverted step function (a fermi function) c theta = 1/( 1 + exp((e-ekc)/gam)) ) c where the rounding factor gam is set to be about 0.3 ekc. c modified by j. rehr (oct 1991) based on coding of r. albers c subroutines quinn.f and quinnc.f c c variables: c x = p/pf c rs = ws density parameter c ei = imaginary self energy c pfqryd = quinn's prefactor in atomic-rydberg units c wkc = quinn's plasmon threshold c c*********************************************************************** include 'const.h' parameter (alphaq = 1/ fa) c calculate quinn prefactor in atomin Hartree units pisqrt = sqrt(pi) pfq = pisqrt / (32 * (alphaq*rs)**1.5) temp1 = atan (sqrt (pi / (alphaq*rs))) temp2 = sqrt(alphaq*rs/pi) / (1 + alphaq*rs/pi) pfq = pfq * (temp1 + temp2) c calculate quinn cutoff c wkc = quinn's plasmon threshold c wkc is cut-off of quinn, pr126, 1453, 1962, eq. (11) c in formulae below wp=omegap/ef wkc = (sqrt(1+wp) - 1)**2 wkc = (1 + (6./5.) * wkc / wp**2) * wp * ef c we add fermi energy to get correct energy for c plasma excitations to turn on ekc = wkc + ef c calculate gamma c gamryd = 2 * (pfqryd/x) * (x**2-1)**2 gam = (pfq/x) * (x**2-1)**2 c put in fermi function cutoff eabs = ef * x**2 arg = (eabs-ekc) / (0.3*ekc) f = 0 if (arg .lt. 80) f = 1 / (1 + exp(arg)) ei = -gam * f / 2 return end ifeffit-1.2.11d/src/feff6/fermi.f0000644000175000017500000000130710663646452015421 0ustar segresegre subroutine fermi (rhoint, vint, xmu, rs, xf) implicit double precision (a-h, o-z) include 'const.h' c calculate fermi level of the system (mu) according to formula c mu=vcoulomb(interstitial)+vxc(interstitial)+kf(interstitial)^2 c formula 2.13 in lee and beni, phys. rev. b15,2862(1977) c note that vint includes both coulomb and ground state c exchange-correlation potentials c den is the interstitial density c rs is the density parameter c xf is the interstital fermi momentum c xmu is the fermi level in rydbergs den = rhoint / (4*pi) rs = (3 / (4*pi*den)) ** third xf = fa / rs xmu = vint + xf**2 return end ifeffit-1.2.11d/src/feff6/sdist.f0000644000175000017500000000044310663646452015445 0ustar segresegre function sdist (r0, r1) c find distance squared between cartesian points r0 and r1 c single precision dimension r0(3), r1(3) sdist = 0 do 10 i = 1, 3 sdist = sdist + (r0(i) - r1(i))**2 10 continue sdist = sqrt(sdist) return end ifeffit-1.2.11d/src/feff6/mepts.h0000644000175000017500000000011510774476345015452 0ustar segresegrec{mepts.h -*-fortran-*- integer mepts parameter (mepts = 251) c} ifeffit-1.2.11d/src/feff6/feff.f0000644000175000017500000001034510663646452015227 0ustar segresegre program feff c c EXAFS only version of FEFF6 c Modified by Matt Newville from original code by John Rehr c see LICENSE for copying details c implicit none include 'vers.h' include 'dim.h' include 'const.h' integer ntitx parameter (ntitx = 16) character*128 title(ntitx), tmpstr*32, fname*64 integer ltit(ntitx) integer ibeta, ipotn, ik0, ipot, ios, ne, ie integer nlegx, nncrit, isporb, ipotnn, i, nlegxx integer ipr2, ipr3, ipr4, iorder, icsig integer mphase, mpath, mfeff, mchi, ms, ntitle double precision s02, tk, thetad, sig2g, critcw double precision angle, cosb, vicorr, vrcorr c Following passed to pathfinder, which is single precision. c Be careful to always declare these! integer necrit, nbeta parameter (necrit=9, nbeta=40) real fbetac(-nbeta:nbeta,0:npotx,necrit), ckspc(necrit) real fbeta(-nbeta:nbeta,0:npotx,nex), cksp(nex) real rmax, critpw, pcritk, pcrith character*6 potlbl(0:npotx) character*128 inpfil, lfile integer istat, il, iox, istrln external istrln 10 format (1x, a) vfeff = 'Feff 6L.02' call sca_init call echo_init call open_echofile('feff.run') call fstop_init('feff.err') call echo(vfeff) call get_inpfile('feff.inp',inpfil,istat) call rdinp (inpfil, $ mphase, mpath, mfeff, mchi, ms, 1 ntitle, title, ltit, 2 critcw, 1 ipr2, ipr3, ipr4, 1 s02, tk, thetad, sig2g, 1 nlegxx, 1 rmax, critpw, pcritk, pcrith, nncrit, 2 icsig, iorder, vrcorr, vicorr, isporb) do 20 i = 1, ntitle call echo(title(i)(1:ltit(i))) 20 continue if (mphase .eq. 1) then call echo( 'Calculating potentials and phases...') call potph (isporb) open (unit=1, file='potph.dat', status='old', iostat=ios) call chopen (ios, 'potph.dat', 'feff') close (unit=1, status='delete') endif if (ms.eq.1 .and. mpath.eq.1) then call echo('Preparing plane wave scattering amplitudes...') call prcrit (ne, nncrit, ik0, cksp, fbeta, ckspc, 1 fbetac, potlbl) c Dump out fbetac for central atom and first pot if (ipr2 .ge. 3 .and. ipr2.ne.5) then do 260 ipot = 0, 1 do 250 ie = 1, nncrit write(fname,200) ie, ipot 200 format ('fbeta', i1, 'p', i1, '.dat') open (unit=1, file=fname) write(1,210) ipot, ie, ckspc(ie) 210 format ('# ipot, ie, ckspc(ie) ', 2i5, 1pe20.6, / 1 '# angle(degrees), fbeta/|p|, fbeta') do 240 ibeta = -nbeta, nbeta cosb = .025 * ibeta if (cosb .gt. 1) cosb = 1 if (cosb .lt. -1) cosb = -1 angle = acos (cosb) write(1,230) angle*raddeg, 1 fbetac(ibeta,ipot,ie)/ckspc(ie), 2 fbetac(ibeta,ipot,ie) 230 format (f10.4, 1p, 2e15.6) 240 continue close (unit=1) 250 continue 260 continue endif call echo('Searching for paths...') call paths (ckspc, fbetac, pcritk, pcrith, nncrit, 1 rmax, nlegxx, ipotnn) call echo('Eliminating path degeneracies...') call pathsd (ckspc, fbetac, ne, ik0, cksp, fbeta, 1 critpw, ipotnn, ipr2, 1 pcritk, pcrith, nncrit, potlbl) if (ipr2 .lt. 2) then open (unit=1, file='geom.dat', status='old') call chopen (ios, 'geom.dat', 'feff') close (unit=1, status='delete') endif endif if (mfeff .eq. 1) then call echo('Calculating EXAFS parameters...') call genfmt (ipr3, critcw, sig2g, iorder) endif c if (mchi .eq. 1) then c call echo('Calculating chi...') c call ff2chi (ipr4, critcw, s02, tk, thetad, icsig, c 1 vrcorr, vicorr) c endif call echo('Feff done. Have a nice day.') end ifeffit-1.2.11d/src/feff6/mrb.f0000644000175000017500000000447210663646452015105 0ustar segresegre subroutine mrb (npat, ipat, ri, beta) c Make ri, beta and rpath path parameters for crit calculations. c Input is list of atoms (npat, ipat(npat)), output is c ri(npat+1), beta, eta. include 'dim.h' dimension ipat(npatx) common /atoms/ rat(3,0:natx), ipot(0:natx), i1b(0:natx) dimension beta(npatx+1), ri(npatx+1), ipat0(npatx+1) nleg = npat+1 c central atom is atom 0 in rat array c need local ipat0 array since we use ipat0(npat+1), final atom c in path (final atom is, of course, the central atom) do 10 i = 1, npat ipat0(i) = ipat(i) 10 continue ipat0(nleg) = 0 do 30 ileg = 1, nleg c make beta and ri for point i from 1 to N c NB: N is npat+1, since npat is number of bounces and N is c number of legs, or think of N=npat+1 as the central atom c that is the end of the path. c c We'll need angles from n-1 to n to 1, c so use rat(n+1) = rat(1), so we don't have to write code c later to handle these cases. c Work with atom j c jp1 = (j+1) c jm1 = (j-1) j = ileg jm1 = j-1 jp1 = j+1 c Fix special cases (wrap around when j is near central atom, c also handle ss and triangular cases). if (jm1 .le. 0) jm1 = nleg if (jp1 .gt. nleg) jp1 = 1 jat = ipat0(j) jm1at = ipat0(jm1) jp1at = ipat0(jp1) ri(ileg) = sdist (rat(1,jat), rat(1,jm1at)) c Make cos(beta) from dot product call dotcos (rat(1,jm1at), rat(1,jat), rat(1,jp1at), 1 beta(ileg)) 30 continue rpath = 0 do 60 ileg = 1, nleg rpath = rpath + ri(ileg) 60 continue return end subroutine dotcos (rm1, r, rp1, cosb) dimension rm1(3), r(3), rp1(3) parameter (eps = 1.0e-8) cosb = 0 do 100 i = 1, 3 cosb = cosb + (r(i)-rm1(i)) * (rp1(i)-r(i)) 100 continue c if denom is zero (and it may be if 2 atoms are in the same place, c which will happen when last path atom is central atom), set c cosb = 0, so it won't be undefined. denom = (sdist(r,rm1) * sdist(rp1,r)) if (denom .gt. eps) then cosb = cosb / denom else cosb = 0 endif return end ifeffit-1.2.11d/src/feff6/wpot.f0000644000175000017500000000312210663646452015305 0ustar segresegre subroutine wpot (nph, edens, ifrph, imt, inrm, 1 rho, vclap, vcoul, vtot) c Writes potentials to file name POTxx.DAT for each unique pot. implicit double precision (a-h, o-z) include 'const.h' include 'dim.h' dimension ifrph(0:nphx) dimension rho(251,0:nfrx) dimension vcoul(251,0:nfrx) dimension edens(nrptx,0:nphx) dimension vclap(nrptx,0:nphx) dimension vtot (nrptx,0:nphx) dimension imt(0:nphx) dimension inrm(0:nphx) character*30 fname c note units -- c potentials in rydbergs, so that v * 13.6 -> eV c density in #/(bohr)**3, so rho * e / (.529)**3 -> e/(Ang)**3 do 180 iph = 0, nph ifr = ifrph(iph) c prepare file for unique potential data write(fname,172) iph 172 format('pot', i2.2, '.dat') open (unit=1, file=fname, status='unknown', iostat=ios) call chopen (ios, fname, 'wpot') call wthead(1) write(1,173) iph, imt(iph), inrm(iph) 173 format (1x, 3i4, ' Unique potential, I_mt, I_norman.', 1 ' Following data in atomic units.') write(1,*) ' ifr ', ifr write(1,174) 174 format (' i r vcoul rho', 1 ' ovrlp vcoul ovrlp vtot ovrlp rho') do 178 i = 1, nrptx write(1,176) i, rr(i), vcoul(i,ifr), rho(i,ifr)/(4*pi), 1 vclap(i,iph), vtot(i,iph), edens(i,iph)/(4*pi) 176 format (1x, i3, 1p, 6e12.4) 178 continue close(unit=1) 180 continue return end ifeffit-1.2.11d/src/feff6/mpprmd.f0000644000175000017500000001251110663646452015615 0ustar segresegre subroutine mpprmd (npat, ipat, ri, beta, eta) c double precision version so angles come out right c for output... c Used with pathsd, a single precision code, so BE CAREFUL!! c No implicit, all variables declared explicitly. c make path parameters, ie, ri, beta, eta for each leg for a given c path. c Input is list of atoms (npat, ipat(npat)), output is c ri(npat+1), beta, eta. dimension ipat(npat) include 'dim.h' c /atoms/ is single precision from pathsd common /atoms/ rat(3,0:natx), ipot(0:natx), i1b(0:natx) complex*16 coni parameter (coni = (0,1)) complex*16 alph(npatx+1), gamm(npatx+2), eieta double precision beta(npatx+1) double precision ri(npatx+1), eta(npatx+1) double precision x, y, z double precision ct, st, cp, sp, ctp, stp, cpp, spp double precision cppp, sppp n = npat + 1 do 100 j = 1, n c get the atoms in this path c we actually have them already via the ipat array c remember that we'll want rat(,npat+1)=rat(,0) and c rat(,npat+2)=rat(,1) later on c make alpha, beta, and gamma for point i from 1 to N c NB: N is npat+1, since npat is number of bounces and N is c number of legs, or think of N=npat+1 as the central atom c that is the end of the path. c c for euler angles at point i, need th and ph (theta and phi) c from rat(i+1)-rat(i) and thp and php c (theta prime and phi prime) from rat(i)-rat(i-1) c c Actually, we need cos(th), sin(th), cos(phi), sin(phi) and c also for angles prime. Call these ct, st, cp, sp and c ctp, stp, cpp, spp. c c We'll need angles from n-1 to n to 1, c so use rat(n+1) = rat(1), so we don't have to write code c later to handle these cases. c i = ipat(j) c ip1 = ipat(j+1) c im1 = ipat(j-1) c except for special cases... if (j .eq. n) then c j central atom, j+1 first atom, j-1 last path atom i = 0 ip1 = ipat(1) im1 = ipat(npat) elseif (j .eq. npat) then c j last path atom, j+1 central, j-1 next-to last atom c unless only one atom, then j-1 central i = ipat(j) ip1 = 0 if (npat .eq. 1) then im1 = 0 else im1 = ipat(npat-1) endif elseif (j .eq. 1) then c j first atom, j+1 second unless only one, c then j+1 central, j-1 central i = ipat(j) if (npat .eq. 1) then ip1 = 0 else ip1 = ipat (j+1) endif im1 = 0 else i = ipat(j) ip1 = ipat(j+1) im1 = ipat(j-1) endif x = rat(1,ip1) - rat(1,i) y = rat(2,ip1) - rat(2,i) z = rat(3,ip1) - rat(3,i) call strigd (x, y, z, ct, st, cp, sp) x = rat(1,i) - rat(1,im1) y = rat(2,i) - rat(2,im1) z = rat(3,i) - rat(3,im1) call strigd (x, y, z, ctp, stp, cpp, spp) c cppp = cos (phi prime - phi) c sppp = sin (phi prime - phi) cppp = cp*cpp + sp*spp sppp = spp*cp - cpp*sp c alph = exp**(i alpha) in ref eqs 18 c beta = cos(beta) c gamm = exp**(i gamma) alph(j) = st*ctp - ct*stp*cppp - coni*stp*sppp beta(j) = ct*ctp + st*stp*cppp c Watch out for roundoff errors if (beta(j) .lt. -1) beta(j) = -1 if (beta(j) .gt. 1) beta(j) = 1 gamm(j) = st*ctp*cppp - ct*stp + coni*st*sppp ri(j) = sdist (rat(1,i), rat(1,im1)) 100 continue c Make eta(i) = alpha(i) + gamma(i+1). We only really need c exp(i*eta)=eieta, so that's what we'll calculate. c We'll need gamm(N+1)=gamm(npat+2)=gamm(1) gamm(npat+2) = gamm(1) do 150 j = 1, npat+1 eieta = alph(j) * gamm(j+1) call sargd (eieta, eta(j)) 150 continue c Return beta as an angle, ie, acos(beta). Check for beta >1 or c beta <1 (roundoff nasties) do 160 j = 1, npat+1 if (beta(j) .gt. 1) beta(j) = 1 if (beta(j) .lt. -1) beta(j) = -1 beta(j) = acos(beta(j)) 160 continue return end subroutine strigd (x, y, z, ct, st, cp, sp) double precision x, y, z, ct, st, cp, sp, r, rxy c returns cos(theta), sin(theta), cos(phi), sin(ph) for (x,y,z) c convention - if x=y=0, phi=0, cp=1, sp=0 c - if x=y=z=0, theta=0, ct=1, st=0 parameter (eps = 1.0e-6) r = sqrt (x**2 + y**2 + z**2) rxy = sqrt (x**2 + y**2) if (r .lt. eps) then ct = 1 st = 0 else ct = z/r st = rxy/r endif if (rxy .lt. eps) then cp = 1 sp = 0 else cp = x / rxy sp = y / rxy endif return end subroutine sargd (c, th) double precision x, y, th complex*16 c parameter (eps = 1.0e-6) x = dble(c) y = dimag(c) if (abs(x) .lt. eps) x = 0 if (abs(y) .lt. eps) y = 0 if (abs(x) .lt. eps .and. abs(y) .lt. eps) then th = 0 else th = atan2 (y, x) endif return end ifeffit-1.2.11d/src/feff6/ff2chi.f0000644000175000017500000003165310663646452015467 0ustar segresegre subroutine ff2chi (ipr4, critcw, s02, tk, thetad, icsig, 1 vrcorr, vicorr) c modified for feff6l by jjr implicit double precision (a-h, o-z) include 'vers.h' include 'const.h' parameter (delk = 0.05) parameter (eps = 1.0e-10) parameter (eps4 = 1.0e-4) c e (eV) = bohr**2 * ryd * k**2 (k in invA), b2r ~=3.81 parameter (b2r = bohr**2 * ryd) c This is set in dim.h for other parts of the code parameter (nex = 100) c Max number of points on fine k grid for chi output parameter (nfinex = 601) dimension achi(nex), achix(nex) dimension xk(nex), cdelta(nex), afeff(nex), phfeff(nex), 1 redfac(nex), xlam(nex), rep(nex) dimension emxs(nex), omega(nex), xkxs(nex), xsec(nex) complex*16 p2, pp2 complex*16 ck(nex), dw complex*16 cchi(nfinex), ccc, ccpath(nfinex) c head is headers from files.dat, hdxs is headers from xsect.bin parameter (nheadx = 30) character*80 head(nheadx), hdxs(nheadx) dimension lhead(nheadx), lhdxs(nheadx) parameter (nlegx = 10) dimension rat(3,0:nlegx), iz(0:nlegx) character*80 line, out_message*256 parameter (nwordx = 4) character*50 words(nwordx), fname c do (or don't) correlated debye model dw factor logical dwcorr c write xmu file only if xsect.bin exists logical wxmu c icsig 0, use real momentum for debye waller factor c 1, use complex momentum for debye waller factor c NB: code units for this module are Ang, Ang**-1, eV, etc. vrcorr = vrcorr * ryd vicorr = vicorr * ryd do 22 i = 1, nfinex cchi(i) = 0 22 continue c Keep stats on total paths and paths used to make chi ntotal = 0 nused = 0 c open files.dat open (unit=2, file='files.dat', status='old', iostat=ios) call chopen (ios, 'files.dat', 'ff2chi') nhead = nheadx call rdhead (2, nhead, head, lhead) c header from rdhead includes carriage control c skip a label line read(2,*) dwcorr = .false. if (tk .gt. 1.0e-1) dwcorr = .true. c Open chi.dat and xmu.dat (output) and start header open (unit=3, file='chi.dat', status='unknown', iostat=ios) call chopen (ios, 'chi.dat', 'ff2chi') c open (unit=8, file='xsect.bin', status='old', iostat=ios) wxmu = .false. if (ios .le. 0) wxmu = .true. if(wxmu) then c read xsect.bin nhdxs = nheadx c skip label cc edge0 = (emxs(1)/ryd + xkxs(1)**2*bohr**2)*ryd endif do 14 ihead = 1, nhead if (lhead(ihead) .gt. 0) then write(3,12) head(ihead)(1:lhead(ihead)) endif 12 format (a) 14 continue if (dwcorr) then write(3,800) s02, tk, thetad, vfeff, vff2ch 800 format (' S02', f7.3, ' Temp', f8.2, ' Debye temp', f8.2, 1 t57, 2a12) else write(3,801) s02, vfeff, vff2ch 801 format (' S02', f7.3, t57, 2a12) endif if (abs(vrcorr).ge.eps4 .or. abs(vicorr).ge.eps4) then write(out_message,802) vrcorr, vicorr write(3,'(a)') out_message call echo(out_message) endif 802 format (' Energy zero shift, vr, vi ', 1p, 2e14.5) if (critcw .gt. 0) write(3,15) critcw 15 format (' Curved wave amplitude ratio filter ', f7.3, '%') write(3,16) 16 format (' file sig2 cw amp ratio deg', 1 ' nlegs r effective') c Open sig2.dat if necessary (output) and start header if (ipr4 .ge. 1) then open (unit=4, file='sig2.dat', status='unknown', iostat=ios) call chopen (ios, 'sig2.dat', 'ff2chi') do 514 ihead = 1, nhead if (lhead(ihead) .gt. 0) 1 write(4,12) head(ihead)(1:lhead(ihead)) 514 continue if (dwcorr) then write(4,800) s02, tk, thetad, vfeff, vff2ch else write(4,801) s02, vfeff, vff2ch endif write(4,16) endif write(out_message, 515) critcw call echo(out_message) 515 format (' Use all paths with cw amplitude ratio', f7.2, '%') if (dwcorr) then write(out_message, 516) s02, tk, thetad else write(out_message, 517) s02 endif call echo(out_message) 516 format(' Use correlated Debye model. S02', f7.3, 1 ' Temp', f8.2, ' Debye temp', f8.2) 517 format(' Use Debye-Waller factors from files.dat. S02', f7.3) 10 continue read(2,11,end=399) line 11 format (a) call triml (line) nwords = nwordx call bwords (line, nwords, words) c if line was blank, skip it and go on to next line if (nwords .lt. 1) goto 10 ntotal = ntotal+1 c word 1 - feff.dat file name c 2 - sig2 for path c 3 - amplitude ratio, full k range read(words(2),40,err=900) sig2 read(words(3),40,err=900) crit 40 format (bn, f15.0) c Skip un-important path c Write output if path is important enough (ie, path is if (crit .lt. critcw) then write(out_message,17) words(1)(1:15), crit, ' (not used) ' 17 format (4x, a, f10.4, a) call echo(out_message) goto 10 endif c Read feff.dat file nused = nused+1 write(out_message,17) words(1)(1:15), crit call echo(out_message) fname = words(1) open (unit=1, file=words(1), status='old', iostat=ios) call chopen (ios, words(1), 'ff2chi') nhead = nheadx call rdhead (1, nhead, head, lhead) read(1,*) nleg, deg, reff, rs, edge if (abs(vrcorr) .gt. eps4) edge = edge-vrcorr if (nleg .gt. nlegx) then call fstop(' at FF2CHI: too many legs') endif c skip label read(1,*) do 30 ileg = 0, nleg-1 read(1,*) (rat(j,ileg),j=1,3), ipot, iz(ileg) 30 continue c skip label read(1,*) do 20 j = 1, 3 rat(j,nleg) = rat(j,0) 20 continue iz(nleg) = iz(0) c Get sig2 from correlated debye model if required if (dwcorr) then c replace sig2 from files.dat call sigms (tk, thetad, rs, nlegx, nleg, rat, iz, sig2) endif c Put path into chi.dat header, sig2.dat as required write(3,110) words(1)(1:15), sig2, crit, 1 deg, nleg, reff if (ipr4 .ge. 1) then write(4,110) words(1)(1:15), sig2, crit, 1 deg, nleg, reff endif 110 format(1x, a, f8.5, 2f10.2, i6, f9.4) c read data i = 1 120 read(1,*,end=130) xk(i), cdelta(i), afeff(i), 1 phfeff(i), redfac(i), xlam(i), rep(i) c make complex momentum c add correction to imag part of energy to xlam here c use atomic units for this viryd = vicorr / ryd preal = rep(i) * bohr xlamb = xlam(i) / bohr pimag = 1 / xlamb c p2 is p**2, pp2 is p' **2 (p prime squared, new p) p2 = (preal + coni*pimag)**2 pp2 = p2 + coni*viryd ck(i) = sqrt (pp2) xlam(i) = 1 / dimag(ck(i)) rep(i) = dble(ck(i)) c put everything back into Ang and invAng ck(i) = ck(i) / bohr xlam(i) = xlam(i) * bohr rep(i) = rep(i) / bohr npts = i i = i+1 goto 120 130 continue close(unit=1) c Make chi, note that |feff| at k=0 is zero. Must interpolate c or extrapolate to find it. Can interpolate when we have c data for k<0, but just extrapolate for all cases for now. iextr = 0 do 300 i = 1, npts c extrapolate chi when k=0, otherwise calculate it c achi has no 2kr term dw = exp(-2*sig2*ck(i)**2) phdw = atan2 (dimag(dw), dble(dw)) if (abs(xk(i)) .lt. 0.01) then iextr = i else achi(i) = afeff(i) * deg * abs(dw) * 1 exp(-2*reff/xlam(i)) * redfac(i) * s02 / 2 (abs(xk(i))*reff**2) endif achix(i) = cdelta(i) + phfeff(i) + phdw 300 continue c fill in achi where extrapolation necessary if (iextr .gt. 0) then achi(iextr) = 2*achi(iextr+1) - achi(iextr+2) endif c make sure no 2pi jumps in phase do 310 i = 2, npts call pijump (achix(i), achix(i-1)) 310 continue c Decide on fine grid -- need k' if vrcorr /= 0 if (abs(vrcorr) .gt. eps4) then xkpmin = xk2xkp (xk(1), vrcorr) n = xkpmin / delk c need 1st int ABOVE xkpmin/delk if (xkpmin .gt. 0) n = n+1 c First k grid point moved by vrcorr xkmin = n * delk else c Use unmodified grid xkmin = xk(1) endif c sum chi on fine k grid nkx = nfinex do 330 i = 1, nfinex c xkout is k value for output, xk0 is k value used for c interpolation and reconstruction of chi with original grid. c If vrcorr=0, xk0 and xkout will be the same. xkout = delk * (i-1) + xkmin xk0 = xkp2xk (xkout, vrcorr) c find end of data, eps4 is to handle round-off (we've been c reading files with limited precision) if (xk0 .gt. xk(npts)+eps4) then nkx = i-1 goto 331 endif call terp (xk, achi, npts, xk0, achi0) call terp (xk, achix, npts, xk0, achix0) cchi(i) = cchi(i) + achi0 * 1 exp (coni * (2*xk0*reff + achix0)) ccpath(i) = achi0 * exp (coni * (2*xk0*reff + achix0)) 330 continue 331 continue c write out a chinnnn.dat for this path, if necessary. Headers c later... if (ipr4 .ge. 2) then c Assume file is form feffnnnn.whatever, change it to c chipnnnn.whatever. Other filenames c will turn out wierdly fname(1:4) = 'chip' open (unit=9, file=fname, status='unknown') do 370 ihead = 1, nhead if (lhead(ihead) .gt. 0) then write(9,12) head(ihead)(1:lhead(ihead)) endif 370 continue if (dwcorr) then write(9,800) s02, tk, thetad, vfeff, vff2ch else write(9,801) s02, vfeff, vff2ch endif if (abs(vrcorr).ge.eps4 .or. abs(vicorr).ge.eps4) then write(9,802) vrcorr, vicorr endif write(9,*) 'Debye-waller factor ', sig2 write(9,407) write(9,338) 338 format (' k chi mag ', 1 'phase phase-2kr @#') do 340 i = 1, nkx xk0 = delk * (i-1) + xkmin ccc = ccpath(i) phase=0 if (abs(ccc) .gt. 0) phase=atan2(dimag(ccc), dble(ccc)) if (i .gt. 1) call pijump (phase, phase0) phase0 = phase write(9,410) xk0, dimag(ccc), abs(ccc), phase, 1 phase-2*xk0*reff 340 continue endif goto 10 399 continue close (unit=2) c Write it out write(3,405) nused, ntotal 405 format (1x, i4, '/', i4, ' paths used') write(3,407) 407 format (1x, 79('-')) write(3,406) 406 format ( ' k chi mag phase @#') do 420 i = 1, nkx xk0 = delk * (i-1) + xkmin ccc = cchi(i) phase=0 if (abs(ccc) .gt. 0) phase=atan2(dimag(ccc), dble(ccc)) if (i .gt. 1) call pijump (phase, phase0) phase0 = phase write(3,410) xk0, dimag(ccc), abs(ccc), phase 410 format (1x, f10.4, 3x, 4(1pe13.6,1x)) 420 continue close (unit=3) write(out_message, 500) nused, ntotal call echo(out_message) 500 format (' ff2chi done, ', i4, '/', i4, ' paths used.') return 900 call fstop(' at FF2CHI: reading '// $ 'files.dat importance factors') end c following functions use invA and eV as input and output, c internal workings in atomic units double precision function xk2xkp (xk, vrcorr) implicit double precision (a-h, o-z) include 'const.h' xk0 = xk*bohr vr = vrcorr / ryd xksign = sign (one, xk0) e = xksign*xk0**2 + vr xk2xkp = getxk(e) / bohr return end double precision function xkp2xk (xkp, vrcorr) implicit double precision (a-h, o-z) include 'const.h' external getxk xkp0 = xkp*bohr vr = vrcorr / ryd xkpsgn = sign (one, xkp0) e = xkpsgn*xkp0**2 - vr xkp2xk = getxk(e) / bohr return end ifeffit-1.2.11d/src/feff6/ipack.f0000644000175000017500000000373010663646452015410 0ustar segresegre subroutine ipack (iout, n, ipat) c Input: n number of things to pack, nmax=8 c ipat(1:n) integers to pack c Output: iout(3) packed version of n and ipat(1:n) c c Packs n and ipat(1:n) into 3 integers, iout(1:3). Algorithm c packs three integers (each between 0 and 1289 inclusive) into a c single integer. Single integer must be INT*4 or larger, we assume c that one bit is wasted as a sign bit so largest positive int c is 2,147,483,647 = (2**31 - 1). c This version is specifically for the path finder and c degeneracy checker. dimension iout(3), ipat(n) dimension itmp(8) parameter (ifac1 = 1290, ifac2 = 1290**2) if (n .gt. 8) call fstop( ' at IPACK: n too big') do 10 i = 1, n itmp(i) = ipat(i) 10 continue do 20 i = n+1, 8 itmp(i) = 0 20 continue iout(1) = n + itmp(1)*ifac1 + itmp(2)*ifac2 iout(2) = itmp(3) + itmp(4)*ifac1 + itmp(5)*ifac2 iout(3) = itmp(6) + itmp(7)*ifac1 + itmp(8)*ifac2 return end subroutine upack (iout, n, ipat) c retrieve n and ipat from iout c Input: iout(3) packed integers c n max number to get, must be .le. 8 c Output: n number unpacked c ipat(1:n) unpacked integers dimension iout(3), ipat(n) dimension itmp(8) parameter (ifac1 = 1290, ifac2 = 1290**2) nmax = n if (nmax .gt. 8) call fstop(' at UNPACK nmax > 8') n = mod (iout(1), ifac1) if (n .gt. nmax) call fstop(' at UNPACK: nmax too small') itmp(1) = mod (iout(1), ifac2) / ifac1 itmp(2) = iout(1) / ifac2 itmp(3) = mod (iout(2), ifac1) itmp(4) = mod (iout(2), ifac2) / ifac1 itmp(5) = iout(2) / ifac2 itmp(6) = mod (iout(3), ifac1) itmp(7) = mod (iout(3), ifac2) / ifac1 itmp(8) = iout(3) / ifac2 do 10 i = 1, n ipat(i) = itmp(i) 10 continue return end ifeffit-1.2.11d/src/feff6/inouh.f0000644000175000017500000000441510663646452015444 0ustar segresegre subroutine inouh (dp,dq,dr,dq1,dfl,dv,z,test,nuc,nstop,jc) c c initial values for the outward integration c dp=large component; dq=small component; dr=radial mesh c dq1=slope at the origin of dp or dq; dfl=power of the first term c du=developpement limite; dv=potential at the first point c z=atomic number test=test of the precision c finite nuclear size if nuc is non-zero c nstop controls the convergence du developpement limite c ********************************************************************** implicit double precision (a-h,o-z) save common /ps1/ dep(5), deq(5), dd, dvc, dsal, dk, dm c c dep,deq=derivatives of dp and dq; dd=energy/dvc; c dvc=speed of light in a.u.; c dsal=2.*dvc dk=kappa quantum number c dm=exponential step/720. c ********************************************************************** common /trois/ dpno(4,30), dqno(4,30) dimension dp(251), dq(251), dr(251) do 10 i=1,10 dp(i)=0.0 10 dq(i)=0.0 if (nuc) 20,20,60 20 dval=z/dvc deva1=-dval deva2=dv/dvc+dval/dr(1)-dd deva3=0.0 if (dk) 30,30,40 30 dbe=(dk-dfl)/dval go to 50 40 dbe=dval/(dk+dfl) 50 dq(10)=dq1 dp(10)=dbe*dq1 go to 90 60 dval=dv+z*(3.0-dr(1)*dr(1)/(dr(nuc)*dr(nuc)))/(dr(nuc)+dr(nuc)) deva1=0.0 deva2=(dval-3.0*z/(dr(nuc)+dr(nuc)))/dvc-dd deva3=z/(dr(nuc)*dr(nuc)*dr(nuc)*dsal) if (dk) 70,70,80 70 dp(10)=dq1 go to 90 80 dq(10)=dq1 90 do 100 i=1,5 dp(i)=dp(10) dq(i)=dq(10) dep(i)=dp(i)*dfl 100 deq(i)=dq(i)*dfl m=1 110 dm=m+dfl dsum=dm*dm-dk*dk+deva1*deva1 dqr=(dsal-deva2)*dq(m+9)-deva3*dq(m+7) dpr=deva2*dp(m+9)+deva3*dp(m+7) dval=((dm-dk)*dqr-deva1*dpr)/dsum dsum=((dm+dk)*dpr+deva1*dqr)/dsum j=-1 do 130 i=1,5 dpr=dr(i)**m dqr=dsum*dpr dpr=dval*dpr if (m.eq.1) go to 120 120 dp(i)=dp(i)+dpr dq(i)=dq(i)+dqr if (abs(dpr/dp(i)).le.test.and.abs(dqr/dq(i)).le.test) j=1 dep(i)=dep(i)+dpr*dm 130 deq(i)=deq(i)+dqr*dm if (j.eq.1) go to 140 dp(m+10)=dval dq(m+10)=dsum m=m+1 if (m.le.20) go to 110 nstop=45 140 do 150 i=1,4 dpno(i,jc)=dp(i+9) 150 dqno(i,jc)=dq(i+9) return end ifeffit-1.2.11d/src/feff6/fpot.f0000644000175000017500000000076210663646452015273 0ustar segresegre double precision function fpot (r,z,wa) implicit double precision (a-h,o-z) save c c thomas fermi potential at the point r; z=atomic number c wa=number of electrons-z-1 c ********************************************************************** wc=sqrt((r*(z+wa)**(1.0/3.0))/0.88530) wd=wc*(0.601120*wc+1.810610)+1.0 we=wc*(wc*(wc*(wc*(0.04793*wc+0.21465)+0.77112)+1.39515)+1 1 .81061)+1.0 wc=(z+wa)*(wd/we)**2-wa fpot=-wc/r return end ifeffit-1.2.11d/src/feff6/unused/0000755000175000017500000000000010771740457015452 5ustar segresegreifeffit-1.2.11d/src/feff6/unused/iread.f0000644000175000017500000000663010771740457016712 0ustar segresegrec////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// integer function iread(iunit,line) c c reads line from an open file unit (iunit) c return values: c line length on success c -1 on 'end' c -2 on 'error' implicit none character*(*) line integer iunit, istrln external istrln line = ' ' 10 continue 12 format(a) read(iunit, 12, end = 40, err = 50) line call sclean(line) call triml(line) iread = istrln(line) if (iread .eq. 0) goto 10 return 40 continue line = ' ' iread = -1 return 50 continue line = ' ' iread = -2 return end integer function iread_ky(iunit,key,line) c c reads line from an open file unit (iunit) c and extracts a 2character key (as for PAD files) c return values: c line length on success c -1 on 'end' c -2 on 'error' implicit none character*(*) line, key integer iunit, iread, ilen external iread key = ' ' line = ' ' ilen = iread(iunit, line) if (ilen.gt.2) then key = line(1:2) line = line(3:) ilen = ilen - 2 endif iread_ky = ilen return end subroutine sclean(str) c c clean a string so that all: c char(0), and char(10)...char(15) are end-of-line comments, c so that all following characters are explicitly blanked. c all other characters below char(31) (including tab) are c replaced by a single blank c c note that this is mostly useful when getting a string generated c by a non-fortran process (say, a C program) and for dealing with c dos/unix/max line-ending problems character*(*) str, blank*1 parameter (blank = ' ') integer i,j,is do 20 i = 1, len(str) is = ichar(str(i:i)) if ((is.eq.0) .or. ((is.ge.10) .and. (is.le.15))) then do 10 j= i, len(str) str(j:j) = blank 10 continue return endif if (is.le.31) str(i:i) = blank 20 continue return c end subroutine sclean end ifeffit-1.2.11d/src/feff6/unused/cright.f0000644000175000017500000000211310771740457017076 0ustar segresegrec Copyright Notice: FEFF6 is copyright protected software and users must c obtain a license from the University of Washington Office of c Technology Transfer for its use; see section V of FEFF document. c Main Authors of FEFF5: please contact us concerning problems. c A. L. Ankudinov, alex@phys.washington.edu (206) 543 0435 c S. I. Zabinsky, zabinsky@phys.washington.edu (206) 543 0435 c J. J. Rehr, jjr@phys.washington.edu (206) 543 8593 c R. C. Albers, rca@nidhug.lanl.gov (505) 665 0417 c Citations: Please cite at least one of the following articles if c FEFF is used in published work: c 1) Multiple scattering c J.J. Rehr and R.C. Albers, Phys. Rev. B41, 8139 (1990). c J.J. Rehr, S.I. Zabinsky and R.C. Albers, c Phys. Rev. Let. 69, 3397 (1992). c 2) General reference c J.J. Rehr, J. Mustre de Leon, S.I. Zabinsky, and R.C. Albers, c J. Am. Chem. Soc. 113, 5135 (1991). c 3) Technical reference c J. Mustre de Leon, J.J. Rehr, S.I. Zabinsky, and R.C. Albers, c Phys. Rev. B44, 4146 (1991). ifeffit-1.2.11d/src/feff6/unused/csomm.f0000644000175000017500000000162410771740457016742 0ustar segresegre subroutine csomm (dr,dp,dq,dpas,da,m,np) c Modified to use complex p and q. SIZ 4/91 c integration by the method of simpson of (dp+dq)*dr**m from c 0 to r=dr(np) c dpas=exponential step; c for r in the neighborhood of zero (dp+dq)=cte*r**da c ********************************************************************** implicit double precision (a-h,o-z) dimension dr(*) complex*16 dp(*),dq(*),da,dc mm=m+1 d1=da+mm da=0.0 db=0.0 do 70 i=1,np dl=dr(i)**mm if (i.eq.1.or.i.eq.np) go to 10 dl=dl+dl if ((i-2*(i/2)).eq.0) dl=dl+dl 10 dc=dp(i)*dl da=da+dc dc=dq(i)*dl da=da+dc 70 continue da=dpas*da/3 dd=exp(dpas)-1.0 db=d1*(d1+1.0)*dd*exp((d1-1.0)*dpas) db=dr(1)*(dr(2)**m)/db dd=(dr(1)**mm)*(1.0+1.0/(dd*(d1+1.0)))/d1 da=da+dd*(dp(1)+dq(1))-db*(dp(2)+dq(2)) return end ifeffit-1.2.11d/src/feff6/unused/str.f0000644000175000017500000000713010771740457016432 0ustar segresegreC FUNCTION ISTRLN (STRING) Returns index of last non-blank C character. Returns zero if string is C null or all blank. FUNCTION ISTRLN (STRING) CHARACTER*(*) STRING C -- If null string or blank string, return length zero. ISTRLN = 0 IF (STRING (1:1) .EQ. CHAR(0)) RETURN IF (STRING .EQ. ' ') RETURN C -- Find rightmost non-blank character. ILEN = LEN (STRING) DO 20 I = ILEN, 1, -1 IF (STRING (I:I) .NE. ' ') GOTO 30 20 CONTINUE 30 ISTRLN = I RETURN END C SUBROUTINE TRIML (STRING) Removes leading blanks. SUBROUTINE TRIML (STRING) CHARACTER*(*) STRING CHARACTER*200 TMP JLEN = ISTRLN (STRING) C -- All blank and null strings are special cases. IF (JLEN .EQ. 0) RETURN C -- FInd first non-blank char DO 10 I = 1, JLEN IF (STRING (I:I) .NE. ' ') GOTO 20 10 CONTINUE 20 CONTINUE C -- If I is greater than JLEN, no non-blanks were found. IF (I .GT. JLEN) RETURN C -- Remove the leading blanks. TMP = STRING (I:) STRING = TMP RETURN END C*********************************************************************** C SUBROUTINE BWORDS (S, NWORDS, WORDS) C C Breaks string into words. Words are seperated by one or more C blanks, or a comma and zero or more blanks. C C ARGS I/O DESCRIPTION C ---- --- ----------- C S I CHAR*(*) String to be broken up C NWORDS I/O Input: Maximum number of words to get C Output: Number of words found C WORDS(NWORDS) O CHAR*(*) WORDS(NWORDS) C Contains words found. WORDS(J), where J is C greater then NWORDS found, are undefined on C output. C C Written by: Steven Zabinsky, September 1984 C C************************** Deo Soli Gloria ************************** C -- No floating point numbers in this routine. IMPLICIT INTEGER (A-Z) CHARACTER*(*) S, WORDS(NWORDS) CHARACTER BLANK, COMMA PARAMETER (BLANK = ' ', COMMA = ',') C -- BETW .TRUE. if between words C COMFND .TRUE. if between words and a comma has already been found LOGICAL BETW, COMFND C -- Maximum number of words allowed WORDSX = NWORDS C -- SLEN is last non-blank character in string SLEN = ISTRLN (S) C -- All blank string is special case IF (SLEN .EQ. 0) THEN NWORDS = 0 RETURN ENDIF C -- BEGC is beginning character of a word BEGC = 1 NWORDS = 0 BETW = .TRUE. COMFND = .TRUE. DO 10 I = 1, SLEN IF (S(I:I) .EQ. BLANK) THEN IF (.NOT. BETW) THEN NWORDS = NWORDS + 1 WORDS (NWORDS) = S (BEGC : I-1) BETW = .TRUE. COMFND = .FALSE. ENDIF ELSEIF (S(I:I) .EQ. COMMA) THEN IF (.NOT. BETW) THEN NWORDS = NWORDS + 1 WORDS (NWORDS) = S(BEGC : I-1) BETW = .TRUE. ELSEIF (COMFND) THEN NWORDS = NWORDS + 1 WORDS (NWORDS) = BLANK ENDIF COMFND = .TRUE. ELSE IF (BETW) THEN BETW = .FALSE. BEGC = I ENDIF ENDIF IF (NWORDS .GE. WORDSX) RETURN 10 CONTINUE IF (.NOT. BETW .AND. NWORDS .LT. WORDSX) THEN NWORDS = NWORDS + 1 WORDS (NWORDS) = S (BEGC :SLEN) ENDIF RETURN END ifeffit-1.2.11d/src/feff6/unused/exjlnl.f0000644000175000017500000000307010771740457017115 0ustar segresegre subroutine exjlnl (z, l, jl, nl) c purpose: to calculate the spherical bessel functions jl and nl c for l = 0, 1, 2 or 3 using exact analytic expression c c arguments: c z = argument of jl and nl c l = integer order of spherical bessel function c jl = jl bessel function (abramowitz conventions) c nl = nl bessel function (abramowitz yl conventions) c Note that this nl = abramowitz yl. c c analytic expressions from abramowitz 10.1.11 and 10.1.12 c recurrence relation to get analytic j4,n4 eqns 10.1.19-22 implicit double precision (a-h, o-z) complex*16 z, jl, nl complex*16 cosz, sinz c Exact formulae unstable for very small z, so use series c expansion there. Limit of .3 chosen for 9 digit agreement. if (abs(z) .lt. 0.3) then call bjnser (z, l, jl, nl, 0) else c use analytic formulae cosz = cos(z) sinz = sin(z) if (l .eq. 0) then jl = sinz / z nl = -cosz / z elseif (l .eq. 1) then jl = sinz/z**2 - cosz/z nl = -cosz/z**2 - sinz/z elseif (l .eq. 2) then jl = ( 3/z**3 - 1/z)*sinz - 3*cosz/z**2 nl = (-3/z**3 + 1/z)*cosz - 3*sinz/z**2 elseif (l .eq. 3) then jl = ( 15/z**4 - 6/z**2)*sinz + (-15/z**3 + 1/z)*cosz nl = (-15/z**4 + 6/z**2)*cosz + (-15/z**3 + 1/z)*sinz else call fstop(' at exjlnl, l out of range') endif endif return end ifeffit-1.2.11d/src/feff6/rpotph.f0000644000175000017500000000430010663646452015627 0ustar segresegre subroutine rpotph (io, nhead0, head0, lhead0, 1 nat, nph, nfr, ihole, gamach, iafolp, intclc, 1 ixc, vr0, vi0, rs0, iphat, rat, iatph, ifrph, 1 xnatph, novr, 2 iphovr, nnovr, rovr, folp, ion, iz, iprint, 2 ixanes, nemax, xkmin, xkmax, potlbl) implicit double precision (a-h, o-z) c Notes: c nat number of atoms in problem c nph number of unique potentials c nfr number of unique free atoms c ihole hole code of absorbing atom c iph=0 for central atom c ifr=0 for central atom c xkmin, xkmax min and max energy mesh points to consider include 'dim.h' character*(*) head0(nhead0) dimension lhead0(nhead0) c End of line comments removed -- see include file arrays.h for c comments. c Specific atom input data dimension iphat(natx) dimension rat(3,natx) c Unique potential input data dimension iatph(0:nphx) dimension ifrph(0:nphx) dimension xnatph(0:nphx) character*6 potlbl(0:nphx) dimension folp(0:nphx) dimension novr(0:nphx) dimension iphovr(novrx,0:nphx) dimension nnovr(novrx,0:nphx) dimension rovr(novrx,0:nphx) c Free atom data dimension ion(0:nfrx) dimension iz(0:nfrx) c read and save header from old file, has carriage control char head0(1) = ' ' call rdhead (io, nhead0, head0, lhead0) read(io,*) ihole, gamach, iprint, iafolp, intclc read(io,*) ixc, vr0, vi0, rs0 read(io,*) ixanes, nemax, xkmin, xkmax read(io,*) nfr do 710 ifr = 0, nfr read(io,*) index, iz(ifr), ion(ifr) 710 continue read(io,*) nat do 720 iat = 1, nat read(io,*) index, iphat(iat), (rat(j,iat),j=1,3) 720 continue read(io,*) nph do 740 iph = 0, nph read(io,*) index, iatph(iph), ifrph(iph), xnatph(iph), 1 folp(iph), novr(iph) read(io,*) potlbl(iph) do 730 iovr = 1, novr(iph) read(io,*) iphovr(iovr,iph), nnovr(iovr,iph), 1 rovr(iovr,iph) 730 continue 740 continue return end ifeffit-1.2.11d/src/feff6/chopen.f0000644000175000017500000000076710663646452015604 0ustar segresegre subroutine chopen (ios, fname, mod) c Writes error msg and stops if error in ios flag from open c statement. fname is filename, mod is module with failed open. character*(*) fname, mod, s*512 integer il, istrln c open successful if (ios .le. 0) return c error opening file, tell user and die. il = istrln(fname) write(s,100) fname(1:il), mod 100 format ('cannot open file "', $ a, '" in module ', a) call fstop(s) end ifeffit-1.2.11d/src/feff6/rphbin.f0000644000175000017500000000406210663646452015602 0ustar segresegre subroutine rphbin (in) implicit double precision (a-h, o-z) c Reads input from unit in. Returns (via /pdata/) c energy mesh (ne, em and eref), c ph (npot, lmax, lmaxp1, ph), c final state (l0, il0) c c phmin is min value to use for |phase shift| include 'dim.h' include 'pdata.h' parameter (phmin = 1.0e-8) c These header lines do not include carriage control read(in) ntext do 62 i = 1, ntext read(in) text(i) read(in) ltext(i) 62 continue read(in) ne, npot, ihole, rnrmav, xmu, edge, ik0 read(in) (em(ie),ie=1,ne) read(in) (eref(ie),ie=1,ne) lmaxp1 = 0 do 80 iph = 0, npot read(in) lmax0, iz(iph) read(in) potlbl(iph) do 70 ie = 1, ne read(in) (ph(ie,ll,iph), ll=1,lmax0+1) lmax(ie,iph) = 0 c Set lmax to include only non-zero phases do 60 il = 1, lmax0+1 if (abs(ph(ie,il,iph)) .lt. phmin) goto 61 lmax(ie,iph) = il-1 60 continue 61 continue if (lmax(ie,iph)+1 .gt. lmaxp1) lmaxp1 = lmax(ie,iph)+1 70 continue 80 continue c-----l0 is angular momentum of final state c Selection rule says that final state has angmom = l_init+1 c ihole initial state from ihole final state c 1 K 1s L=0 -> linit=0 L0=1 -> lfinal=1 c 2 LI 2s L=0 -> linit=0 L0=1 -> lfinal=1 c 3 LII 2p 1/2 L=1 -> linit=1 L0=2 -> lfinal=2 c 4 LIII 2p 3/2 L=1 -> linit=1 L0=2 -> lfinal=2 c 5+ M -- think about this later... if (ihole .le. 2) then c hole in s state (1s or 2s) linit = 0 lfinal = 1 elseif (ihole .le. 4) then c hole in p state (2p 1/2 or 2p 3/2) linit = 1 lfinal = 2 else c some m hole, n=3, could go to d state call echo(' Feff6L only does K and L shells') call fstop(' at RPHBIN') endif l0 = lfinal il0 = l0 + 1 return end ifeffit-1.2.11d/src/feff6/timrep.f0000644000175000017500000000553010663646452015621 0ustar segresegre subroutine timrep (npat, ipat, rx, ry, rz, dhash) c subroutine timrev(...) is modified for polarization case c Time-orders path and returns path in standard order, c standard order defined below. c Input: npat, ipat c Output: ipat in standard order (time reversed if necessary) c rx, ry, rz contain x,y,z coordinates of the path atoms, c where z-axis is along polarization vector or first leg, if c running usual feff, c x-axis is chosen so that first atom, which does not lie on c z-axis, lies in xz-plane, c for elliptically polarized light, x-axis is along the c incidence direction c y-axis is cross product of two previos unit vectors c Standarrd order is defined so that first nonzero x,y and z c coords are positive.(Otherwise we use the inversion of c the corresponding unit vector) c dhash double precision hash key for path in standard c order include 'dim.h' common /atoms/ rat(3,0:natx), ipot(0:natx), ilb(0:natx) dimension ipat(npatx+1), rx(npatx), ry(npatx), rz(npatx) dimension ipat0(npatx+1), rx0(npatx), ry0(npatx), rz0(npatx) double precision dhash, dhash0 c Time reverses path if time reversing it will put it c in standard order. Standard order is defined by min hash c number, using path hash algorithm developed for the path c degeneracy checker. See subroutine phash for details. c Symmetrical paths are, of course, always standard ordered. c Also returns hash number for standard ordered path. c Use suffix 0 for (') in variable names c If no time-reversal standard ordering needed, make hash number c and return. No timrev needed if 2 leg path (symmetrical). nleg = npat + 1 ipat(nleg) = 0 do 10 i = 1, npatx rx(i) = 0 ry(i) = 0 rz(i) = 0 rx0(i) = 0 ry0(i) = 0 rz0(i) = 0 10 continue call mpprmp(npat, ipat, rx, ry, rz) call phash (npat, ipat, rx, ry, rz, dhash) if (npat .le. 1) then return endif c Make time reversed path ipat0(nleg) = ipat(nleg) do 210 i = 1, npat ipat0(i) = ipat(nleg-i) 210 continue call mpprmp(npat, ipat0, rx0, ry0, rz0) call phash (npat, ipat0, rx0, ry0, rz0, dhash0) c Do the comparison using hash numbers c Want representation with smallest hash number if (dhash0 .lt. dhash) then c time reversed representation is smaller, so return c that version of the path dhash = dhash0 do 300 i = 1, npat ipat(i) = ipat0(i) rx(i) = rx0(i) ry(i) = ry0(i) rz(i) = rz0(i) 300 continue endif return end ifeffit-1.2.11d/src/feff6/mpprmp.f0000644000175000017500000001146710663646452015642 0ustar segresegre subroutine mpprmp (npat, ipat, xp, yp, zp) c make path parameters, xp, yp,zp for each atom for a given c path. c Input is list of atoms (npat, ipat(npat)), output are c x,y,z coord. of path in standard frame of reference c (see comments in timrep.f or here below) include 'dim.h' include 'pola.h' double precision ro2, norm, zvec, xvec, yvec, ri, xp1, yp1, zp1 dimension ipat(npatx+1), zvec(3), xvec(3), yvec(3) common /atoms/ rat(3,0:natx), ipot(0:natx), i1b(0:natx) dimension xp(npatx), yp(npatx), zp(npatx) dimension xp1(npatx), yp1(npatx), zp1(npatx) dimension ri(3,npatx) parameter (eps4 = 1.0E-4) c get the atoms in this path c we actually have them already via the ipat array c initialize staff do 10 j = 1, npatx xp(j) = 0 yp(j) = 0 zp(j) = 0 xp1(j) = 0 yp1(j) = 0 zp1(j) = 0 10 continue nleg = npat + 1 do 20 j = 1, npat do 20 i = 1, 3 ri(i,j) = rat(i,ipat(j)) - rat(i,0) 20 continue do 30 j = nleg, npatx do 30 i = 1, 3 ri(i,j) = 0 30 continue do 40 i =1, 3 xvec(i) = 0.0 yvec(i) = 0.0 zvec(i) = 0.0 40 continue if (.not. pola) then c z-axis along first leg norm = ri(1,1)*ri(1,1)+ri(2,1)*ri(2,1)+ri(3,1)*ri(3,1) norm = sqrt(norm) do 140 i = 1, 3 zvec(i) = ri(i,1)/norm 140 continue else c z-axis in direction of polarization do 120 i = 1, 3 zvec(i) = evec(i) 120 continue endif do 160 j = 1,npat do 160 i = 1, 3 zp1(j) = zp1(j) + zvec(i)*ri(i,j) 160 continue num = 1 if (.not. pola) then c first nonzero z-coord. is already positive goto 240 endif 200 continue if (abs(zp1(num)) .gt. eps4) then if (zp1(num) .lt. 0.0) then c inverse all z-coordinates and zvec, if c first nonzero z-coordinate is negative do 210 j = 1, 3 zvec(j) = - zvec(j) 210 continue do 220 j = 1, npat zp1(j) = - zp1(j) 220 continue endif goto 240 endif num = num +1 if (num .lt. nleg) then goto 200 endif c here first nonzero z-coordinate is positive 240 continue num = 1 300 continue ro2 = 0.0 do 310 i =1, 3 ro2 = ro2 + ri(i,num)*ri(i,num) 310 continue c looking for first atom which is not on z-axis ro2 = ro2 - zp1(num)*zp1(num) ro2 = sqrt(abs(ro2)) if (ro2 .ge. eps4) then c if atom not on the z-axis then if (elpty .eq. 0.0) then c if not elliptical polarization then c choose x-axis so that x-coord. positive and y=0. do 320 i = 1, 3 xvec(i) = ri(i,num) - zvec(i)*zp1(num) 320 continue do 330 i = 1, 3 xvec(i) = xvec(i)/ro2 330 continue else c if elliptical polarization then c choose x-axis along incident beam do 350 i =1, 3 xvec(i) = ivec(i) 350 continue endif yvec(1) = zvec(2)*xvec(3) - zvec(3)*xvec(2) yvec(2) = zvec(3)*xvec(1) - zvec(1)*xvec(3) yvec(3) = zvec(1)*xvec(2) - zvec(2)*xvec(1) goto 390 endif num = num + 1 if (num .lt. nleg) then goto 300 endif 390 continue c calculate x,y coord for each atom in chosen frame of reference do 400 j = 1, npat do 400 i =1,3 xp1(j) = xp1(j) + xvec(i)*ri(i,j) yp1(j) = yp1(j) + yvec(i)*ri(i,j) 400 continue if ( elpty .ne. 0.0) then c if no polarization or linear polarization then first nonzero c x-coordinate is already positive, no need to check it. num = 1 500 continue if (abs(xp1(num)) .ge. eps4) then if (xp1(num) .lt. 0.0) then do 510 j = 1, npat xp1(j) = - xp1(j) 510 continue endif goto 520 endif num = num + 1 if (num .lt. nleg) then goto 500 endif 520 continue endif num = 1 570 continue c inverse all y-coordinates if first nonzero y-coord is negative if (abs(yp1(num)) .ge. eps4) then if (yp1(num) .lt. 0.0) then do 580 j = 1, npat yp1(j) = - yp1(j) 580 continue endif goto 590 endif num = num + 1 if (num .lt. nleg) then goto 570 endif 590 continue do 595 j = 1, npat xp(j) = xp1(j) yp(j) = yp1(j) zp(j) = zp1(j) 595 continue c now xp,yp,zp represent the path in standard order return end ifeffit-1.2.11d/src/feff6/bjnser.f0000644000175000017500000000577110663646452015613 0ustar segresegre subroutine bjnser (x, l, jl, nl, ifl) c----------------------------------------------------------------------- c c subroutine: bjnser (x,l,jl,nl,ifl) c c purpose: to calculate the spherical bessel functions jl and nl c c arguments: c x = argument of jl and nl c l = l value calculated (no offset) c jl = jl bessel function (abramowitz conventions) c nl = nl bessel function (abramowitz yl conventions) c ifl = 0 return both jl and nl c 1 return jl only c 2 return nl only c c notes: jl and nl are calculated by a series c expansion according to 10.1.2 and 10.1.3 c in abramowitz and stegun (ninth printing), c page 437 c c error msgs written with PRINT statements. c c first coded by r. c. albers on 26 jan 83 c c version 2 c c last modified: 27 jan 83 by r. c. albers c c----------------------------------------------------------------------- implicit double precision (a-h,o-z) complex*16 x,u,ux,del,pj,pn complex*16 jl,nl parameter (niter = 20, tol = 1.e-15) if (l .lt. 0) then call echo('Error in bjnser: l<0') elseif (dble(x).lt. 0.) then call echo('Error in bjnser: x<0') else lp1 = l+1 u = x**2 / 2 c make djl = 1 * 3 * 5 * ... * (2*l+1), c dnl = 1 * 3 * 5 * ... * (2*l-1) djl = 1 fac = -1 do 50 il = 1, lp1 fac = fac + 2 djl = fac * djl 50 continue dnl = djl / (2*l+1) if (ifl .eq. 2) goto 90 c make jl c pj is term in { } in 10.1.2, del is last factor in the series c convergence test is (last factor)/(total term) <= tol pj = 1 nf = 1 nfac = 2*l + 3 den = nfac sgn = -1 ux = u do 60 il = 1, niter del = sgn*ux / den pj = pj + del trel = abs (del / pj) if (trel .le. tol) goto 80 sgn = -sgn ux = u*ux nf = nf+1 nfac = nfac+2 den = nf * nfac * den 60 continue call echo('Error in bjsner: jl does not converge') 80 jl = pj * (x**l) / djl 90 if (ifl.eq.1) return c make nl c pn is term in { } in 10.1.3, del is last factor in the series c convergence test is (last factor)/(total term) <= tol pn = 1 nf = 1 nfac = 1 - 2*l den = nfac sgn = -1 ux = u do 100 il = 1, niter del = sgn * ux / den pn = pn + del trel = abs (del / pn) if (trel .le. tol) goto 120 sgn = -sgn ux = u*ux nf = nf+1 nfac = nfac+2 den = nf * nfac * den 100 continue call echo('Error in bjnser: nl does not converge') 120 continue nl = -pn * dnl / (x**lp1) endif return end ifeffit-1.2.11d/src/feff6/besjn.f0000644000175000017500000001237410663646452015426 0ustar segresegre subroutine besjn (x, jl, nl) c----------------------------------------------------------------------- c c purpose: to calculate the spherical bessel functions jl and nl c for l = 0 to 30 (no offset) c c arguments: c x = argument of jl and nl c jl = jl bessel function (abramowitz conventions) c nl = nl bessel function (abramowitz yl conventions) c Note that this array nl = abramowitz yl. c jl and nl must be dimensioned c complex*16 jl(ltot+2), nl(ltot+2), with ltot defined in c dim.h. c c notes: jl and nl should be calculated at least to 10 place c accuracy for the range 0= 5 asx = sin(x) acx = cos(x) xi = 1 / x xi2 = xi*xi nl(1) = -acx*xi nl(2) = -acx*xi2 - asx*xi endif c Use recursion relation 10.1.19 to get nl and jl do 50 lp1 = 3, lmaxp1 tlxp1 = 2*lp1 -3 nl(lp1) = tlxp1 * nl(lp1-1) / x - nl(lp1-2) 50 continue do 60 lx = 3,lmaxp1 lp1 = lmaxp1+1-lx l = lp1-1 tlxp3 = 2*l + 3 jl(lp1) = tlxp3 * jl(lp1+1) / x - jl(lp1+2) 60 continue else c case Re(x) > 7.5 c Use AS 10.1.8 and 10.1.9, sjl=P, qjl=Q, note that AS formulae c use cos (z - n*pi/2), etc., so cos and sin terms get a bit c scrambled (mod 4) here, since n is integer. These are hard- c coded into the terms below. xi = 1 / x xi2 = xi*xi xi3 = xi*xi2 xi4 = xi*xi3 xi5 = xi*xi4 xi6 = xi*xi5 xi7 = xi*xi6 xi8 = xi*xi7 xi9 = xi*xi8 xi10 = xi*xi9 xi11 = xi*xi10 sjl(1) = xi sjl(2) = xi2 sjl(3) = 3.d0*xi3 - xi sjl(4) = 15.d0*xi4 - 6.d0*xi2 sjl(5) = 105.d0*xi5 - 45.d0*xi3 + xi sjl(6) = 945.d0*xi6 - 420.d0*xi4 + 15.d0*xi2 sjl(7) = 10395.d0*xi7 - 4725.d0*xi5 + 210.d0*xi3 - xi sjl(8) = 135135.d0*xi8 - 62370.d0*xi6 + 3150.d0*xi4 - $ 28.d0*xi2 sjl(9) = 2027025.d0*xi9 - 945945.d0*xi7 + 51975.d0*xi5 - 1 630.d0*xi3 + xi sjl(10) = 34459425.d0*xi10 - 16216200.d0*xi8 + 1 945945.d0*xi6 - 13860.d0*xi4 + 45.d0*xi2 sjl(11) = 654729075.d0*xi11 - 310134825.d0*xi9 + 1 18918900.d0*xi7 - 315315.d0*xi5 + 1485.d0*xi3 - xi cjl(1) = 0 cjl(2) = -xi cjl(3) = -3.d0*xi2 cjl(4) = -15.d0*xi3 + xi cjl(5) = -105.d0*xi4 + 10.d0*xi2 cjl(6) = -945.d0*xi5 + 105.d0*xi3 - xi cjl(7) = -10395.d0*xi6 + 1260.d0*xi4 - 21.d0*xi2 cjl(8) = -135135.d0*xi7 + 17325.d0*xi5 - 378.d0*xi3 + xi cjl(9) = -2027025.d0*xi8 + 270270.d0*xi6 - 6930.d0*xi4 + $ 36.d0*xi2 cjl(10) = -34459425.d0*xi9 + 4729725.d0*xi7 - 135135.d0*xi5 + 1 990.d0*xi3 - xi cjl(11) = -654729075.d0*xi10 + 91891800.d0*xi8 - 1 2837835.d0*xi6 + 25740.d0*xi4 - 55.d0*xi2 do 80 ie = 1,11 snl(ie) = cjl(ie) cnl(ie) = -sjl(ie) 80 continue do 90 lp1 = 12,lmaxp1 tlxp1 = 2*lp1-3 sjl(lp1) = tlxp1*xi*sjl(lp1-1)-sjl(lp1-2) cjl(lp1) = tlxp1*xi*cjl(lp1-1)-cjl(lp1-2) snl(lp1) = tlxp1*xi*snl(lp1-1)-snl(lp1-2) cnl(lp1) = tlxp1*xi*cnl(lp1-1)-cnl(lp1-2) 90 continue asx = sin(x) acx = cos(x) do 110 lp1 = 1,lmaxp1 jl(lp1) = asx*sjl(lp1)+acx*cjl(lp1) nl(lp1) = asx*snl(lp1)+acx*cnl(lp1) 110 continue endif return end ifeffit-1.2.11d/src/feff6/sigms.f0000644000175000017500000001613410663646452015445 0ustar segresegrec--------------------------------------------------------------------- c program sigms.f c c calculates debye-waller factors for each multiple c scattering path using Debye-Model correlations c c files: input pathd_all.dat multiple scattering path data c output fort.3 sig**2 vs path c fort.2 long output c c version 1 (29 july 91) c c coded by j. rehr c path data from s. zabinsky c c modified to use pdata.inp, Dec 1991, siz c Subroutine version, Dec 1991, siz c c--------------------------------------------------------------------- subroutine sigms (tk, thetad, rs, nlegx, nleg, rat, iz, sig2) c tk temperature in degrees K c thetad debye temp in degrees K c rs=wigner seitz or norman radius in bohr, averaged c over entire problem c (4pi/3)*rs**3 = sum( (4pi/3)rnrm**3 ) / N c (sum is over all atoms in the problem) c nlegx used in dimensions of rat and iz c nleg nlegs in path c rat positions of each atom in path (in bohr) c iz atomic number of each atom in path c NB Units of distance in this routine c are angstroms, including sig**2 c sig2 is output, debye waller factor in bohr**-2 implicit double precision (a-h,o-z) include 'const.h' c nlegx is max number of atoms in any one path dimension rat(3,0:nlegx) dimension iz(0:nlegx) c parameters c x = k_d*R (distance parameter) c R distance in angstroms c y = hbar omegad/kT = thetad/t c thetad debye temp in degrees K c tk temperature in degrees K c k_d = (6*pi**2 N/V) = debye wave number c N/V=1/(4pi/3rs**3) c rs=wigner seitz or norman radius in bohr c ami, amj masses at sites i and j in amu c I = int_0^1 (y/x) dw sin(wx)coth(wy/2) c Note: There are nleg atoms including the central atom c index 0 and index nleg both refer to central atom, c which makes special code unnecessary later. sum = 0 ntot = 0 sigtot=0 do 800 il=1,nleg do 800 jl=il,nleg c calculate r_i-r_i-1 and r_j-r_j-1 rij = dist (rat(1,il), rat(1,jl)) call corrfn (rij, cij, thetad, tk, iz(il), iz(jl), rs) sig2ij=cij rimjm = dist (rat(1,il-1), rat(1,jl-1)) call corrfn (rimjm, cimjm, thetad, tk, iz(il-1), iz(jl-1), rs) sig2ij=sig2ij+cimjm rijm = dist (rat(1,il), rat(1,jl-1)) call corrfn (rijm, cijm, thetad, tk, iz(il), iz(jl-1), rs) sig2ij=sig2ij-cijm rimj = dist (rat(1,il-1), rat(1,jl)) call corrfn (rimj, cimj, thetad, tk, iz(il-1), iz(jl), rs) sig2ij=sig2ij-cimj riim = dist (rat(1,il), rat(1,il-1)) rjjm = dist (rat(1,jl), rat(1,jl-1)) ridotj=(rat(1,il)-rat(1,il-1))*(rat(1,jl)-rat(1,jl-1))+ 1 (rat(2,il)-rat(2,il-1))*(rat(2,jl)-rat(2,jl-1))+ 2 (rat(3,il)-rat(3,il-1))*(rat(3,jl)-rat(3,jl-1)) ridotj=ridotj/(riim*rjjm) c double count i .ne. j terms if(jl.ne.il) sig2ij=2*sig2ij sig2ij=sig2ij*ridotj sigtot=sigtot+sig2ij 800 continue sig2=sigtot/4 c sig2 is in bohr**2, just as we wanted for ff2chi return end subroutine corrfn(rij,cij,thetad,tk,iz1,iz2,rsavg) c subroutine calculates correlation function c c(ri,rj)= in the Debye approximation c c =(1/N)sum_k exp(ik.(Ri-Rj))(1/sqrt(mi*mj))* c (hbar/2w_k)*coth(beta hbar w_k/2) c = (3kT/mu w_d**2)*sqrt(mu**2/mi*mj)*I c c parameters c x = k_d*R (distance parameter) c R distance in angstroms c y = hbar omegad/kT = thetad/t c thetad debye temp in degrees K c tk temperature in degrees K c k_d = (6*pi**2 N/V) = debye wave number c N/V=1/(4pi/3rs**3) c rs=wigner seitz or norman radius in bohr c ami, amj masses at sites i and j in amu c I = int_0^1 (y/x) dw sin(wx)coth(wy/2) c c solution by numerical integration c implicit double precision (a-h, o-z) common /xy/ x, yinv include 'const.h' external atwtd, dist c con=hbar**2/kB*amu)*10**20 in ang**2 units c hbar = 1.054 572 666 e-34, amu = 1.660 540 e-27, c kB = 1.380 6581 d-23 parameter (con = 48.508 459 393 094) c external fn c rij=2.55 c tk=295 c thetad=315 c ami=amj=63.55 at wt for Cu c rs=2.7 ami=atwtd(iz1) amj=atwtd(iz2) rs=rsavg c thetad in degrees K, t temperature in degrees K c y=thetad/tk yinv=tk/thetad xkd=(9*pi/2)**(third)/(rs*bohr) fac=(3/2.)*con/(thetad*sqrt(ami*amj)) rj=rij x=xkd*rj c call numerical integration call bingrt (grater, eps, nx) cij=fac*grater return end double precision function fn(w) implicit double precision (a-h,o-z) common/xy/x,yinv c fn=(sin(wx)/x)*coth(wy/2) c change code to allow t=0 without bombing c fn=2/y fn=2*yinv if(w.lt.1.e-20) return fac=w if(x.gt.0.) fac=sin(w*x)/x emwy=0. if(yinv.gt.0.0125) emwy=exp(-w/yinv) emwy=exp(-w/yinv) fn=fac*(1+emwy)/(1-emwy) return end c----------------------------------------------- subroutine bingrt (b, eps, n) c subroutine calculates integrals between [0,1] c b = int_0^1 f(z) dz c by trapezoidal rule and binary refinement c (romberg integration) c coded by j rehr (10 Feb 92) c see, e.g., numerical recipes for discussion c and a much fancier version c----------------------------------------------- c del=dz itn=2**n tol=1.e-5 c starting values implicit double precision (a-h,o-z) character messag*128 common /xy/x,yinv c external fn c error is approximately 2**(-2n) ~ 10**(-.6n) c so nmax=10 implies an error of 1.e-6 parameter(nmax = 10, tol = 1.e-5) parameter(zero=0, one=1) n=0 itn=1 del=1. bn=(fn(zero)+fn(one))/2 bo=bn 10 continue c nth iteration c b_n+1=(b_n)/2+deln*sum_0^2**n f([2n-1]deln) n=n+1 if(n.gt.nmax) go to 40 del=del/2 sum=0. do 20 i=1, itn zi=(2*i-1)*del 20 sum=sum+fn(zi) c bnp1=b_n+1 is current value of integral bnp1=bn/2+del*sum c cancel leading error terms b=[4b-bn]/3 c note: this is the first term in the c neville table - remaining errors were c found too small to justify the added code b=(4*bnp1-bn)/3 eps=abs((b-bo)/b) if(eps.lt.tol) goto 60 bn=bnp1 bo=b itn=itn*2 goto 10 40 continue write(messag, 50) n,itn, b,eps call echo(messag) 50 format(' not converged, n,itn,b,eps=', 1 2i4,2e14.6) return 60 continue c print70, n, itn, b, eps c70 format(' n,itn,b,eps=' 2i4,2e16.8) return end ifeffit-1.2.11d/src/feff6/dist.f0000644000175000017500000000047310663646452015265 0ustar segresegre double precision function dist (r0, r1) c find distance between cartesian points r0 and r1 implicit double precision (a-h, o-z) dimension r0(3), r1(3) dist = 0 do 10 i = 1, 3 dist = dist + (r0(i) - r1(i))**2 10 continue dist = sqrt (dist) return end ifeffit-1.2.11d/src/feff6/Makefile.in0000644000175000017500000002602710774476366016233 0ustar segresegre# Makefile.in generated automatically by automake 1.4 from Makefile.am # Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. # Copyright (C) 2000 Matt Newville # # This file is free software; as a special exception the author gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY, to the extent permitted by law; without even the # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. SHELL = @SHELL@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ sbindir = @sbindir@ libexecdir = @libexecdir@ datadir = @datadir@ sysconfdir = @sysconfdir@ sharedstatedir = @sharedstatedir@ localstatedir = @localstatedir@ libdir = @libdir@ infodir = @infodir@ mandir = @mandir@ includedir = @includedir@ oldincludedir = /usr/include DESTDIR = pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = ../.. ACLOCAL = @ACLOCAL@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS) INSTALL_DATA = @INSTALL_DATA@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ transform = @program_transform_name@ NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : host_alias = @host_alias@ host_triplet = @host@ CC = @CC@ CPP = @CPP@ CXX = @CXX@ CXXCPP = @CXXCPP@ F2C = @F2C@ F2CFLAGS = @F2CFLAGS@ F77 = @F77@ FFLAGS = @FFLAGS@ FLIBS = @FLIBS@ MN_FLIBS = @MN_FLIBS@ MAKEINFO = @MAKEINFO@ NM = @NM@ PACKAGE = @PACKAGE@ RANLIB = @RANLIB@ VERSION = @VERSION@ canonical_host_type = @canonical_host_type@ bin_PROGRAMS = feff6 feff6_SOURCES = feff.f rdinp.f chopen.f mkptz.f setgam.f terp.f potph.f\ rpotph.f rdhead.f atom.f indata.f getorb.f dirac.f inouh.f\ inth.f potsl.f somm.f totale.f cdsld.f ykdir.f renorm.f potslw.f\ ovrlp.f sumax.f frnrm.f istprm.f sidx.f istval.f fermi.f head.f\ wpot.f phmesh.f fixvar.f phase.f besjn.f bjnser.f xcpot.f\ rhl.f imhl.f ffq.f cubic.f quinn.f edp.f fovrg.f diff.f intpol.f\ wphase.f prcrit.f rphbin.f cpl0.f paths.f sortix.f ccrit.f\ mrb.f mcrith.f mcritk.f ipack.f heap.f pathsd.f timrep.f mpprmp.f\ phash.f outcrt.f strap.f mpprmd.f genfmt.f snlm.f rdpath.f\ setlam.f rot3i.f mmtr.f sclmz.f mmtrxi.f fmtrxi.f trap.f pijump.f\ ff2chi.f sigms.f \ dist.f sdist.f xx.f getxk.f dalp.f fpot.f exchan.f exchee.f pertab.f feff6_OBJECTS = feff.o rdinp.o chopen.o mkptz.o setgam.o terp.o potph.o\ rpotph.o rdhead.o atom.o indata.o getorb.o dirac.o inouh.o\ inth.o potsl.o somm.o totale.o cdsld.o ykdir.o renorm.o potslw.o\ ovrlp.o sumax.o frnrm.o istprm.o sidx.o istval.o fermi.o head.o\ wpot.o phmesh.o fixvar.o phase.o besjn.o bjnser.o xcpot.o\ rhl.o imhl.o ffq.o cubic.o quinn.o edp.o fovrg.o diff.o intpol.o\ wphase.o prcrit.o rphbin.o cpl0.o paths.o sortix.o ccrit.o\ mrb.o mcrith.o mcritk.o ipack.o heap.o pathsd.o timrep.o mpprmp.o\ phash.o outcrt.o strap.o mpprmd.o genfmt.o snlm.o rdpath.o\ setlam.o rot3i.o mmtr.o sclmz.o mmtrxi.o fmtrxi.o trap.o pijump.o\ ff2chi.o sigms.o \ dist.o sdist.o xx.o getxk.o dalp.o fpot.o exchan.o exchee.o pertab.o feff6_INC = vers.h dim.h const.h pola.h arrays.h pdata.h clmz.h fmatrx.h\ lambda.h nlm.h rotmat.h echo.h mepts.h feff6_LDADD = ../lib/libxafs.a $(MN_FLIBS) feff6_DEPENDENCIES = ../lib/libxafs.a feff6_LDFLAGS = mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs CONFIG_HEADER = ../../config.h CONFIG_CLEAN_FILES = PROGRAMS = $(bin_PROGRAMS) DEFS = @DEFS@ -I. -I$(srcdir) -I../.. CPPFLAGS = @CPPFLAGS@ LDFLAGS = @LDFLAGS@ LIBS = @LIBS@ F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS) F77LD = $(F77) F77LINK = $(F77LD) $(AM_FFLAGS) $(FFLAGS) $(LDFLAGS) -o $@ CFLAGS = @CFLAGS@ COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(LDFLAGS) -o $@ DIST_COMMON = Makefile.in DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) TAR = gtar GZIP_ENV = --best SOURCES = $(feff6_SOURCES) OBJECTS = $(feff6_OBJECTS) all: all-redirect .SUFFIXES: .SUFFIXES: .S .c .f .o .s Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status $(BUILT_SOURCES) cd $(top_builddir) \ && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status mostlyclean-binPROGRAMS: clean-binPROGRAMS: -test -z "$(bin_PROGRAMS)" || rm -f $(bin_PROGRAMS) distclean-binPROGRAMS: maintainer-clean-binPROGRAMS: install-binPROGRAMS: $(bin_PROGRAMS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(bindir) @list='$(bin_PROGRAMS)'; for p in $$list; do \ if test -f $$p; then \ echo " $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`"; \ $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`; \ else :; fi; \ done uninstall-binPROGRAMS: @$(NORMAL_UNINSTALL) list='$(bin_PROGRAMS)'; for p in $$list; do \ rm -f $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`; \ done .s.o: $(COMPILE) -c $< .S.o: $(COMPILE) -c $< mostlyclean-compile: -rm -f *.o core *.core clean-compile: distclean-compile: -rm -f *.tab.c maintainer-clean-compile: feff6: $(feff6_OBJECTS) $(feff6_DEPENDENCIES) @rm -f feff6 $(F77LINK) $(feff6_LDFLAGS) $(feff6_OBJECTS) $(feff6_LDADD) $(LIBS) .f.o: $(F77COMPILE) -c $< tags: TAGS ID: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ here=`pwd` && cd $(srcdir) \ && mkid -f$$here/ID $$unique $(LISP) TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) $(LISP) tags=; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \ || (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags $$unique $(LISP) -o $$here/TAGS) mostlyclean-tags: clean-tags: distclean-tags: -rm -f TAGS ID maintainer-clean-tags: distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir) subdir = src/feff6 distdir: $(DISTFILES) here=`cd $(top_builddir) && pwd`; \ top_distdir=`cd $(top_distdir) && pwd`; \ distdir=`cd $(distdir) && pwd`; \ @for file in $(DISTFILES); do \ d=$(srcdir); \ if test -d $$d/$$file; then \ cp -pr $$/$$file $(distdir)/$$file; \ else \ test -f $(distdir)/$$file \ || ln $$d/$$file $(distdir)/$$file 2> /dev/null \ || cp -p $$d/$$file $(distdir)/$$file || :; \ fi; \ done # DEPS_MAGIC := $(shell mkdir .deps > /dev/null 2>&1 || :) # -include $(DEP_FILES) mostlyclean-depend: clean-depend: distclean-depend: maintainer-clean-depend: %.o: %.c $(COMPILE) -c $< info-am: info: info-am dvi-am: dvi: dvi-am check-am: all-am check: check-am installcheck-am: installcheck: installcheck-am install-exec-am: install-binPROGRAMS install-exec: install-exec-am install-data-am: install-data: install-data-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am install: install-am uninstall-am: uninstall-binPROGRAMS uninstall: uninstall-am all-am: Makefile $(PROGRAMS) all-redirect: all-am install-strip: $(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install installdirs: $(mkinstalldirs) $(DESTDIR)$(bindir) mostlyclean-generic: clean-generic: distclean-generic: -rm -f Makefile $(CONFIG_CLEAN_FILES) -rm -f config.cache config.log stamp-h stamp-h[0-9]* maintainer-clean-generic: mostlyclean-am: mostlyclean-binPROGRAMS mostlyclean-compile \ mostlyclean-tags mostlyclean-depend mostlyclean-generic mostlyclean: mostlyclean-am clean-am: clean-binPROGRAMS clean-compile clean-tags clean-depend \ clean-generic mostlyclean-am clean: clean-am distclean-am: distclean-binPROGRAMS distclean-compile distclean-tags \ distclean-depend distclean-generic clean-am distclean: distclean-am maintainer-clean-am: maintainer-clean-binPROGRAMS \ maintainer-clean-compile maintainer-clean-tags \ maintainer-clean-depend maintainer-clean-generic \ distclean-am @echo "This command is intended for maintainers to use;" @echo "it deletes files that may require special tools to rebuild." maintainer-clean: maintainer-clean-am .PHONY: mostlyclean-binPROGRAMS distclean-binPROGRAMS clean-binPROGRAMS \ maintainer-clean-binPROGRAMS uninstall-binPROGRAMS install-binPROGRAMS \ mostlyclean-compile distclean-compile clean-compile \ maintainer-clean-compile tags mostlyclean-tags distclean-tags \ clean-tags maintainer-clean-tags distdir mostlyclean-depend \ distclean-depend clean-depend maintainer-clean-depend info-am info \ dvi-am dvi check check-am installcheck-am installcheck install-exec-am \ install-exec install-data-am install-data install-am install \ uninstall-am uninstall all-redirect all-am all installdirs \ mostlyclean-generic distclean-generic clean-generic \ maintainer-clean-generic clean mostlyclean distclean maintainer-clean # dependencies: feff.o: vers.h dim.h const.h rdinp.o: const.h dim.h pola.h mkptz.o: pola.h const.h potph.o: const.h dim.h arrays.h rpotph.o: dim.h ovrlp.o: const.h dim.h frnrm.o: dim.h istprm.o: const.h dim.h istval.o: dim.h fermi.o: const.h head.o: const.h dim.h vers.h wpot.o: const.h dim.h phmesh.o: const.h dim.h fixvar.o: dim.h const.h phase.o: dim.h besjn.o: dim.h xcpot.o: const.h dim.h rhl.o: const.h imhl.o: const.h quinn.o: const.h edp.o: const.h fovrg.o: const.h wphase.o: dim.h prcrit.o: const.h dim.h pdata.h rphbin.o: dim.h pdata.h paths.o: dim.h vers.h ccrit.o: const.h dim.h mrb.o: dim.h mcrith.o: const.h dim.h mcritk.o: const.h dim.h pathsd.o: const.h dim.h pola.h timrep.o: dim.h mpprmp.o: dim.h pola.h phash.o: dim.h outcrt.o: const.h dim.h mpprmd.o: dim.h genfmt.o: const.h dim.h clmz.h fmatrx.h lambda.h pdata.h nlm.h\ rotmat.h vers.h pola.h snlm.o: dim.h nlm.h rdpath.o: const.h dim.h pdata.h pola.h setlam.o: const.h dim.h lambda.h pdata.h rot3i.o: dim.h rotmat.h pdata.h mmtr.o: const.h dim.h pola.h rotmat.h pdata.h sclmz.o: const.h dim.h clmz.h mmtrxi.o: const.h dim.h nlm.h lambda.h clmz.h pola.h fmatrx.h rotmat.h\ pdata.h fmtrxi.o: const.h dim.h nlm.h lambda.h clmz.h fmatrx.h rotmat.h\ pdata.h pijump.o: const.h ff2chi.o: vers.h const.h sigms.o: const.h # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: ifeffit-1.2.11d/src/feff6/sumax.f0000644000175000017500000000712010663646452015453 0ustar segresegrec SUBROUTINE SUMAX (NPTS, RN, ANN, AA2, AASUM) c This is a version of the subroutine sumax found on page 110 of c Louck's book. It performs eq 3.22, using simpson's rule and c taking advantage of the logarithmic grid so that sum f(r)*dr becomes c sum over f(r)*r*(0.05). Linear interpolation is used at the end c caps. This version does not sum over 14 shells of identical c atoms, instead it averages the contribution of one or more atoms c of type 2 at the location of atom 1. Louck's description (except c for his integration algorithm) is very clear. c c input: npts number of points to consider c rn distance from atom 1 to atom 2 in au c ann number of type 2 atoms to add to atom 1, can c be fractional c aa2(i) potential or density at atom 2 c output: aasum(i) spherically summed contribution added into this c array so that sumax can be called repeatedly c and the overlapped values summed into aasum c c Note that this routine requires that all position data be on a c grid rr(j) = exp (-8.8d0 + (j-1)*0.05d0), which is the grid c used by Louck, and also used by ATOM if nuclear options not used. c c Coded by Steven Zabinsky, December 1989 c Modified for FEFF cluster code, August 1990, siz c Bug fixed, May 1991, SIZ c Another bug fixed, Mar 1992, SIZ c c T.L.Louck, "Augmented Plane Wave Method", W.A.Benjamin, Inc., 1967 subroutine sumax (npts, rn, ann, aa2, aasum) implicit double precision (a-h, o-z) parameter (nptx=250) dimension aa2(nptx), aasum(nptx) dimension stor(nptx) external xx c jjchi index beyond which aa2 is zero c jtop index just below distance to neighbor c aasum is calculated only up to index jtop c Wigner-Seitz radius is set to 15 in ATOM. rws = 15 jjchi = ii(rws) jtop = ii(rn) topx = xx(jjchi) do 120 i = 1, jtop x = xx(i) xint = 0.0 et = exp(x) blx = log(rn-et) if (blx .ge. topx) goto 119 jbl = 2.0+20.0*(blx+8.8) if (jbl .lt. 1) jbl=1 if (jbl .ge. 2) then c use linear interp to make end cap near center of neighbor xjbl = jbl xbl = 0.05 * (xjbl-1.0) - 8.8 g = xbl-blx xint = xint+0.5*g*(aa2(jbl)*(2.0-20.0*g)*exp(2.0*xbl) 1 +20.0*g*aa2(jbl-1)*exp(2.0*(xbl-0.05))) endif tlx = log(rn+et) if (tlx .ge. topx) then jtl = jjchi go to 90 endif jtl = 1.0 + 20.0*(tlx+8.8) if (jtl .lt. jbl) then c handle peculiar special case at center of atom 1 fzn = aa2(jtl)*exp(2.0*(xbl-0.05)) fz3 = aa2(jbl)*exp(2.0*xbl) fz2 = fzn+20.0*(fz3-fzn)*(tlx-xbl+0.05) fz1 = fzn+20.0*(fz3-fzn)*(blx-xbl+0.05) xint = 0.5*(fz1+fz2)*(tlx-blx) go to 119 endif xjtl = jtl xtl = 0.05*(xjtl-1.0)-8.8 c = tlx-xtl xint = xint+0.5*c*(aa2(jtl)*(2.0-20.0*c) 1 *exp(2.0*xtl)+aa2(jtl+1)*20.0*c 2 *exp(2.0*(xtl+0.05))) 90 if (jtl .gt. jbl) then 100 xint = xint+0.5*(aa2(jbl)*exp(2.0*xbl)+aa2(jbl+1) 1 *exp(2.0*(xbl+0.05)))*0.05 jbl = jbl+1 if (jbl .lt. jtl) then xbl = xbl+0.05 go to 100 endif endif 119 stor(i) = 0.5*xint*ann/(rn*et) 120 continue do 190 i = 1, jtop aasum(i) = aasum(i) + stor(i) 190 continue return end ifeffit-1.2.11d/src/feff6/ykdir.f0000644000175000017500000000341710663646452015445 0ustar segresegre subroutine ykdir (ia,ib,nk1,nag) implicit double precision (a-h,o-z) save common /atomco/ den(30), dq1(30), dfl(30), ws, nqn(30), nql(30), 1 nk(30), nmax(30), nel(30), norb, norbco common /dira/ dv(251), dr(251), dp(251), dq(251), dpas, tets, 1 z, nstop, nes, np, nuc common /deux/ dvn(251), dvf(251), d(251), dc(251), dgc(251,30), 1 dpc(251,30) common /trois/ dpno(4,30), dqno(4,30) dimension dpn1(4) dpah=exp(dpas) dpyk=dpas/24.0 id=min0(nmax(ia)+2,nmax(ib)+2,np) idm1=id-1 if (nag.ne.0) go to 30 do 10 i=1,id 10 dq(i)=dr(i)*(dgc(i,ia)*dgc(i,ib)+dpc(i,ia)*dpc(i,ib)) do 20 i=1,4 dpn1(i)=0.0 do 20 j=1,i 20 dpn1(i)=dpn1(i)+dpno(j,ia)*dpno(i+1-j,ib)+dqno(j,ia)*dqno(i+1-j,ib 1 ) go to 60 30 do 40 i=1,id 40 dq(i)=dr(i)*dgc(i,ia)*dpc(i,ib) do 50 i=1,4 dpn1(i)=0.0 do 50 j=1,i 50 dpn1(i)=dpn1(i)+dpno(j,ia)*dqno(i+1-j,ib) 60 di=dfl(ia)+dfl(ib)+nk1 dp(1)=0.0 dp(2)=0.0 do 70 i=1,4 di=di+1.0 dp(1)=dp(1)+(dr(1)**di)*dpn1(i)/di 70 dp(2)=dp(2)+(dr(2)**di)*dpn1(i)/di dm=dpah**(-nk1) dim2=-dpyk*dm*dm dim1=13.0*dpyk*dm di=13.0*dpyk dip1=-dpyk/dm do 80 i=3,idm1 80 dp(i)=dp(i-1)*dm+dim2*dq(i-2)+dip1*dq(i+1)+dim1*dq(i-1)+di*dq(i) dq(id-2)=dp(id-2) do 90 i=idm1,np 90 dq(i)=dq(i-1)*dm i=nk1+nk1+1 dm=dm/dpah dim2=i*dim2/(dpah*dpah) dim1=i*dim1/dpah di=i*di dip1=i*dip1*dpah i=id-3 100 dq(i)=dq(i+1)*dm+dim2*dp(i+2)+dip1*dp(i-1)+dim1*dp(i+1)+di*dp(i) i=i-1 if (i-1) 110,110,100 110 dq(1)=dq(3)*dm*dm+8.0*((di*dp(1)+4.0*dim1*dp(2))/13.0-dim2*dp(3 1 )) return end ifeffit-1.2.11d/src/feff6/mcrith.f0000644000175000017500000000466310663646452015615 0ustar segresegre subroutine mcrith (npat, ipat, ri, indbet, 1 ipot, nncrit, fbetac, ckspc, xheap) include 'const.h' include 'dim.h' dimension ipat(npatx) dimension ri(npatx+1), indbet(npatx+1) dimension ipot(0:natx) parameter (necrit=9, nbeta=40) dimension fbetac(-nbeta:nbeta,0:npotx,necrit), ckspc(necrit) c Decide if we want the path added to the heap. if (ipat(npat) .eq. 0 .or. npat.le.2) then c Partial path is used for xheap, not defined for ss and c triangles. Special case: central atom added to end of path c necessary for complete tree, but not a real path, again, c xheap not defined. Return -1 as not-defined flag. xheap = -1 else c Calculate xheap and see if we want to add path to heap. c Factor for comparison is sum over nncrit of c f(beta1)*f(beta2)*..*f(beta npat-2)/(rho1*rho2*..*rho npat-1). c Compare this to sum(1/p), multiply by 100 so we can think c in percent. Allow for degeneracy when setting crit. xheap = 0 spinv = 0 do 340 icrit = 1, nncrit x = ckspc(icrit) ** (-(npat-1)) * ri(npat-1) do 320 i = 1, npat-2 ipot0 = ipot(ipat(i)) x = x * fbetac(indbet(i),ipot0,icrit) / ri(i) 320 continue spinv = spinv + 1/ckspc(icrit) xheap = xheap + x 340 continue xheap = 100 * xheap / spinv c Factor for comparison is sum over nncrit of c New xheap: c Full chi is c f(beta1)*f(beta2)*..*f(beta npat)cos(beta0)/(rho1*rho2*..*rho nleg). c Some of this stuff may change when the path is modified -- c we can't use rho nleg or nleg-1, beta0, beta(npat) or beta(npat-1). c We DO want to normalize wrt first ss path, f(pi)/(rho nn)**2. c c So save f(pi)/(rho nn)**2, c calculate c f(beta1)*f(beta2)*..*f(beta npat-2)/(rho1*rho2*..*rho npat-1). c divide nn ss term by stuff we left out -- beta(npat), beta(npat-1), c cos(beta0), rho nleg, rho nleg-1. c c Sum this over nncrit and try it out. * c Sum over nncrit of c 1/(rho1+rho2+..+rho npat-1). * reff = 0 * do 350 i = 1, npat-1 * reff = reff + ri(i) * 350 continue * xss = 0 * do 360 icrit = 1, nncrit * rho = ckspc(icrit) * reff * xss = xss + 1/rho * 360 continue * xheap = 100 * xheap / xss endif return end ifeffit-1.2.11d/src/feff6/edp.f0000644000175000017500000000255010663646452015070 0ustar segresegrec*********************************************************************** c c this subroutine calculates the ' energy dependent c exchange-correlation potential' (or 'dirac- hara potential') c ref.: paper by s.h.chou, j.j.rehr, e.a.stern, e.r.davidson (1986) c c inputs: rs in a.u. c xk momentum in a.u. c vi0 constant imaginary part in rydbergs c outputs: vr --- dirac potential (Hartrees) c vi --- constant imag part of the potential (Hartrees) c written by j. mustre 8/31/87 c********************************************************************** subroutine edp (rs, xk, vi0, vr, vi) implicit double precision (a-h, o-z) include 'const.h' xf = fa / rs c p = sqrt (k^2 + kf^2) is the local momentum, and x = p / kf c Reference formula 23 in Role of Inelastic effects in EXAFS c by Rehr and Chou. EXAFS1 conference editted by Bianconi. c x is local momentum in units of fermi momentum x = xk / xf x = x + 1.0e-5 c set to fermi level if below fermi level if (x .lt. 1.00001) x = 1.00001 c = abs( (1+x) / (1-x) ) c = log(c) vr = - (xf/pi) * (1 + c * (1-x**2) / (2*x)) c Note vi=vi0/2 to have both real and imaginary part in hartrees c to be consistent with other subroutines. vi = vi0 / 2 return end ifeffit-1.2.11d/src/feff6/renorm.f0000644000175000017500000000671010663646452015624 0ustar segresegre subroutine renorm (dexv, vcoul, srho) implicit double precision (a-h,o-z) save common /print/ iprint common /atomco/ den(30), dq1(30), dfl(30), ws, nqn(30), nql(30), 1 nk(30), nmax(30), nel(30), norb, norbco common /dira/ dv(251), dr(251), dp(251), dq(251), dpas, tets, 1 z, nstop, nes, np, nuc common /deux/ dvn(251), dvf(251), d(251), dc(251), dgc(251,30), 1 dpc(251,30) c vcoul is the coulomb potential (no factor of r**2) (output) dimension vcoul(251) c srho is charge density in form 4*pi*density*r**2 output) dimension srho(251) c jm 9/23/87 added srho renormalized charge density to be used c in cphase external exchan do 10 i=1,np dv(i)=0.0 d(i)=0.0 10 continue ddjri=log(ws/dr(1))/dpas jri=1.0+ddjri jr1=jri ddjr1=ddjri-jr1+1.0 if (jri-2*(jri/2).ne.0) go to 20 jri=jri+1 20 continue ddjri=ddjri-jri+1.0 c ddjri = (log(ws)-dri)/dpas c dri = log(dr(jri)) da=0.0 do 30 j=1,norb do 30 i=1,np 30 d(i)=d(i)+nel(j)*(dgc(i,j)**2+dpc(i,j)**2) do 50 i=jri,np dl=dr(i) if (i.eq.jri.or.i.eq.np) go to 40 dl=dl+dl if ((i-2*(i/2)).eq.0) dl=dl+dl 40 dd=d(i)*dl da=da+dd 50 continue da=dpas*da/3.0 dfo=dr(jri-1)*d(jri-1) df1=dr(jri)*d(jri) df2=dr(jri+1)*d(jri+1) dcor=-dpas*(df1*ddjri+(df2+dfo-2.0*df1)*ddjri**3/6.0+(df2-dfo) 1 *ddjri**2*.25) da=da+dcor if (iprint .ge. 5) write(16,60) da 60 format (1h ,' no. of electrons outside the ws-radius',e16.8) db=0.0 do 80 i=jri,np dl=1.0 if (i.eq.jri.or.i.eq.np) go to 70 dl=dl+dl if ((i-2*(i/2)).eq.0) dl=dl+dl 70 dd=d(i)*dl db=db+dd 80 continue db=dpas*db/3.0 df0=d(jri-1) df1=d(jri) df2=d(jri+1) dcor=-dpas*(df1*ddjri+(df2+df0-2.0*df1)*ddjri**3/6.0+(df2-df0) 1 *ddjri**2*.25) db=db+dcor if (iprint .ge. 5) write(16,90) db 90 format (1h ,' db= ',e16.8) call potslw (dvn,d,dp,dr,dpas,np) du=da*3.0/(ws**3) do 120 i=1,np if (i.gt.jr1+1) then srho(i)=0.0 go to 100 endif d(i)=d(i)+du*dr(i)**2 srho(i)=d(i) 100 continue dumm=-exchan(d(i),dr(i),dexv)/dr(i) dvf(i)=dumm if (i.gt.jr1) go to 110 dvn(i)=dvn(i)-z/dr(i)+da*(1.50/ws-.50*dr(i)**2/ws**3)-db go to 120 110 continue dvn(i)=0.0 120 dv(i)=dvn(i)+dumm c ad1 write the mt index and radius if (iprint .ge. 5) write(16,55)jr1,dr(jr1) 55 format(' jr1 = ',i10,10x,'wigner-seitz radius = ',e16.8) c ad1 output 2.*dvn*r**2 for use in phase (dvn = normalised coulomb) c write(17,200)((2.0*dvn(i)*dr(i)*dr(i)),i=1,np) c 200 format(1p5e16.8) c passvc formerly used to pass data directly to PHASE c do 151 i = 1, np c passvc (i) = 2.0 * dvn(i) * dr(i) * dr(i) c 151 continue c c passvc above is vcoul*r**2 do 151 i = 1, np vcoul(i) = 2 * dvn(i) 151 continue c jm output renormalized charge density for use in cphase c (d=4pi*rho*r^2) c write(18,200) srho cjm write out rs as function of r c do 8934 i=1,jr1 c xxrs=(3*dr(i)*dr(i)/srho(i))**.33333333 c8934 write(19,140) dr(i), xxrs return end ifeffit-1.2.11d/src/feff6/rdinp.f0000755000175000017500000007646110663646452015453 0ustar segresegre subroutine rdinp (finp, 1 mphase, mpath, mfeff, mchi, ms, 1 ntitle, title, ltit, 2 critcw, 1 ipr2, ipr3, ipr4, 1 s02, tk, thetad, sig2g, 1 nlegxx, 1 rmax, critpw, pcritk, pcrith, nncrit, 2 icsig, iorder, vrcorr, vicorr, isporb) c Read input for multiple scattering feff implicit double precision (a-h, o-z) character*128 finp include 'const.h' include 'dim.h' include 'pola.h' c Following passed to pathfinder, which is single precision. c Be careful to always declare these! real rmax, critpw, pcritk, pcrith c Data for potph (see arrays.h for comments) dimension iphat(natx) dimension rat(3,natx) dimension iatph(0:nphx) dimension ifrph(0:nphx) dimension xnatph(0:nphx) dimension folp(0:nphx) dimension novr(0:nphx) dimension iphovr(novrx,0:nphx) dimension nnovr(novrx,0:nphx) dimension rovr(novrx,0:nphx) dimension ion(0:nfrx) dimension iz(0:nfrx) character*6 potlbl(0:nphx) c Local stuff character*150 line parameter (nwordx = 12) character*15 words(nwordx) parameter (ntitx = 10) character*128 title(ntitx), messag dimension ltit(ntitx) dimension ionph(0:nphx), izph(0:nphx) logical iscomm parameter (nssx = 16) dimension indss(nssx), iphss(nssx) dimension degss(nssx), rss(nssx) logical nogeom 10 format (a) 20 format (bn, i15) 30 format (bn, f15.0) c initialize things ihole = 1 ntitle = 0 ixc = 0 vr0 = 0 vi0 = 0 rs0 = 0 rmax = -1 tk = 0 thetad = 0 sig2g = 0 rmult = 1 s02 = 1 mphase = 1 mpath = 1 mfeff = 1 mchi = 1 ms = 0 ipr1 = 0 ipr2 = 0 ipr3 = 0 ipr4 = 0 nlegxx = 10 xkmin = 0 xkmax = 20 critcw = 4.0 critpw = 2.5 pcritk = 0 pcrith = 0 nogeom = .false. icsig = 1 iorder = 2 ixanes = 0 vrcorr = 0 vicorr = 0 iafolp = 0 intclc = 0 nemax = nex isporb = -1 c average over polarization by default pola = .false. elpty = 0 do 50 i = 1, 3 evec(i) = 0 ivec(i) = 0 50 continue c nncrit is number of necrit points to use. necrit is c currently 9, this was at once an input used for testing. nncrit = 9 nat = 0 do 100 iat = 1, natx iphat(iat) = -1 100 continue nss = 0 do 102 iss = 1, nssx indss(iss) = 0 iphss(iss) = 0 degss(iss) = 0 rss(iss) = 0 102 continue nph = 0 do 110 iph = 0, nphx iatph(iph) = 0 ifrph(iph) = -1 xnatph(iph) = 0 folp(iph) = 1 novr(iph) = 0 ionph(iph) = 0 izph(iph) = 0 potlbl(iph) = ' ' 110 continue nfr = 0 do 120 ifr = 0, nfrx ion(ifr) = 0 iz(ifr) = 0 120 continue c Open feff.inp, the input file we're going to read open (unit=1, file=finp, status='old', iostat=ios) call chopen (ios, finp, 'rdinp') c tokens 0 if not a token c 1 if ATOM (ATOMS) c 2 if HOLE c 3 if OVER (OVERLAP) c 4 if CONT (CONTROL) c 5 if EXCH (EXCHANGE) c 6 if ION c 7 if TITL (TITLE) c 8 if FOLP c 9 if RMAX c 10 if DEBY (DEBYE) c 11 if RMUL (RMULTIPLIER) c 12 if SS c 13 if PRIN (PRINT) c 14 if POTE (POTENTIALS) c 15 if NLEG c 16 if REQU (REQUIRE), now dead c 17 if KLIM (KLIMIT) c 18 if CRIT (CRITERIA) c 19 if NOGEOM c 20 if CSIG c 21 if IORDER c 22 if PCRI (PCRITERIA) c 23 if SIG2 c 24 if XANE (XANES), disabled for current release c 25 if CORR (CORRECTIONS) c 26 if AFOL (AFOLP) c 27 if NEMA (NEMAX) c 28 if INTCALC c 29 if POLA (POLARIZATION) c 30 if ELLI (ELLIPTICITY) c 31 if ISPO (ISPORB) c -1 if END (end) c mode flag 0 ready to read a keyword card c 1 reading atom positions c 2 reading overlap instructions for unique pot c 3 reading unique potential definitions mode = 0 200 continue line = ' ' iret = iread(1, line) cc print*, ' line: ', iret, ': ', line(1:40) if (iret.eq. 0) goto 200 if (iret.le.-1) line = 'END' call triml (line) if (iscomm(line)) goto 200 nwords = nwordx call bwords (line, nwords, words) itok = itoken (words(1)) c process the card using current mode 210 continue if (mode .eq. 0) then if (itok .eq. 1) then c ATOM c Following lines are atom postions, one per line mode = 1 elseif (itok .eq. 2) then c HOLE 1 1.0 c holecode s02 read(words(2),20,err=900) ihole read(words(3),30,err=900) s02 mode = 0 elseif (itok .eq. 3) then c OVERLAP iph c iph n r read(words(2),20,err=900) iph call phstop(iph,line) mode = 2 elseif (itok .eq. 4) then c CONTROL mphase, mpath, mfeff, mchi c 0 - do not run modules, 1 - run module read(words(2),20,err=900) mphase read(words(3),20,err=900) mpath read(words(4),20,err=900) mfeff read(words(5),20,err=900) mchi mode = 0 elseif (itok .eq. 5) then c EXCHANGE ixc vr0 vi0 c ixc=0 Hedin-Lunqvist + const real & imag part c ixc=1 Dirac-Hara + const real & imag part c ixc=2 ground state + const real & imag part c ixc=3 Dirac-Hara + HL imag part + const real & imag part c ixc=4 DH below rs0 + HL above rs0 + const real c & imag part, form is c EXCHANGE 4 vr0 vi0 rs0 c vr0 is const imag part of potential c vi0 is const imag part of potential c Default is HL. read(words(2),20,err=900) ixc read(words(3),30,err=900) vr0 read(words(4),30,err=900) vi0 if (ixc .eq. 4) read(words(5),30,err=900) rs0 if (ixc .ge. 3) call warnex(1) mode = 0 elseif (itok .eq. 6) then c ION iph ionph(iph) read(words(2),20,err=900) iph call phstop(iph,line) read(words(3),20,err=900) ionph(iph) mode = 0 elseif (itok .eq. 7) then c TITLE title... ntitle = ntitle + 1 if (ntitle .le. ntitx) then title(ntitle) = line(6:) call triml (title(ntitle)) else call echo ('Too many title lines, title ignored') call echo( line(1:79)) endif mode = 0 elseif (itok .eq. 8) then c FOLP iph folp (overlap factor, default 1) read(words(2),20,err=900) iph call phstop(iph,line) read(words(3),30,err=900) folp(iph) mode = 0 elseif (itok .eq. 9) then c RMAX rmax (max r for ss and pathfinder) read(words(2),30,err=900) rmax mode = 0 elseif (itok .eq. 10) then c DEBYE temp debye-temp c temps in kelvin c if tk and thetad > 0, use these instead of sig2g read(words(2),30,err=900) tk read(words(3),30,err=900) thetad mode = 0 elseif (itok .eq. 11) then c RMULTIPLIER rmult c Multiples atom coord, rss, overlap and rmax distances by c rmult (default 1). DOES NOT modify sig2g read(words(2),30,err=900) rmult mode = 0 elseif (itok .eq. 12) then c SS index ipot deg rss nss = nss + 1 if (nss .gt. nssx) then write(messag,'(1x,a,i4)') $ 'Too many SS paths requested, max is ', nssx call echo(messag) call fstop(' at RDINP') endif read(words(2),20,err=900) indss(nss) read(words(3),20,err=900) iphss(nss) read(words(4),30,err=900) degss(nss) read(words(5),30,err=900) rss(nss) mode = 0 elseif (itok .eq. 13) then c PRINT ipr1 ipr2 ipr3 ipr4 c print flags for various modules c ipr1 potph 0 phase.bin only c 1 add misc.dat c 2 add pot.dat, phase.dat c 5 add atom.dat c 6 add central atom dirac stuff c 7 stop after doing central atom dirac stuff c ipr2 pathfinder 0 paths.dat only c 1 add crit.dat c 2 keep geom.dat c 3 add fbeta files c 5 special magic code, crit&geom only c not paths.dat. Use for path studies c ipr3 genfmt 0 files.dat, feff.dats that pass 2/3 of c curved wave importance ratio c 1 keep all feff.dats c ipr4 ff2chi 0 chi.dat c 1 add sig2.dat with debye waller factors c 2 add chipnnnn.dat for each path read(words(2),20,err=900) ipr1 read(words(3),20,err=900) ipr2 read(words(4),20,err=900) ipr3 read(words(5),20,err=900) ipr4 mode = 0 elseif (itok .eq. 14) then c POTENTIALS c Following lines are unique potential defs, 1 per line mode = 3 elseif (itok .eq. 15) then c NLEG nlegmax (for pathfinder) read(words(2),20,err=900) nlegxx mode = 0 elseif (itok .eq. 16) then c REQUIRE rreq, ipot (for pathfinder, require than ms paths c length >rreq contain atom ipot) call fstop('REQUIRE card not available') elseif (itok .eq. 17) then c KLIMIT xkmin, xkmax call echo(' Warning: KLIMIT not available,'// $ ' run continues.') mode = 0 elseif (itok .eq. 18) then c CRIT critcw critpw read(words(2),30,err=900) critcw read(words(3),30,err=900) critpw mode = 0 elseif (itok .eq. 19) then c NOGEOM (do not write geom.dat) nogeom = .true. mode = 0 elseif (itok .eq. 20) then c CSIG (use complex momentum with debye waller factor) c note: this is always on anyway, so this card unnecessary icsig = 1 mode = 0 elseif (itok .eq. 21) then c IORDER iorder (used in genfmt, see setlam for meaning) read(words(2),20,err=900) iorder call warnex(2) mode = 0 elseif (itok .eq. 22) then c PCRIT pcritk pcrith c (keep and heap criteria for pathfinder) read(words(2),30,err=900) pcritk read(words(3),30,err=900) pcrith mode = 0 elseif (itok .eq. 23) then c SIG2 sig2g global sig2 written to files.dat read(words(2),30,err=900) sig2g mode = 0 elseif (itok .eq. 24) then c XANES c Use extended k range for xanes ixanes = 1 c to avoid problems with debye waller factors below the c edge, always use complex p for debye waller icsig = 1 call fstop('XANES card not available') elseif (itok .eq. 25) then c CORRECTIONS e0-shift, lambda correction c e0 shift is in eV, edge will be edge-e0 c lambda corr is a const imag energy in eV c e0 and lambda corr same as vr0 and vi0 in EXCH card read(words(2),30,err=900) vrcorr read(words(3),30,err=900) vicorr mode = 0 elseif (itok .eq. 26) then c AFOLP use generalized automatic folp iafolp = 1 mode =0 elseif (itok .eq. 27) then c NEMAX nemax for energy grid read(words(2),20,err=900) nemax call warnex(3) if (nemax .gt. nex) then write(messag,'(1x,a,i5,a,i5)') $ 'nemax too big, resetting from ', $ nemax, ' to ', nex call echo(messag) nemax = nex endif mode = 0 elseif (itok .eq. 28) then c INTCALC intclc c 0 use average over all atoms c 1 use current experimental method 1 c 2 use current experimental method 2 c read(words(2),20,err=900) intclc call echo(' Warning: INTCALC not available,'// $ ' run continues.') mode = 0 elseif (itok .eq. 29) then c POLARIZATION X Y Z pola = .true. c run polarization code if 'pola' is true c run usual feff otherwise read(words(2),30,err=900) evec(1) read(words(3),30,err=900) evec(2) read(words(4),30,err=900) evec(3) mode = 0 elseif (itok .eq. 30) then c ELLIPTICITY E incident direction read(words(2),30,err=900) elpty read(words(3),30,err=900) ivec(1) read(words(4),30,err=900) ivec(2) read(words(5),30,err=900) ivec(3) mode = 0 elseif (itok .eq. 31) then c ISPORB isporb read(words(2),20,err=900) isporb write(messag,'(1x,a,i5)') ' isporb set ', isporb call echo(messag) mode = 0 elseif (itok .eq. -1) then c END goto 220 else ilen = istrln(words(1)) write(messag,'(1x,3a,i5)')'Unknown keyword: "', $ words(1)(:ilen),'" at line:' call echo(messag) ilen = istrln(line) call echo( ' '//line(:ilen) ) call echo(' See FEFF document for valid keywords.') call fstop(' at RDINP.') endif elseif (mode .eq. 1) then if (itok .ne. 0) then c We're done reading atoms. c Change mode and process current card. mode = 0 goto 210 endif nat = nat+1 if (nat .gt. natx) then write(messag,'(1x,a,i5)') $ 'Too many atoms in ATOMS list. Maximum is ', natx call fstop(messag) endif read(words(1),30,err=900) rat(1,nat) read(words(2),30,err=900) rat(2,nat) read(words(3),30,err=900) rat(3,nat) read(words(4),20,err=900) iphat(nat) elseif (mode .eq. 2) then if (itok .ne. 0) then c We're done reading these overlap instructions. c Change mode and process current card. mode = 0 goto 210 endif novr(iph) = novr(iph)+1 iovr = novr(iph) if (iovr .gt. novrx) then write(messag,'(1x,a,i5)') $ 'Too many overlap shells, max is ', novrx call fstop(messag) endif read(words(1),20,err=900) iphovr(iovr,iph) read(words(2),20,err=900) nnovr(iovr,iph) read(words(3),30,err=900) rovr(iovr,iph) elseif (mode .eq. 3) then if (itok .ne. 0) then c We're done reading unique potential definitions c Change mode and process current card. mode = 0 goto 210 endif read(words(1),20,err=900) iph if (iph .lt. 0 .or. iph .gt. nphx) then write(messag,'(1x,a,i3,a,i3)') $ 'Unique potential ', iph, $ ' not allowed. Must be between 0 and ', nphx call echo(messag) call echo(line) call fstop('at RDINP') endif read(words(2),20,err=900) izph(iph) c No potential label if user didn't give us one c Default set above is potlbl=' ' if (nwords .ge. 3) potlbl(iph) = words(3) else write(messag,'(1x,a,i4)') 'Unknown mode: ', mode call echo(messag) call fstop(' at RDINP') endif goto 200 220 continue c We're done reading the input file, close it. close (unit=1) c Fix up defaults, error check limits, figure out free atoms, etc. if (pola) then c make polarization tensor call mkptz endif c Find out how many unique potentials we have nph = 0 do 300 iph = nphx, 0, -1 if (izph(iph) .gt. 0) then nph = iph goto 301 endif 300 continue 301 continue c Must have central atom if (izph(0) .le. 0) then call fstop(' No absorbing atom (ipot=0) defined') endif c Then find model atoms for unique pots that have them do 330 iph = 0, nphx c Use first atom in atom list that is of unique pot iph do 320 iat = 1, nat if (iph .eq. iphat(iat)) then iatph(iph) = iat goto 321 endif 320 continue 321 continue 330 continue c if iatph > 0, a model atom has been found. c No gaps allowed in unique pots. Make sure we have enough c to overlap all unique pots 0 to nph. do 340 iph = 0, nph if (iatph(iph) .le. 0 .and. novr(iph) .le. 0) then c No model atom, no overlap cards, can't do this unique pot write(messag,'(1x,a,i5)') $ ' No atoms or overlap cards for unique pot ', iph call echo(messag) call echo(' Cannot calculate potentials, etc.') call fstop(' at RDINP') endif 340 continue c Need number of atoms of each unique pot, count them. If none, c set to one. do 350 iph = 0, nph xnatph(iph) = 0 do 346 iat = 1, nat if (iphat(iat) .eq. iph) xnatph(iph) = xnatph(iph)+1 346 continue if (xnatph(iph) .le. 0) xnatph(iph) = 1 350 continue c Do the free atom shuffling, do central atom as special case iz(0) = izph(0) ion(0) = ionph(0) ifrph(0) = 0 nfr = 0 do 390 iph = 1, nph ifrph(iph) = -1 do 380 ifr = 1, nfr if (iz(ifr).eq.izph(iph) .and. ion(ifr).eq.ionph(iph)) then ifrph(iph) = ifr goto 381 endif 380 continue 381 continue c add free atom type if necessary if (ifrph(iph) .lt. 0) then nfr = nfr+1 if (nfr .gt. nfrx) then write(messag,'(1x,a,i5)') $ ' Too many free atoms, max is ', nfrx call echo(messag) call fstop(' at RDINP') endif ion(nfr) = ionph(iph) iz(nfr) = izph(iph) ifrph(iph) = nfr endif 390 continue c Find central atom (only 1 permitted) iatabs = -1 do 400 iat = 1, nat if (iphat(iat) .eq. 0) then if (iatabs .lt. 0) then iatabs = iat else call echo(' More than one absorbing atom (ipot=0)') call echo(' Only one absorbing atom allowed') call fstop(' at RDINP') endif endif 400 continue c Find distance to nearest and most distant atom (use overlap card c if no atoms specified.) if (iatabs .lt. 0 .or. nat .lt. 2) then ratmin = rovr(1,0) ratmax = rovr(novr(0),0) else ratmax = 0 ratmin = 1.0e10 do 412 iat = 1, nat c skip absorbing atom if (iat .eq. iatabs) goto 412 tmp = dist (rat(1,iat), rat(1,iatabs)) if (tmp .gt. ratmax) ratmax = tmp if (tmp .lt. ratmin) ratmin = tmp 412 continue endif c Set rmax if necessary if (rmax.le.0 .and. nss.le.0) then c set to min (2+ times ratmin, ratmax) rmax = min (2.001 * ratmin, ratmax) endif c Set core hole lifetime (central atom quantity) ifr = ifrph(0) call setgam (iz(ifr), ihole, gamach) c Set s02 if necessary if (s02 .le. 1.0e-10) s02 = 1 c Convert everything to code units, and use rmult factor c rmax is for pathfinder, so leave it in Ang. rmax = rmax * rmult vr0 = vr0 / ryd vi0 = vi0 / ryd vrcorr = vrcorr / ryd vicorr = vicorr / ryd xkmin = xkmin * bohr xkmax = xkmax * bohr do 430 iat = 1, nat do 420 i = 1, 3 rat(i,iat) = rat(i,iat) * rmult / bohr 420 continue 430 continue do 460 iph = 0, nph do 450 iovr = 1, novr(iph) rovr(iovr,iph) = rovr(iovr,iph) * rmult / bohr 450 continue 460 continue do 462 iss = 1, nss c rss used only to make paths.dat, so leave it in Angstroms. rss(iss) = rss(iss) * rmult 462 continue c Check if 2 atoms are closer together than 1.75 ryd (~.93 Ang) ratmin = 1.0e20 do 480 iat = 1, nat do 470 jat = iat+1, nat rtmp = dist(rat(1,iat),rat(1,jat)) if (rtmp .lt. ratmin) ratmin = rtmp if (rtmp .lt. 1.75) then c if (dist(rat(1,iat),rat(1,jat)) .lt. 1.5) then call echo(' WARNING: TWO ATOMS VERY CLOSE TOGETHER.'// 1 ' CHECK INPUT.') write(messag,'(1x,a,2i5)') ' atoms ', iat, jat call echo (messag) write(messag,'(1x,i4,3f11.5)') iat, $ rat(1,iat)*bohr, rat(2,iat)*bohr, rat(3,iat)*bohr call echo(messag) write(messag,'(1x,i4,3f11.5)') jat, $ rat(1,jat)*bohr, rat(2,jat)*bohr, rat(3,jat)*bohr call echo(messag) call echo(' Run continues...') endif 470 continue 480 continue c default to k shell if (isporb .lt. 0) isporb = 1 c Clean up control flags if (mphase .ne. 0) mphase = 1 if (mpath .ne. 0) mpath = 1 if (mfeff .ne. 0) mfeff = 1 if (mchi .ne. 0) mchi = 1 if (nss .le. 0) ms = 1 if (ntitle .le. 0) then ntitle = 1 title(i) = 'No title input' endif do 490 i = 1, ntitle ltit(i) = istrln (title(i)) 490 continue c Write output files c For potph... if (mphase .eq. 1) then open (unit=1, file='potph.dat', status='unknown', iostat=ios) call chopen (ios, 'potph.dat', 'rdinp') do 705 i = 1, ntitle write(1,700) title(i)(1:ltit(i)) 700 format (1x, a) 705 continue write(1,706) 706 format (1x, 79('-')) write(1,709) ihole, gamach, ipr1, iafolp, intclc 709 format(i5, 1p, e14.6, 3i4, 1 ' ihole, gamach, iprint, iafolp, intclc') write(1,702) ixc, vr0, vi0, rs0 702 format (i5, 1p, 3e14.6, ' ixc, vr0, vi0, rs0') write(1,701) ixanes, nemax, xkmin, xkmax 701 format (2i5, 1p, 2e14.6, 1 ' ixanes, nemax, xkmin, xkmax (inv bohr)') write(1,707) nfr, ' nfr' 707 format (i5, a) do 710 ifr = 0, nfr write(1,708) ifr, iz(ifr), ion(ifr) 708 format (3i5, ' ifr, iz, ion') 710 continue write(1,707) nat, ' nat. iat, iph, x, y, z' do 720 iat = 1, nat write(1,715) iat, iphat(iat), (rat(j,iat),j=1,3) 715 format (2i5, 3f12.6) 720 continue write(1,707) nph, ' nph' do 740 iph = 0, nph write(1,722) iph, iatph(iph), ifrph(iph), xnatph(iph), 1 folp(iph), novr(iph), 2 ' iph, iat, ifr, xnat, folp, novr' 722 format (3i5, 2f12.6, i5, a) write(1,723) potlbl(iph) 723 format (' ''', a6, ''' potlbl') do 730 iovr = 1, novr(iph) write(1,724) iphovr(iovr,iph), nnovr(iovr,iph), 1 rovr(iovr,iph), 2 ' ovr... iph, n, r' 724 format (2i5, f12.6, a) 730 continue 740 continue close (unit=1) endif c Single scattering paths for genfmt if (nss .gt. 0 .and. mpath .eq. 1) then open (unit=1, file='paths.dat', status='unknown', iostat=ios) call chopen (ios, 'paths.dat', 'rdinp') do 750 i = 1, ntitle write(1,748) title(i)(1:ltit(i)) 748 format (1x, a) 750 continue write(1,751) 751 format (' Single scattering paths from ss lines cards', 1 ' in feff input') write(1,706) do 760 iss = 1, nss if (rmax.le.0 .or. rss(iss).le.rmax) then c NB, rmax and rss are in angstroms write(1,752) indss(iss), 2, degss(iss), 2 rss(iss) 752 format ( 2i4, f8.3, 1 ' index,nleg,degeneracy,r=', f8.4) write(1,766) 766 format (' single scattering') write(1,754) rss(iss)*bohr, zero, zero, iphss(iss), 1 potlbl(iphss(iss)) write(1,753) zero, zero, zero, 0, potlbl(0) 753 format (3f12.6, i4, 1x, '''', a6, '''', ' x,y,z,ipot') 754 format (3f12.6, i4, 1x, '''', a6, '''') endif 760 continue close (unit=1) endif c Atoms for the pathfinder if (nss.le.0 .and. mpath.eq.1 .and. nat.gt.0) then if (iatabs .le. 0) then call echo(' Absorbing atom coords not specified.') call echo(' Cannot find multiple scattering paths.') call fstop(' at RDINP') endif c if user doesn't want geom.dat, don't do it if (nogeom) goto 792 open (unit=1, file='geom.dat', status='unknown', iostat=ios) call chopen (ios, 'geom.dat', 'rdinp') c Echo title cards to geom.dat do 770 i = 1, ntitle write(1,700) title(i)(1:ltit(i)) 770 continue write(1,706) c Central atom first ii = 0 write(1,780) ii, (rat(j,iatabs)*bohr,j=1,3), 0, 1 c Rest of the atoms (skip central atom) do 790 iat = 1, nat if (iat .eq. iatabs) goto 790 ii = ii+1 write(1,780) ii, (rat(j,iat)*bohr,j=1,3), iphat(iat), 1 780 format (i4, 3f12.6, 2i4) 790 continue close (unit=1) endif 792 continue return 900 continue call echo(' Error reading input, bad line follows:') call echo(line) call fstop(' at RDINP') end function itoken (word) c chars in word assumed upper case, left justified c returns 0 if not a token, otherwise returns token character*(*) word character*4 w w = word(1:4) if (w .eq. 'ATOM') then itoken = 1 elseif (w .eq. 'HOLE') then itoken = 2 elseif (w .eq. 'OVER') then itoken = 3 elseif (w .eq. 'CONT') then itoken = 4 elseif (w .eq. 'EXCH') then itoken = 5 elseif (w .eq. 'ION ') then itoken = 6 elseif (w .eq. 'TITL') then itoken = 7 elseif (w .eq. 'FOLP') then itoken = 8 elseif (w .eq. 'RMAX') then itoken = 9 elseif (w .eq. 'DEBY') then itoken = 10 elseif (w .eq. 'RMUL') then itoken = 11 elseif (w .eq. 'SS ') then itoken = 12 elseif (w .eq. 'PRIN') then itoken = 13 elseif (w .eq. 'POTE') then itoken = 14 elseif (w .eq. 'NLEG') then itoken = 15 elseif (w .eq. 'REQU') then itoken = 16 elseif (w .eq. 'KLIM') then itoken = 17 elseif (w .eq. 'CRIT') then itoken = 18 elseif (w .eq. 'NOGE') then itoken = 19 elseif (w .eq. 'CSIG') then itoken = 20 elseif (w .eq. 'IORD') then itoken = 21 elseif (w .eq. 'PCRI') then itoken = 22 elseif (w .eq. 'SIG2') then itoken = 23 elseif (w .eq. 'XANE') then itoken = 24 elseif (w .eq. 'CORR') then itoken = 25 elseif (w .eq. 'AFOL') then itoken = 26 elseif (w .eq. 'NEMA') then itoken = 27 elseif (w .eq. 'INTC') then itoken = 28 elseif (w .eq. 'POLA') then itoken = 29 elseif (w .eq. 'ELLI') then itoken = 30 elseif (w .eq. 'ISPO') then itoken = 31 elseif (w .eq. 'END ') then itoken = -1 else itoken = 0 endif return end logical function iscomm (line) c returns true if line is a comment or blank line, false otherwise character*(*) line, l1*1,com*3 parameter(com = '*#;') iscomm = .false. l1 = line(1:1) if (istrln(line).le.0 .or. index(com,l1).ge.1) iscomm = .true. return end subroutine phstop (iph,line) implicit double precision (a-h, o-z) character*(*) line, messag*128 include 'dim.h' if (iph .lt. 0 .or. iph .gt. nphx) then write(messag, 10) iph, nphx, line 10 format (' Unique potential index', i5, ' out of range.',/, 1 ' Must be between 0 and', i5, '. Input line:') call echo(messag) call echo(line) call fstop('at RDINP - PHSTOP') endif return end subroutine warnex (i) implicit double precision (a-h, o-z) c This prints a warning message if the user is using an c expert option. c i expert option card c 1 EXCHANGE with code >= 3 c 2 IORDER c 3 XANES c 4 NEMAX c 5 INTCALC c message max of 22 characters to keep warning on 80 char line. if (i .eq. 1) then call echo( 'Warning: EXCHANGE with IEXCH> >= 3') elseif (i .eq. 2) then call echo( 'Warning: IORDER') elseif (i .eq. 3) then call echo( 'Warning: NEMAX') endif call echo( ' is an "expert user option".') call echo( ' Please read documentation'// $ ' carefully and check your results:') return end ! ifeffit-1.2.11d/src/feff6/clmz.h0000644000175000017500000000013410663646452015263 0ustar segresegre save /clmz/ complex*16 clmi common /clmz/ clmi(ltot+1,mtot+ntot+1,legtot) ifeffit-1.2.11d/src/feff6/dirac.f0000644000175000017500000001450510663646452015405 0ustar segresegre subroutine dirac (nqn,nql,nk,imax,de,dfl,dq1,jc) c c solution of the dirac equation c nqn=principal quantum number; nql=orbital quantum number c nk=kappa quantum number; imax=the last tabulated point of the c wave function; de=energy; dfl=power of the first term of the c developpement limite; dq1=slope at the origin of dp or dq c ********************************************************************** implicit double precision (a-h,o-z) save common /dira/ dv(251), dr(251), dp(251), dq(251), dpas, test, 1 z, nstop, nes, np, nuc c c dv=potential in a.u. and negative; dr=radial mesh c dp=large component; dq=small component; dpas=exponential step; c nes=number of attempts to adjust the energy c z=atomic number; nstop controls the numeric integration c test=precision obtained in the energies; np=maximum number of points c finite nuclear size if nuc is non-zero c ********************************************************************** common /ps1/ dep(5), deq(5), db, dvc, dsal, dk, dm c c dep,deq=derivatives of op and dq; db=energie/dvc; c dvc=speed of light in a.u.; dsal=2.*dvc; dk=kappa quantum number c dm=exponential step/720., dkoef=1./720. c ********************************************************************** common /trois/ dpno(4,30), dqno(4,30) data dkoef /.1388888888888888e-2/ nstop=0 dvc=137.0373 dsal=dvc+dvc imm=0 ies=0 dk=nk lll=(nql*(nql+1))/2 nd=0 noeud=nqn-nql if (lll.ne.0) go to 10 elim=-z*z/(1.5*nqn*nqn) go to 40 10 elim=dv(1)+lll/(dr(1)*dr(1)) do 20 i=2,np val=dv(i)+lll/(dr(i)*dr(i)) if (val.le.elim) elim=val 20 continue if (elim) 40,30,30 30 nstop=17 c 2*v+l*(l+1)/r**2 is everywhere positive c ********************************************************************** return 40 if (de.le.elim) de=elim*0.5 50 if (imm.eq.1) go to 80 do 60 i=7,np,2 imat=np+1-i if ((dv(imat)+lll/(dr(imat)*dr(imat))-de).le.0.0) go to 70 60 continue 70 if (imat.gt.5) go to 80 de=de*0.5 if (de.lt.-test.and.nd.le.noeud) go to 50 nstop=28 c 2*v+l*(l+1)/r**2-2*e is everywhere positive c ********************************************************************** return c initial value for the outward integration c ********************************************************************** 80 db=de/dvc call inouh (dp,dq,dr,dq1,dfl,dv(1),z,test,nuc,nstop,jc) if (nstop) 310,90,310 c nstop=45 c the expansion at the origin does not converge c ********************************************************************** 90 nd=1 do 110 i=1,5 dval=dr(i)**dfl if (i.eq.1) go to 100 if (dp(i-1).eq.0.0) go to 100 if ((dp(i)/dp(i-1)).gt.0.0) go to 100 nd=nd+1 100 dp(i)=dp(i)*dval dq(i)=dq(i)*dval dep(i)=dep(i)*dval 110 deq(i)=deq(i)*dval k=-1+2*(noeud-2*(noeud/2)) if ((dp(1)*k).gt.0.0) go to 130 120 nstop=53 c error in the expansion at the origin c ********************************************************************** return 130 if ((k*nk*dq(1)).lt.0.0) go to 120 dm=dpas*dkoef c outward integration c ********************************************************************** do 140 i=6,imat dp(i)=dp(i-1) dq(i)=dq(i-1) call inth (dp(i),dq(i),dv(i),dr(i)) if (dp(i-1).eq.0.0) go to 140 if ((dp(i)/dp(i-1)).gt.0.0) go to 140 nd=nd+1 if (nd.gt.noeud) go to 150 140 continue if (nd.eq.noeud) go to 160 de=0.8*de if (de.lt.-test) go to 50 nstop=206 c the number of nodes is too small c ********************************************************************** return 150 de=1.2*de if (de.gt.elim) go to 50 nstop=210 c the number of nodes is too big c ********************************************************************** return c initial values for the inward integration c ********************************************************************** 160 dqm=dq(imat) dpm=dp(imat) if (imm.eq.1) go to 180 do 170 i=1,np,2 imax=np+1-i if(((dv(imax)-de)*dr(imax)*dr(imax)).le.300.0) go to 180 170 continue 180 dd=sqrt(-de*(2.0+db/dvc)) dpq=-dd/(dsal+db) dm=-dm do 190 i=1,5 j=imax+1-i dp(j)=exp(-dd*dr(j)) dep(i)=-dd*dp(j)*dr(j) dq(j)=dpq*dp(j) 190 deq(i)=dpq*dep(i) m=imax-5 c inward integration c*********************************************************************** do 200 i=imat,m j=m+imat-i dp(j)=dp(j+1) dq(j)=dq(j+1) 200 call inth (dp(j),dq(j),dv(j),dr(j)) c joining of the large components c ********************************************************************** dval=dpm/dp(imat) if (dval.gt.0.0) go to 210 nstop=312 c error in the sign of the large component c ********************************************************************** return 210 do 220 i=imat,imax dp(i)=dp(i)*dval 220 dq(i)=dq(i)*dval c calculation of the norm c ********************************************************************** dsum=3.0*dr(1)*(dp(1)**2+dq(1)**2)/(dpas*(dfl+dfl+1.0)) do 230 i=3,imax,2 230 dsum=dsum+dr(i)*(dp(i)**2+dq(i)**2)+4.0*dr(i-1)*(dp(i-1)**2+dq(i- 1 1)**2)+dr(i-2)*(dp(i-2)**2+dq(i-2)**2) dsum=dpas*(dsum+dr(imat)*(dqm*dqm-dq(imat)*dq(imat)))*0.3333333333 1 333333 c modification of the energy c ********************************************************************** dbe=dp(imat)*(dqm-dq(imat))*dvc/dsum imm=0 val=abs(dbe/de) if (val.le.test) go to 260 240 dval=de+dbe if (dval.lt.0.0) go to 250 dbe=dbe*0.5 val=val*0.5 if (val.gt.test) go to 240 nstop=345 c energie nulle c ********************************************************************** return 250 de=dval if (val.le.0.1) imm=1 ies=ies+1 if (ies.le.nes) go to 50 nstop=362 c number of iterations too big c ********************************************************************** return 260 dsum=sqrt(dsum) dq1=dq1/dsum do 270 i=1,imax dp(i)=dp(i)/dsum 270 dq(i)=dq(i)/dsum do 280 i=1,4 dpno(i,jc)=dpno(i,jc)/dsum 280 dqno(i,jc)=dqno(i,jc)/dsum if (imax.eq.np) go to 300 j=imax+1 do 290 i=j,np dp(i)=0.0 290 dq(i)=0.0 300 nstop=0 310 return end ifeffit-1.2.11d/src/feff6/pdata.h0000644000175000017500000000312710663646452015414 0ustar segresegrec Note that leg nleg is the leg ending at the central atom, so that c ipot(nleg) is central atom potential, rat(nleg) position of c central atom. c Central atom has ipot=0 c For later convience, rat(,0) and ipot(0) refer to the central c atom, and are the same as rat(,nleg), ipot(nleg). c text and title arrays include carriage control character*80 text, title character*6 potlbl common /str/ text(40), !text header from potph 1 title(5), !title from paths.dat 1 potlbl(0:npotx) ! potential labels for output complex*16 ph, eref common /pdata/ 1 ph(nex,ltot+1,0:npotx), !complex phase shifts, 1 !central atom ipot=0 1 rat(3,0:legtot+1), !position of each atom, code units(bohr) 1 eref(nex), !complex energy reference 1 em(nex), !energy mesh 1 ri(legtot), beta(legtot+1), eta(0:legtot+1), !r, beta, eta for each leg 1 deg, rnrmav, xmu, edge, !(output only) 1 lmax(nex,0:npotx), !max l with non-zero phase for each energy 1 ipot(0:legtot), !potential for each atom in path 1 iz(0:npotx), !atomic number (output only) 1 ltext(40), ltitle(5), !length of each string 1 nsc, nleg, !nscatters, nlegs (nleg = nsc+1) 1 npot, ne, !number of potentials, energy points 1 ik0, !index of energy grid corresponding to k=0 (edge) 1 ipath, !index of current path (output only) 1 ihole, !(output only) 1 l0, il0, !lfinal and lfinal+1 (used for indices) 1 lmaxp1, !largest lmax in problem + 1 1 ntext, ntitle !number of text and title lines ifeffit-1.2.11d/src/feff6/DOC/0000755000175000017500000000000010771740457014554 5ustar segresegreifeffit-1.2.11d/src/feff6/DOC/feff6L.doc0000644000175000017500000017335610771740457016372 0ustar segresegre Feff6L.doc Documentation Feff 6L Version 6.01l Rev. 10/22/02 FEFF 6L Ab initio Multiple-Scattering X-ray Absorption Fine Structure Code Table of Contents 1. Synopsis -- PLEASE READ THIS ENTIRE SECTION 2. Conceptual Description 3. Program and File Structure 4. Input File and FEFF Commands 5. Run Control Options 6. File Contents Appendices A. Copyright Information, Restrictions and License B. Installation Instructions C. References D. Sample Input Files E. Code Variables, Dimensions and Descriptions F. Changes from FEFF 5 and FEFF 6 G. Trouble-shooting FEFF problems Copyright 1992-2002 FEFF Project, Department of Physics, BOX 351560 University of Washington, Seattle, WA 98195 1. Synopsis -- PLEASE READ THIS ENTIRE SECTION FEFF6L calculates wave phase shifts, effective scattering amplitudes and single and multiple scattering curved wave XAFS spectra, including polarization dependence, for clusters of atoms (Z < 95). This lite distribution is based on routines from FEFF6.01. The calculation is automated and done sequentially in four steps. 1) The scattering potentials, phase shifts, dipole matrix elements and absolute energies are calculated (module POTPH, potentials and phases) 2) The scattering paths for the cluster are enumerated. (module PATHS) 3) The effective scattering amplitudes and other XAFS parameters are calculated for each scattering path. (module GENFMT, general-path F-matrix calculation) 4) The XAFS parameters from one or more paths are combined to calculate a total XAFS spectrum. (module FF2CHI, scattering amplitude to chi, feff is the effective curved wave scattering amplitude) For details on use of the code, examples and suggestions on calculation strategies, see sections 2, 3 and 4. For details about the algorithms used see the discussion on the appropriate module in section 2 and, for more detail, the published references in Appendix C. FEFF6L is written in ANSI FORTRAN 77, with the non-standard extension of double precision complex (complex*16) variables. It requires about 3 megabytes of available memory to run. See Appendix B for complete installation instructions. FEFF6 is copyright protected software. See Appendix A for complete copyright notice and redistribution details. Please cite FEFF if the code or its results are used in published work. See Appendix C for a list of appropriate citations. The main authors of FEFF6L are: S. I. Zabinsky, Microsoft Corporation stevez@microsoft.com A. Ankudinov U. Washington, alex@phys.washington.edu (206) 543-9420 J. J. Rehr, U. Washington, jjr@phys.washington.edu (206) 543-8593 R. C. Albers, Los Alamos, rca@lanl.gov (505) 665-0417 Please contact us concerning any problems with the code; see Appendix G for trouble-shooting hints and problem/bug reports. Part of the original FEFF3 code was developed in collaboration with J. Mustre de Leon and is still part of FEFF5 and FEFF6. The authors thank the users of experimental versions of this code and especially M. Newville and B. Ravel for comments and suggestions. 2. Conceptual description This section describes the various modules and outlines the use of the code. 2.1 Scattering potential and phase shift code, POTPH: The potentials of each atomic type are calculated as if the atoms were isolated in space using a relativistic Dirac-Fock-Slater Desclaux atom code with the von Barth-Hedin ground state LDA exchange-correlation potential. The scattering potentials are calculated by overlapping the free atom densities within the muffin tin approximation (Mattheiss prescription), and including the Hedin-Lundqvist/Quinn self energy for excited states. Muffin-tin radii are determined automatically from calculated Norman radii and scattering phase shifts are determined by matching at the muffin tin radius. XAFS spectra are referenced to the threshold Fermi level, which is estimated by electron gas theory at the mean interstitial density. Atomic configurations and core-hole lifetimes are built in, and mean free paths are determined from the imaginary part of the average interstitial potential. Dipole matrix elements are calculated using atomic core and normalized continuum wavefunctions. An absolute energy scale is obtained by a Desclaux-atom calculation of the total energy of the system with and without the core-hole. Polarization dependence is optionally incorporated in the dipole-operator. The free atomic potentials need as input only the atomic number of the atoms, and, for the absorbing atom, the type of the core hole being considered. To do the overlapping for the unique potentials, the neighboring atoms must be identified, either by position (from a list of the cartesian coordinates of each atom) or by explicit overlapping instructions. To save time the code calculates the overlapped atom potential for each unique potential only once, using as a sample geometry the atom with the unique potential index that is closest to the absorbing atom. Thus it is essential that the neighborhood of that sample atom be correct. 2.2 Path enumeration, PATHS: The code uses a constructive algorithm with several path importance filters to explore all significant multiple-scattering paths in order of increasing path length, based on a list of atomic coordinates. An efficient degeneracy checker is used to identify equivalent paths (based on similar geometry, path reversal symmetry, and space inversion symmetry). The criteria used in filtering are based on increasingly accurate estimates of each path's amplitude. The earliest filters, the pathfinder heap and keep filters, are applied as the paths are being created. A plane wave filter based on the plane wave approximation (plus a curved wave correction for multiple-scattering paths) and accurate to about 30% is applied after the paths have been enumerated and sorted. Finally, and accurate curved wave filter is applied to all remaining paths. 2.3 Scattering amplitude and other XAFS parameter calculation, GENFMT: For each path the code calculates the effective scattering amplitude (|F_eff| from which FEFF gets its name), total scattering phase shift and other XAFS parameters using the scattering matrix algorithm of Rehr and Albers. Once the scattering phase shifts and the paths are determined, no other input is necessary for this calculation. 2.4 XAFS spectrum calculation, FF2CHI: The code ff2chi constructs the XAFS spectrum chi(k) using the XAFS parameters from one or more paths. Single and multiple scattering Debye-Waller factors are calculated using a correlated Debye model. Output from this module is the total XAFS spectrum and optionally, the contribution to the XAFS from each path individually. 2.5 Calculation Strategy: The scattering phase shifts for each unique potential are necessary for both PATHS and GENFMT. They are used for the importance filters in PATHS and are the basis of the XAFS parameters calculation in GENFMT. This part of the calculation can be slow, so it is usually best to run it only once and use the results while studying the paths and XAFS. To study the necessary paths, the pathfinder module PATHS will need the atomic positions of any atoms from which scattering is expected. If the structure is completely unknown, single-scattering paths can be created explicitly. Because the number of possible paths increases exponentially with total path length, start with a short total path length, study the few paths (representing scattering from the nearest neighbors), and gradually increase the total path length, possibly studying the path importance coefficients and using the filters to limit the number of paths. This process is not automated, and if done carelessly can yield so many paths that no analysis will be possible. Finally, use GENFMT to calculate the XAFS parameters, and FF2CHI to assemble the results into a chi curve. Here, the slow part is GENFMT and FF2CHI is very fast. Therefore, to explore parameters such as Debye-Waller factors, mean free path and energy zero shifts, various combinations of paths and coordination numbers, run only module FF2CHI using the results saved from GENFMT. There are three ways to modify the Debye-Waller factor, all of which affect only the module FF2CHI. The DEBYE card uses the correlated Debye model to calculate a Debye-Waller factor for each path. The SIG2 card adds a constant Debye-Waller factor to each path. And you can edit files.dat to add a particular Debye-Waller factor to a particular path. These three Debye-Waller factors are summed, so if the DEBYE and SIG2 cards are present, and if you have added a Debye-Waller factor to a particular path, the Debye- Waller factor used will be the sum of all three. See documentation below for details. If your model changes significantly, the phase shifts (which are based in part on the structure of the material) will have to be recalculated. Any time the phase shifts change, the XAFS parameters will have to be re-calculated. If the path filters have been used, the path list will also have to be recomputed. 3. Program and file structure This section describes the files and data used by the various modules. The main program FEFF reads one file created directly by the user, the file feff.inp; it is line oriented with a KEYWORD followed by data in free format. Case is not significant; ABCDE is equivalent to abcde or AbcDe. Tab characters are treated as if they were blanks. The routine that reads the input assumes that your machine uses the ASCII character set. If your machine uses another standard (EBCDIC, for example), please contact the authors for help in changing the code. Comments may be added at the end of any line after any required data, and spaces between lines are ignored. Any line beginning with an asterisk (*) is a comment and is ignored. An auxilliary program is provided which generates the feff.inp file from crystallographic input parameters. Other files required by the various modules are created by FEFF from feff.inp. Some of these other files may be edited by the user as a way to modify the input data to the modules, see section 5. See the PRINT card in section 4 to obtain various diagnostic files. Table 3.1 summarizes this structure, the rest of this section describes the structure in more detail. -- Table 3.1 ---------------------------------------------- module input files output files other useful output ------ ----------- ------------ ------------------- POTPH feff.inp phase.bin diagnostic files potph.inp xsect.bin (see PRINT card) PATHS feff.inp paths.dat crit.dat phase.bin geom.dat GENFMT feff.inp files.dat phase.bin feffNNNN.dat paths.dat FF2CHI feff.inp chi.dat chipNNNN.dat files.dat xmu.dat feffNNNN.dat xsect.bin ----------------------------------------------------------- 3.1 Scattering potential and phase shift code, POTPH: Reads potph.inp, which is created by FEFF's input routine from feff.inp. potph.inp is deleted by FEFF after use. POTPH writes the binary file phase.bin, which contains the scattering phase shifts and other information needed by PATHS and GENFMT. Optionally, POTPH will write other diagnostic files with information about the potentials and phase shift calculations. 3.2 Path enumeration, PATHS: Reads geom.dat, which is created by FEFF from the information in feff.inp, and phase.bin. geom.dat is deleted after use unless explicitly saved (see PRINT card). PATHS writes paths.dat for use by GENFMT and as a complete description of each path for use of the user. PATHS will optionally write other diagnostic files. The file crit.dat is particularly useful when studying large numbers of paths. When studying large numbers of paths, this module will optionally write only crit.dat and save geom.dat, not writing paths.dat. 3.3 Scattering amplitude and other XAFS parameter calculation, GENFMT: GENFMT reads phase.bin and paths.dat, and writes a file feffNNNN.dat for each path, where NNNN is the 4-digit path number taken from paths.dat. The feff.dat files contain the XAFS parameters for each path and can be used by FF2CHI, or can be used directly by other programs. These files are the main output of FEFF. The file files.dat is a list of these filenames with the importance of each path. 3.4 XAFS spectrum calculation, FF2CHI: FF2CHI reads files.dat, reads the files listed and files.dat and writes chi.dat with the total XAFS from these files. Additional instructions are passed to FF2CHI from feff.inp, so you can change S02, Debye temperature and some other parameters without re-doing the whole calculation. The file files.dat can be edited by hand to change the files being considered, and individual chipNNNN.dat files with chi from each path are optionally written. 4. Input file and FEFF commands The main program FEFF reads one file created directly by the user, the file feff.inp. This section describes feff.inp and the commands that tell FEFF what to do. It may be helpful to look at one or more of the sample input files in Appendix D while reading this section. An auxilliary program ATOMS can generate the feff.inp file. See the ATOMS card and the document for ATOMS for additional details. The input file for FEFF6L is identical to FEFF5 and FEFF6 except that XANES is disabled in FEFF6L. 4.1 File format feff.inp is a free format line oriented file. Blank lines and lines beginning with an asterisk (comment lines) are ignored wherever the occur. End of line comments are also ignored. Each type of input read by the program must contain a card with a "keyword" in CAPITAL LETTERS, and in some cases, followed by data cards. The sequence of keyword cards is arbitrary. If any card is omitted, default values are used; an exception is the POTENTIALS card, which is required. Numeric values are listed in free format, separated by blanks. Tab characters are not allowed (due to portability constraints) and may cause confusing error messages. Characters appearing after the expected data on a given line are ignored by feff and can be used as end-of-line comments. All distances are in Angstroms and energies in eV. 4.2 Complete list of feff.inp keywords The list of feff.inp options fall into four categories, standard options frequently and easily used, useful options that are often used, special options that are seldom necessary or helpful, and obscure options used during development that are included for completeness. The standard data types are ATOMS, CONTROL, DEBYE, HOLE, POTENTIALS, PRINT, SIG2, TITLE Useful options include CORRECTIONS, CRITERIA, ELLIPTICITY, END, NEMAX, NLEG, NOGEOM, PCRITERIA, POLARIZATION, RMAX, RMULTIPLIER, SS Special data types are recommended only for advanced users, awkward situations or diagnostic purposes AFOLP, FOLP, EXCHANGE, ION, OVERLAP, RPHASES And some are so obscure that we considered not mentioning them CUSTOMCRITERIA, IORDER, NOHOLE, RGRID These data types are listed below, alphabetically within each category. Each DATATYPE is followed by a brief explanation and an example. 4.2.1 Basic data types ATOMS, CONTROL, DEBYE, HOLE, POTENTIALS, PRINT, SIG2, TITLE 4.2.1.1 ATOMS Cartesian coordinates and unique potential indices of each atom (in Angstroms) in the cluster are entered following the ATOMS card, one per line. Please see the discussion of unique potentials in section 4.2.1.5. An auxilliary code ATOMS written by B. Ravel (see the URL: http://leonardo.phys.washington.edu/~ravel/software/atoms/ ) can generate the ATOMS list from given crystallographic data. See the document file to ATOMS for more information. ATOMS * x y z ipot SF6 molecule 0.0 0.0 0.0 0 S K-shell hole 3.61 0.00 0.00 1 F 1st shell atoms 0.00 3.61 0.00 1 0.00 0.00 3.61 1 -3.61 0.00 0.00 1 0.00 -3.61 0.00 1 0.00 0.00 -3.61 1 4.2.1.2 CONTROL potph paths genfmt ff2chi The CONTROL card lets you run one or more of the modules separately. There is a switch for each module, 0 meaning do not run that module, 1 meaning do run it. The default is CONTROL 1 1 1 1, run all modules. * run genfmt and ff2chi, do not run potph or paths CONTROL 0 0 1 1 potph paths genfmt ff2chi 4.2.1.3 DEBYE temperature Debye-temperature The Debye card is used to calculate Debye-Waller factors for each path using the correlated Debye Model. The model is best suited for homogeneous systems, where it is quite accurate. CAUTION: in heterogeneous systems the model only gives approximate values which can easily be off by factors of two or more. Temperatures are in K. If this card is present, the correlated Debye model Debye-Waller factors will be summed with the DW factors from the SIG2 card and from files.dat, if any. DEBYE 190 315 Calculate Debye-Waller factors for Cu at 190K 4.2.1.4 HOLE ihole S0**2 The HOLE card includes the hole-code ihole and the amplitude reduction factor S0**2. An entry of 0.0 for S0**2 gives the default value s02=1. To match experiment, values of s02 are typically between 0.8 and 1.0. Defaults if HOLE card is omitted: ihole=1 (K shell), S02=1. Hole-codes presently available are as follows (if your favorite is missing, complain to the authors): code core hole 0 no hole 1 K-shell 2 LI-shell 3 LII-shell 4 LIII-shell HOLE 1 1.0 K-shell core hole, S02 = 1 4.2.1.5 POTENTIALS The data following the POTENTIALS card assigns a unique potential index to each distinguishable atom. The potential index ipot is the index of the potential to be used for the phase shift calculation. The keyword POTENTIALS begins a unique potential list. Each following line (until the next keyword card) is a unique potential index, the atomic number and optional tag (max 6 characters) for that unique potential. The absorbing atom must be unique potential 0. These unique potential indices are simply labels, so the order is not important, except that the absorbing atom is ipot 0, and you may not have missing indices (ie, if you use ipot 3, you must also have defined unique potentials 1 and 2). To save time the code calculates the overlapped atom potential for each unique potential only once, using as a sample geometry the first atom in the atom list with a given unique potential index. Thus it is essential that the neighborhood of that sample atom be representative. Failure to do so may cause the code to perform poorly (See Appendix G). Because the phase shift calculation is the most time-consuming part of FEFF, it may be useful to assume that the potential for a given shell of atoms is the same as that of a previously calculated shell. For example, in Cu it is a good approximation to determine potentials only for the central atom and the first shell and to use the first shell potential (ipot=1) for all higher shells. Such approximations should be checked in each case. * molecular SF6 POTENTIALS * potential-index Z tag 0 16 S Sulfur K hole, absorbing atom 1 9 F 4.2.1.6 PRINT potph paths genfmt ff2chi The PRINT card determines how much output is printed from each of the four modules. Default is print level 0 for each module. See section 6 for details of contents of these files. potph 0 phase.bin xsect.bin only 1 add misc.dat 2 add pot.dat, phase.dat 5 add atom.dat paths 0 paths.dat only 1 add crit.dat 2 add geom.dat 3 add f(beta) files (plane wave |f(beta)| approximations) 5 Write only crit.dat and save geom.dat. This is very useful when exploring importance of paths for large runs. Does not write paths.dat. genfmt 0 files.dat, all feffNNNN.dat files with importance greater than or equal to two thirds of the curved wave importance criterion 1 keep all feffNNNN.dat files ff2chi 0 chi.dat 1 add sig2.dat with Debye-Waller factors 2 add chiNNNN.dat (chi from each path individually) This can quickly fill up your disk if you're doing a large run. * add crit.dat and small feffNNNN.dat files to minimum output PRINT 0 1 1 0 4.2.1.7 SIG2 sig2 Global Debye-Waller factor to be used for all paths. This value will be summed with the correlated Debye model value (if the DEBYE card is present) and any value added to files.dat. 4.2.1.8 TITLE title line... Keyword TITLE followed by a title line. You may have up to 10 of these. Titles may have up to 75 characters, leading blanks in the titles will be removed. TITLE Andradite (Novak and Gibbs, Am.Mineral 56,791 1971) TITLE K-shell 300K 4.2.2 Useful options CORRECTIONS, CRITERIA, ELLIPTICITY, END, NEMAX, NLEG, PCRITERIA, POLARIZATION, RMAX, RMULTIPLIER, SS 4.2.2.1 CORRECTIONS real-energy-shift imaginary-energy-shift The real energy shift will shift E0 in the final chi and the imaginary energy shift adds broadening to the result. The energy shift is useful to correct for the error in FEFF's fermi level, which is typically too high by about 3 eV, and the the broadening is typically used to correct for instrument broadening, or as a correction to the mean free path calculated by FEFF. This affects only the module FF2CHI, which combines the results in all of the feff.dat files. It is useful because you can simply make these energy corrections and see the results without redoing the entire XAFS parameter calculation. Both energies are in eV. [See also the EXCHANGE card.] * Reduce E0 by 3.0 eV and add 1 eV of broadening * This will only affect module 4, ff2chi CORRECTIONS 3.0 1.0 real shift, imag shift 4.2.2.2 CRITERIA critcw critpw Since the number of multiple scattering paths gets large very quickly, it is necessary to eliminate as many paths as possible. Fortunately, we have found that most multiple scattering paths have small amplitudes and can be neglected. Various cutoff "criteria" are used in FEFF6 to limit the number of paths to consider. These criteria are based on the importance of the path, defined as the integral over the full energy range of |chi(k)|*dk. critcw is the result of the full curved wave calculation. A calculation of critcw requires a complete spherical wave calculation, which takes about 10 seconds on a SUN4. The default value of critcw is 4%, meaning that any path with mean amplitude exceeding 4% of largest path will be used in calculation of chi. The criterion critcw is used by GENFMT; since the XAFS parameter calculation is already done, the savings is not in computer time, but in disk space and ease of analysis. The values of critcw for each path are written in the file files.dat written by module GENFMT. critpw is a plane-wave approximation to chi. This is extremely fast to calculate, and is used in the pathfinder. The default value of critpw is 2.5, meaning that any path with mean amplitude 2.5% of largest path, including degeneracy factors, (in plane wave approximation) will be kept. Any path that does not meet this criterion will not be written to paths.dat, and there is no need to calculate the XAFS parameters for this path. The default for critpw is less than that for critcw since some paths are more important when the full curved wave calculation is done than they appear in the plane wave approximation. Since the plane wave estimate is extremely fast, use this to filter out as many paths as you can. The file crit.dat (written by the module PATHS) tells you critpw for each path that passes the criterion. The method of calculation of these importance factors has been improved for the current release, so don't worry if the values for some paths has changed slightly from previous versions. [Default values critcw=4.% critpw=2.5%] CRITERIA 6.0 3.0 critcw 6%, critpw 3% CRITERIA 0 0 use all paths (cw and pw criteria turned off) 4.2.2.3 ELLIPTICITY ellipticity x y z Ellipticity is the ratio of amplitudes of electric field in two orthogonal directions for elliptically polarized light. Only the absolute value of the ratio is important for nonmagnetic materials. The present code cannot distinguish left and right circular polarization. A zero value of the ellipticity corresponds to linear polarization, and unity to circular polarization. Default value is zero. x, y, z are coordinates of any nonzero vector in the direction of incident beam. This vector should be approximately normal to the polarization vector. ELLIPTICITY 1.0 0.0 0.0 -2.0 for circular polarization about z-axis 4.2.2.4 END The END card marks the end of reading the feff.inp file; all data following the END card is ignored. This is optional, but useful when making short runs with only part of an input file. END ignore any cards in feff.inp that follow this 4.2.2.5 NEMAX nemax This limits the number of energy points. NEMAX is normally 49, which will get you to k=20 invA. Smaller values will avoid the high energy parts of the calculation and may save you some time. This parameter is used when the scattering phase shifts are calculated, so once you have limited the number of energy points, that's what you will get for the rest of the calculations you do (based on the phase shifts). To change the number of energy points, re-run the phase shift calculation. * use only first 40 energy grid points NEMAX 40 4.2.2.6 NLEG nleg The NLEG card limits the number of scattering paths to nleg. If nleg is set to 2, only single scattering paths are found. The default is nleg = 8. NLEG 2 find only single scattering paths (ie, 2 legged paths) 4.2.2.7 NOGEOM When this card is present, the file geom.dat will not be produced. Use this option when you want to take advantage of the symmetry in a cluster to speed the path calculation by using the geom.dat file produced by the auxilliary code ATOM rather than letting feff produce geom.dat from the atom list in feff.inp. 4.2.2.8 PCRITERIA keep-criterion heap-criterion These criteria, like those described in the CRITERIA card, also limit the number of paths. However, they are applied in the pathfinder and eliminate unimportant paths while the pathfinder is doing its search. The pathfinder criteria (pcrit's) do not know the degeneracy of a path and are therefore much less reliable than the curved wave and plane wave criteria in the CRITERIA card above. These path finder criteria (keep and heap) are turned off by default, and we recommend that they be used only with very large runs, and then with caution. The keep-criterion looks at the amplitude of chi (in the plane wave approx) for the current path and compares it to a single scattering path of the same effective length. To set this value, consider the maximum degeneracy you expect and divide your plane wave criterion by this number. For example, in fcc Cu, typical degeneracies are 196 for paths with large r, and the minimum degeneracy is 6. So a keep criterion of 0.08% is appropriate for a pw criteria of 2.5%. The heap-criterion filters paths as the pathfinder puts all paths into a heap (a partially ordered data structure), then removes them in order of increasing total path length. Each path that is removed from the heap is modified and then considered again as part of the search algorithm. The heap filter is used to decide if a path has enough amplitude in it to be worth further consideration. If we can eliminate a path at this point, entire trees of derivative paths can be neglected, leading to enormous time savings. This test does not come into play until paths with at least 4 legs are being considered, so single scattering and triangular (2 and 3 legged) paths will always pass this test. Because only a small part of a path is used for this criterion, it is difficult to predict what appropriate values will be. To use this (it is only necessary if your heap is filling up, and if limiting rmax doesn't help), study the results in crit.dat from runs with shorter rmax and experiment with the heap criterion accordingly. In the future, we hope to improve this filter. Before using these criterion, study the output in the file crit.dat (use print option 1 for paths, see PRINT card), which has the values of critpw, keep factor and heap factor for all paths which pass the critpw filter. Default: If this card is omitted, the keep and heap criteria are set to zero, that is, no filtering will be done at this step in the calculation. * fcc Cu had degeneracies from 6 to 196, so correct for this by * dividing pw-crit of 2.5% by 30 to get 0.08 for keep crit. Check this * empirically by running with pcrits turned off and studying crit.dat. * After studying crit.dat, choose 0.5 for heap crit. PCRITERIA 0.08 0.5 4.2.2.9 POLARIZATION x y z This card specifies the direction of electric field in the incident beam. (Main axis of the ellipse in the case of elliptical polarization). x, y, z - coordinates of any nonzero vector. Only this card is necessary in the case of linear polarization. If the POLARIZATION card is omitted, polarization averaged xafs will be calculated. Note that polarization reduces the degeneracy of the paths, increasing the calculation time. Choosing polarization in the directions of symmetry axes will yield faster results. POLARIZATION 1.0 2.5 0.0 4.2.2.10 RMAX rmax The RMAX card determines the maximum effective distance, rmax, of a given path. Note that rmax is one-half of the total path length in multiple-scattering paths. Setting this too large can cause the heap in the pathfinder to fill up. Default is RMAX = twice the near neighbor distance. RMAX 5.10 only include paths with effective length up to 5.10 Ang 4.2.2.11 RMULTIPLIER rmult The use of the RMULTIPLIER card multiples all atomic coordinates by a constant factor, rmult. This is useful, for example, if unit cell coordinates are used. (Default value rmult=1.) RMULTIPLIER 1.01 (increase distances by 1%) 4.2.2.12 SS index ipot deg rss The SS card is used when the structure of a given shell is unknown. No multiple scattering is produced but a single scattering path of degeneracy deg is produced. Overlap cards may be used to construct the potential for such a path. The parameters are a shell index, which is a label used for feffNNNN.dat file name, a unique potential index ipot, identifying the unique potential of atom from which to scatter, the degeneracy, i.e., the multiplicity of this single scattering path, and the distance to central atom, rss. This could be used to add single scattering beyond the limits of a cluster. * index ipot deg rss SS 29 1 48 5.98 parameters for 19th shell of Cu 4.2.3 Sometimes useful options for expert users AFOLP, FOLP, EXCHANGE, ION, OVERLAP, RPHASES 4.2.3.1 AFOLP This automatically overlaps all muffin-tins to reduce the effects of potential discontinuities at the muffin-tins. It is useful in highly inhomogeneous materials. It works fairly well, but may fail in some cases. See FOLP for non-automatic version. AFOLP use automatic maximum overlapping 4.2.3.2 FOLP ipot folp The FOLP card sets a parameter which determines by what factor muffin-tin radii are overlapped. We recommend that the AFOLP card be used In cases with severe anisotropy, and FOLP only used for diagnostic purposes. FOLP 1 1.1 (10% overlap of muffin tin of unique potential 1) 4.2.3.3 EXCHANGE ixc vr0 vi0 The EXCHANGE card specifies the energy dependent exchange correlation potential to be used. (See also the CORRECTIONS card which is similar but allows the user to refine values of vr0 and vi0 after a calculation is completed.) The EXCHANGE card contains the index of the xc pot (ixc) and the constant imaginary part of the self-energy (vi0). The Hedin-Lundqvist self-energy (default) appears to be the best choice for all applications we have tested in detail. Optionally one may use the Dirac-Hara exchange correlation potential and an appropriate imaginary potential vi0. This may be useful to correct FEFF's typical error of 2 eV (high) in the location of the Fermi level and to add instrumental broadening. Defaults if EXCHANGE card is ommitted: ixc=0 (Hedin-Lundquist), vr0=0.0 vi0=0.0 ixc values: ixc=0 Hedin-Lundqvist + const imag part ixc=1 Dirac-Hara + const imag part ixc=2 ground state + const imag part ixc=3 Dirac-Hara + HL imag part + const imag part vi values: vi0 is (the negative of the) imaginary const shift *Hedin-Lundqvist -2eV edge shift and 1eV expt broadening EXCHANGE 0 2. 1. *Dirac-Hara exchange -3 eV edge shift and 5 eV inner potential EXCHANGE 1 3. 5. 4.2.3.4 ION ipot ionization The ION card ionizes all atoms with atom type ipot. Negative values and non-integers are not permitted (however, we may allow these in future versions of FEFF). The ION card is used to ionize all atoms of a particular potential index. For example, for diatomics like Br2, the fully relaxed configuration has ionization=1 on the scattering atom. The ionization card should be used with caution; because of charge transfer, the actual degree of ionization is not directly related to the chemical valency. The default (non-ionized) scattering potentials are often superior to those empirically ionized, and the results should be checked both ways. Defaults if ION cards are ommitted: atoms are not ionized. ION 1 1 ipot, ionization 4.2.3.5 OVERLAP iph The OVERLAP card contains information needed to construct the overlapped atom potentials when atomic coordinates are not known or specified. If the atomic positions are listed following the ATOMS cards, the OVERLAP cards are probably not needed. The OVERLAP card contains the potential index of the atom being overlapped and must be followed by cards specifying the potential index, number of atoms of a given type to be overlapped and and their distance to the atom being overlapped. This option can be useful in crystals, especially for distant shells -- see sample input files for an example. It can also be useful for calculating single scattering XAFS in very complex materials where very little is known about the structure. You should verify that the coordination chemistry built in using the OVERLAP cards is realistic; it is important to specify all the close neighbors of a typical atom in the shell to be overlapped. The most important factor in determining the scattering amplitudes is the atomic number of the scatterer, but the coordination chemistry must be approximately correct to ensure good scattering potentials. Thus it is important to specify as accurately as possible the coordination environment of the scatterer. OVERLAP 4 determine overlap for 3rd shell of Cu 0 1 2.55266 ipot, number in shell, distance 1 4 2.55266 2 7 2.55266 2 6 3.61000 2 24 4.42133 4.2.3.6 RPHASES If this card is present, only real phase shifts (instead of the complex phase shifts) will be used. The results of the calculation will not be accurate. This option is intended to allow users to obtain real scattering phase shifts for use with other programs, or for diagnostic purposes. The phase shifts can be written to output files phaseXX.dat using the PRINT card. If the RPHASES card is present, these will be the real phase shifts. 4.2.4 Obscure options CUSTOMCRITERIA, IORDER, NOHOLE, RGRID 4.2.4.1 CUSTOMCRITERIA crit kmin kmax This calls subroutine custom from subroutine ff2chi and can be used to filter paths based on custom criteria. Note that this requires that the spectrum for each path already be calculated by module GENFMT. Crit is the percent of the value of the first path's importance to use as a filter, kmin and kmax limit the spectrum over which the paths importance is to be considered. Modify subroutine custom if you need more flexibility here. 4.2.4.2 IORDER iord Order of the approximation to use in module GENFMT. We use order 2, which is correct to terms of order (1/pR)**2, and corresponds to 6x6 matrices. However, we do single scattering exactly. This approximation is accurate to within a few percent in every case we have tried (that is, higher order doesn't change the result more than a few percent). Changing the default values requires some familiarity with the Rehr-Albers paper and the structure of the module GENFMT. To do so, follow the instructions in subroutine SETLAM. Iord is passed to setlam for processing. You may need to change the code parameter lamtot if you want to do higher order calculations. This is another of the arcane cards that we have used for testing. For details of the algorithm used by GENFMT, see the paper by J.J.Rehr and R.C.Albers (see Appendix C, references). 4.2.4.3 NOHOLE What does it mean to do x-ray absorption if no x-ray was absorbed? Not much, but the code will do it if you want. We used this to test the final state rule for calculated XAFS, and to compare to some other calculations that did not use a core hole. The code will use the final state from the hole card for matrix element calculation -- the NOHOLE card says to calculate potentials, etc., as if there was no core hole. 4.2.4.4 RGRID rgrid The radial grid used for the potential and phase shift calculation is r(i) = exp (-8.8 + (i-1) * dpas), with dpas = 0.05. This is sufficient for almost everything. There are occasionally convergence problems in the background at very high energy (the background curves upward) and in calculating phase shifts at high energy for very large atoms. Setting the rgrid to 0.01 will solve these problems at the cost of MUCH longer computation times. We have used this for testing convergence -- the code converges for any physically reasonable situation with the normal rgrid of 0.05. 5. Run Control Options In addition to the CONTROL card and the FEFF options in feff.inp, some parameters in the files read by the various modules can be changed. For example, you can create your own paths by editing paths.dat and change explicit Debye-Waller factors in the final result by editing files.dat. Users may edit the some files as a quick and sometimes convenient way to prepare a given run. It is easiest to use an existing file as a template -- these files are read by a computer program that is fussy about what it receives. The files that can be used in this way are paths.dat and files.dat. 5.1 Paths.dat You can modify a path, or even invent new ones. For example, you could make a path to determine the effect of a focusing atom on a distant scatterer. Whatever index you enter for the path will be used in the filename given to the feffnnnn.dat file; i.e., for the choice, index = 845, the exafs parameters will appear in feff845.dat. A handy way to add a single scattering path of length R is to make a 2-leg path with the central atom at (0, 0, 0) and the scatterer at (R, 0, 0). GENFMT will need the positions, unique potentials, and character tags for each atom in the path. The angles and leg lengths are printed out for your information, and you can omit them when creating your own paths by hand. The label lines in the file are required (there is code that skips them, and if they're missing, you'll get wrong results). 5.2 Files.dat This is the list of files that ff2chi uses to calculate chi. It includes the filenames of the feffNNNN.dat files written by module GENFMT, curved wave importance factors, and user-defined Debye-Waller factors. If you want to set Debye-Waller factors for individual paths, you may edit this file to set them. FF2CHI will use the Debye-Waller factors in this file unless you have asked to use the correlated Debye model. You may also delete file names from this file if you want to combine some particular set of paths. (Save the original, or you'll have to re-run GENFMT!) You may re-name the feffNNNN.dat files as long as you remember to change the filenames in files.dat when you want to calculate the XAFS using FF2CHI. 6. Output files 6.1 phase.bin This is a binary file with the scattering phase shifts for each unique potential. It is used by GENFMT and the pathfinder. 6.2 paths.dat Written by the pathfinder, this is a description of all the paths that fit the criteria used by the pathfinder. It is used by GENFMT. The path descriptions include cartesian coordinates of atoms in the path, scattering angles, leg lengths and degeneracy. For details on editing this by hand, see section 4. 6.3 crit.dat Values of the quantities tested against the various criteria in the pathfinder. 6.4 geom.dat Written by feff for use with the pathfinder, and deleted after use. It is an atom list created from the user-input list in feff.inp. For more information, see the NOGEOM card in section 4. 6.5 files.dat List of files to use to create chi.dat. Written by GENFMT when the xafs parameters are calculated and used by FF2CHI. This contains the curved wave importance ratios, which you may wish to study. For details on editing this by hand, see section 5. The curved wave importance ratios are the importance of a particular path relative to the most important path encountered so far in the calculation. If the first path is the most important in the problem, all the importance factors will be expressed as a fraction of that path. However, if the third path considered is the most important, and the first path is the next most important, path 1 will have a factor of 100%, path 2 will be a fraction of the first path's importance, path 3 will have an importance of 100% (since it is now the most important path), and subsequent paths will be expressed as a percent of path 3's importance. 6.6 chi.dat Standard xafs data k, chi(k), |chi(k)| relative to threshold (k=0): The header also contains enough information to specify what model was used to create this file. 6.7 feffNNNN.dat Effective scattering amplitude and phase shift data, with k referenced to threshold for shell nn: k, phi_c, |feff|, ph(feff), redfac, lambda, Re(p) 6.8 Diagnostic files from POTPH misc.dat Header file for quick reference. phaseNN.dat Complex phase shifts for each shell. potNN.dat Detailed atomic potentials and densities. atomNN.dat Diagnostic information on Desclaux free atom NN. 6.9 Variables in output files and in calculation of XAFS k = wave number (ang**-1); k=sqrt(e-e_f) where e is energy and e_fermi is the fermi level computed from electron gas theory at the avg interstitial charge density chi(k) = so**2 * redfac sum_shells [ natsh * (|feff|/kR**2) * exp(-2R/lambda) * sin(2kR + ph(feff) + phi_c)) * exp(-2k**2*sigma**2) ] phi_c = 2*delta_l_c -l*pi (total central atom phase) feff = effective, curved-wave backscattering amplitude feff(k) in xafs formula for each shell ph(feff) = phase of feff(k) for each shell redfac = exp(-2 imag (delta_c) ) total central atom loss factor R = distance to central atom for each shell natsh = mean number atoms in each shell sigma**2 = mean square variation of R for each shell lambda = mean free path (angstroms) =-1./imag (p) kf = fermi momentum at avg interstitial charge density p=p(r) = local momentum (p(r)**2=k**2+kf(r)**2+sigma-sigma_f) sigma = self energy at energy e, sigma_f at energy e_f mu = total absorption cross-section mu_0 = atomic background absorption Appendix A. Copyright Information, Restrictions and License A.1 Restrictions and License Information This software was prepared in part with US Government Funding under DOE contract DE-FG03-97ER45623. Redistribution and use of this Distribution in source and binary formats, with or without modification is permitted, provided the following conditions are met: Redistributions must retain the above notices and the following list of conditions and disclaimer; Modified versions carry the marking "Based on or developed using Distribution: FEFF6L Copyright (c) [2002] University of Washington" Recipient acknowledges the right of the University of Washington to prepare uses of this Distribution and its modifications that may be substantially similar or functionally equivalent to Recipient-prepared modifications. Recipient and anyone obtaining access to the Distribution through recipient's actions accept all risk associated with possession and use of the Distribution. THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE UNIVERSITY OF WASHINGTON OR CONTRIBUTORS TO THE DISTRIBUTION BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR REVENUE; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. A.2 ADDENDUM: Government Copyrights (DO NOT DELETE) This work was supported in part by DOE Grant DE-FG06-90ER45416. In accordance with the DOE FAR rules part 600.33 "Rights in Technical Data - Modified Short Form" the following clause applies to FEFF: (c)(1)The grantee agrees to and does hereby grant to the U.S. Government and to others acting on its behalf: (i) A royalty-free, nonexclusive, irrevocable, world-wide license for Governmental purposes to reproduce, distribute, display, and perform all copyrightable material first produced or composed in the performance of this grant by the grantee, its employees or any individual or concern specifically employed or assigned to originate and prepare such material and to prepare derivative works based thereon, (ii) A license as aforesaid under any and all copyrighted or copyrightable work not first produced or composed by the grantee in the performance of this grant but which is incorporated in the material furnished under the grant, provided that such license shall be only to the extent the grantee now has, or prior to completion or close-out of the grant, may acquire the right to grant such license without becoming liable to pay compensation to others solely because of such grant. (c)(2) The grantee agrees that it will not knowingly include any material copyrighted by others in any written or copyrightable material furnished or delivered under this grant without a license as provided for in paragraph (c)(1)(ii) of this section, or without the consent of the copyright owner, unless it obtains specific written approval of the Contracting Officer for the inclusion of such copyright material. Appendix B. Installation Instructions The lite distribution FEFF6L is provided only as source, including a Makefile. Please contact the authors in case of problems. For compilation note the following: Floating point calculations must be done to precision 64 bits. Thus the code uses double precision variables throughout, i.e., real*8 for real numbers and complex*16 for complex numbers. If your machine uses 8 bytes for single precision floating point numbers (for example, Crays and some CDC machines), use the compiler option to ignore double precision statements in the code. This option is available (in various forms) on all Cray and CDC machines that we have seen. On the CRAY YMP at Ohio State, the compiler option to ignore double precision in the source code is cf77 -c -Wf"-dp" Code is written in ANSI FORTRAN 77, except that COMPLEX*16 variables are required. Since data type COMPLEX*16 is not part of the ANSI standard, minor compiler-dependent modification may be necessary. We have used the VAX extensions to ANSI FORTRAN 77 since they seem to be the most portable. The non-standard statements and intrinsic functions used are: COMPLEX*16 variables and arrays; DIMAG(arg) returns a double precision imaginary part of arg; DCMPLX(arg) returns a complex*16 version of arg; DBLE(arg) returns a double precision real part of arg; SQRT, EXP, ABS and other generic math functions are assumed to accept complex*16 arguments and return double precision or complex*16 results. Files are opened with the OPEN statement. As the ANSI definition gives some leeway in how the OPEN statement interacts with the operating system, we have chosen file names and conventions that work on UNIX, VAX/VMS, IBM PCs (and clones) with MS FORTRAN, CRAY, MAC's and and CDC machines. It may be necessary to modify the open statements on other systems. Appendix C. References Please cite at least one of the following articles if FEFF6L is used in published work. 1) Multiple scattering XAFS J.J. Rehr, S.I. Zabinsky and R.C. Albers, "High-order multiple scattering calculations of x-ray-absorption fine structure", Phys. Rev. Lett. 69, 3397 (1992). 2) FEFF standards J.J. Rehr, J. Mustre de Leon, S.I. Zabinsky, and R.C. Albers, "Theoretical X-ray Absorption Fine Structure Standards", J. Am. Chem. Soc. 113, 5135 (1991). Appendix D. Sample input files D.1 SF6 Molecule TITLE Molecular SF6 POTENTIALS * ipot z tag 0 16 S absorbing atom must be unique pot 0 1 9 F ATOMS * x y z ipot 0 0 0 0 S absorber 1.56 0 0 1 6 F backscatters 0 1.56 0 1 0 0 1.56 1 -1.56 0 0 1 0 -1.56 0 1 0 0 -1.56 1 D.2 SF6 Molecule TITLE Molecular SF6 POTENTIALS * ipot z tag 0 16 S absorbing atom must be unique pot 0 1 9 F RMULTIPLIER 1.56 ATOMS * x y z ipot 0 0 0 0 S absorber 1 0 0 1 6 F backscatters 0 1 0 1 0 0 1 1 -1 0 0 1 0 -1 0 1 0 0 -1 1 D.3 Cu fcc metal, 4 shells TITLE Cu crystal, 4 shells DEBYE 190 315 Cu at 190K, Debye temp 315K (Ashcroft & Mermin) * Cu is fcc, lattice parameter a=3.61 (Kittel) POTENTIALS 0 29 Cu0 1 29 Cu ATOMS .0000 .0000 .0000 0 shell 0 .0000 -1.8050 -1.8050 .0000 1 shell 1 2.5527 -1.8050 1.8050 .0000 1 1.8050 -1.8050 .0000 1 1.8050 1.8050 .0000 1 -1.8050 .0000 -1.8050 1 -1.8050 .0000 1.8050 1 1.8050 .0000 -1.8050 1 1.8050 .0000 1.8050 1 .0000 -1.8050 -1.8050 1 .0000 -1.8050 1.8050 1 .0000 1.8050 -1.8050 1 .0000 1.8050 1.8050 1 -3.6100 .0000 .0000 1 shell 2 3.6100 3.6100 .0000 .0000 1 .0000 -3.6100 .0000 1 .0000 3.6100 .0000 1 .0000 .0000 -3.6100 1 .0000 .0000 3.6100 1 -3.6100 -1.8050 -1.8050 1 shell 3 4.4213 -3.6100 -1.8050 1.8050 1 -3.6100 1.8050 -1.8050 1 -3.6100 1.8050 1.8050 1 3.6100 -1.8050 -1.8050 1 3.6100 -1.8050 1.8050 1 3.6100 1.8050 -1.8050 1 3.6100 1.8050 1.8050 1 -1.8050 -3.6100 -1.8050 1 -1.8050 -3.6100 1.8050 1 -1.8050 3.6100 -1.8050 1 -1.8050 3.6100 1.8050 1 1.8050 -3.6100 -1.8050 1 1.8050 -3.6100 1.8050 1 1.8050 3.6100 -1.8050 1 1.8050 3.6100 1.8050 1 -1.8050 -1.8050 -3.6100 1 -1.8050 -1.8050 3.6100 1 -1.8050 1.8050 -3.6100 1 -1.8050 1.8050 3.6100 1 1.8050 -1.8050 -3.6100 1 1.8050 -1.8050 3.6100 1 1.8050 1.8050 -3.6100 1 1.8050 1.8050 3.6100 1 -3.6100 -3.6100 .0000 1 shell 4 5.1053 -3.6100 3.6100 .0000 1 3.6100 -3.6100 .0000 1 3.6100 3.6100 .0000 1 -3.6100 .0000 -3.6100 1 -3.6100 .0000 3.6100 1 3.6100 .0000 -3.6100 1 3.6100 .0000 3.6100 1 .0000 -3.6100 -3.6100 1 .0000 -3.6100 3.6100 1 .0000 3.6100 -3.6100 1 .0000 3.6100 3.6100 1 D.4 YBCO High-Tc superconductor TITLE YBCO: Y BA2 CU3 O7 Cu2, core hole RMAX 4.5 POTENTIALS * ipot z tag 0 29 Cu2 1 8 O 2 39 Y 3 29 Cu1 4 56 Ba ATOMS 0.0000 0.0000 0.0000 0 CU2 0.0000 1.9115 0.0000 0.2453 1 O 1.9272 -1.9115 0.0000 0.2453 1 O 1.9272 0.0000 1.9430 0.2687 1 O 1.9615 0.0000 -1.9430 0.2687 1 O 1.9615 0.0000 0.0000 -2.3128 1 O 2.3128 1.9115 -1.9430 1.6821 2 Y 3.2029 -1.9115 1.9430 1.6821 2 Y 3.2029 -1.9115 -1.9430 1.6821 2 Y 3.2029 1.9115 1.9430 1.6821 2 Y 3.2029 0.0000 0.0000 3.3641 3 CU1 3.3641 1.9115 -1.9430 -2.0091 4 BA 3.3861 -1.9115 1.9430 -2.0091 4 BA 3.3861 -1.9115 -1.9430 -2.0091 4 BA 3.3861 1.9115 1.9430 -2.0091 4 BA 3.3861 0.0000 1.9430 3.0955 1 O 3.6547 0.0000 -1.9430 3.0955 1 O 3.6547 -1.9115 0.0000 3.1188 1 O 3.6580 1.9115 0.0000 3.1188 1 O 3.6580 3.8230 0.0000 0.0000 3 CU1 3.8230 -3.8230 0.0000 0.0000 3 CU1 3.8230 0.0000 3.8860 0.0000 3 CU1 3.8860 0.0000 -3.8860 0.0000 3 CU1 3.8860 0.0000 0.0000 -4.1584 3 CU1 4.1584 -3.8230 -1.9430 0.2687 1 O 4.2968 3.8230 1.9430 0.2687 1 O 4.2968 3.8230 -1.9430 0.2687 1 O 4.2968 -3.8230 1.9430 0.2687 1 O 4.2968 1.9115 3.8860 0.2453 1 O 4.3376 1.9115 -3.8860 0.2453 1 O 4.3376 -1.9115 3.8860 0.2453 1 O 4.3376 -1.9115 -3.8860 0.2453 1 O 4.3376 Appendix E. Code Variables, Dimensions and Descriptions The end of line comments were removed from the code because they are not standard Fortran. The array names are a bit cryptic due to the six character limit in standard FORTRAN -- the comments included here explain what the names mean. If you need to run larger problems than the dimension statements in the code allow, simply change the dimensions in all the relevant parameter statements and recompile. However, dimensions associated with the atom and phase shift codes, e.g. the number of r-mesh points and the max number of angular momentum levels should NOT be changed. dim.h: c These names have been checked with all current feff code. c Changing the common names in the future may be a good idea. c June 12, 1992 parameter (nphx = 7) !max number of unique potentials (potph) parameter (npotx = nphx) !max number of unique potentials (genfmt, paths) parameter (nfrx = nphx) !max number of free atom types parameter (novrx = 8) !max number of overlap shells parameter (natx = 250) !max number of atoms in problem parameter (ltot = 24) !max number of ang mom (arrays 1:ltot+1) parameter (nrptx = 250) !Loucks r grid used through overlap parameter (nex = 100) !Number of energy points genfmt, etc. parameter (lamtot=15) !Max number of distinct lambda's for genfmt !15 handles iord 2 and exact ss parameter (mtot=2, ntot=2) !vary mmax and nmax independently parameter (legtot=7) !max number of legs, used in genfmt, !NOT in path finder parameter (npatx = 8) !max number of path atoms, used in path !finder, NOT in genfmt arrays.h: c Notes: c nat number of atoms in problem c nph number of unique potentials c nfr number of unique free atoms c ihole hole code of absorbing atom c iph=0 for central atom c ifr=0 for central atom c Specific atom input data dimension iphat(natx) !given specific atom, which unique pot? dimension rat(3,natx) !cartesian coords of specific atom c Unique potential input data dimension iatph(0:nphx) !given unique pot, which atom is model? !(0 if none specified for this unique pot) dimension ifrph(0:nphx) !given unique pot, which free atom? dimension xnatph(0:nphx) !given unique pot, how many atoms are there !of this type? (used for interstitial calc) character*6 potlbl(0:nphx) !label for user convenience dimension folp(0:nphx) !overlap factor for rmt calculation dimension novr(0:nphx) !number of overlap shells for unique pot dimension iphovr(novrx,0:nphx) !unique pot for this overlap shell dimension nnovr(novrx,0:nphx) !number of atoms in overlap shell dimension rovr(novrx,0:nphx) !r for overlap shell c Free atom data dimension ion(0:nfrx) !ionicity, input dimension iz(0:nfrx) !atomic number, input c ATOM output c Note that ATOM output is dimensioned 251, all other r grid c data is set to nrptx, currently 250 dimension rho(251,0:nfrx) !density*4*pi dimension vcoul(251,0:nfrx) !coulomb potential c Overlap calculation results dimension edens(nrptx,0:nphx) !overlapped density*4*pi dimension vclap(nrptx,0:nphx) !overlapped coul pot dimension vtot (nrptx,0:nphx) !overlapped total potential c Muffin tin calculation results dimension imt(0:nphx) !r mesh index just inside rmt dimension inrm(0:nphx) !r mesh index just inside rnorman dimension rmt(0:nphx) !muffin tin radius dimension rnrm(0:nphx) !norman radius c PHASE output complex*16 eref(nex) !interstitial energy ref complex*16 ph(nex,ltot+1,0:nphx) !phase shifts dimension lmax(0:nphx) !number of ang mom levels lambda.h: common /lambda/ 4 mlam(lamtot), !mu for each lambda 5 nlam(lamtot), !nu for each lambda 1 lamx, !max lambda in problem 2 laml0x, !max lambda for vectors involving absorbing atom 3 mmaxp1, nmax !max mu in problem + 1, max nu in problem pdata.h: c Note that leg nleg is the leg ending at the central atom, so that c ipot(nleg) is central atom potential, rat(nleg) position of c central atom. c Central atom has ipot=0 c For later convenience, rat(,0) and ipot(0) refer to the central c atom, and are the same as rat(,nleg), ipot(nleg). c text and title arrays include carriage control character*80 text, title character*6 potlbl common /str/ text(40), !text header from potph 1 title(5), !title from paths.dat 1 potlbl(0:npotx) ! potential labels for output complex*16 ph, eref common /pdata/ 1 ph(nex,ltot+1,0:npotx), !complex phase shifts, 1 !central atom ipot=0 1 rat(3,0:legtot), !position of each atom, code units (bohr) 1 eref(nex), !complex energy reference 1 em(nex), !energy mesh 1 ri(legtot), beta(legtot), eta(legtot), !r, beta, eta for each leg 1 deg, rnrmav, xmu, edge, !(output only) 1 lmax(nex,0:npotx), !max l with non-zero phase for each energy 1 ipot(0:legtot), !potential for each atom in path 1 iz(0:npotx), !atomic number (output only) 1 ltext(40), ltitle(5), !length of each string 1 nsc, nleg, !nscatters, nlegs (nleg = nsc+1) 1 npot, ne, !number of potentials, energy points 1 ik0, !index of energy grid corresponding to k=0 (edge) 1 ipath, !index of current path (output only) 1 ihole, !(output only) 1 l0, il0, !lfinal and lfinal+1 (used for indices) 1 lmaxp1, !largest lmax in problem + 1 1 ntext, ntitle !number of text and title lines Appendix F. Changes from FEFF 5.04 and FEFF 6.01 We have made some minor changes to the input files and code. For complete descriptions of the new cards and modifications of old ones, see section III. With the exception of POLARIZATION capabilities, and improved path finder and degeneracy checks, FEFF 6L is nearly identical to FEFF5 and FEFF6.01. Two cards are no longer recognized. These are: KLIMIT (replaced by NEMAX) REQUIRE There are several changes and new options. These are: CORRECTIONS Adds real and imaginary part to energy CRITERIA The importance criteria are now formulated differently CSIG Code now uses complex momentum in Debye-Waller factors by default NEMAX Max number of energy grid points (replaces KLIMIT) PCRITERIA The path finder criteria are now formulated differently PRINT Several new options POTENTIALS Now has optional labels for unique potentials Polarization dependent feff can be calculated with the help of the following new cards: POLARIZATION Specifies polarization vector ELLIPTICITY Ellipticity and direction of the incident beam for the elliptical polarization. Appendix G. Trouble-shooting FEFF problems FEFF 6 has been extensively tested but occasionally new bugs show up. In an effort to maintain trouble-free codes we take all bug reports seriously. Often we receive reports by users of older versions of FEFF of bugs that are fixed in the latest releases. Other code failures can often be traced to input file errors, sometimes quite subtle. An example would be non-physical widely spaced distributions of atoms. Symptoms of this common problem are very large muffin-tin radii (see the header of any .dat file) and possibly a failure of the phase-shift program to converge. Another example is an error in assigining potential indices; the first atom with a given potential index must have the geometry representative of this potential type. This is sometimes fixed by using a somewhat larger cluster; in fact it is usually desirable to have a larger cluster for potential construction than that used in the XAFS calculation due to errors in the potentials at surfaces. Unless the atom distribution is physically possible, you can expect the code to have problems. If, after you have verified that your input file is not the problem, the problem persists, please contact us at the e-mail addresses listed in Sec. 1. To address your problem, we need the following information: FEFF Bug and Error Report 1. Brief description of problem. 2. Code and Version number (e.g., FEFF5 version 5.03) 3. Input file causing problem feff.inp 4. If available, attach sample output (e.g. chi.dat) or log file. ifeffit-1.2.11d/src/feff6/getorb.f0000644000175000017500000003756310663646452015616 0ustar segresegre subroutine getorb (iz, ihole, ion, norb, norbco, 1 den, nqn, nk, nel) implicit double precision (a-h, o-z) c Save internal variables in case this gets re-entered save c Gets orbital data for chosen element. Input is iz, atomic number c of desired element, other arguments are output. c Written by Steven Zabinsky, July 1989 c c last modified (20 aug 1989) table increased to at no 95 c Table for each element has occupation of the various levels. c The order of the levels in each array is: c element level principal qn (nqn), kappa qn (nk) c 1 1s 1 -1 c 2 2s 2 -1 c 3 2p1/2 2 1 c 4 2p3/2 2 -2 c 5 3s 3 -1 c 6 3p1/2 3 1 c 7 3p3/2 3 -2 c 8 3d3/2 3 2 c 9 3d5/2 3 -3 c 10 4s 4 -1 c 11 4p1/2 4 1 c 12 4p3/2 4 -2 c 13 4d3/2 4 2 c 14 4d5/2 4 -3 c 15 4f5/2 4 3 c 16 4f7/2 4 -4 c 17 5s 5 -1 c 18 5p1/2 5 1 c 19 5p3/2 5 -2 c 20 5d3/2 5 2 c 21 5d5/2 5 -3 c 22 5f5/2 5 3 c 23 5f7/2 5 -4 c 24 6s 6 -1 c 25 6p1/2 6 1 c 26 6p3/2 6 -2 c 27 6d3/2 6 2 c 28 6d5/2 6 -3 c 29 7s 7 -1 dimension den(30), nqn(30), nk(30), nel(30) dimension kappa (29) dimension iocc (95, 29) dimension nnum (29) c dimension ncore(95) c kappa quantum number for each orbital c k = - (j + 1/2) if l = j - 1/2 c k = + (j + 1/2) if l = j + 1/2 data kappa /-1,-1, 1,-2,-1, 1,-2, 2,-3,-1, 1,-2, 2,-3, 3, 1 -4,-1, 1,-2, 2, -3, 3,-4,-1, 1, -2, 2,-3,-1/ c principal quantum number (energy eigenvalue) data nnum /1,2,2,2,3, 3,3,3,3,4, 4,4,4,4,4, 1 4,5,5,5,5, 5,5,5,6,6, 6,6,6,7/ c number of core orbitals for z = 1 to 95 c data ncore c 1 /0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, c 2 4, 4, 4, 4, 4, 4, 4, 4, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, c 3 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, c 4 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 16,16,16,16,16, 16,16,16,16,16, c 5 16,16,16,16,16, 16,16,16,16,16, 16,16,16,16,16/ c occupation of each level for z = 1, 95 data (iocc( 1,i),i=1,29) /1,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc( 2,i),i=1,29) /2,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc( 3,i),i=1,29) /2,1,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc( 4,i),i=1,29) /2,2,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc( 5,i),i=1,29) /2,2,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc( 6,i),i=1,29) /2,2,2,0,0, 0,0,0,0,0, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc( 7,i),i=1,29) /2,2,2,1,0, 0,0,0,0,0, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc( 8,i),i=1,29) /2,2,2,2,0, 0,0,0,0,0, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc( 9,i),i=1,29) /2,2,2,3,0, 0,0,0,0,0, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(10,i),i=1,29) /2,2,2,4,0, 0,0,0,0,0, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(11,i),i=1,29) /2,2,2,4,1, 0,0,0,0,0, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(12,i),i=1,29) /2,2,2,4,2, 0,0,0,0,0, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(13,i),i=1,29) /2,2,2,4,2, 1,0,0,0,0, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(14,i),i=1,29) /2,2,2,4,2, 2,0,0,0,0, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(15,i),i=1,29) /2,2,2,4,2, 2,1,0,0,0, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(16,i),i=1,29) /2,2,2,4,2, 2,2,0,0,0, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(17,i),i=1,29) /2,2,2,4,2, 2,3,0,0,0, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(18,i),i=1,29) /2,2,2,4,2, 2,4,0,0,0, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(19,i),i=1,29) /2,2,2,4,2, 2,4,0,0,1, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(20,i),i=1,29) /2,2,2,4,2, 2,4,0,0,2, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(21,i),i=1,29) /2,2,2,4,2, 2,4,1,0,2, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(22,i),i=1,29) /2,2,2,4,2, 2,4,2,0,2, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(23,i),i=1,29) /2,2,2,4,2, 2,4,3,0,2, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(24,i),i=1,29) /2,2,2,4,2, 2,4,4,1,1, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(25,i),i=1,29) /2,2,2,4,2, 2,4,4,1,2, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(26,i),i=1,29) /2,2,2,4,2, 2,4,4,2,2, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(27,i),i=1,29) /2,2,2,4,2, 2,4,4,3,2, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(28,i),i=1,29) /2,2,2,4,2, 2,4,4,4,2, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(29,i),i=1,29) /2,2,2,4,2, 2,4,4,6,1, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(30,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 0,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(31,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 1,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(32,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,0,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(33,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,1,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(34,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,2,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(35,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,3,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(36,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,0,0,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(37,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,0,0,0, 1 0,1,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(38,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,0,0,0, 1 0,2,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(39,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,1,0,0, 1 0,2,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(40,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,2,0,0, 1 0,2,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(41,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,0,0, 1 0,1,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(42,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,1,0, 1 0,1,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(43,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,1,0, 1 0,2,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(44,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,3,0, 1 0,1,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(45,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,4,0, 1 0,1,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(46,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,0, 1 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(47,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,0, 1 0,1,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(48,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,0, 1 0,2,0,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(49,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,0, 1 0,2,1,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(50,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,0, 1 0,2,2,0,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(51,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,0, 1 0,2,2,1,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(52,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,0, 1 0,2,2,2,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(53,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,0, 1 0,2,2,3,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(54,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,0, 1 0,2,2,4,0, 0,0,0,0,0, 0,0,0,0/ data (iocc(55,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,0, 1 0,2,2,4,0, 0,0,0,1,0, 0,0,0,0/ data (iocc(56,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,0, 1 0,2,2,4,0, 0,0,0,2,0, 0,0,0,0/ data (iocc(57,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,0, 1 0,2,2,4,1, 0,0,0,2,0, 0,0,0,0/ data (iocc(58,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,2, 1 0,2,2,4,0, 0,0,0,2,0, 0,0,0,0/ data (iocc(59,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,3, 1 0,2,2,4,0, 0,0,0,2,0, 0,0,0,0/ data (iocc(60,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,4, 1 0,2,2,4,0, 0,0,0,2,0, 0,0,0,0/ data (iocc(61,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,5, 1 0,2,2,4,0, 0,0,0,2,0, 0,0,0,0/ data (iocc(62,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 0,2,2,4,0, 0,0,0,2,0, 0,0,0,0/ data (iocc(63,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 1,2,2,4,0, 0,0,0,2,0, 0,0,0,0/ data (iocc(64,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 1,2,2,4,1, 0,0,0,2,0, 0,0,0,0/ data (iocc(65,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 3,2,2,4,0, 0,0,0,2,0, 0,0,0,0/ data (iocc(66,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 4,2,2,4,0, 0,0,0,2,0, 0,0,0,0/ data (iocc(67,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 5,2,2,4,0, 0,0,0,2,0, 0,0,0,0/ data (iocc(68,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 6,2,2,4,0, 0,0,0,2,0, 0,0,0,0/ data (iocc(69,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 7,2,2,4,0, 0,0,0,2,0, 0,0,0,0/ data (iocc(70,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,0, 0,0,0,2,0, 0,0,0,0/ data (iocc(71,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,1, 0,0,0,2,0, 0,0,0,0/ data (iocc(72,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,2, 0,0,0,2,0, 0,0,0,0/ data (iocc(73,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,3, 0,0,0,2,0, 0,0,0,0/ data (iocc(74,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 0,0,0,2,0, 0,0,0,0/ data (iocc(75,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 1,0,0,2,0, 0,0,0,0/ data (iocc(76,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 2,0,0,2,0, 0,0,0,0/ data (iocc(77,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 3,0,0,2,0, 0,0,0,0/ data (iocc(78,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 5,0,0,1,0, 0,0,0,0/ data (iocc(79,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 6,0,0,1,0, 0,0,0,0/ data (iocc(80,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 6,0,0,2,0, 0,0,0,0/ data (iocc(81,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 6,0,0,2,1, 0,0,0,0/ data (iocc(82,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 6,0,0,2,2, 0,0,0,0/ data (iocc(83,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 6,0,0,2,2, 1,0,0,0/ data (iocc(84,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 6,0,0,2,2, 2,0,0,0/ data (iocc(85,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 6,0,0,2,2, 3,0,0,0/ data (iocc(86,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 6,0,0,2,2, 4,0,0,0/ data (iocc(87,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 6,0,0,2,2, 4,0,0,1/ data (iocc(88,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 6,0,0,2,2, 4,0,0,2/ data (iocc(89,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 6,0,0,2,2, 4,1,0,2/ data (iocc(90,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 6,0,0,2,2, 4,2,0,2/ data (iocc(91,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 6,2,0,2,2, 4,1,0,2/ data (iocc(92,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 6,3,0,2,2, 4,1,0,2/ data (iocc(93,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 6,4,0,2,2, 4,1,0,2/ data (iocc(94,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 6,6,0,2,2, 4,0,0,2/ data (iocc(95,i),i=1,29) /2,2,2,4,2, 2,4,4,6,2, 2,4,4,6,6, 1 8,2,2,4,4, 6,6,1,2,2, 4,0,0,2/ if (iz .lt. 1 .or. iz .gt. 95) then call echo(' Atomic number not available') call fstop(' at GETORB') endif index = iz - ion if (ihole .gt. 0) then index = index + 1 c remove an electron from the level specified by ihole if (iocc(index,ihole) .lt. 1) then call echo(' cannot remove an electron from this level') call fstop(' at GETORB-1') endif iocc(index,ihole) = iocc(index,ihole) - 1 endif norb = 0 do 10 i = 1, 29 if (iocc(index,i) .ne. 0) then norb = norb + 1 nqn(norb) = nnum(i) nk(norb) = kappa(i) nel(norb) = iocc(index,i) den(norb) = 0.0 endif 10 continue c restore iocc array for neatness if (ihole .gt. 0) then iocc(index,ihole) = iocc(index,ihole) + 1 endif norbco = norb return end ifeffit-1.2.11d/src/feff6/rdpath.f0000644000175000017500000001474210663646452015610 0ustar segresegre subroutine rdpath (in, pol, done,xstar) implicit double precision (a-h, o-z) logical done, pol include 'const.h' include 'dim.h' include 'pdata.h' include 'pola.h' complex*16 alph, gamm dimension alpha(0:legtot), gamma(legtot) character messag*128 read(in,*,end=200) ipath, nleg, deg if (nleg .gt. legtot) then write(messag,'(1x,a,2i5)') $ ' RDPATH: nleg > legtot: nleg, legtot ', nleg, legtot call echo(messag) goto 200 endif c skip label (x y z ipot rleg beta eta) read(in,*) do 20 ileg = 1, nleg read(in,*,end=999) (rat(j,ileg),j=1,3), ipot(ileg), 1 potlbl(ipot(ileg)) c convert to code units do 10 j = 1, 3 rat(j,ileg) = rat(j,ileg)/bohr 10 continue if (ipot(ileg) .gt. npot) then write(messag,'(1x,a,3i5)') $ ' RDPATH: ipot(ileg) too big: ipot, ileg, npot ', 1 ipot(ileg), ileg, npot call echo(messag) goto 200 endif 20 continue nsc = nleg-1 c We need the 'z' atom so we can use it below. Put c it in rat(nleg+1). No physical significance, just a handy c place to put it. if (pol) then rat(1,nleg+1) = rat(1,nleg) rat(2,nleg+1) = rat(2,nleg) rat(3,nleg+1) = rat(3,nleg) + 1.0 endif c add rat(0) and ipot(0) (makes writing output easier) do 22 j = 1, 3 rat(j,0) = rat(j,nleg) 22 continue ipot(0) = ipot(nleg) c beginnnig of calculating nstar=deg*cos(eps r1)*cos(eps rN) x1 = 0.0 do 23 j = 1,3 x1 = x1 + evec(j) * ( rat(j,1) - rat(j,0) ) 23 continue xnorm = 0.0 do 24 j = 1,3 xnorm = xnorm + (rat(j,1) - rat(j,0))**2 24 continue x1 = x1/sqrt(xnorm) x2 = 0.0 do 25 j = 1,3 x2 = x2 + evec(j) * ( rat(j,nleg-1) - rat(j,0) ) 25 continue xnorm = 0.0 do 26 j = 1,3 xnorm = xnorm + (rat(j,nleg-1) - rat(j,0))**2 26 continue x2 = x2/sqrt(xnorm) xstar = deg* abs(x1*x2) c end of calculating nstar nangle = nleg if (pol) then c in polarization case we need one more rotation nangle = nleg + 1 endif do 100 j = 1, nangle c for euler angles at point i, need th and ph (theta and phi) c from rat(i+1)-rat(i) and thp and php c (theta prime and phi prime) from rat(i)-rat(i-1) c c Actually, we need cos(th), sin(th), cos(phi), sin(phi) and c also for angles prime. Call these ct, st, cp, sp c i = (j) c ip1 = (j+1) c im1 = (j-1) c except for special cases... ifix = 0 if (j .eq. nsc+1) then c j+1 'z' atom, j central atom, j-1 last path atom i = 0 ip1 = 1 if (pol) then ip1 = nleg+1 endif im1 = nsc elseif (j .eq. nsc+2) then c j central atom, j+1 first path atom, j-1 'z' atom i = 0 ip1 = 1 im1 = nleg+1 ifix = 1 else i = j ip1 = j+1 im1 = j-1 endif x = rat(1,ip1) - rat(1,i) y = rat(2,ip1) - rat(2,i) z = rat(3,ip1) - rat(3,i) call trig (x, y, z, ctp, stp, cpp, spp) x = rat(1,i) - rat(1,im1) y = rat(2,i) - rat(2,im1) z = rat(3,i) - rat(3,im1) call trig (x, y, z, ct, st, cp, sp) c Handle special case, j=central atom, j+1 first c path atom, j-1 is 'z' atom. Need minus sign c for location of 'z' atom to get signs right. if (ifix .eq. 1) then x = 0 y = 0 z = 1.0 call trig (x, y, z, ct, st, cp, sp) ifix = 0 endif c cppp = cos (phi prime - phi) c sppp = sin (phi prime - phi) cppp = cp*cpp + sp*spp sppp = spp*cp - cpp*sp phi = atan2(sp,cp) phip = atan2(spp,cpp) c alph = exp(i alpha) in ref eqs 18 c beta = cos (beta) c gamm = exp(i gamma) alph = -(st*ctp - ct*stp*cppp - coni*stp*sppp) beta(j) = ct*ctp + st*stp*cppp c watch out for roundoff errors if (beta(j) .lt. -1) beta(j) = -1 if (beta(j) .gt. 1) beta(j) = 1 gamm = -(st*ctp*cppp - ct*stp + coni*st*sppp) call arg(alph,phip-phi,alpha(j)) beta(j) = acos(beta(j)) call arg(gamm,phi-phi,gamma(j)) c Convert from the rotation of FRAME used before to the rotation c of VECTORS used in ref. dumm = alpha(j) alpha(j) = pi- gamma(j) gamma(j) = pi- dumm if (j .le. nleg) then ri(j) = dist (rat(1,i), rat(1,im1)) endif 100 continue c Make eta(i) = alpha(i-1) + gamma(i). c We'll need alph(nangle)=alph(0) alpha(0) = alpha(nangle) do 150 j = 1, nleg eta(j) = alpha(j-1) + gamma(j) 150 continue if (pol) then eta(0) = gamma(nleg+1) eta(nleg+1) = alpha(nleg) endif c eta and beta in radians at this point. done = .false. return c If no more data, tell genfmt we're done 200 continue done = .true. return c If unexpected end of file, die 999 continue call fstop(' at RDPATH: unexpected end of file') end subroutine trig (x, y, z, ct, st, cp, sp) implicit double precision (a-h, o-z) c returns cos(theta), sin(theta), cos(phi), sin(ph) for (x,y,z) c convention - if x=y=0 and z>0, phi=0, cp=1, sp=0 c if x=y=0 and z<0, phi=180, cp=-1,sp=0 c - if x=y=z=0, theta=0, ct=1, st=0 parameter (eps = 1.0e-6) r = sqrt (x**2 + y**2 + z**2) rxy = sqrt (x**2 + y**2) if (r .lt. eps) then ct = 1 st = 0 else ct = z/r st = rxy/r endif if (rxy .lt. eps) then cp = 1 if (ct .lt. 0) cp = -1 sp = 0 else cp = x / rxy sp = y / rxy endif return end subroutine arg(c,fi,th) implicit double precision (a-h, o-z) complex*16 c parameter (eps = 1.0e-6) x = dble(c) y = dimag(c) if (abs(x) .lt. eps) x = 0 if (abs(y) .lt. eps) y = 0 if (abs(x) .lt. eps .and. abs(y) .lt. eps) then th = fi else th = atan2(y,x) endif return end ifeffit-1.2.11d/src/feff6/rotmat.h0000644000175000017500000000012110663646452015620 0ustar segresegre save /rotmat/ common /rotmat/ dri(ltot+1,2*mtot+1,2*mtot+1,legtot+1) ifeffit-1.2.11d/src/feff6/prcrit.f0000644000175000017500000000776610663646452015641 0ustar segresegre subroutine prcrit (neout, nncrit, ik0out, cksp, fbeta, ckspc, 1 fbetac, potlb0) implicit double precision (a-h, o-z) c Prepare fbeta arrays, etc., for pathfinder criteria c c Note that path finder is single precision, so be sure that c things are correct precision in calls and declarations! c See declarations below for details. c c Inputs: Reads phase.bin c Output: neout 'ne', number of energy grid points c ik0out index of energy grid with k=0 c cksp |p| at each energy grid point in single precision c fbeta |f(beta)| for each angle, npot, energy point, sp c ckspc |p| at each necrit point in single precision c fbetac |f(beta)| for each angle, npot, nncrit point, sp c potlb0 unique potential labels include 'const.h' include 'dim.h' include 'pdata.h' c Output variables SINGLE PRECISION for use with path finder. c BE CAREFUL!! parameter (necrit=9, nbeta=40) real fbetac(-nbeta:nbeta,0:npotx,necrit), ckspc(necrit) real fbeta(-nbeta:nbeta,0:npotx,nex), cksp(nex) character*6 potlb0(0:npotx) character*128 messag c Local variables complex*16 cfbeta, tl dimension dcosb(-nbeta:nbeta) dimension pl(ltot+1) dimension iecrit(necrit) c Need stuff from phase.bin c Read phase calculation input, data returned via commons open (unit=1, file='phase.bin', status='old', 1 access='sequential', form='unformatted', iostat=ios) call chopen (ios, 'phase.bin', 'prcrit') call rphbin (1) close (unit=1) c Pass out ne, ik0, potlbl (from rphbin via /pdata/) neout = ne ik0out = ik0 do 40 i = 0, npotx potlb0(i) = potlbl(i) 40 continue c |p| at each energy point (path finder uses invA, convert here) do 100 ie = 1, ne cksp(ie) = abs (sqrt (em(ie) - eref(ie))) / bohr 100 continue c Make the cos(beta)'s c Grid is from -40 to 40, 81 points from -1 to 1, spaced .025 do 200 ibeta = -nbeta, nbeta dcosb(ibeta) = 0.025 * ibeta 200 continue c watch out for round-off error dcosb(-nbeta) = -1 dcosb(nbeta) = 1 c make fbeta (f(beta) for all energy points do 280 ibeta = -nbeta, nbeta call cpl0 (dcosb(ibeta), pl, lmaxp1) do 260 iii = 0, npot do 250 ie = 1, ne cfbeta = 0 do 245 il = 1, lmax(ie,iii)+1 tl = (exp (2*coni*ph(ie,il,iii)) - 1) / (2*coni) cfbeta = cfbeta + tl*pl(il)*(2*il-1) 245 continue fbeta(ibeta,iii,ie) = abs(cfbeta) 250 continue 260 continue 280 continue c Make similar arrays for only the icrit points c Use 9 points at k=0,1,2,3,4,6,8,10,12 invA c See phmesh for energy gid definition. These seem to work fine, c and results aren't too sensitive to choices of k. As few as 4 c points work well (used 0,3,6,9), but time penalty for 9 points c is small and increased safety seems to be worth it. iecrit(1) = ik0 iecrit(2) = ik0 + 5 iecrit(3) = ik0 + 10 iecrit(4) = ik0 + 15 iecrit(5) = ik0 + 20 iecrit(6) = ik0 + 30 iecrit(7) = ik0 + 34 iecrit(8) = ik0 + 38 iecrit(9) = ik0 + 40 c make sure that we have enough energy grid points to use all c 9 iecrits nncrit = 0 do 290 ie = 1, necrit if (iecrit(ie) .gt. ne) goto 295 nncrit = ie 290 continue 295 continue if (nncrit .eq. 0) call fstop(' at PRCRIT: bad nncrit') write(messag,'(1x,a,i7)') ' nncrit in prcrit ', nncrit call echo(messag) do 320 icrit = 1, nncrit ie = iecrit(icrit) ckspc(icrit) = cksp(ie) do 310 ibeta = -nbeta, nbeta do 300 iii = 0, npot fbetac(ibeta,iii,icrit) = fbeta(ibeta,iii,ie) 300 continue 310 continue 320 continue return end ifeffit-1.2.11d/src/feff6/atom.h0000644000175000017500000000147510774502427015263 0ustar segresegre include 'mepts.h' include 'const.h' common /atomco/ den(30), dq1(30), dfl(30), ws, nqn(30), nql(30), 1 nk(30), nmax(30), nel(30), norb, norbco common /dira/ dv(mepts), dr(mepts), dp(mepts), dq(mepts), 1 dpas, tets, z, nstop, nes, np, nuc common /deux/ dvn(mepts), dvf(mepts), d(mepts), dc(mepts), 1 dgc(mepts,30), dpc(mepts,30) common /trois/ dpno(4,30), dqno(4,30) common /ps1/ dep(5), deq(5), db, dvc, dsal, dk, dm common /ps2/ dexv, dexe, dcop, test, teste, 1 testy, testv, niter, ion, icut, iprat, irnorm integer iprint common /print/ iprint c titre = identification of the wave functions s,p*,p,........ character*40 ttl character*2 titre common /char/ titre(30), ttl ifeffit-1.2.11d/src/feff6/const.h0000644000175000017500000000135510663646452015452 0ustar segresegrec{consts.h -*-fortran-*- double precision pi, one, zero, third, raddeg double precision fa, bohr, ryd, alpinv, alphfs, clight complex*16 coni parameter (pi = 3.14159 26535 89793 23846 26433d0) parameter (one = 1.d0, zero = 0.d0) parameter (third = one/3) parameter (raddeg = 180 / pi) parameter (coni = (0.d0,1.d0)) c kf = fa/rs with fa = (9*pi/4)**third, see Ash&Merm, pg 37 parameter (fa = 1.919 158 292 677 512 811d0) parameter (bohr = 0.529 177 249d0, ryd = 13.605 698d0) c fine structure alpha parameter (alpinv = 137.035 989 56d0) parameter (alphfs = one / alpinv) c speed of light in louck's units (rydbergs?) parameter (clight = 2 * alpinv) c} ifeffit-1.2.11d/src/feff6/M/0000755000175000017500000000000011012363261014322 5ustar segresegreifeffit-1.2.11d/src/feff6/M/ovrlp.f0000644000175000017500000000475010774506324015656 0ustar segresegre subroutine ovrlp (iph, iphat, rat, iatph, ifrph, novr, 1 iphovr, nnovr, rovr, iz, nat, rho, vcoul, 2 edens, vclap, rnrm) c Overlaps coulomb potentials and electron densities for current c unique potential implicit double precision (a-h, o-z) include 'const.h' include 'dim.h' include 'mepts.h' dimension iphat(natx) dimension rat(3,natx) dimension iatph(0:nphx) dimension ifrph(0:nphx) dimension novr(0:nphx) dimension iphovr(novrx,0:nphx) dimension nnovr(novrx,0:nphx) dimension rovr(novrx,0:nphx) dimension iz(0:nfrx) dimension rho(mepts,0:nfrx) dimension vcoul(mepts,0:nfrx) dimension edens(mepts,0:nphx) dimension vclap(mepts,0:nphx) dimension rnrm(0:nphx) c find out which free atom we're dealing with ifr = ifrph(iph) cc print*, ' OVRLP ', iph, ifr, novr(iph) c start with free atom values for current atom do 100 i = 1, 250 vclap(i,iph) = vcoul(i,ifr) edens(i,iph) = rho (i,ifr) 100 continue if (novr(iph) .gt. 0) then do 104 iovr = 1, novr(iph) rnn = rovr(iovr,iph) ann = nnovr(iovr,iph) infr = ifrph(iphovr(iovr,iph)) call sumax(rnn, ann, vcoul(1,infr), vclap(1,iph)) call sumax(rnn, ann, rho (1,infr), edens(1,iph)) 104 continue else c Do overlapping from geometry with model atom iat iat = iatph(iph) ccc print*, ' OVRLP ', iph, iat, nat c overlap with all atoms within r overlap max (rlapx) c 12 au = 6.35 ang This number pulled out of a hat... rlapx = 12 c inat is Index of Neighboring ATom do 110 inat = 1, nat c don't overlap atom with itself if (inat .eq. iat) goto 110 c if neighbor is too far away, don't overlap it rnn = dist (rat(1,inat), rat(1,iat)) if (rnn .gt. rlapx) goto 110 infr = ifrph(iphat(inat)) call sumax(rnn, one, vcoul(1,infr), vclap(1,iph)) call sumax(rnn, one, rho (1,infr), edens(1,iph)) 110 continue endif c set norman radius cc print*, ' OVRLP -> frnrm ', iph, ifr, iz(ifr), mepts cc cc print*, edens(1,iph), edens(2,iph), edens(3,iph), cc $ edens(mepts-1,iph), edens(mepts,iph) call frnrm (edens(1,iph), iz(ifr), rnrm(iph)) cc print*, iph, rnrm(iph) return end ifeffit-1.2.11d/src/feff6/M/phmesh.f0000644000175000017500000000626210774477427016013 0ustar segresegrec make e and r mesh for phase c input: nr, dx, x0, nemax, iprint, c ixanes, edge, xmu, vint, vr0, imt, edens, nph c edge, xmu... used only with ixanes = 1 c output: ri(nr), ne, em(ne), ik0 [grid point with k=0] c c set nemax = nex (from dim.h) for max number of points subroutine phmesh (nr, nemax, iprint, 1 ixanes, edge, xmu, vint, vr0, 1 imt, edens, nph, 2 ri, ne, em, ik0) implicit double precision (a-h, o-z) include 'const.h' include 'dim.h' dimension ri(nr), em(nex) c edens overlapped density*4*pi c imt r mesh index just inside rmt c see arrays.h dimension edens(nrptx,0:nphx) dimension imt(0:nphx) c r mesh do 100 i = 1, nr ri(i) = rr(i) 100 continue c xkmin needed only with ixanes if (ixanes .gt. 0) then c Need xf**2 min for all unique potentials, take rho(imt) as c min rho xf2int = xmu-vint xf2min = xf2int do 400 i = 0, nph rs = (3 / edens(imt(i),i)) ** third xf2 = (fa / rs) ** 2 if (xf2 .le. xf2min) xf2min = xf2 400 continue xkmin2 = xf2min - vr0 if (xkmin2 .lt. 0) then c print*, ' xf2min, vr0, xkmin2' c print*, xf2min, vr0, xkmin2 c print*, 'bad vr0 in phmesh' call fstop(' at PHMESH: bad vr0') endif delk = bohr/5 xkmin = sqrt (xkmin2) n = int(xkmin/delk) - 1 else xkmin = 0 n = 0 endif c energy mesh c n pts (-2 le k lt 0, delk=0.2 ang(-1) ) (only if xanes) c 30 pts (0 le k le 5.8, delk=0.2 ang(-1) ) c 9 pts (6 le k le 10., delk=0.5 ang(-1) ) c 10 pts (11 le k le 20.0, delk=1.0 ang(-1) ) ne = 0 delk = bohr/5 if (ixanes .gt. 0) then xkmin = n*delk do 110 i=1,n tempk=-xkmin+(i-1)*delk ne = ne+1 em(ne)=-tempk**2+edge 110 continue endif delk = bohr/5 do 112 i=1,30 tempk=(i-1)*delk ne = ne+1 em(ne)=tempk**2+edge if (i.eq.1) ik0 = ne 112 continue delk = bohr/2 do 113 i=1,9 tempk=6.*bohr + (i-1)*delk ne = ne+1 em(ne)=tempk**2+edge 113 continue delk=bohr do 114 i=1,10 tempk=11.*bohr + (i-1)*delk ne = ne+1 em(ne)=tempk**2+edge 114 continue c print*, 'phmesh: ne, nex, nemax before setting ne ', c 1 ne, nex, nemax ne = min (ne, nemax) c print*, 'phmesh: ne, nex, nemax after setting ne ', c 1 ne, nex, nemax if (iprint .ge. 3) then open (unit=44, file='emesh.dat') write(44,*) 'edge, bohr, edge*ryd ', edge, bohr, edge*ryd write(44,*) 'ixanes, ik0 ', ixanes, ik0 write(44,*) vint, xkmin, n, ' vint, xkmin, n' write(44,*) 'ie, em(ie), xk(ie)' do 230 ie = 1, ne write(44,220) ie, em(ie), getxk(em(ie)-edge)/bohr 220 format (i5, 2f20.5) 230 continue close (unit=44) endif return end ifeffit-1.2.11d/src/feff6/M/totale.f0000644000175000017500000000175310774502206015777 0ustar segresegre subroutine totale (dval) implicit double precision (a-h,o-z) save include 'atom.h' external exchee dc(1)=1 do 10 i=1,np 10 dp(i)=d(i)/dr(i) if (nuc.le.0) go to 30 do 20 i=1,nuc 20 dp(i)=d(i)*(3-dr(i)*dr(i)/(dr(nuc)*dr(nuc)))/(dr(nuc)+dr(nuc)) dc(1)=4 30 call somm (dr,dp,dq,dpas,dc(1),0,np) dc(1)=-z*dc(1) do 40 i=1,np dp(i)=d(i)*dvf(i) dvn(i)=d(i)*dvn(i) 40 d(i)=d(i)*exchee(d(i),dr(i)) dc(2)=2 dc(3)=1 dc(5)=2 if (nuc.ne.0) dc(3)=4 call somm (dr,dp,dq,dpas,dc(3),0,np) call somm (dr,dvn,dq,dpas,dc(5),0,np) call somm (dr,d,dq,dpas,dc(2),0,np) dc(4)=dval-dc(3) dval=dval-half*dc(5)-dc(2) dc(2)=dc(3)-dc(1)-dc(5)-dc(2) dc(3)=half*dc(5) if (iprint .ge. 5) write(16,50) dval,dc(4),dc(3),dc(2),dc(1) 50 format (1h0,5x,'et=',1pe14.7,5x,'ec=',1pe14.7,5x,'ee=',1pe14.7,5x, 1 'ex=',1pe14.7,5x,'en=',1pe14.7) return end ifeffit-1.2.11d/src/feff6/M/xx.f0000644000175000017500000000103510774477237015156 0ustar segresegre double precision function xx (j) include 'const.h' integer j c x grid point at index j, x = log(r), r=exp(x) xx = -c88 + c05*(j-1) return end double precision function rr(j) double precision xx integer j external xx c r grid point at index j rr = exp (xx(j)) return end function ii(r) c index of grid point immediately below postion r include 'const.h' double precision r ii = (log(r) + c88) / c05 + 1 return end ifeffit-1.2.11d/src/feff6/M/istprm.f0000644000175000017500000001433310774253071016026 0ustar segresegre subroutine istprm (nph, nat, iphat, rat, iatph, xnatph, 1 novr, iphovr, nnovr, rovr, folp, edens, 2 vclap, vtot, imt, inrm, rmt, rnrm, 2 rhoint, 3 vint, rs, xf, xmu, rnrmav, intclc) c Finds interstitial parameters, rmt, vint, etc. implicit double precision (a-h, o-z) include 'const.h' include 'dim.h' dimension iphat(natx) dimension rat(3,natx) dimension iatph(0:nphx) dimension xnatph(0:nphx) dimension novr(0:nphx) dimension iphovr(novrx,0:nphx) dimension nnovr(novrx,0:nphx) dimension rovr(novrx,0:nphx) dimension folp(0:nphx) dimension edens(nrptx,0:nphx) dimension vclap(nrptx,0:nphx) dimension vtot (nrptx,0:nphx) dimension imt(0:nphx) dimension inrm(0:nphx) dimension rmt(0:nphx) dimension rnrm(0:nphx) character*128 messag c intclc = 0, average evenly over all atoms c 1, weight be lorentzian, 1 / (1 + 3*x**2), x = r/rnn, c r = distance to central atom, c rnn = distance of near neighbor to central atom c Find muffin tin radii. We'll find rmt based on norman prescription, c ie, rmt(i) = R * folp * rnrm(i) / (rnrm(i) + rnrm(j)), c a simple average c based on atoms i and j. We average the rmt's from each pair of c atoms, weighting by the volume of the lense shape formed by the c overlap of the norman spheres. c NB, if folp=1, muffin tins touch without overlap, folp>1 gives c overlapping muffin tins. c c rnn is distance between sphere centers c rnrm is the radius of the norman sphere c xl_i is the distance to the plane containing the circle of the c intersection c h_i = rnrm_i - xl_i is the height of the ith atom's part of c the lense c vol_i = (pi/3)*(h_i**2 * (3*rnrm_i - h_i)) c c xl_i = (rnrm_i**2 - rnrm_j**2 + rnn**2) / (2*rnn) do 140 iph = 0, nph voltot = 0 rmtavg = 0 if (novr(iph) .gt. 0) then c Overlap explicitly defined by overlap card do 124 iovr = 1, novr(iph) rnn = rovr(iovr,iph) inph = iphovr(iovr,iph) c Don't avg if norman spheres don't overlap if (rnrm(iph)+rnrm(inph) .le. rnn) goto 124 voltmp = calcvl (rnrm(iph), rnrm(inph), rnn) voltmp = voltmp + calcvl (rnrm(inph), rnrm(iph), rnn) rmttmp = rnn * folp(iph) * rnrm(iph) / 1 (rnrm(iph) + rnrm(inph)) ntmp = nnovr(iovr,iph) rmtavg = rmtavg + rmttmp*voltmp*ntmp voltot = voltot + voltmp*ntmp 124 continue else iat = iatph(iph) do 130 inat = 1, nat if (inat .eq. iat) goto 130 rnn = dist (rat(1,inat), rat(1,iat)) inph = iphat(inat) c Don't avg if norman spheres don't overlap if (rnrm(iph)+rnrm(inph) .lt. rnn) goto 130 voltmp = calcvl (rnrm(iph), rnrm(inph), rnn) voltmp = voltmp + calcvl (rnrm(inph), rnrm(iph), rnn) rmttmp = rnn * folp(iph) * rnrm(iph) / 1 (rnrm(iph) + rnrm(inph)) rmtavg = rmtavg + rmttmp*voltmp voltot = voltot + voltmp 130 continue endif if (rmtavg .le. 0) then write(messag, 132) iat, iph call echo(messag) 132 format (' WARNING: NO ATOMS CLOSE ENOUGH TO OVERLAP ATOM', 1 i5, ', UNIQUE POT', i5, '!!', /, 2 ' Rmt set to Rnorman. May be error in ', 3 'input file.') rmt(iph) = rnrm(iph) else rmt(iph) = rmtavg / voltot endif 140 continue c Need potential with ground state xc, put it into vtot do 160 iph = 0, nph call sidx (edens(1,iph), 250, rmt(iph), rnrm(iph), 1 imax, imt(iph), inrm(iph)) do 150 i = 1, imax rs = (edens(i,iph)/3)**(-third) c vhedbr from Von Barth Hedin paper, 1971 vhedbr = -1.22177412/rs - 0.0504*log(30/rs + 1) vtot(i,iph) = vclap(i,iph) + vhedbr 150 continue 160 continue c What to do about interstitial values? c Calculate'em for all atoms, print'em out for all unique pots along c with derivative quantities, like fermi energy, etc. c Interstitial values will be average over all atoms in problem. c rnrmav is averge norman radius, c (4pi/3)rnrmav**3 = (sum((4pi/3)rnrm(i)**3)/n, sum over all atoms c in problem rnrmav = 0 xn = 0 rs = 0 vint = 0 rhoint = 0 c volint is total interstitial volume volint = 0 do 170 iph = 0, nph c Use all atoms call istval (vtot(1,iph), edens(1,iph), rmt(iph), imt(iph), 2 rnrm(iph), inrm(iph), vintx, rhintx, ierr) c if no contribution to interstitial region, skip this unique pot if (ierr .ne. 0) goto 170 call fermi (rhintx, vintx, xmu, rs, xf) c (factor 4pi/3 cancel in numerator and denom, so leave out) volx = (rnrm(iph)**3 - rmt(iph)**3) if (volx .le. 0) goto 170 volint = volint + volx * xnatph(iph) vint = vint + vintx * volx * xnatph(iph) rhoint = rhoint + rhintx* volx * xnatph(iph) 170 continue c If no contribution to interstitial from any atom, die. if (volint .le. 0) then call echo(' No interstitial density. Check input file.') call fstop(' at ISTPRM') endif vint = vint / volint rhoint = rhoint / volint call fermi (rhoint, vint, xmu, rs, xf) print*, 'istprm rnrmav : ', nph do 180 iph = 0, nph rnrmav = rnrmav + xnatph(iph) * rnrm(iph)**3 xn = xn + xnatph(iph) print*, iph, xnatph(iph), rnrm(iph), rnrmav, xn 180 continue rnrmav = (rnrmav/xn) ** third print*, 'istprm rnrmav : ', rnrmav return end double precision function calcvl (r1, r2, r) implicit double precision (a-h, o-z) include 'const.h' xl = (r1**2 - r2**2 + r**2) / (2*r) h = r1 - xl calcvl = (pi/3) * h**2 * (3*r1 - h) return end ifeffit-1.2.11d/src/feff6/M/indata.f0000644000175000017500000002345610774501672015761 0ustar segresegrec major revision, input now comes from main program feff c input data is passed here to indata for processing subroutine indata (iz, ihole, wsin, ionin) implicit double precision (a-h, o-z) save include 'atom.h' c logical unit from which to read input parameter (linp = 1) character messag*128 external fpot character*2 ttire(9) data ttire /'s ', 'p*', 'p ', 'd*', 'd ', 'f*', 'f ','g*', 'g '/ c following variables fixed as data by jm 4/20/87 data i /0/ data j /0/ data k /0/ data l /0/ idep = 0 icut = 0 c Normal use, iprat = 1 iprat = 1 irnorm = 1 iex = 1 nuc = 0 c idep=0 starting potential = thomas-fermi potential c idep=1 starting potential read in from cards c if icut is zero one corrects the potential by -(ion+1)/r c if iprat is zero the pratt procedure is used c if iex is zero one uses the unmodified slater exchange c l=0 standard option for the bloc ofs points and their precision c finite nuclear size option if nuc is positive c if irnorm=1 renormalize potential to wigner-seitz radius dvc=alpinv dsal=dvc+dvc iz1=0 ion1=0 nuc1=-1 dpas=0.05d0 dr1=0.01d0 nes=15 niter=50 c orig values: teste 5.e-6, testy 1.e-5, testv 1.e-5, test 1.e-7 c JM used teste 5.0e-5 to treat negative ion, c SZ changed teste to 1.0e-4 for selenium only to avoid convergence c problems with this particular atom. c teste set to 1.0e-4 to reduce run time (sz and jjr) teste = 1.0d-4 testy=1.d-04 testv=1.d-04 test=1.d-07 np=mepts nstop=30 c Set dexv to zero for use with exafs model dexv = 0.d0 dexe=1.5d0 dcop=0.3d0 c i, j, k set to zero when old read statements removed i=0 j=0 k=0 c iz = atomic number c ion = iz-number of electrons c norb = number of orbitals c idep = should be either 0 or 1 c i = number of points for the integration = mepts by default c j = number of attempts to adjust the energy = 15 by default c k = number of iterations = 50 by default c norbco = number of core orbitals c put input data passed from feff into the necessary variables ws = wsin ion = ionin c given iz, find norb, norbco, then den, nqn, nk and nel for c each orbital. call getorb (iz, ihole, ion, norb, norbco, 1 den, nqn, nk, nel) if (norb .gt. nstop) then if (iprint .ge. 5) write(16,44) norb write(messag,44) norb call echo(messag) 44 format (' norb=',i3,'too big') goto 999 endif c dexv = exchange coefficient for the potential: dexv=1. for slater c dexe = exchange energy coefficient c dexv should be equal to 2.*dexe/3. in order to satisfy the virial theo c dexv=0.0 and iex=1, hedin-barth exchange and correlation is used c dpas = exponential step; dr1 defines the first point = dr1/iz c test = energy precision criteria in dirac c teste = self-consistency criteria for the energies of all the electron c testy = self-consistency criteria for the wavefunctions c testv = self-consistency criteria for the potential z=iz if (nuc .gt. 0) then call echo(' enter atomic mass ') read (linp,*,end=900) dval c dval = atomic mass if nuc positive dval=z*(dval**third)*2.267700d-05/exp(4*dpas) if (dval .le. dr1) then dr1=dval nuc=5 else dval=dval*exp(4*dpas) do 170 i=6,np d1=dr1*exp((i-1)*dpas) if (d1.ge.dval) goto 190 170 continue write(messag,180) call echo(messag) if (iprint .ge. 5) write(16,180) 180 format (' error for the atomic mass') goto 999 190 nuc=i dr1=dr1*dval/d1 endif endif if (iprint .ge. 5) write(16,210) ttl,niter,teste,testy,testv 210 format (1h1,40x,A40,//,5x,'number of iterations',i4,//, 1 5x,'precision of the energies',1pe9.2,//, 2 23x,'wave functions ',1pe9.2,//, 3 23x,'potential',1pe9.2,/) dr1=z*exp(-c88) if (iprint .ge. 5) write(16,220) np,dr1,iz,dpas 220 format (' the integration is made on ', i3, 1 ' points-the first is equal to ' ,f7.4, '/', i2,/, 2 ' and the step-size pas = ',f7.4,/) if (iprint .ge. 5) write(16,230) test,nes,idep,icut,iprat 230 format (' dans le sous programme resld la precision relative a', 1 ' obtenir sur l energie est ', 1pe9.2, 2 ' et le nombre d essais ',i3, //, 3 'idep=', i3, 5x, 'icut=', i3, 5x, 'iprat=', i3, /) if (iprint .ge. 5) write(16,240) dexv,dexe 240 format (' dexv=', 1pe14.7, ' dexe=' ,1pe14.7, 1 ' if dexv=0.0 hedin-barth corr. and exchan. is used'/) k=0 dval=z*z/(dvc*dvc) if (nuc.gt.0) then if (iprint .ge. 5) write(16,250) 250 format (1h0,30x,'finite nucleus case used'/) endif do 350 i=1,norb c den = orbital energy in atomic units and negative c nqn = principal quantum number; nk = kappa quantum number c nel = occupation of the orbital k=k+nel(i) if (den(i) .ge. 0) den(i) = -z*z / (4*nqn(i)*nqn(i)) nql(i)=iabs(nk(i)) if (nk(i).lt.0) nql(i)=nql(i)-1 if (nuc .le. 0) then dfl(i)=nk(i)*nk(i) dfl(i)=sqrt(dfl(i)-dval) else dfl(i)=iabs(nk(i)) endif l=2*iabs(nk(i)) if (nql(i).lt.nqn(i) .and. nel(i).le.l .and. 1 nqn(i).gt.0 .and. nql(i).le.4) goto 340 write(messag,330) den(i),nqn(i),nql(i),j,nel(i) call echo(messag) if (iprint .ge. 5) write(16,330) den(i),nqn(i),nql(i), 1 j,nel(i) 330 format (' error in the card ',e15.8,i2,3i2) goto 999 340 continue j=nql(i)+iabs(nk(i)) titre(i)=ttire(j) if (iprint .ge. 5) write(16,345) nqn(i),titre(i),nel(i), 1 den(i) 345 format (7x,i1,a2,i16,1pe23.7) 350 continue if (iprint .ge. 5) write(16,370) norbco 370 format (' no. of core orbitals=',i3) if (k.eq.(iz-ion)) goto 390 write(messag,380) call echo(messag) if (iprint .ge. 5) write(16,380) 380 format (' error for the number of electrons') goto 999 390 continue if (iprat .eq. 0) then if (iprint .ge. 5) write(16,410) 410 format (1h0,' the pratt procedure is used'/) else if (iprint .ge. 5) write(16,430) ws 430 format (1h0,' wigner-seitz radius = ',0pf10.6,/) endif if (nuc .eq. nuc1) then if (iz.eq.iz1.and.ion.eq.ion1) goto 600 if (iz.eq.iz1) goto 470 endif c dr(1)=dr1/z c do 460 i=2,np c dr(i)=dr(1)*exp((i-1)*dpas) c 460 continue c Let's make this consistant with grid in other routines c dr array commeted out above c SIZ December 1990 do 461 i = 1, mepts dr(i) = rr(i) 461 continue c starting potential 470 val=-ion-1 c Following code is a block, block ends at line 600 if (idep .eq. 1) then c read in starting potential (in a.u. and negative) if idep=1 read (linp,480,end=900) (dv(i),i=1,np) 480 format (8f9.4) if (iprint .ge. 5) write(16,490) TTL,(dv(i),i=1,np) 490 format (1h1, 40x, A40, //, 1 5x, 'starting potential multiplied by r ' /, 2 10(2x, f9.4)) dval = -z/dv(1) if (nuc.gt.0) dval = 1.d0 do 500 i=1,np dv(i)=dv(i)*dval/dr(i) 500 continue else if (idep .ne. 0) then write(messag,510) call echo(messag) if (iprint .ge. 5) write(16,510) 510 format (' error for idep') goto 999 endif if (iz.ne.iz1 .or . ion.le.ion1 .or. nuc.ne.nuc1) then do 520 i=1,np r=dr(i) dv(i)=fpot(r,z,val) 520 continue if (nuc .gt. 0) then do 530 i=1,nuc dv(i) = dv(i) + z/dr(i) + 1 z*((dr(i)/dr(nuc))**2-30)/(dr(nuc)+dr(nuc)) 530 continue endif goto 600 endif endif if (icut .eq. 0) then do 540 i=1,np if ((dr(i)*dv(i)).gt.val) dv(i)=val/dr(i) 540 continue endif val=z+dv(1)*dr(1) if (nuc.gt.0) val=z+dv(nuc)*dr(nuc) if (abs(val) .ge. 0.1d0) then write(messag,550) call echo(messag) if (iprint .ge. 5) write(16,550) 550 format (' error for the potential ') goto 999 endif 600 continue c End of block above if (norb .ne. 1) then do 620 i=2,norb k=i-1 do 620 j=1,k if (nqn(i).eq.nqn(j) .and. nk(i).eq.nk(j)) then write(messag,610) call echo(messag) if (iprint .ge. 5) write(16,610) 610 format (' standard configuration') goto 999 endif 620 continue endif 630 iz1=iz ion1=ion nuc1=nuc do 660 i=1,norb nmax(i)=np l=1 j=nqn(i)-nql(i) if ((j-2*(j/2)).eq.0) l=-l dq1(i)=l*nk(i)/iabs(nk(i)) if (nuc .ne. 0 .and. nk(i) .lt. 0) then dq1(i)=dq1(i)*(nk(i)-dfl(i))*dvc/z endif 660 continue c -- Normal return return c -- Error condition, stop program c Unexpected end of file during read -- stop program 900 continue call echo(' Unexpected end of file') c Fatal error, stop gracefully (sic) 999 continue call fstop(' at INDATA-1') end ifeffit-1.2.11d/src/feff6/M/frnrm.f0000644000175000017500000000254410774506567015650 0ustar segresegre subroutine frnrm (rho, iz, rnrm) implicit double precision (a-h, o-z) include 'dim.h' dimension rho(nrptx) c finds norman radius c Need overlapped densities. We'll get them in the form c 4*pi*density = rho. Also need z of atom c Then integrate out to the point where the integral of c 4*pi*density*r**2 is equal to iz sum = 0.d0 print*, 'frnrm ' , iz, nrptx, rr(1), rr(2), rho(1), rho(2) do 10 i = 1, nrptx-1 fr = rho(i+1) * rr(i+1)**3 fl = rho(i) * rr(i)**3 sumsav = sum sum = sum + 0.025d0*(fr+fl) if ((sum-iz).ge.1.d-4*iz) then inrm = i+1 goto 20 endif 10 continue if ((sum-iz).ge.0.02) then call echo( ' FRNRM Could not integrate enough charge') call echo( ' to reach required z.') call fstop(' at FRNRM-1') endif 20 continue c inrm is too big, subtract one from irnm and interpolate c to get correct value inrm = inrm - 1 deltaq = iz - sumsav fr = rho(inrm+1) * rr(inrm+1)**3 fl = rho(inrm) * rr(inrm)**3 c dipas is delta i * 0.05 dipas = 2*deltaq / (fl + fr) rnrm = rr(inrm)*(1 + dipas) print*, ' frnrm10 ', sum, iz, i, inrm print*, 'frnrm end: ', deltaq, rr(inrm), fr, fl, dipas, rnrm return end ifeffit-1.2.11d/src/feff6/M/atom.f0000644000175000017500000002553510774501542015455 0ustar segresegrec code: relativistic atom code (relativistic hartree fock slater) c modified desclaux code -- partially translated from the french c c modified by: r. c. albers (from previously modified code from c j. e. muller who in turn got it from the danes) c j. j. rehr and s. i. zabinsky for inclusion in feff c c special features: renormalizes charge density at wigner-seitz c radius c c version 2 (30 september 87): renormalized coulomb potential and c renormalized charge density are produced to be used in XAFS c calculations by cphase program. j.j. rehr, j. mustre university c of washington., a.djaoui university of essex. c please acknowledge use. r. c. albers (los alamos national lab) c j.j. rehr (university of washington), c c Subroutine calling hierarchy siz 1/8/90 c ATOM c INDATA c GETORB c FPOT c DIRAC c INOUH c INTH c POTSL c SOMM c TOTALE c SOMM c CDSLD c SOMM c YKDIR c RENORM c POTSLW c c Version 1/11/90: Input and output re-organized to work c easily with overlapped potential code c in FEFF. c c Version Aug 1990: Minor modification to work more easily with c FEFF4, cluster version. SRHO no longer has c factor of r**2. INDATA uses rr function to c set r grid. c Version Dec 1990: Writes to atom.dat restored c Version Feb 1991: Unit 16 opened in atom if necessary c June 1992 dirac upper and lower components and total energy c passed out for use with matrix element calculations c c Input: title title, max 40 characters c ifr index of free atom, used for output labels c iz atomic number of atom c ihole location of electron hole c rws Wigner-Seitz radius c ionin ionicity c iprint print flag, passed through commom /print/ c ispinr 0, do not save dirac spinors, else save for c orbital ispinr c c Output: vcoul(251) coulomb potential (no factor r**2) c srho(251) electron density in form c 4*pi*density (formerly 4*pi*density*r**2) c dgc0(251) large component (set if ispinr.ne.0) c dpc0(251) small component (set if ispinr.ne.0) c eatom total energy in rydbergs c c All data is on a grid r(i) = exp (-8.8 + (i-1)*0.05) subroutine atom (title, ifr, iz, ihole, rws, ionin, vcoul, srho, 1 ispinr, dgc0, dpc0, eatom) implicit double precision (a-h,o-z) save include 'atom.h' c Save central atom dirac components, see comments below. dimension dgc0(mepts), dpc0(mepts) character*(*) title dimension vcoul(mepts) dimension srho(mepts) dimension tden(30) character*30 fname external dalp data harryd /2.d0/ if (iprint .ge. 3) then c prepare file for atom output write(fname,14) ifr 14 format('atom', i2.2, '.dat') open (unit=16, file=fname, status='unknown', iostat=ios) call chopen (ios, fname, 'atom') c call head (16) write(16,*) ' Free atom ', ifr endif ttl = title nstop=1 mark=0 call indata (iz, ihole, rws, ionin) iter=1 do 30 i=1,np do 30 j=1,norb dgc(i,j)=zero dpc(i,j)=zero 30 continue if (iprint .ge. 3) write(16,40) ttl 40 format (1h1,40x,a40) n=-(ion+1) 60 continue do 70 i=1,np d(i)=zero 70 continue tets=test ymax=zero vmax=zero emax=zero c resolution of the dirac equation for each orbital do 150 j=1,norb de=den(j) 80 call dirac (nqn(j),nql(j),nk(j),imax,den(j),dfl(j),dq1(j),j) if (nstop.eq.0) go to 110 if (nstop.ne.362.or.iter.ge.10.or.tets.gt.test) go to 90 tets=testv go to 80 90 if (iprint .ge. 3) write(16,100) nstop,nqn(j),titre(j) 100 format (' nstop=',i4,' for the orbital',i3,a2) call echo( ' Fatal error. Wigner-Seitz or muffin tin') call echo( ' radius may be too small.') go to 999 110 val=abs((den(j)-de)/de) if (val.gt.emax) emax=val nmax(j)=imax do 140 i=1,np val=dgc(i,j)-dp(i) if (abs(dp(i)).gt.1.0) val=val/dp(i) if (abs(val).lt.abs(ymax)) go to 120 ymax=val y=dp(i) yn=dgc(i,j) 120 val=dpc(i,j)-dq(i) if (abs(dq(i)).gt.1.0) val=val/dq(i) if (abs(val).lt.abs(ymax)) go to 130 ymax=val y=dq(i) yn=dpc(i,j) 130 dgc(i,j)=dp(i) dpc(i,j)=dq(i) 140 d(i)=d(i)+nel(j)*(dp(i)*dp(i)+dq(i)*dq(i)) 150 continue c dgc and dpc are set in loop above, only referenced in remainder c of code, so save them into dgc0 and dpc0 here. Note: np=mepts, c set in indata. dgc0 is large component c dpc0 is small if (ispinr .ne. 0) then do 152 i = 1, np dgc0(i) = dgc(i,ispinr) dpc0(i) = dpc(i,ispinr) 152 continue endif if (mark.eq.0) go to 280 c This is case mark .ne. 0 c d is the core electron density resulting from the renormalized pot. dval=zero do 160 j=1,norb 160 dval=dval+nel(j)*den(j) dval=dval*2.0 c jm-- core charge density commented away in unit 6 appears in unit 3-- if (iprint .ge. 3) write(16,170) dval 170 format (1h ,' core energy = ',e15.8) c jm- renormalized potential c note conversion to rydbergs using constant harryd c passvt is part of old system to pass data directly from c ATOM to PHASE c do 200 ixx=1,mepts c 200 passvt(ixx)=harryd*dr(ixx)*dr(ixx)*dv(ixx) c d is the core electron density resulting from the renormalized pot. c next write renormalized electron density for each shell do 270 j=1,norb do 240 i=1,np d(i)=dgc(i,j)*sqrt(4*pi) 240 continue 270 continue go to 750 c mark .eq. 0 case 280 continue call potsl (dc,d,dp,dr,dpas,dexv,z,np,ion,icut,dvn) if (nuc.le.0) go to 300 do 290 i=1,nuc dc(i)=dc(i)+z/dr(i)+z*((dr(i)/dr(nuc))**2-3) / 1 (dr(nuc)+dr(nuc)) 290 continue 300 continue do 310 i=1,np dval=abs(dc(i)-dv(i)) if ((dr(i)*dc(i)).le.n) dval=-dval/dc(i) if (dval.le.vmax) go to 310 vmax=dval j=i 310 continue c print 320, iter,vmax,dr(j),dv(j),dc(j),emax,ymax,yn,y c 320 format (i5,1pe11.2,3(1pe16.6),2(1pe11.2),2(1pe16.6)) if (tets.le.test.and.emax.le.teste.and.vmax.le.testv.and.ymax.le 1 .testy) go to 430 if (mark.eq.1) go to 430 iter=iter+1 if (iter.le.niter) go to 340 if (iprint .ge. 3) write(16,330) niter 330 format (' number of iterations greater than',i4) nstop=2 call echo(' ATOM-Fatal error, too many iterations.') cc print*, ' iter, niter ', iter, niter go to 999 c potential for the following iteration 340 continue if (iter.eq.2) go to 350 if (iprat) 350,390,350 350 dval=1-dcop do 360 i=1,np dvn(i)=dv(i) dvf(i)=dc(i) 360 dv(i)=dval*dv(i)+dcop*dc(i) go to 60 390 continue do 400 i=1,np dval=dalp(dvn(i),dvf(i),dv(i),dc(i)) dvn(i)=dv(i) dvf(i)=dc(i) 400 dv(i)=dval*dv(i)+(1-dval)*dc(i) go to 60 430 if (iprint .ge. 3) write(16,40) ttl if (iprint .ge. 3) write(16,460) 460 format (12x,'energie',12x,'(r4)',14x,'(r2)',14x,'(r)',15x,'(r-1)', 1 13x,'(r-3)'/) c valeurs moyennes de r do 470 i=1,np dvf(i)=dc(i) 470 dq(i)=zero dval=zero do 560 i=1,norb im=nmax(i) dval=dval+nel(i)*den(i) do 480 j=1,im 480 dc(j)=dgc(j,i)*dgc(j,i)+dpc(j,i)*dpc(j,i) l=5 if (iabs(nk(i)).eq.1) l=l-1 do 550 j=1,l dp(j)=dfl(i)+dfl(i) if (j-2) 490,500,510 490 n=4 go to 550 500 n=2 go to 550 510 if (j-4) 520,530,540 520 n=1 go to 550 530 n=-1 go to 550 540 n=-3 550 call somm (dr,dc,dq,dpas,dp(j),n,im) 560 if (iprint .ge. 3) write(16,570) nqn(i),titre(i), 1 den(i),(dp(j),j=1,l) 570 format (i3,a2,6(1pe18.7)) if (dexv.eq.zero) go to 650 c energie totale en moyenne spherique do 580 i=1,norb 580 tden(i)=-2.0*den(i) dc(1)=1 do 600 i=1,np 600 dp(i)=d(i)/dr(i) if (nuc.le.0) go to 620 do 610 i=1,nuc 610 dp(i)=d(i)*(3.0-dr(i)*dr(i)/(dr(nuc)*dr(nuc)))/(dr(nuc)+dr(nuc)) dc(1)=4 620 call somm (dr,dp,dq,dpas,dc(1),0,np) do 630 i=1,np dp(i)=d(i)*dvf(i) 630 d(i)=d(i)*((d(i)*dr(i))**(1.0/3.0)) dc(2)=3 dc(3)=1 if (nuc.ne.0) dc(3)=4 call somm (dr,dp,dq,dpas,dc(3),0,np) call somm (dr,d,dq,dpas,dc(2),-1,np) dc(2)=-3.0*dc(2)/(105.27578**(1.0/3.0)) dc(1)=-z*dc(1) dc(4)=dval-dc(3) dval=dval+(dc(1)-dc(3)+(dexe-dexv)*dc(2))/2.0 dc(3)=(dc(3)-dc(1)-dexv*dc(2))/2.0 dc(2)=dc(2)*dexe/2.0 if (iprint .ge. 3) write(16,640) dval,dc(4),dc(3),dc(2),dc(1) 640 format (1h0,5x,'et=',1pe14.7,5x,'ec=',1pe14.7,5x,'ee=',1pe14.7,5x, 1 'ex=',1pe14.7,5x,'en=',1pe14.7) go to 660 650 call totale (dval) 660 continue c pass out eatom (total energy) (factor of 2 is to put energy in c rydberg units) eatom = 2 * dval if (norb.eq.1) go to 710 if (iprint .ge. 3) write(16,40) ttl if (iprint .ge. 3) write(16,670) 670 format (1h0,47x,'overlap integrals '/) c overlap integrals do 700 i=2,norb k=i-1 do 700 j=1,k if (nql(i).ne.nql(j).or.nk(i).ne.nk(j)) go to 700 im=nmax(j) if (nmax(i).lt.im) im=nmax(i) do 680 l=1,im dq(l)=dpc(l,i)*dpc(l,j) 680 dc(l)=dgc(l,i)*dgc(l,j) dval=dfl(i)+dfl(j) call somm (dr,dc,dq,dpas,dval,0,im) if (iprint .ge. 3) write(16,690) nqn(i),titre(i), 1 nqn(j),titre(j),dval 690 format (34x,i1,a2,i3,a2,f19.7) 700 continue 710 call cdsld if (irnorm.eq.1) then call renorm (dexv, vcoul, srho) endif do 720 i=1,np 720 dc(i)=harryd*dv(i)*dr(i)**2 if (irnorm.ne.1) call fstop(' at ATOM-0') norb=norbco if (norbco.eq.0) go to 750 if (mark.eq.1) go to 750 mark=1 go to 60 750 continue c return srho as 4*pi*density instead of 4*pi*density*r**2 do 760 i = 1, mepts srho(i) = srho(i) / (dr(i)**2) 760 continue if (iprint .ge. 3) close(unit=16) return 999 continue call fstop(' at ATOM-1') end ifeffit-1.2.11d/src/feff6/M/cdsld.f0000644000175000017500000001365510774501477015615 0ustar segresegre subroutine cdsld implicit double precision (a-h,o-z) save include 'atom.h' c -- This read commented out to make input easier, not used for c PHASE calculations irm = 0 ins = 0 npun = 0 nmfg = 0 nmrk = 0 c read (5,10) irm,ins,npun,nmfg,nmrk 10 format (8i3) c valeurs moyennes de r**j if irm non-zero c tabulation of the wave functions if ins non-zero c the potential multiplied by r is perfore if npun non-zero if (irm.eq.0) go to 200 if (iprint .ge. 5) write(16,20) ttl 20 format (1h1,40x,a40,/) 30 read (5,10) j,l,n1,l1,j1,n2,l2,j2 if (l.eq.0) go to 200 c valeur moyenne of (p1*p2+q1*q2)*r**j if l positive c valeur moyenne of (p1*q2+p2*q1)*r**j if l negative if (n1.gt.0) go to 40 if (((n1+1)*(n1+2)).ne.0) go to 60 i1=1 i2=1 go to 80 40 i1=0 i2=0 do 50 i=1,norb if (nqn(i).eq.n1.and.nql(i).eq.l1.and.(j1-1).eq.(-nk(i)/iabs(nk(i) 1 ))) i1=i if (nqn(i).eq.n2.and.nql(i).eq.l2.and.(j2-1).eq.(-nk(i)/iabs(nk(i) 1 ))) i2=i 50 continue if (i1.ne.0.and.i2.ne.0) go to 80 60 if (iprint .ge. 5) write(16,70) j,l,n1,l1,j1,n2,l2,j2 70 format (1h0,' error for the card ',8i3) go to 30 80 dval=dfl(i1)+dfl(i2) if ((dval+j).gt.-1.0) go to 90 if (n1) 170,170,60 90 im=nmax(i1) if (nmax(i2).lt.im) im=nmax(i2) if (l.lt.0) go to 110 do 100 i=1,im dv(i)=dgc(i,i1)*dgc(i,i2) 100 dq(i)=dpc(i,i1)*dpc(i,i2) go to 130 110 do 120 i=1,im dv(i)=dgc(i,i1)*dpc(i,i2) 120 dq(i)=dgc(i,i2)*dpc(i,i1) 130 call somm (dr,dv,dq,dpas,dval,j,im) if (l.lt.0) go to 150 if (iprint .ge. 5) write(16,140) j,nqn(i1),titre(i1),nqn(i2), 1 titre(i2),dval 140 format (24x,'(p1p2+q1q2)r**',i2,' for ',i1,a2,i3,a2,5x,'=',1pe14. 1 7,/) go to 170 150 if (iprint .ge. 5) write(16,160) j,nqn(i1),titre(i1),nqn(i2), 1 titre(i2),dval 160 format (24x,'(p1q2+q1p2)r**',i2,' for ',i1,a2,i3,a2,5x,'=',1pe14. 1 7,/) 170 if (n1+1) 190,180,30 180 i1=i1+1 i2=i1 if (i1-norb) 80,80,30 190 i2=i2+1 if (i2-norb) 80,80,180 200 if (ins.eq.0) go to 260 do 250 i=1,norb,3 j=i+2 if (j.gt.norb) j=norb im=0 do 210 l=i,j if (nmax(l).gt.im) im=nmax(l) 210 continue do 230 k=1,im if (((k-1)*(k-48*(k/48))).ne.0) go to 230 if (iprint .ge. 5) write(16,20) ttl if (iprint .ge. 5) write(16,220) (nqn(l),titre(l),nqn(l), 1 titre(l),l=i,j) 220 format (9x,'r',14x,3(i1,a2,'g.c.',i11,a2,'p.c.',10x)) 230 if (iprint .ge. 5) write(16,240) dr(k), 1 (dgc(k,l),dpc(k,l),l=i,j) 240 format (7(1pe17.7)) 250 continue 260 if (npun.eq.0) go to 300 do 270 i=1,np 270 dp(i)=dvf(i)*dr(i) c write(8,280) ttl 280 format (a40) c write(8,290) (dp(i),i=1,np) 290 format (8f9.4) 300 do 310 i=1,np 310 d(i)=0.0 nag=1 if (nmfg.eq.0) go to 470 if (iprint .ge. 5) write(16,20) if (iprint .ge. 5) write(16,320) 320 format (/,30x,'integrales magnetiques directes et d echange'//) 330 read (5,10) i1,i2,n1 if (i1.le.0) go to 470 if (i2.gt.0) go to 350 if (((i2+1)*(i2+2)).ne.0) go to 340 if (n1.le.0) n1=1 i1=n1 n1=i2 i2=i1 go to 360 340 if (iprint .ge. 5) write(16,70) i1,i2,n1 go to 330 350 if (i1.gt.norb.or.i2.gt.norb) go to 340 n1=1 360 j1=2*iabs(nk(i1))-1 j2=2*iabs(nk(i2))-1 kma=min0(j1,j2) nm=nmax(i2) do 380 j=1,kma,2 call ykdir (i1,i1,j,nag) do 370 i=1,nm 370 dp(i)=dq(i)*dgc(i,i2)*dpc(i,i2) dval=j+1 call somm (dr,d,dp,dpas,dval,-1,nm) 380 if (iprint .ge. 5) write(16,390) j,nqn(i1),titre(i1),nqn(i2), 1 titre(i2),dval 390 format (20x,'fm',i2,' (',i1,a2,',',i1,a2,') =',1pe14.7) if (i1.eq.i2) go to 440 j1=(iabs(1-2*nk(i1))-1)/2 j2=(iabs(1-2*nk(i2))-1)/2 kma=max0(nql(i1)+j2,nql(i2)+j1) j1=iabs(nql(i2)-j1) j2=iabs(nql(i1)-j2) kmi=min0(j1,j2) j1=kmi+nql(i1)+nql(i2) j1=j1-2*(j1/2) if (j1.eq.0) kmi=kmi+1 nm=min0(nmax(i1),nmax(i2)) do 420 j=kmi,kma,2 call ykdir (i1,i2,j,nag) do 400 i=1,nm dp(i)=dq(i)*dgc(i,i1)*dpc(i,i2) 400 dc(i)=dq(i)*dgc(i,i2)*dpc(i,i1) dval=j+1 dvalp=dval dvalm=dval call somm (dr,d,dp,dpas,dvalp,-1,nm) call somm (dr,d,dc,dpas,dval,-1,nm) call ykdir (i2,i1,j,nag) do 410 i=1,nm 410 dp(i)=dq(i)*dgc(i,i2)*dpc(i,i1) call somm (dr,d,dp,dpas,dvalm,-1,nm) 420 if (iprint .ge. 5) write(16,430) j,nqn(i1),titre(i1),nqn(i2), 1 titre(i2),dvalm,dval,dvalp 430 format (' gm',i2,' (',i1,a2,',',i1,a2,')',5x,'(-1)=',1pe14.7,5x,'( 10)=',1pe14.7,5x,'(+1)=',1pe14.7) 440 if (n1+1) 460,450,330 450 i1=i1+1 i2=i1 if (i1-norb) 360,360,330 460 i2=i2+1 if (i2-norb) 360,360,450 470 if (nmrk.eq.0) go to 530 if (iprint .ge. 5) write(16,20) if (iprint .ge. 5) write(16,480) 480 format (/,20x,'integrales magnetiques rk=integrale de p1(1)*q2(1)* 1uk(1,2)*p3(2)*q4(2)'//) 490 read (5,10) i1,i2,i3,i4,k if (i1.le.0) go to 530 if (i1.le.norb.and.i2.gt.0.and.i2.le.norb.and.i3.gt.0.and.i3.le 1 .norb.and.i4.gt.0.and.i4.le.norb.and.k.ge.0) go to 500 if (iprint .ge. 5) write(16,70) i1,i2,i3,i4,k go to 490 500 call ykdir (i1,i2,k,nag) do 510 i=1,np 510 dp(i)=dq(i)*dgc(i,i3)*dpc(i,i4) dval=k+1 call somm (dr,d,dp,dpas,dval,-1,np) if (iprint .ge. 5) write(16,520) k,nqn(i1),titre(i1),nqn(i2), 1 titre(i2),nqn(i3),titre(i3),nqn(i4),titre(i4),dval 520 format (20x,'rm',i2,' (',i1,a2,',',i1,a2,',',i1,a2,',',i1,a2,') =' 1 ,1pe14.7) go to 490 530 return end ifeffit-1.2.11d/src/feff6/M/inouh.f0000644000175000017500000000455610774503605015641 0ustar segresegre subroutine inouh (dps,dqs,drs,dq1s,dfls,dvs,zin,testi, $ nucs,nstopi,jc) c c initial values for the outward integration c dps=large component; dqs=small component; drs=radial mesh c dq1s=slope at the origin of dps or dqs; dfls=power of the first term c du=developpement limite; dvs=potential at the first point c zin=atomic number testi=test of the precision c finite nuclear size if nucs is non-zero c nstopi controls the convergence du developpement limite c ********************************************************************** implicit double precision (a-h,o-z) save include 'atom.h' c c dep,deq=derivatives of dps and dq; dd=energy/dvc; c dvc=speed of light in a.u.; c dsal=2.*dvc dk=kappa quantum number c dm=exponential step/720. c ********************************************************************** cc common /trois/ dpno(4,30), dqno(4,30) dimension dps(mepts), dqs(mepts), drs(mepts) do 10 i=1,10 dps(i)=zero 10 dqs(i)=zero if (nucs) 20,20,60 20 dval=zin/dvc deva1=-dval deva2=dvs/dvc+dval/drs(1)-dd deva3=zero if (dk) 30,30,40 30 dbe=(dk-dfls)/dval go to 50 40 dbe=dval/(dk+dfls) 50 dqs(10)=dq1s dps(10)=dbe*dq1s go to 90 60 dval=dvs+zin*(3-drs(1)*drs(1)/(drs(nucs)*drs(nucs)))/ $ (drs(nucs)+drs(nucs)) deva1=zero deva2=(dval-3*zin/(drs(nucs)+drs(nucs)))/dvc-dd deva3=zin/(drs(nucs)*drs(nucs)*drs(nucs)*dsal) if (dk) 70,70,80 70 dps(10)=dq1s go to 90 80 dqs(10)=dq1s 90 do 100 i=1,5 dps(i)=dps(10) dqs(i)=dqs(10) dep(i)=dps(i)*dfls 100 deq(i)=dqs(i)*dfls m=1 110 dm=m+dfls dsum=dm*dm-dk*dk+deva1*deva1 dqr=(dsal-deva2)*dqs(m+9)-deva3*dqs(m+7) dpr=deva2*dps(m+9)+deva3*dps(m+7) dval=((dm-dk)*dqr-deva1*dpr)/dsum dsum=((dm+dk)*dpr+deva1*dqr)/dsum j=-1 do 130 i=1,5 dpr=drs(i)**m dqr=dsum*dpr dpr=dval*dpr if (m.eq.1) go to 120 120 dps(i)=dps(i)+dpr dqs(i)=dqs(i)+dqr if (abs(dpr/dps(i)).le.testi.and.abs(dqr/dqs(i)).le.testi) j=1 dep(i)=dep(i)+dpr*dm 130 deq(i)=deq(i)+dqr*dm if (j.eq.1) go to 140 dps(m+10)=dval dqs(m+10)=dsum m=m+1 if (m.le.20) go to 110 nstopi=45 140 do 150 i=1,4 dpno(i,jc)=dps(i+9) 150 dqno(i,jc)=dqs(i+9) return end ifeffit-1.2.11d/src/feff6/M/sumax.f0000644000175000017500000000710610774506065015651 0ustar segresegrec SUBROUTINE SUMAX (NPTS, RN, ANN, AA2, AASUM) c This is a version of the subroutine sumax found on page 110 of c Louck's book. It performs eq 3.22, using simpson's rule and c taking advantage of the logarithmic grid so that sum f(r)*dr becomes c sum over f(r)*r*(0.05). Linear interpolation is used at the end c caps. This version does not sum over 14 shells of identical c atoms, instead it averages the contribution of one or more atoms c of type 2 at the location of atom 1. Louck's description (except c for his integration algorithm) is very clear. c c input: npts number of points to consider c rn distance from atom 1 to atom 2 in au c ann number of type 2 atoms to add to atom 1, can c be fractional c aa2(i) potential or density at atom 2 c output: aasum(i) spherically summed contribution added into this c array so that sumax can be called repeatedly c and the overlapped values summed into aasum c c Note that this routine requires that all position data be on a c grid rr(j) = exp (-8.8d0 + (j-1)*0.05d0), which is the grid c used by Louck, and also used by ATOM if nuclear options not used. c c Coded by Steven Zabinsky, December 1989 c Modified for FEFF cluster code, August 1990, siz c Bug fixed, May 1991, SIZ c Another bug fixed, Mar 1992, SIZ c c T.L.Louck, "Augmented Plane Wave Method", W.A.Benjamin, Inc., 1967 subroutine sumax (rn, ann, aa2, aasum) implicit double precision (a-h, o-z) include 'mepts.h' double precision aa2(mepts), aasum(mepts), stor(mepts) external xx c jjchi index beyond which aa2 is zero c jtop index just below distance to neighbor c aasum is calculated only up to index jtop c Wigner-Seitz radius is set to 15 in ATOM. rws = 19 jjchi = ii(rws) jtop = ii(rn) topx = xx(jjchi) cc print*, 'sumax ' , mepts, jtop, jjchi, topx do 120 i = 1, jtop x = xx(i) xint = zero et = exp(x) blx = log(rn-et) if (blx .ge. topx) goto 119 jbl = 2+20*(blx+c88) if (jbl .lt. 1) jbl=1 if (jbl .ge. 2) then c use linear interp to make end cap near center of neighbor xjbl = jbl xbl = c05 * (xjbl-1) - c88 g = xbl-blx xint = xint+half*g*(aa2(jbl)*(2-20*g)*exp(2*xbl) 1 +20*g*aa2(jbl-1)*exp(2*(xbl-c05))) endif tlx = log(rn+et) if (tlx .ge. topx) then jtl = jjchi go to 90 endif jtl = 1 + 20*(tlx+c88) if (jtl .lt. jbl) then c handle peculiar special case at center of atom 1 fzn = aa2(jtl)*exp(2*(xbl-c05)) fz3 = aa2(jbl)*exp(2*xbl) fz2 = fzn+20*(fz3-fzn)*(tlx-xbl+c05) fz1 = fzn+20*(fz3-fzn)*(blx-xbl+c05) xint = half*(fz1+fz2)*(tlx-blx) go to 119 endif xjtl = jtl xtl = c05*(xjtl-1)-c88 c = tlx-xtl xint = xint+half*c*(aa2(jtl)*(2-20*c) 1 *exp(2*xtl)+aa2(jtl+1)*20*c 2 *exp(2*(xtl+c05))) 90 if (jtl .gt. jbl) then 100 xint = xint+half*(aa2(jbl)*exp(2*xbl)+aa2(jbl+1) 1 *exp(2*(xbl+c05)))*c05 jbl = jbl+1 if (jbl .lt. jtl) then xbl = xbl+c05 go to 100 endif endif 119 stor(i) = half*xint*ann/(rn*et) 120 continue do 190 i = 1, jtop aasum(i) = aasum(i) + stor(i) 190 continue return end ifeffit-1.2.11d/src/feff6/M/ykdir.f0000644000175000017500000000263210774501022015621 0ustar segresegre subroutine ykdir (ia,ib,nk1,nag) implicit double precision (a-h,o-z) save include 'atom.h' dimension dpn1(4) dpah=exp(dpas) dpyk=dpas/24.d0 id=min0(nmax(ia)+2,nmax(ib)+2,np) idm1=id-1 if (nag.ne.0) go to 30 do 10 i=1,id 10 dq(i)=dr(i)*(dgc(i,ia)*dgc(i,ib)+dpc(i,ia)*dpc(i,ib)) do 20 i=1,4 dpn1(i)=0 do 20 j=1,i 20 dpn1(i)=dpn1(i)+dpno(j,ia)*dpno(i+1-j,ib)+dqno(j,ia)*dqno(i+1-j,ib 1 ) go to 60 30 do 40 i=1,id 40 dq(i)=dr(i)*dgc(i,ia)*dpc(i,ib) do 50 i=1,4 dpn1(i)=0 do 50 j=1,i 50 dpn1(i)=dpn1(i)+dpno(j,ia)*dqno(i+1-j,ib) 60 di=dfl(ia)+dfl(ib)+nk1 dp(1)=0 dp(2)=0 do 70 i=1,4 di=di+1 dp(1)=dp(1)+(dr(1)**di)*dpn1(i)/di 70 dp(2)=dp(2)+(dr(2)**di)*dpn1(i)/di dm=dpah**(-nk1) dim2=-dpyk*dm*dm dim1=13.d0*dpyk*dm di=13.d0*dpyk dip1=-dpyk/dm do 80 i=3,idm1 80 dp(i)=dp(i-1)*dm+dim2*dq(i-2)+dip1*dq(i+1)+dim1*dq(i-1)+di*dq(i) dq(id-2)=dp(id-2) do 90 i=idm1,np 90 dq(i)=dq(i-1)*dm i=nk1+nk1+1 dm=dm/dpah dim2=i*dim2/(dpah*dpah) dim1=i*dim1/dpah di=i*di dip1=i*dip1*dpah i=id-3 100 dq(i)=dq(i+1)*dm+dim2*dp(i+2)+dip1*dp(i-1)+dim1*dp(i+1)+di*dp(i) i=i-1 if (i-1) 110,110,100 110 dq(1)=dq(3)*dm*dm+8*((di*dp(1)+4*dim1*dp(2))/13-dim2*dp(3)) return end ifeffit-1.2.11d/src/feff6/M/renorm.f0000644000175000017500000000617210774502260016011 0ustar segresegre subroutine renorm (dexvi, vcoul, srho) implicit double precision (a-h,o-z) save include 'atom.h' c vcoul is the coulomb potential (no factor of r**2) (output) dimension vcoul(mepts) c srho is charge density in form 4*pi*density*r**2 output) dimension srho(mepts) c jm 9/23/87 added srho renormalized charge density to be used c in cphase external exchan do 10 i=1,np dv(i)=zero d(i)=zero 10 continue ddjri=log(ws/dr(1))/dpas jri=1+ddjri jr1=jri ddjr1=ddjri-jr1+1 if (jri-2*(jri/2).ne.0) go to 20 jri=jri+1 20 continue ddjri=ddjri-jri+1 c ddjri = (log(ws)-dri)/dpas c dri = log(dr(jri)) da=zero do 30 j=1,norb do 30 i=1,np 30 d(i)=d(i)+nel(j)*(dgc(i,j)**2+dpc(i,j)**2) do 50 i=jri,np dl=dr(i) if (i.eq.jri.or.i.eq.np) go to 40 dl=dl+dl if ((i-2*(i/2)).eq.0) dl=dl+dl 40 dd=d(i)*dl da=da+dd 50 continue da=dpas*da/3.d0 dfo=dr(jri-1)*d(jri-1) df1=dr(jri)*d(jri) df2=dr(jri+1)*d(jri+1) dcor=-dpas*(df1*ddjri+(df2+dfo-2*df1)*ddjri**3/6+(df2-dfo) 1 *ddjri**2*0.25d0) da=da+dcor if (iprint .ge. 5) write(16,60) da 60 format (1h ,' no. of electrons outside the ws-radius',e16.8) db=zero do 80 i=jri,np dl=1 if (i.eq.jri.or.i.eq.np) go to 70 dl=dl+dl if ((i-2*(i/2)).eq.0) dl=dl+dl 70 dd=d(i)*dl db=db+dd 80 continue db=dpas*db/3.d0 df0=d(jri-1) df1=d(jri) df2=d(jri+1) dcor=-dpas*(df1*ddjri+(df2+df0-2*df1)*ddjri**3/6+(df2-df0) 1 *ddjri**2*.25d0) db=db+dcor if (iprint .ge. 5) write(16,90) db 90 format (1h ,' db= ',e16.8) call potslw (dvn,d,dp,dr,dpas,np) du=da*3 / (ws**3) do 120 i=1,np if (i.gt.jr1+1) then srho(i)=zero go to 100 endif d(i)=d(i)+du*dr(i)**2 srho(i)=d(i) 100 continue dumm=-exchan(d(i),dr(i),dexvi)/dr(i) dvf(i)=dumm if (i.gt.jr1) go to 110 dvn(i)=dvn(i)-z/dr(i)+da*(1.5d0/ws-half*dr(i)**2/ws**3)-db go to 120 110 continue dvn(i)=zero 120 dv(i)=dvn(i)+dumm c ad1 write the mt index and radius if (iprint .ge. 5) write(16,55)jr1,dr(jr1) 55 format(' jr1 = ',i10,10x,'wigner-seitz radius = ',e16.8) c ad1 output 2.*dvn*r**2 for use in phase (dvn = normalised coulomb) c write(17,200)((2.0*dvn(i)*dr(i)*dr(i)),i=1,np) c 200 format(1p5e16.8) c passvc formerly used to pass data directly to PHASE c do 151 i = 1, np c passvc (i) = 2.0 * dvn(i) * dr(i) * dr(i) c 151 continue c c passvc above is vcoul*r**2 do 151 i = 1, np vcoul(i) = 2 * dvn(i) 151 continue c jm output renormalized charge density for use in cphase c (d=4pi*rho*r^2) c write(18,200) srho cjm write out rs as function of r c do 8934 i=1,jr1 c xxrs=(3*dr(i)*dr(i)/srho(i))**.33333333 c8934 write(19,140) dr(i), xxrs return end ifeffit-1.2.11d/src/feff6/M/dirac.f0000644000175000017500000001460310774502745015577 0ustar segresegre subroutine dirac (nqns,nqls,nks,imax,de,dfls,dq1s,jc) c c solution of the dirac equation c nqns=principal quantum number; nqls=orbital quantum number c nks=kappa quantum number; imax=the last tabulated point of the c wave function; de=energy; dfls=power of the first term of the c developpement limite; dq1s=slope at the origin of dp or dq c ********************************************************************** implicit double precision (a-h,o-z) save include 'atom.h' cc common /dira/ dv(251), dr(251), dp(251), dq(251), dpas, test, cc 1 z, nstop, nes, np, nuc c c dv=potential in a.u. and negative; dr=radial mesh c dp=large component; dq=small component; dpas=exponential step; c nes=number of attempts to adjust the energy c z=atomic number; nstop controls the numeric integration c test=precision obtained in the energies; np=maximum number of points c finite nuclear size if nuc is non-zero c ********************************************************************** cc common /ps1/ dep(5), deq(5), db, dvc, dsal, dk, dm c c dep,deq=derivatives of op and dq; db=energie/dvc; c dvc=speed of light in a.u.; dsal=2.*dvc; dk=kappa quantum number c dm=exponential step/720., dkoef=1./720. c ********************************************************************** cc common /trois/ dpno(4,30), dqno(4,30) data dkoef /.1388888888888888d-2/ nstop=0 dvc=alpinv dsal=dvc+dvc imm=0 ies=0 dk=nks lll=(nqls*(nqls+1))/2 nd=0 noeud=nqns-nqls if (lll.ne.0) go to 10 elim=-z*z/(1.5d0*nqns*nqns) go to 40 10 elim=dv(1)+lll/(dr(1)*dr(1)) do 20 i=2,np val=dv(i)+lll/(dr(i)*dr(i)) if (val.le.elim) elim=val 20 continue if (elim) 40,30,30 30 nstop=17 c 2*v+l*(l+1)/r**2 is everywhere positive c ********************************************************************** return 40 if (de.le.elim) de=elim*half 50 if (imm.eq.1) go to 80 do 60 i=7,np,2 imat=np+1-i if ((dv(imat)+lll/(dr(imat)*dr(imat))-de).le.zero) go to 70 60 continue 70 if (imat.gt.5) go to 80 de=de*half if (de.lt.-test.and.nd.le.noeud) go to 50 nstop=28 c 2*v+l*(l+1)/r**2-2*e is everywhere positive c ********************************************************************** return c initial value for the outward integration c ********************************************************************** 80 db=de/dvc call inouh (dp,dq,dr,dq1s,dfls,dv(1),z,test,nuc,nstop,jc) if (nstop) 310,90,310 c nstop=45 c the expansion at the origin does not converge c ********************************************************************** 90 nd=1 do 110 i=1,5 dval=dr(i)**dfls if (i.eq.1) go to 100 if (dp(i-1).eq.zero) go to 100 if ((dp(i)/dp(i-1)).gt.zero) go to 100 nd=nd+1 100 dp(i)=dp(i)*dval dq(i)=dq(i)*dval dep(i)=dep(i)*dval 110 deq(i)=deq(i)*dval k=-1+2*(noeud-2*(noeud/2)) if ((dp(1)*k).gt.zero) go to 130 120 nstop=53 c error in the expansion at the origin c ********************************************************************** return 130 if ((k*nks*dq(1)).lt.zero) go to 120 dm=dpas*dkoef c outward integration c ********************************************************************** do 140 i=6,imat dp(i)=dp(i-1) dq(i)=dq(i-1) call inth (dp(i),dq(i),dv(i),dr(i)) if (dp(i-1).eq.zero) go to 140 if ((dp(i)/dp(i-1)).gt.zero) go to 140 nd=nd+1 if (nd.gt.noeud) go to 150 140 continue if (nd.eq.noeud) go to 160 de=0.8d0*de if (de.lt.-test) go to 50 nstop=206 c the number of nodes is too small c ********************************************************************** return 150 de=1.2d0*de if (de.gt.elim) go to 50 nstop=210 c the number of nodes is too big c ********************************************************************** return c initial values for the inward integration c ********************************************************************** 160 dqm=dq(imat) dpm=dp(imat) if (imm.eq.1) go to 180 do 170 i=1,np,2 imax=np+1-i if(((dv(imax)-de)*dr(imax)*dr(imax)).le.300.0d0) go to 180 170 continue 180 dd=sqrt(-de*(2+db/dvc)) dpq=-dd/(dsal+db) dm=-dm do 190 i=1,5 j=imax+1-i dp(j)=exp(-dd*dr(j)) dep(i)=-dd*dp(j)*dr(j) dq(j)=dpq*dp(j) 190 deq(i)=dpq*dep(i) m=imax-5 c inward integration c*********************************************************************** do 200 i=imat,m j=m+imat-i dp(j)=dp(j+1) dq(j)=dq(j+1) 200 call inth (dp(j),dq(j),dv(j),dr(j)) c joining of the large components c ********************************************************************** dval=dpm/dp(imat) if (dval.gt.zero) go to 210 nstop=312 c error in the sign of the large component c ********************************************************************** return 210 do 220 i=imat,imax dp(i)=dp(i)*dval 220 dq(i)=dq(i)*dval c calculation of the norm c ********************************************************************** dsum=3*dr(1)*(dp(1)**2+dq(1)**2)/(dpas*(dfls+dfls+1)) do 230 i=3,imax,2 230 dsum=dsum+dr(i)*(dp(i)**2+dq(i)**2)+4.0*dr(i-1)*(dp(i-1)**2 + $ dq(i-1)**2)+dr(i-2)*(dp(i-2)**2+dq(i-2)**2) dsum=dpas*(dsum+dr(imat)*(dqm*dqm-dq(imat)*dq(imat)))*third c modification of the energy c ********************************************************************** dbe=dp(imat)*(dqm-dq(imat))*dvc/dsum imm=0 val=abs(dbe/de) if (val.le.test) go to 260 240 dval=de+dbe if (dval.lt.zero) go to 250 dbe=dbe*half val=val*half if (val.gt.test) go to 240 nstop=345 c energie nulle c ********************************************************************** return 250 de=dval if (val.le.0.1d0) imm=1 ies=ies+1 if (ies.le.nes) go to 50 nstop=362 c number of iterations too big c ********************************************************************** return 260 dsum=sqrt(dsum) dq1s=dq1s/dsum do 270 i=1,imax dp(i)=dp(i)/dsum 270 dq(i)=dq(i)/dsum do 280 i=1,4 dpno(i,jc)=dpno(i,jc)/dsum 280 dqno(i,jc)=dqno(i,jc)/dsum if (imax.eq.np) go to 300 j=imax+1 do 290 i=j,np dp(i)=zero 290 dq(i)=zero 300 nstop=0 310 return end ifeffit-1.2.11d/src/feff6/M/const.h0000644000175000017500000000153610774477102015644 0ustar segresegrec{consts.h -*-fortran-*- double precision pi, one, zero, third, raddeg, half double precision fa, bohr, ryd, alpinv, alphfs double precision clight, c05, c88 complex*16 coni parameter (pi = 3.14159 26535 89793 23846 26433d0) parameter (one = 1.d0, zero = 0.d0, half=0.5d0) parameter (third = one/3) parameter (raddeg = 180 / pi) parameter (coni = (0.d0,1.d0)) c kf = fa/rs with fa = (9*pi/4)**third, see Ash&Merm, pg 37 parameter (fa = 1.919 158 292 677 512 811d0) parameter (bohr = 0.529 177 249d0, ryd = 13.605 698d0) c fine structure alpha parameter (alpinv = 137.035 989 56d0) parameter (alphfs = one / alpinv) c speed of light in louck's units (rydbergs?) parameter (clight = 2 * alpinv) c loucks rgrid parameter (c05 = 0.05d0, c88 = 8.8d0) c} ifeffit-1.2.11d/src/feff6/M/inth.f0000644000175000017500000000264410774504543015457 0ustar segresegre subroutine inth (dp,dq,dv,dr) c c integration by the 5-point method of adams for the large c component dp and the small component dq at the point dr; c dv being the potential at this point c ********************************************************************** implicit double precision (a-h,o-z) save common /ps1/ dep(5), deq(5), db, dvc, dsal, dk, dm c c dep,deq the derivatives of dp and dq; db=energy/dvc; c dvc=speed of light in atomic units; dsal=2.*dvc; dk=kappa quantum numb c dm=exponential step/720. c dkoef1=405./502., dkoef2=27./502. c ********************************************************************** data dkoef1 /.9462151394422310d0/, dkoef2 /.5378486055776890d-1/ dpr=dp+dm*((251.d0*dep(1)+2616.d0*dep(3)+1901.d0*dep(5))- $ (1274.d0*dep(2) + 2774.d0*dep(4))) dqr=dq+dm*((251.d0*deq(1)+2616.d0*deq(3)+1901.d0*deq(5))- $ (1274.d0*deq(2) + 2774.d0*deq(4))) do 10 i=2,5 dep(i-1)=dep(i) 10 deq(i-1)=deq(i) dsum=(db-dv/dvc)*dr dep(5)=-dk*dpr+(dsal*dr+dsum)*dqr deq(5)=dk*dqr-dsum*dpr dp=dp+dm*((106.d0*dep(2)+646.d0*dep(4)+251.d0*dep(5))- $ (19.d0*dep(1)+264.d0*dep(3))) dq=dq+dm*((106.d0*deq(2)+646.d0*deq(4)+251.d0*deq(5))- $ (19.d0*deq(1)+264.d0*deq(3))) dp=dkoef1*dp+dkoef2*dpr dq=dkoef1*dq+dkoef2*dqr dep(5)=-dk*dp+(dsal*dr+dsum)*dq deq(5)=dk*dq-dsum*dp return end ifeffit-1.2.11d/src/feff6/M/dim.h0000644000175000017500000000215110774504712015257 0ustar segresegrec{vers.h -*-fortran-*- integer nphx, npotx, nfrx, novrx, natx integer ltot, nrptx, nex, lamtot, mtot, ntot integer legtot, npatx parameter (nphx = 7) !max number of unique potentials (potph) parameter (npotx = nphx) !max number of unique potentials (genfmt, paths) parameter (nfrx = nphx) !max number of free atom types parameter (novrx = 8) !max number of overlap shells parameter (natx = 500) !max number of atoms in problem parameter (ltot = 24) !max number of ang mom (arrays 1:ltot+1) parameter (nrptx = 251) !Loucks r grid used through overlap parameter (nex = 100) !Number of energy points genfmt, etc. parameter (lamtot= 15) !Max number of distinct lambda's for genfmt !15 handles iord 2 and exact ss parameter (mtot=4, ntot=2) !vary mmax and nmax independently parameter (legtot=9) !matches path finder, used in GENFMT parameter (npatx = 8) !max number of path atoms, used in path !finder, NOT in genfmt c} ifeffit-1.2.11d/src/feff6/M/potph.f0000644000175000017500000002105410774506116015641 0ustar segresegre subroutine potph (isporb) c Cluster code -- multiple shell single scattering version of FEFF c This program (or subroutine) calculates potentials and phase c shifts for unique potentials specifed by atoms and overlap cards. c c Input files: potph.inp input data, atoms, overlaps, etc. c Output: phases.bin phase shifts for use by the rest of the c program c xxx.dat various diagnostics implicit double precision (a-h, o-z) include 'const.h' include 'dim.h' include 'arrays.h' common /print/ iprint parameter (nheadx = 30) character*80 head(nheadx), messag*128 dimension lhead(nheadx) c head0 is header from potph.dat, include carriage control character*80 head0(nheadx) dimension lhead0(nheadx) dimension em(nex) dimension dgc0(251), dpc0(251) dimension xsec(nex), xsatan(nex) c nrx = max number of r points for phase r grid parameter (nrx = 250) dimension ri(nrptx), vtotph(nrx), rhoph(nrx) 10 format (4x, a, i5) c Read input from file potph.inp open (unit=1, file='potph.dat', status='old', iostat=ios) call chopen (ios, 'potph.dat', 'potph') nhead0 = nheadx call rpotph (1, nhead0, head0, lhead0, nat, nph, 1 nfr, ihole, gamach, iafolp, intclc, 1 ixc, vr0, vi0, rs0, iphat, rat, iatph, ifrph, 1 xnatph, novr, 2 iphovr, nnovr, rovr, folp, ion, iz, iprint, 2 ixanes, nemax, xkmin, xkmax, potlbl) close (unit=1) c Free atom potentials and densities c NB wsatom is needed in SUMAX, if changed here, change it there wsatom = 15 c do not save spinors ispinr = 0 do 20 ifr = 0, nfr itmp = 0 if (ifr .eq. 0) itmp = ihole write(messag,10) $ 'free atom potential and density for atom type', ifr call echo(messag) call atom (head0(1)(1:40), ifr, iz(ifr), itmp, wsatom, 1 ion(ifr), vcoul(1,ifr), rho(1,ifr), 2 ispinr, dgc0, dpc0, et) print*, 'atom done', ifr,iz(ifr),itmp,ion(ifr), et, ifr c$$$ do i = 1, 20 c$$$ print*, i, rho(i,ifr),rho(i+1,ifr),rho(i+4,ifr), c$$$ $ rho(i+4,ifr),rho(i+5,ifr) c$$$ enddo c$$$ c$$$ c$$$ do i = 1, 200, 5 c$$$ print*, i, vcoul(i,ifr),vcoul(i+1,ifr),vcoul(i+4,ifr), c$$$ $ vcoul(i+4,ifr),vcoul(i+5,ifr) c$$$ enddo c etfin is absorbing atom final state total energy c etinit is absorbing atom initial state (no hole) if (ifr .eq. 0) etfin = et 20 continue print*, etfin, ixanes if (ixanes .gt. 0) then call echo( ' initial state energy') c save spinor for core hole orbital ispinr = ihole c if no hole, use orbital from isporb if (ihole .eq. 0) ispinr = isporb itmp = 0 call atom (head0(1)(1:40), 0, iz(0), itmp, wsatom, 1 ion(0), vcoul(1,nfr+1), rho(1,nfr+1), 2 ispinr, dgc0, dpc0, etinit) endif c Need etfin if xanes and no hole, use K shell for this if (ixanes .gt. 0 .and. ihole .eq. 0) then c K hole itmp = 1 ispinr = 0 call atom (head0(1)(1:40), 0, iz(0), itmp, wsatom, 1 ion(0), vcoul(1,nfr+1), rho(1,nfr+1), 2 ispinr, dgc0, dpc0, etfin) endif c Overlap potentials and densitites do 40 iph = 0, nph write(messag,10) 1 'overlapped potential and density for unique potential', iph call echo(messag) print*, '-> ovrlp ', iph, iatph(iph), iz(iph), nat call ovrlp (iph, iphat, rat, iatph, ifrph, novr, 1 iphovr, nnovr, rovr, iz, nat, rho, vcoul, 2 edens, vclap, rnrm) print*, '<- ovrlp ', rho(1,iph), edens(1,iph), rnrm(iph) 40 continue c Find muffin tin radii, add gsxc to potentials, and find c interstitial parameters call echo(' muffin tin radii and interstitial parameters') print*, ' -> istprm ', rmt(0), rmt(1), rmt(2), rmt(3), rmt(4) print*, nph, nat print*, novr(0), novr(1), novr(2) print*, rovr(1,0), rovr(1,1), rovr(1,2) print*, nnovr(1,0), nnovr(1,1), nnovr(1,2) print*, folp(0), folp(1), folp(2) call istprm (nph, nat, iphat, rat, iatph, xnatph, 1 novr, iphovr, nnovr, rovr, folp, edens, 2 vclap, vtot, imt, inrm, rmt, rnrm, rhoint, 3 vint, rs, xf, xmu, rnrmav, intclc) print*, 'FEFF6 after istprm ', rnrmav c Automatic max reasonable overlap if (iafolp .eq. 1) then call echo(' automatic overlapping') call echo(' iph, rnrm(iph)*bohr,'// $ ' rmt(iph)*bohr, folp(iph)') do 400 iph = 0, nph folp(iph) = 1 + 0.7*(rnrm(iph)/rmt(iph) - 1) write(messag,'(3x,i8,3g15.6)') iph, $ rnrm(iph)*bohr, rmt(iph)*bohr, folp(iph) call echo(messag) 400 continue call istprm (nph, nat, iphat, rat, iatph, xnatph, 1 novr, iphovr, nnovr, rovr, folp, edens, 2 vclap, vtot, imt, inrm, rmt, rnrm, rhoint, 3 vint, rs, xf, xmu, rnrmav, intclc) endif c Initialize header routine and write misc.dat call sthead (nhead0, head0, lhead0, nph, iz, rmt, rnrm, 1 ion, ifrph, ihole, ixc, 2 vr0, vi0, rs0, gamach, xmu, xf, vint, rs, 3 nhead, lhead, head) if (iprint .ge. 1) then open (unit=1, file='misc.dat', status='unknown', iostat=ios) call chopen (ios, 'misc.dat', 'potph') call wthead(1) close (unit=1) endif if (iprint .ge. 2) then call wpot (nph, edens, ifrph, imt, inrm, 1 rho, vclap, vcoul, vtot) endif c Phase shift calculation c Make energy mesh and position grid nr = 250 edge = xmu - vr0 print*, 'potph -> phmesh ', ne call phmesh (nr, nemax, iprint, 1 ixanes, edge, xmu, vint, vr0, 1 imt, edens, nph, 2 ri, ne, em, ik0) c Cross section calculation, use phase mesh for now c remove xanes calculation in feff6l do 60 iph = 0, nph write(messag,10) 'phase shifts for unique potential', iph call echo(messag) c fix up variable for phase call fixvar (rmt(iph), edens(1,iph), vtot(1,iph), 1 vint, rhoint, nr, c05, c88, ri, 2 vtotph, rhoph) call phase (iph, nr, c05, c88, ri, ne, em, edge, 1 ixc, rmt(iph), xmu, vi0, rs0, gamach, 2 vtotph, rhoph, 3 eref, ph(1,1,iph), lmax(iph)) 60 continue if (iprint .ge. 2) then call wphase (nph, em, eref, lmax, ne, ph) endif c Write out phases for genfmt c May need stuff for use with headers only open (unit=1, file='phase.bin', access='sequential', 1 form='unformatted', status='unknown', iostat=ios) call chopen (ios, 'phase.bin', 'potph') write(1) nhead do 62 i = 1, nhead write(1) head(i) write(1) lhead(i) 62 continue write(1) ne, nph, ihole, rnrmav, xmu, edge, ik0 write(1) (em(ie),ie=1,ne) write(1) (eref(ie),ie=1,ne) do 80 iph = 0, nph write(1) lmax(iph), iz(ifrph(iph)) write(1) potlbl(iph) do 70 ie = 1, ne write(1) (ph(ie,ll,iph), ll=1,lmax(iph)+1) 70 continue 80 continue close (unit=1) cc test with phase.pad lun = 9 npack = 10 call openfl(lun, 'phase.pad', 'unknown', iex, ier) if ((ier.lt.0).or.(iex.lt.0)) then call echo(' *** Error: cannot open Potentials.bin') return end if write(lun,'(a,i3)') '#:FEFF6X POT File: npad = ', npack write(lun,'(a,i9,i9,i9,i9)') '#:ne,nph,ihole,ik0 = ', $ ne, nph, ihole, ik0 write(lun, '(a,g22.15)') '#% rnrmav = ', rnrmav write(lun, '(a,g22.15)') '#% xmu = ', xmu write(lun, '(a,g22.15)') '#% edge = ', edge call wrpadd(lun,npack,em,ne) call wrpadx(lun,npack,eref,ne) do 420 iph = 0, nph write(lun, '(2a,3i9)') '#:label,iph,lmax,iz ', potlbl(iph), $ iph, lmax(iph), iz(ifrph(iph)) do 410 l = 1, lmax(iph)+1 call wrpadx(lun,npack,ph(1,l,iph),ne) 410 continue 420 continue close(lun) return end ifeffit-1.2.11d/src/feff6/snlm.f0000644000175000017500000000221010663646452015262 0ustar segresegre subroutine snlm (lmaxp1, mmaxp1) implicit double precision(a-h,o-z) c Set nlm, legendre normalization factors, xnlm in common /nlm/ c Calculates legendre norm factors c xnlm= sqrt ((2l+1)(l-m)!/(l+m)!) include 'dim.h' include 'nlm.h' c flg(i) = i! * afac**i, set in factst dimension flg(0:210) call factst (afac, flg) c initialize xnlm explicitly do 5 il = 1, ltot+1 do 5 im = 1, mtot+1 xnlm(il,im) = 0 5 continue do 10 il = 1, lmaxp1 mmxp1 = min (mmaxp1, il) do 10 im = 1, mmxp1 l = il-1 m = im-1 cnlm = (2*l+1) * flg(l-m) / flg(l+m) cnlm = sqrt(cnlm) * afac**m xnlm(il,im) = cnlm 10 continue return end subroutine factst (afac, flg) implicit double precision (a-h,o-z) c FACTorial SeT, flg(i) = i! * afac**i dimension flg(0:210) c afac = 1/64 works with double precision on a VAX afac = 1./64. flzero = 1 flg(0) = 1 flg(1) = afac do 10 i = 2, 210 10 flg(i) = flg(i-1) * i * afac return end ifeffit-1.2.11d/src/feff6/somm.f0000644000175000017500000000172310663646452015274 0ustar segresegre subroutine somm (dr,dp,dq,dpas,da,m,np) c c integration by the method of simpson of (dp+dq)*dr**m from c 0 to r=dr(np) c dpas=exponential step; c for r in the neighborhood of zero (dp+dq)=cte*r**da c ********************************************************************** implicit double precision (a-h,o-z) save dimension dr(251), dp(251), dq(251) mm=m+1 d1=da+mm da=0.0 db=0.0 do 70 i=1,np dl=dr(i)**mm if (i.eq.1.or.i.eq.np) go to 10 dl=dl+dl if ((i-2*(i/2)).eq.0) dl=dl+dl 10 dc=dp(i)*dl if (dc) 20,40,30 20 db=db+dc go to 40 30 da=da+dc 40 dc=dq(i)*dl if (dc) 50,70,60 50 db=db+dc go to 70 60 da=da+dc 70 continue da=dpas*(da+db)/3.0 dc=exp(dpas)-1.0 db=d1*(d1+1.0)*dc*exp((d1-1.0)*dpas) db=dr(1)*(dr(2)**m)/db dc=(dr(1)**mm)*(1.0+1.0/(dc*(d1+1.0)))/d1 da=da+dc*(dp(1)+dq(1))-db*(dp(2)+dq(2)) return end ifeffit-1.2.11d/src/feff6/strap.f0000644000175000017500000000053110663646452015446 0ustar segresegre subroutine strap (x, y, n, sum) c Trapeziodal integration of y(x), result in sum c SINGLE PRECISION dimension x(n), y(n) sum = y(1) * (x(2) - x(1)) do 10 i = 2, n-1 sum = sum + y(i) * (x(i+1) - x(i-1)) 10 continue sum = sum + y(n) * (x(n) - x(n-1)) sum = sum/2 return end ifeffit-1.2.11d/src/feff6/inth.f0000644000175000017500000000257210663646452015266 0ustar segresegre subroutine inth (dp,dq,dv,dr) c c integration by the 5-point method of adams for the large c component dp and the small component dq at the point dr; c dv being the potential at this point c ********************************************************************** implicit double precision (a-h,o-z) save common /ps1/ dep(5), deq(5), db, dvc, dsal, dk, dm c c dep,deq the derivatives of dp and dq; db=energy/dvc; c dvc=speed of light in atomic units; dsal=2.*dvc; dk=kappa quantum numb c dm=exponential step/720. c dkoef1=405./502., dkoef2=27./502. c ********************************************************************** data dkoef1 /.9462151394422310/, dkoef2 /.5378486055776890d-1/ dpr=dp+dm*((251.0*dep(1)+2616.0*dep(3)+1901.0*dep(5))-(1274.0 1 *dep(2)+2774.0*dep(4))) dqr=dq+dm*((251.0*deq(1)+2616.0*deq(3)+1901.0*deq(5))-(1274.0 1 *deq(2)+2774.0*deq(4))) do 10 i=2,5 dep(i-1)=dep(i) 10 deq(i-1)=deq(i) dsum=(db-dv/dvc)*dr dep(5)=-dk*dpr+(dsal*dr+dsum)*dqr deq(5)=dk*dqr-dsum*dpr dp=dp+dm*((106.0*dep(2)+646.0*dep(4)+251.0*dep(5))-(19.0*dep(1 1 )+264.0*dep(3))) dq=dq+dm*((106.0*deq(2)+646.0*deq(4)+251.0*deq(5))-(19.0*deq(1 1 )+264.0*deq(3))) dp=dkoef1*dp+dkoef2*dpr dq=dkoef1*dq+dkoef2*dqr dep(5)=-dk*dp+(dsal*dr+dsum)*dq deq(5)=dk*dq-dsum*dp return end ifeffit-1.2.11d/src/feff6/intpol.f0000644000175000017500000000122110663646452015617 0ustar segresegre subroutine intpol (a,b,fa,fb,fma,fmb,x,fx,fmx) implicit double precision (a-h,o-z) c Only output is fx, fmx complex*16 fa,fb,fma,fmb,fx,fmx dx=b-a d=(x-a)/dx c if (d*(1.0-d).lt.0.0) stop 'Died in intpol' if (d*(1.0-d).lt.0.0) then c print*, 'a, b, dx' c print*, a, b, dx c print*, 'x, x-a' c print*, x, x-a c print*, 'd, d*(1-d)' c print*, d, d*(1-d) call fstop(' at INTPOL') endif c2=3.0*(fb-fa)-(fmb+2.0*fma)*dx c3=2.0*(fa-fb)+(fma+fmb)*dx fx=fa+d*(dx*fma+d*(c2+d*c3)) fmx=fma+d*(2.0*c2+3.0*c3*d)/dx return end ifeffit-1.2.11d/src/feff6/LICENSE0000644000175000017500000000603210771740457015155 0ustar segresegrec/////////////////////////////////////////////////////////////////////// c Distribution: FEFF6L c Copyright (c) [2002] University of Washington c c This software was prepared in part with US Government Funding under c DOE contract DE-FG03-97ER45623. c Redistribution and use of this Distribution in source and binary c formats, with or without modification is permitted, provided the c following conditions are met: c c Redistributions must retain the above notices and the following list c of conditions and disclaimer; c c Modified versions carry the marking c "Based on or developed using Distribution: FEFF6L c Copyright (c) [2002] University of Washington" c c Recipient acknowledges the right of the University of Washington to c prepare uses of this Distribution and its modifications that may be c substantially similar or functionally equivalent to c Recipient-prepared modifications. c c Recipient and anyone obtaining access to the Distribution through c recipient's actions accept all risk associated with possession and c use of the Distribution. c c THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED c WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF c MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. c IN NO EVENT SHALL THE UNIVERSITY OF WASHINGTON OR CONTRIBUTORS TO THE c DISTRIBUTION BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, c EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, c PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR c REVENUE; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF c LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING c NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS c SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. c/////////////////////////////////////////////////////////////////////// c License is applicable for routines listed below, unless otherwise specified. c c Copyright Notice: FEFF6 is copyright protected software and users must c obtain a license from the University of Washington Office of c Technology Transfer for its use; see section V of FEFF document. c Main Authors of FEFF5: please contact us concerning problems. c A. L. Ankudinov, alex@phys.washington.edu (206) 543 0435 c S. I. Zabinsky, zabinsky@phys.washington.edu (206) 543 0435 c J. J. Rehr, jjr@phys.washington.edu (206) 543 8593 c R. C. Albers, rca@nidhug.lanl.gov (505) 665 0417 c Citations: Please cite at least one of the following articles if c FEFF is used in published work: c 1) Multiple scattering c J.J. Rehr and R.C. Albers, Phys. Rev. B41, 8139 (1990). c J.J. Rehr, S.I. Zabinsky and R.C. Albers, c Phys. Rev. Let. 69, 3397 (1992). c 2) General reference c J.J. Rehr, J. Mustre de Leon, S.I. Zabinsky, and R.C. Albers, c J. Am. Chem. Soc. 113, 5135 (1991). c 3) Technical reference c J. Mustre de Leon, J.J. Rehr, S.I. Zabinsky, and R.C. Albers, c Phys. Rev. B44, 4146 (1991). ifeffit-1.2.11d/src/feff6/outcrt.f0000644000175000017500000000620510663646452015641 0ustar segresegre subroutine outcrt (npat, ipat, ckspc, 1 nncrit, fbetac, ne, ik0, cksp, fbeta, ipotnn, ipot, 1 xport, xheap, xheapr, 1 xout, xcalcx) c This make pw importance factor for pathsd, also recalculates c pathfinder criteria for output. Pathfinder recalculation c is hacked from ccrit, so be sure to update this if ccrit c is changed. include 'const.h' include 'dim.h' dimension ipat(npatx) dimension ipot(0:natx) parameter (necrit=9, nbeta=40) dimension fbetac(-nbeta:nbeta,0:npotx,necrit), ckspc(necrit) dimension fbeta(-nbeta:nbeta,0:npotx,nex), cksp(nex) c local variables dimension ri(npatx+1), beta(npatx+1), indbet(npatx+1) dimension xporti(nex) parameter (eps = 1.0e-6) c Space for variables for time reversed path (used in xheapr c calculation below) dimension ipat0(npatx) dimension ri0(npatx+1), indbe0(npatx+1) c mrb is 'efficient' way to get only ri and beta c note that beta is cos(beta) call mrb (npat, ipat, ri, beta) c Make index into fbeta array (this is nearest cos(beta) grid point, c code is a bit cute [sorry!], see prcrit for grid). do 290 i = 1, npat+1 tmp = abs(beta(i)) n = tmp / 0.025 del = tmp - n*0.025 if (del .gt. 0.0125) n = n+1 if (beta(i) .lt. 0) n = -n indbet(i) = n 290 continue c Make pw importance factor by integrating over all points c above the edge c Path importance factor is integral d|p| of c (product of f(beta)/rho for the scatterers) * cos(beta0)/rho0 do 560 ie = ik0, ne rho = ri(npat+1) * cksp(ie) crit = max (abs(beta(npat+1)), 0.2) / rho do 520 iat = 1, npat rho = ri(iat) * cksp(ie) ipot0 = ipot(ipat(iat)) crit = crit * fbeta(indbet(iat),ipot0,ie) / rho 520 continue xporti(ie) = abs(crit) 560 continue c integrate from ik0 to ne nmax = ne - ik0 + 1 call strap (cksp(ik0), xporti(ik0), nmax, xport) c Stuff for output. c Heap crit thing (see ccrit and mcrith for comments) c If a path got time reversed, its xheap may be smaller than c it was before it got time-reversed. So calculate it both c ways. c xheap for path, xheapr for time-reversed path xheap = -1 xheapr = -1 call mcrith (npat, ipat, ri, indbet, 1 ipot, nncrit, fbetac, ckspc, xheap) c Prepare arrays for time reversed path and make xheapr c See timrev.f for details on indexing here. nleg = npat+1 c ri do 200 i = 1, nleg ri0(i) = ri(nleg+1-i) 200 continue c indbet and ipat indbe0(nleg) = indbet(nleg) do 210 i = 1, nleg-1 indbe0(i) = indbet(nleg-i) ipat0(i) = ipat(nleg-i) 210 continue call mcrith (npat, ipat0, ri0, indbe0, 1 ipot, nncrit, fbetac, ckspc, xheapr) c Keep crit thing (see mcritk for comments) call mcritk (npat, ipat, ri, beta, indbet, 1 ipot, nncrit, fbetac, ckspc, xout, xcalcx) c print*, npat, xout, xcalcx return end ifeffit-1.2.11d/src/feff6/rdhead.f0000644000175000017500000000153010663646452015544 0ustar segresegre subroutine rdhead (io, nhead, head, lhead) implicit double precision (a-h, o-z) c Reads title line(s) from unit io. Returns number of lines c read. If more than nheadx lines, skips over them. End-of-header c marker is a line of 1 blank, 79 '-'s. c lhead is length of each line w/o trailing blanks. c header lines returned will have 1st space on line blank for c carriage control character*(*) head(nhead) dimension lhead(nhead) character*80 line n = 0 nheadx = nhead nhead = 0 10 read(io,20) line 20 format(a) if (line(4:11) .eq. '--------') goto 100 n = n+1 if (n .le. nheadx) then head(n) = line lhead(n) = istrln(head(n)) nhead = n endif goto 10 100 continue return end ifeffit-1.2.11d/src/feff6/head.f0000644000175000017500000000771510663646452015231 0ustar segresegre subroutine sthead (ntitle, title, ltitle, nph, iz, rmt, rnrm, 1 ion, ifrph, ihole, ixc, 2 vr0, vi0, rs0, gamach, xmu, xf, vint, rs, 3 nhead, lhead, head) c SeT HEAD c This routine makes the file header, returned in head array. c header lines do not include a leading blank. c Last header line is not --------- end-of-header line c title lines coming into sthead include carriage control, since c they were read from potph.dat implicit double precision (a-h, o-z) include 'const.h' include 'dim.h' dimension ifrph(0:nphx) dimension ion(0:nfrx) dimension iz(0:nfrx) dimension rmt(0:nphx) dimension rnrm(0:nphx) character*80 title(ntitle) parameter (nheadx = 30) character*80 head(nheadx) dimension lhead(nheadx), ltitle(ntitle) character*80 heada(nheadx) dimension lheada(nheadx) save nheada, lheada, heada c heada, etc., are saved for use by entry wthead character*10 shole(0:9) character*8 sout(0:6) common /labels/ shole, sout include 'vers.h' c character*12 vfeff, vpotph, vpaths, vgenfm, vff2ch c common /vers/ vfeff, vpotph, vpaths, vgenfm, vff2ch c FiLl head array with HEADer c Fills head arrray, n = number of lines used. c Does not include line of dashes at the end. nhead = 1 if (ntitle .ge. 1 .and. ltitle(1).gt.1) then write(head(nhead),100) title(1)(2:), vfeff, vpotph else write(head(nhead),102) vfeff, vpotph endif 100 format(a55, t56, 2a12) 102 format(t56, 2a12) do 120 ititle = 2, ntitle if (ltitle(ititle).le.1) goto 120 nhead = nhead+1 write(head(nhead),110) title(ititle)(2:) 110 format(a79) 120 continue if (ion(0) .ne. 0) then nhead = nhead+1 write(head(nhead),130) iz(0), rmt(0)*bohr, 1 rnrm(0)*bohr, ion(0), shole(ihole) else nhead = nhead+1 write(head(nhead),140) iz(0), rmt(0)*bohr, 1 rnrm(0)*bohr, shole(ihole) endif 130 format('Abs Z=',i2,' Rmt=',f6.3,' Rnm=',f6.3,' Ion=',i2,1x,a10) 140 format('Abs Z=',i2,' Rmt=',f6.3,' Rnm=',f6.3, 1x,a10) do 150 iph = 1, nph ifr = ifrph(iph) if (ion(ifr) .ne. 0) then nhead = nhead+1 write(head(nhead),160) iph, iz(ifr), rmt(iph)*bohr, 1 rnrm(iph)*bohr, ion(ifr) else nhead = nhead+1 write(head(nhead),170) iph, iz(ifr), rmt(iph)*bohr, 1 rnrm(iph)*bohr endif 150 continue 160 format('Pot',i2,' Z=',i2,' Rmt=',f6.3,' Rnm=',f6.3,' Ion=',i2) 170 format('Pot',i2,' Z=',i2,' Rmt=',f6.3,' Rnm=',f6.3) if (abs(vi0) .gt. 1.0e-8 .or. abs(vr0) .gt. 1.0e-8) then nhead = nhead+1 write(head(nhead),180) gamach*ryd, sout(ixc), vi0*ryd, 1 vr0*ryd else nhead = nhead+1 write(head(nhead),190) gamach*ryd, sout(ixc) endif nhead = nhead+1 180 format('Gam_ch=',1pe9.3, 1x,a8, ' Vi=',1pe10.3, ' Vr=',1pe10.3) 190 format('Gam_ch=',1pe9.3, 1x,a8) 200 format('Mu=',1pe10.3, ' kf=',1pe9.3, ' Vint=',1pe10.3, x ' Rs_int=',0pf6.3) write(head(nhead),200) xmu*ryd, xf/bohr, vint*ryd, rs if (ixc .eq. 4) then nhead = nhead+1 write(head(nhead),210) rs0 210 format ('Experimental DH-HL exch, rs0 = ', 1pe14.6) endif do 220 i = 1, nhead lhead(i) = istrln(head(i)) heada(i) = head(i) lheada(i) = lhead(i) 220 continue nheada = nhead return entry wthead (io) c Dump header to unit io, which must be open. Add carraige control c to head array, which doesn't have it. do 310 i = 1, nheada ll = lheada(i) write(io,300) heada(i)(1:ll) 300 format (1x, a) 310 continue end ifeffit-1.2.11d/src/feff6/dim.h0000644000175000017500000000215110663646452015070 0ustar segresegrec{vers.h -*-fortran-*- integer nphx, npotx, nfrx, novrx, natx integer ltot, nrptx, nex, lamtot, mtot, ntot integer legtot, npatx parameter (nphx = 7) !max number of unique potentials (potph) parameter (npotx = nphx) !max number of unique potentials (genfmt, paths) parameter (nfrx = nphx) !max number of free atom types parameter (novrx = 8) !max number of overlap shells parameter (natx = 500) !max number of atoms in problem parameter (ltot = 24) !max number of ang mom (arrays 1:ltot+1) parameter (nrptx = 250) !Loucks r grid used through overlap parameter (nex = 100) !Number of energy points genfmt, etc. parameter (lamtot= 15) !Max number of distinct lambda's for genfmt !15 handles iord 2 and exact ss parameter (mtot=4, ntot=2) !vary mmax and nmax independently parameter (legtot=9) !matches path finder, used in GENFMT parameter (npatx = 8) !max number of path atoms, used in path !finder, NOT in genfmt c} ifeffit-1.2.11d/src/feff6/mcritk.f0000644000175000017500000000345410663646452015615 0ustar segresegre subroutine mcritk (npat, ipat, ri, beta, indbet, 1 ipot, nncrit, fbetac, ckspc, xout, xcalcx) include 'const.h' include 'dim.h' dimension ipat(npatx) dimension ri(npatx+1), beta(npatx+1), indbet(npatx+1) dimension ipot(0:natx) parameter (necrit=9, nbeta=40) dimension fbetac(-nbeta:nbeta,0:npotx,necrit), ckspc(necrit) c xcalcx is max xcalc encountered so far. Set to -1 to reset it -- c otherwise it gets passed in and out as mcritk gets called. c We may want path in heap so that other paths built from this c path will be considered, but do not want this path to be c written out for itself. Decide that now and save the flag c in the heap, so we won't have to re-calculate the mpprm c path parameters later. c Do not want it for output if last atom is central atom, c use xout = -1 as flag for undefined, don't keep it. if (ipat(npat) .eq. 0) then xout = -1 return endif c Make xout, output inportance factor. This is sum over p of c (product of f(beta)/rho for the scatterers) * c (cos(beta0)/rho(npat+1). c Compare this to xoutx, max xout encountered so far. c Multiply by 100 so we can think in percent. xcalc = 0 do 460 icrit = 1, nncrit rho = ri(npat+1) * ckspc(icrit) c when beta(0)=90 degrees, get zero, so fudge with cos=.2 x = max (abs(beta(npat+1)), 0.2) / rho do 420 iat = 1, npat rho = ri(iat) * ckspc(icrit) ipot0 = ipot(ipat(iat)) x = x * fbetac(indbet(iat),ipot0,icrit) / rho 420 continue xcalc = xcalc + x 460 continue if (xcalc .gt. xcalcx) xcalcx = xcalc xout = 100 * xcalc / xcalcx return end ifeffit-1.2.11d/src/feff6/potph.f0000644000175000017500000001545610663646452015463 0ustar segresegre subroutine potph (isporb) c Cluster code -- multiple shell single scattering version of FEFF c This program (or subroutine) calculates potentials and phase c shifts for unique potentials specifed by atoms and overlap cards. c c Input files: potph.inp input data, atoms, overlaps, etc. c Output: phases.bin phase shifts for use by the rest of the c program c xxx.dat various diagnostics implicit double precision (a-h, o-z) include 'const.h' include 'dim.h' include 'arrays.h' common /print/ iprint parameter (nheadx = 30) character*80 head(nheadx), messag*128 dimension lhead(nheadx) c head0 is header from potph.dat, include carriage control character*80 head0(nheadx) dimension lhead0(nheadx) dimension em(nex) dimension dgc0(251), dpc0(251) dimension xsec(nex), xsatan(nex) c nrx = max number of r points for phase r grid parameter (nrx = 250) dimension ri(nrptx), vtotph(nrx), rhoph(nrx) 10 format (4x, a, i5) c Read input from file potph.inp open (unit=1, file='potph.dat', status='old', iostat=ios) call chopen (ios, 'potph.dat', 'potph') nhead0 = nheadx call rpotph (1, nhead0, head0, lhead0, nat, nph, 1 nfr, ihole, gamach, iafolp, intclc, 1 ixc, vr0, vi0, rs0, iphat, rat, iatph, ifrph, 1 xnatph, novr, 2 iphovr, nnovr, rovr, folp, ion, iz, iprint, 2 ixanes, nemax, xkmin, xkmax, potlbl) close (unit=1) c Free atom potentials and densities c NB wsatom is needed in SUMAX, if changed here, change it there wsatom = 15 c do not save spinors ispinr = 0 do 20 ifr = 0, nfr itmp = 0 if (ifr .eq. 0) itmp = ihole write(messag,10) $ 'free atom potential and density for atom type', ifr call echo(messag) call atom (head0(1)(1:40), ifr, iz(ifr), itmp, wsatom, 1 ion(ifr), vcoul(1,ifr), rho(1,ifr), 2 ispinr, dgc0, dpc0, et) c etfin is absorbing atom final state total energy c etinit is absorbing atom initial state (no hole) if (ifr .eq. 0) etfin = et 20 continue if (ixanes .gt. 0) then call echo( ' initial state energy') c save spinor for core hole orbital ispinr = ihole c if no hole, use orbital from isporb if (ihole .eq. 0) ispinr = isporb itmp = 0 call atom (head0(1)(1:40), 0, iz(0), itmp, wsatom, 1 ion(0), vcoul(1,nfr+1), rho(1,nfr+1), 2 ispinr, dgc0, dpc0, etinit) endif c Need etfin if xanes and no hole, use K shell for this if (ixanes .gt. 0 .and. ihole .eq. 0) then c K hole itmp = 1 ispinr = 0 call atom (head0(1)(1:40), 0, iz(0), itmp, wsatom, 1 ion(0), vcoul(1,nfr+1), rho(1,nfr+1), 2 ispinr, dgc0, dpc0, etfin) endif c Overlap potentials and densitites do 40 iph = 0, nph write(messag,10) 1 'overlapped potential and density for unique potential', iph call echo(messag) call ovrlp (iph, iphat, rat, iatph, ifrph, novr, 1 iphovr, nnovr, rovr, iz, nat, rho, vcoul, 2 edens, vclap, rnrm) 40 continue c Find muffin tin radii, add gsxc to potentials, and find c interstitial parameters call echo(' muffin tin radii and interstitial parameters') call istprm (nph, nat, iphat, rat, iatph, xnatph, 1 novr, iphovr, nnovr, rovr, folp, edens, 2 vclap, vtot, imt, inrm, rmt, rnrm, rhoint, 3 vint, rs, xf, xmu, rnrmav, intclc) c Automatic max reasonable overlap if (iafolp .eq. 1) then call echo(' automatic overlapping') call echo(' iph, rnrm(iph)*bohr,'// $ ' rmt(iph)*bohr, folp(iph)') do 400 iph = 0, nph folp(iph) = 1 + 0.7*(rnrm(iph)/rmt(iph) - 1) write(messag,'(3x,i8,3g15.6)') iph, $ rnrm(iph)*bohr, rmt(iph)*bohr, folp(iph) call echo(messag) 400 continue call istprm (nph, nat, iphat, rat, iatph, xnatph, 1 novr, iphovr, nnovr, rovr, folp, edens, 2 vclap, vtot, imt, inrm, rmt, rnrm, rhoint, 3 vint, rs, xf, xmu, rnrmav, intclc) endif c Initialize header routine and write misc.dat call sthead (nhead0, head0, lhead0, nph, iz, rmt, rnrm, 1 ion, ifrph, ihole, ixc, 2 vr0, vi0, rs0, gamach, xmu, xf, vint, rs, 3 nhead, lhead, head) if (iprint .ge. 1) then open (unit=1, file='misc.dat', status='unknown', iostat=ios) call chopen (ios, 'misc.dat', 'potph') call wthead(1) close (unit=1) endif if (iprint .ge. 2) then call wpot (nph, edens, ifrph, imt, inrm, 1 rho, vclap, vcoul, vtot) endif c Phase shift calculation c Make energy mesh and position grid nr = 250 dx = .05d0 x0 = 8.8d0 edge = xmu - vr0 call phmesh (nr, dx, x0, nemax, iprint, 1 ixanes, edge, xmu, vint, vr0, 1 imt, edens, nph, 2 ri, ne, em, ik0) c Cross section calculation, use phase mesh for now c remove xanes calculation in feff6l do 60 iph = 0, nph write(messag,10) 'phase shifts for unique potential', iph call echo(messag) c fix up variable for phase call fixvar (rmt(iph), edens(1,iph), vtot(1,iph), 1 vint, rhoint, nr, dx, x0, ri, 2 vtotph, rhoph) call phase (iph, nr, dx, x0, ri, ne, em, edge, 1 ixc, rmt(iph), xmu, vi0, rs0, gamach, 2 vtotph, rhoph, 3 eref, ph(1,1,iph), lmax(iph)) 60 continue if (iprint .ge. 2) then call wphase (nph, em, eref, lmax, ne, ph) endif c Write out phases for genfmt c May need stuff for use with headers only open (unit=1, file='phase.bin', access='sequential', 1 form='unformatted', status='unknown', iostat=ios) call chopen (ios, 'phase.bin', 'potph') write(1) nhead do 62 i = 1, nhead write(1) head(i) write(1) lhead(i) 62 continue write(1) ne, nph, ihole, rnrmav, xmu, edge, ik0 write(1) (em(ie),ie=1,ne) write(1) (eref(ie),ie=1,ne) do 80 iph = 0, nph write(1) lmax(iph), iz(ifrph(iph)) write(1) potlbl(iph) do 70 ie = 1, ne write(1) (ph(ie,ll,iph), ll=1,lmax(iph)+1) 70 continue 80 continue close (unit=1) return end ifeffit-1.2.11d/src/feff6/README0000644000175000017500000000023110771740457015023 0ustar segresegrec Distribution: FEFF6L c Copyright (c) [2002] University of Washington EXAFS only lite version of FEFF6 code See LICENSE file for copying details ifeffit-1.2.11d/src/feff6/fovrg.f0000644000175000017500000001417410663646452015450 0ustar segresegre subroutine fovrg (il, ihard, rmt, xmt, jri, e, nr, dx, ri, v, dny, 1 pu, qu, p, q, ps, qs, vm) implicit double precision (a-h, o-z) c Input: c il ang mom number + 1 c ihard number of times convergence test fails c rmt muffin tin radius c xmt x such that rmt = exp ((x-1)*dx - 8.8) c jri first interstitial grid point (imt + 1) c e current complex energy c nr number of points in r grid c dx dx in Loucks' grid (usually .05) c ri(nr) Loucks' position grid, r = exp ((i-1)*dx - 8.8) c v(nr) total complex potential including energy dep xc c v is in the form pot*r**2 c c Work space: c complex*16 p(nr), q(nr), ps(nr), qs(nr), vm(nr) c Must be dimensioned in calling program. Coded like this c to make using different r-grids with different nrmax easy. c c Output: c ihard incremented each time convergence test fails c dny r*g'/g, see loucks (4-85), q/p = cf/g (eq 4-86) c pu, qu upper and lower components at muffin tin c q and q arrays upper and lower components (see comments) complex*16 v(nr), e dimension ri(nr) complex*16 dny, pu, qu complex*16 p(nr), q(nr), ps(nr), qs(nr), vm(nr) include 'const.h' parameter (c = clight) parameter (csq = c**2) double precision lp1, ldcsq complex*16 c1,c2,c3,pc,qc,dp1,dq1,dp2,dq2,dp3,dq3,dp4,dq4 complex*16 vh,vmh,vmnp1,psn,qsn,psnm1,qsnm1,psnm2,qsnm2 complex*16 psnm3,qsnm3,psnm4,qsnm4,pp,qp,psnp1,qsnp1,prel,qrel complex*16 psu,vu,dummy complex*16 vn,vmn c test=1.e+04 value in loucks test=1.e+05 nrk=6 expdxh=exp(dx/2.0) dxd4=dx/4.0 dxd8=dx/8.0 a1=dx*3.30 a2=-dx*4.20 a3=dx*7.80 a4=dx*14.0/45.0 a5=dx*64.0/45.0 a6=dx*24.0/45.0 call diff (v,dx,jri,vm) twoz=-dble (v(1))/ri(1) l=il-1 lp1=l+1.0 ldcsq=l/csq ie=1 r=ri(1) vn=v(1) vmn=vm(1) cv p(1)=1.0 p(1)=1.e-20 q(1)=-e/(2.0*l+3.0)*r*p(1) beta=lp1 if (twoz.eq.0.0) go to 10 beta=sqrt(lp1*l+1.0-(twoz/c)**2) sb0=(beta-lp1)*csq/twoz sa1=(3.0*beta-(twoz/c)**2)/(2.0*beta+1.0) sb1=csq/twoz*((beta-l)*sa1-1.0)-sb0 sa2=((beta+3.0*lp1)*sa1-3.0*l+twoz/csq*(beta+lp1+3.0)*sb1)/ 1 (beta+1.0)/4.0 sb2=(csq/twoz*(2.0*l*(beta+2.0-lp1)-l-(twoz/c)**2)*sa1-3.0*l 1 *csq/twoz*(beta+2.0-lp1)+(beta+3.0-2.0*lp1-(twoz/c)**2)*sb1)/ 2 (beta+1.0)/4.0 delta=r*csq/twoz q(1)=(sb0+delta*(sb1+delta*sb2))/(1.0+delta*(sa1+delta*sa2))*p(1) 10 continue c runge kutta method (see loucks) c1=vn/r**2-e c2=1.0-c1/csq c3=(vmn-2.0*vn)/c2/c2*ldcsq ps(1)=r*c2*q(1)+lp1*p(1) qs(1)=-lp1*q(1)+(r*c1-c3/r**3)*p(1) n=1 20 continue pc=p(n) qc=q(n) dp1=dx*(r*c2*qc+lp1*pc) dq1=dx*(-lp1*qc+(r*c1-c3/r**3)*pc) pc=pc+0.50*dp1 qc=qc+0.50*dq1 r=r*expdxh vnp1=v(n+1) vmnp1=vm(n+1) vh=(vn+vnp1)*.50+(vmn-vmnp1)*dxd8 vmh=(1.50*(vnp1-vn)-(vmn+vmnp1)*dxd4)/dx c1=vh/r/r-e c2=1.0-c1/csq c3=(vmh-2.0*vh)/c2/c2*ldcsq dp2=dx*(r*c2*qc+lp1*pc) dq2=dx*(-lp1*qc+(r*c1-c3/r**3)*pc) pc=pc+0.50*(dp2-dp1) qc=qc+0.50*(dq2-dq1) dp3=dx*(r*c2*qc+lp1*pc) dq3=dx*(-lp1*qc+(r*c1-c3/r**3)*pc) pc=pc+dp3-0.50*dp2 qc=qc+dq3-0.50*dq2 n=n+1 r=ri(n) c1=vnp1/r/r-e c2=1.0-c1/csq c3=(vmnp1-2.0*vnp1)/c2/c2*ldcsq dp4=dx*(r*c2*qc+lp1*pc) dq4=dx*(-lp1*qc+(r*c1-c3/r**3)*pc) p(n)=p(n-1)+(dp1+2.0*(dp2+dp3)+dp4)/6.0 q(n)=q(n-1)+(dq1+2.0*(dq2+dq3)+dq4)/6.0 ps(n)=r*c2*q(n)+lp1*p(n) qs(n)=-lp1*q(n)+(r*c1-c3/r**3)*p(n) vn=vnp1 vmn=vmnp1 if (n-nrk) 20,30,30 30 if (n.ge.jri) go to 120 psn=ps(nrk) qsn=qs(nrk) psnm1=ps(nrk-1) qsnm1=qs(nrk-1) psnm2=ps(nrk-2) qsnm2=qs(nrk-2) psnm3=ps(nrk-3) qsnm3=qs(nrk-3) psnm4=ps(nrk-4) qsnm4=qs(nrk-4) c milne method 40 r=ri(n+1) c1=v(n+1)/r/r-e c2=1.0-c1/csq c3=(vm(n+1)-2.0*v(n+1))/c2/c2*ldcsq pp=p(n-5)+a1*(psn+psnm4)+a2*(psnm1+psnm3)+a3*psnm2 qp=q(n-5)+a1*(qsn+qsnm4)+a2*(qsnm1+qsnm3)+a3*qsnm2 nit=0 50 psnp1=r*c2*qp+lp1*pp qsnp1=-lp1*qp+(r*c1-c3/r**3)*pp pc=p(n-3)+a4*(psnp1+psnm3)+a5*(psn+psnm2)+a6*psnm1 qc=q(n-3)+a4*(qsnp1+qsnm3)+a5*(qsn+qsnm2)+a6*qsnm1 if (abs(test*(pc-pp))-abs(pc)) 60,60,70 60 if (abs(test*(qc-qp))-abs(qc)) 110,110,70 70 if (nit-40) 100,80,100 c 70 if (nit-5) 100,80,100 value in loucks 80 prel=(pc-pp)/pc qrel=(qc-qp)/qc c count times hard test fails ihard = ihard + 1 c print90, il,ie,n,prel,qrel 90 format (' hard test in fovrg il=',i2,' ie=',i1,' n=',i3,' prel=' 1 ,e16.8,' qrel=',e16.8,' **********') go to 110 100 nit=nit+1 pp=pc qp=qc go to 50 110 n=n+1 p(n)=pc q(n)=qc ps(n)=psnp1 qs(n)=qsnp1 psnm4=psnm3 psnm3=psnm2 psnm2=psnm1 psnm1=psn psn=psnp1 qsnm4=qsnm3 qsnm3=qsnm2 qsnm2=qsnm1 qsnm1=qsn qsn=qsnp1 c introduce scale factor to prevent overflow on vax jjr if(abs(pc).lt.1.e+20) go to 119 scale=1.e-20 do 112 mm=1,6 nm=n-mm+1 p(nm)=scale*p(nm) q(nm)=scale*q(nm) ps(nm)=scale*ps(nm) qs(nm)=scale*qs(nm) 112 continue psnm4=scale*psnm4 psnm3=scale*psnm3 psnm2=scale*psnm2 psnm1=scale*psnm1 psn=scale*psn qsnm4=scale*qsnm4 qsnm3=scale*qsnm3 qsnm2=scale*qsnm2 qsnm1=scale*qsnm1 qsn=scale*qsn 119 if (n-jri) 40,120,120 120 jm=jri-1 x=dx*(xmt-jm) call intpol (zero,dx,p(jm),p(jri),ps(jm),ps(jri),x,pu,psu) call intpol (zero,dx,q(jm),q(jri),qs(jm),qs(jri),x,qu,dummy) call intpol (zero,dx,v(jm),v(jri),vm(jm),vm(jri),x,vu,dummy) dny=rmt*(1.0-(vu/rmt**2-e)/csq)*qu/pu+l c dny is r*g'/g, see loucks (4-85), q/p = cf/g (eq 4-86) c (watch for factors of rmt) return end ifeffit-1.2.11d/src/pgstub/0000755000175000017500000000000011117272040014436 5ustar segresegreifeffit-1.2.11d/src/pgstub/Makefile.in0000644000175000017500000002004710771740456016526 0ustar segresegre# Makefile.in generated automatically by automake 1.4 from Makefile.am # Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. # Copyright (C) 2000 Matt Newville # # This file is free software; as a special exception the author gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY, to the extent permitted by law; without even the # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. SHELL = @SHELL@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ sbindir = @sbindir@ libexecdir = @libexecdir@ datadir = @datadir@ sysconfdir = @sysconfdir@ sharedstatedir = @sharedstatedir@ localstatedir = @localstatedir@ libdir = @libdir@ infodir = @infodir@ mandir = @mandir@ includedir = @includedir@ oldincludedir = /usr/include DESTDIR = pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = ../.. ACLOCAL = @ACLOCAL@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS) INSTALL_DATA = @INSTALL_DATA@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ transform = @program_transform_name@ NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : host_alias = @host_alias@ host_triplet = @host@ CC = @CC@ CPP = @CPP@ CXX = @CXX@ CXXCPP = @CXXCPP@ F2C = @F2C@ F2CFLAGS = @F2CFLAGS@ F77 = @F77@ FFLAGS = @FFLAGS@ FLIBS = @FLIBS@ MAKEINFO = @MAKEINFO@ NM = @NM@ PACKAGE = @PACKAGE@ RANLIB = @RANLIB@ VERSION = @VERSION@ canonical_host_type = @canonical_host_type@ lib_LIBRARIES = libnopgplot.a libnopgplot_a_SOURCES = pgstub.f mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs CONFIG_HEADER = ../../config.h CONFIG_CLEAN_FILES = LIBRARIES = $(lib_LIBRARIES) DEFS = @DEFS@ -I. -I$(srcdir) -I../.. CPPFLAGS = @CPPFLAGS@ LDFLAGS = @LDFLAGS@ LIBS = @LIBS@ libnopgplot_a_LIBADD = libnopgplot_a_OBJECTS = pgstub.o AR = ar F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS) F77LD = $(F77) F77LINK = $(F77LD) $(AM_FFLAGS) $(FFLAGS) $(LDFLAGS) -o $@ DIST_COMMON = Makefile.in DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) TAR = gtar GZIP_ENV = --best SOURCES = $(libnopgplot_a_SOURCES) OBJECTS = $(libnopgplot_a_OBJECTS) all: all-redirect .SUFFIXES: .SUFFIXES: .S .c .f .o .s Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status $(BUILT_SOURCES) cd $(top_builddir) \ && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status mostlyclean-libLIBRARIES: clean-libLIBRARIES: -test -z "$(lib_LIBRARIES)" || rm -f $(lib_LIBRARIES) distclean-libLIBRARIES: maintainer-clean-libLIBRARIES: install-libLIBRARIES: $(lib_LIBRARIES) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(libdir) @list='$(lib_LIBRARIES)'; for p in $$list; do \ if test -f $$p; then \ echo " $(INSTALL_DATA) $$p $(DESTDIR)$(libdir)/$$p"; \ $(INSTALL_DATA) $$p $(DESTDIR)$(libdir)/$$p; \ else :; fi; \ done @$(POST_INSTALL) @list='$(lib_LIBRARIES)'; for p in $$list; do \ if test -f $$p; then \ echo " $(RANLIB) $(DESTDIR)$(libdir)/$$p"; \ $(RANLIB) $(DESTDIR)$(libdir)/$$p; \ else :; fi; \ done uninstall-libLIBRARIES: @$(NORMAL_UNINSTALL) list='$(lib_LIBRARIES)'; for p in $$list; do \ rm -f $(DESTDIR)$(libdir)/$$p; \ done .s.o: $(COMPILE) -c $< .S.o: $(COMPILE) -c $< mostlyclean-compile: -rm -f *.o core *.core clean-compile: distclean-compile: -rm -f *.tab.c maintainer-clean-compile: libnopgplot.a: $(libnopgplot_a_OBJECTS) $(libnopgplot_a_DEPENDENCIES) -rm -f libnopgplot.a $(AR) cru libnopgplot.a $(libnopgplot_a_OBJECTS) $(libnopgplot_a_LIBADD) $(RANLIB) libnopgplot.a .f.o: $(F77COMPILE) -c $< tags: TAGS ID: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ here=`pwd` && cd $(srcdir) \ && mkid -f$$here/ID $$unique $(LISP) TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) $(LISP) tags=; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \ || (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags $$unique $(LISP) -o $$here/TAGS) mostlyclean-tags: clean-tags: distclean-tags: -rm -f TAGS ID maintainer-clean-tags: distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir) subdir = src/pgstub distdir: $(DISTFILES) here=`cd $(top_builddir) && pwd`; \ top_distdir=`cd $(top_distdir) && pwd`; \ distdir=`cd $(distdir) && pwd`; \ @for file in $(DISTFILES); do \ d=$(srcdir); \ if test -d $$d/$$file; then \ cp -pr $$/$$file $(distdir)/$$file; \ else \ test -f $(distdir)/$$file \ || ln $$d/$$file $(distdir)/$$file 2> /dev/null \ || cp -p $$d/$$file $(distdir)/$$file || :; \ fi; \ done # DEPS_MAGIC := $(shell mkdir .deps > /dev/null 2>&1 || :) # -include $(DEP_FILES) mostlyclean-depend: clean-depend: distclean-depend: maintainer-clean-depend: %.o: %.c $(COMPILE) -c $< info-am: info: info-am dvi-am: dvi: dvi-am check-am: all-am check: check-am installcheck-am: installcheck: installcheck-am install-exec-am: install-libLIBRARIES install-exec: install-exec-am install-data-am: install-data: install-data-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am install: install-am uninstall-am: uninstall-libLIBRARIES uninstall: uninstall-am all-am: Makefile $(LIBRARIES) all-redirect: all-am install-strip: $(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install installdirs: $(mkinstalldirs) $(DESTDIR)$(libdir) mostlyclean-generic: clean-generic: distclean-generic: -rm -f Makefile $(CONFIG_CLEAN_FILES) -rm -f config.cache config.log stamp-h stamp-h[0-9]* maintainer-clean-generic: mostlyclean-am: mostlyclean-libLIBRARIES mostlyclean-compile \ mostlyclean-tags mostlyclean-depend mostlyclean-generic mostlyclean: mostlyclean-am clean-am: clean-libLIBRARIES clean-compile clean-tags clean-depend \ clean-generic mostlyclean-am clean: clean-am distclean-am: distclean-libLIBRARIES distclean-compile distclean-tags \ distclean-depend distclean-generic clean-am distclean: distclean-am maintainer-clean-am: maintainer-clean-libLIBRARIES \ maintainer-clean-compile maintainer-clean-tags \ maintainer-clean-depend maintainer-clean-generic \ distclean-am @echo "This command is intended for maintainers to use;" @echo "it deletes files that may require special tools to rebuild." maintainer-clean: maintainer-clean-am .PHONY: mostlyclean-libLIBRARIES distclean-libLIBRARIES \ clean-libLIBRARIES maintainer-clean-libLIBRARIES uninstall-libLIBRARIES \ install-libLIBRARIES mostlyclean-compile distclean-compile \ clean-compile maintainer-clean-compile tags mostlyclean-tags \ distclean-tags clean-tags maintainer-clean-tags distdir \ mostlyclean-depend distclean-depend clean-depend \ maintainer-clean-depend info-am info dvi-am dvi check check-am \ installcheck-am installcheck install-exec-am install-exec \ install-data-am install-data install-am install uninstall-am uninstall \ all-redirect all-am all installdirs mostlyclean-generic \ distclean-generic clean-generic maintainer-clean-generic clean \ mostlyclean distclean maintainer-clean # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: ifeffit-1.2.11d/src/pgstub/pgstub.f0000644000175000017500000000646010771740456016137 0ustar segresegre subroutine pgend return end subroutine pgclos return end integer function pgopen(i) integer i pgopen = 0 return end subroutine pgqid(i) integer i i = 0 return end c subroutine pgslct(i) integer i return end c subroutine pgbeg(i, file, j, k) integer i,j, k character*(*) file print*, ' pgplot not installed' return end c subroutine pgqinf(type, arg, i) integer i character*(*) type, arg i = 0 return end c subroutine pgpage return end c subroutine pgbbuf return end c subroutine pgask(flag) logical flag return end c subroutine pgeras return end c subroutine pgsls(i) integer i return end c subroutine pgsch(x) real x return end c subroutine pgscf(i) integer i return end c subroutine pgslw(i) integer i return end c subroutine pgvstd return end c subroutine pgpt1(x1,x2,i) real x1,x2 integer i return end c subroutine pgrnge(x1,x2,x3,x4) real x1,x2,x3,x4 return end c subroutine pgsci(i) integer i return end c subroutine pgswin(x1,x2,x3,x4) real x1,x2,x3,x4 return end c subroutine pgbox(s1,x1,i1,s2,x2,i2) integer i1, i2 character*(*) s1, s2 real x1, x2 return end c subroutine pgmtxt(s1, x1, x2, x3, s2) character*(*) s1, s2 real x1, x2, x3 return end c subroutine pgline(i1,x1,x2) integer i1 real x1(*), x2(*) return end c subroutine pgpt(i1,x1,x2,i2) integer i1, i2 real x1(*), x2(*) return end c subroutine pgtext(x1, x2, s1) character*(*) s1 real x1, x2 return end c subroutine pgebuf return end c subroutine pgscrn(i1,s1,i2) character*(*) s1 integer i1, i2 return end c subroutine pgscr(i,r,g,b) integer i real r, g, b return end c integer function pgcurs(x,y,c) real x,y character*(*) c pgcurs = 1 x = 0 y = 0 c = 'a' return end c subroutine pgsah(i,x,y) real x,y integer i return end subroutine pgarro(x,y,u,v) real x,y,u,v return end integer function pgband(m,n,x1,y1,x,y,c) real x1,y1,x,y character*(*) c integer m,n pgband = 1 x = x1 y = y1 c = 'a' m = 0 return end subroutine pgqndt(i) integer i return end subroutine pgqdt(i,s1,i2,s2,i3,i4) integer i, i2, i3, i4 character s1*(*), s2*(*) return end subroutine pgerry(n,x,y1,y2,t) integer i real x(*), y1(*), y2(*), t return end subroutine pgerrx(n,x,y1,y2,t) integer i real x(*), y1(*), y2(*), t return end ifeffit-1.2.11d/src/macosx/0000755000175000017500000000000010771740457014445 5ustar segresegreifeffit-1.2.11d/src/macosx/final_compile0000644000175000017500000000036010771740457017170 0ustar segresegregcc -O2 -o ifeffit ../cmdline/iff_shell.o libifeffit.a -L/sw/lib/pgplot -lpgplot -L/usr/lib -L/sw/lib -lpng -L/usr/X11R6/lib -lX11 -framework Foundation -framework AppKit ../../readline/libreadline.a -ltermcap -lg2c -lm -lfrtbegin -lSystem ifeffit-1.2.11d/src/macosx/Makefile0000644000175000017500000003715510771740457016120 0ustar segresegre# This is an AUTOMATICALLY configured Makefile # running configure will OVERWRITE this file!!! #installation prefix prefix = /sw # where pgplot library? PG_DIR = /sw/lib/pgplot # how do I link with Xlib? X_LIBS = -L/usr/X11R6/lib -lX11 -framework Foundation -framework AppKit # set the load library flags (perl 5.8.0 specific??) LDDLFLAGS_P5 = -flat_namespace -bundle -undefined suppress -L/usr/local/lib -framework Foundation -framework AppKit # set readline flags READLINE_LIBS = -L/usr/lib/ -L/sw/lib/ -lreadline -lncurses #<> # # On some systems, this should be # -lreadline -lncurses READLINE_FLAG = # READLINE_LIBS = -L$(prefix)/lib -L/usr/lib -lreadline # # On other systems, a very old readline is installed, # please read the 'README.Readline' file, build readline, # and use #{ # prefix = /usr/local # READLINE_FLAG = -DMY_READLINE # READLINE_LIBS = ../../readline/libreadline.a -ltermcap #} # how do I link to PGPLOT? # this assumes PGPLOT uses png and X drivers PGPLOT_LIBS = -L$(PG_DIR) -lpgplot \ -L/usr/lib -L$(prefix)/lib -lpng $(X_LIBS) # where are the include files (esp for readline)? INCLUDES = -I$(srcdir) -I$(prefix)/include \ -I/usr/include -I/usr/local/include # how do I compile and link with C? CC = cc CFLAGS = -O2 COMPILE = $(CC) $(INCLUDES) $(CFLAGS) $(READLINE_FLAG) LINK = $(CC) $(CFLAGS) -o $@ # how do I compile and link with Fortran? F77 = g77 FFLAGS = -O2 FLIBS = -lg2c -lm # REDHAT 8.0 / gcc 3.2 # FLIBS = -L/usr/lib/gcc-lib/i386-redhat-linux/3.2 -L/usr/lib/gcc-lib/i386-redhat-linux/3.2/../../.. -lfrtbegin -lg2c -lm -lgcc_s F77LINK = $(F77) $(FFLAGS) -o $@ # how do I build and deal with libraries? AR = ar RANLIB = ranlib # where is the shell? SHELL = /bin/sh # installation directories relative to PREFIX bindir = ${prefix}/bin pkgdatadir = ${prefix}/share/ifeffit libdir = ${prefix}/lib ################################################## # # you shouldn't have to edit much below this # top_srcdir = ../.. srcdir = ../lib cmndline_dir = ../cmdline autobk_dir = ../autobk feffit_dir = ../feffit diffkk_dir = ../diffkk feff6_dir = ../feff6 all_src_dirs = $(srcdir) $(cmndline_dir) \ $(autobk_dir) $(feffit_dir) $(diffkk_dir) $(feff6_dir) IFF_CONFIG = ./configure SYS_H = $(srcdir)/sys.h MAXPTS_H = $(srcdir)/maxpts.h HEADERS = $(SYS_H) $(MAXPTS_H) mkinstalldirs = $(SHELL) ../../mkinstalldirs SET_DIR_PERM = chmod 775 INSTALL = /usr/bin/install -c INSTALL_EXE = ${INSTALL} -m 775 INSTALL_DATA = ${INSTALL} -m 664 MN_FLIBS = $(FLIBS) CONFIG_TEMPLATES = Config.mak Makefile.PL site_install.py MISC_CONFIG = ifeffit.inc ifeffit.h pkgconfig_DATA = $(CONFIG_TEMPLATES) $(MISC_CONFIG) pkgdata_DATA = startup.iff README LIBRARIES = libifeffit.a libxafs.a #EXE = ifeffit autobk diffkk feffit feff6 EXE = ifeffit autobk diffkk feffit feff6 all: $(HEADERS) $(LIBRARIES) $(EXE) $(CONFIG_TEMPLATES) XAFS_OBJ = $(srcdir)/str.o $(srcdir)/kkmclr.o $(srcdir)/fftpack.o \ $(srcdir)/conv_lor.o $(srcdir)/specfun.o $(srcdir)/padlib.o \ $(srcdir)/sort2.o $(srcdir)/preedg.o $(srcdir)/clbfun.o \ $(srcdir)/minpack.o $(srcdir)/spline.o $(srcdir)/splfun.o \ $(srcdir)/bvalue.o $(srcdir)/fitfft.o $(srcdir)/xafsft.o \ $(srcdir)/window.o $(srcdir)/fitfun.o $(srcdir)/genfun.o \ $(srcdir)/fiterr.o $(srcdir)/misc_num.o $(srcdir)/iread.o \ $(srcdir)/misc_io.o $(srcdir)/compat.o $(srcdir)/inpout.o \ $(srcdir)/uwxrdf.o $(srcdir)/chiout.o $(srcdir)/rdffdt.o IFF_OBJ = $(srcdir)/ifeffit.o $(srcdir)/cifeffit.o $(srcdir)/str.o \ $(srcdir)/misc_vars.o $(srcdir)/isamac.o $(srcdir)/iff_load.o \ $(srcdir)/iread.o $(srcdir)/echo.o $(srcdir)/misc_io.o \ $(srcdir)/iff_save.o $(srcdir)/iff_eval.o $(srcdir)/misc_arr.o \ $(srcdir)/iff_erase.o $(srcdir)/iff_sync.o $(srcdir)/decod.o \ $(srcdir)/enlib.o $(srcdir)/sigms.o $(srcdir)/u2ipth.o \ $(srcdir)/kkmclr.o $(srcdir)/fftpack.o $(srcdir)/misc_num.o \ $(srcdir)/conv_lor.o $(srcdir)/specfun.o $(srcdir)/encod.o \ $(srcdir)/padlib.o $(srcdir)/iff_set.o $(srcdir)/iff_init.o \ $(srcdir)/iff_plot_init.o $(srcdir)/iff_config.o \ $(srcdir)/iff_get_line.o $(srcdir)/iff_macro.o $(srcdir)/iff_done.o \ $(srcdir)/iff_history.o $(srcdir)/iff_test.o $(srcdir)/sort2.o \ $(srcdir)/iff_rddata.o $(srcdir)/iff_wrdata.o $(srcdir)/iff_log.o \ $(srcdir)/iff_show.o $(srcdir)/iff_color.o $(srcdir)/iff_correl.o \ $(srcdir)/sum_paths.o $(srcdir)/chipth.o $(srcdir)/fefinp.o \ $(srcdir)/rdffdt.o $(srcdir)/iff_print.o $(srcdir)/iff_echo.o \ $(srcdir)/iff_rename.o $(srcdir)/iff_pre_edge.o $(srcdir)/preedg.o \ $(srcdir)/iff_bkg_cl.o $(srcdir)/clcalc.o $(srcdir)/clbfun.o \ $(srcdir)/minpack.o $(srcdir)/iff_spline.o $(srcdir)/spline.o \ $(srcdir)/splfun.o $(srcdir)/bvalue.o $(srcdir)/fitfft.o \ $(srcdir)/xafsft.o $(srcdir)/window.o $(srcdir)/iff_fft.o \ $(srcdir)/iff_path.o $(srcdir)/iff_getpath.o $(srcdir)/iff_ff2chi.o \ $(srcdir)/iff_feffit.o $(srcdir)/fitfun.o $(srcdir)/iff_chieps.o \ $(srcdir)/fiterr.o $(srcdir)/iff_f1f2.o $(srcdir)/iff_diffkk.o \ $(srcdir)/iff_minimize.o $(srcdir)/genfun.o $(srcdir)/iff_uncert.o \ $(srcdir)/iff_plot.o $(srcdir)/iff_cursor.o $(srcdir)/feff_tables.o \ $(srcdir)/iff_unguess.o $(srcdir)/iff_window.o $(srcdir)/atomic.o lib_OBJECTS = $(IFF_OBJ) $(srcdir)/ifeffitc.o ifeffit_OBJECTS = $(cmndline_dir)/iff_shell.o autobk_OBJECTS = $(autobk_dir)/autobk.o $(autobk_dir)/misc_file.o \ $(autobk_dir)/setsys.o $(autobk_dir)/autint.o $(autobk_dir)/autinp.o \ $(autobk_dir)/getcom.o $(autobk_dir)/autdat.o $(autobk_dir)/autnls.o \ $(autobk_dir)/autfun.o $(autobk_dir)/autlog.o $(autobk_dir)/autout.o feffit_OBJECTS = $(feffit_dir)/feffit.o $(feffit_dir)/setsys.o \ $(feffit_dir)/messag.o $(feffit_dir)/fitint.o $(feffit_dir)/fitinp.o \ $(feffit_dir)/getcom.o $(feffit_dir)/openfl.o $(feffit_dir)/nxtunt.o \ $(feffit_dir)/getfln.o $(feffit_dir)/fixstr.o $(feffit_dir)/finmsg.o \ $(feffit_dir)/append.o $(feffit_dir)/misc.o $(feffit_dir)/testrf.o \ $(feffit_dir)/filrec.o $(feffit_dir)/encod.o $(feffit_dir)/enlib.o \ $(feffit_dir)/nbrstr.o $(feffit_dir)/fitdat.o $(feffit_dir)/fitchk.o \ $(feffit_dir)/chipth.o $(feffit_dir)/fixicd.o $(feffit_dir)/setval.o \ $(feffit_dir)/eval.o $(feffit_dir)/decod.o $(feffit_dir)/cordby.o \ $(feffit_dir)/sigms.o $(feffit_dir)/fefsrt.o $(feffit_dir)/fefinp.o \ $(feffit_dir)/rdffdt.o $(feffit_dir)/rdfb1.o $(feffit_dir)/fitck2.o \ $(feffit_dir)/fitnls.o $(feffit_dir)/fitfun.o $(feffit_dir)/fitlog.o \ $(feffit_dir)/fitprm.o $(feffit_dir)/wrtprm.o $(feffit_dir)/fitout.o \ $(feffit_dir)/xfsout.o diffkk_OBJECTS = $(diffkk_dir)/diffkk.o $(diffkk_dir)/lib.o \ $(diffkk_dir)/dkinp.o $(diffkk_dir)/str2at.o $(diffkk_dir)/dkfit.o \ $(diffkk_dir)/dkfcn.o $(diffkk_dir)/dklog.o feff6_OBJECTS = $(feff6_dir)/feff.o $(feff6_dir)/str.o \ $(feff6_dir)/rdinp.o $(feff6_dir)/chopen.o \ $(feff6_dir)/mkptz.o $(feff6_dir)/setgam.o \ $(feff6_dir)/terp.o $(feff6_dir)/potph.o \ $(feff6_dir)/rpotph.o $(feff6_dir)/rdhead.o \ $(feff6_dir)/atom.o $(feff6_dir)/indata.o \ $(feff6_dir)/getorb.o $(feff6_dir)/dirac.o \ $(feff6_dir)/inouh.o $(feff6_dir)/inth.o \ $(feff6_dir)/potsl.o $(feff6_dir)/somm.o \ $(feff6_dir)/totale.o $(feff6_dir)/cdsld.o \ $(feff6_dir)/ykdir.o $(feff6_dir)/renorm.o \ $(feff6_dir)/potslw.o $(feff6_dir)/ovrlp.o \ $(feff6_dir)/sumax.o $(feff6_dir)/frnrm.o \ $(feff6_dir)/istprm.o $(feff6_dir)/sidx.o \ $(feff6_dir)/istval.o $(feff6_dir)/fermi.o \ $(feff6_dir)/head.o $(feff6_dir)/wpot.o \ $(feff6_dir)/phmesh.o $(feff6_dir)/fixvar.o \ $(feff6_dir)/phase.o $(feff6_dir)/besjn.o \ $(feff6_dir)/bjnser.o $(feff6_dir)/xcpot.o \ $(feff6_dir)/rhl.o $(feff6_dir)/imhl.o \ $(feff6_dir)/ffq.o $(feff6_dir)/cubic.o \ $(feff6_dir)/quinn.o $(feff6_dir)/edp.o \ $(feff6_dir)/fovrg.o $(feff6_dir)/diff.o \ $(feff6_dir)/intpol.o $(feff6_dir)/wphase.o \ $(feff6_dir)/prcrit.o $(feff6_dir)/rphbin.o \ $(feff6_dir)/cpl0.o $(feff6_dir)/paths.o \ $(feff6_dir)/sortix.o $(feff6_dir)/ccrit.o \ $(feff6_dir)/mrb.o $(feff6_dir)/mcrith.o \ $(feff6_dir)/mcritk.o $(feff6_dir)/ipack.o \ $(feff6_dir)/heap.o $(feff6_dir)/pathsd.o \ $(feff6_dir)/timrep.o $(feff6_dir)/mpprmp.o \ $(feff6_dir)/phash.o $(feff6_dir)/outcrt.o \ $(feff6_dir)/strap.o $(feff6_dir)/mpprmd.o \ $(feff6_dir)/genfmt.o $(feff6_dir)/snlm.o \ $(feff6_dir)/rdpath.o $(feff6_dir)/setlam.o \ $(feff6_dir)/rot3i.o $(feff6_dir)/mmtr.o \ $(feff6_dir)/sclmz.o $(feff6_dir)/mmtrxi.o \ $(feff6_dir)/fmtrxi.o $(feff6_dir)/trap.o \ $(feff6_dir)/pijump.o $(feff6_dir)/ff2chi.o \ $(feff6_dir)/sigms.o $(feff6_dir)/dist.o \ $(feff6_dir)/sdist.o $(feff6_dir)/xx.o \ $(feff6_dir)/getxk.o $(feff6_dir)/dalp.o \ $(feff6_dir)/fpot.o $(feff6_dir)/exchan.o \ $(feff6_dir)/exchee.o $(feff6_dir)/pertab.o EL_DATAFILES = 04.dat 05.dat 06.dat 07.dat 08.dat 09.dat 10.dat 11.dat \ 12.dat 13.dat 14.dat 15.dat 16.dat 17.dat 18.dat 19.dat 20.dat \ 21.dat 22.dat 23.dat 24.dat 25.dat 26.dat 27.dat 28.dat 29.dat \ 30.dat 31.dat 32.dat 33.dat 34.dat 35.dat 36.dat 37.dat 38.dat \ 39.dat 40.dat 41.dat 42.dat 43.dat 44.dat 45.dat 46.dat 47.dat \ 48.dat 49.dat 50.dat 51.dat 52.dat 53.dat 54.dat 55.dat 56.dat \ 57.dat 58.dat 59.dat 60.dat 61.dat 62.dat 63.dat 64.dat 65.dat \ 66.dat 67.dat 68.dat 69.dat 70.dat 71.dat 72.dat 73.dat 74.dat \ 75.dat 76.dat 77.dat 78.dat 79.dat 80.dat 81.dat 82.dat 83.dat \ 84.dat 85.dat 86.dat 87.dat 88.dat 89.dat 90.dat 91.dat 92.dat $(HEADERS): $(SHELL) $(IFF_CONFIG) Config.mak: $(OBJECTS) @echo '#== Ifeffit build configuration:' > $@ @echo '# LIB_IFF = ifeffit library ' >> $@ @echo '# LIB_PLT = PGPLOT libraries' >> $@ @echo '# LIB_F77 = Fortran libraries' >> $@ @echo '# LIB_X11 = X Libaries' >> $@ @echo '# INC_IFF = location of ifeffit.h' >> $@ @echo 'LIB_IFF = -L$(prefix)/lib -lifeffit' >> $@ @echo 'LIB_PLT = $(PGPLOT_LIBS)' >> $@ @echo 'LIB_F77 = $(MN_FLIBS) ' >> $@ @echo 'INC_IFF = -I$(pkgdatadir)/config' >> $@ @echo '#== ' >> $@ @echo 'made $@' ## BR Mar 28 2002: I want to make a few comments on some cryptic crap ## I added to this target. The combination of explicitly setting ## LDDLFLAGS and adding perl's $Config{ldflags} to the value of LIBS ## is intended to move /usr/local/lib to a position after ## ../../src/lib in the command line argument to the linker. In this ## way the newly compiled libifeffit will be used in place of one that ## exists in the location of $Config{ldflags}. By default LDDLFLAGS ## will be set to $Config{lddlflags} which is "-shared " concatinated ## with $Config{ldflags}. The complicated join/sort/split thing is ## intended to offer a clumsy but servicable to solution to a mistake ## made by autoconf on many linux systems. Doing the join/sort/split ## thing will assure that the -l***'s will be placed after the -L***'s ## on the command line and the -lm will be placed after either -lg2c ## or -lf2c. Note that the join/sort/split could be fragile. Makefile.PL: Config.mak @echo '# -*-perl-*-' > $@ @echo '# Perl Makefile.PL auto-generated during Ifeffit build' >> $@ @echo '# This file may need some modifications, but should give' >> $@ @echo '# a good guess for how to build the Ifeffit extension.' >> $@ @echo '# ' >> $@ @echo "use lib '.';" >> $@ @echo "use ExtUtils::MakeMaker;" >> $@ @echo "use Config;" >> $@ @echo "WriteMakefile('NAME' => 'Ifeffit'," >> $@ @echo " 'SKIP' => ['test_dynamic']," >> $@ @echo " 'OBJECT' => 'ifeffit_wrap.o'," >> $@ @echo " 'INSTALLBIN' => '$(bindir)',">> $@ @echo " 'INSTALLSCRIPT' => '$(bindir)',">> $@ @echo " 'LDDLFLAGS' => '$(LDDLFLAGS_P5)'," >> $@ @echo " 'INC' => '-I../../src/lib -I$(pkgdatadir)/config'," >> $@ @echo " 'LIBS' =>[' -L../../src/lib '.\$$Config{ldflags}." >> $@ @echo " ' -lifeffit $(PGPLOT_LIBS) '." >> $@ @echo " join(\" \", (sort(split(\" \", \"$(MN_FLIBS)\" ))))] " >> $@ @echo " );" >> $@ @echo 'made $@' @cp $@ $(top_srcdir)/wrappers/perl/. # # python setup site_install.py: Config.mak @echo '# -*-python-*-' > $@ @echo '# Python site installation information' >> $@ @echo '# This file was auto-generated during the Ifeffit build' >> $@ @echo '# and may need some modifications.' >> $@ @echo '# ' >> $@ @echo 'bin_dir="$(bindir)"' > $@ @echo 'lib_iff="-L$(prefix)/lib -lifeffit "' >> $@ @echo 'lib_plt="$(PGPLOT_LIBS)"' >> $@ @echo 'lib_f77="$(MN_FLIBS) "' >> $@ @echo 'inc_iff="-I../../src/lib -I$(pkgdatadir)/config"' >> $@ @echo 'made $@' @cp $@ $(top_srcdir)/wrappers/python/. TclSetup.in: Config.mak @echo '# ' > $@ @echo '# Tcl Setup.in auto-generated during Ifeffit build' >> $@ @echo '# This file may need some modifications, but should give' >> $@ @echo '# a good guess for how to build the Ifeffit extension.' >> $@ @echo '# ' >> $@ @cat Config.mak >> $@ @echo 'LIB_IFF = -L../../src/lib -lifeffit ' >> $@ @echo 'INC_IFF = -I../../src/lib -I$(pkgdatadir)/config' >> $@ @echo 'CC = $(CCLD)' >> $@ @echo 'CFLAGS = $(CFLAGS)' >> $@ @echo 'LDFLAGS = $(LDFLAGS)' >> $@ @echo 'made $@' @cp $@ $(top_srcdir)/wrappers/tcl/. .f.o: $(F77) -o $@ -c $< %.o: %.c $(COMPILE) -o $@ -c $< libifeffit.a: $(lib_OBJECTS) -rm -f $@ $(AR) cru libifeffit.a $(lib_OBJECTS) $(RANLIB) libifeffit.a libxafs.a: $(XAFS_OBJ) -rm -f $@ $(AR) cru libxafs.a $(XAFS_OBJ) $(RANLIB) libxafs.a ifeffit: $(ifeffit_OBJECTS) libifeffit.a @rm -f $@ $(LINK) $(ifeffit_OBJECTS) libifeffit.a \ $(PGPLOT_LIBS) $(READLINE_LIBS) $(FLIBS) autobk: $(autobk_OBJECTS) libxafs.a @rm -f $@ $(F77LINK) $(autobk_OBJECTS) libxafs.a $(FLIBS) feffit: $(feffit_OBJECTS) libxafs.a @rm -f $@ $(F77LINK) $(feffit_OBJECTS) libxafs.a $(FLIBS) diffkk: $(diffkk_OBJECTS) libifeffit.a @rm -f $@ $(F77LINK) $(diffkk_OBJECTS) libifeffit.a \ $(PGPLOT_LIBS) $(FLIBS) feff6: $(feff6_OBJECTS) @rm -f $@ $(F77LINK) $(feff6_OBJECTS) $(FLIBS) install: all # libs $(mkinstalldirs) $(libdir) $(SET_DIR_PERM) $(libdir) @list='$(LIBRARIES)'; for p in $$list; do \ if test -f $$p; then \ echo "$(INSTALL_DATA) $$p $(libdir)/$$p"; \ $(INSTALL_DATA) $$p $(libdir)/$$p; \ $(RANLIB) $(libdir)/$$p; \ else :; fi; \ done # binaries $(mkinstalldirs) $(bindir) $(SET_DIR_PERM) $(bindir) @list='$(EXE)'; for p in $$list; do \ echo "$(INSTALL_EXE) $$p $(bindir)/$$p"; \ $(INSTALL_EXE) $$p $(bindir)/$$p; \ done # data files for base share data install $(mkinstalldirs) $(pkgdatadir) $(SET_DIR_PERM) $(pkgdatadir) @list='$(pkgdata_DATA)'; for p in $$list; do \ echo "$(INSTALL_DATA) $(srcdir)/$$p $(pkgdatadir)/$$p"; \ $(INSTALL_DATA) $(srcdir)/$$p $(pkgdatadir)/$$p; \ done # config files $(mkinstalldirs) $(pkgdatadir)/config $(SET_DIR_PERM) $(pkgdatadir)/config @list='$(pkgconfig_DATA)'; for p in $$list; do \ echo "$(INSTALL_DATA) $$p $(pkgdatadir)/config/$$p"; \ $(INSTALL_DATA) $$p $(pkgdatadir)/config/$$p; \ done # data files for CL and Feff Tables $(mkinstalldirs) $(pkgdatadir)/cldata $(mkinstalldirs) $(pkgdatadir)/fefftab $(SET_DIR_PERM) $(pkgdatadir)/cldata $(SET_DIR_PERM) $(pkgdatadir)/fefftab @echo "installing cldata and fefftab data" @list='$(EL_DATAFILES)'; for p in $$list; do \ $(INSTALL_DATA) ../cldata/$$p $(pkgdatadir)/cldata/$$p; \ $(INSTALL_DATA) ../fefftab/$$p $(pkgdatadir)/fefftab/$$p; \ done clean: -rm -f core $(LIBRARIES) $(EXE) $(CONFIG_TEMPLATES) @list='$(all_src_dirs)'; for p in $$list; do \ echo "rm -f $$p/*.o " ; \ rm -f $$p/*.o ; \ done ifeffit-1.2.11d/src/macosx/makefile.in0000644000175000017500000003610510771740457016557 0ustar segresegre #<> # # On some systems, this should be # -lreadline -lncurses READLINE_FLAG = # READLINE_LIBS = -L$(prefix)/lib -L/usr/lib -lreadline # # On other systems, a very old readline is installed, # please read the 'README.Readline' file, build readline, # and use #{ # prefix = /usr/local # READLINE_FLAG = -DMY_READLINE # READLINE_LIBS = ../../readline/libreadline.a -ltermcap #} # how do I link to PGPLOT? # this assumes PGPLOT uses png and X drivers PGPLOT_LIBS = -L$(PG_DIR) -lpgplot \ -L/usr/lib -L$(prefix)/lib -lpng $(X_LIBS) # where are the include files (esp for readline)? INCLUDES = -I$(srcdir) -I$(prefix)/include \ -I/usr/include -I/usr/local/include # how do I compile and link with C? CC = cc CFLAGS = -O2 COMPILE = $(CC) $(INCLUDES) $(CFLAGS) $(READLINE_FLAG) LINK = $(CC) $(CFLAGS) -o $@ # how do I compile and link with Fortran? F77 = g77 FFLAGS = -O2 FLIBS = -lg2c -lm # REDHAT 8.0 / gcc 3.2 # FLIBS = -L/usr/lib/gcc-lib/i386-redhat-linux/3.2 -L/usr/lib/gcc-lib/i386-redhat-linux/3.2/../../.. -lfrtbegin -lg2c -lm -lgcc_s F77LINK = $(F77) $(FFLAGS) -o $@ # how do I build and deal with libraries? AR = ar RANLIB = ranlib # where is the shell? SHELL = /bin/sh # installation directories relative to PREFIX bindir = ${prefix}/bin pkgdatadir = ${prefix}/share/ifeffit libdir = ${prefix}/lib ################################################## # # you shouldn't have to edit much below this # top_srcdir = ../.. srcdir = ../lib cmndline_dir = ../cmdline autobk_dir = ../autobk feffit_dir = ../feffit diffkk_dir = ../diffkk feff6_dir = ../feff6 all_src_dirs = $(srcdir) $(cmndline_dir) \ $(autobk_dir) $(feffit_dir) $(diffkk_dir) $(feff6_dir) IFF_CONFIG = ./configure SYS_H = $(srcdir)/sys.h MAXPTS_H = $(srcdir)/maxpts.h HEADERS = $(SYS_H) $(MAXPTS_H) mkinstalldirs = $(SHELL) ../../mkinstalldirs SET_DIR_PERM = chmod 775 INSTALL = /usr/bin/install -c INSTALL_EXE = ${INSTALL} -m 775 INSTALL_DATA = ${INSTALL} -m 664 MN_FLIBS = $(FLIBS) CONFIG_TEMPLATES = Config.mak Makefile.PL site_install.py MISC_CONFIG = ifeffit.inc ifeffit.h pkgconfig_DATA = $(CONFIG_TEMPLATES) $(MISC_CONFIG) pkgdata_DATA = startup.iff README LIBRARIES = libifeffit.a libxafs.a #EXE = ifeffit autobk diffkk feffit feff6 EXE = ifeffit autobk diffkk feffit feff6 all: $(HEADERS) $(LIBRARIES) $(EXE) $(CONFIG_TEMPLATES) XAFS_OBJ = $(srcdir)/str.o $(srcdir)/kkmclr.o $(srcdir)/fftpack.o \ $(srcdir)/conv_lor.o $(srcdir)/specfun.o $(srcdir)/padlib.o \ $(srcdir)/sort2.o $(srcdir)/preedg.o $(srcdir)/clbfun.o \ $(srcdir)/minpack.o $(srcdir)/spline.o $(srcdir)/splfun.o \ $(srcdir)/bvalue.o $(srcdir)/fitfft.o $(srcdir)/xafsft.o \ $(srcdir)/window.o $(srcdir)/fitfun.o $(srcdir)/genfun.o \ $(srcdir)/fiterr.o $(srcdir)/misc_num.o $(srcdir)/iread.o \ $(srcdir)/misc_io.o $(srcdir)/compat.o $(srcdir)/inpout.o \ $(srcdir)/uwxrdf.o $(srcdir)/chiout.o $(srcdir)/rdffdt.o IFF_OBJ = $(srcdir)/ifeffit.o $(srcdir)/cifeffit.o $(srcdir)/str.o \ $(srcdir)/misc_vars.o $(srcdir)/isamac.o $(srcdir)/iff_load.o \ $(srcdir)/iread.o $(srcdir)/echo.o $(srcdir)/misc_io.o \ $(srcdir)/iff_save.o $(srcdir)/iff_eval.o $(srcdir)/misc_arr.o \ $(srcdir)/iff_erase.o $(srcdir)/iff_sync.o $(srcdir)/decod.o \ $(srcdir)/enlib.o $(srcdir)/sigms.o $(srcdir)/u2ipth.o \ $(srcdir)/kkmclr.o $(srcdir)/fftpack.o $(srcdir)/misc_num.o \ $(srcdir)/conv_lor.o $(srcdir)/specfun.o $(srcdir)/encod.o \ $(srcdir)/padlib.o $(srcdir)/iff_set.o $(srcdir)/iff_init.o \ $(srcdir)/iff_plot_init.o $(srcdir)/iff_config.o \ $(srcdir)/iff_get_line.o $(srcdir)/iff_macro.o $(srcdir)/iff_done.o \ $(srcdir)/iff_history.o $(srcdir)/iff_test.o $(srcdir)/sort2.o \ $(srcdir)/iff_rddata.o $(srcdir)/iff_wrdata.o $(srcdir)/iff_log.o \ $(srcdir)/iff_show.o $(srcdir)/iff_color.o $(srcdir)/iff_correl.o \ $(srcdir)/sum_paths.o $(srcdir)/chipth.o $(srcdir)/fefinp.o \ $(srcdir)/rdffdt.o $(srcdir)/iff_print.o $(srcdir)/iff_echo.o \ $(srcdir)/iff_rename.o $(srcdir)/iff_pre_edge.o $(srcdir)/preedg.o \ $(srcdir)/iff_bkg_cl.o $(srcdir)/clcalc.o $(srcdir)/clbfun.o \ $(srcdir)/minpack.o $(srcdir)/iff_spline.o $(srcdir)/spline.o \ $(srcdir)/splfun.o $(srcdir)/bvalue.o $(srcdir)/fitfft.o \ $(srcdir)/xafsft.o $(srcdir)/window.o $(srcdir)/iff_fft.o \ $(srcdir)/iff_path.o $(srcdir)/iff_getpath.o $(srcdir)/iff_ff2chi.o \ $(srcdir)/iff_feffit.o $(srcdir)/fitfun.o $(srcdir)/iff_chieps.o \ $(srcdir)/fiterr.o $(srcdir)/iff_f1f2.o $(srcdir)/iff_diffkk.o \ $(srcdir)/iff_minimize.o $(srcdir)/genfun.o $(srcdir)/iff_uncert.o \ $(srcdir)/iff_plot.o $(srcdir)/iff_cursor.o $(srcdir)/feff_tables.o \ $(srcdir)/iff_unguess.o $(srcdir)/iff_window.o $(srcdir)/atomic.o lib_OBJECTS = $(IFF_OBJ) $(srcdir)/ifeffitc.o ifeffit_OBJECTS = $(cmndline_dir)/iff_shell.o autobk_OBJECTS = $(autobk_dir)/autobk.o $(autobk_dir)/misc_file.o \ $(autobk_dir)/setsys.o $(autobk_dir)/autint.o $(autobk_dir)/autinp.o \ $(autobk_dir)/getcom.o $(autobk_dir)/autdat.o $(autobk_dir)/autnls.o \ $(autobk_dir)/autfun.o $(autobk_dir)/autlog.o $(autobk_dir)/autout.o feffit_OBJECTS = $(feffit_dir)/feffit.o $(feffit_dir)/setsys.o \ $(feffit_dir)/messag.o $(feffit_dir)/fitint.o $(feffit_dir)/fitinp.o \ $(feffit_dir)/getcom.o $(feffit_dir)/openfl.o $(feffit_dir)/nxtunt.o \ $(feffit_dir)/getfln.o $(feffit_dir)/fixstr.o $(feffit_dir)/finmsg.o \ $(feffit_dir)/append.o $(feffit_dir)/misc.o $(feffit_dir)/testrf.o \ $(feffit_dir)/filrec.o $(feffit_dir)/encod.o $(feffit_dir)/enlib.o \ $(feffit_dir)/nbrstr.o $(feffit_dir)/fitdat.o $(feffit_dir)/fitchk.o \ $(feffit_dir)/chipth.o $(feffit_dir)/fixicd.o $(feffit_dir)/setval.o \ $(feffit_dir)/eval.o $(feffit_dir)/decod.o $(feffit_dir)/cordby.o \ $(feffit_dir)/sigms.o $(feffit_dir)/fefsrt.o $(feffit_dir)/fefinp.o \ $(feffit_dir)/rdffdt.o $(feffit_dir)/rdfb1.o $(feffit_dir)/fitck2.o \ $(feffit_dir)/fitnls.o $(feffit_dir)/fitfun.o $(feffit_dir)/fitlog.o \ $(feffit_dir)/fitprm.o $(feffit_dir)/wrtprm.o $(feffit_dir)/fitout.o \ $(feffit_dir)/xfsout.o diffkk_OBJECTS = $(diffkk_dir)/diffkk.o $(diffkk_dir)/lib.o \ $(diffkk_dir)/dkinp.o $(diffkk_dir)/str2at.o $(diffkk_dir)/dkfit.o \ $(diffkk_dir)/dkfcn.o $(diffkk_dir)/dklog.o feff6_OBJECTS = $(feff6_dir)/feff.o $(feff6_dir)/str.o \ $(feff6_dir)/rdinp.o $(feff6_dir)/chopen.o \ $(feff6_dir)/mkptz.o $(feff6_dir)/setgam.o \ $(feff6_dir)/terp.o $(feff6_dir)/potph.o \ $(feff6_dir)/rpotph.o $(feff6_dir)/rdhead.o \ $(feff6_dir)/atom.o $(feff6_dir)/indata.o \ $(feff6_dir)/getorb.o $(feff6_dir)/dirac.o \ $(feff6_dir)/inouh.o $(feff6_dir)/inth.o \ $(feff6_dir)/potsl.o $(feff6_dir)/somm.o \ $(feff6_dir)/totale.o $(feff6_dir)/cdsld.o \ $(feff6_dir)/ykdir.o $(feff6_dir)/renorm.o \ $(feff6_dir)/potslw.o $(feff6_dir)/ovrlp.o \ $(feff6_dir)/sumax.o $(feff6_dir)/frnrm.o \ $(feff6_dir)/istprm.o $(feff6_dir)/sidx.o \ $(feff6_dir)/istval.o $(feff6_dir)/fermi.o \ $(feff6_dir)/head.o $(feff6_dir)/wpot.o \ $(feff6_dir)/phmesh.o $(feff6_dir)/fixvar.o \ $(feff6_dir)/phase.o $(feff6_dir)/besjn.o \ $(feff6_dir)/bjnser.o $(feff6_dir)/xcpot.o \ $(feff6_dir)/rhl.o $(feff6_dir)/imhl.o \ $(feff6_dir)/ffq.o $(feff6_dir)/cubic.o \ $(feff6_dir)/quinn.o $(feff6_dir)/edp.o \ $(feff6_dir)/fovrg.o $(feff6_dir)/diff.o \ $(feff6_dir)/intpol.o $(feff6_dir)/wphase.o \ $(feff6_dir)/prcrit.o $(feff6_dir)/rphbin.o \ $(feff6_dir)/cpl0.o $(feff6_dir)/paths.o \ $(feff6_dir)/sortix.o $(feff6_dir)/ccrit.o \ $(feff6_dir)/mrb.o $(feff6_dir)/mcrith.o \ $(feff6_dir)/mcritk.o $(feff6_dir)/ipack.o \ $(feff6_dir)/heap.o $(feff6_dir)/pathsd.o \ $(feff6_dir)/timrep.o $(feff6_dir)/mpprmp.o \ $(feff6_dir)/phash.o $(feff6_dir)/outcrt.o \ $(feff6_dir)/strap.o $(feff6_dir)/mpprmd.o \ $(feff6_dir)/genfmt.o $(feff6_dir)/snlm.o \ $(feff6_dir)/rdpath.o $(feff6_dir)/setlam.o \ $(feff6_dir)/rot3i.o $(feff6_dir)/mmtr.o \ $(feff6_dir)/sclmz.o $(feff6_dir)/mmtrxi.o \ $(feff6_dir)/fmtrxi.o $(feff6_dir)/trap.o \ $(feff6_dir)/pijump.o $(feff6_dir)/ff2chi.o \ $(feff6_dir)/sigms.o $(feff6_dir)/dist.o \ $(feff6_dir)/sdist.o $(feff6_dir)/xx.o \ $(feff6_dir)/getxk.o $(feff6_dir)/dalp.o \ $(feff6_dir)/fpot.o $(feff6_dir)/exchan.o \ $(feff6_dir)/exchee.o $(feff6_dir)/pertab.o EL_DATAFILES = 04.dat 05.dat 06.dat 07.dat 08.dat 09.dat 10.dat 11.dat \ 12.dat 13.dat 14.dat 15.dat 16.dat 17.dat 18.dat 19.dat 20.dat \ 21.dat 22.dat 23.dat 24.dat 25.dat 26.dat 27.dat 28.dat 29.dat \ 30.dat 31.dat 32.dat 33.dat 34.dat 35.dat 36.dat 37.dat 38.dat \ 39.dat 40.dat 41.dat 42.dat 43.dat 44.dat 45.dat 46.dat 47.dat \ 48.dat 49.dat 50.dat 51.dat 52.dat 53.dat 54.dat 55.dat 56.dat \ 57.dat 58.dat 59.dat 60.dat 61.dat 62.dat 63.dat 64.dat 65.dat \ 66.dat 67.dat 68.dat 69.dat 70.dat 71.dat 72.dat 73.dat 74.dat \ 75.dat 76.dat 77.dat 78.dat 79.dat 80.dat 81.dat 82.dat 83.dat \ 84.dat 85.dat 86.dat 87.dat 88.dat 89.dat 90.dat 91.dat 92.dat $(HEADERS): $(SHELL) $(IFF_CONFIG) Config.mak: $(OBJECTS) @echo '#== Ifeffit build configuration:' > $@ @echo '# LIB_IFF = ifeffit library ' >> $@ @echo '# LIB_PLT = PGPLOT libraries' >> $@ @echo '# LIB_F77 = Fortran libraries' >> $@ @echo '# LIB_X11 = X Libaries' >> $@ @echo '# INC_IFF = location of ifeffit.h' >> $@ @echo 'LIB_IFF = -L$(prefix)/lib -lifeffit' >> $@ @echo 'LIB_PLT = $(PGPLOT_LIBS)' >> $@ @echo 'LIB_F77 = $(MN_FLIBS) ' >> $@ @echo 'INC_IFF = -I$(pkgdatadir)/config' >> $@ @echo '#== ' >> $@ @echo 'made $@' ## BR Mar 28 2002: I want to make a few comments on some cryptic crap ## I added to this target. The combination of explicitly setting ## LDDLFLAGS and adding perl's $Config{ldflags} to the value of LIBS ## is intended to move /usr/local/lib to a position after ## ../../src/lib in the command line argument to the linker. In this ## way the newly compiled libifeffit will be used in place of one that ## exists in the location of $Config{ldflags}. By default LDDLFLAGS ## will be set to $Config{lddlflags} which is "-shared " concatinated ## with $Config{ldflags}. The complicated join/sort/split thing is ## intended to offer a clumsy but servicable to solution to a mistake ## made by autoconf on many linux systems. Doing the join/sort/split ## thing will assure that the -l***'s will be placed after the -L***'s ## on the command line and the -lm will be placed after either -lg2c ## or -lf2c. Note that the join/sort/split could be fragile. Makefile.PL: Config.mak @echo '# -*-perl-*-' > $@ @echo '# Perl Makefile.PL auto-generated during Ifeffit build' >> $@ @echo '# This file may need some modifications, but should give' >> $@ @echo '# a good guess for how to build the Ifeffit extension.' >> $@ @echo '# ' >> $@ @echo "use lib '.';" >> $@ @echo "use ExtUtils::MakeMaker;" >> $@ @echo "use Config;" >> $@ @echo "WriteMakefile('NAME' => 'Ifeffit'," >> $@ @echo " 'SKIP' => ['test_dynamic']," >> $@ @echo " 'OBJECT' => 'ifeffit_wrap.o'," >> $@ @echo " 'INSTALLBIN' => '$(bindir)',">> $@ @echo " 'INSTALLSCRIPT' => '$(bindir)',">> $@ @echo " 'LDDLFLAGS' => '$(LDDLFLAGS_P5)'," >> $@ @echo " 'INC' => '-I../../src/lib -I$(pkgdatadir)/config'," >> $@ @echo " 'LIBS' =>[' -L../../src/lib '.\$$Config{ldflags}." >> $@ @echo " ' -lifeffit $(PGPLOT_LIBS) '." >> $@ @echo " join(\" \", (sort(split(\" \", \"$(MN_FLIBS)\" ))))] " >> $@ @echo " );" >> $@ @echo 'made $@' @cp $@ $(top_srcdir)/wrappers/perl/. # # python setup site_install.py: Config.mak @echo '# -*-python-*-' > $@ @echo '# Python site installation information' >> $@ @echo '# This file was auto-generated during the Ifeffit build' >> $@ @echo '# and may need some modifications.' >> $@ @echo '# ' >> $@ @echo 'bin_dir="$(bindir)"' > $@ @echo 'lib_iff="-L$(prefix)/lib -lifeffit "' >> $@ @echo 'lib_plt="$(PGPLOT_LIBS)"' >> $@ @echo 'lib_f77="$(MN_FLIBS) "' >> $@ @echo 'inc_iff="-I../../src/lib -I$(pkgdatadir)/config"' >> $@ @echo 'made $@' @cp $@ $(top_srcdir)/wrappers/python/. TclSetup.in: Config.mak @echo '# ' > $@ @echo '# Tcl Setup.in auto-generated during Ifeffit build' >> $@ @echo '# This file may need some modifications, but should give' >> $@ @echo '# a good guess for how to build the Ifeffit extension.' >> $@ @echo '# ' >> $@ @cat Config.mak >> $@ @echo 'LIB_IFF = -L../../src/lib -lifeffit ' >> $@ @echo 'INC_IFF = -I../../src/lib -I$(pkgdatadir)/config' >> $@ @echo 'CC = $(CCLD)' >> $@ @echo 'CFLAGS = $(CFLAGS)' >> $@ @echo 'LDFLAGS = $(LDFLAGS)' >> $@ @echo 'made $@' @cp $@ $(top_srcdir)/wrappers/tcl/. .f.o: $(F77) -o $@ -c $< %.o: %.c $(COMPILE) -o $@ -c $< libifeffit.a: $(lib_OBJECTS) -rm -f $@ $(AR) cru libifeffit.a $(lib_OBJECTS) $(RANLIB) libifeffit.a libxafs.a: $(XAFS_OBJ) -rm -f $@ $(AR) cru libxafs.a $(XAFS_OBJ) $(RANLIB) libxafs.a ifeffit: $(ifeffit_OBJECTS) libifeffit.a @rm -f $@ $(LINK) $(ifeffit_OBJECTS) libifeffit.a \ $(PGPLOT_LIBS) $(READLINE_LIBS) $(FLIBS) autobk: $(autobk_OBJECTS) libxafs.a @rm -f $@ $(F77LINK) $(autobk_OBJECTS) libxafs.a $(FLIBS) feffit: $(feffit_OBJECTS) libxafs.a @rm -f $@ $(F77LINK) $(feffit_OBJECTS) libxafs.a $(FLIBS) diffkk: $(diffkk_OBJECTS) libifeffit.a @rm -f $@ $(F77LINK) $(diffkk_OBJECTS) libifeffit.a \ $(PGPLOT_LIBS) $(FLIBS) feff6: $(feff6_OBJECTS) @rm -f $@ $(F77LINK) $(feff6_OBJECTS) $(FLIBS) install: all # libs $(mkinstalldirs) $(libdir) $(SET_DIR_PERM) $(libdir) @list='$(LIBRARIES)'; for p in $$list; do \ if test -f $$p; then \ echo "$(INSTALL_DATA) $$p $(libdir)/$$p"; \ $(INSTALL_DATA) $$p $(libdir)/$$p; \ $(RANLIB) $(libdir)/$$p; \ else :; fi; \ done # binaries $(mkinstalldirs) $(bindir) $(SET_DIR_PERM) $(bindir) @list='$(EXE)'; for p in $$list; do \ echo "$(INSTALL_EXE) $$p $(bindir)/$$p"; \ $(INSTALL_EXE) $$p $(bindir)/$$p; \ done # data files for base share data install $(mkinstalldirs) $(pkgdatadir) $(SET_DIR_PERM) $(pkgdatadir) @list='$(pkgdata_DATA)'; for p in $$list; do \ echo "$(INSTALL_DATA) $(srcdir)/$$p $(pkgdatadir)/$$p"; \ $(INSTALL_DATA) $(srcdir)/$$p $(pkgdatadir)/$$p; \ done # config files $(mkinstalldirs) $(pkgdatadir)/config $(SET_DIR_PERM) $(pkgdatadir)/config @list='$(pkgconfig_DATA)'; for p in $$list; do \ echo "$(INSTALL_DATA) $$p $(pkgdatadir)/config/$$p"; \ $(INSTALL_DATA) $$p $(pkgdatadir)/config/$$p; \ done # data files for CL and Feff Tables $(mkinstalldirs) $(pkgdatadir)/cldata $(mkinstalldirs) $(pkgdatadir)/fefftab $(SET_DIR_PERM) $(pkgdatadir)/cldata $(SET_DIR_PERM) $(pkgdatadir)/fefftab @echo "installing cldata and fefftab data" @list='$(EL_DATAFILES)'; for p in $$list; do \ $(INSTALL_DATA) ../cldata/$$p $(pkgdatadir)/cldata/$$p; \ $(INSTALL_DATA) ../fefftab/$$p $(pkgdatadir)/fefftab/$$p; \ done clean: -rm -f core $(LIBRARIES) $(EXE) $(CONFIG_TEMPLATES) @list='$(all_src_dirs)'; for p in $$list; do \ echo "rm -f $$p/*.o " ; \ rm -f $$p/*.o ; \ done ifeffit-1.2.11d/src/macosx/README.Readline0000644000175000017500000000262410771740457017053 0ustar segresegreNotes on the GNU Readline library: First, for MacOS X, the Makefile as supplied should work fine. This README is really for building on non MacOS X systems using this makefile. If you get errors in the Ifeffit build that look like this: .... cc -O2 -o ifeffit ../cmdline/iff_shell.o libifeffit.a \ -L/usr/local/pgplot -lpgplot -L/usr/lib -L/usr/local/lib -lpng .... ../cmdline/iff_shell.o: In function `ifeffit_completion': ../cmdline/iff_shell.o(.text+0x7ef): undefined reference to `rl_completion_matches' /usr/lib/libreadline.so: undefined reference to `tgetnum' /usr/lib/libreadline.so: undefined reference to `tgoto' /usr/lib/libreadline.so: undefined reference to `tgetflag' collect2: ld returned 1 exit status make: *** [ifeffit] Error 1 This almost certainly means that the GNU Readline Library is older than what ifeffit can use. You can either download and install the latest version (4.2) of the GNU Readline Library or do the following steps: 1. build a local copy of Readline: cd ../../readline configure ; make 2. use this local copy of Readline: edit Makefile to read: READLINE_FLAG = -DMY_READLINE READLINE_LIBS = ../../readline/libreadline.a -lncurses Actually, the '-lncurses' there might be replaced by '-lcurses' or '-ltermpcap' depending on your system. Try grep TERMCAP_LIB ../../readline/Makefile for hints. Then 'make' should work fine. ifeffit-1.2.11d/src/macosx/configure0000755000175000017500000001041210771740457016352 0ustar segresegre#!/bin/sh ## ## simple ifeffit configuration shell script: ## tasks: ## set prefix for installation ## get version number from Changelog ## get array size ## write maxpts.h and sys.h for ifeffit library ## package='ifeffit' prefix='/usr/local' pgdir='/usr/local/pgplot' xlibs='-L/usr/X11R6/lib -lX11' rllibs='-L/usr/lib/ -lreadline -lncurses' lddlflags_p5='-shared' arraysize='large' sys=`uname -s` case "$sys" in darwin | Darwin ) prefix='/sw' pgdir='/sw/lib/pgplot' xlibs='-L/usr/X11R6/lib -lX11 -framework Foundation -framework AppKit' rllibs='-L/usr/lib/ -L/sw/lib/ -lreadline -lncurses' lddlflags_p5='-flat_namespace -bundle -undefined suppress -L/usr/local/lib -framework Foundation -framework AppKit' ;; linux | Linux ) prefix='/usr/local' pgdir='/usr/local/pgplot' xlibs='-L/usr/X11R6/lib -lX11' rllibs='-L/usr/lib/ -lreadline -lncurses' lddlflags_p5='-shared' ;; esac srcdir='../lib' cright="Copyright (c) 2002 Matt Newville, Univ of Chicago" changelog='../../ChangeLog' version=`grep '* Version' $changelog | head -1| sed 's/[ ]*\* Version[ ]*//g' | sed 's/:.*//g'` # get command line options for opt ; do option='' case "$opt" in -*=*) optarg=`echo "$opt" | sed 's/[-_a-zA-Z0-9]*=//'` option=`echo "$opt" | sed 's/=.*//' | sed 's/-*//'` ;; *) option=`echo "$opt" | sed 's/^-*//'` optarg= ;; esac case "$option" in prefix) prefix=$optarg ;; arraysize) arraysize=$optarg ;; pgplot_dir) pgdir=$optarg ;; help) cat< $maxpts_h echo " integer maxpts, maxsize_array" >> $maxpts_h echo " parameter(maxsize_array = $size)" >> $maxpts_h echo " parameter(maxpts = maxsize_array)" >> $maxpts_h echo "c}" >> $maxpts_h echo "$size" > $srcdir/arrsize.dat fi ## ## write sys.h sys_h="$srcdir/sys.h" echo "c{sys.h -*-fortran-*- " > $sys_h echo "c system and build specific stuff goes here" >> $sys_h echo "c to be included in iff_config.f" >> $sys_h echo " sysdir = '$prefix/share/$package'" >> $sys_h echo " pgdev = '/xserve'" >> $sys_h echo " inifile= 'startup.iff .ifeffit'" >> $sys_h echo " build = '$version'//" >> $sys_h echo " $ ' $cright'" >> $sys_h echo "c}" >> $sys_h ## ## makefile='Makefile' echo '# This is an AUTOMATICALLY configured Makefile ' > $makefile echo '# running configure will OVERWRITE this file!!!' >>$makefile echo '' >>$makefile echo '#installation prefix' >>$makefile echo "prefix = $prefix" >>$makefile echo "# where pgplot library?" >>$makefile echo "PG_DIR = $pgdir" >>$makefile echo "" >>$makefile echo "# how do I link with Xlib?" >>$makefile echo "X_LIBS = $xlibs" >>$makefile echo "" >>$makefile echo "# set the load library flags (perl 5.8.0 specific??)" >>$makefile echo "LDDLFLAGS_P5 = $lddlflags_p5" >>$makefile echo "# set readline flags" >>$makefile echo "READLINE_LIBS = $rllibs" >>$makefile cat makefile.in >> $makefile echo "===" echo "=== $package $version Configuration Results for $sys:" echo "=== linking to PGPLOT in directory $pgdir" echo "===" echo "=== You may want to check the Makefile" echo "===" echo "=== then type 'make' then 'make install'" ifeffit-1.2.11d/src/macosx/README0000644000175000017500000000447110771740457015333 0ustar segresegre This directory contains OLD build instructions for ifeffit on Mac OS X. For most Mac OS X users, a binary installer is available. For OS X 10.2 and higher, the main source build system will work, as long as the prerequisites liare installed. Prerequsites: ------------- Getting ifeffit to run on MacOS X relies heavily on the Fink Project: http://fink.sourceforge.net/ You will need to download the Fink base system and some of its Unix-like extensions. The following 'Fink packages' are needed: pgplot f2c g77 readline xfree86-base xfree86-rootless (I think this is a complete list, but please let me know if I'm missing any). 'xfree86-server' can be used instead of '-rootless', but will not let you run XDarwin and Aqua at the same time. Fink strongly encourages you to install everything under the '/sw' directory. You will also need to install the 'Developer Tools' from the MacOS X 'Developer Disk'. Configuration and Build: ------------------------ Again, this is of historical interest only. Type './configure ; make'. This simplified version of configure takes the following options: --prefix=PREFIX base directory for installation --arraysize=ARRAYSIZE tiny,small,medium,large,huge --pgplot_dir=PGPLOT_DIR directory for PGPLOT --xlibs=XLIBS link directive for X Type './configure --help' to get a listing of the default values (as these will change depending on the system). If you installed Fink to somewhere other than '/sw', you may need to set '--prefix=...'. You may need to edit some of the top few lines of the Makefile. If you have troubles in this 'make' step, you might want to check that the file '../lib/sys.h' exists. Installation: ------------- Type 'sudo make install'. Building Extensions: -------------------- If python is installed (say, through Fink), then the python extension can be built as: cd ../../wrappers/python sudo python setup.py install This should be done after Ifeffit has been installed. This will also install the program gifeffit. If perl is installed, the perl extension can be built as: cd ../../wrappers/perl perl Makefile.PL sudo make install If perl/Tk is installed, this should abuild and install the athena program as well as the perl extension. Last update: 16-Dec-2002 MN ifeffit-1.2.11d/src/Feff6X/0000755000175000017500000000000011110327331014213 5ustar segresegreifeffit-1.2.11d/src/test/0000755000175000017500000000000011117272040014111 5ustar segresegreifeffit-1.2.11d/src/test/cu.xmu0000644000175000017500000004756110771740456015310 0ustar segresegre# Cu foil at 10K ## cu10k.dat : this file is part of the uwxafs 3.0 distribution # data taken at NSLS beamline X-11A Sept 1992 # by M Newville, B Ravel, and Y Zhang # foil of 99.999% Cu rolled and annealled to ~12 microns # sample prepared by M Newville # From X-11A : # 2-SI111 HC/2D= 1977.260 STPDEG=6400. STPMMZ= 40. # FOCUS=F TRANSLT=F E0= 8980.0 NREG= 3 NPTS= 611 NSCLRS= 3 EF= .0 # SRB= -193.7 -43.5 30.0 2381.3 # DEL= 10.020 .483 .050K # SEC= 1.000 1.000 1.000 # DETECTORSI0 I If # GAINS 8 7 10 # OFFSETS 51284 50016 48319 #--------------------------------------------------------------------- # energy xmu .8786204E+04 .1013661E+01 .8796258E+04 .9949864E+00 .8806253E+04 .9900679E+00 .8816270E+04 .9850345E+00 .8826270E+04 .9801005E+00 .8836292E+04 .9751812E+00 .8846337E+04 .9703809E+00 .8856322E+04 .9656931E+00 .8866372E+04 .9609839E+00 .8876361E+04 .9562312E+00 .8886416E+04 .9515597E+00 .8896409E+04 .9472797E+00 .8906425E+04 .9427789E+00 .8916464E+04 .9387816E+00 .8926483E+04 .9347627E+00 .8936483E+04 .9319326E+00 .8936998E+04 .9318979E+00 .8937471E+04 .9319605E+00 .8937944E+04 .9317057E+00 .8938417E+04 .9314675E+00 .8938976E+04 .9315093E+00 .8939406E+04 .9315045E+00 .8939878E+04 .9313901E+00 .8940352E+04 .9313291E+00 .8940824E+04 .9312409E+00 .8941384E+04 .9311222E+00 .8941814E+04 .9310213E+00 .8942287E+04 .9309021E+00 .8942761E+04 .9307298E+00 .8943319E+04 .9306122E+00 .8943793E+04 .9304990E+00 .8944224E+04 .9306326E+00 .8944697E+04 .9305469E+00 .8945257E+04 .9303982E+00 .8945730E+04 .9303880E+00 .8946204E+04 .9303346E+00 .8946635E+04 .9303558E+00 .8947108E+04 .9302956E+00 .8947668E+04 .9302498E+00 .8948143E+04 .9302464E+00 .8948616E+04 .9301887E+00 .8949048E+04 .9302589E+00 .8949564E+04 .9302350E+00 .8950038E+04 .9301157E+00 .8950513E+04 .9302852E+00 .8950987E+04 .9301982E+00 .8951461E+04 .9303481E+00 .8951979E+04 .9303330E+00 .8952453E+04 .9302519E+00 .8952927E+04 .9303452E+00 .8953401E+04 .9304274E+00 .8953876E+04 .9305623E+00 .8954394E+04 .9306202E+00 .8954868E+04 .9307082E+00 .8955343E+04 .9309137E+00 .8955817E+04 .9310440E+00 .8956336E+04 .9311512E+00 .8956811E+04 .9312306E+00 .8957285E+04 .9314795E+00 .8957761E+04 .9315805E+00 .8958235E+04 .9318467E+00 .8958710E+04 .9322639E+00 .8959229E+04 .9325585E+00 .8959703E+04 .9327140E+00 .8960179E+04 .9331298E+00 .8960654E+04 .9333592E+00 .8961130E+04 .9338366E+00 .8961647E+04 .9340628E+00 .8962123E+04 .9345798E+00 .8962599E+04 .9350846E+00 .8963074E+04 .9357670E+00 .8963550E+04 .9363439E+00 .8964068E+04 .9371685E+00 .8964544E+04 .9378253E+00 .8965020E+04 .9386100E+00 .8965496E+04 .9393651E+00 .8965972E+04 .9404053E+00 .8966447E+04 .9413668E+00 .8966967E+04 .9426652E+00 .8967442E+04 .9440842E+00 .8967919E+04 .9458520E+00 .8968395E+04 .9469061E+00 .8968871E+04 .9484839E+00 .8969347E+04 .9510049E+00 .8969909E+04 .9537250E+00 .8970386E+04 .9559226E+00 .8970862E+04 .9591411E+00 .8971339E+04 .9638383E+00 .8971772E+04 .9658701E+00 .8972248E+04 .9704646E+00 .8972812E+04 .9777987E+00 .8973288E+04 .9857215E+00 .8973765E+04 .9959283E+00 .8974198E+04 .1004012E+01 .8974675E+04 .1025727E+01 .8975151E+04 .1041380E+01 .8975628E+04 .1065133E+01 .8976192E+04 .1129467E+01 .8976626E+04 .1208882E+01 .8977103E+04 .1347811E+01 .8977580E+04 .1576825E+01 .8978057E+04 .1781245E+01 .8978534E+04 .1922731E+01 .8979055E+04 .1990812E+01 .8979531E+04 .2014387E+01 .8980009E+04 .2006267E+01 .8980486E+04 .1985342E+01 .8980964E+04 .1960698E+01 .8981441E+04 .1948155E+01 .8981919E+04 .1962577E+01 .8982396E+04 .1988741E+01 .8982918E+04 .2034157E+01 .8983396E+04 .2087115E+01 .8983873E+04 .2129985E+01 .8984352E+04 .2166079E+01 .8984829E+04 .2204677E+01 .8985307E+04 .2266785E+01 .8985785E+04 .2305345E+01 .8986307E+04 .2377522E+01 .8986784E+04 .2447587E+01 .8987263E+04 .2550736E+01 .8987741E+04 .2628802E+01 .8988219E+04 .2739306E+01 .8988697E+04 .2846921E+01 .8989176E+04 .2926129E+01 .8989653E+04 .3004384E+01 .8990132E+04 .3103122E+01 .8990698E+04 .3211040E+01 .8991133E+04 .3253994E+01 .8991611E+04 .3299688E+01 .8992090E+04 .3307443E+01 .8992568E+04 .3292812E+01 .8993048E+04 .3270622E+01 .8993526E+04 .3232157E+01 .8994006E+04 .3193880E+01 .8994484E+04 .3153873E+01 .8995007E+04 .3110148E+01 .8995485E+04 .3076609E+01 .8995965E+04 .3057663E+01 .8996444E+04 .3044436E+01 .8996924E+04 .3038896E+01 .8997402E+04 .3047299E+01 .8997882E+04 .3067514E+01 .8998361E+04 .3100560E+01 .8998840E+04 .3164385E+01 .8999319E+04 .3198286E+01 .8999799E+04 .3253436E+01 .9000366E+04 .3303922E+01 .9000803E+04 .3341708E+01 .9001281E+04 .3359158E+01 .9001762E+04 .3356086E+01 .9002241E+04 .3337021E+01 .9002721E+04 .3294590E+01 .9003201E+04 .3271427E+01 .9003681E+04 .3230007E+01 .9004161E+04 .3208134E+01 .9004642E+04 .3151590E+01 .9005121E+04 .3126171E+01 .9005602E+04 .3094709E+01 .9006125E+04 .3063252E+01 .9006605E+04 .3043238E+01 .9007086E+04 .3022431E+01 .9007566E+04 .2994922E+01 .9008047E+04 .2975828E+01 .9008526E+04 .2955377E+01 .9009007E+04 .2941575E+01 .9009487E+04 .2933227E+01 .9009969E+04 .2931259E+01 .9011062E+04 .2941681E+01 .9012153E+04 .2955967E+01 .9013246E+04 .2980734E+01 .9014384E+04 .3008692E+01 .9015565E+04 .3061603E+01 .9016746E+04 .3111765E+01 .9017928E+04 .3151268E+01 .9019154E+04 .3209008E+01 .9020380E+04 .3265456E+01 .9021606E+04 .3309451E+01 .9022877E+04 .3344066E+01 .9024191E+04 .3347933E+01 .9025464E+04 .3317408E+01 .9026822E+04 .3256685E+01 .9028140E+04 .3197553E+01 .9029499E+04 .3127461E+01 .9030903E+04 .3074151E+01 .9032309E+04 .3038878E+01 .9033759E+04 .3014589E+01 .9035164E+04 .3009469E+01 .9036615E+04 .3019048E+01 .9038109E+04 .3042527E+01 .9039604E+04 .3064316E+01 .9041145E+04 .3070378E+01 .9042642E+04 .3060592E+01 .9044271E+04 .3049929E+01 .9045768E+04 .3056479E+01 .9047397E+04 .3083377E+01 .9049029E+04 .3111159E+01 .9050616E+04 .3117680E+01 .9052336E+04 .3112090E+01 .9053969E+04 .3114585E+01 .9055646E+04 .3135969E+01 .9057324E+04 .3166758E+01 .9059047E+04 .3194733E+01 .9060814E+04 .3212787E+01 .9062627E+04 .3230845E+01 .9064353E+04 .3252570E+01 .9066166E+04 .3285908E+01 .9067981E+04 .3320478E+01 .9069842E+04 .3347080E+01 .9071702E+04 .3347973E+01 .9073563E+04 .3322422E+01 .9075470E+04 .3270037E+01 .9077377E+04 .3199704E+01 .9079329E+04 .3141443E+01 .9081283E+04 .3096301E+01 .9083237E+04 .3056642E+01 .9085281E+04 .3035020E+01 .9087237E+04 .3030587E+01 .9089283E+04 .3008554E+01 .9091330E+04 .2954597E+01 .9093378E+04 .2905036E+01 .9095472E+04 .2869176E+01 .9097610E+04 .2861018E+01 .9099705E+04 .2881511E+01 .9101847E+04 .2917772E+01 .9104033E+04 .2965204E+01 .9106221E+04 .3017964E+01 .9108409E+04 .3067991E+01 .9110644E+04 .3100566E+01 .9112879E+04 .3107379E+01 .9115160E+04 .3090957E+01 .9117398E+04 .3071216E+01 .9119728E+04 .3065036E+01 .9122057E+04 .3105295E+01 .9124389E+04 .3203622E+01 .9126721E+04 .3327629E+01 .9129099E+04 .3390544E+01 .9131478E+04 .3393080E+01 .9133904E+04 .3363564E+01 .9136331E+04 .3334324E+01 .9138805E+04 .3300580E+01 .9141279E+04 .3238897E+01 .9143756E+04 .3156461E+01 .9146233E+04 .3055825E+01 .9148803E+04 .2946566E+01 .9151328E+04 .2839257E+01 .9153899E+04 .2747080E+01 .9156474E+04 .2689709E+01 .9159094E+04 .2682628E+01 .9161716E+04 .2730871E+01 .9164339E+04 .2816572E+01 .9167009E+04 .2917572E+01 .9169681E+04 .3016081E+01 .9172399E+04 .3080977E+01 .9175074E+04 .3115732E+01 .9177842E+04 .3108910E+01 .9180564E+04 .3070012E+01 .9183381E+04 .3033550E+01 .9186153E+04 .3015555E+01 .9188973E+04 .3007977E+01 .9191794E+04 .2979829E+01 .9194663E+04 .2938781E+01 .9197533E+04 .2929960E+01 .9200406E+04 .2976179E+01 .9203326E+04 .3073268E+01 .9206247E+04 .3170151E+01 .9209217E+04 .3203155E+01 .9212143E+04 .3206142E+01 .9215115E+04 .3190300E+01 .9218183E+04 .3147204E+01 .9221160E+04 .3071421E+01 .9224185E+04 .2977321E+01 .9227258E+04 .2889161E+01 .9230333E+04 .2822056E+01 .9233502E+04 .2781351E+01 .9236581E+04 .2763039E+01 .9239755E+04 .2769146E+01 .9242838E+04 .2800158E+01 .9246016E+04 .2822845E+01 .9249196E+04 .2821907E+01 .9252425E+04 .2826751E+01 .9255655E+04 .2834598E+01 .9258889E+04 .2837595E+01 .9262171E+04 .2852731E+01 .9265454E+04 .2884891E+01 .9268787E+04 .2914335E+01 .9272122E+04 .2934046E+01 .9275459E+04 .2943820E+01 .9278800E+04 .2944769E+01 .9282188E+04 .2942882E+01 .9285580E+04 .2952354E+01 .9289021E+04 .2967295E+01 .9292465E+04 .2986871E+01 .9295910E+04 .3003432E+01 .9299404E+04 .2981879E+01 .9302949E+04 .2933500E+01 .9306403E+04 .2889045E+01 .9309953E+04 .2840568E+01 .9313506E+04 .2796097E+01 .9317061E+04 .2775838E+01 .9320666E+04 .2781760E+01 .9324320E+04 .2801508E+01 .9327932E+04 .2816890E+01 .9331592E+04 .2803144E+01 .9335256E+04 .2763032E+01 .9338922E+04 .2711823E+01 .9342639E+04 .2687955E+01 .9346358E+04 .2711813E+01 .9350128E+04 .2737134E+01 .9353900E+04 .2737934E+01 .9357677E+04 .2748922E+01 .9361455E+04 .2765675E+01 .9365285E+04 .2773098E+01 .9369165E+04 .2781047E+01 .9373048E+04 .2789819E+01 .9376840E+04 .2797477E+01 .9380777E+04 .2804734E+01 .9384671E+04 .2809786E+01 .9388614E+04 .2812114E+01 .9392563E+04 .2813700E+01 .9396561E+04 .2814358E+01 .9400515E+04 .2809979E+01 .9404567E+04 .2793399E+01 .9408576E+04 .2760490E+01 .9412637E+04 .2718249E+01 .9416700E+04 .2683656E+01 .9420768E+04 .2671065E+01 .9424935E+04 .2671632E+01 .9429010E+04 .2681260E+01 .9433184E+04 .2696438E+01 .9437313E+04 .2704987E+01 .9441495E+04 .2701200E+01 .9445729E+04 .2686653E+01 .9449966E+04 .2657398E+01 .9454208E+04 .2628573E+01 .9458453E+04 .2623585E+01 .9462702E+04 .2633209E+01 .9467004E+04 .2630277E+01 .9471358E+04 .2616724E+01 .9475668E+04 .2610234E+01 .9480029E+04 .2609877E+01 .9484396E+04 .2618066E+01 .9488814E+04 .2632820E+01 .9493189E+04 .2645850E+01 .9497665E+04 .2661480E+01 .9502097E+04 .2680759E+01 .9506581E+04 .2696983E+01 .9511118E+04 .2702235E+01 .9515563E+04 .2694176E+01 .9520109E+04 .2669260E+01 .9524611E+04 .2625398E+01 .9529265E+04 .2580381E+01 .9533775E+04 .2561563E+01 .9538438E+04 .2556394E+01 .9543007E+04 .2555007E+01 .9547679E+04 .2552842E+01 .9552306E+04 .2553917E+01 .9556986E+04 .2558074E+01 .9561673E+04 .2558972E+01 .9566462E+04 .2552003E+01 .9571157E+04 .2546721E+01 .9575956E+04 .2543460E+01 .9580661E+04 .2535349E+01 .9585470E+04 .2517931E+01 .9590283E+04 .2509453E+01 .9595102E+04 .2508878E+01 .9599976E+04 .2507338E+01 .9604854E+04 .2511822E+01 .9609737E+04 .2515893E+01 .9614625E+04 .2514758E+01 .9619568E+04 .2514053E+01 .9624518E+04 .2518860E+01 .9629471E+04 .2526326E+01 .9634431E+04 .2524162E+01 .9639445E+04 .2515393E+01 .9644466E+04 .2505588E+01 .9649541E+04 .2495945E+01 .9654571E+04 .2489619E+01 .9659708E+04 .2480515E+01 .9664750E+04 .2465866E+01 .9669847E+04 .2454911E+01 .9675001E+04 .2448600E+01 .9680159E+04 .2444625E+01 .9685324E+04 .2444391E+01 .9690545E+04 .2438542E+01 .9695722E+04 .2425891E+01 .9700953E+04 .2421363E+01 .9706243E+04 .2420298E+01 .9711486E+04 .2415727E+01 .9716788E+04 .2406582E+01 .9722094E+04 .2399528E+01 .9727407E+04 .2394548E+01 .9732776E+04 .2385773E+01 .9738204E+04 .2384001E+01 .9743535E+04 .2385557E+01 .9748923E+04 .2387176E+01 .9754317E+04 .2393320E+01 .9759769E+04 .2393286E+01 .9765227E+04 .2390265E+01 .9770742E+04 .2386799E+01 .9776212E+04 .2377775E+01 .9781793E+04 .2363987E+01 .9787275E+04 .2354141E+01 .9792816E+04 .2352211E+01 .9798416E+04 .2352589E+01 .9804022E+04 .2351565E+01 .9809584E+04 .2349586E+01 .9815254E+04 .2343184E+01 .9820880E+04 .2331066E+01 .9826564E+04 .2319885E+01 .9832308E+04 .2309800E+01 .9837953E+04 .2302536E+01 .9843659E+04 .2298680E+01 .9849422E+04 .2294200E+01 .9855192E+04 .2287658E+01 .9860971E+04 .2282896E+01 .9866755E+04 .2277700E+01 .9872600E+04 .2273120E+01 .9878450E+04 .2271066E+01 .9884310E+04 .2266972E+01 .9890175E+04 .2263576E+01 .9896100E+04 .2263998E+01 .9901980E+04 .2264150E+01 .9907920E+04 .2261573E+01 .9913867E+04 .2257439E+01 .9919876E+04 .2252447E+01 .9925838E+04 .2245956E+01 .9931859E+04 .2240462E+01 .9937890E+04 .2235462E+01 .9943980E+04 .2228760E+01 .9950025E+04 .2219993E+01 .9956132E+04 .2213546E+01 .9962300E+04 .2207783E+01 .9968367E+04 .2204902E+01 .9974497E+04 .2202134E+01 .9980687E+04 .2199268E+01 .9986832E+04 .2191243E+01 .9993038E+04 .2184893E+01 .9999253E+04 .2181988E+01 .1000553E+05 .2175889E+01 .1001176E+05 .2168400E+01 .1001805E+05 .2161425E+01 .1002435E+05 .2155688E+01 .1003066E+05 .2151178E+01 .1003703E+05 .2145570E+01 .1004336E+05 .2139351E+01 .1004974E+05 .2135055E+01 .1005614E+05 .2131782E+01 .1006254E+05 .2131762E+01 .1006896E+05 .2132080E+01 .1007543E+05 .2127986E+01 .1008192E+05 .2122787E+01 .1008846E+05 .2116560E+01 .1009491E+05 .2112059E+01 .1010142E+05 .2107203E+01 .1010794E+05 .2101453E+01 .1011452E+05 .2094787E+01 .1012111E+05 .2089134E+01 .1012771E+05 .2082759E+01 .1013432E+05 .2078182E+01 .1014105E+05 .2073463E+01 .1014768E+05 .2068076E+01 .1015431E+05 .2063473E+01 .1016101E+05 .2061048E+01 .1016778E+05 .2055853E+01 .1017449E+05 .2049533E+01 .1018128E+05 .2042940E+01 .1018807E+05 .2036571E+01 .1019482E+05 .2031228E+01 .1020163E+05 .2026054E+01 .1020845E+05 .2021201E+01 .1021528E+05 .2017216E+01 .1022217E+05 .2014019E+01 .1022913E+05 .2011350E+01 .1023599E+05 .2007960E+01 .1024286E+05 .2003555E+01 .1024985E+05 .1997455E+01 .1025679E+05 .1991910E+01 .1026380E+05 .1988298E+01 .1027082E+05 .1983455E+01 .1027785E+05 .1978791E+01 .1028489E+05 .1974810E+01 .1029188E+05 .1969660E+01 .1029905E+05 .1964434E+01 .1030612E+05 .1960277E+01 .1031320E+05 .1955222E+01 .1032041E+05 .1949610E+01 .1032750E+05 .1943582E+01 .1033473E+05 .1937461E+01 .1034185E+05 .1931902E+01 .1034909E+05 .1926781E+01 .1035635E+05 .1922293E+01 .1036361E+05 .1918179E+01 .1037089E+05 .1913225E+01 .1037817E+05 .1908101E+01 .1038547E+05 .1902590E+01 .1039278E+05 .1897350E+01 .1040010E+05 .1892302E+01 .1040748E+05 .1888240E+01 .1041482E+05 .1884945E+01 .1042223E+05 .1880880E+01 .1042965E+05 .1875209E+01 .1043714E+05 .1869117E+01 .1044458E+05 .1864810E+01 .1045203E+05 .1859730E+01 .1045955E+05 .1854703E+01 .1046708E+05 .1850927E+01 .1047463E+05 .1846062E+01 .1048218E+05 .1841454E+01 .1048975E+05 .1836949E+01 .1049732E+05 .1832029E+01 .1050497E+05 .1827266E+01 .1051257E+05 .1822091E+01 .1052024E+05 .1816615E+01 .1052792E+05 .1811286E+01 .1053562E+05 .1806091E+01 .1054332E+05 .1801056E+01 .1055104E+05 .1795975E+01 .1055877E+05 .1790457E+01 .1056650E+05 .1784985E+01 .1057432E+05 .1779817E+01 .1058220E+05 .1774830E+01 .1058991E+05 .1770077E+01 .1059776E+05 .1765584E+01 .1060562E+05 .1761346E+01 .1061355E+05 .1756188E+01 .1062143E+05 .1751146E+01 .1062933E+05 .1745866E+01 .1063730E+05 .1741325E+01 .1064521E+05 .1736995E+01 .1065321E+05 .1732137E+01 .1066121E+05 .1727265E+01 .1066923E+05 .1722011E+01 .1067726E+05 .1716960E+01 .1068530E+05 .1711949E+01 .1069335E+05 .1707255E+01 .1070154E+05 .1702657E+01 .1070956E+05 .1698036E+01 .1071771E+05 .1692923E+01 .1072581E+05 .1688424E+01 .1073399E+05 .1683495E+01 .1074224E+05 .1678441E+01 .1075038E+05 .1673326E+01 .1075860E+05 .1668216E+01 .1076683E+05 .1662904E+01 .1077514E+05 .1657390E+01 .1078339E+05 .1652672E+01 .1079172E+05 .1647545E+01 .1080000E+05 .1642962E+01 .1080836E+05 .1638716E+01 .1081673E+05 .1634322E+01 .1082505E+05 .1629474E+01 .1083345E+05 .1624254E+01 .1084186E+05 .1619885E+01 .1085041E+05 .1614815E+01 .1085878E+05 .1610030E+01 .1086723E+05 .1605274E+01 .1087576E+05 .1600137E+01 .1088423E+05 .1595601E+01 .1089285E+05 .1590329E+01 .1090129E+05 .1585683E+01 .1090994E+05 .1580797E+01 .1091847E+05 .1576162E+01 .1092708E+05 .1571243E+01 .1093570E+05 .1566459E+01 .1094440E+05 .1561783E+01 .1095299E+05 .1556788E+01 .1096165E+05 .1551967E+01 .1097040E+05 .1546871E+01 .1097909E+05 .1541756E+01 .1098786E+05 .1536987E+01 .1099665E+05 .1531856E+01 .1100532E+05 .1527318E+01 .1101414E+05 .1522359E+01 .1102297E+05 .1517451E+01 .1103181E+05 .1512805E+01 .1104067E+05 .1507971E+01 .1104954E+05 .1503313E+01 .1105843E+05 .1498878E+01 .1106733E+05 .1493591E+01 .1107625E+05 .1489248E+01 .1108518E+05 .1484389E+01 .1109412E+05 .1479586E+01 .1110315E+05 .1475953E+01 .1111213E+05 .1470389E+01 .1112125E+05 .1465458E+01 .1113019E+05 .1460824E+01 .1113934E+05 .1456106E+01 .1114838E+05 .1451418E+01 .1115743E+05 .1446648E+01 .1116656E+05 .1441941E+01 .1117578E+05 .1437189E+01 .1118487E+05 .1432610E+01 .1119405E+05 .1427790E+01 .1120331E+05 .1422876E+01 .1121245E+05 .1418740E+01 .1122168E+05 .1413546E+01 .1123098E+05 .1408856E+01 .1124017E+05 .1404290E+01 .1124951E+05 .1399685E+01 .1125880E+05 .1395006E+01 .1126817E+05 .1390236E+01 .1127755E+05 .1385646E+01 .1128682E+05 .1381390E+01 .1129624E+05 .1376596E+01 .1130560E+05 .1371654E+01 .1131505E+05 .1367242E+01 .1132452E+05 .1362544E+01 .1133393E+05 .1358360E+01 .1134343E+05 .1353479E+01 .1135294E+05 .1349326E+01 .1136247E+05 .1344309E+01 ifeffit-1.2.11d/src/test/f2c.h0000644000175000017500000002503110771740456014755 0ustar segresegre/* f2c.h -- Standard Fortran to C header file */ /** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ #ifndef F2C_INCLUDE #define F2C_INCLUDE typedef int integer; /* This is 'long int' in the standard distribution */ typedef unsigned long uinteger; typedef char *address; typedef short int shortint; typedef float real; typedef double doublereal; typedef struct { real r, i; } complex; typedef struct { doublereal r, i; } doublecomplex; typedef long int logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; #if 0 /* Adjust for integer*8. */ typedef long long longint; /* system-dependent */ typedef unsigned long long ulongint; /* system-dependent */ #define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) #define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) #endif #define TRUE_ (1) #define FALSE_ (0) /* Extern is for use with -E */ #ifndef Extern #define Extern extern #endif /* I/O stuff */ #ifdef f2c_i2 /* for -i2 */ typedef short flag; typedef short ftnlen; typedef short ftnint; #else typedef long int flag; typedef long int ftnlen; typedef long int ftnint; #endif /*external read, write*/ typedef struct { flag cierr; ftnint ciunit; flag ciend; char *cifmt; ftnint cirec; } cilist; /*internal read, write*/ typedef struct { flag icierr; char *iciunit; flag iciend; char *icifmt; ftnint icirlen; ftnint icirnum; } icilist; /*open*/ typedef struct { flag oerr; ftnint ounit; char *ofnm; ftnlen ofnmlen; char *osta; char *oacc; char *ofm; ftnint orl; char *oblnk; } olist; /*close*/ typedef struct { flag cerr; ftnint cunit; char *csta; } cllist; /*rewind, backspace, endfile*/ typedef struct { flag aerr; ftnint aunit; } alist; /* inquire */ typedef struct { flag inerr; ftnint inunit; char *infile; ftnlen infilen; ftnint *inex; /*parameters in standard's order*/ ftnint *inopen; ftnint *innum; ftnint *innamed; char *inname; ftnlen innamlen; char *inacc; ftnlen inacclen; char *inseq; ftnlen inseqlen; char *indir; ftnlen indirlen; char *infmt; ftnlen infmtlen; char *inform; ftnint informlen; char *inunf; ftnlen inunflen; ftnint *inrecl; ftnint *innrec; char *inblank; ftnlen inblanklen; } inlist; #define VOID void union Multitype { /* for multiple entry points */ integer1 g; shortint h; integer i; /* longint j; */ real r; doublereal d; complex c; doublecomplex z; }; typedef union Multitype Multitype; /*typedef long int Long;*/ /* No longer used; formerly in Namelist */ struct Vardesc { /* for Namelist */ char *name; char *addr; ftnlen *dims; int type; }; typedef struct Vardesc Vardesc; struct Namelist { char *name; Vardesc **vars; int nvars; }; typedef struct Namelist Namelist; #define abs(x) ((x) >= 0 ? (x) : -(x)) #define dabs(x) (doublereal)abs(x) #define min(a,b) ((a) <= (b) ? (a) : (b)) #define max(a,b) ((a) >= (b) ? (a) : (b)) #define dmin(a,b) (doublereal)min(a,b) #define dmax(a,b) (doublereal)max(a,b) #define bit_test(a,b) ((a) >> (b) & 1) #define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) #define bit_set(a,b) ((a) | ((uinteger)1 << (b))) /* procedure parameter types for -A and -C++ */ #define F2C_proc_par_types 1 #ifdef __cplusplus typedef int /* Unknown procedure type */ (*U_fp)(...); typedef shortint (*J_fp)(...); typedef integer (*I_fp)(...); typedef real (*R_fp)(...); typedef doublereal (*D_fp)(...), (*E_fp)(...); typedef /* Complex */ VOID (*C_fp)(...); typedef /* Double Complex */ VOID (*Z_fp)(...); typedef logical (*L_fp)(...); typedef shortlogical (*K_fp)(...); typedef /* Character */ VOID (*H_fp)(...); typedef /* Subroutine */ int (*S_fp)(...); #else typedef int /* Unknown procedure type */ (*U_fp)(); typedef shortint (*J_fp)(); typedef integer (*I_fp)(); typedef real (*R_fp)(); typedef doublereal (*D_fp)(), (*E_fp)(); typedef /* Complex */ VOID (*C_fp)(); typedef /* Double Complex */ VOID (*Z_fp)(); typedef logical (*L_fp)(); typedef shortlogical (*K_fp)(); typedef /* Character */ VOID (*H_fp)(); typedef /* Subroutine */ int (*S_fp)(); #endif /* E_fp is for real functions when -R is not specified */ typedef VOID C_f; /* complex function */ typedef VOID H_f; /* character function */ typedef VOID Z_f; /* double complex function */ typedef doublereal E_f; /* real function with -R not specified */ /* undef any lower-case symbols that your C compiler predefines, e.g.: */ #ifndef Skip_f2c_Undefs #undef cray #undef gcos #undef mc68010 #undef mc68020 #undef mips #undef pdp11 #undef sgi #undef sparc #undef sun #undef sun2 #undef sun3 #undef sun4 #undef u370 #undef u3b #undef u3b2 #undef u3b5 #undef unix #undef vax #endif #endif /* If you are using a C++ compiler, append the following to f2c.h for compiling libF77 and libI77. */ #ifdef __cplusplus extern "C" { extern int abort_(void); extern double c_abs(complex *); extern void c_cos(complex *, complex *); extern void c_div(complex *, complex *, complex *); extern void c_exp(complex *, complex *); extern void c_log(complex *, complex *); extern void c_sin(complex *, complex *); extern void c_sqrt(complex *, complex *); extern double d_abs(double *); extern double d_acos(double *); extern double d_asin(double *); extern double d_atan(double *); extern double d_atn2(double *, double *); extern void d_cnjg(doublecomplex *, doublecomplex *); extern double d_cos(double *); extern double d_cosh(double *); extern double d_dim(double *, double *); extern double d_exp(double *); extern double d_imag(doublecomplex *); extern double d_int(double *); extern double d_lg10(double *); extern double d_log(double *); extern double d_mod(double *, double *); extern double d_nint(double *); extern double d_prod(float *, float *); extern double d_sign(double *, double *); extern double d_sin(double *); extern double d_sinh(double *); extern double d_sqrt(double *); extern double d_tan(double *); extern double d_tanh(double *); extern double derf_(double *); extern double derfc_(double *); extern integer do_fio(ftnint *, char *, ftnlen); extern integer do_lio(ftnint *, ftnint *, char *, ftnlen); extern integer do_uio(ftnint *, char *, ftnlen); extern integer e_rdfe(void); extern integer e_rdue(void); extern integer e_rsfe(void); extern integer e_rsfi(void); extern integer e_rsle(void); extern integer e_rsli(void); extern integer e_rsue(void); extern integer e_wdfe(void); extern integer e_wdue(void); extern integer e_wsfe(void); extern integer e_wsfi(void); extern integer e_wsle(void); extern integer e_wsli(void); extern integer e_wsue(void); extern int ef1asc_(ftnint *, ftnlen *, ftnint *, ftnlen *); extern integer ef1cmc_(ftnint *, ftnlen *, ftnint *, ftnlen *); extern double erf(double); extern double erf_(float *); extern double erfc(double); extern double erfc_(float *); extern integer f_back(alist *); extern integer f_clos(cllist *); extern integer f_end(alist *); extern void f_exit(void); extern integer f_inqu(inlist *); extern integer f_open(olist *); extern integer f_rew(alist *); extern int flush_(void); extern void getarg_(integer *, char *, ftnlen); extern void getenv_(char *, char *, ftnlen, ftnlen); extern short h_abs(short *); extern short h_dim(short *, short *); extern short h_dnnt(double *); extern short h_indx(char *, char *, ftnlen, ftnlen); extern short h_len(char *, ftnlen); extern short h_mod(short *, short *); extern short h_nint(float *); extern short h_sign(short *, short *); extern short hl_ge(char *, char *, ftnlen, ftnlen); extern short hl_gt(char *, char *, ftnlen, ftnlen); extern short hl_le(char *, char *, ftnlen, ftnlen); extern short hl_lt(char *, char *, ftnlen, ftnlen); extern integer i_abs(integer *); extern integer i_dim(integer *, integer *); extern integer i_dnnt(double *); extern integer i_indx(char *, char *, ftnlen, ftnlen); extern integer i_len(char *, ftnlen); extern integer i_mod(integer *, integer *); extern integer i_nint(float *); extern integer i_sign(integer *, integer *); extern integer iargc_(void); extern ftnlen l_ge(char *, char *, ftnlen, ftnlen); extern ftnlen l_gt(char *, char *, ftnlen, ftnlen); extern ftnlen l_le(char *, char *, ftnlen, ftnlen); extern ftnlen l_lt(char *, char *, ftnlen, ftnlen); extern void pow_ci(complex *, complex *, integer *); extern double pow_dd(double *, double *); extern double pow_di(double *, integer *); extern short pow_hh(short *, shortint *); extern integer pow_ii(integer *, integer *); extern double pow_ri(float *, integer *); extern void pow_zi(doublecomplex *, doublecomplex *, integer *); extern void pow_zz(doublecomplex *, doublecomplex *, doublecomplex *); extern double r_abs(float *); extern double r_acos(float *); extern double r_asin(float *); extern double r_atan(float *); extern double r_atn2(float *, float *); extern void r_cnjg(complex *, complex *); extern double r_cos(float *); extern double r_cosh(float *); extern double r_dim(float *, float *); extern double r_exp(float *); extern double r_imag(complex *); extern double r_int(float *); extern double r_lg10(float *); extern double r_log(float *); extern double r_mod(float *, float *); extern double r_nint(float *); extern double r_sign(float *, float *); extern double r_sin(float *); extern double r_sinh(float *); extern double r_sqrt(float *); extern double r_tan(float *); extern double r_tanh(float *); extern void s_cat(char *, char **, integer *, integer *, ftnlen); extern integer s_cmp(char *, char *, ftnlen, ftnlen); extern void s_copy(char *, char *, ftnlen, ftnlen); extern int s_paus(char *, ftnlen); extern integer s_rdfe(cilist *); extern integer s_rdue(cilist *); extern integer s_rnge(char *, integer, char *, integer); extern integer s_rsfe(cilist *); extern integer s_rsfi(icilist *); extern integer s_rsle(cilist *); extern integer s_rsli(icilist *); extern integer s_rsne(cilist *); extern integer s_rsni(icilist *); extern integer s_rsue(cilist *); extern int s_stop(char *, ftnlen); extern integer s_wdfe(cilist *); extern integer s_wdue(cilist *); extern integer s_wsfe(cilist *); extern integer s_wsfi(icilist *); extern integer s_wsle(cilist *); extern integer s_wsli(icilist *); extern integer s_wsne(cilist *); extern integer s_wsni(icilist *); extern integer s_wsue(cilist *); extern void sig_die(char *, int); extern integer signal_(integer *, void (*)(int)); extern integer system_(char *, ftnlen); extern double z_abs(doublecomplex *); extern void z_cos(doublecomplex *, doublecomplex *); extern void z_div(doublecomplex *, doublecomplex *, doublecomplex *); extern void z_exp(doublecomplex *, doublecomplex *); extern void z_log(doublecomplex *, doublecomplex *); extern void z_sin(doublecomplex *, doublecomplex *); extern void z_sqrt(doublecomplex *, doublecomplex *); } #endif ifeffit-1.2.11d/src/test/cu_out.xmu0000644000175000017500000004375710771740456016202 0ustar segresegre# Cu foil at 10K # # cu10k.dat : this file is part of the uwxafs 3.0 distribution # data taken at NSLS beamline X-11A Sept 1992 # by M Newville, B Ravel, and Y Zhang # foil of 99.999% Cu rolled and annealled to ~12 microns # sample prepared by M Newville # From X-11A : # 2-SI111 HC/2D= 1977.260 STPDEG=6400. STPMMZ= 40. # FOCUS=F TRANSLT=F E0= 8980.0 NREG= 3 NPTS= 611 NSCLRS= 3 EF= .0 # SRB= -193.7 -43.5 30.0 2381.3 # DEL= 10.020 .483 .050K # SEC= 1.000 1.000 1.000 # DETECTORSI0 I If # GAINS 8 7 10 # OFFSETS 51284 50016 48319 #------------------------ # energy xmu 8786.2040 1.0136610 8796.2580 0.99498640 8806.2530 0.99006790 8816.2700 0.98503450 8826.2700 0.98010050 8836.2920 0.97518120 8846.3370 0.97038090 8856.3220 0.96569310 8866.3720 0.96098390 8876.3610 0.95623120 8886.4160 0.95155970 8896.4090 0.94727970 8906.4250 0.94277890 8916.4640 0.93878160 8926.4830 0.93476270 8936.4830 0.93193260 8936.9980 0.93189790 8937.4710 0.93196050 8937.9440 0.93170570 8938.4170 0.93146750 8938.9760 0.93150930 8939.4060 0.93150450 8939.8780 0.93139010 8940.3520 0.93132910 8940.8240 0.93124090 8941.3840 0.93112220 8941.8140 0.93102130 8942.2870 0.93090210 8942.7610 0.93072980 8943.3190 0.93061220 8943.7930 0.93049900 8944.2240 0.93063260 8944.6970 0.93054690 8945.2570 0.93039820 8945.7300 0.93038800 8946.2040 0.93033460 8946.6350 0.93035580 8947.1080 0.93029560 8947.6680 0.93024980 8948.1430 0.93024640 8948.6160 0.93018870 8949.0480 0.93025890 8949.5640 0.93023500 8950.0380 0.93011570 8950.5130 0.93028520 8950.9870 0.93019820 8951.4610 0.93034810 8951.9790 0.93033300 8952.4530 0.93025190 8952.9270 0.93034520 8953.4010 0.93042740 8953.8760 0.93056230 8954.3940 0.93062020 8954.8680 0.93070820 8955.3430 0.93091370 8955.8170 0.93104400 8956.3360 0.93115120 8956.8110 0.93123060 8957.2850 0.93147950 8957.7610 0.93158050 8958.2350 0.93184670 8958.7100 0.93226390 8959.2290 0.93255850 8959.7030 0.93271400 8960.1790 0.93312980 8960.6540 0.93335920 8961.1300 0.93383660 8961.6470 0.93406280 8962.1230 0.93457980 8962.5990 0.93508460 8963.0740 0.93576700 8963.5500 0.93634390 8964.0680 0.93716850 8964.5440 0.93782530 8965.0200 0.93861000 8965.4960 0.93936510 8965.9720 0.94040530 8966.4470 0.94136680 8966.9670 0.94266520 8967.4420 0.94408420 8967.9190 0.94585200 8968.3950 0.94690610 8968.8710 0.94848390 8969.3470 0.95100490 8969.9090 0.95372500 8970.3860 0.95592260 8970.8620 0.95914110 8971.3390 0.96383830 8971.7720 0.96587010 8972.2480 0.97046460 8972.8120 0.97779870 8973.2880 0.98572150 8973.7650 0.99592830 8974.1980 1.0040120 8974.6750 1.0257270 8975.1510 1.0413800 8975.6280 1.0651330 8976.1920 1.1294670 8976.6260 1.2088820 8977.1030 1.3478110 8977.5800 1.5768250 8978.0570 1.7812450 8978.5340 1.9227310 8979.0550 1.9908120 8979.5310 2.0143870 8980.0090 2.0062670 8980.4860 1.9853420 8980.9640 1.9606980 8981.4410 1.9481550 8981.9190 1.9625770 8982.3960 1.9887410 8982.9180 2.0341570 8983.3960 2.0871150 8983.8730 2.1299850 8984.3520 2.1660790 8984.8290 2.2046770 8985.3070 2.2667850 8985.7850 2.3053450 8986.3070 2.3775220 8986.7840 2.4475870 8987.2630 2.5507360 8987.7410 2.6288020 8988.2190 2.7393060 8988.6970 2.8469210 8989.1760 2.9261290 8989.6530 3.0043840 8990.1320 3.1031220 8990.6980 3.2110400 8991.1330 3.2539940 8991.6110 3.2996880 8992.0900 3.3074430 8992.5680 3.2928120 8993.0480 3.2706220 8993.5260 3.2321570 8994.0060 3.1938800 8994.4840 3.1538730 8995.0070 3.1101480 8995.4850 3.0766090 8995.9650 3.0576630 8996.4440 3.0444360 8996.9240 3.0388960 8997.4020 3.0472990 8997.8820 3.0675140 8998.3610 3.1005600 8998.8400 3.1643850 8999.3190 3.1982860 8999.7990 3.2534360 9000.3660 3.3039220 9000.8030 3.3417080 9001.2810 3.3591580 9001.7620 3.3560860 9002.2410 3.3370210 9002.7210 3.2945900 9003.2010 3.2714270 9003.6810 3.2300070 9004.1610 3.2081340 9004.6420 3.1515900 9005.1210 3.1261710 9005.6020 3.0947090 9006.1250 3.0632520 9006.6050 3.0432380 9007.0860 3.0224310 9007.5660 2.9949220 9008.0470 2.9758280 9008.5260 2.9553770 9009.0070 2.9415750 9009.4870 2.9332270 9009.9690 2.9312590 9011.0620 2.9416810 9012.1530 2.9559670 9013.2460 2.9807340 9014.3840 3.0086920 9015.5650 3.0616030 9016.7460 3.1117650 9017.9280 3.1512680 9019.1540 3.2090080 9020.3800 3.2654560 9021.6060 3.3094510 9022.8770 3.3440660 9024.1910 3.3479330 9025.4640 3.3174080 9026.8220 3.2566850 9028.1400 3.1975530 9029.4990 3.1274610 9030.9030 3.0741510 9032.3090 3.0388780 9033.7590 3.0145890 9035.1640 3.0094690 9036.6150 3.0190480 9038.1090 3.0425270 9039.6040 3.0643160 9041.1450 3.0703780 9042.6420 3.0605920 9044.2710 3.0499290 9045.7680 3.0564790 9047.3970 3.0833770 9049.0290 3.1111590 9050.6160 3.1176800 9052.3360 3.1120900 9053.9690 3.1145850 9055.6460 3.1359690 9057.3240 3.1667580 9059.0470 3.1947330 9060.8140 3.2127870 9062.6270 3.2308450 9064.3530 3.2525700 9066.1660 3.2859080 9067.9810 3.3204780 9069.8420 3.3470800 9071.7020 3.3479730 9073.5630 3.3224220 9075.4700 3.2700370 9077.3770 3.1997040 9079.3290 3.1414430 9081.2830 3.0963010 9083.2370 3.0566420 9085.2810 3.0350200 9087.2370 3.0305870 9089.2830 3.0085540 9091.3300 2.9545970 9093.3780 2.9050360 9095.4720 2.8691760 9097.6100 2.8610180 9099.7050 2.8815110 9101.8470 2.9177720 9104.0330 2.9652040 9106.2210 3.0179640 9108.4090 3.0679910 9110.6440 3.1005660 9112.8790 3.1073790 9115.1600 3.0909570 9117.3980 3.0712160 9119.7280 3.0650360 9122.0570 3.1052950 9124.3890 3.2036220 9126.7210 3.3276290 9129.0990 3.3905440 9131.4780 3.3930800 9133.9040 3.3635640 9136.3310 3.3343240 9138.8050 3.3005800 9141.2790 3.2388970 9143.7560 3.1564610 9146.2330 3.0558250 9148.8030 2.9465660 9151.3280 2.8392570 9153.8990 2.7470800 9156.4740 2.6897090 9159.0940 2.6826280 9161.7160 2.7308710 9164.3390 2.8165720 9167.0090 2.9175720 9169.6810 3.0160810 9172.3990 3.0809770 9175.0740 3.1157320 9177.8420 3.1089100 9180.5640 3.0700120 9183.3810 3.0335500 9186.1530 3.0155550 9188.9730 3.0079770 9191.7940 2.9798290 9194.6630 2.9387810 9197.5330 2.9299600 9200.4060 2.9761790 9203.3260 3.0732680 9206.2470 3.1701510 9209.2170 3.2031550 9212.1430 3.2061420 9215.1150 3.1903000 9218.1830 3.1472040 9221.1600 3.0714210 9224.1850 2.9773210 9227.2580 2.8891610 9230.3330 2.8220560 9233.5020 2.7813510 9236.5810 2.7630390 9239.7550 2.7691460 9242.8380 2.8001580 9246.0160 2.8228450 9249.1960 2.8219070 9252.4250 2.8267510 9255.6550 2.8345980 9258.8890 2.8375950 9262.1710 2.8527310 9265.4540 2.8848910 9268.7870 2.9143350 9272.1220 2.9340460 9275.4590 2.9438200 9278.8000 2.9447690 9282.1880 2.9428820 9285.5800 2.9523540 9289.0210 2.9672950 9292.4650 2.9868710 9295.9100 3.0034320 9299.4040 2.9818790 9302.9490 2.9335000 9306.4030 2.8890450 9309.9530 2.8405680 9313.5060 2.7960970 9317.0610 2.7758380 9320.6660 2.7817600 9324.3200 2.8015080 9327.9320 2.8168900 9331.5920 2.8031440 9335.2560 2.7630320 9338.9220 2.7118230 9342.6390 2.6879550 9346.3580 2.7118130 9350.1280 2.7371340 9353.9000 2.7379340 9357.6770 2.7489220 9361.4550 2.7656750 9365.2850 2.7730980 9369.1650 2.7810470 9373.0480 2.7898190 9376.8400 2.7974770 9380.7770 2.8047340 9384.6710 2.8097860 9388.6140 2.8121140 9392.5630 2.8137000 9396.5610 2.8143580 9400.5150 2.8099790 9404.5670 2.7933990 9408.5760 2.7604900 9412.6370 2.7182490 9416.7000 2.6836560 9420.7680 2.6710650 9424.9350 2.6716320 9429.0100 2.6812600 9433.1840 2.6964380 9437.3130 2.7049870 9441.4950 2.7012000 9445.7290 2.6866530 9449.9660 2.6573980 9454.2080 2.6285730 9458.4530 2.6235850 9462.7020 2.6332090 9467.0040 2.6302770 9471.3580 2.6167240 9475.6680 2.6102340 9480.0290 2.6098770 9484.3960 2.6180660 9488.8140 2.6328200 9493.1890 2.6458500 9497.6650 2.6614800 9502.0970 2.6807590 9506.5810 2.6969830 9511.1180 2.7022350 9515.5630 2.6941760 9520.1090 2.6692600 9524.6110 2.6253980 9529.2650 2.5803810 9533.7750 2.5615630 9538.4380 2.5563940 9543.0070 2.5550070 9547.6790 2.5528420 9552.3060 2.5539170 9556.9860 2.5580740 9561.6730 2.5589720 9566.4620 2.5520030 9571.1570 2.5467210 9575.9560 2.5434600 9580.6610 2.5353490 9585.4700 2.5179310 9590.2830 2.5094530 9595.1020 2.5088780 9599.9760 2.5073380 9604.8540 2.5118220 9609.7370 2.5158930 9614.6250 2.5147580 9619.5680 2.5140530 9624.5180 2.5188600 9629.4710 2.5263260 9634.4310 2.5241620 9639.4450 2.5153930 9644.4660 2.5055880 9649.5410 2.4959450 9654.5710 2.4896190 9659.7080 2.4805150 9664.7500 2.4658660 9669.8470 2.4549110 9675.0010 2.4486000 9680.1590 2.4446250 9685.3240 2.4443910 9690.5450 2.4385420 9695.7220 2.4258910 9700.9530 2.4213630 9706.2430 2.4202980 9711.4860 2.4157270 9716.7880 2.4065820 9722.0940 2.3995280 9727.4070 2.3945480 9732.7760 2.3857730 9738.2040 2.3840010 9743.5350 2.3855570 9748.9230 2.3871760 9754.3170 2.3933200 9759.7690 2.3932860 9765.2270 2.3902650 9770.7420 2.3867990 9776.2120 2.3777750 9781.7930 2.3639870 9787.2750 2.3541410 9792.8160 2.3522110 9798.4160 2.3525890 9804.0220 2.3515650 9809.5840 2.3495860 9815.2540 2.3431840 9820.8800 2.3310660 9826.5640 2.3198850 9832.3080 2.3098000 9837.9530 2.3025360 9843.6590 2.2986800 9849.4220 2.2942000 9855.1920 2.2876580 9860.9710 2.2828960 9866.7550 2.2777000 9872.6000 2.2731200 9878.4500 2.2710660 9884.3100 2.2669720 9890.1750 2.2635760 9896.1000 2.2639980 9901.9800 2.2641500 9907.9200 2.2615730 9913.8670 2.2574390 9919.8760 2.2524470 9925.8380 2.2459560 9931.8590 2.2404620 9937.8900 2.2354620 9943.9800 2.2287600 9950.0250 2.2199930 9956.1320 2.2135460 9962.3000 2.2077830 9968.3670 2.2049020 9974.4970 2.2021340 9980.6870 2.1992680 9986.8320 2.1912430 9993.0380 2.1848930 9999.2530 2.1819880 10005.530 2.1758890 10011.760 2.1684000 10018.050 2.1614250 10024.350 2.1556880 10030.660 2.1511780 10037.030 2.1455700 10043.360 2.1393510 10049.740 2.1350550 10056.140 2.1317820 10062.540 2.1317620 10068.960 2.1320800 10075.430 2.1279860 10081.920 2.1227870 10088.460 2.1165600 10094.910 2.1120590 10101.420 2.1072030 10107.940 2.1014530 10114.520 2.0947870 10121.110 2.0891340 10127.710 2.0827590 10134.320 2.0781820 10141.050 2.0734630 10147.680 2.0680760 10154.310 2.0634730 10161.010 2.0610480 10167.780 2.0558530 10174.490 2.0495330 10181.280 2.0429400 10188.070 2.0365710 10194.820 2.0312280 10201.630 2.0260540 10208.450 2.0212010 10215.280 2.0172160 10222.170 2.0140190 10229.130 2.0113500 10235.990 2.0079600 10242.860 2.0035550 10249.850 1.9974550 10256.790 1.9919100 10263.800 1.9882980 10270.820 1.9834550 10277.850 1.9787910 10284.890 1.9748100 10291.880 1.9696600 10299.050 1.9644340 10306.120 1.9602770 10313.200 1.9552220 10320.410 1.9496100 10327.500 1.9435820 10334.730 1.9374610 10341.850 1.9319020 10349.090 1.9267810 10356.350 1.9222930 10363.610 1.9181790 10370.890 1.9132250 10378.170 1.9081010 10385.470 1.9025900 10392.780 1.8973500 10400.100 1.8923020 10407.480 1.8882400 10414.820 1.8849450 10422.230 1.8808800 10429.650 1.8752090 10437.140 1.8691170 10444.580 1.8648100 10452.030 1.8597300 10459.550 1.8547030 10467.080 1.8509270 10474.630 1.8460620 10482.180 1.8414540 10489.750 1.8369490 10497.320 1.8320290 10504.970 1.8272660 10512.570 1.8220910 10520.240 1.8166150 10527.920 1.8112860 10535.620 1.8060910 10543.320 1.8010560 10551.040 1.7959750 10558.770 1.7904570 10566.500 1.7849850 10574.320 1.7798170 10582.200 1.7748300 10589.910 1.7700770 10597.760 1.7655840 10605.620 1.7613460 10613.550 1.7561880 10621.430 1.7511460 10629.330 1.7458660 10637.300 1.7413250 10645.210 1.7369950 10653.210 1.7321370 10661.210 1.7272650 10669.230 1.7220110 10677.260 1.7169600 10685.300 1.7119490 10693.350 1.7072550 10701.540 1.7026570 10709.560 1.6980360 10717.710 1.6929230 10725.810 1.6884240 10733.990 1.6834950 10742.240 1.6784410 10750.380 1.6733260 10758.600 1.6682160 10766.830 1.6629040 10775.140 1.6573900 10783.390 1.6526720 10791.720 1.6475450 10800.000 1.6429620 10808.360 1.6387160 10816.730 1.6343220 10825.050 1.6294740 10833.450 1.6242540 10841.860 1.6198850 10850.410 1.6148150 10858.780 1.6100300 10867.230 1.6052740 10875.760 1.6001370 10884.230 1.5956010 10892.850 1.5903290 10901.290 1.5856830 10909.940 1.5807970 10918.470 1.5761620 10927.080 1.5712430 10935.700 1.5664590 10944.400 1.5617830 10952.990 1.5567880 10961.650 1.5519670 10970.400 1.5468710 10979.090 1.5417560 10987.860 1.5369870 10996.650 1.5318560 11005.320 1.5273180 11014.140 1.5223590 11022.970 1.5174510 11031.810 1.5128050 11040.670 1.5079710 11049.540 1.5033130 11058.430 1.4988780 11067.330 1.4935910 11076.250 1.4892480 11085.180 1.4843890 11094.120 1.4795860 11103.150 1.4759530 11112.130 1.4703890 11121.250 1.4654580 11130.190 1.4608240 11139.340 1.4561060 11148.380 1.4514180 11157.430 1.4466480 11166.560 1.4419410 11175.780 1.4371890 11184.870 1.4326100 11194.050 1.4277900 11203.310 1.4228760 11212.450 1.4187400 11221.680 1.4135460 11230.980 1.4088560 11240.170 1.4042900 11249.510 1.3996850 11258.800 1.3950060 11268.170 1.3902360 11277.550 1.3856460 11286.820 1.3813900 11296.240 1.3765960 11305.600 1.3716540 11315.050 1.3672420 11324.520 1.3625440 11333.930 1.3583600 11343.430 1.3534790 11352.940 1.3493260 11362.470 1.3443090 ifeffit-1.2.11d/src/test/Makefile.in0000644000175000017500000002107610771740456016204 0ustar segresegre# Makefile.in generated automatically by automake 1.4 from Makefile.am # Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. # Copyright (C) 2000 Matt Newville # # This file is free software; as a special exception the author gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY, to the extent permitted by law; without even the # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. SHELL = @SHELL@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ sbindir = @sbindir@ libexecdir = @libexecdir@ datadir = @datadir@ sysconfdir = @sysconfdir@ sharedstatedir = @sharedstatedir@ localstatedir = @localstatedir@ libdir = @libdir@ infodir = @infodir@ mandir = @mandir@ includedir = @includedir@ oldincludedir = /usr/include DESTDIR = pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = ../.. ACLOCAL = @ACLOCAL@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS) INSTALL_DATA = @INSTALL_DATA@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ transform = @program_transform_name@ NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : host_alias = @host_alias@ host_triplet = @host@ CC = @CC@ CPP = @CPP@ CXX = @CXX@ CXXCPP = @CXXCPP@ F2C = @F2C@ F2CFLAGS = @F2CFLAGS@ F77 = @F77@ FFLAGS = @FFLAGS@ FLIBS = @FLIBS@ MN_FLIBS = @MN_FLIBS@ MAKEINFO = @MAKEINFO@ NM = @NM@ PACKAGE = @PACKAGE@ PGPLOT_LIBS = @PGPLOT_LIBS@ RANLIB = @RANLIB@ VERSION = @VERSION@ canonical_host_type = @canonical_host_type@ bin_PROGRAMS = ifftest1 ifftest2 ifftest1_SOURCES = ifftest1.f ifftest1_OBJECTS = ifftest1.o ifftest2_SOURCES = ifftest2.c ifftest2_OBJECTS = ifftest2.o ifftest_LDADD = ../lib/libifeffit.a $(PGPLOT_LIBS) $(MN_FLIBS) ifftest_DEPENDENCIES = ../lib/libifeffit.a ../pgstub/libnopgplot.a ifftest_LDFLAGS = mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs CONFIG_HEADER = ../../config.h CONFIG_CLEAN_FILES = PROGRAMS = $(bin_PROGRAMS) DEFS = @DEFS@ -I. -I$(srcdir) -I../.. CPPFLAGS = @CPPFLAGS@ LDFLAGS = @LDFLAGS@ LIBS = @LIBS@ F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS) F77LD = $(F77) F77LINK = $(F77LD) $(AM_FFLAGS) $(FFLAGS) $(LDFLAGS) -o $@ CFLAGS = @CFLAGS@ COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(LDFLAGS) -o $@ DIST_COMMON = Makefile.in DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) TAR = gtar GZIP_ENV = --best SOURCES = $(ifftest1_SOURCES) $(ifftest2_SOURCES) OBJECTS = $(ifftest1_OBJECTS) $(ifftest2_OBJECTS) all: all-redirect .SUFFIXES: .SUFFIXES: .S .c .f .o .s Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status $(BUILT_SOURCES) cd $(top_builddir) \ && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status mostlyclean-binPROGRAMS: clean-binPROGRAMS: -test -z "$(bin_PROGRAMS)" || rm -f $(bin_PROGRAMS) distclean-binPROGRAMS: maintainer-clean-binPROGRAMS: install-binPROGRAMS: $(bin_PROGRAMS) # @$(NORMAL_INSTALL) # $(mkinstalldirs) $(DESTDIR)$(bindir) # @list='$(bin_PROGRAMS)'; for p in $$list; do \ # if test -f $$p; then \ # echo " $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`"; \ # $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`; \ # else :; fi; \ # done uninstall-binPROGRAMS: # @$(NORMAL_UNINSTALL) # list='$(bin_PROGRAMS)'; for p in $$list; do \ # rm -f $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`; \ # done .s.o: $(COMPILE) -c $< .S.o: $(COMPILE) -c $< mostlyclean-compile: -rm -f *.o core *.core clean-compile: distclean-compile: -rm -f *.tab.c maintainer-clean-compile: ifftest1: $(ifftest1_OBJECTS) $(ifftest_DEPENDENCIES) @rm -f ifftest1 $(LINK) $(ifftest_LDFLAGS) $(ifftest1_OBJECTS) $(ifftest_LDADD) $(LIBS) ifftest2: $(ifftest2_OBJECTS) $(ifftest_DEPENDENCIES) @rm -f ifftest2 $(LINK) $(ifftest_LDFLAGS) $(ifftest2_OBJECTS) $(ifftest_LDADD) $(LIBS) .f.o: $(F77COMPILE) -c $< tags: TAGS ID: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ here=`pwd` && cd $(srcdir) \ && mkid -f$$here/ID $$unique $(LISP) TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) $(LISP) tags=; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \ || (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags $$unique $(LISP) -o $$here/TAGS) mostlyclean-tags: clean-tags: distclean-tags: -rm -f TAGS ID maintainer-clean-tags: distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir) subdir = src/autobk distdir: $(DISTFILES) here=`cd $(top_builddir) && pwd`; \ top_distdir=`cd $(top_distdir) && pwd`; \ distdir=`cd $(distdir) && pwd`; \ @for file in $(DISTFILES); do \ d=$(srcdir); \ if test -d $$d/$$file; then \ cp -pr $$/$$file $(distdir)/$$file; \ else \ test -f $(distdir)/$$file \ || ln $$d/$$file $(distdir)/$$file 2> /dev/null \ || cp -p $$d/$$file $(distdir)/$$file || :; \ fi; \ done # DEPS_MAGIC := $(shell mkdir .deps > /dev/null 2>&1 || :) # -include $(DEP_FILES) mostlyclean-depend: clean-depend: distclean-depend: maintainer-clean-depend: %.o: %.c $(COMPILE) -c $< info-am: info: info-am dvi-am: dvi: dvi-am check-am: all-am check: check-am installcheck-am: installcheck: installcheck-am install-exec-am: install-binPROGRAMS install-exec: install-exec-am install-data-am: install-data: install-data-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am install: install-am uninstall-am: uninstall-binPROGRAMS uninstall: uninstall-am all-am: Makefile $(PROGRAMS) all-redirect: all-am install-strip: $(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install installdirs: $(mkinstalldirs) $(DESTDIR)$(bindir) mostlyclean-generic: clean-generic: distclean-generic: -rm -f Makefile $(CONFIG_CLEAN_FILES) -rm -f config.cache config.log stamp-h stamp-h[0-9]* maintainer-clean-generic: mostlyclean-am: mostlyclean-binPROGRAMS mostlyclean-compile \ mostlyclean-tags mostlyclean-depend mostlyclean-generic mostlyclean: mostlyclean-am clean-am: clean-binPROGRAMS clean-compile clean-tags clean-depend \ clean-generic mostlyclean-am clean: clean-am distclean-am: distclean-binPROGRAMS distclean-compile distclean-tags \ distclean-depend distclean-generic clean-am distclean: distclean-am maintainer-clean-am: maintainer-clean-binPROGRAMS \ maintainer-clean-compile maintainer-clean-tags \ maintainer-clean-depend maintainer-clean-generic \ distclean-am @echo "This command is intended for maintainers to use;" @echo "it deletes files that may require special tools to rebuild." maintainer-clean: maintainer-clean-am .PHONY: mostlyclean-binPROGRAMS distclean-binPROGRAMS clean-binPROGRAMS \ maintainer-clean-binPROGRAMS uninstall-binPROGRAMS install-binPROGRAMS \ mostlyclean-compile distclean-compile clean-compile \ maintainer-clean-compile tags mostlyclean-tags distclean-tags \ clean-tags maintainer-clean-tags distdir mostlyclean-depend \ distclean-depend clean-depend maintainer-clean-depend info-am info \ dvi-am dvi check check-am installcheck-am installcheck install-exec-am \ install-exec install-data-am install-data install-am install \ uninstall-am uninstall all-redirect all-am all installdirs \ mostlyclean-generic distclean-generic clean-generic \ maintainer-clean-generic clean mostlyclean distclean maintainer-clean # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: ifeffit-1.2.11d/src/test/f2c-main.c0000644000175000017500000000027710771740456015677 0ustar segresegre#ifdef __cplusplus extern "C" { #endif #if defined (sun) int MAIN_ () { return 0; } #elif defined (linux) && defined(__ELF__) int MAIN__ () { return 0; } #endif #ifdef __cplusplus } #endif ifeffit-1.2.11d/src/test/ifftest2.c0000644000175000017500000000551010771740456016024 0ustar segresegre/* ifeffit test program This provides a simple teset mechanism for using ifeffit in C Copyright (c) 1998--2000 Matthew Newville, The University of Chicago This software is distributed under the terms of the GNU General Public License as published by the Free Software Foundation. It is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License (in the file COPYING) for more details. This file is based on and borrows heavily from the file fileman.c distributed with the GNU readline library. Matt Newville newville@cars.uchicago.edu */ #ifdef HAVE_CONFIG_H #include #endif #include #ifdef HAVE_SYS_FILE_H #include #endif #include #include #include #include #if defined (HAVE_STRING_H) # include #else # include #endif #include "../lib/ifeffit.h" int main(){ int ret, i, npts; double x, xout, *array, *px; double ax[2048], ay[2048]; char *cp; px = calloc(1,sizeof(double)); i = 0; printf("=Test %i: Starting Ifeffit\n",i); /* start with a blank string to initialize ifeffit */ if (ifeffit (" ")) { printf("=Test %i failed: library did not load correctly\n",i) ; exit(1); } else { printf("=Test %i passed.\n", i) ; } i++; printf("=Test %i: simple math\n",i); ret = ifeffit(" x = 1+1"); ret = ifeffit(" print x"); ret = ifeffit(" my.x = indarr(40)"); ret = ifeffit(" my.y = sin(my.x / 21)"); ret = ifeffit(" show @arrays"); /* scalars */ x = 1.0023; ret = iff_put_scalar("xx", &x); ret = ifeffit(" show @scalars"); printf(" test of iff_scaval (getting etok):\n"); ret = iff_get_scalar("etok",px); *px = iff_scaval("etok"); printf(" etok = %12.7g\n", *px); /* strings */ ret = iff_put_string("str2", "A Second Test String"); ret = iff_put_string("str1", "Test String X#1"); ret = iff_put_string("str3", "String 3"); ret = ifeffit(" show @strings"); cp = iff_strval("str1"); printf("out_string 1 = %s\n", cp); cp = iff_strval("str2"); printf("out_string 2 = %s\n", cp); cp = iff_strval("str3"); printf("out_string 3 = %s\n", cp); /* arrays */ ret = ifeffit("set nn = npts(my.x)"); npts = *px = iff_scaval("nn"); printf(" array size:= %d\n", npts); array = calloc(npts,sizeof(double)); npts = iff_get_array("my.x", array); for (i = 0;i "show @arrays": ' ret = ifeffit (' show @arrays') if (ret.ne.0) goto 500 print*, ' --> "show @groups": ' ret = ifeffit (' show @groups') if (ret.ne.0) goto 500 print*, ' --> "show @group=cu": ' ret = ifeffit (' show @group=cu') if (ret.ne.0) goto 500 print*, ' --> "show @scalars":' ret = ifeffit (' show @scalars') if (ret.ne.0) goto 500 print*, '=Passed Test #', j cc cc test 6: j = j+1 print*, '=Test ', j,' : background subtraction ' ret = ifeffit('spline(cu.energy, cu.xmu,rbkg=1.0,kweight=1)') if (ret.ne.0) goto 500 ret = iffgetsca('rbkg',x) print*, ' rbkg ', x if (abs(x - 1.d0).ge.1.d-1) goto 510 ret = iffgetsca('e0',x) print*, ' e0 ', x if (abs(x - 8977.d0).ge.3.d0) goto 510 ret = iffgetsca('edge_step',x) print*, ' edge_step ', x if (abs(x - 2.12d0).ge.1.d-1) goto 510 c check array sizes npts = iffgetarr('cu.bkg',xarr) if (npts.lt.400) goto 520 npts2 = iffgetarr('cu.xmu',xarr) if (npts2.ne.npts) goto 520 c npts = iffgetarr('cu.k',xarr) if (npts.lt.400) goto 520 npts2 = iffgetarr('cu.chi',xarr) if (npts2.ne.npts) goto 520 ret = ifeffit('show @arrays') print*, ' can do background subtraction OK' c parse test str1 = 'x =13.214, File = B.dat, Verbose,'// $ ' sig = sqrt(A + min(b,c)) ' nkeys = 9 call bkeys(str1, mkeys, keys, values, nkeys) print*, '=Parse Test: parge arg list:' print*, ' arg = ', str1 print*, 'nkeys = ', nkeys do i =1, nkeys print*, i, keys(i)(1:30) print*, values(i)(1:70) enddo cc test : j = j+1 print*, '=Final Test: can quit ifeffit' ret = ifeffit('quit') if (ret.ne.1) goto 500 print*, '=Passed Test #', j print*, '==All Tests Passed.' go to 700 500 continue print*, '*** error: bad return value from ifeffit() ', ret goto 600 510 continue print*, '*** error: bad numerical value ' goto 600 520 continue print*, '*** error: wrong number of points for array' goto 600 600 continue print*, '==Failed Test # ', j 700 continue end ifeffit-1.2.11d/src/cmdline/0000755000175000017500000000000011117272040014545 5ustar segresegreifeffit-1.2.11d/src/cmdline/COPYING0000644000175000017500000004314210771740457015625 0ustar segresegre GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) 19yy This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) 19yy name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License. ifeffit-1.2.11d/src/cmdline/USE_PGI0000644000175000017500000000031510771740457015643 0ustar segresegregcc -g -O2 -o ifeffit iff_shell.o ../lib/libifeffit.a -L/usr/local/pgplot -lpgplot -L/usr/X11R6/lib -lX11 -L../../readline -lreadline -lncurses -L/home/newville/pgi/linux86/lib/ -lpgftnrtl -lpgc -lg2c -lm ifeffit-1.2.11d/src/cmdline/f2c.h0000644000175000017500000001107410771740457015414 0ustar segresegre/* f2c.h -- Standard Fortran to C header file */ /** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ #ifndef F2C_INCLUDE #define F2C_INCLUDE typedef long int integer; typedef unsigned long uinteger; typedef char *address; typedef short int shortint; typedef float real; typedef double doublereal; typedef struct { real r, i; } complex; typedef struct { doublereal r, i; } doublecomplex; typedef long int logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; #if 0 /* Adjust for integer*8. */ typedef long long longint; /* system-dependent */ typedef unsigned long long ulongint; /* system-dependent */ #define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) #define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) #endif #define TRUE_ (1) #define FALSE_ (0) /* Extern is for use with -E */ #ifndef Extern #define Extern extern #endif /* I/O stuff */ #ifdef f2c_i2 /* for -i2 */ typedef short flag; typedef short ftnlen; typedef short ftnint; #else typedef long int flag; typedef long int ftnlen; typedef long int ftnint; #endif /*external read, write*/ typedef struct { flag cierr; ftnint ciunit; flag ciend; char *cifmt; ftnint cirec; } cilist; /*internal read, write*/ typedef struct { flag icierr; char *iciunit; flag iciend; char *icifmt; ftnint icirlen; ftnint icirnum; } icilist; /*open*/ typedef struct { flag oerr; ftnint ounit; char *ofnm; ftnlen ofnmlen; char *osta; char *oacc; char *ofm; ftnint orl; char *oblnk; } olist; /*close*/ typedef struct { flag cerr; ftnint cunit; char *csta; } cllist; /*rewind, backspace, endfile*/ typedef struct { flag aerr; ftnint aunit; } alist; /* inquire */ typedef struct { flag inerr; ftnint inunit; char *infile; ftnlen infilen; ftnint *inex; /*parameters in standard's order*/ ftnint *inopen; ftnint *innum; ftnint *innamed; char *inname; ftnlen innamlen; char *inacc; ftnlen inacclen; char *inseq; ftnlen inseqlen; char *indir; ftnlen indirlen; char *infmt; ftnlen infmtlen; char *inform; ftnint informlen; char *inunf; ftnlen inunflen; ftnint *inrecl; ftnint *innrec; char *inblank; ftnlen inblanklen; } inlist; #define VOID void union Multitype { /* for multiple entry points */ integer1 g; shortint h; integer i; /* longint j; */ real r; doublereal d; complex c; doublecomplex z; }; typedef union Multitype Multitype; /*typedef long int Long;*/ /* No longer used; formerly in Namelist */ struct Vardesc { /* for Namelist */ char *name; char *addr; ftnlen *dims; int type; }; typedef struct Vardesc Vardesc; struct Namelist { char *name; Vardesc **vars; int nvars; }; typedef struct Namelist Namelist; #define abs(x) ((x) >= 0 ? (x) : -(x)) #define dabs(x) (doublereal)abs(x) #define min(a,b) ((a) <= (b) ? (a) : (b)) #define max(a,b) ((a) >= (b) ? (a) : (b)) #define dmin(a,b) (doublereal)min(a,b) #define dmax(a,b) (doublereal)max(a,b) #define bit_test(a,b) ((a) >> (b) & 1) #define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) #define bit_set(a,b) ((a) | ((uinteger)1 << (b))) /* procedure parameter types for -A and -C++ */ #define F2C_proc_par_types 1 #ifdef __cplusplus typedef int /* Unknown procedure type */ (*U_fp)(...); typedef shortint (*J_fp)(...); typedef integer (*I_fp)(...); typedef real (*R_fp)(...); typedef doublereal (*D_fp)(...), (*E_fp)(...); typedef /* Complex */ VOID (*C_fp)(...); typedef /* Double Complex */ VOID (*Z_fp)(...); typedef logical (*L_fp)(...); typedef shortlogical (*K_fp)(...); typedef /* Character */ VOID (*H_fp)(...); typedef /* Subroutine */ int (*S_fp)(...); #else typedef int /* Unknown procedure type */ (*U_fp)(); typedef shortint (*J_fp)(); typedef integer (*I_fp)(); typedef real (*R_fp)(); typedef doublereal (*D_fp)(), (*E_fp)(); typedef /* Complex */ VOID (*C_fp)(); typedef /* Double Complex */ VOID (*Z_fp)(); typedef logical (*L_fp)(); typedef shortlogical (*K_fp)(); typedef /* Character */ VOID (*H_fp)(); typedef /* Subroutine */ int (*S_fp)(); #endif /* E_fp is for real functions when -R is not specified */ typedef VOID C_f; /* complex function */ typedef VOID H_f; /* character function */ typedef VOID Z_f; /* double complex function */ typedef doublereal E_f; /* real function with -R not specified */ /* undef any lower-case symbols that your C compiler predefines, e.g.: */ #ifndef Skip_f2c_Undefs #undef cray #undef gcos #undef mc68010 #undef mc68020 #undef mips #undef pdp11 #undef sgi #undef sparc #undef sun #undef sun2 #undef sun3 #undef sun4 #undef u370 #undef u3b #undef u3b2 #undef u3b5 #undef unix #undef vax #endif #endif ifeffit-1.2.11d/src/cmdline/iff_shell.c0000755000175000017500000002563110771740457016677 0ustar segresegre/* ifeffit command shell: This provides a simple command line shell interface o the Ifeffit XAFS Analysis Library, using the GNU readline library. Copyright (c) 1998--2000 Matthew Newville, The University of Chicago This software is distributed under the terms of the GNU General Public License as published by the Free Software Foundation. It is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License (in the file COPYING) for more details. This file is based on and borrows heavily from the file fileman.c distributed with the GNU readline library. Matt Newville newville@cars.uchicago.edu */ #define Version "1.1" #define HIST_LINES_DEF 500 #define HIST_FILE_DEF "/.ifeffit_hist" #ifdef HAVE_CONFIG_H #include #endif #include #ifdef HAVE_SYS_FILE_H #include #endif #include #include #include #include #ifdef HAVE_STRING_H #include #else #include #endif #ifdef MY_READLINE # include "../../readline/readline.h" # include "../../readline/history.h" #else # include # include #endif #if !defined (_FUNCTION_DEF) # define _FUNCTION_DEF typedef int Function (); #endif int sys_exec(), sys_help(); int com_list(), com_more(); int com_pwd(), com_cd(); int iff_load_file(), write_history_file(); char *stripwhite(), *progname, *home; static char comstr[1024], line_ex[1024], hist_file[512]; void initialize_readline(); #include "../lib/ifeffit.h" #include "commands.h" /* main */ int main (int argc, char **argv) { char *line, *s, *s1, *prompt, *tmp; char *pr1, *pr2; int hist_lines = HIST_LINES_DEF; int exec = 1; int ret, i, j, c,quiet; pr1 = "Ifeffit> "; pr2 = " ... > "; progname = argv[0]; initialize_readline(); /* start readline completer. */ /* initialize ifeffit */ ret = iff_exec(" set &screen_echo=1"); quiet = 0; if (ret != 0) { printf(" fatal error loading ifeffit library\n") ; exit(ret); } /* handle command line switches */ for (i=1;i' to '')\n"); printf(" -v show version information and exit\n"); printf(" -i show installation directory and exit\n"); exit(0); } else if ((strncmp(argv[i], "-v", 2)) == 0) { printf(" Ifeffit %s\n", iff_strval("&build")); printf(" Command line version %s\n", Version); exit(0); } else if ((strncmp(argv[i], "-n", 2)) == 0) { pr1 = ""; pr2 = ""; } else if ((strncmp(argv[i], "-i", 2)) == 0) { printf("%s\n", iff_strval("&install_dir")); exit(0); } } if (quiet == 0) { s1 = calloc(256,sizeof(char)); i = iff_get_string("&build",s1); s = calloc(i+1,sizeof(char)); strncpy(s,s1,i); printf(" Ifeffit %s\n", s); printf(" command-line shell version %s with GNU Readline\n", Version); } /* get environmental variables associated with history file */ tmp = getenv("IFF_HISTORY_LINES"); if (tmp) { hist_lines = atoi(tmp); } tmp = getenv("IFF_HISTORY_FILE"); if (tmp) { strcpy(hist_file, tmp); } else { home = getenv("HOME"); if (home) { strcpy(hist_file, home); strcat(hist_file, "/.ifeffit_hist"); } } /* read the history file */ if (strlen(hist_file) > 3) {ret = read_history(hist_file);} /* load all script files given on command line */ for (i=1;i 1) { exec = 0;} } free(line); } i = write_history_file(hist_file, hist_lines); i = iff_exec(" quit ") ; exit(ret); } /* done with main */ /* Execute a command line. */ int execute_line (char *line) { register int i; COMMAND *command; char *word , *cmd, *arg; /* Isolate the command word. */ if (line[0]=='!') { arg = line + 1; cmd = "!"; } else { i = 0; while (line[i] && (whitespace (line[i]))) i++;; arg = line + i; while (line[i] && !(whitespace (line[i]))) i++; if (line[i]) { line[i++] = '\0'; } while (whitespace (line[i]) ) i++; arg = line + i; cmd = line; } command = find_command(cmd); sprintf(line_ex, "%s %s\n\0", cmd, arg); if ((!command) || (find_command(cmd)->func == find_command("plot")->func)) { return (iff_exec(line_ex)); } else { i = ((*(command->func)) (arg)); return(0); /* never exit due to system call ! */ } } int iff_load_file(char *file) { /* load a file of ifeffit commands */ FILE *fp; int i=1; fp = fopen(file,"r"); if (fp) { fclose(fp); sprintf(line_ex, "load %s \n\0",file); i = iff_exec(line_ex); if (i==1) { return i;} } else { printf (" No file %s!\n",file); } return i; } int write_history_file(char *file, int n_hist) { int i; i = write_history(file); i = history_truncate_file(file,n_hist); return i; } int com_list (char *arg) { if (!arg) arg = ""; sprintf (comstr, "ls %s", arg); return (system (comstr)); } int com_more (char *arg) { sprintf (comstr, "more %s", arg); return (system (comstr)); } int com_cd (char *arg) { if (chdir (arg) == -1) { return 1; } com_pwd(""); return 0; } int com_pwd (char *arg) { if (getcwd(comstr,1024)) { printf (" %s\n", comstr); } return 0; } int sys_exec(char *arg) { if ((arg)&&(strlen(arg) > 1)) { sprintf (comstr, "%s", arg); return (system (arg)); } else { printf(" starting shell. type 'exit' to return to ifeffit\n"); return (system ("sh")); } } /* Print out help for ARG, or for all of the commands if ARG is not present. */ int sys_help (char *arg) { register int i; int printed = 0; if (!*arg ) { for (i = 0; commands[i].name; i++) { printf (" %-12s %s\n", commands[i].name, commands[i].desc); printed++; } } else { for (i = 0; commands[i].name; i++) { if ( (strcmp (arg, commands[i].name) == 0)) { printf (" %-12s %s\n %s\n", commands[i].name, commands[i].desc, commands[i].doc); printed++; } } } if (!printed) { printf ("No commands match `%s'. Possibilties are:\n", arg); for (i = 0; commands[i].name; i++) { /* Print in six columns. */ if (printed == 5) { printed = 0; printf ("\n"); } printf ("%-12s ", commands[i].name); printed++; } if (printed) printf ("\n"); } return (0); } /* Look up NAME as the name of a command, and return a pointer to that command. Return a NULL pointer if NAME isn't a command name. */ COMMAND *find_command (char *name) { register int i; for (i = 0; commands[i].name; i++) { if (strcmp (name, commands[i].name) == 0) return (&commands[i]); } return ((COMMAND *)NULL); } /* Strip whitespace from the start and end of STRING. */ char *stripwhite (char *string) { register char *s, *t; for (s = string; whitespace (*s); s++) ; if (*s == 0) return (s); t = s + strlen (s) - 1; while (t > s && whitespace (*t)) t--; *++t = '\0'; return s; } char *dupstr (char *s) { char *r; r = calloc(strlen(s)+1,sizeof(char)); strcpy (r, s); return r; } /* **************************************************************** */ /* */ /* Interface to Readline Completion */ /* */ /* **************************************************************** */ char *command_generator (); char **ifeffit_completion (); /* Tell the GNU Readline library how to complete. We want to try to complete on command names if this is the first word in the line, or on filenames if not. */ void initialize_readline () { /* Allow conditional parsing of the ~/.inputrc file. */ rl_readline_name = "Ifeffit"; /* Tell the completer that we want a crack first. */ rl_attempted_completion_function = (CPPFunction *)ifeffit_completion; } /* Attempt to complete on the contents of TEXT. START and END bound the region of rl_line_buffer that contains the word to complete. TEXT is the word to complete. We can use the entire contents of rl_line_buffer in case we want to do some simple parsing. Return the array of matches, or NULL if there aren't any. */ char **ifeffit_completion (char *text, int start, int end) { char **matches; matches = (char **)NULL; /* If this word is at the start of the line, then it is a command to complete. Otherwise it is the name of a file in the current directory. */ if (start == 0) matches = rl_completion_matches (text, command_generator); return (matches); } /* Generator function for command completion. STATE lets us know whether to start from scratch; without any state (i.e. STATE == 0), then we start at the top of the list. */ char *command_generator (char *text, int state) { static int list_index, len; char *name; /* If this is a new word to complete, initialize now. This includes saving the length of TEXT for efficiency, and initializing the index variable to 0. */ if (!state) { list_index = 0; len = strlen(text); } /* Return the next name which partially matches from the command list. */ while (name = commands[list_index].name) { list_index++; /*if (strncmp (name, text, len) == 0) return name; */ if (strncmp(name, text, len) == 0) return (dupstr(name)); } return ((char *)NULL); } ifeffit-1.2.11d/src/cmdline/Makefile.in0000755000175000017500000002037210771740457016642 0ustar segresegre# Makefile.in generated automatically by automake 1.4 from Makefile.am # Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. # Copyright (C) 2000 Matt Newville # # This file is free software; as a special exception the author gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY, to the extent permitted by law; without even the # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. SHELL = @SHELL@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ sbindir = @sbindir@ libexecdir = @libexecdir@ datadir = @datadir@ sysconfdir = @sysconfdir@ sharedstatedir = @sharedstatedir@ localstatedir = @localstatedir@ libdir = @libdir@ infodir = @infodir@ mandir = @mandir@ includedir = @includedir@ oldincludedir = /usr/include DESTDIR = pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = ../.. AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS) INSTALL_DATA = @INSTALL_DATA@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ transform = @program_transform_name@ NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : host_alias = @host_alias@ host_triplet = @host@ CC = @CC@ CPP = @CPP@ CXX = @CXX@ CXXCPP = @CXXCPP@ F77 = @F77@ FFLAGS = @FFLAGS@ FLIBS = @FLIBS@ MN_FLIBS = @MN_FLIBS@ MAKEINFO = @MAKEINFO@ NM = @NM@ PACKAGE = @PACKAGE@ PGPLOT_LIBS = @PGPLOT_LIBS@ RANLIB = @RANLIB@ VERSION = @VERSION@ TERMCAP_LIB = @TERMCAP_LIB@ canonical_host_type = @canonical_host_type@ bin_PROGRAMS = ifeffit ifeffit_SOURCES = iff_shell.c ifeffit.h commands.h # readline_LIB = -L$(top_srcdir)/readline -lreadline $(TERMCAP_LIB) readline_LIB = $(top_srcdir)/readline/libreadline.a $(TERMCAP_LIB) ### -ltermcap ifeffit_LDADD = ../lib/libifeffit.a $(PGPLOT_LIBS) $(readline_LIB) $(MN_FLIBS) mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs CONFIG_HEADER = ../../config.h CONFIG_CLEAN_FILES = PROGRAMS = $(bin_PROGRAMS) DEFS = @DEFS@ -I. -I$(srcdir) -I../.. CPPFLAGS = @CPPFLAGS@ LDFLAGS = @LDFLAGS@ LIBS = @LIBS@ ifeffit_OBJECTS = iff_shell.o ifeffit_DEPENDENCIES = ../lib/libifeffit.a ifeffit_LDFLAGS = # CFLAGS = @CFLAGS@ -pg CFLAGS = @CFLAGS@ COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(LDFLAGS) -o $@ DIST_COMMON = COPYING Makefile.in DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) TAR = gtar GZIP_ENV = --best SOURCES = $(ifeffit_SOURCES) OBJECTS = $(ifeffit_OBJECTS) all: all-redirect .SUFFIXES: .SUFFIXES: .S .c .o .s Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status $(BUILT_SOURCES) cd $(top_builddir) \ && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status mostlyclean-binPROGRAMS: clean-binPROGRAMS: -test -z "$(bin_PROGRAMS)" || rm -f $(bin_PROGRAMS) distclean-binPROGRAMS: maintainer-clean-binPROGRAMS: install-binPROGRAMS: $(bin_PROGRAMS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(bindir) @list='$(bin_PROGRAMS)'; for p in $$list; do \ if test -f $$p; then \ echo " $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`"; \ $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`; \ else :; fi; \ done uninstall-binPROGRAMS: @$(NORMAL_UNINSTALL) list='$(bin_PROGRAMS)'; for p in $$list; do \ rm -f $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`; \ done .s.o: $(COMPILE) -c $< .S.o: $(COMPILE) -c $< .c.o: $(COMPILE) -c $< mostlyclean-compile: -rm -f *.o core *.core clean-compile: distclean-compile: -rm -f *.tab.c maintainer-clean-compile: ifeffit: $(ifeffit_OBJECTS) $(ifeffit_DEPENDENCIES) @rm -f ifeffit $(LINK) $(ifeffit_LDFLAGS) $(ifeffit_OBJECTS) $(ifeffit_LDADD) $(LIBS) tags: TAGS ID: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ here=`pwd` && cd $(srcdir) \ && mkid -f$$here/ID $$unique $(LISP) TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) $(LISP) tags=; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \ || (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags $$unique $(LISP) -o $$here/TAGS) mostlyclean-tags: clean-tags: distclean-tags: -rm -f TAGS ID maintainer-clean-tags: distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir) subdir = src/cmdline distdir: $(DISTFILES) here=`cd $(top_builddir) && pwd`; \ top_distdir=`cd $(top_distdir) && pwd`; \ distdir=`cd $(distdir) && pwd`; \ @for file in $(DISTFILES); do \ d=$(srcdir); \ if test -d $$d/$$file; then \ cp -pr $$/$$file $(distdir)/$$file; \ else \ test -f $(distdir)/$$file \ || ln $$d/$$file $(distdir)/$$file 2> /dev/null \ || cp -p $$d/$$file $(distdir)/$$file || :; \ fi; \ done mostlyclean-depend: clean-depend: distclean-depend: maintainer-clean-depend: %.o: %.c $(COMPILE) -c $< info-am: info: info-am dvi-am: dvi: dvi-am check-am: all-am check: check-am installcheck-am: installcheck: installcheck-am install-exec-am: install-binPROGRAMS install-exec: install-exec-am install-data-am: install-data: install-data-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am install: install-am uninstall-am: uninstall-binPROGRAMS uninstall: uninstall-am all-am: Makefile $(PROGRAMS) all-redirect: all-am install-strip: $(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install installdirs: $(mkinstalldirs) $(DESTDIR)$(bindir) mostlyclean-generic: clean-generic: distclean-generic: -rm -f Makefile $(CONFIG_CLEAN_FILES) -rm -f config.cache config.log stamp-h stamp-h[0-9]* maintainer-clean-generic: mostlyclean-am: mostlyclean-binPROGRAMS mostlyclean-compile \ mostlyclean-tags mostlyclean-depend mostlyclean-generic mostlyclean: mostlyclean-am clean-am: clean-binPROGRAMS clean-compile clean-tags clean-depend \ clean-generic mostlyclean-am clean: clean-am distclean-am: distclean-binPROGRAMS distclean-compile distclean-tags \ distclean-depend distclean-generic clean-am distclean: distclean-am maintainer-clean-am: maintainer-clean-binPROGRAMS \ maintainer-clean-compile maintainer-clean-tags \ maintainer-clean-depend maintainer-clean-generic \ distclean-am @echo "This command is intended for maintainers to use;" @echo "it deletes files that may require special tools to rebuild." maintainer-clean: maintainer-clean-am .PHONY: mostlyclean-binPROGRAMS distclean-binPROGRAMS clean-binPROGRAMS \ maintainer-clean-binPROGRAMS uninstall-binPROGRAMS install-binPROGRAMS \ mostlyclean-compile distclean-compile clean-compile \ maintainer-clean-compile tags mostlyclean-tags distclean-tags \ clean-tags maintainer-clean-tags distdir mostlyclean-depend \ distclean-depend clean-depend maintainer-clean-depend info-am info \ dvi-am dvi check check-am installcheck-am installcheck install-exec-am \ install-exec install-data-am install-data install-am install \ uninstall-am uninstall all-redirect all-am all installdirs \ mostlyclean-generic distclean-generic clean-generic \ maintainer-clean-generic clean mostlyclean distclean maintainer-clean # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: ifeffit-1.2.11d/src/cmdline/f2c-main.c0000644000175000017500000000027710771740457016334 0ustar segresegre#ifdef __cplusplus extern "C" { #endif #if defined (sun) int MAIN_ () { return 0; } #elif defined (linux) && defined(__ELF__) int MAIN__ () { return 0; } #endif #ifdef __cplusplus } #endif ifeffit-1.2.11d/src/cmdline/commands.h0000755000175000017500000001110110771740457016535 0ustar segresegre/* A structure which contains information on the commands this program can understand. */ typedef struct { char *name; /* function name */ Function *func; /* internal function to call to do the job. */ char *desc; /* brief description of this function. */ char *doc; /* full documentation for this function. */ } COMMAND; COMMAND commands[] = { {"read_data", iff_exec, "read from data file", "read_data(file=input.xmu, group=input, label='energy xmu')"}, {"write_data", iff_exec, "write to data file", "write_data(file=out.dat, group.1, group.2, ...)"}, {"plot", iff_exec, "plot x-y arrays (overplot)", "plot(group.x, group.y)"}, {"newplot", iff_exec, "start a new plot", "newplot(group.x, group.y)"}, {"zoom", iff_exec, "choose plotting window with cursor", "zoom"}, {"cursor", iff_exec, "get the coordinates of the cursor", "cursor(show)\n to put cursor positions to variables cursor_x and cursor_y "}, {"color", iff_exec, "update an index in the plotting color table", "color(bg= white, 1=red, 2=blue)"}, {"linestyle", iff_exec, "update an index in the plotting style table", "linestyle(1=solid, 2=linestyle2, 3=dashed) "}, {"pre_edge", iff_exec, "pre_edge removal of mu(E) data", "pre_edge(group.energy, group.xmu)"}, {"spline", iff_exec, "autobk-style background", "spline(group.energy, group.xmu, rbkg=1.0, kweight=1)"}, {"fftf", iff_exec, "forward XAFS Fourier Transform", "fftf(real=group.chi, kmin=1.0, kmax=16, kweight=2)"}, {"fftr", iff_exec, "reverse XAFS Fourier Transform", "fftr(real=group.chir_re, imag=group.chir_im,\n rmin=1.0, rmax=2.8, dr=0.1)"}, {"path", iff_exec, "define a FEFF path and path parameters", "path(001, feff= ../feff0001.dat,\n e0 = e0_var, s02 = s02_var)"}, {"ff2chi", iff_exec, "convert list of paths to chi(k) (see also: paths,feffit)", "ff2chi(1,2,3, group=f)"}, { "feffit", iff_exec, "fit chi(k) data to a set of paths (see also: paths,ff2chi)", "feffit(data = input.chi, 001,002, kmin=2,\n kmax=15, rmin=1, rmax=3.)"}, {"minimize", iff_exec, "generalized fitting", " "}, { "set", iff_exec, "set variable value, without storing definition", "set xvar = 1.2\n set yvar = 3 * xvar\n set group.x = indarr(100)\n set group.y = sin(group.x)"}, { "def", iff_exec, "define variables, store definition (see also: set)", "def yvar = xvar * 3"}, {"guess", iff_exec, "define a variable as a fitting parameter", "guess s02 = 0.9, del_r = 0.01 "}, {"rename", iff_exec, "rename a variable", "rename old_var new_var "}, { "load", iff_exec, "load a command file", "load Fit_data.iff"}, { "erase", iff_exec, "erase variables" , "erase xvar, yvar, group.x"}, {"macro", iff_exec, "define a macro", "macro 'default 1'\n print $1\n end macro"}, { "show", iff_exec, "show variables, paths, macros, etc" , "show xvar"}, { "print", iff_exec, "print variables or expression (see also: show)" , "print xvar\n print 3*xvar, $my_string"}, {"echo", iff_exec, "write to screen", "echo 'This is a message'"}, {"pause", iff_exec, "wait for user input", " pause == hit any key to continue =="}, {"restore", iff_exec, "restore session from save file (see also: save)", "restore(cu_analysis.sav)"}, {"save", iff_exec, "save session to a save file (see also: restore)", "save(cu_analysis.sav)"}, { "quit", iff_exec, "exit the program", "quit" }, { "exit", iff_exec, "exit the program", "exit" }, { "help", sys_help, "Display help on commands", "help\n to get list of commands with brief description\n help read_data\n to get more complete documentation on a command"}, { "ls", com_list, "file listing", "ls *.dat" }, { "dir", com_list, "file listing", "dir *.dat" }, { "cd", com_cd, "change directory" , "cd ../"}, { "pwd", com_pwd, "print working directory", "pwd" }, { "more", com_more, "view file contents one page at a time", "more cu.xmu" }, { "!", sys_exec, "send commands to shell (bash)", "!emacs My.iff &\n Typing a '! ' with no additional command will launch a shell\n (typically bash). To return to ifeffit, the shell must be\n exited by typing 'exit' or Control-d." }, {(char *)NULL, (Function *)NULL, (char *)NULL , (char *)NULL } }; COMMAND *find_command(); ifeffit-1.2.11d/src/cmdline/README0000644000175000017500000000512410771740457015450 0ustar segresegre ====================================== == ifeffit command-line executable == ====================================== The files in this directory create the executable program ifeffit, the primary command shell to the Ifeffit library. This program uses the GNU ReadLine package, so that command editing is quite good, with the arrow keys working to scroll through previous commands, tab completion (hitting the tab key tries to complete partially typed words), and emacs bindings for moving around the command line, including: Control-a move to beginning of line Control-e move to end-of-line Control-k cut line from cursor to end-of-line to 'buffer' Control-y paste buffer at cursor position. To start the program, type 'ifeffit'. You'll get a command prompt at which you can type ifeffit commands. A limited number of Unix shell commands (ls, more, cd, pwd) are also supported, and '!' can be used to escape to the Unix shell. For the first word on a command line, tab-completion will expand a limited number of commands (ifeffit as well as shell commands). Type 'help' at the command prompt for a complete list of commands that will complete. Hitting tab on the second word will complete a file in the current directory. == Startup file == If found, ifeffit will load a file called .ifeffit in your home directory on startup. This is simply an ifeffit command file allowing pre-defined macros and customization, as if you had typed load '/home/.../.ifeffit' each time you launched the program. == History file == ifeffit will save the command you type to the file .ifeffit_hist in your home directory. This file will be loaded on startup, so that the up-arrow will go through your previous ifeffit session. The history file is limited to 500 lines, and is written when you type 'exit' or 'quit'. If you exit the program with Control-d, the session will not be saved. == Command line Options == A list of ifeffit command files can be loaded by listing them on the command line. For example, > ifeffit File1.iff File2.iff will load File1.iff and then File2.iff before giving the command prompt. The startup file (if found) will be loaded before any files listed on the command-line, so macros and definitions in your startup file can be used. To run files in 'batch mode' so that you immediately exit back to the Unix shell, use the -x switch: > ifeffit -x File1.iff File2.iff This will load File1.iff and then File2.iff and exit. The loading of command-line files is not saved to the history file. ====================================== --Matt Newville ifeffit-1.2.11d/src/cldata/0000755000175000017500000000000011117272040014362 5ustar segresegreifeffit-1.2.11d/src/cldata/12.dat0000644000175000017500000000127610771740457015325 0ustar segresegre# Mg CL data / PAD Format npack = 8 12 4 .1800000000E-01 .8000000000E-02 !T.zR%%%%TPY?L^*iT>Sax,CaSXMA8OlzSX6kssu3* !T.R%%%%%SBkYN8qXTJ>E4J_=S4Vvu.S*j;9dFnVX&jLCYgX2=>LuY'XL_m`i_kXPzsrv@pR&%%%%%% !T.R%%%%%S6R%{wu*T:R}{gLYS.CvwM]}S&x=/oEXR,vmC;P@R*V3zOL{R&%%%%%%P([rs_TBR(9[U50` !S89NmgdkU0D}6T/_VT(_;orOR*,i9xrEVXo2-U+qXN>uSgbZY8R3kcqpY0)%?|/?R&%%%%%% !T.R%%%%%S6R%{wu*T:R}{gLYS.CvwM]}S&x=/oEXR,vmC;P@R*V3zOL{R&%%%%%%P*cZa^wZR*?mD[s{ !SHo_qSjoU:PTyKRiW.Ue^moDR,w-=K=`W0-4{cnGXvClt=+hYL'q0D%MY:3BHA^oR&%%%%%% ifeffit-1.2.11d/src/cldata/37.dat0000644000175000017500000000271210771740457015330 0ustar segresegre# Rb CL data / PAD Format npack = 8 37 9 .2639999986 .1140000000 !T.zR%%%%UX1>{|2QUBY=P`~1T`^ZA.d~T@b4mjsDT6uFTLmw.Y}HSv=A(QmzSJYfkmKSS>,==`7sS8hThKEYS8@749b%T2&K*,HsU>+FPVHL2drwDW6e'QPIoWJu\uyN`WZ^%Z?sxW`86,(M, !T.zR%%%%Tbo0n-5`THt7PtHMSnD6{=?ZSFji@UT+S:vCN,7jS6m()0}ZS6H^-PLkS.\o3=syTR)UCCPp !V6J**/JqWP/KIwS\8_iwj[S0lm5Ei[S*MNAzmvS(Z[d.O?R&%%%%%%S:'oPT-yTL~;6WVB !U^vg)xNbV^w1'}2tWN;`_[_US(daWm)yV2mfz%N(W@Jq*~V`X.l[/JMEX4QY.}|[R&%%%%%% !T.R%%%%%Svw4RQeYU0*BCR\PSNvU]uOMS.MkwmteS(tBmwHoS(9@<[E}R&%%%%%%S&kIl[*+Sl(L>g7' !US(5C1FR:R&%%%%%%S(0]_6D:T0mxP\6t !UP7=0WKzW.\&hN%PX0:{]+pIR,[*'/)0VDn_hm}HX0di_=hQXHkL6;3]XJ)^;Qs[R&%%%%%% !T.R%%%%%SJP|VCp6TRr\T}psS8M=,t,hS*&/LZ~~S&qSr|i7S&Vq0M\0R&%%%%%%Q&upMQS>S(;1wJ(] !T@7?*}1IV6n2qulJWjEr4_{0R&dY0Kg;VdX`@GrL(FY8_b~eGUX>{UJJoTR&%%%%%% !T.R%%%%%SJ:_=fOYTRW%x<[sS8ArF^^mS(}bgWN1S&pQO%;(S&V4yG3BR&%%%%%%Q&fV@Gk]S(GLOa%~ !THD)gO51V>LHYXi-X.~t_BvaR&dE~o+LW.bM-3\NX~Wm@*AIYB_,tMFrXLL=wjqER&%%%%%% ifeffit-1.2.11d/src/cldata/21.dat0000644000175000017500000000222210771740457015315 0ustar segresegre# Sc CL data / PAD Format npack = 8 21 7 .6800000000E-01 .2800000000E-01 !T.zR%%%%U4Kb^JM:T|-st3EAT6iQ|Ck,SvL4.9>JSZ>M;h+TSP81jEzMSN:IBaLoT2&dSf_3UHJjzvA0 !Vx*B@EoLR&%%%%%%R&%%%%%%SjD2/e~CU~E;UJ&3Vt~QNs%`t;[C*WPy~L9y6WX-S\?LF !T.R%%%%%T6=j9U6qU:9{<7z-Sz>a@9qMS8%_Aur3S,mQY4KRS*P.9lwoR&%%%%%%S0&LVJZiT@QU.QiK !U^=s&I+0Vv&W:T6hWn4s^`G.R*%*2XGLUVS4,.}?W8Y\0?jLX.l@bli4X6z-I9cFR&%%%%%% !T.R%%%%%T2f@~aS,-EaC10S*&BH1I]R&%%%%%%R(&ReP%?S2Z25M:{ !Tp=]O89-VBqb[PdBWtbb&.D^P.?bCWFkU2I0It:FW8q@+Z'6X:d*6Y`iX`f&Z(bZR&%%%%%% !T.R%%%%%T2_\7}tTU699J++@Sh}p*qGlS4:WiWi[S,*>OOAlS(~An~_3R&%%%%%%R(^4-PZGSW2[pLtWLfuBmC*XP]N:[tgY2)MNiI%R&%%%%%% !T.R%%%%%S6ufleclT<%3B'<9S.V3_Px(S&|3(]+%R.-9g,F?R*`r}K.qR&%%%%%%S&de7qWxSJB0_y). !TpIQZ1F9V0A0kvwQ6rXHf@;(.dR&%%%%%% !T.R%%%%%S0Cg=2wTT2[Ne|=3S*f_P2n8S&YBCZ/>R*N+iJhBR([%nDk6R&%%%%%%Q(B.]JxFS&n9Nl\NkPXFNn%q63X>RW{`a)Y6IZffg(R&%%%%%% !T.R%%%%%S0ChO_{}T2[Ne|=3S*f_P2n8S&YBCZ/>R*N+iJhBR([%nDk6R&%%%%%%Q*1j>'CPS(N`jSZO !T640FO98Uba~Hu*`W411VnhmS@Ne9w@(WVSTnHM{XhKGKMf;XXvv2LbZYFS~wnx1R&%%%%%% ifeffit-1.2.11d/src/cldata/54.dat0000644000175000017500000000432610771740457015332 0ustar segresegre# Xe CL data / PAD Format npack = 8 54 14 .6600000262 .2940000000 !T.zR%%%%V0eHM'z;Uh2sQ+5aU2gW_KkQTd.O\KAMTN8_Eb{,TFA]e]WuTDX1>RVbU^/r*I9OR&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%S0;R~nC8U.h1|)q|Uz4CbP_GV@PR)@.?VTX4'3Z,VZ]M5`X. !T.zR%%%%U8&W{E`JU09j=.aaT:]}KL@@T.vavzH/Sdut\B0(SXh,)%f>SVWZA`O/TZN(mfv1Uz&H-'l2 !V|~fAOQWR&%%%%%%R&%%%%%%T8\4E2jXV0YKwT-EV`ZeX6`yW2c{-QAcW8cvFm%lW:P9a6}J !T.zR%%%%U6L[f9JmU.u]cgkAT8ze?o5]T.ZH|a33S`r,[[A@SV-g*yYvSR~*ucurT.}~lzz1UJ&@~}'& !W.yh~pP^R&%%%%%%R&%%%%%%SHm:nV]gUfYKo/:TVhJOUOq7W<1F~>\&WLYb^*KqWRw-NihB !T.zR%%%%U4vi5l2uU.YsYKS6T8B?/e8lS|(YF>BoS\|nIy{PSRY/[-s\SPUfQ_2XT2SH}G73i[S4Zi>/t7S.zI:?nBR&%%%%%%S:6fG4+ZTh6x,+j, !V4Ux9x*ZW8KzFRY~X0]tJ6GzQ*vDiuehU8R~{:paW05/|~q3WZ992Jf(X.RpcxuIR&%%%%%% !T.R%%%%%TDQYEM`&UL3Qb_bIT4w\0S~QSFryZdKSS40B,\'}z7BYYU0+x\`h} !V>z/kdK3WJ(kXS>CDAxmtS08/W9.0CCG:S0/2ZiMQS,BgzdT]R&%%%%%%R*[|>T6fSr_@;,lk !UjEqJ`;xWDu>0@erXnQ)NTueP&`&orVnU6ir@rH^WRSq_(:-XZ^q@<(-Y4}bq40nR&%%%%%% !T.R%%%%%SjJ;_nk|TzV{r@eZSHY_pSL/S,h/},FIS(YKy+<-S('k?Y[WR&%%%%%%S<\}';{kTJ-r%vBE !UN^Z~`{zVHN,cBG{Wp;P'WDZP9t1@X.epa32qX20%QCdQR&%%%%%% !T.R%%%%%SVHc6JiAS*^_rBl}S(/Id2%@S&fIU@aDR&%%%%%%S*1XQttST2f(g?,= !UBgdlVP`VJ_Z@bufW@Ivj6o5S,m[anC0VR8Mvn{HWZraj%Hc6JiAS*^_rBl}S(/Id2%@S&fIU@aDR&%%%%%%S*eUop1*T::nrn}5 !UX4/F_.[Vl-aE~=gW^=5g8oTS0&]g-%se|XD1ha}^:R&%%%%%% !T.R%%%%%S:YUo[tGT@,t[b0iS0Ig=dAOS(2b7(UrS&PmH@,uR,4CsO2XR&%%%%%%R&_pxmWTS2T9\(pg !T~-?}[@:VF2,j.qxW^Gcb[9WS.^+S800=2rWS4EfH&MXS4'==.)vS4%l<52[TT7btCCE !V2_fLMesWBZCT)9PR&%%%%%%T<`E@EPXVBwx?d7HW@1G_SK2WveY\:c9X4-^Ay`*X4TE+&WP !T.R%%%%%SLNkae,uTV+7?,}He_tTBzEp},~S24y}00mS(AJ}7Z1S&W'zYdAR,\wF>wkR&%%%%%%P,%?kw?=R*0oz\RJY43wo<7kY2MW6[e?R&%%%%%% !T.R%%%%%S>,}He_tTBzEp},~S24y}00mS(AJ}7Z1S&W'zYdAR,\wF>wkR&%%%%%%Q&R+b%RIR.7\*llx !Sd`pQy[fUHh=WF'YBCL'melY>}P}E=rR&%%%%%% !T.R%%%%%S(G`E=~LSH0QS~PVS&dcwW75R(RbekVsR&^BH{KIQ.2KQe()R&%%%%%%Q,V1%|=pS(%kfU/) !SXL7lt`9U.xZD+laV2d0V`U1TZPa>Pl4WN[WsNVwX<},Vn[>Wf.NcxD~XD`A{MmpR&%%%%%% ifeffit-1.2.11d/src/cldata/80.dat0000644000175000017500000000666610771740457015342 0ustar segresegre# Hg CL data / PAD Format npack = 8 80 22 1.743000031 .8140000000 !T.R%%%%%V@gq[{`[UH|^voPTz^J;qv3Tr@Ohz[/R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%TFza<8HKUB1Vil@EUt8,b'F,V2or{QbBV6zG.kQyR&%%%%%% !T.zR%%%%UVU[D?^3UB:3/HdDT^yCcgZ6T@D}QoW3T6b>a2|IT4%XNejjT2bZCIZ*U:BX?s-lV<]Bq>0A !R&%%%%%%R&%%%%%%R&%%%%%%SfHZ*A1WUH>D6CT?V8HbBY*kVP]zRh]rVdf++Tx&Vj/rNXuz !T.zR%%%%UTQhG1{;U@]e:~~AT\da6x6=T>kvK7.tT6A,Z-lIT2djlutRT2I'R>~LU0HzO?/:V@/~Qxs< !R&%%%%%%R&%%%%%%R&%%%%%%S6y3HOd&UP !T.zR%%%%UNA=L3]vUT<)~]zr[T45g{|U]T0l}YQ2yT0T~Z'>{U0=n_-^|VH2`UYo~ !R&%%%%%%R&%%%%%%R&%%%%%%S8%IwQibUL~Zqjj5VR%rHV*qW4d*xlG]WB).l0TnWF'f@g>p !T.zR%%%%U0u--EiYTj3wyEWdT2z+Jd`rSf)u^I>aSNp4XT]iSFnLyP2sSF(u1|ZlTRp4.E2nU\IK_n0g !VTAxy^,_R&%%%%%%R&%%%%%%TXs=XuEJV6E=JI4'Vj9<.nWmW2d{'gi3W6zN1&OuW8W0P^:- !T.zR%%%%U0Jzx~;)TdMRUzGRT2HGk+/wS`RY`':TSL5/xXn;SDP2*3k&SBj/o\+}To9X)prT>0WrzHgUh3hM,>* !W0QL+-?BX.X&Hx{-R&%%%%%%T`-/PZWQVXBK=G,3WBJop?A@WfJzT`7>X.ZpPY=&X.}w=\DR !T.zR%%%%TtLWN-s8TRt&2;3YT._W0_q'SPNj6zG.S@z^vwoHS<pX4[]:iy-X@j^ !T.zR%%%%Tpz[nj'dTR&@}E?bS~h\U^^ASN_s7RXDS@K<>Mt*S:p58ol1S:CEi*?]S2U(hO&OU2}(r4lf !VvcL=QWMX<[4ck0aR&%%%%%%T0bSy-eR&%%%%%%T0r~1EzhU4-JYN0N !V2O&h\ByV|3T5_5TWHx\*:M,S(A6d.;HUT?Q60Q;Vrzd|tEsW@,8l;F1WLu'Syn@R&%%%%%% !T.R%%%%%T<6N^87%U@pleCGHT0el}-KbS>5Y&IXDS02?z|_VS,DlT~h7R&%%%%%%S`/8`)?aU0l=6dp/ !V4Q|85UZW0Jm{kIoWFmmR|_%S&Sb^Q~9UjUMg7niW2?|~AN@WDfguon0WHtyjV]+R&%%%%%% !T.R%%%%%T8Lq5o7FU&lgG:S.CnTcL2S*oY2i-.R&%%%%%%S``&=p=/U4mmj8mG !V>dYf|i?WPD9arkX6N5pbq8R(%Gt|VqV>jBnpG`]FuR&bxq2?sVL(ERf_tX4fYa?h8XFAihP}sX4O'I4i0R&%%%%%% !T.R%%%%%SFv-9ArvTNuy,ZFvS6^<2>jeS(pWiJjKS&jzRc5TS&RWw=DTR&%%%%%%Q(A.Fx~GS.%c38|V !U2=PDQF=W.]vj6O1XByPc:'.R*M'f~L6WPVIngN`Y6_k0Yf,XXM80+VkX8H[c+TtR&%%%%%% !T.R%%%%%SF?''B]+TN1pIe[RS6B/ZW'hS(jX?}9XS&hJYvLDS&PwM7;)R&%%%%%%Q(S*P]MLS.ffXPCd !U4_/2{`kW0m>&KU[XL3AuJOuR,KKPU,zWbge=^*=YJW|7m7TBiin,S&\-l.OUR,}veu'{R&%%%%%%S0P'yIN4T:W]FP\D !U@Tytt{SV:@I_7lkW.^x%c[lT.kuA.upV^'oGL~/WB0P))uZX>cmnzUlY00)K_63R&%%%%%% !T.R%%%%%S8T>z2HLTW%8lwtTBIzcMGIW<7C&r*]X2ga\8UYXfUuGeXhY>^y8,-tR&%%%%%% !T.R%%%%%S(*;tNPyS@,t[*(+S&Ua]NgdR(2b6},>R&PmH>ySxLkTvXD{W]}WvZ4n8j/OpYzU_lxx;YpyiKe8DR&%%%%%% !T.R%%%%%S(*;tNPyS@,t[*(+S&Ua]NgdR(2b6},>R&PmH>yVxz{bkVFKF)sJpXJl8C)%dZuF\xf{T6G:S7%qT2igs8GFT2Mj'_>&U0qPJCSbV@]iz-AQ !R&%%%%%%R&%%%%%%R&%%%%%%S:O/=yIxU>E4OYOEV<9.ER|&Vlxsv`BDW2;ejr+JW48?v]LR !T.zR%%%%Tdj/LQ=xTJKR=;C-SpNJ)x,'SH?%v'zeS<:I0au-S8+?k`F%S6_kOUm_T0F_baepU<0yh(`1 !VFDo%b%^WBrnQ5vwR&%%%%%%TlH0+2uaVJ~|\56MW8LQ9khaWNGzz]H3W^aC&-ebWdX*^V;q !T.zR%%%%T^WabBfNTFX5_4%2Shb>q)=9SDV'tHeBS:.E{F}/S62z-ARKS4k8Hr@^S,s[5z`%QxaOW>g'BdVpWx453.gMX44D(iEpX^aF71`* !T.zR%%%%T\cp's31TF+'p_C&Sf`Qw5wLSD+a7O\^S8lofjXYS4vex4m/S4V&2eX[S0]GE8gOTdFcSeQX !V@,|)Oo9WlJoW-3*R&%%%%%%T<.tg%x\VX/6M>\mWXv~G][1X6Q|Xct:XBysL}b'Y2'd(c2W !T.R%%%%%T.j14l=1U0u_}MyTSVEo/d>ZS06-S-^HS*6D-AbRS(KV]~wLR&%%%%%%S6p?qrO2THt_~:~7 !UZB.xf3tVZk=;z1{WL.WSqh2S*1N/:XFV4x:'EU:WD4@.bGMX0=8;+/9X4`MlOwbR&%%%%%% !T.R%%%%%SnoVU-\xU.Vs'ekhSJnc2U:ZS.%j`HdKS(cK?CTQS(.?1_w4R&%%%%%%S&^}JyRaS`J})8fD !U:=RX[bOVP|*IohYWVkzrlZ\R*iaqrPvV80L/rpxWbG;L:fHX6DJNXcLX46RrSi7R&%%%%%% !T.R%%%%%SlE,s&}VT|esCc0wSJ+%Bp@eS,qE(Xx~S(]C)q;/S(*B&K)LR&%%%%%%S&y=meafT.v-c=Ia !UJB2pCr7Vx.8^BHzX.sL~q.tR.MM0if@VJr2?mZlX2N,Ab'ViV4)hi|~)W^_HrgT}R(S.|]shW0VT9LV4Xz-S(08|Y8Y.>RLPX@>=zm,ZR&%%%%%% !T.R%%%%%SBd1d1H4TJ52{B1US4S._{eeS([&\ldKS&aq9]3;R.IEC8nZR&%%%%%%Q&V>`MfsS()vCf~F !T@TM2Zi/V8|Bu_N:WxkS6V5TR(Ruh(m%W6%(G7,/Y2;X+X-jYBPcs7HLXN&;BrbAR&%%%%%% ifeffit-1.2.11d/src/cldata/63.dat0000644000175000017500000000550610771740457015333 0ustar segresegre# Eu CL data / PAD Format npack = 8 63 18 .9621999860 .4370000000 !T.zR%%%%V6'0ofZ=V._u3Q2gU8NT)D*'T|a(SW)IT^GS0=}+TRvg8EHVTPq}[}JrV.sZsVRHR&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%S.GUVO\)ThK>WY|fU^qLKV-mV84FWLy4VF&q69?Zc(JPkU4@]>M.+TBqo/NdUT2q}`O`[S~WGMXKoSl{i\0>)SjA%yu8?T>mHF`JlUvBDn*+A !W8Cl?aJLR&%%%%%%R&%%%%%%S>n&%e:sUP+uW`CZVP4\Ex2%W4'3nfodW>E8YwrcWBLfh/v_ !T.zR%%%%U0[3%LSvnAgoeJSfyekIK.SdKO@Tn[TBn)dR8(V0iDMgN+ !WD_2H)J-R&%%%%%%R&%%%%%%SFUeD9k(Uraoq6/RVz]r|_luWBp-Jz[QWZkv:[zKWdZZ'9[1 !T.zR%%%%T`j'BPJUjS\Cwi-{sU4Y=U[hI !VB/p>e&WW@kuqLk1R&%%%%%%Tn0tejV@WT}iVd(3Wd-p8?/uWnI&upRTB7>ESt)S^sQde>dS@B>gZ~~S6`TsjRlS2~3//,3S2a:pCQ%SfLweVq|U<.~)dWj !VV'}[~}'W\fj'6LFR&%%%%%%U2`z.}a/W0G0L[s@W^KiE{];X2&qT.,ZX66KWlFbX8S>`G3p !T.zR%%%%TL6Fr{PpT<1%ji`;SR]tqdv/S:M,g:T+S2l)hiG8T}:n. !V4[nqkdeWZe[Pb6)R&%%%%%%TFQrRHprW0@ctb@fX0]Kr^BAXHaBlq7JXd-kq1qkYpjVmQzz !T.zR%%%%TJd4T-KgT:qF'G^jSR)i`=aQS:5'\*i[S2\JKRcQS0CW4`/PS0-OT5g[S&|rD/77T>l0TfWT^gDw !Uj*'VQI[VZ~XEP%(WD~d&FsXS,O@RKSYV0sD4a1'W8>B(<];W`|5z?{pW|ATn;^`R&%%%%%% !T.R%%%%%T.cUjN.1pS(z]TS2bS(=IK5m2R&%%%%%%S4HYmy2LTVKKn5U( !V0.>Dv^)W2-`n)[QWxX8p?3*S*(?XLxNVR-laqZdWv(>6QLFX:Qitd5MX>wc0_*iR&%%%%%% !T.R%%%%%SR'P0q@oT\:OPb/oS<<&nCs1S*HkWN[sS(&4.E1WS&`Goo}}R&%%%%%%R,%)_lxnSZ%7I7h( !UBH~LywcVx>A-i;:X0;,`Me@S&|~wiOXW2fpxYw@X>G7n:hwX2h/Qm2wY0%>eLMBR&%%%%%% !T.R%%%%%SR'P0q@oT\:OPb/oS<<&nCs1S*HkWN[sS(&4.E1WS&`Goo}}R&%%%%%%R*8UYJe=S\0P@+va !UJ>4>z9GW0gdEYfcX4c=.xIJS&lAbL==W8My5UFhXJh,KcF)X:5YtyXOY4QaO`;BR&%%%%%% !T.R%%%%%S&PB~=u|S0zq7`;~R*NKPB1JR&T3||4xn0R&%%%%%% !T.R%%%%%S0vwR&%%%%%% !T.R%%%%%S,^L>_:`S~}}&wrZS(rAIbp}R,{H~}YMR(aX|_AdR(-,ly59R&%%%%%%S&v3>Z2{SRzQe`@: !TvJ:y1\DUzd/*v{8VZo'''x&TbQG1.]3W4t9.,ZLX23p'hy:Y:bkkd|+Z2*82r[9R&%%%%%% !T.R%%%%%S,^L>_:`S~}}&wrZS(rAIbp}R,{H~}YMR(aX|_AdR(-,ly59R&%%%%%%S('[Rgx{Sf02YE=f !U2Rft0rFV4nJlRRPW0bl=~1,U.pcfyk7WLKD/d1`X<-x*qWcYF6^UeBOZk=3jSH'vSDCJSF;N8yXjSrjAHo&~U|ZzW0/`NrtYWF2pXoy6W^%ns>UHlT6hP<&Wp !ULGSaXz^V`Tt;=L'W`7/FNVwR*qf'U|7UlRAtnvMW@4a7/SqX2>fS2vdX;U2*B0{oDSX(LF9?hS0C%UU-WS*;m(~b_S(O.L`+*R&%%%%%%R&QzKmmaS,FM*mlB !TN8GISV4V6d]t.1pS*9zf3KFS(Mv.&4WR&%%%%%%R&n.e;=&S2/>]}=s !Tr8IXgE`VFl0Ji.GX.{fTDX. !SLnd%ToqU4{uTvpOVNGkc:G2S\r:En46W^41[N?6XFg&%|YAY8OJfO:yZ<{6r([%R&%%%%%% !T.R%%%%%S*yxBhXuSnH~7nS(S(RF\maBR,7EHyr_R(Dok*h7R&tEQBk2R&%%%%%%Q&viMqN6S&^0Cs%j !SpH`DhS4UDD3t)nBVtmGZW)pT0=25dlUX0XZWDzZ+UU>x<2>q>TZ=aachLT>0F==fST4tGmd)4T2EUr5c*T2+9hLjBU07~jwbUV>B.{\N@ !R&%%%%%%R&%%%%%%R&%%%%%%S<-*kNV7U@9KhUNNV>&7sS^BVrL\B{4vW2b`RF|aW4fB9vvO !T.zR%%%%T`O:7,j9TH-Qe1qOSjhN_MK/SF(JmKGES:K8_;38S6J9rb[FS6'Kqs36T.k>-h{lU:*cu>b; !VD,pdj8;WB,6`nC:R&%%%%%%Tt5Y\b=:VNiqQ^{hW:;/oG~oWR'F.{UCWbuk>]>`Whxf{U`* !T.zR%%%%TZHI-SBEiHdKSS8C?,&owS4U6OH]hS46'FMGIS,9Ig:@]TDzK4%+P !V2DOCt0c,V\~_c:|UW^_w`qR%X8C`M;f;XFGb1=%JY2jtDm(( !T.R%%%%%SzJ\,8+TU0;+`SGySPahCdeLS.\Td*vLS(zWF4_aS(=EJ(D(R&%%%%%%S4i:z/([TDy7p2gY !UTs(i,_bVVbg~JZXWHx}NRmjS*ZSPz8mV8@Q.Uy|WH7cVTq?X0k@;M}DX63R}G+[R&%%%%%% !T.R%%%%%Sd@Lm<[NTrd{S=%aSD~ahM2cS,I`y[teS(LWr1Q}S&yHwnvlR&%%%%%%S&TIg3=-SVRnOp^D !U6j?erMBVL@eg`N8WRfv3Vw|R..ZfM_uV>D^(<{RWno1tZhqX6|`>/|nX2mn5*CyR&%%%%%% !T.R%%%%%Sb&D[Jg.Tp/I[m6XSDCDqv=oS,='d(;?S(G9G'j/S&uwy,sHR&%%%%%%S&j?~tzNSv~jhmTl !UDb\m>EXVn1lXcW)W~SNPL6xS&c'J2izVXgo@`T2X4q?Qw`CXLtvB}LSXF.ERvtgR&%%%%%% !T.R%%%%%S2< !T4uQ`,%%V0WJJ?w}WTOj3+fwR,=d<{DzW8ogrW,7Y0n3JE.aY8g]oJu.XF\yjUj5R&%%%%%% !T.R%%%%%Sq4)TDjT0@iZmt}S<@bWC-WS.j|(|,{S,/,G:p\WzwVbozkR(Q6Z*c9UJqK76udW4YO<9JTWrt&X8-,X4LPkju3R&%%%%%% !T.R%%%%%T6[b_KYtU:^z]2;PS|}U8H@~S8F7v*vLS,{;g<%2S*Y*j@{6R&%%%%%%R(x1(p]~S<{ab>P7 !U2HE_I)_VTda2XTBX0n63fKAP,;(lt8VU.[7a/V8W4=3P%H~X60@/JMEXT8jUW{]R&%%%%%% !T.R%%%%%T6PF\gqDU:P{iFMES|Cg:E=nS89ung-WS,v)Y&HOS*Uamx9{R&%%%%%%R,*.].TUSP@%z@Io !UwVR&%%%%%% !T.R%%%%%S2;ZZ*|zT4fbx4'0S,6P,B0KS&b::YneR*sehj@[R(sTis,'R&%%%%%%Q*_hf}1TS(X&]e,a !T4rreI.OUZMg>yP^W0N8,r,~S4fWnbFAW>Ep-^4WXDQ-Of[1X<|mW];RY.gD;>[{R&%%%%%% !T.R%%%%%S2;ZZ*|zT4fbx4'0S,6P,B0KS&b::YneR*sehj@[R(sTis,'R&%%%%%%Q.:_:`S.Qum/7'R(rAIe,yQ,{H~}YMQ(aX|XO:Q(-,l}A9R&%%%%%%N,S|kIJ8Q&Yi11~c !S&s=2p&/T8'lxcoxV27x=]jNV28L>d0OYTXuI`U2YxA};F`IZ.beO^FhZ.njkRo/R&%%%%%% ifeffit-1.2.11d/src/cldata/79.dat0000644000175000017500000000643210771740457015341 0ustar segresegre# Au CL data / PAD Format npack = 8 79 21 1.689000010 .7880000000 !T.R%%%%%V@DO)CftUFjPrF[YU4WXx\&XU01E1S2{TxJ]yvp7Tp7qLKB+R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%THGPv[5)UB[u{``SUvZ~o7HcV4+yO2&cV8<}Tvx;R&%%%%%% !T.zR%%%%UTg6\m]OU@j2w`S|T\}{?MV-T>wXw@s(T6HaI25nT2juuF5KT2Ns=Zd(U8xWTv-fVs_QeT>EJzDo_T6(+C6zzT2PYo'@|T25j'idYU0%6s4g|V>EmkI(3 !R&%%%%%%R&%%%%%%R&%%%%%%S8,wb-HEU>4)?1TcVS^Be\[>aSJJ@h..mSBr[Wea?SB51)>x|T:yvMHj*URu_5`D, !Vb,&zZF@iuS>E'C'gwT.u.vsW~qI+{PZR&%%%%%%Tb^YW:oWVZVbqv}6WD)1L\g\WhdMk][1X.jQmorVX0/xePpY !T.zR%%%%TptznM)-TP}'e^8yS~azDO0ySN\l6 !T.zR%%%%TnOqET\rTP3?}WQGS|&+4yj9SLq\T4iOS>v?XHfrS:J=q}OvS8y73ssIS0y6%^6_U2J%Fu`a !VpvN=J)0X:|HyrU`R&%%%%%%T21{n_XOV``{3[=SWn9E^H&IX>K'u1?3XPbm0`+uYDoRUVLy !T.R%%%%%T>VE;8\KUDST^JKNT2J,nJ&MS@`<(7XDS0jD}czzS,i@tPD0R&%%%%%%T0Z6[Z]VU2nSUOH( !V20U\?XpWQonS`h)RKGES2C:Z|)>S*ax3(lbS(gyP-bPR&%%%%%%S*7XZ'sMTBv?np'@ !V2%|E[04W}me4)X8{YqV@>X.w?Z(yFR&%%%%%% !T.R%%%%%T0S{CKlqU2oT6b>BS^8HVHnAS2%w\rvLS*UU6qv>S(_s6>GYR&%%%%%%S(StO6_ATB}w_M]9 !V4P`KoRpWFEYCn@+X>W?)O8IR&qc@)o6VR5`|zQ[X6K.zatTXF3iJ's/R&%%%%%% !T.R%%%%%SB>xwf-3THa1|;BFS4@-OM5nS(V|/o`2S&`19_fZR.>84j[|R&%%%%%%Q(.ntme+S,KX,TUa !U0N(1hA0Vx-)t-DNX@`U+uIpS&Q0WTJ>Wh7lP~RdY8oM1P|rXPA5H@-rXS&]aO@CYR..3]D0NR&%%%%%%Q(>@fP//S.)_|}Aw !U2_v:N+&W029\47NXHR=ZtF5S&f`6'yXX.nLJ9N4Y@UYJ`_=X^*7o??eXH+;B%9;R&%%%%%% !T.R%%%%%SHoLQ[(gTR(~wy[BS8.q6v|6S(y^:ZIrS&nkO(.{S&U*\{C?R&%%%%%%Sk^t)ApV80\Sxa{W00{I)}RSp42W%x=VHK>&O~)WDAPyW)(WZgZ`GuBW\Pwah`:R&%%%%%% !T.R%%%%%SS&V+d~o4R,Va[*{&R&%%%%%%S.vcpY8ST8\ou+H{ !U>VWWMm(V8gfiLLbV~_4\:T}T0n`7-cbVd1wC+q~WD]w{3BDXFCY',*CY2sXV>7RR&%%%%%% !T.R%%%%%S6t:q.7RT:}AbY8?S.UI7Ki~S&{~NH~~R.,V0}ouR*`Jr)V[R&%%%%%%S.q/[Zw>T>MR].M* !UN1i-}n8VLQX'X{tWk)X2mTY&rcXp{Z?JDRYFkX@./0R&%%%%%% !T.R%%%%%S(F_a]=mSF~/.S-FS&d5ryeQR(QZ]D,%R&]rz}Y{]VRwS@p(@*tW !U05sU<)6V8ve@BNtW4hl3lo|V0bA7r=RWz(((qNpZ2f[vV7aYz3A|9SmY^(i|wu.R&%%%%%% !T.R%%%%%S(0*?Ev]S@tem)IyS&X^kycBR(9%>?9]R&SOoG2eQ,Eh+5uoR&%%%%%%R(R8Es,+S@)o1m4j !U2&^G?L|V>hLP|_IW:e/?E<'V8NCR_8Z:;/O0MAZ4J6{F(wZ0<+.FBpR&%%%%%% ifeffit-1.2.11d/src/cldata/89.dat0000644000175000017500000000735610771740457015350 0ustar segresegre# Ac CL data / PAD Format npack = 8 89 24 2.286999941 1.083000000 !T.R%%%%%VH_td25rUR5:(7BqU:%(.T4BU2lMA)^^U0O{gtaxU.wsJP\kR&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%T@lZkQ0iU:`Hgr_]U^t_\v.ZV.~8)dp;V2T*eQaCR&%%%%%% !T.zR%%%%UfmtFOc.UL'uOak?Trb}*`LfTHr([-r3T<[XE}j+T8F+2|YeT6yB/^b`UB:f|`H>VB5E>EOm !R&%%%%%%R&%%%%%%R&%%%%%%SVa8:sRlU>)fKq`GV2VzVaObVD.meUBZVR328BpQVTm=KX4b !T.zR%%%%UdW:yjp9UJ@W%i=&Tp838h?nTH4gTnFPT<3f>qIMT8%vqKVeT6Z^o-UYU:4i`f]kVP@%K|{, !R&%%%%%%R&%%%%%%R&%%%%%%S4oe2=V.U8;5Wa7NV672enD'VXiSnUo-V~H:*a7NW.zpQU6U !T.zR%%%%UZ;3.Jn>UD99\35HTbzI`K[%TB>VZ?eBT8>[E'\*T4QJ.JD)T42J_1nHU8*'9vRLV\%5m.Q? !R&%%%%%%R&%%%%%%R&%%%%%%S2yf~OG{UBh?mxo*VF7*W0aZC~OyW:FGi'r,WJSxvEIteMS\:FL?VJSP}Q7:NPSN|WvxLYTR-ev*cmUrW\MrfU !VtiY]Lv7R&%%%%%%R&%%%%%%T>-y0JZOV4Lmq)3gVna'KlUsW4ETLT6(k !T.zR%%%%U2NlWK0uTpQqVM`AFQiV03;;OG5 !W4V;T-`2R&%%%%%%R&%%%%%%TJS*m,eaVFnE\G6)W8y`+iivWT'D7H/uWhC14bPzWlv,fbJ\ !T.zR%%%%U0X\[St|TfBam:AfT2XP7D3oSbBrXaiOSLeI06INSDw/('D4SD5?^)nGSPq%PqNqUB7>7/:( !W0rSX\HjR&%%%%%%R&%%%%%%ShNB_f15VWNNO=.LUKnXD8rN{Qr !T.zR%%%%TN}e7,?jT>4Z_T+9ZrgTW.vKxI'FR&%%%%%%U8U5+2NgVL0j-Tbu)c_>9W@I]sZ5L !T.zR%%%%THrJIJxIT:EK%?%nSP*Kt-MRS8em%?XPS2A\UamfS0-xV^9*S.rpEmh_T0dlX/dUU8b[lD0m !V:PvyY1dW2&+[nm3R&%%%%%%U@h7VsH\Vf7Qp@\iW6\MsOnoW583954W@CK~^fH !T.R%%%%%TBe]_YEVUJ6~[H>3T4Ss.DH|SF&l~m>aS2j2u>^%S.ImNJ~oR&%%%%%%T0JC2iA\U>lwme?T !VJ^X(w~3WDS|6sM[X2sp82&|R*j)58I+Uz^78x1&W,_ZGS>2CJg-WS00xi,Hm_R&%%%%%%S21OuZrlTlk*EoX' !V>+R|D@~WJx.UZ~~X865iTd]Q*5e3g@>Ux_pG^Z0WTQYYRF9X6O%^3XnX8/_UzGsR&%%%%%% !T.R%%%%%T:U+})l=U@'EbQ:9T0GMy%[lS7q|W(-YObR&%%%%%% !T.R%%%%%S|9UdLh|U0CoBP8JSR+w6D\fS.d:&}?&S(}n?I]IS(?P9/VQR&%%%%%%SPnU5vouTV@U2^I< !UNuPAdTmV@f{{gxYW4,}GHlmS6Y:D&{^V2)f]yQ]W2bS&mk%Kj5R&%%%%%%S>KO`;[&T^dNK9zH !UxQ`l3&4Vn4JX_[-WNg]CfH3SDUw<^XyVjn2(HBtWng'QipnTDg&^d'.S2R1\WcfS(G^cRM4S&Y`KT9{R,n'l-}QR&%%%%%%S&j%Owc-T2Emt&>[ !UX`7%HZ\V~%}?g`qWb`n'\-,ST<=&Y49D,kd*Z020pw'CR&%%%%%% !T.R%%%%%S2ck=eG8{kK;R&%%%%%% !T.R%%%%%S.4*fF}]T02SZaJcS*0USi8JS&Ml}pqzR(wF~&/5R(;>r`|fR&%%%%%%S*Aj4(fZSnsVzS(Vzft`PR,A/:l|cR(Hz`]i0R&w),qJ)R&%%%%%%S*)c=c=1S~scEB>Z !U2AdZZ8ZV0W1PX3cVhJ3-l&IU4;:D7vlW@z/n;PJXFKcK4USYPU,bY&mZ:QqAedvR&%%%%%% ifeffit-1.2.11d/src/cldata/18.dat0000644000175000017500000000222210771740457015323 0ustar segresegre# Ar CL data / PAD Format npack = 8 18 7 .4700000000E-01 .2000000000E-01 !T.zR%%%%U0?d1v-T2;/`2LgS^oDK&GQSJgA`AN@SD0&mwdMSBKOMHzCSbS,`;n1U8U~XN8twmWDyeVcI7X4F5kVGsX>LCvk:lR&%%%%%% !T.R%%%%%SvubVlf0U0*1jYa7SNuk5mEbS.M]CYneS(t<_PC9S(9<;N*3R&%%%%%%Q,H68^kwS*C/BTRX !TBKavzw)V2OGDf4GWLkYRyP:Q&wEB[zqUB`NnF0GWNJE,{|uXLy|>{ZeY0E{Jlh8R&%%%%%% !T.R%%%%%SvVKXqH;U0&=xS&>SNemkYEJS.J93A'VS(ro?)g8S(8A}R~-R&%%%%%%R&Vv&bu4S.;f`KvO !T\Ewi;4dV>Rxi>7:Wre^1N'NQ(N]Fv:kU`&CE`\*Wv{/0i*]Xv<-wrX5Y:x/)\]nR&%%%%%% !T.R%%%%%S.5Va~OvT04]w~v-S*1J42`~S&M}gZdKR(x3j:,@R(;l|:{BR&%%%%%%R*wc~N1-S4s5n~a^ !THCFcjSmU\??U97DV`g{12Y/T6[X25&9W>9:5uJ%X>..A/~eX>mx,+;S()@NvIjR*9t7)6BR&ysG]6>R&\>a6(WR&%%%%%%P,9sqe]AR*'@Gie= !S+;S()@NvIjR*9t7)6BR&ysG]6>R&\>a6(WR&%%%%%%Q&TJ`SS]R,b/|+lQ !SR3.G@L_U8T|P<_XVZ?6|0xmTe8DZ7/ST^xPii&U4?aQ9JG !VJvYg2jwWlSd+.ZlR&%%%%%%T0p,[X3,V4VVT(A[W2gyPKtMWP4dhcWMWngLv_q^Wx/c{1Yg !T.R%%%%%S~bSH~HAU0T>x^@SSRoy\effS.rf3ZeBS*)y>oy4S(CO1rN5R&%%%%%%S(p;:42wT0C0lcWb !U>S7ampUVN],0XX>WRCi1iHbS&O|nIl7V0Y\~**oWL6q,4]KX6WTxgDqX@~FpIw7?XS(T}U7vDS&~tOc]ER&%%%%%%Q*:i?^`jS(XUV;Aj !T:&XR{WfV.a*N66KWBu6Ek&9Q(DJ_yR,UP2K0@6cW\`B'SdNXX9bdnIWY29gsB>'R&%%%%%% !T.R%%%%%Sh+cZ3%WTvuu'tb%SFv)\V~aS,[%%(UrS(St|qi4S&~4=Qs_R&%%%%%%Q,bTaqW6S*szoUN< !TL*>9NYQV8(nM*_9W`480R>AQ*:kM_3:Ux~+MqgVX0ViAY98Y0-==Xi%Y>`O%6%uR&%%%%%% !T.R%%%%%S*uNOv.)Slkk%yi\S(P->.+yR,2R%%teR(Bj},\sR&s'/8+gR&%%%%%%R*0f7.rsS0oAqCQ^ !T@5Pn|[X>GX`l@}W6hJ~4WtR&%%%%%% !T.R%%%%%S(07bxN*S@vR7^yUS&XeJS4wR(93I&*`R&SUl:YqQ,F4xBIQR&%%%%%%P(|zo.FB/Th+H=9V0V8Vk9GNjT`~:=c19X6tZApP:XNoDww]nZ8=(W^NqZ>v6hG]tR&%%%%%% !T.R%%%%%S(07bxN*S@vR7^yUS&XeJS4wR(93I&*`R&SUl:YqQ,F4xBIQR&%%%%%%P*KJ~H>(R(eG@U~/ !S:]N`jj,U.kQKIK^V@|[{,IKT|EhBg9VX@>/sdd>X`{Lr^j5Z@fm5|}WZLFR`OA\R&%%%%%% ifeffit-1.2.11d/src/cldata/42.dat0000644000175000017500000000432610771740457015327 0ustar segresegre# Mo CL data / PAD Format npack = 8 42 14 .3589999974 .1560000000 !T.zR%%%%Uh+\udTuUL5`oNpPTr~|IIYuTH~{E/<[T9T8%l+Z*PU:mHN-x;VT2\>Pz, !R&%%%%%%R&%%%%%%R&%%%%%%S4nn}QT;U6VuFZ3`V4hWz]FFVVp,)L+*V|B3BzGeW.zd:Tod !T.zR%%%%U.gPgupvbx.kMT:)&<=1?UJzLPV[U !VVdnd|I_WL-&PUT}R&%%%%%%TP?\^D+/VQJLBW@Gjh]H3WL(A*wa?WNgv'hh2 !T.zR%%%%T|J*TpeeTX5H1m,QT0/e2bM{ST]Bl}eMSDE.gbWtS>HQIIH'SU.V*uu>0 !VD^w7JaQWja0Mz5TR&%%%%%%Sn.\1njCV4A&t2H@W4PLddSaWV\l&%|&W|-U^<@jX.yHS>b' !T.zR%%%%Txay*+P9SBIQ{0CrU4C'QGLw !V\FBy/mzX2PMI~UsR&%%%%%%T24Z@'jfVBDNK0BJWD8~bcjLX0.^VKlrX8(J5xF9>' !T.R%%%%%T6D&n}g~U:AbzB@6Sz^\.aq|S8,Mb(:HS,pF?ow7S*Q|iQ@|R&%%%%%%SHn.~\.@Tf~^TUC{ !U|~lHu*`VvY;l*i/WZ-(h%GmS&ui;winUr@ZeWh\W6CH:=5,WfhY=aq~X0M9'U}PR&%%%%%% !T.R%%%%%T2jjq5q[U6G'e5UvSj\sZoS*'`jBe5R&%%%%%%S(u}b9Z~T4f]Y%,& !UT65y1Q9Vv{D'w\VWly_(+q~R(%oXhU.Ul7]}%UMWD-8Y|10X0qWwX5:X4{?g-@}R&%%%%%% !T.R%%%%%T2Pt-R+)U6'%X[GhSh2UjsEzS4*TCfmtS*}R]x}wS(yvXNn1R&%%%%%%S*_87'R7T>S|_@{) !Uviy3a%`W4`od.|&X4R&%%%%%% !T.R%%%%%SpUVLI2cU.^k>^HT;MS&O?sRwsR,*U-<]pR&%%%%%%S,4(qO{0T0cm[v0X !U4SNK%_CV4.QJPk;W066'@erT0'mjYIyVv5K+0CIW|\H.DB5X6ojL-yyX4N6jrh^R&%%%%%% !T.R%%%%%S0hz)X8UT4/Oe~d9S*y``a)VS&]Fp[Z1R*_5i969R(f2|b%BR&%%%%%%R*z~J;\sSET0zw:%3-W<'^x::-X.o}u7.qHR(SuSD+8Q,:[%/-iQ(F6})xfQ&u;h*UJR&%%%%%%P*i~wfG*R,&ydJ>q !SXnan{%9U@rNYX&DVrXXh9,OW2N/fl2=Yl3j~\4?Z7.qHR(SuSD+8Q,:[%/-iQ(F6})xfQ&u;h*UJR&%%%%%%O,[ebT\kXS>CDAxmtS08/W9wR`SJf@oNlUW}p.MYzP,1I~-Z.cmZ,ryR&%%%%%% ifeffit-1.2.11d/src/cldata/87.dat0000644000175000017500000000735610771740457015346 0ustar segresegre# Fr CL data / PAD Format npack = 8 87 24 2.157000065 1.018000000 !T.R%%%%%VFf=B*dNUP&4sJm/U8Oa-AaFU2L=5Y8?U06&nZycU.`Whm>VR&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%TBHjQlM*UT:vCMzHtT6m()%4eT6H^-BEgU@C-|saYV@_}'.)h !R&%%%%%%R&%%%%%%R&%%%%%%SZ,)i2H9U@(hU2_lV4-E{kx~VFDV7WKMVT}qc)4fVXj:Ld8G !T.zR%%%%U`\.t`D{UH4{o]M|Tjw^zWj)TF/KGV^pT:OjTFB@T6Mvat0PT6*yNIOLU6uTO{SxVL>:23gx !R&%%%%%%R&%%%%%%R&%%%%%%S6'l|5O+U8etWj.EV6f}f%~PV\[2FQ3qW.j?k1GUW0D.z%y^ !T.zR%%%%UVr3stRqUBJf7i^VT`A&kKHT_-5ha !T.zR%%%%U4cG1jQxT~]B'AcbT8+LXzZzSxs/laOlS\8;SFQ~rh6KTJg2GAwLV.dt(=*I !W4,Y%]>=R&%%%%%%R&%%%%%%TN7R^=K8VJ9Xg^1- !W06];F;mR&%%%%%%R&%%%%%%Sp[TYth[V@&@squHWD?I;Uz{X0;TCp^lX8F<+7_8Y2M+x_uy !T.zR%%%%U.{NFG|8T^jm;L/&T0qN*8;lSZ~i13C,SHVC*nESSB3a\BxyS@S-I,IlS>;^{RZqU>0o3b}^ !W2Mk6I{\R&%%%%%%R&%%%%%%Sfjd=k2tVH`a,c(YWRn'_lpm-rY:1+NzwN !T.zR%%%%TL+*pt4kT<*M:cJ*SRPVJacAS:Fxc|)>S2h)]\QYS0LzF.AZS06KstD_T6(O*,1:U84J+m)D !V4uD,4eLW.my3-(GR&%%%%%%U:tdnx\IVP_@fE6-W2{TWAm3WAE5nfSH^[%<\iS4Mht/cLS.qxp:7DR&%%%%%%T.za_2WpU6dwV80n !V8oUDE21W0z]M.EoW@?r|U/mR,5K`3z8UNykn(YoVvx?&m3:W<&4n}jUHTWBd%f1\.X2c1I56~R,6H9K4sYXOnoX.eQqCa&X4L2|ypSR&%%%%%% !T.R%%%%%T8|wn5]\U>CC\q;ET0-o<@N^S:rD1=OlS.Yx7KTqS*}}:1a-R&%%%%%%S0*w)_ToTbJt9:%I !V:^VR5veWHMfF[TNX8.AWNt`Q*s6}@zNV01d0VHRW\:^D~M{X8%.FdB.X6[CgpY.R&%%%%%% !T.R%%%%%T8Ujv'b^U^t9T.so-cN(S:Gg[?XPS.Gx0Xu_S*r;vz.IR&%%%%%%S,H(qjN]Tb6wpGWw !V@8Piw*/WVDmTh/6XBE+kxbgQ*%IBs(QV4.nd`FmWzEyZ2/6XB\D=[|BXB\'*,_QR&%%%%%% !T.R%%%%%Svijyva/U0(_CyD6SNo[bEN~S.LA&+vlS(sd`+8\S(8ubS,yR&%%%%%%Q,p;tBB:S:h-;6(\ !UB~Fu^M'W8Ym&fvoXX'I,Lj5Q&[nM:*-VN-UD:O*XXtV_CXOY6.(N:F:X.wbg3d7R&%%%%%% !T.R%%%%%StR`_dSAU.t\=9lYSN5\>vFBS.?{94IYS(nPxqN,S(5Qd9ALR&%%%%%%Q.CP6ewhS>Vil\S^ !UJ4EbDv^W<|}:Q`yXf6dc/SbQ&o2MDb@V\{(EnqRXlvtO]\IY<&Vq^`*X2bXlI|BR&%%%%%% !T.R%%%%%SnGEqBOTT~~]j15?SJZKE1zn=ze5HW2h'30lUS<@J8XtnV4TPs68uW6%%qg~/WLk@b-o5WX+*[c{pR&%%%%%% !T.R%%%%%S\z@b}urTjWS|.8qSB>E?+rvS,(lV\\[S(>azSR%S&pDfM8'R&%%%%%%S<*ZZc%jTL(rg=DV !UPRLTl2=VB@_7,e/W0bFu:5DS>AoVf6NV@2*I[>RW68VE>zsW\y*:\g\X-q+0R&%%%%%%S:OZ~*^*TVdO<5*, !UnQ;Y=+HVfJB4chqWJjt{I]zSVh|Q]E>V~iYtY;YWz'~tF5sX:Lc5*ZeXTy@o65ZR&%%%%%% !T.R%%%%%S8q3[.yPT>4iN?<&S0'm(XJMS(+M\G/'S&MhT+A=R*zMEqHGR&%%%%%%S&tr{qNRT0*~6eh3 !UFseUc|0VZ{ep^P:WHm-mxc)T.plR>6wdR&%%%%%% !T.R%%%%%S8&uKptuT<3&JQQbS.[t}W7sS&}Fn'BOR.2GS=gOR*d9-2>mR&%%%%%%S&Y`vQP>T.{53_2. !UN]?PgJEVnnz'D%@WZT?rI]zT2SS(t/3WXbrEjUSX0g4V@'TY^TK,k(oZ6.;+aFPR&%%%%%% !T.R%%%%%S.[m9C\wT0cuCGPpS*DymE6qS&R214CdR*/gXYU&R(G;ES>=R&%%%%%%S,UZy[ThSrD{ClLy !TfwGijnsURKmtM>nV>k^eKp@TFp:Xb?[7Y~WH@@80IgX0ftNcB;XX7~NXz8R&%%%%%% !T.R%%%%%S*R^&OYuSd&'^EUtS(>C&Jb)R*faTv`5R(2l[NFoR&h\2eZ|R&%%%%%%S(]H<;1tSZ8BW(R&%%%%%% ifeffit-1.2.11d/src/cldata/82.dat0000644000175000017500000000712210771740457015330 0ustar segresegre# Pb CL data / PAD Format npack = 8 82 23 1.855999947 .8700000000 !T.R%%%%%VBVnp(L@UJ>[r{(iU6:zQAHzU0[)]vFgU.SG)-xHTvWpfr}IR&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%TF1m5I>JV2ExQVvPV6C(j(,DR&%%%%%% !T.zR%%%%UZ9^O,voUD8DE.EATbx\WXAvTB=f9hH/T8>+'/cPT4P}-Z6KT42%KgXJU<2v6M`LV>9N)DMq !R&%%%%%%R&%%%%%%R&%%%%%%SbD5g<`aUDxJ`KR1V6`j@'99VL{32CE{V`=i(Iw{|2QUBY?nt?.T`^_(Y}sT@b7%Q>mT6u=pT+dT44ux\m>T2q8IQx4U2<&>,lIVBfV}&'y !R&%%%%%%R&%%%%%%R&%%%%%%S6^yqKVYU<0{@cy3V:?j4|j>Vf~(1/JDW0fmL4HrW2OKk;o= !T.zR%%%%UPW-6NqMU>RHxKu0TXJeM/m3Tb;T0sMnOO\U0}rRxaeVL-B&qvG !R&%%%%%%R&%%%%%%R&%%%%%%S6Ner)saUJ^<0,wIVNR:2@76W44rZo_tW@.8UqyVWBuC|pX2 !T.zR%%%%U2F/]30LTnyST1]DT4Rmob3SSj`+'(zZSRTGQZQ'SJ5??&`uSHD-F:w.TVog=rKkU`:DhSff !VV?kn;ejR&%%%%%%R&%%%%%%TTE06-CZV4YFU&w)Vd.[ZMiCW2.4|nV\W63Run]CW6^Q}q*M !T.zR%%%%U0s}|3m`Tj-TxT+*T2xjU'`{Sd}v4j\^SNl=wQ^+SFk?yDMNSF%u1vrZT@`O=cAwU\-n;S|} !Vh9xpEEwR&%%%%%%R&%%%%%%TDz@}|,lV:=R,<5@W0-/1v_1W::vtKB\W@KN4o\fWDleQEXR !T.zR%%%%U0+GoB\wQjNT0(k:ZN3ST=C9yzZSD0A(I;'S>7diG(8S<_8EcDSS,1qI1`Y8.naSBTnh'_KSpX>y&bb`iR&%%%%%%T.nTcSd.VVC/s.zoWbFKMq^`X:Wf/}MkXJuy0&gyYB:Eo8*4 !T.R%%%%%TBj}snYCUJ=\vxXNT4V[S;VnSF,]t(:HS2l\_eIAS.KIwJ;1R&%%%%%%T2Lv+w~QU4`dbTw2 !V2t&CHjxV~ko88W%WH_c]XM[S(1EXM;TUN&.JU;xVh~/M>98W]zH>k[UD\wI2gGT2M{ufKYS@hS\XB{S0mq23q?S,kYTSq0eg\uR&%%%%%% !T.R%%%%%T:`:\-8wU@53}Xi.T0M3>n>KS<[-.9a(S.v00/;'S,6DL`@xR&%%%%%%Sj3YKNzfU6kI,M7' !V@yloGrEW>d80ijcX26-+3qQS&MnQrN'V2jJHv%6WFQZbNJN0wy'X:)E+=w)X0v(Tgg'R&%%%%%% !T.R%%%%%T2oUQ-TPU6LwiNKKSju7wJNvS4Kunl~~S,1[Z-&HS*)-4f1)R&%%%%%%S*,.`x,0TLe{yP|} !V8E_{BhYWL4\C+q~X@E0(KKzR&OrxU{9VBHp+t`XX2W4FW(-XFHy:(tAX8HH%[9tR&%%%%%% !T.R%%%%%ST]qIc1HT`8~Y.jdS>+l7GisS*XQnrvLS(,m]'D;S&de*3dcR&%%%%%%Q(nA7>D.S0IxOU8? !U66kFfddW0oO?4[MXHflZ~F)R&X0%fn3W6]r>kwdY0{9rV%{X|B\9Gv>X4\WO>V%R&%%%%%% !T.R%%%%%SRpIg>A8T^:_rU1ISfTw[S*Pe}4x~S()SyvjdS&bXMXXuR&%%%%%%Q*,1HlKOS2F3;h1D !U8|~ex%uW4?Y&tolXRi.zYC`R&kF~NN@W>7E(B,OY6M;s_J*S*_]CO6/S(/n`V{1S&fa\3&)R&%%%%%%SB9Swmk\TF`|z~_| !UD*SAe=VV:QNIm,AW0jk6,j_SPB;'>(MV>%L`uFpW<^2Twc`WV)UEdTNWX58wdxqR&%%%%%% !T.R%%%%%SHBk{=3'TPKkg&OlS6r'jrNaS(tjp[teS&lfa(z]S&Sf:p]aR&%%%%%%S2i?kJ(UT>^>l=le !UD]yWS}9VA`R&%%%%%%S2WqI%CATFDA^x+H !UXWFbir[VTxz>^Z0WB<5`fD7T0^IS48Q[T+o !T6G8~4bvU25a4/:IU^C|.1InU8g}7wUGWFdFZ^fHY:QWj,{qZ2SB|?=HZD*sKyV1R&%%%%%% ifeffit-1.2.11d/src/cldata/43.dat0000644000175000017500000000432610771740457015330 0ustar segresegre# Tc CL data / PAD Format npack = 8 43 14 .3799999952 .1660000000 !T.zR%%%%Ujm,/>;UUN5pk?|%Tx(>X/(pTJyWhV:=T>@{P~@GT8y9gGR?T8P1,63rU !R&%%%%%%R&%%%%%%R&%%%%%%S4R?{L/VU6-FAh4zV4B=Njz%VTOACQ9kVvzr(;anW.aqLatE !T.zR%%%%U0'obF&'T`5hu%SgT0x|-p}NS\GK;]mtSHls1&DQSBErNO%6S@dM'.,NT<'NM)BPUNQ90N`4 !VZ821?:5R&%%%%%%R&%%%%%%TLkxn}pFV<+aBGNjW0b:g70OW>WR-=`ZWHu/Q='^WLP-x%a/ !T.zR%%%%U.\f=pinTZlSnaNvT0M8CHGHSX1Q>?r3SFC\/8I[S@5x9HDWS>YFzBiTS>)F]2tOU05cjvXK !VHQ916fsWpaeDys)R&%%%%%%Sh_sj{,LV2ikw3{7W2x]&jK]WRo~EmrSWt{r2FxAX.YsXuU: !T.zR%%%%T~=37xreTXb/-rjXT08mD-x(SV-?%@r'SD`G<_]-S>^RLaugS>*9Xy-vSFYTMZ/uU6Ajl3nP !VbRVh9P*X4,pX~N=R&%%%%%%T0c?50AqV@;21IwAS&i&8;E1UjOffxqkW4]v.e9gWbI7,2XBX01mKBy6R&%%%%%% !T.R%%%%%T4E3xt{_U8-n:Sp6SpZY(XEDS6%gJrvLS,GRk[@ZS*7E8WUmR&%%%%%%S*:(^PgGT6w6cNFH !UZ->hP'&V~`.S3&aWp`:|*m+R&vo0=(`Ud<^kt)6W@fg1]c)X0QYf*[DX4dT4]Q&R&%%%%%% !T.R%%%%%T4'V@6(7U6c6%KKFSlw:)a_*S4_R%3i[S,9tzGr2S*.PdDJ`R&%%%%%%S,-,1:4\TBFKsJ7A !V.Xl%o*?W6E@|0&yX4`D24<7R(6Te2q~V2>['n4cW`4\=Mk-iPXJ=:@J|5R&%%%%%% !T.R%%%%%SzI0.ZU5U0:u-r*KSP`}u_WGS.\F/a6/S(zQ7pM:S(=AHttxR&%%%%%%Q.-.1`X>%u>}\|Q&WYL,emV43k{8T^T2MPx94s !U6Gzq%,3_S&d&\kneR*{;DZ:rR(xL2qBq%,3_S&d&\kneR*{;DZ:rR(xL2qB6\v_U3W>*%vt'&T6HjB7D{0Z64i/VPGZ0jmNcTOYp9kT|?~R&%%%%%% !T.R%%%%%S(/2YLW/S@iS0TKrS&X5.^[XR(8&QZ)|R&S*ADGFQ,C'eTCxR&%%%%%%P&V6;}WeR&pI5l2W !S6LYRfv4U.ffjuE|V@)Gni~OT~BHgCxtWHP4pRN0YNnlqBn0YB{&8irSY8u@9}.uR&%%%%%% ifeffit-1.2.11d/src/cldata/73.dat0000644000175000017500000000617610771740457015340 0ustar segresegre# Ta CL data / PAD Format npack = 8 73 20 1.384999990 .6400000000 !T.zR%%%%V<2H1C}{V2O(lJ&|U@24~=SHU2++Vm_+TtLM~^,CTdohQ>%sTbF-SS1dV4yMnv[,R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%S,vaUVs]TV)[|ULyG[1k5V2:,YPz, !T.zR%%%%ULA\8'a-U<7TJdITTRk1Hv~hT:S70n|lT2p'R^G{T0SGi_c?T0B:EV>P3TG<|V^a{JUo-Vx~*Si7>W.R'h{F@ !T.zR%%%%UJJLQzwTU:bLWU:tTPeJ_xKgT:''4,-/T2SA2%I0T0<7y.XLT0&NafMvTd48*EN6V6MJx !R&%%%%%%R&%%%%%%R&%%%%%%S:6?y&CAUBbUsE'RVB5FGaW-W.^+Z5,3W6.a)Q[IW83}e<}b !T.zR%%%%UFC_[y;oU8P,}19YTL=3[9\@T6uF8S5aT0k:E2dKT.`t@pSOS~Rq;;ocTfgf4c,kVkepIsTS>6p@=lOTFY&h(~fUP?KC,~B !VLYu>L%0Wg;aR&%%%%%%Tn]r3LF%VB:d4.iW@?MQ0c) !T.zR%%%%Tvo>VoL.TTbEWMriT.nJ6.A !T.zR%%%%Tn>L1p`cTP)6sl1ASzkU2|4USLh1['zeS>p14>qqS:E@IYGLS8tN=6uAT4K=vQOqUR6H/i]. !VvkKmC*=Wrdj9GpYR&%%%%%%TxEH[XIBVjl]DSYGWL8%(%TNWz2?t2;qX0seAcclX2m:J:A) !T.zR%%%%T`_vNp^xTH73|Q57Sj|/d|^)SF1Q>?r3S:Q/E?IQS6N~6l8nS6+|RNE,S.Ux2uX+TnKOlRIY !VL._P5KBRe' !VV)R6UunT.k+zaYZS:5.v<\iS.@)ft0wS*m0N/iUR&%%%%%%Sx/K0CU(U0>\1.;l !V0-/AM',Vnpg\29PWHut2H`yS*'Mb>/oUn%C*)YnW0n^e>PzWJnj)tPzW\Zuuf^@R&%%%%%% !T.R%%%%%T4bkWYu-U8RLO\;'St=x*\RlS6E|pZ~~S,U0]7u/S*@9fsNrR&%%%%%%SF3m+s'.Tn@qtOGw !V0GCcL|1W.WkNA%|WJ_eq\i7S&q\O]RQV0\eniI,W8Ntc<3BWP`dS[ZlWTR~4p-LR&%%%%%% !T.R%%%%%T2c(?~lGU6=NGf%'Sj5BE8_tS4>?.-r3S,+r2XBaS*%D/1hzR&%%%%%%SHK)G0zeU0&Y(k4, !V6}:n1otW8<\MA+RX07bb{U'S(*&g*urV@(jPhP'WZfJFHrCX4i0d/;^X:=WMbMkR&%%%%%% !T.R%%%%%StvGP&,tU.y-y6MhSNH2DQ7xS.CvU]+%S(p3)ZY3S(6YQ4-aR&%%%%%%S(-v{GHnT60e:(jN !Unh}@*YlW6B=>nx9X4,Hl*{]X>ZbcPmJXBv,LtLSR&%%%%%% !T.R%%%%%S.1,o2%+T0//%(a[S*/0oD8LS&MR%%?XR(v.|6NgR(:NZ0;xR&%%%%%%P,aFOZ6rCT6ajWPoXY0}t@h~(Y@UM{ivWX\U,H*N*XlscUytAR&%%%%%% !T.R%%%%%STBUW(OM,S2%g(4T;S(>5G2r~S&U`h\TPR,S~poV7R&%%%%%%S4GE_]RkT8;X(a5q !U6se8G~DV2`d^[S=Vt*cVuZ\T22J8yW^VX2~C~/uWN%VGCCYWb8b4nS)WXP7yeZ{R&%%%%%% !T.R%%%%%S4K=0pvqT85EEYL1S,lOpZ\tS&mgJl~~R,JAD4QRR*95g9O`R&%%%%%%S*LR%9j?T0=.6:b< !U4`grq|yV2a}p?xOVhsuN?H'T:TBfsX;VxPO|S1oWRko+O`ZXl=(`X5sYFja/[biR&%%%%%% !T.R%%%%%S2&i=L-&T4Lw{RxhS,+oni^_S&_|/njKR*j1E'lXR(m>~_/1Jc/~iV>a7D+xwW6'N9zyVTXTDa_n%W@\H+E8rX4?~gnm]Y44}`.8gYr7.%_AlR&%%%%%% !T.R%%%%%S&yp92(|S<`)mG:PS&PDQ`>TR('C[&/|Q.C0xXZQQ*o1'?mnR&%%%%%%R&S[ALx-S,=tRB6L !T@S@K4)V>t<-gWzVRTpbVt&VXHJ~3qn !T.zR%%%%U8MPl45IU0PD4DTsT<1su78[T01r;BW3ShKWgv:~SZ}6q~6*SXg[S:X5T^A)ZQ6XU~D/m,Wj !W.WIyO4bR&%%%%%%R&%%%%%%T8-<@zgPV0>C]8C:V^*)^|USW2ED.HafW88N@0y~W8zR\n&5ULqtZ]*L !W0D)?wWmR&%%%%%%R&%%%%%%SF~UCuF=UbhQj@u}VdQGy%x*W:Qg%}([WJNlm|{PWP`JJeWm !T.zR%%%%U6>z)IvfU.mdHE9jT8j[?R'{T.R{hW2>S`AhbRM8ST`f !V8lDN(2jW4\k55|MR&%%%%%%U8D^z-=)V\Nl5ZLFW:n.4v`BWNpH|/rcW\T[/:8SW`r1_2(s !T.zR%%%%TH\-1D+.T:8OO]NFSNj.XgPsS8Y_Q[XDS29ej;oxS0'Vu@[2S.li+,>fSVt~L]4jsWJ_ASFHrWlM0}5g-W~`t2*ivX0v6P=YAQ,3hLn~xUF_=>ujxW:9TvtCQX0`eHAKNX:WEo2dDR&%%%%%% !T.R%%%%%T>9]}?BxUD0%kv,MT2;Ik;Y;S@@~-m>aS0]2.vy6S,`dL|EnR&%%%%%%R.&_/?7*Sxx5|D}\ !UbFQA_8QW>^<+]`aXZyT8c0TP&[i{'j5U0_CQYP|W@7p}%SaXD^P}-0TY.WWcYyoR&%%%%%% !T.R%%%%%T<~l`a~cUBp:oR[pT20iSfCiS@*@up:HS0SWdpKMS,ZNallrR&%%%%%%R,*ciZ{2S~eM/?6v !Ut'^3gbCWH^}:spIXtJR-Y>ZP&Z7OIF7U4H;u0u{WL\I1(T}XTn'iJSbY4)>IZR{R&%%%%%% !T.R%%%%%Sr4.ZI+0U.eje2dGSLR?FQb(S.2u^^;?S(h|;_Z%S(1v3gS~R&%%%%%%S>dF2,muTLXvs{DE !UR.3TYfqVJWILc'ZW>D?mZl&S2.K-&J)V8>];.IGW@}X%nWmW|]]v<-lX232+xd%R&%%%%%% !T.R%%%%%S^QK+tStTl:,fI2%SBWGc~x+S,.0CV=qS(@x`:?yS&qnjN(>R&%%%%%%S*N,jt5jT4Y{DtOG !UF?1+A)BVN4G'U7eWB5?aOK9S*]U3{Z7VH;C@LhFWT@R]u,gW~wIasu3X0Gf'+VkR&%%%%%% !T.R%%%%%SZf4>]kWTh)3A(MS(9[U\[CS&m)JjzCR&%%%%%%S,-c~kc{ns+hXDEq*nN]R&%%%%%% !T.R%%%%%S@'n\rcrTF/=BHN(S2`?OpL)S(J`([?XS&Zy+AjQj.0+XD&aM[Q?XRwScM%dZBxQuAq)R&%%%%%% !T.R%%%%%S>_YgbGJTD^yZu]wS2Nm5rZ\S(Fxc}9XS&YEH3o?R,l+`|>lR&%%%%%%R&\*i60BS6H65xs- !U2c3D7q:VXtGD4CBX.YZ7\I;S*fbxNicWLeE(0>`XT;O[Fl?XlhJw0;RZJ4au>EYR&%%%%%% !T.R%%%%%S,hqy{b]T.^k>6utS(w^UO:3R.,g[+VuR(fF4N/1R(07bV2>R&%%%%%%S*0D'0gHSd?)8|Zr !Tj\-Uu=MU`L{`UH(VN`*]KS]TXKGl;?NW4uv7K)@X0,tqHwfWth;X?bTWHc:>AZ{R&%%%%%% !T.R%%%%%S*3|\jMeSZk}JQ]dS(.]Zg9TR*E8m&2]R&~`YV|6R&_IVm(=R&%%%%%%R,?=zu56S8Q0xQsS !TL^?2/T\UVH.K(rVVJ&.T@;2U0@d7y}+W:=NI{qnX@O}nrn|Y^.;Wn*4ZD_cKmemR&%%%%%% !T.R%%%%%S(taM?,zSTA.[iO{S&{c~F?6R*)b7'=[R&s'GjmyR&WoINF-R&%%%%%%R.'=EHefS@tb7:;k !Tf4-F~sGU|}fe4uhVn*2.%l6U>`}oc^{W^CZXJ>PXb(5{JjOZ2GYE=QnZhpuOz|/R&%%%%%% ifeffit-1.2.11d/src/cldata/51.dat0000644000175000017500000000432610771740457015327 0ustar segresegre# Sb CL data / PAD Format npack = 8 51 14 .5749999881 .2550000000 !T.zR%%%%V0(nE.,?U`;O>g*3U0z0`DcUT\Lkp~=lTHpDnd;ATBHa^`%tT@g0WT?(URh]*V-KS\P^nHzzSR5Nxb]+SP3e>O1HTPDA4::JUlC@W_Of !Vt'TrHbTR&%%%%%%R&%%%%%%T@ol%N0 !T.zR%%%%U4:{'RC8Tz&p6[kaT6UjYhJ]StK04Y>ySX]=8%L_SNbG2xu`SLfp;0;VSl(|`,P.U@;}[sIq !VrK4CEWeR&%%%%%%R&%%%%%%SNoMK`KBUt1PKdL2Vv7{7,SAW@G&0*J*CyR,x(TGh~UHY+qU1UVzi~YrWeWJD=pBlUWf~}}Z/uR&%%%%%% !T.R%%%%%T@KH*C=XUF[<0;\7T2rOE{52SB\>'*\iS24cy^28S.&}ZK3;R&%%%%%%S4&]Sp1yTV0>R3x5 !V0rfR8TUW4zw|I-dX.l)h0y6Q.%+'}8YU>~`P/ES-UD`(}gAPT2O<<0z:S@k=Og`wS0o%rs|DS,lCgs&?R&%%%%%%S82:'jjSTpKr8ev> !V:/4)@cbWD+E]g^PX:]j:3B(R&Nr]|z7UXNIJnpSWBIge8,?X4H)4fw\X>|L{S;^R&%%%%%% !T.R%%%%%T6t-MD4:U:}1/ty)T.UBE;upS8`k&[>aS.,O|h;ES*`Fpst{R&%%%%%%R*(?hIDwSR[+Dxb> !UHcHjo\fW6+{t|TfXLD26igFP(<3iSVyU<'*;hKyWT,nwmOeXVK.o/DQY4*BnvsOR&%%%%%% !T.R%%%%%T6f.@KXrU:kp.C}lS~XjT&RKS8QVQaOlS.&(y,zWS*\5_~UYR&%%%%%%R(Xh&0uXSVA_,q&m !URq%F;B\Kp`Y:s|}-PKR&%%%%%% !T.R%%%%%SX1>{[n>Td,Oobt(S>p~vM.>S*g:[0mtS(3(5GN;S&hj7_,cR&%%%%%%S6g'W[whTB+61`xQ !UFXFpwSuVBBS(0%hW8v'~g}BS>gRUOGcVDema[2_WP;E+Z.AX0hX=7VaX2k`&i<|R&%%%%%% !T.R%%%%%SF=U+e0lTN/~i_NtS6AE2QsdS(jIer&fS&hDKSmBS&PsL)kyR&%%%%%%S(G/vRNMT.WxOv:H !U:cknBfPVBS2Bw'2W<4V0Ri'S866}+I0VrO(qyVXWlBvs]KAX06dkoicX:q/(9C-R&%%%%%% !T.R%%%%%SF=U+e0lTN/~i_NtS6AE2QsdS(jIer&fS&hDKSmBS&PsL)kyR&%%%%%%S(ksVIlaT4(C&^3. !UJ@IVFv-V\+`UNX6E0/2=hX8><(%NiZ>243YLsY@8Z;w*4R&%%%%%% ifeffit-1.2.11d/src/cldata/53.dat0000644000175000017500000000432610771740457015331 0ustar segresegre# I CL data / PAD Format npack = 8 53 14 .6309999824 .2810000000 !T.zR%%%%V0PapZ_]UdncI1mVU2O0zEDttTVaJzC&nUte;``1 !T.zR%%%%U6'3RZL*U._veX/=T8NW8'JTS|a7,I~sS^G\[.nwSRvnrA93SPr*v`MuS~Mv-APOUF?k)6du !W.Vap~z_R&%%%%%%R&%%%%%%SJfBoDxgUj]nG[sIVlTg:t][WMASNTOH]iqT0]TlAW}UVabLe_J !W4exn{%,R&%%%%%%R&%%%%%%S\|=]*kTV2Zc:qJGW46opv0rWVi^.:~/W~A@QjL'X08r\wAC !T.zR%%%%THf`6)zpT:>[3:fRSNvX)B@xS8_I-HXPS2=N7C,sS0*XKK5CS.o^0)KrT.n',u)&U4d9X6w5 !V6pFME;(W4(q3U*aR&%%%%%%U<.+yFG0Vdsyhb\&W>G:lXsXWT],>125Wb~b.:6xWhH~d9tM !T.R%%%%%TDGvashLUL'U'FbGT4ra8Rr2SFhIvHK_S4+sb_98S.[rY>^TR&%%%%%%S8'Q05xgT`wxBUQ@ !V2zO.DUiW6x%dAsPX.soplsxQ,Hw>Hp`U:]@C[8XW0b*_P|MW^83xHl&X.kUSU:IR&%%%%%% !T.R%%%%%TBNdm4{BUHt_hN/MT4H3&-PVSDgqb.1pS2_\;e8VS.BySD^3R&%%%%%%S3PU'KAX2PTkkT.XvsU^6ZT0C/kDy[SW%WHOC`R&%%%%%% !T.R%%%%%T::tL7:;U>`|JWOAT0:+<\45S<2KT0T7S.dy{ubuS,+3=*]fR&%%%%%%R*8G6<35Sh;:q9Dm !Ub,xV-m~WB7^'U~wXhLW9.CFP&hJ^fm2U:Y%jEZbWZ/H)y+qX`uA[57%Y8*'D%MQR&%%%%%% !T.R%%%%%Sbo>7qgQTr/Y}c3sSDh\jq9rS,D|/hXJS(JY8T|aS&x.VoN@R&%%%%%%S:Z/bIxtTFb5_>1} !UL9'63N8VFF(i8`uW<.2X_%dS832oxfyV>c/QS:F3q16VS*7j`Fx~S&x}@N>JS&[dRIJ@R&%%%%%%S(r+OPzPT0xl5wx\ !U@>CzK@-VH45\d3LW>\`[20jS0{eVZC?V`@4ObFRk:lX0&nuICFX4;+[_q^R&%%%%%% !T.R%%%%%SN?7:CMUTX-9>c/QS:F3q16VS*7j`Fx~S&x}@N>JS&[dRIJ@R&%%%%%%S*F@:(+UT8*~)-Ea !URc&GMIyVf7)%i\qWZCeI@pyS65mT&GpW0]BroPNX42{Bp=uX@V-Z'lrXF~86gpSR&%%%%%% !T.R%%%%%S678po(&T:1rLe'RS.68r\xaS&uDb8jKR,jPUQlkR*N1ai8UR&%%%%%%R&TK{{?&S0C6NBwt !TnpCHjFNV@s.?o>+WX7GkXG=S:QXF3X?W`JXCP:lX<*9)GKtYhsO{A.9Y4BRtDN{R&%%%%%% !T.R%%%%%S678po(&T:1rLe'RS.68r\xaS&uDb8jKR,jPUQlkR*N1ai8UR&%%%%%%Q.)_4?=@S0c,^?1G !U.f1:{@>VLAwEkbgWn\0Yb`iS<^tNFq*Wzoho=,GXHD2Yq8bZ.z0H)YcY<1gEfNgR&%%%%%% ifeffit-1.2.11d/src/cldata/29.dat0000644000175000017500000000271210771740457015331 0ustar segresegre# Cu CL data / PAD Format npack = 8 29 9 .1459999979 .6100000000E-01 !T.zR%%%%UBqFTX8AU6\6eTc^THRo/20]T6,?5<2>T0;g@<|OSzHLABEUSvM-5I1\TT|_.B3+V23r6sGF !R&%%%%%%R&%%%%%%R&%%%%%%SFU[tQ%XUNeXJDy[VJl?--0cW0~SX3n_W:HBi=q7W;e^S.yEln4xSPQbTGsPU0%5(:R2 !V6W1S^OhW8KAdDt&R&%%%%%%U46<-dkaVn7'gB%DWH2CbY&9Wlmx/lF)X.r7DSp3W~8eu}g- !T.R%%%%%TDfJbEuVULM<_)3&T6(iw*VliRH8liWzI^9=HrX>r@eo>'R&%%%%%% !T.R%%%%%TDHm)Z[FUL(^JM(%T4s0>VUfSFiGGBmtS4,>_(d6S.\0_l5VR&%%%%%%S(Kbs]ulT6y2Q)vE !U|3>y-(kW@mTs_3yX^vSRZwIP*iq~+mwTxBK6KF_W44PqPU?X6_:~+ClXZW&d1`*R&%%%%%% !T.R%%%%%SLn(_`JjTVQqfYy8S:0.sX9LS*3+p\jKS&v~`v5cS&ZJ1I{nR&%%%%%%S,;g_LuLT4C+Ylpb !U>Dcywt/f(W4K2m/>TD)X(lM]S28h8c*2S(B9t9+%S&WFhY`WR,_2%=kPR&%%%%%%R(FUaNb=S43\B@_I !Tb,ctR),V6+2JVv}W>Z_+E?}S,;VsUCwW2'x/bI(X8.G4Dy:X4K3COlxXPlF./RJR&%%%%%% !T.R%%%%%S>4K2m/>TD)X(lM]S28h8c*2S(B9t9+%S&WFhY`WR,_2%=kPR&%%%%%%R*-=d]Q-S>BI0b,A !U0P8@Iw^VD9~;@lYWVSH>e}jS0Rar\eAW<]is:\uXJYhY)N7XF@{;F9aX|YT1/|5R&%%%%%% !T.R%%%%%R*_17_eqS,=OI7TfR(DbX9)ZQ*t7%-|lQ(8R}?alQ&lC8^Z+R&%%%%%%P&[AymKzR&t7,89N !S:vTj.7sU87Awt8HW.}(Gd>dWB/x'CBlYP5&v/0;Y^pf=(RuYnLwS,7%Yz(z]h)QR&%%%%%% !T.R%%%%%R*_17_eqS,=OI7TfR(DbX9)ZQ*t7%-|lQ(8R}?alQ&lC8^Z+R&%%%%%%P&R7*(M.R&}_]1@- !SBDis5mvU>|R4*|^W47=S_HRWNTc{?o5YdyzR,?.Y~cpq+T;Z0`A\/HzZ2Ni?~ePR&%%%%%% ifeffit-1.2.11d/src/cldata/67.dat0000644000175000017500000000574210771740457015341 0ustar segresegre# Ho CL data / PAD Format npack = 8 67 19 1.118999958 .5120000000 !T.zR%%%%V86k]R-&V0C4}mxDU:q.^SZBU0%R@6sUTfU<0|DFTZ,c6WU6Vw{D-ZTHH.'5R4T6'CiV;>T08SkGh7Sz.O\RrSSv4Ar[S8TJZH6jC0V0SO/'y~ !R&%%%%%%R&%%%%%%R&%%%%%%S2}N\*e !T.zR%%%%U@DPSnE*l*;kTNe+3iU6V4d5Skx% !WLqF&g25R&%%%%%%R&%%%%%%SB-ELSz?Uf]H]BwJVl}L=SC]W>V9}0hYWRdMqh]+WZn+}wrc !T.zR%%%%Tl6_U5*tTNJOs+-,SxR9_c7iSL2x*|OlS>MU}xgWS:)GjP=6S8Yo/,]XT>.8'+?0UFTa^-Gx !VF7KeffmW:^sPfcpR&%%%%%%U.spnKOPVD0[|I_UW201BP*|W<}J;`,7WD},XJ0;WHNALVfW !T.zR%%%%TdllUu8HTJM*/y;|SpQXF2[:SH@O/LT+S<;DJSzXS8,*\wR2S6`S2/D.Sv4F|Qz7U:G@b2K_ !VHgOU<=8WDIs}Ai7R&%%%%%%Tb;}G0@AVN_m\?>1W:1pr9u:WN5L}p=aS:5gD8EDS68uRPMeS4pu7J80T.\)k>=dUByW^`@s !Vb7mh?[lWf7.9-T/DO)>S61\uZ+0S2X?XJwcS2=/u_`DS*9nx'0_TLNr;0n? !VuX`_RkVz,7_FxAX.W'51\uXBX4Um[JXXY6Uiy-Y\hukvGK !T.zR%%%%TRDDkN1TT>{g>{kaSZDh9]OlS>3^*TmtS4vRiz'^S2G;}VRMS2,rktP~S(\wkaWbTN66G&UV !VB@S5r{@X0.-;?s?R&%%%%%%TBdNL]-.W20Zk,i+X2x0s+].XRSy3^SIXv)N.Hc3Yz0QcNI% !T.R%%%%%T47OY11fU6vtDnkRSnn[v:f5S4pp*H~~S,A8+%VgS*3<)}._R&%%%%%%S`O[j&lmTv)iyxh& !UvQf>Q6BVd.ZgWzwWH/ozUz{S*m[KX+sV.kHyLt:W4a(@Ae;WVh.IGmJWl]a_Jf(R&%%%%%% !T.R%%%%%T0b;=2oOU4'6CXpES`'IPZcdS25O?p:HS*\.W5vTS(d2IN_4R&%%%%%%S8Cm4N^STT@f:v)T !Urty_ixUVpN[bUc9WJrNM93ZS(2VBprUV6)%ilsTW>uw2dvOW^DhR{qnWbKN9n0;R&%%%%%% !T.R%%%%%T0+BO-`FU2=>93b2SXvjLNuRS0Sc>jGZLFR&%%%%%% !T.R%%%%%SZ]:YR@yTfx/Jz_ES@[M3JBwS*unl}9XS(96Y7z+S&lkC}%ZR&%%%%%%R,i{QeaIS|Td@\@> !U\,Y8;XKW4hU}z:=X8%A`mS6S&WG-*aOW4Z)@VSYXF@:[[ahX8kf|kqqY03A/rsTR&%%%%%% !T.R%%%%%S&\+6n7FS4W{m3i|R,0HRF`GR&`y[%%%Q*n:z~&XQ(o{hqjzR&%%%%%%P(7A7':NR,yL>nK4 !T4LI01y@V4,1Ai.GWjgQSW4/W2/:[_&uYH.~=inNY0LPahhkXv37AfaOY0-G]_:eR&%%%%%% !T.R%%%%%S&\+6n7FS4W{m3i|R,0HRF`GR&`y[%%%Q*n:z~&XQ(o{hqjzR&%%%%%%P&z7A'{xR*}*4,F* !T0b'8W5sV0Sh+3z8W\Uj\h-\W.mkkn-PYBTh&8hzY0-pAROTXlItK+VkXh7Az(:-R&%%%%%% !T.R%%%%%S6O(*bvRT:O@bqDeS.BH&w:-S&wy{GT1R,uL1@I0R*U=cfBNR&%%%%%%S.}A.ay+T2Wq0[.s !U2XlM&(AV05KqoSBVfCuc4pmT6q_Q>iPVjEq|eC:WXrVtp=`WNT,>q8bR&%%%%%% !T.R%%%%%S,E1/3suSxS.82i0S(eGmAv_R,_rI/bvR(Uyjh4|R(%R_`%>R&%%%%%%S(>|-zXoSb[[j]'@ !U.|jx)^+V.rd=F1]V\{h}}:lU.Xqq\KpW6;cQO9(X8UmK6/uYD|HdYVGZ83q@*~NR&%%%%%% !T.R%%%%%S,E1/3suSxS.82i0S(eGmAv_R,_rI/bvR(Uyjh4|R(%R_`%>R&%%%%%%S(H|3aFGSxGm_P&g !U4ry.)LCV6vj)kr+W2-OucOUU46zbWX@WPp-&kg-XB:E8a[pYV-g&;GsZH%C'VH>R&%%%%%% ifeffit-1.2.11d/src/cldata/60.dat0000644000175000017500000000550610771740457015330 0ustar segresegre# Nd CL data / PAD Format npack = 8 60 18 .8539999723 .3860000000 !T.zR%%%%V47N.`BUUxlUK`@yU6Q_:5/oTt8,>}.0TXPu5TA;TNXH'c2-TL]@MEdhUx.NXVm-R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%S.\,sWdwTp>%<1vLUfUBQ]1/V:F2GgEU2p9CZ)dT@u^+4BRT2J7UX)>SxbnlSjBSh_+{J+9Sf-wMc?OTruI&NnGV0cR~m%H !W0EVO^QKR&%%%%%%R&%%%%%%T4%dyV1HUvn3zAkXVPs;,v0+W.}qJswxW4=16_hyW4m[|s_l !T.zR%%%%U,Hb0SW6+qAQz;WB9HjG([WF\t]KP* !T.zR%%%%U:.RL/=0T0YpZ9)eSnALr|Y^S`@z/bd+S\{e:ty0nE[R&%%%%%%R&%%%%%%SJ~08UG5U~NEV_QdW.uPh2p*WF~F8Mp*Wb`nlmwX>g- !T.zR%%%%TZ)ZOT{LTD/(gA/PSbeco[H+SB4~Fx-cS88H8E'GS4LHo+:TS4-^.SSKT4x/,|rZUD,@&YGW8%VjxzkR&%%%%%%U2qs`^U5VNgpf-NDW6@s}NXRWF6wms@zWPXIWdF9WTG~4`Kq !T.zR%%%%TT6qsR+5T@N/3PLzS\Dz}lqHS>]=/XB{S67XCsQrS2]-f?<HeY|q7R&%%%%%%Tz*5-2.|V^xeM^M/H&-QSX?|kLZ2SC\yJdNXF4cjBv}Y.vAbde?R&%%%%%% !T.R%%%%%T080ME3xU2M.fh%0SZ^4vGbyS0a]3H~~S*Hg><_5S(WToXD&R&%%%%%%SJl@[<+xT\K[>4Bz !U`PWuMS,VTv&]Os5WBtOvahQS,z45]EfV2^zmbw[Je !UVa]85tgV\Kh7GIoWH%cfvRtS([[t|g_VB{bF+Q(Phvg{,R&%%%%%%O(dTLDWbR&Y?4`Ky !S>>~<'UkU@`<(:WdW6;KO'eKV\vXUotMYL/&^EBxY6V*cH4YY0aJ0}.vXvU%9m\bR&%%%%%% !T.R%%%%%S270g8R.T4a4%:hES,46gSasS&ahQ|CqR*q`zfecR(r6G]EQR&%%%%%%S,DPZ^IaT.ekT@2z !U0%KAR)nUxBrVw|5V\pB3z/}T>fide_9W.qka]2IWp?lQc3*X.w{~66UWTA1b^dmR&%%%%%% !T.R%%%%%S,Q(f-n1S|2CIkm6S(kOGFDQR,lnm5_`R([JXjQ>R()+`^W;R&%%%%%%S&adiEMKSJ+.5*@{ !Tho2s?31Upvf?qVhVXG{=Tf8T^14p{J?W691@}SAX0pTh)8FY8^hA?LFZ04R6C*IR&%%%%%% !T.R%%%%%S,Q(f-n1S|2CIkm6S(kOGFDQR,lnm5_`R([JXjQ>R()+`^W;R&%%%%%%S&lSUT&1SXv5oM[O !U0T2=CbU43xr}Ey8TJ~OTIDZT>D2^RlTT8{mQ?R%T8RZ615oUD4B4BoRVBaULPl8@EPTt\/@a\pTJ>IsFYaTir[ !R&%%%%%%R&%%%%%%R&%%%%%%S4`1DM5MU6nSszPQV4f3xcpiVV.:mX8^VxHA4B18W.]768pB !T.zR%%%%U\aO)qRvUF)`?0kjTf]dj5H%TD*G@R(|T8k~HOM(T4v)/|\ST4UF2*f5U:.nZJC7V`[T\%|& !R&%%%%%%R&%%%%%%R&%%%%%%S2[1l&*.U@s=2y%]VD94qN:pW0Bmq,V,W8h90.0rW<'Fn.h: !T.zR%%%%U6skAnyxU02DmsG4T:Nv\+OHT.oed*2>SdH`=|R~T61S>9H)SpWk&g-WSVJQT1DWSLdYy,;ySJm,1t%dTTR<2A|nV0^W2gq` !W6(Z0\^wR&%%%%%%R&%%%%%%TFv>A0;RVDNJ.a/VW87fq|:\WPMxMB_tWd0<|JLfWhy_/P7] !T.zR%%%%U0|OQFQYTj^gx+n`T4(jrr'GSfR+O;G.SP0>q(AxSH)Sp{jUSF<~s,L;SXw^uX1eUFL^-_>a !W2[-PTRLR&%%%%%%R&%%%%%%Sb4|v*haV:Vd-bBAW>SiNd?.W|Fp,?rCX4g|^>juX6~+2A.D !T.zR%%%%U0c4~qYZLX:y@xsX) !T.zR%%%%TRyPpTauT@@W;V&zS\)I1dBLS>PVZi)IS6/@IN6BS2VK?Zz8S2;CDy&TT8MYi>tJU:L2NtbV !V6`3:L5yW.}C-)q;R&%%%%%%U6N(&_biVH+J@5/TW0VF78JhW8L:L6?eWx !T.zR%%%%TF_Ajb&TT8`1MvXLSL]kyk=xS8*KK{\iS0u':X:IS.hk?LH-UlUD75kPFfMaSS@G@eRKSS0_nDVwsS,bLyI}MR&%%%%%%S4H1%o7tTxqDD/<1 !V@^W/eV&WNN/frVwX86^zQW0Q(jFJu)sUl>R/hi:WNot>h>W.KSS0Gf'ylFS,RhQ,DxR&%%%%%%S.s/C`)lTx=)7?g) !VFx(tJw:W^a/&z?&XBvxJag:Q(H{YN3WV.ipQ}r`WfGFeKj{X>|;-(yFXDe]sy,4R&%%%%%% !T.R%%%%%T21OenRrU4Z4XAuYSdF+HHrfS2bC{C-WS*o*sdm4S(pQvN7bR&%%%%%%R&`h<}K+Pbg[%Y48*XOH.X2y\Dt4OR&%%%%%% !T.R%%%%%T0z*Q)V*U4D^Y\@ISbG-)|}+S2OH-s6/S*g*2z6wS(k>KKhRR&%%%%%%R>?s'JSNV`Y7oC !U^132>wRWH=iy~Z\Xx}ayGRpP(^Cb{18V6_SSjtWXFhhuMSTTZb4`2Zf !UR[CSAjpVB^yora[W4I}02PJS2;_Q,jNV.p|W{_wW0W?=miKWD:M(B^@WNOD>%>AR&%%%%%% !T.R%%%%%Sr]k9~+mU.j|M2^aSLgj6SnCS.7ODCr0S(jv6dkqS(33OX94R&%%%%%%SDhe@/HXTXBbQ:8b !UZU:qS>bVF@ib6M3W0}&zJiZS48rykG.V86WT:E`W2F3n{/OTpKy/L(CSDO1o>k;S,?UcjT=S(H>rJ,US&v\0vMZR&%%%%%%SBVI<9MBTftYkclL !V._e0aitVtp=iivWWR[p(EBDS>|9JT6*,jsIG !UX'rnfG`Vno&`n_dWRUPkQOOpK)kR&%%%%%% !T.R%%%%%S.e5/f8tT0pE1c9`S*J-F)(\S&S:t+d@R*4FiBF@R(J=/d<:R&%%%%%%S*pP}A3:S|d]4Wb] !T~}-r]S|U^ENsnb5VvTP9YxRPLVV6Ar|QWX48?2S_,Y8[5aV}UYr6/Hhf;R&%%%%%% !T.R%%%%%S,E1/3suSxVtsgP2S(eUt5BDR,`6GeePR(V,LzEiR(%ZvA@gR&%%%%%%S*Mq3eV>T0;vPQVr !U4;)RR)XV2=5tRXvVpQ&[EKqU2b2kSP/W@m/w_zCXD%`KYF5YL6LI/fxZ8OVz<0cR&%%%%%% ifeffit-1.2.11d/src/cldata/15.dat0000644000175000017500000000222210771740457015320 0ustar segresegre# P CL data / PAD Format npack = 8 15 7 .3000000000E-01 .1200000000E-01 !T.zR%%%%TlP;RF-CTNYBB~UxSxpJKr(eSL@qz1T+S>V[%J_iS:0cXJZ4S8`la{l/S@NHVt)dTz~2JkG* !VdZV@Izk,`4WF0~XNVwS&l^`E:TV6i%>pg,W\suh'[1X,*A3-CVBp8pRw+TDc=T:oxWH2_c5={XBM~Pc4BX:<=FoT5VR40&(x}R&%%%%%% !T.R%%%%%S(*'cb3MS@*.}rhOS&UWA/zJR(2L9TYSR&Pd.n,qQ,3aI4X*R&%%%%%%P&[7H^P[Q,s=57hu !S*N}`G1;T>*pikk,Utcfliu,T@S-cS_yX0q)}tJ@X86Kp>NJZ0mT'7qzZ@oMiN5WR&%%%%%% !T.R%%%%%S()A,)S%S>{9ze%ZS&U6?NQQR(1_uXc%R&PFHLWRQ,1Sp-\bR&%%%%%%O*Q,[oE*Q(l;Esd. !S(4t5{v-T0q'.,N4ULIw{TwiT2e~V@5yW`J^)C[AX.[*VHJ3Y^zg?E>sZ2yh]5&lR&%%%%%% ifeffit-1.2.11d/src/cldata/70.dat0000644000175000017500000000574210771740457015333 0ustar segresegre# Yb CL data / PAD Format npack = 8 70 19 1.248000026 .5740000000 !T.zR%%%%V:1pIeceV0tSCCDbU<{H~j~%U0Sl;C,5Tlt0_6n/T^{8Lt9.T\]LluUPV2yH\3&aR&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%S.%|%1lnTZV`6c6fUR5`;+mlV2~tvfm:V>6b|*u|V@d=RBrO !T.zR%%%%UHCgbD8vU:*D=W}yTNMHPP4FT8LHqmx{T21.Vsh&T.z[8aJ3T.f02U5qU2a)'u4?V6Wg&=7< !R&%%%%%%R&%%%%%%R&%%%%%%T.]|~gQJUZ4oOFbXVB2En7`wVfOA{Vw|W.hVBwG6W0.(?V@7 !T.zR%%%%UFR.>>WLU8XONff*TLN7A_?4T6}:+}q>T0pDNaaUT.e%`>%GS~z8-iE;TV9%`s&xV2sB_U88 !R&%%%%%%R&%%%%%%R&%%%%%%S:qG9{%hUF=7[dBiVDw~KD7.W09j|ItuW849J6'6W:f*]*J< !T.zR%%%%UBl/atG)U6Y2Kd3zTHL]UX'nT6)KpibaT09t(,\hSz9LAjnuSv>k73INTZ7r9*QGV8L8.p;, !R&%%%%%%R&%%%%%%R&%%%%%%S>_20O<)U`&29x/(Vd}VNNJ`W<3p}?rCWN;PWX`ZWTs_/:qN !T.zR%%%%Tt`7Yv.DTT%InZcNT.as]XY.SPYNPLzZSB'ZH.A*Se,,:x7S:']ES8kz*4Lv_'W1; !VNaOZeQ+WFE4}%>AR&%%%%%%TZ}D.tj7VJ5Gp@nWW6yY=-4_WHn`ujL'WT8]dfQ_W\k'Q,.1 !T.zR%%%%Tf:}:G(8TJdF+J.*Sr&{.ni^SHVCJur3S95VT0uOW)*UUJC3KUP6 !VlAt%H~7WlS@8KNPR&%%%%%%U.o5`G2(Vv)lFs|=WPm)Yvw)j9TZw2Rk^4 !VBpsn-b0X.VwsBnLR&%%%%%%T<%:CEL'Vn-R0a+ZWtU9}h~?X>jZUfSVXRJDbr9nYR|_xv'' !T.zR%%%%TX15L8AnW08s:ZI[X2%HEyU@XLk1h]jBXl8ygmfnYjd7A,ma !T.R%%%%%T6*0+?{KU8{`n:KqSx4>>e{&S6jpYWHW[s*4/S*YEg+ILU|-4i:gjW2t7T`^LWPz`CjquO+T`8x2{w' !V.ZZNe7rVx[i3We3WJrZZ?ebS(%evqCWV2p^ql78W<42~UkxWVVgkBH3WZ&cou:|R&%%%%%% !T.R%%%%%T0b;=2oOU4'6CXpES`'IPZcdS25O?p:HS*\.W5vTS(d2IN_4R&%%%%%%S@`IRS5KTvwj4)/k !V4_]eH'cW6:mzagdX.u\*H/Cy;AT0t2\k[j !U^8Llpn%W2r|5iKMX2dKmikmS&OFl_YHVrixLDFxX8&MoKu,X2=e`Rh,XXRnZ6DkR&%%%%%% !T.R%%%%%SbXzz18ITpm}F{xsSD]8+H_7S,BUJmteS(IVn[u-S&wLEk7PR&%%%%%%S&UmUBSNT2&C\tP7t^uS&Tw58i)R(1*I%,|R&P/lAGDQ,/t[a{8R&%%%%%%P*2eM@=-S&aiyS&Y !T>('54BaV:mXiqwFX.po|U^lV>x6d13XYBUXTGD3Y08~+-OJX`*tP7t^uS&Tw58i)R(1*I%,|R&P/lAGDQ,/t[a{8R&%%%%%%P*d8i[F:S&n>UdQ6 !TBZI/97IV@I&=d^yX2/`th4R./>U/}rR*b7EUn0YT.k`iTM+S(|{a;BjR.8,73QbR(k3FGrHR(3BX31~R&%%%%%%S(`-fE]^SpDX3Fj` !U0fK*@1tV0>IoM%.V^GhzgE4Tp{~]~}SW2z4,|10X6*TB|\OYBL{U7|+Z8?Erx@ER&%%%%%% !T.R%%%%%S,s=[>0YT.k`iTM+S(|{a;BjR.8,73QbR(k3FGrHR(3BX31~R&%%%%%%S(fs7UQ'T.w_HoPd !U6y-gXR|V8dOnR3oW2DqVhrKU0j2LD-CWJf&c:QoX<`Q2zysYP&LKRksZH/JFG0SR&%%%%%% ifeffit-1.2.11d/src/cldata/74.dat0000644000175000017500000000617610771740457015341 0ustar segresegre# W CL data / PAD Format npack = 8 74 20 1.432999969 .6630000000 !T.zR%%%%V(,>d9R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%S,szLQRzTTXkNc+KUL;{W~h%V2(UVa9LV:RZekj_V>U6'WL7B=V|=wQl&I !T.zR%%%%UL-2FGFZU<+`&h|BTRS%V5{WT:H*i4B{T2hk{~YcT0MUvocpT06~{4rXThnkYJ)GV8'f}48y !R&%%%%%%R&%%%%%%R&%%%%%%S8yEV@MxUB5|^54eV@`2-'c;V~Ut(wlFW4k1SXS1W6ni?o54 !T.zR%%%%UFt0J>XtU8l7fV;TTLvB0L].T85hX2alT0|Gb&H5T.newHqpT.Zk~(o'Tl4q,UJhV>1w3:;> !R&%%%%%%R&%%%%%%R&%%%%%%S:|o}s-6UVq-aU/mV\E}mWKMW8Wla@OeWHH]>{n_WNV;t*R4 !T.zR%%%%U.`_vjzGT\)A3IPFT0QqBvBESXFsq?%0SFQS+YF{S@A1sRFFS>d,6^\NTHI-p*dUUR0|K<1p !VN1pPg?:W<[(5v0+R&%%%%%%Tjpm-*<\V<)Fj\LBW.R0qPN4W6n\_c?5dIG !T.zR%%%%TzYD5*hGTVd)R[JkT0&v9a?tST4a7@r'SD*b&MY7S>33W.``SIWBn[(aBTWLG0PT=,WT.]hJ;B !T.zR%%%%Tpewu6XtTPt@xfu;S~P9%j^XSNT[uCzZS@Cy^^UXS:j=]n~\S:=fYoHmT4~S?N{SUTYzgstr !Vzc>AB)@Wtit{n_dR&%%%%%%Tt<}Hic>Vh63:>pYWJJ=+9S9WvVnuim+X0a4+wZBX2_Xo5K; !T.zR%%%%TbzZ;FHITHzqkrYtSnQe6:MOSFp~^leBS:zHAw[~S6p@TQ)sS6Ki(^j+S0+y{KYF\g`znD !T.zR%%%%T`wec-ceTHD}6LZ+Sl>6zm,jSF>MbTT7S:YURP3pS6Ul-u,dS62N>X~3S,YK*>0KTv~%w+.i !VZ)Oj*[=X66`bKz2R&%%%%%%T6x*TrPEVvC{qY/fX.j6UriZXF%2dQ4BX\g&@HyyYXez3,(o !T.R%%%%%T8pX'7kXU>4*m@nGT0'S21AqS:du~[XDS.T:x[o+S*z>5dh.R&%%%%%%S|GxUI:^U0T9dD-3 !V0>-`Yc1Vpl\/N@jWH|H40&yS(uhGSN{UhmcDL\%W0Q3&H&mWHrWJH?eWZCzdD^`R&%%%%%% !T.R%%%%%T60aN6=(U:)i];*^SxUgz3l6S6qH>?r3S,gOQwk|S*L5/\e>R&%%%%%%SH^vZSknTrzfR1?m !V0`]scdIW.cnNtgtWJSO{qCiS&ln-{^=V09*3h\sW6wOeqRlWNd|dd>AWR]zFemzR&%%%%%% !T.R%%%%%T4'~Pi'>U6cgcOAFSlySGt*xS4_}g]zeS,:-KZPDS*.\gc~,R&%%%%%%SJr8yUupU0EOT=\8 !V8ND/0DHW8\LgguJX0AG=X4[S&|cJRfWV>7N;uu@WXM8B=:\X4S{Hg_KX:/_[OYzR&%%%%%% !T.R%%%%%SzlpzckmU0?@]y_\SPs:^+}SS.`<(Z~~S(|1)FSeS(>Gd5MoR&%%%%%%S(:ZhZd8T8(*0b'm !Uv*=B(A[W6re)Fq7X4N)Xdd>R*Pp`kUTVV_Fu_W1X40P)f0.X6Tt}9,zX4}pRpsbR&%%%%%% !T.R%%%%%SvYIOav,U0&_*0:nSNgBc@CnS.JVAi3WS(r{[wrJS(8J%mo\R&%%%%%%S&sNIWScT846Zo.Q !V0%EBZDNW>:1(YVZVaZ.xXjz,%iZeYB|-j7?BX\&PjL2RXb*]=k'nR&%%%%%% !T.R%%%%%S>hSMGC-TDi}Lk14S2SEsPb%S(Gv58OrS&YjDTDWR,nhK7c[R&%%%%%%S6%)=NTET8z?MP'X !U8P/=GG|V4*<}s<%Vx+gpw%4T0XCScjUVTDtV~cAWL(8P7]zWb%|fJ)wWZ7eXQebR&%%%%%% !T.R%%%%%S4gV7W<4T8XBT)u2S,zxCQ`US&pnLYT1R,WAgjelR*A`1A>~R&%%%%%%S*i{H(,=T0s},_*H !U6HGG&qEV44KWv`TVlh=s%*xT:Ta;euvVx_RuM3yWRa}P1N`Xfzjnd1`YBE[LX3qR&%%%%%% !T.R%%%%%S0tq`R2kT4>6pj?DS,%h:\^8S&^aP6/>R*d`W0QIR(ie}`W?R&%%%%%%S*pN\{iBT4fmP\H{ !U@Bi=i6?V@f={)LNW6\3t6i^T`z`&}.6WD&i2s*mX6)crR4nY4W>t`S0Yj}Gv*OaI5>_S&SH>defR(-nl}\/R&NhZCW)Q,&|,8Y]R&%%%%%%R&u:wIaxS0^&vQr, !TRxtf;lcV.xkH.S=V|t;ADJtV0|Q5n&EX2i]FG'5Z4F)|%{6\UvYHrZ5] !W6RnbIh:R&%%%%%%R&%%%%%%SNwLEt}GUZcccWVBVV5V%t?yW4coIt|MW@CXcc3*WDD|lM{0 !T.R%%%%%T@~?65kVUH@7&=aMT42P{(}oITfZYC\z@ !V0~/>RUBh2%SILT2-JDi?:S>}5G]GES0PVaC50S,XR/mQQR&%%%%%%R.OfT82wSZ5^Yww_ !U>vXHtX3V|R:V;q^X8J*i'|)P*I6*+1MTb*w%aADW.v1Z)8?X0a]<]FuXFj);Jw0R&%%%%%% !T.R%%%%%Th/}N\iS0G_sm%bS,RdOxunR&%%%%%%S&ck+.*%T.Z_AG>a !UTpEl]>NW6=1*\y'XJDUxlDkP,:MSV9ZU0p^1ZbhW8qy;s\^XR&%%%%%%S(~Ri=_=T.g:?oE~ !U6U&vQ+cV:Vf1,ytW8G@.0VHS@*^wA{:VfHl7XP1@JXBA)W{QrR&%%%%%% !T.R%%%%%S6xdczbDT<(p[ULkS.WbV'\RS&|P7&jKR..Zy'MNR*ai:4<%R&%%%%%%R&_+}D]RS,YY;@Q4 !TFK&o2[_V.vIw::?W6kw|@VpS.ppW.>CW6R[MnOuX5gX:1zwATAXVQH=wy`R&%%%%%% !T.R%%%%%S6xdczbDT<(p[ULkS.WbV'\RS&|P7&jKR..Zy'MNR*ai:4<%R&%%%%%%R(%ig0{eS2={]y%x !Tb=>b'x1V8B3l:XyWH/%w'VHS6T|5,x0WFW:H:CYXVCexcQLXPr8lAQ3Y.ssDvR*R&%%%%%% !T.R%%%%%S&Y}`zSGS4EWI7SQR,(l'c1LR&_Al~G.XTJoj0nS?V779Y@heOK:PY@U90{G}R&%%%%%% ifeffit-1.2.11d/src/cldata/46.dat0000644000175000017500000000432610771740457015333 0ustar segresegre# Pd CL data / PAD Format npack = 8 46 14 .4469999969 .1960000000 !T.zR%%%%Uv=4JpA,UTE?E1[_U.hDz:0=TPwFbfppTB;(AcJ{TVL|Yy%x*Vjt\WT2lVtbJMzgE !T.zR%%%%U0{M*vtQTjXkl2g.T4'Wsa6+SfLPOKmtSP,_ua]>SH&Yzg/RSF:7.e>]TBF?/s8XUXVG_fO+ !VbvM-C>)R&%%%%%%R&%%%%%%TF)lR[`LV8/PVk/BW.eya-TbW:SBH0xIWB~x%GPzWF:',1N` !T.zR%%%%U0R`m.*DTdz9R&+ZT2QO|n/6S`|Usx-cSLPHO,^BSDf3-L>fSD%/o=p4SJKZ,VIgU4VHhCO| !VV(Fc3N8R&%%%%%%R&%%%%%%S\h_y&a8V0OBnLfHW0\]+zf{WJZcALt]WfYA{e3JWhfLOj,G !T.zR%%%%U0;?ipluTbLb?aosT25x/LM2S^WFXQeBSJWg)i60SB}Lk(@{SB?OM1KjSVh}+;90UmS>*:Jm%%S0-Ri2YrS,Aa_Ri^R&%%%%%%SZSj&>9'U._C,AdT !V0qB@7Y~W0-AVnLBWbN21X2dS&Z^Pf5SU\B,8aHJG1URgznWazW:^u3y_=X.XsE2'[X2y>7mBgR&%%%%%% !T.R%%%%%T6l*.~CWU:s6`\MBS~w6LA;2S8X'cjB{S.(kC,'GS*]|3Y\BR&%%%%%%S.k/36dj10X|MM(P0WZ4S2'8<::HS*V,P0bhS(`9?G:VR&%%%%%%R&\KoM>%S:8cMu?E !U:X:VC6GW0xftaE?XH5e5-iPP*ll_|L>Ux%Tj{PZX4[US6j/Y2^RB*>sXtK?M3FOR&%%%%%% !T.R%%%%%SB>xwf-3THa1|;BFS4@-OM5nS(V|/o`2S&`19_fZR.>84j[|R&%%%%%%S03M[+I]T6n'/Tn3 !U<&,}u6_V8{V`/i~W40XtlaCShcwq[*kVbk8Th}RWlOTXoj{X4P>;v{*X26sO !U0ofYAYIV8%r19cpW4k=Zt,WSj;6twy4W6CJSy`*X.RX_XH9X>fARFJ0Y4X}gqB@R&%%%%%% !T.R%%%%%S6MV/+J9T:MO(n3nS.A]X_5KS&wkG7teR,thUMrDR*ToXDgWR&%%%%%%S&o9@T8mSjy(twn) !U:)\EG_,VFb-5sDvWDT';k][T0NnLcb0WFbo'w@+X:gen(|UXV%a7?B;YBfZIz{SR&%%%%%% !T.R%%%%%S&v*l80OS<1K&8mbS&NK+V]rR&}:6(gEQ.1l5[~hQ*cpDccdR&%%%%%%Q&s9Y@D.S&v6.tAh !T4(SUyG@Uh(}tieYg !T6s%UVS(U~~@|dD;W<%(Joq?V:m?A=I*X:K6vSoTZ4`QWq&UJ80]j_sTp''Z1Bri[SDkBsFK-S>gCwwD?S>2`Qhi-T80/u|jQUHOwjtWa !VT:=78jkWJXyj;XBR&%%%%%%TRu}8{;uV>fFrxp@W2PN7L6UWBNV;zkNU2LO@x7M !VVNoNrIsX0weDB)kR&%%%%%%T2fWi;UGVDU~\hJ-WFLf'cF)X0R5\q,DX8f\'l(@X<>K5h?_ !T.R%%%%%T4h1ko.tU8Y*k2UAStY@6\esS6KmeozeS,WZGNJ|S*Ap5re3R&%%%%%%SD~GE-TSTb*Kxlk% !Uve@;D32Vr2CdxMcWVzWP^dmS&|x8bx1Uxl%do<-W6}H%I2MWjr|q4<7X0gb'QEfR&%%%%%% !T.R%%%%%T2<64>zLU4gK4v6FSd|o[e,qS2n%ej)>S*s~HIskS(sdnCvGR&%%%%%%S([d3O'4T2aAElp[ !UNSdO1)xVpI}u1,_Wj4V18oTR(.bzr7KUt67RqswWFM1SgN`X25r(8<=X6,aQ*N*R&%%%%%% !T.R%%%%%T2%=AtV8U4K,A|'`SbaddjZxS2U*I*vLS*iMi*:`S(lps4glR&%%%%%%S*<)J7@ST:r1LLg~ !Un2~8n}sW2~v`K[xX2s>%j3|R(Sj%snGV4tRH-9YWjjeT(6xX@f`Zy)^XL(2y}?rR&%%%%%% !T.R%%%%%Sj?o}+k%TzJ,E.tCSHTBdLj'S,f}wf7pS(XznB-nS('O7^7dR&%%%%%%Q*W\yCk>S,C1{=gf !Tf:&U/boVL:-NBzGX2I&O0n0Q(60YjmHV4W{GA=ZX:e])2x[Y2v[:SrXXZ8I*?0TR&%%%%%% !T.R%%%%%Shp3E>MGTxpVNB(*SH?(5en;S,bMb,{VS(W(C2^.S(&8ql8AR&%%%%%%Q*)gXf<`S,a>r7OM !Tz1}&umuV\,is1e~X8@`4r5GQ&|5-AMHV<*k[-.eXF9m;,`iY:S|:}&mXt0qmeV8R&%%%%%% !T.R%%%%%S8[fd9qpTz{ivX6q=n,BHX4,=oIxTR&%%%%%% !T.R%%%%%S0[VQ&l&T2xv{n&uS*rn^;ctS&[w\m?XR*Y'E9DaR(b1pAu/R&%%%%%%R*I%)WimS8OHYydy !T^)1mWt[V0%emu-0W.vu.}={T0H3{M,.W:HanhJ-X.[nLY?9XXpm'diCYF]X.VwNR&%%%%%% !T.R%%%%%S0[VQ&l&T2xv{n&uS*rn^;ctS&[w\m?XR*Y'E9DaR(b1pAu/R&%%%%%%R,D]N^%{SDBz>b-P !U.w=v@:-V8@K5yt:W8`@vx?MT800l*v5WP&syjnoX:c9oqftY.]?IUFQYdv%X8.9R&%%%%%% !T.R%%%%%S&T]Lfg|S2Uym&(aR*dF1B/eR&XpZ~)|Q*L&{L\~Q(YaL7B`R&%%%%%%P(uLfv=hR*+Li'Fk !SJ(-c}&tU:'X/5IEV`<0UyXVV:2jT_-\XF:bjfDEZ8\GC`KKZ>L|[Oj/Z@+RHqVrR&%%%%%% ifeffit-1.2.11d/src/cldata/40.dat0000644000175000017500000000407210771740457015323 0ustar segresegre# Zr CL data / PAD Format npack = 8 40 13 .3190000057 .1380000000 !T.zR%%%%U`ia63VYUH|T6Qk+tI~T6.]r&x-U6w:o0ZuVL^|%~YK !R&%%%%%%R&%%%%%%R&%%%%%%S6UQ{^hLU8[28ai^V6dq|24(V\v@;EyBW.rUhU,_W0YEZ3Qk !T.zR%%%%Txrv-vuzTV>a&Y(&T.y@?YECSRkZ^[%%SBmt<5{PSDruYT@W^ck7_FxR&%%%%%%Sz3xG+Z9V6[5H|o9W6jHxHV`W^fr?r'NX0&zJ[R;X0k?8y2Q !T.zR%%%%TnhV|D~`TPA]oQx:S|C76f=ESN%*a`OxS@%(2g+0S:QBe+gMS:%xpXt=S:fjBQFIU0]FU/mz !VPi4-9}VX0F3d([]z !T.R%%%%%T4/L:kA)U6lyuV?jSnEUhw0gS4h,gX)>S,=SKC(5S*0qFZ(-R&%%%%%%SB@bg9tGT\>j[7xY !UpU`?iHYVle{R_U3WThFdaL'S(-Xl/1cV._Oi@TEW8n'cd`BWpM@WFO5X2/PaL=uR&%%%%%% !T.R%%%%%T0c?()ENU4(P?FJyS`,f\aElS26[E7>aS*\Yay*mS(dNQJ)(R&%%%%%%S(Dv]1W+T0f>yiA_ !UJ(}9EbZVhx.M3gxWf;Ow)w|R(>+M,7CV.Tn2uj5WJB_^MVhX2\U6t/IX693sF5R(m\27wEV82?JM8tWrh>`9Q_XB_>*50aXLA^PwpUrS(Gpn^i&S&vB)GYKR&%%%%%%Q*%/Q-HmS*_3^83J !TZ2X5gSS*wV_gGf !Tj:,C_fZVRYmQvu>X6(ItEQ9Q(M&5^y=VBa}>&o1XLuZK.pyY<\a[y1PXz^;C?IpR&%%%%%% !T.R%%%%%S6PT&@HkT:Q2B?H_S.C2N}s%S&x.U[Z1R,v/gHyTR*Ueo-teR&%%%%%%S*GXvqu}S~&4q&|q !U0|_sv8fV0l@MUWEVzo9J)w|T23@p],0W.WkG2jwS4kDeTnL !TT\n':reU|NO9ItlV|ng25T.T4RC*|56W>'57gwlX.m32aImXj[Hqg<]YL/M8j3qR&%%%%%% !T.R%%%%%S.h3&{7LT0s7b8&QS*K=FtU`S&SQNHdKR*5L3lF3R(J{acA^`K !TxV5%H./V6,rOHAHW6[X|D6AT>vfsDkLM]bqjUN{0':oxWsR&%%%%%% ifeffit-1.2.11d/src/cldata/04.dat0000644000175000017500000000060610771740457015322 0ustar segresegre# Be CL data / PAD Format npack = 8 4 2 .1000000000E-02 0.000000000 !T.R%%%%%SJE*yI0.TRcuJ8;hS8G5Re@uS(~nm&jKS&p|YlouS&VQ'Ds^R&%%%%%%Q*OnmzgES&|\}LBg !Sp=p~nthU>Qo.3i3VluBi*];R(2cYsl_Ut&6t\\2WnQi(LiVXjg?bak'Y89|YgqkR&%%%%%% !T.R%%%%%S(HAcwKHSH8_tT+GS&e(<`xoR(SIEG<9R&^]dsM?Q.4IHRZ~R&%%%%%%P&y@w&yFQ,?o@*1, !S(5qkiGsSry*Z(}8U:a=su[.SJ0ouvorWB%+@h]rX\|(:ha5Y4JU.~daY.^_?yW7R&%%%%%% ifeffit-1.2.11d/src/cldata/76.dat0000644000175000017500000000643210771740457015336 0ustar segresegre# Os CL data / PAD Format npack = 8 76 21 1.531999946 .7110000000 !T.zR%%%%V>8Mtzl[V4,i}T)xUBIMu3cqU2_DnMUWT|8>&bR8Tjt&e{7`Th=iBTWsV6~W9E^1R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%S,oo|HcJTR?*ah0+UH|~cckXV0\j2l~IV8iz7>RxV:z{z~?e !T.zR%%%%UPM-)+fgU>LZjJR2TX>x&1Z2T9VXG[o1J@Vp5XyO*%Vty)GSe; !T.zR%%%%UNPAbIb4U9nsbT0Y-O'vjTtamQa_0V:=^Cv7} !R&%%%%%%R&%%%%%%R&%%%%%%S8XmT|r)U@Auiu,1V>crYWX@Vx:pQ]GEW46gf32xW61jhqB5 !T.zR%%%%UH||/J',U:KUvop{TP6sieQ\T8kUrY{3T2EDQn@TT00ydCbMT.ue*%OzTvLe`;FRV@azgyaM !R&%%%%%%R&%%%%%%R&%%%%%%S:>>Z8DeUT-;3M9sVXJ_uK_SHp'LN&JSBHIxc1ES@fsyl=9TL/smodcUTp~\HFp !VP9LE},zR&%%%%%%R&%%%%%%Tda~-Y?4V:,RL}f@Vx1Ln5H:W6*E3,>hW:iv_G^HWX|NyZET6awOK'>UL1]n\h& !VZte)IcQWH=GJQ3*R&%%%%%%TN\`84b>V@^I:@e`W2h/BEKMW@U8fQ-TWHffW`Jop.9WF}I(3ivWp_sb),'X0?;pU=XX0~qk_@w !T.zR%%%%ThYU@I2pTLP?y)s}St[/a\^SWJ,?OAYGS(c0oVOOUb2H:%jdW.xn%XJLWF6/.mxqWV16F0CIR&%%%%%% !T.R%%%%%T8(GGks>U<4mMMJ-R&%%%%%% !T.R%%%%%T4gp~`CKU8Xc_lxWStWk=D|[S6KPWF)>S,WN*Z?kS*Ah3WlzR&%%%%%%SR(6~bdFU2.4V^+k !V:O01<+JW:CSW@8jX0Tt(f~SVM{Q/QRS07oSXB{S*7,%I,SS(L'X8rjR&%%%%%%S(X<3Um&T<,{-GYd !V.fRhiL)W8|%}SA_X4mgAm0HR*%Cm7N0VNfUd8G6X2MSy.S6X8Fc)mI+X0u=@DuLR&%%%%%% !T.R%%%%%T.S&w5\AU0Y+ZZg~ST)e;?JaS.vy:X)>S*+eM:0rS(D]OMncR&%%%%%%S(-Sv@uzT<7wQ1Ez !V0uZX&2nW@i44.>AX<`C:fH3R(ToepTRVfLprviKX:E\*P`0XD)b'4'zX6\;3`-lR&%%%%%% !T.R%%%%%S4`.MOljT8O0B:TSS,w0.3.`S&p%U\jKR,Suh()BR*?KRMLLR&%%%%%%Q&_^ptluS*,\rD5| !Tjpxqhf^V\dvb)6dX:+>`2-?S2cBg[%dXBcA4.wI9XL%n,>|[XHP~GKFuR&%%%%%% !T.R%%%%%S4`.MOljT8O0B:TSS,w0.3.`S&p%U\jKR,Suh()BR*?KRMLLR&%%%%%%Q&iBg6ewS*OW%8Lm !Tz[8X2jVVjl7N=J)X>y3?T}AS4~a_%-TXJxp~EU`YD[+H5?.XZ.p2}>ZXVy/UwDQR&%%%%%% !T.R%%%%%S@ph:+mZTH/Mc%>9S4+WHJw3S(RZNJOrS&^>vruvR.24io;nR&%%%%%%S8C)k'RTTWWHljS,p>+y4iS&nVAn5>R,MgCw6]R*;JF-B8R&%%%%%%S,X;/.{.T8Qc)T3. !UDzz1SdJY.drb0zTYP0'GD3]R&%%%%%% !T.R%%%%%S(3|)JB[SBK%''Y'S&Z^D/:XR(=;i2M0R&U=JtH6Q,QLd&:=R&%%%%%%R(GEOUC;S6aW1`*l !TjC'wK@OV4(HdkuTW0xmhBN,V0~TR&ffX0BNU/yCZ4`I=r@-Z0{\Ur;9YrUt1,ocR&%%%%%% !T.R%%%%%S&~eMS)eS>BIp'ONS&Rp{gkdR(,_gW.{R&N<7M9aQ*}hyF)sR&%%%%%%Q,+EDVZjS*iEyTg_ !T@I^IfefUbI:TgcnV\G):M=oUpxL{VTFWzK]FJLfYvRLEyZ~Yj?{\o9OYVZ`qP4|R&%%%%%% ifeffit-1.2.11d/src/cldata/05.dat0000644000175000017500000000104210771740457015316 0ustar segresegre# B CL data / PAD Format npack = 8 5 3 .2000000000E-02 .1000000000E-02 !T.R%%%%%Sd--L3{xTrM(6e%^SDtkxD|WS,GWHwB0S(Kajto>S&xni'4`R&%%%%%%R&gvO2~7S*s{>['{ !T:]RH@u,UhFe:C61W6mu%lh*R&[.Y><,UN2|h/SQWLglv7D^XLZXWB??Y0;aVnR4R&%%%%%% !T.R%%%%%S*9P:VjVS\V,,Jk8S(1Lqb2,R*K8pSD>EnC`1`M%y^XZ3'/R45Y227J|5sXt5%Y6QLR&%%%%%% !T.R%%%%%S&jzd}04S8\%m+kvR,|M9}c3R&q1Z~7;Q,Xbyk?7Q*BVG~w;R&%%%%%%M&ac3>bRO&Z.;y\H !Q&Ukg~o=S&OGo[8bSjW0^%Yh !URchV3s)W0]0LAT^X:\1e*VwQ(:K;3/oTjwcq+EhVp5|1pa_Wtr05?rCXT.pR&%%%%%% !T.R%%%%%S4Li,NI0T877%'P+S,m:>raUS&mv%'+%R,J~z'(>R*9]r['vR&%%%%%%R(;eHhTIS./y0~0S !T>(jN08(U\7kj]XaW.V9PK&1S8Lj;r4>W2e{je4~X>bvI1'.XR_0p,mJX:pN(yhwR&%%%%%% !T.R%%%%%S,'F,p(?SpK&9/XVS(V4r2SjR,?NI+nnR(H;j}x)R&vZ06]dR&%%%%%%O,`E0d=,Q*o)m2WM !S*9VuwUSTBDky&x3V4*R&mIPS*wB0Cg'WNb-usM[Y4'lHp=0Y@ml8VT'Y>vdibwlR&%%%%%% !T.R%%%%%S,'F,p(?SpK&9/XVS(V4r2SjR,?NI+nnR(H;j}x)R&vZ06]dR&%%%%%%P&\8[QMYR&TbXE7v !S.B6v@jRT^4Y|1:\V@xV0h?8S0_xe^k]Wvz}ZkcxYB&+9|mWY\c)UbcVYZ%v&^]'R&%%%%%% ifeffit-1.2.11d/src/cldata/92.dat0000644000175000017500000000735610771740457015342 0ustar segresegre# U CL data / PAD Format npack = 8 92 24 2.490000010 1.184000000 !T.R%%%%%VL/\gLVAUV&g<6i?U:o_rgYCU4E1fa~yU0xp+Rm%U0BY|KG}.6m,]U8hPT&R-UZ3)s4Z*V.R@SlJQV0t3-aCBR&%%%%%% !T.zR%%%%Ul}<6olsUNsL'~twTzKPwNr'TLYDMO07T>fSwh-9T:=V*pvJT8m*'`cyUD^K'y0;VBv^g4N6 !R&%%%%%%R&%%%%%%R&%%%%%%SRdwAgKSU:fbfAEp=TvqEvUErTJqh~{|DT>;td<;ZT8u1*or&T8L9E/1nU>G&`MfFVVTE.|m; !R&%%%%%%R&%%%%%%R&%%%%%%S4Y=,)01U6]190/SV4R>cOgAVTBe*hejVt~:2Q~~V~\X.p25 !T.zR%%%%U^Gyms70UFO*ClBBThOgSbAJ@Q_|SVO-8i]%STCu,FvJTZjZn\%=U~1,'/ox !Vxw9+>XqR&%%%%%%R&%%%%%%T<&d}o?QV2YUOSH,Vf5AGWs%W2KBF2zCW6F^&xO=W6v|w1hi !T.zR%%%%U4/Q[,f}Tx>E4>RrT6HU\.a/R&%%%%%%R&%%%%%%TF:uLB'&VBtwG%1qW6u7EvW]WNi[jlxaWb6j7SoTWfJ-c}.1 !T.zR%%%%U23lbhlUTli:Kcd'T4=7L6ZRShVE'bBoSPmXL`-vSHZ}M&X.SFl5t|cLS^4;G`-%UH_0Hn&[ !W2}Vpd?QR&%%%%%%R&%%%%%%S^xbBTq[V:.tcU+qW>%M~++ZWx_k/5][X4M~QPxnX4;XOg~L !T.zR%%%%U0s\PP-QTj+Fb>0ST2xC)(-2Sd{swt5}SNj{MOzxSFj:BC6VSD~sws32SJL|mdrZUHBF\0S| !W6_?tR?.R&%%%%%%R&%%%%%%STMM=G?]V@FwABD%WHgSZl4_X2J)D;}'X@S>|)BU:hc~8Eo !V6o{g9q6W0%Ns3R4R&%%%%%%U6*ONj)vVF=ii6Q/W0?+M&MwW8%K_PQgW<2J+-BtW(>p !T.zR%%%%TP)+KASWT>7dGK;QSVnMV`olSjQuPP !V4d)'DT:'/aAu8SNFofHxbS8IF7RXDS2/1CA8{S.y&5lA^S.d[cCZvT2RO\&k}UBt.7jbS !VN}wVXf0WFy0>zHRR&%%%%%%UTn>}`\WW681vkzsW`fBYshQX08[|H9HX2W5kak'X2GWRHhq !T.R%%%%%T>vRYwNYd6T2ZS>)[ZSB);ARKSS0y1V&{-S,ry\(^AR&%%%%%%S6-hiF*}U.S`~fCo !VBO{_m}HWP;k'x-6zs4f(UD,c]^_QT2:(Xm%BS@>+`7>aS0[w9cVUS,_v8OgaR&%%%%%%S0A2Bvb5T~NrhgLz !VHyO0rXdW`j8igc9XD'7EJ1SQ(CB;Z46U~M3MawfWbp,HI7}X>^h6d(lXDlV{%W]R&%%%%%% !T.R%%%%%T2OH1b7iU6%3y?2cSh*y@WB=S4(vUR1pS*|o'}lXS(yNM+(zR&%%%%%%R&i(3<^LSLvz}1Eq !UXl()R^pWD%JgbZLXj5nt^~LP&~;ws~_V0ZA1Wr&X<.9Y]UMY2}Xd>%kX4&?NK>'R&%%%%%% !T.R%%%%%T2?w)@-AU4l'=ybXSf5pl9\hS2r*8g-WS*udHG%rS(to0kxGR&%%%%%%R&p|U-:|ST+:[bEP !Ud/3WFRVD)&'G<|W4Td%I2U0@9MrGvSPw(rKa7S.a*yR1pS(|OqDI{S(>[ixgFR&%%%%%%SH.YBpvBT\(VBwE5 !U\m:Byu8VFhYw]CIW0~V-\v_S0|XexDPV6)Y_NtbW0lR&77}WDde2P`ATtud_~deSFPkc\(^S,S*YB8gS(PU1;cMS&{}_mmkR&%%%%%%SDalB|SZTl*5ra4/ !V.vj1@\iVxbUCv7}WTU/Y@C*SVt8nxDZdWTVA6O*mS-ilvTLcDBAsfS61Gi'k%S(g%UY9XS&fw+1xOS&Oy45HGR&%%%%%%S(,c:>2ZT6bg{:&} !UhBnJf5rW0HpY8NdWlp-Vw&iS@;yzFe0WBYYCq2EX2JM]G&VXn<^_y:-YT8OJsbKR&%%%%%% !T.R%%%%%SVR&%%%%%%S0Gdj1RHT0c_Gda| !U.h83Ky+UdKTYt6VVH[BSR`BStOgwkzRV%}j=}NT8iui5HaVDZ_(K%2W`iIws&)Y.nFylJDYTR_|/m%R&%%%%%% !T.R%%%%%S0Cg=2wTT2[Ne|=3S*f_P2n8S&YBCZ/>R*N+iJhBR([%nDk6R&%%%%%%S*^0={_>T0ZCw6cZ !U4^s3fhvV2XG`}(RVt{sq?I8S:Nk:tV~S8}QwtcRT2drGs;4U@Nd+rEa !VJ}l=GaWWFEKNIOeR&%%%%%%T`LtZnr;VF'&ZZ&mW6)PO4[pWHTiy,&9WVjIyg'.W\5KD5bD !T.zR%%%%Th5nMY9lTL;Y,:~iSt0~K/AYSJ*RfzC8SG{CX2i?J8UY !T.zR%%%%Tf+lxmE&TJ[WT8wnSpo)}j(lSHN+qAzqSJB8S5AXB5BAL8o !T.R%%%%%T0w,Yj3dU4@{?|@|Sb7t/GqLS2L2Qp:HS*eb{)SaS(jH4^81R&%%%%%%SKU0e{+TrUST^zVw\/S0(=pX)>S*0R_+,R&%%%%%%S(DqQ|g;T2qT>Y/] !UVJQ^u+_W02q,EE0X0^E=Cx.R*l7dmU;1izX.xsJSq/XFaL4`k4XL%zrS;^R&%%%%%% !T.R%%%%%SRB=<'IiT\[[&B][S85R&%%%%%%Q(5]_}YcS(\_Y]gK !TFhbu5n0V:rfNT2lWvY)'iG.Q,~^w?>BVLktvLVXXPM]=Wa)Y82ES|lVXL-/b[oaR&%%%%%% !T.R%%%%%SR%~5'MVT\8]qr4YS<;ZY@w7P0x;X^Z(%,ZLR&%%%%%% !T.R%%%%%S2:.^MP`T4dq>-tRS,5e^*+jS&b+`JOrR*s(2wioR(s,^FR_R&%%%%%%S(dA4.sjSf4`IEw- !T~y6`P&3U~l2TlHSVh[O[67JT8^e':YbW2%MH'}zX0Z\J1gCX8=6@Z>MX.dyfvr7R&%%%%%% !T.R%%%%%S,?5@cvjSvcP\DdzS(bD&;ILR,YG6{f)R(S7Fg(2R&}f2.8gR&%%%%%%R(3v}chaS.oI9mAm !TDE&xFdwUb-I|RVLVf@S?Oy/TB^pfl'dWD(&2JWmX00N<9|EY8F'F?HBZ4.NqJD-R&%%%%%% !T.R%%%%%S,?5@cvjSvcP\DdzS(bD&;ILR,YG6{f)R(S7Fg(2R&}f2.8gR&%%%%%%R(`^_(%oS4wux8`? !T\-{gu;8V0ZNt{N\W2@;msk`TXnnKaWTWb|:efD~X:{EaFN/WT|tU=bA(TtK7F6<:R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%TFUH\6&|U@bq+uXtUps{~_/-V2ZC4lM{V6]RF~%SR&%%%%%% !T.zR%%%%UXG0'hMiUBe{d\07T`xH7k/zT@n,M?bET6|~|DB>T4;0|1hBT2w3`YJzU:gV}<>7V1l0S>CTVbKY'7MT4ShCAtI~sSPa6uGDISHP~e=F/SFb`Nbx8TTo;HbVuU^A`W+AU !VTnR<&a?R&%%%%%%R&%%%%%%TVX~4n'9V4{F:IiwVf]>-rgTW2Hq{}0SW6V[7MuZW8.lU00K !T.zR%%%%U0_FgvL%Tfi{:,m2T2`NuEd>fN?+UX_\t.Gv !Vf6v;=(KR&%%%%%%R&%%%%%%TF]2h@UkV:jB<{dFW0CAs~bwW:g7M&XZWB+Ww\@rWF_'8P2VSZ[q1=OlSH?^k-&1S@{E?iE/S@A\pECcT>z0&oX2Uj|N_ZqM !W0e1-H.AX.qZ*3%tR&%%%%%%T\VNx3HpVV/J9+>XW@m-U_o=Wd2T-SC:W~=0?K.pX0,}9w=9 !T.zR%%%%Tx-cF0d9TTpStnZQT.q1nYy`SRExl?eBSBUHs=mmS-_3VX6ju_'fTR&%%%%%%T0O;A&UZVJ^EcNDfWPHb`^SIX46s}3SiX>`JTe1SY8[&saS: !T.zR%%%%TtS.p~4oTRwn)7MdT.`B]SYASPRB}&zqS@|{IpWOS<>?Njo@S:i^+hUCS45-0NF-U4YX]r;k !V|^Wh)<^X>gmIW>Az/dqfWJsWh'0KR&%%%%%% !T.R%%%%%T}RU`vLS0Pb~F`+S,XZ1vmuR&%%%%%%SdSZ{m.TU23cDWg1 !V4oghY=+W0T@G+X>WFAv@7}ZS&OO..(2UdMvi\qvW0qOXS8zWBrNQk98WH%E/lpiR&%%%%%% !T.R%%%%%T:+ICo/mU>Moid?%T023I`WCS:{Y7EOxS.]oB>v5S,&SztA*R&%%%%%%SdqBy*P`U6>lRKmo !V@Af[z]OW>?G}+10X2,WAA&iS&RNE|r.V4H4)>S,-?Rm8ES*&>G,hKR&%%%%%%S*gwq&-bTH~6a36E !V2~l*]~:W@2Ov0]SX6ZOo<8h{DtR&%%%%%% !T.R%%%%%T2Gl~;dFU4uk4VpkSf^2QO.KS2z^{TmtS*yBsS[_S(w5m'UoR&%%%%%%S(su>b1\TJ'dM{`9 !V6dRQh_pWJ9+/*,7X@.Q1y;ER&W{GHbhVFOwKoIyX4.VK=&bXFKA+@0HX66%F{.JR&%%%%%% !T.R%%%%%SN@c63@oTX/*xi\S.`yXsya !U45dO4Hqk)TV9xJ'y5S:&9*T\sTD3jgSS(50JS:rt}WVcPZ*7>WXRz7Z]jR&%%%%%% !T.R%%%%%SFOHQ/(3TNF,MJOHS6JPSA`/S(lDb9`2S&i4D>}qS&QIYd+GR&%%%%%%S2-1MXbITO8=u|BTDJcW6j&S2FL=-|;S(E2Ao`2S&X[]kXER,g4=h&?R&%%%%%%S0z(l3j@TBzlF_M6 !UT^`Xuz;VRG+\F~;W@I9X0Su^:U@XLQ=mDt7MA9S(?ELH?3R*hrI&(%R(3ekAlUR&i8C%W%R&%%%%%%R,F@[]%sSNI?wyd& !U4P83CZ9V@^se&i7W:7'=4xAUDOJwtjNWHnHA~ebYd)5rMrHYzpH2}C2YLEuo>g[R&%%%%%% !T.R%%%%%S*3|\jMeSZk}JQ]dS(.]Zg9TR*E8m&2]R&~`YV|6R&_IVm(=R&%%%%%%R*:cxiS&nRAQ_[R(gXB87ER&g2T9FWR&P-2+ERR&%%%%%%S(MJw%ygSDeQAxcd !T@hpg4l9U8i8~{kq?j>V4So8DdzUD>qaRG.U4)~mf`^U.Yh6%omTp&Q=OH-~T6/jXouXT2VmBujlT2;coMExU8Sm%*%RV<&VK~p4 !R&%%%%%%R&%%%%%%R&%%%%%%SjZ;M3-;UJhN`BP/V:5@{'z}VTKb@?QwVjCS8/qvVnz'l9H3 !T.zR%%%%UPzK6s6+U>fuWb5-TXtG;&R~TTwmMy2V;gTRVNeSzxT:I`FFYaT2ioAE'hT0NG;Z3OT07lpD?1U.]^r/S6VDDBCAvM !R&%%%%%%R&%%%%%%R&%%%%%%S8Z'8C3](VSDWYAelVSBq8C7`LTNy6'Be*UX[[AI8P !VR?WTVHRR&%%%%%%R&%%%%%%T^X,\4GYV85gUTM%VpV0U;>9W4E<8yNKKy52QW22^DL\uW>E5Qq:=WF86BU0[WJIJ,MkA !T.zR%%%%T|h=i`s1TXFwOuZKT03=lSi{STmj`cXPSDOl^g*qS>Q/i4+]St?QpeIS:H`TH~SS8w`R{8-S4i4g>'uU0n,Y?P@ !V^3`[4]'X4L&p^P:R&%%%%%%T2_So848VRE[PWs%WXCL/AmzX6K_%?onXBQcHxx;Y<>6CIGK !T.zR%%%%Tl,b*,)]TNDc;ed`SxFOFjJ&S.A=S:&UUAo=S8W._da-S0G^v6|rU0tF@8m% !Vl~^['zeS0Q4.ysNS,Xv9{%`R&%%%%%%T0Ap~ADGU2V'fip< !V2*R\^sCVxLPQ8~WWJ,7l\a?S(QXuas|UZ_fkBq}V~'<&}jR&%%%%%% !T.R%%%%%T:+d0]W)U>N6u)uiT02A-}CwS:{vEH~~S.]{^{v6S,&[}59>R&%%%%%%SViZ*Y0;U0-}KK0Y !V2r^c;4CW06zU]*-WHUV=JZ{S&Yq&JqhUt]>itouW4,(QgdJWH=^~WivWLG;iKc)R&%%%%%% !T.R%%%%%T6YMex]1U:\63J~CS|r0R5njS8Ck6y-WS,z9C:*JS*XHYAX2\e1YaHX8JL3nN]R&%%%%%% !T.R%%%%%T0OD,xCZU2ine*fAS\znauf-S0zu^X)>S*SJ:P.xS(^Pm(JnR&%%%%%%S(|ZxFCFT@Tf-%C* !V0W@X-{pW<6CQ0TnX62{<*@jR(HhFfnIVFCjN,7]X0^N/u-~X8nVw\rcX0*TTPlOR&%%%%%% !T.R%%%%%T05?ypCJU2I\&ATNSZOfIta,S0^V1ii[S*GL:d4FS(VbZ'*`R&%%%%%%S(Ev:YWHT@]k7sEz !V2x?hws>WDOjTU0[X>=c`K';R(%it2DAVV|E>pn/W;TD6MTh-RS2>+DF?ZS(CEyY9XS&WqsI&qR,bMvK.eVS&vkVz*lX.j4=[2?Y:[H9Ju.XN~u1kY4R&%%%%%% !T.R%%%%%STBUW(OM,S2%g(4T;S(>5G2r~S&U`h\TPR,S~poV7R&%%%%%%Q(,?6.P]S,Mz2l)V !U0j/2S*`W.V;hQBPXDzEd]X[S(CE^R%PX2y0.2?&YBS;8.y(XZs%T~B;XLN4'NE7R&%%%%%% !T.R%%%%%SFn_O/J(TNlftk&=S6ZMvhm-S(ohrIZ1S&j[da3>S&RCqXNyR&%%%%%%S:l1ND?>T@':Ip(4 !U>-62QN*V6d\{88qW.xi3:T6StK^6i:IVJ?`4yIeWDx/2=hRW\Dv-Ay'W\5olbbDR&%%%%%% !T.R%%%%%S:lu6]>'T@Dmx=,SS0S],|bYS(4kg^;?S&QcOO|LR,:1S6U{R&%%%%%%S.I+HqK'T6j>-6WK !U<_Q+lVrV88R*hwXVzzy5o%DT2dsu{L8VhZ?15V,WF{Hg8}jXL4@Bf`7Y6+Tn@6eR&%%%%%% !T.R%%%%%S6VOnjEvT:XRtca+S.F6<*F8S&xhrHdKR,xr1?+8R*WRBZ5'R&%%%%%%S.GH^9<9TCmA|GW<1kC4^8TF/K=VFeW<]I'Yl]X2fHcxV,XtqtWVa5YJT5Lu0'R&%%%%%% !T.R%%%%%S(9f|s[MSD8=[tRrS&]YJEwbR(CTGL;[R&Ww|W]3Q,bd^.5zR&%%%%%%R(x95f&iSTCloQBS&SY`3o\R(.9mCZpR&Nx9GOWQ,(-woY)R&%%%%%%R(*(/hw5S89:4{Dp !T|2Xc+/FV8DHY&x(W6'hixU[V<5L:I'4X@maUEgFZ6vAVEM)Z4,K1cV-Z06&/_6)R&%%%%%% ifeffit-1.2.11d/src/cldata/30.dat0000644000175000017500000000271210771740457015321 0ustar segresegre# Zn CL data / PAD Format npack = 8 30 9 .1589999944 .6700000000E-01 !T.zR%%%%UD|Y8QaGU8D3M9W0UG7UizW8[EKdOeW<+8Kw*e !T.zR%%%%TLgQcfW:6<7TGER&%%%%%%U2Q';(>iVf{AuT,rWDe{eYr4Wf{e_Vh2W~gJi&6YX.nQwu0q !T.zR%%%%TH;)I|*OT:%@QFl.SNC2'}:WS8Ga/OOlS2.'oSJgS.x/sg6~S.ci+>=gS(4WFJGLT2DpysyY !U^Cn.eW~W6TmW7SaR&%%%%%%T>648jAzVVq??B-Q1y/*4 !T.R%%%%%SRO`mx]vT\l3iu8;Si:^F}rS62@>4MvVPytWVTFWhYVX.ZlX8&b'(+UX:aHjoC-R&%%%%%% !T.R%%%%%SBAvn{+eTHdo;.NSS4A\E}t=S(W?>4x~S&`=VK?7R.?.KSfOR&%%%%%%R(g|ITWnS6xFBY~= !TnOs?_]nV8MgO?q.@pR&%%%%%% !T.R%%%%%SBAvn{+eTHdo;.NSS4A\E}t=S(W?>4x~S&`=VK?7R.?.KSfOR&%%%%%%R*^S79a/SD>kE2^I !U2]*O~PuVHnv?y{2W\J5]'tMS,gtNBUvW6xEsh5TXF7}J<_kXHP_:_KaXX5~v&%R(O]J,Ec !SP>]linoUJ_RuU4hW8}'GhhyU6F&4G'eY>(R_YQBYVZz+YeXYHNPaV+TYDQcq7s|R&%%%%%% ifeffit-1.2.11d/src/cldata/88.dat0000644000175000017500000000735610771740457015347 0ustar segresegre# Ra CL data / PAD Format npack = 8 88 24 2.220999956 1.050000000 !T.R%%%%%VH5erR\-UPZ;_3P0U8g26lL0U2\8h@.^U0Bt7BqfU.l/TqQFR&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%TB-*9},jU:}reWWyU`rg)[UhV03rxf*}V2hIykGVR&%%%%%% !T.zR%%%%Udn--&-EUJMmfmH^TpS-krwjTHA4Uv;eT<;m^l~pT8,KuH-.T6`ruA|JU@kc=ePYV@x@P2Q7 !R&%%%%%%R&%%%%%%R&%%%%%%SXCP,hlGU>U/C:-LV2nJaOGaVDd|S|YOVT)E'.MCVVi*WfyZ !T.zR%%%%UbX.[-1JUHfqLE+9Tn))LP}{TF^9V]0_T:n6J1fUT6fNJ*:zT6BE_TfoU8SG[iHoVN=>j/h& !R&%%%%%%R&%%%%%%R&%%%%%%S4xjiBejU8P?_(}*V6Nfs9t3VZ`i?x,+W.Z~1\D'W01rtj&q !T.zR%%%%UXU`g='.UBnHq__%Tb/UJxtLT@u~bEpTT8(1x.t8T4?>\){+T2{01&XgU6WHVav\VXiKrU1k !R&%%%%%%R&%%%%%%R&%%%%%%S40l*?L[MZVFgSR^V4W0rQ_\pBW:e7kg_=W>0nq4u3 !T.zR%%%%U4|bAD1dU.]@p+mqT8I=jTbrS|Hnm3i[S^7jB'brSRj'eTk?SPer_xU8TdAOQ%HDUjo@SHnt !VZi[W2U3R&%%%%%%R&%%%%%%TH>-F=ShV0c)T6/%VTKF=MIcW.ZU-qHRW24@.bGMW2Rxl=@V !T.zR%%%%U4K6L/[1T|+'P1M~T6hwqK1vSvIQVlXPSZ?SN9*wMF-TNc4ddkEUnlwb(.n !Vr{?,|M[R&%%%%%%R&%%%%%%T>Y4ZyAZV4io0wF?VrCc%n47W4ddGK;RW:,j>0=sW:j4RM5T !T.zR%%%%U2=D_er;TnF`u)n.T4HOP}^[Sj0E8xmtSR5FU2h:SHv4OWp3x~[t. !T.zR%%%%U0FOgN,TTd3Se'C:T2C.Cr{hS`:7E::HSL%=_NfPSDCDvZOrSB]wY`VYSN&WLzX-U@5:_DfWTq-WBUBpNS@}gkW*%S@BG^Q{PU@)OEfwF !W2q3Jw^TR&%%%%%%R&%%%%%%Sb`\x9k.VFb7F.EKWP^VJy|UX4eEX_MXXB%L~k0aX8a+P:JV !T.zR%%%%TL}Sh7UWTC.9WW@W:=W<'WBP0l2=L !T.zR%%%%THQ+uDSrT:2,P]@+SN]/gRJ:Qe83W@4p}Zw- !T.R%%%%%TBUIYonjUH|y11[,T4KY'F8.SDo1kTT7S2bcMk]wS.Dz,QH]R&%%%%%%T0-:*d{CU>5oCGc( !VH~]8jH+WD8+8rqnX2k(0AS)R*aSrg4_Uz-rsB5`WB:9gz'T0-F698V2Z_%8atWv2bq-?eXBE8ndj[XDGQe.P'R&%%%%%% !T.R%%%%%T.ys(uN>%+S\R&%%%%%% !T.R%%%%%Sz+E/F+mU077nObhSPQjyPe4S.Y0S~eBS(y0%hD:S(01,wc1TNUdoLk, !URlC-Yf.VBt7~4)\W0kXw,Oo&qS*hU:S\cS(3YNNn|S&i0@cUdR&%%%%%%SS&R~S*SlMkp !UJnT&bjqV`J`_T4jWL*~_7.QSn=WM%L,WB%@Kjm;Wdwf`BaOY8D@9;{%Z>5~Ms\DR&%%%%%% !T.R%%%%%SS&R~S*SQ}%@12ZLoI?PodR&%%%%%% !T.R%%%%%S46Kn8&wT6uZIVLMS,aoY(1.S&kO?}T1R,@fz@|BR*2y|%RuR&%%%%%%S,}qf3cQS|0bAT01 !TnsC>a&2UV~[x~^FVB9dUe(+ !U0F]5?ZAV.j'}EXdV^fDF:'RU0tN7T%BW<\=y{vWX@t;yc.%YPCu(5yoZB.RJ*vER&%%%%%% ifeffit-1.2.11d/src/cldata/48.dat0000644000175000017500000000432610771740457015335 0ustar segresegre# Cd CL data / PAD Format npack = 8 48 14 .4959999919 .2190000000 !T.zR%%%%U~4V~J>=UX]/}>E`U07l)T]WTV([_k1,TD]CG=\)H8IIT>'tbjyyUJ-tI24kR&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%S2:w<*{+U2;{9+[QV0]=VdO4?V*qVlf64D@~ !T.zR%%%%U2_&]uD-TrU{)7-SV)/xPexU8UIWfdN !V`;%T,a3R&%%%%%%R&%%%%%%SV\VzWL@V.j*8l&vW.u}cau3WF<@5E:MW^R%HMluWd\G|Gvw !T.zR%%%%U0qR=;MGThy/?jM3T2uphpNISdpFgsv@SNcPZ.@CSFd7<0}tSDy/mxrtSdjAead+UBs9lnCT !W0'6lZ&mR&%%%%%%R&%%%%%%StA>.HArV89>&`%bW8{)(F6`Whw'f]D~X2(&=zU3X2d9N:GG !T.R%%%%%T>gB?*;zUDhRy,0^T2Ri/JkCS@rf3ZeBS0r39M_BS,nHB39tR&%%%%%%SdnGbo/EU0K]?}k} !V2_/~TC/W0^9|v.QWfAh|QI7S&Q}j16JURv)VDVhW0FMTv]WWRK)6wIWWt=k_*0zR&%%%%%% !T.R%%%%%T:iO.GO%U@@XzpnqT0Qs`QT^S[^*kmsT07riimMS<-fd<\iS.b{BH[tS,)rv/Y5R&%%%%%%S2E5|jlMX8\*O4r]R&_+*zf+Un+GoDQmWJ|~M1-LX8+q~^O[XD.PkxWCR&%%%%%% !T.R%%%%%T2k|%P[9U6HR9/8OSjb{6Tm^S4H%us6/S,/{hN,hS*(&sKX2R&%%%%%%R(3xkG,.S@WRPs: !U@)-xCL1VYS(7G&m%%S&Rl'r5]R,A=U3_tR&%%%%%%S&r=A;JYS`x~1d6X !U4RpQBb_V<%(iKDlW8+qz`zSSN)Md:~4W22t0I|mWx[2OTtMX49;6VF[Xd4Y/0R>R&%%%%%% !T.R%%%%%S<*dJQ2RT@b<3kA(S0_l;=>YS(7G&m%%S&Rl'r5]R,A=U3_tR&%%%%%%S(1:K+;RT.a:qh|t !U>uG8%B4VNHpvv=wWJ>~>*5cSbpJvzRvW>43NBodX8o19_XBXDU'NRsOY2)^0E=ER&%%%%%% !T.R%%%%%S(UJOCi*SL&\79>)S&kfZxW,R(a`I%J7R&d_k}RrR&NNh`2fR&%%%%%%Q(VT]+T@S(^4_0>T !T>M\\:{wV0OK8-KtW)S&kfZxW,R(a`I%J7R&d_k}RrR&NNh`2fR&%%%%%%Q(70>cG/S(h?g=ZA !TDv(KbC)V4WoN.B{WH/KoSV8UV6M[ij7XB,W)C*vZ8{7dzMzY|.pQ_%MYf-9(]KdR&%%%%%% ifeffit-1.2.11d/src/cldata/22.dat0000644000175000017500000000222210771740457015316 0ustar segresegre# Ti CL data / PAD Format npack = 8 22 7 .7500000000E-01 .3100000000E-01 !T.zR%%%%U684XJVEU.ijqOt%T8b\[nN`S~ckXD\uS`)lahRfSTMH1wOLSRFI@QGxT4FB;RW*UP%;w~J. !W.p'-q:=R&%%%%%%R&%%%%%%Sb`fVo~eUtbV[}l:Vlne/H|9W&(OT.idh9%aS:26N`\iS.>nq_rUS*lB9]1HR&%%%%%%S29EJj~~TFLIRW57 !UhT,j=-FLW6NYveO-WzxUf~iABYtR&%%%%%%R(Iz:C8:S6zttj_f !U.wtjsUuVJu`wz7uX.otiD63P,myv:MJU0IGa=:3W6KA3SSqX8?)DRiCXZ5b+9aOR&%%%%%% !T.R%%%%%T4TynD[aU8AB';rmSrQ6P6irS66vv-r3S,Nih,8RS*<,W1XZR&%%%%%%R*;zhr4jSF&[NO^D~WFww1H&IXJnm%w&0Y0CnQ.{XR&%%%%%% !T.R%%%%%S8|O]lb%T>Bkx5R*}q6V-aR&%%%%%%S&ui3S)`SRo9akok !U.UN8-4SV2;Sl`ov6IXF8GqgH&X>I,6.0HY2/3FT_zR&%%%%%% !T.R%%%%%S0e|2C9|T4+lLn(tS*x1j0__S&])b7teR*]nW3-xR(e'g[Q_\R&%%%%%% ifeffit-1.2.11d/src/cldata/62.dat0000644000175000017500000000550610771740457015332 0ustar segresegre# Sm CL data / PAD Format npack = 8 62 18 .9251999855 .4190000000 !T.zR%%%%V4h*&lmFU~xMK1l?U80zrchtTz2XBm,yT\Hmfu{WTR/1rlf\TP-bFPNMV.[{~MiCR&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%S.Mz1j2RTj^DoTLhUb&1P+91V8VLL<4AVFc3S_J>VJh}?`V0 !T.zR%%%%U>lRLa,.U4J{FCa:TD,on^Y&T2{b=\%tT.TC^\K@SnT]KrR^SjqUF92yT|fl5[jRV2:W.W(5PH:W2^H0m&YW42I%FnK !T.zR%%%%U>-;Rf|_U4&=(\PjTB<:o,gHT2Y<&}6~Szj^u7o=SjT'd'w{lQE}3&(W[ !V@Jpy\~iW8SkN{GuR&%%%%%%U27\EHi6VJv1iQYKW4Zz@cBtWBpItWKqWLk_H4m;WPR,F_3y !T.zR%%%%TXP-h{oVTBk4;4t;Sb(|_v&rS@r|'LG:S8&4d-'+S4=cXz6RS2y[aDh\SVeyoMA*U2|j<5*, !V@=rcp43W@C+5VWUR&%%%%%%Tr-~e1FfVZ3w68~WW>eib7s@WX,N9u:|WfM/]&y'Wr8kn83J !T.zR%%%%TTP3)yAOT@\l,xztS\bl5dNSS>k(J@e6S6@StKe)S2dAsVljS2HZN^MaS`WOGw.kU:=LjSbj !VR\,w{ZPWZ]EfRLVR&%%%%%%U2~lteS)W0]:Sv*1W`Z1cu69X2:f%}ZLX6OiplkGX8mN`]*J !T.zR%%%%TJ?/0?7uT:[s;tqTSPX*_4^FS8zrH^T+S2O@V8BlS08|ul.[S.}G&19@S(2_TCP]T:m<=:C( !V2qa\%\rWVV%pzluR&%%%%%%TH`1d,1zW0_lX80_X0{.GQSCXJ[MZ~s[XfgzHWU4+:hXLVS`81BvmgS29(*C-WS*]\+zd|S(e0bN?rR&%%%%%%SPWb_NobTbmvJdoR !UfS,q2v>VX|POGOiWD`5d^g|S,ZQ%[K2V2,hNfu2W8\vDj)8Wd3'>o%DX.R`'\LIR&%%%%%% !T.R%%%%%S|x)^0hIU0Kn}kk3SRL{)Vw1S.k=P1-WS*&kxU*;S(AJWX/~R&%%%%%%S0_%[BeOTDFjH[n_ !U^Gz,Or6Vb=/?|K]WHi`S(Ue1(:zV:e9fn\hWFL?biO&Wlb&`OBTWt*>-J3JR&%%%%%% !T.R%%%%%Svw4RQeYU0*BCR\PSNvU]uOMS.MkwmteS(tBmwHoS(9@<[E}R&%%%%%%S2du'WCqTRQo*tK5 !V.kJn'~LW0mK0{FdWvE]HZxaS*,?O4mNVRcWX^mvWv}5K5mJX:dG_0HlX@/G9msOR&%%%%%% !T.R%%%%%SPB|3W{>TZG4[}}lS:v,'OY6S*A}6w'VS&}?GZldS&^S@(lxR&%%%%%%R*ZW_2CUSRqz=b*Z !U>y=TWhsVr)qUi3BX0&Wk.P}S&|'9qaFW2kjE[(3X>Zl{2f;X2n4A'TZG4[}}lS:v,'OY6S*A}6w'VS&}?GZldS&^S@(lxR&%%%%%%R(xDp23|STvLSb`K !UFL~Bwl/W0?Tx5mJX4DbWIX{PcVYT.R&%%%%%% !T.R%%%%%S25^k[%oT4_BEldKS,3L?;]8S&aYwldKR*p}Dt4wR(qh<;m:R&%%%%%%S,ki[+_sT09WJ+;= !U0M@u05~U~I^sUe7V`<`n(UGTB,%>-.8W0,8hs':WnfH;[Q?W~rLE~3*WT7L~?WMR&%%%%%% !T.R%%%%%S,T&]BlcS|W27aDJS(l~=mu9R,p*Hu^`R(\kjZWAR(){wB5RR&%%%%%%S&nxt_<{SP;J6~Eq !Tr4*3RP]Ux/a-X:\VZH1-E<'Td/4)=cGW63[lex9X2@eJ<=[Y:enhV{SZ0vL.y[IR&%%%%%% !T.R%%%%%S,T&]BlcS|W27aDJS(l~=mu9R,p*Hu^`R(\kjZWAR(){wB5RR&%%%%%%S&z,,=N-S`{G(WL}asKrsX>Tb:jXU40?3e-4TBP\`\RKT2b`H-:pS|Mj==?2Sl+EoaR.ShN@dTD\Tx=2XhD_V0{aCSE/ !W0Sc=WC2R&%%%%%%R&%%%%%%T2c+K8ZfUrvU2BsNVNsnD>K&W.ip~LFhW2z&vaADW4ODSr?} !T.zR%%%%UivT@aj(IeAT2A(@wLHSx'8r^*(Sh.|gCl)SdZ'45C^T:S|m%ZaUj2J),BR !W68e.rwDR&%%%%%%R&%%%%%%S@Y?==\3URx9z>n[VT49K8x]W4d,hn^0W@VtSy5DWDrehT*- !T.zR%%%%U:bF3NwjU26`{8fLT>Z]E6f&T0n7?i_eSpkmH{iHSbQj`M~KS`-]x@pUT>I0BojOV.y)9B=X !W@jS*q|eR&%%%%%%R&%%%%%%SJ2Z;ww5UzH4=^AIW.a7)O9oWF95}l]jW`BLc0q?Wj8\XQeb !T.zR%%%%T\9JIoeRTDlS.3@kSf.`){.aSBn`qL-WS8]t&'=IS4j_ltj=S4JQy]GDT6N'76P3U>AlOf7- !V>s{T:mdW8W4zuJGD?WDSEuLT}WNbvi'NPWRKIZ7C* !T.zR%%%%TVBzyRDlTB/CS7d5S^cDUdjUS@:p*Wi[S6[by_E7S2z;N`QO^JW>sVzc,gR&%%%%%%Ttzx`74@V\Oly7T*W@Ax3&/NWZ7E-SmzWhoQOchqWtWiS;^` !T.zR%%%%TRLURqq\T@&P_,xfSZNH|:~PS>8-%g:HS4yIGB*nS2IZBWbx}^N'NX2Q85tzdX6k9@'8CX::C(?wI !T.zR%%%%THG~kGPjT:,nQu(BSNRJ8{_HS8NeD=B{S22\+vNlS.{nZoWTS.g>R8{nS(%(tFa-T8T2{K9z !V22_F91JWROzr+-{R&%%%%%%TL'[*}G_W2)fm3(_X2Bd1}b'XL_&IGb'XjXZJ9.pY|2%rb.u !T.zR%%%%TF}GZ@==T8qY(CBQSN':Z&oOS8:l&Y0Fd\HvHZ2]Fz%F7 !T.R%%%%%T0NhRZlbU2i,NBW,S\wju[6MS0z;Aa6/S*S1ZyXrS(^@hLZGR&%%%%%%SN3R\.*uT`.?Xrl[ !Ub}|:OVRVVyQ^=N%WD>d6'(SS,iMKb^jV2Df1D|AW:'&=9(SWfQpGq~-wtVBjF+pRnYN|<9O1oY8i'>v56Y.};H3erX^20v01FR&%%%%%% !T.R%%%%%S270g8R.T4a4%:hES,46gSasS&ahQ|CqR*q`zfecR(r6G]EQR&%%%%%%S,XDH]-eT.|m_R()+`^W;R&%%%%%%S&g}}P6BSL\7?rS_ !Tl}DTKY5UtU-)%3CVXx){BhYT`|_M6?+W6;2y-~7X20[PYEVY:=+Cs-jZ0Wl@^K[R&%%%%%% !T.R%%%%%S,Q(f-n1S|2CIkm6S(kOGFDQR,lnm5_`R([JXjQ>R()+`^W;R&%%%%%%S&r~EIy_S\t^I\^M !U0qE{=~BV4:_WVaeW0L&?}1dU.oe,cJRWL}VP=m;XTR&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%S.AUtN9VTf=t%u2cU\gn;HqqV6mw/c8uVDG9AJ3&VH@(t^Q9 !T.zR%%%%U@qe@GMIU6(.{dc,TFByo.J@T4UK0*UpT.u|Y,7:StV+cQINSpfRx8%7U.u<=EsdV2lGdutA !W0|1Y^v[R&%%%%%%R&%%%%%%T0ro2'r;Uht8^)xNVJ:44HNqj5SWUN::8MQEVN;},|_IW2dtAU]?WZit/TJ(l_J{1SnarE:{^SFxMArvLS<%:<%mrS6t8F=B*S6OPe>(fT:4SMqOwUBChv+~Z !VBRfCq{BW8}sbF}*R&%%%%%%U0Z2=2~XVH7p?ZXH?,XF`9;-VQX^p%LAR&%%%%%%TJ.F=DMkW4)HV^'r^Xh.WFB*+F4?S,Cv\v-7V0_OAtT7W6xSbhECW^ti4aG=Wz+x{DXBR&%%%%%% !T.R%%%%%T.jGzSCnU0u|1mNhSVG/PLBNS06F@0mtS*6NWl-\S(K]M|VdR&%%%%%%S2|)`;1_TJAE,mrN !UfJ|}*|uVh0y@5\&WJGTMA9gS(Qfw379V:&glgO*WDFb>L6xWhfRKJ)wWpGGZ@}ZR&%%%%%% !T.R%%%%%S~ly+^r}U0UXt1A[SRuvvuTqwR&%%%%%% !T.R%%%%%ST:0WYtkT^fo8n{)Sd-9rS`aa8&UA !UF+D(Sv*V~ql'voDX0Q>'HU:S&vz0b+4W2BYagOMX>+Pu6DkX4LU~kcxXf*O_NdpR&%%%%%% !T.R%%%%%ST:0WYtkT^fo8n{)SiOX6*]lEwoS&f,9989W6rrJ_l.XJ)DKH~dYBPcRHyyY>-oS|Q8X^wTU_@>Xf)o4A&0R&%%%%%% !T.R%%%%%S(Is=s2LSHKoi[X{S&eoYBpfR(U-=kVhR&_CuIX?Q.9)QA,,R&%%%%%%O&|6K-vZQ,Lyw@Xk !S4>]PoUrGK\W0k9b6bTWt6ov-rCX.j`JZS|Wf&QoeYGR&%%%%%% !T.R%%%%%S,E1/3suSxS.82i0S(eGmAv_R,_rI/bvR(Uyjh4|R(%R_`%>R&%%%%%%S()GXM&wSZ@[lX9- !U.U}VH]oV.d[OF^/V^}e:QKYTxeLE?lfW83;P]0KX4v`pF].YR&%%%%%%S(5w`-/'Snk)LBpe !U4D4`r%3V6bo%4]'W29f@:L>U2e8R%FFWTC9bq*MX@n8,Y4OYHZ[hH>6Z6B0ZOc^R&%%%%%% ifeffit-1.2.11d/src/cldata/56.dat0000644000175000017500000000525210771740457015333 0ustar segresegre# Ba CL data / PAD Format npack = 8 56 17 .7210000157 .3230000000 !T.zR%%%%V26;4CsbUlwMJ&4+:*AT|[WqVWNUrUd&EEJV>A(SKCmVPTRxS'yVVpW8KwaaUS !T.zR%%%%U8?}qV2*U0HSJ@pQT:{{;vQsT0*S({H~Sfumz&YWSZV`1)7.SXBp7hkQT2:D}KqkUPp1d1dS !W0j-.'18R&%%%%%%R&%%%%%%SF;VIeBxU`)qkkHUV`dcei~OW8v+w1hiWHM[Y=BTWNJO=6}J !T.zR%%%%U6ay;>;2U0(%3l~AT:9riNKlT.f%]omtSbcTp1t9SVj]Kl@zST^3Hn7?T4c4I`klUfPBk|cq !W8fEQ_/}R&%%%%%%R&%%%%%%ST7g?`JfV0O;v1W3W2%(tfR(WNh=4{4/WpB0l^IwW|soZ3G. !T.zR%%%%TPG19RKMT>I1{9vsSX7v6yC*S<^4/OOlS4W`&d0&S2.DtW|HS0o.bD4iT2&U6a`GU8?2ixU[ !V:>?Cu8~W4v%SPwdR&%%%%%%U6]I9*F),'W^&jfH]j !T.zR%%%%TJlmLjmBT:vFd1sGSR3yl`+bS:9fKxa(S2_O<)\0S0F&~7O7S0/o2=xrS>uj7jgfTvQs0?SS !V6l[gFqHW:J/kkEsR&%%%%%%U0Is=M+`VneL6sBxWHBk~[;2Wh@Qvb*|Wz=/zGW=X.vM*&d1 !T.zR%%%%THWjb%G@T:6)vkH%SNe6B%SrS8WGFsOlS28;-Nc|S0&EmtlGS.k\vfGPSF4hOt3GU21+0Y`4 !VD)a>Z^4WN*flx(SR&%%%%%%U:8y`udsW4oNR`;:WtGXCXk`X6%\'^yFX:Y{J'p'X>9{eQ'a !T.R%%%%%T@3s][BLUF>5%WhwT2fMv&ANSBBbGN\iS2)t`j^4S,yyZWFAR&%%%%%%S&OKV12]T.pq8@z@ !UjHrr8+RW@}?w\+RX^~e%EvWP&SoX9BOU.q_g4PKWvzk6x9UD{p2]Z6T2Zgn)|TSB)g)|\^S0yD'78fS,s+_Q%_R&%%%%%%R,Y9g^=BT02n{iEC !U~2[],wIWLS+tmgMXzM5et,sP&U}mnEtU2>-Q-/XWH4A&}1@XPBE-hZrY2;f_j-jR&%%%%%% !T.R%%%%%SxpSit)tU04]wx~_SPG0aCF~S.VrHs6/S(x3j3O-S(;l|6VpR&%%%%%%S@sNvEIvTP1DZ;kH !UT\KLPH2VLbdYiO&W>zG@Q?eS0d}'(E4Wvi4CP:lX0pC-)w_R&%%%%%% !T.R%%%%%Sde_YH(?Tt8|S\{zSF7bxxfsS,MeLXx~S(N=r.^+S&zS:8TqR&%%%%%%S*n8'/VFT6U2QUd@ !UHweCM%EVPcE>3a~WBuq:VtmS*2uLUTvVBpHF,k)WP?9x>D?W|}scFb4X.yn?ORaR&%%%%%% !T.R%%%%%S`eWP:^4Tnh>,2bmSD5`mNJ&S,:/tjvgf. !UbQE&uAHVvwk4V@ZWdmKXr];S,>Y*/(nVdg{Hn}FX057q*P=X>KdEc6rXBjUp.{*R&%%%%%% !T.R%%%%%SD?ezC.IXRwksq\0X>s^[ZU:Yn[0+5*qR&%%%%%% !T.R%%%%%S2M[I'KgT4~\:h|uS,@Eu\WVS&dCk5T1R*|\VkA_R(yBIZOJR&%%%%%%S*P4-gMDSnFb3Wq/ !Tv&7^JQVUhv'^[/bVTg`+sFtT8,D(D[RVtAEY4rkWjS,tonAJ !TV[ujr{*U`w{SE[aVPeGtcxaTp8vSXzSW8fwg9@;X4zvs-&IY>\/(Bv9Z2Av6T6:R&%%%%%% !T.R%%%%%S*J?u&owS`r)KD:9S(:(@\6VR*]Sm)+cR(.xYMUSR&f-MHW?R&%%%%%%S&Sa6\UGSHr.1ktB !TvqBv;+bV0Pj'32(V~FkE%,vU6cQ55H\WZlgTuI7XJV@1LcrYZXWLUyFZ@to&}LsR&%%%%%% ifeffit-1.2.11d/src/cldata/86.dat0000644000175000017500000000735610771740457015345 0ustar segresegre# Rn CL data / PAD Format npack = 8 86 24 2.095000029 .9880000000 !T.R%%%%%VF=ZKr*zUNM+LV%7U88]Em'{U2<\G+arU0)I%?|XU.U9D|]VR&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%TBebU?vmUt\=%NTV@G'EV0j !R&%%%%%%R&%%%%%%R&%%%%%%SZsA:ad}U@Y,lgk|V4Gdtr8WVH&qKaO5VV|EjsjOVZpGD;N) !T.zR%%%%U^aDEBudUF]mPR7DThme/1%`TD[@Mei'T:1lL/[GT65e*LzhT4mqx&QnU6@I7\k.VJA-}eA< !R&%%%%%%R&%%%%%%R&%%%%%%S61l@cCNU8}'hfd8V8&i2;m6V^Yw%mj[W.z%tiYcW0V~K^un !T.zR%%%%UV4nIHywUB'4LyRJT^Rh@`XlT@34KC[%T6Vda]{yT2v9OvhaT2Ya~uztU4]x[_|0:YJ\ !T.zR%%%%U4J+|6r2Tz~Vd}3+T6g[GFS(SvCJl55}SZ8iQW9;SP3Vhi:1SN6'=aKYT`,'2\7nUf{k8w^T !VZ(aRfN,R&%%%%%%R&%%%%%%TL1cNyp{V2;d20j{VXf`A[EKW0)H4]9TW2jwZF,kW41]a*4/ !T.zR%%%%U2t%CpKvTtuc&CfhT6.wRsH6tlSFdJFnuVSDyB*IpgTH`>~KYWU~xYIoWXd's>J\WnsynT%DWzdAUYg- !T.zR%%%%U.~dGbJ*T^}]3GyrT0u>HR]4S\6JC_:=SHan)i>2SBTWV0WN6&IX6V+}Uc9XDPKVGF5Y:_^{Q7/ !T.zR%%%%TJ1eXJoqT:T-yHX3SPH=*KD)S8sX@'zeS2JX,:&wS052d?68S.yf^-z3T4dNRB45U6r_D`7. !V4cNKY1W>F[~;TFWD')UGcxWDfs`@N0 !T.R%%%%%TDEai(m(UJ~jX1e(T4qTV*_2SFe}7<\iS4*q>\.5S.[6H:GdR&%%%%%%T.[QtvCd)Z\.1UDdNT/P3T2Q,T]7gS@o3I-r3S0p_dSkdS,mJ)*k?R&%%%%%%S~eZ5\[ZU:zNmRnU !VFTRcjxSWB>6-piVX2Z?9p'.R,ROe=MsV0CTT7S.@mQ3o-]cW0X6AsLkMkR&%%%%%% !T.R%%%%%T6t:q.f+U:}AbY8?T.UI7=%HS8`y[%%%S.,V1,hFS*`Jr'D+R&%%%%%%S,,A@3YWT\mFGwTB !V>EbUrDxWT;Aa[pyXB6]VCz^Q*HXD]seV6DJ[mOwX.birp4HXD5dLc-~XB:lyHHYR&%%%%%% !T.R%%%%%SnAJ)peNT~w5I,GPSJWDBEF_S,zm3sPuS(aB9O-MS(,w}OZnR&%%%%%%Q,B5SE69S8K@j}8B !U@EGiidiW6e[W,pYXTKCys4[Q&}TC>D6V\s2`5.UXdc{uxaOY4Wt0__3X0H[Ve:FR&%%%%%% !T.R%%%%%Sl39L|E:T|OW0pK_SH{kQ(LvS,oH=\`7S(\RF?z~S()kF)9dR&%%%%%%Q,jT{Tx+5EZfkSF|FDKHrS,\D2DaXS(TN3JN`S&~U\;?VR&%%%%%%SJBxR[8mTNrk0=DRqTj4W2WR{VIcS@a)p{{_V6MFrq=TW6kYwnK2WN~vIL+qWVcP8g\uR&%%%%%% !T.R%%%%%SX.A+ijjTd(o<=>XcS*fs:14gS(2t,XF5S&ha'4q_R&%%%%%%S:*nmY=*TH]1SvC4 !UN=eI:dAV@hs3S{%W0X-OchqSBy8,{)vVBq}Y'/oW6vLkr,~Wh{6vdwtWHoN.>2tSdFlv.YRW00\^QDNX.UW\YcxXR&%%%%%% !T.R%%%%%S6)o>=[QT8{1'U6'S./@k;j^S&st4='rR,dS|Lkyb&` !UJDh=(KQVhLw5FNlWVSH'`)(T>6iz93dWbnZf6LFX8~biT1FZ23l>WL_YN:^Y8\lR&%%%%%% !T.R%%%%%S,]Uw=z-S~rsj:zoS(qr/GfLR,zK)+^_R(a3n)~yR(,nZBiTR&%%%%%%S,1Y+r((Sh}>s|Z? !T`;&RY_bUN*-4znTV}BrUVttZrN\NWJde&-I7X8W4wy,mY0b^BhW*R&%%%%%% !T.R%%%%%S(hA_aRKSP\of4?wS&uI`{x?R(v=rnY[R&mEeA:ZR&T1IB*hR&%%%%%%S(@lp:vLSP/Cp8W, !TTGLP::`UF-8:ZVRV4)g%lx|U4L+s)IFW2o-'pJdY0IfZ2-ER31.Z>0;U10+R&%%%%%% !T.R%%%%%S(5*F:EJSBXP'&R+S&[6ODeKR(>LTQpsR&UjTl*JQ,TdVO1)R&%%%%%%S((@F)c`SR=B:KXN !Td\,Y0NkU^RKB90KVH7jndqfUVlrdreWWT`[{gqNY<{M1;.WZ@ih_7=@ZbWy*@;bR&%%%%%% ifeffit-1.2.11d/src/cldata/16.dat0000644000175000017500000000222210771740457015321 0ustar segresegre# S CL data / PAD Format npack = 8 16 7 .3500000000E-01 .1400000000E-01 !T.zR%%%%Tvt6[59qTTe7}|2pT.npubE\SR;Amkr?SBNR0EN@S7%Y2uOk`@vR&%%%%%% !T.R%%%%%S\;lg/nvThd)gr[aS@xD3:5`S*{|p^pLS(;l`KhrS&nOo8^vzZP8|V2G>CT)IWPcLZoCIQ,,'fc'9V0g@etwmX49yi8g@Y2>h'-0'Y@rUe+cLR&%%%%%% !T.R%%%%%S*xSn4Jt]e\S(QT/[6jR,5VLgsDR(D*x\|9R&sr^w]?R&%%%%%%R(R1SyLlS.3y8^9g !T8ch%ezPUFR`0a6eVLKzE):`T>o{+Mk*WDSEQW?6XB%_FE*]X&HZ/|Ol}SDnWSkPAS&_oAHb0R(H@Mc*.R&Yyak]jQ,or;YVuR&%%%%%%P&y0w/9IR&a3C]pN !S.=-w&x}TN61=hJjV2?0UL5yTS<72{I7zS:bo.*CCT4N4vgM,UBfqJcZ= !VNExVaK9WH.]S*,7R&%%%%%%T\%`g*e_VBk<]\KCW4Ni@N0zWFAG9hh2WT.@TtxQWX?T4VyV !T.zR%%%%Tl_1%h_TTNa{DEoaSz'{{(sJSLHzz+\^S>[rqz[OS:4z%bhTS8dqUlNUS2O{-KxjT`q8Wh\s !V:wU:)t&WZ&%f9LvR&%%%%%%T.Xk?^J`V8Gh6(GUW8VMI:6xWd7M}qq^X0M\?y_hX2:grXRD !T.zR%%%%TjHibWYpTLzjr-H7SvWNTG*_SJel~Re6S>4/?]iVS8nrYZofS8F:n+DfS86~OaRhU.uhuuYy !VL?2(+q~X.s>eW(fR&%%%%%%T6*C*<8dVJT_pD|AWLKkx](SX2N,lKVdX.X@/B6c3* !T.R%%%%%T2Rn9TY6U6)HvMl[ShigV|=KTVc7mw0/ !UjS\XLw6VhG9_q;*WRWje(5DS(;&lP&BV07uvF01W:k@\BpQWvIa-pM,X2QMG6:`R&%%%%%% !T.R%%%%%T03{Gk'{U2Gzy`\xSZHtG`g4S0],w{i[S*Fnm>[9S(V>OjhZR&%%%%%%S(1)T887T.tw~a(v !UDlwPDA:Vb`ME|u3WbFws{PZR(PQOdWZV0;}L+mUWNPuSXFr;F[?S0IPg]zeS*>ULl)1S(Ptz2N}R&%%%%%%S(\:^?mHT6'io>ej !U\|\%HprW0g,s2hUX2(lKFiiR*;SVYicV:^^2{o;W|=-ypotXDX{/WPZXLCENUvpR&%%%%%% !T.R%%%%%SZHI=[_0Tf^DM)E[S@Plv)r(S*sVb)`S*?yc~VE !T\Y>lKd0VJe()[-dX2x[pOlxQ*1@>gSXVLgzSg1eO9xXp@(/LD8R&%%%%%% !T.R%%%%%S4RdtxF;T8>WWHljS,p>+y4iS&nVAn5>R,MgCw6]R*;JF-B8R&%%%%%%S*'fQzX6Spz%nqGa !U09A35bnV01R(z8X2bgR(=1DE`fR&%%%%%%R(Smz_/GS28RD)?j !TLCW41QJUnf/_vkIVr5NA%|&T6_I.L}kW>QlJXL'X._a*Zq,Y._(RcjhY^[^?igFR&%%%%%% !T.R%%%%%S.:&TpzhT0:2p][FS*3cRrR(z8X2bgR(=1DE`fR&%%%%%%R*3%InK)S:4A/,D7 !Tj-RHhS[V2p+P4rkW4P+9GpYTD'NnDN8WXRTTu:|X:V*+,oAY6@HYjC(Z0Q|\dy_R&%%%%%% ifeffit-1.2.11d/src/cldata/65.dat0000644000175000017500000000574210771740457015337 0ustar segresegre# Tb CL data / PAD Format npack = 8 65 19 1.039000034 .4740000000 !T.zR%%%%V6ZswBb'V.}v\xJTU:1UZ?O,U.b3ryp1TbJWGlT9TVVOSV9)TTJxqHhHV0K3sYB&R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%S.<.sbl)Td6IOv&xUZcxG`X.V6OLeA38VBl>0RC_VF]*[T`> !T.zR%%%%UBI)l1@@U6Dmjtn,TF}>4nuvT4pDAxmtT0-O_SvASx/B&adISt9=&6XhU03~utvhV4,Jg1?K !W2&eb6T>R&%%%%%%R&%%%%%%T0]<5z(JUfIh?oo&VHNVCVs'Vt|n?/urW0p]]>Y_W2=K,nbs !T.zR%%%%U@_0;uY{U4wINGAFTF-58'YOT4KG3x3[T.oM%t1BSr{GL:cGSp4:Yd(0TDP-@&GYV.flkm=\ !W:XFNdMCR&%%%%%%R&%%%%%%S>2K%U[GULOO/7+TVLKi.ubTW2KkRu7mW<@ig;ECW@8M/d1` !T.zR%%%%U>KD%9+6U47f4Z{pTB_f]GVhT2i^*F)>S|{.,35=SlOz^`Q~Shq85Ou;THXKxvR~V2b91aS)EUD*yCX\} !VD-36NM]W::\N*dFR&%%%%%%U0@->s8/VFH{cRm5W2]{Uia[W>}M\8lFWHB`^%pyWJu;0DSY !T.zR%%%%T`9zcvLwTF{2XDAWSjOEwwVTSDvpBIKSS:Cc(qNtS6D2|eaYS4{^-oN~Sh=e%_eKU6vSz(t3 !VDu0,B&CWB_^;Hv?R&%%%%%%TfyPpO4&VRU\T(w%W<)LK'_-WPyZV~1PW^R5d~+2WhoMyuuR !T.zR%%%%TZ_4eu3?TDN0%>:xSdJt/sI^SBR2j:-WS8KD+HVNS4[c[T:3S4<9\`^'Srnr0*VaU>xmsC4_ !V\(d|v2)W`~8K@;2R&%%%%%%U2&*WU'jW.v-]mMgWZ5?S3XRX0Z:Yy[AX4`/3Af(X6tIBn]n !T.zR%%%%TP,^uqL5T>9jrf?*SVr`^qIJSX*]uS2&l1K/*S0gu9aS4J,S(?a<7R&%%%%%%TFk/`uQIW2q)4ZnGX4^g*huLXV^g4-S|X|s(sOz8Z.x<(g'W !T.R%%%%%T2Y88`B|U61A32lvR&%%%%%%SZ0g,P3~Tn8Uv(|+ !Up:3pY:ZV`+\aRz(WF]rq<^oS,,qtaNhV0BG'S(U@6k-vR&%%%%%%S4bJS'%4TLr.|yiJ !UjPwMio^VjZ|r+JLWJXE4ZS*4*{sO\S(J+&0iRR&%%%%%%S6vqM9>0T^[4T0nw !V0kRk*k-W2dcg?hNW~%9>wV8S(g~DY1MVLM:_;_pWnOfnRJ|X8jla-HYX>.Jq1O[R&%%%%%% !T.R%%%%%SV@sIDz[Tb*Mn|{QS>J|UJ(OS*_1Z~~~S(/\5HiSS&fUXi(bR&%%%%%%R,|YOn>)ShA|WpB& !UHbQk[cpW.oL],:%X0cscd?YS&p7[j;HW2'c9PCuXMQ/J|UJ(OS*_1Z~~~S(/\5HiSS&fUXi(bR&%%%%%%R*vm/;YdSjYol{Ir !URGd-w&JW2dcD*4SX6FQz_3]S&_U91qVW6JgL'D7XHNI7MhkX:&:A9?xY2-c-5^~R&%%%%%% !T.R%%%%%S(VvJ{;DSL9&[2XmS&lQ)6[gR(c>6}IRR&eCG{*jR&Nvs~~SR&%%%%%%P&jdt:SGR*k@h-P@ !T0^ZR-X%V0Zt\H0ZW`0,uG2tU@Ol|uumYBG8W*AwY:icPgQtX^.d,,shXjm9&Ue0R&%%%%%% !T.R%%%%%S(J~n'A.SHYkIVPNS&fIO2NOR(VAm(MuR&_rZ)i[Q.r56F)8R&%%%%%% !T.R%%%%%S2MN%Nt@T4|j[@x{S,?[MDRtS&d57%teR*{xzbkCu_R&%%%%%%S._h5b/^T2;~UIu( !U2Ele{D:V0,=ylJ~VfHjKA(CTD:znud~W09?n'YzWn&.O4xAW~/(%I+BW`hH6l_ER&%%%%%% !T.R%%%%%S.7(][|6T06OWgSRS*24\Je_S&N2AldKR(xqF7[WR(<;-\SXR&%%%%%%S(1vJn,OS^9(7+n) !U.kNGZ^4V.r]+(BZV`@|x^@JTXSEYrL'W48}l.l6X.~|+~1lY6)k-44rYp3c\QNIR&%%%%%% !T.R%%%%%S.7(][|6T06OWgSRS*24\Je_S&N2AldKR(xqF7[WR(<;-\SXR&%%%%%%S(>T=:xgSt3pR}Ni !U4cmEntqV6|~zB,=W2DAdj{tTtdzpy;]WHvEjh'>X8j;rn&iYzXjo@; !T.zR%%%%TFaI@+PzT8aD:B[\SL`;+w^rS8+WQBa(S0uiX}>;S.iFmN%6S.Ub~&/%SJM%Y~=0T|_XpcQr !V4^_g`@sW6_}W,T.R&%%%%%%U4uYYi6UVtJL5=4?WJWRw4EcWrWPf/3JX07iMvGmX0^ksquh !T.R%%%%%TBJc1-O|UHobT+&PT4F.7Zr/SDcP'-XPS2]ixu1WS.Ag4dQpR&%%%%%%S&gSQ)KrSxYC~Ac` !ULO*RP]_W25c|&[iX>QQ~ey`P*+?lAq-TTnqO(@xVt>rOTB\X.]%BH5vX@srRK[1R&%%%%%% !T.R%%%%%TB1-4Q&DUHP'RsJnT49&w8t}SDG\h: !Ulecsq_2W5D/6T2Is:J<| !U<(G&@JOV@(<0(w%W<*]WvPRS:M\:Gk.V\568Sq/WvDx/r*]X:YS@N+Sl:7**R&%%%%%% !T.R%%%%%S<t)WMZu)J-XN,WHKglXLZb|A_,XjgV]C[%R&%%%%%% !T.R%%%%%S&ZY;6e-S4EWI7SQR,(l'c1LR&_Al~U4Sg(%Q0Vz-{)hyVV4IQS{goYLM]\hV)YPxH1[IMYP\sG==|YT~V=YwlR&%%%%%% !T.R%%%%%S&ZY;6e-S4EWI7SQR,(l'c1LR&_Al~4iVB8Ov)2hVD}^hV2h !T.zR%%%%UB{B`u^HU6a|Uo+NTH^Wnb&OT61dtS%tT0?<@Y'%SzdrrJ=,Svh80b2xU0MD;eIJV4FN|cm@ !R&%%%%%%R&%%%%%%R&%%%%%%T0I9@F\jUd'=@]RgVFf^0YEOVrA\}fcpW0Zcc2dYW2&LMO]K !T.zR%%%%UB6-;.06U69mqtn:TFfwrkB1T4f'XTZ/T0&i{z/`SvS5eYIVSr_\_-RNTF|z0S)*V0/.x+s| !W<,nwG'nR&%%%%%%R&%%%%%%SKmCW:nnrS7FW>`2:o-< !T.zR%%%%U>tLH}wuU4OWSs_2TD65co.CT4%~oamLT.W27V45(SPbD !WJeZ67|&R&%%%%%%R&%%%%%%SB_%<)(`Uh~HW'[oVpPwn+.iW@*}X:N`WT`0e~I7W\pV%^Yg !T.zR%%%%ThqDQkSyTL^/3%>pStw6S{QVSJJve1zZS<|^0x1?S8`ht489S88kNaB~TW0K@pW2FVfra[W>ONP@-dWF^fV.t.WJ3M-jL' !T.zR%%%%TbN:Q@L\THa0=X]3SlwJ8L~ESFXr9K-cS:jd;[xhS6c^r/3qS6?ah5'FSnZ)obv8U8\zV_mS !VFldh+1eWD(+p~Z\R&%%%%%%TdhX+4LeVP]6j=k`W:[?:JdNWP+I<,EsW\J0GNJs@MyU@w)fRJB !V^[69vKiWd-f.NivR&%%%%%%U0h|?XI,W.dB|,k)WX90Set=X0IIb%>AX4J5KoueX6]z'izE !T.zR%%%%TR(9-rHyT>kJf&3nSX}XwZD/S<~B;F6/S4lW6PiRS2?94P;FS2%76T3OS({uo~HBTHHF-H.} !V:=JFajsWj'A{7ZlR&%%%%%%T@_(\GJ]V~JPAZ{pX.kuC@ubXD;WA?@}XZiV,W_kY`2ZyM^2 !T.zR%%%%TPJJ{15%~SX;YuE'5S<_s8?K_S4XiTQx:S2/;6`(iS0o{@IQwS(L+%_`0TJ,H_nk1 !V@&rlw}4X.fRU0%(R&%%%%%%TDg7tNa{W2PVt3)(X4>(rGJ\XTW|Lp%pXxxcJokZZ.]p6Ef| !T.R%%%%%T2tZx3|nU6S4y2o3Sl5+0/|~S4QIU[%%S,3y'a1FS**[[Aa9R&%%%%%%S\iI_H@7Tr.b4Fq' !Urq|Z`2UVb-SdcQ/WFuB1n\VS*yvvfYvV0&|PTM~W6'f:OM[WXyMVAdNWpG|sP1@R&%%%%%% !T.R%%%%%T0Pp(h6tU2k`Ds;5S^(K3hT]S0|SLleBS*T-p]&ZS(^xxL6%R&%%%%%%S6PjkoEtTPV=(%zp !UnblyYkUVn-3Ay\RWJhv5Y4OS(2ih92UV6:TKLz`W@>y%7}ZW`H%>5g-WdZXD&_dR&%%%%%% !T.R%%%%%T.pyC)A8U0~*{@GCSVhY3PoyS0=Qng-WS*9O[J=-S(MZ&*_|R&%%%%%%S8gPY9h-Tbon;_`3 !V20|zz}[W4%@N@q`W0e5*w6YX<2<%UD8X2PO7N0zXp0v^\&0R&%%%%%% !T.R%%%%%SXR'v+DBTdT{tZ9*S@'fg|E&S*jmEKzeS(4Ud)IUS&ihP^gGR&%%%%%%R,A5Vo-%Srr'C^QD !UV`S8(?1W48veVXfX6cdqYO)S&Zl>Ie:W4zexmtuXFpr2%B.X8w6Vhhc[5mnYJZlk?daY2:,?A1bhN !SrC'gw}BUr'~zq;*WLX5&?LFVP9WzhyVY>TJ+.Y_Y.\VY2XBX\XWC7@pXRW)(hlYR&%%%%%% !T.R%%%%%S:I4EoO?T>r^W}S&P)]wUGR,/LP:t+R&%%%%%%S.g5]=_-T2?_GwMF !U2E=&\U.V0*AN>.CVf*|(]?MT0K=w~%;VV_VrOI_WP>lgg|UWd{nN];QWF]o{0^@R&%%%%%% !T.R%%%%%S.DL63HeT0G(Ax6pS*9&^g82S&O[U[%%R*%%j,N_R(@<9|]lR&%%%%%%S(5WVIN[S^Y|&/PT !U.gX3V+8V.fO'YIxV\mU@P@fTTAQ+Gq0W2Nv;l'6X.h?m'TnY6y}Mi(-Z0mC8XGcR&%%%%%% !T.R%%%%%S.DL63HeT0G(Ax6pS*9&^g82S&O[U[%%R*%%j,N_R(@<9|]lR&%%%%%%S(@9TLF*St%'YVr+ !U4TTrlf5V6`32oJKW2&j&eF%Tl\=*6%gWF'V{jpy}KZ:Z7IYuFR&%%%%%% ifeffit-1.2.11d/src/cldata/32.dat0000644000175000017500000000271210771740457015323 0ustar segresegre# Ge CL data / PAD Format npack = 8 32 9 .1860000044 .7900000000E-01 !T.zR%%%%UJETN^oCU:_Z2%TKTP_]J>^xT8~DZk-/T2QXj]HvT0:mfaBlT0%0=LqQTn.-f[h3V6v.>/jP !R&%%%%%%R&%%%%%%R&%%%%%%S@IfqmWRUFH(xdbIVBsdM1{hW.hn5CfYO+B{S6=]=,]ZS2a}TmKWS2FEk^qQSfm@c&,kU4;~&,,] !V<[3`S4?{dL6]S0u9v8]fS0\rl3k%S(lcg4~HT8G.[-=4 !Utw~Ot`XWSDC,),XR)bp5>ZY8bJ]5]O !T.R%%%%%S`j'Bp[RTnmm'[@)SD7z2Mc4S,:[%-WZS(F6}%oFS&u;h-&TR&%%%%%%S0.tSsa`T:~OJ/;H !UHK:*+n(VL&,qVyzWBd|TOL'S.m-~c(-VBsY8IEoWVu]VN7>X4LMj])2X8QGkQonR&%%%%%% !T.R%%%%%SP2Zd[=OTZ2xX?/vS:me.AT4S*@6nrA?S&|U]4/5S&^'3U|ZR&%%%%%%R*iwWE;pS@^FdEdN !U0>a?Ft@V>ow>O3uWHHj9lrCS&sw\>b,VT*cfW5cX0Nv7J\rX84z3WVwX0G*I`SLR&%%%%%% !T.R%%%%%SL|x3oCYTVd<0;\7S:7eCqAHS*4c^_1%S&wbfnW0),;H/.XDT{A2kR&%%%%%% !T.R%%%%%S.h3&{7LT0s7b8&QS*K=FtU`S&SQNHdKR*5L3lF3R(J{;~7SXhY2=q|??8R&%%%%%% ifeffit-1.2.11d/src/cldata/31.dat0000644000175000017500000000271210771740457015322 0ustar segresegre# Ga CL data / PAD Format npack = 8 31 9 .1720000058 .7300000000E-01 !T.zR%%%%UH1|@dWEU8z)>|Y.TN8N.c|[T8Bg321HT2*o<0>-T.uT|0RkT.a>s.'nTd`:9)~uV4wHnTLR !R&%%%%%%R&%%%%%%R&%%%%%%SBCDG@g+UHb8;&FDVF)%vl69W007u,J\W6uF~?B-W:>{1^eZ !T.zR%%%%TPNKZ]|ST>MFd',DSX@R3]i*S+qTS0q-NiI3S^`Efm^AU2LvSvKS !V:T\m+9]W:{=y'v(R&%%%%%%U0qqzgw9V`~ASoC&WBI/{+QWWbE/\[w:e7VP~M8(1kWPN`e4pIX2i5I\WPXOF; !UDY:x\u\VHB8A=uVW@eoA3fgS0|l6?GoVHd+N~+yW^R1(am;X61ZbDftX:+Z~8z?R&%%%%%% !T.R%%%%%SH`V}RNCTPpZT=xCS8':eq&zS(x&LX)>S&n-s(Q(S&T\QYj,R&%%%%%%R*7((f34S<*L'p6X !T~'7pNVIV<(e)hp_WDc7@7}ZS(EB+^\|Vdhe~5]~X2U>bm?YX6gW1sEcX2xB}+PMR&%%%%%% !T.R%%%%%SH&RtN=ITP(nXV&kS6cY=|&3S(qcnk9XS&kK]POnS&Rt%8hGR&%%%%%%R,A%eGt@SJquaB%/ !U4{ZH2syVNh6wiZsWbQ.vfQ_S*RA[>1^W2]~%j[pX@p;}fNPXL8]Fye0XD)s4'M8R&%%%%%% !T.R%%%%%S*s|T>[jSlYFZLh>S(OBog4/R,0t7'uIR(B-G)[FR&rX}j~ZR&%%%%%%P(>~IEk%R(wm>jHZ !ST72}98uUJGRn=.EW85we47NSr7a\a)HXRDI2/+5YF^SbDEqY6*^]\.9Y2[,8n/:R&%%%%%% !T.R%%%%%S*s|T>[jSlYFZLh>S(OBog4/R,0t7'uIR(B-G)[FR&rX}j~ZR&%%%%%%P(*\eKRUR*2Fn@9X !Sb]P<[)wUZ%y}IG@W@Ep[vs@T0-?k}1PXf}qM_3]YX,Q,h%MY>?\EKp2Y8r<6EG}R&%%%%%% ifeffit-1.2.11d/src/cldata/25.dat0000644000175000017500000000271210771740457015325 0ustar segresegre# Mn CL data / PAD Format npack = 8 25 9 .1019999981 .4200000000E-01 !T.zR%%%%U:n9hb8sU2=V;,(UT>h\:siwT0t`@xzeSr;izVY\Sbs^eO{US`MyuF7IT>l)&|&rUjpLcjC0 !W4OA@uF)R&%%%%%%R&%%%%%%SRxF_d1/U`=T/Pk;VZR%tG*5W6KXdGmJWB[@o9[1WFkY>%i' !T.R%%%%%T>eUV2DUUDf@3x%'T2Qp}%t}S@pk6y-WS0qC@`cES,mr4WDGR&%%%%%%S<2cRmN:T\q;csi@ !V0;E7X/hW2R]]w5HX.w{.gfdR(9sDTI;UD&;4emRW24QFL.9Wf;Ng|q~X2>(-m|{R&%%%%%% !T.R%%%%%T:jRs^Q4U@AruYxFT0RIXVAiSX='AXJVd,p,4R&%%%%%% !T.R%%%%%T:Y~&?T`U@-L?zbmT0I{msM%Sg=OlS.s;I<)%S,4OvjA{R&%%%%%%S&UCdU1ESn(bP_GA !UL3}:,71W2q:I27uXDnl'*lLP,UGNp[`U2`L6B3yWu%%x2^Xr)]5xn0R&%%%%%% !T.R%%%%%S@sf1@l2TH30{uF-S4-,>x_vS(Rw\ihdS&^K9bZSR.3+&XF@R&%%%%%%S(`i-@;YSv4DO;,C !U4Ip5+nTV8H=Lp,;W6UOi3,~SB^_ebrEVldx,j*IX02SZVTqX@2Uz\G'XD>^l-s[R&%%%%%% !T.R%%%%%S6(CB`/8T8yN),@:S..\H0z.S&sft6IrR,c^UjHxR*IbJ'SJR&%%%%%%R&Pz'x0,S*i}\*ma !T@*6?zIPUvU(0fyujD)RX:g+P8djX`WJJ`)gSIXZFg^UyFXR}CQ;w|Y0mKXzoER&%%%%%% !T.R%%%%%S(7,%_m`SBqN%qX{S&\9EduJR(@^I(=)R&Vd0pX_Q,Zi0)0TR&%%%%%%O(=Z]gQAQ*(i\UVN !S*s1NYQbT\mgT'gBVH`?/^e~TJy}{LH9Y2,WtN~`YbS=K8`qYR}aOspZYF?j(mBER&%%%%%% !T.R%%%%%S(5B,,BvSB[j]6|QS&[BfIFFR(>f^1%bR&UuWSUDQ,URI/-2R&%%%%%%N(ni4(LYP,r~^}Rq !S&^CgYeAT2[[+Th3Uzzs4n,lT.lYU4qyXDX}&iYMY4anK@nIY0r5I%79Xxc346GAR&%%%%%% ifeffit-1.2.11d/src/cldata/27.dat0000644000175000017500000000271210771740457015327 0ustar segresegre# Co CL data / PAD Format npack = 8 27 9 .1230000034 .5200000000E-01 !T.zR%%%%U>hDeT.RsLUGLSnHjHUB`Sjf9HoV9~@BRLWB-TeAu+ !T.R%%%%%TD@\AdHoUJxSG}}9T4nyo8`/SF`OP.1pS4(Sq8mmS.Ya{V)\R&%%%%%%SDe@&dLBTpr6;Kcc !V2l'S]kMW4x(')rKX0N0w_HRR(*+)P3MU>5mj9ELW0.Rb-/.W\.yaul&X0DE}j[TR&%%%%%% !T.R%%%%%T@02hAMoUF9XvT]tQXPS2(4`Z[PS,xo>828R&%%%%%%S&Y&xcWZSh3rL-U= !UDxA4NnRW07_zrH>X:luP~RdP*9eHvn'TZk6bY/DV|ui8h&QX0/dd'nLXD:o*}T.R&%%%%%% !T.R%%%%%T>soP++]UDw|AClXT2Y2+['aSB&BsvKSS0wv`j\eS,r1GV&3R&%%%%%%S&u[JisCT0lP`QkE !U`AUf6E@ad;+0VbMbAB)@W~Mlz^'.X4*mIaVS0'S279?S(+H.&OrS&Mf6CJIR*z>5WUeR&%%%%%%R&pbmVj,S.Y0gyWb !TNFy?}P5V0rNcI&5W:&v@q_MS.G/]^Y^W4h|V.,vX<)~(~R+X8W=jP4*mIaVS0'S279?S(+H.&OrS&Mf6CJIR*z>5WUeR&%%%%%%R(@I2|-8S4|xC]Ky !TpJfyL\sV4/@2M;YTf=44`IYZ=~W+'cY\PR]+R9Ybs.*~NIR&%%%%%% !T.R%%%%%S&P3Yt=0S0xf[4:}R*MVe^\zR&S}6~W1Q*7P{m:[Q(L?_&;{R&%%%%%%O(<*Ta7eQ*[i0Lo\ !S.*oW@'tTt;H(e&bVTIH-i^oV6o'mw/WYHj';,^PYL~\e5^y=Vh1(MS5kW4OFr&KyW:ij%NTVWX_Hm(zWR,nncDNWXxVQ)XB !T.zR%%%%U452\W6=Tx_3p%_+T6NxWo*7St+U+D\uSXHg7[WUSNQm]ZMRSLW'=:pwT0)%kPUT8_U+%[6SL\WGQzhS8)rI<\iS0t`+5P'S.hPQHtVS.TpFC}PS~PZiXe+mPpWRVj?Gu]Y3W@9_uyyFWX/X?wt=WfpT4DK\m>SSD_w%'4jW6L+85][X.r0,OEcQ,bDWV-jUyPWF'%dnf(X:z2L^(FQ.<@POCuRK8|R&%%%%%% !T.R%%%%%T8]{]KHfU>Uc;;G^HXbfgE~3*P&qq1Mc9U>ZYn9=TWb'6S&p(=&3IR&%%%%%%S8]0\Zd\TDC1)t?< !UHs(Gel]7d>X0KYfg<@X2]*\-=nR&%%%%%% !T.R%%%%%SJ93BmMoTRU4?O\DS8A-xYPiS(}T3L;?S&pK@X5LS&V0x;v6R&%%%%%%S([72AJ6T088\h,h !UWf@(m%AOSTaMpvOCX2&{Q/1SX:oJwjw)Z<4zMUAuY=4UlE%31V4V<>E1v7}VLfZ):+NVR7J%c-T !T.zR%%%%U:oc'4cAU2>HH@NhT>jC(7`FT0uMhb6~Sr@xBY8dSbwmS>Y.S`QwN})PTjI?c2p[V04cIPN, !W0)@|qs\R&%%%%%%R&%%%%%%T4h+:J0MU~{|gE`\VV'tCN&p4x9DT0V@&SypSn*L0SyiS`.Fr@&US\i~kDCNT4g,-\:hUZ=>va&_ !W2byE1]?R&%%%%%%R&%%%%%%SD't|9'IUZ:%ldz0VZfQgV4fW6vKmLA8WDc`Ns:\WHpj]'f8 !T.zR%%%%U8NpbfslU0Q0t?3oT<3O]`3MT02ZYmRLShPDyf@bS\'*tlZKSXk?Vz'nT8F6bI09Ur]?7dsd !W<:zpmvOR&%%%%%%R&%%%%%%SNq[D312V.v8(\z@W0H<5QjoWJcFZvxqWhe@kb`iWtVL1\w'CX)>S6HA4w}qS2j[t~QSS2NZNix-T2xb-Kp,U:MMJi2o !VGT>7sws:cSVnm2Qj9SaS4M0A~cRS2%r%7p_S0f~zdtsSF4:t'uWU.u~B+AE !V:5^nrlOWR&%%%%%%U.aO(@FSVf/_L[/bWDIBkxCIW`~;&TAoWrHS5WvWX.UOpID% !T.zR%%%%TL[>s%2rT}=EG. !T.zR%%%%TBvM@G/_UJKlCH_nT4\NVhwCSF9.Uii[S2qt|.bHS.NptzKOR&%%%%%%S&^vv]}ZT2J,i,N? !U|r/]-3`WH,q4d+BXjPCMGF5O.8b+8HeTt&/)B&eW8[2?LqNX<}-zw,MXl2ceY0LK{CKnR&%%%%%% !T.R%%%%%T.l'?gJeU0w~D@aS*78B4DVS(L/ZJ},R&%%%%%%SF;F:zI}TV9KS7lZ !UZV4X&.FVPpJ}veOWB&F=5W=S.H\FI?MV4.1>o;ZW<3oIcteWnKbti];X0=_*JiIWJe]~E-lWvS^ZNZ,W~hC.uF)R&%%%%%% !T.R%%%%%Sj}lwIS&V(u}5zR&%%%%%%R(H.McsNS@*hr,>Y !U6,C0koDVZLYLHfPWvD+/m%%S(&([MFLW4I:r@?uX@]N*-IpX2}yiGV%Y8nM_rR/R&%%%%%% !T.R%%%%%SFd9n4,0TRQQ%CC.S8?Y(L8yS(}6~~IrS&p>}lwIS&V(u}5zR&%%%%%%R()Dr=UpS@l\\aus !U:BZU-T3VnrT4)&uX0ua[TNPS&uD2NF{W:RUpXH+XN^xkLj5X:EZF;LyYB^=YEbAR&%%%%%% !T.R%%%%%SB7Q3^]iTHWyjK{fS4&f`PR&%%%%%%S&V4Hy&f`PR&%%%%%%S&`>=:viSR-Dn^pK !U.t9qPU5V2CRMnwyW.}LRfcMU.gwEe0+WNU%1XyvXeT:ND4Y2eUB0qxJ9yV`&8?COq !R&%%%%%%R&%%%%%%R&%%%%%%S2x`*X7rU4=iOER&%%%%%%R&%%%%%%TH1JUe^@V8dTT54OW0&,),GqW<1EF6}JWDtO~RV(WH;8NyfH !T.zR%%%%U07;JY^]Tb56m0uvT212PdsBS^ACcHXPSJIJ7>-+SBqtUoo]SB4M'7~,SF)EQ@?PU2bN7?}? !VPc(C]?MR&%%%%%%R&%%%%%%S`YSO(6RV0qf]-IvW2%b?6UsWLr]}K-Wr[3J{Vw !T.zR%%%%U.|+?%QzT^nCoiAYT0r4nb)'S\(,&:mhSHXQCGx7SB5JJA|5S@Th~dNUSPg104V~U:['WnKb !VpZEYxQ_R&%%%%%%R&%%%%%%T.uSF7u\VfW>8MGo1q'VaT0?x@J.5S<>v5+6/S.j8>>{|S,.Z:Zn*R&%%%%%%SV/*W<%:TzpchGxJ !V0N{a+t{W.op*:gR&%%%%%%S,(zs5@6TU2>&PH16SXyn8iK2S0TCZjB{S*C03\,aS(Ssl>t1R&%%%%%%R&R/s.2nS6LqUBPp !U6vl-QRGW00adbr4XDBk?kRpP,G}FctWV.pZ0O'UX6^Rxaw)Y47r:G2zY.iL'[(UR&%%%%%% !T.R%%%%%S@HWVKT'TFWiIl5nS2q'AEblS(N8m%?XS&\LZ0QkR.&1D]sGR&%%%%%%S.[kDVYVT4}7&{MJ !U:.qId)4V8:N8^9RW2^~dv(WSnVmlweUVf.EzP'&WnrcdJ|5X4r_`7ZlX47H@ONVR&%%%%%% !T.R%%%%%S4wwaCa;T8lXWhi)S.)?<;ciS&rZnkT1R,^qCZ`)R*FWTJVER&%%%%%%S&SoUjD{SL/a*\AF !U01i4I{vV63{v@(rW48_hk_PQq !U6v(*Y|fVD1LcZAQWBE`trt6)X:yqy[c_XVkX6}}sY@VT<'G_R&%%%%%% !T.R%%%%%R.1,o2%+S0/.~|j3R*/0oHYdQ.Q~~xGkQ(v.|>fhQ(:NZ-RmR&%%%%%%Q&cx,^A1S&hA/>\^ !T2&IQx4JU`2bhP'&W40be^-(W01G6BpuY\gFq*wXZ4&R[Z-ZZ400>2h=Z4@'/6_IR&%%%%%% !T.R%%%%%R.1,o2%+S0/.~|j3R*/0oHYdQ.Q~~xGkQ(v.|>fhQ(:NZ-RmR&%%%%%%P,]X)}n;S&U+~U<& !T0/5WI&%UZjLu6jCW2k8z`opW.sB|^|1YZJiF9AXZ44])MK/Z4J7)X3(Z4R[MSo'R&%%%%%% ifeffit-1.2.11d/src/cldata/Makefile.in0000644000175000017500000001736510771740457016464 0ustar segresegre# Makefile.in generated automatically by automae 1.4 from Makefile.am # Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. # Copyright (C) 2000 Matt Newville # # This file is free software; as a special exception the author gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY, to the extent permitted by law; without even the # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. .SUFFIXES: .SUFFIXES: .c .f .o SHELL = @SHELL@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ sbindir = @sbindir@ libexecdir = @libexecdir@ datadir = @datadir@ # sysconfdir = @sysconfdir@ # sharedstatedir = @sharedstatedir@ # localstatedir = @localstatedir@ libdir = @libdir@ infodir = @infodir@ mandir = @mandir@ includedir = @includedir@ oldincludedir = /usr/include DESTDIR = pkgdatadir = $(datadir)/@PACKAGE@/cldata pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = ../.. ACLOCAL = @ACLOCAL@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ transform = @program_transform_name@ NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : host_alias = @host_alias@ host_triplet = @host@ CC = @CC@ CPP = @CPP@ F2C = @F2C@ F2CFLAGS = @F2CFLAGS@ F77 = @F77@ FFLAGS = @FFLAGS@ FLIBS = @FLIBS@ MAKEINFO = @MAKEINFO@ PACKAGE = @PACKAGE@ RANLIB = @RANLIB@ VERSION = @VERSION@ CL_DATAFILES = 04.dat 05.dat 06.dat 07.dat 08.dat 09.dat 10.dat 11.dat \ 12.dat 13.dat 14.dat 15.dat 16.dat 17.dat 18.dat 19.dat 20.dat \ 21.dat 22.dat 23.dat 24.dat 25.dat 26.dat 27.dat 28.dat 29.dat \ 30.dat 31.dat 32.dat 33.dat 34.dat 35.dat 36.dat 37.dat 38.dat \ 39.dat 40.dat 41.dat 42.dat 43.dat 44.dat 45.dat 46.dat 47.dat \ 48.dat 49.dat 50.dat 51.dat 52.dat 53.dat 54.dat 55.dat 56.dat \ 57.dat 58.dat 59.dat 60.dat 61.dat 62.dat 63.dat 64.dat 65.dat \ 66.dat 67.dat 68.dat 69.dat 70.dat 71.dat 72.dat 73.dat 74.dat \ 75.dat 76.dat 77.dat 78.dat 79.dat 80.dat 81.dat 82.dat 83.dat \ 84.dat 85.dat 86.dat 87.dat 88.dat 89.dat 90.dat 91.dat 92.dat pkgdata_DATA = $(CL_DATAFILES) mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs CONFIG_HEADER = ../../config.h LIBRARIES = DEFS = @DEFS@ -I. -I$(srcdir) -I../.. CPPFLAGS = @CPPFLAGS@ LDFLAGS = @LDFLAGS@ LIBS = @LIBS@ AR = ar F77COMPILE = $(F77) $(FFLAGS) F77LD = $(F77) F77LINK = $(F77LD) $(FFLAGS) $(LDFLAGS) -o $@ CFLAGS = @CFLAGS@ COMPILE = $(CC) $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(CCLD) $(CFLAGS) $(LDFLAGS) -o $@ DATA = $(pkgdata_DATA) HEADERS = $(include_HEADERS) DIST_COMMON = ChangeLog Makefile.in DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) SOURCES = OBJECTS = all: Makefile $(DATA) Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status $(BUILT_SOURCES) cd $(top_builddir) \ && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status clean-data: rm $(MAKE_TEMPS) clean-LIBRARIES: -test -z "$(LIBRARIES)" || rm -f $(LIBRARIES) install-LIBRARIES: $(LIBRARIES) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(libdir) @list='$(LIBRARIES)'; for p in $$list; do \ if test -f $$p; then \ echo " $(INSTALL_DATA) $$p $(DESTDIR)$(libdir)/$$p"; \ $(INSTALL_DATA) $$p $(DESTDIR)$(libdir)/$$p; \ else :; fi; \ done @$(POST_INSTALL) @list='$(LIBRARIES)'; for p in $$list; do \ if test -f $$p; then \ echo " $(RANLIB) $(DESTDIR)$(libdir)/$$p"; \ $(RANLIB) $(DESTDIR)$(libdir)/$$p; \ else :; fi; \ done uninstall-LIBRARIES: @$(NORMAL_UNINSTALL) list='$(IBRARIES)'; for p in $$list; do \ rm -f $(DESTDIR)$(libdir)/$$p; \ done mostlyclean: -rm -f *.o core *.core clean-compile: -rm -f *.o core *.core distclean-compile: -rm -f *.tab.c libifeffit.a: $(OBJECTS) -rm -f libifeffit.a $(AR) cru libifeffit.a $(OBJECTS) $(RANLIB) libifeffit.a .f.o: $(F77COMPILE) -c $< install-pkgdataDATA: $(pkgdata_DATA) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(pkgdatadir) @list='$(pkgdata_DATA)'; for p in $$list; do \ if test -f $(srcdir)/$$p; then \ echo " $(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(pkgdatadir)/$$p"; \ $(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(pkgdatadir)/$$p; \ else if test -f $$p; then \ echo " $(INSTALL_DATA) $$p $(DESTDIR)$(pkgdatadir)/$$p"; \ $(INSTALL_DATA) $$p $(DESTDIR)$(pkgdatadir)/$$p; \ fi; fi; \ done uninstall-pkgdataDATA: @$(NORMAL_UNINSTALL) list='$(pkgdata_DATA)'; for p in $$list; do \ rm -f $(DESTDIR)$(pkgdatadir)/$$p; \ done install-includeHEADERS: $(include_HEADERS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(includedir) @list='$(include_HEADERS)'; for p in $$list; do \ if test -f "$$p"; then d= ; else d="$(srcdir)/"; fi; \ echo " $(INSTALL_DATA) $$d$$p $(DESTDIR)$(includedir)/$$p"; \ $(INSTALL_DATA) $$d$$p $(DESTDIR)$(includedir)/$$p; \ done uninstall-includeHEADERS: @$(NORMAL_UNINSTALL) list='$(include_HEADERS)'; for p in $$list; do \ rm -f $(DESTDIR)$(includedir)/$$p; \ done ID: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ here=`pwd` && cd $(srcdir) \ && mkid -f$$here/ID $$unique $(LISP) distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir) subdir = src/lib distdir: $(DISTFILES) here=`cd $(top_builddir) && pwd`; \ top_distdir=`cd $(top_distdir) && pwd`; \ distdir=`cd $(distdir) && pwd`; \ @for file in $(DISTFILES); do \ d=$(srcdir); \ if test -d $$d/$$file; then \ cp -pr $$/$$file $(distdir)/$$file; \ else \ test -f $(distdir)/$$file \ || ln $$d/$$file $(distdir)/$$file 2> /dev/null \ || cp -p $$d/$$file $(distdir)/$$file || :; \ fi; \ done # DEPS_MAGIC := $(shell mkdir .deps > /dev/null 2>&1 || :) # -include $(DEP_FILES) %.o: %.c $(COMPILE) -c $< check: all install-exec: install-LIBRARIES install-data: install-pkgdataDATA install-includeHEADERS install: all @$(MAKE) install-exec install-data uninstall: uninstall-LIBRARIES uninstall-pkgdataDATA \ uninstall-includeHEADERS installdirs: $(mkinstalldirs) $(DESTDIR)$(libdir) $(DESTDIR)$(pkgdatadir) \ $(DESTDIR)$(includedir) clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) clean: clean-LIBRARIES clean-compile \ clean-generic mostlyclean distclean: -rm -f Makefile config.cache config.log stamp-h stamp-h[0-9]* maintainer-clean: maintainer-clean-LIBRARIES \ maintainer-clean-compile \ maintainer-clean-generic \ distclean @echo "This command is intended for maintainers to use;" @echo "it deletes files that may require special tools to rebuild." .PHONY: clean-LIBRARIES maintainer-clean-LIBRARIES uninstall-LIBRARIES \ install-LIBRARIES mostlyclean \ clean-compile maintainer-clean-compile uninstall-pkgdataDATA \ install-pkgdataDATA uninstall-includeHEADERS install-includeHEADERS \ distdir check installcheck install-exec install-data install uninstall \ all installdirs clean-generic \ maintainer-clean-generic clean distclean maintainer-clean ifeffit-1.2.11d/src/cldata/83.dat0000644000175000017500000000712210771740457015331 0ustar segresegre# Bi CL data / PAD Format npack = 8 83 23 1.914000034 .8990000000 !T.R%%%%%VB|ChY>kUJmi6c:eU6P7a&aJU0iQEpjhU._&w{`qTxfLbN}8R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%TDij.,I@U>pJ:]tqUlEp6i-tV22*Q`.,V6(LSHaUR&%%%%%% !T.zR%%%%U\.'cYlzUDenwUvT&.ETh !R&%%%%%%R&%%%%%%R&%%%%%%S`JJ>%>_UD@2PF4-V6B4':dmVL5+hP8nV^1VJ=.EVb:o+pIw !T.zR%%%%UX}E8@n8UD+K4&YiTb^D%Wx9TB1Zx.B_T865aj,ST4J\YC4BT4+y9PM(U2f17u~BVDX^(qNp !R&%%%%%%R&%%%%%%R&%%%%%%S6SC[_;OU:oYS.5gV8{@\>H)Vdo'[%6lW0TELz;*W296H4f0 !T.zR%%%%UR62tiLVU>sR%o_NTZ4%EE_6T>+vZT@LT4qPeADJT2C71*2iT2(~dZdkU2F/qwQwVN.}o,OE !R&%%%%%%R&%%%%%%R&%%%%%%S68PC>zGUJ%n-Jj1VLmVLnc`W2xulPirW>_pNf.pWBIXg0pQ !T.zR%%%%U2\7NZ(DTrE^O]FeT4lqqG\kSl~=Gv>aSTHSG\gISJtDd*)TSJ&;{2oeTXr^@B]CUb3J;DIH !VVi*2u7&R&%%%%%%R&%%%%%%TR;,P18^V49nFAg\V`bcve=@W0o-+rKMW4mMX)\>W69Nr]-< !T.zR%%%%U2/1JZ:FTlN8Dl[iT47e(G0iSh=%=QeBSP]-?@ifSHMbIl-lSF_Qr^mfTBac2+,3U^Z93N{[ !Vj;1)3yfR&%%%%%%R&%%%%%%TDAiI,/fV8mMDO]KW.r/Oc%8W8jcKz@ZW>mdC2nOWD@7&'VH !T.zR%%%%U0;o}e}kTbOl'Y&/T26V}J+lS^Z?%@r'SJY]^~+ySB~|NFHctym/>W^rG9a]KWx3v}8c)_d4sS>.W}LSXS>c<].q8U6v\53?yiCS<\kM%3hS6]JaOS;U6w@Y86% !W.~;C^spX@]0NgFhR&%%%%%%S~c*}Vz0VRr5:~SQW^dQ*xj{X:'91vZ3XJ+'FpZ~Y@@D.f7M !T.R%%%%%TDSF.L>hUL5dMpigT4xT<^AESFttWF)>S412%H}8S._?VnnrR&%%%%%%T2h?xl4jU4{'{(/L !V4,:%LMaW.VVwmzKWHHDJ>4OS(,1o0;&UJj5|-D8Vf'5ltw@W:|Q}{gTWH'M~4BTR&%%%%%% !T.R%%%%%T@AW|~n2UFO.v;G9T2mM\9RhSBQYgX)>S205G4,WS,~(iCI?R&%%%%%%Sno0iQH5U2z^X8o[ !V6QP|JQ4W0dU-RkIWDDeAD`:R./c5Sn@U\'m4ZmQW02HEKC&W@JERJ4~WD\ftc1PR&%%%%%% !T.R%%%%%T<9LU1;1U@tO~}FpT0gAsrl6S>8n\ozeS03a3YR&%%%%%%SnZ{Y}p6U8?aqde/ !VBXqq(FVW@.bViC2X2?:S;B5R.1L/EK,V2&S*?cY=YER&%%%%%%S,GsdSHATPWccAr0 !V6,yzzbvWBRz{s3RX6oc=k}:R&[+8cH'V6^sLb>qWrfj{X8{SLG^:X2bHvog3R&%%%%%% !T.R%%%%%T44yrJhNU6~l[11(Sp5A2gtiS4wl~|)>S,D2z6{6S*54ZwhmR&%%%%%%S*?x8;U0TPU1p:L' !V:)bw;S|WN14c]NPX@ZIf9fTQ.+P=thbV>b6ISXHX2++'9qwXF&kT1S(9n&o9VS&m5N4weR&%%%%%%Q*/x]VGBS2;@yu<~ !U8@y\<&OW2PCdFX4,z?MdDR&%%%%%% !T.R%%%%%SZ'`C2/+Tf5rE_]oS@@+*WW&S*o}wiN1S(6fnrW*S&k4u(3;R&%%%%%%Q*K8NLi@S4D%ViAC !UnW6/StnFHXVY)rt>ZQ.I[l/H?W6W9_g~/Y2wyrSG'Y4,zqks:X8f?<;&CR&%%%%%% !T.R%%%%%SZCyJ2+>TfXoV\OZS@NSW*XsS*s*yZIrS(8'rJg?S&l'0]pVR&%%%%%%SD4{h@-NTH`_DNbB !UDr/*n*AV:zt)l.AW0}+[MclSL('NhxIV<%Z~T>`W:s=a6v?WTJ'ngk1WX%NKeurR&%%%%%% !T.R%%%%%SLAH/QUITTt^TJ\AS8s?Mw2WS*.8L^;?S&tyrw'ES&Y+iAN4R&%%%%%%S4Qp/rD5T@kfIvt2 !UFh11toHV>(Uk9A:W02G@ZvcST.*n\'EVL8qiHPfW:Xz*&}jX0PUq:BzXV]eb(XOR&%%%%%% !T.R%%%%%SDD5m5Y-TJ|xxC65S4pj-pfRS(aC:YT1S&dSO4svS&NFfEm4R&%%%%%%S4:/(RJ)THoo>/Uv !U\WcL0R:VXSgZi^oWD/3z;FxT.}tKeCQW2PZ3qNLX0(SU%v]XB/Xa7u~Y.V(U+%aR&%%%%%% !T.R%%%%%S.GJ-HG=T0Je[1mwS*:UU=\(S&Oxc~dKR*&F|2T@R(A2PejzR&%%%%%%S&P6UV~@S^`2%F(Q !U:6u?5?{VHk)=/V8W>f|{@8jTvGT]pdgWT79:xglY0ebA(RHZ82^XC3@Y>V6}cMGR&%%%%%% !T.R%%%%%S.(3/M)GT.~+3PcVS**X1p4QR.H>6yMMR(r%F::gR(7kotq/R&%%%%%%R,5W595uS\uJ^mwr !U>B`(Zn}VTx[YT.pWJUHl'odU2/sF_9fWp^zckGMY8rM.S+5Z@F@W2|/YRU@T,A0R&%%%%%% !T.R%%%%%S*Dl=:S,S`.XtLioS(7;FMV}R*WY>JbmR(,JhYc\R&dNCfl|R&%%%%%%S*.tr[P~SR{H.GAP !TN%MT@g,U@~d]L*XV6,_3oyHTnA-bbXAW.oYuGr{WJ+,WUn@XNEJZ?NvY@h5@:|JR&%%%%%% !T.R%%%%%S(&{qVDYS>\UE2x.S&Sx17+9R(.zf?SPR&O9`&_PQ,*,ZYx,R&%%%%%%S&_CH@PYS:_6ST}S !T>;`q9^TU6tcmGB(Uv=|R'eeU8t=o;D_W>vz?>\&Y:&*16_\Z4&l*(2vZB^_Byl%R&%%%%%% ifeffit-1.2.11d/src/cldata/47.dat0000644000175000017500000000432610771740457015334 0ustar segresegre# Ag CL data / PAD Format npack = 8 47 14 .4709999859 .2070000000 !T.zR%%%%Uz6FC*acUVOiS%K6U.|k(o_YTR{^*F)>TBx@PK',T>)4nX[GTb0V6W9xuCsV~M{MkdeW8ww|^MsWB3~x)T2sJk,tPSde6fc~~SN\8am6MSF^CQ;HISDsT@iD4SP,Qw~,7U6QiVe*= !VZV2U%TNR&%%%%%%R&%%%%%%SZ1y.GI0V0.f(12,W0;aSL[D+pH)SDn~Wts~SD-Vh-QDS^,~-_uZU@B4*E'< !W.X]}/bPR&%%%%%%R&%%%%%%Sz>GIOFhV8w1yqNpW:a(3xr,Wn:gt>={X2LibtGMX2sxBX3| !T.R%%%%%TwDQ^T+S0N,wAbUd*&T0-1`9NJS:ptwrvLS.Y@iktmS*}Y/lW/R&%%%%%%S.,<~j,xTD.Ty4KJ !Uv;oa/^:HS.D-49|9S*oi73AfR&%%%%%%S0P?I3X=TTuROpgH !V2~d;(XDWR&%%%%%% !T.R%%%%%T23r(jD?U4]/ZgK|SdR:VcNfS2dy:R1pS*p3L*_kS(q8._w\R&%%%%%%R&{4fqg.S>T[=6g !U>N+-qo8W2m\7:/mXL/c1kY4P*,n)Y0|>O,IfY03H.Q6[R&%%%%%% !T.R%%%%%SDgv]}GoTLO.>]%oS6)&ovadS(e93K`2S&f3@iF{S&OM'`F+R&%%%%%%S0i(y\r:T8eN+EL8 !U<~Y1o1eV:gsTW,mW4^c`\UKS`E6;[CTV\p7W=8;WfuExHl&X44`=-e)X2g6+W3PR&%%%%%% !T.R%%%%%S:DdR|~MT>m/_'(GS0?-&CpYS(0J,9+%S&Oq2e7hR,...;5mR&%%%%%%S&fT4%2wSXo?mMY4 !U2]tMR>YV8}[3;C4W6L9%*AbR`1V0wSU4E?W@sztWDfW.kThI58YPY'L(}KZ6(,?mK+Z4F++,E4Z4AV;hLBR&%%%%%% ifeffit-1.2.11d/src/cldata/57.dat0000644000175000017500000000525210771740457015334 0ustar segresegre# La CL data / PAD Format npack = 8 57 17 .7530000210 .3380000000 !T.zR%%%%V2LC%FX3UpCXFSL{U4Z1LTDQTl'uB7^=TRjF>0r)TJG(E7jJTHU')%D'Uj9S~(fbR&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%S.uK.sL]Txs.)]'9UnuZoBSoVh,KVT7d(z{0 !T.zR%%%%U:E^v<@cU2&%@}cVT>8ht'){T0^XBWRtSn`6/h'HS`YiXk@{S^9H(mdnTf>:{g8+V.wi_~M+ !W.tI|4?FR&%%%%%%R&%%%%%%T623I0dbV.fqEO*RVX:E>,W=W0g@FJ0;W6D-UXdVW6{0ETd] !T.zR%%%%U8gfDh@GU0_X)vR[Tk(-SZU,,BPhT2zRt8wRUT{-&[EK !W27\.)YvR&%%%%%%R&%%%%%%SD[`1S8mU\WMmxz5V^/h2Zd.W8F%T?U+WFRt2}D?WJp9SO-{ !T.zR%%%%U8+&Oh.|U0UK03SZV/zwA1S>;_j:-WS4{esqF;S2KN[,uIS20t%Zg%T2NP&^s*U8qm>38p !V:j7QsBxW63eE8+RR&%%%%%%U6.|hI`2VV3kso\fW8ZIVa.iWJ[sD/oSBMC>e%yT~VcG/WP,=YA0;R&%%%%%%U8I97y^PW4>t2'7VWp)Pc{SiX4[=\xueX:0+0CIwXle)N{]Xnu_g|J0R&%%%%%% !T.R%%%%%T@hr?]}HUH%cl3M}T4'T]26GSB|Dq|\^S2B;\dm}S./n-Po>R&%%%%%%R.4/T&9gT0wE9dV' !V.|GOI;yWPMYwv|&Y.Uv)QZVP&Sxlv_4U0TfP^d1WDL3s&bsXLN3]Y/IY0bht),'R&%%%%%% !T.R%%%%%S~eQ>guTU0T`*;U(SRqNRr~US.s)A^:HS**+[[78S(CW43;lR&%%%%%%SD-;3[],TRi2Efcv !UX4D\m7bVNnY?9Tt1[{sgxSF4_1t?aS,M+/tasS(N%8O:pS&zC5eRBR&%%%%%%S,}jjNo3ps)XD6TZN28R&%%%%%% !T.R%%%%%SFD|olZ6TN96{Qk:S6E3G^JbS(k8\jCqS&hc9QcXS&Q-QfOVR&%%%%%%R(5cg\>7SVT|ox0nwWpilJ`|uS(Fj?7V]W6yf;j7NXBt?vBglX4kyGa,GY4{Q_;jmR&%%%%%% !T.R%%%%%SFD|olZ6TN96{Qk:S6E3G^JbS(k8\jCqS&hc9QcXS&Q-QfOVR&%%%%%%R&u~c*N3S>%^T|lp !U83y-yKBVhNJCQ9kX0ST~_rvS(hw^e>PXR[A/~ebXYR*N+iJhBR([%nDk6R&%%%%%%S*qnb7Q}SxSKCsj& !U.TAz7ubUr)ePT~yVZGgYhs\TDe{bo4xW0t@%@)hX.[jie*sX2WH04wbWp3]*J6|+yR(-WGL|.R&e76_LlR&%%%%%%S&Sdd{r>SBd&PcAt !T`DanI{U2::btm)W>tB5+xAX>+VWer*YD4[6|+yR(-WGL|.R&e76_LlR&%%%%%%S&^6'wd/SPceL%5( !U.taGh9jV2M-qNgCW01}Z-I[U:d@BV`}Wd^891c9XPBco](SYVvL[mv%Z8c17v:sR&%%%%%% ifeffit-1.2.11d/src/cldata/11.dat0000644000175000017500000000127610771740457015324 0ustar segresegre# Na CL data / PAD Format npack = 8 11 4 .1400000000E-01 .6000000000E-02 !T.zR%%%%THf`5T|tT:>[3:fRSNvX)B@xS8_I-HXPS2=N7C,sS0*XKK5CS.o^0(e,S,:O?i3nT<1b.'F& !Uhgn\j:eW6'K:7{8R&%%%%%%TJ9:,E(sVT0]uY9[WN1lha}*X25;Rl69X:u9I5BHX6jAt7c_ !T.R%%%%%S:O04?LJT>z%0DYXS0DJ2','S(1V1YT1S&PB=RR(R,18}g4FR&%%%%%%R*):7hY+S2^XU~Lb !TJl5gZ7wUvEe~owwW2=D3+jOS0>)R6k:Vxyni%PRX8*Qh`VwXTAmrlnVXF%'wa.>R&%%%%%% !T.R%%%%%S01sqi&4T2EG(oECS*]T/0KiS&WGG6/>R*ErW]>mR(U`?s{XR&%%%%%%P&mL7{5UR&\p<7*H !S.l7XM<1T`<*H/DwV@I=\Ou3S&joQ))IW4NBfG>hXz9@m(UyY:|7hc\XY2>u7I-[R&%%%%%% !T.R%%%%%S01sqi&4T2EG(oECS*]T/0KiS&WGG6/>R*ErW]>mR(U`?s{XR&%%%%%%P(DVBjrDR(3jnIYs !S8>Js&n0U0gAWOZCVZL8/nD'S(PV8o0WWBhG_;8bY6J+;'/rYP~`*8l~Y>`uD=hQR&%%%%%% ifeffit-1.2.11d/src/cldata/50.dat0000644000175000017500000000432610771740457015326 0ustar segresegre# Sn CL data / PAD Format npack = 8 50 14 .5469999909 .2420000000 !T.zR%%%%V.oZk0yrU^&%6HGDU0cOC+2+TZ>7fXz>TH,F|`P?T@kmzmSJT@2kmCgMUP/mnJMeR&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%S0r]Iy/yU0bDP-1VV0-A5`=JVF@;rCpOV^PY}LZTVf?Ul~[I !T.zR%%%%U4GR:I.@Tzo\OS`>T6dX0&yLSv5I_1vdSZ/_g)=@SP,7/vqoSN/&*>_%TLmL]T()Uh;;GZGx !VpGoo(/mR&%%%%%%R&%%%%%%T>E~g}OSy !T.zR%%%%U2sXQWK^Tts5a{\LT6.IdfC/SpILdvG]SVA4l}1BSL]+':tZSJevD+]GSb~eS\BCUgboVzrxIr03WB;ak=4?WV~p|Q:|W`9B<|JL !T.zR%%%%U2Qgkj7ITpbz(01rT4`SLwyeSlEBTQ%0SR}R;M:eSJVP2=~FSHch{ex`Sv=8%+wxUJDm@VNb !W2&&)JIWR&%%%%%%R&%%%%%%Sj3)AYKiV6&xHk0AW6d&<\y'W`it%nf(X0@R^I8\X2;7Q%So !T.R%%%%%TB\I3?/NUJ+Y^341T4O2fa2iSDvi(~K_S2ev|U)@S.G(ay+AR&%%%%%%Spl3y;}DU2>N0I>> !V4Q&gR`nW26Rki;D{UDO/.+8RT2H/f(R&%%%%%% !T.R%%%%%TrBSd1pS0K{zcG+S,US=X>LR&%%%%%%S6-(]9uHTh];eh%G !V8=*N&4lWB1w50(SX:@H`nvQR&S1(@r~U^JOQWMKWDfiszcIX4urS((KGR6zS&ar;BO%R&%%%%%%S4uB6=]AT>s+)s^r !UDBzMz1{V@F/jrkPW8AIRKT&SDaG/.(NVHvUf00]WTRg6YD?X2-g)pA)X2zb]R'TR&%%%%%% !T.R%%%%%SB_aq>wBTJ/^)_*2S4Po@|LVS(ZTt9`2S&a^hJU(R.H&z}0dR&%%%%%%S(5HT%,4Stn~2t8Y !U8V+_oalV@>=Liq\W:O%P-RdS<&zC8&jV|CErivWWn~`]ni7X0G3UY9TXB3y+pqkR&%%%%%% !T.R%%%%%SB_aq>wBTJ/^)_*2S4Po@|LVS(ZTt9`2S&a^hJU(R.H&z}0dR&%%%%%%S(UY[;%'T236pV,z !UFD@bXmUVVeaa5P2WPE[3=?FSF5Y:W\aW6MdXR=SX6[7cgBzX@OnX5:lX\g{b|E*R&%%%%%% !T.R%%%%%S,zeEEY}T.tr{CmdS*&ivQB)R.@56mN\R(nYFFW1R(5W7&~WR&%%%%%%Q*\+KX4kj}s@]Xt;~lo@WZ.|BO=Q%Y:q*SqrIR&%%%%%% !T.R%%%%%S,zeEEY}T.tr{CmdS*&ivQB)R.@56mN\R(nYFFW1R(5W7&~WR&%%%%%%Q*&{qfclS*xjR>/= !TXp8DMyYVYlaCbYTj>Y&flFV8G2F|j>R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%S,nZ5LXWTPc()_3/UHG0:U:6V0K,hr>QV8Jyo^7TV:WIkh5B !T.zR%%%%UR61V(_PU>sQ9i8OTZ3}jcLgT>+urnV>T4qP:j&xT2C6h_'{T2(~Ch;KU81*\c~|V:dog3iv !R&%%%%%%R&%%%%%%R&%%%%%%SljZ[TLaULT6RGEFV:ZrM>B/VVGb{^^,VlhOg8A@4]xc9TX%a+^VKT\dgFU>wAPcNIV>;SyJdNVtdJAmzKW2xipHBtW4o8k4V@ !T.zR%%%%UJV8*\JQU:i=5K?2TPs@*gb,T:-Km}JiT2WO{*8+T0?XM03[T0)a>_H3T|?/?]pTVBQ[Z'QM !R&%%%%%%R&%%%%%%R&%%%%%%S8zH8{[TURzVt:bBy~/W4c=u&{HW:)W2L=qA+RW>x9G7]zWFy>Cg5DWLw<,G?U !T.zR%%%%Tz5BWZIETVO3/|_*T.|_}h}`SR{+'FOlSBwy@U|uS>(t)[CvSt2WzmFduF)R&%%%%%%ThgBL>ZCV`%@S(CYWF?cRaL'Wn !T.zR%%%%Tj~QD/bGTN?yuZWZSxSL)(cZ>mS>G/uf>-S8~76[IjS8Ts}QN4S2~a.3S-U0A%q;N[ !VZ0i4ZwoM;Jw !T.zR%%%%Thgo9IS(TLXYr<(:Stk{Z,>,SJEf3ZeBSJ{YHeBS0;C+yfYS,Jb74:iLDu !V0rY;=L'VvW(D8bsWJ,*gT}zS(X[Cg/AU^0l&x>FW.]vf~1sWDA6kUc9WR{%\hXBR&%%%%%% !T.R%%%%%T8Ux?+X)U(I@QS6uiycr3S,iAni);S*MGNNMKR&%%%%%%STjS9:S*F171cWS(UpDF}IR&%%%%%%S(iUGw(`T>F\i5O] !V2Hb4?\?WB[o2J%|X<|b{7IdR(91xJLCV\kz7{'*X8V^e}dWXDY9~R6eX4hiCyz%R&%%%%%% !T.R%%%%%S:P\/vxcT>{pil]RS0E4Z,:,S(1dem?XS&PHKuK]R,1a/9giR&%%%%%%Q&kA?X4VS*Oa=R*[ !Tvf;f''xVdrn;YASX<=W+9D~S(chN=G*X2sg8kV%Y<:n{m;=XNkUUW7>X@Uv@s8IR&%%%%%% !T.R%%%%%S:%MU'`XT>FO7cM9S0//\sguS(-%u~dKS&NIlC(BR*~gM?:oR&%%%%%%Q&vb[wnxS*xjA=-1 !U.|U0Z'UVtwij5P2XBK>ALfHS*U-vM)`X:)ZQ,PAYDA6FT{>X\b)C=0nXN&mIMR%R&%%%%%% !T.R%%%%%SDgv]}GoTLO.>]%oS6)&ovadS(e93K`2S&f3@iF{S&OM'`F+R&%%%%%%S:*>A>R6T>:+5&r6 !UV6?~+DRlW.fSuL<+SzYj:)A0VLL3WHbTWFc}~f^@W^j=nS)wW^'y^,_5R&%%%%%% !T.R%%%%%S:J`AL{XT>tP7HE,S0B0mH=lS(1*I&5>S&P/l@4IR,/t[gMMR&%%%%%%S,zW=?(4T6%B>hVc !U:oS;|'(V6g&oxIgVxF?wT:dT2d*\HazVhi5DKOaWH+JTpn@XL)(^~yyY4sMORoxR&%%%%%% !T.R%%%%%S6D\IFNUT:BK6udpS.=*u(>BS&vmu|^KR,p^yF]8R*R2n/BhR&%%%%%%S,|y+@HaT:N>hT[} !UHDU5t/sVH7jNa[)W:W)D1&ATDkzTjMAW)pR&%%%%%% !T.R%%%%%S(C%-6mCSFPv@Zn/S&bAfkbeR(M\PC1yR&\5^`9(Q,~Or@pyR&%%%%%%R(a~{kvFS:L[kzzf !Tv`RcUXDV61XI]@yW2be&wLfV.}NR)ccWju2E|u3Z46}`y'|Z07*H%B|YfHuUdx'R&%%%%%% !T.R%%%%%S(1&o?MySB&Us^8US&Y0iC;WR(:(yvDoR&SwHrOzQ,H[pXNKR&%%%%%%R&Ws^P}U !VjOWs'(wR&%%%%%%R&%%%%%%Sr_ddw5HV0%XD0,aW.RN4\hmWB:]N|fwWVa>HCSIW^51`[(3 !T.R%%%%%T4:ZsyHvU6zh6]n_Sn~Y>u%rS4t::O6/S,B_KL2hS*46Ax.0R&%%%%%%S,}~?viiT:yJWAVI !UTVzxPv\VjV2{]M?Wf^S%bGMR*C@3{8%U`(``viKW<-F1C/&X0L77R@pX8z`@'IJR&%%%%%% !T.R%%%%%T0kwzm7-U433%G+vS`XpWs7MS2?~~y-WS*`V{2/KS(g)9Hz&R&%%%%%%R&efF-xuS.i0g}SlFX>l_q~VQXjrGyAbsR&%%%%%% !T.R%%%%%T0fWfYKbU4,Tcpk[S`=NN}OoS2:4/d1pS*^-6u?%S(eLjIceR&%%%%%%R(3lBPagS6ZG2;ru !U08]0u(*VR(Ir^L>X29)&%)KQ&jxOU_}UD|<{Y;-WVB&K4q~XXqp{28bY4-(/KL7R&%%%%%% !T.R%%%%%S49IeM%PT6y=bLTAS,cDOX:KS&klNG9XR,B.2<)RR*3p8h`)R&%%%%%%S&V&AtHNSBCz;h,@ !Tb+<_tL)U~,]2KT/W.R}p<6-Sh/8{j?mWH?*~i4/XJ@Yx(JnN8mR&%%%%%% ifeffit-1.2.11d/src/cldata/33.dat0000644000175000017500000000271210771740457015324 0ustar segresegre# As CL data / PAD Format npack = 8 33 9 .2000000030 .8500000000E-01 !T.zR%%%%UL]4}fvAUn>TT1^bYdiT:b7:|33T2yk+ZTpT0[<(}PDT0D,FnjTTv|u3C_lV8{hq|'( !R&%%%%%%R&%%%%%%R&%%%%%%S>RukDi%UD87'gz+V@nt(K?qV~6+/R`BW4aw}>olW6uS:C61 !T.zR%%%%TX:{_V*+TB^vu3Y_S`j)gpr7S@gNr6%0S6xcpeFPS47`S.NhS2sqX6q]SpEMD3dZU60=7f[L !V>dZU*+nW>S6otTvR&%%%%%%U.jJPA;xVVt5X1wlW>/)/x+bWXl'XQsxWlz@?M^`Wr}s@*cY !T.zR%%%%TRO+9xY.T@'zgQ%)SZQGPXTBS>9NyfmtS4z?y?JhS2JACHr(S2/kQD9dS*6u?+)oT<=95F{W !V.b|~vQcW@(8x~|]R&%%%%%%T6NiLw_?VHK`y9%VWH:s1iVwX0Q@m&p3X8Wpsp}4Xv{iA;uL !T.zR%%%%TPt9zymWT>c@A|q_SXm,4?`GSaS4g[k.GdS2;9b'6eS0{H8ucaS,=&H0`ITL-|Ty{C !V6N2?QWyWVS7FEqnR&%%%%%%TDb+z+RUVjhyQ9khWl,;5NJY6[2^jUj !T.R%%%%%Sh_ku)bDTx\@IF|lSH6a=D\TS,`a@'zeS(V>XjG3S(%fe?G}R&%%%%%%S0u`7*_yT>QB`2eq !ULJw/YKvVNmLQ9khWDh/^sSyS,yZ28dUV>^W{}>hWPv=mdLVX2pk&F=OX8(cd=sFIr8CMS*^4/r[sS(/78~.;S&f=Q{-xR&%%%%%%R,MePfwnSFcYrmx? !U2?o@v`IVBl@(cnkWL.ikz:=S&`@_3-8VJ\kB[g)X.l%/IZOX8BmF&nf~KxtMR&%%%%%% !T.R%%%%%S2n6y'dOT6KR,p@>I9r !S~Qmw2uVUh5l_k3jWD;v}POES(pDmZ'EWh_[pC=rw%lw !T0s=-{]NV.c\Sz&-WR8~MvrSS*6`|Lm]X.x.?\MEYDAJ:IPUY@WAL'*>X|=tYDJIR&%%%%%% ifeffit-1.2.11d/src/cldata/75.dat0000644000175000017500000000643210771740457015335 0ustar segresegre# Te CL data / PAD Format npack = 8 75 21 1.481999993 .6870000000 !T.zR%%%%Vlgk|zV6\{*kPzR&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%S,q~DD4WTRwW\``^UJ[8zE;(V0o?Q_RcV:0t&UBZV&QkDFYTVKOVm_+T<=`^s?~T4BTO5L&T0w@2BGqT0^pPE,W4Pt(*6QW6O=q^|U !T.zR%%%%UHK&e(^MU:.X:2wUTNU|s0P[T8PECQN[T23b=&7rT.|b9s'`T.h.XC+PTpguN:ARr !R&%%%%%%R&%%%%%%R&%%%%%%S:\c[zkLUTzjtS@7TAw]iTJ;4p-VGUR}B+l5P !VNbnH5([W,PwSFH !T.zR%%%%T~D2mV4aTXf4>xmiT09]Yc0ZSV1-]_G.SDbq|Cm~S>`R6?qeS>,1*hBmT6%tvS;hUH}iJa\> !VXonr.5\WHXz50SW4*b>M}.WB3oOuA@WJVlE-l&WP`0?T~|L:Xnk !V^2BsnoTX6cl'y{=R&%%%%%%T6=*b~)yVp|Pb+FPX.SAA?nVXD7a0w:FXZ@\]^5'YTd~^ps? !T.R%%%%%T:C8WER4U>k>%dmBT0>BW{3BS<;R%%%%S.hjx;l[S,-_|qJHR&%%%%%%T.XJ%i@vU0j@nmQ= !V0OA9P8BVrfE2U3iWJ(O{4/VS(kM}^pDUdo_[tuBW06;vrslWF}'}x_tWX5DN{];R&%%%%%% !T.R%%%%%T6WnFdV:U:Z3{MKiS|ii[HC]S8A~na6/S,yOXz`^S*WvLn=}R&%%%%%%SL9~>svbTxg'qrg` !V0zR_b{3W.oJU'U~WJCs>rPZS&eLNH?qV.uJ>1DsW6LGd~k9WLqHLYR*9x-kX{VR[dNrmNX2kUmdU-X6}e45hEX2dM|U{=R&%%%%%% !T.R%%%%%S|'b{HrS(?%t5)MR&%%%%%%S&}%JkIYT:2E1Fg` !V0LG,=&zW>~=LS;BXe~?7>?XV;@9@**YDPLJ?LFXZd%4eeIXZsa>{ZeR&%%%%%% !T.R%%%%%S@cDaTG+TFxtx6R7S2~eF6}S&]aO@CYR..3]D0NR&%%%%%%S6^ubkp*T:au2RX4 !U:/&n?wT2U&w}[. !U83d=o5lV4ao9LN3Vp\0jPjN(2K]qW.Rh()%dWX@{W)ECXl<:U>1yY@Ct,}j^R&%%%%%% !T.R%%%%%S0e|2C9|T4+lLn(tS*x1j0__S&])b7teR*]nW3-xR(eHm,P]wS&S.g/SVR(-8F^F?R&NQZmR6Q,%@?>WGR&%%%%%%R(06]u_TS4,\YtPl !T^LyiFS@V0|FridiW043,`8+V4Ay9dfqX6_h(WdpZ6-3fj+hZ2~]j^k6Z.q29l&dR&%%%%%% !T.R%%%%%S&rTT+,*S:_dzOzxR.I4*:z/R&yGvHhoQ,{U21;=Q*Y;B1{'R&%%%%%%Q(;K|CfES(0+f(SY !T0T50nc>U>nUHQCwV=hm`uU65z=.HtTpl:P)o_TVWlN/9bTLoA}e;zTJwAm*CUUrftWD>SR&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%S.cpL1IITre(jSbjUhvBgDa]V:m}f%VLVJu\L?:5VP>+YTd: !T.zR%%%%U<@<'UCyU2W,`vz}T@BTP_@sT22\cL{[St}RDOnuSf=C@7s7SbkrYlsOTn[;a^1pV0Kt.v5& !W07JD<~sR&%%%%%%R&%%%%%%T4CZ>(ISUzm^}~jfVRw(HX:\W08o;k}^W4ZT3*GuW64G_Q>x !T.zR%%%%U:_V~MP6U25(.A?'T>W@oItdT0laSRRLSpaqmUD(SbIgqJc+S`%|BWAGT6Yf*+2;U^f0D7.Q !W45(6Bx&R&%%%%%%R&%%%%%%SBT|-Hg?UX(b(3=JVXMU4O}*W6O^~qHRWBwEVw !T.zR%%%%U8rcXYPJU0exeV0aT<]hdTj=T0F.hBW3Sju5y,z=S^3Krn{NSZr{1P*/T:@Zv:6KUx}n)Ox0 !W>)J08_dR&%%%%%%R&%%%%%%SLsP1y}nV.`b}6D=W00t%`p]WHma0o_NjGXSZ,4t>j.S>(?N1G:S4o1G._IS2A@W~0RS2'5|yGsSJ(LP?.`U0F;)on' !V:wQ-^+`W.6iT4CX)n,? !V.xTXm}VRt\4n]gWBP4z|AgS.6%M1e*V2j^3@TEW:cBer?}Wjua}0aOX0)g)]m4R&%%%%%% !T.R%%%%%St+{wi97U.oug2K+SL|/}N2/S.;mUbasS(lg)WMpS(4Dr>)_R&%%%%%%S.)K6ddWT<^{k:|q !URx2dV`PVZ),^-^4WFYqVYvwS(Wi/h\RVwa[pR&%%%%%% !T.R%%%%%SJems1CUTT2GPEl2S8WwD:W^S*(GWJjKS&rP.WCjS&WO@F[nR&%%%%%%R(^C%BcCSD1,g-SDynY=S& !UQBq8gR*{5W;^iR&]d%&=uS~c[6o4C !U.k8^^PlUtfTXB(AV\(=;a9LT>4<,?cjW.h`xz]+WpXE@=)8X02IVsiMWTnvl7_UR&%%%%%% !T.R%%%%%S,bv1QeRT.WJf02aS(tZhHLGR.&7SFX6gel+ !Tdcorvg6Un;oGUL}VVm'Q{p:TRv:[ow[W4c<}_R%X.{y+@3:Y6,9>a8wY~HCZt*qR&%%%%%% !T.R%%%%%S,bv1QeRT.WJf02aS(tZhHLGR.&6QWJ,olUs)X:+=)ZrCY>SR{~NHZ6-4aIH^R&%%%%%% ifeffit-1.2.11d/src/cldata/14.dat0000644000175000017500000000176610771740457015333 0ustar segresegre# Si CL data / PAD Format npack = 8 14 6 .2600000000E-01 .1100000000E-01 !T.zR%%%%TbIx(B;%TH^\y6RqSlrB2==0SFVRmd>aS:i4pSduS6bIz1jaS6>QxxY'S8pP1T{xTd}9GvnF !V6xZ@*G~WJm4:%F9R&%%%%%%T8]TJ(pEV>Bx|f\wW:v=EcY'Whwa)f;QX0utsY0(X2J=80R> !T.R%%%%%SVZ4Xq[jTbIgcA1Wv1lh:S*auNGT1S(0jv1UdS&g?l.5?R&%%%%%%S&d=RCIHSP_.p(fW !U0Wm=}x>V:ITgi3BW@:1F6`yS(5ab=[~V>Nt(<4AWn_Y^1VXX@}Lr{;,XN&ojbK;R&%%%%%% !T.R%%%%%SFILb_+(TN>etK*%S6GLf:=6S(kdEL;?S&hudd'7S&Q9U2WOR&%%%%%%Q&T_78oeR,wzSE7` !S\XxwX:>UBWgfag`W0P{-c/RR&R[S|LLV4LM7g%'X4g]wzftY0L_ab+EY4MfYP8&R&%%%%%% !T.R%%%%%SFILb_+(TN>etK*%S6GLf:=6S(kdEL;?S&hudd'7S&Q9U2WOR&%%%%%%Q&tF^*YQS&fMG@>Z !T0?j9E-*U^INxF'gW:m'rXD/R&vM[;lPVBXEKf[xXDC\>>U6:WtlW.V:\%EfU~TL~ySGuNWJ~MF'3ZXB/]nY<*X4Ah/u9HWn%7{t`iR&%%%%%% !T.R%%%%%S&p_t)3iS:HRdlX,R.?Y0{u8R&wD-B7vQ,rvVV57Q*S]M([SR&%%%%%%O*n02iyXQ(lsl,A) !S(4~@+a/T2)U+]ohUPGXZSw?TBjaFrJaX0R,x_[4X8h*%q;qZ0)7\o]xZBTj><~NR&%%%%%% ifeffit-1.2.11d/src/cldata/90.dat0000644000175000017500000000735610771740457015340 0ustar segresegre# Th CL data / PAD Format npack = 8 90 24 2.352999926 1.115000000 !T.R%%%%%VJ0}y;]tURkG.po4U:=M8+lwU2}'yZ?XU0]C1(3KU0)tT9J%R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%T@S(P:ScU:C{j.EKU\yWwXpRV.ntgcetV2?G_GAwR&%%%%%% !T.zR%%%%Uhq{J|l%UL^O&9A}Ttww=21bTJK:[DWwT<|qVV%QT8`xW[FgT88zJsrJUBdBfb[TVBKfcy`N !R&%%%%%%R&%%%%%%R&%%%%%%ST}JKrT;Uka^8SVRrt~`yf !T.zR%%%%UfX'zo0,UJu8nu(TTrI8C?PzTHf2L7m0T|LU.|JK~\QT:.RmqcvT.`i|-[LSbAO)V_MSVO1(to)STCxfsQ~Th]_xJk~UnbJx1&e !V\G?%N0zR&%%%%%%R&%%%%%%TDdpC>iEV050{QoaVPBy+USIVxn>nq/6W0]%ufLRW0u7xJQ+ !T.zR%%%%U4}xp&k?U.^(.L,*T8JhN.b/S|O]3C-WS^<6E8uhSRmZ{o3ASPi=23oqTTXfne^wUvF^Y8Fc !VvTYV7R,R&%%%%%%R&%%%%%%TA9ZME !W28V/rG.R&%%%%%%R&%%%%%%SdcwboLWV<+4iNAiW@-ewmOeX.TF(QiPX6*|IOYzX8k\Ft1y !T.zR%%%%U0RwXNlnTd{cWwi2T2Qjoa^k7%%X>mbE?%1 !T.zR%%%%TP}v^Se1T>ho\f.v^U:/G?*P^ !V6O>=)4:W.z(P]B9R&%%%%%%U6yy?gk|VJ&,p0lyW0q):r_]W8x*6/`RW>=@Y_D|O} !T.zR%%%%TLAbvP1hT<7X@ovKSRk9@AoRS:S:k?r3S2p)sy8`S0SIae?AS0(p&c'-V`+51unGW4wwOR=SW:ch,FK9WS4E*WI@dS.l=9\G4R&%%%%%%T0ituN%YU@Q(Q8a^ !VLNlH^FDWF+8Fr2UX2|gM4XbR*A]_K\BUnH/)j\oW:B+fLv7Wv+)Z?,gX2W,Tg9NR&%%%%%% !T.R%%%%%Tqpk9zeS0KiOP3eS,UG:/w.R&%%%%%%S2gdc[SBTrfGe?Yz !V>psI[|mWLcImG&9X86p+@LsQ(v%~lYqUpI>Jc8uWPkOAdj[X63j5\|5X82BUc?,R&%%%%%% !T.R%%%%%T<5e`0.;U@osuyt^T0eJi*q`S>4j/rvLS01{3,L5S,DXOM*PR&%%%%%%S.N&EGVPTr9_p]~r !VDwp%,JJW\S(A'+bXBoX-yW7Q(QXnpQeV05IbIb%Wj;k6Y}:X@E?0iAIXDlbMH%1R&%%%%%% !T.R%%%%%T0cg8|bhU4(qJf'cS`.;THD6S26xS^:HS*\e~m6%S(dVSd{;R&%%%%%%R&Y@fTQrSDcP`5]; !UNz@Njl_W>aZQP_5XbU/zZDkP(QA<]){V4Ymb~]GX@f?NhuLY4W6dZwIX4sxae|5R&%%%%%% !T.R%%%%%T0UuOn_7U2qwTTc6S^B>FP~LS2('3Wi[S*VK>7L2S(`ME'f5R&%%%%%%R&_e9l{4SJ;1OW{l !UXAq.,NsWDnmDh]+XtJ*-9ueP*(}YB1CV:A:lpE{XJpc}RZ3Y:G1`b8&X:EzpN2qR&%%%%%% !T.R%%%%%T.m+*]zeU0y-fw>GSVT)+;A^S0903C-WS*7]>Y%nS(LGaAegR&%%%%%%ST*m4EzGTXS'}[Px !UPjaw8oPVB7n:l0?W4SLG_/x*MS.0]Sew=S(h&&*drS(1=}pf>R&%%%%%%SBQc`iG}TTf)y6(' !UXCOV83hajG,W2M8GuJ%WHf[1yc9X2&'`OjHR&%%%%%% !T.R%%%%%Sb*nM,]tTp4xTfODSDE^7bJ>S,=SLd2gS(GKr:-hS&v)|U:fR&%%%%%%S@RQ^n3+TbrU^WOT !U~25s<%PVr3/P%p2WPk86^fHS>>IjfumVb;q@H~7Wh;.}8USk>,S4|4mbgmS(ciy]+%S&eUs2H*S&O(wL;|R&%%%%%%S(B]LmD~T4@M(3R= !UT/L'KisVjdA3j@3WP^u1&z[S@wm]mBXW8O<@hO]Wl'Lt8YGX^L5}:leYF}s4ou8R&%%%%%% !T.R%%%%%SBU<5|OETH|hWcJ=S4KR5?7/S(YHnjCqS&a3]]:iR.Dv+Q20R&%%%%%%S&sMz}yUT43,KYfX !U^HF.C7\W.jvFpX2Wfh<~fAoSDG%ZGf9WDGE~8i7X2+hndHLX|N978~eYZXOcLFhR&%%%%%% !T.R%%%%%S8pX&rgiT>4*mIaVS0'S279?S(+H.&OrS&Mf6CJIR*z>5WUeR&%%%%%%S.xF`PTHT0>VMjqJ !T~a3@G&9U`x:9sJCVFy=lt9&T02f8@m-VBCObS\DW<3C)E'NWXCk5L(cX4pn(z%ntE|?T2I)=py[V@8Q(gXyWJ03I~d.Xb|Iq_3]YF8trzS&R&%%%%%% !T.R%%%%%S4.~*0WST6lH7.}0S,^'Cc>`S&j`I&jKR,=@zB=ZR*0eC1`BR&%%%%%%S*GvTEOTT06-)/'p !U4<*Z;6WV2DAe<8=Vr>d{xy6TW09KgWESWx?pS]Q_XrlQ&BfTY^&iVM1[R&%%%%%% ifeffit-1.2.11d/src/cldata/84.dat0000644000175000017500000000735610771740457015343 0ustar segresegre# Po CL data / PAD Format npack = 8 84 24 1.973000050 .9280000000 !T.R%%%%%VDHfE8heULC}]>c9U6ez\a-FU0xLB/we6Uj4teb]RV0y1NGQgV4iuW4+-R&%%%%%% !T.zR%%%%U^&30:D-UF;NRi2mTh'uh@grTD;,R-4xT8vqO0T|T4~me0r4T4]fQL'tU>%p1?K}V>ne`CyF !R&%%%%%%R&%%%%%%R&%%%%%%S^Ou/y*4UBbA\?|KV4~)8sCJVJJ3DPAeV\&c|TTJV`(.>6M3 !T.zR%%%%UZreS;iaUDYN9Z+|Tdax'{'wTB\kzku;T8R<9BkgT4a=hP8;T4AVbI.pU48u5=gNVFNPyYU? !R&%%%%%%R&%%%%%%R&%%%%%%S6Fvlk@_U:T1IrnMV8]B[7tcVbb?*lafW0ArP5*YW0}8,{Cy !T.zR%%%%URp|^N23U@;\lUM9TZyE_Q5%T>Kw[dLTT6,?ETW_T2S~U\4dT29&`'ciU2j1pR]PVP4fyHfP !R&%%%%%%R&%%%%%%R&%%%%%%S4|QWhmGUHH]49x[VL0S16xaW2cfmhl.W>:(q.l}W@vKs=dV !T.zR%%%%U2rXhoU-SHEOK561TDi-IaJlUb3+z=YF !Vl>A(JdNR&%%%%%%R&%%%%%%TB\E?r?PV8@jxisZW.\Ll31gW8?c7INxW>5{=ARTdadiT)ET2LQH*FjS`eUR@r'SLALflX>SDZ,{kj{SBs[[I;^TD_27@&+Uvj3Ae2K !W2H*[c[lR&%%%%%%R&%%%%%%TTF=*(.BVNt>/f(SW>0AOqZdW\b3{PL6WtY?tCCYX.Z=vto^ !T.zR%%%%U.]LX^8STZp`k=V'T0N*2d4SSX5G6,BoSFF1W4faS@7{lD_>S>[B,^Y~S@z8Un}sU8`gw@KY !VzqDT;uZX:SV29dZ1|SDcZA2>PS>a-g'9{S>,d2/t;S8LX|},eU8_Sl]IZ !W0C4grc5XBFx).ylR&%%%%%%Sx3BK;KtVPEZZ\X8Q3lDI1XH46ZMGsY>M+I92G !T.R%%%%%TFNDf/dZUNDlQwN@T6Iz[..HSHwGgU-WS4X9E2uWS.xhi{S-R&%%%%%%T4*:&QEmU6;}ShY` !V4?.1&8hW.]P7,/fWJ4+ItuBS&y/m+1cUH:7[S_+V`dSL/8WW:='~]@;WF+-TH]jR&%%%%%% !T.R%%%%%TB+YVpZOUHI8_`F[T467`&*-SDA\m0mtS2ONQTkMS.8JT~mZR&%%%%%%StfB+X?{U4F=1}v} !V6oqj\oxW0k^k{c|WBmV~f3ZR,q>uNWEUX(2sFGsW.oAXb-DW>f*^]FXWBwya71`R&%%%%%% !T.R%%%%%T<`>`PhtUBJS7p17T0{4DPUJS>c-~jB{S0ETw9R&S,QB,by*R&%%%%%%St5SM)s2U8oIzm(r !VD7Xg]c)W@PkPidFX2H<},:lR,{JATDMV0~+KqU+6o5X0=`oLv7X6(MBOFBR&%%%%%% !T.R%%%%%T6=OL-LGU:9Z0oG[Sz=2J,Y]S8%B3(T+S,mE<@@@S*P&7R%[R&%%%%%%S,i&cBjzTTWy0Lb5 !V6c%rP^tWD;UWxj{X6wG5t6FR&P~G1onV4GjCn)oWjayYMNpX8fj<7qXX4CFINMKR&%%%%%% !T.R%%%%%T4ofy[zPU8b<}9SeSv%BTRDRS6Svej)>S,[&GHc1S*D*nhi5R&%%%%%%S*UT`Ed'TTQ4V`r* !V:l2'5irWP4/tb}:X@n:Or];Q,FT3XTNV:o`=b{`X0SU5A3-XDwxsBIJX>=@kHNvR&%%%%%% !T.R%%%%%S^~+]/;/Tlr.T80%SBnU0EHpS,3*0c8lS(C&3B?NS&s4vtR9R&%%%%%%Q*OD`\*0S45Oa(zA !U:SCm-\AW428*161XNE4,Yb'Q*T,_M5jW01Iq^g5Y.Swhxa|Y2*6(5PnX2aY*gn\R&%%%%%% !T.R%%%%%S^&;SBA(\sYAS,)E{0J3S(>wa<;fS&pRsdn?R&%%%%%%Q*nLsb)2S6Kf4x^O !U>jt`0*cW6yTA2@ZXZ1ie)3]Q,NN75c2W4Y2?iIe:tY6)bLNHQX88?nje|R&%%%%%% !T.R%%%%%S^(XnV:7pF/V8W:9;nC+qWRpU|EqnWX4GX@3:R&%%%%%% !T.R%%%%%SNkqjaC;TXdDZ+dBS:\y~fRsS*<]EkzqS&{'m{(sS&](c?@%R&%%%%%%S6>dD`zVTB~KLDKx !UHtv|oOFV>\1)iC2W0?{j[x*SNzm]4QKVJ(s9zGeW:1T)9P*X.f|^s4[XP*uP:3iR&%%%%%% !T.R%%%%%SF<)0-^STN.JV8vWS6@dGAIiS(j=76PfS&h?1QbsS&Po}}m4R&%%%%%%S4|+wzA]TLJ;Zl4@ !U`_jpIw\rR&%%%%%%S&rSawi.SB,(s.zu !TF%FEc@%UC;YS4%N'x21 !T:+/\\C@U8;MH,tLV0[tnh8?U@<~~2;7W>(IC,IoY4YNhKSmZ2`{(1n(ZDnhor-NR&%%%%%% ifeffit-1.2.11d/src/cldata/68.dat0000644000175000017500000000574210771740457015342 0ustar segresegre# Er CL data / PAD Format npack = 8 68 19 1.161000013 .5320000000 !T.zR%%%%V8RYXRh?V0S@?yBCU<7ts~,*U04]xbv8Th]ZaG%zT\1hf=4vTXuQ4vF+V2@vL*{vR&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%S.-hQtDtT^ULU6tpB`7oTJ*w,hy>T6CIhNF(T0Ji`qf)S|ge3IZ8SxflJn4fTNCC,o(0V0y|^J@r !R&%%%%%%R&%%%%%%R&%%%%%%S<@va{n7UHK*TQz*VH6P,NFdW0a+ih0GW8z9PK&1W<_>cxaO !T.zR%%%%U@nz2FvDU6&YL;QVTF?p<9N)T4S~,{K{T.u(dt0:StNVk`(/Sp_C->)lTRLDG\u5V6;kgD0b !WP).eL;aR&%%%%%%R&%%%%%%S@Xey8ctUdCL+x`|VjWQ/K2%W>*3;Z@RWPqSej@zWXj(QiPZ !T.zR%%%%TnQ(U])UTP3~2\[veP)]JS:J\MrleS8yTE*:cT>l6GXZ]UH>KS,HL !VFi)cs(9W:n=[DluR&%%%%%%U.d_9.JWVBZs0:S%W0vK5=&)Wb2QWhB}=~BtR&%%%%%%U0<:ye*XV|;=L'.pWTGi~qd}X0)%mU;aX2z-GIa/X6:]J=q~ !T.zR%%%%TV(&JWd'T@ye.c-SS^CY[N]cS@,4X@%%S6R3=syDS2rW)hM*S2V4iTID.S4lWtW>lwIWR&%%%%%%T>3ihlfQVtn4kkL~W|AcRd>AX@v{5v2wXVJzn4VkYZ09YZ:2 !T.zR%%%%TT@TW+|jT@Sf91^mS\PEbNXhS>bT|.>aS6:~Cm4sS2_rA4DFS2DCDg'SS(oX@L~?TRQG.BCi !VDb`tQ^FX0QMT]x;R&%%%%%%T@i5t{_YW0lv6(.]X2ZC9`dpXPUmONVwXrF'p@45YvHYNnP&Qz;S*ju_%,`V.b]~{??W4Oct:leWT{j)Sg\WjK1Jg@JR&%%%%%% !T.R%%%%%T2*'{l9-U4P|F=rvSbz)'ElxS2Z:{I%%S*k^sj:LS(n==X3`R&%%%%%%S:=3Xd}TTX5]b9sq !Ux8J'MQ[Vrx3^%0rWJwoqX_%S()C]7v>V4FPw?TGW>*R[C1HWZfJw-I7W^QO-l4_R&%%%%%% !T.R%%%%%T0?=J8b:U2Uylz1:S\(bG=PxS0iH~v1pS*L&{T7uS(YaL3OnR&%%%%%%SmR&%%%%%% !T.R%%%%%S`8vy%vxTn1*u9W>SBxqGmC0S,5;rD=qS(Cycri~S&skBQgZR&%%%%%%S&Z3EbmrT.f2faR. !UTYoXgr3W2%[CT]vX2CFP:JVS&YER-)&W.Z=:25TX8zR4Ap3X2H)A2CMXb9GW?tsR&%%%%%% !T.R%%%%%S\eOG-:)Tj=Y^_MzSB3^bg~eS,&S,=l3S(=e1[8XS&of5&EZR&%%%%%%R.<_8Z,iT.rJfrcb !U``\|1K?W6?ae~B-X8?OlI|BS&Tb=3}IW4>tT@>dXDn(m\WPX8^OOKSVY.miGv0^R&%%%%%% !T.R%%%%%S&d~vS3)S6lH7=gfR,^'CgbYR&j`I&e/Q,=@z9YfEv(S0)lPm+mS(+spYneS&MxaUh(R*{\Wm<;R&%%%%%%S0;Cjvy.T2qOj5Q0 !U2mm5LM4V0BnrV9aVfzP/'h6T2ZDLOQQV\Tj+HNhWR%,doodW`dz%9W|WJ`6G?d.R&%%%%%% !T.R%%%%%S.rXb=_IT2&-3UWbS*PZRiQKS&T]Sm?XR*:9Ef2+R(N,2U?HR&%%%%%%S(IM1J,LSfkV6Pg1 !U09Ms|uIV0&VsRq1V^8g\EmNTLi:ka1=W0bAGALfWvSmU}4OY6'^*sFYZ0`41|FPR&%%%%%% !T.R%%%%%S.rXb=_IT2&-3UWbS*PZRiQKS&T]Sm?XR*:9Ef2+R(N,2U?HR&%%%%%%S(R^k1:3S|z4V@5; !U69V*O_uV87-'NC;W27}S[>AT`Fz.Wq=WB2)b9q?X4X;L@~9Y<=Y(*vWZ:=Z>4,WR&%%%%%% ifeffit-1.2.11d/src/cldata/06.dat0000644000175000017500000000104210771740457015317 0ustar segresegre# C CL data / PAD Format npack = 8 6 3 .3000000000E-02 .1000000000E-02 !T.R%%%%%T.cHF}]gU0mA^?[tST}FM^^:S0.i(`vLS*3;)*3,S(ITrTvtR&%%%%%%R(mx%*xwS2s^TyIm !TVOIs>42V4;6(OVRWHmG>)oL_W>PEVqWUX>bY^\-lLnYlW8n,`?69XR34Xa'zY.qHOO1AXbRx\kg-R&%%%%%% !T.R%%%%%S(*;tNPyS@,t[*(+S&Ua]NgdR(2b6},>R&PmH>y%ZULu+0cIkU6|,BCTLU2-?xa'nU.w)`}ovT~0BN)jz@wdUh(F;/HFV0ff[lp+V4Q4UdiBR&%%%%%% !T.zR%%%%U^xX%/OQUFkCB4T4t4h%^~U>M4/^%PV@.JsV~u !R&%%%%%%R&%%%%%%R&%%%%%%S\^>6)??UB.x4jsXV4a~JY:.VHcnP<,IVX|>FD/6V\v'f+s| !T.zR%%%%U\i2:9suUF./9m|iTffilwQYTD.WNxwiT8nduv1pT4x:N%v:T4WNJ4d9U4hB>0F~VHFWLY1d !R&%%%%%%R&%%%%%%R&%%%%%%S6<*RQ8pU::zc=TlV8AEPv'4V`\+-BtMW00sdhvkW0h|fOhR !T.zR%%%%UTRNa_UkU@^0TkrrT\eS%[tdT>l?IfI@T6ACB2-~T2d}2N},T2I9&0YzSJ)rcs.7TFuB<1WpUdho?T]m !Vn<^.wr?R&%%%%%%R&%%%%%%TB(Suk/7V6tG:kGVV~'YK4G=W6s.='lUW<\YNE>IW@q's*PZ !T.zR%%%%U0`veGH6TfrqVp}*T2b=YOtqSbp*Ikr?SN(k5Nu5SF4o)3c,SDKwXq'gTF^?;e%X0n{+IsOX:J&I@pyY4O|*qqu !T.zR%%%%U.[i7bX`TZfviaANT0L+`z4HSX,9KivLSF@6.u?yS@33^P@eS>Vgky~4S:@zABfpU:Kao*.v !W0cG'h+^XD/j)P[dR&%%%%%%Sr+ZZMN,VN'0xTJTWXTLThYvX8%.OJX/XF?UYJ\VY;@oS.cKt-vMT4FhIG0:U6V{65A+ !V4Q0Yd\{W.c2'l9HR&%%%%%%U>Tq?lPaVV]zR8X}W4qzd?`2W@-V>k)HWDrd'O/VWFQurgT} !T.R%%%%%TB_aq&ZqUJ/^)2jCT4Po@mazSDzAldKSS2gJQ+P>S.H&{'SvR&%%%%%%Szl:T>b3U4lod>;W !V839j7qfW0q0{IVpWBGuI?.AR,i8K0:IUTzgSIW]W.\0]1J@W>7Yo9~gWBLE%g>pR&%%%%%% !T.R%%%%%T>:F{GKaUD0x[BTyT2;l%[bPS@Am%0mtS0]Pvj6qS,`xRe_FR&%%%%%%Sxtqg;qaU:G=D@~G !VDs5AGGqW@uWPw]CX2QAwFNVR,`V]i|W4vN78\VXPr{]y%pQ(Xe]'gXVpHWqgE4Xpj(^h3]Y2v^O;zQX0}W/~kGR&%%%%%% !T.R%%%%%SdSl3CI}Tr|O0)6oSF.G|YBYS,Kg3B~{S(MLT|vhS&y|4D@.R&%%%%%%Q,+W2FM`v;2SD@{QsaMV8,=c&. !UL+,{q-{V@5s9[:VW0LYI,l:SHv;cgJaVFBu=^mvW8P|BkZLWt^kuEfgXHV.C:8oR&%%%%%% !T.R%%%%%SHxF7]DuTR4Sn6@lS83[a2~9S(z_RgSYS&o8'Mf_S&UCg\@QR&%%%%%%S6huT=:QTP-FDt~` !UdqR~t0/V^rLddsdWFu[\B0KSpK{8GZ7W0_A%@x*X.itATJFX>4I??|OXfpCda:yR&%%%%%% !T.R%%%%%S2t2gQaZT6RS]h<-S,SC.R+dS&hGL(Z>R,3b|X-xR**M:BsoR&%%%%%%S&`UdqLrSrbz5]>j !U@BYP2tmVR::ST:dWD=uBs'^T>Nx:WAvWN2ZgeR&%%%%%% !T.R%%%%%S29S*7>zT4d2&o1NS,5KQ7XDS&b&-8DwR*rj]UgWR(rwA0lkV:EQJOu3TZk~>-c)VzSxZ`yfWJk*B,kpXr-qi,_R&%%%%%% !T.R%%%%%S('z<;|mS>j<|<}nS&TQ6S|?R(03Pm+=R&Og[^&0Q,-Iw~xxR&%%%%%%S&]V:V&.S@U|.FbO !TLF>>&j0UH][>uIWV:a(gDOoULQ0bGR9WHu+2KD~Y:>>`v`gZ:Dn@^='ZTVLHb%5R&%%%%%% ifeffit-1.2.11d/src/cldata/08.dat0000644000175000017500000000127610771740457015332 0ustar segresegre# O CL data / PAD Format npack = 8 8 4 .7000000000E-02 .3000000000E-02 !T.R%%%%%T6lm-&h.U:t/PR9uS~z~``xoS8Xp[*vLS.)012P8S*^691ELR&%%%%%%S&f%I^jZSZE/*Sk2 !U6g{jVIQVTQkV)<^X0'8:|q~Q(uS(Nk>&ZP !T.YgWHRnU&m%ToR&UZZ8bSQ,SVeSP6R&%%%%%%O&d8isb?Q&WMgeuZ !S&OW}UDJSj/~V0V.UJsWDdChSXm3yUE4X:E+UAhXYHnQhoE]YrlemM-VZ.k\x>rUR&%%%%%% !T.R%%%%%S(4aUjxuSBSeIPg:S&Z~i=6tR(>&m%ToR&UZZ8bSQ,SVeSP6R&%%%%%%O&ZFw9`_Q&TXM{LH !S&NX_t,(ShauY3Q@UJb3mkq,SXM;KXwXX:@FcO9(YHl@C^LoYrsHKT7MZ.m>w8S,R&%%%%%% ifeffit-1.2.11d/src/cldata/44.dat0000644000175000017500000000432610771740457015331 0ustar segresegre# Ru CL data / PAD Format npack = 8 44 14 .4009999931 .1750000000 !T.zR%%%%UnXmjB2yUP8Qhjj>T|0^)D,YTLvQHO~;T>yNny)hT:Lp-'qcT8{^mlgfU>ztD;T2>ny:C@S`&LZp:HSJrKO)mUSD8}hmm?SBT'@wK9T>+nZzf/UR.nRXUW !V\i4Y&KUR&%%%%%%R&%%%%%%TJN1O,S0V:ETDjefW0C%ehJWFq;%hVhWJA+\('. !T.zR%%%%U.vY&&GWT^NP]9~(T0kc|]flSZd6%):=SHE*q5={SB%g8;tCS@El^tG+S@xu;QO'U0uoXV*D !VLSXH>fcW|vbl5vwR&%%%%%%SdQh{S3;V2>ZZX64W2M7?UoPWP>at%0+Wp?2c'(SWxzay,4O !T.zR%%%%U.cG(C<*T\9/-g}VT0U*GrAoSXUcwzP*SF[28>QmS@HwfydeS>kQv6{OSL&|bnyFU8InmG

X4bX+6zXR&%%%%%%T0=I?:iQV>>Lcc8IW@/.VyA8W~:62)R%X4p{4zf;X6o%'o%} !T.R%%%%%T8abRLU\U<{`I2qZT.yvaTdbS:Tc~dKSS.MHxVheS*unwx`+R&%%%%%%SPrB6jfYTtGKg8LG !V0-oXF(fW.Wn7@tQW^Cey%bcS&d/+Rr}Uf)B3\@{W43paQpEW^mIr`XRX.s`CnVqR&%%%%%% !T.R%%%%%T4}Xbi~'U8sW~jN}SvlnZ0b`S6c1:cr3S,aMJrX5S*H<%^.WR&%%%%%%S*\AJJFSo[%VpX02PtWb]X4NCD^=uR&%%%%%% !T.R%%%%%T4\T{rDzU8Jdk~4fSrw}?>}eS6?4PKa(S,R;vDc.S*>E75+eR&%%%%%%S,Ys&0r.TFK2TpWy !V0/wI(&JW8.}uq32X6,8V1>TR()ULL-EV0Wp<1_+WZ]IkeS)XZPS(ILp9{lR&%%%%%%R&S(D:N=S2Cj=hae !U0fwjC\dVdJo)'br9R&%%%%%% !T.R%%%%%S>GjSnRxTDAQEGIGS2B^'{K=S(DCJnOrS&XT45A+1[X !U88?xA7wV6S0m''KW22sMr]_Std6qU+}Vj-kc8Z{Wr`Fg{Z,X63JZrf.X4Bigg86R&%%%%%% !T.R%%%%%S4/1Mc.zT6n9pW'*S,^kk{CAS&jn}6IrR,=~V4nFR*13NS;:R&%%%%%%R.D-.S7qSF7]X.fh}{U'XF&gDT';Y6f';^@4R&%%%%%% !T.R%%%%%S4/1Mc.zT6n9pW'*S,^kk{CAS&jn}6IrR,=~V4nFR*13NS;:R&%%%%%%S&ZC3ls=SXw4tgfY !U4k=)R=OV@XsonSqW@1m`C+*T4'asi,pWJ}dS^M,X<5(1|3CX`Y=qNN*YFk6QLFhR&%%%%%% !T.R%%%%%R,@a/D-Z4N]^3h~Z4wB8DJdR&%%%%%% ifeffit-1.2.11d/src/cldata/71.dat0000644000175000017500000000574210771740457015334 0ustar segresegre# Lu CL data / PAD Format npack = 8 71 19 1.292999983 .5960000000 !T.zR%%%%V:OB`+%BV2+\~pL]U>D4oO@IU0cpiPT:Tp(MxjXzT`uJQ0cHT^SjY'sbV4W6lDu1B%W:@]RD%d !T.zR%%%%UD>pw*@`U6s-F:-WTJ'F&^7qT6AjPh>:T0Icz0UrS|_0`0bUSx^[IhP:T^<3;Um)V:*_Rp^b !R&%%%%%%R&%%%%%%R&%%%%%%S>8ei+B-U\y':^1-VbjiT6E?UWLO}e8%4WT)/.AlF !T.zR%%%%Tx6jN`HOTTukrxiVT.r83v-dSRJsP%>aSBX[wjO5SjAEeN.W05B<)p*W:1,(E{@W@S3O[MCWBf{h'0K !T.zR%%%%TpKfFR(0TPe727@YS~1RqMZKSNFL2C:HS@:fIZA>S:bpEP/lS:6^,9nDT0goOXJ/U@o[fQKC !VP`oksDvWFZr]SBhw5@-i9nXP6L||:yYPEU]25_ !T.zR%%%%TZ=:^7t=TD:LHMIcSb|rk\D)SB?b^sv@S8?Cbh_jS4R%^h?_S42}f>;6FXJrkYod%R&%%%%%% !T.R%%%%%Sf;>&Nm(Ttss'4iOSFP':g+XS,Rv%.2gS(PN|n]qS&{y^`DaR&%%%%%%S&\(YJ30T2c6cPmH !UrX1b`8{W:,*z<,~X:0Y;dfnR,uRk^6^W0uU]67&X@}v207dX:GcNE&6X`+<8_BnR&%%%%%% !T.R%%%%%S(1c^UzCSB.v[[6%S&YOrkT1R(:k6~)|R&T9H:r9Q,J^6*.\R&%%%%%%P*OO?tQcS&n8sNY3 !TB^~AJ^IV>rYpPp6X0UU='}]V:rQ/3/XYB`FGT|@Y.X{OX4[XhR2qEZeY2QbK=B'R&%%%%%% !T.R%%%%%S(1c^UzCSB.v[[6%S&YOrkT1R(:k6~)|R&T9H:r9Q,J^6*.\R&%%%%%%P*zNqt;?S&|50Tdd !THqJ~dSiVF)Ae\;SX4)4cLz%V@U^fa+ZYLc~-eP_Y2XR(q=hX|+LW5%>Y6F=AtQBR&%%%%%% !T.R%%%%%S8HGC8N6T<\FT6Y0S.l}+1~xS('&L[?XR.AifhTNR*n:j\5VR&%%%%%%S2fNY8=^A{y-Y|w=B.UZR&%%%%%% !T.R%%%%%S.]gE^iPT0fB77~RS*Ez;%YuS&REI%teR*0^{rZ;R(GpGAB]R&%%%%%%S(|/)b*oT0U-/i|G !U8x40mb7V:^5x,=WW2t2>jCBTvpDO=4)WFC/6dJ|X8&d(~yyY>q%kXJ0Z4xSt?-~R&%%%%%% ifeffit-1.2.11d/src/cldata/34.dat0000644000175000017500000000271210771740457015325 0ustar segresegre# Se CL data / PAD Format npack = 8 34 9 .2150000036 .9200000000E-01 !T.zR%%%%UNxws&FCU>1nMh%cTVbPAhaeTEGPaT4IKbPDIT0|sT_p`T0d2ncQ_U.]iaNnRV<.LL+s>NLy4Vx4+d9W|W43)EG1dW6>JQ?sx !T.zR%%%%T\DY)YnYTDrv-kWiSf;^vg-^SBt`A*i[S8aj`=ImS4mlmIvBS4MQyc/VSzEPgF5tU8*dc1|g !V@t'_,f.W@@\o<[aR&%%%%%%Tz}o8n\QVR]dRg^sW<.2'@l}WTiz_H}JWh;Vqe}.1pS6^8G^]~S2|>p?.bS2_N?\q5S*aS~HO(T@M[:+rV !V0O^DLw~o?>mS6Hz(oe)S2k/kIX9S2O,;2>HS,yi:%'{TRb)Ery2 !V8pZ]]\0W\sK39CIR&%%%%%%T@tzU)OrVd'FIV^T;DI'U.g*`ba7SLW\RXD0S.4'c~dKS(iMFQ@sS(28;keiR&%%%%%%S2kN\'uhTB1}[g4[ !UPX{VG'8VReUFc3NWFqQ<_NpS,'*bQ<(V:XPFhZuWL+.@&urX28ze4b4X6S_;}'nR&%%%%%% !T.R%%%%%S\nI,8daTjH]PT{7SB87E|_OS,'PWJ5>S(>0-w&bS&o~;rd?R&%%%%%%R.>3hFf^SN@,B(j] !U4N=b0XlVF{b~TPNWNwN0/A_S&R0J[6KVBmrKhH/WxSDYID^X86>86^fX2*\nKe&kT1S(9n&o9VS&m5N4weR&%%%%%%S&]c2g{|Sj/GfLPH !U@Fvoaw9VdkSohH/WvsZBU0[S&q{mhalVbazd/>PX6liCuGzXN?5DlY'XB8BV:pSR&%%%%%% !T.R%%%%%S8FuGZ{wTJ^jMU|FKSzZS&Yy{Bvv !T4tSA:44V214\hE^W\v3>?+2S&cF{LUFWRt2:%)hY:~g;y>_YB[/3\z3Xd&2s<=SZ})_1FjT:g=)R0{U`bl;{TV !W2Sel6g`R&%%%%%%R&%%%%%%SX0l@|m.Uf<^v/,cV`5pR,ASW8=pyBP*WF+ED;q^WJJ1HLqN !T.R%%%%%TR;b%>aS0>J=\e@S,LbjA&YR&%%%%%%S8>5Mq5qTTZiol[K !V.Wh;@O`W0pftrm+X.\9nFh5R(EV7k1NUFwcR(88W2sf>=TBWlXMOTtMX2nnKt^sR&%%%%%% !T.R%%%%%T8_hFHbHUSu?5TtX[A.SjW2CiJe0_X47AOG'5XP-o9fTnR&%%%%%% !T.R%%%%%T8R*&f3&U|sGU4g=bT4IW>hxK6LFXB^3lhq^X|:oZ'JbR&%%%%%% !T.R%%%%%S>;rvtXbTD2j:^i}S2cVvW;{Is@X0d-C+USX@yZEdNiXBPG)WAIR&%%%%%% !T.R%%%%%S4'V@)./T6c6%?\QS,Z9.DL8S&iqR%Z1R,9tzC[RR*.Pd=mjR&%%%%%%Q,Yy'i9[S*+c@21' !T:-YW^}9Uf^LRr\`W2L-k7,/S2`)8J>AW:}+x(6xX@zm`,1yX:+u7.V~Y0rV.Kk,R&%%%%%% !T.R%%%%%S4'V@)./T6c6%?\QS,Z9.DL8S&iqR%Z1R,9tzC[RR*.Pd=mjR&%%%%%%R&X5Qt5qS,aA'gM) !TJg?R_orV29[z9K\W>Tze6.AS>%X++9_WPP'=r2UX^M7QD=hXP[)N(d/YJE)2`bAYNQ[Gj9xR&%%%%%% ifeffit-1.2.11d/src/cldata/69.dat0000644000175000017500000000574210771740457015343 0ustar segresegre# Tm CL data / PAD Format npack = 8 69 19 1.203999996 .5530000000 !T.zR%%%%V8nx1B3\V0cgnvgaL:Zn}VB9cBht[ !T.zR%%%%UFfX.kG-j3>TJhlQCzzT6_|6iXlT0]BMHR\T.U_v6oTS|AgV~%rTR7iXU|%V2HTgfy. !R&%%%%%%R&%%%%%%R&%%%%%%S<+D?Qr9UFoRi;PSVFUZT._1W0Lr^0T&W8UG\A-sW<4m9&1o !T.zR%%%%UB@0+xo(U6?]WVkHTFrhMqhbT4kPw^:HT0*ACYzZSvooGE8iSrzymexUTVW<%^o:+qR&%%%%%%T~U3rmNxV@s}_P8nW0]Sm.[|W<&8viR4WBby1 !T.zR%%%%TjWDI-)dTN):C^kLSvh`PwCnSJmgKYr?S>9=a]LwS8s'F\Z%S8J8Gb6mT.nhT|AGU>';=6t{ !VLbG'3H>WF,)4?)XR&%%%%%%T\w{uVJwFsXb4W8@NoaV@WJV9lbbDWV4'WOBTW^Vv)vGm !T.zR%%%%Td3l8i_gTJ+~2r5ASnhDm7adSF{M)`i[S<'5YRopS6ukt0(*S6P}e@voT0LkE}uaUH3DLsF1 !Vh[9CBlUWjNnSNyfR&%%%%%%U.}v7BwPVxIKwvdOJEW0R1Y\jHX2?1eoO/XN^KJ;%dXni`%EI%Yr7x<'G_ !T.R%%%%%T4m)oQCZU8_1H/d-StrHx2ZNS6Q2r4B{S,Yq`RwjS*C@[IZ1R&%%%%%%Sh';&{tCT~)4&S(w)ia|IR&%%%%%%S<=eA}O%T\3o/K8b !U|Yh*K7MVvBWg4zcWJw<;\LfS&~2r.wXV2w`dfdCWYXe%l9Tr:=b@2F !V4haYJ:QBX`IY2mG|bb'Xv*K.U[%XlqLI@Z3R&%%%%%% !T.R%%%%%S6lm-&h.T:t/Piq`S.QZ{tv_S&{5WGneR.)01;3KR*^695d)R&%%%%%%S0SyX(;?T410P9?p !U4'x=>5V,oWV;Aje|5W`B\^DU3WR*DsT-R*N+iJhBR([%nDk6R&%%%%%%S(T8pyw6Sl&2)4kk !U0P1`:6oV03EZSu+V^FFOd2MTFR{/Ig6W0.q=wMSWj?0C30zY2~i~K`{Z0:Pic,GR&%%%%%% !T.R%%%%%S0Cg=2wTT2[Ne|=3S*f_P2n8S&YBCZ/>R*N+iJhBR([%nDk6R&%%%%%%S(\kT>6{T.`0sPAy !U6Yr{;j.V8OT:cwbW2@<(cuvTV+5jqZdW>^[u`GuX2b2zB](Y8YfdectZ8N69OgxB-FdB`9zY !T.zR%%%%UJ^OQB7iU:n*Kay.TP}(dRIjT:1xIWsPT2ZHyxlKG~V}T0+DlBldT.pG<4tlT^c'FtP~V4u\>9mf !R&%%%%%%R&%%%%%%R&%%%%%%S:Hu`UL7UD5^1@V-VBf|e^nuW.o*bh~?W6Kvu)XBW8uKADnO !T.zR%%%%UDm{npyBU84KIy2YTJ^xlg9GT6[JRTwiT0ZF2E.lT.S<|7M4S|*{&8J8TbLXx:(gV:fQiZGK !R&%%%%%%R&%%%%%%R&%%%%%%SS>>7uv+=S1C_[c-W.y-xLo-W8`HN-:5W>tWwpz{W@}*GKB\ !T.zR%%%%Tt/UIF2NTRc4{x\KT.\10(3sSP>|_AX9S@pFvgEcS<41Kb*IS:_z)PGpT2;r.{PEUBm3aG'e !VRcgct0/WFoTP98CR&%%%%%%TVb5`ml{VFRqWLLbW61Gy+\^WFSx-v'KVtSJ|3(L:HS>B_0Vmr'S:(b760pS6.E)g^tS4fpCr?HS.*CiDu)Tf~4Wj|9 !VHYg8WRFX05cycfzR&%%%%%%T8fmyE(3Vf)pCv7}WlG5HCSIXSBz|w})2S8et;Z,vS4q/..ADS4P`TzpjS*u)e'\WThp`oZ;W !VR3/I;2EX48RVECyR&%%%%%%T:N}?F~(W.[\H[PRX0EkcX7jXHng-|8IXd8w&9E]YbW~Uc.% !T.R%%%%%T6ut6Bl|U<%Cu,&HT.V:Q`l6S8be}j<7S*3SewojUr:HvygGW22kIT@;WLm>aM0jW^s^pBAoR&%%%%%% !T.R%%%%%T49IeS~,U6y=b4vVSnxQf?zYS4ry[-r3S,B.23F>S*3p8fM;R&%%%%%%SBk1IeqSThlDM4*q !V0.aTt%gV~i~dubW^Ru0V:=X6,@&0FuX:U3LS`CR&%%%%%% !T.R%%%%%Sp%x%BG{U.Xu9z|,SJw**vLBS.'W(Me2gSR&%%%%%%S&|SvplPT4@Ih77z !Uha<~wYYW4mTqRzKX4+HCE4/R,U)~6kXVdzFo*t}X62M)S1SX4K+*c{7X@K3C@J|R&%%%%%% !T.R%%%%%SlCZw70=T|d'bFlwSJ*:tk2`S,q6NDr~S(]%=ZBR&%%%%%%S&c(dDEVT4L~azy_ !Uz216C>)W:k0Fpt]X:Mp*=[pR*n[u=?&W.v|0J4[X>s%p8MEX@R&%%%%%%S2m%E3aHT6Z(s\`v !U6?`4AD'V2>9d'a=Vp.}0l2=T2yF)es{V\P=tEsHWP4T7`%tWb6*+u3*WViys*^oR&%%%%%% !T.R%%%%%S2@*LwMkT4l7q0;\S,8iK0X}S&be}7Z1R*ujVmx4R(ts1}kLR&%%%%%%S*2?ru.bT.d[c5Sq !U2|3q`&KV25z=WZ>Vd|l=yR\TBA(g(p&W.f)]2,oW^u9rLz{Y.xTXi*/YTcYtvGKR&%%%%%% !T.R%%%%%S0*L-aViT2<4pbORS*YeskstS&VXP7?XR*BLW^Z+R(SKa&/&R&%%%%%%S*9h@1@RT27ys=.7 !U:~Kt;}RV<].FI*1W4L80A6YTn4gin>CWDkSGD?&X6Swh*ivY:G%Vg*IZ0[it&DvR&%%%%%% !T.R%%%%%S&oJWo[&S:99%dLuR.9<_l7+R&u~~}aKQ,m8yXKqQ*Ox5Ch7R&%%%%%%Q*U=k|etS(ZXy6;Q !T2^|,w>^UB}k'4>GVB0oYjqZU`4U5FS:X.\%7-rCYh0FosH-Z0;A*`Q.Z0XXv^O;R&%%%%%% ifeffit-1.2.11d/src/cldata/49.dat0000644000175000017500000000432610771740457015336 0ustar segresegre# In CL data / PAD Format npack = 8 49 14 .5210000277 .2300000000 !T.zR%%%%V.\pr2L)UZm76IzJU0MDn=lGTX20s']+TFD'V'I6T@6Ycj|oWULXJY{g,R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%S2)1/;8CU0{8k?oMV0DQW(y|VH0n`hK,V`{+d[GIVhw-azQ[ !T.zR%%%%U4%brhxmTv_N\QFhT6aL'U>pW@fZgQ69 !T.zR%%%%U2S/&incTpjtueNoT4b0iJ~CSlLk6jB{ST(D6B?sSJZH%:VRSHgP_1ZYS\C_ZjR1U:aZIlUmhSPntu1&5SH\)*'o&SFm7/&HsSlnpuSokUFUo(Z,: !W0R8}|J)R&%%%%%%R&%%%%%%Sn\+a&t4V6Z[)+r.%|S.--B2DtR&%%%%%%SjeLBV^uU0q7@l2u !V4*T~dZ}W0w,9.&5Wh.'Tn0;S&N<4CqFUNwp_^WiC-WS0C\L<^CS,P+fcgmR&%%%%%%S0Gz%a?b1UF4ShCJIW6+45\N !U@4%4yz`W2AtF//*XF/'uE/S&[DI@WCR&%%%%%%S405{Su~TMHMulJW6ghEk-DSJqB@ww'VNUyb3>IWZ1YZdY7X2PB{Jl}@9myTDoREgE`S2U_8,TTS(HGwkneS&Y|ofb6R,p,m7GsR&%%%%%%S(%nhFcOSjYK+a=0 !U6P4KbSgV>.8mu}8W8i99,r{SBojal\%W00m`1]?WtEJk[d>X0},:>YmXN*&E\:FR&%%%%%% !T.R%%%%%S>l}@9myTDoREgE`S2U_8,TTS(HGwkneS&Y|ofb6R,p,m7GsR&%%%%%%S(B-8W1cT0F4AT&I !UBUOg|42VRP+emzKWLkL?i4/SR>Lu,P?W:+\)@LVX88Va:KnXB*RxdiCXrcHHI,ZR&%%%%%% !T.R%%%%%S*b/.tdISh0Sm%`)S(F7Ne,9R*wL[){IR(9t56\{R&m9OEa8R&%%%%%%Q*&~?Hx+S*12ql%' !TF%iUib[V2n[g)`* !TNQe5b`_V8Me42/ZWN]\E2FxTz)LgIxGXF%YW?tsYxbWs>G6Z.c_'r&4YRpWFIemR&%%%%%% ifeffit-1.2.11d/src/cldata/07.dat0000644000175000017500000000127610771740457015331 0ustar segresegre# N CL data / PAD Format npack = 8 7 4 .5000000000E-02 .2000000000E-02 !T.R%%%%%T2^ep\Y{U680'Q%QShy=FoshS49Z>9zeS,)sS*`TS(~)h6lYR&%%%%%%R,n6[^40SB6eCwlX !U.t%j6Y2V@gxrWn*Wd_tw{:MQ*R9hpsYU67y(;gGW6O*P:I0X6o:sWDXXVW&QwIWR&%%%%%% !T.R%%%%%S.DYYez1T0G8tbGTS*9-PilWS&O\~oH1R*%+xUdtR(@@;-voR&%%%%%%Q*8nQ4h8S&j8qLJc !SX(>U)yXU2cu+G?+V@w}>GhPS8u2Ro]zW6-:*:iVXJ>c}9TnXrM+2~(yXRvhh4^FR&%%%%%% !T.R%%%%%S(SxSfZPR&%%%%%%N*Pw;>m1P*'ckM[7 !R(kB~S>aS@Owg\PAU66xK)w.S,aw]b/5W\L@&SbsYZPR&%%%%%%N(*X*%kQP&{)Z0,_ !R&sU%:;^S2`w>cq~Tv^vJuS6S(m{.6(gW@_eOZ.AY0]{B|mWYFyT%BE]YV0pxqEqR&%%%%%% ifeffit-1.2.11d/src/win32/0000755000175000017500000000000010771740456014114 5ustar segresegreifeffit-1.2.11d/src/win32/ifeffit.bat0000755000175000017500000000047610771740456016232 0ustar segresegre@echo off REM REM set this to point to your installation directory SET IFEFFIT_DIR=C:\IFEFFIT REM Should be no need to edit past this line: SET IFEFFIT_EXE=ifeffit10.exe SET PATH=%PATH%;%IFEFFIT_DIR% SET PGPLOT_DIR=%IFEFFIT_DIR% SET PGPLOT_DEV=/GW CD %IFEFFIT_DIR% %IFEFFIT_DIR%\%IFEFFIT_EXE% ifeffit-1.2.11d/src/win32/ifeffitc.c0000755000175000017500000000770710771740456016055 0ustar segresegre/* ifeffitc.c : C interface to IFeffit XAFS Analysis library This module provides a simple set of functions to interface with the IFEFFIT XAFS Analysis library. The functions provided are: iff_exec(cmd) execute an ifeffit command iff_put_scalar(name,val) put a double to a named ifeffit scalar iff_get_scalar(name) get a named ifeffit scalar iff_put_string(name,val) put a string as a named ifeffit string iff_get_string(name) get a named ifeffit string iff_put_array(name,len,arr) set an array as a named ifeffit array iff_get_array(name,arr) get a named ifeffit array as an array iff_get_echo(char) get line from ifeffit's echo cache iff_strval(char) return pointer to ifeffit string c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// */ #include #include #include #include "ifeffit.h" /* execute ifeffit command */ IFF_EXPORT(int) iff_exec(char *cmd) { char iff_str[1027]; sprintf(iff_str, "%s\n\n\0", cmd); return (IFFEXECF(iff_str, strlen(iff_str))); } IFF_EXPORT(int) ifeffit(char *cmd) { char iff_str[1027]; sprintf(iff_str, "%s\n\n\0", cmd); return (IFFEXECF(iff_str, strlen(iff_str))); } /* put double into a named ifeffit scalar */ IFF_EXPORT(int) iff_put_scalar(char *name, double *val) { char cmd[1027]; sprintf(cmd, "%s = %19.12g", name, *val); return (iff_exec(cmd)); } /* get double from a named ifeffit scalar */ IFF_EXPORT(int) iff_get_scalar(char *name, double *val) { return (IFFGETSCA(name, strlen(name), val)); } /* put string into a named ifeffit string */ IFF_EXPORT(int) iff_put_string(char *name, char *val) { char cmd[1027]; sprintf(cmd, "$%s = '%s'", name, val); return (iff_exec(cmd)); } /* get string from a named ifeffit string */ IFF_EXPORT(int) iff_get_string(char *name, char *val) { int i; char tmp[256]; i = IFFGETSTR(name, strlen(name), tmp, 256); strncpy(val,tmp,i+1); return i; } /* put array of length n into a named ifeffit array */ IFF_EXPORT(int) iff_put_array(char *name, int *n, double *arr) { return (IFFPUTARR(name, strlen(name), n, arr) ); } /* get array from named ifeffit array */ IFF_EXPORT(int) iff_get_array(char *name, double *arr) { return (IFFGETARR(name, strlen(name), arr) ); } IFF_EXPORT(int) iff_get_echo(char *val) { int i; char tmp[512]; i = IFFGETECHO(tmp, 512); strncpy(val, tmp, i+1); return i; } IFF_EXPORT(char*) iff_strval(char *name) { int i; char *t, *c; t = calloc(256,sizeof(char)); i = iff_get_string(name, t); c = calloc(i+1,sizeof(char)); strncpy(c,t,i+1); free(t); return c; } IFF_EXPORT (double) iff_scaval(char *name) { int i; double x=0; i = iff_get_scalar(name, &x); return x; } ifeffit-1.2.11d/src/win32/ifeffit_wrap_pl.c0000755000175000017500000011121010771740456017417 0ustar segresegre/* ---------------------------------------------------------------------------- * This file was automatically generated by SWIG (http://www.swig.org). * Version 1.3u-20000712-1502 (Alpha 3) * * This file is not intended to be easily readable and contains a number of * coding conventions designed to improve portability and efficiency. Do not make * changes to this file unless you know what you are doing--modify the SWIG * interface file instead. * ----------------------------------------------------------------------------- */ /*********************************************************************** * common.swg * * This file contains generic SWIG runtime support for pointer * type checking as well as a few commonly used macros to control * external linkage. * * Author : David Beazley (beazley@cs.uchicago.edu) * * Copyright (c) 1999-2000, The University of Chicago * * This file may be freely redistributed without license or fee provided * this copyright message remains intact. ************************************************************************/ #include #if defined(_WIN32) || defined(__WIN32__) # if defined(_MSC_VER) # if defined(STATIC_LINKED) # define SWIGEXPORT(a) a # else # define SWIGEXPORT(a) __declspec(dllexport) a # endif # else # if defined(__BORLANDC__) # define SWIGEXPORT(a) a _export # else # define SWIGEXPORT(a) a # endif #endif #else # define SWIGEXPORT(a) a #endif #ifdef SWIG_GLOBAL #define SWIGRUNTIME(a) SWIGEXPORT(a) #else #define SWIGRUNTIME(a) static a #endif #ifdef __cplusplus extern "C" { #endif typedef struct swig_type_info { char *name; void *(*converter)(void *); char *str; struct swig_type_info *next; struct swig_type_info *prev; } swig_type_info; #ifdef SWIG_NOINCLUDE SWIGEXPORT(swig_type_info *) SWIG_TypeRegister(swig_type_info *); SWIGEXPORT(swig_type_info *) SWIG_TypeCheck(char *c, swig_type_info *); SWIGEXPORT(void *) SWIG_TypeCast(swig_type_info *, void *); #else static swig_type_info *swig_type_list = 0; /* Register a type mapping with the type-checking */ SWIGRUNTIME(swig_type_info *) SWIG_TypeRegister(swig_type_info *ti) { swig_type_info *tc, *head, *ret, *next; /* Check to see if this type has already been registered */ tc = swig_type_list; while (tc) { if (strcmp(tc->name, ti->name) == 0) { /* Already exists in the table. Just add additional types to the list */ head = tc; next = tc->next; goto l1; } tc = tc->prev; } head = ti; next = 0; /* Place in list */ ti->prev = swig_type_list; swig_type_list = ti; /* Build linked lists */ l1: ret = head; tc = ti + 1; /* Patch up the rest of the links */ while (tc->name) { head->next = tc; tc->prev = head; head = tc; tc++; } head->next = next; return ret; } /* Check the typename */ SWIGRUNTIME(swig_type_info *) SWIG_TypeCheck(char *c, swig_type_info *ty) { swig_type_info *s; if (!ty) return 0; /* Void pointer */ s = ty->next; /* First element always just a name */ while (s) { if (strcmp(s->name,c) == 0) { if (s == ty->next) return s; /* Move s to the top of the linked list */ s->prev->next = s->next; if (s->next) { s->next->prev = s->prev; } /* Insert s as second element in the list */ s->next = ty->next; if (ty->next) ty->next->prev = s; ty->next = s; return s; } s = s->next; } return 0; } /* Cast a pointer (needed for C++ inheritance */ SWIGRUNTIME(void *) SWIG_TypeCast(swig_type_info *ty, void *ptr) { if ((!ty) || (!ty->converter)) return ptr; return (*ty->converter)(ptr); } /* Search for a swig_type_info structure */ SWIGRUNTIME(void *) SWIG_TypeQuery(const char *name) { swig_type_info *ty = swig_type_list; while (ty) { if (ty->str && (strcmp(name,ty->str) == 0)) return ty; if (ty->name && (strcmp(name,ty->name) == 0)) return ty; ty = ty->prev; } return 0; } #endif #ifdef __cplusplus } #endif /* ----------------------------------------------------------------------------- * perl5.swg * * Perl5 runtime library * $Header: /home/newville/Codes/cvsroot/ifeffit/src/win32/ifeffit_wrap_pl.c,v 1.1 2001/10/05 17:07:01 newville Exp $ * ----------------------------------------------------------------------------- */ #define SWIGPERL #define SWIGPERL5 #ifdef __cplusplus /* Needed on some windows machines---since MS plays funny games with the header files under C++ */ #include #include extern "C" { #endif #include "EXTERN.h" #include "perl.h" #include "XSUB.h" /* Get rid of free and malloc defined by perl */ #undef free #undef malloc #include #ifdef __cplusplus } #endif #ifdef PERL_OBJECT #define MAGIC_PPERL CPerlObj *pPerl = (CPerlObj *) this; #define MAGIC_CAST (int (CPerlObj::*)(SV *, MAGIC *)) #define SWIGCLASS_STATIC #else #define MAGIC_PPERL #define MAGIC_CAST #define SWIGCLASS_STATIC static #endif #if defined(WIN32) && defined(PERL_OBJECT) && !defined(PerlIO_exportFILE) #define PerlIO_exportFILE(fh,fl) (FILE*)(fh) #endif /* Modifications for newer Perl 5.005 releases */ #if !defined(PERL_REVISION) || ((PERL_REVISION >= 5) && ((PERL_VERSION < 5) || ((PERL_VERSION == 5) && (PERL_SUBVERSION < 50)))) #ifndef PL_sv_yes #define PL_sv_yes sv_yes #endif #ifndef PL_sv_undef #define PL_sv_undef sv_undef #endif #ifndef PL_na #define PL_na na #endif #endif #include #ifdef __cplusplus extern "C" { #endif #ifdef SWIG_NOINCLUDE #ifndef PERL_OBJECT extern int SWIG_ConvertPtr(SV *, void **, swig_type_info *); extern void SWIG_MakePtr(SV *, void *, swig_type_info *); #else extern int _SWIG_ConvertPtr(CPerlObj *, SV *, void **, swig_type_info *); extern void _SWIG_MakePtr(CPerlObj *, SV *, void *, swig_type_info *); #define SWIG_ConvertPtr(a,b,c) _SWIG_ConvertPtr(pPerl,a,b,c) #define SWIG_MakePtr(a,b,c) _SWIG_MakePtr(pPerl,a,b,c) #endif #endif /* Function for getting a pointer value */ #ifndef PERL_OBJECT SWIGRUNTIME(int) SWIG_ConvertPtr(SV *sv, void **ptr, swig_type_info *_t) #else #define SWIG_ConvertPtr(a,b,c) _SWIG_GetConvert(pPerl,a,b,c) SWIGRUNTIME(int) _SWIG_ConvertPtr(CPerlObj *pPerl, SV *sv, void **ptr, swig_type_info *_t) #endif { char *_c; swig_type_info *tc; IV tmp; /* If magical, apply more magic */ if (SvGMAGICAL(sv)) mg_get(sv); /* Check to see if this is an object */ if (sv_isobject(sv)) { SV *tsv = (SV*) SvRV(sv); if ((SvTYPE(tsv) == SVt_PVHV)) { MAGIC *mg; if (SvMAGICAL(tsv)) { mg = mg_find(tsv,'P'); if (mg) { SV *rsv = mg->mg_obj; if (sv_isobject(rsv)) { tmp = SvIV((SV*)SvRV(rsv)); } } } else { return -1; } } else { tmp = SvIV((SV*)SvRV(sv)); } if (!_t) { *(ptr) = (void *) tmp; return 0; } } else if (! SvOK(sv)) { /* Check for undef */ *(ptr) = (void *) 0; return 0; } else if (SvTYPE(sv) == SVt_RV) { /* Check for NULL pointer */ *(ptr) = (void *) 0; if (!SvROK(sv)) return 0; else return -1; } else { /* Don't know what it is */ *(ptr) = (void *) 0; return -1; } if (_t) { /* Now see if the types match */ _c = HvNAME(SvSTASH(SvRV(sv))); tc = SWIG_TypeCheck(_c,_t); if (!tc) { *ptr = (void *) tmp; return -1; } *ptr = SWIG_TypeCast(tc,(void *)tmp); return 0; } *ptr = (void *) tmp; return 0; } #ifndef PERL_OBJECT SWIGRUNTIME(void) SWIG_MakePtr(SV *sv, void *ptr, swig_type_info *t) #else #define SWIG_MakePtr(a,b,c) _SWIG_MakePtr(pPerl,a,b,c) SWIGRUNTIME(int *) _SWIG_MakePtr(CPerlObj *pPerl, SV *sv, void *ptr, swig_type_info *t) #endif { sv_setref_pv(sv, t->name, ptr); } /* Magic variable code */ #ifndef PERL_OBJECT #define swig_create_magic(s,a,b,c) _swig_create_magic(s,a,b,c) static void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int (*get)(SV *,MAGIC *)) { #else #define swig_create_magic(s,a,b,c) _swig_create_magic(pPerl,s,a,b,c) static void _swig_create_magic(CPerlObj *pPerl, SV *sv, char *name, int (CPerlObj::*set)(SV *, MAGIC *), int (CPerlObj::*get)(SV *, MAGIC *)) { #endif MAGIC *mg; sv_magic(sv,sv,'U',name,strlen(name)); mg = mg_find(sv,'U'); mg->mg_virtual = (MGVTBL *) malloc(sizeof(MGVTBL)); mg->mg_virtual->svt_get = get; mg->mg_virtual->svt_set = set; mg->mg_virtual->svt_len = 0; mg->mg_virtual->svt_clear = 0; mg->mg_virtual->svt_free = 0; } #ifdef __cplusplus } #endif /* -------- TYPES TABLE (BEGIN) -------- */ #define SWIGTYPE_p_float swig_types[0] #define SWIGTYPE_p_double swig_types[1] #define SWIGTYPE_p_char swig_types[2] #define SWIGTYPE_p_p_char swig_types[3] #define SWIGTYPE_p_long swig_types[4] #define SWIGTYPE_p_void swig_types[5] #define SWIGTYPE_p_int swig_types[6] #define SWIGTYPE_p_short swig_types[7] static swig_type_info *swig_types[9]; /* -------- TYPES TABLE (END) -------- */ #define SWIG_init boot_Ifeffit #define SWIG_name "Ifeffit::boot_Ifeffit" #define SWIG_varinit "Ifeffit::var_Ifeffit_init();" #ifdef __cplusplus extern "C" #endif #ifndef PERL_OBJECT SWIGEXPORT(void) SWIG_init (CV* cv); #else SWIGEXPORT(void) SWIG_init (CV *cv, CPerlObj *); #endif #include "ifeffit.h" #include /* Types used by the library */ static swig_type_info *SWIG_POINTER_int_p = 0; static swig_type_info *SWIG_POINTER_short_p =0; static swig_type_info *SWIG_POINTER_long_p = 0; static swig_type_info *SWIG_POINTER_float_p = 0; static swig_type_info *SWIG_POINTER_double_p = 0; static swig_type_info *SWIG_POINTER_char_p = 0; static swig_type_info *SWIG_POINTER_char_pp = 0; static swig_type_info *SWIG_POINTER_void_p = 0; /* #ifdef WIN32 #undef isspace #define isspace(c) (c == ' ') #endif */ /*------------------------------------------------------------------ ptrvalue(ptr,type = 0) Attempts to dereference a pointer value. If type is given, it will try to use that type. Otherwise, this function will attempt to "guess" the proper datatype by checking against all of the builtin C datatypes. ------------------------------------------------------------------ */ #ifdef PERL_OBJECT static SV *_ptrvalue(CPerlObj *pPerl,SV *_PTRVALUE, int index, char *type) { #define ptrvalue(a,b,c) _ptrvalue(pPerl,a,b,c) #else static SV *_ptrvalue(SV *_PTRVALUE, int index, char *type) { #define ptrvalue(a,b,c) _ptrvalue(a,b,c) #endif void *ptr; SV *obj = 0; if (SWIG_ConvertPtr(_PTRVALUE, &ptr, 0) < 0) { croak("Type error it ptrvalue. Argument is not a valid pointer value."); } else { /* If no datatype was passed, try a few common datatypes first */ if (!type) { /* No datatype was passed. Type to figure out if it's a common one */ if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_int_p) >= 0) { type = "int"; } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_double_p) >= 0) { type = "double"; } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_short_p) >= 0) { type = "short"; } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_long_p) >= 0) { type = "long"; } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_float_p) >= 0) { type = "float"; } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_char_p) >= 0) { type = "char"; } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_char_pp) >= 0) { type = "char *"; } else { type = "unknown"; } } if (!ptr) { croak("Unable to dereference NULL pointer."); return 0; } /* Now we have a datatype. Try to figure out what to do about it */ if (strcmp(type,"int") == 0) { obj = sv_newmortal(); sv_setiv(obj,(IV) *(((int *) ptr) + index)); } else if (strcmp(type,"double") == 0) { obj = sv_newmortal(); sv_setnv(obj,(double) *(((double *) ptr)+index)); } else if (strcmp(type,"short") == 0) { obj = sv_newmortal(); sv_setiv(obj,(IV) *(((short *) ptr) + index)); } else if (strcmp(type,"long") == 0) { obj = sv_newmortal(); sv_setiv(obj,(IV) *(((long *) ptr) + index)); } else if (strcmp(type,"float") == 0) { obj = sv_newmortal(); sv_setnv(obj,(double) *(((float *) ptr)+index)); } else if (strcmp(type,"char") == 0) { obj = sv_newmortal(); sv_setpv(obj,((char *) ptr)+index); } else if (strcmp(type,"char *") == 0) { char *c = *(((char **) ptr)+index); obj = sv_newmortal(); if (c) sv_setpv(obj,c); else sv_setpv(obj,"NULL"); } else { croak("Unable to dereference unsupported datatype."); obj = 0; } } return obj; } /*------------------------------------------------------------------ ptrcreate(type,value = 0,numelements = 1) Attempts to create a new object of given type. Type must be a basic C datatype. Will not create complex objects. ------------------------------------------------------------------ */ #ifdef PERL_OBJECT static SV *_ptrcreate(CPerlObj *pPerl, char *type, SV *value, int numelements) { #define ptrcreate(a,b,c) _ptrcreate(pPerl,a,b,c) #else static SV *_ptrcreate(char *type, SV *value, int numelements) { #define ptrcreate(a,b,c) _ptrcreate(a,b,c) #endif void *ptr; SV *obj; int sz; swig_type_info *cast = 0; /* Check the type string against a variety of possibilities */ if (strcmp(type,"int") == 0) { sz = sizeof(int)*numelements; cast = SWIG_POINTER_int_p; } else if (strcmp(type,"short") == 0) { sz = sizeof(short)*numelements; cast = SWIG_POINTER_short_p; } else if (strcmp(type,"long") == 0) { sz = sizeof(long)*numelements; cast = SWIG_POINTER_long_p; } else if (strcmp(type,"double") == 0) { sz = sizeof(double)*numelements; cast = SWIG_POINTER_double_p; } else if (strcmp(type,"float") == 0) { sz = sizeof(float)*numelements; cast = SWIG_POINTER_float_p; } else if (strcmp(type,"char") == 0) { sz = sizeof(char)*numelements; cast = SWIG_POINTER_char_p; } else if (strcmp(type,"char *") == 0) { sz = sizeof(char *)*(numelements+1); cast = SWIG_POINTER_char_pp; } else if (strcmp(type,"void") == 0) { sz = numelements; cast = SWIG_POINTER_void_p; } else { croak("Unable to create unknown datatype."); return 0; } /* Create the new object */ ptr = (void *) malloc(sz); if (!ptr) { croak("Out of memory in ptrcreate."); return 0; } /* Now try to set its default value */ if (value) { if (strcmp(type,"int") == 0) { int *ip,i,ivalue; ivalue = (int) SvIV(value); ip = (int *) ptr; for (i = 0; i < numelements; i++) ip[i] = ivalue; } else if (strcmp(type,"short") == 0) { short *ip,ivalue; int i; ivalue = (short) SvIV(value); ip = (short *) ptr; for (i = 0; i < numelements; i++) ip[i] = ivalue; } else if (strcmp(type,"long") == 0) { long *ip,ivalue; int i; ivalue = (long) SvIV(value); ip = (long *) ptr; for (i = 0; i < numelements; i++) ip[i] = ivalue; } else if (strcmp(type,"double") == 0) { double *ip,ivalue; int i; ivalue = (double) SvNV(value); ip = (double *) ptr; for (i = 0; i < numelements; i++) ip[i] = ivalue; } else if (strcmp(type,"float") == 0) { float *ip,ivalue; int i; ivalue = (float) SvNV(value); ip = (float *) ptr; for (i = 0; i < numelements; i++) ip[i] = ivalue; } else if (strcmp(type,"char") == 0) { char *ip,*ivalue; ivalue = (char *) SvPV(value,PL_na); ip = (char *) ptr; strncpy(ip,ivalue,numelements-1); } else if (strcmp(type,"char *") == 0) { char **ip, *ivalue; int i; ivalue = (char *) SvPV(value,PL_na); ip = (char **) ptr; for (i = 0; i < numelements; i++) { if (ivalue) { ip[i] = (char *) malloc(strlen(ivalue)+1); strcpy(ip[i],ivalue); } else { ip[i] = 0; } } ip[numelements] = 0; } } /* Create the pointer value */ obj = sv_newmortal(); SWIG_MakePtr(obj,ptr,cast); return obj; } /*------------------------------------------------------------------ ptrset(ptr,value,index = 0,type = 0) Attempts to set the value of a pointer variable. If type is given, we will use that type. Otherwise, we'll guess the datatype. ------------------------------------------------------------------ */ #ifdef PERL_OBJECT static void _ptrset(CPerlObj *pPerl,SV *_PTRVALUE, SV *value, int index, char *type) { #define ptrset(a,b,c,d) _ptrset(pPerl,a,b,c,d) #else static void _ptrset(SV *_PTRVALUE, SV *value, int index, char *type) { #define ptrset(a,b,c,d) _ptrset(a,b,c,d) #endif void *ptr; SV *obj; if (SWIG_ConvertPtr(_PTRVALUE, &ptr, 0) < 0) { croak("Type error it ptrvalue. Argument is not a valid pointer value."); } else { /* If no datatype was passed, try a few common datatypes first */ if (!type) { /* No datatype was passed. Type to figure out if it's a common one */ if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_int_p) >= 0) { type = "int"; } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_double_p) >= 0) { type = "double"; } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_short_p) >= 0) { type = "short"; } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_long_p) >= 0) { type = "long"; } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_float_p) >= 0) { type = "float"; } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_char_p) >= 0) { type = "char"; } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_char_pp) >= 0) { type = "char *"; } else { type = "unknown"; } } } if (!ptr) { croak("Unable to set NULL pointer."); return; } /* Now we have a datatype. Try to figure out what to do about it */ if (strcmp(type,"int") == 0) { *(((int *) ptr)+index) = (int) SvIV(value); } else if (strcmp(type,"double") == 0) { *(((double *) ptr)+index) = (double) SvNV(value); } else if (strcmp(type,"short") == 0) { *(((short *) ptr)+index) = (short) SvIV(value); } else if (strcmp(type,"long") == 0) { *(((long *) ptr)+index) = (long) SvIV(value); } else if (strcmp(type,"float") == 0) { *(((float *) ptr)+index) = (float) SvNV(value); } else if (strcmp(type,"char") == 0) { char *c = SvPV(value,PL_na); strcpy(((char *) ptr)+index, c); } else if (strcmp(type,"char *") == 0) { char *c = SvPV(value,PL_na); char **ca = (char **) ptr; if (ca[index]) free(ca[index]); if (strcmp(c,"NULL") == 0) { ca[index] = 0; } else { ca[index] = (char *) malloc(strlen(c)+1); strcpy(ca[index],c); } } else { croak("Unable to set unsupported datatype."); return; } } /*------------------------------------------------------------------ ptradd(ptr,offset) Adds a value to an existing pointer value. Will do a type-dependent add for basic datatypes. For other datatypes, will do a byte-add. ------------------------------------------------------------------ */ #ifdef PERL_OBJECT static SV *_ptradd(CPerlObj *pPerl, SV *_PTRVALUE, int offset) { #define ptradd(a,b) _ptradd(pPerl,a,b) #else static SV *_ptradd(SV *_PTRVALUE, int offset) { #define ptradd(a,b) _ptradd(a,b) #endif void *ptr,*junk; SV *obj; swig_type_info *type; char *tname; /* Try to handle a few common datatypes first */ if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_int_p) >= 0) { ptr = (void *) (((int *) ptr) + offset); } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_double_p) >= 0) { ptr = (void *) (((double *) ptr) + offset); } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_short_p) >= 0) { ptr = (void *) (((short *) ptr) + offset); } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_long_p) >= 0) { ptr = (void *) (((long *) ptr) + offset); } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_float_p) >= 0) { ptr = (void *) (((float *) ptr) + offset); } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,SWIG_POINTER_char_p) >= 0) { ptr = (void *) (((char *) ptr) + offset); } else if (SWIG_ConvertPtr(_PTRVALUE,&ptr,0) >= 0) { ptr = (void *) (((char *) ptr) + offset); } else { croak("Type error in ptradd. Argument is not a valid pointer value."); return 0; } printf("ptradd = %x\n", ptr); tname = HvNAME(SvSTASH(SvRV(_PTRVALUE))); obj = sv_newmortal(); sv_setref_pv(obj,tname,ptr); return obj; } /*------------------------------------------------------------------ ptrfree(ptr) Destroys a pointer value ------------------------------------------------------------------ */ #ifdef PERL_OBJECT void _ptrfree(CPerlObj *pPerl, SV *_PTRVALUE) { #define ptrfree(a) _ptrfree(pPerl, a) #else void _ptrfree(SV *_PTRVALUE) { #define ptrfree(a) _ptrfree(a) #endif void *ptr, *junk; if (SWIG_ConvertPtr(_PTRVALUE,&ptr,0) < 0) { croak("Type error in ptrfree. Argument is not a valid pointer value."); return; } /* Check to see if this pointer is a char ** */ if (SWIG_ConvertPtr(_PTRVALUE,&junk,SWIG_POINTER_char_pp) >= 0) { char **c = (char **) ptr; if (c) { int i = 0; while (c[i]) { free(c[i]); i++; } } } if (ptr) free((char *) ptr); } #ifdef PERL_OBJECT #define MAGIC_CLASS _wrap_Ifeffit_var:: class _wrap_Ifeffit_var : public CPerlObj { public: #else #define MAGIC_CLASS #endif SWIGCLASS_STATIC int swig_magic_readonly(SV *sv, MAGIC *mg) { MAGIC_PPERL sv = sv; mg = mg; croak("Value is read-only."); return 0; } #ifdef PERL_OBJECT }; #endif XS(_wrap_ptrvalue) { SV *arg0 ; int arg1 = 0 ; char *arg2 = 0 ; int argvi = 0; SV *result ; dXSARGS; if ((items < 1) || (items > 3)) croak("Usage: ptrvalue(ptr,index,type);"); { arg0 = ST(0); } if (items > 1) { arg1 = (int )SvIV(ST(1)); } if (items > 2) { if (! SvOK((SV*) ST(2))) { arg2 = 0; } else { arg2 = (char *) SvPV(ST(2),PL_na); } } result = (SV *)ptrvalue(arg0,arg1,arg2); { ST(argvi) = result; argvi++; } XSRETURN(argvi); } XS(_wrap_ptrset) { SV *arg0 ; SV *arg1 ; int arg2 = 0 ; char *arg3 = 0 ; int argvi = 0; dXSARGS; if ((items < 2) || (items > 4)) croak("Usage: ptrset(ptr,value,index,type);"); { arg0 = ST(0); } { arg1 = ST(1); } if (items > 2) { arg2 = (int )SvIV(ST(2)); } if (items > 3) { if (! SvOK((SV*) ST(3))) { arg3 = 0; } else { arg3 = (char *) SvPV(ST(3),PL_na); } } ptrset(arg0,arg1,arg2,arg3); XSRETURN(argvi); } XS(_wrap_ptrcreate) { char *arg0 ; SV *arg1 = 0 ; int arg2 = 1 ; int argvi = 0; SV *result ; dXSARGS; if ((items < 1) || (items > 3)) croak("Usage: ptrcreate(type,value,nitems);"); if (! SvOK((SV*) ST(0))) { arg0 = 0; } else { arg0 = (char *) SvPV(ST(0),PL_na); } if (items > 1) { { arg1 = ST(1); } } if (items > 2) { arg2 = (int )SvIV(ST(2)); } result = (SV *)ptrcreate(arg0,arg1,arg2); { ST(argvi) = result; argvi++; } XSRETURN(argvi); } XS(_wrap_ptrfree) { SV *arg0 ; int argvi = 0; dXSARGS; if ((items < 1) || (items > 1)) croak("Usage: ptrfree(ptr);"); { arg0 = ST(0); } ptrfree(arg0); XSRETURN(argvi); } XS(_wrap_ptradd) { SV *arg0 ; int arg1 ; int argvi = 0; SV *result ; dXSARGS; if ((items < 2) || (items > 2)) croak("Usage: ptradd(ptr,offset);"); { arg0 = ST(0); } arg1 = (int )SvIV(ST(1)); result = (SV *)ptradd(arg0,arg1); { ST(argvi) = result; argvi++; } XSRETURN(argvi); } XS(_wrap_iff_exec) { char *arg0 ; int argvi = 0; int result ; dXSARGS; if ((items < 1) || (items > 1)) croak("Usage: iff_exec(char *);"); if (! SvOK((SV*) ST(0))) { arg0 = 0; } else { arg0 = (char *) SvPV(ST(0),PL_na); } result = (int )iff_exec(arg0); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++),(IV) result); XSRETURN(argvi); } XS(_wrap_iff_get_string) { char *arg0 ; char *arg1 ; int argvi = 0; int result ; dXSARGS; if ((items < 2) || (items > 2)) croak("Usage: iff_get_string(char *,char *);"); if (! SvOK((SV*) ST(0))) { arg0 = 0; } else { arg0 = (char *) SvPV(ST(0),PL_na); } if (! SvOK((SV*) ST(1))) { arg1 = 0; } else { arg1 = (char *) SvPV(ST(1),PL_na); } result = (int )iff_get_string(arg0,arg1); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++),(IV) result); XSRETURN(argvi); } XS(_wrap_iff_put_string) { char *arg0 ; char *arg1 ; int argvi = 0; int result ; dXSARGS; if ((items < 2) || (items > 2)) croak("Usage: iff_put_string(char *,char *);"); if (! SvOK((SV*) ST(0))) { arg0 = 0; } else { arg0 = (char *) SvPV(ST(0),PL_na); } if (! SvOK((SV*) ST(1))) { arg1 = 0; } else { arg1 = (char *) SvPV(ST(1),PL_na); } result = (int )iff_put_string(arg0,arg1); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++),(IV) result); XSRETURN(argvi); } XS(_wrap_iff_get_scalar) { char *arg0 ; double *arg1 ; int argvi = 0; int result ; dXSARGS; if ((items < 2) || (items > 2)) croak("Usage: iff_get_scalar(char *,double *);"); if (! SvOK((SV*) ST(0))) { arg0 = 0; } else { arg0 = (char *) SvPV(ST(0),PL_na); } if (SWIG_ConvertPtr(ST(1),(void **) &arg1,SWIGTYPE_p_double) < 0) { croak("Type error in argument 2 of iff_get_scalar. Expected %s", SWIGTYPE_p_double->name); XSRETURN(1); } result = (int )iff_get_scalar(arg0,arg1); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++),(IV) result); XSRETURN(argvi); } XS(_wrap_iff_put_scalar) { char *arg0 ; double *arg1 ; int argvi = 0; int result ; dXSARGS; if ((items < 2) || (items > 2)) croak("Usage: iff_put_scalar(char *,double *);"); if (! SvOK((SV*) ST(0))) { arg0 = 0; } else { arg0 = (char *) SvPV(ST(0),PL_na); } if (SWIG_ConvertPtr(ST(1),(void **) &arg1,SWIGTYPE_p_double) < 0) { croak("Type error in argument 2 of iff_put_scalar. Expected %s", SWIGTYPE_p_double->name); XSRETURN(1); } result = (int )iff_put_scalar(arg0,arg1); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++),(IV) result); XSRETURN(argvi); } XS(_wrap_iff_get_array) { char *arg0 ; double *arg1 ; int argvi = 0; int result ; dXSARGS; if ((items < 2) || (items > 2)) croak("Usage: iff_get_array(char *,double *);"); if (! SvOK((SV*) ST(0))) { arg0 = 0; } else { arg0 = (char *) SvPV(ST(0),PL_na); } if (SWIG_ConvertPtr(ST(1),(void **) &arg1,SWIGTYPE_p_double) < 0) { croak("Type error in argument 2 of iff_get_array. Expected %s", SWIGTYPE_p_double->name); XSRETURN(1); } result = (int )iff_get_array(arg0,arg1); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++),(IV) result); XSRETURN(argvi); } XS(_wrap_iff_put_array) { char *arg0 ; int *arg1 ; double *arg2 ; int argvi = 0; int result ; dXSARGS; if ((items < 3) || (items > 3)) croak("Usage: iff_put_array(char *,int *,double *);"); if (! SvOK((SV*) ST(0))) { arg0 = 0; } else { arg0 = (char *) SvPV(ST(0),PL_na); } if (SWIG_ConvertPtr(ST(1),(void **) &arg1,SWIGTYPE_p_int) < 0) { croak("Type error in argument 2 of iff_put_array. Expected %s", SWIGTYPE_p_int->name); XSRETURN(1); } if (SWIG_ConvertPtr(ST(2),(void **) &arg2,SWIGTYPE_p_double) < 0) { croak("Type error in argument 3 of iff_put_array. Expected %s", SWIGTYPE_p_double->name); XSRETURN(1); } result = (int )iff_put_array(arg0,arg1,arg2); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++),(IV) result); XSRETURN(argvi); } XS(_wrap_iff_get_echo) { char *arg0 ; int argvi = 0; int result ; dXSARGS; if ((items < 1) || (items > 1)) croak("Usage: iff_get_echo(char *);"); if (! SvOK((SV*) ST(0))) { arg0 = 0; } else { arg0 = (char *) SvPV(ST(0),PL_na); } result = (int )iff_get_echo(arg0); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++),(IV) result); XSRETURN(argvi); } XS(_wrap_IFFEXECF) { char *arg0 ; int arg1 ; int argvi = 0; int result ; dXSARGS; if ((items < 2) || (items > 2)) croak("Usage: IFFEXECF(char *,int );"); if (! SvOK((SV*) ST(0))) { arg0 = 0; } else { arg0 = (char *) SvPV(ST(0),PL_na); } arg1 = (int )SvIV(ST(1)); result = (int )IFFEXECF(arg0,arg1); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++),(IV) result); XSRETURN(argvi); } XS(_wrap_IFFGETSTR) { char *arg0 ; int arg1 ; char *arg2 ; int arg3 ; int argvi = 0; int result ; dXSARGS; if ((items < 4) || (items > 4)) croak("Usage: IFFGETSTR(char *,int ,char *,int );"); if (! SvOK((SV*) ST(0))) { arg0 = 0; } else { arg0 = (char *) SvPV(ST(0),PL_na); } arg1 = (int )SvIV(ST(1)); if (! SvOK((SV*) ST(2))) { arg2 = 0; } else { arg2 = (char *) SvPV(ST(2),PL_na); } arg3 = (int )SvIV(ST(3)); result = (int )IFFGETSTR(arg0,arg1,arg2,arg3); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++),(IV) result); XSRETURN(argvi); } XS(_wrap_IFFGETSCA) { char *arg0 ; int arg1 ; double *arg2 ; int argvi = 0; int result ; dXSARGS; if ((items < 3) || (items > 3)) croak("Usage: IFFGETSCA(char *,int ,double *);"); if (! SvOK((SV*) ST(0))) { arg0 = 0; } else { arg0 = (char *) SvPV(ST(0),PL_na); } arg1 = (int )SvIV(ST(1)); if (SWIG_ConvertPtr(ST(2),(void **) &arg2,SWIGTYPE_p_double) < 0) { croak("Type error in argument 3 of IFFGETSCA. Expected %s", SWIGTYPE_p_double->name); XSRETURN(1); } result = (int )IFFGETSCA(arg0,arg1,arg2); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++),(IV) result); XSRETURN(argvi); } XS(_wrap_IFFGETARR) { char *arg0 ; int arg1 ; double *arg2 ; int argvi = 0; int result ; dXSARGS; if ((items < 3) || (items > 3)) croak("Usage: IFFGETARR(char *,int ,double *);"); if (! SvOK((SV*) ST(0))) { arg0 = 0; } else { arg0 = (char *) SvPV(ST(0),PL_na); } arg1 = (int )SvIV(ST(1)); if (SWIG_ConvertPtr(ST(2),(void **) &arg2,SWIGTYPE_p_double) < 0) { croak("Type error in argument 3 of IFFGETARR. Expected %s", SWIGTYPE_p_double->name); XSRETURN(1); } result = (int )IFFGETARR(arg0,arg1,arg2); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++),(IV) result); XSRETURN(argvi); } XS(_wrap_IFFPUTARR) { char *arg0 ; int arg1 ; int *arg2 ; double *arg3 ; int argvi = 0; int result ; dXSARGS; if ((items < 4) || (items > 4)) croak("Usage: IFFPUTARR(char *,int ,int *,double *);"); if (! SvOK((SV*) ST(0))) { arg0 = 0; } else { arg0 = (char *) SvPV(ST(0),PL_na); } arg1 = (int )SvIV(ST(1)); if (SWIG_ConvertPtr(ST(2),(void **) &arg2,SWIGTYPE_p_int) < 0) { croak("Type error in argument 3 of IFFPUTARR. Expected %s", SWIGTYPE_p_int->name); XSRETURN(1); } if (SWIG_ConvertPtr(ST(3),(void **) &arg3,SWIGTYPE_p_double) < 0) { croak("Type error in argument 4 of IFFPUTARR. Expected %s", SWIGTYPE_p_double->name); XSRETURN(1); } result = (int )IFFPUTARR(arg0,arg1,arg2,arg3); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++),(IV) result); XSRETURN(argvi); } XS(_wrap_IFFGETECHO) { char *arg0 ; int arg1 ; int argvi = 0; int result ; dXSARGS; if ((items < 2) || (items > 2)) croak("Usage: IFFGETECHO(char *,int );"); if (! SvOK((SV*) ST(0))) { arg0 = 0; } else { arg0 = (char *) SvPV(ST(0),PL_na); } arg1 = (int )SvIV(ST(1)); result = (int )IFFGETECHO(arg0,arg1); ST(argvi) = sv_newmortal(); sv_setiv(ST(argvi++),(IV) result); XSRETURN(argvi); } /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */ static swig_type_info _swigt__p_float[] = {{"_p_float", 0, "float *"},{"_p_float"},{0}}; static swig_type_info _swigt__p_double[] = {{"_p_double", 0, "double *"},{"_p_double"},{0}}; static swig_type_info _swigt__p_char[] = {{"_p_char", 0, "char *"},{"_p_char"},{0}}; static swig_type_info _swigt__p_p_char[] = {{"_p_p_char", 0, "char **"},{"_p_p_char"},{0}}; static swig_type_info _swigt__p_long[] = {{"_p_long", 0, "long *"},{"_p_long"},{0}}; static swig_type_info _swigt__p_void[] = {{"_p_void", 0, "void *"},{"_p_void"},{0}}; static swig_type_info _swigt__p_int[] = {{"_p_int", 0, "int *"},{"_p_int"},{0}}; static swig_type_info _swigt__p_short[] = {{"_p_short", 0, "short *"},{"_p_short"},{0}}; static swig_type_info *swig_types_initial[] = { _swigt__p_float, _swigt__p_double, _swigt__p_char, _swigt__p_p_char, _swigt__p_long, _swigt__p_void, _swigt__p_int, _swigt__p_short, 0 }; /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */ XS(_wrap_perl5_Ifeffit_var_init) { dXSARGS; SV *sv; XSRETURN(1); } #ifdef __cplusplus extern "C" #endif XS(SWIG_init) { dXSARGS; int i; char *file = __FILE__; for (i = 0; swig_types_initial[i]; i++) { swig_types[i] = SWIG_TypeRegister(swig_types_initial[i]); } newXS("Ifeffit::var_Ifeffit_init", _wrap_perl5_Ifeffit_var_init, file); SWIG_POINTER_int_p = SWIG_TypeQuery("int *"); SWIG_POINTER_short_p = SWIG_TypeQuery("short *"); SWIG_POINTER_long_p = SWIG_TypeQuery("long *"); SWIG_POINTER_float_p = SWIG_TypeQuery("float *"); SWIG_POINTER_double_p = SWIG_TypeQuery("double *"); SWIG_POINTER_char_p = SWIG_TypeQuery("char *"); SWIG_POINTER_char_pp = SWIG_TypeQuery("char **"); SWIG_POINTER_void_p = SWIG_TypeQuery("void *"); newXS("Ifeffit::ptrvalue", _wrap_ptrvalue, file); newXS("Ifeffit::ptrset", _wrap_ptrset, file); newXS("Ifeffit::ptrcreate", _wrap_ptrcreate, file); newXS("Ifeffit::ptrfree", _wrap_ptrfree, file); newXS("Ifeffit::ptradd", _wrap_ptradd, file); newXS("Ifeffit::iff_exec", _wrap_iff_exec, file); newXS("Ifeffit::iff_get_string", _wrap_iff_get_string, file); newXS("Ifeffit::iff_put_string", _wrap_iff_put_string, file); newXS("Ifeffit::iff_get_scalar", _wrap_iff_get_scalar, file); newXS("Ifeffit::iff_put_scalar", _wrap_iff_put_scalar, file); newXS("Ifeffit::iff_get_array", _wrap_iff_get_array, file); newXS("Ifeffit::iff_put_array", _wrap_iff_put_array, file); newXS("Ifeffit::iff_get_echo", _wrap_iff_get_echo, file); newXS("Ifeffit::IFFEXECF", _wrap_IFFEXECF, file); newXS("Ifeffit::IFFGETSTR", _wrap_IFFGETSTR, file); newXS("Ifeffit::IFFGETSCA", _wrap_IFFGETSCA, file); newXS("Ifeffit::IFFGETARR", _wrap_IFFGETARR, file); newXS("Ifeffit::IFFPUTARR", _wrap_IFFPUTARR, file); newXS("Ifeffit::IFFGETECHO", _wrap_IFFGETECHO, file); ST(0) = &PL_sv_yes; XSRETURN(1); } ifeffit-1.2.11d/src/win32/ifeffit.h0000755000175000017500000000326010771740456015705 0ustar segresegre/************************* * C header file Ifeffit * *************************/ #if defined(WIN32) || defined(_WIN32) || defined(__WIN32__) #define IFF_EXPORT(a) __declspec(dllexport) a _stdcall #define IFF_INTERN(a) a _stdcall #else #define IFF_EXPORT(a) a #define IFF_INTERN(a) a #endif /* main interface routines */ IFF_EXPORT(int) iff_exec(char *); IFF_EXPORT(int) ifeffit(char *); IFF_EXPORT(int) iff_get_string(char *, char *); IFF_EXPORT(int) iff_put_string(char *, char *); IFF_EXPORT(int) iff_get_scalar(char *, double *); IFF_EXPORT(int) iff_put_scalar(char *, double *); IFF_EXPORT(int) iff_get_array(char *, double *); IFF_EXPORT(int) iff_put_array(char *, int *, double *); IFF_EXPORT(int) iff_get_echo(char *); IFF_EXPORT(char*) iff_strval(char *); IFF_EXPORT(double) iff_scaval(char *); /* raw interfaces to the fortran functions: these may need system level alterations as they assume 1.trailing underscore 2.char lengths as int at end of argument list these appear to be the unix norm. */ #if defined(WIN32) || defined(_WIN32) || defined(__WIN32__) int _stdcall IFFEXECF(char *, int); int _stdcall IFFGETSTR(char *, int, char *, int); int _stdcall IFFGETSCA(char *, int, double *); int _stdcall IFFGETARR(char *, int, double *); int _stdcall IFFPUTARR(char *, int, int *, double *); int _stdcall IFFGETECHO(char *, int); char* _stdcall IFF_STRVAL(char *); double _stdcall IFF_SCAVAL(char *); #else int ifeffit_(char *, int); int iffgetstr_(char *, char *, int, int); int iffgetsca_(char *, double *, int); int iffgetarr_(char *, double *, int); int iffputarr_(char *, int *, double *, int); int iffgetecho_(char *, int); #endif /* end */ ifeffit-1.2.11d/src/win32/ifeffitc.def0000755000175000017500000000040110771740456016351 0ustar segresegreLIBRARY C_DLL DESCRIPTION "Ifeffit Library for XAFS Analysis" EXPORTS iff_exec iff_put_scalar iff_get_scalar iff_put_array iff_get_array iff_put_string iff_get_string iff_get_echo iff_strval iff_scaval ifeffit-1.2.11d/src/win32/build.h0000755000175000017500000001002210771740456015362 0ustar segresegrec{build.h -*-fortran-*- build = '1.0071 '// $ 'Copyright (c) 2002 Matt Newville, Univ of Chicago' ckeys(1) = '__test' chint(1) = 'test function : do not use!' ckeys(2) = 'bkg_cl' chint(2) = 'remove pre_edge from xmu(E) data with CL data' ckeys(3) = 'chi_noise' chint(3) = 'calculate noise in a chi(k) spectrum' ckeys(4) = 'color' chint(4) = 'update the plotting color table' ckeys(5) = 'comment' chint(5) = 'write a comment into the history buffer' ckeys(6) = 'correl' chint(6) = 'set two-variable correlation to a Program Variable' ckeys(7) = 'cursor' chint(7) = 'get the coordinates of the cursor' ckeys(8) = 'def' chint(8) = 'define the expression and value for a variable' ckeys(9) = 'diffkk' chint(9) = 'differential Kramers-Kronig transform' ckeys(10) = 'echo' chint(10) = 'write a message to the screen' ckeys(11) = 'erase' chint(11) = 'erase a variable' ckeys(12) = 'error' chint(12) = 'generate the uncertainty in a Program Variable' ckeys(13) = 'exit' chint(13) = 'exit the program' ckeys(14) = 'f1f2' chint(14) = 'calculate f1 and f2 from Cromer-Libermann tables' ckeys(15) = 'feffit' chint(15) = 'execute a feff-based fit to chi(k) data' ckeys(16) = 'ff2chi' chint(16) = 'convert list of feff paths to chi(k)' ckeys(17) = 'fftf' chint(17) = 'forward fast fourier transform' ckeys(18) = 'fftr' chint(18) = 'reverse fast fourier transform' ckeys(19) = 'get_path' chint(19) = 'convert path to Program Variables' ckeys(20) = 'guess' chint(20) = 'define a variable as a fitting parameter' ckeys(21) = 'history' chint(21) = 'set up history buffer and file' ckeys(22) = 'linestyle' chint(22) = 'update an index in the plotting style table' ckeys(23) = 'load' chint(23) = 'load a file of commands and execute them' ckeys(24) = 'log' chint(24) = 'write screen messages to an output file' ckeys(25) = 'macro' chint(25) = 'define a macro' ckeys(26) = 'minimize' chint(26) = 'general fitting' ckeys(27) = 'newplot' chint(27) = 'start a new plot' ckeys(28) = 'path' chint(28) = 'define a feff scattering path' ckeys(29) = 'pause' chint(29) = 'wait for user input' ckeys(30) = 'plot' chint(30) = 'general 2-d plot command' ckeys(31) = 'plot_arrow' chint(31) = 'put an arrow or line on the plot' ckeys(32) = 'plot_marker' chint(32) = 'put a single marker on the plot' ckeys(33) = 'plot_text' chint(33) = 'put a line of text on the plot' ckeys(34) = 'pre_edge' chint(34) = 'remove pre_edge from xmu(E) data' ckeys(35) = 'print' chint(35) = 'print command' ckeys(36) = 'quit' chint(36) = 'quit program' ckeys(37) = 'read_data' chint(37) = 'read a data file' ckeys(38) = 'rename' chint(38) = 'rename a variable' ckeys(39) = 'reset' chint(39) = 're-initialize program' ckeys(40) = 'restore' chint(40) = 'restore session from save file' ckeys(41) = 'save' chint(41) = 'save session (all program variables and macros)' ckeys(42) = 'set' chint(42) = 'set the constant value for a variable' ckeys(43) = 'show' chint(43) = 'show the value of a variable or expression' ckeys(44) = 'spline' chint(44) = 'determine background spline (autobk algorithm)' ckeys(45) = 'sync' chint(45) = 'synchronize expressions for arrays' ckeys(46) = 'write_data' chint(46) = 'write a data file' ckeys(47) = 'zoom' chint(47) = 'choose plotting window with cursor' c now install information: c data directory sfile = 'C:\Program Files\Ifeffit' pgdev = '/gw' c ifeffit-1.2.11d/src/win32/startup.iff0000755000175000017500000000363510771740456016316 0ustar segresegre macro pf "A.dat", "2" "simple plot of a file" read_data($1, type=raw, group=my) plot(my.1, my.$2, $3) end macro macro bkg "x.xmu", "my", "rbkg=1" "simple background subtraction" read_data( $1, type=xmu, group=$2) kweight = 1 rbkg = 1.01 spline ($2.energy, $2.xmu, kmin = 0, kmax = 0,$3) newplot($2.energy, $2.xmu, group, color = blue) plot ($2.energy, $2.bkg, style = dashed, color = tomato ) end macro macro pre "x.xmu" "quick pre-edge subtraction" read_data( $1, type=xmu, group=my) pre_edge(my.energy, my.xmu) end macro macro feff_path "0001" "define a path from a feff file" path ($1, feff$1.dat, label = $1, $2) end macro macro make_ps ifeffit.ps /cps "dump plot to a postscript file" plot(device=$2, file= $1) end macro macro testplot "test plot" my.x = indarr(500)/35. my.y1 =(exp(-my.x / 10) * 2* cos(my.x *3 )) my.y2 = exp(-((my.x - 3.5)/2.5)^2/2) * my.x/3 newplot(my.x,my.y1, color=red) plot(my.x,my.y2, color=blue) end macro macro srfit read_data($1r.dat, type = rsp, group = dat) read_data($1r.fit, type = rsp, group = fit) newplot(r,chir_mag, group=dat, $2) plot(r,chir_mag, group=fit, $3) end macro macro skfit read_data($1k.dat, type = chi, group = dat) read_data($1k.fit, type = chi, group = fit) newplot(k,chi, group=dat, $2) plot(k,chi, group=fit, $3) end macro macro skwfit read_data($1k.dat, type = chi, group = dat) read_data($1k.fit, type = chi, group = fit) dat.chik = dat.chi * dat.k^($2) fit.chik = fit.chi * fit.k^($2) newplot(k,chik, group=dat, $3) plot(k,chik, group=fit, $4) end macro macro sqfit read_data($1q.dat, type = chi, group = qdat) read_data($1q.fit, type = chi, group = qfit) newplot(k,chi, group=qdat, $2) plot(k,chi, group=qfit, $3) end macro ifeffit-1.2.11d/src/win32/iff_shell.c0000755000175000017500000001641310771740456016223 0ustar segresegre/* ifeffit command shell: Windows This provides a simple command line shell interface o the Ifeffit XAFS Analysis Library, without the GNU readline library. Copyright (c) 1998--2000 Matthew Newville, The University of Chicago This software is distributed under the terms of the GNU General Public License as published by the Free Software Foundation. It is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License (in the file COPYING) for more details. This file is ased on and borrows heavily from the file fileman.c distributed with the GNU readline library. Matt Newville newville@cars.uchicago.edu */ #define Version "0.9b" #include #include #include #include char *stripwhite(); char *progname, *home; static char comstr[1024], line_ex[1024],histfile[512], startfile[512]; static char line[1024]; /* extern char *xmalloc(); */ /* extern char *readline();*/ #include "ifeffit.h" /* A structure which contains information on the commands this program can understand. */ typedef int _stdcall Func(); int _stdcall promptline(); int _stdcall sys_exec(); int _stdcall sys_help(); int _stdcall com_list(); int _stdcall com_more(); int _stdcall com_pwd(); int _stdcall com_cd(); int _stdcall execute_line(); int _stdcall load_startup_file(); int _stdcall iff_load_file() ; #include "commands.h" #define whitespace(c) (((c) ==' ')||((c) == '\t')) /* main */ int main (int argc, char **argv) { char *s, *prompt; int exec, ret, i; progname = argv[0]; /* Loop reading and executing lines until the user quits. */ /* ifeffit_("") ;*/ ret = 1; exec = 1; /* initialize ifeffit */ ret = iff_exec(" set &screen_echo=1"); if (ret != 0) { printf(" fatal error loading ifeffit library\n") ; exit(ret); } s = iff_strval("&build"); printf(" Ifeffit %s\n", s); printf(" command-line shell version %s for Win32\n", Version); /* handle command line switches */ for (i=1;i 1) { exec = 0;} } /* free(line);*/ } exit(ret); } /* done with main */ /* Execute a command line. */ int _stdcall execute_line (char *line) { register int i; COMMAND *command; char *word ; /* Isolate the command word. */ i = 0; while (line[i] && whitespace (line[i])) i++; word = line + i; while (line[i] && !whitespace (line[i])) i++; if (line[i]) line[i++] = '\0'; command = find_command(word); /* Get argument to command, if any. */ while (whitespace (line[i])) i++; word = line + i; sprintf(line_ex, "%s %s \n\0", line, word); /* printf( ":: %s %s \n\0", line, word); */ if ((!command)|| (find_command(line)->func == find_command("plot")->func )) { return (iff_exec (line_ex)); } else if (find_command(line)->func == find_command("dir")->func) { return (sys_exec(line_ex)); } else { return ((*(command->func)) (word)); } } int _stdcall load_startup_file(char *file) { FILE *fp; int i; fp = fopen(file,"r"); printf (" Startup file %s",file); if (fp) { fclose(fp); i = iff_load_file(file); if (i==0) { printf (" loaded OK\n"); } else { printf (" loaded with an error\n"); } } else { printf (" not found\n"); } return 0; } int _stdcall iff_load_file(char *file) { FILE *fp; int i=1; fp = fopen(file,"r"); if (fp) { fclose(fp); sprintf(line_ex, "load %s \n\0",file); i = iff_exec(line_ex); if (i!=0) { printf (" Error loading %s!\n",file); } } else { printf (" No file %s!\n",file); } return i; } int _stdcall sys_exec(char *arg) { sprintf (comstr, "%s", arg); printf (" will send: %s", comstr); system (arg); return(0); } /* Print out help for ARG, or for all of the commands if ARG is not present. */ int _stdcall sys_help (char *arg) { register int i; int printed = 0; printf (" syshelp: %s\n", arg); if (!*arg ) { for (i = 0; commands[i].name; i++) { printf (" %-12s %s\n", commands[i].name, commands[i].desc); printed++; } } else { for (i = 0; commands[i].name; i++) { if ( (strcmp (arg, commands[i].name) == 0)) { printf (" %-12s %s\n %s\n", commands[i].name, commands[i].desc, commands[i].doc); printed++; } } } if (!printed) { printf ("No commands match `%s'. Possibilties are:\n", arg); for (i = 0; commands[i].name; i++) { /* Print in six columns. */ if (printed == 5) { printed = 0; printf ("\n"); } printf ("%-12s ", commands[i].name); printed++; } if (printed) printf ("\n"); } return (0); } /* Look up NAME as the name of a command, and return a pointer to that command. Return a NULL pointer if NAME isn't a command name. */ COMMAND *find_command (char *name) { register int i; for (i = 0; commands[i].name; i++) { if (strcmp (name, commands[i].name) == 0) return (&commands[i]); } return ((COMMAND *)NULL); } int _stdcall com_list (char *arg) { if (!arg) arg = ""; sprintf (comstr, "DIR %s", arg); return (0); /* system (comstr)); */ } int _stdcall com_more (char *arg) { sprintf (comstr, "more < %s", arg); system (comstr); return (0); } int _cdecl getcwd(), chdir(); int _stdcall com_cd (char *arg) { sprintf (comstr, "cd %s", arg); /* system(comstr);*/ chdir(arg); com_pwd(""); return 0; } int _stdcall com_pwd (char *arg) { if (getcwd(comstr,1024)) { printf (" %s\n", comstr); } else { printf ("Error with pwd: %s\n", comstr); return 1; } return 0; } /**/ /* Strip whitespace from the start and end of STRING. Return a pointer into STRING. */ char *stripwhite (char *string) { register char *s, *t; for (s = string; whitespace (*s); s++) ; if (*s == 0) return (s); t = s + strlen (s) - 1; while (t > s && whitespace (*t)) t--; *++t = '\0'; return s; } int _stdcall promptline(char *prompt) { int i ,c; printf("%s", prompt); for (i = 0 ; i< 1023 && (c = getchar()) != EOF && c !='\n'; ++i) { line[i] = c; } line[i] = '\0'; return i; } ifeffit-1.2.11d/src/win32/sys.h0000644000175000017500000000045710771740456015111 0ustar segresegrec{sys.h -*-fortran-*- c all system and build specific stuff goes here c to be executed in iff_config.f sfile = 'C:/Program Files/Ifeffit' pgdev = '/gw' inifile= 'startup.iff , ifeffit.ini' build = '1.0075'// $ ' Copyright (c) 2002 Matt Newville, Univ of Chicago' c} ifeffit-1.2.11d/src/win32/cifeffit.f0000755000175000017500000001270510771740456016052 0ustar segresegrec////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2001 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c routines for the c interface to ifeffit data elements integer function IFFEXECF(str) !DEC$ IF DEFINED (_DLL) !DEC$ ATTRIBUTES DLLEXPORT :: IFFEXECF !DEC$ END IF c c this provides a cleaner interface for calling from C character*(*) str integer ifeffit, istrln, ilen external ifeffit, istrln call sclean(str) ilen = istrln(str) iffexecf = ifeffit(str) return end integer function IFFGETSTR(inp, out) !DEC$ IF DEFINED (_DLL) !DEC$ ATTRIBUTES DLLEXPORT :: IFFGETSTR !DEC$ END IF c c purpose: wrapper to gettxt character*(*) inp, out, str*256 integer ilen, istrln external istrln iffgetstr = 1 str = inp call sclean(str) ilen = istrln(str) if (str(1:1).eq.'$') then str = str(2:ilen) ilen = ilen - 1 end if call gettxt(str, out) iffgetstr = max(1, istrln(out)) c end function iffgetstr return end integer function IFFPUTSTR(inam, istr) !DEC$ IF DEFINED (_DLL) !DEC$ ATTRIBUTES DLLEXPORT :: IFFPUTSTR !DEC$ END IF c c purpose: put a string c c copyright (c) 1998 matt newville character*(*) inam, istr character*256 nam, str iffputstr = 0 str = istr nam = inam call sclean(nam) call sclean(str) call settxt(nam,str) c end function iffputsca return end integer function IFFGETSCA(inp, dx) !DEC$ IF DEFINED (_DLL) !DEC$ ATTRIBUTES DLLEXPORT :: IFFGETSCA !DEC$ END IF c c purpose: wrapper to getsca c c copyright (c) 1998 matt newville character*(*) inp, str*256 double precision dx, getsca external getsca if (int(getsca('&sync_level',0)).ge.1) call iff_sync iffgetsca = 0 str = inp call sclean(str) dx = dble( getsca(str,0) ) c end function iffgetsca return end integer function IFFPUTSCA(inp, dx) !DEC$ IF DEFINED (_DLL) !DEC$ ATTRIBUTES DLLEXPORT :: IFFPUTSCA !DEC$ END IF c c purpose: wrapper to setsca c c copyright (c) 1998 matt newville character*(*) inp, str*256 double precision dx, xx, getsca external getsca iffputsca = 0 str = inp xx = dx call sclean(str) call setsca(str,xx) if (int(getsca('&sync_level',0)).ge.1) call iff_sync c end function iffputsca return end integer function IFFGETARR(inp, dx) !DEC$ IF DEFINED (_DLL) !DEC$ ATTRIBUTES DLLEXPORT :: IFFGETARR !DEC$ END IF c c purpose: look up and return array by name implicit none character*(*) inp, str*256 integer get_array double precision dx(*), getsca external get_array, getsca if (int(getsca('&sync_level',0)).ge.1) call iff_sync str = inp call sclean(str) iffgetarr = get_array(str,' ', 0, dx) c end function iffgetarr return end integer function IFFPUTARR(inp, inpts, dx) !DEC$ IF DEFINED (_DLL) !DEC$ ATTRIBUTES DLLEXPORT :: IFFPUTARR !DEC$ END IF c c purpose: wrapper to put array in ifeffit data implicit none character*(*) inp, str*256 integer k, j, inpts double precision dx(*), getsca external getsca iffputarr = 0 str = inp call sclean(str) call set_array(str, ' ', dx, inpts, 1) if (int(getsca('&sync_level',0)).ge.1) call iff_sync c end function iffputarr return end integer function IFFGETECHO(str) !DEC$ IF DEFINED (_DLL) !DEC$ ATTRIBUTES DLLEXPORT :: IFFGETECHO !DEC$ END IF c c purpose: wrapper to echo_pop in ifeffit implicit none include 'consts.h' include 'echo.h' save character*(*) str, s*512 integer i, istrln external istrln iffgetecho = 0 s = ' ' str = ' ' call sclean(str) if (n_echo .ge. 1) call echo_pop(s) str = s iffgetecho = max(1, istrln(str)) c end function iffgetecho return end subroutine iff_plotraise(i) c grwin specific: raise to top integer i, j j = i call gwshowfr(j,11) call gwshowfr(j,12) return end ifeffit-1.2.11d/src/win32/ifeffit.iss0000755000175000017500000000467510771740456016267 0ustar segresegre; Script generated by the Inno Setup Script Wizard. ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES! [Setup] AppName=Ifeffit AppVerName=Ifeffit 1.0068 AppPublisher=Matt Newville and Bruce Ravel AppPublisherURL=http://cars.iuchicago.edu/ifeffit AppSupportURL=http://cars.iuchicago.edu/ifeffit AppUpdatesURL=http://cars.iuchicago.edu/ifeffit AppCopyright=Ifeffit Copyright (C) 1992-2002 Matt Newville; Athena & Atoms Copyright (C) 1997-2002 Bruce Ravel DefaultDirName={pf}\Ifeffit DefaultGroupName=Ifeffit AlwaysCreateUninstallIcon=yes AlwaysRestart=yes ; uncomment the following line if you want your installation to run on NT 3.51 too. ; MinVersion=4,3.51 [Tasks] Name: "desktopicon"; Description: "Create a &desktop icon"; GroupDescription: "Additional icons:"; MinVersion: 4,4 [Files] Source: "C:\IFEFFIT\lib\athena.exe"; DestDir: "{app}"; CopyMode: alwaysoverwrite Source: "C:\IFEFFIT\lib\*"; DestDir: "{app}"; CopyMode: alwaysoverwrite; Flags: "recursesubdirs" [Icons] Name: "{group}\Athena"; Filename: "{app}\athena.exe"; WorkingDir: "{app}"; IconFilename: "{app}\athena.ico" Name: "{group}\TkAtoms"; Filename: "{app}\tkatoms.exe"; WorkingDir: "{app}"; IconFilename: "{app}\tkatoms.ico" Name: "{group}\The Atoms Periodic Table"; Filename: "{app}\apt.exe"; WorkingDir: "{app}"; IconFilename: "{app}\apt.ico" Name: "{group}\GIFeffit"; Filename: "{app}\gifeffit.exe"; WorkingDir: "{app}"; IconFilename: "{app}\gifeffit.ico" Name: "{group}\Ifeffit Documents"; Filename: "{app}\doc\index.html" Name: "{userdesktop}\Athena"; Filename: "{app}\athena.exe"; WorkingDir: "{app}"; IconFilename: "{app}\athena.ico"; MinVersion: 4,4; Tasks: desktopicon Name: "{userdesktop}\TkAtoms"; Filename: "{app}\tkatoms.exe"; WorkingDir: "{app}"; IconFilename: "{app}\tkatoms.ico"; MinVersion: 4,4; Tasks: desktopicon Name: "{userdesktop}\The Atoms Periodic Table"; Filename: "{app}\apt.exe"; WorkingDir: "{app}"; IconFilename: "{app}\apt.ico"; MinVersion: 4,4; Tasks: desktopicon Name: "{userdesktop}\GIFeffit"; Filename: "{app}\gifeffit.exe"; WorkingDir: "{app}"; IconFilename: "{app}\gifeffit.ico"; MinVersion: 4,4; Tasks: desktopicon Name: "{group}\Ifeffit Documents"; Filename: "{app}\doc\index.html" [Registry] Root: HKCU; Subkey: "Environment"; ValueType: string; ValueName: "IFEFFIT_DIR"; ValueData: "{app}"; Flags: deletevalue [Run] Filename: "{app}\athena.exe"; Description: "Run Athena"; Flags: nowait postinstall skipifsilent ifeffit-1.2.11d/src/win32/commands.h0000755000175000017500000001060310771740456016071 0ustar segresegre/* A structure which contains information on the commands this program can understand. */ typedef int _stdcall Func(); typedef struct { char *name; /* function name */ Func *func; /* internal function to call to do the job. */ char *desc; /* brief description of this function. */ char *doc; /* full documentation for this function. */ } COMMAND; COMMAND commands[] = { {"read_data", iff_exec, "read from data file", "read_data(file=input.xmu, group=input, label='energy xmu')"}, {"write_data", iff_exec, "write to data file", "write_data(file=out.dat, group.1, group.2, ...)"}, {"plot", iff_exec, "plot x-y arrays (overplot)", "plot(group.x, group.y)"}, {"newplot", iff_exec, "start a new plot", "newplot(group.x, group.y)"}, {"zoom", iff_exec, "choose plotting window with cursor", "zoom"}, {"cursor", iff_exec, "get the coordinates of the cursor", "cursor(show)\n to put cursor positions to variables cursor_x and cursor_y "}, {"color", iff_exec, "update an index in the plotting color table", "color(bg= white, 1=red, 2=blue)"}, {"linestyle", iff_exec, "update an index in the plotting style table", "linestyle(1=solid, 2=linestyle2, 3=dashed) "}, {"pre_edge", iff_exec, "pre_edge removal of mu(E) data", "pre_edge(group.energy, group.xmu)"}, {"spline", iff_exec, "autobk-style background", "spline(group.energy, group.xmu, rbkg=1.0, kweight=1)"}, {"fftf", iff_exec, "forward XAFS Fourier Transform", "fftf(real=group.chi, kmin=1.0, kmax=16, kweight=2)"}, {"fftr", iff_exec, "reverse XAFS Fourier Transform", "fftr(real=group.chir_re, imag=group.chir_im,\n rmin=1.0, rmax=2.8, dr=0.1)"}, {"path", iff_exec, "define a FEFF path and path parameters", "path(001, feff= ../feff0001.dat,\n e0 = e0_var, s02 = s02_var)"}, {"ff2chi", iff_exec, "convert list of paths to chi(k) (see also: paths,feffit)", "ff2chi(1,2,3, group=f)"}, { "feffit", iff_exec, "fit chi(k) data to a set of paths (see also: paths,ff2chi)", "feffit(data = input.chi, 001,002, kmin=2,\n kmax=15, rmin=1, rmax=3.)"}, {"minimize", iff_exec, "generalized fitting", " "}, { "set", iff_exec, "set variable value, without storing definition", "set xvar = 1.2\n set yvar = 3 * xvar\n set group.x = indarr(100)\n set group.y = sin(group.x)"}, { "def", iff_exec, "define variables, store definition (see also: set)", "def yvar = xvar * 3"}, {"guess", iff_exec, "define a variable as a fitting parameter", "guess s02 = 0.9, del_r = 0.01 "}, {"rename", iff_exec, "rename a variable", "rename old_var new_var "}, { "load", iff_exec, "load a command file", "load Fit_data.iff"}, { "erase", iff_exec, "erase variables" , "erase xvar, yvar, group.x"}, {"macro", iff_exec, "define a macro", "macro 'default 1'\n print $1\n end macro"}, { "show", iff_exec, "show variables, paths, macros, etc" , "show xvar"}, { "print", iff_exec, "print variables or expression (see also: show)" , "print xvar\n print 3*xvar, $my_string"}, {"echo", iff_exec, "write to screen", "echo 'This is a message'"}, {"pause", iff_exec, "wait for user input", " pause == hit any key to continue =="}, {"restore", iff_exec, "restore session from save file (see also: save)", "restore(cu_analysis.sav)"}, {"save", iff_exec, "save session to a save file (see also: restore)", "save(cu_analysis.sav)"}, { "quit", iff_exec, "exit the program", "quit" }, { "exit", iff_exec, "exit the program", "exit" }, { "help", sys_help, "Display help on commands", "help \n to get list of commands with brief description \n help read_data\n to get more complete documentation on a command" }, { "dir", com_list, "file listing", "dir *.dat" }, { "cd", com_cd, "change directory" , "cd ../"}, { "pwd", com_pwd, "print working directory", "pwd" }, { "more", com_more, "view file contents one page at a time", "more cu.xmu" }, { "!", sys_exec, "send commands to DOS shell", "! emacs My.iff &" }, {(char *)NULL, (Func *)NULL, (char *)NULL , (char *)NULL } }; COMMAND *find_command (); ifeffit-1.2.11d/src/win32/README0000644000175000017500000000025510771740456014776 0ustar segresegreThese files are needed to create a Win32 dll of the ifeffit library that can be easily called from C. The files here should be used to replace the 'normal' unix versions. ifeffit-1.2.11d/src/Makefile.in0000644000175000017500000002043711110327210015176 0ustar segresegre# Makefile.in generated automatically by automake 1.4 from Makefile.am # Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. SHELL = @SHELL@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ sbindir = @sbindir@ libexecdir = @libexecdir@ datadir = @datadir@ sysconfdir = @sysconfdir@ sharedstatedir = @sharedstatedir@ localstatedir = @localstatedir@ libdir = @libdir@ infodir = @infodir@ mandir = @mandir@ includedir = @includedir@ oldincludedir = /usr/include DESTDIR = pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = .. AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS) INSTALL_DATA = @INSTALL_DATA@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ transform = @program_transform_name@ NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : host_alias = @host_alias@ host_triplet = @host@ CC = @CC@ CPP = @CPP@ CXX = @CXX@ CXXCPP = @CXXCPP@ F2C = @F2C@ F2CFLAGS = @F2CFLAGS@ F77 = @F77@ FFLAGS = @FFLAGS@ FLIBS = @FLIBS@ PGPLOT_LIBS = @PGPLOT_LIBS@ MAKEINFO = @MAKEINFO@ NM = @NM@ PACKAGE = @PACKAGE@ RANLIB = @RANLIB@ VERSION = @VERSION@ canonical_host_type = @canonical_host_type@ SUBDIRS = pgstub cldata fefftab lib test cmdline autobk feffit diffkk feff6 ## SUBDIRS = pgstub cldata fefftab lib test cmdline autobk feffit diffkk feff6 Feff6X mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs CONFIG_HEADER = ../config.h CONFIG_CLEAN_FILES = DIST_COMMON = Makefile.in DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) TAR = gtar GZIP_ENV = --best all: all-redirect .SUFFIXES: Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status $(BUILT_SOURCES) cd $(top_builddir) \ && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. @SET_MAKE@ all-recursive install-data-recursive install-exec-recursive \ installdirs-recursive install-recursive uninstall-recursive \ check-recursive installcheck-recursive info-recursive dvi-recursive: @set fnord $(MAKEFLAGS); amf=$$2; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || case "$$amf" in *=*) exit 1;; *k*) fail=yes;; *) exit 1;; esac; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" mostlyclean-recursive clean-recursive distclean-recursive \ maintainer-clean-recursive: @set fnord $(MAKEFLAGS); amf=$$2; \ dot_seen=no; \ rev=''; list='$(SUBDIRS)'; for subdir in $$list; do \ rev="$$subdir $$rev"; \ test "$$subdir" = "." && dot_seen=yes; \ done; \ test "$$dot_seen" = "no" && rev=". $$rev"; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || case "$$amf" in *=*) exit 1;; *k*) fail=yes;; *) exit 1;; esac; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done tags: TAGS ID: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ here=`pwd` && cd $(srcdir) \ && mkid -f$$here/ID $$unique $(LISP) TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) $(LISP) tags=; \ here=`pwd`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test -f $$subdir/TAGS && tags="$$tags -i $$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \ || (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags $$unique $(LISP) -o $$here/TAGS) mostlyclean-tags: clean-tags: distclean-tags: -rm -f TAGS ID maintainer-clean-tags: distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir) subdir = src distdir: $(DISTFILES) here=`cd $(top_builddir) && pwd`; \ top_distdir=`cd $(top_distdir) && pwd`; \ distdir=`cd $(distdir) && pwd`; \ @for file in $(DISTFILES); do \ d=$(srcdir); \ if test -d $$d/$$file; then \ cp -pr $$/$$file $(distdir)/$$file; \ else \ test -f $(distdir)/$$file \ || ln $$d/$$file $(distdir)/$$file 2> /dev/null \ || cp -p $$d/$$file $(distdir)/$$file || :; \ fi; \ done for subdir in $(SUBDIRS); do \ if test "$$subdir" = .; then :; else \ test -d $(distdir)/$$subdir \ || mkdir $(distdir)/$$subdir \ || exit 1; \ chmod 777 $(distdir)/$$subdir; \ (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir=../$(top_distdir) distdir=../$(distdir)/$$subdir distdir) \ || exit 1; \ fi; \ done info-am: info: info-recursive dvi-am: dvi: dvi-recursive check-am: all-am check: check-recursive installcheck-am: installcheck: installcheck-recursive install-exec-am: install-exec: install-exec-recursive install-data-am: install-data: install-data-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am install: install-recursive uninstall-am: uninstall: uninstall-recursive all-am: Makefile all-redirect: all-recursive install-strip: $(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install installdirs: installdirs-recursive installdirs-am: mostlyclean-generic: clean-generic: distclean-generic: -rm -f Makefile $(CONFIG_CLEAN_FILES) -rm -f config.cache config.log maintainer-clean-generic: mostlyclean-am: mostlyclean-tags mostlyclean-generic mostlyclean: mostlyclean-recursive clean-am: clean-tags clean-generic mostlyclean-am clean: clean-recursive distclean-am: distclean-tags distclean-generic clean-am distclean: distclean-recursive maintainer-clean-am: maintainer-clean-tags maintainer-clean-generic \ distclean-am @echo "This command is intended for maintainers to use;" @echo "it deletes files that may require special tools to rebuild." maintainer-clean: maintainer-clean-recursive .PHONY: install-data-recursive uninstall-data-recursive \ install-exec-recursive uninstall-exec-recursive installdirs-recursive \ uninstalldirs-recursive all-recursive check-recursive \ installcheck-recursive info-recursive dvi-recursive \ mostlyclean-recursive distclean-recursive clean-recursive \ maintainer-clean-recursive tags tags-recursive mostlyclean-tags \ distclean-tags clean-tags maintainer-clean-tags distdir info-am info \ dvi-am dvi check check-am installcheck-am installcheck install-exec-am \ install-exec install-data-am install-data install-am install \ uninstall-am uninstall all-redirect all-am all installdirs-am \ installdirs mostlyclean-generic distclean-generic clean-generic \ maintainer-clean-generic clean mostlyclean distclean maintainer-clean # feffit perl_mod python_mod tcl_mod # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: ifeffit-1.2.11d/src/diffkk/0000755000175000017500000000000011117272040014370 5ustar segresegreifeffit-1.2.11d/src/diffkk/dkfit.f0000644000175000017500000000223710771740460015657 0ustar segresegre subroutine dkfit c part of diffkk c match the externally supplied mu(E) to f'' from CL, allowing c a band-limited differential KK transform to be done. here, we c set up for, and call to lmdif1, for a non-linear least-squares c fit using subroutine dkfcn. include "dkcom.f" integer lenwrk, lenfvc, lminfo, nofx, i, iwork(mvarys) parameter(lenwrk = 2*mpts*(mvarys + 1) + 20*mvarys ) parameter(lenfvc = mpts) double precision work(lenwrk), fvect(lenfvc), toler, etmp parameter (toler = 1.d-5) external nofx, dkfcn c make sure e0 is set if (e0.le.0) call findee(npts, energy, expdat, e0) c find useful indices in the energy array nelo = 1 nehi = npts ne0 = min(npts, max(1, nofx( e0 , energy, npts)) ) ne0ish = ne0 - 5 ne0dif = 200 c initialize variables do 10 i = 1, mvarys xvarys(i) = 0.d0 10 continue c xvarys(3) should be ~1 xvarys(3) = 1.0 numvar = 4 lminfo = 0 c call lmdif1 call lmdif1 (dkfcn, npts, numvar, xvarys, fvect, $ toler, lminfo, iwork, work, lenwrk) c done! return end ifeffit-1.2.11d/src/diffkk/fplog.f0000644000175000017500000000421110771740460015657 0ustar segresegre subroutine fplog c c write log of diffkk. note that diffkk.log *can* be used as diffkk.inp include "dkcom.f" integer istrln, ilog, ier, iex, ilen, i character*70 stat*10, logfil, str, atsym*2 external istrln, atsym data stat /'unknown'/ c---------------------------------------------------------------------- c determine log file name (usually trivial) c but if not, find the *last* "." logfil = 'deltaf.log' c open log file ilog = 0 ier = 0 iex = 0 call openfl(ilog, logfil, stat, iex, ier) if (ier.lt.0) go to 5000 c c write version number write(str,10) versn 10 format(' -- deltaf version ',a, '--') ilen = istrln(str) write(ilog,900) str(1:ilen) write(ilog,900) ' program inputs or default values used:' if (ntitle.le.0) then write (ilog, 910) 'title', $ 'deltaf: no title lines specified' else do 100 i = 1, ntitle ilen = max(1, istrln(title(i))) write (ilog, 910) 'title', title(i)(1:ilen) 100 continue end if ilen = max(15, istrln(outfil)) write (ilog, 930) 'iz', iatz, 'atomic number of core atom' write (ilog, 920) 'out', outfil(1:ilen), 'output file name' c write (ilog, 950) 'elow', elow, $ 'low-energy of calculation range' write (ilog, 950) 'ehigh', ehigh, $ 'high-energy of calculation range' write (ilog, 950) 'egrid', egrid,'energy grid for calculation' write (ilog, 950) 'ewidth', ewidth,'for broadening CL data' c write(ilog,905) ' end % '// $ 'all remaining lines will be ignored on input' write(ilog,905) ' -- end deltaf log file --' c close(ilog) return 900 format(1x,'# ',a) 905 format(1x, a) 910 format(1x, a8, ' = ', a) 920 format(1x, a8, ' = ', a , 1x,'% ',a) 930 format(1x, a8, ' = ', i4 , 12x,'% ',a) 950 format(1x, a8, ' = ', f11.4, 5x,'% ',a) 955 format(6x, a10, ' = ', g15.6) 5000 continue call messag(' weird, fatal error trying to open input file') stop end ifeffit-1.2.11d/src/diffkk/kkmclf.f0000644000175000017500000000232110771740460016017 0ustar segresegre subroutine kkmclf(npts, e, finp, fout) c forward (f'->f'') kk transform, using mclaurin series algorithm c arguments: c npts size of arrays to consider c e energy array *must be on an even grid* [npts] (in) c finp f' array [npts] (in) c fout f'' array [npts] (out) c notes fopi = 4/pi implicit none double precision e(*), finp(*), fout(*) double precision factor, ei2, de2, fopi, zero, tiny parameter(fopi = 1.273239544735163d0, zero = 0.d0, tiny=1.d-20) integer npts, i, j, k, ioff, nptsk if (npts.ge.2) then factor = fopi * (e(npts) - e(1)) / (npts - 1) nptsk = npts / 2 do 100 i=1, npts fout(i) = zero ei2 = e(i) * e(i) ioff = mod(i,2) - 1 do 50 k = 1, nptsk j = k + k + ioff de2 = e(j)*e(j) - ei2 if (abs(de2).le.tiny) de2 = tiny fout(i) = fout(i) + finp(j) / de2 50 continue fout(i) = factor * fout(i) * e(i) 100 continue end if return c end subroutine kkmclf end ifeffit-1.2.11d/src/diffkk/lib.f0000644000175000017500000002321610771740460015324 0ustar segresegre subroutine messag(messg) c write message to standard ouput with (1x,a) format character*(*) messg write(*,'(1x,a)') messg return c end subroutine messag end subroutine getcom(prompt, iuin, commnd, files, iunit, $ mfiles, nfiles) c c get next command line from unit iuin, or from a command file. c some rudimentary error checking is done here. c c prompt string to display when expecting input (in) c iuin default unit to read from (in) c files array of command files to use (in/out) c mfiles max number of command files to use (in/out) c commnd next command line to execute (out) c integer mwords, ii, ipro, mfiles, nfiles parameter (mwords = 3) character*(*) prompt, commnd, files(mfiles) character*80 line, words(mwords), errmsg, prom, stat*7 integer iunit(mfiles), istrln, nwords external istrln data stat /'old'/ c--------------------------------------------------------------------- call triml(prompt) prom = prompt ipro = istrln(prom) if (ipro.le.1) then prom = ' ' ipro = 1 end if iu0 = iuin if (iu0.le.0) iu0 = 5 30 format(1x,a, '>',$) 40 format(a) 100 continue c read command from prompt (standard input) c or from current input command lines from an external file line = ' ' commnd = ' ' if ((nfiles.lt.0).or.(nfiles.gt.mfiles)) nfiles = 0 if (nfiles.eq.0) then if ((iu0.eq.5).and.(ipro.gt.1)) then write(*, 30) prom(1:ipro) end if read ( iu0 ,40, err = 600, end = 600) line else read(iunit(nfiles),40, err =1000, end = 500) line end if c c check if command line is 'load filename'. c if so, open that file, and put it in the files stack call triml(line) call untab(line) nwords = mwords words(1) = ' ' words(2) = ' ' call bwords(line, nwords, words) if ((line.eq.' ').or.(nwords.le.0)) go to 100 call smcase(words(1),'a') if ( (words(1)(1:5).eq.'load ').or. $ (words(1)(1:8).eq.'include ').or. $ (words(1)(1:6).eq.'input ')) then if (words(2).eq.' ') then call messag( ' ##> no file name given. syntax is'// $ ' include filename ') go to 100 end if nfiles = nfiles + 1 if (nfiles.gt.mfiles) go to 2000 call getfln(words(2),files(nfiles), errmsg) do 400 i = 1, nfiles - 1 if (files(nfiles).eq.files(i)) go to 3000 400 continue iunit(nfiles) = 0 call openfl(iunit(nfiles), files(nfiles), stat, iexist, ierr) if (iexist.lt.0) go to 2600 if (ierr.lt.0) go to 2800 go to 100 elseif ((words(1)(1:1).eq.'*').or.(words(1)(1:1).eq.'#')) then commnd = ' ' go to 100 else commnd = line end if return c c end-of-file for command line file: drop nfiles by 1, c return to get another command line 500 continue close(iunit(nfiles)) nfiles = nfiles - 1 if (nfiles.lt.0) nfiles = 0 if (ipro.gt.1) go to 100 commnd = 'getcom_eof' return c 600 continue commnd = 'getcom_end' return c c warning and error messages 1000 continue call messag(' ##> error reading from "include"d file: ' ) errmsg = files(nfiles) ii = max(1, istrln(errmsg)) call messag(' ##> '//errmsg(1:ii) ) go to 5000 2000 continue call messag(' ##> error: too many nested "include"d files: ' ) write(errmsg, '(1x,a,i3)') ' ##>current limit is ', mfiles ii = max(1, istrln(errmsg)) call messag(' ##> '//errmsg(1:ii) ) go to 5000 2600 continue call messag(' ##> error: can not find "include"d file: ' ) errmsg = files(nfiles) ii = max(1, istrln(errmsg)) call messag(' ##> '//errmsg(1:ii) ) go to 5000 2800 continue call messag(' ##> error: can not open "include"d file: ' ) errmsg = files(nfiles) ii = max(1, istrln(errmsg)) call messag(' ##> '//errmsg(1:ii) ) go to 5000 3000 continue call messag(' ##> error: recursive "include" of file:') errmsg = files(nfiles) ii = max(1, istrln(errmsg)) call messag(' ##> '//errmsg(1:ii) ) go to 5000 c 5000 continue commnd = 'getcom_error' return c c end subroutine getcom end subroutine fixstr(string,str,ilen,words,wrdsor,mwords,nwords) c simple preparation of string for reading of keywords integer ilen, mwords, nwords, i, lenp1 integer iexcla, iperct, ihash, ieolc, istrln character*(*) string, str, words(mwords), wrdsor(mwords) c c fix-up string: untab, left-justify, make a lower-case version nwords = 0 call untab(string) str = string call triml(str) call smcase( str, 'case') c remove comments from str: c '!', '#', and '%' are end of line comments c '*' is a complete comment line if in col 1 lenp1 = len(str) + 1 iexcla = index(str,'!') if (iexcla.eq.0) iexcla = lenp1 iperct = index(str,'%') if (iperct.eq.0) iperct = lenp1 ihash = index(str,'#') if (ihash.eq.0) ihash = lenp1 ieolc = min(iperct,iexcla,ihash) - 1 if ((ieolc.lt.1).or.(str(1:1).eq.'*')) ieolc = 1 str = str(1:ieolc) ilen = max(1, istrln(str)) if (ilen.le.2) return c break string into words (up to mwords) c words is in lower case, wrdsor is in original case do 120 i = 1, mwords words(i) = ' ' wrdsor(i) = ' ' 120 continue nwords = mwords call bwords(str , nwords, words) call bwords(string, nwords, wrdsor) c end subroutine fixstr return end subroutine askstr(ask, str) c c prompt for and return a characer string. c see also the routines askint, and askval. c inputs: c ask character string for prompt c str default string to show in prompt c outputs: c str string read in c copyright 1993 university of washington matt newville character*(*) ask , str character*80 query , answer integer i , j, k, istrln external istrln query = ask call triml(query) call triml(str) i = max(1, istrln(query) ) j = max(1, istrln(str) ) k = max(1, min(80, len(str))) 30 format (2x,a,' [', a, '] >',$) write(*, 30 ) query(1:i), str(1:j) read (*, '(a)', err= 50) answer call triml(answer) if (istrln(answer).ge.1) str = answer(1:k) 50 continue return c end subroutine askstr end subroutine askdp(ask, val) c prompt for and return a double precision number c inputs: c ask character string for prompt c val default dp number to show in prompt c outputs: c val dp number read in c copyright 1993 university of washington matt newville character*(*) ask, answer*30 , query*80 integer i, istrln double precision val, tmp external istrln query = ask i = max(1, istrln(query) ) 30 format( 2x,a,' [', g16.8, '] >',$) write(*, 30) query(1:i), val read (*, '(a)', err = 50) answer if ( answer.ne.' ') then call str2dp(answer, tmp, ierr) if (ierr.eq. 0 ) val = tmp end if 50 continue return c end subroutine askdp end subroutine askint(ask, int) c prompt for and return an integer. c inputs: c ask character string for prompt c int default integer to show in prompt c outputs: c int integer read in c copyright 1993 university of washington matt newville character*(*) ask, answer*30, query*80 integer i, istrln, int, itmp external istrln query = ask call triml(query) i = max(1, istrln(query) ) 30 format( 2x,a,' [', i4, '] >',$) write(*, 30) query(1:i), int read (*, '(a)', err = 50) answer call triml(answer) if (istrln(answer).ge.1) then call str2in(answer, itmp, ierr) if (ierr.eq. 0 ) int = itmp end if 50 continue return c end subroutine askint end character*2 function atsym (iz) character*2 sym(103) common /atsyms/ sym save atsym = 'xx' if ((iz.le.103).and.(iz.gt.0)) atsym = sym(iz) call upper(atsym(1:1)) return end c integer function iatsym (symin) character*2 sym(103), symin common /atsyms/ sym save call smcase(symin,sym(1)) do 10 iatsym = 1, 103 if (symin.eq.sym(iatsym)) return 10 continue iatsym = 0 return end c block data prtabl character*2 sym(103) common /atsyms/ sym data sym / 'h' ,'he','li','be','b' ,'c' ,'n' ,'o' ,'f' ,'ne', $ 'na','mg','al','si','p' ,'s' ,'cl','ar','k' ,'ca','sc','ti', $ 'v' ,'cr','mn','fe','co','ni','cu','zn','ga','ge','as','se', $ 'br','kr','rb','sr','y' ,'zr','nb','mo','tc','ru','rh','pd', $ 'ag','cd','in','sn','sb','te','i' ,'xe','cs','ba','la','ce', $ 'pr','nd','pm','sm','eu','gd','tb','dy','ho','er','tm','yb', $ 'lu','hf','ta','w' ,'te','os','ir','pt','au','hg','tl','pb', $ 'bi','po','at','rn','fr','ra','ac','th','pa','u' ,'np','pu', $ 'am','cm','bk','cf','es','fm','md','no','lw'/ end ifeffit-1.2.11d/src/diffkk/f2c.h0000644000175000017500000002503110771740460015227 0ustar segresegre/* f2c.h -- Standard Fortran to C header file */ /** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ #ifndef F2C_INCLUDE #define F2C_INCLUDE typedef int integer; /* This is 'long int' in the standard distribution */ typedef unsigned long uinteger; typedef char *address; typedef short int shortint; typedef float real; typedef double doublereal; typedef struct { real r, i; } complex; typedef struct { doublereal r, i; } doublecomplex; typedef long int logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; #if 0 /* Adjust for integer*8. */ typedef long long longint; /* system-dependent */ typedef unsigned long long ulongint; /* system-dependent */ #define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) #define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) #endif #define TRUE_ (1) #define FALSE_ (0) /* Extern is for use with -E */ #ifndef Extern #define Extern extern #endif /* I/O stuff */ #ifdef f2c_i2 /* for -i2 */ typedef short flag; typedef short ftnlen; typedef short ftnint; #else typedef long int flag; typedef long int ftnlen; typedef long int ftnint; #endif /*external read, write*/ typedef struct { flag cierr; ftnint ciunit; flag ciend; char *cifmt; ftnint cirec; } cilist; /*internal read, write*/ typedef struct { flag icierr; char *iciunit; flag iciend; char *icifmt; ftnint icirlen; ftnint icirnum; } icilist; /*open*/ typedef struct { flag oerr; ftnint ounit; char *ofnm; ftnlen ofnmlen; char *osta; char *oacc; char *ofm; ftnint orl; char *oblnk; } olist; /*close*/ typedef struct { flag cerr; ftnint cunit; char *csta; } cllist; /*rewind, backspace, endfile*/ typedef struct { flag aerr; ftnint aunit; } alist; /* inquire */ typedef struct { flag inerr; ftnint inunit; char *infile; ftnlen infilen; ftnint *inex; /*parameters in standard's order*/ ftnint *inopen; ftnint *innum; ftnint *innamed; char *inname; ftnlen innamlen; char *inacc; ftnlen inacclen; char *inseq; ftnlen inseqlen; char *indir; ftnlen indirlen; char *infmt; ftnlen infmtlen; char *inform; ftnint informlen; char *inunf; ftnlen inunflen; ftnint *inrecl; ftnint *innrec; char *inblank; ftnlen inblanklen; } inlist; #define VOID void union Multitype { /* for multiple entry points */ integer1 g; shortint h; integer i; /* longint j; */ real r; doublereal d; complex c; doublecomplex z; }; typedef union Multitype Multitype; /*typedef long int Long;*/ /* No longer used; formerly in Namelist */ struct Vardesc { /* for Namelist */ char *name; char *addr; ftnlen *dims; int type; }; typedef struct Vardesc Vardesc; struct Namelist { char *name; Vardesc **vars; int nvars; }; typedef struct Namelist Namelist; #define abs(x) ((x) >= 0 ? (x) : -(x)) #define dabs(x) (doublereal)abs(x) #define min(a,b) ((a) <= (b) ? (a) : (b)) #define max(a,b) ((a) >= (b) ? (a) : (b)) #define dmin(a,b) (doublereal)min(a,b) #define dmax(a,b) (doublereal)max(a,b) #define bit_test(a,b) ((a) >> (b) & 1) #define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) #define bit_set(a,b) ((a) | ((uinteger)1 << (b))) /* procedure parameter types for -A and -C++ */ #define F2C_proc_par_types 1 #ifdef __cplusplus typedef int /* Unknown procedure type */ (*U_fp)(...); typedef shortint (*J_fp)(...); typedef integer (*I_fp)(...); typedef real (*R_fp)(...); typedef doublereal (*D_fp)(...), (*E_fp)(...); typedef /* Complex */ VOID (*C_fp)(...); typedef /* Double Complex */ VOID (*Z_fp)(...); typedef logical (*L_fp)(...); typedef shortlogical (*K_fp)(...); typedef /* Character */ VOID (*H_fp)(...); typedef /* Subroutine */ int (*S_fp)(...); #else typedef int /* Unknown procedure type */ (*U_fp)(); typedef shortint (*J_fp)(); typedef integer (*I_fp)(); typedef real (*R_fp)(); typedef doublereal (*D_fp)(), (*E_fp)(); typedef /* Complex */ VOID (*C_fp)(); typedef /* Double Complex */ VOID (*Z_fp)(); typedef logical (*L_fp)(); typedef shortlogical (*K_fp)(); typedef /* Character */ VOID (*H_fp)(); typedef /* Subroutine */ int (*S_fp)(); #endif /* E_fp is for real functions when -R is not specified */ typedef VOID C_f; /* complex function */ typedef VOID H_f; /* character function */ typedef VOID Z_f; /* double complex function */ typedef doublereal E_f; /* real function with -R not specified */ /* undef any lower-case symbols that your C compiler predefines, e.g.: */ #ifndef Skip_f2c_Undefs #undef cray #undef gcos #undef mc68010 #undef mc68020 #undef mips #undef pdp11 #undef sgi #undef sparc #undef sun #undef sun2 #undef sun3 #undef sun4 #undef u370 #undef u3b #undef u3b2 #undef u3b5 #undef unix #undef vax #endif #endif /* If you are using a C++ compiler, append the following to f2c.h for compiling libF77 and libI77. */ #ifdef __cplusplus extern "C" { extern int abort_(void); extern double c_abs(complex *); extern void c_cos(complex *, complex *); extern void c_div(complex *, complex *, complex *); extern void c_exp(complex *, complex *); extern void c_log(complex *, complex *); extern void c_sin(complex *, complex *); extern void c_sqrt(complex *, complex *); extern double d_abs(double *); extern double d_acos(double *); extern double d_asin(double *); extern double d_atan(double *); extern double d_atn2(double *, double *); extern void d_cnjg(doublecomplex *, doublecomplex *); extern double d_cos(double *); extern double d_cosh(double *); extern double d_dim(double *, double *); extern double d_exp(double *); extern double d_imag(doublecomplex *); extern double d_int(double *); extern double d_lg10(double *); extern double d_log(double *); extern double d_mod(double *, double *); extern double d_nint(double *); extern double d_prod(float *, float *); extern double d_sign(double *, double *); extern double d_sin(double *); extern double d_sinh(double *); extern double d_sqrt(double *); extern double d_tan(double *); extern double d_tanh(double *); extern double derf_(double *); extern double derfc_(double *); extern integer do_fio(ftnint *, char *, ftnlen); extern integer do_lio(ftnint *, ftnint *, char *, ftnlen); extern integer do_uio(ftnint *, char *, ftnlen); extern integer e_rdfe(void); extern integer e_rdue(void); extern integer e_rsfe(void); extern integer e_rsfi(void); extern integer e_rsle(void); extern integer e_rsli(void); extern integer e_rsue(void); extern integer e_wdfe(void); extern integer e_wdue(void); extern integer e_wsfe(void); extern integer e_wsfi(void); extern integer e_wsle(void); extern integer e_wsli(void); extern integer e_wsue(void); extern int ef1asc_(ftnint *, ftnlen *, ftnint *, ftnlen *); extern integer ef1cmc_(ftnint *, ftnlen *, ftnint *, ftnlen *); extern double erf(double); extern double erf_(float *); extern double erfc(double); extern double erfc_(float *); extern integer f_back(alist *); extern integer f_clos(cllist *); extern integer f_end(alist *); extern void f_exit(void); extern integer f_inqu(inlist *); extern integer f_open(olist *); extern integer f_rew(alist *); extern int flush_(void); extern void getarg_(integer *, char *, ftnlen); extern void getenv_(char *, char *, ftnlen, ftnlen); extern short h_abs(short *); extern short h_dim(short *, short *); extern short h_dnnt(double *); extern short h_indx(char *, char *, ftnlen, ftnlen); extern short h_len(char *, ftnlen); extern short h_mod(short *, short *); extern short h_nint(float *); extern short h_sign(short *, short *); extern short hl_ge(char *, char *, ftnlen, ftnlen); extern short hl_gt(char *, char *, ftnlen, ftnlen); extern short hl_le(char *, char *, ftnlen, ftnlen); extern short hl_lt(char *, char *, ftnlen, ftnlen); extern integer i_abs(integer *); extern integer i_dim(integer *, integer *); extern integer i_dnnt(double *); extern integer i_indx(char *, char *, ftnlen, ftnlen); extern integer i_len(char *, ftnlen); extern integer i_mod(integer *, integer *); extern integer i_nint(float *); extern integer i_sign(integer *, integer *); extern integer iargc_(void); extern ftnlen l_ge(char *, char *, ftnlen, ftnlen); extern ftnlen l_gt(char *, char *, ftnlen, ftnlen); extern ftnlen l_le(char *, char *, ftnlen, ftnlen); extern ftnlen l_lt(char *, char *, ftnlen, ftnlen); extern void pow_ci(complex *, complex *, integer *); extern double pow_dd(double *, double *); extern double pow_di(double *, integer *); extern short pow_hh(short *, shortint *); extern integer pow_ii(integer *, integer *); extern double pow_ri(float *, integer *); extern void pow_zi(doublecomplex *, doublecomplex *, integer *); extern void pow_zz(doublecomplex *, doublecomplex *, doublecomplex *); extern double r_abs(float *); extern double r_acos(float *); extern double r_asin(float *); extern double r_atan(float *); extern double r_atn2(float *, float *); extern void r_cnjg(complex *, complex *); extern double r_cos(float *); extern double r_cosh(float *); extern double r_dim(float *, float *); extern double r_exp(float *); extern double r_imag(complex *); extern double r_int(float *); extern double r_lg10(float *); extern double r_log(float *); extern double r_mod(float *, float *); extern double r_nint(float *); extern double r_sign(float *, float *); extern double r_sin(float *); extern double r_sinh(float *); extern double r_sqrt(float *); extern double r_tan(float *); extern double r_tanh(float *); extern void s_cat(char *, char **, integer *, integer *, ftnlen); extern integer s_cmp(char *, char *, ftnlen, ftnlen); extern void s_copy(char *, char *, ftnlen, ftnlen); extern int s_paus(char *, ftnlen); extern integer s_rdfe(cilist *); extern integer s_rdue(cilist *); extern integer s_rnge(char *, integer, char *, integer); extern integer s_rsfe(cilist *); extern integer s_rsfi(icilist *); extern integer s_rsle(cilist *); extern integer s_rsli(icilist *); extern integer s_rsne(cilist *); extern integer s_rsni(icilist *); extern integer s_rsue(cilist *); extern int s_stop(char *, ftnlen); extern integer s_wdfe(cilist *); extern integer s_wdue(cilist *); extern integer s_wsfe(cilist *); extern integer s_wsfi(icilist *); extern integer s_wsle(cilist *); extern integer s_wsli(icilist *); extern integer s_wsne(cilist *); extern integer s_wsni(icilist *); extern integer s_wsue(cilist *); extern void sig_die(char *, int); extern integer signal_(integer *, void (*)(int)); extern integer system_(char *, ftnlen); extern double z_abs(doublecomplex *); extern void z_cos(doublecomplex *, doublecomplex *); extern void z_div(doublecomplex *, doublecomplex *, doublecomplex *); extern void z_exp(doublecomplex *, doublecomplex *); extern void z_log(doublecomplex *, doublecomplex *); extern void z_sin(doublecomplex *, doublecomplex *); extern void z_sqrt(doublecomplex *, doublecomplex *); } #endif ifeffit-1.2.11d/src/diffkk/fpinp.f0000644000175000017500000000776410771740460015704 0ustar segresegre subroutine fpinp c read inputs for deltaf program from 'deltaf.inp' c include "dkcom.f" integer i, mfil, maxwrd,nwords, iwrds parameter(maxwrd = 30, mfil = 10) character*70 words(maxwrd), wrdsor(maxwrd), keywrd character*70 prompt*20,key*3,stat*10, string,str,comfil(mfil) integer istrln,icom(mfil), nfil, iinp, ier, iex, ilen, nline external istrln c initialization c initialize stuff in common active = .false. isfeff = .true. inpfil = 'deltaf.inp' xmufil = ' ' outfil = 'df.out' iatz = 8 iprint = 0 imucol = 2 iencol = 1 egrid = 1 elow = 3000 ehigh = 5000 ewidth = 1.5 c note: pre1/pre2 will be set in f2fit according c to whether data is from feff or not epad = 5 npad = 20 ntitle = 0 label =' e fp fpp' do 10 i = 1, mtitle title(i) = ' ' 10 continue c initialize local stuff prompt = 'f' stat = 'old' nline = 0 nfil = 0 ier = 0 iex = 0 iinp = 1 do 20 i = 1, mfil icom(i) = 0 20 continue c input file: if file is found, open it for reading, call openfl(iinp, inpfil, stat, iex, ier) if (iex.lt.0) then ilen = istrln(inpfil) call messag( ' '// inpfil(:ilen)// ' was not found'// $ ' -- let''s try this interactively') active = .true. endif c if (active) then call askint(' > atomic number',iatz) call messag(' Please give the low- and high-energy range') call messag(' for the calculatin in eV:') call askdp(' > elow ',elow) ehigh = 1000 + elow call askdp(' > ehigh ',ehigh) call askdp(' > energy grid ',egrid) call messag(' Please give a width for broadening the '// $ 'Cromer-Libermann calculation:') call askdp(' > ewidth ',ewidth) else c read in next line if ((iex.lt.0).or.(ier.ne.0)) go to 1990 100 continue keywrd = ' ' key = ' ' call getcom(prompt, iinp, string, comfil, icom, mfil, nfil) nline = nline + 1 c call fixstr(string,str,ilen,words,wrdsor,maxwrd,nwords) if ((ilen.le.2).or.(str.eq.'getcom_eof')) go to 100 if ((words(1).eq.'end').or.(str.eq.'getcom_end')) go to 1000 if (str.eq.'getcom_error') go to 1990 c parse current set of keywords from line 150 continue keywrd = words(1) key = keywrd(1:3) iwrds = 2 c inpfil,outfil,imucol,egrid,iatz if (keywrd.eq.'title') then ntitle = ntitle + 1 call strclp(string,wrdsor(1),wrdsor(2),title(ntitle)) iwrds = maxwrd + 1 else if (key.eq.'out') then outfil = wrdsor(2) else if (keywrd.eq.'iz') then call str2in(words(2),iatz,ier) else if (keywrd.eq.'ewidth') then call str2dp(words(2),ewidth,ier) else if (keywrd.eq.'egrid') then call str2dp(words(2),egrid,ier) else if (keywrd.eq.'elow') then call str2dp(words(2),elow,ier) else if (keywrd.eq.'ehigh') then call str2dp(words(2),ehigh,ier) end if if (nwords.gt.iwrds) then do 450 i = 1, nwords words(i) = words(i+iwrds) wrdsor(i) = wrdsor(i+iwrds) 450 continue nwords = nwords - iwrds go to 150 end if go to 100 end if 1000 continue close (iinp) c get energy range npts = min (mpts, max (1, int(( ehigh - elow) / egrid))) do 1200 i = 1, npts energy(i) = elow + egrid * i 1200 continue return 1990 continue call messag(' weird, fatal error trying to open file.') stop end ifeffit-1.2.11d/src/diffkk/outasc.f0000644000175000017500000000444210771740460016054 0ustar segresegre subroutine outasc(filnam, title, doc, ndoc, $ xd, mcol, mdata, ncol, ndata) c c write column data to ascii file c inputs (no outputs): c filnam file name to write data to c title string to use as label for columns c doc array of document lines c mdoc dimension of doc c xd (mcol,mdata) matrix of data c mcol dimension of xd c mdata dimension of xd c ncol number of columns to actually write c ndata number of data points to actually write implicit none integer ilen, istrln, i, iounit, ierr, mcol, mdata integer ndoc, mxl, ncol, ndata, iexist, j, ic double precision xd(mcol,mdata) character*(*) filnam, title, lines*20 character*(*) doc(ndoc) character fmt*18, cmt*2, cmtd*2, contc*5 parameter(mxl = 78, cmtd = '# ', contc = ' + ') parameter(lines = '--------------------') external istrln c c decide comment character cmt = cmtd ic = istrln(cmt) c open data file c if file name is ' ' or '*', write to standard output (unit 6) iounit = 6 if ((filnam.ne.' ').and.(filnam.ne.'*')) then iounit = 0 call openfl(iounit, filnam, 'unknown', iexist, ierr) if ((ierr.lt.0).or.(iexist.lt.0)) go to 990 endif c write documents do 200 i = 1, ndoc call triml(doc(i)) ilen = istrln(doc(i)) if (ilen.gt.mxl) then write(iounit,820) cmt,doc(i)(1:mxl) write(iounit,820) cmt//contc,doc(i)(mxl+1:ilen) else if (ilen.ge.1) then write(iounit,820) cmt,doc(i)(1:ilen) end if 200 continue c write line of minus signs and column label write(iounit,820) cmt(1:ic), lines//lines ilen = max(1,istrln(title)) write(iounit,820) cmt,title(1:ilen) c determine format write(fmt,850) ncol c write out column data do 400 i = 1, ndata write(iounit,fmt) (xd(j,i), j= 1,ncol) 400 continue c close data file and return close(iounit) return 820 format(2a) 830 format(a,40('-')) 850 format('(',i2,'(g15.7))') 990 continue fmt = 'outasc: error opening file '//filnam ilen = istrln(fmt) call messag(fmt(:ilen)) stop c end subroutine outasc end ifeffit-1.2.11d/src/diffkk/dklog.f0000644000175000017500000001102010771740460015644 0ustar segresegre subroutine dklog c c write log of diffkk. note that diffkk.log *can* be used as diffkk.inp include "dkcom.f" integer istrln, ilog, ier, iex, ilen, i character*70 stat*10, logfil, str, atsym*2 external istrln, atsym data stat /'unknown'/ c---------------------------------------------------------------------- c determine log file name (usually trivial) c but if not, find the *last* "." logfil = 'diffkk.log' c open log file ilog = 0 ier = 0 iex = 0 call openfl(ilog, logfil, stat, iex, ier) if (ier.lt.0) go to 5000 c c write version number write(str,10) versn 10 format(' -- diffkk version ',a, '--') ilen = istrln(str) write(ilog,900) str(1:ilen) write(ilog,900) ' program inputs or default values used:' if (ntitle.le.0) then write (ilog, 910) 'title', $ 'diffkk: no title lines specified' else do 100 i = 1, ntitle ilen = max(1, istrln(title(i))) write (ilog, 910) 'title', title(i)(1:ilen) 100 continue end if ilen = max(15, istrln(outfil)) write (ilog, 920) 'out', outfil(1:ilen), 'output file name' c ilen = max(15, istrln(xmufil)) write (ilog, 920) 'xmu', xmufil(1:ilen), $ 'file name for xmu data' c if (isfeff) then write (ilog, 981)'isfeff','file is a feff xmu.dat file' else write (ilog, 980)'isfeff','file is not a feff xmu.dat file' end if if (f2tof1) then write (ilog, 981)'f2_to_f1', 'transform f2-like data to f1' else write (ilog, 980)'f2_to_f1', 'transform f1-like data to f2' end if write (ilog, 930) 'encol',iencol,'column to read energy from' write (ilog, 930) 'mucol',imucol,'column to read mu(E) from' write (ilog, 930) 'iz', iatz, 'atomic number of core atom' write (ilog, 950) 'e0', e0 , 'edge energy (used as reference)' c write (ilog, 950) 'egrid', egrid,'energy grid for calculation' write (ilog, 950) 'ewidth', ewidth,'for broadening CL data' write (ilog, 950) 'elow', elow, $ 'how far below data range to calculate' write (ilog, 950) 'ehigh', ehigh, $ 'how far above data range to calculate' if (isfeff) then write(ilog,900) 'the following are for padding '// $ 'data from feff''s xmu.dat below e0' write (ilog, 950) 'epad', epad, 'energy grid for pre-padding' write (ilog, 930) 'npad', npad, $ 'number of points for pre-padding' end if c write(ilog,905) ' end % '// $ 'all remaining lines will be ignored on input' write(ilog,905) ' -- diffkk program summary --' write(ilog,905) ' ' write(ilog,905) ' f''''(E) was set to be' write(ilog,905) ' f''''(E) = f''''_CL(E) '// $ ' for E > e0+ehigh and E < e0-elow.' write(ilog,906) ' within the range E = [e0-elow, e0+ehigh],', $ ' f'''' was set to' write(ilog,905) ' f''''(E) = f''''_CL(E) + a0 '// $ '+ a1 * mu(E'') * ( E'' / e0)' write(ilog,905) ' + a2 * (E'' - e0) '// $ '+ a3 * (E'' - e0)**2 ' ilen = max(1,istrln(xmufil)) write(ilog,907) ' where mu(E) was read from ', $ xmufil(1:ilen),',' write(ilog,907) ' f''''_CL(E) was found for ', $ atsym(iatz), ', and E'' = E + e0_shift.' write(ilog,905) ' ' write(ilog,905) ' the values of e0_shift, a0, a1, a2, '// $ 'and a3 were determined to be:' write(ilog,955) 'e0_shift', xvarys(1) write(ilog,955) 'a0', xvarys(2) write(ilog,955) 'a1', xvarys(3) write(ilog,955) 'a2', xvarys(4) write(ilog,955) 'a3', xvarys(5) write(ilog,905) ' so as to best match f''''_CL(E)'// $ ' between E = [e0-elow, e0+ehigh]' write(ilog,905) ' ' write(ilog,905) ' -- end diffkk log file --' c close(ilog) return 900 format(1x,'# ',a) 905 format(1x, a) 906 format(1x, 2a) 907 format(1x, 3a) 910 format(1x, a8, ' = ', a) 920 format(1x, a8, ' = ', a , 1x,'% ',a) 930 format(1x, a8, ' = ', i4 , 12x,'% ',a) 950 format(1x, a8, ' = ', f11.4, 5x,'% ',a) 955 format(6x, a10, ' = ', g15.6) 980 format(1x, a8, ' = false', 11x,'% ',a) 981 format(1x, a8, ' = true', 12x,'% ',a) 5000 continue call messag(' weird, fatal error trying to open input file') stop end ifeffit-1.2.11d/src/diffkk/deltaf.f.gz0000644000175000017500000000153410771740460016433 0ustar segresegre‹¸J™;deltaf.f¥UÁnã8 ½ç+ˆbÛ%[§Àb»À^¶{ìO(²ì •%C–›Í|ý<ʲ“´)0ÀA$S$õH>ÒDé‚ï‚ì©Ñ6Êv£?ê´ÓAFMmAÒ5X jƒïéù…¥ i4®#:hç¤Û*”Ž¢¾k5+mfdœ²S£é®yS¾ßµw烨;°ä”·‚úôotøc°«Õn±$‚Ñ6%«Ò?ôgµœ5~@D¬•w´uÙq¬¶ûeÛÖÊÎû¯-Y'¬ûõåK ?Ed.Ù¬“}/õ ä ÀÁ-gúÈ´9âEü®ÃèaQïê‡b‘ržR¾i•5^%ÖUI†Å’\2Z7õêE÷LÔ%.Eù(«¢¢‚¶[¢gpB‡í‹rünP!fd‚Šív…ÅEÂmsìjM•’ÖR¯ÇQv,/ë¿Y·ª*hÙdfîŒèʤ ‚ÒJVãL4ÈÒÌCò-Ó—©‹€â«¦Ì VîNÔÓÜPЋ÷oÌíiø;Ëý€]q‚²XTidü!RvE¾lfTÈ<á¸ÁËù`ùì'·áü;«¦nûU8‰X\[}4M|¥?HŠWy÷n÷åŒó_æå,œe Y6¹œÔè×d·(÷"/èú¤8wÕd©žs³œàÉQ S%Ì)g¥©>«ì³JjÐ[ ‹Â>+ð­<Œ\4nÒ<Û+Ot4È za¤r˜"†æE4‘Y##b'~Þ´HŽ˜]îDÞ6lEÖ8Ö©5±ºê1´“q%·™H‚ï.¹½ ´Ï‰pI éØÖ˜–J³ëâ.3×]($'`Yi³ýpmGM_Ø$åëäiPÈ´›„ìœ,d µ=špœì¹bŒƒÊ¼3¸D%9¾qß÷÷\Nh‹&‡v+$x«>N§Ç[£eŸF f ™ñÙr˜Y-³Ù·µêðÍcž*ù®ê7fÎå9ÜÉQe¯‚¬[੤µøýÀéÀ“ï…¹“v¾Êü†'WY’Rë°ûúû@Z˜n[Ij¬ÌU«Œ¦¶U•’„¸¸n\ –÷ºWwùdæÍ“+üY¡wÏLé·”Œ–W»j Ã(özhC«e±ø’‚fƒ·l”_™ÊEÅ´å5 nT:¥]'Ûö§ú¥,KåRù-šÜ'Í} ¨TÕh ÷VeËÑd ­ó”¢/ŠR´êMÎF«JŠÃVB9;%Ú_ÐGó9i¸K¥±0½é#I…p"Jñ½£»pZñ Ë®4÷©â…·ôš›*¨ ‰†÷ƒUNÆØI£ø“H¢„‚Ù?YgÌ~n¢4ÿ8‚ñjPŠ{³’sª(Ý!k› ĤîØȇ$º¶2Ö ž£cìVÀ› Kf½“Å¥{ n¼ÔÆ-ˆ—BKXx §º$!·—z`ôŸù69ôѪ‘bG€OX­ônÒ"zy9¡“¼¼œ!  Î$ˆÕ2ŒK€ãS)5H wÊIˆ™ÔG©‡ÊY4œ}¼)¬ÇÖ' 8(·§iÍt¨{&ã«·È}SRc]KÎŒBŠÚ3¨¨GÒRz°/ñeˆŸz‹Ÿ•9¯”l×7•¡ð€L(¼[hõHE)CzG@ÑðgÕÇ(•žoÂxâ°˜Å?s»N–;·ô}³ã†xE ßÌ/ØXø²’Kß“ÇMhį XüÛjjvaèsæS<ÌôÞÅŠÎýê›·zö>ƒtظð_N©hPÌTŸ³"£1¹:Iç&|éMgoÂ-ÉÉ(òyå½ùmK™2›±ØûjuhÓþñìU_]ŽZÐHßõI ÷ÁóœEè$÷j·¿nFêcÍý.ÌÓÔ3Žeò”ƒ$fwÒ`uêà§Gòï„ríaÍÏüeýሃq6Þ¯Ù<Ù†^ÿ¸Sº—Õ!œ©UÞI”2û½®Å‰™õj4‡Sùxß2؇KÁßIt kÈ8²‰G×:ï4çü¨îâo‰ï-¾ô·¸ª`þ ˜ô&õ´¨××BNnL›hÛˆœÂÉ/Þ¾oÁã¾£·µ1pÎbØ´]åp‘ &ç°q+0{¼Þ©„CïlDëH9n®á–á¯_7ü:‰ˆ}lhßRX(ä5Ì ·“[ÃÎ e('º«à;©[ó&ÿ“è°Ñ“x`ùˆší™Póò?Eï/é'B×.ó¢|iàIsË©¯ÖÔÒ.~(ZÐzçYyP…›šéק™s^)á¦=tV?qЃ§ Šû‰ÁÝvŠæÄ£Jb?зÁÇÝ¡—øB!»)Aåk· áÀežãÃ5Äç8Dw~“Öñ½'ñ)ÑöˆeåTS,ûBŠ•Ã†Ã[þþiá;òÇ#t(ÈkÐn rå2§DGð÷h*~•9îó­á tÖÂå{ŸYóõG°§¤šÑ‘ 7 â+È9Q#Lîõ”¢ÏŒˆ®h~#rüðîöDüÆŸ.§¯|èðp«Å{Œ¯ž6“%ZeaJb>2ügW††Çëå8x]4'u™&"a›sg‘úOCùÞ Í°f') kk transform, using maclaurin series algorithm c arguments: c npts size of arrays to consider c e energy array *must be on an even grid* [npts] (in) c finp f'' array [npts] (in) c fout f' array [npts] (out) c m newville jan 1997 implicit none double precision e(*), finp(*), fout(*) double precision factor, ei2, de2, fopi, zero, tiny parameter(fopi = 1.273239544735163d0, zero = 0.d0, tiny=1.d-20) integer npts, i, j, k, ioff, nptsk if (npts.ge.2) then factor = - fopi * (e(npts) - e(1)) / (npts - 1) nptsk = npts / 2 do 100 i=1, npts fout(i) = zero ei2 = e(i) * e(i) ioff = mod(i,2) - 1 do 50 k = 1, nptsk j = k + k + ioff de2 = e(j)*e(j) - ei2 if (abs(de2).le.tiny) de2 = tiny fout(i) = fout(i) + e(j) * finp(j) / de2 50 continue fout(i) = factor * fout(i) 100 continue end if return c end subroutine kkmclr end subroutine kkmclf(npts, e, finp, fout) c forward (f'->f'') kk transform, using mclaurin series algorithm c arguments: c npts size of arrays to consider c e energy array *must be on an even grid* [npts] (in) c finp f' array [npts] (in) c fout f'' array [npts] (out) c notes fopi = 4/pi implicit none double precision e(*), finp(*), fout(*) double precision factor, ei2, de2, fopi, zero, tiny parameter(fopi = 1.273239544735163d0, zero = 0.d0, tiny=1.d-20) integer npts, i, j, k, ioff, nptsk if (npts.ge.2) then factor = fopi * (e(npts) - e(1)) / (npts - 1) nptsk = npts / 2 do 100 i=1, npts fout(i) = zero ei2 = e(i) * e(i) ioff = mod(i,2) - 1 do 50 k = 1, nptsk j = k + k + ioff de2 = e(j)*e(j) - ei2 if (abs(de2).le.tiny) de2 = tiny fout(i) = fout(i) + finp(j) / de2 50 continue fout(i) = factor * fout(i) * e(i) 100 continue end if return c end subroutine kkmclf end ifeffit-1.2.11d/src/diffkk/kkmclr.f0000644000175000017500000000232610771740460016040 0ustar segresegre subroutine kkmclr(npts, e, finp, fout) c reverse (f''->f') kk transform, using maclaurin series algorithm c arguments: c npts size of arrays to consider c e energy array *must be on an even grid* [npts] (in) c finp f'' array [npts] (in) c fout f' array [npts] (out) c m newville jan 1997 implicit none double precision e(*), finp(*), fout(*) double precision factor, ei2, de2, fopi, zero, tiny parameter(fopi = 1.273239544735163d0, zero = 0.d0, tiny=1.d-20) integer npts, i, j, k, ioff, nptsk if (npts.ge.2) then factor = - fopi * (e(npts) - e(1)) / (npts - 1) nptsk = npts / 2 do 100 i=1, npts fout(i) = zero ei2 = e(i) * e(i) ioff = mod(i,2) - 1 do 50 k = 1, nptsk j = k + k + ioff de2 = e(j)*e(j) - ei2 if (abs(de2).le.tiny) de2 = tiny fout(i) = fout(i) + e(j) * finp(j) / de2 50 continue fout(i) = factor * fout(i) 100 continue end if return c end subroutine kkmclr end ifeffit-1.2.11d/src/diffkk/Makefile.in0000644000175000017500000002074210771740460016455 0ustar segresegre# Makefile.in generated automatically by automake 1.4 from Makefile.am # Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. # Copyright (C) 2000 Matt Newville # # This file is free software; as a special exception the author gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY, to the extent permitted by law; without even the # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. SHELL = @SHELL@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ sbindir = @sbindir@ libexecdir = @libexecdir@ datadir = @datadir@ sysconfdir = @sysconfdir@ sharedstatedir = @sharedstatedir@ localstatedir = @localstatedir@ libdir = @libdir@ infodir = @infodir@ mandir = @mandir@ includedir = @includedir@ oldincludedir = /usr/include DESTDIR = pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = ../.. ACLOCAL = @ACLOCAL@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS) INSTALL_DATA = @INSTALL_DATA@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ transform = @program_transform_name@ NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : host_alias = @host_alias@ host_triplet = @host@ CC = @CC@ CPP = @CPP@ CXX = @CXX@ CXXCPP = @CXXCPP@ F2C = @F2C@ F2CFLAGS = @F2CFLAGS@ F77 = @F77@ FFLAGS = @FFLAGS@ FLIBS = @FLIBS@ MN_FLIBS = @MN_FLIBS@ MAKEINFO = @MAKEINFO@ NM = @NM@ PACKAGE = @PACKAGE@ RANLIB = @RANLIB@ VERSION = @VERSION@ canonical_host_type = @canonical_host_type@ bin_PROGRAMS = diffkk diffkk_SOURCES = diffkk.f lib.f dkinp.f str2at.f \ dkfit.f dkfcn.f dklog.f diffkk_OBJECTS = diffkk.o lib.o dkinp.o str2at.o \ dkfit.o dkfcn.o dklog.o all: all-redirect diffkk.o: dkcom.f ../lib/ifeffit.inc dkinp.o: dkcom.f dkfit.o: dkcom.f dkfcn.o: dkcom.f dklog.o: dkcom.f diffkk_LDADD = ../pgstub/pgstub.o ../lib/libifeffit.a $(MN_FLIBS) diffkk_DEPENDENCIES = ../lib/libifeffit.a ../pgstub/libnopgplot.a diffkk_LDFLAGS = mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs CONFIG_HEADER = ../../config.h CONFIG_CLEAN_FILES = PROGRAMS = $(bin_PROGRAMS) DEFS = @DEFS@ -I. -I$(srcdir) -I../.. CPPFLAGS = @CPPFLAGS@ LDFLAGS = @LDFLAGS@ LIBS = @LIBS@ F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS) F77LD = $(F77) F77LINK = $(F77LD) $(AM_FFLAGS) $(FFLAGS) $(LDFLAGS) -o $@ CFLAGS = @CFLAGS@ COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(LDFLAGS) -o $@ DIST_COMMON = Makefile.in DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) TAR = gtar GZIP_ENV = --best SOURCES = $(diffkk_SOURCES) OBJECTS = $(diffkk_OBJECTS) all: all-redirect .SUFFIXES: .SUFFIXES: .S .c .f .o .s Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status $(BUILT_SOURCES) cd $(top_builddir) \ && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status mostlyclean-binPROGRAMS: clean-binPROGRAMS: -test -z "$(bin_PROGRAMS)" || rm -f $(bin_PROGRAMS) distclean-binPROGRAMS: maintainer-clean-binPROGRAMS: install-binPROGRAMS: $(bin_PROGRAMS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(bindir) @list='$(bin_PROGRAMS)'; for p in $$list; do \ if test -f $$p; then \ echo " $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`"; \ $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`; \ else :; fi; \ done uninstall-binPROGRAMS: @$(NORMAL_UNINSTALL) list='$(bin_PROGRAMS)'; for p in $$list; do \ rm -f $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`; \ done .s.o: $(COMPILE) -c $< .S.o: $(COMPILE) -c $< mostlyclean-compile: -rm -f *.o core *.core clean-compile: distclean-compile: -rm -f *.tab.c maintainer-clean-compile: diffkk: $(diffkk_OBJECTS) $(diffkk_DEPENDENCIES) @rm -f diffkk $(F77LINK) $(diffkk_LDFLAGS) $(diffkk_OBJECTS) $(diffkk_LDADD) $(LIBS) .f.o: $(F77COMPILE) -c $< tags: TAGS ID: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ here=`pwd` && cd $(srcdir) \ && mkid -f$$here/ID $$unique $(LISP) TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) $(LISP) tags=; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \ || (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags $$unique $(LISP) -o $$here/TAGS) mostlyclean-tags: clean-tags: distclean-tags: -rm -f TAGS ID maintainer-clean-tags: distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir) subdir = src/diffkk distdir: $(DISTFILES) here=`cd $(top_builddir) && pwd`; \ top_distdir=`cd $(top_distdir) && pwd`; \ distdir=`cd $(distdir) && pwd`; \ @for file in $(DISTFILES); do \ d=$(srcdir); \ if test -d $$d/$$file; then \ cp -pr $$/$$file $(distdir)/$$file; \ else \ test -f $(distdir)/$$file \ || ln $$d/$$file $(distdir)/$$file 2> /dev/null \ || cp -p $$d/$$file $(distdir)/$$file || :; \ fi; \ done # DEPS_MAGIC := $(shell mkdir .deps > /dev/null 2>&1 || :) # -include $(DEP_FILES) mostlyclean-depend: clean-depend: distclean-depend: maintainer-clean-depend: %.o: %.c $(COMPILE) -c $< info-am: info: info-am dvi-am: dvi: dvi-am check-am: all-am check: check-am installcheck-am: installcheck: installcheck-am install-exec-am: install-binPROGRAMS install-exec: install-exec-am install-data-am: install-data: install-data-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am install: install-am uninstall-am: uninstall-binPROGRAMS uninstall: uninstall-am all-am: Makefile $(PROGRAMS) all-redirect: all-am install-strip: $(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install installdirs: $(mkinstalldirs) $(DESTDIR)$(bindir) mostlyclean-generic: clean-generic: distclean-generic: -rm -f Makefile $(CONFIG_CLEAN_FILES) -rm -f config.cache config.log stamp-h stamp-h[0-9]* maintainer-clean-generic: mostlyclean-am: mostlyclean-binPROGRAMS mostlyclean-compile \ mostlyclean-tags mostlyclean-depend mostlyclean-generic mostlyclean: mostlyclean-am clean-am: clean-binPROGRAMS clean-compile clean-tags clean-depend \ clean-generic mostlyclean-am clean: clean-am distclean-am: distclean-binPROGRAMS distclean-compile distclean-tags \ distclean-depend distclean-generic clean-am distclean: distclean-am maintainer-clean-am: maintainer-clean-binPROGRAMS \ maintainer-clean-compile maintainer-clean-tags \ maintainer-clean-depend maintainer-clean-generic \ distclean-am @echo "This command is intended for maintainers to use;" @echo "it deletes files that may require special tools to rebuild." maintainer-clean: maintainer-clean-am .PHONY: mostlyclean-binPROGRAMS distclean-binPROGRAMS clean-binPROGRAMS \ maintainer-clean-binPROGRAMS uninstall-binPROGRAMS install-binPROGRAMS \ mostlyclean-compile distclean-compile clean-compile \ maintainer-clean-compile tags mostlyclean-tags distclean-tags \ clean-tags maintainer-clean-tags distdir mostlyclean-depend \ distclean-depend clean-depend maintainer-clean-depend info-am info \ dvi-am dvi check check-am installcheck-am installcheck install-exec-am \ install-exec install-data-am install-data install-am install \ uninstall-am uninstall all-redirect all-am all installdirs \ mostlyclean-generic distclean-generic clean-generic \ maintainer-clean-generic clean mostlyclean distclean maintainer-clean # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: ifeffit-1.2.11d/src/diffkk/f2c-main.c0000644000175000017500000000027710771740460016151 0ustar segresegre#ifdef __cplusplus extern "C" { #endif #if defined (sun) int MAIN_ () { return 0; } #elif defined (linux) && defined(__ELF__) int MAIN__ () { return 0; } #endif #ifdef __cplusplus } #endif ifeffit-1.2.11d/src/diffkk/convl2.f0000644000175000017500000000176210771740460015763 0ustar segresegre subroutine convl2(npts, x, y, gamma, xout, yout) c broaden the two arrays x and y with a lorentzian c arrays are assumed to be on the same even grid c c note: gamma is the lorentzian width in units of grid points!! implicit none integer npts, i, j double precision x(npts), y(npts), xout(npts), yout(npts) double precision gamma, sum, factr, zero, one, small double precision tmpx, tmpy, gami2 parameter (zero = 0.d0, one = 1.d0, small = 1.d-20) gamma = max(small, gamma) gami2 = one /(gamma*gamma) do 100 i = 1, npts sum = zero tmpx = zero tmpy = zero do 50 j = 1, npts factr = 1 / ( 1 + gami2 * (j-i) * (j-i) ) sum = sum + factr tmpx = tmpx + x(j) * factr tmpy = tmpy + y(j) * factr 50 continue yout(i) = tmpy / max (small, sum) xout(i) = tmpx / max (small, sum) 100 continue return end ifeffit-1.2.11d/src/diffkk/dkfcn.f0000644000175000017500000000167010771740460015643 0ustar segresegre subroutine dkfcn(m,n,x,f,iflag) c fitting function to match data mu to CL f'' c used by lmdif1, called in routine dkfit include "dkcom.f" integer m,n,iflag, i, ipos double precision x(n),f(m), e, fx c ipos = 1 if (f2tof1) then do 100 i = 1, npts e = energy(i) + x(1) call lintrp(energy,expdat,npts,e,ipos,fx) f(i) = -f2cl(i) + x(2) + x(3) * fx + x(4) * e c f(i) = -f2cl(i) + x(2) + x(3) * fx c $ + e * (x(4) + x(5) * e ) 100 continue else do 200 i = 1, npts e = energy(i) + x(1) call lintrp(energy,expdat,npts,e,ipos,fx) f(i) = -f1cl(i) + x(2) + x(3) * fx + x(4) * e c f(i) = -f1cl(i) + x(2) + x(3) * fx c $ + e * (x(4) + x(5) * e ) 200 continue endif print *, 'dkfcn ' , f2tof1, npts, x return end ifeffit-1.2.11d/src/diffkk/diffkk.f0000644000175000017500000001727610771740460016025 0ustar segresegre program diffkk c c generate f' and f'' near x-ray resonances for an atom, including c fine-structure due to solid-state effects (ie, xafs/dafs). c c algorithm summary: c 1 the brennan-cowan implementation of the cromer-libermann (cl) c calculation is used as a starting set of a causal f' and f''. c modifications were made to the bc code, mostly to make it easier c to use, more closely f77 conforming, and smaller. this data is c convolved with a lorenztian, typically with a width of a few ev. c c 2 an externally supplied file containing the xafs mu(e) is used to c improve f''. special support for xmu.dat files from feff is c provided, or the external file can contain *measured* mu(e) for c the system of interest. a simple matching procedure is done to c make the supplied mu(e) match the f'' from cl. c c 3 a differential kramers-kronig transform is used to convert the c changes in f'' (ie f''_supplied - f''_cl) into the changes in f' c (ie f' - f'_cl). the kk transform is done using a maclaurin c series method, as suggested in the literature. c c the result is a causal pair of f' and f'' that reflect the c presence of the atoms neighboring the central atom. c c -- Further notes on the algorithms used and instructions for -- c -- program use are given in the program documentation. -- c c copyright 1997,...,2003 matt newville c c acknowledgements: julie cross, chuck bouldin, john rehr, and c bruce ravel contributed to the design of this code. c the best ideas were theirs. all mistakes are mine. c c 1.21 using ifeffit atomic data for core-width if ewidth=0 on input c include 'dkcom.f' include '../lib/ifeffit.inc' integer i, ncol, mcol, ierr, ilen parameter (mcol = 6) double precision df1(mpts), df2(mpts) double precision o1(mpts), o2(mpts), atz double precision pre_s1, pre_s2, pre_o1, pre_o2, pre_e1, pre_e2 character*128 str integer istrln, guess_iz external istrln, guess_iz versn = '1.3' ncol = mcol ndoc = mdoc npts = mpts c print version number i = ifeffit(' ') write(str,'(3a)') ' -- diffkk version ', versn, '--' ilen = istrln(str) call messag(str(1:ilen)) c read diffk.inp call dkinp c read mu(e) data, convert to f''(e) on an even energy grid write(str,'(2a)') ' Reading experimental data: ', $ xmufil ilen = istrln(str) call messag(str(1:ilen)) write(str,'(3a)') 'read_data(file=', $ xmufil(1:istrln(xmufil)),',group=dat,type=raw)' i = ifeffit(str) i = iffgetstr('column_label',str) if (str(1:13).eq.'--undefined--') then call messag( ' diffkk: fatal error.') goto 999 endif c write(str,'(a,i1)') 'set dat.energy = dat.',iencol if (iencol .ge.10) then write(str,'(a,i2)') 'set dat.energy = dat.',iencol endif i = ifeffit(str) write(str,'(a,i1)') 'set dat.expdat = dat.',imucol if (imucol .ge.10) then write(str,'(a,i2)') 'set dat.expdat = dat.',imucol endif i = ifeffit(str) i = iffgetarr('dat.energy', energy) npts = iffgetarr('dat.expdat', expdat) if (iatz .le.2) then iatz = guess_iz(energy, expdat, npts, e0) end if i = iffputsca('e0', e0) i = iffputsca('egrid', egrid) i = iffputsca('elow', elow) i = iffputsca('ehigh', ehigh) i = ifeffit('set ework1 = floor(dat.energy)') i = ifeffit('set ework2 = ceil(dat.energy)') i = ifeffit('set eout1 = floor(dat.energy) - elow') i = ifeffit('set eout2 = ceil(dat.energy) + ehigh') i = ifeffit('set w.energy = range(ework1,ework2,egrid)') i = ifeffit('set o.e1 = range(eout1,ework1-egrid,egrid)') i = ifeffit('set o.e2 = range(ework2+egrid,eout2,egrid)') i = ifeffit('set o.energy = range(eout1,eout2,egrid)') i = ifeffit('set w.expdat = linterp(dat.energy,'// $ 'dat.expdat,w.energy)') if (f2tof1) then cc i = ifeffit('set w.expdat = w.expdat * '// cc $ 'w.energy/(max(1,e0))') endif npts = iffgetarr('w.energy', energy) npts = iffgetarr('w.expdat', expdat) cc print*,' npts =', npts c c generate initial tables of f' f'' on the same energy grid atz= iatz * 1.d0 i = iffputsca('iz', atz) i = ifeffit('f1f2(energy=o.e1, z=iz)') i = ifeffit('set wid = core_width') if (ewidth.gt.0.d0) i = iffputsca('wid', ewidth) i = ifeffit('f1f2(energy=w.energy, z=iz,width=wid)') c i=ifeffit('pre_edge(w.energy, w.f2, e0=e0)') c i=ifeffit('set cl_step = edge_step') c i=ifeffit('set cl_0 = pre_slope*floor(w.energy)+pre_offset') c c i=ifeffit('pre_edge(w.energy, w.expdat, e0=e0)') c c i=ifeffit('set dt_step = edge_step') c i=ifeffit('set dt_0 = pre_slope*floor(w.energy)+pre_offset') c c i=ifeffit('set w.expscal = (cl_0-dt_0)+'// c $ ' w.expdat*cl_step/dt_step') i=ifeffit('set w.expscal =w.expdat') print*, ' hello expdat is simple! ' c npts = iffgetarr('w.expscal', expdat) i=ifeffit('f1f2(energy=o.e1, z=iz,width=wid)') i=ifeffit('set o.f1_low = o.f1') i=ifeffit('set o.f2_low = o.f2') i = ifeffit('f1f2(energy=o.e2, z=iz,width=wid)') i=ifeffit('set o.f1_high = o.f1') i=ifeffit('set o.f2_high = o.f2') c broaden f1cl and f2cl i=iffgetarr('w.f1', f1cl) i=iffgetarr('w.f2', f2cl) i=ifeffit('set w.f1_cl = w.f1') i=ifeffit('set w.f2_cl = w.f2') c c align/shift/scale improved f'' to tabulated f''(df2 = expdat - f2cl) call chrdmp(' Matching experimental data to Cromer-Libermann ') if (f2tof1) then call messag(' f'''' ') else call messag(' f'' ') end if c$$$ call dkfit c$$$ call dkfcn(npts,numvar,xvarys,df2,ierr) do 20 i = 1, npts df2(i) = -f2cl(i) + expdat(i) c f(i) = -f2cl(i) + x(2) + x(3) * fx c $ + e * (x(4) + x(5) * e ) 20 continue c do kk transform of delta f'' -> delta f' call messag(' Doing difference Kramers-Kronig transform') if (f2tof1) then call kkmclr(npts, energy, df2, df1) else call kkmclf(npts, energy, df2, df1) endif c add delta f' to initial f', delta f'' to initial f'' do 100 i = 1, npts o1(i) = df1(i) + f1cl(i) o2(i) = df2(i) + f2cl(i) 100 continue i = iffputarr('w.f1', npts, o1) i = iffputarr('w.f2', npts, o2) c c construct output on wider range i = ifeffit('set o.f1_cl = '// $ 'join(join(o.f1_low, w.f1_cl),o.f1_high)') i = ifeffit('set o.f1 = '// $ 'join(join(o.f1_low, w.f1),o.f1_high)') i = ifeffit('set o.f2_cl = '// $ 'join(join(o.f2_low, w.f2_cl),o.f2_high)') i = ifeffit('set o.f2 = '// $ 'join(join(o.f2_low, w.f2),o.f2_high)') c play with docs (put user titles at top, c keep as many old doc lines as fit) i = iffputstr('doc', title(1)) if (active) then call messag(' ') call messag(' Ready to write out data file:') call askstr('** output file name',outfil) end if write(str,'(3a)') 'write_data(file=', $ outfil(1:istrln(outfil)), $ ',o.energy,o.f1,o.f2,o.f1_cl,o.f2_cl,$doc)' i = ifeffit(str) i = ifeffit('save diffkk.sav') call messag(' writing summary to diffkk.log') call dklog call messag(' -- diffkk done -- ') 999 continue end ifeffit-1.2.11d/src/diffkk/in2col.f0000644000175000017500000001525410771740460015747 0ustar segresegre subroutine in2col(active,filnam,mdoc,mpts, $ ix1,ix2, doc,ndoc,x1,x2,npts,isfeff) c c open and reads two columns from a multi-column data file. c arguments: c filnam file name containing data (in) c mdoc max number of document lines to get (in) c mpts max number of data elements to get (in) c ix1 column to read array x1 from (in) c ix2 column to read array x2 from (in) c doc array of document lines (out) c ndoc number of doc lines returned (out) c x1 first array (out) c x2 second array (out) c npts number of data points (out) c implicit none integer ilen , istrln, j, i, maxwrd, ndoc, npts, iounit integer iexist, ierr, nwords, idoc, id, mdoc,mpts,ncol integer ix1, ix2, ixmax, ixmin parameter(maxwrd = 10) double precision x1(mpts),x2(mpts), zero parameter(zero = 0) logical isdat, ffhead, adddoc, comm, isfeff, active character*(*) filnam, doc(mdoc), commnt*4, ffstr*5,ffend*2 character*30 words(maxwrd), str*100, file*100 external istrln, isdat data commnt, iounit, adddoc /'#*%!', 0, .true./ data ffhead, ffstr, ffend /.false.,' feff','@#'/ ncol = 3 if (active) isfeff = .false. c ixmax = max(ix1,ix2) ixmin = min(ix1,ix2) if (.not.active.and. $ (ixmin.le.0).or.(ixmax.gt.maxwrd)) go to 880 10 format(a) file = filnam 20 continue ilen = istrln(file) if (ilen.le.0) go to 890 c open data file call openfl(iounit, file, 'old', iexist, ierr) if ((iexist.lt.0).or.(ierr.lt.0)) then if (.not.active) go to 900 call messag(' couldn''t find file '//file(:ilen)) call askstr(' type a new file name (or N to abort)', $ file) str = file call smcase(str,'n') if (str.eq.'n') go to 999 go to 20 end if c initialize buffers do 80 j = 1, mdoc doc(j) = ' ' 80 continue do 90 j = 1, mpts x1(j) = zero x2(j) = zero 90 continue do 100 i = 1, maxwrd words(i) = ' ' 100 continue idoc = 0 id = 0 c c get documents from header: up to ndoc 200 continue print*, ' line 200', comm, ffhead comm = .false. read(iounit, 10, end = 920, err = 930) str call triml (str) c remove leading comments (followed by optional blanks) from str if ( index(commnt, str(1:1)).ne.0 ) then comm = .true. str(1:1) = ' ' call triml(str) end if c if str is '----', stop adding lines to doc if (str(2:4) .eq. '---') adddoc = .false. c if the str is all numbers and we're not reading a c feff header or a commented out lins, then this is data! if ((.not.(comm.or.ffhead)).and.(isdat(str))) goto 410 c save str in doc if there's room ilen = istrln(str) if (adddoc .and. (idoc .lt. ndoc) .and. ilen.gt.0) then idoc = idoc + 1 doc(idoc) = str endif c test for whether reading feff headers (lines may not be commented out, c but will have ' feff ' in latter part of the first line, and the c magic '@#' characters just before numbers -- zany zabinsky!) if (idoc.eq.1) then call smcase(str,'a') ffhead = (index(str(55:),ffstr).ne.0) isfeff = ffhead ix2 = 2 if (ffhead) ix2 = 4 if (active) then str = 'n' if (ffhead) str = 'y' call askstr('** is this a feff xmu.dat file?',str) call smcase(str,'y') ffhead = (str.eq.'y') isfeff = ffhead call messag(' ') call messag(' What columns are energy and mu(E) in?:') if (ffhead) then ix2 = 4 call messag(' (Feff puts mu in column 4,'// $ ' mu0 in column 5)') end if 320 continue call askint('** column for energy ',ix1) call askint('** column for mu ',ix2) ixmax = max(ix1,ix2) ixmin = min(ix1,ix2) if ((ixmin.le.0).or.(ixmax.gt.maxwrd)) then call messag( ' something''s wrong with '// $ 'those values, try again ...') go to 320 end if end if end if c end first column check if feff xmu / getting of column numbers if (ffhead) ffhead = (str(ilen-1:).ne.ffend) print*, ' at goto 200', active goto 200 c c read numerical data cc print*, ' line 400' 400 continue read(iounit, 10, end = 500, err = 980) str 410 continue call triml (str) if (istrln(str).le.0) go to 400 if (id.ge.mpts) go to 500 id = id + 1 nwords = maxwrd call untab(str) call bwords(str,nwords,words) if (nwords.le.1) goto 940 if (nwords.lt.ixmax) goto 950 if (id.eq.1) ncol = nwords if (ncol.ne.nwords) goto 960 call str2dp(words(ix1), x1(id), ierr) if (ierr.ne.0) goto 990 call str2dp(words(ix2), x2(id), ierr) if (ierr.ne.0) goto 990 goto 400 500 continue npts = id if (idoc.le.0) then ndoc = 1 doc(1) = 'in2col: no document line found' else ndoc = idoc end if c close data file and return close(iounit) cc print*, 'in2col done' return c error handling 880 call messag( ' in2col: selected columns out of range') go to 999 890 call messag( ' in2col: no file name given') go to 999 900 call messag( ' in2col: could not find file') go to 990 920 call messag( ' in2col: error reading document lines') go to 990 930 call messag( ' in2col: unexpected end-of-file while '// $ 'reading titles') go to 990 940 call messag( ' in2col: too few columns of numbers !') go to 990 950 call messag( ' in2col: fewer columns found than requested') go to 990 960 call messag( ' in2col: number of columns changed !') go to 990 c error at reading numerical data 980 call messag( ' in2col: error reading numerical data.') 990 call messag( ' in2col: error with file '//file(1:ilen) ) close(iounit) 999 continue stop c end subroutine in2col end ifeffit-1.2.11d/src/diffkk/dkcom.f0000644000175000017500000000174010771740460015651 0ustar segresegrec#{dkcom.f: implicit none integer mpts,mdoc,mtitle,mvarys, npts,ndoc,ntitle integer iencol,imucol,iatz, npad, numvar parameter (mpts = 2**14, mdoc = 20, mtitle = 10, mvarys=8) double precision egrid, e0, elow, ehigh, ewidth double precision epad, xvarys(mvarys) double precision energy(mpts), expdat(mpts) double precision f2cl(mpts), f1cl(mpts) character*100 doc(mdoc), title(mtitle), versn*6 character*100 inpfil, xmufil, outfil, label logical active, isfeff, f2tof1 integer ne0, nelo, nehi, ne0ish, ne0dif, iprint common /dfkdat/ energy, expdat, f2cl, f1cl, xvarys, $ egrid, e0, elow, ehigh, ewidth, epad, $ npad, npts, ndoc, ntitle, iencol, $ imucol, ne0, nelo, nehi, ne0ish, ne0dif, iprint, $ iatz, numvar, active, isfeff, f2tof1 common /dfkchr/ doc, title, label, inpfil, xmufil, outfil, $ versn save c#dkcom.f} ifeffit-1.2.11d/src/diffkk/dkinp.f0000644000175000017500000001003110771740460015652 0ustar segresegre subroutine dkinp c read inputs for diffkk program from 'diffkk.inp' c include "dkcom.f" integer i, mfil, maxwrd,nwords, iwrds parameter(maxwrd = 30, mfil = 10) character*70 words(maxwrd), wrdsor(maxwrd), keywrd character*70 prompt*20,key*3,stat*10, string,str,comfil(mfil) integer istrln,icom(mfil), nfil, iinp, ier, iex, ilen, nline external istrln c initialization c initialize stuff in common active = .false. isfeff = .true. f2tof1 = .true. inpfil = 'diffkk.inp' xmufil = 'xmu.dat' outfil = 'dk.out' iatz = -1 iprint = 0 imucol = 2 iencol = 1 egrid = 1 elow = 200 ehigh = 500 ewidth = -1.0 c note: pre1/pre2 will be set in f2fit according c to whether data is from feff or not epad = 5 npad = 20 ntitle = 0 label =' e f1 f2 f1_cl f2_cl' do 10 i = 1, mtitle title(i) = ' ' 10 continue c initialize local stuff prompt = 'f' stat = 'old' nline = 0 nfil = 0 ier = 0 iex = 0 iinp = 1 do 20 i = 1, mfil icom(i) = 0 20 continue call get_inpfile('diffkk.inp',inpfil, ier) call openfl(iinp, inpfil, stat, iex, ier) if (iex.lt.0) then ilen = istrln( inpfil) call messag( ' '// inpfil(:ilen)// ' not found') stop return endif if ((iex.lt.0).or.(ier.ne.0)) go to 1990 c c read in next line 100 continue keywrd = ' ' key = ' ' call getcom(prompt, iinp, string, comfil, icom, mfil, nfil) nline = nline + 1 c call fixstr(string,str,ilen,words,wrdsor,maxwrd,nwords) if ((ilen.le.2).or.(str.eq.'getcom_eof')) go to 100 if ((words(1).eq.'end').or.(str.eq.'getcom_end')) go to 1000 if (str.eq.'getcom_error') go to 1990 c parse current set of keywords from line 150 continue keywrd = words(1) key = keywrd(1:3) iwrds = 2 c inpfil,outfil,imucol,egrid,iatz if (keywrd.eq.'title') then ntitle = ntitle + 1 call strclp(string,wrdsor(1),wrdsor(2),title(ntitle)) iwrds = maxwrd + 1 else if (key.eq.'out') then outfil = wrdsor(2) else if (key.eq.'xmu') then xmufil = wrdsor(2) else if (keywrd.eq.'isfeff') then call str2lg(words(2),isfeff,ier) else if (keywrd.eq.'f2_to_f1') then call str2lg(words(2),f2tof1,ier) else if (keywrd.eq.'f1_to_f2') then call str2lg(words(2),f2tof1,ier) f2tof1 = .not.f2tof1 else if (keywrd.eq.'iz') then call str2in(words(2),iatz,ier) else if (keywrd.eq.'mucol') then call str2in(words(2),imucol,ier) else if (keywrd.eq.'encol') then call str2in(words(2),iencol,ier) else if (keywrd.eq.'egrid') then call str2dp(words(2),egrid,ier) else if (keywrd.eq.'e0') then call str2dp(words(2),e0,ier) else if (keywrd.eq.'ewidth') then call str2dp(words(2),ewidth,ier) else if (keywrd.eq.'elow') then call str2dp(words(2),elow,ier) else if (keywrd.eq.'ehigh') then call str2dp(words(2),ehigh,ier) else if (keywrd.eq.'epad') then call str2dp(words(2),epad,ier) else if (keywrd.eq.'npad') then call str2in(words(2),npad,ier) else if (key.eq.'iz') then call str2at(words(2),iatz) else if (key.eq.'iprint') then call str2at(words(2),iprint) end if if (nwords.gt.iwrds) then do 450 i = 1, nwords words(i) = words(i+iwrds) wrdsor(i) = wrdsor(i+iwrds) 450 continue nwords = nwords - iwrds go to 150 end if go to 100 1000 continue return 1990 continue call messag(' weird, fatal error trying to open file.') stop end ifeffit-1.2.11d/src/diffkk/str2at.f0000644000175000017500000000072210771740460015772 0ustar segresegre subroutine str2at(str,iz) c given a string str that contains either an atomic number or c an atomic symbol, return the atomic number to iz. c character*(*) str integer iz, ierr, iatsym logical isnum external isnum, iatsym if (isnum(str)) then call str2in(str,iz,ierr) if (ierr.ne.0) iz = 0 else iz = iatsym(str) end if return c end subroutine str2at end ifeffit-1.2.11d/src/feffit/0000755000175000017500000000000011117272040014375 5ustar segresegreifeffit-1.2.11d/src/feffit/fefinp.f0000644000175000017500000001672610771740456016047 0ustar segresegre subroutine fefinp(mpts, mfil, mtitle, mleg, $ title, feffil, iffrec, degflg, degpth, $ refpth, rwgpth, ratpth, theamp, $ thepha, qfeff, cphase, sphase, $ realp, xlamb, nlgpth, izpth, iptpth) c c read path information from feff files: c readse either feffnnnn.dat files (feff5 or higher) or the c ascii feff.bin files from feff702 c c copyright 1996 matt newville implicit none integer mpts, mfil, mtitle, mleg, mdocx, npack double precision degpth(mfil), refpth(mfil), rwgpth(mfil) double precision ratpth(3, 0:mleg, mfil), qfeff(mpts, mfil) double precision theamp(mpts, mfil), thepha(mpts, mfil) double precision cphase(mpts, mfil), sphase(mpts, mfil) double precision realp( mpts, mfil), xlamb( mpts, mfil) integer nlgpth(mfil), iffrec(mfil) integer izpth(0:mleg, mfil), iptpth(0:mleg, mfil) character*128 title(mtitle, mfil), feffil(mfil) integer mlegx, mptsx, mwords, j, nleg, itmp, nepts,i integer nwords,l0,ndoc,npot, ilen, ipth, istrln integer nunit, iex, npts, ierr, ntitle, iunit parameter (mlegx = 10, mptsx= 100, mwords = 30, mdocx=10) character*64 filnam*128, stat*10, str*128, words(mwords) character*128 doc(mdocx), messg logical degflg, exist integer izpot(0:mlegx) complex*16 phc(mptsx), ck(mptsx), coni, cchi double precision xk(mptsx), achi(mptsx), phchi(mptsx) double precision beta(mlegx), rf2b, rnrmav double precision eps, phff, phffo, xlam, reff, bohr, zero parameter (zero = 0.d0, eps = 1.d-12, bohr = 0.529 177 249d0) parameter (coni = (0.d0,1.d0)) parameter (stat = 'old') external istrln npack = 8 c feff.dat data extraction c loop to get data from at most maxpth paths ipth = 0 50 continue ipth = ipth + 1 c skip unused paths if ((ipth.le.mfil).and.(feffil(ipth).ne.' ')) then c get next file name from feffil, check that it exists exist = .false. filnam = feffil(ipth) call triml (filnam) ilen = max(1, istrln(filnam)) inquire ( file = filnam, exist = exist) c failed to find this file: stop with warning message if (.not.exist) call finmsg(1001,filnam, ' ',0) c read data from file if (iffrec(ipth).eq.0) then c feff5-style feffnnnn.dat file call echo( ' '//filnam(1:ilen)) ccc print*, 'FEFINP: call rdffdt ' call rdffdt(filnam,mtitle,mleg,mpts,ntitle, $ nlgpth(ipth), npts,title(1,ipth), $ refpth(ipth), rwgpth(ipth), $ degpth(ipth), ratpth(1,0,ipth), $ iptpth(0,ipth), izpth(0,ipth), $ qfeff(1,ipth), theamp(1,ipth), $ thepha(1,ipth), cphase(1,ipth), sphase(1,ipth), $ xlamb(1,ipth), realp(1,ipth)) cc print*, ' ', refpth(ipth), degpth(ipth), ipth cc print*, 'FEFINP q ', qfeff(1,ipth), qfeff(2,ipth), cc $ qfeff(3,ipth) if (.not.degflg) degpth(ipth) = 1 elseif (iffrec(ipth).ne.0) then c feff7-style feff.bin iunit = 0 call openfl(iunit,filnam,stat,iex,ierr) if ((iex.lt.0).or.(ierr.lt.0)) $ call finmsg(1003,filnam, ' ',0) c read top of feff.bin for all the records from this file call rdfb1(filnam,iunit,mdocx,mlegx,mptsx, npack, $ ndoc, npot, $ npts, rnrmav, l0, doc,izpot,phc,ck,xk) c skip to next record within this file 120 continue read(iunit,'(a)',end=500) str call sclean(str) call triml(str) if (str(1:2).ne.'##') go to 120 nwords = 1 call bwords(str(3:),nwords,words) call str2in(words(1) , itmp, ierr) c skip this record (and go to next) if this isn't the record we want if (itmp.ne.iffrec(ipth)) go to 120 c we found the right record: read in path information ilen = istrln(filnam) write(messg,'(a,1x,a,1x,i5)') $ filnam(1:ilen), ',', iffrec(ipth) ilen = istrln(messg) call echo( ' '//messg(1:ilen)) rwgpth(ipth) = rnrmav do 145 i = 1, ndoc title(i,ipth) = doc(i) 145 continue nwords = mwords call bwords(str(3:),nwords,words) call str2in(words(2), nleg, ierr) nlgpth(ipth) = nleg call str2dp(words(3), degpth(ipth), ierr) call str2in(words(4), nepts, ierr) call str2dp(words(5), refpth(ipth), ierr) reff = refpth(ipth) / bohr do 170 j = 1, nleg call str2in(words(6+j),i,ierr) iptpth(j,ipth) = i izpth(j,ipth) = izpot(i) 170 continue iptpth(0,ipth) = 0 izpth(0,ipth) = izpot(0) call rdpadr(iunit,npack,ratpth(1,1,ipth),3*nleg) do 190 i = 0, nleg do 185 j = 1, 3 ratpth(j,i,ipth) = ratpth(j,i,ipth) * bohr 185 continue 190 continue c note that we really don't care about beta, eta, ri arrays, so we'll c just skip them here: call rdpadr(iunit,npack,beta,nleg) call rdpadr(iunit,npack,beta,nleg) call rdpadr(iunit,npack,beta,nleg) c but we really want these arrays (amplitude and phase) call rdpadr(iunit,npack,achi,nepts) call rdpadr(iunit,npack,phchi,nepts) do 230 j = nepts+1, mptsx achi(j) = zero phchi(j) = zero 230 continue c now convert this into same info as in feff.dat file npts = min(mptsx,npts,mpts) phffo = zero rf2b = reff*reff*bohr do 300 i = 1, npts cchi = achi(i) * exp (coni*phchi(i)) if (abs(dimag(ck(i))) .gt. eps) then xlam= 1/dimag(ck(i)) else xlam = 1.d10 end if if (abs(cchi).ge.eps) then phff = atan2 (dimag(cchi), dble(cchi)) else phff = zero end if c remove 2 pi jumps in phases call pijump (phff, phffo) phffo = phff c save values to arrays qfeff(i,ipth) = xk(i) / bohr realp(i,ipth) = dble ( ck(i) / bohr ) xlamb(i,ipth) = xlam * bohr thepha(i,ipth)= phff theamp(i,ipth)= abs(cchi*xk(i)*exp(2*reff/xlam))*rf2b 300 continue c c fill in the rest of qfeff so that it is monotonically increasing do 350 i = npts+1, mpts if(qfeff(i,ipth).lt.qfeff(i-1,ipth)) then qfeff(i,ipth) = 2*qfeff(i-1,ipth)-qfeff(i-2,ipth) theamp(i,ipth)= zero end if 350 continue c c if the next {feffil,iffrec} set has the same file name, c read the next record if ((ipth.lt.mfil) .and. $ (feffil(ipth+1).eq.feffil(ipth))) then ipth = ipth + 1 go to 120 end if 500 continue close(iunit) c done reading feff.bin entry end if go to 50 c end if return 998 format(a1,a) 999 format(a) c end subroutine fefinp end ifeffit-1.2.11d/src/feffit/fixicd.f0000644000175000017500000001762210771740456016042 0ustar segresegre subroutine fixicd(icdval, maxval, micode, jconst, jxlocl, $ vnames, xval, nvar, nconst, ntotal,io2n) c c fix integer code arrays from encod so that : c 1. all variables come first c 2. all true constants come next (well, most ...) c 3. all other math expressions are ordered so that each c depends on only its predecessors. this allows c single-pass, ordered decoding. c c arguments c icdval integer array codes from encod (micode, maxval) (in/out) c maxval dimension of icdval, vnames, xval (in) c micode dimension of icdval (in) c jconst integer placeholder for constants (from encod) (in) c jxlocl integer placeholder for locals (in) c vnames array of variable names (in/out) c xval array of variables values/initial guesses (in/out) c nvar number of variables (out) c nconst number of constants (out) c ntotal total number of named parameters (out) c io2n map io2n(iold) = inew (out) c notes: c 1. jxlocl > jconst !! jconst = 2000, jxlocl = 5000 at this writing. c 2. elements 1 -> nvar of icdval are variables c elements nvar+1 -> nconst +nvar of icdval are constants c 3. the parameters mxval and mcode should be >= maxval, micode. c 4. jfake1 and jfake2 are for the "fake constants" (like reff) c hardwired in feffit/encod to be held in the constant array, c even though their values are continually overwritten. I don't c want to include them in the "true constants" list here. c integer mxval , mcode, micode, maxval, jconst, jxlocl integer icdval(micode, maxval), io2n(maxval), nvar, nconst double precision xval(maxval), zero character*(*) vnames(maxval) parameter (mxval = 2048, mcode = 256, zero = 0.d0) integer jfake1 , jfake2 parameter (jfake1 = 4, jfake2 = 8) character*64 vnew(mxval), vorig(mxval) integer icdnew(mcode, mxval), iold(mxval), inew(mxval) integer io, in, ntotal, icd, ncandv, jv integer iv, ivold, ivnew, itmp, i integer jdebye, jeins, jeins2 parameter(jdebye=-120, jeins =-121, jeins2=-122) double precision xnew(mxval), xxtmp c do 80 i = 1, maxval vnew(i) = ' ' vorig(i)= vnames(i) xnew(i) = zero if (vnames(i).ne.' ') ntotal = i 80 continue c c reorder #1: put variables 1st ivnew = 0 do 100 iv = 1, ntotal if (icdval(1,iv).eq.-1) then ivnew = ivnew + 1 vnew(ivnew) = vnames(iv) xnew(ivnew) = xval(iv) inew(iv) = ivnew iold(ivnew) = iv end if 100 continue nvar = ivnew c c reorder #2: put constants 2nd c if 1 <= icdval(i) <= jconst c or if jfake1 + jconst <= icdval(i) <= jfake2 jconst c then its not a constant do 150 iv = 1, ntotal if ( (icdval(1,iv).ne.-1).and. $ (icdval(1,iv).le.jxlocl) ) then icd = 0 do 130 i = 1, micode if (icdval(i,iv).eq.0) go to 135 if ( (icdval(i,iv).eq.jdebye) .or. $ (icdval(i,iv).eq.jeins) .or. $ (icdval(i,iv).eq.jeins2) ) icd = icd + 1 if ( (icdval(i,iv).ge.1).and. $ (icdval(i,iv).lt.jconst) ) icd = icd + 1 if ( (icdval(i,iv).ge.(jfake1+jconst)).and. $ (icdval(i,iv).le.(jfake2+jconst)) ) icd = icd + 1 130 continue 135 continue if (icd.eq.0) then ivnew = ivnew + 1 vnew(ivnew) = vnames(iv) xnew(ivnew) = xval(iv) inew(iv) = ivnew iold(ivnew) = iv endif end if 150 continue ncandv = ivnew nconst = ivnew - nvar c c reorder #3: now put "local variables", all of which are marked with c an initial element larger that jxlocl that is much greater than c jconst (jxlocl = 5000, jconst = 2000 at this writing) do 240 iv = 1, ntotal if (icdval(1,iv).gt.jxlocl) then ivnew = ivnew + 1 vnew(ivnew) = vnames(iv) xnew(ivnew) = xval(iv) inew(iv) = ivnew iold(ivnew) = iv endif 240 continue c c add all the other math expressions to the new arrays. c without worrying about order do 400 iv = 1, ntotal icd = 0 do 360 i = 1, micode if (icdval(i,iv).eq.0) go to 370 if ((icdval(i,iv).ge.1).and. $ (icdval(i,iv).lt.jconst ) ) then icd = icd + 1 go to 370 end if if ( (icdval(i,iv).eq.jdebye) .or. $ (icdval(i,iv).eq.jeins) .or. $ (icdval(i,iv).eq.jeins2) ) then icd = icd + 1 go to 370 end if if ((icdval(i,iv).ge.(jfake1+jconst)).and. $ (icdval(i,iv).le.(jfake2+jconst)) ) then icd = icd + 1 go to 370 end if 360 continue 370 continue if (icd.ne.0) then ivnew = ivnew + 1 vnew(ivnew) = vnames(iv) xnew(ivnew) = xval(iv) inew(iv) = ivnew iold(ivnew) = iv endif 400 continue c c print*, ' new variable order: ', ntotal, nconst, nvar c do i = 1, ntotal c print*, i, ' ',vnew(i)(1:20) c enddo c now replace all occurances of iv with inew(iv) (= ivnew) in icdval. do 540 iv = 1, ntotal ivold = iold(iv) do 520 i = 1, micode if ((icdval(i,ivold).ge.1).and. $ (icdval(i,ivold).lt.jconst ) ) then icdnew(i,iv) = inew(icdval(i,ivold)) else icdnew(i,iv) = icdval(i,ivold) endif 520 continue 540 continue do 600 iv = 1, maxval vnames(iv) = vnew(iv) xval(iv) = xnew(iv) xnew(iv) = zero vnew(iv) = ' ' iold(iv) = 0 inew(iv) = 0 do 580 i = 1, micode icdval(i,iv) = icdnew(i,iv) 580 continue 600 continue c c finally, put the math expressions in order c a simple switch-in-place, with recovery do 900 iv = ncandv+1, ntotal itmp = ncandv do 750 i = 1, micode icd = icdval(i,iv) if (icd.eq.0) go to 760 if ((icd.ge.ncandv).and. $ (icd.lt.jconst)) itmp = max(icd,itmp) 750 continue 760 continue if (itmp.gt.iv) then ivold = iv ivnew = itmp do 780 i = 1, micode icdnew(i,1) = icdval(i,ivnew) icdval(i,ivnew) = icdval(i,ivold) icdval(i,ivold) = icdnew(i,1) 780 continue vnew(1) = vnames(ivnew) vnames(ivnew) = vnames(ivold) vnames(ivold) = vnew(1) xxtmp = xval(ivnew) xval(ivnew) = xval(ivold) xval(ivold) = xxtmp do 850 jv = ncandv+1, ntotal do 820 i = 1, micode if (icdval(i,jv).eq.0) go to 830 if (icdval(i,jv).eq.ivold) then icdval(i,jv) = ivnew elseif (icdval(i,jv).eq.ivnew) then icdval(i,jv) = ivold endif 820 continue 830 continue 850 continue end if 900 continue c c now re-map old to new and return do 1000 io = 1, ntotal do 980 in = 1, ntotal if (vorig(io).eq.vnames(in)) then io2n(io) = in go to 990 endif 980 continue 990 continue 1000 continue c return c end subroutine fixicd end ifeffit-1.2.11d/src/feffit/chipth.f0000644000175000017500000001275210771740456016052 0ustar segresegre subroutine chipth(ampfef, phafef, qfeff, xlamb, realp, nffpts, $ reff, degen, s02, e0shft, e0imag, delpha, deltar, sigma2, $ third, fourth, tranq, rm2flg, $ nqvals, mchiq, chiqr, chiqi) c c evaluate the theoretical chi(k) for a scattering path given: c 1. feff information (ampfef - degen) c 2. the xafs path parameters (s02 - fourth) c c copyright 1993 university of washington matt newville c c input: c ampfef amplitude from feff for the path c phafef phase shift from feff (w/o 2*k*r term) for the path c qfeff k-values from feff for the other feff arrays c xlamb mean-free-path from feff c realp real part of p (momentum) from feff c nffpts number of data points in the feff arrays c reff half path length for the path c degen path degeneracy (# of equivalent paths) c s02 constant multiplicitive amplitude factor for the path c e0shft e0 shift to use for the path c e0imag imaginary e0 shift / broadening for the path c delpha constant phase shift (delta phase ) c deltar delta r to add to reff for the path c sigma2 debye-waller factor for the path c third third cumulant for the path c fourth fourth cumulant for the path c tranq real paramter giving coefficient in tranquada correction c rm2flg flag for using (reff)^{-2} instead of (reff+delr)^{-2} c nqvals index of highest q value to calculate c (no greater than 512, no less than 20) c mchiq array dimension for chiqr and chiqi c output: c chiqr real part \ of complex chi(k) for this path c chiqi imag part / with all path parameters applied c **note measured chi(k) data corresponds to chiqi ** c------------------------------------------------------------------ integer izero, ipos, i, nqvals, nffpts, nqdata, mchiq, nqffmx complex*16 coni, cp, cp2, cphshf, cdwf, cargu, cchi, ciei double precision chiqr(mchiq), chiqi(mchiq) double precision e0eff, s02r2n, degen, reff, sigma2, third double precision s02, e0shft, e0imag, delpha, deltar double precision first, fourth, r2m2, qgrid, energy, q, tranq double precision expmax, expmin, small, etok, one double precision rep, xlam, cxlam, pha, amp, car double precision ampfef(nffpts), phafef(nffpts) double precision qfeff(nffpts), xlamb(nffpts), realp(nffpts) logical rm2flg, le0big parameter (coni = (0., 1.) , one = 1.) parameter (small=0.0001, etok = 0.26246 82917 ) parameter (expmax = 30., expmin = -expmax, qgrid = 1./20.) c------------------------------------------------------------------ c combine path parameters and feff data to get theory chi c note: feff writes out the feffnnnn.dat files such that c phase = 2*q*r + phase_shifts. additional phase shifts and c all amplitude reduction terms use p, the complex momentum. c q is used only to reproduce chi(k) from feff nqffmx = int(qfeff(nffpts) / qgrid) + 5 nqdata = min(512, min(nqvals, min(nqffmx, mchiq))) if (nqdata.lt.25) nqdata = 400 c tranquada correction first = deltar - tranq * sigma2 / reff r2m2 = 1 / ( (reff + deltar) * (reff + deltar) ) if (rm2flg) r2m2 = 1 / ( reff * reff ) le0big = (abs(e0shft).ge.small) c ipos is a place holder for the routine lintrp c izero stores the index of the q = 0. location. ipos = 1 izero = 0 c store some multiplications before the main loopa e0eff = e0shft * etok ciei = coni * e0imag * etok s02r2n = degen * s02 * r2m2 c the official xafs calculation loop: do 500 i = 1, nqdata c e0-shift the value of q q = (i - 1) * qgrid if (le0big) then energy = q*q - e0eff q = sign(one,energy) * sqrt(abs(energy)) end if c q = zero is special, and will be dealt with below if (abs(q).le.small) then izero = i else c interpolate amplitude, phase, realp and xlamb of feff chi call lintrp(qfeff, realp, nffpts, q, ipos, rep) call lintrp(qfeff, xlamb, nffpts, q, ipos, xlam) call lintrp(qfeff, phafef, nffpts, q, ipos, pha) call lintrp(qfeff, ampfef, nffpts, q, ipos, amp) c evaluate complex momemtum cp2 = (rep + coni/max(xlam,small))**2 + ciei cp = sqrt(cp2) c mean free path, complex debye-waller factor and phase shift cxlam = -2*reff* dimag(cp) cdwf = -2*cp2 * (sigma2 - cp2 * fourth/3) cphshf = 2*cp * (first - (2*cp2)* third /3) + delpha c create complex chi, first checking that the exponential won't crash cargu = cxlam + cdwf + coni*(2*q*reff + pha + cphshf) car = max(expmin, min(expmax, dble(cargu))) cchi = (amp * s02r2n / abs(q)) * $ exp(cmplx(car, dimag(cargu))) c save real and imag chi for this value of q chiqi(i) = dimag(cchi) chiqr(i) = -dble(cchi) cc print*, i, q, rep, xlam, pha, amp, cchi end if 500 continue c fill in guess for data at q = zero if needed if (izero.eq.1) then chiqr(1) = 2*chiqr(2) - chiqr(3) chiqi(1) = 2*chiqi(2) - chiqi(3) elseif (izero.ge.2) then chiqr(izero) = (chiqr(izero-1) + chiqr(izero+1))/2 chiqi(izero) = (chiqi(izero-1) + chiqi(izero+1))/2 end if return c end subroutine chipth end ifeffit-1.2.11d/src/feffit/varys.h0000644000175000017500000000103510771740456015731 0ustar segresegrec{varys.h -*-fortran-*- c values for variables of fit and error analysis in feffit c (nmathx = number of user defined math expressions) double precision xguess(mvarys), xfinal(mvarys), delta(mvarys) double precision correl(mvarys, mvarys), chisqr, usrtol integer ifxvar, numvar, nvuser, nmathx, nconst integer ierbar, nerstp common /varys/ xguess, xfinal, delta, correl, chisqr, $ usrtol, numvar, nvuser, ifxvar, $ ierbar, nerstp, nmathx, nconst c varys.h} ifeffit-1.2.11d/src/feffit/fft.h0000644000175000017500000000137110771740456015347 0ustar segresegrec{fft.h: -*-fortran-*- c parameters for fourier transforms in feffit double precision wfftc(4*maxpts + 15) double precision qwin1(mdata), qwin2(mdata) double precision rwin1(mdata), rwin2(mdata), rweigh(mdata) double precision qweigh(mdata), qmin(mdata), qmax(mdata) double precision rmin(mdata), rmax(mdata) integer nqfit(mdata), nqpts(mdata), nrpts(mdata) integer iqwin(mdata), irwin(mdata), ifft(mdata) integer jffphs(mdata) character*32 sqwin(mdata), srwin(mdata) common /fft/ nqpts, iqwin, qmin, qmax, qwin1, qwin2, qweigh, $ nrpts, irwin, rmin, rmax, rwin1, rwin2, rweigh, $ nqfit, ifft, jffphs, wfftc common /ffts/ sqwin, srwin c fft.h} ifeffit-1.2.11d/src/feffit/nbrstr.f0000644000175000017500000000270010771740456016075 0ustar segresegre integer function nbrstr(string) c c find a number in a string c given a string that is known to begin with a digit or sign. c return the position of the end of the number. c nbrstr : position of end of number integer istrln, i, ilen, iback character*(*) string character*1 digit*10, plus, minus, d, e, decml, s, sp logical lexp, ldecml data digit /'1234567890'/ data minus,plus,d,e,decml /'-','+','d','e','.'/ c------ ldecml = .false. lexp = .false. ilen = istrln(string) nbrstr = ilen if (ilen.gt.1) then iback = 1 c find end of number : digits are always ok. c stop at second d, e, decml, or sign that's not preceded by (d,e) do 200 i = 2, ilen sp = string(i-1:i-1) s = string(i:i) if (index(digit,s).eq.0) then if ( (((s.ne.plus).and.(s.ne.minus).and.(s.ne.d) $ .and.(s.ne.e).and.(s.ne.decml))) $ .or.((lexp.and.((s.eq.d).or.(s.eq.e)))) $ .or.((ldecml.and.(s.eq.decml))) $ .or.((((s.eq.plus).or.(s.eq.minus)).and. $ (sp.ne.d).and.(sp.ne.e))) ) go to 210 lexp = lexp.or.(s.eq.d).or.(s.eq.e) ldecml = ldecml.or.(s.eq.decml) end if 200 continue iback = 0 210 continue nbrstr = i - 1 - iback end if return c end function nbrstr end ifeffit-1.2.11d/src/feffit/fitchk.f0000644000175000017500000001262710771740456016044 0ustar segresegre subroutine fitchk c c this routine does some error checking of the math expressions c for feffit. the expressions have already been encoded in c fitinp, and the math syntax has been checked in encod, but not c all the checks could be done until all the input files have been c read in. done here are checks so that: c 1. all variables named in the math expresions must c be defined as either variables or functions. c 2. all defined variables and functions are used, or a c warning will be given. c 3. all encoded math expressions can be reliably decoded. c all math expressions are actually evaluated here. c c also done here is the use of the zeroth (0th) path as the default c expression for the various path parameters. the 0th path will be c used here to overwrite those path parameters that were not c explicitly given in the input file. c c copyright 1993 university of washington matt newville c c---------------------------------------------------------------- include 'fitcom.h' c from encod! integer jconst, io2n(maxval) integer iv, id, i, j, ip, jv, ilcl, inpath, jpar integer idata, inpth0, idpath, ipar, nvar parameter (jconst = 8192) c---------------------------------------------------------------------- c c fix integer codes to put variables first, then constants, then c ordered math expressions, so that a single pass will correctly c evaluate all "set" values c notes: puts "local" variables after constants c doesn't check for pathological recursion nvar = numvar call fixicd(icdval, maxval, micode, jconst, ixlocl, $ vnames, values, nvar, nconst, nmathx, io2n) if (nvar.ne.numvar) call finmsg(3200,' ',' ',0) c update xguess to reordered values! do 150 iv = 1, numvar xguess(iv) = values(iv) 150 continue c do 360 id = 1, ndata do 340 j = 1, mlocal do 320 i = 1, micode if (icdloc(i,j,id).eq.0) go to 325 if ((icdloc(i,j,id).gt.0).and. $ (icdloc(i,j,id).le.nmathx) ) $ icdloc(i,j,id) = io2n(icdloc(i,j,id)) 320 continue 325 continue 340 continue 360 continue c do 860 ip = 1, mpaths do 840 j = 1, mpthpr do 820 i = 1, micode if (icdpar(i,j,ip).eq.0) go to 825 if ((icdpar(i,j,ip).gt.0).and. $ (icdpar(i,j,ip).le.nmathx)) $ icdpar(i,j,ip) = io2n(icdpar(i,j,ip)) 820 continue 825 continue 840 continue 860 continue c c check that variables named in math expressions are defined do 1000 iv = 1, nmathx if ( (vnames(iv).ne.' ').and.(icdval(1,iv).eq.0) ) $ call finmsg(3220,vnames(iv),' ',0) 1000 continue c c check that the variables and user-defined functions are used. c expection for '_bkg_#' - these won't show up in other user-def fun's do 2000 iv = 1, nmathx if ( vnames(iv)(1:6).ne.'_bkg_#' ) then c check other user-defined functions and local values do 1600 jv = 1, nmathx if ((icdval(1,jv).gt.0).and. $ (icdval(1,jv).le.ixlocl)) then do 1500 i = 1, micode if (icdval(i,jv).eq.iv) go to 1990 1500 continue elseif(icdval(1,jv).gt.ixlocl) then ilcl = icdval(1,jv) -ixlocl do 1560 id = 1, ndata do 1530 i = 1, micode if (icdloc(i,ilcl,id).eq.iv) go to 1990 1530 continue 1560 continue endif 1600 continue c check path parameters do 1850 inpath = 1, mpaths do 1820 jpar = 1, mpthpr do 1800 i = 1, micode if (icdpar(i,jpar,inpath).eq.iv) go to 1990 1800 continue 1820 continue 1850 continue call finmsg(3240,vnames(iv),' ',-1) end if 1990 continue 2000 continue c c load default path params from the Oth path. copy 0th path param c to all non-explicitily given path params for that data set. do 4200 idata = 1, ndata inpth0 = jdtpth(0,idata) c if a 0th path is given for this data set... if (inpth0.le.0) go to 4190 c check all paths for this data set ... do 4150 idpath = 1, mdpths inpath = jdtpth(idpath, idata) if (inpath.gt.0) then c that if a zeroth path param was given ***and*** c an explicit path param was ***not*** given ... do 4100 ipar = 1, mpthpr if ((icdpar(1,ipar,inpath).eq.0).and. $ (icdpar(1,ipar,inpth0).ne.0)) then c that the zeroth path expression be copied. do 4050 j = 1, micode icdpar(j,ipar,inpath) = icdpar(j,ipar,inpth0) 4050 continue endif 4100 continue endif 4150 continue 4190 continue 4200 continue c c check the newly encoded expressions by evaluating them. c evaluate the user defined values id = 1 call setval(1,nmathx,icdval,maxval,micode, $ consts,mconst,values,icdloc,mlocal,mdata,ixlocl,id) return c end subroutine fitchk end ifeffit-1.2.11d/src/feffit/eval.f0000644000175000017500000000232710771740456015517 0ustar segresegre double precision function eval(icode,mvals,micode, $ consts,mconst, vals,old, $ icloc,mloc,md,ixlcl, id, ieval) c c evaluate integer codes of math expressions for "set" and "local" c valuess. includes decision of whether the named value is global c ("set") or "local" to the data set. c c notes: c 1. the first m element of "i(1,i)" are i(1,i) to i(m,i). c 2. the first element of the encoded integer arrays holds an c important clue about the nature of the math expression: c icode(1,i) = -1 variable c icode(1,i) = 0 unused c icode(1,i) > 0 user-defined function ("global") c icode(1,i) > ixlcl "local" integer mconst, mvals, micode, mloc, md integer ixlcl, ieval, jlcl, id double precision consts(mconst), vals(mvals), old, decod integer icode(micode, mvals), icloc(micode,mloc,md) external decod eval = old if (icode(1,ieval).gt.ixlcl) then jlcl = icode(1,ieval) - ixlcl eval = decod(icloc(1,jlcl,id), micode,consts,vals,old) elseif (icode(1,ieval).gt.0) then eval = decod(icode(1,ieval), micode,consts,vals,old) endif return end ifeffit-1.2.11d/src/feffit/xafsft.f0000644000175000017500000000612110771740456016057 0ustar segresegre subroutine xafsft(mpts, chip, wa, xgrid, xwgh, wfftc,jfft,chiq) c c xafs fourier transform. includes k-weighting, an arbitrary window c function, and mapping from FT conjugates (k,2R) to (k,R), with c rational normalization c c fft routines cfftf/b (from fftpack) are used in subroutine xfft. c c arrays wa and wfftc must be initialized before this routine: c wfftc must be initialized by "cffti". c wa is probably initialized by "window". c arguments c mpts dimension of arrays chip and wa [in] c chip complex array of input data, on uniform grid [in] c chip(1) = chi(x=0.), zero-padding expected. c wa real array of window function [in] c xgrid grid spacing for chip [in] c xwgh x-weight [in] c wfftc work array for fft [in] c jfft integer controlling functionality [in] c 1 forward transform (k->r) c 0 no transform (returns windowed data) c -1 reverse transform (r->k) c chiq complex fourier transform of chip [out] c c copyright 1997 matthew newville c-------------------------------------------------------------------- implicit none integer i, mpts, jfft, ixwgh double precision wfftc(*), wa(*), xwgh, dx, xgrid double precision sqrtpi, eps7, eps4 complex*16 chip(*), chiq(*), cnorm parameter(sqrtpi = 0.5641895835d0, eps7=1.d-7, eps4=1.d-4) c sqrtpi = 1 / sqrt(pi) c complex normalization constant, for the transform from r to k in c xafs, the xgrid is assumed to be the grid in r *not* in 2r. c to normalize correctly, cnorm must be multiplied by 2. c note that if we're not doing fft, we don't want to normalize cnorm = xgrid * sqrtpi * (1.d0,0.d0) if (jfft.lt.0) cnorm = 2 * cnorm if (jfft.eq.0) cnorm = (1.d0,0.d0) c make chiq as k-weighted and windowed chip c if xwgh is really an integer, do only the integer exponentiation ixwgh = int(xwgh) if (ixwgh.eq.0) then do 40 i = 1, mpts chiq(i) = (0,0) if (wa(i) .gt. eps7) chiq(i) = cnorm * chip(i) * wa(i) 40 continue else do 50 i = 1, mpts chiq(i) = (0,0) if (wa(i) .gt. eps7) chiq(i) = cnorm * chip(i) * wa(i) $ * ((i-1) * xgrid)**ixwgh 50 continue end if c do fp exponentiation only if it will be noticeable dx = xwgh - ixwgh if (dx .gt. eps4) then do 60 i = 1, mpts if (wa(i).gt.eps7) chiq(i) = chiq(i) * ((i-1)*xgrid)**dx 60 continue end if c do fft on modified array, chiq (fft is done in place): c jfft > 0: cfftf, k->r, forward fft c jfft < 0: cfftb, r->k, reverse fft c jfft = 0: no fft, chiq returned as is (ie, after weighting) if (jfft.gt.0) call cfftf(mpts,chiq,wfftc) if (jfft.lt.0) call cfftb(mpts,chiq,wfftc) return c end subroutine xafsft end ifeffit-1.2.11d/src/feffit/decod.f0000644000175000017500000002412710771740456015650 0ustar segresegre double precision function decod(icode, ni, $ consts, values, defval) c c copyright 1993 .. 1997 matt newville c c this decodes the icode array, inserting the values in consts, c and values when necessary, and returns the real value of the c calulated pararmeter. c the default value, defval, will be returned if icode is empty. c c input: c icode integer array containing code for the math expression c ni length of icode c consts real array of the constant numerical values c values real array containing the variable values c defval default value for the parameter c output: c decod real number calculated from integer code in icode c--------------------------------------------------------------------- integer mstack, ierr, iplace, istack, ic, i, ni double precision f1mth, f2mth, zero, cordby, einsdw, einval integer jconst, icode(ni) parameter(mstack= 32, jconst = 8192, zero = 0.) double precision consts(*), values(*), x(mstack), defval integer iexp, ilog, isqrt, isin, icos, itan, iabs, ineg integer iasin, iacos, iatan, isinh, icosh, itanh, icoth integer iadd, isub, imul, idiv, iy2x integer jadd, jsub, jmin, jmax, jdebye, jeins, jeins2 parameter(iexp = -10, ilog = -11, isqrt = -12, $ isin = -13, icos = -14, itan = -15, $ iasin = -16, iacos = -17, iatan = -18, $ iabs = -19, ineg = -20, isinh = -23, $ icosh = -24, itanh = -25, icoth = -26, $ iadd = -50, isub = -51, imul = -52, $ idiv = -53, iy2x = -54, jadd =-111, $ jsub =-112, jmin = -85, jmax = -86, $ jdebye=-120, jeins =-121, jeins2=-122) external f1mth, f2mth, cordby, einsdw, einval c c return default value if icode is empty decod = defval if (icode(1).eq.0) return c initialize stack do 20 i = 1, mstack x(i) = zero 20 continue ierr = 0 iplace = 0 istack = 0 c interpret next object, do operations, and manage stack c hold place in icode array with iplace 100 continue iplace = iplace + 1 if (iplace.gt.ni) ierr = 2 ic = icode(iplace) if (ic.eq.0) return c if number, then push everything in stack if (ic.ge.1) then istack = istack + 1 if (istack.ge.mstack) ierr = 1 do 200 i = istack, 2, -1 x(i) = x(i-1) 200 continue if (ic.le.jconst) x(1) = values(ic) if (ic.gt.jconst) x(1) = consts(ic - jconst) c one-component math: overwrite x(1), no change to rest of the stack elseif ( (ic.le.-10).and.(ic.ge.-49)) then x(1) = f1mth(x(1),ic,ierr) c two-component math: overwrite x(1), drop x(2), drop stack by 1 elseif ( (ic.le.-50).and.(ic.ge.-99)) then x(1) = f2mth( x(1),x(2),ic,ierr) call stack(x,istack,1) c special math operations: c each has its own external function call, and stack size. c : debye( x(2), x(1)) elseif (ic.eq.jdebye) then x(1) = cordby(x(2), x(1), ierr) call stack(x,istack,1) c : eins( x(2), x(1)) elseif (ic.eq.jeins) then x(1) = einsdw(x(2), x(1), ierr) call stack(x,istack,1) c : eins2( x(3), x(2), x(1)) elseif (ic.eq.jeins2) then x(1) = einval(x(3), x(2), x(1)) call stack(x,istack,2) else ierr = 3 end if c done: if there were no errors, update decod and go to next object if (ierr.eq.0) then decod = x(1) go to 100 end if c error handling: can only get here if (ierr.ne.0) decod = zero if (ierr.eq.ilog) then call echo(' math error: log(x) must have x > 0') elseif (ierr.eq.isqrt) then call echo(' math error: sqrt(x) cannot have x < 0') elseif (ierr.eq.iasin) then call echo(' math error: asin(x) must have (-1 < x < 1)') elseif (ierr.eq.iacos) then call echo(' math error: acos(x) must have (-1 < x < 1)') elseif (ierr.eq.idiv) then call echo(' math error: divide by 0') elseif (ierr.eq.iy2x) then call echo(' math error: invalid exponentiation') elseif (ierr.eq.jdebye) then call echo(' math error: error using "debye" function') call echo(' could not find a path index to use!') elseif (ierr.eq.jeins) then call echo(' math error: error using "eins" function') call echo(' could not find a path index to use!') elseif (ierr.eq.1) then call echo(' decoding error: exceeded stack size!') elseif (ierr.eq.2) then call echo(' decoding error: too many objects!') elseif (ierr.eq.3) then call echo(' decoding error: unknown operation!') else call echo(' decoding error: unknown error!') end if if (ierr.gt.0) call fstop(' decoding error') return c end function decod end double precision function f1mth( x, iop, ierr) c c copyright 1993 university of washington matt newville c c one component math. if any tests are failed, x is returned. c iop is an integer indication of which operation to perform. c double precision x, zero, one, expmax logical error integer iop, ierr integer iexp, ilog, isqrt, isin, icos, itan, iabs, ineg integer iasin, iacos, iatan, isinh, icosh, itanh, icoth parameter ( iexp = -10, ilog = -11, isqrt = -12, $ isin = -13, icos = -14, itan = -15, $ iasin = -16, iacos = -17, iatan = -18, $ iabs = -19, ineg = -20, isinh = -23, $ icosh = -24, itanh = -25, icoth = -26 ) parameter (zero = 0.d0, one = 1.d0, expmax = 50.d0) ierr = 0 error = .false. f1mth = zero if (iop.eq.iexp) then f1mth = exp( max( -expmax, min(x, expmax) ) ) elseif (iop.eq.ilog) then if ( x.gt.zero ) then f1mth = log(x) else error = .true. end if elseif (iop.eq.isqrt) then if ( x.ge.zero) then f1mth = sqrt(x) else error = .true. end if elseif (iop.eq.iabs) then f1mth = abs(x) elseif (iop.eq.ineg) then f1mth = - x elseif (iop.eq.isin) then f1mth = sin(x) elseif (iop.eq.icos) then f1mth = cos(x) elseif (iop.eq.itan) then f1mth = tan(x) cc elseif (iop.eq.icot) then cc f1mth = one / max( small, tan(x) ) elseif (iop.eq.iasin) then if (dabs(x).le.one) then f1mth = asin(x) else error = .true. end if elseif (iop.eq.iacos) then if (dabs(x).le.one) then f1mth = acos(x) else error = .true. end if elseif (iop.eq.iatan) then f1mth = atan(x) elseif (iop.eq.itanh) then f1mth = tanh( max(-expmax, min(x, expmax)) ) elseif (iop.eq.icoth) then f1mth = one / tanh( max(-expmax, min(x, expmax)) ) elseif (iop.eq.icosh) then f1mth = cosh( max(-expmax, min(x, expmax)) ) elseif (iop.eq.isinh) then f1mth = sinh( max(-expmax, min(x, expmax)) ) else f1mth = x end if if (error) ierr = iop return c end function f1mth end double precision function f2mth( x, y, iop, ierr) c c copyright 1993 university of washington matt newville c c two component math. c if ( (negative number)**(fraction)) is requested, x is returned. c c iop is an integer indication of which operation to perform. c if iop = 0, then x is returned. double precision x, y, zero, one, fifty, xtmp, test integer ierr, iadd, isub, imul, idiv, iy2x, iop, newx integer jmin, jmax parameter ( iadd = -50, isub = -51, imul = -52) parameter ( idiv = -53, iy2x = -54 ) parameter ( jmin = -85, jmax = -86) parameter ( zero = 0.d0, one = 1.d0, fifty = 50.d0) ierr = 0 f2mth = zero if (iop.eq.0) then f2mth = x elseif (iop.eq.iadd) then f2mth = y + x elseif (iop.eq.isub) then f2mth = y - x elseif (iop.eq.imul) then f2mth = y * x elseif (iop.eq.jmin) then f2mth = min(y, x) elseif (iop.eq.jmax) then f2mth = max(y, x) elseif (iop.eq.idiv) then if (x.eq.zero) then f2mth = zero ierr = iop else f2mth = y / x end if elseif (iop.eq.iy2x) then newx = int(x) xtmp = float(newx) if (x.eq.zero) then f2mth = one elseif ( (y.eq.zero).and.(x.gt.zero)) then f2mth = zero elseif (y.gt.zero) then test = x * log(y) if (test.gt.fifty) then f2mth = exp(fifty) elseif (test.lt.(-fifty)) then f2mth = exp(-fifty) else f2mth = y**x end if elseif ( (y.lt.zero).and.(xtmp.eq.x)) then test = xtmp * log(-y) if (test.gt.fifty) then f2mth = exp(fifty) elseif (test.lt.(-fifty)) then f2mth = exp(-fifty) else f2mth = y**newx end if else f2mth = zero ierr = iop end if end if return c end function f2mth end subroutine stack(xstack,istack,ipop) c c copyright 1993 university of washington matt newville c drop the stack held in x by idrop. (ipop = 1 for 2 component math) double precision xstack(*) integer istack, ipop, i istack = istack - ipop do 100 i = 2, istack xstack(i) = xstack(i + ipop) 100 continue do 120 i = istack + 1, istack + ipop xstack(i) = 0.d0 120 continue return c end subroutine stack end ifeffit-1.2.11d/src/feffit/xfsout.f0000644000175000017500000001560510771740456016123 0ustar segresegre subroutine xfsout(chiq,chiqr,format,vax,filchi,filrsp,filenv, $ cmpchi,chiflg,rspflg,envflg,irecl, $ iexist,skychi,skyrsp,skyenv,cmt, ndocx, $ qwind, qweigh, rwind, rweigh, $ wfftc, mfft, rlast, qoutlo, qouthi, pcflg, qfeff, phafef, $ mfeff, qgrid, ndoc, doc) c c given chi(k) and a whole lot of input parameters, this will c write output files with chi(k), chi(r), and backtransformed c chi(k). for peculiar historical reasons, i will use the c convention that env and p refer to the two arrays for c backtransformed chi(k), and chi and q to the two arrays c for unfiltered chi(k). the letter k is taken to be ambiguous c here (and a fortran integer) so it will be completely avoided. c c copyright 1993 university of washington matt newville c c inputs: c chiq array of unfiltered chi(k) data, on grid c such that chiq(1) = chi(k=0.) c filchi name of output raw-k-space file to write c filrsp name of output r-space file to write c filenv name of output filtered-k-space file to write c format format of output files (uwxafs of ascii) c vax logical flag for writing binary data in vax format c chiflg logical flag for writing raw-k-space data c rspflg logical flag for writing r-space data c envflg logical flag for writing filtered-k-space data c ndoc number of document lines to write out c doc documents to write out c qoutlo lowest value in raw-k-space to write out data c qouthi highest value in raw-k-space to write out data c qgrid k-grid spacing for writing out data and fft c qweigh k-weight to use for fft c qwin1 window parameter #1 for k->r ft c qwin2 window parameter #2 for k->r ft c wfftc work array for fft (initialized with cffti using mfft ) c mfft number of points to use in fft ( .le.2048 ) c rlast highest r value to write out c iexist integer flag for rewriting data to a uwexafs file c outputs: c skychi output skey of chi(k) file (raw-k-space) c skyrsp output skey of chi(r) file (r-space) c skyenv output skey of env(p) file (filtered-k-space) c c note mfft must be less than or equal to 2048 c ccc implicit none integer maxpts, i, nqout, nqouth, nqoutl, nkyout, nrout,ndocx double precision qouthi, qoutlo, qsmall, qgrid double precision rsmall, rgrid, rlast integer nfft, iexist, ndoc, mfft, mfeff double precision zero, pi parameter (maxpts = 2048, mxmpts=2048) parameter (zero = 0.d0, pi = 3.141592653589793d0) character*128 filchi, filrsp, filenv, cmt*2 character*100 doc(*) character*5 skychi, skyrsp, skyenv, format*10, type*10 double precision chiq(mfft), chiqr(mfft), wfftc(4*mfft+15) double precision rwind(mfft), qwind(mfft), rweigh, qweigh double precision xdata(maxpts), yreal(maxpts), yimag(maxpts) double precision yphas(maxpts), yampl(maxpts) double precision qfeff(mfeff), phafef(mfeff) complex*16 cchiq(mxmpts), cchir(mxmpts), coni parameter (coni = (0.d0,1.d0)) logical vax, chiflg, rspflg, envflg, cmpchi, pcflg c c initialize do 20 i = 1, maxpts xdata(i) = zero yreal(i) = zero yimag(i) = zero yampl(i) = zero yphas(i) = zero cchiq(i) = cmplx(zero, zero) cchir(i) = cmplx(zero, zero) 20 continue c check that mfft .le. maxpts nfft = maxpts rgrid = pi / ( nfft * qgrid) rsmall = rgrid / 100.0 qsmall = qgrid / 100.0 nqoutl = int( (qoutlo + qsmall) / qgrid ) if (nqoutl.lt.0) nqoutl = 0 nqouth = int( (qouthi + qsmall) / qgrid ) nqout = nqouth - nqoutl + 1 nrout = int( (rlast + rsmall) / rgrid ) c c construct chi(k) on q range [qoutlo, qouthi] do 200 i = 1, nqout xdata(i) = qoutlo + (i-1)*qgrid yreal(i) = chiq(nqoutl + i) 200 continue c c k - space if (chiflg) then type = 'chi' if (cmpchi) then call smcase(format,'u') if (format(1:2).ne.'uw') type = 'env' do 240 i = 1, nqout yimag(i) = chiqr(nqoutl + i) 240 continue end if nkyout = 0 c write out chi(q) on q range [qoutlo, qouthi] cc print*, 'xfsout: outdat chi: ', filchi(1:20), ':' call outdat(type, format, filchi, vax, $ cmt, skychi, nkyout, irecl, ndoc, ndocx, doc, $ nqout, xdata, yreal, yimag, yampl, yphas, iexist) do 320 i = 1, nqout + 10 xdata(i) = zero yreal(i) = zero yimag(i) = zero yampl(i) = zero yphas(i) = zero 320 continue end if c c construct chi(r) c construct complex chi(k) c take fft of complex chi(k) to get cchir if (rspflg.or.envflg) then if (pcflg) then ipos = 1 do 400 i = 1, nfft q = (i-1) * qgrid call lintrp(qfeff, phafef, mfeff, q, ipos, pha) cchiq(i) = cmplx(chiq(i), zero) * exp(-coni * pha) 400 continue else do 430 i = 1, nfft cchiq(i) = cmplx(chiq(i), zero) 430 continue end if c do ix = 20, 30 c print*, nfft, ix, ix*qgrid, qwind(ix), cchiq(ix) c end do call xafsft(nfft, cchiq, qwind, qgrid, qweigh, $ wfftc, 1, cchir) end if c c write chi(r) on r range [0.,rlast] if (rspflg) then do 500 i = 1, nrout xdata(i) = (i-1)*rgrid yreal(i) = dble ( cchir(i)) yimag(i) = dimag( cchir(i)) yampl(i) = zero yphas(i) = zero 500 continue type = 'rsp' nkyout = 0 cc print*, 'xfsout: outdat rsp: ', filrsp(1:20), ':' call outdat(type, format, filrsp, vax, $ cmt, skyrsp, nkyout, irecl, ndoc, ndocx, doc, $ nrout, xdata, yreal, yimag, yampl, yphas, iexist) end if c c construct env(k) on q range [qoutlo, qouthi] if (envflg) then c take back-fft of complex chir to get crhiq call xafsft(nfft, cchir, rwind, rgrid, rweigh, wfftc, $ -1, cchiq) do 800 i = 1, nqout xdata(i) = qoutlo + (i-1)*qgrid yreal(i) = dble ( cchiq(i+nqoutl)) yimag(i) = dimag( cchiq(i+nqoutl)) yampl(i) = zero yphas(i) = zero 800 continue type = 'env' nkyout = 0 cc print*, 'xfsout: outdat env: ', filenv(1:20), ':' call outdat(type, format, filenv, vax, $ cmt, skyenv, nkyout, irecl, ndoc, ndocx, doc, $ nqout, xdata, yreal, yimag, yampl, yphas, iexist) end if return c end subroutine xfsout end ifeffit-1.2.11d/src/feffit/feffit.f0000644000175000017500000002560710771740456016041 0ustar segresegre program feffit c c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - c --- program feffit c c author Matthew Newville c post GSECARS, Bldg 434A c APS, Argonne National Laboratory c Argonne, IL 64309 USA c voice (630) 252-0431 c fax (630) 252-0443 c e-mail newville@cars.uchicago.edu c web http://cars.uchicago.edu/~newville/feffit/ c c version feffit 2.981 c update 25-apr-2003 c c --- copyright 2002,2003 matt newville c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - c c feffit will fit the results of a feff (5 and higher) calculation c to xafs chi(k) data, allowing parameters in the xafs equation to c vary until the least-squares difference between data and theory c is minimized. principle features of feffit are: c - fitting can be done in r-space or backtransformed k-space. c - the xafs equation is evaluated as a sum over paths. c - physical parameters for each path can be easily constrained. c the user writes math expressions for these parameters in c terms of user-chosen variables which are used in the fit. c - error analysis is done, giving an estimate for the c uncertainties in the fit variables, the correlations c between these variables, and the goodness-of-fit. c c feffit uses the following inputs: c 1. an input file named feffit.inp. c 2. a set of feffnnnn.dat files from feff (5 or higher), c for the xafs contribution from a scattering path. c 3. chi(k) data, which can be in either a uwxafs 'chi' file c or an ascii column file. c see documentation for further details. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - c version notes: c vax versions differ from standard versions by: c 1. irecl = 128 (standard irecl = 512) for uwxafs binary files c 2. output log files are opened with status = 'new' c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - c major revisions (for a complete revision record, contact matt) : c feffit 2.01 july 28 1993 (fit multiple data sets) c feffit 2.05 jan 19 1994 ("local"s added, many minor fixes) c feffit 2.10 may 15 1994 (added bkg spline option) c feffit 2.20 june 1 1994 (fixed bug in uncertainties) c feffit 2.30 nov 17 1994 (added fitting in q-space) c feffit 2.31 dec 4 1994 c feffit 2.32 dec 12 1994 (added routine testrf) c feffit 2.33 may 10 1995 (added flag for tranquada correction) c - minor debugging for g77 c - fixed rfact c feffit 2.34 june 3 1995 (altered inpdat, inpcol, and testrf) c - made to accept less strict formatting of ascii data c feffit 2.35 june 4 1995 (add constant phase shift) c - altered all path parameter handling, using "pointers" c feffit 2.36 june 16 1995 (add rm2fg flag) c - to use {reff}^{-2} in xafs eq. instead of {reff+delr}^{-2} c feffit 2.37 june 22 1995 (added fixicd, rearranged decoding) c - added routine fixicd to sort integer icodes, so that c variables come first, then trivial constants, then locals, c and finally the user-defined functions, ordered so that c they can be stably determined in one pass. also altered the c handling of local "set" values so that the icdval array c holds the pointer to which expression to evaluate. c 2.38 june 22 1995 (adding derived uncertainties in c used defined functions and path params) c .f july 10 changed tranquada correction to integer flag c .g july 18 changed tranquada correction to real factor c 2.39a 31-july-95 altered calculation of the number of c independent points. now considers amount of c information to be a non-integer, and uses c simple (2/pi) * dk * dr + 2 . c b 03-aug-95 fixed serious problem of not resetting c values of xguess after reordering the c variables and "set" values. easy fix. c 2.40a 17-aug-95 changed chipth, so that now, as in feff, c p = Re(p) + i / lambda c (was using a "-" before!). c this turned out to be very important for c large disorder!!!! c b 27-aug changed default rm2flag to .false. c 2.41a 04-oct-95 changed bkgfile to subtract bkg from data c 2.41b 06-oct-95 altered fftfit to prevent access violation c of qgrid on call to fftout c 2.42 08-oct-95 added flag "kfull" to write out the full c complex chi(k) (real and imag) for the c theory, without doing 2 fourier tranforms c (not well tested with uwxafs files yet) c 2.42b 07-may-96 altered outcol & outdat (and xfsout) to c allow arbirtary comment character and c a fixed number of doc lines c 2.45 31-may-96 added logical flags "pcfit" and "pcout" to c fit and write outputs for phase corrected c FT. This will use the phase dependence of c the first feffnnnn.dat file, to alter the c complex chi(k) to be c chi(k)_pc = chi(k) * exp(-i * phase(k)) c where phase(k) is the total phase from the c feffnnnn.dat file (col 2 + col 4). c 2.45b 07-Jun-96 several minor cosmetic changes, including c commenting out all "dafs" references, and c improving and moving around some error c checking and messages. c 2.45c 18-Jul-96 altered output statements in fitck2 c 2.45d 05-Aug-96 use juser for output path file name, c added routine setsys to set system flags c 2.45e 07-Aug-96 fixed error in q-space fitting c (number of fit points was incorrect!!) c 2.46 02-oct-96 chipth made more efficient, dafs removed c 2.46b 10-oct-96 added routine fixstr for strings in fitinp, c removed all traces of dafs, changed some c error messages, and changed toler c 2.46c 11-oct-96 added routine finmsg to c deal with error messages from fitinp c 2.50 11-dec-96 added support for feff.bin files written by c feff702m (matt's asci feff.bin file) c 2.51 16-may-97 ft window arrays now calculated once (in fitdat) c and stored for use in xafsft. altered routines c fitfft, xafsft, xfsout, fitout, fitnls, fitfun c 2.52 20-aug-97 several minor changes for ifeffit compatibility c b 16-dec-97 re-implemented "min" and "max" functions! c c 17-dec-97 increased sizes for math parsing: c maxval in encod.f -> 128 c micode in const.h -> 50 c strings in fitinp.f -> *128 c d 06-jan-98 fixed initialization of iunit array in getcom, c which was preventing include files from working c e 13-mar-98 fixed bug introduced in 2.52 for determining feff c path to use for phase-correction. "pcout=t,pcfit=f" c now verified to work. c f 25-jun-98 fixed bug in xafsft allowing 0**0. c g 26-jun-98 increased line lengths to 128 characters many places, c and to 256 in others. 128 char lines in feffit.inp c should now always work. Also increased micode c and several other params in encod and friends to c allow many more math expressions. Increased max c number of paths (mpaths and mdpths) to 512. c h 03-mar-99 fixed bug in fitout naming scheme that could cause c outputs to be written to standard output. c 2.53 10-mar-99 altered 'nfit' in fitfun for k-space fits to be c 2x number of points. This effectively makes the c 'real' component of chi(k) 0.00. c -- added 'fit_space' keyword which takes the values c 'k', 'r', or 'q'. c 2.54 06-apr-99 made several alteration to encod and friends to c allow 256-element math expressions (possibly more) c added (but commented out) rpndmp to dump the rpn c code to screen. c 2.54 06-apr-99 made several alteration to encod and friends to c 2.55 07-feb-02 fix parse error for min() and max() functions. c 2.97 05-mar-02 included in ifeffit c 2.98 18-sep-02 fixed bug in fixicd making 'debye(20,20)' look like c a constant so that set parameters and path params c depending on this value were not always updated. c 2.983 08-oct-03 use get_inpfile for command-line input file name c---------------------------------------------------------------------- include 'fitcom.h' c local variables character*10 systm integer il, istrln external istrln cc data systm /'unix'/ data systm /'unix'/ c system options: 'unix','vax','dos','mac' call sca_init call echo_init call open_echofile('feffit.run') call fstop_init('feffit.err') call setsys(systm,vaxflg,dosflg,macflg) c version & date il = max (1,istrln(systm)) versn = ' feffit 2.984 10-Jan-2004' il = istrln(versn) call echo(versn(1:il)) c initialize call fitint c read input file call echo(' - reading inputs ' ) call fitinp c read data files call echo(' - reading input data files ' ) call fitdat c check integer coding of math formulas call echo(' - checking math expressions ') call fitchk c read feff files call echo(' - reading feff data files') call fefsrt( mfffil, mpaths, feffil, iffrec, jpthff) call fefinp( mffpts, mfffil, mffttl, maxleg, fefttl, feffil, $ iffrec, degflg, degpth, refpth, rwgpth, ratpth, theamp, $ thepha, qfeff, cphase, sphase, $ realp, xlamb, nlgpth, izpth, iptpth) c check that initial guesses for path parameters are "reasonable" call fitck2 c do non-linear-least-squares fit to determine best-fit values and c uncertainties in fitted parameters call echo(' - finding best-fit values for the variables') call fitnls c write results to log file and parameter file messg = ' - writing results to log file ' il = istrln(messg) if (prmout) call append(messg,' and parameter file',il) call echo (messg(1:il)) call fitlog if (prmout) call fitprm c write results to data files: if (noout) then call echo(' - *not* writing output data files') else call echo(' - writing output data files') call fitout endif c finished call echo(' feffit is finished. have a nice day.') call close_echofile() c end program feffit end ifeffit-1.2.11d/src/feffit/testrf.f0000644000175000017500000000535310771740456016101 0ustar segresegre subroutine testrf(flnam, irecl, flform, ier) c c test whether a data file can be interpreted as uwxafs binary c data file or ascii column data file. c c uwxafs binary files use direct access binary files c with word size irecl, which is a machine dependent parameter c c ier = -1 : file not found c ier = -2 : broken uwxafs file? c ier = -3 : not uwxafs file, but can't find data. c ier = -4 : looks like ascii, saw line of minus signs, c but 2nd following line doesn't have data c c copright 1994 university of washington matt newville c ----------------------------------------------------- integer i, irecl, iunit character*(*) flnam, flform, line*128 integer*2 indx(4) logical exist, opend, isdat, prevdt, lisdat external isdat c ----------------------------------------------------- flform = 'none' ier = -1 iunit = 7 10 continue inquire(unit=iunit, opened = opend) if (opend) then if (iunit.gt.20) return iunit = iunit + 1 go to 10 endif inquire(file = flnam, exist = exist) if (.not.exist) return ier = -2 c ----------------------------------------------------- c try reading file as a uwxafs binary file c which have patriotic magic numbers embedded in them indx(3) = 0 indx(4) = 0 open(iunit, file= flnam, recl = irecl, err = 20, $ access = 'direct', status = 'old' ) 20 continue read(iunit, rec=1, err = 25) (indx(i), i=1,4) 25 continue if ((indx(3).eq.1776).and.(indx(4).eq.704)) then flform = 'uwxafs' ier = 0 go to 900 end if c ----------------------------------------------------- c try to read file as ascii data file close(iunit) open(iunit, file=flnam, status='old') prevdt = .false. 200 continue ier = -3 read(iunit, '(a)', end = 900, err = 900) line call sclean (line) call triml (line) if (line(3:6) .eq. '----') then ier = -4 read(iunit, '(a)', end = 900, err = 900) line call sclean (line) read(iunit, '(a)', end = 900, err = 900) line call sclean (line) lisdat = isdat(line) if (lisdat ) then flform = 'ascii' ier = 0 end if go to 900 end if c if two lines in a row have all words being numbers, it is data lisdat = isdat(line) if (lisdat.and.prevdt) then flform = 'ascii' ier = 0 go to 900 end if prevdt = lisdat go to 200 c--------------------- 900 continue close(iunit) return c end subroutine testrf end ifeffit-1.2.11d/src/feffit/fitcom.h0000644000175000017500000000046210771740456016051 0ustar segresegrec{fitcom.h -*-fortran-*- c common blocks for feffit implicit none include 'const.h' include 'fefdat.h' include 'chars.h' include 'math.h' include 'varys.h' include 'fft.h' include 'data.h' include 'bkg.h' include 'inout.h' c fitcom.h} ifeffit-1.2.11d/src/feffit/fitlog.f0000644000175000017500000005170610771740456016061 0ustar segresegre subroutine fitlog c c write log file to summarize fitting run for feffit. c the layout here is hoped to be user-friendly. c feel free to change any of this at any time. c c copyright 1993 university of washington matt newville c c---------------------------------------------------------------------- include 'fitcom.h' character*40 logfil, stat*7, outstr*128 double precision par(mdpths, mpthpr), rfmin, rfave double precision redchi, sqrchi, order, small, ten double precision tmp1(mvarys**2), tmp2(mvarys**2) double precision decod, reff,corr, xnu integer ilog, i, istrln, nstart,id,ilo,inpath integer idpath,im,ipath,juser,jfeff,ind, nvr1, nvr2 integer jlen, ntmp, n, nv, ilen, iex, ierr, idot parameter ( rfmin =0.05d0, small = 1.d-5, ten = 10.d0) external decod, istrln c---------------------------------------------------------------------- c winstr(1) = 'hanning window sills' c winstr(2) = 'hanning window fraction' c winstr(3) = 'gaussian window' c winstr(4) = 'lorentzian window' c winstr(5) = 'parzen window ' c winstr(6) = 'welch window ' c winstr(7) = 'sine window ' c winstr(8) = 'gaussian window (2nd form)' stat = 'unknown' if (vaxflg) stat = 'new' c determine log file name (usually trivial) c but if not, find the *last* "." logfil = 'feffit.log' if (inpfil.ne.'feffit.inp') then call triml(inpfil) idot = max(1,istrln(inpfil)) if (index(inpfil(1:idot),'.').ne.0) then 15 continue if (index(inpfil(idot:idot),'.').eq.0) then idot = idot - 1 go to 15 end if end if logfil = inpfil(1:idot) //'log' end if c open log file ilog = 0 ierr = 0 iex = 0 call openfl(ilog, logfil, stat, iex, ierr) if (ierr.lt.0) call finmsg(1002,' ',logfil,0) c c write preliminary messages: ilen = max(1, istrln(versn)) write(ilog,9002) ' '//versn(1:ilen) write(ilog,9904) c list input data sets, titles for each c also, compute average r-factor if (ndata.eq.0) then write(ilog,9003) 'no input data files.' else if (ndata.eq.1) then write(ilog,9003) 'input data file:' else write(ilog,9003) 'input data files:' endif rfave = zero do 80 n = 1, ndata rfave = rfave + rfactr(n) if (ndata.gt.1) write(ilog,9055) '-> data set ',n if (datain(n)) then ilen = max(1, istrln(chifil(n))) outstr = 'input data chi file = ' $ //chifil(n)(:ilen)//', skey = '//skey(n) else outstr = ' no input data file given' endif ilen = max(1,istrln(outstr)) write(ilog,9005) outstr(1:ilen) c##r):' write(ilog,9020) 'k range = [',qmin(id),',',qmax(id),' ]' write(ilog,9030) 'k weight = ', qweigh(id) write(ilog,9020) 'dk1, dk2 = ',qwin1(id),',',qwin2(id),' ' write(ilog,9005) 'window type= '//sqwin(id) write(ilog,9003) 'fourier transform information (r->k):' write(ilog,9020) 'r range = [',rmin(id),',',rmax(id),' ]' write(ilog,9030) 'r weight = ', rweigh(id) write(ilog,9020) 'dr1, dr2 = ',rwin1(id),',',rwin2(id),' ' write(ilog,9005) 'window type= '//srwin(id) endif write(ilog,9055) 'number of points in fft for fitting = ',mftfit write(ilog,9055) 'number of points in fft for outputs = ',mftfit write(ilog,9902) c-------------------------------------------------------------- c write out the "set" values of user defined functions if (nmathx.eq.numvar) then outstr = 'no "set" values were used in feffit' write(ilog,9005) outstr else outstr = 'feffit found the following values '// $ 'for the "fixed" values:' ilo = max(1,istrln(outstr)) write(ilog,9005) outstr(1:ilo) c ---------------------------------------- c first evaluate the set values for this data set inpath = max(1, jdtpth(1,id)) jfeff = max(1, jpthff(inpath)) reff = max(small, refpth(jfeff)) ixpath = jfeff consts(4) = reff call setval(numvar+1,nmathx,icdval,maxval,micode, $ consts,mconst,values,icdloc,mlocal,mdata,ixlocl,id) do 700 i = numvar+1, nmathx ilen = max(20, istrln(vnames(i))) order = dabs(log(dabs( values(i)) + small )) if (order.lt.ten) then write(outstr,9310) vnames(i)(1:ilen), values(i) else write(outstr,9320) vnames(i)(1:ilen), values(i) end if if (icdval(1,i).gt.ixlocl) $ call append(outstr,' (local) ',im) ilo = max(1,istrln(outstr)) write(ilog,9005) outstr(1:ilo) 700 continue write(ilog,9902) end if c ---------------------------------------- c for each path, write out the index and label, and c calculate and save the numerical path parameters. c c write out names of feff.dat files write(ilog,9003) 'path feff file name' c c iuser "user path index" written in feffit.inp c inpath "internal path index" for the path parameters [mpaths] c ifeff "feff path index" for the feff files [mfffil] c idpath "data path index" for each data set [0:mdpths, mdata] c pointers held in common: c jdtpth(idpath,idata) = inpath c jdtusr(idpath,idata) = iuser c jpthff(inpath) = ifeff do 1500 ipath = 1, mdpths inpath = jdtpth(ipath,id) if (inpath.gt.0) then jfeff = jpthff(inpath) ixpath = jfeff juser = jdtusr(ipath, id) call triml(feffil(jfeff)) ilen = max(1, istrln(feffil(jfeff))) if (iffrec(jfeff).eq.0) then write(ilog,9100) juser, feffil(jfeff)(1:ilen) else write(ilog,9105) juser, feffil(jfeff)(1:ilen), $ iffrec(jfeff) endif end if 1500 continue c write out user id's write(ilog,9902) write(ilog,9003) 'path identification ' do 1600 ipath = 1, mdpths inpath = jdtpth(ipath,id) if (inpath.gt.0) then jfeff = jpthff(inpath) juser = jdtusr(ipath, id) call triml(pthlab(inpath)) ilen = min(70, istrln(pthlab(inpath)) ) if (ilen.le.0) then ilen = min(70, max(1, istrln(feffil(jfeff)))) if (iffrec(jfeff).eq.0) then write(pthlab(inpath),9450) $ feffil(jfeff)(1:ilen), refpth(jfeff), $ degpth(jfeff), nlgpth(jfeff) else write(pthlab(inpath),9455) $ feffil(jfeff)(1:ilen), iffrec(jfeff), $ refpth(jfeff), degpth(jfeff), nlgpth(jfeff) end if endif ilen = min(70, max(1, istrln(pthlab(inpath)))) write(ilog,9100) juser, pthlab(inpath)(1:ilen) end if 1600 continue c-------------------------------------------------------------- c path parameters c evaluate the path parameters from the values and defaults do 2000 idpath = 1, mdpths inpath = jdtpth(idpath,id) if (inpath.eq.0) go to 1990 jfeff = jpthff(inpath) reff = refpth(jfeff) ixpath = jfeff consts(4) = reff c evaluate the non-variable values c evaluate the non-variable values c in case they depend on reff, local values to data set, etc c## if (numvar.gt.0) then nstart = nconst + numvar + 1 call setval(nstart,nmathx,icdval,maxval,micode, $ consts,mconst,values,icdloc,mlocal,mdata,ixlocl,id) c## end if c evaluate the path parameters from the values and defaults c (these were found in fitfun before this routine was called) do 1950 i = 1, mpthpr par(idpath,i) = decod(icdpar(1, i, inpath), micode, $ consts, values, defalt(i)) 1950 continue c 1990 continue 2000 continue c write out first set of numerical path parameters write(ilog,9902) outstr = 'path degen amp e0'// $ ' {reff + delr} delr sigma2' ilo = max(1,istrln(outstr)) write(ilog,9003) outstr(1:ilo) do 3500 idpath = 1, mdpths inpath = jdtpth(idpath,id) if (inpath.gt.0) then jfeff = jpthff(inpath) write(ilog,9150) jdtusr(idpath, id), degpth(jfeff), $ par(idpath, jps02), par(idpath, jpe0), $ refpth(jfeff) + par(idpath, jpdelr), $ par(idpath, jpdelr), par(idpath, jpsig2) end if 3500 continue c c e_imag, third and fourth cumulants, phase shift write(ilog,9902) outstr = 'path ei third fourth' if (dphflg) call append(outstr,' dphase',im) ilo = istrln(outstr) write(ilog,9003) outstr(1:ilo) c do 3600 idpath = 1, mdpths inpath = jdtpth(idpath,id) if (inpath.gt.0) then jfeff = jpthff(inpath) if (.not.dphflg) then write (ilog,9253) jdtusr(idpath, id), $ par(idpath, jpei ), par(idpath, jp3rd), $ par(idpath, jp4th) else write (ilog,9254) jdtusr(idpath, id), $ par(idpath, jpei ), par(idpath, jp3rd), $ par(idpath, jp4th), par(idpath, jpdpha) end if end if 3600 continue c c continue to next data set c id = id + 1 if (id.le.ndata) go to 500 c finished write(ilog,9902) close(unit=ilog) return c c formats 9002 format(2x,a) 9003 format(3x,a) 9005 format(5x,a) 9007 format(7x,a) 9015 format(5x, a, f6.3, 1x, a, i3) 9020 format(5x,2(a,f10.5),a) 9030 format(5x,a,f10.5) 9035 format(5x,a,f14.6) 9036 format(5x,a,e14.6) 9055 format(5x,a,2x,i5) 9060 format(5x,a,f11.3) 9070 format(7x,2a,3(2x,f14.6)) 9080 format(7x,2a,2x,f14.6) 9100 format(2x,i5,3x,a) 9105 format(2x,i5,3x,a,1x,',',1x,i5) 9150 format(4x,i3,3x,f6.2,3x,f7.4,2x,f9.5,3x,f8.4,2x,f9.5,3x,f10.6) 9253 format(4x,i5,3(1x,f10.6)) 9254 format(4x,i5,4(1x,f10.6)) 9255 format(4x,i5,5(1x,f10.6)) 9256 format(4x,i5,6(1x,f10.6)) 9310 format(2x,a,' = ',f14.6) 9320 format(2x,a,' = ',e14.6) 9450 format(a,': r=',f6.3,'; n=',f6.2,'; nlegs=',i3) 9455 format(a,' ,',i5,': r=',f6.3,'; n=',f6.2,'; nlegs=',i3) 9903 format(3x,'>> ',a,' <<') 9910 format(3x,'>> ',a,f9.4,' <<') 9902 format(2x,70('-')) 9904 format(2x,70('=')) c c end subroutine fitlog end ifeffit-1.2.11d/src/feffit/nxtunt.f0000644000175000017500000000075010771740456016126 0ustar segresegre integer function nxtunt(iunit) c return next available unit number, greater than or equal to iunit. c will not return unit number less than 1, or equal to 5 or 6. integer iunit logical open nxtunt = max(1, iunit) 10 continue inquire (unit=nxtunt, opened=open) if (open) then nxtunt = nxtunt + 1 if ((nxtunt.eq.5).or.(nxtunt.eq.6)) nxtunt = 7 goto 10 endif return c end integer function nxtunt end ifeffit-1.2.11d/src/feffit/bkg.h0000644000175000017500000000063310771740456015333 0ustar segresegrec{bkg.h -*-fortran-*- c background removal parameters in feffit... integer mtknot, korder, nbkg(mdata) parameter (mtknot = 30, korder = 4 ) logical bkgfit(mdata), bkgout, bkgdat(mdata) double precision qknot(mtknot,mdata) double precision rbkg(mdata), bkgq(maxpts,mdata) common /bkg_l/ bkgfit, bkgdat, bkgout, nbkg common /bkg_d/ qknot, rbkg, bkgq c bkg.h} ifeffit-1.2.11d/src/feffit/fitprm.f0000644000175000017500000002647210771740456016100 0ustar segresegre subroutine fitprm c c compute uncertainties in all values described by an c encoded math expression, held in integer code icdval, c as generated by encod and ordered by fixicd. c c copyright 1995 university of washington matt newville c-------------------------------------------------------------------- include 'fitcom.h' integer i, j, k, idp, iex, ierr, ilen, istrln integer nstart, id, idpath, inpath, jfeff, juser,n, idot character outstr*128, fil*128, stat*10 double precision tiny, scale, oldval, two, decod, eval double precision dvdx(maxval,mvarys), dpdx(mpthpr,mvarys) double precision par(mpthpr), dpar(mpthpr), rfave, reff double precision redchi, sum, dx, pold, thous, xnu, degen parameter (tiny = 1.0d-10, two = 2.d0) parameter (thous = 0.001d0) external eval, istrln, decod data stat, idp / 'unknown', 0/ c fil = 'feffit.prm' if (inpfil.ne.'feffit.inp') then call triml(inpfil) idot = max(1,istrln(inpfil)) if (index(inpfil(1:idot),'.').ne.0) then 15 continue if (index(inpfil(idot:idot),'.').eq.0) then idot = idot - 1 go to 15 end if end if fil = inpfil(1:idot) //'prm' end if c redchi = chisqr xnu = xnidp - numvar if (xnu.gt.0) redchi = chisqr / xnu scale = sqrt(dabs(redchi)) call openfl(idp, fil, stat, iex, ierr) if (ierr.lt.0) call finmsg(1001,fil,' ',0) do 10 i = 1, nmathx delval(i) = zero 10 continue c c write preliminary message ilen = max(1, istrln(versn)) write(idp,9005) versn(1:ilen) write(idp,9002) '==================================='// $ '===================================' c list input data sets, titles for each c also, compute average r-factor if (ndata.eq.0) then write(idp,9003) 'no input data files.' else if (ndata.eq.1) then write(idp,9003) 'input data file:' else write(idp,9003) 'input data files:' endif rfave = zero do 30 n = 1, ndata rfave = rfave + rfactr(n) if (ndata.gt.1) write(idp,9009) '-> data set ',n if (datain(n)) then ilen = max(1, istrln(chifil(n))) outstr = 'input data chi file = ' $ //chifil(n)(:ilen)//', skey = '//skey(n) else outstr = ' no input data file given' endif ilen = istrln(outstr) write(idp,9005) outstr(1:ilen) c##', ratpth(1,i,jfeff), $ ratpth(2,i,jfeff), ratpth(3,i,jfeff), $ iptpth(i,jfeff), izpth(i,jfeff) else write(outdoc(j),9640) '>', ratpth(1,i,jfeff), $ ratpth(2,i,jfeff), ratpth(3,i,jfeff), $ iptpth(i,jfeff), izpth(i,jfeff) end if 600 continue c fill in titles with those from feff file ntitle = jtitle + 1 + nlgpth(jfeff) idoc = maxdoc do 700 i = 1, mffttl j = ntitle + i if(j.le.maxdoc) outdoc(j) = fefttl (i, jfeff ) 700 continue c write data output for each path even if it is a repeat if (frmout(1:2).ne.'uw') then if (juser.lt.1000) then write(outksp(ipre+3:),740) juser write(outrsp(ipre+3:),740) juser write(outenv(ipre+3:),740) juser 740 format (i3.3) end if end if skyk = ' ' skyr = ' ' skyq = ' ' call xfsout(thiq(1,id),thiqr(1,id),frmout,vaxflg, $ outksp,outrsp,outenv,kspcmp,kspout,rspout,qspout, $ irecl(id),iexist,skyk,skyr,skyq,asccmt,mdocxx, $ qwindo(1,id),qweigh(id),rwindo(1,id),rweigh(id), $ wfftc,mftfit,rlast,q1st(id),qlast(id), $ pcout, qfeff(1,jffphs(id)),thepha(1, jffphs(id)), $ mffpts,qgrid,idoc,outdoc) c write a message if ((skyk.eq.' ').and.(skyr.eq.' ') $ .and.(skyq.eq.' ')) then write(messg,9130)'path ',juser,' not written ' else write(messg,9130)'path ',juser,' written to ' if (skyk.ne.' ') call append(messg,' chi(k) ',im) if (skyr.ne.' ') call append(messg,' chi(r) ',im) if (skyq.ne.' ') $ call append(messg,' filtered chi(k)',im) end if im = max(1, istrln(messg)) call echo(' '//messg(:im)) 990 continue 1000 continue c------- done looping through all the paths c repeat message saying which files were written messg = 'wrote files ' im = 10 if (kspout) call append(messg,' '//outksp(:jofl)//' ',im) if (rspout) call append(messg,' '//outrsp(:jofl)//' ',im) if (qspout) call append(messg,' '//outenv(:jofl)//' ',im) call echo(' '//messg(:im)) c-------end end if id = id + 1 if (id.le.ndata) go to 100 8000 continue return c c formats 9130 format(a,i5,a) 9280 format ('k range = [',2f6.2,']; kw=',f4.1, $ '; dk1,dk2 =[',2f6.2,']; window=',a) 9300 format ('r range = [',2f6.2,']; ',i3, $ ' independent points in data') 9301 format ('r range = [',2f6.2,']; ',f6.2, $ ' independent points in data') 9360 format ('fit to data: skey "',a,'" in file ', a) 9380 format ('no data was used. feff files combined without fitting') 9410 format('feffit background: rbkg = ',f6.3, ' n_knots = ', i3) 9440 format('> path',i6,': ',a,'; r=',f6.3,'; n=',f6.2,'; nlegs=',i3) 9445 format('> path',i6,': ',a,',',i5,'; r=',f6.3,'; n=',f6.2, $ '; nlegs=',i3) 9460 format('> path',i5,': ',a) 9480 format('path : e0 =',f8.4,'; amp =',f9.4,'; delr =', $ f9.5,'; sigma2 =',f10.6) 9540 format('params: ei =',f8.4,'; 3rd =',f9.6,'; 4th =',f9.6, $ '; dphase =',f10.6) 9542 format('params: ei =',f8.4,'; 3rd =',f9.6,'; 4th =',f9.6) 9560 format('<<< feff data file used: ',a) 9565 format('<<< feff data file used: ',a,',',i6) 9580 format('path: x y z ipot iz ; r_eff =', $ f7.4,'; n_degen=',f6.2) 9620 format(a,1x,f9.5,1x,f9.5,1x,f9.5,2x,i2,2x,i2,8x,'absorbing atom') 9640 format(a,1x,f9.5,1x,f9.5,1x,f9.5,2x,i2,2x,i2) c end subroutine fitout end ifeffit-1.2.11d/src/feffit/fitint.f0000644000175000017500000001144410771740456016065 0ustar segresegre subroutine fitint c c initialize the common blocks in feffit at runtime. c see also fitbdt, which does this as block data c c copyright 1993 university of washington matt newville c---------------------------------------------------------------------- include 'fitcom.h' c temporary parameters for legths of multiple-dimensioned arrays integer lwfft, i, j, k parameter (lwfft = (4*maxpts+15) ) c c single values frminp = ' ' frmout = ' ' asccmt = '# ' if (vaxflg) asccmt = '##' inpfil = 'feffit.inp' mdocxx = 0 xnidp = zero inform = 0 ndata = 0 rlast = 10.d0 cormin = 0.25d0 rwght1 = 15.d0 rwght2 = 25.d0 tranq = 2.d0 allout = .true. final = .false. rm2flg = .false. dphflg = .false. kspcmp = .false. kspout = .true. rspout = .true. bkgout = .true. qspout = .true. pcout = .false. chkdat = .true. prmout = .true. noout = .false. nofit = .false. degflg = .true. iprint = 0 chisqr = zero usrtol = one numvar = 0 nvuser = 0 ifxvar = 0 ierbar = 0 nerstp = 1 ixpath = 0 nmathx = 0 nconst = 0 c c loop over mdata do 300 i = 1, mdata skey(i) = ' ' outfil(i) = '_fit' chifil(i) = ' ' bkgfil(i) = ' ' skeyb(i) = ' ' do 30 j = 1, maxdoc doc(j,i) = ' ' 30 continue do 40 j = 1, mtitle titles(j,i) = ' ' 40 continue qweigh(i) = zero rweigh(i) = zero qwin1(i) = zero qwin2(i) = zero rwin1(i) = zero rwin2(i) = zero qmin(i) = zero qmax(i) = zero rmin(i) = zero rmax(i) = zero nqfit(i) = 0 nqpts(i) = 0 nrpts(i) = 0 sqwin(i) = 'hanning' srwin(i) = 'hanning' ifft(i) = 1 jffphs(i) = 0 q1st(i) = zero qlast(i) = zero sigdtr(i) = zero sigdtk(i) = zero sigdtq(i) = zero sigwgt(i) = zero weight(i) = zero rfactr(i) = zero xinfo(i) = zero ndoc(i) = 0 nkey(i) = 0 nkeyb(i) = 0 nchi(i) = 0 bkgfit(i) = .false. bkgdat(i) = .false. nbkg(i) = 0 datain(i) = .false. rbkg(i) = zero do 70 j = 1, mtknot qknot(j,i) = zero 70 continue chi2dt(i) = zero do 100 j = 1, maxpts chifit(j,i) = zero qwindo(j,i) = zero rwindo(j,i) = zero bkgq(j,i) = zero chiq(j,i) = zero thiq(j,i) = zero 100 continue do 200 j = 0, mdpths jdtpth(j,i) = 0 jdtusr(j,i) = 0 200 continue do 240 j = 1, mlocal icdloc(1,j,i) = 0 240 continue 300 continue c c loop over mvarys do 350 i = 1, mvarys xguess(i) = zero xfinal(i) = zero delta(i) = zero do 320 j = 1, mvarys correl(j,i) = zero 320 continue 350 continue c do 500 i = 1, mfffil feffil(i) = ' ' do 410 j = 1, mffttl fefttl(j,i) = ' ' 410 continue degpth(i) = one refpth(i) = zero rwgpth(i) = zero nlgpth(i) = 0 iffrec(i) = 0 do 420 j = 1, mffpts qfeff(j,i) = zero theamp(j,i) = zero thepha(j,i) = zero realp(j,i) = zero xlamb(j,i) = zero 420 continue do 460 j = 0, maxleg izpth(j,i) = 0 iptpth(j,i) = 0 do 440 k = 1, 3 ratpth(k,j,i) = zero 440 continue 460 continue 500 continue do 700 i = 1, maxval values(i) = zero vnames(i) = ' ' icdval(1,i) = 0 700 continue do 750 i = 1, mpaths pthlab(i) = ' ' jpthff(i) = 0 do 720 j = 1, mpthpr icdpar(1,j,i) = 0 720 continue 750 continue c do 780 i = 1, mpthpr defalt(i) = zero 780 continue defalt(jps02) = one parnam(jps02) = 's02' parnam(jpe0) = 'e0' parnam(jpei) = 'ei' parnam(jpdpha)= 'dphase' parnam(jpdelr)= 'delr' parnam(jpsig2)= 'sigma2' parnam(jp3rd) = 'third' parnam(jp4th) = 'fourth' do 800 i = 1, mconst consts(i) = zero 800 continue do 900 i = 1, lwfft wfftc(i) = zero 900 continue c c end subroutine fitint end ifeffit-1.2.11d/src/feffit/fitinp.f0000644000175000017500000006613110771740456016064 0ustar segresegre subroutine fitinp c c read inputs for feffit from feffit.inp c copyright 1993 university of washington matt newville c c read inputs from command file with keywords and a lot of elseifs. c include 'fitcom.h' c integer maxwrd, mfil, i, iinp, iex, ier, nwords, iwrds integer ilen, istrln, j, ierr, i2, iv, i3, jinit, ie integer nfil, jl, iuser, idpath, inpath, iffx, iunky parameter(maxwrd = 30, mfil = 10) character*2048 str, string, strdum, stat*10 character*128 words(maxwrd), wrdsor(maxwrd) character*32 wins(8) character keywrd*128, key*3, prompt*20 logical errskp, path0, flag integer itemp, itfeff, ifeff, ititle, idata, iparam integer ilcl, jlcl,icom(mfil), ix external istrln c c initialization itemp = 0 itfeff = 0 ititle = 0 idata = 1 ilcl = 0 ix = 0 wins(1) = 'hanning' wins(2) = 'fhanning' wins(3) = 'gaussian window' wins(4) = 'kaiser-bessel' wins(5) = 'parzen' wins(6) = 'welch' wins(7) = 'sine' prompt = 'f' do 10 i = 1, mfil icom(i) = 0 10 continue nfil = 0 iunky = 0 c input file: if file is found, open it for reading, iinp = 1 ier = 0 iex = 0 stat = 'old' call get_inpfile('feffit.inp',inpfil,ier) call lower(inpfil) if (macflg) then cc#mac ccc use LS Fortran's '*' syntax and dialog boxes (thanks boyan!) c open(unit=iinp,file=*,status='old',iostat=ier) c if (ier.ne.0) then c call AlertBox('File selection was canceled!') c call finmsg(2001,string,' ',0) c end if c call f_setvolume(jvrefnum(iinp)) c call f_creator('ttxt') ccc this resets fname to the name of the opened file. ccc useful for computing output file names, etc. c inquire(unit=iinp,name=inpfil,iostat=ier) c if (ier.ne.0) inpfil='feffit.inp' cc#mac else cc call openfl(iinp, inpfil, stat, iex, ier) cc if (iex.lt.0) call finmsg(1001,inpfil,' ',0) cc if (ier.ne.0) call finmsg(1002,inpfil,' ',0) end if c--------------------------------------------------------------------- c read in next line jinit = -1 string = inpfil 100 continue errskp = .false. path0 = .false. iparam = jpnull strdum = ' ' keywrd = ' ' key = ' ' call getcom(jinit,string) call fixstr(string,str,ilen,words,wrdsor,maxwrd,nwords) if (ilen.lt.2) go to 100 if (str.eq.'getcom_end') go to 4000 if (str.eq.'getcom_error') call finmsg(1003,inpfil,' ',0) if (str.eq.'getcom_nofile') $ call finmsg(1001,inpfil,' ',0) 150 continue keywrd = words(1) key = keywrd(1:3) iwrds = 2 c use keyword to get the right value c-- data set index : ' next data set ' on its own line if ( (keywrd.eq.'next').and.(words(2).eq.'data')) then iwrds = maxwrd + 1 c first write out title lines from previous data set messg = ' titles:' ilen = istrln(messg) write(strdum,'(a,i4)') ' --> data set #',idata call append(messg,strdum,ilen) call echo( messg(1:ilen)) do 225 j = 1, mtitle if (titles(j,idata) .ne. ' ' ) $ call echo(' '//titles(j,idata)(1:65)) 225 continue c now increment idata, reset ititle, check that idata isn't too big idata = idata + 1 ititle = 0 if (idata.gt.mdata) call finmsg(2220,string,' ',mdata) c c keywords for input/ouput c-- title ( on its own line) elseif (keywrd.eq.'title') then iwrds = maxwrd + 1 ititle = ititle + 1 if ( (ititle.le.mtitle).and.(wrdsor(2).ne.' ')) then call strclp(string, wrdsor(1), wrdsor(2), $ titles(ititle, idata)) end if c-- end reading file : ignore everything in input file past this line elseif (( keywrd.eq.'end' ).or.( keywrd.eq.'quit')) then go to 4000 c-- file formats for inputs and outputs: defaults are uwxafs, c but can be changed to ascii column files with formin = 'asc' elseif ((keywrd.eq.'form').or.(keywrd.eq.'format')) then frmout = words(2) frminp = frmout elseif (keywrd(1:7).eq.'formin') then frminp = words(2) elseif (keywrd(1:8).eq.'formout') then frmout = words(2) c comment char for ascii column data files elseif ((keywrd.eq.'comment').or.(keywrd.eq.'asccmt')) then asccmt = words(2) c hardwire number of doc lines for ascii column data files elseif (keywrd.eq.'mdocxx') then call str2in(words(2), mdocxx, ierr ) c-- input data file note: for uwexafs files, strdum contains c the file name and record specifier (nkey or skey). elseif (keywrd.eq.'data') then datain(idata) = .true. errskp = .true. i2 = max(1, istrln(wrdsor(2))) if (nwords.ge.3) then i3 = max(5, istrln(wrdsor(3))) strdum = wrdsor(2)(:i2+2)//wrdsor(3)(:i3) call filrec(strdum, chifil(idata), skey(idata), $ nkey(idata)) else chifil(idata) = wrdsor(2) skey(idata) = ' ' nkey(idata) = 0 end if c-- bkg(k) data file note: for uwexafs files, strdum contains c the file name and record specifier (nkey or skey). elseif (keywrd(1:6).eq.'bkgfil') then bkgdat(idata) = .true. errskp = .true. i2 = max(1, istrln(wrdsor(2))) if (nwords.ge.3) then i3 = max(5, istrln(wrdsor(3))) strdum = wrdsor(2)(:i2+2)//wrdsor(3)(:i3) call filrec(strdum, bkgfil(idata), skeyb(idata), $ nkeyb(idata)) else bkgfil(idata) = wrdsor(2) skeyb(idata) = ' ' nkeyb(idata) = 0 end if c-- output file elseif (keywrd.eq.'out') then outfil(idata) = wrdsor(2) c-- print level to feffit.run file elseif (keywrd.eq.'iprint') then call str2in(words(2), iprint, ierr ) c-- flag for doing tranquada correction elseif (keywrd(1:5).eq.'tranq') then call str2dp(words(2), tranq, ierr ) c-- flag for not doing fit and writing output elseif (keywrd.eq.'norun') then call str2lg(words(2), noout, ierr ) nofit = noout c-- flag for not writing output elseif (keywrd.eq.'noout') then call str2lg(words(2), noout, ierr ) c-- flag for not doing fit elseif (keywrd.eq.'nofit') then call str2lg(words(2), nofit, ierr ) c-- flag for writing feffit.prm file elseif (keywrd.eq.'prmout') then call str2lg(words(2), prmout, ierr ) c-- flag for writing phase corrected FT elseif (keywrd.eq.'pcout') then call str2lg(words(2), pcout, ierr ) cc-- flag for using phase corrected FT in fit c elseif (keywrd.eq.'pcfit') then c call str2lg(words(2), pcfit, ierr ) c-- flag for fitting background spline to low-r components elseif (keywrd.eq.'bkg') then call str2lg(words(2), bkgfit(idata), ierr ) c-- flag for writing background spline to output data file elseif (keywrd.eq.'bkgout') then call str2lg(words(2), bkgout, ierr ) c-- flag for writing out data for all paths elseif ((keywrd.eq.'all').or.(keywrd.eq.'allout')) then call str2lg(words(2), allout, ierr ) c-- flag for writing out data in k space elseif ((keywrd.eq.'kfull').or.(keywrd.eq.'fullk')) then call str2lg(words(2), kspcmp, ierr ) c-- flag for writing out data in k space elseif (keywrd.eq.'kspout') then call str2lg(words(2), kspout, ierr ) c-- flag for writing out data in r space elseif (keywrd.eq.'rspout') then call str2lg(words(2), rspout, ierr ) c-- flag for writing out data in q space (backtransform) elseif ((keywrd.eq.'qspout').or.(keywrd.eq.'envout')) then call str2lg(words(2), qspout, ierr ) c-- flags for which space to fit in (default is ifft=1 for r-space) elseif (keywrd.eq.'kspfit') then call str2lg(words(2), flag, ierr) if (flag) ifft(idata) = 0 elseif (keywrd.eq.'rspfit') then call str2lg(words(2), flag, ierr ) if (flag) ifft(idata) = 1 elseif (keywrd.eq.'qspfit') then call str2lg(words(2), flag, ierr) if (flag) ifft(idata) = 2 elseif (keywrd.eq.'fit_space') then if (words(2)(1:1).eq.'k') ifft(idata) = 0 if (words(2)(1:1).eq.'r') ifft(idata) = 1 if (words(2)(1:1).eq.'q') ifft(idata) = 2 c-- flag for not using degeneracies from feff elseif (keywrd.eq.'degen') then call str2lg(words(2), degflg, ierr ) elseif (keywrd.eq.'nodegen') then call str2lg(words(2), degflg, ierr ) degflg = .false. c-- relative weights for different data sets elseif (keywrd.eq.'weight') then call str2dp(words(2), sigwgt(idata), ierr ) c-- error bars measurement uncertainty (default is to specify c in k-space, but r-space is also allowed.) elseif ( (keywrd.eq.'sigdat').or.(key.eq.'eps') $ .or.(keywrd.eq.'sigk').or.(keywrd.eq.'epsk')) then call str2dp(words(2), sigdtk(idata), ierr ) elseif ( (keywrd.eq.'sigr').or.(keywrd.eq.'epsr')) then call str2dp(words(2), sigdtr(idata), ierr ) c-- maximum correlation to report elseif (keywrd.eq.'cormin') then call str2dp(words(2), cormin, ierr ) elseif (keywrd.eq.'rwght1') then call str2dp(words(2), rwght1, ierr ) elseif (keywrd.eq.'rwght2') then call str2dp(words(2), rwght2, ierr ) c-- hack for playing with user tolerance elseif (keywrd.eq.'toler') then call str2dp(words(2), usrtol, ierr ) c-- number of iterations to make when evaluating error bars elseif (keywrd.eq.'nerstp') then call str2in(words(2), nerstp, ierr ) c keywords for feff.dats c-- maximum r to write for r-space data elseif (keywrd.eq.'rlast') then call str2dp(words(2), rlast, ierr ) c keywords for fft stuff c-- number of points in fft for fit ( found from qmin, qmax) c elseif (keywrd.eq.'max_fft_fit') then c call str2in(words(2), mftfit, ierr ) cc-- number of points in fft for writing out data ( 2048) c elseif (keywrd.eq.'max_fft_out') then c call str2in(words(2), mftwrt, ierr ) c-- minimum r for fit range elseif (keywrd.eq.'rmin') then call str2dp(words(2), rmin(idata), ierr ) c-- maximum r for fit range elseif (keywrd.eq.'rmax') then call str2dp(words(2), rmax(idata), ierr ) c-- minimum k for fit range / fourier transform elseif ((keywrd.eq.'kmin').or.(keywrd.eq.'qmin')) then call str2dp(words(2), qmin(idata), ierr ) c-- maximum k for fit range / fourier transform elseif ((keywrd.eq.'kmax').or.(keywrd.eq.'qmax')) then call str2dp(words(2), qmax(idata), ierr ) c-- k weight for fourier transform elseif ((key(1:2).eq.'kw').or.(key(1:2).eq.'qw') $ .or.(key.eq.'w ')) then call str2dp(words(2), qweigh(idata), ierr ) c-- window sill fourier transform window parameter(s) elseif (keywrd(1:4).eq.'win') then sqwin(idata) = words(2) elseif (keywrd(1:4).eq.'iwin') then call str2in(words(2), ix, ierr ) sqwin(idata) = wins(ix+1) srwin(idata) = sqwin(idata) c-- window sill fourier transform window parameter(s) elseif ((keywrd.eq.'iqwin').or.(keywrd.eq.'ikwin')) then call str2in(words(2), ix, ierr ) sqwin(idata) = wins(ix+1) c-- window sill fourier transform window parameter(s) elseif (keywrd.eq.'irwin') then call str2in(words(2), ix, ierr ) srwin(idata) = wins(ix+1) cc-- gaussian fourier window c elseif (keywrd.eq.'gauss') then c call str2dp(words(2), qwin1(idata), ierr ) c qwin2(idata) = qwin1(idata) c iqwin(idata) = 2 c irwin(idata) = 2 cc-- hanning fraction window c elseif ((keywrd.eq.'fhan').or.(keywrd.eq.'hann')) then c call str2dp(words(2), qwin1(idata), ierr ) c qwin2(idata) = qwin1(idata) c iqwin(idata) = 1 c irwin(idata) = 1 c-- k-space window parameters elseif ((keywrd.eq.'dk2').or.(keywrd.eq.'dq2')) then call str2dp(words(2), qwin2(idata), ierr ) elseif ((keywrd.eq.'dk1').or.(keywrd.eq.'dq1')) then call str2dp(words(2), qwin1(idata), ierr ) elseif ((key.eq.'dk').or.(key.eq.'dq')) then call str2dp(words(2), qwin1(idata), ierr ) qwin2(idata) = qwin1(idata) c-- r-space window parameters elseif (key.eq.'dr2') then call str2dp(words(2), rwin2(idata), ierr ) elseif (key.eq.'dr1') then call str2dp(words(2), rwin1(idata), ierr ) cc elseif (key.eq.'dr') then cc call str2dp(words(2), rwin1(idata), ierr ) cc rwin2(idata) = rwin1(idata) c-- optical transform phase factors c elseif (keywrd.eq.'rpha') then c call str2dp(words(2), rphas(idata), ierr ) c elseif (keywrd.eq.'qpha') then c call str2dp(words(2), qphas(idata), ierr ) c c keywords for values: "guess"es and "set"s c for variables and functions c-- variable: definition and initial guess c-- here we : - increase the number of variables c-- - set the initial guess of the variable c-- - find the right value to associate with the variable c-- - set icdval(1,iv) = -1 (to mark value as a variable) elseif (keywrd.eq.'guess') then iwrds = maxwrd + 1 numvar = numvar + 1 nvuser = numvar c find if this value was already defined, c or find the next avialable slot c*mn -- make a function to return iv : c iv = nofstr(words(2),vnames,maxval) c that returns iv , or 0 if unfound cc iv = nofstr(words(2), vnames, maxval) cc if (iv.eq.0) call finmsg(2100,string,' ',maxval) do 300 iv = 1, maxval if (vnames(iv).eq.' ') go to 310 if (vnames(iv).eq.words(2)) go to 320 300 continue call finmsg(2100,string,' ',maxval) c new variable : store name of value, increment # of variables 310 continue nmathx = max(iv, nmathx) vnames(iv) = words(2) if (numvar.gt.mvarys) call finmsg(2130,string,' ',mvarys) c previously defined value : c make sure it's set as a variable, and get initial value 320 continue if (icdval(1, iv).ge.1) then call echo( ' -- feffit warning: '// $ 'confusion about variables ') messg = vnames(iv) ilen = max(1, istrln(messg)) call echo( ' '//messg(1:ilen)) call echo( ' was "guessed" after '// $ 'being "set". results may be unstable.') elseif (icdval(1, iv).lt.0) then call echo( ' -- feffit warning: '// $ 'this variable was "guessed" twice:') messg = vnames(iv) ilen = max(1, istrln(messg)) call echo( ' '//messg(1:ilen)) endif icdval(1,iv) = -1 call str2dp(words(3), xguess(numvar), ierr ) values(iv) = xguess(numvar) c c-- functions: definition and integer array c-- here we : - check if value has already been defined. c-- - find the right value to associate with the variable c-- - encode the icdval integer array elseif (keywrd.eq.'set') then iwrds = maxwrd + 1 do 550 iv = 1, maxval if ( (vnames(iv).eq.words(2)).or. $ (vnames(iv).eq.' ' ) ) go to 560 550 continue call finmsg(2200,string,' ',maxval) 560 continue nmathx = max(iv, nmathx) vnames(iv) = words(2) c check that this user-defined function was not previously c assigned as a local user-defined function. at this point, c just stop if it was. if (icdval(1,iv).gt.ixlocl) $ call finmsg(2110,string,vnames(iv),iv) call strclp(str,words(2),words(3),strdum) if (icdval(1, iv).lt.0) then call echo( ' -- feffit warning: '// $ 'confusion about variables ') messg = vnames(iv) ilen = max(1, istrln(messg)) call echo( ' '//messg(1:ilen)) call echo( ' was "set" after '// $ 'being "guessed". results may be unstable.') numvar = numvar - 1 elseif (icdval(1, iv).gt.0) then call echo( ' -- feffit warning: '// $ 'this variable was "set" twice:') messg = vnames(iv) ilen = max(1, istrln(messg)) call echo( ' '//messg(1:ilen)) endif ierr = istrln(str) c print*, 'UBER: fitinp: ilen = ', ierr, ' :: ', str(1:ierr) c ierr = istrln(strdum) c print*, 'UBER: fitinp: ilen = ', ierr, ' :: ', c $ strdum(1:ierr) ierr = 0 call encod(strdum, vnames, maxval, consts, mconst, $ icdval(1,iv), micode, ierr) if (ierr.gt.0) call finmsg(2500,string,strdum,0) c-- local functions: definition and integer array c-- here we : - check if value has already been defined. c-- - find the right value to associate with the variable c-- - encode the icdval integer array elseif (keywrd.eq.'local') then iwrds = maxwrd + 1 iv = 0 750 continue iv = iv + 1 if (iv.gt.maxval) call finmsg(2200,string,' ',maxval) if ( (vnames(iv).ne.words(2)).and. $ (vnames(iv).ne.' ')) go to 750 ccc do 750 iv = 1, maxval ccc if ( (vnames(iv).eq.words(2)).or. ccc $ (vnames(iv).eq.' ' ) ) go to 760 ccc 750 continue ccc call finmsg(2200,string,' ',maxval) ccc 760 continue nmathx = max(iv, nmathx) vnames(iv) = words(2) jlcl = icdval(1,iv) - ixlocl if (jlcl.le.0) then ilcl = ilcl + 1 if (ilcl.gt.mlocal) call finmsg(2105,string,' ',mlocal) jlcl = ilcl else do 780 jl = 1, mlocal if ((jlcl.eq.jl)) go to 790 780 continue call finmsg(2105,string,' ',mlocal) 790 continue jlcl = jl endif c c check that this local user-defined function was not previously c assigned as a global user-defined function. at this point, c just stop if it was. if ((icdval(1,iv).ne.0).and.(icdval(1,iv).lt.ixlocl)) $ call finmsg(2110,string,vnames(iv),iv) call strclp(str,words(2),words(3),strdum) ierr = 0 call encod(strdum, vnames, maxval, consts, mconst, $ icdloc(1,jlcl,idata), micode, ierr) icdval(1,iv) = ixlocl + jlcl if (ierr.gt.0) call finmsg(2120,string,strdum,0) c c path parameters c-- feff file name elseif ((keywrd.eq.'path').or.(keywrd.eq.'feff')) then iparam = jppath c-- user identification label elseif (key.eq.'id ') then iparam = jplabl c-- constant amplitude factor elseif ( (keywrd.eq.'s02').or.(keywrd.eq.'amp').or. $ (keywrd.eq.'so2')) then iparam = jps02 c-- energy shift : real energy correction elseif ( (key.eq.'esh').or.(key.eq.'e0 ').or. $ (key.eq.'ee ').or.(key.eq.'e0s')) then iparam = jpe0 c-- energy shift : imaginary energy correction elseif (key.eq.'ei ') then iparam = jpei c-- energy shift : imaginary energy correction elseif ((keywrd.eq.'dphase').or.(keywrd.eq.'phase')) then dphflg = .true. iparam = jpdpha c-- delta r , the first cumulant elseif ( (keywrd.eq.'dr').or.(keywrd.eq.'deltar').or. $ (keywrd.eq.'delr')) then iparam = jpdelr c-- sigma^2, the debye waller factor, the second cumulant elseif ((keywrd(1:4).eq.'sigm').or.(keywrd.eq.'ss2')) then iparam = jpsig2 c-- the third cumulant elseif ( (keywrd.eq.'3rd').or.(keywrd.eq.'third').or. $ (keywrd.eq.'cubic')) then iparam = jp3rd c-- the fourth cumulant elseif ( (keywrd.eq.'4th').or.(keywrd.eq.'fourth').or. $ (keywrd.eq.'quartic')) then iparam = jp4th c-- didn't find anything! a null word or something. elseif ((.not.errskp).and.(iparam.eq.jpnull) ) then call finmsg(2330,string,keywrd,0) iwrds = maxwrd + 1 iunky = iunky + 1 if (iunky.ge.5) call finmsg(2300,string,' ',0) end if c keywords all checked now. c c now, if keyword is a path parameter, interpret it. c there are a lot of path indices here, and they get confusing. c here's a menu: c iuser "user path index" what the user wrote in feffit.inp c inpath "internal path index" which set of path params to use c ifeff "feff path index" which feff file to use c idpath "data path index" which internal path is this for this c data set, when summing over paths c idpath is the key, and gives the rest using pointers in common blocks: c inpath = jdtpth(idpath,idata) c iuser = jdtusr(idpath,idata) c ifeff = jpthff(inpath) c c-- iuser set here, and character string extracted if ( (iparam.ne.jpnull).and.(nwords.gt.2)) then iwrds = maxwrd + 1 call str2in(words(2), iuser, ierr ) if ((iuser.lt.0).or.(iuser.gt.10000)) $ call finmsg(2200,str,' ',0) path0 = (iuser.eq.0) call strclp(string,wrdsor(2),wrdsor(3),strdum) c assign a data path to the user path: c-- idpath set here so that jdtusr(idpath,idata) = iuser idpath = 0 if (.not.path0) then do 900 idpath = 1, mdpths if (jdtusr(idpath,idata).eq.iuser) go to 940 if (jdtusr(idpath,idata).eq.0) then jdtusr(idpath,idata) = iuser go to 940 end if 900 continue call finmsg(2140,string,chifil(idata),mdpths) 940 continue end if c c assign an internal path to the data path: c-- inpath set here so that jdtpth(idpath,idata) = inpath do 1340 inpath = 1, mpaths if (jdtpth(idpath,idata).eq.inpath) go to 1400 if (jdtpth(idpath,idata).eq.0) go to 1380 1340 continue call finmsg(2150,string,' ',mpaths) 1380 continue itemp = itemp + 1 inpath = itemp jdtpth(idpath,idata) = inpath 1400 continue c c assign a feff path to the internal path: c-- ifeff set here so that jpthff(inpath) = ifeff if ( (iparam.eq.jppath).and.(.not.path0)) then iffx = 0 if (nwords.ge.4) call str2in(wrdsor(4),iffx,ie) do 1640 ifeff = 1, mfffil if ( (feffil(ifeff) .eq. wrdsor(3)).and. $ (iffrec(ifeff) .eq. iffx)) go to 1700 if ( feffil(ifeff) .eq. ' ' ) go to 1680 1640 continue call finmsg(2170,string,feffil(ifeff),mfffil) 1680 continue itfeff = itfeff + 1 ifeff = itfeff feffil(ifeff) = wrdsor(3) iffrec(ifeff) = iffx cc print*, ' INP path ! ', ifeff, feffil(ifeff) 1700 continue if (jpthff(inpath).ne.0) then write(messg,'(2a,i5)')' -- feffit warning: ', $ 'overwriting the feff file for path ', iuser ilen = max(1, istrln(messg)) call echo( ' '//messg(1:ilen)) end if cc print*, ' itfeff = ', itfeff, ifeff, inpath jpthff(inpath) = ifeff elseif ((iparam.eq.jppath).and.path0 ) then jpthff(inpath) = -1 call echo( ' -- feffit warning: giving a '// $ 'feff file for path 0 has no meaning.') elseif((iparam.eq.jplabl).and.(.not.path0)) then pthlab(inpath) = strdum else if (icdpar(1,iparam,inpath).ne.0) then write(messg,'(4a,i5)')' -- feffit warning: ', $ 'redefining ', parnam(iparam),' of path ',iuser ilen = max(1, istrln(messg)) call echo( ' '//messg(1:ilen)) end if call smcase(strdum, 'case') ierr = 0 call encod(strdum, vnames, maxval, consts, mconst, $ icdpar(1,iparam,inpath), micode, ierr) if (ierr.gt.0) call finmsg(2120,string,strdum,0) end if end if c decide whether or not to read more inputs from the current string if (nwords.gt.iwrds) then do 3600 i = 1, nwords words(i) = words(i+iwrds) wrdsor(i) = wrdsor(i+iwrds) 3600 continue nwords = nwords - iwrds go to 150 end if go to 100 4000 continue c end of reading input file c close input file, and write out titles for last data set if (iinp.ne.5) close(iinp) ndata = idata cc print*, 'FITINP: ndata = ', ndata messg = ' titles:' ilen = istrln(messg) if (ndata.gt.1) then write(strdum,'(a,i4)') ' --> data set #',idata call append(messg,strdum,ilen) end if call echo( messg(1:ilen)) do 5800 j = 1, mtitle if (titles(j,idata) .ne. ' ' ) $ call echo(' '//titles(j,idata)(1:65)) 5800 continue return c end subroutine fitinp end ifeffit-1.2.11d/src/feffit/fefdat.h0000644000175000017500000000132610771740456016021 0ustar segresegrec{fefdat.h c feff.dat information for each path integer iptpth(0:maxleg, mfffil), iffrec(mfffil) integer nlgpth(mfffil), izpth(0:maxleg, mfffil), ixpath double precision degpth(mfffil), refpth(mfffil) double precision qfeff(mffpts, mfffil) double precision theamp(mffpts, mfffil), thepha(mffpts, mfffil) double precision cphase(mffpts, mfffil), sphase(mffpts, mfffil) double precision realp( mffpts, mfffil), xlamb( mffpts, mfffil) double precision rwgpth(mfffil), ratpth(3, 0:maxleg, mfffil) common /ffidat/ ixpath, nlgpth, izpth, iptpth, iffrec common /ffddat/ rwgpth, degpth, refpth, ratpth, theamp, $ thepha, qfeff, realp, xlamb c fefdat.h} ifeffit-1.2.11d/src/feffit/fefsrt.f0000644000175000017500000000650510771740456016063 0ustar segresegre subroutine fefsrt( mfiles, mpaths, feffil, iffrec, jpthff) c c this sorts the list of feff files so that feff.bin files (which c contain multiple paths) can be read once, and in order, no matter c what the user-selected order was. c matt newville 1997 integer mfiles, mpaths integer iffrec(mfiles), jpthff(mpaths) character*(*) feffil(mfiles) integer maxpth, maxfil parameter (maxpth = 2048, maxfil = 2048) integer jsave(maxfil), jffpth(maxfil) integer jfftmp(maxfil), ifftmp(maxfil) character*128 tmpfil(maxfil) if (mfiles.gt.maxfil) $ call fstop( ' increase maxfil in fefsrt') if (mpaths.gt.maxpth) $ call fstop( ' increase maxpth in fefsrt') naxpth = min(mpaths,maxpth) c there are a lot of path indices here, and they get confusing. c here's a menu: c iuser "user path index" what the user wrote in feffit.inp c inpath "internal path index" which set of path params to use c ifeff "feff path index" which feff file to use c idpath "data path index" which internal path is this for this c data set, when summing over paths c idpath is the key, and gives the rest using pointers in common blocks: c inpath = jdtpth(idpath,idata) c iuser = jdtusr(idpath,idata) c ifeff = jpthff(inpath) do 20 i = 1, naxpth jsave(i) = jpthff(i) 20 continue do 25 i = 1, maxfil tmpfil(i) = ' ' jfftmp(i) = 0 ifftmp(i) = 0 25 continue c construct jffpth array {pointing backwards from jpthff: c ifeff = jpthff(inpath) c inpath = jffpth(ifeff) } itmp = 0 do 50 i = 1, mfiles jffpth(i) = 0 do 30 j = 1, mpaths if (jpthff(j).eq.i) then jffpth(i) = j go to 32 end if 30 continue 32 continue if ((feffil(i).ne. ' ').and.(iffrec(i).eq.0)) then itmp = itmp+1 tmpfil(itmp) = feffil(i) ifftmp(itmp) = 0 jfftmp(itmp) = jffpth(i) feffil(i) = ' ' end if 50 continue c c group paths by file name: do 100 i = 1, mfiles if ((feffil(i).ne. ' ').and.(iffrec(i).ne.0)) then itmp = itmp+1 i1 = itmp tmpfil(itmp) = feffil(i) ifftmp(itmp) = iffrec(i) jfftmp(itmp) = jffpth(i) do 90 j = min(mfiles,i+1), mfiles if (feffil(j).eq.feffil(i)) then itmp = itmp+1 tmpfil(itmp) = feffil(j) ifftmp(itmp) = iffrec(j) jfftmp(itmp) = jffpth(j) feffil(j) = ' ' end if 90 continue feffil(i) = ' ' c sort entries with same path names: elements i1 to itmp: if (i1.lt.itmp) then n = itmp - i1 + 1 call sort2i(n,ifftmp(i1),jfftmp(i1)) end if end if 100 continue c replace original arrays with new, sorted values do 500 i = 1, mfiles feffil(i) = tmpfil(i) iffrec(i) = ifftmp(i) 500 continue do 700 i = 1,naxpth if (jsave(i).ne.0) jpthff(i) = jsave(jfftmp(jsave(i))) 700 continue return end ifeffit-1.2.11d/src/feffit/math.h0000644000175000017500000000110410771740456015513 0ustar segresegrec{math.h: -*-fortran-*- c numbers and integer codes for math expressions in feffit double precision defalt(mpthpr), consts(mconst) double precision values(maxval), delval(maxval) integer icdpar(micode,mpthpr,mpaths) integer icdval(micode, maxval), jpthff(mpaths) integer icdloc(micode, mlocal, mdata), ixlocl parameter(ixlocl = 16384) integer jdtpth(0:mdpths,mdata), jdtusr(0:mdpths,mdata) common /math_i/ icdpar, icdval, icdloc, jdtpth, jdtusr, jpthff common /math_d/ defalt, consts, values, delval c math.h} ifeffit-1.2.11d/src/feffit/wrtprm.f0000644000175000017500000000223610771740456016122 0ustar segresegre subroutine wrtprm(iout, ifmt, mlen, name, i1, x1, x2) c simple dump of named parameters to (unit=iout) with choice of formats c ifmt=0 -> " name = x1 % +/- % x2 " c ifmt=1 -> " name i1 x1 % +/- % x2 " character name*(*) double precision x1, x2, ten, order, tiny parameter (ten = 10.d0, tiny = 1.d-8) integer ilen, istrln, iout, ifmt, mlen, i1 external istrln ilen = max(mlen, istrln(name)) order = dabs(log(tiny + abs(x1) ) ) if ((order.gt.ten).and.(ifmt.eq.0)) then write(iout,250) name(1:ilen), x1, x2 elseif ((order.gt.ten).and.(ifmt.eq.1)) then write(iout,200) name(1:ilen),i1, x1, x2 elseif ((order.le.ten).and.(ifmt.eq.0)) then write(iout,150) name(1:ilen), x1, x2 elseif ((order.le.ten).and.(ifmt.eq.1)) then write(iout,100) name(1:ilen),i1, x1, x2 end if 100 format(3x,a,' ',i4,' ',f14.7,' % +/- %', f14.7) 150 format(3x,a,' = ', f14.7,' % +/- %', f14.7) 200 format(3x,a,' ',i4,' ',e14.5,' % +/- %', e14.5) 250 format(3x,a,' = ', e14.5,' % +/- %', e14.5) return end ifeffit-1.2.11d/src/feffit/enlib.f0000644000175000017500000004415110771740456015662 0ustar segresegre subroutine engrpn(icode) c c copyright 1993 university of washington matt newville c c convert english encoded math code to reverse polish code c c this seems to work fairly well when part of encod, but has c some difficulty if the input icode is not completely c full of parentheses. the code is not extremely well-tested. c it is also a bit repetitve. c c strategy: c first assign class of operation to each argument in icode. c then try to convert all unary minus signs to their correct c one-component operator. next, two component function are c put after their two arguments. one component operators are c then put after thier argument. finally, all parenthese and c commas are dropped. c--------------------------------------------------------------------- implicit none integer ileft, iright, icomma, ineg, iy2x integer iadd, isub, imul, idiv, maxlen parameter(ileft= -6, iright= -7, icomma= -8, ineg= -20, $ iy2x= -54, iadd= -50, isub= -51, imul= -52, idiv= -53) parameter(maxlen=1024) integer icode(maxlen), itemp(maxlen) , idone(maxlen) integer iclass(maxlen), icltmp(maxlen), idtemp(maxlen) integer iclo(6), i, ic, ichi, icn, id, j, j0, k, ksave integer ibfr, istack logical opera c--------------------------------------------------------------------- c-- initialize itemp, and assign class to objects and operators c do 10 j = 1, maxlen i = icode(j) if (i.eq.0) iclass(j) = 0 if (i.gt.0) iclass(j) = 1 if ((i.le.-10).and.(i.ge.-49)) iclass(j) = 2 if ((i.eq.iadd) .or.(i.le.isub)) iclass(j) = 3 if ((i.eq.imul) .or.(i.le.idiv)) iclass(j) = 4 if (i.eq.iy2x) iclass(j) = 5 if (i.le.-80) iclass(j) = 6 if (i.eq.ileft) iclass(j) = 7 if (i.eq.iright) iclass(j) = 8 if (i.eq.icomma) iclass(j) = 9 itemp(j) = icode(j) icltmp(j) = iclass(j) 10 continue c--------------------------------------------------------------------- c-- convert unary minus and plus signs to unitary operators c-- plus signs are easy: simply remove the plus sign. c-- minus signs are hard: find next operator on this level, c-- and convert "- x1" to "neg ( x1 )", which will then be c-- converted down below to "x1 neg". do 500 j0 = 1, maxlen j = j0 100 continue i = itemp(j) ic = icltmp(j) if(ic.eq.0) go to 510 ibfr = 0 if (j.gt.1) ibfr = iclass(j-1) c-- unary plus sign if ( ((j.eq.1).or.(ibfr.eq.7).or.(ibfr.eq.4).or.(ibfr.eq.5) $ .or.(ibfr.eq.9)) .and.(i.eq.iadd) ) then do 120 k = j, maxlen-1 icode(k) = itemp(k+1) iclass(k) = icltmp(k+1) 120 continue icode(maxlen) = 0 iclass(maxlen) = 0 do 130 k = j, maxlen itemp(k) = icode(k) icltmp(k) = iclass(k) 130 continue go to 100 c-- unary minus sign c-- change minus sign to unary operator c-- if next object is (, then we're done. c-- otherwise, ... - x ... -> ... neg ( x ) ... elseif ( ((j.eq.1).or.(ibfr.eq.7).or.(ibfr.eq.9).or. $ (ibfr.eq.4).or.(ibfr.eq.5)).and.(i.eq.isub)) then c replace '-' with 'neg' icode(j) = ineg iclass(j) = 2 c neg number : find next +-,) or end of line, and insert parentheses. if (iclass(j+1).eq.1) then icn = icltmp(j+1) opera = (icn.eq.9).or.(icn.eq.8).or.(icn.eq.0) $ .or.(icn.eq.3) c if (.not.opera) then istack = 0 k = j 140 continue k = k + 1 if (k.ge.maxlen) go to 150 icn = icltmp(k) opera = (icn.eq.9).or.(icn.eq.8).or.(icn.eq.0) $ .or.(icn.eq.3) if ( (istack.eq.0) .and.opera) go to 150 if (icn.eq.7) istack = istack + 1 if (icn.eq.8) istack = istack - 1 go to 140 150 continue ksave = k -1 c insert left paren icode(j+1) = ileft iclass(j+1) = 7 c bump everything after left paren up by 1 do 170 k = j+2, ksave + 1 icode(k) = itemp(k-1) iclass(k) = icltmp(k-1) 170 continue c insert right paren icode(ksave+2) = iright iclass(ksave+2) = 8 c bump everything after right paren up by 2 do 180 k = ksave+3, maxlen-2 icode(k) = itemp(k-2) iclass(k) = icltmp(k-2) 180 continue end if c c neg unary operator : need to find end of argument of operator. c then change '-' -> neg and insert parens. elseif (((iclass(j+1).eq.2).or.(iclass(j+1).eq.6)) $ .and.(iclass(j+2).eq.7)) then c find end of argument istack = 1 do 200 k = j+3, maxlen if (icltmp(k).eq.7) istack = istack + 1 if (icltmp(k).eq.8) istack = istack - 1 if (istack.eq.0) go to 220 200 continue 220 continue ksave = k c insert left paren icode(j+1) = ileft iclass(j+1) = 7 c bump everything after left paren up by 1 do 250 k = j+2, ksave + 1 icode(k) = itemp(k-1) iclass(k) = icltmp(k-1) 250 continue c insert right paren icode(ksave+2) = iright iclass(ksave+2) = 8 c bump everything after right paren up by 2 do 280 k = ksave+3, maxlen-2 icode(k) = itemp(k-2) iclass(k) = icltmp(k-2) 280 continue end if do 380 k = 1, maxlen itemp(k) = icode(k) icltmp(k) = iclass(k) 380 continue j = j - 1 if (j.eq.0) j = 1 go to 100 end if c reset itemp and icltmp and go back to beginning 500 continue 510 continue c do 600 i = 1, maxlen icode(i) = itemp(i) iclass(i) = icltmp(i) 600 continue c--------------------------------------------------------------------- c-- convert class 5 operators (^ only): c x1 ^ x2 -> x1 x2 ^ c if operator is '^', and is not already followed by ',)+-*/^', c then find next place with stack=0 (that is on the current level), c that contains an ',)+-*/^' ichi = 5 iclo(1) = 9 iclo(2) = 8 iclo(3) = 0 iclo(4) = 3 iclo(5) = 4 iclo(6) = 5 call class(icode, iclass, ichi, iclo) c--------------------------------------------------------------------- c-- convert class 4 operators (* and / only): c x1 * x2 -> x1 x2 * c if operator is '*/', and is not already followed by ',)+-*/', c then find next place with stack=0 (that is on the current level), c that contains an ',)+-*/' c undo iclo(6) = '^' to a repeat of iclo(3) = 0 ichi = 4 iclo(6) = 0 call class(icode, iclass, ichi, iclo) c--------------------------------------------------------------------- c-- convert class 3 operators (+ and - only): c x1 + x2 -> x1 x2 + c if operator is '+-', and is not already followed by ',)+-', c then find next place with stack=0 (that is on the current level), c that contains an ',)+-' c undo iclo(5) = '*/' to a repeat of iclo(3) = 0 ichi = 3 iclo(5) = 0 call class(icode, iclass, ichi, iclo) c do 900 i = 1, maxlen itemp(i) = icode(i) icltmp(i) = iclass(i) 900 continue c c--------------------------------------------------------------------- c-- convert class 2 and class 6 operators. c all unary operators and special functions have the syntax: c f(x1, x2, x3, ...) -> (x1, x2, x3, ...) f do 6900 j = 1, maxlen idone(j) = 0 idtemp(j) = 0 6900 continue do 8000 j0 = 1, maxlen - 1 j = j0 7000 continue i = itemp(j) ic = icltmp(j) id = idtemp(j) if(ic.eq.0) go to 8010 if ( (id.eq.0).and. $ ( (ic.eq.2).or.(ic.eq.6)).and.(iclass(j+1).eq.7)) then istack = 1 do 7200 k = j+2, maxlen if (icltmp(k).eq.7) istack = istack + 1 if (icltmp(k).eq.8) istack = istack - 1 if (istack.eq.0) go to 7300 7200 continue 7300 continue ksave = k icode(ksave) = itemp(j) iclass(ksave) = icltmp(j) idone(ksave) = 1 do 7500 k = j, ksave-1 icode(k) = itemp(k+1) iclass(k) = icltmp(k+1) idone(k) = idtemp(k+1) 7500 continue c reset itemp and start over again at the same place icode(maxlen-1) = 0 icode(maxlen) = 0 idone(maxlen-1) = 0 idone(maxlen) = 0 do 7800 k = 1, maxlen itemp(k) = icode(k) icltmp(k) = iclass(k) idtemp(k) = idone(k) 7800 continue go to 7000 end if 8000 continue 8010 continue c--------------------------------------------------------------------- c-- finally, remove all parentheses and commas for icode j = 0 k = 0 do 8900 i = 1, maxlen itemp(i) = icode(i) icltmp(i) = iclass(i) icode(i) = 0 iclass(i) = 0 8900 continue 9000 continue j = j + 1 if (j.gt.maxlen) go to 9100 ic = icltmp(j) if (ic.eq.0) go to 9100 if ( (ic.ne.7).and.(ic.ne.8).and.(ic.ne.9)) then k = k + 1 icode(k) = itemp(j) iclass(k) = icltmp(j) end if go to 9000 9100 continue return c end subroutine engrpn end subroutine parins(strin, ilen , sopt1, sopt2) c c copyright 1993 university of washington matt newville c c insert parentheses in a string for a fortran math expression c to give the normal math precedence : c "sopt1" is more important than "sopt2" c this gets kind of ugly but appears to never fail. c-------------------------------------------------------------------- implicit none integer mstack,i, ilen, j, istart, istack, iopt, ioptst parameter ( mstack = 32) character*(*) strin, sopt1, sopt2 character*2048 string, dummy, str1*1, operas*4, digits*10 logical paren(mstack) integer idiff, jstk, i1, i2, io, ieon, nbrstr integer iopen(mstack), istrln parameter ( operas = '*/+-') parameter ( digits = '0123456789') external istrln, nbrstr c insert a leading blank, initialize stack control and parentheses iopt = 0 dummy = ' ' dummy(2:ilen+1 ) = strin(1:ilen) string = dummy istart = 1 istack = 1 do 50 i = 1, mstack iopen(i) = 1 paren(i) = .false. 50 continue 100 continue ilen = istrln(string) + 2 ieon = istart - 1 do 200 i = istart, ilen c get current character c check for exponentiation or parens, update stack index c and insert parens if they aren't there already c note that numbers (found with nbrstr) are skipped over str1 = string(i:i) if (i.le.ieon) go to 199 if (index( digits, str1 ).ne.0 ) then ieon = i + nbrstr(string(i:)) elseif (index(sopt1,str1).ne.0) then iopt = i paren(istack) = .true. elseif (str1.eq.'(') then istack = istack + 1 if (istack.gt.mstack) istack = mstack iopen(istack) = i elseif (str1.eq.')') then istack = istack - 1 if (istack.lt.1) istack = 1 elseif (index(sopt2, str1 ).ne.0 ) then ioptst = i - iopt if ( paren(istack)) then paren(istack) = .false. c normal case: find a far away operation if (ioptst.gt.1) then istart = i + 2 io = iopen(istack) idiff = i - io if (idiff.gt.1) then dummy = ' ' dummy = string(1:io)//'('// $ string(io+1 :i-1)//')'//string(i:) string = dummy end if c non-normal case: operation immediately after '^' else jstk = 0 do 170 j = i + 1, ilen - 2 str1 = string(j:j) if (str1.eq.'(') then jstk = jstk + 1 elseif (str1.eq.')') then jstk = jstk - 1 elseif ( (jstk.eq.0) .and. $ (index(operas,str1).ne.0)) then go to 180 end if 170 continue 180 continue dummy = ' ' dummy = string(:i-1)//'('//string(i: j-1) $ //')'//string(j:) string = dummy end if go to 100 else iopen(istack) = i end if end if 199 continue 200 continue c if needed, insert a last set of parens at the end if ( paren(1).and.(iopen(1).ne.1)) then i1 = iopen(istack) i2 = istrln(string) + 1 dummy = ' ' dummy = string(1:i1)//'('// $ string(i1+1:i2-1)//')'//string(i2:) string = dummy end if call triml(string) strin = string ilen = istrln(string) 300 continue return c end soubroutine parins end subroutine parens(string) c c copyright 1993 university of washington matt newville c insert parentheses in a string for a fortran math expression c to give the normal math precedence : c ^ before *,/,+,- and *,/ before +,- c also: ** is replaced by ^ c c this calls parins, which does the real work of inserting parens. c-------------------------------------------------------------------- implicit none character*(*) string, strtmp*2048 integer i, ilen, istrln external istrln c c first replace '**' with '^ ' strtmp = string ilen = max(2, istrln(strtmp)) do 10 i = 1, ilen-1 if (strtmp(i:i+1).eq.'**') then strtmp(i:i+1) = '^ ' end if 10 continue call unblnk(strtmp) ilen = istrln(strtmp) if ((strtmp.ne.' ').and.(ilen.gt.0)) then c c then put parentheses in to make sure that exponentiation is c done before multiplication, division, addition, or subtraction. if (index(strtmp,'^').ne.0) $ call parins(strtmp,ilen,'^','*/+-') c c then put parentheses in to make sure that multiplication and c division are done before addition and subtraction. if ((index(strtmp,'*').ne.0).or.(index(strtmp,'/').ne.0)) $ call parins(strtmp,ilen,'*/','+-') c c put new string into output and return endif string = strtmp return c end subroutine parens end subroutine class(icode, iclass, ichi, iclo) c c copyright 1993 university of washington matt newville c c this is a subroutine of engrpn. operators are moved around c to convert english math to reverse polish. c if operator is of class icin, and is not already followed by c an operator with class in iclo, then find next place with c stack=0 (that is on the current level), that contains an c operator with class in iclo c--------------------------------------------------------------------- implicit none integer i, maxlen, j0, ksave, ic, icn, j, k, istack parameter(maxlen =1024) integer icode(maxlen), iclass(maxlen), ichi , iclo(6) integer itemp(maxlen), icltmp(maxlen) logical opera do 100 i = 1, maxlen itemp(i) = icode(i) icltmp(i) = iclass(i) 100 continue do 2000 j0 = 1, maxlen - 1 j = j0 500 continue ic = icltmp(j) if (ic.eq.0) go to 2010 if (ic.eq.ichi) then icn = icltmp(j+1) opera = .false. do 550 i = 1, 6 if ( icn.eq.iclo(i)) opera = .true. 550 continue if (.not.opera) then istack = 0 k = j 600 continue k = k + 1 if (k.ge.maxlen) go to 700 icn = icltmp(k) opera = .false. do 650 i = 1, 6 if ( icn.eq.iclo(i)) opera = .true. 650 continue if ( (istack.eq.0) .and. opera) go to 700 if (icn.eq.7) istack = istack + 1 if (icn.eq.8) istack = istack - 1 go to 600 700 continue ksave = k -1 icode(ksave) = itemp(j) iclass(ksave) = icltmp(j) do 1000 k = j, ksave-1 icode(k) = itemp(k+1) iclass(k) = icltmp(k+1) 1000 continue c reset itemp and start over again at the same place icode(maxlen-1) = 0 icode(maxlen) = 0 do 1200 k = 1, maxlen itemp(k) = icode(k) icltmp(k) = iclass(k) 1200 continue go to 500 end if end if 2000 continue 2010 continue c finish it up do 3000 i = 1, maxlen icode(i) = itemp(i) iclass(i) = icltmp(i) 3000 continue c return c end subroutine class end ifeffit-1.2.11d/src/feffit/getfln.f0000644000175000017500000000144410771740456016046 0ustar segresegre subroutine getfln(strin, filnam, ierr) c strip off the matched delimeters from string, as if getting c a filename from "filename", etc. integer idel, iend, istrln, ierr character*(*) strin, filnam, tmp*144, ope*8, clo*8 data ope, clo /'"{(<''[', '"})>'']'/ c ierr = 0 tmp = strin call triml(tmp) ilen = istrln(tmp) idel = index(ope,tmp(1:1)) if (idel.ne.0) then iend = index(tmp(2:), clo(idel:idel) ) if (iend.le.0) then ierr = -1 iend = ilen end if filnam = tmp(2:iend) else iend = index(tmp,' ') - 1 if (iend.le.0) iend = istrln(tmp) filnam = tmp(1:iend) end if return c end subroutine getfln end ifeffit-1.2.11d/src/feffit/fixstr.f0000644000175000017500000000257210771740456016111 0ustar segresegre subroutine fixstr(string,str,ilen,words,wrdsor,mwords,nwords) c simple preparation of string for reading of keywords integer ilen, mwords, nwords, i, lenp1 integer iexcla, iperct, ihash, ieolc, istrln character*(*) string, str, words(mwords), wrdsor(mwords) c c fix-up string: untab, left-justify, make a lower-case version nwords = 0 call untab(string) str = string call triml(str) call smcase( str, 'case') c remove comments from str: c '!', '#', and '%' are end of line comments c '*' is a complete comment line if in col 1 lenp1 = len(str) + 1 iexcla = index(str,'!') if (iexcla.eq.0) iexcla = lenp1 iperct = index(str,'%') if (iperct.eq.0) iperct = lenp1 ihash = index(str,'#') if (ihash.eq.0) ihash = lenp1 ieolc = min(iperct,iexcla,ihash) - 1 if ((ieolc.lt.1).or.(str(1:1).eq.'*')) ieolc = 1 str = str(1:ieolc) ilen = max(1, istrln(str)) if (ilen.le.2) return c break string into words (up to mwords) c words is in lower case, wrdsor is in original case do 120 i = 1, mwords words(i) = ' ' wrdsor(i) = ' ' 120 continue nwords = mwords call bwords(str , nwords, words) call bwords(string, nwords, wrdsor) c end subroutine fixstr return end ifeffit-1.2.11d/src/feffit/inout.h0000644000175000017500000000117010771740456015723 0ustar segresegrec{inout.h -*-fortran-*- c miscellaneous input/output stuff in feffit double precision rlast, cormin, tranq,rwght1, rwght2 integer iprint, mdocxx, irecl(mdata) logical allout, kspcmp, kspout, rspout, qspout, degflg logical datain(mdata), rm2flg, dphflg logical noout, nofit, final, vaxflg, dosflg, macflg logical pcout, prmout, chkdat common /inout/ rlast,cormin,tranq,rwght1,rwght2,iprint,mdocxx, $ irecl, final,allout, kspcmp,kspout,rspout,qspout, $ degflg, prmout, pcout, chkdat, $ datain, noout, nofit,vaxflg,dosflg,macflg,rm2flg,dphflg c inout.h} ifeffit-1.2.11d/src/feffit/fitdat.f0000644000175000017500000002535010771740456016044 0ustar segresegre subroutine fitdat c c this routine reads the input data files for feffit. c c - if given, each data file will be opened and the chi(k) c data and documentation will be read with the routine inpdat. c - all the numbers for qmin, qmax, rmin, rmax, etc. are also c set here, using defaults from the values in the data files. c - as the data is read in, it is interpolated here onto a evenly c spaced k grid ( with dk = qgrid = 0.05). c - if backgound removal is requested, the number of knots in the c spline will be found and set here, rmin will be used as rbkg, c and the fit will be done on r=[0,rmax]. the variables for the c spline coeffs will be added to the end of the variable list, c so that the first nvuser variables will be those explicitly c "guess"ed, and the rest (numvar-nvuser) will be those implicitly c guessed by asking for background removal. c * the feffnnnn.dat files will be read in fefinp. c c copyright 1993 university of washington matt newville c c---------------------------------------------------------------------- c common blocks for feffit include 'fitcom.h' character*10 ftype, frmtmp, strtmp*128 character*100 docb(maxdoc) double precision qtemp(maxpts), chitmp(maxpts), rrmmax double precision qbtemp(maxpts), bkgtmp(maxpts), qrange double precision tmp1(maxpts), tmp2(maxpts), tmp3(maxpts) double precision drinfo(mdata) , xlog2, percnt, two, rsmall double precision drmin, q, qsmall, xexpo, dr_1k double precision dqmin, xqmax, xqmin integer mftmin, id, ilen, istrln, isky, ist, ndocb integer nexpo, nrmin, nrmax, ntmp, ii, iv, imsg, ireclb integer nbkgf, ipos, iposb, i, nq1st, nqmin, nqmax parameter(xlog2 = 0.69314718056d0, percnt = 1.d-2, two = 2.d0) parameter(xqmin = 20.d0, xqmax = 35.d0) c----------------------------------------------------------------------- c drmin is used as the spacing in r-space to use in the fit, drmin = pi/( qgrid * mftfit) c---------------------------------------------------------------------- c open data files and get chi data do 500 id = 1, ndata ftype = 'chi' nchi(id) = maxpts irecl(id) = 512 q1st(id) = qgrid qlast(id) = 30. if (datain(id)) then ndoc(id) = maxdoc - 1 call inpdat(ftype, frminp, chifil(id), vaxflg, skey(id), $ nkey(id), irecl(id), ndoc(id), doc(1,id), nchi(id), $ qtemp, chitmp, tmp1, tmp2, tmp3) c c write output message that this file was successfully read ilen = max(1, istrln( chifil(id))) call smcase(frminp, 'a') messg = chifil(id)(1:ilen) strtmp = ' ' if (frminp(1:2).eq.'uw') then if (skey(id).ne.' ') then isky = max(1, istrln(skey(id))) if (nkey(id).ne.0) then strtmp = ' , '//skey(id)(1:isky) else write (strtmp, 9010) nkey(id), skey(id)(1:isky) endif elseif (nkey(id).ne.0) then write (strtmp, 9015) nkey(id) endif endif ist = istrln(strtmp) if (ist.ge.1) call append(messg, ' '//strtmp(:ist) ,ilen) call echo( ' '//messg(1:ilen)) c c if a bkg(k) file was specified, subtract this from the chi(k) data if (bkgdat(id)) then ndocb = maxdoc - 1 ftype = 'chi' nbkgf = maxpts ireclb = irecl(id) frmtmp = ' ' call inpdat(ftype, frmtmp, bkgfil(id), vaxflg, $ skeyb(id), nkeyb(id), ireclb, ndocb, docb(1), $ nbkgf, qbtemp, bkgtmp, tmp1, tmp2, tmp3) c c write output message that this file was successfully read ilen = max(1, istrln( bkgfil(id))) call smcase(frmtmp, 'a') messg = bkgfil(id)(1:ilen) strtmp = ' ' if (frmtmp(1:2).eq.'uw') then if (skeyb(id).ne.' ') then isky = max(1, istrln(skeyb(id))) if (nkeyb(id).ne.0) then strtmp = ' , '//skeyb(id)(1:isky) else write(strtmp,9010) nkeyb(id), $ skeyb(id)(1:isky) endif elseif (nkeyb(id).ne.0) then write(strtmp, 9015) nkeyb(id) endif endif ist = istrln(strtmp) if (ist.ge.1) $ call append(messg,' '//strtmp(:ist),ilen) call echo( ' '//messg(1:ilen)) end if c put chi data into single array, chiq, on qgrid spacing, c starting at q = qgrid : linear interpolation ipos = 1 iposb = 1 q1st(id) = max(qgrid, qtemp(1)) qlast(id) = qtemp(nchi(id)) if ((q1st(id).ge.xqmin).or.(qlast(id).ge.xqmax)) then imsg = -1 if (chkdat) imsg = 1 call finmsg(3010,' ',' ',imsg) end if do 150 i = 1, maxpts q = (i-1)*qgrid if ( (q.lt.q1st(id)).or.(q.gt.qlast(id))) then chiq(i,id) = zero else call qintrp( qtemp, chitmp, nchi(id), q, $ ipos, chiq(i,id)) if (bkgdat(id)) then call qintrp( qbtemp, bkgtmp, nbkgf, q, $ iposb, bkgq(i,id)) chiq(i,id) = chiq(i,id) - bkgq(i,id) end if end if 150 continue end if c c recover from incomplete inputs if (((outfil(id).eq.' ').or.(outfil(id).eq.'xxfitxx')) $ .and.(chifil(id).ne.' ')) outfil(id) = chifil(id) c c c miscellaneous fiddling with input numbers: c find maximum path index c put q1st, qmin, qmax on qgrid, etc. c calculate number of points in various ranges c-- put q1st, qmin, qmax on qgrid, get nqpts qsmall = qgrid * percnt c q1st nq1st = int( (q1st(id) + qsmall) / qgrid) q1st(id) = qgrid * nq1st c qmin : make sure it is on the data range and larger than qgrid nqmin = max(1, int( (qmin(id) + qsmall) / qgrid)) qmin(id) = max(qgrid * nqmin, q1st(id)) c qmax : truncate nqmax nqmax = int( (qmax(id) + qsmall) / qgrid) qmax(id) = qgrid * nqmax if (qmax(id).le.qmin(id)) then qmax(id) = qlast(id) else qmax(id) = min(qmax(id), qlast(id)) end if c nqpts, nqfit nqpts(id) = nqmax - nqmin + 1 nqfit(id) = int( ( qlast(id) + qsmall + two) / qgrid ) cc print*, ' mid fitdat: ' cc print*, q1st(1),qmin(1),qmax(1), qlast(1), nqpts(1), nqfit(1) c c-- r values (mostly in next loop) if (rmax(id).le.rmin(id)) rmax(id) = rmin(id) c c define drinfo as spacing between independent points in r-space c and keep smallest drinfo found so far drinfo(id) = pi / ( qmax(id) - qmin(id) ) drmin = min(drmin, drinfo(id)) c c done with this data set, for now 500 continue c---------------------------------------------------------------------- c get mftfit (number of points for fit in fft range) rsmall = rgrid * 0.01d0 do 700 id = 1, ndata nrmin = int( (rmin(id) + rsmall) / rgrid ) + 1 nrmax = int( (rmax(id) + rsmall) / rgrid ) if (nrmax.le.nrmin) nrmax = nrmin + 1 nrpts(id) = nrmax - nrmin + 1 rmax(id) = rgrid * nrmax rmin(id) = rgrid * nrmin if (bkgfit(id)) then rbkg(id) = rgrid * nrmin rmin(id) = zero end if xinfo(id) = two * (one + ((rmax(id)-rmin(id)) / drinfo(id))) c c if bkg removal is requested, figure out how many spline knots to c use, where to put them, and add these knots to the variable list. if (bkgfit(id)) then c c-bkg how many splines nbkg(id) = 1 + 2 * int( rbkg(id) / drinfo(id) ) nbkg(id) = min(mtknot-korder-1, max(korder+1, nbkg(id))) c-bkg where to put knots do 600 i = 1, korder qknot(i,id) = qmin(id) - (korder-i) * qgrid qknot(nbkg(id)+i,id) = qmax(id) + (i-1) * qgrid 600 continue qrange = qmax(id) - qmin(id) ntmp = nbkg(id) - korder + 1 do 620 i = korder+1, nbkg(id) qknot(i, id) = qmin(id) + (i-korder)*qrange/ntmp 620 continue c-bkg add spline coefs to the variable list, initialize to zero do 640 ii = 1, maxval if (vnames(ii).eq.' ') go to 650 640 continue 650 continue iv = ii - 1 do 680 i = 1, nbkg(id) numvar = numvar + 1 iv = iv + 1 if (numvar.gt.mvarys) call finmsg(3020,' ',' ',mvarys) if (iv.gt.maxval) call finmsg(3040,' ',' ',maxval) xguess(numvar)= zero write(vnames(iv), 660) '_bkg_#',id,'_',i 660 format (a,i2.2,a,i2.2) icdval(1,iv) = -1 680 continue endif c c figure out amount of information for this data set, and add to total c note: if rmin=0. we're doing bkg subtraction - there is only c one piece of information at r=0. at r > 0, the information c comes in pairs. xnidp = xnidp + xinfo(id) c c finally, make the qwindo and rwindo (ie, the fft widnows) c for this data set. c cc print*, ' call window' call window(sqwin(id), qwin1(id), $ qwin2(id), qmin(id), qmax(id), qgrid, $ maxpts, qwindo(1,id) ) call window(srwin(id), rwin1(id), $ rwin2(id), rmin(id), rmax(id), rgrid, $ maxpts, rwindo(1,id) ) c 700 continue if (xinfo(1).lt.two) xinfo(1) = two if (xnidp.lt.two) xnidp = two inform = int(xnidp) c xexpo = log ( float (mftfit)) / xlog2 nexpo = min(11, max(8, nint(xexpo)) ) c c make sure rlast is smaller than 10pi = pi/2/qgrid rrmmax = (pi/two) / qgrid if (rlast.gt.rrmmax) rlast = rrmmax call cffti(mftfit, wfftc) cc print*, ' end of fitdat: ' cc print*, mftfit cc print*, ' q/r grid ', qgrid, rgrid cc print*, q1st(1), qmin(1), qmax(1), qlast(1), nqpts(1) return c end subroutine fitdat 9010 format (a, ' , ', i4, ' (', a,')' ) 9015 format (a, ' , ', i4 ) end ifeffit-1.2.11d/src/feffit/getcom.f0000644000175000017500000001076110771740456016047 0ustar segresegre subroutine getcom(jinit, line) c c return next "real" command line from input file(s) c - allows use of "include file" or "load file" for reading c from other files, and manages the set of include files c - checks for and ignores comment lines and blank lines. c - opens and closes all input files, including initial file. c c jinit initialization flag [in] c line next command line to parse [in/out] c c notes: c 1. to initialize, set jinit<0 and line= input_file_name. c if line=' ', commands will be read from standard input c (unit 5). c 2. returned line will be sent through triml and untab. c 3. uses routine iscomm to test if line is a comment line. c 4. uses routine openfl to open files (which include automatic c assignment of next available unit number) c 5. special returned values: c 'getcom_end' = done reading all inputs c 'getcom_error'= an error has occurred. the calling routine c should probably stop c 'getcom_nofile'= on initialization, the file named by "line" c could not be found c matt newville march 1997 implicit none integer mwords, ilen, i, jinit, mfil, nfil character*(*) line, stat*8 parameter (mwords=2, mfil=10, stat = 'old') character*128 files(mfil), errmsg, words(mwords) integer iunit(mfil), istrln, nwords, ierr, iex integer iret, iread logical iscomm external istrln, iscomm, iread save files, iunit, nfil c if ((jinit.lt.0)) then jinit = 1 do 10 i = 1, mfil iunit(i) = 0 files(i) = ' ' 10 continue nfil = 1 files(1) = line call triml(files(1)) if (files(1) .eq. ' ') then iunit(1) = 5 else call openfl(iunit(1), files(1), stat, iex, ierr) if (iex.lt.0) then line = 'getcom_nofile' return elseif (ierr.ne.0) then line = 'getcom_error' return end if end if end if c read next line from current input file 100 continue line = ' ' iret = iread(iunit(nfil), line) if (iret.eq.-1) goto 500 if (iret.eq.-2) goto 1000 if (iret.eq. 0) goto 100 c c check if command line is 'include filename'. c if so, open that file, and put it in the files stack call triml(line) if (iscomm(line)) go to 100 nwords = mwords words(2) = ' ' call bwords(line, nwords, words) call lower(words(1)) if (((words(1) .eq. 'include').or.(words(1) .eq. 'load')) $ .and. (nwords .gt. 1)) then nfil = nfil + 1 if (nfil .gt. mfil) go to 2000 call getfln(words(2), files(nfil), ierr) if (ierr. ne. 0) go to 2400 c test for recursion: do 400 i = 1, nfil - 1 if (files(nfil) .eq. files(i)) go to 3000 400 continue call openfl(iunit(nfil), files(nfil), stat, iex, ierr) if (iex .lt. 0) go to 2600 if (ierr.lt. 0) go to 2800 go to 100 end if return c c end-of-file for command line file: drop nfil by 1, c return to get another command line 500 continue if (iunit(nfil) .ne. 5) close(iunit(nfil)) iunit(nfil) = 0 files(nfil) = ' ' nfil = nfil - 1 if (nfil.gt.0) go to 100 line = 'getcom_end' return c error messages 1000 continue call echo(' # getcom error: general read error') go to 4500 2000 continue call echo(' # getcom error: too many nested "include"s') write(errmsg, '(1x,a,i3)') ' # current limit is ', mfil ilen = istrln(errmsg) call echo(errmsg(1:ilen)) go to 4500 2400 continue call echo(' # getcom error: cannot determine "include" file') go to 4500 2600 continue call echo(' # getcom error: cannot find "include"d file') go to 4500 2800 continue call echo(' # getcom error: cannot open "include"d file') go to 4500 3000 continue call echo(' # getcom error: recursive "include" of file') go to 4500 4500 continue errmsg = ' # reading file: '//files(nfil) if (files(nfil) .eq. ' ') $ errmsg = ' # reading from standard input' ilen = istrln(errmsg) call echo(errmsg(1:ilen) ) line = 'getcom_error' return c end subroutine getcom end ifeffit-1.2.11d/src/feffit/data.h0000644000175000017500000000152310771740456015500 0ustar segresegrec{data.h -*-fortran-*- c data and fitting numbers in feffit double precision chiq(maxpts,mdata) double precision thiq(maxpts,mdata),thiqr(maxpts,mdata) double precision qwindo(maxpts,mdata), rwindo(maxpts,mdata) double precision q1st(mdata), qlast(mdata) double precision chifit(maxpts, mdata), xnidp double precision sigdtr(mdata),sigdtk(mdata),sigdtq(mdata) double precision xinfo(mdata),chi2dt(mdata),rfactr(mdata) double precision sigwgt(mdata),weight(mdata) integer ndoc(mdata), nkey(mdata), nchi(mdata), ndata integer inform, nkeyb(mdata) common /data/ q1st, qlast, thiq, thiqr, chiq, chifit, $ qwindo, rwindo, sigdtr, sigdtk, sigdtq, sigwgt, $ weight, chi2dt, rfactr, xinfo, $ xnidp, ndoc, nkey, nchi, ndata, inform, nkeyb c data.h} ifeffit-1.2.11d/src/feffit/isdat.f0000644000175000017500000000151410771740456015671 0ustar segresegre logical function isdat(string) c tests if string contains numerical data c returns true if the first (up to eight) words in string can c all be numbers. requires at least two words, and tests only c the first eight columns integer nwords, mwords, i parameter (mwords = 8) character*(30) string*(*), words(mwords), line*(256) logical isnum external isnum c isdat = .false. do 10 i = 1, mwords words(i) = 'no' 10 continue c nwords = mwords line = string call triml(line) call untab(line) call bwords(line, nwords, words) if (nwords.ge.2) then isdat = .true. do 50 i = 1, nwords if (.not. ( isnum( words(i) ) ) ) isdat = .false. 50 continue end if c return end ifeffit-1.2.11d/src/feffit/fftout.f0000644000175000017500000000142711061570033016060 0ustar segresegre subroutine fftout(mpts, mode, xdat, step, xlo, xhi, nout, npts, xout) c convert complex data xdat to a real array, using only c that part of the complex array between [xlow, xhi]. implicit none integer mpts, npts, nout, nmin, npairs, i, mode complex*16 xdat(mpts) double precision xout(npts), step, dxi, xlo, xhi, small, tiny parameter (tiny = 1.d-4, small = 1.d-2) c dxi = 1 / max(tiny, step) nmin = max(0, int(xlo * dxi + small )) npairs = max(1, int(xhi * dxi + small )) - nmin + 1 nout = min(npts, 2 * npairs) do 50 i= 1, npairs xout(2*i-1) = dble (xdat( nmin + i )) xout(2*i ) = dimag(xdat( nmin + i )) 50 continue return c end subroutine fftout end ifeffit-1.2.11d/src/feffit/fitnls.f0000644000175000017500000003743711061570531016065 0ustar segresegre subroutine fitnls c c this will call lmdif1, a routine from minpack, to solve the c unconstrained non-linear least squares fitting problem using c a levenberg-marquardt algorithm. the subroutine fitfun is c used to evaluate the function to be minimized in the least c squares sense. c c copyright 1993 university of washington matt newville c c the outline of this routine is: c 1. an estimate of the measurement uncertainty is made by c using the high r components of the data (unless the user c has overwritten this value). c 2. the arrays for the call to lmdif1 are setup, and the call c to lmdif1 is made. c 3. after a successful fit has been found, the uncertainties c in the fit parameters are estimated by assuming that the c errors are normally distributed, so that the correlation c matrix is the inverse of the curvature of parameter space c around the solution. c c-------------------------------------------------------------------- include 'fitcom.h' integer lenwrk, lenfvc, istrln, im, ier, ierr, ilen, ione integer lminfo, iflag, nfirst, nr1, nr2, mfit, nsigd, ix integer nrwght, irun, iex, id, i, istop, nrmin,nrmax, ind, ixmode parameter(lenwrk = 2*maxpts*(mvarys + 1) + 20*mvarys ) parameter(lenfvc = mdata*maxpts , ione = 1) integer iwork(mvarys),nptfit(mdata),ibadx(mvarys),nfit1,nsig1 logical datafl, feff double precision work(lenwrk), fvect(lenfvc), ftemp(lenfvc) double precision xvarys(mvarys), fjac(lenfvc, mvarys) double precision alpha(mvarys, mvarys), toler, tolfac double precision chirhi(maxpts), sumsqr double precision rsmall, stmp, wtmp, xolow, xohigh external fitfun, sumsqr, istrln datafl = .false. tolfac = 1.d-05 lminfo = 0 rsmall = rgrid * 0.01d0 c----------------------------------------------------------------- c for phase-shifted FT's, determine which feff path to take c the phase shift from if (pcout) then do 40 id = 1, ndata jffphs(id) = 0 do 30 ind = 1, mdpths if (jdtpth(ind,id).gt.0) then jffphs(id) = jpthff( jdtpth(ind,id) ) if (jffphs(id).gt.0) go to 35 end if 30 continue 35 continue 40 continue end if if (iprint.ge.2) then irun = 0 call openfl(irun, 'feffit.debug','unknown', iex, ierr) if (ierr.lt.0) then call finmsg(1002,' ','feffit.run',0) iprint = 1 else write(irun,*)'mftfit, rgrid =',mftfit,rgrid end if end if c c hack by matt : ifxvar temporarily holds irun (so iprint works in fitfun) ifxvar = irun c c set up/initialize a bunch of other stuff: c mfit = number of point to use in fitting c nrwght = # of points to use for getting measurement uncertainty mfit = 0 nr1 = int ( (rwght1 + rsmall) / rgrid ) nr2 = int ( (rwght2 + rsmall) / rgrid ) nrwght = nr2 - nr1 + 1 nsigd = 2*nrwght c c for each data set: c 1 call fitfft to apply window and weighting and to do fft c of the data, returning chifit over the given fit range. c if ifft=0, chifit contains real chi(k), with only window c applied, but no fft. c if ifft=1, chifit contains chi(r). this is the default c if ifft=2, chifit contains backtransformed chi(k). c 2 calculate the measurement uncertainty by calling fitfft c (this time doing the fft even if the fit is in k-space), c returning chi(r) between 15 and 25 angstroms. if the fit c is done in r-space, the measurement uncertainty is taken c as the rms value of the high-r components of chi(r), which c will represent the random, white noise in the data. if the c fit is done in k-space, the uncertainty is found from the c r-space value according to (see thiel, livins, stern, and c lewis paper on pt-pop. the result is fairly straighforward c fourier analysis, done by p livins, checked algebraically and c numerically on samples of modelled noisy data by m newville.) c c / pi * w' \ c (sigma_k)^2 = (sigma_r)^2 * | -------------------------- | c \ qgrid*( kmax^w' - kmin^w') / c c where w' = (2 * kweight + 1). c do 100 id = 1, ndata nrmin = int ( (rmin(id) + rsmall) / rgrid ) nrmax = int ( (rmax(id) + rsmall) / rgrid ) nrpts(id)= nrmax - nrmin + 1 if (ifft(id).eq.1) then nptfit(id) = 2 * max (1, nrpts(id)) elseif (ifft(id).eq.2) then nptfit(id) = 2 * max (1, nqpts(id)) else nptfit(id) = max (1, nqpts(id)) end if mfit = mfit + nptfit(id) if (datain(id)) then datafl = .true. if (mod(ifft(id), 2).eq.0) then xolow = qmin(id) xohigh= qmax(id) else xolow = rmin(id) xohigh= rmax(id) end if if (iprint.ge.2) then write(irun,*) ' id, ifft(id) =', id , ifft(id) write(irun,*) ' nrmin, nrmax = ',nrmin,nrmax write(irun,*) ' nrpts, nqpts = ',nrpts(id),nqpts(id) write(irun,*) ' qmin , qmax = ',qmin(id),qmax(id) write(irun,*) ' sample of qwindo (i,q,qwindo):' do ix = 20, 60,3 write(irun,*) ix, ix*qgrid, qwindo(ix,id) end do write(irun,*) ' calling fitfft... ' endif ixmode = 0 call fitfft(chiq(1,id), maxpts, mftfit, wfftc, qgrid, $ qwindo(1,id),qweigh(id),rwindo(1,id),rweigh(id), $ ifft(id), ixmode,xolow,xohigh,nfit1, chifit(1,id)) cc thepha(1,jffphs(id)),mffpts, c if (iprint.ge.2) then write(irun,*) ' id, ifft(id) =', id , ifft(id) write(irun,*) ' nrmin, nrmax = ',nrmin,nrmax write(irun,*) ' nrpts, nqpts = ',nrpts(id),nqpts(id) write(irun,*) ' qmin , qmax = ',qmin(id),qmax(id) endif c c estimate of measurement uncertainty for fit: c assuming the measurement uncertainty to be white noise, and c that the signal dies off appreciably at reasonably large r, c the noise is given by the high r components of the signal. c sigdtr is estimated as the rms part of the signal at high r. c we most need the noise in the real and/or imaginary parts c of chi(r). the temp array below contains both real and c imaginary parts, so its rms is too big by the sqrt(2). c if ((sigdtr(id).le.zero).and.(sigdtk(id).le.zero)) then call fitfft(chiq(1,id), maxpts, mftfit, wfftc, qgrid, $ qwindo(1,id),qweigh(id), qwindo(1,id), rweigh(id), $ ione, ixmode, rwght1, rwght2, nsig1, chirhi) ccc pcfit, qfeff(1,jffphs(id)), thepha(1,jffphs(id)),mffpts, sigdtr(id) = sqrt( sumsqr(chirhi, nsig1) / nsig1) endif c find sigdtk, the measurement uncertainty for the k-space data, c using the formula above c if sigdtk was given, the sigdtr is still zero, so c get it by inverting the above formula if ((sigdtk(id).le.zero).or.(sigdtr(id).le.zero)) then wtmp = 2 * qweigh(id) + one c#mn mar-18-98 sqrt(2) seems needed, empirically at least stmp = sqrt( 2 * pi * wtmp / $ (qgrid * (qmax(id)**wtmp - qmin(id)**wtmp ))) c stmp = sqrt ( pi * wtmp / c $ (qgrid * (qmax(id)**wtmp - qmin(id)**wtmp ))) if (sigdtr(id).le.zero) sigdtr(id) = sigdtk(id)/stmp if (sigdtk(id).le.zero) sigdtk(id) = sigdtr(id)*stmp end if endif sigdtk(id) = dabs( sigdtk(id)) sigdtr(id) = dabs( sigdtr(id)) if (sigdtk(id).le.zero) sigdtk(id) = one if (sigdtr(id).le.zero) sigdtr(id) = one c finally, get sigdtq, again using the above formula, this c time using the r-weight and r-ranges of the r->q ft if (sigdtq(id).le.zero) then wtmp = 2 * rweigh(id) + one stmp = sqrt ( pi * wtmp / $ (rgrid * (rmax(id)**wtmp - rmin(id)**wtmp ))) sigdtq(id) = sigdtr(id) / stmp end if c------------------------------------------------------------ c assign weighting to use in fit based on user chosen weight (sigwgt) c and on data uncertainty for the space to fit in c sigwgt(id) = dabs( sigwgt(id)) if (sigwgt(id).le.zero) sigwgt(id) = one if (ifft(id).eq.0) then weight(id) = sigdtk(id) * sigdtk(id) / sigwgt(id) elseif (ifft(id).eq.1) then weight(id) = sigdtr(id) * sigdtr(id) / sigwgt(id) elseif (ifft(id).eq.2) then weight(id) = sigdtq(id) * sigdtq(id) / sigwgt(id) endif 100 continue c do some simple error checking mfit = min(mfit, lenfvc) if (numvar.gt.mfit) then write(messg, '(a,i3,a,i3,a)' ) 'trying to use ', numvar, $ ' variables for ', mfit , ' measurements' call finmsg(3510,messg,' ',0) elseif (numvar.gt.xnidp) then call echo( '>WARNING: more variables than'// $ ' independent measurements in data!') elseif (numvar.eq.inform) then call echo( '>WARNING: equal number of variables'// $ ' and measurements in data!') end if c if (iprint.ge.2) then write(irun,*) ' ndata, mfit, numvar=',ndata, mfit, numvar write(irun,*) ' xnidp = ' , xnidp write(irun,*) ' -------------------------------------' endif c initialization for fitting: c the default fitting tolerance (tolfac = 1.d-5) is empirical. c the user can set usrtol [default = 1] with "toler" keyword. toler = usrtol * tolfac chisqr = zero istop = 0 c get weight for chi-square: c chi-square = sum{1 to mfit} [ del_chi(r) / sigma ]^2 c but chi-square should be correctly normalized, as if the c sum was {1 to inform} (inform = # of independent points). c we already got most of this above, but now we include the c terms mfit and inform, so that the sum is correctly normalized c when we actually sum over mfit points instead of inform points do 280 id = 1, ndata weight(id) = sqrt ( nptfit(id) * weight(id) / xinfo(id)) if (iprint.ge.2) then write(irun,*) ' sigdtk, sigdtr =',sigdtk(id),sigdtr(id) write(irun,*) ' nptfit, xinfo =',nptfit(id),xinfo(id) write(irun,*) ' weight, sigwgt =',weight(id),sigwgt(id) write(irun,*) '---------------------------------------' write(irun,*) ' tolfac,usrtol = ',tolfac,usrtol endif 280 continue c c initialize variables and fit arrays do 420 i =1, numvar xvarys(i) = xguess(i) xfinal(i) = xguess(i) 420 continue do 440 i =1, mfit fvect(i) = zero 440 continue c c print pre - fit message write(messg, '(a,f6.2,a,i3,a)' ) ' fitting ',xnidp, $ ' independent points with ', numvar, ' variables' im = istrln(messg) call echo(messg(:im)) c c last chance to bail (no feff files, no data file, nofit requested) feff = .false. do 450 i = 1, mfffil if (feffil(i).ne.' ') feff = .true. 450 continue noout = noout.or.((.not.feff).and.(.not.datafl)) if ( nofit.or.(.not.datafl).or. $ (numvar.le.0).or.(.not.feff)) then if (nofit) then messg = 'no fitting will be done, as requested.' elseif (.not.datafl) then messg = 'no fitting done. no data to fit!' elseif (numvar.le.0) then numvar = 0 messg = 'no fitting done. no variables defined!' elseif (.not.feff) then messg = 'no fitting done. no feff files defined!' end if im = max(1, istrln(messg)) call echo(' '//messg(:im)) final = .true. call fitfun(mfit, numvar, xvarys, fvect, istop) chisqr = sumsqr(fvect, mfit) cc final = .false. go to 5000 end if c c do the fitting: cc print*, ' FITNLS ndata = ', ndata, ', nvarys= ', numvar call lmdif1 (fitfun, mfit, numvar, xvarys, fvect, $ toler, lminfo, iwork, work, lenwrk) c c print post-fit message c lminfo key is listed in the comments to lmdif and lmdif1 call echo(' fitting is finished.') if (lminfo.eq.0) call finmsg(3530,' ',' ',lminfo) if ( (lminfo.ge.4).and.(lminfo.le.7)) then call echo(' fit gave a warning message:') if (lminfo.eq.4) then call echo(' one or more '// $ 'variables may not affect the fit.') elseif (lminfo.eq.5) then call echo(' too many fit '// $ 'iterations. try again with better') call echo(' better guesses or '// $ 'a simpler problem.') elseif ((lminfo.eq.6).or.(lminfo.eq.7)) then call echo(' "toler" can probably be '// $ 'increased without a loss of') write(messg, '(a,e13.5)' ) ' fit quality. '// $ 'current value is: toler = ', usrtol im = istrln(messg) call echo(messg(:im)) endif end if c----------------------------------------------------------- c assign variables to final values and call fitfun one more time if (iprint.ge.2) then write(irun,*) 'fitnls before error bars: i, xfinal,dx' do 600 i =1, numvar write(irun,*) i, xfinal(i),xfinal(i) - xguess(i) 600 continue endif iflag = 0 final = .true. call fitfun(mfit, numvar, xvarys, fvect, iflag) cc final = .false. c c evaluate chi-square : note that fvect is properly c normalized by weight in fitfun nfirst = 1 do 620 id = 1, ndata chi2dt(id) = sumsqr(fvect(nfirst), nptfit(id)) if (iprint.ge.2) then write(irun,*) 'nfirst, nptfit(id) =',nfirst,nptfit(id) write(irun,*) 'id, chi2dt(id) =', id, chi2dt(id) end if nfirst = nptfit(id) + nfirst 620 continue chisqr = sumsqr(fvect, mfit) if (iprint.ge.2) then write(irun,*) ' after fit : chisqr = ', chisqr write(irun,*) ' i , fvect(i) ' do 640 i = 1, mfit write(irun,*) i, fvect(i) 640 continue endif c cc print*, 'fitnls: iprint = ', iprint c estimate the uncertainties in parameters call fiterr(fitfun, mfit, numvar, lenfvc, mvarys, fvect, $ ftemp, fjac, alpha, iprint, nerstp, xvarys, $ delta, correl, ier, ibadx) c c write final fit values to common block arrays do 840 i = 1, numvar xfinal(i) = xvarys(i) 840 continue if (ier.eq.0) then call echo(' uncertainties estimated') else ierbar = -1 call echo('>WARNING: uncertainties can not'// $ ' be estimated. one or more ') call echo(' variables did not'// $ ' affect the fit:') do 880 i = 1, numvar if (ibadx(i).gt.0) then ilen = max(1, istrln(vnames(i))) messg = ' >> '//vnames(i)(1:ilen) //' <<' call echo(messg(:ilen+15)) end if 880 continue endif c 5000 continue if (iprint.ge.2) then close(irun) iprint = 0 endif return c c end subroutine fitnls end ifeffit-1.2.11d/src/feffit/fitck2.f0000644000175000017500000000565310771740456015757 0ustar segresegre subroutine fitck2 c c this routine is part of feffit: does some checking of math c expressions for path parameters for the "reasonableness" c of their initial values, so that deltar is not 100.0, etc. c note: this needs to be called *after* the feff.dat info is read c c copyright 1993 university of washington matt newville c---------------------------------------------------------------- include 'fitcom.h' double precision par, pmax(mpthpr), small, decod parameter (small = 1.d-3) character*20 setchr integer nstart, id, ipath, i, il, inpath, jfeff, juser external decod c these are the magnitudes of the upper limits for "reasonable" c initial values -- they're pretty darn big pmax(jps02) = 1.d6 pmax(jpe0) = 2.d1 pmax(jpdelr) = 5.d-1 pmax(jpsig2) = 3.d-1 pmax(jpei) = 2.d1 pmax(jpdpha) = 1.d2 pmax(jp3rd) = 2.d-1 pmax(jp4th) = 1.d-1 pmax(9) = 1.d0 pmax(10) = 1.d0 c---------------------------------------------------------------------- c evaluate the non-variable values c print*, ' fitck2!!' nstart = nconst + numvar + 1 do 1000 id = 1, ndata c first all the "set values" call setval(nstart,nmathx,icdval,maxval,micode, $ consts,mconst,values,icdloc,mlocal,mdata,ixlocl,id) c now test the values of the path parameters for sane guesses c also does error checking of whether all the path info is there, so c that such checks aren't needed in fitfun/fitout do 950 ipath = 1, mdpths inpath = jdtpth(ipath, id) if (inpath.gt.0) then jfeff = jpthff(inpath) cc print*, ' JFEFF = ', jfeff, inpath, ipath, id if (jfeff.le.0) then call echo(' jfeff < 0 ') jdtpth(ipath,id) = -1 go to 940 end if juser = jdtusr(ipath, id) if (refpth(jfeff).le.small) then jdtpth(ipath,id) = -1 jpthff(inpath) = -1 go to 940 end if consts(4) = refpth(jfeff) do 920 i = 1, mpthpr par = abs(decod(icdpar(1, i, inpath), $ micode, consts, values, defalt(i))) if (par.gt.pmax(i)) then write (messg,'(a,i3)') 'for path ',juser if (ndata.gt.1) then write (setchr,'(a,i3)') ' of data set ',id call append(messg,setchr,il) endif cc print*, ' parnam: ', i, parnam(i), par call finmsg(3300,parnam(i),messg,-1) end if 920 continue endif 940 continue 950 continue 1000 continue return c end subroutine fitck2 end ifeffit-1.2.11d/src/feffit/sigms.f0000644000175000017500000002210210771740456015703 0ustar segresegre subroutine sigms (tk, theta, rs, nleg, rat, iz, sig2) c c copyright 1993 university of washington c john rehr, steve zabinsky, matt newville c c the following routines calculate the debye-waller factor for a c path based on the temperature, debye temperature, average c norman radius, atoms in the path, and their positions. c these routines come courtesy of jj rehr and si zabinsky. c i changed them a bit. matt n c------------------------------------------------------------------- c c from s i zabinsky. c inputs: c tk temperature in degrees k c theta debye temp in degrees k c rs average wigner seitz or norman radius in bohr c averaged over entire problem: c (4pi/3)*rs**3 = sum( (4pi/3)rnrm**3 ) / n c (sum is over all atoms in the problem) c nleg nlegs in path c rat positions of each atom in path (in bohr) c iz atomic number of each atom in path c output: c sig2 debye waller factor c notes: c all units of distance in this routine are angstroms c there are nleg atoms including the central atom. c index 0 and index nleg both refer to central atom. implicit none integer i, j, nlegx, nleg double precision tk, theta, zero, two, rs, dist double precision rij, rimjm, rijm, rimj, riim, rjjm double precision ridotj, cimj, cosijm, cij, cimjm double precision sig2,sig2ij, cijm parameter (nlegx = 7, zero = 0., two = 2.) double precision rat(3,0:nlegx) integer iz(0:nlegx) c sig2 = zero do 800 i = 1, nleg do 800 j = i, nleg c c calculate r_i-r_i-1 and r_j-r_j-1 and the rest of the c distances, and get the partial cosine term: c cosine(i,j) = r_i.r_j / ((r_i - r_i-1) * (r_j - r_j-1)) rij = dist ( rat(1,i) , rat(1,j) ) rimjm = dist ( rat(1,i-1), rat(1,j-1)) rijm = dist ( rat(1,i) , rat(1,j-1)) rimj = dist ( rat(1,i-1), rat(1,j) ) riim = dist ( rat(1,i) , rat(1,i-1)) rjjm = dist ( rat(1,j) , rat(1,j-1)) ridotj = (rat(1,i)-rat(1,i-1)) * (rat(1,j)-rat(1,j-1)) $ + (rat(2,i)-rat(2,i-1)) * (rat(2,j)-rat(2,j-1)) $ + (rat(3,i)-rat(3,i-1)) * (rat(3,j)-rat(3,j-1)) cosijm = ridotj / (riim * rjjm) c c call corrfn to get the correlations between atom pairs call corrfn (rij , theta, tk, iz(i) , iz(j) , rs, cij) call corrfn (rimjm, theta, tk, iz(i-1), iz(j-1), rs, cimjm) call corrfn (rijm , theta, tk, iz(i) , iz(j-1), rs, cijm) call corrfn (rimj , theta, tk, iz(i-1), iz(j) , rs, cimj) c c combine outputs of corrfn to give the debye-waller factor for c this atom pair. !!! note: don't double count (i.eq.j) terms !!! sig2ij = ( cij + cimjm - cijm - cimj ) * cosijm / two if (j.eq.i) sig2ij = sig2ij / two sig2 = sig2 + sig2ij 800 continue return c end subroutine sigms end subroutine corrfn(rij, theta, tk, iz1, iz2, rs, cij) c c copyright 1993 university of washington c john rehr, steve zabinsky, matt newville c c subroutine calculates correlation function c c(ri, rj) = in the debye approximation c c = (1/n)sum_k exp(ik.(ri-rj)) (1/sqrt(mi*mj))* c (hbar/2w_k)*coth(beta hbar w_k/2) c c = (3kt/mu w_d**2) * sqrt(mu**2/mi*mj) * int c where : c x k_d*r (distance parameter) r distance in angstroms c theta debye temp in degrees k c tk temperature in degrees k c temper theta / tk = hbar omegad/kt c k_d debye wave number = (6*pi**2 n/v) c n/v free electron number density = 1/(4pi/3rs**3) c rs wigner seitz or norman radius in bohr c ami atomic mass at sites i in amu c amj atomic mass at sites j in amu c int int_0^1 (temper/x) dw sin(wx)coth(w*temper/2) c c solution by numerical integration c c parameters pi, bohr, con c con=hbar**2/kb*amu)*10**20 in ang**2 units c hbar=1.0549x10**-34 amu=1.65979x10-27kg kb=1.3807x10-23 implicit none double precision rij, theta, tk, rs, cij double precision pi,one,athird,bohr,con,x,temper double precision ami,amj,xkd,xinteg,eps,atwts integer iz1,iz2,nx parameter (pi = 3.14159 26535 89793 23846 26433d0) parameter (one = 1.d0, athird = 0.333333333333333d0) parameter (bohr = 0.529 177 249d0) parameter (con = 48.559d0) common /xtemp/ x, temper external atwts c c theta in degrees k, t temperature in degrees k ami = atwts(iz1) amj = atwts(iz2) temper = theta / tk xkd = (9*pi/2.d0)**(athird) / (rs * bohr) x = xkd * rij c call numerical integration call bingrt (xinteg, eps, nx) cij = (3.d0/2.d0) * xinteg * con / (theta* sqrt(ami*amj)) return c end subroutine corrfn end double precision function debfun(w) c c copyright 1993 university of washington c john rehr, steve zabinsky, matt newville c c debfun = (sin(w*x)/x) * coth(w*temper/2) implicit none double precision wmin, argmax,x ,temper, w, emwt double precision argu parameter (wmin = 1.d-20, argmax = 50.d0) common /xtemp/ x, temper c allow t = 0 without bombing debfun = 2 / temper if (w.gt.wmin) then debfun = w if (x.gt.0) debfun = sin(w*x) / x emwt = 0 argu = w*temper if (argu.lt.argmax) emwt = exp(-argu) debfun = debfun * (1 + emwt) / (1 - emwt) end if return c end function debfun end subroutine bingrt (b, eps, n) c c copyright 1993 university of washington c john rehr, steve zabinsky, matt newville c c subroutine calculates integrals between [0,1] b = int_0^1 f(z) dz c by trapezoidal rule and binary refinement (romberg integration) c coded by j rehr (10 feb 92) see, e.g., numerical recipes c for discussion and a much fancier version c----------------------------------------------- c del=dz itn=2**n tol=1.e-5 c starting values c implicit double precision (a-h,o-z) c error is approximately 2**(-2n) ~ 10**(-.6n) c so nmax=10 implies an error of 1.e-6 c implicit none double precision debfun, zero,one,two,three,four,tol double precision b, eps, zi,del, sum, bn, bo,bnp1 integer n, itn,i, nmax parameter(nmax = 10, tol = 1.d-5) parameter(zero=0.d0, one=1.d0, two=2.d0) parameter(three=3.d0, four=4.d0) external debfun c n = 0 itn = 1 del = one bn = (debfun(zero) + debfun(one)) / two bo = bn 10 continue c nth iteration c b_n+1=(b_n)/2+deln*sum_0^2**n f([2n-1]deln) n = n + 1 if (n.gt.nmax) go to 40 del = del / two sum = zero do 20 i= 1, itn zi = (two * i - 1) * del sum = sum + debfun(zi) 20 continue c bnp1=b_n+1 is current value of integral c cancel leading error terms b=[4b-bn]/3 c note: this is the first term in the neville table - remaining c errors were found too small to justify the added code bnp1= ( bn / two ) + del * sum b = (four * bnp1 - bn) / three eps = dabs( (b - bo) / b) if (eps.lt.tol) goto 60 bn = bnp1 bo = b itn = itn * 2 goto 10 40 continue return 60 continue return c end subroutine bingrt end double precision function atwts (iz) c c returns atomic weight from atom number (iz) c double precision atmass(103) data atmass / 1 1.0079, 4.0026, 6.941, 9.0122, 10.81, 12.01, 2 14.007, 15.999, 18.998, 20.18, 22.9898, 24.305, 3 26.982, 28.086, 30.974, 32.064, 35.453, 39.948, 4 39.09, 40.08, 44.956, 47.90, 50.942, 52.00, 5 54.938, 55.85, 58.93, 58.71, 63.55, 65.38, 6 69.72, 72.59, 74.922, 78.96, 79.91, 83.80, 7 85.47, 87.62, 88.91, 91.22, 92.91, 95.94, 8 98.91, 101.07, 102.90, 106.40, 107.87, 112.40, 9 114.82, 118.69, 121.75, 127.60, 126.90, 131.30, x 132.91, 137.34, 138.91, 140.12, 140.91, 144.24, 1 145, 150.35, 151.96, 157.25, 158.92, 162.50, 2 164.93, 167.26, 168.93, 173.04, 174.97, 178.49, 3 180.95, 183.85, 186.2, 190.20, 192.22, 195.09, 4 196.97, 200.59, 204.37, 207.19, 208.98, 210, 5 210, 222, 223, 226, 227, 232.04, 6 231, 238.03, 237.05, 244, 243, 247, 7 247, 251, 254, 257, 256, 254, 8 257/ atwts = atmass(iz) return c end function atwts end double precision function dist (r0, r1) c find distance between cartesian points r0 and r1 double precision r0(3), r1(3) dist = 0 do 10 i = 1, 3 dist = dist + (r0(i) - r1(i))**2 10 continue dist = sqrt(dist) return c end function dist end ifeffit-1.2.11d/src/feffit/cordby.f0000644000175000017500000000651310771740456016053 0ustar segresegre double precision function cordby(temp, thetad, ierr) c c copyright 1993 university of washington matt newville c c returns xafs sigma^2 from correlated debye model a la jj rehr c important note: the path information is passed in the c common block /fefdat/, and the value ixpath specifies c which path sigma^2 is to be calculated for. c temp temperature [k] (in) c theta debye temperature [k] (in) c cordby sigma^2 [aa^2] (out) c- include 'const.h' include 'fefdat.h' double precision temp, thetad, tk, theta, sig2 double precision rat(3,0:maxleg) integer ierr, iz(0:maxleg), i, j, ipth c ierr = 0 cordby = zero ipth = min( mfffil, max(1, ixpath)) c tk = temp theta = thetad if (tk .le.one) tk = one if (theta.le.one) theta = one do 50 i = 0, nlgpth(ipth) iz(i) = izpth(i,ipth) do 40 j = 1,3 rat(j,i) = ratpth(j,i,ipth) 40 continue 50 continue call sigms (tk, theta, rwgpth(ipth), nlgpth(ipth),rat,iz,sig2) cordby = sig2 return c end function cordby end double precision function einsdw(temp, theta, ierr) c c copyright 1994 university of washington matt newville c c return sigma^2 factor from einstein model. c important note: the path information is passed in the c common block /fefdat/, and the value ixpath specifies c which path sigma^2 is to be calculated for. c temp temperature [k] (in) c thetae einstein temperature [k] (in) c einsdw sigma^2 [aa^2] (out) c- double precision small parameter (small = 1.d-4) include 'const.h' include 'fefdat.h' double precision temp, theta, rmass, rtemp, atwts, einval integer ierr, ipth, i, natoms external atwts, einval ierr = 0 einsdw = zero ipth = min( mfffil, max(1, ixpath)) c construct reduced mass (in amu) using function atwts natoms = nlgpth(ipth) rtemp = zero rmass = zero do 50 i = 1, natoms rmass = max(one, atwts( izpth(i, ipth)) ) rtemp = rtemp + one / rmass 50 continue rmass = max(small, rtemp) rmass = one / rmass c call einval to get sigma squared einsdw = einval(temp, theta, rmass) return c end function einsdw end double precision function einval(t,theta,rmass) c c compute sigma^2 from the eisntein model c t temperature [K] (in) c theta einstein temperature [K] (in) c rmass reduced mass [amu] (in) c einval sigma squared [aa^2] (out) double precision small, big, two, factor double precision t, theta, rmass, x, t1, th1, rm1 parameter (two = 2.d0, small = 1.d-3, big = 1.d8 ) parameter (factor = 24.25423371d0) cc parameter (hbarc = 1973.270533d0, boltz = 8.617385d-5) cc parameter (amu2ev = 9.3149432d8 ) cc parameter (factor = hbarc*hbarc/(two * boltz * amu2ev)) th1 = max(small, theta) rm1 = max(small, rmass) t1 = max(small, t ) x = max(small, min(big, th1 / (two * t1))) einval = factor / ( rm1 * th1 * tanh(x)) return c end function einval end ifeffit-1.2.11d/src/feffit/Makefile.in0000644000175000017500000002317410771740456016471 0ustar segresegre# Makefile.in generated automatically by automake 1.4 from Makefile.am # Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. # Copyright (C) 2000 Matt Newville # # This file is free software; as a special exception the author gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY, to the extent permitted by law; without even the # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. SHELL = @SHELL@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ sbindir = @sbindir@ libexecdir = @libexecdir@ datadir = @datadir@ sysconfdir = @sysconfdir@ sharedstatedir = @sharedstatedir@ localstatedir = @localstatedir@ libdir = @libdir@ infodir = @infodir@ mandir = @mandir@ includedir = @includedir@ oldincludedir = /usr/include DESTDIR = pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = ../.. ACLOCAL = @ACLOCAL@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS) INSTALL_DATA = @INSTALL_DATA@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ transform = @program_transform_name@ NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : host_alias = @host_alias@ host_triplet = @host@ CC = @CC@ CPP = @CPP@ CXX = @CXX@ CXXCPP = @CXXCPP@ F2C = @F2C@ F2CFLAGS = @F2CFLAGS@ F77 = @F77@ FFLAGS = @FFLAGS@ FLIBS = @FLIBS@ MN_FLIBS = @MN_FLIBS@ MAKEINFO = @MAKEINFO@ NM = @NM@ PACKAGE = @PACKAGE@ RANLIB = @RANLIB@ VERSION = @VERSION@ canonical_host_type = @canonical_host_type@ bin_PROGRAMS = feffit feffit_SOURCES = feffit.f setsys.f fitint.f fitinp.f getcom.f \ fixstr.f finmsg.f append.f misc.f \ filrec.f encod.f enlib.f nbrstr.f fitdat.f fitchk.f chipth.f\ fixicd.f setval.f eval.f decod.f cordby.f sigms.f fefsrt.f\ fefinp.f fitck2.f fitnls.f fitfun.f fitlog.f\ fitprm.f wrtprm.f fitout.f xfsout.f txpath.f feffit_OBJECTS = feffit.o setsys.o fitint.o fitinp.o getcom.o \ fixstr.o finmsg.o append.o misc.o \ filrec.o encod.o enlib.o nbrstr.o fitdat.o fitchk.o chipth.o\ fixicd.o setval.o eval.o decod.o cordby.o sigms.o fefsrt.o\ fefinp.o fitck2.o fitnls.o fitfun.o fitlog.o\ fitprm.o wrtprm.o fitout.o xfsout.o txpath.o feffit_LDADD = ../lib/libxafs.a $(MN_FLIBS) feffit_DEPENDENCIES = ../lib/libxafs.a feffit_LDFLAGS = mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs CONFIG_HEADER = ../../config.h CONFIG_CLEAN_FILES = PROGRAMS = $(bin_PROGRAMS) DEFS = @DEFS@ -I. -I$(srcdir) -I../.. CPPFLAGS = @CPPFLAGS@ LDFLAGS = @LDFLAGS@ LIBS = @LIBS@ F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS) F77LD = $(F77) F77LINK = $(F77LD) $(AM_FFLAGS) $(FFLAGS) $(LDFLAGS) -o $@ CFLAGS = @CFLAGS@ COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(LDFLAGS) -o $@ DIST_COMMON = Makefile.in DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) TAR = gtar GZIP_ENV = --best SOURCES = $(feffit_SOURCES) OBJECTS = $(feffit_OBJECTS) all: all-redirect .SUFFIXES: .SUFFIXES: .S .c .f .o .s Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status $(BUILT_SOURCES) cd $(top_builddir) \ && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status mostlyclean-binPROGRAMS: clean-binPROGRAMS: -test -z "$(bin_PROGRAMS)" || rm -f $(bin_PROGRAMS) distclean-binPROGRAMS: maintainer-clean-binPROGRAMS: install-binPROGRAMS: $(bin_PROGRAMS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(bindir) @list='$(bin_PROGRAMS)'; for p in $$list; do \ if test -f $$p; then \ echo " $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`"; \ $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`; \ else :; fi; \ done uninstall-binPROGRAMS: @$(NORMAL_UNINSTALL) list='$(bin_PROGRAMS)'; for p in $$list; do \ rm -f $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`; \ done .s.o: $(COMPILE) -c $< .S.o: $(COMPILE) -c $< mostlyclean-compile: -rm -f *.o core *.core clean-compile: distclean-compile: -rm -f *.tab.c maintainer-clean-compile: feffit: $(feffit_OBJECTS) $(feffit_DEPENDENCIES) @rm -f feffit $(F77LINK) $(feffit_LDFLAGS) $(feffit_OBJECTS) $(feffit_LDADD) $(LIBS) .f.o: $(F77COMPILE) -c $< tags: TAGS ID: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ here=`pwd` && cd $(srcdir) \ && mkid -f$$here/ID $$unique $(LISP) TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) $(LISP) tags=; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \ || (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags $$unique $(LISP) -o $$here/TAGS) mostlyclean-tags: clean-tags: distclean-tags: -rm -f TAGS ID maintainer-clean-tags: distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir) subdir = src/feffit distdir: $(DISTFILES) here=`cd $(top_builddir) && pwd`; \ top_distdir=`cd $(top_distdir) && pwd`; \ distdir=`cd $(distdir) && pwd`; \ @for file in $(DISTFILES); do \ d=$(srcdir); \ if test -d $$d/$$file; then \ cp -pr $$/$$file $(distdir)/$$file; \ else \ test -f $(distdir)/$$file \ || ln $$d/$$file $(distdir)/$$file 2> /dev/null \ || cp -p $$d/$$file $(distdir)/$$file || :; \ fi; \ done # DEPS_MAGIC := $(shell mkdir .deps > /dev/null 2>&1 || :) # -include $(DEP_FILES) mostlyclean-depend: clean-depend: distclean-depend: maintainer-clean-depend: %.o: %.c $(COMPILE) -c $< info-am: info: info-am dvi-am: dvi: dvi-am check-am: all-am check: check-am installcheck-am: installcheck: installcheck-am install-exec-am: install-binPROGRAMS install-exec: install-exec-am install-data-am: install-data: install-data-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am install: install-am uninstall-am: uninstall-binPROGRAMS uninstall: uninstall-am all-am: Makefile $(PROGRAMS) all-redirect: all-am install-strip: $(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install installdirs: $(mkinstalldirs) $(DESTDIR)$(bindir) mostlyclean-generic: clean-generic: distclean-generic: -rm -f Makefile $(CONFIG_CLEAN_FILES) -rm -f config.cache config.log stamp-h stamp-h[0-9]* maintainer-clean-generic: mostlyclean-am: mostlyclean-binPROGRAMS mostlyclean-compile \ mostlyclean-tags mostlyclean-depend mostlyclean-generic mostlyclean: mostlyclean-am clean-am: clean-binPROGRAMS clean-compile clean-tags clean-depend \ clean-generic mostlyclean-am clean: clean-am distclean-am: distclean-binPROGRAMS distclean-compile distclean-tags \ distclean-depend distclean-generic clean-am distclean: distclean-am maintainer-clean-am: maintainer-clean-binPROGRAMS \ maintainer-clean-compile maintainer-clean-tags \ maintainer-clean-depend maintainer-clean-generic \ distclean-am @echo "This command is intended for maintainers to use;" @echo "it deletes files that may require special tools to rebuild." maintainer-clean: maintainer-clean-am .PHONY: mostlyclean-binPROGRAMS distclean-binPROGRAMS clean-binPROGRAMS \ maintainer-clean-binPROGRAMS uninstall-binPROGRAMS install-binPROGRAMS \ mostlyclean-compile distclean-compile clean-compile \ maintainer-clean-compile tags mostlyclean-tags distclean-tags \ clean-tags maintainer-clean-tags distdir mostlyclean-depend \ distclean-depend clean-depend maintainer-clean-depend info-am info \ dvi-am dvi check check-am installcheck-am installcheck install-exec-am \ install-exec install-data-am install-data install-am install \ uninstall-am uninstall all-redirect all-am all installdirs \ mostlyclean-generic distclean-generic clean-generic \ maintainer-clean-generic clean mostlyclean distclean maintainer-clean # dependencies: feffit.o: const.h fefdat.h chars.h math.h inout.h fitint.o: fitcom.h const.h fefdat.h chars.h math.h varys.h fft.h\ data.h bkg.h inout.h fitinp.o: fitcom.h const.h fefdat.h chars.h math.h varys.h fft.h\ data.h bkg.h inout.h fitdat.o: const.h chars.h math.h varys.h fft.h data.h bkg.h inout.h fitchk.o: const.h chars.h math.h varys.h data.h cordby.o: const.h fefdat.h fitck2.o: const.h fefdat.h chars.h math.h varys.h data.h fitnls.o: fitcom.h const.h fefdat.h chars.h math.h varys.h fft.h\ data.h bkg.h inout.h fitfun.o: const.h fefdat.h math.h varys.h fft.h data.h bkg.h inout.h fitlog.o: fitcom.h const.h fefdat.h chars.h math.h varys.h fft.h\ data.h bkg.h inout.h fitprm.o: const.h fefdat.h chars.h math.h varys.h data.h bkg.h\ inout.h fitout.o: fitcom.h const.h fefdat.h chars.h math.h varys.h fft.h\ data.h bkg.h inout.h # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: ifeffit-1.2.11d/src/feffit/messag.f0000644000175000017500000000032110771740456016037 0ustar segresegre subroutine messag(messg) c c write message to standard ouput with (1x,a) format c character*(*) messg write(*,10) messg 10 format(1x,a) return c end subroutine messag end ifeffit-1.2.11d/src/feffit/setsys.f0000644000175000017500000000144010771740456016115 0ustar segresegre subroutine setsys(system,vaxflg,dosflg,macflg) c simple way of setting flags, describing the operating system used. c rather than setting all flags by hand, this uses a single string c and ensures that only one flag is on character*(*) system, sys*3 logical vaxflg,dosflg,macflg vaxflg = .false. dosflg = .false. macflg = .false. call triml(system) call smcase(system,'a') sys = system(:3) if ((sys.eq.'vax').or.(sys.eq.'vms')) then vaxflg = .true. system = sys elseif (sys.eq.'mac') then macflg = .true. system = sys elseif (sys.eq.'dos') then dosflg = .true. system = sys else system = 'unix' endif return end ifeffit-1.2.11d/src/feffit/finmsg.f0000644000175000017500000001675010771740456016060 0ustar segresegre subroutine finmsg(ikey, str1, str2, i1) c error messages from feffit integer ikey, i1, ilen character*(*) str1, str2,lblnk*12,messg*80,s1tmp*90,s2tmp*90 character*35 inperr, fterr, callme, warn, daterr,fferr,chkerr parameter (inperr = '>>error reading input file') parameter (chkerr = '>>error in math expressions') parameter (daterr = '>>error reading data file') parameter (fferr = '>>error reading feff file') parameter (fterr = '>>feffit error') parameter (warn = '>>feffit warning') parameter (callme = 'program error: contact matt') parameter (lblnk = ' ') s1tmp = ' ' s2tmp = ' ' if (str1.ne.' ') s1tmp = str1 ilen1 = min(65,max(1,istrln(s1tmp))) if (str2.ne.' ') s2tmp = str2 ilen2 = min(65,max(1,istrln(s2tmp))) 11 format(a,i4) 12 format(2a,i4) if (i1.lt.0) then call echo(lblnk//warn) else messg = fterr if ((ikey.ge.2000).and.(ikey.lt.3000)) messg = inperr if ((ikey.ge.3000).and.(ikey.lt.3200)) messg = daterr if ((ikey.ge.3200).and.(ikey.lt.3500)) messg = chkerr if ((ikey.ge.7000).and.(ikey.lt.8000)) messg = fferr call echo(lblnk//messg(1:65)) end if if (ikey.eq.0) then call echo(lblnk//'feffit died') elseif (ikey.eq.1001) then call echo(lblnk//'could not find file: '//s1tmp(:ilen1)) elseif (ikey.eq.1002) then call echo(lblnk//'error opening file: '//s1tmp(:ilen1)) elseif (ikey.eq.1003) then call echo(lblnk//'error reading file: '//s1tmp(:ilen1)) c from fitinp (all fatal) elseif (ikey.eq.2100) then write(messg,11) 'too many named values! current limit is',i1 ilen = istrln(messg) call echo(lblnk//messg(1:ilen)) elseif (ikey.eq.2105) then write(messg, 12) 'too many "local" ', $ 'user-defined values! current limit is ', i1 ilen = istrln(messg) call echo(lblnk//messg(1:ilen)) elseif (ikey.eq.2110) then call echo('this named value '// $ 'was assigned as both "local" and "global":') call echo(lblnk//s2tmp(1:ilen2)) elseif (ikey.eq.2120) then call echo(lblnk//'error encoding the math expression :') call echo(lblnk//' --> '//s2tmp(:ilen2)) elseif (ikey.eq.2130) then write(messg,12) 'too many variables! ', $ 'current limit is ', i1 ilen = istrln(messg) call echo( ' '//messg(1:ilen)) elseif (ikey.eq.2140) then write(messg,12) 'too many paths for a ', $ 'data file! current limit is ',i1 ilen = istrln(messg) call echo(lblnk//messg(1:ilen)) messg = 'for data file: '//s2tmp(:ilen2) ilen = istrln(messg) call echo(lblnk//messg(1:ilen)) elseif (ikey.eq.2150) then write(messg,11) 'too many paths used. current limit is',i1 ilen = istrln(messg) call echo(lblnk//messg(1:ilen)) elseif (ikey.eq.2170) then write(messg,12) 'too many feffnnnn.dat ', $ 'files used! current limit is ',i1 ilen = istrln(messg) call echo(lblnk//messg(1:ilen)) messg = 'file requested was '//s2tmp ilen = istrln(messg) call echo(lblnk//messg(1:ilen)) elseif(ikey.eq.2200) then call echo(lblnk//'a Path Index larger than '// $ '999 or less than 0 was found! ') elseif (ikey.eq.2220) then write(messg,11) 'too many data sets. current limit is',i1 ilen = istrln(messg) call echo(lblnk//messg(1:ilen)) elseif (ikey.eq.2300) then call echo(lblnk//'too many unknonwn keywords!') call echo(lblnk//'something wrong with the input file?') elseif (ikey.eq.2330) then messg = 'unknown keyword : "'//s2tmp(:ilen2)// $ '" at this line ' ilen = istrln(messg) call echo(lblnk//messg(1:ilen)) call echo(lblnk//'line: '//s1tmp(:ilen1)) call echo(lblnk//'the rest of this line will be ignored') c from fitdat elseif (ikey.eq.3010) then call echo(lblnk//'data appears to not be chi(k) data') call echo(lblnk//'check data file and consult manual') elseif (ikey.eq.3020) then call echo(lblnk//'too many variables while adding') call echo(lblnk//'adding background spline to fit') write(messg,11) 'current limit is',i1 ilen = istrln(messg) call echo(lblnk//messg(1:ilen)) elseif (ikey.eq.3040) then call echo(lblnk//'too many named values while adding') call echo(lblnk//'adding background spline to fit') write(messg,11) 'current limit is',i1 ilen = istrln(messg) call echo(lblnk//messg(1:ilen)) c from fitchk elseif (ikey.eq.3200) then call echo(lblnk//'inconsistent number of variables') call echo(lblnk//'some variable is probably both'// $ ' "guessed" and "set".') elseif (ikey.eq.3220) then call echo(lblnk//'this variable name was used but '// $ 'was not defined:' ) call echo(lblnk//' --> '//s1tmp(:ilen1)) elseif (ikey.eq.3240) then call echo(lblnk//'the following value was defined but is') call echo(lblnk//'not used in any math expressions:') call echo(lblnk//' --> '//s1tmp(:ilen1)) call echo(lblnk//'this may cause problems with the fit.') elseif (ikey.eq.3300) then call echo(lblnk//'bad initial value for an XAFS parameter!') call echo(lblnk//' for '//s1tmp(1:ilen1)) call echo(lblnk//' '//s2tmp(1:ilen2)) c from fitnls elseif (ikey.eq.3510) then call echo(lblnk//'more variables than measurements') call echo(lblnk//s1tmp(:ilen1)) elseif (ikey.eq.3530) then call echo(lblnk//'fit gave an impossible error message.') call echo(lblnk//callme) c from fitfun elseif (ikey.eq.3590) then call echo('routine fitfft failed internal test.') call echo(lblnk//callme) c from fefinp elseif (ikey.eq.7010) then call echo(lblnk//s1tmp(:ilen1)) call echo(lblnk//'bad data in feffnnnn.dat file') elseif (ikey.eq.7020) then write(messg,11) 'too many legs in path. current limit is',i1 ilen = istrln(messg) call echo(lblnk//messg(1:ilen)) call echo(lblnk//s1tmp(:ilen1)) elseif (ikey.eq.7050) then call echo(lblnk//'not enough room '// $ 'to read all the data from this feff file') write(messg,'(a,i3,a)') 'results above k = ', $ -i1, ' will not be reliable' ilen = istrln(messg) call echo(lblnk//messg(1:ilen)) elseif (ikey.eq.7510) then call echo(lblnk//s1tmp(:ilen1)) call echo(lblnk//'bad data in feff.bin file') c ?? else write(messg,11) 'unknown error ',ikey ilen = max(1, istrln(messg)) call echo(lblnk//messg(1:ilen)) endif c for fitinp messages, write out last line from feffit.inp if ((ikey.ge.2100).and.(ikey.le.3000).and.(i1.ge.0)) then call echo(lblnk//'last line read successfully:') call echo(lblnk//s1tmp(:ilen1)) endif if ((ikey.le.9999).and.(i1.ge.0)) $ call fstop('feffit error') return end ifeffit-1.2.11d/src/feffit/chars.h0000644000175000017500000000116010771740456015664 0ustar segresegrec{chars.h: -*-fortran-*- c character strings for feffit character*128 outfil(mdata), chifil(mdata), bkgfil(mdata) character*128 titles(mtitle, mdata), fefttl(mffttl, mfffil) character*128 feffil(mfffil), pthlab(mpaths), messg character*100 doc(maxdoc, mdata), inpfil, versn character*16 parnam(mpthpr), frminp, frmout, asccmt*2 character*10 skey(mdata), skeyb(mdata), vnames(maxval)*64 common /chars/ frminp, frmout, skey, doc, outfil, chifil, $ titles, pthlab, feffil, fefttl, vnames, versn, $ messg, parnam, bkgfil, skeyb, asccmt, inpfil c chars.h} ifeffit-1.2.11d/src/feffit/encod.f0000644000175000017500000006516310771740456015667 0ustar segresegre subroutine encod(string,vnames,nv,consts,nc,icode,ni,ierr) c c copyright 1993 university of washington matt newville c c this encodes the integer array 'icode' from an equation in the c character string 'string'. the companion function *decod* will c decode this integer array, returning the proper number. c decod is called by: c decod(icode, consts, values, defval) c the values of 'values' should correspond to the variables named c in 'vnames'. encod and decod are designed for many repeated c evaluations. the encoding is slow and slightly redundant and the c decoding is as efficient as possible. icode is a small number of c integers representing the rpn notation for the math expression, c with special integer values specifing all operations and values. c c the character string contains a fortran-like math expression. c variables can be used. their names will be held in the character c array 'vnames', and their numerical values will be held in the c real array 'values'. variables do not need to be explicitly c declared before encoding. if a variable is found that has not c already been identified, it will be added to the list. the link c between variable name and value, and the actual values used are c expected to be managed by the routine(s) calling encod and decod. c c input: c string character string containing fortran-like math expression c vnames character array containing variable names c nv dimension of array vnames (maximum = 8192) c consts real array of numerical constants in math expressions c nc dimension of array consts c ni dimension of icode consts (maximum = 512) c output: c string math expression as to be evaluated (with parens added) c vnames character array containing variable names c consts real array of numerical constants in math expressions c icode integer array containing code for the math expression c ierr error/warning code - routine will not stop ! c -2 a new variable was added to the list c -1 string empty c 0 no errors or warnings messages at all c 1 too many constants c 2 incorrect dimension of vnames c 3 improper/ambiguous arithmetic c 5 one-component math syntax error c 7 parentheses syntax error c ( unmatched or in improper place) c 9 too many objects in math expresion c---------------------------------------------------------------------- c the real array consts contains all the real numbers used as c constants. the first 10 values of consts are set aside for c "common" real values: 0, 1, 2, pi, etc. these ten constants c can be used for accessing internal parameters. the calling c routine can associate any values it likes with the first ten c numbers, and by rewriting some of this routine, names can be c associated with the values. 'pi', and 'reff' are handled in c this way. (though it's not expected that anyone will want to c overwrite the value of pi, the same is not true for reff). c c----------coding parameters for the math operations------------------ c icode value meaning c -299 to -100 special functions { add(x,y), debye(temp,theta) } c -99 to -50 two-element math operations (x+y, x**y) c -49 to -10 one-element math operations (1/x, sin(x), et c.) c -9 to -6 control operations (open and close parens, comma) c -5 or -1 not possible! (useful for overwriting/disabling) c 0 null string c 1 to jconst variables corresponding to vnames strings c jconst to xxx constants (numbers in corresponding to consts) c--------------------------------------------------------------------- c passed variables implicit none integer nv, ni, nc, ierr, icode(ni) character*(*) string, vnames(nv) double precision consts(nc), pi, one, zero integer maxlen, jconst, ileft, iright, icomma parameter(one = 1.d0, zero = 0.d0, pi = 3.141592653589793d0) parameter(maxlen = 1024, jconst = 8192) parameter(ileft = -6, iright = -7, icomma = -8 ) integer iexp, ilog, isqrt, isin, icos, itan, iabs integer iasin, iacos, iatan, isinh, icosh, itanh, icoth parameter(iexp = -10, ilog = -11, isqrt = -12, $ isin = -13, icos = -14, itan = -15, $ iasin = -16, iacos = -17, iatan = -18, $ iabs = -19, isinh = -23, icosh = -24, $ itanh = -25, icoth = -26 ) integer iadd, isub, imul, idiv, iy2x parameter(iadd = -50, isub = -51, imul = -52, $ idiv = -53, iy2x = -54 ) integer jadd, jsub, jmin, jmax, jdebye, jeins, jeins2 parameter(jadd =-111, jsub =-112, jmin =-85, $ jmax =-86, jdebye=-120, jeins =-121, jeins2=-122) c c internal variables character*2048 str, strnum, strtmp, errmsg, strout, opera*9 character*1 str1, straft, strbfr, stri3*3, stri4*4, stri5*5 character mtherr*22, synerr*34, encerr*33, number*12 logical found, strok integer itemp(maxlen), ntemp, ilen, istr, ieqn integer iparen, iexcla, iperct, ieolc, isave, maxeol integer ibfr, iaft, ibefr, iaftr, ivarln, istrln integer j, jt, jstack, jcomma, ii, it, i, nbrstr double precision xreal parameter (number = '1234567890 .' , opera = '+-*/^(), ') parameter (mtherr =' math encoding error: ') parameter (synerr =' math encoding error: syntax error') parameter (encerr =' math encoding error: encod error') external istrln, nbrstr c----------------------------------------------------------------------- c initial error checking of input dimensions if (nv.gt.jconst) then call echo(mtherr//'incorrect dimension!') write (errmsg,'(4x,a,i4,a)') ' more than', jconst, $ ' variables are requested ' ii = max(1, istrln(errmsg)) call echo(' '// errmsg(1:ii)) ierr = 2 return end if c initialization ierr = 0 strtmp = ' ' str = ' ' str1 = ' ' strnum = ' ' straft = ' ' strbfr = ' ' found = .false. c remove interior blanks from string strtmp = string ilen = istrln(strtmp) call triml(strtmp) call unblnk(strtmp) ilen = istrln(strtmp) cc print*, 'UBER #2: ', ilen, ':: ', strtmp(1:ilen) maxeol = len(strtmp) c remove end-of-line comments: '!','%' signify end of line comments iexcla = index(strtmp,'!') if (iexcla.eq.0) iexcla = maxeol iperct = index(strtmp,'%') if (iperct.eq.0) iperct = maxeol ieolc = min(iperct,iexcla) if (ieolc.eq.1) strtmp = ' ' if ( (ieolc.ge.2).and.(ieolc.le.maxeol)) then str = strtmp(:ieolc-1) str(ieolc:) = ' ' strtmp = str end if ilen = istrln(strtmp) cc print*, 'ENCOD HERE: ', ilen, ':: ', strtmp(1:ilen) c c if string is blank, return if ( (strtmp.eq.' ').or.(ilen.le.0).or.(ieolc.eq.1)) then icode(1) = 0 ierr = -1 return end if c c convert string to the case of this routine : c the variable 'case' controls the case of the routine, so it c must be the same case as the strings tested for in strtmp. call smcase(strtmp, 'c') do 40 i = 1, nv call smcase(vnames(i), 'c') 40 continue c c initialized integer arrys to 0 do 50 i = 1, ni icode(i) = 0 50 continue do 60 i=1,maxlen itemp(i) = 0 60 continue c c set the first values in consts: c be careful when changing consts(1) from zero, because the rest c of the first ten constants are set to zero also, even though a c calling routine may want to overwrite some of them !!! consts(1) = zero consts(2) = one consts(3) = pi consts(4) = zero consts(5) = zero consts(6) = zero consts(7) = zero consts(8) = zero consts(9) = zero c initialization done. c------------------------------------------------------------------- c now start dealing with strtmp as a math expression c fix multiple "unitary" operations: ++, -- -> +; -+, +- -> - do 120 i = 1, ilen-1 str = strtmp(i:i+1) if ((str.eq.'--').or.(str.eq.'++')) strtmp(i:i+1) = ' +' if ((str.eq.'-+').or.(str.eq.'+-')) strtmp(i:i+1) = ' -' 120 continue call unblnk(strtmp) c----------------------------------------------------------------------- c insert parens to ensure normal math precedence. c note that this is not entirely necessary, but it is convenient c to rewrite the string in the way it is intended to be evaluated. string = strtmp call parens(string) call triml(string) ilen = max(1, istrln(string)) string(ilen+1:) = ' ' strout = string strtmp = ' ' c----------------------------------------------------------------------- c with the string well behaved (parens inserted so there are no c ambiguities in the math), let's dechiper it and encode icode c c decipher string into integers isave = 0 istr = 0 ieqn = 0 iparen = 0 c advance string postion, check for end of string 300 continue ieqn = ieqn + 1 320 continue istr = istr + 1 ibfr = istr - 1 iaft = istr + 1 if (ibfr.lt.1) ibfr = 1 if (istr.gt.ilen) go to 4000 str1 = string(istr:istr) stri3 = string(istr:istr+2) stri4 = string(istr:istr+3) stri5 = string(istr:istr+4) strbfr = string(ibfr:ibfr) straft = string(iaft:iaft) c ignore blank spaces if (str1.eq.' ') go to 320 c-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- c parse string c # constant real number : find length of real number, read it, c store it, and advance string to end of number if (index(number,str1).ne.0) then isave = istr + nbrstr(string(istr:ilen)) strnum = string(istr:isave) call str2dp(string(istr:isave), xreal, ierr) if (ierr.ne.0) then call echo(mtherr//'cannot read number from string') errmsg = ' >> '//string(istr:isave)//' << ' call echo(errmsg(1:(isave - istr + 10))) ierr = 3 return endif c check if constant is already stored. don't start adding more c until consts(10), to preserve the stored internal constants do 450 i = 1, nc if (xreal.eq.consts(i)) then itemp(ieqn) = jconst + i go to 500 elseif ((consts(i).eq.0).and.(i.ge.10)) then itemp(ieqn) = jconst + i consts(i) = xreal go to 500 end if 450 continue 500 continue c error : too many constants! if (i.ge.nc) then call echo(encerr) call echo( ' too many real numbers entered.') write (errmsg,'(14x,2a,i4,a)') 'the current', $ ' limit is ', nc,' unique numbers.' call echo( errmsg ) ierr = 1 return end if istr = isave c internally stored constants c c 'pi' followed by an operation (or a blank or paren) c means use the constant stored in address #(jconst + 3). elseif ( (string(istr:istr+1).eq.'pi').and. $ (index(opera,string(istr+2:istr+2)).ne.0) ) then itemp(ieqn) = jconst + 3 istr = istr + 1 c c 'reff' followed by an operation (or a blank or paren) c means use the constant stored in address #(jconst + 4). c (this is useful for feffit) elseif ( (stri4.eq.'reff').and. $ (index(opera,string(istr+4:istr+4)).ne.0) ) then itemp(ieqn) = jconst + 4 istr = istr + 3 c c 'ndegen' followed by an operation (or a blank or paren) c means use the constant stored in address #(jconst + 5). c (this is useful for feffit) elseif ( (string(istr:istr+5).eq.'ndegen').and. $ (index(opera,string(istr+6:istr+6)).ne.0) ) then itemp(ieqn) = jconst + 5 istr = istr + 5 c c '_k_' followed by an operation (or a blank or paren) c means use the constant stored in adress #(jconst + 6). c (this is useful for feffit) c elseif ( (stri3.eq.'_k_').and. c $ (index(opera,string(istr+3:istr+3)).ne.0) ) then c itemp(ieqn) = jconst + 6 c istr = istr + 2 c c # end constants c # math operations c parens and comma elseif (str1.eq.'(') then itemp(ieqn) = ileft iparen = iparen + 1 elseif (str1.eq.')') then itemp(ieqn) = iright iparen = iparen - 1 elseif (str1.eq.',') then itemp(ieqn) = icomma c two component math elseif ((str1.eq.'+').or.(str1.eq.'-')) then if ( (straft.eq.')')) then call echo(synerr) call echo( ' '//strout(1:ilen)) call echo(' "+)" and "-)" are not correct syntax.') ierr = 3 return else if (str1.eq.'+') itemp(ieqn) = iadd if (str1.eq.'-') itemp(ieqn) = isub end if elseif ((str1.eq.'/').or.(str1.eq.'*')) then ibefr = index('(+-/*^,',strbfr) iaftr = index(')*/^,',straft) if ( (istr.eq.1).or.(istr.eq.ilen).or.(iaftr.ne.0) $ .or.(ibefr.ne.0)) then call echo(synerr) call echo( ' '//strout(1:ilen)) if (ibefr.ne.0) then errmsg = ' "/" or "*" preceded by one of "+-/*^,("' elseif (iaftr.ne.0) then errmsg = ' "/" or "*" followed by one of "/*^,)"' elseif (istr.eq.1) then errmsg = ' "/" or "*" occurs first' elseif (istr.eq.ilen) then errmsg = ' "/" or "*" occurs last' end if ii = max(1, istrln(errmsg)) call echo(' '//errmsg(1:ii)) ierr = 3 return else if (str1.eq.'*') itemp(ieqn) = imul if (str1.eq.'/') itemp(ieqn) = idiv end if elseif (str1.eq.'^') then ibefr = index('(+-/*^,',strbfr) iaftr = index(')*/^,',straft) if ( (istr.eq.1).or.(istr.eq.ilen).or.(iaftr.ne.0) $ .or.(ibefr.ne.0)) then call echo(synerr) call echo( ' '//strout(1:ilen)) if (ibefr.ne.0) then errmsg = ' "^" preceded by one of "+-/*^,("' elseif (iaftr.ne.0) then errmsg = ' "^" followed by one of "/*^,)"' elseif (istr.eq.1) then errmsg = ' "^" occurs first' elseif (istr.eq.ilen) then errmsg = ' "^" occurs last' end if ii = max(1, istrln(errmsg)) call echo(' '//errmsg(1:ii)) ierr = 3 return else itemp(ieqn) = iy2x end if c c special math functions: elseif ((stri4.eq.'add(').or.(stri4.eq.'sub(').or. $ (stri4.eq.'min(').or.(stri4.eq.'max(')) then if (stri4.eq.'add(') itemp(ieqn) = jadd if (stri4.eq.'sub(') itemp(ieqn) = jsub if (stri4.eq.'min(') itemp(ieqn) = jmin if (stri4.eq.'max(') itemp(ieqn) = jmax istr = istr + 2 elseif (string(istr:istr+5).eq.'debye(') then itemp(ieqn) = jdebye istr = istr + 4 elseif (string(istr:istr+5).eq.'eins2(') then itemp(ieqn) = jeins2 istr = istr + 4 c c one component math : c the operator must be followed by '(', or the expression will c be a variable name: ln2 is a variable ! elseif (stri3.eq.'ln(') then itemp(ieqn) = ilog istr = istr + 1 elseif ((stri4.eq.'log(').or.(stri4.eq.'exp(').or. $ (stri4.eq.'abs(').or.(stri4.eq.'sin(').or. $ (stri4.eq.'cos(').or.(stri4.eq.'tan(')) then if (stri4.eq.'log(') itemp(ieqn) = ilog if (stri4.eq.'exp(') itemp(ieqn) = iexp if (stri4.eq.'abs(') itemp(ieqn) = iabs if (stri4.eq.'sin(') itemp(ieqn) = isin if (stri4.eq.'cos(') itemp(ieqn) = icos if (stri4.eq.'tan(') itemp(ieqn) = itan istr = istr + 2 elseif ((stri5.eq.'sqrt(').or.(stri5.eq.'asin(').or. $ (stri5.eq.'acos(').or.(stri5.eq.'atan(').or. $ (stri5.eq.'sinh(').or.(stri5.eq.'cosh(').or. $ (stri5.eq.'tanh(').or.(stri5.eq.'coth(').or. $ (stri5.eq.'eins(') ) then if (stri5.eq.'sqrt(') itemp(ieqn) = isqrt if (stri5.eq.'asin(') itemp(ieqn) = iasin if (stri5.eq.'acos(') itemp(ieqn) = iacos if (stri5.eq.'atan(') itemp(ieqn) = iatan if (stri5.eq.'sinh(') itemp(ieqn) = isinh if (stri5.eq.'cosh(') itemp(ieqn) = icosh if (stri5.eq.'coth(') itemp(ieqn) = icoth if (stri5.eq.'tanh(') itemp(ieqn) = itanh if (stri5.eq.'eins(') itemp(ieqn) = jeins istr = istr + 3 c# end math operations c# variables c end with blank or math symbol from character string opera else do 750 i = istr, len(string) str1 = string(i:i) if (index(opera,str1).ne.0) go to 760 750 continue 760 continue c find which variable it is: ivarln = i - 1 found = .false. if (ivarln.le.istr) ivarln = istr do 800 i = 1, nv if ( string(istr:ivarln).eq.vnames(i)) then found = .true. itemp(ieqn) = i istr = ivarln go to 810 end if 800 continue 810 continue c if it isn't already in vnames, put it in first available slot if (.not.found) then do 830 i = 1, nv if ( vnames(i).eq.' ' ) then vnames(i) = string(istr:ivarln) itemp(ieqn) = i found = .true. istr = ivarln go to 840 end if 830 continue 840 continue end if c if found is still false, then vnames is full. c this is then a good time to hurl a warning message. if (.not.found) then call echo(encerr) call echo( ' too many variables declared.') write (errmsg,'(14x,2a,i4,a)') 'the current', $ ' limit is ', nv,' unique variables.' call echo( errmsg ) ierr = 2 return end if c c # end parsing and encoding, go back to line 300 for more end if go to 300 c-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- c some more error checking of string c-- check that the number of parentheses is correct 4000 continue cc print*, '4000: encod ', str(1:40) cc print*, ' code: ' cc do i = 1, maxlen, 3 cc if (itemp(i).ne.0) print*,itemp(i),itemp(i+1),itemp(i+2) cc end do if (iparen.ne.0) then call echo(synerr) call echo( ' '//strout(1:ilen)) call echo( ' parentheses are not matched ') ierr = 7 return end if c-- c-- check that one component math functions are followed by "(" c-- and that parentheses are not left hanging iparen = 0 do 4400 i = 1, ieqn + 2 if (i.eq.1) then ibfr = ileft else ibfr = itemp(i-1) end if iaft = itemp(i+1) it = itemp(i) if (it.eq.ileft) iparen = iparen + 1 if (it.eq.iright) iparen = iparen - 1 c-- check that iparen is never negative (that is left parens c before right parens) if (iparen.lt.0) then call echo(synerr) call echo( ' '//strout(1:ilen)) call echo( ' parentheses not used properly') ierr = 7 return end if if ( ( (it.eq.ileft).and. $ ( (iaft.eq.iright).or.(ibfr.gt.0) ) ) $ .or.( (it.eq.iright).and. $ ( (iaft.eq.ileft) .or.(iaft.gt.0) ) ) ) then call echo(synerr) call echo( ' '//strout(1:ilen)) call echo( ' parentheses not used properly') ierr = 7 return end if c-- check that "(," and ",)" are not in string if ( (it.eq.icomma).and.((iaft.eq.iright).or. $ (ibfr.eq.ileft).or.(ibfr.eq.icomma))) then call echo(synerr) call echo( ' '//strout(1:ilen)) call echo(' ",,", "(," and ",)" are not allowed') ierr = 3 return end if c-- check that one-component math operators are followed by "(" if ( (it.le.-10).and.(it.ge.-49)) then if (iaft.ne.ileft) then call echo(synerr) call echo( ' '//strout(1:ilen)) call echo(' unary math functions must be '// $ 'followed by "("') ierr = 5 return end if if ( (i.gt.1).and.(ibfr.ge.-49).and.(ibfr.le.-1) $ .and.(ibfr.ne.ileft).and.(ibfr.ne.icomma)) then call echo(synerr) call echo( ' '//strout(1:ilen)) call echo(' a number is preceded by a '// $ 'unary math function without using "(" ') ierr = 5 return end if end if c-- look for a real number preceded or followed by a c either a real number or a variable if ( ((it.ge.300).and.(it.le.600)).and. $ ((iaft.ge.1).or.(ibfr.ge.1))) then call echo(synerr) call echo( ' '//strout(1:ilen)) if (iaft.ge.0) then call echo(' a real number is followed by '// $ 'a real number, variable or fixed value') else call echo(' a real number is preceded by '// $ 'a real number, variable or fixed value') end if ierr = 3 end if if ((it.ge.1).and.(iaft.ge.-49).and.(iaft.le.-10)) then call echo(synerr) call echo( ' '//strout(1:ilen)) call echo(' a number is followed by a'// $ ' unary math function') ierr = 5 return end if c c the special functions debye(,) and eins(,), etc, require c a certain number of commas (usually 1) if (it.le.-100) then jstack = 1 jcomma = 0 cc print*, ' comma hunt ', i, ieqn, icomma do 4200 j = i+2, ieqn jt = itemp(j) if (jt.eq.ileft ) jstack = jstack + 1 if (jt.eq.iright) jstack = jstack - 1 if ((jstack.eq.1).and.(jt.eq.icomma)) $ jcomma = jcomma + 1 strok = .true. cc print*, 'STACK: ' , j, jt, jstack if (jstack.eq.0) then strok = .false. if ((it.eq.jdebye).and.(jcomma.ne.1)) then errmsg = ' the function "debye" '// $ 'requires 2 arguments and 1 comma' strtmp = ' the proper syntax is: '// $ ' "debye(temp, theta)" ' elseif ((it.eq.jeins).and.(jcomma.ne.1)) then errmsg = ' the function "eins" '// $ 'requires 2 arguments and 1 comma' strtmp = ' the proper syntax is: '// $ ' "eins(temp, theta)" ' elseif ((it.eq.jeins2).and.(jcomma.ne.2)) then errmsg = ' the function "eins2" '// $ 'requires 3 arguments and 2 comma' strtmp = ' the proper syntax is: '// $ ' "eins2(temp, theta, mass)" ' elseif ((it.eq.jmin).and.(jcomma.ne.1)) then errmsg = ' the function "min" '// $ 'requires 2 arguments and 1 comma' strtmp = ' the proper syntax is: '// $ ' "min(x,y)" ' elseif ((it.eq.jmax).and.(jcomma.ne.1)) then errmsg = ' the function "max" '// $ 'requires 2 arguments and 1 comma' strtmp = ' the proper syntax is: "max(x,y)" ' else strok = .true. endif if (.not.strok) then call echo(synerr) call echo( ' '//strout(1:ilen)) ii = max(1, istrln(errmsg)) call echo(' '// errmsg(1:ii)) ii = max(1, istrln(strtmp)) call echo(' '// strtmp(1:ii)) ierr = 5 return end if endif 4200 continue end if 4400 continue c---------------------------------------------------------------------- c rewrite itemp to reverse polish notation c (this allows easier decoding: see h-p calculator manuals on rpn.) c then load up icode, and we're all done. j = 0 c ntemp = min (ni, maxlen) c print*, 'ENCOD 1: ntemp = ', ntemp c call rpndmp(itemp,ntemp) call engrpn(itemp) c do i = 1, maxlen c if (itemp(i).ne.0) then c j = j+1 c print*, i, j, itemp(i) c end if c end do ntemp = min (ni, maxlen) cc call rpndmp(itemp,ntemp) if (itemp(ntemp).ne.0) then call echo(mtherr//'too many objects!') call echo( ' '//strout(1:ilen)) write (errmsg,'(4x,a,i4,a)') 'there are more than', ntemp, $ ' objects in the math expression for the string: ' ii = max(1, istrln(errmsg)) call echo(' '// errmsg(1:ii)) call echo(' where objects = operations or numbers') call echo(' please break up expression, or contact matt') ierr = 9 end if do 5000 i = 1, ntemp icode(i) = itemp(i) 5000 continue return c c end subroutine encod end ifeffit-1.2.11d/src/feffit/const.h0000644000175000017500000000337410771740456015723 0ustar segresegrec{const.h: constants & parameters for feffit -*-fortran-*- integer maxpts, mpaths, mdpths, mftfit integer mvarys, maxval, mconst, micode, mpthpr, mffttl integer maxdoc, mtitle, mdata, mlocal c mdata, mvarys greatly affect program size and could be c reduced for smaller machines. (mdata = 5, mvarys = 20) parameter(mdata = 16) ! number of data sets parameter(mvarys = 128) ! number of variables parameter(mdpths = 512) ! number of paths per data set parameter(mpaths = 1024) ! number of total paths in all paths c note: (mpaths < mdata * mdpths) _is_ allowed parameter(maxpts = 2048) parameter(mconst = 2048) parameter(maxval = 2048) parameter(mftfit = 2048) c for feff.dat files integer mffpts, mfffil, maxleg parameter(mffpts = 128, mfffil = 256, maxleg = 7) c parameters are less important for program size parameter(maxdoc = 20, mtitle = 10, mffttl = 10) parameter(mlocal = 16, micode = 64, mpthpr = 10) c real parameters: double precision etok, zero, one, qgrid, pi, rgrid parameter(zero=0.d0,one=1.d0, qgrid =0.05d0) parameter(etok =0.2624682917d0, pi = 3.141592653589793d0) parameter(rgrid = 20 * pi /mftfit) c special indices for path parameters: c jpnull = no path param; jppath , jplabl for "path" & "label" c rest are the numerical path params, ranging from 1 to mpthpr integer jpnull, jppath, jplabl, jps02, jpe0, jpei, jpdpha integer jpdelr, jpsig2, jp3rd, jp4th parameter(jpnull =-10, jppath = -2, jplabl =-1) parameter(jps02 = 1, jpe0 = 2, jpei = 3, jpdpha = 4) parameter(jpdelr = 5, jpsig2 = 6, jp3rd = 7, jp4th = 8) c const.h} ifeffit-1.2.11d/src/feffit/setval.f0000644000175000017500000000122010771740456016055 0ustar segresegre subroutine setval(n1, n2, icdval, mvals, micode, consts, $ mconst, vals, icloc, mloc, md, ixlocl, id) c simple loop through resetting values using eval. implicit none integer mconst, mvals, micode, mloc, md integer ixlocl, i, id, n1, n2 double precision consts(mconst), vals(mvals), old, eval integer icdval(micode, mvals), icloc(micode,mloc,md) external eval do 10 i = n1, n2 old = vals(i) vals(i) = eval(icdval, mvals, micode, consts, $ mconst, vals, old, icloc, $ mloc, md, ixlocl, id, i ) 10 continue return end ifeffit-1.2.11d/src/feffit/misc.f0000644000175000017500000000452510771740456015525 0ustar segresegre logical function iscomm(str) c true if str is a comment line or blank line, false otherwise character*(*) str iscomm = ((str.eq.' ') .or. (index('*%#',str(1:1)).ne.0)) return end subroutine sort2i(n, ira1, ira2) c c sort an array ira1 of length n into ascending order, c while making the corresponding rearrangement to rb. c the sorting is done by the heapsort algorithm c integer ira1(n), ira2(n) l = n / 2 + 1 ir = n c c index l will be decremented from its initial value down to 1 c during the hiring phase (heap creation). Once l reaches 1, the c index ir will be decremented from its initial value to to 1 c during the retirement-and-promotion (heap selection) phase. c 10 continue c heap creation phase if (l.gt.1) then l = l - 1 ia1 = ira1(l) ia2 = ira2(l) c heap selection phase else ia1 = ira1(ir) ia2 = ira2(ir) ira1(ir) = ira1(1) ira2(ir) = ira2(1) ir = ir - 1 if (ir.eq.1) then ira1(1) = ia1 ira2(1) = ia2 go to 50 end if end if c set up to sift down ia1. i = l j = l + l c do while j.le.ir 20 continue if (j.le.ir) then c better low element if (j.lt.ir) then if ( ira1(j).lt.ira1(j+1) )j = j + 1 end if c demote ia1 if (ia1.lt.ira1(j)) then ira1(i) = ira1(j) ira2(i) = ira2(j) i = j j = j + j c terminate the sift-down else j = ir + 1 end if go to 20 end if c put ia1, ia2 into slots ira1(i) = ia1 ira2(i) = ia2 go to 10 c return 50 continue return c end subroutine sort2i end ifeffit-1.2.11d/src/feffit/txpath.f0000644000175000017500000000073610771740456016102 0ustar segresegre subroutine txpath include 'fitcom.h' integer nstart, id, ipath, i, il, inpath, jfeff, juser id = 1 c print*, ' tx 1' do ipath = 1, 4 inpath = jdtpth(ipath,id) c print*, ' path ', inpath, ipath, id if (inpath.gt.0) then jfeff = jpthff(inpath) c print*, ' JFEFF = ', jfeff, inpath, ipath, c $ refpth(jfeff) endif enddo return end ifeffit-1.2.11d/src/feffit/fitfun.f0000644000175000017500000002255111061570065016052 0ustar segresegre subroutine fitfun(mvec, nvar, xvar, fvec, iend) c c evaluate function to minimize in the least squares sense by lmdif. c the function fvec is the difference between chi(r) for data and c modelled theory on the fit range [rmin, rmax]. the variables c modify the theory chi(k), evaluated as a sum over paths, using c routine chipth for the chi(k) for each path. c c copyright 1993 university of washington matthew newville c c arguments: c mvec number of evaluations of fvec ( = 2*nrpts ) (in) c nvar number of variables xvar ( = numvar ) (in) c xvar array of variables (in) c fvec function of the variables to minimize (out) c iend integer stopping flag (not currently used) (in) c c note: since this routine (and the routines it calls) is called c so often by lmdif (and fdjac2) efficiency and speed are c important. (usually clarity is more important than speed.). c so this routine is a bit terse. c---------------------------------------------------------------------- include 'fitcom.h' c local variables c warning: do not dimension the array xvar as "xvar(nvar)" ! c this routine may be called with nvar = 0, c and an array dimension 0 is not allowed. integer lenfvc, mvec, nvar, iend, id, i integer nstart, jfit, nfit, nfit1, ixmode integer j0, nqdata, ibscf, jdd, inpath, idpath, jfeff parameter(lenfvc = mdata * maxpts) double precision reff, degen, xolow, xohigh double precision tchiqi(maxpts), tchiqr(maxpts) double precision thifit(maxpts) double precision xvar(mvarys), fvec(lenfvc), par(mpthpr) double precision rfact, bvalue, decod external rfact, bvalue, decod j0 = 0 c---------------------------------------------------------------------- cc print*, ' fitfun :: final = ', final c use the values of the variables to evaluate all the "values" c for both the variables and the user-defined functions c note: values(i) is a variable if icdval(1,i) < 0 c values(i) is a user function if icdval(1,i) > 0 c values(i) is unused if icdval(1,i) = 0 id = 1 do 20 i = 1, nvar values(i) = xvar(i) 20 continue cc print*, ' vars: ', xvar(1), xvar(2), xvar(3), nvar c don't need to evaluate the obvious constants, so we can start the c looping here at nconst+nvar (see fitchk and fixicd) nstart = nconst + nvar + 1 call setval(nstart,nmathx,icdval,maxval,micode, $ consts,mconst,values,icdloc,mlocal,mdata,ixlocl,id) c c sum function to minimize over data sets c jfit is the counter (through all the data sets) c for the total number of fitting points jfit = 0 do 3000 id = 1, ndata nqdata = min(maxpts, max(2, nqfit(id)) + 10) if (ifft(id).eq.1) then xolow = rmin(id) xohigh = rmax(id) nfit = 2 * max (1, nrpts(id)) elseif (ifft(id).eq.2) then xolow = qmin(id) xohigh = qmax(id) nfit = 2 * max (1, nqpts(id)) else xolow = qmin(id) xohigh = qmax(id) nfit = 2 * max (1, nqpts(id)) endif do 200 i = 1, nfit thifit(i) = zero 200 continue c re-initialize array for theoretical chi(k) c by assigning this to the background function cc print*, 'FITFUN B ', id, xolow, xohigh, nfit do 300 i = 1, nqdata thiq(i, id) = zero tchiqi(i) = zero tchiqr(i) = zero if (final) thiqr(i, id) = zero if ( bkgfit(id)) then c ibscf holds place in xvar list of where the c spline coefs for the current data set are kept. ibscf = nvuser+1 if (id.gt.1) then do 290 jdd = 2, id ibscf = ibscf + nbkg(jdd-1) 290 continue endif thiq(i, id) = thiq(i, id) + $ bvalue(qknot(1,id), xvar(ibscf), $ nbkg(id),korder,qgrid*(i-1),j0) end if 300 continue c c sum over paths for theory chi for this data set do 1000 idpath = 1, mdpths inpath = jdtpth(idpath,id) if (inpath.le.0) go to 990 jfeff = jpthff(inpath) reff = refpth(jfeff) degen = degpth(jfeff) ixpath = jfeff consts(4) = reff consts(5) = degen cc print*, ' FITFUN: path ', idpath, jfeff, reff, degen c evaluate the non-variable values call setval(nstart,nmathx,icdval,maxval,micode, $ consts,mconst,values,icdloc,mlocal,mdata,ixlocl,id) c evaluate the path parameters from "values" do 500 i = 1, mpthpr par(i) = decod(icdpar(1, i, inpath), micode, $ consts, values, defalt(i)) 500 continue c get chi(k) for this path from feff and path parameters if ( (inpath.gt.0).and.(jfeff.gt.0)) then if (iprint.ge.3) then write(ifxvar,*) 'calling chipth:' write(ifxvar,*) 'nfit, jfeff = ',nfit, jfeff write(ifxvar,*) 'nqdata, maxpts = ',nqdata, maxpts write(ifxvar,*) 'reff, mffpts = ', reff, mffpts write(ifxvar,*) ' theamp(28,jfeff),thepha(28,jfeff)' write(ifxvar,*) theamp(28,jfeff), thepha(28,jfeff) write(ifxvar,*) ' qfeff(28,jfeff) =',qfeff(28,jfeff) write(ifxvar,*) ' xlamb(28,jfeff), realp(28,jfeff)' write(ifxvar,*) xlamb(28,jfeff), realp(28,jfeff) write(ifxvar,*) ' reff, degen = ', reff, degen end if cc print*, ' id e0 ', id, par(jpe0) call chipth(theamp(1,jfeff), thepha(1,jfeff), $ qfeff(1,jfeff), xlamb(1,jfeff), realp(1,jfeff), mffpts, $ reff, degen, par(jps02), par(jpe0), par(jpei), par(jpdpha), $ par(jpdelr), par(jpsig2), par(jp3rd), par(jp4th), tranq, $ rm2flg, nqdata, maxpts, tchiqr, tchiqi) if (iprint.ge.3) then write(ifxvar,*) 'called chipth: jfeff, id = ', $ jfeff,id write(ifxvar,*) ' degen, s02, e0, ei = ',degen, $ par(jps02),par(jpe0),par(jpei) write(ifxvar,*) ' dphas,delr, sig2 = ', $ par(jpdpha),par(jpdelr),par(jpsig2) write(ifxvar,*) 'nqdata, maxpts = ',nqdata, maxpts write(ifxvar,*) 'tchiqr(1),tchiqi(1)' write(ifxvar,*) tchiqr(1),tchiqi(1) write(ifxvar,*) 'tchiqr(8),tchiqi(8)' write(ifxvar,*) tchiqr(8),tchiqi(8) end if c c add this to the other paths do 850 i = 1, nqdata thiq(i, id) = thiq(i, id) + tchiqi(i) if (final) thiqr(i, id) = thiqr(i, id) + tchiqr(i) 850 continue end if 990 continue 1000 continue c take fft of theory chi (exactly as for data chi) if (iprint.ge.2) then write(ifxvar,*) ' call fitfft: id = ', id write(ifxvar,*) ' xolow , xohigh ', xolow , xohigh write(ifxvar,*) ' maxpts, mftfit ', maxpts, mftfit write(ifxvar,*) ' qgrid = ', qgrid endif ixmode = 0 call fitfft(thiq(1,id), maxpts, mftfit, wfftc, qgrid, $ qwindo(1,id), qweigh(id), rwindo(1,id), rweigh(id), $ ifft(id), ixmode, xolow,xohigh, nfit1, thifit) c if (nfit1.ne.nfit) then if (iprint.ge.1) then write(ifxvar,*) '*********************' write(ifxvar,*) 'fitfun error after fitfft: id = ',id write(ifxvar,*) 'nfit, nfit1 = ', nfit, nfit1 write(ifxvar,*) 'these should be equal !!' write(ifxvar,*) '*********************' end if cc print*, 'nfit, nfit1 = ', nfit, nfit1 call finmsg(3590,' ',' ',nfit1) endif c evaluate the contribution to fvec for this data set. weight scales c chi-square properly to the number of independent points. this is c important for error analysis (if chi-square is to increase by one, c it must be scaled correctly.), but only in the final pass, when c chi-square and r-factors will be calculated. if (final.and.iprint.ge.2) then write(ifxvar,*) ' in fitfun (final): id = ', id write(ifxvar,*) ' xolow , xohigh ', xolow , xohigh write(ifxvar,*) ' maxpts, mftfit ', maxpts, mftfit write(ifxvar,*) ' nfit, nfit1,jfit = ', nfit, nfit1,jfit write(ifxvar,*) ' rfactr(id) = ', rfactr(id) if (iprint.ge.5) $ write(ifxvar,*) ' i, chifit,thifit,fvec: ' end if do 2400 i = 1, nfit fvec(jfit+i) = (thifit(i) - chifit(i,id))/weight(id) if (final.and.iprint.ge.5) write(ifxvar,*) jfit+i, $ chifit(i,id), thifit(i), fvec(jfit+i) 2400 continue jfit = nfit + jfit if (final.and.datain(id)) $ rfactr(id) = rfact(chifit(1,id), thifit, nfit) 3000 continue return c end subroutine fitfun end ifeffit-1.2.11d/src/feffit/filrec.f0000644000175000017500000000226410771740456016034 0ustar segresegre subroutine filrec(string,filnam,skey,nkey) c c takes a character string and reads from it a filename, and an c skey and/or nkey for a record. blanks, commas, or equal signs can c separate the inputs on the command line. c character*128 temp, words(3) character*(*) string , filnam , skey c nkey = 0 skey = ' ' nwords = 3 call bwords(string,nwords,words) c---- first word is filename filnam = words(1) nwords = nwords - 1 c---- second word is nkey or skey temp = words(2) c---- determine if second//third word is nkey/skey c skeys are exactly 5 characters long, c nkeys are never more than 3 characters long 50 continue nwords = nwords - 1 call triml(temp) ilen = istrln(temp) if(ilen.eq.5) then skey = temp call upper(skey) elseif(ilen.eq.4) then call fstop('error reading skey or nkey from '//temp) else call str2in(temp, nkey, ierr) end if c---- the third word, if it exists if (nwords.eq.1) then temp = words(3) call triml(temp) go to 50 end if 1000 return c end subroutine filrec end ifeffit-1.2.11d/src/lib/0000755000175000017500000000000011117272040013700 5ustar segresegreifeffit-1.2.11d/src/lib/isamac.f0000644000175000017500000000343510771740457015332 0ustar segresegre logical function isamac(str,jmac) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c determine if string can be a current macro name implicit none include 'consts.h' include 'keywrd.h' save integer i, jmac character*(*) str, s*32 jmac = 0 isamac = .false. s = str call triml(s) call lower(s) do 10 i =1, macmax if (s.eq.macnam(i)) then isamac = .true. jmac = i end if 10 continue return end ifeffit-1.2.11d/src/lib/fefinp.f0000644000175000017500000002415110771740457015342 0ustar segresegre subroutine fefinp c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c read path information from feff files: c reads either feffnnnn.dat files (feff5 or higher) or the c ascii feff.bin files from feff8 c c copyright 1998 matt newville implicit none include 'consts.h' include 'fefdat.h' cc implicit double precision (a-h,o-z) integer mlegx, mptsx, mwords, nwords, j, iunit, l0 integer itmp, nleg, nepts, iex, ierr, ndoc, npot, npts integer mpts, mfil, mtitle, mleg, npack integer mdocx, ipth, ilen, i, ntitle, istrln double precision rf2b, archi, aichi, arck, aick, rnrmav, xlmin logical exist parameter (xlmin = 1.d-8) parameter(mlegx = 10, mptsx= 128, mwords = 32, mdocx=16) character*64 filnam*256, stat*10, str*128, words(mwords) character*128 doc(mdocx), messg, tmpstr*256 character*2 at_symbol integer izpot(0:mlegx) complex*16 phc(mptsx), ck(mptsx) double precision xk(mptsx), achi(mptsx), phchi(mptsx) double precision beta(mlegx) double precision eps, phff, phffo, xlam, reff, bohr parameter (eps = 1.d-12, bohr = 0.529 177 249d0) parameter (stat = 'old') integer iread external iread, at_symbol npack = 8 c feff.dat data extraction c loop to get data from at most maxpth paths ipth = 0 cc print*, " FEFINP " 50 continue ipth = ipth + 1 c skip unused paths if ((ipth.le.mfffil).and.(feffil(ipth).ne.blank)) then cc print*, ' fefinp: ipth = ', ipth, ' : ', feffil(ipth)(1:30) cc print*, ipth, iffrec(ipth), lffred(ipth) c get next file name from feffil, check that it exists exist = .false. filnam = feffil(ipth) call triml (filnam) ilen = max(1, istrln(filnam)) inquire(file = filnam, exist = exist) c failed to find this file: stop with warning message if (.not.exist) then call warn(3,' warning: could not find FEFF file: ' $ //filnam) feffil(ipth) = blank c read data from file elseif (iffrec(ipth).eq.0) then if (.not.lffred(ipth)) then c feff5-style feffnnnn.dat file c initialize this path nlgpth(ipth) = 2 refpth(ipth) = zero rwgpth(ipth) = zero degpth(ipth) = zero do 70 i = 0, maxleg ratpth(1,i,ipth) = zero iptpth(i,ipth) = 0 izpth(i,ipth) = 0 70 continue do 80 i = 1, mffpts qfeff(i,ipth) = zero theamp(i,ipth) = zero thepha(i,ipth) = zero xlamb(i,ipth) = 1 realp(i,ipth) = zero 80 continue call echo( ' reading '//filnam(1:ilen)) cc print*, ' for ipth = ', ipth call rdffdt(filnam,mffttl,maxleg,mffpts, $ ntitle,nlgpth(ipth), $ npts,fefttl(1,ipth), refpth(ipth), rwgpth(ipth), $ degpth(ipth), ratpth(1,0,ipth), iptpth(0,ipth), $ izpth(0,ipth), qfeff(1,ipth),theamp(1,ipth), $ thepha(1,ipth), thcaps(1,ipth), thsaps(1,ipth), $ xlamb(1,ipth), realp(1,ipth)) lffred(ipth) = .true. nffpts(ipth) = npts c print*, 'chipth', qfeff(1,1), qfeff(10,1) c print*, 'chipth', mffpts, npts c print*, qfeff(npts-1,1),qfeff(npts,1) c print*, qfeff(mffpts-1,1),qfeff(mffpts,1) end if elseif (iffrec(ipth).ne.0) then c feff8-style feff.bin iunit = 0 call openfl(iunit,filnam,stat,iex,ierr) if ((iex.lt.0).or.(ierr.lt.0)) $ call warn(3,' error reading file: '//filnam) c read top of feff.bin for all the records from this file call rdfb1(filnam,iunit,mdocx,maxleg,mffpts,npack, $ ndoc,npot, $ npts, rnrmav, l0, doc,izpot,phc,ck,xk) c skip to next record within this file 200 continue ilen = iread(iunit, str) if (ilen.lt.0) goto 500 if (str(1:2).ne.'##') go to 200 nwords = 1 call bwords(str(3:),nwords,words) call str2in(words(1) , itmp, ierr) c skip this record (and go to next) if this isn't the record we want if (itmp.ne.iffrec(ipth)) go to 200 c we found the right record: read in path information ilen = istrln(filnam) write(messg,'(a,1x,a,1x,i5)') $ filnam(1:ilen), ',', iffrec(ipth) ilen = istrln(messg) call echo( ' '//messg(1:ilen)) rwgpth(ipth) = rnrmav do 305 i = 1, ndoc fefttl(i,ipth) = doc(i) 305 continue nwords = mwords call bwords(str(3:),nwords,words) call str2in(words(2), nleg, ierr) nlgpth(ipth) = nleg call str2dp(words(3), degpth(ipth), ierr) call str2in(words(4), nepts, ierr) call str2dp(words(5), refpth(ipth), ierr) reff = refpth(ipth) / bohr do 320 j = 1, nleg call str2in(words(6+j),i,ierr) iptpth(j,ipth) = i izpth(j,ipth) = izpot(i) 320 continue iptpth(0,ipth) = 0 izpth(0,ipth) = izpot(0) call rdpadd(iunit,npack, ratpth(1,1,ipth),3*nleg) do 340 i = 0, nleg do 335 j = 1, 3 ratpth(j,i,ipth) = ratpth(j,i,ipth) * bohr 335 continue 340 continue c note that we really don't care about beta, eta, ri arrays, so we'll c just skip them here: call rdpadd(iunit,npack,beta,nleg) call rdpadd(iunit,npack,beta,nleg) call rdpadd(iunit,npack,beta,nleg) c but we really want these arrays (amplitude and phase) c c note that this version of feff.bin does not save c central-atom and scattering-atom phase-shifts separately. call rdpadd(iunit,npack,achi,nepts) call rdpadd(iunit,npack,phchi,nepts) c do 390 j = nepts+1, mptsx achi(j) = zero phchi(j) = zero 390 continue c now convert this into same info as in feff.dat file npts = min(mptsx,npts) phffo = zero rf2b = reff*reff*bohr do 420 i = 1, npts archi = achi(i) * cos(phchi(i)) aichi = achi(i) * sin(phchi(i)) arck = dble(ck(i)) aick = dimag(ck(i)) xlam = 1.d10 phff = zero if (abs(aick).gt.eps) xlam= 1/aick if (achi(i).ge.eps) phff = atan2(aichi, archi) c remove 2 pi jumps in phases call pijump (phff, phffo) phffo = phff c save values to arrays qfeff(i,ipth) = xk(i)/ bohr realp(i,ipth) = arck / bohr xlamb(i,ipth) = max(xlmin, xlam) * bohr thepha(i,ipth)= phff thcaps(i,ipth)= 2 * dble(phc(i)) + l0*pi thsaps(i,ipth)= phff - thcaps(i,ipth) theamp(i,ipth)= achi(i)*xk(i)*rf2b*exp(2*reff/xlam) 420 continue c c fill in the rest of qfeff so that it is monotonically increasing do 450 i = npts+1, mffpts if(qfeff(i,ipth).lt.qfeff(i-1,ipth)) then qfeff(i,ipth) = 2*qfeff(i-1,ipth)-qfeff(i-2,ipth) theamp(i,ipth)= zero end if 450 continue c c if the next {feffil,iffrec} set has the same file name, c read the next record if ((ipth.lt.mfffil) .and. $ (feffil(ipth+1).eq.feffil(ipth))) then ipth = ipth + 1 go to 200 end if 500 continue close(iunit) c done reading feff.bin entry end if c construct path id tmpstr = '' 2505 format('reff=', f7.4, ', nlegs=',i2) write(tmpstr,2505) refpth(ipth),nlgpth(ipth) ilen = istrln(tmpstr) tmpstr= tmpstr(1:ilen)//', path= '//at_symbol(izpth(0,ipth)) ilen = istrln(tmpstr) if (nlgpth(ipth) .eq. 2) then tmpstr= tmpstr(1:ilen)//'<->'//at_symbol(izpth(1,ipth)) else do 2600 i = 1, nlgpth(ipth)-1 tmpstr= tmpstr(1:ilen)//'->'//at_symbol(izpth(i,ipth)) ilen = istrln(tmpstr) 2600 continue tmpstr= tmpstr(1:ilen)//'->'//at_symbol(izpth(0,ipth)) endif ilen = istrln(tmpstr) fpthid(ipth) = tmpstr(1:ilen) c go to 50 end if return c end subroutine fefinp end ifeffit-1.2.11d/src/lib/iff_ff2chi.f0000644000175000017500000001424110771740457016057 0ustar segresegre subroutine iff_ff2chi(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c given a list of paths, create a chi(k) implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'fefdat.h' include 'feffit.h' include 'pthpar.h' save character*(*) str character*256 name1, namex, list*1024 integer idata, irec, istrln, k, j, i, ier, illen integer nxpath, jk, iupath(mpaths), u2ipth integer nkpts, nkmin, nkmax, nlqpts, iup integer ipath_tmp(max_pathindex) double precision xkmin, xkmax, s02, sigma2 double precision aix(maxpts), arx(maxpts) logical do_pha, do_mag, do_re, isnum integer iff_eval, iff_eval_dp, iff_eval_in external iff_eval, iff_eval_dp, iff_eval_in external istrln, u2ipth, isnum do 10 i = 1, mpthpr param(i) = zero 10 continue c interpret any and all keyword/value pairs for setting options call bkeys(str, mkeys, keys, values, nkeys) idata = 1 irec = 0 nxpath = 0 illen = 1 list = ' ' name1 = 'feff' xkmin = zero xkmax = 20 * one do_re = .false. do_mag = .false. do_pha = .false. do 100 i = 1, nkeys k = istrln( keys(i)) if ((keys(i).eq.'prefix').or.(keys(i).eq.'group')) then name1 = values(i) call smcase(name1,'a') elseif ((keys(i).eq.'kmax')) then ier = iff_eval_dp(values(i), xkmax) elseif ((keys(i).eq.'kmin')) then ier = iff_eval_dp(values(i), xkmin) elseif ((keys(i).eq.'s02')) then ier = iff_eval_dp(values(i), s02) elseif ((keys(i).eq.'sigma2')) then ier = iff_eval_dp(values(i), sigma2) elseif ((keys(i).eq.'data_set')) then ier = iff_eval_in(values(i), idata) elseif ((keys(i).eq.'do_real')) then call str2lg(values(i), do_re, ier) elseif ((keys(i).eq.'do_mag')) then call str2lg(values(i), do_mag, ier) elseif ((keys(i).eq.'no_mag')) then call str2lg(values(i), do_mag, ier) do_mag = .not. do_mag elseif ((keys(i).eq.'do_phase')) then call str2lg(values(i), do_pha, ier) elseif ((keys(i).eq.'no_phase')) then call str2lg(values(i), do_pha, ier) do_pha = .not. do_pha elseif ((keys(i).eq.'do_all')) then call str2lg(values(i), do_re, ier) do_mag = do_re do_pha = do_re elseif (values(i).eq.undef) then call str2il(keys(i), max_pathindex, nxpath,ipath_tmp,ier) if (ier.eq.0) then jk = istrln(keys(i)) list = list(1:illen)//keys(i)(1:jk)//',' illen = illen+jk+1 else call warn(2,' *** ff2chi: error generating path list') call warn(2, keys(i)(1:k)) end if else call warn(1,' *** ff2chi: unknown key: '//keys(i)(1:k)) end if 100 continue c c convert list of indices to l_paths call str2il(list(1:illen), max_pathindex,nxpath,ipath_tmp,ier) do i = 1, mpaths iupath(i) = 0 enddo iup= 0 do 120 i = 1, nxpath if (u2ipth(ipath_tmp(i)).ge.1) then iup=iup+1 iupath(iup) = ipath_tmp(i) endif 120 continue nxpath= iup c read the needed feff arrays call fefinp c c synchronize the math expressions call iff_sync c c calculate number of k-points nkmin = (xkmin / qgrid) nkmax = (xkmax / qgrid) nkpts = nkmax - nkmin + 1 nlqpts= nkmax + 10 cc print*, 'ff2chi: nkmin,nkmax, nkpts, nlqpts' cc print*, nkmin,nkmax, nkpts, nlqpts c c do sum over paths (note : iupath is held in common /fitint/) call sum_paths(idata, iupath, nxpath, nlqpts, arx, aix) c c done with sum over paths c save arrays to Program Variables c--k do 200 i = 1, nlqpts tmparr(i) = qgrid * (i + nkmin - 1) 200 continue call set_array('k', name1, tmparr(1+nkmin), nkpts, 1) call set_array('chi', name1, aix(1+nkmin), nkpts, 1) c c--chi_real if (do_re) then call set_array('chi_real', name1, arx(1+nkmin), nkpts, 1) end if c--chi_mag if (do_mag) then do 240 i = 1, nlqpts tmparr(i) = sqrt ( arx(i)**2 + aix(i)**2 ) 240 continue call set_array('chi_mag', name1, tmparr(1+nkmin), nkpts, 1) end if c--chi_phase if (do_pha) then do 280 i = 1, nlqpts tmparr(i) = atan2( aix(i), arx(i)) if (i.gt.1) call pijump( tmparr(i), tmparr(i-1)) 280 continue call set_array('chi_phase', name1, tmparr(1+nkmin),nkpts,1) end if c c done return end ifeffit-1.2.11d/src/lib/iff_chieps.f0000745000175000017500000002053011024017571016153 0ustar segresegre subroutine iff_chieps(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c given a chi(k) spectrum, estimate it's uncertainty implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'fft.h' save character*(*) str character*256 name1, chiarr, xk_arr, winarr, winnam, defkey(2) character tmppre*24, cmdstr*256 parameter (tmppre='for0internal0use0only000') integer nsig1, jchi, jwin, ndfkey, jdot integer istrln, k, i, ier integer get_array logical lpre double precision xkmin, xkmax, xkw, rwgt1, rwgt2, xsigr, xsigk double precision arr_w(maxpts), arr_c(maxpts), arr_k(maxpts) double precision dmarr(maxpts), xk, t double precision dk1, dk2, getsca, sumsqr, wtmp integer npts_w, npts_c, npts_k, jxar, iff_eval, iff_eval_dp external istrln, sumsqr, getsca, iff_eval, iff_eval_dp external get_array rwgt1 = 15.d0 rwgt2 = 25.d0 xkmin = getsca('kmin',1) xkmax = getsca('kmax',1) xkw = getsca('kweight',1) dk1 = getsca('dk1',1) dk2 = getsca('dk2',1) name1 = undef call gettxt('kwindow', winnam) call gettxt('altwindow',winarr) call bkeys(str, mkeys, keys, values, nkeys) ndfkey = 1 defkey(1) = 'chi' do 100 i = 1, nkeys k = istrln( keys(i)) if ((values(i).eq.undef).and.(i.le.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if ((keys(i).eq.'prefix').or.(keys(i).eq.'group')) then name1 = values(i) call lower(name1) elseif ((keys(i).eq.'rwgt1')) then ier = iff_eval_dp(values(i), rwgt1) elseif ((keys(i).eq.'rwgt2')) then ier = iff_eval_dp(values(i), rwgt2) elseif ((keys(i).eq.'kmax')) then ier = iff_eval_dp(values(i), xkmax) elseif ((keys(i).eq.'kmin')) then ier = iff_eval_dp(values(i), xkmin) elseif (keys(i).eq.'kwindow') then winnam = values(i) call lower(winnam) elseif (keys(i).eq.'altwindow') then winarr = values(i) call lower(winarr) elseif (keys(i).eq.'kweight') then ier = iff_eval_dp(values(i),xkw) elseif (keys(i).eq.'dk1') then ier = iff_eval_dp(values(i),dk1) elseif (keys(i).eq.'dk2') then ier = iff_eval_dp(values(i),dk2) elseif (keys(i).eq.'dk') then ier = iff_eval_dp(values(i),dk2) dk1 = dk2 elseif (keys(i).eq.'chi') then chiarr = values(i) call lower(chiarr) elseif (keys(i).eq.'k') then xk_arr = values(i) call lower(xk_arr) else call warn(1, $ ' *** chi_noise: unknown key: '//keys(i)(1:k)) end if 100 continue c c get/resolve chi(k) array name c check that name1 exists. c otherwise, get it from chiarr, if available c otherwise, give up. if (name1.eq.undef) then jdot = index(xk_arr,'.') if (jdot.ne.0) name1 = xk_arr(1:jdot-1) endif if (name1.eq.undef) then jdot = index(chiarr,'.') if (jdot.ne.0) name1 = chiarr(1:jdot-1) endif if (name1.eq.undef) then call warn(2, ' chi_noise: can''t determine group name') return endif call fixnam(name1,1) call lower(name1) jxar = iff_eval(xk_arr, name1, arr_k, npts_k) jchi = iff_eval(chiarr, name1, arr_c, npts_c) jwin = iff_eval(winarr, name1, arr_w, npts_w) cc print*, ' chi_noise: ', jxar, jchi, jwin c if the x-array has been given, the real/imag/window data should c be re-interpolated onto an even x-grid starting at x=0. if (jxar.ge.1) then if (jchi.ge.1) $ call zgrid_array(arr_k, npts_k, arr_c, npts_c, qgrid) if (jwin.ge.1) $ call zgrid_array(arr_k, npts_k, arr_w, npts_w, qgrid) endif if (jchi.le.0) then call warn(2, ' chi_noise: no chi(k) data array?') return end if c c get window function if it wasn't alreary specified if (jwin.le.0) then do 350 i = 1, maxpts arr_w(i) = zero 350 continue call window(winnam,dk1,dk2,xkmin,xkmax,qgrid,maxpts,arr_w) end if c c estimate of measurement uncertainty for fit: c assuming the measurement uncertainty to be white noise, and c that the signal dies off appreciably at reasonably large r, c the noise is given by the high r components of the signal. c sigdtr is estimated as the rms part of the signal at high r. c we most need the noise in the real and/or imaginary parts c of chi(r). the temp array below contains both real and c imaginary parts, so its rms is too big by the sqrt(2). c do 400 i = 1, maxpts dmarr(i) = zero 400 continue call fitfft(arr_c, maxpts, maxfft, wfftc, qgrid, $ arr_w, xkw, dmarr, zero, 1, 0, rwgt1, rwgt2, $ nsig1,tmparr) c find sigma_k, the measurement uncertainty for the k-space data, c using the formula: c c / 2 pi * w \ c (sigma_k)^2 = (sigma_r)^2 * | -------------------------- | c \ qgrid*( kmax^w - kmin^w) / c c where w = (2 * kweight + 1). c xsigr = sqrt( sumsqr(tmparr, nsig1) / nsig1) wtmp = 2 * xkw + one xsigk = xsigr * sqrt( 2 * pi * wtmp / $ (qgrid * (xkmax**wtmp - xkmin**wtmp ))) call setsca('kmin', xkmin) call setsca('kmax', xkmax) call setsca('kweight', xkw) call setsca('dk1', dk1) call setsca('dk2', dk2) call settxt('group', name1) call setsca('epsilon_k', xsigk) call setsca('epsilon_r', xsigr) cc cc now, estimate kmax_suggest for data based on noise level. cc cc this filters chi(k) using rmin=0,rmax=6, then sets kmax_suggest cc to the largest k value for which | chi(q) | > epsilon_k cc cc data is stored temporarily in the group with prefix=tmppre cc which is then erased. call set_array('chi', tmppre, arr_c,npts_c,1) c fftf cmdstr = 'real = '// tmppre//'.chi' call iff_fft('fftf',cmdstr) c fftr write(cmdstr,'(5a)') 'real = ', tmppre, $ '.chir_re,imag=',tmppre,'.chir_im,rmin=0,rmax=6' call iff_fft('fftr',cmdstr) c get |chiq| npts_c = get_array('chiq_mag',tmppre,0,arr_c) xkmax = xkmin lpre = .true. do 900 i = 1, npts_c xk = (i-1)*qgrid if (xk.ge.xkmin) then t = arr_c(i)/((tiny+xk)**xkw) if (t.ge.xsigk) then if (lpre) xkmax = xk lpre = .true. else lpre = .false. endif endif 900 continue call setsca('kmax_suggest', xkmax) cmdstr = '@group= '//tmppre call iff_erase(cmdstr) return end c ifeffit-1.2.11d/src/lib/F77Maker0000755000175000017500000002157710771740457015206 0ustar segresegre#!/usr/bin/perl -w # # Given a fortran source file, generate a Makefile list of files # (in the current directory) containing all needed subprograms. # # useful for generating makefiles from fortran source codes. # # copyright (c) 1998 matt newville # use Getopt::Std; use subs qw{FindCalled FindDepend WriteMake AddtoList DumpHelp}; my ($f,$j,$i,$len,$src,$obj,$found,$is,$iu,$ishere,$dir,$a)=(); my ($out,$extradirs,$prefix); my (@unfound, @unfound_inc,@seen,@incs,@writ_inc,%files); # $|=1; #autoflush outputs getopts('p:d:o:s:'); $extradirs = ($opt_d) ? ($opt_d) : " "; $prefix = ($opt_p) ? ($opt_p) : ""; $sx = ($opt_s) ? ($opt_s) : ""; if ($opt_o) { open(OUT, ">$opt_o") or die "couldn't open $opt_o\n"; select OUT; } if ($#ARGV<0) {DumpHelp and exit;} # # first: build a hash telling which subprograms are in which files, # $files{$function} names the file that a function is in. # scans only fortran source with lower case names # subprogram names limited to alphanumeric characters # subprograms supported: subroutine, entry, .* function # bulid directory list of files my @dirs = ("."); push @dirs , split (/\s/o,$extradirs); my @dirfiles = (); foreach $dir (@dirs) { opendir(DIR,"$dir") or die "can't open directory $dir\n"; push @dirfiles, readdir(DIR); closedir(DIR); } # scan files for subprogram keywords print "# Scanning files ... "; foreach $f (@dirfiles) { next unless $f =~ /^[a-z][a-z0-9]*.*\.f$/io; open(FH, $f) or warn "# couldn't open $f\n"; ## print "$f ... "; while () { next if ( (/^c/io) or (/^\s*$/o)); if ((/^ \s* subroutine\s+([\w]+)\s*.*/io) or (/^ \s* entry\s+([\w]+)\s*.*/io) or (/^ \s*.* function\s+([\w]+)\s*.*/io) ) { $a = $1; $a =~ tr/A-Z/a-z/; $files{$a} = $f; } } close(FH); } # # second: for each named argument, create a list of needed files # a determine called routines and looking for "external" # declarations and "call " constructs. # b look up file for each routine # c look in all needed files until all routines are found # find all called routines, save in array @seen @seen = @ARGV; foreach $f (@ARGV) { print "\n# Finding routines needed to make $f ..."; FindCalled($f); } # write SRC and OBJ lines print "\n$prefix"."SRC = "; WriteMake(0,40,$sx,@seen); print "\n$prefix"."OBJ = "; WriteMake(1,40,$sx, @seen); # determine and write dependencies print "\n# dependencies:\n"; foreach $src (@seen) { next if $src =~ /^\s*$/o; $src =~ /(.*)(\.f)/io and $obj = "$1".".o"; $found = 0; @writ_inc = (); FindDepend($src); # finds all included files $len = 0; for $is (0..$#writ_inc) { $ishere = 1; for $iu (0..$#unfound_inc) { $ishere = 0 if ($writ_inc[$is] eq $unfound_inc[$iu]); } if ($ishere) { print " $sx$writ_inc[$is]"; $len += length($writ_inc[$is]); } print "\\\n\t" and $len = 0 if (($len > 40) and ($is < $#writ_inc)); } print "\n" if ($found); } # write INC (list of include files) print "\n$prefix"."INC = "; WriteMake(0,40,$sx, @incs); # warn about unfound subprograms if (defined($unfound[0])) { print "\n# WARNING: these subprograms seem to be needed but weren't found\n"; print "$prefix"."MISSING= "; WriteMake(0,40,$sx, @unfound); } # warn about unfound include files if (defined($unfound_inc[0])) { print "\n# WARNING: these include files seem to be needed but weren't found\n"; print "$prefix"."MISSING_INC=\t"; WriteMake(0,40,$sx, @unfound_inc); } # done sub FindCalled { # find all needed routines and files my ($b,@extroutines) = (); my($fh) = ++$i; open($fh, $_[0]) or warn "# couldn't open $_[0]\n"; while (<$fh>) { next if ( (/^c/io) or (/^\s*$/io)); if (/^ \s* external\s+(.*)/io) { # `external' functions # "external a, b, c" is allowed, so we need to keep # a stack of functions to look up (using push and shift) $a = $1; $a =~ tr/A-Z/a-z/; push @extroutines , split (/,/o,$a) ; while (@extroutines) { $b = shift (@extroutines); $b =~ s/\s*//go; #allows simpler "split" above AddtoList($b); } # `call'ed subroutines: simpler syntax (must be on it's own line) } elsif (/^[\d\s]{1,6}.*call\s+([\w]+)\s*.*/io) { $a = $1; $a =~ tr/A-Z/a-z/; AddtoList($a); } } close($fh) and --$i; } sub AddtoList { # manage list of called routines and functions for FindCalled my ($b,$new,$is) = ($_[0],1,0); $b =~ tr/A-Z/a-z/; if (defined($files{$b})) { # is there a corresponding file? for $is (0..$#seen) { $new = 0 if ($files{$b} eq $seen[$is]);} # if this file has not already been seen, # then find all the called routines in this file too. if ($new) { $seen[++$#seen] = $files{$b}; FindCalled($files{$b}); } } else { # if *no* corresponding file, add to unfound list for $is (0..$#unfound) {$new = 0 if ($b eq $unfound[$is]);} if ($new) { $unfound[++$#unfound] = $b;} } } sub FindDepend { # find ``include'' dependencies of a fortran file my($fh) = ++$i; my ($new,$written,$t,$iw,$is,$opened) = (); $opened = open($fh, $_[0]) ; unless ($opened) { $new = 1; for $is (0..$#unfound_inc) {$new = 0 if ($_[0] eq $unfound_inc[$is]);} if ($new) {$unfound_inc[++$#unfound_inc] = $_[0];} return 0; } while (<$fh>) { if (/^[ ]\s*include\s*["{'\s*]([^"{'\s]*)(["}'\s])\s*/o) { # fix emacs colorizing from that last regex: " # has this included file been seen before? $a = $1; $a =~ tr/A-Z/a-z/; $new = 0; for $is (0..$#incs) {$new = 1 if ($a eq $incs[$is]);} $incs[++$#incs] = $a unless ($new); # is this the first found ``include'' for this file? unless ($found) { print "$obj: "; $found = 1; @writ_inc = (); #reset writ_inc array for each new file } # has this included file been written down yet? $written = 0; for $iw (0..$#writ_inc) {$written = 1 if ($a eq $writ_inc[$iw]);} unless ($written) { $writ_inc[++$#writ_inc] = $a; FindDepend($a); } } } close($fh) and --$i; } sub WriteMake { # simple write in a Makefile format my ($obj_switch,$len,$pre,@out) = @_; my ($i,$l) =(0,0); for $i (0..$#out) { print "\\\n\t" and $l = 0 if ($l > $len); if ($obj_switch) { # = 1 for "OBJ" $out[$i] =~ /(.*)\.f/o and print "$pre"."$1".".o "; } else { # = 0 for normal case print "$pre$out[$i] "; } $l += length ($out[$i]); } print "\n"; } sub DumpHelp { my $help_msg =<<'END'; # written when no arguments are given usage: F77Maker [-options] file(s) purpose: create a Makefile listing for a list of fortran source files options: switch meaning -h display this help message -p PREFIX append prefix PREFIX to Makefile variables -o FILE output file to redirect output to Type 'perldoc F77Maker' for more details END print STDERR $help_msg; } __END__ =head1 NAME F77Maker - generate Makefile dependencies for fortran code =head1 SYNOPSIS F77Maker [C<-o> outputfile C<-p> PREFIX] file(s) This program generate a Makefile listing of source, object, and include file, and depencies (ie, include files) for a list of fortran source code files. The output is written in a form suitable to be included in a Makefile. These Makefile variables are written: =over 3 =item I list of all required source files. =item I list of the objects made from the SRC files. =item I list of ``include''d files. =back IF the optional C<-p> switch is used, the argument will be used as a prefix for each of the above Make variables Make dependencies (a list of ``include''d files for each SRC file) are also written. Warnings are given for subprograms and include files that cannot be found in the current directory. =head1 DESCRIPTION F77Maker proceeds likes this: First, all the fortran source codes (F<*.f>) in the current working directory are scanned for subprogram units (B, B, and B) and a table is built of which subprograms are found in which file. Then the listed files are scanned for keywords pointing to external subprograms (that is, either B or an explicit B declaration). When an external subprogram is found in the table created above, the file containing the called subprogram is scanned for keywords pointing to external subprograms. This is done recursively until all files containing required subprograms have been scanned. Subprograms that can't be located in the files in the current directory are listed in the I Makefile variables. The missing routines may be in an external library, so this list should be treated as a warning. In addition to determining all the source code files required to compile the listed files, the Makefile dependencies on include files is also listed. =head1 AUTHOR M. Newville -- newville@cars.uchicago.edu =cut ifeffit-1.2.11d/src/lib/iff_feffit.f0000644000175000017500000006646511110324234016153 0ustar segresegre subroutine iff_feffit(str) c c given a list of paths and data, fit sum of paths to data c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'fft.h' include 'fefdat.h' include 'pthpar.h' include 'feffit.h' save double precision toldef, epsmin, p01 parameter (toldef = 1.d-7, epsmin = 1.d-8, p01 = 1.d-2) integer lenwrk, lenfvc parameter(lenwrk = 2*maxpts*mvarys + 20*mvarys + 2*maxpts) parameter(lenfvc = 2*maxpts) logical do_pha, do_mag, do_re, isnum, dofit, do_bkg character*256 str*(*), pref character*256 name1(mdata), nam_chi(mdata), nam_x(mdata) character*256 re_arr, xk_arr, winarr, winnam, fit_sp, fit_mode character*1024 list, cmdstr integer idata, jchi, ier, illen, jk, ilen, jwin, n1, n2 integer istrln, k, i, jprint, nerstp, idx, ntmp, iup integer nkpts, np, u2ipth, lminfo, nfit1, j1, j0, j2 integer iwork(mvarys), ibadx(mvarys), ipos, jxk, ntchi, isp integer ipath_tmp(max_pathindex) integer get_array, imac_tmp, j, jqw, ntbkg logical iftmac, isasca, isamac, uniq_dat double precision xkmin, xkmax, dk1, dk2, xkw, getsca,q, chired double precision xrmin, xrmax, toler, xolow, xohigh, tmp double precision work(lenwrk), fvect(lenfvc), ftemp(lenfvc) double precision fjac(lenfvc, mvarys), tmpchi(maxpts) double precision alpha(mvarys, mvarys), varys(mvarys), small double precision qbkg1, qbkg2, bvalue,xspl(mtknot), qx double precision xkdat(maxpts), xcdat(maxpts), xwdat(maxpts) double precision tmparr2(maxpts) double precision wtmp, stmp, sumsqr, xidat, eps_k, eps_r double precision qw_tmp(mqwfs), sum2chi(mdata) character*128 restr_tmp(max_restraint) integer nrest_tmp integer iff_eval, iff_eval_dp, iff_eval_in, nqw external iff_eval, iff_eval_dp, iff_eval_in, bvalue external istrln, u2ipth, isnum, fitfun, getsca, sumsqr external isasca, isamac, get_array toler = zero c fit_macro = undef fit_m_arg = ' ' ifit_mac = -1 nerstp= 1 j0 = 0 jprint= 0 xrmin = getsca('rmin',1) xrmax = getsca('rmax',1) xkmin = getsca('kmin',1) xkmax = getsca('kmax',1) xkw = getsca('kweight',1) dk1 = getsca('dk1',1) dk2 = getsca('dk2',1) xidat = getsca('data_set',1) idata = int(xidat) if (idata.le.0) idata = 1 xidat = getsca('data_total',1) nfdats= int(xidat) eps_k = zero eps_r = zero xk_arr= undef winarr= undef pref = undef call gettxt('kwindow', winnam) call gettxt('fit_space',fit_sp) fit_mode = 'ri' ccc call gettxt('fit_mode',fit_mode) c interpret any and all keyword/value pairs for setting options call bkeys(str, mkeys, keys, values, nkeys) np = 0 illen = 1 list = ' ' do_re = .false. do_mag = .false. do_pha = .false. do_bkg = .false. nqw = 0 qw_tmp(1) = getsca('kweight',1) do 10 i = 2, mqwfs qw_tmp(i) = zero 10 continue nrest_tmp = 0 do 100 i = 1, nkeys k = istrln( keys(i)) if ((keys(i).eq.'prefix').or.(keys(i).eq.'group')) then pref = values(i) call smcase(pref,'a') elseif (keys(i).eq.'data_set') then ier = iff_eval_dp(values(i), xidat) idata = int(xidat) name1(idata) = undef call setsca('data_set', xidat) nfit(idata) = 0 elseif (keys(i).eq.'data_total') then ier = iff_eval_dp(values(i), xidat) nfdats = int(xidat) call setsca('data_total', xidat) elseif (keys(i).eq.'macro') then fit_macro = values(i) elseif ((keys(i).eq.'macro_arg')) then fit_m_arg = values(i) elseif (keys(i)(1:9).eq.'restraint') then nrest_tmp = nrest_tmp+1 if (idata.le.0) idata = 0 if (nrest_tmp.gt.max_restraint) then call echo(" *** feffit:: too many restraints") call echo(" restraint will be ignored:") call warn(1," " // values(i)) values(i) = '' endif if((values(i).ne.'').and.(values(i).ne.undef)) then restr_tmp(nrest_tmp) = values(i) cc print*, ' Feffit restraint : ', idata cc print*, nrest_tmp, values(i)(:60) endif elseif ((keys(i).eq.'rmin')) then ier = iff_eval_dp(values(i), xrmin) elseif ((keys(i).eq.'rmax')) then ier = iff_eval_dp(values(i), xrmax) elseif ((keys(i).eq.'kmax')) then ier = iff_eval_dp(values(i), xkmax) elseif ((keys(i).eq.'kmin')) then ier = iff_eval_dp(values(i), xkmin) elseif ((keys(i).eq.'error_step')) then ier = iff_eval_in(values(i), nerstp) elseif ((keys(i).eq.'error_print')) then ier = iff_eval_in(values(i), jprint) elseif (keys(i).eq.'kwindow') then winnam = values(i) elseif (keys(i).eq.'altwindow') then winarr = values(i) call lower(winarr) elseif (keys(i).eq.'kweight') then nqw = nqw + 1 ier = iff_eval_dp(values(i), xkw) if ((nqw.ge.1).and.(nqw.le.mqwfs)) then qw_tmp(nqw) = xkw endif elseif (keys(i).eq.'dk1') then ier = iff_eval_dp(values(i), dk1) elseif (keys(i).eq.'dk2') then ier = iff_eval_dp(values(i), dk2) elseif (keys(i).eq.'dk') then ier = iff_eval_dp(values(i), dk1) dk2 = dk1 elseif (keys(i).eq.'chi') then re_arr = values(i) call lower(re_arr) elseif (keys(i).eq.'k') then xk_arr = values(i) call lower(xk_arr) elseif ((keys(i).eq.'epsilon_k')) then ier = iff_eval_dp(values(i), eps_k) elseif ((keys(i).eq.'epsilon_r')) then ier = iff_eval_dp(values(i), eps_r) elseif ((keys(i).eq.'fit_space')) then fit_sp = values(i) elseif ((keys(i).eq.'fit_mode')) then fit_mode = values(i) elseif ((keys(i).eq.'do_real')) then call str2lg(values(i), do_re, ier) elseif ((keys(i).eq.'no_real')) then call str2lg(values(i), do_re, ier) do_re = .not. do_re elseif ((keys(i).eq.'do_mag')) then call str2lg(values(i), do_mag, ier) elseif ((keys(i).eq.'no_mag')) then call str2lg(values(i), do_mag, ier) do_mag = .not. do_mag elseif ((keys(i).eq.'do_phase')) then call str2lg(values(i), do_pha, ier) elseif ((keys(i).eq.'no_phase')) then call str2lg(values(i), do_pha, ier) do_pha = .not. do_pha elseif ((keys(i).eq.'do_all')) then call str2lg(values(i), do_re, ier) do_mag = do_re do_pha = do_re elseif ((keys(i).eq.'do_bkg')) then call str2lg(values(i), do_bkg, ier) elseif ((keys(i).eq.'toler')) then ier = iff_eval_dp(values(i), toler) c c path list: elseif (values(i).eq.undef) then call str2il(keys(i), max_pathindex, np, ipath_tmp,ier) if (ier .eq. 0) then jk = istrln(keys(i)) list = list(1:illen)//keys(i)(1:jk)//',' illen = illen+jk+1 else call echo(' *** feffit: error generating path list') call warn(2, keys(i)(1:k)) end if else call warn(1,' *** feffit: unknown key: '//keys(i)(1:k)) end if 100 continue c=================================================================== c done reading input params idata = max(1, min(mdata, idata)) nfdats = max(1, min(mdata, nfdats)) dofit = (idata.ge.nfdats) bkgfit(idata) = do_bkg cc print*, ' feffit: ', idata, bkgfit(idata) cc print*, ' __ feffit __ : idata, nfdats = ', idata, nfdats c=================================================================== c for this data set: c resolve chi(k) name, get index of chi data c set fft / fit params c get eps_k and eps_r from iff_chieps (unless given explicitly!) c set path list name1(idata) = pref if (name1(idata) .eq. undef) name1(idata) = 'feffit' jchi = get_array(re_arr, name1(idata), 0, xcdat) if (jchi.le.0) then call warn(2, ' feffit: no chi(k) data array?') return end if c save name of re_arr for later nam_chi(idata) = re_arr nam_x(idata) = undef call prenam(name1(idata),nam_chi(idata)) cc print*, 'XXXX idata ', idata, nam_chi(idata)(1:30) c c if k-data is given, shift/interpolate input data onto c fit k-grid: chi(1) = chi(k=0). if (xk_arr.ne.undef) then ipos = 0 jxk = get_array(xk_arr, name1(idata), 0, xkdat) nam_x(idata) = xk_arr call prenam(name1(idata),nam_x(idata)) if (jxk.gt.0) then nkpts = min(jxk, jchi) ntchi = int(1 + xkdat(jxk)/qgrid) do 130 i = 1, ntchi q = (i-1) * qgrid call lintrp(xkdat, xcdat, nkpts, q,ipos,tmpchi(i)) 130 continue else call warn(2, ' feffit: bad k-data array?') return endif else nkpts = jchi ntchi = jchi do 150 i = 1, ntchi tmpchi(i) = xcdat(i) 150 continue endif c save this chi(k) data to the appropriate array for fitfun, c accumulate sum-of-squares for later uniqueness check sum2chi(idata) = zero do 170 i = 1, ntchi chiq(i,idata) = tmpchi(i) sum2chi(idata) = sum2chi(idata) + tmpchi(i)*tmpchi(i) 170 continue do 175 i = ntchi+1,maxpts chiq(i,idata) = zero 175 continue c support for refining bkg(k) with EXAFS parameters if (bkgfit(idata)) then rbkg_f(idata) = xrmin xrmin = zero endif c c check if fit_macro call will work if (fit_macro.ne.undef) then ifit_mac = 0 iftmac = isamac(fit_macro,ifit_mac) if (.not.iftmac) then cmdstr = ' fitting macro not found: '//fit_macro call warn(1,cmdstr) fit_macro = undef ifit_mac = 0 endif if (ifit_mac.gt.0) then nmac_stop = nmacro imac_tmp = imac endif endif c c set up fft/fit parameters, initialize window functions small = rgrid * p01 n1 = int( (xrmin + small) / rgrid ) + 1 n2 = int( (xrmax + small) / rgrid ) if (n2.le.n1) n2 = n1 + 1 nrpts(idata) = n2 - n1 + 1 rmax(idata) = rgrid * n2 rmin(idata) = rgrid * n1 dq1(idata) = dk1 dq2(idata) = dk2 small = qgrid * p01 n1 = int( (xkmin + small) / qgrid ) + 1 n2 = int( (xkmax + small) / qgrid ) if (n2.le.n1) n2 = n1 + 1 nqpts(idata) = n2 - n1 + 1 qmax(idata) = qgrid * n2 qmin(idata) = qgrid * n1 nqfit(idata) = int((qmax(idata) + 5*dq2(idata))/qgrid) xinfo(idata) = 2 * ((rmax(idata)-rmin(idata))* $ (qmax(idata)-qmin(idata))) /pi if (bkgfit(idata)) then qbkg1 = max(zero,qgrid*n1 - dk1) qbkg2 = min(qgrid*n2 + dk2, qgrid*nkpts) if (qbkg2 .le. (qbkg1 + 5*qgrid)) then qbkg2 = qbkg1 + 5 * qgrid endif ntbkg = 1 + 2*int(rbkg_f(idata)*(qbkg2-qbkg1)/pi) ntbkg = min(mtknot-korder-1,max(korder+1,ntbkg)) nbkg(idata) = ntbkg c-bkg where to put knots do 220 i = 1, korder qknot(i,idata) = qbkg1 - qgrid * (korder-i) qknot(ntbkg+i,idata) = qbkg2 + qgrid * (i-1) 220 continue ntmp = ntbkg - korder + 1 do 240 i = korder+1, ntbkg qknot(i, idata) = qbkg1 +(i-korder)*(qbkg2-qbkg1)/ntmp 240 continue c-bkg add spline coefs to the variable list, initialize to zero do 260 i = 1, ntbkg cmdstr = ' ' write(cmdstr, 265) 'bkg',idata,'_',i,' = 0.0' call iff_set('guess',cmdstr,1) 260 continue 265 format (a3,i2.2,a1,i2.2,a7) nvarys = nvarys + ntbkg else do 280 i = 1, ntbkg 275 format (a3,i2.2,a1,i2.2) write(cmdstr, 275) 'bkg',idata,'_',i if (isasca(cmdstr)) then qx = getsca(cmdstr,0) 285 format (a3,i2.2,a1,i2.2,a3,g15.9) write(cmdstr, 285) 'bkg',idata,'_',i,' = ',qx call iff_set('set', cmdstr,0) endif 280 continue end if c c which space is this fit in? ifft(idata) = 1 if (fit_sp(1:1) .eq.'k') ifft(idata) = 0 if (fit_sp(1:1) .eq.'q') ifft(idata) = 2 modeft(idata) = 0 if (fit_mode(1:2) .eq.'ri') modeft(idata) = 0 if (fit_mode(1:2) .eq.'rm') modeft(idata) = 1 cc print*, ' Feffit ', fit_sp, ifft(idata), idata c-c-c-c-c-c-c-c-c-c-c-c-c-c-c-c-c-c-c-c-c-c-c-c-c-c-c-c-c c c set k-weight, including multiple k-weights if (nqw.le.0) nqw = 1 nqwfs(idata) = nqw do 295 i = 1, mqwfs qwfs(i,idata) = qw_tmp(i) 295 continue qweigh(idata) = qwfs(1,idata) c loop over k-weights to set weight of fit do 450 jqw = nqw, 1, -1 xkw = qwfs(jqw,idata) c determine eps_k/eps_r for this k-weight c call 'chieps ('chi_noise' command) to get eps_k / eps_r if ((eps_k .le. epsmin).and.(eps_r .le. epsmin)) then ilen = istrln(nam_chi(idata)) 405 format(' chi=',a,',kmin=',f12.3,',kmax=',f12.3, $ ',kweight=',f12.3,',dk1=',f12.3,',dk2=',f12.3) write(cmdstr, 405) nam_chi(idata)(1:ilen), $ xkmin, xkmax,xkw,dk1,dk2 if (nam_x(idata) .ne. undef) then j0 = istrln(cmdstr) j2 = istrln(nam_x(idata)) cmdstr = cmdstr(:j0)//', k='//nam_x(idata)(:j2) endif call iff_chieps(cmdstr) sigdtk = getsca('epsilon_k',1) sigdtr = getsca('epsilon_r',1) elseif (eps_k .gt. epsmin) then sigdtk = eps_k wtmp = 2 * xkw + one sigdtr = eps_k / sqrt( 2 * pi * wtmp / $ (qgrid * (xkmax**wtmp - xkmin**wtmp ))) elseif (eps_r .gt. epsmin) then sigdtr = eps_r wtmp = 2 * xkw + one sigdtk = eps_r * sqrt( 2 * pi * wtmp / $ (qgrid * (xkmax**wtmp - xkmin**wtmp ))) end if call setsca('epsilon_k', sigdtk) call setsca('epsilon_r', sigdtr) c set number of fit points, data-set weight, and c a few other misc stuff based on which fit space is used rweigh(idata) = one c r-space fit if (ifft(idata).eq.1) then xolow = rmin(idata) xohigh = rmax(idata) nfit(idata) = 2 * max (1, nrpts(idata)) weight(jqw,idata) = sigdtr * sigdtr else c q/k-space fit xolow = qmin(idata) xohigh = qmax(idata) nfit(idata) = 2 * max (1, nqpts(idata)) weight(jqw,idata) = sigdtk * sigdtk c q-space fit if (ifft(idata).eq.2) then wtmp = 2 * rweigh(idata) + one stmp = sqrt ( pi * wtmp / $ (rgrid * (xrmax**wtmp - xrmin**wtmp ))) sigdtq = sigdtr / stmp weight(jqw,idata) = sigdtq * sigdtq endif endif weight(jqw,idata) = sqrt(nfit(idata) * weight(jqw,idata) $ /xinfo(idata)) if (weight(jqw,idata).le.zero) weight(jqw,idata) = one cc print*, 'FIT WEIGHT: ', jqw, idata , weight(jqw,idata) 450 continue c c set k-window if (winarr.eq.undef) then call window(winnam,dk1,dk2,xkmin,xkmax,qgrid,maxpts, $ qwindo(1,idata)) else jwin = get_array(winarr, name1(idata), 0,xwdat) if (jwin.le.0) then call warn(2,' feffit: no window array? looking for ' $ //winarr) return end if if (xk_arr.ne.undef) then ipos = 0 ntchi = int( 1 + xkdat(jxk)/qgrid ) do 470 i = 1, ntchi q = (i-1) * qgrid call lintrp(xkdat, xwdat, maxpts, $ q, ipos, qwindo(i,idata)) 470 continue else ntchi = jwin do 480 i = 1, ntchi qwindo(i,idata) = xwdat(i) 480 continue endif end if c set r-window call window('hann',zero,zero,xrmin,xrmax,rgrid,maxpts, $ rwindo(1,idata)) c convert list of path indices to iup array call str2il(list(1:illen), max_pathindex, np, $ ipath_tmp, ier) do i = 1, mpaths iulist(i,idata) = 0 enddo iup= 0 do i = 1, np if (u2ipth(ipath_tmp(i)).ge.1) then iup=iup+1 iulist(iup,idata) = ipath_tmp(i) endif enddo cc print *, 'iulist ', idata, iup, np cc do i = 1, iup cc print*, iulist(i,idata) cc enddo cc print*,' idata ', idata, nrest_tmp nrestraint(idata) = nrest_tmp do 570 i = 1, nrest_tmp restraint(i,idata) = restr_tmp(i) 570 continue cc print*,' idata / nrestraint ', idata, idx, nrest_tmp c=================================================================== c if not doing fit (multiple data-set fit), bail out now: if (.not.dofit) then call echo(' feffit: not fitting until all data '// $ 'sets defined') return end if c everything below assumes we're really, really doing a fit c c read the needed feff arrays call fefinp c c set up fit arrays c sync variables c check # of variables and # fit points c call lmdif1 and fiterr write(cmdstr, '(1x,a,i3,a)') ' feffit fitting ', $ nfdats, ' data sets' call echo(cmdstr) mfit = 0 do 580 idx = 1, nfdats mfit = mfit + (nfit(idx) + nrestraint(idx))* nqwfs(idx) 580 continue mfit = min(mfit, lenfvc) cc print*, ' Feffit ', mfit, idx, nfit(idx), nqwfs(idx), nfdats, cc $ nrestraint(idx) cc if (nrestraint(idx) .ge.1) then cc print*, ' Feffit using restraints:',nrestraint(idx) cc endif c=================================================================== c set up arrays for non-linear fit with lmdif / fitfun c=================================================================== c if (nfit(idata).le.4) then call echo(' feffit: too few fit data points: ') if (ifft(idata).eq.1) then write(cmdstr, 625) ' Fit R range = [',xolow, $ ' : ', xohigh, ']' else write(cmdstr, 625) ' Fit k range = [',xolow, $ ' : ', xohigh, ']' endif 625 format (a,f8.3,a,f8.3,a) call warn(2,cmdstr) return endif if (nvarys.gt.nfit(idata)) then call warn(1,' *** feffit: fewer fit data points '// $ 'than variables! fit may not work.') endif c synchronize the math expressions, set up fit variables call iff_sync if (toler .le. zero) toler = toldef do 700 i =1, nvarys varys(i) = scalar(i) 700 continue do 710 i =1, mfit fvect(i) = zero 710 continue do 720 i =1, lenwrk work(i) = zero 720 continue do 740 i =1, mvarys iwork(i) = 0 740 continue c c the real fit if (nvarys.gt.0) then final = .false. itera = 0 call setsca('&fit_iteration', zero) call chrdmp(' fitting ... ') call fitfun(mfit, nvarys, varys, fvect, lminfo) call lmdif1 (fitfun, mfit, nvarys, varys, fvect, $ toler, lminfo, iwork, work, lenwrk) call lm_err(lminfo,toler) cc if ((lminfo.ne.0).and.(lminfo.ne.4).and.(lminfo.ne.5)) then if (lminfo.ne.0) then call chrdmp(' estimating uncertainties ... ') call fiterr(fitfun, mfit, nvarys, lenfvc, mvarys, fvect, $ ftemp, fjac, alpha, jprint, nerstp, varys, $ delta, correl, ier, ibadx) if (ier.eq.0) then call echo('done.') else call echo('finished with warnings') call echo(' error bars not estimated. some '// $ 'variable(s) may not') call echo(' affect the fit. Check these variables:') do 880 i = 1, nvarys if (ibadx(i).gt.0) then ilen = istrln(scanam(i)) call echo(' '//scanam(i)(:ilen)) end if 880 continue call set_status(1) endif else call warn(1,' no uncertainties estimated!') end if else call warn(1,' feffit: no variables defined.') endif c c save scalars to Program Variables final = .true. call synvar call fitfun(mfit, nvarys, varys, fvect, lminfo) chisqr = sumsqr(fvect, mfit) c add total number of independent points c avoid double counting by inspecting chi(k) names and sum-of-(chi*chi): c sure, this can be fooled by adding 1.e-8 to chi(k=0), but.... xnidp = xinfo(1) do 920 i = 2, nfdats uniq_dat = .true. do 910 j = 1, i-1 if ( (nam_chi(i).eq.nam_chi(j) .or. $ (sum2chi(i).eq.sum2chi(j)))) $ uniq_dat = .false. 910 continue if (uniq_dat) xnidp = xnidp + xinfo(i) 920 continue chired = chisqr / max(0.1d0, (xnidp - nvarys)) call setsca('chi_square', chisqr) call setsca('chi_reduced', chired) call setsca('r_factor', rfact_total) call setsca('n_idp', xnidp) call setsca('kweight', qwfs(1,idata)) call setsca('kmin', xkmin) call setsca('kmax', xkmax) call setsca('dk1', dk1) call setsca('dk2', dk2) call setsca('rmin', xrmin) call setsca('rmax', xrmax) tmp = nvarys * one call setsca('n_varys', tmp) do 960 i = 1, nvarys delta(i) = sqrt(abs(chired)) * delta(i) ilen = istrln(scanam(i)) messg = 'delta_' // scanam(i)(1:ilen) call setsca(messg, delta(i)) 960 continue c c fit with a macro is done, so reset stopping point c and previous macro pointer if (ifit_mac.gt.0) then nmac_stop = 0 imac = imac_tmp endif c c save arrays to Program Variables for each data set c do 3000 idata = 1, nfdats c print*, 'FEFFIT ', idata, ' | ' , c $ name1(idata)(1:20), ' | ', nam_chi(idata)(1:20) c NOTE: c thiq(i,data) holds the fit residual, so we'll need to c add back the data chi(k) here, and possibly the bkg(k) c--k cc call set_array('resid', name1(idata), thiq(1,idata), nkpts,1) do 2200 i = 1, nkpts tmparr(i) = qgrid * (i - 1) thiq(i,idata) = thiq(i,idata)+chiq(i,idata) 2200 continue call set_array('k', name1(idata), tmparr, nkpts, 1) call set_array('chi', name1(idata), thiq(1,idata), nkpts,1) c c--background chi(k) if (bkgfit(idata)) then do 2310 isp = 1, nbkg(idata) write(cmdstr, 2325) 'bkg',idata,'_',isp xspl(isp) = getsca(cmdstr,0) 2310 continue 2325 format (a,i2.2,a,i2.2) do 2330 i = 1, nkpts qx = qgrid*(i-1) tmparr(i) = bvalue(qknot(1,idata), $ xspl,nbkg(idata),korder,qx,0) thiq(i, idata) = thiq(i, idata) - tmparr(i) 2330 continue call set_array('kbkg', name1(idata), tmparr, nkpts, 1) endif ccc--chi , which does NOT include the background! ccc call set_array('chi', name1(idata), thiq(1,idata), nkpts,1) c--chi_real if (do_re) then call set_array('chi_real', name1(idata), $ thiqr(1,idata), nkpts, 1) end if c--chi_mag if (do_mag) then do 2240 i = 1, nkpts tmparr(i) = sqrt( $ thiqr(i,idata)**2 + thiq(i,idata)**2 ) 2240 continue call set_array('chi_mag', name1(idata), tmparr,nkpts,1) end if c--chi_phase if (do_pha) then do 2280 i = 1, nkpts tmparr(i) = atan2( thiq(i,idata), thiqr(i,idata)) if (i.gt.1) call pijump(tmparr(i), tmparr(i-1)) 2280 continue call set_array('chi_phase', name1(idata), tmparr,nkpts,1) end if c c construct r-space data of data and fit c-data cc print*, ' NEAR done: nam_chi = ', nam_chi(idata)(1:40) cc print*, ' name1: ', name1(idata)(1:40) j1 = istrln(nam_chi(idata)) cmdstr = 'real='// nam_chi(idata)(1:j1) if (nam_x(idata) .ne. undef) then j0 = istrln(cmdstr) j2 = istrln(nam_x(idata)) cmdstr = cmdstr(:j0)//', k='//nam_x(idata)(:j2) endif call iff_fft('fftf',cmdstr) c-fit nam_chi(idata) = 'chi' call prenam(name1(idata),nam_chi(idata)) j1 = istrln(nam_chi(idata)) cmdstr = 'real = '// nam_chi(idata)(1:j1) call iff_fft('fftf',cmdstr) 3000 continue c guess what? we're done! return end ifeffit-1.2.11d/src/lib/iff_print.f0000644000175000017500000001664410771740457016063 0ustar segresegre subroutine iff_print(string) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c generalized print implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'encod.h' save character*(*) string, str*256, s*256, sout*2048 double precision getsca integer iw, i, j, k, istrln, ntmp integer ilsout, isarr, iff_eval logical istext, islit, needcr external istrln, iff_eval, getsca if (int(getsca('&sync_level',0)).ge.2) call iff_sync str = string needcr = .false. c interpret any and all keyword/value pairs for setting options nkeys = mkeys call print_arg(str, '''','''', 1, nkeys, keys) c messg = blank sout = blank ilsout = 1 do 900 iw = 1, nkeys k = istrln(keys(iw)) s = keys(iw)(1:k) call lower(s) call triml(s) k = istrln(s) istext = (s(1:1).eq.'$') islit = ((s(1:1).eq.'''') .and.(s(k:k).eq.'''')) c $ .or. ((s(1:1).eq.'''').and.(s(k:k).eq.''''))) c c literal string if (islit) then write(messg,'(1x,a,1x)') s(2:k-1) call ipr_app(sout,messg,ilsout,0) needcr = .true. c c text string elseif (istext) then do 120 j = 1, maxtxt if (s(2:).eq.txtnam(j)) then i = istrln(text(j)) write(messg,'(1x,a,1x)') text(j)(:i) call ipr_app(sout,messg,ilsout,0) needcr = .true. go to 125 end if 120 continue 125 continue c c numerical variable: evaluate else isarr = iff_eval(s(1:k), undef, tmparr, ntmp) if (isarr.eq.1) then do 780 j =1,ntmp write(messg,'(1x,g17.9)') tmparr(j) call ipr_app(sout,messg,ilsout,0) needcr = .true. 780 continue else write(messg,'(1x,g17.9)') tmparr(1) call ipr_app(sout,messg,ilsout,0) needcr = .true. end if end if c 900 continue if (needcr) call ipr_app(sout," ",ilsout,1) return end subroutine ipr_app(str, s2, ilen,iflush) c c character*(*) str, s2 integer istrln, ilen, iflush external istrln str = str(1:ilen)//s2 cc call triml(str) ilen = istrln(str) if ((iflush.eq.1).or.(ilen.ge.128)) then if (ilen.ge.1) call echo(str) str = ' ' ilen = 1 endif return end subroutine print_arg(str,s1,s2,iblank,nwords, words) c c breaks string into arguments = words are separated by one or c more whitespace, unless "protected" by quotes, braces, or parens. c the protecting characters are stripped off c c args i/o description c ---- --- ----------- c s i char*(*) string to be broken up c s1 i open delimiters to preserve on output c s2 i close delimiters to preserve on output c iblank i flag for whether to break words on whitespace c (1 yes, 0 comma-only) c nwords i/o input: maximum number of words to get c output: number of words found c words(nwords) o char*(*) words(nwords) c contains words found. words(j), where j is c greater then nwords found, are undefined on c output. integer i, ibeg, ilen, istrln, icount, iblank character*(*) str, s1, s2, words(nwords) character s, blank, comma, op*4, cl*4, st1, st2 logical comfnd, delims, isquot, border parameter (blank = ' ', comma = ',') external istrln data op, cl / '[{"''', ']}"'''/ delims = (s1.ne.blank).or.(s2.ne.blank) cc if (s1.ne.blank) op = s1 cc if (s2.ne.blank) cl = s2 mwords = nwords nwords = 0 call untab (str) call triml (str) ilen = istrln (str) + 1 str = str//' ' c check for blank string if (ilen .eq. 1) return ibeg = 1 iprot = 0 comfnd = .true. isquot = .false. i = 0 100 continue i = i + 1 s = str(i:i) if (nwords .ge. mwords) return c c border =(s.eq.comma).or.((iblank.eq.1).and.(s.eq.blank)) c if the string is protected, march on til end of protection if (index(op,s).ge.1) then comfnd = .false. ibeg = i iprot = index(op,s) icount = 0 if (iprot.gt.0) then icount = 1 st1 = op(iprot:iprot) st2 = cl(iprot:iprot) isquot = st1.eq.st2 endif 120 continue i = i + 1 s = str(i:i) if (isquot) then if (s.eq.st1) icount = 0 else if (s.eq.st1) icount = icount + 1 if (s.eq.st2) icount = icount - 1 end if if ((i.le.ilen).and.(icount.ge.1)) go to 120 nwords = nwords + 1 words (nwords) = str (ibeg: i) cc print*, ':: nwords ', nwords, ' = ', str(ibeg:i) c if 'protected delimiters' was not used, strip off first and c last characters if (.not.delims) words(nwords) = str(ibeg+1:i-1) go to 100 c c if not a comma or blank, we have a word: continue til next blank or comma c elseif (.not.border) then comfnd = .false. ibeg = i 160 continue i = i + 1 s = str(i:i) if ((i.le.ilen).and.(s.ne.comma).and.(s.ne.blank)) go to 160 nwords = nwords + 1 words (nwords) = str (ibeg: i-1) go to 100 c c keep track of double commas -- count as a blank word c elseif (s.eq.comma) then if (comfnd) then nwords = nwords + 1 words (nwords) = blank endif comfnd = .true. end if if (i.le.ilen) go to 100 c return c end subroutine gtarg end ifeffit-1.2.11d/src/lib/iff_plot.f0000644000175000017500000005644510771740457015710 0ustar segresegre subroutine iff_plot(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: main plotting routine for ifeffit: uses pgplot c c arguments: c str command line for ifeffit [in] c c notes: c 1. use pgplot calls to make simple 2d plots of vectors c c requires: everything in ifeffit and pgplot c implicit none include 'consts.h' include 'keywrd.h' include 'ifplot.h' save integer pgopen, i, j, k, istrln, jc, inewp, ieras integer itmp, idum, mpts, ipd, ix1, ix2, nofxsp, ier c note the mixed precision: pgplot uses single precision real tlo, thi, xpltmp, ypltmp, ynkey, xnkey, scale_key real xxkey(2), yykey(2), xx(2), yy(2) double precision xxarr(maxpts), dxarr(maxpts) double precision prange_min, getsca real xkey_x0, xkey_y0, xkey_yd, xkey_y1, xkey_yy parameter (prange_min = 1.d-8) character*128 xfunc, yfunc, plotf, pltdev, pltfil character*128 xlabel, ylabel, plabel, ptitle, name1 character*32 tmpcol, tmpsty, pkey*32, dxfunc, dyfunc character*(*) str, xboxs*10, yboxs*10 character*64 defkey(3) integer idfkey, ndfkey, ii, nx1, ny1, isarr, ikey, ilkey logical newdev, doplot, show_key, err_bx, err_by logical xinp,yinp integer iff_eval, iff_eval_re, iff_eval_in external iff_eval, iff_eval_re, iff_eval_in external pgopen, nofxsp, istrln, getsca c cc print*, '>>> ifplot : ', str(1:60) cc print*, '>>> ifplot nplot = ' , nplot c if (icurdev.eq.-1) call iff_plot_init(0) doplot = .true. err_bx = .false. err_by = .false. xinp = .false. yinp = .false. xpltmp = 0 ypltmp = 0 pkey = '' plabel = undef xfunc = undef yfunc = undef call gettxt('plot_device',pltdev) call triml(pltdev) if ((pltdev.eq.undef).or.(pltdev.eq.' ')) pltdev = ' ' call gettxt('plot_file', pltfil) call gettxt('plot_xlabel', xlabel) call gettxt('plot_ylabel', ylabel) call gettxt('plot_title', ptitle) xkey_x0 = real(getsca('&plot_key_x',0)) xkey_y0 = real(getsca('&plot_key_y0',0)) xkey_yd = real(getsca('&plot_key_dy',0)) cc xkey_y1 = getsca('plot_key_y1',0) cc call gettxt('plot_style', tmpsty) tmpsty = undef tmpcol = undef call gettxt('group', name1) newdev = .false. c call bkeys(str, mkeys, keys, values, nkeys) c do 50 i = 1, nkeys if (keys(i).eq.'reset') then call iff_plot_init(1) return elseif (keys(i).eq.'erase') then values(i) = '1' elseif ((keys(i).eq.'new').or. $ (keys(i).eq.'clear_text')) then nplabs = 0 do 30 j = 1, mplabs pltlab(j) = undef pltkey(j) = '' xplabs(j) = 0 yplabs(j) = 0 30 continue endif 50 continue jc = 0 c c set default keywords for "undefined" sets c ie: the first two unkeyed values will take keys 'x', 'y' idfkey = 1 ndfkey = 2 defkey(1) = '__x' defkey(2) = '__y' c do 100 i = 1, nkeys k = istrln( keys(i)) if ((values(i).eq.undef).and. $ (idfkey.le.ndfkey).and.(i.le.5)) then values(i) = keys(i) keys(i) = defkey(idfkey) idfkey = idfkey + 1 end if if ((keys(i).eq.'prefix').or.(keys(i).eq.'group')) then name1 = values(i) call smcase(name1,'a') elseif (keys(i).eq.'new') then call pgeras nplot = 0 nplabs = 0 npmark = 0 nparro = 0 do 70 j = 1, 4 xlim(j) = 0 tlim(j) = 0 limits(j) = .false. 70 continue elseif (keys(i).eq.'x') then xfunc = values(i) xinp = .true. call lower(xfunc) elseif (keys(i).eq.'y') then yfunc = values(i) yinp = .true. call lower(yfunc) elseif (keys(i).eq.'__x') then xfunc = values(i) call lower(xfunc) elseif (keys(i).eq.'__y') then yfunc = values(i) call lower(yfunc) elseif (keys(i).eq.'dy') then dyfunc = values(i) call lower(dyfunc) err_by = .true. elseif (keys(i).eq.'dx') then dxfunc = values(i) call lower(dxfunc) err_bx = .true. elseif (keys(i).eq.'file') then pltfil = values(i) elseif (keys(i).eq.'device') then pltdev = values(i) newdev = .true. elseif (keys(i).eq.'erase') then call pgeras nplot = 0 nplabs = 0 doplot = .false. elseif ((keys(i).eq.'xlabel').or.(keys(i).eq.'xtitle')) then xlabel = values(i) elseif ((keys(i).eq.'ylabel').or.(keys(i).eq.'ytitle')) then ylabel = values(i) elseif (keys(i).eq.'title') then ptitle = values(i) elseif (keys(i).eq.'text') then plabel = values(i) call sclean(plabel) elseif (keys(i).eq.'text_x') then ier = iff_eval_re( values(i), xpltmp) elseif (keys(i).eq.'text_y') then ier = iff_eval_re( values(i), ypltmp) elseif (keys(i).eq.'grid') then igrid = 1 elseif (keys(i).eq.'nogrid') then igrid = 0 elseif (keys(i).eq.'gridcolor') then pltcol(mcolgr) = values(i) elseif ((keys(i).eq.'bg').or.(keys(i).eq.'background')) then pltcol(mcolbg) = values(i) elseif ((keys(i).eq.'fg').or.(keys(i).eq.'foreground')) then pltcol(mcolfg) = values(i) elseif (keys(i).eq.'color') then tmpcol = values(i) elseif (keys(i).eq.'style') then tmpsty = values(i) elseif (keys(i).eq.'width') then ier = iff_eval_in(values(i), ilnwid) elseif (keys(i).eq.'key') then pkey = values(i) elseif (keys(i).eq.'linewidth') then ier = iff_eval_in(values(i), ilnwid) elseif (keys(i).eq.'outlinestyle') then ier = iff_eval_in(values(i), ilnsty) elseif (keys(i).eq.'charfont') then ier = iff_eval_in(values(i), ichrfn) c c axisiz size of characters in axis labels and title c txtsiz size of characters in text strings and legend c mkrsiz size of points and other plotting markers c elseif (keys(i).eq.'charsize') then ier = iff_eval_re(values(i), axisiz) mkrsiz = axisiz txtsiz = axisiz elseif (keys(i).eq.'labelsize') then ier = iff_eval_re(values(i), axisiz) elseif (keys(i).eq.'textsize') then ier = iff_eval_re(values(i), txtsiz) elseif (keys(i).eq.'markersize') then ier = iff_eval_re(values(i), mkrsiz) c elseif (keys(i).eq.'key_x') then ier = iff_eval_re(values(i), xkey_x0) call setsca('&plot_key_x', xkey_x0*1.d0) elseif (keys(i).eq.'key_y0') then ier = iff_eval_re(values(i), xkey_y0) call setsca('&plot_key_y0',xkey_y0*1.d0) elseif (keys(i).eq.'key_dy') then ier = iff_eval_re(values(i), xkey_yd) call setsca('&plot_key_dy', xkey_yd*1.d0) c elseif (keys(i).eq.'xmin') then ier = iff_eval_re(values(i), xlim(1)) limits(1) = .true. elseif (keys(i).eq.'xmax') then ier = iff_eval_re(values(i), xlim(2)) limits(2) = .true. elseif (keys(i).eq.'ymin') then ier = iff_eval_re(values(i), xlim(3)) limits(3) = .true. elseif (keys(i).eq.'ymax') then ier = iff_eval_re(values(i), xlim(4)) limits(4) = .true. elseif ((keys(i).eq.'new').or.(keys(i).eq.'reset')) then continue elseif (k.ge.1) then messg = keys(i)(1:k)//'" will be ignored' call warn(1,' ** plot -- unknown keyword "'//messg) end if 99 continue 100 continue c c if (.not.(xinp.or.yinp)) then if ((nplot.eq.0) .and. $ (xfunc.eq.undef).and.(yfunc.eq.undef)) then call warn(2,' ** plot warning: nothing to plot') return else if (yfunc .eq. undef) then yfunc = xfunc xfunc = '_implicit_' endif else if (.not.xinp.and.yinp) then xfunc = '_implicit_' endif cc print*, ' plot: ', xinp, yinp, xfunc, yfunc c if we have x- and y-array expressions, so let's generate these arrays if (doplot) then if (nplot.ge.maxplt) then call warn(1,' ** plot -- '// $ ' at maximum number of plot traces') end if if ((xfunc.ne.undef).and.(yfunc.ne.undef)) then nplot = min(nplot + 1, maxplt) cc print*, ' increment nplot to ', nplot c isarr = iff_eval(yfunc,name1, xxarr,ny1) if (isarr.gt.0) then pllims(3,nplot) = xxarr(1) pllims(4,nplot) = xxarr(1) do 220 i = 1, ny1 plot_y(i,nplot) = xxarr(i) pllims(3,nplot) = min(pllims(3,nplot), $ real(xxarr(i))) pllims(4,nplot) = max(pllims(4,nplot), $ real(xxarr(i))) 220 continue errby(nplot) = .false. if (err_by) then errby(nplot) = .true. isarr =iff_eval(dyfunc,name1,dxarr,ny1) do 230 i = 1, ny1 plot_dy1(i,nplot) = xxarr(i) - dxarr(i) plot_dy2(i,nplot) = xxarr(i) + dxarr(i) pllims(3,nplot) = min(pllims(3,nplot), $ real(xxarr(i)-dxarr(i))) pllims(4,nplot) = max(pllims(4,nplot), $ real(xxarr(i)+dxarr(i))) 230 continue endif endif c if yfunc given, but xfunc is not, use previous x array or, c if first trace to be plotted, simple index for x if (xfunc .eq. '_implicit_') then if (nplot .eq. 1) then nx1 = ny1 do 250 i = 1, nx1 xxarr(i) = i 250 continue else nx1 = nplpts(nplot-1) do 260 i = 1, nx1 xxarr(i) = plot_x(i,nplot-1) 260 continue endif isarr = 999 else isarr =iff_eval(xfunc,name1,xxarr,nx1) endif if (isarr.gt.0) then pllims(1,nplot) = xxarr(1) pllims(2,nplot) = xxarr(1) do 270 i = 1, nx1 plot_x(i,nplot) = xxarr(i) pllims(1,nplot) = min(pllims(1,nplot), $ real(xxarr(i))) pllims(2,nplot) = max(pllims(2,nplot), $ real(xxarr(i))) 270 continue errbx(nplot) = .false. if (err_bx) then isarr =iff_eval(dxfunc,name1,dxarr,nx1) errbx(nplot) = .true. do 280 i = 1, nx1 plot_dx1(i,nplot) = xxarr(i) - dxarr(i) plot_dx2(i,nplot) = xxarr(i) + dxarr(i) pllims(1,nplot) = min(pllims(1,nplot), $ real(xxarr(i)-dxarr(i))) pllims(2,nplot) = max(pllims(2,nplot), $ real(xxarr(i)+dxarr(i))) 280 continue endif endif endif endif c if (nplot.eq.0) return cc call echo(' ** plot warning: nothing to plot') nplpts(nplot) = min(nx1, ny1) if (nplpts(nplot).le.1) then if (nx1.le.1) then call warn(2,' ** plot error: no data in x array ') elseif (ny1.le.1) then call warn(2,' ** plot error: no data in y array ') end if return end if c c determine plot limits: my goodness, this is ugly. c c first, find the real limits of the data from the arrays tlim(1) = pllims(1,1) tlim(2) = pllims(2,1) tlim(3) = pllims(3,1) tlim(4) = pllims(4,1) do 440 i = 2, nplot tlim(1) = min(tlim(1), pllims(1,i)) tlim(2) = max(tlim(2), pllims(2,i)) tlim(3) = min(tlim(3), pllims(3,i)) tlim(4) = max(tlim(4), pllims(4,i)) 440 continue if (abs(tlim(2)-tlim(1)).le.prange_min) $ tlim(2) = tlim(2) + prange_min if (abs(tlim(4)-tlim(3)).le.prange_min) $ tlim(4) = tlim(4) + prange_min c c let the user-selected limits override those we just found if (limits(1)) tlim(1) = xlim(1) if (limits(2)) tlim(2) = xlim(2) c c and if limits(1) or limits(2) (xmin or xmax) were set, use the c truncated data range to select a new set of tlim(3) & tlim(4)! if (limits(1).or.limits(2)) then cc print*, 'limits: ', limits(1), limits(2) cc print*, tlim(1), tlim(2), tlim(3), tlim(4), nplpts(1) ix1 = nofxsp(tlim(1), plot_x(1,1), nplpts(1)) ix2 = nofxsp(tlim(2), plot_x(1,1), nplpts(1)) ix1 = max(1, ix1) ix2 = min(nplpts(1), ix2) cc print*, ' ix1, ix2, nplot = ', ix1, ix2, nplot tlim(3) = plot_y(ix1, 1) tlim(4) = plot_y(ix1, 1) do 490 i = 1, nplot ix1 = max(1, nofxsp(tlim(1),plot_x(1,i),nplpts(i))) ix2 = min(nplpts(i),nofxsp(tlim(2),plot_x(1,i),nplpts(i))) do 470 j = ix1, ix2 tlim(3) = min(tlim(3), plot_y(j,i)) tlim(4) = max(tlim(4), plot_y(j,i)) 470 continue 490 continue end if c or, if they were expliticly set, use those if (limits(3)) tlim(3) = xlim(3) if (limits(4)) tlim(4) = xlim(4) c c OK, now we really, really have the plot limits in tlim. whew. c c plot text if (plabel .ne. undef) then nplabs = nplabs + 1 pltlab(nplabs) = plabel xplabs(nplabs) = xpltmp yplabs(nplabs) = ypltmp end if c c plot key (legend) call sclean(pkey) ilkey = istrln(pkey) if ( (pkey .ne. undef).and.(pkey.ne.'').and. $ (pkey.ne.' ').and.(ilkey.ge.1)) then pltkey(nplot) = pkey c else c pltkey(nplot) = '' end if c c c now execute the plot c|||||| c|| pgplot-specific code c|||||| c work over device and output file ipd = max(1, istrln(pltdev)) plotf = pltdev(1:ipd) if ( (pltdev(2:4).eq.'gif').or. $ (pltdev(2:4).eq.'png').or. $ (pltdev(2:4).eq.'cps').or. $ (pltdev(2:4).eq.'vps').or. $ (pltdev(2:5).eq.'vcps').or. $ (pltdev(2:5).eq.'tpng').or. $ (pltdev(2:3).eq.'ps')) then if (pltfil.eq.' ') pltfil = 'ifeffit.'//pltdev(2:) itmp = max(1, istrln(pltfil)) plotf = pltfil(1:itmp)//pltdev(1:ipd) end if c c if opening a new device: c print*, 'iff_plot: nplot, curdev', nplot, icurdev c print*, 'iff_plot: newdev: ', newdev, plotf(:16), c $ ":", pltdev(:10),":" c do i = 1, mpdevs c print*, i, ipgdev(i), pgdevs(i) c enddo cc print*, 'PLOT newdev? ', newdev if (newdev) then ipgdev(2) = pgopen(plotf) icurdev = ipgdev(2) call pgslct(ipgdev(2)) else pltdev = ' ' plotf = ' ' endif if (icurdev .le. 0) then call warn(2,' ** plot error: cannot open device:'//plotf) return end if cc print*, 'PLOT: pgpage' call pgpage call pgbbuf call pgask(.false.) cc print*, 'PLOT: raise plot' call iff_plotraise(1) c set style for the most recent plot if (doplot) then if (tmpsty.ne.undef) then call set_plsty(tmpsty, isty(nplot), pltsty(nplot)) endif c set color for the most recent plot c icol selects the default colors for different devices do 520 j = 0, mctabl if (pltcol(j).ne.undef) call setcol(j,pltcol(j)) 520 continue if (tmpcol.ne.undef) then call setcol(nplot, tmpcol) pltcol(nplot) = tmpcol icol(nplot) = nplot endif cc print*, 'nplot, icol = ', nplot, icol(nplot), tmpcol end if cc if (iprint .ge. 18) then cc print*, 'nplot, isty, icol= ',nplot,isty(nplot),icol(nplot) cc end if c "erase" the screen to fill with background color. call pgeras c fill the viewport in a different color. cc print*, ' mcolbg = ',mcolbg call pgsci(mcolbg) c set char height, width, and font call pgsls(ilnsty) call pgsch(axisiz) call pgscf(ichrfn) call pgslw(ilnwid) call pgvstd if (.not.(limits(1).or.limits(2))) then call pgrnge(tlim(1), tlim(2),tlo,thi) tlim(1) = tlo tlim(2) = thi end if if (.not.(limits(3).or.limits(4))) then call pgrnge(tlim(3), tlim(4),tlo,thi) tlim(3) = tlo tlim(4) = thi end if cc call pgswin(tlim(1), tlim(2), tlim(3), tlim(4)) c c fill the viewport in a different color. cc print*, ' mcolbg = ',mcolbg cc call pgsci(mcolbg) call pgswin(tlim(1), tlim(2), tlim(3), tlim(4)) c make a colored grid if (igrid.eq.1) then xboxs = 'g' call pgsci(mcolgr) call pgbox(xboxs, 0.0, 0, xboxs, 0.0, 0) end if c c make the main box and labels in color 1 call pgsci(mcolfg) xboxs = 'bcnst1' yboxs = 'bcnst1' call pgbox(xboxs, 0.0, 0, yboxs, 0.0, 0) call pgmtxt('l', 3.0, 0.5, 0.5, ylabel) call pgmtxt('b', 3.0, 0.5, 0.5, xlabel) call pgmtxt('t', 0.5, 0.5, 0.5, ptitle) c c plot the graph. call pgslw(ilnwid) ikey = -1 do 700 i = 1, nplot show_key = .false. mpts = nplpts(i) call pgsci(icol(i)) call pgsch(mkrsiz) idum = isty(i) cc cc legend setting, with a few parameters still hardwired in! if (istrln(pltkey(i)).ge.1) then show_key = .true. ikey = ikey+1 xxkey(1) = tlim(1)+ abs(tlim(2) - tlim(1))*(xkey_x0-.05) xxkey(2) = tlim(1)+ abs(tlim(2) - tlim(1))*(xkey_x0-.02) xnkey = tlim(1)+ abs(tlim(2) - tlim(1))*(xkey_x0) xkey_yy = xkey_y0- ikey*xkey_yd yykey(1) = tlim(3)+ abs(tlim(4) - tlim(3))*(xkey_yy) yykey(2) = yykey(1) ynkey = tlim(3)+ abs(tlim(4) - tlim(3))*(xkey_yy-0.02) endif c plot according to current style c lines -- solid, dashed, dotted. if ((idum.ge.1) .and. (idum.le.4)) then call pgsls(isty(i)) call pgline(mpts,plot_x(1,i), plot_y(1, i)) if (show_key) call pgline(2,xxkey, yykey) c c line + points: solid line and a point of some style elseif (idum.ge.5) then itmp = 1 call pgsls(itmp) call pgline(mpts,plot_x(1,i), plot_y(1,i)) if (show_key) call pgline(2,xxkey, yykey) itmp = idum - 5 call pgpt(mpts,plot_x(1,i), plot_y(1,i),itmp) if (show_key) call pgpt(2,xxkey, yykey,itmp) c points only: elseif (idum.le.0) then itmp = -idum call pgpt(mpts,plot_x(1,i), plot_y(1,i), itmp) if (show_key) call pgpt(2,xxkey, yykey,itmp) end if c c error bars: if (errby(i)) then call pgerry(mpts,plot_x(1,i), $ plot_dy1(1,i),plot_dy2(1,i),3.0) endif if (errbx(i)) then call pgerrx(mpts,plot_dx1(1,i), $ plot_dx2(1,i),plot_y(1,i),3.0) endif c legend key: same size as axis labels if (istrln(pltkey(i)).ge.1) then call pgsch(txtsiz) call pgtext(xnkey,ynkey,pltkey(i)) endif 700 continue c text labels call pgsci(mcolfg) call pgsch(txtsiz) do 800 i = 1, nplabs if (pltlab(i).ne. undef) then call pgtext(xplabs(i), yplabs(i), pltlab(i) ) end if 800 continue c markers call pgsch(mkrsiz) do 820 i = 1, npmark if (imarker(i) .ge. -1000) then call pgsci(mrkcol(i)) call pgpt1(xmarks(i), ymarks(i), imarker(i)) endif 820 continue call pgsci(mcolfg) c arrow do 830 i = 1, nparro xxkey(1) = xarros(i,1) yykey(1) = xarros(i,2) xxkey(2) = xarros(i,3) yykey(2) = xarros(i,4) call pgsls(1) call pgsci(int(xarros(i,8))) if (iarrow(i) .eq. -1) then call pgline(2,xxkey,yykey) else call pgsch(xarros(i,7)) call pgsah(iarrow(i),xarros(i,5),xarros(i,6)) call pgarro(xxkey(1),yykey(1),xxkey(2),yykey(2)) end if 830 continue c c empty plot buffer call pgebuf c overwrite plot variables call settxt('group', name1) call settxt('plot_device', pltdev) call settxt('plot_file', pltfil) call settxt('plot_xlabel', xlabel) call settxt('plot_ylabel', ylabel) call settxt('plot_title', ptitle) cc cc if this was a hardcopy-plot, close device and hand control cc back to default plot device if (icurdev .gt. 1) then ix1 = istrln(pltfil) call echo(' wrote plot file ' // pltfil(:ix1)) call pgclos call pgslct(ipgdev(1)) pgdevs(2) = ' ' ipgdev(2) = -1 icurdev = 1 plotf = ' ' end if c end subroutine iff_plot return end ifeffit-1.2.11d/src/lib/sort2.f0000644000175000017500000000520010771740457015136 0ustar segresegre subroutine sort2(n, ra, rb) c heap sort real array ra of length n to ascending order, c and make the corresponding rearrangement to rb. implicit none integer n, l, ir, i, j double precision ra(*), rb(*), xa, xb l = n / 2 + 1 ir = n c heap creation phase c index l is decremented from its initial value down to 1 10 continue if (l.gt.1) then l = l - 1 xa = ra(l) xb = rb(l) c heap selection phase c index ir is decremented from its initial value to to 1 else xa = ra(ir) xb = rb(ir) ra(ir) = ra(1) rb(ir) = rb(1) ir = ir - 1 if (ir.eq.1) then ra(1) = xa rb(1) = xb go to 50 end if end if c sift down xa i = l j = l + l 20 continue if (j.le.ir) then c found better low element if ((j.lt.ir).and.(ra(j).lt.ra(j+1))) j = j + 1 c demote xa if (xa.lt.ra(j)) then ra(i) = ra(j) rb(i) = rb(j) i = j j = j + j else j = ir + 1 end if c ends the sift-down go to 20 end if c restore xa and xb ra(i) = xa rb(i) = xb go to 10 c return 50 continue return c end subroutine sort2 end integer function sort_xy(e, x, n, delta) c c check and sort a pair of energy/xmu data to c ensure that energy is monotonically increasing c c returns 0 for data that needs no sort or rearrangement c 1 if sorting or rearrangement were needed implicit none double precision e(*), x(*), de, delta, dm integer n, i, k, j logical sort, near near = .false. sort = .false. cc print*, ' in sort_xy ' c first, look for problems do 10 i = 1, n-1 de = e(i+1)-e(i) if (de.lt.0) sort = .true. 10 continue c cc print*, ' in sort_xy ', sort, near c if needed, sort if (sort) call sort2(n, e, x) c c if needed, handle coincident x points c by slightly incrementing values do 100 i = 1, n-1 de = e(i+1)-e(i) if (abs(de).lt.delta) then near = .true. dm = delta*10.d0 if (i .eq. n-1.and.i.ge.2) then dm = max(delta,(e(i)-e(i-1))*0.01d0) else dm = max(delta,(e(i+2)-e(i))*0.01d0) endif e(i+1) = e(i) + dm cc print*, ' moving energy point ', i, e(i+1) endif 100 continue sort_xy = 0 if (sort.or.near) sort_xy = 1 return end ifeffit-1.2.11d/src/lib/iff_correl.f0000644000175000017500000001473410771740457016213 0ustar segresegre subroutine iff_correl(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c c purpose: turn two-variable correlation to Program Variable c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'feffit.h' save character*(*) str character*128 xvar, yvar, out, defkey(3)*64 double precision xn, xcmin, getsca logical lprint, lxall, lyall, lsave integer ier, i, k, istrln, ndfkey, jx, jy, lx, ly external istrln, getsca c c get default values for pre-edge parameters from current scalar values lprint = .false. lsave = .true. call iff_sync call bkeys(str, mkeys, keys, values, nkeys) xvar = ' ' yvar = ' ' out = undef xcmin= getsca('correl_min',1) c set default keywords for "undefined" sets c ie: the first two unkeyed values will take keys 'x', 'y' ndfkey = 2 defkey(1) = 'x' defkey(2) = 'y' do 100 i = 1, nkeys cc print*,i, keys(i) k = istrln( keys(i)) if ((values(i).eq.undef).and.(i.le.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if (keys(i).eq.'x') then xvar = values(i) call lower(xvar) elseif (keys(i).eq.'y') then yvar = values(i) call lower(yvar) elseif (keys(i).eq.'out') then out = values(i) call lower(out) elseif (keys(i).eq.'min') then call str2dp(values(i), xcmin, ier) elseif (keys(i).eq.'print') then call str2lg( values(i), lprint, ier) elseif (keys(i).eq.'save') then call str2lg( values(i), lsave, ier) elseif (keys(i).eq.'no_save') then call str2lg( values(i), lsave, ier) lsave = .not.lsave else messg = keys(i)(1:k)//' " will be ignored' call warn(1,' *** correl: unknown keyword " '//messg) end if 100 continue c c get/resolve array names lx = istrln(xvar) ly = istrln(yvar) lxall = xvar.eq.'@all' lyall = yvar.eq.'@all' cc print*, 'correl ', xvar(1:lx), ' and ', yvar(1:ly) cc print*, ' save/print ',lsave,lprint jx = 0 jy = 0 do 150 i = 1, nvarys if (scanam(i).eq.xvar(1:lx)) jx = i if (scanam(i).eq.yvar(1:ly)) jy = i 150 continue if (nvarys.le.1) then call warn(2,' *** correl: too few variables!') else if (lxall.and.lyall) then do 240 jx = 1, nvarys xvar = scanam(jx) lx = istrln(xvar) do 230 jy = 1, jx-1 yvar = scanam(jy) ly = istrln(yvar) write(out,'(4a)') 'correl_',xvar(1:lx), $ '_', yvar(1:ly) call iff_correl_s(jx,jy,out,xcmin,lprint,lsave) 230 continue 240 continue elseif (lxall) then ly = istrln(yvar) do 280 jx = 1, nvarys xvar = scanam(jx) lx = istrln(xvar) write(out,'(4a)') 'correl_',xvar(1:lx), $ '_', yvar(1:ly) if (jx.ne.jy) $ call iff_correl_s(jx,jy,out,xcmin,lprint,lsave) 280 continue elseif (lyall) then lx = istrln(xvar) do 290 jy = 1, nvarys yvar = scanam(jy) ly = istrln(yvar) write(out,'(4a)') 'correl_',xvar(1:lx), $ '_', yvar(1:ly) if (jx.ne.jy) $ call iff_correl_s(jx,jy,out,xcmin,lprint,lsave) 290 continue else if ((jx.le.0).or.(jy.le.0)) then if (jx.le.0) then messg = xvar(1:lx)//' is not a fitting variable' call warn(1,' *** correl: '//messg) elseif (jy.le.0) then messg = yvar(1:ly)//' is not a fitting variable' call warn(1,' *** correl: '//messg) endif else if (out.eq.undef) then lx = istrln(xvar) ly = istrln(yvar) write(out,'(4a)') 'correl_',xvar(1:lx), $ '_', yvar(1:ly) endif endif call iff_correl_s(jx,jy,out,xcmin,lprint,lsave) endif endif return c end subroutine iff_correl end subroutine iff_correl_s(jx,jy,out,xmin,lprint,lsave) implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'feffit.h' save character*(*) out double precision xn, xmin logical lprint, lsave integer jx,jy, il, istrln external istrln xn = correl(jx,jy) if (abs(xn) .gt. abs(xmin)) then if (lsave) call setsca(out,xn) if (lprint) then il = istrln(out) write(messg,99) out(1:il), xn call echo(messg) endif endif 99 format(2x,a,' =',f12.6) return end ifeffit-1.2.11d/src/lib/ifeffitc.c0000644000175000017500000000772010771740457015652 0ustar segresegre/* ifeffitc.c : C interface to IFeffit XAFS Analysis library This module provides a simple set of functions to interface with the IFEFFIT XAFS Analysis library. The functions provided are: iff_exec(cmd) execute an ifeffit command iff_put_scalar(name,val) put a double to a named ifeffit scalar iff_get_scalar(name) get a named ifeffit scalar iff_put_string(name,val) put a string as a named ifeffit string iff_get_string(name) get a named ifeffit string iff_put_array(name,len,arr) set an array as a named ifeffit array iff_get_array(name,arr) get a named ifeffit array as an array iff_get_echo(char) get line from ifeffit's echo cache iff_strval(char) return pointer to ifeffit string c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// */ #include #include #include #include "ifeffit.h" /* execute ifeffit command */ IFF_EXPORT(int) iff_exec(char *cmd) { char iff_str[1027]; sprintf(iff_str, "%s\n\n\0", cmd); return (ifeffit_(iff_str, strlen(iff_str))); } IFF_EXPORT(int) ifeffit(char *cmd) { char iff_str[1027]; sprintf(iff_str, "%s\n\n\0", cmd); return (ifeffit_(iff_str, strlen(iff_str))); } /* put double into a named ifeffit scalar */ IFF_EXPORT(int) iff_put_scalar(char *name, double *val) { char cmd[1027]; sprintf(cmd, "%s = %19.12g", name, *val); return (iff_exec(cmd)); } /* get double from a named ifeffit scalar */ IFF_EXPORT(int) iff_get_scalar(char *name, double *val) { return (iffgetsca_(name, val, strlen(name) )); } /* put string into a named ifeffit string */ IFF_EXPORT(int) iff_put_string(char *name, char *val) { char cmd[1027]; sprintf(cmd, "$%s = '%s'", name, val); return (iff_exec(cmd)); } /* get string from a named ifeffit string */ IFF_EXPORT(int) iff_get_string(char *name, char *val) { int i; char tmp[256]; i = iffgetstr_(name, tmp, strlen(name), 256); strncpy(val,tmp,i+1); return i; } /* put array of length n into a named ifeffit array */ IFF_EXPORT(int) iff_put_array(char *name, int *n, double *arr) { return (iffputarr_(name, n, arr, strlen(name)) ); } /* get array from named ifeffit array */ IFF_EXPORT(int) iff_get_array(char *name, double *arr) { return (iffgetarr_(name, arr, strlen(name)) ); } IFF_EXPORT(int) iff_get_echo(char *val) { int i; char tmp[512]; i = iffgetecho_(tmp, 512); strncpy(val, tmp, i+1); return i; } IFF_EXPORT(char*) iff_strval(char *name) { int i; char *t, *c; t = calloc(256,sizeof(char)); i = iff_get_string(name, t); c = calloc(i+1,sizeof(char)); strncpy(c,t,i+1); free(t); return c; } IFF_EXPORT (double) iff_scaval(char *name) { int i; double x=0; i = iff_get_scalar(name, &x); return x; } ifeffit-1.2.11d/src/lib/iff_rename.f0000644000175000017500000000434110771740457016165 0ustar segresegre subroutine iff_rename(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c rename an array or scalar values for ifeffit implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' save character*(*) str, s1*256, s2*256 integer nwrds, iw, i, k1, k2, istrln external istrln nwrds = mkeys call bwords(str,nwrds,keys) c check if this is a vector or scalar do 300 iw = 1, nwrds, 2 k1 = istrln(keys(iw )) k2 = istrln(keys(iw+1)) s1 = keys(iw )(1:k1) s2 = keys(iw+1)(1:k2) call lower(s1) call lower(s2) if (index(s1,'.').eq.0) then do 130 i = 1, maxsca if (s1.eq.scanam(i)) scanam(i) = s2 130 continue else do 150 i = 1, maxarr-1 if (s1.eq.arrnam(i)) arrnam(i) = s2 150 continue end if 300 continue c return end ifeffit-1.2.11d/src/lib/COPYING0000644000175000017500000000250610771740457014757 0ustar segresegreCopyright, Licensing, and Re-distribution ----------------------------------------- All files in this directory are distributed under the following license: Copyright (c) 1997--2000 Matthew Newville, The University of Chicago Copyright (c) 1992--1996 Matthew Newville, University of Washington Permission to use and redistribute the source code or binary forms of this software and its documentation, with or without modification is hereby granted provided that the above notice of copyright, these terms of use, and the disclaimer of warranty below appear in the source code and documentation, and that none of the names of The University of Chicago, The University of Washington, or the authors appear in advertising or endorsement of works derived from this software without specific prior written permission from all parties. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. ifeffit-1.2.11d/src/lib/chipth.f0000644000175000017500000002006410771740457015351 0ustar segresegre subroutine chipth(ampfef, phafef, qfeff, xlamb, realp, nfxpts, $ reffin, nkpar, akpts, aamp,apha, mchiq,chiqr,chiqi) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c evaluate the theoretical chi(k) for a scattering path given c information from feff arrays (ampfef .. degen) and xafs path c parameters (s02 .. apha) c c input: c ampfef amplitude from feff for the path c phafef phase shift from feff (w/o 2*k*r term) for the path c qfeff k-values from feff for the other feff arrays c xlamb mean-free-path from feff c realp real part of p (momentum) from feff c nfxpts number of data points in the feff arrays c reff half path length for the path c nkpar # of k-points for k, phase, and array path parameters c akpts array of k-points for array path parameters c aamp array of amplitude-points for array path parameters c apha array of phase-points for array path parameters c mchiq array dimension for chiqr and chiqi c output: c chiqr real \ part of complex chi(k) for this path c chiqi imag / with all path parameters applied c **note measured chi(k) data corresponds to chiqi ** c c in param() (from pthpar.h): c degen path degeneracy (# of equivalent paths) c s02 constant multiplicitive amplitude factor for the path c e0shft e0 shift to use for the path c e0imag imaginary e0 shift / broadening for the path c delpha constant phase shift (delta phase ) c deltar delta r to add to reff for the path c sigma2 debye-waller factor for the path c third third cumulant for the path c fourth fourth cumulant for the path c c------------------------------------------------------------------ implicit none include 'consts.h' include 'pthpar.h' integer izero, ipos, i, nfxpts, nqdata, mchiq, nqffmx integer nkpar, nkpos complex*16 coni, cp, cp2, cphshf, cdwf, cargu, cchi, ciei double precision akpts(*), aamp(*), apha(*), tmpa, tmpp double precision pparams(10) double precision chiqr(mchiq), chiqi(mchiq) double precision e0eff, s02r2n, degen, reffin, reff double precision s02, e0shft, e0imag, delpha, deltar, sigma2 double precision first, fourth, r2m2, energy, q, third double precision small, half, expmax, expmin double precision rep, xlam, cxlam, pha, amp, car, x3rd, x4th double precision ampfef(nfxpts), phafef(nfxpts), qpos double precision qfeff(nfxpts), xlamb(nfxpts), realp(nfxpts) logical le0big, iskpar parameter (coni = (0.d0, 1.d0) ) parameter (small=1.d-6, half =0.5d0) parameter (expmax= 85.d0, expmin = -expmax) c------------------------------------------------------------------ degen = param(jfpdeg) s02 = param(jfps02) e0shft = param(jfpe0) e0imag = param(jfpei) delpha = param(jfppha) deltar = param(jfpdr) sigma2 = param(jfpss2) third = param(jfp3rd) fourth = param(jfp4th) c combine path parameters and feff data to get theory chi c note: feff writes out the feffnnnn.dat files such that c phase = 2*q*r + phase_shifts. additional phase shifts and c all amplitude reduction terms use p, the complex momentum. c q is used only to reproduce chi(k) from feff nqffmx = int((qfeff(nfxpts) + 1.d0) / qgrid) + 1 nqdata = min(nqffmx, mchiq) c print*, 'chipth: nqffmx, nqdata, nqvals, mchiq' c print*, nqffmx, mchiq, nqdata c tranquada correction reff = max(small, reffin) first = deltar - 2 * sigma2 / reff r2m2 = 1 / (reff + deltar)**2 le0big = (abs(e0shft).ge.small) iskpar = nkpar.gt.0 cc print*, ' CHIPTH ', nkpar, iskpar c ipos is a place holder for the routine lintrp c izero stores the index of the q = 0. location. ipos = 1 nkpos = 1 izero = 0 c store some multiplications/divisions before the main loopa e0eff = e0shft * etok ciei = coni * e0imag * etok s02r2n = degen * s02 * r2m2 x4th = fourth / 3 x3rd = 2 * (third / 3) c the official xafs calculation loop: do 500 i = 1, nqdata c e0-shift the value of q q = (i - 1) * qgrid if (le0big) then energy = q*q - e0eff q = sign(one,energy) * sqrt(abs(energy)) end if c q = zero is special, and will be dealt with below if (abs(q).le.small) then izero = i else c cubic spline interpolatation of c amplitude, phase, realp and xlamb of feff chi call hunt(qfeff,nfxpts,q,ipos) qpos = 0 if (abs(qfeff(ipos+1) - qfeff(ipos)).gt.small) then qpos = (q-qfeff(ipos))/(qfeff(ipos+1)-qfeff(ipos)) endif pha = phafef(ipos) + qpos*(phafef(ipos+1) -phafef(ipos)) amp = ampfef(ipos) + qpos*(ampfef(ipos+1) -ampfef(ipos)) rep = realp(ipos) + qpos*( realp(ipos+1) - realp(ipos)) xlam= xlamb(ipos) + qpos*( xlamb(ipos+1) - xlamb(ipos)) c k-dependent path parameters if (iskpar) then call hunt(akpts,nkpar,q,nkpos) nkpos = min(nkpar-1,max(1,nkpos)) qpos = 0 if (abs(akpts(nkpos+1) - akpts(nkpos)).gt.small) then qpos = (q - akpts(nkpos))/ $ (akpts(nkpos+1)-akpts(nkpos)) endif tmpa = aamp(nkpos) + qpos*(aamp(nkpos+1) -aamp(nkpos)) tmpp = apha(nkpos) + qpos*(apha(nkpos+1) -apha(nkpos)) amp = amp * tmpa pha = pha + tmpp endif c evaluate complex momemtum cp2 = (rep + coni/xlam)**2 + ciei cp = sqrt(cp2) c mean free path, complex debye-waller factor and phase shift cxlam = -2*reff* dimag(cp) cdwf = -2*cp2 * (sigma2 - cp2 * x4th) cphshf = 2*cp * (first - cp2 * x3rd) + delpha c create complex chi, first checking that the exponential won't crash cargu = cxlam + cdwf + coni*(2*q*reff + pha + cphshf) car = max(expmin, min(expmax, dble(cargu))) cchi = (amp * s02r2n / abs(q)) * $ exp(dcmplx(car, dimag(cargu))) c save real and imag chi for this value of q chiqi(i) = dimag(cchi) chiqr(i) = -dble(cchi) end if 500 continue c fill in guess for data at q = zero if needed if (izero.eq.1) then chiqr(1) = 2*chiqr(2) - chiqr(3) chiqi(1) = 2*chiqi(2) - chiqi(3) elseif (izero.ge.2) then chiqr(izero) = (chiqr(izero-1) + chiqr(izero+1)) * half chiqi(izero) = (chiqi(izero-1) + chiqi(izero+1)) * half end if return c end subroutine chipth end ifeffit-1.2.11d/src/lib/iff_cursor.f0000644000175000017500000003065210771740457016237 0ustar segresegre subroutine iff_cursor(argu) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c get cursor position of plot: c uses pgpplot routine pgband implicit none include 'consts.h' include 'keywrd.h' include 'ifplot.h' save character c*1, str*32, argu*(*) c note: pgcurs uses single precision! real rx, ry, ox, oy double precision d_x, d_y, getsca logical do_show integer iff_eval_in, i, ier, k integer pgband, iret, ilen, istrln, mode, iposn external pgband, istrln, getsca, iff_eval_in c = ' ' str = argu call bkeys(str, mkeys, keys, values, nkeys) mode = 0 iposn= 0 do 100 i = 1, nkeys k = istrln( keys(i)) if (keys(i).eq.'show') then do_show = .true. elseif (keys(i).eq.'mode') then ier = iff_eval_in(values(i),mode) elseif (keys(i).eq.'last_pos') then ier = iff_eval_in(values(i),iposn) elseif ((keys(i).eq.'cross-hair') .or. $ (keys(i).eq.'cross_hair') .or. $ (keys(i).eq.'crosshair') ) then mode = 7 elseif (keys(i).eq.'vert') then mode = 6 elseif (keys(i).eq.'horiz') then mode = 5 elseif (keys(i).eq.'xrange') then mode = 4 elseif (keys(i).eq.'yrange') then mode = 3 else messg = keys(i)(1:k)//' " will be ignored' call warn(1,' *** cursor: unknown keyword " '//messg) end if 100 continue c grwin specific: raise to top call iff_plotraise(1) ox = real(getsca('cursor_x',1)) oy = real(getsca('cursor_y',1)) call echo(' select cursor position') iret = pgband(mode, iposn, ox, oy, rx, ry, c) if (iret.eq.1) then call setsca('cursor_x', dble(rx)) call setsca('cursor_y', dble(ry)) end if if (do_show) then write(tmpstr,'(1x,a,g15.6,a,g15.6)') 'cursor: x = ', rx, $ ', y = ', ry call echo(' '//tmpstr) endif return c end subroutine cursor end subroutine iff_zoom(argu) c c zoom in on plot implicit none include 'consts.h' include 'keywrd.h' include 'ifplot.h' save integer i, ilen, istrln, k integer pgband, iret, mode1, mode2 logical do_show real rx1, rx2, ry1, ry2 double precision getsca character*32 str, s, argu*(*), c*1 external istrln, pgband, getsca c mode1 = 7 mode2 = 2 str = argu call bkeys(str, mkeys, keys, values, nkeys) do 100 i = 1, nkeys k = istrln( keys(i)) if (keys(i).eq.'show') then do_show = .true. elseif (keys(i).eq.'nobox') then mode1 = 0 mode2 = 0 else messg = keys(i)(1:k)//' " will be ignored' call warn(1,' *** zoom: unknown keyword " '//messg) end if 100 continue c get first point with pgband mode=0 rx2 = real(getsca('cursor_x',1)) ry2 = real(getsca('cursor_y',1)) c grwin specific: raise to top call iff_plotraise(1) call echo(' select cursor position') iret = pgband(mode1, 0, rx2, ry2, rx1, ry1, c) rx2 = rx1 ry2 = ry1 c now use specified mode iret = pgband(mode2, 0, rx1, ry2, rx2, ry2, c) call setsca('cursor_x', dble(rx2)) call setsca('cursor_y', dble(ry2)) xlim(1) = dble(min(rx1,rx2)) xlim(2) = dble(max(rx1,rx2)) xlim(3) = dble(min(ry1,ry2)) xlim(4) = dble(max(ry1,ry2)) do 200 i = 1, 4 limits(i) = .true. 200 continue write(tmpstr,'(1x,a,g15.6)') 'xmin= ', xlim(1) call iff_plot(tmpstr) c if (do_show) then write(tmpstr,'(1x,a,g15.6,a,g15.6)') 'cursor: x = ', xlim(1), $ ', y = ', xlim(3) call echo(' '//tmpstr) write(tmpstr,'(1x,a,g15.6,a,g15.6)') 'cursor: x = ', xlim(2), $ ', y = ', xlim(4) call echo(' '//tmpstr) endif c return end subroutine iff_plotmarker(str) c c plot a single marker point at an x/y position implicit none include 'consts.h' include 'keywrd.h' include 'ifplot.h' save character c*1, str*(*) c note: pgcurs uses single precision! real rx, ry,xx,yy character*64 defkey(3), color double precision getsca integer iff_eval_re, iff_eval_in, i, ier, k, ij integer idfkey, ndfkey,j, jtcol integer iret, ilen, istrln, mode, iposn external istrln, getsca, iff_eval_re, iff_eval_in call bkeys(str, mkeys, keys, values, nkeys) defkey(1) = 'x' defkey(2) = 'y' defkey(3) = 'marker' idfkey = 1 ndfkey = 3 tmpstr = undef color = pltcol(mcolfg) ij = -1001 do 100 i = 1, nkeys k = istrln( keys(i)) if (keys(i).eq.'clear') then npmark = 0 do 88 j = 1, mpmark imarker(j) = -13000 88 continue else if ((values(i).eq.undef).and. $ (idfkey.le.ndfkey).and.(i.le.5)) then values(i) = keys(i) keys(i) = defkey(idfkey) idfkey = idfkey + 1 end if if (keys(i).eq.'x') then ier = iff_eval_re(values(i),xx) elseif (keys(i).eq.'y') then ier = iff_eval_re(values(i),yy) elseif (keys(i).eq.'marker') then ier = iff_eval_in(values(i),ij) elseif (keys(i).eq.'clear') then npmark = 0 elseif (keys(i).eq.'color') then color = values(i) else messg = keys(i)(1:k)//' " will be ignored' call warn(1,' *** plot_marker: unknown keyword " '//messg) end if 100 continue if (ij .ge. -1000) then npmark = npmark + 1 imarker(npmark) = ij xmarks(npmark) = xx ymarks(npmark) = yy call getcol(color,jtcol) mrkcol(npmark) = jtcol end if call iff_plot(' ') return c end subroutine plot_marker end subroutine iff_plotarrow(str) c c plot an arrow implicit none include 'consts.h' include 'keywrd.h' include 'ifplot.h' save character c*1, str*(*) c note: pgcurs uses single precision! real x1,x2,y1,y2, barb,angle, size, xx(2),yy(2) character*64 defkey(5),color integer iff_eval_re, i, ier, k, ij, j, jtcol integer idfkey, ndfkey, ixarr integer iret, ilen, istrln, mode, iposn external istrln, iff_eval_re call bkeys(str, mkeys, keys, values, nkeys) defkey(1) = 'x1' defkey(2) = 'y1' defkey(3) = 'x2' defkey(4) = 'y2' angle = 45 barb = 0.4 size = 2 idfkey = 1 ndfkey = 4 ixarr = 1 color = pltcol(mcolfg) do 100 i = 1, nkeys k = istrln( keys(i)) if (keys(i).eq.'clear') then nparro = 0 do 88 j = 1, mparro iarrow(i) = -1 88 continue elseif ((values(i).eq.undef).and. $ (idfkey.le.ndfkey).and.(i.le.5)) then values(i) = keys(i) keys(i) = defkey(idfkey) idfkey = idfkey + 1 end if if (keys(i).eq.'x1') then ier = iff_eval_re(values(i),x1) elseif (keys(i).eq.'y1') then ier = iff_eval_re(values(i),y1) elseif (keys(i).eq.'x2') then ier = iff_eval_re(values(i),x2) elseif (keys(i).eq.'y2') then ier = iff_eval_re(values(i),y2) elseif (keys(i).eq.'y2') then ier = iff_eval_re(values(i),y2) elseif (keys(i).eq.'barb') then ier = iff_eval_re(values(i),barb) elseif (keys(i).eq.'angle') then ier = iff_eval_re(values(i),angle) elseif (keys(i).eq.'color') then color = values(i) elseif (keys(i).eq.'size') then ier = iff_eval_re(values(i),size) elseif (keys(i).eq.'no_head') then ixarr= -1 elseif (keys(i).eq.'fill') then ixarr= 1 elseif (keys(i).eq.'outline') then ixarr= 2 elseif (keys(i).eq.'clear') then nparro = 0 ixarr = -100 else messg = keys(i)(1:k)//' " will be ignored' call warn(1,' *** plot_arrow: unknown keyword " '//messg) end if 100 continue if (ixarr .ge. -10) then nparro = nparro + 1 iarrow(nparro) = ixarr xarros(nparro,1) = x1 xarros(nparro,2) = y1 xarros(nparro,3) = x2 xarros(nparro,4) = y2 xarros(nparro,5) = angle xarros(nparro,6) = barb xarros(nparro,7) = size call getcol(color,jtcol) xarros(nparro,8) = jtcol endif call iff_plot(' ') return c end subroutine plot_arrow end subroutine iff_plottext(str) c c plot a single marker point at an x/y position implicit none include 'consts.h' include 'keywrd.h' include 'ifplot.h' save character c*1, str*(*) c note: pgcurs uses single precision! real xx, yy character*64 defkey(5) double precision getsca integer iff_eval_re, iff_eval_in, i, ier, k, ij integer idfkey, ndfkey,j integer iret, ilen, istrln, mode, iposn external istrln, getsca, iff_eval_re, iff_eval_in call rmquot(str) call bkeys(str, mkeys, keys, values, nkeys) defkey(1) = 'x' defkey(2) = 'y' defkey(3) = 'text' idfkey = 1 ndfkey = 3 tmpstr = undef do 100 i = 1, nkeys k = istrln( keys(i)) if (keys(i).eq.'clear') then do 88 j = 1, nplabs pltlab(j) = undef 88 continue endif if ((values(i).eq.undef).and. $ (idfkey.le.ndfkey).and.(i.le.5)) then values(i) = keys(i) keys(i) = defkey(idfkey) idfkey = idfkey + 1 end if if (keys(i).eq.'x') then ier = iff_eval_re(values(i),xx) elseif (keys(i).eq.'y') then ier = iff_eval_re(values(i),yy) elseif (keys(i).eq.'text') then tmpstr = values(i) elseif (keys(i).eq.'clear') then nplabs = 0 elseif (keys(i).eq.'size') then ier = iff_eval_re(values(i), txtsiz) else messg = keys(i)(1:k)//' " will be ignored' call warn(1,' *** plot_text: unknown keyword " '//messg) end if 100 continue c plot text if (tmpstr .ne. undef) then nplabs = nplabs + 1 call rmquot(tmpstr) pltlab(nplabs) = tmpstr xplabs(nplabs) = xx yplabs(nplabs) = yy end if call iff_plot(' ') return c end subroutine cursor end ifeffit-1.2.11d/src/lib/iff_set.f0000644000175000017500000002576310771740457015524 0ustar segresegre subroutine iff_set(key,str,wrthis) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: set program variables for ifeffit: c scalars, arrays, strings, string arrays c arguments: c key command to perform (def, set, guess) [in] c str command line for ifeffit [in] c c notes: c 1. needed changes: c a) add string arrays (for titles lines, plot labels, ???) c b) support guess c c requires: everything in ifeffit implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'encod.h' include 'echo.h' save character*(*) key, str, prefix*256, tmpnam*64 character*2048 formula, bxvals(mkeys) integer iofarr, iofsca, istrln, ilen, iltmp integer icode(micode) , jcode(micode), encod, i_sync integer i, j, k, ntmp, idot, ier, ik, isset, isgues, ix integer xafs_path, iup, ret double precision tmp2(maxpts), tmpx, getsca logical isarr, isnum, istext, s_is_n, trivial logical isvnam, wrthis,lkeep, ic_is_arr external iofarr, iofsca, istrln, isnum external isvnam, ic_is_arr, encod, getsca, xafs_path c find the right thing to evaluate: c 1. is it something that takes a string value, or a numeric value? c 2. if numeric, is it an array or a scalar? c if not, assume it will be an array, -- we'll check later c look for an array with the same name, or the first empty array c print*, 'iff_set ', key(1:3), mac_define(1) call gettxt('group', prefix) call bkeys(str, mkeys, keys, bxvals, nkeys) c GUESS / SET / DEF if (int(getsca('&sync_level',0)).ge.6) call iff_sync isgues = 0 isset = 0 if (key.eq.'guess') isgues = 1 if (key.eq.'set') isset = 1 ix = 0 c 100 continue ix = ix + 1 if (ix.gt.nkeys) return ntmp = maxsize_array ilen = istrln(bxvals(ix)) s_is_n = isnum(bxvals(ix)(1:ilen)) ccc formula= '('//bxvals(ix)(1:ilen)//')' formula= bxvals(ix)(1:ilen) tmpnam = keys(ix) iltmp = istrln(tmpnam) cc print*, ' iff_set: ', tmpnam(:iltmp), ' -> ', formula(1:ilen) if ((iltmp.le.0).or.(tmpnam.eq.undef)) then call echo(' Warning -- command ignored (typo?):') call warn(1,' -> '//keys(ix)(1:ik)) go to 100 endif istext = tmpnam(1:1).eq.'$' c if the value is undefined, then the string was almost certainly c a typo that got misinterpreted by getlin to be "set gibberish" if (bxvals(ix).eq.undef) then ik = istrln(keys(ix)) call echo(' Warning -- command ignored (typo?):') call warn(1,' -> '//keys(ix)(1:ik)) wrthis = .false. go to 100 end if c c is the value defined? c is this a text variable? if (istext) then if (.not.isvnam(tmpnam,3)) then ik = istrln(tmpnam) call warn(1,' Invalid text string name: '// $ tmpnam(1:ik) ) go to 100 end if if (tmpnam.eq.'$&build') then call warn(2,' can''t reset value of $&build') go to 100 endif cc call str_eval(bxvals(ix), messg) cc print*, ' messg = ', messg(1:20) call settxt(tmpnam(2:),bxvals(ix)) return c check for immutable values, like pi: elseif (tmpnam.eq.'pi') then call warn(2,' can''t reset value of pi') go to 100 elseif (tmpnam.eq.'etok') then call warn(2,' can''t reset value of etok') go to 100 c this is a numeric variable (scalar or array and maybe "guess"ed) else c c first, check that it's not a macro or command name do 280 i = 1 , mckeys if (ckeys(i).eq.tmpnam) then ik = istrln(tmpnam) call warn(2,' Invalid variable name: '// $ tmpnam(1:ik) // ' is a command name') go to 100 end if 280 continue do 290 i = 1 , macmax if (macnam(i).eq.tmpnam) then ik = istrln(tmpnam) call warn(2,' Invalid variable name: '// $ tmpnam(1:ik) // ' is a macro name') go to 100 end if 290 continue if (.not.isvnam(tmpnam,-1)) then ik = istrln(tmpnam) call warn(2,' Invalid variable name: '// $ tmpnam(1:ik) ) go to 100 end if c so encod and decod the array cc print*, 'iff_set-> encode for ',s_is_n,' ',formula(1:50) if (s_is_n) then cc print*, ' call str2dp ', bxvals(ix)(1:ilen) call str2dp(bxvals(ix)(1:ilen),tmparr(1), ier) tmparr(2) = zero isarr = .false. trivial = .true. idot = 0 else trivial = .false. cc print*, ' - encod : ', formula(1:40) ier = encod(formula, jcode, icode) if (ier.ne.0) goto 700 if (iprint.ge.1) call rpndmp(jcode) tmparr(1) = zero tmparr(2) = zero cc print*, ' - decod' call decod(icode, micode, consts, scalar, array, $ narray, nparr, maxsize_array, maxarr, ntmp, tmparr) cc print*, 'iff_set: ntmp = ', ntmp c now check whether this should have really been a scalar c that is, does the array refer to other arrays?? isarr = ic_is_arr(icode,micode).and.(ntmp .gt. 1) isarr = isarr.and.(isgues.eq.0) idot = index(tmpnam,'.') cc print*, ' isarr ', ic_is_arr(icode,micode), ntmp endif cc print*, 'iff_set: isarr, isset = ', isarr, isset c this is an array if (isarr) then cc print*, ' - set_array ', ntmp call set_array(tmpnam, prefix, tmparr, ntmp, 1) k = iofarr(tmpnam,prefix,0,0) if (k.lt.0) then call echo(' *** error: could not find variable') tmpstr = ' *** trying to define '//tmpnam call warn(2,tmpstr) return else if (k.eq.0) then call warn(3,' *** error: out of memory') return endif arrfrm(k) = ' ' c c here (and only here) do we 'save the formula' of an array if (isset.eq.0) then arrfrm(k) = formula do 440 j = 1, micode icdarr(j,k) = icode(j) 440 continue endif c print*, ' saving formula for ', k, ' -> ', tmpnam(1:40) c print*, ' == ', arrfrm(k)(1:40) c call rpndmp(jcode) c call rpndmp(icdarr(1,k)) call fixarr(k,tmpnam,ntmp,isset) c c this is a scalar else idot = index(tmpnam,'.') cc print* ,' value is a scalar ', idot, tmpnam if (idot.ne.0) then k = istrln(tmpnam) ik = istrln(formula) cc call rpndmp(icode) call echo(' ** cannot set scalar value to array **') call warn(2,' '//tmpnam(1:k)//' = '//formula(1:ik)) return end if c look up str in list of scalar names k = iofsca(tmpnam, 1) scanam(k) = tmpnam scafrm(k) = ' ' scalar(k) = tmparr(1) c is this a 'set' or 'guess' or is it a 'def' if ((isgues.eq.1).or.(isset.eq.1)) then do 460 j = 2, micode icdsca(j,k) = 0 460 continue icdsca(1,k) = k + jscale if (isgues.eq.1) icdsca(1,k) = -1 else c determine if this is a trivial definition 'z = 22.' c or even sqrt(4/7), which is to say: no named Program Variables, c just constant numbers and operators. if (.not.trivial) then cc print*, ' non trivial scalar' scafrm(k) = formula tmpx = zero call str2dp(formula,tmpx,ier) if (tmpx .ne. zero) then trivial = $ (abs(tmpx - tmparr(1))/tmpx .le. 1.d-6) elseif(ier.eq.-999) then trivial = .true. do 470 j = 1, micode if (((icode(j) .ge. 1) .and. $ (icode(j) .lt. jconst))) trivial =.false. if ( (icode(j).eq.jdebye).or. $ (icode(j).eq.jeins)) trivial =.false. if (icode(j).eq.0) go to 475 470 continue 475 continue endif endif if (trivial) then scafrm(k) = ' ' do 492 j = 1, micode icdsca(j,k) = 0 492 continue icdsca(1,k) = k + jscale if (isgues.eq.1) icdsca(1,k) = -1 else cc print*, 'save formula' do 490 j = 1, micode icdsca(j,k) = icode(j) 490 continue endif end if end if c finally, check for special system vars if (tmpnam.eq.'&screen_echo') then i_echo = int(tmparr(1)) elseif (tmpnam.eq.'path_index') then iup = int(tmparr(1)) call synvar if (iup .gt. 0) ret = xafs_path(iup,tmparr,tmp2,tmpx) endif end if 700 continue if (ix.lt.nkeys) go to 100 c end subroutine iff_set if (int(getsca('&sync_level',0)).ge.2) call iff_sync return end ifeffit-1.2.11d/src/lib/specfun.f0000644000175000017500000007231610771740457015544 0ustar segresegreCC CC various special functions, taken from netlib's specfun package CC double precision function erf_xx(arg,jint) C------------------------------------------------------------------ C C This packet evaluates erf(x), erfc(x), and exp(x*x)*erfc(x) C for a real argument x. It contains three FUNCTION type C subprograms: ERF, ERFC, and ERFCX (or DERF, DERFC, and DERFCX), C and one SUBROUTINE type subprogram, ERF_XX. The calling C statements for the primary entries are: C C Y=ERF(X) (or Y=DERF(X)), C C Y=ERFC(X) (or Y=DERFC(X)), C and C Y=ERFCX(X) (or Y=DERFCX(X)). C C The routine ERF_XX is intended for internal packet use only, C all computations within the packet being concentrated in this C routine. The function subprograms invoke ERF_XX with the C statement C C CALL ERF_XX(ARG,RESULT,JINT) C C where the parameter usage is as follows C C Function Parameters for ERF_XX C call ARG Result JINT C C ERF(ARG) ANY REAL ARGUMENT ERF(ARG) 0 C ERFC(ARG) ABS(ARG) .LT. XBIG ERFC(ARG) 1 C ERFCX(ARG) XNEG .LT. ARG .LT. XMAX ERFCX(ARG) 2 C C The main computation evaluates near-minimax approximations C from "Rational Chebyshev approximations for the error function" C by W. J. Cody, Math. Comp., 1969, PP. 631-638. This C transportable program uses rational functions that theoretically C approximate erf(x) and erfc(x) to at least 18 significant C decimal digits. The accuracy achieved depends on the arithmetic C system, the compiler, the intrinsic functions, and proper C selection of the machine-dependent constants. C C******************************************************************* C******************************************************************* C C Explanation of machine-dependent constants C C XMIN = the smallest positive floating-point number. C XINF = the largest positive finite floating-point number. C XNEG = the largest negative argument acceptable to ERFCX; C the negative of the solution to the equation C 2*exp(x*x) = XINF. C XSMALL = argument below which erf(x) may be represented by C 2*x/sqrt(pi) and above which x*x will not underflow. C A conservative value is the largest machine number X C such that 1.0 + X = 1.0 to machine precision. C XBIG = largest argument acceptable to ERFC; solution to C the equation: W(x) * (1-0.5/x**2) = XMIN, where C W(x) = exp(-x*x)/[x*sqrt(pi)]. C XHUGE = argument above which 1.0 - 1/(2*x*x) = 1.0 to C machine precision. A conservative value is C 1/[2*sqrt(XSMALL)] C XMAX = largest acceptable argument to ERFCX; the minimum C of XINF and 1/[sqrt(pi)*XMIN]. C C******************************************************************* C******************************************************************* C C Error returns C C The program returns ERFC = 0 for ARG .GE. XBIG; C C ERFCX = XINF for ARG .LT. XNEG; C and C ERFCX = 0 for ARG .GE. XMAX. C C Intrinsic functions required are: C C ABS, INT, EXP C C C Author: W. J. Cody C Mathematics and Computer Science Division C Argonne National Laboratory C Argonne, IL 60439 C C Latest modification: March 19, 1990 C c------------------------------------------------------------------ integer i,jint double precision arg,del,four,half,one, y, ysq, sixteen double precision sqrpi,two,thresh,x,xbig,xden,xhuge double precision xinf,xmax,xneg,xnum,xsmall, zero double precision a(5),b(4),c(9),d(8),p(6),q(5) c------------------------------------------------------------------ c mathematical constants c------------------------------------------------------------------ parameter(four=4.d0,one=1.d0,half=0.5d0,two=2.d0,zero=0.d0) parameter(sqrpi=5.6418958354775628695d-1,thresh=0.46875d0) parameter(sixten=16.0d0) c------------------------------------------------------------------ c machine-dependent constants c------------------------------------------------------------------ parameter(xinf =1.d50, xneg=-22.d0, xsmall=1.d-16) parameter(xbig =22.d0, xhuge=6.d6, xmax=xinf) c------------------------------------------------------------------ c coefficients for approximation to erf in first interval c------------------------------------------------------------------ data a/3.16112374387056560d00,1.13864154151050156d02, 1 3.77485237685302021d02,3.20937758913846947d03, 2 1.85777706184603153d-1/ data b/2.36012909523441209d01,2.44024637934444173d02, 1 1.28261652607737228d03,2.84423683343917062d03/ c------------------------------------------------------------------ c coefficients for approximation to erfc in second interval c------------------------------------------------------------------ data c/5.64188496988670089d-1,8.88314979438837594d0, 1 6.61191906371416295d01,2.98635138197400131d02, 2 8.81952221241769090d02,1.71204761263407058d03, 3 2.05107837782607147d03,1.23033935479799725d03, 4 2.15311535474403846d-8/ data d/1.57449261107098347d01,1.17693950891312499d02, 1 5.37181101862009858d02,1.62138957456669019d03, 2 3.29079923573345963d03,4.36261909014324716d03, 3 3.43936767414372164d03,1.23033935480374942d03/ c------------------------------------------------------------------ c coefficients for approximation to erfc in third interval c------------------------------------------------------------------ data p/3.05326634961232344d-1,3.60344899949804439d-1, 1 1.25781726111229246d-1,1.60837851487422766d-2, 2 6.58749161529837803d-4,1.63153871373020978d-2/ data q/2.56852019228982242d00,1.87295284992346047d00, 1 5.27905102951428412d-1,6.05183413124413191d-2, 2 2.33520497626869185d-3/ c------------------------------------------------------------------ x = arg y = abs(x) if (y .le. thresh) then c------------------------------------------------------------------ c evaluate erf for |x| <= 0.46875 c------------------------------------------------------------------ ysq = zero if (y .gt. xsmall) ysq = y * y xnum = a(5)*ysq xden = ysq do 20 i = 1, 3 xnum = (xnum + a(i)) * ysq xden = (xden + b(i)) * ysq 20 continue erf_xx = x * (xnum + a(4)) / (xden + b(4)) if (jint .ne. 0) erf_xx = one - erf_xx if (jint .eq. 2) erf_xx = exp(ysq) * erf_xx go to 800 c------------------------------------------------------------------ c evaluate erfc for 0.46875 <= |x| <= 4.0 c------------------------------------------------------------------ else if (y .le. four) then xnum = c(9)*y xden = y do 120 i = 1, 7 xnum = (xnum + c(i)) * y xden = (xden + d(i)) * y 120 continue erf_xx = (xnum + c(8)) / (xden + d(8)) if (jint .ne. 2) then ysq = int(y*sixten)/sixten del = (y-ysq)*(y+ysq) erf_xx = exp(-ysq*ysq) * exp(-del) * erf_xx end if c------------------------------------------------------------------ c evaluate erfc for |x| > 4.0 c------------------------------------------------------------------ else erf_xx = zero if (y .ge. xbig) then if ((jint .ne. 2) .or. (y .ge. xmax)) go to 300 if (y .ge. xhuge) then erf_xx = sqrpi / y go to 300 end if end if ysq = one / (y * y) xnum = p(6)*ysq xden = ysq do 240 i = 1, 4 xnum = (xnum + p(i)) * ysq xden = (xden + q(i)) * ysq 240 continue erf_xx = ysq *(xnum + p(5)) / (xden + q(5)) erf_xx = (sqrpi - erf_xx) / y if (jint .ne. 2) then ysq = int(y*sixten)/sixten del = (y-ysq)*(y+ysq) erf_xx = exp(-ysq*ysq) * exp(-del) * erf_xx end if end if c------------------------------------------------------------------ c fix up for negative argument, erf, etc. c------------------------------------------------------------------ 300 if (jint .eq. 0) then erf_xx = (half - erf_xx) + half if (x .lt. zero) erf_xx = -erf_xx else if (jint .eq. 1) then if (x .lt. zero) erf_xx = two - erf_xx else if (x .lt. zero) then if (x .lt. xneg) then erf_xx = xinf else ysq = int(x*sixten)/sixten del = (x-ysq)*(x+ysq) y = exp(ysq*ysq) * exp(del) erf_xx = (y+y) - erf_xx end if end if end if 800 return end DOUBLE PRECISION FUNCTION DGAMMA(X) C---------------------------------------------------------------------- C C This routine calculates the GAMMA function for a real argument X. C Computation is based on an algorithm outlined in reference 1. C The program uses rational functions that approximate the GAMMA C function to at least 20 significant decimal digits. Coefficients C for the approximation over the interval (1,2) are unpublished. C Those for the approximation for X .GE. 12 are from reference 2. C The accuracy achieved depends on the arithmetic system, the C compiler, the intrinsic functions, and proper selection of the C machine-dependent constants. C C C******************************************************************* C******************************************************************* C C Explanation of machine-dependent constants C C beta - radix for the floating-point representation C maxexp - the smallest positive power of beta that overflows C XBIG - the largest argument for which GAMMA(X) is representable C in the machine, i.e., the solution to the equation C GAMMA(XBIG) = beta**maxexp C XINF - the largest machine representable floating-point number; C approximately beta**maxexp C EPS - the smallest positive floating-point number such that C 1.0+EPS .GT. 1.0 C XMININ - the smallest positive floating-point number such that C 1/XMININ is machine representable C C Approximate values for some important machines are: C C beta maxexp XBIG C C CRAY-1 (S.P.) 2 8191 966.961 C Cyber 180/855 C under NOS (S.P.) 2 1070 177.803 C IEEE (IBM/XT, C SUN, etc.) (S.P.) 2 128 35.040 C IEEE (IBM/XT, C SUN, etc.) (D.P.) 2 1024 171.624 C IBM 3033 (D.P.) 16 63 57.574 C VAX D-Format (D.P.) 2 127 34.844 C VAX G-Format (D.P.) 2 1023 171.489 C C XINF EPS XMININ C C CRAY-1 (S.P.) 5.45E+2465 7.11E-15 1.84E-2466 C Cyber 180/855 C under NOS (S.P.) 1.26E+322 3.55E-15 3.14E-294 C IEEE (IBM/XT, C SUN, etc.) (S.P.) 3.40E+38 1.19E-7 1.18E-38 C IEEE (IBM/XT, C SUN, etc.) (D.P.) 1.79D+308 2.22D-16 2.23D-308 C IBM 3033 (D.P.) 7.23D+75 2.22D-16 1.39D-76 C VAX D-Format (D.P.) 1.70D+38 1.39D-17 5.88D-39 C VAX G-Format (D.P.) 8.98D+307 1.11D-16 1.12D-308 C C******************************************************************* C******************************************************************* C C Error returns C C The program returns the value XINF for singularities or C when overflow would occur. The computation is believed C to be free of underflow and overflow. C C C Intrinsic functions required are: C C INT, DBLE, EXP, LOG, REAL, SIN C C C References: "An Overview of Software Development for Special C Functions", W. J. Cody, Lecture Notes in Mathematics, C 506, Numerical Analysis Dundee, 1975, G. A. Watson C (ed.), Springer Verlag, Berlin, 1976. C C Computer Approximations, Hart, Et. Al., Wiley and C sons, New York, 1968. C C Latest modification: October 12, 1989 C C Authors: W. J. Cody and L. Stoltz C Applied Mathematics Division C Argonne National Laboratory C Argonne, IL 60439 C C---------------------------------------------------------------------- INTEGER I,N LOGICAL PARITY DOUBLE PRECISION 1 C,CONV,EPS,FACT,HALF,ONE,P,PI,Q,RES,SQRTPI,SUM,TWELVE, 2 TWO,X,XBIG,XDEN,XINF,XMININ,XNUM,Y,Y1,YSQ,Z,ZERO DIMENSION C(7),P(8),Q(8) C---------------------------------------------------------------------- C Mathematical constants C---------------------------------------------------------------------- DATA ONE,HALF,TWELVE,TWO,ZERO/1.0D0,0.5D0,12.0D0,2.0D0,0.0D0/, 1 SQRTPI/0.9189385332046727417803297D0/, 2 PI/3.1415926535897932384626434D0/ C---------------------------------------------------------------------- C Machine dependent parameters C---------------------------------------------------------------------- DATA XBIG,XMININ,EPS/171.624D0,2.23D-308,2.22D-16/, 1 XINF/1.79D308/ C---------------------------------------------------------------------- C Numerator and denominator coefficients for rational minimax C approximation over (1,2). C---------------------------------------------------------------------- DATA P/-1.71618513886549492533811D+0,2.47656508055759199108314D+1, 1 -3.79804256470945635097577D+2,6.29331155312818442661052D+2, 2 8.66966202790413211295064D+2,-3.14512729688483675254357D+4, 3 -3.61444134186911729807069D+4,6.64561438202405440627855D+4/ DATA Q/-3.08402300119738975254353D+1,3.15350626979604161529144D+2, 1 -1.01515636749021914166146D+3,-3.10777167157231109440444D+3, 2 2.25381184209801510330112D+4,4.75584627752788110767815D+3, 3 -1.34659959864969306392456D+5,-1.15132259675553483497211D+5/ C---------------------------------------------------------------------- C Coefficients for minimax approximation over (12, INF). C---------------------------------------------------------------------- DATA C/-1.910444077728D-03,8.4171387781295D-04, 1 -5.952379913043012D-04,7.93650793500350248D-04, 2 -2.777777777777681622553D-03,8.333333333333333331554247D-02, 3 5.7083835261D-03/ C---------------------------------------------------------------------- C Statement functions for conversion between integer and float C---------------------------------------------------------------------- CONV(I) = DBLE(I) PARITY = .FALSE. FACT = ONE N = 0 Y = X IF (Y .LE. ZERO) THEN C---------------------------------------------------------------------- C Argument is negative C---------------------------------------------------------------------- Y = -X Y1 = AINT(Y) RES = Y - Y1 IF (RES .NE. ZERO) THEN IF (Y1 .NE. AINT(Y1*HALF)*TWO) PARITY = .TRUE. FACT = -PI / SIN(PI*RES) Y = Y + ONE ELSE RES = XINF GO TO 900 END IF END IF C---------------------------------------------------------------------- C Argument is positive C---------------------------------------------------------------------- IF (Y .LT. EPS) THEN C---------------------------------------------------------------------- C Argument .LT. EPS C---------------------------------------------------------------------- IF (Y .GE. XMININ) THEN RES = ONE / Y ELSE RES = XINF GO TO 900 END IF ELSE IF (Y .LT. TWELVE) THEN Y1 = Y IF (Y .LT. ONE) THEN C---------------------------------------------------------------------- C 0.0 .LT. argument .LT. 1.0 C---------------------------------------------------------------------- Z = Y Y = Y + ONE ELSE C---------------------------------------------------------------------- C 1.0 .LT. argument .LT. 12.0, reduce argument if necessary C---------------------------------------------------------------------- N = INT(Y) - 1 Y = Y - CONV(N) Z = Y - ONE END IF C---------------------------------------------------------------------- C Evaluate approximation for 1.0 .LT. argument .LT. 2.0 C---------------------------------------------------------------------- XNUM = ZERO XDEN = ONE DO 260 I = 1, 8 XNUM = (XNUM + P(I)) * Z XDEN = XDEN * Z + Q(I) 260 CONTINUE RES = XNUM / XDEN + ONE IF (Y1 .LT. Y) THEN C---------------------------------------------------------------------- C Adjust result for case 0.0 .LT. argument .LT. 1.0 C---------------------------------------------------------------------- RES = RES / Y1 ELSE IF (Y1 .GT. Y) THEN C---------------------------------------------------------------------- C Adjust result for case 2.0 .LT. argument .LT. 12.0 C---------------------------------------------------------------------- DO 290 I = 1, N RES = RES * Y Y = Y + ONE 290 CONTINUE END IF ELSE C---------------------------------------------------------------------- C Evaluate for argument .GE. 12.0, C---------------------------------------------------------------------- IF (Y .LE. XBIG) THEN YSQ = Y * Y SUM = C(7) DO 350 I = 1, 6 SUM = SUM / YSQ + C(I) 350 CONTINUE SUM = SUM/Y - Y + SQRTPI SUM = SUM + (Y-HALF)*LOG(Y) RES = EXP(SUM) ELSE RES = XINF GO TO 900 END IF END IF C---------------------------------------------------------------------- C Final adjustments and return C---------------------------------------------------------------------- IF (PARITY) RES = -RES IF (FACT .NE. ONE) RES = FACT / RES 900 DGAMMA = RES RETURN C ---------- Last line of GAMMA ---------- END DOUBLE PRECISION FUNCTION DLGAMA(X) C---------------------------------------------------------------------- C C This routine calculates the LOG(GAMMA) function for a positive real C argument X. Computation is based on an algorithm outlined in C references 1 and 2. The program uses rational functions that C theoretically approximate LOG(GAMMA) to at least 18 significant C decimal digits. The approximation for X > 12 is from reference C 3, while approximations for X < 12.0 are similar to those in C reference 1, but are unpublished. The accuracy achieved depends C on the arithmetic system, the compiler, the intrinsic functions, C and proper selection of the machine-dependent constants. C C C********************************************************************* C********************************************************************* C C Explanation of machine-dependent constants C C beta - radix for the floating-point representation C maxexp - the smallest positive power of beta that overflows C XBIG - largest argument for which LN(GAMMA(X)) is representable C in the machine, i.e., the solution to the equation C LN(GAMMA(XBIG)) = beta**maxexp C XINF - largest machine representable floating-point number; C approximately beta**maxexp. C EPS - The smallest positive floating-point number such that C 1.0+EPS .GT. 1.0 C FRTBIG - Rough estimate of the fourth root of XBIG C C C Approximate values for some important machines are: C C beta maxexp XBIG C C CRAY-1 (S.P.) 2 8191 9.62E+2461 C Cyber 180/855 C under NOS (S.P.) 2 1070 1.72E+319 C IEEE (IBM/XT, C SUN, etc.) (S.P.) 2 128 4.08E+36 C IEEE (IBM/XT, C SUN, etc.) (D.P.) 2 1024 2.55D+305 C IBM 3033 (D.P.) 16 63 4.29D+73 C VAX D-Format (D.P.) 2 127 2.05D+36 C VAX G-Format (D.P.) 2 1023 1.28D+305 C C C XINF EPS FRTBIG C C CRAY-1 (S.P.) 5.45E+2465 7.11E-15 3.13E+615 C Cyber 180/855 C under NOS (S.P.) 1.26E+322 3.55E-15 6.44E+79 C IEEE (IBM/XT, C SUN, etc.) (S.P.) 3.40E+38 1.19E-7 1.42E+9 C IEEE (IBM/XT, C SUN, etc.) (D.P.) 1.79D+308 2.22D-16 2.25D+76 C IBM 3033 (D.P.) 7.23D+75 2.22D-16 2.56D+18 C VAX D-Format (D.P.) 1.70D+38 1.39D-17 1.20D+9 C VAX G-Format (D.P.) 8.98D+307 1.11D-16 1.89D+76 C C************************************************************** C************************************************************** C C Error returns C C The program returns the value XINF for X .LE. 0.0 or when C overflow would occur. The computation is believed to C be free of underflow and overflow. C C C Intrinsic functions required are: C C LOG C C C References: C C 1) W. J. Cody and K. E. Hillstrom, 'Chebyshev Approximations for C the Natural Logarithm of the Gamma Function,' Math. Comp. 21, C 1967, pp. 198-203. C C 2) K. E. Hillstrom, ANL/AMD Program ANLC366S, DGAMMA/DLGAMA, May, C 1969. C C 3) Hart, Et. Al., Computer Approximations, Wiley and sons, New C York, 1968. C C C Authors: W. J. Cody and L. Stoltz C Argonne National Laboratory C C Latest modification: June 16, 1988 C C---------------------------------------------------------------------- INTEGER I DOUBLE PRECISION 1 C,CORR,D1,D2,D4,EPS,FRTBIG,FOUR,HALF,ONE,PNT68,P1,P2,P4, 2 Q1,Q2,Q4,RES,SQRTPI,THRHAL,TWELVE,TWO,X,XBIG,XDEN,XINF, 3 XM1,XM2,XM4,XNUM,Y,YSQ,ZERO DIMENSION C(7),P1(8),P2(8),P4(8),Q1(8),Q2(8),Q4(8) C---------------------------------------------------------------------- C Mathematical constants C---------------------------------------------------------------------- DATA ONE,HALF,TWELVE,ZERO/1.0D0,0.5D0,12.0D0,0.0D0/, 1 FOUR,THRHAL,TWO,PNT68/4.0D0,1.5D0,2.0D0,0.6796875D0/, 2 SQRTPI/0.9189385332046727417803297D0/ C---------------------------------------------------------------------- C Machine dependent parameters C---------------------------------------------------------------------- DATA XBIG,XINF,EPS,FRTBIG/2.55D305,1.79D308,2.22D-16,2.25D76/ C---------------------------------------------------------------------- C Numerator and denominator coefficients for rational minimax C approximation over (0.5,1.5). C---------------------------------------------------------------------- DATA D1/-5.772156649015328605195174D-1/ DATA P1/4.945235359296727046734888D0,2.018112620856775083915565D2, 1 2.290838373831346393026739D3,1.131967205903380828685045D4, 2 2.855724635671635335736389D4,3.848496228443793359990269D4, 3 2.637748787624195437963534D4,7.225813979700288197698961D3/ DATA Q1/6.748212550303777196073036D1,1.113332393857199323513008D3, 1 7.738757056935398733233834D3,2.763987074403340708898585D4, 2 5.499310206226157329794414D4,6.161122180066002127833352D4, 3 3.635127591501940507276287D4,8.785536302431013170870835D3/ C---------------------------------------------------------------------- C Numerator and denominator coefficients for rational minimax C Approximation over (1.5,4.0). C---------------------------------------------------------------------- DATA D2/4.227843350984671393993777D-1/ DATA P2/4.974607845568932035012064D0,5.424138599891070494101986D2, 1 1.550693864978364947665077D4,1.847932904445632425417223D5, 2 1.088204769468828767498470D6,3.338152967987029735917223D6, 3 5.106661678927352456275255D6,3.074109054850539556250927D6/ DATA Q2/1.830328399370592604055942D2,7.765049321445005871323047D3, 1 1.331903827966074194402448D5,1.136705821321969608938755D6, 2 5.267964117437946917577538D6,1.346701454311101692290052D7, 3 1.782736530353274213975932D7,9.533095591844353613395747D6/ C---------------------------------------------------------------------- C Numerator and denominator coefficients for rational minimax C Approximation over (4.0,12.0). C---------------------------------------------------------------------- DATA D4/1.791759469228055000094023D0/ DATA P4/1.474502166059939948905062D4,2.426813369486704502836312D6, 1 1.214755574045093227939592D8,2.663432449630976949898078D9, 2 2.940378956634553899906876D10,1.702665737765398868392998D11, 3 4.926125793377430887588120D11,5.606251856223951465078242D11/ DATA Q4/2.690530175870899333379843D3,6.393885654300092398984238D5, 2 4.135599930241388052042842D7,1.120872109616147941376570D9, 3 1.488613728678813811542398D10,1.016803586272438228077304D11, 4 3.417476345507377132798597D11,4.463158187419713286462081D11/ C---------------------------------------------------------------------- C Coefficients for minimax approximation over (12, INF). C---------------------------------------------------------------------- DATA C/-1.910444077728D-03,8.4171387781295D-04, 1 -5.952379913043012D-04,7.93650793500350248D-04, 2 -2.777777777777681622553D-03,8.333333333333333331554247D-02, 3 5.7083835261D-03/ C---------------------------------------------------------------------- Y = X IF ((Y .GT. ZERO) .AND. (Y .LE. XBIG)) THEN IF (Y .LE. EPS) THEN RES = -LOG(Y) ELSE IF (Y .LE. THRHAL) THEN C---------------------------------------------------------------------- C EPS .LT. X .LE. 1.5 C---------------------------------------------------------------------- IF (Y .LT. PNT68) THEN CORR = -LOG(Y) XM1 = Y ELSE CORR = ZERO XM1 = (Y - HALF) - HALF END IF IF ((Y .LE. HALF) .OR. (Y .GE. PNT68)) THEN XDEN = ONE XNUM = ZERO DO 140 I = 1, 8 XNUM = XNUM*XM1 + P1(I) XDEN = XDEN*XM1 + Q1(I) 140 CONTINUE RES = CORR + (XM1 * (D1 + XM1*(XNUM/XDEN))) ELSE XM2 = (Y - HALF) - HALF XDEN = ONE XNUM = ZERO DO 220 I = 1, 8 XNUM = XNUM*XM2 + P2(I) XDEN = XDEN*XM2 + Q2(I) 220 CONTINUE RES = CORR + XM2 * (D2 + XM2*(XNUM/XDEN)) END IF ELSE IF (Y .LE. FOUR) THEN C---------------------------------------------------------------------- C 1.5 .LT. X .LE. 4.0 C---------------------------------------------------------------------- XM2 = Y - TWO XDEN = ONE XNUM = ZERO DO 240 I = 1, 8 XNUM = XNUM*XM2 + P2(I) XDEN = XDEN*XM2 + Q2(I) 240 CONTINUE RES = XM2 * (D2 + XM2*(XNUM/XDEN)) ELSE IF (Y .LE. TWELVE) THEN C---------------------------------------------------------------------- C 4.0 .LT. X .LE. 12.0 C---------------------------------------------------------------------- XM4 = Y - FOUR XDEN = -ONE XNUM = ZERO DO 340 I = 1, 8 XNUM = XNUM*XM4 + P4(I) XDEN = XDEN*XM4 + Q4(I) 340 CONTINUE RES = D4 + XM4*(XNUM/XDEN) ELSE C---------------------------------------------------------------------- C Evaluate for argument .GE. 12.0, C---------------------------------------------------------------------- RES = ZERO IF (Y .LE. FRTBIG) THEN RES = C(7) YSQ = Y * Y DO 450 I = 1, 6 RES = RES / YSQ + C(I) 450 CONTINUE END IF RES = RES/Y CORR = LOG(Y) RES = RES + SQRTPI - HALF*CORR RES = RES + Y*(CORR-ONE) END IF ELSE C---------------------------------------------------------------------- C Return for bad arguments C---------------------------------------------------------------------- RES = XINF END IF C---------------------------------------------------------------------- C Final adjustments and return C---------------------------------------------------------------------- DLGAMA = RES RETURN C ---------- Last line of DLGAMA ---------- END ifeffit-1.2.11d/src/lib/ifeffit.h0000644000175000017500000000326010771740457015507 0ustar segresegre/************************* * C header file Ifeffit * *************************/ #if defined(WIN32) || defined(_WIN32) || defined(__WIN32__) #define IFF_EXPORT(a) __declspec(dllexport) a _stdcall #define IFF_INTERN(a) a _stdcall #else #define IFF_EXPORT(a) a #define IFF_INTERN(a) a #endif /* main interface routines */ IFF_EXPORT(int) iff_exec(char *); IFF_EXPORT(int) ifeffit(char *); IFF_EXPORT(int) iff_get_string(char *, char *); IFF_EXPORT(int) iff_put_string(char *, char *); IFF_EXPORT(int) iff_get_scalar(char *, double *); IFF_EXPORT(int) iff_put_scalar(char *, double *); IFF_EXPORT(int) iff_get_array(char *, double *); IFF_EXPORT(int) iff_put_array(char *, int *, double *); IFF_EXPORT(int) iff_get_echo(char *); IFF_EXPORT(char*) iff_strval(char *); IFF_EXPORT(double) iff_scaval(char *); /* raw interfaces to the fortran functions: these may need system level alterations as they assume 1.trailing underscore 2.char lengths as int at end of argument list these appear to be the unix norm. */ #if defined(WIN32) || defined(_WIN32) || defined(__WIN32__) int _stdcall IFFEXECF(char *, int); int _stdcall IFFGETSTR(char *, int, char *, int); int _stdcall IFFGETSCA(char *, int, double *); int _stdcall IFFGETARR(char *, int, double *); int _stdcall IFFPUTARR(char *, int, int *, double *); int _stdcall IFFGETECHO(char *, int); char* _stdcall IFF_STRVAL(char *); double _stdcall IFF_SCAVAL(char *); #else int ifeffit_(char *, int); int iffgetstr_(char *, char *, int, int); int iffgetsca_(char *, double *, int); int iffgetarr_(char *, double *, int); int iffputarr_(char *, int *, double *, int); int iffgetecho_(char *, int); #endif /* end */ ifeffit-1.2.11d/src/lib/arrsize.dat0000644000175000017500000000000510771740457016065 0ustar segresegre8192 ifeffit-1.2.11d/src/lib/iff_log.f0000644000175000017500000000723110771740457015500 0ustar segresegre subroutine iff_log(string) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c turn logging on/off for ifeffit c implicit none include 'consts.h' include 'keywrd.h' include 'echo.h' save character*(*) string, str*256, defkey(2)*64 double precision getsca , dec integer iex, ier, iec, k, i, il, istrln, ndfkey logical dopen, dclos external istrln, getsca iec = int( getsca('&screen_echo',0) ) cc print*,' log(): screen_echo = ' , iec, i_echo dopen = .false. dclos = .false. str = string call bkeys(str, mkeys, keys, values, nkeys) c c set default keywords for "undefined" sets c ie: the first two unkeyed values will take keys 'energy', 'xmu' ndfkey = 1 defkey(1) = '_un_' do 100 i = 1, nkeys k = istrln( keys(i)) if ((values(i).eq.undef).and.(i.le.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if (keys(i).eq.'file') then echo_file = values(i) dopen = .true. elseif (keys(i).eq.'close') then dclos = .true. elseif (keys(i).eq.'_un_') then if (values(i).eq.'close') then dclos = .true. else echo_file = values(i) dopen = .true. endif else echo_file = values(1) dopen = .true. endif 100 continue c cc print*, ' log(): dec = ' , i_echo c if needed, open the log file il = istrln(echo_file) if (dclos .and. (lun_echo .ge. 1)) then close(lun_echo) cc print*, ' closed log file ', echo_file(1:il) lun_echo = -1 echo_file = ' ' dopen = .false. i_echo = i_echo - 2 endif if (dopen) then if (lun_echo.ge.1) then close(lun_echo) lun_echo = -1 endif lun_echo = 1 call triml(echo_file) call openfl(lun_echo, echo_file, 'unknown', iex, ier) cc print*, ' opened log file ', echo_file(1:il) i_echo = i_echo + 2 end if c c determine what screen echo level was requested: dec = i_echo * one call setsca('&screen_echo', dec) return end ifeffit-1.2.11d/src/lib/atomic.f0000745000175000017500000010317711023777116015350 0ustar segresegrec c functions for atomic data, usually accessed by integer atomic number (iz). c functions includes: c char*2 at_symbol(iz) atomic symbol c integer atomic_z(sym) atomic Z from symbol c double at_weight(iz) atomic weight (amu) c double at_kedge(iz) K edge energy (eV) c double at_l1edge(iz) L1 edge energy (eV) c double at_l2edge(iz) L2 edge energy (eV) c double at_l3edge(iz) L3 edge energy (eV) c double at_m1edge(iz) M1 edge energy (eV) c double at_m2edge(iz) M2 edge energy (eV) c double at_m3edge(iz) M3 edge energy (eV) c double at_m4edge(iz) M4 edge energy (eV) c double at_m5edge(iz) M5 edge energy (eV) c double at_n1edge(iz) N1 edge energy (eV) c double at_n2edge(iz) N2 edge energy (eV) c double at_n3edge(iz) N3 edge energy (eV) c double at_n4edge(iz) N4 edge energy (eV) c double at_n5edge(iz) N5 edge energy (eV) c double at_n6edge(iz) N6 edge energy (eV) c double at_n7edge(iz) N7 edge energy (eV) c double at_kwidth(iz) K edge width (eV) c double at_l1width(iz) L1 edge width (eV) c double at_l2width(iz) L2 edge width (eV) c double at_l3width(iz) L3 edge width (eV) c double at_fluor_line(iz,line) emission line for char*8 line: c 'kalpha'(='kalpha1'), 'kalpha2', 'kalpha3', c 'kbeta' (='kbeta1'), 'kbeta2', 'kbeta3', 'kbeta4', 'kbeta5', c 'lalpha'(='lalpha1'), 'lalpha2', c 'lbeta' (='lbeta1'), 'lbeta2', 'lbeta3', 'lbeta4', 'lbeta6', c 'lgamma'(='lgamma1'), 'lgamma2', 'lgamma3' c////////////////////////////////////////////////////////////////////// c Copyright (c) 2003 Matthew Newville, The University of Chicago c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c character*2 function at_symbol(iz) c atomic symbol from z integer iz character*2 dat(98) data dat / $ 'H ', 'He', 'Li', 'Be', 'B ', 'C ', $ 'N ', 'O ', 'F ', 'Ne', 'Na', 'Mg', $ 'Al', 'Si', 'P ', 'S ', 'Cl', 'Ar', $ 'K ', 'Ca', 'Sc', 'Ti', 'V ', 'Cr', $ 'Mn', 'Fe', 'Co', 'Ni', 'Cu', 'Zn', $ 'Ga', 'Ge', 'As', 'Se', 'Br', 'Kr', $ 'Rb', 'Sr', 'Y ', 'Zr', 'Nb', 'Mo', $ 'Tc', 'Ru', 'Rh', 'Pd', 'Ag', 'Cd', $ 'In', 'Sn', 'Sb', 'Te', 'I ', 'Xe', $ 'Cs', 'Ba', 'La', 'Ce', 'Pr', 'Nd', $ 'Pm', 'Sm', 'Eu', 'Gd', 'Tb', 'Dy', $ 'Ho', 'Er', 'Tm', 'Yb', 'Lu', 'Hf', $ 'Ta', 'W ', 'Re', 'Os', 'Ir', 'Pt', $ 'Au', 'Hg', 'Tl', 'Pb', 'Bi', 'Po', $ 'At', 'Rn', 'Fr', 'Ra', 'Ac', 'Th', $ 'Pa', 'U ', 'Np', 'Pu', 'Am', 'Cm', $ 'Bk', 'Cf'/ if ((iz.gt.98).or.(iz.lt.1)) then at_symbol=' ' else at_symbol = dat(iz) endif call upper(at_symbol(1:1)) return end c integer function atomic_z(sym) c atomic z from symbol character*2 sym, tmp, at_symbol external at_symbol integer i tmp = sym call upper(tmp(1:1)) atomic_z = 0 do 10 i = 1, 98 if (at_symbol(i).eq.tmp) atomic_z = i 10 continue return end double precision function at_weight (iz) c atomic weight from atom number (iz), amu integer iz, i double precision dat(98) data dat / $ 1.0079, 4.0026, 6.941, 9.0122, 10.81, 12.011, $ 14.0067, 15.9994, 18.9984, 20.179, 22.9898, 24.305, $ 26.9815, 28.0855, 30.9738, 32.06, 35.453, 39.948, $ 39.0983, 40.08, 44.9559, 47.88, 50.9415, 51.996, $ 54.938, 55.847, 58.9332, 58.69, 63.546, 65.38, $ 69.72, 72.59, 74.9216, 78.96, 79.904, 83.8, $ 85.4678, 87.62, 88.9059, 91.22, 92.9064, 95.94, $ 97.907, 101.07, 102.906, 106.42, 107.868, 112.41, $ 114.82, 118.69, 121.75, 127.6, 126.905, 131.29, $ 132.905, 137.33, 138.906, 140.12, 140.908, 144.24, $ 144.913, 150.36, 151.96, 157.25, 158.925, 162.5, $ 164.93, 167.26, 168.934, 173.04, 174.967, 178.49, $ 180.948, 183.85, 186.207, 190.2, 192.22, 195.08, $ 196.967, 200.59, 204.383, 207.2, 208.98, 208.982, $ 209.987, 222.018, 223.02, 226.025, 227.028, 232.038, $ 231.036, 238.051, 237.048, 239.052, 243.061, 247.07, $ 247.07, 251.08/ i = min(98,max(1,iz)) at_weight = dat(i) return end c double precision function at_kedge (iz) c K edge energy atom number (iz). eV integer iz, i double precision dat(98) data dat / $ 13.6, 24.6, 54.7, 111.5, 188.0, 284.2, $ 409.9, 543.1, 696.7, 870.2, 1070.8, 1303.0, $ 1559.0, 1839.0, 2145.5, 2472.0, 2822.0, 3205.9, $ 3608.4, 4038.5, 4492.0, 4966.0, 5465.0, 5989.0, $ 6539.0, 7112.0, 7709.0, 8333.0, 8979.0, 9659.0, $ 10367.0, 11103.0, 11867.0, 12658.0, 13474.0, 14326.0, $ 15200.0, 16105.0, 17038.0, 17998.0, 18986.0, 20000.0, $ 21044.0, 22117.0, 23220.0, 24350.0, 25514.0, 26711.0, $ 27940.0, 29200.0, 30491.0, 31814.0, 33169.0, 34561.0, $ 35985.0, 37441.0, 38925.0, 40443.0, 41991.0, 43569.0, $ 45184.0, 46834.0, 48519.0, 50239.0, 51996.0, 53789.0, $ 55618.0, 57486.0, 59390.0, 61332.0, 63314.0, 65351.0, $ 67416.0, 69525.0, 71676.0, 73871.0, 76111.0, 78395.0, $ 80725.0, 83102.0, 85530.0, 88005.0, 90526.0, 93105.0, $ 95730.0, 98404.0, 101137.0, 103922.0, 106755.0, 109651.0, $ 112601.0, 115606.0, 118669.0, 121791.0, 124982.0, 128241.0, $ 131556.0, 134939.0/ i = min(98,max(1,iz)) at_kedge = dat(i) return end c double precision function at_l1edge (iz) c L1 edge energy atom number (iz). eV integer iz, i double precision dat(98) data dat / $ 0.0, 0.0, 5.3, 8.0, 12.6, 18.0, $ 37.3, 41.6, 45.0, 48.5, 63.5, 88.6, $ 117.8, 149.7, 189.0, 230.9, 270.0, 326.3, $ 378.6, 438.4, 498.0, 560.9, 626.7, 696.0, $ 769.1, 844.6, 925.1, 1008.6, 1096.7, 1196.2, $ 1299.0, 1414.6, 1527.0, 1652.0, 1782.0, 1921.0, $ 2065.0, 2216.0, 2373.0, 2532.0, 2698.0, 2866.0, $ 3043.0, 3224.0, 3412.0, 3604.0, 3806.0, 4018.0, $ 4238.0, 4465.0, 4698.0, 4939.0, 5188.0, 5453.0, $ 5714.0, 5989.0, 6266.0, 6548.0, 6835.0, 7126.0, $ 7428.0, 7737.0, 8052.0, 8376.0, 8708.0, 9046.0, $ 9394.0, 9751.0, 10116.0, 10486.0, 10870.0, 11271.0, $ 11682.0, 12100.0, 12527.0, 12968.0, 13419.0, 13880.0, $ 14353.0, 14839.0, 15347.0, 15861.0, 16388.0, 16939.0, $ 17493.0, 18049.0, 18639.0, 19237.0, 19840.0, 20472.0, $ 21105.0, 21757.0, 22427.0, 23104.0, 23808.0, 24526.0, $ 25256.0, 26010.0/ i = min(98,max(1,iz)) at_l1edge = dat(i) return end double precision function at_l2edge (iz) c L2 edge energy atom number (iz). eV integer iz, i double precision dat(98) data dat / $ 0.0, 0.0, 0.0, 3.0, 4.7, 7.2, $ 17.5, 18.2, 19.9, 21.7, 30.4, 49.6, $ 72.9, 99.8, 136.0, 163.6, 202.0, 250.6, $ 297.3, 349.7, 403.6, 460.2, 519.8, 583.8, $ 649.9, 719.9, 793.2, 870.0, 952.3, 1044.9, $ 1143.2, 1248.1, 1359.1, 1474.3, 1596.0, 1730.9, $ 1864.0, 2007.0, 2156.0, 2307.0, 2465.0, 2625.0, $ 2793.0, 2967.0, 3146.0, 3330.0, 3524.0, 3727.0, $ 3938.0, 4156.0, 4380.0, 4612.0, 4852.0, 5107.0, $ 5359.0, 5624.0, 5891.0, 6164.0, 6440.0, 6722.0, $ 7013.0, 7312.0, 7617.0, 7930.0, 8252.0, 8581.0, $ 8918.0, 9264.0, 9617.0, 9978.0, 10349.0, 10739.0, $ 11136.0, 11544.0, 11959.0, 12385.0, 12824.0, 13273.0, $ 13734.0, 14209.0, 14698.0, 15200.0, 15711.0, 16244.0, $ 16785.0, 17337.0, 17907.0, 18484.0, 19083.0, 19693.0, $ 20314.0, 20948.0, 21600.0, 22266.0, 22952.0, 23651.0, $ 24371.0, 25108.0/ i = min(98,max(1,iz)) at_l2edge = dat(i) return end double precision function at_l3edge (iz) c L3 edge energy atom number (iz). eV integer iz, i double precision dat(98) data dat / $ 0.0, 0.0, 0.0, 3.0, 4.7, 7.2, $ 17.5, 18.2, 19.9, 21.6, 30.5, 49.2, $ 72.5, 99.2, 135.0, 162.5, 200.0, 248.4, $ 294.6, 346.2, 398.7, 453.8, 512.1, 574.1, $ 638.7, 706.8, 778.1, 852.7, 932.7, 1021.8, $ 1116.4, 1217.0, 1323.6, 1433.9, 1550.0, 1678.4, $ 1804.0, 1940.0, 2080.0, 2223.0, 2371.0, 2520.0, $ 2677.0, 2838.0, 3004.0, 3173.0, 3351.0, 3538.0, $ 3730.0, 3929.0, 4132.0, 4341.0, 4557.0, 4786.0, $ 5012.0, 5247.0, 5483.0, 5723.0, 5964.0, 6208.0, $ 6459.0, 6716.0, 6977.0, 7243.0, 7514.0, 7790.0, $ 8071.0, 8358.0, 8648.0, 8944.0, 9244.0, 9561.0, $ 9881.0, 10207.0, 10535.0, 10871.0, 11215.0, 11564.0, $ 11919.0, 12284.0, 12658.0, 13035.0, 13419.0, 13814.0, $ 14214.0, 14619.0, 15031.0, 15444.0, 15871.0, 16300.0, $ 16733.0, 17166.0, 17610.0, 18057.0, 18510.0, 18970.0, $ 19435.0, 19907.0/ i = min(98,max(1,iz)) at_l3edge = dat(i) return end double precision function at_m1edge (iz) c M1 edge energy atom number (iz). eV integer iz, i double precision dat(98) data dat / $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 2.0, $ 4.0, 8.0, 12.0, 14.0, 18.0, 29.3, $ 34.8, 44.3, 51.1, 58.7, 66.3, 74.1, $ 82.3, 91.3, 101.0, 110.8, 122.5, 139.8, $ 159.5, 180.1, 204.7, 229.6, 257.0, 292.8, $ 326.7, 358.7, 392.0, 430.3, 466.6, 506.3, $ 544.0, 586.1, 628.1, 671.6, 719.0, 772.0, $ 827.2, 884.7, 940.0, 1006.0, 1072.0, 1148.7, $ 1211.0, 1293.0, 1362.0, 1436.0, 1511.0, 1575.0, $ 1650.0, 1723.0, 1800.0, 1881.0, 1968.0, 2047.0, $ 2128.0, 2206.0, 2307.0, 2398.0, 2491.0, 2601.0, $ 2708.0, 2820.0, 2932.0, 3049.0, 3174.0, 3296.0, $ 3425.0, 3562.0, 3704.0, 3851.0, 3999.0, 4149.0, $ 4317.0, 4482.0, 4652.0, 4822.0, 5002.0, 5182.0, $ 5367.0, 5548.0, 5739.0, 5933.0, 6133.0, 6337.0, $ 6545.0, 6761.0/ i = min(98,max(1,iz)) at_m1edge = dat(i) return end double precision function at_m2edge (iz) c M2 edge energy atom number (iz). eV integer iz, i double precision dat(98) data dat / $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 1.0, $ 2.0, 2.0, 7.0, 8.0, 10.0, 15.9, $ 18.3, 25.4, 28.3, 32.6, 37.2, 42.2, $ 47.2, 52.7, 58.9, 68.0, 77.3, 91.4, $ 103.5, 124.9, 146.2, 166.5, 189.0, 222.2, $ 248.7, 280.3, 310.6, 343.5, 376.1, 411.6, $ 447.6, 483.3, 521.3, 559.9, 603.8, 652.6, $ 703.2, 756.5, 812.7, 870.8, 931.0, 1002.1, $ 1071.0, 1137.0, 1209.0, 1274.0, 1337.0, 1403.0, $ 1471.4, 1541.0, 1614.0, 1688.0, 1768.0, 1842.0, $ 1923.0, 2006.0, 2090.0, 2173.0, 2264.0, 2365.0, $ 2469.0, 2575.0, 2682.0, 2792.0, 2909.0, 3027.0, $ 3148.0, 3279.0, 3416.0, 3554.0, 3696.0, 3854.0, $ 4008.0, 4159.0, 4327.0, 4490.0, 4656.0, 4830.0, $ 5001.0, 5182.0, 5366.0, 5547.0, 5739.0, 5937.0, $ 6138.0, 6345.0/ i = min(98,max(1,iz)) at_m2edge = dat(i) return end double precision function at_m3edge (iz) c M3 edge energy atom number (iz). eV integer iz, i double precision dat(98) data dat / $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 1.0, $ 2.0, 2.0, 6.0, 7.0, 10.0, 15.7, $ 18.3, 25.4, 28.3, 32.6, 37.2, 42.2, $ 47.2, 52.7, 59.9, 66.2, 75.1, 88.6, $ 100.0, 120.8, 141.2, 160.7, 182.0, 214.4, $ 239.1, 270.0, 298.8, 329.8, 360.6, 394.0, $ 417.7, 461.5, 496.5, 532.3, 573.0, 618.4, $ 665.3, 714.6, 766.4, 820.8, 875.0, 940.6, $ 1003.0, 1063.0, 1128.0, 1187.0, 1242.0, 1297.0, $ 1357.0, 1419.8, 1481.0, 1544.0, 1611.0, 1676.0, $ 1741.0, 1812.0, 1885.0, 1950.0, 2024.0, 2107.0, $ 2194.0, 2281.0, 2367.0, 2457.0, 2551.0, 2645.0, $ 2743.0, 2847.0, 2957.0, 3066.0, 3177.0, 3302.0, $ 3426.0, 3538.0, 3663.0, 3792.0, 3909.0, 4046.0, $ 4174.0, 4303.0, 4435.0, 4563.0, 4698.0, 4838.0, $ 4976.0, 5116.0/ i = min(98,max(1,iz)) at_m3edge = dat(i) return end double precision function at_m4edge (iz) c M4 edge energy atom number (iz). eV integer iz, i double precision dat(98) data dat / $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 2.0, 2.0, 2.0, $ 2.0, 2.0, 3.0, 4.0, 5.0, 10.2, $ 18.7, 29.8, 41.7, 55.5, 70.0, 95.0, $ 113.0, 136.0, 157.7, 181.1, 205.0, 231.1, $ 257.6, 284.2, 311.9, 340.5, 374.0, 411.9, $ 451.4, 493.2, 537.5, 583.4, 630.8, 689.0, $ 740.5, 795.7, 853.0, 902.4, 948.3, 1003.3, $ 1052.0, 1110.9, 1158.6, 1221.9, 1276.9, 1333.0, $ 1392.0, 1453.0, 1515.0, 1576.0, 1639.0, 1716.0, $ 1793.0, 1872.0, 1949.0, 2031.0, 2116.0, 2202.0, $ 2291.0, 2385.0, 2485.0, 2586.0, 2688.0, 2798.0, $ 2909.0, 3022.0, 3136.0, 3248.0, 3370.0, 3491.0, $ 3611.0, 3728.0, 3849.0, 3970.0, 4096.0, 4224.0, $ 4353.0, 4484.0/ i = min(98,max(1,iz)) at_m4edge = dat(i) return end double precision function at_m5edge (iz) c M5 edge energy atom number (iz). eV integer iz, i double precision dat(98) data dat / $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 2.0, 2.0, 2.0, $ 2.0, 2.0, 3.0, 4.0, 5.0, 10.1, $ 18.7, 29.2, 41.7, 54.6, 69.0, 93.8, $ 112.0, 134.2, 155.8, 178.8, 202.3, 227.9, $ 253.9, 280.0, 307.2, 335.2, 368.3, 405.2, $ 443.9, 484.9, 528.2, 573.0, 619.3, 676.4, $ 726.6, 780.5, 836.0, 883.8, 928.8, 980.4, $ 1027.0, 1083.4, 1127.5, 1189.6, 1241.1, 1292.0, $ 1351.0, 1409.0, 1468.0, 1528.0, 1589.0, 1662.0, $ 1735.0, 1809.0, 1883.0, 1960.0, 2040.0, 2122.0, $ 2206.0, 2295.0, 2389.0, 2484.0, 2580.0, 2683.0, $ 2787.0, 2892.0, 3000.0, 3105.0, 3219.0, 3332.0, $ 3442.0, 3552.0, 3664.0, 3775.0, 3890.0, 4009.0, $ 4127.0, 4247.0/ i = min(98,max(1,iz)) at_m5edge = dat(i) return end double precision function at_n1edge (iz) c N1 dge energy atom number (iz). eV integer iz, i double precision dat(98) data dat / $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 1.0, 5.0, 8.0, 12.0, 27.0, 27.5, $ 30.5, 38.9, 43.8, 50.6, 56.4, 63.2, $ 69.5, 75.0, 81.4, 87.1, 97.0, 109.8, $ 122.9, 137.1, 153.2, 169.4, 186.0, 213.2, $ 232.3, 253.5, 274.7, 291.0, 304.5, 319.2, $ 331.0, 347.2, 360.0, 378.6, 396.0, 414.2, $ 432.4, 449.8, 470.9, 480.5, 506.8, 538.0, $ 563.4, 594.1, 625.4, 658.2, 691.1, 725.4, $ 762.1, 802.2, 846.2, 891.8, 939.0, 995.0, $ 1042.0, 1097.0, 1153.0, 1208.0, 1269.0, 1330.0, $ 1387.0, 1439.0, 1501.0, 1559.0, 1620.0, 1684.0, $ 1748.0, 1813.0/ i = min(98,max(1,iz)) at_n1edge = dat(i) return end double precision function at_n2edge (iz) c N2 dge energy atom number (iz). eV integer iz, i double precision dat(98) data dat / $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 1.0, $ 2.0, 3.0, 3.0, 3.0, 3.0, 14.1, $ 16.3, 21.6, 24.4, 28.5, 32.6, 37.6, $ 42.3, 46.3, 50.5, 55.7, 63.7, 63.9, $ 73.5, 83.6, 95.6, 103.3, 123.0, 146.7, $ 172.4, 192.0, 205.8, 223.2, 236.3, 243.3, $ 242.0, 265.6, 284.0, 286.0, 322.4, 333.5, $ 343.5, 366.2, 385.9, 388.7, 412.4, 438.2, $ 463.4, 490.4, 518.7, 549.1, 577.8, 609.1, $ 642.7, 680.2, 720.5, 761.9, 805.2, 851.0, $ 886.0, 929.0, 980.0, 1058.0, 1080.0, 1168.0, $ 1224.0, 1271.0, 1328.0, 1380.0, 1438.0, 1498.0, $ 1558.0, 1620.0/ i = min(98,max(1,iz)) at_n2edge = dat(i) return end double precision function at_n3edge (iz) c N3 dge energy atom number (iz). eV integer iz, i double precision dat(98) data dat / $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 1.0, $ 2.0, 3.0, 3.0, 3.0, 3.0, 14.1, $ 15.3, 20.1, 23.1, 27.1, 30.8, 35.5, $ 39.9, 43.2, 47.3, 50.9, 58.3, 63.9, $ 73.5, 83.6, 95.6, 103.3, 123.0, 145.5, $ 161.3, 178.6, 196.0, 206.5, 217.6, 224.6, $ 242.0, 247.4, 257.0, 271.0, 284.1, 293.2, $ 308.2, 320.2, 332.6, 339.7, 359.2, 380.7, $ 400.9, 423.6, 446.8, 470.7, 495.8, 519.4, $ 546.3, 576.6, 609.5, 643.5, 678.8, 705.0, $ 740.0, 768.0, 810.0, 879.0, 890.0, 966.4, $ 1007.0, 1043.0, 1085.0, 1123.0, 1165.0, 1207.0, $ 1249.0, 1292.0/ i = min(98,max(1,iz)) at_n3edge = dat(i) return end double precision function at_n4edge (iz) c N4 dge energy atom number (iz). eV integer iz, i double precision dat(98) data dat / $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 2.0, 2.0, 4.0, 11.7, $ 17.7, 24.9, 33.3, 41.9, 50.6, 69.5, $ 79.8, 92.6, 105.3, 109.0, 115.1, 120.5, $ 120.0, 129.0, 133.0, 142.6, 150.5, 153.6, $ 160.0, 167.6, 175.5, 191.2, 206.1, 220.0, $ 237.9, 255.9, 273.9, 293.1, 311.9, 331.6, $ 353.2, 378.2, 405.7, 434.3, 464.0, 500.0, $ 533.0, 567.0, 603.0, 636.0, 675.0, 712.1, $ 743.0, 778.3, 816.0, 846.0, 880.0, 916.0, $ 955.0, 991.0/ i = min(98,max(1,iz)) at_n4edge = dat(i) return end double precision function at_n5edge (iz) c N5 dge energy atom number (iz). eV integer iz, i double precision dat(98) data dat / $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 2.0, 2.0, 4.0, 10.7, $ 16.9, 23.9, 32.1, 40.4, 48.9, 67.5, $ 77.5, 89.9, 102.5, 109.0, 115.1, 120.5, $ 120.0, 129.0, 127.7, 142.6, 150.5, 153.6, $ 160.0, 167.6, 175.5, 182.4, 196.3, 211.5, $ 226.4, 243.5, 260.5, 278.5, 296.3, 314.6, $ 335.1, 358.8, 385.0, 412.2, 440.1, 473.0, $ 507.0, 541.0, 577.0, 603.0, 639.0, 675.2, $ 708.0, 736.2, 771.0, 798.0, 829.0, 862.0, $ 898.0, 930.0/ i = min(98,max(1,iz)) at_n5edge = dat(i) return end double precision function at_n6edge (iz) c N6 dge energy atom number (iz). eV integer iz, i double precision dat(98) data dat / $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.1, 2.0, 1.5, $ 4.0, 5.2, 6.0, 8.6, 7.7, 8.0, $ 8.6, 4.7, 4.6, 2.5, 8.9, 15.9, $ 23.5, 33.6, 42.9, 53.4, 63.8, 74.5, $ 87.6, 104.0, 122.2, 141.7, 162.3, 184.0, $ 210.0, 238.0, 268.0, 299.0, 319.0, 342.4, $ 371.0, 388.2, 414.0, 436.0, 461.0, 484.0, $ 511.0, 538.0/ i = min(98,max(1,iz)) at_n6edge = dat(i) return end double precision function at_n7edge (iz) c N7 dge energy atom number (iz). eV integer iz, i double precision dat(98) data dat / $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, $ 0.0, 0.0, 0.0, 0.1, 2.0, 1.5, $ 4.0, 5.2, 6.0, 8.6, 2.4, 4.3, $ 5.2, 4.7, 4.6, 1.3, 7.5, 14.2, $ 21.6, 31.4, 40.5, 50.7, 60.8, 71.2, $ 83.9, 99.9, 117.8, 136.9, 157.0, 184.0, $ 210.0, 238.0, 268.0, 299.0, 319.0, 333.1, $ 360.0, 377.4, 403.0, 424.0, 446.0, 470.0, $ 495.0, 520.0/ i = min(98,max(1,iz)) at_n7edge = dat(i) return end double precision function at_kwidth(iz) c K edge core width, eV integer iz, i double precision dat(98) data dat / $ 0.240, 0.240, 0.240, 0.240, 0.240, 0.240, $ 0.240, 0.240, 0.240, 0.240, 0.300, 0.360, $ 0.420, 0.480, 0.530, 0.590, 0.640, 0.680, $ 0.740, 0.810, 0.860, 0.940, 1.010, 1.080, $ 1.160, 1.250, 1.330, 1.440, 1.550, 1.670, $ 1.820, 1.960, 2.140, 2.330, 2.520, 2.750, $ 2.990, 3.250, 3.520, 3.840, 4.140, 4.520, $ 4.910, 5.330, 5.770, 6.240, 6.750, 7.280, $ 7.910, 8.490, 9.160, 9.890, 10.600, 11.400, $ 12.300, 13.200, 14.100, 15.100, 16.200, 17.300, $ 18.500, 19.700, 21.000, 22.300, 23.800, 25.200, $ 26.800, 28.400, 30.100, 31.900, 33.700, 35.700, $ 37.700, 39.900, 42.100, 44.400, 46.800, 49.300, $ 52.000, 54.600, 57.400, 60.400, 63.400, 66.600, $ 69.800, 73.300, 76.800, 80.400, 84.100, 88.000, $ 91.900, 96.100, 96.100, 96.100, 96.100, 96.100, $ 96.100, 96.100 / i = min(98,max(1,iz)) at_kwidth = dat(i) return end double precision function at_l1width(iz) c L1 edge core width, eV integer iz, i double precision dat(98) data dat / $ 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, $ 0.000, 0.000, 0.000, 0.000, 0.200, 0.410, $ 0.730, 1.030, 1.260, 1.490, 1.580, 1.630, $ 1.920, 2.070, 2.210, 2.340, 2.410, 2.540, $ 2.620, 2.760, 2.790, 2.890, 3.060, 3.280, $ 3.380, 3.530, 3.790, 3.940, 4.110, 4.280, $ 4.440, 4.670, 4.710, 4.780, 3.940, 4.250, $ 4.360, 4.580, 4.730, 4.930, 4.880, 4.870, $ 5.000, 2.970, 3.130, 3.320, 3.460, 3.640, $ 3.780, 3.920, 4.060, 4.210, 4.340, 4.520, $ 4.670, 4.800, 4.910, 5.050, 5.190, 5.250, $ 5.330, 5.430, 5.470, 5.530, 5.540, 5.630, $ 5.580, 5.610, 6.180, 7.250, 8.300, 9.390, $ 10.500, 11.300, 12.000, 12.200, 12.400, 12.600, $ 12.800, 13.100, 13.300, 13.400, 13.600, 13.700, $ 14.300, 14.000, 14.000, 14.000, 14.000, 14.000, $ 14.000, 14.000/ i = min(98,max(1,iz)) at_l1width = dat(i) return end double precision function at_l2width(iz) c L2 edge core width, eV integer iz, i double precision dat(98) data dat / $ 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, $ 0.000, 0.000, 0.000, 0.000, 0.000, 0.001, $ 0.004, 0.015, 0.032, 0.054, 0.083, 0.126, $ 0.152, 0.170, 0.190, 0.240, 0.260, 0.290, $ 0.340, 0.370, 0.430, 0.520, 0.620, 0.720, $ 0.830, 0.950, 1.030, 1.130, 1.210, 1.310, $ 1.430, 1.540, 1.650, 1.780, 1.870, 1.970, $ 2.080, 2.230, 2.350, 2.430, 2.570, 2.620, $ 2.720, 2.840, 3.000, 3.120, 3.250, 3.400, $ 3.510, 3.570, 3.680, 3.800, 3.890, 3.970, $ 4.060, 4.150, 4.230, 4.320, 4.430, 4.550, $ 4.660, 4.730, 4.790, 4.820, 4.920, 5.020, $ 5.150, 5.330, 5.480, 5.590, 5.690, 5.860, $ 6.000, 6.170, 6.320, 6.480, 6.670, 6.830, $ 7.010, 7.200, 7.470, 7.680, 7.950, 8.180, $ 8.750, 9.320, 9.320, 9.320, 9.320, 9.320, $ 9.320, 9.320 / i = min(98,max(1,iz)) at_l2width = dat(i) return end double precision function at_l3width(iz) c L3 edge core width, eV integer iz, i double precision dat(98) data dat / $ 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, $ 0.000, 0.000, 0.000, 0.000, 0.000, 0.001, $ 0.004, 0.014, 0.033, 0.054, 0.087, 0.128, $ 0.156, 0.170, 0.190, 0.220, 0.240, 0.270, $ 0.320, 0.360, 0.430, 0.480, 0.560, 0.650, $ 0.760, 0.820, 0.940, 1.000, 1.080, 1.170, $ 1.270, 1.390, 1.500, 1.570, 1.660, 1.780, $ 1.910, 2.000, 2.130, 2.250, 2.400, 2.500, $ 2.650, 2.750, 2.870, 2.950, 3.080, 3.130, $ 3.250, 3.320, 3.410, 3.480, 3.600, 3.650, $ 3.750, 3.860, 3.910, 4.010, 4.120, 4.170, $ 4.260, 4.350, 4.480, 4.600, 4.680, 4.800, $ 4.880, 4.980, 5.040, 5.160, 5.250, 5.310, $ 5.410, 5.500, 5.650, 5.810, 5.980, 6.130, $ 6.290, 6.410, 6.650, 6.820, 6.980, 7.130, $ 7.330, 7.430, 7.430, 7.430, 7.430, 7.430, $ 7.430, 7.430 / i = min(98,max(1,iz)) at_l3width = dat(i) return end double precision function at_fluor_line(iz,line) c c return energy of fluorescence line integer iz character*(*) line, lt*8 double precision x, y, at_kedge, at_l1edge, at_l2edge double precision at_l3edge, at_m2edge double precision at_m3edge, at_m4edge, at_m5edge double precision at_n1edge, at_n2edge, at_n3edge double precision at_n4edge lt = line call lower(lt) at_fluor_line = 0 c if (lt(1:1) .eq. 'k') x = at_kedge(iz) if (lt(1:1) .eq. 'l') x = at_l3edge(iz) c if (lt.eq.'kalpha' .or. lt.eq.'kalpha1') then y = at_l3edge(iz) elseif (lt.eq.'kbeta' .or. lt.eq.'kbeta1') then y = at_m3edge(iz) elseif (lt.eq.'lalpha' .or. lt.eq.'lalpha1') then y = at_m5edge(iz) elseif (lt.eq.'lbeta' .or. lt.eq.'lbeta1') then x = at_l2edge(iz) y = at_m4edge(iz) elseif (lt.eq.'lgamma' .or. lt.eq.'lgamma1') then x = at_l2edge(iz) y = at_n4edge(iz) elseif (lt.eq.'kalpha2') then y = at_l2edge(iz) elseif (lt.eq.'kalpha3') then y = at_l1edge(iz) elseif (lt.eq.'kbeta2') then y = at_n3edge(iz) elseif (lt.eq.'kbeta3') then y = at_m2edge(iz) elseif (lt.eq.'kbeta4') then y = at_n4edge(iz) elseif (lt.eq.'kbeta5') then y = at_m4edge(iz) elseif (lt.eq.'lalpha2') then y = at_m4edge(iz) elseif (lt.eq.'lbeta2') then y = at_n4edge(iz) elseif (lt.eq.'lbeta3') then x = at_l1edge(iz) y = at_m3edge(iz) elseif (lt.eq.'lbeta4') then x = at_l1edge(iz) y = at_m2edge(iz) elseif (lt.eq.'lbeta6') then y = at_n1edge(iz) elseif (lt.eq.'lgamma2') then x = at_l1edge(iz) y = at_n2edge(iz) elseif (lt.eq.'lgamma3') then x = at_l1edge(iz) y = at_n3edge(iz) endif if (x.gt.0 .and. y.gt.0) at_fluor_line = x - y return end ifeffit-1.2.11d/src/lib/echo.f0000644000175000017500000001470010771740457015010 0ustar segresegre subroutine echo(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c dump string to standard output implicit none include 'echo.h' character*(*) str,form*8 parameter (form = '(1x)' ) call chrdmp(str) if (mod(i_echo,2).eq.1) write(*,form) return c end subroutine echo end subroutine chrdmp(str) c dump string to screen with "$" format c c i_echo c 0 echo to buffer c 1 echo to screen c 2 echo to open echo_file (if open) c 3 echo to screen and open echo_file (if open) c implicit none include 'echo.h' character*(*) str, out*256,frm*8,ffrm*8 parameter (frm= '(1x,a,$)', ffrm= '(1x,a)' ) integer istrln, n external istrln out = str n = max(1, istrln(out)) if (i_echo.eq.0) then call echo_push(out) else if (mod(i_echo,2).eq.1) write(*,frm) out(1:n) if ((i_echo.ge.2).and.(lun_echo.ge.1)) $ write(lun_echo, ffrm) out(1:n) endif return c end subroutine chrdmp end subroutine echo_init c initialize echo lines implicit none include 'echo.h' integer i do 20 i = 1, mxecho echo_str(i) = ' ' 20 continue call setsca('&echo_lines', 0.d0) n_echo = 0 call setsca('&screen_echo', 1.d0) i_echo = 1 lun_echo = 0 echo_file = '' return end subroutine close_echofile() implicit none include 'echo.h' if (lun_echo .ge. 1) then close(lun_echo) lun_echo = -1 echo_file = '' if (i_echo.eq.3) i_echo = 1 if (i_echo.eq.2) i_echo = 0 endif return end subroutine open_echofile(s) implicit none include 'echo.h' character*(*) s integer iex, ier, i, istrln external istrln call close_echofile() lun_echo = 19 echo_file = s(1:istrln(s)) call triml(echo_file) call openfl(lun_echo, echo_file, 'unknown', iex, ier) if (i_echo.eq.0) i_echo = 2 if (i_echo.eq.1) i_echo = 3 cc print*, ' done ' , i_echo c return end subroutine echo_push(string) c add echo string to internal list c copyright (c) 1999 matt newville implicit none character*(*) string, str*256 include 'echo.h' integer istrln, ilen, i external istrln str = string call sclean(str) call triml(str) ilen = istrln(str) if ((ilen.ge.1).and.(n_echo.lt.mxecho)) then do 30 i = mxecho, 2, -1 echo_str(i) = echo_str(i-1) 30 continue echo_str(1) = str(1:ilen) cc print*, ' ECHO_PUSH: ', str(1:ilen) n_echo = min(mxecho, n_echo + 1) endif call setsca('&echo_lines', n_echo * 1.d0) return c end subroutine echo_push end subroutine echo_pop(string) c add echo string to internal list c copyright (c) 1999 matt newville implicit none character*(*) string include 'echo.h' string = ' ' if (n_echo .gt. 0) then string = echo_str(n_echo) cc print*, ' ECHO_POP: ', string(1:60) echo_str(n_echo) = ' ' end if n_echo = min(mxecho, max(0, n_echo - 1)) call setsca('&echo_lines', n_echo * 1.d0) return c end subroutine echo_pop end c c routines to initialize and use a 'stop file' c that is, do c call fstop_init('stopfile.err') c early on, and replace subsequent c stop 'problem at line xxx' c with c call fstop('problem at line xxx') c c the error file will contain the error message c and will exist only if fstop() has been called. c that is, fstop_init() erases the stop file. c subroutine fstop_init(s) character*(*) s character*32 stopfilename common /stop_file/ stopfilename integer istrln,i external istrln stopfilename = s call triml(stopfilename) return end subroutine fstop(s) c c replaces intrinsic 'stop', writing stop message to c the stopfile initialized by fstop_init c implicit none character*(*) s, str*128 integer i, istrln external istrln character*32 stopfilename common /stop_file/ stopfilename str = s call triml(str) if (str .eq. '') str = 'unknown error' str = 'Fatal Error: '//str(1:istrln(str)) call echo(str(1:istrln(str))) call triml(stopfilename) if (istrln(stopfilename).ge.1) then i = 9 call newfil(stopfilename,i) write(i,'(1x,a)') str(1:istrln(str)) close (unit=i) endif stop return end subroutine warn(i,s) c c set &status value and write string to echo buffer integer i character*(*) s call echo(s) call set_status(i) return end subroutine set_status(i) c c set &status value integer i, ic double precision getsca, xc, xi xi = i * 1.d0 xc = getsca('&status',0) if (xi .gt. xc) call setsca('&status',xi) return end ifeffit-1.2.11d/src/lib/bvalue.f0000644000175000017500000002335310771740457015354 0ustar segresegre double precision function bvalue ( t, bcoef, n, k, x, jderiv ) c c from * a practical guide to splines * by c. de boor c calls interv c c calculates value at x of jderiv-th derivative of spline from b-repr. c the spline is taken to be continuous from the right, except at the c rightmost knot, where it is taken to be continuous from the left. c c from: in%"netlibd@research.att.com" 9-aug-1992 13:11:48.46 c subj: re: subject: send bvalue from pppack c echo "anything free comes with no guarantee!" c c****** i n p u t ****** c t, bcoef, n, k......forms the b-representation of the spline f to c be evaluated. specifically, c t.....knot sequence, of length n+k, assumed nondecreasing. c bcoef.....b-coefficient sequence, of length n . c n.....length of bcoef and dimension of spline(k,t), c a s s u m e d positive . c k.....order of the spline . c c w a r n i n g . . . the restriction k .le. kmax (=20) is imposed c arbitrarily by the dimension statement for aj, dl, dr below, c but is n o w h e r e c h e c k e d for. c c x.....the point at which to evaluate . c jderiv.....integer giving the order of the derivative to be evaluated c a s s u m e d to be zero or positive. c c****** o u t p u t ****** c bvalue.....the value of the (jderiv)-th derivative of f at x . c c****** m e t h o d ****** c the nontrivial knot interval (t(i),t(i+1)) containing x is lo- c cated with the aid of interv . the k b-coeffs of f relevant for c this interval are then obtained from bcoef (or taken to be zero if c not explicitly available) and are then differenced jderiv times to c obtain the b-coeffs of (d**jderiv)f relevant for that interval. c precisely, with j = jderiv, we have from x.(12) of the text that c c (d**j)f = sum ( bcoef(.,j)*b(.,k-j,t) ) c c where c / bcoef(.), , j .eq. 0 c / c bcoef(.,j) = / bcoef(.,j-1) - bcoef(.-1,j-1) c / ----------------------------- , j .gt. 0 c / (t(.+k-j) - t(.))/(k-j) c c then, we use repeatedly the fact that c c sum ( a(.)*b(.,m,t)(x) ) = sum ( a(.,x)*b(.,m-1,t)(x) ) c with c (x - t(.))*a(.) + (t(.+m-1) - x)*a(.-1) c a(.,x) = --------------------------------------- c (x - t(.)) + (t(.+m-1) - x) c c to write (d**j)f(x) eventually as a linear combination of b-splines c of order 1 , and the coefficient for b(i,1,t)(x) must then be the c desired number (d**j)f(x). (see x.(17)-(19) of text). c implicit none integer kmax parameter (kmax = 50) integer jderiv,k,n, i,ilo,imk,j,jc,jcmin,jcmax,jj,kmj,km1,mflag integer nmi,jdrvp1 double precision bcoef(n),t(*),x double precision aj(kmax),dl(kmax),dr(kmax),fkmj c dimension t(n+k) c former fortran standard made it impossible to specify the length c of t precisely without the introduction of otherwise superfluous c additional arguments. bvalue = 0.d0 if (jderiv .ge. k) return c c *** find i s.t. 1 .le. i .lt. n+k and t(i) .lt. t(i+1) and c t(i) .le. x .lt. t(i+1) . if no such i can be found, x lies c outside the support of the spline f , hence bvalue = 0. c (the asymmetry in this choice of i makes f rightcontinuous, c except at t(n+k) where it is leftcontinuous.) call interv ( t, n+k, x, i, mflag ) if (mflag .ne. 0) return c *** if k = 1 (and jderiv = 0), bvalue = bcoef(i). km1 = k - 1 if (km1 .le. 0) then bvalue = bcoef(i) return end if c c *** store the k b-spline coefficients relevant for the knot interval c (t(i),t(i+1)) in aj(1),...,aj(k) and compute dl(j) = x - t(i+1-j), c dr(j) = t(i+j) - x, j=1,...,k-1 . set any of the aj not obtainable c from input to zero. set any t.s not obtainable equal to t(1) or c to t(n+k) appropriately. 1 jcmin = 1 imk = i - k if (imk .lt. 0) then jcmin = 1 - imk do 5 j=1,i dl(j) = x - t(i+1-j) 5 continue do 6 j=i,km1 aj(k-j) = 0.d0 dl(j) = dl(i) 6 continue else do 9 j=1,km1 dl(j) = x - t(i+1-j) 9 continue end if c jcmax = k nmi = n - i if (nmi .ge. 0) then do 19 j=1,km1 dr(j) = t(i+j) - x 19 continue else jcmax = k + nmi do 15 j=1,jcmax dr(j) = t(i+j) - x 15 continue do 16 j=jcmax,km1 aj(j+1) = 0.d0 dr(j) = dr(jcmax) 16 continue end if c do 21 jc=jcmin,jcmax aj(jc) = bcoef(imk + jc) 21 continue c c *** difference the coefficients jderiv times. if (jderiv .ne. 0) then do 24 j=1,jderiv kmj = k-j fkmj = kmj ilo = kmj do 23 jj=1,kmj aj(jj) = ((aj(jj+1) - aj(jj))/(dl(ilo) + dr(jj)))*fkmj ilo = ilo - 1 23 continue 24 continue end if c c *** compute value at x in (t(i),t(i+1)) of jderiv-th derivative, c given its relevant b-spline coeffs in aj(1),...,aj(k-jderiv). if (jderiv .ne. km1) then jdrvp1 = jderiv + 1 do 34 j=jdrvp1,km1 kmj = k-j ilo = kmj do 33 jj=1,kmj aj(jj) = (aj(jj+1)*dl(ilo) + $ aj(jj)*dr(jj))/(dl(ilo)+dr(jj)) ilo = ilo - 1 33 continue 34 continue end if bvalue = aj(1) c return c end funtion bvalue end subroutine interv ( xt, lxt, x, left, mflag ) c from * a practical guide to splines * by c. de boor c computes left = max( i : xt(i) .lt. xt(lxt) .and. xt(i) .le. x ). c c****** i n p u t ****** c xt.....a real sequence, of length lxt , assumed to be nondecreasing c lxt.....number of terms in the sequence xt . c x.....the point whose location with respect to the sequence xt is c to be determined. c c****** o u t p u t ****** c left, mflag.....both integers, whose value is c c 1 -1 if x .lt. xt(1) c i 0 if xt(i) .le. x .lt. xt(i+1) c i 0 if xt(i) .lt. x .eq. xt(i+1) .eq. xt(lxt) c i 1 if xt(i) .lt. xt(i+1) .eq. xt(lxt) .lt. x c c in particular, mflag = 0 is the 'usual' case. mflag .ne. 0 c indicates that x lies outside the closed interval c xt(1) .le. y .le. xt(lxt) . the asymmetric treatment of the c intervals is due to the decision to make all pp functions cont- c inuous from the right, but, by returning mflag = 0 even if c x = xt(lxt), there is the option of having the computed pp function c continuous from the left at xt(lxt) . c c****** m e t h o d ****** c the program is designed to be efficient in the common situation that c it is called repeatedly, with x taken from an increasing or decrea- c sing sequence. this will happen, e.g., when a pp function is to be c graphed. the first guess for left is therefore taken to be the val- c ue returned at the previous call and stored in the l o c a l varia- c ble ilo . a first check ascertains that ilo .lt. lxt (this is nec- c essary since the present call may have nothing to do with the previ- c ous call). then, if xt(ilo) .le. x .lt. xt(ilo+1), we set left = c ilo and are done after just three comparisons. c otherwise, we repeatedly double the difference istep = ihi - ilo c while also moving ilo and ihi in the direction of x , until c xt(ilo) .le. x .lt. xt(ihi) , c after which we use bisection to get, in addition, ilo+1 = ihi . c left = ilo is then returned. c implicit none integer left,lxt,mflag, ihi,ilo,istep,middle double precision x,xt(lxt) save ilo data ilo /1/ c ihi = ilo + 1 if (ihi .ge. lxt) then if (x .ge. xt(lxt)) go to 110 if (lxt .le. 1) go to 90 ilo = lxt - 1 ihi = lxt c end if 20 if (x .ge. xt(ihi)) go to 40 if (x .ge. xt(ilo)) go to 100 c c **** now x .lt. xt(ilo) . decrease ilo to capture x . istep = 1 31 ihi = ilo ilo = ihi - istep if (ilo .le. 1) go to 35 if (x .ge. xt(ilo)) go to 50 istep = istep*2 go to 31 35 ilo = 1 if (x .lt. xt(1)) go to 90 go to 50 c **** now x .ge. xt(ihi) . increase ihi to capture x . 40 istep = 1 41 ilo = ihi ihi = ilo + istep if (ihi .ge. lxt) go to 45 if (x .lt. xt(ihi)) go to 50 istep = istep*2 go to 41 45 if (x .ge. xt(lxt)) go to 110 ihi = lxt c c **** now xt(ilo) .le. x .lt. xt(ihi) . narrow the interval. 50 middle = (ilo + ihi)/2 if (middle .eq. ilo) go to 100 c note. it is assumed that middle = ilo in case ihi = ilo+1 . if (x .lt. xt(middle)) go to 53 ilo = middle go to 50 53 ihi = middle go to 50 c**** set output and return. 90 mflag = -1 left = 1 return 100 mflag = 0 left = ilo return 110 mflag = 1 if (x .eq. xt(lxt)) mflag = 0 left = lxt 111 if (left .eq. 1) return left = left - 1 if (xt(left) .lt. xt(lxt)) return c end subroutine interv end ifeffit-1.2.11d/src/lib/fft.h0000644000175000017500000000026610771740457014655 0ustar segresegrec{fft.h -*-fortran-*- c fast-fourier transform: logical wftset double precision wfftc(mwfft) common /xftxv/ wfftc common /xftxl/ wftset c} ifeffit-1.2.11d/src/lib/preedg.f0000644000175000017500000002561410771740457015346 0ustar segresegre subroutine preedg(e0find, stfind, nxmu, energy, xmu, e0, $ predg1, predg2, enor1, enor2, nnorm, $ step, slopre, bpre, cnorm) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c pre-edge subtraction and normalization of exafs data. c c arguments: c e0find flag for finding e0 [in] c stfind logical flag to finding edge step [in] c nxmu length of array energy and xmu [in] c energy array of energy points [in] c xmu array of raw absorption points [in] c e0 e0, energy origin of data [in/out] c predg1 region for picking pre-edge line [in/out] c predg2 region for picking pre-edge line [in/out] c enor1 region for picking normalization [in/out] c enor2 region for picking normalization [in/out] c nnorm polynomial order of norm. curve [in/out] c step edge step for normalization [in/out] c ( found if zero on input ) c slopre slope of pre-edge line [out] c bpre intercept of pre-edge line [out] c cnorm coefficients of normalization curve [out] c (dimension 3: quadratic polynomial) c uses subroutine polyft c implicit none integer nxmu, npstp, nxmin,npoly, ne0, nofx,nnorm integer ier, sort_xy logical e0find, stfind parameter (npoly=4, nxmin = 5) double precision energy(nxmu), xmu(nxmu), coef(npoly) double precision tiny, edfmin, slopre, bpre, xenlo, xenhi double precision e0, predg1, predg2, enor1, enor2, step double precision e1def, e2def, p1def, p2def, tmp, cnorm(*) parameter (tiny = 1.d-9, edfmin= 100.d0) parameter (e1def= 1d2, e2def= 4d2, p1def= -50d0, p2def= -2d2) external nofx, sort_xy c c if e0 was not specified, or is out of range, c it is found as the point of maximum deriv, with check that c it is at least the third positive deriv in a row if (nxmu.le.nxmin) return ier = sort_xy(energy, xmu, nxmu, tiny) if ( e0find .or. e0.le.energy(1) .or. e0.ge.energy(nxmu) ) $ call findee(nxmu, energy, xmu, e0) c c linear fit to pre-edge if ((abs(predg1).le.tiny).and.(abs(predg2).le.tiny)) then predg1 = p1def predg2 = p2def end if if (predg1.gt.predg2) then tmp = predg1 predg1 = predg2 predg2 = tmp endif xenlo = e0 + predg1 xenhi = e0 + predg2 cc print*, ' pre-edge: ', predg1, predg2, e0 cc print*, ' pre-edge: ', xenlo , xenhi, energy(1) if (xenlo.lt.energy(1)) xenlo = energy(1) if (xenhi.lt.energy(1)) xenhi = (e0 + xenlo) /2 call polyft(xenlo, xenhi, energy, xmu, nxmu, 2, coef) bpre = coef(1) slopre = coef(2) c c normalization : make pre-edge 0.0 and post-edge 1.0 c if step size wasn't given, get it by extracting to e0 a c line that best fits the data on the range (e0+enor1,e0+enor2) if (stfind) then cnorm(1) = 0 cnorm(2) = 0 cnorm(3) = 0 step = 0 if ((abs(enor1).le.tiny).and.(abs(enor2).le.tiny)) then enor1 = e1def enor2 = e2def end if xenlo = e0 + enor1 xenhi = e0 + enor2 if (xenhi.gt.energy(nxmu)) xenhi = energy(nxmu) if (xenlo.gt.energy(nxmu)) xenlo = xenhi /2 npstp = nnorm if ((npstp.ge.3).and. $ (abs(xenhi - xenlo).le.edfmin)) npstp = 2 call polyft(xenlo, xenhi, energy, xmu, nxmu, npstp, cnorm) nnorm = npstp cc ne0 = nofx(e0, energy, nxmu) step = (cnorm(1) - bpre) + (cnorm(2) - slopre)*e0 if (npstp.eq.3) step = step + cnorm(3)*e0*e0 if (abs(step).lt.tiny) step = 1 end if cc print*, ' preedge: ', e0, step return c end subroutine preedg end subroutine findee(nxmu, energy, xmu, ee) c c find ee of x-ray absorption data c (maximum deriv, with check that it is at least c the third positive deriv in a row) c inputs: c nxmu length of array energy, xmu, and xmuout c energy array of energy points c xmu array of raw absorption points c outputs: c ee energy origin of data integer nxmu, ninc, ntry, i, j parameter (ninc = 3) logical inc(ninc), incall double precision energy(nxmu), xmu(nxmu), ee, dxde, demx, deltae double precision zero, tiny, onepls parameter (zero = 0, tiny = 1.d-9, onepls = 1.00001d0) c ee = zero if (nxmu.le.8) return do 100 i = 1, ninc inc(i) = .false. 100 continue dxde = zero demx = zero ntry = max(2, int(nxmu/2)) + 3 do 150 i = 2, ntry deltae = energy(i) - energy(i-1) if (deltae.gt.tiny) then dxde = (xmu(i) - xmu(i-1))/deltae inc(1) = dxde.gt.zero incall = inc(3).and.inc(2).and.inc(1) if (incall. and. (dxde.gt.demx) ) then ee = energy(i) demx = dxde * onepls end if do 130 j = ninc, 2, -1 inc(j) = inc(j - 1) 130 continue end if 150 continue return end integer function guess_iz(en,mu,npts,e0) c given a spectra of mu(e), guess the atomic number based on c edge position as found by findee c only k and l shells are considered, though it could be expanded. c data used is taken from mcmaster. c args: c en array of energy [in] c mu array of xmu [in] c npts size of energy,xmu [in] c e0 guessed e0 value [out] c returns: c iz atomic number c implicit none integer npts, nedges, iz, nofx, i parameter (nedges= 315) double precision en(npts), mu(npts), e0,ex,edges(nedges) integer iedge(nedges) external nofx data (edges(i),i = 1, 196) / 0.014,0.025,0.049,0.050,0.055,0.063, $ 0.072,0.073,0.087,0.099,0.100,0.112,0.118,0.135,0.136,0.153, $ 0.162,0.164,0.188,0.193,0.200,0.202,0.238,0.248,0.251,0.284, $ 0.287,0.295,0.297,0.341,0.346,0.350,0.399,0.400,0.402,0.404, $ 0.454,0.461,0.463,0.512,0.520,0.531,0.537,0.574,0.584,0.604, $ 0.639,0.650,0.682,0.686,0.707,0.720,0.754,0.778,0.793,0.842, $ 0.855,0.867,0.872,0.929,0.932,0.952,1.012,1.021,1.044,1.072, $ 1.100,1.115,1.142,1.196,1.218,1.249,1.302,1.305,1.325,1.360, $ 1.414,1.436,1.477,1.530,1.550,1.560,1.596,1.653,1.675,1.726, $ 1.782,1.805,1.839,1.863,1.920,1.940,2.007,2.065,2.080,2.149, $ 2.156,2.216,2.223,2.307,2.371,2.373,2.465,2.472,2.520,2.532, $ 2.625,2.677,2.698,2.793,2.822,2.838,2.866,2.967,3.003,3.043, $ 3.146,3.173,3.202,3.224,3.330,3.351,3.412,3.524,3.537,3.605, $ 3.607,3.727,3.730,3.806,3.929,3.938,4.018,4.038,4.132,4.156, $ 4.238,4.341,4.381,4.465,4.493,4.557,4.612,4.698,4.781,4.852, $ 4.939,4.965,5.012,5.100,5.188,5.247,5.359,5.452,5.465,5.483, $ 5.624,5.713,5.724,5.891,5.965,5.987,5.989,6.165,6.208,6.267, $ 6.441,6.460,6.540,6.549,6.717,6.722,6.835,6.977,7.013,7.112, $ 7.126,7.243,7.312,7.428,7.515,7.618,7.709,7.737,7.790,7.931, $ 8.052,8.071,8.252,8.333,8.358,8.376,8.581,8.648,8.708,8.919/ data (edges(i),i = 197,315) / 8.943,8.979,9.047,9.244,9.265, $ 9.395,9.561,9.618,9.659,9.752,9.881,9.978,10.116,10.204, $ 10.349,10.367,10.488,10.534,10.739,10.870,10.871,11.104, $ 11.136,11.215,11.272,11.542,11.564,11.680,11.868,11.918, $ 11.957,12.098,12.284,12.384,12.525,12.657,12.658,12.824, $ 12.964,13.035,13.273,13.418,13.424,13.474,13.733,13.892, $ 14.209,14.322,14.353,14.612,14.698,14.846,15.198,15.200, $ 15.344,15.708,15.860,16.105,16.300,16.385,17.080,17.167, $ 17.334,17.998,18.053,18.055,18.986,19.692,19.999,20.470, $ 20.947,21.045,21.756,22.117,22.263,23.095,23.220,24.350, $ 25.514,26.711,27.940,29.200,30.491,31.813,33.169,34.582, $ 35.985,37.441,38.925,40.444,41.991,43.569,45.184,46.835, $ 48.520,50.240,51.996,53.789,55.618,57.486,59.390,61.332, $ 63.314,65.351,67.414,69.524,71.676,73.872,76.112,78.395, $ 80.723,83.103,85.528,88.006,90.527,98.417,109.649,115.603, $ 121.760/ data (iedge(i), i=1,315) / 1,2,12,12,3,12,13,13,13,14,14,4,14, $ 15,15,15,16,16,5,16,17,17,17,18,18,6,18,19,19,19,20,20,21,20, $ 7,21,22,22,21,23,23,22,8,24,24,23,25,25,24,9,26,26,25,27,27, $ 26,28,10,28,27,29,29,28,30,30,11,29,31,31,30,32,32,31,12,33, $ 33,32,34,34,33,35,13,35,34,36,36,35,37,14,37,36,38,38,37,39, $ 15,39,38,40,40,41,39,41,16,42,40,42,43,41,43,17,44,42,44,45, $ 43,45,46,18,44,46,47,45,47,48,46,19,48,49,47,50,49,48,20,51, $ 50,49,52,51,50,21,53,52,51,54,53,52,22,55,54,53,56,55,54,23, $ 57,56,55,58,57,59,56,24,58,60,57,59,61,25,58,62,60,59,63,61, $ 26,60,64,62,61,65,63,27,62,66,64,63,67,65,28,68,64,66,69,65, $ 67,70,29,66,71,68,67,72,69,30,68,73,70,69,74,71,31,70,75,72, $ 71,76,32,73,77,72,74,78,73,33,79,75,74,80,76,75,81,34,77,76, $ 82,78,83,77,35,79,78,80,36,79,86,81,80,82,37,81,83,82,38,90, $ 83,39,92,86,40,94,86,41,90,42,90,92,43,92,44,94,94,45,46,47, $ 48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67, $ 68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,86,90,92,94/ c guess e0 from spectra guess_iz = 0 call findee(npts,en,mu,e0) c find closest energy in table ex = e0/1000.d0 guess_iz = iedge(nofx(ex,edges,nedges)) return end ifeffit-1.2.11d/src/lib/feffit.h0000644000175000017500000000505011012371353015315 0ustar segresegrec{feffit.h -*-fortran-*- double precision xguess(mvarys), xfinal(mvarys), delta(mvarys) double precision correl(mvarys, mvarys), chisqr, usrtol double precision q1st(mdata), qlast(mdata) double precision thifit(maxpts), chifit(maxpts) double precision chiq(maxpts,mdata),thiq(maxpts,mdata) double precision thiqr(maxpts,mdata), xnidp double precision qwindo(maxpts,mdata), rwindo(maxpts,mdata) double precision xinfo(mdata), rfactr(mdata), rfact_total double precision rweigh(mdata), rmin(mdata), rmax(mdata) double precision qweigh(mdata), qmin(mdata), qmax(mdata) double precision dq1(mdata), dq2(mdata) double precision sigwgt double precision sigdtr, sigdtk, sigdtq double precision qknot(mtknot,mdata),rbkg_f(mdata) double precision bkgq(maxpts,mdata) character*128 fit_macro*32, fit_m_arg character*128 cfmin_arr, cfmin_pre, cfmin_err character*128 restraint(max_restraint,mdata) integer nrestraint(mdata) logical bkgfit(mdata), bkgdat(mdata), usewgt, final integer nqfit(mdata), nqpts(mdata), nrpts(mdata), nqvals(mdata) integer iqwin(mdata), irwin(mdata), ifft(mdata), jffphs(mdata) integer nchi(mdata), nbkg(mdata), nfit(mdata), modeft(mdata) integer nfdats, inform, nvarys, mfit , nmacxx_save integer ifxvar, numvar, nvuser, ncarr, nconst integer nxscal, nxarr, iulist(mpaths, mdata) integer ifitx1, ifitx2, ifvar, iferr, ierbar, itera, ifit_mac c for multiple-k-weights in fit integer nqwfs(mdata), mqwfs parameter (mqwfs = 5) double precision qwfs(mqwfs,mdata), weight(mqwfs,mdata) common /fxtvr/ xguess, xfinal, delta, correl, chisqr, usrtol, $ chifit, q1st, qlast, chiq,thiq,thiqr, xnidp, qwindo, $ rwindo, sigdtr, sigdtk,sigdtq, xinfo, $ rfactr, rfact_total, sigwgt, weight, $ rmin, rmax, rweigh, qmin, qmax, qweigh, $ dq1, dq2, thifit, qknot, rbkg_f, bkgq, qwfs common /fxtlg/ final, bkgfit, bkgdat, usewgt common /fxtin/ nqfit, nqpts, itera, ifit_mac, $ nrpts, iqwin, irwin, ifft, modeft, jffphs, nchi, nbkg, $ nfdats,inform, nvarys, mfit, ifvar, iferr, ifxvar,numvar, $ nvuser, nxscal, nxarr, ncarr, nconst, iulist, $ ierbar, ifitx1, ifitx2, nqvals, nfit, nmacxx_save, $ nqwfs, nrestraint common /fxtch/ fit_macro, fit_m_arg common /cfmin/ cfmin_arr, cfmin_pre, cfmin_err, restraint c} ifeffit-1.2.11d/src/lib/f2c.h0000644000175000017500000001107410771740457014547 0ustar segresegre/* f2c.h -- Standard Fortran to C header file */ /** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ #ifndef F2C_INCLUDE #define F2C_INCLUDE typedef long int integer; typedef unsigned long uinteger; typedef char *address; typedef short int shortint; typedef float real; typedef double doublereal; typedef struct { real r, i; } complex; typedef struct { doublereal r, i; } doublecomplex; typedef long int logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; #if 0 /* Adjust for integer*8. */ typedef long long longint; /* system-dependent */ typedef unsigned long long ulongint; /* system-dependent */ #define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) #define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) #endif #define TRUE_ (1) #define FALSE_ (0) /* Extern is for use with -E */ #ifndef Extern #define Extern extern #endif /* I/O stuff */ #ifdef f2c_i2 /* for -i2 */ typedef short flag; typedef short ftnlen; typedef short ftnint; #else typedef long int flag; typedef long int ftnlen; typedef long int ftnint; #endif /*external read, write*/ typedef struct { flag cierr; ftnint ciunit; flag ciend; char *cifmt; ftnint cirec; } cilist; /*internal read, write*/ typedef struct { flag icierr; char *iciunit; flag iciend; char *icifmt; ftnint icirlen; ftnint icirnum; } icilist; /*open*/ typedef struct { flag oerr; ftnint ounit; char *ofnm; ftnlen ofnmlen; char *osta; char *oacc; char *ofm; ftnint orl; char *oblnk; } olist; /*close*/ typedef struct { flag cerr; ftnint cunit; char *csta; } cllist; /*rewind, backspace, endfile*/ typedef struct { flag aerr; ftnint aunit; } alist; /* inquire */ typedef struct { flag inerr; ftnint inunit; char *infile; ftnlen infilen; ftnint *inex; /*parameters in standard's order*/ ftnint *inopen; ftnint *innum; ftnint *innamed; char *inname; ftnlen innamlen; char *inacc; ftnlen inacclen; char *inseq; ftnlen inseqlen; char *indir; ftnlen indirlen; char *infmt; ftnlen infmtlen; char *inform; ftnint informlen; char *inunf; ftnlen inunflen; ftnint *inrecl; ftnint *innrec; char *inblank; ftnlen inblanklen; } inlist; #define VOID void union Multitype { /* for multiple entry points */ integer1 g; shortint h; integer i; /* longint j; */ real r; doublereal d; complex c; doublecomplex z; }; typedef union Multitype Multitype; /*typedef long int Long;*/ /* No longer used; formerly in Namelist */ struct Vardesc { /* for Namelist */ char *name; char *addr; ftnlen *dims; int type; }; typedef struct Vardesc Vardesc; struct Namelist { char *name; Vardesc **vars; int nvars; }; typedef struct Namelist Namelist; #define abs(x) ((x) >= 0 ? (x) : -(x)) #define dabs(x) (doublereal)abs(x) #define min(a,b) ((a) <= (b) ? (a) : (b)) #define max(a,b) ((a) >= (b) ? (a) : (b)) #define dmin(a,b) (doublereal)min(a,b) #define dmax(a,b) (doublereal)max(a,b) #define bit_test(a,b) ((a) >> (b) & 1) #define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) #define bit_set(a,b) ((a) | ((uinteger)1 << (b))) /* procedure parameter types for -A and -C++ */ #define F2C_proc_par_types 1 #ifdef __cplusplus typedef int /* Unknown procedure type */ (*U_fp)(...); typedef shortint (*J_fp)(...); typedef integer (*I_fp)(...); typedef real (*R_fp)(...); typedef doublereal (*D_fp)(...), (*E_fp)(...); typedef /* Complex */ VOID (*C_fp)(...); typedef /* Double Complex */ VOID (*Z_fp)(...); typedef logical (*L_fp)(...); typedef shortlogical (*K_fp)(...); typedef /* Character */ VOID (*H_fp)(...); typedef /* Subroutine */ int (*S_fp)(...); #else typedef int /* Unknown procedure type */ (*U_fp)(); typedef shortint (*J_fp)(); typedef integer (*I_fp)(); typedef real (*R_fp)(); typedef doublereal (*D_fp)(), (*E_fp)(); typedef /* Complex */ VOID (*C_fp)(); typedef /* Double Complex */ VOID (*Z_fp)(); typedef logical (*L_fp)(); typedef shortlogical (*K_fp)(); typedef /* Character */ VOID (*H_fp)(); typedef /* Subroutine */ int (*S_fp)(); #endif /* E_fp is for real functions when -R is not specified */ typedef VOID C_f; /* complex function */ typedef VOID H_f; /* character function */ typedef VOID Z_f; /* double complex function */ typedef doublereal E_f; /* real function with -R not specified */ /* undef any lower-case symbols that your C compiler predefines, e.g.: */ #ifndef Skip_f2c_Undefs #undef cray #undef gcos #undef mc68010 #undef mc68020 #undef mips #undef pdp11 #undef sgi #undef sparc #undef sun #undef sun2 #undef sun3 #undef sun4 #undef u370 #undef u3b #undef u3b2 #undef u3b5 #undef unix #undef vax #endif #endif ifeffit-1.2.11d/src/lib/iff_path.f0000644000175000017500000002124610771740457015655 0ustar segresegre subroutine iff_path(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c define path parameters for a given path c a path defintion consists of the following parameters: c index -- path pointer, defaults to next available integer c $file -- name of feff.dat / feff.bin, index c $label -- text string c path.k -- array for k when using path.amp / path.pha c path.amp -- array for explicit amplitude factor c path.pha -- array for explicit phase shift c s02 -- scalar amplitude factor c e0 -- scalar e0 shift c ei -- scalar ei shift c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'fefdat.h' include 'pthpar.h' save character*(*) str character*256 tmpfff, tmplab character*2048 parstr(mpthpr) character*64 defkey(3) double precision getsca, xiup, xip integer icode(micode), jcode(micode) integer irec, istrln, i, j, k, ier, ilen, lv integer ndfkey, ifeff, inpath, idpath, iupath integer iff_eval_dp, iff_eval_in, encod logical force_read external getsca, iff_eval_dp, iff_eval_in, istrln, encod c special indices for path parameters: c jpnull = no path param; jppath , jplabl for "path" & "label" c rest are the numerical path params, ranging from 1 to mpthpr cc print *, 'PATH ', str(1:70) call gettxt('feff_file', tmpfff) xiup = getsca('path_index',1) iupath = max(0,min(int(xiup),max_pathindex)) do 10 i = 1, mpthpr parstr(i) = undef 10 continue tmplab = ' ' force_read = .false. c interpret keyword/value pairs for setting options call bkeys(str, mkeys, keys, values, nkeys) cc print*, 'bkeys sees ', nkeys, ' pairs ' c set default keywords for "undefined" sets c ie: the first two unkeyed values will take keys 'id', 'feff' ndfkey = 2 defkey(1) = 'index' defkey(2) = 'feff' irec = 0 do 100 i = 1, nkeys k = istrln( keys(i)) lv = istrln(values(i)) cc print*, 'arg: ', keys(i)(:k), ' -> ', values(i)(:lv) if ((values(i).eq.undef).and.(i.le.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if ((keys(i).eq.'feff').or.(keys(i).eq.'file')) then if (values(i).ne.undef) then parstr(jfppth) = values(i) endif elseif (keys(i).eq.'label') then tmplab = values(i) elseif (keys(i).eq.'index') then iupath = -1 ier = iff_eval_in(values(i), j) if ((ier.eq.0).and.(j.gt.0).and. $ (j.le.max_pathindex)) then xip = j * one iupath = j call setsca('path_index', xip) endif c key for feff.bin elseif ((keys(i).eq.'key').or.(keys(i).eq.'record')) then ier = iff_eval_in(values(i), j) if ((ier.eq.0).and.(j.ge.0)) irec = j elseif ((keys(i).eq.'s02').or. $ (keys(i).eq.'amp')) then parstr(jfps02) = '('//values(i)(:lv)//')' elseif (keys(i).eq.'e0') then parstr(jfpe0) = '('//values(i)(:lv)//')' elseif (keys(i).eq.'ei') then parstr(jfpei) = '('//values(i)(:lv)//')' elseif (keys(i).eq.'delr') then parstr(jfpdr) = '('//values(i)(:lv)//')' elseif (keys(i).eq.'degen') then parstr(jfpdeg) = '('//values(i)(:lv)//')' elseif ((keys(i).eq.'sigma2').or. $ (keys(i).eq.'sig2')) then parstr(jfpss2) = '('//values(i)(:lv)//')' elseif (keys(i).eq.'third') then parstr(jfp3rd) = '('//values(i)(:lv)//')' elseif (keys(i).eq.'fourth') then parstr(jfp4th) = '('//values(i)(:lv)//')' elseif (keys(i).eq.'dphase') then parstr(jfppha) = '('//values(i)(:lv)//')' elseif (keys(i).eq.'k_array') then parstr(jfpkar) = '('//values(i)(:lv)//')' elseif (keys(i).eq.'phase_array') then parstr(jfppar) = '('//values(i)(:lv)//')' elseif (keys(i).eq.'amp_array') then parstr(jfpaar) = '('//values(i)(:lv)//')' elseif (keys(i).eq.'force_read') then call str2lg(values(i),force_read,ier) else k = istrln( keys(i)) messg = keys(i)(1:k)//' " will be ignored' call warn(1,' *** path: unknown keyword " '//messg) end if 100 continue c c a user path index must be given if (iupath.le.0) then call warn(2,' path: no valid path index given') return end if c c decide what internal path to use for this user path index c c iupath user path index user-chosen index c inpath internal path index which set of path params to use c ifeff feff path index which feff file to use c idpath data path index which internal path is this for this c data set, when summing over paths c idpath is the key, giving the rest using pointers: c inpath = jdtpth(idpath) c iuser = jdtusr(idpath) c ifeff = jpthff(inpath) c c so first, get idpath: idpath = 0 200 continue idpath = idpath + 1 if (idpath.gt.mpaths) then call warn(2, ' path -- too many paths for a data set') return elseif (jdtusr(idpath).eq.0) then jdtusr(idpath) = iupath elseif (jdtusr(idpath).ne.iupath) then go to 200 end if c c now get inpath so that jdtpth(idpath) = inpath c inpthx stores the current maximum path index if (jdtpth(idpath).eq.0) then inpthx = inpthx + 1 jdtpth(idpath)= inpthx end if inpath = jdtpth(idpath) c c but wait, there's more: get jfeff, if we know it. c encod and store math formula for each path param c c assign a feff path to the internal path: c-- ifeff set here so that jpthff(inpath) = ifeff if (parstr(jfppth).ne.undef) then tmpfff = parstr(jfppth) do 1640 ifeff = 1, mfffil if ( (feffil(ifeff) .eq. tmpfff).and. $ (iffrec(ifeff) .eq. irec)) go to 1700 if ( feffil(ifeff) .eq. blank ) go to 1700 1640 continue c 1680 continue c itfeff = itfeff + 1 c ifeff = itfeff 1700 continue jpthff(inpath)= ifeff jusedg(inpath)= 1 feffil(ifeff) = tmpfff iffrec(ifeff) = irec if (force_read) lffred(ifeff) = .false. end if c print*, 'PATH: iupath, idpath | inpath, iuser, ifeff ', c $ iupath, idpath, jdtpth(idpath) , c $ jdtusr(idpath), jpthff(inpath) c c OK, so now we set all the parameters pthlab(inpath) = tmplab c path id not set until the path is actually read.... do 2800 i = 1, mpthpr if ((i.ne.jfppth).and.(parstr(i).ne.undef)) then cc call rmquot(parstr(i)) c print*, 'path set param: ', i, '-> ', c $ parstr(i)(:istrln(parstr(i))) ier = encod(parstr(i), jcode, icode) if (iprint.ge.8) call rpndmp(jcode) do 2700 j = 1, micode icdpar(j,i,inpath) = icode(j) 2700 continue end if 2800 continue c return end ifeffit-1.2.11d/src/lib/copyright.f0000644000175000017500000000272710771740457016110 0ustar segresegrec////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2001 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// integer function copyr call echo(' Copyright (c) 1997-2005 Matthew Newville,'// $ ' The University of Chicago') copyr = 1 return end ifeffit-1.2.11d/src/lib/sum_paths.f0000644000175000017500000001552710771740457016105 0ustar segresegre subroutine sum_paths(idata, iupath, nxpath, nqmax, $ ckreal, ckimag) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c sum-over-paths for a particular data set, returning c real and imaginary parts of chi(k) c used by iff_ff2chi and fitfun c implicit none include 'consts.h' integer idata, i, ip, nqmax, xafs_path, ret integer nxpath, iupath(mpaths) double precision xdsave, xtmp, getsca, reff double precision ckreal(maxpts), ckimag(maxpts) double precision tmpi(maxpts), tmpr(maxpts) external getsca, xafs_path do 100 i = 1, maxpts ckreal(i) = zero ckimag(i) = zero 100 continue xdsave = getsca('data_set',0) xtmp = one*max(1,min(mdata,idata)) call setsca('data_set', xtmp) cc print*, 'sum paths data_set', xtmp do 1000 ip = 1, nxpath ret = xafs_path(iupath(ip), tmpr, tmpi, reff) cc print*, ' path ', ip, iupath(ip), ret, reff if (ret .eq. 1) then c add this to the other paths do 850 i = 1, nqmax ckreal(i) = ckreal(i) + tmpr(i) ckimag(i) = ckimag(i) + tmpi(i) 850 continue c else c print*, 'sum over paths: path not used: ', c $ ip, iupath(ip) endif 1000 continue c now return previous the previous 'user variables' call setsca('data_set', xdsave) return end integer function xafs_path(ipath,chi_r, chi_i,reff) c c calculate xafs for a single path c ipath = 'user path index' c idata = 'data set' c reff <= 0. on output means path isn't defined. c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'fefdat.h' include 'feffit.h' include 'pthpar.h' save integer ipath, i, j, k, inpath, nqmax, jfeff integer u2ipth, ntmp, nkpar, icode(micode) double precision reff, degen, xtmp, getsca double precision chi_r(maxpts),chi_i(maxpts) double precision tpakar(maxpts),tpaamp(maxpts),tpapha(maxpts) external u2ipth, getsca reff = -one xafs_path = 0 inpath = u2ipth(ipath) cc print*, ' xafs path ', ipath, u2ipth(ipath) if (inpath.le.0) return if (jpthff(inpath).le.0) then write(tmpstr,'(1x,a,i5)') ' no FEFF file for path ', ipath call warn(2,tmpstr) return else jfeff = jpthff(inpath) reff = refpth(jfeff) degen = degpth(jfeff) xtmp = ipath call setsca('path_index', xtmp) call setsca('degen', degen) call setsca('reff', reff) endif call synvar c c path OK to use xafs_path = 1 nkpar = 0 do 340 i = 1, maxpts tpakar(i) = (i-1)* qgrid tpaamp(i) = one tpapha(i) = zero 340 continue c loop over path parameters to evaluate do 500 i = 1, mpthpr c c set default path params here tmparr(1) = zero if (i.eq.jfps02) then tmparr(1) = one elseif (i.eq.jfpdeg) then tmparr(1) = degpth(jfeff) endif ntmp = 0 do 420 k = 1, micode icode(k) = icdpar(k,i,inpath) 420 continue if (iprint.ge.12) $ call rpndmp(icode) c evaluate parameter if it was defined if (icode(1).ne.0) then call decod(icode, micode, $ consts, scalar, array, narray, nparr, $ maxsize_array, maxarr, ntmp, tmparr) end if c c set the param value from tmparr: param(i) = tmparr(1) if (i.eq.jfpkar) then if (nkpar.gt.0) nkpar = min(nkpar, ntmp) if (nkpar.eq.0) nkpar = ntmp do 470 j = 1, ntmp tpakar(j) = tmparr(j) 470 continue elseif (i.eq.jfpaar) then if (nkpar.gt.0) nkpar = min(nkpar, ntmp) if (nkpar.eq.0) nkpar = ntmp do 480 j = 1, ntmp tpaamp(j) = tmparr(j) 480 continue elseif (i.eq.jfppar) then if (nkpar.gt.0) nkpar = min(nkpar, ntmp) if (nkpar.eq.0) nkpar = ntmp do 490 j = 1, ntmp tpapha(j) = tmparr(j) 490 continue endif 500 continue c c get chi(k) for this path from feff and path parameters c if ( (inpath.gt.0).and.(jfeff.gt.0)) then if (iprint.ge.9) then call echo('calling chipth:') c c print*, ' jfeff, maxpts =', jfeff, maxpts, mffpts c c print*, ' reff, degen =', reff, degen c c print*, 'sum_paths: jfeff, nffpts =', c c $ jfeff,nffpts(jfeff) end if cc print*, 'Phase array: ', nkpar, tpapha(1), tpapha(3) call chipth(theamp(1,jfeff), thepha(1,jfeff), $ qfeff(1,jfeff), xlamb(1,jfeff), realp(1,jfeff), $ nffpts(jfeff), reff, nkpar, tpakar, tpaamp, tpapha, $ maxpts, chi_r, chi_i) cc print*, ' path ', ipath, inpath, param(jfpdeg) c print*, 'degen,s02,e0,ei =',degen, c $ param(jfps02), param(jfpe0), param(jfpei) c print*, 'dphas,delr,sig2 =', c $ param(jfppha),param(jfpdr),param(jfpss2) c print*, 'theamp(28,jfeff)=', theamp(28,jfeff) c print*, 'qfeff(28,jfeff) =', qfeff(28,jfeff) cc print*, chi_r(1), chi_i(1), chi_r(3), chi_i(3) end if return end ifeffit-1.2.11d/src/lib/xafsft.f0000644000175000017500000001011510771740457015361 0ustar segresegre subroutine xafsft(mpts, chip, wa, xgrid, xwgh, wfftc,jfft,chiq) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c xafs fourier transform. includes k-weighting, an arbitrary window c function, and mapping from FT conjugates (k,2R) to (k,R), with c rational normalization c c fft routines cfftf/b (from fftpack) are used in subroutine xfft. c c arrays wa and wfftc must be initialized before this routine: c wfftc must be initialized by "cffti". c wa is probably initialized by "window". c arguments c mpts dimension of arrays chip and wa [in] c chip complex array of input data, on uniform grid [in] c chip(1) = chi(x=0.), zero-padding expected. c wa real array of window function [in] c xgrid grid spacing for chip [in] c xwgh x-weight [in] c wfftc work array for fft [in] c jfft integer controlling functionality [in] c 1 forward transform (k->r) c 0 no transform (returns windowed data) c -1 reverse transform (r->k) c chiq complex fourier transform of chip [out] c implicit none integer i, mpts, jfft, ixwgh double precision wfftc(*), wa(*), xwgh, dx, xgrid double precision sqrtpi, eps7, eps4 complex*16 chip(*), chiq(*), cnorm parameter(sqrtpi = 0.5641895835d0, eps7=1.d-7, eps4=1.d-4) c sqrtpi = 1 / sqrt(pi) c complex normalization constant, for the transform from r to k in c xafs, the xgrid is assumed to be the grid in r *not* in 2r. c to normalize correctly, cnorm must be multiplied by 2. c note that if we're not doing fft, we don't want to normalize cnorm = xgrid * sqrtpi * (1d0,0d0) if (jfft.lt.0) cnorm = 2 * cnorm if (jfft.eq.0) cnorm = (1d0,0d0) c make chiq as k-weighted and windowed chip c if xwgh is really an integer, do only the integer exponentiation ixwgh = int(xwgh) chiq(1) = (0d0,0d0) do 50 i = 2, mpts chiq(i) = cnorm * chip(i) * wa(i) $ * ((i-1) * xgrid)**ixwgh 50 continue c do fp exponentiation only if it will be noticeable dx = xwgh - ixwgh if (dx .gt. eps4) then do 60 i = 1, mpts chiq(i) = chiq(i) * ((i-1)*xgrid)**dx 60 continue end if cc print*, 'xafsft ' , mpts, jfft, wfftc(1), wfftc(40) c do fft on modified array, chiq (fft is done in place): c jfft > 0: cfftf, k->r, forward fft c jfft < 0: cfftb, r->k, reverse fft c jfft = 0: no fft, chiq returned as is (ie, after weighting) if (jfft.gt.0) call cfftf(mpts,chiq,wfftc) if (jfft.lt.0) call cfftb(mpts,chiq,wfftc) return c end subroutine xafsft end ifeffit-1.2.11d/src/lib/decod.f0000644000175000017500000005376010771740457015161 0ustar segresegre subroutine decod(icode, micode, consts, scalar, array, $ narray, nparr, mvpts, maxarr, nvout, outval) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: decodes icode array (created by encod), returning real vector c outval, containing results of performing the math expression c described by the icode array. c c arguments: c icode integer array -- coded math expression [in] c micode dimension of icode [in] c consts array of constants [in] c scalar array of scalar values [in] c arrays array of vector values (mvpts,maxarr) [in] c narray integer array : npts for each array [in] c mvpts max # of array elements in arrays [in] c maxarr max # of arrays [in] c nvout number of points in outval [in/out] c outval array of output values (mvpts) [in/out] c default values on input c notes: c 1. mvpts cannot exceed maxpts c 2. this decodes the icode array, inserting constants,scalars,arrays, c and performing math operations, to return the calulation to outval. c 3. outval will be returned if icode is empty. c 4. see also encod c c requires: encod.h, f1mth, f2mth, v1mth, stack, echo, eins c implicit none include 'maxpts.h' include 'encod.h' integer micode, mvpts, maxarr, nvout, mstack parameter(mstack=12) integer icode(micode), narray(maxarr), nparr(maxarr) double precision consts(*), scalar(*), array(*) double precision outval(mvpts), x(maxpts, mstack) double precision xtmp(maxpts) , xs_tmp, xx0, dx, tiny, small parameter (tiny = 1.d-9, small = 1.d-4) integer nx(mstack), ierr, istack, ic, i, j, iplace, iarx, npx integer nofxa, itmp1, itmp2 character mtherr*14, death*21 parameter(mtherr = ' * math error ') parameter(death = ' * math parser died: ') external nofxa c c-- return default if the icode is empty cc print*, ' decod: ', icode(1), icode(2), icode(3) ierr = 0 iplace = 0 istack = 0 if (mvpts.gt.maxpts) then ierr = 5 go to 1000 endif if (nvout.le.0) nvout = 1 if ((icode(1).eq.0) .or. (icode(1).eq.-1)) return c-- initialize stack do 50 i = 1, mstack nx(i) = 0 x(1,i) = 0 x(2,i) = 0 50 continue c-- interpret next object, do operations, and manage stack c hold place in icode array with iplace 100 continue iplace = iplace + 1 if (iplace.gt.micode) ierr = 2 ic = icode(iplace) if ((ic.eq.0).or.(ic.eq.-1)) then nvout = nx(1) do 104 i = 1, nx(1) outval(i) = x(i,1) 104 continue return c if number, then push everything in stack and fill in the first element elseif (ic.ge.1) then c push stack: istack = istack + 1 if (istack.ge.mstack) ierr = 1 do 150 i = istack, 2, -1 nx(i) = nx(i-1) do 140 j = 1, nx(i) x(j,i) = x(j,i-1) 140 continue 150 continue c fill with constant if (ic.gt.jconst) then x(1,1) = consts(ic - jconst) nx(1) = 1 c fill with scalar elseif ((ic.gt.jscale).and.(ic.le.jconst)) then x(1,1) = scalar(ic - jscale) nx(1) = 1 c fill with array else nx(1) = max(1, min(maxpts, narray(ic))) iarx = ic if (iarx.eq.0) then do 248 j = 1, nx(1) x(j,1) = 0 248 continue else cc print*, 'DECOD iarr = ', iarx, nparr(iarx), narray(iarx) cc print*, 'DECOD arr:',array(nparr(iarx)), cc $ array(nparr(iarx)+1) npx = nparr(iarx)-1 do 250 j = 1, nx(1) x(j,1) = array(npx+j) 250 continue endif endif c 1-component math: overwrite x(1) c iop range: -128 to -4096 elseif ( (ic.le.-1000).and.(ic.ge.-3000) ) then call f1mth(x(1,1),nx(1),ic,ierr) c 2-component math: overwrite x(1), drop x(2), pop stack, update nx(1) c iop range: -5000 to -6000 elseif ( (ic.le.-5000).and.(ic.ge.-8000) ) then call f2mth( x(1,1), nx(1), x(1,2), nx(2), ic, ierr) call stack(x,maxpts,mstack,nx,istack,1) c 1-component vector operations: floor, ceil value of an array, c sum or product of all elements in a single array c iop range: -30000 to -32000 elseif ((ic.le.-30000).and.(ic.ge.-32000)) then call v1mth(x(1,1),nx(1),ic,ierr) c special math operations: c iop range: -8000 to -10000 elseif (ic.eq.jdebye) then call cordby(x(1,1),nx(1),x(1,2),nx(2),ierr) call stack(x,maxpts,mstack,nx,istack,1) elseif (ic.eq.jeins) then call eins(x(1,1),nx(1),x(1,2),nx(2),ierr) call stack(x,maxpts,mstack,nx,istack,1) elseif (ic.eq.jkktf) then call w_kkf(x(1,1),nx(1),x(1,2),nx(2),ierr) call stack(x,maxpts,mstack,nx,istack,1) elseif (ic.eq.jkktr) then call w_kkr(x(1,1),nx(1),x(1,2),nx(2),ierr) call stack(x,maxpts,mstack,nx,istack,1) elseif (ic.eq.jfftf) then call w_fftf(x(1,1),nx(1),ierr) elseif (ic.eq.jfftr) then call w_fftr(x(1,1),nx(1),ierr) elseif (ic.eq.jpenl1) then call res_penalty(x(1,1),nx(1),x(1,2),nx(2),x(1,3),nx(3)) call stack(x,maxpts,mstack,nx,istack,2) elseif (ic.eq.jpenl2) then xtmp(1) = - exp(85.d0) call res_penalty(x(1,1),nx(1),xtmp,1,x(1,2),nx(2)) call stack(x,maxpts,mstack,nx,istack,1) elseif (ic.eq.jpenl3) then xtmp(1) = exp(85.d0) call res_penalty(xtmp, 1, x(1,1),nx(1),x(1,2),nx(2)) x(1,1) = xtmp(1) call stack(x,maxpts,mstack,nx,istack,1) elseif ((ic.eq.jterpl).or.(ic.eq.jterpq).or. $ (ic.eq.jterps).or.(ic.eq.jterpa) ) then j = jterpl - ic call xterp(x(1,1),nx(1),x(1,2),nx(2),x(1,3),nx(3),j,ierr) call stack(x,maxpts,mstack,nx,istack,2) elseif (ic.eq.jrebin) then call rebin_interp(x(1,1),nx(1),x(1,2),nx(2),x(1,3),nx(3)) call stack(x,maxpts,mstack,nx,istack,2) elseif (ic.eq.jlconv) then c gamma, x y yout cc print*, ' convolve: gamma = ', x(1,1), nx(2), nx(3) cc print*, ' convolve: x = ', x(1,3), x(2,3), x(3,3) cc print*, ' convolve: y = ', x(1,2), x(2,2), x(3,2) xx0 = 0.d0 call conv_lor(x(1,1),nx(2),x(1,3),x(1,2),xx0,xtmp) nx(1) = nx(2) do 320 j = 1, nx(1) x(j,1) = xtmp(j) 320 continue cc print*, 'done' call stack(x,maxpts,mstack,nx,istack,2) elseif (ic.eq.jgconv) then c gamma, x y yout cc print*, ' convolve: gamma = ', x(1,1), nx(2), nx(3) cc print*, ' convolve: x = ', x(1,3), x(2,3), x(3,3) cc print*, ' convolve: y = ', x(1,2), x(2,2), x(3,2) xx0 = 0.d0 call conv_gau(x(1,1),nx(2),x(1,3),x(1,2),xx0,xtmp) nx(1) = nx(2) do 370 j = 1, nx(1) x(j,1) = xtmp(j) 370 continue call stack(x,maxpts,mstack,nx,istack,2) c range: start stop step elseif (ic.eq.jrngar) then xx0 = x(1,3) dx = x(1,1) if (abs(dx) .le.tiny) dx = tiny nx(1) = int((abs(x(1,2)-x(1,3)) + small*abs(dx))/ abs(dx))+1 nx(1) = max(1, min(maxpts, nx(1))) do 390 j = 1, nx(1) x(j,1) = xx0 + (j-1)*dx 390 continue call stack(x,maxpts,mstack,nx,istack,2) elseif (ic.eq.jndarr) then nx(1) = max(1, min(maxpts, int(x(1,1)))) do 420 j = 1, nx(1) x(j,1) = j 420 continue elseif (ic.eq.j1sarr) then nx(1) = max(1, min(maxpts, int(x(1,1)))) do 440 j = 1, nx(1) x(j,1) = 1 440 continue elseif (ic.eq.j0sarr) then nx(1) = max(1, min(maxpts, int(x(1,1)))) do 450 j = 1, nx(1) x(j,1) = 0 450 continue elseif (ic.eq.jxgaus) then call do_gauss(x(1,3),nx(3),x(1,2),x(1,1),xtmp) nx(1) = nx(3) do 502 j = 1, nx(1) x(j,1) = xtmp(j) 502 continue call stack(x,maxpts,mstack,nx,istack,2) elseif (ic.eq.jxlore) then call do_loren(x(1,3),nx(3),x(1,2),x(1,1),xtmp) nx(1) = nx(3) do 505 j = 1, nx(1) x(j,1) = xtmp(j) 505 continue call stack(x,maxpts,mstack,nx,istack,2) elseif (ic.eq.jxvoit) then call do_pvoight(x(1,4),nx(4),x(1,3),x(1,2),x(1,1),xtmp) nx(1) = nx(4) do 510 j = 1, nx(1) x(j,1) = xtmp(j) 510 continue call stack(x,maxpts,mstack,nx,istack,3) elseif (ic.eq.jnofxa) then cc print*, ' nofx !' j = nofxa(x(1,1),x(1,2),nx(2)) nx(1) = 1 x(1,1) = j call stack(x,maxpts,mstack,nx,istack,1) elseif (ic.eq.jjoina) then j = nx(2) itmp1 = min(nx(1)+nx(2), maxpts)-nx(2) do 515 i = 1,nx(2) xtmp(i) = x(i,2) 515 continue do 516 i = 1,itmp1 xtmp(j+i) = x(i,1) 516 continue nx(1) = max(1,itmp1+nx(2)) do 517 i = 1,nx(1) x(i,1) = xtmp(i) 517 continue call stack(x,maxpts,mstack,nx,istack,1) elseif (ic.eq.jslica) then itmp1 = min(int(x(1,1)),nx(3)) itmp2 = max(int(x(1,2)),1) nx(1) = itmp1-itmp2+1 do 530 i = 1, nx(1) xtmp(i) = x(i+itmp2-1,3) 530 continue do 532 i = 1, nx(1) x(i,1) = xtmp(i) 532 continue call stack(x,maxpts,mstack,nx,istack,2) else ierr = 9999 end if c done : if no errors, then update param and go to next object if (ierr.eq.0) go to 100 c error handling 1000 continue if (ierr.eq.ilog) then call warn(2,mtherr//'-- log(x) needs x > 0') elseif (ierr.eq.ilog10) then call warn(2,mtherr//'-- log10(x) needs x > 0') elseif (ierr.eq.isqrt) then call warn(2,mtherr//'-- sqrt(x) needs x >= 0') elseif (ierr.eq.iasin) then call warn(2,mtherr//'-- asin(x) needs (-1< x <1)') elseif (ierr.eq.iacos) then call warn(2,mtherr//'-- acos(x) needs (-1< x <1)') elseif (ierr.eq.idiv) then call warn(2,mtherr//'-- divide by 0 ') elseif (ierr.eq.iy2x) then call warn(2,mtherr//'-- invalid exponentiation ') elseif (ierr.eq.jdebye) then call warn(2,mtherr//' using "debye" function ') call warn(2,' * could not find a path index to use!') elseif (ierr.eq.jeins) then call warn(2,mtherr//' using "eins" function') call warn(2,' * could not find a path index to use!') elseif (ierr.eq.1) then call warn(2,death//'exceeded stack size') elseif (ierr.eq.2) then call warn(2,death//'too many objects') elseif (ierr.eq.5) then call warn(2,death//'mvpts .gt. maxpts') elseif (ierr.eq.9999) then call warn(2,death//' unknown operation') else call warn(2,death//' i am truly confused') end if if (ierr.gt.0) then call set_status(3) endif c end subroutine decod end subroutine f1mth( x, nx, iop, ierr) c c one component math. if any tests are failed, x is returned. c iop is an integer indication of which operation to perform. c c copyright (c) 1998 matt newville implicit none include 'maxpts.h' include 'encod.h' integer iop, ierr, nx, i double precision x(*), xtmp(maxpts) double precision tmp, zero, one, half, quartr parameter(zero= 0.d0, one= 1.d0,half= 0.5d0,quartr=2.5d-1) double precision dgamma, dlgama, erf_xx external dgamma, dlgama, erf_xx c ierr = 0 if (iop.eq.iexp) then do 20 i = 1, nx tmp = max(-expmax, min(x(i), expmax) ) x(i) = exp(tmp) 20 continue elseif (iop.eq.ilog) then do 40 i = 1, nx if ( x(i).gt.zero ) then x(i) = log(x(i)) else ierr = iop x(i) = zero end if 40 continue elseif (iop.eq.ilog10) then do 42 i = 1, nx if ( x(i).gt.zero ) then x(i) = log10(x(i)) else ierr = iop x(i) = zero end if 42 continue elseif (iop.eq.isqrt) then do 60 i = 1, nx if ( x(i).ge.zero ) then x(i) = sqrt(x(i)) else ierr = iop x(i) = zero end if 60 continue elseif (iop.eq.iabs) then do 80 i = 1, nx x(i) = abs(x(i)) 80 continue elseif (iop.eq.ineg) then do 100 i = 1, nx x(i) = - x(i) 100 continue elseif (iop.eq.isin) then do 120 i = 1, nx x(i) = sin(x(i)) 120 continue elseif (iop.eq.icos) then do 140 i = 1, nx x(i) = cos(x(i)) 140 continue elseif (iop.eq.itan) then do 160 i = 1, nx x(i) = tan(x(i)) 160 continue elseif (iop.eq.iasin) then do 180 i = 1, nx if (abs(x(i)).le.one) then x(i) = asin(x(i)) else ierr = iop x(i) = zero end if 180 continue elseif (iop.eq.iacos) then do 200 i = 1, nx if (abs(x(i)).le.one) then x(i) = acos(x(i)) else ierr = iop x(i) = zero end if 200 continue elseif (iop.eq.iatan) then do 220 i = 1, nx x(i) = atan(x(i)) 220 continue elseif (iop.eq.itanh) then do 240 i = 1, nx x(i) = tanh(x(i)) 240 continue elseif (iop.eq.icoth) then do 242 i = 1, nx x(i) = one/tanh(x(i)) 242 continue elseif (iop.eq.icosh) then do 260 i = 1, nx x(i) = cosh(max(-expmax, min(x(i), expmax))) 260 continue elseif (iop.eq.isinh) then do 280 i = 1, nx x(i) = sinh(max(-expmax, min(x(i), expmax))) 280 continue elseif (iop.eq.jderiv) then xtmp(1) = x(2) - x(1) do 300 i = 2, nx-1 xtmp(i) = (x(i+1) - x(i-1))*half 300 continue xtmp(nx) = x(nx) - x(nx-1) do 305 i = 1, nx x(i) = xtmp(i) 305 continue elseif (iop.eq.jsmoo) then xtmp(1) =3*x(1)*quartr + x(2)*quartr do 320 i = 2, nx-1 xtmp(i) = (x(i) + (x(i+1) + x(i-1))*half)*half 320 continue xtmp(nx) = 3*x(nx)*quartr + x(nx-1)*quartr do 325 i = 1, nx x(i) = xtmp(i) 325 continue elseif (iop.eq.jasign) then do 360 i = 1, nx tmp = abs(x(i)) if (tmp.eq.zero) then x(i) = zero elseif (tmp.eq.x(i)) then x(i) = one else x(i) = -one end if 360 continue c external special functions elseif (iop.eq.jgamma) then do 502 i = 1, nx tmp = x(i) x(i) = dgamma(tmp) 502 continue elseif (iop.eq.jlgamm) then do 503 i = 1, nx tmp = x(i) x(i) = dlgama(tmp) 503 continue elseif (iop.eq.jerf) then do 510 i = 1, nx tmp = x(i) x(i) = erf_xx(tmp,0) 510 continue elseif (iop.eq.jerfc) then do 511 i = 1, nx tmp = x(i) x(i) = erf_xx(tmp,1) 511 continue elseif (iop.eq.jerfcx) then do 512 i = 1, nx tmp = x(i) x(i) = erf_xx(tmp,2) 512 continue end if return c end subroutine f1mth end subroutine f2mth( x, nx, y, ny, iop, ierr) c c two component math: x is overwritten by operator(x,y). c if ( (negative number)**(fraction) ) is requested, x is unchanged. c c iop is an integer indication of which operation to perform. c if iop = 0, then x is returned. c c copyright (c) 1998 matt newville implicit none include 'maxpts.h' include 'encod.h' integer ix, iy, i, newx double precision x(*), y(*), xout(maxpts) double precision xtmp, test integer nx, ny, iop, ierr, nx1, ny1, nptstk external nptstk ierr = 0 c decide number of points to write out c npstk = smaller of nx1, ny1 unless either of them is 1, c in which case it is the larger of the two. c (n = 1 implies a scalar ) nx1 = nx ny1 = ny nx = nptstk (nx1, ny1) if ((iop.eq.iadd).or.(iop.eq.jadd)) then do 20 i = 1, nx ix = min(nx1, i) iy = min(ny1, i) xout(i) = y(iy) + x(ix) 20 continue elseif ((iop.eq.isub).or.(iop.eq.jsub)) then do 40 i = 1, nx ix = min(nx1, i) iy = min(ny1, i) xout(i) = y(iy) - x(ix) 40 continue elseif (iop.eq.imul) then do 60 i = 1, nx ix = min(nx1, i) iy = min(ny1, i) xout(i) = y(iy) * x(ix) 60 continue elseif (iop.eq.idiv) then do 80 i = 1, nx ix = min(nx1, i) iy = min(ny1, i) if (x(ix).eq.0) then xout(i) = 0 ierr = iop else xout(i) = y(iy) / x(ix) end if 80 continue elseif (iop.eq.iy2x) then do 100 i = 1, nx ix = min(nx1, i) iy = min(ny1, i) newx = int(x(ix)) xtmp = newx if (x(ix).eq.0) then xout(i) = 1 elseif ( (y(iy).eq.0).and.(x(ix).gt.0) ) then xout(i) = 0 elseif (y(iy).gt.0) then test = x(ix) * log(y(iy)) if (test.gt.expmax) then xout(i) = exp(expmax) elseif (test.lt.(-expmax)) then xout(i) = exp(-expmax) else xout(i) = y(iy)**x(ix) end if elseif ( (y(iy).lt.0) ) then test = xtmp * log(-y(iy)) if (test.gt.expmax) then xout(i) = exp(expmax) elseif (test.lt.(-expmax)) then xout(i) = exp(-expmax) else xout(i) = y(iy)**newx end if end if 100 continue elseif (iop.eq.jmin) then cc print*, ' f2mth jmin ' do 120 i = 1, nx ix = min(nx1, i) iy = min(ny1, i) xout(i) = min(y(iy) , x(ix)) 120 continue elseif (iop.eq.jmax) then cc print*, ' f2mth jmax ' , nx, nx1, ny1 do 140 i = 1, nx ix = min(nx1, i) iy = min(ny1, i) xout(i) = max(y(iy) , x(ix)) 140 continue cc print*, ' f2mth jmax: ', xout(1), xout(2) end if c now overwrite x do 300 i = 1, nx x(i) = xout(i) 300 continue return c end subroutine f2mth end subroutine v1mth(x, nx, iop, ierr) c c one component math on a vector. if any tests are failed, x is c returned. iop indicates what operation to perform. c c copyright (c) 1998 matt newville include 'encod.h' double precision x(*), xtmp integer iop, ierr, nx, i ierr = 0 xtmp = 0 if (nx.le.0) nx = 1 if (iop.eq.jnpts) then xtmp = nx elseif (iop.eq.jceil) then xtmp = x(1) do 20 i = 2, nx xtmp = max(xtmp, x(i)) 20 continue elseif (iop.eq.jfloor) then xtmp = x(1) do 40 i = 2, nx xtmp = min(xtmp, x(i)) 40 continue elseif (iop.eq.jvsum) then xtmp = 0 do 60 i = 1, nx xtmp = xtmp + x(i) 60 continue elseif (iop.eq.jvprod) then xtmp = 1 do 80 i = 1, nx xtmp = xtmp * x(i) 80 continue end if c final array do 200 i = 2, nx x(i) = 0 200 continue x(1) = xtmp nx = 1 return c end subroutine v1tmh end ifeffit-1.2.11d/src/lib/keywrd.h0000644000175000017500000000214410771740457015400 0ustar segresegrec{keywrd.h -*-fortran-*- character*32 ckeys(mckeys), macnam(macmax) character*128 mcdesc(macmax), chint(mckeys) character*128 mcargs(mcdeep,mmcarg), mcargd(macmax,mmcarg) character*512 macstr(mcline) integer imcptr(mcline), imacro(macmax), mac_define(4) integer nmacro, nmac_stop, imac_save(mcdeep), mac_exec integer imac common /keywrd/ ckeys, chint, macstr, $ macnam, mcargs, mcargd, mcdesc common /intmac/ imcptr, imacro, imac_save, nmacro, nmac_stop, $ imac, mac_define, mac_exec c input / output integers (like, file luns) integer nkeys, iohist, iofile, ioinp integer nfiles, iunit(mfiles), iprint logical histry, tabdel common /inout/ nkeys, iohist, iofile, ioinp, nfiles, $ iunit, iprint, histry, tabdel c misc character strings for ifeffit character*64 keys(mkeys), def_command*16 character*256 values(mkeys), lfiles(mfiles) character*512 tmpstr, messg common /chars/ keys, values, lfiles, tmpstr, messg, def_command c} ifeffit-1.2.11d/src/lib/pthpar.h0000644000175000017500000000146010771740457015371 0ustar segresegrec{pthpar.h -*-fortran-*- double precision defalt(mpthpr), param(mpthpr) integer icdpar(micode,mpthpr,mpaths) integer jusedg(mpaths), jpthff(mpaths) integer jdtpth(0:mpaths), jdtusr(0:mpaths) integer inpthx, itfeff integer jfps02, jfpe0, jfpei, jfpdr, jfpss2, jfp3rd, jfp4th integer jfpkar, jfppha, jfpaar, jfppar, jfppth, jfpdeg parameter(jfps02 = 1, jfpe0 = 2, jfpei = 3, jfpdr = 4) parameter(jfpss2 = 5, jfp3rd = 6, jfp4th = 7, jfppha = 8) parameter(jfpkar = 10, jfpaar = 11, jfppar = 12, jfppth = 13) parameter(jfpdeg = 9) character*128 pthlab(mpaths) common /xptin/ icdpar, jdtpth, jdtusr, jpthff, $ jusedg, inpthx, itfeff common /xptlg/ defalt, param common /xptch/ pthlab c} ifeffit-1.2.11d/src/lib/clbfun.f0000644000175000017500000000466510771740457015354 0ustar segresegre subroutine clbfun(mf,nx,xv,fv,iend) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: minimization function for cromer-libermann bkg c c arguments: c mf number of points in ffit [in] c nx number of points in xv [in] c xv vector of variables [in] c ffit output vector to be minimized [out] c iend information tag [out] c c notes: c heavily overrides values in spldat c c see documentation and code comments for more details c c requires include files: consts.h, spline.h implicit none include 'consts.h' include 'spline.h' c c local variables integer nx, mf, iend, nvtmp, i, nrpts integer nqmin, nqmax, nmaxx, ipos double precision st, a2, a1, a0 , ex double precision xv(nx), fv(mf), mod save c a0 = xv(1) a1 = xv(2) a2 = xv(3) st = xv(4) do 100 i = 1, mf ex = endat(i) mod = a0 + ex * (a1 + a2 * ex) + spldat(i) * st fv(i) = (mod - xmudat(i)) * splfit(i) 100 continue return c end subroutine clbfun end ifeffit-1.2.11d/src/lib/iread.f0000644000175000017500000000707610771740457015166 0ustar segresegrec////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// integer function iread(iunit,line) c c reads line from an open file unit (iunit) c return values: c line length on success c -1 on 'end' c -2 on 'error' implicit none character*(*) line integer iunit, istrln, ilen external istrln line = ' ' 10 continue read(iunit, '(a)', end = 40, err = 50) line call sclean(line) call triml(line) iread = istrln(line) if (iread .eq. 0) goto 10 return 40 continue ilen = istrln(line) if (ilen.ge.1) then call sclean(line) call triml(line) iread = ilen else line = ' ' iread= -1 endif return 50 continue line = ' ' iread = -2 return end integer function iread_ky(iunit,key,line) c c reads line from an open file unit (iunit) c and extracts a 2character key (as for PAD files) c return values: c line length on success c -1 on 'end' c -2 on 'error' implicit none character*(*) line, key integer iunit, iread, ilen external iread key = ' ' line = ' ' ilen = iread(iunit, line) if (ilen.gt.2) then key = line(1:2) line = line(3:) ilen = ilen - 2 endif iread_ky = ilen return end subroutine sclean(str) c c clean a string so that all: c char(0), and char(10)...char(15) are end-of-line comments, c so that all following characters are explicitly blanked. c all other characters below char(31) (including tab) are c replaced by a single blank c c note that this is mostly useful when getting a string generated c by a non-fortran process (say, a C program) and for dealing with c dos/unix/max line-ending problems character*(*) str, blank*1 parameter (blank = ' ') integer i,j,is do 20 i = 1, len(str) is = ichar(str(i:i)) if ((is.eq.0) .or. ((is.ge.10) .and. (is.le.15))) then do 10 j= i, len(str) str(j:j) = blank 10 continue return endif if (is.le.31) str(i:i) = blank 20 continue return c end subroutine sclean end ifeffit-1.2.11d/src/lib/iff_eval.f0000644000175000017500000001075410771740457015652 0ustar segresegre integer function iff_eval(string,prefix,arr,narr) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c evaluate a string as an array, c return values: c -1 string = undef (ie, no array specified) c 0 string given, but didn't evaluate as an array (ie, is a scalar) c 1 string given, evaluated as array c arguments: c string string to evaluate in array context [in] c prefix group name to use for simple array names [in] c arr array of numerical values [out] c narr length of arr [out] c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'encod.h' save character*(*) string, prefix, str*2048, pre*256 logical isarr, ic_is_arr, isnum double precision arr(*) integer icode(micode), jcode(micode), get_array integer j, i, narr, ier, encod, istrln external get_array, ic_is_arr, encod, isnum, istrln c initialization iff_eval = -1 narr = 0 arr(1)= zero arr(2)= zero c c test string str = string call sclean(str) if ((str.eq.' ').or.(str.eq.undef)) return call undels(str) call lower(str) call triml(str) iff_eval = 0 c first check if number is a constant if (isnum(str)) then call str2dp(str,arr(1), ier) narr = 1 return endif c next check for a named array pre = prefix call triml(pre) call lower(pre) if ((pre.ne.undef).and.(pre.ne.'')) then narr = get_array(str, pre, 0, arr) cc print*, ' iff_eval get_arry :', narr, ' ' , str(1:30) if (narr .gt. 1) then iff_eval = 1 return endif endif c last resort: encod/decod string ier = encod(str, jcode, icode) call decod (icode, micode, consts, scalar, array, $ narray, nparr, maxsize_array, maxarr, narr, arr) isarr = ic_is_arr(icode,micode).and.(narr .gt. 1) if (isarr) iff_eval = 1 return end c integer function iff_eval_dp(str,dpval) c evaluate a string as a double precision number c if str cannot be a number, ier < 0 is returned. implicit none include 'consts.h' character*(*) str double precision arr(maxsize_array), dpval integer narr, ix, iff_eval external iff_eval iff_eval_dp = -1 dpval = zero ix = iff_eval(str,'',arr,narr) if (ix .ge. 0) then iff_eval_dp = 0 dpval = arr(1) endif return end integer function iff_eval_in(str,inval) c character*(*) str double precision dpval integer iff_eval_dp, inval external iff_eval_dp inval = 0 iff_eval_in = iff_eval_dp(str,dpval) if (iff_eval_in.eq.0) inval = int(dpval) return end integer function iff_eval_re(str,val) c character*(*) str double precision dpval real val integer iff_eval_dp external iff_eval_dp val = 0 iff_eval_re = iff_eval_dp(str,dpval) if (iff_eval_re.eq.0) val = dpval return end ifeffit-1.2.11d/src/lib/atomic.h0000644000175000017500000000153110771740457015346 0ustar segresegrec{atomic.h -*-fortran-*- character*2 at_symbol integer atomic_z external at_symbol, atomic_z double precision at_weight, at_fluor_line double precision at_kedge, at_l1edge, at_l2edge, at_l3edge double precision at_m1edge, at_m2edge, at_m3edge, at_m4edge double precision at_m5edge, at_n1edge, at_n2edge, at_n3edge double precision at_n4edge, at_n5edge, at_n6edge, at_n7edge double precision at_kwidth, at_l1width, at_l2width, at_l3width external at_weight, at_fluor_line external at_kedge, at_l1edge, at_l2edge, at_l3edge external at_m1edge, at_m2edge, at_m3edge, at_m4edge external at_m5edge, at_n1edge, at_n2edge, at_n3edge external at_n4edge, at_n5edge, at_n6edge, at_n7edge external at_kwidth, at_l1width, at_l2width, at_l3width c} ifeffit-1.2.11d/src/lib/iff_bkg_cl.f0000644000175000017500000002701110771740457016136 0ustar segresegre subroutine iff_bkg_cl(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: ifeffit pre-edge subtraction, normalization and exafs c extraction based on CL f'' data c c arguments: c str command line to performd [in] c c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'spline.h' save character*(*) str, defkey(3)*64 character*256 path, name1 character*256 xmuarr, en_arr, prearr, norarr integer lenwrk, lminfo, mxvars parameter (mxvars=5) parameter (lenwrk = (mxvars+1)*maxpts + 5*mxvars) double precision work(lenwrk), fv(maxpts), varys(mxvars) double precision arr_f1(maxpts),arr_f2(maxpts),tmpar2(maxpts) integer iwork(mxvars), nvarys double precision pre1, pre2, enor1, enor2, toler double precision slope, offset, cnorm(3) double precision ewid, a0, a1, a2, st,ex double precision e0_dt, es_dt, ps_dt, po_dt, estep double precision wgt_pre, wgt_xan, wgt_exa, qmax, xtmp logical stfind, eefind, is_kev integer jen, jxmu, ier, i, k, istrln, jdot, j integer ndfkey, npts_e, npts_x, nnorm, iz, ilen integer clcalc, iret, npts_k, ipos, iterp integer ne0, npts_t integer iff_eval, iff_eval_dp, iff_eval_in, sort_xy external iff_eval, iff_eval_dp, iff_eval_in, clcalc external istrln, clbfun, sort_xy c c get default values for pre-edge parameters from current scalar values call iff_sync eefind = .false. stfind = .true. is_kev = .false. estep = one iz = 0 e0 = 0 step = 0 pre1 = 0 pre2 = 0 enor1 = 0 enor2 = 0 slope = 0 offset = 0 nnorm = 3 ewid = 5.d-1 wgt_pre= 1.d1 wgt_exa= 1.d0 wgt_xan= 1.d-4 iterp = 2 name1 = undef call gettxt('group', name1) call bkeys(str, mkeys, keys, values, nkeys) c set default keywords for "undefined" sets c ie: the first two unkeyed values will take keys 'energy', 'xmu' ndfkey = 3 defkey(1) = 'energy' defkey(2) = 'xmu' defkey(3) = 'z' do 100 i = 1, nkeys k = istrln( keys(i)) if ((values(i).eq.undef).and.(i.le.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if ((keys(i).eq.'iz').or.(keys(i).eq.'z')) then ier = iff_eval_in(values(i),iz) elseif ((keys(i).eq.'ee').or.(keys(i).eq.'e0')) then ier = iff_eval_dp(values(i),e0) eefind = eefind .or. (values(i)(1:1).eq.'?') elseif (keys(i).eq.'width') then call str2dp(values(i),ewid, ier) elseif (keys(i).eq.'group') then name1 = values(i) elseif (keys(i).eq.'pre1') then ier = iff_eval_dp(values(i),pre1) elseif (keys(i).eq.'pre2') then ier = iff_eval_dp(values(i),pre2) elseif (keys(i).eq.'norm1') then ier = iff_eval_dp(values(i),enor1) elseif (keys(i).eq.'norm2') then ier = iff_eval_dp(values(i),enor2) elseif (keys(i).eq.'norm_order') then ier = iff_eval_in(values(i), nnorm) elseif (keys(i).eq.'interp') then iterp = 2 elseif (keys(i).eq.'edge_step') then ier = iff_eval_dp(values(i),step) stfind = .false. elseif (keys(i).eq.'is_kev') then call str2lg(values(i),is_kev, ier) elseif ((keys(i).eq.'find_e0').or. $ (keys(i).eq.'e0find')) then call str2lg(values(i),eefind,ier) elseif (keys(i).eq.'energy') then en_arr = values(i) call lower(en_arr) elseif (keys(i).eq.'xmu') then xmuarr = values(i) call lower(xmuarr) else messg = keys(i)(1:k)//' " will be ignored' call warn(1,' *** bkg_cl: unknown keyword " '//messg) end if 100 continue c c get/resolve array names if (name1.eq.undef) then jdot = index(xmuarr,'.') if (jdot.ne.0) name1 = xmuarr(1:jdot-1) endif if (name1.eq.undef) then jdot = index(en_arr,'.') if (jdot.ne.0) name1 = en_arr(1:jdot-1) endif if (name1.eq.undef) then call warn(2,' bkg_cl: can''t determine group name') return endif call fixnam(name1,1) call lower(name1) npts_e = maxpts npts_x = maxpts jdot = istrln(name1) jen = iff_eval(en_arr, name1, endat, npts_e) jxmu = iff_eval(xmuarr, name1, xmudat, npts_x) if (jen.le.0) then call warn(2,' bkg_cl: no energy array?') return elseif(jxmu.le.0) then call warn(2,' bkg_cl: no xmu array?') return end if c do 25 i = 1, npts_e arr_f1(i) = zero arr_f2(i) = zero 25 continue c c require that endat be monotonically increasing: if not, sort it ier = sort_xy(endat, xmudat, npts_e, tiny) if (ier .eq. 1) then call warn(1,' bkg_cl: energy data appears out of order') endif c if obvious, or explicitly stated, switch KeV to eV: if (is_kev .or. $ ((endat(1).le.90).and.(endat(npts_e).le.90))) then call warn(1,' bkg_cl: energy data appears to be in keV') call kev2ev(endat, npts_e) endif c call preedg for data, just to get internal e0 value cc print*, ' in bkg_cl before preedg call: ', eefind, e0 eefind = .true. call preedg(eefind, stfind, npts_x, endat, xmudat, $ e0, pre1, pre2, enor1, enor2, nnorm, $ step,slope,offset,cnorm) e0_dt = e0 es_dt = step ps_dt = slope po_dt = offset c c call clcalc call gettxt('&install_dir', path) ilen = istrln(path) path = path(1:ilen)//'/cldata/' iret = clcalc(iz, path, npts_e, endat, arr_f1, arr_f2) estep= one call conv_lor(ewid, npts_e, endat, arr_f2, estep, spldat) eefind = .true. call preedg(eefind, stfind, npts_x, endat, spldat, $ e0, pre1, pre2, enor1, enor2, nnorm, $ step,slope,offset,cnorm) varys(1) = zero varys(2) = zero varys(3) = zero varys(4) = es_dt/(step+0.01d0) c c make weighting factor do 200 i = 1, npts_x a0 = wgt_exa if (endat(i) .lt. e0_dt) a0 = wgt_pre if (abs(endat(i) - e0_dt).le.50d0) a0 = wgt_xan splfit(i) = a0 200 continue nvarys = 4 lminfo = 0 do 210 i = 1, npts_e fv(i) = zero 210 continue do 220 i = 1, lenwrk work(i) = zero 220 continue do 230 i = 1, mxvars iwork(i) = 0 230 continue toler = 1.d-5 call lmdif1 (clbfun, npts_e, nvarys, varys, fv, $ toler, lminfo, iwork, work, lenwrk) c c make array of pre-edge subtracted data c $group.pre: output (ensuring that it doesn't overwrite xmu!) a0 = varys(1) a1 = varys(2) a2 = varys(3) st = varys(4) do 730 i = 1, npts_x tmparr(i) = a0 + endat(i)*(a1 + a2*endat(i)) + spldat(i)*st 730 continue c c finally, call preedg on modified f" data, extending c the normalization range out in energy eefind = .true. a0 = -e0 + (enor2 + e0 + endat(npts_x)) / 2 call preedg(eefind, stfind, npts_x, endat, tmparr, $ e0, pre1, pre2, enor1, a0, nnorm, $ step,slope,offset,cnorm) c make pre-edge subtracted data and pre-edge subtracted f" do 760 i = 1, npts_x ex = po_dt + endat(i) * ps_dt xmudat(i) = xmudat(i) - ex tmpar2(i) = xmudat(i)/step spldat(i) = tmparr(i) - ex splfit(i) = spldat(i)/step 760 continue prearr = name1(1:jdot)//'.pre' norarr = name1(1:jdot)//'.norm' call set_array(prearr, name1, xmudat, npts_x, 1) call set_array(norarr, name1, tmpar2, npts_x, 1) prearr = name1(1:jdot)//'.f2' call set_array(prearr, name1, tmparr, npts_x, 1) prearr = name1(1:jdot)//'.f2pre' norarr = name1(1:jdot)//'.f2norm' call set_array(prearr, name1, spldat, npts_x, 1) call set_array(norarr, name1, splfit, npts_x, 1) c c create chi(k) from this background c c tmparr holds q(E_i), tmpar2 holds chi(E_i) do 900 i = 1, npts_x tmpar2(i) =(xmudat(i) - spldat(i)) / step 900 continue call chie2k(endat, tmpar2, npts_x, e0_dt, $ npts_k, arr_f1, arr_f2) call set_array('k', name1, arr_f1, npts_k, 1) call set_array('chi', name1, arr_f2, npts_k, 1) c reset the program variables call setsca('e0', e0_dt) call setsca('edge_step', step) call setsca('pre1', pre1) call setsca('pre2', pre2) call setsca('norm1', enor1) call setsca('norm2', enor2) call setsca('pre_slope', slope) call setsca('pre_offset', offset) call setsca('norm_c0', cnorm(1)) call setsca('norm_c1', cnorm(2)) call setsca('norm_c2', cnorm(3)) call settxt('group', name1) return c end subroutine iff_bkg_cl end subroutine chie2k(en, chie, ne, e0, nk,xk,chik) c include 'consts.h' integer ne, nkmax, nk, i, j, ne0, nt double precision en(*), chie(*), xk(*), chik(*) double precision e0, qmax double precision tx(maxpts), ty(maxpts) integer nofxa external nofxa ne0 = nofxa(e0, en, ne) c print*, 'chie2k ne, ne0 ', ne, ne0 j = 0 do 10 i = ne0, ne if (en(i) .ge. e0) then j = j + 1 tx(j) = sqrt(etok * abs(en(i)-e0)) ty(j) = chie(i) endif 10 continue nt = j qmax = tx(nt) nk = min(maxpts, int((qmax + 1.d-2) /qgrid)) c print*, 'chie2k x,y ', tx(1), tx(2), ty(1), ty(2) c print*, 'chie2k nk = ',nk do 20 i = 1, nk xk(i) = (i-1) * qgrid 20 continue call grid_interp(tx, ty, nt, zero, qgrid, nk, chik) return end ifeffit-1.2.11d/src/lib/iff_f1f2.f0000644000175000017500000001321510771740457015454 0ustar segresegre subroutine iff_f1f2(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: look up data in Chantler f' / f'' tables c arguments: c str command line to performd [in] c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'spline.h' include 'atomic.h' save character*(*) str character*256 path, en_arr, name1, defkey(3)*64 double precision a_e(maxpts), tmpx(maxpts) double precision a_f1(maxpts), a_f2(maxpts) double precision ewid, estep, aumax, aumin logical do_f1, do_f2 integer jen, jf, ier, i, k, istrln, ilen integer ndfkey, npts, iret, iz, jdot integer iff_eval, iff_eval_dp, iff_eval_in integer clcalc external iff_eval, iff_eval_dp, iff_eval_in external istrln, clcalc c call iff_sync call gettxt('&install_dir', path) do_f1 = .true. do_f2 = .true. ilen = istrln(path) path = path(1:ilen)//'/cldata/' ilen = istrln(path) iz = 1 estep = zero name1 = undef do 10 i = 1, maxpts a_e(i) = zero a_f1(i) = zero a_f2(i) = zero 10 continue c c note: ewid forced below -0.1d0 signals 'look up core level width' ewid = -1.d0 call bkeys(str, mkeys, keys, values, nkeys) ndfkey = 2 defkey(1) = 'energy' defkey(2) = 'iz' do 100 i = 1, nkeys k = istrln( keys(i)) if ((values(i).eq.undef).and.(i.le.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if ((keys(i).eq.'iz').or.(keys(i).eq.'z')) then ier = iff_eval_in(values(i),iz) elseif (keys(i).eq.'group') then name1 = values(i) elseif (keys(i).eq.'width') then ier = iff_eval_dp(values(i),ewid) elseif (keys(i).eq.'step') then ier = iff_eval_dp(values(i),estep) elseif (keys(i).eq.'do_f1') then call str2lg(values(i),do_f1, ier) elseif (keys(i).eq.'do_f2') then call str2lg(values(i),do_f2, ier) elseif (keys(i).eq.'energy') then en_arr = values(i) call lower(en_arr) else messg = keys(i)(1:k)//' " will be ignored' call warn(1,' *** f1f2: unknown keyword " '//messg) end if 100 continue c c get/resolve array names if (name1.eq.undef) then jdot = index(en_arr,'.') if (jdot.ne.0) name1 = en_arr(1:jdot-1) endif if (name1.eq.undef) then call warn(2, ' f1f2: can''t determine group name') return endif call fixnam(name1,1) call lower(name1) jdot = istrln(name1) jen = iff_eval(en_arr, name1, a_e, npts) aumax = a_e(1) aumin = a_e(1) do 160 i = 2, npts if (a_e(i).gt.aumax) aumax = a_e(i) if (a_e(i).lt.aumax) aumin = a_e(i) 160 continue c if (ewid.lt.-0.1d0) then if ((aumin.le.at_kedge(iz)).and. $ (aumax.ge.at_kedge(iz))) then ewid = at_kwidth(iz) elseif ((aumin.le.at_l3edge(iz)).and. $ (aumax.ge.at_l3edge(iz))) then ewid = at_l3width(iz) elseif ((aumin.le.at_l1edge(iz)).and. $ (aumax.ge.at_l1edge(iz))) then ewid = at_l1width(iz) else ewid = zero endif endif c if ((npts.ge.1) .and. (iz.ge.4)) then iret = clcalc(iz, path, npts, a_e, a_f1, a_f2) endif c c make array of f1 cc print*, ewid, estep, do_f1,do_f2 , npts, estep if (do_f1) then if (ewid.gt.zero) then call conv_lor(ewid, npts, a_e, a_f1,estep, tmpx) call set_array('f1', name1, tmpx, npts, 1) else call set_array('f1', name1, a_f1, npts, 1) endif endif c c make array of f2 if (do_f2) then if (ewid.gt.zero) then call conv_lor(ewid, npts, a_e, a_f2,estep, tmpx) call set_array('f2', name1, tmpx, npts, 1) else call set_array('f2', name1, a_f2, npts, 1) endif endif c call setsca('core_width', ewid) call iff_sync c return c end subroutine iff_f1f2 end ifeffit-1.2.11d/src/lib/iff_minimize.f0000644000175000017500000002101710771740457016536 0ustar segresegre subroutine iff_minimize(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c interface for general function fitting implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'feffit.h' save character*(*) str character*32 defkey(1) character*256 fitarr, x_arr, errarr, name1 double precision xfmin, xfmax, toler, toldef parameter (toldef = 1.d-7) integer lenwrk, lenfvc, nerstp, get_array parameter(lenwrk = 2*maxpts*mvarys + 20*mvarys + 2*maxpts) parameter(lenfvc = 2*maxpts) double precision work(lenwrk), fvect(lenfvc), ftemp(lenfvc) double precision fjac(lenfvc, mvarys) double precision alpha(mvarys, mvarys), varys(mvarys) double precision sumsqr, chired, tmp integer iwork(mvarys), ibadx(mvarys), jprint, mfx integer k, i, ier, ndfkey, lminfo, istrln , ilen integer ixa, nxa, nofx, nfdata, imac_tmp logical setx1, setx2, isamac integer iff_eval_dp, iff_eval external iff_eval_dp, iff_eval, sumsqr, isamac external genfun, get_array, istrln, nofx restraint(1,1) = undef nrestraint(1) = 0 fit_macro = undef fit_m_arg = ' ' ifit_mac = -1 nerstp = 1 jprint = 0 toler = zero usewgt = .false. errarr = 'fit_weight' x_arr = undef setx1 = .false. setx2 = .false. xfmin = zero xfmax = zero c interpret any and all keyword/value pairs for setting options call bkeys(str, mkeys, keys, values, nkeys) ndfkey = 1 defkey(1) = 'array' do 100 i = 1, nkeys k = istrln( keys(i)) if ((values(i).eq.undef).and.(i.le.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if ((keys(i).eq.'array')) then fitarr = values(i) elseif ((keys(i).eq.'ordinate').or.(keys(i).eq.'x')) then x_arr = values(i) elseif ((keys(i).eq.'uncertainty')) then errarr = values(i) usewgt = .true. elseif ((keys(i).eq.'xmax')) then ier = iff_eval_dp(values(i), xfmax) setx2 = .true. elseif ((keys(i).eq.'xmin')) then ier = iff_eval_dp(values(i), xfmin) setx1 = .true. elseif ((keys(i).eq.'toler')) then ier = iff_eval_dp(values(i), toler) elseif (keys(i).eq.'macro') then fit_macro = values(i) elseif ((keys(i).eq.'macro_arg')) then fit_m_arg = values(i) elseif (keys(i).eq.'restraint') then if ((values(i).ne.'').and.(values(i).ne.undef)) then nrestraint(1) = nrestraint(1) + 1 restraint(nrestraint(1),1) = values(i) endif else call warn(1,' *** minimize: unknown key: '//keys(i)(1:k)) end if 100 continue c call gettxt('group', name1) nfdata = get_array(fitarr, name1, 0, tmparr) if (nfdata.le.0) then call warn(2, ' minimize : no function to minimize?') return end if cfmin_pre = name1 cfmin_arr = fitarr cfmin_err = '' iferr = get_array(errarr, name1, 0, tmparr) if (iferr .gt. 0) cfmin_err = errarr ifitx1 = 1 ifitx2 = nfdata c c if x array is given use it for number of fit points, c and look at setx1 / setx2 for user-limited fit range if ((x_arr.ne.undef)) then ixa = iff_eval(x_arr, name1, tmparr,nxa) if (ixa.ne.0) then if (setx1) ifitx1 = nofx(xfmin, tmparr, nxa) if (setx2) ifitx2 = nofx(xfmax, tmparr, nxa) else call echo( ' minimize : cannot find ordinate function') call warn(1, ' for setting fit bounds') end if end if mfit = ifitx2 - ifitx1 + 1 + nrestraint(1) cc print*, 'MIN ifitx1,2,mfit = ', ifitx1, ifitx2, mfit c c setup and call lmdif cc print*, ' nvarys = ', nvarys, mfit, ifitx1, ifitx2 if (toler .le. zero) toler = toldef do 200 i =1, nvarys varys(i) = scalar(i) 200 continue do 210 i =1, mfit fvect(i) = zero 210 continue do 220 i =1, lenwrk work(i) = zero 220 continue do 240 i =1, mvarys iwork(i) = 0 240 continue c c c determine dependencies c note that we call iff_sync and then re-determine ifvar!! call iff_sync ifvar = get_array(fitarr, name1, 0,tmparr) c c check if fit_macro call will work if (fit_macro.ne.undef) then ifit_mac = 0 nmacxx_save = nmacro nmacro = 0 if (.not.(isamac(fit_macro,ifit_mac))) then tmpstr = ' fitting macro not found: '//fit_macro call warn(1,tmpstr) fit_macro = undef ifit_mac = 0 endif c save current macro state for later if (ifit_mac.gt.0) then nmac_stop = nmacro imac_tmp = imac endif endif if (nvarys.gt.0) then final = .false. itera = 0 call setsca('&fit_iteration', zero) call chrdmp(' minimize: fitting ... ') call lmdif1 (genfun, mfit, nvarys, varys, fvect, $ toler, lminfo, iwork, work, lenwrk) call lm_err(lminfo,toler) cc if ((lminfo.ne.0).and.(lminfo.ne.4).and.(lminfo.ne.5)) then if (lminfo.ne.0) then call chrdmp(' estimating uncertainties ... ') call fiterr(genfun, mfit, nvarys, lenfvc, mvarys, fvect, $ ftemp, fjac, alpha, jprint, nerstp, varys, $ delta, correl, ier, ibadx) if (ier.eq.0) then call echo('done.') else call echo('finished with warnings') call echo(' error bars not estimated. some '// $ 'variable(s) may not affect the fit') call echo(' check these variables:') do 480 i = 1, nvarys if (ibadx(i).gt.0) then ilen = istrln(scanam(i)) call warn(1,' '//scanam(i)(:ilen)) end if 480 continue endif else call warn(1,' no uncertainties estimated!') end if else call warn(1,' minimize: no variables defined.') end if c save arrays to Program Variables final = .true. call genfun(mfit, nvarys, varys, fvect, lminfo) mfx = mfit - nrestraint(1) chisqr = sumsqr(fvect, mfx) chired = chisqr / max(0.1d0, dble(mfx - nvarys)) call setsca('chi_square', chisqr) call setsca('chi_reduced', chired) tmp = nvarys * one call setsca('n_varys', tmp) if (.not.usewgt) then do 500 i = 1, nvarys delta(i) = sqrt(abs(chired)) * delta(i) ilen = istrln(scanam(i)) messg = 'delta_' // scanam(i)(1:ilen) call setsca(messg, delta(i)) 500 continue endif if (ifit_mac.gt.0) then nmac_stop = 0 imac = imac_tmp endif return end ifeffit-1.2.11d/src/lib/get_inpfile.f0000644000175000017500000000200010771740457016345 0ustar segresegre subroutine get_inpfile(defval,fname,istat) c c return first command line argument, as if for a filename, c using defval if no argument is given: c c arguments c defval default file name (character) input only c fname output file name (character) output only c istat output status (integer) output only c = 0 for success, = 1 for failure character*(*) defval, fname integer n_args, istat, jstat character*256 cl_args(3), f c c g77 version istat = 1 n_args = iargc() f = defval if (n_args .ge. 1) then call getarg(1,f) istat = 0 endif call triml(f) fname = f return end cc dvf version c use dflib c istat = 1 c n_args = nargs() c f = defval c jstat = 0 c c if (n_args .ge.2) then c CALL GETARG(1,f, jstat) c istat = 0 c endif c call triml(f) c fname = f c return c end c ifeffit-1.2.11d/src/lib/conv_lor.f0000644000175000017500000003404010771740457015712 0ustar segresegre subroutine conv_lor(gamma, mpts, x, y, step, yout) c c broaden an array with a lorentzian of width gamma c typically used for broadening an energy-dependent array c c arguments: c gamma lorenztian width (in eV) [in] c mpts size of x,y arrays [in] c x array of x (energy) values [in] c y array of y (ordinate values to broaden [in] c step step size (can be zero, see note) [in] c yout broadened array y(x) [out] c c note: c for the convolution to work properly, the y(x) data c needs to be on an even x-grid. this is done here, so c that input data does not need to be on an even grid. c c if step is non-zero, that will be used as the grid spacing c if step is zero, the grid spacing will be found from the c data itself, as the smallest spacing in the input x array. c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1999--2001 Matthew Newville, The University of Chicago c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, or the authors appear in advertising or c endorsement of works derived from this software without specific c prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c implicit none include 'maxpts.h' integer npts, i, j, mpts, ipos, nx1 double precision x(*), y(*), yout(*), step, st, xt double precision gamma, sum, factr, zero, small double precision tmpy, dx, gami, ytmp(maxpts) double precision xtmp(maxpts), tmp(maxpts) parameter (zero = 0.d0, small = 1.d-9) st = step npts = min(maxpts,mpts) if (npts.le.2) return gami = 4.d0/(gamma*gamma) c c if step is too small (ie, zero) determine it from data if (st.le.small) then st = abs(x(2) - x(1)) do 100 i = 3, npts xt = abs(x(i) - x(i-1)) if (xt.ge.small) st = min(st,xt) 100 continue end if c make sure step size / npts is OK.... 105 continue nx1 = 1 + int( (x(npts) - x(1) + small) / st) if (nx1.gt.maxpts) then st = st + st goto 105 endif c linearly interpolate onto even x grid ipos = 1 do 200 i = 1, nx1 xtmp(i) = (i-1) * st + x(1) call lintrp(x, y, npts, xtmp(i), ipos, ytmp(i)) 200 continue c c convolve do 500 i = 1, nx1 sum = zero tmpy = zero do 400 j = 1, nx1 dx = xtmp(j) - xtmp(i) factr = 1 / ( 1 + dx * dx * gami) sum = sum + factr tmpy = tmpy + ytmp(j) * factr 400 continue tmp(i) = tmpy / max(small, sum) 500 continue c c put result back on input x-array ipos = 0 do 700 i = 1, npts call lintrp(xtmp, tmp, nx1, x(i), ipos, yout(i)) 700 continue c return end subroutine conv_gau(gamma, mpts, x, y, step, yout) c c broaden an array with a gaussian of width gamma c typically used for broadening an energy-dependent array c c arguments: c gamma lorenztian width (in eV) [in] c mpts size of x,y arrays [in] c x array of x (energy) values [in] c y array of y (ordinate values to broaden [in] c step step size (can be zero, see note) [in] c yout broadened array y(x) [out] c c note: c for the convolution to work properly, the y(x) data c needs to be on an even x-grid. this is done here, so c that input data does not need to be on an even grid. c c if step is non-zero, that will be used as the grid spacing c if step is zero, the grid spacing will be found from the c data itself, as the smallest spacing in the input x array. c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1999--2001 Matthew Newville, The University of Chicago c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, or the authors appear in advertising or c endorsement of works derived from this software without specific c prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c implicit none include 'maxpts.h' integer npts, i, j, mpts, ipos, nx1 double precision x(*), y(*), yout(*), step, st, xt double precision gamma, sum, factr, zero, small double precision tmpy, dx, gami, ytmp(maxpts) double precision xtmp(maxpts), tmp(maxpts) parameter (zero = 0.d0, small = 1.d-12) st = step npts = min(maxpts,mpts) if (npts.le.2) return gami = 1.d0/(2*gamma*gamma) c c if step is too small (ie, zero) determine it from data if (st.le.small) then st = abs(x(2) - x(1)) do 100 i = 3, npts xt = abs(x(i) - x(i-1)) if (xt.ge.small) st = min(st,xt) 100 continue end if c make sure step size / npts is OK.... 105 continue nx1 = 1 + int( (x(npts) - x(1) + small) / st) if (nx1.gt.maxpts) then st = st + st goto 105 endif c c linearly interpolate onto even x grid ipos = 1 do 200 i = 1, nx1 xtmp(i) = (i-1) * st + x(1) call lintrp(x, y, npts, xtmp(i), ipos, ytmp(i)) 200 continue c c convolve do 500 i = 1, nx1 sum = zero tmpy = zero do 400 j = 1, nx1 dx = xtmp(j) - xtmp(i) factr = exp(-gami*dx*dx) sum = sum + factr tmpy = tmpy + ytmp(j) * factr 400 continue tmp(i) = tmpy / max(small, sum) 500 continue c c put result back on input x-array ipos = 0 do 700 i = 1, npts call lintrp(xtmp, tmp, nx1, x(i), ipos, yout(i)) 700 continue c return end subroutine do_gauss(x,mpts,cen,wid,out) c c simple calculation of true gaussian function on input c array x c gauss(x,cen,wid) = 1/[wid*sqrt(2pi)] * exp[-(x-cen)^2/(2*wid^2)] c c arguments: c x array of x values [in] c mpts size of x,y arrays [in] c cen centroid of gaussian [in] c wid width of gaussian [in] c out array of output values [out] c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1999--2001 Matthew Newville, The University of Chicago c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, or the authors appear in advertising or c endorsement of works derived from this software without specific c prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c implicit none include 'maxpts.h' integer npts, i, j, mpts double precision x(*), out(*), cen, wid double precision one,small,scale, escal, s2pi parameter (one = 1.d0, small = 1.d-12) c s2pi = 1 / sqrt(2*pi) parameter (s2pi = 0.3989422804014327d0) c wid = max(small, wid) scale = s2pi/ wid escal = -one / (2 * wid * wid) do 100 i = 1, mpts out(i) = scale * exp(escal*(x(i) - cen)*(x(i) - cen)) 100 continue c return end subroutine do_loren(x,mpts,cen,wid,out) c c simple calculation of true lorenztian function on input c array x c loren(x,cen,wid) = wid/(2*pi) * [ (x-cen)^2 + (wid/2)^2]^(-1) c c arguments: c x array of x values [in] c mpts size of x,y arrays [in] c cen centroid of lorentzian [in] c wid width of lorentzian [in] c out array of output values [out] c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1999--2001 Matthew Newville, The University of Chicago c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, or the authors appear in advertising or c endorsement of works derived from this software without specific c prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c implicit none include 'maxpts.h' integer npts, i, j, mpts double precision x(*), out(*), cen, wid double precision four, small,scale, wid2, pi, pi2 parameter (four = 4.d0, small = 1.d-12) parameter (pi = 3.141592653589793d0) parameter (pi2 = 2.d0 * pi) c c loren(x,cen,wid) = wid/(2*pi) * [ (x-cen)^2 + (wid/2)^2]^(-1) wid = max(small, wid) scale = wid / pi2 wid2 = wid * wid / four do 100 i = 1, mpts out(i) = scale / ((x(i)-cen)*(x(i)-cen) + wid2) 100 continue c return end subroutine do_pvoight(x,mpts,cen,fwhm,frac,out) c c simple calculation of pseudo-voight as weighted sum c of lorenztian and gaussian functions c voight(x,cen,wid,frac) = frac *loren(x,cen,wid) + c (1-frac)*gauss(x,cen,wid) c c arguments: c x array of x values [in] c mpts size of x,y arrays [in] c cen centroid of loren/gauss [in] c wid width of loren/gauss [in] c frac fraction for lorentzian [in] c out array of output values [out] c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1999--2001 Matthew Newville, The University of Chicago c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, or the authors appear in advertising or c endorsement of works derived from this software without specific c prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c implicit none include 'maxpts.h' integer npts, i, j, mpts double precision x(*), out(*), cen, fwhm, frac double precision tmp(maxpts), sig, conv c conv = 1/ (2 * sqrt(2*log(2))) parameter (conv = 0.424660900144d0) sig = fwhm * conv call do_loren(x,mpts,cen,fwhm,out) call do_gauss(x,mpts,cen,sig,tmp) do 100 i = 1, mpts out(i) = frac*out(i) + (1-frac)*tmp(i) 100 continue c return end ifeffit-1.2.11d/src/lib/ComBuild0000644000175000017500000000162510771740457015346 0ustar segresegre#!/usr/bin/python # # build ifeffit's build.h file # copyright (c) 2002 matt newville # import string, sys try: keywords = sys.argv[1] except: keywords = "Keywords.dat" comfile = 'com.h' cright = "Copyright (c) 2005 Matt Newville, Univ of Chicago" indent = " " * 5 def readfile(file): print " Reading %s " % file f = open(file,'r') l = f.readlines() f.close() return l # convert keyword list to com.h kw = readfile(keywords) coms = {} for i in kw: j = i.strip() if ((len(j) > 5) and (j[0] != '#')): (x, y) = string.split(i,'::') coms[x] = y.strip() k = coms.keys() k.sort() file = comfile f = open(file,'w') f.write("c{%s -*-fortran-*-\n" % file) j = 0 for i in k: j = j+1 f.write("%s ckeys(%i) = '%s'\n" % (indent,j,i)) f.write("%s chint(%i) = '%s'\n" % (indent,j,coms[i])) f.write("c}\n") f.close() print " Wrote %s " % file ifeffit-1.2.11d/src/lib/uwxrdf.f0000644000175000017500000007572410771740457015426 0ustar segresegre subroutine cabort(messg, abortf) c c copyright university of washington 1981 c part of uwxafs binary (rdf) file handling c conditional abort; if abortf is .true. c character*(*) messg logical abortf call echo(messg) if (abortf) then call warn(3,'* uwxafs data file handling abort *') return endif return c end subroutine cabort end subroutine putrec(iounit,array,nw,skey,nkey,ier) c c copyright university of washington 1981 c part of uwxafs binary (rdf) file handling c c put data record to a random access data file c c iounit : i/o unit no(integer,input) c array : data to be put(any type,input) c nw : no of words in array(integer,input) c skey : symbolic key for the record(character,input) c nkey : numeric key for the record(integer,input) c ier : error code(integer,output) c 1 - unit not declared c 2 - nw .lt. 0 c 3 - file protection violated c 4 - skey is blank c 5 - rewrite interlock not cleared c 6 - record length is different for rewrite c 7 - nkey does not exist c 8 - index full c c skey must be given always and nkey should be zero for new record c non zero nkey means rewrite. - nw should be equal to current one c implicit integer(a-z) c parameter (indxl=191, nu=2, iword = 128 ) c character*(*) skey character*80 fname(nu),ctmp character*2048 cindx(nu) integer*2 indx(4,0:indxl,nu) logical abortf,safe,rewrt,modify(nu) c common /uwdata/ unit(nu),modify,abortf,safe,rewrt,nldoc,indx common /uwdocs/ cindx,fname c save /uwdata/,/uwdocs/ c real array(nw) c call gunit(iounit,u) if(u.eq.0) then call cabort('putrec: unit not declared',abortf) ier=1 return endif c if(nw.lt.0) then call cabort('putrec: no data to write',abortf) ier=2 return endif c if(modify(u)) then call cabort('putrec: '//fname(u)// $ ' has no write permission',abortf) ier=3 return endif c if(skey.eq.' ') then call cabort('putrec: skey not given',abortf) ier=4 return endif c last=indx(2,0,u) if(nkey.ne.0) then c rewrite if(.not.rewrt) then call cabort('putrec: rewrite interlock not cleared',abortf) ier=5 return endif rewrt=.false. c rewrite if(nkey.gt.last) then call cabort('putrec: old nkey does not exist',abortf) ier=7 return endif if(nw.ne.indx(2,nkey,u)) then call cabort('putrec: old/new record length dont match',abortf) ier=6 return endif pru=indx(1,nkey,u) c c new record else if(last.ge.indxl) then call cabort('putrec: index full',abortf) ier=8 return endif pru=indx(1,0,u) endif c nblk = (nw + iword - 1)/iword do 10 i = 1 , nblk l = min(i*iword, nw) write(iounit, rec=i+pru-1)(array(j),j=(i-1)*iword+1,l) 10 continue c c new index for rewrite if(nkey.ne.0) then call echo('putrec: symbolic key overwritten'// $ cindx(u)(nkey*10+1:nkey*10+10)) cindx(u)(nkey*10+1:nkey*10+10)=skey else c new index for new record cindx(u)(last*10+11:last*10+20)=skey indx(1,last+1,u)=indx(1,0,u) indx(2,last+1,u)=nw endif c new no of entries and eof block no indx(1,0,u)=indx(1,0,u)+nblk indx(2,0,u)=last+1 ier=0 c check duplicate key ctmp=skey ntmp=nkey 100 continue do 500 n=1,last if(ctmp.ne.cindx(u)(n*10+1:n*10+10)) go to 500 if(n.ne.ntmp) go to 510 500 continue c no duplicate key go to 600 c put an asterisk, if one is not there already 510 continue do 520 i=6,10 if(cindx(u)(n*10+i:n*10+i).eq.'*') go to 520 cindx(u)(n*10+i:n*10+i)='*' c check again if new skey is duplicate ctmp=cindx(u)(n*10+1:n*10+10) ntmp=n go to 100 520 continue call cabort('putrec: same skey occured five times',abortf) 600 continue if(safe) then call wrindx(iounit) else modify(u)=.true. endif return c end subroutine putrec end subroutine putdoc(iounit,doc,nl,skey,nkey,ier) c c copyright university of washington 1981 c part of uwxafs binary (rdf) file handling c c put documentation lines to a random access data file c iounit : fortran i/o unit no(integer,input) c doc : document lines(character,input) c nl : no of lines to be written(integer,input) c skey : symbolic key associated with the record(char,in) c nkey : numeric key associated with the record(integer,in) c ier : error code (integer,output) c 1 - unit not declared c 2 - nl .le. 0 c 3 - c 4 - skey not given c 5 - rewrite interlock not cleared c 6 - skey not found c if doc='doc' , internal buffer is used c symbolic key must be given c for new record, nkey should be zero. c implicit integer(a-z) c parameter (indxl=191, nu=2 ) c character*(*) skey character*80 fname(nu), doctmp*100 character*2048 cindx(nu) integer*2 indx(4,0:indxl,nu) logical abortf,safe,rewrt,modify(nu) c common /uwdata/ unit(nu),modify,abortf,safe,rewrt,nldoc,indx common /uwdocs/ cindx,fname c save /uwdata/,/uwdocs/ c parameter(maxl=20, maxchr=100 ) character*(maxchr) dbuf(maxl) common /uwdbuf/ dbuf save /uwdbuf/ c character*(*) doc(*) c call gunit(iounit,u) if(u.eq.0) then call cabort('putdoc: unit not declared',abortf) ier=1 return endif c c convert form to the case of this routine. c 'case' controls the the case of this routine doctmp = doc(1) call smcase(doctmp, 'case') c if ((nl.le.0).and.(doctmp.ne.'doc')) then call cabort('putdoc: no documents to write',abortf) ier=2 return endif c if(skey.eq.' ') then call cabort('putdoc: skey must be given',abortf) ier=4 return endif c last=indx(2,0,u) c if(nkey.ne.0) then c existing record if(.not.rewrt) then call cabort('putdoc: rewrite interlock not cleared',abortf) ier=5 return endif rewrt=.false. iord=nkey else c new record call gnkey(iounit,skey,iord,ier) if(iord.eq.0) then call cabort('putdoc: skey not found',abortf) ier=6 return endif endif c c write at the end, always pru=indx(1,0,u) if (doctmp.eq.'doc') then c write internal buffer indx(4,iord,u)=nldoc nblk=(nldoc+4)/5 do 10 i=1,nblk lblk=min(i*5,nldoc) write(iounit, rec=pru+i-1) (dbuf(j),j=i*5-4,lblk) 10 continue else c write doc indx(4,iord,u)=nl nblk=(nl+4)/5 do 20 i=1,nblk lblk=min(i*5,nl) write(iounit, rec=pru+i-1)(doc(j),j=i*5-4,lblk) 20 continue endif c adjust index indx(3,iord,u)=pru indx(1,0,u)=pru+nblk c if (safe) write out new index if(safe) then call wrindx(iounit) else c otherwise, mark it c new index will be written when closrf is called modify(u)=.true. endif ier=0 return c end subroutine putdoc end subroutine openrf(iounit,lfn,aflag,sflag,ftype,irecl,ier) c c copyright university of washington 1981 c part of uwxafs binary (rdf) file handling c c openrf uses direct access binary files with word size irecl. c irecl = 128 on vax, 512 otherwise? c c structure of random data file c c block size=512 byte=128 word c c block 1-3 : indx(4,0:indxl,u) c block 4-7 : cindx(u)*2048 c c first data block is 8 c c indx(1,0,u) address of eof (non exisiting) c indx(2,0,u)=no of entries c indx(3,0,u)=1776 for identification c indx(4,0,u)=704 same purpose c c indx(1,n,u)=address of data n c indx(2,n,u)=no of words for data n c indx(3,n,u)=address of doc n c indx(4,n,u)=no of lines for doc n c c cindx(u)(1:10)=ftype c cindx(u)(n*10+1:n*10+10)=skey for nkey n c--------------------------- implicit integer(a-z) parameter (indxl = 191, nu = 2) character*(*) ftype,lfn,aflag,sflag character*80 fname(nu),fn, aflg*10, sflg*10 character*2048 cindx(nu) integer*2 indx(4,0:indxl,nu) logical abortf,safe,rewrt,exist logical clor, modify(nu) c common /uwdata/ unit(nu),modify,abortf,safe,rewrt,nldoc,indx common /uwdocs/ cindx,fname c save /uwdata/,/uwdocs/ c ccc data unit,nldoc/nu*0,0/ ccc data abortf,safe/.true.,.false./ c clor =.false. c find out the case of this routine. c 'case' controls the the case of this routine sflg = sflag aflg = aflag call smcase(aflg, 'case') call smcase(sflg, 'case') c abortf = (aflg.ne.'noabort') safe = safe.or.(sflg.eq.'safe') c c if lfn is blank, lfn=for0un where un is fortran i/o no if(lfn.eq.' ') then fn = 'for0' write(fn(5:6),1,err=9999)iounit 1 format(i2.2) else fn=lfn endif inquire (file=fn,exist=exist) c call gunit(iounit,u) if(u.eq.0) then c assign iounit no to unit(n), a table do 100 n=1,nu if(unit(n).eq.0) then unit(n)=iounit u=n fname(u)=fn go to 110 endif 100 continue c call cabort('openrf: max no of files exceeded',abortf) ier=1 return 110 continue c else call echo('openrf: unit reopened') endif c if(ftype.eq.' ') then c no modify permit modify(u)=.true. else modify(u)=.false. endif c if(exist) then c file exists if(.not.modify(u)) then c can modify the file open(iounit, file=fn, recl=irecl, access='direct', $ status='old', iostat=iosb, err=9999) else c cannot modify the file open(iounit, file=fn, recl=irecl, access='direct', $ status='old') cccccc $ ,readonly) endif c read in existing index do 10 i=1,3 read(iounit,rec=i)((indx(k,l,u),k=1,4),l=i*64-64,i*64-1) 10 continue do 20 i=1,4 read(iounit,rec=i+3)cindx(u)(i*512-511:i*512) 20 continue c if(indx(3,0,u).ne.1776 .or. indx(4,0,u).ne.704) then call cabort('openrf: wrong file',abortf) ier=4 return endif ier=0 c if(ftype.ne.' '.and.ftype.ne.cindx(u)(1:10))then call cabort('openrf: wrong file type',abortf) ier=3 return endif return c c new file c else if(ftype.eq.' ') then call cabort('openrf: ftype needed for file creation',abortf) ier=5 return endif c create a new file open(iounit,file=fn,recl=irecl,access='direct', x status='new') cindx(u)=ftype c index initialization do 30 i=1,indxl do 30 j=1,4 indx(j,i,u)=0 30 continue indx(1,0,u)=8 indx(2,0,u)=0 indx(3,0,u)=1776 indx(4,0,u)=704 ier=0 go to 99 endif c entry wrindx(iounit) c write out index call gunit(iounit,u) 99 continue do 101 i=1,3 write(iounit,rec=i,err=9999) $ ((indx(j,k,u),j=1,4),k=i*64-64,i*64-1) 101 continue do 111 i=1,4 write(iounit,rec=i+3,err=9999)cindx(u)(i*512-511:i*512) 111 continue if(clor) go to 77 9998 return 9999 ier=iosb go to 9998 c entry closrf(iounit,ier) c call gunit(iounit,u) if(u.eq.0) then call cabort('openrf: unit not declared',abortf) ier=1 return endif c reset i/o unit table unit(u)=0 ier=0 c if modified, rewrite index clor=.false. if(modify(u)) then clor=.true. go to 99 endif 77 continue close(iounit) clor=.false. return c entry rwrtrf(iounit,ier) c rewrite interlock. safeguard. call gunit(iounit,u) if(u.eq.0) then call cabort('openrf: unit not declared',abortf) ier=1 return endif c rewrt=.true. return c end subroutine openrf end block data uwbdat c c copyright university of washington 1981 c part of uwxafs binary (rdf) file handling c c block data statements for uwxafs c implicit integer(a-z) parameter (indxl = 191, nu = 2) integer*2 indx(4,0:indxl,nu) logical abortf,safe,rewrt logical modify(nu) c common /uwdata/ unit(nu),modify,abortf,safe,rewrt,nldoc,indx save /uwdata/ data unit,nldoc/nu*0,0/ data abortf,safe/.true.,.false./ c end block data end subroutine getrec(iounit,array,nw,skey,nkey,ntw,ier) c c copyright university of washington 1981 c part of uwxafs binary (rdf) file handling c c get data record from a data file c iounit : i/o unit number (integer,input) c array : array to receive data (any type,output) c nw : maximum no of words to receive(integer,input) c skey : symbolic key of data record to get(character,input) c nkey : numeric key of data record to get(integer,input) c ntw : actual no of words received(integer,output) c ier : error code(integer,output) c 1 - unit not declared c 2 - nw .lt. 0 c 3 - nkey .gt. indxl .or. .lt. 0 c 4 - nkey not on file c 5 - two keys do not match c 6 - skey not on file c either nkey(with skey=' ') or skey(with nkey=0) may be c given. if both are given, they should match. c implicit integer(a-z) c parameter (indxl=191, nu=2, iword=128 ) c character*(*) skey character*80 fname(nu) character*2048 cindx(nu) integer*2 indx(4,0:indxl,nu) logical abortf,safe,rewrt,modify(nu) c common /uwdata/ unit(nu),modify,abortf,safe,rewrt,nldoc,indx common /uwdocs/ cindx,fname c save /uwdata/,/uwdocs/ c real array(nw) call gunit(iounit,u) if(u.eq.0) then call cabort('getrec: iounit not declared',abortf) ier=1 return endif c if(nw.le.0) then call cabort('getrec: no data to get',abortf) ier=2 return endif c last=indx(2,0,u) if(nkey.ne.0) then if(nkey.lt.0.or.nkey.gt.indxl) then call cabort('getrec: nkey out of bounds',abortf) ier=3 return elseif(nkey.gt.last) then call cabort('getrec: nkey does not exist',abortf) ier=4 return elseif((skey.ne.' ').and.(skey.ne.cindx(u)(nkey*10+1: $ nkey*10+10))) then call cabort('getrec: skey mismatch',abortf) ier=5 return endif iord=nkey c c skey is given c else call gnkey(iounit,skey,iord,iii) if(iord.eq.0) then call cabort('getrec: skey not found',abortf) ier=6 return endif endif c pru=indx(1,iord,u) ntw=indx(2,iord,u) if(ntw.gt.nw) then ntw=nw call echo('getrec: field shorter than data') endif c c iword is no of words in a block nblk = ( ntw + iword - 1) / iword do 10 i = 1, nblk l = min(i*iword, ntw) read(iounit,rec=pru+i-1)(array(j),j=(i-1)*iword+1,l) 10 continue ier=0 return c end subroutine getrec end subroutine getdoc(iounit,doc,nl,skey,nkey,ntl,ier) c c copyright university of washington 1981 c part of uwxafs binary (rdf) file handling c c get documentation lines from data file c c input parameters c iounit : i/o unit number (integer,input) c doc : document array (character,in-out) c nl : no of lines to get (integer,input) c skey : symbolic key of record (character,input) c nkey : numeric key of record (integer,input) c ntc : number of lines actually got(integer,output) c ier : error code (integer,output) c 1 - unit not declared c 2 - nl negative or zero c 3 - nkey .gt. indxl .or. nkey .lt. 1 c 4 - nkey is not on file c 5 - skey and nkey don't match c 6 - skey is not on file c c if skey is blank, nkey is used. if nkey is 0, skey is used. c if both are given, they should match. c c if doc is equal to 'doc' then data are transferred c to internal buffer. nl is ignored in this case. c see routines getline, addline and prntdoc for c the manipulation of this buffer c implicit integer(a-z) parameter (indxl = 191, nu = 2 ) c character*80 fname(nu), doctmp*100 character*2048 cindx(nu) integer*2 indx(4,0:indxl,nu) logical abortf, safe, rewrt, modify(nu) c common /uwdata/ unit(nu),modify,abortf,safe,rewrt,nldoc,indx common /uwdocs/ cindx,fname c save /uwdata/,/uwdocs/ c parameter (maxl=20, maxchr=100 ) character*(maxchr) dbuf(maxl) common /uwdbuf/ dbuf save /uwdbuf/ c character*(*) skey,doc(*) c call gunit(iounit,u) if(u.eq.0) then call cabort('getdoc: unit not declared',abortf) ier=1 return endif c c convert form to the case of this routine. c 'case' controls the the case of this routine doctmp = doc(1) call smcase(doctmp, 'case') c if ((nl.le.0).and.(doctmp.ne.'doc')) then call cabort('getdoc: no document lines to get',abortf) ier=2 return endif c if(nkey.ne.0) then if(nkey.lt.0.or.nkey.gt.indxl) then call cabort('getdoc: nkey out of bounds',abortf) ier=3 return elseif(indx(1,nkey,u).eq.0) then call cabort('getdoc: nkey does not exist',abortf) ier=4 return elseif(skey.ne.' '.and. $ skey.ne.cindx(u)(nkey*10+1:nkey*10+10)) then call cabort('getdoc: skey mismatch',abortf) ier=5 return endif iord=nkey c skey is not given else call gnkey(iounit,skey,iord,ier) if(iord.eq.0) then call cabort('getdoc: skey not found',abortf) ier=6 return endif endif c pru=indx(3,iord,u) c c to document buffer if (doctmp.eq.'doc') then nldoc=indx(4,iord,u) nblk=(nldoc+4)/5 ntl=nldoc do 10 i=1,nblk read(iounit,rec=pru+i-1) (dbuf(j),j=i*5-4,i*5) 10 continue c to doc else ntl=indx(4,iord,u) ntl=min(ntl,nl) nblk=(ntl+4)/5 do 20 i=1,nblk lblk=min(i*5,ntl) read(iounit,rec=pru+i-1) (doc(j),j=i*5-4,lblk) 20 continue endif ier=0 return c end subroutine getdoc end subroutine hash(array, narray, doc, ndoc, skey) c c copyright university of washington 1981 c part of uwxafs binary (rdf) file handling c c generate 5 character string composed of alphanumerics c c since this routine is not called too often, execution speed c is not as important as getting a reasonably pseudo-random skey. c *** note: random numbers done as in numerical recipes c----------------------------------------------------------------------- parameter(maxpts = 4096) parameter(imod = 6655, imul = 936, iadd = 1399) parameter(jmod = 14406, jmul = 967, jadd = 3041) parameter(kmod = 7875, kmul = 211, kadd = 1663) parameter(lmod = 6075, lmul = 106, ladd = 1283) parameter(ihalf= 3333, imost= 5555, jhalf= 7201, jthrd= 4821) c double precision work(maxpts), sum(4), zero double precision pi, gold, goldm1, e1, aver, part parameter(zero = 0.d0, pi = 3.141592653589793d0 ) parameter(e1= 2.7182818280) parameter(gold = 1.618033989d0, goldm1 = 0.618033989d0) character*(*) doc(*) character*(5) skey real array(*) integer ikey(5), iran(131) logical loop c c initialize nwork = 2*narray skey = 'skey0' if (narray.le.0) return ichr0 = ichar('0') ichra = ichar('a') do 15 i = 1, 5 ikey(i) = 0 15 continue do 18 i = 1, 4 sum(i) = zero 18 continue c get measure of the magnitude of the data two different ways c ihalf ~= imod/2 , so that roughly half the values c are used to make the partial sum aver = 1.d-1 part = 2.d-1 do 30 i = 1, narray aver = abs( dble(array(i)) / narray ) + aver irndm = mod(imul*(i + narray) + iadd, imod) if ( (i.gt.2) .and. (irndm.gt.ihalf) ) then part = abs( dble(array(i)) / narray ) + part if (irndm.gt.imost) then part = abs( dble(array(i-2)) / narray ) + part else part = abs( dble(array(i-1)) / narray ) + part end if end if 30 continue c create work array such that all values of work are of the order 1. c - most values are scaled to one of the two different measures of c magnitude from above. c - a few values get scaled to be on the order of 1 without reference c to these values (should prevent against two arrays differing only c by a constant factor from having the same skey) c - couldn't resist the golden mean and fine structure constant. if (abs(aver).le.1.d-3) aver = 1.d-2 if (abs(part).le.1.d-3) part = 1.d-2 do 150 i = 1, narray loop = .true. work(i) = abs( dble(array(i)) / aver ) work(i+narray) = abs( dble(array(i)) / part ) j = i*kmul + kadd + narray jrndm = mod(jmul*j + jadd, jmod) if ( jrndm.lt.jthrd ) then work(i) = work(i) * pi elseif ( jrndm.gt.jhalf ) then j = mod(i*j + jrndm, narray - 1 ) + 1 work(i+narray) = abs( dble(array(i)+array(j)) / e1) 100 continue if(loop.and.(work(i+narray).le.(0.0072974d0))) then work(i+narray) = work(i+narray) * gold loop = .false. go to 100 elseif(loop.and.(work(i+narray).ge.( 137.036d0))) then work(i+narray) = work(i+narray) * goldm1 loop = .false. go to 100 endif end if 150 continue c c generate iran: a list of 131 pseudo-random integers that c do not depend on the data at all do 200 i = 1, 131 j = i*imul + iadd jtmp = mod(jmul*j + jadd, jmod) + 1 ktmp = mod(kmul*jtmp + kadd, kmod) + 3 iran(i) = mod(lmul*ktmp + ladd, lmod) + 7 200 continue c c collect 4 different sums from the work array: c each value in the work array is multiplied by a pseudo-randomly c selected integer between 20 and 120, and 4 different sums are made. c since each value in work() is on the order of 1, each of the sums c should be of the order 100*narray. with narray being something c between 100 and 1000, each of the different sums will be a random c number on the order of 50 000. this value mod 36 should be a good c random number. c do 500 i = 1, nwork c get some random numbers, and make them bigger than 50 i1 = mod (i * imul + iadd, imod ) + 53 i2 = mod (i * jmul + jadd, jmod ) + 67 i3 = mod (i * kmul + kadd, kmod ) + 31 i4 = mod (i * lmul + ladd, lmod ) + 79 c use these to make random numbers between [1, 130 ] j1 = mod( jmul*i1 + kadd, 109) + 3 j2 = mod( kmul*i2 + ladd, 119) + 5 j3 = mod( lmul*i3 + iadd, 111) + 7 j4 = mod( imul*i4 + jadd, 123) + 1 c use these for the iran array of random numbers to get a set c of numbers between [20 and 150] k1 = mod( jmul*( i4 + iran(j1)) + kadd, 73 ) + 43 k2 = mod( kmul*( i2 + iran(j2)) + ladd, 111 ) + 37 k3 = mod( lmul*( i1 + iran(j3)) + iadd, 91 ) + 29 k4 = mod( imul*( i3 + iran(j4)) + jadd, 121 ) + 19 c do "randomly weighted" sum of work array sum(1) = sum(1) + work(i) * k1 sum(2) = sum(2) + work(i) * k2 sum(3) = sum(3) + work(i) * k3 sum(4) = sum(4) + work(i) * k4 500 continue c turn the sums to integers between 1 and 36 for ikey(1) - ikey(4) do 900 i = 1, 4 880 continue if (abs(sum(i)).ge.100 000 000) then sum(i) = sum(i) / gold go to 880 end if isum = int( sum(i) ) ikey(i) = mod(isum, 36) 900 continue c ikey(5) : sum from document array isum = 0 im = mod(iran(16) * ndoc + iran(61), 353) + 27 ia = mod(iran(77) * ndoc + iran(52), 347) + 19 do 2000 i = 1, ndoc call triml( doc(i) ) jlen = max(1, istrln( doc(i))) do 1800 j = 1, jlen kseed = mod( (j + 2*i) * imul + jadd , 127) + 1 k = mod( iran(kseed) * im + ia , 13) + 3 isum = isum + k * ichar( doc(i)(j:j) ) 1800 continue 2000 continue ikey(5) = mod(isum, 36) c c map integers 1 to 36 to numerals and letters c ascii assumed but not required. the numerals must be c ordered 0 - 9 and the letters must be ordered a - z. do 4000 i = 1, 5 if (ikey(i).le.9) then ikey(i) = ikey(i) + ichr0 else ikey(i) = ikey(i) - 10 + ichra end if 4000 continue c write skey from ikey do 5000 i = 1, 5 skey(i:i) = char( ikey(i) ) 5000 continue call upper(skey) return c end subroutine hash end subroutine gunit(iounit,u) c c copyright university of washington 1981 c part of uwxafs binary (rdf) file handling c c match unit no with iounit no c iounit : fortran i/o unit no(integer,input) c u : corresponding index(1,2.. upto nu, in order of c call to openrf routine)(integer,output) c relation unit(u)=iounit implicit integer(a-z) c parameter (indxl=191, nu=2 ) c character*80 fname(nu) character*2048 cindx(nu) integer*2 indx(4,0:indxl,nu) logical abortf,safe,rewrt,modify(nu) c common /uwdata/ unit(nu),modify,abortf,safe,rewrt,nldoc,indx common /uwdocs/ cindx,fname c save /uwdata/,/uwdocs/ c u=0 do 10 n=1,nu if(unit(n).eq.iounit) then u = n go to 20 end if 10 continue 20 continue return c end subroutine gunit end subroutine rfmisc c c copyright university of washington 1981 c part of uwxafs binary (rdf) file handling c c miscellaneous routines for handling uwexafs files. most of c the entries here are to find out what's inside a file. c copyright university of washington 1981 c implicit integer(a-z) c parameter (indxl=191, nu=2) c character*(*) skey,ftype,lfn character*80 fname(nu) character*2048 cindx(nu) integer*2 indx(4,0:indxl,nu) logical abortf,safe,rewrt,modify(nu) c common /uwdata/ unit(nu),modify,abortf,safe,rewrt,nldoc,indx common /uwdocs/ cindx,fname c save /uwdata/,/uwdocs/ c entry gskey(iounit,nkey,skey,ier) c c get symbolic key from a numeric key c call gunit(iounit,u) if(u.eq.0) then call cabort('gskey: unit not declared',abortf) ier=1 return endif if(nkey.lt.0.or.nkey.gt.indxl) then call cabort('gskey: nkey out of range',abortf) ier=2 return endif c if nkey does not exist, skey=' ' skey=cindx(u)(nkey*10+1:nkey*10+10) ier=0 return c entry gnkey(iounit,skey,nkey,ier) c c get a numeric key from a symbolic key c call gunit(iounit,u) if(u.eq.0) then call cabort('gnkey: unit not declared',abortf) ier=1 return endif c last=indx(2,0,u) do 300 n=1,last if(skey.eq.cindx(u)(n*10+1:n*10+10)) go to 310 300 continue c skey not found nkey=0 return c 310 continue nkey=n ier=0 return c entry gftype(iounit,ftype,ier) c c get file-type from a i/o unit no c call gunit(iounit,u) if(u.eq.0) then call cabort('gftype: iounit not declared',abortf) ier=1 return endif c ftype=cindx(u)(1:10) ier=0 return c entry glfn(iounit,lfn,ier) c c get filename from i/o unit no c call gunit(iounit,u) if(u.eq.0) then call cabort('gfln: iounit not declared',abortf) ier=1 return endif c lfn=fname(u) ier=0 return c entry gflen(iounit,flen,ier) c c get the length of a file from i/o unit no c call gunit(iounit,u) if(u.eq.0) then call cabort('gflen: iounit not declared',abortf) ier=1 return endif c flen=indx(1,0,u)-1 return c entry gnie(iounit,nie,ier) c c get number of entries from i/o unit no c call gunit(iounit,u) if(u.eq.0) then call cabort('gnie: iounit not declared ',abortf) ier=1 return endif c nie=indx(2,0,u) ier=0 return c entry grlen(iounit,nkey,rlen,ier) c c get the length of a data record (in words) from a numeric key c call gunit(iounit,u) if(u.eq.0) then call cabort('grlen: iounit not declared ',abortf) ier=1 return endif c if(nkey.lt.0.or.nkey.gt.indxl) then call cabort('grlen: nkey out of range',abortf) ier=2 return endif c rlen=indx(2,nkey,u) ier=0 return c entry gdlen(iounit,nkey,dlen,ier) c c get the length of document (in lines) from a numeric key c call gunit(iounit,u) if(u.eq.0) then call cabort('gdlen: unit not declared',abortf) ier=1 return endif c if(nkey.lt.0.or.nkey.gt.indxl) then call cabort('gdlen: nkey out of range',abortf) ier=2 return endif c dlen=indx(4,nkey,u) ier=0 return c c end subroutine rfmisc end ifeffit-1.2.11d/src/lib/iff_window.f0000644000175000017500000001446010771740457016230 0ustar segresegre subroutine iff_window(str) c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2002 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: ifeffit: generate xafs fourier transform window c c arguments: c str command line to performd [in] c c requires: istrln, getsca, gettxt, bkeys, lower, str2re, c echo, cffti, window, lintrp, xafsft, setsca, settxt c c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'fft.h' save integer nxpar, ifft parameter (nxpar = 11) character*(*) str, defkey(3)*64, tnam*256 character*256 x_arr, winnam*32 character*256 name1, wintyp, outtyp, myname*5 character*10 params(nxpar) double precision getsca, xmin, xmax, xw, dx1, dx2, xmout double precision xgrid double precision arr_x(maxpts), arr_w(maxpts), txx(maxpts) integer npts_x, npts_r, npts_i, npts_w, npts_p, jxar,nptsxx integer jwin, jrea, jima, jpha, i, k, jdot, idwin integer ier, istrln, ndfkey, ipos, nxout integer iff_eval, iff_eval_dp, iff_eval_in logical xm_set external iff_eval, iff_eval_dp, iff_eval_in external getsca, istrln data (params(i), i=1, nxpar) /'k', 'dk', 'dk1', 'dk2', $ 'kmin', 'kmax', 'kweight', 'kwindow', 'win', 'rsp', $ 'rmax_out'/ c c initialize c set default program variables to use based on "key" call iff_sync xgrid = qgrid c c get default values of relevant program variables c scalars: xm_set = .false. myname = 'window' dx1 = getsca(params(3),1) dx2 = getsca(params(4),1) if ((abs(dx1).le.tiny).and.(abs(dx2).le.tiny)) then dx1 = getsca(params(2),1) dx2 = dx1 endif xmin = getsca(params(5),1) xmax = getsca(params(6),1) xw = getsca(params(7),1) xmout = getsca(params(11),1) outtyp = params(10) wintyp = params( 9) c strings: x_arr = undef name1 = undef c parse command line call bkeys(str, mkeys, keys, values, nkeys) ndfkey = 1 defkey(1) = params(1) do 100 i = 1, nkeys k = istrln( keys(i)) if ((values(i).eq.undef).and.(i.le.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if ((keys(i).eq.'prefix').or.(keys(i).eq.'group')) then name1 = values(i) elseif (keys(i).eq.params(1)) then x_arr = values(i) call lower(x_arr) elseif (keys(i).eq.params(2)) then ier = iff_eval_dp(values(i),dx1) dx2 = dx1 elseif (keys(i).eq.params(3)) then ier = iff_eval_dp(values(i),dx1) elseif (keys(i).eq.params(4)) then ier = iff_eval_dp(values(i),dx2) elseif (keys(i).eq.params(5)) then ier = iff_eval_dp(values(i),xmin) elseif (keys(i).eq.params(6)) then ier = iff_eval_dp(values(i),xmax) elseif (keys(i).eq.params(7)) then ier = iff_eval_dp(values(i),xw) elseif (keys(i).eq.params(8)) then winnam = values(i) call lower(winnam) elseif (keys(i).eq.params(11)) then ier = iff_eval_dp(values(i),xmout) xm_set = .true. else messg = keys(i)(1:k)//' " will be ignored' call warn(1, $ ' *** '//myname//' : unknown keyword " '//messg) end if 100 continue c c get/resolve array names c if name1 not given, inherit from x_arr, re_arr, or im_arr. if (name1.eq.undef) then jdot = index(x_arr,'.') if (jdot.ne.0) name1 = x_arr(1:jdot-1) endif if (name1.eq.undef) then call warn(2, ' '//myname//': can''t determine group name') return endif call fixnam(name1, 1) call lower(name1) do 180 i = 1, maxpts arr_x(i) = zero arr_w(i) = zero 180 continue c evaluate the x array jxar = iff_eval(x_arr, name1, arr_x, npts_x) if (jxar.le.0) then call warn(2, ' '//myname//': no x array?') return endif c get window function call window(winnam,dx1,dx2,xmin,xmax,xgrid,maxpts,arr_w) c window array c if an x-array has been supplied, interpolate the evenly-spaced c window array used in the FT onto the provided x-array if (jxar.ge.1) then do 300 i = 1, maxpts txx(i) = (i-1) * xgrid 300 continue ipos = 0 do 310 i = 1, npts_x call lintrp(txx, arr_w, maxpts, arr_x(i), $ ipos, tmparr(i)) 310 continue call set_array(wintyp, name1, tmparr, npts_x, 1) endif c c scalars: call setsca(params(3), dx1) call setsca(params(4), dx2) call setsca(params(5), xmin) call setsca(params(6), xmax) call setsca(params(7), xw) call setsca(params(11), xmout) call settxt(params(8), winnam) return c end subroutine iff_fft end ifeffit-1.2.11d/src/lib/iff_done.f0000644000175000017500000000311710771740457015643 0ustar segresegre subroutine iff_done c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: write message and end ifeffit c c requires: echo c c Memory's images, once they are fixed in words, are erased. c implicit none call iff_plot_init(99) cc call echo('Ifeffit is finished. have a nice day.') c end iff_done end ifeffit-1.2.11d/src/lib/arrays.h0000644000175000017500000000133610771740457015376 0ustar segresegrec{arrays.h -*-fortran-*- c values for data arrays integer icdarr(micode,maxarr), icdsca(micode,maxsca) double precision consts(mconst) common /maths/ icdarr, icdsca, consts integer narray(maxarr), nparr(maxarr), npnext double precision array(maxheap_array), scalar(maxsca) double precision tmparr(maxsize_array) double precision arrmax(maxarr), arrmin(maxarr) common /arrays/ array, arrmax, arrmin, scalar, $ narray, nparr, npnext character*96 arrnam(maxarr), scanam(maxsca), txtnam(maxtxt) character*256 arrfrm(maxarr), scafrm(maxsca), text(maxtxt) common /charry/ arrnam, scanam, txtnam, text, arrfrm, scafrm c} ifeffit-1.2.11d/src/lib/echo.h0000644000175000017500000000064310771740457015013 0ustar segresegrec{echo.h -*-fortran-*- c i_echo controls echo outputs: c 0 save to echo buffer in echo_str c 1 write to screen c 2 write to echo file c 3 write to both screen and echo file integer mxecho, n_echo, i_echo, lun_echo parameter(mxecho = 512) character*264 echo_str(mxecho),echo_file common /echo_s/ echo_str, echo_file common /echo_i/ n_echo, i_echo, lun_echo c} ifeffit-1.2.11d/src/lib/iff_getpath.f0000644000175000017500000001176410771740457016361 0ustar segresegre subroutine iff_getpath(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: convert feff path to accessible program data implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'fefdat.h' include 'feffit.h' include 'pthpar.h' save character*(*) str character*256 name1, defkey(2)*64, s character*8 suffix(mpthpr) double precision tmpr(maxpts), tmpi(maxpts), r1, getsca, rx integer ipath, idata, ier, i ,k, istrln, ndfkey, il integer iff_eval, jx,jy, u2ipth, inpath, jfeff integer xafs_path, ret, nx logical do_arrs external iff_eval, u2ipth, xafs_path external getsca, istrln data suffix /'s02', 'e0', 'ei', 'delr', 'sigma2', 'third', $ 'fourth', 'degen' , 'k', 'amp', 'phase', 'file', $ ' ', ' ', ' ' , ' '/ c c get default values for pre-edge parameters from current scalar values do_arrs = .false. call iff_sync call bkeys(str, mkeys, keys, values, nkeys) ipath = -1 idata = 1 name1 = undef c set default keywords for "undefined" sets c ie: the first two unkeyed values will take keys 'energy', 'xmu' ndfkey = 2 defkey(1) = 'path' defkey(2) = 'prefix' do 100 i = 1, nkeys k = istrln( keys(i)) if ((values(i).eq.undef).and.(i.le.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if ( (keys(i).eq.'prefix') .or. $ (keys(i).eq.'group')) then name1 = values(i) elseif (keys(i).eq.'path') then call str2in(values(i), ipath, ier) elseif (keys(i).eq.'do_arrays') then call str2lg(values(i), do_arrs, ier) elseif (keys(i).eq.'data_set') then call str2in(values(i), idata, ier) else messg = keys(i)(1:k)//' " will be ignored' call warn(1,' *** get_path: unknown keyword " '//messg) end if 100 continue c if (ipath .le.0) return call fefinp ret = xafs_path(ipath, tmpr, tmpi, rx) inpath = u2ipth(ipath) jfeff = jpthff(inpath) call undels(name1) if (name1.eq.undef) then write(name1,'(a,i3.3)') 'path', ipath endif il = istrln(name1) s = name1(1:il)//'_s02' call setsca(s, param(jfps02)) s = name1(1:il)//'_e0' call setsca(s, param(jfpe0)) s = name1(1:il)//'_ei' call setsca(s, param(jfpei)) s = name1(1:il)//'_delr' call setsca(s, param(jfpdr)) s = name1(1:il)//'_sigma2' call setsca(s, param(jfpss2)) s = name1(1:il)//'_third' call setsca(s, param(jfp3rd)) s = name1(1:il)//'_fourth' call setsca(s, param(jfp4th)) s = name1(1:il)//'_degen' call setsca(s, param(jfpdeg)) s = name1(1:il)//'_reff' r1 = getsca('reff',1) call setsca(s, r1) s = name1(1:il)//'_lab' call settxt(s, pthlab(inpath)) s = name1(1:il)//'_id' call settxt(s, fpthid(jfeff)) s = name1(1:il)//'_file' call settxt(s, feffil(jfeff)) c c generate ifeffit arrays from feff.dat columns if (do_arrs) then nx = nffpts(jfeff) call set_array('k', name1, qfeff(1,jfeff), nx, 1) call set_array('amp', name1, theamp(1,jfeff), nx, 1) call set_array('phase', name1, thepha(1,jfeff), nx, 1) call set_array('caps', name1, thcaps(1,jfeff), nx, 1) call set_array('rep', name1, realp(1,jfeff), nx, 1) call set_array('lambda',name1, xlamb(1,jfeff), nx, 1) endif return c end subroutine iff_test end ifeffit-1.2.11d/src/lib/padlib.h0000644000175000017500000000107110771740457015324 0ustar segresegrec padlib.h -*-fortran-*- c header of parameters for packed-ascii-data (pad) routines implicit none character cpadr, cpadi, cpadc integer maxlen, ibase, ioff, ihuge, ibas2 double precision ten, tenlog, huge, tiny, one, zero,base parameter(cpadr = '!', cpadc = '$', cpadi = '%') parameter(ibase = 90, ioff = 37, ihuge = 38, maxlen = 82) parameter(ibas2 = ibase/2, zero=0.d0, one=1.d0, ten = 10.d0) parameter(tenlog= 2.302585092994045684d0) parameter(huge = 1.d38, tiny = 1.d-38,base = ibase*one) c ifeffit-1.2.11d/src/lib/fitfft.f0000644000175000017500000001330511012371645015340 0ustar segresegre subroutine fitfft(chiq, mpts, mfft, wfftc, qgrid, $ qwin, qweigh, rwin, rweigh, ifft, mode, xlow, xhigh, $ nout, chifit) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c calculate a fft of a function to be minimized in either r or c backtransformed k-space to use as a fitting function, as in c ifeffit. calls routine xafsft which uses the routine cfftf. c c ** cffti must be called prior to this routine ** c c inputs: c chiq array containing chi(q), on grid with spacing qgrid, c and first point at chi(q = 0.). c mpts dimension of chiq, qwin, and rwin c mfft number of points to use for fft c wfftc work array for fft initialized by cffti, which must c be called prior to this routine. c qgrid grid size for chiq. c qwin q-space fft window array c qweigh q-weight in k->r fft. c rwin r-space fft window array c rweigh r-weight in r->q fft. c ifft integer flag for number of fft's to do: c 0 chifit is in original k-space c 1 chifit is in r-space c 2 chifit is in back-transformed k-space c mode integer flag for output mode for complex data: c 0 real/imag pair (default) c 1 real/mag pair c xlow low-x range for output chifit (either r or k) c xhigh high-x range for output chifit (either r or k) c nout number of points in output : useful length of chifit c outputs: c chifit real array representation of the complex result from c 0, 1, or 2 fft of the input chi(k). c output between xlow and xhigh in real-imag pairs c (if ifft=0, all imag parts are 0.) c c mxmpts is the largest expected value for mpts c implicit none integer mpts, mfft, ifft, nout, mxmpts, nfft, i, ipos,jft,mode double precision pi, zero, xlow, xhigh, xgrid parameter (mxmpts = 4096, zero=0.d0, pi = 3.141592653589793d0) double precision chiq(mpts), chifit(mpts),qwin(mpts),rwin(mpts) double precision qweigh, rweigh, qgrid, rgrid, q, pha double precision wfftc(*) complex*16 cchiq(mxmpts), tmpft(mxmpts), coni parameter (coni=(0d0,1d0)) c check that ifft is valid if ((ifft.lt.0).or.(ifft.ge.3)) then call warn(3,'fitfft: ifft out of range.') return endif cc if (mxmpts.ne.mfft) then cc call echo('fitfft warning: weird number of points') cc print*, mxmpts, mfft cc endif c c nfft will be the actual length of the fft arrays. c it is expected that nfft = mfft, but just in case... nfft = min(mxmpts, min(mfft, mpts) ) rgrid = pi / (qgrid * nfft) c c copy input data into complex data array. do 130 i = 1, nfft cchiq(i) = dcmplx(chiq(i), zero) 130 continue c c do ifft (= 0, 1, 2) number of fourier transforms c ifft: c 0 just get k-weighted chi(k) c 1 k->r c 2 k->r then r->q jft = 1 if (ifft.eq.0) jft = 0 xgrid = qgrid if (ifft.eq.1) xgrid = rgrid call xafsft(nfft,cchiq,qwin,qgrid,qweigh,wfftc, jft, tmpft) if (ifft.eq.2) then call xafsft(nfft,tmpft,rwin,rgrid,rweigh,wfftc,-1, cchiq) call fftout(mxmpts,mode,cchiq,qgrid,xlow,xhigh, $ nout,mpts,chifit) else call fftout(mxmpts,mode,tmpft,xgrid,xlow,xhigh, $ nout,mpts,chifit) endif cc if (ifft.eq.0) nout = nout/2 return c end subroutine fitfft end subroutine fftout(mpts, mode, xdat, dx, xlo, xhi,nout,npts,xout) c convert complex data xdat to a real array, using only c that part of the complex array between [xlow, xhi]. c mode=0 : return real/imag pair c mode=1 : return real/mag pair integer mpts, npts, nout, nmin, npairs, i, mode complex*16 xdat(mpts) double precision xout(npts), dx, dxi, xlo, xhi, small, tiny double precision dxxr, dxxi parameter (tiny = 1.d-9, small = 1.d-2) c dxi = 1 / max(tiny, dx) nmin = max(0, int(xlo * dxi + small )) npairs = max(1, int(xhi * dxi + small )) - nmin + 1 nout = min(npts, 2 * npairs) do 50 i= 1, npairs dxxr = dble (xdat( nmin + i )) dxxi = dimag(xdat( nmin + i )) xout(2*i-1) = dxxr if (mode.eq.1) then dxxi = dxxr*dxxr + dxxi*dxxi endif xout(2*i ) = dxxi 50 continue return c end subroutine fftout end ifeffit-1.2.11d/src/lib/clcalc.f0000644000175000017500000003500010771740457015307 0ustar segresegre integer function clcalc(iz, path, npts, energy, fp, fpp) c cromer-libermann calculation of anomalous scattering factors c arguments: c iz atomic number of element [in] c path path to cromer-libermann files [in] c npts number of elements in energy array [in] c energy array of energies at which to calculate f'/f'' [in] c fp real part of anomalous scattering (f') [out] c fpp imag part of anomalous scattering (f'') [out] c c notes: c 1 energy array is in eV c 2 this code is based on, and modified from the cowan-brennan c routines. data statements were simplified and rearranged, c code was cleaned up to be more in keeping with f77 standard c c matthew newville oct 1996 c matthew newville oct 2000 implicit none integer iz, npts, iread integer i, j, k, nxpts, norb, nparm(24) character*(*) path double precision energy(*), fp(*), fpp(*) double precision bena(24), xnrg(24,11), xsc(24,11) double precision corr, ener, f1, f2 integer rcldat external rcldat clcalc = 0 c initialize the trivial parts of xnrg: c (non-trivial parts are given in the data statements above) iread = rcldat(path,iz,norb,corr,nparm,bena,xnrg,xsc) c c rcldat returns 0 on success if (iread.eq.0) then c calculate fp and fpp for each energy point do 200 i = 1, npts ener = energy(i) / 1000 call cromer(iz,ener,nparm,norb,bena,xnrg,xsc,f1,f2) fp(i) = f1 - corr fpp(i) = f2 200 continue end if return end cc integer function rcldat(path,iz,norb,corr,nparms,bena,xnrg,xsc) implicit none character*(*) path, pth*256, file*256, line*256 character*32 words(8) integer istrln, nxtmp, npack integer iz, norb, nparms(24), lun, ilen, iread, nwords integer i, ier1, ier2, ier3,ier4, ier5, ier6, j double precision corr, bena(24), xnrg(24,11), xsc(24,11) double precision relcor, kpcor, xtmp(19) double precision xnrd1, xnrd2, xnrd3, xnrd4, xnrd5, zero parameter (xnrd1 = 80.d0, xnrd2 = 26.7d0, xnrd3 = 8.9d0) parameter (xnrd4 = 3.0d0, xnrd5 = 1.0d0, zero = 0.d0) parameter (npack = 8) external iread, istrln norb = 0 corr = zero do 30 i = 1, 24 bena(i) = zero nparms(i) = 0 do 25 j = 1, 11 xsc(i,j) = zero xnrg(i,j) = zero 25 continue 30 continue rcldat = 1 pth = path call triml(pth) ilen = istrln(path) write(file,'(a,i2.2,a)') path(:ilen),iz,'.dat' lun = 10 open(unit=lun,file=file, status='old', err=700) c c read ignored title line ilen = iread(lun,line) call triml(line) if ((line(1:1).ne.'#').or.(index(line,'PAD').eq.0)) goto 700 c c read iz, norb, relcor, kpcor ilen = iread(lun,line) if (ilen.le.0) goto 700 nwords = 4 call bwords(line,nwords,words) call str2in(words(1),iz, ier1) call str2in(words(2),norb, ier2) call str2dp(words(3),relcor,ier3) call str2dp(words(4),kpcor, ier4) corr = relcor - kpcor if ( (ier1.ne.0).or.(ier2.ne.0).or. $ (ier3.ne.0).or.(ier4.ne.0)) goto 700 c c read PADified data : note careful reading of integer nparms! nxtmp = 19 do 200 i = 1, norb xnrg(i,1) = xnrd1 xnrg(i,2) = xnrd2 xnrg(i,3) = xnrd3 xnrg(i,4) = xnrd4 xnrg(i,5) = xnrd5 call rdpadd(lun,npack,xtmp,nxtmp) nparms(i) = int(xtmp(1) + 0.1) bena(i) = xtmp(2) xnrg(i,6) = xtmp(3) xnrg(i,7) = xtmp(4) xnrg(i,8) = xtmp(5) xnrg(i,9) = xtmp(6) xnrg(i,10)= xtmp(7) xnrg(i,11)= xtmp(8) xsc(i,1) = xtmp(9) xsc(i,2) = xtmp(10) xsc(i,3) = xtmp(11) xsc(i,4) = xtmp(12) xsc(i,5) = xtmp(13) xsc(i,6) = xtmp(14) xsc(i,7) = xtmp(15) xsc(i,8) = xtmp(16) xsc(i,9) = xtmp(17) xsc(i,10) = xtmp(18) xsc(i,11) = xtmp(19) 200 continue close(lun) rcldat = 0 return 700 continue close(lun) rcldat = -1 return end subroutine cromer(iz,ener,nparms,norb,benaz,xnrg,xsc,f1,f2) c modified from cowan-brennan routines matt newville oct 1996 c this routine reads data for f' and f" according to an c algorithm by cromer and lieberman, given to fuoss. c converted to direct access file by brennan c converted to internal data 3-may-1993 smb implicit none integer iz, irb, ipr, icount,i0,inxs, norb, nparms(24) double precision benaz(24), xnrg(24,11), xsc(24,11) double precision ener, f1, f2, zero, fourpi double precision f1orb, f2orb, en_s(11), xs_s(11), aknint double precision xlnnrg(11),xln_xs(11),en_int(5), xs_int(5) double precision xsedga, f1corr, xlne, energa, bena, xsb double precision var, au, kev2ry, fscinv, tiny, tinlog double precision finepi, sigma0, sigma1, sigma2, sigma3, gauss parameter (zero=0, fourpi=12.56637061435917d0, tiny = 1.d-13) parameter (au = 2.80022d+7 ,kev2ry = 0.0272113834d0) c finepi = 1/(4*alpha*pi**2) parameter (finepi = 3.47116243d0, fscinv =137.036d0 ) common /gaus/ xsb,bena,xs_int, energa, xsedga,icount external sigma0,sigma1,sigma2,sigma3 save c executable code c ener is in kev xlne = log(ener) energa = ener / kev2ry f1 = zero f2 = zero tinlog = log(tiny) c main loop through the orbitals do 400 irb=1,norb icount= 6 f1orb = zero f1corr= zero f2orb = zero xsb = zero bena = benaz(irb) if (nparms(irb) .eq. 11) xsedga = xsc(irb,11)/ au c also copy subset into second array do 110 ipr=6,10 xs_int(ipr-5) = xsc(irb,ipr)/ au en_int(ipr-5) = xnrg(irb,ipr) 110 continue c the sorting routine messes up subsequent calls with same energy c so copy to second array before sorting. do 150 ipr=1,nparms(irb) xs_s(ipr) = xsc(irb,ipr) en_s(ipr) = xnrg(irb,ipr) 150 continue call sort(nparms(irb),en_s,xs_s) call sort(5,en_int,xs_int) c convert to log of energy,xsect do 190 ipr=1,nparms(irb) xlnnrg(ipr) = log(en_s(ipr)) xln_xs(ipr) = log(max(tiny,xs_s(ipr))) if (xln_xs(ipr).le.tinlog) xln_xs(ipr) = zero 190 continue c if (bena .le. energa) then do 250 i0 = 1, nparms(irb) if (abs(xln_xs(i0)) .ge. tiny ) go to 255 250 continue 255 continue inxs = nparms(irb) - i0 + 1 xsb = exp(aknint(xlne,inxs,xlnnrg(i0),xln_xs(i0)))/au f2orb= fscinv * energa * xsb / fourpi var = energa-bena if (abs(var). le. tiny) var = 1 f1corr = - finepi * xsb * energa * log((energa+bena)/var) end if c if((bena.gt.energa).and.(nparms(irb).eq.11)) then f1orb = gauss(sigma3) f1corr = finepi * xsedga * bena**2 * log((-bena+energa) $ /(-bena-energa)) / energa else if (nparms(irb).eq.11) then f1orb = gauss(sigma0) elseif ((nparms(irb).eq.10).and. $ (iz.ge.79).and.(irb.eq.1)) then f1orb = gauss(sigma1) else f1orb = gauss(sigma2) end if end if f1 = f1 + f1orb * 2 * finepi + f1corr f2 = f2 + f2orb 400 continue c this is the end of the loop over orbits c c note: the jensen correction to f' was subsequently shown to be incorrect c (see l. kissel and r.h. pratt, acta cryst. a46, 170 (1990)) c and that the relativistic correction that ludwig used is also c wrong. this section retained as comments for historical reasons. c c jensen_cor = -0.5*float(iz) c 1 *(energa/fscinv**2)**2 c c subtract relcor ala ludwig and change back to real*4 c c f1 = sumf1+jensen_cor-relcor(iz) c c kissel and pratt give better corrections. the relativistic correction c that ludwig used is (5/3)(e_tot/mc^2). kissel and pratt say that this c should be simply (e_tot/mc^2), but their correction (kpcor) apparently c takes this into account. so we can use the old relcor and simply add c the (energy independent) kpcor term: c return end double precision function sigma0( x) implicit none double precision x, xsb, bena, xs_int(5) double precision energa, d_prod, xsedga, tiny parameter(tiny=1.d-30) integer icount common /gaus/ xsb, bena, xs_int, energa, xsedga, icount save c executable code icount = icount-1 sigma0 = xs_int(icount)* bena/(x*x) d_prod = (energa*x)**2 - bena**2 if(abs( d_prod) .gt. tiny) $ sigma0 =bena * ( sigma0 * bena - xsb* energa**2)/ d_prod return end c*********************************************************************** double precision function sigma1( x) implicit none double precision x, xsb, bena, xs_int(5) double precision energa, xsedga, half parameter (half = 0.5d0) integer icount common /gaus/ xsb, bena, xs_int, $ energa, xsedga, icount save c executable code icount = icount-1 sigma1 = half* bena**3* xs_int( icount) $ /( sqrt(x)*( energa**2* x**2- bena**2* x)) return end c*********************************************************************** double precision function sigma2(x) implicit none double precision x, zero, tiny, p1, denom, eps double precision xsb, bena, xs_int(5), energa, xsedga integer icount common /gaus/ xsb, bena, xs_int, energa, xsedga,icount parameter (zero = 0, tiny = 1.d-18, eps = 1.d-5, p1 = 1.001d0) save icount=icount-1 c code modified by chris t. chantler, may 12-1992 c code modified by matt newville oct 1996 if ((abs(x).lt.tiny).or.(energa.lt.tiny)) then sigma2= zero elseif (abs(xs_int(icount)-xsb).lt.tiny) then sigma2=-2*xs_int(icount)*bena/x**3 else denom= x**3*energa**2-bena**2/ x if (abs(denom).lt.eps) then cc chantler: sigma2=-2*xs_int(icount)*bena/x**3 denom= x**3*(energa*p1)**2-bena**2/ x cc print*, ' weird point at e = ', energa * 27.21d0 end if sigma2= 2*(xs_int(icount)*(bena/x)**3/x- $ bena* xsb* energa**2)/ denom endif return end c*********************************************************************** double precision function sigma3( x) implicit none double precision x, xsb, bena, xs_int(5), energa, xsedga integer icount common /gaus/ xsb,bena,xs_int, energa, xsedga,icount save c executable code icount = icount-1 sigma3 = bena**3*( xs_int( icount) $ - xsedga* x**2)/( x**2*( x**2* energa**2- bena**2)) return end c*********************************************************************** subroutine lgndr (index,dbb,dcc) implicit none integer index, ip double precision dbb, dcc, const, d_x(2), d_a(3) double precision half,zero,one parameter(half = 0.5d0, zero = 0d0, one = 1d0) data d_x(1), d_x(2) /.04691007703067d0, .23076534494716d0/ data d_a(1), d_a(2) /.11846344252810d0, .23931433524968d0/ data d_a(3) /.28444444444444d0/ c executable code c warning! this routine has been stripped so it is only useful c with abs$cromer in this set of routines. dcc = half const=zero ip= index c ip limited to 1,2,3 if ( ip .gt. 3) then ip = 6 - ip const= -one end if dbb = d_a(ip) if( ip .eq. 3) return dcc= -const+ sign( d_x(ip), const) return end c*********************************************************************** double precision function gauss (sigma) implicit none integer i double precision b, c, sigma, zero parameter (zero = 0.d0) external sigma gauss = zero do 10 i=1,5 call lgndr( i, b, c) gauss = gauss + b * sigma(c) 10 continue return end c************************************************************* c*********************************************** c bubble sort. largest becomes last subroutine sort (n,a,b) implicit none integer i, n, j double precision a(*), b(*), x, y do 11 i=1,n-1 do 10 j=i+1,n if(a(j).lt.a(i)) then x=a(j) y=a(i) a(i)=x a(j)=y x=b(j) y=b(i) b(i)=x b(j)=y end if 10 continue 11 continue return end c aitken repeated interpolation c xlne = abscissa at which interpolation is desired c xlnnrg = vector of n values of abscissa c xln_xs = vector of n values of ordinate c t = temporary storage vector of 4*(m+1) locations) double precision function aknint( xlne, n, xlnnrg, xln_xs) implicit none integer n, i, ii, j double precision t(20), xlne, xlnnrg(n), xln_xs( n) c executable code if(n .le. 2) then write(*,'(a)') ' aknint: too few points, funct=y(1)' aknint = xln_xs(1) return end if if (xlnnrg(2) .gt. xlnnrg(1)) then do 10 i = 1, n if (xlnnrg(i) .ge. xlne) go to 30 10 continue else do 20 i = 1, n if (xlnnrg(i) .le. xlne) go to 30 20 continue end if 30 continue ii = min(n-2, max(1, i-1)) do 40 i= ii, ii+2 t(i-ii+1) = xln_xs(i) t(i-ii+4) = xlnnrg(i)- xlne 40 continue do 70 i=1,2 do 60 j=i+1,3 t(j) = ( t(i)*t(j+3)-t(j)*t(i+3)) $ /( xlnnrg( j + ii - 1)- xlnnrg( i + ii - 1)) 60 continue 70 continue aknint= t(3) return end ifeffit-1.2.11d/src/lib/iff_macro.f0000644000175000017500000003105610771740457016022 0ustar segresegre subroutine iff_macro_def(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c define a macro: c returns 0 if macro definition is done, 1 if it's still expecting more lines c also uses mac_define array for control c implicit none include 'consts.h' include 'keywrd.h' save integer nwords, i, j, jmac, jtmp, istrln, mwordx, immac parameter (mwordx = 12) character*(*) str , line*256 character*64 words(mwordx), op*3 double precision getsca, x external istrln, getsca data op / '{"'''/ nwords = mwordx line = str c c if mac_define(1) is 1, then we're reading lines for a defined macro if (mac_define(1).ge.1) then immac = mac_define(4) call sclean(line) call triml(line) if (mac_define(1).eq.1) then mcdesc(immac) = undef if (index(op,line(1:1)).ne.0) then call undels(line) mcdesc(immac) = line line = ' ' end if cc print*, ' macro ', macnam(immac)(1:20) cc print*, ' descr ', mcdesc(immac)(1:45) end if mac_define(1) = mac_define(1) + 1 jtmp = mac_define(2) jmac = mac_define(3) if (line.ne.' ') then if (line(1:9).eq.'end macro') then imcptr(jtmp) = -1 mac_define(1) = -1 return else macstr(jmac) = line imcptr(jtmp) = jmac c find next available line jtmp = jmac 50 continue jmac = jmac + 1 if (jmac.ge.mcline) then mac_define(1) = -1 return end if if (imcptr(jmac).ne.0) go to 50 end if end if mac_define(2) = jtmp mac_define(3) = jmac return endif c c if mac_define(1) = 0, then we're setting up the macro _name_ line c call bwords(line,nwords,words) c find next blank macro space, and erase any macro with the same name do 300 i = 1, macmax if (macnam(i).eq.' ') go to 350 c for each macro i: macnam(i) = macro name, imacro(i) = 1st macro line c then, starting at j = imacro(i), macstr(j) = next macro line, c and the next j = imcptr(j). c c add syntax check: that macro name cannot = other command name! if (macnam(i).eq.words(1)) then j = imacro(i) 200 continue jtmp = imcptr(j) macstr(j)= undef imcptr(j)= 0 if (jtmp.gt.0) then j = jtmp go to 200 end if go to 350 end if 300 continue i = i - 1 350 continue jmac = i c save macro name macnam(jmac) = words(1) cc print*, ' mac: ', jmac, ' name = ', macnam(jmac)(:20) mac_define(4) = jmac c get macro arguments if (nwords.ge.2) then tmpstr = line call strclp(tmpstr,words(1),words(2),line) nwords = mwordx call gtarg(line,blank,blank,1,nwords,words) cc print* , 'args of ', line(1:70) do 380 i = 1, nwords cc print* , i, ' -> ', words(i) mcargd(jmac,i) = words(i) call rmquot(mcargd(jmac, i) ) call rmdels(mcargd(jmac, i) ,'{','}') 380 continue end if c c ok, now we're ready to start the new macro c get index of the first line for this macro in the macro array jtmp = 0 450 continue jtmp = jtmp + 1 if (jtmp.gt.mcline) return if (imcptr(jtmp).ne.0) go to 450 imacro(jmac) = jtmp c c jtmp stores "previous index", jmac the "current index". c if the current line (macstr(jmac)) isn't "end macro", c then imcptr(jtmp) = jmac. otherwise imcptr(jtmp) = -1 jtmp = macmax jmac = imacro(jmac) c set mac_define(1) to 1 to flag that we're waiting c for more macro lines x = getsca('&screen_echo',0) if ((x.gt.0.5) .and. (ioinp.le.0)) $ call echo(' enter macro lines, ending with "end macro"') mac_define(1) = 1 mac_define(2) = jtmp mac_define(3) = jmac return c end routine iff_macro_def end subroutine iff_macro_do(indmac, str, ipflag,wrthis) c execute a macro, including recursive macro calls c (this exits when _all_ macros have processed) implicit none include 'consts.h' include 'keywrd.h' character*(*) str, arg*2, key*128 character*2048 com, argu, val logical wrthis, isamac integer istrln, i, j, iffcmd_exec, nword, indmac, ifeffit integer isarg, ilen, ipflag, italo, jmac external istrln, iffcmd_exec, ifeffit, isamac save c initialization cc print*, 'iff_macro_do: indmac, ipflag= ', indmac, ipflag ilen = istrln(str) iprint = ipflag mac_exec = 1 imac = imacro(indmac) if (nmacro.lt.0) nmacro = 0 if (nmac_stop.lt.0) nmac_stop = 0 nmacro = nmacro + 1 call iff_set_macargs(indmac,str) 100 continue if (nmacro.gt.mcdeep) then call warn(2,'too many macros') return elseif (nmacro.le.0) then return endif italo = -99 com = undef if ((imac.gt.0).and.(imac.le.mcline)) then italo = imcptr(imac) com = macstr(imac) endif c insert current macro argument values 180 format(a,i1) do 200 i = 1, mmcarg write(arg,180) '$',i 190 continue isarg = index(com,arg) if (isarg.ne.0) then ilen = istrln(mcargs(nmacro,i)) com = com(1:isarg-1)//mcargs(nmacro,i)(1:ilen) $ //com(isarg+2:) go to 190 end if 200 continue c get keyword/argument from command line call iff_getline(com, key, val, argu, ilen) if ((key.eq.'def').and.(argu.eq.' ') $ .and.(ilen.ge.0)) ilen = 0 if (ilen.gt.0) then c determine if this is a call to another macro if (isamac(key,jmac)) then imac_save(nmacro)= imcptr(imac) nmacro = nmacro + 1 imac = imacro(jmac) call iff_set_macargs(jmac,argu) go to 100 else italo = iffcmd_exec(key,argu,wrthis) italo = 0 if (italo.eq.1) then call iff_done stop endif endif endif c get index of next macro line if (imac.ge.0) then imac = imcptr(imac) elseif (imac.eq.-1) then nmacro = nmacro - 1 if (nmacro.le.nmac_stop) return imac = imac_save(nmacro) endif go to 100 c done mac_exec = 0 return end subroutine gtarg(str,s1,s2,iblank,nwords, words) c c breaks string into arguments = words are separated by one or c more whitespace, unless "protected" by quotes, braces, or parens. c the protecting characters are stripped off c c args i/o description c ---- --- ----------- c s i char*(*) string to be broken up c s1 i open delimiters to preserve on output c s2 i close delimiters to preserve on output c iblank i flag for whether to break words on whitespace c (1 yes, 0 comma-only) c nwords i/o input: maximum number of words to get c output: number of words found c words(nwords) o char*(*) words(nwords) c contains words found. words(j), where j is c greater then nwords found, are undefined on c output. integer i, ibeg, ilen, istrln, icount, iblank character*(*) str, s1, s2, words(nwords) character s, blank, comma, op*6, cl*6, st1, st2 logical comfnd, delims, isquot, border parameter (blank = ' ', comma = ',') external istrln data op, cl / '[{"((''', ']}"))'''/ delims = (s1.ne.blank).or.(s2.ne.blank) mwords = nwords nwords = 0 call untab (str) call triml (str) ilen = istrln (str) + 1 str = str//' ' c check for blank string if (ilen .eq. 1) return ibeg = 1 iprot = 0 comfnd = .true. isquot = .false. i = 0 100 continue i = i + 1 s = str(i:i) if (nwords .ge. mwords) return c c border =(s.eq.comma).or.((iblank.eq.1).and.(s.eq.blank)) c if the string is protected, march on til end of protection if (index(op,s).ge.1) then comfnd = .false. ibeg = i iprot = index(op,s) icount = 0 if (iprot.gt.0) then icount = 1 st1 = op(iprot:iprot) st2 = cl(iprot:iprot) isquot = st1.eq.st2 endif 120 continue i = i + 1 s = str(i:i) if (isquot) then if (s.eq.st1) icount = 0 else if (s.eq.st1) icount = icount + 1 if (s.eq.st2) icount = icount - 1 end if if ((i.le.ilen).and.(icount.ge.1)) go to 120 nwords = nwords + 1 words (nwords) = str (ibeg: i) cc print*, ':: nwords ', nwords, ' = ', str(ibeg:i) c if 'protected delimiters' was not used, strip off first and c last characters if (.not.delims) words(nwords) = str(ibeg+1:i-1) go to 100 c c if not a comma or blank, we have a word: continue til next blank or comma c elseif (.not.border) then comfnd = .false. ibeg = i 160 continue i = i + 1 s = str(i:i) if ((i.le.ilen).and.(s.ne.comma).and.(s.ne.blank)) go to 160 nwords = nwords + 1 words (nwords) = str (ibeg: i-1) go to 100 c c keep track of double commas -- count as a blank word c elseif (s.eq.comma) then if (comfnd) then nwords = nwords + 1 words (nwords) = blank endif comfnd = .true. end if if (i.le.ilen) go to 100 c return c end subroutine gtarg end subroutine iff_set_macargs(indmac,str) implicit none include 'consts.h' include 'keywrd.h' character*(*) str, words(mmcarg)*64 integer i, ilen, istrln, nword, indmac cc get macro arguments nword = mmcarg do 50 i = 1, mmcarg words(i) = ' ' 50 continue call gtarg(str,blank,blank,1,nword,words) cc if (iprint.ge.8) print*, 'macro args: ', str(1:30) do 60 i = 1, mmcarg ccc print* , i, ' -> ', words(i) mcargs(nmacro,i) = words(i) if (words(i).eq. ' ') then mcargs(nmacro,i) = mcargd(indmac,i) else mcargs(nmacro,i) = words(i) end if call rmquot(mcargs(nmacro,i) ) call rmdels(mcargs(nmacro,i) ,'{','}') if ((iprint.ge.8).and.(words(i).ne.' ')) then ilen = istrln(mcargs(nmacro,i)) cc print*, 'macro arg ', i, ':',mcargs(nmacro,i)(:ilen), ':' end if 60 continue return end ifeffit-1.2.11d/src/lib/iff_show.f0000644000175000017500000005254010771740457015702 0ustar segresegre subroutine iff_show(string,islog) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c show values for ifeffit implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'encod.h' include 'echo.h' include 'feffit.h' include 'fefdat.h' include 'pthpar.h' save character*(*) string, str*256, s*85, class*16 integer iw, i, j, k, istrln, ier, ifeffit, inpath, ip, id integer islog, iex, iup integer ipths(mpaths), ilen, np, u2ipth, ndx, jshow logical isarr, istext, found double precision getsca external istrln, ifeffit, u2ipth, getsca str = string if (str.eq.'@all') then str = '@scalars, @variables, @arrays, @strings, '// $ '@commands, @macros, @colors, @paths, @memory, @limits' endif if (int(getsca('&sync_level',0)).ge.2) call iff_sync nkeys = mkeys do 5 i = 1, nkeys keys(i) = blank 5 continue call bwords(str, nkeys, keys) iw = 0 200 continue c print*, 'show:: ', iw iw = iw + 1 if (iw.gt.nkeys) then return endif k = istrln(keys(iw)) s = keys(iw)(1:k) call lower(s) found = .false. isarr = (index(s,'.').ne.0) istext = (s(1:1).eq.'$') if (istext) s = s(2:) class = 'scalar' if (istext) then class = 'string' else if (isarr) then class = 'array' endif if (s.eq.'@colors') then call iff_color('show') found = .true. elseif (s.eq.'@linestyles') then call iff_pstyle('show') found = .true. elseif (s.eq.'@groups') then found = .true. call ishgrp elseif (s.eq.'@arrays') then found = .true. do 400 i = 1, maxarr-1 if (arrnam(i).ne.blank) then call isharr(i) if (iprint.ge.16) $ call rpndmp(icdarr(1,i)) end if 400 continue elseif (s.eq.'@scalars') then found = .false. do 410 i = 1, maxsca if (scanam(i).ne.blank) then call ishsca(scanam(i),scafrm(i), scalar(i)) if (iprint.ge.12) $ call rpndmp(icdsca(1,i)) found = .true. end if 410 continue elseif (s.eq.'@system') then found = .false. do 415 i = 1, maxsca if ((scanam(i).ne.blank) .and. $ (scanam(i)(1:1).eq.'&')) then call ishsca(scanam(i),scafrm(i), scalar(i)) if (iprint.ge.12) $ call rpndmp(icdsca(1,i)) found = .true. end if 415 continue elseif (s.eq.'@variables') then found = .true. do 420 i = 1, nvarys if ((icdsca(1,i).eq.-1).and.(scanam(i).ne.blank)) $ call ishvar(scanam(i), scalar(i), delta(i) ) 420 continue elseif (s.eq.'@correlations') then call iff_correl('x=@all,y=@all,print=yes,save=no,') found = .true. s = blank nkeys = -1 elseif (s.eq.'@strings') then found = .true. do 430 i = 1, maxtxt if ((txtnam(i).ne.blank).and. (text(i).ne.blank)) $ call ishtxt(txtnam(i),text(i)) 430 continue elseif (s.eq.'@commands') then found = .true. do 440 i = 1, mckeys if ( (ckeys(i).ne.undef).and.(ckeys(i).ne.blank)) $ call ishcom(ckeys(i), chint(i)) 440 continue elseif (s.eq.'@command') then found = .false. class = 'command' iw = iw+1 s = keys(iw) call lower(s) do 443 i = 1, mckeys if ( (ckeys(i).ne.undef).and.(ckeys(i).ne.blank) $ .and.(ckeys(i).eq.s)) $ call ishcom(ckeys(i), chint(i)) 443 continue elseif (s.eq.'@macros') then found = .true. iw = iw+1 s = keys(iw) call lower(s) jshow = 1 if (s.eq.'full') jshow = 0 do 450 i = 1, mckeys if ( (macnam(i).ne.undef).and. $ (macnam(i).ne.blank)) call ishmac(macnam(i),jshow) 450 continue elseif (s.eq.'@macro') then found = .false. class = 'macro' iw = iw+1 s = keys(iw) call lower(s) do 460 i = 1, macmax if ( (macnam(i).ne.undef).and. $ (macnam(i).ne.blank ).and. $ (s.eq.macnam(i) )) then call ishmac(macnam(i),0) found = .true. end if 460 continue elseif (s.eq.'@limits') then call ishow_simple( '&maxpts') call ishow_simple( '&max_scalars') call ishow_simple( '&max_arrays') call ishow_simple( '&max_strings') call ishow_simple( '&max_paths') call ishow_simple( '&max_varys') call ishow_simple( '&max_data_sets') found = .true. elseif (s.eq.'@memory') then call ishow_simple( '&heap_free') call ishow_simple( '&n_scalars') call ishow_simple( '&n_arrays') call ishow_simple( '&n_strings ') call ishow_simple( '&n_guess') call ishow_simple( '&n_scalars_set') call ishow_simple( '&n_scalars_def') call ishow_simple( '&n_arrays_set') call ishow_simple( '&n_arrays_def') found = .true. elseif (s.eq.'@args') then found = .true. do 470 i = 1, mmcarg if (mcargs(nmacro,i).ne.blank) then write(tmpstr,'(1x,a,i1,2a)') '$',i, ' = ', $ mcargs(nmacro,i) call echo(tmpstr) endif 470 continue elseif (s.eq.'@feffpaths') then found = .true. cc print*, ' feff files in use ' do 530 i = 1, mfffil if (feffil(i).ne.blank) then k = istrln(feffil(i)) tmpstr = feffil(i)(1:k) if (.not.lffred(i)) then tmpstr = feffil(i)(1:k)//' (not read yet)' endif call echo(tmpstr) endif 530 continue elseif (s.eq.'@paths') then found = .true. do 610 ip = 1, mpaths call show_path(jdtusr(ip)) 610 continue elseif (s.eq.'@path') then found = .false. s = blank ilen = 1 class = 'path' do 660 i = iw+1, nkeys k = istrln(keys(i)) s = s(1:ilen)//keys(i)(1:k)//',' ilen = ilen + k + 1 660 continue call str2il(s(1:ilen), mpaths,np,ipths,ier) do 680 ip = 1, np call show_path(ipths(ip)) found = .true. 680 continue iw = nkeys elseif (s.eq.'@group') then found = .false. class = 'group' iw = iw+1 s = keys(iw) do 710 i = 1, maxarr-1 j = index(arrnam(i),'.') if ((arrnam(i).ne.blank) .and. $ (j.gt.0).and. (arrnam(i)(1:j-1).eq.s)) then call isharr(i) if (iprint.ge.12) $ call rpndmp(icdarr(1,i)) found = .true. end if 710 continue elseif (istext) then found = .false. do 760 i = 1, maxtxt if (s.eq.txtnam(i)) then call ishtxt(txtnam(i),text(i)) found = .true. go to 200 end if 760 continue elseif (isarr) then found = .false. do 820 i = 1, maxarr-1 if (s.eq.arrnam(i)) then call isharr(i) if (iprint.ge.12) $ call rpndmp(icdarr(1,i)) found = .true. go to 200 end if 820 continue else c check (in this order): commands, macros, scalars found = .false. do 940 i = 1, mckeys if (s.eq.ckeys(i)) then call ishcom(ckeys(i), chint(i)) found = .true. go to 200 end if 940 continue do 950 i = 1, macmax if (s.eq.macnam(i)) then call ishmac(macnam(i),0) found = .true. go to 200 end if 950 continue do 970 i = 1, maxsca if (s.eq.scanam(i)) then call ishsca(scanam(i),scafrm(i), scalar(i)) found = .true. if (iprint.ge.12) $ call rpndmp(icdsca(1,i)) go to 200 end if 970 continue end if if (.not.found) then call undels(s) ier = max(6,istrln(s)) if (istext) then s = '$'//s(1:ier) ier = ier + 1 endif iex = max(7,istrln(class)) call warn(1, blank//class(1:iex)//blank// $ s(:ier)//' not found') end if go to 200 end c subroutine isharr(i) c c echo information about an array c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' character*256 s, outm, tmp*384 integer npts, k, kf, istrln, i external istrln s = arrnam(i) if (s.eq.blank) return if ( s.eq.undef_array ) then cc print*, 'WEIRD:: array ', i, ' is erased, not reclaimed.' return endif 10 format(2a,i6,a,g11.4,a,g11.4,a) 11 format(2a,i6,a,g11.4,a,g11.4,2a) k = max(14, istrln(s)) write(tmp,10) s(1:k), ' =', narray(i), ' pts [', $ arrmin(i), ':', arrmax(i), ']' kf = istrln(arrfrm(i)) if ((arrfrm(i).ne.'').and.(arrfrm(i).ne.undef) $ .and.(kf.ge.1)) then write(tmp,11) s(1:k), ' =', narray(i), ' pts [', $ arrmin(i), ':', arrmax(i), '] := ' , arrfrm(i)(1:kf) endif outm = tmp call echo(outm) c c if (iprint.ge.5) then c print*, ' array # ', i, ' points to ', nparr(i) c endif c return end c subroutine ishsca(s,f,x) character*(*) s, f, f1*256, messg*256 double precision x, small, xmin, zero logical ax parameter (small = 1.d-8, xmin = 12.d0, zero=0.d0) integer k, kf, ltot, ilx, istrln external istrln k = max(14, istrln(s)) f1 = f call triml(f1) kf = istrln(f1) if (kf.ge.1) f1 = ' := '//f1(1:kf) kf = istrln(f1) ltot = k + kf if (ltot.ge.230) kf = 230 - k messg = ' ' if ((x.eq.zero).or. $ (abs(log(abs(x + small))).le.xmin)) then write(messg,11) s(1:k), ' = ', x, f1(1:kf) else write(messg,12) s(1:k), ' = ', x, f1(1:kf) end if call echo(messg) 11 format (2a,f17.9,a) 12 format (2a,g17.9,a) return end subroutine ishvar(s,x,dx) character*(*) s, messg*256 double precision x, dx, small, xmin logical ax, adx parameter (small = 1.d-8, xmin = 12.d0) integer k, istrln external istrln k = max(14, istrln(s)) ax = abs(log( abs( x + small ))).le.xmin adx = abs(log( abs(dx + small ))).le.xmin if (ax.and.adx) then write(messg,11) s(1:k), ' = ', x, ' +/- ', dx elseif(ax .and. (.not.adx)) then write(messg,12) s(1:k), ' = ', x, ' +/- ', dx elseif ((.not.ax) .and. adx) then write(messg,13) s(1:k), ' = ', x, ' +/- ', dx else write(messg,14) s(1:k), ' = ', x, ' +/- ', dx endif 11 format (2a,f15.8,a,f15.8) 12 format (2a,f15.8,a,g15.8) 13 format (2a,g15.8,a,f15.8) 14 format (2a,g15.8,a,g15.8) call echo(messg) return end subroutine ishow_simple(s) implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' character*(*) s integer i, ilen, istrln ilen = istrln(s) do 10 i = 1, maxsca if (scanam(i).eq.s(1:ilen)) then call ishsca(scanam(i),scafrm(i), scalar(i)) end if 10 continue return end subroutine ishtxt(s,t) character*(*) s, t , messg*256 integer k, j, istrln external istrln k = max(13, istrln(s)) j = max(2, istrln(t)) write(messg,11) s(1:k), ' = ', t(1:j) call echo(messg) 11 format('$',3a) return end c subroutine ishcom(s,t) character*(*) s, t , messg*256 integer k, j, istrln external istrln k = max(14, istrln(s)) j = max(2, istrln(t)) write(messg,11) s(1:k), ': ', t(1:j) call echo(messg) 11 format (3a) return end c subroutine ishmac(str,idonly) c c show contents of a macro c idonly = 1 to only show name, arg list, description c implicit none include 'consts.h' include 'keywrd.h' save character*(*) str integer i, k, kk, j, istrln, idonly external istrln i = 0 10 continue i = i + 1 if (i.gt.macmax) then tmpstr = str k = istrln( tmpstr ) call warn(1, ' macro '// tmpstr(1:k) //' not found') return endif if ((macnam(i).eq.undef).or.(macnam(i).eq.blank)) go to 10 if (macnam(i).ne.str) go to 10 c know we know that it's macro "i" we want tmpstr = macnam(i) k = istrln( tmpstr ) do 60 j = 1, mmcarg kk = istrln(mcargd(i,j)) if (kk.ge.1) then if (j.gt.1) then tmpstr = tmpstr(1:k)//', "'// mcargd(i,j)(1:kk)// '"' else tmpstr = tmpstr(1:k)//' "'// mcargd(i,j)(1:kk)// '"' end if end if k = istrln(tmpstr) 60 continue call triml(tmpstr) k = istrln(tmpstr) call echo( ' macro '// tmpstr(1:k) ) if ((mcdesc(i).ne.blank).and.(mcdesc(i).ne.undef)) then tmpstr = mcdesc(i) call triml(tmpstr) k = istrln(tmpstr) call echo( ' "'// tmpstr(1:k)//'"' ) endif c c idonly = 1 if we only wanted name, arg list, description if (idonly.le.0) then imac = imacro(i) 150 continue if ((imac.gt.0).and.(imac.le.mcline)) then k = istrln( macstr(imac) ) call echo( ' '// macstr(imac)(1:k) ) imac = imcptr(imac) go to 150 end if call echo( ' end macro') endif cc cc full dump cc if (iprint.eq.20) then cc print*, 'MACROS: ' c do i = 1, macmax c if (macnam(i) .ne.blank) then c print*, ' mac: ', macnam(i), imacro(i) c endif c enddo c do i = 1, mcline c if (macstr(i) .ne.undef) then c print*, ' ', i, imcptr(i), macstr(i)(1:70) c endif c enddo cc endif cc return end c subroutine ishgrp implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' character*256 s, sgrps(maxarr) integer is, i, j, ii, k, istrln external istrln save is = 0 do 80 i = 1, maxarr-1 j = index(arrnam(i),'.') if (j.gt.0) s = arrnam(i)(1:j-1) if (is.gt.0) then do 40 ii = 1, is if (s.eq. sgrps(ii)) goto 65 40 continue end if is = is + 1 sgrps(is) = s k = max(1, istrln(s)) write(messg,'(2x,a)') s(1:k) call echo(messg) 65 continue 80 continue return end c subroutine show_path(iup) implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'encod.h' include 'fefdat.h' include 'feffit.h' include 'pthpar.h' save integer iup, inpath, u2ipth, jfeff, i, ret integer ntmp, ilen, istrln, xafs_path double precision tmp2(maxpts), getsca, xtmp, pdeg character*2 at_symbol external at_symbol external istrln, u2ipth, getsca, xafs_path inpath = u2ipth(iup) if (inpath .le. 0) return jfeff = jpthff(inpath) c read feff files if necessary if (.not. lffred(jfeff)) then call fefinp if (int(getsca('&sync_level',0)).ge.3) call iff_sync endif xtmp = iup * 1.d0 call setsca('path_index', xtmp) call synvar c if (iup .le. 0) return ret = xafs_path(iup,tmparr,tmp2,xtmp) if (ret.ne.1) return cc print*, '::: iup , jfeff ' , iup, inpath, jfeff, refpth(jfeff) c c path degeneracy pdeg = param(jfpdeg) if (icdpar(1,jfpdeg,inpath).eq.0) pdeg = degpth(jfeff) write(messg,'(1x,a,i5)') ' PATH ', iup call echo(messg) ret = xafs_path(iup,tmparr,tmp2,xtmp) ilen = istrln(feffil(jfeff)) write(messg,'(4x,2a)') 'feff = ', feffil(jfeff)(1:ilen) call echo(messg) c ilen = istrln(fpthid(jfeff)) write(messg,'(4x,2a)') 'id = ', fpthid(jfeff)(1:ilen) call echo(messg) ilen = istrln(pthlab(inpath)) write(messg,'(4x,2a)') 'label = ', pthlab(inpath)(1:ilen) call echo(messg) c evaluate the path parameters do 50 i = 1, mpthpr tmparr(1) = zero if (i.eq.jfps02) tmparr(1) = one ntmp = 0 if (iprint.ge.12) $ call rpndmp(icdpar(1,i,inpath)) if (icdpar(1, i, inpath).ne.0) then call decod(icdpar(1, i, inpath), micode, $ consts, scalar, array, narray, nparr, $ maxsize_array, maxarr, ntmp, tmparr) end if param(i) = tmparr(1) 50 continue c note for degeneracy: c the default is from feff.dat file, but it can be c overridden as a path parameter. xtmp = param(jfpdeg) cc print*, ' xtmp ', xtmp if (icdpar(1,jfpdeg,inpath).eq.0) xtmp = degpth(jfeff) call write_double_param('r ', 6, refpth(jfeff)+param(jfpdr)) call write_double_param('degen ', 6, xtmp) call write_double_param('s02 ', 6, param(jfps02)) call write_double_param('e0 ', 6, param(jfpe0)) call write_double_param('dr ', 6, param(jfpdr)) call write_double_param('ss2 ', 6, param(jfpss2)) if (icdpar(1,jfp3rd,inpath).ne.0) then call write_double_param('3rd ', 6, param(jfp3rd)) endif if (icdpar(1,jfp4th,inpath).ne.0) then call write_double_param('4th ', 6, param(jfp4th)) endif if (icdpar(1,jfpei ,inpath).ne.0) then call write_double_param('ei ', 6, param(jfpei) ) endif if (icdpar(1,jfppha,inpath).ne.0) then call write_double_param('dphase', 6, param(jfppha)) endif return end subroutine write_double_param(s,n,f) character*(*) s double precision f integer n include 'consts.h' include 'keywrd.h' 10 format(4x,a,' =',f12.6) write(messg,10) s(1:n), f call echo(messg) return end ifeffit-1.2.11d/src/lib/iff_erase.f0000644000175000017500000002226310771740457016020 0ustar segresegre subroutine iff_erase(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c erase an array or scalar values for ifeffit implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'encod.h' include 'feffit.h' save character*(*) str, s*256 integer nwrds, iw, i, j, k, istrln, ilen, id,np, ip integer ipths(max_pathindex), ier double precision getsca external istrln, getsca nkeys = mkeys do 5 i = 1, nkeys keys(i) = blank 5 continue call bwords(str, nkeys, keys) cc do i = 1, nkeys cc print*, keys(i)(1:30) cc enddo c check if this is a vector or scalar iw = 0 10 continue iw = iw + 1 if (iw.gt.nkeys) then call iff_sync return endif k = istrln(keys(iw)) s = keys(iw)(1:k) call lower(s) if (s.eq.'@arrays') then call erase_array(-1,.false.) elseif (s.eq.'@scalars') then cc print*, ' erasing scalars' do 40 i = 1, maxsca call erase_scalar( i ) 40 continue elseif (s.eq.'@strings') then do 50 i = 1, maxtxt txtnam(i) = ' ' text(i) = ' ' 50 continue elseif (s.eq.'@group') then iw = iw + 1 tmpstr= keys(iw) ilen = istrln(tmpstr) cc cc note that erase_array will move arrays around, and will cc drop them down by 1, so a simple loop would miss some cc this loop counts up to maxarr, backstepping for each cc erased array. i = 0 65 continue i = i + 1 if (i.ge.maxarr) go to 70 cc print*,' i = ', i cc call isharr(i) j = index(arrnam(i),'.') if (j.gt.0) then if(tmpstr(1:ilen) .eq. arrnam(i)(1:j-1)) then call erase_array(i,.false.) i = max(0,i-1) endif endif go to 65 70 continue elseif (s.eq.'@paths') then call str2il('all', max_pathindex,np,ipths,ier) cc print*, ' erasing ', np do 120 ip = 1, np call erase_path(ipths(ip)) 120 continue elseif (s.eq.'@path') then s = blank ilen = 1 id = int(getsca('data_set',1)) if (id.le.0) id = 1 do 160 i = iw+1, nkeys k = istrln(keys(i)) s = s(1:ilen)//keys(i)(1:k)//',' ilen = ilen + k + 1 160 continue call str2il(s(1:ilen), max_pathindex,np,ipths,ier) do 180 ip = 1, np call erase_path(ipths(ip)) 180 continue iw = iw + nkeys c c c single array or scalar elseif (index(s,'.').eq.0) then if (s(1:1).eq.'$') then do 840 i = 1, maxtxt if (s(2:).eq.txtnam(i)) call erase_string(i) 840 continue else do 850 i = 1, maxsca if (s.eq.scanam(i)) call erase_scalar(i) 850 continue end if else do 890 i = 1, maxarr-1 if (s.eq.arrnam(i)) call erase_array(i,.false.) 890 continue end if go to 10 c re-sync call iff_sync return end subroutine erase_array(index,dosync) c c erase an array by index c giving index<0 will erase all arrays c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' integer i, k, npdiff, np, nd, npx,nn,n, index logical dosync save c i = index if (i .lt. 0) then do 5 i = 1, maxarr arrnam(i) = blank arrfrm(i) = blank arrmax(i) = 0 arrmin(i) = 0 icdarr(1,i)= 0 icdarr(2,i)= 0 narray(i) = 0 nparr(i) = -1 5 continue npnext= 1 return endif cc print*, ' erase array ', i, ' ' , arrnam(i)(1:20), nparr(i) c c find the next array pointer and save the pointer difference c so the other arrays can be dropped down the stack npx = nparr(i) n = npx + narray(i) nd = maxheap_array do 10 k = 1, maxarr if ((narray(k).gt.0).and.(nparr(k).ge.n)) then nd = min(nd, nparr(k)) endif 10 continue npdiff = nd - npx c c the actual erase of the current array arrnam(i) = blank arrfrm(i) = blank arrmax(i) = 0 arrmin(i) = 0 icdarr(1,i)= 0 icdarr(2,i)= 0 narray(i) = 0 nparr(i) = -1 c c drop all other array pointers by this difference c to reclaim space in array heap cc print*, ' drop nparrs greater than ', npx, ' by ', npdiff if (npdiff .gt. 0) then do 280 k = 1, maxarr np = nparr(k) nd = np - npdiff if ((np.gt.npx)) then do 220 i = 0, narray(k) - 1 array(nd+i) = array(np+i) 220 continue nparr(k) = nd endif 280 continue endif c c re-determine position of npnext: the next array pointer npnext= 1 do 320 i = 1, maxarr if (arrnam(i).ne.blank) then np = (1+((nparr(i) + narray(i))/2))*2 npnext = max(1,max(npnext, np)) endif 320 continue cc print*, 'end of erase_array: npnext: ', npnext, dosync if (dosync) then call iff_sync endif return end subroutine erase_scalar(i) c erase a scalar by index implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' integer i character*96 sname save sname = scanam(i) if ((sname .ne. 'pi').and.(sname .ne. 'etok').and. $ (sname(1:1).ne.'&')) then scanam(i) = blank scafrm(i) = blank endif return end subroutine erase_string(i) c erase a string implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' integer i character*96 sname save sname = txtnam(i) if (sname(1:1).ne.'&') then txtnam(i) = blank text(i) = blank endif return end subroutine erase_path(iup) c erase a path implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'encod.h' include 'fefdat.h' include 'feffit.h' include 'pthpar.h' save integer iup, id, inpath, u2ipth, jfeff, i integer ntmp, ilen, istrln logical erase_fefffile external istrln, u2ipth inpath = u2ipth(iup) jfeff = jpthff(inpath) if (inpath .le. 0) return pthlab(inpath) = '' do 50 i = 1, mpthpr icdpar(1,i,inpath) = 0 icdpar(2,i,inpath) = 0 50 continue c c delete feff index, saving a temporary copy jpthff(inpath) = 0 c sets whether this feff file is used for another path erase_fefffile = .true. do 70 i = 0, mpaths if (iup .eq. jdtusr(i)) jdtpth(i) = 0 if (jfeff.eq.jpthff(i)) erase_fefffile = .false. 70 continue if (erase_fefffile) then refpth(jfeff) = zero degpth(jfeff) = zero feffil(jfeff) = blank fpthid(jfeff) = blank lffred(jfeff) = .false. iffrec(jfeff) = 0 do 90 i = 1, mffpts theamp(i,jfeff) = zero thepha(i,jfeff) = zero qfeff(i,jfeff) = zero realp(i,jfeff) = zero thcaps(i,jfeff) = zero 90 continue do 95 i = 1, nlgpth(jfeff) ratpth(1,0,i) = 0 ratpth(2,0,i) = 0 ratpth(3,0,i) = 0 95 continue nlgpth(jfeff) = 0 end if return end ifeffit-1.2.11d/src/lib/iff_pre_edge.f0000644000175000017500000001653310771740457016476 0ustar segresegrec -*-fortran-*- subroutine iff_pre_edge(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: ifeffit pre-edge removal, normalization of xafs data c and guessing e0 c c arguments: c str command line to performd [in] c c notes: c 1. driver for preedg c c requires: istrln, getsca, gettxt, setsca, settxt, bkeys, c echo, lower, str2re, str2lg, preedg c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'spline.h' save character*(*) str, defkey(3)*64 character*256 xmuarr, en_arr, prearr, norarr, name1 double precision pre1, pre2, enor1, enor2 double precision slope, offset, cnorm(3), xn double precision arr_e(maxpts), arr_x(maxpts), getsca double precision tmpar2(maxpts) logical stfind, eefind, is_kev integer jen, jpre, jxmu, ier, i, k, istrln, jdot integer ndfkey, npts_e, npts_x, nnorm integer iff_eval, iff_eval_dp, iff_eval_in, sort_xy external iff_eval, iff_eval_dp, iff_eval_in, sort_xy external getsca, istrln c c get default values for pre-edge parameters from current scalar values call iff_sync eefind = .false. stfind = .true. e0 = 0 ! getsca('e0',1) step = 0 ! getsca('edge_step',1) pre1 = 0 ! getsca('pre1',1) pre2 = 0 ! getsca('pre2',1) enor1 = 0 ! getsca('norm1',1) enor2 = 0 ! getsca('norm2',1) slope = 0 ! getsca('pre_slope',1) offset = 0 ! getsca('pre_offset',1) nnorm = 3 name1 = undef call bkeys(str, mkeys, keys, values, nkeys) c set default keywords for "undefined" sets c ie: the first two unkeyed values will take keys 'energy', 'xmu' ndfkey = 2 defkey(1) = 'energy' defkey(2) = 'xmu' do 100 i = 1, nkeys k = istrln( keys(i)) if ((values(i).eq.undef).and.(i.le.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if ((keys(i).eq.'ee').or.(keys(i).eq.'e0')) then ier = iff_eval_dp(values(i),e0) eefind = eefind .or. (values(i)(1:1).eq.'?') elseif (keys(i).eq.'group') then name1 = values(i) elseif (keys(i).eq.'pre1') then ier = iff_eval_dp(values(i),pre1) elseif (keys(i).eq.'pre2') then ier = iff_eval_dp(values(i),pre2) elseif (keys(i).eq.'norm1') then ier = iff_eval_dp(values(i),enor1) elseif (keys(i).eq.'norm2') then ier = iff_eval_dp(values(i),enor2) elseif (keys(i).eq.'norm_order') then ier = iff_eval_in(values(i), nnorm) elseif (keys(i).eq.'edge_step') then ier = iff_eval_dp(values(i),step) stfind = .false. elseif (keys(i).eq.'is_kev') then call str2lg(values(i),is_kev, ier) elseif ((keys(i).eq.'find_e0').or. $ (keys(i).eq.'e0find')) then call str2lg(values(i),eefind,ier) elseif (keys(i).eq.'energy') then en_arr = values(i) call lower(en_arr) elseif (keys(i).eq.'xmu') then xmuarr = values(i) call lower(xmuarr) else messg = keys(i)(1:k)//' " will be ignored' call warn(1,' *** pre_edge: unknown keyword " '//messg) end if 100 continue c c get/resolve array names if (name1.eq.undef) then jdot = index(xmuarr,'.') if (jdot.ne.0) name1 = xmuarr(1:jdot-1) endif if (name1.eq.undef) then jdot = index(en_arr,'.') if (jdot.ne.0) name1 = en_arr(1:jdot-1) endif if (name1.eq.undef) then call warn(2, ' pre_edge: can''t determine group name') return endif call fixnam(name1,1) call lower(name1) jdot = istrln(name1) jen = iff_eval(en_arr, name1, arr_e, npts_e) jxmu = iff_eval(xmuarr, name1, arr_x, npts_x) if (jen.le.0) then call warn(2, ' pre_edge: no energy array?') return elseif(jxmu.le.0) then call warn(2, ' pre_edge: no xmu array?') return end if c require that endat be monotonically increasing: if not, sort it ier = sort_xy(arr_e, arr_x, npts_e, tiny) if (ier .eq. 1) then call warn(1,' pre_edge: energy data appears out of order') endif if (is_kev .or. $ ((arr_e(1).le.90).and.(arr_e(npts_e).le.90))) then call warn(1,' pre_edge: energy data appears to be in keV') call kev2ev(arr_e, npts_e) endif c c do real call to pre-edge cc print*, ' in pre_edge before preedg call: ', eefind, e0 call preedg(eefind, stfind, npts_x, arr_e, arr_x, $ e0, pre1, pre2, enor1, enor2, nnorm, $ step,slope,offset,cnorm) cc print*, ' after preedg call: ',e0,step,slope,offset,cnorm c c make array of pre-edge subtracted data c $group.pre: output (ensuring that it doesn't overwrite xmu!) prearr = name1(1:jdot)//'.pre' norarr = name1(1:jdot)//'.norm' if (prearr.eq.xmuarr) then prearr = name1(1:jdot)//'.pre_edge' norarr = name1(1:jdot)//'.norm_1' endif do 200 i = 1, npts_x tmparr(i) = arr_x(i) - offset - slope * arr_e(i) tmpar2(i) = tmparr(i)/step 200 continue call set_array(prearr, name1, tmparr, npts_x, 1) call set_array(norarr, name1, tmpar2, npts_x, 1) c c reset the program variables call setsca('e0', e0) call setsca('edge_step', step) call setsca('pre1', pre1) call setsca('pre2', pre2) call setsca('norm1', enor1) call setsca('norm2', enor2) call setsca('pre_slope', slope) call setsca('pre_offset', offset) call setsca('norm_c0', cnorm(1)) call setsca('norm_c1', cnorm(2)) call setsca('norm_c2', cnorm(3)) call settxt('group', name1) return c end subroutine iff_pre_edge end ifeffit-1.2.11d/src/lib/fefdat.h0000644000175000017500000000220310771740457015320 0ustar segresegrec{fefdat.h -*-fortran-*- c feff.dat information for each path c c lffred: is feff file/record read yet? logical lffred(mfffil) c iffused: number of real paths using this feff data integer iffused(mfffil) integer iptpth(0:maxleg, mfffil), iffrec(mfffil) integer nlgpth(mfffil), izpth(0:maxleg, mfffil) integer nffpts(mfffil) double precision degpth(mfffil), refpth(mfffil), rwgpth(mfffil) double precision qfeff(mffpts, mfffil) double precision theamp(mffpts, mfffil) double precision thepha(mffpts, mfffil) double precision realp( mffpts, mfffil) double precision xlamb( mffpts, mfffil) double precision thcaps(mffpts, mfffil), thsaps(mffpts, mfffil) double precision ratpth(3, 0:maxleg, mfffil) common /fefdat/ lffred, nlgpth, izpth, iptpth, iffrec, iffused, $ nffpts, rwgpth, degpth, refpth, ratpth, qfeff, $ theamp, thepha, realp, xlamb, thcaps, thsaps character*256 feffil(mfffil), fpthid(mfffil) character*80 fefttl(mffttl,mfffil) common /fefchr/ feffil, fefttl, fpthid c fefdat.h} ifeffit-1.2.11d/src/lib/iff_wrdata.f0000644000175000017500000002170410771740457016202 0ustar segresegre subroutine iff_wrdata(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c write data for ifeffit c c fields: c file = file to write data to c pref = file prefix to use if not supplied c npts = max number of points to write out c col#n = full name of array to write out in slot #n in the c "pref"."suff" form. implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' save integer maxtit, max_outsca parameter (maxtit=64, max_outsca=128) integer mpts, iout(max_outarr), lun, is, ilen, idot, lx integer il, ic, jcol, ncol, ntit, nsca, i, j, k, istrln integer iofarr, ier, iex, nmatch, iff_eval_in, ndfkey character*(*) str, stat*10, delim*2, comchr*2 character*2048 sout character*256 file, pref, type, defkey(2) character*256 arrout(max_outarr), scaout(max_outsca) character*256 titout(maxtit), strarr(maxtxt), labstr*512 character*32 uform, fform double precision getsca, xval logical l_titles, isvnam parameter (stat = 'unknown') external iofarr, istrln, iff_eval_in, getsca, isvnam cc print*, ' iff_wrdata 0' delim = ' ' labstr = undef l_titles = .true. uform = 'g15.8' if (tabdel) delim = char(9) call gettxt('group', pref) file = ' ' cc call gettxt('filename', file) cc call gettxt('filetype', type) call gettxt('commentchar', comchr) mpts = maxpts ncol = 0 nsca = 0 ntit = 0 do 10 i = 1, max_outarr arrout(i) = blank 10 continue do 11 i = 1, max_outsca scaout(i) = blank 11 continue do 12 i = 1, maxtit titout(i) = blank 12 continue c interpret any and all keyword/value pairs for setting options call bkeys(str, mkeys, keys, values, nkeys) ndfkey = 1 defkey(1) = 'file' do 100 i = 1, nkeys if (keys(i).eq.'group') then pref = values(i) call smcase(pref,'a') elseif (keys(i).eq.'file') then file = values(i) elseif (keys(i).eq.'commentchar') then comchr = values(i) elseif (keys(i).eq.'label') then labstr = values(i) elseif (keys(i).eq.'no_headers') then call str2lg(values(i), l_titles, ier) l_titles = .not. l_titles elseif (keys(i).eq.'l_titles') then call str2lg(values(i), l_titles, ier) elseif (keys(i).eq.'npts') then ier = iff_eval_in(values(i), mpts) else c fill lists of strings, scalars, arrays according to name if (isvnam(keys(i),0)) then ncol = ncol + 1 if (ncol.le.max_outarr) arrout(ncol) = keys(i) cc print*, 'arr: ', keys(i)(1:20) elseif (isvnam(keys(i),1)) then nsca = nsca + 1 if (nsca.le.max_outsca) scaout(nsca) = keys(i) elseif ((isvnam(keys(i),3)) .or. $ ((keys(i)(1:1).eq.'$').and. $ (index(keys(i),'*').ne.0))) then ntit = ntit + 1 if (ntit.le.maxtit) titout(ntit) = keys(i)(2:) cc print*, 'tit: ', titout(ntit)(1:20) else k = istrln( keys(i) ) messg = keys(i)(1:k)//' " will not be written' call warn(1, $ ' *** write_data: unknown variable " '//messg) endif end if 100 continue c c now make sure we have the full name and that this array is defined c iex = 0 ier = 0 lun = 3 call openfl(lun, file, stat, iex, ier) if ((ier.lt.0).or.(iex.lt.0)) then call warn(3,' *** write_data: error opening file ') return end if c determine format string: call triml(uform) il = istrln(uform) lx = 17 fform = '(1x,'//uform(1:il)//')' cc print*, 'fform = ', fform c c get array names (for sure) jcol = 0 cc print*, ' nsca, ntit, ncol = ', nsca, ntit, ncol ncol = min(ncol, max_outarr) if (ncol.eq.0) then call warn(2, ' *** write_data: no data to write out!') return end if do 180 i = 1, ncol call glob(arrout(i),arrnam,maxarr,strarr,maxtxt,nmatch) do 160 j = 1, nmatch k = iofarr(strarr(j),pref,0,0) if (k.le.0) then call echo(' *** write_data: couldn''t find array:') call warn(1,' '//strarr(j)) else jcol = jcol + 1 if (jcol.le.max_outarr) then iout(jcol) = k mpts = min(mpts, narray(k)) else call echo(' *** write_data: too many arrays'// $ ' requested for write') write(tmpstr,'(5x,a,i3)') 'current limit is ', $ max_outarr call warn(2,tmpstr) return endif end if 160 continue 180 continue ncol = min(jcol, max_outarr) c c write title lines if (l_titles) then ntit = min(ntit, maxtit) ic = istrln(comchr) if (ntit.eq.0) then write(lun,'(3a)') comchr(1:ic),' ','data from ifeffit' else do 250 i = 1, ntit cc print*, ' TITLE ', i, titout(i)(1:30) call glob(titout(i),txtnam,maxtxt, $ strarr,maxtxt,nmatch) do 200 j = 1, nmatch call gettxt(strarr(j), tmpstr) call triml(tmpstr) k = istrln(tmpstr) if (k.gt.0) write(lun,'(3a)') $ comchr(1:ic),' ', tmpstr(1:k) 200 continue 250 continue end if nsca = min(nsca, max_outsca) do 280 i = 1, nsca xval = getsca(scaout(i),0) write(tmpstr,fform) xval k = istrln(scaout(i)) write(lun,'(5a)') comchr(1:ic), ' ', scaout(i)(1:k), $ ' = ',tmpstr(1:lx) cc print*, 'sca: ', i, scaout(i)(1:k), ' ', tmpstr(1:lx) 280 continue c c write label line: suffixes only!!! write(lun,'(2a)') comchr(1:ic),'------------------------' sout = comchr(1:ic)//' ' ilen = istrln(sout) + 1 do 350 k = 1, ncol il = max(8, istrln(arrnam(iout(k)))) idot = index( arrnam(iout(k)), '.') sout = sout(1:ilen)//delim//arrnam(iout(k))(idot+1:il) ilen = ilen + il + 2 350 continue ilen = istrln(sout) if (labstr .ne.undef) then call triml(labstr) ilen = istrln(labstr) sout = comchr(1:ic)//' '//labstr(1:ilen) ilen = ilen + ic + 2 endif write(lun,'(a)') sout(1:ilen) endif if (jcol.ne.ncol) then call warn(2,' *** write_data: wrong number of vectors??') return end if c write vectors do 500 i = 1, mpts sout = ' ' do 470 k = 1, ncol cc write(sout(1-lx+k*lx:k*lx),fform) array(i,iout(k)) write(sout(1+(k-1)*17:k*17),fform) $ array(nparr(iout(k))+i-1) 470 continue call triml(sout) is = istrln(sout) write(lun,'(2x,a)') sout(1:is) 500 continue if (lun.gt.0) close(lun) c finally, set program variables call settxt('group', pref) cc call settxt('filetype', type) call settxt('commentchar', comchr) c return end ifeffit-1.2.11d/src/lib/iff_rddata.f0000644000175000017500000003573710771740457016172 0ustar segresegre subroutine iff_rddata(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: read data arrays from external file c c arguments: c str command line for ifeffit [in] c c notes: c 1. currently supports only ascii column files c 2. supports several file "types" (xmu,chi,etc) used to name c the read-in arrays. c 3. to add: read array names from the label lines: c #------ c # energy xmu bkg c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' save integer mwords, nt_max, maxbuf, jxline parameter (mwords = 128, nt_max = 64, maxbuf=2**17) integer mpts, lun, npts, nwords, nwords1, ndata, in_titles integer narrs, ier, iex, i, j, k, idot, ilen, ilpre, in character*(*) str, stat*10, predef*10, comchr*1, cchars*5 character*256 pre, file, type, form, tmpnam, del*1 character*2048 line, labstr, label*256, labnam*16 character*32 words(mwords), suffix, defkey(3)*64 double precision buffer(maxbuf), sindex(maxpts),xx integer ndfkey, llen, lslen, nlabs, iofarr, istrln, ntitle integer isort, newlen, nlabel_out,mlabel_len logical isvnam, istitl, iscomm, iscomm2, isdat logical save_titles, do_sort, isnum parameter (stat = 'old',predef = 'my') integer iff_eval_in, iread external iff_eval_in, isnum external istrln, isvnam, iofarr, isdat, iread c pre = ' ' file = ' ' labstr = ' ' label = ' ' form = 'ascii' type = 'label' save_titles = .true. do_sort= .false. isort = -1 in_titles = 0 nlabel_out = 0 mlabel_len = len(label)-2 call gettxt('commentchar', comchr) call settxt('column_label', blank) call settxt('column_label1', blank) call settxt('column_label2', blank) call settxt('column_label3', blank) call settxt('column_label4', blank) call settxt('column_label5', blank) call settxt('column_label6', blank) call settxt('column_label7', blank) call settxt('column_label8', blank) call settxt('column_label9', blank) call settxt('column_label10', blank) mpts = maxpts narrs = 0 npts = 0 ndata = 0 jxline = 0 c interpret any and all keyword/value pairs for setting options call bkeys(str, mkeys, keys, values, nkeys) c set default keywords for "undefined" sets c ie: the first two unkeyed values will take keys 'energy', 'xmu' ndfkey = 1 defkey(1) = 'file' do 10 i = 1, nkeys if ((values(i).eq.undef).and.(i.eq.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if ((keys(i).eq.'prefix').or.(keys(i).eq.'group')) then pre = values(i) call lower(pre) if (.not.(isvnam(pre, 1) )) call fixnam(pre,1) ilpre = istrln(pre) elseif (keys(i).eq.'file') then file = values(i) elseif (keys(i).eq.'type') then type = values(i) elseif (keys(i).eq.'label') then labstr = values(i) call lower(labstr) type = 'user' elseif (keys(i).eq.'format') then form = values(i) elseif (keys(i).eq.'sort') then call str2in(values(i),isort,ier) do_sort = .true. elseif (keys(i).eq.'no_sort') then isort = 0 do_sort = .false. elseif (keys(i).eq.'commentchar') then comchr = values(i)(1:1) elseif (keys(i).eq.'notitles') then call str2lg(values(i),save_titles,ier) save_titles = .not.save_titles elseif (keys(i).eq.'titles') then call str2lg(values(i),save_titles,ier) elseif (keys(i).eq.'title_lines') then call str2in(values(i),in_titles,ier) elseif (keys(i).eq.'narrays') then ier = iff_eval_in(values(i), narrs) else if (i.eq.1) then file = keys(i) else k = istrln( keys(i)) messg = keys(i)(1:k)//' " will be ignored' call warn(1, $ ' *** read_data: unknown keyword " '//messg) end if end if 10 continue c c now that the needed program variables are known, the strategy is: c 1. open file, with error checking c 2. determine # of arrays to read c 3. assign names and positions for arrays to be read c 4. read arrays from file c 5. assign number of points for each array c c open file if (form.ne.'ascii') then messg = 'unsupported file format!!' call warn(2,' *** read_data: '//messg) return end if if (file.ne.' ') then iex = 0 ier = 0 lun = -1 call openfl(lun, file, stat, iex, ier) if ((ier.lt.0).or.(iex.lt.0)) then call echo(' *** read_data: error opening file ') ilen = istrln(file) messg = ' *** '//file(1:ilen) call warn(3,messg) if (lun.gt.0) close(lun) return end if c set prefix from file name if (pre.eq.' ') then idot = index(file,'.') if (idot.eq.0) then pre = file else pre = file(1:idot-1) end if if (pre.eq.' ') pre = predef call lower(pre) if (.not.(isvnam(pre, 1) )) call fixnam(pre,1) ilpre = istrln(pre) end if else call warn(2,' *** read_data: no file name given!!') if (lun.gt.0) close (lun) return end if c c read file, ignoring title lines at top of file. c - when we read the first row of numerical data, count the c number of columns and assign names and positions to vectors nwords = mwords ntitle = 0 cchars = ';#%'//comchr istitl = .true. iscomm = .true. iscomm2 = .true. c c c title lines 100 continue ilen = iread(lun, line) if (ilen .lt. 0) goto 2900 jxline = jxline + 1 tmpnam = line(1:64) nwords = 1 call triml(tmpnam) call lower(tmpnam) call bwords(tmpnam, nwords, words) iscomm2 = (line(1:1).ne.' ').and.(index(cchars,line(1:1)).ne.0) call str2dp(words(1), xx, ier) iscomm = ier.ne.0 cc print*, words(1), iscomm, iscomm2 c c .not.isnum(words(1)) c if (iscomm.neqv.iscomm2) then c call warn(3, ' *** read_data: uncertain about comment') c write(messg, '(3x,a)') line(1:40) c call warn(3,messg) c print*, iscomm, words(1) c endif if ((ilen.le.0).or.(line.eq.' ') $ .or.(jxline.le.in_titles)) goto 100 c check for label line if (line(3:7).eq.'-----') istitl = .false. if ((line(3:7).eq.'-----').and.(type.eq.'label')) then ilen = iread(lun, line) if (ilen .lt. 0) goto 700 jxline = jxline + 1 if (iscomm) line = line(2:) call triml(line) call lower(line) nwords = mwords call bwords(line, nwords, words) llen = 1 do 130 i = 1, nwords j = index(words(i),'.') suffix = words(i)(j+1:) lslen = istrln(suffix) labstr = labstr(1:llen)//blank//suffix(1:lslen) llen = istrln(labstr) 130 continue c nlab: number of labels read in nlabs = nwords goto 200 end if c c read titles into temporarily-named arrays (they'll be renamed c according to group below) 145 format ('$',a,'_title_',i2.2) if (iscomm) then if (save_titles.and.istitl.and.(ntitle.lt.nt_max)) then line = line(2:) ntitle = ntitle + 1 write(tmpstr, 145) pre(1:ilpre), ntitle call settxt(tmpstr, line) endif goto 100 elseif (isdat(line)) then nwords = mwords call bwords(line, nwords, words) goto 210 else goto 100 end if c c c read numerical data 200 continue ilen = iread(lun, line) if (ilen .lt. 0) goto 700 jxline = jxline + 1 iscomm = (line(1:1).ne.' ').and.(index(cchars,line(1:1)).ne.0) if (iscomm.or.(ilen.le.0).or.(line.eq.' ')) goto 200 210 continue nwords = mwords call bwords(line, nwords, words) c here we have the first real row of numerical data. c save number of arrays to use npts = npts + 1 if (npts.eq.1) then nwords1 = nwords if (narrs.eq.0) narrs = nwords if ((type.ne.'label').and.(type.ne.'user')) then do 250 in = 1, narrs call file_type_names(type,in,suffix) lslen = istrln(suffix) labstr = labstr(1:llen)//blank//suffix(1:lslen) llen = istrln(labstr) 250 continue endif endif if (nwords.ne.nwords1) then write(messg, '(3x,a,i5)') ' *** read_data: inconsistent '// $ 'number of columns at line ', jxline call warn(1,messg) endif cc print*, jxline, nwords, ' : ', line(1:30) do 580 i = 1, nwords ndata = ndata + 1 if (ndata .lt. maxbuf) then call str2dp(words(i), buffer(ndata), ier) if (ier.ne.0) then if (lun.gt.0) close (lun) call echo(' *** read_data: non numeric data in file!') write(messg, '(3x,a,i5)') ' *** read_data: at line ', $ jxline call echo(messg) write(messg, '(3x,a)') line(1:ilen) call warn(3,messg) return endif end if 580 continue if (j.ge.maxbuf) then write(messg, '(3x,a)') $ ' *** read_data: file larger than buffer size' call warn(3,messg) return else goto 200 endif 700 continue c c done reading numerical data if (narrs.le.0) goto 2900 npts = ndata/narrs if (npts .gt. maxsize_array) then npts = maxsize_array write(messg, '(3x,2a,i6,a)') 'warning: file has more ', $ 'data points than maximum array size (', $ maxsize_array,')' call echo(messg) write(messg, '(12x,a)') 'arrays will be truncated.'// $ ' some data will be lost.' call warn(3,messg) endif c c now we're done reading the data. c sort data by a specified column do 1010 i = 1, npts sindex(i) = i 1010 continue if (do_sort) then cc print*, ' do sort ', isort if ((isort.le.0).or.(isort.gt.narrs)) isort = 1 do 1020 i = 1, npts tmparr(i) = buffer(isort + (i-1) * narrs) 1020 continue if (npts .ge. 2) then call sort2(npts, tmparr,sindex) endif endif c c put data into arrays and construct output label line nlabs = mwords del = '.' if (npts .eq. 1) del = '_' do 1400 i = 1, mwords words(i) = ' ' 1400 continue call bwords(labstr, nlabs, words) llen = 1 label = ' ' do 1600 i = 1, narrs suffix = words(i) if (.not.(isvnam(suffix, 1) )) then call fixnam(suffix,2) if (suffix .eq. undef) suffix = ' ' end if c avoid repeated arrays: since we're sure that the indarrs are different, c and renaming according to them (without using iff_rename), we c have to be on the look-out for this case. do 1530 j = 1, i-1 if (suffix.eq.words(j)) suffix = ' ' 1530 continue if (suffix.eq. ' ') write(suffix,'(i3)') i call triml(suffix) tmpnam = pre(1:ilpre)//del//suffix lslen = istrln(suffix) newlen= llen + lslen + 1 if (newlen.ge. mlabel_len) then nlabel_out = nlabel_out + 1 if (nlabel_out.ge.10) then write(labnam,2002) 'column_label', nlabel_out else write(labnam,2001) 'column_label', nlabel_out endif call settxt(labnam,label) label = '' llen = 1 endif label = label(1:llen)//blank//suffix(1:lslen) llen = istrln(label) do 1550 j = 1, npts tmparr(j) = buffer(i + (int(sindex(j))-1) * narrs) 1550 continue if (npts .gt. 1) then call set_array(suffix, pre, tmparr, npts, 1) else call setsca(tmpnam,tmparr(1)) endif 1600 continue c 2001 format(a12,i1.1) 2002 format(a12,i2.2) c if (llen .ge.1) then nlabel_out = nlabel_out + 1 if (nlabel_out.ge.10) then write(labnam,2002) 'column_label', nlabel_out else write(labnam,2001) 'column_label', nlabel_out endif call settxt(labnam,label) label = '' endif c finally set all the program variables call setsca('&n_arrays_read', narrs*1.d0) call settxt('group', pre) call settxt('filename', file) call settxt('commentchar', comchr) tmparr(1) = nlabel_out call setsca('ncolumn_label', tmparr(1)) call gettxt('column_label1', label) call settxt('column_label', label) c close unit if still opened 2900 continue if (lun.gt.0) close(lun) call iff_sync return c end subroutine iff_rddata end ifeffit-1.2.11d/src/lib/splfun.f0000644000175000017500000001444711012371146015371 0ustar segresegre subroutine splfun(mf,nx,xv,ffit,iend) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: evaluate spline function for lmdif1 minimization a la autobk c c arguments: c mf number of points in ffit [in] c nx number of points in xv [in] c xv vector of variables [in] c ffit output vector to be minimized [out] c iend information tag [out] c c notes: c 1. see subroutine lmdif1 c 1. see subroutine spline c 2. this evaluates the difference between the fft of theory and c post-background-subtraction chi data for changing b-spline c coefficients, e0, and possibly multi-electron stuff. c 3. based on/related to suroutine autnls from autobk c c see documentation and code comments for more details c c requires include files: consts.h, spline.h, fft.h c qintrp, lintrp, fitfft, bvalue, sumsqr c implicit none include 'consts.h' include 'spline.h' include 'fft.h' c c local variables integer nx, mf, iend, nvtmp, i, nrpts, ifit, j integer nqmin, nqmax, nmaxx, ipos, nofx double precision small, half, widmin parameter (half = 0.5d0, small = 1.d-10, widmin = 0.5d0) double precision xv(nx), ffit(mf), qtmp(maxpts), tmpfit(maxpts) double precision chiq(maxpts), qtt, e0t, bvalue double precision resid, tresid, sumsqr, t, fclamp external bvalue, sumsqr,nofx save c if (nx.ne.nautbk) iend = 1 if (theory.and.(mf.ne.nr1st)) iend = 2 if (.not.theory.and.(mf.ne.nrbkg)) iend = 3 ifit = 0 nvtmp = nx e0t = e0 cc print*, 'SPLFUN ', mf, nrbkg, nx, nsplin cc print*, xv c c unwrap list of possible variables: c the last on the list from autnls is the first off if (theory.and.eevary) then thebkg = xv(nvtmp) de0 = xv(nvtmp) nvtmp = nvtmp - 2 end if if (nvtmp.ne.nsplin) iend = 3 c c e0 shift to temporary q-array for interpolation, evaluate the spline c and calculate chi(E). c if normalizing by the functional form of the c spline, make sure you're not dividing by zero. e0t = e0 + de0 cc print*, ' splfun: ', mf, e0, e0t, de0, nxmu do 200 i = 1, nxmu qtmp(i) = sqrt(etok * abs(endat(i)-e0t) ) if (endat(i).lt.e0t) qtmp(i) = - qtmp(i) if ( (endat(i).le.emax).and.(endat(i).ge.emin) ) then spldat(i)=bvalue(eknot,xv,nsplin,korder,endat(i),0) chie(i) = ( xmudat(i) - spldat(i) ) / step if (funnrm) $ chie(i) = ( xmudat(i) /max(spldat(i), small)) - one else chie(i) = zero end if 200 continue c get qmax and qmin nqmin = int( sqrt( etok* abs(emin - e0t) ) / qgrid ) nqmax = int( sqrt( etok* abs(emax - e0t) ) / qgrid ) if ((emin.lt.e0t).or.(nqmin.lt.1)) nqmin = 1 c interpolate chiq to q grid, evaluate data chi(k) [chiq] nmaxx = min(maxpts, nqmax + 20) ipos = 1 call grid_interp(qtmp, chie, nxmu, zero, qgrid, nmaxx, chiq) c c get real and imaginary parts of the fft of chiq, put them in tmpfit call fitfft(chiq, maxpts, maxfft, wfftc, qgrid, $ splwin, splqw, spldat, one, 1, 0, zero, r1st, $ nrpts, tmpfit) c if (theory.and.(.not.thefix)) $ thebkg = sumsqr(tmpfit(nrbkg),nr1st) / thessq do 550 i = 1, nrbkg ffit(i) = tmpfit(i) - splfit(i) * thebkg 550 continue ifit = nrbkg if (theory.and.eevary) then do 560 i = nrbkg+1, nr1st ffit(i) = (tmpfit(i) - splfit(i)*thebkg) / 10.0 560 continue ifit = nr1st endif c c clamp first 4 chie() data points towards zero tresid = sumsqr(ffit,ifit) cc print*, 'end of splfun ' , tresid if (clamp(1)) then j = max(1,nofx(emin,endat,nxmu)) c c scale clamp strength to residual, so that clamp strength is c roughly 'percent importance' in fit. c note '1+int(tresid)' here. this is to assure the scale is c not zero, but also should make the scale factor settle down c to a single number so that it does not affect the fitting c time too much. fclamp = sclamp(1)*(1+int(tresid*100.d0)/nrbkg)/nclamp do 620 i = 1, nclamp ffit(i+ifit) = chie(i+j-1) * fclamp cc print*, i, ffit(i+ifit) 620 continue ifit = ifit + nclamp endif c clamp last 4 chie() data points towards zero if (clamp(2)) then j = min(nxmu,max(1,nofx(emax,endat,nxmu))) fclamp = sclamp(2)*(1+int(tresid*100.d0)/nrbkg)/nclamp c print*, ' splfun clamp 2 at j=',j, endat(j), c $ emax, sclamp(2), fclamp do 630 i = 1, nclamp ffit(i+ifit) = chie(j + 1 - i) * fclamp 630 continue ifit = ifit + nclamp endif cc t= sumsqr(ffit,ifit) cc print*, 'end of splfun ' , tresid, t, ifit, nrbkg return c end subroutine splfun end ifeffit-1.2.11d/src/lib/misc_io.f0000644000175000017500000001055010771740457015513 0ustar segresegrec////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// subroutine getfln(strin, filnam, ierr) c strip off the matched delimeters from string, as if getting c a filename from "filename", etc. implicit none integer idel, iend, istrln, ierr, ilen character*(*) strin, filnam, tmp*144, ope*8, clo*8 external istrln data ope, clo /'"{(<''[', '"})>'']'/ c ierr = 0 tmp = strin call triml(tmp) ilen = istrln(tmp) idel = index(ope,tmp(1:1)) if (idel.ne.0) then iend = index(tmp(2:), clo(idel:idel) ) if (iend.le.0) then ierr = -1 iend = ilen end if filnam = tmp(2:iend) else iend = index(tmp,' ') - 1 if (iend.le.0) iend = istrln(tmp) filnam = tmp(1:iend) end if return c end subroutine getfln end subroutine newfil(file, iofile) c c open a new file to unit iofile c if iofile > 0 , that file is closed c if an old file named file exists, it is deleted! implicit none character*(*) file, str*256 integer iofile, iex, ier logical exist str = file if (iofile.gt.0) then close(iofile) cc iofile = 0 end if inquire(file=str, exist=exist) if (exist) then call openfl(iofile, str, 'old', iex, ier) close(iofile,status='delete') cc iofile = 0 end if cc iofile = 3 call openfl(iofile, str, 'unknown', iex, ier) if ((iex.lt.0).or. (ier.ne.0)) iofile = -1 c end subroutine newfil return end subroutine openfl(iunit, file, status, iexist, ierr) c c open a file, c if unit <= 0, the first unused unit number greater than 7 will c be assigned. c if status = 'old', the existence of the file is checked. c if the file does not exist iexist is set to -1 c if the file does exist, iexist = iunit. c if any errors are encountered, ierr is set to -1. c c note: iunit, iexist, and ierr may be overwritten by this routine implicit none character*(*) file, status, stat*10 integer iunit, iexist, ierr logical exist, open c c make sure there is a unit number, and that it's pointing to c an unopened logical unit number other than 5 or 6 ierr = -3 iexist = 0 iunit = max(1, iunit) 10 continue inquire (unit=iunit, opened=open) if (open) then iunit = iunit + 1 if ((iunit.eq.5).or.(iunit.eq.6)) iunit = 7 goto 10 endif c c if status = 'old', check that the file name exists ierr = -2 stat = status call lower(stat) if (stat.eq.'old') then iexist = -1 inquire(file=file, exist=exist) if (.not.exist) return iexist = iunit end if c c open the file ierr = -1 cc print*, ' openfl, unit ', iunit, ' file ', file(:40) open(unit=iunit, file=file, status=status, err=100) ierr = 0 100 continue return c end subroutine openfl end ifeffit-1.2.11d/src/lib/ChangeLog0000644000175000017500000000005710771740457015475 0ustar segresegreFor most recent ChangeLog, see ../../ChangeLog ifeffit-1.2.11d/src/lib/enlib.f0000644000175000017500000011617411030263512015150 0ustar segresegre subroutine enchk(strout, itemp, ieqn, ierr) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c some syntax checking for encod routine include 'encod.h' character*2048 strout, emsg*256 character synerr*22 integer itemp(*), ieqn, ilen, istrln, iparen integer ierr, i, ibfr, iaft, it, j, jt, jstack, jcomma integer jcoms(100), jsstak logical strok external istrln data synerr /' syntax error: '/ ierr = 1 ilen = istrln(strout) c-- c-- check that one component math functions are followed by "(" c-- and that parentheses are not left hanging iparen = 0 jsstak = 0 do 4400 i = 1, ieqn + 2 if (i.eq.1) then ibfr = ileft else ibfr = itemp(i-1) end if iaft = itemp(i+1) it = itemp(i) if (it.eq.ileft) iparen = iparen + 1 if (it.eq.iright) iparen = iparen - 1 cc print*, ' ibfr, it, iaft = ', ibfr, it, iaft cc print*, (ibfr.ge.jconst), (it.ge.jconst), (iaft.ge.jconst) c-- check that iparen is never negative (that is left parens c before right parens) if ((iparen.lt.0).or.((it.eq.ileft).and.(ibfr.gt. 0)).or. $ ((it.eq.ileft).and.(iaft.eq.iright)).or. $ ((it.eq.iright).and.(iaft.eq.ileft)).or. $ ((it.eq.iright).and.(iaft.gt. 0)) ) then call echo( synerr//strout(1:ilen) ) call warn(2, ' parentheses not used properly') return end if c-- check that "(," and ",)" are not in string if ( (it.eq.icomma).and.((iaft.eq.iright).or. $ (ibfr.eq.ileft).or.(ibfr.eq.icomma)) ) then call echo( synerr//strout(1:ilen) ) call warn(2,' ",,", "(," and ",)" are not allowed') return end if c-- check that one-component math operators are followed by "(" if ( (it.le.-1000).and.(it.ge.-3000) ) then if (iaft.ne.ileft) then call echo( synerr//strout(1:ilen) ) call warn(2,' unary math functions must be '// $ 'followed by "("') return end if if ( (i.gt.1).and.(ibfr.ge.-3000).and.(ibfr.lt.0) $ .and.(ibfr.ne.ileft).and.(ibfr.ne.icomma) ) then call echo( synerr//strout(1:ilen) ) call warn(2,' a number is preceded by a '// $ 'unary math function without using "(" ') return end if end if c-- look for a real number preceded or followed by a c either a real number or a variable if ( (it.ge.jscale).and. $ ((iaft.ge.jscale).or.(ibfr.ge.jscale)) )then call echo( synerr//strout(1:ilen) ) if (iaft.ge.0) then call warn(2,' a real number is followed by '// $ 'a real number, variable or fixed value') else call warn(2,' a real number is preceded by '// $ 'a real number, variable or fixed value') endif return end if if ((it.ge.1).and.(iaft.ge.-3000).and.(iaft.le.-1000)) then call echo( synerr//strout(1:ilen) ) call warn(2,' a number is followed by a'// $ ' unary math function') return end if c c the sepcial functions debye(,) and eins(,), etc, require c a certain number of commas (usually 1 or 2) if (it.le.-9000) then jsstak = 0 jcomma = 0 do 4200 j = i+1, ieqn jt = itemp(j) if (jt.eq.iright) then jsstak = jsstak - 1 if (jsstak.eq.0) goto 4210 endif if (jt.eq.ileft ) jsstak = jsstak + 1 if ((jsstak.eq.1).and.(jt.eq.icomma)) $ jcomma = jcomma + 1 4200 continue 4210 continue if (jsstak.ne.0) jcomma = -jsstak emsg = '' if ((it.eq.jdebye).and.(jcomma.ne.1)) then emsg = ' debye(temp, theta)' elseif ((it.eq.jeins).and.(jcomma.ne.1)) then emsg = ' eins(temp, theta)' elseif ((it.eq.jmin).and.(jcomma.ne.1)) then emsg = ' min(x,y)' elseif ((it.eq.jmax).and.(jcomma.ne.1)) then emsg = ' max(x,y)' elseif ((it.eq.jpenl3).and.(jcomma.ne.1)) then emsg = ' penalty_hi(x,hi_val)' elseif ((it.eq.jpenl2).and.(jcomma.ne.1)) then emsg = ' penalty_lo(x,lo_val)' elseif ((it.eq.jpenl1).and.(jcomma.ne.2)) then emsg = ' penalty(x,lo_val,hi_val)' elseif ((it.eq.jlconv).and.(jcomma.ne.2)) then emsg = ' lconvolve(x,y,gamma)' elseif ((it.eq.jgconv).and.(jcomma.ne.2)) then emsg = ' gconvolve(x,y,gamma)' elseif ((it.eq.jterpl).and.(jcomma.ne.2)) then emsg = ' linterp(xin,yin,xout)' elseif ((it.eq.jterpq).and.(jcomma.ne.2)) then emsg = ' qinterp(xin,yin,xout)' elseif ((it.eq.jterps).and.(jcomma.ne.2)) then emsg = ' splint(xin,yin,xout)' elseif ((it.eq.jterpa).and.(jcomma.ne.2)) then emsg = ' ainterp(xin,yin,xout)' elseif ((it.eq.jrebin).and.(jcomma.ne.2)) then emsg = ' rebin(xin,yin,xout)' elseif ((it.eq.jkktf).and.(jcomma.ne.1)) then emsg = ' kkf(e,f1)' elseif ((it.eq.jkktr).and.(jcomma.ne.1)) then emsg = ' kkr(e,f2)' elseif ((it.eq.jrngar).and.(jcomma.ne.2)) then emsg = ' range(start,stop,step)' elseif ((it.eq.jslica).and.(jcomma.ne.2)) then emsg = ' slice(array,istart,istop)' elseif ((it.eq.jjoina).and.(jcomma.ne.1)) then emsg = ' join(array1,array2)' elseif ((it.eq.jnofxa).and.(jcomma.ne.1)) then emsg = ' nofx(array,val)' elseif ((it.eq.jrngar).and.(jcomma.ne.2)) then emsg = ' range(start,stop,step)' elseif ((it.eq.jxgaus).and.(jcomma.ne.2)) then emsg = ' gauss(x,center,gamma)' elseif ((it.eq.jxlore).and.(jcomma.ne.2)) then emsg = ' loren(x,center,gamma)' elseif ((it.eq.jxstep).and.(jcomma.ne.2)) then emsg = ' step(x,center,width)' elseif ((it.eq.jxvoit).and.(jcomma.ne.3)) then emsg = ' pvoight(x,center,fwhm,eta)' elseif ((it.eq.jxcube).and.(jcomma.ne.4)) then emsg = ' cube(x,a0,a1,a2,a3)' endif if (emsg.ne.'') then call echo( synerr//strout(1:ilen) ) call warn(2,' use '// emsg) return end if end if 4400 continue ierr = 0 return end subroutine engrpn(input,icode) c c convert infix encoded math expression to reverse polish /postfix. c works well when part of encod, but has not been well-tested. c c strategy: c first assign class of operation to each argument in icode. c then convert unary minus signs to a one-component operator. c next, two component function are put after their two arguments. c one component operators are then put after their argument. c finally, parentheses and commas are dropped. c c copyright (c) 1998 matt newville c include 'encod.h' integer ibfr, istack, maxlen parameter(maxlen= 256) integer icode(*), input(*), itemp(maxlen) , idone(maxlen) integer iclass(maxlen), icltmp(maxlen), idtemp(maxlen) integer iclo(6), i, ic, ichi, icn, id, j, j0, k, ksave integer idebug logical opera c-- initialize itemp, and assign class to objects and operators c idebug = 0 do 70 j = 1, maxlen icode(j) = input(j) 70 continue do 90 j = 1, maxlen i = icode(j) if (i.eq.0) iclass(j) = 0 if (i.gt.0) iclass(j) = 1 if ((i.le.-1000).and.(i.ge.-3000)) iclass(j) = 2 if ((i.eq.iadd) .or.(i.le.isub)) iclass(j) = 3 if ((i.eq.imul) .or.(i.le.idiv)) iclass(j) = 4 if (i.eq.iy2x) iclass(j) = 5 if (i.lt.-6000) iclass(j) = 6 if (i.eq.ileft) iclass(j) = 7 if (i.eq.iright) iclass(j) = 8 if (i.eq.icomma) iclass(j) = 9 itemp(j) = icode(j) icltmp(j) = iclass(j) 90 continue c-- c unary minus and plus --> unitary operators c minus signs are hard: find next operator at this level, c and convert "- x1" to "neg ( x1 )", which will then be c converted down below to "x1 neg". c-- do 500 j0 = 1, maxlen j = j0 100 continue i = itemp(j) ic = icltmp(j) if(ic.eq.0) go to 510 ibfr = 0 if (j.gt.1) ibfr = iclass(j-1) c-- unary plus sign if ( ((j.eq.1).or.(ibfr.eq.7).or.(ibfr.eq.4).or.(ibfr.eq.5) $ .or.(ibfr.eq.9)) .and.(i.eq.iadd) ) then do 120 k = j, maxlen-1 icode(k) = itemp(k+1) iclass(k) = icltmp(k+1) 120 continue icode(maxlen) = 0 iclass(maxlen) = 0 do 130 k = j, maxlen itemp(k) = icode(k) icltmp(k) = iclass(k) 130 continue go to 100 c-- unary minus sign c-- change minus sign to unary operator c-- if next object is (, then we're done. c-- otherwise, ... - x ... -> ... neg ( x ) ... elseif ( ((j.eq.1).or.(ibfr.eq.7).or.(ibfr.eq.9).or. $ (ibfr.eq.4).or.(ibfr.eq.5)).and.(i.eq.isub)) then c replace '-' with 'neg' icode(j) = ineg iclass(j) = 2 c neg number : find next +-,) or end of line, and insert parentheses. if (iclass(j+1).eq.1) then icn = icltmp(j+1) opera = (icn.eq.9).or.(icn.eq.8).or.(icn.eq.0) $ .or.(icn.eq.3) c if (.not.opera) then istack = 0 k = j 140 continue k = k + 1 if (k.ge.maxlen) go to 150 icn = icltmp(k) opera = (icn.eq.9).or.(icn.eq.8).or.(icn.eq.0) $ .or.(icn.eq.3) if ( (istack.eq.0) .and.opera) go to 150 if (icn.eq.7) istack = istack + 1 if (icn.eq.8) istack = istack - 1 go to 140 150 continue ksave = k -1 c insert left paren icode(j+1) = ileft iclass(j+1) = 7 c bump everything after left paren up by 1 do 170 k = j+2, ksave + 1 icode(k) = itemp(k-1) iclass(k) = icltmp(k-1) 170 continue c insert right paren icode(ksave+2) = iright iclass(ksave+2) = 8 c bump everything after right paren up by 2 do 180 k = ksave+3, maxlen-2 icode(k) = itemp(k-2) iclass(k) = icltmp(k-2) 180 continue end if c c neg unary operator : need to find end of argument of operator. c then change '-' -> neg and insert parens. elseif (((iclass(j+1).eq.2).or.(iclass(j+1).eq.6)) $ .and.(iclass(j+2).eq.7)) then c find end of argument istack = 1 do 200 k = j+3, maxlen if (icltmp(k).eq.7) istack = istack + 1 if (icltmp(k).eq.8) istack = istack - 1 if (istack.eq.0) go to 220 200 continue 220 continue ksave = k c insert left paren icode(j+1) = ileft iclass(j+1) = 7 c bump everything after left paren up by 1 do 250 k = j+2, ksave + 1 icode(k) = itemp(k-1) iclass(k) = icltmp(k-1) 250 continue c insert right paren icode(ksave+2) = iright iclass(ksave+2) = 8 c bump everything after right paren up by 2 do 280 k = ksave+3, maxlen-2 icode(k) = itemp(k-2) iclass(k) = icltmp(k-2) 280 continue end if do 380 k = 1, maxlen itemp(k) = icode(k) icltmp(k) = iclass(k) 380 continue j = j - 1 if (j.eq.0) j = 1 go to 100 end if c reset itemp and icltmp and go back to beginning 500 continue 510 continue c do 600 i = 1, maxlen icode(i) = itemp(i) iclass(i) = icltmp(i) 600 continue c--------------------------------------------------------------------- c-- convert class 5 operators (^ only): c x1 ^ x2 -> x1 x2 ^ c if operator is '^', and is not already followed by ',)+-*/^', c then find next place with stack=0 (that is on the current level), c that contains an ',)+-*/^' ichi = 5 iclo(1) = 9 iclo(2) = 8 iclo(3) = 0 iclo(4) = 3 iclo(5) = 4 iclo(6) = 5 call pclass(icode, iclass, ichi, iclo) c--------------------------------------------------------------------- c-- convert class 4 operators (* and / only): c x1 * x2 -> x1 x2 * c if operator is '*/', and is not already followed by ',)+-*/', c then find next place with stack=0 (that is on the current level), c that contains an ',)+-*/' c undo iclo(6) = '^' to a repeat of iclo(3) = 0 ichi = 4 iclo(6) = 0 call pclass(icode, iclass, ichi, iclo) c--------------------------------------------------------------------- c-- convert class 3 operators (+ and - only): c x1 + x2 -> x1 x2 + c if operator is '+-', and is not already followed by ',)+-', c then find next place with stack=0 (that is on the current level), c that contains an ',)+-' c undo iclo(5) = '*/' to a repeat of iclo(3) = 0 ichi = 3 iclo(5) = 0 call pclass(icode, iclass, ichi, iclo) c do 900 i = 1, maxlen itemp(i) = icode(i) icltmp(i) = iclass(i) 900 continue c c--------------------------------------------------------------------- c-- convert class 2 and class 6 operators. c all unary operators and special functions have the syntax: c f(x1, x2, x3, ...) -> (x1, x2, x3, ...) f do 6900 j = 1, maxlen idone(j) = 0 idtemp(j) = 0 6900 continue do 8000 j0 = 1, maxlen - 1 j = j0 7000 continue i = itemp(j) ic = icltmp(j) id = idtemp(j) if(ic.eq.0) go to 8010 if ( (id.eq.0).and. $ ( (ic.eq.2).or.(ic.eq.6)).and.(iclass(j+1).eq.7)) then istack = 1 do 7200 k = j+2, maxlen if (icltmp(k).eq.7) istack = istack + 1 if (icltmp(k).eq.8) istack = istack - 1 if (istack.eq.0) go to 7300 7200 continue 7300 continue ksave = k icode(ksave) = itemp(j) iclass(ksave) = icltmp(j) idone(ksave) = 1 do 7500 k = j, ksave-1 icode(k) = itemp(k+1) iclass(k) = icltmp(k+1) idone(k) = idtemp(k+1) 7500 continue c reset itemp and start over again at the same place icode(maxlen-1) = 0 icode(maxlen) = 0 idone(maxlen-1) = 0 idone(maxlen) = 0 do 7800 k = 1, maxlen itemp(k) = icode(k) icltmp(k) = iclass(k) idtemp(k) = idone(k) 7800 continue go to 7000 end if 8000 continue 8010 continue c--------------------------------------------------------------------- c-- finally, remove all parentheses and commas for icode cc print*, 'engrpn: step N-1' j = 0 k = 0 do 8900 i = 1, maxlen itemp(i) = icode(i) icltmp(i) = iclass(i) icode(i) = 0 iclass(i) = 0 8900 continue 9000 continue j = j + 1 if (j.gt.maxlen) go to 9100 ic = icltmp(j) if (ic.eq.0) go to 9100 if ( (ic.ne.7).and.(ic.ne.8).and.(ic.ne.9)) then k = k + 1 icode(k) = itemp(j) iclass(k) = icltmp(j) end if go to 9000 9100 continue return c end subroutine engrpn end subroutine pclass(icode, iclass, ichi, iclo) c c this is called by engrpn. operators are moved around c to convert english math to reverse polish. c if operator is of class icin, and is not already followed by c an operator with class in iclo, then find next place with c stack=0 (that is on the current level), that contains an c operator with class in iclo c c copyright (c) 1998 matt newville c implicit none integer i, maxlen, j0, ksave, ic, icn, j, k, istack parameter(maxlen = 256) integer icode(maxlen), iclass(maxlen), ichi, iclo(6) integer itemp(maxlen), icltmp(maxlen) logical opera do 100 i = 1, maxlen itemp(i) = icode(i) icltmp(i) = iclass(i) 100 continue do 2000 j0 = 1, maxlen - 1 j = j0 500 continue ic = icltmp(j) cc print*, '500<< ', j, itemp(j), icltmp(j), ic, ichi, '>>' if (ic.eq.0) go to 2010 if (ic.eq.ichi) then icn = icltmp(j+1) opera = (icn.eq.iclo(1)).or.(icn.eq.iclo(2)).or. $ (icn.eq.iclo(3)).or.(icn.eq.iclo(4)).or. $ (icn.eq.iclo(5)).or.(icn.eq.iclo(6)) cc print*, 'opera =', opera if (.not.opera) then istack = 0 k = j 600 continue k = k + 1 if (k.lt.maxlen) then icn = icltmp(k) opera = (icn.eq.iclo(1)).or.(icn.eq.iclo(2)).or. $ (icn.eq.iclo(3)).or.(icn.eq.iclo(4)).or. $ (icn.eq.iclo(5)).or.(icn.eq.iclo(6)) cc print*, k, icn, ichi, opera if ((istack.ne.0) .or. .not.opera) then if (icn.eq.7) istack = istack + 1 if (icn.eq.8) istack = istack - 1 cc print*, ' set stack', istack go to 600 end if end if ksave = k -1 icode(ksave) = itemp(j) iclass(ksave) = icltmp(j) do 1000 k = j, ksave-1 icode(k) = itemp(k+1) iclass(k) = icltmp(k+1) 1000 continue c reset itemp and start over again at the same place icode(maxlen-1) = 0 icode(maxlen) = 0 do 1200 k = 1, maxlen itemp(k) = icode(k) icltmp(k) = iclass(k) 1200 continue cc print*, ' going 500' go to 500 end if end if 2000 continue 2010 continue c finish it up do 3000 i = 1, maxlen icode(i) = itemp(i) iclass(i) = icltmp(i) 3000 continue c return c end subroutine class end subroutine parens(string) c c insert parentheses in a string for a fortran math expression c to give the normal math precedence : c ^ before *,/,+,- and *,/ before +,- c also: ** is replaced by ^ c c this calls parins, which does the real work of inserting parens. c c copyright (c) 1998 matt newville c character*(*) string, strtmp*2048 integer i, ilen,istrln external istrln c c first replace '**' with '^ ' strtmp = string ilen = max(2, istrln(strtmp)) do 10 i = 1, ilen-1 if (strtmp(i:i+1).eq.'**') strtmp(i:i+1) = '^ ' 10 continue call unblnk(strtmp) ilen = istrln(strtmp) if ((strtmp.ne.' ').and.(ilen.gt.0)) then c c then put parentheses in to make sure that exponentiation is c done before multiplication, division, addition, or subtraction. if (index(strtmp,'^').ne.0) $ call parins(strtmp,ilen,'^','*/+-') c c then put parentheses in to make sure that multiplication and c division are done before addition and subtraction. if ((index(strtmp,'*').ne.0).or.(index(strtmp,'/').ne.0)) $ call parins(strtmp,ilen,'*/','+-') c c put new string into output and return endif string = strtmp return c end subroutine parens end subroutine parins(strin, ilen , sopt1, sopt2) c c insert parentheses in a string for a fortran math expression c to give the normal math precedence : c "sopt1" is more important than "sopt2" c this gets kind of ugly but appears to never fail. c c copyright (c) 1998 matt newville c integer mstack,i, ilen, j, istart, istack, iopt, ioptst parameter (mstack = 40) character*(*) strin, sopt1, sopt2 character*2048 string, dummy, str1*1, operas*4, digits*10 logical paren(mstack) integer idiff, jstk, i1, i2, io, ieon, nbrstr integer iopen(mstack), istrln external istrln, nbrstr data operas, digits / '*/+-', '0123456789'/ c insert a leading blank, initialize stack control and parentheses iopt = 0 dummy = ' ' dummy(2:ilen+1 ) = strin(1:ilen) string = dummy istart = 1 istack = 1 do 50 i = 1, mstack iopen(i) = 1 paren(i) = .false. 50 continue 100 continue ilen = istrln(string) + 2 ieon = istart - 1 do 200 i = istart, ilen c get current character c check for exponentiation or parens, update stack index c and insert parens if they aren't there already c note that numbers (found with nbrstr) are skipped over str1 = string(i:i) if (i.le.ieon) go to 199 if (index( digits, str1 ).ne.0 ) then ieon = i + nbrstr(string(i:)) elseif (index(sopt1,str1).ne.0) then iopt = i paren(istack) = .true. elseif (str1.eq.'(') then istack = istack + 1 if (istack.gt.mstack) istack = mstack iopen(istack) = i elseif (str1.eq.')') then istack = istack - 1 if (istack.lt.1) istack = 1 elseif (index(sopt2, str1 ).ne.0 ) then ioptst = i - iopt if ( paren(istack)) then paren(istack) = .false. c normal case: find a far away operation if (ioptst.gt.1) then istart = i + 2 io = iopen(istack) idiff = i - io if (idiff.gt.1) then dummy = ' ' dummy = string(1:io)//'('// $ string(io+1 :i-1)//')'//string(i:) string = dummy end if c non-normal case: operation immediately after '^' else jstk = 0 do 170 j = i + 1, ilen - 2 str1 = string(j:j) if (str1.eq.'(') then jstk = jstk + 1 elseif (str1.eq.')') then jstk = jstk - 1 elseif ( (jstk.eq.0) .and. $ (index(operas,str1).ne.0)) then go to 180 end if 170 continue 180 continue dummy = ' ' dummy = string(:i-1)//'('//string(i: j-1) $ //')'//string(j:) string = dummy end if go to 100 else iopen(istack) = i end if end if 199 continue 200 continue c if needed, insert a last set of parens at the end if ( paren(1).and.(iopen(1).ne.1)) then i1 = iopen(istack) i2 = istrln(string) + 1 dummy = ' ' dummy = string(1:i1)//'('// $ string(i1+1:i2-1)//')'//string(i2:) string = dummy end if call triml(string) strin = string ilen = istrln(string) 300 continue return c end soubroutine parins end integer function nbrstr(string) c c find a number in a string c given a string that is known to begin with a digit or sign. c return the position of the end of the number. c nbrstr : position of end of number c c copyright (c) 1998 matt newville c integer istrln, i, ilen, iback character*(*) string character*1 digit*10, plus, minus, d, e, decml, s, sp logical lexp, ldecml data digit /'1234567890'/ data minus,plus,d,e,decml /'-','+','d','e','.'/ c------ ldecml = .false. lexp = .false. ilen = istrln(string) nbrstr = ilen cc print*, '{', string(:ilen),'}' if (ilen.gt.1) then iback = 1 c find end of number : digits are always ok. c stop at second d, e, decml, or sign that's not preceded by (d,e) do 200 i = 2, ilen sp = string(i-1:i-1) s = string(i:i) if (index(digit,s).eq.0) then if ( ( (s.ne.plus).and.(s.ne.minus).and.(s.ne.d) $ .and.(s.ne.e).and.(s.ne.decml) ) $ .or.( lexp.and.((s.eq.d).or.(s.eq.e)) ) $ .or.( ldecml.and.(s.eq.decml) ) $ .or.( ( (s.eq.plus).or.(s.eq.minus) ).and. $ (sp.ne.d).and.(sp.ne.e) ) ) go to 210 lexp = lexp.or.(s.eq.d).or.(s.eq.e) ldecml = ldecml.or.(s.eq.decml) end if 200 continue iback = 0 210 continue nbrstr = i - 1 - iback end if return c end function nbrstr end subroutine rpndmp(icode) c c purpose: decodes icode array to dump the infix (rpn) description c of an encoded formula c c copyright (c) 1998 matt newville include 'consts.h' include 'encod.h' include 'arrays.h' save integer icode(*), i, ic, ilen, iw, istrln character*2048 line, word*32, fword*32 external istrln cc print*, 'welcome to rpndmp ' line = ' ' ilen = 1 i = 0 10 continue 20 format (g15.7) i = i + 1 ic = icode(i) word = ' ' ic = icode(i) write(word,'(i6)') icode(i) cc if (ic.gt.jconst) then cc write(word,20) consts(ic - jconst) cc elseif ((ic.gt.jscale).and.(ic.le.jconst)) then cc cc print*, i, ic, jscale, ic-jscale cc cc print*, scanam(ic -jscale) cc word = scanam(ic - jscale) cc elseif (ic.ge.1) then cc word = arrnam(ic) cc elseif (ic.eq.ileft) then cc word = '(' cc elseif (ic.eq.iright) then cc word = ')' cc elseif (ic.eq.icomma) then cc word = ',' cc elseif (ic.eq.iexp) then cc word = 'exp' cc elseif (ic.eq.ilog) then cc word = 'ln' cc elseif (ic.eq.ilog10) then cc word = 'log10' cc elseif (ic.eq.isqrt) then cc word = 'sqrt' cc elseif (ic.eq.isin) then cc word = 'sin' cc elseif (ic.eq.icos) then cc word = 'cos' cc elseif (ic.eq.itan) then cc word = 'tan' cc elseif (ic.eq.iasin) then cc word = 'asin' cc elseif (ic.eq.iacos) then cc word = 'acos' cc elseif (ic.eq.iatan) then cc word = 'atan' cc elseif (ic.eq.iabs) then cc word = 'abs' cc elseif (ic.eq.ineg) then cc word = '-' cc elseif (ic.eq.isinh) then cc word = 'sinh' cc elseif (ic.eq.icosh) then cc word = 'cosh' cc elseif (ic.eq.itanh) then cc word = 'tanh' cc elseif (ic.eq.icoth) then cc word = 'coth' cc elseif (ic.eq.iadd) then cc word = '+' cc elseif (ic.eq.isub) then cc word = '-' cc elseif (ic.eq.imul) then cc word = '*' cc elseif (ic.eq.idiv) then cc word = '/' cc elseif (ic.eq.iy2x) then cc word = '^' cc elseif (ic.eq.jadd) then cc word = 'add' cc elseif (ic.eq.jsub) then cc word = 'sub' cc elseif (ic.eq.jmin) then cc word = 'min' cc elseif (ic.eq.jmax) then cc word = 'max' cc elseif (ic.eq.jkktf) then cc word = 'kkf' cc elseif (ic.eq.jkktr) then cc word = 'kkr' cc elseif (ic.eq.jfftf) then cc word = 'ftf' cc elseif (ic.eq.jfftr) then cc word = 'ftr' cc elseif (ic.eq.jpenl1) then cc word = 'penalty' cc elseif (ic.eq.jpenl2) then cc word = 'penalty_lo' cc elseif (ic.eq.jpenl3) then cc word = 'penalty_hi' cc elseif (ic.eq.jdebye) then cc word = 'debye' cc elseif (ic.eq.jeins) then cc word = 'eins' cc elseif (ic.eq.jgamma) then cc word = 'gamma' cc elseif (ic.eq.jlgamm) then cc word = 'loggamma' cc elseif (ic.eq.jerf) then cc word = 'erf' cc elseif (ic.eq.jerfc) then cc word = 'erfc' cc elseif (ic.eq.jerfcx) then cc word = 'erfcx' cc elseif (ic.eq.jlconv) then cc word = 'lconvolve' cc elseif (ic.eq.jgconv) then cc word = 'gconvolve' cc elseif (ic.eq.jterpl) then cc word = 'linterp' cc elseif (ic.eq.jterpq) then cc word = 'qinterp' cc elseif (ic.eq.jterps) then cc word = 'splint' cc elseif (ic.eq.jterpa) then cc word = 'ainterp' cc elseif (ic.eq.jrebin) then cc word = 'rebin' cc elseif (ic.eq.jrngar) then cc word = 'range' cc elseif (ic.eq.jndarr) then cc word = 'indarr' cc elseif (ic.eq.j1sarr) then cc word = 'ones' cc elseif (ic.eq.j0sarr) then cc word = 'zeros' cc elseif (ic.eq.jasign) then cc word = 'sign' cc elseif (ic.eq.jceil) then cc word = 'ceil' cc elseif (ic.eq.jfloor) then cc word = 'floor' cc elseif (ic.eq.jnpts) then cc word = 'npts' cc elseif (ic.eq.jvsum) then cc word = 'vsum' cc elseif (ic.eq.jvprod) then cc word = 'vprod' cc elseif (ic.eq.jjoina) then cc word = 'join' cc elseif (ic.eq.jslica) then cc word = 'slice' cc elseif (ic.eq.jnofxa) then cc word = 'nofx' cc elseif (ic.eq.-1) then cc word = '*variable*' cc else cc word = ' ' cc end if cc cc fword = word if (ic.ne.0) then iw = istrln(word) cc write(fword, '(1x,a,i7,a)') '(', ic, ') '//word(1:iw) write(fword, '(1x,a)') word(:iw) line = line(1:ilen)//' '//fword end if ilen = max(1,istrln(line)) if ((i.ge.micode).or.(ic.eq.0).or.(ilen.ge.65)) then call triml(line) call echo( ' [ '// line(:ilen)//' ]') line = ' ' ilen = 1 if (i.ge.micode) call warn(3, ' [ ran out of memory ]') endif if ((i.lt.micode).and.(ic.ne.0)) go to 10 return end integer function ienfcn(str) c convert function name into encod token include 'encod.h' character*(*) str ienfcn = 0 if (str.eq.'ln') then ienfcn = ilog elseif (str.eq.'add') then ienfcn = jadd elseif (str.eq.'sub') then ienfcn = jsub elseif (str.eq.'min') then ienfcn = jmin elseif (str.eq.'max') then ienfcn = jmax elseif (str.eq.'log') then ienfcn = ilog elseif (str.eq.'log10') then ienfcn = ilog10 elseif (str.eq.'exp') then ienfcn = iexp elseif (str.eq.'abs') then ienfcn = iabs elseif (str.eq.'sin') then ienfcn = isin elseif (str.eq.'cos') then ienfcn = icos elseif (str.eq.'tan') then ienfcn = itan elseif (str.eq.'npts') then ienfcn = jnpts elseif (str.eq.'ceil') then ienfcn = jceil elseif (str.eq.'vsum') then ienfcn = jvsum elseif (str.eq.'kkf') then ienfcn = jkktf elseif (str.eq.'kkr') then ienfcn = jkktr elseif (str.eq.'ftf') then ienfcn = jfftf elseif (str.eq.'gauss') then ienfcn = jxgaus elseif (str.eq.'loren') then ienfcn = jxlore elseif (str.eq.'pvoight') then ienfcn = jxvoit elseif (str.eq.'cubic') then ienfcn = jxcube elseif (str.eq.'step') then ienfcn = jxstep elseif (str.eq.'ftr') then ienfcn = jfftr elseif (str.eq.'eins') then ienfcn = jeins elseif (str.eq.'gamma') then ienfcn = jgamma elseif (str.eq.'loggamma') then ienfcn = jlgamm elseif (str.eq.'erf') then ienfcn = jerf elseif (str.eq.'erfc') then ienfcn = jerfc elseif (str.eq.'erfcx') then ienfcn = jerfcx elseif (str.eq.'sqrt') then ienfcn = isqrt elseif (str.eq.'asin') then ienfcn = iasin elseif (str.eq.'acos') then ienfcn = iacos elseif (str.eq.'atan') then ienfcn = iatan elseif (str.eq.'sinh') then ienfcn = isinh elseif (str.eq.'cosh') then ienfcn = icosh elseif (str.eq.'coth') then ienfcn = icoth elseif (str.eq.'tanh') then ienfcn = itanh elseif (str.eq.'penalty') then ienfcn = jpenl1 elseif (str.eq.'penalty_lo') then ienfcn = jpenl2 elseif (str.eq.'penalty_hi') then ienfcn = jpenl3 elseif (str.eq.'debye') then ienfcn = jdebye elseif (str.eq.'deriv') then ienfcn = jderiv elseif (str.eq.'smooth') then ienfcn = jsmoo elseif (str.eq.'floor') then ienfcn = jfloor elseif (str.eq.'vprod') then ienfcn = jvprod elseif (str.eq.'interp') then ienfcn = jterpl elseif (str.eq.'lconvolve') then ienfcn = jlconv elseif (str.eq.'gconvolve') then ienfcn = jgconv elseif (str.eq.'indarr') then ienfcn = jndarr elseif (str.eq.'zeros') then ienfcn = j0sarr elseif (str.eq.'range') then ienfcn = jrngar elseif (str.eq.'ones') then ienfcn = j1sarr elseif (str.eq.'sign') then ienfcn = jasign elseif (str.eq.'linterp') then ienfcn = jterpl elseif (str.eq.'qinterp') then ienfcn = jterpq elseif (str.eq.'ainterp') then ienfcn = jterpa elseif (str.eq.'splint') then ienfcn = jterps elseif (str.eq.'rebin') then ienfcn = jrebin elseif (str.eq.'join') then ienfcn = jjoina elseif (str.eq.'slice') then ienfcn = jslica elseif (str.eq.'nofx') then ienfcn = jnofxa end if return end logical function ic_is_arr(icode, micode) c decide if an icode returns an array include 'encod.h' integer j, micode, icode(*) ic_is_arr = .false. do 10 j = 1, micode ic_is_arr = (((icode(j).gt.0).and.(icode(j).le.jscale)) $ .or. (icode(j).eq.jndarr) $ .or. (icode(j).eq.jrngar) $ .or. (icode(j).eq.j1sarr) $ .or. (icode(j).eq.jjoina) $ .or. (icode(j).eq.j0sarr) ) if (ic_is_arr.or.(icode(j).eq.0)) go to 20 10 continue 20 continue return end subroutine stack(x,mpts,mstack,npts,istack,ipop) c c purpose: part of encod/decod: stack management for decod c c arguments: c x stack array (2d) [in/out] c mpts dimension of x (number of points) [in] c mstack dimension of x (length of stack) [in] c npts array of number of points for each [in/out] c stack element c istack current length of real stack [in/out] c ipop number of elements to pop of stack [in] c c notes: c 1. the stack help in array x is dropped by ipop components c ipop = 1 for 2 component math c c requires: none c c copyright 1997 matt newville integer mpts, mstack, istack, ipop, i, j integer npts(mstack) double precision x(mpts, mstack) istack = istack - ipop do 30 i = 2, istack npts(i) = max(1, min(mpts,npts(i+ipop))) do 20 j = 1, npts(i) x(j, i) = x(j, i + ipop) 20 continue 30 continue do 60 i = istack + 1, istack + ipop npts(i) = max(1, min(mpts,npts(i+ipop))) do 50 j = 1, npts(i) x(j, i) = 0 50 continue 60 continue return c end subroutine stack end integer function nptstk( n1, n2 ) c number of vector points for a two-component math operation: c n1 = min(n1, n2) unless either n1 or n2 = 1, which c means one of the components is a constant, and c should be applied to all elements of vector 2 c c copyright (c) 1998 matt newville c integer n1, n2 nptstk = min ( n1, n2 ) if ( (n1.le.1).or.(n2.le.1) ) nptstk = max ( n1, n2 ) return c end function nptstk end ifeffit-1.2.11d/src/lib/Keywords.dat0000644000175000017500000000442310771740457016225 0ustar segresegre# names and brief description of ifeffit commands: bkg_cl:: remove pre_edge from xmu(E) data with CL data color:: update the plotting color table correl:: set two-variable correlation to a Program Variable chi_noise:: calculate noise in a chi(k) spectrum comment:: write a comment into the history buffer cursor:: get the coordinates of the cursor def:: define the expression and value for a variable diffkk:: differential Kramers-Kronig transform echo:: write a message to the screen erase:: erase a variable error:: generate the uncertainty in a Program Variable exit:: exit the program feffit:: execute a feff-based fit to chi(k) data f1f2:: calculate f1 and f2 from Cromer-Libermann tables ff2chi:: convert list of feff paths to chi(k) fftf:: forward fast fourier transform fftr:: reverse fast fourier transform get_path:: convert path to Program Variables guess:: define a variable as a fitting parameter history:: set up history buffer and file linestyle:: update an index in the plotting style table load:: load a file of commands and execute them log:: write screen messages to an output file macro:: define a macro minimize:: general fitting newplot:: start a new plot path:: define a feff scattering path pause:: wait for user input plot:: general 2-d plot command plot_marker:: put a single marker on the plot plot_text:: put a line of text on the plot plot_arrow:: put an arrow or line on the plot pre_edge:: remove pre_edge from xmu(E) data print:: print command quit:: quit program random:: generate arrays of random numbers read_data:: read a data file rename:: rename a variable reset:: re-initialize program restore:: restore session from save file save:: save session (all program variables and macros) set:: set the constant value for a variable show:: show the value of a variable or expression spline:: determine background spline (autobk algorithm) sync:: synchronize expressions for arrays unguess:: convert all *guess* to *set* window:: create FT window (k->R) without doing FT write_data:: write a data file zoom:: choose plotting window with cursor __test:: test function : do not use! ifeffit-1.2.11d/src/lib/Makefile.dep0000644000175000017500000001357110771740457016137 0ustar segresegre# Scanning files ... # Finding routines needed to make ifeffit.f ... # Finding routines needed to make cifeffit.f ... IFF_SRC = ifeffit.f cifeffit.f str.f misc_vars.f isamac.f \ iff_load.f iread.f echo_stub.f misc_io.f iff_save.f \ iff_eval.f misc_arr.f iff_erase.f iff_sync.f \ decod.f misc_num.f enlib.f sigms.f atomic.f u2ipth.f \ kkmclr.f fftpack.f conv_lor.f specfun.f encod.f \ padlib.f iff_set.f sum_paths.f chipth.f echo.f \ iff_init.f iff_plot_init.f iff_config.f iff_get_line.f \ iff_macro.f iff_done.f iff_history.f iff_test.f \ sort2.f iff_rddata.f iff_wrdata.f iff_log.f iff_show.f \ iff_color.f iff_correl.f fefinp.f rdffdt.f iff_print.f \ iff_echo.f iff_unguess.f iff_rename.f iff_pre_edge.f \ preedg.f iff_bkg_cl.f clcalc.f clbfun.f minpack.f \ iff_spline.f spline.f splfun.f bvalue.f fitfft.f \ xafsft.f window.f iff_random.f iff_fft.f feff_tables.f \ iff_window.f iff_path.f iff_getpath.f iff_ff2chi.f \ iff_feffit.f fitfun.f iff_chieps.f fiterr.f iff_f1f2.f \ iff_diffkk.f iff_minimize.f genfun.f iff_uncert.f \ iff_plot.f iff_cursor.f IFF_OBJ = ifeffit.o cifeffit.o str.o misc_vars.o isamac.o \ iff_load.o iread.o echo_stub.o misc_io.o iff_save.o \ iff_eval.o misc_arr.o iff_erase.o iff_sync.o \ decod.o misc_num.o enlib.o sigms.o atomic.o u2ipth.o \ kkmclr.o fftpack.o conv_lor.o specfun.o encod.o \ padlib.o iff_set.o sum_paths.o chipth.o echo.o \ iff_init.o iff_plot_init.o iff_config.o iff_get_line.o \ iff_macro.o iff_done.o iff_history.o iff_test.o \ sort2.o iff_rddata.o iff_wrdata.o iff_log.o iff_show.o \ iff_color.o iff_correl.o fefinp.o rdffdt.o iff_print.o \ iff_echo.o iff_unguess.o iff_rename.o iff_pre_edge.o \ preedg.o iff_bkg_cl.o clcalc.o clbfun.o minpack.o \ iff_spline.o spline.o splfun.o bvalue.o fitfft.o \ xafsft.o window.o iff_random.o iff_fft.o feff_tables.o \ iff_window.o iff_path.o iff_getpath.o iff_ff2chi.o \ iff_feffit.o fitfun.o iff_chieps.o fiterr.o iff_f1f2.o \ iff_diffkk.o iff_minimize.o genfun.o iff_uncert.o \ iff_plot.o iff_cursor.o # dependencies: ifeffit.o: consts.h maxpts.h keywrd.h echo.h cifeffit.o: consts.h maxpts.h echo.h misc_vars.o: consts.h maxpts.h arrays.h encod.h keywrd.h isamac.o: consts.h maxpts.h keywrd.h iff_load.o: consts.h maxpts.h keywrd.h echo.h iff_save.o: consts.h maxpts.h keywrd.h arrays.h encod.h iff_eval.o: consts.h maxpts.h keywrd.h arrays.h encod.h misc_arr.o: consts.h maxpts.h arrays.h encod.h keywrd.h iff_erase.o: consts.h maxpts.h keywrd.h arrays.h encod.h feffit.h\ fefdat.h pthpar.h iff_sync.o: consts.h maxpts.h keywrd.h arrays.h encod.h pthpar.h\ feffit.h decod.o: maxpts.h encod.h misc_num.o: maxpts.h consts.h enlib.o: encod.h consts.h maxpts.h arrays.h sigms.o: consts.h maxpts.h arrays.h feffit.h fefdat.h pthpar.h u2ipth.o: consts.h maxpts.h pthpar.h kkmclr.o: consts.h maxpts.h fft.h conv_lor.o: maxpts.h encod.o: consts.h maxpts.h encod.h arrays.h padlib.o: padlib.h iff_set.o: consts.h maxpts.h keywrd.h arrays.h encod.h echo.h sum_paths.o: consts.h maxpts.h keywrd.h arrays.h fefdat.h feffit.h\ pthpar.h chipth.o: consts.h maxpts.h pthpar.h echo.o: echo.h iff_init.o: consts.h maxpts.h arrays.h encod.h fefdat.h fft.h\ keywrd.h pthpar.h spline.h echo.h feffit.h iff_plot_init.o: consts.h maxpts.h ifplot.h iff_config.o: consts.h maxpts.h arrays.h encod.h fefdat.h fft.h\ keywrd.h pthpar.h spline.h echo.h feffit.h com.h\ sys.h iff_get_line.o: consts.h maxpts.h keywrd.h iff_macro.o: consts.h maxpts.h keywrd.h iff_history.o: consts.h maxpts.h keywrd.h iff_test.o: consts.h maxpts.h keywrd.h arrays.h spline.h iff_rddata.o: consts.h maxpts.h keywrd.h arrays.h iff_wrdata.o: consts.h maxpts.h keywrd.h arrays.h iff_log.o: consts.h maxpts.h keywrd.h echo.h iff_show.o: consts.h maxpts.h keywrd.h arrays.h encod.h echo.h\ feffit.h fefdat.h pthpar.h iff_color.o: consts.h maxpts.h keywrd.h ifplot.h iff_correl.o: consts.h maxpts.h keywrd.h arrays.h feffit.h fefinp.o: consts.h maxpts.h fefdat.h iff_print.o: consts.h maxpts.h keywrd.h arrays.h encod.h iff_unguess.o: consts.h maxpts.h arrays.h encod.h iff_rename.o: consts.h maxpts.h keywrd.h arrays.h iff_pre_edge.o: consts.h maxpts.h keywrd.h arrays.h spline.h iff_bkg_cl.o: consts.h maxpts.h keywrd.h arrays.h spline.h clbfun.o: consts.h maxpts.h spline.h iff_spline.o: consts.h maxpts.h keywrd.h arrays.h spline.h spline.o: consts.h maxpts.h spline.h fft.h splfun.o: consts.h maxpts.h spline.h fft.h iff_random.o: consts.h maxpts.h keywrd.h arrays.h iff_fft.o: consts.h maxpts.h keywrd.h arrays.h fft.h pthpar.h\ fefdat.h feff_tables.o: consts.h maxpts.h iff_window.o: consts.h maxpts.h keywrd.h arrays.h fft.h iff_path.o: consts.h maxpts.h keywrd.h arrays.h fefdat.h pthpar.h iff_getpath.o: consts.h maxpts.h keywrd.h arrays.h fefdat.h feffit.h\ pthpar.h iff_ff2chi.o: consts.h maxpts.h keywrd.h arrays.h fefdat.h feffit.h\ pthpar.h iff_feffit.o: consts.h maxpts.h keywrd.h arrays.h fft.h fefdat.h\ pthpar.h feffit.h fitfun.o: consts.h maxpts.h arrays.h keywrd.h fft.h fefdat.h\ pthpar.h feffit.h iff_chieps.o: consts.h maxpts.h keywrd.h arrays.h fft.h iff_f1f2.o: consts.h maxpts.h keywrd.h arrays.h spline.h atomic.h iff_diffkk.o: consts.h maxpts.h keywrd.h arrays.h spline.h iff_minimize.o: consts.h maxpts.h keywrd.h arrays.h feffit.h genfun.o: consts.h maxpts.h arrays.h feffit.h keywrd.h iff_uncert.o: consts.h maxpts.h keywrd.h arrays.h feffit.h iff_plot.o: consts.h maxpts.h keywrd.h ifplot.h iff_cursor.o: consts.h maxpts.h keywrd.h ifplot.h IFF_INC = consts.h maxpts.h keywrd.h echo.h arrays.h encod.h \ feffit.h fefdat.h pthpar.h fft.h padlib.h spline.h \ ifplot.h com.h sys.h atomic.h # WARNING: these subprograms seem to be needed but weren't found IFF_MISSING= pgqndt pgqdt pgopen pgclos pgqinf getenv pgscrn \ pgscr sigma fcn pgeras pgslct pgpage pgbbuf pgask \ pgsci pgsls pgsch pgscf pgslw pgvstd pgrnge pgswin \ pgbox pgmtxt pgline pgpt pgerry pgerrx pgtext pgpt1 \ pgsah pgarro pgebuf pgband ifeffit-1.2.11d/src/lib/misc_rand.f0000644000175000017500000001612410771740457016033 0ustar segresegrec c The Mersenne Twister Algorithm, taken and adapted from MT19937.f: c Copyright (C) 1997 Makoto Matsumoto and Takuji Nishimura. c c the distribution functions by Matt Newville, looking at sources c from Python 2.3.3 random.py and Numerical Recipes c c A C-program for MT19937: Real number version c genrand() generates one pseudorandom real number (double) c which is uniformly distributed on [0,1]-interval, for each c call. sgenrand(seed) set initial values to the working area c of 624 words. Before genrand(), sgenrand(seed) must be c called once. (seed is any 32-bit integer except for 0). c Integer generator is obtained by modifying two lines. c Coded by Takuji Nishimura, considering the suggestions by c Topher Cooper and Marc Rieffel in July-Aug. 1997. c c This library is free software; you can redistribute it and/or c modify it under the terms of the GNU Library General Public c License as published by the Free Software Foundation; either c version 2 of the License, or (at your option) any later c version. c This library is distributed in the hope that it will be useful, c but WITHOUT ANY WARRANTY; without even the implied warranty of c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. c See the GNU Library General Public License for more details. c You should have received a copy of the GNU Library General c Public License along with this library; if not, write to the c Free Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA c 02111-1307 USA c c Copyright (C) 1997 Makoto Matsumoto and Takuji Nishimura. c When you use this, send an email to: matumoto@math.keio.ac.jp c with an appropriate reference to your work. c c*********************************************************************** c Fortran translation by Hiroshi Takano. Jan. 13, 1999. c c genrand() -> double precision function grnd() c sgenrand(seed) -> subroutine sgrnd(seed) c integer seed c c This program uses the following non-standard intrinsics. c ishft(i,n): If n>0, shifts bits in i by n positions to left. c If n<0, shifts bits in i by n positions to right. c iand (i,j): Performs logical AND on corresponding bits of i and j. c ior (i,j): Performs inclusive OR on corresponding bits of i and j. c ieor (i,j): Performs exclusive OR on corresponding bits of i and j. c c*********************************************************************** cc this main() outputs first 1000 generated numbers c program main cc c implicit none c integer no, j, k cc c parameter(no=10000) c double precision r(0:7), randmt c external randmt cc cc any nonzero integer can be used as a seed c call seed_randmt(32054) c do 1000 j=0,no-1 c r(mod(j,8))=randmt() c if(mod(j,8).eq.7) then c write(*,'(8(f8.6,'' ''))') (r(k),k=0,7) c else if(j.eq.no-1) then c write(*,'(8(f8.6,'' ''))') (r(k),k=0,mod(no-1,8)) c endif c 1000 continue cc c stop c end c*********************************************************************** subroutine seed_randmt(seed) c implicit none integer n, seed parameter(n = 624) integer mt(0:n-1), mti c the array for the state vector common /randmt_block/mti,mt save /randmt_block/ c c setting initial seeds to mt[N] using c the generator Line 25 of Table 1 in c [KNUTH 1981, The Art of Computer Programming c Vol. 2 (2nd Ed.), pp102] if (seed .eq. 0) seed = 4357 mt(0)= iand(seed,-1) do 10 mti=1,n-1 mt(mti) = iand(69069 * mt(mti-1),-1) 10 continue cc print*, ' seed random numbers to ', seed c return end c*********************************************************************** double precision function randmt() c implicit none integer n,n1,m,mata,kk integer umask,lmask,tmaskb,tmaskc c c period parameters parameter(n = 624) parameter(n1 = n+1) parameter(m = 397) parameter(mata = -1727483681) ! constant vector a c parameter(umask = -2147483648) ! most significant w-r bits parameter(lmask = 2147483647) ! least significant r bits parameter(tmaskb= -1658038656) ! tempering parameters parameter(tmaskc= -272236544) double precision scale, scalem1 parameter(scale = 2.0d0**32, scalem1=2.0d0**32-1.0d0) c integer mt(0:n-1),mti c the array for the state vector common /randmt_block/ mti,mt save /randmt_block/ data mti/n1/ c mti==n+1 means mt[n] is not initialized c integer mag01(0:1),y data mag01/0, mata/ data y/0/ save mag01,y c mag01(x) = x * mata for x=0,1 c umask = -lmask - 1 if(mti.ge.n) then if (mti.eq.n1) call seed_randmt(4357) c generate n words at one time do 100 kk=0,n-m-1 y=ior(iand(mt(kk),umask),iand(mt(kk+1),lmask)) mt(kk)=ieor(ieor(mt(kk+m),ishft(y,-1)),mag01(iand(y,1))) 100 continue do 200 kk=n-m,n-2 y=ior(iand(mt(kk),umask),iand(mt(kk+1),lmask)) mt(kk)=ieor(ieor(mt(kk+(m-n)),ishft(y,-1)), $ mag01(iand(y,1))) 200 continue y=ior(iand(mt(n-1),umask),iand(mt(0),lmask)) mt(n-1)=ieor(ieor(mt(m-1),ishft(y,-1)),mag01(iand(y,1))) mti = 0 endif c y=mt(mti) mti=mti+1 y=ieor(y,ishft(y,-11)) y=ieor(y,iand(ishft(y,7),tmaskb)) y=ieor(y,iand(ishft(y,15),tmaskc)) y=ieor(y,ishft(y,-18)) c if(y.lt.0) then randmt=(dble(y)+scale)/(scalem1) else randmt=dble(y)/(scalem1) endif c return end ccc ccc ccc generate gaussian distribution of random numbers double precision function gauss_rand() c implicit none double precision gauss_save, rnorm, r1, r2 double precision randmt, f external randmt logical toggle save toggle, gauss_save data toggle /.false./ c if (toggle) then gauss_rand = gauss_save else 10 continue r1 = 2 * randmt() - 1 r2 = 2 * randmt() - 1 rnorm = r1*r1 + r2*r2 if (rnorm.ge.1.or.rnorm.eq.0) go to 10 f = sqrt(-2 * log(rnorm)/rnorm) gauss_save = r1 * f gauss_rand = r2 * f endif toggle = .not.toggle return c end real function gauss_rand end ccc ccc generate normal distribution of random numbers double precision function normal_rand() c implicit none double precision rnorm_save, r1, r2 double precision randmt, z, half, magic_nv parameter (half = 0.5d0) c magic_nv = 4*exp(-0.5)/sqrt(2) parameter (magic_nv = 1.715527769921414d0) external randmt c 10 continue r1 = randmt() r2 = 1 - randmt() z = magic_nv*(r1-half)/r2 if (z*z.gt.-4*log(r2)) goto 10 normal_rand = z return c end real function normal_rand end ifeffit-1.2.11d/src/lib/iff_random.f0000644000175000017500000001022310771740457016172 0ustar segresegre subroutine iff_random(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 2004 Matthew Newville, The University of Chicago c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: ifeffit test function c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' save character*(*) str character*128 oname, name1, name2, defkey(3)*64, rdist*16 integer ier, i, k, istrln, npts, jdot, ndfkey, iseed integer iff_eval, iff_eval_in, iff_eval_dp double precision randmt, gauss_rand, normal_rand double precision sigma external iff_eval, iff_eval_in, iff_eval_dp external randmt, gauss_rand, normal_rand external istrln c rdist = 'uniform' oname = undef npts = 0 sigma = one call iff_sync call bkeys(str, mkeys, keys, values, nkeys) c set default keywords for "undefined" sets c ie: the first two unkeyed values will take keys 'energy', 'xmu' ndfkey = 2 defkey(1) = 'output' defkey(2) = 'npts' do 100 i = 1, nkeys k = istrln( keys(i)) if ((values(i).eq.undef).and.(i.le.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if (keys(i).eq.'npts') then ier = iff_eval_in(values(i), npts) elseif (keys(i).eq.'output') then oname = values(i) call lower(oname) elseif (keys(i).eq.'dist') then rdist = values(i) call lower(rdist) elseif (keys(i).eq.'sigma') then ier = iff_eval_dp(values(i), sigma) elseif (keys(i).eq.'seed') then ier = iff_eval_in(values(i), iseed) if (ier.eq.0) then if (iseed.eq.0) ier = 4357 call seed_randmt(iseed) endif else messg = keys(i)(1:k)//' " will be ignored' call warn(1,' *** random: unknown keyword " '//messg) end if 100 continue c c get/resolve array names jdot = index(oname,'.') if ((jdot.eq.0).or.(oname.eq.undef)) then call warn(2, ' random: no output array named') return endif name1 = oname(1:jdot-1) name2 = oname(jdot+1:) call lower(name1) call lower(name2) call fixnam(name1,1) call fixnam(name2,2) jdot = istrln(name1) npts = min(npts,maxpts) call lower(rdist) do 200 i = 1, npts tmparr(i) = zero 200 continue cc print*, ' use distribution ', rdist(:12) if (rdist(:5).eq.'gauss') then do 300 i = 1, npts tmparr(i) = sigma*gauss_rand() 300 continue elseif (rdist(:6).eq.'normal') then do 400 i = 1, npts tmparr(i) = sigma*normal_rand() 400 continue else do 900 i = 1, npts tmparr(i) = sigma*randmt() 900 continue endif call set_array(name2,name1, tmparr,npts,1) return c end subroutine iff_random end ifeffit-1.2.11d/src/lib/compat.h0000644000175000017500000000053610771740457015361 0ustar segresegrec{compat.h -*-fortran-*- c used so setsca/getsca works with libxafs for autobk,diffkk,feff6, etc. c values for scalars integer mxsca parameter (mxsca=512) double precision sscaval(mxsca) character*96 sscanam(mxsca), snamtmp common /sca_dp/ sscaval common /sca_ch/ sscanam, snamtmp c} ifeffit-1.2.11d/src/lib/chiout.f0000644000175000017500000001051410771740457015364 0ustar segresegre subroutine chiout(chiq, filksp, filrsp, format, vax, ksp, rsp, $ irecl, ndoc, doc, qlo, qhi, qgrid, qweigh, windo, $ wfftc, mfft, rlast, comm, mdocx, iexist, skychi, skyrsp) c c this will write out chi(k) and chi(r) to output files c c copyright 1993 university of washington matt newville c c inputs: c chiq array of chi(k) data, on with chiq(1) = chi(k=0.) c filksp name of output k-space file to write c filrsp name of output r-space file to write c format format of output files (uwexafs of ascii) c vax logical flag for writing binary data in vax format c ksp logical flag for writing data to k-space c rsp logical flag for writing data to r-space c ndoc number of document lines to write out c doc documents to write out c qlo lowest value in k-space to write out data c qhi highest value in k-space to write out data c qgrid k- grid spacing for writing out data and fft c qweigh k-weight to use for fft c windo window array c windo2 window parameter #2 c wfftc work array for fft (initialized with cffti using mfft ) c mfft number of points to use in fft ( .le.2048 ) c rlast highest r value to write out c iexist integer flag for rewriting data to a uwexafs file c outputs: c skychi output skey of chi(k) file c skyrsp output skey of chi(r) file c c note mfft must be less than or equal to 2048 implicit none integer i, nfft, mdocx, maxpts, mfft,irecl double precision zero, pi parameter (maxpts = 4096) parameter (zero = 0.d0, pi = 3.14159 26535 89793d0 ) character*(*) filksp, filrsp, format, doc, skychi, skyrsp character*(*) type*10, comm double precision chiq(*), wfftc(*), windo(*) double precision xdata(maxpts), yreal(maxpts), yimag(maxpts) double precision yphas(maxpts), yampl(maxpts) double precision qweigh, qgrid, qlo, qhi, rlast, rgrid double precision qsmall, rsmall integer ndoc, nkyout, iexist, nrout, nqout, nqlo, nqhi complex*16 cchiq(maxpts), chir(maxpts) logical vax, ksp, rsp c c initialize, calculate assorted useful indices mdocx = 0 do 20 i = 1, maxpts xdata(i) = zero yreal(i) = zero yimag(i) = zero yampl(i) = zero yphas(i) = zero cchiq(i) = cmplx(zero, zero) chir(i) = cmplx(zero, zero) 20 continue c check that mfft .le. maxpts nfft = mfft if (nfft.gt.maxpts) nfft = maxpts rgrid = pi / ( nfft * qgrid) rsmall = rgrid / 100.0 qsmall = qgrid / 100.0 nqlo = int( (qlo + qsmall) / qgrid ) if (nqlo.lt.0) nqlo = 0 nqhi = int( (qhi + qsmall) / qgrid ) nqout = nqhi - nqlo + 1 nrout = int( (rlast + rsmall) / rgrid ) c c construct chi(k) on q range [qlo, qhi] do 300 i = 1, nqout xdata(i) = qlo + (i-1)*qgrid yreal(i) = chiq(nqlo + i) yimag(i) = zero 300 continue c c k - space if (ksp) then type = 'chi' skychi = ' ' nkyout = 0 c write out chi(k) on q range [qlo, qhi] call outdat(type, format, filksp, vax, comm, skychi, nkyout, $ irecl, ndoc, mdocx, doc, nqout, xdata, $ yreal, yimag, yampl, yphas, iexist) end if c c r - space c if (rsp) then c construct complex chi(k) do 400 i = 1, nfft cchiq(i) = cmplx(chiq(i), zero) 400 continue c take fft of complex chi(k) to get chir call xafsft(nfft, cchiq, windo, qgrid, qweigh, $ wfftc, 1, chir) do 500 i = 1, nrout xdata(i) = (i-1)*rgrid yreal(i) = dble( chir(i) ) yimag(i) = dimag( chir(i) ) yampl(i) = zero yphas(i) = zero 500 continue type = 'rsp' skyrsp = ' ' nkyout = 0 c write out chi(r) on r range [0.,rlast] call outdat(type, format, filrsp, vax, comm, skyrsp, nkyout, $ irecl, ndoc, mdocx, doc, nrout, xdata, $ yreal, yimag, yampl, yphas, iexist) end if c return c end subroutine chiout end ifeffit-1.2.11d/src/lib/startup.iff0000644000175000017500000000536010771740457016115 0ustar segresegre# # Standard macros provided with ifeffit distribution # customize as needed. macro pf "A.dat" "2" "" "simple plot of a column file" read_data($1, type=raw, group=pf) plot(pf.1, pf.$2, $3) end macro macro rf "A.dat" "group" "simple raw read of a data file" read_data($1, group=$2, type='raw') end macro macro bkg "X.dat", "my" "" 'very simple autobk for an xmu file' read_data( $1,group=$2, type=xmu) kweight = 1 rbkg = 1.01 spline ($2.energy, $2.xmu, kmin = 0, kmax = 0, $3) newplot($2.energy, $2.xmu, color = blue) plot ($2.energy, $2.bkg, style = dashed, color = tomato ) end macro macro pre "x.dat" "dat" 'very simple pre-edge for an xmu file' read_data( $1, group=$2, type=xmu) pre_edge($2.energy, $2.xmu) print ' e0 = ', e0, ' edge_step = ', edge_step plot ($2.energy, $2.norm) end macro macro testplot 'make a standard "test-pattern" plot' my.x = range(0.1,10,0.1) my.y1 = (exp(-my.x / 13) * 2* cos(my.x *2.3 )) my.y2 = (exp(-my.x/ 7.5) * (20/sqrt(my.x)) * sin(my.x/5) * (cos(my.x*4)) + cos((my.x+2.50)*2) / 4 ) newplot(my.x,my.y1, color=red) plot(my.x,my.y2, color=blue) end macro macro feff_path 'simple read of a feff path by index' path ($1, feff$1.dat) end macro macro srfit 'standard r-space plot of Feffit result' read_data($1r.dat, type = rsp, group = dat) read_data($1r.fit, type = rsp, group = fit) newplot(r,chir_mag, group=dat, $2) plot(r,chir_mag, group=fit, $3) end macro macro skfit 'standard un-weighted k-space plot of Feffit result' read_data($1k.dat, type = chi, group = dat) read_data($1k.fit, type = chi, group = fit) newplot(k,chi, group=dat, $2) plot(k,chi, group=fit, $3) end macro macro skwfit 'standard k-weighted k-space plot of Feffit result' read_data($1k.dat, type = chi, group = dat) read_data($1k.fit, type = chi, group = fit) dat.chik = dat.chi * dat.k^($2) fit.chik = fit.chi * fit.k^($2) newplot(k,chik, group=dat, $3) plot(k,chik, group=fit, $4) end macro macro sqfit 'standard q-space plot of Feffit result' read_data($1q.dat, type = chi, group = qdat) read_data($1q.fit, type = chi, group = qfit) newplot(k,chi, group=qdat, $2) plot(k,chi, group=qfit, $3) end macro macro make_hardcopy "" "/cps" 'create image file of current plot' plot(file= $1, device=$2) end macro macro make_gif "ifeffit.gif" 'create GIF of current plot' make_hardcopy $1 "/gif" end macro macro make_ps "ifeffit.ps" 'create PS of current plot' make_hardcopy $1 "/cps" end macro macro make_bwps "ifeffit.ps" 'create Black&White PS of current plot' make_hardcopy $1 "/ps" end macro macro make_png "ifeffit.png" 'create PNG of current plot' make_hardcopy $1 "/png" end macro ifeffit-1.2.11d/src/lib/minpack.f0000644000175000017500000014143410771740457015521 0ustar segresegre subroutine lm_err(info,toler) c c write out lm_info message after fit with lmdif1 c m newville: relies on external istrln and echo routines character*128 messg double precision toler integer info, im, istrln external istrln if (info.eq.0) then call warn(2,' '// $ 'fit gave an impossible error message.') elseif ( (info.ge.4).and.(info.le.7)) then call warn(2,' fit gave a warning message:') if (info.eq.4) then call warn(2,' one or more '// $ 'variables may not affect the fit.') elseif (info.eq.5) then call warn(2,' too many fit '// $ 'iterations. try better guesses,') call warn(2,' a simpler problem, or '// $ 'increase "&max_iteration".') elseif ((info.eq.6).or.(info.eq.7)) then call warn(2,' "toler" can probably be '// $ 'increased without a loss of') write(messg, '(a,e13.5)' ) ' fit quality. '// $ 'current value is: toler = ', toler im = istrln(messg) call warn(2,messg(:im)) endif end if return end subroutine lmdif1(fcn,m,n,x,fvec,tol,info,iwa,wa,lwa) c c single precision levenberg-marquardt non-linear least square fitting c routine with finite difference approximation to the jacobian. c c argonne national laboratory. minpack project. march 1980. c burton s. garbow, kenneth e. hillstrom, jorge j. more c integer m,n,info,lwa integer iwa(n) double precision tol double precision x(n),fvec(m),wa(lwa) external fcn c ********** c c subroutine lmdif1 c c the purpose of lmdif1 is to minimize the sum of the squares of c m nonlinear functions in n variables by a modification of the c levenberg-marquardt algorithm. this is done by using the more c general least-squares solver lmdif. the user must provide a c subroutine which calculates the functions. the jacobian is c then calculated by a forward-difference approximation. c c the subroutine statement is c c subroutine lmdif1(fcn,m,n,x,fvec,tol,info,iwa,wa,lwa) c c where c c fcn is the name of the user-supplied subroutine which c calculates the functions. fcn must be declared c in an external statement in the user calling c program, and should be written as follows. c c subroutine fcn(m,n,x,fvec,iflag) c integer m,n,iflag c double precision x(n),fvec(m) c ---------- c calculate the functions at x and c return this vector in fvec. c ---------- c return c end c c the value of iflag should not be changed by fcn unless c the user wants to terminate execution of lmdif1. c in this case set iflag to a negative integer. c c m is a positive integer input variable set to the number c of functions. c c n is a positive integer input variable set to the number c of variables. n must not exceed m. c c x is an array of length n. on input x must contain c an initial estimate of the solution vector. on output x c contains the final estimate of the solution vector. c c fvec is an output array of length m which contains c the functions evaluated at the output x. c c tol is a nonnegative input variable. termination occurs c when the algorithm estimates either that the relative c error in the sum of squares is at most tol or that c the relative error between x and the solution is at c most tol. c c info is an integer output variable. if the user has c terminated execution, info is set to the (negative) c value of iflag. see description of fcn. otherwise, c info is set as follows. c c info = 0 improper input parameters. c c info = 1 algorithm estimates that the relative error c in the sum of squares is at most tol. c c info = 2 algorithm estimates that the relative error c between x and the solution is at most tol. c c info = 3 conditions for info = 1 and info = 2 both hold. c c info = 4 fvec is orthogonal to the columns of the c jacobian to machine precision. c c info = 5 number of calls to fcn has reached or c exceeded 2000*(n+1). c c info = 6 tol is too small. no further reduction in c the sum of squares is possible. c c info = 7 tol is too small. no further improvement in c the approximate solution x is possible. c c iwa is an integer work array of length n. c c wa is a work array of length lwa. c c lwa is a positive integer input variable not less than c m*n+5*n+m. c c subprograms called c c user-supplied ...... fcn c c minpack-supplied ... lmdif c c argonne national laboratory. minpack project. march 1980. c burton s. garbow, kenneth e. hillstrom, jorge j. more c c ********** integer maxfev,mode,mp5n,nfev,nprint double precision epsfcn,factor,ftol,gtol,xtol,zero data factor,zero /1.0d2,0.0d0/ info = 0 c c check the input parameters for errors. c if (n .le. 0 .or. m .lt. n .or. tol .lt. zero * .or. lwa .lt. m*n + 5*n + m) go to 10 c c call lmdif. c maxfev = 2000*(n + 1) ftol = tol xtol = tol gtol = zero epsfcn = zero mode = 1 nprint = 0 mp5n = m + 5*n call lmdif(fcn,m,n,x,fvec,ftol,xtol,gtol,maxfev,epsfcn,wa(1), * mode,factor,nprint,info,nfev,wa(mp5n+1),m,iwa, * wa(n+1),wa(2*n+1),wa(3*n+1),wa(4*n+1),wa(5*n+1)) if (info .eq. 8) info = 4 10 continue return c c last card of subroutine lmdif1. c end subroutine lmdif(fcn,m,n,x,fvec,ftol,xtol,gtol,maxfev,epsfcn, * diag,mode,factor,nprint,info,nfev,fjac,ldfjac, * ipvt,qtf,wa1,wa2,wa3,wa4) c integer m,n,maxfev,mode,nprint,info,nfev,ldfjac integer ipvt(n) double precision ftol,xtol,gtol,epsfcn,factor double precision x(n),fvec(m),diag(n),fjac(ldfjac,n),qtf(n) double precision wa1(n),wa2(n), wa3(n),wa4(m) external fcn c ********** c c subroutine lmdif c c the purpose of lmdif is to minimize the sum of the squares of c m nonlinear functions in n variables by a modification of c the levenberg-marquardt algorithm. the user must provide a c subroutine which calculates the functions. the jacobian is c then calculated by a forward-difference approximation. c c the subroutine statement is c c subroutine lmdif(fcn,m,n,x,fvec,ftol,xtol,gtol,maxfev,epsfcn, c diag,mode,factor,nprint,info,nfev,fjac, c ldfjac,ipvt,qtf,wa1,wa2,wa3,wa4) c c where c c fcn is the name of the user-supplied subroutine which c calculates the functions. fcn must be declared c in an external statement in the user calling c program, and should be written as follows. c c subroutine fcn(m,n,x,fvec,iflag) c integer m,n,iflag c double precision x(n),fvec(m) c ---------- c calculate the functions at x and c return this vector in fvec. c ---------- c return c end c c the value of iflag should not be changed by fcn unless c the user wants to terminate execution of lmdif. c in this case set iflag to a negative integer. c c m is a positive integer input variable set to the number c of functions. c c n is a positive integer input variable set to the number c of variables. n must not exceed m. c c x is an array of length n. on input x must contain c an initial estimate of the solution vector. on output x c contains the final estimate of the solution vector. c c fvec is an output array of length m which contains c the functions evaluated at the output x. c c ftol is a nonnegative input variable. termination c occurs when both the actual and predicted relative c reductions in the sum of squares are at most ftol. c therefore, ftol measures the relative error desired c in the sum of squares. c c xtol is a nonnegative input variable. termination c occurs when the relative error between two consecutive c iterates is at most xtol. therefore, xtol measures the c relative error desired in the approximate solution. c c gtol is a nonnegative input variable. termination c occurs when the cosine of the angle between fvec and c any column of the jacobian is at most gtol in absolute c value. therefore, gtol measures the orthogonality c desired between the function vector and the columns c of the jacobian. c c maxfev is a positive integer input variable. termination c occurs when the number of calls to fcn is at least c maxfev by the end of an iteration. c c epsfcn is an input variable used in determining a suitable c step length for the forward-difference approximation. this c approximation assumes that the relative errors in the c functions are of the order of epsfcn. if epsfcn is less c than the machine precision, it is assumed that the relative c errors in the functions are of the order of the machine c precision. c c diag is an array of length n. if mode = 1 (see c below), diag is internally set. if mode = 2, diag c must contain positive entries that serve as c multiplicative scale factors for the variables. c c mode is an integer input variable. if mode = 1, the c variables will be scaled internally. if mode = 2, c the scaling is specified by the input diag. other c values of mode are equivalent to mode = 1. c c factor is a positive input variable used in determining the c initial step bound. this bound is set to the product of c factor and the euclidean norm of diag*x if nonzero, or else c to factor itself. in most cases factor should lie in the c interval (.1,100.). 100. is a generally recommended value. c c nprint is an integer input variable that enables controlled c printing of iterates if it is positive. in this case, c fcn is called with iflag = 0 at the beginning of the first c iteration and every nprint iterations thereafter and c immediately prior to return, with x and fvec available c for printing. if nprint is not positive, no special calls c of fcn with iflag = 0 are made. c c info is an integer output variable. if the user has c terminated execution, info is set to the (negative) c value of iflag. see description of fcn. otherwise, c info is set as follows. c c info = 0 improper input parameters. c c info = 1 both actual and predicted relative reductions c in the sum of squares are at most ftol. c c info = 2 relative error between two consecutive iterates c is at most xtol. c c info = 3 conditions for info = 1 and info = 2 both hold. c c info = 4 the cosine of the angle between fvec and any c column of the jacobian is at most gtol in c absolute value. c c info = 5 number of calls to fcn has reached or c exceeded maxfev. c c info = 6 ftol is too small. no further reduction in c the sum of squares is possible. c c info = 7 xtol is too small. no further improvement in c the approximate solution x is possible. c c info = 8 gtol is too small. fvec is orthogonal to the c columns of the jacobian to machine precision. c c nfev is an integer output variable set to the number of c calls to fcn. c c fjac is an output m by n array. the upper n by n submatrix c of fjac contains an upper triangular matrix r with c diagonal elements of nonincreasing magnitude such that c c t t t c p *(jac *jac)*p = r *r, c c where p is a permutation matrix and jac is the final c calculated jacobian. column j of p is column ipvt(j) c (see below) of the identity matrix. the lower trapezoidal c part of fjac contains information generated during c the computation of r. c c ldfjac is a positive integer input variable not less than m c which specifies the leading dimension of the array fjac. c c ipvt is an integer output array of length n. ipvt c defines a permutation matrix p such that jac*p = q*r, c where jac is the final calculated jacobian, q is c orthogonal (not stored), and r is upper triangular c with diagonal elements of nonincreasing magnitude. c column j of p is column ipvt(j) of the identity matrix. c c qtf is an output array of length n which contains c the first n elements of the vector (q transpose)*fvec. c c wa1, wa2, and wa3 are work arrays of length n. c c wa4 is a work array of length m. c c subprograms called c c user-supplied ...... fcn c c minpack-supplied ... spmpar,enorm,fdjac2,lmpar,qrfac c c fortran-supplied ... abs,max,min,sqrt,mod c c argonne national laboratory. minpack project. march 1980. c burton s. garbow, kenneth e. hillstrom, jorge j. more c c ********** integer i,iflag,iter,j,l double precision actred,delta,dirder,epsmch,fnorm,fnorm1,gnorm double precision one,par,pnorm,prered,p1,p5,p25,p75,p0001,ratio double precision sum,temp,temp1,temp2,xnorm,zero double precision spmpar,enorm c#mn{ double precision xiter, xmaxiter,getsca external getsca c#mn} external spmpar, enorm data one,p1,p5,p25,p75,p0001,zero * /1.0d0,1.0d-1,5.0d-1,2.5d-1,7.5d-1,1.0d-4,0.0d0/ c c epsmch is the machine precision. c epsmch = spmpar(1) c info = 0 iflag = 0 nfev = 0 c c check the input parameters for errors. c if (n .le. 0 .or. m .lt. n .or. ldfjac .lt. m * .or. ftol .lt. zero .or. xtol .lt. zero .or. gtol .lt. zero * .or. maxfev .le. 0 .or. factor .le. zero) go to 300 if (mode .ne. 2) go to 20 do 10 j = 1, n if (diag(j) .le. zero) go to 300 10 continue 20 continue c c evaluate the function at the starting point c and calculate its norm. c iflag = 1 call fcn(m,n,x,fvec,iflag) nfev = 1 if (iflag .lt. 0) go to 300 fnorm = enorm(m,fvec) c c initialize levenberg-marquardt parameter and iteration counter. c par = zero iter = 1 c c beginning of the outer loop. c c#mn{ c get maximum number of iterations from &max_iterations xmaxiter = getsca('&max_iteration',0) if (xmaxiter.lt.1.d0) xmaxiter = 250.d0 c#mn} 30 continue c c#mn{ c print message to let user know that routine is running xiter = iter call setsca('&fit_iteration', xiter) if (mod(iter,int(xmaxiter/10)).eq.0) $ call warn(1,' fitting ...') c#mn} c c calculate the jacobian matrix. c iflag = 2 call fdjac2(fcn,m,n,x,fvec,fjac,ldfjac,iflag,epsfcn,wa4) nfev = nfev + n if (iflag .lt. 0) go to 300 c c if requested, call fcn to enable printing of iterates. c if (nprint .le. 0) go to 40 iflag = 0 if (mod(iter-1,nprint) .eq. 0) call fcn(m,n,x,fvec,iflag) if (iflag .lt. 0) go to 300 40 continue c c compute the qr factorization of the jacobian. c call qrfac(m,n,fjac,ldfjac,.true.,ipvt,n,wa1,wa2,wa3) c c on the first iteration and if mode is 1, scale according c to the norms of the columns of the initial jacobian. c if (iter .ne. 1) go to 80 if (mode .eq. 2) go to 60 do 50 j = 1, n diag(j) = wa2(j) if (wa2(j) .eq. zero) diag(j) = one 50 continue 60 continue c c on the first iteration, calculate the norm of the scaled x c and initialize the step bound delta. c do 70 j = 1, n wa3(j) = diag(j)*x(j) 70 continue xnorm = enorm(n,wa3) delta = factor*xnorm if (delta .eq. zero) delta = factor 80 continue c c form (q transpose)*fvec and store the first n components in c qtf. c do 90 i = 1, m wa4(i) = fvec(i) 90 continue do 130 j = 1, n if (fjac(j,j) .eq. zero) go to 120 sum = zero do 100 i = j, m sum = sum + fjac(i,j)*wa4(i) 100 continue temp = -sum/fjac(j,j) do 110 i = j, m wa4(i) = wa4(i) + fjac(i,j)*temp 110 continue 120 continue fjac(j,j) = wa1(j) qtf(j) = wa4(j) 130 continue c c compute the norm of the scaled gradient. c gnorm = zero if (fnorm .eq. zero) go to 170 do 160 j = 1, n l = ipvt(j) if (wa2(l) .eq. zero) go to 150 sum = zero do 140 i = 1, j sum = sum + fjac(i,j)*(qtf(i)/fnorm) 140 continue gnorm = max(gnorm,abs(sum/wa2(l))) 150 continue 160 continue 170 continue c c test for convergence of the gradient norm. c if (gnorm .le. gtol) info = 4 if (info .ne. 0) go to 300 c c rescale if necessary. c if (mode .eq. 2) go to 190 do 180 j = 1, n diag(j) = max(diag(j),wa2(j)) 180 continue 190 continue c c beginning of the inner loop. c 200 continue c c determine the levenberg-marquardt parameter. c call lmpar(n,fjac,ldfjac,ipvt,diag,qtf,delta,par,wa1,wa2, * wa3,wa4) c c store the direction p and x + p. calculate the norm of p. c do 210 j = 1, n wa1(j) = -wa1(j) wa2(j) = x(j) + wa1(j) wa3(j) = diag(j)*wa1(j) 210 continue pnorm = enorm(n,wa3) c c on the first iteration, adjust the initial step bound. c if (iter .eq. 1) delta = min(delta,pnorm) c c evaluate the function at x + p and calculate its norm. c iflag = 1 call fcn(m,n,wa2,wa4,iflag) nfev = nfev + 1 if (iflag .lt. 0) go to 300 fnorm1 = enorm(m,wa4) c c compute the scaled actual reduction. c actred = -one if (p1*fnorm1 .lt. fnorm) actred = one - (fnorm1/fnorm)**2 c c compute the scaled predicted reduction and c the scaled directional derivative. c do 230 j = 1, n wa3(j) = zero l = ipvt(j) temp = wa1(l) do 220 i = 1, j wa3(i) = wa3(i) + fjac(i,j)*temp 220 continue 230 continue temp1 = enorm(n,wa3)/fnorm temp2 = (sqrt(par)*pnorm)/fnorm prered = temp1**2 + temp2**2/p5 dirder = -(temp1**2 + temp2**2) c c compute the ratio of the actual to the predicted c reduction. c ratio = zero if (prered .ne. zero) ratio = actred/prered c c update the step bound. c if (ratio .gt. p25) go to 240 if (actred .ge. zero) temp = p5 if (actred .lt. zero) * temp = p5*dirder/(dirder + p5*actred) if (p1*fnorm1 .ge. fnorm .or. temp .lt. p1) temp = p1 delta = temp*min(delta,pnorm/p1) par = par/temp go to 260 240 continue if (par .ne. zero .and. ratio .lt. p75) go to 250 delta = pnorm/p5 par = p5*par 250 continue 260 continue c c test for successful iteration. c if (ratio .lt. p0001) go to 290 c c successful iteration. update x, fvec, and their norms. c do 270 j = 1, n x(j) = wa2(j) wa2(j) = diag(j)*x(j) 270 continue do 280 i = 1, m fvec(i) = wa4(i) 280 continue xnorm = enorm(n,wa2) fnorm = fnorm1 iter = iter + 1 290 continue c c tests for convergence. c if (abs(actred) .le. ftol .and. prered .le. ftol * .and. p5*ratio .le. one) info = 1 if (delta .le. xtol*xnorm) info = 2 if (abs(actred) .le. ftol .and. prered .le. ftol * .and. p5*ratio .le. one .and. info .eq. 2) info = 3 if (info .ne. 0) go to 300 c c tests for termination and stringent tolerances. c if (nfev .ge. maxfev) info = 5 c#{mn if (xiter .ge. xmaxiter) info = 5 c#mn} if (abs(actred) .le. epsmch .and. prered .le. epsmch * .and. p5*ratio .le. one) info = 6 if (delta .le. epsmch*xnorm) info = 7 if (gnorm .le. epsmch) info = 8 if (info .ne. 0) go to 300 c c end of the inner loop. repeat if iteration unsuccessful. c if (ratio .lt. p0001) go to 200 c c end of the outer loop. c go to 30 300 continue c c termination, either normal or user imposed. c if (iflag .lt. 0) info = iflag iflag = 0 if (nprint .gt. 0) call fcn(m,n,x,fvec,iflag) return c c last card of subroutine lmdif. c end subroutine lmpar(n,r,ldr,ipvt,diag,qtb,delta,par,x,sdiag,wa1, * wa2) integer n,ldr integer ipvt(n) double precision delta,par,wa1(n),wa2(n) double precision r(ldr,n),diag(n),qtb(n),x(n),sdiag(n) c ********** c c subroutine lmpar c c given an m by n matrix a, an n by n nonsingular diagonal c matrix d, an m-vector b, and a positive number delta, c the problem is to determine a value for the parameter c par such that if x solves the system c c a*x = b , sqrt(par)*d*x = 0 , c c in the least squares sense, and dxnorm is the euclidean c norm of d*x, then either par is zero and c c (dxnorm-delta) .le. 0.1*delta , c c or par is positive and c c abs(dxnorm-delta) .le. 0.1*delta . c c this subroutine completes the solution of the problem c if it is provided with the necessary information from the c qr factorization, with column pivoting, of a. that is, if c a*p = q*r, where p is a permutation matrix, q has orthogonal c columns, and r is an upper triangular matrix with diagonal c elements of nonincreasing magnitude, then lmpar expects c the full upper triangle of r, the permutation matrix p, c and the first n components of (q transpose)*b. on output c lmpar also provides an upper triangular matrix s such that c c t t t c p *(a *a + par*d*d)*p = s *s . c c s is employed within lmpar and may be of separate interest. c c only a few iterations are generally needed for convergence c of the algorithm. if, however, the limit of 10 iterations c is reached, then the output par will contain the best c value obtained so far. c c the subroutine statement is c c subroutine lmpar(n,r,ldr,ipvt,diag,qtb,delta,par,x,sdiag, c wa1,wa2) c c where c c n is a positive integer input variable set to the order of r. c c r is an n by n array. on input the full upper triangle c must contain the full upper triangle of the matrix r. c on output the full upper triangle is unaltered, and the c strict lower triangle contains the strict upper triangle c (transposed) of the upper triangular matrix s. c c ldr is a positive integer input variable not less than n c which specifies the leading dimension of the array r. c c ipvt is an integer input array of length n which defines the c permutation matrix p such that a*p = q*r. column j of p c is column ipvt(j) of the identity matrix. c c diag is an input array of length n which must contain the c diagonal elements of the matrix d. c c qtb is an input array of length n which must contain the first c n elements of the vector (q transpose)*b. c c delta is a positive input variable which specifies an upper c bound on the euclidean norm of d*x. c c par is a nonnegative variable. on input par contains an c initial estimate of the levenberg-marquardt parameter. c on output par contains the final estimate. c c x is an output array of length n which contains the least c squares solution of the system a*x = b, sqrt(par)*d*x = 0, c for the output par. c c sdiag is an output array of length n which contains the c diagonal elements of the upper triangular matrix s. c c wa1 and wa2 are work arrays of length n. c c subprograms called c c minpack-supplied ... spmpar,enorm,qrsolv c c fortran-supplied ... abs,max,min,sqrt c c argonne national laboratory. minpack project. march 1980. c burton s. garbow, kenneth e. hillstrom, jorge j. more c c ********** integer i,iter,j,jm1,jp1,k,l,nsing double precision dxnorm,dwarf,fp,gnorm,parc,parl,paru,p1,p001 double precision spmpar,enorm,sum,temp,zero data p1,p001,zero /1.0d-1,1.0d-3,0.0d0/ c c dwarf is the smallest positive magnitude. c dwarf = spmpar(2) c c compute and store in x the gauss-newton direction. if the c jacobian is rank-deficient, obtain a least squares solution. c nsing = n do 10 j = 1, n wa1(j) = qtb(j) if (r(j,j) .eq. zero .and. nsing .eq. n) nsing = j - 1 if (nsing .lt. n) wa1(j) = zero 10 continue if (nsing .lt. 1) go to 50 do 40 k = 1, nsing j = nsing - k + 1 wa1(j) = wa1(j)/r(j,j) temp = wa1(j) jm1 = j - 1 if (jm1 .lt. 1) go to 30 do 20 i = 1, jm1 wa1(i) = wa1(i) - r(i,j)*temp 20 continue 30 continue 40 continue 50 continue do 60 j = 1, n l = ipvt(j) x(l) = wa1(j) 60 continue c c initialize the iteration counter. c evaluate the function at the origin, and test c for acceptance of the gauss-newton direction. c iter = 0 do 70 j = 1, n wa2(j) = diag(j)*x(j) 70 continue dxnorm = enorm(n,wa2) fp = dxnorm - delta if (fp .le. p1*delta) go to 220 c c if the jacobian is not rank deficient, the newton c step provides a lower bound, parl, for the zero of c the function. otherwise set this bound to zero. c parl = zero if (nsing .lt. n) go to 120 do 80 j = 1, n l = ipvt(j) wa1(j) = diag(l)*(wa2(l)/dxnorm) 80 continue do 110 j = 1, n sum = zero jm1 = j - 1 if (jm1 .lt. 1) go to 100 do 90 i = 1, jm1 sum = sum + r(i,j)*wa1(i) 90 continue 100 continue wa1(j) = (wa1(j) - sum)/r(j,j) 110 continue temp = enorm(n,wa1) parl = ((fp/delta)/temp)/temp 120 continue c c calculate an upper bound, paru, for the zero of the function. c do 140 j = 1, n sum = zero do 130 i = 1, j sum = sum + r(i,j)*qtb(i) 130 continue l = ipvt(j) wa1(j) = sum/diag(l) 140 continue gnorm = enorm(n,wa1) paru = gnorm/delta if (paru .eq. zero) paru = dwarf/min(delta,p1) c c if the input par lies outside of the interval (parl,paru), c set par to the closer endpoint. c par = max(par,parl) par = min(par,paru) if (par .eq. zero) par = gnorm/dxnorm c c beginning of an iteration. c 150 continue iter = iter + 1 c c evaluate the function at the current value of par. c if (par .eq. zero) par = max(dwarf,p001*paru) temp = sqrt(par) do 160 j = 1, n wa1(j) = temp*diag(j) 160 continue call qrsolv(n,r,ldr,ipvt,wa1,qtb,x,sdiag,wa2) do 170 j = 1, n wa2(j) = diag(j)*x(j) 170 continue dxnorm = enorm(n,wa2) temp = fp fp = dxnorm - delta c c if the function is small enough, accept the current value c of par. also test for the exceptional cases where parl c is zero or the number of iterations has reached 10. c if (abs(fp) .le. p1*delta * .or. parl .eq. zero .and. fp .le. temp * .and. temp .lt. zero .or. iter .eq. 10) go to 220 c c compute the newton correction. c do 180 j = 1, n l = ipvt(j) wa1(j) = diag(l)*(wa2(l)/dxnorm) 180 continue do 210 j = 1, n wa1(j) = wa1(j)/sdiag(j) temp = wa1(j) jp1 = j + 1 if (n .lt. jp1) go to 200 do 190 i = jp1, n wa1(i) = wa1(i) - r(i,j)*temp 190 continue 200 continue 210 continue temp = enorm(n,wa1) parc = ((fp/delta)/temp)/temp c c depending on the sign of the function, update parl or paru. c if (fp .gt. zero) parl = max(parl,par) if (fp .lt. zero) paru = min(paru,par) c c compute an improved estimate for par. c par = max(parl,par+parc) c c end of an iteration. c go to 150 220 continue c c termination. c if (iter .eq. 0) par = zero return c c last card of subroutine lmpar. c end subroutine qrfac(m,n,a,lda,pivot,ipvt,lipvt,rdiag,acnorm,wa) integer m,n,lda,lipvt integer ipvt(lipvt) logical pivot double precision a(lda,n),rdiag(n),acnorm(n),wa(n) c ********** c c subroutine qrfac c c this subroutine uses householder transformations with column c pivoting (optional) to compute a qr factorization of the c m by n matrix a. that is, qrfac determines an orthogonal c matrix q, a permutation matrix p, and an upper trapezoidal c matrix r with diagonal elements of nonincreasing magnitude, c such that a*p = q*r. the householder transformation for c column k, k = 1,2,...,min(m,n), is of the form c c t c i - (1/u(k))*u*u c c where u has zeros in the first k-1 positions. the form of c this transformation and the method of pivoting first c appeared in the corresponding linpack subroutine. c c the subroutine statement is c c subroutine qrfac(m,n,a,lda,pivot,ipvt,lipvt,rdiag,acnorm,wa) c c where c c m is a positive integer input variable set to the number c of rows of a. c c n is a positive integer input variable set to the number c of columns of a. c c a is an m by n array. on input a contains the matrix for c which the qr factorization is to be computed. on output c the strict upper trapezoidal part of a contains the strict c upper trapezoidal part of r, and the lower trapezoidal c part of a contains a factored form of q (the non-trivial c elements of the u vectors described above). c c lda is a positive integer input variable not less than m c which specifies the leading dimension of the array a. c c pivot is a logical input variable. if pivot is set true, c then column pivoting is enforced. if pivot is set false, c then no column pivoting is done. c c ipvt is an integer output array of length lipvt. ipvt c defines the permutation matrix p such that a*p = q*r. c column j of p is column ipvt(j) of the identity matrix. c if pivot is false, ipvt is not referenced. c c lipvt is a positive integer input variable. if pivot is false, c then lipvt may be as small as 1. if pivot is true, then c lipvt must be at least n. c c rdiag is an output array of length n which contains the c diagonal elements of r. c c acnorm is an output array of length n which contains the c norms of the corresponding columns of the input matrix a. c if this information is not needed, then acnorm can coincide c with rdiag. c c wa is a work array of length n. if pivot is false, then wa c can coincide with rdiag. c c subprograms called c c minpack-supplied ... spmpar,enorm c c fortran-supplied ... max,sqrt,min0 c c argonne national laboratory. minpack project. march 1980. c burton s. garbow, kenneth e. hillstrom, jorge j. more c c ********** integer i,j,jp1,k,kmax,minmn double precision ajnorm,epsmch,one,p05,sum,temp,zero double precision spmpar,enorm data one,p05,zero /1.0d0,5.0d-2,0.0d0/ c c epsmch is the machine precision. c epsmch = spmpar(1) c c compute the initial column norms and initialize several arrays. c do 10 j = 1, n acnorm(j) = enorm(m,a(1,j)) rdiag(j) = acnorm(j) wa(j) = rdiag(j) if (pivot) ipvt(j) = j 10 continue c c reduce a to r with householder transformations. c minmn = min0(m,n) do 110 j = 1, minmn if (.not.pivot) go to 40 c c bring the column of largest norm into the pivot position. c kmax = j do 20 k = j, n if (rdiag(k) .gt. rdiag(kmax)) kmax = k 20 continue if (kmax .eq. j) go to 40 do 30 i = 1, m temp = a(i,j) a(i,j) = a(i,kmax) a(i,kmax) = temp 30 continue rdiag(kmax) = rdiag(j) wa(kmax) = wa(j) k = ipvt(j) ipvt(j) = ipvt(kmax) ipvt(kmax) = k 40 continue c c compute the householder transformation to reduce the c j-th column of a to a multiple of the j-th unit vector. c ajnorm = enorm(m-j+1,a(j,j)) if (ajnorm .eq. zero) go to 100 if (a(j,j) .lt. zero) ajnorm = -ajnorm do 50 i = j, m a(i,j) = a(i,j)/ajnorm 50 continue a(j,j) = a(j,j) + one c c apply the transformation to the remaining columns c and update the norms. c jp1 = j + 1 if (n .lt. jp1) go to 100 do 90 k = jp1, n sum = zero do 60 i = j, m sum = sum + a(i,j)*a(i,k) 60 continue temp = sum/a(j,j) do 70 i = j, m a(i,k) = a(i,k) - temp*a(i,j) 70 continue if (.not.pivot .or. rdiag(k) .eq. zero) go to 80 temp = a(j,k)/rdiag(k) rdiag(k) = rdiag(k)*sqrt(max(zero,one-temp**2)) if (p05*(rdiag(k)/wa(k))**2 .gt. epsmch) go to 80 rdiag(k) = enorm(m-j,a(jp1,k)) wa(k) = rdiag(k) 80 continue 90 continue 100 continue rdiag(j) = -ajnorm 110 continue return c c last card of subroutine qrfac. c end subroutine qrsolv(n,r,ldr,ipvt,diag,qtb,x,sdiag,wa) integer n,ldr integer ipvt(n) double precision r(ldr,n),diag(n),qtb(n),x(n),sdiag(n),wa(n) c ********** c c subroutine qrsolv c c given an m by n matrix a, an n by n diagonal matrix d, c and an m-vector b, the problem is to determine an x which c solves the system c c a*x = b , d*x = 0 , c c in the least squares sense. c c this subroutine completes the solution of the problem c if it is provided with the necessary information from the c qr factorization, with column pivoting, of a. that is, if c a*p = q*r, where p is a permutation matrix, q has orthogonal c columns, and r is an upper triangular matrix with diagonal c elements of nonincreasing magnitude, then qrsolv expects c the full upper triangle of r, the permutation matrix p, c and the first n components of (q transpose)*b. the system c a*x = b, d*x = 0, is then equivalent to c c t t c r*z = q *b , p *d*p*z = 0 , c c where x = p*z. if this system does not have full rank, c then a least squares solution is obtained. on output qrsolv c also provides an upper triangular matrix s such that c c t t t c p *(a *a + d*d)*p = s *s . c c s is computed within qrsolv and may be of separate interest. c c the subroutine statement is c c subroutine qrsolv(n,r,ldr,ipvt,diag,qtb,x,sdiag,wa) c c where c c n is a positive integer input variable set to the order of r. c c r is an n by n array. on input the full upper triangle c must contain the full upper triangle of the matrix r. c on output the full upper triangle is unaltered, and the c strict lower triangle contains the strict upper triangle c (transposed) of the upper triangular matrix s. c c ldr is a positive integer input variable not less than n c which specifies the leading dimension of the array r. c c ipvt is an integer input array of length n which defines the c permutation matrix p such that a*p = q*r. column j of p c is column ipvt(j) of the identity matrix. c c diag is an input array of length n which must contain the c diagonal elements of the matrix d. c c qtb is an input array of length n which must contain the first c n elements of the vector (q transpose)*b. c c x is an output array of length n which contains the least c squares solution of the system a*x = b, d*x = 0. c c sdiag is an output array of length n which contains the c diagonal elements of the upper triangular matrix s. c c wa is a work array of length n. c c subprograms called c c fortran-supplied ... abs,sqrt c c argonne national laboratory. minpack project. march 1980. c burton s. garbow, kenneth e. hillstrom, jorge j. more c c ********** integer i,j,jp1,k,kp1,l,nsing double precision cos,cotan,p5,p25,qtbpj,sin,sum,tan,temp,zero data p5,p25,zero /5.0d-1,2.5d-1,0.0d0/ c c copy r and (q transpose)*b to preserve input and initialize s. c in particular, save the diagonal elements of r in x. c do 20 j = 1, n do 10 i = j, n r(i,j) = r(j,i) 10 continue x(j) = r(j,j) wa(j) = qtb(j) 20 continue c c eliminate the diagonal matrix d using a givens rotation. c do 100 j = 1, n c c prepare the row of d to be eliminated, locating the c diagonal element using p from the qr factorization. c l = ipvt(j) if (diag(l) .eq. zero) go to 90 do 30 k = j, n sdiag(k) = zero 30 continue sdiag(j) = diag(l) c c the transformations to eliminate the row of d c modify only a single element of (q transpose)*b c beyond the first n, which is initially zero. c qtbpj = zero do 80 k = j, n c c determine a givens rotation which eliminates the c appropriate element in the current row of d. c if (sdiag(k) .eq. zero) go to 70 if (abs(r(k,k)) .ge. abs(sdiag(k))) go to 40 cotan = r(k,k)/sdiag(k) sin = p5/sqrt(p25+p25*cotan**2) cos = sin*cotan go to 50 40 continue tan = sdiag(k)/r(k,k) cos = p5/sqrt(p25+p25*tan**2) sin = cos*tan 50 continue c c compute the modified diagonal element of r and c the modified element of ((q transpose)*b,0). c r(k,k) = cos*r(k,k) + sin*sdiag(k) temp = cos*wa(k) + sin*qtbpj qtbpj = -sin*wa(k) + cos*qtbpj wa(k) = temp c c accumulate the tranformation in the row of s. c kp1 = k + 1 if (n .lt. kp1) go to 70 do 60 i = kp1, n temp = cos*r(i,k) + sin*sdiag(i) sdiag(i) = -sin*r(i,k) + cos*sdiag(i) r(i,k) = temp 60 continue 70 continue 80 continue 90 continue c c store the diagonal element of s and restore c the corresponding diagonal element of r. c sdiag(j) = r(j,j) r(j,j) = x(j) 100 continue c c solve the triangular system for z. if the system is c singular, then obtain a least squares solution. c nsing = n do 110 j = 1, n if (sdiag(j) .eq. zero .and. nsing .eq. n) nsing = j - 1 if (nsing .lt. n) wa(j) = zero 110 continue if (nsing .lt. 1) go to 150 do 140 k = 1, nsing j = nsing - k + 1 sum = zero jp1 = j + 1 if (nsing .lt. jp1) go to 130 do 120 i = jp1, nsing sum = sum + r(i,j)*wa(i) 120 continue 130 continue wa(j) = (wa(j) - sum)/sdiag(j) 140 continue 150 continue c c permute the components of z back to components of x. c do 160 j = 1, n l = ipvt(j) x(l) = wa(j) 160 continue return c c last card of subroutine qrsolv. c end subroutine fdjac2(fcn,m,n,x,fvec,fjac,ldfjac,iflag,epsfcn,wa) integer m,n,ldfjac,iflag double precision epsfcn double precision x(n),fvec(m),fjac(ldfjac,n),wa(m) external fcn c ********** c c subroutine fdjac2 c c this subroutine computes a forward-difference approximation c to the m by n jacobian matrix associated with a specified c problem of m functions in n variables. c c the subroutine statement is c c subroutine fdjac2(fcn,m,n,x,fvec,fjac,ldfjac,iflag,epsfcn,wa) c c where c c fcn is the name of the user-supplied subroutine which c calculates the functions. fcn must be declared c in an external statement in the user calling c program, and should be written as follows. c c subroutine fcn(m,n,x,fvec,iflag) c integer m,n,iflag c double precision x(n),fvec(m) c ---------- c calculate the functions at x and c return this vector in fvec. c ---------- c return c end c c the value of iflag should not be changed by fcn unless c the user wants to terminate execution of fdjac2. c in this case set iflag to a negative integer. c c m is a positive integer input variable set to the number c of functions. c c n is a positive integer input variable set to the number c of variables. n must not exceed m. c c x is an input array of length n. c c fvec is an input array of length m which must contain the c functions evaluated at x. c c fjac is an output m by n array which contains the c approximation to the jacobian matrix evaluated at x. c c ldfjac is a positive integer input variable not less than m c which specifies the leading dimension of the array fjac. c c iflag is an integer variable which can be used to terminate c the execution of fdjac2. see description of fcn. c c epsfcn is an input variable used in determining a suitable c step length for the forward-difference approximation. this c approximation assumes that the relative errors in the c functions are of the order of epsfcn. if epsfcn is less c than the machine precision, it is assumed that the relative c errors in the functions are of the order of the machine c precision. c c wa is a work array of length m. c c subprograms called c c user-supplied ...... fcn c c minpack-supplied ... spmpar c c fortran-supplied ... abs,max,sqrt c c argonne national laboratory. minpack project. march 1980. c burton s. garbow, kenneth e. hillstrom, jorge j. more c c ********** integer i,j double precision eps,epsmch,h,temp,zero double precision spmpar data zero /0.0d0/ c c epsmch is the machine precision. c epsmch = spmpar(1) c eps = sqrt(max(epsfcn,epsmch)) do 20 j = 1, n temp = x(j) h = eps*abs(temp) if (h .eq. zero) h = eps x(j) = temp + h call fcn(m,n,x,wa,iflag) if (iflag .lt. 0) go to 30 x(j) = temp do 10 i = 1, m fjac(i,j) = (wa(i) - fvec(i))/h 10 continue 20 continue 30 continue return c c last card of subroutine fdjac2. c end double precision function enorm(n,x) integer n double precision x(n) c ********** c c function enorm c c given an n-vector x, this function calculates the c euclidean norm of x. c c the euclidean norm is computed by accumulating the sum of c squares in three different sums. the sums of squares for the c small and large components are scaled so that no overflows c occur. non-destructive underflows are permitted. underflows c and overflows do not occur in the computation of the unscaled c sum of squares for the intermediate components. c the definitions of small, intermediate and large components c depend on two constants, rdwarf and rgiant. the main c restrictions on these constants are that rdwarf**2 not c underflow and rgiant**2 not overflow. the constants c given here are suitable for every known computer. c c the function statement is c c double precision function enorm(n,x) c c where c c n is a positive integer input variable. c c x is an input array of length n. c c subprograms called c c fortran-supplied ... abs,sqrt c c argonne national laboratory. minpack project. march 1980. c burton s. garbow, kenneth e. hillstrom, jorge j. more c c ********** integer i double precision agiant,floatn,one,rdwarf,rgiant,s1,s2,s3,xabs double precision x1max,x3max, zero data one,zero,rdwarf,rgiant /1.0d0,0.0d0,3.834d-20,1.304d19/ s1 = zero s2 = zero s3 = zero x1max = zero x3max = zero floatn = n agiant = rgiant/floatn do 90 i = 1, n xabs = abs(x(i)) if (xabs .gt. rdwarf .and. xabs .lt. agiant) go to 70 if (xabs .le. rdwarf) go to 30 c c sum for large components. c if (xabs .le. x1max) go to 10 s1 = one + s1*(x1max/xabs)**2 x1max = xabs go to 20 10 continue s1 = s1 + (xabs/x1max)**2 20 continue go to 60 30 continue c c sum for small components. c if (xabs .le. x3max) go to 40 s3 = one + s3*(x3max/xabs)**2 x3max = xabs go to 50 40 continue if (xabs .ne. zero) s3 = s3 + (xabs/x3max)**2 50 continue 60 continue go to 80 70 continue c c sum for intermediate components. c s2 = s2 + xabs**2 80 continue 90 continue c c calculation of norm. c if (s1 .eq. zero) go to 100 enorm = x1max*sqrt(s1+(s2/x1max)/x1max) go to 130 100 continue if (s2 .eq. zero) go to 110 if (s2 .ge. x3max) * enorm = sqrt(s2*(one+(x3max/s2)*(x3max*s3))) if (s2 .lt. x3max) * enorm = sqrt(x3max*((s2/x3max)+(x3max*s3))) go to 120 110 continue enorm = x3max*sqrt(s3) 120 continue 130 continue return c c last card of function enorm. c end double precision function spmpar(i) integer i double precision rmach(3) c ********** c c function spmpar c c*************************************************************** cc rewritten to eliminate machine dependence of precision cc matt newville oct 1992 c*************************************************************** c c this function provides single precision machine parameters c when the appropriate set of data statements is activated (by c removing the c from column 1) and all other data statements are c rendered inactive. most of the parameter values were obtained c from the corresponding bell laboratories port library function. c c the function statement is c c double precision function spmpar(i) c c where c c i is an integer input variable set to 1, 2, or 3 which c selects the desired machine parameter. if the machine has c t base b digits and its smallest and largest exponents are c emin and emax, respectively, then these parameters are c c spmpar(1) = b**(1 - t), the machine precision, c c spmpar(2) = b**(emin - 1), the smallest magnitude, c c spmpar(3) = b**emax*(1 - b**(-t)), the largest magnitude. c c argonne national laboratory. minpack project. march 1980. c burton s. garbow, kenneth e. hillstrom, jorge j. more c c ********** data rmach(1), rmach(2), rmach(3) /1.d-07,1.d-20,1.d+20/ spmpar = rmach(i) return c c last card of function spmpar. c c end function spmpar end ifeffit-1.2.11d/src/lib/iff_sync.f0000644000175000017500000004034711041141626015660 0ustar segresegre subroutine iff_sync c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c fix integer code arrays icdsca and icdarr from encod so that: c 1. all variables come first c 2. all true constants come next (well, most ...) c 3. all other math expressions are ordered so that each c depends on only its predecessors. this allows c single-pass, ordered decoding. c c arguments c notes: c 2. elements 1 -> nvar of icdsca are variables c elements nvar+1 -> nconst +nvar of icdsca are constants c 3. the parameters mxval and mcode should be >= maxval, micode. c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'encod.h' include 'pthpar.h' include 'feffit.h' save integer iv, i, iv1, it1, icd, itmp, ix, k, j integer nplast, nlast, npnext_max, npnext_swap integer nxtmp, npmax parameter (npnext_max = maxheap_array - 3*maxsize_array) cc parameter (npnext_swap= maxheap_array -20*maxsize_array) logical lswitch c count number of scalars and arrays in use c cc print*, 'top of sync' c nxscal = 0 nxarr = 0 c minimum npnext at which arrays will be reshuffled in order to c eliminate erased arrays npnext_swap = maxheap_array * 6.5/8.0 do 110 i = 1, maxsca if (scanam(i).ne.blank) nxscal = i 110 continue do 150 iv = 1, nxscal if (scanam(iv).eq.blank) then itmp = iv + 1 call sswap(scanam(itmp), scanam(iv)) call sswap(scafrm(itmp), scafrm(iv)) call xswap(scalar(itmp), scalar(iv)) call iaswap(icdsca(1,itmp), icdsca(1,iv), micode) c now swap all references to these in the other icodes iv1 = jscale + iv it1 = jscale + itmp call icswap(iv1, it1) end if 150 continue c c count scalars again do 160 i = 1, maxsca if (scanam(i).ne.blank) nxscal = i 160 continue c call setsca('&n_scalars', nxscal*1.d0) if (npnext.gt.npnext_max) then call echo(' *** warning: running low on space for arrays') call warn(1, ' *** please clean up arrays ') endif do 830 i = 1, maxarr-1 if ((narray(i).le.1).and.(arrnam(i).ne.undef_array)) $ arrnam(i) = blank if (arrnam(i).ne.blank) nxarr = i 830 continue cc get rid of empty arrays nxtmp = 0 if (npnext .ge. npnext_swap) then do 250 iv = 1, nxarr if ((arrnam(iv).eq.blank).and.(narray(iv).le.0)) then do 240 itmp = iv+1, nxarr if (arrnam(itmp).ne.blank) then cc print*, ' swapping blank array at ' ,iv , cc $ ' with array at ', itmp, icdarr(1,iv) nxtmp = nxtmp + 1 call sswap(arrnam(itmp), arrnam(iv)) call sswap(arrfrm(itmp), arrfrm(iv)) call xswap(arrmax(itmp), arrmax(iv)) call xswap(arrmin(itmp), arrmin(iv)) call iswap(narray(itmp), narray(iv)) call iswap(nparr(itmp), nparr(iv)) call iaswap(icdarr(1,itmp), icdarr(1,iv), micode) call icswap(itmp, iv) goto 242 endif 240 continue 242 continue end if 250 continue cc print*, ' swapped arrays ', npnext, npnext_swap, nxarr, nxtmp endif c c count arrays again nxarr = 0 nplast = 1 do 860 i = 1, maxarr-1 if (arrnam(i).ne.blank) then nxarr = i nplast= max(nplast,nparr(i)) if (nplast.eq.nparr(i)) nlast = i endif 860 continue c do i = 1, 25 c print*, i, array(i) c enddo call setsca('&n_arrays', nxarr*1.d0) call setsca('&heap_used', npnext*1.d0/maxheap_array) c------ c Step #0 put fitting variables first: simple swap in place if (iprint.ge.17) then call echo(' lining up variables') endif itmp = 0 do 1100 iv = 1, nxscal c is_a_variable = (icdsca(1,iv).eq.-1) if (icdsca(1,iv).eq.-1) then itmp = itmp + 1 c if itmp .ne. iv, swap these two places (names, value, icodes) if (itmp.ne.iv) then call sswap(scanam(itmp), scanam(iv)) call sswap(scafrm(itmp), scafrm(iv)) call xswap(scalar(itmp), scalar(iv)) call iaswap(icdsca(1,itmp), icdsca(1,iv), micode) c now swap all references to these in the other icodes iv1 = jscale + iv it1 = jscale + itmp call icswap(iv1, it1) end if end if 1100 continue nvarys =itmp call setsca('&n_guess', nvarys*1.d0) c Step #1: put constant scalars second c (an expression is constant unless its icode contains c a number between 1 and jconst: 'sqrt(5/2)' is a constant ) c note 1: a 'set' scalar has the self-referential definition c icdsca(1,iv) = iv+jscale c and should be treated as a constant c note 2: deep magic occurs when a "constant" is overwritten c by an ifeffit function. A notable example is when c ff2chi and feffit overwrite 'reff' and 'degen' c itmp = nvarys do 1300 iv = nvarys + 1, nxscal lswitch = icdsca(1,iv).ne.0 if (icdsca(1,iv).ne.(iv+jscale)) then do 1230 i = 1, micode if (((icdsca(i,iv) .ge. 1) .and. $ (icdsca(i,iv) .lt. jconst))) lswitch =.false. if (icdsca(i,iv).eq.0) go to 1235 1230 continue 1235 continue end if if (lswitch) then itmp = itmp + 1 c if itmp .ne. iv, swap these two places (names, value, icodes) if (itmp.ne.iv) then cc print*, 'A swapping scalars ' ,scanam(itmp)(1:30), cc $ scanam(iv)(1:30) call sswap(scanam(itmp), scanam(iv)) call sswap(scafrm(itmp), scafrm(iv)) call xswap(scalar(itmp), scalar(iv)) call iaswap(icdsca(1,itmp), icdsca(1,iv), micode) c now swap all references to these in the other icodes iv1 = jscale + iv it1 = jscale + itmp call icswap(iv1, it1) end if end if 1300 continue nconst = itmp - nvarys call setsca('&n_scalars_set', nconst*1.d0) call setsca('&n_scalars_def', (nxscal-nvarys-nconst)*1.d0) c Step #3 put the math expressions in order c a simple switch-in-place, with recovery do 1600 ix = nconst + nvarys + 1, nxscal do 1580 iv = nconst + nvarys +1, nxscal lswitch = .false. do 1510 i = 1, micode icd = icdsca(i,iv) if ( icd.eq.0 ) go to 1520 if ( (icd.gt.iv+jscale).and. $ (icd.lt.jconst)) lswitch = .true. 1510 continue 1520 continue c if itmp .gt. iv, swap these two places (names, value, icodes) if (lswitch) then itmp = itmp + 1 if ((itmp.gt.iv).and.(itmp.le.nxscal)) then cc print*, 'XX swapping scalars ' ,scanam(itmp)(1:30), cc $ scanam(iv)(1:30) call sswap(scanam(itmp), scanam(iv)) call sswap(scafrm(itmp), scafrm(iv)) call xswap(scalar(itmp), scalar(iv)) call iaswap(icdsca(1,itmp), icdsca(1,iv), micode) c now swap all references to these in the other icodes iv1 = jscale + iv it1 = jscale + itmp call icswap(iv1, it1) end if end if 1580 continue 1600 continue c c Step #4: move constant arrays to top of pile c constant arrays have icdarr(1,in) = in, icdarr(2,in) = 0 itmp = 0 ccc if (npnext .ge. npnext_swap) then if (npnext .ge. 1) then do 2500 iv = 1, nxarr lswitch = (icdarr(1,iv).eq.iv) .and. (icdarr(2,iv).eq.0) c c print*, 'SYNC:array iv ',iv,arrnam(iv)(1:30) c c print*, 'SYNC: ', nparr(iv), narray(iv), c c $ icdarr(1,iv),icdarr(2,iv) if (lswitch) then itmp = itmp + 1 c if itmp .ne. iv, swap these two places (names, value, icodes) if (itmp.ne.iv) then cc print*, ' swapping constant array at ' ,iv , cc $ ' with array at ', itmp, icdarr(1,iv) call sswap(arrnam(itmp), arrnam(iv)) call sswap(arrfrm(itmp), arrfrm(iv)) call xswap(arrmax(itmp), arrmax(iv)) call xswap(arrmin(itmp), arrmin(iv)) call iswap(narray(itmp), narray(iv)) call iswap(nparr(itmp), nparr(iv)) call iaswap(icdarr(1,itmp), icdarr(1,iv), micode) c now swap all references to these in the other icodes call icswap(itmp, iv) end if end if 2500 continue endif ncarr = itmp call setsca('&n_arrays_set', ncarr*1.d0) call setsca('&n_arrays_def', (nxarr-ncarr)*1.d0) cc c print*, 'sync : ncarr nxarr = ', ncarr, nxarr, itmp c c Step #5 put the math expressions in order c a simple switch-in-place, with recovery do 3600 ix = ncarr + 1, nxarr do 3580 iv = ncarr +1, nxarr lswitch = .false. do 3510 i = 1, micode icd = icdarr(i,iv) if ( (icd.eq.0).or.(icd.eq.iv)) go to 3520 if ( (icd.gt.iv).and.(icd.lt.jscale)) $ lswitch = .true. 3510 continue 3520 continue c c if itmp .gt. iv, swap these two places (names, value, icodes) if (lswitch) then itmp = itmp + 1 if ((itmp.gt.iv).and.(itmp.le.nxarr)) then c print*, ' swapping arrays ', iv, itmp c print*, itmp, narray(itmp), arrnam(itmp)(1:20) c print*, iv, narray(iv), arrnam(iv)(1:20) call sswap(arrnam(itmp), arrnam(iv)) call sswap(arrfrm(itmp), arrfrm(iv)) call xswap(arrmax(itmp), arrmax(iv)) call xswap(arrmin(itmp), arrmin(iv)) call iswap(narray(itmp), narray(iv)) call iswap(nparr(itmp), nparr(iv)) call iaswap(icdarr(1,itmp), icdarr(1,iv), micode) c now swap all references to these in the other icodes call icswap(itmp, iv) call fixarr(itmp,arrnam(itmp),narray(itmp), 0) call fixarr(iv ,arrnam(iv), narray(iv), 0) end if end if 3580 continue 3600 continue c c count string variables itmp = 0 do 4300 i = 1, maxtxt if ((txtnam(i).ne.blank).and.(text(i).ne.blank)) itmp = itmp+1 4300 continue call setsca('&n_strings', itmp*1.d0) c c re-evaluate all the ifeffit variables from the newly sorted values call synvar c end subroutine iff_sync end subroutine synvar c revaluate all variables, assumed to be in order from sync implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'encod.h' include 'feffit.h' save integer i, ntmp, iu cc do 500 iu = 1,2 do 10 i = 1, maxpts tmparr(i) = 0 10 continue do 200 i = nvarys + 1, nxscal if (icdsca(1,i) .gt. 0) then tmparr(1) = scalar(i) if (icdsca(1,i).ne.(i+jscale)) then ntmp = 0 call decod(icdsca(1,i),micode, consts, scalar, $ array, narray, nparr, $ maxsize_array, maxarr, ntmp, tmparr) scalar(i) = tmparr(1) end if endif 200 continue do 300 i = ncarr+1, nxarr if (icdarr(1,i) .gt. 0) then ntmp = 0 call decod(icdarr(1,i),micode, consts, scalar, $ array, narray, nparr, $ maxsize_array, maxarr, ntmp, tmparr) call set_array_index(i,tmparr,ntmp) end if 300 continue 500 continue return end subroutine icswap(inew, iold) c switch occurance of inew and iold in all encoded expressions implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'encod.h' include 'pthpar.h' include 'feffit.h' save integer inew, iold, ip, j, i c c scalars do 240 j = 1, maxsca do 220 i = 1, micode if (icdsca(i,j).eq.inew) then icdsca(i,j) = iold elseif (icdsca(i,j).eq.iold) then icdsca(i,j) = inew elseif (icdsca(i,j).eq.0) then go to 230 end if 220 continue 230 continue 240 continue c arrays do 340 j = 1, maxarr-1 do 320 i = 1, micode if (icdarr(i,j).eq.inew) then icdarr(i,j) = iold elseif (icdarr(i,j).eq.iold) then icdarr(i,j) = inew elseif (icdarr(i,j).eq.0) then go to 330 end if 320 continue 330 continue 340 continue c path parameters do 560 ip = 1, mpaths do 540 j = 1, mpthpr do 520 i = 1, micode if (icdpar(i,j,ip).eq.inew) then icdpar(i,j,ip) = iold elseif (icdpar(i,j,ip).eq.iold) then icdpar(i,j,ip) = inew elseif (icdpar(i,j,ip).eq.0) then go to 530 end if 520 continue 530 continue 540 continue 560 continue return end subroutine sswap(s1, s2) c swap 2 strings character*512 s, s1*(*), s2*(*) s = s1 s1 = s2 s2 = s return end subroutine xswap(x1, x2) c swap 2 dp constants double precision x, x1, x2 x = x1 x1 = x2 x2 = x return end subroutine iswap(i1, i2) c swap 2 integers integer i, i1, i2 i = i1 i1 = i2 i2 = i return end subroutine iaswap(i1, i2, n) c swap 2 integer arrays, of length n integer i1(*), i2(*), i, j, n do 10 j = 1, n i = i1(j) i1(j) = i2(j) i2(j) = i 10 continue return end c subroutine xaswap(array, narray, nparr, i1, i2, n) cc swap 2 dp arrays, of length n c double precision x1(*), x2(*), x c integer j, n c do 10 j = 1, n c x = x1(j) c x1(j) = x2(j) c x2(j) = x c 10 continue c return c end ifeffit-1.2.11d/src/lib/iff_load.f0000644000175000017500000001114010771740457015630 0ustar segresegre integer function iff_load(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c support "load file" syntax for ifeffit: c 1. manage stack of files to read from c 2. check for recursion (is it already on the stack) c 3. open file c 4. execute each line (by sending to ifeffit) implicit none include 'consts.h' include 'keywrd.h' include 'echo.h' save integer iex, ier, i, ifeffit, ilen, istrln, iread character str*(*), stat*10 character*2048 line parameter (stat = 'old') external ifeffit, istrln, iread c c increment stack -- check that we're not off the edge ier = 0 iff_load = 0 nfiles = nfiles + 1 cc print*, 'LOAD: iff_load ', nfiles if (nfiles .gt. mfiles) then call warn(2,'# ifeffit error: too many nested "include"s') write(messg, '(a,i3)') '# current limit is ', mfiles call echo(messg) call warn(2,'# file include will be ignored ') nfiles = nfiles - 1 iff_load = -1 return end if c fix string to be file name cc print*, 'LOAD: string ', str call getfln(str, lfiles(nfiles), ier) c test for recursion: do 20 i = 1, nfiles - 1 if (lfiles(nfiles) .eq. lfiles(i)) then call warn(3, $ '# ifeffit error: recursive include not allowed') iff_load = -1 return end if 20 continue c open file cc print*, 'call openfl nfiles =', nfiles, lfiles(nfiles)(1:30) call openfl(iunit(nfiles), lfiles(nfiles), stat, iex, ier) if ((ier.lt.0).or.(iex.lt.0)) then call echo(' *** load: error opening file (not found):') ilen = istrln(lfiles(nfiles)) messg = ' *** '//lfiles(nfiles)(1:ilen) call warn(2,messg) go to 500 end if ioinp = iunit(nfiles) cc print*, ' iff_load:: opened unit = ', ioinp, nfiles , cc $ lfiles(nfiles)(1:30) c read first line, check if this is really a save file ilen = iread(iunit(nfiles), line) if (line(1:22).eq. '#:IFEFFIT SAVE File: v') then call iff_restore(lfiles(nfiles)) go to 500 endif c while loop: read and execute 100 continue if (nfiles.gt.0) then if (ilen.gt.0) then iff_load = ifeffit(line) if (iff_load.eq.1) return endif ilen = iread(iunit(nfiles), line) if ((ilen.lt.0) .and. (nfiles.gt.0)) then cc print*, ' close file ', lfiles(nfiles)(1:40) close(iunit(nfiles)) lfiles(nfiles) = ' ' nfiles = nfiles - 1 ioinp = 0 endif go to 100 end if c at end-of-file, pop stack. continue with previous loads, or return 500 continue cc print*, ' line 500 : ', nfiles if (nfiles.gt.0) then close(iunit(nfiles)) lfiles(nfiles) = ' ' nfiles = nfiles - 1 ioinp = 0 end if cc print*, ' nfiles is now ', nfiles if (nfiles.gt.0) then ilen = iread(iunit(nfiles), line) go to 100 endif do 900 i = 1, n_echo call echo_pop(tmpstr) 900 continue n_echo = 0 call setsca('&echo_lines', zero) return c end subroutine iff_load end ifeffit-1.2.11d/src/lib/A0000644000175000017500000000111610771740457014023 0ustar segresegregzip compat.f gzip echo.f gzip enlib.f gzip fitfun.f gzip genfun.f gzip ifeffit.f gzip iff_chieps.f gzip iff_correl.f gzip iff_cursor.f gzip iff_echo.f gzip iff_erase.f gzip iff_feffit.f gzip iff_fft.f gzip iff_getpath.f gzip iff_log.f gzip iff_macro.f gzip iff_path.f gzip iff_plot.f gzip iff_plot_init.f gzip iff_pre_edge.f gzip iff_print.f gzip iff_rddata.f gzip iff_save.f gzip iff_set.f gzip iff_show.f gzip iff_spline.f gzip iff_sync.f gzip iff_window.f gzip iff_wrdata.f gzip minpack.f gzip misc_arr.f gzip misc_vars.f gzip sigms.f gzip sum_paths.f ifeffit-1.2.11d/src/lib/sys.h0000755000175000017500000000045611117271633014706 0ustar segresegrec{sys.h -*-fortran-*- c system and build specific stuff goes here c to be included in iff_config.f sysdir = '/usr/local/share/ifeffit' pgdev = '/xserve' inifile= 'startup.iff .ifeffit' build = '1.2.11d'// $ ' Copyright (c) 2008 Matt Newville, Univ of Chicago' c} ifeffit-1.2.11d/src/lib/G0000644000175000017500000001155510771740457014041 0ustar segresegrecifeffit.f: integer function iffgetsca(inp, dx) cifeffit.f: if (int(getsca('&sync_level',0)).ge.1) call iff_sync cifeffit.f: if (int(getsca('&sync_level',0)).ge.1) call iff_sync cifeffit.f: if (int(getsca('&sync_level',0)).ge.1) call iff_sync cifeffit.f: if (int(getsca('&sync_level',0)).ge.1) call iff_sync compat.f: double precision function getsca(str,iwarn) echo.f: xc = getsca('&status',0) fitfun.f: xspl(isp) = getsca(tmpstr,0) fitfun.f: iter = int(getsca('&fit_iteration',0)) genfun.f: iter = int(getsca('&fit_iteration')) ifeffit.f: iprint= int(getsca('&print_level')) iff_chieps.f: xkmin = getsca('kmin') iff_chieps.f: xkmax = getsca('kmax') iff_chieps.f: xkw = getsca('kweight') iff_chieps.f: dk1 = getsca('dk1') iff_chieps.f: dk2 = getsca('dk2') iff_correl.f: xcmin= getsca('correl_min') iff_cursor.f: ox = real(getsca('cursor_x')) iff_cursor.f: oy = real(getsca('cursor_y')) iff_cursor.f: rx2 = real(getsca('cursor_x')) iff_cursor.f: ry2 = real(getsca('cursor_y')) iff_echo.f: i_ec = int(getsca('&screen_echo')) iff_echo.f: i_pa = int(getsca('&pause_ignore')) iff_erase.f: id = int(getsca('data_set')) iff_feffit.f: xrmin = getsca('rmin') iff_feffit.f: xrmax = getsca('rmax') iff_feffit.f: xkmin = getsca('kmin') iff_feffit.f: xkmax = getsca('kmax') iff_feffit.f: xkw = getsca('kweight') iff_feffit.f: dk1 = getsca('dk1') iff_feffit.f: dk2 = getsca('dk2') iff_feffit.f: xidat = getsca('data_set') iff_feffit.f: xidat = getsca('data_total') iff_feffit.f: qw_tmp(1) = getsca('kweight') iff_feffit.f: qx = getsca(cmdstr) iff_feffit.f: sigdtk = getsca('epsilon_k') iff_feffit.f: sigdtr = getsca('epsilon_r') iff_feffit.f: xspl(isp) = getsca(cmdstr) iff_fft.f: dx1 = getsca(params(3)) iff_fft.f: dx2 = getsca(params(4)) iff_fft.f: dx1 = getsca(params(2)) iff_fft.f: xmin = getsca(params(5)) iff_fft.f: xmax = getsca(params(6)) iff_fft.f: xw = getsca(params(7)) iff_fft.f: xmout = getsca(params(11)) iff_getpath.f: r1 = getsca('reff') iff_log.f: iec = int( getsca('&screen_echo') ) iff_macro.f: x = getsca('&screen_echo') iff_path.f: xiup = getsca('path_index') iff_plot.f: xkey_x0 = real(getsca('&plot_key_x')) iff_plot.f: xkey_y0 = real(getsca('&plot_key_y0')) iff_plot.f: xkey_yd = real(getsca('&plot_key_dy')) iff_plot.f:cc xkey_y1 = getsca('plot_key_y1') iff_pre_edge.f: e0 = 0 ! getsca('e0') iff_pre_edge.f: step = 0 ! getsca('edge_step') iff_pre_edge.f: pre1 = 0 ! getsca('pre1') iff_pre_edge.f: pre2 = 0 ! getsca('pre2') iff_pre_edge.f: enor1 = 0 ! getsca('norm1') iff_pre_edge.f: enor2 = 0 ! getsca('norm2') iff_pre_edge.f: slope = 0 ! getsca('pre_slope') iff_pre_edge.f: offset = 0 ! getsca('pre_offset') iff_print.f: if (int(getsca('&sync_level')).ge.2) call iff_sync iff_save.f: if (int(getsca('&sync_level')).ge.1) call iff_sync iff_save.f: i_sync = int(getsca('&sync_level')) iff_set.f: if (int(getsca('&sync_level')).ge.6) call iff_sync iff_set.f: if (int(getsca('&sync_level')).ge.2) call iff_sync iff_show.f: if (int(getsca('&sync_level')).ge.2) call iff_sync iff_show.f: if (int(getsca('&sync_level')).ge.3) call iff_sync iff_spline.f:cc splstf = getsca('spl_stiff') iff_spline.f: e0 = getsca('e0') iff_spline.f: rbkg = getsca('rbkg') iff_spline.f: toler = getsca('toler') iff_spline.f: xkmin = getsca('kmin_spl') iff_spline.f: xkmax = getsca('kmax_spl') iff_spline.f: xkw = getsca('kweight_spl') iff_spline.f: dk1 = getsca('dk1_spl') iff_spline.f: dk2 = getsca('dk2_spl') iff_spline.f: pre1 = getsca('pre1') iff_spline.f: pre2 = getsca('pre2') iff_spline.f: enor1 = getsca('norm1') iff_spline.f: enor2 = getsca('norm2') iff_spline.f: iprint = int(getsca('&print_level')) iff_spline.f: po = getsca('pre_offset') iff_spline.f: ps = getsca('pre_slope') iff_window.f: dx1 = getsca(params(3)) iff_window.f: dx2 = getsca(params(4)) iff_window.f: dx1 = getsca(params(2)) iff_window.f: xmin = getsca(params(5)) iff_window.f: xmax = getsca(params(6)) iff_window.f: xw = getsca(params(7)) iff_window.f: xmout = getsca(params(11)) iff_wrdata.f: xval = getsca(scaout(i)) minpack.f: xmaxiter = getsca('&max_iteration') misc_vars.f: double precision function getsca(name,iwarn) sigms.f: ipth = max(1, int ( getsca('path_index'))) sigms.f: ipth = max(1, int ( getsca('path_index'))) sum_paths.f: xdsave = getsca('data_set') ifeffit-1.2.11d/src/lib/iff_save.f0000644000175000017500000003454310771740457015663 0ustar segresegre subroutine iff_save(string) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c save session to a PAD save file implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'encod.h' save integer max_groups, igr parameter (max_groups=256) integer i, k, istrln, ndfkey, ilen, inn, get_array integer npack, iex, ier, lun, isn, isf, iff_eval_in integer j,jl character*256 defkey(2)*64, file, s2, string*(*), build character*256 groups(max_groups) character*10 stat, spad*20, vers logical s_str, s_sca, s_arr, s_sys, s_psc, dsave double precision getsca parameter (stat = 'unknown' , vers = '1.02') external istrln, iff_eval_in, get_array, getsca if (int(getsca('&sync_level',0)).ge.1) call iff_sync file = 'ifeffit.sav' call gettxt('&build', build) npack = 8 s_str = .true. s_sca = .true. s_arr = .true. s_psc = .false. s_sys = .false. igr = 0 do 10 i = 1, max_groups groups(i) = undef 10 continue c interpret any and all keyword/value pairs for setting options call bkeys(string, mkeys, keys, values, nkeys) ndfkey = 1 defkey(1) = 'file' do 100 i = 1, nkeys k = istrln( keys(i)) if ((values(i).eq.undef).and.(i.le.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if (keys(i).eq.'file') then file = values(i) elseif (keys(i).eq.'group') then igr = igr + 1 if (igr.le.max_groups) groups(igr) = values(i) elseif ((keys(i).eq.'npad').or.(keys(i).eq.'npack')) then ier = iff_eval_in(values(i),npack) elseif (keys(i).eq.'no_strings') then s_str = .false. elseif (keys(i).eq.'with_strings') then s_str = .true. elseif (keys(i).eq.'no_scalars') then s_sca = .false. elseif (keys(i).eq.'with_scalars') then s_sca = .true. elseif (keys(i).eq.'pad_scalars') then s_psc = .true. elseif (keys(i).eq.'no_pad_scalars') then s_psc = .false. elseif (keys(i).eq.'no_arrays') then s_arr = .false. elseif (keys(i).eq.'with_arrays') then s_arr = .true. elseif (keys(i).eq.'no_sys') then s_sys = .false. elseif (keys(i).eq.'with_sys') then s_sys = .true. elseif (keys(i).eq.'arrays_only') then s_sca = .false. s_str = .false. s_arr = .true. elseif (keys(i).eq.'scalars_only') then s_sca = .true. s_str = .false. s_arr = .false. elseif (keys(i).eq.'strings_only') then s_sca = .false. s_str = .true. s_arr = .false. else messg = keys(i)(1:k)//' " will be ignored' call warn(1,' *** save: unknown keyword " '//messg) end if 100 continue call undels(file) iex = 0 ier = 0 lun = 3 call openfl(lun, file, stat, iex, ier) if ((ier.lt.0).or.(iex.lt.0)) then call warn(2,' *** save: error opening file ') return end if write(lun,'(3a,i3)') '#:IFEFFIT SAVE File: v',vers, $ ' npad =',npack ilen = istrln(build) write(lun,'(2a)') '#:build ', build(1:ilen) write(lun,'(a)') '#:strings' if (s_str) then do 210 i = 1, maxtxt if ((txtnam(i).ne.' ').and. (text(i).ne.' ') .and. $ (txtnam(i)(1:1).ne.'&')) then isn = max(1,istrln(txtnam(i))) isf = max(1,istrln(text(i))) write(lun,'(4a)') '#= ',txtnam(i)(1:isn), $ '= ',text(i)(1:isf) endif 210 continue end if c write(lun,'(a)') '#:system' if (s_sys) then do 220 i = 1, maxsca if ((scanam(i).ne.' ').and.(scanam(i)(1:1).eq.'&')) then call pad(scalar(i),npack,spad) isn = max(1,istrln(scanam(i))) s2 = scafrm(i) isf = istrln(s2) if (icdsca(1,i).eq.-1) then write(lun,'(4a)') '#? ', scanam(i)(1:isn), ' ', $ spad(1:npack) elseif ((s2.eq.' ').or.(isf.eq.0)) then write(lun,'(4a)') '#% ', scanam(i)(1:isn), ' ', $ spad(1:npack) else write(lun,'(4a)') '#= ', scanam(i)(1:isn), ' = ', $ s2(1:isf) end if end if 220 continue end if if (s_psc) then write(lun,'(a)') '#:scalars (pad)' else write(lun,'(a)') '#:scalars (nopad)' endif if (s_sca) then do 230 i = 1, maxsca if ((scanam(i).ne.' ').and.(scanam(i)(1:1).ne.'&')) then call pad(scalar(i),npack,spad) spad(npack+1:)= ' ' if (.not.s_psc) write(spad, '(g19.13)') scalar(i) isn = max(1,istrln(scanam(i))) s2 = scafrm(i) isf = istrln(s2) if (icdsca(1,i).eq.-1) then write(lun,'(4a)') '#? ', scanam(i)(1:isn),' ',spad elseif ((s2.eq.' ').or.(isf.eq.0)) then write(lun,'(4a)') '#% ', scanam(i)(1:isn),' ',spad else write(lun,'(4a)') '#= ', scanam(i)(1:isn), ' = ', $ s2(1:isf) end if end if 230 continue end if c arrays write(lun,'(a)') '#:arrays' if (s_arr) then do 340 i = 1, maxarr-1 if ((arrnam(i).ne.blank) .and. (arrnam(i).ne.undef)) then dsave = .true. if (igr.ge.1) then dsave = .false. j = index(arrnam(i),'.') do 305 k = 1, igr jl = istrln(groups(k)) if (arrnam(i)(1:j-1).eq.groups(k)(1:jl)) then dsave = .true. goto 307 endif 305 continue 307 continue endif if (dsave) then isn = max(1,istrln(arrnam(i))) s2 = arrfrm(i) isf = istrln(arrfrm(i)) if ((s2.eq.' ').or.(isf.eq.0)) then inn = get_array(arrnam(i),'',0,tmparr) write(lun,'(a,i6,2a)') '#% [', inn, '] ', $ arrnam(i)(1:isn) call wrpadd(lun,npack,tmparr,inn) else write(lun,'(a,i6,4a)') '#= [', narray(i), '] ', $ arrnam(i)(1:isn), ' = ', s2(1:isf) end if end if endif 340 continue end if if (lun.gt.0) close(lun) return end c subroutine iff_restore(string) c c restore session from a PAD save file implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'encod.h' save integer i, j, k, istrln, ndfkey, ierr, in1, in2 integer npack, iex, ier, lun, nwords, ntmp, iread_ky integer iofstr, iofsca, ilen, i_sync character*256 defkey(2)*64, file, s1, s2, string*(*) character*10 stat, pre*2, vers, words(2)*(20), str*256 double precision unpad, xvers, getsca logical sc_pad parameter (stat = 'old') external unpad, istrln, iofstr, iofsca, iread_ky, getsca file = 'ifeffit.sav' c interpret any and all keyword/value pairs for setting options call bkeys(string, mkeys, keys, values, nkeys) cc print*, ' iff_restore : ', string(1:70) cc print*, ' iff_restore : ', file(1:40) ndfkey = 1 defkey(1) = 'file' do 100 i = 1, nkeys k = istrln( keys(i)) if ((values(i).eq.undef).and.(i.le.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if (keys(i).eq.'file') then file = values(i) else messg = keys(i)(1:k)//' " will be ignored' call warn(1,' *** restore: unknown keyword " '//messg) end if 100 continue c c note that the sync_level is stored here (otherwise we'd "restore" it!) i_sync = int(getsca('&sync_level',0)) if (i_sync.ge.3) call iff_sync call undels(file) iex = 0 ier = 0 lun = -1 call openfl(lun, file, stat, iex, ier) if ((ier.lt.0).or.(iex.lt.0).or.(lun.le.0)) then ilen = istrln(file) messg = ' *** restore: cannot open file '//file(1:ilen) call warn(2,messg) if (lun.gt.0) close(lun) return end if c top line ilen = iread_ky(lun, pre, str) vers = 'null' npack = 0 if ((pre.eq.'#:').and.(str(1:20).eq.'IFEFFIT SAVE File: v')) then vers = str(21:25) call triml(vers) call lower(vers) call str2dp(vers,xvers,ier) s2 = str(26:) call lower(s2) nwords = 2 call bwords(s2,nwords,words) if (words(1).eq.'npad') call str2in(words(2),npack,ierr) endif if ((npack.le.0).or.(npack.ge.16).or.(vers.eq.'null')) goto 1010 c next line must be 'build' if (xvers.ge.1.01) then ilen = iread_ky(lun, pre, str) if ((pre.ne.'#:').or.(str(1:5).ne.'build')) goto 1010 endif c next line must be 'strings' ilen = iread_ky(lun, pre, str) if ((pre.ne.'#:').or.(str(1:3).ne.'str')) goto 1010 c read strings cc print*,' strings:' 150 continue ilen = iread_ky(lun, pre, str) if ((pre.eq.'#:').and.(str(1:3).eq.'sys')) goto 200 if (pre.ne.'#=') goto 1010 nwords = 2 words(1) = ' ' words(2) = ' ' call bwords(str,nwords,words) i = iofstr(words(1),1) txtnam(i) = words(1) call strclp(str, words(1), words(2), text(i)) go to 150 c scalars 200 continue 250 continue nwords = 2 words(1) = ' ' words(2) = ' ' ilen = iread_ky(lun, pre, str) cc print*, ' pre, str = ', pre, ', ', str(1:30) if ((pre.eq.'#:').and.(str(1:3).eq.'sca')) goto 300 call bwords(str, nwords,words) i = iofsca( words(1), 1) cc print*, ' iofsca = ', i scanam(i) = words(1) scafrm(i) = ' ' if (pre.eq.'#?') then scalar(i) = unpad(words(2), npack) icdsca(1,i) = -1 elseif (pre.eq.'#%') then scalar(i) = unpad(words(2), npack) icdsca(1,i) = i + jscale elseif (pre.eq.'#=') then call iff_set('def',str,.false.) else goto 1010 endif goto 250 300 continue sc_pad = .true. if ( (xvers.ge.1.015) .and. $ (index(str(4:),'(nopad)').ne.0) ) then sc_pad = .false. endif 350 continue nwords = 2 words(1) = ' ' words(2) = ' ' ilen = iread_ky(lun, pre, str) if ((pre.eq.'#:').and.(str(1:3).eq.'arr')) goto 400 call bwords(str, nwords,words) i = iofsca( words(1), 1) cc print*, ' iofsca = ', i scanam(i) = words(1) scafrm(i) = ' ' if (pre.eq.'#?') then if (sc_pad) then scalar(i) = unpad(words(2), npack) else call str2dp(words(2), scalar(i), ier) endif icdsca(1,i) = -1 elseif (pre.eq.'#%') then if (sc_pad) then scalar(i) = unpad(words(2), npack) else call str2dp(words(2), scalar(i), ier) endif icdsca(1,i) = i + jscale elseif (pre.eq.'#=') then call iff_set('def',str,.false.) else goto 1010 endif goto 350 400 continue c arrays cc print*,' arrays:' 650 continue ilen = iread_ky(lun, pre,str) cc print*,' pre, ilen ', pre, ' ', ilen if (ilen.lt.0) goto 800 in1 = index(str,'[') in2 = index(str,']') call str2in(str(in1+1:in2-1),ntmp, ierr) str = str(in2+1:) call triml(str) if (pre.eq.'#=') then c define array by formula call iff_set('def',str,.false.) elseif (pre.eq.'#%') then c c read array data j = index(str,'.') s1 = str(1:j-1) s2 = str(j+1:) call triml(s1) call triml(s2) call rdpadd(lun,npack,tmparr, ntmp) call set_array(s2,s1,tmparr,ntmp,1) else goto 1010 endif go to 650 800 continue cc print*, ' line 800' c c arrays if (lun.gt.0) close(lun) if (i_sync.ge.1) call iff_sync return 1010 continue call warn(2,' *** restore: not a valid save file') return end ifeffit-1.2.11d/src/lib/sigms.f0000644000175000017500000002672710771740457015230 0ustar segresegre subroutine sigms (tk, theta, rs, nleg, rat, iz, sig2) c c copyright 1993 university of washington c john rehr, steve zabinsky, matt newville c c the following routines calculate the debye-waller factor for a c path based on the temperature, debye temperature, average c norman radius, atoms in the path, and their positions. c these routines come courtesy of jj rehr and si zabinsky. c i changed them a bit. matt n c------------------------------------------------------------------- c c from s i zabinsky. c inputs: c tk temperature in degrees k c theta debye temp in degrees k c rs average wigner seitz or norman radius in bohr c averaged over entire problem: c (4pi/3)*rs**3 = sum( (4pi/3)rnrm**3 ) / n c (sum is over all atoms in the problem) c nleg nlegs in path c rat positions of each atom in path (in bohr) c iz atomic number of each atom in path c output: c sig2 debye waller factor c notes: c all units of distance in this routine are angstroms c there are nleg atoms including the central atom. c index 0 and index nleg both refer to central atom. implicit none integer i, j, nleg, nlegx double precision tk, theta, rs, sig2, zero, two double precision rij, rimjm, rimj, riim, rjjm, ridotj, corrfn double precision dist, cij, cimjm, cijm, cimj, sig2ij, rijm parameter (nlegx = 7, zero = 0.d0, two = 2.d0) double precision rat(3,0:nlegx) integer iz(0:nlegx) external dist, corrfn c sig2 = zero do 800 i = 1, nleg do 800 j = i, nleg c c calculate r_i-r_i-1 and r_j-r_j-1 and the rest of the c distances, and get the partial cosine term: c cosine(i,j) = r_i.r_j / ((r_i - r_i-1) * (r_j - r_j-1)) rij = dist ( rat(1,i) , rat(1,j) ) rimjm = dist ( rat(1,i-1), rat(1,j-1)) rijm = dist ( rat(1,i) , rat(1,j-1)) rimj = dist ( rat(1,i-1), rat(1,j) ) riim = dist ( rat(1,i) , rat(1,i-1)) rjjm = dist ( rat(1,j) , rat(1,j-1)) ridotj = (rat(1,i)-rat(1,i-1)) * (rat(1,j)-rat(1,j-1)) $ + (rat(2,i)-rat(2,i-1)) * (rat(2,j)-rat(2,j-1)) $ + (rat(3,i)-rat(3,i-1)) * (rat(3,j)-rat(3,j-1)) c c call corrfn to get the correlations between atom pairs cij = corrfn (rij , theta, tk, iz(i) , iz(j) , rs) cimjm = corrfn (rimjm, theta, tk, iz(i-1), iz(j-1), rs) cijm = corrfn (rijm , theta, tk, iz(i) , iz(j-1), rs) cimj = corrfn (rimj , theta, tk, iz(i-1), iz(j) , rs) c c combine outputs of corrfn to give the debye-waller factor for c this atom pair. !!! note: don't double count (i.eq.j) terms !!! sig2ij = (cij + cimjm - cijm - cimj)*ridotj/(riim * rjjm) if (j.eq.i) sig2ij = sig2ij / two sig2 = sig2 + sig2ij 800 continue sig2 = sig2/2 return c end subroutine sigms end double precision function corrfn(rij, theta, tk,iz1,iz2,rs) c c copyright 1993 university of washington c john rehr, steve zabinsky, matt newville c c subroutine calculates correlation function c c(ri, rj) = in the debye approximation c c = (1/n)sum_k exp(ik.(ri-rj)) (1/sqrt(mi*mj))* c (hbar/2w_k)*coth(beta hbar w_k/2) c c = (3kt/mu w_d**2) * sqrt(mu**2/mi*mj) * int c where : c x k_d*r (distance parameter) r distance in angstroms c theta debye temp in degrees k c tk temperature in degrees k c temper theta / tk = hbar omegad/kt c k_d debye wave number = (6*pi**2 n/v) c n/v free electron number density = 1/(4pi/3rs**3) c rs wigner seitz or norman radius in bohr c ami atomic mass at sites i in amu c amj atomic mass at sites j in amu c int int_0^1 (temper/x) dw sin(wx)coth(w*temper/2) c c solution by numerical integration c c parameters pi, bohr, con c con=hbar**2/kb*amu)*10**20 in ang**2 units c hbar=1.0549x10**-34 amu=1.65979x10-27kg kb=1.3807x10-23 implicit none integer iz1, iz2 double precision rs, theta, tk, rij, rx, tx double precision conr, conh, rmass, debint, at_weight parameter (conh = 72.8385d0, conr = 4.5693346333d0) external at_weight, debint c c theta in degrees k, t temperature in degrees k rx = conr * rij / rs tx = theta / tk rmass = theta * sqrt( at_weight(iz1) * at_weight(iz2)) corrfn = conh * debint (rx,tx) / rmass return c end subroutine corrfn end double precision function debfun(w,rx,tx) c c copyright 1993 university of washington c john rehr, steve zabinsky, matt newville c c debfun = (sin(w*rx)/rx) * coth(w*tx/2) c implicit none double precision wmin, argmax, w, emwt parameter (wmin = 1.d-20, argmax = 50.d0) double precision rx, tx c allow t = 0 without bombing debfun = 2 / tx if (w.gt.wmin) then debfun = w if (rx.gt.0) debfun = sin(w*rx) / rx emwt = exp(-min(w*tx,argmax)) debfun = debfun * (1 + emwt) / (1 - emwt) end if return c end function debfun end double precision function debint (rx,tx) c c copyright 1993 university of washington c john rehr, steve zabinsky, matt newville c c subroutine calculates integrals between [0,1] b = int_0^1 f(z) dz c by trapezoidal rule and binary refinement (romberg integration) c coded by j rehr (10 feb 92) see, e.g., numerical recipes c for discussion and a much fancier version c----------------------------------------------- c del=dz itn=2**n tol=1.e-5 c starting values c implicit double precision (a-h,o-z) c error is approximately 2**(-2n) ~ 10**(-.6n) c so nmax=10 implies an error of 1.e-6 c implicit none integer nmax, n, itn, i double precision tol, zero, one, two, three, debfun double precision rx, tx parameter(nmax = 12, tol = 1.d-9) parameter(zero=0.d0, one=1.d0, two=2.d0, three=3.d0) double precision del, bn, bo, zi, sum, bnp1 external debfun c itn = 1 del = one debint = zero bn = (debfun(zero,rx,tx) + debfun(one,rx,tx)) /2 bo = bn do 40 n = 1, nmax c nth iteration c b_n+1=(b_n)/2+deln*sum_0^2**n f([2n-1]deln) del = del / two sum = zero do 20 i= 1, itn zi = (two * i - 1) * del sum = sum + debfun(zi,rx,tx) 20 continue c bnp1=b_n+1 is current value of integral c cancel leading error terms b=[4b-bn]/3 c note: this is the first term in the neville table - remaining c errors were found too small to justify the added code bnp1 = del * sum + (bn / two) debint = (4 * bnp1 - bn)/three if (abs( (debint - bo) / debint).lt.tol) goto 45 bn = bnp1 bo = debint itn = itn * 2 40 continue 45 continue return c end function debint end double precision function dist (r0, r1) c find distance between cartesian points r0 and r1 double precision r0(3), r1(3) dist = 0.d0 do 10 i = 1, 3 dist = dist + (r0(i) - r1(i))**2 10 continue dist = sqrt(dist) return c end function dist end subroutine cordby(x, nx, y, ny, ierr) c c copyright 1993 university of washington matt newville c copyright 1999 university of chicago matt newville c c calculate xafs sigma^2 from correlated debye model ala jj rehr c important note: the path information is looked up in the c common block /fefdat/, using the path held in scalar 'path_index' c c x = theta on input, sigma2 on output c y = temperature c- include 'consts.h' include 'arrays.h' include 'feffit.h' include 'fefdat.h' include 'pthpar.h' double precision x(*), y(*), getsca, out(maxpts) double precision tk, theta, sig2, rat(3,0:maxleg) double precision small, big parameter(small =1.d-5, big =1.d10) integer ierr, iz(0:maxleg), i, j, ipth, jfeff integer u2ipth, inpath, nx1, ny1, nptstk, ipt, ix, iy external getsca, u2ipth, nptstk c ierr = 0 nx1 = nx ny1 = ny nx = nptstk (nx1, ny1) ipth = max(1, int ( getsca('path_index',0))) cc print*, ' cordby: ', nx1, ny1, nx , ipth jfeff = -1 if (ipth.ge.1) then inpath = u2ipth(max(1, ipth)) jfeff = jpthff(inpath) cc print*, ' cordby: ', ipth, inpath, jfeff do 50 i = 0, nlgpth(jfeff) iz(i) = izpth(i,jfeff) do 40 j = 1,3 rat(j,i) = ratpth(j,i,jfeff) 40 continue 50 continue end if cc print*, ' cordby 100 nx = ', nx do 100 ipt = 1, nx ix = min(nx1, ipt) iy = min(ny1, ipt) theta = max(small, min(big, x(ix))) tk = max(small, min(big, y(iy))) sig2 = zero if (jfeff.ge.1) then call sigms(tk,theta,rwgpth(jfeff), $ nlgpth(jfeff),rat,iz,sig2) endif out(ipt) = sig2 cc print*, ' debye: ipt ' , ipt, tk, theta, sig2 100 continue do 120 ipt = 1, nx x(ipt) = out(ipt) 120 continue return c end subroutine cordby end subroutine eins(x, nx, y, ny, ierr) c c calculate debye waller in einstein model c inputs c x = theta on input, sigma2 on output c y = temp c c calculate sigma^2 in the eisntein model inputs: c returned: c x sigma squared [AA^2] c = factor / (theta*rmass*tanh(theta/2t)) c with factor = hbarc*hbarc/(two * boltz * amu2ev) c c copyright (c) 1998 matt newville include 'consts.h' include 'arrays.h' include 'fefdat.h' include 'pthpar.h' integer nx, ny, ierr, i, ipth, nx1, ny1, nptstk, ipt integer u2ipth, inpath, jfeff double precision x(*), y(*), tmp, getsca, theta, tk double precision out(maxpts), a double precision small, big, factor, rminv, at_weight parameter(factor = 24.25423371d0, small =1.d-5, big =1.d10) external getsca, at_weight, nptstk, u2ipth ierr = -1 nx1 = nx ny1 = ny nx = nptstk (nx1, ny1) ipth = max(1, int ( getsca('path_index',0))) c construct reduced mass (in amu) using function at_weight inpath = u2ipth(max(1, ipth)) rminv = zero jfeff = jpthff(inpath) do 50 i = 1, nlgpth(jfeff) a = at_weight( izpth(i, jfeff)) rminv = rminv + one /max(one, a) 50 continue rminv = factor*max(small, min(big, rminv)) c c print*, ' eins: ', rminv, nx, ipth, x(1), y(1), y(2) c print*, inpath, jfeff, nlgpth(jfeff), 1./rminv do 100 ipt = 1, nx ix = min(nx1, ipt) iy = min(ny1, ipt) theta = max(small, min(big, x(ix))) tk = max(small, min(big, y(iy))) out(ipt) = zero ierr = 0 c evaluate sigma2 in einstein model, and overwrite x if (ipth.ne.0) then out(ipt)= rminv/(tanh(theta/(2*tk))*theta) endif 100 continue do 120 ipt = 1, nx x(ipt) = out(ipt) 120 continue return c end subroutine eins end ifeffit-1.2.11d/src/lib/feff_tables.f0000644000175000017500000001500110771740457016325 0ustar segresegre subroutine feff_table_array(zstrx, sarrx, mpts, x, y) implicit none include 'consts.h' cc include 'keywrd.h' integer mff_arrs, mpts double precision x(maxpts), y(maxpts), small parameter (small=1.d-6) parameter (mff_arrs = 5) double precision fdat(mffpts,mff_arrs) double precision yk(mffpts), xk(mffpts), qp integer iz, istrln, nwords, is, i, ipos, nfpts character*(*) zstrx, sarrx character*(16) words(3), sym*2, edge*2, sarr*16 external istrln sarr = sarrx call lower(sarr) call lower(zstrx) nwords = 2 call bwords(zstrx, nwords, words) sym = words(1) edge = words(2) cc print*, ' feff table: ', sym, ' ', edge, ' ', sarr c fdat: = amp,pha,caps,rep,xlam call read_fefftab(sym,edge,mffpts,mff_arrs,xk,fdat,nfpts) is = 0 if (sarr .eq. 'rep') is = 1 if (sarr .eq. 'lambda') is = 2 if (sarr .eq. 'amp') is = 3 if (sarr .eq. 'phase') is = 4 if (sarr .eq. 'caps') is = 5 c c now interpolate feff's k/f(k) data onto input x-array: if (is .ge. 1) then ipos = 0 do 500 i = 1, maxpts call lintrp(xk, fdat(1,is),nfpts,x(i),ipos,y(i)) 500 continue endif c k-dependent path parameters return end subroutine read_fefftab(sym,edge,mffpts,marrs,xk,fdat,nout) c c read feff data from the Feff Tables for a given c atomic symbol and edge c c output array xk, and fdat: dimensioned (mffpts,5) c 1 rep c 2 lambda c 3 amp c 4 phase c 5 caps c implicit none include 'maxpts.h' character*(*) sym, edge character*256 file, path, messg, str, s1, s2,pre*2 character*(32) words(2), vers*10, pref*8 integer iz, iz_atom, istrln, mffpts, npack integer ier, iex, ierr, nwords, in1, in2 integer ilen, lun, i, iread_ky, j, ntmp integer marrs, nout double precision fdat(mffpts,marrs), xk(mffpts) double precision tmparr(maxpts), xvers external iz_atom, istrln nout = 0 iz = iz_atom(sym) in1 = istrln(sym) in2 = istrln(edge) pref = sym(1:in1)//'_'//edge(1:in2) call gettxt('&install_dir', path) ilen = istrln(path) write(file,'(a,a,i2.2,a)') path(:ilen),'/fefftab/', iz,'.dat' ilen = istrln(file) lun = -1 call openfl(lun, file, 'old', iex, ier) if ((ier.lt.0).or.(iex.lt.0).or.(lun.le.0)) then messg = ' *** feff_tables: cannot open file '//file(1:ilen) call warn(3, messg) if (lun.gt.0) close(lun) return end if c do 10 i = 1, mffpts xk(i) = 0 fdat(i,1) = 0 fdat(i,2) = 0 fdat(i,3) = 0 fdat(i,4) = 0 fdat(i,5) = 0 10 continue ilen = iread_ky(lun, pre, str) vers = 'null' npack = 0 if ((pre.eq.'#:').and.(str(1:20).eq.'IFEFFIT SAVE File: v')) then vers = str(21:25) call triml(vers) call lower(vers) call str2dp(vers,xvers,ier) s2 = str(26:) call lower(s2) nwords = 2 call bwords(s2,nwords,words) if (words(1).eq.'npad') call str2in(words(2),npack,ierr) endif if ((npack.le.0).or.(npack.ge.16).or.(vers.eq.'null')) goto 1010 c next line must be 'build' if (xvers.ge.1.01) then ilen = iread_ky(lun, pre, str) if ((pre.ne.'#:').or.(str(1:5).ne.'build')) goto 1010 endif c skip over everything until arrays 120 continue ilen = iread_ky(lun, pre, str) if (ilen.lt.0) goto 800 if ((pre.ne.'#:').or.(str(1:6).ne.'arrays')) goto 120 200 continue ilen = iread_ky(lun, pre,str) if (ilen.lt.0) goto 800 in1 = index(str,'[') in2 = index(str,']') call str2in(str(in1+1:in2-1),ntmp, ierr) str = str(in2+1:) call triml(str) if (pre.eq.'#%') then c read array data j = index(str,'.') s1 = str(1:j-1) s2 = str(j+1:) call triml(s1) call triml(s2) call rdpadd(lun,npack,tmparr, ntmp) if (s2 .eq. 'k') then nout = ntmp do 310 i = 1, ntmp xk(i) = tmparr(i) 310 continue elseif (s2 .eq. 'rep') then do 320 i = 1, ntmp fdat(i,1) = tmparr(i) 320 continue elseif (s2 .eq. 'lambda') then do 330 i = 1, ntmp fdat(i,2) = tmparr(i) 330 continue elseif ((s1 .eq. pref) .and. (s2 .eq. 'amp')) then do 340 i = 1, ntmp fdat(i,3) = tmparr(i) 340 continue elseif ((s1 .eq. pref) .and. (s2 .eq. 'phase')) then do 350 i = 1, ntmp fdat(i,4) = tmparr(i) 350 continue elseif ((s1 .eq. pref) .and. (s2 .eq. 'caps')) then do 360 i = 1, ntmp fdat(i,5) = tmparr(i) 360 continue endif else goto 1010 endif go to 200 800 continue c close(lun) return 1010 continue call warn(3,' *** bad data in feff tables') end integer function iz_atom(sym) c c copyright 1993 university of washington matt newville and bruce ravel c--------------------------------------------------------------------------- c returns z number given atomic symbol: default is 0 character*2 symbol(103), sym, sy c data (symbol(i),i=1,103) /'h','he','li','be','b','c','n','o', $ 'f','ne','na','mg','al','si','p','s','cl','ar','k','ca', $ 'sc','ti','v','cr','mn','fe','co','ni','cu','zn','ga', $ 'ge','as','se','br','kr','rb','sr','y','zr','nb','mo', $ 'tc','ru','rh','pd','ag','cd','in','sn','sb','te','i', $ 'xe','cs','ba','la','ce','pr','nd','pm','sm','eu','gd', $ 'tb','dy','ho','er','tm','yb','lu','hf','ta','w','re', $ 'os','ir','pt','au','hg','tl','pb','bi','po','at','rn', $ 'fr','ra','ac','th','pa','u','np','pu','am','cm','bk', $ 'cf','es','fm','md','no','lr'/ sy = sym call lower(sy) iz_atom = 0 do 110 i=1,103 if (sy.eq.symbol(i)) then iz_atom = i goto 120 end if 110 continue 120 return c end integer function is2z end ifeffit-1.2.11d/src/lib/iff_rdf.f0000644000175000017500000003024210771740457015470 0ustar segresegre subroutine iff_rdf(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: read data arrays from external file c c arguments: c str command line for ifeffit [in] c c notes: c 1. currently supports only ascii column files c 2. supports several file "types" (xmu,chi,etc) used to name c the read-in arrays. c 3. to add: read array names from the label lines: c #------ c # energy xmu bkg c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' save integer mwords, nt_max, maxbuf, jxline parameter (mwords = 128, nt_max = 64, maxbuf=2**17) integer mpts, lun, npts, nwords, nwords1, ndata, in_titles integer narrs, ier, iex, i, j, k, idot, ilen, ilpre, in character*(*) str, stat*10, predef*10, comchr*1, cchars*5 character*128 pre, file, type, form, tmpnam character*2048 line, labstr, label*256 character*32 words(mwords), suffix, defkey(3)*64 double precision buffer(maxbuf), sindex(maxpts) integer ndfkey, llen, lslen, nlabs, iofarr, istrln, ntitle integer isort logical isvnam, istitl, iscomm, isdat logical save_titles, do_sort parameter (stat = 'old',predef = 'my') integer iff_eval_in, iread external iff_eval_in external istrln, isvnam, iofarr, isdat, iread c pre = ' ' file = ' ' labstr = ' ' form = 'ascii' type = 'label' save_titles = .true. do_sort= .false. isort = 1 in_titles = 0 call gettxt('commentchar', comchr) call settxt('column_label', '--undefined--') mpts = maxpts narrs = 0 npts = 0 ndata = 0 jxline = 0 c interpret any and all keyword/value pairs for setting options call bkeys(str, mkeys, keys, values, nkeys) c set default keywords for "undefined" sets c ie: the first two unkeyed values will take keys 'energy', 'xmu' ndfkey = 1 defkey(1) = 'file' do 10 i = 1, nkeys if ((values(i).eq.undef).and.(i.eq.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if ((keys(i).eq.'prefix').or.(keys(i).eq.'group')) then pre = values(i) call lower(pre) if (.not.(isvnam(pre, 1) )) call fixnam(pre,1) ilpre = istrln(pre) elseif (keys(i).eq.'file') then file = values(i) elseif (keys(i).eq.'type') then type = values(i) elseif (keys(i).eq.'label') then labstr = values(i) call lower(labstr) type = 'user' elseif (keys(i).eq.'format') then form = values(i) elseif (keys(i).eq.'sort') then call str2in(values(i),isort,ier) do_sort = .true. elseif (keys(i).eq.'commentchar') then comchr = values(i)(1:1) elseif (keys(i).eq.'notitles') then call str2lg(values(i),save_titles,ier) save_titles = .not.save_titles elseif (keys(i).eq.'titles') then call str2lg(values(i),save_titles,ier) elseif (keys(i).eq.'title_lines') then call str2in(values(i),in_titles,ier) elseif (keys(i).eq.'narrays') then ier = iff_eval_in(values(i), narrs) else if (i.eq.1) then file = keys(i) else k = istrln( keys(i)) messg = keys(i)(1:k)//' " will be ignored' call warn(1, $ ' *** read_data: unknown keyword " '//messg) end if end if 10 continue c c now that the needed program variables are known, the strategy is: c 1. open file, with error checking c 2. determine # of arrays to read c 3. assign names and positions for arrays to be read c 4. read arrays from file c 5. assign number of points for each array c c open file if (form.ne.'ascii') then messg = 'unsupported file format!!' call warn(2,' *** read_data: '//messg) return end if if (file.ne.' ') then iex = 0 ier = 0 lun = -1 call openfl(lun, file, stat, iex, ier) if ((ier.lt.0).or.(iex.lt.0)) then call echo(' *** read_data: error opening file ') ilen = istrln(file) messg = ' *** '//file(1:ilen) call warn(3,messg) if (lun.gt.0) close(lun) return end if c set prefix from file name if (pre.eq.' ') then idot = index(file,'.') if (idot.eq.0) then pre = file else pre = file(1:idot-1) end if if (pre.eq.' ') pre = predef call lower(pre) if (.not.(isvnam(pre, 1) )) call fixnam(pre,1) ilpre = istrln(pre) end if else call warn(2,' *** read_data: no file name given!!') if (lun.gt.0) close (lun) return end if c c read file, ignoring title lines at top of file. c - when we read the first row of numerical data, count the c number of columns and assign names and positions to vectors nwords = mwords ntitle = 0 cchars = ';#%'//comchr istitl = .true. iscomm = .true. c c c title lines 100 continue ilen = iread(lun, line) if (ilen .lt. 0) goto 2900 jxline = jxline + 1 iscomm = (line(1:1).ne.' ').and.(index(cchars,line(1:1)).ne.0) if ((ilen.le.0).or.(line.eq.' ') $ .or.(jxline.le.in_titles)) goto 100 c check for label line if (line(3:7).eq.'-----') istitl = .false. if ((line(3:7).eq.'-----').and.(type.eq.'label')) then ilen = iread(lun, line) if (ilen .lt. 0) goto 700 jxline = jxline + 1 if (iscomm) line = line(2:) call triml(line) call lower(line) nwords = mwords call bwords(line, nwords, words) llen = 1 do 130 i = 1, nwords j = index(words(i),'.') suffix = words(i)(j+1:) lslen = istrln(suffix) labstr = labstr(1:llen)//blank//suffix(1:lslen) llen = istrln(labstr) 130 continue c nlab: number of labels read in nlabs = nwords goto 200 end if c c read titles into temporarily-named arrays (they'll be renamed c according to group below) 145 format ('$',a,'_title_',i2.2) if (iscomm) then if (save_titles.and.istitl.and.(ntitle.lt.nt_max)) then line = line(2:) ntitle = ntitle + 1 write(tmpstr, 145) pre(1:ilpre), ntitle call settxt(tmpstr, line) endif goto 100 elseif (isdat(line)) then nwords = mwords call bwords(line, nwords, words) goto 210 else goto 100 end if c c c read numerical data 200 continue ilen = iread(lun, line) if (ilen .lt. 0) goto 700 jxline = jxline + 1 iscomm = (line(1:1).ne.' ').and.(index(cchars,line(1:1)).ne.0) if (iscomm.or.(ilen.le.0).or.(line.eq.' ')) goto 200 210 continue nwords = mwords call bwords(line, nwords, words) c here we have the first real row of numerical data. c save number of arrays to use npts = npts + 1 if (npts.eq.1) then nwords1 = nwords if (narrs.eq.0) narrs = nwords if ((type.ne.'label').and.(type.ne.'user')) then do 250 in = 1, narrs call file_type_names(type,in,suffix) lslen = istrln(suffix) labstr = labstr(1:llen)//blank//suffix(1:lslen) llen = istrln(labstr) 250 continue endif endif if (nwords.ne.nwords1) then write(messg, '(3x,a,i5)') ' *** read_data: inconsistent '// $ 'number of columns at line ', jxline call warn(2, messg) endif cc print*, jxline, nwords, ' : ', line(1:30) do 580 i = 1, nwords ndata = ndata + 1 call str2dp(words(i), buffer(ndata), ier) if (ier.ne.0) then if (lun.gt.0) close (lun) call echo(' *** read_data: non numeric data in file!') write(messg, '(3x,a,i5)') ' *** read_data: at line ', $ jxline call echo(messg) write(messg, '(3x,a)') line(1:ilen) call warn(2,messg) return end if 580 continue if (j.ge.maxbuf) then write(messg, '(3x,a)') $ ' *** read_data: file larger than buffer size' call warn(2,messg) return else goto 200 endif 700 continue c c done reading numerical data cc print*, 'LINE 700 ', nwords, ndata, npts, narrs if (narrs.le.0) goto 2900 npts = ndata / narrs c c now we're done reading the data. c sort data by a specified column do 1010 i = 1, npts sindex(i) = i 1010 continue if (do_sort) then if ((isort.le.0).or.(isort.gt.narrs)) isort = 1 do 1020 i = 1, npts tmparr(i) = buffer(isort + (i-1) * narrs) 1020 continue call sort2(npts, tmparr,sindex) endif c c put data into arrays and construct output label line nlabs = mwords do 1400 i = 1, mwords words(i) = ' ' 1400 continue call bwords(labstr, nlabs, words) llen = 1 label = ' ' do 1600 i = 1, narrs suffix = words(i) if (.not.(isvnam(suffix, 1) )) then call fixnam(suffix,2) if (suffix .eq. undef) suffix = ' ' end if c avoid repeated arrays: since we're sure that the indarrs are different, c and renaming according to them (without using iff_rename), we c have to be on the look-out for this case. do 1530 j = 1, i-1 if (suffix.eq.words(j)) suffix = ' ' 1530 continue if (suffix.eq. ' ') write(suffix,'(i3)') i call triml(suffix) tmpnam = pre(1:ilpre)//'.'//suffix lslen = istrln(suffix) label = label(1:llen)//blank//suffix(1:lslen) llen = istrln(label) do 1550 j = 1, npts tmparr(sindex(j)) = buffer(i + (j-1) * narrs) 1550 continue call set_array(suffix, pre, tmparr, npts, 1) 1600 continue c c finally set all the program variables call settxt('group', pre) call settxt('filename', file) call settxt('commentchar', comchr) call settxt('column_label', label) c close unit if still opened 2900 continue if (lun.gt.0) close(lun) call iff_sync return c end subroutine iff_rdf end ifeffit-1.2.11d/src/lib/kkmclr.f0000644000175000017500000001223110771740457015352 0ustar segresegrec c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2001 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c subroutine w_fftf(x,nx,ier) c wrapper for decod calling fftf include 'consts.h' include 'fft.h' double precision x(*) complex*16 xt(maxfft) integer nx,ier, mfft mfft = maxfft do 10 i = 1, nx xt(i) = cmplx(x(i), zero) 10 continue do 12 i = nx+1, maxfft xt(i) = cmplx(zero,zero) 12 continue call cfftf(mfft,xt,wfftc) do 20 i = 1, nx x(i) = dble(xt(i)) 20 continue cc print*, ' : : ', x(1), x(3), x(5) ier = 0 return end c subroutine w_fftr(x,nx,ier) c wrapper for decod calling fftr include 'consts.h' include 'fft.h' double precision x(*) integer nx,ier call cfftb(nx,x,wfftc) ier = 0 return end c subroutine w_kkf(x,nx,y,ny,ier) c wrapper for decod calling kkmclf include 'consts.h' double precision x(*),y(*), out(maxpts) integer nx,ny,ier call kkmclf(ny,y,x,out) do 10 i = 1, ny x(i) = out(i) 10 continue ier = 0 return end c subroutine w_kkr(x,nx,y,ny,ier) c wrapper for decod calling kkmclr include 'consts.h' double precision x(*),y(*), out(maxpts) integer nx,ny,ier call kkmclr(ny,y,x,out) do 10 i = 1, ny x(i) = out(i) 10 continue ier = 0 return end c subroutine kkmclr(npts, e, finp, fout) c reverse (f''->f') kk transform, using maclaurin series algorithm c arguments: c npts size of arrays to consider c e energy array *must be on an even grid* [npts] (in) c finp f'' array [npts] (in) c fout f' array [npts] (out) c m newville jan 1997 implicit none double precision e(*), finp(*), fout(*) double precision factor, ei2, de2, fopi, zero, tiny parameter(fopi = 1.273239544735163d0, zero = 0.d0, tiny=1.d-20) integer npts, i, j, k, ioff, nptsk if (npts.ge.2) then factor = - fopi * (e(npts) - e(1)) / (npts - 1) nptsk = npts / 2 do 100 i=1, npts fout(i) = zero ei2 = e(i) * e(i) ioff = mod(i,2) - 1 do 50 k = 1, nptsk j = k + k + ioff de2 = e(j)*e(j) - ei2 if (abs(de2).le.tiny) de2 = tiny fout(i) = fout(i) + e(j) * finp(j) / de2 50 continue fout(i) = factor * fout(i) 100 continue end if return c end subroutine kkmclr end subroutine kkmclf(npts, e, finp, fout) c forward (f'->f'') kk transform, using mclaurin series algorithm c arguments: c npts size of arrays to consider c e energy array *must be on an even grid* [npts] (in) c finp f' array [npts] (in) c fout f'' array [npts] (out) c notes fopi = 4/pi implicit none double precision e(*), finp(*), fout(*) double precision factor, ei2, de2, fopi, zero, tiny parameter(fopi = 1.273239544735163d0, zero = 0.d0, tiny=1.d-20) integer npts, i, j, k, ioff, nptsk if (npts.ge.2) then factor = fopi * (e(npts) - e(1)) / (npts - 1) nptsk = npts / 2 do 100 i=1, npts fout(i) = zero ei2 = e(i) * e(i) ioff = mod(i,2) - 1 do 50 k = 1, nptsk j = k + k + ioff de2 = e(j)*e(j) - ei2 if (abs(de2).le.tiny) de2 = tiny fout(i) = fout(i) + finp(j) / de2 50 continue fout(i) = factor * fout(i) * e(i) 100 continue end if return c end subroutine kkmclf end ifeffit-1.2.11d/src/lib/iff_test.f0000644000175000017500000000707010771740457015677 0ustar segresegre subroutine iff_test(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: ifeffit test function c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'spline.h' save character*(*) str character*128 xarr, yarr, name1, defkey(3)*64 double precision arr_x(maxpts), arr_y(maxpts) logical stfind, eefind integer jen, jpre, jxmu, ier, i, k, istrln, jdot integer ndfkey, npts_y, npts_x, sort_xy integer iff_eval, jx,jy external iff_eval, sort_xy external istrln c c get default values for pre-edge parameters from current scalar values call iff_sync call bkeys(str, mkeys, keys, values, nkeys) c set default keywords for "undefined" sets c ie: the first two unkeyed values will take keys 'energy', 'xmu' ndfkey = 2 defkey(1) = 'x' defkey(2) = 'y' do 100 i = 1, nkeys k = istrln( keys(i)) if ((values(i).eq.undef).and.(i.le.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if (keys(i).eq.'group') then name1 = values(i) elseif (keys(i).eq.'x') then xarr = values(i) call lower(xarr) elseif (keys(i).eq.'y') then yarr = values(i) call lower(yarr) else messg = keys(i)(1:k)//' " will be ignored' call warn(1, ' *** test: unknown keyword " '//messg) end if 100 continue c c get/resolve array names if (name1.eq.undef) then jdot = index(xarr,'.') if (jdot.ne.0) name1 = xarr(1:jdot-1) endif if (name1.eq.undef) then jdot = index(xarr,'.') if (jdot.ne.0) name1 = yarr(1:jdot-1) endif if (name1.eq.undef) then call warn(2, ' test: can''t determine group name') return endif call fixnam(name1,1) call lower(name1) jdot = istrln(name1) jx = iff_eval(xarr, name1, arr_x, npts_x) jy = iff_eval(yarr, name1, arr_y, npts_y) ier = sort_xy(arr_x, arr_y, npts_x,1.d-5) c do i = 1, npts_x c print*, i, arr_x(i), arr_y(i) c enddo return c end subroutine iff_test end ifeffit-1.2.11d/src/lib/cifeffit.f0000644000175000017500000001161311024017260015626 0ustar segresegrec////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2001 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c routines for the c interface to ifeffit data elements integer function iffexecf(str) c c this provides a cleaner interface for calling from C character*(*) str integer ifeffit, istrln, ilen external ifeffit, istrln call sclean(str) ilen = istrln(str) iffexecf = ifeffit(str) return end integer function iffgetstr(inp, out) c c purpose: wrapper to gettxt character*(*) inp, out, str*256 integer ilen, istrln external istrln iffgetstr = 1 str = inp call sclean(str) ilen = istrln(str) if (str(1:1).eq.'$') then str = str(2:ilen) ilen = ilen - 1 end if call gettxt(str, out) iffgetstr = max(1, istrln(out)) c end function iffgetstr return end integer function iffputstr(inam, istr) c c purpose: put a string c c copyright (c) 1998 matt newville character*(*) inam, istr character*256 nam, str iffputstr = 0 str = istr nam = inam call sclean(nam) call sclean(str) call settxt(nam,str) c end function iffputsca return end integer function iffgetsca(inp, dx) c c purpose: wrapper to getsca c c copyright (c) 1998 matt newville character*(*) inp, str*256 double precision dx, getsca external getsca if (int(getsca('&sync_level',0)).ge.1) call iff_sync iffgetsca = 0 str = inp call sclean(str) dx = dble( getsca(str,0) ) cc print*, 'F:iffgetsca ', str(1:30), ' = ', dx c end function iffgetsca return end integer function iffputsca(inp, dx) c c purpose: wrapper to setsca c c copyright (c) 1998 matt newville character*(*) inp, str*256 double precision dx, xx, getsca external getsca iffputsca = 0 str = inp xx = dx call sclean(str) call setsca(str,xx) if (int(getsca('&sync_level',0)).ge.1) call iff_sync c end function iffputsca return end integer function iffgetarr(inp, dx) c c purpose: look up and return array by name implicit none character*(*) inp, str*256 integer get_array double precision dx(*), getsca external get_array, getsca if (int(getsca('&sync_level',0)).ge.1) call iff_sync str = inp call sclean(str) iffgetarr = get_array(str,' ', 0, dx) c end function iffgetarr return end integer function iffputarr(inp, inpts, dx) c c purpose: wrapper to put array in ifeffit data implicit none character*(*) inp, str*256 integer inpts double precision dx(*), getsca external getsca iffputarr = 0 str = inp call sclean(str) call set_array(str, ' ', dx, inpts, 1) if (int(getsca('&sync_level',0)).ge.1) call iff_sync c end function iffputarr return end integer function iffgetecho(str) c c purpose: wrapper to echo_pop in ifeffit implicit none include 'consts.h' include 'echo.h' save character*(*) str, s*512 integer istrln external istrln iffgetecho = 0 s = ' ' str = ' ' call sclean(str) if (n_echo .ge. 1) call echo_pop(s) str = s iffgetecho = max(1, istrln(str)) c end function iffgetecho return end subroutine iff_plotraise(i) c grwin specific: raise to top integer i, j j = i cc call gwshowfr(j,11) cc call gwshowfr(j,12) return end ifeffit-1.2.11d/src/lib/Makefile.in0000644000175000017500000004636710772461064016001 0ustar segresegre# Makefile.in generated automatically by automae 1.4 from Makefile.am # Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. # Copyright (C) 2000 Matt Newville # # This file is free software; as a special exception the author gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY, to the extent permitted by law; without even the # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. .SUFFIXES: .SUFFIXES: .c .f .o SHELL = @SHELL@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ sbindir = @sbindir@ libexecdir = @libexecdir@ datadir = @datadir@ # sysconfdir = @sysconfdir@ # sharedstatedir = @sharedstatedir@ # localstatedir = @localstatedir@ libdir = @libdir@ infodir = @infodir@ mandir = @mandir@ includedir = @includedir@ oldincludedir = /usr/include DESTDIR = pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = ../.. ACLOCAL = @ACLOCAL@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ transform = @program_transform_name@ NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : host_alias = @host_alias@ host_triplet = @host@ CC = @CC@ CPP = @CPP@ F2C = @F2C@ F2CFLAGS = @F2CFLAGS@ F77 = @F77@ FFLAGS = @FFLAGS@ -fPIC FLIBS = @FLIBS@ PGPLOT_LIBS = @PGPLOT_LIBS@ MAKEINFO = @MAKEINFO@ PACKAGE = @PACKAGE@ RANLIB = @RANLIB@ VERSION = @VERSION@ MN_FLIBS = @MN_FLIBS@ PERL = @PERL@ PYTHON = @PYTHON@ COM_H = com.h COM_DEPS = Keywords.dat COM_BUILD = ./ComBuild SYS_H = sys.h F77MAKER = ./F77Maker # Perl5 specific ?? LDDLFLAGS_P5=-shared CONFIG_TEMPLATES = Config.mak Makefile.PL site_install.py TclSetup.in MISC_CONFIG = ifeffit.inc MISC_DATA = startup.iff README include_HEADERS = ifeffit.h pkgconfig_DATA = $(CONFIG_TEMPLATES) $(MISC_CONFIG) $(include_HEADERS) pkgdata_DATA = $(MISC_DATA) CLEANFILES = $(CONFIG_TEMPLATES) mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs CONFIG_HEADER = ../../config.h LIBRARIES = libifeffit.a libxafs.a DEFS = @DEFS@ -I. -I$(srcdir) -I../.. CPPFLAGS = @CPPFLAGS@ LDFLAGS = @LDFLAGS@ LIBS = @LIBS@ AR = ar F77COMPILE = $(F77) $(FFLAGS) F77LD = $(F77) F77LINK = $(F77LD) $(FFLAGS) $(LDFLAGS) -o $@ CFLAGS = @CFLAGS@ -fPIC COMPILE = $(CC) $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(CCLD) $(CFLAGS) $(LDFLAGS) -o $@ DATA = $(pkgdata_DATA) HEADERS = $(include_HEADERS) DIST_COMMON = ChangeLog Makefile.in DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) SOURCES = $(IFF_SRC) $(IFF_INC) ifeffitc.c OBJECTS = $(IFF_OBJ) ifeffitc.o all: Makefile $(COM_H) $(LIBRARIES) $(DATA) $(HEADERS) $(CONFIG_TEMPLATES) MAKEDEPEND = Makefile.dep ######## # Note that XAFS_SRC / _OBJ are for use when you want some of the # 'classic autobk/feffit' fortran functionality without all of # the ifeffit library. Mostly for backward compatibility support # for autobk and feffit. XAFS_SRC = str.f kkmclr.f fftpack.f conv_lor.f specfun.f \ padlib.f sort2.f preedg.f clcalc.f clbfun.f minpack.f \ spline.f splfun.f bvalue.f fitfft.f xafsft.f window.f fitfun.f \ genfun.f fiterr.f misc_num.f iread.f misc_io.f compat.f \ inpout.f uwxrdf.f chiout.f rdffdt.f get_inpfile.f echo.f atomic.f XAFS_OBJ = str.o kkmclr.o fftpack.o conv_lor.o specfun.o \ padlib.o sort2.o preedg.o clcalc.o clbfun.o minpack.o \ spline.o splfun.o bvalue.o fitfft.o xafsft.o window.o fitfun.o \ genfun.o fiterr.o misc_num.o iread.o misc_io.o compat.o \ inpout.o uwxrdf.o chiout.o rdffdt.o get_inpfile.o echo.o atomic.o ######## # Scanning files ... # Finding routines needed to make ifeffit.f ... # Finding routines needed to make cifeffit.f ... IFF_SRC = ifeffit.f cifeffit.f str.f misc_vars.f isamac.f \ iff_load.f iread.f misc_io.f iff_save.f \ iff_eval.f misc_arr.f iff_erase.f iff_sync.f \ decod.f misc_num.f enlib.f sigms.f atomic.f u2ipth.f \ kkmclr.f fftpack.f conv_lor.f specfun.f encod.f \ padlib.f iff_set.f sum_paths.f chipth.f echo.f \ iff_init.f iff_plot_init.f iff_config.f iff_get_line.f \ iff_macro.f iff_done.f iff_history.f iff_test.f \ sort2.f iff_rddata.f iff_wrdata.f iff_log.f iff_show.f \ iff_color.f iff_correl.f fefinp.f rdffdt.f iff_print.f \ iff_echo.f iff_unguess.f iff_rename.f iff_pre_edge.f \ preedg.f iff_bkg_cl.f clcalc.f clbfun.f minpack.f \ iff_spline.f spline.f splfun.f bvalue.f fitfft.f \ xafsft.f window.f iff_random.f iff_fft.f feff_tables.f \ iff_window.f iff_path.f iff_getpath.f iff_ff2chi.f \ iff_feffit.f fitfun.f iff_chieps.f fiterr.f iff_f1f2.f \ iff_diffkk.f iff_minimize.f genfun.f iff_uncert.f \ iff_plot.f iff_cursor.f get_inpfile.f misc_rand.f IFF_OBJ = ifeffit.o cifeffit.o str.o misc_vars.o isamac.o \ iff_load.o iread.o misc_io.o iff_save.o \ iff_eval.o misc_arr.o iff_erase.o iff_sync.o \ decod.o misc_num.o enlib.o sigms.o atomic.o u2ipth.o \ kkmclr.o fftpack.o conv_lor.o specfun.o encod.o \ padlib.o iff_set.o sum_paths.o chipth.o echo.o \ iff_init.o iff_plot_init.o iff_config.o iff_get_line.o \ iff_macro.o iff_done.o iff_history.o iff_test.o \ sort2.o iff_rddata.o iff_wrdata.o iff_log.o iff_show.o \ iff_color.o iff_correl.o fefinp.o rdffdt.o iff_print.o \ iff_echo.o iff_unguess.o iff_rename.o iff_pre_edge.o \ preedg.o iff_bkg_cl.o clcalc.o clbfun.o minpack.o \ iff_spline.o spline.o splfun.o bvalue.o fitfft.o \ xafsft.o window.o iff_random.o iff_fft.o feff_tables.o \ iff_window.o iff_path.o iff_getpath.o iff_ff2chi.o \ iff_feffit.o fitfun.o iff_chieps.o fiterr.o iff_f1f2.o \ iff_diffkk.o iff_minimize.o genfun.o iff_uncert.o \ iff_plot.o iff_cursor.o get_inpfile.o misc_rand.o # dependencies: ifeffit.o: consts.h maxpts.h keywrd.h echo.h cifeffit.o: consts.h maxpts.h echo.h misc_vars.o: consts.h maxpts.h arrays.h encod.h keywrd.h isamac.o: consts.h maxpts.h keywrd.h iff_load.o: consts.h maxpts.h keywrd.h echo.h iff_save.o: consts.h maxpts.h keywrd.h arrays.h encod.h iff_eval.o: consts.h maxpts.h keywrd.h arrays.h encod.h misc_arr.o: consts.h maxpts.h arrays.h encod.h keywrd.h iff_erase.o: consts.h maxpts.h keywrd.h arrays.h encod.h feffit.h\ fefdat.h pthpar.h iff_sync.o: consts.h maxpts.h keywrd.h arrays.h encod.h pthpar.h\ feffit.h decod.o: maxpts.h encod.h misc_num.o: maxpts.h consts.h enlib.o: encod.h consts.h maxpts.h arrays.h sigms.o: consts.h maxpts.h arrays.h feffit.h fefdat.h pthpar.h u2ipth.o: consts.h maxpts.h pthpar.h kkmclr.o: consts.h maxpts.h fft.h conv_lor.o: maxpts.h encod.o: consts.h maxpts.h encod.h arrays.h padlib.o: padlib.h iff_set.o: consts.h maxpts.h keywrd.h arrays.h encod.h echo.h sum_paths.o: consts.h maxpts.h keywrd.h arrays.h fefdat.h feffit.h\ pthpar.h chipth.o: consts.h maxpts.h pthpar.h echo.o: echo.h iff_init.o: consts.h maxpts.h arrays.h encod.h fefdat.h fft.h\ keywrd.h pthpar.h spline.h echo.h feffit.h iff_plot_init.o: consts.h maxpts.h ifplot.h iff_config.o: consts.h maxpts.h arrays.h encod.h fefdat.h fft.h\ keywrd.h pthpar.h spline.h echo.h feffit.h com.h\ sys.h iff_get_line.o: consts.h maxpts.h keywrd.h iff_macro.o: consts.h maxpts.h keywrd.h iff_history.o: consts.h maxpts.h keywrd.h iff_test.o: consts.h maxpts.h keywrd.h arrays.h spline.h iff_rddata.o: consts.h maxpts.h keywrd.h arrays.h iff_wrdata.o: consts.h maxpts.h keywrd.h arrays.h iff_log.o: consts.h maxpts.h keywrd.h echo.h iff_show.o: consts.h maxpts.h keywrd.h arrays.h encod.h echo.h\ feffit.h fefdat.h pthpar.h iff_color.o: consts.h maxpts.h keywrd.h ifplot.h iff_correl.o: consts.h maxpts.h keywrd.h arrays.h feffit.h fefinp.o: consts.h maxpts.h fefdat.h iff_print.o: consts.h maxpts.h keywrd.h arrays.h encod.h iff_unguess.o: consts.h maxpts.h arrays.h encod.h iff_rename.o: consts.h maxpts.h keywrd.h arrays.h iff_pre_edge.o: consts.h maxpts.h keywrd.h arrays.h spline.h iff_bkg_cl.o: consts.h maxpts.h keywrd.h arrays.h spline.h clbfun.o: consts.h maxpts.h spline.h iff_spline.o: consts.h maxpts.h keywrd.h arrays.h spline.h spline.o: consts.h maxpts.h spline.h fft.h splfun.o: consts.h maxpts.h spline.h fft.h iff_random.o: consts.h maxpts.h keywrd.h arrays.h iff_fft.o: consts.h maxpts.h keywrd.h arrays.h fft.h pthpar.h\ fefdat.h feff_tables.o: consts.h maxpts.h iff_window.o: consts.h maxpts.h keywrd.h arrays.h fft.h iff_path.o: consts.h maxpts.h keywrd.h arrays.h fefdat.h pthpar.h iff_getpath.o: consts.h maxpts.h keywrd.h arrays.h fefdat.h feffit.h\ pthpar.h iff_ff2chi.o: consts.h maxpts.h keywrd.h arrays.h fefdat.h feffit.h\ pthpar.h iff_feffit.o: consts.h maxpts.h keywrd.h arrays.h fft.h fefdat.h\ pthpar.h feffit.h fitfun.o: consts.h maxpts.h arrays.h keywrd.h fft.h fefdat.h\ pthpar.h feffit.h iff_chieps.o: consts.h maxpts.h keywrd.h arrays.h fft.h iff_f1f2.o: consts.h maxpts.h keywrd.h arrays.h spline.h atomic.h iff_diffkk.o: consts.h maxpts.h keywrd.h arrays.h spline.h iff_minimize.o: consts.h maxpts.h keywrd.h arrays.h feffit.h genfun.o: consts.h maxpts.h arrays.h feffit.h keywrd.h iff_uncert.o: consts.h maxpts.h keywrd.h arrays.h feffit.h iff_plot.o: consts.h maxpts.h keywrd.h ifplot.h iff_cursor.o: consts.h maxpts.h keywrd.h ifplot.h IFF_INC = consts.h maxpts.h keywrd.h echo.h arrays.h encod.h \ feffit.h fefdat.h pthpar.h fft.h padlib.h spline.h \ ifplot.h com.h sys.h atomic.h # WARNING: these subprograms seem to be needed but weren't found IFF_MISSING= pgqndt pgqdt pgopen pgclos pgqinf getenv pgscrn \ pgscr sigma fcn pgeras pgslct pgpage pgbbuf pgask \ pgsci pgsls pgsch pgscf pgslw pgvstd pgrnge pgswin \ pgbox pgmtxt pgline pgpt pgerry pgerrx pgtext pgpt1 \ pgsah pgarro pgebuf pgband ######## Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status $(BUILT_SOURCES) cd $(top_builddir) \ && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status install-LIBRARIES: $(LIBRARIES) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(libdir) @list='$(LIBRARIES)'; for p in $$list; do \ if test -f $$p; then \ echo " $(INSTALL_DATA) $$p $(DESTDIR)$(libdir)/$$p"; \ $(INSTALL_DATA) $$p $(DESTDIR)$(libdir)/$$p; \ else :; fi; \ done @$(POST_INSTALL) @list='$(LIBRARIES)'; for p in $$list; do \ if test -f $$p; then \ echo " $(RANLIB) $(DESTDIR)$(libdir)/$$p"; \ $(RANLIB) $(DESTDIR)$(libdir)/$$p; \ else :; fi; \ done uninstall-LIBRARIES: @$(NORMAL_UNINSTALL) list='$(IBRARIES)'; for p in $$list; do \ rm -f $(DESTDIR)$(libdir)/$$p; \ done libifeffit.a: $(OBJECTS) -rm -f libifeffit.a $(AR) cru libifeffit.a $(OBJECTS) $(RANLIB) libifeffit.a libxafs.a: $(XAFS_OBJ) -rm -f libxafs.a $(AR) cru libxafs.a $(XAFS_OBJ) $(RANLIB) libxafs.a .f.o: $(F77COMPILE) -c $< install-pkgdataDATA: $(pkgdata_DATA) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(pkgdatadir) @list='$(pkgdata_DATA)'; for p in $$list; do \ if test -f $(srcdir)/$$p; then \ echo " $(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(pkgdatadir)/$$p"; \ $(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(pkgdatadir)/$$p; \ else if test -f $$p; then \ echo " $(INSTALL_DATA) $$p $(DESTDIR)$(pkgdatadir)/$$p"; \ $(INSTALL_DATA) $$p $(DESTDIR)$(pkgdatadir)/$$p; \ fi; fi; \ done uninstall-pkgdataDATA: @$(NORMAL_UNINSTALL) list='$(pkgdata_DATA)'; for p in $$list; do \ rm -f $(DESTDIR)$(pkgdatadir)/config/$$p; \ done install-configDATA: $(pkgconfig_DATA) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(pkgdatadir)/config @list='$(pkgconfig_DATA)'; for p in $$list; do \ if test -f $(srcdir)/$$p; then \ echo " $(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(pkgdatadir)/config/$$p"; \ $(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(pkgdatadir)/config/$$p; \ else if test -f $$p; then \ echo " $(INSTALL_DATA) $$p $(DESTDIR)$(pkgdatadir)/config/$$p"; \ $(INSTALL_DATA) $$p $(DESTDIR)$(pkgdatadir)/config/$$p; \ fi; fi; \ done uninstall-configDATA: @$(NORMAL_UNINSTALL) list='$(pkgconfig_DATA)'; for p in $$list; do \ rm -f $(DESTDIR)$(pkgdatadir)/config/$$p; \ done install-includeHEADERS: $(include_HEADERS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(includedir) @list='$(include_HEADERS)'; for p in $$list; do \ if test -f "$$p"; then d= ; else d="$(srcdir)/"; fi; \ echo " $(INSTALL_DATA) $$d$$p $(DESTDIR)$(includedir)/$$p"; \ $(INSTALL_DATA) $$d$$p $(DESTDIR)$(includedir)/$$p; \ done uninstall-includeHEADERS: @$(NORMAL_UNINSTALL) list='$(include_HEADERS)'; for p in $$list; do \ rm -f $(DESTDIR)$(includedir)/$$p; \ done tags: TAGS ID: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ here=`pwd` && cd $(srcdir) \ && mkid -f$$here/ID $$unique $(LISP) TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) $(LISP) tags=; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \ || (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags $$unique $(LISP) -o $$here/TAGS) distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir) subdir = src/lib distdir: $(DISTFILES) here=`cd $(top_builddir) && pwd`; \ top_distdir=`cd $(top_distdir) && pwd`; \ distdir=`cd $(distdir) && pwd`; \ @for file in $(DISTFILES); do \ d=$(srcdir); \ if test -d $$d/$$file; then \ cp -pr $$/$$file $(distdir)/$$file; \ else \ test -f $(distdir)/$$file \ || ln $$d/$$file $(distdir)/$$file 2> /dev/null \ || cp -p $$d/$$file $(distdir)/$$file || :; \ fi; \ done # DEPS_MAGIC := $(shell mkdir .deps > /dev/null 2>&1 || :) # -include $(DEP_FILES) %.o: %.c $(COMPILE) -c $< check: all install-exec: install-LIBRARIES install-data: install-pkgdataDATA install-configDATA \ install-includeHEADERS install: all @$(MAKE) install-exec install-data uninstall: uninstall-LIBRARIES uninstall-pkgdataDATA \ uninstall-includeHEADERS installdirs: $(mkinstalldirs) $(DESTDIR)$(libdir) \ $(DESTDIR)$(pkgdatadir) $(DESTDIR)$(pkgdatadir)/config \ $(DESTDIR)$(includedir) clean: rm -f $(CONFIG_TEMPLATES) -test -z "$(LIBRARIES)" || rm -f $(LIBRARIES) -rm -f *.o core *.core -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -rm -f Makefile config.cache config.log stamp-h stamp-h[0-9]* -rm -f TAGS ID distclean: clean distclean-generic .PHONY: uninstall-LIBRARIES install-LIBRARIES \ uninstall-pkgdataDATA install-pkgdataDATA \ uninstall-configDATA install-configDATA \ uninstall-includeHEADERS install-includeHEADERS \ tags distdir check installcheck install-exec install-data install uninstall \ all installdirs distclean-generic clean distclean $(COM_H): $(COM_DEPS) $(PYTHON) $(COM_BUILD) $(COM_DEPS) depend: $(MAKEDEPEND) $(MAKEDEPEND): $(SOURCES) $(PERL) $(F77MAKER) -o $(MAKEDEPEND) -p IFF_ ifeffit.f cifeffit.f Config.mak: $(OBJECTS) @echo '#== Ifeffit build configuration:' > $@ @echo '# LIB_IFF = ifeffit library ' >> $@ @echo '# LIB_PLT = PGPLOT libraries' >> $@ @echo '# LIB_F77 = Fortran libraries' >> $@ @echo '# LIB_X11 = X Libaries' >> $@ @echo '# INC_IFF = location of ifeffit.h' >> $@ @echo 'LIB_IFF = -L$(prefix)/lib -lifeffit' >> $@ @echo 'LIB_PLT = $(PGPLOT_LIBS)' >> $@ @echo 'LIB_F77 = $(MN_FLIBS) ' >> $@ @echo 'INC_IFF = -I$(pkgdatadir)/config' >> $@ @echo '#== ' >> $@ @echo 'made $@' ## BR Mar 28 2002: I want to make a few comments on some cryptic crap ## I added to this target. The combination of explicitly setting ## LDDLFLAGS and adding perl's $Config{ldflags} to the value of LIBS ## is intended to move /usr/local/lib to a position after ## ../../src/lib in the command line argument to the linker. In this ## way the newly compiled libifeffit will be used in place of one that ## exists in the location of $Config{ldflags}. By default LDDLFLAGS ## will be set to $Config{lddlflags} which is "-shared " concatinated ## with $Config{ldflags}. The complicated join/sort/split thing is ## intended to offer a clumsy but servicable to solution to a mistake ## made by autoconf on many linux systems. Doing the join/sort/split ## thing will assure that the -l***'s will be placed after the -L***'s ## on the command line and the -lm will be placed after either -lg2c ## or -lf2c. Note that the join/sort/split could be fragile. Makefile.PL: Config.mak @echo '# -*-perl-*-' > $@ @echo '# Perl Makefile.PL auto-generated during Ifeffit build' >> $@ @echo '# This file may need some modifications, but should give' >> $@ @echo '# a good guess for how to build the Ifeffit extension.' >> $@ @echo '# ' >> $@ @echo "use lib '.';" >> $@ @echo "use ExtUtils::MakeMaker;" >> $@ @echo "use Config;" >> $@ @echo "WriteMakefile('NAME' => 'Ifeffit'," >> $@ @echo " 'SKIP' => ['test_dynamic']," >> $@ @echo " 'OBJECT' => 'ifeffit_wrap.o'," >> $@ @echo " 'INSTALLBIN' => '$(bindir)',">> $@ @echo " 'INSTALLSCRIPT' => '$(bindir)',">> $@ @echo " 'LDDLFLAGS' => '$(LDDLFLAGS_P5)'," >> $@ @echo " 'INC' => '-I../../src/lib -I$(pkgdatadir)/config'," >> $@ @echo " 'LIBS' =>[' -L../../src/lib '.\$$Config{ldflags}." >> $@ @echo " ' -lifeffit $(PGPLOT_LIBS) '." >> $@ @echo " join(\" \", (sort(split(\" \", \"$(MN_FLIBS)\" ))))] " >> $@ @echo " );" >> $@ @echo 'made $@' @cp $@ $(top_srcdir)/wrappers/perl/. # # python setup site_install.py: Config.mak @echo '# -*-python-*-' > $@ @echo '# Python site installation information' >> $@ @echo '# This file was auto-generated during the Ifeffit build' >> $@ @echo '# and may need some modifications.' >> $@ @echo '# ' >> $@ @echo 'bin_dir="$(bindir)"' > $@ @echo 'lib_iff="-L$(prefix)/lib -lifeffit "' >> $@ @echo 'lib_plt="$(PGPLOT_LIBS)"' >> $@ @echo 'lib_f77="$(MN_FLIBS) "' >> $@ @echo 'inc_iff="-I../../src/lib -I$(pkgdatadir)/config"' >> $@ @echo 'made $@' @cp $@ $(top_srcdir)/wrappers/python/. TclSetup.in: Config.mak @echo '# ' > $@ @echo '# Tcl Setup.in auto-generated during Ifeffit build' >> $@ @echo '# This file may need some modifications, but should give' >> $@ @echo '# a good guess for how to build the Ifeffit extension.' >> $@ @echo '# ' >> $@ @cat Config.mak >> $@ @echo 'LIB_IFF = -L../../src/lib -lifeffit ' >> $@ @echo 'INC_IFF = -I../../src/lib -I$(pkgdatadir)/config' >> $@ @echo 'CC = $(CCLD)' >> $@ @echo 'CFLAGS = $(CFLAGS)' >> $@ @echo 'LDFLAGS = $(LDFLAGS)' >> $@ @echo 'made $@' @cp $@ $(top_srcdir)/wrappers/tcl/. ifeffit-1.2.11d/src/lib/iff_init.f0000644000175000017500000001361210771740457015662 0ustar segresegre subroutine iff_init c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c initialize ifeffit implicit none include 'consts.h' include 'arrays.h' include 'encod.h' include 'fefdat.h' include 'fft.h' include 'keywrd.h' include 'pthpar.h' include 'spline.h' include 'echo.h' include 'feffit.h' save integer i, j, k, istrln character*64 pltdev, dstr*128, d1str*16, desc integer index, ii, ndevx, inter, tlen, dlen logical exist external istrln c c write tab delimited outputs (as opposed to space delimited) tabdel = .false. c consts for encoding/decoding: set the first few anyway! do 110 i = 10, mconst consts(i) = zero 110 continue do 120 i = 1, 11 consts(i) = i - 1 120 continue c c scalars do 630 i = 1, maxsca scanam(i) = blank scafrm(i) = blank scalar(i) = 0 do 610 j = 1, 2 icdsca(j,i) = 0 610 continue 630 continue c text strings do 640 i = 1, maxtxt txtnam(i) = blank text(i) = blank 640 continue c arrays do 650 j = 1, 8*maxsize_array array(j) = zero 650 continue do 653 j = 1, maxsize_array tmparr(j) = zero 653 continue npnext = 1 do 680 i = 1, maxarr arrnam(i) = blank arrfrm(i) = blank narray(i) = 0 nparr(i) = -1 c do 650 j = 1, maxpts c array(j,i) = 0 c 650 continue do 660 j = 1, 2 icdarr(j,i) = 0 660 continue 680 continue arrnam(maxarr) = undef_array c c default i/o file unit numbers c c /bkgdat/ spline.h initialization nsplin = 0 nautbk = 0 nrbkg = 0 nxmu = 0 nr1st = 0 theory = .false. eevary = .true. thefix = .false. final = .false. funnrm = .false. de0 = 0 e0 = 0 emin = 0 emax = 0 rbkg = 0 thessq = one thebkg = one step = 0 do 2100 i = 1, maxpts chie(i) = zero endat(i) = zero xmudat(i) = zero 2100 continue c c /pthpar/ itfeff = 0 inpthx = 0 do 2130 i = 1, mpthpr defalt(i) = zero 2130 continue defalt(jfps02) = one do 2150 i = 1, mfffil lffred(i) = .false. iffrec(i) = 0 iffused(i) = 0 degpth(i) = zero feffil(i) = blank 2150 continue c c /fft/ fft.h initialization call cffti(maxfft, wfftc) wftset = .true. c c /feffit/ do 2388 i = 1, 10 restraint(i,1) = undef 2388 continue fit_macro = undef ifit_mac = 0 do 2400 i = 1, mpaths iulist(i,1) = 0 2400 continue do 2450 i = 1, mvarys xguess(i) = zero xfinal(i) = zero delta(i) = zero correl(i,i) = zero chisqr = zero 2450 continue c c c history file iohist = 0 histry = .false. c macros do 3020 i = 1, mcline macstr(i) = undef imcptr(i) = 0 3020 continue do 3040 i = 1, macmax macnam(i) = blank mcdesc(i) = blank imacro(i) = 0 3040 continue do 3051 i = 1, mcdeep imac_save(i) = -1 3051 continue ioinp = 0 nfiles = 0 do 3060 i = 1, mfiles lfiles(i) = blank iunit(i) = 10 + i 3060 continue do 3090 i = 1, mmcarg do 3085 j = 1, mcdeep mcargs(j,i) = blank 3085 continue do 3087 j = 1, macmax mcargd(j,i) = blank 3087 continue 3090 continue c c command keys mac_define(1) = 0 mac_define(2) = 0 mac_define(3) = 0 mac_define(4) = 0 mac_exec = 0 nmacro = 0 nmac_stop = 0 do 8020 i = 1, mckeys ckeys(i) = undef chint(i) = blank 8020 continue c call seed_randmt(4359) c def_command = 'def' call pgqndt(ndevx) dstr = ' ' k = 1 do 800 i = 1, ndevx call pgqdt(i,d1str,tlen,desc,dlen,inter) call triml(d1str) call lower(d1str) j = istrln(d1str) dstr = dstr(1:k)//' '//d1str(1:j) k = istrln(dstr) 800 continue call triml (dstr) call settxt('plot_devices', dstr) call setsca('&plot_key_x',0.90d0) call setsca('&plot_key_y0',0.90d0) call setsca('&plot_key_dy',0.07d0) call fstop_init('ifeffit.err') return end ifeffit-1.2.11d/src/lib/iff_spline.f0000644000175000017500000003311610771740457016212 0ustar segresegre subroutine iff_spline(str) c c purpose: ifeffit: xafs background removal -- driver for spline c c arguments: c key command name to perform (spline) [in] c str command line to performd [in] c c notes: c 1. driver for spline c 2. if pre-edge appears to have not been done, it will be c done here c c requires: istrln, getsca, gettxt, setsca, settxt, bkeys, c echo, lower, str2dp, str2lg, spline, preedg c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'spline.h' save character*(*) str character*256 xmuarr, en_arr, name1, kstarr, cstarr, winnam*32 character*256 bkgarr, ksparr, chiarr, outstr, tmps2 double precision toler, xkmin, xkmax, xkw, dk1, dk2 double precision pre1, pre2, enor1, enor2, getsca double precision xknots, splstf, de_min, cnorm(3), po, ps double precision arr_e(maxpts), arr_x(maxpts) double precision arr_cs(maxpts), arr_ks(maxpts) double precision a_bkg(maxpts), a_xk(maxpts), a_chi(maxpts) integer npts_e, npts_x, npts_ks, npts_cs, nnorm parameter (de_min=1.d-5) integer jen, jxmu, ier, nknots, le, lx, l1, jdot, nclmp integer jbkg, jchi, i, k, istrln, jksp, jcst, jkst logical fnorm, fixstd, do_std, vary_e0, do_pre, is_kev logical find_step, find_e0, do_spl logical lclmp1, lclmp2 double precision xclmp1, xclmp2, r1stx character*64 defkey(3) integer ndfkey, npts_k, iterp integer iff_eval, iff_eval_dp, iff_eval_in, sort_xy external iff_eval, iff_eval_dp, iff_eval_in, sort_xy external getsca, istrln c call iff_sync lclmp1 = .false. lclmp2 = .false. nclmp = 5 iterp = 2 find_step = .true. vary_e0 = .true. find_e0 = .false. fnorm = .false. fixstd = .false. do_std = .false. do_pre = .true. do_spl = .true. is_kev = .false. c c get default values for pre-edge parameters from current scalar values splstf = 1.d-4 cc splstf = getsca('spl_stiff',1) e0 = getsca('e0',1) rbkg = getsca('rbkg',1) r1stx = 2.d0 toler = getsca('toler',1) xkmin = getsca('kmin_spl',1) xkmax = getsca('kmax_spl',1) xkw = getsca('kweight_spl',1) dk1 = getsca('dk1_spl',1) dk2 = getsca('dk2_spl',1) pre1 = getsca('pre1',1) pre2 = getsca('pre2',1) enor1 = getsca('norm1',1) enor2 = getsca('norm2',1) nnorm = 3 iprint = int(getsca('&print_level',0)) winnam = ' ' name1 = undef en_arr = undef xmuarr = undef kstarr = undef cstarr = undef call gettxt('kwindow', winnam) c xknots = zero c call bkeys(str, mkeys, keys, values, nkeys) c set default keywords for "undefined" sets c ie: the first two unkeyed values will take keys 'energy', 'xmu' ndfkey = 2 defkey(1) = 'energy' defkey(2) = 'xmu' c do 100 i = 1, nkeys k = istrln( keys(i)) c if (iprint.gt.3) print*, '>iff_spline|',keys(i)(1:k), c $ '|',values(i)(1:20),'|' if ((values(i).eq.undef).and.(i.le.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if ((keys(i).eq.'prefix').or.(keys(i).eq.'group')) then name1 = values(i) elseif ((keys(i).eq.'ee').or.(keys(i).eq.'e0')) then ier = iff_eval_dp(values(i),e0) find_e0 = .false. vary_e0 = .false. elseif (keys(i).eq.'rbkg') then ier = iff_eval_dp(values(i),rbkg) elseif (keys(i).eq.'r1st') then ier = iff_eval_dp(values(i),r1stx) elseif (keys(i).eq.'toler') then ier = iff_eval_dp(values(i),toler) elseif (keys(i).eq.'edge_step') then ier = iff_eval_dp(values(i),step) find_step = .false. elseif (keys(i).eq.'nknots') then ier = iff_eval_dp(values(i),xknots) elseif (keys(i).eq.'vary_e0') then call str2lg(values(i),vary_e0,ier) elseif (keys(i).eq.'spl_stiff') then ier = iff_eval_dp(values(i),splstf) elseif (keys(i).eq.'find_step') then call str2lg(values(i),find_step,ier) elseif (keys(i).eq.'find_e0') then call str2lg(values(i),find_e0,ier) elseif (keys(i).eq.'do_pre') then call str2lg(values(i),do_pre, ier) elseif (keys(i).eq.'do_spl') then call str2lg(values(i),do_spl, ier) elseif (keys(i).eq.'is_kev') then call str2lg(values(i),is_kev, ier) elseif (keys(i).eq.'fnorm') then call str2lg(values(i),fnorm,ier) elseif (keys(i).eq.'fixstd') then call str2lg(values(i),fixstd,ier) elseif (keys(i).eq.'kmin') then ier = iff_eval_dp(values(i),xkmin) elseif (keys(i).eq.'kmax') then ier = iff_eval_dp(values(i),xkmax) elseif (keys(i).eq.'kwindow') then winnam = values(i) call lower (winnam) elseif (keys(i).eq.'kweight') then ier = iff_eval_dp(values(i),xkw) elseif (keys(i).eq.'dk1') then ier = iff_eval_dp(values(i),dk1) elseif (keys(i).eq.'dk2') then ier = iff_eval_dp(values(i),dk2) elseif (keys(i).eq.'dk') then ier = iff_eval_dp(values(i),dk1) dk2 = dk1 elseif (keys(i).eq.'pre1') then ier = iff_eval_dp(values(i),pre1) elseif (keys(i).eq.'pre2') then ier = iff_eval_dp(values(i),pre2) elseif (keys(i).eq.'norm1') then ier = iff_eval_dp(values(i),enor1) elseif (keys(i).eq.'norm2') then ier = iff_eval_dp(values(i),enor2) elseif (keys(i).eq.'norm_order') then ier = iff_eval_in(values(i), nnorm) elseif (keys(i).eq.'interp') then iterp = 2 elseif (keys(i).eq.'nclamp') then ier = iff_eval_in(values(i), nclmp) elseif (keys(i).eq.'clamp1') then lclmp1 = .true. call str2dp(values(i),xclmp1, ier) elseif (keys(i).eq.'clamp2') then lclmp2 = .true. call str2dp(values(i),xclmp2, ier) elseif (keys(i).eq.'energy') then en_arr = values(i) call lower(en_arr) elseif (keys(i).eq.'xmu') then xmuarr = values(i) call lower(xmuarr) elseif (keys(i)(1:7).eq.'chi_std') then cstarr = values(i) call lower(cstarr) elseif (keys(i)(1:5).eq.'k_std') then kstarr = values(i) call lower(kstarr) else messg = keys(i)(1:k)//' " will be ignored' call warn(1,' *** spline: unknown keyword " '//messg) end if 100 continue do_std = ((cstarr.ne.undef).and.(kstarr.ne.undef)) nknots = int(xknots) c get/resolve array names c check that name1 exists. c otherwise, get it from xmuarr, if available c otherwise, give up. cc print*, ' spline : name1 = ', name1(1:40) if (name1.eq.undef) then jdot = index(xmuarr,'.') if (jdot.ne.0) name1 = xmuarr(1:jdot-1) endif if (name1.eq.undef) then jdot = index(en_arr,'.') if (jdot.ne.0) name1 = en_arr(1:jdot-1) endif if (name1.eq.undef) then call warn(2, ' spline: can''t determine group name') return endif call fixnam(name1,1) call lower(name1) jdot = istrln(name1) c input array names: energy, xmu -- both required jen = iff_eval(en_arr, name1, arr_e, npts_e) jxmu = iff_eval(xmuarr, name1, arr_x, npts_x) jkst = iff_eval(kstarr, name1, arr_ks, npts_ks) jcst = iff_eval(cstarr, name1, arr_cs, npts_cs) c cc print*, 'spline ', jen, jxmu, jkst, jcst if (jen.le.0) then call warn(2, ' spline: no energy array?') return elseif(jxmu.le.0) then call warn(2, ' spline: no xmu array?') return elseif(npts_e.ne.npts_x) then call warn(2, ' spline: energy and xmu are different length?') return end if c c if needed, call pre_edge for pre_edge subtraction c if ((e0.le.arr_e(1)).or.(e0.ge.arr_e(npts_e))) find_e0 = .true. c require that endat be monotonically increasing: if not, sort it ier = sort_xy(arr_e, arr_x, npts_e, tiny) if (ier .eq. 1) then call warn(1, ' spline: energy data appears out of order') cc print*, 'npts_e = ', npts_e endif c if obvious, or explicitly stated, switch KeV to eV: if (is_kev .or. $ ((arr_e(1).le.90).and.(arr_e(npts_e).le.90))) then call warn(1, ' spline: energy data appears to be in keV') call kev2ev(arr_e, npts_e) endif cc print*, ' find_e0 vary_e0 = ', find_e0, vary_e0, do_pre, e0 if (do_pre .or. (abs(step).le.tiny) .or. find_e0) then le = max(1, istrln(en_arr)) lx = max(1, istrln(xmuarr)) l1 = max(1, istrln(name1)) call setsca('e0', e0 ) call setsca('pre1', pre1 ) call setsca('pre2', pre2 ) call setsca('norm1', enor1 ) call setsca('norm2', enor2 ) tmpstr = ', group = '//name1(1:l1) cc print*, ' find_e0 in pre_edge: ', find_e0, e0 l1 = istrln(tmpstr) if (find_e0) then tmps2 = ', find_e0=true' else write(tmps2,'(a,f10.3)') ', e0 =',e0 endif tmpstr = tmpstr(1:l1)//tmps2 l1 = istrln(tmpstr) if (abs(step).ge.tiny) then write(tmps2,'(a,f14.5)') ', edge_step =', step tmpstr = tmpstr(1:l1)//tmps2 endif l1 = istrln(tmpstr) outstr = 'energy='//en_arr(1:le)//', xmu=' $ //xmuarr(1:lx)//tmpstr(1:l1) l1 = istrln(outstr) write(tmps2,'(a,f13.4,a,f13.4,a,f13.4,a,f13.4,a,i3)') $ ', pre1=', pre1,',pre2=',pre2, $ ',norm1=',enor1,',norm2=',enor2, ',norm_order=',nnorm lx = istrln(tmps2) outstr = outstr(1:l1)//tmps2(1:lx) if (iprint.gt.7) then call echo(' SPLINE: sending pre_edge:') call echo(' : '//outstr) end if call iff_pre_edge(outstr) end if c c k and chi arrays for standard -- if (do_std) then if (jkst.le.0) then call warn(2, ' spline: could not find k_std array?') return end if if (jcst.le.0) then call warn(2, ' spline: could not find chi_std array?') return end if end if c now the real call to spline call spline(arr_e, arr_x, npts_e, arr_ks, arr_cs, npts_ks, $ e0, rbkg, r1stx,toler, nknots, xkmin, xkmax,xkw,dk1,dk2, $ winnam, find_step, fnorm, enor1, enor2, pre1,pre2, step, $ lclmp1, xclmp1, lclmp2, xclmp2, nclmp, $ cnorm, fixstd, do_std, vary_e0, splstf, do_spl, $ a_bkg, npts_k, a_xk, a_chi) c c output array names: bkg, k, chi call set_array('bkg', name1, a_bkg, npts_e, 1) call set_array('k', name1, a_xk, npts_k, 1) call set_array('chi', name1, a_chi, npts_k, 1) c c po = getsca('pre_offset',1) ps = getsca('pre_slope',1) do 200 i = 1, npts_e tmparr(i) = (arr_x(i) - po - ps * arr_e(i))/step 200 continue call set_array('norm', name1, tmparr, npts_e, 1) xknots = nknots call setsca('nknots', xknots) call setsca('rbkg', rbkg ) call setsca('e0', e0 ) call setsca('kweight_spl', xkw) call setsca('kmin_spl', xkmin ) call setsca('kmax_spl', xkmax ) call setsca('dk1_spl', dk1 ) call setsca('dk2_spl', dk2 ) call setsca('toler', toler ) call setsca('edge_step', step ) call setsca('norm_c0', cnorm(1)) call setsca('norm_c1', cnorm(2)) call setsca('norm_c2', cnorm(3)) return c end subroutine iff_spline end ifeffit-1.2.11d/src/lib/ifeffit.f0000644000175000017500000002536111024017134015470 0ustar segresegre integer function ifeffit(string) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: main ifeffit function. c parse and send string as a command to one of c the ifeffit subroutines c arguments: string command line for ifeffit [in] c returns: 0 success c -2 in the middle of defining a macro c -1 get another line c 1 normal exit c >1 failure of some sort c c notes: see documentation for further discussion c c copyright (c) 1998 matt newville c c Leaving there and proceeding for three days towards the east, you c reach Diomira, a city with sixty silver domes, bronze statues of c all the gods, streets paved with lead, a crystal theater, a golden c cock that crows each morning on a tower. All these beauties will c already be familiar to the visitor, who has seen them also in c other cities. But the special quality of this city for the man c who arrives there on a September evening, when the days are c growing shorter and the multicolored lamps are lighted all at once c at the doors of the food stalls and from a terrace a woman's voice c cries ooh!, is that he feels envy toward those who now believe c they have once before lived an evening identical to this and who c think they were happy, that time. c implicit none include 'consts.h' include 'keywrd.h' include 'echo.h' save double precision getsca character*2048 line, argu, string*(*), val, key*128 integer ilen, ik1, ik2, init, istrln, jmac, iff_load integer iffcmd_exec logical wrthis, isamac external istrln, getsca, isamac, iff_load, iffcmd_exec data init /1/ c c init>0 means to initialize c initial string may be used to alter behavior: c &quiet : suppress all screen echo's, even startup message c if (init .gt. 0) then init = 0 ilen = 0 jmac = 0 argu = string call iff_init call echo_init call iff_plot_init(-1) call iff_config call triml(argu) if (argu(1:6) .eq. '&quiet') then call setsca( '&screen_echo', zero) i_echo = 0 endif c end if line = string argu = ' ' wrthis = .true. cc print*, 'str = ', line(1:40) c c get next command line c getline converts blank lines and comment lines to "def", c so we check here that there really is an argument to c avoid repeated trivial processing ifeffit = -1 call iff_getline(line, key, val, argu, ilen) ik1 = istrln(key) ik2 = istrln(argu) cc print*, ' =>', key(1:ik1), ' <', argu(1:ik2),'> ', ilen if ((key.eq.'def').and.(argu.eq.' ').and. $ (ilen.ge.0)) ilen = 0 c c if we're in the middle of a macro definition ... if (mac_define(1).ge.1) then call iff_macro_def(line) cc print*, ' setting ifeffit from ', ifeffit, ' to -2' ifeffit = -2 call triml(line) call lower(line) if (line(1:9).eq.'end macro') then ifeffit = 0 mac_define(1) = -1 endif return endif c c if ilen < 0, the line will be continued to the next line: cc print*, ' ilen = ', ilen if (ilen.eq.0) ifeffit = 0 if (ilen.le.0) return ifeffit = 3 iprint= int(getsca('&print_level',0)) c c=== execute ifeffit commands based on keyword ===c c c c first check for meta-commands that cannot occur within macros c cc print*, 'IFF key = ', key(1:30), jmac, isamac(key,jmac) c execute a macro if (isamac(key,jmac)) then cc print*, ' jmac= ', isamac(key,jmac), jmac call iff_macro_do(jmac, argu, iprint,wrthis) wrthis = .false. key = ' ' argu = ' ' c define a macro (more precisly, __begin__ a macro definition) else ifeffit = iffcmd_exec(key,argu,wrthis) endif c=== write history === c and information about argument line if (histry.and.wrthis) then write(val, '(1x,4a)') key(1:ik1),' (',argu(1:ik2),')' if (iprint.ge.19) call echo(val) ilen = istrln(val) write(iohist, '(a)') val(1:ilen) endif c clean up used line -- we're done line = ' '// $ ' '// $ ' '// $ ' '// $ ' ' call sclean(line) cc print*, 'ifeffit ret ', ifeffit if ((ifeffit.ne.-2).and.(ifeffit.ne.1)) ifeffit = 0 c end function ifeffit return end integer function iffcmd_exec(key,argu,wrthis) implicit none include 'consts.h' include 'keywrd.h' include 'echo.h' save character*2048 argu, key*128 logical wrthis integer ilen, istrln, iff_load external istrln, iff_load ccc print*, ' iffcmd ', key(1:20) iffcmd_exec = 0 if (key .eq. 'macro') then call iff_macro_def(argu) iffcmd_exec = -2 wrthis = .false. c quit is a special case elseif ((key .eq. 'quit').or.(key .eq. 'exit')) then call iff_done iffcmd_exec = 1 return c load: read a set of command lines from a file elseif (key .eq. 'load') then iffcmd_exec = iff_load(argu) if (iffcmd_exec.eq.1) return wrthis = .false. elseif (key .eq. 'history') then call iff_history(argu) wrthis = .false. c data i/o commands elseif (key .eq. '__test') then call iff_test(argu) elseif (key .eq. 'read_data') then call iff_rddata(argu) elseif (key .eq. 'write_data') then call iff_wrdata(argu) elseif (key .eq. 'save') then call iff_save(argu) elseif (key .eq. 'restore') then call iff_restore(argu) c set/show arrays and scalars elseif (key .eq. 'log') then call iff_log(argu) elseif (key .eq. 'show') then call iff_show(argu,0) elseif (key .eq. 'print') then call iff_print(argu) elseif (key .eq. 'echo') then call iff_echo(argu,0) elseif (key .eq. 'pause') then call iff_echo(argu,1) elseif ((key .eq. 'def').or.(key .eq. 'define').or. $ (key .eq. 'set').or.(key .eq. 'guess')) then call iff_set(key,argu,wrthis) elseif (key .eq. 'unguess') then call iff_unguess(argu) elseif (key .eq. 'erase') then call iff_erase(argu) elseif ((key .eq. 'rename')) then call iff_rename(argu) c data manipulation commands elseif ((key .eq. 'pre_edge')) then call iff_pre_edge(argu) elseif ((key .eq. 'bkg_cl')) then call iff_bkg_cl(argu) elseif ((key .eq. 'spline').or.(key .eq. 'autobk')) then call iff_spline(argu) elseif (key .eq. 'random') then call iff_random(argu) elseif ((key .eq. 'fft').or.(key .eq. 'fftf').or. $ (key .eq. 'bft').or.(key .eq. 'fftr')) then call iff_fft(key,argu) elseif (key .eq. 'window') then call iff_window(argu) elseif (key .eq. 'path') then call iff_path(argu) elseif (key .eq. 'get_path') then call iff_getpath(argu) elseif (key .eq. 'ff2chi') then call iff_ff2chi(argu) elseif (key .eq. 'feffit') then call iff_feffit(argu) elseif (key .eq. 'chi_noise') then call iff_chieps(argu) elseif (key .eq. 'f1f2') then call iff_f1f2(argu) elseif (key .eq. 'diffkk') then call iff_diffkk(argu) elseif (key .eq. 'minimize') then call iff_minimize(argu) elseif (key .eq. 'correl') then call iff_correl(argu) elseif (key .eq. 'error') then call iff_uncert(argu) elseif (key .eq. 'sync') then call iff_sync elseif (key .eq. 'reset') then call iff_init call echo_init call iff_plot_init(1) call iff_config c c plotting commands elseif ((key .eq. 'plot').or. $ (key .eq. 'overplot').or.(key.eq.'replot')) then call iff_plot(argu) elseif (key .eq. 'newplot') then call iff_plot('new=1, '//argu) elseif (key .eq. 'plot_marker') then call iff_plotmarker(argu) elseif (key .eq. 'plot_text') then call iff_plottext(argu) elseif (key .eq. 'plot_arrow') then call iff_plotarrow(argu) elseif (key .eq. 'zoom') then call iff_zoom(argu) elseif (key .eq. 'cursor') then call iff_cursor(argu) elseif (key .eq. 'color') then call iff_color(argu) elseif (key .eq. 'linestyle') then call iff_pstyle(argu) c comment is used to write argu to history file only as a comment elseif (key .eq. 'comment') then if (histry) then call rmquot(argu) ilen = istrln(argu) write(iohist, '(1x,2a)') '# '//argu(1:ilen) end if wrthis = .false. else ilen = istrln(key) call warn(1,'unknown command: '//key(1:ilen)) endif return end ifeffit-1.2.11d/src/lib/encod.h0000644000175000017500000000537010771740457015167 0ustar segresegrec{ifencod.h -*-fortran-*- integer jscale, jconst, jlocal c c note: make sure jscale > maxarr and jconst-jscale > maxsca c icode map: c 1 -> jscale: named arrays 1 -> 2**20 c 1+jscale -> jconst: named scalars 2**20 -> 2**24 c 1+jconst -> 2**31 : constant numbers parameter(jscale= 2**20, jconst= 8*jscale) c integer ileft, iright, icomma integer iexp, ilog, ilog10, isqrt, isin, icos, itan, iabs integer iasin, iacos, iatan, isinh, icosh, itanh, icoth integer iadd, isub, imul, idiv, iy2x, ineg integer jadd, jsub, jmin, jmax, jdebye, jeins integer jpenl1, jpenl2, jpenl3 integer jceil, jfloor, jvsum, jvprod, jnpts, jderiv, jsmoo integer jterpl, jterpq, jterps, jterpa, jrebin integer jndarr, j1sarr, j0sarr, jrngar, jasign integer jgamma, jlgamm, jerf, jerfc, jerfcx integer jlconv, jgconv, jkktf, jkktr, jfftf, jfftr integer jjoina, jslica, jnofxa parameter(ileft= -6, iright= -7, icomma= -8) c 1-component math functions c iop range: -1000 to -3000 parameter(iexp= -1010, ilog= -1012, ilog10= -1013, $ isqrt = -1015, $ isin = -1023, icos = -1024, itan= -1025, $ iasin = -1033, iacos = -1034, iatan= -1035, $ isinh = -1043, icosh = -1044, itanh= -1045, $ iabs = -1101, ineg = -1102, icoth= -1055, $ jderiv= -1210, jsmoo = -1220, jasign=-1230) parameter(jgamma=-2005, jlgamm=-2006, $ jerf=-2010, jerfc=-2011, jerfcx=-2012) c 2-component math functions c iop range: -5000 to -6000 parameter(iadd= -5000, isub= -5001, imul= -5002, $ idiv= -5003, iy2x= -5004) parameter( jadd= -7101, jsub= -7102, $ jmin= -7103, jmax= -7104) c special math function -- call their own routines c iop range: -9000 to -10000 parameter(jdebye=-9020, jeins=-9021, jrngar=-9030 , $ jndarr=-9031, j0sarr=-9032, j1sarr=-9033, $ jjoina=-9041, jslica=-9042, jnofxa=-9043, $ jterpl=-9120, jterpq=-9121, jterps=-9122, $ jterpa=-9123, jrebin=-9125) parameter(jlconv=-9201, jgconv=-9202, $ jkktf =-9210, jkktr =-9211, $ jfftf =-9213, jfftr =-9214) parameter(jpenl1 = -9221,jpenl2 = -9222, jpenl3 = -9223) integer jxgaus, jxlore, jxvoit, jxcube, jxstep c iop range: -9000 to -10000 parameter(jxgaus = -9301, jxlore = -9302, jxvoit = -9303, $ jxcube = -9304, jxstep = -9305) c 1 component vector math: 1 array argument, returns scalar. c iop range: -30000 to -32000 parameter (jceil=-30001, jfloor=-30002, jnpts=-30003, $ jvsum=-30004, jvprod=-30005) double precision expmax parameter (expmax= 85.d0) c} ifeffit-1.2.11d/src/lib/iff_history.f0000644000175000017500000000523410771740457016421 0ustar segresegre subroutine iff_history(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c manage history of commands for ifeffit implicit none include 'consts.h' include 'keywrd.h' save character*(*) str, argu*256, defkey(2)*64 integer i, ndfkey, k, istrln external istrln argu = str c call bkeys(str, mkeys, keys, values, nkeys) ndfkey = 1 defkey(1) = 'file' do 100 i = 1, nkeys k = istrln( keys(i)) if ((values(i).eq.undef).and.(keys(i).ne.'off') $ .and.(i.le.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if (keys(i).eq.'off') then close(iohist) histry = .false. call settxt('historyfile',' ') elseif (keys(i).eq.'file') then tmpstr = values(i) call settxt('historyfile',tmpstr) call newfil(tmpstr, iohist) histry = .true. if (iohist.le.0) then call warn(3,'bad open of history file') histry = .false. end if elseif (histry) then call gettxt('historyfile',tmpstr) messg = ' history file = ' // tmpstr call echo(messg) else call echo(' history is off') end if 100 continue tmpstr = ' ' return end ifeffit-1.2.11d/src/lib/iff_config.f0000644000175000017500000001274010771740457016165 0ustar segresegre subroutine iff_config c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c initialize ifeffit implicit none include 'consts.h' include 'arrays.h' include 'encod.h' include 'fefdat.h' include 'fft.h' include 'keywrd.h' include 'pthpar.h' include 'spline.h' include 'echo.h' include 'feffit.h' save integer i, j, ilen, istrln, nwords character*128 build, envvar*32, pgdev*16, words(2) character*256 envval, sysdir character*512 inifile, sfile double precision x logical exist external istrln c envval = '' sysdir = '' sfile = '' build = '' include 'com.h' include 'sys.h' c c---------------------------------------------------------------- c system build information, and setting of 'environmental variables' c c pre-load a few general floating point scalars x = maxpts * 1.d0 call setsca( '&maxpts', x) x = maxheap_array * 1.d0 call setsca( '&heap_free', x) call setsca( '&max_scalars', maxsca*1.d0) call setsca( '&max_arrays', maxarr*1.d0) call setsca( '&max_strings', maxtxt*1.d0) call setsca( '&max_paths', mpaths*1.d0) call setsca( '&max_varys', mvarys*1.d0) call setsca( '&max_data_sets', mdata*1.d0) call setsca( '&max_output_cols', max_outarr*1.d0) call setsca( '&max_iteration', 250.d0) call setsca( '&n_scalars', zero) call setsca( '&n_arrays', zero) call setsca( '&n_strings ', zero) call setsca( '&n_guess', zero) call setsca( '&n_scalars_set', zero) call setsca( '&n_scalars_def', zero) call setsca( '&n_arrays_set', zero) call setsca( '&n_arrays_def', zero) call setsca( '&print_level', zero) call setsca( '&pause_ignore', zero) call setsca( '&echo_lines', zero) call setsca( '&screen_echo', zero) call setsca( '&sync_level', 4.d0) call setsca( '&status', zero ) call setsca( 'pi', pi) call setsca( 'etok', etok) call setsca( 'correl_min', 0.05d0) call settxt('plot_xlabel', ' ') call settxt('plot_ylabel', ' ') call settxt('plot_label', ' ') call settxt('plot_title', ' ') c c default file and array names call settxt( 'group', 'my') call settxt( 'commentchar', '#') call settxt( '&build ', build) c c Environmental Variable IFEFFIT_DIR -> Program Variable &install_dir c which can overwrite location of data and startup files envvar = 'IFEFFIT_DIR' ilen = istrln(envvar) call getenv(envvar(1:ilen), envval) call triml(envval) call sclean(envval) ilen = istrln(envval) if (ilen.gt.1) sysdir = envval call settxt('&install_dir', sysdir) envvar = 'PGPLOT_DEV' ilen = istrln(envvar) call getenv(envvar(1:ilen), envval) call triml(envval) call sclean(envval) ilen = istrln(envval) if (ilen.gt.1) pgdev = envval call settxt('plot_device', pgdev) c c load system and personal startup files, if found nwords = 2 words(1)='' words(2)='' call bwords(inifile, nwords, words) if ((sysdir.ne.'').and.(istrln(words(1)).ge.2)) then i = istrln(sysdir) j = istrln(words(1)) sfile = sysdir(1:i)//'/'//words(1)(:j) inquire(file = sfile, exist=exist) if (exist) then i = istrln(sfile) sfile = '"'//sfile(1:i)//'"' call iff_load(sfile) endif endif c c load user startup file, if found envvar = 'HOME' ilen = istrln(envvar) call getenv(envvar(1:ilen), sysdir) if (sysdir.eq.'') then call gettxt('&install_dir', sysdir) endif if ((sysdir.ne.'').and.(istrln(words(2)).ge.2)) then i = istrln(sysdir) j = istrln(words(2)) sfile = sysdir(1:i)//'/'//words(2)(:j) inquire(file = sfile, exist=exist) if (exist) then i = istrln(sfile) sfile = '"'//sfile(1:i)//'"' call iff_load(sfile) endif endif return end ifeffit-1.2.11d/src/lib/com.h0000644000175000017500000000774410771740457014664 0ustar segresegrec{com.h -*-fortran-*- ckeys(1) = '__test' chint(1) = 'test function : do not use!' ckeys(2) = 'bkg_cl' chint(2) = 'remove pre_edge from xmu(E) data with CL data' ckeys(3) = 'chi_noise' chint(3) = 'calculate noise in a chi(k) spectrum' ckeys(4) = 'color' chint(4) = 'update the plotting color table' ckeys(5) = 'comment' chint(5) = 'write a comment into the history buffer' ckeys(6) = 'correl' chint(6) = 'set two-variable correlation to a Program Variable' ckeys(7) = 'cursor' chint(7) = 'get the coordinates of the cursor' ckeys(8) = 'def' chint(8) = 'define the expression and value for a variable' ckeys(9) = 'diffkk' chint(9) = 'differential Kramers-Kronig transform' ckeys(10) = 'echo' chint(10) = 'write a message to the screen' ckeys(11) = 'erase' chint(11) = 'erase a variable' ckeys(12) = 'error' chint(12) = 'generate the uncertainty in a Program Variable' ckeys(13) = 'exit' chint(13) = 'exit the program' ckeys(14) = 'f1f2' chint(14) = 'calculate f1 and f2 from Cromer-Libermann tables' ckeys(15) = 'feffit' chint(15) = 'execute a feff-based fit to chi(k) data' ckeys(16) = 'ff2chi' chint(16) = 'convert list of feff paths to chi(k)' ckeys(17) = 'fftf' chint(17) = 'forward fast fourier transform' ckeys(18) = 'fftr' chint(18) = 'reverse fast fourier transform' ckeys(19) = 'get_path' chint(19) = 'convert path to Program Variables' ckeys(20) = 'guess' chint(20) = 'define a variable as a fitting parameter' ckeys(21) = 'history' chint(21) = 'set up history buffer and file' ckeys(22) = 'linestyle' chint(22) = 'update an index in the plotting style table' ckeys(23) = 'load' chint(23) = 'load a file of commands and execute them' ckeys(24) = 'log' chint(24) = 'write screen messages to an output file' ckeys(25) = 'macro' chint(25) = 'define a macro' ckeys(26) = 'minimize' chint(26) = 'general fitting' ckeys(27) = 'newplot' chint(27) = 'start a new plot' ckeys(28) = 'path' chint(28) = 'define a feff scattering path' ckeys(29) = 'pause' chint(29) = 'wait for user input' ckeys(30) = 'plot' chint(30) = 'general 2-d plot command' ckeys(31) = 'plot_arrow' chint(31) = 'put an arrow or line on the plot' ckeys(32) = 'plot_marker' chint(32) = 'put a single marker on the plot' ckeys(33) = 'plot_text' chint(33) = 'put a line of text on the plot' ckeys(34) = 'pre_edge' chint(34) = 'remove pre_edge from xmu(E) data' ckeys(35) = 'print' chint(35) = 'print command' ckeys(36) = 'quit' chint(36) = 'quit program' ckeys(37) = 'random' chint(37) = 'generate arrays of random numbers' ckeys(38) = 'read_data' chint(38) = 'read a data file' ckeys(39) = 'rename' chint(39) = 'rename a variable' ckeys(40) = 'reset' chint(40) = 're-initialize program' ckeys(41) = 'restore' chint(41) = 'restore session from save file' ckeys(42) = 'save' chint(42) = 'save session (all program variables and macros)' ckeys(43) = 'set' chint(43) = 'set the constant value for a variable' ckeys(44) = 'show' chint(44) = 'show the value of a variable or expression' ckeys(45) = 'spline' chint(45) = 'determine background spline (autobk algorithm)' ckeys(46) = 'sync' chint(46) = 'synchronize expressions for arrays' ckeys(47) = 'unguess' chint(47) = 'convert all *guess* to *set*' ckeys(48) = 'window' chint(48) = 'create FT window (k->R) without doing FT' ckeys(49) = 'write_data' chint(49) = 'write a data file' ckeys(50) = 'zoom' chint(50) = 'choose plotting window with cursor' c} ifeffit-1.2.11d/src/lib/iff_unguess.f0000644000175000017500000000340510771740457016407 0ustar segresegre subroutine iff_unguess(argu) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2002 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: convert all 'guess'ed program variables to 'set' c implicit none include 'consts.h' include 'arrays.h' include 'encod.h' save character*(*) argu integer i do 100 i = 1, maxsca if ((scanam(i).ne.blank) .and. (icdsca(1,i).eq.-1)) then call setsca(scanam(i),scalar(i)) endif 100 continue call iff_sync return end ifeffit-1.2.11d/src/lib/iff_diffkk.f0000644000175000017500000001172410771740457016157 0ustar segresegre subroutine iff_diffkk(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: do a differential Kramers-Kronig transform c arguments: c str command line to performd [in] c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'spline.h' save character*(*) str character*256 path, defkey(3)*64 character*256 en_arr, f2_arr, name1 double precision a_e(maxpts), tmpx(maxpts) double precision a_f1(maxpts), a_f2(maxpts) double precision ewid, estep logical do_f1, do_f2 integer jen, jf, ier, i, k, istrln, ilen integer ndfkey, npts, iret, iz, jdot integer iff_eval, iff_eval_dp, iff_eval_in integer clcalc external iff_eval, iff_eval_dp, iff_eval_in external istrln, clcalc c call iff_sync call gettxt('&install_dir', path) call warn(2, ' WARNING: diffkk is not working correctly ') estep = one do_f1 = .true. do_f2 = .false. ilen = istrln(path) path = path(1:ilen)//'/cldata/' ilen = istrln(path) iz = 1 name1 = undef do i = 1, maxpts a_e(i) = zero a_f1(i) = zero a_f2(i) = zero enddo ewid = zero call bkeys(str, mkeys, keys, values, nkeys) ndfkey = 2 defkey(1) = 'iz' defkey(2) = 'energy' do 100 i = 1, nkeys k = istrln( keys(i)) if ((values(i).eq.undef).and.(i.le.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if ((keys(i).eq.'iz').or.(keys(i).eq.'z')) then ier = iff_eval_in(values(i),iz) elseif (keys(i).eq.'group') then name1 = values(i) elseif (keys(i).eq.'width') then call str2dp(values(i),ewid, ier) elseif (keys(i).eq.'do_f1') then call str2lg(values(i),do_f1, ier) elseif (keys(i).eq.'do_f2') then call str2lg(values(i),do_f2, ier) elseif (keys(i).eq.'energy') then en_arr = values(i) call lower(en_arr) elseif (keys(i).eq.'f2') then f2_arr = values(i) call lower(f2_arr) else messg = keys(i)(1:k)//' " will be ignored' call warn(1,' *** diffkk: unknown keyword " '//messg) end if 100 continue c c get/resolve array names if (name1.eq.undef) then jdot = index(en_arr,'.') if (jdot.ne.0) name1 = en_arr(1:jdot-1) endif if (name1.eq.undef) then call warn(2, ' diffkk: can''t determine group name') return endif call fixnam(name1,1) call lower(name1) jdot = istrln(name1) jen = iff_eval(en_arr, name1, a_e, npts) jen = iff_eval(f2_arr, name1, a_f2, npts) if ((npts.ge.1) .and. (iz.ge.4)) then cc iret = clcalc(iz, path, npts, a_e, a_f1, a_f2) call kkmclr(npts, a_e, a_f2, a_f1) endif c c make array of f1 if (do_f1) then if (ewid.gt.zero) then call conv_lor(ewid, npts, a_e, a_f1,estep,tmpx) call set_array('f1', name1, tmpx, npts, 1) else call set_array('f1', name1, a_f1, npts, 1) endif endif c c make array of f2 if (do_f2) then if (ewid.gt.zero) then call conv_lor(ewid, npts, a_e, a_f2,estep,tmpx) call set_array('f2', name1, tmpx, npts, 1) else call set_array('f2', name1, a_f2, npts, 1) endif endif c c return c end subroutine diffkk end ifeffit-1.2.11d/src/lib/iff_get_line.f0000644000175000017500000001661110771740457016507 0ustar segresegre subroutine iff_getline(str, key, val, arg, ilen) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: manange a single full command line from multi-line c inputs, and parse input line to do the following: c -1- determine keyword, value, argument: c if the first word is in the list _ckeys_, then c _key_ is set to that, _arg_ is the rest of the c line, and _val_ is the first word of _arg_. c if the first word is not in _ckeys_, then c _key_ = 'def' and _arg_ = whole line. c ckeys held in common /comkey/ c -2- manage a long command, over multiple input lines: c if a _key_ is followed by '(', the command line c will not terminate until an "unprotected" ')'. c -3- remove end-of-line comments. c c arguments: c str next input line [in] c key keyword (1st word) [out] c val 1st word of arg [out] c arg argument (everything except 1st word) [out] c ilen length of output line [in/out] c on output, ilen<0 if line is to be continued c c notes: c 1. handling multi-line commands: c a) a line will be continued to the next line if the c full line contains unmatched (unprotected) parens. c b) if a line is too be continued, ilen is set to -ilen c c 2. '!', '#', and '%' are end-of-line comments, but can be c protected by matching " ", ' ', or { }. c c 3. setting ilen=0 will initialize a bunch of stuff, and c is probably desirable on first call. c c If on arriving at Trude I had not read the city's name written c in big letters, I would have thought I was landing at the same c airport from which I had taken off. ... Why come to Trude? I c asked myself. And I already wanted to leave. c implicit none include 'consts.h' include 'keywrd.h' character*(*) str, val, arg, key character*2048 line, tmp, words(2), tmpkey character s*1, copen*3, cclos*3, ceol*3 integer itmp, istrln, ilen, i, iprot integer iparen,ikey,nwords, ip logical newlin, do_final_trim common /icomnd/ iprot, iparen, itmp, newlin common /ccomnd/ tmp, tmpkey, copen, cclos, ceol save external istrln c initialization arg = blank key = blank val = blank if (ilen.eq.0) then newlin = .true. iprot = 0 iparen = 0 ilen = 0 tmp = blank tmpkey = blank copen = '{''"' cclos = '}''"' ceol = '!#%' end if c c clean up input line line = str call sclean(line) call triml(line) ilen = istrln(line) if (ilen.lt.0) then ilen = -itmp return end if c c if we're getting a new line : if (newlin) then tmpkey = blank tmp = blank iprot = 0 iparen = 0 itmp = 1 c get the candidate keyword, and determine if the line is c a "single-line" or "multi-line" command ikey = 0 do 20 i = 1, ilen s = line(i:i) if (s.eq.'(') then ikey = i - 1 go to 22 elseif ((s.eq.blank).and.(ikey.eq.0) ) then ikey = i - 1 elseif ((s.ne.blank).and.(ikey.ne.0)) then go to 22 end if 20 continue ikey = ilen 22 continue c now check the candidate keyword against the known list c if not found, key is set to 'def', and the whole line is kept key = line(1:ikey) call lower(key) do 30 i = 1, mckeys if (key.eq.ckeys(i)) go to 65 30 continue do 40 i = 1, macmax if (key.eq.macnam(i)) go to 65 40 continue key = undef ikey = 0 65 continue tmpkey= key line = line(ikey+1:ilen) call triml(line) ilen = istrln(line) end if c c remove unprotected end-of-line comments, update paren count do 150 i = 1, ilen s = line(i:i) c keep track of whether this part of the string is "protected" if (iprot.eq.0) then iprot = index(copen,s) elseif (iprot.le.3) then if (s.eq.cclos(iprot:iprot)) iprot = 0 end if c look for end-of-line comments if ((iprot.eq.0).and.(index(ceol,s).ne.0)) then line = line(1:i-1) call triml(line) go to 160 end if if (s.eq.'(') iparen = iparen + 1 if (s.eq.')') iparen = iparen - 1 150 continue 160 continue ilen = istrln(line) c if multi-line, check for final ')'. c and if it's found, peel of the enclosing ( ... ) c c the line is not complete: if (iparen.gt.0) then tmp = tmp(1:itmp)//line(1:ilen) call triml(tmp) itmp = istrln(tmp) + 1 ilen = -itmp newlin= .false. c the line is complete: else arg = tmp(1:itmp)//line(1:ilen) call triml(arg) ilen = max(1, istrln(arg)) if ((arg(1:1).eq.'(').and.(arg(ilen:ilen).eq.')')) then ip = 0 do_final_trim = .true. do 350 i = 2, ilen-1 s = arg(i:i) if (s.eq.'(') ip = ip + 1 if (s.eq.')') ip = ip - 1 if (ip.lt.0) do_final_trim = .false. 350 continue if (do_final_trim) then cc print*, ' getline removing surrounding parens' arg = arg(2:ilen-1) call triml(arg) ilen = max(1, istrln(arg)) endif end if newlin = .true. key = tmpkey if ((key.eq.blank).or.(key.eq.undef)) key = def_command nwords = 2 call bwords(arg,nwords,words) val = words(1) end if c c end subroutine iff_getline return end ifeffit-1.2.11d/src/lib/iff_plot_init.f0000644000175000017500000001024010771740457016712 0ustar segresegre subroutine iff_plot_init(index) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c initialize common blocks for plotting in ifeffit c implicit none include 'consts.h' include 'ifplot.h' save character*64 pltdev, dstr*128, d1str*16, desc integer index, j, k, pgopen, ii, ndevx, inter, i integer tlen, dlen , istrln external pgopen, istrln cc print*, 'iff_plot_init: index = ', index if ((index.eq.99) .and.(icurdev.gt.0)) call pgclos nplot = 0 do 90 j = 1, 4 xlim(j) = 0 tlim(j) = 0 limits(j) = .false. 90 continue igrid = 1 inplot = 0 nplabs = 0 ipgwin(4) = 0 ipgwin(3) = 0 ipgwin(2) = 0 ipgwin(1) = 0 icurwin = 1 do 100 j = 1, mplabs pltlab(j) = undef xplabs(j) = 0 yplabs(j) = 0 100 continue npmark = 0 do 105 j = 1, mpmark imarker(j) = -13000 xmarks(j) = 0 ymarks(j) = 0 mrkcol(j) = 0 105 continue do 130 j = 1, mpdevs ipgdev(j) = -1 pgdevs(j) = ' ' 130 continue call gettxt('plot_device',pltdev) do 240 j = 1, maxplt icol(j) = j isty(j) = 1 pltsty(j) = undef pltkey(j) = '' do 220 k = 1, maxpts plot_x(k,j) = 0 plot_y(k,j) = 0 220 continue 240 continue call settxt('plot_file', ' ') do 265 j = 1, mctabl pltcol(j) = undef 265 continue c pltcol(0) = 'white' pltcol(mcolbg) = 'white' pltcol(mcolfg) = 'black' pltcol(mcolgr) = '#CCBEE0' pltcol( 1) = 'blue' pltcol( 2) = 'red' pltcol( 3) = 'darkgreen' pltcol( 4) = 'black' pltcol( 5) = 'magenta' pltcol( 6) = 'maroon' pltcol( 7) = 'yellow' pltcol( 8) = 'orange' pltcol( 9) = 'purple' pltcol(10) = 'grey77' do 285 j = 1, 8 pltsty(j) = 'solid' 285 continue ilnwid = 2 ilnsty = 1 ichrfn = 1 axisiz = 1.5 txtsiz = 1.5 mkrsiz = 1.5 c stuff for "real reset and starting plot device" if (index.eq.0) then ii = 16 ndevx = 0 call pgqndt(ndevx) dstr = ' ' k = 1 do 800 i = 1, ndevx call pgqdt(i,d1str,tlen,desc,dlen,inter) call triml(d1str) j = istrln(d1str) dstr = dstr(1:k)//' '//d1str(2:j) k = istrln(dstr) 800 continue call triml (dstr) call settxt('plot_devices', dstr) call pgqinf('DEV/TYPE', pgdevs(1), ii) ipgdev(1) = pgopen(pltdev) icurdev = ipgdev(1) else if (index.eq.-1) then icurdev = -1 end if c return end ifeffit-1.2.11d/src/lib/misc_arr.f0000644000175000017500000005226310771740457015677 0ustar segresegrec////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// integer function iofarr(name,group,npts,icreat) c c return index of array c arguments: c name array name (giving only a suffix is allowed) [in/out] c group group name (' ' allowed -> default looked up) [in] c npts size of array (used as input only for creation) [in/out] c icreat integer create flag: 0=no create, 1=create OK [in] c returns: c iofarr index of array c < 0 : not found and couldn't create it c = 0 : out of range (ie, too many names defined) implicit none include 'consts.h' include 'arrays.h' save character*(*) name, group, pre*256 integer ioflist, icreat, jcreat, npts, iof double precision xpnext external ioflist c pre = group if ((pre.eq.'').or.(pre.eq.' ')) call gettxt('group', pre) call prenam(pre,name) iof = maxarr jcreat = 0 if (name.ne.' ') then iof = ioflist(name,arrnam,maxarr-1,icreat,jcreat) if ((icreat.eq.1).and.(jcreat.eq.0).and.(iof.ge.1)) then cc print*, ' iofarr: ', name(1:20), ' :',narray(iof), cc $ npts, jcreat if ((narray(iof).gt.0).and.(narray(iof).lt.npts)) then call erase_array(iof,.true.) iof = ioflist(name,arrnam,maxarr-1,icreat,jcreat) endif end if if ((jcreat.eq.1).and.(iof.ge.1)) then cc print*, ' iofarr create array: ', iof, npts, npnext nparr(iof) = npnext narray(iof) = npts npnext = (1+((nparr(iof) + narray(iof))/2))*2 npnext = min(maxheap_array-200, max(1, npnext)) xpnext = (maxheap_array - npnext)*1.0 call setsca('&heap_free', xpnext) call fixarr(iof, name, npts, 1) cc print*, ' end iofarr= ', iof,nparr(iof), npnext endif end if iofarr = iof return end integer function iofsca(name,icreat) c c return index of scalar c arguments: c name scalar name [in] c icreat integer create flag: 0=no create, 1=create OK [in] c returns: c iofsca index of scalar c < 0 : not found and couldn't create it c (-iofsca would be next available slot) c = 0 : out of range (ie, too many names defined) implicit none include 'consts.h' include 'arrays.h' save integer ioflist, icreat, jcreat character*(*) name external ioflist jcreat = 0 iofsca = ioflist(name,scanam,maxsca,icreat,jcreat) if (jcreat.eq.1) call setsca(name, zero) return end integer function iofstr(name,icreat) c c return index of string variable c arguments: c name string name [in] c icreat integer create flag: 0=no create, 1=create OK [in] c returns: c iofstr index of string c < 0 : not found and couldn't create it c (-iofstr would be next available slot) c = 0 : out of range (ie, too many names defined) implicit none include 'consts.h' include 'arrays.h' save integer ioflist, icreat, jcreat character*(*) name, str*256 external ioflist jcreat = 0 str = name if (str(1:1).eq.'$') str = str(2:) iofstr = ioflist(str,txtnam,maxtxt,icreat,jcreat) if (jcreat.eq.1) call settxt(str, ' ') return end integer function ioflist(name,carray,mxca,icreat,jcreat) c c return index of scalar string in a list of strings c arguments: c name scalar name [in] c carray array of name [in] c max dimension of carray [in] c icreat integer create flag: 0=no create, 1=create OK [in] c jcreat integer create flag: 1= creation needed [out] c returns: c iostr index of scalar c < 0 : not found and couldn't create it c (-iofsca would be next available slot) c = 0 : out of range (ie, too many names defined) integer istrln, j, i, icreat, iempty, mxca, jcreat character*(*) name, carray(mxca) external istrln j = max(1, istrln(name)) jcreat = 0 iempty = 0 i = 0 10 continue i = i + 1 c if we're out-of-range, return the -1 * index of first empty slot if (i.ge.mxca) then i = -iempty c if we find an empty slot and are creating, use this one elseif ((carray(i).eq.' ').and.(icreat.eq.1) ) then carray(i) = name(1:j) jcreat = 1 c if we find the first empty slot and are *not* creating, c save this slot and keep going elseif ((carray(i).eq.' ').and.(icreat.ne.1) $ .and.(iempty.eq.0)) then iempty = i go to 10 c if the name doesn't match, keep going elseif (carray(i).ne.name(1:j)) then go to 10 end if c if name matched, then we end up here: ioflist = i return end logical function isvnam(str,itype) c c determine if string can be a valid variable name c arguments: c str string to check [in] c itype type of name to check [in] c -1 array or scalar c 0 full array name c 1 scalar / array prefix c 2 string after $ / array suffix c 3 string (including $) c character*(*) str character bslash, squote, dollar, dot, invalid*32, digits*10 integer ilen, i, j1, istrln, itype, idot, jdot, ic1 parameter (invalid = '!@#$%^*+=-/<>`,;"|()[]{}') parameter (digits = '0123456789', dollar = '$', dot = '.') external istrln j1 = 1 ilen = istrln(str) squote = '''' bslash = '\\ ' isvnam = ((index(str(:ilen),squote) .eq. 0) .and. $ (index(str(:ilen),bslash) .eq. 0) ) if (.not.isvnam) return idot = index(str,dot) cc print*, ' -- in isvnam: itype = ', itype, ' : ',str(1:40) ic1 = ichar(str(1:1)) c either array or scalar: . cannot be first or last char if (itype.eq.-1) then isvnam = (idot .ne. 1) .and. (idot .ne. ilen) c full array names must have a dot (we'll count them below) elseif (itype.eq.0) then isvnam = (idot .gt. 1) .and. (idot .lt. ilen) c scalars/prefixed must not begin with a digit elseif (itype.le.1) then isvnam = (index(digits, str(1:1)) .eq. 0) c strings must begin with a dollar sign elseif (itype.eq.3) then isvnam = (str(1:1) .eq. dollar) j1 = 2 end if c make sure there are no invalid characters in the name if (isvnam) then jdot = 0 isvnam = .false. do 10 i = j1, ilen if (index(invalid,str(i:i)) .ne. 0) return if (str(i:i).eq.dot) jdot = jdot + 1 10 continue c array names must have 1 '.' -- rest must have 0 '.'. isvnam = jdot.eq.0 if (itype.eq.0) then isvnam = jdot.eq.1 elseif (itype.eq.-1) then isvnam = jdot.le.1 end if end if return end subroutine fixnam(str,itype) c c repair bad variable name c arguments: c str string to check [str] c itype type of name to check [in] c -1 array or scalar c 0 full array name c 1 scalar / array prefix c 2 string after $ / array suffix c 3 string (including $) c include 'consts.h' character*(*) str, s*1, s2*2 character bslash, squote, dollar, dot, invalid*32, digits*10 integer ilen, i, istrln, itype parameter (invalid = '!@#$%^*+=-/<>`,;"|()[]{}') parameter (digits = '0123456789', dollar = '$', dot = '.') external istrln squote = '''' bslash = '\\ ' c check that first character is correct ilen= istrln(str) if (ilen.le.0) then s = '_' ilen = 1 endif s = str(1:1) if ( (itype.eq.1).and.(index(digits, s) .ne. 0) ) then str = '_'//str(1:ilen) ilen = ilen + 1 elseif ((itype.eq.3).and.(s.ne.dollar)) then str = '$'//str(1:ilen) ilen = ilen + 1 end if c check rest of characters i = 0 10 continue i = i + 1 s = str(i:i) if( ((s.eq.squote) .or. (s.eq.dot) .or. $ (s.eq.bslash) .or. (s.eq.blank) .or. $ (index(invalid,s).ne.0) ) ) then str(i:i) = '_' end if if (i.lt.ilen) go to 10 c ilen= istrln(str) c print*, ' ilen ', ilen, str(1:20) c do 20 i = 1, ilen-1 c print*, '... ', i, str(i:i+1) c if (str(i:i+1).eq.'__') then c str(i:i+1) = '_&' c endif c 20 continue cc strip off leading '_' c 20 continue c if ((str(1:1).eq. '_').and.(index(digits, str(2:2)).eq.0)) then c str = str(2:) c go to 20 c endif c ilen = istrln(str) cc strip off trailing '_' c 30 continue c if (str(ilen:ilen).eq. '_') then c str = str(1:ilen-1) c ilen = ilen - 1 c go to 30 c endif c make sure we end with a valid, but clearly bad file name c if (str .eq.' ') str = undef return end subroutine fixarr(in, name, npts, iconst) c c set max and min values, name, and npts for an array c in the ifeffit array "structure" c arguments: c in index in array lists (cannot be zero) [in] c name name to give to this array (if unnamed) [in] c npts number of points to add [in] c iconst integer flag: 1 for 'constant array', [in] c 0 otherwise implicit none include 'consts.h' include 'arrays.h' include 'encod.h' save integer npts, in, j, iconst character*(*) name, group*64 double precision ax c if ((in.gt.0).and.(in.le.maxarr)) then narray(in) = npts if ((arrnam(in).eq.' ').and.(name.ne.' ')) then call gettxt('group', group) arrnam(in) = name call prenam(group,arrnam(in)) end if c set max and min values cc print*, ' fixarr: ', in, nparr(in), npts arrmax(in) = array(nparr(in)) arrmin(in) = array(nparr(in)) do 20 j = 1, npts ax = array(nparr(in)+j-1) if (arrmin(in).gt.ax) arrmin(in) = ax if (arrmax(in).lt.ax) arrmax(in) = ax 20 continue c set icdarr (for 'constant arrays') if ((iconst.eq.1).or. (icdarr(1,in) .eq. 0)) then icdarr(1,in) = in icdarr(2,in) = 0 end if end if return c end subroutine fixarr end subroutine file_type_names(type,icol,name) character*(*) type, name integer icol 50 format(i3) write(name,50) icol if ((type.eq.'xmu').and.(icol.eq.1)) name = 'energy' if ((type.eq.'xmu').and.(icol.eq.2)) name = 'xmu' if ((type.eq.'pre-edge').and.(icol.eq.1)) name = 'energy' if ((type.eq.'pre-edge').and.(icol.eq.2)) name = 'pre' if ((type.eq.'chi').and.(icol.eq.-1)) name = 'win' if ((type.eq.'chi').and.(icol.eq.1)) name = 'k' if ((type.eq.'chi').and.(icol.eq.2)) name = 'chi' if ((type.eq.'rsp').and.(icol.eq.-1)) name = 'rwin' if ((type.eq.'rsp').and.(icol.eq.1)) name = 'r' if ((type.eq.'rsp').and.(icol.eq.2)) name = 'chir_re' if ((type.eq.'rsp').and.(icol.eq.3)) name = 'chir_im' if ((type.eq.'rsp').and.(icol.eq.4)) name = 'chir_mag' if ((type.eq.'rsp').and.(icol.eq.5)) name = 'chir_pha' if ((type.eq.'chi_std').and.(icol.eq.1)) name = 'k_std' if ((type.eq.'chi_std').and.(icol.eq.2)) name = 'chi_std' if ((type.eq.'qsp').and.(icol.eq.-1)) name = 'win' if ((type.eq.'qsp').and.(icol.eq.1)) name = 'q' if ((type.eq.'qsp').and.(icol.eq.2)) name = 'chiq_re' if ((type.eq.'qsp').and.(icol.eq.3)) name = 'chiq_im' if ((type.eq.'qsp').and.(icol.eq.4)) name = 'chiq_mag' if ((type.eq.'qsp').and.(icol.eq.5)) name = 'chiq_pha' if ((type.eq.'xmu.dat').and.(icol.eq.1)) name = 'energy' if ((type.eq.'xmu.dat').and.(icol.eq.2)) name = 'e_wrt0' if ((type.eq.'xmu.dat').and.(icol.eq.3)) name = 'k' if ((type.eq.'xmu.dat').and.(icol.eq.4)) name = 'mu' if ((type.eq.'xmu.dat').and.(icol.eq.5)) name = 'mu0' if ((type.eq.'xmu.dat').and.(icol.eq.6)) name = 'chi' if ((type.eq.'chi.dat').and.(icol.eq.1)) name = 'k' if ((type.eq.'chi.dat').and.(icol.eq.2)) name = 'chi' if ((type.eq.'chi.dat').and.(icol.eq.3)) name = 'mag' if ((type.eq.'chi.dat').and.(icol.eq.4)) name = 'phase' if ((type.eq.'feff').and.(icol.eq.1)) name = 'k' if ((type.eq.'feff').and.(icol.eq.2)) name = 'cphase' if ((type.eq.'feff').and.(icol.eq.3)) name = 'mag' if ((type.eq.'feff').and.(icol.eq.4)) name = 'phase' if ((type.eq.'feff').and.(icol.eq.5)) name = 'redfactor' if ((type.eq.'feff').and.(icol.eq.6)) name = 'lambda' if ((type.eq.'feff').and.(icol.eq.7)) name = 'realp' if ((type.eq.'feff.dat').and.(icol.eq.1)) name = 'k' if ((type.eq.'feff.dat').and.(icol.eq.2)) name = 'cphase' if ((type.eq.'feff.dat').and.(icol.eq.3)) name = 'mag' if ((type.eq.'feff.dat').and.(icol.eq.4)) name = 'phase' if ((type.eq.'feff.dat').and.(icol.eq.5)) name = 'redfactor' if ((type.eq.'feff.dat').and.(icol.eq.6)) name = 'lambda' if ((type.eq.'feff.dat').and.(icol.eq.7)) name = 'realp' return end subroutine glob(str, arr, marray, out, mout, nout) c c support a simple (dos-like) glob mechanism: list matches to '*' c str will select a set of elements in array. c so if str does not contain '*', it is expected to be an element c and is returned itself. c c otherwise, all elements of array that match the pattern are c put into the out array. c implicit none integer marray, mout, nout character*(*) str, arr(marray), out(mout) character*256 str1, str2 logical match integer istar, itlen, lstr1, lstr2, istr1, istr2, j integer istrln, intxt external istrln istar = index(str, '*') nout = 0 istr1 = 0 istr2 = 0 match = .false. itlen = istrln(str) if (istar.eq.0) then out(1) = str nout = 1 else str1 = str(1:istar-1) str2 = str(istar+1:itlen) lstr1 = istrln(str1) lstr2 = istrln(str2) do 100 j = 1, marray intxt = istrln(arr(j)) if (intxt.ge.1) then match = .true. if (lstr1.ge.1) then match = (arr(j)(:lstr1).eq.str1(:lstr1)).and.match endif if (lstr2.ge.1) then match = (arr(j)(intxt-lstr2+1:intxt) $ .eq. str2(:lstr2)).and.match endif if (match) then nout = nout + 1 out(nout) = arr(j) endif endif 100 continue endif cc print*, ' glob found ', nout ,' matches' return end subroutine prenam(group,suff) c c give an un-grouped array name a group name c c suff array name (suffix) [in/out] c group array group name (prefix) [in] c c if suff does not already have a prefix, and really is c a variable name (does not contain '(', ')', ',', or '.' c or 'indarr'), then the group name is prepended on output c c if suff already has a prefix, it remains unchanged (well, c it is trimmed and converted to lower case) c character*(*) group, suff character*256 g, a logical isvnam integer ig, istrln external isvnam a = suff call lower(a) call triml(a) g = group call lower(g) call triml(g) ig = istrln(g) if (g.eq.' ') g = 'my' if (.not.isvnam(g,1)) then call warn(1, $ ' *** Warning: invalid group name -- '//g(1:ig)) call fixnam(g,1) ig = istrln(g) call warn(1,' replaced with -- '//g(1:ig)) end if if ( (index(a,'.').eq.0) .and. (index(a,'indarr').eq.0) .and. $ (index(a,'(').eq.0) .and. (index(a,')').eq.0) .and. $ (index(a,',').eq.0) ) then a = g(1:ig)//'.'//a endif suff = a return end c subroutine set_array(name, group, arr, npts, jcreat) c c put an array into global register c this is a simple wrapper around iofarr and set_array_index c include 'consts.h' include 'arrays.h' character*(*) name, group, vnam*256 double precision arr(*) integer npts, jcreat, ia, nof, i, iofarr external iofarr vnam = name ia = iofarr(vnam, group, npts, jcreat) call set_array_index(ia,arr,npts) return end subroutine set_array_index(index, arr, npts) c c low level write to array data (overwrite array in c global register, assuming index is known and correct) c c should be used with care (iff_sync only?), but will check c for, and automatically recover from changing array sizes: c npts of existing array goes to 1: -> erase array c npts of existing array increases: -> erase and re-set c include 'consts.h' include 'keywrd.h' include 'arrays.h' double precision arr(*) integer index, npts, ia, i, icode(micode) integer iofarr, istrln, icreat, j character*256 tmpfrm external iofarr, istrln ia = index if (npts .ne. narray(ia) ) then if (npts.le.1) then tmpstr = '*** warning: erasing null array ' $ //arrnam(ia) i = istrln(tmpstr) call warn(1, tmpstr) call erase_array(ia,.true.) return else if (npts .gt. narray(ia) ) then tmpfrm = arrfrm(ia) tmpstr = arrnam(ia) do 10 j = 1, micode icode(j) = icdarr(j,ia) 10 continue call erase_array(ia,.true.) ia = iofarr(tmpstr,blank,npts,icreat) arrfrm(ia) = tmpfrm arrnam(ia) = tmpstr do 20 j = 1, micode icdarr(j,ia) = icode(j) 20 continue endif endif do 100 i = 1, npts array(nparr(ia)+i-1) = arr(i) 100 continue c do not force to be a constant array! call fixarr(ia, arrnam(ia), npts, 0) return end c integer function get_array(name, group, jcreat, arr) c c get an array from global register c returns npts of array, and array itself in last parameter c include 'consts.h' include 'arrays.h' character*(*) name, group, vnam*256 double precision arr(*) integer npts, jcreat, ia, nof, i, iofarr external iofarr get_array = 0 vnam = name npts = 0 ia = iofarr(vnam, group, npts, jcreat) if (ia .gt.0) then get_array = narray(ia) do 100 i = 1, narray(ia) arr(i) = array(nparr(ia)+i-1) 100 continue endif return end integer function get_array_index(index, arr) c c get an array from global register by internal index c assumes that iofarr() has been run or a stored valued c from iofarr() is reliable. c include 'consts.h' include 'arrays.h' double precision arr(*) integer index, i get_array_index = 0 if (index .gt.0) then get_array_index = narray(index) do 100 i = 1, narray(index) arr(i) = array(nparr(index)+i-1) 100 continue endif return end ifeffit-1.2.11d/src/lib/fiterr.f0000644000175000017500000002054110771740457015365 0ustar segresegre subroutine fiterr(fcn,nfit,nvar,mfit,mvar,fbest,ftemp,fjac, $ alpha,jprint,istep,x,delta,correl,ierror,iflag) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c error analysis for a fit using the minpack routines c c given a subroutine, *fcn*, to generate a fitting function c with *nfit* evaluations from a set of *nvar* variables, c with best-fit values *x* and residuals *fbest* determined, c this will return the uncertainties in *x* to *delta*, and c the correlations between the variables in *correl*. c c arguments: c fcn name of subroutine to generate fitting function, [in] c with call statement as for minpack routines : c call fcn(nfit,nvar,x,f,ier) c nfit number of function evaluations for call to fcn [in] c nvar number of variables [in] c mfit dimension of arrays for function evaluations [in] c mvar dimension of arrays for variables [in] c fbest array of fit residual for best fit (mfit) [in] c ftemp array of fit residuals for constructing (mfit) [work] c jacobian. on output, this is equal to fbest. c fjac array of finite difference jacobian (mfit,mvar) [work] c alpha curvature and covariance matrix (mvar,mvar) [work] c jprint integer print flag for debug messages [in] c istep maximum number of loops in error evaluation [in] c x array of best fit values for variables (mvar) [in] c delta array of uncertainties for the variables (mvar) [out] c correl array of two-variable correlations (mvar,mvar) [out] c ierror integer flag that is non-zero if error bars [out] c cannot be estimated because the curvature c matrix cannot be inverted, so that one or c more of the variables do not affect the fit. c iflag integer array whose elements are 1 if the (mvar) [out] c corresponding variable is suspected of c causing the failure of the inversion of the c curvature matrix. these may be null variables. c c required external subprograms: c fcn, gaussj c c the algorithm here is to construct and invert the nvar x nvar c curvature matrix alpha, whose elements are found by summing c over the elements of the jacobian matrix, fjac: c fjac(i,j) = dfvect(i) / dx(j) (i = 1, nfit; j = 1, nvar) c where fvect is the residual array for the fit and dx is a small c change in one variable away from the best-fit solution. then c alpha(j,k) = alpha(k,j) c = sum_(i=1)^nfit (fjac(i,j) * fjac(i,k)) c c the inverse of alpha gives the curvature matrix, whose diagonal c elements are used as the uncertainties and whose off-diagonal c elements give the correlations between variables. c-------------------------------------------------------------------- implicit none integer mfit,mvar,nfit,nvar,i,k,j,iloop,istep, istepx integer iflag(mvar), ierror, jprint, ier double precision fbest(mfit), ftemp(mfit), fjac(mfit,mvar) double precision x(mvar), correl(mvar,mvar), alpha(mvar,mvar) double precision delta(mvar), delx, sum, tempx double precision eps, epsdef, tiny, zero character messg*64 parameter (zero = 0.d0, epsdef = 1.d-3, tiny= 1.d-12) external fcn, gaussj c if (jprint.ge.1) call echo( '>>>> fiterr start') istepx= min(5,max(1, istep)) ier = 0 ierror= 0 iloop = 0 do 3 j = 1, nvar delta(j) = zero 3 continue 10 continue iloop = iloop + 1 c c construct jacobian using the best possible guess for the c relative error in each variable to evaluate the derivatives. c if not available, use 1% of the value for the variable. do 50 j = 1, nvar tempx = x(j) if (iloop .eq. 1) then delx = max( tiny, epsdef * abs(tempx) ) else delx = max(tiny, abs(delta(j)))/2.d0 endif x(j) = tempx + delx if (jprint.ge.1) then write(messg,'(1x,a,3g14.7)') ' >> ',tempx,delta(j),delx call echo(messg) end if if (jprint.ge.4) call echo( '>>>> call fcn' ) call fcn(nfit, nvar, x, ftemp, ier) if (ier .lt. 0) then if (jprint.ge.1) call echo( '>>>> fcn died') go to 65 end if do 30 i = 1, nfit fjac(i,j) = ( fbest(i) - ftemp(i)) / delx 30 continue x(j) = tempx 50 continue 65 continue c c re-evaluate best-fit to restore any common block stuff call fcn(nfit,nvar,x,ftemp,ier) c c collect the symmetric curvature matrix, store in alpha if (jprint.ge.2) then call echo( ' curvature matrix: j , k , alpha(j,k)') end if do 180 j = 1, nvar do 160 k = 1, j sum = zero do 140 i = 1, nfit sum = sum + fjac(i,j) * fjac(i,k) 140 continue alpha(j,k) = sum if (k.ne.j) alpha(k,j) = sum if (jprint.ge.2) then write(messg,'(8x,2i3,g14.7)') j , k , alpha(j,k) call echo(messg) end if 160 continue 180 continue c c in case alpha cannot be inverted, flag those variables with c small diagonal components of alpha - these are the likely c null variables that caused the matrix inversion to fail. do 250 i = 1, nvar iflag(i) = 0 if (abs(alpha(i,i)).le. tiny) iflag(i) = 1 250 continue c invert curvature (alpha) to give covariance matrix. gaussj does c gauss-jordan elimination in-place, and dies with garbage in alpha c if the matrix is singular. if (jprint.ge.1) call echo(' fiterr-> call gaussj') call gaussj(alpha,nvar,mvar,ier) if (jprint.ge.1) call echo(' fiterr-> gaussj returned') if (ier.ne.0) then ierror = 1 if (jprint.ge.1) then call warn(2,' FITERR: cannot invert curvature matrix!') end if return end if c c alpha now contains the covariance matrix, and is easily c converted into delta, the uncertainty for each variable, c and correl, the two-variable correlation matrix. if (jprint.ge.1) then call echo(' fiterr done with loop: j , delta(j)' ) end if do 360 i = 1, nvar delta(i) = max(tiny, sqrt( abs( alpha(i,i)) )) if (jprint.ge.1) then write (messg,'(1x,i3,g15.7)') i, delta(i) call echo(messg) end if do 330 j = 1, i correl(j,i) = alpha(j,i) / (delta(i) * delta(j)) correl(i,j) = correl(j,i) 330 continue 360 continue c c try it a second time with better estimates for the values c of deltax for the derivatives to get the jacobian matrix. if ( iloop .lt. istepx ) go to 10 c c finished if (jprint.ge.1) call echo( '>>>> fiterr done') return c end routine fiterr end ifeffit-1.2.11d/src/lib/consts.h0000745000175000017500000000524411050627302015372 0ustar segresegrec{consts.h -*-fortran-*- include 'maxpts.h' c integer maxarr, maxdoc, maxtxt integer korder, maxnot, mtknot integer mconst, micode, maxsca, mffpts integer mwfft , maxplt, maxfft, mdata integer mpthpr, mppars, mpaths integer mvarys, mfffil, mffttl integer maxleg, mckeys, macmax, mcline integer mmcarg, mcdeep, mfiles, mkeys integer maxheap_array integer max_restraint integer max_pathindex integer max_outarr parameter ( mckeys = 64 ) parameter ( macmax = 512 ) parameter ( mcline = 4096 ) parameter ( mcdeep = 32 ) parameter ( mfiles = 16 ) parameter ( max_restraint = 32) parameter ( mkeys = 64 ) parameter ( maxheap_array = maxpts*512) parameter ( maxarr = 8192) ! # of array variables parameter ( maxsca = 16384) ! # of scalar variables parameter ( maxtxt = 8192) ! # of text variables parameter ( mconst = 16384) ! # of numerical constants parameter ( maxplt = 64 ) ! # of plots parameter ( maxdoc = 20 ) ! # of docs from data file parameter ( micode = 256 ) ! # of elements in math icode array parameter ( mffpts = 128 ) ! # of points in feff arrays parameter ( mffttl = 10 ) ! # of feff titles parameter ( maxleg = 7 ) ! # of legs in feff path parameter ( mpthpr = 16 ) ! # of path parameters parameter ( maxnot = 32 ) ! # of knots in background spline parameter ( korder = 4 ) parameter ( mtknot = maxnot+korder) parameter ( mdata = 16 ) ! # of data sets parameter ( mvarys = 128 ) ! # of fitting variables parameter ( mppars = 16 ) ! # of path parameters parameter ( mmcarg = 9 ) ! # of macro arguments parameter ( max_pathindex = 9999) ! # path index numbder parameter ( max_outarr = 99) ! # of output columns in write_data parameter ( mpaths = 256) ! # of paths, total parameter ( mfffil = 256) ! # of feff files c c common constants double precision zero, one, etok, pi, qgrid, rgrid, tiny parameter ( zero = 0.d0) parameter ( one = 1.d0) parameter ( etok = 0.2624682917d0) parameter ( pi = 3.141592653589793d0) parameter ( tiny = 1.d-12) character undef*8,undef_array*10, blank*1 parameter (undef= '%undef%', blank = ' ') parameter (undef_array= '%_undef._%') c c fft constants parameter ( maxfft = 2048 ) ! points for fft arrays parameter ( mwfft = 4*maxfft+15) parameter ( qgrid = 0.050d0) parameter ( rgrid = pi/(qgrid * maxfft)) c} ifeffit-1.2.11d/src/lib/iff_fft.f0000644000175000017500000003425010771740457015477 0ustar segresegre subroutine iff_fft(key,str) c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: ifeffit: xafs fourier transform -- driver for xafsft c c arguments: c key command name to perform (fftf / fftr) [in] c str command line to performd [in] c c notes: c 1. driver for xafsft, does both forward and back transforms c 2. key names direction of fft c 3. uses named scalars, strings, and arrays, as well as c key/value pairs from command string c c requires: istrln, getsca, gettxt, bkeys, lower, str2re, c echo, cffti, window, lintrp, xafsft, setsca, settxt c c Despina can be reached in two ways: by ship or by camel. The city c displays one face to the travel arriving overland and a different c one to him who arrives by sea. c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'fft.h' include 'pthpar.h' include 'fefdat.h' save integer nxpar, ifft parameter (nxpar = 11) character*(*) key, str, defkey(3)*64, tnam*256 character*256 re_arr, im_arr, x_arr, pc_arr, winnam*32 character*256 winarr, name1, wintyp, outtyp, myname*5 character*10 forpar(nxpar), revpar(nxpar), params(nxpar) complex*16 cinp(maxfft), cout(maxfft), cmi parameter (cmi=(0d0,-1d0)) double precision getsca, xmin, xmax, xw, dx1, dx2, xmout double precision xgrid, ygrid,xk double precision arr_x(maxpts), arr_r(maxpts), arr_i(maxpts) double precision arr_w(maxpts), arr_p(maxpts) double precision txx(maxpts), txr(maxpts), txi(maxpts) double precision txm(maxpts), txp(maxpts) integer npts_x, npts_r, npts_i, npts_w, npts_p, jxar,nptsxx integer jwin, jrea, jima, jpha, i, k, jdot, idwin integer jout1, jout2, jout3, jout4, jout5 integer ier, istrln, ndfkey, ipos, nyout, nxout integer pc_path, jfeff, ilen integer iff_eval, iff_eval_dp, iff_eval_in, u2ipth logical xm_set , pc_caps character*16 pc_edge, path*256 external iff_eval, iff_eval_dp, iff_eval_in external getsca, istrln, u2ipth data (forpar(i), i=1, nxpar) /'k', 'dk', 'dk1', 'dk2', $ 'kmin', 'kmax', 'kweight', 'kwindow', 'win', 'rsp', $ 'rmax_out'/ data (revpar(i), i=1, nxpar) /'r', 'dr', 'dr1', 'dr2', $ 'rmin', 'rmax', 'rweight', 'rwindow', 'rwin', 'qsp', $ 'qmax_out'/ c c initialize c set default program variables to use based on "key" call iff_sync if ( (key.eq.'fftr').or.(key.eq.'bft')) then ifft = -1 xgrid = rgrid ygrid = qgrid do 12 i = 1, nxpar params(i) = revpar(i) 12 continue else ifft = 1 xgrid = qgrid ygrid = rgrid do 14 i = 1, nxpar params(i) = forpar(i) 14 continue end if c c get default values of relevant program variables c scalars: xm_set = .false. myname = key dx1 = getsca(params(3),1) dx2 = getsca(params(4),1) if ((abs(dx1).le.tiny).and.(abs(dx2).le.tiny)) then dx1 = getsca(params(2),1) dx2 = dx1 endif pc_path = 0 pc_edge = blank pc_caps = .false. xmin = getsca(params(5),1) xmax = getsca(params(6),1) xw = getsca(params(7),1) xmout = getsca(params(11),1) outtyp = params(10) wintyp = params( 9) c strings: re_arr = undef im_arr = undef pc_arr = undef x_arr = undef name1 = undef call gettxt(params(8), winnam) call gettxt('altwindow',winarr) c parse command line call bkeys(str, mkeys, keys, values, nkeys) ndfkey = 1 defkey(1) = 'real' do 100 i = 1, nkeys k = istrln( keys(i)) if ((values(i).eq.undef).and.(i.le.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if ((keys(i).eq.'prefix').or.(keys(i).eq.'group')) then name1 = values(i) elseif (keys(i).eq.'altwindow') then winarr = values(i) call lower(winarr) elseif (keys(i).eq.'real') then re_arr = values(i) call lower(re_arr) elseif (keys(i).eq.'imag') then im_arr = values(i) call lower(im_arr) elseif (keys(i).eq.'phase_array') then pc_arr = values(i) call lower(pc_arr) elseif (keys(i).eq.'pc_edge') then pc_edge = values(i) pc_caps = .true. elseif (keys(i).eq.'pc_feff_path') then ier = iff_eval_in(values(i),pc_path) elseif (keys(i).eq.'pc_caps') then call str2lg(values(i), pc_caps, ier) elseif (keys(i).eq.'pc_full') then call str2lg(values(i), pc_caps, ier) pc_caps = .not.pc_caps elseif (keys(i).eq.params(1)) then x_arr = values(i) call lower(x_arr) elseif (keys(i).eq.params(2)) then ier = iff_eval_dp(values(i),dx1) dx2 = dx1 elseif (keys(i).eq.params(3)) then ier = iff_eval_dp(values(i),dx1) elseif (keys(i).eq.params(4)) then ier = iff_eval_dp(values(i),dx2) elseif (keys(i).eq.params(5)) then ier = iff_eval_dp(values(i),xmin) elseif (keys(i).eq.params(6)) then ier = iff_eval_dp(values(i),xmax) elseif (keys(i).eq.params(7)) then ier = iff_eval_dp(values(i),xw) elseif (keys(i).eq.params(8)) then winnam = values(i) call lower(winnam) elseif (keys(i).eq.params(11)) then ier = iff_eval_dp(values(i),xmout) xm_set = .true. else messg = keys(i)(1:k)//' " will be ignored' call warn(1, $ ' *** '//myname//' : unknown keyword " '//messg) end if 100 continue c initialize fft work array (if not already done) if (.not.wftset) then call cffti(maxfft, wfftc) wftset = .true. end if c c get/resolve array names c if name1 not given, inherit from x_arr, re_arr, or im_arr. if (name1.eq.undef) then jdot = index(x_arr,'.') if (jdot.ne.0) name1 = x_arr(1:jdot-1) endif if (name1.eq.undef) then jdot = index(re_arr,'.') if (jdot.ne.0) name1 = re_arr(1:jdot-1) endif if (name1.eq.undef) then jdot = index(im_arr,'.') if (jdot.ne.0) name1 = im_arr(1:jdot-1) endif if (name1.eq.undef) then call warn(2, ' '//myname//': can''t determine group name') return endif call fixnam(name1, 1) call lower(name1) c evaluate all of the possible arrays do 180 i = 1, maxpts arr_x(i) = zero arr_r(i) = zero arr_i(i) = zero arr_w(i) = zero arr_p(i) = zero 180 continue jxar = iff_eval(x_arr, name1, arr_x, npts_x) jrea = iff_eval(re_arr, name1, arr_r, npts_r) jima = iff_eval(im_arr, name1, arr_i, npts_i) jwin = iff_eval(winarr, name1, arr_w, npts_w) jpha = iff_eval(pc_arr, name1, arr_p, npts_p) c c for phase-corrections given a feff file: if (pc_path .gt. 0) then jpha = 999 call fefinp jfeff = jpthff(u2ipth(pc_path)) ipos = 0 cc print*, ' pc : path = ', pc_path, pc_caps if (pc_caps) then do 220 i = 1, maxpts xk = (i-1) * xgrid call lintrp(qfeff(1,jfeff), thcaps(1,jfeff), $ mffpts, xk, ipos, arr_p(i)) 220 continue else do 223 i = 1, maxpts xk = (i-1) * xgrid call lintrp(qfeff(1,jfeff), thepha(1,jfeff), $ mffpts, xk, ipos, arr_p(i)) 223 continue endif else if((pc_edge .ne. blank) .and. $ (pc_edge .ne. undef) ) then jpha = 99 nptsxx = npts_x if (jxar.lt.1) then do 240 i = 1, maxpts arr_x(i) = (i-1) * xgrid 240 continue nptsxx = maxpts endif call feff_table_array(pc_edge,'caps',nptsxx,arr_x, arr_p) endif npts_p = npts_x cc print*, ' im_arr = ', im_arr(1:20), jima, arr_i(1), arr_i(5) c if the x-array has been given, the real/imag/window data should c be re-interpolated onto an even x-grid starting at x=0. if (jxar.ge.1) then if (jrea.ge.1) $ call zgrid_array(arr_x, npts_x, arr_r, npts_r, xgrid) if (jima.ge.1) $ call zgrid_array(arr_x, npts_x, arr_i, npts_i, xgrid) if (jwin.ge.1) $ call zgrid_array(arr_x, npts_x, arr_w, npts_w, xgrid) if (jpha.ge.1) $ call zgrid_array(arr_x, npts_x, arr_p, npts_p, xgrid) endif if ((jima.le.0).and.(jrea.le.0)) then call warn(2, ' '//myname//': no real or imaginary array?') return endif nxout = max(npts_r, npts_i) cc print*, ' n = ', nxout, npts_x, npts_r, npts_i if (npts_x.gt.0) nxout = min(npts_x,nxout) if (npts_r.gt.0) nxout = min(npts_r,nxout) if (npts_i.gt.0) nxout = min(npts_i,nxout) c c now generate the complex function for the fft do 200 i = 1, maxfft cinp(i) = dcmplx(arr_r(i), arr_i(i)) cout(i) = dcmplx(zero, zero) 200 continue c do i = 1, 5 c print*, i, cinp(i) c end do c apply phase-correction, if requested if (jpha.gt.0) then call echo('doing phase corrected fft') do 250 i = 1, maxfft cinp(i) = cinp(i) * exp(cmi * arr_p(i)) 250 continue end if c c get window function if it wasn't alreary specified cc print*, ' jwin ', jwin if (jwin.le.0) then call window(winnam,dx1,dx2,xmin,xmax,xgrid,maxpts,arr_w) end if c c do the actual fft cc print*, ' to xafsft ' call xafsft(maxfft,cinp,arr_w,xgrid,xw,wfftc,ifft,cout) c c default rmax_out = 10.d0 (unless set explicitly) nyout = maxpts / 2 if ((xmout.eq.0).and.(.not.xm_set)) then xmout= 30.d0 if (ifft.eq.1) xmout= 10.d0 endif if (xmout.gt.0) nyout = 1 + (xmout / ygrid) c output program variables: c c window array c if an x-array has been supplied, interpolate the evenly-spaced c window array used in the FT onto the provided x-array if (jxar.ge.1) then do 300 i = 1, maxpts txx(i) = (i-1) * xgrid 300 continue ipos = 0 do 310 i = 1, npts_x call lintrp(txx, arr_w, maxpts, arr_x(i), $ ipos, tmparr(i)) 310 continue call set_array(wintyp, name1, tmparr, npts_x, 1) else call set_array(wintyp, name1, arr_w, nxout, 1) endif c c generate dp arrays from complex FT data nyout = min(nyout,maxpts) do 600 i = 1, nyout txx(i) = ygrid * (i-1) txr(i) = dble(cout(i)) txi(i) = dimag(cout(i)) txm(i) = sqrt(txr(i)*txr(i) + txi(i)*txi(i)) txp(i) = atan2(txi(i),txr(i)) if (i.gt.1) call pijump( txp(i),txp(i-1) ) 600 continue c x cc print*,'fft: ', outtyp call file_type_names(outtyp ,1, tnam) call set_array(tnam, name1, txx, nyout, 1) c mag call file_type_names(outtyp, 4, tnam) cc print*,'fft: ', tnam(1:20), nyout call set_array(tnam, name1, txm, nyout, 1) c phase call file_type_names(outtyp, 5, tnam) call set_array(tnam, name1, txp, nyout, 1) c real call file_type_names(outtyp, 2, tnam) call set_array(tnam, name1, txr, nyout, 1) c imag call file_type_names(outtyp, 3, tnam) call set_array(tnam, name1, txi, nyout, 1) c scalars: cc print*, ' fft set ', params(3), dx1 call setsca(params(3), dx1) call setsca(params(4), dx2) call setsca(params(5), xmin) call setsca(params(6), xmax) call setsca(params(7), xw) call setsca(params(11), xmout) call settxt(params(8), winnam) return c end subroutine iff_fft end subroutine zgrid_array(x, nx, y, ny, xgrid) c c interpolate x/y arrays onto even x-grid starting a x=0 c overwrites y array and ny implicit none include 'consts.h' integer nx, ny double precision x(*), y(*), ta(maxpts), xt, xgrid integer nx1, nt, ipos, i nx1 = min(nx, ny) nt = 1 + x(nx1) / xgrid nt = min(nt, maxpts) ipos = 0 do 10 i = 1, nt xt = (i-1) * xgrid call lintrp(x, y, nx, xt, ipos, ta(i)) 10 continue ny = nt do 20 i = 1, ny y(i) = ta(i) 20 continue do 30 i = ny + 1, maxpts y(i) = 0 30 continue return end ifeffit-1.2.11d/src/lib/rdffdt.f0000644000175000017500000002256610771740457015354 0ustar segresegre subroutine rdffdt(ffname,mtitle,mleg,mpts, ntitle, nleg, npts, $ title, reff, rwignr, degen, xyz, ipot, iz, $ qf,amplit,phase,cphase,sphase,xlamb,realp) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c read a feffnnnn.dat file implicit none integer i, ier1, ier2, ier3, ier4, ix, ileg, nwords integer mtitle, mleg, mpts, ntitle, nleg, npts, istrln character*(*) ffname, title(mtitle), filnam*128 integer ipot(0:mleg), iz(0:mleg) double precision reff, rwignr, degen, xyz(3,0:mleg) double precision qf(*), amplit(*), phase(*) double precision cphase(*), sphase(*) double precision xlamb(*), realp(*), zero, xlmin character*40 stat*5, line*90, words(16), messg*80 integer iunit, iex, ierr parameter (zero = 0, xlmin = 1.d-8) double precision cdel, afeff,phfeff, redfac, xk, xlmda, preal external istrln data stat /'old'/ iunit = 0 xk = zero filnam = ffname call openfl(iunit, filnam , stat, iex, ierr) if ((iex.lt.0).or.(ierr.lt.0)) $ call warn(3, ' error reading file: '//filnam) c read top of feff.dat, keeping first mtitle comment lines ntitle = 0 150 continue ntitle = ntitle + 1 read(iunit,999) line call sclean(line) call triml(line) if (line(3:6) .eq. '----') goto 200 if (ntitle.le.mtitle) title(ntitle) = line go to 150 200 continue c read and save reff and degen: feff version 5.03 and higher read(iunit,999) line call sclean(line) nwords = 4 call bwords(line(2:), nwords, words) call str2in(words(1), nleg, ier1) if (nleg .gt. mleg) then write(messg,'(2x,a,i2)') $ 'too many legs in path. current limit is', mleg call echo(messg) call warn(2,' '//filnam) end if call str2dp(words(2), degen, ier2) call str2dp(words(3), reff, ier3) call str2dp(words(4), rwignr, ier4) if ( (ier1.ne.0).or.(ier2.ne.0).or.(ier3.ne.0).or. $ (ier4.ne.0) ) then call warn(3, ' bad data in feffnnnn.dat file: '//filnam) end if c skip label and read and save path coordinates information read(iunit,999) line call sclean(line) nwords = 5 do 300 ileg = 0, nleg - 1 read(iunit,999) line call sclean(line) call bwords(line(2:), nwords, words) do 270 ix = 1, 3 call str2dp( words(ix), xyz(ix,ileg),ierr ) 270 continue call str2in( words(4), ipot(ileg), ierr ) call str2in( words(5), iz(ileg), ierr ) 300 continue c fill in last coordinate = first coordinate do 350 ix = 1, 3 xyz(ix,nleg) = xyz(ix,0) 350 continue iz(nleg) = iz(0) ipot(nleg) = ipot(0) c c skip one line then c read in q, amplit, phase, and real and imag parts of p read(iunit,999) line call sclean(line) nwords = 7 do 500 i = 1, mpts + 1 c c read(iunit,*, end = 505) xk, cdel, afeff, phfeff, c $ redfac, xlmda, preal if (i.gt.mpts) then call echo(' not enough memory for feff file: '//filnam) write(messg,'(2x,a,i3,a)') 'results above k = ', $ int(xk), ' will not be reliable' call warn(3, messg) end if read(iunit,999,end=505) line call sclean(line) if (istrln(line).ge.1) then call bwords(line, nwords, words) if (nwords .lt. 7) then call echo(' invalid feff file: '//filnam) go to 505 end if call str2dp(words(1), qf(i), ier1) call str2dp(words(2), cphase(i), ier1) call str2dp(words(3), amplit(i), ier1) call str2dp(words(4), sphase(i), ier1) call str2dp(words(5), redfac, ier1) call str2dp(words(6), xlmda, ier1) call str2dp(words(7), realp(i), ier1) amplit(i) = amplit(i) * redfac xlamb(i) = max(xlmin, xlmda) end if 500 continue 505 continue npts = i - 1 close(iunit) c c make sure no 2pi jumps in phase phase(1) = cphase(1) + sphase(1) do 800 i = 2, npts call pijump ( cphase(i), cphase(i-1)) call pijump ( sphase(i), sphase(i-1)) phase(i) = cphase(i) + sphase(i) 800 continue c c check that qf is monotonically increasing, filling in the high k c points if needed (feff provides monotonically increasing data, so the c first npts of qf are ok -- we just want to fill in the rest c of the points for later extrapolations) do 850 i = npts, mpts if (qf(i).lt.qf(i-1)) then qf(i)=2*qf(i-1)-qf(i-2) amplit(i) = zero cphase(i) = zero sphase(i) = zero phase(i) = zero realp(i) = zero xlamb(i) = 1.d10 end if 850 continue c done return 999 format(a) c end subroutine rdffdt end subroutine rdfb1(ffname,iunit,mtitle,mleg,mpts,npack, $ ntitle,npot,npts,rnrmav,l0,title,izpot,phc,ck,xk) c c read top of feff.bin implicit none integer npot, npts, mtitle, mleg, mpts, iunit, ivers character*(*) ffname, filnam*128, title(mtitle), baddat*256 integer izpot(0:mleg), l0, ntext,i, ntitle,ier1, ier2, ier3 integer mptsx parameter(mptsx= 128) complex*16 phc(*), ck(*) double precision xk(*), ere(mptsx), rnrmav integer mwords, ierr, nwords, npack character*128 str parameter (mwords = 20 ) character*30 words(mwords) if (npack.le.3) npack = 8 filnam = ffname baddat = ' bad data in feff.bin file: '//filnam 10 format(a) c first line identifies file (only) read(iunit,10) str call sclean(str) if ((str(1:10).ne.'#_feff.bin')) call echo(baddat) ivers = 1 ccc if (str(1:14).eq.'#_feff.bin fil') ivers = 1 if (str(1:14).eq.'#_feff.bin v02') ivers = 2 c second line contains ntitle, npot, npts read(iunit,10) str call sclean(str) if ((str(1:2).ne.'#_')) call echo(baddat) nwords = 3 call bwords(str(3:),nwords,words) if (nwords.ne.3) call echo(baddat) call str2in(words(1), ntext, ier1) call str2in(words(2), npot, ier2) call str2in(words(3), npts, ier3) if ((ier1.ne.0).or.(ier2.ne.0).or.(ier3.ne.0)) $ call echo(baddat) c title lines ntitle = min(ntext,mtitle) do 20 i = 1, ntext read(iunit,10) str call sclean(str) if (str(1:2).ne.'#"') call echo(baddat) if (i.le.ntitle) title(i) = str(3:) 20 continue c line with several numbers, only rnrmav and l0 are needed for exafs read(iunit,10) str call sclean(str) if (str(1:2).ne.'#&') call echo(baddat) nwords = 8 call bwords(str(3:),nwords,words) if (ivers.eq.1) then if (nwords.ne.8) call echo(baddat) call str2dp(words(3), rnrmav, ier1) call str2in(words(8), l0, ier2) if ((ier1.ne.0).or.(ier2.ne.0)) call echo(baddat) elseif (ivers.eq.2) then if (nwords.ne.5) call echo(baddat) call str2dp(words(2), rnrmav, ierr) call str2in(words(5), l0, ier2) if ((ier1.ne.0).or.(ier2.ne.0)) call echo(baddat) end if c read pot labels and atomic numbers read(iunit,10) str call sclean(str) if (str(1:2).ne.'#@') call echo(baddat) nwords = min(mwords, 2 * npot + 2 ) call bwords(str(3:), nwords, words) if (nwords.ne.(2 + 2*npot)) call echo(baddat) do 30 i = 0, npot call str2in(words(2+npot+i),izpot(i),ier1) if (ier1.ne.0) call echo(baddat) 30 continue c c read packed arrays call rdpadc(iunit,npack,phc, npts) call rdpadr(iunit,npack,ere, npts) call rdpadc(iunit,npack,ck, npts) call rdpadr(iunit,npack,xk, npts) c done return end ifeffit-1.2.11d/src/lib/str.f0000644000175000017500000005640111024017331014662 0ustar segresegre subroutine triml (string) c removes leading blanks. character*(*) string, blank*1 parameter (blank = ' ') c-- all blank and null strings are special cases. jlen = istrln(string) if (jlen .eq. 0) return c-- find first non-blank char do 10 i = 1, jlen if (string (i:i) .ne. blank) goto 20 10 continue 20 continue c-- if i is greater than jlen, no non-blanks were found. if (i .gt. jlen) return c-- remove the leading blanks. string = string (i:) return c end subroutine triml end function istrln(str) c returns index of last non-blank character, c 0 if string is null or blank. character*(*) str, blank*1 parameter (blank = ' ') ilen = len(str) istrln = 0 if ((str(1:1).eq.char(0)) .or. (str.eq.blank)) return do 10 l = ilen, 1, -1 if (str(l:l) .ne. blank) then istrln = l return endif 10 continue return c end function istrln end subroutine smcase (str, contrl) c convert case of string *str*to be the same case c as the first letter of string *contrl* c if contrl(1:1) is not a letter, *str* will be made lower case. character*(*) str, contrl, s1*1, t1*1 s1 = contrl(1:1) t1 = s1 call lower(t1) if (t1.eq.s1) call lower(str) if (t1.ne.s1) call upper(str) return c end subroutine smcase end subroutine lower (str) c changes a-z to lower case. ascii specific character*(*) str parameter(iupa= 65, iupz= 90, idif= 32) do 10 j = 1, len(str) i = ichar(str(j:j)) if ((i.ge.iupa).and.(i.le.iupz)) str(j:j) = char(i+idif) 10 continue return c end subroutine lower end subroutine upper (str) c changes a-z to upper case. ascii specific character*(*) str parameter(iloa= 97, iloz=122, idif= 32) do 10 j = 1, len(str) i = ichar(str(j:j)) if ((i.ge.iloa).and.(i.le.iloz)) str(j:j) = char(i-idif) 10 continue return c end subroutine upper end subroutine unblnk (string) c c remove blanks from a string integer i, ilen, j character*(*) string, str*2048, blank*1 parameter (blank = ' ') ilen = min(2048, max(1, istrln(string))) j = 0 str = blank do 10 i = 1, ilen if (string(i:i).ne.blank) then j = j+1 str(j:j) = string(i:i) end if 10 continue string = blank string = str(1:j) return c end subroutine unblnk end subroutine untab(string) c replace tabs with blanks : tab is ascii dependent integer itab , i parameter (itab = 9) character*(*) string, blank parameter (blank = ' ') 10 continue i = index(string, char(itab)) if (i .ne. 0) then string(i:i) = blank go to 10 end if return c end subroutine untab end subroutine strsplit(sinp, nwords, words, delim) c c breaks string into words using a single delimeter c nwords: max number of words (input), number of words (output) c words: pieces of the string c delim: delimeter to split string on. Can be multi-character, c but cannot be 'multi-blanks' -- these are folded into c a delimiter of a single blank (the default). implicit none integer ldel, i, j, nwords, mwords, istrln character*(*) sinp, words(nwords), delim external istrln ldel = istrln(delim) if ((delim.eq.' ').or.(ldel.lt.1)) then ldel = 1 delim = ' ' endif mwords = nwords nwords = 0 call triml(sinp) if (istrln(sinp) .eq. 0) return j = 1 30 continue i = index(sinp(j:),delim(1:ldel)) if ((i.gt.0).and.(nwords.lt.mwords-1)) then c this ignores blank words (multiple delimeters) if (i.gt.1) then nwords = nwords + 1 words(nwords) = sinp(j:j+i-2) endif j = j+i+ldel-1 go to 30 end if nwords = nwords + 1 words(nwords) = sinp(j:) return c end subroutine strsplit end subroutine strreplace(s,s1,s2) c replace s1 with s2 in string s integer i, j, i1, i2, istrln, n character*(*) s, s1, s2 i1 = istrln(s1) i2 = istrln(s2) j = 1 n = 0 30 continue i = index(s(j:),s1(1:i1)) n = n+1 if ((n.le.1024).and.(i .ne. 0)) then i = i+j-1 s = s(1:i-1)//s2(1:i2)//s(i+i1:) j = i + i2 go to 30 end if return c end subroutine strreplace end subroutine uncomm(str) c c purpose: remove comments from a string c c arguments: c str string to modify [in/out] c notes: c 1. '*' is a comment iff it occurs in col 1 c 2. char(10) and char(12) are end-of-line comments c 3. '!', '#', and '%' are end-of-line comments that c can be protected by matching " ", ' ', ( ), [], or {} c c requires: istrln, triml, echo c c copyright 1997 matt newville integer i, istrln, ilen, iprot character*(*) str, copen*5, cclose*5, eol*3, spec*2, s*1 character*1 blank, star parameter(blank = ' ',star = '*') external istrln data copen, cclose, eol / '[{"''(', ']}"'')', '!#%' / c spec(1:2) = char(10)//char(12) call triml(str) ilen = istrln(str) if ((ilen.le.0).or.(str(1:1).eq.star)) then str = blank i = 1 else iprot = 0 do 50 i = 1, ilen s = str(i:i) if (iprot.le.0) then iprot = index(copen,s) elseif (iprot.le.5) then if (s.eq.cclose(iprot:iprot)) iprot = 0 else cc call echo('** uncomm confusion: iprot out of range') return end if c if the string is unprotected, look for end-of-line comment characters if (((iprot.eq.0).and.(index(eol,s).ne.0)).or. $ index(spec,s).ne.0) go to 60 50 continue i = ilen + 1 60 continue end if str = str(1:i-1) c end subroutine uncomm return end subroutine strclp(str,str1,str2,strout) c c a rather complex way of clipping a string: c strout = the part of str that begins with str2. c str1 and str2 are subsrtings of str, (str1 coming before str2), c and even if they are similar, strout begins with str2 c for example: c 1. str = "title title my title" with str1 = str2 = "title" c gives strout = "title my title" c 2. str = "id 1 1st path label" with str1 = "1", str2 = "1st" c gives strout = "1st path label" c character*(*) str, str1, str2, strout integer i1, i2, ibeg, iend, istrln, ilen external istrln ilen = len(strout) i1 = max(1, istrln(str1)) i2 = max(1, istrln(str2)) i1e = index(str,str1(1:i1)) + i1 ibeg = index(str(i1e:),str2(1:i2) ) + i1e - 1 iend = min(ilen+ibeg, istrln(str) ) strout = str(ibeg:iend) return c end subroutine strclp end subroutine rmdels(s,s1,s2) c c remove general enclosing delimeters from a string character*(*) s, s1, s2, t*2048 call triml(s) i = istrln(s) t = s if ((s(1:1).eq.s1) .and. (s(i:i).eq.s2)) s = t(2:i-1) return end c c subroutine rmpars(str) c c remove enclosing parentheses for a string c character*(*) str c call rmdels(str,'(',')') c return c end subroutine rmquot(str) c remove enclosing single or double quotes from a string character*(*) str call rmdels(str,'''','''') call rmdels(str,'"','"') return end subroutine undels(s) c remove an enclosing delimiter from a string character*(*) s, op*5, cl*5 integer j data op, cl / '[{"''(', ']}"'')'/ j = index(op,s(1:1)) if (j.ne.0) then call rmdels(s, op(j:j), cl(j:j) ) end if return end subroutine str2dp(str,dpval,ierr) c return dp number "dpval" from character string "str" c if str cannot be a number, ierr < 0 is returned. character*(*) str, fmt*15 double precision dpval integer ierr logical isnum external isnum ierr = -999 if (isnum(str)) then ierr = 0 write(fmt, 10) min(999,max(2,len(str))) 10 format('(bn,f',i3,'.0)') read(str, fmt, err = 20, iostat=ierr) dpval end if if (ierr.gt.0) ierr = -ierr return 20 continue ierr = -998 return c end subroutine str2dp end subroutine str2re(str,val,ierr) c return real from character string "str" character*(*) str double precision dpval real val integer ierr call str2dp(str,dpval,ierr) if (ierr.eq.0) val = real(dpval) return c end subroutine str2re end subroutine str2in(str,intg,ierr) c return integer from character string "str" c returns ierr = 1 if value was clearly non-integer character*(*) str double precision val, tenth parameter (tenth = 1.d-1) integer ierr, intg call str2dp(str,val,ierr) if (ierr.eq.0) then intg = int(val) if ((abs(intg - val) .gt. tenth)) ierr = 1 end if return c end subroutine str2in end subroutine str2lg(str,flag,ierr) c return logical "flag" from character string "str". c flag is true unless the first character is c '0', 'f' or 'n' (not case-sensitive) character*(*) str, test*5 parameter (test = 'fnFN0') logical flag integer ierr ierr = 0 flag = index(test,str(1:1)).eq.0 return c end subroutine str2lg end subroutine str2il(str,miar,niar,iar,ierr) c convert a string into an integer _list_, c supporting syntax like '1-2,12,4,6-8' returns c iar = 1,2,4,6,7,8,12 niar = 7 c c returns ierr = -1 if string clearly non-integer character*(*) str, s*1024, sint*64 integer miar, niar, iar(miar), ierr, istrln integer i, ibeg logical dash external istrln s = str call triml(s) if ((s.eq.'all') .or.(s.eq.'all,')) then write(sint, 10) miar call triml(sint) s = '1-'//sint(1:istrln(sint))//',' call triml(s) endif 10 format(i6) ilen = istrln(s)+1 s = s(1:ilen-1)//'^' do 20 i = 1, miar iar(i) = 0 20 continue niar = 0 ierr = -1 ix1 = 0 dash = .false. if (ilen.gt.1) then i = 1 ibeg = 1 100 continue i = i + 1 if ((s(i:i).eq.',') .or. (s(i:i).eq.'^')) then sint = s(ibeg:i-1) ibeg = i+1 if (dash) then call str2in(sint,ix,ierr) do 130 j = ix1, ix niar = niar + 1 iar(niar) = j 130 continue else call str2in(sint,ix,ierr) niar = niar + 1 iar(niar) = ix end if dash = .false. elseif (s(i:i).eq.'-') then sint = s(ibeg:i-1) dash = .true. call str2in(sint,ix1,ierr) ibeg = i+1 end if if (s(i:i).ne.'^') go to 100 end if c now remove the zeroth one! niar = niar - 1 c return c end subroutine str2il end logical function is_comment(line) c c returns true if line is a comment or blank line, false otherwise c comment lines start with one of: '#', '*', ';', '%' character*(*) line, l1*1, com*4 parameter(com = '#*;%') integer istrln external istrln is_comment = .false. l1 = line(1:1) if ((istrln(line).le.0) .or. (index(com,l1).ge.1)) then is_comment = .true. endif return end logical function isnum (string) c tests whether a string can be a number. not foolproof! c to return true, string must contain: c - only characters in 'deDE.+-, 1234567890' (case is checked) c - no more than one 'd' or 'e' c - no more than one '.' c - if '+' or '-' is seen after a digit, 'deDE' must be seen. c matt newville character*(*) string, number*20 c note: layout and case of *number* is important: do not change! parameter (number = 'deDE.,+- 1234567890') integer iexp, idec, i, j, istrln, isign integer jexp logical ldig, l_op external istrln c str = string c call triml(str) iexp = 0 jexp = 0 idec = 0 isign = 0 ldig = .false. l_op = .false. isnum = .false. do 100 i = 1, max(1, istrln(string)) j = index(number,string(i:i)) cc print*, 'X ' , i, j, ' : ' , str(i:i) if (j.le.0) go to 200 if (j.ge.10) ldig = .true. if((j.ge.1).and.(j.le.4)) then iexp = iexp + 1 jexp = i endif if (j.eq.5) idec = idec + 1 if ((j.eq.7).or.(j.eq.8)) then isign= isign +1 if ((i .gt. 1) .and. (i .ne. (jexp+1))) then l_op = .true. endif endif 100 continue c every character in "string" is also in "number". so, if there are c not more than one exponential and decimal markers, it's a number if ((iexp.le.1).and.(idec .le.1)) isnum = .true. if ((iexp.eq.0).and.(isign.gt.1)) isnum = .false. if (jexp.eq.1) isnum = .false. isnum = isnum .and. (.not.l_op) cc print*, 'ISNUM: ', string(1:istrln(string)) cc print*, ' ', isnum, l_op, iexp, idec, isign 200 continue return c end logical function isnum end logical function isdat(string) c tests if string contains numerical data c returns true if the first (up to eight) words in string can c all be numbers. requires at least two words, and tests only c the first eight columns integer nwords, mwords, i parameter (mwords = 8) character*30 string*(*), words(mwords), line*2048 logical isnum external isnum c isdat = .false. do 10 i = 1, mwords words(i) = 'no' 10 continue c nwords = mwords line = string call triml(line) call untab(line) call bwords(line, nwords, words) if (nwords.ge.1) then isdat = .true. do 50 i = 1, nwords isdat = isdat .and. isnum(words(i)) 50 continue end if return end subroutine bwords (str, nwords, words) c c breaks string into words. words are separated by a c whitespace (blank or tab), comma, or equal sign, c plus zero or more whitespaces. c c args i/o description c ---- --- ----------- c s i char*(*) string to be broken up c nwords i/o input: maximum number of words to get c output: number of words found c words(nwords) o char*(*) words(nwords) c contains words found. words(j), where j is c greater then nwords found, are undefined on c output. c c written by: steven zabinsky, september 1984 c altered by: matt newville c************************** deo soli gloria ************************** c-- no floating point numbers in this routine. character*(*) str, words(nwords) character blank, comma, equal, s parameter (blank = ' ', comma = ',', equal = '=') external istrln c-- betw .true. if between words c comfnd .true. if between words and a comma or equal has c already been found logical betw, comfnd c-- define tab character (ascii dependent) mwords = nwords nwords = 0 call untab (str) call triml (str) ilen = istrln (str) c-- all blank string is special case if (ilen .eq. 0) return c-- ibeg is beginning character of a word ibeg = 1 betw = .true. comfnd = .true. do 10 i = 1, ilen s = str(i:i) if (s .eq. blank) then if (.not. betw) then nwords = nwords + 1 words (nwords) = str (ibeg : i-1) betw = .true. comfnd = .false. endif elseif ((s.eq.comma).or.(s.eq.equal)) then if (.not. betw) then nwords = nwords + 1 words (nwords) = str(ibeg : i-1) betw = .true. elseif (comfnd) then nwords = nwords + 1 words (nwords) = blank endif comfnd = .true. else if (betw) then betw = .false. ibeg = i endif endif if (nwords .ge. mwords) return 10 continue c if (.not. betw .and. nwords .lt. mwords) then nwords = nwords + 1 words (nwords) = str (ibeg :ilen) endif return c end subroutine bwords end subroutine bkeys(str, mkeys, keys, values, nkeys) c c purpose: break a string into {key,value} pairs. c arguments: c str string to break into pairs [in] c mkeys dimension of arrays keys and values [in] c keys character array of keys [out] c values character array of values [out] c nkeys number of keys found [out] c c parsing rules: c 1. a key is a word terminated by whitespace, an equal sign, c a comma, or the final close paren. keys are converted to c lower case before returning. c c 2. a value is a more general string, terminated by either c an "unprotected" comma or the final "unprotected" close paren. c Any part of the string can be "protected" by either matching c single quotes, double quotes, parens, braces, or brackets. c In fact, *all* of these pairs must be matched for the c value to terminate. the values are left in their original case. c c 3. If a key does not have a value (because a comma or the last close c paren gets in the way) the value will be set to '%undef%'. c note that str2lg will interpret this as "true"!, and that it c will never make sense as any other value. c c example: x =13.214, File = B.dat, Verbose, sig = sqrt(A + min(b,c)) c will return these pairs: c key value c x 13.214 c file B.dat c verbose %undef% c sig sqrt(A + min(b,c)) c c routines needed: istrln, triml, lower, rmdels, echo c c copyright (c) 1998 matt newville c integer istrln, i, j, ilen, ibeg integer nkeys, mkeys, nk, jprot character*(*) str, keys(mkeys), values(mkeys), tmp*2048 character s, t, u, blank, comma, equal, semicl character copen*3, cclose*3, undef*8 logical lcomma, seek_key, have_key parameter (blank = ' ',comma = ',',equal = '=',semicl = ';') parameter (undef = '%undef%') external istrln data copen, cclose / '[{(', ']})'/ c c initialize nkeys = 0 do 10 i = 1, mkeys keys(i) = blank values(i) = undef 10 continue have_key = .false. seek_key = .true. lcomma = .false. ibeg = 1 iprot = 0 jprot = 0 c c check for valid string to parse ilen = istrln(str) cc print*,'BKEYS:',str(1:ilen),':', ilen if (ilen .eq. 0) return c c loop through string i = 0 100 continue i = i + 1 s = str(i:i) c test for opening/closing delimiters c and march over protected strings if ((s.eq.'''').or.(s.eq.'"')) then t = s cc print*, ' quote: ', t 120 continue i = i + 1 if ((str(i:i).ne.t).and.(i.lt.ilen)) goto 120 else iprot = index(copen,s) if ((iprot.ge.1).and.(iprot.le.3)) then cc print*, ' iprot = ',iprot , s, i jprot= jprot + 1 t = copen(iprot:iprot) u = cclose(iprot:iprot) 130 continue i = i + 1 if (str(i:i).eq.t) jprot = jprot + 1 if (str(i:i).eq.u) jprot = jprot - 1 if ((i.lt.ilen).and.(jprot.ne.0)) goto 130 end if endif lcomma = s.eq.comma c looking for keyword: c we've seen the beginning of a keyword, and now we see the end: c keyword ends at "=",","," ", or the final positon if (seek_key) then if (((s.eq.equal).or.lcomma.or.(i.eq.ilen))) then nkeys = nkeys + 1 if (nkeys .ge. mkeys) go to 150 keys(nkeys) = str(ibeg:i-1) if ((i.eq.ilen).and.(.not.lcomma).and.(s.ne.equal)) $ keys(nkeys) = str(ibeg:i) cc print*, 'found key : ', nkeys, ' ', keys(nkeys)(1:32) ibeg = min(i + 1, ilen) seek_key = .false. have_key = .false. c a bare word counts as a key with value= undefined (as above) if (lcomma .or.(i.eq.ilen) ) then seek_key = .true. call triml(keys(nkeys)) ij = istrln(keys(nkeys)) if (index(keys(nkeys)(1:ij),blank).ne.0) then tmp = keys(nkeys)(1:ij) c c call echo(' syntax error: '//tmp) keys(nkeys) = blank end if end if elseif (.not.have_key) then have_key = s.ne.blank end if c looking for a value: ends at a comma or the final postion else if (lcomma.or.(i.eq.ilen)) then values(nkeys) = str(ibeg:i-1) if ((i.eq.ilen).and.(.not.lcomma)) $ values(nkeys) = str(ibeg:) ibeg = min( i + 1, ilen) seek_key = .true. end if end if if (i.le.ilen) goto 100 150 continue c c finally, we may have ended with a one-letter keyword, in which case c have_key is true if (have_key) then nkeys = nkeys + 1 keys(nkeys) = str(ibeg:) call triml(keys(nkeys)) end if c c now clean up keys and values, eliminate blank and invalid keys nk = nkeys nkeys = 0 do 500 i = 1, nk if (keys(i).ne.blank .and. keys(i).ne.comma .and. $ keys(i).ne.equal .and. keys(i).ne.semicl) then nkeys = nkeys + 1 keys(nkeys) = keys(i) call triml( values(i)) if (values(i)(1:1).eq.equal) then values(i) = values(i)(2:) call triml(values(i) ) end if call rmquot(values(i)) do 470 j = 1, 2 call rmdels(values(i),copen(j:j),cclose(j:j)) 470 continue call triml( values(i)) values(nkeys) = values(i) if (values(nkeys).ne.undef) call lower(keys(nkeys)) call triml(keys(nkeys)) end if lk = istrln(keys(i)) lv = istrln(values(i)) cc print*, i,' |', keys(i)(1:lk),' | ', values(i)(1:lv), '|' 500 continue return c end subroutine bkeys end ifeffit-1.2.11d/src/lib/u2ipth.f0000644000175000017500000000347310771740457015312 0ustar segresegre integer function u2ipth(iuser) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c return ifeffit's "internal path index" given a user path and dataset implicit none include 'consts.h' include 'pthpar.h' save integer i, iuser u2ipth = 0 c find i such that iuser = jdtusr(i) c and then inpath = jdtpth(i) c note that i can be zero!! do 10 i = 0, mpaths if (iuser .eq. jdtusr(i)) then u2ipth = jdtpth(i) return end if 10 continue return end ifeffit-1.2.11d/src/lib/compat.f0000644000175000017500000000540210771740457015354 0ustar segresegrec c this holds simple replacements for ifeffit routines c to be used by the 'libxafs' routines c c included in this file are: c sca_init setsca getsca c c IMPORTANT: DO NOT link into libifeffit.a!!! c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c subroutine sca_init implicit none include 'compat.h' integer i do 10 i = 1, mxsca sscanam(i) = '' sscaval(i) = 0.d0 10 continue end subroutine setsca(str,x) implicit none character*(*) str double precision x integer i, ilen, istrln include 'compat.h' external istrln snamtmp = str call triml(snamtmp) call lower(snamtmp) ilen = istrln(snamtmp) do 10 i = 1, mxsca if ((snamtmp(1:ilen) .eq. sscanam(i)(1:ilen)) .or. $ ('' .eq. sscanam(i)(1:ilen))) go to 20 10 continue call warn(3,"error: setsca out of memory") return 20 continue sscanam(i) = snamtmp(1:ilen) sscaval(i) = x return end double precision function getsca(str,iwarn) implicit none character*(*) str integer i, ilen, istrln, iwarn include 'compat.h' external istrln getsca = 0.d0 snamtmp = str call triml(snamtmp) call lower(snamtmp) ilen = istrln(snamtmp) do 10 i = 1, mxsca if (snamtmp(1:ilen) .eq. sscanam(i)(1:ilen)) $ getsca = sscaval(i) 10 continue return end ifeffit-1.2.11d/src/lib/misc_vars.f0000644000175000017500000001664310771740457016070 0ustar segresegrec////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// subroutine setsca(name, value) c c purpose: set value of a named scalar variable to a real number, c avoiding calls to encod/decod c c arguments: c name name of text variable to set [in] c value real value of scalar variable [in] c c notes: c 1. if the name is not found in the current table c (arrnam array in common block), it will be added to table. c c requires: ifeffit.h, lower implicit none include 'consts.h' include 'arrays.h' include 'encod.h' save character*(*) name, tmpnam*64 integer inam, ival, k, istrln double precision value, val external istrln c val = value tmpnam = name k = istrln(tmpnam) call lower(tmpnam(1:k)) cc print*, 'SETSCA ', tmpnam(1:k), ' -> ', val c look up str in list of scalar names do 10 inam = 1, maxsca if ( (scanam(inam).eq.' ').or. $ (scanam(inam).eq.tmpnam) ) go to 12 10 continue 12 continue c if (val.eq.zero) then ival = 1 else do 50 ival = 2, mconst if ( (consts(ival).eq.val).or. $ (consts(ival).eq.zero) ) go to 52 50 continue 52 continue consts(ival) = val end if c set scalar name, value, and update consts array scalar(inam) = val scanam(inam) = name scafrm(inam) = blank c simple encoding for assignment of constant value icdsca(1,inam) = jconst + ival icdsca(2,inam) = 0 c end subroutine fast_setsca return end subroutine settxt(name, value) c c purpose: set value of a named text (scalar) variable c c arguments: c name name of text variable to set [in] c value value of text variable [in] c c notes: c 1. if the name is not found in the current table c (txtnam array in common block), it will be added to table. c c requires: ifeffit.h, lower, triml c c copyright 1997 matt newville c implicit none include 'consts.h' include 'arrays.h' save character*(*) name, value, str*256, val*256, tmp*256 integer j, k, istrln external istrln str = name call triml(str) c text strings may begin with a '$', following ifeffit syntax if (str(1:1).eq.'$') str = str(2:) call lower(str) k = istrln(str) val = value call triml(val) c look up str in list of text scalar names do 10 j = 1, maxtxt tmp = txtnam(j) call triml(tmp) if ((tmp.eq.' ').or.(tmp.eq.str(1:k))) go to 12 10 continue 12 continue c set scalar name, value txtnam(j) = str(1:k) text(j) = val c end subroutine settxt return end double precision function getsca(name,iwarn) c c purpose: get value of a scalar variable, c circumventing a big "decod" call c c arguments: c name name of scalar to get [in] c c notes: c 1. if the name is not found in the current table c (scanam array in common block), it will be added to table c and initialized to zero. c c requires: ifeffit.h, encod.h, setsca, lower c c copyright (c) 1998 matt newville c implicit none include 'consts.h' include 'arrays.h' save character*(*) name, tmpnam*64 integer i, n, istrln, iwarn getsca = zero tmpnam = name call lower(tmpnam) i = 0 c loop through known scalar names 10 continue i = i + 1 c is this an existing variable? if (scanam(i).eq.tmpnam) then getsca = scalar(i) c check whether this is fitting variable if ((iwarn .ge. 1).and.(icdsca(1,i) .eq. -1 )) then n = istrln(tmpnam) call echo(' Warning: the fitting variable '//tmpnam(1:n)) call warn(1,' is being read internally by ifeffit.') call warn(1,' this may cause unstable results.') endif c is this a blank scalar name? if so, initialize to this one elseif(scanam(i).eq.' ') then call setsca(tmpnam,zero) elseif (i.le.maxsca) then go to 10 end if c end function getsca return end subroutine gettxt(name, value) c c purpose: get value of a text variable, given it's name c c arguments: c name name of text variable to get [in] c value value of text variable [out] c c notes: c 1. if the name is not found in the current table c (txtnam array in common block), it will be added to table c and initialized to ' '. c c requires: ifeffit.h, settxt, lower, triml c c copyright (c) 1998 matt newville c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' save character*(*) name, value, str*256 integer i str = name value = ' ' call lower(str) call triml(str) if (str(1:1).eq.'$') str = str(2:) i = 0 c loop through known text names 10 continue i = i + 1 c is this an existing variable? if (txtnam(i).eq.str) then value = text(i) c is this a blank text name? if so, initialize to this one elseif(txtnam(i).eq.' ') then call settxt(str,' ') elseif (i.le.maxtxt) then go to 10 end if call triml(value) c end function gettxt return end logical function isasca(name) c c purpose: determine if a named scalar exist c arguments: c name name of scalar to get [in] c c copyright (c) 2000 matt newville c implicit none include 'consts.h' include 'arrays.h' save character*(*) name, tmpnam*64 integer i tmpnam = name isasca = .false. call lower(tmpnam) i = 0 c loop through known scalar names 10 continue i = i + 1 c is this an existing variable? if (scanam(i).eq.tmpnam) then isasca = .true. elseif (i.le.maxsca) then go to 10 end if c end function isasca return end ifeffit-1.2.11d/src/lib/iff_uncert.f0000644000175000017500000000623010771740457016215 0ustar segresegre subroutine iff_uncert(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c c purpose: propogate errors in fitted parameters to defined parameters c implicit none include 'consts.h' include 'keywrd.h' include 'arrays.h' include 'feffit.h' save character*(*) str character*128 xvar, yvar, out, pref, defkey(3)*64 double precision xn, xcmin logical lprint, lxall, lyall, lsave integer ier, i, k, istrln, ndfkey, jx, jy, lx, ly external istrln c cc print*, ' error() ' lprint = .false. lsave = .true. call iff_sync call bkeys(str, mkeys, keys, values, nkeys) xvar = ' ' pref = 'dx' out = undef c set default keywords for "undefined" sets c ie: the first two unkeyed values will take keys 'x', 'y' ndfkey = 0 defkey(1) = undef do 100 i = 1, nkeys cc print*,i, keys(i) k = istrln( keys(i)) if ((values(i).eq.undef).and.(i.le.ndfkey)) then values(i) = keys(i) keys(i) = defkey(i) end if if (keys(i).eq.'prefix') then pref = values(i) call lower(pref) elseif (keys(i).eq.'min') then call str2dp(values(i), xcmin, ier) elseif (keys(i).eq.'print') then call str2lg( values(i), lprint, ier) elseif (keys(i).eq.'save') then call str2lg( values(i), lsave, ier) elseif (keys(i).eq.'no_save') then call str2lg( values(i), lsave, ier) lsave = .not.lsave else messg = keys(i)(1:k)//' " will be ignored' call warn(1,' *** correl: unknown keyword " '//messg) end if 100 continue c c get/resolve array names jx = 0 jy = 0 cc print*, nvarys return c end subroutine iff_uncert end ifeffit-1.2.11d/src/lib/genfun.f0000745000175000017500000000716711024016540015344 0ustar segresegre subroutine genfun(mf, nx, xv, fv, iend) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: generic function for lmdif1 minimization c c arguments: c mf number of points in ffit [in] c nx number of points in xv [in] c xv vector of variables [in] c fv output vector to be minimized [out] c iend information tag [out] c implicit none include 'consts.h' include 'arrays.h' include 'feffit.h' include 'keywrd.h' c local variables integer nx, mf, iend, i, j, iter, nf1, ne1, get_array integer ier, iff_eval_dp, mfx double precision xv(nx), fv(mf), epsmin, getsca, tmpval double precision fitarr(maxpts) parameter (epsmin = 1.d-9) external getsca, get_array, iff_eval_dp save if (nx.ne.nvarys) iend = 1 if (mf.ne.mfit) iend = 2 do 20 i =1, nx scalar(i) = xv(i) 20 continue c c synchronize variables and their dependencies call synvar c c look up function to minimize nf1 = get_array(cfmin_arr, cfmin_pre, 0, fitarr) ne1 = get_array(cfmin_err, cfmin_pre, 0, tmparr) cc print*, ' genfun = ', nf1, ne1, ':', cfmin_arr(1:40), '/', cc $ cfmin_err(1:40) cc print*, ' mf = ', mf, ifitx1, ifitx2, usewgt,ne1 cc print*, ' tmparr = ', tmparr(1), tmparr(2),tmparr(3) mfx = mf - nrestraint(1) if (usewgt.and.(ne1.gt.0)) then do 50 i = 1, mfx j = ifitx1 - 1 + i fv(i) = fitarr(j) / max(epsmin, tmparr(j)) 50 continue else do 70 i = 1, mfx j = ifitx1 - 1 + i fv(i) = fitarr(j) 70 continue end if if (nrestraint(1) .ge. 1) then do 90 i = 1, nrestraint(1) if ((restraint(i,1).ne.'').and. $ (restraint(i,1).ne.undef)) then ier = iff_eval_dp(restraint(i,1),tmpval) fv(mfx+i) = tmpval endif 90 continue endif c c execute user-defined macro iter = int(getsca('&fit_iteration',0)) if ((iter.gt.itera) .and. (ifit_mac.gt.0)) then itera = iter call iff_macro_do(ifit_mac, fit_m_arg, 0,.false.) endif return c end subroutine genfun end ifeffit-1.2.11d/src/lib/iff_echo.f0000644000175000017500000000471010771740457015634 0ustar segresegre subroutine iff_echo(string,ipause) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: print string, optionally waiting for user input c c arguments: c string line to write as message [in] c ipause integer flag for pausing (1=pause) [in] c c 1. for 'pause' mode, the default message (ie when string='') c is ' -- hit return to continue -- ' c 2. uses non-standard format(1x,a,$) statement c c requires: istrln, undels, echo, chrdmp implicit none character*(*) string, str*256, c*1, msgdef*64 parameter (msgdef = ' -- hit return to continue -- ') double precision getsca integer ilen, istrln, ipause, i_ec, i_pa external istrln, getsca c c = ' ' str = string call undels(str) call triml(str) i_ec = int(getsca('&screen_echo',0)) i_pa = int(getsca('&pause_ignore',0)) if ((i_ec.eq.1).and.(i_pa.eq.0).and.(ipause.eq.1)) then if (str.eq.' ') str = msgdef ilen = istrln(str) call chrdmp(str(1:ilen)) read(*,'(a)') c else ilen = max(1,istrln(str)) call echo(' '//str(1:ilen)) end if return end ifeffit-1.2.11d/src/lib/spline.h0000644000175000017500000000147510771740457015373 0ustar segresegrec{spline.h -*-fortran-*- integer nsplin, nautbk, nxmu, nr1st, nrbkg, nclamp logical theory, eevary, thefix, funnrm, clamp(2) double precision de0, e0, emin, emax, chie(maxpts), rbkg,r1st double precision endat(maxpts), xmudat(maxpts) double precision eknot(mtknot), thessq, thebkg, step, splqw double precision splwin(maxpts), splfit(maxpts) double precision spldat(maxpts), sclamp(2) cc double precision cld_wgt(maxpts), cld_dat(maxpts), cld_f2(maxpts) common /xbkin/ nsplin,nautbk, nxmu, nr1st, nrbkg, nclamp common /xbklg/ funnrm, thefix, theory, eevary,clamp common /xbkvr/ rbkg, r1st, thessq, thebkg, step, $ e0, de0, emin, emax, endat, xmudat, chie, $ eknot, splqw, splwin, splfit, spldat, sclamp c} ifeffit-1.2.11d/src/lib/encod.f0000644000175000017500000003676110771740457015175 0ustar segresegre integer function encod(string, jcode, icode) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: converts a math expression into an integer array (icode) c for fast evaluation by routine adecod c c arguments: c string string for math expression [in/out] c mconst dimension of array of constants [in] c consts array of constants [in/out] c mxicod dimension of icode (maximum = 128) [in] c jcode int array of infix math expression [out] c icode int array of postfix math expression [out] c c returns c encod error/warning code - see notes [out] c c notes: c 1. icode will contain a post-fix (rpn) representation of the c fortran-like math expression in string, with special ranges c of integers describing different classes of operators and values. c see note 6 for a list of integer ranges and meaning. c 2. encod and adecod are designed for many repeated evaluations. c encoding is slow (and slightly redundant) so that decoding is as c efficient as possible. c 3. variables do not need to be explicitly declared before encoding. c if a variable is found that has not already been identified, it c will be added to the appropriate list (see note 4). the link c between variable names and values should be managed outside. c 4. array and scalar names are strings that do not begin with c a number and do not contain any of '+-*/^(), '. Case is not c important. Arrays are distinguished from scalars by the present c of a '.' in the name: 'A.b' is an array, 'A_b' is a scalar. c 5. consts contains the real numbers used in the expressions. no c values are internally set -- they should be set in the c calling routine (including the value of pi!!!). c 6. icode legend: see c icode range meaning c -16385: -10 math functions (see encod.h) c -9: -6 control operations (open and close parens, comma) c -5: -1 not possible! (useful for overwriting/disabling/resetting) c 0 null string c 1: 8192 arrays: values in array array c 8193: 16384 scalars: values in scalar array c 16385: constants: values in consts array c c requires: encod.h, istrln, triml, echo, lower, unblnk, uncomm, c parens, nbrstr, str2dp, enchk, engrpn c c parameters implicit none include 'consts.h' include 'encod.h' include 'arrays.h' save c passed variables character*(*) string c internal variables character*2048 str, strtmp, strout character*256 prefix, errmsg, strnum character*1 str1, straft, strbfr, opera*9 character str3*3,str4*4, str5*5, str6*6, str7*7, str8*8 character*32 mtherr, synerr, encerr, number*11, strfcn logical isvect, isvnam, dotrim integer mxicod, ilen, istr, i, isafcn, ienfcn, nxfcn integer itemp(micode), icode(micode), jcode(micode) integer ibfr, iaft, ibefr, iaftr, ivarln, istrln integer iofarr, iofsca, ierr, ieqn, iparen, isave integer ipar, ntest, nscomm, nspow, nssub, nsadd, nsdiv, nsmul integer nsopen, nsclos, nsnum, nbrstr double precision xreal external istrln, isvnam, iofarr, iofsca, ienfcn, nbrstr parameter(number = '.0123456789', opera = '+-*/^(), ') parameter(mtherr = ' math error: ') parameter(synerr = ' math syntax error: ') parameter(encerr = ' math encoder out of memory: ') c call gettxt('group', prefix) c c initial error checking of input dimensions 10 format (i4,a) c initialization encod = 0 strtmp = ' ' str = ' ' str1 = ' ' strnum = ' ' straft = ' ' strbfr = ' ' strfcn = ' ' c remove interior blanks and end-of-line comments: '!','%','#' strtmp = string call triml(strtmp) call unblnk(strtmp) call uncomm(strtmp) ilen = istrln(strtmp) cc print*, 'encod 1' c if string is blank, return icode(1) = 0 if ( (strtmp.eq.' ').or.(ilen.le.0)) return cc print*, 'encod 2:', strtmp(1:ilen), ':', ilen c c convert string to the case of this routine : c the variable 'case' controls the case of the routine, so it c must be the same case as the strings tested for in strtmp. call lower(strtmp) c c initialize integer arrays to 0 do 50 i = 1, micode icode(i) = 0 jcode(i) = 0 itemp(i) = 0 50 continue c initialization done. c------------------------------------------------------------------- c now start dealing with strtmp as a math expression c fix multiple "unitary" operations: ++, -- -> +; -+, +- -> - do 120 i = 1, ilen-1 str = strtmp(i:i+1) if ((str.eq.'--').or.(str.eq.'++')) strtmp(i:i+1) = ' +' if ((str.eq.'-+').or.(str.eq.'+-')) strtmp(i:i+1) = ' -' 120 continue call unblnk(strtmp) c----------------------------------------------------------------------- c insert parens to ensure normal math precedence. c note that this is not entirely necessary, but it is convenient c to rewrite the string in the way it is intended to be evaluated. string = strtmp call parens(string) call triml(string) ilen = max(1, istrln(string)) string(ilen+1:) = ' ' strout = string c c translate special cases: c note that debye and eins need path index, which is automagically c updated from path_index: ilen = max(1, istrln(string)) string(ilen+1:) = ' ' strtmp = ' ' cc print*, ' ENCOD: ', string(1:50) c----------------------------------------------------------------------- c with the string well behaved (parens inserted so there are no c ambiguities in the math), let's dechiper it and encode icode c c decipher string into integers isave = 0 istr = 0 ieqn = 0 iparen = 0 cc print*, 'encod 3:', string(1:ilen), ':', ilen c advance string postion, check for end of string 300 continue ieqn = ieqn + 1 320 continue istr = istr + 1 ibfr = istr - 1 iaft = istr + 1 if (ibfr.lt.1) ibfr = 1 if (istr.gt.ilen) go to 4000 cc--------------------------- strtmp = string(istr:) str1 = strtmp(:istr) c ignore blank spaces if (str1.eq.' ') go to 320 str3 = strtmp(1:istr+2) str4 = strtmp(1:istr+3) str5 = strtmp(1:istr+4) str6 = strtmp(1:istr+5) str7 = strtmp(1:istr+6) str8 = strtmp(1:istr+7) strbfr = string(ibfr:ibfr) straft = string(iaft:iaft) nsnum = index(number,str1) nsopen = index(strtmp(1:),'(') nsclos = index(strtmp(1:),')') nsmul = index(strtmp(1:),'*') nsdiv = index(strtmp(1:),'/') nsadd = index(strtmp(1:),'+') nssub = index(strtmp(1:),'-') nspow = index(strtmp(1:),'^') nscomm = index(strtmp(1:),',') if (nsopen.eq.0) nsopen = 999999 if (nsclos.eq.0) nsclos = 999999 if (nsmul .eq.0) nsmul = 999999 if (nsdiv .eq.0) nsdiv = 999999 if (nsadd .eq.0) nsadd = 999999 if (nssub .eq.0) nssub = 999999 if (nspow .eq.0) nspow = 999999 if (nscomm.eq.0) nscomm = 999999 ntest = min(nsclos,nsmul,nsdiv,nsadd,nssub,nspow,nscomm) cc print*, string(1:20),': ',istr, nsopen, ntest isafcn = 0 if ((nsopen.gt.1).and.(nsopen.lt.ntest)) then isafcn = 1 nxfcn = nsopen - 1 strfcn = strtmp(1:nsopen-1) cc print*, "is a function:", strtmp(:nsopen-1),":", nsopen, nxfcn end if c-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- c parse string cc print*, '', str1 c # constant real number : find length of real number, read it, c store it, and advance string to end of number if (index(number,str1).ne.0) then isave = istr + nbrstr(string(istr:ilen)) strnum = string(istr:isave) call str2dp(strnum, xreal, ierr) if (ierr.ne.0) then call echo(mtherr//'cannot read number from string') errmsg = ' << '//string(istr:isave)//' >>' call warn(2,errmsg) return endif c check if constant is already stored -- do 450 i = 1, mconst if (xreal.eq.consts(i)) then itemp(ieqn) = jconst + i go to 500 elseif ((consts(i).eq.0).and.(i.gt.1)) then itemp(ieqn) = jconst + i cc print*, ' adding constant ', i, xreal consts(i) = xreal go to 500 end if 450 continue 500 continue c error : too many constants! if (i.ge.mconst) then call warn(3,encerr //' too many constants.') return end if istr = isave c c# end constants c# math operations c parens and comma elseif (str1.eq.'(') then itemp(ieqn) = ileft iparen = iparen + 1 elseif (str1.eq.')') then itemp(ieqn) = iright iparen = iparen - 1 elseif (str1.eq.',') then itemp(ieqn) = icomma c two component math elseif ((str1.eq.'+').or.(str1.eq.'-')) then itemp(ieqn) = iadd if (str1.eq.'-') itemp(ieqn) = isub if ( (straft.eq.')')) then call echo(synerr//strout) call warn(2, $ ' "+)" and "-)" are not correct syntax.') return end if elseif ((str1.eq.'/').or.(str1.eq.'*')) then itemp(ieqn) = imul if (str1.eq.'/') itemp(ieqn) = idiv ibefr = index('(+-/*^,',strbfr) iaftr = index(')*/^,',straft) if ( (istr.eq.1).or.(istr.eq.ilen).or.(iaftr.ne.0) $ .or.(ibefr.ne.0)) then call echo(synerr//strout) if (ibefr.ne.0) errmsg = 'preceded by one of "+-/*^,("' if (iaftr.ne.0) errmsg = 'followed by one of "/*^,)"' if (istr.eq.1) errmsg = 'occurs first' if (istr.eq.ilen) errmsg = 'occurs last' call warn(2,' "/" or "*" '//errmsg) return end if elseif (str1.eq.'^') then ibefr = index('(+-/*^,',strbfr) iaftr = index(')*/^,',straft) itemp(ieqn) = iy2x if ( (istr.eq.1).or.(istr.eq.ilen).or.(iaftr.ne.0) $ .or.(ibefr.ne.0)) then call echo(synerr//strout) if (ibefr.ne.0) errmsg = 'preceded by one of "+-/*^,("' if (iaftr.ne.0) errmsg = 'followed by one of "/*^,)"' if (istr.eq.1) errmsg = 'occurs first' if (istr.eq.ilen) errmsg = 'occurs last' call warn(2,' "^" '//errmsg) return end if c c math functions (one-, and two-component, and special functions) c the operator must be followed by '(', or the expression will c be a variable name: ln2 is a variable ! elseif ((strfcn.ne.' ').and.(isafcn.eq.1)) then itemp(ieqn) = ienfcn(strfcn) if (itemp(ieqn).eq.0) then ilen = istrln(strfcn) errmsg = 'unknown function: '//strfcn(1:ilen)// $ ' : cannot parse expression' call warn(2,errmsg) return endif istr = istr + nxfcn ieqn = ieqn + 1 itemp(ieqn) = ileft iparen = iparen + 1 c# end math operations c# variables c end with blank or math symbol from character string opera else do 750 i = istr, ilen str1 = string(i:i) if (index(opera,str1).ne.0) go to 760 750 continue 760 continue c find which variable it is: ivarln = i - 1 if (ivarln.le.istr) ivarln = istr c check if variable name is valid if (isvnam(string(istr:ivarln),-1)) then isvect = (index(string(istr:ivarln),'.').gt.0) c if it's array name, find out which array it is if (isvect) then itemp(ieqn) = iofarr(string(istr:ivarln),prefix,0,1) else itemp(ieqn) = iofsca(string(istr:ivarln),1) + jscale end if if (itemp(ieqn).le.0) then call echo(encerr) call warn(3,' too many variables declared.') return end if istr = ivarln else call echo(synerr //'invalid variable name') call warn(2,' --> '// strout(istr:ivarln) ) return endif c# end parsing and encoding, go back to line 300 for more end if go to 300 c 4000 continue c c more error checking : c paren count if (iparen.ne.0) then call echo(synerr//strout(1:ilen)) call warn(2,' parentheses are not matched ') return end if c call rpndmp(itemp) c do i = 1, micode c if (itemp(i).ne.0) print*, itemp(i) c enddo call enchk(strout, itemp, ieqn, ierr) encod = ierr if (ierr.gt.0) then call set_status(2) return endif c---- c rewrite itemp to reverse polish notation c then load up icode, and we're all done. do 4700 i = 1, micode jcode(i) = itemp(i) 4700 continue call engrpn(jcode, itemp) if (itemp(micode).ne.0) then call echo(mtherr//'too many objects in math expression!') call echo( ' '//strout(1:ilen)) call warn(3,' please break up expression.') else do 4900 i = 1, micode icode(i) = itemp(i) 4900 continue end if c prepare output : c if we have extra closing parens (and the paren never goes to zero) c trim off the outer parens before returning string string = strout ilen = istrln(string) if ((string(1:1).eq.'(').and.(string(ilen:ilen).eq.')')) then ipar = 1 dotrim = .true. do 5300 i = 2, ilen-2 str1 = string(i:i) if (str1.eq.'(') ipar = ipar + 1 if (str1.eq.')') ipar = ipar - 1 if (ipar.le.0) goto 5350 5300 continue string = string(2:ilen-1) 5350 continue endif c end subroutine encod end ifeffit-1.2.11d/src/lib/iff_color.f0000644000175000017500000002077710771740457016047 0ustar segresegre subroutine iff_color(str) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c update the color table implicit none include 'consts.h' include 'keywrd.h' include 'ifplot.h' save character*(*) str, s*256 integer nwrds, i, j, ier, jcol, istrln, iff_eval_in external istrln, iff_eval_in s = str nwrds = mkeys call bwords(s,nwrds,keys) c cc print*, " bg/fg/gr = ", mcolbg, mcolfg, mcolgr cc print*, " bg/fg/gr = ", pltcol(mcolbg), pltcol(mcolfg), cc $ pltcol(mcolgr) call rmquot(keys(1)) if (keys(1).eq.'show') then call echo(' plot color table: ') call echo(' bg = '//pltcol(mcolbg) ) call echo(' fg = '//pltcol(mcolfg) ) call echo(' grid = '//pltcol(mcolgr) ) do 100 j = 1, mctabl-3 if (pltcol(j).ne.undef) then write(messg,'(3x,i5,2a)') j,' = ',pltcol(j) call echo(messg) end if 100 continue else do 300 i = 1, nwrds, 2 ier = 0 call str2in(keys(i),jcol,ier) call rmquot(keys(i+1)) if (ier.eq.0) then call setcol(jcol, keys(i+1) ) elseif ((keys(i).eq.'bg') .or. $ (keys(i).eq.'background')) then call setcol(mcolbg, keys(i+1) ) elseif ((keys(i).eq.'fg') .or. $ (keys(i).eq.'foreground')) then call setcol(mcolfg, keys(i+1) ) elseif (keys(i)(1:2).eq.'gr') then call setcol(mcolgr, keys(i+1) ) end if 300 continue endif c return end subroutine iff_pstyle(str) c c update the linestyle table implicit none include 'consts.h' include 'keywrd.h' include 'ifplot.h' save character*(*) str, s*256 integer nwrds, i, j, ier, jcol, istrln, iff_eval_in external istrln, iff_eval_in s = str nwrds = mkeys call bwords(s,nwrds,keys) c call rmquot(keys(1)) if (keys(1).eq.'show') then call echo(' plot style table: ') do 100 j = 1, maxplt if (pltsty(j).ne.undef) then write(messg,'(3x,i5,2a)') j,' = ',pltsty(j) call echo(messg) end if 100 continue else do 300 i = 1, nwrds, 2 ier = 0 call str2in(keys(i),jcol,ier) call rmquot(keys(i+1)) call set_plsty(keys(i+1), isty(jcol), pltsty(jcol)) 300 continue endif c return end subroutine set_plsty(style, index, out) c c purpose: set PGPLOT lines style based on style name c arguments: c style string [in] c index style index to use [out] c out 'normalized style string' [out] c c copyright (c) 2000 matt newville character*(*) style, sty*32, out*32 integer index, itmp, ier index = 1 out = 'solid' sty = style call triml(sty) call lower(sty) if ((sty.eq.'solid').or.(sty.eq.'lines')) then index = 1 out = 'solid' elseif ((sty(1:4).eq.'dash')) then index = 2 out = 'dashed' elseif (sty(1:6).eq.'dot-da') then index = 3 out = 'dot-dashed' elseif ((sty.eq.'dotted').or.(sty.eq.'dot')) then index = 4 out = 'dotted' elseif (sty(1:11).eq.'linespoints') then call str2in(sty(12:), itmp, ier) if (itmp.lt.0) itmp = 1 index = itmp + 5 out = style elseif (sty(1:6).eq.'points') then call str2in(sty(7:), itmp, ier) if (itmp.lt.0) itmp = 1 index = -itmp out = style end if return end c subroutine setcol(jcol, string) c c purpose: set color in the color table to a named color c c arguments: c jcol color index to set [in] c string string to interpret as color [in] c c notes: c 1. string can either be a valid colorname from rgb.txt c or begin with '#', and then be interpreted as a c hexadecimal rgb specification c c requires: hexcol, pgscrn c c copyright (c) 1998 matt newville c include 'consts.h' include 'ifplot.h' save character*(*) string, s*32 integer jcol, ier if ((jcol.le.mctabl).and.(jcol.ge.0)) then ier = 0 s = string call lower(s) cc print*, ' setcol: ', jcol, s if (s(1:1).eq.'#') then call hexcol(jcol, s(2:)) else call pgscrn(jcol, s, ier) end if if (ier.eq.0) then pltcol(jcol) = s else call pgscrn(jcol, pltcol(1), ier) end if end if if (jcol .eq. mcolbg) then pltcol(0) = pltcol(mcolbg) call pgscrn(0, pltcol(0), ier) endif return end subroutine getcol(string,jcol) c c purpose: lookup a named color in the color table. if not found, and c there's room, add to color table c c arguments: c string string to interpret as color [in] c jcol color index to set [out] c c notes: c 1. string can either be a valid colorname from rgb.txt c or begin with '#', and then be interpreted as a c hexadecimal rgb specification c c requires: hexcol, pgscrn c c copyright (c) 1998 matt newville c include 'consts.h' include 'ifplot.h' save character*(*) string, s*32 integer jcol, j s = string call lower(s) jcol = 0 do 10 j = 0, mctabl if (pltcol(j).eq.s) then jcol = j return elseif (pltcol(j).eq.undef) then jcol = j call setcol(j,s) return elseif (j.eq.mctabl) then call echo(' ** ifeffit plot: color table full ') call warn(1, $ ' ** redefine some colors with color command') end if 10 continue return end subroutine hexcol(jcol, string) c c purpose: set pgplot color from a hexdecimal string c c arguments: c string string to interpret as color [in] c c c copyright (c) 1998 matt newville integer i, jcol, ilen, istrln, fact c note: uses single precision! real r, g, b, total, zero character*(*) string, s*32, digs*16 parameter (digs = '0123456789abcdef',fact=16, zero=0) total = 1 s = string if (s(1:1) .eq. '#') s = s(2:) ilen = istrln(s) call lower(s) r = zero g = zero b = zero idig = ilen / 3 do 10 i = 1, idig total = total * fact r = fact * r -1 + max(1, index(digs, s(i:i))) g = fact * g -1 + max(1, index(digs, s(i+idig:i+idig))) b = fact * b -1 + max(1, index(digs, s(i+2*idig:i+2*idig))) 10 continue r = r / total g = g / total b = b / total cc print*, ' hexcol : pgscr ( ', jcol, r, g, b, ' ) ' call pgscr(jcol,r,g,b) return end ifeffit-1.2.11d/src/lib/ifplot.h0000644000175000017500000000342110771740457015367 0ustar segresegrec{ifplot.h -*-fortran-*- c common blocks for plotting in ifeffit c parameters: integer mcolbg, mcolfg, mcolgr, mctabl, mpdevs integer mparro, mpmark, mplabs parameter (mctabl= maxplt+8, mpdevs = 2) parameter (mplabs= 32, mpmark = 32, mparro = 32) parameter (mcolbg= mctabl-2, mcolfg= mctabl-1, mcolgr= mctabl) integer jplin, nplot, igrcol, ibgcol, ifgcol integer npmark, nparro, nplabs integer ilnwid, ilnsty, ichrfn, igrid integer inplot, ipgdev(mpdevs), icurdev integer ipgwin(4), icurwin, imarker(mpmark) integer iarrow(mparro), mrkcol(mpmark) integer icol(maxplt), isty(maxplt), nplpts(maxplt) character*32 pltcol(0:mctabl), pltsty(maxplt), pgdevs(mpdevs) character*32 pltkey(maxplt) character*64 pltlab(mplabs) logical limits(4), errbx(maxplt), errby(maxplt) real plot_x(maxpts,maxplt), plot_y(maxpts,maxplt) real plot_dx1(maxpts,maxplt), plot_dy1(maxpts,maxplt) real plot_dx2(maxpts,maxplt), plot_dy2(maxpts,maxplt) real pllims(4,maxplt), xlim(4), tlim(4) real axisiz, txtsiz, mkrsiz real xplabs(mplabs), yplabs(mplabs) real xmarks(mpmark), ymarks(mpmark) real xarros(mparro,8) cc common /chrplt/ pltdev, pltfil,xlabel, ylabel, ptitle, plabel common /plot/ limits, jplin, nplot, nplabs, igrcol, ibgcol, $ ifgcol, ilnwid, ilnsty, ichrfn, igrid, inplot, $ icol, isty, nplpts, pllims, plot_x, plot_y, xplabs, $ yplabs, xlim, tlim, axisiz, txtsiz, $ xmarks, ymarks, xarros, iarrow, imarker, mrkcol, $ mkrsiz, ipgdev, icurdev , npmark, nparro common /plattr/ pltcol, pltsty, pltlab,pgdevs c ifplot.h} ifeffit-1.2.11d/src/lib/inpout.f0000644000175000017500000011601210771740457015407 0ustar segresegrec---------------------------------------------------------------------- c input/output routines for data files c for the uwxafs programs c c input/output routines for data files for the uwxafs programs c c copyright 1992 university of washington, seattle, washington c written by matthew newville c department of physics, fm-15 c university of washington c seattle, wa usa 98195 c phone (206) 543-0435 c e-mail newville@u.washington.edu c c these routines are the basic input/output routines for getting c numerical and document data from files into the uwxafs programs. c there are currently two data formats supported: c c 1. 'uw' : a binary file format known as the uwxafs file handling c routines. this is very efficient way to store data, and c can store several (191) data sets in a single file. the c drawback is that the files are not extremely portable. c c 2. 'asc': these are column files in a format that is fairly easy c for anything to deal with. the files have several lines c of documents. if the first character of the document is c '#' this character will be removed. after the documents c is a line with minus signs for characters(3:6), then an c ignored line (for column labels), and then the data. up c to five columns are used. the expected order is: c x, real(y), imag(y), ampl(y), phase(y). c if any column representing y is zero, the appropriate c value will be calculated and returned. the files in this c format hold only one data set, and use more memory than c the uwxafs files, but are portable and convenient. c c other file types can be added without too much difficulty. c the routines listed here are: c inpdat : retrieve data and documents from a file c inpcol : retrieve data and documents from an ascii file c inpuwx : retrieve data and documents from a uwxafs file c outdat : write data and documents to a file c outcol : write data and documents to an ascii file c outuwx : write data and documents to a uwxafs file c c note: the fortran input/output unit number 11 is used for all c unit numbers in these routines. conflicts between these c routines will not happen, but conflicts may arise if c unit = 11 indicates an open file in a calling subprogram. c---------------------------------------------------------------------- subroutine inpdat(filtyp, format, filnam, vax, skey, nkey, $ irecl, ndoc, doc, ndata, xdata, yreal, yimag, yampl, yphas) c c copyright 1992 university of washington : matt newville c c retrieve data and documents from a file acording c to the format specified by 'format'. c inputs: c filtyp file type to open. if may be ' ' c format file format (uwxafs, ascii, column) c filnam file name c vax logical flag for being on a vax machine (binary file) c skey symbolic key for record in uwxafs file c ndata maximum number of elements in data arrays c nkey numeric key for record in uwxafs file c ndoc maximum number of document lines to get c note: ndoc cannot be less than or equal to zero! c outputs: c skey symbolic key of record in uwxafs file c ndoc number of document lines returned c doc array of document lines c ndata number of elements in data arrays c xdata array of x values of data c yreal array of real part of y data values c yimag array of imaginary part of y data values c yampl array of amplitude part of y data values c yphas array of phase part of y data values c--------------------------------------------------------------------- implicit none character*(*) filtyp, format, skey, filnam, doc(*) character*10 type, symkey, form, formin, errmsg*128 double precision xdata(*), yreal(*), yimag(*) double precision yampl(*), yphas(*) logical vax integer irecl, ndatmx, ndocmx, ier, ilen, istrln integer ndata, ndoc, nkey external istrln data ndocmx, ndatmx /19, 4096/ c--------------------------------------------------------------------- c some initializations if ((irecl.le.0).or.(irecl.ge.2048)) irecl = 512 type = filtyp call triml(type) call upper(type) symkey = skey call triml(symkey) call upper(symkey) c c determine format of the input file formin = format call triml(formin) call smcase(formin, 'a') call testrf(filnam, irecl, form, ier) call smcase(form, 'a') if (ier.eq.-1) then call echo(' inpdat error: file not found ') elseif (ier.eq.-2) then call echo(' inpdat error: unknown file format = '//formin) elseif (ier.eq.-3) then call echo(' inpdat error: poorly formatted ascii data? ') elseif (ier.eq.-4) then call echo(' inpdat error: no data in ascii format file? ') end if if (ier.ne.0) then errmsg = ' for file ' // filnam ilen = istrln(errmsg) call fstop(errmsg(1:ilen) ) endif if ((formin.ne.' ').and.(formin(1:2).ne.form(1:2))) then call echo(' inpdat warning: the requested format was'// $ ' incorrect!') call echo(' form = '//form(1:5) ) call echo(' formin = '//formin(1:5) ) end if c now call the appropriate routine to get the data, c according to the format. ndata = max(1, min(ndata, ndatmx) ) ndoc = max(1, min(ndoc , ndocmx) ) cc print*, 'inpout: ', form(1:2) if (form(1:2).eq.'uw') then ndoc = ndocmx call inpuwx(type, filnam, skey, nkey, irecl, ndoc, doc, $ ndata, xdata, yreal, yimag, yampl, yphas ) elseif ((form(1:2).eq.'co').or.(form(1:2).eq.'as')) then call inpcol(filnam, ndoc, doc, $ ndata, xdata, yreal, yimag, yampl, yphas ) skey = 'ascii' call upper(skey) else call echo(' inpdat error: unknown file format = '// form) ilen = min(54, max(1, istrln(filnam))) errmsg = ' for file ' // filnam(1:ilen) call fstop( errmsg(1:ilen+26) ) end if filtyp = type format = form c return c end subroutine inpdat end subroutine inpcol(filnam, ndoc, doc, ndata, $ xdata, yreal, yimag, yampl, yphas) c c copyright 1992 university of washington : matt newville c c open and get all information from a column file. document c lines are read until a line of '----', then a label line is c skipped and the column data are read in. the data is read c and stored in the following order: c xdata yreal yimag yampl yphas c inputs: c filnam file name containing data c ndoc maximum number of document lines to get c ndata maximum number of elements in data arrays c outputs: c ndoc number of document lines returned c doc array of document lines c ndata number of elements in data arrays c xdata array of x values of data c yreal array of real part of y data values c yimag array of imaginary part of y data values c yampl array of amplitude part of y data values c yphas array of phase part of y data values c--------------------------------------------------------------------- implicit none integer ilen , istrln, j, i, mxword, ndoc, ndata, iounit integer iexist, ierr, nwords, idoc, id double precision zero parameter( zero = 0.d0, mxword = 5) double precision xdata(*), yreal(*), yimag(*) double precision xinp(mxword), yampl(*), yphas(*) logical isdat character*(*) filnam, doc(*) character*32 words(mxword), line*128, status*10, file*128 external istrln, isdat c--------------------------------------------------------------------- 10 format(a) file = filnam ilen = istrln(file) if (ilen.le.0) then call fstop( ' inpcol: no file name given') end if c initialize buffers do 80 j = 1, ndoc doc(j) = ' ' 80 continue do 100 i = 1, mxword words(i) = '0.' xinp(i) = zero 100 continue do 120 j = 1, ndata xdata(j) = zero yreal(j) = zero yimag(j) = zero yampl(j) = zero yphas(j) = zero 120 continue c open data file iounit = 7 status ='old' call openfl(iounit, filnam, status, iexist, ierr) if ((iexist.lt.0).or.(ierr.lt.0)) go to 900 c c get documents from header: up to ndoc c read file header, save as document lines, c remove leading '#' and '%' both of which are c known to be extraneous comment characters. nwords = 5 idoc = 0 id = 1 200 continue read(iounit, 10, end = 950, err = 960) line call sclean(line) call triml (line) c if line is '----', read one more line, go read numerical data if (line(3:6) .eq. '----') then read(iounit, 10, end = 950, err = 960) line call sclean(line) goto 400 end if c remove leading '#' or '%' from line if ( (line(1:1).eq.'#').or.(line(1:1).eq.'%') ) then line(1:1) = ' ' call triml(line) c if the line is all numbers, then this is data! elseif (isdat(line)) then goto 410 end if c save line in doc if there's room if ((idoc .lt. ndoc) .and. (istrln(line).gt.0) ) then idoc = idoc + 1 doc(idoc) = line endif goto 200 c c read numerical data 400 continue nwords = 5 read(iounit, 10, end = 600, err = 980) line call sclean(line) 410 continue call untab(line) call bwords(line,nwords,words) if (nwords.le.1) goto 600 do 450 i = 1, nwords call str2dp(words(i), xinp(i), ierr) if (ierr.ne.0) goto 600 450 continue xdata(id) = xinp(1) yreal(id) = xinp(2) yimag(id) = xinp(3) yampl(id) = xinp(4) yphas(id) = xinp(5) if (id.ge.ndata) go to 610 id = id + 1 goto 400 600 continue id = id - 1 if (id.lt.1) go to 950 610 continue ndata = id if (idoc.le.0) then ndoc = 1 doc(1) = 'inpdat: no document line found' else ndoc = idoc end if c make sure that all columns are filled: c if yampl and yphas are both zero, compute them from yreal, yimag c if yreal and yimag are both zero, compute them from yampl, yphas do 800 i = 1, ndata if ( ( (yampl(i).eq.zero).and.(yphas(i).eq.zero) ) .and. $ ( (yreal(i).ne.zero).or. (yimag(i).ne.zero) ) ) then yampl(i) = sqrt( yreal(i)**2 + yimag(i)**2 ) yphas(i) = atan2( yimag(i), yreal(i) ) if (i.gt.1) call pijump( yphas(i), yphas(i-1) ) elseif ( (yreal(i).eq.zero).and.(yimag(i).eq.zero) $ .and.(yampl(i).ne.zero) ) then yreal(i) = yampl(i) * cos ( yphas(i) ) yimag(i) = yampl(i) * sin ( yphas(i) ) end if 800 continue c print*, ' inpout:' c do i = 1, 4 c print*, xdata(i), yreal(i) c end do c close data file and return close(iounit) return c error handling c open file - error 900 continue call echo(' inpcol: error opening file '//file(1:ilen) ) go to 990 c end or error at reading documents 950 continue 960 continue call echo( ' inpcol: error reading file '//file(1:ilen) ) call echo(' during reading of documents.') go to 990 c error at reading numerical data 980 continue call echo( ' inpcol: error reading file '//file(1:ilen) ) call echo(' during reading of numerical data.') 990 continue close(iounit) stop c end error handling c end subroutine inpcol end subroutine inpuwx(ftypin, filein, skey, nkey, irecl, ndoc, $ documt, ndata, xdata, yreal, yimag, yampl, yphas ) c c copyright 1992 university of washington : matt newville c c open and get all information from a uwxafs file c c inputs: c ftypin file type to open, checked for compatibility, may be ' ' c filein file name containing data c skey symbolic key for record in data file (only one of these) c nkey numeric key for record in data file (two is needed ) c ndoc maximum number of document lines to get c outputs: c skey symbolic key of record in uwxafs file c ndoc number of document lines returned c docu array of document lines c ndata number of elements in data arrays c xdata array of x values of data c yreal array of real part of y data values c yimag array of imaginary part of y data values c yampl array of amplitude part of y data values c yphas array of phase part of y data values c c notes: c 1 the full 'noabort' error checking is done for the calls to c the uwxafs routines, which means that marginally useful c error messages will be given when one of the uwxafs c filehandling routines dies. c c 2 currently, the following file types are supported: c xmu, chi, rsp, env, rspep, rip c c 3 uwxafs file handling routines only do single precision. c this routine can be made implicit double precision if the c array buffer is maintained as single precision: c implicit double precision(a-h,o-z) c real buffer(maxpts) c--------------------------------------------------------------------- implicit none integer maxpts, ilen, i, ndata, iounit, irecl, istrln integer ier, nie, nkey, ndocln, ndoc, ndsent, nbuff, maxdoc double precision zero parameter( maxpts = 2048, zero = 0.d0 , maxdoc=20) character*(*) ftypin, skey, filein, documt(*) character*10 type, ftype, safefl*8, abrtfl*8 character*128 filnam, messg character*100 docbuf(maxdoc) double precision xdata(*), yreal(*), yimag(*) double precision yampl(*), yphas(*) real buffer(maxpts) external istrln c--------------------------------------------------------------------- c initialize 10 format(a) 20 format(2x,2a) 30 format(2x,a,i3) safefl = ' ' abrtfl = 'noabort' call upper(abrtfl) ftype = ftypin filnam= filein call upper(skey) call triml(skey) call triml(ftype) call triml(filnam) ilen = max(1, istrln(filnam)) c note: uwxafs requires ftype to be upper case. call upper (ftype) do 100 i = 1,ndata xdata(i) = zero yreal(i) = zero yimag(i) = zero yampl(i) = zero yphas(i) = zero 100 continue do 110 i = 1, maxpts buffer(i) = zero 110 continue c call uwxafs file handling routines: c : open data file iounit = 11 call openrf(iounit, filnam, abrtfl, safefl, ftype, irecl, ier) if (ier.ne.0) then messg = 'inpuwx: error opening file ' call echo(messg//filnam(:ilen)) write (messg, '(9x,a,i4)') 'openrf error code ',ier call fstop(messg) end if c : check file type call gftype(iounit, type, ier) if (ier.ne.0) then messg = 'inpuwx: error getting file type for ' call echo(messg//filnam(:ilen)) write(messg, '(9x,a,i4)') 'gftype error code ',ier call fstop(messg) end if call upper(type) if (ftype.eq.' ') then ftype = type elseif (ftype.ne.type) then messg = 'inpuwx: incorrect file type for ' call echo(messg//filnam(:ilen)) messg = ' file type for this file is ' call echo(messg//type) messg = ' file type requested was ' call fstop(messg//ftype) endif ftypin = ftype c : find out how many records there are in the file call gnie (iounit, nie, ier) if (nie.le.0) then messg = 'inpuwx: no data records in ' call fstop(messg//filnam(:ilen) ) end if c : get skey if it wasn't given as input if (skey.eq.' ') then call gskey(iounit, nkey, skey, ier) if (ier.ne.0) then messg = 'inpuwx: error getting skey for ' call echo(messg//filnam(:ilen)) write (messg, '(9x,a,i4)') 'gskey error code ',ier call fstop(messg) end if if (skey.eq.' ') then write (messg, '(1x,2a,i4)') 'inpuwx: found no skey ', $ 'for nkey =',nkey call echo(messg) call fstop(' in file = '//filnam(:ilen)) end if end if c : get nkey if it wasn't given as input if (nkey.eq.0) then call gnkey(iounit, skey, nkey, ier) if (ier.ne.0) then messg = 'inpuwx: error getting nkey for ' call echo(messg//filnam(:ilen)) write (messg, '(9x,a,i4)') 'gnkey error code ',ier call fstop(messg) end if end if c c : get documents : up to ndoc c first check how many document lines there are call gdlen(iounit, nkey, ndocln, ier) if (ier.ne.0) then messg = 'inpuwx: error getting document length for ' call echo(messg//filnam(:ilen)) write (messg, '(9x,a,i4)') 'gdlen error code ',ier call fstop(messg) end if if (ndoc.gt.ndocln) ndoc = ndocln c then get the documents call getdoc(iounit, docbuf, ndoc, skey, nkey, ndsent, ier) do 300 i = 1, ndsent documt(i) = docbuf(i) 300 continue if (ier.eq.6) then messg = 'inpuwx error: reading file ' call echo(messg//filnam(:ilen) ) messg = ' no skey or nkey given to specify record, ' call echo(messg) messg = ' or an incorrect skey or nkey given ' call fstop(messg) elseif (ier.ne.0) then messg = 'inpuwx: error getting documents for ' call echo(messg//filnam(:ilen)) write (messg, '(9x,a,i4)') 'getdoc error code ',ier call fstop(messg) end if ndoc = ndsent c : get data call getrec(iounit, buffer, maxpts, skey, nkey, nbuff, ier) if (ier.ne.0) then messg = 'inpuwx: error getting data for ' call echo(messg//filnam(:ilen)) write (messg, '(9x,a,i4)') 'getrec error code ',ier call fstop(messg) end if c : close file call closrf(iounit,ier) if (ier.ne.0) then messg = 'inpuwx: error closing data file ' call echo(messg//filnam(:ilen)) write (messg, '(9x,a,i4)') 'closrf error code ',ier call fstop(messg) end if c----------------------------------------------------------------- c finished with uwxafs routines, so now sort the data into c xdata, re(y), imag(y), ampl(y), phase(y) according to file type c c convert ftype to the case of this routine. c 'case' controls the the case of this routine call smcase (ftype, 'case') c- xmu: nbuff energy, then nbuff y-values if (ftype.eq.'xmu') then ndata = nbuff/2 do 400 i = 1, ndata xdata(i) = buffer(i) yreal(i) = buffer(ndata + i) yampl(i) = yreal(i) 400 continue c- chi: xmin, deltax, chi(kmin + i*deltak) elseif (ftype.eq.'chi') then ndata = nbuff - 2 do 500 i = 1, ndata xdata(i) = buffer(1) + (i-1)*buffer(2) yreal(i) = buffer(2 + i) yampl(i) = yreal(i) 500 continue c- env,rspep: kmin, deltak, phase, amplitude pairs (kmin + i*deltak) elseif ( (ftype.eq.'env').or.(ftype.eq.'rspep') ) then ndata = (nbuff - 1) / 2 do 600 i = 1, ndata xdata(i) = buffer(1) +(i-1)*buffer(2) yphas(i) = buffer(2*i+1) yampl(i) = buffer(2*i+2) yreal(i) = yampl(i) * cos ( yphas(i) ) yimag(i) = yampl(i) * sin ( yphas(i) ) 600 continue c rsp, rip: kmin, deltak, real, imaginary pairs (kmin + i*deltak) elseif ( (ftype.eq.'rsp').or.(ftype.eq.'rip') ) then ndata = (nbuff - 1) / 2 do 700 i = 1, ndata xdata(i) = buffer(1) +(i-1)*buffer(2) yreal(i) = buffer(2*i+1) yimag(i) = buffer(2*i+2) yampl(i) = sqrt( yreal(i)**2 + yimag(i)**2 ) yphas(i) = atan2( yimag(i), yreal(i) ) if (i.gt.1) call pijump( yphas(i), yphas(i-1) ) 700 continue else messg = 'inpuwx: unrecognized file type for ' call echo(messg//filnam(:ilen)) messg = ' file type for this file is ' call fstop(messg//ftype) end if return c end subroutine inpuwx end subroutine outdat(filtyp, format, filnam, vax, $ comm, skey, nkey, irecl, ndoc, ndocx, doc, $ ndata, xdata, yreal, yimag, yampl, yphas, iexist) c c copyright 1992 university of washington : matt newville c c write data and documents to a file acording to the c format specified c inputs: c filtyp file type to open, may be ' '. c format file format (uwxafs, ascii, column) c filnam file name c vax logical flag for being on a vax machine (binary file) c comm comment character for ascii output files c ndoc number of document lines to write c ndocx if non-zero, ndocx document lines will be written c to ascii files, even if "blank" lines are needed. c doc array of document lines c ndata number of elements in data arrays c xdata array of x values of data c yreal array of real part of y data values c yimag array of imaginary part of y data values c yampl array of amplitude part of y data values c yphas array of phase part of y data values c iexist flag for whether to write redundant data to uwxafs file c iexist = 1 : do not write redundant data c iexist = 0 : do write redundant data c outputs: c skey symbolic key for record in uwxafs file c nkey numeric key for record in uwxafs file c ndoc number of document lines written c c--------------------------------------------------------------------- implicit none integer ndoc, ndocx, ndata, iexist, ilen, nkey, idoc, irecl character*(*) filtyp, format, filnam, skey, doc(*), comm character*32 type, form double precision xdata(*), yreal(*), yimag(*) double precision yampl(*), yphas(*) logical vax c--------------------------------------------------------------------- if ((irecl.le.0).or.(irecl.ge.2048)) irecl = 512 c idoc = ndoc skey = ' ' form = format type = filtyp call upper(type) call triml(type) call triml(form) c convert form to the case of this routine. c 'case' controls the the case of this routine cc call testrf(filnam, irecl, form, ier) call smcase (form, 'a') c if (form(1:2).eq.'uw') then if ( (idoc.le.0).or.(idoc.gt.19) ) idoc = 19 call outuwx(type, filnam, skey, nkey, irecl, idoc, doc, $ ndata, xdata, yreal, yimag, yampl, yphas, iexist) elseif ( (form(1:3).eq.'col').or.(form(1:3).eq.'asc') ) then call outcol(type, filnam, comm, idoc, ndocx, doc, $ ndata, xdata, yreal, yimag, yampl, yphas) skey = 'ascii' else call fstop('outdat: unknown file format = '//form) end if c return c end subroutine outdat end subroutine outcol(filtyp, filnam, comm, ndoc, ndocx, doc, ndata, $ xdata, yreal, yimag, yampl, yphas) c c copyright 1992 university of washington : matt newville c c open and write all information to a column file. document lines are c written, followed by a line of '----', then a label line, and then c the data are written. the file type tells what to use for the label c and how many columns to write. it may be left blank. c c inputs: c filtyp file type to write (may be ' ' : used for label only) c filnam file name to write (' ' and '*' mean write to unit 6) c comm comment character to specify title lines (up to char*2) c ndoc maximum number of document lines to write c doc array of document lines c ndocx if non-zero, exactly ndocx doc lines will be written c ndata number of elements in data arrays c xdata array of x values of data c yreal array of real part of y data values c yimag array of imaginary part of y data values c yampl array of amplitude part of y data values c yphas array of phase part of y data values c outputs: c ndoc number of document lines written c--------------------------------------------------------------------- implicit none integer ndoc, ndocx, ndata, ilen, nkey, idoc, jdoc, i, istrln integer mxl, mxlp1, ixmsg, ierr, iexist, iounit, imsg double precision zero, xdata(*), yreal(*), yimag(*) double precision yampl(*), yphas(*) parameter (zero = 0.d0, mxl = 76) character*(*) filtyp, filnam, doc(*), comm character*80 filout, errmsg character*35 xmutit, chitit, lines, blank character*42 envt1, envt2*32, rspt1, rspt2*32, xyt1,xyt2*32 character*10 type, status, cmt*2, cmtdef*2,contc*5 parameter (cmtdef = '# ', contc = ' + ') parameter (lines ='-----------------------------------') parameter (blank =' empty comment line') parameter (xmutit =' energy xmu') parameter (chitit =' k chi(k)') parameter (envt1 =' k real[chi(k)] imag[chi(k)]') parameter (envt2 =' ampl[chi(k)] phase[chi(k)]') parameter (rspt1 =' r real[chi(r)] imag[chi(r)]') parameter (rspt2 =' ampl[chi(r)] phase[chi(r)]') parameter (xyt1 =' x real[y(x)] imag[y(x)]') parameter (xyt2 =' ampl[y(x)] phase[y(x)]') external istrln c--------------------------------------------------------------------- 20 format(2a) 30 format(3a) type = filtyp call triml(type) c convert type to the case of this routine. call smcase(type, 'a') filout = filnam call triml(filout) if (ndata.le.0) ndata = 2 if ((ndocx.gt.0).and.(ndocx.lt.ndoc)) ndoc = ndocx c decide comment character cmt = comm if ((cmt.eq.' ').or.(istrln(cmt).le.0)) cmt = cmtdef c open data file c if file name is ' ' or '*', write to standard output (unit 6) iounit = 6 if ((filout.ne.' ').and.(filout.ne.'*')) then iounit = 0 status ='unknown' call openfl(iounit, filout, status, iexist, ierr) if ((ierr.lt.0).or.(iexist.lt.0)) go to 990 endif c c write documents jdoc = 0 mxlp1 = mxl + 1 do 200 idoc = 1, ndoc call triml(doc(idoc)) ilen = istrln(doc(idoc)) if (ilen.ge.1) then jdoc = jdoc + 1 if (ilen.gt.mxl) then write(iounit, 20) cmt,doc(idoc)(1:mxl) write(iounit, 30) cmt,contc,doc(idoc)(mxlp1:ilen) else write(iounit, 20) cmt,doc(idoc)(1:ilen) end if elseif (ndocx.gt.0) then jdoc = jdoc + 1 write(iounit, 20) cmt, blank end if 200 continue if (ndocx.gt.ndoc) then do 210 idoc = ndoc+1,ndocx jdoc = jdoc + 1 write(iounit, 20) cmt, blank 210 continue endif ndoc = jdoc c c write line of minus signs and column label write(iounit, 30) cmt,lines,lines if (type.eq.'xmu') then write(iounit, 20) cmt,xmutit elseif (type.eq.'chi') then write(iounit, 20) cmt,chitit elseif (type.eq.'env') then write(iounit, 30) cmt,envt1,envt2 elseif (type.eq.'rsp') then write(iounit, 30) cmt,rspt1,rspt2 else write(iounit, 30) cmt,xyt1,xyt2 end if c c write data: some file types only write out a few columns if ( (type.eq.'xmu').or.(type.eq.'chi') ) then do 400 i = 1, ndata if ((yreal(i).eq.zero).and.(yampl(i).ne.zero)) $ yreal(i) = yampl(i) * cos(yphas(i)) write(iounit, 520) xdata(i), yreal(i) 400 continue else do 450 i = 1, ndata c make sure that all of re(y), im(y), amp(y), and phase(y) are known if ( ((yampl(i).eq.zero).and.(yphas(i).eq.zero)) .and. $ ((yreal(i).ne.zero).or. (yimag(i).ne.zero)) ) then yampl(i) = sqrt( yreal(i)**2 + yimag(i)**2 ) yphas(i) = atan2( yimag(i), yreal(i) ) if (i.gt.1) call pijump( yphas(i), yphas(i-1) ) elseif ((yreal(i).eq.zero).and.(yimag(i).eq.zero) $ .and.(yampl(i).ne.zero) ) then yreal(i) = yampl(i) * cos ( yphas(i) ) yimag(i) = yampl(i) * sin ( yphas(i) ) end if write(iounit, 550) xdata(i), yreal(i), yimag(i), $ yampl(i), yphas(i) 450 continue end if 520 format(2x,e13.7,3x,e13.7) 550 format(2x,e13.7,2x,e13.7,2x,e13.7,2x,e13.7,2x,e13.7) c c close data file and return close(iounit) return 990 continue ilen = max(1, istrln(filnam)) errmsg = 'outcol: error opening file '//filnam(:ilen) imsg = istrln(errmsg) call fstop(errmsg(:imsg)) c end subroutine outcol end subroutine outuwx(ftypin, filein, skey, nkey, irecl, ndoc, doc, $ ndata, xdata, yreal, yimag, yampl, yphas, iexist) c c write out data and documents to a uwxafs file c c inputs: c ftypin file type to write to, may be ' ' if filnam exists. c filein file name to write to c skey symbolic key of record in uwxafs file c ndoc number of document lines returned c doc array of document lines c ndata number of elements in data arrays c xdata array of x values of data c yreal array of real part of y data values c yimag array of imaginary part of y data values c yampl array of amplitude part of y data values c yphas array of phase part of y data values c iexist flag for whether to write redundant data to file c iexist = 1 : do not write redundant data c iexist = 0 : do write redundant data c c copyright 1992 university of washington : matt newville c----------------------------------------------------------------------- implicit none integer maxpts, maxdoc, nkey, irecl, ndoc, iexist, ndata,idoc integer ierr, iounit, ier, i, nbuff, imsg, istrln, ilen double precision zero parameter(maxpts = 2048, maxdoc = 19, zero = 0.d0) character*(*) filein, ftypin, doc(*), skey character*10 skyout, ftype, type, filnam*128, messg*128 character*100 docout(maxdoc), abrtfl*8, safefl*8 double precision xdata(*), yreal(*), yimag(*) double precision yampl(*), yphas(*) real buffer(maxpts) c----------------------------------------------------------------------- c initialize 10 format(a) safefl = ' ' abrtfl = 'noabort' call upper(abrtfl) skyout = ' ' type = ' ' filnam = filein call triml(filnam) ilen = max(1, istrln(filnam)) ftype = ftypin call upper(ftype) do 60 i = 1, maxdoc docout(i) = ' ' 60 continue c output documents idoc = 0 80 continue idoc = idoc + 1 if ((idoc.ge.maxdoc).or.(idoc.gt.ndoc)) then idoc = idoc - 1 go to 100 end if docout(idoc) = doc(idoc) call triml(docout(idoc)) go to 80 100 continue ccccc ndoc = idoc c open data file to check file type iounit = 11 call openrf(iounit, filnam, abrtfl, safefl, ftype, irecl, ier) if (ier.ne.0) then messg = 'outuwx: error opening file '//filnam(:ilen) imsg = max(1, istrln(messg)) call echo(messg(:imsg)) write(messg, '(9x,a,i3)' ) 'openrf error code ',ier call fstop(messg) end if c check file type call gftype(iounit, type, ier) call upper(type) c if file type was not given, close and the re-open data file c with file type just found, so we can write to file if (ftype.eq.' ') then ftype = type call closrf(iounit,ier) call openrf(iounit, filnam, abrtfl, safefl, ftype,irecl,ier) c if file type was given but it was wrong, stop elseif (ftype.ne.type) then messg = 'outuwx: incorrect file type for ' call echo(messg//filnam(:ilen)) messg = ' file type for this file is ' call echo(messg//type) messg = ' file type requested was ' call fstop(messg//ftype) endif c c make sure that all of re(y), im(y), amp(y), and phase(y) are known do 300 i = 1, ndata if ( ( (yampl(i).eq.zero).and.(yphas(i).eq.zero) ) .and. $ ( (yreal(i).ne.zero).or. (yimag(i).ne.zero) ) ) then yampl(i) = sqrt( yreal(i)**2 + yimag(i)**2 ) yphas(i) = atan2( yimag(i), yreal(i) ) if (i.gt.1) call pijump( yphas(i), yphas(i-1) ) elseif ( (yreal(i).eq.zero).and.(yimag(i).eq.zero) $ .and.(yampl(i).ne.zero) ) then yreal(i) = yampl(i) * cos ( yphas(i) ) yimag(i) = yampl(i) * sin ( yphas(i) ) end if 300 continue c c put data into a single buffer according to data type c convert ftype to the case of this routine. c 'case' controls the the case of this routine call smcase(ftype, 'case') c usually buffer(1) and buffer(2) are xdata(1) and xdata(2) -xdata(1) buffer(1) = xdata(1) buffer(2) = xdata(2) - xdata(1) c xmu: nbuff energy, then nbuff y-values if (ftype.eq.'xmu') then nbuff = 2*ndata do 400 i = 1, ndata buffer(i) = xdata(i) buffer(ndata + i) = yreal(i) 400 continue c chi: kmin, deltak, chi(kmin + i*deltak) elseif (ftype.eq.'chi') then nbuff = ndata + 2 do 500 i = 1, ndata buffer(2 + i) = yreal(i) 500 continue c env: kmin, deltak, phase, amplitude pairs (kmin + i*deltak) elseif ( (ftype.eq.'env').or.(ftype.eq.'rspep') ) then nbuff = 2* (ndata + 1) do 600 i = 1, ndata buffer(2*i+1) = yphas(i) buffer(2*i+2) = yampl(i) 600 continue c rsp: kmin, deltak, real, imaginary pairs (kmin + i*deltak) elseif ( (ftype.eq.'rsp').or.(ftype.eq.'rip') ) then nbuff = 2* (ndata + 1) do 700 i = 1, ndata buffer(2*i+1) = yreal(i) buffer(2*i+2) = yimag(i) 700 continue c other data types not yet supported else call fstop('outuwx: not able to decipher ftype ='//ftype) end if c c generate skyout for data with hash call hash(buffer, nbuff, docout, idoc, skyout) c check if this record is already in the file, c and decide whether or not to write data and c documentation for the record to the file call gnkey(iounit, skyout, nkey, ier) if ( (iexist.eq.1).and.(nkey.ne.0) ) then skey = ' ' else call putrec(iounit, buffer, nbuff, skyout, 0, ier) call putdoc(iounit, docout, idoc, skyout, 0, ier) skey = skyout end if ftypin = ftype c close file and leave call closrf(iounit, ierr) return c end subroutine outuwx end subroutine testrf(flnam, irecl, flform, ier) c c test whether a data file can be interpreted as uwxafs binary c data file or ascii column data file. c c uwxafs binary files use direct access binary files c with word size irecl, which is a machine dependent parameter c c ier = -1 : file not found c ier = -2 : broken uwxafs file? c ier = -3 : not uwxafs file, but can't find data. c ier = -4 : looks like ascii, saw line of minus signs, c but 2nd following line doesn't have data c c copright 1994 university of washington matt newville c ----------------------------------------------------- integer i, irecl, iunit character*(*) flnam, flform, line*128 integer*2 indx(4) logical exist, opend, isdat, prevdt, lisdat external isdat c ----------------------------------------------------- flform = 'none' ier = -1 iunit = 7 10 continue inquire(unit=iunit, opened = opend) if (opend) then if (iunit.gt.20) return iunit = iunit + 1 go to 10 endif inquire(file = flnam, exist = exist) if (.not.exist) return ier = -2 c ----------------------------------------------------- c try reading file as a uwxafs binary file c which have patriotic magic numbers embedded in them if ((irecl.le.16).or.(irecl.ge.2048)) irecl = 512 70 continue indx(3) = 0 indx(4) = 0 open(iunit, file= flnam, recl = irecl, err = 80, $ access = 'direct', status = 'old' ) 80 continue read(iunit, rec=1, err = 85) (indx(i), i=1,4) 85 continue if ((indx(3).eq.1776).and.(indx(4).eq.704)) then flform = 'uwxafs' ier = 0 go to 900 else irecl = irecl / 2 if (irecl .gt. 32) then close(iunit) go to 70 endif end if c ----------------------------------------------------- c try to read file as ascii data file close(iunit) open(iunit, file=flnam, status='old') prevdt = .false. 200 continue ier = -3 read(iunit, '(a)', end = 900, err = 900) line call sclean (line) call triml (line) if (line(3:6) .eq. '----') then ier = -4 read(iunit, '(a)', end = 900, err = 900) line call sclean (line) read(iunit, '(a)', end = 900, err = 900) line call sclean (line) lisdat = isdat(line) if (lisdat ) then flform = 'ascii' ier = 0 end if go to 900 end if c if two lines in a row have all words being numbers, it is data lisdat = isdat(line) if (lisdat.and.prevdt) then flform = 'ascii' ier = 0 go to 900 end if prevdt = lisdat go to 200 c--------------------- 900 continue close(iunit) return c end subroutine testrf end ifeffit-1.2.11d/src/lib/maxpts.h0000745000175000017500000000030711037160630015371 0ustar segresegrec{maxpts.h -*-fortran-*- integer maxpts, maxsize_array cc parameter(maxsize_array = 4096) parameter(maxsize_array = 8192) parameter(maxpts = maxsize_array) c} ifeffit-1.2.11d/src/lib/window.f0000644000175000017500000002124710771740457015405 0ustar segresegre subroutine window(swin, dx1, dx2, xmin, xmax, xgrid, mpts, wa) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: create a window array for ffts c (used to smooth out data and maintain peak separation). c arguments: c swin: window type (see notes below) [in] c mpts: dimension of wa [in] c dx1: window parameters (see notes below) [in] c dx2: window parameters (see notes below) [in] c xmin: window range (see notes below) [in] c xmax: window range (see notes below) [in] c xgrid: array grid, used to evaluate wa [in] c wa: array containing window function [out] c c notes: 9 window functions are supported. many windows rise from c 0 at x1 to 1 at x2, stay at 1 until x3 and drop to 0 at x4. c x1,...,x4 depend on window _type_ (iwin) and parameters c (dx1,dx2,xmin,xmax). the gaussian window extends over the whole c input range and never equal 0. the array is on an even grid c beginning at zero: wa(i) = wa(x=(i-1)*xgrid). c c windows types are ( if swin = " ", iwin will be set to 0). c iwin (swin) c 0 (han): hanning window sills (default): c x1 = xmin - dx1/2 , x2 = xmin + dx1/2 c x3 = xmax - dx2/2 , x4 = xmax + dx2/2 c the hanning function goes as cos^2 and sin^2. c 1 (fha): hanning window fraction: c x1 = xmin , x2 = xmin + dx1*(xmax-xmin)/2 c x4 = xmax, x3 = xmax - dx1*(xmax-xmin)/2 c the function goes as cos^2 and sin^2. dx1 is the c hanning fraction: the fraction of the x range over c which the windop is not 1. (dx1 = 1 will c give a full hanning fraction, with x2 = x3) c 2 (gau): gaussian window c window(x) = exp( -dx1*(x - dx2)**2 ) c 3 (kai): Kaiser-Bessel window: c x1 = xmin , x4 = xmax, x2,x3 not used c this function is similar to a Gaussian and goes to 0 at x1 c and x4 for kbe = 5.44. Sometimes you will get a better resolution c in r-space for kbe = 2.72 (when the function isn't zero at c x1 and x4. See the articel 'Digital Filter' by J.F. Kaiser in c 'System Analysis by Digital Computers' edited by F.F. Kuo c and J.F. Kaiser, (New York; Wiley) 1966 c 4 (par): parzen window: c x1 = xmin - dx1/2 , x2 = xmin + dx1/2 c x3 = xmax - dx2/2 , x4 = xmax + dx2/2 c the window is linear between x1 and x2 and x3 and x4 c 5 (wel): welch window: c x1 = xmin - dx1/2 , x2 = xmin + dx1/2 c x3 = xmax - dx2/2 , x4 = xmax + dx2/2 c the window is parabolic between x1 and x2 and x3 and x4. c 6 (sin): sine window: c x1 = xmin - dx1 , x4 = xmin + dx1 c x2 and x3 =not used c this function is a sine that goes to 0 at x1 and x4 c and is applied over the entire window range c c for more information, see documentation for ifeffit c implicit none integer mpts, iw, i, istrln character*(*) swin, s*32 double precision wa(mpts), halfpi, zero, one, half, eps double precision x, x1, x2, x3, x4, xmin,xmax, xgrid, dx1, dx2 double precision del1, del2, del12, del22 double precision bessi0, bki0, bkav, bkde, bkde2, bkx, bkxx, bkom external bessi0, istrln parameter (halfpi= 1.570796326795d0, eps= 1.4d-5) parameter ( zero=0.d0, one=1.d0, half= 0.5d0) c determine window type s = swin call triml(s) call lower(s) i = istrln(s) iw = 0 if (s(1:3) .eq. 'fha') then iw = 1 elseif (s(1:3) .eq. 'gau') then iw = 2 elseif (s(1:3) .eq. 'kai') then iw = 3 elseif (s(1:3) .eq. 'par') then iw = 4 elseif (s(1:3) .eq. 'wel') then iw = 5 elseif (s(1:3) .eq. 'sin') then iw = 6 endif c del1 = dx1 del12= dx1 * half del2 = dx2 del22= dx1 * half x1 = xmin x2 = 0 x3 = 0 x4 = xmax c set x1..x4 based on window type c hanning sills, parzen, and welch: x1 = xmin - del12 x2 = xmin + del12 + (eps * xgrid) x3 = xmax - del22 - (eps * xgrid) x4 = xmax + del22 cc print*, 'U: iw, x1,x2,x3,x4', iw, x1,x2,x3,x4 c hanning fraction if (iw.eq.1) then cc print*, 'U: iw, x1,x2,x3,x4', iw, x1,x2,x3,x4 if (del12.lt.zero) del12 = zero if (del12.gt.half) del12 = half x2 = x1 + eps * xgrid + del12*(xmax-xmin) x3 = x4 - eps * xgrid - del12*(xmax-xmin) cc print*, 'E: del12, del22, xgrid,eps=',del12, del12, xgrid, eps cc print*, 'E: x1, x2, x3, x4 = ', x1, x2, x3, x4 c gaussian: elseif (iw.eq.2) then del1 = max(del1, eps) c sine elseif (iw.eq.6) then x1 = xmin - del1 x4 = xmax + del2 end if cc print*, ' window ', xmin,xmax,del1,del2 cc print*, ' window ', x1, x2, x3, x4, iw c c now make the window array c hanning (fraction or sills) if (iw.le.1) then do 10 i=1,mpts x = (i-1)*xgrid if ((x.ge.x1).and.(x.le.x2)) then wa(i) = sin(halfpi*(x-x1) / (x2-x1)) ** 2 elseif ((x.ge.x3).and.(x.le.x4)) then wa(i) = cos(halfpi*(x-x3) / (x4-x3)) ** 2 elseif ((x.lt.x3).and.(x.gt.x2)) then wa(i) = one else wa(i) = zero endif 10 continue c gaussian else if (iw.eq.2) then do 20 i = 1, mpts wa(i) = exp( -(((i-1)*xgrid - del2)**2)/(2*del1*del1)) 20 continue c Kaiser-Bessel window elseif (iw.eq.3) then bki0 = bessi0(del1) bkav = (x4+x1) * half bkde = (x4-x1) * half bkde2 = bkde * bkde bkom = del1 / bkde do 30 i = 1, mpts wa(i) = zero x = (i-1)*xgrid bkx = x - bkav bkxx = bkde2 - bkx*bkx if (bkxx.gt.0) then wa(i) = bessi0( bkom * sqrt(bkxx) ) / bki0 endif 30 continue c parzen elseif (iw.eq.4) then do 40 i=1,mpts x = (i-1)*xgrid if ((x.ge.x1).and.(x.le.x2)) then wa(i) = (x-x1) / (x2 - x1) elseif ((x.ge.x3).and.(x.le.x4)) then wa(i) = one - (x-x3) / (x4-x3) elseif ((x.lt.x3).and.(x.gt.x2)) then wa(i) = one else wa(i) = zero endif 40 continue c welch elseif (iw.eq.5) then do 50 i=1, mpts x = (i-1)*xgrid if ((x.ge.x1).and.(x.le.x2)) then wa(i) = one - ((x-x2) / (x2-x1)) ** 2 elseif ((x.ge.x3).and.(x.le.x4)) then wa(i) = one - ((x-x3) / (x4-x3)) ** 2 elseif ((x.lt.x3).and.(x.gt.x2)) then wa(i) = one else wa(i) = zero endif 50 continue c sine elseif (iw.eq.6) then do 60 i = 1, mpts x = (i-1)*xgrid if ((x.ge.x1).and.(x.le.x4)) $ wa(i) = sin( 2* halfpi*(x4-x) / (x4-x1)) 60 continue c gaussian#2 elseif (iw.eq.7) then do 70 i = 1, mpts x = (i-1)*xgrid wa(i) = exp( -(del1 * (x - del2)**2 )) 70 continue end if return c end subroutine window end ifeffit-1.2.11d/src/lib/fitfun.f0000644000175000017500000001764511012371245015360 0ustar segresegre subroutine fitfun(mf, nx, xvar, fvec, iend) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: feffit fitting function for lmdif1 minimization c c arguments: c mf number of points in ffit [in] c nx number of points in xv [in] c xv vector of variables [in] c fvec output vector to be minimized [out] c iend information tag [out] implicit none include 'consts.h' include 'arrays.h' include 'keywrd.h' include 'fft.h' include 'fefdat.h' include 'pthpar.h' include 'feffit.h' c local variables integer nx, mf, iend, i, id, isp, nx1, iter integer jfit, nqdata, nfit1, nkpar, npaths integer iupath(mpaths), inxx, ixx, joff, jqw integer ier, iff_eval_dp double precision xvar(nx), fvec(mf), xolow, xohigh, bvalue double precision getsca, xspl(mtknot), bx, qx, sum, tmpval double precision xsum, sumsqr character arg*2 integer isarg, ilen, istrln, j, nmx external bvalue, getsca, istrln, iff_eval_dp, sumsqr save c nkpar = 0 id = 1 if (nx.ne.nvarys) iend = 1 if (mf.ne.mfit) iend = 2 nx1 = nx - nbkg(id) cc print*, 'FITFUN N_vars:',nx,mf,nfdats do 20 i = 1, nx scalar(i) = xvar(i) 20 continue call synvar cc print*, 'VARS ', xvar(1), xvar(2), xvar(3), xvar(4) if (final) rfact_total = zero c c sum function to minimize over data sets c jfit is the counter (through all the data sets) c for the total number of fitting points jfit = 0 do 3000 id = 1, nfdats nqdata = min(maxpts, max(2, nqfit(id)) + 10) if (ifft(id).eq.1) then xolow = rmin(id) xohigh = rmax(id) else xolow = qmin(id) xohigh = qmax(id) endif do 200 i = 1, nfit(id)*nqwfs(id) thifit(i) = zero 200 continue c re-initialize array for theoretical chi(k) c by assigning this to the background function do 300 i = 1, nqdata thiq(i, id) = zero thiqr(i, id) = zero 300 continue c c sum over paths for theory chi for this data set npaths = 0 do 400 i = 1, mpaths iupath(i) = 0 if (iulist(i,id).ne.0) then npaths = npaths + 1 iupath(npaths) = iulist(i,id) end if 400 continue call sum_paths(id, iupath, npaths, nqdata, $ thiqr(1,id), thiq(1,id)) c c if refining background, include that here if ( bkgfit(id)) then do 450 isp = 1, nbkg(id) write(tmpstr, '(a,i2.2,a,i2.2)') 'bkg',id,'_',isp xspl(isp) = getsca(tmpstr,0) cc print*, 'FITFUN i ' , isp, xspl(isp) 450 continue do 470 i = 1, nqdata qx = qgrid*(i-1) thiq(i, id) = thiq(i, id) + $ bvalue(qknot(1,id), xspl, nbkg(id),korder,qx,0) 470 continue end if c c subtract data from theory do 500 i = 1, nqdata thiq(i,id) = thiq(i,id)-chiq(i,id) 500 continue c c loop over k-weights for multiple k-weights c top down, so that the first k-weight listed is done last c do 1000 jqw = nqwfs(id), 1, -1 qweigh(id) = qwfs(jqw,id) c take fft of theory(+bkg) - data c note: imag part of theory chi(k) compares to real part of data!!! c see ff2chi as well call fitfft(thiq(1,id), maxpts, maxfft, wfftc, qgrid, $ qwindo(1,id), qwfs(jqw,id), rwindo(1,id), one, $ ifft(id),modeft(id),xolow,xohigh, nfit1, thifit) if (nfit1.ne.nfit(id)) then call warn(3,' fitfun fitfft failed internal test.') iend = -10 end if c c evaluate the contribution to fvec for this data set. weight scales c chi-square properly to the number of independent points. this is c important for error analysis (if chi-square is to increase by one, c it must be scaled correctly.), but only in the final pass, when c chi-square and r-factors will be calculated. c print*, 'fitfun ', jfit, jqw, id, c $ weight(jqw, id), nfit(id), thifit(1), thifit(2) do 700 i = 1, nfit(id) fvec(jfit+i) = (thifit(i))/weight(jqw,id) 700 continue jfit = jfit + nfit(id) c construct r-factor if (final) then call fitfft(chiq(1,id), maxpts, maxfft, wfftc, qgrid, $ qwindo(1,id), qwfs(jqw,id), rwindo(1,id), one, $ ifft(id),modeft(id),xolow,xohigh, nfit1, chifit) if (nfit1.ne.nfit(id)) then call warn(3,' fitfun fitfft failed internal test.') iend = -10 end if sum = zero rfactr(id) = zero do 800 i = 1, nfit(id) sum = sum + chifit(i)*chifit(i) rfactr(id) = rfactr(id) + thifit(i)*thifit(i) 800 continue if (sum.le.tiny) sum = tiny rfactr(id) = rfactr(id) / (sum * nqwfs(id)) rfact_total = rfact_total + rfactr(id) cc print*, ' final ', sum, rfactr(id), id, rfact_total end if c c restraints if (nrestraint(id).ge.1) then cc print*, ' RESTRAINT ', nrestraint(id), id, jfit do 900 i = 1, nrestraint(id) if ( (restraint(i,id) .ne. undef).and. $ (restraint(i,id) .ne. '')) then ier = iff_eval_dp(restraint(i,id),tmpval) if (ier.eq.0) then jfit = jfit + 1 fvec(jfit) = tmpval cc print*, ' t: ', tmpval, jfit, ier endif endif 900 continue endif 1000 continue ! end loop over k-weights cc print*, ' end of ndata loop ', id, nfit(id), jfit 3000 continue ! end loop over data sets if (final) rfact_total = rfact_total / max(1,nfdats) c c execute user-defined macro iter = int(getsca('&fit_iteration',0)) if (iter.gt.itera) then itera = iter xsum = sumsqr(fvec,jfit) cc print*, ' iteration ', iter, mf,mfit,jfit,nfdats, xsum if (ifit_mac.gt.0) then call iff_macro_do(ifit_mac, fit_m_arg, 0,.false.) end if end if return c end subroutine fitfun end ifeffit-1.2.11d/src/lib/spline.f0000644000175000017500000003402111012371172015341 0ustar segresegre subroutine spline(energy, xmu, mxmu, xkstd, chistd, mstd, $ e0_in, rbkgin, r1stin, toler, nknots, $ qmin, qmax, xkw, dk1, dk2, winnam, $ stfind, fnorm, enor1, enor2, pre1, pre2, estep, $ lclmp1, xclmp1, lclmp2, xclmp2, nclmp, $ cnorm, fixstd, usestd, varye0, spstep, $ dofit, bkg, mxk, xk, chi) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c purpose: automated xafs background spline (the autobk algorithm) c c arguments: c energy array of energy values [in] c xmu array of xmu values [in] c mxmu maximum array length of energy/xmu [in] c xkstd array of k values for standard [in] c chistd array of chi values for standard [in] c mstd maximum array length of xkstd/chistd [in] c fixstd l=flag for fixing amp of standard [in] c usestd l=flag for using standard at all [in] c rbkgin rbkg value (nyquist value) [in/out] c toler fitting tolerance [in/out] c nknots number of knots in spline [in/out] c qmin low-k value for fft window [in/out] c qmax high-k value for fft window [in/out] c xkw k-weight for fft [in] c dk1 low-k value for fft window [in] c dk2 low-k value for fft window [in] c winnam fft window type [in] c varye0 l=flag for varying e0 in fit [in] c e0_in energy origin [in/out] c stfind l=flag for redefining estep [in] c fnorm l=flag for functional normalization [in] c enor1 low-energy range for post-step [in] c enor2 high-energy range for post-step [in] c pre1 low-energy range for pre-edge [in] c pre2 high-energy range for pre-edge [in] c estep edge-step, aka delta_xmu [in/out] c dofit l=flag for doing fit at all [in] c bkg array of mu0 values (mxmu points) [out] c mxk maximum array length of xk/chi [out] c xk array of k values [out] c chi array of chi values [out] c c notes: c 1. for use in ifeffit: uses ifeffit include files c 2. based on/related to suroutine autnls from autobk c 3. not well tested with standard chi(k) data c c see documentation and code comments for more details c c requires: include files consts.h, spline.h, fft.h c splfun, lmdif1, cffti, qintrp, lintrp, polyft, c fitfft, window, sumsqr, nofx, echo, chrdmp c c implicit none double precision energy(*), xmu(*), bkg(*), xkstd(*), chistd(*) double precision xk(*), chi(*), enor1, enor2, e0_in, estep double precision rbkgin, toler,qmin,qmax double precision xkw,dk1,dk2, pre1, pre2, cnorm(*) integer mxmu, mxk, mstd, nknots, nx1 logical fnorm, fixstd, usestd, varye0, stfind, dofit logical lclmp1, lclmp2 double precision xclmp1, xclmp2 c include 'consts.h' include 'spline.h' include 'fft.h' c integer lenwrk, loop, lminfo, iup, ilo, nnorm , iterp integer iwork(mtknot), nemin, nemax, nofx, nrfit, nclmp integer i, nr, iend, ntest, ipos, nqmax, j parameter(lenwrk = 2*maxpts*mtknot + 20*mtknot + 2*maxpts ) character*80 messg, winnam*32 double precision work(lenwrk), fvect(2*maxpts), varys(mtknot) double precision esplin(mtknot), bscoef(mtknot), thiq(maxpts) double precision small, toldef, spstep, r1stin double precision sumsqr, qmn, qmx, qknot, slope, offset double precision e0tst, qmntst, qmxtst, xtmp, qtmp, e0t, tmp parameter (small = 1.d-10, toldef = 1.d-5) external splfun, nofx, sumsqr save c nnorm = 3 if (toler .le. zero) toler = toldef spstep = min(20.d0, max(1.d-6, spstep)) loop = 0 if (.not.wftset) then call cffti(maxfft, wfftc) wftset = .true. end if rbkg = rbkgin r1st = rbkg + r1stin if (rbkg .le. small) rbkg = one nrbkg = 2 * int(1d-2 + (rbkg /rgrid))+ 2 nr1st = 2 * int(1d-2 + (r1st /rgrid))+ 2 if (qmax .le. small) qmax = 0 c c initialize bkgdat common block splqw = xkw nsplin = nknots nautbk = 0 thefix = fixstd theory = usestd eevary = varye0 .and. theory cc print*, ' spline: eevary, = ', eevary, theory step = estep e0 = e0_in emin = e0 + qmin**2 / etok emax = e0 + qmax**2 / etok e0t = e0 de0 = 0 thessq = one thebkg = one nxmu = mxmu do 10 i = 1, maxpts endat(i) = zero xmudat(i) = zero spldat(i) = zero chie(i) = zero splfit(i) = zero splwin(i) = zero 10 continue do 20 i = 1, nxmu endat(i) = energy(i) xmudat(i) = xmu(i) spldat(i) = xmu(i) 20 continue c do xafsft window c put standard chi(k) on an absolute q-grid, and do fft if (mstd.gt.0) then nqmax = int( xkstd(mstd) / qgrid) ipos = 1 do 30 i = 1, nqmax qtmp = qgrid * (i-1) call qintrp(xkstd, chistd, mstd, qtmp, ipos, thiq(i)) 30 continue end if c 100 continue lminfo = 0 loop = loop + 1 c c----start fitting: do 120 i = 1, nxmu bkg(i) = spldat(i) 120 continue c clamp(1) = lclmp1 clamp(2) = lclmp2 sclamp(1) = xclmp1 sclamp(2) = xclmp2 nclamp = nclmp cc print*,' clamps: ', clamp, sclamp, nclamp c c initialize fvect and work arrays for lmdif1 nrfit = nrbkg if (theory) nrfit = nr1st if (clamp(1)) nrfit = nrfit + nclamp if (clamp(2)) nrfit = nrfit + nclamp do 210 i =1, nrfit fvect(i) = zero 210 continue do 220 i =1, lenwrk work(i) = zero 220 continue do 240 i =1, mtknot iwork(i) = 0 varys(i) = zero esplin(i) = zero bscoef(i) = zero 240 continue c c e0-shift: e0, emin, and emax if (abs(de0).gt.1d-3) then e0t = e0t + de0 emin = emin + de0 emax = emax + de0 end if c if (emax.le.emin) emax = energy(nxmu) nemin = nofx(emin,energy,nxmu) nemax = nofx(emax,energy,nxmu) emin = max(e0t, energy(nemin)) emax = max(emin, energy(nemax)) c c evaluate energies for the spline variables: c - emin and emax are not relative to the edge c - energy contains the input energy values, not relative to the edge. qmin = sqrt(etok* abs(emin - e0t) ) qmax = sqrt(etok* (emax - e0t) ) c c calculate number of independent points in r-space if (nsplin.le.1) $ nsplin = 2 * int(rbkg * (qmax - qmin)/ pi) + 1 nsplin = min(mtknot-5, max(5,nsplin)) nknots = nsplin cc print*, ' SPLINE ', rbkg, nsplin c initialize energy values through which the first guess for the c spline must go (evenly spaced in q), and get the initial value c for the spline value at this point. we'll also get the initial c guesses for the variables (the b-spline coefficients) from this c initial spline. do 300 i = 1, nsplin qtmp = qmin + (i-1)*(qmax-qmin)/(nsplin - 1) xtmp = e0t + ( qtmp**2 / etok ) j = nofx(xtmp,energy,nxmu) esplin(i) = energy(j) iup = min(nxmu, j + 5) ilo = max(1, j - 5) bscoef(i) = (2*spldat(j)+ spldat(iup)+spldat(ilo))/4 300 continue esplin(nsplin) = one + esplin(nsplin) c the first and last korder knots in the b-spline are nearly degenerate at c the endpoints. spstep sets the spacing between these points. the c default is one -- this may help eliminate "spikes" at the endpoints. c since each knot represents a place where a derivative can break, c having all four of these at one place allows a complete break from c at this point. by moving a few of the knots just off the ends, the c spline is a little bit stiffer at the endpoints. cc print*, ' spline : ', spstep, korder do 310 i = 1, korder eknot(i) = esplin(1) - spstep * (korder-i-1) eknot(nsplin+i) = esplin(nsplin) + spstep * i 310 continue qmn = sqrt( etok* abs(esplin(1) - e0t) ) if (e0.lt.esplin(1)) qmn = zero qmx = sqrt( etok* (esplin(nsplin) - e0t) ) do 320 i = korder+1, nsplin qknot = (i-korder)*(qmx - qmn)/(nsplin-korder+1) eknot(i) = esplin(1) + qknot**2/etok 320 continue c c determine the knots for the spline: c knots are points at which the spline has extra freedom. if ( (korder.lt.3).or.(nsplin.lt.korder) ) then call warn(2, $ ' spline error: not enough data to create spline.') return end if c the b-spline coefficients will be the variables in the fit, c the above estimates for the elements of bscoef are good enough c especially when the spline values are smoothed for the initial c guesses in the fit, as below. varys(1) = (3*bscoef(1) + bscoef(2))/ 4 varys(nsplin) = (3*bscoef(nsplin) + bscoef(nsplin-1))/ 4 do 380 i = 2, nsplin-1 varys(i) = (bscoef(i-1) + 2*bscoef(i) + bscoef(i+1) )/4 380 continue nautbk = nsplin c c set up window function call window(winnam,dk1,dk2,qmin,qmax,qgrid,maxpts,splwin) c if a theory file is used, do its fft now c and add another variable if e0 is to be shifted if (theory) then if (eevary) then nautbk = nautbk + 1 varys(nautbk) = de0 end if nr = nrbkg call fitfft(thiq, maxpts, maxfft, wfftc, qgrid, $ splwin, splqw, bkg, zero, 1, 0, zero, r1st, $ nr, splfit) thessq = max(small, sumsqr(splfit(nrbkg),nr1st)) thebkg = thessq cc print*, ' spline.f: thebkg = ', thebkg cc print*, ' nrbkg, nr1st = ', nrbkg, nr1st, nr nautbk = nautbk + 1 varys(nautbk) = thessq cc if (nr.ne.nr1st) then call warn(3,' spline error: fitfft is broken' ) return end if end if c if (eevary) then call chrdmp(' spline: fitting background and e0 ... ') else call chrdmp(' spline: fitting background ... ') end if c lminfo = 1 if (dofit) then call lmdif1 (splfun, nrfit, nautbk, varys, fvect, $ toler, lminfo, iwork, work, lenwrk) call echo(' done.') call lm_err(lminfo,toler) end if c c if an energy shift was done, the q values may be slightly off, so that c the number of independent points changes. if so, re-do the fit until c e0 is stable to 0.5 eV, up to 5 times e0tst = e0 + de0 qmntst = sqrt(etok* abs(emin - e0tst ) ) qmxtst = sqrt(etok* abs(emax - e0tst ) ) if (e0tst.le.emin) qmntst = zero ntest = 2 * int ( rbkg * abs(qmxtst - qmntst) / pi) + 1 ntest = min(mtknot-5, max(5,ntest)) c if ((loop.le.5).and.eevary.and.(ntest.ne.nsplin) ) then call echo(' spline warning: e0 was shifted enough that') call warn(1, ' the # of knots in the spline changed'// $ ' and the fit should be re-done.') go to 100 end if c c now that we have a good spline, we may want to improve the estimate c of the edge-step. so do a parabolic extrapolation of the background c spline to the edge energy value, which is probably better than c getting the edge step from a linear extrapolation of the xmu data. c redo function evaluation with the final values for everything. call splfun(nrfit, nautbk, varys, fvect, iend) if (stfind.and.(.not.fnorm)) then call echo(' spline: finding edge_step from bkg(E)') call preedg(.false.,.true.,nxmu, endat, bkg, e0, $ pre1, pre2, enor1, enor2, nnorm, $ step, slope, offset,cnorm) estep = step end if c redo function evaluation with the final values for everything. call splfun(nrfit, nautbk, varys, fvect, iend) if (eevary) then e0 = e0_in + de0 e0_in = e0 end if do 830 i = 1, nxmu bkg(i) = spldat(i) 830 continue c set chi array call chie2k(endat,chie,nxmu,e0, mxk,xk,chi) c print*, 'MM end of spline ', endat(1), endat(2), c $ chie(1), chie(2), xk(1), xk(2), c $ chi(1), chi(2), nxmu, e0, mxk c end subroutine spline return end ifeffit-1.2.11d/src/lib/misc_num.f0000644000175000017500000010070210771740457015702 0ustar segresegrec////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// integer function nofxa(x,array,npts) c c return index in array with value closest to scalar x. c arguments c x value to find in array c array double precision array (not necessarily monotonically increasing) c npts number of points in array c implicit none integer npts, i, it double precision array(npts), x, xit, xmin c c linear search xmin = abs(array(1) - x) it = 1 do 10 i = 2, npts xit = abs(array(i) - x) if (xit .lt. xmin) then xmin = xit it = i endif 10 continue nofxa = it return c end function nofxa end integer function nofx(x,array,npts) c c return index in array with value closest to scalar x. c arguments c x value to find in array c array double precision array (monotonically increasing) c npts number of points in array c implicit none integer npts, imin, imax, inc, it double precision array(npts), x, xit, xave c c hunt by bisection imin = 1 imax = npts inc = ( imax - imin ) / 2 10 continue it = imin + inc xit = array(it) if ( x .lt. xit ) then imax = it else if ( x .gt. xit ) then imin = it else nofx = it return endif inc = ( imax - imin ) / 2 if ( inc .gt. 0 ) go to 10 c x is between imin and imin+1 xave = ( array(imin) + array(imin+1) ) / 2 if ( x .lt. xave ) then nofx = imin else nofx = imin + 1 endif return c end function nofx end integer function nofxsp(x,array,npts) c c return index in array with value closest to scalar x. c arguments c x value to find in array c array single precision array (monotonically increasing) c npts number of points in array c integer npts, imin, imax, inc, it real array(npts), x c c hunt by bisection imin = 1 imax = npts inc = ( imax - imin ) / 2 10 continue it = imin + inc xit = array(it) if ( x .lt. xit ) then imax = it else if ( x .gt. xit ) then imin = it else nofxsp = it return endif inc = ( imax - imin ) / 2 if ( inc .gt. 0 ) go to 10 c bisection xave = ( array(imin) + array(imin+1) ) / 2. if ( x .lt. xave ) then nofxsp = imin else nofxsp = imin + 1 endif return c end function nofxsp end subroutine hunt(xar, npts, xin, jlo) c c return jlo=lower-bound index of a value xin in array xar(n) c such that xar(jlo) <= xin < xar(jlo+1). c arguments: c xar monotonically increasing array [in] c npts length of xar [in] c xin value to hunt for [in] c jlo initial guess / output index [in/out] c implicit none integer npts, jlo, jhi, inc, jm double precision xar(npts), xin logical dohunt c first, decide if we really need to do a hunt at all c or if the initial guess (jlo) was good enough: it often is! cc print*, '-> hunt ', npts, xin,jlo, xar(1), xar(2), xar(3) dohunt = .true. jlo = min(npts-1,max(1,jlo)) if ((xin.gt.xar(jlo)) .and. (xin.lt.xar(jlo+1))) then dohunt = .false. elseif (xin.le.xar(1)) then jlo = 1 dohunt = .false. elseif (xin.ge.xar(npts)) then jlo = npts - 1 dohunt = .false. c c check next interval -- often the right choice if the current cc interval was not. elseif (jlo.le.npts-2) then if ((xin.gt.xar(jlo+1)) .and. (xin.le.xar(jlo+2))) then jlo = jlo + 1 dohunt = .false. end if c end if c hunt the old-fashioned way: if (dohunt) then cc print*, 'hunt: real hunt ', jlo, xin, xar(jlo),xar(jlo+1) cc $ ,xar(jlo+2),xar(jlo+3) if (jlo.le.0.or.jlo.gt.npts) then c the input jlo is not useful -- do bisection jlo = 0 jhi = npts+1 go to 30 endif inc = 1 c look ever further away to bracket value c hunting up from current guess if (xin.ge.xar(jlo)) then 10 continue jhi=jlo+inc if (jhi.gt.npts) then jhi=npts+1 elseif (xin.ge.xar(jhi)) then jlo=jhi inc=inc+inc go to 10 endif else c hunting down from current guess jhi=jlo 20 continue jlo=jhi-inc if (jlo.lt.1) then jlo=0 elseif (xin.lt.xar(jlo)) then jhi=jlo inc=inc+inc go to 20 endif endif c now use bisection to reduce c the bracket interval to 1 30 continue if (jhi.ne.(jlo+1)) then jm = (jhi + jlo) / 2 if (xin.gt.xar(jm)) then jlo=jm else jhi=jm endif go to 30 end if end if jlo = min(npts-1,max(1,jlo)) return c end subroutine hunt end subroutine xterp(xnew, nxnew, y, ny, x, nx, iterp, ierr) c c interpolate yold(xold) to ynew(xnew) using interpolation c scheme defined by iterp c arguments c xnew xnew array on input [in/out] c ynew array on output c y yold array [in] c x xold array [in] c iterp interpolation method c c copyright (c) 1998 matt newville implicit none include 'maxpts.h' integer nx, ny, nxnew, i, ierr, ip, iterp double precision x(*), y(*), xnew(*) double precision tmp(maxpts), coefs(maxpts) ierr = 0 ip = 1 c ccc print*, ' XTERP: ', iterp ny = min(nx,ny) if (iterp .eq. 0) then do 20 i = 1, nxnew call lintrp(x, y, ny, xnew(i), ip, tmp(i)) 20 continue elseif (iterp .eq. 1) then do 30 i = 1, nxnew call qintrp(x, y, ny, xnew(i), ip, tmp(i)) 30 continue elseif (iterp .eq. 2) then call splcoefs(x, y, ny, coefs, tmp) do 80 i = 1, nxnew call splint(x, y, coefs, ny, xnew(i), ip, tmp(i)) 80 continue end if c do 100 i = 1, nxnew xnew(i) = tmp(i) 100 continue return c end subroutine xterp end subroutine splcoefs(x, y, npts, c, t) c c calculate simple (natural) cubic spline coefficients c given a pair of arrays x, y c c c: output array c t: temporary work array implicit none integer npts, ip, i double precision x(*), y(*), c(*), t(*) double precision tiny, zero, xin, yout, one parameter (zero = 0.d0, one = 1.d0) double precision s, p, dxp, dxm, dx2 cc print*, '>> splcoefs ' c(1) = zero t(1) = zero c(npts) = zero do 20 i = 2, npts - 1 dx2 = one / ( x(i+1) - x(i-1) ) dxp = one / ( x(i+1) - x(i) ) dxm = one / ( x(i) - x(i-1) ) s = dx2 * ( x(i) - x(i-1) ) p = one / (2 + s * c(i-1)) c(i) = (s - one) * p t(i) = p * $ (6*dx2*((y(i+1)-y(i))*dxp - (y(i)-y(i-1))*dxm) - s*t(i-1)) 20 continue do 30 i = npts-1,1, -1 c(i) = c(i)*c(i+1) + t(i) 30 continue return end subroutine splint(x, y, c, npts, xin, ip, yout) c c simple natural cubic spline interpolation using c array of coefficients for splcoefs c implicit none integer npts, ip double precision x(*), y(*), c(*) double precision xin, yout, sixth, dx, dxi, a,b parameter (sixth = 1.d0 / 6.d0) c make sure ip is in range c find ip such that x(ip) <= xin <= x(ip+1) call hunt(x, npts, xin, ip) dx = x(ip+1) - x(ip) dxi = 1.d0 / dx a = (x(ip+1) - xin ) * dxi b = (xin - x(ip)) * dxi yout= a*y(ip) + b*y(ip+1) + dx*dx* sixth * $ (a*(a*a-1)*c(ip) + b*(b*b-1)*c(ip+1)) return end subroutine lintrp(x, y, npts, xin, ip, yout) c c linear interpolation for use in loops where xin increases c steadily through the monotonically increasing array x. c arguments: c x array of ordinate values [in] c y array of abscissa values [in] c npts length of arrays x and y [in] c xin value of x at which to interpolate [in] c ip index such that x(ip) <= xin <= x(ip+1) [in/out] c y interpolated abscissa at xin [out] c note: this routine is called extremely often c -- anything to improve efficiency should be done implicit none integer npts, ip double precision x(*), y(*), tiny, xin, yout parameter (tiny = 1.d-9) c find ip such that x(ip) <= xin < x(ip+1) call hunt(x, npts, xin, ip) yout = y(ip) if ((x(ip+1)-x(ip)) .gt. tiny) yout = yout + $ (y(ip+1)-y(ip)) * (xin-x(ip)) / (x(ip+1)-x(ip)) return c end subroutine lintrp end subroutine qintrp(x, y, npts, xin, ip, yout) c c this does a crude quadratic interpolation for repeated loops c where xin is increasing steadily through the values in x. c inputs: c x array of ordinate values c y array of abscissa values c npts length of arrays x and y c xin value of x at which to interpolate c ip guess of index in x array to use c outputs: c ip index in x array used in interpolation c yout interpolated abscissa at xin c---------------------------------------------------------------- implicit none integer npts, ip, i1, i2, i3a, i3b, imin, imax double precision x(npts), y(npts), tiny, xin, yout double precision dxi3a, dxi3b, dx12, dx13b, dx23a, dx23b double precision youta, youtb, dxi1, dxi2, dx13a parameter (tiny = 1.d-9) c find ip such that x(ip) <= xin <= x(ip+1) c most likely candidate is the current value of ip, or ip+1 c otherwise use routine hunt to find ip c find ip such that x(ip) <= xin < x(ip+1) call hunt(x, npts, xin, ip) yout = y(ip) c if ((x(ip+1)-x(ip)).gt.tiny) then c find two closest x values and the two further neighbors i1 = ip i2 = ip + 1 if (xin.lt.x(ip)) i2 = ip - 1 i3a = max(i1,i2) + 1 i3b = min(i1,i2) - 1 imin = min(i1,i2,i3a,i3b) imax = max(i1,i2,i3a,i3b) if ((imin.gt.3).and.(imax.lt.npts-2)) then c construct differences dxi1 = xin - x(i1) dxi2 = xin - x(i2) dxi3a = xin - x(i3a) dxi3b = xin - x(i3b) dx12 = x(i1) - x(i2) dx13a = x(i1) - x(i3a) dx13b = x(i1) - x(i3b) dx23a = x(i2) - x(i3a) dx23b = x(i2) - x(i3b) youta = dxi2 * dxi3a * y(i1) / ( dx12 * dx13a ) $ - dxi1 * dxi3a * y(i2) / ( dx12 * dx23a ) $ + dxi1 * dxi2 * y(i3a) / ( dx13a * dx23a ) youtb = dxi2 * dxi3b * y(i1) / ( dx12 * dx13b ) $ - dxi1 * dxi3b * y(i2) / ( dx12 * dx23b ) $ + dxi1 * dxi2 * y(i3b) / ( dx13b * dx23b ) yout = (youta * dxi3b - youtb * dxi3a)/(x(i3a) - x(i3b)) else call lintrp(x, y, npts, xin, ip, yout) end if end if return c end subroutine qintrp end integer function iff_get_interp(s) character*(*) s, t*16 integer i, istrln external istrln t = s call triml(t) i = istrln(t) j = 2 if (t(1:4) .eq. 'line') j = 1 if (t(1:4) .eq. 'quad') j = 2 if (t(1:5) .eq. 'cubic') j = 3 if (t(1:6) .eq. 'spline') j = 3 iff_get_interp = j end double precision function determ(array,nord,nrows) c c calculate determinate of a square matrix c c arguments (all strictly input): c array matrix to be analyzed c nord order of matrix c nrows first dimension of matrix in calling routine c c copyright (c) 1998 matt newville c c base on bevington "data reduction and error analysis c for the physical sciences" pg 294 c implicit double precision (a-h,o-z) integer nord, nrows, i, j, k double precision array(nrows,nrows) logical iszero determ = 1 do 150 k=1,nord c if (array(k,k).eq.0) then iszero = .true. do 120 j=k,nord if (array(k,j).ne.0) then iszero =.false. do 100 i=k,nord saved = array(i,j) array(i,j) = array(i,k) array(i,k) = saved 100 continue determ = -determ end if 120 continue if (iszero) then determ = 0 return end if c end if determ = determ*array(k,k) if (k.lt.nord) then k1 = k+1 do 140 i=k1,nord do 130 j=k1,nord array(i,j) = array(i,j)- $ array(i,k)*array(k,j)/array(k,k) 130 continue 140 continue end if 150 continue c end double precision function determ end double precision function bessi0(x) c c zero-ordered modified Bessel function I_0(x) for real x c from abramowitz and stegun p 378 double precision x, v, y, c double precision a1,a2,a3,a4,a5,a6 double precision b1,b2,b3,b4,b5,b6,b7,b8,b9 parameter(a1 = 3.5156229d0 , a2 = 3.0899424d0 ) parameter(a3 = 1.2067492d0 , a4 = 0.2659732d0 ) parameter(a5 = 0.360768d-1 , a6 = 0.45813d-2 ) parameter(b1 = 0.39894228d0 , b2 = 0.1328592d-1 ) parameter(b3 = 0.225319d-2 , b4 =-0.157565d-2 ) parameter(b5 = 0.916281d-2 , b6 =-0.2057706d-1 ) parameter(b7 = 0.2635537d-1 , b8 =-0.1647633d-1 ) parameter(b9 = 0.392377d-2 , c = 3.75d0) c v = abs(x) if(v.lt.c) then y=(x/c)**2 bessi0= 1 + y*(a1+y*(a2+y*(a3+y*(a4+y*(a5+y*a6))))) else y=c/v bessi0=(exp(v)/sqrt(v)) * $ (b1+y*(b2+y*(b3+y*(b4+y*(b5+y*(b6+y*(b7+y*(b8+y*b9)))))))) endif return end double precision function sumsqr(array, narray) c returns sum of squares of an array with dimension narray double precision array(*), big, zero parameter( big = 1.d17, zero = 0d0) sumsqr = zero do 50 i = 1, narray if (abs(array(i)).lt.big) then sumsqr = sumsqr + array(i)*array(i) else sumsqr = sumsqr + big*big end if 50 continue return c end real function sumsqr end subroutine pijump (ph, old) c c removes jumps of 2*pi in phases c ph = current value of phase (may be modified on output, but c only by multiples of 2*pi) c old = previous value of phase integer isave, jump, i double precision xph(3), pi, twopi, old, xphmin, ph parameter (pi = 3.14159 26535 89793 23846 26433d0) parameter (twopi = 2 * pi) isave = 1 xph(1) = ph - old jump = int( (abs(xph(1))+ pi) / twopi) xph(2) = xph(1) - jump*twopi xph(3) = xph(1) + jump*twopi xphmin = min (abs(xph(1)), abs(xph(2)), abs(xph(3))) do 10 i = 1, 3 if (abs (xphmin - abs(xph(i))) .le. 1.d-2) isave = i 10 continue ph = old + xph(isave) return c end subroutine pijump end subroutine polyft(xfit1,xfit2,xdata,ydata,ndata,nterms,aout) c c get coefficients for polynomial fit : c ydata = aout(1) + aout(2)*xdata + aout(3) *xdata^2 + ... c the fit is done between xdata = [xfit1, xfit2] c c arguments: c xfit1 lower bound of fitting range (single precision) (in) c xfit2 upper bound of fitting range (single precision) (in) c xdata array of abscissa values for data (single precision) (in) c ydata array of ordinate values for data (single precision) (in) c ndata length of data arrays (in) c nterms number of terms in polynomial (in) c aout coefficients of fitted polynomial (single precision) (out) c c requires functions nofx and determ. c note that double and single precision are mixed here. c most internal, working arrays use dp (as does routine determ) c c c copyright (c) 1998 matt newville c c see bevington pg 104 for details c implicit none integer max, max2m1, ndata, nterms, i, j, l, k, n, ntemp integer nfit1, nfit2, nmax, nofx double precision xdata(ndata), ydata(ndata), aout(nterms) double precision zero, one, xi, yi, xterm, yterm, xfit1, xfit2 parameter (max= 5, max2m1 = 2*max-1, zero = 0.d0,one=1.d0) double precision sumx(max2m1), sumy(max) double precision array(max,max), ain(max), delta, determ external determ, nofx c c initialize internal arrays nmax = 2 * nterms - 1 do 100 i=1, nmax sumx(i) = zero 100 continue do 120 i = 1, nterms ain(i) = zero sumy(i) = zero do 110 j = 1, nterms array(i,j) = zero 110 continue 120 continue c c find points closest to endpoints of fitting range nfit1 = nofx(xfit1,xdata,ndata) nfit2 = nofx(xfit2,xdata,ndata) if (nfit1.gt.nfit2) then ntemp = nfit1 nfit1 = nfit2 nfit2 = ntemp end if if(nfit1.eq.nfit2) go to 300 c c collect sums of data, sum of squares of data, etc. do 200 i = nfit1, nfit2 xi = xdata(i) yi = ydata(i) xterm = one do 180 n=1, nmax sumx(n) = sumx(n) + xterm xterm = xterm * xi 180 continue yterm = yi do 190 n=1,nterms sumy(n) = sumy(n) + yterm yterm = yterm * xi 190 continue 200 continue c c construct matrices and evaluate coefficients do 220 j=1,nterms do 210 k=1,nterms array(j,k) = sumx(j + k - 1) 210 continue 220 continue c c take determinant, get coefficients delta = determ(array,nterms,max) if (delta.ne.zero) then do 260 l=1,nterms do 250 j=1,nterms do 240 k=1,nterms array(j,k) = sumx(j+k-1) 240 continue array(j,l) = sumy(j) 250 continue ain(l) = determ(array,nterms,max)/delta 260 continue end if c c convert coefficients to single precision, leave 300 continue do 400 i = 1, nterms aout(i) = ain(i) 400 continue return c end subroutine polyft end subroutine gaussj(a, n, ma, ierr) c c gauss-jordan elimination to invert a matrix. c arguments: c a matrix to invert / solution on output [in/out] c n number of elements in a to use [in] c (i.e. that aren't zero) c ma dimension of a [in] c ierr 0 on success / 1 on error c notes: c if matrix cannot be inverted, a contains garbage c c copyright (c) 1998 matt newville c implicit none include 'consts.h' integer n, ma, i, j,k,l,m, irow, icol, ierr integer ipiv(mvarys), indrow(mvarys), indcol(mvarys) double precision a(ma,ma), abig, tmp, piv c ierr = 1 irow = 0 icol = 0 c initialize pivot array do 30 i = 1, n ipiv(i) = 0 30 continue c c main loop over the columns to be reduced do 300 i = 1, n abig = zero c linear search for a pivot element do 120 j = 1, n if (ipiv(j).ne.1) then do 100 k = 1, n if (ipiv(k).eq.0) then if ( abs(a(j,k)) .ge. abig) then abig = abs(a(j,k)) irow = j icol = k endif endif 100 continue endif 120 continue ipiv(icol) = ipiv(icol) + 1 c a pivot has been found if (irow.ne.icol) then do 160 l = 1, n tmp = a(irow, l) a(irow, l) = a(icol, l) a(icol, l) = tmp 160 continue endif c divide the pivot row by the pivot element indrow(i) = irow indcol(i) = icol if (a(icol, icol).eq.zero) return piv = one / a(icol, icol) a(icol,icol) = one do 200 l = 1, n a(icol, l) = a(icol, l) * piv 200 continue c reduce non-pviot rows do 250 m = 1, n if (m.ne.icol) then tmp = a(m, icol) a(m,icol) = zero do 220 l = 1, n a(m,l) = a(m,l) - a(icol,l) * tmp 220 continue endif 250 continue 300 continue c c unravel the solution: interchange column pairs c in the reverse order of the permutation ierr = 0 do 400 i = n, 1, -1 if (indrow(i) .ne. indcol(i)) then do 350 j = 1, n tmp = a(j,indrow(i)) a(j,indrow(i)) = a(j,indcol(i)) a(j,indcol(i)) = tmp 350 continue endif 400 continue c return c end subroutine gaussj end double precision function rfact(xdata, theory, ndata) c c compute an xafs reliability factor as a measure of the c goodness of fit between arrays for data and theory. c input: c xdata (real,imag) pairs for data over fit range c theory (real,imag) pairs for theory over fit range c ndata number of data points to use c output: c c sum{ [re(xdata) - re(theory)]^2 + [im(xdata) - im(theory)]^2 } c rfact = ------------------------------------------------------------ c sum{ [re(xdata)]^2 + [im(xdata)]^2 } c c copyright 1999 matt newville c double precision xdata(*), theory(*), ampl, small integer ndata, i parameter(small = 1.d-08) c initialize ampl = 0 rfact = 0 c construct sums of squares do 100 i = 1, ndata ampl = ampl + xdata(i)**2 rfact = rfact + (xdata(i) - theory(i))**2 100 continue rfact = rfact / max(small, ampl) return c end function rfact end subroutine kev2ev(e, ne) c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2000 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c c test and (if needed) convert an energy array in KeV to eV implicit none integer ne, i double precision e(ne), de if ((e(1).le.50).and.(e(ne).le.50)) then de = e(2) - e(1) do 300 i = 2, ne de = min(de, (e(i) - e(i-1))) 300 continue if (de .le. 0.01) then do 310 i = 1, ne e(i) = e(i) * 1000 310 continue endif endif return end c subroutine grid_interp(x, y, nx, tmin, dt, nout, yout) c c convert x,y data on a non-uniform grid to be c on a uniform (defined by tmin, nt, and dt) c c at each t=tmin + (i-1)*dt (i: 1 to nout) c if 1 or more x value lies in the range (t-dt/2,t+dt/2) c all the available y points are averaged (constant weight) c if 0 x values lie in the range (t-dt/2,t+dt/2), c a quadratic interpolation of the closest upper and lower c (x,y) points is used. c inputs: c x array of ordinate values c y array of abscissa values c nx length of arrays x and y c tmin first x value of output y array c dt grid spacing for gridded x values c nout number of points to calculate, length of yout c outputs: c yout interpolated abscissa on supplied x grid c notes: c using lorenztian weighting with gamma=dt would seem c reasonable, but is commented-out for now... c---------------------------------------------------------------- implicit none integer nx, nout, i, j, ilo, ihi, iqt, npts, jjj double precision x(*), y(*), yout(*), tmin, dt double precision x0, xlo, xhi, sum, weight, gam2 double precision tiny, onem, half, zero, one parameter (tiny = 1.d-9, half=0.5d0,zero=0.d0) parameter (one = 1.d0, onem = 1.d0 - tiny) c find ip such that x(ip) <= xin <= x(ip+1) c most likely candidate is the current value of ip, or ip+1 c otherwise use routine hunt to find ip ihi = -1 ilo = -1 iqt = 0 gam2 = dt*dt do 100 i = 1, nout x0 = tmin + dt*(i-1) xlo = x0 - dt*half xhi = xlo + dt*onem c first point, or if for some other reason, c we haven't found a low endpoint, find it now ilo = ihi + 1 if (ilo.le.0) call hunt(x, nx, xlo, ilo) c find high end of grid range call hunt(x, nx, xhi, ihi) c c if we have more than 1 point in this region, do a c weighted average of the points in the region if ((ihi-ilo).ge.1) then sum = zero yout(i) = zero weight = one do 50 j = ilo, ihi cc this would provide a lorenztian weighting.... cc weight = one /(((x(j)-x0)*(x(j)-x0)) + gam2) sum = sum + weight yout(i)= yout(i) + y(j)*weight 50 continue yout(i) = yout(i) / max(tiny,sum) else c if we have no input data points in this region, c use quadratic interpolation of available data iqt = ilo call qintrp(x,y,nx,x0,iqt,yout(i)) if (yout(i).ne.yout(i)) then call warn(3,' bad data point in interpolation!') cc print*, ' Grid ', i, ' bad qintrp ' cc print*, ' iqt = ', iqt cc do jjj = -2,2 cc print*, jjj+iqt, x(jjj+iqt), y(jjj+iqt) cc end do endif endif 100 continue return c end subroutine grid_interp end c subroutine rebin_interp(xout, nxout, yin, nyin, xin, nxin) c c similar to grid_interp above: converts input x,y data to c provided output x array, using boxcar average: c c at each x=xout (i: 1 to nxout) c if 1 or more xin value lies in the range c [(xout(i)+xout(i-1))/2:(x(i+1)+x(i))/2] c all the available y points are averaged (constant weight) c if 0 xin values lie in the range c [(xout(i)+xout(i-1))/2:(x(i+1)+x(i))/2] c a linear interpolation of the closest upper and lower c (x,y) points is used. c inputs: c xin array of input ordinate values c yin array of input abscissa values c nxin length of arrays xin and yin c xout array of output ordinates c nxout length of xout c outputs: c xout interpolated abscissa on supplied xout c notes: c - using lorenztian weighting with gamma=dt would seem c reasonable.... c - weird call structure due to decod (see xterp above) c---------------------------------------------------------------- implicit none include 'maxpts.h' integer nxin, nxout, i, j, ilo, ihi, iqt, npts, nyin double precision xin(*), yin(*), xout(*), yout(maxpts) double precision x0, xlo, xhi, sum, weight, gam2 double precision tiny, onem, half, zero, one parameter (tiny = 1.d-9, half=0.5d0,zero=0.d0) parameter (one = 1.d0, onem = 1.d0 - tiny) c find ip such that x(ip) <= xin <= x(ip+1) c most likely candidate is the current value of ip, or ip+1 c otherwise use routine hunt to find ip ihi = -1 ilo = -1 iqt = 0 nxin = min(nxin,nyin) do 100 i = 1, nxout x0 = xout(i) xlo = x0 xhi = x0 if (i.gt.1) xlo = (x0 + xout(i-1))*half if (i.lt.nxout) xhi = (x0 + xout(i+1)-tiny)*half c first point, or if for some other reason, c we haven't found a low endpoint, find it now ilo = ihi + 1 if (ilo.le.0) call hunt(xin, nxin, xlo, ilo) c find high end of grid range call hunt(xin, nxin, xhi, ihi) c c if we have more than 1 point in this region, do a c weighted average of the points in the region cc print*, ' ' , i, x0, xlo, xhi, ilo, ihi, xin(ilo), xin(ihi) if ((ihi-ilo).ge.1) then sum = zero yout(i) = zero weight = one do 50 j = ilo, ihi cc this would provide a lorenztian weighting.... cc weight = one /(((x(j)-x0)*(x(j)-x0)) + gam2) sum = sum + weight yout(i)= yout(i) + yin(j)*weight 50 continue yout(i) = yout(i) / max(tiny,sum) else c if we have no input data points in this region, c use quadratic interpolation of available data iqt = ilo call qintrp(xin,yin,nxin,x0,iqt,yout(i)) endif 100 continue do 200 i = 1, nxout xout(i) = yout(i) 200 continue return c end subroutine boxcar_interp end subroutine res_penalty(x0, nx0, x1, nx1, x2, nx2) include 'maxpts.h' integer nx0, nx1, nx2 double precision x0(*), x1(*), x2(*) double precision xlo, xhi xlo = x1(1) xhi = x0(1) cc print*, 'bound xlo, xhi = [ ', xlo, ' : ', xhi, ' ]' cc print*, 'bound x = ', x2(1) if ((x2(1).ge.xlo) .and. (x2(1).le.xhi)) then x0(1) = 0 elseif (x2(1).gt.xlo) then x0(1) = abs(x2(1) - xhi) elseif (x2(1).lt.xlo) then x0(1) = abs(x2(1) - xlo) endif cc print*, 'bound penalty = ', x0(1) return end ifeffit-1.2.11d/src/lib/fftpack.f0000644000175000017500000006322610771740457015517 0ustar segresegre subroutine cffti (n,wsave) implicit double precision (a-h,o-z) dimension wsave(1) if (n .eq. 1) return iw1 = n+n+1 iw2 = iw1+n+n call cffti1 (n,wsave(iw1),wsave(iw2)) return end subroutine cffti1 (n,wa,wifac) implicit double precision (a-h,o-z) dimension wa(*) ,wifac(*) ,ntryh(4) data ntryh(1),ntryh(2),ntryh(3),ntryh(4)/3,4,2,5/ nl = n nf = 0 j = 0 101 j = j+1 if (j-4) 102,102,103 102 ntry = ntryh(j) go to 104 103 ntry = ntry+2 104 nq = nl/ntry nr = nl-ntry*nq if (nr) 101,105,101 105 nf = nf+1 wifac(nf+2) = ntry nl = nq if (ntry .ne. 2) go to 107 if (nf .eq. 1) go to 107 do 106 i=2,nf ib = nf-i+2 wifac(ib+2) = wifac(ib+1) 106 continue wifac(3) = 2 107 if (nl .ne. 1) go to 104 wifac(1) = n wifac(2) = nf tpi = 6.28318530717958647692d0 argh = tpi/float(n) i = 2 l1 = 1 do 110 k1=1,nf ip = wifac(k1+2) ld = 0 l2 = l1*ip ido = n/l2 idot = ido+ido+2 ipm = ip-1 do 109 j=1,ipm i1 = i wa(i-1) = 1.0d0 wa(i) = 0.0d0 ld = ld+l1 fi = 0.0d0 argld = float(ld)*argh do 108 ii=4,idot,2 i = i+2 fi = fi+1.d0 arg = fi*argld wa(i-1) = cos(arg) wa(i) = sin(arg) 108 continue if (ip .le. 5) go to 109 wa(i1-1) = wa(i-1) wa(i1) = wa(i) 109 continue l1 = l2 110 continue return end subroutine cfftf (n,c,wsave) implicit double precision (a-h,o-z) dimension c(1) ,wsave(1) if (n .eq. 1) return iw1 = n+n+1 iw2 = iw1+n+n call cfftf1 (n,c,wsave,wsave(iw1),wsave(iw2)) return end subroutine cfftf1 (n,c,ch,wa,wifac) implicit double precision (a-h,o-z) dimension ch(*) ,c(*) ,wa(*) ,wifac(*) nf = wifac(2) na = 0 l1 = 1 iw = 1 do 116 k1=1,nf ip = wifac(k1+2) l2 = ip*l1 ido = n/l2 idot = ido+ido idl1 = idot*l1 if (ip .ne. 4) go to 103 ix2 = iw+idot ix3 = ix2+idot if (na .ne. 0) go to 101 call passf4 (idot,l1,c,ch,wa(iw),wa(ix2),wa(ix3)) go to 102 101 call passf4 (idot,l1,ch,c,wa(iw),wa(ix2),wa(ix3)) 102 na = 1-na go to 115 103 if (ip .ne. 2) go to 106 if (na .ne. 0) go to 104 call passf2 (idot,l1,c,ch,wa(iw)) go to 105 104 call passf2 (idot,l1,ch,c,wa(iw)) 105 na = 1-na go to 115 106 if (ip .ne. 3) go to 109 ix2 = iw+idot if (na .ne. 0) go to 107 call passf3 (idot,l1,c,ch,wa(iw),wa(ix2)) go to 108 107 call passf3 (idot,l1,ch,c,wa(iw),wa(ix2)) 108 na = 1-na go to 115 109 if (ip .ne. 5) go to 112 ix2 = iw+idot ix3 = ix2+idot ix4 = ix3+idot if (na .ne. 0) go to 110 call passf5 (idot,l1,c,ch,wa(iw),wa(ix2),wa(ix3),wa(ix4)) go to 111 110 call passf5 (idot,l1,ch,c,wa(iw),wa(ix2),wa(ix3),wa(ix4)) 111 na = 1-na go to 115 112 if (na .ne. 0) go to 113 call passf (nac,idot,ip,l1,idl1,c,c,c,ch,ch,wa(iw)) go to 114 113 call passf (nac,idot,ip,l1,idl1,ch,ch,ch,c,c,wa(iw)) 114 if (nac .ne. 0) na = 1-na 115 l1 = l2 iw = iw+(ip-1)*idot 116 continue if (na .eq. 0) return n2 = n+n do 117 i=1,n2 c(i) = ch(i) 117 continue return end subroutine passf2 (ido,l1,cc,ch,wa1) implicit double precision (a-h,o-z) dimension cc(ido,2,l1) ,ch(ido,l1,2) , 1 wa1(1) if (ido .gt. 2) go to 102 do 101 k=1,l1 ch(1,k,1) = cc(1,1,k)+cc(1,2,k) ch(1,k,2) = cc(1,1,k)-cc(1,2,k) ch(2,k,1) = cc(2,1,k)+cc(2,2,k) ch(2,k,2) = cc(2,1,k)-cc(2,2,k) 101 continue return 102 do 104 k=1,l1 do 103 i=2,ido,2 ch(i-1,k,1) = cc(i-1,1,k)+cc(i-1,2,k) tr2 = cc(i-1,1,k)-cc(i-1,2,k) ch(i,k,1) = cc(i,1,k)+cc(i,2,k) ti2 = cc(i,1,k)-cc(i,2,k) ch(i,k,2) = wa1(i-1)*ti2-wa1(i)*tr2 ch(i-1,k,2) = wa1(i-1)*tr2+wa1(i)*ti2 103 continue 104 continue return end subroutine passf3 (ido,l1,cc,ch,wa1,wa2) implicit double precision (a-h,o-z) dimension cc(ido,3,l1) ,ch(ido,l1,3) , 1 wa1(1) ,wa2(1) c *** taui is -sqrt(3)/2 *** data taur,taui /-0.5d0,-0.86602540378443864676d0/ if (ido .ne. 2) go to 102 do 101 k=1,l1 tr2 = cc(1,2,k)+cc(1,3,k) cr2 = cc(1,1,k)+taur*tr2 ch(1,k,1) = cc(1,1,k)+tr2 ti2 = cc(2,2,k)+cc(2,3,k) ci2 = cc(2,1,k)+taur*ti2 ch(2,k,1) = cc(2,1,k)+ti2 cr3 = taui*(cc(1,2,k)-cc(1,3,k)) ci3 = taui*(cc(2,2,k)-cc(2,3,k)) ch(1,k,2) = cr2-ci3 ch(1,k,3) = cr2+ci3 ch(2,k,2) = ci2+cr3 ch(2,k,3) = ci2-cr3 101 continue return 102 do 104 k=1,l1 do 103 i=2,ido,2 tr2 = cc(i-1,2,k)+cc(i-1,3,k) cr2 = cc(i-1,1,k)+taur*tr2 ch(i-1,k,1) = cc(i-1,1,k)+tr2 ti2 = cc(i,2,k)+cc(i,3,k) ci2 = cc(i,1,k)+taur*ti2 ch(i,k,1) = cc(i,1,k)+ti2 cr3 = taui*(cc(i-1,2,k)-cc(i-1,3,k)) ci3 = taui*(cc(i,2,k)-cc(i,3,k)) dr2 = cr2-ci3 dr3 = cr2+ci3 di2 = ci2+cr3 di3 = ci2-cr3 ch(i,k,2) = wa1(i-1)*di2-wa1(i)*dr2 ch(i-1,k,2) = wa1(i-1)*dr2+wa1(i)*di2 ch(i,k,3) = wa2(i-1)*di3-wa2(i)*dr3 ch(i-1,k,3) = wa2(i-1)*dr3+wa2(i)*di3 103 continue 104 continue return end subroutine passf4 (ido,l1,cc,ch,wa1,wa2,wa3) implicit double precision (a-h,o-z) dimension cc(ido,4,l1) ,ch(ido,l1,4) , 1 wa1(1) ,wa2(1) ,wa3(1) if (ido .ne. 2) go to 102 do 101 k=1,l1 ti1 = cc(2,1,k)-cc(2,3,k) ti2 = cc(2,1,k)+cc(2,3,k) tr4 = cc(2,2,k)-cc(2,4,k) ti3 = cc(2,2,k)+cc(2,4,k) tr1 = cc(1,1,k)-cc(1,3,k) tr2 = cc(1,1,k)+cc(1,3,k) ti4 = cc(1,4,k)-cc(1,2,k) tr3 = cc(1,2,k)+cc(1,4,k) ch(1,k,1) = tr2+tr3 ch(1,k,3) = tr2-tr3 ch(2,k,1) = ti2+ti3 ch(2,k,3) = ti2-ti3 ch(1,k,2) = tr1+tr4 ch(1,k,4) = tr1-tr4 ch(2,k,2) = ti1+ti4 ch(2,k,4) = ti1-ti4 101 continue return 102 do 104 k=1,l1 do 103 i=2,ido,2 ti1 = cc(i,1,k)-cc(i,3,k) ti2 = cc(i,1,k)+cc(i,3,k) ti3 = cc(i,2,k)+cc(i,4,k) tr4 = cc(i,2,k)-cc(i,4,k) tr1 = cc(i-1,1,k)-cc(i-1,3,k) tr2 = cc(i-1,1,k)+cc(i-1,3,k) ti4 = cc(i-1,4,k)-cc(i-1,2,k) tr3 = cc(i-1,2,k)+cc(i-1,4,k) ch(i-1,k,1) = tr2+tr3 cr3 = tr2-tr3 ch(i,k,1) = ti2+ti3 ci3 = ti2-ti3 cr2 = tr1+tr4 cr4 = tr1-tr4 ci2 = ti1+ti4 ci4 = ti1-ti4 ch(i-1,k,2) = wa1(i-1)*cr2+wa1(i)*ci2 ch(i,k,2) = wa1(i-1)*ci2-wa1(i)*cr2 ch(i-1,k,3) = wa2(i-1)*cr3+wa2(i)*ci3 ch(i,k,3) = wa2(i-1)*ci3-wa2(i)*cr3 ch(i-1,k,4) = wa3(i-1)*cr4+wa3(i)*ci4 ch(i,k,4) = wa3(i-1)*ci4-wa3(i)*cr4 103 continue 104 continue return end subroutine passf5 (ido,l1,cc,ch,wa1,wa2,wa3,wa4) implicit double precision (a-h,o-z) dimension cc(ido,5,l1) ,ch(ido,l1,5) , 1 wa1(1) ,wa2(1) ,wa3(1) ,wa4(1) c *** tr11=cos(2*pi/5), ti11=-sin(2*pi/5) c *** tr12=-cos(4*pi/5), ti12=-sin(4*pi/5) data tr11,ti11,tr12,ti12 /0.3090169943749474241d0, + -0.95105651629515357212d0, 1 -0.8090169943749474241d0, -0.58778525229247312917d0/ if (ido .ne. 2) go to 102 do 101 k=1,l1 ti5 = cc(2,2,k)-cc(2,5,k) ti2 = cc(2,2,k)+cc(2,5,k) ti4 = cc(2,3,k)-cc(2,4,k) ti3 = cc(2,3,k)+cc(2,4,k) tr5 = cc(1,2,k)-cc(1,5,k) tr2 = cc(1,2,k)+cc(1,5,k) tr4 = cc(1,3,k)-cc(1,4,k) tr3 = cc(1,3,k)+cc(1,4,k) ch(1,k,1) = cc(1,1,k)+tr2+tr3 ch(2,k,1) = cc(2,1,k)+ti2+ti3 cr2 = cc(1,1,k)+tr11*tr2+tr12*tr3 ci2 = cc(2,1,k)+tr11*ti2+tr12*ti3 cr3 = cc(1,1,k)+tr12*tr2+tr11*tr3 ci3 = cc(2,1,k)+tr12*ti2+tr11*ti3 cr5 = ti11*tr5+ti12*tr4 ci5 = ti11*ti5+ti12*ti4 cr4 = ti12*tr5-ti11*tr4 ci4 = ti12*ti5-ti11*ti4 ch(1,k,2) = cr2-ci5 ch(1,k,5) = cr2+ci5 ch(2,k,2) = ci2+cr5 ch(2,k,3) = ci3+cr4 ch(1,k,3) = cr3-ci4 ch(1,k,4) = cr3+ci4 ch(2,k,4) = ci3-cr4 ch(2,k,5) = ci2-cr5 101 continue return 102 do 104 k=1,l1 do 103 i=2,ido,2 ti5 = cc(i,2,k)-cc(i,5,k) ti2 = cc(i,2,k)+cc(i,5,k) ti4 = cc(i,3,k)-cc(i,4,k) ti3 = cc(i,3,k)+cc(i,4,k) tr5 = cc(i-1,2,k)-cc(i-1,5,k) tr2 = cc(i-1,2,k)+cc(i-1,5,k) tr4 = cc(i-1,3,k)-cc(i-1,4,k) tr3 = cc(i-1,3,k)+cc(i-1,4,k) ch(i-1,k,1) = cc(i-1,1,k)+tr2+tr3 ch(i,k,1) = cc(i,1,k)+ti2+ti3 cr2 = cc(i-1,1,k)+tr11*tr2+tr12*tr3 ci2 = cc(i,1,k)+tr11*ti2+tr12*ti3 cr3 = cc(i-1,1,k)+tr12*tr2+tr11*tr3 ci3 = cc(i,1,k)+tr12*ti2+tr11*ti3 cr5 = ti11*tr5+ti12*tr4 ci5 = ti11*ti5+ti12*ti4 cr4 = ti12*tr5-ti11*tr4 ci4 = ti12*ti5-ti11*ti4 dr3 = cr3-ci4 dr4 = cr3+ci4 di3 = ci3+cr4 di4 = ci3-cr4 dr5 = cr2+ci5 dr2 = cr2-ci5 di5 = ci2-cr5 di2 = ci2+cr5 ch(i-1,k,2) = wa1(i-1)*dr2+wa1(i)*di2 ch(i,k,2) = wa1(i-1)*di2-wa1(i)*dr2 ch(i-1,k,3) = wa2(i-1)*dr3+wa2(i)*di3 ch(i,k,3) = wa2(i-1)*di3-wa2(i)*dr3 ch(i-1,k,4) = wa3(i-1)*dr4+wa3(i)*di4 ch(i,k,4) = wa3(i-1)*di4-wa3(i)*dr4 ch(i-1,k,5) = wa4(i-1)*dr5+wa4(i)*di5 ch(i,k,5) = wa4(i-1)*di5-wa4(i)*dr5 103 continue 104 continue return end subroutine passf (nac,ido,ip,l1,idl1,cc,c1,c2,ch,ch2,wa) implicit double precision (a-h,o-z) dimension ch(ido,l1,ip) ,cc(ido,ip,l1) , 1 c1(ido,l1,ip) ,wa(1) ,c2(idl1,ip), 2 ch2(idl1,ip) idot = ido/2 nt = ip*idl1 ipp2 = ip+2 ipph = (ip+1)/2 idp = ip*ido c if (ido .lt. l1) go to 106 do 103 j=2,ipph jc = ipp2-j do 102 k=1,l1 do 101 i=1,ido ch(i,k,j) = cc(i,j,k)+cc(i,jc,k) ch(i,k,jc) = cc(i,j,k)-cc(i,jc,k) 101 continue 102 continue 103 continue do 105 k=1,l1 do 104 i=1,ido ch(i,k,1) = cc(i,1,k) 104 continue 105 continue go to 112 106 do 109 j=2,ipph jc = ipp2-j do 108 i=1,ido do 107 k=1,l1 ch(i,k,j) = cc(i,j,k)+cc(i,jc,k) ch(i,k,jc) = cc(i,j,k)-cc(i,jc,k) 107 continue 108 continue 109 continue do 111 i=1,ido do 110 k=1,l1 ch(i,k,1) = cc(i,1,k) 110 continue 111 continue 112 idl = 2-ido inc = 0 do 116 l=2,ipph lc = ipp2-l idl = idl+ido do 113 ik=1,idl1 c2(ik,l) = ch2(ik,1)+wa(idl-1)*ch2(ik,2) c2(ik,lc) = -wa(idl)*ch2(ik,ip) 113 continue idlj = idl inc = inc+ido do 115 j=3,ipph jc = ipp2-j idlj = idlj+inc if (idlj .gt. idp) idlj = idlj-idp war = wa(idlj-1) wai = wa(idlj) do 114 ik=1,idl1 c2(ik,l) = c2(ik,l)+war*ch2(ik,j) c2(ik,lc) = c2(ik,lc)-wai*ch2(ik,jc) 114 continue 115 continue 116 continue do 118 j=2,ipph do 117 ik=1,idl1 ch2(ik,1) = ch2(ik,1)+ch2(ik,j) 117 continue 118 continue do 120 j=2,ipph jc = ipp2-j do 119 ik=2,idl1,2 ch2(ik-1,j) = c2(ik-1,j)-c2(ik,jc) ch2(ik-1,jc) = c2(ik-1,j)+c2(ik,jc) ch2(ik,j) = c2(ik,j)+c2(ik-1,jc) ch2(ik,jc) = c2(ik,j)-c2(ik-1,jc) 119 continue 120 continue nac = 1 if (ido .eq. 2) return nac = 0 do 121 ik=1,idl1 c2(ik,1) = ch2(ik,1) 121 continue do 123 j=2,ip do 122 k=1,l1 c1(1,k,j) = ch(1,k,j) c1(2,k,j) = ch(2,k,j) 122 continue 123 continue if (idot .gt. l1) go to 127 idij = 0 do 126 j=2,ip idij = idij+2 do 125 i=4,ido,2 idij = idij+2 do 124 k=1,l1 c1(i-1,k,j) = wa(idij-1)*ch(i-1,k,j)+wa(idij)*ch(i,k,j) c1(i,k,j) = wa(idij-1)*ch(i,k,j)-wa(idij)*ch(i-1,k,j) 124 continue 125 continue 126 continue return 127 idj = 2-ido do 130 j=2,ip idj = idj+ido do 129 k=1,l1 idij = idj do 128 i=4,ido,2 idij = idij+2 c1(i-1,k,j) = wa(idij-1)*ch(i-1,k,j)+wa(idij)*ch(i,k,j) c1(i,k,j) = wa(idij-1)*ch(i,k,j)-wa(idij)*ch(i-1,k,j) 128 continue 129 continue 130 continue return end subroutine cfftb (n,c,wsave) implicit double precision (a-h,o-z) dimension c(1) ,wsave(1) if (n .eq. 1) return iw1 = n+n+1 iw2 = iw1+n+n call cfftb1 (n,c,wsave,wsave(iw1),wsave(iw2)) return end subroutine cfftb1 (n,c,ch,wa,wifac) implicit double precision (a-h,o-z) dimension ch(*) ,c(*) ,wa(*) ,wifac(*) nf = wifac(2) na = 0 l1 = 1 iw = 1 do 116 k1=1,nf ip = wifac(k1+2) l2 = ip*l1 ido = n/l2 idot = ido+ido idl1 = idot*l1 if (ip .ne. 4) go to 103 ix2 = iw+idot ix3 = ix2+idot if (na .ne. 0) go to 101 call passb4 (idot,l1,c,ch,wa(iw),wa(ix2),wa(ix3)) go to 102 101 call passb4 (idot,l1,ch,c,wa(iw),wa(ix2),wa(ix3)) 102 na = 1-na go to 115 103 if (ip .ne. 2) go to 106 if (na .ne. 0) go to 104 call passb2 (idot,l1,c,ch,wa(iw)) go to 105 104 call passb2 (idot,l1,ch,c,wa(iw)) 105 na = 1-na go to 115 106 if (ip .ne. 3) go to 109 ix2 = iw+idot if (na .ne. 0) go to 107 call passb3 (idot,l1,c,ch,wa(iw),wa(ix2)) go to 108 107 call passb3 (idot,l1,ch,c,wa(iw),wa(ix2)) 108 na = 1-na go to 115 109 if (ip .ne. 5) go to 112 ix2 = iw+idot ix3 = ix2+idot ix4 = ix3+idot if (na .ne. 0) go to 110 call passb5 (idot,l1,c,ch,wa(iw),wa(ix2),wa(ix3),wa(ix4)) go to 111 110 call passb5 (idot,l1,ch,c,wa(iw),wa(ix2),wa(ix3),wa(ix4)) 111 na = 1-na go to 115 112 if (na .ne. 0) go to 113 call passb (nac,idot,ip,l1,idl1,c,c,c,ch,ch,wa(iw)) go to 114 113 call passb (nac,idot,ip,l1,idl1,ch,ch,ch,c,c,wa(iw)) 114 if (nac .ne. 0) na = 1-na 115 l1 = l2 iw = iw+(ip-1)*idot 116 continue if (na .eq. 0) return n2 = n+n do 117 i=1,n2 c(i) = ch(i) 117 continue return end subroutine passb2 (ido,l1,cc,ch,wa1) implicit double precision (a-h,o-z) dimension cc(ido,2,l1) ,ch(ido,l1,2) , 1 wa1(1) if (ido .gt. 2) go to 102 do 101 k=1,l1 ch(1,k,1) = cc(1,1,k)+cc(1,2,k) ch(1,k,2) = cc(1,1,k)-cc(1,2,k) ch(2,k,1) = cc(2,1,k)+cc(2,2,k) ch(2,k,2) = cc(2,1,k)-cc(2,2,k) 101 continue return 102 do 104 k=1,l1 do 103 i=2,ido,2 ch(i-1,k,1) = cc(i-1,1,k)+cc(i-1,2,k) tr2 = cc(i-1,1,k)-cc(i-1,2,k) ch(i,k,1) = cc(i,1,k)+cc(i,2,k) ti2 = cc(i,1,k)-cc(i,2,k) ch(i,k,2) = wa1(i-1)*ti2+wa1(i)*tr2 ch(i-1,k,2) = wa1(i-1)*tr2-wa1(i)*ti2 103 continue 104 continue return end subroutine passb3 (ido,l1,cc,ch,wa1,wa2) implicit double precision (a-h,o-z) dimension cc(ido,3,l1) ,ch(ido,l1,3) , 1 wa1(1) ,wa2(1) c *** taui is sqrt(3)/2 *** data taur,taui /-0.5d0,0.86602540378443864676d0/ if (ido .ne. 2) go to 102 do 101 k=1,l1 tr2 = cc(1,2,k)+cc(1,3,k) cr2 = cc(1,1,k)+taur*tr2 ch(1,k,1) = cc(1,1,k)+tr2 ti2 = cc(2,2,k)+cc(2,3,k) ci2 = cc(2,1,k)+taur*ti2 ch(2,k,1) = cc(2,1,k)+ti2 cr3 = taui*(cc(1,2,k)-cc(1,3,k)) ci3 = taui*(cc(2,2,k)-cc(2,3,k)) ch(1,k,2) = cr2-ci3 ch(1,k,3) = cr2+ci3 ch(2,k,2) = ci2+cr3 ch(2,k,3) = ci2-cr3 101 continue return 102 do 104 k=1,l1 do 103 i=2,ido,2 tr2 = cc(i-1,2,k)+cc(i-1,3,k) cr2 = cc(i-1,1,k)+taur*tr2 ch(i-1,k,1) = cc(i-1,1,k)+tr2 ti2 = cc(i,2,k)+cc(i,3,k) ci2 = cc(i,1,k)+taur*ti2 ch(i,k,1) = cc(i,1,k)+ti2 cr3 = taui*(cc(i-1,2,k)-cc(i-1,3,k)) ci3 = taui*(cc(i,2,k)-cc(i,3,k)) dr2 = cr2-ci3 dr3 = cr2+ci3 di2 = ci2+cr3 di3 = ci2-cr3 ch(i,k,2) = wa1(i-1)*di2+wa1(i)*dr2 ch(i-1,k,2) = wa1(i-1)*dr2-wa1(i)*di2 ch(i,k,3) = wa2(i-1)*di3+wa2(i)*dr3 ch(i-1,k,3) = wa2(i-1)*dr3-wa2(i)*di3 103 continue 104 continue return end subroutine passb4 (ido,l1,cc,ch,wa1,wa2,wa3) implicit double precision (a-h,o-z) dimension cc(ido,4,l1) ,ch(ido,l1,4) , 1 wa1(1) ,wa2(1) ,wa3(1) if (ido .ne. 2) go to 102 do 101 k=1,l1 ti1 = cc(2,1,k)-cc(2,3,k) ti2 = cc(2,1,k)+cc(2,3,k) tr4 = cc(2,4,k)-cc(2,2,k) ti3 = cc(2,2,k)+cc(2,4,k) tr1 = cc(1,1,k)-cc(1,3,k) tr2 = cc(1,1,k)+cc(1,3,k) ti4 = cc(1,2,k)-cc(1,4,k) tr3 = cc(1,2,k)+cc(1,4,k) ch(1,k,1) = tr2+tr3 ch(1,k,3) = tr2-tr3 ch(2,k,1) = ti2+ti3 ch(2,k,3) = ti2-ti3 ch(1,k,2) = tr1+tr4 ch(1,k,4) = tr1-tr4 ch(2,k,2) = ti1+ti4 ch(2,k,4) = ti1-ti4 101 continue return 102 do 104 k=1,l1 do 103 i=2,ido,2 ti1 = cc(i,1,k)-cc(i,3,k) ti2 = cc(i,1,k)+cc(i,3,k) ti3 = cc(i,2,k)+cc(i,4,k) tr4 = cc(i,4,k)-cc(i,2,k) tr1 = cc(i-1,1,k)-cc(i-1,3,k) tr2 = cc(i-1,1,k)+cc(i-1,3,k) ti4 = cc(i-1,2,k)-cc(i-1,4,k) tr3 = cc(i-1,2,k)+cc(i-1,4,k) ch(i-1,k,1) = tr2+tr3 cr3 = tr2-tr3 ch(i,k,1) = ti2+ti3 ci3 = ti2-ti3 cr2 = tr1+tr4 cr4 = tr1-tr4 ci2 = ti1+ti4 ci4 = ti1-ti4 ch(i-1,k,2) = wa1(i-1)*cr2-wa1(i)*ci2 ch(i,k,2) = wa1(i-1)*ci2+wa1(i)*cr2 ch(i-1,k,3) = wa2(i-1)*cr3-wa2(i)*ci3 ch(i,k,3) = wa2(i-1)*ci3+wa2(i)*cr3 ch(i-1,k,4) = wa3(i-1)*cr4-wa3(i)*ci4 ch(i,k,4) = wa3(i-1)*ci4+wa3(i)*cr4 103 continue 104 continue return end subroutine passb5 (ido,l1,cc,ch,wa1,wa2,wa3,wa4) implicit double precision (a-h,o-z) dimension cc(ido,5,l1) ,ch(ido,l1,5) , 1 wa1(1) ,wa2(1) ,wa3(1) ,wa4(1) c *** tr11=cos(2*pi/5), ti11=sin(2*pi/5) c *** tr12=cos(4*pi/5), ti12=sin(4*pi/5) data tr11,ti11,tr12,ti12 /0.3090169943749474241d0, + 0.95105651629515357212d0, + -0.8090169943749474241d0,0.58778525229247312917d0/ if (ido .ne. 2) go to 102 do 101 k=1,l1 ti5 = cc(2,2,k)-cc(2,5,k) ti2 = cc(2,2,k)+cc(2,5,k) ti4 = cc(2,3,k)-cc(2,4,k) ti3 = cc(2,3,k)+cc(2,4,k) tr5 = cc(1,2,k)-cc(1,5,k) tr2 = cc(1,2,k)+cc(1,5,k) tr4 = cc(1,3,k)-cc(1,4,k) tr3 = cc(1,3,k)+cc(1,4,k) ch(1,k,1) = cc(1,1,k)+tr2+tr3 ch(2,k,1) = cc(2,1,k)+ti2+ti3 cr2 = cc(1,1,k)+tr11*tr2+tr12*tr3 ci2 = cc(2,1,k)+tr11*ti2+tr12*ti3 cr3 = cc(1,1,k)+tr12*tr2+tr11*tr3 ci3 = cc(2,1,k)+tr12*ti2+tr11*ti3 cr5 = ti11*tr5+ti12*tr4 ci5 = ti11*ti5+ti12*ti4 cr4 = ti12*tr5-ti11*tr4 ci4 = ti12*ti5-ti11*ti4 ch(1,k,2) = cr2-ci5 ch(1,k,5) = cr2+ci5 ch(2,k,2) = ci2+cr5 ch(2,k,3) = ci3+cr4 ch(1,k,3) = cr3-ci4 ch(1,k,4) = cr3+ci4 ch(2,k,4) = ci3-cr4 ch(2,k,5) = ci2-cr5 101 continue return 102 do 104 k=1,l1 do 103 i=2,ido,2 ti5 = cc(i,2,k)-cc(i,5,k) ti2 = cc(i,2,k)+cc(i,5,k) ti4 = cc(i,3,k)-cc(i,4,k) ti3 = cc(i,3,k)+cc(i,4,k) tr5 = cc(i-1,2,k)-cc(i-1,5,k) tr2 = cc(i-1,2,k)+cc(i-1,5,k) tr4 = cc(i-1,3,k)-cc(i-1,4,k) tr3 = cc(i-1,3,k)+cc(i-1,4,k) ch(i-1,k,1) = cc(i-1,1,k)+tr2+tr3 ch(i,k,1) = cc(i,1,k)+ti2+ti3 cr2 = cc(i-1,1,k)+tr11*tr2+tr12*tr3 ci2 = cc(i,1,k)+tr11*ti2+tr12*ti3 cr3 = cc(i-1,1,k)+tr12*tr2+tr11*tr3 ci3 = cc(i,1,k)+tr12*ti2+tr11*ti3 cr5 = ti11*tr5+ti12*tr4 ci5 = ti11*ti5+ti12*ti4 cr4 = ti12*tr5-ti11*tr4 ci4 = ti12*ti5-ti11*ti4 dr3 = cr3-ci4 dr4 = cr3+ci4 di3 = ci3+cr4 di4 = ci3-cr4 dr5 = cr2+ci5 dr2 = cr2-ci5 di5 = ci2-cr5 di2 = ci2+cr5 ch(i-1,k,2) = wa1(i-1)*dr2-wa1(i)*di2 ch(i,k,2) = wa1(i-1)*di2+wa1(i)*dr2 ch(i-1,k,3) = wa2(i-1)*dr3-wa2(i)*di3 ch(i,k,3) = wa2(i-1)*di3+wa2(i)*dr3 ch(i-1,k,4) = wa3(i-1)*dr4-wa3(i)*di4 ch(i,k,4) = wa3(i-1)*di4+wa3(i)*dr4 ch(i-1,k,5) = wa4(i-1)*dr5-wa4(i)*di5 ch(i,k,5) = wa4(i-1)*di5+wa4(i)*dr5 103 continue 104 continue return end subroutine passb (nac,ido,ip,l1,idl1,cc,c1,c2,ch,ch2,wa) implicit double precision (a-h,o-z) dimension ch(ido,l1,ip) ,cc(ido,ip,l1) , 1 c1(ido,l1,ip) ,wa(1) ,c2(idl1,ip), 2 ch2(idl1,ip) idot = ido/2 nt = ip*idl1 ipp2 = ip+2 ipph = (ip+1)/2 idp = ip*ido c if (ido .lt. l1) go to 106 do 103 j=2,ipph jc = ipp2-j do 102 k=1,l1 do 101 i=1,ido ch(i,k,j) = cc(i,j,k)+cc(i,jc,k) ch(i,k,jc) = cc(i,j,k)-cc(i,jc,k) 101 continue 102 continue 103 continue do 105 k=1,l1 do 104 i=1,ido ch(i,k,1) = cc(i,1,k) 104 continue 105 continue go to 112 106 do 109 j=2,ipph jc = ipp2-j do 108 i=1,ido do 107 k=1,l1 ch(i,k,j) = cc(i,j,k)+cc(i,jc,k) ch(i,k,jc) = cc(i,j,k)-cc(i,jc,k) 107 continue 108 continue 109 continue do 111 i=1,ido do 110 k=1,l1 ch(i,k,1) = cc(i,1,k) 110 continue 111 continue 112 idl = 2-ido inc = 0 do 116 l=2,ipph lc = ipp2-l idl = idl+ido do 113 ik=1,idl1 c2(ik,l) = ch2(ik,1)+wa(idl-1)*ch2(ik,2) c2(ik,lc) = wa(idl)*ch2(ik,ip) 113 continue idlj = idl inc = inc+ido do 115 j=3,ipph jc = ipp2-j idlj = idlj+inc if (idlj .gt. idp) idlj = idlj-idp war = wa(idlj-1) wai = wa(idlj) do 114 ik=1,idl1 c2(ik,l) = c2(ik,l)+war*ch2(ik,j) c2(ik,lc) = c2(ik,lc)+wai*ch2(ik,jc) 114 continue 115 continue 116 continue do 118 j=2,ipph do 117 ik=1,idl1 ch2(ik,1) = ch2(ik,1)+ch2(ik,j) 117 continue 118 continue do 120 j=2,ipph jc = ipp2-j do 119 ik=2,idl1,2 ch2(ik-1,j) = c2(ik-1,j)-c2(ik,jc) ch2(ik-1,jc) = c2(ik-1,j)+c2(ik,jc) ch2(ik,j) = c2(ik,j)+c2(ik-1,jc) ch2(ik,jc) = c2(ik,j)-c2(ik-1,jc) 119 continue 120 continue nac = 1 if (ido .eq. 2) return nac = 0 do 121 ik=1,idl1 c2(ik,1) = ch2(ik,1) 121 continue do 123 j=2,ip do 122 k=1,l1 c1(1,k,j) = ch(1,k,j) c1(2,k,j) = ch(2,k,j) 122 continue 123 continue if (idot .gt. l1) go to 127 idij = 0 do 126 j=2,ip idij = idij+2 do 125 i=4,ido,2 idij = idij+2 do 124 k=1,l1 c1(i-1,k,j) = wa(idij-1)*ch(i-1,k,j)-wa(idij)*ch(i,k,j) c1(i,k,j) = wa(idij-1)*ch(i,k,j)+wa(idij)*ch(i-1,k,j) 124 continue 125 continue 126 continue return 127 idj = 2-ido do 130 j=2,ip idj = idj+ido do 129 k=1,l1 idij = idj do 128 i=4,ido,2 idij = idij+2 c1(i-1,k,j) = wa(idij-1)*ch(i-1,k,j)-wa(idij)*ch(i,k,j) c1(i,k,j) = wa(idij-1)*ch(i,k,j)+wa(idij)*ch(i-1,k,j) 128 continue 129 continue 130 continue return end ifeffit-1.2.11d/src/lib/padlib.f0000644000175000017500000003403410774250135015317 0ustar segresegrec c PAD library: Packed Ascii Data c these routines contain code for handling packed-ascii-data c (pad) arrays for writing printable character strings that c represent real or complex scalars and arrays to a file. c c routines included in padlib are (dp==double precision): c wrpadd write a dp array as pad character strings c wrpadx write a dp complex array as pad character strings c rdpadr read a pad character array as a real array c rdpadd read a pad character array as a dp array c rdpadc read a pad character array as a complex array c rdpadx read a pad character array as a dp complex array c pad internal routine to convert dp number to pad string c unpad internal routine to pad string to dp number c c routines not included, but required by padlib: c triml, istrln, echo, iread, sclean c c////////////////////////////////////////////////////////////////////// c Copyright (c) 1997--2001 Matthew Newville, The University of Chicago c Copyright (c) 1992--1996 Matthew Newville, University of Washington c c Permission to use and redistribute the source code or binary forms of c this software and its documentation, with or without modification is c hereby granted provided that the above notice of copyright, these c terms of use, and the disclaimer of warranty below appear in the c source code and documentation, and that none of the names of The c University of Chicago, The University of Washington, or the authors c appear in advertising or endorsement of works derived from this c software without specific prior written permission from all parties. c c THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, c EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF c MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. c IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY c CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, c TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE c SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. c////////////////////////////////////////////////////////////////////// c subroutine wrpadd(iout,npack,array,npts) c c write a dp array to a file in packed-ascii-data format c c inputs: [ no outputs / no side effects ] c iout unit to write to (assumed open) c npack number of characters to use (determines precision) c array real array c npts number of array elements to read c notes: c real number converted to packed-ascii-data string using pad include 'padlib.h' integer iout, npack, npts, mxl, js, i character str*128 double precision array(*), xr js = 0 str = ' ' mxl = maxlen - npack + 1 do 20 i = 1, npts js = js+npack xr = array(i) call pad(xr, npack, str(js-npack+1:js)) if ((js.ge.mxl).or.(i.eq.npts)) then write(iout,100) cpadr, str(1:js) js = 0 end if 20 continue return 100 format(a1,a) end c --padlib-- subroutine wrpadx(iout,npack,array,npts) c write complex*16 array as pad string include 'padlib.h' integer iout, npack, npts, mxl, js, i complex*16 array(*) character str*128 double precision xr, xi js = 0 str = ' ' mxl = maxlen - 2 * npack + 1 do 20 i = 1, npts js = js + 2 * npack xr = dble(array(i)) xi = dimag(array(i)) call pad(xr, npack, str(js-2*npack+1:js-npack)) call pad(xi, npack, str(js-npack+1:js)) if ((js.ge.mxl).or.(i.eq.npts)) then write(iout,100) cpadc, str(1:js) js = 0 end if 20 continue return 100 format(a1,a) end c --padlib-- subroutine wrpadr(iout,npack,array,npts) c c write a real array to a file in packed-ascii-data format c c inputs: [ no outputs / no side effects ] c iout unit to write to (assumed open) c npack number of characters to use (determines precision) c array real array c npts number of array elements to read c notes: c real number converted to packed-ascii-data string using pad include 'padlib.h' integer iout, npack, npts, mxl, js, i character str*128 real array(*) double precision xr js = 0 str = ' ' mxl = maxlen - npack + 1 do 20 i = 1, npts js = js+npack xr = dble(array(i)) call pad(xr, npack, str(js-npack+1:js)) if ((js.ge.mxl).or.(i.eq.npts)) then write(iout,100) cpadr, str(1:js) js = 0 end if 20 continue return 100 format(a1,a) end c --padlib-- subroutine wrpadc(iout,npack,array,npts) c write complex (*8) array as pad string include 'padlib.h' integer iout, npack, npts, mxl, js, i complex array(*) character str*128 double precision xr, xi js = 0 str = ' ' mxl = maxlen - 2 * npack + 1 do 20 i = 1, npts js = js + 2 * npack xr = dble(array(i)) xi = aimag(array(i)) call pad(xr, npack, str(js-2*npack+1:js-npack)) call pad(xi, npack, str(js-npack+1:js)) if ((js.ge.mxl).or.(i.eq.npts)) then write(iout,100) cpadc, str(1:js) js = 0 end if 20 continue return 100 format(a1,a) end c --padlib-- subroutine rdpadd(iou,npack,array,npts) c read dparray from packed-ascii-data file c arguments: c iou unit to read from (assumed open) (in) c npack number of characters to use (determines precision) (in) c array real array (out) c npts number of array elements to read / number read (in/out) c notes: c packed-ascii-data string converted to real array using unpad include 'padlib.h' integer iou, npack, npts, ndline, i, istrln, ipts, iread double precision array(*), unpad , tmp character ctest, ccomp character str*128 external unpad, istrln, iread ccomp = cpadr ipts = 0 10 continue i = iread(iou, str) if (i.lt.0) go to 50 call triml(str) ctest = str(1:1) str = str(2:) ndline = i/npack if ((ctest.ne.ccomp).or.(ndline.le.0)) go to 200 do 30 i = 1, ndline ipts = ipts + 1 tmp = unpad(str(1-npack+i*npack:i*npack),npack) array(ipts) = tmp if (ipts.ge.npts) go to 50 30 continue go to 10 50 continue return 200 continue call warn(3,' -- Read_PAD error: bad data at line:') i = istrln(str) call echo(str(:i)) call fstop(' -- bad data in PAD data file -- ') end c --padlib-- subroutine rdpadr(iou,npack,array,npts) c read real array from packed-ascii-data file c arguments: c iou unit to read from (assumed open) (in) c npack number of characters to use (determines precision) (in) c array real array (out) c npts number of array elements to read / number read (in/out) c notes: c packed-ascii-data string converted to real array using unpad include 'padlib.h' integer iou, npack, npts, ndline, i, istrln, ipts, iread real array(*) double precision unpad , tmp character ctest, ccomp character str*128 external unpad, istrln, iread ccomp = cpadr ipts = 0 10 continue i = iread(iou, str) if (i.lt.0) go to 50 call triml(str) ctest = str(1:1) str = str(2:) ndline = i/npack if ((ctest.ne.ccomp).or.(ndline.le.0)) go to 200 do 30 i = 1, ndline ipts = ipts + 1 tmp = unpad(str(1-npack+i*npack:i*npack),npack) array(ipts) = real(tmp) if (ipts.ge.npts) go to 50 30 continue go to 10 50 continue return 200 continue call warn(3, ' -- Read_PAD error: bad data at line:') i = istrln(str) call echo(str(:i)) call fstop(' -- bad data in PAD data file -- ') end c --padlib-- subroutine rdpadc(iou,npack,array,npts) c read complex array from packed-ascii-data file c arguments: c iou unit to read from (assumed open) (in) c npack number of characters to use (determines precision)(in) c array complex array (out) c npts number of array elements to read / number read (in/out) c notes: c packed-ascii-data string converted to real array using unpad include 'padlib.h' integer iou, npack,npts, ndline, i, istrln, ipts, np, iread double precision unpad, tmpr, tmpi complex array(*) character ctest, ccomp character str*128 external unpad, istrln, iread ccomp = cpadc ipts = 0 np = 2 * npack 10 continue i = iread(iou, str) if (i.lt.0) go to 50 call triml(str) ctest = str(1:1) str = str(2:) ndline = i / np if ((ctest.ne.ccomp).or.(ndline.le.0)) go to 200 do 30 i = 1, ndline ipts = ipts + 1 tmpr = unpad(str(1-np+i*np:-npack+i*np),npack) tmpi = unpad(str(1-npack+i*np:i*np),npack) array(ipts) = cmplx(tmpr, tmpi) if (ipts.ge.npts) go to 50 30 continue go to 10 50 continue return 200 continue call warn(3, ' -- Read_PAD error: bad data at line:') i = istrln(str) call echo(str(:i)) call fstop(' -- bad data in PAD data file -- ') end subroutine rdpadx(iou,npack,array,npts) c read complex*16 array from packed-ascii-data file c arguments: c iou unit to read from (assumed open) (in) c npack number of characters to use (determines precision)(in) c array complex array (out) c npts number of array elements to read / number read (in/out) c notes: c packed-ascii-data string converted to real array using unpad include 'padlib.h' integer iou, npack,npts, ndline, i, istrln, ipts, np, iread double precision unpad, tmpr, tmpi complex*16 array(*) character ctest, ccomp character str*128 external unpad, istrln, iread ccomp = cpadc ipts = 0 np = 2 * npack 10 continue i = iread(iou, str) if (i.lt.0) go to 50 call triml(str) ctest = str(1:1) str = str(2:) ndline = i / np if ((ctest.ne.ccomp).or.(ndline.le.0)) go to 200 do 30 i = 1, ndline ipts = ipts + 1 tmpr = unpad(str(1-np+i*np:-npack+i*np),npack) tmpi = unpad(str(1-npack+i*np:i*np),npack) array(ipts) = cmplx(tmpr, tmpi) if (ipts.ge.npts) go to 50 30 continue go to 10 50 continue return 200 continue call warn(3,' -- Read_PAD error: bad data at line:') i = istrln(str) call echo(str(:i)) call fstop(' -- bad data in PAD data file -- ') end c --padlib-- subroutine pad(xreal,npack,str) c convert dp number *xreal* to packed-ascii-data string *str* include 'padlib.h' integer iexp, itmp, isgn, i, npack, iok, j double precision xreal, xwork, xsave double precision tenth, tenmm, half, small parameter (tenth = 0.1d0, tenmm = 0.099999999994d0) parameter (half = 0.5d0, small = 1.d-10 ) character str*(*) c str = ' ' xsave = min(huge, max(-huge, xreal)) isgn = 1 if (xsave.le.0) isgn = 0 c xwork = dabs( xsave ) iexp = 0 if ((xwork.lt.huge).and.(xwork.gt.tiny)) then iexp = 1 + int(log(xwork) / tenlog ) else if (xwork.ge.huge) then iexp = ihuge xwork = one else if (xwork.le.tiny) then xwork = zero end if c force xwork between ~0.1 and ~1 c note: this causes a loss of precision, but c allows backward compatibility xwork = xwork / (ten ** iexp) 20 continue if (xwork.ge.one) then xwork = xwork * tenth iexp = iexp + 1 else if (xwork.le.tenmm) then xwork = xwork * ten iexp = iexp - 1 endif if (xwork.ge.one) go to 20 itmp = int ( ibas2 * xwork ) str(1:1) = char(iexp + ioff + ibas2 ) str(2:2) = char( 2 * itmp + isgn + ioff) xwork = xwork * ibas2 - itmp if (npack.gt.2) then do 100 i = 3, npack itmp = int( base * xwork + small) str(i:i) = char(itmp + ioff) xwork = xwork * base - itmp 100 continue end if if (xwork.ge.half) then i = itmp + ioff + 1 if (i.lt.(ibase+ioff)) then str(npack:npack)= char(i) else j = ichar(str(npack-1:npack-1)) if (j.lt.(ibase+ioff-1)) then str(npack-1:npack-1) = char(j+1) str(npack:npack) = char(ioff) endif endif endif return end c --padlib-- double precision function unpad(str,npack) c c convert packed-ascii-data string *str* to dp number *unpad* include 'padlib.h' double precision sum integer iexp, itmp, isgn, i, npack character str*(*) unpad = zero if (npack.le.2) return iexp = (ichar(str(1:1)) - ioff ) - ibas2 isgn = mod (ichar(str(2:2)) - ioff, 2) * 2 - 1 itmp = (ichar(str(2:2)) - ioff ) / 2 sum = dble(itmp/(base*base)) do 100 i = npack, 3, -1 sum = sum + dble(ichar(str(i:i)) - ioff) / base**i 100 continue unpad = 2 * isgn * ibase * sum * (ten ** iexp) cc print*, sum, iexp,unpad return end c --padlib-- c end of pad library c ---------- ifeffit-1.2.11d/src/lib/ifeffit.inc0000644000175000017500000000053210771740457016030 0ustar segresegreC C fortran header file Ifeffit integer ifeffit, iffgetecho integer iffgetstr, iffputstr integer iffgetsca, iffputsca integer iffgetarr, iffputarr external ifeffit, iffgetecho external iffgetstr, iffputstr external iffgetsca, iffputsca external iffgetarr, iffputarr ifeffit-1.2.11d/src/lib/README0000644000175000017500000000107510771740457014604 0ustar segresegre# # This directory contains data files needed for Ifeffit to work well. # # directories and files contained here are: # # startup.iff ifeffit startup file, loaded upon initialization. # this is an ideal to put site-wide macro definitions # # config/ files describing the ifeffit build, especially useful # for building extensions to ifeffit after installation. # # cldata/ data file needed for the f1f2() calculations of the # anomalous scattering coefficients based on the work of # Cromer-Libermann. ifeffit-1.2.11d/src/autobk/0000755000175000017500000000000011117272040014417 5ustar segresegreifeffit-1.2.11d/src/autobk/autlog.f0000644000175000017500000001042010771740456016076 0ustar segresegre subroutine autlog(iofl) c c a bunch of write statements to the log file (unit=iofl) c this should fully account what went on in the background removal. c please feel free to alter it in any way. c include 'autobk.h' integer iofl, ilen, ix, icom, istrln double precision e0 external istrln c c if first time through, open log file c begin writing results write(iofl,425) icom = max(1, istrln(commnt)) if (icom.ne.0) then write(iofl,400) ' '//commnt(:icom) write(iofl,426) end if ilen = max(1, istrln(xmuf)) write(iofl,410) ' input xmu data file name and skey: ', $ xmuf(:ilen + 2),skeyxm write(iofl,405) ' first document line: ', $ xmudoc(1)(:50) if (theory) then write(iofl,426) ilen = max(1, istrln(theorf)) write(iofl,410) ' input theory chi file name and skey: ', $ theorf(:ilen + 2),skeyth write(iofl,405) ' first document line: ', $ thedoc(1)(:50) end if write(iofl,426) ix = min(55, max(1, istrln(chif)) ) write(iofl,405) ' output chi file : ',chif(1:ix) write(iofl,426) write(iofl,400) ' --------fitting parameters---------' e0 = ee + e0shft if (theory.and.eevary) then write(iofl,460) ' initial value of e0 = ',ee write(iofl,460) ' final value of e0 = ',e0 else write(iofl,460) ' e0 fixed at = ',ee end if write(iofl,470) ' pre-edge range = ', $ predg1,predg2 write(iofl,490) ' pre-edge line = ', slopre , $ ' * Energy + ', bpre write(iofl,460) ' edge step = ',step write(iofl,493) ' post-edge curve for edge_step = ', $ cnorm(1), ' + ', cnorm(2), ' * Energy ' write(iofl,494) ' + ', cnorm(2) , $ ' * Energy^2' if (funnrm) then write(iofl,405) ' note: chi(k) was normalized by the', $ ' background function : ' write(iofl,400) ' chi(k) = ( xmu(e) / bkg(e) ) - 1' end if write(iofl,470) ' energy range = ', $ emin,emax qmax = qgrid*int( sqrt((emax - e0) * etok) / qgrid ) if (emin.gt.e0) then qmin = qgrid*int( sqrt((emin - e0) * etok) / qgrid ) else qmin = zero end if write(iofl,470) ' k range = ',qmin,qmax write(iofl,460) ' k weight = ',qweigh write(iofl,400) ' fourier transform window: ' if (iwindo.eq.1) then write(iofl,460) ' hanning fraction = ',windo1 elseif (iwindo.eq.2) then write(iofl,460) ' gaussian: dk = ',windo1 elseif (iwindo.eq.3) then write(iofl,460) ' lorentzian: dk = ',windo1 elseif (iwindo.eq.4) then write(iofl,470) ' parzen: dk1, dk2 = ', $ windo1,windo2 elseif (iwindo.eq.5) then write(iofl,470) ' welch: dk1, dk2 = ', $ windo1,windo2 else write(iofl,470) ' sills: dk1, dk2 = ', $ windo1,windo2 endif write(iofl,480) ' # of knots in spline = ',nsplin write(iofl,470) ' background r range = ',zero,rbkg if (theory) then write(iofl,460) ' the theory was scaled by = ',theamp write(iofl,470) ' 1st shell r range = ',rbkg,r1st end if write(iofl,425) 400 format(2x,a) 405 format(2x,2a) 410 format(2x,3a) 422 format(9x,'(1/2) + Amp * atan( (Energy - Emid) / Ewid )') 425 format(3x,70('-')) 426 format(3x,35('-')) 460 format(2x,a,f15.6) 470 format(2x,a,f15.6,1x,f15.6) 480 format(2x,a,i4) 490 format(2x,a,e13.6,a,e13.6) 493 format(2x,a,e13.6,a,e13.6,a) 494 format(2x,a,e13.6,a) return c end subroutine autlog end ifeffit-1.2.11d/src/autobk/autdat.f0000644000175000017500000001065710771740456016101 0ustar segresegre subroutine autdat c c this routine reads all input data files for the progam autobk. c the xmu data file is opened, the pre-edge is removed, and the c standard chi data (if used) is read. the routine inpdat is c used for all data files, allowing either uwexafs binary or c ascii column data to be used. c c copyright 1992 university of washington : matt newville c----------------------------------------------------------------------- include 'autobk.h' c local variables character ftype*5, frmthe*10 double precision qtemp (maxpts), chitmp(maxpts), small double precision q, rgrid, rsmall, rtemp double precision dummy1(maxpts), dummy2(maxpts) double precision dummy3(maxpts), xmuraw(maxpts) parameter (small = 1.d-10) integer ndocln, i, nxx, ipos, nemin, nemax, nofx c-------------------------------------------------- if (xmuf.eq. ' ') then call echo(' autobk error: no input xmu data'// $ ' file name given.') call fstop(' no xmu data') end if c c get xmu data, do pre-edge and normalization, and store the c modified xmu values in xmudat. ndocln = maxdoc nxmu = maxpts ftype = 'xmu' irecl = 512 call inpdat( ftype, frminp, xmuf, vaxflg, skeyxm, $ nkeyxm, irecl, ndocln, xmudoc, nxmu, energy, $ xmuraw, dummy1, dummy2, dummy3) cc print*, ' irecl = ', irecl, nxmu, energy(1) c c simple kludge to allow columnd 3,4,5 to be used as xmuraw: if ((imucol.ge.3).and.(imucol.le.5)) then if (imucol.eq.3) then do 22 i = 1, nxmu xmuraw(i) = dummy1(i) 22 continue elseif (imucol.eq.4) then do 23 i = 1, nxmu xmuraw(i) = dummy2(i) 23 continue elseif (imucol.eq.5) then do 24 i = 1, nxmu xmuraw(i) = dummy3(i) 24 continue endif endif c c remove pre-edge, get edge step nnorm = 2 call preedg(eefind, stfind, nxmu, energy, xmuraw, ee, $ predg1, predg2, enor1, enor2, nnorm, $ step, slopre, bpre,cnorm) step = max(step, small) if (funnrm) step = one c set background equal to xmu do 50 i = 1, nxmu xmudat(i) = xmuraw(i) - slopre * energy(i) - bpre spline(i) = xmudat(i) 50 continue c c get theory from a 'chi' file c if theory is not given thiq is filled with 0.0 ntheor = 1 qtemp(1) = zero if (theory) then ndocln = maxdoc ntheor = maxpts ftype = 'chi' c frmthe = frminp frmthe = ' ' call inpdat(ftype, frmthe, theorf, vaxflg, skeyth, $ nkeyth, irecl, ndocln, thedoc, ntheor, qtemp, $ chitmp, dummy1, dummy2, dummy3) end if nxx = min(maxpts, 10 + int (qtemp(ntheor) / qgrid)) ipos = 1 do 200 i = 1, nxx q = i*qgrid if ( (q.lt.qtemp(1)).or.(q.ge.qtemp(ntheor)) ) then thiq(i) = zero else call lintrp ( qtemp, chitmp, ntheor, q, ipos, thiq(i) ) end if 200 continue c----------------------------------------------------------------------- c move emin and emax to values on the energy grid emin = emin + ee emax = emax + ee if (emax.le.emin) emax = energy(nxmu) nemin = nofx(emin,energy,nxmu) nemax = nofx(emax,energy,nxmu) emin = energy(nemin) emax = energy(nemax) c----------------------------------------------------------------------- c put r values on rgrid, get npts numbers if (r1st.le.rbkg) r1st = rbkg + 2.0 rgrid = pi / (qgrid * mftfit) rsmall = rgrid / 100.0 rbkg = rgrid * int( (rbkg + rsmall) / rgrid ) r1st = rgrid * int( (r1st + rsmall) / rgrid ) if (rbkg.gt.r1st) then rtemp = rbkg rbkg = r1st r1st = rtemp end if nrbkg = 2 * int((rbkg + rsmall)/rgrid) + 2 nrpts = 2 * int((r1st + rsmall)/rgrid) + 2 nr1st = nrpts - nrbkg if (nxmu.le.4) then call echo(' autobk error: data file empty, or not'// $ ' enough data points') call echo(' the data file may need # signs for'// $ ' comment lines.') call fstop(' bad data file') end if c done return c end subroutine autdat end ifeffit-1.2.11d/src/autobk/f2c.h0000644000175000017500000002503110771740456015263 0ustar segresegre/* f2c.h -- Standard Fortran to C header file */ /** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ #ifndef F2C_INCLUDE #define F2C_INCLUDE typedef int integer; /* This is 'long int' in the standard distribution */ typedef unsigned long uinteger; typedef char *address; typedef short int shortint; typedef float real; typedef double doublereal; typedef struct { real r, i; } complex; typedef struct { doublereal r, i; } doublecomplex; typedef long int logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; #if 0 /* Adjust for integer*8. */ typedef long long longint; /* system-dependent */ typedef unsigned long long ulongint; /* system-dependent */ #define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) #define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) #endif #define TRUE_ (1) #define FALSE_ (0) /* Extern is for use with -E */ #ifndef Extern #define Extern extern #endif /* I/O stuff */ #ifdef f2c_i2 /* for -i2 */ typedef short flag; typedef short ftnlen; typedef short ftnint; #else typedef long int flag; typedef long int ftnlen; typedef long int ftnint; #endif /*external read, write*/ typedef struct { flag cierr; ftnint ciunit; flag ciend; char *cifmt; ftnint cirec; } cilist; /*internal read, write*/ typedef struct { flag icierr; char *iciunit; flag iciend; char *icifmt; ftnint icirlen; ftnint icirnum; } icilist; /*open*/ typedef struct { flag oerr; ftnint ounit; char *ofnm; ftnlen ofnmlen; char *osta; char *oacc; char *ofm; ftnint orl; char *oblnk; } olist; /*close*/ typedef struct { flag cerr; ftnint cunit; char *csta; } cllist; /*rewind, backspace, endfile*/ typedef struct { flag aerr; ftnint aunit; } alist; /* inquire */ typedef struct { flag inerr; ftnint inunit; char *infile; ftnlen infilen; ftnint *inex; /*parameters in standard's order*/ ftnint *inopen; ftnint *innum; ftnint *innamed; char *inname; ftnlen innamlen; char *inacc; ftnlen inacclen; char *inseq; ftnlen inseqlen; char *indir; ftnlen indirlen; char *infmt; ftnlen infmtlen; char *inform; ftnint informlen; char *inunf; ftnlen inunflen; ftnint *inrecl; ftnint *innrec; char *inblank; ftnlen inblanklen; } inlist; #define VOID void union Multitype { /* for multiple entry points */ integer1 g; shortint h; integer i; /* longint j; */ real r; doublereal d; complex c; doublecomplex z; }; typedef union Multitype Multitype; /*typedef long int Long;*/ /* No longer used; formerly in Namelist */ struct Vardesc { /* for Namelist */ char *name; char *addr; ftnlen *dims; int type; }; typedef struct Vardesc Vardesc; struct Namelist { char *name; Vardesc **vars; int nvars; }; typedef struct Namelist Namelist; #define abs(x) ((x) >= 0 ? (x) : -(x)) #define dabs(x) (doublereal)abs(x) #define min(a,b) ((a) <= (b) ? (a) : (b)) #define max(a,b) ((a) >= (b) ? (a) : (b)) #define dmin(a,b) (doublereal)min(a,b) #define dmax(a,b) (doublereal)max(a,b) #define bit_test(a,b) ((a) >> (b) & 1) #define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) #define bit_set(a,b) ((a) | ((uinteger)1 << (b))) /* procedure parameter types for -A and -C++ */ #define F2C_proc_par_types 1 #ifdef __cplusplus typedef int /* Unknown procedure type */ (*U_fp)(...); typedef shortint (*J_fp)(...); typedef integer (*I_fp)(...); typedef real (*R_fp)(...); typedef doublereal (*D_fp)(...), (*E_fp)(...); typedef /* Complex */ VOID (*C_fp)(...); typedef /* Double Complex */ VOID (*Z_fp)(...); typedef logical (*L_fp)(...); typedef shortlogical (*K_fp)(...); typedef /* Character */ VOID (*H_fp)(...); typedef /* Subroutine */ int (*S_fp)(...); #else typedef int /* Unknown procedure type */ (*U_fp)(); typedef shortint (*J_fp)(); typedef integer (*I_fp)(); typedef real (*R_fp)(); typedef doublereal (*D_fp)(), (*E_fp)(); typedef /* Complex */ VOID (*C_fp)(); typedef /* Double Complex */ VOID (*Z_fp)(); typedef logical (*L_fp)(); typedef shortlogical (*K_fp)(); typedef /* Character */ VOID (*H_fp)(); typedef /* Subroutine */ int (*S_fp)(); #endif /* E_fp is for real functions when -R is not specified */ typedef VOID C_f; /* complex function */ typedef VOID H_f; /* character function */ typedef VOID Z_f; /* double complex function */ typedef doublereal E_f; /* real function with -R not specified */ /* undef any lower-case symbols that your C compiler predefines, e.g.: */ #ifndef Skip_f2c_Undefs #undef cray #undef gcos #undef mc68010 #undef mc68020 #undef mips #undef pdp11 #undef sgi #undef sparc #undef sun #undef sun2 #undef sun3 #undef sun4 #undef u370 #undef u3b #undef u3b2 #undef u3b5 #undef unix #undef vax #endif #endif /* If you are using a C++ compiler, append the following to f2c.h for compiling libF77 and libI77. */ #ifdef __cplusplus extern "C" { extern int abort_(void); extern double c_abs(complex *); extern void c_cos(complex *, complex *); extern void c_div(complex *, complex *, complex *); extern void c_exp(complex *, complex *); extern void c_log(complex *, complex *); extern void c_sin(complex *, complex *); extern void c_sqrt(complex *, complex *); extern double d_abs(double *); extern double d_acos(double *); extern double d_asin(double *); extern double d_atan(double *); extern double d_atn2(double *, double *); extern void d_cnjg(doublecomplex *, doublecomplex *); extern double d_cos(double *); extern double d_cosh(double *); extern double d_dim(double *, double *); extern double d_exp(double *); extern double d_imag(doublecomplex *); extern double d_int(double *); extern double d_lg10(double *); extern double d_log(double *); extern double d_mod(double *, double *); extern double d_nint(double *); extern double d_prod(float *, float *); extern double d_sign(double *, double *); extern double d_sin(double *); extern double d_sinh(double *); extern double d_sqrt(double *); extern double d_tan(double *); extern double d_tanh(double *); extern double derf_(double *); extern double derfc_(double *); extern integer do_fio(ftnint *, char *, ftnlen); extern integer do_lio(ftnint *, ftnint *, char *, ftnlen); extern integer do_uio(ftnint *, char *, ftnlen); extern integer e_rdfe(void); extern integer e_rdue(void); extern integer e_rsfe(void); extern integer e_rsfi(void); extern integer e_rsle(void); extern integer e_rsli(void); extern integer e_rsue(void); extern integer e_wdfe(void); extern integer e_wdue(void); extern integer e_wsfe(void); extern integer e_wsfi(void); extern integer e_wsle(void); extern integer e_wsli(void); extern integer e_wsue(void); extern int ef1asc_(ftnint *, ftnlen *, ftnint *, ftnlen *); extern integer ef1cmc_(ftnint *, ftnlen *, ftnint *, ftnlen *); extern double erf(double); extern double erf_(float *); extern double erfc(double); extern double erfc_(float *); extern integer f_back(alist *); extern integer f_clos(cllist *); extern integer f_end(alist *); extern void f_exit(void); extern integer f_inqu(inlist *); extern integer f_open(olist *); extern integer f_rew(alist *); extern int flush_(void); extern void getarg_(integer *, char *, ftnlen); extern void getenv_(char *, char *, ftnlen, ftnlen); extern short h_abs(short *); extern short h_dim(short *, short *); extern short h_dnnt(double *); extern short h_indx(char *, char *, ftnlen, ftnlen); extern short h_len(char *, ftnlen); extern short h_mod(short *, short *); extern short h_nint(float *); extern short h_sign(short *, short *); extern short hl_ge(char *, char *, ftnlen, ftnlen); extern short hl_gt(char *, char *, ftnlen, ftnlen); extern short hl_le(char *, char *, ftnlen, ftnlen); extern short hl_lt(char *, char *, ftnlen, ftnlen); extern integer i_abs(integer *); extern integer i_dim(integer *, integer *); extern integer i_dnnt(double *); extern integer i_indx(char *, char *, ftnlen, ftnlen); extern integer i_len(char *, ftnlen); extern integer i_mod(integer *, integer *); extern integer i_nint(float *); extern integer i_sign(integer *, integer *); extern integer iargc_(void); extern ftnlen l_ge(char *, char *, ftnlen, ftnlen); extern ftnlen l_gt(char *, char *, ftnlen, ftnlen); extern ftnlen l_le(char *, char *, ftnlen, ftnlen); extern ftnlen l_lt(char *, char *, ftnlen, ftnlen); extern void pow_ci(complex *, complex *, integer *); extern double pow_dd(double *, double *); extern double pow_di(double *, integer *); extern short pow_hh(short *, shortint *); extern integer pow_ii(integer *, integer *); extern double pow_ri(float *, integer *); extern void pow_zi(doublecomplex *, doublecomplex *, integer *); extern void pow_zz(doublecomplex *, doublecomplex *, doublecomplex *); extern double r_abs(float *); extern double r_acos(float *); extern double r_asin(float *); extern double r_atan(float *); extern double r_atn2(float *, float *); extern void r_cnjg(complex *, complex *); extern double r_cos(float *); extern double r_cosh(float *); extern double r_dim(float *, float *); extern double r_exp(float *); extern double r_imag(complex *); extern double r_int(float *); extern double r_lg10(float *); extern double r_log(float *); extern double r_mod(float *, float *); extern double r_nint(float *); extern double r_sign(float *, float *); extern double r_sin(float *); extern double r_sinh(float *); extern double r_sqrt(float *); extern double r_tan(float *); extern double r_tanh(float *); extern void s_cat(char *, char **, integer *, integer *, ftnlen); extern integer s_cmp(char *, char *, ftnlen, ftnlen); extern void s_copy(char *, char *, ftnlen, ftnlen); extern int s_paus(char *, ftnlen); extern integer s_rdfe(cilist *); extern integer s_rdue(cilist *); extern integer s_rnge(char *, integer, char *, integer); extern integer s_rsfe(cilist *); extern integer s_rsfi(icilist *); extern integer s_rsle(cilist *); extern integer s_rsli(icilist *); extern integer s_rsne(cilist *); extern integer s_rsni(icilist *); extern integer s_rsue(cilist *); extern int s_stop(char *, ftnlen); extern integer s_wdfe(cilist *); extern integer s_wdue(cilist *); extern integer s_wsfe(cilist *); extern integer s_wsfi(icilist *); extern integer s_wsle(cilist *); extern integer s_wsli(icilist *); extern integer s_wsne(cilist *); extern integer s_wsni(icilist *); extern integer s_wsue(cilist *); extern void sig_die(char *, int); extern integer signal_(integer *, void (*)(int)); extern integer system_(char *, ftnlen); extern double z_abs(doublecomplex *); extern void z_cos(doublecomplex *, doublecomplex *); extern void z_div(doublecomplex *, doublecomplex *, doublecomplex *); extern void z_exp(doublecomplex *, doublecomplex *); extern void z_log(doublecomplex *, doublecomplex *); extern void z_sin(doublecomplex *, doublecomplex *); extern void z_sqrt(doublecomplex *, doublecomplex *); } #endif ifeffit-1.2.11d/src/autobk/autobk.h0000644000175000017500000000531110771740456016075 0ustar segresegrec{autcom.f -*-fortran-*- implicit none c parameters: integer maxpts, maxdoc, korder, maxnot, mtknot, mdmfft double precision zero, one, pi, qgrid, etok parameter(maxpts = 2048, maxdoc = 20, korder = 4 ) parameter(maxnot = 50, mtknot = maxnot + korder ) parameter(mdmfft = 4*maxpts + 15, zero = 0.d0, one = 1.d0) parameter(pi = 3.14159 26535 89793d0) parameter(qgrid = 0.05d0 , etok = 0.26246 82917d0) c character strings: character*128 xmudoc(maxdoc), thedoc(maxdoc) character*128 xmuf, theorf, chif, commnt, versn, winstr character*10 skeyth, skeyxm, frminp, frmout, asccmt*2 common /char/ xmuf, skeyxm, theorf, skeyth, chif, commnt, $ frminp, frmout, versn, xmudoc, thedoc, asccmt, $ winstr c data/background spline: integer nxmu, imucol, ntheor, nsplin, nkeyxm, nkeyth double precision energy(maxpts), xmudat(maxpts), windo(maxpts) double precision spline(maxpts), eknot(mtknot) double precision chiq(maxpts), thiq(maxpts), thifit(maxpts) common /data/ nkeyxm, nkeyth, nxmu, ntheor, nsplin, imucol, $ energy, xmudat, spline, eknot, chiq, thiq, thifit, windo c c pre-edge information: logical eefind, stfind double precision ee, predg1, predg2, slopre double precision bpre, enor1, enor2, step, cnorm(3) integer nnorm, nterp common /edge/ eefind, stfind, nnorm, nterp, ee, predg1, predg2, $ slopre, bpre, enor1, enor2, step, cnorm c c fast-fourier transform: double precision wfftc(mdmfft), qweigh double precision windo1, windo2, rbkg, r1st, qmin, qmax integer iwindo, mftfit, nqpts, nrpts common /fft/ iwindo, mftfit, nqpts, nrpts, qweigh, $ qmin, qmax, windo1, windo2, rbkg, r1st, wfftc c c input/output: integer iprint, mdocxx, iodot, irecl logical bkgxmu, bkgchi, bkgrsp, thechi, preout, eshout logical thersp, chirsp, gvknot, nrmout logical vaxflg, macflg, dosflg, unxflg common /ino/ mdocxx, iprint, iodot, irecl, preout, nrmout, $ eshout, bkgxmu, bkgchi, bkgrsp, thechi, thersp, chirsp, $ gvknot, vaxflg, macflg, dosflg, unxflg c c flags: logical theory, thefix, eevary, funnrm, final double precision usrtol, emin, emax, e0shft double precision spstep, spfac, theamp, thessq integer nrbkg, nr1st, nvarys, mfit common /flags/ theory, thefix, eevary, funnrm, final common /fit/ nrbkg, nr1st, emin, emax, e0shft, theamp, $ thessq, usrtol, nvarys,mfit, spstep, spfac c# autcom.f} ifeffit-1.2.11d/src/autobk/autnls.f0000644000175000017500000003151310771740456016117 0ustar segresegre subroutine autnls c c this prepares for and calls the canned subroutine lmdif1 c which will solve the unconstrained non-linear least squares c fitting problem. lmdif1 uses a levenberg-marquardt algorithm, c and requires an external subprogram to evaluate the function c to minimize. the subroutine autfun is used to evaluate this c function. c the function allows the ordinates of the breakpoints of c the spline to vary such that when the optimal b-spline (as c discussed in de boor) is put through these breakpoints, and c the chi(r) is found using this spline as the background is c optimized at low-r. c c copyright 1992 university of washington : matt newville c------------------------------------------------------------------ include 'autobk.h' c------------------------------------------------------------------ integer lenwrk, loop, lminfo, isplin, iup, ilo integer iwork(mtknot), ifft, nemin, nemax, nofx, ne0 integer i, nr, ndoc, iend, im, istrln, ntest parameter(lenwrk = 2*maxpts*mtknot + 20*mtknot + 2*maxpts ) character*128 messg , doc(maxdoc), type*10, file*40 double precision work(lenwrk), fvect(2*maxpts), varys(mtknot) double precision esplin(mtknot), bscoef(mtknot) double precision etmp(maxpts), small, anorm(3), toler, tolfac double precision sumsqr double precision e0, delq, efromq, qmn, qmx, qknot double precision e0tst, qmntst, qmxtst, edfmin parameter (small = 1.d-10, tolfac = 1.d-4, edfmin= 100.d0) external autfun, nofx, istrln, sumsqr c----------------------------------------------------------------------- c----initialization for fitting: c -the starting value for the fitting tolerance (1e-5) is empirical. c the user will be allowed to change it, if necessary, with usertl. c (right now usertl is set to 1). c -the fitting is done in single precision. round off is a worry, but c i have not been able to get the variables to change enough with the c double precision version of lmdif1. this should still be explored. c----------------------------------------------------------------------- toler = usrtol * tolfac e0 = ee + e0shft ifft = 1 loop = 0 100 continue lminfo = 0 loop = loop + 1 if (loop.gt.5) then call echo(' autobk warning: completed 5'// $ ' fitting loops without a stable result.') call echo(' something may be wrong'// $ ' with the fitting,') call echo(' and the background may'// $ ' not be reliable.') go to 800 end if c----start fitting: do 120 i = 1, nxmu spline(i) = xmudat(i) 120 continue e0 = ee + e0shft c move emin and emax if e0-shifted emin = emin + e0shft emax = emax + e0shft if (emax.le.emin) emax = energy(nxmu) nemin = nofx(emin,energy,nxmu) nemax = nofx(emax,energy,nxmu) emin = energy(nemin) emax = energy(nemax) c evaluate energies for the spline variables: c - emin and emax are not relative to the edge c - energy contains the input energy values, not relative to the edge. qmin = sqrt(etok* abs(emin - e0 ) ) if (e0.le.emin) qmin = zero qmax = sqrt(etok* (emax - e0 ) ) c c drpair is the spacing between pairs of independent points in r-space if (.not.gvknot) $ nsplin = 2 * int ( rbkg * ( qmax - qmin ) / pi ) + 1 nsplin = min(mtknot-5, max(5,nsplin)) c c initialize energy values through which the first guess for the c spline must go (evenly spaced in q), and get the initial value c for the spline value at this point. we'll also get the initial c guesses for the variables (the b-spline coefficients) from this c initial spline. c delq = (qmax-qmin)/(nsplin - 1) do 300 i = 1, nsplin efromq = e0 + ( qmin + (i-1) * delq) **2 / etok isplin = nofx(efromq,energy,nxmu) esplin(i) = energy(isplin) iup = min(nxmu, isplin + 5) ilo = max(1, isplin - 5) bscoef(i) = (2*spline(isplin) + spline(iup) + spline(ilo))/4 300 continue esplin(nsplin) = one + esplin(nsplin) c the first and last korder knots in the b-spline are nearly degenerate at c the endpoints. spstep sets the spacing between these points. the c default is one -- this may help eliminate "spikes" at the endpoints. c since each knot represents a place where a derivative can break, c having all four of these at one place allows a complete break from c at this point. by moving a few of the knots just off the ends, the c spline is a little bit stiffer at the endpoints. do 310 i = 1, korder eknot(i) = esplin(1) - spstep * (korder-i-1) eknot(nsplin+i) = esplin(nsplin) + spstep * i 310 continue qmn = sqrt( etok* abs(esplin(1) - e0) ) if (e0.lt.esplin(1)) qmn = zero qmx = sqrt( etok* (esplin(nsplin) - e0) ) do 320 i = korder+1, nsplin qknot = (i-korder)*(qmx - qmn)/(nsplin-korder+1) eknot(i) = esplin(1) + qknot**2/etok 320 continue c c determine the knots for the spline: c knots are points at which the spline has extra freedom. cc ntknot = nsplin + korder if ( (korder.lt.3).or.(nsplin.lt.korder) ) then call echo(' autobk error: not enough'// $ ' freedom to create spline.') call echo(' change fitting range, or'// $ ' order of spline') call fstop(' not enough data to make spline') end if c the b-spline coefficients will be the variables in the fit, c the above estimates for the elements of bscoef are good enough c especially when the spline values are smoothed for the initial c guesses in the fit, as below. varys(1) = (3*bscoef(1) + bscoef(2))/ 4 varys(nsplin) = (3*bscoef(nsplin) + bscoef(nsplin-1))/ 4 do 380 i = 2, nsplin-1 varys(i) = (bscoef(i-1) + 2*bscoef(i) + bscoef(i+1) )/4 380 continue nvarys = nsplin c set up window function call window(winstr,windo1,windo2,qmin,qmax,qgrid,maxpts,windo) c if a theory file is used, do its fft now c and add another variable if e0 is to be shifted if (theory) then if (eevary) then nvarys = nvarys + 1 varys(nvarys) = e0shft end if nr = nrpts cc print*, ' theory : ', mftfit call fitfft(thiq, maxpts, mftfit, wfftc, qgrid, $ windo, qweigh, spline, one, ifft, zero, r1st, $ nrpts, thifit) thessq = max(small, sumsqr(thifit(nrbkg),nr1st)) if (nr.ne.nrpts) then call echo(' autnls error: fitfft is broken' ) write(messg,'(a,2i5)') 'nr, nrpts = ', nr, nrpts call echo(' '//messg(:40)) call fstop(' call matt!! autobk fitfft is broken') end if end if c c initialize fvect and work arrays for lmdif1 mfit = nrbkg do 400 i =1, mfit fvect(i) = zero 400 continue do 410 i =1, lenwrk work(i) = zero 410 continue do 420 i =1, mtknot iwork(i) = 0 420 continue c c lmdif1 to do levenberg-marquardt nonlinear least squares if (eevary) then call echo(' autobk: fitting background and e0'// $ ' over the low-r range') else call echo(' autobk: fitting background'// $ ' over the low-r range') end if if (iprint.ge.2) then iend = 0 cc print*, ' call autfun: ', mfit, nvarys, iend cc print*, varys(1), fvect(1), varys(3), fvect(3) call autfun(mfit, nvarys, varys, fvect, iend) type = 'xmu' file = 'spline0.dat' doc(1) = ' autobk: initial spline v. e : before fitting' 500 format (1x,a,i4) 501 format (1x,a) 502 format (1x,i5.2,e14.6,e14.6,1x,i5.2,e14.6,e14.6) 503 format (1x,i5.2,e14.6,e14.6) 504 format (1x,a,f14.6) write (doc(2), 500) ' number of variables = ', nsplin write (doc(3), 504) ' spline_step (spstep)= ', spstep write (doc(4), 501) ' index, esplin, ysplin, '// $ ' index, esplin, ysplin ' ndoc = 4 do 550 i = 1, nsplin, 2 if (i.lt.maxdoc) ndoc = ndoc + 1 if ((i.le.maxdoc).and.(i.eq.nsplin)) then write (doc(ndoc), 503) i , esplin(i) , varys(i) elseif (i.le.maxdoc) then write (doc(ndoc), 502) i , esplin(i) , varys(i) , $ i+1, esplin(i+1), varys(i+1) end if 550 continue call outcol(type, file, asccmt, ndoc, mdocxx, doc, nxmu, $ energy, spline, xmudat, chiq, thiq) end if c c the real fit! call lmdif1 (autfun, mfit, nvarys, varys, fvect, $ toler, lminfo, iwork, work, lenwrk) call autfun(mfit, nvarys, varys, fvect, iend) if ( (lminfo.ge.1).and.(lminfo.le.3) ) then messg = 'fitting is finished.' im = max(1, istrln(messg)) call echo (' '//messg(:im) ) else messg = 'lmdif finished with an error ! ' im = max(1, istrln(messg)) call echo (' '//messg(:im) ) write(messg, '( a, i5)' ) 'error code lminfo = ',lminfo im = max(1, istrln(messg)) call echo (' '//messg(:im) ) call echo (' call matt') end if c if (iprint.ge.2) then file = 'spline.dat' doc(1) = ' autobk: final spline v. e : before fitting' ndoc = 4 do 580 i = 1, nsplin, 2 if (i.lt.maxdoc) ndoc = ndoc + 1 if ((i.le.maxdoc).and.(i.eq.nsplin)) then write (doc(ndoc), 503) i , esplin(i) , varys(i) elseif (i.le.maxdoc) then write (doc(ndoc), 502) i , esplin(i) , varys(i) , $ i+1, esplin(i+1), varys(i+1) end if 580 continue call outcol(type, file, asccmt, ndoc, mdocxx, doc, nxmu, $ energy, spline, xmudat, chiq, thiq) end if c even though the fit was good, if an energy shift was done, the c q values used to determine the number and location of the spline c points were wrong, and so the fit must be re-done. this will be c repeated up to 5 times, or until e0 is stable to within 0.5 ev. e0tst = ee + e0shft qmntst = sqrt(etok* abs(emin - e0tst ) ) qmxtst = sqrt(etok* abs(emax - e0tst ) ) if (e0tst.le.emin) qmntst = zero ntest = 2 * int ( rbkg * abs(qmxtst - qmntst) / pi) + 1 if (gvknot) ntest = nsplin ntest = min(mtknot-5, max(5,ntest)) if (eevary.and.(ntest.ne.nsplin) ) then call echo(' autobk warning: because the'// $ ' energy origin was shifted in ') call echo(' in the fit, kmin'// $ ' and kmax have been redefined') call echo(' so that the number'// $ ' of knots in the spline has') call echo(' changed. the fit '// $ ' will be done again.') go to 100 end if c------------------------------------------------------------------ c finished with fit 800 continue c c now that we have the spline as good as we can get it, let's get an c improved estimate of the edge-step. we should have it pretty close c to one, but now we do a parabolic extrapolation of the background c spline to the edge energy value. this should cover up most c difficulties in getting the edge step from a linear extrapolation c of the absorption data itself. if (stfind.and.(.not.funnrm)) then enor1 = e0 + enor1 enor2 = e0 + enor2 if (enor2.gt.energy(nxmu)) enor2 = energy(nxmu) if (enor1.gt.energy(nxmu)) enor1 = enor2 /2 nnorm = 3 if (abs(enor2 - enor1).le.edfmin) nnorm = 2 call polyft(enor1, enor2, energy, spline,nxmu,nnorm,cnorm) ne0 = nofx(e0, energy, nxmu) step = cnorm(1) + cnorm(2)*energy(ne0) if (nnorm.eq.3) step = step + cnorm(3)*energy(ne0)**2 cnorm(1) = cnorm(1) + bpre cnorm(2) = cnorm(2) + slopre end if c c now redo function evaluation with the final values for everything. do 930 i = 1, nxmu spline(i) = xmudat(i) 930 continue do 940 i = 1, maxpts chiq(i) = zero 940 continue final = .true. call autfun(mfit, nvarys, varys, fvect, iend) c return c end subroutine autnls end ifeffit-1.2.11d/src/autobk/autobk.f0000644000175000017500000000634510771740456016103 0ustar segresegre program autobk c c autobk version 2.92b 07-Dec-2000 c c author Matthew Newville, The University of Chicago c e-mail newville@cars.uchicago.edu c post GSECARS, Bldg 434A c APS, Argonne National Laboratory c Argonne, IL 64309 USA c voice (630) 252-0431 c fax (630) 252-0443 c c further information on this code is available at c http://cars.uchicago.edu/~newville/autobk/ c c --- copyright 1998,1999 matt newville c --- copyright 1995 matt newville, university of washington c c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - c c autobk removes the background of x-ray-absorption fine-structure c data. a spline function is used to approximate the background. c the spline is chosen so that the resulting chi is optimized at c low-r. the optimization minimizes the difference between the c data and a standard chi(r) at low-r. the standard is used to c estimate the leakage form the first shell into the low-r region, c and since this leakage is a small portion of the first shell, the c standard does not need to be an extremely accurate estimate of c the true first shell. the standard chi should be a chi for which c the background is trusted, and can be either a theoretical c calculation or an experimental standard. if no standard chi is c specified, the low-r components of chi(r) will be minimized. c c major revisions (for a complete revision record, contact matt) : c include 'autobk.h' c------------------------------------------------------------------ c local variables character system*10 logical first, domore, dorun integer iinpf, ilogf, ilen, istrln external istrln data first, domore, dorun /.true.,.true.,.true./ data iinpf, ilogf / 2, 4/ data system /'unix'/ c system options: 'unix','vax','dos','mac' call setsys(system,vaxflg,dosflg,macflg,unxflg) call sca_init call echo_init call open_echofile('autobk.run') call fstop_init('autobk.err') c version & date ilen = max(1,istrln(system)) versn = ' autobk: 2.941 10-Jan-2004 ' ilen = istrln(versn) call echo(versn(1:ilen)) c------------------------------------------------------------------ c loop for each different running of program 100 continue c initialize variables in common blocks, open files call autint c read input file call autinp(iinpf, ilogf, first, domore, dorun) if (dorun) then c read in data, subtract pre-edge, reset fitting ranges, etc call autdat c do nonlinear least-square fittings for background, and c possibily e0 and amplitude of theory. call autnls c write out results to log file call autlog(ilogf) c write out data results to data files call autout end if c continue on to next data set if (domore) go to 100 c---------------------------------------------------------------- c finished: close files, and give happy ending message close(iinpf) close(ilogf) call echo( ' autobk is finished.') call echo( ' have a nice day.') call close_echofile() c end main program autobk end ifeffit-1.2.11d/src/autobk/autobk.log0000644000175000017500000000016010771740456016424 0ustar segresegre ----------------------- automatic background removal----------------------- autobk: 2.941 10-Jan-2004 ifeffit-1.2.11d/src/autobk/getcom.f0000644000175000017500000001066210771740456016071 0ustar segresegre subroutine getcom(jinit, line) c c return next "real" command line from input file(s) c - allows use of "include file" or "load file" for reading c from other files, and manages the set of include files c - checks for and ignores comment lines and blank lines. c - opens and closes all input files, including initial file. c c jinit initialization flag [in] c line next command line to parse [in/out] c c notes: c 1. to initialize, set jinit<0 and line= input_file_name. c if line=' ', commands will be read from standard input c (unit 5). c 2. returned line will be sent through triml and untab. c 3. uses routine iscomm to test if line is a comment line. c 4. uses routine openfl to open files (which include automatic c assignment of next available unit number) c 5. special returned values: c 'getcom_end' = done reading all inputs c 'getcom_error'= an error has occurred. the calling routine c should probably stop c 'getcom_nofile'= on initialization, the file named by "line" c could not be found c matt newville march 1997 implicit none integer mwords, ilen, i, jinit, mfil, nfil character*(*) line, stat*10 parameter (mwords=2, mfil=10, stat = 'old') character*128 files(mfil), errmsg, words(mwords) integer iunit(mfil), istrln, nwords, ierr, iex logical iscomm external istrln, iscomm save files, iunit, nfil c if ((jinit.lt.0)) then jinit = 1 do 10 i = 1, mfil iunit(i) = 8 + i files(i) = ' ' 10 continue nfil = 1 files(1) = line call triml(files(1)) if (files(1) .eq. ' ') then iunit(1) = 5 else call openfl(iunit(1), files(1), stat, iex, ierr) if (iex.lt.0) then line = 'getcom_nofile' return elseif (ierr.ne.0) then line = 'getcom_error' return end if end if end if c read next line from current input file 100 continue line = ' ' read(iunit(nfil),'(a)', err =1000, end = 500) line call sclean(line) c c check if command line is 'include filename'. c if so, open that file, and put it in the files stack call untab(line) call triml(line) if (iscomm(line)) go to 100 nwords = mwords words(2) = ' ' call bwords(line, nwords, words) call lower(words(1)) if (((words(1) .eq. 'include').or.(words(1) .eq. 'load')) $ .and. (nwords .gt. 1)) then nfil = nfil + 1 if (nfil .gt. mfil) go to 2000 call getfln(words(2), files(nfil), ierr) if (ierr. ne. 0) go to 2400 c test for recursion: do 400 i = 1, nfil - 1 if (files(nfil) .eq. files(i)) go to 3000 400 continue call openfl(iunit(nfil), files(nfil), stat, iex, ierr) if (iex .lt. 0) go to 2600 if (ierr.lt. 0) go to 2800 go to 100 end if return c c end-of-file for command line file: drop nfil by 1, c return to get another command line 500 continue if (iunit(nfil) .ne. 5) close(iunit(nfil)) iunit(nfil) = 0 files(nfil) = ' ' nfil = nfil - 1 if (nfil.gt.0) go to 100 line = 'getcom_end' return c error messages 1000 continue call echo(' # getcom error: general read error') go to 4500 2000 continue call echo(' # getcom error: too many nested "include"s') write(errmsg, '(1x,a,i3)') ' # current limit is ', mfil ilen = istrln(errmsg) call echo(errmsg(1:ilen)) go to 4500 2400 continue call echo(' # getcom error: cannot determine "include" file') go to 4500 2600 continue call echo(' # getcom error: cannot find "include"d file') go to 4500 2800 continue call echo(' # getcom error: cannot open "include"d file') go to 4500 3000 continue call echo(' # getcom error: recursive "include" of file') go to 4500 4500 continue errmsg = ' # reading file: '//files(nfil) if (files(nfil) .eq. ' ') $ errmsg = ' # reading from standard input' ilen = istrln(errmsg) call echo(errmsg(1:ilen) ) line = 'getcom_error' return c end subroutine getcom end ifeffit-1.2.11d/src/autobk/A0000644000175000017500000000315710771740456014550 0ustar segresegreecho_init__ istrln_ istrln_ echo_ echo_ echo_ bwords_ triml_ istrln_ upper_ echo_ str2in_ triml_ untab_ triml_ smcase_ istrln_ bwords_ sclean_ triml_ sclean_ sclean_ isdat_ isdat_ bwords_ triml_ smcase_ triml_ istrln_ triml_ istrln_ istrln_ cffti_ triml_ istrln_ istrln_ istrln_ istrln_ istrln_ str2dp_ str2dp_ str2lg_ str2dp_ str2dp_ str2dp_ str2dp_ str2dp_ str2in_ str2dp_ str2lg_ str2lg_ str2lg_ str2in_ istrln_ istrln_ istrln_ echo_ istrln_ echo_ istrln_ echo_ istrln_ echo_ triml_ istrln_ echo_ echo_ echo_ triml_ openfl_ sclean_ untab_ triml_ bwords_ lower_ echo_ istrln_ getfln_ openfl_ echo_ istrln_ echo_ echo_ preedg_ lintrp_ nofx_ nofx_ echo_ echo_ triml_ upper_ triml_ upper_ triml_ smcase_ smcase_ echo_ istrln_ echo_ echo_ echo_ echo_ upper_ echo_ istrln_ echo_ istrln_ echo_ openfl_ sclean_ triml_ sclean_ triml_ isdat_ istrln_ sclean_ untab_ bwords_ str2dp_ pijump_ echo_ echo_ echo_ upper_ upper_ triml_ triml_ triml_ istrln_ upper_ echo_ echo_ echo_ echo_ upper_ echo_ echo_ echo_ echo_ echo_ smcase_ pijump_ echo_ echo_ upper_ triml_ triml_ smcase_ echo_ triml_ smcase_ triml_ istrln_ openfl_ triml_ istrln_ pijump_ istrln_ istrln_ echo_ upper_ triml_ istrln_ upper_ triml_ istrln_ echo_ echo_ upper_ echo_ echo_ echo_ pijump_ smcase_ echo_ echo_ smcase_ triml_ istrln_ upper_ echo_ echo_ echo_ nofx_ nofx_ nofx_ echo_ echo_ window_ fitfft_ sumsqr_ echo_ echo_ echo_ echo_ lmdif1_ istrln_ istrln_ echo_ istrln_ echo_ echo_ echo_ echo_ echo_ polyft_ nofx_ bvalue_ lintrp_ qintrp_ fitfft_ sumsqr_ cffti_ smcase_ istrln_ istrln_ istrln_ istrln_ istrln_ triml_ echo_ echo_ echo_ echo_ lintrp_ echo_ triml_ echo_ echo_ echo_ xafsft_ ifeffit-1.2.11d/src/autobk/misc_file.f0000644000175000017500000000634510771740456016550 0ustar segresegre subroutine filrec(string,filnam,skey,nkey) c c takes a character string and reads from it a filename, and an c skey and/or nkey for a record. blanks, commas, or equal signs can c separate the inputs on the command line. c character*100 temp, words(3) character*(*) string , filnam , skey c nkey = 0 skey = ' ' nwords = 3 call bwords(string,nwords,words) c---- first word is filename filnam = words(1) nwords = nwords - 1 c---- second word is nkey or skey temp = words(2) c---- determine if second//third word is nkey/skey c skeys are exactly 5 characters long, c nkeys are never more than 3 characters long 50 continue nwords = nwords - 1 call triml(temp) ilen = istrln(temp) if(ilen.eq.5) then skey = temp call upper(skey) elseif(ilen.eq.4) then call fstop('error reading skey or nkey from '//temp) else call str2in(temp, nkey, ierr) end if c---- the third word, if it exists if (nwords.eq.1) then temp = words(3) call triml(temp) go to 50 end if 1000 return c end subroutine filrec end subroutine fixstr(string,str,ilen,words,wrdsor,mwords,nwords) c simple preparation of string for reading of keywords integer ilen, mwords, nwords, i, lenp1 integer iexcla, iperct, ihash, ieolc, istrln character*(*) string, str, words(mwords), wrdsor(mwords) c c fix-up string: untab, left-justify, make a lower-case version nwords = 0 call untab(string) str = string call triml(str) call smcase( str, 'case') c remove comments from str: c '!', '#', and '%' are end of line comments c '*' is a complete comment line if in col 1 lenp1 = len(str) + 1 iexcla = index(str,'!') if (iexcla.eq.0) iexcla = lenp1 iperct = index(str,'%') if (iperct.eq.0) iperct = lenp1 ihash = index(str,'#') if (ihash.eq.0) ihash = lenp1 ieolc = min(iperct,iexcla,ihash) - 1 if ((ieolc.lt.1).or.(str(1:1).eq.'*')) ieolc = 1 str = str(1:ieolc) ilen = max(1, istrln(str)) if (ilen.le.2) return c break string into words (up to mwords) c words is in lower case, wrdsor is in original case do 120 i = 1, mwords words(i) = ' ' wrdsor(i) = ' ' 120 continue nwords = mwords call bwords(str , nwords, words) call bwords(string, nwords, wrdsor) c end subroutine fixstr return end integer function nxtunt(iunit) c return next available unit number, greater than or equal to iunit. c will not return unit number less than 1, or equal to 5 or 6. integer iunit logical open nxtunt = max(1, iunit) 10 continue inquire (unit=nxtunt, opened=open) if (open) then nxtunt = nxtunt + 1 if ((nxtunt.eq.5).or.(nxtunt.eq.6)) nxtunt = 7 goto 10 endif return c end integer function nxtunt end logical function iscomm(str) c true if str is a comment line or blank line, false otherwise character*(*) str iscomm = ((str.eq.' ') .or. (index('*%#',str(1:1)).ne.0)) return end ifeffit-1.2.11d/src/autobk/Makefile.in0000644000175000017500000002061510771740456016510 0ustar segresegre# Makefile.in generated automatically by automake 1.4 from Makefile.am # Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. # Copyright (C) 2000 Matt Newville # # This file is free software; as a special exception the author gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY, to the extent permitted by law; without even the # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. SHELL = @SHELL@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ sbindir = @sbindir@ libexecdir = @libexecdir@ datadir = @datadir@ sysconfdir = @sysconfdir@ sharedstatedir = @sharedstatedir@ localstatedir = @localstatedir@ libdir = @libdir@ infodir = @infodir@ mandir = @mandir@ includedir = @includedir@ oldincludedir = /usr/include DESTDIR = pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = ../.. ACLOCAL = @ACLOCAL@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS) INSTALL_DATA = @INSTALL_DATA@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ transform = @program_transform_name@ NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : host_alias = @host_alias@ host_triplet = @host@ CC = @CC@ CPP = @CPP@ CXX = @CXX@ CXXCPP = @CXXCPP@ F2C = @F2C@ F2CFLAGS = @F2CFLAGS@ F77 = @F77@ FFLAGS = @FFLAGS@ FLIBS = @FLIBS@ MN_FLIBS = @MN_FLIBS@ MAKEINFO = @MAKEINFO@ NM = @NM@ PACKAGE = @PACKAGE@ RANLIB = @RANLIB@ VERSION = @VERSION@ canonical_host_type = @canonical_host_type@ bin_PROGRAMS = autobk autobk_SOURCES = autobk.f misc_file.f setsys.f autint.f autinp.f \ getcom.f autdat.f autnls.f autfun.f autlog.f autout.f autobk.h autobk_OBJECTS = autobk.o misc_file.o setsys.o autint.o autinp.o \ getcom.o autdat.o autnls.o autfun.o autlog.o autout.o autobk_LDADD = ../lib/libxafs.a $(MN_FLIBS) autobk_DEPENDENCIES = ../lib/libxafs.a autobk_LDFLAGS = mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs CONFIG_HEADER = ../../config.h CONFIG_CLEAN_FILES = PROGRAMS = $(bin_PROGRAMS) DEFS = @DEFS@ -I. -I$(srcdir) -I../.. CPPFLAGS = @CPPFLAGS@ LDFLAGS = @LDFLAGS@ LIBS = @LIBS@ F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS) F77LD = $(F77) F77LINK = $(F77LD) $(AM_FFLAGS) $(FFLAGS) $(LDFLAGS) -o $@ CFLAGS = @CFLAGS@ COMPILE = $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(LDFLAGS) -o $@ DIST_COMMON = Makefile.in DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) TAR = gtar GZIP_ENV = --best SOURCES = $(autobk_SOURCES) OBJECTS = $(autobk_OBJECTS) all: all-redirect .SUFFIXES: .SUFFIXES: .S .c .f .o .s Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status $(BUILT_SOURCES) cd $(top_builddir) \ && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status mostlyclean-binPROGRAMS: clean-binPROGRAMS: -test -z "$(bin_PROGRAMS)" || rm -f $(bin_PROGRAMS) distclean-binPROGRAMS: maintainer-clean-binPROGRAMS: install-binPROGRAMS: $(bin_PROGRAMS) @$(NORMAL_INSTALL) $(mkinstalldirs) $(DESTDIR)$(bindir) @list='$(bin_PROGRAMS)'; for p in $$list; do \ if test -f $$p; then \ echo " $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`"; \ $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`; \ else :; fi; \ done uninstall-binPROGRAMS: @$(NORMAL_UNINSTALL) list='$(bin_PROGRAMS)'; for p in $$list; do \ rm -f $(DESTDIR)$(bindir)/`echo $$p|sed 's/$(EXEEXT)$$//'|sed '$(transform)'|sed 's/$$/$(EXEEXT)/'`; \ done .s.o: $(COMPILE) -c $< .S.o: $(COMPILE) -c $< mostlyclean-compile: -rm -f *.o core *.core clean-compile: distclean-compile: -rm -f *.tab.c maintainer-clean-compile: autobk: $(autobk_OBJECTS) $(autobk_DEPENDENCIES) @rm -f autobk $(F77LINK) $(autobk_LDFLAGS) $(autobk_OBJECTS) $(autobk_LDADD) $(LIBS) .f.o: $(F77COMPILE) -c $< tags: TAGS ID: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ here=`pwd` && cd $(srcdir) \ && mkid -f$$here/ID $$unique $(LISP) TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) $(LISP) tags=; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \ || (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags $$unique $(LISP) -o $$here/TAGS) mostlyclean-tags: clean-tags: distclean-tags: -rm -f TAGS ID maintainer-clean-tags: distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir) subdir = src/autobk distdir: $(DISTFILES) here=`cd $(top_builddir) && pwd`; \ top_distdir=`cd $(top_distdir) && pwd`; \ distdir=`cd $(distdir) && pwd`; \ @for file in $(DISTFILES); do \ d=$(srcdir); \ if test -d $$d/$$file; then \ cp -pr $$/$$file $(distdir)/$$file; \ else \ test -f $(distdir)/$$file \ || ln $$d/$$file $(distdir)/$$file 2> /dev/null \ || cp -p $$d/$$file $(distdir)/$$file || :; \ fi; \ done # DEPS_MAGIC := $(shell mkdir .deps > /dev/null 2>&1 || :) # -include $(DEP_FILES) mostlyclean-depend: clean-depend: distclean-depend: maintainer-clean-depend: %.o: %.c $(COMPILE) -c $< info-am: info: info-am dvi-am: dvi: dvi-am check-am: all-am check: check-am installcheck-am: installcheck: installcheck-am install-exec-am: install-binPROGRAMS install-exec: install-exec-am install-data-am: install-data: install-data-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am install: install-am uninstall-am: uninstall-binPROGRAMS uninstall: uninstall-am all-am: Makefile $(PROGRAMS) all-redirect: all-am install-strip: $(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install installdirs: $(mkinstalldirs) $(DESTDIR)$(bindir) mostlyclean-generic: clean-generic: distclean-generic: -rm -f Makefile $(CONFIG_CLEAN_FILES) -rm -f config.cache config.log stamp-h stamp-h[0-9]* maintainer-clean-generic: mostlyclean-am: mostlyclean-binPROGRAMS mostlyclean-compile \ mostlyclean-tags mostlyclean-depend mostlyclean-generic mostlyclean: mostlyclean-am clean-am: clean-binPROGRAMS clean-compile clean-tags clean-depend \ clean-generic mostlyclean-am clean: clean-am distclean-am: distclean-binPROGRAMS distclean-compile distclean-tags \ distclean-depend distclean-generic clean-am distclean: distclean-am maintainer-clean-am: maintainer-clean-binPROGRAMS \ maintainer-clean-compile maintainer-clean-tags \ maintainer-clean-depend maintainer-clean-generic \ distclean-am @echo "This command is intended for maintainers to use;" @echo "it deletes files that may require special tools to rebuild." maintainer-clean: maintainer-clean-am .PHONY: mostlyclean-binPROGRAMS distclean-binPROGRAMS clean-binPROGRAMS \ maintainer-clean-binPROGRAMS uninstall-binPROGRAMS install-binPROGRAMS \ mostlyclean-compile distclean-compile clean-compile \ maintainer-clean-compile tags mostlyclean-tags distclean-tags \ clean-tags maintainer-clean-tags distdir mostlyclean-depend \ distclean-depend clean-depend maintainer-clean-depend info-am info \ dvi-am dvi check check-am installcheck-am installcheck install-exec-am \ install-exec install-data-am install-data install-am install \ uninstall-am uninstall all-redirect all-am all installdirs \ mostlyclean-generic distclean-generic clean-generic \ maintainer-clean-generic clean mostlyclean distclean maintainer-clean # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: ifeffit-1.2.11d/src/autobk/f2c-main.c0000644000175000017500000000027710771740456016205 0ustar segresegre#ifdef __cplusplus extern "C" { #endif #if defined (sun) int MAIN_ () { return 0; } #elif defined (linux) && defined(__ELF__) int MAIN__ () { return 0; } #endif #ifdef __cplusplus } #endif ifeffit-1.2.11d/src/autobk/setsys.f0000644000175000017500000000154010771740456016140 0ustar segresegre subroutine setsys(system,vaxflg,dosflg,macflg,unxflg) c simple way of setting flags, describing the operating system used. c rather than setting all flags by hand, this uses a single string c and ensures that only one flag is on character*(*) system, sys*3 logical vaxflg,dosflg,macflg,unxflg vaxflg = .false. unxflg = .false. dosflg = .false. macflg = .false. call triml(system) call smcase(system,'a') sys = system(:3) if ((sys.eq.'vax').or.(sys.eq.'vms')) then vaxflg = .true. system = sys elseif (sys.eq.'mac') then macflg = .true. system = sys elseif (sys.eq.'dos') then dosflg = .true. system = sys else system = 'unix' unxflg = .true. endif return end ifeffit-1.2.11d/src/autobk/autout.f0000644000175000017500000002631710771740456016140 0ustar segresegre subroutine autout c c matt: add preout to write pre-edge subtracted xmu and bkg c data outputs for autobk: c uses the routine outdat to write to uwexafs c or column files, as given by frmout. c c copyright 1992 university of washington : matt newville c-------------------------------------------------------------------- include 'autobk.h' c-------------------------------------------------------------------- c local variables integer istrln, ix, i, it, ixf integer iskxm, iskth, ndoc, jnew, nkyout, ipos, iexist double precision e0, qlast, q1st double precision rmin, energ, q, rlast, outstp double precision tmp1(maxpts), tmp2(maxpts), tmp3(maxpts) double precision enout(maxpts), tmp4(maxpts) character*128 outdoc(maxdoc) character*128 outksp, outrsp, outbkg, outpre character*10 skyksp, skyrsp, skybkg, skypre, ftype logical chiksp data chiksp , iexist , rmin/.true., 1 , zero / c-------------------------------------------------------------------- cc print*,'entered autout' c get some preliminary stuff it = 1 rlast = 10.d0 e0 = ee + e0shft qlast = qgrid * (int(sqrt((emax - e0)*etok) / qgrid ) - 1 ) nqpts = int ( qlast / qgrid ) q1st = min(qgrid,qmin) mftfit = 2048 call cffti(mftfit, wfftc) c c determine output format if (frmout.eq.' ') then if (frminp.eq.' ') frminp = 'ascii' frmout = frminp end if call smcase(frmout, 'a') c----output file names: iodot was found in autinp if (frmout(1:2).eq.'uw') then outksp = chif(1:iodot)//'.chi' outbkg = chif(1:iodot)//'.bkg' outrsp = chif(1:iodot)//'.rsp' outpre = chif(1:iodot)//'.xmu' else outpre = chif(1:iodot)//'e.xmu' outbkg = chif(1:iodot)//'e.bkg' outksp = chif(1:iodot)//'k.chi' outrsp = chif(1:iodot)//'r.chi' end if ix = max(1, istrln(outksp)) do 80 i = 1, maxpts tmp1(i) = zero tmp2(i) = zero tmp3(i) = zero tmp4(i) = zero 80 continue if (eshout) then do 90 i = 1, maxpts enout(i) = energy(i) - e0 90 continue else do 95 i = 1, maxpts enout(i) = energy(i) 95 continue end if c write documentaion for data and background write(outdoc(1), 9000) 'data : ', commnt(1:65) iskxm = max(1, istrln(skeyxm)) iskth = max(1, istrln(skeyth)) ixf = min(74, max(1, istrln(xmuf))) write(outdoc(2), 9005) skeyxm(1:iskxm), xmuf(1:ixf) if (theory) then it = min(74, max(1, istrln(theorf))) write(outdoc(3), 9010) skeyth(1:iskth), theorf(1:it) else outdoc(3) = ' using simple minimization ' end if c pre-edge info write(outdoc(4), 9020) e0, predg1, predg2, step c fourier window type if (iwindo.eq.1) then write(outdoc(5), 9030) qmin, qmax, qweigh, $ '; hanning fraction =', windo1 elseif (iwindo.eq.2) then write(outdoc(5), 9030) qmin, qmax, qweigh, $ '; gaussian dk =', windo1 elseif (iwindo.eq.3) then write(outdoc(5), 9030) qmin, qmax, qweigh, $ '; lorentzian dk =', windo1 elseif (iwindo.eq.4) then write(outdoc(5), 9035) qmin, qmax, qweigh, $ '; parzen dk1, dk2 =', windo1, windo2 elseif (iwindo.eq.5) then write(outdoc(5), 9035) qmin, qmax, qweigh, $ '; welch dk1, dk2 =', windo1, windo2 else write(outdoc(5), 9035) qmin, qmax, qweigh, $ '; sills dk1, dk2 =', windo1, windo2 end if c if (theory) then write(outdoc(6), 9040) rmin,rbkg,rbkg,r1st,nsplin else write(outdoc(6), 9045) rmin,rbkg,nsplin end if c--add previous document at end ndoc = 6 jnew = 0 150 continue jnew = jnew + 1 if (jnew.gt.maxdoc) go to 155 call triml(xmudoc(jnew)) if ( (ndoc.lt.19).and.(xmudoc(jnew).ne.' ') ) then ndoc = ndoc + 1 outdoc(ndoc) = xmudoc(jnew) go to 150 end if 155 continue c print*,' outdoc(5)(1:20)=',outdoc(5)(1:20) c----write out pre-edge subtracted xmu(e) (if preout = t) outstp = one if (preout) then if (nrmout) outstp = step outdoc(2)(1:3) = 'xmu' ftype = 'xmu' do 300 i = 1, nxmu tmp1(i) = xmudat(i) / outstp 300 continue call outdat( ftype, frmout, outpre, vaxflg, asccmt, skypre, $ nkyout, irecl, ndoc, mdocxx, outdoc, nxmu , enout, $ tmp1, tmp2, tmp3, tmp4, iexist) if (skypre.ne.' ') then call echo(' pre-edge subtracted xmu(e)'// $ ' written to: '// outpre(1:ix) ) else call echo(' pre-edge subtracted xmu(e)'// $ ' already in: '// outpre(1:ix) ) end if outdoc(2)(1:3) = 'chi' end if c----write out chi(k) and chi(r) for data : skyrsp = ' ' skyksp = ' ' call chiout(chiq, outksp, outrsp, frmout, vaxflg, $ chiksp, chirsp, irecl, ndoc, outdoc, q1st, $ qlast, qgrid, qweigh, windo, wfftc, mftfit, $ rlast, asccmt, mdocxx, iexist, skyksp, skyrsp) if (skyksp.ne.' ') then call echo(' chi(k) for data written to: '// $ outksp(1:ix) ) else call echo(' chi(k) for data already in: '// $ outksp(1:ix) ) end if if (skyrsp.ne.' ') then call echo(' chi(R) for data written to: '// $ outrsp(1:ix) ) elseif (chirsp) then call echo(' chi(R) for data already in: '// $ outrsp(1:ix) ) end if c----write out background(e) if (bkgxmu) then write(outdoc(1), 9000) 'bckgrd: ', commnt(1:65) outdoc(2)(1:3) = 'bkg' ftype = 'xmu' c c decide if pre-edge should be undone or not if (preout) then do 400 i = 1, nxmu tmp1(i) = spline(i) / outstp 400 continue else do 405 i = 1, nxmu tmp1(i) = spline(i) + bpre + slopre*energy(i) 405 continue endif call outdat( ftype, frmout, outbkg, vaxflg, asccmt, skybkg, $ nkyout, irecl, ndoc, mdocxx, outdoc, nxmu , enout, $ tmp1, tmp2, tmp3, tmp4, iexist) if (skybkg.ne.' ') then call echo(' background(e) written to: '// $ outbkg(1:ix) ) else call echo(' background(e) already in: '// $ outbkg(1:ix) ) end if end if c----write out background(k) if (bkgchi) then write(outdoc(1), 9000) 'bckgrd: ', commnt(1:65) do 480 i = 1, nxmu energ = energy(i) - e0 if (energ.lt.0) then tmp3(i) = - sqrt( - etok*energ) else tmp3(i) = sqrt( etok*energ) end if 480 continue c write background(k) to temporary file, write it out ipos = 1 do 500 i = 1, nqpts+10 q = (i-1)*qgrid if ((q.ge.q1st).and.(q.le.qlast)) then call lintrp(tmp3, spline, nxmu, q, ipos, tmp4(i) ) else tmp4(i) = zero end if 500 continue c file name if (frmout(1:2).ne.'uw') then outksp = chif(1:iodot)//'k.bkg' outrsp = chif(1:iodot)//'r.bkg' end if skyksp = ' ' call chiout(tmp4, outksp, outrsp, frmout, vaxflg, $ bkgchi, bkgrsp, irecl, ndoc, outdoc, q1st, $ qlast, qgrid, qweigh, windo, wfftc, mftfit, $ rlast, asccmt, mdocxx, iexist, skyksp, skyrsp) if (skyksp.ne.' ') then call echo(' background(k) written to: '// $ outksp(1:ix) ) else call echo(' background(k) already in: '// $ outksp(1:ix) ) end if end if c----documents for theoretical standard if ( theory.and.(thersp.or.thechi)) then write(outdoc(1), 9000) 'theory: ', commnt(1:65) write(outdoc(2), 9100) skeyxm(1:iskxm), xmuf(1:ixf) write(outdoc(3), 9110) skeyth(1:iskth), theorf(1:it) write(outdoc(4), 9120) rbkg, r1st, theamp c-- add previous document at end ndoc = 4 jnew = 0 610 continue jnew = jnew + 1 if (jnew.gt.maxdoc) go to 615 call triml(thedoc(jnew)) if ( (ndoc.lt.19).and.(thedoc(jnew).ne.' ') ) then ndoc = ndoc + 1 outdoc(ndoc) = thedoc(jnew) go to 610 end if 615 continue if (ndoc.le.19) then do 620 i = ndoc, 19 outdoc(i) = ' ' 620 continue end if c----evaluate chi(k) for theory do 700 i = 1, maxpts q = i*qgrid tmp3(i) = theamp*thiq(i) tmp4(i) = zero 700 continue c----write out chi(k) and chi(r) for theory c file name if (frmout(1:2).ne.'uw') then outksp = chif(1:iodot)//'k.stn' outrsp = chif(1:iodot)//'r.stn' end if skyksp = ' ' skyrsp = ' ' call chiout(tmp3, outksp, outrsp, frmout, vaxflg, $ thechi, thersp, irecl, ndoc, outdoc, q1st, $ qlast, qgrid, qweigh, windo, wfftc, mftfit, $ rlast, asccmt, mdocxx, iexist, skyksp, skyrsp) if (skyksp.ne.' ') then call echo(' chi(k) for theory written to: '// $ outksp(1:ix) ) else call echo(' chi(k) for theory already in: '// $ outksp(1:ix) ) end if if (skyrsp.ne.' ') then call echo(' chi(R) for theory written to: '// $ outrsp(1:ix) ) elseif (thersp) then call echo(' chi(R) for theory already in: '// $ outrsp(1:ix) ) end if end if c----all done call echo(' ----------------------------------'// $ '----------------------------------') return c format statements 9000 format(2a) 9005 format('chi: from skey ',a,' of ',a) 9010 format(' using skey ',a,' of ',a) 9020 format(' e0 =',f9.2,'; pre-edge range =[', 2f8.1, $ ']; edge step =', f7.3 ) 9030 format(' k range =[',2f6.2,']; k weight =',f6.2,a20,f5.3) 9035 format(' k range=[',2f6.2,']; k weight=',f6.2,a20,2f6.2) 9040 format(' bkg r =[',2f6.2,']; 1st shell r =[',2f6.2,']; ', $ i3, ' knots in spline') 9045 format(' bkg r =[',2f6.2,']; ',i3,' knots in spline') 9100 format('chi: from skey ',a,' of ',a) 9110 format(' using skey ',a,' of ',a) 9120 format('1st shell fit range=[',2f6.2,'] => amp-scale =',f8.5) c end subroutine autout end ifeffit-1.2.11d/src/autobk/autfun.f0000644000175000017500000001010110771740456016101 0ustar segresegre subroutine autfun(mf,nx,xv,ffit,iend) c c evaluate a function for lmdif1, a non-linear least squares c levenburg-marquardt algorithm. c c evaluate the difference between the fft of the theory and the c post-background-subtraction chi data for changing b-spline c coefficients. c c xv(1) to xv(nsplin) are the b-spline coefficients c c also allow e0 shift of the data and modification of c theory by overall amplitude and s02. c c copyright 1992 university of washington : matt newville c include 'autobk.h' integer ifft, nx, mf, iend, nvtmp, i integer nqmin, nqmax, nmaxx, ipos double precision small, half, widmin, bvalue, sumsqr parameter (half = 0.5d0, small = 1.d-10, widmin = 0.5d0) parameter (ifft = 1) double precision xv(nx), ffit(mf), qtmp(maxpts), chie(maxpts) double precision chifit(maxpts), qtt, e0 external bvalue, sumsqr c if (nx.ne.nvarys) iend = 1 if (mf.ne.mfit) iend = 2 nvtmp = nvarys c c unwrap list of possible variables: c the last on the list from autnls is the first off if (theory.and.eevary) then e0shft = xv(nvtmp) nvtmp = nvtmp - 1 end if if (nvtmp.ne.nsplin) iend = 3 c c do e0 shifting to temporary q-array for interpolation, c evaluate the spline and normalize to get chie c normalize e0 = ee + e0shft cc print*, ' -------------------' cc print*, ' nvarys = ', nx, nvarys, mf cc print*, ' varys = ', xv(1), xv(2), xv(3), xv(4), xv(5) do 200 i = 1, nxmu qtmp(i) = sqrt(etok * abs(energy(i)-e0) ) if (energy(i).lt.e0) qtmp(i) = - qtmp(i) if ( (energy(i).le.emax).and.(energy(i).ge.emin) ) then spline(i) = bvalue(eknot,xv,nsplin,korder,energy(i),0) chie(i) = ( xmudat(i) - spline(i) ) / step if (funnrm) $ chie(i) = ( xmudat(i) /max(spline(i), small)) - one else chie(i) = zero end if 200 continue c get qmax and qmin from the energy values nqmin = int( sqrt( etok* abs(emin - e0) ) / qgrid ) nqmax = int( sqrt( etok* abs(emax - e0) ) / qgrid ) if ((emin.lt.e0).or.(nqmin.lt.1)) nqmin = 1 c interpolate chiq to q grid, evaluate chiq, the data chi nmaxx = min(maxpts, nqmax + 20) ipos = 1 cc print*, ' autfun ', nqmax, nmaxx, nqmin, emin, emax, nterp do 300 i = 1, nmaxx if ( (i.lt.nqmin).or.(i.gt.nqmax) ) then chiq(i) = zero else qtt = (i-1) * qgrid if (final) then if (nterp.eq.1) then call lintrp(qtmp, chie, nxmu, qtt, ipos, chiq(i)) else call qintrp(qtmp, chie, nxmu, qtt, ipos, chiq(i)) end if else call qintrp(qtmp, chie, nxmu, qtt, ipos, chiq(i) ) end if end if 300 continue c get real and imaginary parts of the fft of data chiq cc print*, 'autfun qgrid = ', qgrid, r1st, ifft, nrbkg, theamp call fitfft(chiq, maxpts, mftfit, wfftc, qgrid, $ windo, qweigh, windo, one, ifft, zero, r1st, $ nrpts, chifit) cc print*, ' mpts: = ', mftfit, maxpts, nrpts c c find amplitude scale for theory so that it matches the c data over the first shell. this sets theamp to the ratio c of the power-spectral-densities of the first shell xafs for c the theory and data chiq. if (.not.thefix) theamp = sumsqr(chifit(nrbkg),nr1st) / $ thessq c there are nrbkg points in the low-r region c there are nr1st points in the first shell region c there are nrpts points total c add r-weighting to bkg removal. c note that rwgt is converted to integer, and that the real and c imaginary portions are weighted equally by using integer arithmetic. cc print*, chifit(1), chifit(7), chifit(17), chifit(22) do 550 i = 1, nrbkg ffit(i) = chifit(i) - thifit(i) * theamp 550 continue return c end subroutine autfun end ifeffit-1.2.11d/src/autobk/autint.f0000644000175000017500000000447410771740456016123 0ustar segresegre subroutine autint c c initialize arrays in common blocks for autobk c----------------------------------------------------------------------- include 'autobk.h' integer i c common block char c note : versn initialized in main program (easier maintainence) xmuf = ' ' skeyxm = ' ' theorf = ' ' skeyth = ' ' chif = ' ' commnt = ' ' asccmt = '# ' if (vaxflg) asccmt = '##' frminp = ' ' frmout = ' ' do 40 i = 1, maxdoc xmudoc(i) = ' ' thedoc(i) = ' ' 40 continue c c common block data nxmu = maxpts imucol = 2 mdocxx = 0 iodot = 1 ntheor = maxpts nsplin = 0 nkeyxm = 0 nkeyth = 0 do 100 i = 1, maxpts energy(i) = zero xmudat(i) = zero spline(i) = zero chiq(i) = zero thiq(i) = zero windo(i) = zero 100 continue do 120 i = 1, mtknot eknot(i) = zero 120 continue c c common block edge eefind = .true. stfind = .true. ee = zero predg1 = -50. predg2 = -200. slopre = zero bpre = zero enor1 = 100. enor2 = 300. step = zero nnorm = 3 nterp = 1 c c common block fft winstr = 'hanning' iwindo = 0 nqpts = 0 nrpts = 0 qweigh = one qmin = zero qmax = zero windo1 = zero windo2 = zero rbkg = one r1st = rbkg + 2 * one c c common block ino c note : vaxflg initialized in main program (easier maintainence) preout = .false. nrmout = .true. eshout = .false. bkgxmu = .true. bkgchi = .false. bkgrsp = .false. thechi = .false. thersp = .false. chirsp = .false. gvknot = .false. iprint = 0 c c common block fit theory = .false. thefix = .false. eevary = .true. funnrm = .false. final = .false. nrbkg = 0 nr1st = 0 emin = zero emax = zero e0shft = zero theamp = one thessq = one usrtol = one spstep = one c return c end subroutine autint end ifeffit-1.2.11d/src/autobk/autinp.f0000644000175000017500000003505110771740456016112 0ustar segresegre subroutine autinp(iinp, ilog, first, domore, dorun) c c read inputs for the autobk program. c the input parameters are read using keywords from the input c given by iounit. the xmu data file is opened, the pre-edge c is removed, and the standard chi data (if used) is read. the c routine inpdat is used for all data files, allowing either c uwexafs or ascii column data. c c notes c 1. the case as the word "case" at the top of the routine sets c the case of all character strings in this routine. be careful c when editing this file. c c copyright 1992 university of washington : matt newville c----------------------------------------------------------------------- include 'autobk.h' c----------------------------------------------------------------------- c local variables integer mfil, iinp, nline, ilen, istrln, nwords integer ilog, idot, maxwrd parameter (mfil = 10, maxwrd = 20) integer i, iwrds, i2, ix, i3, jinit integer ierr, ier, iw, is, iii, ii, iargc character*128 str, string, strdat, messg, logfil, stat*10 character*128 keywrd, words(maxwrd), wrdsor(maxwrd), key*3 logical domore, dorun, errskp, first, exist external istrln, iargc c--------------------------------------------------------------------- c initialize local variables domore = .false. dorun = .false. jinit = 1 nline = 1 c c if first time through, find a version of the input file c and open it: check upper and lower case if (first) then jinit = -1 exist = .false. ier = 0 stat = 'old' call get_inpfile('autobk.inp',string,ier) cc if (macflg) then c#mac c# the following code can be used with the LS Fortran Compiler c# thanks to boyan boyanov for this code cc open(unit=iinp,file=*,status='old',iostat=ier) cc if (ier.ne.0) then cc call AlertBox('File selection was canceled!') cc go to 1010 cc end if cc call f_setvolume(jvrefnum(iinp)) cc call f_creator('ttxt') cccc this resets fname to the name of the opened file. this may be useful cccc for computing output file names, etc. cc inquire(unit=iinp,name=string,iostat=ier) cc if (ier.ne.0) string='autobk.inp' c#mac cc end if c now open log file stat = 'unknown' logfil = 'autobk.log' if (string.ne.'autobk.inp') then call triml(string) idot = max(1,istrln(string)) if (index(string(1:idot),'.').ne.0) then 15 continue if (index(string(idot:idot),'.').eq.0) then idot = idot - 1 go to 15 end if end if logfil = string(1:idot) //'log' end if open(unit=ilog, file=logfil, status=stat, err=1020) write(ilog,'(2x,2a)') ' ----------------------- automatic', $ ' background removal-----------------------' ilen = max(1, istrln(versn)) write(ilog,'(2x,a)') versn(1:ilen) c initialize wfftc array if this the first time through. c this array will remain unchanged throughout the running c of the program. note that mftfit = 1024 implies that c k cannot be larger than 51.2 A^-1, and that the spacing c between points in r-space will be 0.061A c cc mftfit = 1024 mftfit = 2048 call cffti(mftfit, wfftc) first = .false. end if c c c----------------------------------------------------------------------- c read inputs from command file with keywords c----------------------------------------------------------------------- c autobk.inp has already been opened as unit #1 180 format(a) 200 continue errskp = .false. str = ' ' keywrd = ' ' key = ' ' call getcom(jinit,string) call fixstr(string,str,ilen,words,wrdsor,maxwrd,nwords) if (ilen.lt.2) go to 200 nline = nline + 1 c c if line of minus signs is read, suspend reading of input file c until next data set if ((str.eq.'getcom_end').or.(str(2:5).eq.'----')) go to 500 if (str.eq.'getcom_nofile') go to 1000 if (str.eq.'getcom_error') go to 1030 c c interpret current words 300 continue if (nwords.le.0) go to 200 keywrd = words(1) key = keywrd(1:3) iwrds = 2 c c----read keywrd and get the right value if ( (key.eq.'tit').or.(key.eq.'com') ) then call triml(wrdsor(2)) if (wrdsor(2).ne.' ') then i2 = max(1, istrln(wrdsor(2))) ix = index( string,wrdsor(2)(:i2) ) commnt = string(ix:) end if go to 200 elseif ( (keywrd.eq.'data').or.(keywrd.eq.'xmu') ) then i2 = max(1, istrln(wrdsor(2))) errskp = .true. if (nwords.ge.3) then i3 = max(1, istrln(wrdsor(3))) strdat = wrdsor(2)(:i2+2)//wrdsor(3)(:i3) call filrec(strdat, xmuf, skeyxm, nkeyxm) else xmuf = wrdsor(2) nkeyxm = 0 skeyxm = ' ' end if dorun = .true. elseif( (keywrd(1:4).eq.'theo') $ .or.(keywrd(1:4).eq.'stan') ) then i2 = max(1, istrln(wrdsor(2))) errskp = .true. theory = .true. if (nwords.ge.3) then i3 = max(1, istrln(wrdsor(3))) strdat = wrdsor(2)(:i2+2)//wrdsor(3)(:i3) call filrec(strdat, theorf, skeyth, nkeyth) else theorf = wrdsor(2) nkeyth = 0 skeyth = ' ' end if elseif ((key.eq.'out').or.(keywrd.eq.'chi')) then chif = words(2) elseif ((keywrd.eq.'form').or.(keywrd(1:5).eq.'forma')) then frminp = words(2) frmout = frminp elseif (keywrd.eq.'formin') then frminp = words(2) elseif (keywrd.eq.'formout') then frmout = words(2) c --energy values elseif((key.eq.'ee').or.(key.eq.'e0')) then call str2dp(words(2), ee, ierr) eefind = .false. elseif ((key.eq.'eef').or.(key.eq.'e0f')) then call str2dp(words(2), ee, ierr) eevary = .false. eefind = .false. elseif (keywrd.eq.'fixe0') then call str2lg(words(2), eevary, ier) eevary = .not.eevary elseif ((keywrd.eq.'thefix').or.(keywrd.eq.'fixthe')) then call str2lg(words(2), thefix, ier) elseif (keywrd.eq.'fixamp') then call str2lg(words(2), thefix, ier) elseif ((keywrd.eq.'predg1').or.(keywrd.eq.'pre1')) then call str2dp(words(2), predg1, ierr) elseif ((keywrd.eq.'predg2').or.(keywrd.eq.'pre2')) then call str2dp(words(2), predg2, ierr) elseif (keywrd.eq.'nterp') then call str2in(words(2), nterp, ierr) elseif (keywrd.eq.'nnorm') then call str2in(words(2), nnorm, ierr) elseif (keywrd.eq.'nor1') then call str2dp(words(2), enor1, ierr) elseif (keywrd.eq.'nor2') then call str2dp(words(2), enor2, ierr) elseif ((key.eq.'ste').or.(key.eq.'edg')) then call str2dp(words(2), step, ierr) stfind = .false. elseif (keywrd(1:4).eq.'emin') then call str2dp(words(2), emin, ierr) elseif (keywrd(1:4).eq.'emax') then call str2dp(words(2), emax, ierr) elseif ((key.eq.'kmi').or.(key.eq.'qmi')) then call str2dp(words(2), qmin, ierr) emin = qmin**2 / etok elseif ((key.eq.'kma').or.(key.eq.'qma')) then call str2dp(words(2), qmax, ierr) emax = qmax**2 / etok elseif (keywrd(1:5).eq.'mucol') then call str2in(words(2), imucol, ierr) c c-fourier transform elseif ((key(1:2).eq.'kw').or.(key(1:2).eq.'qw') $ .or.(key.eq.'w')) then call str2dp(words(2), qweigh, ierr) elseif ((key.eq.'dk1').or.(key.eq.'dq1') ) then call str2dp(words(2), windo1, ierr) elseif ((key.eq.'dk2').or.(key.eq.'dq2') ) then call str2dp(words(2), windo2, ierr) elseif ((key.eq.'dk').or.(key.eq.'dq') ) then call str2dp(words(2), windo1, ierr) windo2 = windo1 elseif (key.eq.'han') then call str2dp(words(2), windo1, ierr) iwindo = 1 winstr = 'hanning' elseif (key.eq.'win') then if (words(2)(1:3).eq.'han') then winstr = 'hanning' iwindo = 1 elseif (words(2)(1:3).eq.'gau') then winstr = 'gaussian' iwindo = 2 elseif (words(2)(1:3).eq.'kai') then winstr = 'kaiser' iwindo = 3 elseif (words(2)(1:3).eq.'par') then winstr = 'parzen' iwindo = 4 elseif (words(2)(1:3).eq.'wel') then winstr = 'welch' iwindo = 5 end if elseif (keywrd(1:4).eq.'iwin') then call str2in(words(2), iwindo, ierr) elseif ( (key.eq.'rma').or.(key.eq.'rbk') ) then call str2dp(words(2), rbkg, ierr) elseif (key(1:2).eq.'r1') then call str2dp(words(2), r1st, ierr) c - -fourier transform, c - -fit, normalization flags elseif (keywrd.eq.'nknots') then call str2in(words(2), nsplin, ierr) gvknot = .true. elseif ((keywrd.eq.'norm').or. $ (keywrd(1:4).eq.'nor ')) then if (words(2)(1:3).eq.'fun') funnrm = .true. if (words(2)(1:3).eq.'bkg') funnrm = .true. if (words(2)(1:3).eq.'ste') funnrm = .false. if (words(2)(1:3).eq.'edg') funnrm = .false. if (words(2)(1:3).eq.'num') funnrm = .false. iwrds = 3 c - -output flags elseif (keywrd.eq.'toler') then call str2dp(words(2), usrtol, ierr) elseif ((keywrd.eq.'stiff').or.(keywrd.eq.'spstep')) then call str2dp(words(2), spstep, ierr) elseif (keywrd.eq.'iprint') then call str2in(words(2), iprint, ierr) elseif ((keywrd.eq.'preedge_out').or. $ (keywrd.eq.'preout')) then call str2lg(words(2), preout, ier) nrmout = preout elseif ((keywrd.eq.'norm_out').or. $ (keywrd.eq.'nrmout')) then call str2lg(words(2), nrmout, ier) elseif ((keywrd.eq.'eshift_out').or. $ (keywrd.eq.'eshout')) then call str2lg(words(2), eshout, ier) elseif ((keywrd.eq.'bkgout').or.(keywrd.eq.'bkgxmu')) then call str2lg(words(2), bkgxmu, ier) elseif ((keywrd.eq.'bkgksp').or.(keywrd.eq.'bkgchi')) then call str2lg(words(2), bkgchi, ier) elseif (keywrd.eq.'bkgrsp') then call str2lg(words(2), bkgrsp, ier) elseif ((keywrd.eq.'theksp').or.(keywrd.eq.'thechi')) then call str2lg(words(2), thechi, ier) elseif (keywrd.eq.'thersp') then call str2lg(words(2), thersp, ier) elseif((keywrd.eq.'chirsp').or.(keywrd.eq.'datrsp')) then call str2lg(words(2), chirsp, ier) elseif (key.eq.'all') then call str2lg(words(2), chirsp, ier) bkgxmu = chirsp bkgchi = chirsp thechi = chirsp thersp = chirsp c comment char for ascii column data files elseif ((keywrd.eq.'comment_char').or. $ (keywrd.eq.'asccmt')) then asccmt = words(2)(1:2) c hardwire number of doc lines for ascii column data files elseif ((keywrd.eq.'doc_lines').or. $ (keywrd.eq.'mdocxx')) then call str2in(words(2), mdocxx, ierr ) c-- if the word wasn't recognized as a keyword, skip it and go on elseif (.not.errskp) then iw = max( 1, istrln(keywrd) ) is = max( 1, istrln(string) ) write(messg,'(3a)') 'warning: unknown keyword < ', $ keywrd(1:iw),' > ' iii = max(1, istrln(messg)) call echo( ' '//messg(1:iii)) messg = ' " '//string(1:is)//' "' iii = max(1, istrln(messg)) call echo(messg(:iii)) iwrds = 1 end if if (nwords.gt.iwrds) then do 450 i = 1, nwords words(i) = words(i+iwrds) 450 continue nwords = nwords - iwrds go to 300 end if go to 200 c----------------------------------------------------------------------- c done reading the input file: c if we got to this line without setting domore to true, then c we read no input file name, so we'll return and stop the run 500 continue domore = (str.ne.'getcom_end') c if (dorun) then string = 'autobk: '//xmuf ii = max(1, istrln(string)) call echo(' '//string(1:ii) ) string = ' '// commnt ii = max(1, istrln(string)) call echo(' '//string(1:ii) ) c output file names: find last '.', and c save position 1 before '.' in iodot if (chif.eq.' ') chif = xmuf call triml(chif) iodot = max(1,istrln(chif)) if (index(chif(1:iodot),'.').ne.0) then 623 continue iodot = iodot - 1 if (index(chif(iodot+1:iodot+1),'.').eq.0) go to 623 end if chif = chif(1:iodot)//'.chi' end if c normal exit return c----------------------------------------------------------------------- c end subroutine autinp 1000 continue call fstop(' autobk error: could not find autobk.inp') 1010 continue call fstop(' autobk error: error opening autobk.inp') 1020 continue call fstop(' autobk error: error opening autobk.log') 1030 continue call fstop(' autobk: error reading autobk.inp') end ifeffit-1.2.11d/NEWS0000644000175000017500000000005310771740461013054 0ustar segresegre See the ChangeLog for changes and news. ifeffit-1.2.11d/config.h.in0000644000175000017500000000253110771740461014403 0ustar segresegre/* config.h.in. Generated from configure.in by autoheader. */ /* Define to 1 if you have the header file. */ #undef HAVE_INTTYPES_H /* Define to 1 if you have the header file. */ #undef HAVE_MEMORY_H /* Define to 1 if you have the header file. */ #undef HAVE_STDINT_H /* Define to 1 if you have the header file. */ #undef HAVE_STDLIB_H /* Define to 1 if you have the header file. */ #undef HAVE_STRINGS_H /* Define to 1 if you have the header file. */ #undef HAVE_STRING_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_STAT_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_TYPES_H /* Define to 1 if you have the header file. */ #undef HAVE_UNISTD_H /* Name of package */ #undef PACKAGE /* Define to the address where bug reports for this package should be sent. */ #undef PACKAGE_BUGREPORT /* Define to the full name of this package. */ #undef PACKAGE_NAME /* Define to the full name and version of this package. */ #undef PACKAGE_STRING /* Define to the one symbol short name of this package. */ #undef PACKAGE_TARNAME /* Define to the version of this package. */ #undef PACKAGE_VERSION /* Define to 1 if you have the ANSI C header files. */ #undef STDC_HEADERS /* Version number of package */ #undef VERSION ifeffit-1.2.11d/README.WIN320000644000175000017500000000033210771740461014036 0ustar segresegrePlease take the self-installing windows package for Ifeffit. If you're interested in programming with Ifeffit on Windows, contact Matt. --Matt Newville Last update Aug-25-2003 ifeffit-1.2.11d/doc/0000755000175000017500000000000010771740460013123 5ustar segresegreifeffit-1.2.11d/doc/Common/0000755000175000017500000000000010771740460014353 5ustar segresegreifeffit-1.2.11d/doc/Common/ifx.bib0000644000175000017500000014100410771740460015617 0ustar segresegre%% %% bibliography for newville thesis and papers BiBTeX %% @string{jjap = "Japanese Journal of Applied Physics"} @string{jacs = "Journal of the American Chemical Society"} @string{jap = "Journal of Applied Physics"} @string{jchemp = "Journal of Chemical Physics"} @string{jphysc = "Journal of Physics C"} @string{nim = "Nuclear Instruments and Methods"} @string{pr = "Physical Review"} @string{prb = "Physical Review B"} @string{prl = "Physical Review Letters"} @string{ny = "New York"} @string{chemanal = "Chemical Analysis"} @string{xbible = "{X-ray Absorption: Principles, Applications, Techniques of {EXAFS}, {SEXAFS}, and {XANES}}"} @book{A&M, author = "Neil W. Ashcroft and N. David Mermin", title = "{Solid State Physics}", publisher = "{Holt, Rinehart and Winston}", address = ny, year = "1976"} @book{TclBook, author = "John K. Ousterhout", title = "{Tcl and the Tk Toolkit}", publisher = "{Addison-Wesley}", address = {Menlo Park, CA}, year = "1994"} @book{CamelBook, author = "Larry Wall and Tom Christianson and Randal L. Schwartz", title = "{Programming Perl}", publisher = "{O'Reilly}", address = {Sebastopol, CA}, year = "1997"} @book{LearningPerl, author = "Randal L. Schwartz and Tom Christianson", title = "{Learning Perl, 2nd Edition}", publisher = "{O'Reilly}", address = {Sebastopol, CA}, year = "1997"} @book{LearningPython, author = "Mark Lutz and David Ascher", title = "{Learning Python}", publisher = "{O'Reilly}", address = {Sebastopol, CA}, year = "1999"} @book{AIPhandbook, author = "American Institute of Physics", title = "{American Institute of Physics Handbook}", publisher = "McGraw-Hill", year = "1972", edition = "3rd", note = "Cu, 4-123; Pt, 4-127"} @article{AUTOBK, author = "M. Newville and {P. L\=\i vi\c n\v s} and Y. Yacoby and J. J. Rehr and E. A. Stern", title = "{Near-edge x-ray-absorption fine structure of Pb: A comparison of theory and experiment}", journal = prb, year = 1993, volume = 47, number = 21, pages = "14126--14131"} @article{AXAFS, author = "J. J. Rehr and C. H. Booth and F. Bridges and S. I. Zabinsky", title = "X-ray-absorption fine structure in embedded atoms", journal = prb, year = "1994", volume = "49", number = "17", notes = "rapid communications", pages = "12347--12350"} @phdthesis{Alex-Goldstein-Thesis, author = "Goldstein, Alex", title = " ", school = "University of Washington", year = "1995"} @inproceedings{Amorph, author = "E. D. Crozier and J. J. Rehr and R. Ingalls", title = "Amorphous and Liquid Systems", booktitle = xbible, publisher = "John Wiley \& Sons", address = ny, year = "1988", editor = "D. C. Koningsberger and R. Prins", series = chemanal, volume = "92", pages = "375--384"} @article{Ankudinov&Rehr, author = "A. Ankudinov and J. J. Rehr", title = "Sum rules for polarization-dependent x-ray absorption", journal = prb, year = "1995", volume = "51", number = "2", pages = "1282--1285"} @article{Baskes, author = "M. I. Baskes", title = "Modified embedded-atom potentials for cubic materials and impurities", journal = prb, year = 1992, volume = 46, number = 5, pages = "2727--2742"} @article{Battyetal, author = "C. J. Batty and S.D. Hoath and D.L. Roberts", journal = nim, volume = "137", pages = "179", year = "1976"} @article{Beni&Platzman, author = "G. Beni and P. M. Platzman", title = "Temperature an polarization dependence of extended x-ray-absorption fine-structure spectra", journal = prb, year = "1976", volume = "14", number = "4", pages = "1514--1518"} @book{Bevington, author = "P. R. Bevington", title = "{Data Reduction and Error Analysis for the Physical Sciences}", publisher = "McGraw-Hill", year = "1969", address = ny} @article{Binsted-JACS, author = "N. Binsted and S. L. Cook and J. Evans and G. N. Greaves and R. J. Price", title = " ", journal = jacs, year = "1987", volume = "109", pages = "3669"} @article{Biswis-Grun, author = "S. N. Biswis and P. Van 't Klooster and N. J. Trappeniers", title = "Effect of pressure on the elastic constants of noble metals from {$-196$} to {$+25^\circ\, \rm \, C$} and up to 2500 bar", journal = "Physica B", year = 1981, volume = 103, pages = "235--246"} @misc{Shumway-pc, author = "S. L. Shumway", howpublished = "Personal communication"} @misc{Bouldin-pc, author = "C. E. Bouldin", howpublished = "Personal communication"} @article{Bridges-S02, author = "G. G. Li and F. Bridges and C. H. Booth", title = "{XAFS Standards: A Comparison of Experiment and Theory}", journal = "in progress", year = "1995", volume = " ", number = " ", pages = " "} @book{Brillouin, author = "L. Brillouin", title = "{Science and Information Theory}", publisher = "Academic Press", address = ny, year = "1962"} @book{Brown-phys-solids, author = "F. C. Brown", title = "{The Physics of Solids: Ionic Crystals, Lattice Vibrations, and Imperfections}", publisher = "W. A. Benjamin", year = "1967", address = ny} @article{Cook&Sayers, author = "J. W. Cook Jr. and D. E. Sayers", title = "Criteria for automatic x-ray absorption fine structure background removal", journal = jap, year = "1981", volume = "52", number = "8", pages = "5924--5031"} @article{Cox-GaPu, author = "L. E. Cox and R. Martinez and J. H. Nickel and S. D. Conradson and P. G. Allen", title = "{Short-range atomic structure of 1 wt.\% Ga delta -stabilized plutonium by x-ray-absorption fine-structure spectroscopy}", journal = prb, year = 1995, volume = 51, number = 2, pages = "751--755"} @article{Crozier&Seary, author = "E. D. Crozier and A. J. Seary", title = "Asymmetric effects in the Extended x-ray absorption fine structure of solid and liquid zinc", journal = "Canadian Journal of Physics", year = "1980", volume = "58", pages = "1388--1399"} @article{Crozier-AsSe, author = "E. D. Crozier and F. W. Lytle and D. E. Sayers and E. A. Stern", title = "Structural determinations of liquid semiconductors using extended x-ray absorption fine structure", journal = "Canadian Journal of Chemistry", year = "1977", volume = "55", pages = "1968--1974"} @article{Cumul-GB, author = "G. Bunker", title = "Application of the ratio method of {EXAFS} analysis to disordered systems", journal = nim, year = "1983", volume = "207", pages = "437--444"} @book{Cusack, author = "N. E. Cusack", title = "{The Physics of Structurally Disordered Matter: An Introduction}", publisher= "Adam Higler: University of Sussex Press", year = "1987", address = "Bristol, UK"} @article{DAFS-XAFS8, author = "B. Ravel and M. Newville and J. O. Cross and C. E. Bouldin", title = "Analysis of {DAFS} fine structure and background", journal = "Physica B", year = 1995, volume = "208\&209", notes = "part of XAFS VIII conference", pages = "145--147"} @inproceedings{DAFSChapter, author = "L. B. Sorensen and J. O. Cross and M. Newville and B. Ravel and J. J. Rehr and H. Stragier and C. E. Bouldin and J. C. Woicik", title = "{Diffraction anomalous fine structure: unifying x-ray diffraction and x-ray absorption with DAFS}", booktitle= "{Resonant Anomalous X-Ray Scattering: Theory and Applications}", publisher= "North-Holland", address = "Amsterdam", year = "1994", editor = "G. Materlik and C. J. Sparks and K. Fischer", pages = "389--420"} @article{DAFSprl, author = "H. Stragier and J. O. Cross and J. J. Rehr and L. B. Sorensen and C. E. Bouldin and J. C. Woicik", title = "{Diffraction anomalous fine structure: A new x-ray structural technique}", journal = prl, year = "1992", volume = "69", number = "21", pages = "3064--3067"} @article{Daw&Baskes, author = "M. S. Daw and M. I. Baskes", title = "Embedded-atom method: {Derivation} and application to impurities, surfaces, and other defects in metals", journal = prb, year = 1984, volume = 29, number = 12, pages = "6443--6453"} @article{Daw, author = "M. S. Daw", title = "Model of metallic cohesion: {The} embedded-atom method", journal = prb, year = 1989, volume = 39, pages = "7441--7452"} @article{Dirac, author = "P. A. M. Dirac", journal = "Proc. Camb. Phil. Soc.", year = 1930, volume = 26, pages = "376"} @article{EXAFS-1, author = "E. A. Stern", title = "Theory of the extended x-ray-absorption fine structure", journal = prb, year = "1974", volume = "10", number = "5", pages = "3027--3037"} @article{EXAFS-2, author = "F. W. Lytle and D. E. Sayers and E. A. Stern", title = "Extended x-ray-absorption fine-structure technique. {II.} {E}xperimental practice and selected results", journal = prb, year = "1975", volume = "11", number = "12", pages = "4825-4835"} @article{EXAFS-3, author = "E. A. Stern and D. E. Sayers and F. W. Lytle", title = "Extended x-ray-absorption fine-structure technique. {III.} {D}etermination of physical parameters", journal = prb, year = "1975", volume = "11", number = "12", pages = "4836-4848"} @book{Elliott-amorph, author = "S. R. Elliott", title = "{Physics of Amorphous Materials}", edition = "2nd", publisher = "Longman Scienific and Technical", year = "1990", address = "Essex, England"} @article{Eshelby, author = "J. D. Eshelby", title = "Distortion of a Crystal by Point Imperfections", journal = jap, year = "1954", volume = "25", number = "2", pages = "255--261"} @article{FEFF4, author = "Mustre de Leon, J. and J. J. Rehr and S. I. Zabinsky", title = "{{\it Ab initio} curved-wave x-ray-absorption fine structure}", journal = prb, year = "1991", volume = "44", number = "9", pages = "4146--4156"} @article{FEFF5, author = "S. I. Zabinsky and J. J. Rehr and A. Ankudinov and R. C. Albers and M. J. Eller", title = "Multiple-scattering calculations of x-ray-absorption spectra", journal = prb, year = "1995", volume = "52", number = "4", pages = "2995--3009"} @book{FFT, author = "E. O. Brigham", title = "{The Fast Fourier Transform}", publisher = "Prentice-Hall", address = "Englewood Cliffs, NJ", year = "1974"} @article{Filipponi-theory, author = "A. Filipponi and A. Di Cicco and C. R. Natoli", title = "{X-ray-absorption spectroscopy and $n$-body distribution functions in condensed matter. I. Theory}", journal = prb, year = "1995", volume = "52", number = "21", pages = "15122--15134"} @article{Filipponi-anal, author = "A. Filipponi and A. Di Cicco", title = "{X-ray-absorption spectroscopy and $n$-body distribution functions in condensed matter. II. Data analysis and applications}", journal = prb, year = "1995", volume = "52", number = "21", pages = "15135--15149"} @article{Ellis&Freeman-XFIT, author = "P. J. Ellis and H. C. Freeman", title = "{XFIT -- an interactive EXAFS analysis program}", journal = "Journal of Synchrotron Radiation", year = "1995", volume = "2", part = "4", pages = "190--195"} @misc{EXCURVE-Note, author = "N. Binstead and J. W. Campbell and S. J. Gurman and P. C. Stephenson", title = "{The Daresbury Laboratory {\sc excurve} program}", publisher = "Daresbury Laboratory", address = "Warrington, England"} @article{Foiles&Adams, author = "S. M. Foiles and J. B. Adams", title = "Thermodynamic properties of fcc transition metals as calculated with the embedded-atom-method", journal = prb, year = 1989, volume = 40, number = 9, pages = "5909--5915"} @article{Foiles&Baskes&Daw, author = "S. M. Foiles and M. I. Baskes and M. S. Daw", title = "Embedded-atom-method functions for the fcc metals {Cu}, {Ag}, {Au}, {Ni}, {Pd}, {Pt}, and their alloys", journal = prb, year = 1986, volume = 33, number = 12, pages = "7983--7991"} @article{Foiles&Daw, author = "S. M. Foiles and M. S. Daw", title = "Calculation of the thermal expansion of metals using the embedded-atom method", journal = prb, year = 1988, volume = 38, number = 17, pages = "12643--12644"} @article{Foiles-liq, author = "S. M. Foiles", title = "Application of the embedded-atom method to liquid transition metals", journal = prb, year = 1985, volume = 32, number = 6, pages = "3409--3415"} @article{Fontaine-alcu, author = "A. Fontaine and P. Lagarde and A. Naudon amd D. Raoux and D. Spanjaard", title = "{EXAFS} studies of {Al-Cu} alloys", journal = "Philosophical Magazine B", year = "1979", volume = "40", number = "1", pages = "17--30"} @article{Frenkel&Rehr, author = "A. I. Frenkel and J. J. Rehr", title = "Thermal expansion and x-ray-absorption fine-structure cumulants", journal = prb, year = "1993", volume = "48", number = "1", pages = "585--588"} @article{Frenkel-XAFS8, author = "A. Frenkel and A. Voronel and A. Katzir and M. Newville and E. A. Stern", title = "Buckled crystalline structure of disordered mixed salts", journal = "Physica B", year = 1995, volume = "208\&209", notes = "part of XAFS VIII conference", pages = "334--336"} @article{Frenkel-mixed, author = "A. Frenkel and E. A. Stern and A. Voronel and M. Qian and M. Newville", title = "Buckled Crystalline Structure of Mixed Ionic Salts", journal = prl, year = "1993", volume = "71", number = "21", pages = "3485--3488"} @article{Frenkel-salts, author = "A. I. Frenkel and E. A. Stern and A. Voronel and M. Qian and M. Newville", title = "Multiple-scattering x-ray-absorption fine-structure analysis and thermal expansion of alkali halides", journal = prb, year = "1993", volume = "48", number = "17", pages = "12449--12458"} @article{Frenkel-solving, author = "A. Frenkel and E. A. Stern and A. Voronel and M. Qian and M. Newville", title = "Solving the structure of disordered mixed salts", journal = prb, year = "1994", volume = "49", number = "17", pages = "11662--11674"} @article{Freund&Ingalls&Crozier, author = "J. Freund and R. Ingalls and E. D. Crozier", title = "Extended x-ray-absorption fine-structure study of alkali-metal halides under high pressure", journal = prb, year = "1991", volume = "43", number = "12", pages = "9894--9905"} @article{Fujikawa&Miyanaga1, author = "T. Fujikawa and T. Miyanaga", title = "{Quantum statistical approach to Debye-Waller Factor in EXAFS, EELS and ARXPS. I. Anharmonic contribution in plane-wave approximation}", journal = "{Journal of the Physical Society of Japan}", year = 1993, volume = 62, number = 11, pages = "4108--4022"} @misc{GBunker-ICSC, author = "G. Bunker", title = "{Elements of EXAFS Analysis}", year = "1993", note = "Tutorial for the International XAFS Society Subcommittee on Standards and Criteria", howpublished = "unpublished"} @book{Gopal-statmech, author = "E. S. R. Gopal", title = "{Statistical Mechanics and Properties of Matter: Theory and Applications}", publisher = "Ellis Horwood Ltd.", address = "Chichester, England", year = "1974"} @article{Greegor&Lytle, author = "R. B. Greegor and F. W. Lytle", title = "Extended x-ray absorption fine structure determination of thermal disorder in {Cu}: {Comparison} of theory and experiment", journal = prb, volume = "20", number = "12", year = "1979", pages = "4902--4907"} @article{Gupta-Grun, author = "O. P. Gupta and H. L. Kharoo", title = "Analysis of the {Gr\"uneisen} parameters of some fcc metals by an improved elastic force constant", journal = jchemp, year = 1981, volume = 74, pages = "3577--3583"} @article{Gupta-Lindemann, author = "O. P. Gupta", title = "{On Lindemann's Melting Criteria}", journal = "Mater. Sci. \& Eng.", year = 1983, volume = 57, pages = "L3--L4"} @article{HL, author = "L. Hedin and B. I. Lundqvist", title = "Explicit local exchange-correlation potentials", journal = jphysc, year = "1971", volume = "4", pages = "2064--2083"} @phdthesis{Hans-Thesis, author = "Stragier, Hans J.", title = "{DAFS: A new x-ray structural technique}", school = "University of Washington", year = "1993"} @book{Hansen, author = "M. Hansen", title = "{Constitution of Binary Alloys}", publisher = "McGraw-Hill", year = "1958", address = ny} @phdthesis{Hanske-Petitpierre-Thesis, author = "Hanske-Petitpierre, Olivier R.", title = "{EXAFS and Modulated EXAFS Studies of Ferroelectrics}", school = "University of Washington", year = "1986"} @article{Crozier-XAFS8, author = "E. D. Crozier", title = "Impact of the asymmetric pair distribution function in the analysis of {XAFS}", journal = "Physica B", year = 1995, volume = "208\&209", notes = "part of XAFS VIII conference", pages = "330--333"} @article{Haskel-XAFS8, author = "D. Haskel and B. Ravel and M. Newville and E. A. Stern", title = "Single and multiple scattering {XAFS} in {${\rm BaZrO}_3$}: {A} comparison between theory and experiment", journal = "Physica B", year = 1995, volume = "208\&209", notes = "part of XAFS VIII conference", pages = "151--153"} @article{Haskel-e0, author = "D. Haskel and B. Ravel and M. Newville and E. A. Stern", title = "Many Many E0s in XAFS analysis", journal = "in progress", year = "1995", volume = " ", pages = " "} @misc{Haskel-pc, author = "D. Haskel", howpublished = "Personal communication"} @inproceedings{Hayes&Boyce, author = "T. M. Hayes and J. B. Boyce", title = "{Extended X-Ray Absorption Fine Structure Spectroscopy}", booktitle = "{Solid State Physics}", publisher = "Academic Press", address = ny, year = 1982, editor = "H. Ehrenreich and F. Seitz and D. Turnbull", series = "Solid State Physics", volume = 37, pages = "173--351"} @article{Heme, author = "Ke Zhang and E. A. Stern and F. Ellis and J. Sanders-Loehr and A. K. Shiemke", title = "{The Active Site of Hemerythrin As Determined by X-ray Absorption Fine Structure}", journal = "Biochemistry", year = "1988", volume = "27", number = "19", pages = "7470--7479", notes = "has a big appendix on error analysis"} @article{Holender, author = "Janusz M. Holender", title = "Molecular-dynamics studies of the thermal properties of the solid and liquid fcc metals {Ag}, {Au}, {Cu}, and {Ni} using many-body interactions", journal = prb, year = 1990, volume = 41, number = 12, pages = "8054--8061"} @article{Holland, author = "B. W. Holland and J. B. Pendry and R. B. Pettifer and J. Bordas", title = "{Atomic origin of structure in EXAFS experiments}", journal = jphysc, year = "1978", volume = "11", pages = "633--642"} @article{Hondros&Seah, author = "E. D. Hondros and M. P. Seah", journal = "International Metal Reviews", year = "1977", volume = "00100", number = "222", pages = "263", notes = "is this reference put in correctly?"} @article{Ingalls-1, author = "R. Ingalls and E. D. Crozier and J. E. Whitmore and A. J. Seary and J. M. Tranquada", title = "Extended x-ray absorption fine structure of {NaBr} and {Ge} at high pressures", journal = "Journal of Applied Physics", year = "1980", volume = "51", number = "6", pages = "3158--3163"} @misc{JOX-pc, author = "J. O. Cross", howpublished = "Personal communication"} @article{Johnson, author = "R. A. Johnson", title = "Alloy models with the embedded-atom method", journal = prb, year = 1989, volume = 39, number = 17, pages = "12554--12559"} @article{Johnson-phase, author = "R. A. Johnson", title = "Phase stability of fcc alloys with the embedded-atom method", journal = prb, year = 1990, volume = 41, number = 14, pages = "9717--9720"} @misc{Jonsson-EAM, author = "H. Jonsson", howpublished = "personal communication", note = "{The embedded-atom code used was written by H.~Jonsson and co-workers. The specific simulations done here on Ag used simulation routines devised by S.~Shumway, with potentials for pure Ag as calculated by A.~Goldstein.}"} @phdthesis{Jose-Thesis, author = "Mustre de Leon, Jose", title = "Curved Wave Calculations in X-ray Absorption Spectroscopies, {XAFS} and Photoelectron Diffraction", school = "University of Washington", year = "1989"} @book{Kendall, author = "M. G. Kendall", title = "{The Advanced Theory of Statistics}", volume = "1", publisher = "Charles Griffin \& Co. Ltd.", year = "1958", address = "London"} @article{Keski, author = "O. Keski-Rahkonen and M. O. Krause", title = "Total and partial atomic-level widths", journal = "Atomic Data and Nuclear Data Tables", year = "1974", volume = "14", number = "2", pages = "140--146"} @book{Kittel-intro, author = "Charles Kittel", title = "{Introduction to Solid State Physics}", publisher = "John Wiley \& Sons", edition = "6th", year = "1986"} @article{Knapp-dwf, author = "G. S. Knapp and H. K. Pan and J. M. Tranquada", title = "Extended x-ray absorption fine-structure {Einstein} frequency and moments of the phonon spectrum: {An} experimental and theoretical study", journal = prb, year = "1985", volume = "32", number = "4", pages = "2006--2009"} @article{Ishii-dwf, author = "Tadao Ishii", title = "Note on the {K} extended x-ray absorption fine-structure Debye-Waller factor", journal = "J. Phys: Condens. Matter", year = "1992", volume = "4", pages = "8029--8034"} @article{Dalba-anharm, author = "G. Dalba and P. Fornasini and R. Gotter and F. Rocca", title = "Anharmonicity effects of the extended x-ray absorption fine structure: The case of {$\beta$-AgI}", journal = prb, year = "1995", volume = "52", number = "1", pages = "149--157"} @article{Dalba-noncryst, author = "G. Dalba and P. Fornasini and D. Diop and M. Grazioli and F. Rocca", title = "Local structure and dynamics of amorphous germanium studied by the cumulant expansion of {EXAFS}", journal = "J. of Non-Crystalline Solids", volume = "164--166", year = "1993", pages = "159--162"} @article{Hosokawa-noncryst, author = "S. Hosokawa and S. Yamada and K. Tamura", title = "Density measurements for liquid Se-Te mixtures at high temperatures and pressures", journal = "J. of Non-Crystalline Solids", volume = "156--158", year = "1993", pages = "708--711"} @article{Kamiya-etal, author = "K. Kamiya and K. Okasaka and M. Wada and H. Nasu and T. Yoko", title = "Extended X-ray absorption fine structure {(EXAFS)} study on the local environment around copper in low thermal expansion copper aluminosilicate glasses", journal = "J. of Am. Ceramic Soc.", volume = "75", number = "2", year = "1992", pages = "477-478"} @book{L&L-statmech, author = "L. D. Landau and E. M. Lifshitz", title = "{Statistical Physics}", publisher = "Addison-Wesley", address = ny, edition = "2nd", year = "1969"} @article{Langford, author = "I. Langford", journal = "Journal of Applied Crystallography", volume = "11", pages = "10", year = "1978"} @article{Lee&Beni, author = "P. A. Lee and G. Beni", journal = prb, year = "1977", volume = "15", pages = "2862"} @article{Lee&Citrin, author = "P. A. Lee and P. H. Citrin and P. Eisenberger and B. M. Kincaid", title = "Extended x-ray absorption fine structure --- its strengths and limitations as a structural tool", journal = "Reviews of modern physics", year = "1981", volume = "53", number = "4", pages = "769--806"} @article{Lee&Pendry, author = "P. A. Lee and J. B. Pendry", title = "{Theory of extended x-ray absorption fine-structure}", journal = prb, year = "1975", volume = "11", number = "8", pages = "2795--2811"} @inproceedings{Leibfried&Breuer, author = "G. Leibfried and N. Breuer", title = "{Point Defects in Metals I}", booktitle = "{Springer Tracts in Modern Physics}", volume = "81", publisher = "Springer-Verlag", year = "1978", address = "Berlin"} @article{Li&Bridges, author = "G. Li and F. Bridges and G. S. Brown", title = "Multielectron X-Ray Photoexcitation Observations in X-Ray-Absorption Fine-Structure Background", journal = prl, year = "1992", volume = "68", number = "10", pages = "1609--1612"} @article{Lindemann, author = "F. A. Lindemann", journal = "{Phys. Z.}", year = "1910", volume = "11", pages = "609"} @misc{Livins-pc, author = "{P. L\=\i vi\c n\v s}", howpublished = "Personal communication"} @article{Lottici, author = "P. P. Lottici", title = "Extended x-ray absorption fine-structure {Debye-Waller} factors and vibrational density of states in amorphous arsenic", journal = prb, year = "1987", volume = "35", number = "3", pages = "1236--1241"} @article{MN-feffit-XAFS8, author = "M. Newville and B. Ravel and D. Haskel and J. J. Rehr and E. A. Stern and Y. Yacoby", title = "Analysis of multiple-scattering XAFS data using theoretical standards", journal = "Physica B", year = 1995, volume = "208\&209", notes = "part of XAFS VIII conference", pages = "154--156"} @article{MN-impure-XAFS8, author = "M. Newville and E. A. Stern", title = "The temperature dependence of substitutional impurities in Ag as measured by XAFS", journal = "Physica B", year = 1995, volume = "208\&209", notes = "part of XAFS VIII conference", pages = "369--370"} @article{Maradudin&Flinn, author = "A. A. Maradudin and P. A. Flinn", title = "{Anharmonic Contributions to the Debye-Waller Factor}", journal = pr, year = "1963", volume = "129", number = "6", pages = "2529--2547"} @book{March-LiqMets, author = "N. H. March", title = "{Liquid Metals}", publisher = "Pergamon Press", address = "Oxford", year = "1968"} @article{Marquardt, author = "D. W. Marquardt", journal = "Journal of the Society for Industrial and Applied Mathematics", year = "1963", volume = "11", pages = "431--441"} @book{McMaster, author = "W. H. {McMaster} and N. Kerr-Del Grande and J. H. Mallett and J. H. Hubbell", title = "{Compilation of X-ray Cross Sections. Lawrence Radiation Laboratory Report UCRL-50174}", publisher = "National Bureau of Standards", year = "1969", address = "Springfield, VA"} @misc{McM-online, author = "P. Bandyopadhyay", title = "{On-Line X-ray Cross Sections Based on the McMaster Tables}", note = "http://www.csrii.iit.edu/", year = "1995"} @book{Messiah, author = "A. Messiah", title = "{Quantum Mechanics}", publisher = "John Wiley \& Sons", year = "1966"} @article{Miyanaga&Fujikawa2, author = "T. Miyanaga and T. Fujikawa", title = "{Quantum statistical approach to Debye-Waller Factor in EXAFS, EELS and ARXPS. II. Application to one-dimensional models}", journal = "{Journal of the Physical Society of Japan}", year = 1994, volume = 63, number = 3, pages = "1036--1052"} @article{Miyanaga&Fujikawa3, author = "T. Miyanaga and T. Fujikawa", title = "{Quantum statistical approach to Debye-Waller Factor in EXAFS, EELS and ARXPS. III. Applicability of Debye and Einstein approximation}", journal = "{Journal of the Physical Society of Japan}", year = 1994, volume = 63, number = 10, pages = "3683--3690"} @article{MossAndreasenetal, author = "H. Andreasen and S. Damgaard and J. W. Petersen and G. Weyer", title = "Isomer shifts and force constants of substitutional {${\rm{}^{119}Sn}$} impurity atoms in {\sc fcc} metals", journal = "Journal of Physics F: Metal Physics", year = "1983", volume = "13", pages = "2077--2088"} @book{MossEffect, author = "H. Frauenfelder", title = "{The M\"ossbauer Effect}", publisher = "W. A. Benjamin", year = "1962", address = ny} @article{MossGrowetal, author = "J. M. Grow and D. G. Howard and R. H. Nussbaum and M. Takeo", title = "{Frequency moments of cubic metals and substitutional impurities: A critical review of impurity-host force-constant changes from M\"ossbauer data}", journal = prb, year = "1978", volume = "17", number = "1", pages = "15"} @article{MossHaskel, author = "D. Haskel and H. Shechter and E. A. Stern and M. Newville and Y. Yacoby", title = "Anomalous temperature behavior of {Sn} impurities", journal = prb, year = 1993, volume = 47, number = 21, pages = "14032--14043"} @article{MossPbSn, author = "H. Shechter and E. A. Stern and Y. Yacoby and R. Brener and Z. Zhang", title = "Anomalous Local Hopping of {Sn} impurities in {Pb}", journal = prl, year = "1989", volume = "63", pages = "1400"} @article{MossVogl, author = "G. Vogl", title = "Diffusion studies", journal = "Hyperfine Interactions", year = "1990", volume = "53", pages = "197--212"} @article{Mousseau&Thorpe, author = "N. Mousseau and M. F. Thorpe", title = "Length distribution in metallic alloys", journal = prb, year = 1992, volume = 45, number = 5, pages = "2015--2022"} @article{Mulargia&Quareni, author = "F. Mulargia and F. Quareni", title = "Estimation of the Leading Order Anharmonic Parameters from Available Thermodynamic Data", journal = "Phys. Stat. Sol. (b)", year = "1991", volume = "163", pages = "91--98" } @article{NCu, author = "H. Wende and J. J. Rehr and D. Arvanitis and L. {Tr\"oger} and T. Lederer and M. Tischer and K. Baberschke and A. Ankudinov and M. Newville and S. I. Zabinsky", title = "Polarized Surface {EXAFS} studies combining Theory and Experiment", journal = "in progress", year = "1995", volume = " ", number = " ", notes = "N/Cu sexafs paper", pages = " "} @article{Newv-Stern-impure, author = "M. Newville and E. A. Stern", title = "Thermodynamics of impurities in {Ag} and {Au}: x-ray-absorption fine structure measurements", journal = "in progress", year = "1995", volume = " ", number = " ", pages = " "} @article{Newv-Stern-pure, author = "M. Newville and E. A. Stern", title = "Local thermodynamics measurements of {Ag} and {Au} using x-ray-absorption fine structure", journal = "in progress", year = "1995", volume = " ", number = " ", pages = " "} @phdthesis{Newville-Thesis, author = "Newville, Matthew", title = "{Local Thermodynamic Measurements of Dilute Binary Alloys Using XAFS}", school = "University of Washington", year = "1995"} @book{NumRec, author = "W. H. Press and S. A. Teukolsky and W. T. Vetterling and B. P. Flannery", title = "{Numerical Recipes in FORTRAN}", publisher = "Cambridge University Press", address = "Cambridge", edition = "2nd", year = "1992"} @article{ODay, author = "P. A. O'Day and J. J. Rehr and S. I. Zabinsky and G. Brown", title = "Extended {X}-ray Absorption Fine Structure ({EXAFS}) Analysis of Disorder and Multiple-Scattering in Complex Crystalline Solids", journal = jacs, year = "1994", volume = "116", number = "7", pages = "2938--2949" } @article{Orton-alloys, author = "B. R. Orton and C. M. Stanton and N. A. Gully and D. A. Vorsatz and R. Manaila-Devnyi", title = "{XANES} and {EXAFS} investigation of sd hybrid bonds in alloys of gold with gallium, germanium and tin through the solid-liquid transition", journal = "Journal of Non-Crystalline Solids", year = "1993", volume = "156--158", pages = "133-136"} @article{Papa, author = "D. A. Papaconstantopoulos and A. D. Zdetsis and E. N. Economou", journal = "Solid State Comm.", year = 1978, volume = 27, pages = "1189"} @article{Pbmelt, author = "E. A. Stern and {P. L\=\i vi\c n\v s} and Z. Zhang", title = "Thermal Vibration and Melting from a Local Perspective", journal = prb, year = 1991, volume = 43, pages = "8850--8860"} @misc{PbmeltNote, author = " ", note = "{These relations for the cumulants are the same as those in Ref.~\cite{Pbmelt}, though a typographical error for the third cumulant in that work has been corrected.}"} @book{Pearson, author = "W. B. Pearson", title = "{Handbook of Lattice Spacings and Structure of Metals and Alloys}", publisher = "Pergamon", year = "1958", address = "Oxford"} @book{Wyckoff, author = "Ralph W. G. Wyckoff", title = "Crystal Structures", publisher = "Interscience", edition = "2nd", year = "1963", address = "New York"} @book{SteamTables, author = "L. Haar and J. S. Gallagher and G. S. Kell", title = "NBS/NRC Steam Tables", publisher = "Hemisphere", year = "1984", address = "New York"} @book{Peierls-qts, author = "R. E. Peierls", title = "{Quantum Theory of Solids}", publisher = "Oxford", year = "1955", address = "London"} @article{Premelt, author = "E. A. Stern and K. Zhang", title = "Local Premelting about Impurities", journal = prl, year = "1988", volume = "60", pages = "1872"} @article{Pfund-etal, author = "D. M. Pfund and J. C. Darab and J. L. Fulton and Y. Ma", title = "An {XAFS} study of strontium ions and krypton in supercritical water", journal = "Journal of Physical Chemistry", year = "1994", volume = "98", pages = "13102--13107"} @phdthesis{Qian-Thesis, author = "Qian, Maoxu", title = "{XAFS} Study of $\rm{YBa}_2{\rm Cu}_3{\rm O}_{7-\delta}$ High $T_c$ Superconductors", school = "University of Washington", year = "1992"} @article{Quareni&Mulargia, author = "F. Quareni and F. Mulargia", title = "Experimental Quasi-Harmonic and Leading-Order Anharmonic Coefficients of {Ag}, {Al}, {Cu}, {Fe}", journal = "Phys. Stat. Sol. (b)", year = "1991", volume = "167", pages = "527--541" } @article{Quinn, author = "J. J. Quinn", title = "Range of excited electrons in metals", journal = pr, year = "1962", volume = "126", number = "4", pages = "1453--1457"} @article{RAZ, author = "J. J. Rehr and R. C. Albers and S. I. Zabinsky", title = "High-order multiple-scattering calculations of x-ray-absorption fine structure", journal = prl, year = "1992", volume = "69", number = "23", pages = "3397--3400"} @article{RDF, author = "E. A. Stern and Y. Ma and O. Hanske-Petitpierre", title = "Radial distribution function in x-ray-absorption fine structure", journal = prb, year = "1992", volume = "46", number = "2", pages = "687--694"} @article{RWCahn-Nature, author = "R. W. Cahn", title = "{Melting and the surface}", journal = "{Nature}", year = "1986", volume = "323", number = "23", pages = "668"} @article{Ravel-XAFS8, author = "B. Ravel and E. A. Stern", title = "Local disorder and near edge structure in titanate perovskites", journal = "Physica B", year = 1995, volume = "208\&209", notes = "part of XAFS VIII conference", pages = "316--318"} @misc{Ravel-pc, author = "B. Ravel", howpublished = "Personal communication"} @article{Rechav-prl, author = "B. Rechav and Y. Yacoby and E. A. Stern and J. J. Rehr M. Newville", title = "Local Structure below and above the Antiferrodistortive Phase Transition", journal = prl, year = "1994", volume = "72", number = "9", pages = "1352--1355"} @article{Rehr&Albers, author = "J. J. Rehr and R. C. Albers", title = "Scattering-matrix formulation of curved-wave multiple-scattering theory: {Application} to x-ray-absorption fine structure", journal = prb, year = "1990", volume = "41", number = "12", pages = "8139--8149"} @article{Rehr-AXAFS-XAFS8, author = "J. J. Rehr and S. I. Zabinsky and A. Ankudinov and R. C. Albers", title = "Atomic-XAFS and XANES", journal = "Physica B", year = 1995, volume = "208\&209", notes = "part of XAFS VIII conference", pages = "23--26"} @article{Rehr-JACS, author = "J. J. Rehr and Mustre de Leon, J. and S. I. Zabinsky and R. C. Albers", title = "Theoretical x-ray absorption fine structure standards", journal = jacs, year = "1991", volume = "113", number = "14", pages = "5135--5140"} @article{Rehr-JJAP, author = "J. J. Rehr", title = "Recent Developments in Multiple Scattering Calculations of {XAFS} and {XANES}", journal = jjap, year = "1993", volume = "32", pages = "8--12", note = "{Suppl.~32--2}"} @misc{Rehr-ch2, author = "J. J. Rehr", title = "chapter two", journal = "unpublished?", year = " ", volume = " ", pages = " ", note = "{rehr-ch2???}"} @misc{Rehr-pc, author = "J. J. Rehr", howpublished = "Personal communication"} @article{Rehr-s02, author = "J. J. Rehr and E. A. Stern and R. L. Martin and E. R. Davidson", title = "Extended x-ray-absorption fine-structure amplitudes --- Wave-function relaxation and chemical effect", journal = prb, year = "1978", volume = "17", number = "2", pages = "560--565"} @article{Renaudetal, author = "G. Renaud and N. Motta and F. Lancon and M. Belaknovsky", title = "Topological short-range disorder in $\rm{Au}_{1-x}\rm{Ni}_x$ solid solutions: {An} extended x-ray-absorption fine structure spectroscopy and computer-simulation study", journal = prb, year = 1988, volume = 38, number = 9, pages = "5944--5964"} @article{Speder&Rennert-XAFS8, author = "O. Speder and P. Rennert", title = "{Influence of spherical wave corrections on the temperature dependence of XAFS multiple scattering processes}", journal = "Physica B", year = "1995", volume = "208\&209", pages = "157--158"} @article{Rennert, author = "P. Rennert", title = "{Calculation of the XAFS Debye-Waller Factor with Spherical-Wave Corrections}", journal = jjap, year = 1993, volume = 32, pages = "79--82", note = "Suppl.~32--2" } @article{Brouder, author = "C. Brouder", title = "{Disorder effects on curved-wave extended x-ray absorption fine structure}", journal = "J. Phys. C: Solid State Phys", year = 1988, volume = 21, pages = "5075--5086"} @misc{Rodgers&Hammerstein, title = "{My Favorite Things}", author = "R. Rodgers and O. Hammerstein", howpublished = "Williamson, ASCAP"} @article{Roentgen, author = "Roentgen", journal = "z. phys.", year = "1895"} @article{Rose&Shapiro, author = "M. E. Rose and M. M. Shapiro", title = "Statistical errors in absorption experiments", journal = pr, year = "1948", volume = "74", number = "12", pages = "1853--1864"} @inproceedings{SEXAFS, author = "{J. St\"ohr}", title = "{SEXAFS: Everything You Always Wanted to Know But Were Afraid to Ask}", booktitle = xbible, publisher = "John Wiley \& Sons", address = ny, year = "1988", editor = "D. C. Koningsberger and R. Prins", series = chemanal, volume = "92", pages = "452"} @book{Sakurai, author = "J. J. Sakurai", title = "{Modern Quantum Mechanics}", publisher = "Addison-Wesley", year = "1985"} @inproceedings{Sayers&Bunker, author = "D. E. Sayers and B.A. Bunker", title = "Data Analysis", booktitle = xbible, publisher = "John Wiley \& Sons", address = ny, year = 1988, editor = "D. C. Koningsberger and R. Prins", series = chemanal, volume = 92, chapter = 6, pages = 211} @article{Scheuer&Lengeler, author = "U. Scheuer and B. Lengeler", title = "Lattice distortions of solute atoms in metals studied by x-ray-absorption fine structure", journal = prb, year = 1991, volume = 44, number = 18, pages = "9883--9894"} @article{Sevillano, author = "E. Sevillano and H. Meuth and J. J. Rehr", title = "Extended x-ray absorption fine structure {Debye-Waller} factors. {I}. {M}onatomic crystals", journal = prb, year = "1979", volume = "20", number = "12", pages = "4908--4911"} @article{Shapiro-Lindemann, author = "J. N. Shapiro", title = "{Lindemann Law and Lattice Dynamics}", journal = prb, year = 1970, volume = 1, pages = "3982--3989"} @misc{Shechter-pc, author = "H. Shechter", howpublished = "Personal communication"} @book{Simmons-elastic, author = "G. Simmons and H. Wang", title = "{Single crystal elastic constants and calculated aggregate properties: a handbook}", edition = "2nd", publisher = "M.I.T. Press", year = "1971", address = "Cambridge, MA"} @article{Singwi&Sjolander, author = "K. S. Singwi and A. Sjolander", journal = pr, year = "1960", volume = "120", pages = "1093"} @article{Stand&Crit, author = "F. W. Lytle and D. E. Sayers and E. A. Stern", title = "Report on the International Workshop on Standards and Criteria in X-ray Absorption Spectroscopies", journal = "Physica B", year = 1989, volume = 158, pages = "701--722"} @article{Stern&Bunker&Heald, author = "E. A. Stern and B. A. Bunker and S. M. Heald", title = "Many-body effects on extended x-ray absorption fine structure amplitudes", journal = prb, year = "1980", volume = "21", number = "12", pages = "5521--5539"} @inproceedings{Stern&Heald, author = "E. A. Stern and S. M. Heald", title = "{Basic Principles and Applications of EXAFS}", booktitle = "{Handbook of Synchrotron Radiation}", publisher = "North-Holland", address = ny, year = 1983, editor = "E. E. Koch", chapter = 10, pages = "995--1014"} @article{Stern-XAFS8, author = "E. A. Stern and M. Newville and B. Ravel and Y. Yacoby and D. Haskel", title = "The {UWXAFS} analysis package: philosophy and details", journal = "Physica B", year = 1995, volume = "208\&209", notes = "part of XAFS VIII conference", pages = "117--120"} @misc{Stern-electronics, author = "E. A. Stern", howpublished = "unpublished", note = "The ion chamber and electronics used for XAFS measurements in this work have been continuously modified and improved over the years by the Stern XAFS Group."} @article{Stern-idp+2, author = "E. A. Stern", title = "Number of relevant independent points in X-ray-absorption fine-structure spectra", journal = prb, volume = "48", number = "13", year = "1993", pages = "9825--9827"} @misc{IDP:real, author = " ", note = "{To avoid confusion about calculating and rounding the number of independent points in an XAFS spectrum, we use $N_{\rm idp} = 2 \Delta R \Delta k/\pi$, and let this number be non-integer.}"} @article{Thiel-nature, author = "D. J. Thiel and {P. L\=\i vi\c n\v s} and E. A. Stern and A. Lewis", title = "Microsecond-resolved XAFS of the triplet excited state of {${\rm Pt_{2}(P_{2}O_{5}H_{2})^{4-}_4}$}", journal = "Nature", volume = "362", number = "6415", year = "1993", pages = "40--44"} @article{Tranq&Ingalls, author = "J. M. Tranquada and R. Ingalls", title = "Extended x-ray-absorption fine-structure study of anharmonicity in {CuBr}", journal = prb, year = "1983", volume = "28", number = "6", pages = "3520--3528"} @phdthesis{Tranq-Thesis, author = "Tranquada, John", title = "X-Ray Absorption Studies of Solids at High Pressure", school = "University of Washington", year = "1983"} @article{Troger-XAFS8, author = "{L. Tr\"oger and D. Arvanitis and T. Yokoyama and K. Baberschke}", title = "Local dynamics and local thermal expansion around light elements in the bulk and on surfaces", journal = "Physica B", year = "1995", volume = "208\&209", notes = "part of XAFS VIII conference", pages = "267--268"} @article{Troger-prb94, author= "{L. Tr\"oger and T. Yokoyama and D. Arvanitis and T. Lederer and M. Tischer and K. Baberschke}", title = "Determination of bond lengths, atomic mean-square relative displacements, and local thermal expansion by means of soft-x-ray photoabsorption", journal = prb, year = "1994", volume= "49", number= "2", pages = "888--903"} @article{Tweet&Akimoto, author = "D. J. Tweet and K. Akimoto", title = "Solving an interfacial structure with multiple wavelength anomalous dispersion {(MAD)}", journal = "Modern Physics Letters B", year = "1994", volume = "8", number = "12", pages = "721--737"} @book{Ubbelohde, author = "A. R. Ubbelohde", title = "{The Molten State of Matter}", publisher = "John Wiley \& Sons", year = "1978", address = ny} @article{Vaarkamp, author = "M. Vaarkampe and I. Dring and R. J. Oldman and E. A. Stern and D. C. Koningsberger", title = "Comparison of theoretical methods for the calculation of extended X-ray-absorption fine structure", journal = prb, volume = "50", number = "11", year = "1994", pages = "7872--7883"} @phdthesis{Vaarkamp-thesis, author = "Vaarkamp, Marius", title = "The Structure and Catalytic Properties of Supported Platinum Catalysts", school = "Technische Universiteit Eindhoven", year = "1993"} @book{Wallace, author = "D. C. Wallace", title = "{Thermodnyamics of Crystals}", publisher = "John Wiley \& Sons", address = ny, year = "1972"} @book{Waseda-NonCryst, author = "Y. Waseda", title = "{The Structure of Non-Crystalline Materials}", publisher = "McGraw-Hill", year = "1980", address = ny} @book{XAFSbible, editor = "D. C. Koningsberger and R. Prins", title = xbible, publisher = "John Wiley \& Sons", address = ny, year = 1988, series = chemanal, volume = 92} @article{YBCO-Apical, author = "E. A. Stern and M. Qian and Y. Yacoby and S. M. Heald and H. Maeda", title = "Apical {Cu-O} bond in $\rm{YBa}_2{\rm Cu}_3{\rm O}_{7-\delta}$ superconductors by {XAFS}", journal = "Physica C", year = "1993", volume = "209", number = "1--3", pages = "331--334"} @article{Yokoyama-jjap90a, author = "T. Yokoyama and T. Ohta", title = "Temperature-Dependent EXAFS Study on Supported Silver and Palladium Clusters: Comparison of Their Interatomic Potentials with Those of Bulk Metals", journal = jjap, year = "1990", volume = "29", number = "10", pages = "2052--2058"} @article{Yokoyama-jjap89, author = "T. Yokoyama and T. Satsukawa and T. Ohta", title = "Anharmonic interatomic potentials of metals and metal bromides determined by {EXAFS}", journal = "Japanese Journal of Applied Physics, Part 2 (Letters)", year = "1989", volume = "28", number = "10", pages = "1905--1908"} @article{Yokoyama-XAFS5, author = "T. Yokoyama and S. Kimoto and T. Ohta", title = "Temperature dependent {EXAFS} study on silica-supported small silver and palladium clusters", journal = "Physica B", year = "1989", volume = "158", number = "1--3", pages = "255--256"} @phdthesis{Zab-Thesis, author = "Zabinsky, Steven I.", title = "{Multiple Scattering Theory of XAFS}", school = "University of Washington", year = "1993"} @book{deBoor, author = "C. deBoor", title = "{A practical guide to splines}", publisher = "Springer-Verlag", year = "1978", address = ny} @book{f77, author = "{American National Standards Committee on Computers and Information Processing, X3}", title = "{ANSI X3.9--1978, Revision of ANSI X3.9--1966}", publisher = "American National Standards Institute, Inc.", year = "1978", address = ny, note = "This is the FORTRAN 77 language definition."} @book{synchrotron-handbook, title = "{Handbook of Synchrotron Radiation}", publisher = "North-Holland", address = ny, year = 1983, editor = "E. E. Koch"} @misc{CorrDWF-note, note = "Though we consider only single scattering paths in this work, the correlated Debye model of Ref.~\cite{Sevillano,Beni&Platzman} can be used for general multiple-scattering paths", author = " "} ifeffit-1.2.11d/doc/Common/fancybox.sty0000644000175000017500000006513110771740460016733 0ustar segresegre%% BEGIN fancybox.sty \def\fileversion{1.2} \def\filedate{1998/02/27} % DG/SR modification begin - May 16, 1997 \providecommand\@begindvi{} % For rather old versions of LaTeX 2e % Problem FancyBox 1.0 <-> LaTeX 2e with the \fancyput macro %%------ \edef\@tmpa{\the\c@tocdepth} \c@tocdepth=\@tmpa\relax %%------ % DG/SR modification end % DG/SR modification begin - Feb. 27, 1997 % Now defined only in latex209.def \def\@lquote{\leavevmode{\kern\z@}`} % DG/SR modification end %% %% COPYRIGHT 1993, by Timothy Van Zandt, tvz@Princeton.EDU %% %% DESCRIPTION: %% fancybox.sty is a LaTeX style option, consisting of: %% * Variants of \fbox: \shadowbox, \doublebox, \ovalbox, \Ovalbox. %% * Helpful tools for using box macros. %% * Extensive documentation about how to use box macros. %% * Flexible verbatim macros. %% %% INSTALLATION: %% Put this file where your TeX looks for inputs. %% %% DOCUMENTATION: %% See fancybox.doc, which might be appended to this file. %% %% COPYING: %% Copying of part or all of this file is allowed under the following %% conditions only: %% (1) You may freely distribute unchanged copies of the file. Please %% include the documentation when you do so. %% (2) You may modify a renamed copy of the file, but only for personal %% use or use within an organization. %% (3) You may copy fragments from the file, for personal use or for %% distribution, as long as credit is given where credit is due. %% %% You are NOT ALLOWED to take money for the distribution or use of %% this file or modified versions or fragments thereof, except for %% a nominal charge for copying etc. %% %% CODE: \expandafter\ifx\csname fb@framepage\endcsname\relax\else \expandafter\endinput \fi \typeout{Style option: `fancybox' v\fileversion \space <\filedate> (tvz)} \newbox\@fancybox \@ifundefined{@tempdimc}{\newdimen\@tempdimc}{} %% \shadowbox \newdimen\shadowsize \shadowsize 4pt \def\shadowbox{\VerbBox\@shadowbox} \def\@shadowbox#1{% \setbox\@fancybox\hbox{\fbox{#1}}% \leavevmode\vbox{% \offinterlineskip \dimen@=\shadowsize \advance\dimen@ .5\fboxrule \hbox{\copy\@fancybox\kern-.5\fboxrule\lower\shadowsize\hbox{% \vrule \@height\ht\@fancybox \@depth\dp\@fancybox \@width\dimen@}}% \vskip-\dimen@ \moveright\shadowsize\vbox{% \hrule \@width\wd\@fancybox \@height\dimen@}}} % \fancyoval \def\cornersize{\@ifstar{\@cornersize}{\@@cornersize}} \def\@cornersize#1{% \@tempdima=#1\relax \edef\the@cornersize{\number\@tempdima sp}} \def\@@cornersize#1{% \edef\the@cornersize{#1\noexpand\@tempdimb}} \cornersize{.5} % This is just a simple change to \oval, making use of the \cornersize % parameter instead of making the corner arcs are large as possible. \def\fancyoval(#1,#2){\@ifnextchar[{\fancy@oval(#1,#2)}{\fancy@oval(#1,#2)[]}} \def\fancy@oval(#1,#2)[#3]{% \begingroup \fancy@@oval{#1\unitlength}{#2\unitlength}{#3}% \@put{-.5\wd\@tempboxa}{-.5\ht\@tempboxa}{\ht\@tempboxa=\z@\box\@tempboxa}% \endgroup} \def\fancy@@oval#1#2#3{% \boxmaxdepth \maxdimen \@ovttrue \@ovbtrue \@ovltrue \@ovrtrue \@tfor\@tempa :=#3\do{\csname @ov\@tempa false\endcsname}% \@ovxx#1\relax \advance\@ovxx-\@wholewidth \@ovyy#2\relax \advance\@ovyy-\@wholewidth \@tempdimb \ifdim \@ovyy >\@ovxx \@ovxx\else \@ovyy \fi \advance\@tempdimb-2\p@ \ifdim\@tempdimb>\the@cornersize\relax \@tempdimb=\the@cornersize \fi \@getcirc\@tempdimb \@ovro\ht\@tempboxa \@ovri\dp\@tempboxa \@ovdx\@ovxx \advance\@ovdx-\@tempdima \divide\@ovdx \tw@ \@ovdy\@ovyy \advance\@ovdy-\@tempdima \divide\@ovdy \tw@ \@circlefnt \setbox\@tempboxa\hbox{% \if@ovr \@ovvert32\kern -\@tempdima \fi \if@ovl \kern \@ovxx \@ovvert01\kern -\@tempdima \kern -\@ovxx \fi \if@ovt \@ovhorz \kern -\@ovxx \fi \if@ovb \raise \@ovyy \@ovhorz \fi}% \advance\@ovdx\@ovro \advance\@ovdy\@ovro \advance\@ovxx\@wholewidth \wd\@tempboxa=\@ovxx \dp\@tempboxa=\z@} % \ovalbox \def\ovalbox{\VerbBox{\@ovalbox\thinlines}} \def\Ovalbox{\VerbBox{\@ovalbox\thicklines}} \def\@ovalbox#1#2{% \begingroup #1\relax \setbox\@fancybox\hbox{{#2}}% \@tempdimc\fboxsep \advance\@tempdimc\@wholewidth \@tempdima\ht\@fancybox \advance\@tempdima\dp\@fancybox \advance\@tempdima2\@tempdimc \@tempdimb\wd\@fancybox \advance\@tempdimb2\@tempdimc \fancy@@oval\@tempdimb\@tempdima{}% \@tempdima\dp\@fancybox \advance\@tempdima\@tempdimc \wd\@tempboxa=\z@ \leavevmode\hbox{% \lower\@tempdima\box\@tempboxa \kern\@tempdimc\box\@fancybox\kern\@tempdimc}% \endgroup} % \doublebox \def\doublebox{\VerbBox\@doublebox} \def\@doublebox#1{% \begingroup \setbox\@fancybox\hbox{{#1}}% \fboxrule=.75\fboxrule \setbox\@fancybox\hbox{\fbox{\box\@fancybox}}% \fboxrule=2\fboxrule \fboxsep=\fboxrule \advance\fboxsep .5pt \fbox{\box\@fancybox}% \endgroup} % Frames for seminar.sty: \@ifundefined{newslideframe}{}{% \newslideframe{shadow}{\shadowbox{#1}} \newslideframe{double}{\doublebox{#1}} \newslideframe{oval}{\ovalbox{#1}} \newslideframe{Oval}{\Ovalbox{#1}}} % Sbox environment \newbox\@Sbox \def\Sbox{\global\setbox\@Sbox\hbox\bgroup\ignorespaces} \def\endSbox{% \@testtrue\ifhmode\ifinner\@testfalse\fi\fi \if@test\@latexerr{Misplaced \string\endSbox! Should be in LR mode}\@ehd\fi \egroup} \def\TheSbox{% \ifvoid\@Sbox \@latexerr{\string\TheSbox\space is empty!}\@ehd \else \box\@Sbox \fi} \def\beginsbox#1{\setbox#1\hbox\bgroup\ignorespaces} \def\endsbox{\endSbox} % \VerbBox \newtoks\do@VerbBox \def\VerbBox#1{% \do@VerbBox{#1}% \afterassignment\begin@VerbBox \setbox\@fancybox=\hbox} \def\begin@VerbBox{\aftergroup\end@VerbBox} \def\end@VerbBox{\the\do@VerbBox{\box\@fancybox}}% % \Btrivlist \def\@Blistrestore{% \let\par\relax \let\-\@dischyph \let\'\@acci \let\`\@accii \let\=\@acciii \lineskip\normallineskip \baselineskip\normalbaselineskip} \def\Btrivlist#1{\@ifnextchar[{\@Btrivlist{#1}}{\@Btrivlist{#1}[]}} \def\@Btrivlist#1[#2]{% \@Blistrestore \let\\=\@Btrivlistcr \fb@beginvbox{#2}% \halign\bgroup \if#1l\else\@empty\hfil\fi \ignorespaces##\unskip \if#1r\@empty\else\hfil\fi\cr} \def\endBtrivlist{\crcr\egroup\egroup\if@pboxsw$\fi} \def\fb@beginvbox#1{% \leavevmode \@pboxswfalse \if#1b\@empty\vbox\else\if#1t\@empty\vtop\else \ifmmode\vcenter\else\@pboxswtrue$\vcenter\fi \fi\fi\bgroup} \def\@Btrivlistcr{\@ifstar {\@ifnextchar[{@@Btrivlistcr}{\cr}}{\@ifnextchar[{\@@Btrivlistcr}{\cr}}} \def\@@Btrivlistcr[#1]{\cr\noalign{\vskip #1}} \def\Bcenter{\Btrivlist{c}} \def\endBcenter{\endBtrivlist} \def\Bflushleft{\Btrivlist{l}} \def\endBflushleft{\endBtrivlist} \def\Bflushright{\Btrivlist{r}} \def\endBflushright{\endBtrivlist} % \Blist \def\Blist#1#2{\@ifnextchar[{\@Blist{#1}{#2}}{\@Blist{#1}{#2}[]}} \def\@Blist#1#2[#3]{% \ifnum\@listdepth>5 \@toodeep \else \global\advance\@listdepth\@ne \fi \itemindent\z@ \csname @list\romannumeral\the\@listdepth\endcsname \def\@itemlabel{#1}% \let\makelabel\@mklab \@nmbrlistfalse \@Blistrestore \let\\=\@Blistcr \let\item\Bitem \@Bitemswfalse #2\relax \fb@beginvbox{#3}% \halign\bgroup \ignorespaces##&\hskip\labelsep\ignorespaces##\unskip\hfil\cr} \def\endBlist{\endBtrivlist\global\advance\@listdepth\m@ne} \newif\if@Bitemsw \def\Bitem{\@ifnextchar({\@Bitemcr\Bitem@skip}{\@Bitemcr\@Bitem}} \def\@Bitemcr{% \if@Bitemsw \def\next{\cr\noalign{\vskip\itemsep}}% \else \def\next{\global\@Bitemswtrue}% \fi \next} \def\Bitem@skip(#1){\noalign{\vskip #1}\@Bitem} \def\@Bitem{\@ifnextchar[{\Bitem@label}{\Bitem@nolabel}} \def\Bitem@label[#1]{\makelabel{#1}&} \def\Bitem@nolabel{% \if@nmbrlist \expandafter\advance\csname c@\@listctr\endcsname1 \fi \makelabel{\@itemlabel}% &% \if@nmbrlist\refstepcounter{\@listctr}\fi} \def\@Blistcr{\@ifstar {\@ifnextchar[{@@Blistcr}{\cr&}}{\@ifnextchar[{\@@Blistcr}{\cr&}}} \def\@@Blistcr[#1]{\cr\noalign{\vskip #1}&} % \Bitemize \def\Bitemize{% \ifnum\@itemdepth>3 \@toodeep \else \advance\@itemdepth\@ne \fi \edef\@itemitem{labelitem\romannumeral\the\@itemdepth}% \Blist{\csname\@itemitem\endcsname}{\def\makelabel####1{\hfil####1}}} \def\endBitemize{\endBlist} % \Bdescription \def\Bdescription{\Blist{}{\def\makelabel####1{\bf####1\hfil}}} \def\endBdescription{\endBlist} % \Benumerate \def\Benumerate{% \ifnum\@enumdepth>3 \@toodeep \else \advance\@enumdepth\@ne \fi \edef\@enumctr{enum\romannumeral\the\@enumdepth}% \Blist{\csname label\@enumctr\endcsname}% {\usecounter{\@enumctr}\def\makelabel####1{\hfil####1}}} \def\endBenumerate{\endBlist} % Beqnarray \def\Beqnarray{% \stepcounter{equation}% \let\@currentlabel\theequation \def\@eqnnum{{\csname reset@font\endcsname\rm (\theequation)}}% \global\@eqnswtrue\m@th \global\@eqcnt\z@ \tabskip\@centering \let\\\@eqncr \vbox\bgroup \halign\bgroup \@eqnsel \hskip\@centering $\displaystyle\tabskip\z@{##}$% &\global\@eqcnt\@ne \hskip 2\arraycolsep \hfil${##}$\hfil &\global\@eqcnt\tw@ \hskip 2\arraycolsep $\displaystyle\tabskip\z@{##}$% \hfil \tabskip\@centering &\if@eqnsw\hskip 1em\fi \hfil{##}\tabskip\z@ \cr} \def\endBeqnarray{% \@@eqncr \egroup \global\advance\c@equation\m@ne \egroup \global\@ignoretrue} \@namedef{Beqnarray*}{\def\@eqncr{\nonumber\@seqncr}\Beqnarray} \@namedef{endBeqnarray*}{\nonumber\endBeqnarray} % \fb@outputage % Here we insert various hooks for rotating or framing the page. % Otherwise, it is the usual \@outputpage \def\fb@outputpage{% \begingroup \catcode`\ =10 \let\-\@dischyph \let\'\@acci \let\`\@accii \let\=\@acciii \if@specialpage \global\@specialpagefalse\@nameuse{ps@\@specialstyle}% \fi \if@twoside \ifodd\count\z@ \let\@thehead\@oddhead \let\@thefoot\@oddfoot \let\@themargin\oddsidemargin \else \let\@thehead\@evenhead \let\@thefoot\@evenfoot \let\@themargin\evensidemargin \fi \fi \csname reset@font\endcsname \normalsize \baselineskip\z@ \lineskip\z@ \let\par\@@par \ifx\this@fancypage\@empty\else \this@fancypage \gdef\this@fancypage{}% \fi \ifx\the@fancypage\@empty\else \setbox\@outputbox\hbox{\the@fancypage{\box\@outputbox}}% \fi \ifx\fb@@rotatepage\@empty\else \setbox\@outputbox\hbox{\fb@@rotatepage{\box\@outputbox}}% \fi \setbox\@outputbox\vbox{% \@tempdima=\wd\@outputbox \setbox\@tempboxa=\hbox to\@tempdima{% \let\label\@gobble \let\index\@gobble \let\glossary\@gobble \@thehead}% \ht\@tempboxa\headheight \dp\@tempboxa\z@ \box\@tempboxa \vskip\headsep \box\@outputbox \baselineskip\footskip \hbox to\@tempdima{% \let\label\@gobble \let\index\@gobble \let\glossary\@gobble \@thefoot}} \ifx\the@@fancypage\@empty\else \setbox\@outputbox\hbox{\the@@fancypage{\box\@outputbox}}% \fi \setbox\@outputbox\vbox{% \ifnum\fancyput@flag>-1 \do@fancyput\fi \vskip\topmargin \moveright\@themargin\box\@outputbox}% \ifx\fb@rotatepage\@empty\else \setbox\@outputbox\hbox{\lower\ht\@outputbox\box\@outputbox}% \dp\@outputbox\z@ \wd\@outputbox\z@ \setbox\@outputbox\hbox{\fb@rotatepage{\box\@outputbox}}% \expandafter\fb@setoffsets\fb@theoffsets \fi \shipout\box\@outputbox \global\@colht\textheight \endgroup \stepcounter{page}% \let\firstmark\botmark} % \fancypage \def\the@fancypage{} \def\the@@fancypage{} \def\this@fancypage{} \def\fancypage#1#2{% % DG/SR modification begin - May 16, 1997 \@begindvi % Need today by LaTeX 2e % DG/SR modification end \def\the@fancypage{#1}% \def\the@@fancypage{#2}% \def\@outputpage{\fb@outputpage}} \def\thisfancypage#1#2{% % DG/SR modification begin - May 16, 1997 \@begindvi % Need today by LaTeX 2e % DG/SR modification end \gdef\@outputpage{\fb@outputpage}% \gdef\this@fancypage{\def\the@fancypage{#1}\def\the@@fancypage{#2}}} % \fancyput % Token registers used to make it easier to put definitions in argument. % Boxes not processed until output so that contents can depend, e.g., on % current page or marks or whatever. This makes everything slightly more % complicated than one would expect. \newtoks\the@fancyput \newtoks\this@fancyput \def\fancyput@flag{-1}% % \fancyput@flag=-1 if no fancyput, 0 if regular fancyput, 1 if thisfancyput. \def\fancyput{% % DG/SR modification begin - May 16, 1997 \@begindvi % Need today by LaTeX 2e % DG/SR modification end \def\@outputpage{\fb@outputpage} \@ifstar{\@testtrue\@fancyput}{\@testfalse\@fancyput}} \def\@fancyput{\@ifnextchar({\@@fancyput}{\@@fancyput(\z@,\z@)}} \def\@@fancyput(#1,#2)#3{% \if@test \expandafter\the@fancyput\expandafter{\the\the@fancyput\do{#1}{#2}{#3}}% \else \the@fancyput{\do{#1}{#2}{#3}}% \fi \gdef\fancyput@flag{\z@}} \def\thisfancyput{% % DG/SR modification begin - May 16, 1997 \@begindvi % Need today by LaTeX 2e % DG/SR modification end \gdef\@outputpage{\fb@outputpage} \@ifstar{\@testtrue\@thisfancyput}{\@testfalse\@thisfancyput}} \def\@thisfancyput{\@ifnextchar({\@@thisfancyput}{\@@thisfancyput(\z@,\z@)}} \def\@@thisfancyput(#1,#2)#3{% \if@test \ifnum\fancyput@flag=\z@ \expandafter\global\expandafter\this@fancyput\expandafter{% \the\this@fancyput\do{#1}{#2}{#3}}% \else \expandafter\global\expandafter\this@fancyput\expandafter{% \the\the@fancyput\do{#1}{#2}{#3}}% \fi \else \global\this@fancyput{\do{#1}{#2}{#3}}% \fi \gdef\fancyput@flag{1}} \def\do@fancyput{% \def\do##1##2##3{\raise##2\hbox to\z@{\kern##1\relax##3\hss}}% \setbox\@tempboxa=\hbox to\z@{% \kern-\hoffset \raise\voffset\hbox{% \ifnum\fancyput@flag=\z@\the\the@fancyput\else\the\this@fancyput\fi}% \hss}% \ht\@tempboxa=\z@ \dp\@tempboxa=\z@ \box\@tempboxa \gdef\fancyput@flag{\z@}% \global\this@fancyput{}} % \Landscape \def\UsePageParameters{% \clearpage \global\@colht\textheight \onecolumn} \def\fb@rotatepage{} \def\Landscape{\@ifstar{\@testtrue\@Landscape}{\@testfalse\@Landscape}} \def\@Landscape#1#2#3{% % DG/SR modification begin - May 16, 1997 \@begindvi % Need today by LaTeX 2e % DG/SR modification end \clearpage \def\fb@rotatepage{#3}% \def\@outputpage{\fb@outputpage}% \@tempdima#1\relax \@tempdimb#2\relax \if@test \edef\fb@theoffsets{{\voffset}{\hoffset}{\number\@tempdima sp}}% \else \edef\fb@theoffsets{{\hoffset}{\voffset}{\number\@tempdimb sp}}% \fi \advance\@tempdimb-\@tempdima \advance\textwidth\@tempdimb \advance\textheight-\@tempdimb \UsePageParameters} \def\endLandscape{\clearpage\aftergroup\UsePageParameters} \def\fb@setoffsets#1#2#3{% \@tempdima#1% \advance#1#2% #2#3 \advance#2-2in \advance#2-\@tempdima} \@namedef{Landscape*}{\@testtrue\@Landscape} \@namedef{endLandscape*}{\endLandscape} % \LandScape \def\fb@@rotatepage{} \def\LandScape#1{% % DG/SR modification begin - May 16, 1997 \@begindvi % Need today by LaTeX 2e % DG/SR modification end \clearpage \def\fb@@rotatepage{#1}% \def\@outputpage{\fb@outputpage}% \@tempdima\textheight \textheight\textwidth \textwidth\@tempdima \UsePageParameters} \def\endLandScape{\clearpage\aftergroup\UsePageParameters} % \GenericCaption \def\GenericCaption#1{% \par \begingroup \@parboxrestore \normalsize \vskip 10\p@ \setbox\@tempboxa\hbox{#1}% \ifdim\wd\@tempboxa>\hsize #1\par \else \hbox to\hsize{\hfil\box\@tempboxa\hfil}% \fi \endgroup \par} % \landfloat \def\landfloat#1#2{% \gdef\curr@landfloat{#1}% \gdef\float@rotation{#2}% \begin{#1}[p]% \setbox\@tempboxa\vbox\bgroup \hsize\@colht \@parboxrestore} \def\endlandfloat{% \par\vskip\z@ \egroup \setbox\@tempboxa\hbox{\float@rotation{\box\@tempboxa}}% \centerline{\box\@tempboxa}% \expandafter\end\expandafter{\curr@landfloat}} % \boxput \def\boxput{\@ifstar{\@testtrue\@boxput}{\@testfalse\@boxput}} \def\@boxput{\@ifnextchar({\@@boxput}{\@@boxput(0,0)}} \long\def\@@boxput(#1,#2)#3#4{% \setbox\@fancybox\hbox{{#4}}% \setbox\@tempboxa\vbox to\z@{\vss\hbox to\z@{\hss{#3}\hss}\vss}% \@tempdima=#1\wd\@fancybox \advance\@tempdima\wd\@fancybox \divide\@tempdima 2 \ifcat a#2\relax \@tempdimb=\z@ \else \@tempdimb=.5\ht\@fancybox \advance\@tempdimb.5\dp\@fancybox \@tempdimc=\@tempdimb \advance\@tempdimc-\dp\@fancybox \@tempdimb=#2\@tempdimb \advance\@tempdimb\@tempdimc \fi \setbox\@tempboxa\hbox to \z@{% \if@test\kern-\wd\@fancybox\fi \kern\@tempdima\raise\@tempdimb\box\@tempboxa\hss}% \ht\@tempboxa=\z@ \dp\@tempboxa=\z@ \leavevmode \if@test \hbox{\box\@fancybox\box\@tempboxa}% \else \hbox{\box\@tempboxa\box\@fancybox}% \fi} % \Vfootnotes \def\VerbatimFootnotes{\let\@footnotetext\V@footnotetext} \long\def\V@footnotetext{% \afterassignment\V@@footnotetext \let\@tempa} \def\V@@footnotetext{% \insert\footins\bgroup \csname reset@font\endcsname \footnotesize \interlinepenalty\interfootnotelinepenalty \splittopskip\footnotesep \splitmaxdepth\dp\strutbox \floatingpenalty \@MM \hsize\columnwidth \@parboxrestore \edef\@currentlabel{\csname p@footnote\endcsname\@thefnmark}% \@makefntext{}% \rule{\z@}{\footnotesep}% \bgroup \aftergroup\V@@@footnotetext \ignorespaces} \def\V@@@footnotetext{\strut\egroup} % Verbatim % The main idea is to separate the reading and formatting of the % verbatim listing. It's pretty simple. \def\Verbatim@Codes{% \let\do\@makeother \dospecials \Verbatim@ObeyThings \ThisVerbCodes\relax\gdef\ThisVerbCodes{}} \def\EveryVerbatimCodes{} % \Verbatim is redefined temporarilly in \Get@Verbatim to scan the % verbatim text. \Verbatim is used so that error messages are more % enlightening. \next checks whether \Verbatim found its argument, % and attempts to recover if not. % % Heuristically, if current environment is `foo' and argument of % \Get@Verbatim is \The@Verbatim, then definition of \Verbatim is % % \def\Verbatim#1^^M#2^^M\the\EndVerbatimTokens\end{foo}{% % \xdef\The@Verbatim{\noexpand\Every@VerbatimLine#2}% % \endgroup\end{foo}} % % \The@Verbatim is then equal to the verbatim text, with spaces % replaced by \Verbatim@Space, tabs replaced by \Verbatim@Tab, % and ` replaced by \@lquote. In addition, each line begins with % \Every@VerbatimLine, and each line but the last ends with % \Verbatim@Par. It is then possible to redefine these when formatting % the verbatim text. To insert each line as an argument to \foo, use % \def\Every@VerbatimLine#1\Verbatim@Par{\foo{#1}} % \The@Verbatim\Verbatim@Par % \newtoks\EndVerbatimTokens \begingroup \catcode`\|=0 \catcode`\[=1 \catcode`\]=2 \catcode`\{=12 \catcode`\}=12 \catcode`\^^M=13% \catcode`\\=12% |gdef|Get@Verbatim#1[% |begingroup% |Verbatim@Codes|EveryVerbatimCodes% |let|protect|noexpand% |VerbatimEnvironment% |edef|next[|noexpand|def|noexpand|Verbatim####1|noexpand^^M####2% |noexpand^^M|the|EndVerbatimTokens\end{|@VerbEnvir}]% |edef|endVerbatim[|noexpand|endgroup|noexpand|end[|@VerbEnvir]]% |global|let|@VerbEnvir|relax% |next[|@nil|xdef#1[|noexpand|Every@VerbatimLine##2]|endVerbatim]% |def|next[|@ifnextchar|@nil[|@gobble]% If \@nil is there, then [|gdef#1[]|endVerbatim|end[document]]]% \Verbatim found its argument. |expandafter|next|Verbatim]% Otherwise, try to recover. |gdef|AltGet@Verbatim#1[% |begingroup% |Verbatim@Codes|EveryVerbatimCodes% |def^^M##1^^M##2[% |ifx|@nil##2|@empty|else% |noexpand|Verbatim@Par|noexpand|Every@VerbatimLine##1% |expandafter^^M|expandafter##2% |fi]% |let|protect|noexpand% |VerbatimEnvironment% |edef|next[|noexpand|def|noexpand|Verbatim####1|noexpand^^M####2% \end{|@VerbEnvir}]% |edef|endVerbatim[|noexpand|endgroup|noexpand|end[|@VerbEnvir]]% |global|let|@VerbEnvir|relax% |next[|@nil|xdef#1[|noexpand|Every@VerbatimLine##2^^M|@nil]|endVerbatim]% |def|next[|@ifnextchar|@nil[|@gobble]% [|gdef#1[]|endVerbatim|end[document]]]% |expandafter|next|Verbatim]% |endgroup \def\AltGetVerbatim{\let\Get@Verbatim\AltGet@Verbatim} % It is enough to not use \begin or \end when defining new verbatim % environments, as the default is for \Get@Verbatim to look for the % end of the current environment, but using \VerbatimEnvironment % is easier to explain to users. \def\VerbatimEnvironment{% \ifx\@VerbEnvir\relax\xdef\@VerbEnvir{\@currenvir}\fi} \let\@VerbEnvir\relax \def\The@VerbatimErr{% \gdef\The@Verbatim{\@latexerr{Misplaced \string\end{Verbatim}}\@ehd}} \The@VerbatimErr \begingroup \catcode`\^^M=\active% \catcode`\ =\active% \catcode`\^^I=\active% \gdef\Verbatim@ObeyThings{% \catcode`\^^M=\active% \catcode`\ =\active% \catcode`\^^I=\active% \catcode``=\active% \def^^M{\noexpand\Verbatim@Par\noexpand\Every@VerbatimLine}% \def^^I{\noexpand\Verbatim@Tab}% \def {\noexpand\Verbatim@Space}% \Verbatim@NoLigs}% \gdef\Verbatim@DontObeyLines{\outer\def^^M{}}% \endgroup \def\SaveVerbatim{\@bsphack\Get@Verbatim} \def\endSaveVerbatim{\@esphack} {\catcode``13 \gdef\Verbatim@NoLigs{\def`{\noexpand\@lquote}}} \def\Verbatim@Prep{% \frenchspacing \ThisVerb\relax\gdef\ThisVerb{}% \VerbatimFont \EveryVerbatim \let\Every@VerbatimLine\EveryVerbatimLine \def\Verbatim@Space{\leavevmode\penalty\@M\VerbatimSpace}% \def\Verbatim@Tab{\leavevmode\penalty\@M\VerbatimTab}}% \def\Verb@Prep{% \frenchspacing \ThisVerb\relax\gdef\ThisVerb{}% \VerbFont \EveryVerb \let\Every@VerbatimLine\EveryVerbatimLine \def\Verbatim@Space{\leavevmode\penalty\@M\VerbSpace}% \def\Verbatim@Tab{\leavevmode\penalty\@M\VerbTab}}% \def\Verbatim@Par{\leavevmode\null\@@par\penalty\interlinepenalty} % Parameter initialization: \def\VerbatimSpace{\ } {\catcode`\ =12\gdef\ttspace{{\tt }}} \def\VerbSpace{\ } \def\VerbatimTab{\ \ \ \ \ \ \ \ } \def\VerbTab{\ } \def\EveryVerbatim{} \def\EveryVerb{} \def\ThisVerb{} \def\EveryVerbatimLine{}% \def\EveryVerbOutLine{} \def\VerbatimFont{\tt} \def\VerbFont{\tt} \def\VerbatimFuzz{2pt}% \def\EveryVerbatimCodes{} \def\EveryVerbCodes{} \def\EveryVerbOutCodes{} \def\ThisVerbCodes{} \def\Verbatim@List#1{% \if@minipage\else\vskip\parskip\fi \leftskip\@totalleftmargin \@rightskip\@flushglue \rightskip\@rightskip \parindent\z@ \parskip\z@ \parfillskip\@flushglue \hfuzz\VerbatimFuzz\relax \@@par \global\@inlabelfalse %Prevents vspace from being inserted when \Verbatim@Prep %first line exceeds \hsize. #1% \Verbatim@Par}% \def\UseVerbatim#1{% \begingroup\trivlist\item[]\Verbatim@List{#1}\endtrivlist\endgroup} \def\Verbatim{\Get@Verbatim\The@Verbatim} \def\endVerbatim{\UseVerbatim\The@Verbatim\The@VerbatimErr} \def\LUseVerbatim#1{% \begingroup\list{}{}\item[]\Verbatim@List{#1}\endlist\endgroup} \def\LVerbatim{\Get@Verbatim\The@Verbatim} \def\endLVerbatim{\LUseVerbatim\The@Verbatim\The@VerbatimErr} \def\BUseVerbatim{% \@ifnextchar[{\@BUseVerbatim}{\@BUseVerbatim[]}} \def\@BUseVerbatim[#1]#2{% \begingroup \Verbatim@Prep \let\Verbatim@Par\@Btrivlistcr \@Btrivlist{l}[#1]% #2% \endBtrivlist \endgroup}% \def\BVerbatim{% \catcode`\^^M=13\relax \@ifnextchar[{\@BVerbatim}{\@BVerbatim[]}} \def\@BVerbatim[#1]{\def\@tempa{[#1]}\Get@Verbatim\The@Verbatim} \def\endBVerbatim{ \expandafter\@BUseVerbatim\@tempa\The@Verbatim\The@VerbatimErr} \newwrite\Verbatim@Outfile \def\VerbatimOut#1{% \@bsphack \begingroup \immediate\openout\Verbatim@Outfile #1\relax \def\EveryVerbatimCodes{\EveryVerbOutCodes}% \Get@Verbatim\The@Verbatim} \def\endVerbatimOut{% \Verbatim@ObeyThings \def\Verbatim@Par{^^J}% \def\Verbatim@Space{\space}% \def\Verbatim@Tab{\space}% \def\@lquote{\string`}% \ThisVerb\relax\gdef\ThisVerb{}% \let\Every@VerbatimLine\EveryVerbOutLine \immediate\write\Verbatim@Outfile{\The@Verbatim}% \immediate\closeout\Verbatim@Outfile \endgroup \The@VerbatimErr \@esphack} % This one is a little tricky because: % * we want to ignore the ^^M at the end of the last line, % * we want to handle files that end with newline and files that don't % * we want comment characters to work properly, % * we want to expand each line before inserting \Every@VerbatimLine and % \Verbatim@Par, % % \The@GVerbatim is used as scratch with global redefinition. \newread\Verbatim@Infile \def\Verbatim@Input#1#2{% \begingroup \Verbatim@Codes\EveryVerbatimCodes \immediate\openin\Verbatim@Infile #1\relax \ifeof\Verbatim@Infile \@latexerr{No verbatim file #1}\@ehd \else \def\The@GVerbatim{}\Verbatim@NextLine \ifeof\Verbatim@Infile \@latexerr{Verbatim file #1 is empty}\@ehd \else \let\The@Verbatim\The@GVerbatim \def\The@GVerbatim{}\Verbatim@NextLine #2{\Verbatim@@Input}% \fi \fi \immediate\closein\Verbatim@Infile \endgroup} \def\Verbatim@@Input{% \let\protect\noexpand \edef\The@Verbatim{% \noexpand\Every@VerbatimLine \The@Verbatim \ifeof\Verbatim@Infile\else\noexpand\Verbatim@Par\fi}% \let\protect\relax \The@Verbatim \ifeof\Verbatim@Infile\else \let\The@Verbatim\The@GVerbatim \def\The@GVerbatim{}\Verbatim@NextLine \expandafter\Verbatim@@Input \fi}% \begingroup\catcode`\^^M=\active% \gdef\Verbatim@NextLine{% \ifeof\Verbatim@Infile\else% \immediate\read\Verbatim@Infile to\@tempa% \expandafter\Verbatim@@NextLine\@tempa^^M\relax^^M\@nil% \fi}% % #2 is empty if line ends in ^^M, #2=\relax otherwise. \gdef\Verbatim@@NextLine#1^^M#2^^M#3\@nil{% \expandafter\gdef\expandafter\The@GVerbatim\expandafter{\The@GVerbatim#1}% \ifx#2\@empty\@empty\else\expandafter\Verbatim@NextLine\fi}% \endgroup% \def\UseVerb#1{\begingroup\Verb@Prep#1\endgroup} \def\SaveVerb{\@ifnextchar[{\Save@Verb}{\Save@Verb[]}} \long\def\Save@Verb[#1]#2{% \begingroup \Verbatim@Codes\Verbatim@DontObeyLines\EveryVerbCodes \Save@@Verb{#1}{#2}} \long\def\Save@@Verb#1#2#3{% \let\protect\noexpand \def\next{\@ifnextchar\@nil{\@gobble}{\endgroup}}% \long\def\Verb##1#3{\@nil\xdef#2{##1}\endgroup#1}% \expandafter\next\Verb} \def\Verb{\Save@Verb[\UseVerb{\The@Verbatim}]{\The@Verbatim}} \def\VerbatimInput#1{\begingroup\Verbatim@Input{#1}\UseVerbatim\endgroup} \def\LVerbatimInput#1{\begingroup\Verbatim@Input{#1}\LUseVerbatim\endgroup} \def\BVerbatimInput{\@ifnextchar[{\@BVerbatimInput}{\@BVerbatimInput[]}} \def\@BVerbatimInput[#1]#2{% \begingroup\Verbatim@Input{#2}{\@BUseVerbatim[#1]}\endgroup} \endinput %% END fancybox.sty ifeffit-1.2.11d/doc/Tutorial/0000755000175000017500000000000010771740460014726 5ustar segresegreifeffit-1.2.11d/doc/Tutorial/ifmacs_html.tex0000644000175000017500000000213210771740460017734 0ustar segresegre%% macros for ifeffit -*-latex-*- \usepackage{html,color} \definecolor{color0}{rgb}{0.00,0.00,0.70} \definecolor{color1}{rgb}{0.90,0.00,0.00} \definecolor{color2}{rgb}{0.00,0.00,0.70} \newcommand{\Newvemail}{newville@cars.uchicago.edu} \newcommand{\mailto}[1]{{\htmladdnormallink{mailto:#1}{#1}}} \newcommand{\mailNewv}{\mailto{\Newvemail}} \newcommand{\IFFURL}{http://cars9.uchicago.edu/ifeffit/} \newcommand{\IFFIMG}{http://cars9.uchicago.edu/ifeffit/images/refman/} \newcommand{\FEFFURL}{http://leonardo.phys.washington.edu/~feff/} \newcommand{\PERLURL}{http://www.perl.com/} \newcommand{\TCLURL}{http://www.scriptics.com/} \newcommand{\PYTHONURL}{http://www.python.org/} \newcommand{\PGPLOTURL}{http://www.astro.caltech.edu/~tjp/pgplot/} \newcommand{\WWWiff}{\htmladdnormallink{\IFFURL}{\IFFURL}} \newcommand{\WWWperl}{\htmladdnormallink{\PERLURL}{\PERLURL}} \newcommand{\WWWtcl}{\htmladdnormallink{\TCLURL}{\TCLURL}} \newcommand{\WWWpython}{\htmladdnormallink{\PYTHONURL}{\PYTHONURL}} \newcommand{\WWWpgplot}{\htmladdnormallink{\PGPLOTURL}{http://www.astro.caltech.edu/\~{}tjp/pgplot/}} ifeffit-1.2.11d/doc/Tutorial/ifmacs_ps.tex0000644000175000017500000001252510771740460017421 0ustar segresegre%% macros for ifeffit -*-latex-*- %% determine if this is pdflatex or latex \newif\ifpdf \ifx\pdfoutput\undefined{\pdffalse}\else{\pdfoutput=1 \pdftrue}\fi % %%% % \ifpdf \usepackage[pdftex]{color} \definecolor{color0}{rgb}{0.00,0.00,0.00} \definecolor{color1}{rgb}{0.00,0.00,0.00} \definecolor{color2}{rgb}{0.00,0.00,0.00} \usepackage[pdftex,colorlinks,hyperindex,urlcolor=color0,% linkcolor=color1,citecolor=color2]{hyperref} \else \usepackage{color} \definecolor{color0}{rgb}{0.00,0.00,0.00} \definecolor{color1}{rgb}{0.00,0.00,0.00} \definecolor{color2}{rgb}{0.00,0.00,0.00} \usepackage[colorlinks,hyperindex,urlcolor=color0,% linkcolor=color1,citecolor=color2]{hyperref} \fi % %% \setlength{\oddsidemargin}{0.25in} \setlength{\evensidemargin}{-0.25in} \setlength{\topmargin}{-0.25in} \setlength{\headsep}{0.375in} \setlength{\textheight}{9.00in} \setlength{\textwidth}{5.875in} \pagestyle{fancy} \fancyhf{} \addtolength{\headwidth}{24pt} \addtolength{\headheight}{2pt} \renewcommand{\headrulewidth}{0.7pt} \rhead{\slshape\thepage}\lhead{\bfseries\leftmark} \cfoot{} \definecolor{LightGrey}{gray}{0.675} \definecolor{HalfGrey}{gray}{0.5} \newcommand{\greyline}{{\color{LightGrey}{\rule{\linewidth}{0.75mm}}\par}} \newcommand{\ThickGreyLine}{{\color{HalfGrey}{\rule{\linewidth}{5pt}}\par}} \newcommand{\myemail}{newville@cars.uchicago.edu} \newcommand{\www}{http://cars9.uchicago.edu/\~{}newville/} \newcommand{\WWWiff}{http://cars9.uchicago.edu/ifeffit/} \newcommand{\FEFFURL}{http://leonardo.phys.washington.edu/~feff/} \newcommand{\ShowURL}{\href{\WWWiff}{\WWWiff}} \newcommand{\mailto}[1]{{\href{mailto:#1}{#1}}} \newenvironment{VerbSBox}% {\VerbatimEnvironment\begin{Sbox}% \begin{minipage}{5.00truein}\begin{Verbatim}}% {\end{Verbatim}\end{minipage}\end{Sbox}\setlength{\fboxsep}{2mm}{% \begin{flushright}\shadowbox{\TheSbox}\end{flushright}}} %% \newenvironment{myquotex}% {\VerbatimEnvironment\begin{minipage}{5.00truein}\begin{Verbatim}}% {\end{Verbatim}\end{minipage}\noindent} %% %% \font\slanttt=cmsltt10 \font\titlefont=cmr17 scaled\magstep1 \newcommand{\program}[1]{{{\scshape{#1}}}} \newcommand{\uwxafs}{\program{uwxafs3.0}} \newcommand{\feff}{\program{feff}} \newcommand{\feffit}{\program{feffit}} \newcommand{\autobk}{\program{autobk}} \newcommand{\atoms}{\program{atoms}} \newcommand{\ifeffit}{\program{ifeffit}} \newcommand{\gifeffit}{\program{g.i.feffit}} \newcommand{\XAIBook}{\textsl{XAFS Analysis with {\ifeffit} }} %external file name \newcommand{\file}[1]{{{\slshape\ttfamily{#1}}}} \newcommand{\feffndat}{\file{feffnnnn.dat}} \newcommand{\feffbin}{\file{feff.bin}} \newcommand{\autobkinp}{\file{autobk.inp}} \newcommand{\feffitlog}{\file{feffit.log}} %math constructions \newcommand{\Eo}{{\ensuremath{E_0}}} \newcommand{\muE}{{\ensuremath{\mu(E)}}} \newcommand{\Del}{{\ensuremath{\Delta \mu_0(E_0)}}} \newcommand{\bkg}{{\ensuremath{\mu_{0}(E)}}} \newcommand{\bkgk}{{\ensuremath{\mu_{0}(k)}}} \newcommand{\CHI}{{\ensuremath{\chi}}} \newcommand{\chiE}{{\ensuremath{\chi(E)}}} \newcommand{\chik}{{\ensuremath{\chi(k)}}} \newcommand{\chir}{{\ensuremath{\tilde\chi(R)}}} \newcommand{\chiq}{{\ensuremath{\tilde\chi(k)}}} \newcommand{\chisqr}{{\ensuremath{\chi^2}}} \newcommand{\redchi}{{\ensuremath{\chi^2_{\nu}}}} \newcommand{\Rmax}{{\ensuremath{R_{\rm max}}} } \newcommand{\kmin}{{\ensuremath{k_{\rm min}}} } \newcommand{\kmax}{{\ensuremath{k_{\rm max}}} } \newcommand{\Rbkg}{{\ensuremath{R_{\rm bkg}}} } \newcommand{\Nbkg}{{\ensuremath{N_{\rm bkg}}} } \newcommand{\RIst}{{\ensuremath{R_{\rm 1st}}} } \newcommand{\angst}{\ensuremath{{\rm\,\AA}}} \newcommand{\iangst}{\ensuremath{{\rm\,\AA^{-1}}}} \newcommand{\ie}{{\emph{i.e.}}} \newcommand{\eg}{{\emph{e.g.}}} \newcommand{\etal}{{\emph{et al.}}} \newcommand{\abinitio}{{\emph{ab initio}}} %% \def\delim{\ensuremath{\langle {\rm delimiter} \rangle}} \def\rmand{{\rm and\ }} \def\rmor{{\rm or\ }} \def\caret{{\^\ \kern-0.9em}} \newcommand{\seealso}[1]{{{\texttt{{#1}}} (Section~\ref{Ch:Command:#1})}} \newcommand{\subfunc}[1]{\subsection{{\texttt{{#1}}}}{\label{Ch:Command:#1}\index{{\texttt{{#1}}}}}} \newcommand{\entrylabel}[1]{\mbox{{\textsf{#1: }}}\hfil} \newcommand{\yes}{Y} \newenvironment{IFFcom}{\begin{list}{}{\vspace{-0.05truein} \renewcommand{\makelabel}{\entrylabel}\settowidth{\leftmargin}{97pt} \settowidth{\labelwidth}{95pt}\setlength{\rightmargin}{15pt} \setlength{\labelsep}{2pt}\setlength{\listparindent}{0pt} \setlength{\itemindent}{0pt}\setlength{\itemsep}{-1pt}}} {\end{list}} % \newenvironment{entry}{\begin{list}{}{\renewcommand{\makelabel}{\entrylabel} % \setlength{\labelwidth}{35pt}\setlength{\labelsep}{2pt} % \setlength{\leftmargin}{37pt}}} % {\end{list}} %% \newenvironment{myverb}% {\VerbatimEnvironment% \small\par\smallskip{\setlength{\parindent}{1.8750truein}}\begin{Verbatim}}% {\end{Verbatim}\par\smallskip\noindent} %% \newenvironment{myverbxx}% {\VerbatimEnvironment% \small\par\medskip\begin{minipage}{5.25truein}% {\setlength{\parindent}{1.750truein}}\begin{Verbatim}}% {\end{Verbatim}\end{minipage}\par\medskip\noindent} \ifpdf{\pdfinfo{/Author (Matthew Newville) /Title (The IFEFFIT Tutorial) /Subject (Program Document for IFEFFIT) /Keywords (XAFS, Data Analysis, FEFF) } }\fi %% ifeffit-1.2.11d/doc/Tutorial/title_html.tex0000644000175000017500000000104510771740460017615 0ustar segresegre \begin{htmlonly} \begin{rawhtml}

The IFEFFIT Tutorial

Matthew Newville
Consortium for Advanced Radiation Sources
University of Chicago, Chicago, IL

\end{rawhtml} Version {\Vers} \begin{rawhtml}
\end{rawhtml} {\update} \begin{rawhtml}

This tutorial is also available in the following formats:
[ PDF | Postscript ] \end{rawhtml} \end{htmlonly} % ifeffit-1.2.11d/doc/Tutorial/Makefile0000644000175000017500000000534710771740460016377 0ustar segresegre######################################################################### # makefile for latex documents: relies heavily on the latexmk script # possible targets: # dvi default: run latexmk # ! latex at least once for sure # dep re-scan dependencies # ps make postscript # pdf make pdf # html make html with latex2html # clean remove non-essential files # all make postscript, pdf, html ######################################################################### TARGET = tutor INSTALLDIR = /home/newville/public_html/ifeffit/tut_test/ TEXFILE = $(TARGET).tex OUTFILE = $(TARGET).out PSFILE = $(TARGET).ps DVIFILE = $(TARGET).dvi PDFFILE = $(TARGET).pdf BBLFILE = $(TARGET).bbl AUXFILE = $(TARGET).aux INDEXFILE= $(TARGET).ind # # HTMLMACS = ifmacs_html.tex PDFMACS = ifmacs_pdf.tex PSMACS = ifmacs_ps.tex TEXMACS = ifmacs.tex PDFTITLE = title_pdf.tex HTMLTITLE = title_html.tex TITLE = title.tex MAKE_ARCHIVE = MakeArchive FIXSBOX = ../scripts/Fixsbox LMAKE = ../scripts/latexmk FIX_PDF = ../scripts/FixPDFout L2H_INIT = -init_file ../scripts/dot.latex2html-init PDFLATEX = pdflatex HTMLDIR = tutorial LATEX2HTML = latex2html -dir $(HTMLDIR) -mkdir L2H_OPTS = -local_icons -image_type gif -transparent -white -verbosity 0 -no_math -html_version 3.2,math,table -show_section_numbers -title "IFEFFIT Tutorial" .PHONY: ! dep ps pdf bib clean html all dvi: $(TITLE) $(TEXMACS) cp $(PSMACS) $(TEXMACS) $(FIXSBOX) -d dvi $(TEXFILE) rm -rf *.bak $(LMAKE) -f $(TEXFILE) ! : $(TITLE) $(TEXMACS) $(LMAKE) -g -f $(TEXFILE) dep: $(TITLE) $(TEXMACS) $(LMAKE) -f -i $(TEXFILE) ps: $(TITLE) $(TEXMACS) make dvi $(LMAKE) -f -ps $(TEXFILE) $(TITLE): cp $(PDFTITLE) $(TITLE) $(TEXMACS): cp $(PSMACS) $(TEXMACS) pdf: $(PDFTITLE) $(PDFMACS) cp $(PDFMACS) $(TEXMACS) cp $(PDFTITLE) $(TITLE) $(FIXSBOX) -d pdf $(TEXFILE) rm -rf *.bak $(PDFLATEX) $(TEXFILE) $(FIX_PDF) $(OUTFILE) > x.out ; mv x.out $(OUTFILE) $(PDFLATEX) $(TEXFILE) html: $(HTMLTITLE) $(HTMLMACS) cp $(HTMLTITLE) $(TITLE) cp $(HTMLMACS) $(TEXMACS) $(FIXSBOX) -d html $(TEXFILE) rm -rf *.bak rm -rf $(HTMLDIR) $(LMAKE) -f $(TEXFILE) $(LATEX2HTML) $(L2H_INIT) $(L2H_OPTS) $(TEXFILE) rm -rf $(HTMLDIR)/TMP $(HTMLDIR)/images.* $(HTMLDIR)/*.pl all: pdf ps html install: all rm -rf $(INSTALLDIR) cp -pr $(HTMLDIR) $(INSTALLDIR) cp -pr $(PSFILE) $(PDFFILE) $(INSTALLDIR). bib: make $(BBLFILE) clean : $(LMAKE) -C $(TEXFILE) rm -f *.aux $(PDFFILE) $(TITLE) $(TEXMACS) $(OUTFILE) rm -rf $(HTMLDIR) $(DVIFILE): *.tex latex $(TEXFILE) $(PDFFILE): pdf $(BBLFILE): biblio.bib *.aux bibtex $(TARGET) $(INDEXFILE): *.aux *.tex makeindex $(TARGET) $(AUXFILE): *.tex latex $(TEXFILE) ifeffit-1.2.11d/doc/Tutorial/ifmacs_pdf.tex0000644000175000017500000000362510771740460017551 0ustar segresegre%% macros for ifeffit -*-latex-*- %% determine if this is pdflatex or latex \newif\ifpdf \ifx\pdfoutput\undefined{\pdffalse}\else{\pdfoutput=1 \pdftrue}\fi % %%% % \ifpdf \usepackage[pdftex]{color} \definecolor{color0}{rgb}{0.00,0.00,0.70} \definecolor{color1}{rgb}{0.90,0.00,0.00} \definecolor{color2}{rgb}{0.00,0.00,0.70} \usepackage[pdftex,colorlinks,hyperindex,urlcolor=color0,% linkcolor=color1,citecolor=color2]{hyperref} \else \usepackage{color} \definecolor{color0}{rgb}{0.00,0.00,0.70} \definecolor{color1}{rgb}{0.90,0.00,0.00} \definecolor{color2}{rgb}{0.00,0.00,0.70} \usepackage[colorlinks,hyperindex,urlcolor=color0,% linkcolor=color1,citecolor=color2]{hyperref} \fi % %% \newcommand{\Newvemail}{newville@cars.uchicago.edu} \newcommand{\mailto}[1]{{\href{mailto:#1}{#1}}} \newcommand{\mailNewv}{\mailto{\Newvemail}} \newcommand{\IFFURL}{http://cars9.uchicago.edu/ifeffit/} \newcommand{\FEFFURL}{http://leonardo.phys.washington.edu/~feff/} \newcommand{\PERLURL}{http://www.perl.com/} \newcommand{\TCLURL}{http://www.scriptics.com/} \newcommand{\PYTHONURL}{http://www.python.org/} \newcommand{\PGPLOTURL}{http://www.astro.caltech.edu/~tjp/pgplot/} \newcommand{\WWWiff}{\href{\IFFURL}{\IFFURL}} \newcommand{\WWWperl}{\href{\PERLURL}{\PERLURL}} \newcommand{\WWWtcl}{\href{\TCLURL}{\TCLURL}} \newcommand{\WWWpython}{\href{\PYTHONURL}{\PYTHONURL}} \newcommand{\WWWpgplot}{\href{\PGPLOTURL}{http://www.astro.caltech.edu/\~{}tjp/pgplot/}} %% \ifpdf{\pdfinfo{/Author (Matthew Newville) /Title (The IFEFFIT Reference Guide) /Subject (Program Document for IFEFFIT) /Keywords (XAFS, FEFF) } }\fi \newenvironment{VerbSBox}% {\VerbatimEnvironment\begin{Sbox}% \begin{minipage}{5.00truein}\begin{Verbatim}}% {\end{Verbatim}\end{minipage}\end{Sbox}\setlength{\fboxsep}{2mm}{% \begin{flushright}\shadowbox{\TheSbox}\end{flushright}}} %% ifeffit-1.2.11d/doc/Tutorial/tutor.tex0000644000175000017500000024740610771740460016642 0ustar segresegre%% tutor.tex -*-latex-*- %% \documentclass[11pt]{article} \usepackage{fancybox,fancyhdr,times} \newcommand{\Vers}{{1.2.6}} \newcommand{\update}{July 07, 2004} %%#Macros% \include{ifmacs_pdf} \include{ifmacs_com} \makeindex \begin{document} \include{title} \include{license} \section{Introduction}\label{s:intro} {\ifeffit} is an interactive program for XAFS data analysis. The main program runs like a command-line 'shell', in which you enter commands to process and manipulate data. {\ifeffit} has a high-level command language, allowing you to do the complex data manipulation needed for XAFS analysis (such as background subtraction and Fourier transforms) with simple commands. One of the principle features of {\ifeffit} is that it's command-line functionality can be run in either interactively, from files of commands (i.e., batch files), or accessed from within other programming and high-level scripting languages like Tcl, Perl, and Python. While the details of how this is done are beyond the scope of this tutorial, most people actually use {\ifeffit} through one of the GUI programs written on-top of the basic {\ifeffit} engine, such as {\program{athena}}, {\program{artemis}}, or {\program{sixpack}}. In this sense, {\ifeffit} is not a single program, but a family of related programs and libraries using a common underlying engine. This tutorial gives a brief description of the command structure and syntax of the {\ifeffit} engine, and an overview of the main {\ifeffit} command-line program. Other documentation is available at the {\ifeffit} web site: {\WWWiff} \subsection{Running {\ifeffit}} \label{s:running} Once {\ifeffit} has been installed on your computer, typing {\tt{ifeffit}} at the system command prompt (or double-clicking on the appropriate icon) will start the basic {\ifeffit} program. You should get a set of messages and a command prompt that looks something like this: {\small\begin{verbatim} Ifeffit 1.2.6 Copyright (c) 2004 Matt Newville, Univ of Chicago command-line shell version 1.1 with GNU Readline Ifeffit> \end{verbatim}}\noindent At this point, you're ready to start typing {\ifeffit} commands at the prompt. Try typing {\small\begin{verbatim} Ifeffit> print '1 + 1 = ' 1+1 \end{verbatim}} \noindent If the result makes sense to you, you're ready to continue. Now that you've started {\ifeffit} successfully, the rest of this tutorial describes {\emph{what}} to type. To exit {\ifeffit}, you can type {\tt{quit}}. The main {\ifeffit} program has a friendly shell environment and allows a simple subset of system-level commands to be executed from within the command-line program. On Unix systems, the commands {\tt{ls}} and {\tt{more}} will give a directory listing and show the contents of a file, respectively. On Windows, the command {\tt{dir}} takes the place of {\tt{ls}}. Typing {\tt{help}} will give a brief list of the most common commands, while {\tt{help \emph{}}} will give a little more of information on the nature and use of the selected command. The command {\emph{history buffer}} is accessible through the up- and down-arrow keys, so that you can scroll through and edit previously executed commands. Further information about the command-line program on Unix systems is given in section~{\ref{s:cmdline}}. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%% \clearpage \section{Data, Commands, and Simple Data Manipulation} \label{s:datatypes} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% {\ifeffit} has a simple view of data, and gives you access this data through high-level commands. There are three types of data that {\ifeffit} distinguishes: {\emph{scalars}} contain a single floating point number, {\emph{arrays}} contains a list or vector of floating point numbers, and {\emph{strings}} contains a set of text characters. If you've done any programming, these data types should be familiar to you. In keeping with the language of computer programming, I'll refer to the data in {\ifeffit} as {\emph{Variables}}. These are not necessarily the quantities varied in a fit you might do with your data: I'll call those {\emph{Fitting Variables}} when there's room for confusion. \subsection{Data Types and Naming Conventions}\label{s:datatypes:names} Variables in {\ifeffit} are named, and you can create, name, and manipulate your own data variables. This makes {\ifeffit} a fairly general purpose calculator and data plotter. That is, you can type something like this at the {\ifeffit} command line: {\small\begin{verbatim} Ifeffit> a = 5 Ifeffit> phi = (sqrt(a) + 1 ) /2 Ifeffit> print a, phi 5.00000000 1.61803399 Ifeffit> print sin(10) -0.544021111 \end{verbatim}}\noindent Well, that only shows how to use {{scalars}}, not arrays or strings, but it does show how {\ifeffit} allows you to do simple calculations using syntax similar to most procedural programming languages. {\ifeffit} distinguishes its three data types {\emph{by name}}. This allows both you and {\ifeffit} to know exactly what kind of data each variable holds. Here are the naming rules for the variables: {\bf{Scalars}} must have names that begin with a letter, ampersand '\&', or underscore '\_', and then contain letters, numbers, ampersands, and underscores after that. The names are not sensitive to case: {\tt{A}} is the same as {\tt{a}}. {\bf{Arrays}} have names that always have exactly one dot ('.'). This gives array names a prefix and suffix. The prefix of the array name is associated with the array {\emph{Group}}, which is a simple and effective way to make several arrays related to each other. The naming rules for the prefix or group name are exactly the same as for scalars. The suffix of the array name is associated with the array contents. The naming rules for the suffix are similar to those for scalars, but relaxed to allow it to begin with numbers as well as letters, ampersand '\&\, or underscore '\_'. Thus, 'data.energy' and 'data.xmu' are array names, and are said to be in the group 'data'. When we get to discussing commands for doing background removal, Fourier transforms, and the like, we'll see that arrays created by {\ifeffit} commands will use the same group name as the input data, which make it easy to keep a group of data together. Other valid array names are 'cu.1' and '\_XX\_.001'. {\bf{Strings}} have names that always begin with a dollar sign '\$', and contain letters, numbers, ampersands, and underscores after that. You can define a string like this: {\small\begin{verbatim} Ifeffit> $string = Gosh, this is easy! Ifeffit> print $string Gosh, this is easy! \end{verbatim}}\noindent In fact, '\$1' and '\$99'' are valid string names, but their use is discouraged: '\$1' ... '\$9' may be internally overwritten whenever you invoke a macro, so it's not a good idea to rely on their values. There's one more thing to note on names for variables. By convention, ``system variables'' begin with an ampersand '\&' (or '\$\&' for system strings). This convention is not enforced in any way, but {\ifeffit} tends to use such system variables for things that effect its behavior (such as how output is written to the screen). Unusual behavior may result if you write over system variables without knowing what you're doing. \subsection{Data Manipulation}\label{s:datatypes:manip} As shown in the brief example at the beginning of the previous section, working with scalar variables in {\ifeffit} is easy. You can create and use variables with normal algebraic syntax: {\small\begin{verbatim} Ifeffit> a = 5 Ifeffit> phi = (sqrt(a) + 1 ) /2 Ifeffit> x = pi / phi Ifeffit> y = cos(7*x) Ifeffit> print a, phi, x, y 5.00000000 1.61803399 1.94161104 0.519178666 \end{verbatim}}\noindent All scalars are floating point numbers (16 bits of precision). The usual mathematical operators (sin, tan, log, exp, coth, and so on) are supported, and a few operators not often found are supported as well{\footnote{For a complete list of operators, consult the Reference Guide}}. The variables you define can be used anywhere in the mathematical expressions and assignment statements for other variables. Manipulating arrays is just as easy as manipulating scalars, though creating arrays of data is a bit more work. One very common way to create arrays is to read them in from data files -- that's covered in the next section\ref{s:fileio}. You can also create arrays from scratch using the built-in functions {\tt{indarr()}}, {\tt{ones()}}, and {\tt{zeros()}}. For example {\small\begin{verbatim} Ifeffit> test.index = indarr(10) \end{verbatim}}\noindent will create an array with elements (1,2,3,...,10). You can make other evenly spaced arrays: {\small\begin{verbatim} Ifeffit> npts = 100 Ifeffit> step = 0.01 Ifeffit> test.index = step * indarr(npts) \end{verbatim}}\noindent which will create an array with elements (0.01,0.02,...,1.0). (Starting with version 1.0053 you can also say {\small\begin{verbatim} Ifeffit> test.ones = range(0.01,1.0, 0.01) \end{verbatim}}\noindent to get the same effect. The range function takes "start, stop, step" as it's arguments). In addition, you can create arrays using {\small\begin{verbatim} Ifeffit> data.ones = ones(10) Ifeffit> data.null = zeros(1000) \end{verbatim}} \noindent which will create first an array with 10 elements, all set to 1: (1,1,1,...,1) and then an array of 1000 zeros. Once you have arrays created or read in from data files, manipulating them is easy: {\small\begin{verbatim} Ifeffit> test.index = indarr(100) Ifeffit> test.sqrt = sqrt( test.index / 10) \end{verbatim}}\noindent will fill {\tt{test.sqrt}} with square-roots of the numbers (0.1, 0.2, .... 10.0). Note that the assignment of {\tt{test.sqrt}} is automatically done {\emph{element-by-element}}, without looping over elements needed. In fact, {\ifeffit} doesn't even allow looping over the elements of an array. \subsection{Commands and their conventions} \label{s:datatypes:commands} The operations you type at the {\ifeffit} command line are interpreted as commands. In general, {\ifeffit} commands consist of a name, followed by a set of arguments, usually with a {\emph{keyword/value}} syntax: {\small\begin{verbatim} Ifeffit> command(key= value, key= value, key= value, ...) \end{verbatim}} \noindent The parentheses are optional, but if an opening parenthesis is used just after the command name, the closing one is required even if that means the command has to extend over multiple lines. We'll see that many commands will become quite long, so this ability will become convenient. Though they are optional, I'll use the parentheses when talking about commands, so you can tell I mean a command when I say {\tt{print()}}. The keywords are usually short descriptive names describing some parameter the command may need. The value is often a number, but can often be a variable, string, or even a mathematical expression -- a typical command would look like this: {\small\begin{verbatim} Ifeffit> spline(energy=data.e, xmu =data.xmu, rkbg=1, kweight="2") \end{verbatim}} \noindent The {{keyword/value}} syntax is not universal, and some commands (like the {\tt{print()}} command shown earlier) take simple lists of arguments separated by commas. Some commands even mix lists and {{keyword/value}} pairs: {\small\begin{verbatim} Ifeffit> command(argument1, argument2, argument2) Ifeffit> command(argument1, argument2, key= value, key= value, key=value) \end{verbatim}} \noindent This may seem a little surprising, especially since in the previous section we just used {\small\begin{verbatim} Ifeffit> a = 2 \end{verbatim}} \noindent which appears to have no command at all! The truth is that {\ifeffit} always expects a command to be the first word typed at the command line, but if the first word is not a known command, it uses the default command {\tt{def()}} -- short for define, not default -- to define a variable. That is, the above definition was translated to {\small\begin{verbatim} Ifeffit> def( a = 2 ) \end{verbatim}} \noindent As we'll see in the next section, this can have some profound consequences, so it is often useful to keep in mind that the {\tt{def()}} command is the default. I'll continue to use the simpler ``{\tt a = 2}'' syntax throughout this tutorial, and expect that you will too. \subsection{Storing Definitions of Scalars and Arrays: {\tt{show()}} and {\tt{def()}}}\label{s:datatypes:setdef} Because {\ifeffit} is primarily an XAFS modeling program, it is important to be able to set up both simple and complex models for XAFS path parameters that can be adjusted during a fit. To allow a flexible modeling environment, a principle feature of {\ifeffit} is to allow you to define Program Variables {\emph{by formula}} and have the values automatically updated when the values of variables in the formula change. An example will probably help. Let's consider the case of entering this seemingly innocent set of assignments (which, we now know, will use the {\tt{def()}} command): {\small\begin{verbatim} Ifeffit> a = 1 Ifeffit> b = a + 1 Ifeffit> a = 2 \end{verbatim}}\noindent What value should {\tt{b}} have: 2 or 3? In most computer languages and programs, {\tt{b}} is 2, because the formula for it has not been stored, only the value at the time of its assignment. For {\ifeffit} the value will be 3 -- the formula is stored, not just the value. The main advantage for this is that you could tell {\ifeffit} that {\tt{a}} is a fitting variable (by saying {\tt{guess a = 1}}, and use both {\tt{a}} and {\tt{b}} for parameters in the fitting model. No matter what value the fitting engine decides {\tt{a}} should have, {\tt{b}} will always obey the formula you specified. When we get to fitting XAFS and non-XAFS data, you'll find (at least, eventually) this somewhat unique behavior to be very useful. Sometimes, however. you really want {\tt{b}} to stay as 2, not be dependent on the future value of {\tt{a}}. That is, you sometimes want to turn off the 'store the formula' aspect of {\ifeffit}. To do this, all you need to do is use the {\tt{set()}} command as an alternative to {\tt{def()}}: {\small\begin{verbatim} Ifeffit> a = 1 Ifeffit> set(b = a + 1) Ifeffit> a = 2 \end{verbatim}}\noindent Now the formula for {\tt{b}} will not be saved, and it will remain 2 no matter how {\tt{a}} changes. Again, it is often useful to remember: \par\indent\indent {\bf The default command is {\tt{def()}}, which will save a variables definition.} \subsection{The {\tt{show()}} command} \label{s:datatypes:show} At some point you're going to want to get information back from {\ifeffit} such 'what exactly {\emph{is}} the value of {\tt{e0}}, anyway?' and 'what are the names of all the arrays I have?'. There are two main commands for showing such information about program variables, and there's no better place to introduce them then right now. The first command is {\tt{show()}}, which will show information about Program Variables and other {\ifeffit} objects like macros and paths (which we haven't gotten to yet, but which you'll find useful soon). To follow the example of the previous section, we can see the value and definitions of the scalars {\tt{a}} and {\tt{b}} like this: {\small\begin{verbatim} Ifeffit> a = 2 Ifeffit> b = a + 1 Ifeffit> show a a = 2.000000000 Ifeffit> show b b = 3.000000000 := a+1 \end{verbatim} }\noindent Note that not only the values are shown, but also the definitions, where appropriate. Although {\tt{a}} wasn't actually {\tt{set()}}, it was defined as an obviously constant value that didn't depend on any program variables, so {\feffit} knew to treat it as a {\tt{set}} value. The {\tt{show()}} command takes a list of things (scalars, strings, arrays, etc) to show. We could have said something like this: {\small\begin{verbatim} Ifeffit> a = 2, b = a + 1 Ifeffit> $doc_string = "here is a simple definition" Ifeffit> show $doc_string, a, b $doc_string = here is a simple definition a = 2.000000000 b = 3.000000000 := a+1 \end{verbatim} }\noindent % $ For arrays, {\tt{show()}} doesn't show all the data points, but a one-line summary of the data: {\small\begin{verbatim} Ifeffit> test.ones = ones(10) Ifeffit> test.index = 0.1 * indarr(100) Ifeffit> show test.ones, test.index test.ones = 10 pts [ 1.000 : 1.000 ] := ones(10) test.index = 100 pts [0.1000 : 10.00 ] := 0.1*indarr(100) \end{verbatim} }\noindent which shows {\tt{test.index}} to have 100 point, with a minimum value of 0.1 and a maximum value of 10, for example. As for defined scalars, the definition is shown after the ``:='' characters. It's often necessary to show {\emph{all}} the scalars, arrays, or string variables. The {\tt{show()}} has several modifiers to tell it to show entire classes of program variables. All the modifiers begin with the {\tt{@}} symbol, so to see the values and definitions of arrays, you'd say {\tt{show @arrays}}. To see all the scalars and strings, you'd say {\tt{show @scalars}} and {\tt{show @strings}}. If you try {\tt{show @scalars}} or {\tt{show @strings}}, you'll notice several scalars and strings that you didn't define, but are loaded in to the program as it starts. These include {\tt{pi}} and {\tt{etok}}\footnote{{\tt{etok}} is the value of $2m_e/\hbar^2$ in units on $\rm {\AA}^2/eV$, and is useful for converting x-ray energy values to photo-electron wavenumber: {\tt{ set kval = sqrt(etok * (energy-e0)) }}} and several ``system variables'' that begin with a {\&} (or \$\& for system string variables). As mentioned at the end of section~\ref{s:datatypes:names}, these ``system variables'' are used internally by {\ifeffit}, and though you can change their values, this is not necessarily recommended. For the most part these ``system variables'' can be ignored during normal use, and won't be discussed into detail in this tutorial. You may also notice that the order the scalars shown by {\tt{show @scalars}} is not the same order you put them in. The order may even change over time. This reflects the fact {\ifeffit} tries to manage the scalars and definitions for its own internal efficiency, and will attempt to arrange it so that the {\tt{set()}} values are listed before the {\tt{def()}} values. Since many commands can change the list of scalars, the order of listing may change at any time. The same behavior applies to arrays: {\ifeffit} will rearrange the list of arrays to suit its own needs and to try to list the ``constant'' arrays before the defined arrays. Speaking of array data, it's useful to see information about the groups of arrays, as analysis threads are generally done according to group. To show all the arrays in a particular group, you'd say {\tt{show @group=data}}, which will show all the arrays in the group {\tt{data}} as if you had said {\tt{show data.energy, data.xmu}} and so forth. To get a list of the array groups, type {\tt{show @groups}}. The {\tt{show()}} command can take other ``{\tt{@}}'' modifiers for {\feff} paths, macros, and fitting variables. These will be discussed when the time comes to discuss {\tt{feff}} paths, writing macros, and fitting. The {\tt{show()}} command has a modifier to show a brief description of all the commands: {\tt{show @commands}} will list of all commands. \subsection{The {\tt{print()}} command} \label{s:datatypes:print} We used the {\tt{print()}} command before, but haven't really explained what it's doing. Unlike the {\tt{show()}} command, which tends to show information about the data {\emph{type}}, the {\tt{print()}} command is a more literal command. That is, {\tt{print e0}} will simply print the values of the scalar {\tt{e0}}. No definitions will be shown. For array data, the entire array will be printed -- hardly ever what you really want, but sometimes it's necessary. At it's simplest, then, the {\tt{print()}} command prints the values of variables listed: {\small\begin{verbatim} Ifeffit> number = 99.0 Ifeffit> print number 99.0000000 Ifeffit> print pi, number, $doc_string 3.14159265 99.0000000 here is a string \end{verbatim} }\noindent %$ In addition to this simple behavior, the {\tt{print()}} command can print literal strings and also evaluate expressions in place. Thus, you can use {\tt{print()}} to write simple messages: {\small\begin{verbatim} Ifeffit> print " the square root of ", number, " is ", sqrt(number) the square root of 99.0000000 is 9.94987437 Ifeffit> $descrip = " # of seconds per year" Ifeffit> value = 365*24*60*60 Ifeffit> print $descrip, " = ", value # of seconds per year = 31536000.0 \end{verbatim} }\noindent In addition to the {\tt{print()}} command, there's also an {\tt{echo()}} command that simply prints a string: {\small\begin{verbatim} Ifeffit> echo "Hi Mom!" Hi Mom! \end{verbatim} }\noindent %$ This is not incredibly useful when typing at the command line, but does become useful when you load files of {\ifeffit} commands, as we'll see next. \subsection{Command Files} \label{s:datatypes:load} Typing at the command line is all well and good until you have to do it the third or fourth time, at which point it becomes pretty tedious. More importantly, it's not convenient for processing lots of data. For that, you'd like to be able to edit text files of {\ifeffit} commands and run them all at once. You can. A file of commands can be loaded with the {\tt{load()}} command, which will run through all the commands in the file. A command file {\file{show\_bkg.iff}} that looks like this {\small{ %VerbSBox% \begin{VerbSBox} # File show_bkg.iff read_data(file=Cu.dat, type=raw, group= cu) cu.energy = cu.1 * 1000.0 cu.xmu = ln(cu.2 / cu.3) spline(energy = cu.energy, xmu = cu.xmu, rbkg=1.1, kweight=1., kmin=0) plot(cu.energy, cu.xmu) plot(cu.energy, cu.bkg, xmin=8850, xmax=9300, color=red) # \end{VerbSBox} %VerbSBox% }}\noindent can be loaded as {\small\begin{verbatim} Ifeffit> load show_bkg.iff \end{verbatim} }\noindent More than that, the history mechanism of the {\tt{ifeffit}} command-line program saves a list of the 500 most recent {\ifeffit} commands run to the file {\file{.ifeffit\_hist}} in your home directory. This file can be used as a starting point for creating and editing command files. These topics will be discussed further in section~{\ref{s:log-save}} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%% \clearpage \section{Reading Arrays from Data Files}\label{s:fileio} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% {\ifeffit} reads ASCII files with data listed in columns, delimited by whitespace (blanks or tabs). The data are stored in {\ifeffit} arrays, so that they are ready for immediate manipulation, plotting, and analysis. The {\tt{read\_data()}} command is used to read data arrays from an ASCII file. A typical use would look like {\small\begin{verbatim} Ifeffit> read_data(file = cu_001.xmu, group= 'cu', type = 'xmu') \end{verbatim}}\noindent Because of the naming rules for arrays (see \ref{s:datatypes:names}), {\tt{read\_data()}} needs to assign both a prefix (or group name) and suffix for each array read in from the data file. Since data in a file is usually grouped together logically, {\tt{read\_data()}} will use just one group name for all the arrays in an individual file. The group name used can be specified with the {\tt{group}} keyword in the {\tt{read\_data()}} command. By default, the prefix of the filename itself is used. The method for assigning the {\emph{suffixes}} of the array names is a bit more involved. There are four different ways for {\ifeffit} to determine the array suffixes when reading in a file: \begin{description} \item[{\bf{From the 'type' argument}}]: In the example above, the {\tt{type = 'xmu'}} argument tells {\ifeffit} to use the suffixes {\tt{energy}} and {\tt{xmu}} for the first and second columns, and use {\tt{3}}, {\tt{4}}, ... for any remaining columns. Another commonly used {\emph{file types}} is {\tt{chi}} for columns of {\tt{k}} and {\tt{chi}}. A more complete list of known file types and the suffixes they produce is given in the Reference Guide. \item[{\bf{From the 'label' argument}}]: For data that is not in one of the pre-defined types (or if you just want to specify the array suffixes explicitly), then the {\tt{label}} argument can be used. {\tt{label}} takes a string that is just the array suffixes listed separated by a space. Using {\tt{ read\_data(file = cu\_001.xmu, group='cu', label = 'energy xmu')}} would be equivalent to the above {\tt{type}} version. \item[{\bf{From the files own 'label' line}}]: Many files (especially, those written by {\ifeffit}, {\feffit}, or {\autobk}) will have a {\emph{label line}} which contains the column labels (i.e, array suffixes) and appears just before the data and just after a line of minus signs ({\tt{\#-------------}}): {\small{ %\begin{latexonly} \begin{Sbox}\begin{minipage}{5.00truein} %\end{latexonly} \begin{Verbatim} # Cu foil at 10K # OFFSETS 51284 50016 48319 #---------------------------------- # energy xmu .8786204E+04 .1013661E+01 \end{Verbatim} %\begin{latexonly} \end{minipage} \end{Sbox}\setlength{\fboxsep}{2mm}{% \begin{flushright}\shadowbox{\TheSbox}\end{flushright}} %\begin{latexonly} }}\noindent If neither the {\tt{type}} nor {\tt{label}} keyword are specified, {\ifeffit} will look for a label line and use it. \item[{\bf{By column index}}]: If none of the above methods are used (that is neither the {\tt{type}} nor {\tt{label}} keyword are given, and a label line is not found), {\ifeffit} will name the arrays by column number {\tt{1}}, {\tt{2}}, {\tt{3}}, \ldots. Though primitive, this is actually the most predictable behavior, and can be enforced by using "{\tt{type = 'raw'}}". \end{description} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%% \clearpage \section{Plotting Data}\label{s:plotting} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% This section assumes that {\ifeffit} has been built with the PGPLOT plotting package. This is available for both Unix and Win32 systems, though support for Win32 is still experimental. For Unix systems, this library has to be installed prior to installing {\ifeffit}, which is fairly easy to do for most systems. {\ifeffit} can also be built without this plotting package. Plotting in {\ifeffit} is encapsulated in a handful of commands, the most important of which is the {\tt{plot()}} command, which takes two required arguments for the ordinate (x-array) and abscissa (y-array) to be plotted, and take a large set of optional arguments. A simple plot can be done like this: {\small\begin{verbatim} Ifeffit> plot(cu.energy, cu.xmu) \end{verbatim}}\noindent The {\tt{plot}} command will overplot , so that a second {\tt{plot}} command: {\small\begin{verbatim} Ifeffit> plot(cu.energy, cu.bkg) \end{verbatim}}\noindent will add a trace of the background to the earlier plot. To force the current plot to be erase before plotting, you'd say {\small\begin{verbatim} Ifeffit> newplot(cu.energy, cu.xmu) \end{verbatim}}\noindent Each x-y trace plotted has a {\emph{color}} and {\emph{line style}} associated with it. You can set the values in these table explicitly for each particular plot command by specifying the color or linestyle (or both) directly: {\small\begin{verbatim} Ifeffit> plot(cu.energy, cu.xmu, color = blue) Ifeffit> plot(cu.energy, cu.bkg, color = red, style = dashed) \end{verbatim} }\noindent You can also pre-define the color and linestyle for the first, second, \dots trace ahead of time {\small\begin{verbatim} Ifeffit> color(1=blue, 2 = red, 3 = black) Ifeffit> linestyle(1=solid, 2=dashed, 3 = linespoints2) \end{verbatim} }\noindent so that the first trace plotted is a solid blue line, and the second is a dashed red line, and the third a black line with a '+' at each data point. The allowed color names are the 'standard X Windows' colors found in the {\file{rgb.txt}} file on your system. Most common color names are supported, as well as the descriptive if ambiguous 'X Windows' names like "lightsalmon3" and "bisque". You may also use the conventional hexadecimal representation of the color with a string of '\#RRGGBB'. Allowed line styles are 'solid', 'dashed', 'dotted', 'points', and 'linespointsN' where N = 1, 2, 3, \ldots. The latter will draw a line connecting symbols at each data point, with symbols '.', '+', '*','o', 'X', squares, and triangles for N=1,2,3,4,5, and 6. Setting the color and linestyle tables like this is often a convenient thing to do in a macro (see section~\ref{s:macros}) or start-up file. For Unix using X Windows, the PGPLOT window supports getting the ($x$,$y$) coordinates from the plot window using the mouse device. To use this within {\ifeffit}, you'd type {\tt{cursor}} at the command prompt, and then click on the desired point on the plotting window. The {\ifeffit} variables {\tt{cursor\_x}} and {\tt{cursor\_y}} will contain the ($x$,$y$) coordinates. The {\tt{zoom}} command will let you view a selected region of the plot by clicking the mouse on the corners of the area to zoom in on. Many more plotting options exist -- please consult the Reference Guide. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%% \clearpage \section{XAFS Data Processing}\label{s:xafs-process} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% {\ifeffit}'s main job is to help you analyze XAFS data, and {\ifeffit} tries to make it easy to do simple XAFS analysis tasks. These simple tasks include such things as converting beamline data in {\muE}, doing pre-edge subtraction, determining {\Eo}, fitting a post-edge (spline) subtraction to determine {\bkg} and {\chik}, and doing XAFS Fourier transforms to look at data in $R$-space. These standard tasks of XAFS data manipulation are described in this section. \subsection{Data Reduction}\label{s:xafs-process:reduce} The general algebraic manipulation of array data within {\ifeffit} makes the conversion of raw beamline data to XAFS {\muE} very easy, and also allows the averaging and re-scaling (if necessary) of data. For example, reading raw beamline transmission and fluorescence data and converting this to {\muE} might look like this: {\small\begin{verbatim} Ifeffit> read_data(file = cu_expt.dat, group= 'cu', label = 'energy i0 i1 if') Ifeffit> set cu.xmu_t = log(cu.i1 / cu.i0) Ifeffit> set cu.xmu_f = (cu.if / cu.i0) \end{verbatim}}\noindent If you've collected data in fluorescence using a multi-element-detector, you may need to sum several arrays before dividing by $I_0$, something like this will do the trick: {\small\begin{verbatim} Ifeffit> read_data(file= med_fluor.dat, group='med', type='raw') Ifeffit> set med.if= (med.4 + med.5 + med.6 + med.7 + med.8 + med.9 +med.10 +med.11 +med.12 +med.13 ) Ifeffit> set med.xmu= (med.if / med.2) \end{verbatim}}\noindent \subsection{Pre-Edge Subtraction, E0 determination, and Normalization} \label{s:xafs-process:preedge} Pre-edge subtraction removes the baseline from the EXAFS {\muE}, determines the edge energy (used as the origin of {\emph{k}}), and normalizes the above-edge {\muE} to 1. All of this is done by the {\tt{pre\_edge()}} command which takes arrays of energy and absorption {\muE}: {\small\begin{verbatim} Ifeffit> pre_edge(cu.energy, cu.xmu) \end{verbatim} }\noindent Like most {\ifeffit} command, this simple-looking command actually causes a fair amount of data processing behind the scenes. It also creates several program variables, especially arrays and scalars detailing the pre-edge subtraction. Here's a list of the most important program variables that {\tt{pre\_edge()}} sets: \relax\par\smallskip \begin{tabular}{ll} Variable & Description\\ {\tt{e0}} & Energy Origin (found near maximum derivative of {\muE}\\ {\tt{edge\_step}} & Edge Step / normalization constant\\ {\tt{pre\_slope}} & slope of pre-edge line\\ {\tt{pre\_offset}} & offset of pre-edge line\\ {\tt{\$group.pre}} & array of pre-edge subtracted {\muE}\\ {\tt{\$group.norm}} & array of pre-edge subtracted and normalized {\muE}\\ \end{tabular} \relax\par\smallskip\noindent where {\tt{\$group}} is the 'group name' taken from the input {\muE} array - 'cu' in this case. Using {\tt{pre\_edge()}} on another array would generate new arrays of pre-edge subtracted and normalized {\muE} for the corresponding group. Note, however, that it will overwrite the scalar values from the earlier invocation of {\tt{pre\_edge()}}. There are several optional arguments to {\tt{pre\_edge()}} not mentioned here. These arguments can be use to set the ranges over which to fit the pre-edge line and post-edge curve, whether or not to perform every part of the calculation, and so forth. These optional arguments would normally be used like this: {\small\begin{verbatim} Ifeffit> pre_edge(cu.energy, cu.xmu, e0=8980.5) \end{verbatim}}\noindent \noindent which would force the value of $E_0$ to be $8980.5$ and prevent {\tt{pre\_edge()}} from trying to determine $E_0$ by itself. As for all commands, the complete set of the optional parameters for {\tt{pre\_edge()}} are given in the Reference Guide. \subsection{Post-Edge Background Subtraction}\label{s:xafs-process:spline} Post-edge background subtraction involves drawing a ``smooth background'' ({\bkg} through the oscillatory part of the XAFS and extracting {\chik} using this and the formula \[ \chi(E) = {{\mu(E) - \mu_0(E)}\over{\Delta \mu(E_0)}} \] \noindent where $ \mu_0(E)$ is ``the smooth background'' of {\muE} and $\Delta \mu(E_0)$ is the edge-jump. Determining the XAFS background function {\bkg} generally receives quite a bit of attention in the XAFS community. {\ifeffit} uses the {\autobk} algorithm, which simply asserts and then implements a rather common-sense approach to background subtraction: only the low-frequency components of {\muE} should make up {\bkg}. The implementation of {\autobk} in {\ifeffit} is encompassed in the {\tt{spline()}} command, which takes arrays of energy and $\mu$, and several optional parameters, and writes out {\chik}, {\bkg}, and several scalars. A basic use of {\tt{spline()}} would look like this {\small\begin{verbatim} Ifeffit> spline(cu.energy, cu.xmu, rbkg=1.0) \end{verbatim} }\noindent Like {\tt{pre\_edge()}}, this simple-looking command does quite a bit of data processing behind the scenes, and creates or writes several variables with {\ifeffit}. For one thing, {\tt{spline()}} will execute {\tt{pre\_edge()}} unless it's obvious that it shouldn't{\footnote{where ``obvious'' means that an array named {\$group.pre} already exists. This really is mediocre definition of obvious, especially if you're writing scripts to automate the processing of lots of data. On the other hand, if you're casually strolling through your data at a command-line prompt, it's probably fine.}}. That means that all the output parameters of {\tt{pre\_edge()}} will be created (or overwritten) by {\tt{spline()}}, and $E_0$ and the edge jump $\Delta \mu(E_0)$ will be determined if needed. To say much more about the {\tt{spline()}} command, I'd have to discuss the details of the {\autobk} algorithm. I'll try to be brief: {\tt{spline()}} chooses a smooth background spline such that the low-$R$ portion of the resulting EXAFS $\chi$ are minimized. That means that {\tt{spline()}} needs to do a Fourier transform of the $\chik$ it generates. Because of this, the {\tt{spline()}} function takes many command arguments that resemble Fourier transform parameters, so that in addition to the arguments of {\tt{pre\_edge()}} the important arguments that {\tt{spline()}} takes are: \relax\par\smallskip \begin{tabular}{ll} Variable & Description\\ {\tt{rbkg}} & $R_{\rm bkg}$, the highest $R$ value to consider background\\ {\tt{kmin}} & $k_{\rm min}$, the starting $k$ for the Fourier transform\\ {\tt{kweight}} & $w$, the $k$-weight factor for the Fourier transform. \end{tabular} \relax\par\smallskip\noindent Please note that the Fourier transforms appropriate for {\tt{spline()}} are {\emph{not}} the same as those appropriate for structural analysis. Usually, values of $k_{\rm min} \approx 0$ and $w = 1$ are appropriate for {\tt{spline()}}. Like {\tt{pre\_edge()}}, the {\tt{spline()}} command also creates new arrays, most importantly: \relax\par\smallskip \begin{tabular}{ll} Variable & Description\\ {\tt{\$group.bkg}} & {\bkg}, the background function itself\\ {\tt{\$group.k}} & $k$, the array of wavenumbers\\ {\tt{\$group.chi}} & {\chik}, the (unweighted) EXAFS \end{tabular} \relax\par\smallskip\noindent \subsection{Fourier Transforms}\label{s:xafs-process:fft} Fourier transforms are an integral part of XAFS analysis, and the ability to perform them quickly and easily is very important. {\ifeffit} has different commands for forward ($k\rightarrow R$) and reverse forward ($R\rightarrow q$: I'll use $q$ to refer to back-transformed $k$-space data) Fourier transforms. They're very similar to one another, so I'll first discuss {\emph{forward}} Fourier transforms with {\tt{fftf()}} in detail, then {\emph{reverse}} Fourier transforms with {\tt{fftr()}} more quickly. {\ifeffit} use a simple Fast Fourier transform (FFT), which places some demands on the data transformed by these commands. In addition, XAFS analysis usually imposes some conventions on Fourier transforms, so that the commands discussed here are not general purpose Fourier transform functions, but are really {\emph{XAFS Fourier transforms}}. The most obvious difference between 'normal' and 'XAFS' Fourier transforms is that the latter transforms $k$ to $R$, while a 'normal' FT would transform $k$ to $2R$. Aside from a scale factor, this changes the normalization constants used. In addition, the XAFS Fourier transform (at least as {\ifeffit} implements it) allows a variety of smoothing window functions, and a weighting factor. More details can be found in {\XAIBook}. \subsubsection{Forward Fourier Transforms}\label{s:xafs-process:fftf} The Forward XAFS Fourier transform command is {\tt{fftf()}}. It's primary input is an array of {\chik} data. The requirements of the FFT mean that the input {\chik} data {\bf{must}} be an array that is on an even $k$-grid with grid spacing of $k = 0.05 \rm\, \AA^{-1}$, and starting at $k=0$. These are stringent requirements. Fortunately, the {\tt{spline()}} command of section~\ref{s:xafs-process:spline} writes its output {\chik} array according to these rules. If you're importing {\chik} data written from another program, you'll have to make sure the data is moved to this $k$-grid. There are two ways to this: either interpolate the data yourself (see the interpolation functions in the Reference Guide) or specify the $k$-array corresponding to your $\chi$ data in the {\tt{fftf()}} command and let it do the interpolation for you. Properly aligned {\chik} data can be transformed to $R$-space using a command like this: {\small\begin{verbatim} Ifeffit> fftf(cu.chi, kmin=2.0, kmax=17.0, dk=1.0, kweight=2) \end{verbatim}}\noindent while data not on the expected grid would be Fourier transformed like this: {\small\begin{verbatim} Ifeffit> fftf(cu.chi, k=cu.k, kmin=2.0, kmax=17.0, dk=1.0, kweight=2) \end{verbatim} }\noindent The keywords {\tt{kmin}}, {\tt{kmax}}, and {\tt{dk}} help define the window function, and {\tt{kweight}} sets the $k$-weighting factor. You can also specify the form of the window function. The full list of window types and their functional form is given in the Reference Guide, but the most useful ones are the Hanning window ( {\tt{kwindow=hanning}} -- the default window function) which ramps up to one on either end of the $k$-range as $\cos^2$, and the Kaiser-Bessel window ({\tt{kwindow=kaiser}}), which is often thought to give superior peak resolution. Because it is often necessary to do many Fourier transforms with exactly the same parameters, the {\tt{fftf()}} command, can also read Fourier transform parameters from appropriately named program variables. This is actually a feature of many commands, but it seems most useful for the Fourier transform commands. It works like this: setting scalars {\tt{kmin}}, {\tt{kmax}}, and so forth will have the same effect as setting those arguments to the {\tt{fftf()}} command. {\small\begin{verbatim} Ifeffit> kmin=2.0, kmax=17.0, dk=1.0, kweight=2 Ifeffit> fftf(cu.chi) \end{verbatim} }\noindent would have the result as {\small\begin{verbatim} Ifeffit> fftf(cu.chi, kmin=2.0, kmax=17.0, dk=1.0, kweight=2) \end{verbatim} }\noindent In fact, the {\tt{fftf()}} command will first read the value for the parameter $k_{\rm min}$ from the program variable {\tt{kmin}} (and so on for the other Fourier transform parameters), and then from the command argument {\tt{kmin}}, so that the command argument will always override the program variable value. Furthermore, {\tt{fftf()}} will itself set the value of the program variable {\tt{kmin}}, possibly overwriting any value you had previously set. Thus {\small\begin{verbatim} Ifeffit> kmin=2.0, kmax=17.0, dk=1.0, kweight=2 Ifeffit> fftf(cu.chi, kmin=3.) Ifeffit> fftf(other.chi) \end{verbatim} }\noindent will use the same Fourier transform parameters (that is $k_{\rm min} = 3\rm\AA^{-1}$) for both transforms. A Fourier transform inherently deals with complex data, and a minor complication arises from the inconvenience that the measured XAFS {\chik} is strictly a real function. In {\tt{fftf()}} then, there is an ambiguity of whether to use the measured XAFS as the real or imaginary part of the complex XAFS function. Since the measured XAFS is typically described as the imaginary part of a complex fine-structure function $\tilde\chi$, one might be tempted to say that the data {\chik} ought to be set to the imaginary part of $\tilde\chi$. {\ifeffit} usually assumes that the data {\chik} is the real part of the complex $\tilde\chi$ and sets the imaginary part to zero -- this is in keeping with the convention of older programs from the University of Washington, but it is purely a matter of convention. You can explicitly specify the behavior by saying {\tt {fftf(imag = data.chi,\ldots)}} or {\tt {fftf(real = data.chi,\ldots)}}. If you don't specify, the data will be taken as the real part. This is almost never important -- at least not until you want to compare unfiltered {\chik} with filtered {\chik}. The output arrays generated by the {\tt{fftf()}} command are \relax\par\smallskip \begin{tabular}{ll} Variable & Description\\ {\tt{\$group.win}} & The $k$-space window function used \\ {\tt{\$group.r}} & $R$, the array of distances\\ {\tt{\$group.chir\_mag}} & $|\chi(R)|$, the magnitude of $\chi(R)$\\ {\tt{\$group.chir\_pha}} & the phase of $\chi(R)$\\ {\tt{\$group.chir\_re}} & $\rm Re[\chi(R)]$, the real part of $\chi(R)$\\ {\tt{\$group.chir\_im}} & $\rm Im[\chi(R)]$, the imaginary part of $\chi(R)$ \end{tabular} \relax\par\smallskip\noindent It is possible to do ``phase-corrected'' Fourier transforms with {\ifeffit} using the theoretical phases from {\feff} calculations, but that is beyond the scope of this tutorial. \subsubsection{Reverse Fourier Transforms}\label{s:xafs-process:fftr} {\tt{fftr()}} is the Reverse XAFS Fourier transform command, mainly used to filter $\chi(R)$ data to backtransformed {\chik}. Following the convention of {\feffit}, backtransformed $k$-space is called $q$ to avoid confusion with the original $k$-space data. The {\tt{fftr()}} command then transforms $\chi(R)$ to $\chi(q)$. As with the forward Fourier transform, the data is requirements of the FFT mean that the input {\chik} data {\emph{must}} be given as an array that is evenly spaced in $R$ with a fixed grid spacing of $R = \pi/1024 \approx 0.03068 \rm\, \AA$, and starting at $R = 0$. To further complicate matters, there is ambiguity as to whether to transform just the real part, just the imaginary part of $\chi(R)$, or both. In general, both parts are transformed to ensure that the overall amplitude scale is preserved. {\tt{fftr()}} has an almost identical command set to {\tt{fftf()}}, with {\tt{k}} replaced by {\tt{r}} in the parameter names. That is, the FT window parameters are defined with {\tt{rmin}}, {\tt{rmax}}, {\tt{dr}}, and so on. The window functional form is set by {\tt{rwindow}}. A typical use might look like this {\small\begin{verbatim} Ifeffit> fftr(real=cu.chir_re, imag=cu.chir_im, rmin=1.70, rmax=3.0, dk=0.1) \end{verbatim}}\noindent The output arrays generated by the {\tt{fftf()}} command are \relax\par\smallskip \begin{tabular}{ll} Variable & Description\\ {\tt{\$group.rwin}} & The $R$-space window function used \\ {\tt{\$group.q}} & $q$, the array of wavenumbers\\ {\tt{\$group.chiq\_mag}} & $|\chi(q)|$, the magnitude of $\chi(q)$\\ {\tt{\$group.chiq\_pha}} & the phase of $\chi(q)$\\ {\tt{\$group.chiq\_re}} & $\rm Re[\chi(q)]$, the real part of $\chi(q)$\\ {\tt{\$group.chiq\_im}} & $\rm Im[\chi(q)]$, the imaginary part of $\chi(q)$ \end{tabular} \relax\par\smallskip\noindent Before ending this section, let me say a few words about ``Fourier filtering''. {\ifeffit}'s approach to Fourier transforms is fairly general, and the use of two Fourier transforms to ``isolate a shell'' is not a trivial process with {\ifeffit}. This partly reflects my experience and belief that ``Fourier filtering'' can {\emph{not}} be made a trivial process. Comparing filtered with unfiltered data is a common desire. Given the ambiguities in how to handle the real and imaginary parts of the data, getting the details right for this are not trivial. Though macros won't be discussed until section~\ref{s:macros}, using a macro to get the details right is a good idea. Such a macro for Fourier filtering might look like this: {\small\begin{verbatim} macro filter group "kweight=2,kmin=3" "dr=0" fftf(real=$1.chi, $2) fftr(real=$1.chir_re, imag=$1.chir_im, $3) set $1.chik = $1.chi * $1.k^kweight set $1.chik_w = $1.chik * $1.win set $1.chiq = $1.chiq_re / ($1.k^kweight) end macro \end{verbatim}}\noindent With this macro definition (which takes arguments as group name, $k$ parameters, and $R$ parameters), you could perform a filter, and overplot filtered and unfiltered data with {\small\begin{verbatim} filter data "kweight=2,kmin=3,kmax=15,dk=1" "rmin=1.6,rmax=3." newplot(data.q, data.chiq_re ) plot( data.k, data.chik_w ) \end{verbatim}}\noindent Note that the convention used here is that the data {\chik} is the real part for the Forward transform, so that the real part of $\chi(q)$ is the appropriate choice for comparison. Of course, that should be compared to the $k$-weighted, windowed {\chik}. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%% \clearpage \section{XAFS Analysis}\label{s:xafs-anal} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% XAFS Analysis in {\ifeffit} consists of modeling XAFS {\chik} in terms of a {\emph{sum of paths}} with the XAFS contribution from each path being modeled by a calculation from {\feff}. A Path is an abstract formalism for breaking the EXAFS into manageable pieces based on the scattering path that a photo-electron takes. Many EXAFS analysis methodologies use concepts such as 'shell' or 'coordination sphere'. To some extent the distinction is only conceptual, and therefore unimportant. In other ways, the path formalism is clearly a superior way to robustly analyze complex EXAFS data that includes the effects of multiple scattering. If you're used to thinking of your EXAFS data as having contributions based on shells or coordination spheres, paths aren't that big of a change. \subsection{Defining Paths}\label{s:xafs-process:path} {\ifeffit} relies on {\feff} for basic information about all of its paths. This means that you need to run {\feff} and sort through its results (neither of which are trivial tasks) prior to defining paths with {\ifeffit}. The outputs of {\feff} that {\ifeffit} needs is the set of {\feffndat} files, where each file represents the result for a single path. Some versions of {\feff} can write all of the path information into a single file called {\feffbin} as an alternative to a large set of {\feffndat} files. {\ifeffit} can read some versions of {\feffbin}, but this discussion will focus on using the more universal {\feffndat} files. Once {\feff} has run and a set of {\feffndat} files exists, using them within {\ifeffit} is fairly easy. The {\tt{path()}} command is used to define paths within {\ifeffit}. The information needed to describe an XAFS path is a bit too complicated to conveniently hold as a set of {\ifeffit} scalars and arrays -- it could be done, but the bookkeeping would be a nightmare. Instead, paths are defined and stored internally, so that you can refer to a path by an integer index. Though a break from the idea in section~\ref{s:datatypes} that all data is stored in program variables that you can access easily and directly, there are commands to convert the path data to program variables. The {\tt{path()}} command takes the name of a {\feffndat} file and a unique {\ifeffit} {\emph{path index}} as its primary arguments. The {\ifeffit} path index is an integer (from 1 to 10000). It does not need to be the same index as {\feff} used, but that is often a convenient way to do it. In addition, the {\tt{path()}} command takes several optional arguments, known as {\emph{Path Parameters}\/} that represent the parameters used to modify the EXAFS function for that path. The path parameters include such things as $\Delta R$, the change in path distance (well, half-path-length for multiple scattering paths), $\sigma^2$, the mean-square displacement of the bond, and an $E_0$ shift. The most important Path Parameters are \begin{tabular}{ll} Path Parameter keyword & Description\\ {\tt{file}} & Name of {\feffndat} file\\ {\tt{index}} & path index: a unique integer identification\\ {\tt{label}} & path label: a string describing the path \\ {\tt{s02}} & $S_0^2$, amplitude reduction factor\\ {\tt{e0}} & $E_0$, energy shift\\ {\tt{delr}} & $\Delta R$\\ {\tt{sigma2}} & $\sigma^2$\\ {\tt{third}} & $C_3$, third cumulant\\ \end{tabular} \relax\par\smallskip\noindent a full list is given in the Reference Guide. A simple path definition would look like this: {\small\begin{verbatim} Ifeffit> path(index=1,file = feff0001.dat, s02 = 0.9, sigma2 = 0.001) \end{verbatim} }\noindent This would define path 1, and assign values for $S_0^2$ and $\sigma^2$ for this path. An important aspect of {\ifeffit} is that the Path Parameters are {\emph{defined}} in the same way as other {\tt{define}}d scalars (see section~\ref{s:datatypes}) -- the formulas specified for the path parameters in the {\tt{path()}} command are remembered. This allows you to define the path like this {\small\begin{verbatim} Ifeffit> s02_001 = 0.9 Ifeffit> e0_001 = -1. Ifeffit> sig2_001 = 0.001 Ifeffit> path(index=1,file = feff0001.dat, s02 = s02_001, e0 = e0_001, sigma2 = sig2_001 ) \end{verbatim}}\noindent where the parameter {\tt{s02}} for path 1 now depends on the definition of the scalar {\tt{s02\_001}}. This is a fairly simple example, and the definition for the {\tt{s02}} parameter for path 1 could be more complex -- say, {\tt{min(1.2,s02\_001)}} to set an upper bound on this parameter. In addition, the {\tt{s02\_001}} scalar here could have a more complex definition or even be a fitting variable defined with {\tt{guess s02\_001 = 0.9}}. Additional paths are defined in the same way: {\small\begin{verbatim} Ifeffit> path(index=2,file = feff0002.dat, s02 = s02_001, e0 = e0_001, sigma2 = sig2_001 ) \end{verbatim}}\noindent The only {\emph{required}} keyword for a path is the integer index (if the keyword comes first in the list of arguments, the {\tt{index}} can be dropped, so a completely equivalent definition is {\small\begin{verbatim} Ifeffit> path(2, file = feff0002.dat) Ifeffit> path(2, s02 = s02_001 ) Ifeffit> path(2, e0 = 2.0 ) Ifeffit> path(2, sigma2 = sig2_001 ) \end{verbatim}}\noindent subsequent {\tt{path()}} commands will set or {\emph{overwrite}} the definitions for other path parameters. This makes it fairly simple to change the definition of a path parameter half way through an analysis, say between fits, where something like {\small\begin{verbatim} Ifeffit> path(2, s02 = 0.85) \end{verbatim}}\noindent will change one path parameter and leave the rest as previously defined. \subsection{Combining Paths}\label{s:xafs-process:ff2chi} Once defined, combining paths to give a {\chik} function is very easy with the command {\tt{ff2chi()}}. {\tt{ff2chi()}} takes its name from the {\feff} module that combine {\feff} path files into a single {\chik} function. Because {\ifeffit} allows you to alter the paths through the Path Parameters, and use paths calculated from different runs of {\feff}, this version of {\tt{ff2chi()}} is significantly more flexible and powerful than {\feff}'s own version. {\tt{ff2chi()}} takes a list of path indices, and creates arrays for {\chik}. Assuming that the paths have already been defined, a command like this: {\small\begin{verbatim} Ifeffit> ff2chi(1,2,3, group = ff) \end{verbatim}}\noindent \noindent will add paths 1, 2, and 3 together and create arrays {\tt{ff.k}} and {\tt{ff.chi}} containing the sum of these paths. Each of the paths will be altered according to its own Path Parameters in the sum. The list syntax '{\tt{1, 2, 3}}' could also be replaced by '{\tt{1-3}}'. Lists of the form {\tt{1-3,5,7-10,23,11}} are also allowed. An important note is that (currently), paths listed twice are used twice. This is an easy mistake to make, so beware{\footnote{it is on the ``TODO list'' to check for and warn about this possibility, which is hardly ever intended}}. Besides the list of paths and group name for the output arrays, {\tt{ff2chi()}} has a few other arguments, most of which you won't really need. I'll just mention a few convenient ones here. The arguments {\tt{kmin}} and {\tt{kmax}} can set the $k$-range of the output arrays, and the argument {\tt{do\_real}} will cause the ``real part'' of {\chik} to be written to the array {\tt{\$group.chi\_real}} -- the confusion over real and imaginary parts of the complex {\chik} shows up again! The {\tt{\$group.chi}} array that {\tt{ff2chi()}} always generates is the imaginary part of the complex {\chik}, and should correspond to the experimentally derived {\chik}. \subsection{Getting and Viewing Path Parameters}\label{s:xafs-process:get_path} Once you've combined a few paths with {\tt{ff2chi()}} or, as we'll see shortly, done a fit with {\tt{feffit()}}, you may want to find out some information about the path parameters for a set of paths. There are a few ways to get this information. The {\tt{show()}} command, first discussed in section~\ref{s:datatypes:show}, has a ``{\tt{@path}}'' modifier to give some information about a defined path. {\small\begin{verbatim} Ifeffit> show @path=1 PATH 1 feff = feffcu01.dat id = Cu metal first neighbor reff = 2.547800, degen = 12.000000 s02 = 0.937373, e0 = 0.510790 dr = 0.000525, ss2 = 0.003496 3rd = 0.000000, 4th = 0.000000 ei = 0.000000, dphase = 0.000000 \end{verbatim}}\noindent This shows all the scalar values of the path parameters ({\tt{reff}} is the half-path length, {\tt{degen}} is the path degeneracy, and so on). The argument to the {\tt{@path}} modifier to {\tt{show()}} can be any valid path list as described in section~\ref{s:xafs-process:ff2chi} (for example: {\tt{1,2,4-9,12}}). To see all the defined paths {\tt{show @paths}} will work. The {\tt{show @path}} family of commands only prints the values of the path parameters. Another way to get path information is to convert them to program variables with the {\tt{get\_path()}} command. This command only takes one path at a time (not a path list), but allows you to get the path parameter values into program variables for later manipulation. The syntax for {\tt{get\_path()}} is {\small\begin{verbatim} Ifeffit> get_path(path = 1, prefix = path1) \end{verbatim} }\noindent or, equivalently and more simply {\small\begin{verbatim} Ifeffit> get_path(1, path1) \end{verbatim} }\noindent This will create scalars {\tt{path1\_s02}}, {\tt{path1\_e0}}, {\tt{path1\_ei}}, {\tt{path1\_delr}}, {\tt{path1\_sigma2}}, {\tt{path1\_third}}, {\tt{path1\_fourth}}, {\tt{path1\_degen}}, {\tt{path1\_reff}} and give the values of the path parameters for path 1. In addition, the strings {\tt{\$path1\_file}} and {\tt{\$path1\_id}} will contain the values of the path {\feff} file name and path identification string, respectively. The {\tt{prefix}} argument to {\tt{get\_path()}} can be any valid variable name. Of course, array variables for a given path can be formed with the {\tt{ff2chi()}} command, as described in the previous section. Just to be clear, though {\small\begin{verbatim} Ifeffit> ff2chi(1, group = path1) \end{verbatim}}\noindent \noindent will create arrays of {\tt{path1.k}} and {\tt{path1.chi}}. Other arrays for the real part, magnitude, and phase of {\chik} can be obtained from {\tt{ff2chi()}} by using arguments {\tt{do\_real}}, {\tt{do\_mag}}, and {\tt{do\_phase}}, respectively. \subsection{{\tt{feffit()}}: Fitting XAFS Data with Paths}\label{s:xafs-process:feffit} At some point in the analysis of XAFS data, you'll want to refine a set of path parameters so that a sum of paths best matches the data. The {\tt{feffit()}} command is the basic tool for fitting EXAFS data to a set of paths. In some sense, {\tt{feffit()}} is just a fancy version of {\tt{ff2chi()}}. Another view might be that the {\tt{feffit()}} command is the main point of the {\ifeffit} library, so that {\tt{ff2chi()}} is a very simple version of {\tt{feffit()}}. In any event, the two functions are closely related and purposefully implemented with as much overlap as possible so that once you feel comfortable with the {\tt{paths()}} and {\tt{ff2chi()}} commands, {\tt{feffit()}} should be a fairly small step. {\tt{feffit()}} has four basic requirements: \begin{enumerate} \item $\chi(k)$ data to fit, \item a list of paths to sum to make the model XAFS. \item Fourier transform and fit range parameters \item one or more variables defined that affect the model XAFS. \end{enumerate} \noindent First, {\tt{feffit()}} needs some {\chik} data to fit. As you can probably guess, this data needs to be a named array for {\chik} just as you would use for the Fourier transform routines (ie, starting at $k=0$, and progressing in steps of $0.05\rm\,\AA^{-1}$). You specify the {\chik} array with {\tt{feffit(chi= data.chi,\ldots)}}. If the data you have is not on the expected grid, you'll either need to interpolate it on to the expected grid or specify the array of $k$ values, with {\small\begin{verbatim} Ifeffit> feffit(chi= data.chi,k=data.k, ...) \end{verbatim} }\noindent Second, {\tt{feffit()}} needs a list of paths for the sum-over-paths that makes up the model XAFS. This sum is essentially the same as for {\tt{ff2chi()}}, comprising of a simple list of path indices. Path lists of the '{\tt{1, 2, 3}}', '{\tt{1-3}}', and '{\tt{1-3,5,7-10,23,51}}' are accepted, so that the {\tt{feffit()}} command would now look like (assuming the data is on the proper $k$ grid) {\small\begin{verbatim} Ifeffit> feffit(chi= data.chi,1-3, ...) \end{verbatim} }\noindent Third, {\tt{feffit()}} needs Fourier transform and fit range parameters defined. This reflects the fact that XAFS is a band-limited phenomenon, with a finite $k$- and $R$-range. As mentioned in section~\ref{s:xafs-process:fftf}, the Fourier transform parameters can be read either from the appropriately named program variables ({\tt{kmin}}, {\tt{kmax}}, {\tt{kweight}}, {\tt{dk1}}, {\tt{dk2}}, and so forth) or from the command argument list (using these same identifiers as keywords). In addition to the $k$-space Fourier transform parameters, {\tt{feffit()}} needs the fit $R$-range, specified by {\tt{rmin}} and {\tt{rmax}} (this reflects the fact that {\tt{feffit()}} normally does the fit in $R$-space -- fitting in $k$-space is possible, as well). Like the Fourier transform parameters, the $R$-range can be set from program variables ({\tt{rmin}} and {\tt{rmax}} or in the {\tt{feffit()}} command statement itself. We could say either {\small\begin{verbatim} Ifeffit> kmin = 3.0, kmax = 15.0, kweight = 2, dk1 = 2, dk2= 2 Ifeffit> rmin = 1.5, rmax = 3.5 Ifeffit> feffit(chi= data.chi, 1-3 ) \end{verbatim} }\noindent or {\small\begin{verbatim} Ifeffit> feffit(chi= data.chi, 1-3, rmin=1.5, rmax=3.5, kmin=3,kmax=15,kweight=2,dk=2) \end{verbatim} }\noindent The fourth requirement for a fit may seem obvious: {\tt{feffit()}} needs some variables to vary. {\bf{Fitting Variables}} are like regular scalars, except that they are defined with the {\tt{guess()}} command instead of {\tt{set()}}, as in {\tt{ guess e0 = 1.}} . Fitting variables also carry around information about their estimated uncertainty, and correlation with other fitting variables. We'll discuss that in the next section. Putting it all together, a simple fit of a single {\feff} path to {\chik} data would look like this: {\small\begin{verbatim} Ifeffit> read_data(file = cu_chi.dat, group= data, type = chi) Ifeffit> set s02_001 = 0.9 Ifeffit> guess e0_001 = 1. Ifeffit> guess dr_001 = 0.01 Ifeffit> guess sig2_001 = 0.001 Ifeffit> path(index = 1, file = feff0001.dat, s02 = s02_001, e0 = e0_001, delr = dr_001, sigma2 = sig2_001 ) Ifeffit> kmin = 3.0, kmax = 16.0, kweight = 2, dk1 = 2 Ifeffit> rmin = 1.5, rmax = 3.2 Ifeffit> feffit(data.chi, 1, group=fit) \end{verbatim} }\noindent The {\tt{feffit()}} command will update the values of all the fitting variables, and also create arrays for the best-fit {\chik} and {\chir} using the group name specified ({\tt{fit}} in this case, {\tt{feffit}} by default), and also create arrays for the data {\chir}, effectively running {\small\begin{verbatim} Ifeffit> fftf(data.chi) Ifeffit> fftf(fit.chi) \end{verbatim} }\noindent for you. The best-fit values and estimated uncertainties for the variables can be seen with {\tt{show @variables}}, as will be further discussed in the next section. In addition to what has been discussed so far, {\tt{feffit()}} has several optional parameters for a wide range of things such as specifying uncertainty in the input data, whether to refine background-spline parameters with the structural refinement, how to fit in $k$-space (with or without Fourier filtering), and an {\ifeffit} macro to run for each fit iteration. In the interest of brevity, I'll resist discussing any of these fascinating topics in this brief tutorial. \subsection{Uncertainties in Fitted Variables, Fitting Statistics} \label{s:xafs-process:uncertainties} A fit is not very useful without some idea of the reliability of the fit and some estimate of the uncertainty in the fitted variables. The {\tt{feffit()}} command automatically calculates the estimated uncertainties and goodness-of-fit parameters for you. The particulars of how these values are determined is outside the scope of this tutorial -- the attention here will be on how to view and manipulate the values for these statistics that {\tt{feffit()}} determines. The {\tt{feffit()}} command writes several fitting statistics to help you determine the goodness of fit. First, {\ifeffit} will write the number of fit iterations to {\tt{\&fit\_iteration}}. Though not necessarily useful as a fitting statistic, this can be valuable to see if a fit is taking far too many iterations, probably indicating a problem with the set up or model. The number of variables is stored in {\tt{n\_varys}}. The number of independent points in the band-limited data is estimated as $ { {2 \Delta k \Delta R}/\pi } $, for fit $k$-range $\Delta k$ and $R$-range $\Delta R$ and stored in {\tt{n\_idp}}. The estimated uncertainty in the data itself is stored in the variables {\tt{epsilon\_r}} for the uncertainty in the data {\chir} and {\tt{epsilon\_k}} for the uncertainty in the data {\chik}. The main goodness-of-fit statistics are {\tt{r\_factor}}, {\tt{chi\_square}}, and {\tt{chi\_reduced}}, which are three different ways of scaling the sum-of-squares of the final misfit. The full definition of these is given elsewhere, but briefly, {\tt{r\_factor}} is the misfit scaled to the data itself, so it a {\emph{relative misfit}}, {\tt{chi\_square}} is scaled to the estimated uncertainty in the data ({\tt{epsilon\_r}} for data fit in $R$-space). {\tt{chi\_reduced}} is {\tt{chi\_square}} divided by the number of ``free parameters in the fit'', given by the difference of {\tt{n\_idp}} and {\tt{n\_varys}}. More information on these terms and concepts is elsewhere in the {\ifeffit} documentation. For each fitting variable, {\ifeffit} will create (or overwrite) a variable named {\tt{delta\_VAR}}, and write the estimated uncertainty for variable {\tt{VAR}} to this variable. For example, the fit shown above would put the uncertainties in the fitting variables in {\tt{delta\_s02\_001}}, {\tt{delta\_e0\_001}}, {\tt{delta\_sig2\_001}}, and {\tt{delta\_dr\_001}}. The estimated uncertainties are, of course, very valuable for assessing fit results. In addition, it often instructive to know the correlations between pairs of variables resulting from the fit. To extract the correlations from {\ifeffit}, you use the {\tt{correl()}} command, which simply takes the names of two fitting variables, and the name of an output scalar variable to store the resulting correlation to. Thus, {\small\begin{verbatim} Ifeffit> correl(s02_001, sig2_001, out= cor1) Ifeffit> print cor1 0.887130839 \end{verbatim}}\noindent \noindent At this point, it is an error to give {\tt{correl()}} the name of any variable that is not a fitting variable. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%% \clearpage \section{Modeling non-XAFS data}\label{s:minimize} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% In the course of data analysis, it is often necessary to fit non-XAFS data. This can be any task similar to fitting a line or quadratic function to a set of data (say $\sigma^2 v. T$), fitting a set of Lorentzian, Gaussian and/or arc-tangent functions to a XANES spectra, or fitting some weighted average of model XANES spectra to fit an unknown spectra. Building on the general data-processing and XAFS modeling capabilities, {\ifeffit} provides a simple and powerful way to model many kinds of data. The {\tt{minimize()}} command implements a simple least-squares minimization routine. It takes as its primary argument a {\emph{residual}} array to minimize in the least-squares sense. Usually the residual would be ``Data - Fit'', but you may want to provide some scaling, possibly emphasizing some region of the fit more than others. The residual array is built just like any other array, and is expected to depend through definitions on a few variables defined with {\tt{guess()}}. A very simple example would be a linear fit: {\small\begin{verbatim} Ifeffit>read_data(my_data.dat, group = 'data', label = 'x y') Ifeffit>guess ( m = 1, b = 0 ) Ifeffit>fit.y = m * data.x + b Ifeffit>fit.resid = fit.y - data.y Ifeffit>minimize(fit.resid) \end{verbatim} }\noindent This will adjust the variables {\tt{m}} and {\tt{b}} to best-fit the data. As with {\tt{feffit()}}, the fitting statistics {\tt{\&fit\_iteration}}, {\tt{chi\_square}}, {\tt{chi\_reduced}}, and {\tt{r\_factor}} will be written and uncertainties in the variables {\tt{delta\_m}} and {\tt{delta\_b}} will be created for the uncertainties in the fitted parameters. The {\tt{correl()}} function described above can be used to retrieve the correlation between 2 fitting variables. Since the general problem of estimating uncertainties in experimental data is difficult, you'll need to be quite mindful of this fact and careful when interpreting these fitting statistics. In order to specify an estimate of the uncertainty in the experimental data, create an array (of the same size as the residual array) containing the estimated uncertainty at each point, and tell {\tt{minimize()}} to use this with the {\tt{uncertainty}} argument: {\small\begin{verbatim} Ifeffit> fit.eps = 0.01 * indarr(npts(fit.resid)) Ifeffit> minimize(fit.resid, uncertainty = fit.eps) \end{verbatim} }\noindent If you wish to limit the fit to be over a limited range of the residual array, you need to tell {\tt{minimize()}} what array to use as the ordinate or ``x''-array, and the minimum and maximum ``x'' values to use: {\small\begin{verbatim} Ifeffit> minimize(fit.resid, x =data.x, xmin= 2, xmax =10) \end{verbatim} }\noindent There are several built-in special mathematical functions to aid in the modeling of data -- more information can be found in the Reference Guide. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%% \clearpage \section{Saving data and logging your {\ifeffit} session}\label{s:log-save} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% This section is about getting information back from {\ifeffit}, either at the command-line, or written to external files. \subsection{Writing output data files} \label{s:log-save:write-data} At some point, you'll want to write out some of {\ifeffit}'s arrays to a file. This is done fairly simply with the {\tt{write\_data()}} command, which will write a plain ASCII file containing text strings and scalar values at the top of the file as ``comment lines'', then arrays in column format. The syntax for {\tt{write\_data()}} is fairly simple, consisting of a file name, and a list of arrays, scalars, and strings to write out, as in {\small\begin{verbatim} Ifeffit> $title1 = 'Fit #1, varying 4 variables' Ifeffit> write_data(file='x_fit.chi', rmin, rmax, fit.k, fit.chi, $title1) \end{verbatim} }\noindent which will write the file {\file{x\_fit.chi}}, which will have header lines from {\tt{\$title1}}, {\tt{rmin}}, {\tt{rmax}} looking like this: {\small{ %\begin{latexonly} \begin{Sbox}\begin{minipage}{5.00truein} %\end{latexonly} \begin{Verbatim} # Fit #1, varying 4 variables # rmin = 1.5000000 # rmax = 3.5000000 #------------------------ # k chi 0.0000000 0.40189216E-01 \end{Verbatim} %\begin{latexonly} \end{minipage} \end{Sbox}\setlength{\fboxsep}{2mm}{% \begin{flushright}\shadowbox{\TheSbox}\end{flushright}} %\begin{latexonly} }}\noindent followed by columns for the arrays {\tt{fit.k}} and {\tt{fit.chi}}. Notice that the file will have a label line making it ready to be read back in with the {\tt{read\_data()}} command using this ``label'' line, as described in section~\ref{s:fileio}. The string program variables are always written first, in the order they appear in the argument list, followed by the scalars (as shown) in the order they appear in the argument. Finally, the arrays will be written in the order they appear, with the first one being in the first column. \subsection{Writing log files} \label{s:log-save:log} While doing a complex analysis, it's often necessary to save values and information into a file for later inspection. While not extremely sophisticated, one simple way to do this is to have everything that would be written to the screen written to a {\emph{log file}}. This is surprisingly effective way of keeping track of your analysis session, and may well inspire you to insert many more {\tt{show()}} and {\tt{print()}} commands in your scripts. To open a log file, you use the {\tt{log()}} command, naming the log file to use, and specify the ``screen echo'' mode: {\small\begin{verbatim} Ifeffit> log(my_test.log, screen_echo = 3) \end{verbatim} }\noindent where the ``{\tt{screen\_echo = 3}}'' selects writing to both the screen and to the log file. Other values for this parameter are discussed in the Reference Guide. To close a log file, you say {\small\begin{verbatim} Ifeffit> log(close) \end{verbatim} }\noindent Only one log file can be open at a time -- opening a log file when one is already open will cause the first to be closed. If the program exits with a log file opened, it is not guaranteed that all information will be actually written to the log file. (NB: This is under investigation, and is hoped to be fixed in a future version). \subsection{Saving the state of an {\ifeffit} session} \label{s:log-save:save-restore} It's often desirable to suspend an analysis session and save the current point in the session, either to return to it later or to compare your results with someone else's. To this end, {\ifeffit} allows you to save the current state of all program variables into a single file that can be read in later. The saved file is portable across different platforms. The {\tt{save}} command will save the current state. It takes a few optional arguments, the most important of which is the file name, which defaults to {\file{ifeffit.sav}}. That is {\small\begin{verbatim} Ifeffit>save \end{verbatim}}\noindent will write {\file{ifeffit.sav}}, and {\small\begin{verbatim} Ifeffit>save( current.sav) \end{verbatim}}\noindent will save the program state to {\file{current.sav}}. You can also specify what kinds of program variables to save with optional arguments like {\tt{with\_strings}}, {\tt{no\_strings}}, {\tt{with\_arrays}}, {\tt{no\_arrays}}, and so forth. The default is to save everything. To restore a previously saved session, you use the {\tt{restore}} command, giving it the name of the save file (again, {\file{ifeffit.sav}\/} by default): {\small\begin{verbatim} Ifeffit>restore( my_save_file.sav) \end{verbatim}}\noindent This will load all the program variables saved in the given file. Note that it will {\emph{not}} erase any program variables that may have existed in the current session, but will overwrite any variables with the same name. This means that unless you start with a new session, it's possible that restoring a session may not produce an identical session to the previous one. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%% \clearpage \section{Defining and Using Macros}\label{s:macros} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Macros are named sequence of {\ifeffit} commands which can be run by simply typing the macro name. Macros are primarily designed to cut down on typing for repetitive tasks and to make {\ifeffit} easier to use and customize. While not going far enough to making {\ifeffit} a real programming language, macros offer some flexibility normally associated with batch processing languages. A macro is defined with the {\tt{macro}} keyword, after which comes a series of commands as you would type them to the command line and ending with {\tt{end macro}}. As a simple example, defining a macro named {\tt{make\_ps}} would look like this would be {\small\begin{verbatim} macro make_ps plot(device="/ps",file= "ifeffit.ps") end macro \end{verbatim} }\noindent Now, typing the new command {\tt{make\_ps}} will create a postscript file named {\file{ifeffit.ps}} of the current plot. This macro is only one line long, which doesn't save much typing, but we'll get to longer examples below. First, let's add an optional argument: what if you want the Postscript file to be named something other than {\file{ifeffit.ps}}, since multiple executions would just keep overwriting this file? For this, you can supply {\emph{macro arguments}}, which are variables named {\tt{\$1}}, {\tt{\$2}},\ldots, {\tt{\$9}} that are expanded in place as text strings by the first, second, \ldots, ninth arguments when the macro is run. The definition look like this {\small\begin{verbatim} macro make_ps plot(device="/ps",file= "$1") end macro \end{verbatim}}\noindent % $2 and would be invoked by {\tt{make\_ps data\_01.ps}} or {\tt{make\_ps my\_fit.ps}}. OK, but now what happens if you {\emph{don't}} give an argument? Well, the argument {\tt{\$1}} would be "", so that would be the same as saying {\tt{\ldots,file="")}}, which would create the default file {\file{ifeffit.ps}}. You can also define a default parameter for the macro at its definition, by including the default value on the ``{\tt{macro}}'' line. That is, {\small\begin{verbatim} macro make_ps other.ps plot(device="/ps",file= "$1") end macro \end{verbatim} }\noindent % $2 the default value for {\$1} will be {\tt{other.ps}}. The value for this parameter can still be overridden by saying {\tt{make\_ps data\_01.ps}}. Macros can be of arbitrary length (though the total number of macro lines in memory is fixed at 2048 lines). In addition, if the first line of a macro definition is a plain text string, this will be used as the macro documentation, and will be shown with {\tt{show @macros}}. A more typical macro may look like this {\small\begin{verbatim} macro do_pre_edge a "Read File, Calculate Pre-Edge, Plot, Write File" read_data($1.xmu, type = xmu, group = my) pre_edge(my.energy, my.xmu) my.norm = my.pre / edge_step $title1 = 'normalized, pre-edge subtracted data' write_data(file = $1.pre, $title1, energy, pre, norm, xmu) end macro \end{verbatim}}\noindent More example macros are included in the main {\ifeffit} distribution. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%% \clearpage \section{The {\tt{ifeffit}} command-line program}\label{s:cmdline} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% The main program distributed with {\ifeffit} is simply called {\tt{ifeffit}} (or {\tt{ifeffit.exe}} on Win32 systems) and runs the basic command interpreter we've been discussing throughout this tutorial. If you've been following along with the examples, you've run this program already. This, the final section of the tutorial, will give a few additional details of using this program. The emphasis here will be on the Unix version. On Unix and Unix-like systems, the {\tt{ifeffit}} program uses the GNU Readline library which supports command-line editing, which greatly enhances the usability of the command-line program by letting you 1) recall previous commands, 2) edit them with keyboard commands, and 3) use tab-completion. In short, the up-arrow and down-arrow keys work to scroll through previous commands, you can easily edit the command-line, and you can use the tab key to help you finish typing commands and file names. Following the usual GNU Readline behavior, 'emacs keybindings' are used, and there is a large number of 'control-keyboard-sequences' to assist editing the current command line. For example Ctrl-a (that's holding the control key and 'a' at the same time) will move to the beginning of the line, Ctrl-e will move to the end of the line. Both Ctrl-f and the right-arrow key will move one character to the right, and Ctrl-b and the left-arrow key will move one character to the left. Ctrl-p is the same as the up-arrow key, and Ctrl-n is the same as the down-arrow key, and will scroll through the previous and next commands in the ``history buffer''. Ctrl-k will cut the text from the current cursor position to the end of the line, and Ctrl-y will insert that cut text at the current point of the cursor. Following the behavior of many shell programs, Ctrl-d has a dual purpose: on an empty line it will exit the program (essentially the same as typing 'quit'!), while on a non-empty line it will erase one character at a time. Ctrl-h, on the other hand, will erase one character at a time backwards. There are several more control-sequences available for more rapid command-line editing -- consult the Readline documentation. Tab completion means that if you've typed {\tt{read}} at the command prompt and then hit the tab key, the program will guess that you wanted to type the command name {\tt{read\_data}}, and complete this word for you. If you type {\tt{re}} and hit tab, you should hear a beep because there are more than one possible completions -- hitting tab again will show the three possibilities {\tt{read\_data}}, {\tt{rename}}, and {\tt{restore}}. For the first word on a command-line, {\tt{ifeffit}} will use a restricted set of commands for tab completion (type 'help' or hit the tab key twice at the command prompt). For later words on the command-line, {\tt{ifeffit}} will use the set of files in the current working directory for tab completion. In addition to keeping a 'command history' for the current session, {\tt{ifeffit}} will maintain a recent history of commands between sessions, and re-load the command history on start-up. This allows you to scroll through the commands of earlier sessions. The commands are kept in memory, and re-saved into a{\emph{history file}} when {\tt{ifeffit}} exits. This file can be used as a record of your session, and as a starting place for batch command files, scripts, and macros. The name of the history file and the number of commands saved can be set with the environmental variables {\tt{IFF\_HISTORY\_FILE}} and {\tt{IFF\_HISTORY\_LINES}}. If these variables aren't set, the history file used will be named {\file{.ifeffit\_hist}} in your home directory and will contain up to 500 command lines. When {\tt{ifeffit}} is started, two 'start-up files' will be loaded, if found. These are loaded simply as command files, as if you typed their contents to the command-line. First, {\file{startup.iff}} in the installation directory (typically {\file{/usr/local/share/ifeffit}}) is loaded, and then the file {\file{.ifeffit}} in your home directory is loaded. These start-up files are intended for site-wide or personal definitions for common macros and color-table preferences. In fact, these start-up files are not only loaded by the command-line program, but are loaded by the underlying library, and so the definitions given in these start-up files can be used in scripts written using the {\ifeffit} library in perl or python. This can lead to a portability problem for scripts, however, and it is not necessarily recommended to rely on definitions in start-up files in lengthy scripts. When starting the{\tt{ifeffit}} program, you can give a list of {\ifeffit} command files and save files that will effectively be {\tt{load}}ed or {\tt{restore}ed} as necessary before the command-prompt is given to you. Just to be clear, these are loaded after any start-up files, so definitions in start-up files can be used in ``{\tt{load}}ed'' files. If multiple files are listed they will be {\tt{load}}ed / {\tt{restore}}ed in the order specified. To run a command file in 'batch mode', or non-interactively, you can use the {\tt{-x}} switch, which will load all the files on the command line and then exit, without ever showing the command prompt. Note that {\tt{pause}} statements, which would normally wait for your input are skipped in this 'batch mode'. For example, {\small\begin{verbatim} ~> ifeffit my_file.iff \end{verbatim}}\noindent will load {\file{my\_file.iff}} and then give you the command prompt to continue, while {\small\begin{verbatim} ~> ifeffit -x my_file.iff \end{verbatim} }\noindent will run {\file{my\_file.iff}} and then exit. If running in batch mode, you may want to redirect the screen output to a file ({\tt{ifeffit -x my\_file.iff > my\_file.out }}), or use the {\tt{-q}} switch ({\tt{ifeffit -q -x my\_file.iff}}) to ``run quietly'', suppressing screen output altogether. While in an {\tt{ifeffit}} session, there are a few additional commands available besides the standard commands of the {\ifeffit} library. The standard Unix ``shell commands'' {\tt{ls}}, {\tt{cd}}, {\tt{pwd}}, and {\tt{more}} work to give information about the current directory and files. Additional shell commands can be executed by preceding it with a {\tt{!}} sign, as in {\small\begin{verbatim} Ifeffit> ! gv ifeffit.ps \end{verbatim} }\noindent which will run {\tt{gv}} (a popular postscript viewer) for you. Putting an ampersand {\tt{\&}} at the end of this line will run the job in the background so that you can continue typing in the {\tt{ifeffit}} shell as well. That makes an effective way to edit command files: {\small\begin{verbatim} Ifeffit> ! emacs test_cmnd.iff & Ifeffit> load test_cmnd.iff \end{verbatim} }\noindent Finally, typing 'help' at the {\tt{ifeffit}} prompt will give a one-line description of the more common {\ifeffit} commands. \end{document} %% ifeffit-1.2.11d/doc/Tutorial/ifmacs_com.tex0000644000175000017500000000734010771740460017554 0ustar segresegre \setlength{\oddsidemargin}{0.25in} \setlength{\evensidemargin}{-0.25in} \setlength{\topmargin}{-0.25in} \setlength{\headsep}{0.375in} \setlength{\textheight}{9.00in} \setlength{\textwidth}{5.75in} \pagestyle{fancy} \fancyhf{} \addtolength{\headwidth}{\marginparwidth} \addtolength{\headheight}{2pt} \renewcommand{\headrulewidth}{0.7pt} \rhead{\slshape\thepage}\lhead{\bfseries\leftmark} \cfoot{} \definecolor{LightGrey}{gray}{0.675} \definecolor{HalfGrey}{gray}{0.5} \newcommand{\greyline}{{\color{LightGrey}{\rule{\linewidth}{0.75mm}}\par}} \newcommand{\ThickGreyLine}{{\color{HalfGrey}{\rule{\linewidth}{5pt}}\par}} \newcommand{\program}[1]{{{\scshape{#1}}}} \newcommand{\uwxafs}{\program{uwxafs3.0}} \newcommand{\feff}{\program{feff}} \newcommand{\feffit}{\program{feffit}} \newcommand{\autobk}{\program{autobk}} \newcommand{\atoms}{\program{atoms}} \newcommand{\ifeffit}{\program{ifeffit}} \newcommand{\gifeffit}{\program{g.i.feffit}} \newcommand{\XAIBook}{\textsl{XAFS Analysis with {\ifeffit} }} \newcommand{\IFFtut}{\textsl{The {\ifeffit} Tutorial}} \newcommand{\IFFrefg}{\textsl{The {\ifeffit} Reference Guide}} \newcommand{\cmnd}[1]{{\texttt{#1()}}} %external file name \newcommand{\file}[1]{{{\slshape\ttfamily{#1}}}} \newcommand{\feffndat}{\file{feffnnnn.dat}} \newcommand{\feffbin}{\file{feff.bin}} \newcommand{\autobkinp}{\file{autobk.inp}} \newcommand{\feffitlog}{\file{feffit.log}} %math constructions \newcommand{\Eo}{{\ensuremath{E_0}}} \newcommand{\muE}{{\ensuremath{\mu(E)}}} \newcommand{\Del}{{\ensuremath{\Delta \mu_0(E_0)}}} \newcommand{\bkg}{{\ensuremath{\mu_{0}(E)}}} \newcommand{\bkgk}{{\ensuremath{\mu_{0}(k)}}} \newcommand{\CHI}{{\ensuremath{\chi}}} \newcommand{\chiE}{{\ensuremath{\chi(E)}}} \newcommand{\chik}{{\ensuremath{\chi(k)}}} \newcommand{\chir}{{\ensuremath{\tilde\chi(R)}}} \newcommand{\chiq}{{\ensuremath{\tilde\chi(k)}}} \newcommand{\chisqr}{{\ensuremath{\chi^2}}} \newcommand{\redchi}{{\ensuremath{\chi^2_{\nu}}}} \newcommand{\Rmax}{{\ensuremath{R_{\rm max}}} } \newcommand{\kmin}{{\ensuremath{k_{\rm min}}} } \newcommand{\kmax}{{\ensuremath{k_{\rm max}}} } \newcommand{\Rbkg}{{\ensuremath{R_{\rm bkg}}} } \newcommand{\Nbkg}{{\ensuremath{N_{\rm bkg}}} } \newcommand{\RIst}{{\ensuremath{R_{\rm 1st}}} } \newcommand{\fp}{\ensuremath{{f'(E)}}} \newcommand{\fpp}{\ensuremath{{f''(E)}}} \newcommand{\angst}{\ensuremath{{\rm\,\AA}}} \newcommand{\iangst}{\ensuremath{{\rm\,\AA^{-1}}}} \newcommand{\ie}{{\emph{i.e.}}} \newcommand{\eg}{{\emph{e.g.}}} \newcommand{\etal}{{\emph{et al.}}} \newcommand{\abinitio}{{\emph{ab initio}}} %% \def\delim{\ensuremath{\langle {\rm delimiter} \rangle}} \def\rmand{{\rm and\ }} \def\rmor{{\rm or\ }} \def\caret{{{\^\ \kern-0.4em}}} \newcommand{\seealso}[1]{{{\texttt{{#1}}} (Section~\ref{Ch:Command:#1})}} \newcommand{\indexcmd}[1]{{\index{#1@{{\cmnd{#1}}}}}} \newcommand{\indexcmds}[2]{\index{#1@{{\cmnd{#1}}}!{#2}}} \newcommand{\indexvar}[1]{{\index{#1@{{\tt{#1}}}}}} \newcommand{\indexfil}[1]{{\index{#1@{{\file{#1}}}}}} \newcommand{\subfunc}[1]{\relax\par\vfill\goodbreak% \subsection{{\texttt{{#1}}}}{\label{Ch:Command:#1}\indexcmd{#1}}} \newcommand{\subfuncn}[1]{\subsection{{\texttt{{#1}}}}% {\label{Ch:Command:#1}\indexcmd{#1}}} \newcommand{\entryxlabel}[1]{\mbox{{\textsf{#1: }}}} \newcommand{\entrylabel}[1]{\mbox{{\textsf{#1: }}}\hfil} \newcommand{\yes}{Y} \newenvironment{IFFcom}{\begin{list}{}{\vspace{-0.05truein} \renewcommand{\makelabel}{\entrylabel}\settowidth{\leftmargin}{97pt} \settowidth{\labelwidth}{95pt}\setlength{\rightmargin}{15pt} \setlength{\labelsep}{2pt}\setlength{\listparindent}{0pt} \setlength{\itemindent}{0pt}\setlength{\itemsep}{-1pt}}} {\end{list}} ifeffit-1.2.11d/doc/Tutorial/license.tex0000644000175000017500000000271510771740460017077 0ustar segresegre%% %% toc and license notification %% \clearpage \setcounter{page}{1}\pagenumbering{roman} \tableofcontents \clearpage \section*{License} \bigskip \noindent{ Copyright \copyright 1997--2000 Matthew Newville, The University of Chicago} \noindent{ Copyright \copyright 1992--1996 Matthew Newville, University of Washington } \bigskip\noindent Permission to use and redistribute the source code or binary forms of this software and its documentation, with or without modification is hereby granted provided that the above notice of copyright, these terms of use, and the disclaimer of warranty below appear in the source code and documentation, and that none of the names of The University of Chicago, The University of Washington, or the authors appear in advertising or endorsement of works derived from this software without specific prior written permission from all parties. \medskip\noindent THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. \clearpage \setcounter{page}{1} \pagenumbering{arabic} ifeffit-1.2.11d/doc/Tutorial/title_pdf.tex0000755000175000017500000000062710771740460017432 0ustar segresegre \begin{flushright}\vspace*{0.375in} \vspace{10mm}{\ThickGreyLine} \vspace{5mm} {\Huge{The {\ifeffit} Tutorial}} \vspace{100mm} {\ } \thispagestyle{empty} \setcounter{page}{0} {\Large Matthew Newville}\par Consortium for Advanced Radiation Sources\par University of Chicago, Chicago, IL\par \thispagestyle{empty} \vspace{5mm} {\ThickGreyLine} {Version {\Vers}}\par {\update}\par \end{flushright} ifeffit-1.2.11d/doc/RefMan/0000755000175000017500000000000010771740460014273 5ustar segresegreifeffit-1.2.11d/doc/RefMan/commands.tex0000644000175000017500000023053510771740460016626 0ustar segresegre%%#fixtex% for html/pdf -*-latex-*- %% hint: seach for %_command_% and %_revised_% \section{Commands} \label{Ch:Commands} This chapter lists all the commands available to {\ifeffit}. As discussed in section~{\ref{Ch:Structure-commands}}, the basic syntax for {\ifeffit} commands is \begin{verbatim} Iff> command(key = value, key = value, key = value, ... ) \end{verbatim} \noindent That is, each command recognizes a set of command arguments, usually given as keyword/value pairs, where the keyword itself determines what type of variable will be read from the {\emph{value}} field, and what the command will do with that value. Some commands also use simple lists (comma delimited, but without the form {\emph{key = value}}) for some or all of their input arguments. Some commands read default values for their command parameters from the global set of Program Variables. Such default values are always read {\emph{before}} the keyword/value arguments are read, so that explicitly using the corresponding argument will always overwrite the default value. Many commands will write or change output values (scalars, arrays, and/or strings) to the global set of Program Variables. For each command, the following sections will list these attributes: `\begin{IFFcom} \item[Description] gives a brief description of the command. This description does not include much information about the algorithm used or when the use of the command would be appropriate for EXAFS analysis. \item [Input Program Variables] lists the Program Variables read as the default values of the command parameters. \item [Keywords/Values] describes the keywords for the command parameters, usually with a table of keywords, default program variable used for input, default value (if not given and default program variable is not set), and a description of the parameter (\textbf{Keyword}, \textbf{Variable}, \textbf{Default}, and \textbf{Description} respectively). Many commands have default keywords for the first few keywords -- these are indicated by a leading superscript: {\tt{${}^{1}$file}} would mean that {\tt{file}} was the default for the first keyword. \item [Output Program Variables] lists and describes the program variables that are created or modified. When arrays are created, they are listed with the generic group name {\tt{\$GROUP}}, which will be substituted by the current value of {\tt{\$group}}. \item [Notes] gives some additional information on the command, typically pointing out the unusual program variables used. \item [Examples] lists one or more examples of this command, though not necessarily using every feature. \item [See also] lists similar commands and other places in this {\textsl{Reference Guide}} \end{IFFcom} \noindent Many of the {\ifeffit} commands use similar syntax, program variables, and conventions for their command arguments. This is especially true for the input and output of scalars and data arrays, and for parameters used in background removal and Fourier transforms. To this end, and for the sake of brevity and coherence, the glossary in Appendix~{\ref{App:Glossary}} contains more detailed description of the common program variables and conventions used. Additional hints can usually be found in the \entryxlabel{Notes} section. %_command_% bkg_cl %_revised_% 2003-01-25 \relax\par\vfill \subsection{\texttt{bkg\_cl}} \label{Ch:Command:bkg-cl}\indexcmd{bkg\_cl} \begin{IFFcom} \item[Description] Use values of x-ray scattering factors derived from the Cromer-Libermann tables to estimate the pre-edge and normalization constant for XAFS data. The tabulated values for {$f''(E)$} are modified by multiplying by a constant and adding a quadratic polynomial in energy so that they best match the input XAFS data {\muE}. \item[Input Program Variables] {\tt{\$group}}. \item[Keywords/Values] {\relax \hspace{0.25truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} ${}^{1}${energy} & & & {energy array name} \\ ${}^{2}${xmu} & & & {xmu array name} \\ ${}^{3}${z} & & & {atomic number for element} \\ {group} &{\tt{\$group}} & & {group name for output arrays} \\ {e0} & & & {$E_0$, the energy origin} \\ {width} & & & {energy convolution width for calculated {\muE}} \\ {edge\_step} & & & {Edge Step} \\ {pre1} & &{-200.} & {pre-edge line lower limit} \\ {pre2} & &{-50.} & {pre-edge line upper limit} \\ {norm1} & &{100.} & {normalization line lower limit} \\ {norm2} & &{300.} & {normalization line upper limit} \\ {norm\_order} & &{2.} & {order of normalization polynomial}\\ {find\_e0} & &{F} & {flag to force finding $E_0$} \\ {interp} & &{quad} & {method to use for data interpolation} \\ \noalign{\smallskip} \end{tabular} \noindent \item[Output Program Variables] \begin{sloppypar} Scalars: {\tt{e0}}, {\tt{edge\_step}}, {\tt{pre1}}, {\tt{pre2}}, {\tt{norm1}}, {\tt{norm2}}, {\tt{pre\_slope}}, {\tt{pre\_offset}}, {\tt{norm\_c0}}, {\tt{norm\_c1}}, {\tt{norm\_c2}}, {\tt{\$group}}. \end{sloppypar} \begin{sloppypar} Arrays: {\tt{\$GROUP.pre}}, {\tt{\$GROUP.norm}}, {\tt{\$GROUP.k}}, and {\tt{\$GROUP.chi}} for the data and {\tt{\$GROUP.f2}}, {\tt{\$GROUP.f2pre}}, and {\tt{\$GROUP.f2norm}} for the calculation. \end{sloppypar} \item[Notes] The Cromer-Libermann calculations have a sharp jump in $f''(E)$ at the absorption edge which generally needs to be broadened (here, by using {\tt{width}}, in eV) to match {\muE} data. The output pre-edge subtracted {muE} ({\tt{\$GROUP.pre}} and {\tt{\$GROUP.norm}} for the normalized version) are probably the most useful -- while {\tt{\$GROUP.k}} and {\tt{\$GROUP.chi}} may be completely useless. The output arrays for the calculation are chosen to match the input {\muE} data ({\tt{\$GROUP.f2}}) and the pre-edge subtracted ({\tt{\$GROUP.f2pre}}) and normalized ({\tt{\$GROUP.f2norm}}) data. \item[Examples] {\hspace{0.25truein} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> bkg_cl(data.energy,data.xmu, z = 29) \end{verbatim} \item[See also] {\MNseealso{f1f2}}, {\MNseealso{spline}}, {\texttt{pre\_edge}} (Section~\ref{Ch:Command:pre-edge}). \end{IFFcom} %_command_% chi_noise %_revised_% 2002-03-31 \relax\par\vfill \subsection{\texttt{chi\_noise}} \label{Ch:Command:chi-noise}\indexcmd{chi\_noise} \begin{IFFcom} \item[Description] Estimates the measurement uncertainty of XAFS data. The estimates are made simply from the RMS value of the high-$R$ range of $\chi(R)$, under the assumption that the EXAFS has died out substantially above 15{\AA} or so. \item[Input Program Variables] FT parameters {\tt{kmin}}, {\tt{kmax}}, {\tt{kweight}}, {\tt{dk1}}, {\tt{dk2}}, {\tt{\$kwindow}}, and {\tt{\$altwindow}}. \item[Keywords/Values] {\relax \hspace{0.25truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} ${}^1${chi}& & & array of $\chi$ data to estimate noise of.\\ k & & & array of $k$ data. \\ group & {\tt{\$group}} & & group name for arrays. \\ kmin & {\tt{kmin}} & 0& FT parameter \\ kmax & {\tt{kmax}} & 0& FT parameter. \\ dk1 & {\tt{dk1}} & & FT parameter. \\ dk2 & {\tt{dk2}} & & FT parameter. \\ dk & & & sets both {\tt{dk1}} and {\tt{dk2}}.\\ kweight & {\tt{kweight}} & & FT parameter. \\ kwindow & {\tt{\$kwindow}}& & FT parameter. \\ altwindow & & & FT parameter. \\ rwgt1 & & 15. & lower $R$ bound of high $R$ range. \\ rwgt2 & & 25. & upper $R$ bound of high $R$ range. \\ \end{tabular} \noindent \item[Output Program Variables] {\tt{epsilon\_k}} will contain the estimated uncertainty in $\chi(k)$, and {\tt{epsilon\_r}} will contain the estimated uncertainty in $\chi(R)$. {\tt{kmin}}, {\tt{kmax}}, {\tt{kweight}}, {\tt{dk1}}, {\tt{dk2}}, and {\tt{\$group}} will be updated. \item[Notes] In practice, {\tt{chi\_noise}} is rarely used directly, because {\tt{feffit}} will automatically run this for you. It is sometimes useful to understand how the uncertainties are estimated. \item[Examples] {\hspace{0.25truein} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> chi_noise(data.chi,kmin=2,kmax=15,dk=1,kweight=2) \end{verbatim} \item[See also] {\MNseealso{feffit}}. \end{IFFcom} %_command_% color %_revised_% 2002-03-31 \subfunc{color} %------ \begin{IFFcom} \item[Description] Manipulate the plotting color table. The color table is used to set the default colors for the traces (x-y pairs) in a plot as well as the background, foreground and grid colors. Note that colors on screen will not be affected until {\texttt{plot}} is re-executed. \item[Input Program Variables] None. \item[Keywords/Values] {\relax \hspace{0.25truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} {show} & & & display color table\\ {fg} & & black & foreground color\\ {bg} & & white & background color\\ {grid} & & \#CCBEE0 & color of grid displayed on window\\ 1 & & blue & first x-y trace\\ 2 & & red & second x-y trace\\ 3 & & green & third x-y trace\\ 4 & & black & fourth x-y trace\\ 5 & & magenta & fifth x-y trace\\ \vdots & & & \vdots\\ \noalign{\smallskip} \end{tabular} \noindent \item[Output Program Variables] None. \item[Notes] The foreground color will be used for the outer box, tick marks, and all text on plot. The list of named colors can be found in the file {\file{rgb.txt}} in the PGPLOT installation directory. \item[Examples] {\hspace{0.25truein} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> color (fg = white, bg = black) Iff> color (1 = red, 2 = '#33EEBB') \end{verbatim} \item[See also] {\MNseealso{linestyle}},{\MNseealso{plot}}, section~{\ref{Ch:Plot-Color}}. \end{IFFcom} %_command_% comment %_revised_% 2002-03-31 \subfunc{comment} %------ \begin{IFFcom} \item[Description] Write a comment line to the command history buffer. \item[Input Program Variables] None. \item[Keywords/Values] None. \item[Output Program Variables] None. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> comment 'this next part requires four hands to play' \end{verbatim} \noindent %---- \item[See also] {\MNseealso{history}}. \end{IFFcom} %_command_% correl %_revised_% 2002-03-31 \subfunc{correl} %------ \begin{IFFcom} \item[Description] Converts selected values from the correlation matrix of fitting variables into named program variables. \item[Input Program Variables] {\tt{correl\_min}}. \item[Keywords/Values] {\relax \hspace{0.25truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} ${}^1${x} & & & name of first fitting variable \\ ${}^2${y} & & & name of second fitting variable \\ {out} & & (see notes) & scalar name for result\\ {min} & {\tt{correl\_min}} & 0.05 & minimum correlation to report\\ {print} & & F & flag to print correlation values \\ {save} & & T & flag to save correlation values to scalars \\ {no\_save} & & F & flag to NOT save correlation values to scalars \\ \noalign{\smallskip} \end{tabular} \noindent \item[Output Program Variables] None. \item[Notes] If the {\tt{out}} argument is not given and if the {\tt{save}} option is used, the output scalar containing the correlation will be named {\tt{correl\_xx\_yy}} for variables {\tt{xx}} and {\tt{yy}}. The value {\tt{@all}} can be used for either or both of {\tt{x}} and {\tt{y}} to tell the command to extract all the correlations for that variables. If the correlation value requested is smaller than the minimum reportable correlation, then nothing is printed or saved. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> correl(x=e0,y=delr_1,print,no_save) correl_e0_delr1 = 0.870124 Iff> correl(x=e0,y=delr_1,save,min=0.2) Iff> print correl_e0_delr_1 correl_e0_delr1 = 0.870124 Iff> correl(x=e0,y=@all,print,min=0.6) correl_e0_delr1 = 0.870124 \end{verbatim} \item[See also] {\MNseealso{feffit}}, {\MNseealso{minimize}}. \end{IFFcom} %_command_% cursor %_revised_% 2002-03-31 \subfunc{cursor} %------ \begin{IFFcom} \item[Description] Select a point on the graphics screen, and get its x and y values. The point is typically selected with a left-click of the mouse button. The program will wait until the point is selected before continuing. Since the program will do nothing until input is given, it is recommended that macros, scripts, and programs inform the user that input is expected. \item[Input Program Variables] None. \item[Keywords/Values] The following flags can be given to customize the behavior of {\cmnd{cursor}}: {\relax \hspace{0.25truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Description}\\ \noalign{\smallskip} {show} & print output string after selection\\ {last\_pos} & start cursor at previously selected position\\ {cross-hair} & show cross-hair over full plot window\\ {horiz} & show horizontal line over full plot window\\ {vert} & show horizontal line over full plot window\\ {xrange} & see section~\ref{Ch:Plot-cursor}\\ {yrange} & see section~\ref{Ch:Plot-cursor}\\ \noalign{\smallskip} \end{tabular} \noindent \item[Output Program Variables] {\texttt{cursor\_x}}, and {\texttt{cursor\_y}} contain the x and y positions of the cursor, respectively. \item[Notes] \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> cursor(show) cursor_x = 2.05795 , cursor_y = -3.34442 \end{verbatim} \item[See also] {\MNseealso{plot}}, {\MNseealso{zoom}}, Section~\ref{Ch:Plot-cursor}. \end{IFFcom} %_command_% def %_revised_% 2002-03-31 \subfunc{def} %-------- \begin{IFFcom} \item[Description] define a Program Variable. In contrast to {\cmnd{set}}, {\cmnd{def}} remembers the definition (ie, the mathematical formula) of numerical Program Variables. This is especially useful for complex math expressions used in non-linear least squares fits. \item[Input Program Variables] None. \item[Keywords/Values] The keyword is taken as the name of the variable to be assigned, and the Value is taken as the mathematical expression to use for the definition. \item[Output Program Variables] None. \item[Notes] {\cmnd{def}} is the default command and so is optional. That is, simply typing {\tt{a = b}} is equivalent to {\tt{def a = b}}. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> def (b = a + 1, c = 100 * sqrt(b) ) Iff> def my.chik = my.chi * my.k^kweight \end{verbatim} \noindent %---- Note that both {\tt{b}} and {\tt{c}} will change if {\tt{a}} changes, and that {\tt{my.chik}} will automatically update when {\tt{kweight}} changes. \item[See also] {\MNseealso{set}}, {\MNseealso{sync}}. \end{IFFcom} %_command_% echo %_revised_% 2002-03-31 \subfunc{echo} %------ \begin{IFFcom} \item[Description] echo a text string to the screen, without any interpolation of variables. This is mostly useful in macros. \item[Input Program Variables] {\tt{\&screen\_echo}}, which can be used to turn on and off the actual `echo'ing. \item[Keywords/Values] None. \item[Output Program Variables] None. \item[Notes] Setting {\tt{\&screen\_echo}} to zero will suppress the actual `echo'ing (see example). Note that this will also cause all {\cmnd{pause}} commands to be ignored, which can be useful for batch processing. In fact, setting {\tt{\&screen\_echo}} to an even value will suppress the actual echo, and setting it to an odd number will turn on the echo. This can be used in conjuction with the {\cmnd{log}} command to fully control printing to the screen and/or the log file defined with {\cmnd{log}}. {\tt{\&screen\_echo}} of 0 will suppress all printing, 1 will print to the screen but not the log file, 2 will print to the log file but not the screen, and 3 will print to both. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> echo "here's a comment!" here's a comment! Iff> &screen_echo = 0 Iff> echo "here's a comment!" Iff> \end{verbatim} \item[See also] {\MNseealso{comment}}, {\MNseealso{log}}, {\MNseealso{macro}}, {\MNseealso{pause}}, {\MNseealso{print}}. \end{IFFcom} %_command_% erase %_revised_% 2003-01-25 \subfunc{erase} %------------------- \begin{IFFcom} \item[Description] Erase one or more Program Variables. Erasing removes the variable from memory (as opposed to just resetting it). This is not a keyword/value command, but a list-directed command see section~\ref{Ch:Structure-commands}). \item[Input Program Variables] None. \item[Keywords/Values] {\texttt{@arrays}}, {\texttt{@scalars}}, {\texttt{@strings}},will erase every array, scalar, and string. You can also erase an entire group with {\texttt{@group}}, or a path definition with {\texttt{@path}}. \item[Notes] You cannot currently erase only fitting variables, or individual macros. \item[Output Program Variables] None. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> erase kmin, my.energy Iff> erase @strings Iff> erase @group = my \end{verbatim} \noindent This first will erase the scalar {\texttt{kmin}}, and the array {\texttt{my.energy}}. The second will erase all text strings. The third will erase all arrays in the {\tt{my}} group. \item[See also] {\MNseealso{rename}}, {\MNseealso{set}}, {\MNseealso{show}}, {\MNseealso{unguess}}. \end{IFFcom} %_command_% exit %_revised_% 2002-03-31 \subfunc{exit} %------------------- \begin{IFFcom} \item[Description] Exit the program. \item[Keywords/Values] None. \item[Output Program Variables] None. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> exit \end{verbatim} \item[See also] {\MNseealso{quit}}. \end{IFFcom} %_command_% f1f2 %_revised_% 2002-04-01 \subfunc{f1f2} %------------------- \begin{IFFcom} \item[Description] Get x-ray scattering factors {\fp} and {\fpp} derived from the Cromer-Libermann tables over a specified energy range. The tabulated values can be broadened with a Lorenztian function. \item[Input Program Variables] {\tt{\$group}}. \item[Keywords/Values] {\relax \hspace{0.25truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} ${}^{1}${energy} & & & {energy array name} \\ ${}^{2}${z} & & & {atomic number for element} \\ {group} &{\tt{\$group}} & & {group name for output arrays} \\ {width} & & 0. & {energy convolution width.} \\ {do\_f1} & & T & {flag for calculating {\fp}.} \\ {do\_f2} & & T & {flag for calculating {\fpp}.} \\ \noalign{\smallskip} \end{tabular} \noindent \item[Notes] The width, if supplied, will be used to broaden both {\fp} and {\fpp}. The sign convention used for {\fp} and {\fpp} are the ``conventional'', if somewhat internally inconsistent version that is in wide use in crystallography. That is, {\fpp} is a positive quantity and {\fp} is negative, and at an absorption edge the change in {\fpp} will be positive and the cusp in {\fp} will point down. \item[Output Program Variables] Arrays {\tt{\$GROUP.f1}} (for {\fp}) and {\tt{\$GROUP.f2}} for {\fpp} will be generated for each energy of the input energy array. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> f1f2(energy=cu.energy, z=29) \end{verbatim} \item[See also] {\cmnd{bkg\_cl}} (Section~\ref{Ch:Command:bkg-cl}), \end{IFFcom} %_command_% feffit %_revised_% 2002-04-01 \subfunc{feffit} %------ \begin{IFFcom} \item[Description] Fit XAFS $\chi(k)$ data to a sum of {\feff} paths, optimizing a set of fitting variables in the process. \item[Input Program Variables] {\tt{rmin}}, {\tt{rmax}}, {\tt{kmin}}, {\tt{kmax}}, {\tt{kweight}}, {\tt{dk1}}, {\tt{dk2}}, {\tt{\$kwindow}}, {\tt{data\_set}}, {\tt{data\_total}}, {\tt{\$fit\_space}}. \item[Keywords/Values] {\relax \hspace{0.25truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} ${}^{1}${\emph{path list}} & & & list of paths (see note 1)\\ {chi} & & & array of $\chi$ data to fit\\ k & & & array of $k$ data \\ group & {\tt{\$group}} & {\tt{feffit}} & group name for created arrays \\ rmin & {\tt{rmin}} & 0& $R_{\rm min}$: lower $R$ bound of fit \\ rmax & {\tt{rmax}} & 0& $R_{\rm max}$: upper $R$ bound of fit \\ kmin & {\tt{kmin}} & 0& FT parameter \\ kmax & {\tt{kmax}} & 0& FT parameter \\ dk1 & {\tt{dk1}} & & FT parameter \\ dk2 & {\tt{dk2}} & & FT parameter \\ dk & & & sets both {\tt{dk1}} and {\tt{dk2}}\\ kweight &{\tt{kweight}} & & FT parameter \\ kwindow &{\tt{\$kwindow}} & & FT parameter \\ altwindow & & & FT parameter. \\ epsilon\_k &{\tt{epsilon\_k}}& & uncertainty in $\chi(k)$ data\\ epsilon\_R &{\tt{epsilon\_r}}& & uncertainty in $\chi(R)$ data (see note 2)\\ {toler} & & 1.e-8 & fitting tolerance\\ \noalign{\smallskip} {data\_set} & {\tt{data\_set}} & 1 & index of the current data set \\ {data\_total} & {\tt{data\_total}} & 1 & total number of data sets in fit \\ \noalign{\smallskip} fit\_space & {\tt{\$fit\_space}} & & name of space for fit (see note 3)\\ do\_real & & F & save real part of best-fit $\tilde\chi(k)$ \\ do\_mag & & F & save magnitude of best-fit $\tilde\chi(k)$ \\ do\_phase & & F & save phase of best-fit $\tilde\chi(k)$ \\ \noalign{\smallskip} {do\_bkg} & & F & refine background spline (see note 4) \\ {macro} & & & user macro to run at each iteration (see note 5)\\ {restraint} & & & scalar restraint (see note 6)\\ \noalign{\smallskip} \end{tabular} \noindent \item[Output Program Variables] {\tt{data\_total}}, {\tt{chi\_square}}, {\tt{chi\_reduced}}, {\tt{r\_factor}}, {\tt{n\_idp}}, {\tt{n\_varys}}, {\tt{epsilon\_k}}, {\tt{epsilon\_r}}, and the above FT parameters. In addition, the estimated uncertainty for each variable will be stored in variables with names like {\tt{delta\_VAR}}. Arrays will be created (or overwritten) for the best-fit $\chi(k)$ and $\chi(R)$: {\tt{\$GROUP.k}} and {\tt{\$GROUP.chi}}, {\tt{\$GROUP.chir\_mag}}, {\tt{\$GROUP.chir\_real}}, {\tt{\$GROUP.chir\_imag}}. Optional output arrays can be written for other parts of the complex $\tilde\chi(k)$ according to the appropriate keyword: {\tt{\$GROUP.chi\_real}} ({\tt{do\_real}}), {\tt{\$GROUP.chi\_mag}} ({\tt{do\_mag}}), and {\tt{\$GROUP.chi\_phase}} ({\tt{do\_phase}}). \item[Notes] { } \begin{enumerate} \item {\cmnd{feffit}} uses a list of paths as the default argument. \item If neither {\tt{epsilon\_k}} nor {\tt{epsilon\_r}} arguments are provided, {\cmnd{feffit}} will execute {\cmnd{chi\_noise}} on the supplied data to get these values. \item Valid values for {\tt{fit\_space}} are 'k', 'R', and 'Q', with 'Q' meaning backtransformed $k$-space. The default is 'R'. \item By using {\tt{do\_bkg}}, the fit will add several variables to define a spline $\mu_0(k)$ that will be added to the model {\chik}, and the miminum $R$ value used in the fit will be set to 0.0. The {\emph{number}} of spline parameters will be determined by {\tt{rmin}} (now acting in the role of {\tt{rbkg}} in the {\cmnd{spline}} command) so that the spline will only be ``free enough'' to easily match the low-$R$ portion of the spectra. \item A user-defined macro can be run at each iteration of the fit. This will cause serious problems when {\cmnd{feffit}} is itself called in a macro, but works otherwise. This makes for a convenient way to inspect a fit as it happens. \item Up to separate 10 restraint conditions can be added. \end{enumerate} \item[Examples] {\hspace{0.25truein} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> feffit(chi=cu.chi, 1,2,4-6, rmin=1,rmax=4, kmin=2, kmax=18, kweight=2, dk=5, kwindow='Kaiser') \end{verbatim} \item[See also] {\cmnd{chi\_noise}} (Section~\ref{Ch:Command:chi-noise}), {\MNseealso{ff2chi}}, {\MNseealso{minimize}}, {\MNseealso{path}}, Chapter~{\ref{Ch:FEFFIT}}. \end{IFFcom} %_command_% ff2chi %_revised_% 2002-04-01 \subfunc{ff2chi} %------ \begin{IFFcom} \item[Description] Sum a set of {\feff} paths to generate $\chi(k)$. The paths must be defined by the {\cmnd{path}} command. \item[Input Program Variables] None. \item[Keywords/Values] {\relax \hspace{0.25truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} ${}^{1}${\emph{path list}} & & & list of paths\\ {group} & & {\tt{feff}} & group name for created arrays\\ {kmin} & & 0. & $k_{\rm min}$ for output arrays \\ {kmax} & & 20. & $k_{\rm max}$ for output arrays \\ {s02} & & 1. & overall scale factor for {\chik}\\ {sigma2} & & 0. & overall $\sigma^2$ for {\chik} \\ {do\_real} & & F & save real part of {\chik}\\ {do\_phase} & & F & save phase-shift of {\chik}\\ {do\_mag} & & F & save magnitude of {\chik}\\ {do\_all} & & F & save all optional output\\ \end{tabular} %% {do\_cphase} & & & save central atom phase-shift of {\chik}\\ \item[Output Program Variables] Arrays for $k$ and $\chi(k)$ will be written to {\tt{\$GROUP.k}} and {\tt{\$GROUP.chi}}. Optional output arrays can be written for other parts of the complex $\tilde\chi(k)$ according to the appropriate keyword: {\tt{\$GROUP.chi\_real}} ({\tt{do\_real}}), {\tt{\$GROUP.chi\_mag}} ({\tt{do\_mag}}), and {\tt{\$GROUP.chi\_phase}} ({\tt{do\_phase}}). \item[Notes] Like {\cmnd{feffit}}, {\cmnd{ff2chi}} uses a list of paths as the default argument. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> ff2chi(1,2,4-9, do_phase) \end{verbatim} \noindent %---- \item[See also] {\MNseealso{feffit}}, {\MNseealso{fftf}}, Chapter~{\ref{Ch:FEFFIT}}. \end{IFFcom} %_command_% fftf %_revised_% 2003-01-25 \subfunc{fftf} %------ \begin{IFFcom} \item[Description] Forward XAFS Fourier Transform of an array. Generally used for transforming from $\chi(k)$ to $\tilde\chi(R)$. This does a discrete Fourier Transform. \item[Input Program Variables] {\tt{kmin}}, {\tt{kmax}}, {\tt{dk1}},{\tt{dk2}},{\tt{kweight}}, {\tt{\$kwindow}} and {\tt{rmax\_out}}. \item[Keywords/Values] {\relax \hspace{0.25truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} ${}^{1}${real} & & & array for $\rm Re[\chi(k)]$. \\ {imag} & & & array for $\rm Im[\chi(k)]$. \\ k & & & array of $k$ data \\ group & {\tt{\$group}} & & group name for output arrays \\ kmin & {\tt{kmin}} & 0& $k_{\rm min}$ FT parameter \\ kmax & {\tt{kmax}} & 0& $k_{\rm max}$ FT parameter \\ dk1 & {\tt{dk1}} & & FT parameter \\ dk2 & {\tt{dk2}} & & FT parameter \\ dk & & & sets both {\tt{dk1}} and {\tt{dk2}}\\ kweight & {\tt{kweight}} & & $k$-weight FT parameter \\ kwindow & {\tt{\$kwindow}} & & FT window function \\ altwindow & & & array for alternate FT window. \\ \noalign{\smallskip} phase\_array & & & phase array for phase-correction.\\ pc\_edge & & & element name and edge symbol for phase-correction.\\ pc\_feff\_path & & & index of path to use for phase-correction.\\ pc\_caps & & & flag to use central-atom phase-shift in phase-correction \\ pc\_full & & & flag to use full phase-shift in phase-correction \\ \end{tabular} \item[Output Program Variables] {\tt{kmin}}, {\tt{kmax}}, {\tt{dk1}}, {\tt{dk2}}, {\tt{kweight}}, and {\tt{rmax\_out}} will be set on output. In addition, several arrays will be created: {\tt{\$GROUP.win}} will contain the $k$-space window array, $W(k)$; {\tt{\$GROUP.r}} will contain the array of $r$ values, {\tt{\$GROUP.chir\_mag}} will contain $|\tilde\chi(R)|$, {\tt{\$GROUP.chir\_re}} will contain $\rm Re[\tilde\chi(R)]$, and {\tt{\$GROUP.chir\_im}} will contain $\rm Im[\tilde\chi(R)]$. \item[Notes] See Appendix~{\ref{App:Fourier}}. Normally, {\texttt{\$ftf\_real}} names the {\chik} array, and {\texttt{\$ftf\_imag}} remain unset. If the real (or imaginary) part of the input {\chik} data does {\emph{not}} start at $k=0$, the array of $k$ values should be specified with the keyword {\tt{k}}. Otherwise, the FT will be inaccurate. Phase-corrected Fourier transforms can be done by providing a phase array -- see section~\ref{Ch:XAFSProcess-pcft} and Appendix~{\ref{App:Fourier}} for details. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> fftf(real=my.chi, kmin = 1.0, kmax =16.0, dk=1.0, kweight=2., kwindow= 'hanning' ) \end{verbatim} \item[See also] {\MNseealso{fftr}}, {\MNseealso{window}}, section~\ref{Ch:XAFSProcess-ft}, section~\ref{Ch:XAFSProcess-pcft}, Appendix~{\ref{App:Fourier}}. \end{IFFcom} %_command_% fftr %_revised_% 2002-04-01 \subfunc{fftr} %------ \begin{IFFcom} \item[Description] Reverse XAFS Fourier Transform of an array. Generally used for transforming from $\tilde\chi(R)$ to $\tilde\chi(k)$. This does a discrete Fourier Transform.. \item[Input Program Variables] {\tt{rmin}}, {\tt{rmax}}, {\tt{dr1}},{\tt{dr2}},{\tt{\$rwindow}}. \item[Keywords/Values] {\relax \hspace{0.25truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} ${}^{1}${real} & & & array for $\rm Re[\chi(R)]$. \\ {imag} & & & array for $\rm Im[\chi(R)]$. \\ r & & & array of $R$ data \\ group & {\tt{\$group}} & & group name for output arrays \\ rmin & {\tt{rmin}} & 0& $R_{\rm min}$ FT parameter \\ rmax & {\tt{rmax}} & 0& $R_{\rm max}$ FT parameter \\ dr1 & {\tt{dr1}} & & FT parameter \\ dr2 & {\tt{dr2}} & & FT parameter \\ dr & & & sets both {\tt{dr1}} and {\tt{dr2}}\\ rweight & {\tt{rweight}} & & $R$-weight FT parameter \\ rwindow & {\tt{\$rwindow}} & & FT window function \\ altwindow & & & array for alternate FT window. \\ \end{tabular} \item[Output Program Variables] {\tt{rmin}}, {\tt{rmax}}, {\tt{dr1}}, {\tt{dr2}}, {\tt{rweight}}, and {\tt{rmax\_out}} will be set on output. In addition, several arrays will be created: {\tt{\$GROUP.rwin}} will contain the $R$-space window array, $W(R)$; {\tt{\$GROUP.q}} will contain the array of $k$ values for the back-transform, {\tt{\$GROUP.chiq\_mag}} will contain $|\tilde\chi(k)|$, {\tt{\$GROUP.chiq\_re}} will contain $\rm Re[\tilde\chi(k)]$, and {\tt{\$GROUP.chiq\_im}} will contain $\rm Im[\tilde\chi(k)]$. \item[Notes] See Appendix~{\ref{App:Fourier}}. {\texttt{rweight}} sets the $R$-weight for the Fourier Transform, but is not traditionally used. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> fftr(real=my.chir_re, imag = my.chir_im, rmin = 1.0, rmax =4.0, dr = 0.2) \end{verbatim} \item[See also] {\MNseealso{fftf}}, {\MNseealso{window}}, Appendix~{\ref{App:Fourier}}. \end{IFFcom} %_command_% get_path %_revised_% 2002-04-01 \relax\par\vfill \subsection{\texttt{get\_path}} \label{Ch:Command:get-path}\indexcmd{get\_path} \begin{IFFcom} \item[Description] Convert Path Parameters from a {\feff} path into regular program variables. \item[Input Program Variables] None. \item[Keywords/Values] {\relax \hspace{0.25truein}\par\noindent\relax} \begin{tabular}{lll} \textbf{Keyword} & \textbf{Description}\\ \noalign{\smallskip} ${}^{1}${path} & Path index. \\ ${}^{2}${group} & group name for arrays and prefix for scalar names. \\ {do\_arrays} & flag to create arrays \\ \end{tabular} \item[Output Program Variables] The scalar values of the Path Parameters {\tt{s02}}, {\tt{e0}}, {\tt{ei}}, {\tt{delr}}, {\tt{sigma2}}, {\tt{third}}, {\tt{fourth}}, {\tt{degen}}, and {\tt{reff}}, will be written to variables {\tt{PREFIX\_s02}}, {\tt{PREFIX\_e0}}, {\tt{PREFIX\_ei}}, \ldots {\tt{PREFIX\_reff}} where {\tt{PREFIX}} is the given path prefix. If {\tt{do\_arrays}} is set, the arrays from the {\feffndat} file will be turned into {\ifeffit} arrays, with names {\tt{PREFIX.k}}, {\tt{PREFIX.amp}}, {\tt{PREFIX.phase}}, {\tt{PREFIX.caps}}, {\tt{PREFIX.rep}}, and {\tt{PREFIX.lambda}}. These arrays are on a non-uniform and fairly sparse $k$-grid, which can be interpolated onto a uniform $k$-grid. \item[Notes] The default prefix for path $NNN$ is {\tt{pathNNN}}. That is, the default prefix for path 1 is {\tt{path001}}. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> get_path(2) Iff> show path002_reff, path002_s02 path001_reff = 3.6032000 path001_s02 = 0.9300000 \end{verbatim} \item[See also] {\MNseealso{feffit}}, {\MNseealso{ff2chi}}, and {\MNseealso{path}}. \end{IFFcom} %_command_% guess \subfunc{guess} %------ \begin{IFFcom} \item[Description] Define a fitting variable, and set it's initial value. \item[Input Program Variables] None. \item[Keywords/Values] None. \item[Output Program Variables] Keywords for {\texttt{guess}} are interpreted as names of numeric scalars. The Values are interpreted as math expressions, evaluated upon definition to give the initial value of the variable. Several Keyword/Value pairs can occur together. The parentheses are optional. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> guess (x = 1. , y = 2.00 ) Iff> guess z = y * sqrt(2) \end{verbatim} \item[See also] {\MNseealso{set}}, {\MNseealso{sync}}, {\MNseealso{feffit}}, {\MNseealso{minimize}}, {\MNseealso{unguess}}. \end{IFFcom} %_command_% history \subfunc{history} %------ \begin{IFFcom} \item[Description] Open a file to record a ``history'' of {\ifeffit} commands as they are executed. \item[Input Program Variables] None. \item[Keywords/Values] {\relax \hspace{0.25truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} ${}^{1}${file} & & & name of history file. \\ {off} & & & flag to turn off history recording.\\ \end{tabular} \item[Output Program Variables] The variable {\texttt{\$historyfile}} is updated to name the current (or most recently used) history file. \item[Notes] The formal syntax for setting variables is recorded. This reflects the fact that the commands recorded are those actually executed. Certain commands (such as the recording of macros and {\tt{history}} itself) are not recorded. The history file is {\emph{not}} guaranteed to be readable until after {\ifeffit} has been exited, or until the recording has been explicitly turned off with a {\tt{history(off)}} command. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> history(ifeffit.his) Iff> comment "Here's a comment" Iff> a = 1.22 Iff> b = a * 8 Iff> history(off) \end{verbatim} \noindent This will create a file {\file{ifeffit.his}}, and then fill it with the following lines: {\small{ %%#VerbSBox% \begin{VerbSBox} # Here's a comment def (a = 1.22) def (b = a * 8) \end{VerbSBox} %%#VerbSBox% }}\noindent \item[See also] {\MNseealso{comment}}, {\MNseealso{load}}. \end{IFFcom} %_command_% linestyle \subfunc{linestyle} %------ \begin{IFFcom} \item[Description] Manipulate the table of plotting linestyles. The linestyle table (like the color table) is used to set the default linestyles for the traces (x-y pairs) in a plot. \item[Input Program Variables] None. \item[Keywords/Values] \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} {show} & & & display linestyle table\\ 1 & & solid & first x-y trace\\ 2 & & solid & second x-y trace\\ 3 & & solid & third x-y trace\\ \vdots & & & \vdots\\ \noalign{\smallskip} \end{tabular} \item[Output Program Variables] Valid values for the linestyles are: {\tt{solid}}, {\tt{dashed}}, {\tt{dotted}}, {\tt{dot-dashed}}, {\tt{pointsN}} and {\tt{linespointsN}} (both for N = 1,2,3,\ldots). Like for the color table, the linestyle table is affected by explicitly setting the linestyle of a trace with the {\cmnd{plot}} command. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> linestyle(1=solid, 2 =dashed) \end{verbatim} \noindent %---- \item[See also] {\MNseealso{color}}, {\MNseealso{plot}}. \end{IFFcom} %_command_% load \subfuncn{load} %------ \begin{IFFcom} \item[Description] Load a file of {\ifeffit} commands and execute them. The file loaded can have any valid filename, and can itself {\texttt{load}} other files. This is especially useful in conjunction with the {\texttt{history}} command, and for writing macros. \item[Input Program Variables] None. \item[Keywords/Values] None. \item[Output Program Variables] None. \item[Notes] {\cmnd{load}}'s can be nested, so that {\tt{load}}ed files can themselves contain {\tt{load}} statements. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> load My_macros.iff \end{verbatim} \item[See also] {\MNseealso{history}}, {\MNseealso{macro}}, Chapter~{\ref{Ch:Macros}}. \end{IFFcom} %_command_% log \subfunc{log} %------------------- \begin{IFFcom} \item[Description] Control the writing of commands and screen output to an external {\emph{log file}}. \item[Keywords/Values] \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} {file} & & & log file name to open and write to\\ {close} & & & close log file\\ \noalign{\smallskip} \end{tabular} \item[Output Program Variables] None. \item[Notes] A log file cannot be named {\file{close}}. If a file named {\file{file.log}} exists when executing {\tt{log(file=file.log)}}, that file will be replace with the new log file. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> log(file = analysis.log) Iff> log(close) \end{verbatim} \item[See also] {\MNseealso{echo}}. \end{IFFcom} %_command_% macro \subfuncn{macro} %------ \begin{IFFcom} \item[Description] Define a macro -- a sequence of {\ifeffit} commands to be executed later by simply typing the macro name (and optional parameters). Macro definitions end with the line `{\texttt{end macro}}', and can call other macros. \item[Input Program Variables] \item[Keywords/Values] None. \item[Output Program Variables] None. \item[Notes] Macros may take positional parameters, which are interpreted as text strings. In the macro definition, these parameters are referenced by the special string variables \$1, \$2, \ldots, \$9. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} macro prex read_data( $1, type = xmu, group = my) pre_edge(my.energy, my.xmu) show e0, edge_step end macro \end{verbatim} \noindent %----$- This macro will read in a $\mu(E)$ data file, subtract a line for the pre-edge, and plot the normalized, pre-edge subtracted $\mu(E)$ as a function of energy relative to $E_0$. It would be called like this: \begin{verbatim} Iff> pre my_data.xmu \end{verbatim} \noindent Note that one parameter is used in this macro, and that it will continually overwrite the arrays in the `{\texttt{my}}' group. \item[See also] {\MNseealso{macro}}, Chapter~{\ref{Ch:Macros}}. \end{IFFcom} %_command_% minimize \subfunc{minimize} %------ \begin{IFFcom} \item[Description] Minimize an array in the least squares sense, by adjusting the values of the fitting variables. This gives a simple and flexible way to fit general data to a fairly simple models. \item[Input Program Variables] None. \item[Keywords/Values] {\relax \hspace{1.1truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} ${}^{1}${array} & & & {residual to be minimized} \\ {x} & & & {x-array associated with array} \\ {uncertainty} & & & {array of uncertainties in residual} \\ {xmin} & & & {low-x value for fit range} \\ {xmax} & & & {high-x value for fit range} \\ {toler} & & 1.e-8 & {fitting tolerance} \\ {restraint} & & & {scalar fitting restraint} \\ \noalign{\smallskip} \end{tabular} \noindent \item[Output Program Variables] {\tt{chi\_square}}, {\tt{chi\_reduced}}. For each variable {\tt{XXX}}, the variable {\tt{delta\_XXX}} will be given it's estimated uncertainty. \item[Notes] The array named by {\tt{x}} is optional, and is necessary only if {\tt{xmin}} or {\tt{xmax}} are given. The array given by {\tt{uncertainty}} is optional as well. Currently, only 1 restraint scalar can be added. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> guess (a = 1, b = 0) Iff> my.resid = my.data - (a * my.x + b) Iff> minimize(my.resid) \end{verbatim} \noindent %---- \item[See also] {\MNseealso{feffit}}, Chapter~{\ref{Ch:Minimize}}. \end{IFFcom} %_command_% newplot \subfunc{newplot} %------ \begin{IFFcom} \item[Description] Draw a new plot on the graphics device (usually the screen). \item[Input Program Variables] None. \item[Keywords/Values] Same as {\texttt{plot}}. \item[Output Program Variables] Same as {\texttt{plot}}. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> newplot(my.x, my.y) \end{verbatim} \noindent %-- \item[See also] {\MNseealso{plot}}, Chapter~{\ref{Ch:Plot}}. \end{IFFcom} %_command_% path \subfunc{path} %------ \begin{IFFcom} \item[Description] Define a {\feff} path and specify the path parameters. The paths defined in this way can be used in either {\texttt{ff2chi}} or {\texttt{feffit}} to create $\chi(k)$. Paths are referred to by an integer {\emph{index}}, which is a required keyword. Every path must have an index and a {\feffndat} file associated with it -- all other path parameters are optional, taking ``normal defaults'' (zero for all parameters except \texttt{S02} which defaults to one). \item[Input Program Variables] {\tt{feff\_file}} is used as the default {\feffndat} file. \item[Keywords/Values] All values are treated as text strings except for {\tt{index}} which must be an integer. Except for {\tt{label}} and {\tt{feff}}, strings for path parameters are interpreted as math expressions, either giving a scalar or array. {\relax \hspace{1.1truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} ${}^{1}${index} & & & path index, an integer used to make path lists\\ ${}^{2}$feff & & & {\feffndat} file to use for this path\\ label & & &text string to describe path\\ s02 & &1 &$N S_0^2$ -- constant amplitude factor\\ e0 & & &$E_0$ -- energy shift\\ delr & & &$\Delta R$ -- change in path distance\\ sigma2 & & &$\sigma^2$ -- mean-square-displacement\\ third & & &$C_3$ -- third cumulant\\ fourth & & &$C_4$ -- fourth cumulant\\ ei & & &$E_i$ -- shift in imaginary energy term.\\ \noalign{\smallskip} k\_array & & & \begin{minipage}{3.20truein} array of $k$-values for $k$-dependent phase-shift and amplitudes \end{minipage} \\ phase\_array & & & array of $k$-dependent phase-shift\\ amp\_array & & & array of $k$-dependent amplitude factor\\ \noalign{\smallskip} \end{tabular} \noindent \item[Output Program Variables] None. \item[Notes] All the numerical Path Parameters can be generalized {\emph{expressions}} of the fitting variables and other {\tt{def}}ined Program Variables. The \cmnd{path} command only defines the path, and may not even cause the {\feffndat} file to be read. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> path(index = 1, file = feff0001.dat, s02= 1, sigma2 = sig2) Iff> path(2, feff0002.dat, s02= 1, sigma2 = sig2) Iff> Iff> path(3, feff0003.dat, sigma2 = 'sig2 * sqrt(3)') Iff> path(3, delr = reff * alpha) \end{verbatim} \noindent %-- \item[See also] {\MNseealso{ff2chi}}, {\MNseealso{feffit}}, {\cmnd{get\_path}} (Section~\ref{Ch:Command:get-path}), Chapter~{\ref{Ch:FEFFIT}}. \end{IFFcom} %_command_% pause \subfunc{pause} %------ \begin{IFFcom} \item[Description] Write a message to the screen, and suspend the program until the user hits any key on the keyboard. This is often useful to put in macros or {\cmnd{load}}ed files that will perform multiple plotting tasks. \item[Input Program Variables] {\tt{\&screen\_echo}}, which determines whether messages are sent to the screen, and {\tt{\&pause\_ignore}}, which sets whether or not to ignore all {\cmnd{pause}} commands, will influence the operation of this command. \item[Keywords/Values] {\cmnd{pause}} takes one argument -- a string that is printed to the screen to prompt the user to `hit any key'. The default string is `{\texttt{-- hit any key to continue -- }}'. \item[Output Program Variables] None. \item[Notes] In order for the {\cmnd{pause}} command to actually be executed, {\tt{\&screen\_echo}} must be 1 and {\tt{\&pause\_ignore}} must be 0. Thus, setting {\tt{\&pause\_ignore}} to 1 will suppress the command, which may be useful for batch processing or scripts. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> pause '>> hit any key to see chi(k) <<' \end{verbatim} \noindent %-- \item[See also] {\MNseealso{echo}}, {\MNseealso{print}}. \end{IFFcom} %_command_% plot \subfunc{plot} %------ \begin{IFFcom} \item[Description] The general plotting command, specifying x- and y-arrays to plot, and plot attributes. The plot created can be either to the graphics screen or to the current output graphics device (such as a postscript file). The {\texttt{plot}} command takes a huge variety of arguments. \item[Input Program Variables] \begin{sloppypar} {\tt{\$plot\_device}}, {\tt{\$plot\_file}}, {\tt{\$plot\_xlabel}}, {\tt{\$plot\_ylabel}}, {\tt{\$plot\_title}}, {\tt{\$group}}. \end{sloppypar} \item[Keywords/Values] {\relax \hspace{1.1truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} ${}^{1}${x} & & & {x-array} \\ ${}^{2}${y} & & & {y-array} \\ {group} & {\tt{\$group}} & & {group name} \\ {dy} & & & {array of error bar size for y}\\ {dx} & & & {array of error bar size for x}\\ {xmin} & & & {lower limit for x-range} \\ {xmax} & & & {upper limit for x-range} \\ {ymin} & & & {lower limit for y-range} \\ {ymax} & & & {lower limit for y-range} \\ \noalign{\smallskip} {color} & & (table) & {color for current trace}\\ {style} & & (table) & {line style for current trace}\\ {width} & & 2 & {line width for current trace}\\ {bg} & &white & {background color} \\ {fg} & &black & {foreground (labels,axis) color} \\ {grid} & &T & {flag for showing grid} \\ {nogrid} & & & {flag for hiding grid} \\ {gridcolor} & &\#CCBEE0 & {color of grid lines} \\ \noalign{\smallskip} {xlabel} & {\tt{\$plot\_xlabel}} & & {string for x-axis label}\\ {ylabel} & {\tt{\$plot\_ylabel}} & & {string for y-axis label}\\ {title} & {\tt{\$plot\_title}} & & {string for plot title}\\ {key} & & & {text of key for legend} \\ {charfont} & &1 & {font for text strings}\\ {charsize} & &1.5 & {font size for all text strings}\\ {labelsize} & &1.5 & {font size for axis labels and titles}\\ {markersize} & &1.5 & {font size for point markers}\\ {textsize} & &1.5 & {font size for {\tt{text}} labels}\\ {text} & & & {text string for general label} \\ {text\_x} & & & {x-coordinate for text string} \\ {text\_y} & & & {y-coordinate for text string} \\ {cleartext} & & & {flag to erase all "text" labels} \\ \noalign{\smallskip} {file} & {\tt{\$plot\_file}} & & {file name for non-screen outputs} \\ {device} & {\tt{\$plot\_device}} & & {name of plot device}\\ {new} & & & {flag for not overplotting} \\ {reset} & & & {flag to reset all plot attributes}\\ \end{tabular} \noindent \item[Output Program Variables] \begin{sloppypar} {\tt{\$plot\_device}}, {\tt{\$plot\_file}}, {\tt{\$plot\_xlabel}}, {\tt{\$plot\_ylabel}}, {\tt{\$plot\_title}}. If a plot attribute (color, style) for a particular trace is altered, it will be remembered until a `reset' is issued. \end{sloppypar} \item[Notes] Further details are in Chapter~{\ref{Ch:Plot}}. The default color and linestyle are dictated by internal tables. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> plot(my.x, my.y, color=green,xmin= 0, title = 'Y v. X') \end{verbatim} \noindent %-- \item[See also] \begin{sloppypar} {\MNseealso{color}}, {\MNseealso{cursor}}, {\MNseealso{newplot}}, {\MNseealso{zoom}}, {\cmnd{plot\_arrow}} (Section~\ref{Ch:Command:plot-arrow}), {\cmnd{plot\_marker}} (Section~\ref{Ch:Command:plot-marker}), {\cmnd{plot\_text}} (Section~\ref{Ch:Command:plot-text}), Chapter~{\ref{Ch:Plot}}. \end{sloppypar} \end{IFFcom} %_command_% plot_arrow % reviewed 2002-03-31 \subsection{\texttt{plot\_arrow}} \label{Ch:Command:plot-arrow}\indexcmd{plot\_arrow} \begin{IFFcom} \item[Description] Add an arrow or line to the current plot. \item[Input Program Variables] None. \item[Keywords/Values] {\relax \hspace{0.25truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Description}\\ \noalign{\smallskip} ${}^1${x1} & x-coordinate of arrow tail\\ ${}^2${y1} & y-coordinate of arrow tail\\ ${}^3${x2} & x-coordinate of arrow head\\ ${}^4${y2} & y-coordinate of arrow head\\ clear & erase all arrows from plot\\ no\_head & use no arrow head\\ fill & fill in arrow head\\ outline & use outline of arrow head\\ size & size of arrow head\\ angle & angle of arrow head\\ barb & size of arrow barb\\ \noalign{\smallskip} \end{tabular} \noindent \item[Output Program Variables] None. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Ifeffit> plot_arrow(x1=10, y1= 4, x2=25, y2=4, barb=2) \end{verbatim} \item[See also] Section~\ref{Ch:Plot-Markers}. \end{IFFcom} %_command_% plot_marker % reviewed 2002-03-31 \subsection{\texttt{plot\_marker}} \label{Ch:Command:plot-marker}\indexcmd{plot\_marker} \begin{IFFcom} \item[Description] Add a marker or symbol to the current plot. See Figure~\ref{Fig:PlotPoints} for the available symbols. \item[Input Program Variables] None. \item[Keywords/Values] {\relax \hspace{0.25truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Description}\\ \noalign{\smallskip} ${}^1${x} & x-coordinate of marker\\ ${}^2${y} & y-coordinate of marker\\ ${}^3${marker} & integer of plot marker to use\\ clear & erase all markers from plot\\ \noalign{\smallskip} \end{tabular} \noindent \item[Output Program Variables] None. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Ifeffit> plot_marker(x=7000,y=4,marker=1) \end{verbatim} \item[See also] Section~\ref{Ch:Plot-Markers}, Figure~\ref{Fig:PlotPoints}. \end{IFFcom} %_command_% plot_text % reviewed 2002-03-31 \subsection{\texttt{plot\_text}} \label{Ch:Command:plot-text}\indexcmd{plot\_text} \begin{IFFcom} \item[Description] Add a text string to an arbitrary location on the current plot. This is equivalent to using {\tt{text\_x}}, {\tt{text\_y}}, and {\tt{text}} arguments to {\cmnd{plot}}. \item[Input Program Variables] None. \item[Keywords/Values] {\relax \hspace{0.25truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Description}\\ \noalign{\smallskip} ${}^1${x} & x-coordinate of text\\ ${}^2${y} & y-coordinate of text\\ ${}^3${text} & text string to add to plot\\ {size} & {font size for {\tt{text}} labels}\\ clear & erase all strings from plot\\ \noalign{\smallskip} \end{tabular} \noindent \item[Output Program Variables] None. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Ifeffit> plot_text(x=7025,y=0.3, text='400 K Data') \end{verbatim} \item[See also] {\MNseealso{plot}}, Section~\ref{Ch:Plot-Text}. \end{IFFcom} %_command_% pre-edge \relax\par\vfill \subsection{\texttt{pre\_edge}} \label{Ch:Command:pre-edge}\indexcmd{pre\_edge} \begin{IFFcom} \item[Description] Calculate the pre-edge line through XAFS $\mu(E)$ data, the energy origin $E_0$, and the edge step. Note that the {\tt{spline}} command may call {\tt{pre\_edge}} for you if it appears that it has not already been called. \item[Input Program Variables] {\tt{pre1}}, {\tt{pre2}}, {\tt{norm1}}, {\tt{norm2}}. \item[Keywords/Values] {\relax \hspace{1.1truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} ${}^{1}${energy} & & & {energy array name} \\ ${}^{2}${xmu} & & & {xmu array name} \\ {group} & {\tt{\$group}} & & {group name} \\ {e0} & {\tt{e0}} & & {$E_0$, the energy origin} \\ {edge\_step} & {\tt{edge\_step}} & & {Edge Step} \\ {pre1} & {\tt{pre1}} &{-200.} & {pre-edge line lower limit} \\ {pre2} & {\tt{pre2}} &{-50.} & {pre-edge line upper limit} \\ {norm1} & {\tt{norm1}} &{100.} & {normalization line lower limit} \\ {norm2} & {\tt{norm2}} &{300.} & {normalization line upper limit} \\ {pre\_slope} & {\tt{pre\_slope}} & & {slope of pre-edge line} \\ {pre\_offset} & {\tt{pre\_offset}}& & {offset of pre-edge line} \\ {find\_e0} & &{F}& {flag to force finding $E_0$} \\ \noalign{\smallskip} \end{tabular} \noindent \item[Output Program Variables] \begin{sloppypar} {\tt{e0}}, {\tt{edge\_step}}, {\tt{pre1}}, {\tt{pre2}}, {\tt{norm1}}, {\tt{norm2}}, {\tt{pre\_slope}}, {\tt{pre\_offset}}, {\tt{\$group}}, and {\tt{\$GROUP.pre}}. \end{sloppypar} \item[Notes] The edge step will be found unless specified. $E_0$ will be found unless specified and in the data range. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax} \begin{verbatim} Iff> read_data(my.xmu, group = my) Iff> pre_edge(my.energy, my.xmu) \end{verbatim} \noindent %-- \item[See also] {\cmnd{bkg\_cl}} (Section~\ref{Ch:Command:bkg-cl}), {\MNseealso{spline}}. \end{IFFcom} %_command_% print \subfunc{print} %------ \begin{IFFcom} \item[Description] Write the {\emph{value}} of a list of Program Variable or expressions to the screen. Because {\tt{print}} uses list context, it does a poor job parsing complex expressions. Expressions that include spaces should be enclosed in parentheses. Alternatively, you can enclose strings in quotes to prevent them from evaluation. This gives a reasonably flexible way to format outputs. \item[Input Program Variables] None. \item[Keywords/Values] None. \item[Output Program Variables] None. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> print "7 * sqrt(99.11) = ", (7 * sqrt(99.11)) 7 * sqrt(99.11) = 69.6878038 \end{verbatim} \noindent %-- \item[See also] {\MNseealso{echo}}, {\MNseealso{show}}. \end{IFFcom} %_command_% quit \subfuncn{quit} %------ \begin{IFFcom} \item[Description] Quit the program. \item[Input Program Variables] None. \item[Keywords/Values] None. \item[Output Program Variables] None. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> quit \end{verbatim} \item[See also] {\MNseealso{exit}}. \end{IFFcom} %_command_% read_data \relax\par\vfill \subsection{\texttt{read\_data}} %------ \label{Ch:Command:read-data}\indexcmd{read\_data} \begin{IFFcom} \item[Description] Read array data from ASCII column file. \item[Input Program Variables] {\tt{\$commentchar}}. \item[Keywords/Values] {\hspace{1.in} \par\noindent\relax} \begin{tabular}{llll} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} ${}^{1}${file} & & & {Name of input file.} \\ {group} & & & {Default group name for arrays.} \\ {type} & & & {File Type to assume for array names.} \\ {label} & & & {Label line to use for array names.} \\ npts & & & {length of arrays to read.}\\ narray & & & {number of array to read.}\\ commentchar & {\tt{\$commentchar}} & {\#} & comment character for text lines.\\ \end{tabular} {\relax \vspace{0.2truein}\relax} \noindent All arrays read in will share a common group name. If not explicitly given, the group name will be determined from the file name. The arrays read in will be named according to conventions described in Chapter~{\ref{Ch:Structure}} and Chapter~{\ref{Ch:IO}}. \item[Output Program Variables] Arrays will be read in, and text strings will be read in. In addition, {\tt{\$group}} will hold the group name used, and {\tt{\$commentchar}} will hold the comment character used. {\tt{\$filetype}} will hold the file `type', if appropriate. Most importantly, {\tt{\$column\_label}} will hold what the colum label {\emph{should have been}} to give the resulting array names. That is, it will contain a space-delimited list of array suffixes. Comment strings at the top of the data file will also be saved in text strings with names {\tt{\$GROUP\_title\_01}}, {\tt{\$GROUP\_title\_02}}, \ldots. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> read_data(file= My.dat, type=raw, group= my) Iff> read_data( CuS04_002.dat, label = 'energy xmu i0') \end{verbatim} \item[See also] {\cmnd{write\_data}} (Section~\ref{Ch:Command:write-data}), Chapter~{\ref{Ch:Structure}}, Chapter~{\ref{Ch:IO}}. \end{IFFcom} %_command_% rename \subfunc{rename} \begin{IFFcom} \item[Description] Rename one or more Program Variables. \item[Input Program Variables] None. \item[Keywords/Values] None. \item[Output Program Variables] None. \item[Notes] Use of this command can be very detrimental to effective and rational use of definitions and complex fitting models. In short, the {\emph{name}} of the variable is changed, but does not change its definition or the definitions of the variables that depend on it. Sometimes this is exactly what you want. Sometimes it is not. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> rename kmin kmin_save Iff> rename my.x your.x Iff> a = 1 Iff> b = a + 1 Iff> rename(a, c) Iff> c = 5 Iff> print b 6.000000 Iff> rename(b, d) Iff> c = 10 Iff> print d 11.000000 \end{verbatim} \noindent \item[See also] {\MNseealso{erase}}, {\MNseealso{set}}, {\MNseealso{show}}. \end{IFFcom} %_command_% reset \subfunc{reset} %------ \begin{IFFcom} \item[Description] Reset all {\ifeffit} Program Variables. \item[Input Program Variables] None. \item[Keywords/Values] None. \item[Output Program Variables] All Program Variables are erased, and all program settings re-initialized. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> reset \end{verbatim} \noindent %---- \item[See also] {\MNseealso{exit}}. \end{IFFcom} %_command_% restore \subfunc{restore} %------ \begin{IFFcom} \item[Description] Restore a {\tt{save}}'ed {\ifeffit} session. \item[Input Program Variables] None. \item[Keywords/Values] The only argument is the name of the save file to restore. The keyword {\tt{file}} is optional. \item[Output Program Variables] All Program Variables read from the {\tt{save}} file are updated. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> restore(my.sav) \end{verbatim} \noindent %---- \item[See also] {\MNseealso{save}}. \end{IFFcom} %_command_% save \subfunc{save} %------ \begin{IFFcom} \item[Description] Save all {\ifeffit} program variables into a single file for later restoration. \item[Input Program Variables] All Program Variables. \item[Keywords/Values] {\relax \hspace{1.1truein}\par\noindent\relax} \begin{tabular}{llll} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} ${}^{1}${file} & &{\file{ifeffit.sav}} & {Name of output save file.} \\ npad & & {8} & {WordLength for PAD numbers.} \\ no\_strings & & {F} & {Flag to not save text strings.}\\ no\_arrays & & {F} & {Flag to not save arrays.}\\ no\_scalars & & {F} & {Flag to not save scalars.}\\ no\_sys & & {F} & {Flag to not save ``system scalars''.}\\ with\_strings & & {T} & {Flag to save text strings.}\\ with\_arrays & & {T} & {Flag to save arrays.}\\ with\_scalars & & {T} & {Flag to save scalars.}\\ with\_sys & & {T} & {Flag to save ``system scalars''.}\\ \end{tabular} \item[Notes] A wordlength {\tt{npad}} of 8 gives at least 12 significant digits. Higher precision can be achieved by setting {\tt{npad}} as high as 12, which results in about 15 significant digits -- roughly at the machine resolution of most implementations of double precision. True double precision cannot be guaranteed with this format, but 12 digits of {\emph{portable}} data will mask many machine differences, and is probably good enough for most applications involving experimental data. \item[Output Program Variables] None. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> save(my.sav) \end{verbatim} \noindent %---- \item[See also] {\MNseealso{restore}}. \end{IFFcom} %_command_% set \subfunc{set} %------ \begin{IFFcom} \item[Description] Set a Program Variable. In contrast to {\tt{def}}, {\tt{set}} does not remember the definition (ie, the mathematical formula) of numerical Program Variables, but only the value at the time of creation. Note that {\tt{def}} is the default command, which means that {\tt{set}} must be done explicitly. \item[Input Program Variables] None. \item[Keywords/Values] The keyword is taken as the name of the variable to be assigned, and the Value is taken as the mathematical expression to use for the definition. \item[Output Program Variables] Well, the Program Variable is set. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> set (b = a + 1, c = 100 * sqrt(b) ) Iff> set my.chik = my.chi * my.k^kweight \end{verbatim} \noindent %---- Note that neither {\tt{b}} nor {\tt{c}} will change if {\tt{a}} changes, and that {\tt{my.chik}} will not change when {\tt{kweight}} changes. Sometimes this kind of constance and predictability is exactly what you want. For those other times, you'll want {\tt{def}}. \item[See also] {\MNseealso{def}}, {\MNseealso{sync}}, {\MNseealso{print}}. \end{IFFcom} %_command_% show \subfunc{show} %------ \begin{IFFcom} \item[Description] Show information about {\ifeffit} Program Variables, commands, macros, and {\tt{feffit}} paths. \item[Input Program Variables] None. \item[Keywords/Values] The argument to {\tt{show}} is usually interpreted as a list of the names of Program Variables to display. In addition to the `normal' Program Variables, the names of user-defined macros can also be included. For scalars and strings, {\tt{show}} will display the value of these Program Variables. For arrays, the number of points and maximum and minimum values are shown (the {\MNseealso{print}} command will print all the values of an array, if that's what you want). {\tt{show}} can also take a few ``global'' arguments to show several variables at once. All such global arguments begin with ``@'', which can be taken as a mnemonic for ``all'', and a few can take an additional argument. The table below lists the available ``global'' arguments. \begin{center} \begin{tabular}{clll} \hspace{0.025in} &Argument & Value & What is Shown \\ \noalign{\smallskip} &{@scalars} & & all scalars. \\ &{@arrays} & & all arrays.\\ &{@strings} & & all text strings.\\ &{@variables}& & all fitting variables, with uncertainties.\\ &{@groups} & & all array ``groups''.\\ &{@group} & group name & all arrays in selected group.\\ &{@paths} & & all paths for the current data set.\\ &{@path} & path list & selected paths.\\ &{@commands} & & all commands, with brief description. \\ &{@macros} & & all user-defined macros.\\ \end{tabular}\end{center} \noindent See the examples below for syntax. \item[Output Program Variables] Outputs are written to the screen. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> show rmin, fit.chi rmin = 1.30000000 fit.chi = 499 points [-0.5341341 : 0.5121385] Iff> show @groups data fit Iff> show @group=data data.k = 499 points [ 0.500000E-01: 24.95000] data.chi = 499 points [-0.1756163 : 0.1433899] Iff> show @path=1 PATH 1 feff = feffcu01.dat id = Cu metal first neighbor reff = 2.547800 , degen = 12.000000 s02 = 0.934530 , e0 = 0.558189 dr = 0.000771 , ss2 = 0.003483 3rd = 0.000000 , 4th = 0.000000 ei = 0.000000 , phase = 0.000000 \end{verbatim} \noindent %---- \item[See also] {\MNseealso{set}}, {\MNseealso{print}}, {\MNseealso{echo}}. \end{IFFcom} %_command_% spline \relax\par\vfill \subsection{\texttt{spline}} \label{Ch:Command:spline}\indexcmd{spline} \begin{IFFcom} \item[Description] Calculate the background spline $\mu_0(E)$ and EXAFS and $\chi(k)$ given arrays for $\mu(E)$. This command uses the {\autobk} algorithm, described in more detail in {\XAIBook}. \item[Input Program Variables] \begin{sloppypar} {\tt{e0}}, {\tt{rbkg}}, {\tt{toler}}, {\tt{nknots}}, {\tt{kmin\_spl}}, {\tt{kmax\_spl}}, \relax {\tt{kweight\_spl}}, {\tt{dk1\_spl}}, {\tt{dk2\_spl}}, \relax {\tt{\$kwindow}}, {\tt{edge\_step}}, {\tt{pre1}}, {\tt{pre2}}, {\tt{norm1}}, {\tt{norm2}}. \end{sloppypar} \item[Keywords/Values] {\relax \hspace{1.1truein}\par\noindent\relax} \begin{tabular}{llll} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} ${}^{1}${energy} & & & {energy array name} \\ ${}^{2}${xmu} & & & {xmu array name} \\ {group} & {\tt{\$group}} & & {group name} \\ {e0} & {\tt{e0}} & & {$E_0$, the energy origin} \\ {rbkg} & {\tt{rbkg}} &{1.0} & {$R_{\rm bkg}$} \\ {toler} & {\tt{toler}} &{1.d-3} & {Fitting tolerance} \\ {nknots} &{\tt{nknots}}& & {Number of knots in spline} \\ {kmin} &{\tt{kmin\_spl}} & &{$k_{\rm min}$ for FFT in spline evaluation} \\ {kmax} &{\tt{kmax\_spl}} & &{$k_{\rm max}$ for FFT in spline evaluation} \\ {kweight} & {\tt{kweight\_spl}} &{1} & {$k$-weight for FFT in spline} \\ {dk1} & {\tt{dk1\_spl}} & & {$\delta k_1$ parameter for FFT in spline} \\ {dk2} & {\tt{dk2\_spl}} & & {$\delta k_2$ parameter for FFT in spline} \\ {kwindow} & {\tt{\$kwindow}} & & {name of FFT window type for spline} \\ {edge\_step} & {\tt{edge\_step}} & & {Edge Step} \\ {pre1} & {\tt{pre1}} &{-200} & {pre-edge line lower limit} \\ {pre2} & {\tt{pre2}} &{-50} & {pre-edge line upper limit} \\ {norm1} & {\tt{norm1}} &{100} & {normalization line lower limit} \\ {norm2} & {\tt{norm2}} &{300} & {normalization line upper limit} \\ {eefind} & &{F} & {flag to force finding $E_0$} \\ {varye0} & &{F} & flag to allow $E_0$ to vary in spline fit\\ {find\_step} & &{F} & flag to force finding of Edge Step \\ {fnorm} & &{F} & flag to normalize by $\mu_0(E)$.\\ {do\_pre} & &{T} & flag to force the finding of the pre-edge \\ {do\_spl} & &{T} & flag to force spline fit \\ {interp} & &{quad} & {method to use for data interpolation} \\ \noalign{\smallskip} \end{tabular} \noindent \item[Output Program Variables] \begin{sloppypar} {\tt{\$group}}, {\tt{e0}}, {\tt{rbkg}}, {\tt{nknots}}, {\tt{kmin\_spl}}, {\tt{kmax\_spl}}, {\tt{kweight\_spl}}, {\tt{dk1\_spl}}, {\tt{dk2\_spl}}, {\tt{\$kwindow}}, {\tt{edge\_step}}, {\tt{pre1}}, {\tt{pre2}}, {\tt{norm1}}, {\tt{norm2}}. \end{sloppypar} \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax} \begin{verbatim} Iff> spline(my.energy,my.xmu,rbkg=1.0,kmin=0) \end{verbatim} \noindent %-- \item[See also] {\texttt{pre\_edge}} (Section~\ref{Ch:Command:pre-edge}). \end{IFFcom} %_command_% sync \subfunc{sync} %------ \begin{IFFcom} \item[Description] Synchronize numeric Program Variables (fitting variables, scalars and arrays) so that all dependencies are up-to-date and all values are consistent with one another. This command is implicitly run at the beginning of commands {\texttt{ff2chi}}, {\texttt{feffit}}, and {\texttt{minimize}}. \item[Input Program Variables] None. \item[Keywords/Values] None. \item[Output Program Variables] None. Well, all scalars and arrays are `re-arranged'. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> a = 1, b = 3, c = (a + b)/2 Iff> b = 5 Iff> show a, b, c a = 1.00000 b = 5.00000 c = 2.00000 Iff> sync Iff> show a, b, c a = 1.00000 b = 5.00000 c = 3.00000 \end{verbatim} \item[See also] {\MNseealso{ff2chi}}, {\MNseealso{feffit}}, {\MNseealso{minimize}}, {\MNseealso{set}}, {\MNseealso{def}}, and section~{\ref{Ch:Structure-SetDef}}. \end{IFFcom} %_command_% unguess %_revised_% 2003-01-25 \subfunc{unguess} %------ \begin{IFFcom} \item[Description] Change all {\cmnd{guess}}ed program variables to {\cmnd{set}} variables with the current values. \item[Input Program Variables] None. \item[Keywords/Values] None. \item[Output Program Variables] None. Well, all fitting variables are changes to regular scalars. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> unguess() \end{verbatim} \item[See also] {\MNseealso{set}}, {\MNseealso{def}}, {\MNseealso{guess}}, section~{\ref{Ch:Structure-SetDef}}. \end{IFFcom} %_command_% window %_revised_% 2003-01-25 \subfunc{window} %------ \begin{IFFcom} \item[Description] Generate an XAFS Fourier Transform window, without actually doing the Fourier transform. \item[Input Program Variables] {\tt{kmin}}, {\tt{kmax}}, {\tt{dk1}},{\tt{dk2}},{\tt{kweight}}, {\tt{\$kwindow}} and {\tt{rmax\_out}}. \item[Keywords/Values] {\relax \hspace{0.25truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} ${}^{1}${real} & & & array for $\rm Re[\chi(k)]$. \\ {imag} & & & array for $\rm Im[\chi(k)]$. \\ k & & & array of $k$ data \\ group & {\tt{\$group}} & & group name for output arrays \\ kmin & {\tt{kmin}} & 0& $k_{\rm min}$ FT parameter \\ kmax & {\tt{kmax}} & 0& $k_{\rm max}$ FT parameter \\ dk1 & {\tt{dk1}} & & FT parameter \\ dk2 & {\tt{dk2}} & & FT parameter \\ dk & & & sets both {\tt{dk1}} and {\tt{dk2}}\\ kweight & {\tt{kweight}} & & $k$-weight FT parameter \\ kwindow & {\tt{\$kwindow}} & & FT window function \\ altwindow & & & array for alternate FT window. \\ \end{tabular} \item[Output Program Variables] {\tt{kmin}}, {\tt{kmax}}, {\tt{dk1}}, {\tt{dk2}}, {\tt{kweight}}, and {\tt{rmax\_out}} will be set on output. The array {\tt{\$GROUP.win}} will contain the $k$-space window array, $W(k)$. \item[Notes] See Appendix~{\ref{App:Fourier}}. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> window(real=my.chi, kmin = 1.0, kmax =16.0, dk=1.0, kweight=2., kwindow= 'hanning' ) \end{verbatim} \item[See also] {\MNseealso{fftf}}, {\MNseealso{fftr}}, Appendix~{\ref{App:Fourier}}. \end{IFFcom} %_command_% write_data \relax\par\vfill \subsection{\texttt{write\_data}} \label{Ch:Command:write-data}\indexcmd{write\_data} \begin{IFFcom} \item[Description] Write scalars, strings, and arrays to an ASCII data file. \item[Input Program Variables] {\tt{\$group}}, {\tt{\$commentchar}}. \item[Keywords/Values] The arguments for {\texttt{write\_data}} are mostly interpreted as a list of Program Variables to write to the file. The list elements can be either strings or arrays, but (currently) not scalars. The text strings will be written first, followed by a line of minus signs, and then the arrays will be written in column format. Currently supported keywords are: {\par\noindent\relax} \begin{tabular}{llll} \textbf{Keyword} & \textbf{Variable} & \textbf{Default} & \textbf{Description}\\ \noalign{\smallskip} ${}^{1}${file} & & & {Name of output file.} \\ {group} & & & {Default group name for arrays.} \\ npts & & & {number of array points to write.}\\ commentchar & {\tt{\$commentchar}} & {\#} & comment character for text lines.\\ \end{tabular} {\relax \vspace{0.2truein}\relax} \noindent For writing groups of text strings, `globs' are supported with the `*' character. That is, a `*' in the name of text string variables will be expanded so that all strings matching the pattern will be printed. Text lines will begin with a `comment character'. By default, this is `\#', but can be set to any two character sequence. The maximum number of arrays that can be written to a single file is 16. Array {\emph{expressions}} are not supported. \item[Output Program Variables] None. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> write_data(file=out.dat, $title*, my.x, my.y) \end{verbatim} \item[See also] {\texttt{read\_data}} (Section~\ref{Ch:Command:read-data}). \end{IFFcom} %_command_% zoom % reviewed 2002-03-31 \subfunc{zoom} %------ \begin{IFFcom} \item[Description] Zoom in on a region of the plot window. Using the cursor (typically a mouse), click on the lower-left and upper-right portion of the plot window you wish to enlarge. \item[Input Program Variables] None. \item[Keywords/Values] The following flags can be given to customize the behavior of {\cmnd{zoom}}: {\relax \hspace{0.25truein}\par\noindent\relax} \begin{tabular}{llrl} \textbf{Keyword} & \textbf{Description}\\ \noalign{\smallskip} {show} & print output string after selection\\ {nobox} & suppress drawing of 'active zoom box'\\ \noalign{\smallskip} \end{tabular} \noindent \item[Output Program Variables] {\texttt{cursor\_x}}, and {\texttt{cursor\_y}} will contain the x and y positions of the cursor for the last point chosen. \item[Examples] {\hspace{1.in} \vspace{-0.1truein} \relax } \begin{verbatim} Iff> zoom \end{verbatim} \item[See also] {\MNseealso{cursor}}, {\MNseealso{plot}}, Section~\ref{Ch:Plot-cursor}. \end{IFFcom} ifeffit-1.2.11d/doc/RefMan/glossary.tex0000644000175000017500000002165410771740460016670 0ustar segresegre\section{Glossary of Program Variables} \label{App:Glossary} This appendix describes and lists the Program Variables {\ifeffit} expects you to use. It is a compilation of the Program Variables used as default input and output from the commands listed in chapter~{\ref{Ch:Commands}}. It also describes common conventions used for the naming of arrays generated by the commands. \subsection{Scalar Naming Conventions}\label{App:Glossary:scalars} The tables below list the commonly used scalars and text strings Program Variables, giving a very brief description of the expected meaning for the variables and the commands that use this variable either as input or output. More details about the meaning and use of these variables can be found in the entry for each command. \begin{center} \begin{tabular}{lll} \noalign{\smallskip} \multicolumn{3}{l}{\hspace{-5mm}\large\textsf{General and System Variables}}\\ \noalign{\smallskip} Program Variable & Description & Used in Commands \\ {\tt{\$column\_label}} & data column label & {\cmnd{read\_data}} \\ {\tt{\$commentchar}} & comment character & {\cmnd{read\_data}}, {\cmnd{write\_data}}\\ {\tt{\&echo\_lines}} & number of lines to {\cmnd{echo}} & {\cmnd{echo}}, {\cmnd{load}} \\ {\tt{\$filename}} & file name for input & {\cmnd{read\_data}} \\ {\tt{\$group}} & default group name & many \\ {\tt{\$history\_file}} & name command history file & {\cmnd{history}}\\ {\tt{\$\&install\_dir}}& installation directory & {\cmnd{f1f2}}\\ {\tt{\&pause\_ignore}} & ignore {\cmnd{pause}} commands & {\cmnd{pause}}\\ {\tt{\&screen\_echo}} & screen echo setting & {\cmnd{echo}}, {\cmnd{log}}, {\cmnd{macro}}\\ {\tt{\&sync\_level}} & synchronization level & {\cmnd{save}}, {\cmnd{set}}, {\cmnd{show}}\\ {\tt{\$1}} \ldots {\tt{\$9}} & macro arguments & at macro execution \\ %% \noalign{\medskip} \multicolumn{3}{l}{\hspace{-5mm}\large\textsf{Plotting}}\\ \noalign{\smallskip} Program Variable & Description & Used in Commands \\ {\tt{cursor\_x}} & cursor $x$ coordinate & {\cmnd{cursor}}, {\cmnd{zoom}}\\ {\tt{cursor\_y}} & cursor $y$ coordinate & {\cmnd{cursor}}, {\cmnd{zoom}}\\ {\tt{\$plot\_device}} & plotting device & {\cmnd{plot}}\\ {\tt{\$plot\_file}} & filename for hardcopy plot & {\cmnd{plot}}\\ {\tt{\$plot\_title}} & title for plot & {\cmnd{plot}}\\ {\tt{\$plot\_xlabel}} & label for x-axis & {\cmnd{plot}}\\ {\tt{\$plot\_ylabel}} & label for y-axis & {\cmnd{plot}}\\ %% \noalign{\medskip} \multicolumn{3}{l}{\hspace{-5mm}\large\textsf{FEFF Paths}}\\ \noalign{\smallskip} Program Variable & Description & Used in Commands \\ {\tt{\$feff\_file}} & name of {\feff} file & {\cmnd{path}}\\ {\tt{path\_index}} & path index & {\cmnd{path}}\\ {\tt{reff}} & $R$ of a {\feff} path & {\cmnd{get\_path}} \\ %% \end{tabular} \end{center} \indexvar{reff} \indexvar{\$column\_label} \indexvar{\$commentchar} \indexvar{\&echo\_lines} \indexvar{\$filename} \indexvar{\$group} \indexvar{\$history\_file} \indexvar{\$\&install\_dir} \indexvar{\&pause\_ignore} \indexvar{\&screen\_echo} { \medskip } \begin{center} \indexvar{e0} \indexvar{edge\_step} \indexvar{norm\_c0} \indexvar{norm\_c1} \indexvar{norm\_c2} \indexvar{norm1} \indexvar{norm2} \indexvar{norm\_order} \indexvar{pre\_offset} \indexvar{pre\_slope} \indexvar{pre1} \indexvar{pre2} \indexvar{rbkg} \begin{tabular}{lll} \noalign{\medskip} \multicolumn{3}{l}{\hspace{-5mm}\large\textsf{Pre-Edge and Spline}} \\ \noalign{\smallskip} \multicolumn{3}{l}{\hspace{2mm} Used in commands {\cmnd{pre\_edge}}, and {\cmnd{spline}}} \\ \noalign{\smallskip} Program Variable & Description & Used in Commands \\ {\tt{e0}} & $E_0$, where $k=0$ & \\ {\tt{edge\_step}} & $\Delta \mu(E_0)$, edge step & \\ {\tt{norm\_c0}} & normaliztion parameter & \\ {\tt{norm\_c1}} & normaliztion parameter & \\ {\tt{norm\_c2}} & normaliztion parameter & \\ {\tt{norm1}} & normalization range & \\ {\tt{norm2}} & normalization range & \\ {\tt{norm\_order}}& order of normalization polynomial & \\ {\tt{pre\_offset}}& offset of pre-edge line & \\ {\tt{pre\_slope}} & slope of pre-edge line & \\ {\tt{pre1}} & pre-edge range & \\ {\tt{pre2}} & pre-edge range & \\ {\tt{rbkg}} & $R_{\rm bkg}$ for XAFS spline & {\cmnd{spline}} \\ \multicolumn{3}{l}{(see also Fourier transform parameters for {\cmnd{spline}})}\\ \noalign{\medskip} \multicolumn{3}{l}{\hspace{-5mm}\large\textsf{Fourier Transform}} \\ \noalign{\smallskip} \multicolumn{3}{l}{\hspace{2mm} Used in commands {\cmnd{chi\_noise}}, {\cmnd{feffit}}, {\cmnd{fftf}}, and {\cmnd{fftr}}} \\ \noalign{\smallskip} Program Variable & Description & Used in Commands \\ {\tt{\$altwindow}} & alternate window array & \\ {\tt{dk1}} & $dk_1$ & \\ {\tt{dk2}} & $dk_2$ & \\ {\tt{dr1}} & $dR_1$ & \\ {\tt{dr2}} & $dR_2$ & \\ {\tt{kmax}} & $k_{\rm max}$ & \\ {\tt{kmin}} & $k_{\rm min}$ & \\ {\tt{kweight}} & $k$-weight $w$ & \\ {\tt{kwindow}} & $k\rightarrow R$ window type &\\ {\tt{rmax}} & $R_{\rm max}$ & \\ {\tt{rmin}} & $R_{\rm min}$ & \\ {\tt{rwindow}} & $R\rightarrow q$ window type & \\ {\tt{dk1\_spl}} & $dk_1$ & {\cmnd{spline}}\\ {\tt{dk2\_spl}} & $dk_2$ & {\cmnd{spline}}\\ {\tt{kmax\_spl}} & $k_{\rm max}$ & {\cmnd{spline}}\\ {\tt{kmin\_spl}} & $k_{\rm min}$ & {\cmnd{spline}}\\ {\tt{kweight\_spl}} & $k$-weight $w$ & {\cmnd{spline}}\\ \end{tabular} \indexvar{\$altwindow} \indexvar{dk1} \indexvar{dk2} \indexvar{dr1} \indexvar{dr2} \indexvar{kmax} \indexvar{kmin} \indexvar{kweight} \indexvar{kwindow} \indexvar{rmax} \indexvar{rmin} \indexvar{rwindow} \indexvar{dk1\_spl} \indexvar{dk2\_spl} \indexvar{kmax\_spl} \indexvar{kmin\_spl} \indexvar{kweight\_spl} \end{center} \begin{center} \begin{tabular}{lll} \noalign{\smallskip} \multicolumn{3}{l}{\hspace{-5mm}\large\textsf{Fitting}} \\ \noalign{\smallskip} Program Variable & Description & Used in Commands \\ {\tt{chi\_square}} & fit statistic& {\cmnd{feffit}}, {\cmnd{minimize}}\\ {\tt{chi\_reduced}} & fit statistic& {\cmnd{feffit}}, {\cmnd{minimize}}\\ {\tt{epsilon\_k}} & $\epsilon_k$, uncertainty in {\chik} & {\cmnd{chi\_noise}}, {\cmnd{feffit}}\\ {\tt{epsilon\_r}} & $\epsilon_R$, uncertainty in {\chir} & {\cmnd{chi\_noise}}, {\cmnd{feffit}}\\ {\tt{\&fit\_iteration}} & number of fit interations& {\cmnd{feffit}}, {\cmnd{minimize}}\\ {\tt{\$fit\_space}} & fitting space & {\cmnd{feffit}}\\ {\tt{n\_idp}} & $N_{\rm idp}$ & {\cmnd{feffit}}\\ {\tt{n\_varys}} & number of variables & {\cmnd{feffit}}, {\cmnd{minimize}}\\ {\tt{r\_factor}} & fit statistic & {\cmnd{feffit}}\\ %% \noalign{\smallskip{ \indexvar{chi\_square} \indexvar{chi\_reduced} \indexvar{epsilon\_k} \indexvar{epsilon\_r} \indexvar{\&fit\_iteration} \indexvar{\$fit\_space} \indexvar{n\_idp} \indexvar{n\_varys} \indexvar{r\_factor} } } \end{tabular} \end{center} \subsection{Array Naming Conventions}\label{App:Glossary:arrays} Arrays created by commands will have predictable names, and depend only on the current group name, held in the string variable {\tt{\$group}}, or specified as a command argument. By convention, the prefix of the array name is the group name, and the suffix of the array name contains a meaningful identification for the data. The following table lists the commonly used suffixes, their meaning, and commands that use or create arrays with these suffixes. \begin{center} \begin{tabular}{lll} Array suffix & Description & Used in Commands \\ {\tt{energy}} & $E$ & none\\ {\tt{xmu}} & $\mu$ & none\\ {\tt{pre}} & pre-edge subtracted $\mu$ & {\cmnd{pre\_edge}}, {\cmnd{spline}}\\ {\tt{norm}} & normalized {\tt{pre}} & {\cmnd{pre\_edge}}, {\cmnd{spline}}\\ {\tt{bkg}} & background $\mu_0$ & {\cmnd{spline}}\\ {\tt{k}} & $k$ & {\cmnd{spline}}, {\cmnd{fftf}}, {\cmnd{feffit}}\\ {\tt{chi}} & $\chi$ & {\cmnd{spline}}, {\cmnd{fftf}}, {\cmnd{feffit}}\\ {\tt{win}} & $W_k$ ($k$-window function) & {\cmnd{fftf}}, {\cmnd{feffit}}\\ {\tt{chir\_mag}} & $|\chi(R)|$ & {\cmnd{fftf}}\\ {\tt{chir\_re}} & $\rm Re[\chi(R)]$ & {\cmnd{fftf}}\\ {\tt{chir\_im}} & $\rm Im[\chi(R)]$ & {\cmnd{fftf}}\\ {\tt{chir\_phase}} & $\rm phase[\chi(R)]$ & {\cmnd{fftf}}\\ \end{tabular} \end{center} ifeffit-1.2.11d/doc/RefMan/macros.tex0000644000175000017500000001543010771740460016304 0ustar segresegre\section{Macros in {\ifeffit}} \label{Ch:Macros} As described so far in this Guide, {\ifeffit} is definitely not suitable for the casual user. The syntax is a bit fussy and cryptic, and the whole notion of a command-based system is not generally considered `user friendly'. Even for the experienced user, typing at a command prompt can get pretty tedious for repetitive tasks. With that in mind, this chapter and the next might be the most important chapters in this Guide, because they are all about making {\ifeffit} easier to use. With the macro capability described in this chapter, it is easy to write and customize files for ``batch processing'' of data. The next chapter will extend these ideas further, and move beyond the simple macros described here, and discusses writing full-blown application programs using {\ifeffit} with real programming languages like fortran, C, Perl, Python, and Tcl. Data analysis often involves repetitious processing of data, so {\ifeffit} has a simple built-in macro capability that is easy-to-use and reasonably flexible. A macro is a named block of {\ifeffit} lines that can be executed as a single unit by typing the name of the macro. An example: \begin{verbatim} macro make_ps plot(device="/ps",file= "ifeffit.ps") end macro \end{verbatim} \noindent With this definition, typing {\texttt{make\_ps}} at the command line would execute the two {\texttt{plot}} commands, making a postscript named {\file{ifeffit.ps}} showing the current plot, and setting the plotting device back to the X-window. As you can probably tell, macros are defined with the command {\texttt{macro} {\textsl{macro\_name}}}. All lines up to {\texttt{end macro}} (which must be on its own line) make up the text of the macro, and will be executed in order when the macro is invoked. To make macros slightly more useful, you can use positional arguments to pass information into macros. The parameters are handled as text strings, and simply inserted in the macro text before being executed. In keeping with the {\ifeffit} naming convention, and following many shell and batch processing facilities, the parameters are named \$1, \$2, \ldots \$9. So, to make the above macro a little more flexible, we use \begin{verbatim} macro make_ps plot(device="/ps",file= $1) end macro \end{verbatim} %%--$ \noindent Now, typing {\texttt{make\_ps my\_plot.ps}} at the command line will dump the current plot to a file named {\file{my\_plot.ps}}, and you can make several different postscript files by changing the argument. Unfortunately the file name in parameter \$1 is {\emph{required}} by the macro, which might not be all that useful unless you always remembered it. To help with the problem of required arguments, you can specify default values for each argument when defining a macro, like this: \begin{verbatim} macro make_ps ifeffit.ps "Make Postscript file of current Plot" plot(device="/ps",file= $1) end macro \end{verbatim} %%--$\% \noindent This version of {\tt{make\_ps}} will use {\file{ifeffit.ps}} as the default value of the first argument. So typing {\texttt{make\_ps my.ps}} will make a file called {\file{my.ps}}, and {\texttt{make\_ps}} without any arguments will write {\file{ifeffit.ps}}. Notice the extra line at the top of this macro: \begin{verbatim} "Make Postscript file of current Plot" \end{verbatim} %%--$\% \noindent This is the optional {\bf{macro description}}, which acts as built-in documentation. If the first line of a macro is enclosed in single quotes, double quotes, or braces, it is used as the macro description. This line is not executed when the macro is run, but is only used to describe the macro to the outside world. Specifically, {\tt{show @macros}} will show all macro names, default arguments, and description. Here's an example macro to automate pre-edge subtraction: \begin{verbatim} macro do_pre_edge a "Read File, Calculate Pre-Edge, Plot, Write File" read_data($1.xmu, type = xmu, group = my) pre_edge(my.energy, my.xmu) my.norm = my.pre / edge_step $title1 = 'normalized, pre-edge subtracted data' write_data(file = $1.pre, $title1, energy, pre, norm, xmu) end macro \end{verbatim} %%% \noindent Now, typing {\texttt{do\_pre\_edge Data\_1}} would read in {\file{Data\_1.xmu}}, calculate the normal pre-edge parameters like $E_0$, and the edge step, and write out the pre-edge subtracted $\mu(E)$ data (in {\texttt{my.pre}}) to {\file{Data\_1.pre}}. And {\texttt{do\_pre\_edge Data\_2}} would repeat these same steps on another file. The variables \$1 through \$9 are special text strings that can only be used in macros. The contents of these strings are destroyed when the macro is exited. Within the macro, these strings are simply substituted in place. This is an admittedly feeble system -- adding string manipulation functions and simple control structures would enhance the utility of macros, and is planned for future versions. Macros can be nested. Parameters passed into underlying macros are always handled by position number, and the ``argument stack'' is automatically managed, which should be what you'd expect. That is, with \begin{verbatim} macro mac1 mac2 $3 $2 print $1 end macro macro mac2 print $1 print $2 end macro \end{verbatim} %%--$ \noindent typing {\texttt{mac1 A B C}} will print ``C'', then ``B'', and then ``A''. As mentioned above, macro arguments are interpreted as strings and are substituted in place just before execution. To specify the argument values, then, it will often be helpful to separate them by commas, or to enclose them in double quotes (``\ldots'') or braces (\{ \ldots \}). Then \begin{verbatim} mac1 ``As usual'', {1}, ``Here is the third argument'' \end{verbatim} \noindent will print \begin{verbatim} Here is the third argument 1 As usual \end{verbatim} The macro processing does essentially no error checking. And, again, the arguments \$1 to \$9 are simply inserted as text strings. So if an argument \$1 to \$9 is expected and is not explicitly provided and no default is given for it in the macro definition, then a null string will be used. If a null string is not a valid argument in some command, the command will still be executed, occasionally with non-sensical results or error messages. If you're working on a complex macro, it may be helpful to `debug macros' by putting the line \begin{verbatim} show @args \end{verbatim} \noindent Note that the following \begin{verbatim} print $1, $2, $3, $4 pause == my_macro: are these parameters right? == \end{verbatim} \noindent may {\bf{not}} be as helpful, since the arguments will already have been substituted in place of \$1, \ldots \$4. Of course a key point of having macros is to re-use them. For that, you'll probably want to save your favorite macro definitions to a file and use the '{\tt{load}}' command. ifeffit-1.2.11d/doc/RefMan/ifmacs.tex0000644000175000017500000000363010771740460016261 0ustar segresegrepho%% macros for ifeffit -*-latex-*- %% determine if this is pdflatex or latex \newif\ifpdf \ifx\pdfoutput\undefined{\pdffalse}\else{\pdfoutput=1 \pdftrue}\fi % %%% % \ifpdf \usepackage[pdftex]{color} \definecolor{color0}{rgb}{0.00,0.00,0.70} \definecolor{color1}{rgb}{0.90,0.00,0.00} \definecolor{color2}{rgb}{0.00,0.00,0.70} \usepackage[pdftex,colorlinks,hyperindex,urlcolor=color0,% linkcolor=color1,citecolor=color2]{hyperref} \else \usepackage{color} \definecolor{color0}{rgb}{0.00,0.00,0.70} \definecolor{color1}{rgb}{0.90,0.00,0.00} \definecolor{color2}{rgb}{0.00,0.00,0.70} \usepackage[colorlinks,hyperindex,urlcolor=color0,% linkcolor=color1,citecolor=color2]{hyperref} \fi % %% \newcommand{\Newvemail}{newville@cars.uchicago.edu} \newcommand{\mailto}[1]{{\href{mailto:#1}{#1}}} \newcommand{\mailNewv}{\mailto{\Newvemail}} \newcommand{\IFFURL}{http://cars9.uchicago.edu/ifeffit/} \newcommand{\FEFFURL}{http://leonardo.phys.washington.edu/~feff/} \newcommand{\PERLURL}{http://www.perl.com/} \newcommand{\TCLURL}{http://www.scriptics.com/} \newcommand{\PYTHONURL}{http://www.python.org/} \newcommand{\PGPLOTURL}{http://www.astro.caltech.edu/~tjp/pgplot/} \newcommand{\WWWiff}{\href{\IFFURL}{\IFFURL}} \newcommand{\WWWperl}{\href{\PERLURL}{\PERLURL}} \newcommand{\WWWtcl}{\href{\TCLURL}{\TCLURL}} \newcommand{\WWWpython}{\href{\PYTHONURL}{\PYTHONURL}} \newcommand{\WWWpgplot}{\href{\PGPLOTURL}{http://www.astro.caltech.edu/\~{}tjp/pgplot/}} %% \ifpdf{\pdfinfo{/Author (Matthew Newville) /Title (The IFEFFIT Reference Guide) /Subject (Program Document for IFEFFIT) /Keywords (XAFS, FEFF) } }\fi \newenvironment{VerbSBox}% {\VerbatimEnvironment\begin{Sbox}% \begin{minipage}{5.00truein}\begin{Verbatim}}% {\end{Verbatim}\end{minipage}\end{Sbox}\setlength{\fboxsep}{2mm}{% \begin{flushright}\shadowbox{\TheSbox}\end{flushright}}} %% ifeffit-1.2.11d/doc/RefMan/ifeffit.bbl0000644000175000017500000000103010771740460016362 0ustar segresegre\begin{thebibliography}{1} \bibitem{TclBook} J.~K. Ousterhout, {\em {Tcl and the Tk Toolkit}} ({Addison-Wesley}, Menlo Park, CA, 1994). \bibitem{LearningPerl} R.~L. Schwartz and T. Christianson, {\em {Learning Perl, 2nd Edition}} ({O'Reilly}, Sebastopol, CA, 1997). \bibitem{CamelBook} L. Wall, T. Christianson, and R.~L. Schwartz, {\em {Programming Perl}} ({O'Reilly}, Sebastopol, CA, 1997). \bibitem{LearningPython} M. Lutz and D. Ascher, {\em {Learning Python}} ({O'Reilly}, Sebastopol, CA, 1999). \end{thebibliography} ifeffit-1.2.11d/doc/RefMan/ifmacs_html.tex0000644000175000017500000000213210771740460017301 0ustar segresegre%% macros for ifeffit -*-latex-*- \usepackage{html,color} \definecolor{color0}{rgb}{0.00,0.00,0.70} \definecolor{color1}{rgb}{0.90,0.00,0.00} \definecolor{color2}{rgb}{0.00,0.00,0.70} \newcommand{\Newvemail}{newville@cars.uchicago.edu} \newcommand{\mailto}[1]{{\htmladdnormallink{mailto:#1}{#1}}} \newcommand{\mailNewv}{\mailto{\Newvemail}} \newcommand{\IFFURL}{http://cars9.uchicago.edu/ifeffit/} \newcommand{\IFFIMG}{http://cars9.uchicago.edu/ifeffit/images/refman/} \newcommand{\FEFFURL}{http://leonardo.phys.washington.edu/~feff/} \newcommand{\PERLURL}{http://www.perl.com/} \newcommand{\TCLURL}{http://www.scriptics.com/} \newcommand{\PYTHONURL}{http://www.python.org/} \newcommand{\PGPLOTURL}{http://www.astro.caltech.edu/~tjp/pgplot/} \newcommand{\WWWiff}{\htmladdnormallink{\IFFURL}{\IFFURL}} \newcommand{\WWWperl}{\htmladdnormallink{\PERLURL}{\PERLURL}} \newcommand{\WWWtcl}{\htmladdnormallink{\TCLURL}{\TCLURL}} \newcommand{\WWWpython}{\htmladdnormallink{\PYTHONURL}{\PYTHONURL}} \newcommand{\WWWpgplot}{\htmladdnormallink{\PGPLOTURL}{http://www.astro.caltech.edu/\~{}tjp/pgplot/}} ifeffit-1.2.11d/doc/RefMan/scripting.tex0000644000175000017500000010311210771740460017015 0ustar segresegre%%#fixtex% for html/pdf -*-latex-*- \section{Scripting and Programming with {\ifeffit}} \label{Ch:Scripting} The macro system in {\ifeffit} described in the previous chapter only goes so far, and sometimes it's just not enough. There are several limitations to the `{\ifeffit} language' and to the macro mechanism that make complex data processing difficult. The lack of conditional (if-then-else) statements and loops (for or do) are the most notable missing features. All of the programming capabilities missing from {\ifeffit} and more are available in essentially every programming and scripting language. Modern scripting languages (which are roughly distinguished from programming languages by not having a compilation to machine code separate from execution but rather being run directly from the text of the code) are especially attractive for such applications, as they allow quick development and execution and a wide range of programming capabilities. Scripting languages are generally simpler to learn than full-blown programming languages, and more flexible and forgiving of errors to boot. Scripting languages have a proven track record as being useful for creating ``wrappers'' around low-lying libraries such as the {\ifeffit} library. There are several possible general-purpose scripting languages and a few ``scientific visualization languages'' that could, in principle, be used to extend {\ifeffit}'s capabilities. Tcl/Tk, Perl, Python, IDL, Java, VisualBasic, LabView, Matlab, and Mathematica all come to mind. At this time, {\ifeffit} works well with Perl, Python, and Tcl as well as with C and Fortran. If you have a favorite language that is not on this list and would like to use {\ifeffit} with it, please let me know. The interface between {\ifeffit} and the various programming and scripting languages are all quite similar. The interfaces allow you to send commands from the language just as you would type commands at the command-line program, and also provide ways to move Program Variables back and forth between the underlying engine and the calling program. This chapter describes using {\ifeffit} from Fortran and C, as well as Perl, Python, and Tcl. Though the basic concepts are the same for all the languages, there are some slight differences in implementation so as to be able to best exploit the features of the different languages. Even if you're only planning on using one of the scripting languages, I recommend that you read the Fortran and C sections since it has the most complete description of the interface. \subsection{Which language to use?}\label{Ch:Scripting-langchoice} {\index{Programming!Fortran}} If you're unfamiliar with the world of scripting languages and are interested in getting more out of {\ifeffit}, you're probably wondering at this point which of the scripting language to use. Allow me to give some brief recommendations. These should be immediately be seen as the free advice of a highly opinionated person. Oddly, I believe they are in fairly close agreement with most others familiar with these languages. If you already know C or Fortran, those are fine languages to use. If you don't know either C or Fortran it is difficult to recommend learning them just so you can write complex {\ifeffit} scripts. Both languages are fairly intolerant of mistakes and have fewer features than the modern scripting languages. Once mastered, however, Fortran and C give very fast and efficient programs. {\index{Programming!C}} Whether or not you know C or Fortran, if you're interested in writing complex {\ifeffit} scripts or programming in general, I recommend learning one of Perl, Python, or Tcl. These scripting languages are remarkably similar in that they all work well on every major platform, are free, and well-supported via the internet. They are all fairly easy to learn, and make it easy to write and debug simple scripts. They also hide the really ugly parts of C from you, and provide `high-level' data structures which lets you do some fairly sophisticated things that would be more painful in C or Fortran. They all have their quirks, too, which can be both maddening and charming. Learning any of them will greatly improve your computer skills, as well as making complex {\ifeffit} scripts possible. {\index{Programming!Tcl}} Of the three, Tcl\cite{TclBook} is probably the oldest, simplest and least powerful language. That's not to say it's bad -- it's power is certainly good enough for most things. It may even be the most popular of the three languages. Its syntax is very simple, and yet a lot of amazing things have been done in Tcl/Tk. These days Tcl is essentially synonymous with the truly wonderful and portable Tk GUI toolkit, and is often just referred to as Tcl/Tk. It is hard to over-emphasize the ability to write GUIs that work on Unix, Mac, and Win32 machines. Still, in my opinion Tcl/Tk is the least interesting scripting language. {\index{Programming!Perl}} Perl\cite{LearningPerl,CamelBook} is probably best known as a Unix system-administration and Web-scripting language. In some sense, Perl is Unix distilled into a single language, for both good and bad. It excels at string and text processing (parsing, pattern matching, and formatting of text output). If you're interested in learning web-scripting or Unix, learning Perl is a good choice. Perl attempts to be a `natural language' and so provides several syntax options and some truly breathtaking constructs. All this can lead to programs that intermix punctuation-laden lines and near-English text. The Tk GUI toolkit works with Perl on Windows and Unix, but not on Macintoshes. Several {\ifeffit} scripts have been written in Perl, and Bruce Ravel (who rewrote the {\atoms} program in Perl), has some advanced Perl modules for using {\ifeffit}. {\index{Programming!Python}} If you don't already know Tcl or Perl, learning Python\cite{LearningPython} may be your best bet. Though probably the least popular of the three languages, Python is growing in popularity and is especially good for scientific programming (complex math is supported!). Python has a very nice implementation of object-orientation and is generally hailed for its readability and ``cleanliness''. That's not to say that Python is without its own quirks, but it is almost certainly the most elegant and easiest to learn of the three scripting languages mentioned. As a bonus, the Tk GUI toolkit works with Python on Mac, Windows, and Unix. As an additional incentive, {\gifeffit} is written in python. \subsection{Controlling screen outputs: The echo buffer}\label{Ch:Scripting-echo} {\index{Programming!echo buffer}} An important consideration for either scripting or programming with {\ifeffit} is how to handle the text messages that are written to the screen during an interactive session. These messages include unprompted warnings and error messages as well as information that you explicitly asked to be shown, say through a {\cmnd{show}} command. The variable {\tt{\&screen\_echo}}, first mentioned in section~\ref{Ch:Structure-Logging}, can be used to control whether this output is actually written to the screen (technically speaking, {\emph{standard output}}, which may not even be visably available from your program) or saved to an {\emph{echo buffer}} that you can access from your program. {\indexvar{\&screen\_echo}} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%% Fortran %%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \subsection{The Fortran interface to {\ifeffit}}\label{Ch:Scripting-f77} {\index{Programming!Fortran}} {\ifeffit} is written primarily in Fortran, so using it from within Fortran programs is quite easy. The basic use of {\ifeffit} is to send command strings to an ``{\ifeffit} engine'' which acts just like an interactive {\ifeffit} session run at the command prompt. The underlying engine has its own set of Program Variables that are kept in its own memory space, separate from the calling program. The session ``stays alive'' until the calling program ends. Though you could directly call any of the subroutines or functions in the {\ifeffit} library, it is highly recommended that you {\bf{not}} make such direct calls. Instead, you should use the functions provided in the application programming interface (API), as described here and encapsulated in the Fortran include file {\file{ifeffit.inc}} that can be found with the configuration files in the {\ifeffit} distribution (typically in the {\file{/usr/local/share/ifeffit/config/}} directory). {\indexfil{ifeffit.inc}} The {\ifeffit} Fortran API defines eight external functions, all of which are integer functions. To use these functions, you can simply put a fortran {\tt{include}} statement at the top of your program, so that instead of explicitly declaring the integer function {\tt{ifeffit}}, you could say {\small{ %%#VerbSBox% \begin{VerbSBox} program use_if integer i include '/usr/local/share/ifeffit/config/ifeffit.inc' c i = ifeffit(' ') i = ifeffit('read_data(cu.xmu, group=cu, type=xmu)') i = ifeffit('spline(cu.energy, cu.xmu, rbkg = 1.2)') i = ifeffit('plot(cu.k, cu.chi)') end \end{VerbSBox} %%#VerbSBox% }}\noindent This shows a very simple {\ifeffit} session converted into a Fortran program, using only the function {\tt{ifeffit()}}. This function is the main interface to the underlying {\ifeffit} engine. As this example shows, it is recommended that you first call {\tt{ifeffit()}} with an ``initialization string'', typically a blank line, but optionally setting system configuration variables. How do you actually build an executable out of this program file? That, of course, depends on details of your system. Most of the settings needed are put in the file {\file{Config.mak}} in the same location as {\file{ifeffit.inc}}. This file contains Makefile instructions needed for linking your {\ifeffit} application with the {\ifeffit} library and all the other libraries needed to make an executable. An example Makefile (using the above code and the settings of Config.mak from a fairly normal linux system) is included in the {\file{examples/scripting}} section of the source distribution. {\indexfil{Config.mak}} \subsubsection{integer function {\tt{ifeffit()}}}\label{Ch:Script-f77:ifeffit} {\index{Programming!execution}} {\index{Programming!{{\tt{ifeffit()}}}}} The {\tt{ifeffit()}} function takes a string as an argument (up to 1024 characters), and returns an integer, which will have one of the following values given in Table~{\ref{Table:iff-ret}} \begin{table}[tb] \caption[a]{Integer return values from {\tt{ifeffit()}}, a function to execute {\ifeffit} commands in an ``{\ifeffit} engine''. The function is accessible from Fortran, C, C++, Perl, Python, and Tcl.} {\label{Table:iff-ret}} \begin{tabular}{cl} \noalign{\smallskip} Return value & Meaning \\ \noalign{\smallskip} \hline \noalign{\smallskip} 0 & normal, successful execution \\ -2 & in the middle of a macro definition\\ -1 & in the middle of an incomplete command line\\ 1 & normal exit \\ $>1$ & abnormal exit \\ \noalign{\smallskip} \hline \end{tabular} \end{table} You should be somewhat careful about the characters you actually send to {\tt{ifeffit()}}, especially with respect to non-printable characters and line-ending issues. Though it tries to remove non-printing characters, it may not be wise to simply open a file and send its contents to {\tt{ifeffit()}} without checking that the file does not contain binary data. \subsubsection{integer function {\tt{iffputsca()}}}\label{Ch:Script-f77:putscalar} {\index{Programming!put scalar}} The {\tt{iffputsca()}} function takes two arguments: the first is a character string (up to 128 characters) that names an {\ifeffit} scalar (following the naming rules outlined in chapter~\ref{Ch:Structure}), and the second is a double precision value. The effect is to set the named scalar with the given value. If the scalar already exists, it will be overwritten. Note that this is equivalent to a {\cmnd{set()}} command, not a {\cmnd{def()}} command: for that, you should use the {\tt{ifeffit()}} function. {\tt{iffputsca()}} always returns 0. \begin{verbatim} i = iffputsca('kmin', 3.d0) x = sqrt(100.) i = iffputsca('kmax', x) i = ifeffit(' show kmin, kmax') \end{verbatim} \noindent would show the values to be 3.0 and 10.0, respectively. \subsubsection{integer function {\tt{iffgetsca()}}}\label{Ch:Script-f77:getscalar} {\index{Programming!get scalar}} The {\tt{iffgetsca()}} function takes two arguments: the first is a character string (up to 128 characters) that names an existing {\ifeffit} scalar (following the naming rules outlined in chapter~\ref{Ch:Structure}), and the second is a double precision variable. The effect is to retrieve the value of the named {\ifeffit} scalar and put it into the provided Fortran variable. If the scalar does not exist in the {\ifeffit} session, the value will be set to 0. {\tt{iffgetsca()}} always returns 0. \begin{verbatim} i = ifeffit(' set var = sqrt(100.0)') i = iffgetsca('var', x) print*, ' x = ', x \end{verbatim} \noindent would show the value 10.0. \subsubsection{integer function {\tt{iffputarr()}}}\label{Ch:Script-f77:putarr} {\index{Programming!put array}} The {\tt{iffputarr()}} function takes three arguments: the first is a character string (up to 128 characters) that names an {\ifeffit} array (following the naming rules outlined in chapter~\ref{Ch:Structure}), the second is an integer giving the length of the array, and the third is a double precision array. The effect is to set the named {\ifeffit} array with the provided array. If the array already exists, it will be overwritten. {\tt{iffputarr()}} always returns 0. \begin{verbatim} double precision x(200),y(200) do i = 1, 200 x(i) = i * 4.0 y(i) = sin(x(i) / 100.) end do i = iffputarr('my.x', 100, x) i = iffputarr('my.y', 100, y) i = ifeffit(' show @arrays') i = ifeffit(' plot my.x, my.y, color=red') \end{verbatim} \noindent would show the arrays {\tt{my.x}} and {\tt{my.y}} to have 100 elements. \subsubsection{integer function {\tt{iffgetarr()}}}\label{Ch:Script-f77:getarr} {\index{Programming!get array}} The {\tt{iffgetarr()}} function takes two arguments: the first is a character string (up to 128 characters) that names an existing {\ifeffit} array (following the naming rules outlined in chapter~\ref{Ch:Structure}), the second is a double precision array to store the output result. The effect is to retrieve the value of the named {\ifeffit} array and store it into the provided Fortran array. {\tt{iffgetarr()}} will return the length of the output array. It is an error for the array to not contain enough elements to be filled. \begin{verbatim} double precision x(200) i = ifeffit('my.x = range(0,100,1)') n = iffgetarr('my.x', x) print*, 'x has ', n, ' elements:' print* , x(1), x(2), ' ... ', x(n) \end{verbatim} \noindent would show the array {\tt{x}} to have 100 elements: 1, 2, \ldots, 100. \subsubsection{integer function {\tt{iffputstr()}}}\label{Ch:Script-f77:putstr} {\index{Programming!put string}} The {\tt{iffputstr()}} function takes two arguments: the first is a character string (up to 128 characters) that names an {\ifeffit} string (following the naming rules outlined in chapter~\ref{Ch:Structure}, but with the leading '\$' optional), and the second is a character string for the value. The effect is to set the named string with the given value (only the first 128 characters will be used -- any remaining characters will be ignored). If the string already exists, it will be overwritten. {\tt{iffputstr()}} always returns 0. \begin{verbatim} character*128 txt txt = 'Here is a string' i = iffputstr('text1', txt) i = ifeffit(' show @strings') \end{verbatim} \noindent would show the string {\tt{\$text1}} to be 'Here is a string'. \subsubsection{integer function {\tt{iffgetstr()}}}\label{Ch:Script-f77:getstr} {\index{Programming!get string}} The {\tt{iffgetstr()}} function takes two arguments: the first is a character string (up to 128 characters) that names an existing {\ifeffit} string (following the naming rules outlined in chapter~\ref{Ch:Structure}, but with the leading '\$' optional), and the second is a character string variable to hole the value. The effect is to retrieve the named string with the given value. The string variable provided should be large enough to hold the result (128 characters is a safe value, as the returned value will never be larger than that). {\tt{iffgetstr()}} will return the real, useful length of the string. \begin{verbatim} character*128 txt i = ifeffit(' set $text1 = "string test 1"') n = iffgetstr('text1', txt) print*, ' txt = ', txt(1:n) \end{verbatim} %% $ \noindent \subsubsection{integer function {\tt{iffgetecho()}}}\label{Ch:Script-f77:getecho} {\index{Programming!get echo buffer}} The {\tt{iffgetecho()}} function takes one argument: a character string variable to hold the value returned. The effect is to retrieve the next element in the ``echo buffer''. Any remaining lines in the echo buffer will be shifted down (or popped, as it is often called), and the value of {\tt{\&echo\_lines}} will be decreased by one. The echo buffer will only be filled if the variable {\tt{\&screen\_echo}} is set to 0, which indicates that you intend to handle all text that would be sent to the screen yourself. Since any command may write to the echo buffer, it is recommended that you check the value of {\tt{\&echo\_lines}} and retrieve all ``echo''ed lines after each command. \indexvar{\&echo\_lines} \indexvar{\&screen\_echo} {\tt{iffgetecho()}} will return the real, useful length of the echo string. \begin{verbatim} character*128 txt(32) double precision xnbuff integer nbuff, j i = iffgetsca('&echo_lines', xnbuff) nbuff = min(32,int(xnbuff)) do 10 j = 1, nbuff il = iffgetecho(txt(j)) print*, ' echo line ', j , ' = ', txt(j)(1:il) 10 continue \end{verbatim} % \noindent %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%% C %%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \subsection{The C interface to {\ifeffit}}\label{Ch:Scripting-cc} {\index{Programming!C}} Accessing {\ifeffit} from a C program is very easy. The basic concepts and many of the details of the {\ifeffit} application interface (or API for the programmers out there) given here also apply to using {\ifeffit} from within scripting languages, as described later in this chapter. C++, by the way, is similar enough to C that calling {\ifeffit} from it should be straightforward once the C interface is described. If you've read the previous section, you'll find that the C interface is also very similar to the Fortran interface. The basic use of the {\ifeffit} C interface is to send command strings to an ``{\ifeffit} engine'' which acts just like an interactive {\ifeffit} session run at the command prompt. The underlying engine has its own set of Program Variables that are kept in its own memory space, separate from the calling program. The session ``stays alive'' until the calling program ends. Though you could directly call any of the subroutines or functions in the {\ifeffit} library, it is highly recommended that you {\bf{not}} make such direct calls. Instead, you should use the functions provided in the application programming interface (API), as described here and encapsulated in the C include file {\file{ifeffit.h}} that can be found with the configuration files in the {\ifeffit} distribution (typically in the {\file{/usr/local/share/ifeffit/config/}} directory). {\indexfil{ifeffit.h}} The {\ifeffit} C API defines eight external functions, all of which are integer functions. To use these functions, you can simply put an {\tt{include}} directive at the top of your program: {\small{ %%#VerbSBox% \begin{VerbSBox} #!include "ifeffit.h" int main() { int i; i = ifeffit(" "); i = ifeffit("read_data(cu.xmu, group=cu, type=xmu)"); i = ifeffit("spline(cu.energy, cu.xmu, rbkg = 1.2)"); i = ifeffit("plot(cu.k, cu.chi)"); } \end{VerbSBox} %%#VerbSBox% }}\noindent This shows a very simple {\ifeffit} session converted into a C program, using only the function {\tt{ifeffit()}}, the main interface to the underlying {\ifeffit} engine. As this example shows, it is recommended that you first call {\tt{ifeffit()}} with an ``initialization string'', typically a blank line, but optionally setting system configuration variables. How do you actually build an executable out of this program file? That, of course, depends on details of your system. Most of the settings needed are put in the file {\file{Config.mak}} in the same location as {\file{ifeffit.h}}. This file contains Makefile instructions needed for linking your {\ifeffit} application with the {\ifeffit} library and all the other libraries needed to make an executable. An example Makefile (using the above code and the settings of Config.mak from a fairly normal linux system) is included in the {\file{examples/scripting}} section of the source distribution. {\indexfil{Config.mak}} \subsubsection{function {\tt{ifeffit()}}}\label{Ch:Scripting-cc:ifeffit} {\index{Programming!execution}} {\index{Programming!{{\tt{ifeffit()}}}}} {\index{Programming!{{\tt{iff\_exec()}}}}} The {\tt{ifeffit()}} function takes 1 argument that is a character string up to 1024 characters long (including any newline characters and the like) and returns an integer. The string {\bf{up to the first newline character}} is interpreted and run as a command by the {\ifeffit} engine. After the command has been fully processed, an integer is returned, indicating a return status according to Table~{\ref{Table:iff-ret}}. For backwards compatibility, the function {\tt{iff\_exec()}} has identical behavior to {\tt{ifeffit()}}. \subsubsection{function {\tt{iff\_put\_scalar()}}}\label{Ch:Scripting-cc:putscalar} {\index{Programming!put scalar}} The {\tt{iff\_put\_scalar()}} function takes two arguments: the first is a pointer to a character string (up to 128 characters) that names an {\ifeffit} scalar (following the naming rules outlined in chapter~\ref{Ch:Structure}), and the second is a pointer to a double. The effect is to set the named scalar with the given double precision value. If the scalar already exists in the {\ifeffit} engine, it will be overwritten. Note that this is equivalent to a {\cmnd{set()}} command, not a {\cmnd{def()}} command: for that, you should use the {\tt{ifeffit()}} function itself. {\tt{iff\_put\_scalar()}} always returns 0. \begin{verbatim} double x, *px; int i; x = 3.00; i = iff_put_scalar("kmin", &x); x = sqrt(100.0); i = iff_put_scalar("kmax", &x); i = ifeffit(" show kmin, kmax"); \end{verbatim} \noindent would show the values to be 3.0 and 10.0, respectively. \subsubsection{function {\tt{iff\_get\_scalar()}} and {\tt{iff\_scaval()}} }\label{Ch:Scripting-cc:getscalar} {\index{Programming!get scalar}} The {\tt{iff\_get\_scalar()}} function takes two arguments: the first is a pointer to a character string (up to 128 characters) that names an existing {\ifeffit} scalar (following the naming rules outlined in chapter~\ref{Ch:Structure}), and the second is a pointer to a double. The effect is to retrieve the value of the named {\ifeffit} scalar and put it into the provided C pointer. If the scalar does not exist in the {\ifeffit} session, the value will be set to 0. {\tt{iff\_get\_scalar()}} always returns 0. \begin{verbatim} double *x; x = calloc(1,sizeof(double)); i = ifeffit(' set var = sqrt(100.0)'); i = iff_get_scalar('var', x); printf(" x = %g \n", *x); \end{verbatim} \noindent would show {\tt{x}} to have the value 10.0. A more convenient version of this function is also available: The {\tt{iff\_scaval()}} function takes one arguments: the name of an existing {\ifeffit} scalar, and returns a pointer to its double value. The above code could thus be rewritten as \begin{verbatim} double *x; i = ifeffit(' set var = sqrt(100.0)'); x = iff_scaval('var'); printf(" x = %g \n", *x); \end{verbatim} \noindent would show {\tt{x}} to have the value 10.0. \subsubsection{function {\tt{put\_string()}}}\label{Ch:Scripting-cc:putstring} The {\tt{put\_string()}} function takes 2 arguments to set the value of a text string Program Variable. The first argument is the {\emph{name}} of the variable in the {\ifeffit} name space, and the second is the value for the variable. Both the name and the variable itself are text strings (up to 128 characters long). To comply with the {\ifeffit} naming rules, the variable name needs to begin with a \$. \subsubsection{function {\tt{get\_string()}}}\label{Ch:Scripting-cc:getstring} The {\tt{get\_string()}} function takes 1 arguments that is the name of a text string Program Variable in the {\ifeffit} name space, and returns its value, which will be a text string up to 128 characters long (make sure to allocate enough memory!). To comply with the {\ifeffit} naming rules, the variable name must begin with a \$. \subsubsection{function {\tt{put\_array()}}}\label{Ch:Scripting-cc:putarray} The {\tt{put\_array()}} function takes 3 arguments to set the value of an array Program Variable. The first argument is the {\emph{name}} of the variable in the {\ifeffit} name space. The second is the number of points (type {\tt{int*}}) in the array, and the third is the array itself (type {\tt{double*}}). To comply with the {\ifeffit} naming rules, the variable name needs to contain a dot `.'. \subsubsection{function {\tt{get\_array()}}}\label{Ch:Scripting-cc:getarray} The {\tt{get\_array()}} function takes 2 arguments to retrieve an {\ifeffit} array Program Variable into an array (some languages call these lists) in the calling language. The first argument is the name of the variable in the {\ifeffit} name space, and the second is the array itself (type {\tt{double*}}). To comply with the {\ifeffit} naming rules, the variable name needs to contain a dot `.'. The value returned by {\tt{get\_array()}} will be the number of points in the array. \subsubsection{function {\tt{get\_echo()}}}\label{Ch:Scripting-cc:getecho} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%% Perl %%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \subsection{The {\ifeffit} Perl Module}\label{Ch:Scripting-perl} Perl is an Open-Source scripting language, available for free at {\WWWperl}. It runs on every significant operating system. For those with programming (especially C) or Unix experience, Perl is an easy language to learn, and is especially good for processing text files and controlling processes. For those without much programming experience, Perl is still fairly easy to learn. Many excellent books{\cite{LearningPerl,CamelBook}} are available, and the support available on the web is excellent. Perl's flexibility and text-processing capabilities makes it very useful for many projects, including web-scripting. To use {\ifeffit} from within a perl program, you need the {\ifeffit} Perl Module, which is a pluggable extension to perl included in the {\ifeffit} distribution. Using the {\ifeffit} module is fairly easy. Somewhere near the top of your perl script you put `{\texttt{use Ifeffit;}}' to tell perl that you want to use the {\ifeffit} module. This provides perl with a function called {\texttt{ifeffit}} that takes a text string as an argument, sends that to the {\ifeffit} engine and returns after the command has executed. Subsequent calls to {\texttt{ifeffit}} continue in the same {\ifeffit} session, so that variables (arrays, scalars, strings, etc.) in {\ifeffit}'s memory can be accessed by later {\ifeffit} commands. A simple script might look like this: \begin{verbatim} #!/usr/bin/perl -w use Ifeffit; $plot_command = "plot(my.x,my.y,color=blue)"; ifeffit(" my.x = indarr(600) / 300 "); ifeffit(" my.y = 4 * exp(-my.x/5.) * cos(4*my.x - 70)"); ifeffit($plot_command); \end{verbatim} \noindent The {\texttt{ifeffit}} function returns an integer, which is normally 0 for `success'. If the command appears to be an incomplete line (that is, the line is expected to be continued), {\texttt{ifeffit}} returns -1. If an `exit' has been sent to {\texttt{ifeffit}}, it returns 1, and if a serious error occurs within {\ifeffit}, a value greater than 1 is returned. In addition to sending commands as text strings to the {\ifeffit} function, you can also directly access the scalars, arrays, and text strings in {\ifeffit}'s store. There are six additional functions -- one for each of ``set'' and ``get'' of the three data types: {\tt{get\_scalar}}, {\tt{get\_string}}, {\tt{get\_array}}, {\tt{put\_scalar}}, {\tt{put\_string}}, and {\tt{put\_array}}. To use these functions, you'll need to tell perl you want to use these functions (in keeping with perl's custom, the default behavior is to {\emph{not}} provide loads of function names without explicitly asking for them) with \begin{verbatim} use Ifeffit ; use Ifeffit qw(get_scalar get_string get_array); use Ifeffit qw(put_scalar put_string put_array); \end{verbatim} \noindent With these declarations, you can now put something like \begin{verbatim} ifeffit(" read_data(my.xmu, type = xmu)"); ifeffit(" spline(my.energy, my.xmu, rbkg = 1.0)"); $e0 = get_scalar("e0"); $rbkg = get_scalar("rbkg"); $perl_string = "Spline Rbkg = $rbkg E0 = $e0\n"; put_string("title1", $perl_string) ifeffit(" write_data(file=my_out.chi,$title1, my.k, my.chi)"); \end{verbatim} %%--$ \noindent in your perl script. After reading $\mu(E)$ data and doing a background subtraction, this script got the values of $R_{\rm bkg}$ and $E_0$, wrote those values into a perl text string and then passed that string directly back into {\ifeffit}. Since {\ifeffit} has essentially no string processing capabilities, this is a good way to write a decent title line for an output file. Finally, this script told {\ifeffit} to write an output file for $\chi(k)$ using this newly-formed title line. If the {\ifeffit} perl module is installed on your system, more complete documentation is available by typing ``{\texttt{perldoc Ifeffit}}'' at a command-line prompt. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%% Python %%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \subsection{Using {\ifeffit} from Python}\label{Ch:Scripting-python} Like Perl and Tcl, Python is an Open-Source scripting language that runs on every significant operating system and is available for free at {\WWWpython}. Python is easy to learn, and is growing in popularity, especially for scientific programming. It's supports the Tk toolkit on Unix, Windows, and Mac, and even has some 2d-plotting capabilities builtin. To use {\ifeffit} from within Python, you'll need to make the {\ifeffit} extension to Python (consult the installation documentation). Once that's done, you can import the Ifeffit module to get the same sort of functions described above for Perl and Tcl. That is, there is an {\tt{ifeffit}} function that takes a command string argument and returns an integer. There are also functions {\tt{get\_scalar}}, {\tt{get\_string}}, {\tt{get\_array}}, {\tt{put\_scalar}}, {\tt{put\_string}}, and {\tt{put\_array}} for copying each of the three data types back and forth between the underlying {\ifeffit} session and the Python script itself. \begin{verbatim} #!/usr/bin/python import Ifeffit iff = Ifeffit.Ifeffit() iff.ifeffit( "read_data(my.xmu, group=my, type = xmu)") iff.ifeffit( "spline(my.energy, xmu = my.xmu, rbkg = 1.0)") e0 = iff.get_scalar("e0") rbkg = iff.get_scalar("rbkg") str = "Spline Rbkg = %f8.2 E0 = %f9.2" % (rbkg, e0) iff.put_string("title1", str) iff.ifeffit( "write_data(file = my_out.chi, my.k, my.chi)") \end{verbatim} %%- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%% Tcl %%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \subsection{Using {\ifeffit} from Tcl}\label{Ch:Scripting-tcl} Tcl\cite{TclBook} is an Open-Source scripting language, available for free at {\WWWtcl}. Like Perl, it runs on every significant operating system, and is especially popular when used with it's exceptional Tk widget set for building cross-platform GUIs. The Tcl syntax is fairly simple, and many books and web-sites are devoted to it. To get access to the {\ifeffit} functionality from within Tcl, you'll need to make the {\ifeffit} extension to Tcl for your system. Once that's done (see the installations instructions for details), you can ``source'' the Ifeffit.tcl file to get the same sort of functions described above for Perl. That is, there is an {\tt{ifeffit}} function that takes a command string argument and returns an integer. There are also functions {\tt{get\_scalar}}, {\tt{get\_string}}, {\tt{get\_array}}, {\tt{put\_scalar}}, {\tt{put\_string}}, and {\tt{put\_array}} for copying each of the three data types back and forth between the underlying {\ifeffit} session and the Tcl script itself. A Tcl script using {\ifeffit} might look like this: \begin{verbatim} source Ifeffit.tcl ifeffit "read_data(my.xmu, group=my, type = xmu)" ifeffit "spline(my.energy, xmu = my.xmu, rbkg = 1.0) " set e0 [ get_scalar "e0" ] set rbkg [ get_scalar "rbkg" ] set tcl_string "Spline Rbkg = $rbkg E0 = $e0" put_string $title1 $tcl_string ifeffit "write_data(file = my_out.chi, my.k, my.chi)" \end{verbatim} %%-- ifeffit-1.2.11d/doc/RefMan/figs/0000755000175000017500000000000010771740460015223 5ustar segresegreifeffit-1.2.11d/doc/RefMan/figs/win_parzen.ps0000644000175000017500000003631610771740460017754 0ustar segresegre%!PS-Adobe-3.0 EPSF-3.0 %%For: newville %%Title: PGPLOT PostScript plot %%Creator: PGPLOT [PSDRIV 6.6] %%CreationDate: 5-May-2003 18:28 %%BoundingBox: (atend) %%DocumentFonts: (atend) %%LanguageLevel: 1 %%Orientation: Landscape %%Pages: (atend) %%EndComments %%BeginProlog /L {moveto rlineto currentpoint stroke moveto} bind def /C {rlineto currentpoint stroke moveto} bind def /D {moveto 0 0 rlineto currentpoint stroke moveto} bind def /LW {5 mul setlinewidth} bind def /BP {newpath moveto} bind def /LP /rlineto load def /EP {rlineto closepath eofill} bind def /MB {gsave translate MFAC dup scale 1 setlinewidth 2 setlinecap 0 setlinejoin newpath} bind def /ME /grestore load def /CC {0 360 arc stroke} bind def /FC {0 360 arc fill} bind def /G {1024 div setgray} bind def /K {3 -1 roll 1024 div 3 -1 roll 1024 div 3 -1 roll 1024 div setrgbcolor} bind def % Uncomment next line to convert color to grey shades %/K {3 -1 roll 3413 div 3 -1 roll 1739 div 3 -1 roll 9309 div add add setgray} bind def %%EndProlog %%BeginSetup /#copies 1 def %%EndSetup %%Page: 1 1 %%BeginPageSetup /PGPLOT save def 0.072 0.072 scale 5199 1200 translate 90 rotate 1 setlinejoin 1 setlinecap 1 LW 1 %%EndPageSetup %%PageBoundingBox: (atend) 0 0 0 K 1024 1024 1024 K 1 LW 0 0 BP 5999 0 LP 0 3999 LP -5999 0 EP 0 0 0 K 1024 1024 1024 K 2 LW 816 760 896 K 0 2799 600 600 L 0 2799 1800 600 L 0 2799 3000 600 L 0 2799 4199 600 L 0 2799 5399 600 L 4799 0 600 600 L 4799 0 600 1872 L 4799 0 600 3145 L 0 0 0 K 4799 0 600 600 L 0 2799 C -4799 0 C 0 -2799 C 0 69 C 0 34 840 600 L 0 34 1080 600 L 0 34 1320 600 L 0 34 1560 600 L 0 69 1800 600 L 0 34 2040 600 L 0 34 2280 600 L 0 34 2520 600 L 0 34 2760 600 L 0 69 3000 600 L 0 34 3239 600 L 0 34 3479 600 L 0 34 3719 600 L 0 34 3959 600 L 0 69 4199 600 L 0 34 4439 600 L 0 34 4679 600 L 0 34 4919 600 L 0 34 5159 600 L 0 69 5399 600 L 0 69 600 3330 L 0 34 840 3365 L 0 34 1080 3365 L 0 34 1320 3365 L 0 34 1560 3365 L 0 69 1800 3330 L 0 34 2040 3365 L 0 34 2280 3365 L 0 34 2520 3365 L 0 34 2760 3365 L 0 69 3000 3330 L 0 34 3239 3365 L 0 34 3479 3365 L 0 34 3719 3365 L 0 34 3959 3365 L 0 69 4199 3330 L 0 34 4439 3365 L 0 34 4679 3365 L 0 34 4919 3365 L 0 34 5159 3365 L 0 69 5399 3330 L -14 -5 595 517 L -9 -14 C -4 -23 C 0 -14 C 4 -23 C 9 -13 C 14 -5 C 9 0 C 14 5 C 10 13 C 4 23 C 0 14 C -4 23 C -10 14 C -14 5 C -9 0 C -46 0 1823 517 L -5 -42 C 5 5 C 13 4 C 14 0 C 14 -4 C 9 -9 C 5 -14 C 0 -9 C -5 -14 C -9 -9 C -14 -5 C -14 0 C -13 5 C -5 4 C -5 9 C 9 5 2935 498 L 14 14 C 0 -97 C -14 -5 3041 517 L -9 -14 C -5 -23 C 0 -14 C 5 -23 C 9 -13 C 14 -5 C 9 0 C 14 5 C 9 13 C 5 23 C 0 14 C -5 23 C -9 14 C -14 5 C -9 0 C 9 5 4135 498 L 14 14 C 0 -97 C -47 0 4269 517 L -4 -42 C 4 5 C 14 4 C 14 0 C 14 -4 C 9 -9 C 5 -14 C 0 -9 C -5 -14 C -9 -9 C -14 -5 C -14 0 C -14 5 C -4 4 C -5 9 C 0 4 5325 494 L 5 10 C 5 4 C 9 5 C 18 0 C 9 -5 C 5 -4 C 5 -10 C 0 -9 C -5 -9 C -9 -14 C -46 -46 C 64 0 C -14 -5 5441 517 L -9 -14 C -5 -23 C 0 -14 C 5 -23 C 9 -13 C 14 -5 C 9 0 C 14 5 C 9 13 C 5 23 C 0 14 C -5 23 C -9 14 C -14 5 C -9 0 C 69 0 600 600 L 34 0 600 854 L 34 0 600 1109 L 34 0 600 1363 L 34 0 600 1618 L 69 0 600 1872 L 34 0 600 2127 L 34 0 600 2381 L 34 0 600 2636 L 34 0 600 2890 L 69 0 600 3145 L 34 0 600 3399 L 69 0 5330 600 L 34 0 5365 854 L 34 0 5365 1109 L 34 0 5365 1363 L 34 0 5365 1618 L 69 0 5330 1872 L 34 0 5365 2127 L 34 0 5365 2381 L 34 0 5365 2636 L 34 0 5365 2890 L 69 0 5330 3145 L 34 0 5365 3399 L 5 -14 398 595 L 13 -9 C 24 -4 C 13 0 C 23 4 C 14 9 C 5 14 C 0 9 C -5 14 C -14 10 C -23 4 C -13 0 C -24 -4 C -13 -10 C -5 -14 C 0 -9 C 5 -13 398 1798 L 13 -10 C 24 -4 C 13 0 C 23 4 C 14 10 C 5 13 C 0 10 C -5 14 C -14 9 C -23 4 C -13 0 C -24 -4 C -13 -9 C -5 -14 C 0 -10 C 4 -4 486 1872 L 5 4 C -5 5 C -4 -5 C 0 -47 398 1965 L 42 -4 C -5 4 C -5 14 C 0 14 C 5 14 C 9 9 C 14 5 C 9 0 C 14 -5 C 9 -9 C 5 -14 C 0 -14 C -5 -14 C -4 -4 C -10 -5 C -4 9 416 3126 L -14 14 C 97 0 C 0 -97 2767 247 L -47 -47 2814 215 L 32 -37 2786 187 L -9 -9 2952 265 L -9 -14 C -10 -18 C -4 -23 C 0 -19 C 4 -23 C 10 -18 C 9 -14 C 9 -9 C -27 -83 3007 233 L 27 -83 3017 233 L 28 -83 3012 233 L 41 0 2989 178 L 28 0 2970 150 L 27 0 3026 150 L -9 -4 3007 265 L -4 -10 C 0 -9 C 4 -9 C 9 -5 C 10 0 C 9 5 C 4 9 C 0 9 C -4 10 C -9 4 C -10 0 C 62 0 3072 255 L 7 3 3169 283 L 10 10 C 0 -72 C 9 -9 3231 265 L 10 -14 C 9 -18 C 4 -23 C 0 -19 C -4 -23 C -9 -18 C -10 -14 C -9 -9 C 19 -65 1165 3539 L -18 -65 1202 3539 L 19 -65 1202 3539 L -18 -65 1239 3539 L 4 -5 1267 3571 L 5 5 C -5 5 C -4 -5 C 0 -65 1271 3539 L 0 -65 1308 3539 L 14 14 1308 3520 L 9 5 C 14 0 C 10 -5 C 4 -14 C 0 -46 C 0 -97 1447 3571 L -9 9 1447 3525 L -10 5 C -13 0 C -10 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 10 -5 C 13 0 C 10 5 C 9 9 C -9 -5 1502 3539 L -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 5 14 C 0 9 C -5 14 C -9 9 C -9 5 C -14 0 C 18 -65 1567 3539 L -19 -65 1604 3539 L 18 -65 1604 3539 L -19 -65 1641 3539 L -9 -9 1705 3589 L -9 -14 C -9 -18 C -5 -23 C 0 -19 C 5 -23 C 9 -18 C 9 -14 C 9 -9 C 0 -97 1738 3571 L -46 -46 1784 3539 L 32 -37 1756 3511 L 0 -65 1816 3539 L 14 14 1816 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 14 14 1867 3520 L 9 5 C 14 0 C 9 -5 C 4 -14 C 0 -46 C 4 -5 1950 3571 L 5 5 C -5 5 C -4 -5 C 0 -65 1954 3539 L 0 -65 1991 3539 L 14 14 1991 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 83 0 2079 3530 L 83 0 2079 3502 L 0 5 2199 3548 L 5 9 C 4 4 C 9 5 C 19 0 C 9 -5 C 5 -4 C 4 -9 C 0 -10 C -4 -9 C -10 -14 C -46 -46 C 65 0 C -4 -5 2300 3479 L -5 5 C 5 4 C 4 -4 C 0 -9 C -4 -10 C -5 -4 C 0 -97 2337 3571 L -46 -46 2383 3539 L 32 -37 2356 3511 L 0 -65 2416 3539 L 14 14 2416 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 13 14 2467 3520 L 10 5 C 13 0 C 10 -5 C 4 -14 C 0 -46 C 0 -65 2605 3539 L -9 9 2605 3525 L -9 5 C -14 0 C -10 -5 C -9 -9 C -4 -14 C 0 -9 C 4 -14 C 9 -9 C 10 -5 C 14 0 C 9 5 C 9 9 C 51 -65 2637 3539 L -51 -65 2688 3539 L 83 0 2720 3530 L 83 0 2720 3502 L 9 4 2850 3553 L 14 14 C 0 -97 C -47 -97 2993 3571 L 65 0 2928 3571 L -5 -5 3034 3479 L -4 5 C 4 4 C 5 -4 C 0 -9 C -5 -10 C -4 -4 C 0 -97 3122 3571 L -9 9 3122 3525 L -10 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 10 5 C 9 9 C 0 -97 3159 3571 L -46 -46 3205 3539 L 32 -37 3177 3511 L 83 0 3237 3530 L 83 0 3237 3502 L 0 5 3357 3548 L 5 9 C 4 4 C 10 5 C 18 0 C 9 -5 C 5 -4 C 4 -9 C 0 -10 C -4 -9 C -9 -14 C -47 -46 C 65 0 C -5 -4 3454 3483 L 5 -5 C 5 5 C -5 4 C -5 -5 3505 3479 L -4 5 C 4 4 C 5 -4 C 0 -9 C -5 -10 C -4 -4 C 0 -97 3542 3571 L -46 -46 3588 3539 L 32 -37 3560 3511 L 19 -65 3615 3539 L -18 -65 3652 3539 L 19 -65 3652 3539 L -18 -65 3689 3539 L 5 -5 3717 3571 L 4 5 C -4 5 C -5 -5 C 0 -65 3722 3539 L 0 -65 3759 3539 L 13 14 3759 3520 L 10 5 C 13 0 C 10 -5 C 4 -14 C 0 -46 C 0 -97 3897 3571 L -9 9 3897 3525 L -9 5 C -14 0 C -10 -5 C -9 -9 C -4 -14 C 0 -9 C 4 -14 C 9 -9 C 10 -5 C 14 0 C 9 5 C 9 9 C -9 -5 3952 3539 L -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 10 9 C 4 14 C 0 9 C -4 14 C -10 9 C -9 5 C -14 0 C 18 -65 4017 3539 L -19 -65 4054 3539 L 18 -65 4054 3539 L -19 -65 4091 3539 L 83 0 4123 3530 L 83 0 4123 3502 L 0 -32 4243 3571 L 0 -97 4280 3539 L 9 9 4280 3525 L 9 5 C 14 0 C 9 -5 C 10 -9 C 4 -14 C 0 -9 C -4 -14 C -10 -9 C -9 -5 C -14 0 C -9 5 C -9 9 C 0 -65 4418 3539 L -9 9 4418 3525 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 0 -65 4455 3539 L 5 14 4455 3511 L 9 9 C 9 5 C 14 0 C -50 -65 4561 3539 L 50 0 4511 3539 L 50 0 4511 3474 L 55 0 4589 3511 L 0 9 C -4 10 C -5 4 C -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 0 -65 4677 3539 L 14 14 4677 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 0 -32 4764 3571 L 9 -9 4797 3589 L 9 -14 C 9 -18 C 5 -23 C 0 -19 C -5 -23 C -9 -18 C -9 -14 C -9 -9 C 0 0 0 K 12 0 600 600 L 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 63 C 12 64 C 12 64 C 12 63 C 12 64 C 12 64 C 12 63 C 12 64 C 12 63 C 12 64 C 12 64 C 12 63 C 12 64 C 12 64 C 12 63 C 12 64 C 12 63 C 12 64 C 12 64 C 12 63 C 12 64 C 12 63 C 12 64 C 12 64 C 12 63 C 12 64 C 12 64 C 12 63 C 12 64 C 12 63 C 12 64 C 12 64 C 12 63 C 12 64 C 12 64 C 12 63 C 12 64 C 12 63 C 12 64 C 12 64 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 11 0 C 12 0 3011 3145 L 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 -64 C 12 -64 C 12 -63 C 12 -64 C 12 -63 C 12 -64 C 12 -64 C 12 -63 C 12 -64 C 12 -64 C 12 -63 C 12 -64 C 12 -63 C 12 -64 C 12 -64 C 12 -63 C 12 -64 C 12 -64 C 12 -63 C 12 -64 C 12 -63 C 12 -64 C 12 -64 C 12 -63 C 12 -64 C 12 -63 C 12 -64 C 12 -64 C 12 -63 C 12 -64 C 12 -64 C 12 -63 C 12 -64 C 12 -63 C 12 -64 C 12 -64 C 12 -63 C 12 -64 C 12 -64 C 12 -63 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 0 0 0 K 0 56 840 600 L 0 57 840 713 L 0 28 840 826 L 0 29 C 0 57 840 939 L 0 57 840 1052 L 0 57 840 1165 L 0 56 840 1279 L 0 56 840 1392 L 0 56 840 1505 L 0 56 840 1618 L 0 56 840 1731 L 0 28 840 1844 L 0 29 C 0 57 840 1957 L 0 57 840 2070 L 0 57 840 2183 L 0 57 840 2296 L 0 56 840 2410 L 0 56 840 2523 L 0 56 840 2636 L 0 56 840 2749 L 0 28 840 2862 L 0 29 C 0 57 840 2975 L 0 57 840 3088 L 0 0 0 K 0 56 1080 600 L 0 14 1080 713 L 0 43 C 0 28 1080 826 L 0 29 C 0 43 1080 939 L 0 14 C 0 57 1080 1052 L 0 57 1080 1165 L 0 56 1080 1279 L 0 56 1080 1392 L 0 56 1080 1505 L 0 56 1080 1618 L 0 14 1080 1731 L 0 42 C 0 28 1080 1844 L 0 0 0 K 0 56 1320 600 L 0 57 1320 713 L 0 28 1320 826 L 0 29 C 0 57 1320 939 L 0 57 1320 1052 L 0 57 1320 1165 L 0 56 1320 1279 L 0 56 1320 1392 L 0 56 1320 1505 L 0 56 1320 1618 L 0 56 1320 1731 L 0 28 1320 1844 L 0 29 C 0 57 1320 1957 L 0 57 1320 2070 L 0 57 1320 2183 L 0 57 1320 2296 L 0 56 1320 2410 L 0 56 1320 2523 L 0 56 1320 2636 L 0 56 1320 2749 L 0 28 1320 2862 L 0 29 C 0 57 1320 2975 L 0 57 1320 3088 L 0 0 0 K 0 56 4439 600 L 0 57 4439 713 L 0 28 4439 826 L 0 29 C 0 57 4439 939 L 0 57 4439 1052 L 0 57 4439 1165 L 0 56 4439 1279 L 0 56 4439 1392 L 0 56 4439 1505 L 0 56 4439 1618 L 0 56 4439 1731 L 0 28 4439 1844 L 0 29 C 0 57 4439 1957 L 0 57 4439 2070 L 0 57 4439 2183 L 0 57 4439 2296 L 0 56 4439 2410 L 0 56 4439 2523 L 0 56 4439 2636 L 0 56 4439 2749 L 0 28 4439 2862 L 0 29 C 0 57 4439 2975 L 0 57 4439 3088 L 0 0 0 K 0 56 4679 600 L 0 14 4679 713 L 0 43 C 0 28 4679 826 L 0 29 C 0 43 4679 939 L 0 14 C 0 57 4679 1052 L 0 57 4679 1165 L 0 56 4679 1279 L 0 56 4679 1392 L 0 56 4679 1505 L 0 56 4679 1618 L 0 14 4679 1731 L 0 42 C 0 28 4679 1844 L 0 0 0 K 0 56 4919 600 L 0 57 4919 713 L 0 28 4919 826 L 0 29 C 0 57 4919 939 L 0 57 4919 1052 L 0 57 4919 1165 L 0 56 4919 1279 L 0 56 4919 1392 L 0 56 4919 1505 L 0 56 4919 1618 L 0 56 4919 1731 L 0 28 4919 1844 L 0 29 C 0 57 4919 1957 L 0 57 4919 2070 L 0 57 4919 2183 L 0 57 4919 2296 L 0 56 4919 2410 L 0 56 4919 2523 L 0 56 4919 2636 L 0 56 4919 2749 L 0 28 4919 2862 L 0 29 C 0 57 4919 2975 L 0 57 4919 3088 L 0 0 0 K 0 -97 1146 2020 L -46 -46 1192 1988 L 32 -37 1165 1960 L 0 -65 1225 1988 L 14 14 1225 1969 L 9 5 C 14 0 C 9 -5 C 4 -14 C 0 -46 C 14 14 1275 1969 L 9 5 C 14 0 C 10 -5 C 4 -14 C 0 -46 C 5 -5 1358 2020 L 5 5 C -5 5 C -5 -5 C 0 -65 1363 1988 L 0 -65 1400 1988 L 14 14 1400 1969 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 83 0 1488 1979 L 83 0 1488 1951 L 0 5 1608 1997 L 4 9 C 5 4 C 9 5 C 19 0 C 9 -5 C 4 -4 C 5 -9 C 0 -10 C -5 -9 C -9 -14 C -46 -46 C 65 0 C -5 -4 1705 1932 L 5 -5 C 4 5 C -4 4 C -14 -5 1769 2020 L -9 -13 C -5 -23 C 0 -14 C 5 -23 C 9 -14 C 14 -5 C 9 0 C 14 5 C 9 14 C 5 23 C 0 14 C -5 23 C -9 13 C -14 5 C -9 0 C 0 -97 4578 2020 L -46 -46 4624 1988 L 32 -37 4596 1960 L 0 -65 4656 1988 L 14 14 4656 1969 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 14 14 4707 1969 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 0 -65 4845 1988 L -9 9 4845 1974 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 50 -65 4878 1988 L -50 -65 4928 1988 L 83 0 4961 1979 L 83 0 4961 1951 L 9 4 5090 2002 L 14 14 C 0 -97 C -46 -97 5233 2020 L 65 0 5168 2020 L -5 -4 5270 1932 L 5 -5 C 4 5 C -4 4 C -13 -5 5334 2020 L -10 -13 C -4 -23 C 0 -14 C 4 -23 C 10 -14 C 13 -5 C 10 0 C 14 5 C 9 14 C 4 23 C 0 14 C -4 23 C -9 13 C -14 5 C -10 0 C 0 -96 909 3292 L -9 10 909 3246 L -9 4 C -14 0 C -9 -4 C -10 -10 C -4 -14 C 0 -9 C 4 -14 C 10 -9 C 9 -4 C 14 0 C 9 4 C 9 9 C 0 -96 946 3292 L -46 -46 992 3260 L 33 -36 964 3232 L 9 5 1034 3274 L 14 13 C 0 -96 C 83 0 1117 3251 L 83 0 1117 3223 L 0 5 1237 3269 L 4 9 C 5 5 C 9 4 C 19 0 C 9 -4 C 4 -5 C 5 -9 C 0 -9 C -5 -9 C -9 -14 C -46 -46 C 65 0 C -5 -5 1334 3205 L 5 -4 C 4 4 C -4 5 C -14 -4 1398 3292 L -9 -14 C -5 -23 C 0 -14 C 5 -23 C 9 -14 C 14 -4 C 9 0 C 14 4 C 9 14 C 5 23 C 0 14 C -5 23 C -9 14 C -14 4 C -9 0 C 0 -96 4509 3292 L -10 10 4509 3246 L -9 4 C -14 0 C -9 -4 C -9 -10 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -4 C 14 0 C 9 4 C 10 9 C 0 -96 4545 3292 L -47 -46 4592 3260 L 32 -36 4564 3232 L 0 5 4624 3269 L 4 9 C 5 5 C 9 4 C 19 0 C 9 -4 C 5 -5 C 4 -9 C 0 -9 C -4 -9 C -10 -14 C -46 -46 C 65 0 C 83 0 4716 3251 L 83 0 4716 3223 L 0 5 4836 3269 L 5 9 C 4 5 C 10 4 C 18 0 C 9 -4 C 5 -5 C 4 -9 C 0 -9 C -4 -9 C -9 -14 C -46 -46 C 64 0 C -5 -5 4933 3205 L 5 -4 C 5 4 C -5 5 C -14 -4 4998 3292 L -9 -14 C -5 -23 C 0 -14 C 5 -23 C 9 -14 C 14 -4 C 9 0 C 14 4 C 9 14 C 5 23 C 0 14 C -5 23 C -9 14 C -14 4 C -9 0 C 840 3094 BP 145 -39 LP 0 39 LP 0 39 EP 56 0 985 3094 L 1320 3094 BP -145 39 LP 0 -39 LP 0 -39 EP -57 0 1157 3094 L 4439 3094 BP 145 -39 LP 0 39 LP 0 39 EP 57 0 4620 3094 L 4919 3094 BP -145 39 LP 0 -39 LP 0 -39 EP -41 0 4720 3094 L 0 0 0 K PGPLOT restore showpage %%PageTrailer %%PageBoundingBox: 86 86 375 519 %%Trailer %%BoundingBox: 86 86 375 519 %%DocumentFonts: %%Pages: 1 %%EOF ifeffit-1.2.11d/doc/RefMan/figs/win_welch.png0000644000175000017500000004272510771740460017722 0ustar segresegre‰PNG  IHDRZ’´jøùbKGDÿÿÿ ½§“ pHYs__׊ÚÉtIMEÓD=nz IDATxœíÝ}xU¾ð ´”/[d¡/Sj©@-LeË›¼l"Š¦RAQ‘|Ù«ÜÕôî øø‚»×^Ý ˜è£rm‘m®ª¸®‰ÚªqíH®vW;…µUÈòfa7÷£sc’¦y™ÌL2ßÏ o¨€úÒ!A: H‡é€ ¤C‚t@Ò!A: H‡é€ ¤C‚t@Ò!A: H‡é€ ¤C‚t@Ò!A: H‡é€ ¤C‚t@Ò!A: H‡é€ ‚„çy“ɤvºVUUåt:ÕŽB§µ‚çùyóæEû.AdùtQ§OŸ>jÔ(é¡(Šñ”6oÞ<žçe‰ÒÚÚêñxvìØþCã‰YÿY¢(z‚455EUTüßšîÛ?7àÓ#§îá­ÀERB˜m¤—Ìfó½÷ÞëñxâŒbám¸òÊ+ CmmmTï2n·[–OÿÅ/~!=´Ùl6›-æÒ6oÞl0®¼òÊøóù|‹/&„5Ša˜·ß~;äfqÆœh‹% ºÕ××jÒ¤I½åv»F#ý;Îo=mÚ4BÈ´iÓ222 <Õ§GNÝûWñ·„‘„ÚÓ6»Ôf³eeeÅÄ ºÉ$Û¶mÛ¾}û²eË”ÿhA^ýõ¨úá­Y³†²téÒø‹Ú±cÇË/¿¼sçÎ… B,X°dÉ’cÇŽÅ_²bDQ¼ñÆ›››ž7›Íf³Ùÿ“ÉtÇw(Øš5kÚÚÚöîÝ[ZZ*ŠâìÙ³çÍ›÷駟&â³T<¼“Nuuu]]Óé¤?¡@1,Õ †ahQÞ²eË.¿üò™3gÊXæš5k†‰¿œ?þñ‹-¢¹²k×.¯×±JE±°°ðÕW_ ¿,U²ܽ{·Íf+--%„Ðnw[[[‚>KÅÃ;­Y³fýúõjG¡;H‡Ê©¨¨ §Ó DŸ´Ûív»Âó|EE…ôä<0oÞ<ƒÁ`0~ùË_úŸZµjÕàÁƒ ÃСC¿ýö[éyQÍf3}Ë„ ¤·X­Vzr^ÅŒŒ z–ÂãñX­VºÁÙ³gÃül÷ŸbSQQñôÓO †~ýú-Y²¤µµuâĉƒ!==ýÚk¯ þ²ô{I12$¸ŸÆæÍ›Ÿ}öYéaccc¿~ýz}Wl1B*++û÷ïo0&Nœ8wî\úìv{UU•´´?#IJlMMM¯¿6\.—ÅbaY6ä«ÍÍÍ—]vý 7nìõ[G¢¡¡áÞ{ï•þû¿ÿ»tXFHEé?º¢¢‚žñ!##ƒ~aïÇ*!ÄjµözxOœ8±µµUÚ>üá i·‡¯¤„€ƒ'ä‰[ÿm*++ý_zóÍ7‡n0,EÈ0LÀoÇ5kÖtuu)vê(¤CE¹\.BÈîÝ»»»»i­s¹\´&øωèììt8ííííííŸ|òÉÖ­[éK×^{í‹/¾øÒK/y½Þyó浶¶vvvÒ—fÍšuàÀú–ŒŒŒ¢¢"Z Ã0´òx<çÏŸ§1HŸKimm5!¦-¬4¦÷Å_¬]»¶°°Ðëõ>ûì³/¿üòå—_Þ¿¯×»sçÎ×_]š>#}Qßÿ})æK/½ôᇦÛ8NCzj)î¿ÿþùóç‡ßÉQżcÇ)æ²²²¦¦¦W_}Õëõfee½ýöÛô+F§ÓIÛܪª*ÇC ¡§ø Â@§Ói³ÙB¾ÚÚÚ:þüáÇ{½Þ×^{íÀŸþyÈo-5ëV«µ×}ëŸzEQ|òÉ'ï¾ûîÈcEÑd2 ‚@ËaYV:´ÎŸ?O¹0‡·t¬=z”¾‘ríµ×ÖÕÕmܸÑçó…9¼û÷ï?mÚ4Z ˲áï‚‚‚žv…”oÚÛۥﾒN:U:x<Ïí·ß¼[¤mÞy禦&é·Ô×_]]]½xñbŸÏ÷›ßü¦®®Ž>Ïq\}}½! ð,ûÎ;ïDþß2Pû䥎8Žã|>Çq%%%6›Žûµ··û~z:}éÒ¥cÇŽõz½ôá¼yóæÍ›Gÿ&„ìܹS*ó¿øECCƒÏçkhhÈÌÌ”ÞâóùF½aßÏ×ÒÒBÿ£-Kii©Ùlöù| ÃÔ××Ke„J'h´´´0 ãp8¤çóòò–.]*=2dȬY³¤‡³fÍ¢UÝç7k`óæÍC‡mii¡Ï×ÖÖŽ=:úçóù|‹/:t¨ÿwŒ?f–e7oÞìûq/ù>iÒ$iâƒÃá`¦ººš"}—h…©n‹Åb±ôôê­·Þ:sæLéaCCƒ4ïÉÿ[‡)!<¯×›››;vìØH6¦ª×ëå8Žã8iÕ×׳,ëóùÌfsii©Åbééð¾ùæ›ÃÞþÓmÂÞcÆŒñ?¼½^/ø >¼£¾’Z­ÖQ£F¹ô«_ýꢋ.¢o”øûî»ïâ‹/– ôz½Ò“}Ï=÷H/eddø×å“&M¢ßƒ©4Ê1›ÍV«µµµ•çùGyäå—_fY–ã¸àñ±ÜÜÜÜÜ\éçmII ý£¶¶vØ°aÒ‰4BÈ Aƒ222!›6m***òïH•””¼ùæ›<ðÇq´ƒHOMÙívžçéÐS˜h»ºº¦NZ^^î6k̘1+W®”Nš4É¿Có‹_ü"¸œÂ‰'rGfggÑ¿EQìéb –ev‹Õj}ûí·Ýnw˜S’1Ä̲laa!!d×®]999þ…2DúÛb±üùϾÿþûkjj¤ïBéiB<Ã0þ›…G»†´Yé7Þ¸å–[¤‡þ£š]]]Ó§O4hÃáð/³§¡¶€}K;yÆ s»Ý|þüùòòrAüÿ;ŒF£ <Ï»\®êêj§Óér¹BÞÙÙÙ×\sMO‡·ÿ¸}˜Ã»¨¨H:¼i‘Ž6ÞôaÈ/<(¾’nÛ¶møðáÒÀé™3grssJضm›ÿ–ÿ‘0aÂÿ±òòò† ŒþÕW_õô*$Ò¡rhÅزe ˲K—.ýíoÛÔÔÔÓ(eH£G>zô¨(ŠÁ)A2’|ÿý÷Æ £›Í溺:Al6›Ýnÿýï yž÷o¾»ºº¶oß¾aÆßÿþ÷UUU´W$;ÇÓÓI8Žãü?Ôjµz<·Û&ÇÄóСC»»»{zUÅC‡1 ³{÷niDQ©e @{'~´Ýn7a¾Ú°aþùæ›/?~|ûöíK—.Ý¿¿Õj•2¢Óéì駆ÿ¾¥¹þwF€>ú¨°°pùòå+W®¤SBÃ0F£±¦¦†eY‹ÅRUU¥Øám4A é0àð¶Ûí=¥Ãà_]á+iAAAyyù–-[Â|‹0ÿYQ9uê”ôA!jwOõÅf³±,K/ã8.==]Ò s1™ÿì¬,i¼ÅëõfggÓ±>zòC–iii:t¨T¸Ãá1bG2›Í#FŒ¨®®–ÊŸ6mÚ#<âçÒ¥K-ZDËñ{ ¸p*à¡œÒK×TÅpÕšÅbñ”óW[[+]*[ÌÒC:&&í1º¥-Íf3a˜˜¯ó YÝh™Á—£íÝ»WIûío›-í{î¹'//þ½zõj:öÛÞÞíxið€§¿Ç{LzÞ?·Û——G_’v }©ººšæBŸÏÇqÜÀc8¼o»í6)¼ïúúú¡C‡ÒAÎàÃ;Za*)ý ) ‡Ã|ÀG²Mȇþ]j‹ú¿KzÉÿ{|ÍH¼òÊ+Ó¦MKKKó’~JIIÉÿ÷wwwßwß}1Çìÿ°¼¼üꫯ~ã7222V¬Xqýõ×Ó—DQ´X,4f–e¥’#ü ’‘#G†½úê«¥ÿkÉàÁƒwíÚµaÃú^ÒÞÞ~öìÙ†††’’’àCeäÈ‘4EØþ¾òÊ+F£1`ßÒ¯|É%—ìÛ·oÛ¶mtÏŒ=zÇŽK—.¥m´ô?8`Àš*è÷’åð¾á†öíÛwþüù©S§ÞvÛmsçÎ >¼­Vëã?îöwß}wß}÷eeeÞÑ ó-!ééé]]]'Ož|ú駥Lé E²MðC‰(ŠË–-{øá‡#?ý ²0ø|>µcõ­Zµê7ÞhmmM¢¤‚ \rÉ%÷Ýw߃>¨v,ò»êª«ÚÛÛ´FL´*++[[[5LÊ«ªªr¹\þ×~€2á999—]vYÀ¨©–‰¢( j¥žçY–ÕȯM“ÚœNç]wݵ{÷îT=°µ çáûöí»ð Վ" Q]Ìtèå1jGñM“ÚA@.T z‡è $]•æ‚ .À/€ †þóŸjG‹¤L‡tøË1ä9uŠrPÊA9(G*'þBTÁR¤C§Cÿâ œÄÑÚ÷ÒZ9rÑÚ÷ÒZ9rÑÚ÷ÒZ9É+)¯;”kŒÂÃ~Vö³2°Ÿ•‘¼ûY×½C éz4jdŽÚ!èö³2°Ÿ!<¤CèÑŽšÕA°Ÿ•ý á!$çeø %‚t÷Tÿ¿ƒ‰¢øî»ï.\¸0†Oimmíèè „äåå•––†g÷îÝ„åË—ÇðA ©­E‘ÒÓ @ØÙÙ¹`Á‚n"µ%%%áoòŒv#¾$”а¥ÂÝn·Ñhìi3¯×{ñÅgggÇðW_}5!¤¸¸˜Þ}~éÒ¥=m9kÖ,BÈ°aÃú÷ïß¿ÿ^x!†‹YË›•ü8ÝÂ~VFB÷³ÔnØl6›Ír›¼¼¼´´´iÓ¦egg§¥¥íܹ3ª˜:u*!¤¤¤$//rÇwô´¥ºíF’¦ŸÏ‡ÁÒXл¡~ÿý÷ÅÅÅѾ·µµõ•W^yå•W>ùä“}ûö9ŽíÛ··¶¶oY[[ûÑG555}óÍ7gÎœ¹ùæ›ýë_Ë>(íW¿úÕ÷ßßÖÖöÞ{ïuvvVVVÞtÓM‘¿½©©i÷îÝÛ¶mÛ·oßÁƒǦM›hO1Ú˜!ÆBE»ÝþÌ3Ïôéõhó·ß~ËqÜUW]EZ,–ìììÿýßÿ Þòµ×^›3gÎÌ™3éÃ-[¶?~ÜãñÄ9¨âÌ™3×]wíØB6lØpüøñÈß~âĉ)S¦TVVÒ‡‹eØ°aŸþyð–h7b†s‡„çù+®¸ÂëõBÆŒÓÓ6&“©¾¾Þh4Bè¿!°ž;éÖí³fÍjii‘ž¯««ëêê7n\ð[8°nÝ:ÿgÊËËwíÚE?TÔÔÔ´dɯכ–––ŸŸrÿvã駟öéÑGÍÊÊ’öÚn,\¸ÐšB]]ÝÑ£GC¶Wh7b¦÷t(ÂŒ3®¹æšÍ›7B***‚pÑcÚl6÷z< ‚`·ÛC¾Ä0L}}}ðó<òÈÍ7ßr6ÍþýûiMdee…V% ‚0þüeË–=ýôÓ¢(ÞxãmmmÛ„i7_|ñÅG}T*-¶vCêkúC»3½§Ãÿú¯ÿúùÏþâ‹/Ò‡n·;àî$7ÝtÓõ×_É‚~,˺ÝîÈ?ÝjµžèAéðeŽ?þµ×^ó?¬Ýn÷Ž;Âlj6räÈàÑQêøñãÛ·oâ‰'<O@»! ŸäB´Z¡ö•±1ì–––ôôô––ú¦ôï^x¡°°Ðçóy½^Žã8Žóz½þï ab‹%¸4jݺuÿùŸÿIÿ®®®ÎÌÌ”6«®®NOOù®ÁõpÊÀ~V†ŒûÙívgff†l7V¯^½hÑ"ßí†ÔD´´´0 c±XbþÐ0íÆm·Ý&]Ũz»‘¤iÅçóé½wÈqܯýë²²2:˜ðÕW_I/1"77—Â0ŒÛí6™LUUUñßlÊ”)Ÿ|òɤI“***üàã±=ôÐàÁƒéI›Íær¹† ’““ÓÝÝÝÙÙùÜsÏÅ°’ÈËh4Þpà eee………gÏž¥óÒ©Áƒ<˜øµv»Ýf³M:õg?û™ &“IÚØb±Œjö$|»ñÌ3ϼòÊ+tê)Ú˜%å©d¿Ÿ– þóŸ !sçÎ%„„\¤MEAÆñïâRccã?ÿùÏŒŒ ÿ'Y–¥å466wþÜ A™BNŸ9C·Á3ò>#×~>tH˜:eÆm7¯É«vËAˆªíØfçQ­¼ªqêôY–µX,{÷î 9á5|.”‹íþÀœª¼ã'Ž¯µÝ9uöÄ7›ÞhûÛ§j‡½hûÛ§o¾ýÆÔÙ×Úî<~Býd …v,5¨yÎ󪫮*,,¬©©‰örª¤Ïü×ÝŽJYY™ñG/‰¢XRRrá…>ÿüó³fÍÒÚ)hL=Pö³2äÚÏ´ž655­\¹²»»»¹¹9xêfBÛñÄö)‰ µx"§fÜ!/]ˆD¢Ó!Ïó‡þK§MBbþDÿÅ ¥ã›ã8Q‹‹‹ËÊÊ^}õÕðñ¨Í´2°Ÿ•!o:¤_uÕU{öìùì³Ï†‘Ú —Ë%m»Á0 m1è¿áãѭŹ¤Œ;éPE—ËEhz©PYÒ¡„az÷àúúz駥Ö#4ÓÊÀ~VF"Ò¡ Ÿ~úiZZšôÓÙŸ¼í˲4)šÍfé‚E­µZ‹'rz_•FJ<χ߲ªª*à›Íæ ­Ýn¨ô¨ YÝ’çù‚‚–eÍfs ½dPm7\.—ôÓùôéÓáßÜ>>|xÔ¨Qôo†a‚×û&‚Óé$„X­Ö0ýEˆÞ/´E‘ŽÙªƒ êÆ‘£6dwPW1¤˜¤ìÕÊÕ÷_bö©Ë;èA‘=¤ßw1,ù–PÄSö³2äÚÏí†4ÂrãD´Òüƒàx´ yK“2îDïn)/ú ÊrXs—™™¹{÷6íß Í´2°Ÿ•‘ÐýÜÑÑ1vìØ©S§ž8q"í†ôë9Þ@/yÓ¡Þφ$MnöŸ_si ÃÐ. ÑhdY6??ýúõÚÏ…¹¼¼¼õë×?ýôÓ!xŠi´BΚ„JÊ4ž¼¿>6nÜH+ŒÚD½e`?+CýœŸŸ¿jÕªßüæ7 ýKÞöY×Si”Ÿ½òä“O†¹¨³i´/L=5O>ù¤’Á´òÑu: ¿nªì<Oww÷c=¦‘x aêéc=ÖÝÝϹyã¨è:*ì®»îºþúëq U1 sýõ×ßu×]j±@:Tˆ mmmV«Uí@ ¬Vk[[0“Ò¡BœN§Ùl.--U;H ÒÒR³ÙL׎ä‚t¨'žx")®€8™Íæ'žxBí( jH‡Jp¹\}ûöE:гÙÜ·oßx.:Uè::e>ÈãñTVVöº™bñ@Ì"©§•••ŠÍ/E»!—¤¼^2¹.óE1??ÿÍ7ßLºµçqy¸2°Ÿ•¡ä~æyþ—¿üåÁƒu8“<¹Úgºî*cëÖ­ýúõKº\1ã8®_¿~[·nU;ˆÒaÂíÞ½ûÖ[oU; PÔ­·Þº{÷nµ£€(` ïÄ¢‹€·´´¨(Êl6—••‰¢¨ÃñÒ$¥ëÞ¡‹9ÎáÇG8RŠÅ–´/ÂzÊqÜСC¸í†\tX9¢­­mÉ’%nŒ•,´/òzj6›ÛÚÚ A»!]§CìܹsÎœ9jG*X²dÉÎ;ÕŽ"•¬éÐð£xÆ"úöí+cHÁè…G‘_}Ÿèx ~‘×Sz7·D_€¨…vÃétJm²Ú±Ä.YÓ¡ïG‹%æBÎ;'cHÁ6mÚTRRùö‰ŽâU=:uê¦M› ÑF»a±X¤6YíXb—¬é0)üõ¯½âŠ+ÔŽTc4ÿú׿ªDD×é0žže¯AøôÓO—.]ª‘x@QÕÓ… ~úé§ í‚vC.ºN‡ ]ëÏãñpDz¬FâYDUOY–å8.¡§ÑnÈE×é0¡¶mÛFO¤€žÆmÛ¶©ôé0Q>üðÃñãÇ«¨lüøñ~ø¡ÚQ@ï‚çùÓ§O/_¾\í@@eË—/?}ú4Ïój½Ðu:LÜúI'†‘RÖs€8ÅPOFcâN¢Ý‹®Ó¡ÕjMPÉ<ÏÇpG§ÄÅr‰¡žr—¸Þ!Ú ¹àŽ »X€„ÞÝBí( ºî&Áý~€â8nðàÁ‰^­ â„t(?žçq‰ø»ì²Ë0›FãåÛ‰CHa =}²Ðu:ŒjɘÈÅ6­”$,Qlõ4q“KÑnÈE×é°½½]ö2›››EQŒ-&"WlõÔh4Š¢ØÜܬ‘x ˜®Óa"ìÙ³gÚ´ijGš3mÚ´={ö¨ôéPf‚ LŸ>]í(@s¦OŸžÐ[[@œeFod¡v 9‰¾µÄI×éPö_j‚ ‚óUøå }1×S£ÑH›Ät ä-Ðår]tÑE Ãh$]Ìõ”a˜‹/¾Øåri$ ët(»ÎÎÎI“&©hTaaagg§ÚQ@hH‡r:pàÀŒ3ÔŽ4jÆŒP;  éPN1_€zÐ;=AœeCW`´Rè m°Z›6%ë žL&ýÃb±˜Ífuƒ¡Ð5€^ÑbŠýnv¹\)pâdM‡6›þÏQ%ïâF¯¿þzÿþýã)‹-h_œõ´OŸ>¯¿þºÔ‚©,ŒF£4£>yGƒ“5ÊÒ“wéÛï¾ûîöÛo§,Å  }qÖÓ[o½Õn·Ë ÑF»Á0L ŒáÜ¡lp_'èîô¤YH‡òðx< Ãhágh˲ Ã$ïˆb C:”º†!tµI×éPÆÅAˆ?b±%í‹¿žr'ãB£h7ä¢ët(ã¹sçÎÜÜÜ8 ÁR¼Ú=ÍÍÍݹs§,Á´òÑu:”QWW×ܹsÕŽ’Àܹs»ººÔŽ!Êóh r˜M£MH‡2À<ˆ fÓhÒ¡ d™Gú!ïl…®Ó¡Åb‘¥žçe)•+HYê)˲rõÑnÈÅàóùÔŽ!jƒ¶Âîׯßûï¿ŸzDþ­nNžÚQ¤>ìgehj?ój#éVaÇ©5“…Ç,€ØÐÖ#î'Šb ¬°“¬éÐn·Ó?,‹ÙlV%ǃa ˆ˲'ÙÓ¡ÇãIË“5ºÝnµC ÅÅÅjGI¬¸¸¸³³Sí(âe6›¥n‰Á`P7˜˜éúÜaœÀ9rDÞ«,pA.€öÉ[OÇäÈ‘xJ@»!]§Ã‚‚‚xÞ.‚¼÷²ˆ3P€¼õÔh4Æ™ÏÐnÈE×é0NòN+’k!oˆÒaŒèŒtñ m2¢ ÆHö‘RЧøÇKAH‡1zë­·F¥vôFõÖ[o© Æjß¾}gÏžU; HzgϞݷoŸÚQ€¾Óa<‹uww/^¼XÆ`[H²×Ó•+WvwwÇüv´rÑu:Œg"L"¦•bb€öÉ^O†‰g* Ú ¹è:Æ «•€\¤•KÕDïc!r!È…ã8L.UÒa,p>Èãk®ÓaÌ‹ ‚ˆtˆÅ–´/õ”eÙ˜{‡h7ä¢ëtóñ·gÏžÜÜ\yƒ!XŠ $¢žæææ¾óÎ;±½í†\tcöå—_ª¤ˆÂ®®.µ£Ð;¤Ã¨ÑßbX¡ äBÛôóÔ…tµ8=‹çô!Èé0j˜V ²cYÖãñ¨…®é:Z,–Þ%Šb‚.:Œ-PR‚êiÌ­ Ú ¹è::ŽÞÅó<Ã0²Cb”” zóRmh7ä¢ët›Ï?ÿKÒ€¼8ŽkiiQ; ]C:ŒÚßÿþwœ;y±,ûí·ßª…®!FÇãñtww#€¼h«‚Ù4*JÖthú‘Ë効«Õí[DQL܇1Ä K\=5¢(Fû.-´.—Kj“ÕŽ%vŸÏ§v Q3 n·›þÍq\Ì[ †¨¿~UU• õõõ±}¢ìñ$ÿV7'Oí(Rö³2äÚω«§,ËVWWk$žÈ‰¢(Í2™LªÇ›>j#µ…E#¥,ËÆÐ;Ô†aR`¡®d,U –¤€ÁÂ4êB:Œ–¤€Á]Õ…tÄ-I:Çqœ(ŠI:^št£íçÕÕÕõíÛ7AKÒÄ(/qõ”a˜¾}û¾öÚk‰GotÛÛÛ£ÚþÔ©S3gÎLP0$úx@y ­§3gÎ 4"y/=LºN‡N§3ªí=O„éçùŠŠŠxâyöÙgW¯^m !½úê«Ã† 3 ƒaàÀ<ð@O[nÙ²¥¨¨¨ÿþƒáÒK/ýhß²J"l7bkb¸ p´íÅó|ZZÚ–-[¤gA0„R[[²„Ù³ggdd †ŒŒŒÙ³gǃæø’\aGUŽ×ë%„x½ÞH6v»ÝF£1žxvîܹwïÞhK)--múôé4ò›o¾™ÒÞÞ¼™×ë4hÐòå˽^o{{û¬Y³ØÜBY€ðZÞ<¨vº ×~Ž°Ýˆ­ˆª‰*õõõiii£Fr»Ýa6s»Ý Ä fõêÕôíõõõééé÷Ýw_Ìñh„®{‡Q¡—Ç*6•fáÂ…¥¥¥ñ—³cÇŽáÇ¿ûî»4òçž{nÔ¨Q Á[®]»¶  à…^`†eÙ—_~ù¨÷ëxVH€hÑzšè‹ñ=Ï7Þ8vìØð›Ùív‹Å²Ñ{ꩧžzê)º0›ÙlÞ°aClTMA:ŒTSSSIII oE±¢¢‚ß.—Ëår™ÍæüüüüüüyóæB¤‡tcú.ºV8ýÛjµ666M˜0!77·§±‹-ZÔÜÜ,=ìèèøæ›o²³³ƒ·|衇!Òbö<ÏK»Âét._¾¼¤¤ä¡‡;vì¯ýkú|Ocý”ôvÿóO=õT~~þòå˃Cõx<&LðfØÐáÛ¶m‹ö+@«Õ*Í<¡®®®¶¶ößþíßÖ¯_ßÑÑ1}út‡ÃqÏ=÷lܸ1--íرcôÒÃæææn¸VüÉ“'?óÌ3þõ‘ž˜¤Õ\jš¬VkO B´½·0]Ã÷ß?à'5˲ýúõ«««‹n¿h*C´^¯·¾¾^ú»¤¤$33ó²Ë.£‡KMMMø·ËvTåX,›ÍáÆô´×ëå8Îb±HÏ/]ºtĈÒXü¥—^:hÐ é!!„eYú·Ñh”†õ !‡C*¤_¿~o¿ývä‘K!¤¥¥%ä«ÅÅÅ þÏüÛÝ—””ÄðAœ;T†Zç- ÇqR5ì±Çúöí+UÃÛn»í‚ .nÞ¼¹ÿþ´Ñ˜?þ¢E‹¤-Z´téRú·×ëeYÖf³ÑßÙ±}ÿF&½´?ä$ŸÏ×ÐÐÜ2ÒD­´?unðÄó¼Óé4›Í„µk×vwwwttHƒæS¦L™1c†Ö–¡óçÏ—••}÷ÝwÒ­ !¹¹¹+V¬~p]yå•ä§ç#{š¹j±X¤¿/¿üòóçÏÓ¿ÃLB ¸ßŠÓé´Z­‡£§ûý÷ßwttø?sè°ð³Ÿý¬§ò WW]u•Çãikk“ªùĉgÎœ)UÃ믿¾££CzXXX˜ŸŸOû|o¾ùæ'Ÿ|"UTT$ýÍ0L}}}YYY@‹!BOlQÝ–v ÃL¤þ”Ï>û,///ÂòµIýû¾øâ‹tú}Èq\YYÙÃ?rº‡¼¢Z܈çùÃè!Z¼xñþýû+**ü3b/¼ðÂÖ­[#I»ÝÞÓ«,ËJG³” ýÓj€… þõ¯õ擶—.¿.òxô òv£­­-;;{Þ¼y×]w¥É» @Ï2¦¥¥…¹‘çù=zT:ÑHq:=ï·X,þ Áét†ùš‹-:yò¤ÿ²$ôw¹,³ÿT¤~:üþûïþ“Š‹‹•ù訮©ê^_}õÕ!Cž{î9QËÊÊh*êõ]#FŒˆ<B˲‘$Ú0¹°µµõøñãt!Ö‘#G>ðÀ7n”ºé­Z^2ÿ1ªR^äíƹsçh ¥#êëë#yWff&Í‚F£ñÎ;ï|ÿý÷éóÍÍÍYYYôožç«ªªjjjxžÿ×ý×––ú¼4ù v»Ýl6Í-[¶¬Y³†þͲìþð‡ššúð¥—^êužªö©Ÿ333=ÿÈÞ_|‘‘‘¡bHÁèoŸÈ‡ ÇŒC~Ó0™Lt ?!ö`Ó¦MwÞyç=÷Üãy¯Ôqœ5kÖ¹sçèyû{ï½wûöí“&MZ¶lÙ±cÇþøÇ?^=÷:,J³ &ÐFÃívTUUE’®úôéCñx<ëÖ­›6mZyyyUUÕþðžç¥ÉœV«Õl6[,:Y/Â’#A»†Á¿³ívûo~󛯾úêÁ$„Сگ¿þº¸¸øÓO?ݶm›”’“—:éðäÉ“»wï6™L„¬¬¬eË–uuuÑ—jkkß{ï½÷Þ{O•ÀzímY–•¶ç8ÎívÓŒ€B¼KJE½:ÿ—zõÞ{ï•””ìß¿ÿþýþ%ÐÊóÈ#ø‰x<ž'žxbëÖ­YYYÕÕÕܘ+"üà_†‘ÿç{zHïzh4><þüGy¤OŸ>555Ò¹|£ÑH«0Ã0‡#¶ ¢zjIl6[ÀÌBˆÅbijj¢ëxÐ÷¶··[­Ö?üpܸq{÷îMö‘RBˆÁçó©òÁôx<ßÿ}KKË»ï¾Kñx<×]wÝW\~TÁ`'ìÈ—ä¦× Ex Px”Á¿ÕÁÍÉS;ŠÔ‡ý¬ ¹ö³õÔd2I¿YµOTäjŸ•§Ú`éÂ… IÐìG£Ñ¨äµœþ·}ðÁÒ¨½âµ(PO322>ø ÒƒÑnÈE+—ák_yy¹Ú!€. µQ…úSitttÌœ9óøí>öä• x&++«ôÒ‰Ñ~ÜwâÙH6;Ôqè’¢’ž6î8Ô‘—›íGÇb´OªÂ~V†\ûY–r´—•8žrDþ)j?­ûö¦ÀÚlÍ¥ÃÿùŸÿùòË/·nÝ>Úí£ê™ƒ²žx,ê5d;d³ƒÿq¦OO—L,þÛÞÎh?:žx£µxRö³2äÚϲ”¦ÝøÇ™>;Fþ)j?n¬>ñ]ê¤Ã¤<ç)שÚË!üè¼Âñ(S<”ý¬ ¹ö³2õÝ`0´··G2GFkí†Öâ‰ÎöNk· å±,«Ùû¤*•Ké=D>þøã´´´¼¼¼©S§^vÙeŠ-|ÉJ1„žççÃË‘+P‘2õeYžçƒ¯ÿK\< Zï°©©é¢‹.2›ÍôÒþýûwttlØ°!??_Z(ÑÂ,àéOÅðé0ÂräŠT¤L}gY6Ì‚¥‰ˆTëVTTL›6-xnÇsíµ×.Y²$’ŸEÊÀ`)(Œa –*LÞassó7ß|óì³Ï¿d4ËËË7mÚ¤|T=ùðÃ333ÕŽt$33óÃ?T; }Q'Š¢8lØ°žVÄ>þüÉ“') Q'Ož¬v #“'OŽp°ä¢N:\´hÑÙ³gׯ_ü’(Š{÷î]°`aX­ÖH6;~üxøõ»#,G®x@EÊÔwŽãŽèjB´rQí‘õë×?ôÐC‹-*//5jTzzú¹sçÞzë­ÚÚZ–e÷íÛæ½J^çÇó|YYYøÍpÝ!ÄûYÉuÝ!ÝÀív÷:‹Bkí†Ö≜jSi|ðÁ9sælݺÕãñð¤ÃÐN:õóŸÿ\í(ÈÏþóS§N©EêÓu:t8=½túôéÈ— SŽ\ñ€F(_ß9Ž;}út¢ã]§C‹ÅÒÓKQÔ‡)'*r•‰£|}g&L‹„vC.ºN‡aˆ¢˜Kð@ À:mÊ@: -üu¯JB‹¤¤Ã¡wZ€¶HºN‡V«5äóÑÞ¯«§r¢%W98jÕ÷žÚ%´rÑu: sûæ¨î*,×m SàvÒ)O•ú¦EB»!]§Ãžx<,IÚÁ0LòÞe>Y †püøññãÇ«ÀÆüøqµ£Hq}Ô@‹öíÛ—››«v?èìììge$õ~æy¾¬¬,)šëD·Ï‰“¬ç¥IVÇÉ; ”.†„\ÚA[$Qµ9é]ÅX7'YÓ¡Ýn§X,³Ù,cÉ)ðŸ )‰çym®PãñxRàòÇdM‡n·;q…kó€=Ór»d6›¥n‰Á`P7˜˜éz*MÈŸ31\ëŠUiôCÅú²uB»!]§ÃžÖú‹öÄ!Ö,еê{OíÚ ¹è:†Õƒ™ …t¨µµ533Sí(~"33 Ó$Òa 3gÎ\rÉ%jGð“'OîêêR;ŠT†tèðáãGV; €Ÿ`æĉjG‘ÊtƒWb‹íü¨VtS Hµê»t%~‚â]§Ãööö€gb;S\Nlä*GÝúÜF¡Ý‹®ÓaHZ¾Öô ­SB!þî7 Z†6*qañnÐ&´N ¥ët|Å}l×àËuå>VÐ>uë»\­Óu:,((xFŦi—#W< 5*Öw–eƒg–¢Ý‹®Óa0A0k´‰eYôéð'AÐæÝ5†A:L¤ÃÿÛ5øÊèéJ|ÒáÿÃjñ }h©éð'Ð5-C•8ºN‡‡Ãÿ!Ïó±8 (G®x@ƒÔ­ï ÃôÑnÈE×éÐb±ø?Œí*‹àräŠ4HÝú|­Ú ¹è:EÓJ@ˆÁTšA:ü˜Á Ú‡–*A Æ€–¡JœdM‡†9Θ XÜ(æ¥â±H€~¨^ßZ*-´N§Sj“ÕŽ%vŸÏ§v Q3ä ; ƒÁàõzc8}˜ xTÇ¿ÕÁÍÉS;ŠÔ‡ý¬ ¹ö³ºõ]Å!C†4\šj7´Oä’µw(;:wSi@Ëh…+ñéð_~ùeÿþýÕŽ YYY_~ù¥ÚQ¤ ¤Ãœ;wnúôéjGЋ²²²sçΩE B:ü Y ½J]§Ã€Õb^ «Òè‡êõ= ¥B»!]§Cÿµþâùµ…5KôC õÝ¿½B»!]§Ã±-X  $´T ‚tøAp€ö±,‹uÚéð8¼ )0 ƒö*t­V«ÿØ ('fr•‰£z}˜JƒvC.I¹šŽì‹$y<“És™X¤ âý¬ŒÔX¤Mz¯Ûí¦¿àµÖnh-žÈéºwè/æ«,†ö* !dïÞ½'NœP; €ˆœ8qbïÞ½jG‘j !äرc………jG‘ÂÂÂcÇŽ©EªA:üÁ„ Ô "h¯A×éPºÐ0Îåº`>hŸFê»Ôj¡Ý‹®Óa{{»ôw<§¦ýˉ‡\å@âh¡¾û·Wh7ä¢ët(áy7þ€dÁ0 nj!;¤CBEé’Ã0¢(ªEªA:$ô¨Âu<,h{…Œ(/]§Cºî_ücr­ˆu´O;õ¶]h7ä¢ëtXPP@ÿˆ³k(•'¹Ê€ÄÑH}—Z-´rÑu:¤0’fÓÈ®ÚĨªªŠþa6›ãìÛa $MͦáyÞår©E¼Ð;$|ðÁ¹sçÔŽ ýúõûàƒÔŽ"¥$kï°ººZÆÒŠŠŠd, ÑFuäȵ£øÇqÒ(ÝnW7˜˜¡wHúô郫, ¹pקO²ög´I×é.nÿT-,ÚÊÐH}—¦Ò Ý‹®Ó!]ú6þ©4YÒ ‘ú.M¥A»!]§C‚%i 9aaÙé=âÂH^hÁd¤÷tHÐ5€ä„¶K^ºN‡²,I£‘E›@Ú©ït6 Ú ¹è: ‚ Ë’4ÚYÒM;õΦA»!]§C ó² ¡í’—ÞÓ!ND@òB &#½§ÃC‡=Zí(¢6zôèC‡©EêÐ{:µcˆšÁ [Ø2•zø·:¸9yjG‘ú°Ÿ•‘’ûYƒ-˜CŠ®{‡Gíâ‚vL.ºN‡3• ™¡“‘®Ó¡(Š8˜ÂXtãLµCÐìge¤ä~fY«xËE×épãƲ”cµZ5UŽ\ÿý µCÐìgeȵŸµVßåjÇ )ÏyÊuªÖ`0Øl¶êêjíÄ£©ÿ­Å“ª°Ÿ•¡µz*K9UUUv»]SÇOòÏê÷yž¯««Û±cNËÅétªÂOÈOª–#­}/­•áa?«™Æo¹å–矞’™™ùÙgŸBÆŽ»k×®ð§ôdüuV]]m³Ùâ/G;¿QÊA9ú)Çn·WUUi'ËQžj½Ã)S¦ìÞ½»¶¶Öçóuvvþíoóù|{÷î-//;v¬bk´ã†a¼Ð‚ÉHtØÑѱgÏž?ýéOË–-ó¾´´ô¹çž3fÌüǨèSU>õóÏ?6lXO#¢cÆŒ9pà@˜· ƒÁ K$&“I–räŠå ”ƒr’º¹‚Qž:ép̘1G!dFüúë¯'Ožæíÿüç?è‘:ƒ¥yyyåååÓ§Oß²e‹ÿ5¤;vìX°`ÁG}t÷Ýw«è“Ê3KwíÚõÍ7ßôë×oäÈ‘„’’’††,JÒČغººôôô’’dAP…&Ò!€ºÔ_•@uH‡É–kkkM&S^^žÉdÚ²e‹Úᤦæææüü|“Å Ò‰ÆÆÆ)S¦?o³ÙŠ‹‹óóó׬YCg–A]:¶+**T‰-5´¶¶Î˜1ƒã¸üü|³ÙðjÒÏê\wžço¼ñÆ»ï¾ûæ›onii¹ýöÛ F£Úq¥š={ö 2Ä)WLq’Q]]ÕjÍÉÉ x~Íš5 +V¬2dȶmÛ~ùË_¶··«ajèi?ÿýï¿óÎ;'NœH2 £xh)BÅéÓ§¯[·î«¯¾Z·n]IIÉÇL_MÊãÙ—<ÆŽ»zõjéáêÕ«³³³UŒ'UÙl6‹Å¢v©Éáp 4hùòåF£Ñÿù½{÷BZZZèC¯×›••µnÝ:5bL=ígŸÏç¿Ÿ!‹¥¤¤DzH³ÝÞ½{}I{<'Ó`i[[Ûm·Ý&=ܸqcWWî-;Aº»»çÏŸË-·Üÿý)•‘Åb9tèЊ+žÿóŸÿúè£W]uÕµ×^ÛÚÚa 555W_}µÿ3N§“çy9£Ð –(jÉ’%Çl6Ó‡>úèï~÷»I“&`&*)}å•WL&Ó‹/¾xþüùíÛ·ÇRGGÇ‘#Gâ,@‡0³ FŸ}öÙçŸþþûïBL&Sȹ-þŒF#ÏóþH—ËU\\üÀЇ^¯÷µ×^‹3ªŽŽŽ¢¢¢8 Ð!ôbTXX8sæLŽã8Ž«¯¯·Z­áûˆçÏŸñÅýŸáy~ÅŠÆÝqÇç΋g¼T„ƘKÐ-¤C€1 #]5a4‡Çã ³ýïÿû¦¦&iÚgAAË媪ª¢SRA°Z­ÿøÇ?***bžj·Û—/_Û{tÎàóùÔŽ@/¦L™rúôé}ûö%¢pÇc2™ÚÛÛÃOp€Ð;PÎk¯½ÖÞÞ¾víZÙKæyþšk®©®®F.ˆ z‡Šjll\±b…Çã‰äŒșL¦ÌÌÌ—^zIÆ2t郥H‡é€ ¤C‚t@Ò!A: H‡é€ Bþ߶r HþIEND®B`‚ifeffit-1.2.11d/doc/RefMan/figs/plot_arrows.png0000644000175000017500000000424310771740460020307 0ustar segresegre‰PNG  IHDRCKE€PLTEÿÿÿ¥ÙŸÝXIDATxœíÜËoEð –âñ ¢´+ŽÜ€MÁœøà§ö‚$¤XÒu‰sAP‘UñT*RŠŒkG–@<+n)n²Fz ñJ½›îî 3»ž}Ì|“zã­ÒŠ©wž}x¿og¬UñÄe )D! QˆBî'âaBäCÞåŠs‰üˆ\"䶀´È_çCÄ–P䇸s‹¦(¬VÐJ¥\æ÷ì…FyEد۸ԑ-, ‡‡8Ù³šˆ2tÐpz(lEŒÐ)‚à–&Ð’†[b -Ù[[‘ÓhxêÔi¹ýÜ\Ã8. w„8uä¬~ò øî× ãªØ'0Z¼$yC(û ã—¢‰ …Œƒ´r¬lÊ«9]†ü–ùB† Ìñ‘ë2Ä­ŒØº û´#×–› 9©q…Ôöø:RÊäòÀU•ö$-ñ§r´ä¶lsÊã#öªTùEå¥oJÞøþ…}0|›Y•!õ[õ¾(D! QˆB¢‡±Ò‰¼lìó·¯ÓrEXÕ¡kûä“w(r5ƒ6ˆ0â`‡¾ZeÈÝs¯? õ¿7ä_ÿË— r³ùá¯/™ØfÈ^ó³ß{™?õÕóˆÈmãÙïÚ³ÖÍ­ÏÏ—bÄë^³ÍT7áа©’0;V³¹s­káÒ%HKD< }²±±!Ý-=‹¼Y1d«#í¹麥lK¿pØhïÐÍñ¬æ:AR›ãž<ÒŽ“Ê´[Ž“Á»³ì¿ÐÙü¦{½š Ârc”LÒâ È^H¶(ä¡BÄc4,>P‡Øªãæ üªX‡X†C ®á0ßÂeÄ2»bŸÔtw„LÒÓ@D3EË"tìjP ïkbJá8W d-4mܬ–e-H¶D¬E8ΟðHÜ=>ÐSˆe¦=ˆá=Ø8nNI¸Sä† ‘¤È| }¨.CZ0uìX{/ QˆB¢…(äC»®É¿G"Tÿ˜ÎUF º¬…±½òmqζ$,ñZ²Úhd[|Ž"|!ÎZ„-1^!þOé`<Ë!Ó+Óìå‘Á»Ï¼LÂüÍ ›4,6GÈÞµk݆fr›ƒúm}[hÉìñíö¬µ¾¾Þ½\¶BÂün#‡C†Ãaã]a ‡&ò3HI[v[Ò‚l=^N6‡"-ìˆ=¸%^Ø’tÇîuIŸ`‡G† }ìm[BŸÌnc¯¹Þ\'ŸllûG®“½Ó{ÞÌ.=íн#l£¬Åf3Ü;+Ë#c!4úP°6,Aæöø€(Ô$eÿÇÏäS&:‹Ùè£ÃGäqqŽ2(1ó!PÂ!~Ê=.g(2ˆžšA%'²”‘h›Rf÷fOÒ²¶ %†|pðaÚ”ds’= g2¤ ¸]ë’ÍáÞÔ%H ¨K:ø¨@[™û86=öÕ|”µÈ€%ï¥FØ¿‡~y,äB]È÷N!+ QˆB¢ÿ .ï0Æ|x:Bè·¡0û"¼›‡ Ò§KË"BË_à§ran\¸j†À›4>âž(ÏL zt©S3MaýÁ[3—¸»@æ{}`2 ÚõšÉÀïTãæIÐÎu:m‰·#L&!ȋΆ,û² xî 7ÿd·j‹"‚æ ·$"^÷ бh×nAÝíœ ,Ìá4kÑ0çäU« úÿœAuü˜€ ÷Ëuà3×—nBÁ{«R ‡â¬&u?w:E ©×GXt0’„~p$õð÷àJÖœàÊ–AøÖ‹·g‚@r •âÿñˆ³®Æv²ˆ¬b°ˆY _cc DdFz:_ƒ4-ŽÐ'˜Ü!ÍZ¤OñÌæìÛ‘ôIÍäköëþõ¨, 5ûíIÉwœÀwéÒÛ•$lvæ¯o•~ÛûôüŸä{1AhÖb;Øí;-lÅ©ЬEË0è¯D¤»iá œAá—†øÆN×ïd|ÔYŠ‹U|%µ9aÖ"š‚›Ñ¸^Ú±kWÐTüÑw.–SȮݪ™aK•‚çßsK‹á„tlÒ'çȽu+lI<€íZMì4æŒÆ†‰Ï%H˜µx¯ÑíöiÇZ qO”+8øñØ 9Ь·M†<ºÔÁƒw–åË&6“ûéÁ[3:^>O'„{”:C¢7ôÓ*`ʪžyuïs'BZÙÊìK±D$š `@ä†d±ý'…sˆdèÆ=~Æ€ïÙo@sÜMÒ31X€T&Òeˆl~*oÃJ2·AØÅðHyhð»gaÄgèðøà’UŧùàdhJE/žñ œ‚Mh³8ìkàï/ ñô¨i x6k5M“>Í÷5ð€¦|ÐìC<8a‚Éšl„C1›“§c«3[pÞ]\ÈÁVÈa_Ä XÈ¥HmGˉ ”_”Š¸<r¡þ[²X®¯ K¶\ž//iiì[¢…($Dö-Sô÷Þå?é•'8ÓÖÏIEND®B`‚ifeffit-1.2.11d/doc/RefMan/figs/plot_styles.ps0000644000175000017500000003731510771740460020161 0ustar segresegre%!PS-Adobe-3.0 EPSF-3.0 %%For: newville %%Title: PGPLOT PostScript plot %%Creator: PGPLOT [PSDRIV 6.6] %%CreationDate: 31-Mar-2002 22:58 %%BoundingBox: (atend) %%DocumentFonts: (atend) %%LanguageLevel: 1 %%Orientation: Landscape %%Pages: (atend) %%EndComments %%BeginProlog /L {moveto rlineto currentpoint stroke moveto} bind def /C {rlineto currentpoint stroke moveto} bind def /D {moveto 0 0 rlineto currentpoint stroke moveto} bind def /LW {5 mul setlinewidth} bind def /BP {newpath moveto} bind def /LP /rlineto load def /EP {rlineto closepath eofill} bind def /MB {gsave translate MFAC dup scale 1 setlinewidth 2 setlinecap 0 setlinejoin newpath} bind def /ME /grestore load def /CC {0 360 arc stroke} bind def /FC {0 360 arc fill} bind def /G {1024 div setgray} bind def /K {3 -1 roll 1024 div 3 -1 roll 1024 div 3 -1 roll 1024 div setrgbcolor} bind def % Uncomment next line to convert color to grey shades %/K {3 -1 roll 3413 div 3 -1 roll 1739 div 3 -1 roll 9309 div add add setgray} bind def %%EndProlog %%BeginSetup /#copies 1 def %%EndSetup %%Page: 1 1 %%BeginPageSetup /PGPLOT save def 0.072 0.072 scale 4849 250 translate 90 rotate 1 setlinejoin 1 setlinecap 1 LW 1 %%EndPageSetup %%PageBoundingBox: (atend) 1024 G 1024 G 1 LW 0 0 BP 7499 0 LP 0 4499 LP -7499 0 EP 1024 G 1024 G 2 LW 0 G 7499 0 0 0 L 0 4499 C -7499 0 C 0 -4499 C 0 0 300 0 L 0 0 600 0 L 0 0 900 0 L 0 0 1200 0 L 0 0 1500 0 L 0 0 1800 0 L 0 0 2100 0 L 0 0 2400 0 L 0 0 2700 0 L 0 0 3000 0 L 0 0 3300 0 L 0 0 3600 0 L 0 0 3899 0 L 0 0 4199 0 L 0 0 4499 0 L 0 0 4799 0 L 0 0 5099 0 L 0 0 5399 0 L 0 0 5699 0 L 0 0 5999 0 L 0 0 6299 0 L 0 0 6599 0 L 0 0 6899 0 L 0 0 7199 0 L 0 0 0 4499 L 0 0 300 4499 L 0 0 600 4499 L 0 0 900 4499 L 0 0 1200 4499 L 0 0 1500 4499 L 0 0 1800 4499 L 0 0 2100 4499 L 0 0 2400 4499 L 0 0 2700 4499 L 0 0 3000 4499 L 0 0 3300 4499 L 0 0 3600 4499 L 0 0 3899 4499 L 0 0 4199 4499 L 0 0 4499 4499 L 0 0 4799 4499 L 0 0 5099 4499 L 0 0 5399 4499 L 0 0 5699 4499 L 0 0 5999 4499 L 0 0 6299 4499 L 0 0 6599 4499 L 0 0 6899 4499 L 0 0 7199 4499 L 0 0 0 0 L 0 0 600 0 L 0 0 1200 0 L 0 0 1800 0 L 0 0 2400 0 L 0 0 3000 0 L 0 0 3600 0 L 0 0 4199 0 L 0 0 4799 0 L 0 0 5399 0 L 0 0 5999 0 L 0 0 6599 0 L 0 0 7199 0 L 0 0 0 0 L 0 0 0 200 L 0 0 0 400 L 0 0 0 600 L 0 0 0 800 L 0 0 0 1000 L 0 0 0 1200 L 0 0 0 1400 L 0 0 0 1600 L 0 0 0 1800 L 0 0 0 2000 L 0 0 0 2200 L 0 0 0 2399 L 0 0 0 2599 L 0 0 0 2799 L 0 0 0 2999 L 0 0 0 3199 L 0 0 0 3399 L 0 0 0 3599 L 0 0 0 3799 L 0 0 0 3999 L 0 0 0 4199 L 0 0 0 4399 L 0 0 7499 0 L 0 0 7499 200 L 0 0 7499 400 L 0 0 7499 600 L 0 0 7499 800 L 0 0 7499 1000 L 0 0 7499 1200 L 0 0 7499 1400 L 0 0 7499 1600 L 0 0 7499 1800 L 0 0 7499 2000 L 0 0 7499 2200 L 0 0 7499 2399 L 0 0 7499 2599 L 0 0 7499 2799 L 0 0 7499 2999 L 0 0 7499 3199 L 0 0 7499 3399 L 0 0 7499 3599 L 0 0 7499 3799 L 0 0 7499 3999 L 0 0 7499 4199 L 0 0 7499 4399 L 0 0 0 0 L 0 0 0 400 L 0 0 0 800 L 0 0 0 1200 L 0 0 0 1600 L 0 0 0 2000 L 0 0 0 2399 L 0 0 0 2799 L 0 0 0 3199 L 0 0 0 3599 L 0 0 0 3999 L 0 0 0 4399 L 1024 G 600 199 0 3199 L 600 191 C 600 175 C 600 152 C 600 125 C 600 90 C 599 53 C 600 15 C 600 -26 C 600 -65 C 600 -100 C 600 -133 C 300 -80 C 0 G 600 199 0 3199 L 600 191 C 600 175 C 600 152 C 600 125 C 600 90 C 599 53 C 600 15 C 600 -26 C 600 -65 C 600 -100 C 600 -133 C 300 -80 C 0 G 60 20 0 2499 L 60 20 121 2539 L 60 20 242 2579 L 61 20 362 2619 L 61 20 483 2659 L 61 20 604 2699 L 61 19 725 2738 L 60 20 847 2776 L 61 19 968 2815 L 61 19 1089 2854 L 61 18 1211 2892 L 61 17 1333 2928 L 61 18 1455 2963 L 61 18 1577 2999 L 61 17 1699 3035 L 61 16 1822 3069 L 61 16 1945 3101 L 62 16 2068 3132 L 62 15 2191 3164 L 61 16 2315 3195 L 62 13 2439 3225 L 62 13 2563 3250 L 62 13 2688 3276 L 63 13 2812 3302 L 62 13 2937 3328 L 63 10 3062 3350 L 63 10 3188 3369 L 63 10 3314 3388 L 63 10 3440 3407 L 35 5 3565 3426 L 29 3 C 63 6 3692 3439 L 63 5 3819 3451 L 64 6 3945 3462 L 64 6 4072 3473 L 0 0 4199 3485 L 64 1 C 64 1 4326 3488 L 64 1 4453 3491 L 63 1 4581 3494 L 63 1 4708 3497 L 64 -3 4835 3497 L 64 -3 4962 3492 L 64 -2 5089 3486 L 64 -3 5216 3481 L 55 -2 5344 3475 L 8 -1 C 64 -6 5470 3465 L 63 -7 5597 3452 L 64 -7 5723 3438 L 63 -7 5850 3425 L 23 -3 5976 3411 L 40 -6 C 63 -10 6102 3391 L 62 -10 6228 3370 L 63 -11 6353 3349 L 62 -11 6479 3328 L 62 -14 6604 3307 L 62 -14 6728 3279 L 62 -14 6853 3252 L 62 -14 6977 3224 L 62 -13 7101 3196 L 61 -17 7225 3168 L 61 -16 7348 3135 L 28 -7 7471 3102 L 0 G 6 2 0 1800 L 6 2 42 1814 L 6 2 85 1828 L 6 2 127 1842 L 6 2 169 1856 L 7 2 211 1870 L 6 2 254 1884 L 6 2 296 1898 L 6 2 338 1912 L 6 2 381 1926 L 6 2 423 1940 L 6 2 465 1954 L 6 2 507 1968 L 6 2 550 1982 L 6 2 592 1996 L 6 2 634 2009 L 6 2 677 2023 L 6 2 719 2036 L 6 2 762 2050 L 6 2 804 2063 L 6 2 847 2077 L 6 2 889 2090 L 6 2 932 2104 L 6 2 974 2117 L 7 2 1016 2131 L 6 2 1059 2144 L 6 2 1101 2158 L 6 2 1144 2171 L 6 2 1186 2185 L 6 2 1229 2197 L 6 2 1272 2210 L 6 2 1314 2222 L 6 2 1357 2235 L 6 2 1400 2247 L 6 2 1443 2260 L 6 2 1485 2272 L 6 2 1528 2285 L 6 2 1571 2297 L 6 2 1614 2310 L 7 2 1656 2322 L 6 2 1699 2335 L 6 2 1742 2347 L 6 1 1785 2360 L 6 2 1828 2371 L 6 2 1871 2382 L 6 2 1914 2393 L 6 2 1957 2404 L 6 2 2000 2415 L 7 2 2043 2426 L 6 2 2087 2437 L 6 2 2130 2448 L 6 2 2173 2459 L 6 2 2216 2470 L 6 2 2259 2481 L 7 2 2302 2492 L 6 2 2346 2503 L 6 2 2389 2514 L 7 1 2432 2524 L 6 1 2476 2533 L 6 1 2520 2542 L 6 1 2563 2551 L 6 1 2607 2560 L 7 1 2650 2569 L 6 1 2694 2578 L 6 1 2738 2587 L 6 1 2781 2596 L 6 1 2825 2605 L 7 1 2868 2614 L 6 1 2912 2623 L 6 1 2956 2632 L 1 0 2999 2641 L 6 1 C 7 1 3043 2647 L 7 1 3087 2654 L 7 1 3131 2661 L 7 1 3175 2667 L 7 1 3219 2674 L 7 1 3263 2681 L 6 1 3308 2687 L 6 1 3352 2694 L 6 1 3396 2701 L 6 1 3440 2707 L 6 1 3484 2714 L 6 1 3528 2721 L 6 1 3572 2727 L 6 0 3616 2733 L 7 0 3660 2737 L 6 0 3705 2741 L 6 0 3749 2745 L 7 0 3793 2749 L 6 0 3838 2753 L 6 0 3882 2757 L 7 0 3926 2761 L 6 1 3971 2764 L 7 1 4015 2768 L 6 1 4060 2772 L 6 1 4104 2776 L 7 1 4148 2780 L 6 1 4193 2784 L 7 0 4237 2786 L 6 0 4282 2787 L 7 0 4326 2788 L 6 0 4371 2789 L 7 0 4415 2790 L 6 0 4460 2791 L 7 0 4504 2792 L 6 0 4549 2793 L 7 0 4593 2794 L 6 0 4638 2795 L 7 0 4682 2796 L 6 0 4727 2797 L 7 0 4771 2798 L 6 0 4816 2798 L 7 0 4860 2796 L 6 0 4905 2794 L 7 0 4949 2792 L 6 -1 4994 2791 L 7 -1 5038 2789 L 6 -1 5083 2787 L 7 0 5127 2785 L 6 0 5172 2783 L 7 0 5216 2781 L 6 0 5261 2779 L 7 0 5305 2777 L 6 0 5350 2775 L 5 0 5394 2773 L 2 0 C 6 -1 5439 2769 L 6 0 5483 2764 L 7 0 5527 2759 L 6 -1 5572 2755 L 6 -1 5616 2750 L 6 -1 5660 2745 L 7 0 5704 2740 L 6 -1 5749 2736 L 6 -1 5793 2731 L 7 -1 5837 2726 L 6 0 5882 2721 L 6 -1 5926 2717 L 6 -1 5970 2712 L 7 -1 6014 2706 L 6 -1 6058 2699 L 6 -1 6102 2691 L 6 -1 6146 2684 L 6 -1 6190 2677 L 6 -1 6234 2669 L 6 -1 6278 2662 L 6 -1 6322 2654 L 6 -1 6366 2647 L 6 -1 6410 2640 L 7 -1 6453 2632 L 7 -1 6497 2625 L 7 -1 6541 2618 L 7 -1 6585 2610 L 6 -1 6629 2601 L 7 -2 6672 2592 L 6 -1 6716 2582 L 7 -1 6759 2572 L 6 -2 6803 2563 L 7 -1 6846 2553 L 6 -1 6890 2543 L 6 -2 6933 2534 L 6 -1 6977 2524 L 6 -2 7020 2515 L 6 -1 7064 2505 L 6 -1 7107 2495 L 6 -2 7151 2486 L 5 -1 7194 2476 L 1 0 C 6 -2 7237 2465 L 6 -1 7280 2453 L 6 -2 7323 2442 L 6 -1 7366 2430 L 7 -2 7409 2419 L 7 -1 7452 2407 L 4 -1 7495 2396 L 0 G 48 16 0 1100 L 6 2 85 1128 L 48 16 127 1142 L 7 2 211 1170 L 48 16 254 1184 L 6 2 338 1212 L 48 16 381 1226 L 6 2 465 1254 L 49 16 507 1268 L 6 2 592 1296 L 49 16 634 1309 L 6 2 719 1336 L 48 15 762 1350 L 6 2 847 1377 L 49 16 889 1390 L 6 2 974 1417 L 49 15 1016 1431 L 6 2 1101 1458 L 48 16 1144 1471 L 6 1 1229 1498 L 48 14 1272 1510 L 6 2 1357 1535 L 49 14 1400 1548 L 6 2 1485 1572 L 49 14 1528 1585 L 6 2 1614 1610 L 49 15 1656 1622 L 6 2 1742 1647 L 15 4 1785 1660 L 34 9 C 6 2 1871 1682 L 49 13 1914 1693 L 6 2 2000 1715 L 50 13 2043 1726 L 6 2 2130 1748 L 49 13 2173 1759 L 6 2 2259 1781 L 50 13 2302 1792 L 6 2 2389 1814 L 50 10 2432 1824 L 6 1 2520 1842 L 50 10 2563 1851 L 7 1 2650 1869 L 50 10 2694 1878 L 6 1 2781 1896 L 50 10 2825 1905 L 6 1 2912 1923 L 44 9 2956 1932 L 6 1 C 7 1 3043 1948 L 51 8 3087 1954 L 7 1 3175 1968 L 51 8 3219 1974 L 6 0 3308 1988 L 50 8 3352 1994 L 6 1 3440 2007 L 50 8 3484 2014 L 6 1 3572 2027 L 51 5 3616 2033 L 6 1 3705 2041 L 51 4 3749 2045 L 6 0 3838 2053 L 51 4 3882 2057 L 6 0 3971 2065 L 51 4 4015 2069 L 6 1 4104 2076 L 51 5 4148 2080 L 7 0 4237 2086 L 51 1 4282 2087 L 6 0 4371 2089 L 51 1 4415 2090 L 7 0 4504 2092 L 51 1 4549 2093 L 6 0 4638 2095 L 51 2 4682 2096 L 7 1 4771 2098 L 51 -2 4816 2098 L 6 -1 4905 2095 L 51 -3 4949 2093 L 7 0 5038 2089 L 51 -2 5083 2087 L 6 0 5172 2083 L 51 -2 5216 2081 L 7 0 5305 2077 L 49 -3 5350 2076 L 2 0 C 6 -1 5439 2069 L 51 -5 5483 2064 L 6 -1 5572 2055 L 50 -5 5616 2050 L 7 -1 5704 2041 L 50 -6 5749 2036 L 7 0 5837 2026 L 50 -6 5882 2022 L 6 -1 5970 2012 L 50 -8 6014 2006 L 6 -1 6102 1992 L 50 -8 6146 1984 L 6 -1 6234 1969 L 50 -8 6278 1962 L 6 -1 6366 1947 L 50 -9 6410 1940 L 7 -1 6497 1925 L 51 -9 6541 1918 L 6 -1 6629 1901 L 50 -11 6672 1892 L 7 -2 6759 1873 L 50 -11 6803 1863 L 6 -2 6890 1844 L 50 -11 6933 1834 L 6 -2 7020 1815 L 49 -11 7064 1805 L 6 -2 7151 1786 L 5 -1 7194 1776 L 44 -12 C 6 -1 7280 1753 L 49 -13 7323 1742 L 7 -2 7409 1719 L 47 -13 7452 1708 L 0 G 600 269 0 13 L 600 328 C 600 400 C 600 489 C 600 598 C 600 730 C 599 891 C 431 781 C /M2 {MB 0 7 moveto 0 -14 rlineto -7 0 moveto 14 0 rlineto stroke ME} bind def /MFAC 8.652 def 0 13 M2 600 282 M2 1200 610 M2 1800 1010 M2 2400 1499 M2 3000 2097 M2 3600 2827 M2 4199 3718 M2 0 G 298 99 302 0 L 600 190 C 600 176 C 600 152 C 600 124 C 600 91 C 599 53 C 600 14 C 600 -25 C 600 -65 C 600 -101 C 600 -133 C 300 -80 C /M4 {MB 0 0 7 CC ME} bind def 600 99 M4 1200 289 M4 1800 465 M4 2400 617 M4 3000 741 M4 3600 832 M4 4199 885 M4 4799 899 M4 5399 874 M4 5999 809 M4 6599 708 M4 7199 575 M4 0 G /M3 {MB 0 6 moveto 0 -6 lineto -5 3 moveto 5 -3 lineto 5 3 moveto -5 -3 lineto stroke ME} bind def 4199 4399 M3 4349 3999 M3 4499 3599 M3 4649 3199 M3 4799 2799 M3 4949 2399 M3 5099 2000 M3 5249 1600 M3 5399 1200 M3 5549 800 M3 5699 400 M3 5849 0 M3 0 G -15 16 582 3839 L -24 8 C -31 0 C -23 -8 C -16 -16 C 0 -15 C 8 -16 C 8 -8 C 16 -7 C 46 -16 C 16 -8 C 8 -8 C 7 -15 C 0 -24 C -15 -15 C -24 -8 C -31 0 C -23 8 C -16 15 C -16 -8 668 3808 L -15 -15 C -8 -24 C 0 -15 C 8 -24 C 15 -15 C 16 -8 C 23 0 C 16 8 C 16 15 C 7 24 C 0 15 C -7 24 C -16 15 C -16 8 C -23 0 C 0 -164 785 3863 L 8 -8 839 3863 L 8 8 C -8 7 C -8 -7 C 0 -109 847 3808 L 0 -164 995 3863 L -15 15 995 3785 L -16 8 C -23 0 C -16 -8 C -16 -15 C -7 -24 C 0 -15 C 7 -24 C 16 -15 C 16 -8 C 23 0 C 16 8 C 15 15 C 0 -164 481 3163 L 55 0 481 3163 L 23 -8 C 16 -16 C 7 -15 C 8 -23 C 0 -39 C -8 -24 C -7 -15 C -16 -16 C -23 -8 C -55 0 C 0 -109 730 3108 L -15 16 730 3085 L -16 7 C -23 0 C -16 -7 C -15 -16 C -8 -23 C 0 -16 C 8 -23 C 15 -16 C 16 -8 C 23 0 C 16 8 C 15 16 C -8 16 871 3085 L -24 7 C -23 0 C -23 -7 C -8 -16 C 8 -16 C 15 -7 C 39 -8 C 16 -8 C 8 -16 C 0 -7 C -8 -16 C -24 -8 C -23 0 C -23 8 C -8 16 C 0 -164 925 3163 L 23 24 925 3077 L 16 7 C 23 0 C 16 -7 C 8 -24 C 0 -78 C 94 0 1065 3062 L 0 15 C -8 16 C -8 8 C -16 7 C -23 0 C -15 -7 C -16 -16 C -8 -23 C 0 -16 C 8 -23 C 16 -16 C 15 -8 C 23 0 C 16 8 C 16 16 C 0 -164 1299 3163 L -16 16 1299 3085 L -15 7 C -24 0 C -15 -7 C -16 -16 C -8 -23 C 0 -16 C 8 -23 C 16 -16 C 15 -8 C 24 0 C 15 8 C 16 16 C 0 -164 481 2463 L 55 0 481 2463 L 23 -8 C 16 -15 C 7 -16 C 8 -23 C 0 -39 C -8 -24 C -7 -15 C -16 -16 C -23 -8 C -55 0 C -16 -8 676 2409 L -15 -16 C -8 -23 C 0 -16 C 8 -23 C 15 -16 C 16 -8 C 23 0 C 16 8 C 15 16 C 8 23 C 0 16 C -8 23 C -15 16 C -16 8 C -23 0 C 0 -132 800 2463 L 8 -24 C 16 -8 C 15 0 C 55 0 777 2409 L 0 -132 894 2463 L 8 -24 C 15 -8 C 16 0 C 54 0 871 2409 L 93 0 972 2362 L 0 15 C -8 16 C -7 8 C -16 8 C -23 0 C -16 -8 C -15 -16 C -8 -23 C 0 -16 C 8 -23 C 15 -16 C 16 -8 C 23 0 C 16 8 C 15 16 C 0 -164 1205 2463 L -15 16 1205 2385 L -16 8 C -23 0 C -16 -8 C -15 -16 C -8 -23 C 0 -16 C 8 -23 C 15 -16 C 16 -8 C 23 0 C 16 8 C 15 16 C 0 -163 481 1763 L 55 0 481 1763 L 23 -8 C 16 -15 C 7 -16 C 8 -23 C 0 -39 C -8 -23 C -7 -16 C -16 -16 C -23 -7 C -55 0 C -16 -8 676 1709 L -15 -16 C -8 -23 C 0 -16 C 8 -23 C 15 -16 C 16 -7 C 23 0 C 16 7 C 15 16 C 8 23 C 0 16 C -8 23 C -15 16 C -16 8 C -23 0 C 0 -132 800 1763 L 8 -24 C 16 -7 C 15 0 C 55 0 777 1709 L 140 0 886 1670 L 0 -163 1089 1763 L 54 0 1089 1763 L 23 -8 C 16 -15 C 8 -16 C 8 -23 C 0 -39 C -8 -23 C -8 -16 C -16 -16 C -23 -7 C -54 0 C 0 -109 1338 1709 L -16 16 1338 1685 L -15 8 C -24 0 C -15 -8 C -16 -16 C -8 -23 C 0 -16 C 8 -23 C 16 -16 C 15 -7 C 24 0 C 15 7 C 16 16 C -8 16 1478 1685 L -23 8 C -24 0 C -23 -8 C -8 -16 C 8 -15 C 16 -8 C 39 -8 C 15 -8 C 8 -15 C 0 -8 C -8 -16 C -23 -7 C -24 0 C -23 7 C -8 16 C 0 -163 1532 1763 L 24 23 1532 1678 L 15 8 C 24 0 C 15 -8 C 8 -23 C 0 -78 C 0 -163 2581 1463 L 8 -8 2635 1463 L 8 8 C -8 8 C -8 -8 C 0 -109 2643 1409 L 0 -109 2705 1409 L 24 23 2705 1378 L 15 8 C 24 0 C 15 -8 C 8 -23 C 0 -78 C 93 0 2846 1362 L 0 16 C -8 15 C -8 8 C -15 8 C -23 0 C -16 -8 C -16 -16 C -7 -23 C 0 -16 C 7 -23 C 16 -15 C 16 -8 C 23 0 C 15 8 C 16 15 C -7 16 3071 1385 L -24 8 C -23 0 C -23 -8 C -8 -16 C 8 -15 C 15 -8 C 39 -8 C 16 -8 C 7 -15 C 0 -8 C -7 -15 C -24 -8 C -23 0 C -23 8 C -8 15 C 0 -164 3126 1409 L 15 16 3126 1385 L 16 8 C 23 0 C 16 -8 C 16 -16 C 7 -23 C 0 -16 C -7 -23 C -16 -15 C -16 -8 C -23 0 C -16 8 C -15 15 C -16 -8 3305 1409 L -15 -16 C -8 -23 C 0 -16 C 8 -23 C 15 -15 C 16 -8 C 23 0 C 16 8 C 16 15 C 7 23 C 0 16 C -7 23 C -16 16 C -16 8 C -23 0 C 8 -8 3414 1463 L 8 8 C -8 8 C -8 -8 C 0 -109 3422 1409 L 0 -109 3484 1409 L 23 23 3484 1378 L 16 8 C 23 0 C 16 -8 C 8 -23 C 0 -78 C 0 -132 3640 1463 L 8 -23 C 15 -8 C 16 0 C 55 0 3616 1409 L -7 16 3803 1385 L -24 8 C -23 0 C -24 -8 C -7 -16 C 7 -15 C 16 -8 C 39 -8 C 16 -8 C 7 -15 C 0 -8 C -7 -15 C -24 -8 C -23 0 C -24 8 C -7 15 C 0 8 3858 1424 L 8 16 C 7 7 C 16 8 C 31 0 C 16 -8 C 8 -7 C 7 -16 C 0 -15 C -7 -16 C -16 -23 C -78 -78 C 109 0 C 0 -164 2581 464 L 8 -8 2635 464 L 8 8 C -8 7 C -8 -7 C 0 -109 2643 409 L 0 -109 2705 409 L 24 23 2705 378 L 15 8 C 24 0 C 15 -8 C 8 -23 C 0 -78 C 93 0 2846 362 L 0 16 C -8 15 C -8 8 C -15 8 C -23 0 C -16 -8 C -16 -15 C -7 -24 C 0 -15 C 7 -24 C 16 -15 C 16 -8 C 23 0 C 15 8 C 16 15 C -7 15 3071 386 L -24 8 C -23 0 C -23 -8 C -8 -15 C 8 -16 C 15 -8 C 39 -7 C 16 -8 C 7 -16 C 0 -8 C -7 -15 C -24 -8 C -23 0 C -23 8 C -8 15 C 0 -163 3126 409 L 15 15 3126 386 L 16 8 C 23 0 C 16 -8 C 16 -15 C 7 -24 C 0 -15 C -7 -24 C -16 -15 C -16 -8 C -23 0 C -16 8 C -15 15 C -16 -8 3305 409 L -15 -15 C -8 -24 C 0 -15 C 8 -24 C 15 -15 C 16 -8 C 23 0 C 16 8 C 16 15 C 7 24 C 0 15 C -7 24 C -16 15 C -16 8 C -23 0 C 8 -8 3414 464 L 8 8 C -8 7 C -8 -7 C 0 -109 3422 409 L 0 -109 3484 409 L 23 23 3484 378 L 16 8 C 23 0 C 16 -8 C 8 -23 C 0 -78 C 0 -133 3640 464 L 8 -23 C 15 -8 C 16 0 C 55 0 3616 409 L -7 15 3803 386 L -24 8 C -23 0 C -24 -8 C -7 -15 C 7 -16 C 16 -8 C 39 -7 C 16 -8 C 7 -16 C 0 -8 C -7 -15 C -24 -8 C -23 0 C -24 8 C -7 15 C -78 -109 3928 464 L 117 0 C 0 -164 3928 464 L 0 -164 5580 1409 L 16 16 5580 1385 L 16 8 C 23 0 C 15 -8 C 16 -16 C 8 -23 C 0 -16 C -8 -23 C -16 -15 C -15 -8 C -23 0 C -16 8 C -16 15 C -15 -8 5759 1409 L -16 -16 C -7 -23 C 0 -16 C 7 -23 C 16 -15 C 15 -8 C 24 0 C 15 8 C 16 15 C 8 23 C 0 16 C -8 23 C -16 16 C -15 8 C -24 0 C 8 -8 5868 1463 L 8 8 C -8 8 C -8 -8 C 0 -109 5876 1409 L 0 -109 5939 1409 L 23 23 5939 1378 L 15 8 C 24 0 C 15 -8 C 8 -23 C 0 -78 C 0 -132 6094 1463 L 8 -23 C 16 -8 C 15 0 C 54 0 6071 1409 L -8 16 6258 1385 L -23 8 C -24 0 C -23 -8 C -8 -16 C 8 -15 C 16 -8 C 38 -8 C 16 -8 C 8 -15 C 0 -8 C -8 -15 C -23 -8 C -24 0 C -23 8 C -8 15 C 86 0 6320 1463 L -47 -62 C 23 0 C 16 -8 C 8 -8 C 8 -23 C 0 -16 C -8 -23 C -16 -15 C -23 -8 C -24 0 C -23 8 C -8 7 C -7 16 C 1024 G PGPLOT restore showpage %%PageTrailer %%PageBoundingBox: 24 13 353 559 %%Trailer %%BoundingBox: 24 13 353 559 %%DocumentFonts: %%Pages: 1 %%EOF ifeffit-1.2.11d/doc/RefMan/figs/win_hanning.ps0000644000175000017500000003637210771740460020101 0ustar segresegre%!PS-Adobe-3.0 EPSF-3.0 %%For: newville %%Title: PGPLOT PostScript plot %%Creator: PGPLOT [PSDRIV 6.6] %%CreationDate: 5-May-2003 18:27 %%BoundingBox: (atend) %%DocumentFonts: (atend) %%LanguageLevel: 1 %%Orientation: Landscape %%Pages: (atend) %%EndComments %%BeginProlog /L {moveto rlineto currentpoint stroke moveto} bind def /C {rlineto currentpoint stroke moveto} bind def /D {moveto 0 0 rlineto currentpoint stroke moveto} bind def /LW {5 mul setlinewidth} bind def /BP {newpath moveto} bind def /LP /rlineto load def /EP {rlineto closepath eofill} bind def /MB {gsave translate MFAC dup scale 1 setlinewidth 2 setlinecap 0 setlinejoin newpath} bind def /ME /grestore load def /CC {0 360 arc stroke} bind def /FC {0 360 arc fill} bind def /G {1024 div setgray} bind def /K {3 -1 roll 1024 div 3 -1 roll 1024 div 3 -1 roll 1024 div setrgbcolor} bind def % Uncomment next line to convert color to grey shades %/K {3 -1 roll 3413 div 3 -1 roll 1739 div 3 -1 roll 9309 div add add setgray} bind def %%EndProlog %%BeginSetup /#copies 1 def %%EndSetup %%Page: 1 1 %%BeginPageSetup /PGPLOT save def 0.072 0.072 scale 5199 1200 translate 90 rotate 1 setlinejoin 1 setlinecap 1 LW 1 %%EndPageSetup %%PageBoundingBox: (atend) 0 0 0 K 1024 1024 1024 K 1 LW 0 0 BP 5999 0 LP 0 3999 LP -5999 0 EP 0 0 0 K 1024 1024 1024 K 2 LW 816 760 896 K 0 2799 600 600 L 0 2799 1800 600 L 0 2799 3000 600 L 0 2799 4199 600 L 0 2799 5399 600 L 4799 0 600 600 L 4799 0 600 1872 L 4799 0 600 3145 L 0 0 0 K 4799 0 600 600 L 0 2799 C -4799 0 C 0 -2799 C 0 69 C 0 34 840 600 L 0 34 1080 600 L 0 34 1320 600 L 0 34 1560 600 L 0 69 1800 600 L 0 34 2040 600 L 0 34 2280 600 L 0 34 2520 600 L 0 34 2760 600 L 0 69 3000 600 L 0 34 3239 600 L 0 34 3479 600 L 0 34 3719 600 L 0 34 3959 600 L 0 69 4199 600 L 0 34 4439 600 L 0 34 4679 600 L 0 34 4919 600 L 0 34 5159 600 L 0 69 5399 600 L 0 69 600 3330 L 0 34 840 3365 L 0 34 1080 3365 L 0 34 1320 3365 L 0 34 1560 3365 L 0 69 1800 3330 L 0 34 2040 3365 L 0 34 2280 3365 L 0 34 2520 3365 L 0 34 2760 3365 L 0 69 3000 3330 L 0 34 3239 3365 L 0 34 3479 3365 L 0 34 3719 3365 L 0 34 3959 3365 L 0 69 4199 3330 L 0 34 4439 3365 L 0 34 4679 3365 L 0 34 4919 3365 L 0 34 5159 3365 L 0 69 5399 3330 L -14 -5 595 517 L -9 -14 C -4 -23 C 0 -14 C 4 -23 C 9 -13 C 14 -5 C 9 0 C 14 5 C 10 13 C 4 23 C 0 14 C -4 23 C -10 14 C -14 5 C -9 0 C -46 0 1823 517 L -5 -42 C 5 5 C 13 4 C 14 0 C 14 -4 C 9 -9 C 5 -14 C 0 -9 C -5 -14 C -9 -9 C -14 -5 C -14 0 C -13 5 C -5 4 C -5 9 C 9 5 2935 498 L 14 14 C 0 -97 C -14 -5 3041 517 L -9 -14 C -5 -23 C 0 -14 C 5 -23 C 9 -13 C 14 -5 C 9 0 C 14 5 C 9 13 C 5 23 C 0 14 C -5 23 C -9 14 C -14 5 C -9 0 C 9 5 4135 498 L 14 14 C 0 -97 C -47 0 4269 517 L -4 -42 C 4 5 C 14 4 C 14 0 C 14 -4 C 9 -9 C 5 -14 C 0 -9 C -5 -14 C -9 -9 C -14 -5 C -14 0 C -14 5 C -4 4 C -5 9 C 0 4 5325 494 L 5 10 C 5 4 C 9 5 C 18 0 C 9 -5 C 5 -4 C 5 -10 C 0 -9 C -5 -9 C -9 -14 C -46 -46 C 64 0 C -14 -5 5441 517 L -9 -14 C -5 -23 C 0 -14 C 5 -23 C 9 -13 C 14 -5 C 9 0 C 14 5 C 9 13 C 5 23 C 0 14 C -5 23 C -9 14 C -14 5 C -9 0 C 69 0 600 600 L 34 0 600 854 L 34 0 600 1109 L 34 0 600 1363 L 34 0 600 1618 L 69 0 600 1872 L 34 0 600 2127 L 34 0 600 2381 L 34 0 600 2636 L 34 0 600 2890 L 69 0 600 3145 L 34 0 600 3399 L 69 0 5330 600 L 34 0 5365 854 L 34 0 5365 1109 L 34 0 5365 1363 L 34 0 5365 1618 L 69 0 5330 1872 L 34 0 5365 2127 L 34 0 5365 2381 L 34 0 5365 2636 L 34 0 5365 2890 L 69 0 5330 3145 L 34 0 5365 3399 L 5 -14 398 595 L 13 -9 C 24 -4 C 13 0 C 23 4 C 14 9 C 5 14 C 0 9 C -5 14 C -14 10 C -23 4 C -13 0 C -24 -4 C -13 -10 C -5 -14 C 0 -9 C 5 -13 398 1798 L 13 -10 C 24 -4 C 13 0 C 23 4 C 14 10 C 5 13 C 0 10 C -5 14 C -14 9 C -23 4 C -13 0 C -24 -4 C -13 -9 C -5 -14 C 0 -10 C 4 -4 486 1872 L 5 4 C -5 5 C -4 -5 C 0 -47 398 1965 L 42 -4 C -5 4 C -5 14 C 0 14 C 5 14 C 9 9 C 14 5 C 9 0 C 14 -5 C 9 -9 C 5 -14 C 0 -14 C -5 -14 C -4 -4 C -10 -5 C -4 9 416 3126 L -14 14 C 97 0 C 0 -97 2767 247 L -47 -47 2814 215 L 32 -37 2786 187 L -9 -9 2952 265 L -9 -14 C -10 -18 C -4 -23 C 0 -19 C 4 -23 C 10 -18 C 9 -14 C 9 -9 C -27 -83 3007 233 L 27 -83 3017 233 L 28 -83 3012 233 L 41 0 2989 178 L 28 0 2970 150 L 27 0 3026 150 L -9 -4 3007 265 L -4 -10 C 0 -9 C 4 -9 C 9 -5 C 10 0 C 9 5 C 4 9 C 0 9 C -4 10 C -9 4 C -10 0 C 62 0 3072 255 L 7 3 3169 283 L 10 10 C 0 -72 C 9 -9 3231 265 L 10 -14 C 9 -18 C 4 -23 C 0 -19 C -4 -23 C -9 -18 C -10 -14 C -9 -9 C 19 -65 1149 3539 L -18 -65 1186 3539 L 19 -65 1186 3539 L -18 -65 1223 3539 L 4 -5 1251 3571 L 5 5 C -5 5 C -4 -5 C 0 -65 1255 3539 L 0 -65 1292 3539 L 14 14 1292 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 0 -97 1431 3571 L -10 9 1431 3525 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 10 9 C -9 -5 1486 3539 L -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 5 14 C 0 9 C -5 14 C -9 9 C -9 5 C -14 0 C 18 -65 1551 3539 L -19 -65 1588 3539 L 18 -65 1588 3539 L -18 -65 1624 3539 L -9 -9 1689 3589 L -9 -14 C -10 -18 C -4 -23 C 0 -19 C 4 -23 C 10 -18 C 9 -14 C 9 -9 C 0 -97 1721 3571 L -47 -46 1768 3539 L 32 -37 1740 3511 L 0 -65 1800 3539 L 14 14 1800 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 13 14 1851 3520 L 10 5 C 13 0 C 10 -5 C 4 -14 C 0 -46 C 4 -5 1934 3571 L 5 5 C -5 5 C -4 -5 C 0 -65 1938 3539 L 0 -65 1975 3539 L 14 14 1975 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 83 0 2063 3530 L 83 0 2063 3502 L 0 5 2183 3548 L 4 9 C 5 4 C 9 5 C 19 0 C 9 -5 C 5 -4 C 4 -9 C 0 -10 C -4 -9 C -10 -14 C -46 -46 C 65 0 C -4 -5 2284 3479 L -5 5 C 5 4 C 4 -4 C 0 -9 C -4 -10 C -5 -4 C 0 -97 2321 3571 L -46 -46 2367 3539 L 32 -37 2340 3511 L 0 -65 2400 3539 L 13 14 2400 3520 L 10 5 C 14 0 C 9 -5 C 4 -14 C 0 -46 C 14 14 2450 3520 L 9 5 C 14 0 C 10 -5 C 4 -14 C 0 -46 C 0 -65 2589 3539 L -9 9 2589 3525 L -10 5 C -13 0 C -10 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 10 -5 C 13 0 C 10 5 C 9 9 C 51 -65 2621 3539 L -51 -65 2672 3539 L 83 0 2704 3530 L 83 0 2704 3502 L 10 4 2833 3553 L 13 14 C 0 -97 C -46 -97 2976 3571 L 64 0 2912 3571 L -5 -5 3018 3479 L -4 5 C 4 4 C 5 -4 C 0 -9 C -5 -10 C -4 -4 C 0 -97 3106 3571 L -10 9 3106 3525 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 10 9 C 0 -97 3143 3571 L -46 -46 3189 3539 L 32 -37 3161 3511 L 83 0 3221 3530 L 83 0 3221 3502 L 0 5 3341 3548 L 5 9 C 4 4 C 9 5 C 19 0 C 9 -5 C 5 -4 C 4 -9 C 0 -10 C -4 -9 C -10 -14 C -46 -46 C 65 0 C -4 -5 3442 3479 L -5 5 C 5 4 C 4 -4 C 0 -9 C -4 -10 C -5 -4 C 0 -97 3479 3571 L -47 -46 3526 3539 L 32 -37 3498 3511 L 19 -65 3553 3539 L -18 -65 3590 3539 L 19 -65 3590 3539 L -18 -65 3627 3539 L 4 -5 3655 3571 L 5 5 C -5 5 C -4 -5 C 0 -65 3659 3539 L 0 -65 3696 3539 L 14 14 3696 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 0 -97 3835 3571 L -10 9 3835 3525 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 10 9 C -9 -5 3890 3539 L -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 5 14 C 0 9 C -5 14 C -9 9 C -9 5 C -14 0 C 18 -65 3955 3539 L -19 -65 3992 3539 L 18 -65 3992 3539 L -18 -65 4028 3539 L 83 0 4061 3530 L 83 0 4061 3502 L 0 -32 4181 3571 L 0 -97 4218 3571 L 14 14 4218 3520 L 9 5 C 14 0 C 9 -5 C 4 -14 C 0 -46 C 0 -65 4356 3539 L -9 9 4356 3525 L -9 5 C -14 0 C -9 -5 C -10 -9 C -4 -14 C 0 -9 C 4 -14 C 10 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 0 -65 4393 3539 L 14 14 4393 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 0 -65 4481 3539 L 14 14 4481 3520 L 9 5 C 14 0 C 9 -5 C 4 -14 C 0 -46 C 4 -5 4564 3571 L 5 5 C -5 5 C -4 -5 C 0 -65 4568 3539 L 0 -65 4605 3539 L 14 14 4605 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 0 -74 4744 3539 L -5 -14 C -5 -5 C -9 -4 C -14 0 C -9 4 C -10 9 4744 3525 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 10 9 C 0 -32 4781 3571 L 9 -9 4813 3589 L 9 -14 C 10 -18 C 4 -23 C 0 -19 C -4 -23 C -10 -18 C -9 -14 C -9 -9 C 0 0 0 K 12 0 600 600 L 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 4 C 12 12 C 12 19 C 12 27 C 12 35 C 12 42 C 12 48 C 12 56 C 12 62 C 12 68 C 12 73 C 12 78 C 12 83 C 12 88 C 12 90 C 12 94 C 12 96 C 12 98 C 12 99 C 12 100 C 12 100 C 12 99 C 12 98 C 12 96 C 12 94 C 12 91 C 12 87 C 12 83 C 12 79 C 12 73 C 12 68 C 12 62 C 12 55 C 12 49 C 12 42 C 12 34 C 12 28 C 12 19 C 12 12 C 12 4 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 11 0 C 12 0 3011 3145 L 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 -4 C 12 -12 C 12 -19 C 12 -28 C 12 -34 C 12 -42 C 12 -49 C 12 -55 C 12 -62 C 12 -68 C 12 -73 C 12 -79 C 12 -83 C 12 -87 C 12 -91 C 12 -94 C 12 -96 C 12 -98 C 12 -99 C 12 -100 C 12 -100 C 12 -99 C 12 -98 C 12 -96 C 12 -94 C 12 -90 C 12 -88 C 12 -83 C 12 -78 C 12 -73 C 12 -68 C 12 -62 C 12 -56 C 12 -48 C 12 -42 C 12 -35 C 12 -27 C 12 -19 C 12 -12 C 12 -4 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 0 0 0 K 0 56 840 600 L 0 57 840 713 L 0 28 840 826 L 0 29 C 0 57 840 939 L 0 57 840 1052 L 0 57 840 1165 L 0 56 840 1279 L 0 56 840 1392 L 0 56 840 1505 L 0 56 840 1618 L 0 56 840 1731 L 0 28 840 1844 L 0 29 C 0 57 840 1957 L 0 57 840 2070 L 0 57 840 2183 L 0 57 840 2296 L 0 56 840 2410 L 0 56 840 2523 L 0 56 840 2636 L 0 56 840 2749 L 0 28 840 2862 L 0 29 C 0 57 840 2975 L 0 57 840 3088 L 0 0 0 K 0 56 1080 600 L 0 14 1080 713 L 0 43 C 0 28 1080 826 L 0 29 C 0 43 1080 939 L 0 14 C 0 57 1080 1052 L 0 57 1080 1165 L 0 56 1080 1279 L 0 56 1080 1392 L 0 56 1080 1505 L 0 56 1080 1618 L 0 14 1080 1731 L 0 42 C 0 28 1080 1844 L 0 0 0 K 0 56 1320 600 L 0 57 1320 713 L 0 28 1320 826 L 0 29 C 0 57 1320 939 L 0 57 1320 1052 L 0 57 1320 1165 L 0 56 1320 1279 L 0 56 1320 1392 L 0 56 1320 1505 L 0 56 1320 1618 L 0 56 1320 1731 L 0 28 1320 1844 L 0 29 C 0 57 1320 1957 L 0 57 1320 2070 L 0 57 1320 2183 L 0 57 1320 2296 L 0 56 1320 2410 L 0 56 1320 2523 L 0 56 1320 2636 L 0 56 1320 2749 L 0 28 1320 2862 L 0 29 C 0 57 1320 2975 L 0 57 1320 3088 L 0 0 0 K 0 56 4439 600 L 0 57 4439 713 L 0 28 4439 826 L 0 29 C 0 57 4439 939 L 0 57 4439 1052 L 0 57 4439 1165 L 0 56 4439 1279 L 0 56 4439 1392 L 0 56 4439 1505 L 0 56 4439 1618 L 0 56 4439 1731 L 0 28 4439 1844 L 0 29 C 0 57 4439 1957 L 0 57 4439 2070 L 0 57 4439 2183 L 0 57 4439 2296 L 0 56 4439 2410 L 0 56 4439 2523 L 0 56 4439 2636 L 0 56 4439 2749 L 0 28 4439 2862 L 0 29 C 0 57 4439 2975 L 0 57 4439 3088 L 0 0 0 K 0 56 4679 600 L 0 14 4679 713 L 0 43 C 0 28 4679 826 L 0 29 C 0 43 4679 939 L 0 14 C 0 57 4679 1052 L 0 57 4679 1165 L 0 56 4679 1279 L 0 56 4679 1392 L 0 56 4679 1505 L 0 56 4679 1618 L 0 14 4679 1731 L 0 42 C 0 28 4679 1844 L 0 0 0 K 0 56 4919 600 L 0 57 4919 713 L 0 28 4919 826 L 0 29 C 0 57 4919 939 L 0 57 4919 1052 L 0 57 4919 1165 L 0 56 4919 1279 L 0 56 4919 1392 L 0 56 4919 1505 L 0 56 4919 1618 L 0 56 4919 1731 L 0 28 4919 1844 L 0 29 C 0 57 4919 1957 L 0 57 4919 2070 L 0 57 4919 2183 L 0 57 4919 2296 L 0 56 4919 2410 L 0 56 4919 2523 L 0 56 4919 2636 L 0 56 4919 2749 L 0 28 4919 2862 L 0 29 C 0 57 4919 2975 L 0 57 4919 3088 L 0 0 0 K 0 -97 1146 2020 L -46 -46 1192 1988 L 32 -37 1165 1960 L 0 -65 1225 1988 L 14 14 1225 1969 L 9 5 C 14 0 C 9 -5 C 4 -14 C 0 -46 C 14 14 1275 1969 L 9 5 C 14 0 C 10 -5 C 4 -14 C 0 -46 C 5 -5 1358 2020 L 5 5 C -5 5 C -5 -5 C 0 -65 1363 1988 L 0 -65 1400 1988 L 14 14 1400 1969 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 83 0 1488 1979 L 83 0 1488 1951 L 0 5 1608 1997 L 4 9 C 5 4 C 9 5 C 19 0 C 9 -5 C 4 -4 C 5 -9 C 0 -10 C -5 -9 C -9 -14 C -46 -46 C 65 0 C -5 -4 1705 1932 L 5 -5 C 4 5 C -4 4 C -14 -5 1769 2020 L -9 -13 C -5 -23 C 0 -14 C 5 -23 C 9 -14 C 14 -5 C 9 0 C 14 5 C 9 14 C 5 23 C 0 14 C -5 23 C -9 13 C -14 5 C -9 0 C 0 -97 4578 2020 L -46 -46 4624 1988 L 32 -37 4596 1960 L 0 -65 4656 1988 L 14 14 4656 1969 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 14 14 4707 1969 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 0 -65 4845 1988 L -9 9 4845 1974 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 50 -65 4878 1988 L -50 -65 4928 1988 L 83 0 4961 1979 L 83 0 4961 1951 L 9 4 5090 2002 L 14 14 C 0 -97 C -46 -97 5233 2020 L 65 0 5168 2020 L -5 -4 5270 1932 L 5 -5 C 4 5 C -4 4 C -13 -5 5334 2020 L -10 -13 C -4 -23 C 0 -14 C 4 -23 C 10 -14 C 13 -5 C 10 0 C 14 5 C 9 14 C 4 23 C 0 14 C -4 23 C -9 13 C -14 5 C -10 0 C 0 -96 909 3292 L -9 10 909 3246 L -9 4 C -14 0 C -9 -4 C -10 -10 C -4 -14 C 0 -9 C 4 -14 C 10 -9 C 9 -4 C 14 0 C 9 4 C 9 9 C 0 -96 946 3292 L -46 -46 992 3260 L 33 -36 964 3232 L 9 5 1034 3274 L 14 13 C 0 -96 C 83 0 1117 3251 L 83 0 1117 3223 L 0 5 1237 3269 L 4 9 C 5 5 C 9 4 C 19 0 C 9 -4 C 4 -5 C 5 -9 C 0 -9 C -5 -9 C -9 -14 C -46 -46 C 65 0 C -5 -5 1334 3205 L 5 -4 C 4 4 C -4 5 C -14 -4 1398 3292 L -9 -14 C -5 -23 C 0 -14 C 5 -23 C 9 -14 C 14 -4 C 9 0 C 14 4 C 9 14 C 5 23 C 0 14 C -5 23 C -9 14 C -14 4 C -9 0 C 0 -96 4509 3292 L -10 10 4509 3246 L -9 4 C -14 0 C -9 -4 C -9 -10 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -4 C 14 0 C 9 4 C 10 9 C 0 -96 4545 3292 L -47 -46 4592 3260 L 32 -36 4564 3232 L 0 5 4624 3269 L 4 9 C 5 5 C 9 4 C 19 0 C 9 -4 C 5 -5 C 4 -9 C 0 -9 C -4 -9 C -10 -14 C -46 -46 C 65 0 C 83 0 4716 3251 L 83 0 4716 3223 L 0 5 4836 3269 L 5 9 C 4 5 C 10 4 C 18 0 C 9 -4 C 5 -5 C 4 -9 C 0 -9 C -4 -9 C -9 -14 C -46 -46 C 64 0 C -5 -5 4933 3205 L 5 -4 C 5 4 C -5 5 C -14 -4 4998 3292 L -9 -14 C -5 -23 C 0 -14 C 5 -23 C 9 -14 C 14 -4 C 9 0 C 14 4 C 9 14 C 5 23 C 0 14 C -5 23 C -9 14 C -14 4 C -9 0 C 840 3094 BP 145 -39 LP 0 39 LP 0 39 EP 56 0 985 3094 L 1320 3094 BP -145 39 LP 0 -39 LP 0 -39 EP -57 0 1157 3094 L 4439 3094 BP 145 -39 LP 0 39 LP 0 39 EP 57 0 4620 3094 L 4919 3094 BP -145 39 LP 0 -39 LP 0 -39 EP -41 0 4720 3094 L 0 0 0 K PGPLOT restore showpage %%PageTrailer %%PageBoundingBox: 86 86 375 519 %%Trailer %%BoundingBox: 86 86 375 519 %%DocumentFonts: %%Pages: 1 %%EOF ifeffit-1.2.11d/doc/RefMan/figs/pstopng0000755000175000017500000000056310771740460016647 0ustar segresegre#!/usr/bin/python import os,sys,string for i in sys.argv[1:]: j = string.find(i,'.') o = i[:j] + '.png' print "converting %s to %s " % (i, o) text="""pstoimg -type png -crop abls -white -quiet -out _tmp_x.png %s pngtopnm _tmp_x.png > _tmp_x.pnm pnmrotate -90 _tmp_x.pnm > _tmp_y.pnm pnmtopng _tmp_y.pnm > %s rm -f _tmp_* """ % (i, o) os.system(text) ifeffit-1.2.11d/doc/RefMan/figs/plot_styles.png0000644000175000017500000000654510771740460020324 0ustar segresegre‰PNG  IHDR!H¼Ê¼ËPLTEÿÿÿ¥ÙŸÝ IDATxœÍœ½oÇÀO +ŒDEŠ ˆã5€*R$‹°­E*—ù‚À…4)”ÀéPÇ‘à‚… .ȯL—À•(¾å……à"‰Zœ#ˆEdÞ T¸GïíNfvwfçã½ÙÙãÁм[μýíÛ™73oÞì^o³·Š´ÅBEKn­””ÿ%+¡KS>Y eÌX—†RNVBùcùå)Ÿ¬„ÂÛ({^(蹡LWB¡Ï%yŽ(äù¡ð.Ý»zIÊD ôlÖëE— ð“s‰[[’2ë1­3.®,E¹]VGÓ¥‹^wJÑ#å·Þ묔;õ·Ñ¥oGÝ({ò²f—žÄ](´50ìu Ì#uH­"½Áý”E¿9¶) ͽ”B»^‘Ø¥³8Œ2Ö‰Ä)nªÆG™ÇÚ?ç±+ TõQúú?sW¶ˆÚ)3ó HdÒJ)ÌÁD«K-]m£ŒÍA]ØŒø)FÕòô,¶ã§ô­ÿ‘¹¾ºF™ÙØ,½ï£8ã4F)[¡8ªàsý1Nq§ ŠQ„EÔ”}–hõçªâ™ëgŠòIf¯¥°HR¶ùtÓPU|”cI!šH N)"IYäô=Ÿ*> ;®)ÉÙ€¾âSÅ㾋)«¢Ü›þáHÞ¨Š—"ëåbúPQ@÷â!”búðaM™ƒrg);—¢Ôw´  œÇñn(Û'²v÷A±Âö@ÊÙ€–óBÃr'!º¨tŒÈý»%ZnfV­„ƒ)p3³²%¡¤™;Ràffe7*<7eP°f®VÁ˜ûnSž¢b](¸\~Gh3·…_ ʽUPðºõ®‚- ^·Þõ«EÙ]·[&êdþâ·úkã \ÜPP»é7µëÅf×_®¦(¾ºeã›Ú?»®Y)Š¯n׬ÙÈéùŠ‚×íQß&eöÝK ^·‹Ø IåÖÀ*)0Èù~êœh›®Ÿ²Í)'yIÑÂŽé¶PR~G%%#zq€éj”A– ²£Ô¹rm„re¿xýFßiÚn•à˜IWJl“¥(–w°Lƒ(Ö„°L(öü°À(¶w·Ź€Q×¥8–hº&…Ø¥t ŠS b Йâ\9#Ý)®‰-CqyÈKIœBtµƒSkמè+ö_~°þÝoìÿ¤…ø¼)('¢âÁzä 6»sÄ-üoý½ø•^xáNmŠ-j×aB›,aS…]T”!@¹[~Žc-«²Ì— ø˜÷¬ÿT_b#WR Ri†‰‘'#è D1ÙUm™yjíþ!@í+B2WGzKÕ QÒÊ µÉuRά¢Àcý”} é'Ó£FÏŠŒ{¥N¿µ( (5"`v“†™v`'NKr뻢Àƒ4ü¼¢‘¾Ô)’(¾ÙN‘qOA箳)í¬¡P¨|Mi‘¤`Æ4¥å’^sN§´š’@…4Ô** ¸V]—QÊíO|­êG Y˜"0Ô—Ú+ªGt«ªn ™XI­Õn JzPSÎÅG¨d®ÕøyÓúÜ2ê‰QíÎi”‹ZÏà4U»s×c–¦wöžÅrØHÂ)òIJ¾Êâz¤ú6•†BÂ)ÚZmÞKÏsšÒZ‰`sÑ)7O¹.çùqJëÉ#Ø\Êi¾HiÝ6˜¹€:6kµ’Â6¾¨TAÍ¥r0 2P™ËWCœÂ×jïwöxíV‰Â"Û voTOê$% (è’"}EÛ)ªeŽˆ·veRÎÐÃKPGóÐõ$“Òøeþ'JýªŽ¸q¥é; çå pŠç.O!ê¨x³¨ëè„÷(×^ÏxîÜ~Ò©JZ7Îi¡zIÙYbS2Ñ[)DÑŸáÉhcœÓÈk¹Z'AÖj)Ó)Óý9ÔV¤oÍ7v¥o­^ì>Í>>~ªUcC1ª0á”_¦¯m|Á¿ŽìâÛ§ÙŸÒûÛ@1ìŒpÊëÓ»E6J_KG6%£[ñºj2x¶§ƒé§E–llsyb–ætkħc€bì|æ%eïµ%åØêÇEžÜ¥3ˆ2ÔåÎJ eG%¥°#ˆ%…—b N«;JN+Š5«TwD7\Š¹ø¤%%Ý:JÒítdÍ*ÅÖi6ÊÊÉآĆ\RR¸½\=N·/Æó±bçi6šO´§ kŠ©³òàÉÚÍwçT%u£XùJ3B1ŠU}êßnk3ËïÒQ7 \« ½”o#ûÚÄK¦‡’™y-Îð&´VkqÆ~S¨•ç©]çÑ™¯¦8 Ö’ ±.Y‚²I¬,x+´«.üe”¾¼òPŠð啾¼òQ†+¡UP¬¡zIŠçÝ””ó•Pîƒr])#\Ø~G§ MT>Ø]ùw؈©'¤•NKƒ|Å-u(È@Gˆ¤Ø~Hqí?©( ñ{k\ÙÊЖXü\|”€é”_ ¡["ã}|o­¹£E/fö ™6Å ;fYÁÏ+)eåù^ıâQéL<ƈÃÒ^Š<›ôM|7Š>{A|jovo’ùZ2ôQ¨ ™¿`«·3¿ô`z÷>yýÌAvd-Š9ÑO »ÂrÇ‚Ä›É_"œbFôi²Ç€w3‰(šhš[Sûd/f@wô˜°5¶Ó»khmR.ÄO+¨*³(‰!Þ§ E¦Ù«²ù|»¹“¡ŸÂö`ŠÑÑ‘i nJ埞=á}k{ÇM™|Ià¤iìˆNÓ¶S˜¥ïB”¡:Üjß™à0­ãK&…È£"GÞû37ȱKyÖ\ePXùZÕØ¢4•›ÿ- "z짥yIzq#”ÂúÛå÷êhîÜÍù`ªSŠF•.bߤ\¨½Ï~NÙ4)©¤p+ áÒ7(jXð¾ê¤Ñœè”¸üœÇ`ÀOŸ±]"'4ÚM>>Î4JmsÓ'ÝT©×Pêj™vTE$÷‚'Õ‹z¼®uo ¡ÈÑòQ5Èèñ:‡bÿßPätµ¦(‘ÔõõpJ}³:ħSrë¬ § «¯ÝÚÕãu6Å|J%©^šÓãuöµ;T”ÚæÔ#èz¼.µÎÊQ]*›kÖÖz¼njQlÝŠ°¹T{UO×9‹Œ’%>Óâ…x©Ž×ÛË_ÅÇHó?õx]°íÞ-/¡i®Çë‚)ú2_×…Rª×=Þ°¥;>ÓV¶p_’ò4ä’”AÙMìÒŽ”8ïq‹p e!º%FJ“"Þtõþ„@eÈü?!D)Ç ßÏ3Q.¸oÕþærå„ûyøKÀ¡”ˆûœÑe)|°ÌÀ êDáƒeú^»h …–Ï Ý’Nan–Ò™1µ~o‰ IáSëÜ]bú“%Î)C>—!¯ÿ‡Sø`Û½#þÚ¦ô¢%:¢Açº|Í¿K¬¥Úº,EqÛh”ÿo‘/Ât±ÉIEND®B`‚ifeffit-1.2.11d/doc/RefMan/figs/win_gauss.ps0000644000175000017500000004144110771740460017572 0ustar segresegre%!PS-Adobe-3.0 EPSF-3.0 %%For: newville %%Title: PGPLOT PostScript plot %%Creator: PGPLOT [PSDRIV 6.6] %%CreationDate: 6-May-2003 16:51 %%BoundingBox: (atend) %%DocumentFonts: (atend) %%LanguageLevel: 1 %%Orientation: Landscape %%Pages: (atend) %%EndComments %%BeginProlog /L {moveto rlineto currentpoint stroke moveto} bind def /C {rlineto currentpoint stroke moveto} bind def /D {moveto 0 0 rlineto currentpoint stroke moveto} bind def /LW {5 mul setlinewidth} bind def /BP {newpath moveto} bind def /LP /rlineto load def /EP {rlineto closepath eofill} bind def /MB {gsave translate MFAC dup scale 1 setlinewidth 2 setlinecap 0 setlinejoin newpath} bind def /ME /grestore load def /CC {0 360 arc stroke} bind def /FC {0 360 arc fill} bind def /G {1024 div setgray} bind def /K {3 -1 roll 1024 div 3 -1 roll 1024 div 3 -1 roll 1024 div setrgbcolor} bind def % Uncomment next line to convert color to grey shades %/K {3 -1 roll 3413 div 3 -1 roll 1739 div 3 -1 roll 9309 div add add setgray} bind def %%EndProlog %%BeginSetup /#copies 1 def %%EndSetup %%Page: 1 1 %%BeginPageSetup /PGPLOT save def 0.072 0.072 scale 5199 1200 translate 90 rotate 1 setlinejoin 1 setlinecap 1 LW 1 %%EndPageSetup %%PageBoundingBox: (atend) 0 0 0 K 1024 1024 1024 K 1 LW 0 0 BP 5999 0 LP 0 3999 LP -5999 0 EP 0 0 0 K 1024 1024 1024 K 2 LW 816 760 896 K 0 2799 600 600 L 0 2799 1800 600 L 0 2799 3000 600 L 0 2799 4199 600 L 0 2799 5399 600 L 4799 0 600 600 L 4799 0 600 1872 L 4799 0 600 3145 L 0 0 0 K 4799 0 600 600 L 0 2799 C -4799 0 C 0 -2799 C 0 69 C 0 34 840 600 L 0 34 1080 600 L 0 34 1320 600 L 0 34 1560 600 L 0 69 1800 600 L 0 34 2040 600 L 0 34 2280 600 L 0 34 2520 600 L 0 34 2760 600 L 0 69 3000 600 L 0 34 3239 600 L 0 34 3479 600 L 0 34 3719 600 L 0 34 3959 600 L 0 69 4199 600 L 0 34 4439 600 L 0 34 4679 600 L 0 34 4919 600 L 0 34 5159 600 L 0 69 5399 600 L 0 69 600 3330 L 0 34 840 3365 L 0 34 1080 3365 L 0 34 1320 3365 L 0 34 1560 3365 L 0 69 1800 3330 L 0 34 2040 3365 L 0 34 2280 3365 L 0 34 2520 3365 L 0 34 2760 3365 L 0 69 3000 3330 L 0 34 3239 3365 L 0 34 3479 3365 L 0 34 3719 3365 L 0 34 3959 3365 L 0 69 4199 3330 L 0 34 4439 3365 L 0 34 4679 3365 L 0 34 4919 3365 L 0 34 5159 3365 L 0 69 5399 3330 L -14 -5 595 517 L -9 -14 C -4 -23 C 0 -14 C 4 -23 C 9 -13 C 14 -5 C 9 0 C 14 5 C 10 13 C 4 23 C 0 14 C -4 23 C -10 14 C -14 5 C -9 0 C -46 0 1823 517 L -5 -42 C 5 5 C 13 4 C 14 0 C 14 -4 C 9 -9 C 5 -14 C 0 -9 C -5 -14 C -9 -9 C -14 -5 C -14 0 C -13 5 C -5 4 C -5 9 C 9 5 2935 498 L 14 14 C 0 -97 C -14 -5 3041 517 L -9 -14 C -5 -23 C 0 -14 C 5 -23 C 9 -13 C 14 -5 C 9 0 C 14 5 C 9 13 C 5 23 C 0 14 C -5 23 C -9 14 C -14 5 C -9 0 C 9 5 4135 498 L 14 14 C 0 -97 C -47 0 4269 517 L -4 -42 C 4 5 C 14 4 C 14 0 C 14 -4 C 9 -9 C 5 -14 C 0 -9 C -5 -14 C -9 -9 C -14 -5 C -14 0 C -14 5 C -4 4 C -5 9 C 0 4 5325 494 L 5 10 C 5 4 C 9 5 C 18 0 C 9 -5 C 5 -4 C 5 -10 C 0 -9 C -5 -9 C -9 -14 C -46 -46 C 64 0 C -14 -5 5441 517 L -9 -14 C -5 -23 C 0 -14 C 5 -23 C 9 -13 C 14 -5 C 9 0 C 14 5 C 9 13 C 5 23 C 0 14 C -5 23 C -9 14 C -14 5 C -9 0 C 69 0 600 600 L 34 0 600 854 L 34 0 600 1109 L 34 0 600 1363 L 34 0 600 1618 L 69 0 600 1872 L 34 0 600 2127 L 34 0 600 2381 L 34 0 600 2636 L 34 0 600 2890 L 69 0 600 3145 L 34 0 600 3399 L 69 0 5330 600 L 34 0 5365 854 L 34 0 5365 1109 L 34 0 5365 1363 L 34 0 5365 1618 L 69 0 5330 1872 L 34 0 5365 2127 L 34 0 5365 2381 L 34 0 5365 2636 L 34 0 5365 2890 L 69 0 5330 3145 L 34 0 5365 3399 L 5 -14 398 595 L 13 -9 C 24 -4 C 13 0 C 23 4 C 14 9 C 5 14 C 0 9 C -5 14 C -14 10 C -23 4 C -13 0 C -24 -4 C -13 -10 C -5 -14 C 0 -9 C 5 -13 398 1798 L 13 -10 C 24 -4 C 13 0 C 23 4 C 14 10 C 5 13 C 0 10 C -5 14 C -14 9 C -23 4 C -13 0 C -24 -4 C -13 -9 C -5 -14 C 0 -10 C 4 -4 486 1872 L 5 4 C -5 5 C -4 -5 C 0 -47 398 1965 L 42 -4 C -5 4 C -5 14 C 0 14 C 5 14 C 9 9 C 14 5 C 9 0 C 14 -5 C 9 -9 C 5 -14 C 0 -14 C -5 -14 C -4 -4 C -10 -5 C -4 9 416 3126 L -14 14 C 97 0 C 0 -97 2767 247 L -47 -47 2814 215 L 32 -37 2786 187 L -9 -9 2952 265 L -9 -14 C -10 -18 C -4 -23 C 0 -19 C 4 -23 C 10 -18 C 9 -14 C 9 -9 C -27 -83 3007 233 L 27 -83 3017 233 L 28 -83 3012 233 L 41 0 2989 178 L 28 0 2970 150 L 27 0 3026 150 L -9 -4 3007 265 L -4 -10 C 0 -9 C 4 -9 C 9 -5 C 10 0 C 9 5 C 4 9 C 0 9 C -4 10 C -9 4 C -10 0 C 62 0 3072 255 L 7 3 3169 283 L 10 10 C 0 -72 C 9 -9 3231 265 L 10 -14 C 9 -18 C 4 -23 C 0 -19 C -4 -23 C -9 -18 C -10 -14 C -9 -9 C 19 -65 1352 3539 L -18 -65 1389 3539 L 19 -65 1389 3539 L -18 -65 1426 3539 L 4 -5 1454 3571 L 5 5 C -5 5 C -4 -5 C 0 -65 1458 3539 L 0 -65 1495 3539 L 14 14 1495 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 0 -97 1634 3571 L -10 9 1634 3525 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 10 9 C -9 -5 1689 3539 L -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 5 14 C 0 9 C -5 14 C -9 9 C -9 5 C -14 0 C 18 -65 1754 3539 L -19 -65 1791 3539 L 18 -65 1791 3539 L -18 -65 1827 3539 L -9 -9 1892 3589 L -9 -14 C -10 -18 C -4 -23 C 0 -19 C 4 -23 C 10 -18 C 9 -14 C 9 -9 C 0 -97 1975 3571 L -9 9 1975 3525 L -9 5 C -14 0 C -9 -5 C -10 -9 C -4 -14 C 0 -9 C 4 -14 C 10 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 0 -97 2012 3571 L -46 -46 2058 3539 L 32 -37 2031 3511 L 9 4 2100 3553 L 14 14 C 0 -97 C 83 0 2183 3530 L 83 0 2183 3502 L 51 0 2307 3571 L -28 -37 C 14 0 C 10 -4 C 4 -5 C 5 -14 C 0 -9 C -5 -14 C -9 -9 C -14 -5 C -14 0 C -14 5 C -4 4 C -5 10 C -5 -4 2400 3483 L 5 -5 C 4 5 C -4 4 C -14 -5 2464 3571 L -9 -13 C -4 -23 C 0 -14 C 4 -23 C 9 -14 C 14 -5 C 9 0 C 14 5 C 10 14 C 4 23 C 0 14 C -4 23 C -10 13 C -14 5 C -9 0 C -14 -5 2557 3571 L -10 -13 C -4 -23 C 0 -14 C 4 -23 C 10 -14 C 14 -5 C 9 0 C 14 5 C 9 14 C 4 23 C 0 14 C -4 23 C -9 13 C -14 5 C -9 0 C -5 -5 2635 3479 L -4 5 C 4 4 C 5 -4 C 0 -9 C -5 -10 C -4 -4 C 0 -97 2723 3571 L -10 9 2723 3525 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 10 9 C 0 -97 2760 3571 L -46 -46 2806 3539 L 32 -37 2778 3511 L 0 5 2838 3548 L 5 9 C 4 4 C 9 5 C 19 0 C 9 -5 C 5 -4 C 4 -9 C 0 -10 C -4 -9 C -9 -14 C -47 -46 C 65 0 C 83 0 2930 3530 L 83 0 2930 3502 L 10 4 3059 3553 L 14 14 C 0 -97 C -14 -5 3166 3571 L -9 -13 C -5 -23 C 0 -14 C 5 -23 C 9 -14 C 14 -5 C 9 0 C 14 5 C 9 14 C 5 23 C 0 14 C -5 23 C -9 13 C -14 5 C -9 0 C -4 -4 3239 3483 L 4 -5 C 5 5 C -5 4 C -46 0 3332 3571 L -5 -41 C 5 4 C 13 5 C 14 0 C 14 -5 C 9 -9 C 5 -14 C 0 -9 C -5 -14 C -9 -9 C -14 -5 C -14 0 C -13 5 C -5 4 C -5 10 C -4 -5 3382 3479 L -5 5 C 5 4 C 4 -4 C 0 -9 C -4 -10 C -5 -4 C 0 -97 3419 3571 L -47 -46 3466 3539 L 32 -37 3438 3511 L 19 -65 3493 3539 L -18 -65 3530 3539 L 19 -65 3530 3539 L -18 -65 3567 3539 L 4 -5 3595 3571 L 5 5 C -5 5 C -4 -5 C 0 -65 3599 3539 L 0 -65 3636 3539 L 14 14 3636 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 0 -97 3775 3571 L -10 9 3775 3525 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 10 9 C -9 -5 3830 3539 L -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 5 14 C 0 9 C -5 14 C -9 9 C -9 5 C -14 0 C 18 -65 3895 3539 L -19 -65 3932 3539 L 18 -65 3932 3539 L -18 -65 3968 3539 L 83 0 4001 3530 L 83 0 4001 3502 L 0 -32 4121 3571 L 0 -74 4208 3539 L -4 -14 C -5 -5 C -9 -4 C -14 0 C -9 4 C -9 9 4208 3525 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 0 -65 4296 3539 L -9 9 4296 3525 L -9 5 C -14 0 C -9 -5 C -10 -9 C -4 -14 C 0 -9 C 4 -14 C 10 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 0 -46 4333 3539 L 5 -14 C 9 -5 C 14 0 C 9 5 C 14 14 C 0 -65 4384 3539 L -5 9 4467 3525 L -14 5 C -13 0 C -14 -5 C -5 -9 C 5 -9 C 9 -5 C 23 -5 C 9 -4 C 5 -9 C 0 -5 C -5 -9 C -14 -5 C -13 0 C -14 5 C -5 9 C -4 9 4545 3525 L -14 5 C -14 0 C -14 -5 C -4 -9 C 4 -9 C 9 -5 C 23 -5 C 10 -4 C 4 -9 C 0 -5 C -4 -9 C -14 -5 C -14 0 C -14 5 C -4 9 C 0 -32 4578 3571 L 9 -9 4610 3589 L 9 -14 C 10 -18 C 4 -23 C 0 -19 C -4 -23 C -10 -18 C -9 -14 C -9 -9 C 0 0 0 K 12 1 600 605 L 12 0 C 12 0 C 12 1 C 12 0 C 12 1 C 12 0 C 12 1 C 12 0 C 12 1 C 12 0 C 12 1 C 12 0 C 12 1 C 12 1 C 12 1 C 12 0 C 12 1 C 12 1 C 12 1 C 12 1 C 12 1 C 12 1 C 12 1 C 12 1 C 12 1 C 12 1 C 12 1 C 12 2 C 12 1 C 12 2 C 12 1 C 12 2 C 12 1 C 12 2 C 12 2 C 12 2 C 12 2 C 12 2 C 12 2 C 12 2 C 12 2 C 12 3 C 12 2 C 12 3 C 12 3 C 12 2 C 12 3 C 12 3 C 12 4 C 12 3 C 12 3 C 12 4 C 12 3 C 12 4 C 12 4 C 12 4 C 12 5 C 12 4 C 12 5 C 12 4 C 12 5 C 12 5 C 12 6 C 12 5 C 12 6 C 12 6 C 12 6 C 12 6 C 12 6 C 12 7 C 12 7 C 12 7 C 12 7 C 12 7 C 12 8 C 12 8 C 12 8 C 12 9 C 12 8 C 12 9 C 12 9 C 12 10 C 12 9 C 12 10 C 12 11 C 12 10 C 12 11 C 12 11 C 12 11 C 12 12 C 12 12 C 12 12 C 12 13 C 12 12 C 12 13 C 12 14 C 12 14 C 12 14 C 12 14 C 12 15 C 12 14 C 12 16 C 12 15 C 12 16 C 12 16 C 12 17 C 12 17 C 12 17 C 12 17 C 12 18 C 12 18 C 12 19 C 12 18 C 12 19 C 12 20 C 12 19 C 12 20 C 12 21 C 12 20 C 12 21 C 12 21 C 12 21 C 12 22 C 12 22 C 12 22 C 12 22 C 12 23 C 12 23 C 12 23 C 12 23 C 12 24 C 12 24 C 12 24 C 12 24 C 12 24 C 12 25 C 12 25 C 12 24 C 12 25 C 12 25 C 12 26 C 12 25 C 12 26 C 12 25 C 12 26 C 12 25 C 12 26 C 12 26 C 12 25 C 12 26 C 12 26 C 12 25 C 12 26 C 12 26 C 12 25 C 12 26 C 12 25 C 12 25 C 12 25 C 12 25 C 12 25 C 12 24 C 12 25 C 12 24 C 12 24 C 12 23 C 12 24 C 12 23 C 12 23 C 12 22 C 12 22 C 12 22 C 12 21 C 12 22 C 12 20 C 12 20 C 12 20 C 12 20 C 12 19 C 12 18 C 12 18 C 12 18 C 12 17 C 12 16 C 12 16 C 12 15 C 12 15 C 12 14 C 12 14 C 12 13 C 12 13 C 12 12 C 12 11 C 12 10 C 12 10 C 12 10 C 12 8 C 12 8 C 12 8 C 11 6 C 12 6 3011 3116 L 12 5 C 12 5 C 12 4 C 12 3 C 12 2 C 12 2 C 12 1 C 12 1 C 12 -1 C 12 -1 C 12 -2 C 12 -2 C 12 -3 C 12 -4 C 12 -5 C 12 -5 C 12 -6 C 12 -6 C 12 -8 C 12 -8 C 12 -8 C 12 -10 C 12 -10 C 12 -10 C 12 -11 C 12 -12 C 12 -13 C 12 -13 C 12 -14 C 12 -14 C 12 -15 C 12 -15 C 12 -16 C 12 -16 C 12 -17 C 12 -18 C 12 -18 C 12 -18 C 12 -19 C 12 -20 C 12 -20 C 12 -20 C 12 -20 C 12 -22 C 12 -21 C 12 -22 C 12 -22 C 12 -22 C 12 -23 C 12 -23 C 12 -24 C 12 -23 C 12 -24 C 12 -24 C 12 -25 C 12 -24 C 12 -25 C 12 -25 C 12 -25 C 12 -25 C 12 -25 C 12 -26 C 12 -25 C 12 -26 C 12 -26 C 12 -25 C 12 -26 C 12 -26 C 12 -25 C 12 -26 C 12 -26 C 12 -25 C 12 -26 C 12 -25 C 12 -26 C 12 -25 C 12 -26 C 12 -25 C 12 -25 C 12 -24 C 12 -25 C 12 -25 C 12 -24 C 12 -24 C 12 -24 C 12 -24 C 12 -24 C 12 -23 C 12 -23 C 12 -23 C 12 -23 C 12 -22 C 12 -22 C 12 -22 C 12 -22 C 12 -21 C 12 -21 C 12 -21 C 12 -20 C 12 -21 C 12 -20 C 12 -19 C 12 -20 C 12 -19 C 12 -18 C 12 -19 C 12 -18 C 12 -18 C 12 -17 C 12 -17 C 12 -17 C 12 -17 C 12 -16 C 12 -16 C 12 -15 C 12 -16 C 12 -14 C 12 -15 C 12 -14 C 12 -14 C 12 -14 C 12 -14 C 12 -13 C 12 -12 C 12 -13 C 12 -12 C 12 -12 C 12 -12 C 12 -11 C 12 -11 C 12 -11 C 12 -10 C 12 -11 C 12 -10 C 12 -9 C 12 -10 C 12 -9 C 12 -9 C 12 -8 C 12 -9 C 12 -8 C 12 -8 C 12 -8 C 12 -7 C 12 -7 C 12 -7 C 12 -7 C 12 -7 C 12 -6 C 12 -6 C 12 -6 C 12 -6 C 12 -6 C 12 -5 C 12 -6 C 12 -5 C 12 -5 C 12 -4 C 12 -5 C 12 -4 C 12 -5 C 12 -4 C 12 -4 C 12 -4 C 12 -3 C 12 -4 C 12 -3 C 12 -3 C 12 -4 C 12 -3 C 12 -3 C 12 -2 C 12 -3 C 12 -3 C 12 -2 C 12 -3 C 12 -2 C 12 -2 C 12 -2 C 12 -2 C 12 -2 C 12 -2 C 12 -2 C 12 -2 C 12 -1 C 12 -2 C 12 -1 C 12 -2 C 12 -1 C 12 -2 C 12 -1 C 12 -1 C 12 -1 C 12 -1 C 12 -1 C 12 -1 C 12 -1 C 12 -1 C 0 0 0 K 0 56 3119 600 L 0 14 3119 713 L 0 43 C 0 28 3119 826 L 0 29 C 0 43 3119 939 L 0 14 C 0 57 3119 1052 L 0 57 3119 1165 L 0 56 3119 1279 L 0 56 3119 1392 L 0 56 3119 1505 L 0 56 3119 1618 L 0 14 3119 1731 L 0 42 C 0 28 3119 1844 L 0 0 0 K 9 0 2272 1872 L 10 0 C 10 0 C 9 0 C 10 0 C 8 0 C 2 0 2385 1872 L 10 0 C 9 0 C 10 0 C 9 0 C 10 0 C 7 0 C 4 0 2498 1872 L 10 0 C 9 0 C 10 0 C 10 0 C 9 0 C 5 0 C 6 0 2611 1872 L 10 0 C 10 0 C 9 0 C 10 0 C 9 0 C 3 0 C 9 0 2724 1872 L 9 0 C 10 0 C 9 0 C 10 0 C 10 0 C 1 0 2837 1872 L 10 0 C 9 0 C 10 0 C 10 0 C 9 0 C 8 0 C 2 0 2951 1872 L 10 0 C 10 0 C 9 0 C 10 0 C 9 0 C 6 0 C 5 0 3064 1872 L 9 0 C 10 0 C 9 0 C 10 0 C 10 0 C 3 0 C 7 0 3177 1872 L 9 0 C 10 0 C 10 0 C 9 0 C 10 0 C 1 0 C 9 0 3290 1872 L 10 0 C 9 0 C 10 0 C 9 0 C 9 0 C 2 0 3403 1872 L 9 0 C 10 0 C 9 0 C 10 0 C 9 0 C 8 0 C 4 0 3516 1872 L 9 0 C 10 0 C 9 0 C 10 0 C 10 0 C 5 0 C 6 0 3629 1872 L 9 0 C 10 0 C 10 0 C 9 0 C 10 0 C 3 0 C 8 0 3742 1872 L 10 0 C 9 0 C 10 0 C 9 0 C 10 0 C 1 0 C 1 0 3855 1872 L 9 0 C 10 0 C 9 0 C 10 0 C 10 0 C 8 0 C 0 0 0 K 0 -97 3249 1333 L -10 9 3249 1287 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 10 9 C 0 -97 3286 1333 L -46 -46 3332 1301 L 32 -37 3304 1273 L 0 4 3364 1310 L 5 10 C 4 4 C 9 5 C 19 0 C 9 -5 C 5 -4 C 4 -10 C 0 -9 C -4 -9 C -9 -14 C -47 -46 C 65 0 C 83 0 3456 1291 L 83 0 3456 1264 L 9 5 3586 1314 L 14 14 C 0 -97 C -14 -5 3692 1333 L -9 -14 C -5 -23 C 0 -13 C 5 -23 C 9 -14 C 14 -5 C 9 0 C 14 5 C 9 14 C 5 23 C 0 13 C -5 23 C -9 14 C -14 5 C -9 0 C -4 -4 3765 1245 L 4 -5 C 5 5 C -5 4 C -46 0 3858 1333 L -5 -42 C 5 5 C 13 5 C 14 0 C 14 -5 C 9 -9 C 5 -14 C 0 -9 C -5 -14 C -9 -9 C -14 -5 C -14 0 C -13 5 C -5 4 C -5 10 C 19 0 3373 3196 L -14 32 C -5 18 C 0 19 C 5 14 C 9 9 C 14 4 C 9 0 C 14 -4 C 9 -9 C 5 -14 C 0 -19 C -5 -18 C -14 -32 C 19 0 C -9 -9 3502 3311 L -9 -14 C -9 -19 C -5 -23 C 0 -18 C 5 -23 C 9 -19 C 9 -14 C 9 -9 C 0 -96 3535 3292 L -46 -46 3581 3260 L 33 -36 3553 3232 L 9 -9 3609 3311 L 9 -14 C 9 -19 C 5 -23 C 0 -18 C -5 -23 C -9 -19 C -9 -14 C -9 -9 C 83 0 3678 3251 L 83 0 3678 3223 L 56 0 3793 3232 L 0 10 C -5 9 C -5 5 C -9 4 C -14 0 C -9 -4 C -9 -10 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -4 C 14 0 C 9 4 C 10 9 C 51 -64 3876 3260 L -51 -64 3927 3260 L 0 -97 3959 3260 L 10 10 3959 3246 L 9 4 C 14 0 C 9 -4 C 9 -10 C 5 -14 C 0 -9 C -5 -14 C -9 -9 C -9 -4 C -14 0 C -9 4 C -10 9 C 0 -148 4047 3311 L 0 -148 4052 3311 L 32 0 4047 3311 L 32 0 4047 3163 L 83 0 4112 3237 L -9 -9 4264 3311 L -10 -14 C -9 -19 C -4 -23 C 0 -18 C 4 -23 C 9 -19 C 10 -14 C 9 -9 C 0 -96 4296 3292 L -46 -46 4342 3260 L 32 -36 4315 3232 L 83 0 4375 3237 L 0 -96 4545 3292 L -9 10 4545 3246 L -9 4 C -14 0 C -9 -4 C -9 -10 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -4 C 14 0 C 9 4 C 9 9 C 0 -96 4582 3292 L -46 -46 4628 3260 L 32 -36 4601 3232 L 0 5 4661 3269 L 4 9 C 5 5 C 9 4 C 19 0 C 9 -4 C 4 -5 C 5 -9 C 0 -9 C -5 -9 C -9 -14 C -46 -46 C 65 0 C 10 -9 4748 3311 L 9 -14 C 9 -19 C 5 -23 C 0 -18 C -5 -23 C -9 -19 C -9 -14 C -10 -9 C 0 3 4813 3325 L 3 7 C 4 4 C 7 3 C 14 0 C 7 -3 C 3 -4 C 3 -7 C 0 -7 C -3 -7 C -7 -10 C -35 -35 C 49 0 C -83 -148 4961 3311 L -10 -9 5021 3311 L -9 -14 C -9 -19 C -5 -23 C 0 -18 C 5 -23 C 9 -19 C 9 -14 C 10 -9 C 0 5 5053 3269 L 4 9 C 5 5 C 9 4 C 19 0 C 9 -4 C 5 -5 C 4 -9 C 0 -9 C -4 -9 C -10 -14 C -46 -46 C 65 0 C 0 -96 5196 3292 L -9 10 5196 3246 L -10 4 C -13 0 C -10 -4 C -9 -10 C -4 -14 C 0 -9 C 4 -14 C 9 -9 C 10 -4 C 13 0 C 10 4 C 9 9 C 0 -96 5233 3292 L -46 -46 5279 3260 L 33 -36 5251 3232 L 10 5 5320 3274 L 14 13 C 0 -96 C 0 3 5399 3325 L 3 7 C 4 4 C 7 3 C 14 0 C 7 -3 C 3 -4 C 3 -7 C 0 -7 C -3 -7 C -7 -10 C -35 -35 C 49 0 C 9 -9 5468 3311 L 10 -14 C 9 -19 C 4 -23 C 0 -18 C -4 -23 C -9 -19 C -10 -14 C -9 -9 C 0 -148 5560 3311 L 0 -148 5565 3311 L 32 0 5533 3311 L 32 0 5533 3163 L 0 -97 2530 2173 L 60 0 2530 2173 L 37 0 2530 2127 L 23 -97 2604 2173 L -23 -97 2650 2173 L 23 -97 2650 2173 L -23 -97 2696 2173 L 0 -97 2724 2173 L 0 -97 2789 2173 L 65 0 2724 2127 L 0 -97 2826 2173 L 37 -97 2826 2173 L -36 -97 2899 2173 L 0 -97 2899 2173 L 83 0 2936 2131 L 83 0 2936 2104 L 0 4 3056 2150 L 5 10 C 5 4 C 9 5 C 18 0 C 9 -5 C 5 -4 C 5 -10 C 0 -9 C -5 -9 C -9 -14 C -46 -46 C 64 0 C 0 -55 3167 2145 L 46 -27 3144 2131 L -46 -27 3190 2131 L -5 9 3269 2127 L -14 4 C -14 0 C -14 -4 C -4 -9 C 4 -10 C 10 -4 C 23 -5 C 9 -4 C 5 -10 C 0 -4 C -5 -10 C -14 -4 C -14 0 C -14 4 C -4 10 C 0 -96 3352 2140 L -10 9 3352 2127 L -9 4 C -14 0 C -9 -4 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -10 C 9 -4 C 14 0 C 9 4 C 10 10 C 0 -64 3389 2140 L 4 14 3389 2113 L 9 9 C 10 4 C 13 0 C 0 -79 3453 2173 L 5 -14 C 9 -4 C 9 0 C 33 0 3439 2140 L -9 -9 3536 2191 L -9 -14 C -9 -18 C -5 -23 C 0 -19 C 5 -23 C 9 -18 C 9 -14 C 9 -9 C 0 4 3568 2150 L 5 10 C 5 4 C 9 5 C 18 0 C 10 -5 C 4 -4 C 5 -10 C 0 -9 C -5 -9 C -9 -14 C -46 -46 C 64 0 C 0 -55 3679 2145 L 46 -27 3656 2131 L -46 -27 3702 2131 L 0 -97 3735 2173 L -9 -4 3790 2140 L -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -10 C 9 -4 C 14 0 C 9 4 C 9 10 C 5 14 C 0 9 C -5 14 C -9 9 C -9 4 C -14 0 C 0 -73 3910 2140 L -5 -14 C -4 -5 C -10 -4 C -13 0 C -10 4 C -9 9 3910 2127 L -10 4 C -13 0 C -10 -4 C -9 -9 C -4 -14 C 0 -9 C 4 -14 C 9 -10 C 10 -4 C 13 0 C 10 4 C 9 10 C -9 -9 3979 2191 L -9 -14 C -10 -18 C -4 -23 C 0 -19 C 4 -23 C 10 -18 C 9 -14 C 9 -9 C 0 4 4011 2150 L 5 10 C 5 4 C 9 5 C 18 0 C 10 -5 C 4 -4 C 5 -10 C 0 -9 C -5 -9 C -9 -14 C -46 -46 C 64 0 C 9 -9 4099 2191 L 10 -14 C 9 -18 C 4 -23 C 0 -19 C -4 -23 C -9 -18 C -10 -14 C -9 -9 C 9 -9 4164 2191 L 9 -14 C 9 -18 C 5 -23 C 0 -19 C -5 -23 C -9 -18 C -9 -14 C -9 -9 C 0 -55 4251 2145 L 46 -27 4228 2131 L -46 -27 4274 2131 L 0 -97 4358 2173 L -10 9 4358 2127 L -9 4 C -14 0 C -9 -4 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -10 C 9 -4 C 14 0 C 9 4 C 10 10 C 0 -97 4394 2173 L -47 -46 4441 2140 L 32 -37 4413 2113 L 9 5 4482 2154 L 14 14 C 0 -97 C 3967 1872 BP -145 39 LP 0 -39 LP 0 -39 EP 57 0 3822 1872 L 2272 1872 BP 145 -39 LP 0 39 LP 0 39 EP -56 0 2400 1872 L 0 0 0 K PGPLOT restore showpage %%PageTrailer %%PageBoundingBox: 86 86 375 519 %%Trailer %%BoundingBox: 86 86 375 519 %%DocumentFonts: %%Pages: 1 %%EOF ifeffit-1.2.11d/doc/RefMan/figs/win_kaiser.ps0000644000175000017500000003545210771740460017733 0ustar segresegre%!PS-Adobe-3.0 EPSF-3.0 %%For: newville %%Title: PGPLOT PostScript plot %%Creator: PGPLOT [PSDRIV 6.6] %%CreationDate: 6-May-2003 16:51 %%BoundingBox: (atend) %%DocumentFonts: (atend) %%LanguageLevel: 1 %%Orientation: Landscape %%Pages: (atend) %%EndComments %%BeginProlog /L {moveto rlineto currentpoint stroke moveto} bind def /C {rlineto currentpoint stroke moveto} bind def /D {moveto 0 0 rlineto currentpoint stroke moveto} bind def /LW {5 mul setlinewidth} bind def /BP {newpath moveto} bind def /LP /rlineto load def /EP {rlineto closepath eofill} bind def /MB {gsave translate MFAC dup scale 1 setlinewidth 2 setlinecap 0 setlinejoin newpath} bind def /ME /grestore load def /CC {0 360 arc stroke} bind def /FC {0 360 arc fill} bind def /G {1024 div setgray} bind def /K {3 -1 roll 1024 div 3 -1 roll 1024 div 3 -1 roll 1024 div setrgbcolor} bind def % Uncomment next line to convert color to grey shades %/K {3 -1 roll 3413 div 3 -1 roll 1739 div 3 -1 roll 9309 div add add setgray} bind def %%EndProlog %%BeginSetup /#copies 1 def %%EndSetup %%Page: 1 1 %%BeginPageSetup /PGPLOT save def 0.072 0.072 scale 5199 1200 translate 90 rotate 1 setlinejoin 1 setlinecap 1 LW 1 %%EndPageSetup %%PageBoundingBox: (atend) 0 0 0 K 1024 1024 1024 K 1 LW 0 0 BP 5999 0 LP 0 3999 LP -5999 0 EP 0 0 0 K 1024 1024 1024 K 2 LW 816 760 896 K 0 2799 600 600 L 0 2799 1800 600 L 0 2799 3000 600 L 0 2799 4199 600 L 0 2799 5399 600 L 4799 0 600 600 L 4799 0 600 1872 L 4799 0 600 3145 L 0 0 0 K 4799 0 600 600 L 0 2799 C -4799 0 C 0 -2799 C 0 69 C 0 34 840 600 L 0 34 1080 600 L 0 34 1320 600 L 0 34 1560 600 L 0 69 1800 600 L 0 34 2040 600 L 0 34 2280 600 L 0 34 2520 600 L 0 34 2760 600 L 0 69 3000 600 L 0 34 3239 600 L 0 34 3479 600 L 0 34 3719 600 L 0 34 3959 600 L 0 69 4199 600 L 0 34 4439 600 L 0 34 4679 600 L 0 34 4919 600 L 0 34 5159 600 L 0 69 5399 600 L 0 69 600 3330 L 0 34 840 3365 L 0 34 1080 3365 L 0 34 1320 3365 L 0 34 1560 3365 L 0 69 1800 3330 L 0 34 2040 3365 L 0 34 2280 3365 L 0 34 2520 3365 L 0 34 2760 3365 L 0 69 3000 3330 L 0 34 3239 3365 L 0 34 3479 3365 L 0 34 3719 3365 L 0 34 3959 3365 L 0 69 4199 3330 L 0 34 4439 3365 L 0 34 4679 3365 L 0 34 4919 3365 L 0 34 5159 3365 L 0 69 5399 3330 L -14 -5 595 517 L -9 -14 C -4 -23 C 0 -14 C 4 -23 C 9 -13 C 14 -5 C 9 0 C 14 5 C 10 13 C 4 23 C 0 14 C -4 23 C -10 14 C -14 5 C -9 0 C -46 0 1823 517 L -5 -42 C 5 5 C 13 4 C 14 0 C 14 -4 C 9 -9 C 5 -14 C 0 -9 C -5 -14 C -9 -9 C -14 -5 C -14 0 C -13 5 C -5 4 C -5 9 C 9 5 2935 498 L 14 14 C 0 -97 C -14 -5 3041 517 L -9 -14 C -5 -23 C 0 -14 C 5 -23 C 9 -13 C 14 -5 C 9 0 C 14 5 C 9 13 C 5 23 C 0 14 C -5 23 C -9 14 C -14 5 C -9 0 C 9 5 4135 498 L 14 14 C 0 -97 C -47 0 4269 517 L -4 -42 C 4 5 C 14 4 C 14 0 C 14 -4 C 9 -9 C 5 -14 C 0 -9 C -5 -14 C -9 -9 C -14 -5 C -14 0 C -14 5 C -4 4 C -5 9 C 0 4 5325 494 L 5 10 C 5 4 C 9 5 C 18 0 C 9 -5 C 5 -4 C 5 -10 C 0 -9 C -5 -9 C -9 -14 C -46 -46 C 64 0 C -14 -5 5441 517 L -9 -14 C -5 -23 C 0 -14 C 5 -23 C 9 -13 C 14 -5 C 9 0 C 14 5 C 9 13 C 5 23 C 0 14 C -5 23 C -9 14 C -14 5 C -9 0 C 69 0 600 600 L 34 0 600 854 L 34 0 600 1109 L 34 0 600 1363 L 34 0 600 1618 L 69 0 600 1872 L 34 0 600 2127 L 34 0 600 2381 L 34 0 600 2636 L 34 0 600 2890 L 69 0 600 3145 L 34 0 600 3399 L 69 0 5330 600 L 34 0 5365 854 L 34 0 5365 1109 L 34 0 5365 1363 L 34 0 5365 1618 L 69 0 5330 1872 L 34 0 5365 2127 L 34 0 5365 2381 L 34 0 5365 2636 L 34 0 5365 2890 L 69 0 5330 3145 L 34 0 5365 3399 L 5 -14 398 595 L 13 -9 C 24 -4 C 13 0 C 23 4 C 14 9 C 5 14 C 0 9 C -5 14 C -14 10 C -23 4 C -13 0 C -24 -4 C -13 -10 C -5 -14 C 0 -9 C 5 -13 398 1798 L 13 -10 C 24 -4 C 13 0 C 23 4 C 14 10 C 5 13 C 0 10 C -5 14 C -14 9 C -23 4 C -13 0 C -24 -4 C -13 -9 C -5 -14 C 0 -10 C 4 -4 486 1872 L 5 4 C -5 5 C -4 -5 C 0 -47 398 1965 L 42 -4 C -5 4 C -5 14 C 0 14 C 5 14 C 9 9 C 14 5 C 9 0 C 14 -5 C 9 -9 C 5 -14 C 0 -14 C -5 -14 C -4 -4 C -10 -5 C -4 9 416 3126 L -14 14 C 97 0 C 0 -97 2767 247 L -47 -47 2814 215 L 32 -37 2786 187 L -9 -9 2952 265 L -9 -14 C -10 -18 C -4 -23 C 0 -19 C 4 -23 C 10 -18 C 9 -14 C 9 -9 C -27 -83 3007 233 L 27 -83 3017 233 L 28 -83 3012 233 L 41 0 2989 178 L 28 0 2970 150 L 27 0 3026 150 L -9 -4 3007 265 L -4 -10 C 0 -9 C 4 -9 C 9 -5 C 10 0 C 9 5 C 4 9 C 0 9 C -4 10 C -9 4 C -10 0 C 62 0 3072 255 L 7 3 3169 283 L 10 10 C 0 -72 C 9 -9 3231 265 L 10 -14 C 9 -18 C 4 -23 C 0 -19 C -4 -23 C -9 -18 C -10 -14 C -9 -9 C 18 -65 1431 3539 L -19 -65 1468 3539 L 18 -65 1468 3539 L -18 -65 1504 3539 L 5 -5 1532 3571 L 4 5 C -4 5 C -5 -5 C 0 -65 1537 3539 L 0 -65 1574 3539 L 14 14 1574 3520 L 9 5 C 14 0 C 9 -5 C 4 -14 C 0 -46 C 0 -97 1712 3571 L -9 9 1712 3525 L -9 5 C -14 0 C -9 -5 C -10 -9 C -4 -14 C 0 -9 C 4 -14 C 10 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C -10 -5 1768 3539 L -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 10 -5 C 13 0 C 10 5 C 9 9 C 4 14 C 0 9 C -4 14 C -9 9 C -10 5 C -13 0 C 19 -65 1832 3539 L -18 -65 1869 3539 L 18 -65 1869 3539 L -19 -65 1906 3539 L -10 -9 1971 3589 L -9 -14 C -9 -18 C -5 -23 C 0 -19 C 5 -23 C 9 -18 C 9 -14 C 10 -9 C 0 -97 2003 3571 L -46 -46 2049 3539 L 33 -37 2021 3511 L 0 -65 2081 3539 L 14 14 2081 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 14 14 2132 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 5 -5 2215 3571 L 4 5 C -4 5 C -5 -5 C 0 -65 2220 3539 L 0 -65 2257 3539 L 13 14 2257 3520 L 10 5 C 14 0 C 9 -5 C 4 -14 C 0 -46 C 83 0 2344 3530 L 83 0 2344 3502 L 0 5 2464 3548 L 5 9 C 4 4 C 10 5 C 18 0 C 9 -5 C 5 -4 C 5 -9 C 0 -10 C -5 -9 C -9 -14 C -46 -46 C 64 0 C -5 -5 2566 3479 L -4 5 C 4 4 C 5 -4 C 0 -9 C -5 -10 C -4 -4 C 0 -97 2603 3571 L -46 -46 2649 3539 L 32 -37 2621 3511 L 0 -65 2681 3539 L 14 14 2681 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 14 14 2732 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 0 -65 2870 3539 L -9 9 2870 3525 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 50 -65 2903 3539 L -50 -65 2953 3539 L 83 0 2986 3530 L 83 0 2986 3502 L 9 4 3115 3553 L 14 14 C 0 -97 C -46 -97 3258 3571 L 65 0 3193 3571 L -4 -5 3299 3479 L -5 5 C 5 4 C 4 -4 C 0 -9 C -4 -10 C -5 -4 C 0 -97 3336 3571 L -46 -46 3382 3539 L 32 -37 3355 3511 L 19 -65 3410 3539 L -18 -65 3447 3539 L 19 -65 3447 3539 L -18 -65 3484 3539 L 4 -5 3512 3571 L 5 5 C -5 5 C -4 -5 C 0 -65 3516 3539 L 0 -65 3553 3539 L 14 14 3553 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 0 -97 3692 3571 L -10 9 3692 3525 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 10 9 C -9 -5 3747 3539 L -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 5 14 C 0 9 C -5 14 C -9 9 C -9 5 C -14 0 C 18 -65 3812 3539 L -19 -65 3849 3539 L 18 -65 3849 3539 L -18 -65 3885 3539 L 83 0 3918 3530 L 83 0 3918 3502 L 0 -32 4038 3571 L 0 -97 4075 3571 L -46 -46 4121 3539 L 32 -37 4093 3511 L 0 -65 4204 3539 L -9 9 4204 3525 L -10 5 C -13 0 C -10 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 10 -5 C 13 0 C 10 5 C 9 9 C 5 -5 4236 3571 L 4 5 C -4 5 C -5 -5 C 0 -65 4241 3539 L -5 9 4324 3525 L -14 5 C -14 0 C -13 -5 C -5 -9 C 5 -9 C 9 -5 C 23 -5 C 9 -4 C 5 -9 C 0 -5 C -5 -9 C -14 -5 C -14 0 C -13 5 C -5 9 C 56 0 4351 3511 L 0 9 C -5 10 C -4 4 C -10 5 C -13 0 C -10 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 10 -5 C 13 0 C 10 5 C 9 9 C 0 -65 4439 3539 L 5 14 4439 3511 L 9 9 C 9 5 C 14 0 C 0 -32 4499 3571 L 10 -9 4531 3589 L 9 -14 C 9 -18 C 5 -23 C 0 -19 C -5 -23 C -9 -18 C -9 -14 C -10 -9 C 0 0 0 K 12 0 600 600 L 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 521 C 12 13 C 12 13 C 12 14 C 12 13 C 12 14 C 12 13 C 12 14 C 12 13 C 12 14 C 12 14 C 12 14 C 12 14 C 12 14 C 12 14 C 12 14 C 12 14 C 12 15 C 12 14 C 12 15 C 12 14 C 12 15 C 12 14 C 12 15 C 12 15 C 12 15 C 12 14 C 12 15 C 12 15 C 12 15 C 12 15 C 12 15 C 12 15 C 12 16 C 12 15 C 12 15 C 12 15 C 12 15 C 12 16 C 12 15 C 12 15 C 12 16 C 12 15 C 12 16 C 12 15 C 12 15 C 12 16 C 12 15 C 12 16 C 12 15 C 12 16 C 12 15 C 12 16 C 12 15 C 12 16 C 12 15 C 12 16 C 12 15 C 12 15 C 12 16 C 12 15 C 12 16 C 12 15 C 12 15 C 12 16 C 12 15 C 12 15 C 12 15 C 12 15 C 12 16 C 12 15 C 12 15 C 12 15 C 12 15 C 12 15 C 12 14 C 12 15 C 12 15 C 12 15 C 12 14 C 12 15 C 12 14 C 12 15 C 12 14 C 12 15 C 12 14 C 12 14 C 12 14 C 12 14 C 12 14 C 12 14 C 12 14 C 12 13 C 12 14 C 12 13 C 12 14 C 12 13 C 12 13 C 12 13 C 12 13 C 12 13 C 12 13 C 12 13 C 12 12 C 12 13 C 12 12 C 12 12 C 12 13 C 12 12 C 12 11 C 12 12 C 12 12 C 12 11 C 12 12 C 12 11 C 12 11 C 12 11 C 12 11 C 12 11 C 12 11 C 12 10 C 12 10 C 12 11 C 12 10 C 12 9 C 12 10 C 12 10 C 12 9 C 12 10 C 12 9 C 12 9 C 12 9 C 12 8 C 12 9 C 12 8 C 12 9 C 12 8 C 12 7 C 12 8 C 12 8 C 12 7 C 12 7 C 12 7 C 12 7 C 12 7 C 12 7 C 12 6 C 12 6 C 12 6 C 12 6 C 12 6 C 12 5 C 12 6 C 12 5 C 12 5 C 12 5 C 12 4 C 12 5 C 12 4 C 12 4 C 12 4 C 12 3 C 12 4 C 12 3 C 12 3 C 12 3 C 12 3 C 12 3 C 12 2 C 12 2 C 12 2 C 12 2 C 12 2 C 12 1 C 12 1 C 12 1 C 12 1 C 12 1 C 12 0 C 12 1 C 12 0 C 12 0 C 12 -1 C 12 0 C 12 -1 C 12 -1 C 12 -1 C 12 -1 C 12 -1 C 12 -2 C 12 -2 C 11 -2 C 12 -2 3011 3133 L 12 -2 C 12 -3 C 12 -3 C 12 -3 C 12 -3 C 12 -3 C 12 -4 C 12 -3 C 12 -4 C 12 -4 C 12 -4 C 12 -5 C 12 -4 C 12 -5 C 12 -5 C 12 -5 C 12 -6 C 12 -5 C 12 -6 C 12 -6 C 12 -6 C 12 -6 C 12 -6 C 12 -7 C 12 -7 C 12 -7 C 12 -7 C 12 -7 C 12 -7 C 12 -8 C 12 -8 C 12 -7 C 12 -8 C 12 -9 C 12 -8 C 12 -9 C 12 -8 C 12 -9 C 12 -9 C 12 -9 C 12 -10 C 12 -9 C 12 -10 C 12 -10 C 12 -9 C 12 -10 C 12 -11 C 12 -10 C 12 -10 C 12 -11 C 12 -11 C 12 -11 C 12 -11 C 12 -11 C 12 -11 C 12 -12 C 12 -11 C 12 -12 C 12 -12 C 12 -11 C 12 -12 C 12 -13 C 12 -12 C 12 -12 C 12 -13 C 12 -12 C 12 -13 C 12 -13 C 12 -13 C 12 -13 C 12 -13 C 12 -13 C 12 -13 C 12 -14 C 12 -13 C 12 -14 C 12 -13 C 12 -14 C 12 -14 C 12 -14 C 12 -14 C 12 -14 C 12 -14 C 12 -14 C 12 -15 C 12 -14 C 12 -15 C 12 -14 C 12 -15 C 12 -14 C 12 -15 C 12 -15 C 12 -15 C 12 -14 C 12 -15 C 12 -15 C 12 -15 C 12 -15 C 12 -15 C 12 -16 C 12 -15 C 12 -15 C 12 -15 C 12 -15 C 12 -16 C 12 -15 C 12 -15 C 12 -16 C 12 -15 C 12 -16 C 12 -15 C 12 -15 C 12 -16 C 12 -15 C 12 -16 C 12 -15 C 12 -16 C 12 -15 C 12 -16 C 12 -15 C 12 -16 C 12 -15 C 12 -16 C 12 -15 C 12 -15 C 12 -16 C 12 -15 C 12 -16 C 12 -15 C 12 -15 C 12 -16 C 12 -15 C 12 -15 C 12 -15 C 12 -15 C 12 -16 C 12 -15 C 12 -15 C 12 -15 C 12 -15 C 12 -15 C 12 -15 C 12 -14 C 12 -15 C 12 -15 C 12 -15 C 12 -14 C 12 -15 C 12 -14 C 12 -15 C 12 -14 C 12 -15 C 12 -14 C 12 -14 C 12 -14 C 12 -14 C 12 -14 C 12 -14 C 12 -14 C 12 -14 C 12 -13 C 12 -14 C 12 -13 C 12 -14 C 12 -13 C 12 -14 C 12 -13 C 12 -534 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 0 0 0 K 12 6 600 730 L 12 6 C 12 7 C 12 6 C 12 7 C 12 7 C 12 7 C 12 8 C 12 7 C 12 8 C 12 7 C 12 8 C 12 9 C 12 8 C 12 8 C 12 9 C 12 9 C 12 9 C 12 9 C 12 9 C 12 10 C 12 10 C 12 10 C 12 10 C 12 10 C 12 10 C 12 11 C 12 11 C 12 11 C 12 11 C 12 11 C 12 11 C 12 12 C 12 12 C 12 12 C 12 12 C 12 12 C 12 13 C 12 12 C 12 13 C 12 13 C 12 13 C 12 14 C 12 13 C 12 14 C 12 14 C 12 14 C 12 14 C 12 14 C 12 14 C 12 15 C 12 15 C 12 15 C 12 15 C 12 15 C 12 15 C 12 16 C 12 15 C 12 16 C 12 16 C 12 16 C 12 16 C 12 16 C 12 17 C 12 16 C 12 17 C 12 16 C 12 17 C 12 17 C 12 17 C 12 17 C 12 18 C 12 17 C 12 17 C 12 18 C 12 17 C 12 18 C 12 18 C 12 18 C 12 18 C 12 17 C 12 19 C 12 18 C 12 18 C 12 18 C 12 18 C 12 18 C 12 19 C 12 18 C 12 18 C 12 19 C 12 18 C 12 19 C 12 18 C 12 18 C 12 19 C 12 18 C 12 19 C 12 18 C 12 19 C 12 18 C 12 18 C 12 19 C 12 18 C 12 18 C 12 19 C 12 18 C 12 18 C 12 18 C 12 18 C 12 18 C 12 18 C 12 17 C 12 18 C 12 18 C 12 17 C 12 18 C 12 17 C 12 17 C 12 17 C 12 17 C 12 17 C 12 17 C 12 17 C 12 16 C 12 17 C 12 16 C 12 16 C 12 16 C 12 15 C 12 16 C 12 16 C 12 15 C 12 15 C 12 15 C 12 14 C 12 15 C 12 14 C 12 15 C 12 14 C 12 13 C 12 14 C 12 13 C 12 13 C 12 13 C 12 13 C 12 12 C 12 12 C 12 12 C 12 12 C 12 12 C 12 11 C 12 11 C 12 11 C 12 10 C 12 10 C 12 10 C 12 10 C 12 10 C 12 9 C 12 9 C 12 8 C 12 9 C 12 8 C 12 8 C 12 7 C 12 7 C 12 7 C 12 7 C 12 6 C 12 6 C 12 6 C 12 5 C 12 6 C 12 4 C 12 5 C 12 4 C 12 4 C 12 4 C 12 3 C 12 3 C 12 3 C 12 2 C 12 2 C 12 2 C 12 1 C 12 1 C 12 1 C 12 1 C 12 0 C 12 0 C 12 -1 C 12 -1 C 12 -1 C 12 -1 C 12 -2 C 12 -2 C 12 -2 C 12 -3 C 12 -3 C 11 -3 C 12 -4 3011 3126 L 12 -4 C 12 -4 C 12 -5 C 12 -4 C 12 -6 C 12 -5 C 12 -6 C 12 -6 C 12 -6 C 12 -7 C 12 -7 C 12 -7 C 12 -7 C 12 -8 C 12 -8 C 12 -9 C 12 -8 C 12 -9 C 12 -9 C 12 -10 C 12 -10 C 12 -10 C 12 -10 C 12 -10 C 12 -11 C 12 -11 C 12 -11 C 12 -12 C 12 -12 C 12 -12 C 12 -12 C 12 -12 C 12 -13 C 12 -13 C 12 -13 C 12 -13 C 12 -14 C 12 -13 C 12 -14 C 12 -15 C 12 -14 C 12 -15 C 12 -14 C 12 -15 C 12 -15 C 12 -15 C 12 -16 C 12 -16 C 12 -15 C 12 -16 C 12 -16 C 12 -16 C 12 -17 C 12 -16 C 12 -17 C 12 -17 C 12 -17 C 12 -17 C 12 -17 C 12 -17 C 12 -17 C 12 -18 C 12 -17 C 12 -18 C 12 -18 C 12 -17 C 12 -18 C 12 -18 C 12 -18 C 12 -18 C 12 -18 C 12 -18 C 12 -19 C 12 -18 C 12 -18 C 12 -19 C 12 -18 C 12 -18 C 12 -19 C 12 -18 C 12 -19 C 12 -18 C 12 -19 C 12 -18 C 12 -18 C 12 -19 C 12 -18 C 12 -19 C 12 -18 C 12 -18 C 12 -19 C 12 -18 C 12 -18 C 12 -18 C 12 -18 C 12 -18 C 12 -19 C 12 -17 C 12 -18 C 12 -18 C 12 -18 C 12 -18 C 12 -17 C 12 -18 C 12 -17 C 12 -17 C 12 -18 C 12 -17 C 12 -17 C 12 -17 C 12 -17 C 12 -16 C 12 -17 C 12 -16 C 12 -17 C 12 -16 C 12 -16 C 12 -16 C 12 -16 C 12 -16 C 12 -15 C 12 -16 C 12 -15 C 12 -15 C 12 -15 C 12 -15 C 12 -15 C 12 -15 C 12 -14 C 12 -14 C 12 -14 C 12 -14 C 12 -14 C 12 -14 C 12 -13 C 12 -14 C 12 -13 C 12 -13 C 12 -13 C 12 -12 C 12 -13 C 12 -12 C 12 -12 C 12 -12 C 12 -12 C 12 -12 C 12 -11 C 12 -11 C 12 -11 C 12 -11 C 12 -11 C 12 -11 C 12 -10 C 12 -10 C 12 -10 C 12 -10 C 12 -10 C 12 -10 C 12 -9 C 12 -9 C 12 -9 C 12 -9 C 12 -9 C 12 -8 C 12 -8 C 12 -9 C 12 -8 C 12 -7 C 12 -8 C 12 -7 C 12 -8 C 12 -7 C 12 -7 C 12 -7 C 12 -6 C 12 -7 C 12 -6 C 12 -6 C 12 -6 C 12 -6 C 12 -6 C 12 -5 C 12 -6 C 12 -5 C 12 -5 C 12 -5 C 12 -5 C 12 -4 C 12 -5 C 12 -4 C 12 -4 C 12 -5 C 12 -3 C 12 -4 C 12 -4 C 12 -4 C 12 -3 C 12 -41 C 0 0 0 K 0 -97 3789 2936 L -10 9 3789 2890 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 10 9 C 0 -97 3826 2936 L -46 -46 3872 2904 L 32 -37 3844 2876 L 83 0 3904 2895 L 83 0 3904 2867 L 50 0 4029 2936 L -27 -37 C 13 0 C 10 -4 C 4 -5 C 5 -14 C 0 -9 C -5 -14 C -9 -9 C -14 -5 C -14 0 C -13 5 C -5 5 C -5 9 C -5 -5 4121 2849 L 5 -5 C 4 5 C -4 5 C -13 -4 4185 2936 L -10 -14 C -4 -23 C 0 -14 C 4 -23 C 10 -14 C 13 -5 C 10 0 C 14 5 C 9 14 C 4 23 C 0 14 C -4 23 C -9 14 C -14 4 C -10 0 C 0 -97 3789 1562 L -10 9 3789 1516 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 10 9 C 0 -97 3826 1562 L -46 -46 3872 1530 L 32 -37 3844 1502 L 83 0 3904 1520 L 83 0 3904 1493 L -4 9 4079 1548 L -14 5 C -9 0 C -14 -5 C -9 -13 C -5 -24 C 0 -23 C 5 -18 C 9 -9 C 14 -5 C 4 0 C 14 5 C 9 9 C 5 14 C 0 4 C -5 14 C -9 9 C -14 5 C -4 0 C -14 -5 C -9 -9 C -5 -14 C -5 -4 4121 1474 L 5 -5 C 4 5 C -4 4 C -13 -5 4185 1562 L -10 -13 C -4 -24 C 0 -13 C 4 -23 C 10 -14 C 13 -5 C 10 0 C 14 5 C 9 14 C 4 23 C 0 13 C -4 24 C -9 13 C -14 5 C -10 0 C 0 0 0 K PGPLOT restore showpage %%PageTrailer %%PageBoundingBox: 86 86 375 519 %%Trailer %%BoundingBox: 86 86 375 519 %%DocumentFonts: %%Pages: 1 %%EOF ifeffit-1.2.11d/doc/RefMan/figs/plot_arrows.ps0000644000175000017500000005231710771740460020152 0ustar segresegre%!PS-Adobe-3.0 EPSF-3.0 %%For: newville %%Title: PGPLOT PostScript plot %%Creator: PGPLOT [PSDRIV 6.6] %%CreationDate: 31-Mar-2002 22:56 %%BoundingBox: (atend) %%DocumentFonts: (atend) %%LanguageLevel: 1 %%Orientation: Landscape %%Pages: (atend) %%EndComments %%BeginProlog /L {moveto rlineto currentpoint stroke moveto} bind def /C {rlineto currentpoint stroke moveto} bind def /D {moveto 0 0 rlineto currentpoint stroke moveto} bind def /LW {5 mul setlinewidth} bind def /BP {newpath moveto} bind def /LP /rlineto load def /EP {rlineto closepath eofill} bind def /MB {gsave translate MFAC dup scale 1 setlinewidth 2 setlinecap 0 setlinejoin newpath} bind def /ME /grestore load def /CC {0 360 arc stroke} bind def /FC {0 360 arc fill} bind def /G {1024 div setgray} bind def /K {3 -1 roll 1024 div 3 -1 roll 1024 div 3 -1 roll 1024 div setrgbcolor} bind def % Uncomment next line to convert color to grey shades %/K {3 -1 roll 3413 div 3 -1 roll 1739 div 3 -1 roll 9309 div add add setgray} bind def %%EndProlog %%BeginSetup /#copies 1 def %%EndSetup %%Page: 1 1 %%BeginPageSetup /PGPLOT save def 0.072 0.072 scale 4849 250 translate 90 rotate 1 setlinejoin 1 setlinecap 1 LW 1 %%EndPageSetup %%PageBoundingBox: (atend) 1024 1024 1024 K 1024 1024 1024 K 1 LW 0 0 BP 7499 0 LP 0 4499 LP -7499 0 EP 1024 1024 1024 K 1024 1024 1024 K 2 LW 0 0 0 K 7491 0 4 4 L 0 4491 C -7491 0 C 0 -4491 C 0 1 C 0 1 79 4 L 0 1 154 4 L 0 1 229 4 L 0 1 304 4 L 0 1 379 4 L 0 1 454 4 L 0 1 529 4 L 0 1 604 4 L 0 1 679 4 L 0 1 753 4 L 0 1 828 4 L 0 1 903 4 L 0 1 978 4 L 0 1 1053 4 L 0 1 1128 4 L 0 1 1203 4 L 0 1 1278 4 L 0 1 1353 4 L 0 1 1428 4 L 0 1 1502 4 L 0 1 1577 4 L 0 1 1652 4 L 0 1 1727 4 L 0 1 1802 4 L 0 1 1877 4 L 0 1 1952 4 L 0 1 2027 4 L 0 1 2102 4 L 0 1 2177 4 L 0 1 2251 4 L 0 1 2326 4 L 0 1 2401 4 L 0 1 2476 4 L 0 1 2551 4 L 0 1 2626 4 L 0 1 2701 4 L 0 1 2776 4 L 0 1 2851 4 L 0 1 2926 4 L 0 1 3000 4 L 0 1 3075 4 L 0 1 3150 4 L 0 1 3225 4 L 0 1 3300 4 L 0 1 3375 4 L 0 1 3450 4 L 0 1 3525 4 L 0 1 3600 4 L 0 1 3675 4 L 0 1 3749 4 L 0 1 3824 4 L 0 1 3899 4 L 0 1 3974 4 L 0 1 4049 4 L 0 1 4124 4 L 0 1 4199 4 L 0 1 4274 4 L 0 1 4349 4 L 0 1 4424 4 L 0 1 4499 4 L 0 1 4573 4 L 0 1 4648 4 L 0 1 4723 4 L 0 1 4798 4 L 0 1 4873 4 L 0 1 4948 4 L 0 1 5023 4 L 0 1 5098 4 L 0 1 5173 4 L 0 1 5248 4 L 0 1 5322 4 L 0 1 5397 4 L 0 1 5472 4 L 0 1 5547 4 L 0 1 5622 4 L 0 1 5697 4 L 0 1 5772 4 L 0 1 5847 4 L 0 1 5922 4 L 0 1 5997 4 L 0 1 6071 4 L 0 1 6146 4 L 0 1 6221 4 L 0 1 6296 4 L 0 1 6371 4 L 0 1 6446 4 L 0 1 6521 4 L 0 1 6596 4 L 0 1 6671 4 L 0 1 6746 4 L 0 1 6820 4 L 0 1 6895 4 L 0 1 6970 4 L 0 1 7045 4 L 0 1 7120 4 L 0 1 7195 4 L 0 1 7270 4 L 0 1 7345 4 L 0 1 7420 4 L 0 1 7495 4 L 0 1 4 4494 L 0 1 79 4494 L 0 1 154 4494 L 0 1 229 4494 L 0 1 304 4494 L 0 1 379 4494 L 0 1 454 4494 L 0 1 529 4494 L 0 1 604 4494 L 0 1 679 4494 L 0 1 753 4494 L 0 1 828 4494 L 0 1 903 4494 L 0 1 978 4494 L 0 1 1053 4494 L 0 1 1128 4494 L 0 1 1203 4494 L 0 1 1278 4494 L 0 1 1353 4494 L 0 1 1428 4494 L 0 1 1502 4494 L 0 1 1577 4494 L 0 1 1652 4494 L 0 1 1727 4494 L 0 1 1802 4494 L 0 1 1877 4494 L 0 1 1952 4494 L 0 1 2027 4494 L 0 1 2102 4494 L 0 1 2177 4494 L 0 1 2251 4494 L 0 1 2326 4494 L 0 1 2401 4494 L 0 1 2476 4494 L 0 1 2551 4494 L 0 1 2626 4494 L 0 1 2701 4494 L 0 1 2776 4494 L 0 1 2851 4494 L 0 1 2926 4494 L 0 1 3000 4494 L 0 1 3075 4494 L 0 1 3150 4494 L 0 1 3225 4494 L 0 1 3300 4494 L 0 1 3375 4494 L 0 1 3450 4494 L 0 1 3525 4494 L 0 1 3600 4494 L 0 1 3675 4494 L 0 1 3749 4494 L 0 1 3824 4494 L 0 1 3899 4494 L 0 1 3974 4494 L 0 1 4049 4494 L 0 1 4124 4494 L 0 1 4199 4494 L 0 1 4274 4494 L 0 1 4349 4494 L 0 1 4424 4494 L 0 1 4499 4494 L 0 1 4573 4494 L 0 1 4648 4494 L 0 1 4723 4494 L 0 1 4798 4494 L 0 1 4873 4494 L 0 1 4948 4494 L 0 1 5023 4494 L 0 1 5098 4494 L 0 1 5173 4494 L 0 1 5248 4494 L 0 1 5322 4494 L 0 1 5397 4494 L 0 1 5472 4494 L 0 1 5547 4494 L 0 1 5622 4494 L 0 1 5697 4494 L 0 1 5772 4494 L 0 1 5847 4494 L 0 1 5922 4494 L 0 1 5997 4494 L 0 1 6071 4494 L 0 1 6146 4494 L 0 1 6221 4494 L 0 1 6296 4494 L 0 1 6371 4494 L 0 1 6446 4494 L 0 1 6521 4494 L 0 1 6596 4494 L 0 1 6671 4494 L 0 1 6746 4494 L 0 1 6820 4494 L 0 1 6895 4494 L 0 1 6970 4494 L 0 1 7045 4494 L 0 1 7120 4494 L 0 1 7195 4494 L 0 1 7270 4494 L 0 1 7345 4494 L 0 1 7420 4494 L 0 1 7495 4494 L 0 0 4 4 L 0 -1 C 1 0 C 0 1 C -1 0 C 0 0 379 4 L 0 -1 C 0 0 753 4 L 0 -1 C 0 0 754 4 L 0 -1 C 0 1 C 0 0 1128 4 L 0 -1 C -1 0 1129 4 L 1 0 C 0 -1 C -1 0 C 0 0 1502 4 L 0 -1 C 0 0 1503 4 L 0 -1 C 0 1 C 0 0 1876 4 L 1 0 C 0 -1 C -1 0 C 1 0 C -1 0 1878 4 L 1 0 C 0 -1 C -1 0 C 0 0 2251 4 L 0 -1 C 0 0 2252 4 L 0 -1 C 0 1 C 1 0 2625 4 L 0 -1 C -1 0 C -1 0 2627 4 L 1 0 C 0 -1 C -1 0 C 0 -1 3000 4 L 0 -1 3000 4 L 0 0 3001 4 L 0 -1 C 0 1 C -1 -1 3375 4 L 1 0 C 0 -1 3375 4 L -1 0 3376 4 L 1 0 C 0 -1 C -1 0 C 0 0 3749 4 L 0 -1 C 0 0 3750 4 L 0 -1 C 0 1 C -1 0 4124 4 L 1 0 C 0 -1 C -1 0 C -1 0 4125 4 L 1 0 C 0 -1 C -1 0 C 0 0 4498 4 L 0 -1 C 0 1 C 0 -1 C 0 0 4499 4 L 0 -1 C 0 1 C 0 0 4873 4 L -1 0 C 0 -1 C 1 0 C 0 1 C -1 -1 C -1 0 4874 4 L 1 0 C 0 -1 C -1 0 C 0 -1 5247 4 L 0 0 5247 4 L 0 0 5248 4 L 0 -1 C 0 1 C 0 -1 5622 4 L 1 0 5621 4 L -1 0 5623 4 L 1 0 C 0 -1 C -1 0 C 0 0 5996 4 L 0 -1 C 0 1 C 0 0 5997 4 L 0 -1 C 0 1 C -1 0 6371 4 L 1 0 C 0 -1 C -1 0 C 1 1 C -1 0 6372 4 L 1 0 C 0 -1 C -1 0 C 0 0 6745 4 L 0 -1 C 0 1 C 0 -1 C 0 0 6746 4 L 0 -1 C 0 1 C 0 0 7120 4 L 0 -1 C -1 1 C 1 0 C 0 -1 C -1 0 C -1 0 7121 4 L 1 0 C 0 -1 C -1 0 C 0 0 7494 4 L 0 -1 C 0 0 7494 4 L 0 -1 C 1 0 C 0 1 C -1 0 C 0 0 7495 4 L 0 -1 C 0 1 C 1 0 4 4 L 1 0 4 218 L 1 0 4 432 L 1 0 4 646 L 1 0 4 860 L 1 0 4 1074 L 1 0 4 1287 L 1 0 4 1501 L 1 0 4 1715 L 1 0 4 1929 L 1 0 4 2143 L 1 0 4 2356 L 1 0 4 2570 L 1 0 4 2784 L 1 0 4 2998 L 1 0 4 3212 L 1 0 4 3425 L 1 0 4 3639 L 1 0 4 3853 L 1 0 4 4067 L 1 0 4 4281 L 1 0 4 4495 L 1 0 7494 4 L 1 0 7494 218 L 1 0 7494 432 L 1 0 7494 646 L 1 0 7494 860 L 1 0 7494 1074 L 1 0 7494 1287 L 1 0 7494 1501 L 1 0 7494 1715 L 1 0 7494 1929 L 1 0 7494 2143 L 1 0 7494 2356 L 1 0 7494 2570 L 1 0 7494 2784 L 1 0 7494 2998 L 1 0 7494 3212 L 1 0 7494 3425 L 1 0 7494 3639 L 1 0 7494 3853 L 1 0 7494 4067 L 1 0 7494 4281 L 1 0 7494 4495 L 0 1 3 3 L 0 1 C 1 0 C 0 0 3 5 L 1 0 C 0 1 C -1 0 C 0 -1 C 0 1 3 431 L 0 1 C 1 0 C 0 -1 C -1 0 C 0 1 C 0 -1 C 0 1 3 859 L 1 0 C -1 0 C 0 0 3 1287 L 0 0 3 1288 L 1 0 C 0 1 3 1714 L 0 1 C 1 -1 C 0 1 C 0 -1 3 2143 L 1 0 C 0 1 C -1 0 C 0 0 3 2570 L 1 0 C 0 0 3 2998 L 1 0 C 0 0 3 3426 L 0 -1 C 1 0 C 0 1 C -1 0 C 0 -1 C 0 0 3 3853 L 1 0 C -1 0 C 0 0 3 4280 L 1 0 C 0 0 3 4281 L 1 0 C -1 0 C 1024 1024 1024 K 75 223 4 2143 L 75 221 C 75 216 C 75 209 C 75 200 C 75 187 C 75 174 C 75 159 C 75 140 C 74 122 C 75 102 C 75 80 C 75 58 C 75 35 C 75 12 C 75 -12 C 75 -35 C 75 -58 C 75 -80 C 74 -102 C 75 -122 C 75 -140 C 75 -159 C 75 -174 C 75 -187 C 75 -200 C 75 -209 C 75 -216 C 75 -221 C 74 -223 C 75 -224 C 75 -221 C 75 -216 C 75 -209 C 75 -199 C 75 -188 C 75 -174 C 75 -158 C 75 -141 C 74 -122 C 75 -102 C 75 -80 C 75 -58 C 75 -35 C 75 -12 C 75 12 C 75 35 C 75 58 C 75 80 C 74 102 C 75 122 C 75 141 C 75 158 C 75 174 C 75 188 C 75 199 C 75 209 C 75 216 C 75 221 C 75 224 C 74 223 C 75 221 C 75 216 C 75 209 C 75 200 C 75 187 C 75 174 C 75 159 C 75 140 C 75 122 C 74 102 C 75 80 C 75 58 C 75 35 C 75 12 C 75 -12 C 75 -35 C 75 -58 C 75 -80 C 75 -102 C 74 -122 C 75 -140 C 75 -159 C 75 -174 C 75 -187 C 75 -200 C 75 -209 C 75 -216 C 75 -221 C 75 -223 C 74 -224 C 75 -221 C 75 -216 C 75 -209 C 75 -199 C 75 -188 C 75 -174 C 75 -158 C 75 -141 C 75 -122 C 0 0 0 K 0 -123 178 4149 L 12 11 178 4132 L 11 6 C 18 0 C 12 -6 C 12 -11 C 5 -18 C 0 -12 C -5 -17 C -12 -12 C -12 -6 C -18 0 C -11 6 C -12 12 C 0 -123 290 4190 L 0 -82 401 4149 L -11 11 401 4132 L -12 6 C -18 0 C -12 -6 C -11 -11 C -6 -18 C 0 -12 C 6 -17 C 11 -12 C 12 -6 C 18 0 C 12 6 C 11 12 C 5 -5 443 4190 L 6 5 C -6 6 C -5 -6 C 0 -82 448 4149 L 0 -82 496 4149 L 17 17 496 4126 L 12 6 C 18 0 C 11 -6 C 6 -17 C 0 -59 C 0 -82 2650 4149 L 17 17 2650 4126 L 12 6 C 18 0 C 11 -6 C 6 -17 C 0 -59 C -12 -6 2785 4149 L -12 -11 C -6 -18 C 0 -12 C 6 -17 C 12 -12 C 12 -6 C 17 0 C 12 6 C 12 12 C 6 17 C 0 12 C -6 18 C -12 11 C -12 6 C -17 0 C 105 0 2850 4055 L 0 -123 2985 4190 L 18 17 2985 4126 L 11 6 C 18 0 C 12 -6 C 6 -17 C 0 -59 C 70 0 3091 4114 L 0 12 C -6 11 C -5 6 C -12 6 C -18 0 C -12 -6 C -11 -11 C -6 -18 C 0 -12 C 6 -17 C 11 -12 C 12 -6 C 18 0 C 12 6 C 11 12 C 0 -82 3267 4149 L -11 11 3267 4132 L -12 6 C -18 0 C -12 -6 C -11 -11 C -6 -18 C 0 -12 C 6 -17 C 11 -12 C 12 -6 C 18 0 C 12 6 C 11 12 C 0 -123 3379 4190 L -12 11 3379 4132 L -11 6 C -18 0 C -12 -6 C -12 -11 C -6 -18 C 0 -12 C 6 -17 C 12 -12 C 12 -6 C 18 0 C 11 6 C 12 12 C 106 0 3426 4137 L 106 0 3426 4102 L 12 6 3591 4167 L 17 17 C 0 -123 C -12 -6 5295 4149 L -12 -11 C -6 -18 C 0 -12 C 6 -17 C 12 -12 C 12 -6 C 17 0 C 12 6 C 12 12 C 6 17 C 0 12 C -6 18 C -12 11 C -12 6 C -17 0 C 0 -59 5383 4149 L 6 -17 C 11 -6 C 18 0 C 12 6 C 18 17 C 0 -82 5448 4149 L 0 -100 5500 4190 L 6 -17 C 12 -6 C 12 0 C 41 0 5483 4149 L 0 -123 5565 4190 L 6 -5 5606 4190 L 6 5 C -6 6 C -6 -6 C 0 -82 5612 4149 L 0 -82 5659 4149 L 18 17 5659 4126 L 12 6 C 17 0 C 12 -6 C 6 -17 C 0 -59 C 71 0 5765 4114 L 0 12 C -6 11 C -6 6 C -12 6 C -17 0 C -12 -6 C -12 -11 C -6 -18 C 0 -12 C 6 -17 C 12 -12 C 12 -6 C 17 0 C 12 6 C 12 12 C 106 0 5877 4137 L 106 0 5877 4102 L 12 6 6042 4167 L 17 17 C 0 -123 C 0 -123 178 3335 L 12 12 178 3276 L 11 6 C 18 0 C 12 -6 C 12 -12 C 5 -17 C 0 -12 C -5 -18 C -12 -11 C -12 -6 C -18 0 C -11 6 C -12 11 C 0 -82 354 3294 L -11 12 354 3276 L -12 6 C -18 0 C -12 -6 C -11 -12 C -6 -17 C 0 -12 C 6 -18 C 11 -11 C 12 -6 C 18 0 C 12 6 C 11 11 C 0 -82 401 3294 L 6 17 401 3259 L 12 12 C 12 6 C 17 0 C 0 -123 478 3335 L 12 12 478 3276 L 11 6 C 18 0 C 12 -6 C 12 -12 C 5 -17 C 0 -12 C -5 -18 C -12 -11 C -12 -6 C -18 0 C -11 6 C -12 11 C 106 0 590 3282 L 106 0 590 3247 L 0 6 743 3306 L 6 11 C 5 6 C 12 6 C 24 0 C 11 -6 C 6 -6 C 6 -11 C 0 -12 C -6 -12 C -11 -18 C -59 -58 C 82 0 C 0 -123 2650 3335 L 11 12 2650 3276 L 12 6 C 18 0 C 11 -6 C 12 -12 C 6 -17 C 0 -12 C -6 -18 C -12 -11 C -11 -6 C -18 0 C -12 6 C -11 11 C 0 -82 2826 3294 L -12 12 2826 3276 L -12 6 C -17 0 C -12 -6 C -12 -12 C -6 -17 C 0 -12 C 6 -18 C 12 -11 C 12 -6 C 17 0 C 12 6 C 12 11 C 0 -82 2873 3294 L 6 17 2873 3259 L 12 12 C 12 6 C 17 0 C 0 -123 2950 3335 L 11 12 2950 3276 L 12 6 C 18 0 C 12 -6 C 11 -12 C 6 -17 C 0 -12 C -6 -18 C -11 -11 C -12 -6 C -18 0 C -12 6 C -11 11 C 106 0 3061 3282 L 106 0 3061 3247 L -18 -6 3244 3335 L -12 -17 C -6 -30 C 0 -17 C 6 -30 C 12 -17 C 18 -6 C 12 0 C 17 6 C 12 17 C 6 30 C 0 17 C -6 30 C -12 17 C -17 6 C -12 0 C 0 -123 5271 3335 L 12 12 5271 3276 L 12 6 C 17 0 C 12 -6 C 12 -12 C 6 -17 C 0 -12 C -6 -18 C -12 -11 C -12 -6 C -17 0 C -12 6 C -12 11 C 0 -82 5448 3294 L -12 12 5448 3276 L -12 6 C -18 0 C -11 -6 C -12 -12 C -6 -17 C 0 -12 C 6 -18 C 12 -11 C 11 -6 C 18 0 C 12 6 C 12 11 C 0 -82 5495 3294 L 5 17 5495 3259 L 12 12 C 12 6 C 18 0 C 0 -123 5571 3335 L 12 12 5571 3276 L 12 6 C 17 0 C 12 -6 C 12 -12 C 6 -17 C 0 -12 C -6 -18 C -12 -11 C -12 -6 C -17 0 C -12 6 C -12 11 C 106 0 5683 3282 L 106 0 5683 3247 L -17 -6 5865 3335 L -12 -17 C -6 -30 C 0 -17 C 6 -30 C 12 -17 C 17 -6 C 12 0 C 18 6 C 11 17 C 6 30 C 0 17 C -6 30 C -11 17 C -18 6 C -12 0 C -6 -6 5965 3218 L -6 6 C 6 5 C 6 -5 C 0 -12 C -6 -12 C -6 -6 C -12 -6 6036 3294 L -12 -12 C -6 -17 C 0 -12 C 6 -18 C 12 -11 C 12 -6 C 18 0 C 11 6 C 12 11 C 6 18 C 0 12 C -6 17 C -12 12 C -11 6 C -18 0 C 0 -59 6124 3294 L 6 -17 C 12 -6 C 17 0 C 12 6 C 18 17 C 0 -82 6189 3294 L 0 -100 6242 3335 L 6 -17 C 11 -6 C 12 0 C 41 0 6224 3294 L 0 -123 6306 3335 L 6 -6 6348 3335 L 5 6 C -5 6 C -6 -6 C 0 -82 6354 3294 L 0 -82 6401 3294 L 17 18 6401 3270 L 12 6 C 18 0 C 11 -6 C 6 -18 C 0 -58 C 70 0 6507 3259 L 0 11 C -6 12 C -6 6 C -11 6 C -18 0 C -12 -6 C -12 -12 C -5 -17 C 0 -12 C 5 -18 C 12 -11 C 12 -6 C 18 0 C 11 6 C 12 11 C 106 0 6618 3282 L 106 0 6618 3247 L 12 6 6783 3312 L 17 17 C 0 -123 C 0 -83 243 2439 L -12 12 243 2421 L -12 6 C -18 0 C -11 -6 C -12 -12 C -6 -18 C 0 -11 C 6 -18 C 12 -12 C 11 -6 C 18 0 C 12 6 C 12 12 C 0 -83 290 2439 L 17 18 290 2415 L 12 6 C 18 0 C 11 -6 C 6 -18 C 0 -59 C 0 -94 466 2439 L -6 -18 C -6 -6 C -11 -6 C -18 0 C -12 6 C -12 12 466 2421 L -11 6 C -18 0 C -12 -6 C -12 -12 C -5 -18 C 0 -11 C 5 -18 C 12 -12 C 12 -6 C 18 0 C 11 6 C 12 12 C 0 -124 513 2480 L 71 0 554 2403 L 0 12 C -6 12 C -6 6 C -12 6 C -17 0 C -12 -6 C -12 -12 C -6 -18 C 0 -11 C 6 -18 C 12 -12 C 12 -6 C 17 0 C 12 6 C 12 12 C 106 0 666 2427 L 106 0 666 2392 L 0 5 819 2451 L 6 12 C 6 6 C 12 6 C 23 0 C 12 -6 C 6 -6 C 6 -12 C 0 -11 C -6 -12 C -12 -18 C -59 -59 C 83 0 C -17 -6 966 2480 L -12 -18 C -6 -29 C 0 -18 C 6 -29 C 12 -18 C 17 -6 C 12 0 C 18 6 C 11 18 C 6 29 C 0 18 C -6 29 C -11 18 C -18 6 C -12 0 C 0 -83 2714 2439 L -12 12 2714 2421 L -11 6 C -18 0 C -12 -6 C -11 -12 C -6 -18 C 0 -11 C 6 -18 C 11 -12 C 12 -6 C 18 0 C 11 6 C 12 12 C 0 -83 2761 2439 L 18 18 2761 2415 L 12 6 C 17 0 C 12 -6 C 6 -18 C 0 -59 C 0 -94 2938 2439 L -6 -18 C -6 -6 C -12 -6 C -17 0 C -12 6 C -12 12 2938 2421 L -12 6 C -17 0 C -12 -6 C -12 -12 C -6 -18 C 0 -11 C 6 -18 C 12 -12 C 12 -6 C 17 0 C 12 6 C 12 12 C 0 -124 2985 2480 L 71 0 3026 2403 L 0 12 C -6 12 C -6 6 C -12 6 C -18 0 C -11 -6 C -12 -12 C -6 -18 C 0 -11 C 6 -18 C 12 -12 C 11 -6 C 18 0 C 12 6 C 12 12 C 106 0 3138 2427 L 106 0 3138 2392 L -59 0 3356 2480 L -6 -53 C 6 6 C 17 6 C 18 0 C 18 -6 C 11 -12 C 6 -18 C 0 -11 C -6 -18 C -11 -12 C -18 -6 C -18 0 C -17 6 C -6 6 C -6 12 C -18 -6 3438 2480 L -12 -18 C -5 -29 C 0 -18 C 5 -29 C 12 -18 C 18 -6 C 12 0 C 17 6 C 12 18 C 6 29 C 0 18 C -6 29 C -12 18 C -17 6 C -12 0 C 0 -124 5271 2480 L 12 12 5271 2421 L 12 6 C 17 0 C 12 -6 C 12 -12 C 6 -18 C 0 -11 C -6 -18 C -12 -12 C -12 -6 C -17 0 C -12 6 C -12 12 C 0 -83 5448 2439 L -12 12 5448 2421 L -12 6 C -18 0 C -11 -6 C -12 -12 C -6 -18 C 0 -11 C 6 -18 C 12 -12 C 11 -6 C 18 0 C 12 6 C 12 12 C 0 -83 5495 2439 L 5 18 5495 2403 L 12 12 C 12 6 C 18 0 C 0 -124 5571 2480 L 12 12 5571 2421 L 12 6 C 17 0 C 12 -6 C 12 -12 C 6 -18 C 0 -11 C -6 -18 C -12 -12 C -12 -6 C -17 0 C -12 6 C -12 12 C 106 0 5683 2427 L 106 0 5683 2392 L -17 -6 5865 2480 L -12 -18 C -6 -29 C 0 -18 C 6 -29 C 12 -18 C 17 -6 C 12 0 C 18 6 C 11 18 C 6 29 C 0 18 C -6 29 C -11 18 C -18 6 C -12 0 C -6 -6 5965 2362 L -6 6 C 6 6 C 6 -6 C 0 -11 C -6 -12 C -6 -6 C 0 -83 6077 2439 L -12 12 6077 2421 L -11 6 C -18 0 C -12 -6 C -12 -12 C -6 -18 C 0 -11 C 6 -18 C 12 -12 C 12 -6 C 18 0 C 11 6 C 12 12 C 0 -83 6124 2439 L 18 18 6124 2415 L 12 6 C 17 0 C 12 -6 C 6 -18 C 0 -59 C 0 -94 6301 2439 L -6 -18 C -6 -6 C -12 -6 C -18 0 C -11 6 C -12 12 6301 2421 L -12 6 C -18 0 C -11 -6 C -12 -12 C -6 -18 C 0 -11 C 6 -18 C 12 -12 C 11 -6 C 18 0 C 12 6 C 12 12 C 0 -124 6348 2480 L 70 0 6389 2403 L 0 12 C -5 12 C -6 6 C -12 6 C -18 0 C -11 -6 C -12 -12 C -6 -18 C 0 -11 C 6 -18 C 12 -12 C 11 -6 C 18 0 C 12 6 C 11 12 C 106 0 6501 2427 L 106 0 6501 2392 L 12 6 6665 2456 L 18 18 C 0 -124 C -18 -6 6801 2480 L -12 -18 C -6 -29 C 0 -18 C 6 -29 C 12 -18 C 18 -6 C 11 0 C 18 6 C 12 18 C 6 29 C 0 18 C -6 29 C -12 18 C -18 6 C -11 0 C -17 -6 6918 2480 L -12 -18 C -6 -29 C 0 -18 C 6 -29 C 12 -18 C 17 -6 C 12 0 C 18 6 C 12 18 C 5 29 C 0 18 C -5 29 C -12 18 C -18 6 C -12 0 C -6 12 237 1566 L -18 6 C -18 0 C -17 -6 C -6 -12 C 6 -12 C 12 -6 C 29 -6 C 12 -6 C 6 -11 C 0 -6 C -6 -12 C -18 -6 C -18 0 C -17 6 C -6 12 C 6 -6 272 1625 L 6 6 C -6 6 C -6 -6 C 0 -83 278 1584 L -65 -83 384 1584 L 65 0 319 1584 L 65 0 319 1501 L 71 0 419 1548 L 0 12 C -6 12 C -6 6 C -12 6 C -18 0 C -11 -6 C -12 -12 C -6 -18 C 0 -12 C 6 -17 C 12 -12 C 11 -6 C 18 0 C 12 6 C 12 12 C 106 0 531 1572 L 106 0 531 1536 L 11 6 696 1601 L 18 18 C 0 -124 C -6 12 2708 1566 L -17 6 C -18 0 C -17 -6 C -6 -12 C 6 -12 C 11 -6 C 30 -6 C 11 -6 C 6 -11 C 0 -6 C -6 -12 C -17 -6 C -18 0 C -17 6 C -6 12 C 6 -6 2744 1625 L 5 6 C -5 6 C -6 -6 C 0 -83 2750 1584 L -64 -83 2855 1584 L 64 0 2791 1584 L 64 0 2791 1501 L 70 0 2891 1548 L 0 12 C -6 12 C -5 6 C -12 6 C -18 0 C -12 -6 C -11 -12 C -6 -18 C 0 -12 C 6 -17 C 11 -12 C 12 -6 C 18 0 C 12 6 C 11 12 C 105 0 3003 1572 L 105 0 3003 1536 L 0 6 3155 1595 L 6 12 C 6 6 C 12 6 C 24 0 C 11 -6 C 6 -6 C 6 -12 C 0 -12 C -6 -11 C -12 -18 C -58 -59 C 82 0 C -6 12 5330 1566 L -18 6 C -17 0 C -18 -6 C -6 -12 C 6 -12 C 12 -6 C 29 -6 C 12 -6 C 6 -11 C 0 -6 C -6 -12 C -18 -6 C -17 0 C -18 6 C -6 12 C 6 -6 5365 1625 L 6 6 C -6 6 C -6 -6 C 0 -83 5371 1584 L -65 -83 5477 1584 L 65 0 5412 1584 L 65 0 5412 1501 L 71 0 5512 1548 L 0 12 C -6 12 C -6 6 C -12 6 C -17 0 C -12 -6 C -12 -12 C -6 -18 C 0 -12 C 6 -17 C 12 -12 C 12 -6 C 17 0 C 12 6 C 12 12 C 106 0 5624 1572 L 106 0 5624 1536 L -59 0 5842 1625 L -6 -53 C 6 6 C 18 6 C 17 0 C 18 -6 C 12 -12 C 5 -18 C 0 -12 C -5 -17 C -12 -12 C -18 -6 C -17 0 C -18 6 C -6 6 C -6 12 C -6 11 237 711 L -18 6 C -18 0 C -17 -6 C -6 -11 C 6 -12 C 12 -6 C 29 -6 C 12 -6 C 6 -12 C 0 -5 C -6 -12 C -18 -6 C -18 0 C -17 6 C -6 12 C 6 -5 272 769 L 6 5 C -6 6 C -6 -6 C 0 -82 278 728 L -65 -82 384 728 L 65 0 319 728 L 65 0 319 646 L 71 0 419 693 L 0 12 C -6 12 C -6 5 C -12 6 C -18 0 C -11 -6 C -12 -11 C -6 -18 C 0 -12 C 6 -17 C 12 -12 C 11 -6 C 18 0 C 12 6 C 12 12 C 106 0 531 717 L 106 0 531 681 L -59 -82 737 769 L 88 0 C 0 -123 737 769 L -6 -6 813 652 L -6 6 C 6 6 C 6 -6 C 0 -12 C -6 -12 C -6 -6 C 0 -123 860 769 L 12 11 860 711 L 12 6 C 17 0 C 12 -6 C 12 -11 C 6 -18 C 0 -12 C -6 -17 C -12 -12 C -12 -6 C -17 0 C -12 6 C -12 12 C 0 -82 1037 728 L -12 11 1037 711 L -12 6 C -17 0 C -12 -6 C -12 -11 C -6 -18 C 0 -12 C 6 -17 C 12 -12 C 12 -6 C 17 0 C 12 6 C 12 12 C 0 -82 1084 728 L 6 18 1084 693 L 12 11 C 11 6 C 18 0 C 0 -123 1160 769 L 12 11 1160 711 L 12 6 C 18 0 C 11 -6 C 12 -11 C 6 -18 C 0 -12 C -6 -17 C -12 -12 C -11 -6 C -18 0 C -12 6 C -12 12 C 106 0 1272 717 L 106 0 1272 681 L 12 6 1437 746 L 17 17 C 0 -123 C -6 -6 1549 658 L 6 -6 C 6 6 C -6 6 C -59 0 1666 769 L -5 -52 C 5 5 C 18 6 C 18 0 C 17 -6 C 12 -11 C 6 -18 C 0 -12 C -6 -17 C -12 -12 C -17 -6 C -18 0 C -18 6 C -5 6 C -6 11 C -6 11 2708 711 L -17 6 C -18 0 C -17 -6 C -6 -11 C 6 -12 C 11 -6 C 30 -6 C 11 -6 C 6 -12 C 0 -5 C -6 -12 C -17 -6 C -18 0 C -17 6 C -6 12 C 6 -5 2744 769 L 5 5 C -5 6 C -6 -6 C 0 -82 2750 728 L -64 -82 2855 728 L 64 0 2791 728 L 64 0 2791 646 L 70 0 2891 693 L 0 12 C -6 12 C -5 5 C -12 6 C -18 0 C -12 -6 C -11 -11 C -6 -18 C 0 -12 C 6 -17 C 11 -12 C 12 -6 C 18 0 C 12 6 C 11 12 C 105 0 3003 717 L 105 0 3003 681 L 65 0 3161 769 L -35 -47 C 17 0 C 12 -5 C 6 -6 C 6 -18 C 0 -12 C -6 -17 C -12 -12 C -17 -6 C -18 0 C -18 6 C -6 6 C -5 11 C -6 -6 3285 652 L -6 6 C 6 6 C 6 -6 C 0 -12 C -6 -12 C -6 -6 C 0 -82 3397 728 L -12 11 3397 711 L -12 6 C -17 0 C -12 -6 C -12 -11 C -6 -18 C 0 -12 C 6 -17 C 12 -12 C 12 -6 C 17 0 C 12 6 C 12 12 C 0 -82 3444 728 L 17 17 3444 705 L 12 6 C 18 0 C 12 -6 C 5 -17 C 0 -59 C 0 -94 3620 728 L -6 -17 C -5 -6 C -12 -6 C -18 0 C -12 6 C -11 11 3620 711 L -12 6 C -18 0 C -12 -6 C -11 -11 C -6 -18 C 0 -12 C 6 -17 C 11 -12 C 12 -6 C 18 0 C 12 6 C 11 12 C 0 -123 3667 769 L 70 0 3709 693 L 0 12 C -6 12 C -6 5 C -11 6 C -18 0 C -12 -6 C -12 -11 C -5 -18 C 0 -12 C 5 -17 C 12 -12 C 12 -6 C 18 0 C 11 6 C 12 12 C 106 0 3820 717 L 106 0 3820 681 L -59 -123 4050 769 L 83 0 3967 769 L -17 -5 4120 769 L -12 -18 C -6 -29 C 0 -18 C 6 -30 C 12 -17 C 17 -6 C 12 0 C 18 6 C 12 17 C 5 30 C 0 18 C -5 29 C -12 18 C -18 5 C -12 0 C -6 11 5330 711 L -18 6 C -17 0 C -18 -6 C -6 -11 C 6 -12 C 12 -6 C 29 -6 C 12 -6 C 6 -12 C 0 -5 C -6 -12 C -18 -6 C -17 0 C -18 6 C -6 12 C 6 -5 5365 769 L 6 5 C -6 6 C -6 -6 C 0 -82 5371 728 L -65 -82 5477 728 L 65 0 5412 728 L 65 0 5412 646 L 71 0 5512 693 L 0 12 C -6 12 C -6 5 C -12 6 C -17 0 C -12 -6 C -12 -11 C -6 -18 C 0 -12 C 6 -17 C 12 -12 C 12 -6 C 17 0 C 12 6 C 12 12 C 106 0 5624 717 L 106 0 5624 681 L 65 0 5783 769 L -36 -47 C 18 0 C 12 -5 C 6 -6 C 5 -18 C 0 -12 C -5 -17 C -12 -12 C -18 -6 C -17 0 C -18 6 C -6 6 C -6 11 C -5 -6 5906 652 L -6 6 C 6 6 C 5 -6 C 0 -12 C -5 -12 C -6 -6 C 0 -123 5953 769 L 12 11 5953 711 L 12 6 C 18 0 C 11 -6 C 12 -11 C 6 -18 C 0 -12 C -6 -17 C -12 -12 C -11 -6 C -18 0 C -12 6 C -12 12 C 0 -82 6130 728 L -12 11 6130 711 L -12 6 C -17 0 C -12 -6 C -12 -11 C -6 -18 C 0 -12 C 6 -17 C 12 -12 C 12 -6 C 17 0 C 12 6 C 12 12 C 0 -82 6177 728 L 6 18 6177 693 L 12 11 C 11 6 C 18 0 C 0 -123 6254 769 L 11 11 6254 711 L 12 6 C 18 0 C 11 -6 C 12 -11 C 6 -18 C 0 -12 C -6 -17 C -12 -12 C -11 -6 C -18 0 C -12 6 C -11 12 C 106 0 6365 717 L 106 0 6365 681 L 106 0 6518 699 L -18 -5 6701 769 L -12 -18 C -6 -29 C 0 -18 C 6 -30 C 12 -17 C 18 -6 C 11 0 C 18 6 C 12 17 C 6 30 C 0 18 C -6 29 C -12 18 C -18 5 C -11 0 C -6 -6 6795 658 L 6 -6 C 6 6 C -6 6 C -59 -82 6901 769 L 88 0 C 0 -123 6901 769 L 1877 3853 BP -208 86 LP 83 -86 LP -83 -86 EP -1673 0 1752 3853 L 2248 0 2251 3853 L 208 86 6538 3767 L -208 86 C 83 -86 C -83 -86 C -1748 0 6621 3853 L 1877 2998 BP -208 86 LP 416 -86 LP -416 -86 EP -2006 0 2085 2998 L 4499 2998 BP -208 86 LP 0 -86 LP 0 -86 EP -2040 0 4291 2998 L 208 86 6538 2912 L -208 86 C 0 -86 C 0 -86 C -1665 0 6538 2998 L 1877 2143 BP -222 39 LP 89 -39 LP -89 -39 EP -1665 0 1744 2143 L 4499 2143 BP -204 95 LP 81 -95 LP -81 -95 EP -2125 0 4376 2143 L 6746 2143 BP -145 172 LP 0 -172 LP 0 -173 EP -1728 0 6601 2143 L 1877 1287 BP -104 43 LP 42 -43 LP -42 -43 EP -1736 0 1815 1287 L 4499 1287 BP -208 86 LP 83 -86 LP -83 -86 EP -2123 0 4374 1287 L 6746 1287 BP -520 216 LP 208 -216 LP -208 -215 EP -1561 0 6434 1287 L 1877 432 BP -416 172 LP 624 -172 LP -624 -172 EP -2006 0 2085 432 L 4499 432 BP -277 194 LP 111 -194 LP -111 -193 EP -2082 0 4333 432 L 6746 432 BP -312 129 LP -125 -129 LP 125 -129 EP -1436 0 6309 432 L 1024 1024 1024 K PGPLOT restore showpage %%PageTrailer %%PageBoundingBox: 24 17 350 559 %%Trailer %%BoundingBox: 24 17 350 559 %%DocumentFonts: %%Pages: 1 %%EOF ifeffit-1.2.11d/doc/RefMan/figs/win_gauss.png0000644000175000017500000006070010771740460017733 0ustar segresegre‰PNG  IHDRZ’´jøùbKGDÿÿÿ ½§“ pHYs__׊ÚÉtIMEÓ:"_Ñê‹ IDATxœìÝ{\åþ8ðg=^P®#š 8DJ&"ËQ‰Šµ†¼ŠÔ"vÐj5—stV5LÜÅ“z%ÖJ;àå,—£¥g÷VšÕN •Ö¯ï”•Øe'Ò.Úe<§9Ó²,Ëmggù¼ÿðµ;;;ó™Ça>û<ó<ÏÈl6ú¶~bˆÒ!é€t H‡‚t H‡‚t H‡‚t H‡‚t H‡‚t H‡‚t H‡‚t H‡‚t H‡‚t H‡‚t H‡‚t H‡‚t H‡‚t H‡‚t H‡‚t H‡‚t H‡‚t H‡‚t H‡  †INNfFì@F£×ëÅŽtÒ¡ô0 3cÆ Žã:õ-Žã:û•ö̘1cØ°ar¹Üù^X–u¾Whé÷œo§±±±ººº½c¯®®nllt}×Â}9Ù/Çq8¶ææf×7îd_vw%ìêêja)uv/Np7uêTÏ@çº|^õ8>’$Õj5ü‚ôt6 5Ó§O—Éd{öìéÔ·hš¦iºû{ÏÊÊ1b„+{¡(Êh4¶·¦Ùl0`@QQQg°X,”@DDDDD„Ã5­Vkll,BhØ°a!…B!ütÆŒþþþø£¨¨(«ÕêÊÞ…ÕÞŸ^¯þ#‚ H’l/…<ñĸ¬BCC¿úê+‡ëð}%(ŠúÏþÃ/ç8®¥¥%$$¤S‡¦Õj–˲999üÛ¬¬,‚ ÞüꫯŒF#{ܸq.^…ù£P«ÕøÇq~~~ø˜ðLˆŒŒÄ/ðÙÈŸNãÇÞ.---Åg`@@À[o½%Ü—°TOŸ> Ï“Q£F•––¢ßŸð® 7&#„'Nœ(“É|}}§M›&ÜÎéÓ§‡ †cËÊÊâ?JOOž Â?Š Üzë­2™,00ð¡‡âtîܹøX“““ñ9& [¼xñÕ«WÝst¤COD’$¾Æ™L¦Ÿþ™ÿº„]ZZZÊÊÊÞ{ï=‹Åb±X®_¿Î·Ædgg—••Úl¶3f9räêÕ«ø£©S§Ö××;vÌjµ%&&òÀ8 3 sóæͳgÏ"„𬾾ޮÍM§Ó-Y²äÏþ³ÍfÓh4gÏžýðÃí_ã”Je‡®V«eí¦dlüøñãÆ+..Žˆˆh»©>øÀ. áËÓk¯½†4hPÛ:¥Ãt8wîÜC‡Ლj»²Õjõññ¹xñ¢ÕjÍÊÊÚ¾}{‡uzáQØøž |´ǽñÆüéÔ¯_?>ylØ°aõêÕø~áŸÿü纺:þÜ–jLLLJJ þMF>Y–½|ù2ΠÂý:9Cø3ß`0à£à8îî»ïöññ±Z­¯¾úªÙl~ûí·ñ:P(Ó§O·Z­{öìy饗ø…v]~ø·µµµGŽY·nÕj=uêÔgŸ}öÔSO!„Ö¯_o4ËËËm6ÛsÏ=÷駟þýïGÉårƒÁ`÷ŸåççÇç~àqĽu 2 AØl6¥R9eÊ•Je³ÙBf³Ùöû[ô999Âþyyy$Iâ×þþþ%%%ü6SSSsssm6®&655ñÝqÇkÖ¬á?²X,4MËår¹\n³ÙH’4 xͶ'̘1cV®\É¿ÍÍÍÅ{±ýÖ£¡¬¬Œ ¹éòÐÔÔ„c¶[^UUe·0""¢ªªÊáDGG·íbµZB555ü’¸¸8¼~#*•ª½,++Cuùíʧªªªm§!‡a·URRâïïïð#‡Ga6›BV«•¦éÉ“'+•J[;gž={BBBø3P«Õ†……á×·ÝvÛ–-[øeddàs£m©¦¤¤,Z´ˆß²ÙlÖjµ$Iâ“Y.—kµÚ±­5kÖÜqÇüÛªªªÉ“'ã×>ø`jj*ÿQyyybb"~mWì| šš„ß¹ÉjµâÕ¶lÙ2hÐ œm6›Åbqx2`111üù|8n¤R*•Ã‡/++à KíÆr ? ÏÈÈÀ¯ñ<Ü:„›ªøV,³ÙÌ7‚ ___ÜLJÓ4I’Âí'&&âfUž\.Žç›2eÊôéÓñk¾ÿ´çwÁëBc)¾¾¾ž_²eË„ßX'l9;vìŠ+ø·3gÎŒ‰‰Á¯ÓÒÒ¢££ùhš âßñ â[ƒ­VkHH¿ ô[ó5niä¿‚+üÿW—µ-ŸéÓ§óÍ}6›mÅŠ¡l|`F£1 @Øž‘‘Î…°”øÒ³; ƒÁŒÏ•Jew&ð—»Ñu·NÎ »R ãGgâvZüß›L»>>$Iæææñ¹oP¡P¤¦¦<ø‘Gî!„ÿþqÞIKKÞŒÁq†……ÝrË-‹-"I²ÿþø»¶ß_ÍñD»;|]»w8mÚ4Š¢rssqňOíyyyýúõ㯳øÂJQÔ¬Y³ÆŒƒ»Tàp¢áǧ¤¤$$$ôïߟ¤¨¨H&“3†/ÆNž<9''' À×××îÞ!¦T*qæÀ§OŸN ´ý)àŠ¶åƒ;ÈŒ3fÖ¬YøØ…×ú~ýúåååá·>>>3fÌÈÈȸýöÛ}||êêêðGx‡åË—;9 þ£öÎWÒ!Î%$I.Z´(<<<00?7ìJuÖ¬YÂà ÂÁÿƒ]+=ì‘G2dHjj*Âç<«Õzûí·ûûûçææÞyç8üQUUÕ Aƒ¦OŸ®P(üýýñ%þʀƌ“““CQ”ŸŸ_VV²_¿~ ‹-¢(jðàÁƒ±ûù< ¤CÏ•––†/ßV«5--_nµZù „Ùl^¤„Ùl6‹Å’ššš‘‘±lÙ²ºº:ášf³Y¡PdddìرÃn¿«V­â+ÙÙÙ¬V«¿¿¿°ï ^˜••••••šš*Ü‹Á`ΙRVVf—íVpÑhLMM?~NNŽp›V«÷ä—X,–eË–)Š7ÚíÝjµîرw©°+Ãààà{î¹G¸\Vyyy˜…õ?ÜëÄf³åçççääп׵ ºÃò±Z­7nT(»Á`˜1cFjjªÝ±›Íæò—l‡Gñg‚Õjµ;øoÙrmßfýÆî –ªÝ1æççómf̘ѵ“„·cÇŽŒŒ …BñÔSO ›l6Û²eË222RSS„aWUUMŸ>}úôéUUUÂ?1|:=üðé©©ÂõÍfsjjê¢E‹ìÎ%¡††___O˜.´Gf³ÙÜÔ, ¼ÂúõëKJJššš:{I*†‰·X,=8‹G¡iº¤¤ä»ï¾;wÛ¹sgqq±Ý\·IOO¿zõ*Œ²ðdA§Mœ8ñÆgÎœñʌضŠ—Á=3½5ÙÛaYV¯×‡‡‡ûí·ëׯ_»vm÷çèFóÜsϽõÖ[}¤Ø% z–‚N;uê”Z­öÖœáp@‹7éSWd’$?ùä“—^zé—_~ÉÉÉ%b'OžìS%/EP;`’6Ò!€$zï°_¿~ÐÆ H&“ýúë¯bGÑ’L‡xŒH÷·#“õÌ­SØl¶ÛíðÛéþFD¥¤C §C'Ïaíô O;.OÛNOñ´ãò´íôO;.OÛŽtIrÜaOµqç œÝÊÙ=¤[ÎÇ?~!”’’âùSAÉd²ššš!C†|ÿý÷§Zz>IžÒ=­¥ÊÙ= œÝC¢å\[[›‘‘òÃ?´¶¶~þùçžqWš»îºëƒ>ˆ‹‹Ã$—„>ÝX œ ½m”Ø!ô PÎî!Ñr^¿~}JJJSSSKKËm·Ý†Ÿ æáêëëß}÷Ý·ß~û­·Þ;–Nä@ àÕå0û¾;@9wÙöíÛcbbk3ÍJ´œW­Z5gÎüºÿ®ØÇyBÝ1))©ÃuX–ųÉ[,–iÓ¦EDDôzXêÕÇGõ‰†-9æÿ4‰BŸàå\SSÔÞ£û0‚ ø/‹¢¼¼|àÀqqqE)•Ê×·+熆†ÀÀ@O{!<ÎÚŽV«õõõåŸEÚ~v•ðñ[¶lqÿÕ’ßã„ î»ï>~¡ÝqÑ4MQ~Šujjª›ƒtH’yÒ¡{xàeÚ+‰UÎ555Ÿ0ìëëË?äÙjµ:|/~T½ˆéÄh4»€]9GGG+ þ­ÝÓ¡»LX\ηYQQa4ùcƒÁa©ânŸ{öìq²A•J%üY€ÿƒì=]SSc4þ¿ ñ‘wX, Â%øú¬R©ÂÃÃù½äåå!„þÀB :-"IæH‡îéÐ=Ü_θÒ„š>}ºðÓ)S¦ÄÄÄðoišnïj•››Ö»±¶¯;é0--Mx±6EõHTÂâ¢(Êaxõõõ>>>!!! …bРA¡¡¡ÂäÔ¶Tq.,++s²_£Ñˆf¯°°°ÜÜ\þmSSÓ¨Q£ ¤P(BBB\__ßÞ¦øÒhï0³ÙìããcW·C©T*¹\n—qÛ;[<'BWú†ažzê©ššŽã8Ž«©©©««ã;h°,{îܹgžyÆ•M^¿~Ýd2õf¼=㸺ººçž{N¬Ûl«V­’Ëå---uuu?þø£Ï¢E‹øOíJU¯×«Õê²²2•Jåd›:Ž¦iþ‘Š&“éúõë………ü jµÚ××÷Ê•+uuu---qqqÝì•£Ñh¦L™2fÌ»†1vÅëùg ¤CúF3þ|~@ØìÙ³5MMM ~»zõꨨ(|G§CAL›6mõêÕ½kïرcGÿþý]<ÆÞ “Éž~úiþí#<òþûïóoíJU­Vãe2™L&Ãoíèõz†ahšæ—¬^½zÚ´i„tãƼ¼<~ÉâÅ‹¯\¹Ò£ âå—_ž~úúúàà`™LæããÍqþbdd$~Òh4ÉÉÉøuXXXTT¾¶×××wçðB7oÞÖÆc§*1jµzРA8Â#GŽ´·Df³Y¡Pð½ôÒKãÆ®,,U»=‡sÇડ0ù}üñÇvÿõõõYYYüÛššš[n¹EÞ!Cð!üõ¯uxz½ž?„î c·ÎöíÛíbVjíÎO-è[®]»víÚ5á’ëׯÿðÃøõk¯½&¬d1 “œœ¬Õj… )Šâ8®¶¶vöìÙ,ËêtºööK’$I’,ËÎœ93++kïÞ½ÇÝsÏ=÷ßCCEQ$I¦§§F½^¯ÓépO„ЧŸ~šššŠG°-Y²dƌ݊þÏþ3==ÝÉ1*•J×ëŽÛ¶m«¨¨Ø¹sçâÅ‹kkkÓÓÓÛ;r¹ÿ2Ø¿ÿ“O>¹xñb„ÐìÙ³.\h·æÃ?\WWg4ÛŽŒÔëõû÷ïß³gOÛQw|©:Çqœ^¯·«22Ä® Sˆa˜ÜÜÜ•+Wfggã%&“‰?…B±uëÖgŸ}Vø•õë×ïÙ³Çá!tŠ'Œ‰tÒ!}ËäÉ“—-[&¼€>|XxõdY–ï‘]½z533ó–[nQ*•m7ØÜÜÜÒÒ‚_;icÄYöðáÃÆ V"ù}ñüóÏ'''ß}÷ÝNºÈåòW^y¥½t¨R©ðàî¶ú+8mo›]»vmÖ¬Y?ýô“p×Eµwçþxñâ¿þõ/~y`` pµ;wƇzÈa.tÒGFXªNèt:¹\n÷ÿÒÒÒÒÜÜìp}\ýÍÊÊ­šØùóçù%¡áÇ<˜ûòË/ïÞ½Ûá!xH‡ô-999O=õ”^¯ÇWa–e=Š?5jÃ0ÂtØÚÚzøðá­[·VTT$''ÛõdYöêÕ«)))øu‡¥ÑÑÑ£G>xð ÃuöìÙ3räÈwß}—a˜ö.¾V«5$$Äù^~ÄœjÆ/î¼óN»;X---ï¼ó®Ø©Õjþ ‚è°ÕtРAv%Æû¿ÿû¿¯¿þº²²2''g>þ#ç¹PXªNào[#OIIY°`AÛŸ5|S°]mR&“}òÉ'wñÅ_<÷Üs'OžLKK³;„.h¯âî)Ü8¨£ÇH4lÉq‡îáþr¦iZ.—ã×vc·ÓÒÒ솑åææâ%V«U.—«T*á§Z­öŽ;îp}×F£1 €Ž]VVÆïw±Z­*•Š$I~Ô ¹3›Í À_ïò¸ÃÜÜÜ„„áGåååQQQø5EQmÇÌ9‘““3vìX~ý)S¦ðã8£££ñÀy³ÙLŽ#t±T)Š²ûïàÝqÇZ­V¸Çàp}»CÈÈȈŽŽÆ¯ãâℇÐv€`Ûa©N®Ï Á¸C€(4Í›o¾yáÂ…ÚÚZ„Ðþýû- Ëå§Nöw ÄË‚0 ë€'Nœˆ‹‹s}ïEÍŸ??>>þŽ;î5jÔªU«põ oWËÊÊÊ‚àCB-]º4,,ìŽ;îˆ/**êf«Ý¼yóÞxã á1><<<¿ÆóÂ÷îÜöíÛ8bĈ?þñ}ôÑرcñG#GŽŒŠŠBÉårƒÁ V«†©­­U«ÕÑÑÑ•••ÉÂ6^WJÕd2Ù ®Š‹‹;qâÿ–eÙ„„___–eÛîBhhhlll@@€Éd À_:t(¸—Swvölq3I>ñD¢j‘æT³üþ±£ð~n.ggξY § ¾_@ñÊÈÎζX,íµO¶‡aÜStÚ´iø»DZ,Ëç9á[™Lf±XNž<)\!d2™222>ìb/Pa9O™2åöÛo¯¨¨ ¿e»`\QQQ¯K¸…—]s%ߦzøðaœc„ø£p±Tããã)Š²ëèËã8nèСüàŠmÛ¶Mœ8±½"„ª««¿øâ‹Ÿ~úiþüùÇá½Û˲A[ËíNÔþõ¹½ã’Éd4M·w n%jÝ´‹$¶ä@c©{xZ9—””ØMDéPtttNNNoÇÓÞß{w&iÃÓ”——w?¼çJ©â ´óÝœœœÐÐÐ Í%ÿ¿šššBCC‚ÆR€gZºti\\®"8YM­V_¿~]ØAÑý~ú駆†ÜlØ©/Ξ={åÊ•¹¹¹íuCK|||‡¥ÊqœF£ÑjµÎÇ-ìÛ·O&“ÅÇÇ÷tŒ]1{öìîÛ·_²,??Ã7Ä í g)À^]]N§sþð<‚ Ο?dí º0`€L&«©©ù÷¿ÿM¾ççºíÛ·;é¡*Š¢ìæ—i ÷ˆq>…)vþüy'}}ÝiæÌ™v·9ñÄr¡ààà~ý<¢b&ÎM8–e###¬à|¾Z™L¶Tm?ê(00p‰jyÏÄBµ|Ü:<<°ãõ@÷´WÎo¼yæògŸ¼ùÖÙoZ¿ùéæ  ¢ÿS&'†•09ÑýqJœÏ=nþï­­­v w—í%­tŸ8µC’$U*ÕÁƒ_{íµØØXQbÀµ~ÛºûÙÇOÔ|þùg?ýüSèÈP__ÿÃoë'“µ´\¹úEËkg꯴|Žwçø‡fÌy4ë±À¸ÄÐÄì¢ùÐCEEEÙMÖç èYêгÔ=p98pàСCLjˆxðÁñãÚý Ã<ûì³'NœÀóqÀÏÊÁùìÒ½>‹Ùb[^^ÎOš@ŸõÙ•Ë'NÌÎÎîׯ_]]]SS“ÝŒmÉåò½{÷^¾|Y¯×ÿúë¯'NLHHð´^!H‹˜é ¯Ÿç/^<'û>’$-Kmm­ð¹?®ÈÊÊ:vì˜Åb¹í¶Û"##/^ìÉO À“¿Ìö‘ IDATyDú ÚÚÚqãÆUUUíÙVqôèÑÎŽd"IòèÑ£f³ùøñã111ÂÑåA:@ÙÙÙsæÌ;vì¥K—&ÅõL7Q¹\þÉ'Ÿ$%%-X°àá‡î‘mÐw@:À­8Ž›:ujmmmMMÍÑ£G{|Ü^EEE}}½ÑhLHH€†S\é÷á8...îêÕ«.\påAç]“””táÂ…ÖÖÖ¸¸8è_€‹ à& Ä……7îÌ™3mŸ~Þ³"""Îœ93nܸ˜˜OÈžÒ!îP[[;uêÔY³f;vÌ ›!„‚8vìجY³pÛ¬ö€¤A: ×ÕÖÖ.X°à‰'ž8tè›w}èС+V<úè£p¦ð w1 “——×Þ“Z{[AA¯¯ovvv]]Œô =P; 1 “pß}÷‰• 1š¦çÍ›w÷ÝwÃ}DÚµCz Çq …báÂ…ü“åE´wïÞ~ýúÝwß}Ÿ~ú©{n^ -P; Wp—˜˜8eÊOÈ…XYYÙôéÓa<"mA: W¨Õj›ÍÖÙgÒö¶çž{Îf³©Õj±Àã@: çeff¾üòËgÏžõ´fI‚ Ξ={êÔ©ÌÌL±cÀ³@: ‡étº'Nœ>}ÚÓr!FÄÉ“'_yåN'v,xH‡ô$†a¶lÙ²hÑ"OÒ —Ë{ì±-[¶@GSxг€Ãq\JJÊÃ?üÌ3ψKžyæ«Õ:mÚ´>úÈ3k±¸Ôè1sçÎ Ý·oŸØ¸dß¾}'Nœ;w®Øà Ð3t:Ý›o¾éi]I3 o¿ý6ÜDA: G0 £Ñhþñtç¡öîGDMMF£›ˆ@: »8ŽS«Õ999J¥RìX:¢¨œœœôôt›ú8H‡t×’%K¾þúk©Ü2lkß¾}¿þúë’%KÄ1I5Ê~£×ëÅŽôiÕÕÕ‡>räˆØtË‘#G>\]]-v @’ôz=M;–®“Ùl6±cè4™L’aKsªY~„ØQx4ŽãÆŒsï½÷=z´Ëñr^°`ÁÉ“'?üðCowá!åìõ¤{}–jíO°dÉ’‘#Gv'zŽòòò‘#GB“)è³ ÐE&“éðáÃO=õ”Øô˜§žzêðáÃ&“Iì@¤Cº‚ã8¥RIÓôìٳŎ¥ÇÌž=›¦i¥R ½LA逮Ðét#FŒÐjµbÒôZíˆ#``>èƒ`ÎR:­¾¾^§ÓF±éåååñññJ¥Ò“g! ÇAí€NÛ²eKNNEQbÒ+äryNNŽF£;Ü Ò!³mÛ¶7ÞxcûöíbÒ‹¶oßþÆolÛ¶Mì@pH‡tÇq………ëÖ­óÖÁyAëÖ­+,,„>5 ï€t@'dee‘$¹nÝ:±éuëÖ­#I2++Kì@pèJ€«†yå•WêêêÄÄMžy晩S§2 }j@_µC\•››«P(ÄÄM Ennnvv¶Øàp‰^¯¿rå MÓbâV………W®\‰òA_逎q·zõꢢ¢ˆˆ±cq+‚ ŠŠŠþò—¿@Ÿàõ Ð1N7räH•J%v "P©T&L€yj€×ƒt@KJJvíÚ%v ¢Ù´iSIIIcc£ØЋ ÐÒÒÒ±cÇzë4® (jìر¥¥¥b@/‚8súôi½^o±XÄDdƒ!222%%Å›žà€Ôp&//oúôé$IŠˆÈH’LMM-**;z ¤CÚU]]ýþûï­±±ª†=W/^ mÎ@¢ vú´ÒÒÒ´´4¨vI’™™™0‹).¨‚¾ îö¬§Ÿ~:22’¦iøy¤j‡ ïÂ3”µ»§$ ³˜é‚Ú!è£`†ÒÞ³˜é‚Ú!è£`†ÒÞ³˜é‚Ú!è‹ð ¥P5ì Z­6>>*ˆ@r vú¢Õ«WSUÃÞ —Ë)Š‚;ˆ@r ‚>‡ã¸'Nää䈈×ÊÉÉy饗X–;:Ò!èst:ÝÝwß ÷·zOVVEQz½^ì@èH‡ oá8®¸¸˜¦i±ñr4Ms'v ¸Jª]iL&~!—Ë ‚7 !:nÒ¤Ip×°·Q5iÒ$N§ÕjÅŽô:Žã†;Šî’j:ä' V©TJ¥RÜ`€TpWZZºmÛ6±é–,YòøãçææFDDˆ è]&“É ÚÆe6›Mì:M&“dØ’Ãœj–ß!v=iåÊ•GŽ¹|ù²ØüŽ÷•3oôèÑóæÍó ¢—³G‘îõî‚>¤¶¶6??_ì(úµk×êõz¸ƒ$Ò!è+6lØÐÚÚªR©Ä¤Q©TýúõÛ±c‡ØÐ1H‡ ¯(//_¿~½ØQô9………åååbG@Ç ‚>¡°°!´bÅ ±éspu—?ž Ò!èvíÚƒ+Ä2wîÜ]»v‰€t¼_eeåÍ›7‹ŠŠÄ¤ÊÏÏ¿yó¦tÄÞ Ò!ð~6l˜7oL× ‚ æÍ›j€‡ƒt¼œÉdºrå Ü»Waaá•+Wøɤð@—Û²e T EGDnnî¦M›Ä€vA:ÞŒa˜úúz˜°Û¨Tª3gÎ@x,H‡À›éõz•Je÷$IªTªÊÊJ±À1©Ná @‡õz½Åb;ð_4MGFF.^¼866VìX°µCàµJKK“’’ jè9H’¤(ª´´Tì@pÒ!ðNÇUVV¬lž†¦i˜Ôx&H‡À;-Y²$$$f¢ñ4E;vÉ’%b€=H‡À qwòäÉââb±Ÿ|Ù²ebÀï@:^È`0¨Õj±£ðÇÅÄÄh4šžÝlvvö¿þõ/××_¸parrr‡« :Ôîn±N§‹‰‰š(p…Ìf³‰C§Éd’ [r˜SÍòû#ÄŽ¢Óôz½N§s>¾¢¶¶vÈ!Â%xÚ’$ùùk¶mÛ¶zõjüšã8ŽãH’ÄV»9nX–ÅýW9Ž»páBRR’Ýî***²³³Û Æa9×××úé§×®]›6mš{:ÇòG!´páÂÿüç?çÏŸç™eÙ“'Oúûû‡††* çÛtX\Xdd$MÓ®<¹²²òÑG}ýõ×år9¿ÙÇ1âúõë‚e&>>Þh4 l6Û¹sç:{> ÿ[Û; ¬±±!£G0 _Ÿm$Ñ°%ÇüŸ&±C芼¼<çë „¨ßS*•øêŒWÀÙÔh4â·4M+•Jü‚¦é¶[Ã/ŠŠŠ† b÷©Á`p~ƶ-ç»ï¾!š7ožóÃéEñÇ‹UUU!„Ìf3¿ÿ>ˆˆˆˆ‹‹2dȸqãœoÓaqaZ­6$$¤Ã¨¬VkHHÈÆù%õõõAAQTPPA ü§+V¬°Û¬ÕjõññÑjµ:ŸqNíð(l6›ÙlöññQ(®oÜ»I÷ú ¥À«èõú›7oþå/épMãï ¹\ÎO!f2™ø· ÃðU'&NœøÓO?ÙM¼ÒÙiÉêëëÏž={ðàÁóçÏ_¼xñàÁƒÿüç?qýÃÍvïÞ““ÃxsssIIÉÆ›šš†yÿý÷Y–íòPš¦]yê“N§22Òd2%''Ëd2ü#Àd2Ýu×]Âàårùùóçù·øFibb"ÿ!ä¤Çq ýû÷—ÉdƒÖét4M_¼xÑd2Õ××ã`† Š¿Â²ìÍ›7/^,ÜŽÙlÞ³|þùçùõ1¥Rù駟 —1{öì ï3ÂPõz=Ã0ÂŒ¸{÷î!C†Èd²þýû/^¼øçŸn{ à :”«R©”Je{‡ $FìÖÚ®@‚?ƒAìp¼–äîRåäð~E¥RÑ4mµZBøö¡Ùl¦iš¿”ššawß‘ÿ;Â7œär¹V«ÅKðk~‹ÅBµ1Y~¾yé0Ôèè蜜üZ«Õñøã'&&RE„ÍfkjjB•——Ûl6«ÕªR©"""ðú$I>øàƒ‹Åf³­\¹!´gϾBCCëêê„¥'¼w˜ššÊµCIIIqqqøµÙlFá"ø_|ÇQx×mìر£GÆÁ¬Zµ !TQQAÓ´B¡4hPFF†ÕjµZ­|q•——9‰¡¤¤$  ©©Én9B¨¦¦F¸$77wÌíwâ"B©TªÄÄÄŒŒ ‚ ÊÊÊl6[EEBhÕªU6›Íb±„††ò÷ ù£0 üúBÎo.öƒ¡íŸƒäH2n$¸ñcµZÅÇkI+ÖÔÔàæÊÊÂSHø•²²2¹\n0H’´ÙlEiµZÜ˯°bÅŠŒŒ »ûŽvéP«ÕÊårÛoýqð¿N‚qRÎ*•*,,Lx’ïرÃÏÏ!”’’ÂG>hРiÓ¦ñx¹Ùlö÷÷~wòäÉUUU| ð¯1»t¸bÅŠ+V8 ÌÇÇGXtF£×Ò¢££ùÞ7|žÀ… ìó’––öÈ#àå8¯ó„噘˜Ø^ f³Ù×××a·©ÄÄD»nAF£1ö®xüÚb±ÄÅÅÉd2???þ÷ô#<’––&\òäÉ£زe B¨m.´A:´Ùð­\»?É‘ê-`„5°süøñœœ×Ç$8<…(ŠR«ÕgϞşÊår–eM&îŠ4hPxx¸óÓO¥Ri4†a*++•J¥0$Žãt:ÝúW?ù6äßAØ5óªÕj†a„ƒL&SqqqHHˆŸŸßñãLJ ‚3 7n|ä‘GZ[[£¢¢öîÝK’$Ã0ÂÛ¨þþþ8•b©©©NŽ¢±±1((ÈáGjµº²²òõ×_çeYF3pà@„PKK‹F£Á)þ+o¼ñÆðáÃ…C|ðÁÍ›7“$9jÔ¨üÑáŽZZZ>þøc‡1 “œœ¼}ûv‡C5þïÿþ¯¥¥E¸äÕW_ýâ«>þ¦¦¦™L¦Ñhär9I’o¿ý¶ÝÌþþþüëóçÏŸ8q"<<šFÂ}ÅŽ¢»àÞ!ð,Ëêõza¿®!I’$ÉS§Ná ½\.ùå—9ŽëÔŸ:A*•J¯×WVVvùs¡Ñh´ëDÓô³Ï>{×]wY,>Íž=»¡¡á›o¾ihhŸ;w.BèÖ[oýæ›o\ߣÕj¦¤¤$‡_ǹÐh4ÚÝLU*•¸É7ÛõR9rdKK‹pá|0jÔ(„ÐÔ©S¿øâ ¾×’Ptt´Ý]@ çB­Vë0rwõêÕ””á«W¯&üñ¿ãAår¹Ùl¾ë®»þñ¨T*¼ëÛn»Íá¾B~øá‰'ÊÊÊ¢¢¢\™ H•ØÕÓ®hØ’#¡ÆÒ´´´ØØX××wr áŸÿ¸¹ßg¶×9wÈV3 þþþ| ó3¶m9«T*¹\ÞÞ³Ù,¼ÑhµZ ‚àW®ªªêׯ~=dÈÜÜ\þ[ (**j/$Š¢ø›”øXÚŽ¡Ä½v…#íàFfž°¸øÖH³Ù<$$äÃ?LKK+((@‘$¹dÉ’={ö„……õïß¿¹¹Ù®4:Äw%=}útrròí·ß^YY)mRVVÆוkjj¦L™"܈Édjmm7v‚p¡° B}ôQbbâ˜1c®^½úÃ?à9BáááøAƒ!>>ž$É.w`K’³éHx I‘Ê$mÙÙÙ—.]⇸Âá„džŒïÜ_[[ÁŠÚŸ¤MøZøE'»Cmʹ¶¶ö×_ÞäC¿µâ:9"“ÉÔÒÒríÚµI“& Ó0>„ФI“4 î%Û^Hx6~Z8½^¿yóæ .àãmll|ï½÷†îz`vÅ…ƒq8ÁÛøñ㘑‘ñðÃGFFòà,ËFFFÖÕÕáõñ¢¢¢ìvÄ7J×××O:UØ’ŒŠŽŽV(+éÏg~n¼ŒŒ <-_Û£À«v·„‘ÓYÜú _ŸÅ­œvDÖI4–Z­ÖÀÀ@<Ì@¢ÜVÎm§aëИ1c„-¨½§¼¼<00Ðjµ–””ÜvÛmÂrss£££]ÙˆÕj åÛ‡±eË–X­VIœÏ^@º×gèJ¤­   88ØÉÙ ;ŠŠŠìš%{ÇqÏ?ÿüþð‡˜˜˜uëÖñCû±ÂÂB›ÍæÊS5’““ýüüJKKù%•••ÅÅÅx¼fÏÇ ¼ ¤C mÏ>û¬+OE¡.ÜÎœ={öéÓ§{;—1gÎœ¡C‡^¹rÒ°ûôìÙ³® ¡¡(J8¡úínŸÝ¼68$ÉF^ ·MKŠçß;tåYNžÏóËÙm\êS@9»‡t¯ÏP;¶nÝ:èàçMhš^·nØQ€> Ò!*½^ãÆ h)õ&*•ªÿþ½ô0&œƒt¤J§Ó-]ºTì(@ËÉÉi;néHREEEKK ´”zš¦[ZZvïÞ-v  Ïñ”tX]]œœ¬V«N]€_|qÙ²eÐ{Þû±lÙ²êêj±}Ž8éPø8oŽã&L˜ð§?ý©µµÕd2EFFîܹS”¨€TÔÖÖšL&¨z+š¦ß|óÍÚÚZ±}‹8éœ7BhÕªU7oÞlnn~ë­·,‹Ùl^³fM§&Ü}MQQ~ø­Ø€^AÄäÉ“‹ŠŠÄô-â7–:t¨  €¿´Éåòøøø§Ÿ~Zܨ€ÇbYöÌ™3eeebzQYYÙ™3gL&“Ø€>DütxãÆ »'jFGG:T¬x€‡ËÊʺï¾û\Ì/"’$§OŸÞýXà:ñÓa@@€ÝoÀO>ù?g;,Ëž;wnß¾}bzÝîÝ»Ï;}ë€Ûˆó¼ÃëׯŸ={?W:(((++ëêÕ«ø£ŠŠŠ×_ýõ×_%0àáV¯^­T*¡jØ$©T*W¯^}ôèQ±c}‚8µÃÔÔÔC‡Ñ4-—ËÓÒÒî¸ã¼Üd2=ù䓳fÍêÚsSwÃù3gŽ“uL&“F£®XžaFãüîàœ9s^zé%¨ ÷ä\«Ò"VZõža“ÉÄ0 ?zÇh4òσõ|žVÎîa2™pûBH©TÊårŠ¢ÚþNNN–ËåZ­¶û{ì›åì~Ò½>‹ÓX @gqW\\\SSƒß²,‹S Éd‚ÚƒÔñT$‚O¸Iœ¦é9sæÐ4 ãj@oó¸tØÜÜœ””T\\<{öl'«ý«ú»%AAA±&öfh}Ñ5îG±Cø¯¿þ• u´²jûßv\úàbóÇÍNV®z©¶¹éSß!¾Íœ%\þOÃ!á[™LöàƒÓƒƒø%Í7Ÿ{ó þí÷ßÿǘ»bø%ß´~sòäïνኤ©Â%‡¿„Ðôi3„{yýìëŸ}z™{åãÖC§G„G÷òïŸøUðûÇÌyt¡p›Ç_þ×Õ/¿ð<„_2/=S¸Bãù†ÿ÷ÿ>DñÛ™29A¸— ï]¸ôÁE„Ðwß}‡·3fÌX»?"Cåaü‚ßHÆï÷òú™W?»ò9~·3ù÷{iþ¸ù­·ÎñoµÙfNOi¶\FmpÇHž§PÜ?qÂÄ 1±› ŸÚ°¹íúå9ç³wh<ßðÍ7߈Eñ¸txæ̙˗/¿øâ‹ÎÓ¡Ngßxàô÷"˜¿‡µ|Ü*v!ôíµÖŠŠôë×ïù}ÏýôÓÍׯ8ðêê*¿€ ˆ°‘£ðÂËŸ}òÔæ?ÿü ¿Ú/¿üò}ëÏÓ“ÿ—2·jë_ý_cìÍŸnÆMøãîíÿëÈzÂx¬èïÂŒêûô0~/o1ç6n\/ æèÿã·¿÷²n¦åêþ­íWÛ¥ŸÊûß¼Õ'ŒÇž.Zÿ‡?ü_råêçÓ“Òø·—?ûä©‚M_~õÅ€ù…ƒû$Ÿ"<–Æ æ_~ùoçè?sÚœ¿þ9_aÓÆM?x!tãÆx;c¢îÜ[\!ÜKþ†<\PüF"Cïâ!”——wõËüogê½ÉÂc)Ùµç_/ÿ·/ ÞÎà!¾qÑ÷TWu0éLCã; ïÜuç„ð°Ñ{Ÿ+›ý༑#Âœ¥Cr>{­…Úo¯yO:”d#¯tÛ¦¥Ås\¹²ººº©© ý6ßófRï»wè}ç¼ðÞ¡’$ñ}D¥R‰ÛHG=oÞ¼nÞAôœóÙ»I÷\õ¸Ú!v8Ž{ñÅùK!Aü3Y–åS#Çqâź‹ >¶H³víZFwA¯9šL&“ÉtáÂ…AƒEDDÜ}÷Ýüã#""Ä x”5kÖôïßßác~I’ä'òÆ=Kqjto€îà­“ÒáHQ”óÚ¼J¥Z¿~ýš5köîÝë¶Ø@_#Z­¶¾¾>33óÇŒ0`@``à?þøá‡^ºt)77·´´ÔÉw¥[—i\:t¨V«uý©÷¸š(¡j„‡”³›uö¿I¯×k4‹ÅÒåÿÙ¾YÎî'Ýë³hqßzë­‰‰‰UUUvËM&Óܹs«ªªœüZ”nqK‹'\> ËÊÊ>þøcqÃèUžPÎ’>gÎœ]»vuíëPÎî!Ýë³8³Òœ>}úË/¿|á…Ú~DQÔ”)SàYØ+))yøá‡ÅŽx„ 9rDì(€×íñ¿Ã† k¯Ñã矾~ýº›CH¯×+v }Tee%M;–®óOÝÁßg’ËåâFºƒã8½^3uÈb±ˆ‚§Û»wozz:MÓÐ9Ùý(Šâ‹Ýd2‰L—Iò9Ò}¼¤´¸áq©™™™—.]êÕ½x8x,mO‰ŽŽŽ=tèÃO¡œÝCº×g©6–/ÀqÜÉ“'aÜ=è)ÅÅÅ'OždYVì@€$A:¢ÉÊÊ=z4EQb¼EQ£G~ì±ÇÄH¤C –e_yå•üü|±‘¨ñ¸(??¿¾¾Š t¤C µZššššš*v Ò)vÒššš““3þ|±Ò#Õž¥@ÒL&“Édjhh;à…–/_>qâD“Éíð S vD@Ó´J¥Š;à…bccaÎ?л™L¦‹/jµZ±^‹¦é‹/ S w{â‰'–/_c¥Aï!bùòåkÖ¬; %[íܹóÚµkÐzMÓ?üðÃÎ;ÅH¤Cà>ÇBÕ°³`»Î"¢     ü\é¸Ïš5k¬V+ÌÖÝPh] R© M¦ÀE›°,{ôèQèÝÜ©¼¼üèÑ£0*¸Ò!p“¬¬¬°°0 ܉¢¨°°°¬¬,±Ãð;˜L¦sçÎÁSŠ€ûUUUEFFšL&¢ßíbÇ<Ô;,[¶,77—$I±‘*µZ-vRE’dnnî²eËÄx:H‡ ×éõú+W®Šˆ„éõz±C°ÂÂÂ+W®TwüD0H‡ wqGÓôÚµkap Ak×®-Þ«…AÀ H‡ wét:???wÄEÓtðÐ[u:ØÏéô¢ÆÆFN·oß>±­~r“N§kll;à¡ ‚^TXX˜’’ƒ+€'˜—˜––¶zõj± Ò!è-¨¬¬Üµk—Øx˜•¦GlÛ¶íÍ7ß$Ê3ë I’|â‰'ì~(€¾HìÖÚ®hØ’ãú½Cü˜{£ÑØ›áx-WÊ™$ɶ sssín¢ßß;¬©© ,++kû]«Õí¤·K‡ìþ  Ejjªp >+\ÙTZZÚ#<ÒåH\Ô^9ãßpî¿—é­¤{}†Ú!è<ðÀôéÓ¡™´÷àÔbçرcxö‡®]»–™™)“ÉÚþ¿p—œœ|ï½÷ ç~ã8ÎIí°ÃGt%%%>}Z¸„a˜Q£F9ÿ6mÚ´Í›7»²fo (*55õ¡‡ºråŠX1O]i@wÑ4ÝÚÚzðàA±ésÆŽÛÒÒâ𣖖–wÞygÇŽYYYéééÂñ…8Êåòžõž{î9wîœpÉÁƒãããÛ®YYYi7ÐðÒ¥Kaaa=Lg½ð C† Y¼x±ˆ1ñ‰]=í ‰†-9®4âY,Ÿ®]X´`F£qÀ€uuuøíÆù?ªªªÉ“'ã×r¹œoS5›Ír¹\¥Ru'`¬íŸ¡“ùùù+W®Ä¯333år9ÿ­ºººæççw?$眗3žÂšL»Oº×gIÆ-Ýâ–W.ÓÑÑÑJ¥²÷cñf]N‡6› Ïþ6dÈähÜ¡Õj•Ëåø'ËÀCCC©ß3 ]ØuÛ?C'ÃðCBBúõë‡_7551bÈ!111!!!¡ŒŒŒ.ÐY–3MÓááánˆÄ»I÷ú,ÉÉå¤;'ž´t8—¦F£)))¹|ù2LÕÝ®ÌYêd¾i–eOž<‰ÊÈÈà8Ž_MøÜ8I’diiiTT”ݺöX‡!qwðàÁ¯¿þ:;;[øiccckkkRR¿¤ººúúõëŸ}ö™R©tÏTÚ–3ÇqcÆŒY´h‘V«uC<ÞJº×gIÆ-Ýâ–ç—†aâããq-ÄAy!WÒ!œóÝçJ9›L¦äädܤ얠¼tÏUèJº‚ã8t¼EQ¹¹¹v@étÅ’%K¾þúë}ûö‰=¬´´ô×_]°`Øwƒt:m÷î݇>räˆØÐ+Ž9ræ̙ݻw‹p+H‡ s8ŽÓh4«V­‚›+À[Éåòôôôµk×B“iŸétÎŒ3&L˜ðÌ3ψ½¨¬¬ìÞ{ïųª‚>Ò!èNwéÒ%<`¸SÏÎ \±{÷îææfF#v ÀM W1 £ÑhŽ=Ê?-¸ ~úãQ`ÎR"—˵ZíÖ­[kkkÅŽôH‡àX–?~BBüæÀ9š¦xàùóç³,+v, g@:ÿÅqœB¡˜6mÚ+¯¼"v,HÀÑ£G§M›¦P(`è…w€tBˆã¸¸¸¸[o½õ¹çž;$ãèÑ£cÆŒ‰‹‹ƒŒè Äq\bbb¿~ýŒF#t%õLгßc †Áƒ'&&BF”:H‡¥§§Ûl6³Ù ¹ÐcÁܼ‹ ˆ3gÎØl¶äädȈ’é°¯{衇Þ{ï½³gÏB. k‚8{öìwß}÷øã‹ è:H‡}ÚÔ©SY–½xñ"äBºgÄK—.M:UìX@A:컦Núõ×_Ÿ9sr!݇[M¿þúkȈé°ÊÌ̼zõjmm-äBz AµµµW¯^1cÜG”H‡}ÇqwÞyço¼qæÌ™ˆˆ±Ã.!IRì€K"""Îœ9séÒ%èk*9û–ææ椤$›ÍÖÐÐõB ±X,b‡\EDCCƒÍfKJJjnn;à*H‡}˲3gΔÉdЀ^…{ÖÏœ9“a±Ã.tØW0 3f̘óçÏC. ·QWW7f̘¤¤$Ȉ’é°OÐëõ÷ÜsR©¬ªª;úªªªE‹ÅÇÇÃD žžwèýôz½Z­.++ƒgæI˲ЛF¢víÚu×]w©ÕjŽãàY1ž Ò¡7ã8N£ÑTTT ¥R)v8 ë"##m6›ØQ€.R©T$I>üðà Ô••ÁÝ Ï¥^‹eÙÄÄÄW_}õÝwß…\€¸(Šjhhx÷ÝwÅ8 ÕÚ¡F£Á/”J¥\.7tàÀµZ}ï½÷ Â÷æ×ô‡hboïíûõ—÷p{x{<öÓ{ï¹½ÿ/H¸¹±2¶èõú´´´»wïjµZûšõ§¢CG#¼ÈpÆsÞ~N5Ÿõz½X,~ýõ×9±ó[ì«8:䎂‚‚ÄÄĨ¨(š¦9ö €cD"MÓQQQ³fÍZ³f Óq€”Cn izÆŒ»víúþûïq‚”“ð%mÜCQÔ‰'öîÝ»oß¾3fÐ4Ít"W‡rÈzÑÑÑ“&Mº|ùr^^Óqà•ÀM‡\•——×ÚÚ:iÒ¤èèè‚‚¦ã¸4”CÓjµÓ§Oß¾}û4 OÀFEi4šüðá¡¡Z­–éD. å•ÌfsZZšD"™¸K­V'%%ýñÇk×®e$¸&†W–ÖÖÖvuu;ö7Þ°\ö*•Š7­{9ÅŠØÊÊJÛ[É)Ê!³ð¼C”C֕ÊŠ ‰D*‘HJJJ˜ŽÃMõõõ|>_b×]555±±±Ï¶+Š¨¨(>Ÿoy”«ÃsqÍãgÛéééŒdã†ÆÆÆøøx‘HÄçó¥Ré Ÿ²n>3sßáÈèõúeË–­]»6;;[§Ó­\¹rêÔ©,z| [\¸paüøñ …ÂÚ‚%N£¨²²R.—‡„„ jÏËËS©TYYYãÇÿ駟>úè#ƒÁÀHBnxÞ8ß¼ysõêÕ111–ÍQ|°‘«1›ÍqqqQQQ………·nÝ*,,—.]²ü”•óÙŽ¯ÿv´ÈÈÈ+VX7W¬XÄ`®R(2™ŒéÜTZZêçç—™™)‹mÛ!:βi2™ ™ÈÈÏçÛq{Èd2@`Ý´T»†††ÖÎg6,mjjZ¾|¹usË–-·o߶½‹FMÓ}}} .ÌÉÉ)((À™ÒQ$“Énܸ‘••5¨ýäÉ“‰‰‰"‘ȲIQ”\.ommux@ŽxÞ8[œ={6###--­ººÚÁÁ¸$##cß¾}ÖMŠ¢|||,OD`é|fM9lll$„XÇ—BQ”¯¯o}}=s¡¸éüùó´|WýÑ£G###ëêê˜ÅCžÓjµB¡Ð¶%22òÌ™3Ž ÅAÏgBˆR©|øð¡Édúì³Ïø|>>RŒmÁ#„¬\¹ò­·ÞJLL$¬Ï¬¹vØÝÝ1¨qòäÉŒ„á¶Õ«WÏŸ?ß:› ,XðàÁfSq[WW—í; !$ ÀÏÏ©<\%‹óóówìØaÙ4›Í³fÍZ·n]yy9³ÁØ®²²òðáÃ:βÉÒùÌš£Ãû÷ï߸qcPã;wz{{ÉÃa …Âö“ÝæÍ› !Ì%â>77·Ë—/Û¶Œ3æÙ ö³ÖBBEQ¹¹¹¿üò ƒy8@¯×þùçß|óµ²t>³¦&''?|øpÐu¬ŽŽŽ¹sç2Éuøúú2ãæÏŸßÜÜlÛrîÜ9‰DÂTׂ'äØC¯×K$’¢¢"Ëçf –ÎgÖ”CBÇÛ¿¿u³¤¤dܸq¸`tÑ4=èN¬úúúîî$¦"¹©TZ[[k{«¦¦†Çã1‰“”JeYY™mË©S§>øà¦ò°µÊd2Ûv¶Îg¦—¶¾„ââbŸâââæææÒÒRooï72ŠkL&“ŸŸß;ï¼£ÓéL&Sii©——WJJ Ó¹8E£Ñ<{@\\œP(Ôétƒ!55Õßßßd213ž窪*??¿ï¾ûÎd2 †¥K—úøø;vŒ©„¬¦Óé(Š*--ò§lœÏl*‡©©©'N$„Lœ8155•é8ÜôÛo¿%%%¹»»[ÆyùòåL'âN'•J5677'%%yzzzzz&$$ÔÕÕ1’K†çÂÂÂàà`Bˆ§§çÂ… 1Î#6hí¨…µ:²q>㉬ºvðŠ   ”C‚r@PÊ!A9 (‡å€¥öìÙ“‘‘Át îð`:¼´œœœýû÷ ¦ƒpŽØ' `Íš5“&Mb:w 8šR©¤iÚº¹uëÖE‹-Y²¤±±q˜=üñǶ-eeez½~4S¸œ,p¨´´4­V+•J-›[·nݶmÛÌ™3›››îÞ½ki¯®®~¶¼I¥R‘H4d·4Mççç·µµQõêÂpŽFˆ¦éõë׿ÔKÔjõÑ£GkjjÂÂÂ,-§OŸŽŽŽÖjµ¿ÿþû½{÷F¦¨¨èÝwßtÈÇ£C€¢iúeÏOÊd²ÌÌÌ„„k‹§§gkkkeeåŸþi»§T*µA“J¥ )++“Éd/õB (‡SPPàååµ{÷nÛÆÝ»wGGGgee=}ú455Õžþ)ŠZµjÕ† PF'KFGuuµí™g8qbîܹƒ®í………EGGÏž=ÛÃÃãÓO?þ¯‰DÏ–=…BqûöíÇ€!¡Œ‚²²2¹\þâ}º»»sss5ZθîÝ»÷É“'*•jø¿‘¢¨gϦR‚r0(‡ö*++[¿~½F£±.RKK˳;TWW‹D"¡P{ìØ1ûÃŒ3æÌ™3ö÷àjPìRPPðÅ_h4šçÝakÈrh9ÈËÎÎîëë«®®¶3OhhèÌ™3íìÀ¡Œ\{{ûž={ËÊʆ³ÿ •¨–3¥?ÿü³D"9tèГ'O>lg$£ÑØÞÞng'.+KFèúõëÿüóÏùóç !‰dȵ-¶Äb±^¯·=ˆ¬®®ŽŠŠÚ´i“eÓd2?~ÜÎTF£1""ÂÎN\ŽFhêÔ© "‘H$ìÁÏL)IDATUUUÉåò#>yòäСC¶-z½>++KüV­Zõøñc{ΗÒ4ííí-‹GÜ€ËB9!Š¢¬wMˆÅâÒÒR­Vû‚ý·oß^WWg]ö^]]½~ýzË’Tš¦årùÓ§OÓÓÓG¼4T©TfffŽìµ.Îm``€é ®"66öþýû/^|kµZ‰Db0^¼À†„£CÇ9~ü¸Á`X·nݨ÷¬×ë/^\TT„Z028:p¨ššš¬¬,­V;œ3†O"‘øûû9rdûp)(‡8Y €r@PÊ!A9 (‡å€ ”C‚r@PÊ!!ää¹þq;2ø.IEND®B`‚ifeffit-1.2.11d/doc/RefMan/figs/win_hanning.png0000644000175000017500000004362110771740460020236 0ustar segresegre‰PNG  IHDRZ’´jøùbKGDÿÿÿ ½§“ pHYs__׊ÚÉtIMEÓ:35aÊy IDATxœíÝ{|UÞ?ðD[è…ÛÅÒ–ÔJ+K§r­´ú¤ÊE+‚é‚EU× »šî*賊¶î>âªÀ6úRx €Ík-TÁõÕ[dqu3RÄ;T.Ò ›‘‹+—ºùýqçÓ4M&“™IæóþƒW3IN¾9Ì9ßÌ™3gL^¯—[­ÐÒ!Ò!Ò!A: H‡é€ ¤C‚t@Ò!A: H‡é€ ¤C‚t@Ò!A: H‡é€ ¤C‚t@Ò!A: H‡é€ ¤C‚t@Ò!A: H‡é€ ¤CÃr:UUUZG½@SU Ò¡6V®\¹páÂpß%‚"ŸÎó¼Ýn7›ÍŠËóüÔ©SEQT"4Bimmå8®¹¹9Èk”ªŠèñ‹P®›ÖÖÖ°ŠŠü[777÷ú¹2>EÅë®».Ü}@Ew› |¿‘:{NäBŠ“eÙ5kÖ,X°@¡Ð g^ÐBzzzŸ>}Â}—ÅbijjŠüÓóóó‡RÅN™2Åd2­Zµ*òÀ<Ϙ1c!¥¥¥ÉÉÉW\qÅÁƒ¾R©ªˆÇsÅWäääønt8–ŸÊÉÉ?~|¯¥555Y,úw$ßÚãñäææ&''—––BÆŒãñx¾RF·°téRû€ÃáðÝ£Gª7ßÊŒªÈ…ïÿuSS!d÷îÝ EõÕ4×_ÿúד'OjòÑN§ó믿^´h‘RnØ°aÓ¦M÷ÜsOäEÙl¶cÇŽíÞ½{ôèÑ¢(Ïš5‹çùÈKV Çq¿þõ¯Ï;7|øpßíÕÕÕ¾EQÌÍÍ}ùå—U ìöÛoOHH8tèÃ0­­­S¦L±Ùl.—K‘Âÿûßÿìg?Sdˆ 6 BˆÅb™9sæÓO?]__¯HKµ1zôè’’M>zÙ²e‡#''G©†QªÙñÅK–,=z4-öèèèP¤dÕ‚0qâÄåË—÷íì·fMM ˲‹EµÀÚÚÚ~ûÛß2 C=zô½÷ÞâPmˆ })Ø(¨?üá.—KÙÿ2ðƒt-EEEôÌÁ’%K®¼òJºÑn·sG©©©©©©¡+**^~ùå¼¼<“ÉtÉ%—Ìš5K*DE«Õj2™L&Ó¨Q£ººº¤§Z[[ÇŒc2™’’’æÌ™#m¯¨¨ ‡S)))tcUU•Óé¤vvvi¨¾çísssëêêRSSM&Ó€–-[VWW7dÈúÐn·Ó—ñ<_QQAÿ®©©yâ‰'|cëôICCÃÃ?,=ܵkWŸ>½ï¢UUU¾1¯^½Ú/fé¡3ñ©ÀÄÄÄ Hsv»Ö!DŲ²2ú_"›Í¶zõêôôô ¯EÑétÚl¶ž^PWW7`À“É”ššºvíÚ€¯ w†Å_ÿú×¹sçJ[ZZhj NÚs¤jE199™žÙâ8NªÒÜÜ\úÝæÌ™“˜˜H÷ööv©ÀÕ«WK_í£>òý¬… Ò·dff¶´´tÿšYYY«W¯&?ÝåBÁ0Œï—]²d Ý%(}­“ÁƒÓØ*++¥¨¨¨Ø¸q£ÔÜn½õVé-´ñ4Hv£X²d ­AƒÍŸ?_êüb6›Í¥¥¥~5 Óz´6n™Íæúúz¯×KèyBˆÛíöþô¬É¸qã’““§NêñxÖ­[Gikk£Oæçç·µµµµµ?¾ÿþôt‚Çãéׯßøñã=ÛíÎÈÈ(--¥o±Z­´d‡Ã!}œLCCCrr²_¨ÒYŠÚÚZ†aè[h´„G}Ôëõ>ôÐCýúõ#„Øl6¯×ûè£&%%Ñ—ùžyðÁ322¤˜srrª««éSAzZ¦Ÿ¶¶¶””éí=Ål³ÙzŠÙf³ 0@zè³T4Îüü|©-øV=É'm=þà稇ÙlîéÙõë×K1/_¾¼ÿþ~ßšS[[ÛkÝJ¯ñ ÒÜÜ0©*|붺ºÚjµz½Þúúú„„úÿb³Ù¤ï.½«©©)333##£©©Éãñ.Z´ˆ>µtéÒ¤¤¤åË—{½ÞG}”2cÆ úÔŒ3’’’è[¦Nš””DO•Õ××3 ãõzÛÚÚ!óçϧHƒ ÷»ÓØ’’’^zé%ÇSZZZRRâ[í•••´&&&æååѧh ¥Í­©©)11QÚßÆ׿ú®U«VùVB(¢²²²ÿþ/½ôý[ú‚Íœ93ȳ9¤Ãhq8´§ „dffÖ××K ÛûÓt˜““3{öléÆ £­¥¡¡!55Õw¾CAAí yä‘+®¸BÚ~ðàA)‰ÖÖÖ²,ëõzY–eYÖáp¸Ýn©•644ú…J;Y¿\H#÷íPúöí»xñbéarrò–-[¼?mùóçÏÏÏÏ—b~ôÑGƒôûAx<žŒŒ ßj ³_.ô‹ÙãñôíÛ×÷+H1ûU ÇãñýiHÓÕƒ>È0LOóM‚ žÍfsÀ,E?þW¿ú•ôpÕªUãÆ£KÿS=å¹P¸Ýî„„„‡z¨§Ъð«[ºy<‡Ã1nÜ8š¤ŸY^Ÿt¸jÕªôôt©Þª««‡ Fÿ:t(Í…ÔìÙ³i¦¤õOÿk¨éÓ§ÿò—¿”Jv»ÝÕÕÕf³™îN,Ëöô;)¸¦¦¦AƒI_jýúõRl7Üpƒ”›½^ïºuë&MšDÿ.((ðÝKKKgÎœIÿÎÉÉñ­ÉpEJJ Í…ÔŒ3¤ŸÝ-Z´é0ª0•&ZX–µÛíV«•a˜ÊÊJŽã†±Z­Ý_yùå—ßu×]ÒÃ#F°,KY¹råˆ#|L.»ì2údž |'^çäädee­_¿~Ù²e‹Ån··¶¶ò<ÿÈ#ð<Ï0Œï9ªï¿ÿ¾{ ¯¿þúš5kî¹çúÑߟޥ¥¥3fÌÒ£U¿rÒÓÓo¹å)æÒÒÒ?üþ-BOsÜi7'=¤C”åååAÈ!Ï?ÿü;ï¼$f†aººº|¿‚³_ú VWW»\®çŸÞívKO‰¢ØÓ¤¿øƒ£CŽAŽiþþ÷¿×ÕÕIóòò¤AoBȶmÛV¬X1yòdß‚Ô-˲¾ßŽçù²²²yóæ=÷ÜsA‚¤C£ Rݲ,k6›9Žs¹\6›­ªªªµµU„î§?óòòF%}(˲#FŒ ýõ×¾õÙÙÙô­[·<¸¼¼\zª¤¤ä…^ [­VŽãxž///þùç›››yž—&•„þÝ©1cÆH_*==]ŠmïÞ½Ï>û¬ô²ŒŒ :B¹ì²Ë|[è¸q㤿/¿üòiÓ¦IÃj›7o¦?1¥WJÁôí·ßž={6È BH‡ÑbµZ+**êêê, ˲UUU Ã黣½OÀ§|üøqß-§N4hù±kþŸÿùšsss»ºº¦L™B_–œœ|àÀ¿Ò¾üòË?üpÍš5sçÎýùÏV¡s:=¥úcŸþMs!˲Ásá—_~ù¯ýKvÌÝ+ÐÏó'))ÉårI]'ÇqÒ9Å ñ÷ª¦¦†Žc÷$55•çù€ùõ›o¾Y±bÅ£>ºjÕ*ß³AêÖf³I?Âh.´Z­Áë–¾rÅŠ¿üå/‡ &Õ€ÅbihhÁf³9Î?þñ‹%”¾DQ ø–3gÎø>&½+àw÷}Ȳ¬t’ÛëõŽ?~Ê”)ôï´´4iÔÑãñ 6L1¦ÿiii^¯—™Ê¾Z1Hl³gÏ=z´ôe}«ÝoÏ¥ñ†Ø(²³³¥aXÇ3zôhß[?òöFŽ£hâĉ.—‹Ž&±,{ôèÑ°~J›Íf:,6vìØÄÄDß©€V«µ¾¾~òäÉ7Üp÷ß~ÛÜܼ|ùrßá©?þñôw±Ùl>qâ„ïpb~~þÚµkéÅ Ôe—]–——G±Ùl‚ ”••¹ÝîÐGÿ”"Šâ•W^™‘‘Á0ŒïœI‡ÃÁ0Ìc=öÌ3ÏlܸqÇŽ‘Ç,UàäÉ“Ïž=û·¿ýMzŠNí«®®f¦ººÚn·ÓqBE¾cMMMÀÙ[n¹%11‘Žc¿òÊ+W]uÕe—]6eÊ”æææ#GŽÐ¥ !œ}è" Ýq·oß¾k®¹&Ú!ÙEO<ñ„Ö1Ä­#F8p€^ðž”””}Ýu×ѧ†9räСC !ýúõ+..–NTø>?~üÈ‘#÷ìÙCq8åååÒSIIIgÎœyùå—çÍ›'}îÈ‘#8@ÏI¤¥¥eeeIŸKÉÏÏä‘G&Mš$]zèû‰4y9’a˜¡C‡úö;=ÅIg„9Òï{‘'‹Ó§zuöìÙwß}·ûå˜ôSÆŒ³råÊììì;ï¼3ô˜ƒ|Zmmm_|ñK/½T\\L_)‚Ãá _¡¸¸X*9”¯ éé‹Ÿ={öêP²}ûvÇCU¿~ýæÏŸ¿oß¾~øaàÀo½õVvv6-Ê7~zbÌl6‡[GGÇ?ÿùϞ궠 `Íš5÷Þ{oaa¡_¥Y,–cÇŽI'OŸ>ýÈ#¤¥¥ :ôèÑ£¾ç½¤wù}w߇C‡]¼xñÞ½{øᇬ¬¬gŸ}öÚk¯¥U““SYY¹mÛ¶ÄÄÄ)S¦ø-PðïÿûÖ[o1bÄСC?ú裇~¸{†"Hlýúõ»ÿþû;æñx °~ýú#Ft¯vZã ±QäääÜ~ûí{öìéêêš8qâ!C¼^¯ïzÉ­·Þ:þüÛn»MÆ·†™¼?Žãq”””¤§§ÇÖ <ϵµµ©ت‚ÄÄÄ;î¸CÍEj|9Ž—^zé»ï¾ÓäÓA2lØ°yóæ=õÔS~Ûkjjžzꩽ{÷*¸zt‡thD‚ Œ;öî»ï}ˆæAE1£dzÀqœš+Ôø¡33ãòw†þÕÔÔx<ž &,_¾|ß¾}‡ö;Üçy¾¸¸ø‰'ž> "‡thP<Ï»\®J‡q‰ã¸… 0ࢋ.zî¹çºh÷ze(ék– ]•†Þ8Wë(ÀŸÉdúÏþ£urÄd:¤+D^ŽÉ¤Ì©S”ƒrPÊA9R9‘¢ – <öº®¿ÁËQŠÞ¾—ÞÊQŠÞ¾—ÞÊQŠÞ¾—Þʉ]1yÝ¡RcÜêY¨gu žÕ»õlè£C éz”94Kë õ¬Ô3‡t=Ú¼®Eë õ¬Ô3‡t›—áG• Òn|ÿîNÅ÷ß¿¼¼\Ƨ´¶¶¶··Brrr|oL0ž]»vBæÎ+ãƒ@R_!Š"!¤§{2766öïß¿££cúôéáÞSšøô………ÁoÈ…~Co ŠjØRáMMM‹¥§—y<ž+®¸"==]ÆGÜ|óÍ„‚‚zóñÙ³g÷ôÊÒÒRBÈàÁƒ×­['ããds¿{PÍ3,Ô³:¢ZÏR¿áp8GÀ×äää$$$Lš4)===!!aË–-a}Äĉ !………ô&À‹/îé•Úö1šV¼^/KåàyÞl6Ÿ;w®   Ü÷¶¶¶¾ùæ›o¾ùægŸ}¶gÏžÚÚÚM›6µ¶¶våúõë?þøãæææãÇÿý÷óçÏÿÍo~£Dø ¶ûï¿ÿܹsû÷ïß¹sgGGÇœ9sî¼óÎÐßÞÜܼk×® 6ìÙ³çàÁƒµµµ+W®¤GŠ~ÐoȆt(‡(Š555¯¼òJß¾a6ûí·,ËÞtÓMô¡ÍfKOOÿç?ÿÙý•Û¶m»þúë¥Û®^½úäÉ“ÇE9hâûï¿¿í¶Ûè!äñÇ?yòdèo?uêÔ„ æÌ™CÚl¶Áƒùå—Ý_‰~C6œ;$<Ïßpà ‡rùå—÷ôš²²²úúz‹ÅB¡ÿÜÃzÚí†aY–RZZêv»¥íuuu#GŽìþ–O?ýtéÒ¥¾[Æ¿uëVúé ¡æææY³fy<ž„„„áÇ|o¿ñòË/û>õÌ3Ϥ¥¥I{í7ÊËË}§)ÔÕÕ8q"`…~C6£§CA®½öÚ[n¹eÕªU„ŠŠŠî?¸è>mµZ{ÝŸA¨©© øÃ0õõõÝ·/_¾|þüùgÓìÝ»—¶IZZZÀaUP“ Ó¦M«¬¬|ùå—EQ¼ãŽ;öïßï÷š ýFccãÆŸyæ©4yý†t¬é ý†lFO‡ÿû¿ÿ{Ùe—mܸ‘>ljjò»;IccãwÞù‹_ü"”ýÌfsSSSèŸn·ÛÏœ9óÜsÏõô‚îsÏ|Q€&jkk èÃ0o½õVÀ~cÑ¢EÕÕÕ~ïåy~îܹ,Ë.^¼˜nA¿¡FO‡---#FŒèéÙÓ§OÏ™3§oß¾Ý÷éžô:è!±Ûí<ÏïÙ³§§ùÖYYYÇY­V߀š6mÚt×]wõôlggçœ9s’’’‡ßSôqÎœ9~?¯ÑoèÑÓaZZÚ™3g>ÕÑÑññÇ/X°€RVVÖÔÔÔëuB¡zÐ}:x™?ÿùÏ·mÛæ»[755mÞ¼9x mC‡í>:J¤»)ý{ݺuyyy^¯×ãñ°,˲¬Çãñ}oð ƒ°ÙlÝK£–.]úÒK/Ñ¿«««SSS¥—UWW'%%|W”àz8u žÕ¡`=755¥¦¦ì7-Z4cÆ ïý†ÔE¸Ýn†al6›ì ÒoÜ}÷ÝÒUŒš÷1šV¼^¯ÑY–ýÍo~STTDŽ;&=•‘‘‘Ma¦©©©¬¬¬ªª*ò[‚M˜0á³Ï>»úê«+**|àã±O>ùä€èI‡Ãár¹˜••uþüùŽŽŽ×^{MÆJ ,‹Årûí·ååå={–ÎK§ 0`ÀâÓoÔÔÔ8Ž‰'^z饂 ”••I/¶Ùl~£š= Þo¼òÊ+o¾ù&zŠ~C¶˜¼1•â÷ÓáwÞ!„Üxã„€‹´‰¢(‚ß8~ðUÜjllüÏþ“œœì»Ñl6Ór  ]3Dáy~ëÖ­ƒ š:uj¸Ÿ!~{;{}ŽšŸhL¨gu(^Ï<ÏôÑGä§ý†ß"m‚ ЧV¯^——çW˲!&ª^û¬¬,ß êö±{¿Ã˜Œ;v«;¶ ›VêY¨guÄnÿŒUi´ºÐB„ÜÜÜ /¨­­µÙlA^pߢ‡ü¶ 0à^Ûa…Q·imåìya½%zÞz{Ëó/>›“mNì×ÏDÈ©Ó§úö½øÂùs—\’ Õ–3'¿K¤Ÿxâu ­ç ]RRRM„üûûïék°EÙ-JÕóW_ þê‘›¦Þ¢uŸñ4ìÇV9ÿÖÊ«:§ÍÑ¡Ùl¶ÙlÉÉÉ»wï8á5x.TŠã1ÿœª•%Žûþíýû¿Ø§u Ћý_ìûíÒ_/qܧu ÿG?ýX¬ÓòœçM7Ý”——·bÅŠpߨԩÚPÊá~ä»îvXŠŠŠ,? ø‚… ®_¿~çÎEEEº:©ê@=«C©z6™Ln·»¸¸xîܹ~ sKTè7|ãÑU¿¡·xB§eÜ/]E´Ó!ÏóÇÑé´iBˆìOô]ÌPÚ¿¥oMÇéýzÛÐM«õ¬Ó¡×륋θÝn©-Ký†Ëå’^y¿Á0 í1|ûîñÈû”hÐ[<¡‹É¸£‘EQt¹\t‡¦— ùQ$J†±Z­,Ë>ûì³Ã† {ï½÷ˆþv#tÓê@=«CÙtH¹îºë>üÈ#Ð(ýtö¥l¿a6›iR´Z­Ò‹zë7ôO茾*”yžþʪª*¿-‡Ã÷Úšš¿ö@÷Ú€¥‰¢èt:éß.\¨ªª’q” š ý† ‡²Ûí¡¼¥{ÿpäÈ‘ÌÌLú7Ã0Ý×ûîNÚoØíö Ç‹ Ñ/´E‘ŽÙjÃéÓ§AÐ6m°§OŸÖ<†€‡¤ “Ò‹ ªA©°ÛÚÚ¤¿Ýnwuuu³Ö²?¥§-Kß¾}«ªªÆ£XZZ¨gu(UÏ¾í´ªªªoß¾*÷ÕÕÕÒêá^ýõ1šV¼^oLòF{lZšæ;‚*û}ÏHã‹…ã8»Ýî»ø¯Þàœ–:PÏêˆR=8°¶¶–¶èîg^”í7B\ï[[8wW¤É;ókd—&Íš±X,¾kér§Îå•=6›Þn—"„‚Ð}Ši¸Κ¨ŠÉ4»¿>|%%%íرCÏgÂqÔ¢Ô³:¢TÏ<ÏO˜0áüùóŠ—£b·6ôT g¯¸\®K.¹¤ûí¢´ŠBä×NY–½ì²Ë"9T6ÍÐé0øº©QÅó¼ïm<) ã€uo§7ÜpC¯WjEú ¥:jÈåréy˜Bg±X4<:¥ j µµU„˜˜$½²X,‚ ´¶¶jDéP}ôQAAf‹Ä†a >úè#­ˆ j€çùòòr­£Å”——kxút¨Žãpâ ž°,ÉÕÉ †N‡µµµê(]i0àªNšÄa ØNééCM®y@¿¡C§CM…Y³fMfffÀ‡X¤@ÿ¶S†a233׬Y£z8è7cèt¨‰Ó§OßtÓMZG »é¦›>¬u Ò¡ÚÞÿý1cÆh(l̘1{÷îÕ: éPm<Ϲ Ä(‹Å‚É¥1ÍÐéPýÅ8ŽcÆ÷¾ÚÆáê©šÍf†aÔŸ_Š~C)†N‡êOÛºukIIIOÏb)^ý ÒNKJJ¶nݪf0ý†r Õ÷á‡jDÚxìŠÕthú‘Óé”]ÈÅ_¬`H¡èìì\¼xqOϪ„+H;]¼xqgg§šÁ}ôN§SꓵŽE¾XM‡ÞErÍÍ…  ©W¢( ‚ÐÓ‰Cõã‚´S–eAEQ'ñ¨Æf³I}²Ö±È«é0ñ<d Ä:†a†ÁüÒeèt¨òj½.UŠÕ%ô/x;UñRôJ1t:Ty­?Qƒ§C¬= ÁÛ)˲*–¢ßPŠ¡Ó¡Ê¶lÙ’­uEÙÙÙ[¶lÑ: éP=cÇŽÕ: ˆ¢±cǪ?¹t¨zv·9ˆo´ãÞ‡±ÈÐé0’kÃÊR¥jÆòôÚNé½Õ † ßPŽ¡Ó¡ÝnWí³‚_qH©ÈÓk;5›Íj¦CôJ1t:T½èPë( êpéaŒB:TÉ_|û:ÅbùÇ?þ¡u6¤C5ˆ¢xèÐ!Ì£0–eOž<©òÕ‡9¤C5БR ––j‹Q†N‡ª-*B(‡†XÎ@ÿBi§,˪–Ño(ÅÐé°­­M 1ªÈJ;Us©6ôJ1t:T ¦• KcÒ¡B<:€ø@o|¨u¤C5„r >Ä ¤ÃXdèt¨ÎþZWWwñŇ’Ñ~ô/”vÊ0ÌÅ_\WW§“x †N‡¹¹¹*|Êwß}WRRÊ+Õ‰"b;-))ùî»ï¢ A¿¡C§Cu`¤À€T^¹"‡tu‚ `Z)€Ñ0 ƒt[£ÓJ ³ibÒaÔñ<ÁR£1›Í¸ô0¶ôÕ:™ÊÊÊè6›ÍjµjLôç!ŽŒ†¶zƒLp¹\qpâXM‡‡ƒþI¦Qaq£°[пÐÛ)Mít¨‡~Ãb±H3$8ŽÓ6Ùb5*rï@~µ½þúë¡¿Ø¿"b]XítÍš5Ѿѩú †aâà~®±šcÅ Aƒô<– у¶[0•&ºp.ÀÈÐĤÃè!Æ@‹Å‚k-bˆ¡Ó¡À>™Ô IDAT ‹…u >[пÐÛ©: Ó ßPŠ¡Óa´÷T:NúÜWüпÐÛ)äíñRôJ1t:Œ6QqÅ!€‘±,+Š¢ÖQ@H£ˆã8¬V `d ÃÄîuxFƒtE{öìINNÖ: ÐLrròž={´ŽB‚tEgÏžÍÉÉÑ: ÐÌUW]uöìY­£€:Úl¶¨–èСéÓ§‡þúhÇ‘ «:t(zÁôÊ1y½^­c›Éa›L&·Û»³iøííìõ9ZGÿPÏêФžyž/**Š‰þJ)±Ò?wgè£Ã¨Â½,@º¯…Ö@ï£Å 7v€àÔ¹"‡t-¸ë/Ü8v:Úíöè.ãü¨ÆŠ·FûJ|ôJ1t:Œêí›eüŒƒÛIÄ=í4ªG‡è7”bètU{÷îÍÎÎÖ: ÐبQ£öîÝ«uÐ;¤ÃhéììÌËËÓ: ÐXzzzgg§ÖQ@ž*À€öXÈ[ÿ£É@Â0 úý3t:ŒÞ…¢(Ê84Ä…ú'£Fur)ú ¥:¶µµE©džçeÜÚ)zñ€Rd´Ó¨¢ßPJ_­Iº…˲:¼§ (ŠøÉ”ÙlŽïs‡¢(ÆÁhp¬¦Ãššú‡Íf³Z­ÚÓ ˜GTÜŸ;ä8..ŒÕtØÔÔ¤uÁ‚€Å»€bY6²EV«U:,1™LÚ#›¡ÏFo]Ý£GÊ,Å:¿ú'£šÍæ£GF#‚~C9†N‡¹¹¹Ñ(–çùsçÎÉH‡QŠ$£šÍæsçÎEi¼ý†R £óhÀOÜϦ‰H‡ÊíÀnó¤H‡ÊÃÑ!øÁÑ¡þ!*O^ bs^téPy8:?8:Ô?C§Ã(-n$ûÜ![Ð?yí4zçÑo(ÅÐé0JÇp²qL  ²[w”ŽÑo(ÅÐé0š›› vPø)Ú'Ðþô éPa]]]éééZGºc6›»ºº´Žz„t¨0žçG¥u ;¸ôPç £±¸Q$ÓJ±Ø€þÉn§Qº 0ú ¥:Fã2 H.:ÄeIúI;RŸ£x™Ædèt ¸èŠÒÑ!(éPaX°Šû›Ç:¤C…áèÂÑ¡Î!*‰þôC:€îè¬ ê–¡Ó¡ÍfS¶À I;Æ"ú ¥:ÖÖÖ*[àÛo¿}É%—È~»âñ€â"i§¢(¾ýöÛ CÐo(§¯ÖÄ•‹/¾xòäÉZG:eµZµzdè£CÅáN‡.Ô-¤C%aZ)»êY¬¦Ã²¹\.Ù…ØívC"_t¨x< ¸HÚi4–-ÕC¿ár¹¤>YëXä3y½^­c›Édjjj¢³,+{|ÒdRøë›L¦¶¶6ÙQñx"Äoog¯ÏÑ:Šø‡zV‡RõI;!77WñnGó~CE)Í—••i<±:•Æb±h‚?\tÁÑþçy–eµŽEI Ãè°OW¬–êN@¯púP·ƒÕJ W¸ë¡n!*¦££#33Së(@×233;::´Ž0t:Tö`îƒ>¸páB$%àà@ÿ"l§.\ؾ}»RÁôÊ1t:lkkS°´”””—¤Q6ˆ†ÛéäÉ“/½ôR¥‚!è7”cèt¨,Að3 ‚3›ÍX˜FŸƒÚ W à êÒ¡2èþ­àµD .lllTª4Ð ÚK #ê¡Ó¡ÓéTª(¿CCžç+**"‰çÕW_]´h‘"±½õÖ[ƒ6™L&“©ÿþO<ñDO¯\½zõˆ#M&ÓUW]õñž ž„Øoé”=@”×ñ<Ÿ°zõji‹ ¦@Ö¯_°„ë®».99Ùd2%''_wÝu2£×C§C×úÁ÷ÐPEWÚúÆÓÐаmÛ6Eb»í¶Û <×ëýÅ/~ñßÿýß›¢(Š‡cìرǎkkk8p`õŸ–*@< ±ßÒ °,«`:”ѹ\®I“&]zé¥yyyÒF³Ùìý©¦¦&†a¦OŸÞ½„{î¹ÇívoÞ¼Ùëõ¾öÚkÿøÇ?GD_C ¤ø‰ÃòòòÑ£GG^ÎæÍ›‡ òþûïÓð^{íµÌÌ̆††î¯\²dInnîºuë†1›Ío¼ñÆ Ï7‘¬i~úã¸;î¸#???øËjjjl6[ÀžíÏþóŸÿügº0›Õj}üñÇlÓ Ò¡bzšV*ŠbEE]‡Âår¹\.«Õ:|øðáÇO:•"=¤/¦ïªªª’ŒÝnoll1bĨQ£²³³{»hÆŒ---ÒÃöööãǧ§§wåwß}wã7J†{u1–ÏPDUUmM‚ >|xË–-YYYW\qÅÔ©SEQ\²dIFFÆ•W^yÕUWµ··Kïòmø .”~ž–••ùzVUU…LmmíË/¿ü5Çqð˜vM•••Ò–Y³f}ûí·aÅ CzI‡›7o.++³Ûí1z†yçÎC‰¢XVVÆ0 Jåyþ駟þôÓOï½÷ÞGy¤µµuÒ¤Iôá“O>I©®®¦oäy^ª §Ó9wîÜÂÂÂ'Ÿ|2??ÿ7¿ù ÝÞÓX?%½Ý7OÿùÏ>|øܹs»‡ÊqܨQ£|· 4dÆ Ö ØívŽãhKaß¾}_|ñÅoûÛeË–µ··×ÖÖ>ôÐCO?ýtBBÂï~÷;ú®–––Ûo¿6ü±cǾòÊ+¾í‘ž˜¤Í\ê|ìv{OB¸GoA ?øà¿ŸÔf³ù’K.©«« ë#tÇ«ÇS__/ý]XX˜ššzÍ5×ÐÝeÅŠÁß®TØ ~ýŒŒŒuëÖI›šš,‹ÇãaYÖf³IÛgÏž‘‘AOãy½Þ«®º*%%EzH|†ï-KSS“´½¶¶V*ä’K.yï½÷dY[[Kq»ÝŸ-((hhhðÝòÛŸ*,,”ñA÷»µÁ”ªçû Ú x½^›ÍƲ¬ÔÌŸ}öÙ‹.ºhðàÁôáÝwßݧO©U®ZµŠaú÷´iÓf̘!8cƌٳgÓ¿=Ùlv8ôw¶¼/âÛÉø¡—ö·µµ|¶¡¡¡{Ï——G;­ÒJä´¹ÁÏóN§ÓjµB–,Yrþüùöövú3„çù &\{íµ±u”ŽŽŽŒŒ ß-]]]EEE§OŸ–nÍHÉÎΞ7ožôƒkÊ”)Äç—éyÄÕf³IOž<¹««‹þÍq\O!ùÝoÅétÚíöÚÚÚž*öܹs¾£4„¯ŽÊ.Ÿ`47ÝtÇqû÷ï—šù˜1c®ºêª?þ˜>üÅ/~ÑÞÞ.µÊ¼¼<éïwß}÷³Ï>“Š1b„ô7Ã0õõõEEE~=† = °…ukXzhd]‘îŸràÀœœœË×'íïw¸qãF:}ƒ>dY¶¨¨è©§ž 8ÝCYJ-nDñ}ÓÏ™3g>þøã™3gîÝ»·¢¢Â7#±nݺµk׆þ¹‚ ÔÔÔôô¬Ùl–öf)ú¦U?åååŸþ¹ï–Ïö2{îm¡Ç`¡÷û÷ïOOOŸ:uêm·ÝFgiÒí$„ˆ¢ñÄO?ý´t˜Þú©û/Ö×à î…Þo\¸p¶P:1¢¾¾Þ÷Yžçƒß2×b±Üwß}|ð}ØÒÒ’––&½·ªªjÅŠ<Ïÿú׿v»Ýt»4ù 555V«µû×\½zõ=÷ÜCÿ6›Í/¾øâŠ+èÿüå/½ÎSÕ?íÓajj*Çq¾»Å¡C‡’““5 I¿Ý://ïòË/'?Ži”••Ñ~õ[¹rå}÷Ý÷ÐC™ÍfidU:p,--½páÂwß}Gyøá‡7mÚtõÕWWVVþë_ÿzýõ×o¾ñ6¬Â Û¨Q£è˦¦¦ÜÜܪª*)]Y,–^/M^ºté¤I“Æ_UUõâ‹/òµ~ýú;wîܹS“Àäé~Ïl6K'X–mjj¢G~çíüú½KJE~Gu¾OõjçÎ………{÷îÝ»w¯o ´ñ,_¾ÜwH„ã¸?ýéOk×®MKK«®®f/¿!ÄO?¾Í™a© Ûyžçyž„ùö¾G}äÈ‘iÓ¦-_¾¼oß¾+V¬Îå[,Ú„†©­­•wATO=‰Ãáè~Øj³Ùš››çÏŸ/½·­­Ín·ÿãÿ9räîÝ»c}¤”bòz½š|pcccÿþý9Ž;wîœÛí~ÿý÷ !ÇÝvÛm7Üpƒß¨‚“I™°•º½è'ò_gz»'¿½½>Gë(âêYJÕ³"íT©NC©x¤Tÿ¬>ÍKËËËI·1F‹Å¢æµœ¹¹¹Šü·ñ<¯ÈIHHÈÉÉ™8qâ5×\£ÚÂw¡¬Ó+žç•ZFG‘x ª”j§½.L£f< ÙÑassóÏ~ö3«ÕJg'&&¶··?þøãÇ—ÖŠ¶ x†NÅk¯½6òrˆBñ@T)ÕN¯½öZEÆ–Ðo(E³£ÃŠŠŠI“&u_§›ã¸[o½uÖ¬Y‘ÿhR‡Þ®€˜À0LŒÞÞ5^istØÒÒrüøñW_}µûS‹eüøñ+W®T?*yDQD:€p™ÍfÌ<ÐmÒ¡(Šƒîéæ&]]]gÎœQ9$Ùpt2˜Íf¥¦Eh“g̘qöìÙeË–uJÅÝ»wOŸ>]…0ìv{ä…‚ð0WE
Rª¾úê«Š¢ßPŠfˆ,[¶ìÉ'Ÿœ1cÆøñã333“’’.\¸°}ûöõë×›Íæ={öy¯~®;!77—¢“x”…ëáÔzV‡¯;$„´µµE8¼¤·~Coñ„N³©4¿ÿýﯿþúµk×rÇóü€RRRrss.\øÜsÏiU¸>ùä“ÔÔÔS§NiÄžÔÔÔO>ùg[tBËëKKKKKK5 rß|óÍرc»ßï WcÇŽýæ›o´ŽþV¥‰ˆ =M×Zè ÒaDp•Ȇk-tÅÐé0òÕèÑ¡R«B`u ýS°½+rtˆ~C)†N‡‘¯õ'Š"˲J­ˆµôOÁöβläG‡è7”bèt9\E ²1 ƒ>D?å£?ëbemUЖe n§H‡òágD=‰N::ÎHÞ~äÈ‘qãÆE^ŽRñ€ ”mïãÆ;räˆâ˜\MG'‹´-X°àÃ?üì³Ïtâ°x˜:PÏêÐá"m^¯÷Ê+¯7nÜk¯½¦yú—Ë\c5:ú½ŽUž¶¶6Ùïõ½©S$åøRªˆžh´wŽãdçE=ô‹Eº·OìÞð.VÓ¡"?©"¼…ƒR7µÀÍ1ôOñöao¦‡~ƒa˜88ÌŹC™b÷è ú=@:”©³³333Së( æeffvvvj;Fr§±}ûö)RŽ/Ü@ÿ¢ÑÞ}û“HÊH:æææÊ~oJJÊ´iÓ"/G©x@Š·÷iÓ¦¥¤¤h:F‚ã8i&€l ÃàÜ¡ ÊÉ5z@:”ƒþ”ÃÑ!DŽö$8@ÔÒ¡LøAJA¢H‡ràÄ!(§õÀÐé°¶¶Vö{}ÍERŽ/¥Ê€è‰F{äèý†R m6›¼7ú­@/»?J•Ñ¥ö.û¾è7”bèt(Û矞­u'²³³?ÿüs­£0:¤C9>œ——§u'òòò>¬uF‡t(f‚€RПè¡Ó¡Ýn—ñ®îÊ+G©x@MÑhï‘\zˆ~C)†N‡²oßìwg/¥n·“ˆ{Qjï²ïˆ~C)†N‡òàò ˆô-ÚB:”ý ,ô*šC: ›ì˃‚@ߢ-¤Ã°‰¢({” ‹Å"Š¢ÖQš¡Ó¡¼Õºÿ‚ê4ƽö.ïèý†RL^¯WëÂf2i¶(ŠŒÅJ“ßÞÎ^Ÿ£uñõ¬ý׳Édòx<±~{ ûçõÕ:™¤)X,˪¹÷ð<ë;+èÃ0<ÏÇâ¹QãàÄg¬¦Ãššú‡Íf³Z­ª}® ˜ÑÀ²¬ ZG!Çqqpùc¬¦Ã¦¦&M>W@40 £éÐjµJ‡%&“IÛ`d3ôT?gDQ4›Í‘—£T< ²èµw³Ù,cr)ú ¥:ÊXëO„îék–GôÚ»Ùl–qtˆ~C)†N‡2ð<ß=DÎl6ÇÁ„”Ø…tž€ƒ¥‘“7X JA: Css3!é¢ö-´Ÿõ!†¡«« ¹¢Çl6wuui…A:†›Û8Ž ø¥r$r-€þEµ½›Íæpoó„~C)†N‡mmmá¾%à5ø2Ê H©r z¢ÚÞe¬ò~C)†N‡á¤/ˆ6ô3ZA: níQ…ÛF×ÀR¿VŠ¡CÇóQ'0ãQ¨guÄV=s7kÖ¬“'OjHØ0³4n‰¢xêÔ)æBÐÅb9uêÆKÕ„tØ žç1Ô‡;=© é°X¼4…¼Ufèth·Û{}M(ÓJC)G©x@[ªµ÷'—¢ßPŠ¡Óa(ë†2Xɺ©Ñ(¢Gµöâ`)ú ¥:†âÃ?Ä`)¨eÙ?üPë( é0QOŸ>têcYöôéÓ˜\ª¤Ã`èH)f–€ú†1›Í˜M£¤Ã`0­4d6›±r©j Ífsð‚J:ìµ¥âÍ©ÙÞC™\Š~C)†N‡mmmÁ_ B(»Z¯å(hNÍön6›AP'0t:ìÇqøåZaYƒ¥ªA:ìQkk+!Äb±h=YÓÜܬu †€tØ£dggkšÙl>~ü¸ÖQ‚¡ÓaðAyžço¼ñÆÈËQ*ЕۻÅb ~­ú ¥:æææy–çùO/G©x@Tnï½^zˆ~C)†N‡Áá¢CÐîk¡š¾Z SUUýÃjµF#i ‚ʽ,¢Š^zâE_ZáyÞåriE¤ptØŽ;²²²°<h‹a˜¬¬¬;vhHü‹Õ£ÃêêꨖßÒÒ2dȨ~@(† ÒÒÒ2þ|­é˲ÒXZMM¶ÁȆ£ÃÀŽ9bµZµŽ€X­Ö#GŽhEü3t: ²¸QXóh°H€q¨ßރϦA¿¡C§ÃžNMÓy4¡¯Gƒ%¼ŒCýön±XDQì)#¢ßPŠ¡ÓaO8ŽÃœRÐ\n¡¤Ã† ¦uÿgØ°a ZGçèèè())Ñ: €ÿSRRÒÑÑ¡uqÎÐé0àâF¢(¶¶¶–——GXŽRñ€®hÒÞËËË[[[Þ ý†R .}KïqÖÙi,á `š´wÚ)¼÷!ú ¥:Äó<îqzÓë­- BH‡þ6lØ€‰Ë 7f³yÍš5ZGÏB„ÇÛl6­ø ›ÍÖÙÙ‰¡ÑèA:ü zÅ!Vî½a†eÙ€§A†N‡Ý9Ž“qâP©£I•蟆íÝb±tO‡è7”bòz½ZÇ6“)Za'&&þíoÃ’4¿½½>Gë(âêYqPÏ<ÏOš4éìÙ³ZLôúçh3ôÑ¡—Ë•žžŽ\úIJlzzzÜhWŸÿ?ŽãæÌ™£u=š3gNFILÕFã`\ÅáÇ¿ûî»8:” »,ûðѯ´Ž"þ¡žÕõÌóüõ×_ßÞÞ®Û,Iv»]ú{íÚµ)))òr¡o9JÅ£G¾>¤u†€zV‡Rõ¬m{gY655uíÚµŠÇ1™Æ•úõá[Nnn®Ífs8:‰GôO¼B=«CoíTv9555N§Sºë¯Þö½Å:íyž¯««Û¼y³†âuuuÇ›ùÊN§Së~B©xâµ¥èí{é­œ¸a³ÙŽ?^WW§l±¨g-Óø‚ èšCééé©©© „äççoݺ5ø2iŠÿ:ËÎΞ8qâÆ#,G©xPÊA9('ˆ9sæìÚµ«µµ•a=ÄrÔ§ÙÑá„ víÚµ~ýz¯×ÛÑÑñÅ_x½ÞÝ»w?>??_Í…ˆ¦M›F‘ TFû«ÊÊJ­‰+Ú¤ñöööáÇ·µµ< ¼òÊ+-Ë /¼ÐÓÛü3eÊ”]»v566Fr¿_½ýªB9(åÄ}9---åååW_}uss³âQ¼õi7½ÂïøñãŸ-//?sæÌöíÛ{z{Ÿ>}b´ºâ›ÉdúÏþ£urôÕäS/¿üò'N‚ðèð›o¾;vl·Çh]€nisî0''güøñÅÅÅ«W¯EQÚ¾yóæéÓ§üñÇ>ø &€1i<³tëÖ­Ç¿ä’K†ÚÞÞN),,lhhÀ x@Mº8çYWW—””TXXˆ,šÐE:Жö«Òhé ÖÒáúõëËÊÊrrrÊÊÊV¯^­u8ñ©¥¥eøðáe>Ô\$È'L˜Ð}»Ãá(((>|ø=÷ÜCg–A$Öó„ Š‹‹¥}»¢¢B“ØâCkkëµ×^˲ìðáíV«ß³1·?ksÝ¡<<ÏßqÇ>øàüùóÝn÷½÷Þ›——g±X´Ž+Þüýï8p ïÍ=0ÅIAuuuv»=++Ëoû=÷ÜÓÐÐ0oÞ¼nØ°á¿þ뿤[€ =Õó×_}ß}÷3†>Ôí]õOÅâââ‚‚‚¥K—;vléÒ¥………Ÿ|ò }6&÷goìÈÏÏ_´h‘ôpÑ¢EéééƯ‡ÍfÓ:ŠøT[[›’’2wî\‹Åâ»}÷îÝ„·ÛMz<ž´´´¥K—jc<è©ž½^¯o=C$l6[aa¡ôf»Ý»w{cvŽ¥ÁÒýû÷ß}÷ÝÒçŸ~º³³Ó÷*~P„ çÏŸŸ6mÚ‚ {ì1Œ”*Èf³}õÕWóæÍóÛþÎ;ï”––JwŸfÆn·>|XõãDOõL½ÿþûsyèöºIDATæÌ™5k–ËåR9°x2gÎœW_}UzÈ0LRRÒ·ß~KbvŽ™tØÚÚJñ½[=Ã0ÉÉÉ---ÚŸ>øàƒuëÖ=zôìÙ³o¼ñF~~~ss³ÖAÅ€£sÇ=ÚwK~~þŽ;Ô *õTÏ„ššš³gÏz<ž;ï¼søðáøI-oÂ#„Ü{ï½Ã† +--%1»?Ç̹Ã'NŒ1Âocvv¶&ÁÄ·ûî»ïÆo”öæÇ{lêÔ©ßÿ½¶QÅ·ãÇûö,„´´´””­â‰W‹å¡‡zî¹çèCQ‹ŠŠ–,YòÚk¯iX¬«««Û´i“Ûí¦ctŽ™£Ãÿûß_}õ•ßÆýë_gÎœÑ$ž8æp8|Ù=õÔS„õë×kQü3™L{÷îõÝÒ§OŸî;]«ŒÀjµnݺÕ÷$VcccFF††!Å¥šš§Óé»åÝwß%%eùò姭­­²²2))iË–-ZEÓÜn7Ã0µµµŸÅý9–Ò¡×ë9sæ!C!C† ™9s¦Öáħ÷Þ{oúôé]t­ç»ï¾[ëˆâÛí¶Z­~<8}úô„„„„„„’’’ææfMb‹'ëyéÒ¥™™™„„„„iÓ¦¡žeó›;JIÙ1÷gÜÑ ¦ÎD Ò!Ò!Ò!A: H‡é€ ¤C‚t@bÔÊ•+çÌ™£uñ£¯Ö@Ø,X°fÍšÂÂB­ˆ8:ˆ=iii÷ßÿ¥—^ªu ñé@m555‚ HŸyæ™›nºéÖ[ommm ±„+VÜ|ó;[œN'ÏóJF `0,PÕ¬Y³8Ž³Z­ôá3Ï<ó‡?üáꫯ>xð`IIÉÉ“'év—ËÕ=½Y­V–e+ÂC=täȆa¢<@ÃÑ!€L‚ TUU…õ–Í›7¿ñÆf³™nÙ¾}ûÈ‘#9ŽÛ¹sç©S§dS]]}Í5×ø2@èpt “ áŽOÚl¶¹sç–””H[>\WW÷ÙgŸù¾ÒjµJG!jhhÈÊÊr:6›-¬7A:PÍc=Ö¯_¿^xÁwã /¼0räÈyóæýðÃ3gÎŒ¤|†a/^¼lÙ2¤C0X   —Ëå;A¦»·ß~{âĉ~çöÌfóÈ‘#ÇŽÛ·oßÙ³g‡þq,ËvO{‡£³³3xÒ!€œN§Ýnþš'NÜu×]~éˆëªU«ºººBÿD†aº¦2 “••…t Ò!@¤œNgUUUSS“4A& C‡uËåbYvôèÑ&LزeKäÁôéÓgÇŽ‘—`4H‡yì±Çxদ¦ž.ð0Òƒ¼ùóçŸ?ÞårEONNÎÕW_a!„t ßÑ£GW®\9xð`§ÓÊëýf¢Ò‘Ò7ß|³¬¬lãÆ]]]›6mŠ0¤ööö£GFX€af)€LøòË/?øàBHYYYÀ¹-¾, Ïó¾‘.—«  à‰'ž =϶mÛ"Œª½½}Ĉ`@8:)//¯¤¤„eY–eëëëív{ðcÄ®®®7únáy~Þ¼y–-^¼øÂ… ‘Œ— ‚п‹Å"»ÃB:‰aéª ‹ÅR[[Ëq\×ÿñlnn–¦}æææº\®ªª*:%U»ÝþÃ?TTTÈžZSS3wî\yï08“×ëÕ:£˜0a¿ÿýï={öD£pŽãÊÊÊÚÚÚ‚Op€€pt žmÛ¶µµµ-Y²Dñ’yž¿å–[ª««‘ äÁÑ!€ªçÍ›Çq\(f„®¬¬,55õ/ù‹‚e Ò!KÒ!A: H‡é€ ¤C‚t@Ò!A: „ü?/ çûY•LIEND®B`‚ifeffit-1.2.11d/doc/RefMan/figs/plot_points.png0000644000175000017500000000333710771740460020311 0ustar segresegre‰PNG  IHDRDVu8PLTEÿÿÿ¥ÙŸÝ”IDATxœíÜ?nãFpnåÒ­Sé{/ˆ É Rˆ-Æp‘2µ-\å ìŠ1\,R¹ÜBØp .Œ€”„RFœ‰Þ›?üžDY¶¨ ÂîLcHoüÓÌ”øad'™VáóÔÒC‘ˆ|Hº7#‰HD"‘}D®DÏ{ŠÒôKµD~HŠ=¢Tbi&‘!öœ‹‘ˆ’)°ôWƒ$4¬u:%"Z”®%Ò§g×#Z =_z·øñÇó‘h*7¾D¿õñÉHí‘yºøy‡È;‡¤KˆÎ¡åRÉÂë,!›GR…é\.#öC8 Ò#Ú rjÄÉFc–'ƒ@ Dªp²›•3öãz$ÇÒ,³ŠŒÛj ÎT§ F {n,E$"‰HDÖ ;iû3ˆD$"Ù1ò#öœ‹ 'îce¼’HŽH-‚žÆ’%H+HÓóÎ,%/‰ô× ‡>áx$„¦iŠÈ¹DhPg¾'Å•úž#Dþ.ÐϾt*ê9DdZ´#‹Ò¼çKýð[ßîÂ,ýH˜i!¾ñLCé»Å·ÍHV‘ª¡‘T"¿Êé¬Aú2 D¨¤å®AD(Wb€\X9qj!HR.ž„\L1éd»ð=©Í/[j2^HDfÀ{,É x'ÑÓµ§–"‘ˆDäsDb|‹HD"‘ÿ™L{Ð3½ƒžK¥K¶ÑôÔ½*lOÚiÒùèy_ ¢óK|ÛÌ'ªl:¯\OQS2TR€Œ´‰ò=kzZ ʀߔ( ¨5Ok qÓáÝ·|ìJ”’TíŽ?ªlCôù¼z™;äˆ~KY$]BxDa$6¾9dÚ£’v%þ­JŽ¤}:2òp€×Ž}ËYÉ€Ô’ï3Dls׎kϹŠgáªÃ[nžÚ7!:kÞîŸóöSm¼7=©¶ÕGÆ´×ôÌÍ–^Øs'Havð¾“[‹ÜäÐTŠ®Ý:¦]“…Ó¤’‡#ܹnn;¶GæGiwÄýrGäI¥=Ê€ÿ&¾­ÄIEND®B`‚ifeffit-1.2.11d/doc/RefMan/figs/plot_fonts.ps0000644000175000017500000007670610771740460017776 0ustar segresegre%!PS-Adobe-3.0 EPSF-3.0 %%For: newville %%Title: PGPLOT PostScript plot %%Creator: PGPLOT [PSDRIV 6.6] %%CreationDate: 31-Mar-2002 22:57 %%BoundingBox: (atend) %%DocumentFonts: (atend) %%LanguageLevel: 1 %%Orientation: Landscape %%Pages: (atend) %%EndComments %%BeginProlog /L {moveto rlineto currentpoint stroke moveto} bind def /C {rlineto currentpoint stroke moveto} bind def /D {moveto 0 0 rlineto currentpoint stroke moveto} bind def /LW {5 mul setlinewidth} bind def /BP {newpath moveto} bind def /LP /rlineto load def /EP {rlineto closepath eofill} bind def /MB {gsave translate MFAC dup scale 1 setlinewidth 2 setlinecap 0 setlinejoin newpath} bind def /ME /grestore load def /CC {0 360 arc stroke} bind def /FC {0 360 arc fill} bind def /G {1024 div setgray} bind def /K {3 -1 roll 1024 div 3 -1 roll 1024 div 3 -1 roll 1024 div setrgbcolor} bind def % Uncomment next line to convert color to grey shades %/K {3 -1 roll 3413 div 3 -1 roll 1739 div 3 -1 roll 9309 div add add setgray} bind def %%EndProlog %%BeginSetup /#copies 1 def %%EndSetup %%Page: 1 1 %%BeginPageSetup /PGPLOT save def 0.072 0.072 scale 4849 250 translate 90 rotate 1 setlinejoin 1 setlinecap 1 LW 1 %%EndPageSetup %%PageBoundingBox: (atend) 1024 G 1024 G 1 LW 0 0 BP 7499 0 LP 0 4499 LP -7499 0 EP 1024 G 1024 G 2 LW 0 G 7499 0 0 0 L 0 4499 C -7499 0 C 0 -4499 C 0 1 C 0 0 75 0 L 0 0 150 0 L 0 0 225 0 L 0 0 300 0 L 0 1 375 0 L 0 0 450 0 L 0 0 525 0 L 0 0 600 0 L 0 0 675 0 L 0 1 750 0 L 0 0 825 0 L 0 0 900 0 L 0 0 975 0 L 0 0 1050 0 L 0 1 1125 0 L 0 0 1200 0 L 0 0 1275 0 L 0 0 1350 0 L 0 0 1425 0 L 0 1 1500 0 L 0 0 1575 0 L 0 0 1650 0 L 0 0 1725 0 L 0 0 1800 0 L 0 1 1875 0 L 0 0 1950 0 L 0 0 2025 0 L 0 0 2100 0 L 0 0 2175 0 L 0 1 2250 0 L 0 0 2325 0 L 0 0 2400 0 L 0 0 2475 0 L 0 0 2550 0 L 0 1 2625 0 L 0 0 2700 0 L 0 0 2775 0 L 0 0 2850 0 L 0 0 2925 0 L 0 1 3000 0 L 0 0 3075 0 L 0 0 3150 0 L 0 0 3225 0 L 0 0 3300 0 L 0 1 3375 0 L 0 0 3450 0 L 0 0 3525 0 L 0 0 3600 0 L 0 0 3675 0 L 0 1 3750 0 L 0 0 3824 0 L 0 0 3899 0 L 0 0 3974 0 L 0 0 4049 0 L 0 1 4124 0 L 0 0 4199 0 L 0 0 4274 0 L 0 0 4349 0 L 0 0 4424 0 L 0 1 4499 0 L 0 0 4574 0 L 0 0 4649 0 L 0 0 4724 0 L 0 0 4799 0 L 0 1 4874 0 L 0 0 4949 0 L 0 0 5024 0 L 0 0 5099 0 L 0 0 5174 0 L 0 1 5249 0 L 0 0 5324 0 L 0 0 5399 0 L 0 0 5474 0 L 0 0 5549 0 L 0 1 5624 0 L 0 0 5699 0 L 0 0 5774 0 L 0 0 5849 0 L 0 0 5924 0 L 0 1 5999 0 L 0 0 6074 0 L 0 0 6149 0 L 0 0 6224 0 L 0 0 6299 0 L 0 1 6374 0 L 0 0 6449 0 L 0 0 6524 0 L 0 0 6599 0 L 0 0 6674 0 L 0 1 6749 0 L 0 0 6824 0 L 0 0 6899 0 L 0 0 6974 0 L 0 0 7049 0 L 0 1 7124 0 L 0 0 7199 0 L 0 0 7274 0 L 0 0 7349 0 L 0 0 7424 0 L 0 1 7499 0 L 0 1 0 4498 L 0 0 75 4499 L 0 0 150 4499 L 0 0 225 4499 L 0 0 300 4499 L 0 1 375 4498 L 0 0 450 4499 L 0 0 525 4499 L 0 0 600 4499 L 0 0 675 4499 L 0 1 750 4498 L 0 0 825 4499 L 0 0 900 4499 L 0 0 975 4499 L 0 0 1050 4499 L 0 1 1125 4498 L 0 0 1200 4499 L 0 0 1275 4499 L 0 0 1350 4499 L 0 0 1425 4499 L 0 1 1500 4498 L 0 0 1575 4499 L 0 0 1650 4499 L 0 0 1725 4499 L 0 0 1800 4499 L 0 1 1875 4498 L 0 0 1950 4499 L 0 0 2025 4499 L 0 0 2100 4499 L 0 0 2175 4499 L 0 1 2250 4498 L 0 0 2325 4499 L 0 0 2400 4499 L 0 0 2475 4499 L 0 0 2550 4499 L 0 1 2625 4498 L 0 0 2700 4499 L 0 0 2775 4499 L 0 0 2850 4499 L 0 0 2925 4499 L 0 1 3000 4498 L 0 0 3075 4499 L 0 0 3150 4499 L 0 0 3225 4499 L 0 0 3300 4499 L 0 1 3375 4498 L 0 0 3450 4499 L 0 0 3525 4499 L 0 0 3600 4499 L 0 0 3675 4499 L 0 1 3750 4498 L 0 0 3824 4499 L 0 0 3899 4499 L 0 0 3974 4499 L 0 0 4049 4499 L 0 1 4124 4498 L 0 0 4199 4499 L 0 0 4274 4499 L 0 0 4349 4499 L 0 0 4424 4499 L 0 1 4499 4498 L 0 0 4574 4499 L 0 0 4649 4499 L 0 0 4724 4499 L 0 0 4799 4499 L 0 1 4874 4498 L 0 0 4949 4499 L 0 0 5024 4499 L 0 0 5099 4499 L 0 0 5174 4499 L 0 1 5249 4498 L 0 0 5324 4499 L 0 0 5399 4499 L 0 0 5474 4499 L 0 0 5549 4499 L 0 1 5624 4498 L 0 0 5699 4499 L 0 0 5774 4499 L 0 0 5849 4499 L 0 0 5924 4499 L 0 1 5999 4498 L 0 0 6074 4499 L 0 0 6149 4499 L 0 0 6224 4499 L 0 0 6299 4499 L 0 1 6374 4498 L 0 0 6449 4499 L 0 0 6524 4499 L 0 0 6599 4499 L 0 0 6674 4499 L 0 1 6749 4498 L 0 0 6824 4499 L 0 0 6899 4499 L 0 0 6974 4499 L 0 0 7049 4499 L 0 1 7124 4498 L 0 0 7199 4499 L 0 0 7274 4499 L 0 0 7349 4499 L 0 0 7424 4499 L 0 1 7499 4498 L 0 0 0 0 L 0 0 375 0 L 0 0 750 0 L 0 0 1125 0 L 0 0 1500 0 L 0 0 1875 0 L 0 0 2250 0 L 0 0 2625 0 L 0 0 3000 0 L 0 0 3375 0 L 0 0 3749 0 L 1 0 C 0 0 4124 0 L 0 0 4499 0 L 0 0 4874 0 L 0 0 5249 0 L 0 0 5624 0 L 0 0 5999 0 L 0 0 6374 0 L 0 0 6749 0 L 0 0 7124 0 L 1 0 0 0 L 0 0 0 45 L 0 0 0 90 L 0 0 0 135 L 0 0 0 180 L 1 0 0 225 L 0 0 0 270 L 0 0 0 315 L 0 0 0 360 L 0 0 0 405 L 1 0 0 450 L 0 0 0 495 L 0 0 0 540 L 0 0 0 585 L 0 0 0 630 L 1 0 0 675 L 0 0 0 720 L 0 0 0 765 L 0 0 0 810 L 0 0 0 855 L 1 0 0 900 L 0 0 0 945 L 0 0 0 990 L 0 0 0 1035 L 0 0 0 1080 L 1 0 0 1125 L 0 0 0 1170 L 0 0 0 1215 L 0 0 0 1260 L 0 0 0 1305 L 1 0 0 1350 L 0 0 0 1395 L 0 0 0 1440 L 0 0 0 1485 L 0 0 0 1530 L 1 0 0 1575 L 0 0 0 1620 L 0 0 0 1665 L 0 0 0 1710 L 0 0 0 1755 L 1 0 0 1800 L 0 0 0 1845 L 0 0 0 1890 L 0 0 0 1935 L 0 0 0 1980 L 1 0 0 2025 L 0 0 0 2070 L 0 0 0 2115 L 0 0 0 2160 L 0 0 0 2205 L 1 0 0 2250 L 0 0 0 2294 L 0 0 0 2339 L 0 0 0 2384 L 0 0 0 2429 L 1 0 0 2474 L 0 0 0 2519 L 0 0 0 2564 L 0 0 0 2609 L 0 0 0 2654 L 1 0 0 2699 L 0 0 0 2744 L 0 0 0 2789 L 0 0 0 2834 L 0 0 0 2879 L 1 0 0 2924 L 0 0 0 2969 L 0 0 0 3014 L 0 0 0 3059 L 0 0 0 3104 L 1 0 0 3149 L 0 0 0 3194 L 0 0 0 3239 L 0 0 0 3284 L 0 0 0 3329 L 1 0 0 3374 L 0 0 0 3419 L 0 0 0 3464 L 0 0 0 3509 L 0 0 0 3554 L 1 0 0 3599 L 0 0 0 3644 L 0 0 0 3689 L 0 0 0 3734 L 0 0 0 3779 L 1 0 0 3824 L 0 0 0 3869 L 0 0 0 3914 L 0 0 0 3959 L 0 0 0 4004 L 1 0 0 4049 L 0 0 0 4094 L 0 0 0 4139 L 0 0 0 4184 L 0 0 0 4229 L 1 0 0 4274 L 0 0 0 4319 L 0 0 0 4364 L 0 0 0 4409 L 0 0 0 4454 L 1 0 0 4499 L 1 0 7498 0 L 0 0 7499 45 L 0 0 7499 90 L 0 0 7499 135 L 0 0 7499 180 L 1 0 7498 225 L 0 0 7499 270 L 0 0 7499 315 L 0 0 7499 360 L 0 0 7499 405 L 1 0 7498 450 L 0 0 7499 495 L 0 0 7499 540 L 0 0 7499 585 L 0 0 7499 630 L 1 0 7498 675 L 0 0 7499 720 L 0 0 7499 765 L 0 0 7499 810 L 0 0 7499 855 L 1 0 7498 900 L 0 0 7499 945 L 0 0 7499 990 L 0 0 7499 1035 L 0 0 7499 1080 L 1 0 7498 1125 L 0 0 7499 1170 L 0 0 7499 1215 L 0 0 7499 1260 L 0 0 7499 1305 L 1 0 7498 1350 L 0 0 7499 1395 L 0 0 7499 1440 L 0 0 7499 1485 L 0 0 7499 1530 L 1 0 7498 1575 L 0 0 7499 1620 L 0 0 7499 1665 L 0 0 7499 1710 L 0 0 7499 1755 L 1 0 7498 1800 L 0 0 7499 1845 L 0 0 7499 1890 L 0 0 7499 1935 L 0 0 7499 1980 L 1 0 7498 2025 L 0 0 7499 2070 L 0 0 7499 2115 L 0 0 7499 2160 L 0 0 7499 2205 L 1 0 7498 2250 L 0 0 7499 2294 L 0 0 7499 2339 L 0 0 7499 2384 L 0 0 7499 2429 L 1 0 7498 2474 L 0 0 7499 2519 L 0 0 7499 2564 L 0 0 7499 2609 L 0 0 7499 2654 L 1 0 7498 2699 L 0 0 7499 2744 L 0 0 7499 2789 L 0 0 7499 2834 L 0 0 7499 2879 L 1 0 7498 2924 L 0 0 7499 2969 L 0 0 7499 3014 L 0 0 7499 3059 L 0 0 7499 3104 L 1 0 7498 3149 L 0 0 7499 3194 L 0 0 7499 3239 L 0 0 7499 3284 L 0 0 7499 3329 L 1 0 7498 3374 L 0 0 7499 3419 L 0 0 7499 3464 L 0 0 7499 3509 L 0 0 7499 3554 L 1 0 7498 3599 L 0 0 7499 3644 L 0 0 7499 3689 L 0 0 7499 3734 L 0 0 7499 3779 L 1 0 7498 3824 L 0 0 7499 3869 L 0 0 7499 3914 L 0 0 7499 3959 L 0 0 7499 4004 L 1 0 7498 4049 L 0 0 7499 4094 L 0 0 7499 4139 L 0 0 7499 4184 L 0 0 7499 4229 L 1 0 7498 4274 L 0 0 7499 4319 L 0 0 7499 4364 L 0 0 7499 4409 L 0 0 7499 4454 L 1 0 7498 4499 L 0 0 0 0 L 0 0 0 225 L 0 0 0 450 L 0 0 0 675 L 0 0 0 900 L 0 0 0 1125 L 0 0 0 1350 L 0 0 0 1575 L 0 0 0 1800 L 0 0 0 2025 L 0 0 0 2249 L 0 1 C 0 0 0 2474 L 0 0 0 2699 L 0 0 0 2924 L 0 0 0 3149 L 0 0 0 3374 L 0 0 0 3599 L 0 0 0 3824 L 0 0 0 4049 L 0 0 0 4274 L 1024 G 0 G 17 8 566 4196 L 26 26 C 0 -181 C 0 -181 1033 4230 L 121 0 972 4230 L 0 -181 1137 4230 L 26 26 1137 4135 L 17 9 C 26 0 C 17 -9 C 9 -26 C 0 -86 C 104 0 1292 4118 L 0 17 C -8 18 C -9 8 C -17 9 C -26 0 C -18 -9 C -17 -17 C -9 -26 C 0 -17 C 9 -26 C 17 -18 C 18 -8 C 26 0 C 17 8 C 17 18 C -18 18 1708 4204 L -26 8 C -34 0 C -26 -8 C -17 -18 C 0 -17 C 8 -17 C 9 -9 C 17 -8 C 52 -18 C 17 -8 C 9 -9 C 9 -17 C 0 -26 C -18 -18 C -26 -8 C -34 0 C -26 8 C -17 18 C 0 -121 1863 4170 L -17 17 1863 4144 L -17 9 C -26 0 C -17 -9 C -18 -17 C -8 -26 C 0 -17 C 8 -26 C 18 -18 C 17 -8 C 26 0 C 17 8 C 17 18 C 0 -121 1933 4170 L 26 26 1933 4135 L 17 9 C 26 0 C 17 -9 C 9 -26 C 0 -86 C -9 17 2184 4144 L -26 9 C -26 0 C -26 -9 C -9 -17 C 9 -17 C 17 -9 C 44 -9 C 17 -8 C 9 -18 C 0 -8 C -9 -18 C -26 -8 C -26 0 C -26 8 C -9 18 C -17 18 2495 4204 L -26 8 C -35 0 C -26 -8 C -17 -18 C 0 -17 C 9 -17 C 8 -9 C 18 -8 C 51 -18 C 18 -8 C 8 -9 C 9 -17 C 0 -26 C -17 -18 C -26 -8 C -35 0 C -26 8 C -17 18 C 104 0 2547 4118 L 0 17 C -9 18 C -8 8 C -18 9 C -26 0 C -17 -9 C -17 -17 C -9 -26 C 0 -17 C 9 -26 C 17 -18 C 17 -8 C 26 0 C 18 8 C 17 18 C 0 -121 2711 4170 L 9 26 2711 4118 L 17 17 C 18 9 C 26 0 C 9 -8 2815 4230 L 9 8 C -9 9 C -9 -9 C 0 -121 2824 4170 L -17 0 2945 4230 L -18 -8 C -8 -26 C 0 -147 C 60 0 2876 4170 L 0 -181 3135 4230 L 113 0 3135 4230 L 70 0 3135 4144 L -18 -9 3326 4170 L -17 -17 C -9 -26 C 0 -17 C 9 -26 C 17 -18 C 18 -8 C 26 0 C 17 8 C 17 18 C 9 26 C 0 17 C -9 26 C -17 17 C -17 9 C -26 0 C 0 -121 3455 4170 L 26 26 3455 4135 L 18 9 C 26 0 C 17 -9 C 9 -26 C 0 -86 C 0 -147 3628 4230 L 9 -26 C 17 -8 C 18 0 C 60 0 3603 4170 L 0 9 548 3737 L 9 17 C 9 9 C 17 9 C 35 0 C 17 -9 C 9 -9 C 8 -17 C 0 -17 C -8 -18 C -18 -26 C -86 -86 C 121 0 C 0 -182 1042 3781 L 0 -182 1050 3781 L -9 -52 990 3781 L 0 52 C 130 0 C 0 -52 C -9 52 C 60 0 1016 3599 L 0 -182 1171 3781 L 0 -182 1180 3781 L 17 17 1180 3694 L 26 9 C 18 0 C 26 -9 C 8 -17 C 0 -95 C 17 -9 1241 3720 L 9 -17 C 0 -95 C 35 0 1145 3781 L 61 0 1145 3599 L 60 0 1241 3599 L 104 0 1353 3668 L 0 17 C -9 18 C -8 8 C -18 9 C -26 0 C -26 -9 C -17 -17 C -9 -26 C 0 -17 C 9 -26 C 17 -17 C 26 -9 C 18 0 C 26 9 C 17 17 C 0 26 1448 3668 L -8 17 C -17 -9 1396 3720 L -17 -17 C -9 -26 C 0 -17 C 9 -26 C 17 -17 C 17 -9 C 0 -182 1664 3781 L 0 -182 1673 3781 L 103 0 1639 3781 L 26 -9 C 9 -9 C 9 -17 C 0 -17 C -9 -18 C -9 -8 C -26 -9 C -69 0 C 18 -9 1742 3781 L 8 -9 C 9 -17 C 0 -17 C -9 -18 C -8 -8 C -18 -9 C 60 0 1639 3599 L 18 -9 1716 3694 L 8 -8 C 26 -61 C 9 -8 C 9 0 C 8 8 C 8 -17 1734 3685 L 18 -60 C 8 -9 C 18 0 C 8 17 C 0 9 C -26 -9 1889 3720 L -17 -17 C -8 -26 C 0 -17 C 8 -26 C 17 -17 C 26 -9 C 18 0 C 26 9 C 17 17 C 9 26 C 0 17 C -9 26 C -17 17 C -26 9 C -18 0 C -17 -9 C -17 -17 C -9 -26 C 0 -17 C 9 -26 C 17 -17 C 17 -9 C 17 9 1907 3599 L 17 17 C 9 26 C 0 17 C -9 26 C -17 17 C -17 9 C 0 -121 2028 3720 L 0 -121 2037 3720 L 17 17 2037 3694 L 26 9 C 17 0 C 26 -9 C 9 -17 C 0 -95 C 17 -9 2097 3720 L 9 -17 C 0 -95 C 17 17 2132 3694 L 26 9 C 17 0 C 26 -9 C 9 -17 C 0 -95 C 18 -9 2192 3720 L 8 -17 C 0 -95 C 35 0 2002 3720 L 60 0 2002 3599 L 61 0 2097 3599 L 61 0 2192 3599 L 0 -9 2313 3703 L -8 0 C 0 9 C 8 8 C 18 9 C 34 0 C 18 -9 C 8 -8 C 9 -18 C 0 -60 C 9 -17 C 8 -9 C 0 -78 2391 3703 L 9 -17 C 17 -9 C 9 0 C -8 -8 2391 3685 L -52 -9 C -26 -9 C -9 -17 C 0 -17 C 9 -17 C 26 -9 C 26 0 C 17 9 C 17 17 C -18 -9 2331 3668 L -8 -17 C 0 -17 C 8 -17 C 18 -9 C 0 -121 2486 3720 L 0 -121 2495 3720 L 17 17 2495 3694 L 26 9 C 18 0 C 26 -9 C 8 -17 C 0 -95 C 17 -9 2556 3720 L 9 -17 C 0 -95 C 35 0 2460 3720 L 61 0 2460 3599 L 60 0 2556 3599 L 0 -182 2815 3781 L 0 -182 2824 3781 L 0 -70 2876 3729 L 139 0 2789 3781 L 0 -52 C -9 52 C 52 0 2824 3694 L 61 0 2789 3599 L -26 -9 3023 3720 L -17 -17 C -9 -26 C 0 -17 C 9 -26 C 17 -17 C 26 -9 C 17 0 C 26 9 C 17 17 C 9 26 C 0 17 C -9 26 C -17 17 C -26 9 C -17 0 C -17 -9 C -18 -17 C -8 -26 C 0 -17 C 8 -26 C 18 -17 C 17 -9 C 17 9 3040 3599 L 18 17 C 8 26 C 0 17 C -8 26 C -18 17 C -17 9 C 0 -121 3161 3720 L 0 -121 3170 3720 L 17 17 3170 3694 L 26 9 C 17 0 C 26 -9 C 9 -17 C 0 -95 C 18 -9 3230 3720 L 8 -17 C 0 -95 C 35 0 3135 3720 L 61 0 3135 3599 L 61 0 3230 3599 L 0 -147 3352 3781 L 8 -26 C 18 -9 C 17 0 C 17 9 C 9 17 C 0 -147 3360 3781 L 9 -26 C 9 -9 C 69 0 3326 3720 L 95 0 4306 4230 L -52 -69 C 26 0 C 18 -8 C 8 -9 C 9 -26 C 0 -17 C -9 -26 C -17 -18 C -26 -8 C -26 0 C -26 8 C -9 9 C -8 17 C -52 -181 4825 4230 L -52 -181 4834 4230 L -26 -51 4773 4230 L 18 51 C 129 0 C -8 -51 C 0 51 C 61 0 4747 4049 L -52 -181 4964 4230 L -52 -181 4972 4230 L 17 35 4938 4109 L 17 17 C 18 9 C 17 0 C 17 -9 C 9 -8 C 0 -18 C -17 -52 C 0 -26 C 8 -8 C 17 -17 5007 4170 L 0 -18 C -17 -52 C 0 -26 C 9 -8 C 26 0 C 17 17 C 8 17 C 34 0 4938 4230 L 34 9 5111 4092 L 26 8 C 26 18 C 9 17 C -9 17 C -17 9 C -26 0 C -26 -9 C -17 -26 C -9 -26 C 0 -26 C 9 -17 C 8 -9 C 18 -8 C 17 0 C 26 8 C 17 18 C -17 -9 5154 4170 L -18 -26 C -8 -26 C 0 -34 C 8 -18 C -52 -181 5448 4230 L -52 -181 5457 4230 L 61 0 5422 4230 L 61 0 5370 4049 L -35 -121 5561 4230 L -9 -34 C 0 -18 C 9 -8 C 26 0 C 17 17 C 9 17 C -34 -121 5569 4230 L -9 -34 C 0 -18 C 9 -8 C 78 0 5509 4170 L -17 -61 5742 4170 L -9 -34 C 0 -18 C 9 -8 C 26 0 C 17 17 C 9 17 C -17 -61 5751 4170 L -9 -34 C 0 -18 C 9 -8 C 0 26 5725 4109 L -9 26 C -17 9 C -17 0 C -26 -9 C -18 -26 C -8 -26 C 0 -26 C 8 -17 C 9 -9 C 17 -8 C 18 0 C 17 8 C 17 26 C 9 26 C -18 -9 5682 4170 L -17 -26 C -9 -26 C 0 -34 C 9 -18 C -35 -121 5855 4230 L -8 -34 C 0 -18 C 8 -8 C 26 0 C 17 17 C 9 17 C -34 -121 5863 4230 L -9 -34 C 0 -18 C 9 -8 C 34 0 5829 4230 L -8 -8 5967 4230 L 8 -9 C 9 9 C -9 8 C 9 18 5898 4135 L 17 17 C 26 0 C 9 -9 C 0 -26 C -18 -52 C 0 -26 C 9 -8 C 9 -9 5941 4170 L 0 -26 C -17 -52 C 0 -26 C 8 -8 C 26 0 C 18 17 C 8 17 C 0 -9 6123 4144 L 9 0 C 0 9 C -9 17 C -17 9 C -26 0 C -26 -9 C -18 -26 C -8 -26 C 0 -26 C 8 -17 C 9 -9 C 17 -8 C 18 0 C 26 8 C 17 26 C -18 -9 6080 4170 L -17 -26 C -9 -26 C 0 -34 C 9 -18 C -52 -181 6374 4230 L -52 -181 6383 4230 L -17 -70 6417 4179 L 130 0 6348 4230 L -9 -51 C 0 51 C 52 0 6357 4144 L 61 0 6296 4049 L -26 -9 6564 4170 L -17 -26 C -9 -26 C 0 -26 C 9 -17 C 9 -9 C 17 -8 C 17 0 C 26 8 C 18 26 C 8 26 C 0 26 C -8 18 C -9 8 C -17 9 C -18 0 C -17 -9 C -17 -26 C -9 -26 C 0 -34 C 9 -18 C 18 8 6564 4049 L 17 26 C 9 26 C 0 35 C -9 17 C 8 18 6651 4135 L 18 17 C 26 0 C 8 -9 C 0 -17 C -8 -35 C -18 -60 C 9 -9 6694 4170 L 0 -17 C -9 -35 C -17 -60 C 17 35 6703 4109 L 17 17 C 18 9 C 17 0 C 17 -9 C 9 -8 C 0 -18 C -17 -52 C 0 -26 C 8 -8 C 17 -17 6772 4170 L 0 -18 C -17 -52 C 0 -26 C 9 -8 C 26 0 C 17 17 C 8 17 C -35 -121 6919 4230 L -8 -34 C 0 -18 C 8 -8 C 26 0 C 18 17 C 8 17 C -35 -121 6928 4230 L -9 -34 C 0 -18 C 9 -8 C 78 0 6867 4170 L -86 -122 4375 3781 L 130 0 C 0 -182 4375 3781 L -8 -17 4851 3763 L -18 -43 C -17 -52 C -9 -17 C -17 -26 C -17 -9 C -8 -18 4799 3729 L -18 -8 C -17 0 C -9 17 C 0 17 C 9 18 C 17 17 C 26 9 C 78 0 C -17 -9 C -9 -9 C -8 -26 C -18 -69 C -8 -26 C -9 -17 C -17 -17 C -26 -9 C -18 0 C -17 9 C -9 8 C 0 9 C 9 9 C 9 -9 C -9 -9 C 34 -9 4817 3781 L 9 0 C 18 26 4868 3642 L 17 35 C -61 -182 4929 3781 L -61 -182 4938 3781 L 18 17 4894 3651 L 17 9 C 9 0 C 17 -9 C 0 -17 C -9 -26 C 0 -17 C 9 -9 C 8 -9 4938 3677 L 0 -17 C -8 -26 C 0 -17 C 17 -9 C 17 9 C 9 8 C 17 26 C 18 9 5024 3616 L 8 9 C 9 17 C 0 17 C -9 9 C -8 0 C -18 -9 C -8 -9 C -9 -17 C 0 -17 C 9 -17 C 17 -9 C 26 0 C 26 17 C 17 26 C -18 -18 5042 3677 L -8 -17 C 0 -26 C 17 -17 C -8 -18 5292 3755 L 0 -17 C 8 -17 C 18 -9 C 26 0 C 26 9 C 17 8 C 26 26 C 9 26 C 0 9 C -9 9 C -9 0 C -17 -9 C -9 -9 C -8 -17 C -9 -26 C -17 -61 C -9 -25 C -17 -26 C -18 -9 C -9 -35 5362 3746 L -9 -60 C -8 -26 C -18 -17 C -26 -9 C -26 0 C -17 9 C -8 17 C 0 9 C 8 8 C 9 -8 C -9 -9 C -9 -9 5483 3668 L 9 0 C 0 9 C -9 9 C -17 0 C -18 -9 C -8 -9 C -9 -17 C 0 -17 C 9 -17 C 17 -9 C 26 0 C 26 17 C 17 26 C -18 -18 5457 3677 L -8 -17 C 0 -26 C 17 -17 C 18 26 5517 3642 L 17 9 C 17 -9 C 0 -17 C -17 -52 C 9 -9 5552 3677 L 0 -17 C -18 -52 C 18 17 5569 3651 L 17 9 C 9 0 C -9 -26 C 0 -26 5604 3677 L 9 -17 C 8 0 C 17 8 C -9 -9 5682 3729 L 9 -9 C 8 9 C -8 9 C -17 -52 5664 3677 L 0 -17 C 17 -9 C 18 9 C 8 8 C 18 26 C -17 -52 5673 3677 L 0 -17 C 8 -9 C 17 26 5708 3642 L 17 35 C -78 -234 5751 3729 L -78 -234 5760 3729 L 17 17 5734 3651 L 17 9 C 9 0 C 17 -9 C 0 -17 C -8 -26 C 0 -17 C 8 -9 C 9 -9 5777 3677 L 0 -17 C -9 -26 C 0 -17 C 17 -9 C 18 9 C 8 8 C 17 26 C 18 26 C 17 35 C -52 -156 5898 3781 L 0 -17 C 17 -9 C 18 9 C 8 8 C 18 26 C -52 -156 5907 3781 L 0 -17 C 8 -9 C 52 0 5855 3711 L -9 -17 6184 3763 L -17 -43 C -18 -52 C -8 -17 C -18 -26 C -17 -9 C -9 -18 6132 3729 L -17 -8 C -18 0 C -8 17 C 0 17 C 8 18 C 18 17 C 26 9 C 86 0 C -26 -9 C -8 -9 C -9 -26 C -17 -69 C -9 -26 C -9 -17 C -17 -17 C -26 -9 C -17 0 C -18 9 C -8 8 C 0 9 C 8 9 C 9 -9 C -9 -9 C 35 -9 6149 3781 L 8 0 C 9 9 6114 3668 L 17 8 C 35 0 C 17 9 C 18 26 C -18 -61 C -17 0 6287 3677 L -17 -9 C -9 -9 C -9 -17 C 0 -17 C 9 -17 C 17 -9 C 18 0 C 17 9 C 9 8 C 8 18 C 0 17 C -8 17 C -18 9 C -8 -9 C 0 -17 C 8 -17 C 18 -9 C 17 0 C 17 9 C 9 8 C -17 -18 6270 3677 L -9 -17 C 0 -26 C 17 -17 C 17 26 6348 3642 L 18 9 C 17 -9 C 0 -17 C -17 -52 C 8 -9 6383 3677 L 0 -17 C -17 -52 C 17 17 6400 3651 L 17 9 C 9 0 C 17 -9 C 0 -17 C -8 -26 C 0 -17 C 8 -9 C 9 -9 6443 3677 L 0 -17 C -9 -26 C 0 -17 C 17 -9 C 18 9 C 8 8 C 18 26 C 17 26 C 17 35 C -52 -156 6564 3781 L 0 -17 C 18 -9 C 17 9 C 9 8 C 17 26 C -52 -156 6573 3781 L 0 -17 C 9 -9 C 52 0 6521 3711 L -9 17 531 3288 L -17 17 C -17 9 C -35 0 C -17 -9 C -17 -17 C -9 -17 C -9 -26 C 0 -44 C 9 -26 C 9 -17 C 17 -17 C 17 -9 C 35 0 C 17 9 C 17 17 C 9 17 C 0 26 C 43 0 488 3218 L 0 -121 592 3270 L 8 26 592 3218 L 18 18 C 17 8 C 26 0 C 104 0 695 3218 L 0 18 C -8 17 C -9 9 C -17 8 C -26 0 C -18 -8 C -17 -18 C -9 -26 C 0 -17 C 9 -26 C 17 -17 C 18 -9 C 26 0 C 17 9 C 17 17 C 104 0 851 3218 L 0 18 C -9 17 C -8 9 C -18 8 C -26 0 C -17 -8 C -17 -18 C -9 -26 C 0 -17 C 9 -26 C 17 -17 C 17 -9 C 26 0 C 18 9 C 17 17 C 0 -182 1016 3331 L -86 -86 1102 3270 L 61 -69 1050 3218 L 0 -182 1301 3331 L 103 0 1362 3218 L 0 18 C -8 17 C -9 9 C -17 8 C -26 0 C -17 -8 C -18 -18 C -8 -26 C 0 -17 C 8 -26 C 18 -17 C 17 -9 C 26 0 C 17 9 C 17 17 C 0 -147 1535 3331 L 8 -26 C 18 -9 C 17 0 C 60 0 1509 3270 L 0 -147 1639 3331 L 8 -26 C 17 -9 C 18 0 C 60 0 1613 3270 L 104 0 1725 3218 L 0 18 C -9 17 C -8 9 C -18 8 C -26 0 C -17 -8 C -17 -18 C -9 -26 C 0 -17 C 9 -26 C 17 -17 C 17 -9 C 26 0 C 18 9 C 17 17 C 0 -121 1889 3270 L 9 26 1889 3218 L 17 18 C 18 8 C 26 0 C -8 18 2088 3244 L -26 8 C -26 0 C -26 -8 C -9 -18 C 9 -17 C 17 -9 C 43 -8 C 18 -9 C 8 -17 C 0 -9 C -8 -17 C -26 -9 C -26 0 C -26 9 C -9 17 C -17 -17 2348 3365 L -18 -26 C -17 -34 C -9 -44 C 0 -34 C 9 -44 C 17 -34 C 18 -26 C 17 -17 C 121 -208 2374 3331 L 0 -138 2625 3270 L -9 -26 C -8 -9 C -18 -8 C -26 0 C -17 8 C -17 18 2625 3244 L -18 8 C -26 0 C -17 -8 C -17 -18 C -9 -26 C 0 -17 C 9 -26 C 17 -17 C 17 -9 C 26 0 C 18 9 C 17 17 C 0 -121 2789 3270 L -17 18 2789 3244 L -17 8 C -26 0 C -18 -8 C -17 -18 C -9 -26 C 0 -17 C 9 -26 C 17 -17 C 18 -9 C 26 0 C 17 9 C 17 17 C -9 -8 3006 3166 L 9 -9 C 8 9 C -8 8 C -9 -8 3092 3166 L 9 -9 C 9 9 C -9 8 C -9 -8 3179 3166 L 9 -9 C 8 9 C -8 8 C 121 -208 3360 3331 L 0 -138 3611 3270 L -8 -26 C -9 -9 C -17 -8 C -26 0 C -18 8 C -17 18 3611 3244 L -17 8 C -26 0 C -18 -8 C -17 -18 C -9 -26 C 0 -17 C 9 -26 C 17 -17 C 18 -9 C 26 0 C 17 9 C 17 17 C -95 -121 3767 3270 L 95 0 3672 3270 L 95 0 3672 3149 L 17 -17 3819 3365 L 17 -26 C 18 -34 C 8 -44 C 0 -34 C -8 -44 C -18 -34 C -17 -26 C -17 -17 C -8 -8 3957 3270 L 8 -9 C 9 9 C -9 8 C -8 -8 3957 3166 L 8 -9 C 9 9 C -9 8 C -17 -8 4577 3270 L -17 -18 C -9 -17 C -9 -26 C 0 -26 C 9 -17 C 17 -9 C 18 0 C 17 9 C 26 26 C 17 26 C 17 34 C 9 26 C 17 0 4577 3270 L 9 -8 C 9 -18 C 17 -69 C 9 -17 C 8 -9 C 9 0 C -17 -9 4923 3331 L -17 -17 C -18 -35 C -8 -26 C -9 -34 C -9 -52 C -8 -69 C 18 0 4923 3331 L 17 -17 C 0 -26 C -9 -18 C -8 -8 C -18 -9 C -26 0 C 18 -9 C 17 -17 C 9 -17 C 0 -26 C -9 -18 C -9 -8 C -17 -9 C -17 0 C -18 9 C -8 8 C -9 26 C -18 -9 5209 3331 L -8 -8 C 0 -9 C 8 -9 C 26 -8 C 26 0 C -26 -9 5217 3288 L -17 -9 C -8 -17 C 0 -17 C 17 -18 C 26 -8 C 17 0 C -35 -9 5209 3210 L -17 -9 C -9 -17 C 0 -17 C 18 -18 C 34 -17 C 9 -8 C 0 -18 C -18 -8 C -17 0 C -26 0 5494 3270 L -17 -8 C -17 -18 C -9 -26 C 0 -26 C 9 -26 C 8 -8 C 18 -9 C 17 0 C 17 9 C 18 17 C 8 26 C 0 26 C -8 26 C -18 17 C -17 18 C -9 17 C 0 17 C 9 9 C 17 0 C 18 -9 C 17 -17 C -18 8 5806 3262 L -26 0 C -17 -8 C -17 -18 C -9 -26 C 0 -26 C 9 -26 C 9 -8 C 17 -9 C 26 0 C 17 9 C 69 0 5719 3210 L -69 -242 6091 3331 L -26 -8 6048 3270 L -17 -18 C -9 -26 C 0 -26 C 9 -17 C 17 -17 C 26 -9 C 17 0 C 26 9 C 18 17 C 8 26 C 0 26 C -8 17 C -18 18 C -26 8 C -17 0 C 18 18 6290 3244 L 17 8 C 9 0 C 17 -8 C 8 -9 C 9 -26 C 0 -35 C -9 -43 C -9 -26 6429 3270 L -9 -17 C -52 -78 C -17 -34 C -8 -26 C -18 -9 837 2881 L -17 -26 C -8 -17 C -9 -26 C -9 -43 C 0 -35 C 9 -17 C 9 -9 C 17 0 C 17 9 C 17 26 C 9 17 C 9 26 C 8 43 C 0 35 C -8 17 C -9 9 C -17 0 C 78 0 785 2794 L -18 -60 1088 2820 L -8 -35 C 0 -17 C 8 -9 C 18 0 C 17 18 C 9 17 C 52 -121 1287 2820 L -52 -121 1391 2820 L -18 -34 C -17 -18 C -17 -8 C -9 0 C -34 -121 1598 2820 L -9 8 1685 2812 L -9 0 C -17 -8 C -35 -35 C -17 -8 C -9 0 C 18 -9 C 8 -9 C 18 -43 C 8 -9 C 9 0 C 9 9 C 17 0 1849 2881 L 18 -9 C 8 -8 C 70 -165 C -52 -121 1910 2820 L -52 -181 2178 2820 L -8 -43 2169 2786 L 0 -26 C 17 -18 C 17 0 C 17 9 C 18 17 C 17 35 C -17 -60 2264 2820 L -9 -35 C 0 -17 C 9 -9 C 17 0 C 18 18 C 8 17 C 26 0 2463 2820 L -8 -51 C -9 -44 C -9 -26 C -9 -26 2576 2820 L -8 -17 C -18 -26 C -26 -26 C -26 -17 C -26 -9 C -18 -8 2801 2820 L -17 -18 C -8 -25 C 0 -26 C 8 -26 C 9 -9 C 17 -9 C 17 0 C 18 9 C 17 17 C 9 26 C 0 26 C -9 26 C -9 9 C -17 8 C -17 0 C -35 -121 3095 2820 L 9 -51 3138 2820 L 8 -44 C 9 -26 C 18 18 3034 2794 L 26 8 C 112 0 C -69 -242 3484 2881 L 9 17 3354 2786 L 17 17 C 18 0 C 8 -8 C 0 -18 C -8 -43 C 0 -26 C 8 -17 C 18 -9 C 17 0 C 26 9 C 17 17 C 18 26 C 17 43 C 9 26 C 0 -26 3718 2769 L 9 -26 C 8 -9 C 17 -9 C 18 0 C 17 9 C 17 17 C 9 26 C 0 26 C -9 26 C -8 9 C -18 8 C -17 0 C -17 -8 C -17 -18 C -9 -25 C -35 -130 C -86 0 4133 2820 L -18 -8 C -17 -18 C -9 -25 C 0 -26 C 9 -26 C 9 -9 C 17 -9 C 17 0 C 18 9 C 17 17 C 9 26 C 0 26 C -9 26 C -9 9 C -17 8 C -26 -121 4384 2820 L 18 18 4306 2794 L 25 8 C 96 0 C 9 17 4609 2786 L 17 17 C 17 0 C 9 -8 C 0 -18 C -17 -51 C 0 -26 C 17 -18 C 17 0 C 26 9 C 17 17 C 18 35 C 8 34 C 0 26 C 52 -121 4929 2820 L -52 -121 5033 2820 L -17 -34 C -18 -18 C -17 -8 C -9 0 C -17 -8 5258 2820 L -18 -26 C -8 -26 C 0 -26 C 8 -26 C 9 -9 C 17 0 C 18 9 C 17 26 C -9 -35 5293 2769 L 9 -26 C 8 -9 C 17 0 C 18 9 C 17 26 C 9 26 C 0 26 C -9 26 C -9 8 C -9 17 531 2388 L -17 18 C -17 8 C -35 0 C -17 -8 C -17 -18 C -9 -17 C -9 -26 C 0 -43 C 9 -26 C 9 -18 C 17 -17 C 17 -8 C 35 0 C 17 8 C 17 17 C 9 18 C -17 -9 626 2371 L -17 -17 C -9 -26 C 0 -18 C 9 -26 C 17 -17 C 17 -8 C 26 0 C 18 8 C 17 17 C 8 26 C 0 18 C -8 26 C -17 17 C -18 9 C -26 0 C 0 -121 756 2371 L 26 26 756 2336 L 17 9 C 26 0 C 18 -9 C 8 -26 C 0 -86 C 26 26 851 2336 L 17 9 C 26 0 C 18 -9 C 8 -26 C 0 -86 C 0 -121 1016 2371 L 26 26 1016 2336 L 17 9 C 26 0 C 17 -9 C 9 -26 C 0 -86 C 26 26 1111 2336 L 17 9 C 26 0 C 17 -9 C 9 -26 C 0 -86 C -18 -9 1310 2371 L -17 -17 C -8 -26 C 0 -18 C 8 -26 C 17 -17 C 18 -8 C 26 0 C 17 8 C 17 17 C 9 26 C 0 18 C -9 26 C -17 17 C -17 9 C -26 0 C 0 -121 1440 2371 L 25 26 1440 2336 L 18 9 C 26 0 C 17 -9 C 9 -26 C 0 -86 C 121 -181 1734 2431 L -121 -181 1855 2431 L -70 -181 1959 2431 L 69 -181 1959 2431 L 87 0 1915 2310 L 0 -181 2071 2431 L 113 0 2071 2431 L 69 0 2071 2345 L -17 18 2339 2405 L -26 8 C -35 0 C -25 -8 C -18 -18 C 0 -17 C 9 -17 C 9 -9 C 17 -9 C 52 -17 C 17 -9 C 9 -8 C 8 -18 C 0 -26 C -17 -17 C -26 -8 C -35 0 C -25 8 C -18 17 C -17 18 2651 2405 L -26 8 C -35 0 C -26 -8 C -17 -18 C 0 -17 C 8 -17 C 9 -9 C 17 -9 C 52 -17 C 18 -9 C 8 -8 C 9 -18 C 0 -26 C -17 -17 C -26 -8 C -35 0 C -26 8 C -17 17 C 52 -121 2694 2371 L -52 -121 2798 2371 L -17 -35 C -18 -17 C -17 -9 C -9 0 C 0 -121 2850 2371 L 26 26 2850 2336 L 17 9 C 26 0 C 17 -9 C 9 -26 C 0 -86 C 26 26 2945 2336 L 17 9 C 26 0 C 17 -9 C 9 -26 C 0 -86 C 0 -181 3109 2431 L 18 17 3109 2345 L 17 9 C 26 0 C 17 -9 C 18 -17 C 8 -26 C 0 -18 C -8 -26 C -18 -17 C -17 -8 C -26 0 C -17 8 C -18 17 C -17 -9 3308 2371 L -17 -17 C -9 -26 C 0 -18 C 9 -26 C 17 -17 C 17 -8 C 26 0 C 18 8 C 17 17 C 9 26 C 0 18 C -9 26 C -17 17 C -18 9 C -26 0 C 0 -181 3438 2431 L -9 17 3594 2345 L -26 9 C -26 0 C -26 -9 C -8 -17 C 8 -18 C 18 -8 C 43 -9 C 17 -9 C 9 -17 C 0 -9 C -9 -17 C -26 -8 C -26 0 C -26 8 C -8 17 C -9 -9 3663 2371 L 9 -9 C 9 9 C -9 9 C -9 -9 3663 2267 L 9 -8 C 9 8 C -9 9 C 121 -207 750 1981 L 0 -139 1001 1921 L -8 -26 C -9 -8 C -17 -9 C -26 0 C -18 9 C -17 17 1001 1895 L -17 9 C -26 0 C -18 -9 C -17 -17 C -9 -26 C 0 -17 C 9 -26 C 17 -18 C 18 -8 C 26 0 C 17 8 C 17 18 C 0 -121 1070 1921 L 26 26 1070 1886 L 18 9 C 26 0 C 17 -9 C 9 -26 C 0 -86 C 26 26 1166 1886 L 17 9 C 26 0 C 17 -9 C 9 -26 C 0 -86 C -18 -17 1391 2016 L -17 -26 C -17 -35 C -9 -43 C 0 -35 C 9 -43 C 17 -35 C 17 -26 C 18 -17 C 0 -181 1451 1981 L 113 0 1451 1981 L 69 0 1451 1895 L 113 0 1451 1800 L 17 -17 1607 2016 L 17 -26 C 18 -35 C 8 -43 C 0 -35 C -8 -43 C -18 -35 C -17 -26 C -17 -17 C -52 -182 4560 1921 L -8 -43 4551 1886 L 0 -26 C 17 -17 C 17 0 C 17 8 C 18 18 C 17 34 C -17 -61 4646 1921 L -9 -34 C 0 -18 C 9 -8 C 17 0 C 18 17 C 8 17 C -17 -17 4776 2016 L -17 -26 C -18 -35 C -8 -43 C 0 -35 C 8 -43 C 18 -35 C 17 -26 C 17 -17 C 0 -181 4837 1981 L 112 0 4837 1981 L 69 0 4837 1895 L 112 0 4837 1800 L 18 -17 4992 2016 L 17 -26 C 17 -35 C 9 -43 C 0 -35 C -9 -43 C -17 -35 C -17 -26 C -18 -17 C 0 -277 785 1566 L 122 -208 819 1532 L 0 -138 1070 1471 L -8 -26 C -9 -9 C -17 -9 C -26 0 C -17 9 C -17 17 1070 1445 L -17 9 C -26 0 C -17 -9 C -18 -17 C -8 -26 C 0 -17 C 8 -26 C 18 -17 C 17 -9 C 26 0 C 17 9 C 17 17 C 95 -121 1131 1471 L -95 -121 1226 1471 L -17 -17 1347 1566 L -17 -26 C -18 -35 C -8 -43 C 0 -35 C 8 -43 C 18 -34 C 17 -26 C 17 -18 C 0 -182 1408 1532 L 78 0 1408 1532 L 26 -9 C 8 -9 C 9 -17 C 0 -17 C -9 -18 C -8 -8 C -26 -9 C -78 0 C 61 -95 1468 1445 L 17 -17 1581 1566 L 17 -26 C 18 -35 C 8 -43 C 0 -35 C -8 -43 C -18 -34 C -17 -26 C -17 -18 C 0 -277 1711 1566 L -17 -17 1979 1566 L -18 -26 C -17 -35 C -9 -43 C 0 -35 C 9 -43 C 17 -34 C 18 -26 C 17 -18 C 121 -208 2005 1532 L -69 -182 2204 1532 L 69 -182 2204 1532 L 86 0 2161 1410 L 121 -208 2282 1532 L 0 -87 2437 1471 L 9 -25 C 17 -9 C 26 0 C 18 9 C 26 25 C 0 -121 2533 1471 L 156 0 2602 1428 L 96 0 2835 1532 L -52 -70 C 26 0 C 17 -8 C 9 -9 C 8 -26 C 0 -17 C -8 -26 C -18 -17 C -26 -9 C -26 0 C -26 9 C -8 8 C -9 17 C 121 -208 2965 1532 L 0 -182 3216 1532 L -17 17 3216 1445 L -18 9 C -26 0 C -17 -9 C -17 -17 C -9 -26 C 0 -17 C 9 -26 C 17 -17 C 17 -9 C 26 0 C 18 9 C 17 17 C 17 -17 3277 1566 L 17 -26 C 18 -35 C 8 -43 C 0 -35 C -8 -43 C -18 -34 C -17 -26 C -17 -18 C 0 -277 4534 1566 L 17 0 4586 1471 L 17 -17 C 52 -147 C 18 -18 C 17 0 C -9 -17 4716 1471 L -17 -26 C -87 -95 C -17 -26 C -9 -18 C -17 -17 4819 1566 L -17 -26 C -17 -35 C -9 -43 C 0 -35 C 9 -43 C 17 -34 C 17 -26 C 17 -18 C 0 -182 4880 1532 L 78 0 4880 1532 L 26 -9 C 8 -9 C 9 -17 C 0 -17 C -9 -18 C -8 -8 C -26 -9 C -78 0 C 60 -95 4941 1445 L 17 -17 5053 1566 L 18 -26 C 17 -35 C 9 -43 C 0 -35 C -9 -43 C -17 -34 C -18 -26 C -17 -18 C 0 -277 5183 1566 L -17 -17 5451 1566 L -18 -26 C -17 -35 C -9 -43 C 0 -35 C 9 -43 C 17 -34 C 18 -26 C 17 -18 C -52 -156 5555 1506 L 52 -156 5572 1506 L 52 -156 5563 1506 L 78 0 5520 1402 L 52 0 5486 1350 L 52 0 5589 1350 L -17 -8 5555 1566 L -9 -18 C 0 -17 C 9 -17 C 17 -9 C 17 0 C 17 9 C 9 17 C 0 17 C -9 18 C -17 8 C -17 0 C 117 0 5676 1547 L 72 0 5851 1625 L -39 -52 C 19 0 C 13 -7 C 7 -6 C 6 -20 C 0 -13 C -6 -19 C -13 -13 C -20 -7 C -19 0 C -20 7 C -6 6 C -7 13 C 18 -17 5974 1566 L 17 -26 C 17 -35 C 9 -43 C 0 -35 C -9 -43 C -17 -34 C -17 -26 C -18 -18 C 0 -182 785 1082 L -86 -86 871 1021 L 61 -69 819 969 L 121 -208 897 1082 L 0 -86 1053 1021 L 9 -26 C 17 -9 C 26 0 C 17 9 C 26 26 C 0 -121 1148 1021 L 0 8 1217 1039 L 9 17 C 9 9 C 17 9 C 35 0 C 17 -9 C 9 -9 C 8 -17 C 0 -17 C -8 -17 C -18 -26 C -86 -87 C 121 0 C 121 -208 1356 1082 L 0 -182 1607 1082 L -18 18 1607 995 L -17 8 C -26 0 C -17 -8 C -17 -18 C -9 -26 C 0 -17 C 9 -26 C 17 -17 C 17 -9 C 26 0 C 17 9 C 18 17 C 122 -208 1641 1082 L 0 -138 1892 1021 L -8 -26 C -9 -9 C -17 -8 C -26 0 C -18 8 C -17 18 1892 995 L -17 8 C -26 0 C -18 -8 C -17 -18 C -9 -26 C 0 -17 C 9 -26 C 17 -17 C 18 -9 C 26 0 C 17 9 C 17 17 C 95 -121 1953 1021 L -95 -121 2048 1021 L -17 -17 2169 1116 L -17 -26 C -18 -34 C -8 -44 C 0 -34 C 8 -44 C 18 -34 C 17 -26 C 17 -17 C 0 -182 2230 1082 L -86 -86 2316 1021 L 61 -69 2264 969 L 17 -17 2368 1116 L 18 -26 C 17 -34 C 9 -44 C 0 -34 C -9 -44 C -17 -34 C -18 -26 C -17 -17 C -17 -17 2697 1116 L -18 -26 C -17 -34 C -9 -44 C 0 -34 C 9 -44 C 17 -34 C 18 -26 C 17 -17 C 121 -208 2723 1082 L -69 -182 2922 1082 L 69 -182 2922 1082 L 86 0 2879 961 L 121 -208 3000 1082 L 0 -86 3155 1021 L 9 -26 C 17 -9 C 26 0 C 18 9 C 26 26 C 0 -121 3251 1021 L 156 0 3320 978 L 0 8 3545 1039 L 8 17 C 9 9 C 17 9 C 35 0 C 17 -9 C 9 -9 C 9 -17 C 0 -17 C -9 -17 C -17 -26 C -87 -87 C 121 0 C 121 -208 3683 1082 L 0 -182 3934 1082 L -17 18 3934 995 L -17 8 C -26 0 C -18 -8 C -17 -18 C -9 -26 C 0 -17 C 9 -26 C 17 -17 C 18 -9 C 26 0 C 17 9 C 17 17 C 17 -17 3995 1116 L 17 -26 C 18 -34 C 8 -44 C 0 -34 C -8 -44 C -18 -34 C -17 -26 C -17 -17 C 0 -182 4534 1082 L -86 -86 4620 1021 L 60 -69 4569 969 L 0 7 4672 1142 L 7 13 C 6 6 C 13 7 C 26 0 C 13 -7 C 7 -6 C 6 -13 C 0 -13 C -6 -13 C -13 -20 C -65 -64 C 91 0 C 18 0 4793 1021 L 17 -17 C 52 -147 C 17 -17 C 18 0 C -8 -17 4923 1021 L -18 -26 C -86 -95 C -18 -26 C -8 -17 C -17 -17 5027 1116 L -18 -26 C -17 -34 C -8 -44 C 0 -34 C 8 -44 C 17 -34 C 18 -26 C 17 -17 C 0 -182 5088 1082 L -86 -86 5174 1021 L 61 -69 5122 969 L 17 -17 5226 1116 L 18 -26 C 17 -34 C 9 -44 C 0 -34 C -9 -44 C -17 -34 C -18 -26 C -17 -17 C -17 -17 5555 1116 L -18 -26 C -17 -34 C -9 -44 C 0 -34 C 9 -44 C 17 -34 C 18 -26 C 17 -17 C -52 -156 5659 1056 L 52 -156 5676 1056 L 52 -156 5667 1056 L 78 0 5624 952 L 52 0 5589 900 L 52 0 5693 900 L -18 -8 5659 1116 L -8 -18 C 0 -17 C 8 -17 C 18 -9 C 17 0 C 17 9 C 9 17 C 0 17 C -9 18 C -17 8 C -17 0 C 117 0 5780 1097 L 0 7 5949 1142 L 6 13 C 6 6 C 13 7 C 26 0 C 13 -7 C 7 -6 C 6 -13 C 0 -13 C -6 -13 C -13 -20 C -65 -64 C 91 0 C 18 -17 6078 1116 L 17 -26 C 17 -34 C 9 -44 C 0 -34 C -9 -44 C -17 -34 C -17 -26 C -18 -17 C 121 -208 750 632 L 0 -138 1001 571 L -8 -26 C -9 -9 C -17 -8 C -26 0 C -18 8 C -17 18 1001 545 L -17 8 C -26 0 C -18 -8 C -17 -18 C -9 -26 C 0 -17 C 9 -26 C 17 -17 C 18 -9 C 26 0 C 17 9 C 17 17 C -9 18 1157 545 L -26 8 C -26 0 C -26 -8 C -8 -18 C 8 -17 C 18 -9 C 43 -8 C 17 -9 C 9 -17 C 0 -9 C -9 -17 C -26 -9 C -26 0 C -26 9 C -8 17 C 121 -208 1183 632 L 0 -86 1339 571 L 8 -26 C 18 -9 C 26 0 C 17 9 C 26 26 C 0 -121 1434 571 L 0 8 1503 589 L 9 18 C 8 8 C 18 9 C 34 0 C 17 -9 C 9 -8 C 9 -18 C 0 -17 C -9 -17 C -17 -26 C -87 -87 C 121 0 C 122 -208 1641 632 L 0 -182 1892 632 L -17 18 1892 545 L -17 8 C -26 0 C -18 -8 C -17 -18 C -9 -26 C 0 -17 C 9 -26 C 17 -17 C 18 -9 C 26 0 C 17 9 C 17 17 C -18 -18 2161 667 L -17 -26 C -17 -34 C -9 -44 C 0 -34 C 9 -43 C 17 -35 C 17 -26 C 18 -17 C 122 -208 2186 632 L -69 -182 2385 632 L 70 -182 2385 632 L 87 0 2342 511 L 121 -208 2463 632 L 0 -86 2619 571 L 9 -26 C 17 -9 C 26 0 C 17 9 C 26 26 C 0 -121 2714 571 L 0 8 2783 589 L 9 18 C 9 8 C 17 9 C 35 0 C 17 -9 C 9 -8 C 8 -18 C 0 -17 C -8 -17 C -18 -26 C -86 -87 C 121 0 C 121 -208 2922 632 L 0 -182 3173 632 L -18 18 3173 545 L -17 8 C -26 0 C -17 -8 C -17 -18 C -9 -26 C 0 -17 C 9 -26 C 17 -17 C 17 -9 C 26 0 C 17 9 C 18 17 C 18 -18 3233 667 L 17 -26 C 17 -34 C 9 -44 C 0 -34 C -9 -43 C -17 -35 C -17 -26 C -18 -17 C -86 0 4655 571 L -18 -8 C -17 -18 C -9 -26 C 0 -25 C 9 -26 C 9 -9 C 17 -9 C 17 0 C 17 9 C 18 17 C 8 26 C 0 26 C -8 26 C -9 9 C -17 8 C 0 6 4698 693 L 7 13 C 6 6 C 13 7 C 26 0 C 13 -7 C 7 -6 C 6 -13 C 0 -13 C -6 -13 C -13 -19 C -65 -65 C 91 0 C -18 -18 5036 667 L -17 -26 C -17 -34 C -9 -44 C 0 -34 C 9 -43 C 17 -35 C 17 -26 C 18 -17 C -52 -156 5140 606 L 52 -156 5157 606 L 52 -156 5148 606 L 78 0 5105 502 L 52 0 5070 450 L 52 0 5174 450 L -18 -9 5140 667 L -8 -17 C 0 -18 C 8 -17 C 18 -9 C 17 0 C 17 9 C 9 17 C 0 18 C -9 17 C -17 9 C -17 0 C 0 6 5261 693 L 6 13 C 7 6 C 13 7 C 26 0 C 13 -7 C 6 -6 C 7 -13 C 0 -13 C -7 -13 C -13 -19 C -65 -65 C 91 0 C 18 -18 5390 667 L 17 -26 C 17 -34 C 9 -44 C 0 -34 C -9 -43 C -17 -35 C -17 -26 C -18 -17 C 1024 G PGPLOT restore showpage %%PageTrailer %%PageBoundingBox: 24 17 350 559 %%Trailer %%BoundingBox: 24 17 350 559 %%DocumentFonts: %%Pages: 1 %%EOF ifeffit-1.2.11d/doc/RefMan/figs/win_sine.png0000644000175000017500000004616110771740460017554 0ustar segresegre‰PNG  IHDRZ’´jøùbKGDÿÿÿ ½§“ pHYs``zxEtIMEÓGü‹F IDATxœíÝy\wþ?ðÁZAdÔ®hQã EêªÐx ¥m²Šx l° l¡ÕDÛz`×&[¯.*&Z±+EIJW[@ý‘UÖ«É*´õÚ’‚m=úU¦XkÅ­fÔZ«Õ6¿?f;›å2ÀÉd^Ï?|˜dò™w†ÉçÏ1Ÿñq8€´µ:á!  H‡Ò!t@ H‡Ò!t@ H‡Ò!t@ H‡Ò!t@ H‡Ò!t@ H‡Ò!t@ H‡Ò!t@ H‡Ò!t@ H‡Ò!t@ H‡ð@:N§Ó €W1™L‰‰‰ ÃüÒ¡§›3gNNNNsßEÓ4/{7™Lyyy*•Š—bKKKøˆë?ÊÊʬVkUUUÛðu(ÚÃ0uêD›Íf­§¦¦¦YEµþS—””´Å±µÙl±±±Í}—ÛþˆÜQNNΊ+Z_¾J¥úøã§M›Ö⢀ðlíÚµëÙ³gsßÅË_Ön·wêÔÉh4òUlÿþýù:åìv{HHH‡bbb‚ˆˆˆ°Ûí néÉ'¹Ýn Š‰‰q~R¥R)þWppp||üKÓjµZ­–ý¿B¡°X,-‹êðáÃ=zôèÞ½û¨Q£‚˜0aBƒ›Y,…BÑÜÂ'L˜àããSPPЬwµæã4ËÏ–îÝ»wèСÅå;êêjÿÍ›7·¸4àW{á1¸äСC]»vd׃áñÇW«Õ|xèС#GŽðRÔ¬Y³:vìX[[K’dUUÕ„ ÔjµÙlæ¥p÷°Z­ÉÉÉ¿ûÝïجÃ)**r~HÓtHHHyy¹ÛKHH 9xð I’ååå&LxóÍ7-ZÄKáÛ·oß¹sgRR/¥¹ŸÕj½qã/EQõÇ?þqݺuóæÍã¥@h%¤CO-Ô®³³³÷ìÙÃc2™L&“ñRTuuõŠ+H’$"<<|É’%-èRÛmسgϦ73 jµš¢(÷DE„Ýn?þ<{l£££Ÿ~úéC‡ñ•I’uíÎciYYY½{÷^¿~ý’%Kx,Zc‡cû³ÿOHH;v,ûÿv˜Á`0 öÉÄÄÄ·ß~»{÷î>>>]»vÕh4\9 ÃDFFúøøøøøÔ›)//çÞ2gÎîùádzCM‹/~üñÇÙ'5Õj%ÂjµÞ¾}[¡P4¹N§3™LAØl¶ÄÄÄÅ‹øøøtëÖ­¼¼|Ë–-ìÀ€€-[¶°oa·dÿo0-ZáããÓ©S§æ¢8p 99™{¸oß¾‡~øïjAÌA”——8ÐÇǧC‡Ó¦Mã>‚R©d[ ÷wt‘V«ÝºukÓÛÐ4m2™¸±ÛúÖ¯_ßµkW6æÆÆùš;ªººšÍ…¬ÊÊÊ€€€¦ßÂ0Lbb¢Íf#"11‘=,4Mûûû³çw×9^ýu•JÅž·C† qFÕh4ìGëÞ½ûõë×÷Ž%""‚ûÔ†ýã2 ãïïÏ~}¬V«ó×丟UUU111íÛ·÷ññùÝï~Çy7ñ}tg&66–û>rŸ‹$IçcK’ä³Ï>{íÚ5×#„6$to-8‚¨¨¨p8Eùùù9ŽŠŠ îOã< 4jÔ¨Î;'%%ÙíöÍ›7sÛØíöGy$22²ºººººzРAÜK{öìáÞb±X:wîÌBQUTTäp8؜ǖÃ3þüQ£FÕ•ýZ­&I’ÝÒb±ûùù½õÖ[v»=66ö±Çëҥ˚5kGrròc=ƾËy´iÑ¢EÎ1wêÔ‰ †-¼±ÓÕy “c±X‚سgOc‡·51WVVvîÜ966–=€:u’ÉdìKz½ž$I»Ýn·Ûår9÷gj"~µZ]'<ç¿o}Z­¶‰ñ9µZíïïÏƼtéR‚ RSSÙ—¸1*çOíp8šheVWW×ß…^¯÷óókp\–ûk²_.—³›iµZöcêõúŽ;²V¹\ÎþíêœAAAƒ bÏ   îïÏþuGRRRûöíóóóÙ—†ʽ%22²sçÎì~õz½J¥r8EEE;vÔëõìÇço³>û!CFŒQQQa·Û׬YÃ}/ê|ýüüØ/W~~>Al$v»½_¿~ܹMQThhhcÄ•+W:´±WÁ…§R©´Zmuu5ûͬ¨¨ÐjµìÛñ¿_?™L–žžÎ½ÑßߟÍ7nìÓ§÷<›ÕØÿÿñäªH‡ÃÁv~r%³ÕAÁÁÁEEEEEEE±¯Î;×ù,ö½ujX‹ÅÒ½{wîauuu»ví¸‡v»½cÇŽÜ–\UÉ•3}úôæ8‡ÃápTTTtêÔiöìÙmÐʘŸþùèèh®´üü|ç_ *•J.—³ÿ¶ xG“éÐn·“$ÙÄ’^½z±•>+55uÑ¢EìÿÙtXçS7WEEE‡¸Ÿ)u°Í:¹Ðáppg‘J¥ W«Õì ɦçs 55uРAÜccccccÙÿá<ÝfÔ¨QÅÅŇ£¸¸8 À9=0`åÊ•Žß~DÚív­VÎ~ƒH’l,þ¦=ñÄ#FŒ¨¬¬ä>,—ìû>öìÙ“933³[·n–ßäçç71û¦¸¸éÐC`ìPxr¹œL/—Ë)Š²Z­6›­Á^ÊLœ8‘{Èþ4&b×®]C‡åžwî9räȺu븇S¦LéÑ£GAAArr²\.×h4*•Š$ɉ'Úl6†a¸ý^¿~ýÎ;õc`»¤ôz½\.瞌ˆˆàRõ믿rI’¼{÷nýrꌉ:O'¡iº±ùîr¹ÜùÓÙl6¥Rù§?ýÉh46¸½sÌ›7onAÌ~øá‚ ¸wuéÒ…{h4xêÔ©S§N¹?EQ® ¹\ÞDõåË—µZ-÷°Î0ä›o¾¹ÿþ¿üå/Οšý+7XZ±Ç6;;»‰®Úû÷ïGFFÒ4m±X¸¿‹B¡ iÚf³™Íf½^o2™Ìf3{n×y{Ïž=§Nʽ‘;‡ zôèá<ݦK—.þþþAää䄆†:Ÿ¡¡¡ÿüç?_ýuîëc6›ÕjµÁ``?,¿ëŸ ˆ]»vM™2%"""00P&“½òÊ+Î;eÕù>2„ý° Y®O• ˆàààÆŽá­[·~úé§Æ^wB:žJ¥Òétþþþ …‚$É”••éõz×Kèѣǭ[·|Éáp|óÍ7ÎÏ\½zµOŸ>ì~  …\.g¿½Ü~GÕà<³Ù¼téRƒÁÀ¾Ëõ ]g2™ØQ¨úÔjµsí¦T*U*UÓ¹ø-æ¥K—Ž9²¹1·oßþêÕ«½JÓôµk׺téb³Ù¸ê¾‰øår¹‹Y†aL&Ó?MÓ æ×óçÏ_»ví/ùËš5k† Æ4ƒÁÐXJpNÕì±ÕëõMÏ+þì³Ï˜œœü /TTT° ƒ$I…B±qãFŠ¢ÔjµN§+++k"©×קOŸ«W¯2 S?± Ïù™»wïöèуý¿B¡(..¦išM‡o¼ñ†s.wñ³³d2ÙçŸN„ÕjÍÍÍMII3fŒ‹?eBCC}ôQ¶ÿ¾üò˺²%´9¡›§àpü6ªQQQÁvøp£SŽ&/&ãp}bÎC©©©EqKK—. äJP©Tì€ Ûå|>8Â!œFPœÇáêŒoÕy#÷ÐyË:„M¡ÕÇV¾õ‡â;°Z?f¶ç=®Ç¼téÒž={r0==ûë°™Z­Öh4¶¸O²±®Õj¹Žkg_ý5ûÿ~ýú9_Éõo‡……±¡±±Ç¶ÁaÚÊÊJnŒÖb±Èd2öÈ°ÝÅÜQÒëõl.t8r¹¼sçÎ\¥‹ç@`` ×n·Û{öìÉ~vLÁùTïÞ½;WxQQQ÷îÝÙŽköÜvîLn­Vëü]ëÒ¥KVV–õïcEEÅÃ?ìdÀ …¢Yg>´´=EQ—.]b. hÖÛU*UIIÉÓO?ýôÓOß¹sǹi’••5räÈ~ýú%%%?þ£>:xð ÷ê˜1cÌf3Û* vîm“Ëå&“©Nû€ R¯×3 £ÑhجéfUUUQQQƒ "IÒyÎ$›¤gÍšuðàÁo¾ùfíÚµÎ1F†a”Je³b^½zõçŸÞ¯_¿¸¸¸ÚÚÚ#GŽ<ñÄìK‰‰‰\kÏf³ñ{4Ìf³sG(«°°ðOúS×®]ÙŸ/Û¶m‹ ‰‰‰)++»víZdd$»å£>ʶ9Ôj5MÓì§v¥qSZZ:cÆŒ˜˜š¦¹cËf}‚ ”JåÕ«W+**ØC:`À¶g4•Jebb"Û$R(:Žm2Äf³5ÑãÚ âââØØØC‡ýáؾ}ûýû÷{õêEEQ7n|úé§GŽÙ©S§òòò¸¸8®p¶ÃcòäÉÄoçvs÷˹páÂäÉ“###e2Ù—_~ùÓO?¥¦¦ºø^v8™ ’ ˆ'N̘1£Á-iš¶Z­óçÏoYÀ¯‡^ýu¡c"00°ÿþìU·oßž6mZhh(ûI’ƒîÝ»7A¾¾¾QQQ¾¾¾ìKÎl³ÙÚ·o¿fÍšqãƱ–¯¯ï‚ ._¾l·ÛÛµkWZZÁí744ôܹssçÎ%¢gÏž£GvƒìÖ­›V«uÎ7½{÷æ:'OžÌ0LTT;w|ðàÁ næüÐyKçÏUÿaÓjkkO:UÿŠLöh„……mÛ¶mÆŒ#FŒ¨ŒB¡¸|ù2›þ]Œ™ ˆ™3gþøã Ãܺuk×®]¡¡¡ìïܹóú믳Ç?**Š-Ù•ø5öÁïܹ³páÂ:O:tëÖ­íÛ·_¼x1A2™ì¥—^úâ‹/~ùå—>}ú¬[·nĈõO6ªÁƒ×ï{¬ï«¯¾ºuë–ó‘áJ#¢OŸ>%%%Ï>û¬L&s>†¾¾¾lâaZïÞ½ÿõ¯-Y²Ä××7<<ü¡‡?~<÷y]9d2Ù¬Y³Nž‡CèÀs¥¦¦6k SpZ­ö­·ÞúöÛo]©ýÅ…¦é°°0­V›‘‘!H3gάªª:sæŒ {÷26›møðáeee.µÎ¡)V«U©TF—jkkì¬Nw.ãâ6 ÃÐ4ÝF3˜\ÁÎò¾ßîg³Ù¢££•Jeqq±Ð±À ˜L&š¦ÅÕ@ðpøZy ¤C¬Y €t@ˆtUšvíÚ¡Àùøøüúë¯BGÑ¢L‡ì ­/ÇLJŸ¡S”ƒrPÊA9\9­/Dè,@:x:|àí$^_<ísyZ9|ñ´ÏåiåðÅÓ>—§•#^¢¼î¯>nhŽ³{à8»Ž³{ˆ÷8KºuÀB:„F÷î+t’€ãì8ÎÐ4¤ChTI~¹Ð!HŽ³{à8CÓ¤Cé€@: ¤Cé€@: ¤Cé€@: ¤C‚ Ú ²Wš¦CBBšØÀh4ªÕê&6xynzgºvíú¢za³Â(ÜùnÒ³Ï5ë-Rs©š:Ñ°üóÀ­[?\¾rù|õÿùøø\½ö}ûößûùn‡;ùúvìÐñúëýúô2xXg?¿È‘Ov èʽÇÙ=¼ò8 Xm6ýíÆ‚ìº-“)ŠR«ÕÛ·oÿøãÃÃÉ í²t¤Cho.^8Tn9zìãÚÚËß]ù®¶ö;‚ nÿp` Ù©S§€.]eýúßþév@—ÿ&<;s훋ªésÅ¥ÿ¸yóÆÝŸïühp×®dÏîŽ{fܸheß>ýûH Z¨Çøâãp8„Ú÷¤I“¸qãÆæ¾ÑLJŸ°ù*Ç[ÙÕÈÇÉ„ŽÂSÐ4½k×®?ü°²²òÚµk={ö$I2<<|üøñÑÑÑ$Iº^ZMMÍùóç¿ýö[«Õúyåé_ûîÊ•+Ý»w2dÈSO=•ššJQTÛ}iòÖóÙÓê1O‹ÇuBÆÍ0 MÓr¹¼¹oD:to­>š¥¤¤äý÷ßß½{÷?þسgÏèèèÑ£GÏš5«YɯiìqffûöíŸ}öÙ‡~øý÷ßûúúNŸ>}òäÉñññ|íHâ¼õ|ö´zÌÓâq0¥,’$[ Ü ¤¤äoûÛ‰'||| 0þüôôtS`}$I¾ôÒKìÿ†ÉËËûàƒ’’’nß¾©Õj‘Úf–üWUUÕ‹/¾H’dbb¢ŸŸßÇüã?žøàîÝ»¯½öÚáÇ#""ÆŒSXX(t\ÞFÒé°ººZè@` ÃdffÍž=;00°²²òÌ™3nn ºhÉ’%gÎœ©¬¬ ›={vPPV«e/¼ršõ_$1yOʆIKKëÛ·ï¦M›ÒÓÓ¿ûî;³Ù,àe?. çw¾ûî»ôôôwß}·OŸ>iiiHŠR†zŒ/’N‡ M 䤤<úè£ûöíKOO¯­­ÕjµØlI’Z­¶¶¶våÊ•ûöí NIIARh ¤C“É|ðàÁÌÌÌ+W®dddQ«,Y²äÊ•+kÖ¬9xð`ppð믿.tDb%étHÓ´Ð!€û 4èµ×^[·nÝ¿ÿýïE‹ o-Zôïÿ{ݺu¹¹¹,((:"pÔc|‘t:lzÝTð4MGGG§¤¤ >üܹsÜå}^楗^:sæ̨Q£RRR"##QKJê1¾H:‚Ì™3çñÇ¿}ûveeeAA¸Æ›‹$É‚‚‚ÊÊJ__ßÁƒÏ™3GèˆDé¼–Íf“ÉdEEE|ðÁ§Ÿ~êù³Fù~øðá÷ßÿÿø‡L&³ÙlBG H‡àÒÒÒ†VSS£P(„G …‚¦é°°°áǧ¥¥ €§C:oc³ÙzõêuàÀ‚‚‚ýû÷{wïhÓH’Ü¿AAÁzõê…f"@Á«Ì™3gøðá&L8}útRR’Ðáx„¤¤¤Ó§OO˜0aøðáMhŒ¤Ó¡Ñh:à Ã0r¹¼¨¨Èb±lݺUÊÂúH’ܺu«ÅbùÇ?þŠI§Þõ_$ÕjµÐ!? úõëסCÉŽº‚MìÖ­[xxxNNŽÐá?PñEÒé¼CrrrJJÊÌ™3;†FaÓH’|¸¬¬ ]F®3eeeÇïÛ·/:NXH‡ Vìe…ÁÁÁGŽ‰ŽŽ:‘‰ŽŽþòË/CCC‡ bµZ…@x’N‡XÜH¼L&Óðáßþy‹Å"“É„G”H’´X,+V¬P*•&“Ièp …Pñ¥½Ð ÝD"•––f6›F#&´žV«¥(*--íðáÃ;vì:h6Ôc|‘t:Ña&66¶¦¦¦¼¼\.— Ž—P©TEMž}Í—¶@’äéÓ§cccLJŒ("žP©Õj®N:––k:I1›ÍQQQóæÍÃÕmÍh4Λ7/**Êl6  €[I:b"†(,[¶,11ñ•W^ÑëõBÇ" z½þ•W^ILL\¶l™Ð±Àƒ¡㋤§Ò ©áù¬VkAAÖãv§Õ«W92%%å³Ï>Û·oŸÐá@SPñEÒ­Cðp3gδZ­¥¥¥È…î7eÊ”ÒÒÒ#GŽÄÆÆ  €; ‚‡š9sæûï¿ŸŸŸg„ŸŸÿñÇÏœ9SèXÚÒ!x¢„„„ÒÒÒòòò)S¦‹¤M™2¥¼¼Üb±`½oðz’N‡X˜Ê3i4šO?ýô‹/¾ÀÅ…ž@.—Ÿ;wîÓO?Õh4BÇ @=ÆI§C|½=ФI“JKKOžúmD„zŒ/’N‡àiÆŽKÓ4.´÷@$I=zôÌ™3cÇŽ:€6tžbìر׮];rär¡g"IòÈ‘#×®]CF¯„taÒ¤IW®\)--E.ôd$I–––^¹reÒ¤IBÇÀ3¤CžF£)++ËÏÏÇ =ŸL&ûàƒÊÊÊ0d^FÒ«Ò`²†'Ðh4»ví ›D„¢¨òòòñãÇXÅ ㋤ÓauuµÐ!H{­=r¡èÈåòƒFGGß¼y7 ê1¾ ³“œœ¼ÿ~äB‘’Ëååååû÷ïŸ8q¢Ð±ð鄱lÙ²÷ßÿ½÷ÞC./¹\þÞ{ï9r÷¾/ éÎRŠÉdZ³fMAAÖ`»)S¦äççO:µoß¾¸Óˆš¤[‡4M ‚Ùl¶%K–FܧÂ;L™2Åh4.^¼Øf³ ‹¡㋤[‡!!!‡Cè(¤Åf³EGG¿üòËhIxö¯‘`÷C=ÆI·ÁÍjjj¦OŸ>yòdÜ×Þû¨ÕêÉ“'?óÌ3555BÇÐH‡à& ÃLœ8±wïÞ˜—ï­vìØ1qâD†a„Ž ÙÁMÆw÷îÝ}ûö ´¡Ý»wß¾}{̘1BÐlH‡àcÇŽýå—_***°$©w#I²²²òá‡Æ2ß :bJ£T*Ùÿ¨Õj•J%l0Ð4ƒÁð駟îÝ»¹P H’|ï½÷žzê)N‡Ab‰0›Í^pb±¦C­VËþ§5ÓØ°¸‘˜ÍfNWQQ ‡Ò^VV6|øpŠ¢0…¸­yB=¦P(¸»V«UØ`ZL¬éP¡P´¾,}ÛÖl6[ZZšÑhD.”¹\Î^Œ(—Ëñ×oSžP‘$ÉK,,ŒB[a†½¬íiÂ¥ .H‡ÐVž|òI\V!q;vì Ãß H‡Ð&Ø©¤¸¬öíÛ÷Ë/¿`¢)x>I§Ã¡CðN ,øì³ÏÖ¯_©¤@’¤Ñhüì³Ï,X t,Þ õ_$±ôm[°Z­ÙÙÙ›7oÆÝ*€“ŸŸŸm6›…ŽÅ ¡㋤Ó!ðŽ¦é©S§êõzÜ­œ±w½HMMÅ]/Àc!o†™4iRrr2wU(G­V'''§¤¤`ESðLH‡ÀNçp8° 4Æh4:N't ëeøài–-[VXXøùçŸcú 4aïÞ½C‡}ä‘GV¯^-t,ÿCÒ­C\Η²²²5kÖ OX <EQƒaÍš5¥¥¥BÇâ%PñÅGŒ·QöñeØ¢c;T#'{àf Ɔ>õÔS»víjû ¼‹ÇÙ›¤¤¤_¼xÑ} <΂oý,éÖ!ð"66ö±ÇC.×åç燇‡ÇÄÄÀ!ò¬´´´ªªJè(ÜÇ`0œ9s¦  @è@@d jjj0­<Òáÿ iº•ßÏiÓ¦M˜0¯x8ΙÍæÖ_Î|¸cÇŽv»{&88xöìÙ-Éu"M+‡CÒ­Ã2 ìo=¶2''ç±Ç{ì±ÇV¬XÁ>Â=dq½%Ah4†aF=bĈѣG·`LqÞ¼yÆ «¬¬|`.Òëõ555C‡mz³o¿ývlÔxî¡V«ýù矹-^¼øرc%%%®ï AEEEÇŽ›3gŽëoáÎy¶OÒjµ†…… 6ì…^ ‚}(—Ë'MšäÜúáÖM“Ã88÷jÚl6“ÉÔ¬ø¹½Ï›7¯±mÌfs³î/—˯_¿¾aÆú/*•Jö’eee –pàÀ§žzÊyânRRÒ7\A‚¥ÑhÌf3{>Ùl¶ÌÌÌ•+WFGGÏ™3góæÍcÇŽ7o^\\Üœ9sL&Ó²eËØwq½%A˜L¦>}ú8Ž… vîÜ™ýçºØØØâââääd¥R¹téÒK—.ÕÙ€aç Íf³²ÍÆ`‡ ü½ó“G%¢¬¬lãÆ%%%¸âZ$É’’’¼¼<'di4®ßž¦éÒÒÒ¸¸8¥R™œœ¼wïÞgžyF©TFFFΞ=ûÔ©Sl‹ ˆªªª‰3"Ù/£¯¯ozz:w÷1«ÕÊŽ›°_¨fý¸ÌÌÌäö^\\|üøñ[·nÕÙÆd2i4öËBÓtc_ÒÄÄDWöøî»ïVVVöïßßÇÇ'---**ªÁÍ<8`Àçg~ÿûßüñÇ®4 ª4 Óh46›Íb±°'ñ… Ξ=ûÉ'Ÿ°Ýô;wîC†À…B‘œœyïÞ=‚ hš®3-ÅEQEmÙ²eÆŒ\tþ­w÷î݈ˆˆ»wï:I’$_)êöíÛõ»vkjjjkkq•!´…üüü¨¨¨˜˜˜“'O6¶MBBÂ|pðàAî«×«W¯‘#GrãããOž<É­Ò2räÈ~ýú±ÿ·Z­›×rE±¿JYr¹\¯×§§§·oßÞ9ç™L&n:Ì… vîÜùᇲÕjµJ¥Ú»woPPw#3’$‡ 2pà@®„eË–­_¿Þ9`â·ß»-³lÙ²?üðòåËÜ·^£Ñ4Ø»{ëÖ­ƒÆÇÇsÏ|õÕWׯ_oñ®¥@Òé°Á6ÓÙ³g{ôèqçÎNÇ%³Ž;vìØ‘Û&  Î»|}}¸;nŠ¢,KÓÛíöîÝ»7øÒÝ»wwîÜI’ä7L&÷c“í“ið-jµšû,®`¿ágÏ}鼊Çõë×ÏŸ?æÌ™&*,€+((6l˜Á`h°ýtöìÙ[·n…„„ìرƒ»~ßßßßù«çïïߣGçwuéÒ…ýÏÝ»w»øwml×r¹üöíÛE97Ñœ£W*•õ'Qûøø<ôÐC•yöìY›Í²fÍ.`š¦»[/EQÕÕՕƺtéRlll L‡©©©uº .^¼ˆ[6MÒc‡õO¾sçÎÝ»wïСCV«Õl67wPG/¾øâ»ï¾ë7vxýúõN:9r„½ì R­V76cªY¹Õ³gÏÿWüß´Zm§NÞxã¼¼<\emA&“ååå­\¹²ÁK~úé'«ÕzäȳÙÜØϾ&<óÌ3sÿ;œñÕW_]¸pý?Ûÿ¯ÕjI’lVÉ£G¾té’óâ«.\àú`oÞ¼i±XŽ9ÂI²ORÕØ—ô¹ ˆ+W®ÔÚ¤iºÁ”¬P(>úè#ç·lÙâçççú§“ ±¶¹>l'>_Å8pÈ!$IÊåò¢¢"¥RI’¤J¥â«|שÕêÍ›7=ú¥—^úá‡-ZÔ»woö¥ž={²ý¨r¹Üh4êt:¹\ÞصG®+--6mÚóÏ?ÿöÛoQPPÀÎÁ2dȹsç6mÚÔ£G¤¤$AŽH„J¥²Ùl)))GŽ©ó½Žˆˆ`Or‹Å¢T*›„kЫ¯¾«R©’’’ KJJ¸ŽÄÄÄDŠ¢ôz=MÓÇo¬yZEQ&L˜1cFVVV—.]rrr.^¼È½Êõâ²c“$I¶þÞgo½õVHHÈÌ™3ãââ‚‚‚þõ¯egg1‚}õ÷¿ÿýÙ³gïß¿O„\.W(J¥rñâÅíÚµ{÷Ýwýüü²²²Z@c†ñ‚;‹5rcol'>_ÅRÅå…Ba4m6›J¥ª“lêòÈ#Ü …B±@­3›‹Þ{ï=___¹\~íÚ5ÜËÚš^¯ß³góPQï+f±XØN‘:§q£££×,ÍÎ}oÝÙ³goÞ¼9{öì?üáÜ–EEEìöEEE NskìË»ÿþ9sæ¬]»¶S§N!!!iiicÆŒi0à&¦ 4¡NBQTAAAQQÑ_þò—G}ôÂ… “&Mâ&ÙQu÷î]nã‚‚‚Å‹¿ñÆ÷îÝ{úé§[€‹¬V«€}i|åÒãâ]1]\¸;lÙ²E«Õ>|¸õmP¨wZ¨ƒ¦éaÆ­[·®‰+ùZÇÙ=Ä[?Kzì°YIÃ0¯½öÚ‚ Á=(ŠZ¸pák¯½†EÅ\zŒ/’N‡MñgãÆëÕ«î]î´zõê¶ãš†zŒ/’N‡ð@Z­öÂ… GŽ:‹ÅråÊ•fÍ—h ¤ChÔ¥Ë7mÚÄN@:’$³³³×­[çSAÄ:³Ü`ÑÒç'OžŒŸç ”¤¤¤/¾ø"!!]± M¡u ÓétµW.µàú}iµÚÛ·o‹âÞ¿ vH‡Ð›Íf06¬zݤ ,’$·oßn0Ðe mMÒéЕU‘¤I£Ñ¤¦¦Ž|âI¡  Ejjj f“Ôc|‘t:lîm$bÎœ9ÕÕÕm·ž@seeeUWW7ëÁÒzŒ/’N‡PŸÍfËËËãn) à H’4›Íyyyè2…¶ƒtÿÅ0LBB„ pk_ð4 …b„ XªÚÒ!ü׋/¾ÈÎ\:€ìß¿Ÿ$É_|Qè@À;I:bq#gV«uçÎýë_ÑM ë¯ýëÎ;¼é„d¡㋤Ó!–¾å0 £R©´Z-î— žlÊ”)Z­V¥R¡Ë”ƒzŒ/’N‡À1 ½zõÂí Áóéõú^½zµéÝû@š°Hüç¢{‹Å"t .ÉÏÏ>|xýûr´Z‡ðŸ‹î1›ÄB.—Ï;æ¿¥݃effâÂ|à—¤Ó¡Z­:á¢{)\˜ÏA=ƇÃ!t Íæã#Ê°=L& Û¿ƒ¯ÚÕÈÇÉÜ‘á8·Xllì™3g\¼ýŽ³{ˆ·~–tëPâæÍ›÷ÐCá¢{¯íÛ·?ôÐCóæÍ:ðH‡EÓô¶mÛþüç?£›Ä‹$ÉŒŒŒmÛ¶áÚ;h=¤C‰R©T“'OÆÏj»¤¤¤É“'«T*¡Ñk:TþÆl6·¸ÉNÔ6 §OŸÆîÁ;ƳgÏJöÂ|O¨ÇÌf3W' KˉrÌÓÇLJ»f\.—·¸»O¼C¾­QSSóûßÿ~ëÖ­üA©îãÜzf³9--í“O> olo=ΞP1 ÃMñU*•‚ÇÓ2ÂÇàëÏï §‘û%&&Ò4]QQñÀ-½µúð48μP*•$I5¶·gO«Ç<-׉µ³ZfË–-h¢Ê)£Ñ¸ÿþ-[¶ˆÒ¡„0 ³nݺÔÔTŠ¢„Ž€gE¥¥¥½öÚk¸Ù´ Ò¡„$%%uèÐaÓ¦MBÐ&6mÚDQTRR’Ѐ(I:Jª‘d³ÙöïßÙ¤àÝ6lØ°ÿ~I­Ü&©z¬MI:VWW ‚û$''Ï;7&&Fè@ÚPLLÌܹs“““…Ä}$Uµ)I§Cé0 —/_ÎÌÌ:€6—™™yùòeÉ^†-†tèý†ÉÈÈxûí·±HI’o¿ývFFVnƒfA:ô~fäÈ‘XÅ ¤C¥RÅÅÅét:¡1‘t:4™LB‡ÐæJJJöìÙóÎ;ï€[éõú={ölÛ¶Mè@Úœê1÷t:ô„µþÚÚ+¯¼’žžŽ¹g 5E¥§§¯ZµÊë/C”B=æ’N‡^oÎœ9v»]¯× €ôzýíÛ·_}õU¡q@:ôZ4MïÚµ«5wü»üüü¼¼<Ì©WxJ:,))Q*•'._’’’(ŠR(B …B!—Ëãââ„D@˜tÈ0 ×jafØ°aÏ=÷Ü7¬VkHHÈ›o¾)HTÞÄjµ~õÕWXª ¨¨èÊ•+è&&Úl6n6ÔâÅ‹þùçšššýë_ÕÕÕ¯¾úª¤ÖXâÃ0ÉÉÉS§NÅ Š¢¦N:þünÝ:ðhÂw–îر###ƒ»B\.—>|õêÕnص·.nd0‚ƒƒ·nÝ*t aëÖ­ÁÁÁïîÌ:6á­õ˜û ŸïÞ½[ç ñ°°°nݺ¹a×^Ùx¢izÆ ˜M àL¯×oÛ±Å+§&xe=&áÓa@@€Õju~æ›o¾±ÛíBÅ#væùçŸÇ g …bú¤Y¸DšÐ^½ÞºuëèÑ£J¥’ ˆÀÀÀ¤¤¤+W®°/|òÉ'Ÿ|ò‰ ‰]IIÉG}„»8Ô7Žv¼jĶmÛRSS…Ž<‘0­Ãøøø;vhµZ¹\>}úôÇ{Œ}Þjµ¾üòË“'O–ËånÃûzN° @cºøxå:5ÞW ÅÇápC³ùøð6_åxˆ9sæüãÿàñ«n;T#'ã«4h Ž³{°Ç¹W¯^“&Mzûí·…‡7žVyZ<®~ìx5h\uj 1ÂŒ6¡¦¦&:::;;{Ê”)Mlö~Éþ:φ‹hîî~`î4÷-žéÙggÉúõ%â÷yÍññp8Îîñsg”<*"ü‰Ø؉Ç«„‡7B?U'+¯_¿.ȮۂǥÃ#GŽ\¼xñÝwßm: u/$èø·u;ÑIí…Í}‹:zâãÿûê«ÝÛ?äýãxÇññ|8ÎîÁç7VçNŸõ‡my”“…ŽˆB?k3õ7ðžt(ÊN^ŒÖËûu÷Órg÷p>Îiiiû÷ﯭ­4"~xZ=æiñ¸c‡¢§Óéüüü° €ë¶nÝêçç§Óé„<ˆÀ¥V«Õjµ~þùç;v”ÉdcÆŒ1b„L&sÏÞ½àú<†a²³³¥pËo~Æ©S§jµZn…H‘ò‚zÌCÖ:,++ëÕ«—J¥bWëîÔ©SMMÍÊ•+û÷ï?oÞ<÷Ä V«Ý³£¶£ÓéFŽYg•;x …B1räH/h zA=æ!k&&&>ùä“ÅÅÅuž·Z­Ó¦MKHHÀ2cTRRb2™°€/@˼óÎ;!!!±±±ñññBǦuX^^þý÷ßÿýï¯ÿ’B¡ˆŒŒÌÉÉqT¢“““³hÑ"¬AÐ2E-Z´È=÷ÏÏ'Øí{ôèÑX—ýýû÷oݺåæDgýúõG]±b…Ј؊+Îœ9ƒï®YzçÎOA†a*++ãââ܆x—·gfóæÍK—.û,a‘$¹fÍšììlñ.d*ÞzÌÓvÈŠ+V­ZìççwïÞ½C‡PuòäÉ&Þ‹ë“““?ýôÓ¯¾úªM÷‚ëáÜÇÙ=š8Ρ¡¡#FŒ(((poDüð´zÌÓâq`3K322>hµZçÏŸÏ®4_[[;gÎœ¦s!Ð4ýÁ,_¾\è@¼ÄòåË ±©Ä‰2K¼uÝ­[·ú“ry‡V‹{à8»GÓÇyÚ´i—/_>~ü¸#⇧ÕcžëÝ–ñÃÓê1O‹Çu’nŠ‚Édª­­ÍËË: ÉËË«­­EÃKR=ÝŠ+¦NŠ‹+܉$ÉäädÜøIR=šN§óóóÛºu«ÐHΦM›üüüt:Ѐ› z.†a²³³õz½ÐH”Ñhõ­¡Yĺ„·R©dÿ£V«U*•°Á´ƒÁ0räHoýtžO¡PŒ9R§Óaå—¦™Íf/gk:äÖí”Ëå-.¤ººš§pøWUUe0,‹ÐHÚÒ¥K•Jå¼yóÎ 7oÞÄoS‰·~ÆØ¡'*,,4›Íëׯ: Ö¯_âÄ ¬ƒáõ=‘Á`xöÙg)Š: (ŠŠ‹‹3 BmKÒé¦i¡Ch@ffæÅ‹7oÞ,t ð›7o¾xñbff¦Ð4À3ë11’t: :„lÚ´)11×Ýx’$ÓÒÒÞzë-¡i€gÖcb$étèØëî1«ÀÓdeeùúú¦§§ ´¤CÂ0Ìßþö·¤¤$¡€¨ÕêÜÜ\\•ï­=ˆÁ`ˆŠŠÊÈÈ:h€V«ŠŠÂœo…tè)hšÞ°a·¼x ­V›••…Ù+^ éÐS †˜˜ÜïÀ“)Šøøx4½’Xiã…çÌX)++3™Lž°Ø4M¯×‡„„Ìœ93&&FèX“ê1±åj:â]¨1J¥2 @Ø%ÙêÃâaîãì<çY³f}ÿý÷X¶­Aâ­Ÿ%Ý:ô………'Nœ¨ªª:pINNN¿~ý 1Ü›`ìPxƒ!..K²ˆI’X¶Íû  K²ˆ‘'/Û-#ét¨Ñh„K²ˆ’ç,Ûæ õ˜wt:üöÍX’ @¼zôhAAÃᨭ­ý¿ÿû?‡ÃQYY9hÐ ·­Ñ¾{÷îÔÔT÷ì €G©©©»wï: ï!L¯©©éß¿uuuƒ­ÀÇ\¡PlÚ´©±·óø+F¡P´²iÈo<(å ”ã:¥RiµZ='Ëq¿ö‚ìõüùó=zôh¬GtÀ€_~ùeo÷ñññññá%«ÕÊKQ|ŃrPÊA9¢.‡¯`ÜO˜t8`À€«W¯Ò4Ý`Fü÷¿ÿ=räÈ&Þþ믿¶Yh EÂŒÊd²ÈÈȨ¨¨-[¶8¯­PRR÷ÙgŸ-Z´HÀ@šžYºwïÞï¿ÿ¾C‡½{÷f¥:thqqqÓ3Køåcž………~~~C‡EAxD:–ð«Òé@lé°  @©TÊd2¥R¹eË¡ÃñNåååýû÷W:qÛ"AQZZ:zôèúÏkµÚ°°°þýûÏ›7ÏùvçÐ2 çÑ£GGEEqçvbb¢ ±y‡ªªª§žzJ.—÷ïß_¥RÕyUtç³0׶ŒÍfKIIY´hQjjjEEÅ‹/¾8pà@Ü¿žwÇïÖ­›V«åžÁ'j4š¾}ûÖy~Þ¼yÅÅÅÏ=÷\·nݶoßþÌ3ÏTWW ¡whì8÷Ýw/¿ürDDû$I·‡æ%†‰ŠŠ [¾|ùåË——/_>tèÐÏ?ÿœ}U”ç³C< 4wî\îáܹs{öì)`<ÞJ«ÕªÕj¡£ðNF£±K—.ÉÉÉ …ÂùùÊÊJ‚ ***؇v»=00pùòåBÄè ;·Ãù8Ck¨Õê¡C‡rÙlWYYéíù,¦ÎÒ³gÏΞ=›{˜™™yåÊç«ø4MÿüóÏ'NLKK[¶lzJy¤V«/\¸ðÜsÏÕyþàÁƒ111r¹œ}H’¤F£¹xñ¢ÛôgÖÇéù,šÖáíÛ·/\¸PçÉk׮ݺuKx¼˜V«uþe·zõj‚ „‹Èûùøø|ñÅÎÏ´k×®þ ­ÇåB‚ H’|á…8 `<^Àf³ÍŸ?éÒ¥\ éù,št8eÊ”;wîÔǪ­­3fŒP!I‡¿¿¿Ð!x¹ñãÇýõ×ÎÏ=zT©T tôíÛwÈi ›Í¦T*õz=û»™%ÒóY4é ˆ   mÛ¶q·lÙÒ©S'\À/š¦ë\‰U^^~õêÕ¸¸8¡B’•Jµwï^çA¬ÒÒÒ   CòJƒÁd29?óÏþó駟*±ãr¡Z­v~^¬ç³ÐS[›aãÆ~~~7nüúë¯FcçÎW®\)tPÞÆn·wéÒeÈ!v»Ýh4úúúÆÇÇ —W±X,õ/ˆŠŠ ¯¨¨¨®®ž>}z@@€Ýn$<¯Qÿ8uéÒeÍš5v»½ºº:))ÉÏÏoÏž=BE(j$IÆ_ãù,¦tèp8¦OŸþÈ#ñÈ#LŸ>]èp¼ÓáÇãââzè!ö8Ïž=[舼MEE…J¥ªóä×_×±cÇŽ;FGG—•• ›7ið8/_¾<88˜ ˆŽ;Nœ8ǹÅêÌeqÙQŒç3îh ª±C€6‚t€t€t@ H‡Ò!t@ H‡Ò!€HåääÌœ9Sè(¼G{¡€fKKKÛ¶mÛСC…À{ u > ,øÝï~'t ÞéÀÝ MÓÜõk×Nš4iÚ´iUUU.–°qãÆÉ“';?c2™l6ŸQH :KÜ*!!ÁjµªT*öáÚµkׯ_ÿÄO|ýõ×ÑÑÑ7nÜ`Ÿ7›ÍõÓ›J¥’Ëå KÓtzzú·ß~K’dÛàÅÐ:h!š¦u:]³ÞRRR²{÷îÒÒRŠ¢Øg:4xð`«ÕúÉ'ŸÜ¼y³ÅÁèõú#FÔi2€ëÐ:h!š¦›Û?©V«“““£££¹g:vìxñâÅÂÂÂÓ§O;o©R©¸¤‹Š‹‹ûöík2™Ôju³ÞÒ!€Û,[¶Ì××wÓ¦MÎOnÚ´iðàÁÏ=÷Ü/¿ü2}úôÖ”O’äK/½´bÅ ¤C€@g)?Ìf³ó™úöïß?f̘:c{E ‡Cè¤bôèÑ·oß>yòd[nµZ•JeuuuÓ\ Ah¸Ï¾}ûª««/^Ì{É6›mêÔ©z½¹ eÐ:p«ÒÒÒçž{Îjµºra†ë”Je@@À®]»x,@RÐY €t@ H‡Ò!t@ H‡Ò!t@ H‡AüR’>Pª`ãzIEND®B`‚ifeffit-1.2.11d/doc/RefMan/figs/win_sine.ps0000644000175000017500000003233010771740460017403 0ustar segresegre%!PS-Adobe-3.0 EPSF-3.0 %%For: newville %%Title: PGPLOT PostScript plot %%Creator: PGPLOT [PSDRIV 6.6] %%CreationDate: 6-May-2003 16:51 %%BoundingBox: (atend) %%DocumentFonts: (atend) %%LanguageLevel: 1 %%Orientation: Landscape %%Pages: (atend) %%EndComments %%BeginProlog /L {moveto rlineto currentpoint stroke moveto} bind def /C {rlineto currentpoint stroke moveto} bind def /D {moveto 0 0 rlineto currentpoint stroke moveto} bind def /LW {5 mul setlinewidth} bind def /BP {newpath moveto} bind def /LP /rlineto load def /EP {rlineto closepath eofill} bind def /MB {gsave translate MFAC dup scale 1 setlinewidth 2 setlinecap 0 setlinejoin newpath} bind def /ME /grestore load def /CC {0 360 arc stroke} bind def /FC {0 360 arc fill} bind def /G {1024 div setgray} bind def /K {3 -1 roll 1024 div 3 -1 roll 1024 div 3 -1 roll 1024 div setrgbcolor} bind def % Uncomment next line to convert color to grey shades %/K {3 -1 roll 3413 div 3 -1 roll 1739 div 3 -1 roll 9309 div add add setgray} bind def %%EndProlog %%BeginSetup /#copies 1 def %%EndSetup %%Page: 1 1 %%BeginPageSetup /PGPLOT save def 0.072 0.072 scale 5199 1200 translate 90 rotate 1 setlinejoin 1 setlinecap 1 LW 1 %%EndPageSetup %%PageBoundingBox: (atend) 0 0 0 K 1024 1024 1024 K 1 LW 0 0 BP 5999 0 LP 0 3999 LP -5999 0 EP 0 0 0 K 1024 1024 1024 K 2 LW 816 760 896 K 0 2799 600 600 L 0 2799 1800 600 L 0 2799 3000 600 L 0 2799 4199 600 L 0 2799 5399 600 L 4799 0 600 600 L 4799 0 600 1872 L 4799 0 600 3145 L 0 0 0 K 4799 0 600 600 L 0 2799 C -4799 0 C 0 -2799 C 0 69 C 0 34 840 600 L 0 34 1080 600 L 0 34 1320 600 L 0 34 1560 600 L 0 69 1800 600 L 0 34 2040 600 L 0 34 2280 600 L 0 34 2520 600 L 0 34 2760 600 L 0 69 3000 600 L 0 34 3239 600 L 0 34 3479 600 L 0 34 3719 600 L 0 34 3959 600 L 0 69 4199 600 L 0 34 4439 600 L 0 34 4679 600 L 0 34 4919 600 L 0 34 5159 600 L 0 69 5399 600 L 0 69 600 3330 L 0 34 840 3365 L 0 34 1080 3365 L 0 34 1320 3365 L 0 34 1560 3365 L 0 69 1800 3330 L 0 34 2040 3365 L 0 34 2280 3365 L 0 34 2520 3365 L 0 34 2760 3365 L 0 69 3000 3330 L 0 34 3239 3365 L 0 34 3479 3365 L 0 34 3719 3365 L 0 34 3959 3365 L 0 69 4199 3330 L 0 34 4439 3365 L 0 34 4679 3365 L 0 34 4919 3365 L 0 34 5159 3365 L 0 69 5399 3330 L -14 -5 595 517 L -9 -14 C -4 -23 C 0 -14 C 4 -23 C 9 -13 C 14 -5 C 9 0 C 14 5 C 10 13 C 4 23 C 0 14 C -4 23 C -10 14 C -14 5 C -9 0 C -46 0 1823 517 L -5 -42 C 5 5 C 13 4 C 14 0 C 14 -4 C 9 -9 C 5 -14 C 0 -9 C -5 -14 C -9 -9 C -14 -5 C -14 0 C -13 5 C -5 4 C -5 9 C 9 5 2935 498 L 14 14 C 0 -97 C -14 -5 3041 517 L -9 -14 C -5 -23 C 0 -14 C 5 -23 C 9 -13 C 14 -5 C 9 0 C 14 5 C 9 13 C 5 23 C 0 14 C -5 23 C -9 14 C -14 5 C -9 0 C 9 5 4135 498 L 14 14 C 0 -97 C -47 0 4269 517 L -4 -42 C 4 5 C 14 4 C 14 0 C 14 -4 C 9 -9 C 5 -14 C 0 -9 C -5 -14 C -9 -9 C -14 -5 C -14 0 C -14 5 C -4 4 C -5 9 C 0 4 5325 494 L 5 10 C 5 4 C 9 5 C 18 0 C 9 -5 C 5 -4 C 5 -10 C 0 -9 C -5 -9 C -9 -14 C -46 -46 C 64 0 C -14 -5 5441 517 L -9 -14 C -5 -23 C 0 -14 C 5 -23 C 9 -13 C 14 -5 C 9 0 C 14 5 C 9 13 C 5 23 C 0 14 C -5 23 C -9 14 C -14 5 C -9 0 C 69 0 600 600 L 34 0 600 854 L 34 0 600 1109 L 34 0 600 1363 L 34 0 600 1618 L 69 0 600 1872 L 34 0 600 2127 L 34 0 600 2381 L 34 0 600 2636 L 34 0 600 2890 L 69 0 600 3145 L 34 0 600 3399 L 69 0 5330 600 L 34 0 5365 854 L 34 0 5365 1109 L 34 0 5365 1363 L 34 0 5365 1618 L 69 0 5330 1872 L 34 0 5365 2127 L 34 0 5365 2381 L 34 0 5365 2636 L 34 0 5365 2890 L 69 0 5330 3145 L 34 0 5365 3399 L 5 -14 398 595 L 13 -9 C 24 -4 C 13 0 C 23 4 C 14 9 C 5 14 C 0 9 C -5 14 C -14 10 C -23 4 C -13 0 C -24 -4 C -13 -10 C -5 -14 C 0 -9 C 5 -13 398 1798 L 13 -10 C 24 -4 C 13 0 C 23 4 C 14 10 C 5 13 C 0 10 C -5 14 C -14 9 C -23 4 C -13 0 C -24 -4 C -13 -9 C -5 -14 C 0 -10 C 4 -4 486 1872 L 5 4 C -5 5 C -4 -5 C 0 -47 398 1965 L 42 -4 C -5 4 C -5 14 C 0 14 C 5 14 C 9 9 C 14 5 C 9 0 C 14 -5 C 9 -9 C 5 -14 C 0 -14 C -5 -14 C -4 -4 C -10 -5 C -4 9 416 3126 L -14 14 C 97 0 C 0 -97 2767 247 L -47 -47 2814 215 L 32 -37 2786 187 L -9 -9 2952 265 L -9 -14 C -10 -18 C -4 -23 C 0 -19 C 4 -23 C 10 -18 C 9 -14 C 9 -9 C -27 -83 3007 233 L 27 -83 3017 233 L 28 -83 3012 233 L 41 0 2989 178 L 28 0 2970 150 L 27 0 3026 150 L -9 -4 3007 265 L -4 -10 C 0 -9 C 4 -9 C 9 -5 C 10 0 C 9 5 C 4 9 C 0 9 C -4 10 C -9 4 C -10 0 C 62 0 3072 255 L 7 3 3169 283 L 10 10 C 0 -72 C 9 -9 3231 265 L 10 -14 C 9 -18 C 4 -23 C 0 -19 C -4 -23 C -9 -18 C -10 -14 C -9 -9 C 18 -65 1288 3539 L -19 -65 1325 3539 L 18 -65 1325 3539 L -18 -65 1361 3539 L 5 -5 1389 3571 L 4 5 C -4 5 C -5 -5 C 0 -65 1394 3539 L 0 -65 1431 3539 L 14 14 1431 3520 L 9 5 C 14 0 C 9 -5 C 4 -14 C 0 -46 C 0 -97 1569 3571 L -9 9 1569 3525 L -9 5 C -14 0 C -9 -5 C -10 -9 C -4 -14 C 0 -9 C 4 -14 C 10 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C -9 -5 1624 3539 L -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 10 5 C 9 9 C 4 14 C 0 9 C -4 14 C -9 9 C -10 5 C -14 0 C 19 -65 1689 3539 L -18 -65 1726 3539 L 18 -65 1726 3539 L -19 -65 1763 3539 L -9 -9 1827 3589 L -9 -14 C -9 -18 C -5 -23 C 0 -19 C 5 -23 C 9 -18 C 9 -14 C 9 -9 C 0 -97 1860 3571 L -46 -46 1906 3539 L 33 -37 1878 3511 L 0 -65 1938 3539 L 14 14 1938 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 14 14 1989 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 5 -5 2072 3571 L 4 5 C -4 5 C -5 -5 C 0 -65 2077 3539 L 0 -65 2114 3539 L 13 14 2114 3520 L 10 5 C 13 0 C 10 -5 C 4 -14 C 0 -46 C 83 0 2201 3530 L 83 0 2201 3502 L 0 5 2321 3548 L 5 9 C 4 4 C 10 5 C 18 0 C 9 -5 C 5 -4 C 5 -9 C 0 -10 C -5 -9 C -9 -14 C -46 -46 C 64 0 C -5 -5 2423 3479 L -5 5 C 5 4 C 5 -4 C 0 -9 C -5 -10 C -5 -4 C 0 -97 2460 3571 L -46 -46 2506 3539 L 32 -37 2478 3511 L 0 -65 2538 3539 L 14 14 2538 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 14 14 2589 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 0 -65 2727 3539 L -9 9 2727 3525 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 50 -65 2760 3539 L -50 -65 2810 3539 L 83 0 2843 3530 L 83 0 2843 3502 L 9 4 2972 3553 L 14 14 C 0 -97 C -46 -97 3115 3571 L 65 0 3050 3571 L -4 -5 3156 3479 L -5 5 C 5 4 C 4 -4 C 0 -9 C -4 -10 C -5 -4 C 0 -97 3244 3571 L -9 9 3244 3525 L -9 5 C -14 0 C -9 -5 C -10 -9 C -4 -14 C 0 -9 C 4 -14 C 10 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 0 -97 3281 3571 L -46 -46 3327 3539 L 33 -37 3299 3511 L 83 0 3359 3530 L 83 0 3359 3502 L 0 5 3479 3548 L 5 9 C 5 4 C 9 5 C 18 0 C 10 -5 C 4 -4 C 5 -9 C 0 -10 C -5 -9 C -9 -14 C -46 -46 C 64 0 C -5 -5 3581 3479 L -4 5 C 4 4 C 5 -4 C 0 -9 C -5 -10 C -4 -4 C 0 -97 3618 3571 L -46 -46 3664 3539 L 33 -37 3636 3511 L 18 -65 3692 3539 L -19 -65 3729 3539 L 18 -65 3729 3539 L -18 -65 3765 3539 L 5 -5 3793 3571 L 4 5 C -4 5 C -5 -5 C 0 -65 3798 3539 L 0 -65 3835 3539 L 14 14 3835 3520 L 9 5 C 14 0 C 9 -5 C 4 -14 C 0 -46 C 0 -97 3973 3571 L -9 9 3973 3525 L -9 5 C -14 0 C -9 -5 C -10 -9 C -4 -14 C 0 -9 C 4 -14 C 10 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C -9 -5 4028 3539 L -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 10 5 C 9 9 C 4 14 C 0 9 C -4 14 C -9 9 C -10 5 C -14 0 C 19 -65 4093 3539 L -18 -65 4130 3539 L 18 -65 4130 3539 L -19 -65 4167 3539 L 83 0 4199 3530 L 83 0 4199 3502 L 0 -32 4319 3571 L -4 9 4402 3525 L -14 5 C -14 0 C -14 -5 C -5 -9 C 5 -9 C 9 -5 C 23 -5 C 10 -4 C 4 -9 C 0 -5 C -4 -9 C -14 -5 C -14 0 C -14 5 C -5 9 C 5 -5 4430 3571 L 4 5 C -4 5 C -5 -5 C 0 -65 4435 3539 L 0 -65 4471 3539 L 14 14 4471 3520 L 10 5 C 13 0 C 10 -5 C 4 -14 C 0 -46 C 56 0 4554 3511 L 0 9 C -5 10 C -4 4 C -10 5 C -13 0 C -10 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 10 -5 C 13 0 C 10 5 C 9 9 C 0 -32 4642 3571 L 10 -9 4674 3589 L 9 -14 C 9 -18 C 5 -23 C 0 -19 C -5 -23 C -9 -18 C -9 -14 C -10 -9 C 0 0 0 K 12 0 600 600 L 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 23 C 12 24 C 12 23 C 12 24 C 12 23 C 12 24 C 12 23 C 12 24 C 12 23 C 12 24 C 12 23 C 12 23 C 12 24 C 12 23 C 12 23 C 12 24 C 12 23 C 12 23 C 12 23 C 12 23 C 12 24 C 12 23 C 12 23 C 12 23 C 12 22 C 12 23 C 12 23 C 12 23 C 12 23 C 12 22 C 12 23 C 12 22 C 12 23 C 12 22 C 12 23 C 12 22 C 12 22 C 12 22 C 12 22 C 12 22 C 12 22 C 12 22 C 12 22 C 12 21 C 12 22 C 12 21 C 12 22 C 12 21 C 12 21 C 12 21 C 12 21 C 12 21 C 12 21 C 12 21 C 12 20 C 12 21 C 12 20 C 12 20 C 12 20 C 12 21 C 12 19 C 12 20 C 12 20 C 12 20 C 12 19 C 12 19 C 12 20 C 12 19 C 12 19 C 12 18 C 12 19 C 12 19 C 12 18 C 12 18 C 12 19 C 12 18 C 12 17 C 12 18 C 12 18 C 12 17 C 12 18 C 12 17 C 12 17 C 12 17 C 12 16 C 12 17 C 12 16 C 12 16 C 12 17 C 12 15 C 12 16 C 12 16 C 12 15 C 12 16 C 12 15 C 12 15 C 12 14 C 12 15 C 12 14 C 12 15 C 12 14 C 12 14 C 12 13 C 12 14 C 12 13 C 12 14 C 12 13 C 12 12 C 12 13 C 12 12 C 12 13 C 12 12 C 12 12 C 12 12 C 12 11 C 12 11 C 12 12 C 12 11 C 12 10 C 12 11 C 12 10 C 12 10 C 12 10 C 12 10 C 12 10 C 12 9 C 12 9 C 12 9 C 12 9 C 12 9 C 12 8 C 12 8 C 12 8 C 12 8 C 12 8 C 12 7 C 12 7 C 12 7 C 12 7 C 12 7 C 12 6 C 12 6 C 12 6 C 12 6 C 12 5 C 12 5 C 12 5 C 12 5 C 12 5 C 12 4 C 12 5 C 12 4 C 12 3 C 12 4 C 12 3 C 12 3 C 12 3 C 12 3 C 12 3 C 12 2 C 12 2 C 12 2 C 12 1 C 12 2 C 12 1 C 12 1 C 12 1 C 12 0 C 12 1 C 12 0 C 12 0 C 12 -1 C 12 0 C 12 -1 C 12 -1 C 12 -1 C 12 -2 C 12 -1 C 12 -2 C 12 -2 C 11 -2 C 12 -3 3011 3132 L 12 -3 C 12 -3 C 12 -3 C 12 -3 C 12 -4 C 12 -3 C 12 -4 C 12 -5 C 12 -4 C 12 -5 C 12 -5 C 12 -5 C 12 -5 C 12 -5 C 12 -6 C 12 -6 C 12 -6 C 12 -6 C 12 -7 C 12 -7 C 12 -7 C 12 -7 C 12 -7 C 12 -8 C 12 -8 C 12 -8 C 12 -8 C 12 -8 C 12 -9 C 12 -9 C 12 -9 C 12 -9 C 12 -9 C 12 -10 C 12 -10 C 12 -10 C 12 -10 C 12 -10 C 12 -11 C 12 -10 C 12 -11 C 12 -12 C 12 -11 C 12 -11 C 12 -12 C 12 -12 C 12 -12 C 12 -13 C 12 -12 C 12 -13 C 12 -12 C 12 -13 C 12 -14 C 12 -13 C 12 -14 C 12 -13 C 12 -14 C 12 -14 C 12 -15 C 12 -14 C 12 -15 C 12 -14 C 12 -15 C 12 -15 C 12 -16 C 12 -15 C 12 -16 C 12 -16 C 12 -15 C 12 -17 C 12 -16 C 12 -16 C 12 -17 C 12 -16 C 12 -17 C 12 -17 C 12 -17 C 12 -18 C 12 -17 C 12 -18 C 12 -18 C 12 -17 C 12 -18 C 12 -19 C 12 -18 C 12 -18 C 12 -19 C 12 -19 C 12 -18 C 12 -19 C 12 -19 C 12 -20 C 12 -19 C 12 -19 C 12 -20 C 12 -20 C 12 -20 C 12 -19 C 12 -21 C 12 -20 C 12 -20 C 12 -20 C 12 -21 C 12 -20 C 12 -21 C 12 -21 C 12 -21 C 12 -21 C 12 -21 C 12 -21 C 12 -21 C 12 -22 C 12 -21 C 12 -22 C 12 -21 C 12 -22 C 12 -22 C 12 -22 C 12 -22 C 12 -22 C 12 -22 C 12 -22 C 12 -22 C 12 -23 C 12 -22 C 12 -23 C 12 -22 C 12 -23 C 12 -22 C 12 -23 C 12 -23 C 12 -23 C 12 -23 C 12 -22 C 12 -23 C 12 -23 C 12 -23 C 12 -24 C 12 -23 C 12 -23 C 12 -23 C 12 -23 C 12 -24 C 12 -23 C 12 -23 C 12 -24 C 12 -23 C 12 -23 C 12 -24 C 12 -23 C 12 -24 C 12 -23 C 12 -24 C 12 -23 C 12 -24 C 12 -23 C 12 -24 C 12 -23 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 0 0 0 K 0 56 840 600 L 0 57 840 713 L 0 28 840 826 L 0 29 C 0 57 840 939 L 0 57 840 1052 L 0 57 840 1165 L 0 56 840 1279 L 0 56 840 1392 L 0 56 840 1505 L 0 56 840 1618 L 0 56 840 1731 L 0 28 840 1844 L 0 29 C 0 57 840 1957 L 0 57 840 2070 L 0 57 840 2183 L 0 57 840 2296 L 0 56 840 2410 L 0 56 840 2523 L 0 56 840 2636 L 0 56 840 2749 L 0 28 840 2862 L 0 29 C 0 57 840 2975 L 0 57 840 3088 L 0 0 0 K 0 56 4919 600 L 0 57 4919 713 L 0 28 4919 826 L 0 29 C 0 57 4919 939 L 0 57 4919 1052 L 0 57 4919 1165 L 0 56 4919 1279 L 0 56 4919 1392 L 0 56 4919 1505 L 0 56 4919 1618 L 0 56 4919 1731 L 0 28 4919 1844 L 0 29 C 0 57 4919 1957 L 0 57 4919 2070 L 0 57 4919 2183 L 0 57 4919 2296 L 0 56 4919 2410 L 0 56 4919 2523 L 0 56 4919 2636 L 0 56 4919 2749 L 0 28 4919 2862 L 0 29 C 0 57 4919 2975 L 0 57 4919 3088 L 0 0 0 K 0 -97 906 2478 L -46 -46 952 2446 L 32 -37 925 2418 L 0 -65 985 2446 L 14 14 985 2427 L 9 5 C 14 0 C 9 -5 C 4 -14 C 0 -46 C 14 14 1035 2427 L 10 5 C 13 0 C 10 -5 C 4 -14 C 0 -46 C 4 -4 1119 2478 L 5 4 C -5 5 C -4 -5 C 0 -65 1123 2446 L 0 -65 1160 2446 L 14 14 1160 2427 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 83 0 1248 2423 L 0 -97 1418 2478 L -9 9 1418 2432 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 0 -97 1455 2478 L -47 -46 1502 2446 L 32 -37 1474 2418 L 83 0 1534 2437 L 83 0 1534 2409 L 9 4 1663 2460 L 14 14 C 0 -97 C -5 -4 1751 2390 L 5 -5 C 4 5 C -4 4 C -14 -4 1815 2478 L -9 -14 C -4 -23 C 0 -14 C 4 -23 C 9 -14 C 14 -5 C 9 0 C 14 5 C 10 14 C 4 23 C 0 14 C -4 23 C -10 14 C -14 4 C -9 0 C 0 -97 3978 2478 L -46 -46 4024 2446 L 33 -37 3996 2418 L 0 -65 4056 2446 L 14 14 4056 2427 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 14 14 4107 2427 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 0 -65 4245 2446 L -9 9 4245 2432 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 50 -65 4278 2446 L -50 -65 4328 2446 L 0 -83 4402 2464 L 83 0 4361 2423 L 0 -97 4532 2478 L -10 9 4532 2432 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 10 9 C 0 -97 4568 2478 L -47 -46 4615 2446 L 32 -37 4587 2418 L 83 0 4647 2437 L 83 0 4647 2409 L 9 4 4776 2460 L 14 14 C 0 -97 C -14 -4 4878 2478 L -5 -10 C 0 -9 C 5 -9 C 9 -5 C 18 -4 C 14 -5 C 10 -9 C 4 -9 C 0 -14 C -4 -10 C -5 -4 C -14 -5 C -18 0 C -14 5 C -5 4 C -4 10 C 0 14 C 4 9 C 9 9 C 14 5 C 19 4 C 9 5 C 5 9 C 0 9 C -5 10 C -14 4 C -18 0 C -5 -4 4956 2390 L 5 -5 C 5 5 C -5 4 C -14 -4 5021 2478 L -9 -14 C -5 -23 C 0 -14 C 5 -23 C 9 -14 C 14 -5 C 9 0 C 14 5 C 9 14 C 5 23 C 0 14 C -5 23 C -9 14 C -14 4 C -9 0 C 0 0 0 K PGPLOT restore showpage %%PageTrailer %%PageBoundingBox: 86 86 375 519 %%Trailer %%BoundingBox: 86 86 375 519 %%DocumentFonts: %%Pages: 1 %%EOF ifeffit-1.2.11d/doc/RefMan/figs/win_parzen.png0000644000175000017500000004335010771740460020112 0ustar segresegre‰PNG  IHDRZ’´jøùbKGDÿÿÿ ½§“ pHYs__׊ÚÉtIMEÓ;i¥§M IDATxœíÝ{|UÞ?ð(ÐR.RYìeJ… tªr¿hb¹( ˜JTð’€¢ðø3}VQ\oÔÝ—¬ë ›è®º€bóh¡. ›ˆ]àÙÍH±(f,  ›A©+k~œu6¦išËdÎ$óyÿÁ+™NÎ|3ÌœoæÌ9gLÁ`[Ö°‡t€t€t@Ò!A: H‡é€ ¤C‚t@Ò!A: H‡é€ ¤C‚t@Ò!A: H‡é€ ¤C‚t@Ò!A: H‡é€ ¤C‚t@Ò!A: H‡éÐફ«].ë( Q-‹(Š¬1 ¤C–&OžœÀ±.I’*[Ÿ?þÆ­V«*Å>ôÐC555jÄõo6lðz½QÖQkW¤Hëð¼‘ȲWQI~kY–év›››cüHb[œ5kV}}}¼ŸÒæÿTÏGŽ,Ëô¡OŸ>“'Of‘a‘µkךL¦I“&Åõ)Çc6›UÙ:!Äçó©Ul·nÝzõê•|`Á`ðÝwßíÕ«W¿~ý®ºê*BÈôéÓ#®¦Ö®HŸÏשS§§žzJYâ÷ûÍ­tëÖmÍš5í–f6›=}Ìiëp8rrr KJJºvízÿý÷Çò©Ð­ÇhíÚµ:t=zt\ŸÒìÿ4o¤‡Ãáp8”·^xáœ9sÆcgc›3gÎ×_={öl&[饗fÎœ)‚ZnÞ¼¹Gª5sæÌþõ¯%„Ô××ßtÓM/½ôÒ¼yóT)\.—ëÞ{ïíׯße—]¦,äyÞãñ„­&ŠâÔ©Sµ‰J–å_ÿú×7ß|óóÏ?OY¾|ù#ëÖ­SÊÙ¶m[Ÿ>}L&S=V®\º‰Õ«WÓäææ®^½š.¤wàéë‰'Κ5‹¾...¦·LÞ~ûí &´uM ËrX`UUU]ºt1™L—^zissówÞIßæååmÛ¶~ª¦¦F¹wXYYùüóÏ÷îݛƼtéÒ¸ö›ßïÍ»víêÒ¥Kô´sUUUÇŽé[%fº{ôèAwà”)SèW ;P¹¥çr¹ìv{\_Áétþ⿈¾ŽËå’eÙáp´µ‚ò®¸âŠS§NE\'®ÎPsçÎ}çw”·ÍÍÍ'OžÌÍÍñãJØô¨Žýð&„·{xwîÜ9Êá­üzk÷ðŽÇqÊ1VTTdµZM&=_¯^½”ØÇ\@?Õº@A¬VkÄoñ“Ÿü„î=å”WKº#òx<ÙÙÙ±üOA2S‹ÖN§“çyzºZ­V¥ M‡½{÷V:¶øýþ¬¬,úúÆoœ7ožRàš5k®ºê*úºÿþô4£î¹çžK.¹„¾Áétú|>¥¦v8Ê)zùå—‡uß ©%,ƒÁU«Võë×Oy{Ï=÷téÒE‰sÕªU]t}š —,YºhžŽ—Óé$„´•QBc­æÂb¾ãŽ;:wî¬T[¡14(t.X°@É”@€çùÅ‹ ‚%iE%z<Žã"¦ùà æ³Ï>S–\~ùåuuuô5M‡¡¹0N§³[·nkóÖè Í…TŒ‡7¹­Ã{æÌ™JQï%K– 4ˆ¾Ž~xÇ+ôçZ0¼è¢‹V®\ ï¿ÿ~%mƒÁºº:%¶Ù³ggeeEÜù‡#ôÿ¥oß¾·Ýv›çÆ »þúëƒÁàªU«BOyzÐF2±o±CWšÔ2›Ín·[–e«ÕZSS#Š¢×ë­­­m½æe—]¦tláyþìÙ³ôõ_þò—§žzJY-//¯{÷îôõ—_~¹páBåO‹/~öÙg•íz½^I’¬V«$I´c½ò«ùÛo¿=}útXçÏŸ1b„$I´¦¦ KJJ.½ôRåí´iÓöíÛ§ÄYRR2hРÖßeàÀS¦LQÞ ‚Я_?úZŶƘÍæз´‰Òét†-oó¡C‡hâŒóM7ÝÔÜܬ\Õ…ÆüÉ'Ÿ„ve í Äq\mmmyy9Ïó+V¬P–ÇtÑï®]»6???ôÆ[¯^½rrr”·t Cèÿ!ÄëõF,㸰>S´sûöí±w¢Ù¼yó³Ï>»páÂТb?¼ !ï]»vÝ{ï½Ê:QïE‹)M©ÑoI’Új5åy>âWÝeee¯¿þúâÅ‹_yå•ùóç+Ësrr”ØN:uÙe—µþïs¹\.—+ôÿåĉ’$)÷‚Á`II !¤¤¤$ô”§mĘ !± Åä!¦–Ùlv¹\’$ÕÖÖJ’ô«_ýŠÄYoƒÁÏ?ÿ¼­¿†ö7“$)++KÙnee%Ïó6›M’¤††Q•íŽ?þСCaE}ðÁ%%%sçνï¾ûÂêYÕÔÔ´un‡VUJ.ŒÒðÕÒÒòÁÐ|f·Ûˆ9777JEãv»³³³€(ŠJµcüÑy½^QÛJ„Þ½{ýõ×QJ8tèТE‹fÎœéóùèFCëÜ04µ+oi.ôx<±÷+>räÈÿýßÿ½ôÒKsçÎ:t¨òŸ’üáݱcÇ“'O¶õ×ÐÃ;t·G?¼i݈ ‚úã&¢³gÏöéÓ‡Ò§OŸ'ND\gØ°a­Š¢X]]½bÅŠ°ûûßÿ>ɾ»¢(ªÕm¢a}yšá”;:Á`Ðétæåå…6é„6–† ·RþkæÍ›Çó¼Òö²dÉå† &LP>2bĈÐv'zþøýþÚÚÚììl厤´´4ts§°°n…¶—*ËC‹ò6´±4¬‘0Þ1^ôRO¹]j÷îÝ7n¤¯×¬YSRRB_'së¨ ¥#"|>_2m’m}ñ¶î®ZµŠ¾ ·Ç”¦Â@ Я_?å¯ä‡Æ½bs8a žŠ7644(oŸzê)¥äÒÒRºõ°öÒï`«¶>åí=÷Üãá=a„Ðc8Êá/Òëóùz÷î][[ kkkCÛ3Cc lu[ö-‡rï0ÊQfÁ‚Ê]mHô,M-žçóòòè¯E³Ù|ìرxG#<ýôÓßÿ}AAÁüùó-Ëoû[¥áÑétîÚµ«¸¸øöÛoïß¿ÿ‘#G^xáåƒÌËËãyÞjµ~óÍ7¡M1×^{í¾}û”H‰ÓLÀªcwMMÝnŸ4i’$IÕ?P®{&Mš4}útú://¯  €¾N,æÐX\\ìóùòòò!’$UVVÒŸù47«8ámQl}Õ»téÒE‹]sÍ5„ŽãV®\ùÀLœ8±ªªª¨¨(øC#Eÿ§è…ŽÒݱ]7ÜpÃ3Ï<3}út·Û­ì[·ÛMÿ:}úteä/ùK‡Ã1räHúö§?ý)ݺÍf³Ùl‹…<ÉÞ<òÈùóçéá=qâĶï¼¼<¿ßÚ$åðNÀرc'Nœ8yòäqãÆUTTЩš¬VëĉÇwà 7Lœ8qåÊ•]»vm«„Ûn»íÈ‘#Ç);–^ΆcëׯOàJ±®®®¨¨(™/±øÉòåËYÇá²³³'L˜PVVÆq\SSÓ£>ªœT]»v3fL×®]i×ê!C†(Ÿêß¿?­eºvíºxñâo¾ùæĉ:tX·nÝ Aƒèšýû÷¿ûî»›ššþõ¯Õ×ׇ¶fggLœ8‘rúôéûï¿¿gÏžôO={ö¤÷Ûî¸ãº$4€®]»šÍfY–A ,Ê[ú¢ÿþ¡ß+ìkƲ»ššš:uêº+”!=zôØ´iÓÃ?¬JÌ¡;°W¯^Ï=÷Üرcû÷ïOÛè”!JɱÄß:ì°/~æÌ™1cÆЯêÊ+¯|öÙgóóóo¹åBȈ#®¿þú?ÿùÏ999sçÎ={¶RTè±A+îc{÷ÝwKKK•|Cõïߟîï¿ÿ~ÆŒW^y%!ä’K.yá… n»í¶°/BÛ$‡ B¶XïИ•*_aÉ’%ôðniiyýõ×#Þ<Ï××ׇ&’(‡w¼yä·Û½gÏBÈý÷ßÿè£*ª¬¬ÌÎÎ>~üxKKËÊ•+Ç×úhÝ·¡#‚èwý]tÑÆé~‹~”†ZºtéG}ôç?ÿ9±o±3ƒAÖ1ãÆûýï¯ÌYš®»î:¿ß¿oß>Ö¨OÅ«¯¾z÷îÝ©˜#&`ÊËËý~¿‚I5“I¿Õ ,ËEEE‹-zì±ÇXÇ’ùô{@ª-]ºÔétnß¾]Å©ÚRMEÚ§Ÿu ê£7ë$ýȲ,IRÉÐm:”eyôèÑYYY»wïf‹! ±Ô¸***NŸ>}æÌ™4ªõú÷ïc£kÚ¡m欣ø7ÚÊÇ: =zôúë¯gEüñÁƒÿ÷ÿ7Sy½ÑéÏ"-¡g)Ò!@šÎJÓ¡C´ñèÉdúþûïYG‘ˆ´L‡täËQ«GÊA9(å ¥œä a¥H‡O‡¡S ¢œÔÑÛ÷Ò[9jÑÛ÷Ò[9jÑÛ÷Ò[9é+-Çêv‰ ƒý¬ ìgm`?k#}÷³¡¯(¤ChÓ€þù¬C0ìgm`?CtH‡Ð¦ k¶±Á°Ÿµý Ñ!¤ç0ü”’$IyÈNèëÖdY~ï½÷¦M›–ÀV››› !………Ñ .IÒŽ;!sçÎM`C ¥®e™ÒÖÃIêëë»uëvìر©S§&ð¥Þ(++‹þ,0Ô‰¦¡”†­îñxÌfs[«‹/¾¸_¿~ l‚>M¦´´´¬¬Œ2{öì¶Öœ0a!¤OŸ>]ºtéҥ˚5kØ\Â|ï|¦åæ ûY)ÝÏJ½áp8GÄu ³²²Fݯ_¿¬¬¬7Ƶ‰Q£FBÊÊÊ !wß}w[k²­7Ò4­ƒA4–&‚>„öìÙ³¥¥¥ñ~¶±±ñÍ7ß|óÍ7?þøã={ö8Îõë×766¶^síÚµ|ðACCÉ'¾ýöÛyóæÝwß}j„Z»÷Þ{Ïž=»ÿþ÷ßÿرcUUU·ÜrKìohhرcÇ+¯¼²gÏžÏ>ûÌét>÷ÜsôJ1 ê„!&B–åššš^x¡cǸ[›O:%Âu×]GßÚl¶~ýú}ôÑG­×ܼyóÕW_=~üxúvõêÕ_}õ•×ëM&r`âÛo¿½ñÆé…!äá‡þꫯbÿø×_=räȪª*úÖf³õéÓçÓO?m½&ê„áÞ!EñÚk¯ „¶µŽÅb©­­5›Í„úoÄ#¬­ÃŽã8úÐù &ø|>eùºuëŽ?>dÈÖÙ»wï²eËB—Œ1bÓ¦MtëÀPCCìY³@VVVQQQÄuBëçŸ>ôOO>ùdÏž=•·íÖÓ¦M í¦°nݺ“'OF¬¯Po$ÌèéP’¤±cÇNŸ>}ÕªU„ÊÊÊÖ?¸è1mµZÛ=ž$Iª©©‰ø'Žãjkk[/üñÇçÍ›±7MSS=={öŒØ¬ Z’$iÊ”)sæÌyþùçeY¾ùæ›÷ï߶N”z£¾¾þÕW_}òÉ'•Ò«7”kÍP¨7fôtøÇ?þñ§?ý髯¾Jßz<ž°§“Ô××ßrË-7ÝtS,úñ<ïñxbߺÝnoiiyúé§ÛZ¡uß³Ð_”À„Óé,--¥|ÇýéOŠXo,X°`ÅŠaŸEqîܹ‚ Ü}÷Ýt ê 0z:ܶmÛ AƒÚúëéÓ§«ªª:vìØú˜nK» »Ý.Šâž={ÚêoŸŸïõz­Vk舿@Këׯ¿ýöÛÛúëñãÇ«ªª²³³GØŸè%cUUUØÏkÔz`ôtسgÏ–––ˆ:vìØ|0þ|BˆÅbñx<펊½ÑƒÓÑË:tèæÍ›CkdzaÆè1@ªõïß¿uë(õÕW_­_¿þ™gžñz½aõ†Ò|– Qoè둉P1lŸÏ—íóùè[z˜Ò×kÖ¬))) ƒ@@A@èg£LŒÂf³µ.Z¶lÙoû[úzÅŠ¹¹¹Êj+V¬ÈÎÎŽø©Áx8m`?kCÅýìñxrss#Ö ,˜1cFð‡zC©"|>Çq6›-áF©7î¸ãe#óz#MÓJ04úÕ¡ ÷Ýw_yy9mL8zô¨ò§¼¼¼‚‚BÇqÇb±TWW'ÿH°‘#G~üñÇ—_~yeeeh´=öÑGíÑ£½©àp8Ünw¯^½òóó¿ûî»cÇŽ½øâ‹ Ìdê2›Í?ûÙÏÊËËKJJÎœ9Cû¥S=zôèÑ£ ©7jjjǨQ£.¸àI’,‹²²Íf kÕlKôzã…^xóÍ7i×SÔ KËS©þ<-I’Þ~ûmBHEE!$â$m²,K’ÖŽ}·ˆêëë¿ÿþûœœœÐ…<ÏÓrêëë{ôè¡Œ"„ˆ¢¸iÓ¦Þ½{Ož<9Þm%IÜÚ,\]¨å ûYªïgQÿú׿’×a“´I’Dÿ´zõê’’’°Aˆ1Qµ[oäçç‡vPgXo¤ïóÓ2îôÝÝéÕ´6°Ÿµý¬ô­Ÿ1+ Ò!«’$GYÁétÚl¶(+,Z°$lI=î²ýW\a¬[ÿòœÙ·Æõ‘”š<}âOûèÒµ«‰¯Oݱc§sßíÜ9‹Õ’–¯¾éÞ#[?ñd꺟Ï?×½{®‰~û-]KÔ]¢Ö~þòËÃ[6¾Ëº¶ø†õØ*×3qͼªsl®yž·Ùl999»wïŽØá5z.T‹ãÁðœÊÐç_júhë( Míùü‹C¬£ø]Õciå=Ïë®»®¤¤dåÊ•ñ~P­[µ±”ãýAè¼Ûq)//7ÿ Êjn·»²²RW· Ñõ@ØÏÚPk?›L¦ÚÚÚè$4«7ˆþº®è-žØ±w¸fÍÚ YoDQôz½ô_Úm:ÉÒDQ¤³N(ÇwØ€ ºZ’mˆ¢Ø:*õ†ÛíVe´Þà8ŽÖë PËtØz:>†dYv»Ýô€N]’¦? !ÇY­VzˆÓQAúüe­)?^%IRR`ò?#¢UM±<ÏÓ¤hµZ1²^uFŸ•FIí^œUWW‡-q8¡GdMMMØù@Úˆ¥É²ìr¹èkžç­VëöíÛãŽXhjjª®®v»Ý±ÿŠm]?>|xÀ€ô5Çq­çûnM’$ZoØív\/ªÎè-dY¦ÓÍ°á“O>9~ü8à vÇÿä“ORt9#I’$IbC†IË{žjݪ b^#*™­%¼Å°¡)”FAêë뫪ªššš4žN):tñÐö³6ÔÚÏ’$ 6lݺuÓ¦M£Í¤´öˆ¸r*ê°þ L™RèJ“–B!úÌ Ú^¡äEÕ»·(íf³9´¡uß¾}£FÒÕ1 ñÌH‡lЛ H‡éŽžÅÌç¦ä:&3f1I¡9T0ŒbÔú‚zC=†N‡~¿ŸÉv%IŠx³Šbñ‘7$éPk^¯—ã84÷d<ø0:2ù5·eË–¶ú”â×%€þµužr·e˃!¨7ÔcètX\\¬ýF[ZZ¬VkÄ?1‰âÒÖyjµZ[ZZ4† ÞP¡Ó!mu+€´†¦;¤C­á1‡ >LwH‡šÂc2|˜î5%Š¢Ùlf¤„ÙlF:L_Y ‹ÅB_Øl¶¶z¦èЖ-[²²²XG)‘••UWWg³ÙX¢5·ÛO!N×tèp8è‹dµŸÜèèÑ£“&Mj믘l @ÿ¢œ§åååo½õ––Á}Ôf³Y?–¾7PÓ5ªÒä¨}Ï<öØcmý=Nô/Êy:f̘ßüæ7ZCôQop—·pïP;ô1‡pÐ@Df³>L_H‡ÚEQ¿ã u0—wúB:ÔdñxžG:LS†N‡OnÔÔÔýê“-è_ôó”çù¦¦&Í‚!¨7Ôcèt¨qÿŽ;†eÜrпèçéСCwìØ¡Y0õ†z µ$Ëò©S§FÅ:H¡©S§ž:uJ–eÖ@Ü5"Š"sñ8Žã8·ÓÒ¡FÐÀ й4M!jD’$¤C#÷óÒ‘¡Ó¡–S Æ2èЀS¤vÏS¯Qo¨Å YÇ7“)ýÂîܹóÎ;ÓëQÜÚ,\]È:ŠÌ‡ý¬ Íö³(Š#GŽüî»ï4Ø–¥cýLúêP3¢(ž;w.½r!$F„sçÎáöaÚA:Ôs`(xða:B:ÔúÑ zÓ¤#C§C»Ý®Í†è ÃvWÓ,HX,ç©–CQo¨%-ïyªu«V³[¾&“Éãñ´Û^ª·[Ðèâ¡ ìgm¨µŸc9O½^¯ÅbѬzÑU½¡·xbgè«Câü¸K IDATm466•žW ižïô܇tt˜r,((`hª  ààÁƒ¬£€8 ¦œ(Š¬£MUTT sizA:L¹ûÑ@&ÁDÞiÇÐéP›çKH’ãC<ï@ÿbèPƒx I1ž§tè¡>D½¡–Ž¬H×ë¥/AÐsS¤(Š………zŽRã¸ÂÂBƒÌH%Ër´ §k:¬©©¡/l6›ÕjeL¯½öZ—.]XG téÒåµ×^3B:ôz½.—‹uÉJ×tèñxX‡“:LŸ>uÀÀôéÓ 2U›ÕjU.KL&Û`fè{‡©¢(Æ>[©A΀´ûyªÍÌ¥¨7ÔbètX\\œêMÄ•5ˆ’ûyªÍs€Qo¨ÅÐé0Õhtƒ0&žç9ŽSúýÎ!¦A:•@[´¹@U ¦Ð[o½•““Ã: `&''gÆ ¬£€˜ ¦ÖäÉ“Y‡ÌLž<C­ÒÒa 544ÄÞ2  ¬£€˜:¦tr#zà ®tˆÉ–ô/®ó”Ö)½}ˆzC-†N‡)íóûT¥ ôAпxÏÓT÷¦A½¡C§Ã”ŠkÄ!d*mãCòSeË–-^x!ë(€± /¼pË–-¬£€ö!¦Š$IÇg06|øp\¦C§ÃÔMn$ËrKKËøñãu¨%Þótüøñ---©Ëˆ¨7Ôbèt˜ºTE:?“NâµÄ{žrÇó|êÎnÔj1t:L¯×‹~4@ ‚€™Kõé0%$IBïg RzujA:L‰@¦ÂDÞié0%öîÝ‹t” GŽa´ÃÐéÐf³¥¢X¯×Û­[·KS¨(ó”çùnݺ¥èö!ê µ::ÎT›ð|4)ŠT”ØyšºöRÔj1t:LÜ8€0˜ªMÿÕ‡n¥KõéP}ta0ôPÿÒ5Z~àv».Än·«µmÛ6çc©ˆÔ•ØyJëZ?¨Kõ†ÛíVêdÖ±$Î YÇ7“ÉäñxèkAâ -´Õ¿¾Ëåúãÿøþûïë$ždˆ[›…« YG‘ù°Ÿµ¡Ö~Nø<3fÌ-·Ü¢zGP=Ô²,+…, óxÓ‘u 2›Í¬CˆL’¤!C†°ŽtgÈ!™zûã8ÝÖɱK×ÆRÝ¢“w³Žt‡çyÌM£gH‡*KxÐ!d6LÕ¦sH‡j’$I–å h4Õ™ÍfY–3µ½4:ªÞª¹}ûöüüü„?ŽVVýKæ<ÍÏÏß¾}»ŠÁÔê1t:ôûýê¸mÛ¶¾}û&üqÕãÕ%sžöíÛWõ±¨7Ôbèt¨ºo¾ù-¥Ð³ÙüÍ7ß°Ž"C:T“(ŠH‡Ð³ÙŒÞ4º…t¨z“\­vü;ï¼³¾¾^•¢@'èÌ¥²,³"0t:t¹\*–&Š"Çq4Š¢XYY™L<øÃ,X J`úÓŸúôéc2™L&S·nÝ–/_ÞÖš«W¯4hP—.]L&Ó°aÃ>ØóªIb¬7"V<Ïs§îbbõ˜(ŠYYY«W¯V–H’dŠdíÚµK˜8qbNNŽÉdÊÉÉ™8qb‚Ñ뉡ӡºsý…Ž8”e9€¡ñÔÕÕmÞ¼Y•Àn¼ñÆÒÒÒ@  oºé¦Gy$bWoY–Ç•W^yôèQ¿ßß«W¯Ï,S%€Lc½ÑV% úèÃê1·Û=zôè .¸ ¤¤DYÈó|ðÇ<ÇqS§Nm]ÂÂ… }>߆ ‚Áà‹/¾ø·¿ýÍáp$õ5tÀÐéP]o½õVnn®Z¥M›6møðáÉ—³aƾ}û¾÷Þ{tf×_|qÀ€uuu­×\ºtiqqñš5kè5îo¼q2ð÷dfH€Örssßzë-¶1x½Þ›o¾yðàÁÑW«©©±Ùl'…þÝï~÷»ßýŽv•°Z­?ü°ºmL ªæôéÓ­—˲\YYIºÝn·ÛmµZ‹ŠŠŠŠŠ&OžLQÞҕ駪««•k8»Ý^__?hРK/½´   ­¶‹ˆf̘Ú±»¹¹ùĉýúõk½æ7ß|?ÇqW^>·ýTQ]]MÏ&Aöïßçwæçç_|ñÅ“'O–eyéÒ¥yyy—\rÉ°aÚ››•O…žøwÞy§òóÔb±„^zVWWÇŒÓé|þù磯ãõz½^oÄk>Z5Í™3GY2kÖ¬S§NŃé%nØ°Áb±Øíöô²!âôl²,[,ŽãèŸDQ|â‰'öîÝ{×]wÝÿý£G¦o}ôQBÈŠ+”Ò”]ár¹æÎ[VVöè£<ø¾ûî£ËÛj맔‡öîùÝï~WTT4wîÜÖñ{½ÞK/½4tIŸÞ}_yå•ä÷ €ÁÙív¯×KÏDŽãŽ;¶víÚÿùŸÿy衇š››ÇŒãt:—,YòÄOdeeýüç?§ŸÚ¶mÛÏ~ö3zâ_yå•/¼ðBèùHoLÒÓ\¹€³ÛímUñ^½E¹4ܹsgØOjžç;wî¼nݺ¸6¡;A@mm­òº¬¬,77÷Š+® ‡ËÊ•+£\­°Uüú>Ÿ/´4Çc6›€ 6›MY>{öì¼¼c‚!¨µŸc¬7h% m6› ÊiþÔSOBÖ®]KßÞqÇ:tPÎÊU«VqG_O™2eÆŒJ3f̘={6}xžw8ôwvb_$´’ C‡öûýþˆ­««k]3”””Ð „UZI›<‰¢èr¹¬V+!déÒ¥ß}÷]ss3ý"ŠâÈ‘#ÇŽ›^a·qxþüùòòòÓ§O+f$„Üzë­Ê®I“&‘_v¤íù–BŸ‘6nܸóçÏÓ×Qž¯Ëå²ÛíN§³­{öìÙÐVBÈ¡ÃÒ\ÐVùЮ뮻Îëõîß¿_9Í/»ì²Þ½{+ƒñoºé¦ææfå¬,))Q^¿óÎ;ü±RÔ Aƒ”×ÇÕÖÖ–——‡Õ’$µÕÀ×£aé¥a”ac­·rðàÁÂÂÂË×'öÏ;|õÕWi÷ úV„òòòÇ{,bwu©8¹‘$I¡i¦¥¥åƒ>˜9sfSSSeeehFŒbÍš5/¿ür\­©©ië¯<Ï+G³’ £|xÊ”)?þxÇŽW®\©ÜË7›Íôæ8Îét&6 ª­šÄáp´ž{Ùf³544Ì›7Où¬ßï·ÛíûÛ߆ ²{÷îto)%„˜‚Á “ ×××wëÖÍëõž={Öçó½÷Þ{„¯×{ã7^{íµ¡­ ­™Lê„­Ö£n·»¦¦&ùG*Nyª qk³pu!ë(2ö³6ÔÚϪœ§ååå‡#Æ›yÄ£"µêgí1k,6miÕûÑl6k9–³¸¸X•ÿ6QU9ÕŠRG•ó”çyQUI‡¨7Ô¢—aøiM­tAÓ!ë(àGØw¥ ÓÜÜ<~üøgŸ}–^>¶åÍ [–ôìÙsø°ËâÝÜiùL¼ií£>¾÷¥J!*Ò[<™ ûYjíçäË=büš?®ÑO<‰iܳ;æfSè.þå/ùâ‹/^~ùåèé°¦&¼Un÷žÏ<÷²Ç}ïGÂ|}ú«£G¿ìß»8ù¢T‰G]z‹'Sa?kC­ýœ|9ý{yôË{?ÏíÞCñ$æÉ'V|}:sÒaZÞóTëV­*åx½^‹Å¢ŸxT„.ÚÀ~Ö†ZûYÅú‡N䦓xÔ¢·xb‡{‡ÉŠ2M@¨=t…qc)}†È‡~˜••UXX8jÔ¨+®¸B³‰ïb™)¦]²,Ó©G“§J<Rj§“&MRå>¨7ÔÂìê°¡¡á /´Z­´{U—.]š››~øᢢ"e T‹2gìDQ¼í¶Û’/‡¨¤”Zçém·Ý¦J:D½¡fW‡•••£Gn=O·×ë½á†fÍš•|“º6">æ :A0ÖBWØ\nÛ¶íĉøÃZÿÉl61â¹çžÓ>ª¬[·®S§NtñÊGæf6éP–å>}ú´õð­óçÏ·´´hRb>L¯qãÆ>|˜uðolÒáŒ3Îœ9óÐCµþ“,Ë»wïž:uªaØíö$KeY„äËQ+H5ÏwA¢<ÑPãx€Ù‘‡zèÑG1cƈ# }îܹ­[·®]»–çùèO?ÑϸC‹ÅbµZív»NâQÆÃiûY:wèt:ÝnwŒOuvìؽ{÷ê!HË{ž:¹UÛ«W¯ÚÚÚ ¾wˆ.ÚÀ~Ö†>÷³×ë­¬¬ ¬QNêçúê0²,ÓA‡¬€4F‡&?ú’‡t˜ Qyžokb€XpÇó<&/Õ¤Ãy½Þüü|ÖQ@Ú+++Û´ië(ÀØéÐår%üÙ-[¶üô§?M¾µâm¨~¾gggoݺ•y<`èt˜Ì\:uš>}zòå¨hCõó}úôé:ub:&I€*ðàC@:L„×ë¥7ÀYivÊÃÜ4Ì!&—† "\ êÒa"$IB:µ‚ Ië(ŒŽå-’a±Xè ›ÍfµZ5ÞúŸÿüç;ï¼Sã@¦ÊÍÍ}íµ×XG‘8·Û\Ó5:ú"™«4¿ßŸØ›››+**’/G­x@3©8ß+**xà¶ñ$Ãl6+s’¤ïMдœ\Žíœx¢(&ÿÄδ Ï93ö³6t¾ŸéÓ€3à. æ,5Q3xÚn`Âl6£7 [H‡q“$ C,@]<Ï£7 [†N‡‰|tòîäËQ+ÐRŠÎ÷„'òF½¡C§Ãâââ>µk×®°öýÄÊQ+ÐRŠÎwAvíÚÅ00t:L€$I---¸wê2›Í---¸Ôcé0>­[JT²…tLÏ)‚©ÚØB:Œº•@Š s)[H‡ñÁ CH =dËÐéÐétƵ¾,Ë'µâí¥î|§y˲Ì$HËÙtXMT___UUõÍ7ßh¿i&t>©UÆÀ~ÖFZìçîÝ»¯[·nÚ´i¬I&i3„}ûö5Šu±FŒ±cÇÖQÒað˜CH)Aâm,µ Æ£, ¥0Ö‚!C§C»Ý×úmÁ·µâí¥ô|O`$>ê µ¤å=OµnÕÆUN”Ç2‰GiÑõ `?kC­ýœêóÝd2y<žØté­ÞÐ[<±3ôÕa\6nÜXRRÂ: Èp%%%Û·og…!ÆêôéÓ×\s ë( Ã]sÍ5§OŸf…!ÆjïÞ½………¬£€ WXX¸wï^ÖQÒa¬Ð­4 ‚×ëe…:Úl¶פ3'µus;örÔŠXIõùNë™ØçòF½¡–´ì¤}Ï%·Û]SSãóù´Ü(sèñ¨ ìgm¤Ñ~.//w8V«•u ‰Hßž¥Y ¥1AŽãR½¹­[·^tÑE©Þ !¤_¿~[·nM£t(Ër̮鰦¦†¾°Ùl4{öì)((HõV!¹¹¹é5s©×ëu¹\¬£HVº¦CÇ£åæŽ?þ‹_üBË-€aÝ~ûíé5׌ÕjU.KL&Û`fè®41þœië1‡ñ–£V<Àç{\>D½¡–´¼ç©ñ¤h^¯·²²2è$ͤQ׃´†ý¬t™¤*..v:±LÕ¦·zCoñÄÎÐW‡1òz½qZây£5†tØ>Y–‘@K´½”uÆ‚tؾ7¢[)h©  yk é°}ǯ¨¨`HEEÅñãÇYGa,†N‡Ÿå†6ßG_3–rÔŠØÒæ|§åö!ê µ:úýþv×E±ÝÎ]±”£V<À–fç»ÙlŽeªÔj1t:ŒúÑ‚ Ä8ôTtØQÑÚãy>&M#H‡íðz½H‡ = =Ô˜¡Óa»ÃzèO³vïª5<ÃŒôO³óÖ<í^ ¢ÞP‹¡Óaqqqô¢OU{9jÅÌiy¾Ç2õ†Z Û%Š"úÑ+‚ àö¡f£EQƒg DÄqÒ¡f£‰eÐ!@ŠÄ8ôTtØ&Y–1è¢C1úPH‡mÚ¶m[ß¾}ÑX ¬p×·oßmÛ¶±Ä Ng”¿îÚµkØ°aÉ—£V< ŸïÆ Ûµk—ñ€¡Ó¡Íf‹ò×GY´[ŽZñ€h|¾·;Öõ†Z £‹=¤ž¬¤Ã6aÐ!0‡¡‡šA:ŒÌëõr‡ÙJ€-žç9ŽÃä¥H×thúËåJ¸(“mÙ²%ö>¥˜¤ À8´?ß9ŽÛ²eKªãI†ËåRêdÖ±$.]ÓaðÉÜFŽÒ"ßÒÒbµZ“/G­x@'´?ß­VkKKKªãI†ÍfSêdÖ±$.]ÓaªI’„–RОçõó2Òad^¯ýh@AÀ½C F@ûq!€кýKS é0 ±]Áp :¶Õ gçÎÉ—£V< LÎ÷‚‚‚;w¦40t:lk®¿}ûö 80ùrÔŠôƒÉù>pàÀ}ûö¥40t:lË, ë(þÍb±8p€ué0œ$I²,ã©¿ f³Y–e ·H)¤Ãp¢(bÄ!è ÏóèM“R†N‡v»½õº•F,G­x@WXïmu.E½¡C§Ãˆó655Å{u˜Ì¼©©(R‡ÕùÎó|SSSêâC§ÃˆvìØ1tèPÖQüÈСCwìØÁ:ŠL†tø#²,Ÿ:ujÔ¨Q¬ø‘©S§ž:uJ–eÖd,¤ÃE9â8Žã8ô¦I¤ÃÁôl [˜ª-¥ [_J’”@:TëjW¥úÇð|¡õÐCÔj1t:ôûýaKtغµâ½ax¾G¼:D½¡C§ÃÖ>üðC4–€>ñ<ÿᇲŽ"c!þ‡(ŠçÎC:}áܹs¸}˜"H‡ÿ!Š"¦*=3›ÍH‡)bètvSZ’¤ÄnJ«5¯.æçÐ?¶ç{ëÞ4¨7ÔbètX\\ú6áÉ»ÃÊQ+Ð!¶ç{롇¨7Ôbètƒ@ç0ô0u:² AÕÕÕô…ÕjU%‡566â1‡ sôÁ‡Ã‡gˈ¢èv»YG‘,\þ[cccïÞ½YGÐŽ466²Ž"¥ëÕáŠ+Ô-pÿþýW_}µºe¨näÈ‘û÷ïgÅ‚ ´ÒÕÔÔ° &a¸:ü·„»•h‰çyÜ>LC§ÃÐÉ’tˆIÚŒƒùùn6›CW ÞP‹¡Ó¡r9(Ërb“w‡•£V< [ÌÏw:ôPyð!ê µ:*DQìÙ³'Çq¬hÇq………h/UÒ!!„¼öÚkyyy¬£ˆI—.]^{í5ÖQd¤CBéСÃôéÓYG“éÓ§wè€Ú[e†Þ¡ÊäFIÎGƒIÚŒCç{èÜ4¨7Ôbèt¨ôÎJ2b oãÐÃùšQo¨ÅÐéòz½½³ }ÐúŠÖ] ¤C"I¦*€ô6ú’‡tHêêêrrrXG‡œœœºº:ÖQd¤CræÌ™ñãdzŽ ãÇ?sæ ë(2Š¡Ó¡Íf#„444 :4ùrÔŠôL'çûСCTŒLÁ`u q3™T [’¤âââtÜ ·6 W²Ž"óa?k#óö³Édòûýzë¨bý¬1C_’¤‡X°:Ü’‡tˆti éP]FO‡ ˜¹»-3nF#-`?k#óö3Çq‡u™ÃÐéÐn·úé§Iö£¡å¨*å¨å𗟳Á°Ÿµ¡Ö~ÖÏù>tèÐC‡é­ÞH_iyÏS­[µ&“‰’¼@T1]ýwè-žL…ý¬ ½§É—#Ër¯^½!º:~Ò÷xfu(Šâºuë6lØÀdÂ!žç3¯±Ôår±áGÔŠ'SËQ‹Þ¾—ÞÊÉ<Ç©Ø­û™eŸ?þK/½Déׯ_nnîÁƒ !ƒÞ´iSôÿc™Íæäßõókå ”c¨r,‹×ëÕO<*–£=fW‡#GŽÜ±cÇÚµkƒÁà±cÇ8 wïÞ=bĈÁƒk6º•@úB ¦"6é°¹¹y×®][¶l™3gNèòáÇ¿øâ‹üõ¯­M$8˜ }¡SQG&[ýôÓOûôéÓV‹èÀ÷îÝåã&“‰ö‚I^ee¥*å¨ÊA9(å¤u9j£=6épàÀ'Ož”$)bFüûßÿ~å•WFùø÷ߟ²ÐÀˆØ4–Ž1b̘1«W¯–eYY¾aÆ©S§~ðÁ‹/f㞥›6m:qâDçÎû÷ïßÜÜL)++«««ÓÛ¤´ÙtÑ#vݺuÙÙÙeeeÈ‚À„.Ò![ìg¥`é ÝÒáÚµk-Kaa¡ÅbY½z5ëp2Ó¶mÛŠŠŠ,!4›$È êëëGŽÙz¹Ãá(---**Z¸p!íYɈ¸ŸGŽ9fÌåØVkä±1566Ž;V„¢¢"«Õö×´;žÙŒ;LŒ(Š7ß|óâÅ‹çÍ›çóùîºë®’’³ÙÌ:®L³k×®^½z9e º8©hݺuv»=???lùÂ… ëêên½õÖ^½z½òÊ+×\sßïgafhk?ùå—‹-ºì²ËèÛÌ›Á_3²,3¦´´tÙ²eG]¶lYYYÙ‡~Hÿš–Çs0} ú6ôìÙsÙ²e,bÌmíç`0ºŸ!6›­¬¬LyK³ÝîÝ»ƒi{<§Scéþýûï¸ãåíOûì³Ð%;vì°X,¬â1Žüü|Ÿã8§Óñ¯éx<§S: ƒ3gÎìÛ·/!¤oß¾3gÎdNfz÷Ýw§Nú“Ÿü„îç;uD™ÆçóY­Ö°…Ÿ}öÙÔ©S³²²²²²ÆßÐÐÀ$¶Lq?/[¶lÀ€„¬¬¬)S¦`?',¬ï(¥dÇt<žñD €´ºw"H‡H‡H‡é€ ¤C‚t@Ò!A:HSÏ=÷\UUë(2GGÖ@ÜæÏŸÿÒK/•••± sàê ýôìÙóÞ{ï½à‚ X9´VSS#I’òöÉ'Ÿ¼îºën¸á†ÆÆÆKX¹råõ×_ºÄår‰¢¨f”ƒÆRMÍš5ËëõZ­VúöÉ'Ÿüå/yùå—öÙgãÇÿꫯèr·ÛÝ:½Y­VA"+IÒ’%K>Ìq\ê‚È`¸:H$IÕÕÕq}dÆ o¼ñF}}=ÏótÉÖ­[‡ âõzßÿý¯¿þ:á`V¬XqÅW„]2@ìpu I’âmŸ´ÙlsçÎ?~¼²$++ë‹/¾X·nÝǺ¦ÕjU® cTWW—ŸŸïr¹l6[\‚t ™|°k×®¿ùÍoBþæ7¿2dÈ­·Þú¯ýkæ̙ɔÏqÜÝwßýÐC!$¥êp»Ý¡dZÛ²e˨Q£ÂîíñÿüóÖ+¸ÝnA†>räÈ7&L‡¶oßž|9Fƒt”|ð¿þë¿<O[C BEL‡ô"oÞ¼yß}÷ÛíN2žÂÂÂË/¿<ÉB é qGŽyî¹çúôéãr¹bY?¬'*m)}óÍ7-Ë«¯¾zþüùõë×'Rssó‘#G’,À€Ð³ AüôÓOwîÜI±X,û¶„2›Í¢(†^DºÝîÒÒÒåË—Ó·@`óæÍIFÕÜÜ‹‹‹Ýnwuu5í’*I’Ýnÿ׿þUYY™p×Кšš¹sç&öYƒ3ƒAÖ1ÅÈ‘#ÿùÏîÙ³'…{½^‹Åâ÷û£wp€ˆpu Í›7ûýþ¥K—ª^²(ŠÓ§O_±br!@bpu ©úúú[o½ÕëõÆ20#v‹%77÷õ×_W±LCA:@c)Ò!A: H‡é€ ¤C‚t@Ò!A: H‡„ÿÑ#… â/IEND®B`‚ifeffit-1.2.11d/doc/RefMan/figs/win_welch.ps0000644000175000017500000003610310771740460017551 0ustar segresegre%!PS-Adobe-3.0 EPSF-3.0 %%For: newville %%Title: PGPLOT PostScript plot %%Creator: PGPLOT [PSDRIV 6.6] %%CreationDate: 5-May-2003 18:28 %%BoundingBox: (atend) %%DocumentFonts: (atend) %%LanguageLevel: 1 %%Orientation: Landscape %%Pages: (atend) %%EndComments %%BeginProlog /L {moveto rlineto currentpoint stroke moveto} bind def /C {rlineto currentpoint stroke moveto} bind def /D {moveto 0 0 rlineto currentpoint stroke moveto} bind def /LW {5 mul setlinewidth} bind def /BP {newpath moveto} bind def /LP /rlineto load def /EP {rlineto closepath eofill} bind def /MB {gsave translate MFAC dup scale 1 setlinewidth 2 setlinecap 0 setlinejoin newpath} bind def /ME /grestore load def /CC {0 360 arc stroke} bind def /FC {0 360 arc fill} bind def /G {1024 div setgray} bind def /K {3 -1 roll 1024 div 3 -1 roll 1024 div 3 -1 roll 1024 div setrgbcolor} bind def % Uncomment next line to convert color to grey shades %/K {3 -1 roll 3413 div 3 -1 roll 1739 div 3 -1 roll 9309 div add add setgray} bind def %%EndProlog %%BeginSetup /#copies 1 def %%EndSetup %%Page: 1 1 %%BeginPageSetup /PGPLOT save def 0.072 0.072 scale 5199 1200 translate 90 rotate 1 setlinejoin 1 setlinecap 1 LW 1 %%EndPageSetup %%PageBoundingBox: (atend) 0 0 0 K 1024 1024 1024 K 1 LW 0 0 BP 5999 0 LP 0 3999 LP -5999 0 EP 0 0 0 K 1024 1024 1024 K 2 LW 816 760 896 K 0 2799 600 600 L 0 2799 1800 600 L 0 2799 3000 600 L 0 2799 4199 600 L 0 2799 5399 600 L 4799 0 600 600 L 4799 0 600 1872 L 4799 0 600 3145 L 0 0 0 K 4799 0 600 600 L 0 2799 C -4799 0 C 0 -2799 C 0 69 C 0 34 840 600 L 0 34 1080 600 L 0 34 1320 600 L 0 34 1560 600 L 0 69 1800 600 L 0 34 2040 600 L 0 34 2280 600 L 0 34 2520 600 L 0 34 2760 600 L 0 69 3000 600 L 0 34 3239 600 L 0 34 3479 600 L 0 34 3719 600 L 0 34 3959 600 L 0 69 4199 600 L 0 34 4439 600 L 0 34 4679 600 L 0 34 4919 600 L 0 34 5159 600 L 0 69 5399 600 L 0 69 600 3330 L 0 34 840 3365 L 0 34 1080 3365 L 0 34 1320 3365 L 0 34 1560 3365 L 0 69 1800 3330 L 0 34 2040 3365 L 0 34 2280 3365 L 0 34 2520 3365 L 0 34 2760 3365 L 0 69 3000 3330 L 0 34 3239 3365 L 0 34 3479 3365 L 0 34 3719 3365 L 0 34 3959 3365 L 0 69 4199 3330 L 0 34 4439 3365 L 0 34 4679 3365 L 0 34 4919 3365 L 0 34 5159 3365 L 0 69 5399 3330 L -14 -5 595 517 L -9 -14 C -4 -23 C 0 -14 C 4 -23 C 9 -13 C 14 -5 C 9 0 C 14 5 C 10 13 C 4 23 C 0 14 C -4 23 C -10 14 C -14 5 C -9 0 C -46 0 1823 517 L -5 -42 C 5 5 C 13 4 C 14 0 C 14 -4 C 9 -9 C 5 -14 C 0 -9 C -5 -14 C -9 -9 C -14 -5 C -14 0 C -13 5 C -5 4 C -5 9 C 9 5 2935 498 L 14 14 C 0 -97 C -14 -5 3041 517 L -9 -14 C -5 -23 C 0 -14 C 5 -23 C 9 -13 C 14 -5 C 9 0 C 14 5 C 9 13 C 5 23 C 0 14 C -5 23 C -9 14 C -14 5 C -9 0 C 9 5 4135 498 L 14 14 C 0 -97 C -47 0 4269 517 L -4 -42 C 4 5 C 14 4 C 14 0 C 14 -4 C 9 -9 C 5 -14 C 0 -9 C -5 -14 C -9 -9 C -14 -5 C -14 0 C -14 5 C -4 4 C -5 9 C 0 4 5325 494 L 5 10 C 5 4 C 9 5 C 18 0 C 9 -5 C 5 -4 C 5 -10 C 0 -9 C -5 -9 C -9 -14 C -46 -46 C 64 0 C -14 -5 5441 517 L -9 -14 C -5 -23 C 0 -14 C 5 -23 C 9 -13 C 14 -5 C 9 0 C 14 5 C 9 13 C 5 23 C 0 14 C -5 23 C -9 14 C -14 5 C -9 0 C 69 0 600 600 L 34 0 600 854 L 34 0 600 1109 L 34 0 600 1363 L 34 0 600 1618 L 69 0 600 1872 L 34 0 600 2127 L 34 0 600 2381 L 34 0 600 2636 L 34 0 600 2890 L 69 0 600 3145 L 34 0 600 3399 L 69 0 5330 600 L 34 0 5365 854 L 34 0 5365 1109 L 34 0 5365 1363 L 34 0 5365 1618 L 69 0 5330 1872 L 34 0 5365 2127 L 34 0 5365 2381 L 34 0 5365 2636 L 34 0 5365 2890 L 69 0 5330 3145 L 34 0 5365 3399 L 5 -14 398 595 L 13 -9 C 24 -4 C 13 0 C 23 4 C 14 9 C 5 14 C 0 9 C -5 14 C -14 10 C -23 4 C -13 0 C -24 -4 C -13 -10 C -5 -14 C 0 -9 C 5 -13 398 1798 L 13 -10 C 24 -4 C 13 0 C 23 4 C 14 10 C 5 13 C 0 10 C -5 14 C -14 9 C -23 4 C -13 0 C -24 -4 C -13 -9 C -5 -14 C 0 -10 C 4 -4 486 1872 L 5 4 C -5 5 C -4 -5 C 0 -47 398 1965 L 42 -4 C -5 4 C -5 14 C 0 14 C 5 14 C 9 9 C 14 5 C 9 0 C 14 -5 C 9 -9 C 5 -14 C 0 -14 C -5 -14 C -4 -4 C -10 -5 C -4 9 416 3126 L -14 14 C 97 0 C 0 -97 2767 247 L -47 -47 2814 215 L 32 -37 2786 187 L -9 -9 2952 265 L -9 -14 C -10 -18 C -4 -23 C 0 -19 C 4 -23 C 10 -18 C 9 -14 C 9 -9 C -27 -83 3007 233 L 27 -83 3017 233 L 28 -83 3012 233 L 41 0 2989 178 L 28 0 2970 150 L 27 0 3026 150 L -9 -4 3007 265 L -4 -10 C 0 -9 C 4 -9 C 9 -5 C 10 0 C 9 5 C 4 9 C 0 9 C -4 10 C -9 4 C -10 0 C 62 0 3072 255 L 7 3 3169 283 L 10 10 C 0 -72 C 9 -9 3231 265 L 10 -14 C 9 -18 C 4 -23 C 0 -19 C -4 -23 C -9 -18 C -10 -14 C -9 -9 C 19 -65 1211 3539 L -18 -65 1248 3539 L 19 -65 1248 3539 L -18 -65 1285 3539 L 5 -5 1313 3571 L 4 5 C -4 5 C -5 -5 C 0 -65 1318 3539 L 0 -65 1355 3539 L 13 14 1355 3520 L 10 5 C 13 0 C 10 -5 C 4 -14 C 0 -46 C 0 -97 1493 3571 L -9 9 1493 3525 L -10 5 C -13 0 C -10 -5 C -9 -9 C -4 -14 C 0 -9 C 4 -14 C 9 -9 C 10 -5 C 13 0 C 10 5 C 9 9 C -9 -5 1548 3539 L -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 10 9 C 4 14 C 0 9 C -4 14 C -10 9 C -9 5 C -14 0 C 18 -65 1613 3539 L -19 -65 1650 3539 L 18 -65 1650 3539 L -19 -65 1687 3539 L -9 -9 1751 3589 L -9 -14 C -9 -18 C -5 -23 C 0 -19 C 5 -23 C 9 -18 C 9 -14 C 9 -9 C 0 -97 1784 3571 L -46 -46 1830 3539 L 32 -37 1802 3511 L 0 -65 1862 3539 L 14 14 1862 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 14 14 1913 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 5 -5 1996 3571 L 4 5 C -4 5 C -5 -5 C 0 -65 2001 3539 L 0 -65 2037 3539 L 14 14 2037 3520 L 10 5 C 13 0 C 10 -5 C 4 -14 C 0 -46 C 83 0 2125 3530 L 83 0 2125 3502 L 0 5 2245 3548 L 5 9 C 4 4 C 10 5 C 18 0 C 9 -5 C 5 -4 C 4 -9 C 0 -10 C -4 -9 C -9 -14 C -47 -46 C 65 0 C -5 -5 2347 3479 L -5 5 C 5 4 C 5 -4 C 0 -9 C -5 -10 C -5 -4 C 0 -97 2384 3571 L -46 -46 2430 3539 L 32 -37 2402 3511 L 0 -65 2462 3539 L 14 14 2462 3520 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 14 14 2513 3520 L 9 5 C 14 0 C 9 -5 C 4 -14 C 0 -46 C 0 -65 2651 3539 L -9 9 2651 3525 L -9 5 C -14 0 C -9 -5 C -10 -9 C -4 -14 C 0 -9 C 4 -14 C 10 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 51 -65 2683 3539 L -51 -65 2734 3539 L 84 0 2766 3530 L 84 0 2766 3502 L 9 4 2896 3553 L 14 14 C 0 -97 C -46 -97 3039 3571 L 65 0 2974 3571 L -4 -5 3080 3479 L -5 5 C 5 4 C 4 -4 C 0 -9 C -4 -10 C -5 -4 C 0 -97 3168 3571 L -9 9 3168 3525 L -10 5 C -13 0 C -10 -5 C -9 -9 C -4 -14 C 0 -9 C 4 -14 C 9 -9 C 10 -5 C 13 0 C 10 5 C 9 9 C 0 -97 3205 3571 L -46 -46 3251 3539 L 33 -37 3223 3511 L 83 0 3283 3530 L 83 0 3283 3502 L 0 5 3403 3548 L 5 9 C 4 4 C 10 5 C 18 0 C 9 -5 C 5 -4 C 5 -9 C 0 -10 C -5 -9 C -9 -14 C -46 -46 C 64 0 C -4 -4 3500 3483 L 4 -5 C 5 5 C -5 4 C -5 -5 3551 3479 L -4 5 C 4 4 C 5 -4 C 0 -9 C -5 -10 C -4 -4 C 0 -97 3588 3571 L -46 -46 3634 3539 L 33 -37 3606 3511 L 18 -65 3662 3539 L -19 -65 3699 3539 L 18 -65 3699 3539 L -18 -65 3735 3539 L 5 -5 3763 3571 L 4 5 C -4 5 C -5 -5 C 0 -65 3768 3539 L 0 -65 3805 3539 L 14 14 3805 3520 L 9 5 C 14 0 C 9 -5 C 4 -14 C 0 -46 C 0 -97 3943 3571 L -9 9 3943 3525 L -9 5 C -14 0 C -9 -5 C -10 -9 C -4 -14 C 0 -9 C 4 -14 C 10 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C -9 -5 3998 3539 L -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 10 5 C 9 9 C 4 14 C 0 9 C -4 14 C -9 9 C -10 5 C -14 0 C 19 -65 4063 3539 L -18 -65 4100 3539 L 18 -65 4100 3539 L -19 -65 4137 3539 L 83 0 4169 3530 L 83 0 4169 3502 L 0 -32 4289 3571 L 19 -65 4321 3539 L -18 -65 4358 3539 L 19 -65 4358 3539 L -18 -65 4395 3539 L 55 0 4423 3511 L 0 9 C -4 10 C -5 4 C -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 0 -97 4511 3571 L -9 9 4598 3525 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 0 -97 4631 3571 L 13 14 4631 3520 L 10 5 C 14 0 C 9 -5 C 4 -14 C 0 -46 C 0 -32 4718 3571 L 9 -9 4751 3589 L 9 -14 C 9 -18 C 5 -23 C 0 -19 C -5 -23 C -9 -18 C -9 -14 C -9 -9 C 0 0 0 K 12 0 600 600 L 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 126 C 12 122 C 12 119 C 12 116 C 12 113 C 12 110 C 12 107 C 12 103 C 12 100 C 12 97 C 12 94 C 12 91 C 12 87 C 12 84 C 12 82 C 12 78 C 12 74 C 12 72 C 12 68 C 12 65 C 12 62 C 12 59 C 12 56 C 12 52 C 12 50 C 12 46 C 12 43 C 12 40 C 12 36 C 12 34 C 12 30 C 12 27 C 12 24 C 12 20 C 12 18 C 12 14 C 12 11 C 12 8 C 12 5 C 12 2 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 11 0 C 12 0 3011 3145 L 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 -2 C 12 -5 C 12 -8 C 12 -11 C 12 -14 C 12 -18 C 12 -20 C 12 -24 C 12 -27 C 12 -30 C 12 -34 C 12 -36 C 12 -40 C 12 -43 C 12 -46 C 12 -50 C 12 -52 C 12 -56 C 12 -59 C 12 -62 C 12 -65 C 12 -68 C 12 -72 C 12 -74 C 12 -78 C 12 -82 C 12 -84 C 12 -87 C 12 -91 C 12 -94 C 12 -97 C 12 -100 C 12 -103 C 12 -107 C 12 -110 C 12 -113 C 12 -116 C 12 -119 C 12 -122 C 12 -126 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 12 0 C 0 0 0 K 0 56 840 600 L 0 57 840 713 L 0 28 840 826 L 0 29 C 0 57 840 939 L 0 57 840 1052 L 0 57 840 1165 L 0 56 840 1279 L 0 56 840 1392 L 0 56 840 1505 L 0 56 840 1618 L 0 56 840 1731 L 0 28 840 1844 L 0 29 C 0 57 840 1957 L 0 57 840 2070 L 0 57 840 2183 L 0 57 840 2296 L 0 56 840 2410 L 0 56 840 2523 L 0 56 840 2636 L 0 56 840 2749 L 0 28 840 2862 L 0 29 C 0 57 840 2975 L 0 57 840 3088 L 0 0 0 K 0 56 1080 600 L 0 14 1080 713 L 0 43 C 0 28 1080 826 L 0 29 C 0 43 1080 939 L 0 14 C 0 57 1080 1052 L 0 57 1080 1165 L 0 56 1080 1279 L 0 56 1080 1392 L 0 56 1080 1505 L 0 56 1080 1618 L 0 14 1080 1731 L 0 42 C 0 28 1080 1844 L 0 0 0 K 0 56 1320 600 L 0 57 1320 713 L 0 28 1320 826 L 0 29 C 0 57 1320 939 L 0 57 1320 1052 L 0 57 1320 1165 L 0 56 1320 1279 L 0 56 1320 1392 L 0 56 1320 1505 L 0 56 1320 1618 L 0 56 1320 1731 L 0 28 1320 1844 L 0 29 C 0 57 1320 1957 L 0 57 1320 2070 L 0 57 1320 2183 L 0 57 1320 2296 L 0 56 1320 2410 L 0 56 1320 2523 L 0 56 1320 2636 L 0 56 1320 2749 L 0 28 1320 2862 L 0 29 C 0 57 1320 2975 L 0 57 1320 3088 L 0 0 0 K 0 56 4439 600 L 0 57 4439 713 L 0 28 4439 826 L 0 29 C 0 57 4439 939 L 0 57 4439 1052 L 0 57 4439 1165 L 0 56 4439 1279 L 0 56 4439 1392 L 0 56 4439 1505 L 0 56 4439 1618 L 0 56 4439 1731 L 0 28 4439 1844 L 0 29 C 0 57 4439 1957 L 0 57 4439 2070 L 0 57 4439 2183 L 0 57 4439 2296 L 0 56 4439 2410 L 0 56 4439 2523 L 0 56 4439 2636 L 0 56 4439 2749 L 0 28 4439 2862 L 0 29 C 0 57 4439 2975 L 0 57 4439 3088 L 0 0 0 K 0 56 4679 600 L 0 14 4679 713 L 0 43 C 0 28 4679 826 L 0 29 C 0 43 4679 939 L 0 14 C 0 57 4679 1052 L 0 57 4679 1165 L 0 56 4679 1279 L 0 56 4679 1392 L 0 56 4679 1505 L 0 56 4679 1618 L 0 14 4679 1731 L 0 42 C 0 28 4679 1844 L 0 0 0 K 0 56 4919 600 L 0 57 4919 713 L 0 28 4919 826 L 0 29 C 0 57 4919 939 L 0 57 4919 1052 L 0 57 4919 1165 L 0 56 4919 1279 L 0 56 4919 1392 L 0 56 4919 1505 L 0 56 4919 1618 L 0 56 4919 1731 L 0 28 4919 1844 L 0 29 C 0 57 4919 1957 L 0 57 4919 2070 L 0 57 4919 2183 L 0 57 4919 2296 L 0 56 4919 2410 L 0 56 4919 2523 L 0 56 4919 2636 L 0 56 4919 2749 L 0 28 4919 2862 L 0 29 C 0 57 4919 2975 L 0 57 4919 3088 L 0 0 0 K 0 -97 1146 2020 L -46 -46 1192 1988 L 32 -37 1165 1960 L 0 -65 1225 1988 L 14 14 1225 1969 L 9 5 C 14 0 C 9 -5 C 4 -14 C 0 -46 C 14 14 1275 1969 L 9 5 C 14 0 C 10 -5 C 4 -14 C 0 -46 C 5 -5 1358 2020 L 5 5 C -5 5 C -5 -5 C 0 -65 1363 1988 L 0 -65 1400 1988 L 14 14 1400 1969 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 83 0 1488 1979 L 83 0 1488 1951 L 0 5 1608 1997 L 4 9 C 5 4 C 9 5 C 19 0 C 9 -5 C 4 -4 C 5 -9 C 0 -10 C -5 -9 C -9 -14 C -46 -46 C 65 0 C -5 -4 1705 1932 L 5 -5 C 4 5 C -4 4 C -14 -5 1769 2020 L -9 -13 C -5 -23 C 0 -14 C 5 -23 C 9 -14 C 14 -5 C 9 0 C 14 5 C 9 14 C 5 23 C 0 14 C -5 23 C -9 13 C -14 5 C -9 0 C 0 -97 4578 2020 L -46 -46 4624 1988 L 32 -37 4596 1960 L 0 -65 4656 1988 L 14 14 4656 1969 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 14 14 4707 1969 L 9 5 C 14 0 C 9 -5 C 5 -14 C 0 -46 C 0 -65 4845 1988 L -9 9 4845 1974 L -9 5 C -14 0 C -9 -5 C -9 -9 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -5 C 14 0 C 9 5 C 9 9 C 50 -65 4878 1988 L -50 -65 4928 1988 L 83 0 4961 1979 L 83 0 4961 1951 L 9 4 5090 2002 L 14 14 C 0 -97 C -46 -97 5233 2020 L 65 0 5168 2020 L -5 -4 5270 1932 L 5 -5 C 4 5 C -4 4 C -13 -5 5334 2020 L -10 -13 C -4 -23 C 0 -14 C 4 -23 C 10 -14 C 13 -5 C 10 0 C 14 5 C 9 14 C 4 23 C 0 14 C -4 23 C -9 13 C -14 5 C -10 0 C 0 -96 909 3292 L -9 10 909 3246 L -9 4 C -14 0 C -9 -4 C -10 -10 C -4 -14 C 0 -9 C 4 -14 C 10 -9 C 9 -4 C 14 0 C 9 4 C 9 9 C 0 -96 946 3292 L -46 -46 992 3260 L 33 -36 964 3232 L 9 5 1034 3274 L 14 13 C 0 -96 C 83 0 1117 3251 L 83 0 1117 3223 L 0 5 1237 3269 L 4 9 C 5 5 C 9 4 C 19 0 C 9 -4 C 4 -5 C 5 -9 C 0 -9 C -5 -9 C -9 -14 C -46 -46 C 65 0 C -5 -5 1334 3205 L 5 -4 C 4 4 C -4 5 C -14 -4 1398 3292 L -9 -14 C -5 -23 C 0 -14 C 5 -23 C 9 -14 C 14 -4 C 9 0 C 14 4 C 9 14 C 5 23 C 0 14 C -5 23 C -9 14 C -14 4 C -9 0 C 0 -96 4509 3292 L -10 10 4509 3246 L -9 4 C -14 0 C -9 -4 C -9 -10 C -5 -14 C 0 -9 C 5 -14 C 9 -9 C 9 -4 C 14 0 C 9 4 C 10 9 C 0 -96 4545 3292 L -47 -46 4592 3260 L 32 -36 4564 3232 L 0 5 4624 3269 L 4 9 C 5 5 C 9 4 C 19 0 C 9 -4 C 5 -5 C 4 -9 C 0 -9 C -4 -9 C -10 -14 C -46 -46 C 65 0 C 83 0 4716 3251 L 83 0 4716 3223 L 0 5 4836 3269 L 5 9 C 4 5 C 10 4 C 18 0 C 9 -4 C 5 -5 C 4 -9 C 0 -9 C -4 -9 C -9 -14 C -46 -46 C 64 0 C -5 -5 4933 3205 L 5 -4 C 5 4 C -5 5 C -14 -4 4998 3292 L -9 -14 C -5 -23 C 0 -14 C 5 -23 C 9 -14 C 14 -4 C 9 0 C 14 4 C 9 14 C 5 23 C 0 14 C -5 23 C -9 14 C -14 4 C -9 0 C 840 3094 BP 145 -39 LP 0 39 LP 0 39 EP 56 0 985 3094 L 1320 3094 BP -145 39 LP 0 -39 LP 0 -39 EP -57 0 1157 3094 L 4439 3094 BP 145 -39 LP 0 39 LP 0 39 EP 57 0 4620 3094 L 4919 3094 BP -145 39 LP 0 -39 LP 0 -39 EP -41 0 4720 3094 L 0 0 0 K PGPLOT restore showpage %%PageTrailer %%PageBoundingBox: 86 86 375 519 %%Trailer %%BoundingBox: 86 86 375 519 %%DocumentFonts: %%Pages: 1 %%EOF ifeffit-1.2.11d/doc/RefMan/figs/plot_fonts.png0000644000175000017500000000726610771740460020133 0ustar segresegre‰PNG  IHDRDVu8PLTEÿÿÿ¥ÙŸÝkIDATxœíÜßGð‹Žêú„ßÈU âh©P[µç}àGxBˆF(¨}ã(÷pmýc® j@½ÇVM[ ¡ÒÇ ¡Uwö\‰H@kD%BTÎs!R)äæ‚•ofg¾|¿³k{w½kû®®”€WÊÝîÞìdz³³3ßg‰Áç^—ÈY ÷;âÍa_(¢Ž‹àá’À•¾çv‡eÜwvñ—q;ì2þXz”ÖJxíÜ-eÿIBTÇíîI\@{"4¾±JkÒ1”´“@®â~¥Ì«õŸtˆíCT“ˆ$äÅ `^d‘¿Ã¦ýÑ·…Û7Ž_Á$åߺ.µ¬z=€JàFÈà#Ñ|­±œE>©<‡+oÞi?†%°wGaN¬üM=ÊÉÊûÄŸÁ6Ø·ôµ€ÃGðÜ»¼™E:­ô¡ÖëY»‡Èn šõaÁBçvçDÏ÷®©&\²êls -LYn¨ÜØj(ʉ֪´VþÑ—Yä cîÐVq?SHeˆ`à‹` b í¹E[ÜR?ÄÓH“¨©užÚ!žu]È ÈZyŸú”ô5Úé™Äâ?uwe»¤ÊÊæ×+òùly·´<@P4Ÿ ©12{+,›¿2&:CøÒƒJMù[5}£ƒÈ‹=)ˆ} · æ&´Ì~·Y¢•àp*À€áiQÝ~£Öóˆ¥ÂÈ,~|€‡ï#:B0fY 4FçñáqÆÿ5^ãæÖ7žxàÕëÿ|ÒˆŠMVu€9©RK ý%B¾ú)^ן¼þè[ïþñÚ[DÆ9xÚ!t:~˜@\Šƒ§.€¨Ô/®¿—üÍOßÈ ".¬vT&«±DwÖ¿Jõ‰³pÝyã±xáÒáPù¾Âœô{þÇ äök?{º•jå{òÛ[o­=ƒ°ÁzR©¬ ò C–{þ¥Tž¿»°Ò8ý ë{—Ôƒ£«ãÑ$êÒþ¥èâ•/•àÒ9xoÕsX0Š¾áVð…É?œ¨=ñ3Û'Bä<Î=ƒˆy Íy Ùe,ÙoËÛÍ“SR ÔN=âz\ý µn¯~8µ?f˜ú 5‘—]Š1ÄÅ ³ Û´¾—“AÌð Tê€*!Rð™ìÏeòïÛB¤ÿÂ^ùW—)k¿èsú»†Ó›ˆìÐiT0Öƒë.DK"nöÚë]0ªmC¿Ùm`Ý÷b} n~ö<ô\Áø„Ý,âË=½‡ñC×jÅx¨Õ—c”‰/øK`^®ù6ƒƒ,"ùt€x¸£®…Cp;Fì]0>æãFBxF&C¹ÿÐòU0ûÛþ ¿’FtŒxºØ}"‚Ù©Ž!ÆJiàO˜< à"­ªR‚W ‘¾‡È¡næ!{Ħ#.'*Î "~ÁPˤ! ÝÒR"®;w‘TY°L.²,U©Ú‚¼2¡ä-D$]â‡ðÚv}aÝ3½w}B6¨²ü-Ù­GíÉyÙ*k–Ëü2!TÙèžÃÊö0Óe:“­¸²‰LN²‹Å°)^•jTÅõðA…²1 Á¢LÜ=ÃU= €e²á*lcS·`b_œ\Ì€pX‰×0ˆ2ˆôoY ä~C¼y ì^CMVúÁì˜ÈgÃ]^*Aö)k"2êYùÉ‘Q?D¤¤·¦ mì'´‚ƒ2¦%\pOÁõ=kÙ/Ã’Ö»ÔNs²‰Ý v“·hàɱ»¨)XRÈàƒ ‘Þ ÈÔç´‚vál¨Èùâo»§åÑc‚ðÔ&÷ƉeÆt&!6ÑìðX4rÄ$«ˆZÊc!É=G'Eús¥¿\½¬!‚Ä ÷¾\þvèÕÊÓ™xèCµ_Rg´x )ëøü žÜ¹#Wµ¨JoVDvMOT”¬`ã.k¥ÛWd«'JæEň ¥QN°Ï TKK¶!«Ó"†ÈÚî*§UuBTmúÙ 6lÐ4lˆ–é/DL|:²9{¹kÜéä…W¹ÅxÄhNˆµ!"*X6ë½ !AƒÈ; ž4ˆü0h¾Ø™ñðçùÐåÄz Úghˆå !gq7kNò–‚XäxÈÔadöÙyêÇtäËY ÷âÍa‰-5¹`™|DNlŠlv0"‹D¸Ü\€˜þ²˜¼à)/BtÁÏðtÜ/>ѳ"“âDòÛÌ!Âo·¶¼ÉˆšŽìü¸3iOG„XíIörAM ¥¡úå)ˆä-%/¨ ´Ô§çd.ˆŠ¯È°³"“ ÖV§#ZLE.NEŒ\‚¬W‹/F)'›•ÜT.Á/uyJµ·t]DÑ0 !ÔLLAÜÝ3©=1Ã7´ŸÑÓ% ÉX›GMÃrÿt/u ä K©ÍæDÌáÄ; RÎÏ ¤Û®Äý ïšhòÝÇ©Ti$ý¢:½¸æJãr³œnœÒHmEZƒþ Ä'±lhbˆ¢^*¹HéŒÖ ;hR ½×h¤^£Áü©ˆ!DØ(Ý1„5‘ G³USÈ6ÐC¶¥ùÂDˆÀ–Œ%Æ8½h(C¿œ´Fˆ4í¨˜ 3©m ä±m !Jc¾qW™ï&ÿB¾ ™¾côjƲjz6tx{ø!¢ †Ÿ¥mgbŽtX"DkÁ Q‚'sË‘…¯›@é<ºq¸4†t¡ê¿ia%1ŠsX.'2´±îѤŸ‰æDQÁ%#D¥Ûˆp¥éš#¬k„X)eƒn#DXFŒ6½ H ëÑ%†5¥j˜_7“HˆW˜.±&D¤/Fä"BœQê¼Ë:UO4sˆÙßG9‘†*%Ý;xGGw I†+ˆp÷6-Jž¨ Fô±)DEˆ„D±ƒJGÉáQÉ—‡6s‘uú‘iÙ’Í£àÒµl ²/¿È–û]8€cÝ°LnÛy¿w£ d®ÈåÑjèy{´4OŠ´F«ZœIVù âå¥Ï}®"^Q£”\¨aJ%ãî'MÖ£Õ† iÓIéyb‡ˆm÷makä¦Ç’‡š<èeGî®ée~„àNú¾½"¡PCÒ=nä#”G9@ !Ñ”RÌ<}_„(‡˜TFSHc s¹¢|¸ê΢!§¾›O[víp‚ ÙÆZ èŒE /!K„hDšpXyH[)iµ=Í9ð¶¥ôÛ’²`•=í ci4‘ôÅ91¾«’·h:(ÛV„„¸Ó!˜£[–Æ ¬(B¶µ’÷ Ñl;PDé,›=+1Ù(g="¢‘„\$„×qk©D;"@·¬˜ˆ¼‡…²˜žs½çSšr‚ÑF„4A×-'$* ‘ב4/— nŠ,ö§9w=ƒ…ÚebñLÑx:|›záëáfüº2 +í^¨b Ý&Ä]B,}ÝŸ¬«–®…îHªï3ØñÍ^bª'p+ßûÔõ¶®Äõ$°#­²QÎ(ȵ%&N›Û<ºwùÂ}ɨýxTíá(ªöô£üjíî¡©êÀ†Í\Š`ÃÑ‘d°°¢öŸ8Mð‰SMA Z6zì,ã“öS …ucG¼éšÇ±½?»Ñò!n¦gÿs"ŸQÒ^Núã îõsú®ˆ73Ý49ZŸ ‘ÜMÃ0ç g¢AA|2¾!âÃä4“„¾)ËãÏ¿4ƒ3±÷à›3|I„‰‚ÏiAîèÔÓ=šµô„ÊË=2DÚîÿ„á7Ø9•S²¹c7)>«Fÿ9ÇpÙõ,\ÙÏ™"˜bô6Â!·( Y„>æjÞ5!û;%Ιûˆð=êæêv9‰,Ñ$›OòFÌ/‰žÂ¾œI!¼¡aªä#-}µ~7ÙÆž )0'¢‹A‰±9ÈöDDòFƒ.l#¢mDŒC>œˆà¹lIΘrÈfƒÂ£ê8rj"%o€Ccô ¢VòêDH}"¢Wª]§ßùHT&µ)ÈSR·ª`$^ÍxËÐí%ú/ˆl˜_O¼8·XOôË?]6XOø]à;§—¼nªžÐ¸tí oRe£¸Ä@t'òøMŽ~`¹³u""ž«Æ¢>IžkA£ŽžØ(¦þ'¾Á%2É;¹ÓlFÈíñ?κܟ}ñùF¼y l,²@æ„Ìcù/_<çZÏI `IEND®B`‚ifeffit-1.2.11d/doc/RefMan/figs/plot_points.ps0000644000175000017500000004074410771740460020152 0ustar segresegre%!PS-Adobe-3.0 EPSF-3.0 %%For: newville %%Title: PGPLOT PostScript plot %%Creator: PGPLOT [PSDRIV 6.6] %%CreationDate: 31-Mar-2002 23:01 %%BoundingBox: (atend) %%DocumentFonts: (atend) %%LanguageLevel: 1 %%Orientation: Landscape %%Pages: (atend) %%EndComments %%BeginProlog /L {moveto rlineto currentpoint stroke moveto} bind def /C {rlineto currentpoint stroke moveto} bind def /D {moveto 0 0 rlineto currentpoint stroke moveto} bind def /LW {5 mul setlinewidth} bind def /BP {newpath moveto} bind def /LP /rlineto load def /EP {rlineto closepath eofill} bind def /MB {gsave translate MFAC dup scale 1 setlinewidth 2 setlinecap 0 setlinejoin newpath} bind def /ME /grestore load def /CC {0 360 arc stroke} bind def /FC {0 360 arc fill} bind def /G {1024 div setgray} bind def /K {3 -1 roll 1024 div 3 -1 roll 1024 div 3 -1 roll 1024 div setrgbcolor} bind def % Uncomment next line to convert color to grey shades %/K {3 -1 roll 3413 div 3 -1 roll 1739 div 3 -1 roll 9309 div add add setgray} bind def %%EndProlog %%BeginSetup /#copies 1 def %%EndSetup %%Page: 1 1 %%BeginPageSetup /PGPLOT save def 0.072 0.072 scale 4849 250 translate 90 rotate 1 setlinejoin 1 setlinecap 1 LW 1 %%EndPageSetup %%PageBoundingBox: (atend) 113 G 1024 G 1 LW 0 0 BP 7499 0 LP 0 4499 LP -7499 0 EP 113 G 1024 G 2 LW 0 G 7499 0 0 0 L 0 4499 C -7499 0 C 0 -4499 C 0 1 C 0 0 75 0 L 0 0 150 0 L 0 0 225 0 L 0 0 300 0 L 0 1 375 0 L 0 0 450 0 L 0 0 525 0 L 0 0 600 0 L 0 0 675 0 L 0 1 750 0 L 0 0 825 0 L 0 0 900 0 L 0 0 975 0 L 0 0 1050 0 L 0 1 1125 0 L 0 0 1200 0 L 0 0 1275 0 L 0 0 1350 0 L 0 0 1425 0 L 0 1 1500 0 L 0 0 1575 0 L 0 0 1650 0 L 0 0 1725 0 L 0 0 1800 0 L 0 1 1875 0 L 0 0 1950 0 L 0 0 2025 0 L 0 0 2100 0 L 0 0 2175 0 L 0 1 2250 0 L 0 0 2325 0 L 0 0 2400 0 L 0 0 2475 0 L 0 0 2550 0 L 0 1 2625 0 L 0 0 2700 0 L 0 0 2775 0 L 0 0 2850 0 L 0 0 2925 0 L 0 1 3000 0 L 0 0 3075 0 L 0 0 3150 0 L 0 0 3225 0 L 0 0 3300 0 L 0 1 3375 0 L 0 0 3450 0 L 0 0 3525 0 L 0 0 3600 0 L 0 0 3675 0 L 0 1 3750 0 L 0 0 3824 0 L 0 0 3899 0 L 0 0 3974 0 L 0 0 4049 0 L 0 1 4124 0 L 0 0 4199 0 L 0 0 4274 0 L 0 0 4349 0 L 0 0 4424 0 L 0 1 4499 0 L 0 0 4574 0 L 0 0 4649 0 L 0 0 4724 0 L 0 0 4799 0 L 0 1 4874 0 L 0 0 4949 0 L 0 0 5024 0 L 0 0 5099 0 L 0 0 5174 0 L 0 1 5249 0 L 0 0 5324 0 L 0 0 5399 0 L 0 0 5474 0 L 0 0 5549 0 L 0 1 5624 0 L 0 0 5699 0 L 0 0 5774 0 L 0 0 5849 0 L 0 0 5924 0 L 0 1 5999 0 L 0 0 6074 0 L 0 0 6149 0 L 0 0 6224 0 L 0 0 6299 0 L 0 1 6374 0 L 0 0 6449 0 L 0 0 6524 0 L 0 0 6599 0 L 0 0 6674 0 L 0 1 6749 0 L 0 0 6824 0 L 0 0 6899 0 L 0 0 6974 0 L 0 0 7049 0 L 0 1 7124 0 L 0 0 7199 0 L 0 0 7274 0 L 0 0 7349 0 L 0 0 7424 0 L 0 1 7499 0 L 0 1 0 4498 L 0 0 75 4499 L 0 0 150 4499 L 0 0 225 4499 L 0 0 300 4499 L 0 1 375 4498 L 0 0 450 4499 L 0 0 525 4499 L 0 0 600 4499 L 0 0 675 4499 L 0 1 750 4498 L 0 0 825 4499 L 0 0 900 4499 L 0 0 975 4499 L 0 0 1050 4499 L 0 1 1125 4498 L 0 0 1200 4499 L 0 0 1275 4499 L 0 0 1350 4499 L 0 0 1425 4499 L 0 1 1500 4498 L 0 0 1575 4499 L 0 0 1650 4499 L 0 0 1725 4499 L 0 0 1800 4499 L 0 1 1875 4498 L 0 0 1950 4499 L 0 0 2025 4499 L 0 0 2100 4499 L 0 0 2175 4499 L 0 1 2250 4498 L 0 0 2325 4499 L 0 0 2400 4499 L 0 0 2475 4499 L 0 0 2550 4499 L 0 1 2625 4498 L 0 0 2700 4499 L 0 0 2775 4499 L 0 0 2850 4499 L 0 0 2925 4499 L 0 1 3000 4498 L 0 0 3075 4499 L 0 0 3150 4499 L 0 0 3225 4499 L 0 0 3300 4499 L 0 1 3375 4498 L 0 0 3450 4499 L 0 0 3525 4499 L 0 0 3600 4499 L 0 0 3675 4499 L 0 1 3750 4498 L 0 0 3824 4499 L 0 0 3899 4499 L 0 0 3974 4499 L 0 0 4049 4499 L 0 1 4124 4498 L 0 0 4199 4499 L 0 0 4274 4499 L 0 0 4349 4499 L 0 0 4424 4499 L 0 1 4499 4498 L 0 0 4574 4499 L 0 0 4649 4499 L 0 0 4724 4499 L 0 0 4799 4499 L 0 1 4874 4498 L 0 0 4949 4499 L 0 0 5024 4499 L 0 0 5099 4499 L 0 0 5174 4499 L 0 1 5249 4498 L 0 0 5324 4499 L 0 0 5399 4499 L 0 0 5474 4499 L 0 0 5549 4499 L 0 1 5624 4498 L 0 0 5699 4499 L 0 0 5774 4499 L 0 0 5849 4499 L 0 0 5924 4499 L 0 1 5999 4498 L 0 0 6074 4499 L 0 0 6149 4499 L 0 0 6224 4499 L 0 0 6299 4499 L 0 1 6374 4498 L 0 0 6449 4499 L 0 0 6524 4499 L 0 0 6599 4499 L 0 0 6674 4499 L 0 1 6749 4498 L 0 0 6824 4499 L 0 0 6899 4499 L 0 0 6974 4499 L 0 0 7049 4499 L 0 1 7124 4498 L 0 0 7199 4499 L 0 0 7274 4499 L 0 0 7349 4499 L 0 0 7424 4499 L 0 1 7499 4498 L 0 0 0 0 L 0 0 375 0 L 0 0 750 0 L 0 0 1125 0 L 0 0 1500 0 L 0 0 1875 0 L 0 0 2250 0 L 0 0 2625 0 L 0 0 3000 0 L 0 0 3375 0 L 0 0 3749 0 L 1 0 C 0 0 4124 0 L 0 0 4499 0 L 0 0 4874 0 L 0 0 5249 0 L 0 0 5624 0 L 0 0 5999 0 L 0 0 6374 0 L 0 0 6749 0 L 0 0 7124 0 L 1 0 0 0 L 0 0 0 180 L 1 0 0 360 L 0 0 0 540 L 1 0 0 720 L 0 0 0 900 L 1 0 0 1080 L 0 0 0 1260 L 1 0 0 1440 L 0 0 0 1620 L 1 0 0 1800 L 0 0 0 1980 L 1 0 0 2160 L 0 0 0 2339 L 1 0 0 2519 L 0 0 0 2699 L 1 0 0 2879 L 0 0 0 3059 L 1 0 0 3239 L 0 0 0 3419 L 1 0 0 3599 L 0 0 0 3779 L 1 0 0 3959 L 0 0 0 4139 L 1 0 0 4319 L 1 0 7498 0 L 0 0 7499 180 L 1 0 7498 360 L 0 0 7499 540 L 1 0 7498 720 L 0 0 7499 900 L 1 0 7498 1080 L 0 0 7499 1260 L 1 0 7498 1440 L 0 0 7499 1620 L 1 0 7498 1800 L 0 0 7499 1980 L 1 0 7498 2160 L 0 0 7499 2339 L 1 0 7498 2519 L 0 0 7499 2699 L 1 0 7498 2879 L 0 0 7499 3059 L 1 0 7498 3239 L 0 0 7499 3419 L 1 0 7498 3599 L 0 0 7499 3779 L 1 0 7498 3959 L 0 0 7499 4139 L 1 0 7498 4319 L 0 0 0 0 L 0 0 0 360 L 0 0 0 720 L 0 0 0 1080 L 0 0 0 1440 L 0 0 0 1800 L 0 0 0 2159 L 0 0 0 2160 L 0 0 0 2519 L 0 0 0 2879 L 0 0 0 3239 L 0 0 0 3599 L 0 0 0 3959 L 0 0 0 4319 L 113 G 0 G 1875 0 0 3599 L 1875 0 C 1874 0 C 1875 0 C 0 G 1875 0 0 2879 L 1875 0 C 1874 0 C 1875 0 C 0 G 1875 0 0 2160 L 1875 0 C 1874 0 C 1875 0 C 0 G 1875 0 0 1440 L 1875 0 C 1874 0 C 1875 0 C 0 G 1875 0 0 720 L 1875 0 C 1874 0 C 1875 0 C 0 G 0 900 5999 0 L 0 900 C 0 899 C 0 900 C 0 900 C 0 G 0 900 4499 0 L 0 900 C 0 899 C 0 900 C 0 900 C 0 G 0 900 3000 0 L 0 900 C 0 899 C 0 900 C 0 900 C 0 G 0 900 1500 0 L 0 900 C 0 899 C 0 900 C 0 900 C 0 G /M0 {MB -6 -6 moveto 0 12 rlineto 12 0 rlineto 0 -12 rlineto closepath stroke ME} bind def /MFAC 7.787 def 375 3959 M0 375 3959 M0 0 G /M1 {MB 0 0 1 FC ME} bind def 1875 3959 M1 1875 3959 M1 0 G /M2 {MB 0 7 moveto 0 -14 rlineto -7 0 moveto 14 0 rlineto stroke ME} bind def 3375 3959 M2 3375 3959 M2 0 G /M3 {MB 0 6 moveto 0 -6 lineto -5 3 moveto 5 -3 lineto 5 3 moveto -5 -3 lineto stroke ME} bind def 4874 3959 M3 4874 3959 M3 0 G /M4 {MB 0 0 7 CC ME} bind def 6374 3959 M4 6374 3959 M4 0 G /M5 {MB -5 -5 moveto 10 10 rlineto -5 5 moveto 10 -10 rlineto stroke ME} bind def 375 3239 M5 375 3239 M5 0 G /M6 {MB -6 -6 moveto 0 12 rlineto 12 0 rlineto 0 -12 rlineto closepath stroke ME} bind def 1875 3239 M6 1875 3239 M6 0 G /M7 {MB 0 8 moveto -7 -4 lineto 7 -4 lineto closepath stroke ME} bind def 3375 3239 M7 3375 3239 M7 0 G /M8 {MB 0 7 moveto 0 -14 rlineto -7 0 moveto 14 0 rlineto stroke 0 0 7 CC ME} bind def 4874 3239 M8 4874 3239 M8 0 G /M9 {MB 0 0 1 FC 0 0 7 CC ME} bind def 6374 3239 M9 6374 3239 M9 0 G /M10 {MB -9 9 moveto -8 7 lineto -7 3 lineto -7 -3 lineto -8 -7 lineto -9 -9 lineto -7 -8 lineto -3 -7 lineto 3 -7 lineto 7 -8 lineto 9 -9 lineto 8 -7 lineto 7 -3 lineto 7 3 lineto 8 7 lineto 9 9 lineto 7 8 lineto 3 7 lineto -3 7 lineto -7 8 lineto closepath stroke ME} bind def 375 2519 M10 375 2519 M10 0 G /M11 {MB 0 10 moveto -6 0 lineto 0 -10 lineto 6 0 lineto closepath stroke ME} bind def 1875 2519 M11 1875 2519 M11 0 G /M12 {MB 0 9 moveto -2 3 lineto -8 3 lineto -3 -1 lineto -5 -7 lineto 0 -3 lineto 5 -7 lineto 3 -1 lineto 8 3 lineto 2 3 lineto closepath stroke ME} bind def 3375 2519 M12 3375 2519 M12 0 G /M13 {MB 0 8 moveto -7 -4 lineto 7 -4 lineto closepath fill ME} bind def 4874 2519 M13 4874 2519 M13 0 G /M14 {MB -2 6 moveto -2 2 lineto -6 2 lineto -6 -2 lineto -2 -2 lineto -2 -6 lineto 2 -6 lineto 2 -2 lineto 6 -2 lineto 6 2 lineto 2 2 lineto 2 6 lineto closepath stroke ME} bind def 6374 2519 M14 6374 2519 M14 0 G /M15 {MB 0 8 moveto -7 -4 lineto 7 -4 lineto closepath 0 -8 moveto 7 4 lineto -7 4 lineto closepath stroke ME} bind def 375 1800 M15 375 1800 M15 0 G /M16 {MB -4 -4 moveto 0 8 rlineto 8 0 rlineto 0 -8 rlineto closepath fill ME} bind def 1875 1800 M16 1875 1800 M16 0 G /M17 {MB 0 0 4.5 FC ME} bind def 3375 1800 M17 3375 1800 M17 0 G /M18 {MB 0 9 moveto -2 3 lineto -8 3 lineto -3 -1 lineto -5 -7 lineto 0 -3 lineto 5 -7 lineto 3 -1 lineto 8 3 lineto 2 3 lineto closepath fill ME} bind def 4874 1800 M18 4874 1800 M18 0 G /M19 {MB -12 -12 moveto 0 24 rlineto 24 0 rlineto 0 -24 rlineto closepath stroke ME} bind def 6374 1800 M19 6374 1800 M19 0 G /M20 {MB 0 0 2 CC ME} bind def 375 1080 M20 375 1080 M20 0 G /M21 {MB 0 0 4 CC ME} bind def 1875 1080 M21 1875 1080 M21 0 G /M22 {MB 0 0 5 CC ME} bind def 3375 1080 M22 3375 1080 M22 0 G /M23 {MB 0 0 7 CC ME} bind def 4874 1080 M23 4874 1080 M23 0 G /M24 {MB 0 0 11 CC ME} bind def 6374 1080 M24 6374 1080 M24 0 G /M25 {MB 0 0 17 CC ME} bind def 375 360 M25 375 360 M25 0 G /M26 {MB 0 0 22 CC ME} bind def 1875 360 M26 1875 360 M26 0 G /M27 {MB 0 0 41 CC ME} bind def 3375 360 M27 3375 360 M27 0 G /M28 {MB -6 2 moveto -9 0 lineto -6 -2 lineto -3 5 moveto -8 0 lineto -3 -5 lineto -8 0 moveto 9 0 lineto stroke ME} bind def 4874 360 M28 4874 360 M28 0 G /M29 {MB 6 2 moveto 9 0 lineto 6 -2 lineto 3 5 moveto 8 0 lineto 3 -5 lineto 8 0 moveto -9 0 lineto stroke ME} bind def 6374 360 M29 6374 360 M29 0 G -23 -7 820 4050 L -16 -24 C -7 -39 C 0 -23 C 7 -39 C 16 -23 C 23 -8 C 16 0 C 23 8 C 16 23 C 8 39 C 0 23 C -8 39 C -16 24 C -23 7 C -16 0 C 15 8 2297 4019 L 24 23 C 0 -163 C 0 8 3781 4011 L 7 16 C 8 8 C 16 7 C 31 0 C 16 -7 C 7 -8 C 8 -16 C 0 -15 C -8 -16 C -15 -23 C -78 -78 C 109 0 C 86 0 5288 4050 L -47 -62 C 23 0 C 16 -8 C 8 -8 C 7 -23 C 0 -15 C -7 -24 C -16 -15 C -23 -8 C -24 0 C -23 8 C -8 7 C -8 16 C -78 -109 6850 4050 L 117 0 C 0 -163 6850 4050 L -78 0 867 3331 L -8 -70 C 8 7 C 24 8 C 23 0 C 23 -8 C 16 -15 C 8 -24 C 0 -15 C -8 -24 C -16 -15 C -23 -8 C -23 0 C -24 8 C -8 8 C -7 15 C -7 16 2374 3307 L -24 8 C -15 0 C -24 -8 C -15 -24 C -8 -38 C 0 -39 C 8 -32 C 15 -15 C 24 -8 C 8 0 C 23 8 C 15 15 C 8 24 C 0 8 C -8 23 C -15 16 C -23 7 C -8 0 C -24 -7 C -15 -16 C -8 -23 C -78 -164 3882 3331 L 109 0 3773 3331 L -23 -8 5311 3331 L -8 -16 C 0 -15 C 8 -16 C 16 -8 C 31 -7 C 23 -8 C 16 -16 C 7 -15 C 0 -24 C -7 -15 C -8 -8 C -23 -8 C -32 0 C -23 8 C -8 8 C -8 15 C 0 24 C 8 15 C 16 16 C 23 8 C 31 7 C 16 8 C 8 16 C 0 15 C -8 16 C -23 8 C -32 0 C -7 -23 6873 3276 L -16 -16 C -23 -8 C -8 0 C -24 8 C -15 16 C -8 23 C 0 8 C 8 23 C 15 16 C 24 8 C 8 0 C 23 -8 C 16 -16 C 7 -31 C 0 -39 C -7 -39 C -16 -23 C -23 -8 C -16 0 C -23 8 C -8 15 C 16 8 797 2580 L 23 23 C 0 -164 C -23 -8 976 2611 L -16 -23 C -8 -39 C 0 -24 C 8 -38 C 16 -24 C 23 -8 C 16 0 C 23 8 C 16 24 C 7 38 C 0 24 C -7 39 C -16 23 C -23 8 C -16 0 C 15 8 2297 2580 L 24 23 C 0 -164 C 16 8 2452 2580 L 23 23 C 0 -164 C 16 8 3796 2580 L 23 23 C 0 -164 C 0 8 3936 2572 L 8 15 C 8 8 C 16 8 C 31 0 C 15 -8 C 8 -8 C 8 -15 C 0 -16 C -8 -15 C -16 -24 C -77 -78 C 109 0 C 15 8 5296 2580 L 24 23 C 0 -164 C 85 0 5444 2611 L -46 -62 C 23 0 C 16 -8 C 7 -8 C 8 -23 C 0 -16 C -8 -23 C -15 -16 C -23 -8 C -24 0 C -23 8 C -8 8 C -8 16 C 16 8 6795 2580 L 23 23 C 0 -164 C -78 -109 7006 2611 L 117 0 C 0 -164 7006 2611 L 16 8 797 1860 L 23 23 C 0 -163 C -78 0 1023 1891 L -8 -70 C 8 8 C 23 8 C 24 0 C 23 -8 C 16 -16 C 7 -23 C 0 -16 C -7 -23 C -16 -15 C -23 -8 C -24 0 C -23 8 C -8 7 C -8 16 C 15 8 2297 1860 L 24 23 C 0 -163 C -8 15 2530 1868 L -23 8 C -16 0 C -23 -8 C -15 -23 C -8 -39 C 0 -39 C 8 -31 C 15 -15 C 23 -8 C 8 0 C 24 8 C 15 15 C 8 23 C 0 8 C -8 24 C -15 15 C -24 8 C -8 0 C -23 -8 C -15 -15 C -8 -24 C 16 8 3796 1860 L 23 23 C 0 -163 C -78 -163 4038 1891 L 109 0 3929 1891 L 15 8 5296 1860 L 24 23 C 0 -163 C -23 -8 5467 1891 L -8 -15 C 0 -16 C 8 -15 C 15 -8 C 32 -8 C 23 -8 C 15 -15 C 8 -16 C 0 -23 C -8 -16 C -7 -7 C -24 -8 C -31 0 C -23 8 C -8 7 C -8 16 C 0 23 C 8 16 C 16 15 C 23 8 C 31 8 C 16 8 C 7 15 C 0 16 C -7 15 C -24 8 C -31 0 C 16 8 6795 1860 L 23 23 C 0 -163 C -8 -24 7029 1837 L -15 -15 C -24 -8 C -7 0 C -24 8 C -15 15 C -8 24 C 0 8 C 8 23 C 15 15 C 24 8 C 7 0 C 24 -8 C 15 -15 C 8 -31 C 0 -39 C -8 -39 C -15 -23 C -24 -8 C -15 0 C -24 8 C -7 15 C 0 7 781 1133 L 8 16 C 8 8 C 16 8 C 31 0 C 15 -8 C 8 -8 C 8 -16 C 0 -15 C -8 -16 C -16 -23 C -77 -78 C 109 0 C -23 -8 976 1172 L -16 -24 C -8 -39 C 0 -23 C 8 -39 C 16 -23 C 23 -8 C 16 0 C 23 8 C 16 23 C 7 39 C 0 23 C -7 39 C -16 24 C -23 8 C -16 0 C 0 7 2281 1133 L 8 16 C 8 8 C 15 8 C 31 0 C 16 -8 C 8 -8 C 7 -16 C 0 -15 C -7 -16 C -16 -23 C -78 -78 C 109 0 C 16 8 2452 1140 L 23 24 C 0 -164 C 0 7 3781 1133 L 7 16 C 8 8 C 16 8 C 31 0 C 16 -8 C 7 -8 C 8 -16 C 0 -15 C -8 -16 C -15 -23 C -78 -78 C 109 0 C 0 7 3936 1133 L 8 16 C 8 8 C 16 8 C 31 0 C 15 -8 C 8 -8 C 8 -16 C 0 -15 C -8 -16 C -16 -23 C -77 -78 C 109 0 C 0 7 5280 1133 L 8 16 C 8 8 C 15 8 C 32 0 C 15 -8 C 8 -8 C 8 -16 C 0 -15 C -8 -16 C -16 -23 C -78 -78 C 109 0 C 85 0 5444 1172 L -46 -63 C 23 0 C 16 -8 C 7 -7 C 8 -24 C 0 -15 C -8 -24 C -15 -15 C -23 -8 C -24 0 C -23 8 C -8 8 C -8 15 C 0 7 6780 1133 L 8 16 C 7 8 C 16 8 C 31 0 C 16 -8 C 8 -8 C 7 -16 C 0 -15 C -7 -16 C -16 -23 C -78 -78 C 109 0 C -78 -109 7006 1172 L 117 0 C 0 -164 7006 1172 L 0 8 781 413 L 8 15 C 8 8 C 16 8 C 31 0 C 15 -8 C 8 -8 C 8 -15 C 0 -16 C -8 -15 C -16 -24 C -77 -78 C 109 0 C -78 0 1023 452 L -8 -70 C 8 8 C 23 7 C 24 0 C 23 -7 C 16 -16 C 7 -23 C 0 -16 C -7 -23 C -16 -16 C -23 -8 C -24 0 C -23 8 C -8 8 C -8 15 C 0 8 2281 413 L 8 15 C 8 8 C 15 8 C 31 0 C 16 -8 C 8 -8 C 7 -15 C 0 -16 C -7 -15 C -16 -24 C -78 -78 C 109 0 C -8 16 2530 428 L -23 8 C -16 0 C -23 -8 C -15 -23 C -8 -39 C 0 -39 C 8 -31 C 15 -16 C 23 -8 C 8 0 C 24 8 C 15 16 C 8 23 C 0 8 C -8 23 C -15 16 C -24 8 C -8 0 C -23 -8 C -15 -16 C -8 -23 C 0 8 3781 413 L 7 15 C 8 8 C 16 8 C 31 0 C 16 -8 C 7 -8 C 8 -15 C 0 -16 C -8 -15 C -15 -24 C -78 -78 C 109 0 C -78 -164 4038 452 L 109 0 3929 452 L 0 8 5280 413 L 8 15 C 8 8 C 15 8 C 32 0 C 15 -8 C 8 -8 C 8 -15 C 0 -16 C -8 -15 C -16 -24 C -78 -78 C 109 0 C -23 -8 5467 452 L -8 -16 C 0 -15 C 8 -16 C 15 -7 C 32 -8 C 23 -8 C 15 -16 C 8 -15 C 0 -24 C -8 -15 C -7 -8 C -24 -8 C -31 0 C -23 8 C -8 8 C -8 15 C 0 24 C 8 15 C 16 16 C 23 8 C 31 8 C 16 7 C 7 16 C 0 15 C -7 16 C -24 8 C -31 0 C 0 8 6780 413 L 8 15 C 7 8 C 16 8 C 31 0 C 16 -8 C 8 -8 C 7 -15 C 0 -16 C -7 -15 C -16 -24 C -78 -78 C 109 0 C -8 -23 7029 397 L -15 -16 C -24 -7 C -7 0 C -24 7 C -15 16 C -8 23 C 0 8 C 8 23 C 15 16 C 24 8 C 7 0 C 24 -8 C 15 -16 C 8 -31 C 0 -39 C -8 -39 C -15 -23 C -24 -8 C -15 0 C -24 8 C -7 16 C 113 G PGPLOT restore showpage %%PageTrailer %%PageBoundingBox: 24 17 350 559 %%Trailer %%BoundingBox: 24 17 350 559 %%DocumentFonts: %%Pages: 1 %%EOF ifeffit-1.2.11d/doc/RefMan/figs/README0000644000175000017500000000042110771740460016100 0ustar segresegre# pstopng: # using pstoimg from latex2html # and netpbm 9.12 /usr/local/bin/pstoimg -type png -crop abls -white -out _tmp_x.png $1.ps pngtopnm _tmp_x.png > _tmp_x.pnm pnmrotate -90 _tmp_x.pnm > _tmp_y.pnm pnmtopng _tmp_y.pnm > $1.png rm _tmp_* pstopng plot_arrows ifeffit-1.2.11d/doc/RefMan/figs/win_kaiser.png0000644000175000017500000005564010771740460020076 0ustar segresegre‰PNG  IHDRZ’´jøùbKGDÿÿÿ ½§“ pHYs__׊ÚÉtIMEÓ; xC¦ IDATxœìÝ{\WÚ8ðIëEÔñŠ–*†ZŒ¼ 8´åV *wQ„‚ZITZëeÛ¤¢¶Ei3Ûì*Ø ¶€¸¤‘‹ ú&hÜm°îV|ÝDÞÖÖ^ÜŒVíj[Íïùm^C23É„çû‡“sž‡y˜3çÂ3›Í0´=âèǃt@: ¤Ct Ò!€@:H‡é@ ¤Ct Ò!€@:H‡é@ ¤Ct Ò!€@:H‡é@ ¤Ct Ò!€@:H‡é@ ¤Ct Ò!€@:4""((ÈÑQà02™ ÇqGGléÐuÔÕÕ%''ö]F£‘–ÚFcXXX||<-Å’$C’$¡!‚tvvêtºšššŽ¡«)˜Ó+B£Ñ¨{@gg§5ïµFyyyVV–A2ÇRI’ƒ:U¨³‹ Ú#‘J¥¹¹¹ÅÅÅt• Xe®bÖ¬Y6ü‡ŠD"­Vkísæ̉¥«Ø¢¢¢GyD*•Ú˜Ùl^²d ‚ Ï<óÌÔ©S§NÚØØØçat5Câââ&NœØó¹\.úOÀÛÛûÁ÷jµZ‘H4ؽ¼¼xF ¬ç'’Ëår¹Üú÷ñx¼èèhº‚éÙJ*•ÊÍÍÍd2ÑU8`Í0Ç&c@£Ó§OŸ9sÆ!Uëtº®®®ÊÊJº \·nå_;íÙ³§¹¹¹©©)""‚$É%K–¬X±âÚµkö—̣ѸråÊóçÏÏ›7¯çëJ¥²×‘>>>Ï?ÿ<]õ;v쫯¾¢«4çAWiiiL.•JU*Žãþï'¥®ÃÛÛ{ÕªU©zûöíqqq4–IK.D¤¹¹9:::""AEO:õÏþ“–’Yc4ù|~~~¾‡‡Ç‡©Õj’$år9]õ$&&ÒUšSY·nŠ¢ ŽãøÞ½{*0Ò!—¤¦¦R<êêê,WF…BA=« "55•zÇñ·Þz+<<œÇãñx¼gŸ}¶g9b±ØÍÍÇãyyy]¿~Ýò:õL…zKÏGw©©©jµA£Ñ8fÌêõââb™LFÐÕÕµqãÆþÂ...V(–¢80qâD7nܸ͛7777Ïž=›Çã1¢ç³Oê ês¥§§6ŒÇãyzz677[ßh‡:tèåÛÇ1â¡ï²-f’$SRR¨ ¤º¯ÁqÜRI’©©©:Îú ‰>lib–J¥½ÊEHAAAÔs¯ýû÷O™2…: Ï3*55µ²²200Çã¹»»/[¶¬g™éééÔØ댲œ„½Î(ªzžQ8Ž[?EÑ>?)õé,ßnÞ¼yܸq<oòäÉééé–ò-¿J$IFEEQÇL™2E,[ÞÛÜÜ¿g "‘hĈƒú/ÎÒ!ÇPi©µµõÖ­[Ôï³Z­¦® =|÷Ýw*•êÞ½{ƒÁ`0èõzê‚DFFÖÔÔ?~Üd2ÍŸ?ÿܹsß}÷õvêZF½åúõëþþþT|>ŸúÝÖét¿ýö›åkê*ÐÙÙyýúu‘HÔgÀTÖ´\/¾úê«7ÆÄĘL&¥RYPP˜˜8{öl“ÉtèС£GZF%ô(ÑÖÖÖÒÒròäI“Éäíí}äÈKá¼~XRuÏë&I’¿ÿýïSRRnd›c …ûÛߨtssëîî¦^‰DÅÅÅÔB¡0†QŸ±¿øšüzÑétA<ôÖÊ|>Ÿ ù÷õ׿þõǤ>HŸgÔW_}%•J©§bµµµ'Ož´ E‰ŒŒljj¢Î¨ñãÇ÷:£,'aww·%Qñù|ª^µZm9£,õÐ,< 𪪪þ>õ­X,V©TÔcE™LväÈ‘®®.êG––••õüC£Ñ˜ÍæÂÂÂêêjêOººº¸¸¸èèh“ɤÑhªªª¶mÛF½×h4¾öÚk …Âl6«T*A C¯H|}}ëêê¬úŸÎÃÁÏ.Á`¨T* ÃÌf3†a†Éår½^oùOì9¸ :::88ØòF¡P¸|ùr³ÙLýÞvttX~´`Á‚êêj³Ù\PPàééÙ³:OOÏ’’³Ù\UU…¢¨ÙlNII  F¸ ¢×ë©zA¯P©ñÔÅB¥RY^÷ööÞ´i“å[77·„„Ë·?þ¸R©¤¾¶|®ßÿþ÷cÇŽ5 Ô·EEE?þø`šíÿÄÅÅõ9Ò„–˜«««ÇŽÛs òŸ#,PÍÉÉAQ”j·Áx8ŒH$`8 õ^½^¢hÏJJ¥2%%Ål6óù|>Ÿ¯T*û;£AZZšå½Î¨Ë—/[~$ú<£L&“‡‡‡åŒâóùæg”ÉdBÄò¿<(ÔPš?‡‡Ç¾}û,ßJ$’7R_[Æû$''ûøøÔÖÖR¯ëõz*†èèèçž{NûokÖ¬™1cu ‚ yyy‡$‘HÖ®]kÃgCi¸D$Éd²ÎÎN‚ ^ýu‚ Píó¶Ìßß¿ç·Ï<ó õEkkë¤I“z>ä›0a˜1cÑh4O<ñDÏw=þøã‰$%%…ê\Òét/¿ürEE…Z­¶Üaܺuë_ÿú׃1Ô××,\¸P*•Z^|â‰'bcc-߆‡‡oØ°Áò­¯¯¯å®Å"00ð駟¶üÉ?{öl___êk’$û.O]ß{¾"“ɾûî»ööö>·?æÂÂB__ßþú*¥Ré©S§p?pà@ÏÏØ_—Š¢6E¨)T"ïÏÍ›7…Bá#<Òsˆ‡H$R(F£qãÆTcöyF=öØc/½ô’å[ËU^^>cÆ ooïžGöyF¡(:gÎꌉDF£‘ µZ­T*©[g Ã,ÿeô4öÞ÷ß>iÒ$K#ÔÔÔ 6,;;ÛrÌÔ©S|ãV®\¹téRAø|¾T*¥î°[ZZ¼½½-«ÿú׿¦OŸny×Cl_¿~ÝÍÍmàc€³tÈ%Ô%~÷î݆Éd2Ÿß~û-::zP…ܺu«Ï×'MšÔëGÆ £®k‚¤¤¤üá@dÓ¦M;w®¶\•"""º»»I’ì™ ~øᇂ‚‚œœœ¢¢"ÇißÑ“N§ëoŽ†a=¯û2™Œ ­V;À£µž1SÏጥK¹O$I¶··Oš4©­­M"‘P/Æþž–¡(ú`g`ÔjµT*í•þ{¢þÈÌ̤•YÚÊ@øÃD"‘X, "I²¿~ï>Mœ8ñ§Ÿ~êóGžQwïÞ¥rõg\AA• ESS“¥Þšéë7n9r$--íüùó2™ŒÊˆ(ŠR=¢?LEQ´¡¡ANWZZúæ›oúúú&%%3&==}ëÖ­ý½k€2¹~ý:5z p‰£oOÁàÈår>ŸOu‹QKÏÛ3±z~ëææféê1™LS§N-**2›Íz½~øðá–Òz}«R©<==©Ž5 Ã&NœXUUe)ÆŒT'˜Å‚ ¶oßN•ƒôè{ì5)m€o‘¾ºìüÖR©ð>§‚Y^·ÄLå!Ë´2fªÛ°göüýJIIÁ0Ì`0 (Ú³'Özý}pªÞ»;::ššš¨¯ËÊÊfÏžm6›M&†a={©<úÐ3ª×§¶œQT'§•gTÏ8•J%• Íf3†a£GîyF ÊÚµk…B!UŠ¢–S}æÌ™=;xƒƒƒ%I¯£T*{þw<ùä“aaaf³Y"‘ðù|˹ayiþÏ>ðþôlFÀpwÈ1†ýá ƒðùük×®YߥFÙ¾}ûÛo¿]WW'Ž=êææ6{ölªä”””… >ýôÓ‚üå/¡®àÔ»¨~Zª—uÞ¼yAô¼‡˜;wî±cÇ,7=‚L˜0aáÂ…T±*•Š™2¨ÛºDFFvuu¥¥¥õ¼á >Úþýû³³³sss¯^½Ú3æ””*æžÝwÅçó©ŽÖ§Ÿ~ÚÍÍ­çð×ââbNgÉ…©©©"‘Èú’†ãxŸ·†aaawîܹwï‚ žžž3gÎDEQ­Vëãモ(u÷L ó±ùŒBQ´  `Ó¦MZ­ÖÓÓ³¶¶vܸq½Î¨… Þ¹sç/ù u;H½‘ꧥN êŒzè§þŒ7Žê¼Å0L«ÕQU—––ÆÄÄøøø…Âcǎݹs'88¸×{§Nš­V«Ÿxâ‰üãÿó?ÿóç?ÿAüüü Ìœ9399ùÊ•+Ÿ~úikk«•ñ?~°¿˜Àá}ë­·??¿K—.QODÆ?cÆŒÈÈHêGÔJ???êk???ËÓŽžß>û쳫V­ª¯¯wss‹ŽŽ~ñÅÃÃÃG… Hrr²ŸŸß¹sç† öî»ïæääXêEQôüùó;wî5jT@@À£>J=n¡„††®[·nÁ‚–§z£F²‹a˜ŸŸŸŸŸŠ¢=_ïuX¯o§OŸN]Pz~®¿}¨cÇŽ………9²W3NŸ>ý©§ž*))>|85K¤WÌ(ŠòùüAÅL5 ‚ r¹<66–ú$IZ2U5U²•aà~çΔ””K»yófkkë›o¾Ùë½£F‰DwîÜ¡b›>}ú7ß|óÐ3ª×§îyF'$$ü÷ÿ÷˜1c^xá…矾×EuFõüƒiúôéýë__{í5ËE-dƒžÁLŸ>:Óø|¾··÷Ê•+Ï;÷믿†„„äææ>õÔSÔa–ðÌ3Ïœ;wîþýû(Šj4@@°qãÆÛ·oÿøã<òH]]¥å-gfD"Žã9‡g6›pééé]]]ŽdŒF£@ 8qâ„Cn[™4|øð¶¶6G2´(ŠÒÒRjª àH‡€$I ‚˜˜˜’’GÇb-’$-S]N§£îqÈBÍX¥ž¹::0h0 ÐEÑ .ܾ}ÛÑ Â &3pŽH$‚\È2£ÑXUU¹£àCÒ!€ptUšGyúxÀ ñx¼û÷ï;: [p2R+Ø_GÏ£S(Êr (ÇRŽý…8t–€!žÞÊ¡‹³}.g+‡.Îö¹œ­º8Ûçr¶r¸‹“óéêãƒvf´3; ÙÁÝvÒw‡Ò!è—×ôŽaH€vf´3¤CЯš²æ‡ìíÌhg00H‡¤CÒ!€@:H‡é@ ¤Ct Ò!€@:H‡é@ ¤CAa©Õh4úøø p€J¥’J¥ðòÚM½^7nÜzé«4zøÆ@::n¸ñÓ¿~ÞÖùEûÕï¿5þ租~ºuûÖýû÷ïÝûíÑG‡ 1bÄðáÆçÏàÏœ1ëé§C¾~3Ÿiy;´3; éUTüþ7m“ù|¾T*=|øðgŸ}à°ÍŸnœýë™3­Ÿ^øŸ//]êº~ãúo¿ý† Ç£þ1|Äð#x¹8ò¹^9À&žÙlvTÝñññ³gÏ.((ìyû¬³³óúõëÆ 6lØÝ»w}ôÑ9sæøûûGGGÿ×ý—•ÛuvvvwwüñÇííí—.]ºwïÞÈ‘#¹sçÎèÑ£Ÿ|òɧŸ~Z*•bÆðÇZà|fw¯ÏŽŒ›$I£ÑhÃï|Þ¼y"‘hË–-(ŠÚ_Ñ7ÄÏgÖp÷úìÈ¡4(ŠÂß¿ÀÙÆ 6̘1c„ pww_¹råܹsøá‡_ýU"‘ttt\¾|Y¥RÑ’ ÁüŸQ©Tçλ|ùòk¯½vÿþý«W¯ÎŸ?Æ àÏþó„ <==ÓÓÓ ‚ ¥FÀƒ`d)‚ $InØ°Ïçûøø|öÙgÙÙÙƒ!++ëâÅ‹ÅÅÅÓ¦MkkkëîîV*•Ì=íöööÞ¸q£Á`8sæÌ”)SöìÙÓÜÜüüóÏ †M›6uuuMš4I,F†b`È‚t†ºÒÒÒÀÀÀ &444¬Y³Æd2utt ±gÏžààào¿ý¶¾¾žÍž Ãêëë¿ýöÛøøx•J HGG‡ÉdÚ¼yóßÿþwŸÀÀÀ={ö°®ÏÌA ›sôŸ\vt 2™Lk×®2e Š¢ÑÑÑz½žz½ªªjòäÉ#GŽÜ¸q£Édb!’‡¶sAAÁرc'NœXUUE½b0’’’¦N:aªÿ–ñ(¹ÏµÏgçÁÝë3'ãænss‹«^> CttôèÑ£{ì±íÛ·[^ojjZ°`ÁèÑ£W­ZÅN"¤XÙΛ6mrssó÷÷¯­­µ¼¸}ûv___A„B¡Á``*D—àªç³³áîõ:KÁb4ãããçÌ™sãÆŠŠŠ+W®äææ"B’dll¬P(œ6mÚ•+WÊËËp$g~~þ·ß~ëååµtéÒØØX’$ÉÍÍíêꪮ®6›Í¾¾¾QQQðXÛ@:CBgggrr²Ï?ÿùÏ®®®ÖÖÖ¤¤$êGjµÚËËë›o¾©®®>~ü¸&B E?ÞØØøý÷ß{yy©Õjêõ¤¤¤¦¦¦‹/ÞºuËÇÇ'11±¹¹Ù±¡À9‹3‘‘‘wïÞmjjjkkãóùÔº»»—-[&‘H^~ùåsçÎY¤“ …A¼öÚk‰$..®»»›zÏç·µµuttÜ¿_(†„„À"Öƒt\I’™™™>>>îîîƒáøñãÔMJEEżyóŒFãùóçqw`œ¶y뭷Ο?åÊ•ùóçWTTX^8~ü¸Á`˜>}ºOrr2Õ­ ¤Càš¶mÛ6cÆŒ¿üå/z½þøñã–;BJll¬X,Ž?wî\¯qŸÏ?wîÜóÏ?/‹-O-?Òh4ƒÁh4>þøã™™™ŒN€t\MEEÅ´iÓ8°cÇŽ/¿ü²×|A£Ñ8kÖ¬‹/666VVV:*H8p ±±Ñ`0,X° ×²5|>¿££ã½÷Þ;yò$Š¢=o"½@:®Ãh4†„„ˆÅ⤤¤®®®×^{­×jµÚÏÏÏÏÏO¯×ӵĚ3 …gÏžõóó ·Œ¯±X·nÝÕ«WÓÒÒÖ¬Y#à"}‚t\ĦM›üüü~þùgƒÁ°ÿþˆnØ°!55uË–-N>|Ô6Ô Ó-[¶¤¦¦nØ°áÁöïßÿ÷¿ÿ}Ê”)>>>›6õÞ.ÀÉù’ ›s¸2m¹¶¶V Œ?¾¬¬¬¿c„B¡‡‡Gyy9›Y‰Þv®­­uww …ýP]]=~üx__ßžÓù‡®œÏ\ÇÝë3Ü£¦Ï/]ºÔßßßh4ŠÅâ>™1cÆÕ«W;¶jÕ*öƒdYbbbKKË•+Wf̘Ñç˜Ò¤¤$£ÑØs:?Ò!à*‚ ÁÅ‹«««+++ûìÿ¤Ž™>}úÉ“'{βpmZ­Ö××wöìÙ}î …¢hee%5§¿cj NR(AAA‘‘‘ÔbÖ}£ÓéÂÂΞ=ëííÍn€æíí­Õj£¢¢ú\C …/^LHH R(,G€Óqto­-86ç8糓ÉôÌ3ÏŒ?žZ¨³?J¥AœœÖ³£íœ““ƒ ˆR©à­V;~üx@ÀÂÎR©”úÂ`0Èår›ËIIIý›P(œ?~GÖÖÖ&%%Íž=û,¼¨¨È數{}ædÜÜmnnqÂt¨T*G½páÂwœØ¼yóCs€ó`º©¿ 6oÞ<À1&“iáÂ…îîîLÿaùåÕjµ"‘Èærôz½öß,XÐ_Qz½ÞÍÍ-!!!77wåŠGŒaÙ$ 0„»×gNÆÍÝææ§J‡&“)--môèѯ¿þúÀG®Y³f̘1ûöíc'0û±ÐÎeeecÇŽMKKø°}ûö¹»»'%%1·¿]éÐB.—£(Ú_ÀsæÌY»v-õµþ“˯¿þúÔ©Sí¯ €»×gNÆÍÝææçI‡z½~æÌ™žžž–Mzû“––æîîέ)ì´35ã¡Ñ`0xzzÎœ9ó¡Mm½êêê´´´åË— †þÒ¡V«µ!ëõzA´Zm bù úO.›L&AØÜÌrâîõyÛÏ*$Çóòò0 ;zôèÀÓçe2YMMMKKK¯…Ù‚ Ô®Oááá2™L¥RõwŸÏ¿zõjLLLdddNNŽ\.·³ÞÌÌÌÒÒÒ¤¤¤ëׯϛ7¯Ïcd2™Z­Öëõ(ŠÑßØ ÃRRRz¾’ššŠ HZZÚ /¼°{÷î^ÇwvvRï²¼‚¢è˜1cš››¹²{ `WG–òþ­¸¸Øѱ‰Åâ¼¼¼œœœÆÆƇæÂ’’È…À0¬¥¥E£ÑÈd²lhhÈÉÉÉËËKNN¶§FNwôèQ½^_]]ÝØØXPPðà1T.Ôjµ6¬¥n0ÌfóêÕ«‹ŠŠ\|îÚµk¾¾¾½^œ9sæ`kU\\l¹&;:;8úöÔ ›sÛYj2™æÌ™3}úô¦¦¦‡Lõ‘ÒØ¿Ç&–ÛY¯×[Ókj6››šš<==üq›{ƒƒƒÓÓÓ{¾‚üggi\\ܘ1cìÿãóù«V­êõbmm­›››å[ª===X½Ø»×gè,Έ ˆ¸¸8oo†‡NŒmmmmnn†ûBk`ÖÜܼxñâØØØúúúŽŒˆˆhkkËÊÊš={ö©S§lhÞo¿ý6&&¦¿ŸvuuݸqãÖ­[F£ÑR¸Z­î¯ËÃ0j”ìƒüñü±×‹‰‰‰wîÜ1=ï;¿ûî»ÐÐÐÁ} 04@:NG­V¯^½zñâÅÇèÁ™™™gÎœ©««ƒ\h= ÃjkkÒÓÓÞ劚ΟžžþþûïK¥ÒAU{úôé;v<ø£ŽŽŽï¿ÿ¾­­ ™LÆçó©ÿA‘HÔ_¯¸%«EEEUUUõ<¬½½ýüãƒoñôôÜ·o_~~>õíþýûÝÜܸ»Ã%`–£oOmÁÑ°9Ç!¥‰ÄúÙo*•ŠsãHä¨Nij¬©J¥²æàœœ+»X{2 £GŽŽŽ6™LƒznGý¨çÈRj²õ ÐÀÇLJ:žÚ«kÎœ9Ô:::&Mš´}ûvêÛ‚‚jÖMùÇ&Ož¼qãÆA}0Xܽ>s2nî67·°|™6™LÔ¾ÖO äèóžøŒV¯×9ÒÊŒ¨×ë§M›6þüA=Jlllœ8q"‚ ÇŸ3gŽ···¥´””ËaR©ÔúEjL&SÏÎ Ã,!555=òÈ#›6m²3jÔ(êÈàà`ë#¶áîõ™“qs·¹¹…ÍË´ÉdzüñÇçÍ›g奖ʅV^Çœc‡, ª%M&“@ °gp9ÏÊ’J¥*•J&“ÕÕÕ=ô`EëëëØ+î‚tl°ûN455edddeeA.¤‹T*U*•ÖdDköÊ€‹ GÂq<**jË–-Ö "EÄh4ÆÇLJ††>¸ °‡\. ]¹r僓ÙûTYY¹eË–ÔÔTÇ™Ž vÀD à0[¶lÉÏÏW*•V®F’¤P(\²d‰F£a:¶!¨¡¡!99Y(ž;wΚ.ë]»vyxx(Š~øþ:.îcdeeïÛ·Ïú\¸`Á‚)S¦KOOg40˜é°-99¹®®®¹¹911ÑÊ·( FÓÑѹi(Šž={öôéÓ …ÂÊ·P{ehµZ;×ûÀ±àÙ!`I’©©©/^<þ¼õ eá8Žã8µû£á Š¢§N BQÔÊ®l Ã.]ºäï^Õš IDATïwð€£àî°„$É°°°+W®œ;wÎú\ØÔÔôî»ï*•JX’”MÔbÙï¾û®5S/((Šž;wîöíÛaaaV>zÀ©@:l I244ôÞ½{­­­Öß:$bÿ&´`°ärùâÅ‹W®\i}nCQ´µµA @Fœé0Ž$IwöìÙAu£…„„4440€F£ ñ÷÷TFŸÿ駟â8>ØJ5ÍôéÓš››Š A:Œ B(zyyµµµ *vvv®X±B©TŠD"惂a˜J¥ÊÊÊlbkllôóó[ºt)lœ¤C@?’$“““###ëëëûÆ•+W†††ÂPRg#•JCCC_yå•Áv~Ö××GFFFDD@¯)prͨq¤†UWWö½Ë—/¿wï^EE;Õ××ß½{766v°o¬®®^²d Œ5NÒ! “e© m¿óÎ; °¦‰Ójhh¸xñ↠ûFFcM“ãj:Œú7Ø€ÔyØ<ŽA‚ vîÜ©P(`øŒ3ãóùyyy{÷îµáY Œ5uajµÚrMvt,¶ãꚥ–gK°v—“ I2**Êl6jÝË{ããã_}õUxdèüÖ­[÷¿ÿû¿"‘Èh4ö?Z£ÑGEEÁº¦.F$YþCu:cƒ±Ïl6;:†Aãñ86移±EÞÖIÝÚ– IMMýÛßþöå—_:D—`};;¹sç>öØcZ­v°o¤ºÓy<Þ`§ßØ‹íÌEܽ>sµ³8ÛÖ#µP(§OŸ>sæ ±†œ9s¦££c°só‘¯kz÷î]xŽœ ¤C`¯åË—>|°ë‘R***p?rätq µ Žã6 FQT¯×><&&†‰Ø° ¤C`—øøøüãuuu6ä3’$³³³×¬Y3î¹ðM›6eggÛp“‡¢h]]ÝO?ýÏDlØÒ!°L&kjjª©©±meÑE‹MŸ>éæ®üüü'žxbÑ¢E6¼—Z µ©©I&“Ñ6€tl„ãxIIIss³mƒ{333»»»á‘!×iµÚëׯgffÚð^>ŸßÜܬÑhlx í [lÛ¶mçÎmmm¶åB‚ JKK÷íÛ ¹EÑ]»v•––Ú6¼ðS§NíÛ·oÛ¶m´ÇÀ puÞ!p Çóòò”J¥m¹$I‘H$—ËW­ZE{l€}«V­:þ|JJŠ 3Á0ìƒ>ÈÈÈððð€‰§Ààî µûÒöíÛm¾r)ŠiÓ¦)•Jz¤T*§M›fóS@±X¼}ûv…B‹L‚»C0A$$$ääääææÚVBqqqyyùùóçé 8ÜñãÇq·íï¤ÜÜÜû÷ï¯^½šÏçÃRSÀ! k±hÑ¢W_}u×®]¶•ÐÙÙùú믗––¤®‡Ïç|¸=¹P,ß¼yö2tm$IŠÅb›KP©TÞÞÞQQQ°„`¤Cðp111·oßnjj²¹‚ ***Þ}÷]˜YáÚP-,,¬¨¨°g[ƒ†††Û·oÃn€eÁCDFF~óÍ7¶-ÏM!IrÉ’%‰Äž›À‰‰‰‰$--ÍæÛ;j™ïŸ~ú)22’ÞؤC0ÌÌÌöööÂÂB{îêÖ¬Yãíí]RRBc`À™•””x{{§¦¦Ú\Š¢J¥’ ˆeË–Ñ€túU}¢R­V—••%&&Ú\ˆZ­>qâDUUçWUUÕÒÒbÏ<ÂÄÄÄòòr­V[\\Lc`ôÒ!è›N§ËËßZRRbO.$I233óí·ß†™C ŸÏÿý÷333F£Í…$&&–””Èd2˜žXÀɱÜÈËADDDl”åìÚý†=åDEEýòË/ÍÍÍtæ’\x@TT‚ Z­ÖžBŠ‹‹7oÞlóbñ.ÜÎN…»×g¸;½uww/_¾™Löõ×_WUUÑR5é>55ºI]ø|>]ó)UUU?ÿü3 4ƒéÐÅá8^^^ÞÐÐ@×Âÿ0é0Ɖù‚ (ªÑhŽ9Ãj€õ º²ŠŠ …BQZZJ×òi:&݆PóéZn Ã0F£P(***h)¸)•ÊiÓ¦ÑØùk×®ÈÈȈˆX¿ <¤C×´|ùòÉ“'×ÔÔÐU µÓ}YY]Ч²²2ÇiúH¯×ÿéÈ´\¤CW£Óé EIIIDD]eÂN÷€MJ¥òþýûëׯ§«À€€€êêê½pØ Ò¡K!I2))I.—Ó5|A‚ `§{À²?þøÈ‘#4f/‘HôJ–<)) †Õ€þpr5î.Ä´¨¨¨_~ù¥¹¹™–Ò¨E­¼½½ACC-e‚Áâa}¢vôíî@ât·âÝ,’$õz=]e‚q÷úÌջè£e-|מžÞÑÑAãA233y<l[ØwðàA—™™Ic™UUUƒ6¢Z­¶\“‹í†9:Yö؃ÁÇ>ùäº†Ï Òuéo¥¥¥ååå4– €•Pݵk—X,~ùå—éú5§6Z¼xñŽ;rssi) "‰,W ? 5sGÃfŽ^¯÷ððؼy3½ÅN™ì)—Ëé-sµ³X$·{÷n‹U(÷îý;ÝÇ’Ëå<O¡PÐXæîÝ»ãââ–,YsóAO9O(Ò¸y¥³³sß¾};ßØݤÀ±¨Yƒ8Ž755ÑX,léÛ ÅÕ«WéÚ¼Éâµ×^ …O/€‹p<‘H$‘H~÷»ßÑ[lUUÕµk×è½ïœéÃÔjõž={hܼ‰²yóæÖÖVX 8üüüîîîÍ›7ÓX&Š¢ ÅÅÅ4 ¸ Ò!Wuvvfeeýñ¤wl­Ñh,)))--…nRà~8?ǤC’$-]ÿ$Iúûû¿ð 7nÜÐét>>>{öìqHTN‹ ˆ­[·*•JÚw³"Iò÷¿ÿ½D"nRÀ-|>?33sëÖ­´w™b–““£T* ‚ ·dà첆V«‰DÔ׉dÎœ9&“‰úV¯×>|à½W¶C˜L¦™3gFGG3QxLLÌ“O>ÙßOaã!v@;ÛlÁ‚B¡ÐʃÕÎÑÑÑ“'O¶\—€õ¸{}v|gieeenn®¥ð   ]»v96*ç3vì؆†ÚKÖét 0šp×îÝ»›šš˜˜ÑÐÐðä“O …BÚKNËñéðîÝ»)))=_&LpTt:?ì´Àhgû)Šººº/¿ür€cln稨(’$©m^ÀCq÷úÌɸ¹ÛÜVJOO×jµ—.]bb5m…BQZZzáÂ…‡—iv@;Û$Éùóç¯Zµj€?òlng’$ù|~tttee¥í!ܽ>;þÙ!èÇñ†††S§N1‘ ›››q///‡m+€+AQ´¤¤Çq&:TP¥†aïرƒöÂóp̳ÃtwwGDDìÝ»711q€ÃŽÕôžx0~üøÿ@&CcC繎¼]y/¬Î|’ïw“¼C{ùÙë_‰ž{ ·²p&b‚v¶ß3XxÔâçÖ¯Ï>ÛÒo¯¦Ííü$ß/cÕ {¢ŸÀu†.ç:®_¿îè(hãtwµË–-Óh4ýÃãñ‚özq¬Çø÷_ÌptÌúéæ„”Èyÿ¸ï2QþŽ]¯}zæt]Õé±㬊Çô¯±F1 è Ú™.?ݼ‘øü¢ Àà?äöñS»ÛYñæƶ¿|zLÝhåoË{õuéO7{§Ã3g?u¶´b%§K‡ÖànßôÀâãã¿ûî;­VËDO¦Ñh x÷Ýw³³³­| <Ób´3ÊËË322ôzýƒ£Liiç   1cÆ455ÙYŽ ãîõž: Ç«ªªzª÷ì³ÏZŸ à"±X¼víZÚ÷¶ÐjµŸþ9,ðí’üìP§Óétº/¾øbäÈ‘ÞÞÞ¡¡¡O=õ³ÎA …¢ªªŠ¡¹M8Ž_½z•‰•Þp6ï¼óN}}½B¡ }gPAP­­­ŠŠ‰D´OsŽå°»Ã¦¦¦iÓ¦¥¤¤PËÆ»¹¹uww¿ù曳fÍZ·n£¢r’$/^,‘Hz-VG£Ñøæ›o8p`þ† E?üðÃüü|†¶¤‰D‰dñâÅÝÝÝL”Åa¼S¦L {p›=N·lÙ²êêêVcánßtŸ‚ƒƒy<^[[CåGEE¡(jþÁðL‹ÐÎLP(§Nêèè°¼Bo;‡„„ܸqcà‰ÿCw¯ÏŽ¹;lnnþñÇ:ôàD"QpppaaÃ\’X,þæ›oêëë*ÿ­·Þêèè€m+ÀP#—˯^½ºiÓ&†Ê¯¯¯¿yófrr2Cåö9lûßI“&õ7fä·ß~»uëË!9„Z­®¨¨(,,dhøLggçž={öïß“îÁPƒ¢hyyùž={ZéEÑÂÂÂO>ù¤¸˜Û󻀅cÒaRRÒ;wú\â$ÉŽŽŽ¸¸8ö£b™Ñh\½zuNNÎÀ ØcíÚµ =’ÀɉD¢èèèW^y…¡ò_~ùåW_}•¡‡”€eYºiÓ¦;wž?>88ØËËËÝÝý×_=}útyy9ŸÏ߸q££cI’aaa«W¯fn£c™LÖÕÕuùòe†ÊÀù>|8 @,———3Qþ®]»~üñÇøøø/¿üú`¸Î‘Ï<›ššþô§?]¹r… ˆqãÆyxxøøøÌš5+??à7r÷Q­…L&Óétz½ž¡_!&Ý?†x°Ú™Qåååëׯïìì$»a¢I’  …ð„žÂÝë3'ãænsSpÏÍÍýôÓO™›·äïïïååuâÄ { Ë4; ™wåÊ•Cµ µ³Ñh ܺu«\.g¢|náîõV¥a[EEµÅs¹Çñîîî¡3:€vwwÿéÈ •Ïçó5B¡¨¨¨`¨ ÀH‡¬"I2;;{Íš5Ì o¡&Ýxðàþ’ÝÌy‰D999ÙÙÙ$I2T`'ïj¹{3x÷î]F§îÚ<éþAЉÇhgvd®\ßy¡­çÄ|Úݾ}ûÂ… ÌUáü¸{}†»Cö¤§§_¿~ýÌ™3ÌU“îèÏ ik˜ ˆV«½sçβe˘«0Ò!KÔjõ‘#GÞÿ}æFcä{à1f,£óAQôý÷ß×jµjµš¡*s ²Áh4J$¥RÉÜŒ{&Ýð0LOÌG$111??_"‘ÀÜ|ÎtÈ8’$ãããÅb1£ƒ°©I÷Ge® \ÀáÇoܸ!‹™«B*•ŠÅ⌌ VÃ-§P(Ìf3[¯YÆÊÊʼ¼<è&``(ŠæååUTT0z÷¦R©Ìf³L&c® @;H‡ÌÚ¼ysEEʼn'MT°Ó=Ö‹Åk×®ezÀKkkk}}}VV£µA:dP]]]AAAMM C{ÜS ÅÏ?ÿ “î°Þ;ï¼Ããñ sU (ZSSsðàA†–K´ƒtÈ’$W®\¹|ùòö1¶A8Žøá‡0éë¡(úá‡â8Îh—©H$¢îDá!"'@:dJPPPHHˆF£a´–ŒŒ ¹\ÎhÆÀ%‰D"¹\ž‘‘Áh-eee!!!þþþŒÖhéÉÉÉ#GŽq'.ÈÌAζ^¯wssËÉÉaº"¥Réææf2™˜®ˆ¢ÿä2; qCª-¿¼Z­V$Ù\NccãøñãÝÜÜ&Mš„ ȪU«ú;2 Aª7EÑ~}L&ÓèÑ£•J¥ÍQY)''ÇÍÍM¯×3]‘C8ÛõÙzpwh/’$W¬X±zõê]»v1Z‘ÑhܹsçG}3+x饗¢££ÿõ¯ýøãEEEýíª½lÙ²k×®utt †ÆÚsO>ùdjjje¢(ZZZš››ËôÞL»vízõÕWãããaµçâè|l § ;%%E °P†aiii,Td1¤îZhHµ3BÇÝ¡V«ussëùJ÷|îîîEEEÔ×úO.×ÖÖ>ôê!‘H0 ³-°Ayæ™gì¹?vZNu}¸;´‹B¡8}út™Ò(++«»»»¨¨ˆéŠ WSSÓĉy<ž››[```ŸÇ1aÂëç«NÄ’%Kâãã ‚è³Ë„$ÉÛ·o§¥¥Y^¡ößøæ/??ß`0¤§§[ŒÍΟ?Ïôš8Àzm·ÿ~ÇO:Åtï%µ.> @/£ÑûôÓO›L¦/¿ü²Ï¾A‚ ¢¢¢RRR¨a,ÅÅż~X¶lnn¾xñbHHÈÏ?ÿüã?†„„ìÙ³çÁ’?ûì³1cÆôú­™:ujWW×1£(ªÓéŽ9ÂôN(Šž8q¢¨¨ÇqF+Örôí©-œ!l½^?~üxžº›L¦É“'‹Åb¦+zÐêÄs nç×_}Á‚=_Aþ³³´¶¶vܸqR©tPÅJ$’G}Ô2E¯×#b0zV]]íååeù–jgooï²²²‡V!‹ÝÝÝY¶¦T*ÇïJÃjœáúlN.àðUH’  L×Pƒåúé$ɨ¨¨ádz6ϦUzR©T(Š²6B¥RùùùEEEAF×O‡111·oßnjjb§:™LÓ*=¡(zæÌÖ¦^ rôèÑÛ·oÃôüAqñtùÕW_µ¶¶²“œ¨0­ЋeêEVV;Õµ¶¶Þ»w/22’…ê\ƒ+§Ãôôôööö>ø€äÄòFQnÁ0ŒÍ™PU©TíííË–-c¡:à²épÏž=ÇŽ+++KLLd¡:N§P(¶o߹РÃ6lØ°sçNµZÍBuB¡P©T^¼x‘…º\€ËN´xã7ZZZØINA$$$äääÀ´ ÀÀrssïß¿¿zõj>ŸÏÂjöìÙ=öÓµ¸®Þòþ­¿%îܹÃZ.dsF#€ëvíÚõÖ[o-Z´ˆ­ Y_Z\\l¹&3]s¸šÍÿ&•JA¬Íh¸jv`DD ‘…*¤R©åšÌt]Ìáj:tÍÍÍ‹/~öÙgaŠ!`°T*UBBÂâÅ‹››› @H‡6#Iò•W^ mhhpt,Nª¬¬ ]½z5Ì—w®™F#£åSË°ùùùÕ××3ZÀµÕ×ׇ††BFt8H‡ƒF’¤¿¿hhhee%sµ†ˆÊÊJ Ãüýý!#:–k¦Cæ$£Ñh ÀEh4š˜˜˜ÐÐPÚ3"ŸÏ§·@épH’ ›;w.ŒÐK¥RÍ;—ö^SH‡Öƒth­îîˆ©S§Â}!€ fÖ¬YÝÝÝŽŽe(‚th’$ccc'NœØØØèèX.«±±qâĉ±±±ð‘}.›E"]EQãH'Ož ¹À´ÆÆF__ßÀÀ@vÖ¬.›éBÄìÙ³CCCaª,€ÕÕÕ†…„„@Fd¤Ã±dÉ’äädx^`“F£ÉÌ̤k]SNg!.Òa¿t:]xxøš5k`)€}*•jëÖ­áááýmTèå²<Ù Çq…B‘““ûTE.—ß¼yS&“‘$)—ËŽ‹sÍthg÷–-[òóó•J%œÇÚµk—‡‡‡B¡øá‡vïÞíèp\™k¦C{Æ('''kµÚ²²2±XLcH`¹\œ˜˜ØÞÞãÛ™ÏÿI’Ë–-;uêTyy9äB€óˆˆˆ(++ûüóÏ###ûç>Š¢ Eåb\óîÐ$IÿüóÏ_|ñ,kp6‰‰‰_ýõܹsƒ‚‚´Z­õ—) à ÌeÀÝ!‚ H]]ݬY³&L˜¹à´PýòË/g̘XWWçèp\˦CëûvìØ!‹/^ÜÖÖ½ g†¢hcccBBÂÒ¥K·lÙâèp\ŠËv–Zy“—œœ|ôèQD àòòòyóæåååÁà¹ìÝáCYÎÔÖÖB.p‹\.///·mp èÓM‡Aêõú/¾ø"11ÑÑáÀ Qƒkººº|}}žl ‹´Yc(¦CÇ###Á×_ gÜ…¢èÕ«W‚‚6lØàèp¸«Ï õEJJŠõÈI’\¾|9A8Ž¯[·Ž±è€=ÕÕÕû÷ïíµ×þú׿644°?$ µZÍr¥´sÍ»Ã>û ‚ð÷÷¿råʧŸ~ ¹àJÖ­[×ÒÒrýúu@ÛBÙ†«w‡J¥rPÇã8þæ›onܸq°oNèêêR(Ï<óÌ+¯¼RPPÀZÕ†Yzépg­^z¹æÝaOáááï½÷^YYäB€kS*•'Ož¬¬¬ôóó£6-‡éÔVrñt¸cÇŽ… >üÒ¥K)))Ž'‰.\¸0sæÌ„„„-[¶À€A+qµ³ô¡nܸrþüùÍ›7çææ::`Š¢õõõ……… …ÂÝÝ}Ù²eŽŽˆ\óîðòåË3fLKK äBÀДýÕW_5ª¸¸xÓ¦MŽÇÙ¹Z:,//÷õõýúë¯ßxã ­VàèˆÀaP}þùçSSS+++{ì±òòrGGä¼\'’$“‘‘ñÔSO…††.\¸ÐÑ€S˜9sæ… "##322bbb`Q·>¹H:Äq|ƌ׮]kjj*//6ÌeŸ‰À`FEËËË›šš®]»æéé¹yófGåt8Ÿu:··÷›o¾¹{÷îÏ?ÿ<""ÂÑ€s±ÜFDD|þùç{÷îýðý½½a-Óž8œ›››0 »zõªT*utDÀR©´»»ð„„„€€€ŠŠ GG业###…B¡——×·ß~«ÑhzÍ3…?y`(Šj4šo¿ýV ˆÅâÀÀ@¸lr5N˜0Á`0?~\Û (ZYYi0ø|~LLŒ¿¿ÿPNŠ\M‡–Zûñù|FóÿÚ»Û˜¦®?à§ÎŒ B¸D§Y¡B,Á5ÕNc ˜õÆÌ:ç0E‰¸J4­ˆ¾)‰e[–mB4c!q¤}¡$£êì&… ÂÝ·ˆ/Ú•mf™½EŠ“]·eqDÑîEÿÿ¦)ÈJ[z¸·ßÏ»{¸=ýr¼ñÇ9=÷öÊ•+©©©,Ë&íò©XË!DB«ÕFrš\.ïééñxÿüó;wîÈårNW]]\ï8cv qñÆ©TªÆÆÆÛ·o»\.N˜/ÊåòªªªÞÞÞ8¾Q‚Ñ/‡n·Ûn·;ÎxÝþù?¼Íf‹Ë;JµŸx™l¿×dë'^&Ûï5Ùú‰—Éö{QìG­V766Þ¼yÓãñ¬^½šã¸+VÄ% 4gµ•••ÍÍÍ„Y³fedd\»v¢P(:::ÆÞ3ödœã8–e#ù½â5©G?èý ŸIÛO„ÿ%Æ%L&#„`±t|4ÍÅ‹[ZZü~ÿÀÀÀÕ«Wý~¿ÇãY¶l™B¡êÎ% Óëõ´#DN9ìëë»téÒ™3g6nÜÚ®R©Ž=š——÷ñÇS QS«Õ´#DÎ×ä^¿~}ÆŒO[ÍËË»|ùò/—Éd)ùØçD’$ÂÓÐúA?èGÔýÄëœÄtBr˜——788Èóü¨ñ·ß~[ºté/òäÉ„E€dDg±4''gÙ²eEEEMMM¡AN§N§ûþûï«««©€äDygiGGǽ{÷ž}öÙ^x!ð”X¥RÙÚÚŠG¬@"MŠÇØíö´´4¥R‰*TLŠr@ý§ÒP‡r ¶rØÒÒ²lNN˲MMM´ãHSwwwnn. Š¯öövF3²Ýl6äæænß¾=I¾|B:Φ¨¨(xm—••QÉ& ½½½/¿ü²Z­ÎÍÍù<Ñ]Ïtî;ŒŽÛíÞ´iSuuõæÍ›].׎;òóóµZ-í\RséÒ¥¬¬,³ÙlÁ§8²Ûí&“);;;¬}ûöí­­­ƒ!++ëرc¯¾úª×륒Pž6ηoßÞµk×¢E‹‡ Ã$<šDÜ¿¿¨¨¨   ¶¶öÎ;µµµJ¥òÇ üT”׳_< ŶmÛ‚‡Û¶m›5kÅxðàÆa¿ÿþûßÿM%„™ÍæпìÞÿ}BHKK ½DÒ'“É~úé§Ð–)S¦Œ¼à!vÁZHafË–-gÏž¥˜GÜn÷îÝ»÷ïß,"½žES׬Y344ö9ÖÀÀÀòåËiEJÓ§O§AâV®\éóùB[.^¼È²,­<É#;;ß ·ÛͲl]]]àïæ‘^Ï¢)‡„Ù³g777›ššž{î9Ü_<χ݉ÕÝÝ=88¨ÓéhEJz½¾££#ôC¬öööÙ³gSŒ$Iõõõ6›-´å믿~å•Whå»`-4¡íb½žiom‡†††´´´††ŸÏgµZSSSßyçÚ¡¤F„ôôô_|Ñår ‚`µZ§M›¶víZÚ¹$¥³³sä EEE*•Êåry½ÞÒÒÒŒŒ A¨Ä“Œ‘ã|òäÉôôô>ø@¯×»qãÆ´´´¶¶6Z EÍår1 cµZGý©¯g1•C¿ß_ZZ:sæLBÈÌ™3KKKiÇ‘¦óçÏëtºgžy&0Î[·n¥Hj\.—^¯kôù|:.%%%%%¥¸¸¸««‹J6)uœkkkçÌ™CIIIYµjÆ9ja{G‚ÕQŒ×3¾Ñ@TŸL”C”C”C‚r@PÊ!A9 (‡å€ ˆÔáÇËËËi§Ž©´À¸UVV677+•JÚA¤³CñÉÌ̬ªªzþùçi”C€D«¯¯çy>xxàÀÕ«W¿ù曽½½öÐÐÐðú믇¶Øl6·ÛÏ”I‹¥ µnÝ:Žãôz}àðÀ\¼x±Ïç+..þóÏ?í‡cdyÓëõjµzÔnyžß»wﯿþÊ0ÌÄ…0Ì¢Äó|MM͸^ât:O:ÕÞÞ.—Ë-ß|óMaa!Çqß}÷Ý_ýu˜ººº%K–„M r˜D‰çùñ®OÆŠŠŠâââ`KJJÊ­[·ìvûÏ?ÿz¦^¯Î #ÔÚÚšm³ÙŒFã¸^å a,Ë´iÓC ÃãÇKKKcéŸa˜;w¾ýöÛ(‡QÀb)@|8ŽÐ 2#9sfùòåaŸíÉåòÂÂÂ¥K—N:uÆ ‘¿Z­YöÌfóÝ»wÇŽ£B9ˆ›Íf2™Æ>gpppË–-a×O>ùdxx¸µµ5òwdfäj*Ã0ÙÙÙ(‡Q@9ˆ•Íf«©©éìì nÕÍ›7Gžàp8ÔjµJ¥Òh4mmm±‡™2eÊ… bï Ù ÄÄb±ìÙ³§³³ói·@„µ&y›7o~øð¡Ãáˆ1ONNÎâÅ‹cì ¡D¯¿¿ÿðáÃ3fÌ°Ùl‘œ¶5°Rúå—_²,{üøñááá'NÄ©¯¯¯¿¿?ÆN’v–DéÚµkׯ_ïéé!„°,;êÞ–PZ­Öív‡N"GAAÁ»ï¾8áôéÓ1¦êëë[°`AŒ$!Ì¢”ŸŸ_\\¬V«ÕjõÉ“'M&ÓØsÄáááãLJ¶¸ÝnƒÁ ý¿;w>zô(–õRžçSSSµZmÔ=$-”C€(1 ¼kB«ÕZ­VŽãÆ8ÿСC]]]ÁmŸóçÏw8555-©<Ï›L¦Ç—••E½5´¾¾¾¢¢"º×$9™ßï§ Yh4šüðÃÑ9Çq,Ëz½Þ±7¸À¨0;HœÓ§O{½Þ}ûöŽg·ÛýÆoÔÕÕ¡D³C€„joo7 ÇErcFäX–ÍÈÈøâ‹/âØ'@RA9Àb)Ê!A9 (‡å€ ”C‚r@PÊ!A9 (‡„ – IEND®B`‚ifeffit-1.2.11d/doc/RefMan/fitting.tex0000644000175000017500000010641410771740460016467 0ustar segresegre%%#fixtex% for html/pdf -*-latex-*- \section{Fitting XAFS Data with {\feff} Calculations} \label{Ch:FEFFIT} Of course, a major point of {\ifeffit} is to be able to manipulate {\feff} calculations of XAFS spectra, and especially to fit XAFS data with {\feff} calculations. Though many of the details of how this happens is discussed in {\XAIBook}, this chapter discusses the mechanics of implementing fitting with {\feff} calculations in {\ifeffit}. Some familiarity with {\feff} and {\feffit} will definitely help when reading this chapter. In order to do a {\feff} fit, these things need to be done: \begin{enumerate} \item run {\feff} for a model structure that is expected to resemble your system. \item read in $\chi(k)$ data to fit to. \item decide on the fitting space ($k$, $R$, or back-transformed $k$) and Fourier transform parameters to use. \item define a set of paths, including the {\feff} file to use and any numerical path parameters ($S_0^2$, $\Delta R$, $\sigma^2$ and the like). \item build a fitting model to determine what should be varied in the fit, what should be held constant, and what constraints should be put in place. \item execute the fit. \item inspect the results. \end{enumerate} \noindent If you made it this far in this manual, the first three items should be fairly straightforward. The $\chi(k)$ data can be read-in from a file or generated from the {\cmnd{spline}} command. When using data generated from other programs, an important point is that the {\ifeffit} array storing the $\chi$ data needs to be on an evenly spaced $k$-array, with the first point corresponding to $k=0$ and the $k$-grid of $\rm 0.05\,{\AA}^{-1}$. The {\tt{interp}} function can help align data onto this grid, with syntax like \begin{verbatim} read_data(file = my_chi.dat, type = chi, group = unaligned) new.k = range(0,ceil(my_chi.k),0.05) new.chi = interp(my_chi.k, my_chi.chi, new.k) \end{verbatim} \noindent This use of {\tt{range()}} and {\tt{ceil()}} guarantees that {\tt{new.k}} will start at zero, and goes out far enough in $k$, both of which are important. Deciding on the fitting space and Fourier transform parameters depends on what your data looks like, and what you're trying to get from the fit. Those are important topics, but left aside here in favor of getting through the mechanics efficiently. \subsection{Defining and Using Paths} \label{Ch:FEFFIT-paths} The fit of XAFS data with {\feff} calculations uses the idea of a {\emph{scattering path}} as the basic unit of the XAFS signal. Some approaches to XAFS analysis use the concept of a ``shell'' or ``sphere'', which are similar but not identical to the ``path''. A shell is generally thought of as a group of atoms, usually of the same atomic species, at roughly the same distance from the central atom. A path, on the other hand, represents a set of atoms through which the photo-electron can scatter from before returning to the central atom. For single-scattering XAFS the distinction is subtle, and possibly not worth worrying about -- but for multiple-scattering the difference is important, and the approach of using scattering paths is clearly superior. The total XAFS is then just a sum of these individual paths. A convenient aspect of this approach is that the sum can usually be limited by path distance or to a limited set of ``important'' paths. {\index{path!scattering}} {\index{path!compared to shell}} {\feff} {\footnote{{\ifeffit} requires version 5 or higher of {\feff}. {\feff}7 or higher is recommended for use with {\ifeffit}.}} calculates the XAFS contributions for each path separately. A series of files named {\feffndat} is written, one for each path with {\file{nnnn}} replaced with a 4 digit ``path index''. Starting with {\feff}8, all the scattering information for all the paths is written to the single file {\file{feff.bin}}. {\ifeffit} can use this file directly, or you can convert it to a series of {\feffndat} files with the appropriate {\tt{PRINT}} flag in {\feff} (consult the {\feff} documentation for details). {\feff} also writes out a single file of the sum-of-paths called {\file{chi.dat}}, but {\ifeffit} doesn't use this file -- it makes it's own sum-of-paths instead. {\index{path!sum over} \indexfil{feffnnnn.dat} \indexfil{feff.bin}} The {\cmnd{path}} command is used to define paths in {\ifeffit}. The path definition consists of a {\emph{path index}}, the {\feffndat} file to use for this path, a text-string label, and a set of path parameters which will be used to alter the XAFS for the path. The path index is an integer by which the path will be referred in {\ifeffit}. This path index does not need to be the same as the index used by {\feff}, but that is often a convenient way to label them. The syntax and keywords for the {\texttt{path}} command are listed in section~{\ref{Ch:Command:path}}. Specifically, the keywords {\texttt{s02}}, {\texttt{e0}}, {\texttt{delr}}, {\texttt{sigma2}}, and {\texttt{third}} give the ``standard EXAFS parameters'', and should look familiar to those who've used {\feffit}. There are three additional path parameters for the paths in {\ifeffit} that are {\emph{arrays}} to give $k$-dependent phase-shifts and amplitudes. While these may be necessary for some advanced analyses, or to extend the cumulant expansion, these $k$-dependent path parameters are infinitely abusable and should be used with caution. A typical path definition command would look like this: \begin{verbatim} path(index = 1, feff = feffcu01.dat, label = "Cu metal first neighbor", s02 = my_s02, delr = my_delr, sigma2 = my_ss2, e0 = my_e0 ) \end{verbatim} \noindent This defines path \#1 to be based on {\file{feffcu01.dat}}, and sets the path parameters $S_0^2$ , $\Delta R$, $\sigma^2$, and $E_0$ to take the values of the {\ifeffit} scalars {\tt{my\_s02}}, {\tt{my\_delr}}, {\tt{my\_ss2}}, and {\tt{my\_e0}}, respectively. Actually, since the {\cmnd{path}} command only defines the path parameters, you can use repeated calls instead of long continuation lines: \begin{verbatim} path(1, feff = feffcu01.dat) path(1, label = "Cu metal first neighbor") path(1, s02 = my_s02, e0 = my_e0) path(1, delr = my_delr, sigma2 = my_ss2) \end{verbatim} \noindent Note that the path index must be supplied for each execution of {\cmnd{path}}. Abbreviated {\cmnd{path}} commands like this are especially convenient for redefining path parameters. {\index{path!path parameter}} The {\feffndat} file is a very important part of the path definition. Each path must have a {\feffndat} file associated with it. But a {\feffndat} file can be used for more than one path definition -- this is a useful trick in many cases, and very important for multiple data set fits. Because of the likelihood of repeated use of {\feffndat} files, {\ifeffit} keeps an internal list of {\feffndat} files that have been read in, and will not read in a {\feffndat} more than once. In addition, the actual {\feffndat} file will not be read until it is needed. The file will {\emph{not}} be read in when you run the {\cmnd{path}} command, but rather when you actually need the information: either when {\cmnd{ff2chi}}, {\cmnd{feffit}} are executed or when you ask to see information about the path with {\tt{show @paths}} or {\cmnd{get\_path}}. So don't be alarmed if the {\cmnd{path}} command executes without seeming to have read the {\feffndat} file -- it's not supposed to.{\indexfil{feffnnnn.dat}} When summing paths with {\cmnd{ff2chi}} or {\cmnd{feffit}}, {\ifeffit} loops through each path, and sets scalars for {\tt{path\_index}}, {\tt{reff}}, and {\tt{degen}} corresponding to the ``current path''. This allows you to refer to {\tt{reff}} and {\tt{degen}} in definitions of Path Parameters and be assured that the right value will be used for each path. {\indexvar{reff} \indexvar{degen} \index{current path} \index{path!current}} As mentioned above, the {\tt{show @paths}} command is helpful in displaying which paths have been defined, and what their settings are. You may also view individual paths by specifying the path index: {\tt{show @path=1}} will show information for path 1, while {\tt{show @path=1,2,4}} will show that for paths 1, 2, and 4. A typical output from executing {\tt{show @paths}} would look like this: \begin{verbatim} PATH 1 feff = ../feff/feffcu01.dat id = Cu metal first neighbor reff = 2.547800, degen = 12.000000 s02 = 0.937476, e0 = -0.867040 dr = 0.007575, ss2 = 0.003522 3rd = 0.000000, 4th = 0.000000 ei = 0.000000, dphase = 0.000000 \end{verbatim} \noindent In addition to the simple {\cmnd{show}} command you can convert path information to Program Variables with the {\cmnd{get\_path}} command. This is a very simple command, taking only the path index and a prefix to use for the names of the output scalars: {\indexcmd{get\_path}} \begin{verbatim} get_path(1, prefix=path1) \end{verbatim} \noindent which will create Program Variables {\tt{path1\_s02}}, {\tt{path1\_e0}}, {\tt{path1\_delr}}, {\tt{path1\_sigma2}}, \ldots, {\tt{path1\_reff}} from the current values of the Path Parameters for that path. \subsection{Creating $\chi(k)$ data with {\texttt{ff2chi}}} \label{Ch:FEFFIT-ff2chi} Once a single path or set of paths have been defined, it is often desirable to convert them to $\chi(k)$ data so that they can be plotted and compared to one another or to data arrays. The {\cmnd{ff2chi}} command will do a simple sum-of-paths to give $\chi(k)$ data. This essentially mimics the final step of {\feff}, with the additional features like being able to alter any of the path parameters and include {\feffndat} files from different runs of {\feff} in the sum. {\indexcmd{ff2chi}} {\cmnd{ff2chi}} is a fairly simple command, with most of its arguments describing optional output parameters that are usually not needed. The main argument will be a ``path list'', which is a list of path indices to sum. Building on the path definition above, the simple \begin{verbatim} ff2chi(1, group=feff) \end{verbatim} \noindent will generate arrays {\tt{feff.k}} and {\tt{feff.chi}} from the path \#1 defined above. If we then add a second path, with \begin{verbatim} path(2, file = feffcu02.dat, s02 = s02, sigma2 = {sqrt(2) * ss2}, e0 = e0) \end{verbatim} \noindent we can add these two paths together, like this, \begin{verbatim} ff2chi(1,2, group=two_paths) \end{verbatim} \noindent which will generate {\tt{two\_paths.k}} and {\tt{two\_paths.chi}}. The path list for the {\cmnd{ff2chi}} (and {\cmnd{feffit}}) command can be a simple list like ``1,2,3,4'', or use a dash like ``1-6'', or some combination of both, like ``1, 3-8, 10, 100-105''. Be warned though that a path listed twice will be used twice. {\index{path!path list}} \subsection{Building a Fitting Model} \label{Ch:FEFFIT-model} Now for the tricky part. Like it's predecessor {\feffit}, the fitting of XAFS data in {\ifeffit} is general and flexible, allowing a variety of physical constraints to be imposed on the fit. This is made possible by having the ``Path Parameters'' be written as a mathematical function of variables and scalars. In many cases, the fitting model is simple and straightforward to implement. An example would be to use one path, and adjust parameters $S_0^2$, $E_0$, and $\Delta R$. To do this, you define variables for each of these parameters: \begin{verbatim} guess (my_s02 = 0.7 , my_ss2 = 0.021) guess (my_e0= 0.0123, my_delr = 0.1) \end{verbatim} \noindent and then use these variables in the path definition: \begin{verbatim} path(index = 1, feff = feffcu01.dat, label = "Cu metal first neighbor", s02 = my_s02, sigma2 = my_ss2, e0 = my_e0 , delr = my_delr) \end{verbatim} \noindent In the path definition, the left-hand-side names the path parameter (say, {\tt{s02}}) and the right-hand-side ({\tt{my\_s02}}) gives the formula used to calculate its value in terms of the variables and other {\ifeffit} scalars. Here it's a simple formula, but it could have been more complicated. Using {\tt{max(0.5, my\_s02)}} would put a lower limit on the value of the $S_0^2$ parameter, for example. An important feature of this approach of having the path parameters be functions of the variables (and not variables themselves) is that any variable like {\tt{my\_s02}} can be used multiple times, say to set the {\tt{s02}} parameter for different paths. In the most general case, the different path parameters can be quite complex functions of the set of fitting variables. \subsection{Executing a Fit} \label{Ch:FEFFIT-fit} Most of the hard work (and flexibility) for the user is in building the fitting model. The actual {\texttt{feffit}} command is actually fairly simple to execute. Like its cousin {\cmnd{ff2chi}}, {\cmnd{feffit}} sums a list of paths and generates $\chi(k)$ data. The principle difference is that {\cmnd{feffit}} does a fit -- the defined variables are adjusted until a set of data is best-fit. That means that, in addition to setting up the paths, you also have to set up the $\chi(k)$ data and and Fourier transform and fitting parameters for the {\cmnd{feffit}} command. {\indexcmd{feffit}} A simple example is probably best, so here's a relatively short but complete example of a fit. We read in a $\chi(k)$ data file, 1 feff path, define 4 variables, set up the Fourier transform parameters, and do the fit. It looks like this: {\small{ %%#VerbSBox% \begin{VerbSBox} # read in chi(k) data file read_data(file=../data/cu_chi.dat, type=chi,group=data) # turn off all previously defined variables unguess # give initial values for fitting variables guess s02 = 1.0 guess ss2 = 0.0 guess e0 = 0.0 guess delr = 0.0 # define a scattering path path(index = 1, feff = ../feff/feffcu01.dat, label = "Cu metal first neighbor", s02 = s02, e0 = e0, sigma2 = ss2, delr = delr) # define FFT parameters set (kmin = 2, kmax =17) set (kweight=2, dk1 = 1, dk2 =1) set (rmin = 1, rmax = 3) # keep initial guess , and generate chi(R) for it ff2chi(1, group=init) fftf(real = init.chi) # do the actual fit feffit(1, chi= data.chi, group = fit) # show results show @variables plot(data.r, data.chir_mag, color = blue, xmax = 7, new) plot( fit.r, fit.chir_mag, color = red) plot(init.r, init.chir_mag, color = black, style=dashed) \end{VerbSBox} %%#VerbSBox% }}\noindent We'll refer to this example for the next few sections. It's important to note that the Fourier transform parameters are set once here, not at each call to {\cmnd{fftf}} and {\cmnd{feffit}}. This relies on the default values for the Fourier transforms being taken from the appropriately named scalars. The values could be set directly in each call to {\cmnd{fftf}} and {\cmnd{feffit}}, but then you have to be more careful that the Fourier transform parameters are the same for all of the commands. The convention here is a very convenient and reduces chance of typing errors. The {\cmnd{feffit}} command generates the best-fit values for the {\tt{guess}}ed variables ({\tt{s02}}, and so on in this example). It also generates {\chir} arrays for the data and best-fit -- the {\tt{data.r}}, {\tt{data.chir\_mag}}, {\tt{fit.r}}, and {\tt{fit.chir\_mag}} arrays here -- so that they're immediately ready for plotting or saving to file. \subsection{Estimating the uncertainties in fitted variables} \label{Ch:FEFFIT-error} {\index{Feffit!uncertainties in variables}} The uncertainties in the fitted variables will be estimated by the {\texttt{feffit}} command immediately after the fit is done. No extra input from the user is required for this automated error analysis. The correlations between pairs of variables will also be calculated. We'll get to those is a bit, after talking about the variable uncertainties. For each variable {\tt{xxx}}, the scalar {\tt{delta\_xxx}} will be used to store the estimated uncertainty for that variable. This allows you to see the uncertainties two ways. Either you can either view the set of variables, best fit values and uncertainties together \begin{verbatim} Iff> show @variables s02 = 0.93747649 +/- 0.02586825 e0 = -0.86703986 +/- 0.34801825 delr = 0.00757485 +/- 0.00153554 ss2 = 0.00352229 +/- 0.00015579 \end{verbatim} \noindent or you can select individual variables or uncertainties \begin{verbatim} Iff> show s02, delta_s02, e0, delta_e0 s02 = 0.937476486 delta_s02 = 0.025868253 e0 = -0.867039864 delta_e0 = 0.348018253 \end{verbatim} \noindent The estimated uncertainties reflect the goodness-of-fit statistics and include the correlations between variables. Of course, the uncertainties are only an estimate. Also, note that if a variable is later set with a {\cmnd{set}} or {\cmnd{def}} command, the scalar {\tt{delta\_xxx}} will remain, probably holding an irrelevant value. {\indexcmd{correl}} As mentioned above, the correlations between pairs of fit variables are also generated by {\cmnd{feffit}}. Because there are very many possible correlation parameters, many of which are small and uninteresting, these values are {\emph{not}} automatically converted to Program Variables, but are kept internally (until the next time you execute a {\cmnd{feffit}} or {\cmnd{minimize}} command.) To view the correlations or to convert them to Program Variables, you can use the {\cmnd{correl}} command. A simple way to print out all the correlations is to say \begin{verbatim} Iff> correl(@all,@all,print) correl_delr_s02 = 0.115944 correl_delr_e0 = 0.870971 correl_ss2_s02 = 0.880360 correl_ss2_delr = 0.116302 \end{verbatim} \noindent The will create the scalars shown ({\tt{correl\_XX\_YY}} for variables {\tt{XX}} and {\tt{YY}}) and print out their values. The {\cmnd{correl}} command (further discussed in section~\ref{Ch:Command:correl}) takes its first two arguments as the name of the variables to find the correlation of (with the special value {\tt{@all}} meaning to find the correlations with all variables). The keyword {\tt{print}} means to print out as well as save the correlation values. The minimum correlation (absolute value) to report can be set with the {\tt{min}} keyword -- the default value is 0.05. %%%! \subsection{Goodness of Fit Parameters} \label{Ch:FEFFIT-goodness} {\index{Feffit!goodness-of-fit}} {\index{Feffit!$\chi^2$ statistic}} {\index{Feffit!${\cal{R}}$ statistic}} {\index{Feffit!$N_{\rm idp}$}} In addition to doing the fit, the {\cmnd{feffit}} command generates a few scalars for the goodness-of-fit statistics. The scalars {\texttt{chi\_square}}, {\texttt{chi\_reduced}}, and {\texttt{r\_factor}} will contain the values of goodness-of-fit parameters $\chi^2$, $\chi^2_{\nu}$, and ${\cal{R}}$, respectively. The estimated uncertainties in the data in $k$ and $R$ space will be stored in {\texttt{epsilon\_k}}, and {\texttt{epsilon\_r}}. Details of these calculations are given in {\XAIBook}. In addition, the number of variables in {\texttt{n\_varys}}, the number of fit iterations in {\texttt{\&fit\_iteration}}, and the number of independent points in the data in {\texttt{n\_idp}}, which is defined as \[ N_{\rm idp} = { {2 \Delta_k \Delta_R}\over{\pi}} \] \noindent where $\Delta k = $ {\tt{kmax}}-{\tt{kmin}} and $\Delta R = $ {\tt{rmax}}-{\tt{rmin}}. This value gives an estimate of the maximum number of parameters that can be determined from the data. The estimated uncertainties reflect the goodness-of-fit statistics and include the correlations between variables. Of course, the uncertainties are only an estimate, and there are a couple of things you can do to affect these estimates. By far the most important thing you can do is to improve the fit -- that's not always that easy. The goodness-of-fit parameters and, to a very small extent the uncertainties in the fitted parameters, depend on the estimated uncertainty in the data (which can be specified either in $k$- or $R$-space). Normally, {\cmnd{feffit}} automatically estimates these for you from the data itself and you don't have to worry about them. If, on the other hand, you want to worry about or change these values, you can use the {\cmnd{chi\_noise}} command to do this. {\cmnd{chi\_noise}} will estimate the uncertainty in the XAFS data {\chik} and {\chir} ({\texttt{epsilon\_k}} and {\texttt{epsilon\_r}}, respectively), based on the assumption that the noise in the data can be approximated from the high-$R$ components of {\chik}. This can be done explicitly simply as {\indexcmd{chi\_noise} \indexvar{epsilon\_k} \indexvar{epsilon\_r}} \begin{verbatim} Iff> chi_noise(chi = data.chi) \end{verbatim} \noindent which will calculate {\texttt{epsilon\_k}} and {\texttt{epsilon\_r}}, given the current set of Fourier Transform parameters (you can give these with the usual parameters, of course). If this default calculation for the uncertainty in the data is not good enough for your needs, you can explicitly specify the value of {\texttt{epsilon\_k}} or {\texttt{epsilon\_r}} to use in the {\cmnd{feffit}} command: \begin{verbatim} Iff> feffit(1, chi= data.chi, group = fit, epsilon_k = 0.0008) \end{verbatim} \noindent This will alter the resulting values for {\texttt{chi\_square}} and {\texttt{chi\_reduced}}, but not {\texttt{r\_factor}} or the uncertainties in the fitted variables. \subsection{Post-Fitting Tasks} \label{Ch:FEFFIT-post} {\cmnd{feffit}} will generate $\chi(R)$ for the data and total best-fit. It will not, however, generate the back-transforms $\chi(k)$ or the $\chi(R)$ for the individual paths directly. {\cmnd{ff2chi}} will not generate $\chi(R)$ or back-transformed $\chi(k)$ either. So, depending on which set of paths (or partial sums of paths) you'd like to see, you may want to generate the contribution from paths separately by calling {\cmnd{ff2chi}}, and possibly {\cmnd{fftf}} several times. Such tasks are an ideal job for macros or scripts. As a simple example of a pair of macros I use often, consider \begin{verbatim} macro makepath 1 "make chi(k) and chi(R) for a single path" ff2chi($1, group=path$1) fftf(real = path$1.chi) end macro macro showpath 1 makepath $1 plot(path$1.r, -path$1.chir_mag, $2) end macro \end{verbatim} \noindent % $ This pair can then be used after a fit like this to show the data and best-fit, and the contributions from each path: \begin{verbatim} feffit(1-3, chi= data.chi, group = fit) newplot data.r, data.chir_mag, xmax=7 plot fit.r, fit.chir_mag showpath 1 "color=blue" showpath 2 "color=red" showpath 3 "color=black,style=linespoints2" \end{verbatim} \noindent You'll also have to manage the writing of output files of the data and fit yourself too, as well as log files. You may want to plot the data and fit first, or look at the variables and then try re-defining some paths or path parameters of variables, or whatever else you can think of to get that perfect fit. Again, using {\cmnd{feffit}} well is generally helped greatly by writing macros for such tasks. \subsection{Additional Fitting Features of {\texttt{feffit}}} \label{Ch:FEFFIT-advanced} Though already somewhat complex and feature-rich, the use of {\cmnd{feffit}} described so far really only shows the basic fitting capabilities of the {\cmnd{feffit}}. Scattering paths are defined, what to vary and what to keep fixed in the fit is described, and the paths are summed together until they match the data, and the results are inspected. It is by no means trivial or easy to come up with a realistic fitting model or assess whether a fit is meaningful, but {\cmnd{feffit}} as described so far gives you all the tools to do these tasks. In the rest of this chapter, more advanced features of {\cmnd{feffit}} are described. The features include the ability to refine the background ($\mu_0(E)$) parameters at the same time as the structural model, the ability to include additional knowledge about the physical parameters of the systems, and the ability to create and fit a model describing more than one data set at a time. I call these features ``advanced'', but most of these features are very easy to use, especially when compared to the rather large undertaking of building up a simple fitting model. That is to say that although these features may seem like ``advanced topics'', and so best left alone by the beginner, they can, in fact, help greatly in assessing the quality and reliability of many fits, and should be kept in mind for many analyses, even by fairly new users. These abilities are being built-in to the {\artemis} GUI program, and I heartly recommend trying these features. \subsubsection{Including Background Refinement} \label{Ch:FEFFIT-bkg} {\index{Feffit!do\_bkg}} It is often desirable in XAFS analysis to understand how the background absorption function effects or is affected by the structural fitting parameters. Trationally, this has been difficult to do, as background removal and parameter fitting have been completely separated. Though {\ifeffit} still separates these procedures, the {\cmnd{feffit}} command can be used to modify background-like parameters for {\chik} at the same it modifies structural parameters. This option is very easy to add to a fit: simply add the argument {\tt{do\_bkg = true}} to {\cmnd{feffit}}: \begin{verbatim} Iff> feffit(1, chi= data.chi, group = fit, do_bkg=true) \end{verbatim} \noindent This will automatically add several variables to define a smoothly varying spline $\mu_0(k)$ (now in $k$-space instead of $E$-space) that will be added to the model {\chik} to match your data. The miminum $R$ value used in the fit will be set to 0.0. The {\emph{number}} of spline parameters will be determined by {\tt{rmin}}, which now takes the role of {\tt{rbkg}} in the {\cmnd{spline}} command) so that the spline will only be ``free enough'' to easily match the low-$R$ portion (ie, those parts below {\tt{rmin}}) of the spectra. The main purpose of this feature is to investigate how the background parameters are correlated with the structural (or rather, traditional) fitting parameters. The additional outputs from using this switch are a set of fitting variables {\tt{bkg01\_01}} \ldots {\tt{bkg01\_NN}} for {\tt{NN}} background variables. The uncertainties in these variables and the correlations between these and the traditional fitting parameters will be available as normal. Note that this feature can greatly increase the number of fitting variables and therefore slow down the fit. In addition to adding the {\tt{bkg01\_NN}} fitting variables, the {\tt{do\_bkg}} switch will also cause the output of additional array, {\tt{fit.kbkg}} which will contain the additional background function, $\mu_0(k)$ added to the model in order to match the data. \subsubsection{Constraints and Restraints in Fitting} \label{Ch:FEFFIT-restraints} {\index{Feffit!restraints}} {\index{Feffit!constraints}} The amount of information available from XAFS is limited, and there is often a fair amount known about the system before you even collect XAFS on it. Because of this, the ability to include some {\emph{prior knowledge}} about the physical parameters describing the system can be very important to a successful analys. As a first step, you need to be able to impose relationships between path parameters affecting the fit, for example to say that {\tt{e0}} should be the same for all paths, or that {\tt{delr}} of one path should be related to that of another path. Up to now, we've only discussed imposing constraints between parameters, using the {\cmnd{def}} command as discussed in section~\ref{Ch:Structure-SetDef} to define an exact mathematical relationship between two or more parameters. Sometimes, however, our prior knowledge is not exact and it desirable to impose {\emph{inexact}} knowledge or {\emph{preferences}} on the fit. This can be easily accomplished with a {\bf{restraint}}. Whereas as {\bf{constraint}} is a hard, exact relationship imposed on the fit, a {\bf{restraint}} is a softer relationahip imposed on the fit. I'll avoid an in-depth discussion of restraints in XAFS analysis here, in favor of describing how to do them with {\ifeffit}. A restraint is essentially a scalar to be added as an additional element of the vector for the least-squares minimization. To make this happen, you need to define the restraint condition expressed as a scalar value that you would like minimized in the least-squares fit of the data, and then to identify this scalar with the {\tt{restraint}} keyword in {\cmnd{feffit}}. A simple (if not altogether useful) example would be to impose a restraint that a distance $R$ should be near some value expected from other information: \begin{verbatim} set r_expect = 2.5400 set weight = 0.01 def res1 = (reff + delr - r_expect) / (weight) feffit(1, chi= data.chi, group = fit, restraint=res1) \end{verbatim} \noindent The fit will add the restraint value defined by {\tt{res1}} to the normal sum-of-squares of the difference between data and fit. An important concept here is the relative weight (represented here with the imaginitively named scalar {\tt{weight}}) between restraint condition and the normal fit to the data. This topic is left for later discussion. \subsubsection{Multiple-$k$-Weighting} \label{Ch:FEFFIT-multi-k-fit} {\index{Feffit!multiple $k$-weights}} As we'll see in the next section, {\ifeffit} can simultaneously fit more than one data set at a time. In the {\feffit} program, one early and very common use of this feature was to fit the same data set with more than one $k$-weight at a time. This is an important ability, as simultaneous fits with more than 1 $k$-weight can significantly reduce the correlation between the EXAFS parameters $R$ and $E_0$ and between $NS_0^2$ and $\sigma^2$. This ability is so important that it is implemented in {\ifeffit} directly, without the need to use the more complicated mechanism of multiple data-set fits. To fit with only one $k$-weight at at time, you simply give the $k$-weighting power with the {\tt{kweight}} keyword: {\tt{feffit(\ldots,kweight=2,\ldots)}}, or rely on the previously defined value of the scalar {\tt{kweight}}. To fit with more than one $k$-weight at at time, you simply give repeated values of {\tt{kweight}}, as in \begin{verbatim} Iff> feffit(1, chi= data.chi, kweight=2, kweight=0, kweight=4) \end{verbatim} \noindent which will cause the fit to use $k$-weights of 0,2, and 4 at the same time. Up to 5 $k$-weights can be used simultaneously. You must list all the $k$-weights explicitly, however, and the value in the {\tt{kweight}} scalar will not automatically be used. When fitting with multiple $k$-weights, the order of the listed $k$-weights only matters for the weight of the automatically created output {\chir} arrays. These will be formed using the {\bf{first}} $k$-weight listed. Of course, to get arrays for the other $k$-weights, you can also construct your own output arrays using {\cmnd{ff2chi}} and {\cmnd{fftf}} as described in section~{\ref{Ch:FEFFIT-post}}. \subsubsection{Simultaneous Fitting of Multiple Data Sets} \label{Ch:FEFFIT-multi} {\index{Feffit!multiple data sets}} A very important feature of {\ifeffit} is ability to simultaneously fit more than one data set at a time. To be honest, unlike most of the features above, this really is something of an advanced topic, and you should probably be fairly well-acquainted with using the {\cmnd{feffit}} command or with using the older {\feffit} program before trying this yourself. As discussed in the previous section, fitting multiple data sets while only varying the $k$-weighting is no longer necessary in {\ifeffit}. The key concept in simultaneously fitting multiple sets of data is pose the fitting model to the {\emph{set}} of spectra, not to individual spectra. This can greatly change the physically model imposed. Nonetheless, even for simple data, the simultaneous analys of multiple data sets can be valuable, as the two key non-structural XAFS Path Parameters (namely, $S_0^2$ and $E_0$) can often be asserted to be the same for a set of data that has been measured under similar experimental conditions and that is carefully aligned in energy. To fit more than one data set at a time, you simply give a series of {\cmnd{feffit}} commands for fits to each of the individual data sets, while identifying each data set as unique, and giving the total number of data sets to be simultaneously fit. The actual fit will not actually be done until all the expected fits to the individual data sets have been defined. Fitting variables, path indices, and all program variables are globally available, and can be shared between the models for the different data sets {\footnote{For those of you with experience with {\feffit}, the concept of the ``local'' variable does not exist in {\ifeffit}. All variables are truly global.}}. Since all path definitions are visible to all fits, you may have to define different paths that are very similar to one another for fits to different data sets. A simple example will illustrate this. We'll stick with Cu metal, and fit the data for 3 different temperatures simultaneously. In fact, we'll use the Einstein model for $\sigma^2$, and vary the Einstein temperature in the fit instead of the individual {\tt{sigma2}} parameters. For those with experience using {\feffit} for multiple-data-set fits, the example shown below should look familiar. The paths for each data set are defined separately: even though they really use the same {\feffndat} file, the values of the Path Parameters {\tt{delr}} and {\tt{sigma2}} may be different. In fact, each of these parameters is taken to be temperature dependent: {\tt{delr}} is linear in temperature and {\tt{sigma2}} is calculated from the Einstein model. Each {\cmnd{feffit}} command includes {\tt{data\_set}} to identify each data set , and {\tt{data\_total}} to tell how many total data sets there will be. The fit is not really done until {\tt{data\_total}} is equal to the total number of defined data sets -- in this case 3. {\small{ %%#VerbSBox% \begin{VerbSBox} # simultaneous fit to 1st shell XAFS for Cu at 10K, # 50K, and 150K using einstein model for sigma^2 guess (s02 = 0.9, e0 = 3.5) guess (alpha = 0.0, beta = 0.00, theta = 240) rmin = 1.60 , rmax = 2.75 kmin = 1.5 , kmax = 18.5 dk = 1.0 , kweight = 2 read_data(file= ../data/cu10k.chi, group=dat_10, type=chi) read_data(file= ../data/cu50k.chi, group=dat_50, type=chi) read_data(file= ../data/cu150k.chi,group=dat_150,type=chi) path(index = 101, feff = ../feff/feffcu01.dat, label = "Cu metal first shell, for 10K", s02 = s02, e0 = e0, sigma2 = eins(10, theta), delr = reff * (alpha + 10.0 * beta) ) path(index = 201, feff = ../feff/feffcu01.dat, label = "Cu metal first shell, for 50K", s02 = s02, e0 = e0, sigma2 = eins(50, theta), delr = reff * (alpha + 50.0 * beta) ) path(index = 301, feff = ../feff/feffcu01.dat, label = "Cu metal first shell, for 150K", s02 = s02, e0 = e0, sigma2 = eins(150, theta), delr = reff * (alpha + 150.0 * beta) ) feffit(chi = dat_10.chi, group = fit_10, 101, data_set=1, data_total=3) feffit(chi = dat_50.chi, group = fit_50, 201, data_set=2, data_total=3) feffit(chi = dat_150.chi, group = fit_150, 301, data_set=3, data_total=3) show @variables, r_factor, chi_square \end{VerbSBox} %%#VerbSBox% }}\noindent ifeffit-1.2.11d/doc/RefMan/intro.tex0000644000175000017500000000715110771740460016154 0ustar segresegre%% \section{Introduction} \label{Ch:intro} {\ifeffit} is a program and programming library for analyzing x-ray absorption fine-structure (XAFS) data. As its name may suggest, {\ifeffit}{\footnote{The name was originally intended to stand for {\program{interactive}} {\feffit}, but I sort of like the simple self-declarative nature of the name as well as the literary allusion to {\textsl{I, Claudius}} and {\textsl{I, Robot}}. It could also be interpreted as the answer to the question, "How do you analyze your XAFS data?". It is in no way intended as a subliminal insertion of {\feff} into that {\emph{other}} Chicago technological institute known to do some XAFS.}} gives an interactive method for fitting XAFS data using calculations from {\feff}, and is based on the fitting program {\feffit} of the {\uwxafs} Analysis Package. There have been significant additions to {\feffit}, and the user interface has been completely rewritten. {\ifeffit} is a complete XAFS analysis package, allowing general data manipulation, analysis, and plotting, as well as meeting the unique demands of analyzing XAFS data. For those of you familiar with the {\uwxafs} Package, {\ifeffit} combines the functionality of {\autobk} and {\feffit} and adds many more features. A major goal of {\ifeffit} is to make a graphical user interface (GUI) for XAFS analysis, but {\ifeffit} is not simply a GUI program by itself. It is, instead, a command-based library that can be run either as a command-line program or called from other programs, including both graphical and non-graphical interfaces. At this writing, an enhanced command-line program named {\gifeffit} is distributed with {\ifeffit}, and the GUI programs {\program{athena}}, {\program{artemis}}, {\program{tkatoms}}, {\program{hephaestus}}, and {\program{sixpack}} make use of {\ifeffit}. This {\textsl{Reference Guide}} describes the commands and syntax of {\ifeffit}, and is intended for people who want direct access to the underlying '{\ifeffit} engine', either directly from the command-line program or through their analysis scripts. While the high-level GUI wrappers such as {\program{athena}}, {\program{artemis}}, and {\program{sixpack}} provide most of the functionality needed for XAFS analysis, some sientists will appreciate a simple, scriptable command-based interface to a core set of XAFS analysis routines. The commands and syntax described here are an attempt to provide such an interface. This guide starts with an example in Chapter~\ref{Ch:Basics} and then discusses the general syntax and structure of the commands in Chapter~\ref{Ch:Structure}. The next several chapters give more in-depth information about input and output files, plotting, fitting XAFS data with {\feff} calculations, and fitting non-XAFS data to simple functions. Chapter~\ref{Ch:Commands} lists all the commands and their complete syntax. Chapter~\ref{Ch:Macros} discusses writing simple macros for {\ifeffit} and more complicated scripts using scripting languages. In addition to this {\textsl{Reference Guide}}, there is also {\textsl{The {\ifeffit} Tutorial}} which gives a more gentle introduction to {\ifeffit}. More information about {\ifeffit}, including installation instructions, further examples, an archived mailing list, and the other documention are available with the source code and at the {\ifeffit} web site: {\WWWiff} \subsection*{Acknowledgements} \label{ch:intro-ack} {\ifeffit} was written with helpful suggestions from Julie~Cross, Bruce~Ravel, and John~Rehr. More detailed and up to date acknowledgements can be found in the {\file{THANKS}} file distributed with {\ifeffit}. ifeffit-1.2.11d/doc/RefMan/title_html.tex0000644000175000017500000000144110771740460017162 0ustar segresegre \begin{htmlonly} \begin{rawhtml}

The IFEFFIT Reference Guide

Matthew Newville
Consortium for Advanced Radiation Sources
University of Chicago, Chicago, IL

\end{rawhtml} Version {\Vers} \begin{rawhtml}
\end{rawhtml} {\update} \begin{rawhtml}

This Reference Guide is also available in the following formats:
[ PDF | Postscript ]

Important Note:
This Reference Guide is incomplete and may contain bugs!
Suggestions for improvements are welcome.
Thanks for your patience!

Matt \end{rawhtml} \end{htmlonly} ifeffit-1.2.11d/doc/RefMan/structure.tex0000644000175000017500000016025010771740460017061 0ustar segresegre\section{Structure and Syntax of {\ifeffit}} \label{Ch:Structure} This chapter takes an in-depth view at {\ifeffit}'s data and syntax. It is more formal and in-depth than the previous chapter, but most of the topics here were touched on there. For those of you with some programming experience or some familiarity with {\feffit}, nothing in this chapter should be too confusing. In some sense, {\ifeffit} is a language for data analysis and this chapter describes the {\ifeffit} language. As a programming languages, {\ifeffit} is pretty weak, missing many key features. Since {\ifeffit} is really XAFS data analysis program, I'll try not to make this sound like a programming text, and keep the examples in the previous chapter close at hand throughout this chapter. {\ifeffit} keeps a common storage areas for all its data, and gives you access to this data through named variables. You are allowed to pick your own variable names for your data and create and do simple algebraic manipulation on your data. In the previous chapter we saw an example of this when we read in data from a file to variables with names corresponding to the column labels in the file, and then constructed $\mu(E)$ ourselves by simple manipulation of this data. %%00%% \subsection{Commands} \label{Ch:Structure-cmnd} {\ifeffit} is a command-based program, and every operation you type at the command-line or send to {\ifeffit} through a script is a interpreted as a command. Most {\ifeffit} commands have syntax like this: \begin{verbatim} Ifeffit> command(argument1, argument2, ... ) Ifeffit> command(keyword= value, keyword= value, keyword= value, ...). \end{verbatim} \noindent That is, there is a unique command name that is given first, then a set of arguments separated by commas. Most arguments are keyword/value pairs, which have the form {\tt{keyword= value}}, where {\tt{keyword}} is a predefined string and {\tt{value}} is the value you wish to assign to it. Some commands use arguments that are not keyword/value pairs, but have some or all of their arguments be lists of strings or program variables, but the majority are keyword/value pairs. We'll come back to these topics in section~\ref{Ch:Structure-commands}. The enclosing parentheses for commands are optional, so that \begin{verbatim} Ifeffit> command keyword= value, keyword= value \end{verbatim} \noindent is allowed. If you use an open paren ``('', you must match it with a close paren ``)'', even if that means the command extends over several lines. That allows commands to be extended over several lines, which will be necessary in some cases. Commands are not processed until they have matching open and closing parentheses. When using the command-line program, you'll get a prompt of {\tt{\ldots>}} instead of the usual {\tt{Ifeffit>}} when a command is partially completed. As we will saw in the example in the previous chapter, and as we will see in the next few sections, a significant amount of the command-line processing you will do with {\ifeffit} is to create and define Program Variables from your data. These procedures are done with the commands {\cmnd{def}} and {\cmnd{set}} which differ slightly but which both have the effect of specifying a value for a Program Variable. That is \begin{verbatim} Ifeffit> def(kweight = 2.0, kmin = 2.50, kmax = 15.4) \end{verbatim} \noindent will create and define (or redefine, if they already existed) values for the Program Variable {\tt{kweight}}, {\tt{kmin}}, and {\tt{kmax}}. But, as you have probably noticed, we didn't use the {\cmnd{def}} or {\cmnd{set}} command in the previous example, and simply said \begin{verbatim} Ifeffit> cu.energy = cu.1 * 1000.0 Ifeffit> cu.xmu = ln(cu.2 / cu.3) \end{verbatim} \noindent This is because the default command it {\cmnd{def}}. That is, if the first word on the command line is not a known command or macro (which we'll get to eventually), the {\cmnd{def}} command is used. An important consequence of this is that when you do really want to use the {\cmnd{set}} command, you'll need to specify it explicitly. We'll come back to this topic in section~\ref{Ch:Structure-SetDef}. For know, you can simply remember that \begin{center} {\bf{\large{The default command is {\cmnd{def}}.}}} \end{center} %%00%% \subsection{Scalars, Arrays, and Strings} \label{Ch:Structure-variables} {\ifeffit} has three types of variables: numeric scalars, numeric arrays, and text strings. I'll call all of these ``Program Variables'' throughout this Reference Manual to mean all the named quantities that {\ifeffit} knows about -- you shouldn't confuse ``Program Variables'' with values that are adjusted in a fit which I'll call ``Fitting Variables'' (see section~\ref{Ch:Structure-Guess}) when there's room for confusion. If you have some programming experience, {\ifeffit}'s data types should be familiar: numeric scalars are real numbers, numeric arrays are arrays of real numbers, and text strings are sequences of characters. If that you're not familiar with the ways computers store data, numeric scalars contain a single number, numeric arrays contain a set of numbers that is referred to as a whole, and text strings contain a single line of text. {\ifeffit} uses double precision (64bit) floating point numbers for all it's numeric values, and does not have a separate integer type. Due to implementation limitations, the maximum number of elements in an array is 16384, and the maximum length of text strings is 128 characters. These limits are set when {\ifeffit} is built. In principle, these limits could be changed, but I wouldn't guarantee it to be easy to do. All Program Variables are named, and are {\emph{global}} in the sense that every part of {\ifeffit} sees the same variables using the same names. As you use {\ifeffit}, you will define variables for your data, and tell the commands which data to use by name. In turn, {\ifeffit}'s commands will access variables by name, and may even create named variables or overwrite the values of variables already defined. That is, the variables you create and the ones that the {\ifeffit} commands use will live in the same ``name-space''. This gives you and {\ifeffit}'s commands equal access to the variables. Thought this should definitely be seen as a strength, it also means that you should use some care in naming your variables. Normally, there's not much too worry about, as long as you avoid things like trying to store the value of $E_0$ in a variable named {\tt{kmin}}. In general, {\ifeffit} expects named variables to store quantities {\bf{it}} expects. A glossary of the names and meanings {\ifeffit} expects is listed at the end of Appendix~\ref{App:Glossary}. To create a variable, you would say something like {\tt{phi = (1 + sqrt(5))/2}}. To set the value of $k_{\rm min}$ (used by several commands for Fourier transforms), you might say {\tt{kmin = 1.00}}. You can also use any variable to assign to other variables. If you were so inclined, you could have said something like {\tt{kmin = phi*(phi-1)}}, or possibly something along the lines of {\tt{x= exp(0), kmin = 4*atan(x)/pi}} is more of your idea of a good time. Actually, these aren't exactly equivalent ways to define variables, but we'll get to that shortly. {\ifeffit} uses a simple and strict naming convention for Program Variables, and distinguishes the 3 variable types {\emph{by name}}. This means that everyone (and every command) can tell the variable type from its name alone. The convention may be a somewhat unusual, but shouldn't be very difficult to get used to. The rules are: \begin{enumerate} \item {{Text strings}} have names that begin with a dollar sign ({\$}). Names for numeric scalars and arrays do not begin with a dollar sign. \item {{Arrays}} have names that contain one dot (``.''), with at least one character before and after the dot. This gives arrays a prefix and suffix, which leads to a convention: the {\emph{prefix}} is associated with the {\emph{group}} of the array, and the {\emph{suffix}} describes the contents of the array. Neither scalars nor text strings may have a dot in their name. \item Scalars, the prefix and suffix of arrays, and the characters in the name of a text string after the dollar sign can contain only letters, numbers, '\&', '?', ':', and `\_' (underscore). They are limited to 64 characters. \item Scalars and array prefixes names cannot begin with a numeral. Text strings and the suffixes of array names can begin with a numeral. \item Variable names are not case-sensitive. \end{enumerate} \noindent Some examples of the naming convention: `\$file' and `\$plot\_color' are text strings. So is `\$20', but `\$19.95' is {\emph{not}} allowed. `\$1' is a valid name for a text string, but {\ifeffit} uses `\$1' \ldots `\$9' as special variables for macro arguments (see chapter~\ref{Ch:Macros}) and it will likely cause confusion if you actually try to use such variable names, especially in macros. `\$test.1' is not allowed, nor is `dec\$window' (it contains a `\$' in the middle of it's name, and might inspire a wistful pining for VMS). Array names look like `my.energy' and `data.chi'. `X.11' is allowed, and as we saw in the previous chapter, the common convention for how to name data from column files, but `8.3' is not allowed as a variable (because it's a plain number). Typical scalar names are `E0' and `edge\_step'. `10th\_var' is not allowed, since it starts with a numeral. Neither `data-10' nor `the\_end.' are allowed (the former contains a minus sign, the latter has a dangling dot `.'). `\&' is allowed in variable names, and by convention, several built-in ``system'' scalar variables begin with `\&', notably {\tt{\&print\_level}} and {\tt{\&screen\_echo}}. The characters '?', '\_', and ':' are also allowed in variable names, and are not currently given any special meaning. Speaking of special characters, `@' is not allowed in any variable names, but is used with the {\cmnd{show}} command as a primitive wildcard or glob character. In addition, `*' is used in the {\cmnd{write\_data}} command as a glob character, to match multiple string names, but isn't allowed in real string names. We'll come back to these glob characters later. The naming convention gives a clear distinction between the three types, making life easier on all of us. Text strings will likely be used less than numbers, so the extra {\$} (with the mnemonics of ``string'' for English speakers) was chosen for text strings. The `.' in an array name suggests that they are associated with files (or data structures for the programmers out there). It also gives a prefix and a suffix to the array names, which gives a handy convention for grouping them together. Though this convention can be disregarded, it is generally a good idea to use the prefix to associate related arrays (say, from the same file, or along a single line of analysis), and to use the suffix to distinguish the contents of the array. This allows {\cmnd{read\_data}} to assign decent array names based either on the column labels in the file or on the {\tt{type}} and {\tt{group}} keywords. It also means you can have arrays named {\tt{Cu1.xmu}} and {\tt{Cu2.xmu}}, containing $\mu(E)$ data from two different files. A {\cmnd{spline}} command with {\tt{Cu1.xmu}} would generate {\tt{Cu1.bkg}}, etc, while a {\cmnd{spline}} on {\tt{Cu2.xmu}} would generate {\tt{Cu2.bkg}}, etc. One more thing on naming conventions: though we haven't discussed macros much yet, macros are named sequences of {\ifeffit} commands. They share the same naming rules as plain scalars. In fact, {\emph{commands}} also share the same naming rules as plain scalars. To avoid confusion, you cannot assign a scalar a name of an existing macro or command. By the same token, you won't be able to create a macro with the name of a known scalar or command. Before leaving this section I should admit that there actually is some data that you do not have direct access to through the Program Variables. The most notable example of data that is {\emph{not}} available through Program Variables is the complete set of information for an EXAFS Path. The hiding of this data was a difficult design decision, but I felt it provided a simpler and cleaner interface {\footnote{If you have some programming experience, it might help to think of Paths as Objects: A complex data structure which you cannot access directly, but only through the supplied methods. In this view, path() defines and creates a path object, and the commands {\cmnd{show}}, {\cmnd{ff2chi}} and {\cmnd{feffit}}, the functions {\tt{debye()}} and {\tt{eins()}}, and special variables like {\tt{reff}} and {\tt{degen}} access this data.}}, and one that was more amenable to expanding. For the most part, you probably won't even notice that this path data is missing. Besides, almost all of the information about a Path can be converted into Program Variables. %%00%% \subsection{Dynamic Variables: {\texttt{Set}}, {\texttt{Def}}, and {\texttt{Sync}}} \label{Ch:Structure-SetDef} As seen in the previous chapter, you can define your own variables in {\ifeffit} simply like this: \begin{verbatim} Ifeffit> a = 1, b = 3 Ifeffit> c = (a + b)/2 \end{verbatim} \noindent When you say something like this, it's pretty clear that the value of {\tt{c}} should be 2. But a complication can arise when you redefine a variable. For example, if you now say \begin{verbatim} Ifeffit> b = 5 \end{verbatim} \noindent Should {\tt{c}} be 2 or 3? There are two slightly separate parts to this question, and both are important for understanding how {\ifeffit} works: 1) should {\ifeffit} store the value or the formula for a defined variable? and 2) if the formula is stored, how often should the value be re-evaluated? The answer to question 1 is that {\ifeffit} can store either the value or the formula for a variable. It stores the formula by default, which means that {\tt{c}} will be 3. If you don't want the formula stored, but want the current value of an expression {\emph{at the time of definition}}, use {\cmnd{set}} command should be used: \begin{verbatim} Ifeffit> set (c = (a + b)/2 ) \end{verbatim} \noindent With {\cmnd{set}}, the formula is not stored, so no matter what values {\tt{a}} or {\tt{b}} are changed to, {\tt{c}} will be 2. This ``store the formula'' aspect of {\ifeffit} is fairly unusual in data-processing programs and languages. {\ifeffit} is primarily designed for complex data {\emph{modeling}}, and this approach is extremely useful for setting up complex models for fitting. Well, that brings us to the second question: if the formula is stored, when will {\tt{c}} be re-evaluated? Normally, {\ifeffit} automatically re-evaluates the variables for you. As you might imagine, if lots of interrelated formulas are stored, re-evaluating them to make sure they're all consistent can turn become complicated and inefficient. {\ifeffit} tries to hide all this from you, and isn't as inefficient as you might guess{\footnote{That is, it's not storing the text string for the formulas and re-using them -- that would be far too inefficient for data modeling. Instead, {\ifeffit} parses and converts the formula into a sort of `byte-code' for easy re-evaluation. The {\cmnd{sync}} command inspects this `byte-code' for each formula to determine the simplest order of re-evaluation of the variables so that all the inter-dependencies are satisfied}}. It's possible that {\ifeffit} can get confused about variables and their interdependencies. You can force the variables to be re-evaluated with the {\cmnd{sync}} command. {\cmnd{sync}} checks the dependencies of each variable (both scalars and arrays), re-orders the list of variables, and makes sure that the values are up-to-date. {\cmnd{sync}} is done internally at the beginning of many {\ifeffit} commands. These are listed in chapter~\ref{Ch:Commands}, and include {\cmnd{def}}, {\cmnd{set}}, {\cmnd{plot}}, {\cmnd{write\_data}}, and the fitting commands ({\cmnd{minimize}} and {\cmnd{feffit}}). You should never need to use {\cmnd{sync}} explicitly, but it's there if you think you need it. You can see all this in action with {\tt{show @scalars}} and {\tt{show @arrays}}, which list variable names, values, and {\emph{formulas}} for scalars and arrays. In fact, the variable list shown is as re-ordered by {\cmnd{sync}} to reflect the order of inter-dependencies of variables, so that the variables can be correctly evaluated in one pass. Trivial formulas like `{\tt{x = 1 + 1}}' are not stored, since {\ifeffit} can easily tell that the value of {\tt{x}} won't change. Before moving on, let me try to clarify the distinction between {\cmnd{set}} and {\cmnd{def}} one more time. Everything you type at the command line is interpreted as a command. The default command is {\cmnd{def}}. When you type {\tt{a = 1, b = 3}}, {\ifeffit} first looks at {\tt{a}} to see if it's a command. Recognizing that it is not, {\ifeffit} translates the line to {\tt{def(a = 1, b = 3)}}. This has the consequences that you don't really need to type {\cmnd{def}}, though keeping in mind that it's really there all the time is generally a good idea. %%00%% \subsection{Fitting Variables: {\texttt{Guess}}} \label{Ch:Structure-Guess} In the previous section, we discussed two varieties of scalars: those that are {\cmnd{def}}ined as expressions of other scalars and arrays, and those that are {\cmnd{set}} to a static value. There is actually a third category: {\emph{fitting variables}}. These are a lot like static ({\cmnd{set}}) scalars except that their values will be changed by the fitting commands {\cmnd{minimize}} and {\cmnd{feffit}}. Fitting variables are a little special in that they keep track of their uncertainties and correlations with other variables as well as their value. To define a fitting variable, and to give the initial value for it, you use the {\cmnd{guess}} command, which has a syntax like this: \begin{verbatim} Ifeffit> guess my_age = 19 \end{verbatim} \noindent There are no {\emph{fitting arrays}} or {\emph{fitting strings}}. It should be clear that many commands alter the values of scalars. For example, {\cmnd{pre\_edge}} can alter the value of {\tt{e0}}. But in this case {\tt{e0}} is not considered a fitting variable in {\cmnd{pre\_edge}}, because it is not defined as a {\cmnd{guess}}ed scalar. You may, however, define a fitting variable {\tt{e0}} when doing fitting of the XAFS with the {\cmnd{feffit}} command. That is, a scalar is a fitting variable if it was defined with {\cmnd{guess}}, not just if its value changes. After a fit is executed (either with the {\cmnd{feffit}} or {\cmnd{minimize}} command), an estimate of the uncertainties in the fitted variables will be determined and stored in scalar variable. The variable will be named with a {\tt{delta\_}} pre-pended to each variable name: {\tt{delta\_air\_lines}} will contain the uncertainty in {\tt{air\_lines}}, and so on. Finally, there is an {\cmnd{unguess}} command that will turn all fitting variables into regular scalars, with their current value. This effectively does a {\cmnd{set}} on all variables, and can be very convenient when changing fitting models, as unused variables can make it impossible to determine error bars. For complicated macros, scripts, or programs, it is usually a good idea to execute an {\cmnd{unguess}} before executing your {\cmnd{guess}} commands to clear any unwanted variables. \subsection{Mathematical Syntax and Operations} \label{Ch:Structure-math} As mentioned in the previous section, the definitions of numeric scalars and arrays are interpreted as mathematical expressions. These are simple algebraic expressions, using numbers, named variables (scalars and arrays), mathematical operations, and intrinsic functions. The syntax is fairly standard, and the case of the operators and variable names is ignored. When arrays are used in an expression, the result will typically be an array, with each element of the array being operated on. For example, \begin{verbatim} Ifeffit> my.y = sin(my.x) \end{verbatim} \noindent will define {\tt{my.y}} as an array of the same size as {\tt{my.x}}, with the sine operation done on each element of the array. In addition, arrays can be {\emph{built}} with {\ifeffit} using functions such as {\tt{range}}, \begin{verbatim} Ifeffit> my.x = range(1,4,1) Ifeffit> print my.x 1.0000 2.0000 3.0000 4.0000 \end{verbatim} \noindent Several more functions for creating and manipulating array data, as well as details of built-in math functions are given in the following sections. \subsubsection{Common Math Operations} The supported math operations include {\tt *, /, +, -, **, and {\caret}}, with exponentiation done with either {\tt{**}} or {\tt{\caret}}. Standard math precedence (quantities inside parentheses first, from inner to outer parentheses, then {\tt **} and {\tt \caret}, followed by {\tt *} and {\tt /}, and then + and -) is obeyed{\footnote{Actually, {\ifeffit} violates standard math precedence by incorrectly associating exponentiation from left to right instead of right to left. That is, it evaluates {\tt{4**3**2}} as 4096 (= (4**3)**2) instead of the correct value of 262144 (= 4**(3**2)). Fixing this is not high on the priority list.}}, but parentheses are encouraged. If syntax errors like out-of-range arguments or nonsense math operations are give, an error message will be printed, and the value will be zero. There are two built-in constants, whose values you won't be able to change: {\texttt{pi}} gives the value of $\pi$; 3.1415926\ldots, and {\texttt{etok}} gives the value of $2m_e/\hbar^2$ in units of $\rm 1/ eV\AA^2$; 0.2624683\ldots. The utility of $\pi$ should be obvious. For XAFS, converting photo-electron energy $E$ in eV to wavenumber $k$ in $\rm\AA^{-1}$ can be done as {\tt {k = sqrt(E * etok)}}. This line just keeps \subsubsection{Common Math Functions} The supported math functions are listed in Table~{\ref{Table:Operators1}}, Table~{\ref{Table:Operators2}}, and Table~{\ref{Table:Operators3}}. You'll find all the usual trigonometric functions there, as well as a few other special functions. Note that both {\texttt{log}} and {\texttt{ln}} give the natural logarithm, base $e$. All trigonometric functions use radians. While most functions listed in Tables~{\ref{Table:Operators1}} should be familiar, there are a few here that may need further explanation. Gamma, log-gamma, and error function are supported as {\texttt{gamma(), loggamma(), {\rm{and}} erf()}}, following the usual description found in standard mathematical handbooks. \begin{table}[t] {\index{Math Functions}} \begin{center} \caption[a]{Table of Mathematical Functions, Part I (common functions). All function arguments can be expressions themselves. The listing below indicates the expected type for all these functions as scalar. When applied to arrays, these functions return an array of values with the function applied to each element of the argument. \smallskip } {\label{Table:Operators1}} \begin{tabular}{llll} \noalign{\smallskip}% \multicolumn{3}{l}{Function Prototype} & Description \\ \noalign{\smallskip} \hline \noalign{\smallskip} y &=& abs(x) & absolute value\\ y &=& min(x1,x2) & smaller of two values\\ y &=& max(x1,x2) & larger of two values\\ y &=& sign(x) & sign (1.0 or -1.0) of x \\ y &=& sqrt(x) & square root\\ y &=& exp(x) & exponential, base $e$\\ y &=& log(x) & logarithm, base $e$\\ y &=& ln(x) & logarithm, base $e$\\ y &=& log10(x) & logarithm, base 10\\ y &=& sin(x) & sine\\ y &=& cos(x) & cosine\\ y &=& tan(x) & tangent\\ y &=& asin(x) & arc-sine\\ y &=& acos(x) & arc-cosine\\ y &=& atan(x) & arc-tangent\\ y &=& sinh(x) & hyperbolic sine\\ y &=& cosh(x) & hyperbolic cosine\\ y &=& tanh(x) & hyperbolic tangent\\ y &=& coth(x) & hyperbolic cotangent \\ y &=& gamma(x) & gamma function \\ y &=& loggamma(x) & log of gamma function \\ y &=& erf(x) & error function \\ y &=& gauss(x,x0,sigma) & Gaussian function \\ y &=& loren(x,x0,sigma) & Lorentzian function \\ y &=& pvoight(x,x0,fwhm,eta) & pseudo-Voight function \\ \noalign{\smallskip} \hline \end{tabular} \end{center} \end{table} %%%----- The functions {\tt{gauss(), loren(), {\rm{and}} pvoight()}} are available for constructing typical lineshapes to model data, which are especially convenient when used the general least-squares minimization command {\cmnd{minimize}}. The functions are most likely used with the first argument being an array, though this is not required. The versions here are properly normalized so that they integrate to 1. For example, {\texttt{y = gauss(x,x0,sigma)}} gives \begin{equation} y = {{\cal G}(x,x_0,\sigma)} = {{1}\over{\sigma\sqrt{2\pi}}} \exp[ - (x-x_0)^2/ 2\sigma^2)] \end{equation} \noindent where $x$ is {\tt{x}}, $x_0$ is {\tt{x0}}, and $\sigma$ is {\tt{sigma}}. Similarly, {\texttt{y = loren(x,x0,sigma)}} gives \begin{equation} y = {{\cal L}(x,x_0,\sigma)} = {{{\sigma}/{2\pi}}\over{(x-x_0)^2 + ({\sigma}/2)^2}} \end{equation} \noindent The pseudo-Voight function is a linear combination of a Gaussian and Lorentzian function with the same full-width-at-half-maximum (FWHM), often used to describe real diffraction lineshapes. Since the same FWHM for the Lorentzian and Gaussian functions imply different values of $\sigma$, the result is that {\texttt{y = pvoight(x,x0,sigma)}} gives \begin{equation} y = \eta {{\cal L}(x,x_0,\sigma)} + (1-\eta) {{\cal G}(x,x_0,\sigma_g)} \end{equation} \noindent where the specified FWHM = $\sigma$ and $\sigma_g = \sigma / 2\sqrt{2\ln(2)}$. \subsubsection{Array-Specific Operations} \begin{table}[t] {\index{Math Functions}} \begin{center} \caption[a]{Table of Mathematical Functions, Part II (array-specific functions). All function arguments can be expressions themselves. The listing below indicates the expected type ({\tt{x}} for scalar, {\tt{my.x}} for array) for arguments and results. Functions with array arguments return a scalar value ({\tt{npts()}} \ldots {\tt{vprod()}}, {\tt{nofx()}}) will work on scalar arguments, with trivial results. Functions with a scalar arguments that return arrays (i.e., {\tt{indarr}} \ldots {\tt{range}}) will use the first element of an array argument as the scalar used. \smallskip } {\label{Table:Operators2}} %% \begin{tabular}{r@{\,\,}c@{\,\,}l@{\,\,\,}l} \begin{tabular}{llll} \noalign{\smallskip}% \multicolumn{3}{l}{Function Prototype} & Description \\ \noalign{\smallskip} \hline \noalign{\smallskip} y &=& floor(my.a) & smallest element of array\\ y &=& ceil(my.a) & largest element of array\\ y &=& vsum(my.a) & sum of all elements of array\\ y &=& vprod(my.a) & product of all elements of array\\ y &=& npts(my.a) & number of elements in array\\ \noalign{\smallskip} my.y&=& indarr(n) & generate array 1, 2, \ldots, $n$\\ my.y&=& ones(n) & generate array of $n$ ones\\ my.y&=& zeros(n) & generate array of $n$ zeros\\ my.y&=& range(start,stop,step) & generate array over a given range\\ \noalign{\smallskip} my.y&=& join(my.x1,my.x2) & concatenate 2 arrays\\ my.y&=& slice(my.x,n1,n2) & generate sub-array my.x[n1:n2] \\ n &=& nofx(my.x,x) & index of my.x with value closest to x\\ \noalign{\smallskip} \hline \end{tabular} \end{center} \end{table} %%%----- As mentioned above, when arrays are used in expression, the result is usually an array. In addition, the functions listed in Tables~{\ref{Table:Operators2}} are designed especially to work with arrays, and may either create arrays given a few scalars or return a scalar given an array expressions. For example, the functions {\texttt{ceil(), floor(), vsum(), vprod(), {\rm{and}} npts()}} each return a scalar given an array argument. {\tt{ceil()}} and {\tt{floor()}} give the maximum and minimum element of the array, respectively. {\tt{vsum()}} returns the sum of all elements of an array, {\tt{vprod()}} returns the product of all the elements, and {\tt{npts()}} returns the number of points in an array. As with all functions, these can be used on expressions as well as on named arrays. Note that {\tt{ceil()}} is different from {\tt{max()}}, as {\tt{ceil()}} returns the single largest value of an array, while {\tt{max()}} returns the larger of two values. The functions {\tt{floor()}} and {\tt{min()}} are not the same. As mentioned earlier, there are a number of functions to help build arrays from scratch. The function {\texttt{indarr()}} takes one scalar argument as an array length and fills the array with integers: 1, 2, 3, \ldots. For example \begin{verbatim} Ifeffit> my.index = indarr(10) \end{verbatim} \noindent will fill {\texttt{my.index}} be the array (1, 2, 3, \ldots, 10). The functions {\texttt{ones()}} and {\texttt{zeros()}} create arrays of a specified length, only the created arrays will have all elements set to 1 and 0, respectively. Of course, these functions can be used anywhere in a math expression: \begin{verbatim} Ifeffit> my.xval = 1 + indarr( max(x1,1) ) /100 \end{verbatim} \noindent It is an error to give these functions an argument that evaluates to less than 1. If the argument to one of these three functions is itself an array, the first element will be used as the dimension, and the rest of the array will be ignored. The function {\tt{range()}} is a more general function for creating evenly spaced arrays. It takes three arguments: a starting value, a stopping value, and a step size for the array. That is \begin{verbatim} Ifeffit> my.x = range(3,10,1) \end{verbatim} \noindent will create the array (3, 4, 5, \ldots 10), and \begin{verbatim} Ifeffit> my.x = range(2,4,0.1) \end{verbatim} \noindent will create an array with values (2,2.1,2.2,\ldots, 3.8,4.0). If the range is not an exact multiple of the step size, {\tt{range()}} will make sure all elements of the array are within the range specified by the start and stop values. Negative step sizes are allowed, but should be used with care. Arrays can also be built up and broken apart using the {\tt{join()}}, {\tt{slice()}}, and {\tt{nofx()}} functions. The {\tt{join()}} function concatenates two arrays, for example \begin{verbatim} Ifeffit> my.x1 = indarr(3) Ifeffit> my.x2 = range(10,16,1.5) Ifeffit> my.x = join(my.x1,my.x2) Ifeffit> print my.x 1.0000 2.0000 3.0000 10.0000 11.5000 13.0000 14.50000 16.0000 \end{verbatim} \noindent The {\tt{slice()}} function will select a {\emph{sub-array}}, or portion of the array defined by indices for the first and last point desired. Counting of indices begins with 1, so that \begin{verbatim} Ifeffit> my.x1 = indarr(10) Ifeffit> my.x2 = slice(my.x1,3,6) Ifeffit> print my.x2 3.0000 4.0000 5.000 6.0000 \end{verbatim} The function {\tt{nofx()}} will return the index of an array nearest to a given scalar value: \begin{verbatim} Ifeffit> my.x1 = range(90,180,9) Ifeffit> nx = nofx(my.x1,126) Ifeffit> print my.x1 90.0000 99.0000 108.000 117.000 126.000 135.000 144.000 153.000 162.000 171.000 180.000 Ifeffit> print nx 5.0000 \end{verbatim} \noindent If multiple values in the array match (or are equally close to) the requested scalar, the first occurrence of ``the closest value'' will be reported. \begin{table}[t] \begin{center} {\index{Math Functions}} \caption[a]{Table of Mathematical Functions, Part III (special functions). See notes for Tables~{\ref{Table:Operators1}} and~{\ref{Table:Operators2}} for explanation of arguments and text for explanation of the functions themselves. \smallskip } {\label{Table:Operators3}} %% \begin{tabular}{r@{\,\,}c@{\,\,}l@{\,\,\,}l} \begin{tabular}{llll} \noalign{\smallskip}% \multicolumn{3}{l}{Function Prototype} & Description \\ \noalign{\smallskip} \hline \noalign{\smallskip} my.y&=& deriv(my.x) & finite-difference derivative of array\\ my.y&=& smooth(my.x) & three-point smoothing of array\\ my.y&=& interp(old.x,old.y,my.x) & linear interpolation of arrays\\ my.y&=& qinterp(old.x,old.y,my.x) & quadratic interpolation of arrays \\ my.y&=& splint(old.x,old.y,my.x) & spline interpolation of arrays\\ my.y&=& rebin(old.x,old.y,my.x) & re-binning interpolation of arrays\\ \noalign{\smallskip} my.z &=& lconvolve(my.x,my.y,sigma) & convolve data with Lorentzian \\ my.z &=& gconvolve(my.x,my.y,sigma) & convolve data with Gaussian \\ \noalign{\smallskip} y &=& debye(temp,theta) & $\sigma^2$ in Debye approximation\\ y &=& eins(temp,theta) & $\sigma^2$ in Einstein approximation\\ \noalign{\smallskip} \hline \end{tabular} \end{center} \end{table} %%%----- \subsubsection{Functions for Smoothing and Interpolating Data} The functions listed in Table~{\ref{Table:Operators3}} do need some more detailed explanation. Many of these functions are for smoothing and interpolating data. The {\tt{deriv()}} function returns the derivative (in the finite-difference sense) of its argument (a single array). The {\tt{smooth()}} function returns a three-point smoothing of its array argument. There are three functions for interpolation of arrays, {\tt{linterp()}} {\tt{qinterp()}}, do linear and quadratic interpolation, respectively, while {\tt{splint()}} does a cubic spline interpolation. These routines map an x-y pair onto another set of x-values, with syntax \begin{verbatim} Ifeffit> new.y = linterp(old.x, old.y, new.x) Ifeffit> new.y = qinterp(old.x, old.y, new.x) Ifeffit> new.y = splint(old.x, old.y, new.x) \end{verbatim} \noindent It may be a bit confusing to remember the order of arguments, but is important to keep straight. The idea is that you're moving {\texttt{old.y}} from {\texttt{old.x}} onto {\texttt{new.x}}. {\index{interpolation of data}} {\index{re-binning of data}} The {\texttt{rebin()}} function works in a similar manner to these interpolation schemes, but will average input data onto the output x array. That is, if the input x-array is finer than the output x-ray (over any portion of the two arrays), the corresponding y-values will be {\emph{averaged}} where it is appropriate to do so. This is especially useful for finely-spaced data, as QEXAFS or continuous scan data. Note that the {\cmnd{spline}} and {\cmnd{bkg\_cl}} commands use this algorithm for all XAFS data when converting from {\muE} to {\chik}. As with other functions, even though the interpolation functions are intended for working with other arrays, they can be used with some of their arguments as scalars. This can be useful to estimate a single value of an array as a scalar as \begin{verbatim} Ifeffit> y = splint(old.x, old.y, x) \end{verbatim} \noindent which will define {\tt{y}} to be the scalar value of {\tt{old.y}} at {\tt{old.x = x}}. The functions {\texttt{lconvolve()}} and {\texttt{gconvolve()}} provide ways to convolve a data (given by two arrays: $y(x)$ represented by {\tt{my.x}} and {\tt{my.y}} for $x$ and $y$, respectively) with a Lorentzian or Gaussian function. For example, \begin{verbatim} Ifeffit> my.y = lconvolve(my.x,my.y,sigma) \end{verbatim} \noindent will convolve $y(x)$ with a Lorentzian function described by {\tt{sigma}}. Similarly, \begin{verbatim} Ifeffit> my.y = gconvolve(my.x,my.y,sigma) \end{verbatim} \noindent will convolve $y(x)$ with a Gaussian function described by {\tt{sigma}}. Convolution can be a slow process, show this should be used with caution, and special care should be given to whether {\cmnd{set}} or {\cmnd{def}} is used with these functions. \subsubsection{XAFS-specific Functions for $\sigma^2$} There are two intrinsic functions to calculate $\sigma^2$ for an XAFS path. The {\tt{debye(temp, theta)}} function generates $\sigma^2$ for a path given a temperature {\tt{temp}} and Debye Temperature {\tt{theta}} using the correlated Debye Model implemented by Rehr, {\it et al.\/} in {\feff}. Similarly, {\tt{eins(temp,theta)}} calculates $\sigma^2$ for a path given a temperature {\tt{temp}} and Einstein Temperature {\tt{theta}} using the Einstein Model. Of course, these two functions need more information than just external temperature and characteristic temperature. All of the other information depends on which XAFS path is being considered, and is found using the concept of the {\emph{Current Path}}, further discussed in Section~{\ref{Ch:FEFFIT-paths}}. Without repeating too much of that discussion here, the basic point is that {\ifeffit} keeps track of which path it is considering with the variable {\tt{path\_index}}. Within the functions {\tt{ff2chi}} and {\cmnd{feffit}}, this variable is looped through the paths you specified, and the path-dependent values like {\tt{reff}} are automatically updated. Similarly, if a $\sigma^2$ Path Parameter depends on {\tt{debye()}} or {\tt{eins()}} (even indirectly), it will automatically be updated. From outside {\cmnd{ff2chi}} and {\cmnd{feffit}}, you can set {\tt{path\_index}} yourself, and then both {\tt{debye()}} and {\tt{eins()}} will use be evaluated for the specified path. \subsection{Commands, Arguments, and Keyword/Values} \label{Ch:Structure-commands} As mentioned in section~\ref{Ch:Structure-cmnd}, every operation you send to {\ifeffit} is a command, and commands have the general syntax \begin{verbatim} Ifeffit> command(key= value, key= value, key= value, ...). \end{verbatim} \noindent Here, we'll give a more in-depth discussion of the functionality hinted at in section~\ref{Ch:Structure-cmnd}. Generally speaking, arguments (including keyword/value pairs) can be in any order. The rules for dealing with keyword/value pairs are discussed below , but for I'll just say that the keyword itself determines what type of variable will be read, and that the equal sign (=) and comma (,) are the delimiters between the keyword and the value. The value is often treated as a character string, in which case it's often safest to enclose it in quotes. Many commands have default keywords that are expected in the first few arguments. For example, {\texttt{spline}} has default keywords of {\texttt{energy}} and {\texttt{xmu}} for the first and second arguments, so that \begin{verbatim} Ifeffit> spline( my.x, my.y) \end{verbatim} \noindent is shorthand for \begin{verbatim} Ifeffit> spline(energy= my.x, xmu= my.y) \end{verbatim} \noindent Similarly, {\cmnd{plot}} has default keywords of {\tt{x}} and {\tt{y}} for the first two arguments, so that \begin{verbatim} Ifeffit> plot(my.x, my.y) \end{verbatim} \noindent is the same as {\tt{plot(x = my.x, y = my.y)}}. Let me clarify this. In this example, the first keyword is taken as {\tt{x}} for {\cmnd{plot}} because {\tt{my.x}} is not a keyword, and it is the first argument in the list. This is not to say that the first argument without a known keyword will be used as the {\tt{x}}-array. \begin{verbatim} Ifeffit> plot(color = blue, my.x, y = my.y) # No! \end{verbatim} \noindent will not work. For several commands, there are keywords that don't really require a value. Such keywords are often used as {\emph{flags}}, and so just giving the keyword is sufficient. For: \begin{verbatim} Ifeffit> pre_edge(my.energy, my.xmu, e0find) \end{verbatim} \noindent the {\tt{e0find}} will cause $E_0$ to be determined, even if it appears to be known already. Similarly, in \begin{verbatim} Ifeffit> plot(my.energy, my.bkg, nogrid, xmin = 8800) \end{verbatim} \noindent the {\tt{nogrid}} flag will draw the plot without the background grid. Actually, flags like `{\tt{nogrid}}' don't really ignore their value -- they interpret their value as either `true' or `false', and are true unless the first character of the value is {\tt{f}}, {\tt{F}}, {\tt{n}}, {\tt{N}}, or {\tt{0}}. Specifically, a blank value means `true', so that a value is not needed. Some commands don't use keyword/value pairs for all their arguments, but use lists for some of their arguments. The notable examples of this are {\cmnd{write\_data}}, {\cmnd{ff2chi}}, and {\cmnd{feffit}}. {\cmnd{write\_data}} uses lists of arrays of text strings to write out to a file. Both {\cmnd{ff2chi}} and {\cmnd{feffit}} take a list of {\feff} paths to use in the sum-over-paths. {\cmnd{write\_data}} is somewhat more complicated, as it interprets a few arguments as keyword/values (notably, the {\tt{file}} keyword), but expects lists of arrays and strings. Since {\cmnd{write\_data}} can even take a glob `*' character, it is definitely the command with the least `normal' syntax. It may be convenient to think of lists as values without keywords, but it's probably better to not think about it at all. Lists are used when they make sense, which turns out to not be very often. As mentioned in section~\ref{Ch:Basics-sample}, commands take their input from both the argument list and the global Program Variables. More precisely, many commands read {\emph{default}} values for command parameters from the global set of Program Variables. In all cases, there is a corresponding keyword (often using the same name as the Program Variable) that can be used to override the value read from the Program Variable. Typically, the Program Variables that are used as default inputs are also written to when the command is finished, so that subsequent executions of that command focus on what to change from the earlier execution. This mechanism of having default values allows you to use a mixture of explicit arguments and ``silent'' Program Variables. For example, the {\cmnd{fftf}} command in the initial example took it's value for the $k$-weight from the Program Variable {\tt{kweight}} which had been explicitly set a few a lines up. We could have also said \begin{verbatim} Iff> fftf(real = my.chi, kmin = 2.0, kmax = 13.0, Iff> dk = 1.0, kweight=2) \end{verbatim} \noindent which is more explicit. Of course, there is plenty of room for confusion in this approach of mixing implicit and explicit parameters for a command. In general, the use of implicit parameters setting should be kept to a minimum. Though it means a bit more typing, you'll probably be happier explicitly specifying all command arguments you care about. The general execution procedure for all commands is this: \begin{enumerate} \item read the needed parameters from the list of program variables. If a program variables has not yet been defined, it will be created, and initialized to 0 for numeric variables or blank for strings. \item read the command parameters from the argument list. This effectively overrides the values read from the program variables. \item perform its main tasks, possibly altering or creating some program variables. \item update the output program variables to the new values. \end{enumerate} \noindent The description in Chapter~\ref{Ch:Commands} for each command contains a complete list of the variables read as inputs, the variables set on output, as well as the complete list of keywords and the variables they correspond to. The procedure listed above may a bit abstract, so an example will probably help. Let's investigate the {\cmnd{spline}} call in the example of the previous chapter in more detail. There, the deceptively simple command \begin{verbatim} Ifeffit> spline(energy = my.energy, xmu = my.xmu, Ifeffit> rbkg=1.1, kweight=1., kmin=0) \end{verbatim} \noindent was used. Looking ahead to section~{\ref{Ch:Command:spline}}, you may notice that {\cmnd{spline}} actually needs the values for several scalar variables: {\tt{rbkg}}, {\tt{e0}},{\tt{kmin\_spl}}, {\tt{kmax\_spl}}, {\tt{kweight\_spl}}, etc{\footnote{Note that all the Fourier transform parameters for {\cmnd{spline}} are stored in variables that end with {\tt{\_spl}}.}} to name a few. So how does {\cmnd{spline}} get its values for {\tt{rbkg}}, {\tt{e0}}, and {\tt{kmax\_spl}}? First, {\cmnd{spline}} checks if there are already variables named {\tt{rbkg}}, {\tt{e0}}, etc. If these exist, their values are taken. Then {\cmnd{spline}} reads its argument list. Since the keyword {\tt{rbkg}} is given in this example, that value is used in place of any {\tt{rbkg}} variable already defined. Now, some values don't have defaults, but are required for {\cmnd{spline}}: the name of the energy and $\mu(E)$ arrays are required. If these aren't found in the argument list, {\cmnd{spline}} will complain and return without calculating anything. Once {\cmnd{spline}} has determined all the input parameters, it calculates $\mu_0(E)$ based on all the scalar and array parameters. The method used is essentially the same algorithm as {\autobk}, and is described in detail in {\XAIBook}, but it's sort of secondary at this point. What's important here is that the values of some scalar and array parameters may be changed, or been created if they didn't exist already. For example, {\tt{e0}} and {\tt{kmax\_spl}} may be changed if their values at the beginning of {\cmnd{spline}} were out of the data range. Because of this possibility, the last thing {\cmnd{spline}} does before returning is to reset the values of the Program Variables it has used. This ensures that both you and all the commands you run later will agree on the values of the program variables like {\tt{e0}}. Of course, each command has its own set of program variables that it will look for on input and reset on output. Chapter~{\ref{Ch:Commands}} lists the input and output variables for each command, as well as a bunch of other information about each command. For the most part, command arguments are interpreted as keyword/value pairs. Keywords are single words (no whitespace), and are not case-sensitive. Generally, a keyword is followed by an equal sign, and the text between the equal sign, and up to the next comma or right parentheses\footnote{Actually, up to the first unprotected comma or right parentheses. A comma or parentheses can be protected by enclosing it in pairs of parentheses, double quotes, or curly braces.} is taken as the value. The value is interpreted according to what {\emph{type}} of value the keyword wants. That is, if the keyword wants an array, the value is read as an array, and if the keyword wants a text string (say, a filename or comment string) the value is read as a string. Most arguments that expect array or scalar values take {\emph{expressions}} which could be a simple value (as in {\texttt{e0 = 8979.5}}), the name of existing variable (as in {\texttt{energy = my.energy}}) or something more complicated, like \begin{verbatim} Ifeffit> set rbkg1 = 1.2 Ifeffit> spline(my.energy, "a.xmu+b.xmu", rbkg = rbkg1) \end{verbatim} \noindent Though this may seem unnecessarily extravagant for command-line use, it can be very useful for more elaborate scripts. This feature is also especially convenient with the {\cmnd{plot}} command, as it avoids needing to define intermediate arrays just to plot them: \begin{verbatim} Ifeffit> newplot(my.energy, "my.xmu - my.bkg") \end{verbatim} \noindent Note that when an expression is given, it is usually a good idea to enclose the expression in matched parentheses, double quotes, or curly braces. \subsection{Getting information back from {\ifeffit}} \label{Ch:Structure-info} At some point, you'll probably want to get information about Program Variables, Paths, and other aspects of {\ifeffit}'s state. The most basic way to do this is with the {\cmnd{show}} command. The {\texttt{show}} command will print out information about the program variables, fitting variables, paths, macros, color table, and built-in commands. In it's simplest form, {\cmnd{show}} will print the value and, if appropriate the formula, for a program variable. For scalars, {\cmnd{show}} works like this: \begin{verbatim} Ifeffit> a = 8, x = 9 / a Ifeffit> show a, x a = 8.00000000 x = 1.12500000 := 9/a \end{verbatim} \noindent Note that both the value and formula are shown for {\tt{x}}. For text strings, the results are pretty straightforward -- there's no stored formula, so the string is simply printed. \begin{verbatim} Ifeffit> $string = ' My favorite string ' Ifeffit> show $string My favorite string \end{verbatim} \noindent For arrays, however, the results are a little different. Since it's unlikely you'll want to see every element of an array (and if you do, there's always {\cmnd{print}}), so the number of points, maximum, minimum values, and if appropriate the formula are printed: \begin{verbatim} Ifeffit> my.x = indarr(10)/3 Ifeffit> show my.x my.x = 10 pts [ 0.33333 : 3.3333 ] := indarr(10)/3 \end{verbatim} \noindent To see the contents of a pre-defined macro, just tell the {\cmnd{show}} command the macro name: \begin{verbatim} Ifeffit> show make_ps macro make_ps ifeffit.ps /cps "dump plot to a postscript file" plot(device=$2, file= $1) end macro \end{verbatim} \noindent The arguments to {\cmnd{show}} can be of mixed type -- you can show scalars, strings, arrays, and macros with a single command. If a program variable is not known, an `undefined variable' will be printed. {\indexcmd{show}} {\indexcmds{show}{"@ symbol}} Beyond these simple examples, {\cmnd{show}} can also print out classes of program variables, using the special {\tt{@}} symbol. That is, to get a listing of all the scalars (with values and definitions, if appropriate), type {\tt{show @scalars}}. Similarly, {\tt{show @arrays}} and {\tt{show @strings}} will show all the arrays and strings, respectively. The listing shown for scalars and arrays will be sorted with ``most constant'' ({\ie}, those values that were {\cmnd{set}}) at the top, and the ``least constant'' ({\ie}, those that depend on other variables) at the bottom. This means the listing is subject to re-ordering at any time. All the fitting variables can be shown with {\tt{show @variables}}: both the current value (which would be the initial value before a fit and best-fit value after a fit) and estimated uncertainty will be shown. {\tt{show @colors}} will print out the plotting color table (discussed in section~\ref{Ch:Plot-Color}). {\tt{show @macros}} will print out all the macro names, with description and default arguments, but won't print out the full text for each macro. You can say {\tt{show @macro = make\_ps}} or just {\tt{show make\_ps}} to see the full contents of a macro. For XAFS paths defined with the {\cmnd{path}} command, {\tt{show @paths}} will list the values of all the path parameters for all paths. To get a listing for a limited selection of paths, {\tt{show @path = 1}} or {\tt{show @path = 1,2,5}} will show just those paths. In addition to the {\cmnd{show}} command, you can also print out messages with the {\cmnd{echo}} and {\cmnd{print}} commands. {\cmnd{echo}} simply prints its argument, which is of limited utility at the command line, but is often helpful in more complicated scripts: \begin{verbatim} Ifeffit> echo(" I am in macro BKG, about to write outputs") I am in macro BKG, about to write outputs Ifeffit> echo " t" t \end{verbatim} \noindent {\cmnd{print}}, on the other hand, is a more general purpose printing command, interpreting its arguments as strings or mathematical expressions where appropriate, and printing out the resulting {\emph{values}}. For example, \begin{verbatim} Ifeffit> print pi 3.141593 \end{verbatim} \noindent You can print out more than one value at a time, and even print out the value of expressions, making {\cmnd{print}} act like a simple calculator: \begin{verbatim} Ifeffit> var = 100. Ifeffit> $string = 'This is a string' Ifeffit> print pi/2 sqrt(5*var) $string 1.570796 22.36068 This is a string \end{verbatim} \noindent % {\cmnd{print}} does a mediocre job of parsing, so it is best to enclose expressions in quotes or double quotes. Enclosing in single and double quotes have different results, though. Double quotes cause evaluation, while single quotes {\emph{prevents}} evaluation, so the string is written out literally. That is, you can say something like this. \begin{verbatim} Ifeffit>print 'x , sqrt(x) = ' ," x ", " sqrt(x) / 2 " x , sqrt(x) = 10.22000 1.598437 Ifeffit>print ' Rbkg = ', rbkg, ' Ang ' Rbkg = 1.2000000 Ang \end{verbatim} \noindent Finally, unlike {\cmnd{show}}, {\cmnd{print}} will print out all elements of an array. I won't give an example of that -- you can try it for yourself. \subsection{Log Files, {\texttt{echo}}, {\texttt{show}}, and {\texttt{print}}} \label{Ch:Structure-Logging} {\indexcmd{echo} \index{screen echo}} In the previous section we saw how {\cmnd{echo}}, {\cmnd{show}} and {\cmnd{print}} were used to get various information from {\ifeffit} printed to the screen during an interactive session. Sometimes, you don't care to have such information printed to the screen, but would like to write it directly to a file. Furthermore, when controlling {\ifeffit} from an external program or script, you may want to save the messages that would've been written to the screen and read them into the calling program. All of these things are possible within {\ifeffit} and in this section. {\index{Programming!echo buffer}} {\ifeffit} sends all its output messages through a single routine that either writes the message to the screen (technically, standard output) or to an external log file, or saves the message into a buffer that a calling program can read later. Which of these actions is taken depends on the scalar variable {\tt{\&screen\_echo}} and whether a log file is actually open and in use. The valid values and meanings for {\tt{\&screen\_echo}} are given in Table~\ref{Table:ScreenEcho}. When {\ifeffit} starts, {\tt{\&screen\_echo}} is 1, even when run from an external program, so to set up an external program to 'capture the echo buffer', you need to set {\tt{\&screen\_echo}} to 0. If doing this, it's probably a good idea to check the echo buffer after each command. Examples of doing this are available.\indexvar{\&screen\_echo} \begin{table} \begin{center} \caption[a]{Table of Values for {\tt{\&screen\_echo}} {\label{Table:ScreenEcho}} } \begin{tabular}{ll} Value & Meaning \\ \noalign{\smallskip} \hline \noalign{\smallskip} 0 & save message to echo buffer.\\ 1 & print message to screen. \\ 2 & print message to log file, if open.\\ 3 & print message to both screen and to log file. \\ \noalign{\smallskip} \hline \end{tabular} \end{center} \end{table} \noindent {\indexcmd{log} \indexvar{\&screen\_echo}} For normal interactive use, the default {\tt{\&screen\_echo}} is probably appropriate until you want to write some of the information from {\ifeffit} to a log file. For that, the {\cmnd{log}} command is exactly what you need. Using {\cmnd{log}} is simple: \begin{verbatim} Ifeffit> log(file = my.log) \end{verbatim} \noindent will close any existing log file (there can be only one log file at a time), and open {\file{my.log}} as the current log file. It will also set {\tt{\&screen\_echo}} to 2, so that any subsequent outputs from {\ifeffit}, including from the {\cmnd{show}}, {\cmnd{print}}, and {\cmnd{echo}} commands are sent to this file instead of the screen. Because of system-specific constraints, you can't rely on the log file being completely full until it's closed, which you can do explicitly with \begin{verbatim} Ifeffit> log(close) \end{verbatim} \noindent Though it's not completely necessary, you can also tell {\cmnd{log}} the level of {\tt{\&screen\_echo}} to use as well: \begin{verbatim} Ifeffit> log(file = my.log, screen_echo = 3) Ifeffit> log(file = my.log, screen_echo = both) Ifeffit> log(file = my.log, screen_echo = tee) \end{verbatim} \noindent will all tell {\cmnd{log}} to write all text output to both the log file and the screen. You can also change the value of {\tt{\&screen\_echo}} yourself while a log file is open.\indexvar{\&screen\_echo} Note that because a script or program may use the echo buffer for its own purposes, it may not be wise to overwrite the value of {\tt{\&screen\_echo}} from {\emph{within}} an {\ifeffit} application. For example, most of the other GUI applications (including {\gifeffit}, {\athena}, and {\artemis}) set {\tt{\&screen\_echo}} to 0 and then intercept the output to save in a history buffer or display to some information screen. This means that you don't need to set {\tt{\&screen\_echo}} yourself, and that bad things may happen if you do! On the other hand, getting a history of the input or output from these programs is usually a matter of cutting-and-pasting from the displayed output. ifeffit-1.2.11d/doc/RefMan/Makefile0000644000175000017500000000437110771740460015740 0ustar segresegre######################################################################### # makefile for latex documents: relies heavily on the latexmk script # possible targets: # dvi default: run latexmk # ! latex at least once for sure # dep re-scan dependencies # ps make postscript # pdf make pdf # html make html with latex2html # clean remove non-essential files # all make postscript, pdf, html ######################################################################### TARGET = refman INSTALLDIR = /home/newville/public_html/ifeffit/reftest/ TEXFILE = $(TARGET).tex OUTFILE = $(TARGET).out PSFILE = $(TARGET).ps DVIFILE = $(TARGET).dvi PDFFILE = $(TARGET).pdf BBLFILE = $(TARGET).bbl AUXFILE = $(TARGET).aux INDEXFILE= $(TARGET).ind # HTMLMACS = ifmacs_html.tex PDFMACS = ifmacs_pdf.tex TEXMACS = ifmacs.tex PDFTITLE = title_pdf.tex HTMLTITLE = title_html.tex TITLE = title.tex MAKE_ARCHIVE = ../scripts/MakeArchive FIXTEX = ../scripts/fixtex LMAKE = ../scripts/latexmk FIX_PDF = ../scripts/FixPDFout L2H_INIT = -init_file ../scripts/dot.latex2html-init PDFLATEX = pdflatex LATEX2HTML = latex2html -dir $(INSTALLDIR) -mkdir L2H_OPTS = -local_icons -image_type gif -verbosity 0 -no_math -html_version 3.2,math -show_section_numbers -t "IFEFFIT Reference Manual" .PHONY: ! dep ps pdf bib clean html all install dvi: $(PDFTITLE) $(PDFMACS) $(FIXTEX) -t ps *.tex $(LMAKE) -f $(TEXFILE) ! : $(PDFTITLE) $(PDFMACS) $(LMAKE) -g -f $(TEXFILE) dep: $(PDFTITLE) $(PDFMACS) $(LMAKE) -f -i $(TEXFILE) bib: make $(BBLFILE) ps: dvi $(LMAKE) -f -ps $(TEXFILE) pdf: $(FIXTEX) -t pdf *.tex $(PDFLATEX) $(TEXFILE) $(FIX_PDF) $(OUTFILE) $(PDFLATEX) $(TEXFILE) html: $(FIXTEX) -t html *.tex rm -rf $(INSTALLDIR) *.bak mkdir $(INSTALLDIR) (cd $(INSTALLDIR) ; ln -s ../figs . ;cd ..) $(LATEX2HTML) $(L2H_INIT) $(L2H_OPTS) $(TEXFILE) all: ps pdf html install: all cp -pr $(PSFILE) $(PDFFILE) $(INSTALLDIR). clean: $(LMAKE) -C $(TEXFILE) rm -f *.aux $(PDFFILE) $(OUTFILE) rm -rf $(INSTALLDIR) $(DVIFILE): *.tex latex $(TEXFILE) $(PDFFILE): pdf $(BBLFILE): ifx.bib *.aux bibtex $(TARGET) $(INDEXFILE): *.aux *.tex makeindex $(TARGET) $(AUXFILE): *.tex latex $(TEXFILE) ifeffit-1.2.11d/doc/RefMan/fourier.tex0000644000175000017500000003515010771740460016474 0ustar segresegre%%#fixtex% for html/pdf -*-latex-*- \section{Fourier Transforms in {\ifeffit} } \label{App:Fourier} This appendix describes and lists the conventions used for Fourier transforms in {\ifeffit}. \subsection{Fourier transform Conventions}\label{App:Fourier:overview} Many of {\ifeffit}'s command use Fourier transforms (FT) to perform their tasks. In addition to {\cmnd{fftf}} and {\cmnd{fftr}}, which are principly designed to do Fourier transforms, the commands {\cmnd{chi\_noise}}, {\cmnd{feffit}}, and {\cmnd{spline}} all do (or can do) Fourier transforms as part of their data processing. The form of the Fourier transform done by all these commands is the same, and is really an XAFS-specific Fourier transform that converts {\chik} into {\chir} in the forward direction and {\chir} into {\chiq} in the reverse direction. The XAFS-specific FT done by these commands will be described in detail shortly. For now, an important point to emphasize is that all these commands share many arguments and grogram variables describing the Fourier transforms. These shared command arguments and program variables are the topic of this section. The forward XAFS Fourier transform, done with {\cmnd{fftf}}, transforms {\chik} to {\chir}. To do this, the {\chik} data is first multiplied by a $k$-weighting factor of the form $k^w$ and a window function before the actual Fast Fourier transform is performed. The $k$-weighting factor $w$ is used to ``even out'' the decaying {\chik} function and to emphasize different $k$-regions of the EXAFS in the resulting {\chir}. Popular choics for $w$ are 1, 2, and 3. Formally, the XAFS Fourier transform can be written as \begin{equation} \tilde\chi(R) = {{1}\over{\sqrt{2\pi}}} \int_{-\infty}^{\infty} { dk e^{i2kR} k^w \tilde\chi(k) \Omega(k) } \end{equation} \noindent where $\Omega(k)$ is the window function, and $w$ is the $k$-weighting factor. The window function can take a variety of functional forms, all of which rise from a small value (possible zero) at low-$k$, rise up to one, and then fall back towards zero at high-$k$. The window is intended to smooth out any ringing in the resulting FT amplitude while maintaining as much resolution as possible, and will be discussed in more detail in the next section. A discrete form of the above formula is actually used so that the Fast Fourier Transform algorithm can be exploited. The key point here is that the data is sampled on a finite and {\emph{uniform}} grid in $k$ (or $R$ for the back-transform). The $k$-space grid used throughout {\ifeffit} is $\delta k=0.05 {\rm\, \AA}^{-1}$. The array sizes for {\chik} and {\chir} are $N_{\rm fft} = 2048$, and the data is {\emph{zero-padded}} out to high-$k$ (or high-$R$). The zero-padding for {\chik} will smooth the data points in $R$-space, and the zero-padding of {\chir} will smooth the data in backtransformed-$k$-space. The grid in $R$-space is $\delta R = \pi / N_{\rm fft}\,\delta k$, which is then $\sim0.0307\,\rm\AA$. For the discrete Fourier transforms, we write $k_n =n \delta k$ and $R_m = m \,\delta R$, and have \begin{equation} \tilde\chi(R_m) = {{i \delta k}\over{\sqrt{\pi N_{\rm fft}}}}\, \sum_{n=1}^{N_{\rm fft}} \chi(k_n) \, \Omega(k_n) \, k_n^w e^{2\pi i n m/N_{\rm fft}} \end{equation} \noindent for the forward transform and \begin{equation} \tilde\chi(k_n) = {{2 i \delta R}\over{\sqrt{\pi N_{\rm fft}}}}\, \sum_{m=1}^{N_{\rm fft}} \tilde\chi(R_m) \, \Omega(R_m) \, e^{-2\pi i n m/N_{\rm fft}} \end{equation} \noindent for the back transform. These normalizations preserve the symmetry properties of the Fourier Transforms with conjugate variables $k$ and $2R$. There are few slight complication with these formulas. The first arises from the fact that because the classic EXAFS equation has a term of the form ${e^{i2kR}}$ or $\sin(2kR)$, it customary to use $k$ and $2R$ as the Fourier conjugate variables while still desiring the $R$ space function to be a function of $R$. This changes the normalization factors in front of the integral to those above. The other minor complication is that the ``measured'' {\chik} derived from {\muE} and is a strictly real function while the Fourier transform inherently treats {\chik} as complex functions, signified by the $\tilde{ } $ above the $\chi$). There is an ambiguity about how to construct the complex $\tilde\chi(k)$. In many formal treatments, the measured XAFS is written as the imaginary part of some function, so that constructing $\tilde\chi(k)$ as $(0, \chi_{\rm measured}(k))$ might seem a natural choice. For historical reasons, {\ifeffit} uses the opposite convention, constructing $\tilde\chi(k)$ as $(\chi_{\rm measured}(k),0)$. You can easily override this default however and do transforms assuming {\chik} is the imaginary part of $\tilde\chi(k)$. Normally, one does a forward transform with \begin{verbatim} Iff> fftf(real = data.chi) \end{verbatim} \noindent which sets $\tilde\chi(k)$ as $(\chi_{\rm data}(k),0)$. You can use \begin{verbatim} Iff> fftf(imag = data.chi) \end{verbatim} \noindent to construct $\tilde\chi(k)$ as $(0,\chi_{\rm data}(k))$. The Fourier transform requires that the $\chi(k)$ data begin at $k=0$. More to the point, the {\cmnd{fftf}} command {\emph{assumes}} that the supplied array for $chi$ starts at $k=0$ unless told otherwise. It is important to include the $k$-array with this keyword. If not given, the $\chi$ array will be assumed to have it's first point be $\chi(k=0)$, and then to be input on an even $k$-grid with spacing $\rm0.05\,\AA$. \subsection{Fourier transform window functions}\label{App:Fourier:windows} There are seven optional forms for the Fourier transform window $\Omega(k)$. There is quite a bit of literature on the different windows, and generally more opinion than justified reason for selecting one window function over others. I believe that all the window functions in {\ifeffit} are appropriate and useful for EXAFS analysis. My recommendation is to pick one function and stick with it. If you're unsure about which one to pick, my favorites are the Hanning window (the default in {\ifeffit}, largely for historical reasons) and the Kaiser-Bessel window. Again, I have not seen any objective rational for preferring any other windows, and the choice is really a matter of taste. The available window functions are described below, first in the table giving a brief description, then with an equation for the window function, and finally with a representative plot. For simplicity, all are written as functions of $k$. The $R$-space windows are exactly analogous with {\tt{k}} replaced by {\tt{r}}. \begin{table} \begin{center} \caption[a]{Table of Fourier Transform Window Functions. The first four windows list ramp up from 0 to 1 over a $k$-range defined by the {\tt{dk}} parameter, stay at 1 for some $k$-range, and then drop back down to zero. The final three window functions apply a continuous function that may never go to zero over the entire $k$-range of the window. For each window type, the Key in the second column gives the value to use for the {\tt{kwindow}} parameter of {\cmnd{fftf}}, or the {\tt{rwindow}} parameter of {\cmnd{fftr}}. \smallskip } {\label{Table:FTwins}} \begin{tabular}{lll} \noalign{\smallskip}% {Window Name} & {Key} & Description \\ \noalign{\smallskip} \hline \noalign{\smallskip} Hanning & {\tt{hanning}} & ramps up and down as $\cos^2(k)$ \\ Parzen & {\tt{parzen}} & ramps up and down linear with $k$\\ Welch & {\tt{welch}} & ramps up and down linear with $k^2$\\ \noalign{\smallskip} Sine & {\tt{sine}} & a Sine function over the full $k$-range\\ Gaussian & {\tt{gaussian}}& a Gaussian function over the full $k$-range\\ Kaiser-Bessel & {\tt{kaiser}} & a modified Bessel function over the full $k$-range\\ \noalign{\smallskip} \hline \end{tabular} \end{center} \end{table} {\tt{altwindow}} names an alternative window {\bf{array}} is named with this keyword, overriding the `normal' window. The array specified must be created before invoking {\tt{feffit}}. %%#GraphicsFile% win_hanning WinHanning % Anatomy of the Hanning Window. \begin{figure}[tb] \begin{center} \includegraphics[width=2.75in,angle=-90]{figs/win_hanning.ps} \caption{ Anatomy of the Hanning Window.}\label{Fig:WinHanning} \end{center} \end{figure} %%#EndGraphics% %%#GraphicsFile% win_parzen WinParzen % Anatomy of the Parzen Window. \begin{figure}[tb] \begin{center} \includegraphics[width=2.75in,angle=-90]{figs/win_parzen.ps} \caption{ Anatomy of the Parzen Window.}\label{Fig:WinParzen} \end{center} \end{figure} %%#EndGraphics% %%#GraphicsFile% win_welch WinWelch % Anatomy of the Welch Window. \begin{figure}[tb] \begin{center} \includegraphics[width=2.75in,angle=-90]{figs/win_welch.ps} \caption{ Anatomy of the Welch Window.}\label{Fig:WinWelch} \end{center} \end{figure} %%#EndGraphics% %%#GraphicsFile% win_gauss WinGauss % Anatomy of the Gauss Window. \begin{figure}[tb] \begin{center} \includegraphics[width=2.75in,angle=-90]{figs/win_gauss.ps} \caption{ Anatomy of the Gauss Window.}\label{Fig:WinGauss} \end{center} \end{figure} %%#EndGraphics% %%#GraphicsFile% win_kaiser WinKaiser % Anatomy of the Kaiser Window. \begin{figure}[tb] \begin{center} \includegraphics[width=2.75in,angle=-90]{figs/win_kaiser.ps} \caption{ Anatomy of the Kaiser Window.}\label{Fig:WinKaiser} \end{center} \end{figure} %%#EndGraphics% %%#GraphicsFile% win_sine WinSine % Anatomy of the Sine Window. \begin{figure}[tb] \begin{center} \includegraphics[width=2.75in,angle=-90]{figs/win_sine.ps} \caption{ Anatomy of the Sine Window.}\label{Fig:WinSine} \end{center} \end{figure} %%#EndGraphics% %% {{\bigskip} \halign{\tolerance=8000 \hfuzz=5pt %% \vtop{\parindent=0.25truein\hsize=1.00truein\tt\strut{\hfil#\hfil}\strut}&% %% \vtop{\parindent=0.00truein\hsize=5.25truein\rm\strut{#}\strut}\cr %% Ikwindo & Window Type and functional form \cr %% \noalign{\smallskip} %% %% %% 0 & Hanning Window Sills: The Default Window Type. \cr%% %% & {\vskip-30truept { $${ %% { {\rm W}(k) = \cases{ %% \displaystyle\sin^2\bigg({{\pi \, ({k - {\tt Kmin} + {\tt Dk1}/2})}\over %% {2 \, \, {\tt Dk1}}} \bigg) , %% & ${\tt Kmin} - {\tt Dk1}/2 \le k < {\tt Kmin} + {\tt Dk1}/2$\cr %% 1.0, & ${\tt Kmin} + {\tt Dk1}/2 \le k \le {\tt Kmax} - {\tt Dk2}/2$\cr %% \displaystyle\cos^2\bigg({{\pi \, ({k - {\tt Kmax} + {\tt Dk2}/2})}\over %% {2 \, \, {\tt Dk2}}} \bigg) , %% & ${\tt Kmax} - {\tt Dk2}/2 < k \le {\tt Kmax} + {\tt Dk2}/2$\cr} %% } \hskip 3truept plus 5pt minus 2pt \hfill }$$}\vskip-16truept}\cr %% %% %% 1 & Hanning Window Fraction: {\tt Dk1} is the fraction of the %% window range that is not held at 1.00. In the formula %% below, $\gamma = {\tt Dk1}({\tt Kmax}-{\tt Kmin})/2$ \cr %% & {\vskip-30truept { $${ %% {\rm W}(k) = \cases{ %% \displaystyle\sin^2\bigg({{\pi \, ({k - {\tt Kmin} + {\tt Dk1}/2})}\over %% {2 \, \, {\tt Dk1}}} \bigg) , %% & ${\tt Kmin} \le k < {\tt Kmin} + \gamma $ \cr %% {\vbox{\vskip4truept }} %% 1.0 %% & ${\tt Kmin} + \gamma \le k \le {\tt Kmax} - \gamma $\cr %% {\vbox{\vskip4truept }} %% \displaystyle\cos^2\bigg({{\pi \, ({k - {\tt Kmax} + {\tt Dk1}/2})}\over %% {2 \, \, {\tt Dk1}}} \bigg) , %% & ${\tt Kmax} - \gamma < k \le {\tt Kmax} $ %% \cr} \hskip 45truept plus 10truept minus 20truept \hfill %% }$$}\vskip-16truept}\cr %% \noalign{\goodbreak} %% 2 & Gaussian Window: Note that ${\rm W}(k)$ never goes to zero. %% {\tt Iwindo} = 7 gives an alternate form for the Gaussian window.\cr %% & {\vskip-30truept { $${ %% {\rm W}(k) = %% \exp\bigg( -{\tt Dk1}\, \bigl\{{ {2k - {\tt Kmax} - {\tt Kmin} } %% \over{ {\tt Kmax} + {\tt Kmin} } %% }\bigr\}^2\bigg) %% \hskip 163truept plus 10truept minus 20truept \hfill }$$}\vskip-16truept}\cr %% %%\noalign{\smallskip} %% \noalign{\medskip \goodbreak} %% 3 & Lorentzian Window: Note that ${\rm W}(k)$ never goes to zero.\cr %% & {\vskip-30truept { $${ %% {\rm W}(k) = %% \bigg( 1.0 + {\tt Dk1}\, \bigl\{{ {2k - {\tt Kmax} - {\tt Kmin} } %% \over{ {\tt Kmax} + {\tt Kmin} } %% }\bigr\}^2\bigg)^{-1} %% \hskip 156truept plus 10truept minus 20truept \hfill }$$}\vskip-16truept}\cr %% %%\noalign{\smallskip} %% \noalign{\goodbreak} %% 4 & Parzen Window: This window has linear ``sills''.\cr %% & {\vskip-30truept { $${ %% {\rm W}(k) = \cases{% %% \displaystyle{ { k - {\tt Kmin} + {\tt Dk1}/2 }\over %% {\tt Dk1}} , %% & ${\tt Kmin} - {\tt Dk1}/2 \le k < {\tt Kmin} + {\tt Dk1}/2$\cr %% {\vbox{\vskip4truept }} %% 1.0 & ${\tt Kmin} + {\tt Dk1}/2 \le k \le {\tt Kmax} - {\tt Dk2}/2$\cr %% {\vbox{\vskip4truept }} %% \displaystyle{1.0 - {{ k - {\tt Kmax} + {\tt Dk2}/2 } \over %% {\tt Dk2}} } , %% & ${\tt Kmax} - {\tt Dk2}/2 < k \le {\tt Kmax} + {\tt Dk2}/2 $ %% \cr} \hskip 25truept plus 10truept minus 20truept \hfill %% }$$}\vskip-16truept}\cr %% \noalign{\goodbreak} %% 5 & Welch Window: This window has quadratic ``sills''. \cr %% & {\vskip-30truept { $${ %% {\rm W}(k) = \cases{% %% \displaystyle{ \big\{{{ k - {\tt Kmin} + {\tt Dk1}/2} \over %% {\tt Dk1}}\big\}^2 }, %% & ${\tt Kmin} - {\tt Dk1}/2 \le k < {\tt Kmin} + {\tt Dk1}/2$\cr %% {\vbox{\vskip4truept }} %% 1.0 & ${\tt Kmin} + {\tt Dk1}/2 \le k \le {\tt Kmax} - {\tt Dk2}/2$\cr %% {\vbox{\vskip4truept }} %% \displaystyle{1.0 - \big\{{{k - {\tt Kmax} + {\tt Dk2}/2}\over %% {\tt Dk2}}\big\}^2 } , %% & ${\tt Kmax} - {\tt Dk2}/2 < k \le {\tt Kmax} + {\tt Dk2}/2$\cr} %% \hskip 8truept plus 10truept minus 20truept \hfill %% }$$}\vskip-16truept}\cr %% \noalign{\goodbreak} %% 6 & Sine Window: This gives a half-period over the window range. \cr %% & {\vskip-30truept { $${{\rm W}(k) = %% \sin \bigg({ { \pi\,({\tt Kmax} + {\tt Dk2} - k)}\over %% { {\tt Kmax} + {\tt Dk2} - {\tt Kmin} + {\tt Dk1}}}\bigg) %% \hskip 180truept plus 10truept minus 20truept \hfill }$$} %% \vskip-16truept}\cr %% 7 & Gaussian Window: An alternate version of the Gaussian window.\cr %% & {\vskip-30truept { $${ {\rm W}(k) = %% \exp\bigg( -{\tt Dk1}\, \bigl({k - {\tt Dk2} }\bigr)^2\bigg) %% \hskip 216truept plus 10truept minus 20truept \hfill }$$} %% \vskip-16truept}\cr }} \goodbreak ifeffit-1.2.11d/doc/RefMan/xafsprocess.tex0000644000175000017500000001737210771740460017367 0ustar segresegre%%#fixtex% for html/pdf -*-latex-*- \section{Basic XAFS Data Processing} \label{Ch:XAFSProcess} {\ifeffit} is designed for processing XAFS data. Though the physical justifications for the analysis procedures are outside the scope of this Reference Manual, some details of how the commands for XAFS data processing are used will be given here. This is not meant as an exhaustive or introductory treatment -- the reader is expected to know why these procedures should be done and, to some extent, what pitfalls to avoid. Many of the simple processes here are easily incorporated into macros, scripts, and other programs. The GUIs for {\ifeffit} are all able to automate, or at least provide forms-based interfaces for, the basic XAFS processing described here. The goal here then is not to give exhaustive examples for novice XAFS analysts, but to give the basic ideas of how the commands are operated at the command-line level. \subsection{Data Manipulation and Corrections} \label{Ch:XAFSProcess-manip} XAFS data is generally collected in a small number of data channels (that is, arrays) and either collected at discrete energy values or at least binned in someway into discrete energy values. Typically, there are signals from somewhere between 2 and 20 ``detectors'' that are collected at discrete energy points. The XAFS {\muE} can then be determined by simple manipulation of these detector signals. If that all sounds too abstract, here's a more concrete situation. Usually, one monitors the intensity of the x-ray beam incident on the sample ($I_0$), and either the intensity of the x-ray beam trasmitted through ($I$) or fluoresced by ($I_f$) the sample at several distinct energy values. The XAFS {\muE} that is analyzed is then given either as $ \mu(E) = ln(I/I_0)$ or $ \mu(E) = I_f/I_0 $. Of course, since $I_0$, $I$, and $I_f$ are imperfect measures of x-ray intensities, the validity of using these expressions is only as good as the measure of intensities themselves. Since much of this Reference Manual discusses the simple manipulation of data, the operations to convert measured intensities to {\muE} should be straightforward by now: \begin{verbatim} Ifeffit> read_data(file=rb_xafs.dat, group=rb, label='energy i0 it if') Ifeffit> set rb.xmu_trans = log(rb.it / rb.i0) Ifeffit> set rb.xmu_fluor = rb.if / rb.i0 \end{verbatim} \noindent When using multiple-element fluorescence detectors, it is usually necessary to add several data channels together to get the total fluorescence intensity. This can be accomplished simply by adding arrays: \begin{verbatim} Ifeffit> read_data(file=med_xafs.dat, group=med, label='energy i0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10') Ifeffit> set med.if = med.f1 + med.f2 + med.f3 + .... Ifeffit> set rb.xmu = med.if / med.i0 \end{verbatim} \noindent When dealing with data files with similar structures, the use of macros (see chapter~\ref{Ch:Macros}) can make such processing easier. % \subsubsection{Fluorescence corrections} % For a substantial fraction of data measured in fluorescence, the measured % intensity is severely attenuated either from the sample itself % (self-absorption effects) or in detectors that electronically analyze the incoming % signal but cannot handle very high intensities (deadtime effects). In % addition to these two effects, sample preparation errors \subsection{De-glitching} \label{Ch:XAFSProcess-deglitching} It is sometimes necessary to remove data points from the measured {\muE} spectra because the measurement is obviously dominated by a systematic measurement error. A typical example of this is a monochromator glitch, where a second diffraction condition is met, lowering the intensity of the desired beam diffracted by the monochromator. Though there may be a temptation to replace the offending points with ``smoothed values'', it is usually best to simply remove these points from the arrays, reflecting the fact that though you know the measuements were wrong, you don't know what they should have been. Deglitching by removing a single point is possible with {\ifeffit}'s syntax, if somewhat klunky. It goes something like this: \begin{verbatim} Ifeffit> new.x = join(slice(old.x,1,badx-1), slice(old.x,badx+1,npts(old.x))) Ifeffit> new.y = join(slice(old.y,1,badx-1), slice(old.y,badx+1,npts(old.y))) \end{verbatim} \noindent where {\tt{badx}} is the x location of the bad point (which could be found with the cursor, and then {\tt{ badx = nofx(old.x,cursor\_x)}}). This is an excellent task for a macro or script, and can be done by at least some of the data processing programs. \subsection{Pre-Edge Subtraction, Finding $E_0$, and Normalization} \label{Ch:XAFSProcess-preedge} The first step in processing XAFS data is typically to remove the base-line absorption and to normalize {\muE} so that it has values $\sim 0$ below the absorption edge and $\sim 1$ well above the absorption edge. In addition, an estimate of the edge position $E_0$ is often made at this point. {\ifeffit} has two commands for these steps, both starting with arrays for energy values and a calculation of {\muE}. The {\cmnd{pre\_edge}} command will perform all the steps of pre-edge subtraction and normalization given only the input spectra. Alternatively, the {\cmnd{bkg\_cl}} command will use the Cromer-Libermann calculations for the pre-edge and normalization processes, and also give a very bad post-edge background subtraction. The {\cmnd{pre\_edge}} command will find $E_0$ from the maximum of the first derivative. This is usually ends up being a reasonable estimate of the threshold energy, which $E_0$ is meant to represent. The maximum of the first derivative is also easy to define and so can easily be compared for data from various source. In many cases, however, you'll want override this default value. This can be especially important when trying to compare many data sets, where the maximum-of-the-first-derivative may move by a point or two even for fairly good data. You can do this by explicitly telling {\cmnd{pre\_edge}} what value of $E_0$ to use, with \begin{verbatim} pre_edge(...,e0=7115.0,...) \end{verbatim} \noindent You can also explicitly set the value of $E_0$ in the {\cmnd{spline}} command: \begin{verbatim} spline(...,e0=7115.0,...) \end{verbatim} \noindent The normalization \subsection{Simple XANES spectral analysis} \label{Ch:XAFSProcess-xanes} Though not necessarily giving a complete understanding of the spectral features, a common approach to XANES analysis is to describe the edge structure as either a sum of pre-defined lineshapes or measured spectra from known ``standards''. Pre-defined lineshapes typically include a combination of arc-tangents, Gaussian, Lorentzians, or pseudo-Voight functions. \subsection{Post-Edge Background Subtraction: isolating {\chik}} \label{Ch:XAFSProcess-postedge} To fully analyze the extended fine-structure, it is traditional to isolate the fine-structure {\chik} from the slowly-varying ``background'', {$\mu_0(E)$}. This is done \subsection{XAFS Fourier Transforms} \label{Ch:XAFSProcess-ft} The Fourier Transform is essential to the understanding of EXAFS. \subsubsection{Forward Fourier Transforms with {\cmnd{fftf}}} \label{Ch:XAFSProcess-fftf} \subsubsection{BackTransforms with {\cmnd{fftr}}} \label{Ch:XAFSProcess-fftr} \subsubsection{Phase-Corrected XAFS Fourier Transforms} \label{Ch:XAFSProcess-pcft} The XAFS Fourier transform {\chir} is well-known to have peaks at $R$ values considerably lower than the neighbor distances. The difference between the peak in {\chir} and the neighbor distance is typically $\sim - 0.5\,\rm\AA$. This difference is well-understood to be due to the scattering {\emph{phase-shift}}, the $\delta(k)$ term in the XAFS equation: \[ \chi(k) = \] ifeffit-1.2.11d/doc/RefMan/ifmacs_pdf.tex0000644000175000017500000000362610771740460017117 0ustar segresegre%% macros for ifeffit -*-latex-*- %% determine if this is pdflatex or latex \newif\ifpdf \ifx\pdfoutput\undefined{\pdffalse}\else{\pdfoutput=1 \pdftrue}\fi % %%% % \ifpdf \usepackage[pdftex]{color} \definecolor{color0}{rgb}{0.00,0.00,0.70} \definecolor{color1}{rgb}{0.90,0.00,0.00} \definecolor{color2}{rgb}{0.00,0.00,0.80} \usepackage[pdftex,colorlinks,hyperindex,urlcolor=color0,% linkcolor=color1,citecolor=color2]{hyperref} \else \usepackage{color} \definecolor{color0}{rgb}{0.00,0.00,0.70} \definecolor{color1}{rgb}{0.90,0.00,0.00} \definecolor{color2}{rgb}{0.00,0.00,0.70} \usepackage[colorlinks,hyperindex,urlcolor=color0,% linkcolor=color1,citecolor=color2]{hyperref} \fi % %% \newcommand{\Newvemail}{newville@cars.uchicago.edu} \newcommand{\mailto}[1]{{\href{mailto:#1}{#1}}} \newcommand{\mailNewv}{\mailto{\Newvemail}} \newcommand{\IFFURL}{http://cars9.uchicago.edu/ifeffit/} \newcommand{\FEFFURL}{http://leonardo.phys.washington.edu/~feff/} \newcommand{\PERLURL}{http://www.perl.com/} \newcommand{\TCLURL}{http://www.scriptics.com/} \newcommand{\PYTHONURL}{http://www.python.org/} \newcommand{\PGPLOTURL}{http://www.astro.caltech.edu/~tjp/pgplot/} \newcommand{\WWWiff}{\href{\IFFURL}{\IFFURL}} \newcommand{\WWWperl}{\href{\PERLURL}{\PERLURL}} \newcommand{\WWWtcl}{\href{\TCLURL}{\TCLURL}} \newcommand{\WWWpython}{\href{\PYTHONURL}{\PYTHONURL}} \newcommand{\WWWpgplot}{\href{\PGPLOTURL}{http://www.astro.caltech.edu/\~{}tjp/pgplot/}} %% \ifpdf{\pdfinfo{/Author (Matthew Newville) /Title (The IFEFFIT Reference Guide) /Subject (Program Document for IFEFFIT) /Keywords (XAFS, FEFF) } }\fi \newenvironment{VerbSBox}% {\VerbatimEnvironment\begin{Sbox}% \begin{minipage}{5.00truein}\begin{Verbatim}}% {\end{Verbatim}\end{minipage}\end{Sbox}\setlength{\fboxsep}{2mm}{% \begin{flushright}\shadowbox{\TheSbox}\end{flushright}}} %% ifeffit-1.2.11d/doc/RefMan/prsty.bst0000644000175000017500000004665410771740460016205 0ustar segresegre%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % begin prsty.bst % % version 3.1, June 11, 1993 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % This file is part of the APS files in the REVTeX 3.1 distribution. % % Version 3.1 of REVTeX. % % % % Copyright (c) 1996 The American Physical Society. % % % % See the REVTeX 3.1 README file for restrictions and more information. % % Search for CUSTOMIZATION below to read about setting variables to % % control automatic use of ``et al.'' and automatic abbreviation. % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % This is a bibtex style file to produce Physical-Review--style % % references for inclusion in LaTeX/REVTeX documents. % % Main problem: crossref handling is terrible % % Some documentation is available (e-mail below) % % Contact: APS Liaison Office, mis@aps.org (Internet) % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ENTRY { address author booktitle chapter edition editor howpublished institution journal key month note number organization pages publisher school series title type volume year } {} { label } INTEGERS { useetal useabbrev } % % CUSTOMIZATION % % The assignments in the following function allow you to customize % your version of prsty.bst. You may wish to copy the file to another % name and customize for your personal use, if other people use this % copy of prsty.bst. % % There are two variables that can be set: useetal and useabbrev. % % The useetal variable controls the use of ``et al.''. Setting the first two % lines in the function ``init.stuff'' below as % % %#0 'useetal := % #1 'useetal := % % will substitute ``et al.'' when there are over four author names. Setting % the lines as % % #0 'useetal := % %#1 'useetal := % % will print all author names, no matter how many are used. (The only change % is which of the two lines starts with a % character.) % % The useabbrev variable controls the use of ``et al.''. Setting the last % two lines in the function ``init.stuff'' below as % % %#0 'useabbrev := % #1 'useabbrev := % % will abbreviate the first names of all authors. Setting the lines as % % #0 'useabbrev := % %#1 'useabbrev := % % will print all author first names in full, no matter how long. % % The defaults are to use et al. for over 4 authors and abbreviate first names FUNCTION {init.stuff} { %#0 'useetal := #1 'useetal := %#0 'useabbrev := #1 'useabbrev := } INTEGERS { vol.used i.temp } STRINGS { s t } FUNCTION {output} { duplicate$ empty$ 'pop$ 'write$ if$ } % Note: nothing left on stack for future processing in bibitem. FUNCTION {output.bibitem} { newline$ "\bibitem{" write$ cite$ write$ "}" write$ newline$ } FUNCTION {fin.entry} { add.period$ write$ newline$ } FUNCTION {not} { { #0 } { #1 } if$ } FUNCTION {and} { 'skip$ { pop$ #0 } if$ } FUNCTION {or} { { pop$ #1 } 'skip$ if$ } FUNCTION {field.or.null} { duplicate$ empty$ { pop$ "" } 'skip$ if$ } FUNCTION {emphasize} { duplicate$ empty$ { pop$ "" } { "{\em " swap$ * "}" * } if$ } FUNCTION {embolden} { duplicate$ empty$ { pop$ "" } { "{\bf " swap$ * "}" * } if$ } FUNCTION {paren} { duplicate$ empty$ { pop$ "" } { "(" swap$ * ")" * } if$ } INTEGERS { nameptr namesleft numnames etal } FUNCTION {format.names} { 's := #1 'nameptr := s num.names$ 'numnames := numnames #4 > s numnames "{ll}" format.name$ "others" = numnames #1 > and or 'etal := useetal { } { #0 'etal := } if$ etal { #1 #1 + 'namesleft := } { numnames 'namesleft := } if$ { namesleft #0 > } { useabbrev { s nameptr "{f. }{vv~}{ll}{, jj}" format.name$ 't := } { s nameptr "{ff }{vv~}{ll}{, jj}" format.name$ 't := } if$ nameptr #1 > { namesleft #1 > { ", " * t * } { nameptr #2 > { "," * } 'skip$ if$ t "others" = etal or { " {\it et~al.}" * } { " and " * t * } if$ } if$ } 't if$ nameptr #1 + 'nameptr := namesleft #1 - 'namesleft := } while$ } FUNCTION {format.authors} { author empty$ { "" } { author format.names } if$ } FUNCTION {format.edited} { editor empty$ { "" } { "edited by " editor format.names * } if$ } FUNCTION {format.title} { title empty$ { "" } 'title if$ } FUNCTION {lc.first.letter} { 't := "" t #1 #1 substring$ "l" change.case$ * t #2 global.max$ substring$ * } FUNCTION {n.dashify} { 't := "" { t empty$ not } { t #1 #1 substring$ "-" = { t #1 #2 substring$ "--" = not { "--" * t #2 global.max$ substring$ 't := } { { t #1 #1 substring$ "-" = } { "-" * t #2 global.max$ substring$ 't := } while$ } if$ } { t #1 #1 substring$ * t #2 global.max$ substring$ 't := } if$ } while$ } FUNCTION {first.page} { 't := "" { t empty$ not t #1 #1 substring$ "-" = not and } { t #1 #1 substring$ * t #2 global.max$ substring$ 't := } while$ } FUNCTION {format.date} { year empty$ { "" } 'year if$ } FUNCTION {format.btitle} { title emphasize } FUNCTION {tie.or.space.connect} { duplicate$ text.length$ #3 < { "~" } { " " } if$ swap$ * * } FUNCTION {either.or.check} { empty$ 'pop$ { "can't use both " swap$ * " fields in " * cite$ * warning$ } if$ } INTEGERS { multiresult } FUNCTION {multi.page.check} { 't := #0 'multiresult := { multiresult not t empty$ not and } { t #1 #1 substring$ duplicate$ "-" = swap$ duplicate$ "," = swap$ "+" = or or { #1 'multiresult := } { t #2 global.max$ substring$ 't := } if$ } while$ multiresult } FUNCTION {format.pages} { pages empty$ { "" } { pages multi.page.check { "pp.\ " pages n.dashify * } { "p.\ " pages * } if$ } if$ } FUNCTION {format.pages.a} { pages empty$ { "" } { "page" pages first.page tie.or.space.connect } if$ } FUNCTION {format.vol.num.pages} { volume field.or.null embolden " " swap$ * * pages empty$ 'skip$ { duplicate$ empty$ { pop$ format.pages.a } { ", " * pages first.page * } if$ } if$ } FUNCTION {if.comma} { { ", " * } 'skip$ if$ } % pushes "" if value passed is empty$ FUNCTION {push.string} { 'i.temp := duplicate$ empty$ { pop$ "" } { i.temp if.comma } if$ } % pushes "" if value passed is empty$ FUNCTION {push.string.check} { 'i.temp := duplicate$ empty$ { pop$ "Warning: " swap$ * " missing in entry " cite$ "." * * * warning$ "" } { swap$ pop$ i.temp if.comma } if$ } % adds nothing if value passed is empty$ FUNCTION {add.string} { 'i.temp := duplicate$ empty$ { pop$ } { * i.temp if.comma } if$ } % adds nothing if value passed is empty$ FUNCTION {add.string.check} { 'i.temp := duplicate$ empty$ { pop$ "Warning: " swap$ * " missing in entry " cite$ "." * * * warning$ } { swap$ pop$ * i.temp if.comma } if$ } FUNCTION {format.vol.page} { "volume" volume embolden #1 push.string.check " " * "pages" pages field.or.null first.page #0 add.string.check " " * } FUNCTION {empty.misc.check} { author empty$ title empty$ howpublished empty$ year empty$ note empty$ and and and and { "All relevant fields are empty in " cite$ * warning$ } 'skip$ if$ } FUNCTION {format.thesis.type} { type empty$ 'skip$ { pop$ type "t" change.case$ } if$ } FUNCTION {format.tr.number} { type empty$ { "Technical Report" } 'type if$ number empty$ { "t" change.case$ } { type empty$ { " No.~" * } { " " * } if$ number * } if$ } FUNCTION {format.etc} { vol.used 'skip$ { number empty$ { volume empty$ 'skip$ { "Vol.~" volume * * chapter empty$ pages empty$ note empty$ and and 'skip$ { ", " * } if$ } if$ } { "No.~" number * * chapter empty$ pages empty$ note empty$ and and 'skip$ { ", " * } if$ } if$ } if$ chapter empty$ 'skip$ { type empty$ { "Chap.~" chapter * * } { type "u" change.case$ "l" change.case$ " " chapter * * * } if$ pages empty$ note empty$ and 'skip$ { ", " * } if$ } if$ pages empty$ 'skip$ { format.pages * note empty$ 'skip$ { ", " * } if$ } if$ note empty$ 'skip$ { note lc.first.letter * } if$ } FUNCTION {format.pub.add.year.etc} { " (" publisher empty$ { "PUBLISHER" "No publisher for entry " cite$ "." * * warning$ } { publisher } if$ ", " * * address empty$ { "ADDRESS" "Missing address in entry " cite$ * "." * warning$ } { address } if$ ", " * * year empty$ { "YEAR" } 'year if$ ")" * * volume empty$ not number empty$ not or title empty$ series empty$ or and chapter empty$ not or pages empty$ not or type empty$ not or note empty$ not or { ", " * format.etc } 'skip$ if$ } FUNCTION {format.bedition} { edition empty$ { "" } { edition "l" change.case$ duplicate$ "first" = { pop$ "1st " } { duplicate$ "second" = { pop$ "2nd " } { duplicate$ "third" = { pop$ "3rd " } 'skip$ if$ } if$ } if$ " ed." * } if$ } FUNCTION {format.title.and.series.and.org} { #0 'vol.used := "" duplicate$ 's := title empty$ 'skip$ { title 's := } if$ booktitle empty$ 'skip$ { booktitle 's := } if$ s empty$ 'skip$ { type$ "inproceedings" = type$ "proceedings" = or type$ "inbook" = or { " in " * } { author empty$ not editor empty$ not and { " in " * } 'skip$ if$ } if$ s emphasize series empty$ editor empty$ edition empty$ and and not type$ "inproceedings" = organization empty$ not and type$ "proceedings" = organization empty$ not and or or add.string } if$ series empty$ 'skip$ { s empty$ 'skip$ { number empty$ { volume empty$ 'skip$ { "Vol.~" volume " of " * * * #1 'vol.used := } if$ } { "No.~" number " in " * * * #1 'vol.used := } if$ } if$ series emphasize edition empty$ not editor empty$ not type$ "inproceedings" = organization empty$ not and type$ "proceedings" = organization empty$ not and or or or add.string } if$ type$ "inproceedings" = type$ "proceedings" = or { organization empty$ 'skip$ { organization editor empty$ edition empty$ and not add.string } if$ } 'skip$ if$ } FUNCTION {article} { output.bibitem "author" format.authors #1 push.string.check "journal" journal #0 add.string.check " " * output format.vol.page #0 push.string " " * "date" format.date paren #0 add.string.check note empty$ 'skip$ { ", " * note lc.first.letter * } if$ fin.entry crossref empty$ 'skip$ { "See Ref.\ \cite{" crossref "}." * * write$ newline$ } if$ } FUNCTION {book} { output.bibitem format.authors #1 push.string "title" format.title.and.series.and.org #0 add.string.check format.bedition editor empty$ not add.string output format.edited #0 push.string format.pub.add.year.etc #0 add.string fin.entry crossref empty$ 'skip$ { "See Ref.\ \cite{" crossref "}." * * write$ newline$ } if$ } FUNCTION {booklet} { output.bibitem format.authors #1 push.string "title" format.title #0 add.string.check howpublished empty$ 'skip$ { ", " howpublished * * } if$ address empty$ 'skip$ { ", " address * * } if$ year empty$ 'skip$ { " (" year ")" * * * } if$ note empty$ 'skip$ { ", " note lc.first.letter * * } if$ fin.entry } FUNCTION {inbook} { book } FUNCTION {incollection} { book } FUNCTION {inproceedings}{ book } FUNCTION {proceedings} { book } FUNCTION {conference} { book } FUNCTION {manual} { output.bibitem "" author empty$ 'skip$ { format.authors #1 add.string } if$ format.btitle edition empty$ address empty$ organization empty$ year empty$ note empty$ and and and and not add.string edition empty$ 'skip$ { format.bedition organization empty$ address empty$ year empty$ note empty$ and and and not add.string } if$ organization empty$ 'skip$ { organization address empty$ year empty$ note empty$ and and not add.string } if$ address empty$ 'skip$ { address year empty$ note empty$ and not add.string } if$ year empty$ 'skip$ { year note empty$ not add.string } if$ note empty$ 'skip$ { note lc.first.letter #0 add.string } if$ fin.entry } FUNCTION {mastersthesis} { output.bibitem "author" format.authors #1 push.string.check title empty$ 'skip$ { "We don't use thesis titles in Phys. Rev, see \cite{" cite$ "}" * * warning$ } if$ "Master's thesis" format.thesis.type #1 add.string "school" school #1 add.string.check address #1 add.string "year" format.date note empty$ not add.string.check note empty$ 'skip$ { note lc.first.letter * } if$ fin.entry } FUNCTION {phdthesis} { output.bibitem "author" format.authors #1 push.string.check title empty$ 'skip$ { "We don't use thesis titles in Phys. Rev, see \cite{" cite$ "}" * * warning$ } if$ "Ph.D. thesis" format.thesis.type #1 add.string "school" school #1 add.string.check address #1 add.string "year" format.date note empty$ not add.string.check note empty$ 'skip$ { note lc.first.letter * } if$ fin.entry } FUNCTION {misc} { output.bibitem format.authors title empty$ howpublished empty$ year empty$ note empty$ and and and not push.string format.title howpublished empty$ year empty$ note empty$ and and not add.string howpublished year empty$ note empty$ and not add.string format.date note empty$ not add.string note empty$ 'skip$ { note author empty$ title empty$ howpublished empty$ year empty$ and and and 'skip$ 'lc.first.letter if$ #0 add.string } if$ fin.entry empty.misc.check } FUNCTION {techreport} { output.bibitem "author" format.authors #1 push.string.check title empty$ 'skip$ { "We chuck the title of techreports in Phys. Rev.---\cite{" cite$ "}." * * warning$ } if$ format.tr.number institution empty$ address empty$ note empty$ and and not add.string "institution" institution address empty$ note empty$ and not add.string.check address #0 add.string " (unpublished)" note empty$ not add.string note empty$ 'skip$ { note lc.first.letter * } if$ fin.entry } FUNCTION {unpublished} { output.bibitem "author" format.authors note empty$ not push.string.check note empty$ 'skip$ { note lc.first.letter #0 add.string } if$ " (unpublished)" * fin.entry } FUNCTION {default.type} { misc } MACRO {jan} {"January"} MACRO {feb} {"February"} MACRO {mar} {"March"} MACRO {apr} {"April"} MACRO {may} {"May"} MACRO {jun} {"June"} MACRO {jul} {"July"} MACRO {aug} {"August"} MACRO {sep} {"September"} MACRO {oct} {"October"} MACRO {nov} {"November"} MACRO {dec} {"December"} MACRO {acmcs} {"ACM Comput. Surv."} MACRO {acta} {"Acta Inf."} MACRO {applopt} {"Appl. Opt."} MACRO {cacm} {"Commun. ACM"} MACRO {ibmjrd} {"IBM J. Res. Dev."} MACRO {ibmsj} {"IBM Syst.~J."} MACRO {ieeese} {"IEEE Trans. Softw. Eng."} MACRO {ieeetc} {"IEEE Trans. Comput."} MACRO {ieeetcad} {"IEEE Trans. Comput.-Aided Design Integrated Circuits"} MACRO {ipl} {"Inf. Process. Lett."} MACRO {jacm} {"J.~ACM"} MACRO {jcss} {"J.~Comput. Syst. Sci."} MACRO {scp} {"Sci. Comput. Programming"} MACRO {sicomp} {"SIAM J. Comput."} MACRO {tocs} {"ACM Trans. Comput. Syst."} MACRO {tods} {"ACM Trans. Database Syst."} MACRO {tog} {"ACM Trans. Gr."} MACRO {toms} {"ACM Trans. Math. Softw."} MACRO {toois} {"ACM Trans. Office Inf. Syst."} MACRO {toplas} {"ACM Trans. Prog. Lang. Syst."} MACRO {tcs} {"Theor. Comput. Sci."} MACRO {anp} {"Adv. Nucl. Phys."} MACRO {ap} {"Ann. Phys."} MACRO {arnpc} {"Annu. Rev. Nucl. Part. Sci."} MACRO {baps} {"Bull. Am. Phys. Soc."} MACRO {cp} {"Computers Phys."} MACRO {jp} {"J. Phys."} MACRO {josa} {"J. Opt. Soc. Am."} MACRO {josaa} {"J. Opt. Soc. Am. A"} MACRO {josab} {"J. Opt. Soc. Am. B"} MACRO {nim} {"Nucl. Instrum. Meth."} MACRO {np} {"Nucl. Phys."} MACRO {rmp} {"Rev. Mod. Phys."} MACRO {physica} {"Physica"} MACRO {pl} {"Phys. Lett."} MACRO {plb} {"Phys. Lett. B"} MACRO {pr} {"Phys. Rev."} MACRO {pra} {"Phys. Rev. A"} MACRO {prb} {"Phys. Rev. B"} MACRO {prc} {"Phys. Rev. C"} MACRO {prd} {"Phys. Rev. D"} MACRO {pre} {"Phys. Rev. E"} MACRO {prl} {"Phys. Rev. Lett."} MACRO {prep} {"Phys. Rep."} MACRO {ps} {"Phys. Scr."} MACRO {rpp} {"Rep. Prog. Phys."} MACRO {sjnp} {"Sov. J. Nucl. Phys."} MACRO {springmp} {"Springer Tracts in Modern Physics"} MACRO {yadfiz} {"Yad. Fiz."} MACRO {zp} {"Z. Phys."} READ STRINGS { longest.label } INTEGERS { number.label longest.label.width } FUNCTION {initialize.longest.label} { "" 'longest.label := #1 'number.label := #0 'longest.label.width := } FUNCTION {longest.label.pass} { number.label int.to.str$ 'label := number.label #1 + 'number.label := label width$ longest.label.width > { label 'longest.label := label width$ 'longest.label.width := } 'skip$ if$ } EXECUTE {initialize.longest.label} ITERATE {longest.label.pass} FUNCTION {begin.bib} { preamble$ empty$ 'skip$ { preamble$ write$ newline$ } if$ init.stuff "\begin{thebibliography}{" longest.label * "}" * write$ newline$ } EXECUTE {begin.bib} ITERATE {call.type$} FUNCTION {end.bib} { newline$ "\end{thebibliography}" write$ newline$ } EXECUTE {end.bib} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % end prsty.bst % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ifeffit-1.2.11d/doc/RefMan/IFEFFIT.out0000644000175000017500000001337510771740460016111 0ustar segresegre \BOOKMARK [1]{section.1}{Introduction}{} \BOOKMARK [1]{section.2}{The Basics of IFEFFIT}{} \BOOKMARK [2]{subsection.2.1}{Starting the program}{section.2} \BOOKMARK [2]{subsection.2.2}{A Sample Run}{section.2} \BOOKMARK [2]{subsection.2.3}{The show and print Commands}{section.2} \BOOKMARK [1]{section.3}{Structure and Syntax of IFEFFIT}{} \BOOKMARK [2]{subsection.3.1}{Scalars, Arrays, and Strings}{section.3} \BOOKMARK [2]{subsection.3.2}{Dynamic Variables: Set, Def, and Sync}{section.3} \BOOKMARK [2]{subsection.3.3}{Fitting Variables: Guess}{section.3} \BOOKMARK [2]{subsection.3.4}{Mathematical Syntax and Operations}{section.3} \BOOKMARK [2]{subsection.3.5}{Commands}{section.3} \BOOKMARK [2]{subsection.3.6}{Keyword/Value Pairs}{section.3} \BOOKMARK [2]{subsection.3.7}{Getting information back from IFEFFIT}{section.3} \BOOKMARK [1]{section.4}{Input and Output Files}{} \BOOKMARK [2]{subsection.4.1}{Reading ASCII Column Files}{section.4} \BOOKMARK [2]{subsection.4.2}{Writing ASCII Column Files}{section.4} \BOOKMARK [2]{subsection.4.3}{IFEFFIT PAD Format for Save and Restore Files}{section.4} \BOOKMARK [1]{section.5}{Plotting with IFEFFIT}{} \BOOKMARK [2]{subsection.5.1}{Basic Plotting}{section.5} \BOOKMARK [2]{subsection.5.2}{Colors}{section.5} \BOOKMARK [2]{subsection.5.3}{Line Styles, Line Widths, and Other Attributes}{section.5} \BOOKMARK [2]{subsection.5.4}{Text Strings and Labels}{section.5} \BOOKMARK [2]{subsection.5.5}{Configuring PGPLOT}{section.5} \BOOKMARK [2]{subsection.5.6}{X-Windows Graphics}{section.5} \BOOKMARK [2]{subsection.5.7}{PostScript and GIF Graphics}{section.5} \BOOKMARK [1]{section.6}{Fitting XAFS Data with FEFF Calculations}{} \BOOKMARK [2]{subsection.6.1}{Defining Paths}{section.6} \BOOKMARK [2]{subsection.6.2}{Creating chi(k) data with ff2chi}{section.6} \BOOKMARK [2]{subsection.6.3}{Building a Fitting Model}{section.6} \BOOKMARK [2]{subsection.6.4}{Executing a Fit}{section.6} \BOOKMARK [2]{subsection.6.5}{Estimating the uncertainties in fitted variables}{section.6} \BOOKMARK [2]{subsection.6.6}{Post-Fitting Tasks}{section.6} \BOOKMARK [2]{subsection.6.7}{Simultaneous Fitting of Multiple Data Sets}{section.6} \BOOKMARK [1]{section.7}{Fitting Non-XAFS Data with IFEFFIT}{} \BOOKMARK [1]{section.8}{Commands}{} \BOOKMARK [2]{subsection.8.1}{chi_noise}{section.8} \BOOKMARK [2]{subsection.8.2}{color}{section.8} \BOOKMARK [2]{subsection.8.3}{comment}{section.8} \BOOKMARK [2]{subsection.8.4}{cursor}{section.8} \BOOKMARK [2]{subsection.8.5}{def}{section.8} \BOOKMARK [2]{subsection.8.6}{echo}{section.8} \BOOKMARK [2]{subsection.8.7}{erase}{section.8} \BOOKMARK [2]{subsection.8.8}{exit}{section.8} \BOOKMARK [2]{subsection.8.9}{feffit}{section.8} \BOOKMARK [2]{subsection.8.10}{ff2chi}{section.8} \BOOKMARK [2]{subsection.8.11}{fftf}{section.8} \BOOKMARK [2]{subsection.8.12}{fftr}{section.8} \BOOKMARK [2]{subsection.8.13}{findee}{section.8} \BOOKMARK [2]{subsection.8.14}{guess}{section.8} \BOOKMARK [2]{subsection.8.15}{history}{section.8} \BOOKMARK [2]{subsection.8.16}{load}{section.8} \BOOKMARK [2]{subsection.8.17}{macro}{section.8} \BOOKMARK [2]{subsection.8.18}{minimize}{section.8} \BOOKMARK [2]{subsection.8.19}{newplot}{section.8} \BOOKMARK [2]{subsection.8.20}{path}{section.8} \BOOKMARK [2]{subsection.8.21}{pause}{section.8} \BOOKMARK [2]{subsection.8.22}{plot}{section.8} \BOOKMARK [2]{subsection.8.23}{pre_edge}{section.8} \BOOKMARK [2]{subsection.8.24}{print}{section.8} \BOOKMARK [2]{subsection.8.25}{quit}{section.8} \BOOKMARK [2]{subsection.8.26}{read_data}{section.8} \BOOKMARK [2]{subsection.8.27}{rename}{section.8} \BOOKMARK [2]{subsection.8.28}{reset}{section.8} \BOOKMARK [2]{subsection.8.29}{restore}{section.8} \BOOKMARK [2]{subsection.8.30}{save}{section.8} \BOOKMARK [2]{subsection.8.31}{set}{section.8} \BOOKMARK [2]{subsection.8.32}{show}{section.8} \BOOKMARK [2]{subsection.8.33}{spline}{section.8} \BOOKMARK [2]{subsection.8.34}{sync}{section.8} \BOOKMARK [2]{subsection.8.35}{write_data}{section.8} \BOOKMARK [2]{subsection.8.36}{zoom}{section.8} \BOOKMARK [1]{section.9}{Macros in IFEFFIT}{} \BOOKMARK [1]{section.10}{Scripting in IFEFFIT}{} \BOOKMARK [2]{subsection.10.1}{Which language to use?}{section.10} \BOOKMARK [2]{subsection.10.2}{The Fortran and C interface to IFEFFIT}{section.10} \BOOKMARK [3]{subsubsection.10.2.1}{function ifeffit()}{subsection.10.2} \BOOKMARK [3]{subsubsection.10.2.2}{function put_scalar()}{subsection.10.2} \BOOKMARK [3]{subsubsection.10.2.3}{function get_scalar()}{subsection.10.2} \BOOKMARK [3]{subsubsection.10.2.4}{function put_string()}{subsection.10.2} \BOOKMARK [3]{subsubsection.10.2.5}{function get_string()}{subsection.10.2} \BOOKMARK [3]{subsubsection.10.2.6}{function put_array()}{subsection.10.2} \BOOKMARK [3]{subsubsection.10.2.7}{function get_array()}{subsection.10.2} \BOOKMARK [3]{subsubsection.10.2.8}{function get_echo()}{subsection.10.2} \BOOKMARK [3]{subsubsection.10.2.9}{function get_info()}{subsection.10.2} \BOOKMARK [2]{subsection.10.3}{The IFEFFIT Perl Module}{section.10} \BOOKMARK [2]{subsection.10.4}{Using IFEFFIT from Tcl}{section.10} \BOOKMARK [2]{subsection.10.5}{Using IFEFFIT from Python}{section.10} \BOOKMARK [1]{section.11}{Examples}{} \BOOKMARK [2]{subsection.11.1}{Common XAFS Analysis Tasks with IFEFFIT}{section.11} \BOOKMARK [2]{subsection.11.2}{Some non-XAFS tasks with IFEFFIT}{section.11} \BOOKMARK [2]{subsection.11.3}{Autobk 3.01}{section.11} \BOOKMARK [1]{section.A}{Installation}{} \BOOKMARK [1]{section.B}{Using the Command-Line Version}{} \BOOKMARK [1]{section.C}{Glossary of Program Variables}{} \BOOKMARK [2]{subsection.C.1}{Scalar Naming Conventions}{section.C} \BOOKMARK [2]{subsection.C.2}{Array Naming Conventions}{section.C} \BOOKMARK [2]{subsection.C.3}{Fourier transform Conventions}{section.C} ifeffit-1.2.11d/doc/RefMan/ifmacs_com.tex0000644000175000017500000000746310771740460017127 0ustar segresegre \setlength{\oddsidemargin}{0.25in} \setlength{\evensidemargin}{-0.25in} \setlength{\topmargin}{-0.25in} \setlength{\headsep}{0.375in} \setlength{\textheight}{9.00in} \setlength{\textwidth}{5.75in} \pagestyle{fancy} \fancyhf{} \addtolength{\headwidth}{\marginparwidth} \addtolength{\headheight}{2pt} \renewcommand{\headrulewidth}{0.7pt} \rhead{\slshape\thepage}\lhead{\bfseries\leftmark} \cfoot{} \definecolor{LightGrey}{gray}{0.675} \definecolor{HalfGrey}{gray}{0.5} \newcommand{\greyline}{{\color{LightGrey}{\rule{\linewidth}{0.75mm}}\par}} \newcommand{\ThickGreyLine}{{\color{HalfGrey}{\rule{\linewidth}{5pt}}\par}} \newcommand{\program}[1]{{{\scshape{#1}}}} \newcommand{\uwxafs}{\program{uwxafs3.0}} \newcommand{\feff}{\program{feff}} \newcommand{\feffit}{\program{feffit}} \newcommand{\autobk}{\program{autobk}} \newcommand{\atoms}{\program{atoms}} \newcommand{\ifeffit}{\program{ifeffit}} \newcommand{\gifeffit}{\program{g.i.feffit}} \newcommand{\athena}{\program{athena}} \newcommand{\artemis}{\program{artemis}} \newcommand{\XAIBook}{\textsl{XAFS Analysis with {\ifeffit} }} \newcommand{\IFFtut}{\textsl{The {\ifeffit} Tutorial}} \newcommand{\IFFrefg}{\textsl{The {\ifeffit} Reference Guide}} \newcommand{\cmnd}[1]{{\texttt{#1()}}} %external file name \newcommand{\file}[1]{{{\slshape\ttfamily{#1}}}} \newcommand{\feffndat}{\file{feffnnnn.dat}} \newcommand{\feffbin}{\file{feff.bin}} \newcommand{\autobkinp}{\file{autobk.inp}} \newcommand{\feffitlog}{\file{feffit.log}} %math constructions \newcommand{\Eo}{{\ensuremath{E_0}}} \newcommand{\muE}{{\ensuremath{\mu(E)}}} \newcommand{\Del}{{\ensuremath{\Delta \mu_0(E_0)}}} \newcommand{\bkg}{{\ensuremath{\mu_{0}(E)}}} \newcommand{\bkgk}{{\ensuremath{\mu_{0}(k)}}} \newcommand{\CHI}{{\ensuremath{\chi}}} \newcommand{\chiE}{{\ensuremath{\chi(E)}}} \newcommand{\chik}{{\ensuremath{\chi(k)}}} \newcommand{\chir}{{\ensuremath{\tilde\chi(R)}}} \newcommand{\chiq}{{\ensuremath{\tilde\chi(k)}}} \newcommand{\chisqr}{{\ensuremath{\chi^2}}} \newcommand{\redchi}{{\ensuremath{\chi^2_{\nu}}}} \newcommand{\Rmax}{{\ensuremath{R_{\rm max}}} } \newcommand{\kmin}{{\ensuremath{k_{\rm min}}} } \newcommand{\kmax}{{\ensuremath{k_{\rm max}}} } \newcommand{\Rbkg}{{\ensuremath{R_{\rm bkg}}} } \newcommand{\Nbkg}{{\ensuremath{N_{\rm bkg}}} } \newcommand{\RIst}{{\ensuremath{R_{\rm 1st}}} } \newcommand{\fp}{\ensuremath{{f'(E)}}} \newcommand{\fpp}{\ensuremath{{f''(E)}}} \newcommand{\angst}{\ensuremath{{\rm\,\AA}}} \newcommand{\iangst}{\ensuremath{{\rm\,\AA^{-1}}}} \newcommand{\ie}{{\emph{i.e.}}} \newcommand{\eg}{{\emph{e.g.}}} \newcommand{\etal}{{\emph{et al.}}} \newcommand{\abinitio}{{\emph{ab initio}}} %% \def\delim{\ensuremath{\langle {\rm delimiter} \rangle}} \def\rmand{{\rm and\ }} \def\rmor{{\rm or\ }} \def\caret{{{\^\ \kern-0.4em}}} \newcommand{\MNseealso}[1]{{{\texttt{{#1}}}(Section~\ref{Ch:Command:#1})}} \newcommand{\indexcmd}[1]{{\index{#1@{{\cmnd{#1}}}}}} \newcommand{\indexcmds}[2]{\index{#1@{{\cmnd{#1}}}!{#2}}} \newcommand{\indexvar}[1]{{\index{#1@{{\tt{#1}}}}}} \newcommand{\indexfil}[1]{{\index{#1@{{\file{#1}}}}}} \newcommand{\subfunc}[1]{\relax\par\vfill\goodbreak% \subsection{{\texttt{{#1}}}}{\label{Ch:Command:#1}\indexcmd{#1}}} \newcommand{\subfuncn}[1]{\subsection{{\texttt{{#1}}}}% {\label{Ch:Command:#1}\indexcmd{#1}}} \newcommand{\entryxlabel}[1]{\mbox{{\textsf{#1: }}}} \newcommand{\entrylabel}[1]{\mbox{{\textsf{#1: }}}\hfil} \newcommand{\yes}{Y} \newenvironment{IFFcom}{\begin{list}{}{\vspace{-0.05truein} \renewcommand{\makelabel}{\entrylabel}\settowidth{\leftmargin}{97pt} \settowidth{\labelwidth}{95pt}\setlength{\rightmargin}{15pt} \setlength{\labelsep}{2pt}\setlength{\listparindent}{0pt} \setlength{\itemindent}{0pt}\setlength{\itemsep}{-1pt}}} {\end{list}} ifeffit-1.2.11d/doc/RefMan/ifx.bib0000644000175000017500000007335510771740460015554 0ustar segresegre%% %% bibliography for newville thesis and papers BiBTeX %% @string{jjap = "Japanese Journal of Applied Physics"} @string{jacs = "Journal of the American Chemical Society"} @string{jap = "Journal of Applied Physics"} @string{jchemp = "Journal of Chemical Physics"} @string{jphysc = "Journal of Physics C"} @string{nim = "Nuclear Instruments and Methods"} @string{pr = "Physical Review"} @string{prb = "Physical Review B"} @string{prl = "Physical Review Letters"} @string{ny = "New York"} @string{chemanal = "Chemical Analysis"} @string{xbible = "{X-ray Absorption: Principles, Applications, Techniques of {EXAFS}, {SEXAFS}, and {XANES}}"} @book{A&M, author = "Neil W. Ashcroft and N. David Mermin", title = "{Solid State Physics}", publisher = "{Holt, Rinehart and Winston}", address = ny, year = "1976"} @book{TclBook, author = "John K. Ousterhout", title = "{Tcl and the Tk Toolkit}", publisher = "{Addison-Wesley}", address = {Menlo Park, CA}, year = "1994"} @book{CamelBook, author = "Larry Wall and Tom Christianson and Randal L. Schwartz", title = "{Programming Perl}", publisher = "{O'Reilly}", address = {Sebastopol, CA}, year = "1997"} @book{LearningPerl, author = "Randal L. Schwartz and Tom Christianson", title = "{Learning Perl, 2nd Edition}", publisher = "{O'Reilly}", address = {Sebastopol, CA}, year = "1997"} @book{LearningPython, author = "Mark Lutz and David Ascher", title = "{Learning Python}", publisher = "{O'Reilly}", address = {Sebastopol, CA}, year = "1999"} @book{AIPhandbook, author = "American Institute of Physics", title = "{American Institute of Physics Handbook}", publisher = "McGraw-Hill", year = "1972", edition = "3rd", note = "Cu, 4-123; Pt, 4-127"} @article{AUTOBK, author = "M. Newville and {P. L\=\i vi\c n\v s} and Y. Yacoby and J. J. Rehr and E. A. Stern", title = "{Near-edge x-ray-absorption fine structure of Pb: A comparison of theory and experiment}", journal = prb, year = 1993, volume = 47, number = 21, pages = "14126--14131"} @article{AXAFS, author = "J. J. Rehr and C. H. Booth and F. Bridges and S. I. Zabinsky", title = "X-ray-absorption fine structure in embedded atoms", journal = prb, year = "1994", volume = "49", number = "17", notes = "rapid communications", pages = "12347--12350"} @inproceedings{Amorph, author = "E. D. Crozier and J. J. Rehr and R. Ingalls", title = "Amorphous and Liquid Systems", booktitle = xbible, publisher = "John Wiley \& Sons", address = ny, year = "1988", editor = "D. C. Koningsberger and R. Prins", series = chemanal, volume = "92", pages = "375--384"} @article{Ankudinov&Rehr, author = "A. Ankudinov and J. J. Rehr", title = "Sum rules for polarization-dependent x-ray absorption", journal = prb, year = "1995", volume = "51", number = "2", pages = "1282--1285"} @article{Beni&Platzman, author = "G. Beni and P. M. Platzman", title = "Temperature an polarization dependence of extended x-ray-absorption fine-structure spectra", journal = prb, year = "1976", volume = "14", number = "4", pages = "1514--1518"} @book{Bevington, author = "P. R. Bevington", title = "{Data Reduction and Error Analysis for the Physical Sciences}", publisher = "McGraw-Hill", year = "1969", address = ny} @article{Binsted-JACS, author = "N. Binsted and S. L. Cook and J. Evans and G. N. Greaves and R. J. Price", title = " ", journal = jacs, year = "1987", volume = "109", pages = "3669"} @article{Bridges-S02, author = "G. G. Li and F. Bridges and C. H. Booth", title = "{XAFS Standards: A Comparison of Experiment and Theory}", journal = "in progress", year = "1995", volume = " ", number = " ", pages = " "} @book{Brillouin, author = "L. Brillouin", title = "{Science and Information Theory}", publisher = "Academic Press", address = ny, year = "1962"} @article{Cook&Sayers, author = "J. W. Cook Jr. and D. E. Sayers", title = "Criteria for automatic x-ray absorption fine structure background removal", journal = jap, year = "1981", volume = "52", number = "8", pages = "5924--5031"} @article{Cox-GaPu, author = "L. E. Cox and R. Martinez and J. H. Nickel and S. D. Conradson and P. G. Allen", title = "{Short-range atomic structure of 1 wt.\% Ga delta -stabilized plutonium by x-ray-absorption fine-structure spectroscopy}", journal = prb, year = 1995, volume = 51, number = 2, pages = "751--755"} @article{Crozier&Seary, author = "E. D. Crozier and A. J. Seary", title = "Asymmetric effects in the Extended x-ray absorption fine structure of solid and liquid zinc", journal = "Canadian Journal of Physics", year = "1980", volume = "58", pages = "1388--1399"} @article{Crozier-AsSe, author = "E. D. Crozier and F. W. Lytle and D. E. Sayers and E. A. Stern", title = "Structural determinations of liquid semiconductors using extended x-ray absorption fine structure", journal = "Canadian Journal of Chemistry", year = "1977", volume = "55", pages = "1968--1974"} @article{Cumul-GB, author = "G. Bunker", title = "Application of the ratio method of {EXAFS} analysis to disordered systems", journal = nim, year = "1983", volume = "207", pages = "437--444"} @book{Cusack, author = "N. E. Cusack", title = "{The Physics of Structurally Disordered Matter: An Introduction}", publisher= "Adam Higler: University of Sussex Press", year = "1987", address = "Bristol, UK"} @inproceedings{DAFSChapter, author = "L. B. Sorensen and J. O. Cross and M. Newville and B. Ravel and J. J. Rehr and H. Stragier and C. E. Bouldin and J. C. Woicik", title = "{Diffraction anomalous fine structure: unifying x-ray diffraction and x-ray absorption with DAFS}", booktitle= "{Resonant Anomalous X-Ray Scattering: Theory and Applications}", publisher= "North-Holland", address = "Amsterdam", year = "1994", editor = "G. Materlik and C. J. Sparks and K. Fischer", pages = "389--420"} @article{DAFSprl, author = "H. Stragier and J. O. Cross and J. J. Rehr and L. B. Sorensen and C. E. Bouldin and J. C. Woicik", title = "{Diffraction anomalous fine structure: A new x-ray structural technique}", journal = prl, year = "1992", volume = "69", number = "21", pages = "3064--3067"} @article{EXAFS-1, author = "E. A. Stern", title = "Theory of the extended x-ray-absorption fine structure", journal = prb, year = "1974", volume = "10", number = "5", pages = "3027--3037"} @article{EXAFS-2, author = "F. W. Lytle and D. E. Sayers and E. A. Stern", title = "Extended x-ray-absorption fine-structure technique. {II.} {E}xperimental practice and selected results", journal = prb, year = "1975", volume = "11", number = "12", pages = "4825-4835"} @article{EXAFS-3, author = "E. A. Stern and D. E. Sayers and F. W. Lytle", title = "Extended x-ray-absorption fine-structure technique. {III.} {D}etermination of physical parameters", journal = prb, year = "1975", volume = "11", number = "12", pages = "4836-4848"} @book{Elliott-amorph, author = "S. R. Elliott", title = "{Physics of Amorphous Materials}", edition = "2nd", publisher = "Longman Scienific and Technical", year = "1990", address = "Essex, England"} @article{FEFF4, author = "Mustre de Leon, J. and J. J. Rehr and S. I. Zabinsky", title = "{{\it Ab initio} curved-wave x-ray-absorption fine structure}", journal = prb, year = "1991", volume = "44", number = "9", pages = "4146--4156"} @article{FEFF5, author = "S. I. Zabinsky and J. J. Rehr and A. Ankudinov and R. C. Albers and M. J. Eller", title = "Multiple-scattering calculations of x-ray-absorption spectra", journal = prb, year = "1995", volume = "52", number = "4", pages = "2995--3009"} @book{FFT, author = "E. O. Brigham", title = "{The Fast Fourier Transform}", publisher = "Prentice-Hall", address = "Englewood Cliffs, NJ", year = "1974"} @article{Filipponi-theory, author = "A. Filipponi and A. Di Cicco and C. R. Natoli", title = "{X-ray-absorption spectroscopy and $n$-body distribution functions in condensed matter. I. Theory}", journal = prb, year = "1995", volume = "52", number = "21", pages = "15122--15134"} @article{Filipponi-anal, author = "A. Filipponi and A. Di Cicco", title = "{X-ray-absorption spectroscopy and $n$-body distribution functions in condensed matter. II. Data analysis and applications}", journal = prb, year = "1995", volume = "52", number = "21", pages = "15135--15149"} @article{Ellis&Freeman-XFIT, author = "P. J. Ellis and H. C. Freeman", title = "{XFIT -- an interactive EXAFS analysis program}", journal = "Journal of Synchrotron Radiation", year = "1995", volume = "2", part = "4", pages = "190--195"} @misc{EXCURVE-Note, author = "N. Binstead and J. W. Campbell and S. J. Gurman and P. C. Stephenson", title = "{The Daresbury Laboratory {\sc excurve} program}", publisher = "Daresbury Laboratory", address = "Warrington, England"} @article{Fontaine-alcu, author = "A. Fontaine and P. Lagarde and A. Naudon amd D. Raoux and D. Spanjaard", title = "{EXAFS} studies of {Al-Cu} alloys", journal = "Philosophical Magazine B", year = "1979", volume = "40", number = "1", pages = "17--30"} @article{Frenkel&Rehr, author = "A. I. Frenkel and J. J. Rehr", title = "Thermal expansion and x-ray-absorption fine-structure cumulants", journal = prb, year = "1993", volume = "48", number = "1", pages = "585--588"} @article{Frenkel-XAFS8, author = "A. Frenkel and A. Voronel and A. Katzir and M. Newville and E. A. Stern", title = "Buckled crystalline structure of disordered mixed salts", journal = "Physica B", year = 1995, volume = "208\&209", notes = "part of XAFS VIII conference", pages = "334--336"} @article{Frenkel-mixed, author = "A. Frenkel and E. A. Stern and A. Voronel and M. Qian and M. Newville", title = "Buckled Crystalline Structure of Mixed Ionic Salts", journal = prl, year = "1993", volume = "71", number = "21", pages = "3485--3488"} @article{Frenkel-salts, author = "A. I. Frenkel and E. A. Stern and A. Voronel and M. Qian and M. Newville", title = "Multiple-scattering x-ray-absorption fine-structure analysis and thermal expansion of alkali halides", journal = prb, year = "1993", volume = "48", number = "17", pages = "12449--12458"} @article{Frenkel-solving, author = "A. Frenkel and E. A. Stern and A. Voronel and M. Qian and M. Newville", title = "Solving the structure of disordered mixed salts", journal = prb, year = "1994", volume = "49", number = "17", pages = "11662--11674"} @article{Freund&Ingalls&Crozier, author = "J. Freund and R. Ingalls and E. D. Crozier", title = "Extended x-ray-absorption fine-structure study of alkali-metal halides under high pressure", journal = prb, year = "1991", volume = "43", number = "12", pages = "9894--9905"} @article{Fujikawa&Miyanaga1, author = "T. Fujikawa and T. Miyanaga", title = "{Quantum statistical approach to Debye-Waller Factor in EXAFS, EELS and ARXPS. I. Anharmonic contribution in plane-wave approximation}", journal = "{Journal of the Physical Society of Japan}", year = 1993, volume = 62, number = 11, pages = "4108--4022"} @misc{GBunker-ICSC, author = "G. Bunker", title = "{Elements of EXAFS Analysis}", year = "1993", note = "Tutorial for the International XAFS Society Subcommittee on Standards and Criteria", howpublished = "unpublished"} @article{Greegor&Lytle, author = "R. B. Greegor and F. W. Lytle", title = "Extended x-ray absorption fine structure determination of thermal disorder in {Cu}: {Comparison} of theory and experiment", journal = prb, volume = "20", number = "12", year = "1979", pages = "4902--4907"} @article{HL, author = "L. Hedin and B. I. Lundqvist", title = "Explicit local exchange-correlation potentials", journal = jphysc, year = "1971", volume = "4", pages = "2064--2083"} @article{Crozier-XAFS8, author = "E. D. Crozier", title = "Impact of the asymmetric pair distribution function in the analysis of {XAFS}", journal = "Physica B", year = 1995, volume = "208\&209", notes = "part of XAFS VIII conference", pages = "330--333"} @inproceedings{Hayes&Boyce, author = "T. M. Hayes and J. B. Boyce", title = "{Extended X-Ray Absorption Fine Structure Spectroscopy}", booktitle = "{Solid State Physics}", publisher = "Academic Press", address = ny, year = 1982, editor = "H. Ehrenreich and F. Seitz and D. Turnbull", series = "Solid State Physics", volume = 37, pages = "173--351"} @article{Holland, author = "B. W. Holland and J. B. Pendry and R. B. Pettifer and J. Bordas", title = "{Atomic origin of structure in EXAFS experiments}", journal = jphysc, year = "1978", volume = "11", pages = "633--642"} @article{Ingalls-1, author = "R. Ingalls and E. D. Crozier and J. E. Whitmore and A. J. Seary and J. M. Tranquada", title = "Extended x-ray absorption fine structure of {NaBr} and {Ge} at high pressures", journal = "Journal of Applied Physics", year = "1980", volume = "51", number = "6", pages = "3158--3163"} @book{Kendall, author = "M. G. Kendall", title = "{The Advanced Theory of Statistics}", volume = "1", publisher = "Charles Griffin \& Co. Ltd.", year = "1958", address = "London"} @article{Keski, author = "O. Keski-Rahkonen and M. O. Krause", title = "Total and partial atomic-level widths", journal = "Atomic Data and Nuclear Data Tables", year = "1974", volume = "14", number = "2", pages = "140--146"} @book{Kittel-intro, author = "Charles Kittel", title = "{Introduction to Solid State Physics}", publisher = "John Wiley \& Sons", edition = "6th", year = "1986"} @article{Knapp-dwf, author = "G. S. Knapp and H. K. Pan and J. M. Tranquada", title = "Extended x-ray absorption fine-structure {Einstein} frequency and moments of the phonon spectrum: {An} experimental and theoretical study", journal = prb, year = "1985", volume = "32", number = "4", pages = "2006--2009"} @article{Ishii-dwf, author = "Tadao Ishii", title = "Note on the {K} extended x-ray absorption fine-structure Debye-Waller factor", journal = "J. Phys: Condens. Matter", year = "1992", volume = "4", pages = "8029--8034"} @article{Dalba-anharm, author = "G. Dalba and P. Fornasini and R. Gotter and F. Rocca", title = "Anharmonicity effects of the extended x-ray absorption fine structure: The case of {$\beta$-AgI}", journal = prb, year = "1995", volume = "52", number = "1", pages = "149--157"} @article{Dalba-noncryst, author = "G. Dalba and P. Fornasini and D. Diop and M. Grazioli and F. Rocca", title = "Local structure and dynamics of amorphous germanium studied by the cumulant expansion of {EXAFS}", journal = "J. of Non-Crystalline Solids", volume = "164--166", year = "1993", pages = "159--162"} @article{Hosokawa-noncryst, author = "S. Hosokawa and S. Yamada and K. Tamura", title = "Density measurements for liquid Se-Te mixtures at high temperatures and pressures", journal = "J. of Non-Crystalline Solids", volume = "156--158", year = "1993", pages = "708--711"} @article{Kamiya-etal, author = "K. Kamiya and K. Okasaka and M. Wada and H. Nasu and T. Yoko", title = "Extended X-ray absorption fine structure {(EXAFS)} study on the local environment around copper in low thermal expansion copper aluminosilicate glasses", journal = "J. of Am. Ceramic Soc.", volume = "75", number = "2", year = "1992", pages = "477-478"} @book{L&L-statmech, author = "L. D. Landau and E. M. Lifshitz", title = "{Statistical Physics}", publisher = "Addison-Wesley", address = ny, edition = "2nd", year = "1969"} @article{Lee&Beni, author = "P. A. Lee and G. Beni", journal = prb, year = "1977", volume = "15", pages = "2862"} @article{Lee&Citrin, author = "P. A. Lee and P. H. Citrin and P. Eisenberger and B. M. Kincaid", title = "Extended x-ray absorption fine structure --- its strengths and limitations as a structural tool", journal = "Reviews of modern physics", year = "1981", volume = "53", number = "4", pages = "769--806"} @article{Lee&Pendry, author = "P. A. Lee and J. B. Pendry", title = "{Theory of extended x-ray absorption fine-structure}", journal = prb, year = "1975", volume = "11", number = "8", pages = "2795--2811"} @article{Li&Bridges, author = "G. Li and F. Bridges and G. S. Brown", title = "Multielectron X-Ray Photoexcitation Observations in X-Ray-Absorption Fine-Structure Background", journal = prl, year = "1992", volume = "68", number = "10", pages = "1609--1612"} @article{Lottici, author = "P. P. Lottici", title = "Extended x-ray absorption fine-structure {Debye-Waller} factors and vibrational density of states in amorphous arsenic", journal = prb, year = "1987", volume = "35", number = "3", pages = "1236--1241"} @article{MN-feffit-XAFS8, author = "M. Newville and B. Ravel and D. Haskel and J. J. Rehr and E. A. Stern and Y. Yacoby", title = "Analysis of multiple-scattering XAFS data using theoretical standards", journal = "Physica B", year = 1995, volume = "208\&209", notes = "part of XAFS VIII conference", pages = "154--156"} @article{MN-impure-XAFS8, author = "M. Newville and E. A. Stern", title = "The temperature dependence of substitutional impurities in Ag as measured by XAFS", journal = "Physica B", year = 1995, volume = "208\&209", notes = "part of XAFS VIII conference", pages = "369--370"} @article{Maradudin&Flinn, author = "A. A. Maradudin and P. A. Flinn", title = "{Anharmonic Contributions to the Debye-Waller Factor}", journal = pr, year = "1963", volume = "129", number = "6", pages = "2529--2547"} @article{Marquardt, author = "D. W. Marquardt", journal = "Journal of the Society for Industrial and Applied Mathematics", year = "1963", volume = "11", pages = "431--441"} @book{McMaster, author = "W. H. {McMaster} and N. Kerr-Del Grande and J. H. Mallett and J. H. Hubbell", title = "{Compilation of X-ray Cross Sections. Lawrence Radiation Laboratory Report UCRL-50174}", publisher = "National Bureau of Standards", year = "1969", address = "Springfield, VA"} @misc{McM-online, author = "P. Bandyopadhyay", title = "{On-Line X-ray Cross Sections Based on the McMaster Tables}", note = "http://www.csrii.iit.edu/", year = "1995"} @book{Messiah, author = "A. Messiah", title = "{Quantum Mechanics}", publisher = "John Wiley \& Sons", year = "1966"} @article{Miyanaga&Fujikawa2, author = "T. Miyanaga and T. Fujikawa", title = "{Quantum statistical approach to Debye-Waller Factor in EXAFS, EELS and ARXPS. II. Application to one-dimensional models}", journal = "{Journal of the Physical Society of Japan}", year = 1994, volume = 63, number = 3, pages = "1036--1052"} @article{Miyanaga&Fujikawa3, author = "T. Miyanaga and T. Fujikawa", title = "{Quantum statistical approach to Debye-Waller Factor in EXAFS, EELS and ARXPS. III. Applicability of Debye and Einstein approximation}", journal = "{Journal of the Physical Society of Japan}", year = 1994, volume = 63, number = 10, pages = "3683--3690"} pages = "197--212"} @book{NumRec, author = "W. H. Press and S. A. Teukolsky and W. T. Vetterling and B. P. Flannery", title = "{Numerical Recipes in FORTRAN}", publisher = "Cambridge University Press", address = "Cambridge", edition = "2nd", year = "1992"} @article{ODay, author = "P. A. O'Day and J. J. Rehr and S. I. Zabinsky and G. Brown", title = "Extended {X}-ray Absorption Fine Structure ({EXAFS}) Analysis of Disorder and Multiple-Scattering in Complex Crystalline Solids", journal = jacs, year = "1994", volume = "116", number = "7", pages = "2938--2949" } @article{Pbmelt, author = "E. A. Stern and {P. L\=\i vi\c n\v s} and Z. Zhang", title = "Thermal Vibration and Melting from a Local Perspective", journal = prb, year = 1991, volume = 43, pages = "8850--8860"} @book{Wyckoff, author = "Ralph W. G. Wyckoff", title = "Crystal Structures", publisher = "Interscience", edition = "2nd", year = "1963", address = "New York"} @article{Quinn, author = "J. J. Quinn", title = "Range of excited electrons in metals", journal = pr, year = "1962", volume = "126", number = "4", pages = "1453--1457"} @article{RAZ, author = "J. J. Rehr and R. C. Albers and S. I. Zabinsky", title = "High-order multiple-scattering calculations of x-ray-absorption fine structure", journal = prl, year = "1992", volume = "69", number = "23", pages = "3397--3400"} @article{RDF, author = "E. A. Stern and Y. Ma and O. Hanske-Petitpierre", title = "Radial distribution function in x-ray-absorption fine structure", journal = prb, year = "1992", volume = "46", number = "2", pages = "687--694"} @article{Ravel-XAFS8, author = "B. Ravel and E. A. Stern", title = "Local disorder and near edge structure in titanate perovskites", journal = "Physica B", year = 1995, volume = "208\&209", notes = "part of XAFS VIII conference", pages = "316--318"} @article{Rechav-prl, author = "B. Rechav and Y. Yacoby and E. A. Stern and J. J. Rehr M. Newville", title = "Local Structure below and above the Antiferrodistortive Phase Transition", journal = prl, year = "1994", volume = "72", number = "9", pages = "1352--1355"} @article{Rehr&Albers, author = "J. J. Rehr and R. C. Albers", title = "Scattering-matrix formulation of curved-wave multiple-scattering theory: {Application} to x-ray-absorption fine structure", journal = prb, year = "1990", volume = "41", number = "12", pages = "8139--8149"} @article{Rehr-AXAFS-XAFS8, author = "J. J. Rehr and S. I. Zabinsky and A. Ankudinov and R. C. Albers", title = "Atomic-XAFS and XANES", journal = "Physica B", year = 1995, volume = "208\&209", notes = "part of XAFS VIII conference", pages = "23--26"} @article{Rehr-JACS, author = "J. J. Rehr and Mustre de Leon, J. and S. I. Zabinsky and R. C. Albers", title = "Theoretical x-ray absorption fine structure standards", journal = jacs, year = "1991", volume = "113", number = "14", pages = "5135--5140"} @article{Rehr-s02, author = "J. J. Rehr and E. A. Stern and R. L. Martin and E. R. Davidson", title = "Extended x-ray-absorption fine-structure amplitudes --- Wave-function relaxation and chemical effect", journal = prb, year = "1978", volume = "17", number = "2", pages = "560--565"} @article{Speder&Rennert-XAFS8, author = "O. Speder and P. Rennert", title = "{Influence of spherical wave corrections on the temperature dependence of XAFS multiple scattering processes}", journal = "Physica B", year = "1995", volume = "208\&209", pages = "157--158"} @article{Rennert, author = "P. Rennert", title = "{Calculation of the XAFS Debye-Waller Factor with Spherical-Wave Corrections}", journal = jjap, year = 1993, volume = 32, pages = "79--82", note = "Suppl.~32--2" } @article{Brouder, author = "C. Brouder", title = "{Disorder effects on curved-wave extended x-ray absorption fine structure}", journal = "J. Phys. C: Solid State Phys", year = 1988, volume = 21, pages = "5075--5086"} @article{Roentgen, author = "Roentgen", journal = "z. phys.", year = "1895"} @article{Rose&Shapiro, author = "M. E. Rose and M. M. Shapiro", title = "Statistical errors in absorption experiments", journal = pr, year = "1948", volume = "74", number = "12", pages = "1853--1864"} @inproceedings{SEXAFS, author = "{J. St\"ohr}", title = "{SEXAFS: Everything You Always Wanted to Know But Were Afraid to Ask}", booktitle = xbible, publisher = "John Wiley \& Sons", address = ny, year = "1988", editor = "D. C. Koningsberger and R. Prins", series = chemanal, volume = "92", pages = "452"} @book{Sakurai, author = "J. J. Sakurai", title = "{Modern Quantum Mechanics}", publisher = "Addison-Wesley", year = "1985"} @inproceedings{Sayers&Bunker, author = "D. E. Sayers and B.A. Bunker", title = "Data Analysis", booktitle = xbible, publisher = "John Wiley \& Sons", address = ny, year = 1988, editor = "D. C. Koningsberger and R. Prins", series = chemanal, volume = 92, chapter = 6, pages = 211} @article{Scheuer&Lengeler, author = "U. Scheuer and B. Lengeler", title = "Lattice distortions of solute atoms in metals studied by x-ray-absorption fine structure", journal = prb, year = 1991, volume = 44, number = 18, pages = "9883--9894"} @article{Sevillano, author = "E. Sevillano and H. Meuth and J. J. Rehr", title = "Extended x-ray absorption fine structure {Debye-Waller} factors. {I}. {M}onatomic crystals", journal = prb, year = "1979", volume = "20", number = "12", pages = "4908--4911"} @article{Stand&Crit, author = "F. W. Lytle and D. E. Sayers and E. A. Stern", title = "Report on the International Workshop on Standards and Criteria in X-ray Absorption Spectroscopies", journal = "Physica B", year = 1989, volume = 158, pages = "701--722"} @article{Stern&Bunker&Heald, author = "E. A. Stern and B. A. Bunker and S. M. Heald", title = "Many-body effects on extended x-ray absorption fine structure amplitudes", journal = prb, year = "1980", volume = "21", number = "12", pages = "5521--5539"} @inproceedings{Stern&Heald, author = "E. A. Stern and S. M. Heald", title = "{Basic Principles and Applications of EXAFS}", booktitle = "{Handbook of Synchrotron Radiation}", publisher = "North-Holland", address = ny, year = 1983, editor = "E. E. Koch", chapter = 10, pages = "995--1014"} @article{Stern-XAFS8, author = "E. A. Stern and M. Newville and B. Ravel and Y. Yacoby and D. Haskel", title = "The {UWXAFS} analysis package: philosophy and details", journal = "Physica B", year = 1995, volume = "208\&209", notes = "part of XAFS VIII conference", pages = "117--120"} @article{Stern-idp+2, author = "E. A. Stern", title = "Number of relevant independent points in X-ray-absorption fine-structure spectra", journal = prb, volume = "48", number = "13", year = "1993", pages = "9825--9827"} @article{Tranq&Ingalls, author = "J. M. Tranquada and R. Ingalls", title = "Extended x-ray-absorption fine-structure study of anharmonicity in {CuBr}", journal = prb, year = "1983", volume = "28", number = "6", pages = "3520--3528"} @article{Troger-XAFS8, author = "{L. Tr\"oger and D. Arvanitis and T. Yokoyama and K. Baberschke}", title = "Local dynamics and local thermal expansion around light elements in the bulk and on surfaces", journal = "Physica B", year = "1995", volume = "208\&209", notes = "part of XAFS VIII conference", pages = "267--268"} @article{Troger-prb94, author= "{L. Tr\"oger and T. Yokoyama and D. Arvanitis and T. Lederer and M. Tischer and K. Baberschke}", title = "Determination of bond lengths, atomic mean-square relative displacements, and local thermal expansion by means of soft-x-ray photoabsorption", journal = prb, year = "1994", volume= "49", number= "2", pages = "888--903"} @article{Tweet&Akimoto, author = "D. J. Tweet and K. Akimoto", title = "Solving an interfacial structure with multiple wavelength anomalous dispersion {(MAD)}", journal = "Modern Physics Letters B", year = "1994", volume = "8", number = "12", pages = "721--737"} @article{Vaarkamp, author = "M. Vaarkampe and I. Dring and R. J. Oldman and E. A. Stern and D. C. Koningsberger", title = "Comparison of theoretical methods for the calculation of extended X-ray-absorption fine structure", journal = prb, volume = "50", number = "11", year = "1994", pages = "7872--7883"} @book{Waseda-NonCryst, author = "Y. Waseda", title = "{The Structure of Non-Crystalline Materials}", publisher = "McGraw-Hill", year = "1980", address = ny} @book{XAFSbible, editor = "D. C. Koningsberger and R. Prins", title = xbible, publisher = "John Wiley \& Sons", address = ny, year = 1988, series = chemanal, volume = 92} @book{deBoor, author = "C. deBoor", title = "{A practical guide to splines}", publisher = "Springer-Verlag", year = "1978", address = ny} @book{synchrotron-handbook, title = "{Handbook of Synchrotron Radiation}", publisher = "North-Holland", address = ny, year = 1983, editor = "E. E. Koch"} ifeffit-1.2.11d/doc/RefMan/license.tex0000644000175000017500000000271510771740460016444 0ustar segresegre%% %% toc and license notification %% \clearpage \setcounter{page}{1}\pagenumbering{roman} \tableofcontents \clearpage \section*{License} \bigskip \noindent{ Copyright \copyright 1997--2005 Matthew Newville, The University of Chicago} \noindent{ Copyright \copyright 1992--1996 Matthew Newville, University of Washington } \bigskip\noindent Permission to use and redistribute the source code or binary forms of this software and its documentation, with or without modification is hereby granted provided that the above notice of copyright, these terms of use, and the disclaimer of warranty below appear in the source code and documentation, and that none of the names of The University of Chicago, The University of Washington, or the authors appear in advertising or endorsement of works derived from this software without specific prior written permission from all parties. \medskip\noindent THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THIS SOFTWARE. \clearpage \setcounter{page}{1} \pagenumbering{arabic} ifeffit-1.2.11d/doc/RefMan/refman.tex0000644000175000017500000000143110771740460016264 0ustar segresegre%%#fixtex% for html/pdf -*-latex-*- %% \documentclass[11pt]{article} \usepackage{fancybox,fancyhdr,alltt,times,makeidx,verbatimfiles,graphicx} \newcommand{\Vers}{{1.2.7}} \newcommand{\update}{Apr 07, 2005} %%#Macros% \include{ifmacs_pdf} \include{ifmacs_com} % \includeonly{title_pdf,intro,xafsprocess,fitting,minimize,fourier} % \includeonly{title_pdf,license,intro,basics,structure,plotting,commands} \makeindex \begin{document} %%#TitlePage% \include{title_pdf} \include{license} \include{intro} \include{basics} \include{structure} \include{iofiles} \include{plotting} \include{xafsprocess} \include{fitting} \include{minimize} \include{commands} \include{macros} \include{scripting} \appendix \include{glossary} \include{fourier} \include{biblio} \printindex \end{document} %% ifeffit-1.2.11d/doc/RefMan/basics.tex0000644000175000017500000003232610771740460016267 0ustar segresegre%%#fixtex% for html/pdf -*-latex-*- \section{The Basics of {\ifeffit}} \label{Ch:Basics} {\ifeffit} is a command-based program. That is, you tell {\ifeffit} to do something, it does that and then waits for you to tell it what to do next. The commands that {\ifeffit} accepts are simple statements (there are no loops or conditional statements) useful for data manipulation, and especially for XAFS analysis. Most commands tell {\ifeffit} to manipulate arrays of numerical data. There are commands for reading arrays from files, writing arrays to files, plotting arrays, doing simple mathematical manipulation of arrays, and more XAFS-specific commands such as background-spline removal and Fourier transforms. It can also fit XAFS data using theoretical standards from {\feff} with complex modeling abilities and automated error analysis. This chapter gives a quick overview of {\ifeffit} with a simple annotated example. Much of this material is also covered in {\IFFtut}. \subsection{Starting the program} \label{Ch:Basics-starting} Typing {\tt{ifeffit}} at the system command prompt will start the basic {\ifeffit} command-line program. You should get a set of messages and a command prompt that looks like this: {\small\begin{verbatim} Ifeffit 1.2.7 Copyright (c) 2005 Matt Newville, Univ of Chicago command-shell version 1.1 with GNU Readline Ifeffit> \end{verbatim}} \noindent At this point, you're ready to start typing {\ifeffit} commands at the prompt. If you don't get such a prompt, the installation on your machine is probably corrupted. Detailed installation instructions are available with the {\ifeffit} distribution. \subsection{A Sample Run} \label{Ch:Basics-sample} We start with a fairly complete example (see the tutorial for a more gentle introduction). Let's say you have some raw data from a beamline in a plain-text column format, and you want to convert it to $\mu(E)$, do a background subtraction, and then a Fourier Transform to see what the data looks like in $R$-space. Though a very practical request, it's really quite a bit of data processing, so this is a fairly intense example. Here's what the session might look like: {\small{ %%#VerbSBox% \begin{VerbSBox} Ifeffit> read_data(file=Cu.dat, type=raw, group= cu) Ifeffit> cu.energy = cu.1 * 1000.0 Ifeffit> cu.xmu = ln(cu.2 / cu.3) Ifeffit> spline(energy = cu.energy, xmu = cu.xmu, Ifeffit> rbkg=1.1, kweight=1., kmin=0) Ifeffit> plot(cu.energy, cu.xmu) Ifeffit> plot(cu.energy, cu.bkg, xmin=8850, xmax=9300, Ifeffit> color=red) Ifeffit> kweight = 2.0, cu.chi_kw = cu.chi * cu.k^kweight Ifeffit> newplot(cu.k, cu.chi_kw) Ifeffit> fftf(real = cu.chi, kmin = 2.0, kmax = 13.0, Ifeffit> dk = 1.0, kweight=2) Ifeffit> newplot(cu.r, cu.chir_mag, xmax=8) Ifeffit> $title1 = "Test: writing out k, chi, chi*k" Ifeffit> $title2 = " data from Cu.dat, rbkg = 1.0" Ifeffit> write_data(file = Out.chi, cu.k, cu.chi, Ifeffit> cu.chi_kw, $title1, $title2) \end{VerbSBox} %%#VerbSBox% }}\noindent One important aspect of {\ifeffit} is that you can save commands into a file and execute all commands in that file at one time. By saving the above commands into the file {\file{process.iff}}, we could simply type {\tt{load process.iff}} at the {\ifeffit} command line. These two methods of running these commands are completely equivalent. We'll now go through each of these lines in detail. At times there may be {\emph{too}} much detail here. If so, please go through the {\textsl{The {\ifeffit} Tutorial}} and be patient. \begin{verbatim} Ifeffit> read_data(file=Cu.dat, type=raw, group= cu) \end{verbatim} \noindent This command reads in data arrays from the ASCII column file {\file{Cu.dat}}. The arguments {\tt{type=raw}} and {\tt{group=cu}} help {\cmnd{read\_data()}} name the arrays it reads in. Because arrays are often read in and processed together, it is convenient to give them names that are related. Arrays names always have two parts -- a prefix and suffix, with a dot '.' in between. The prefix gives the group name, and the suffix explains what the data contains. Here, {\tt{cu}} is used as the group name (prefix). The type {\tt{raw}} is the simplest type, so the suffixes will just be the column index. To make a long story short, we just read in the arrays {\tt{cu.1}}, {\tt{cu.2}}, and {\tt{cu.3}}. \begin{verbatim} Ifeffit> cu.energy = cu.1 * 1000. Ifeffit> cu.xmu = ln(cu.2 / cu.3) \end{verbatim} \noindent Presumably, we know what the contents of our data file. For this {\file{Cu.dat}} file, the column contained energy in keV, the second contained $I_0$ and the third $I$, for absorption data measured in transmission. There might have been more columns in the file, but this is all we need at this point. {\ifeffit} prefers to think about energy in eV not keV, so we make an array {\tt{cu.energy}} that has energy in eV, and then we calculate $\mu(E)$ and call that {\tt{cu.xmu}}. Note that the math here is done on all elements of the array. \begin{verbatim} Ifeffit> spline(energy = cu.energy, xmu = cu.xmu, Ifeffit> rbkg=1.1,kweight=1.,kmin=0) \end{verbatim} \noindent This computes the background spline $\mu_0(E)$ for our $\mu(E)$ using the {\autobk} algorithm. The argument {\tt{energy = cu.energy}} names the array to use as the energy values, and {\tt{xmu = cu.xmu}} names the $\mu(E)$ array. {\tt{rbkg=1.1}} sets the value of $R_{\rm bkg}$, while {\tt{kweight=1.}} sets the $k$-weighting, and {\tt{kmin=0}} sets the value of $k_{\rm min}$. Like many other commands, {\cmnd{spline}} uses, modifies, and (if necessary) creates several arrays and scalars. The complete list of what {\cmnd{spline}} uses is listed in section~{\ref{Ch:Command:spline}}. For now a partial list will do: {\cmnd{spline}} sets the arrays {\tt{cu.bkg}} to contain $\mu_0(E)$, {\tt{cu.k}} to contain the $k$ values, and {\tt{cu.chi}} to contain $\chi(k)$. Several scalar values (including {\tt{rbkg}}, {\tt{kweight}}, {\tt{kmin}}, and {\tt{e0}}) are also set by {\cmnd{spline}}. You can see the values of these variables with the {\cmnd{show}} command -- try {\tt{show(e0, kmax)}} for example. \begin{verbatim} Ifeffit> plot(cu.energy, cu.xmu) \end{verbatim} \noindent This plots $\mu(E)$. That is a plot window should appear and a trace of $\mu(E)$ should be drawn on it. If this does not happen, please consult the installation instructions. The {\cmnd{plot}} command has many optional arguments, but here we're just giving the array names for the ordinate {\tt{cu.energy}} and the abscissa {\tt{cu.xmu}}. % Actually, we could have even dropped the group name in the argument. This % is a common feature -- When a command expects to read an array name and % doesn't find a name with a '.' in it, it uses the name given as the suffix % and uses the default group name (which gets set by all array-processing % commands, so is likely to be set already). This means that we could have % typed {\tt{plot(energy, xmu)}} and gotten the same plot. \begin{verbatim} Ifeffit> plot(cu.energy, cu.bkg, xmin= 8850, xmax= 9300, Ifeffit> color=red) \end{verbatim} \noindent This adds a plot of $\mu_0(E)$ to the previous plot. We specify the x range of the plot with {\tt{xmin = 8850, xmax = 9300}} to look at just the near-edge region, and explicitly give the color to use for $\mu_0(E)$. Note that overplotting is the default behavior. See section~{\ref{Ch:Command:plot}} for all the plotting options, and chapter~{\ref{Ch:Plot}} for even more information about plotting with {\ifeffit}. \begin{verbatim} Ifeffit> kweight = 2.0, cu.chi_kw = cu.chi * cu.k^kweight \end{verbatim} \noindent This sets the value of {\tt{kweight}} and uses the new value to create the array {\tt{cu.chi\_kw}} which contains $k^2\chi(k)$. Note that multiple ``set variable'' commands were put on a single line. \begin{verbatim} Ifeffit> newplot(cu.k, cu.chi_kw) \end{verbatim} \noindent This plots the $k$-weighted $\chi(k)$ that we just calculated. {\cmnd{newplot}} is a variation of {\cmnd{plot}} command that reinitializes the plot, so that it won't be plotted over the current window (which was still showing $\mu(E)$ and $\mu_0(E)$). \begin{verbatim} Ifeffit> fftf(real = cu.chi, kmin = 2.0, kmax = 13.0, Ifeffit> dk = 1.0, kweight=2) \end{verbatim}\noindent This does the forward XAFS Fourier transform of $\chi(k)$. The argument {\tt{real = cu.chi}} tells {\cmnd{fftf}} to use {\tt{cu.chi}} (which is the un-$k$-weighted $\chi(k)$ from {\cmnd{spline}}) as the real part of the function to Fourier transform. We could have said {\tt{imag = cu.chi}} to use $\chi(k)$ as the imaginary part. This is, to some extent, a matter of convention -- see {\XAIBook} for more details. The Fourier transform window was specified with the parameters {\tt{kmin}}, {\tt{kmax}}, and {\tt{dk}}. The $k$-weight parameter for the Fourier transform will be read from the variable {\tt{kweight}}, which we just defined as 2. {\cmnd{fftf}} creates arrays {\tt{cu.r}} for $R$, and {\tt{cu.chir\_re}}, {\tt{cu.chir\_im}}, and {\tt{cu.chir\_mag}} for the real part, imaginary part, and magnitude of $\tilde\chi(R)$, among other things. \begin{verbatim} Ifeffit> newplot(cu.r, cu.chir_mag, xmax = 8) \end{verbatim}\noindent Now we plot $|\chi(R)|$, explicitly limiting the $R$-range to $8 {\rm{\AA}}$. By default, the $R$-based arrays from {\cmnd{fftf}} will extend to $10 {\rm{\AA}}$. \begin{verbatim} Ifeffit> $title1 = "Test: writing out k, chi, chi*k" Ifeffit> $title2 = " data from Cu.dat, rbkg = 1.1" \end{verbatim}\noindent Here we define a pair of {\emph{text string}} variables, which always have names starting with a dollar sign. These are useful for doing things like \begin{verbatim} Ifeffit> write_data(file = out.chi, cu.k, cu.chi, Ifeffit> cu.chi_kw, $title1, $title2,e0,rbkg) \end{verbatim}\noindent in which we save the $\chi(k)$ and $k$-weighted $\chi(k)$ data to the file {\file{out.chi}}. The rest of the arguments list the arrays, text strings, and scalars to write to the output file. Text strings will be written first, then the scalars, and finally the data arrays will be written, all given in the order listed. This ends the annotated example. \subsection{The {\texttt{show}} and {\texttt{print}} Commands} \label{Ch:Basics-show} Two very important commands that you definitely want to know about were left out of the above example. These are the {\cmnd{show}} and {\cmnd{print}} commands, which will write out information about Program Variables, including their values. The {\cmnd{show}} command takes a simple list of program variables, like this: \begin{verbatim} Ifeffit> show e0, kmin, $title1, cu.chi \end{verbatim}\noindent %%%-------------------------------------------------------------------------$ and will print something like \begin{verbatim} e0 = 8982.315 kmin = 2.000000 $title1 = Test: writing out k, chi, chi*k cu.chi = 302 pts [ -0.3232080 : 1.233829 ] \end{verbatim} %%%----------------------------------------$ \noindent {\cmnd{show}} doesn't print out entire arrays but gives just enough information (the number of points, and the minimum and maximum value) to convince you that an array exists. The {\cmnd{show}} command can also be used to show all current scalars, arrays, and strings. You can read more about the {\cmnd{show}} command in section~{\ref{Ch:Command:show}}. Whereas the {\cmnd{show}} command will only report about existing variables, and will not do any processing, the {\cmnd{print}} command is a bit more literal, printing out the {\emph{values}} of variables or expressions. That is, {\tt{print(e0)}} will just print the numerical value of {\tt{e0}} to the screen: \begin{verbatim} Ifeffit> print e0 8982.315 Ifeffit> print "sqrt(25) + 1.001" 6.00100 \end{verbatim}\noindent Note that in the last example, the math expression was enclosed in double quotes. This (or equivalently, enclosing braces ``\{\}'') tells {\ifeffit} to evaluate the expression, instead of printing it literally, and tells {\ifeffit} where the expression ends. Using single quotes would print the expression literally: \begin{verbatim} Ifeffit> print 'sqrt(25) + 1.001 = ', "sqrt(25) + 1.001" sqrt(25) + 1.001 = 6.00100 \end{verbatim}\noindent You can also {\cmnd{print}} out several expressions at once: \begin{verbatim} Ifeffit> print "sqrt(25) + 1.001", "pi / 2" 6.001000 1.570796 \end{verbatim}\noindent Using {\cmnd{print}} for arrays (or an expression that gives an array) will print all the values of the arrays: \begin{verbatim} Ifeffit> print indarr(4)/5 0.2000000 0.4000000 0.6000000 0.8000000 \end{verbatim} Section~{\ref{Ch:Structure-info}} gives a more complete description of all the ways of getting information back from {\ifeffit}. We'll come back to {\cmnd{show}} and {\cmnd{print}} in section~{\ref{Ch:Structure-Logging}}, where the ability to change where these outputs are printed will be discussed. At this point, you may find it useful to repeat the above example session mixing in {\cmnd{show}} or {\cmnd{print}} commands after every line, and plotting some of the other arrays. That should give you enough of a feel for {\ifeffit} to be able to use it for simple data processing and allow you to use the rest of this document as a reference guide. ifeffit-1.2.11d/doc/RefMan/minimize.tex0000644000175000017500000001047310771740460016643 0ustar segresegre\section{Fitting Non-XAFS Data with {\ifeffit}} \label{Ch:Minimize} {\index{Minimization}} Well, fitting XAFS data to {\feff} calculations is OK, but sometimes you just want to fit a simple line, polynomial, or Gaussian to some data. This can be done using the {\texttt{minimize}} command, which gives a simple but powerful interface to a non-linear least-squares fitting routine. There are a few implementation quirks, but this general approach is definitely sufficient to fit simple functions to data, and to add a set of known XANES spectra to fit an unknown spectrum. This chapter will describe the {\texttt{minimize}} command and give a few examples of its use. {\indexcmd{minimize}} When fitting data, the general idea is to minimize some function in the least-squares sense. Usually the function to minimize is the difference between the data and a parameterized model describing the data. This function to be minimized is sometimes called the {\emph{residual}} of the fit. In keeping with that spirit, the {\tt{minimize}} function in {\ifeffit} takes a residual vector that you define, and adjusts the defined variables until this residual is minimized. An example complete would look like this: {\small{ %\begin{latexonly} \begin{Sbox}\begin{minipage}{5.00truein} %\end{latexonly} \begin{Verbatim} read_data(file=my.dat, group= data, label= "x y") guess (a0 = 1, a1 = 2, a2 = 0.012) fit.y = a0 + a1 * data.x + a2 * data.x^2 fit.resid = fit.y - data.y minimize(fit.resid) \end{Verbatim} %\begin{latexonly} \end{minipage}\end{Sbox}\setlength{\fboxsep}{2mm}{% \begin{flushright}\shadowbox{\TheSbox}\end{flushright}} %\begin{latexonly} }}\noindent Here we read in the data, rename the default array names to more convenient names. The model function {\tt{fit.y}} is defined as a simple quadratic polynomial, with the three coefficients defined as variables. The residual is then simply the difference of model and data, and the variables are optimized to minimize the sum of the squares of {\texttt{fit.resid}}. Really, that's pretty much all there is to it. {\tt{minimize}} is remarkably simple and powerful. There are a few bells and whistles to the {\tt{minimize}} command. Sometimes you'll want to fit a limited portion of an array, say just over some peak. Of course, you could edit the data to only include the portion of the data you want to fit. But {\tt{minimize}} gives an alternative to this: you can specify the {\emph{ordinate}} (or $x$-array) corresponding to the data you're fitting, and a minimum and/or maximum values for the $x$-array. In the above example, we could have said \begin{verbatim} minimize(fit.resid, x = data.x, xmin = 3., xmax=10.) \end{verbatim} \noindent to limit the fitting range. A fit is generally of limited use without some idea of the uncertainties in the fitted parameters. Many otherwise bright people seem to ignore this, and believe they can judge the reliability of fitted parameters by the overall quality of a fit --usually by some visual inspection. Well, a reliable estimate of uncertainties in fitted parameters is a bit more involved than that. In general, it's difficult to get a reasonable estimate without a good estimate of the uncertainties in the data itself. This is further discussed in {\XAIBook} and in standard data analysis texts. For now, the important point is that if you have a good estimate of the uncertainties in the data, you can use them to determine the uncertainties in the fitted parameters. To do this, you can specify an {\emph{array}} of uncertainties in the data -- the same length as the data and residual itself, of course. To use such an array, the {\tt{uncertainty}} keyword will be helpful: \begin{verbatim} read_data(file=my.dat, group= data, label= 'x y dy') guess (a0 = 1, a1 = 2, a2 = 0.012) fit.y = a0 + a1 * data.x + a2 * data.x^2 fit.resid = fit.y - data.y minimize(fit.resid, uncertainty = data.dy) \end{verbatim} \noindent As with the {\tt{feffit}} function, this will create scalars for the estimated uncertainties in the fitted variables with names based on the variable name itself. In this case, the created variables {\tt{delta\_a0}}, {\tt{delta\_a1}}, and {\tt{delta\_a2}} will hold the estimated uncertainties. At this writing, restraints and multiple-data-set fits are not supported in {\cmnd{minimize}}. This will probably change in the future. ifeffit-1.2.11d/doc/RefMan/title_pdf.tex0000644000175000017500000000072010771740460016766 0ustar segresegre \begin{flushright}\vspace*{0.375in} \vspace{10mm}{\ThickGreyLine} \vspace{5mm} {\Huge{The {\ifeffit} Reference Guide}} \vspace{100mm} {\ } \thispagestyle{empty} \setcounter{page}{0} {\Large Matthew Newville}\par Consortium for Advanced Radiation Sources\par University of Chicago, Chicago, IL\par \thispagestyle{empty} \vspace{5mm} {\ThickGreyLine} {Version {\Vers}}\par {\update}\par \end{flushright} % ifeffit-1.2.11d/doc/RefMan/iofiles.tex0000644000175000017500000003753010771740460016457 0ustar segresegre%%#fixtex% for html/pdf -*-latex-*- \section{Input and Output Files} \label{Ch:IO} At some point, you'll want to read your data into {\ifeffit}. Getting data in the expected format is quite possibly the hardest part of dealing with any data analysis program. Currently, {\ifeffit} uses plain text files with data in columns delimited by white space (blanks and/or tab characters). There is also some support for a {\ifeffit}-specific file format for storing data to be read back into subsequent {\ifeffit} sessions. The `old-style' UWXAFS RDF binary files are not currently supported. {\index{RDF files}} {\ifeffit} expects data to be in plain text (also known as ASCII) files that have some lines of descriptive text followed by some numerical arrays stored in space- or tab-delimited columns. The column-based data files have the feature that only one set of related data can be stored in a given file. In particular, all arrays in an ASCII column file must have the same number of data points. This is not usually a serious problem, but it is something to keep in mind. Another thing to keep in mind is that {\ifeffit} does not yet have any special procedures to support beamline-specific data. The commands for dealing with column files are {\cmnd{read\_data}} and {\cmnd{write\_data}}. These commands are discussed in this chapter and in sections~{\ref{Ch:Command:read-data}} and~{\ref{Ch:Command:write-data}}. \subsection{Reading ASCII Column Files} \label{Ch:IO-READ} When reading data files with {\cmnd{read\_data}}, {\ifeffit} needs to assign array names to the arrays read from the file. Deciding the arrays names is the only tricky part to {\cmnd{read\_data}}. Since all arrays in {\ifeffit} have two-part names, with a ``group name'' for the suffix, and since data in any data file are usually meant to be grouped together, {\ifeffit} will use a common group name for all arrays read from a given file. The group name used can be specified explicitly with the {\tt{group}} keyword to the {\cmnd{read\_data}} command. If not specified, the group name will be automatically set based on the file name itself. Before we get on to the details of naming the arrays, let's discuss the title lines in the file. As said above, these lines contain descriptive text about the data, and not the numerical data itself. Normally, {\ifeffit} will try to figure out where the descriptive text ends and the numeric data begins. One simple way to ensure that this is done correctly is to put some non-numeric character in the first column of each line of the header. `\#', `\%', `*', `!', and `;' are popular choices for such ``comment characters'', and {\ifeffit} will respect them all. Another possibility is to specify the number of title lines explicitly, with the {\tt{title\_lines}} keyword, as in \begin{verbatim} read_data(file=my.chi, title_lines = 3) \end{verbatim} \noindent It is generally easier to arrange for files to have title lines that always begin with some comment character than to have to count the number of title lines for each file. {\indexcmd{read\_data}} {\index{{data files!title lines}}} {\index{{data files!group name}}} The first 64 title lines will be stored in strings named according to the ``group name'' with names like {\tt{\$GROUP\_title\_II}}. That is, when reading a file with group name ``{\tt{xfile}}'', the first comment line will be save in {\tt{\$xfile\_title\_01}}, and the twelfth in {\tt{\$xfile\_title\_12}}. OK, on to the naming of the arrays. There are several ways to specify how the suffixes of the array names will be. The sheer number of options may seem unnecessary at this point, but after using {\ifeffit} for a while, you will probably end up using several of these methods depending on the data file you're using. The simple way to name the arrays from a file is to make the suffix of each array name be the integer for that column, by specify {\texttt{type=raw}} in the {\cmnd{read\_data}} command. That is, \begin{verbatim} read_data(file=myfile.dat, group = A, type = raw) \end{verbatim} \noindent will create arrays {\texttt{A.1}}, {\texttt{A.2}}, {\texttt{A.3}}, and so on. The ``raw'' names aren't very mnemonic, but they're simple and and very predictable. For analyzing several similar files, you could read in the data using ``{\tt{type = raw}}'' and write a macro to rename the ``raw'' column arrays. For more on macros, see chapter~{\ref{Ch:Macros}}. Often times data comes in fairly standard file types, in which the columns have known arrays. So the second way to name arrays in {\ifeffit} is to specify one of several known ``type'' to {\tt{read\_data}}. Thus, \begin{verbatim} read_data(file=my.chi, group = A, type = chi) \end{verbatim} \noindent will name the array from the first column {\texttt{A.k}}, and that from the second column {\texttt{A.chi}}. Any remaining columns will be {\texttt{A.3}}, and so on. Similarly, \begin{verbatim} read_data(file=cu.xmu, type = xmu) \end{verbatim} \noindent will name the array from the first column {\texttt{cu.energy}}, and that from the second column {\texttt{cu.xmu}}. (Note here that ``{\tt{group}}'' was not specified, and so was taken from the file name itself). Table~{\ref{Table:io_types}} lists all the recognized file types and the associated column names. {\indexcmds{read\_data}{type}} \begin{table} \begin{center} \caption[a]{Table of Known Data Types for {\tt{read\_data()}}. Note that if there are more columns in the file, the subsequent arrays will be named by the column index.} {\label{Table:io_types}} \begin{tabular}{ll} \noalign{\smallskip} Data Type & Array suffixes \\ \noalign{\smallskip} \hline \noalign{\smallskip} xmu & energy, xmu \\ chi & k, chi \\ rsp & r, chir\_re, chir\_im, chir\_mag, chir\_pha\\ qsp & q, chiq\_re, chiq\_im, chiq\_mag, chiq\_pha\\ chi\_std & k\_std, chi\_std\\ xmu.dat & energy, e\_wrt0, k, mu, mu0, chi\\ chi.dat & k, chi, mag, phase\\ feff.dat & k, cphase, mag, phase, redfactor, lambda, realp\\ \noalign{\smallskip} \hline \end{tabular} \end{center} \end{table} Another common situation is for files to come with column labels already provided in the file. In such a case, the {\tt{type = label}} can be used to {\emph{read}} the column labels from the file itself, provided the file has been formatted with this in mind. By that I mean 1) the file has text strings at the top of the file, before the column data, 2) that the next to last text line is a line of minus signs (the important thing is that the third through eight character on the line are minus signs), and 3) the last text line is a label line. Such a file would look like this {\index{{data files!column labels}}} {\small{ %%#VerbSBox% \begin{VerbSBox} # Cu XAFS # data file containing xmu(energy) #----------------------------- # energy xmu i0 8760.02 1.313982 60351.3 8770.01 1.323154 59808.3 8779.98 1.332213 59290.3 8790.02 1.344031 58709.3 8799.98 1.352667 58245.3 8810.02 1.364248 57719.3 8819.99 1.375764 57165.3 8829.98 1.384695 56690.3 \end{VerbSBox} %%#VerbSBox% }}\noindent and be said to have column labels ``energy'', ``xmu'', and ``i0''. All the files distributed with {\ifeffit} have columns labeled in this way and {\ifeffit} normally write out files with such labels. To read this file, and have the array be named by the given labels, you would say \begin{verbatim} read_data(file=my.xmu, group = A, type = label) \end{verbatim} \noindent which will create the arrays {\texttt{A.energy}}, {\texttt{A.xmu}}, and {\texttt{A.i0}}. There are some minor issues when column labels contain characters (``()./,'' and so forth) which can't be in the suffix part of an array name, in which case the arrays names will end up a little mangled -- usually ``\_'' will be used instead of the offending character. When all else fails, you'll just want to specify the array names yourself. Keeping in my the previous method, the preferred way to specify the names is with the {\tt{label}} keyword. This overrides all the above methods, and can be used to override default column names from the file itself. The argument to {\tt{label}} is a space delimited string with the array suffixes as if it had been the label string in the file. Thus, using \begin{verbatim} read_data(file=my.xmu, group = A, label = 'x y z') \end{verbatim} \noindent would create arrays {\texttt{A.x}}, {\texttt{A.y}}, and {\texttt{A.z}}, even if the arrays are labeled something else in the file. A note of caution: there is nothing preventing two columns from having the same label. This is currently an unsolved `feature' that may be fixed in the future. As we have seen, there are several options for how to name arrays read in with {\cmnd{read\_data}}. So, which one is the default if neither {\tt{type}} or {\tt{label}} are given, or if both are given? The answer is this: First the string from the {\tt{label}} keyword is used. If {\tt{label}} is not given, then the type specified by the {\tt{type}} keyword is used to generate the array names (with results shown in Table~{\ref{Table:io_types}}). If neither of the {\tt{label}} or {\tt{type}} keywords are given, the existing ``label line'' from the file is used. Finally, if there is no label line in the file, the column indices ({\emph{i.e.}} {\tt{type=raw}}) are used. Given these complicated rules, it might be nice to know for sure what arrays were actually read in. This may not seem so important when using {\ifeffit} at the command-line, because you can always do a {\tt{show @arrays}} or even {\tt{show @group=A}} and figure it out. But if you're writing a {\emph{script}}, this can be a serious issue. In all cases, {\cmnd{read\_data}} will set the string {\tt{\$column\_label}} to a space-delimited string of the array {\emph{suffixes}} just read in, as if this had been the label string in the file. \subsection{Sorting Data with {\cmnd{read\_data}}} \label{Ch:IO-SORT} {\indexcmds{read\_data}{sort}} In general, {\ifeffit} expects data to be well-ordered. For {\muE} data, it generally expects the data to be in strictly increasing order of energy -- and without repeated energy values. Unfortunately, not all data comes like this. Notably, XAFS data collected in ``continuous scan mode'' or ``Quick-EXAFS'' is rarely guaranteed to be in strictly increasing order. In addition, data is not always perfectly ordered for some beamlines using encoder-readback for monochromator position even in step-scan mode. To overcome problems resulting from poorly-sorted data, {\cmnd{read\_data}} allows you specify a column {\emph{number}} to put into strictly non-decreasing order (that is, increasing order but with repeated points retained) and to sort the other columns accordingly. To do this, you would use the ``sort'' keyword, \begin{verbatim} read_data(file=sro_xafs.dat, group = sro, sort=1) \end{verbatim} \noindent Note that the column number is given, not the column name. The reason for this is that the actual column names are not necessarily known prior to running {\cmnd{read\_data}}, and confusion could easily occur between similarly named columns. By default, the data will not be sorted. You can ensure that sorting will not be done by using {\texttt{read\_data(...,no\_sort=1,...)}}. {\index{sorting data}} {\indexcmds{spline}{sorting input data}} {\indexcmds{pre\_edge}{sorting input data}} {\indexcmds{blg\_cl}{sorting input data}} The {\cmnd{spline}}, {\cmnd{pre\_edge}}, and {\cmnd{bkg\_cl}} commands will internally sort {\muE} data into strictly increasing order (averaging repeated energy points) to avoid such problems. Still, if you may have poorly-sorted data, it is recommended that you sort it with {\cmnd{read\_data}} before doing any processing on it. \subsection{Writing ASCII Column Files} \label{Ch:IO-WRITE} To write data with {\ifeffit}, you use the {\cmnd{write\_data}} command, specifying the name of the output file, and listing the names of the text strings, scalars, and arrays to write to this file. Text strings are written at the top of file, one per line, in the order you specify. The ``comment character'' is written at the beginning of each of the lines of text (in the first non-blank row). To specify the comment character, either set the Program Variable {\texttt{\$commentchar}} or set the {\texttt{commentchar}} keyword to {\texttt{write\_data}}. {\indexcmd{write\_data}} {\indexcmds{read\_data}{commentchar}} After the string variables are written, scalars are written, one per line, in the form `` = ''. After the scalars, a line of minus signs is written, and the a label line (suitable for later reading with {\tt{read\_data(\ldots, type = label)}}) is written containing all the array {\emph{suffixes}}. Both the line of minus signs and the label line will still have the ``comment character'' at the front of the line). Finally, the arrays are written out in columns, in the order (left-to-right) listed. {\index{{data files!comment characters}}} {\cmnd{write\_data}} will write the same number of points for all arrays, even if the Program Variables have different number of points. In fact, the \emph{minimum} number of points will be written. At this writing, {\cmnd{write\_data}} is limited to writing out 64 columns per file. It's common to want to write out {\emph{all}} the strings named {\tt{\$GROUP\_title\_II}} to a file, so as to preserve the comments from the starting file(s). Typing each name individually would be painful, so {\cmnd{write\_data}} supports the usual ``*'' glob character to mean ``all that match''. So putting {\tt{\$GROUP\_title\_*}} in the list would cause all strings matching that name to be written. You can use a ``*'' in this way to match any string names. You could even use it to match array names using something like {\tt{*.xmu}} or {\tt{a.*}}, but since the number of points could be different for the different arrays, this should be used with caution. \subsection{{\ifeffit} PAD Format for Save and Restore Files} \label{Ch:IO-PAD} {\index{{data files!PAD format}}} Though ASCII column files are often the most convenient form to use, they are somewhat limited for large amounts of data. The least desirable features of ASCII files are that they take too much space, that they can't store arrays of different sizes, and that they can't hold many arrays. All of these limitations can be overcome by using the PAD (that stands for Packed ASCII Data) file format specially designed for {\feff} and {\ifeffit}. PAD files are fully portable plain-text files that can store an unlimited number of arrays of different sizes and can be transferred to (and read on!) any machine. The PAD format stores approximately 12 significant digits for each numerical value. Of course, there are drawbacks to the PAD file system. These are 1) a slight increase in time to read the file compared to regular binary (but much faster than a set of plain ASCII files!!), and 2) these files cannot be used directly in any other program. The second point is a serious problem. Like the UWXAFS RDF files that they're intended to replace, the PAD format is a home-built file storage system. Moving to one of the accepted scientific data formats such as netCDF may be necessary in the future. PAD files are especially suited for {\ifeffit} because they can store and mix all types of Program Variables. This makes them ideal for saving a full set of {\ifeffit} variables. The {\cmnd{save}} command (section~{\ref{Ch:Command:save}}) uses the PAD format to save the current state of {\ifeffit} into a save file that can be then read in with {\cmnd{restore}} (section~{\ref{Ch:Command:restore}}) to re-create a previous {\ifeffit} session. Since all Program Variables are saved and since the PAD files are saved in printable ASCII characters, this {\cmnd{save}}/{\cmnd{restore}} mechanism makes a completely portable way to preserve an {\ifeffit} session into a single file for later inspection or to share with a colleague. {\indexcmd{save} \indexcmd{restore}} %% ifeffit-1.2.11d/doc/RefMan/install.tex0000644000175000017500000001406010771740460016464 0ustar segresegre\section{Installation} \label{App:Install} This appendix describes how to install {\ifeffit} on your computer. Since {\ifeffit} is still in the development and early beta-testing phase, the installation process is not entirely automated. Unlike the earlier {\uwxafs} programs, the full {\ifeffit} distribution requires several libraries and utilities that may not be installed on your computer. These libraries are freely abailable and have been ported to many Unix systems, and appear to work on Windows/NT as well. We'll see! Fist, you will need the latest distribution of the {\ifeffit} code itself. This includes Fortran, C, and Perl source, documentation, sample scripts, and examples. The code is available from {\WWWiff}. Second, you'll need a fortran and C compiler (these come with most Unix machines), and a fairly recent version perl. Perl version 5.003 or higher is needed. You can test the version of perl on your machine by typing {\texttt{perl -v}}. If this this reports an older version, you'll need to upgrade. The latest version of perl is at {\WWWperl}. Perl is fairly easy to install, though you should probably install it as root, and may want to have some experience with system administration. Simply following the instructions, and giving the default answers when unsure, usually works. Third, you'll need the Perl/Tk library. You'll need the Tk module with version number higher than Tk400.202 (including the newer Tk800.series) This gets added to the standard perl library, so you'll probably want to do this as root, too. This is also very easy to install (read the INSTALL file), and goes fairly quickly. The Perl/Tk library is available from {\WWWperl}. Fourth, you'll need the PGPLOT fortran plotting library. This library is a bit more difficult to install. The instructions are clear, but involve several steps that could probably be more automated. The source is available at {\WWWpgplot}. The main thing is that you'll have to edit a file called {\file{drivers.list}} to select the graphical devices you'd like supported. So far, I've used the GIF, Postscript, and X-window devices. Fifth, you'll really want (though don't strictly need) the GNU readline library, and the associated Perl Module. The main library itself may already be installed on your computer -- look for /usr/local/lib/libreadline.a or /usr/lib/libreadline.a. If you can't find this, you can get it from the standard GNU locations like {\htmladdnormallink{http://prep.mit.ai.edu/}{http://prep.mit.ai.edu/}}. As with most GNU software, this is a fairly easy to install. The Perl module is Term::ReadLine:GNU, and you can find it in the CPAN part of the perl home page. If you think you might be interested in playing with scripts using {\ifeffit}, and know some perl (or want to learn), there is a perl interface to the PGPLOT routines you may be interested in. Called PGPERL, this is at the standard CPAN sites, available from {\WWWperl}. Finally, once all of these libraries are installed, you're ready to install {\ifeffit}. These steps should work: \begin{verbatim} ~> gunzip -c ifeffit.tar.gz | tar xvf - ~> cd ifeffit ~> configure ~> make ~> make install \end{verbatim} But you may want to read the INSTALL file for more detailed instructions. \section{Using the Command-Line Version} \label{App:Readline} This appendix describes some of the details of the command-line version of {\ifeffit}. For the initial releases, this may get a little confusing because the main command-line program is named {\ifeffit}, whereas I've been referring to the base command interpreter as {\ifeffit} in this document. The distinction is not that important except that the command-line version has a few extra features that are {\emph{not}} part of the basic interpreter, but make the command-line program much easier to use. This appendix will focus on the extra features in the command-line program. The {\ifeffit} program (as opposed to the {\ifeffit} library, which the rest of this Reference Guide discusses) is a program written in Perl, and so requires the Perl program and two ``extra'' Perl modules to be installed. The first extra module is the Ifeffit module that comes with the {\ifeffit} distribution. The second extra module is the Term::Readline module, which is available at the same place as the Perl program itself ({\WWWperl}) and with the {\ifeffit} distribution. Perl modules are easy to install, but you may need root privilege to do so. The Readline module is actually optional, and the {\ifeffit} program will run without it. The main additional features of the command-line program are: \begin{enumerate} \item a command-history mechanism so that the up-arrow will scroll through previous commands. As long as the program is exited gracefully, commands will be remembered between {\ifeffit} sessions as well. The previous commands can be displayed with the {\texttt{l}} command within {\ifeffit}. {\texttt{l 20}} will display the most recent 20 lines executed. \item tab completion of commands and filenames works. The list of commands that are completed can be customized, even to include macro names. \item some shell commands (ls, cp, cd, vi, etc) are supported directly. The list of shell commands can be customized. Any shell command can also be invoked by `escaping to the shell' by starting a line with a `!'. \item customization of commands for tab-completion, shell-commands to support, and loading of start-up macros can be done through the ``resource file'' {\file{.ifeffitrc}} in your home directory. The reading of this file can be turned off with the '-x' switch: type {\texttt{ifeffit -x}} at the shell prompt. \item script files of {\ifeffit} commands can be executed by naming them on the command line. Typing {\texttt{ifeffit MyFile}} at the shell prompt will effectively do a {\texttt{load MyFile}}. This can be used to load a set of custom macros or to execute a ``batch process'' (putting an {\texttt{exit}} at the end of the script will return you to the shell prompt instead of leaving you at the {\ifeffit} prompt). \end{enumerate} ifeffit-1.2.11d/doc/RefMan/examples.tex0000644000175000017500000000137310771740460016637 0ustar segresegre\section{Examples} \label{Ch:Examples} Let's work through a few example scripts for common problems, using both the simple {\ifeffit} macro system, and the more sophisticated Perl interface. All of the scripts described here are included in the {\ifeffit} distribution, and are available from the {\ifeffit} web page: {\WWWiff}. In fact, the simpler of these examples have been put into the form of {\ifeffit} macros {\bf{and}} perl scripts. They may be useful enough for you to use them without modification, but if you've made it this far, you'll probably be comfortable altering them. \subsection{Common XAFS Analysis Tasks with {\ifeffit}}\label{Ch:Examples-common} \subsection{Some non-XAFS Analysis Tasks with {\ifeffit}}\label{Ch:Examples-misc} ifeffit-1.2.11d/doc/RefMan/title.tex0000644000175000017500000000072010771740460016135 0ustar segresegre \begin{flushright}\vspace*{0.375in} \vspace{10mm}{\ThickGreyLine} \vspace{5mm} {\Huge{The {\ifeffit} Reference Guide}} \vspace{100mm} {\ } \thispagestyle{empty} \setcounter{page}{0} {\Large Matthew Newville}\par Consortium for Advanced Radiation Sources\par University of Chicago, Chicago, IL\par \thispagestyle{empty} \vspace{5mm} {\ThickGreyLine} {Version {\Vers}}\par {\update}\par \end{flushright} % ifeffit-1.2.11d/doc/RefMan/biblio.tex0000644000175000017500000000005710771740460016257 0ustar segresegre\bibliographystyle{prsty} \bibliography{ifx} ifeffit-1.2.11d/doc/RefMan/.latex_type0000644000175000017500000000000310771740460016443 0ustar segresegreps ifeffit-1.2.11d/doc/RefMan/plotting.tex0000644000175000017500000011236510771740460016665 0ustar segresegre%%#fixtex% for html/pdf -*-latex-*- \section{Plotting with {\ifeffit}} \label{Ch:Plot} Graphical displays of data are essential to data analysis. {\ifeffit} uses PGPLOT, a simple graphics library that is fairly well-supported and portable, and can be accessed from fortran, C, and a variety of scripting languages. PGPLOT supports many graphics devices (terminals, graphics files, hardcopies), and works well on Unix, MacOS X using X Windows, and Windows systems. Much of the information in this chapter is adapted from the PGPLOT documentation. That documentation is aimed at the programmer and not the end user, but the concepts discussed are fairly simple. If you have a question about {\ifeffit} graphics, you may wish to consult the PGPLOT documentation, which can be found at {\WWWpgplot}. Plotting in {\ifeffit} is encapsulated in the commands {\cmnd{plot}}, {\cmnd{newplot}}, {\cmnd{cursor}}, {\cmnd{zoom}}, {\cmnd{color}}, {\cmnd{plot\_text}}, {\cmnd{plot\_marker}}, and {\cmnd{plot\_arrow}}. These commands make respectable looking plots on screen and paper, and provide good flexibility for graphical data analysis. These routines allow different colors and linestyles for each trace on the plot, They allow other symbols, text strings, and arrows anywhere on the plot window, and allow a 'legend' of plotted trace to be easily and automatically built. They also allow you to use the cursor to get x-y positions of particular points on the plot window and to zoom in on particular areas of the plot window. The hardcopies made by PGPLOT are of reasonable quality, but may not satisfy your criteria of publication quality. Since there are many programs designed especially for these purposes, and since {\ifeffit} is intended to be an XAFS analysis program, not a high-quality graphics program or a data visualization tool, the quality of the resulting graphics seems acceptable. The {\cmnd{plot}} command is the main plotting command in {\ifeffit}, making a two-dimensional line-plot or scatter-plot given x and y arrays. There are many optional arguments, most of which will be discussed in this chapter. A complete list is given in section~{\ref{Ch:Command:plot}}. The {\cmnd{newplot}} command is a minor variation on {\cmnd{plot}}, that will always erase the current plot before plotting. The rest of this chapter will discuss the details of the various plotting options available in {\ifeffit}. \subsection{Specifying Data for Plotting} \label{Ch:Plot-xy} {\index{{plotting!data}}} {\index{{plotting!expressions}}} The {\cmnd{plot}} command plots arrays of data. Typically, you you will specify array names for both the x- and y-arrays, as in \begin{verbatim} Ifeffit> plot(x= my.x, y= my.y) \end{verbatim} \noindent Of course there are many other optional keywords you can give to {\cmnd{plot}}, but here we're just focusing on the {\tt{x}} and {\tt{y}} arguments because they are the most important. As you use {\ifeffit}, you'll find that a simple {\cmnd{plot}} command such as the one above gets used a lot. Because of this, even this simple {\cmnd{plot}} command can be made easier, more flexible, and more powerful, as will be discussed here. First, the {\cmnd{plot}} command uses the concept of positional keywords, so that you can drop the {\tt{x=}} and {\tt{y=}}, and just use \begin{verbatim} Ifeffit> plot(my.x,my.y) \end{verbatim} \noindent that is, the first argument in the list (i.e., everything between '(' and the the first comma) without an explicit keyword is assumed to be the value for {\tt{x}}, and the second argument without a keyword is assumed to be the value for {\tt{y}}. Since a command that fits on a single line can drop the parentheses, this can become \begin{verbatim} Ifeffit> plot my.x, my.y \end{verbatim} \noindent Much, or perhaps most, of the data you'll want to plot will be in a single group. If the {\tt{x}} and {\tt{y}} arrays you intend to plot are in the same group, you can specify the group once, and only give the suffixes of the array names: \begin{verbatim} Ifeffit> plot x, y, group=my \end{verbatim} \noindent In fact, if the string variable {\tt{\$group}} is set to the group you want (and it often is set to the ``current group'' after most data processing commands, and the {\cmnd{plot}} command itself), this group name will be used by default: \begin{verbatim} Ifeffit> $group = my Ifeffit> plot x, y Ifeffit> plot x, z \end{verbatim} \noindent % $ which greatly simplifies the task of over-plotting data from the same group. Since there are two {\cmnd{plot}} commands in the above example, this is a good time to discuss when the plot window gets cleared for a fresh plot. Normally, the {\cmnd{plot}} command adds the specified trace to the existing plot: over-plotting is the normal behavior. To clear the plot, you can use \begin{verbatim} Ifeffit> newplot (my.x, my.z) \end{verbatim} \noindent which will erase the previous plot and start over. You can simply send an empty {\cmnd{newplot}} command and subsequent {\cmnd{plot}} commands will add to this refreshed plot window. In many cases, you'll want to plot more than one {\tt{y}} array as a function of the same {\tt{x}} array. This leads to a slight variation on the rule for positional keywords. I said above that the first argument without a keyword is taken for {\tt{x}} and the second for {\tt{y}}, but the full truth is a little more complicated. If exactly one argument has no keyword, and there is no explicitly set {\tt{y=\ldots}} argument, then the argument without a keyword is actually taken as the {\emph\tt{y}} array. In this case, the {\tt{x}} array is the {\emph{previous}} {\tt{x}} array. That is, after \begin{verbatim} Ifeffit> newplot (my.energy, my.xmu) \end{verbatim} \noindent these two commands will produce the same effect: \begin{verbatim} Ifeffit> plot my.energy, my.bkg Ifeffit> plot bkg \end{verbatim} \noindent If you give only one array for the first trace to plot, a simple index array (i.e, 1,2,3,4,\ldots) will be used for {\tt{x}}, so that \begin{verbatim} Ifeffit> newplot my.energy \end{verbatim} \noindent would be equivalent to \begin{verbatim} Ifeffit> my.tmpx = indarr( npts(my.energy)) Ifeffit> newplot my.tmpx, my.energy \end{verbatim} \noindent That covers how to make the {\cmnd{plot}} command simpler, now let's look at how to make it more complicated. As the last example hints at, sometimes it's desirable to plot arrays that do not yet exist as named arrays in {\ifeffit}. For example, to view $\chi(E) = \mu(E) - \mu_0(E)$ after a background subtraction from {\cmnd{spline}}, you might say \begin{verbatim} Ifeffit> cu.chie = cu.xmu - cu.bkg Ifeffit> plot(x= cu.energy, y= cu.chie) \end{verbatim} \noindent or use one of the simplified forms discussed above. But if you only want to view $\chi(E)$, not do any processing with it, it seems unnecessary to create it. So, in fact you can pass a simple expression as the {\tt{y}} (or {\tt{x}}) argument to {\cmnd{plot}}: \begin{verbatim} Ifeffit> plot(x= cu.energy, y=cu.xmu-cu.bkg) \end{verbatim} \noindent In fact, the expression can include any of the data and any of the functions described in section~\ref{Ch:Structure-math}. This provides a flexible way to plot a variety of functions, but there are some caveats to using expressions instead of existing arrays. First, to be sure the expression is parsed correctly, you should put it in quotes: \begin{verbatim} Ifeffit> plot(cu.energy, y="(cu.xmu - cu.bkg)*(cu.energy-e0)") \end{verbatim} \noindent This is especially true if the value in the keyword/value pair contains spaces: use quotes or you're likely to get several warnings and weird results. Also, when using an expression instead of an existing array, you should not rely on {\tt{x}} and {\tt{y}} being default positional keywords, and explicitly use the {\tt{y=}} as shown above. \subsection{Error Bars} \label{Ch:Plot-errbars} {\index{{plotting!error bars}}} If you have experimental data for which you have estimates of the uncertainties in the data, it is often useful to display these uncertainties using error bars. This can be done using the keywords {\tt{dy}} and {\tt{dx}} which name arrays for the point-by-point uncertainties in the {\tt{y}} and {\tt{x}} arrays, respectively. That is, if {\tt{dat.sigma}} is an array of uncertainties in {\tt{dat.y}}, \begin{verbatim} Ifeffit> plot(dat.x, y=dat.y, dy=dat.sigma) \end{verbatim} \noindent will add vertical error bars extending from {\tt{dat.y}}-{\tt{dat.sigma}} to {\tt{dat.y}}+{\tt{dat.sigma}}. Similarly, though it somewhat less usual for EXAFS data, if you have an estimate for the uncertainties in the ordinate array, these can be displayed using \begin{verbatim} Ifeffit> plot(dat.x, y=dat.y, dx=dat.delx) \end{verbatim} \noindent will add horizontal error bars extending from {\tt{dat.x}}-{\tt{dat.delx}} to {\tt{dat.x}}+{\tt{dat.delx}}. Though we'll discuss how to select plot colors and line styles in the next section, the error-bar plots generated with these {\cmnd{plot}} commands will use a single color and style for the main trace and error bars. If you'd like to see the error bars alone, or have thee error bars in a different color from the main trace, the you should use {\tt{style=points1}} when plotting the error bars: \begin{verbatim} Ifeffit> plot(dat.x, y=dat.y, color=red) Ifeffit> plot(dat.x, y=dat.y, dy=dat.sigma, color=black, style=points1) \end{verbatim} \noindent \subsection{Colors, Line Styles, and Other Attributes}\label{Ch:Plot-Color} {\ifeffit} allows different colors for each trace as well as the background, the foreground (text strings and the box around the plot), and the optionally displayed grid. It also supports different styles of lines (solid, dashed, points, etc.) to be used for different x-y pairs. This section will explain how to use these options in detail. There are a few different ways to specify colors for x-y traces, background, foreground, and optional grid. First and most simply, you can specify the color for each object directly by name: \begin{verbatim} Ifeffit> plot(my.x,my.y, color=red, bg=white) \end{verbatim} \noindent which will draw the x-y trace in red on a white background. This is probably the easiest way to get the colors you want. The available set of named colors is determined when the PGPLOT routines are installed, and are listed in the file {\file{rgb.txt}} in the PGPLOT directory. This file is usually very close to the standard X-Windows set of colors, so you can specify {\texttt{dodgerblue3}} and {\texttt{bisque}}, but not {\texttt{teal}}. For other colors, you can specify the red-green-blue intensities in hexadecimal format, using the somewhat standard `\#RRGGBB' format: \begin{verbatim} Ifeffit> plot(my.x,my.y,color='#FF00FF') \end{verbatim} \noindent will be magenta, for example. {\index{{plotting!color}}} {\index{{plotting!color table}}} If colors are not specified in the {\cmnd{plot}} command, the default values used will be taken from an internal ``color table''. The color table lists the colors used for background, foreground, grid, and then the traces in order that they are drawn, and can be displayed with either {\texttt{color(show)}} or {\texttt{show @colors}}. A typical output would look like this: \begin{alltt} Ifeffit> show @colors plot color table: bg = white fg = black grid = #CCBEE0 1 = blue 2 = red 3 = darkgreen 4 = black \vdots \end{alltt} \noindent which means the first trace drawn would be in blue, the second in red, and so on. You can change the values in the color table using the {\cmnd{color}} command, like this: \begin{verbatim} Ifeffit> color(fg = black, bg = white, grid = '\#AABB99') Ifeffit> color(1 = yellow, 2 = cyan) Ifeffit> color(3 = white, 4 = magenta) \end{verbatim} \noindent which will reset the default colors to plot with. Such commands may be placed in a start-up file {\file{.ifeffit}}. For postscript output intended for a printer please note that a black background will use a lot of ink -- a white background is recommended for hardcopies. There are a few different line styles available as values for the {\texttt{style}} keyword. The supported line styles are given in Table~\ref{Table:plot_style} with examples shown in Figure~\ref{Fig:PlotStyles}. There is a fair selection of points available for the {\tt{points}} and {\tt{linespoints}} styles, which are specified by integer with {\texttt{points1}}, {\texttt{points2}}, {\texttt{linespoints12}}, etc, with examples of the available point types shown in Figure~\ref{Fig:PlotPoints}. {\index{plotting!line style}} {\indexcmd{linestyle}} {\indexcmd{color}} \begin{table}[t] \begin{center} \caption[a]{Supported Plotting line styles for the {\cmnd{plot}} command. These can be specified with {\tt{plot(..., style=lines)}} and so forth. The available point types are show in Figure~\ref{Fig:PlotPoints}. } {\label{Table:plot_style}} \begin{tabular}{ll} \noalign{\smallskip} Line Style & Description \\ \noalign{\smallskip} \hline \noalign{\smallskip} solid & solid line \\ dashed & dashed line\\ dotted & dotted line\\ dot-dash & mixed dot-dashed line\\ points & a special marker at each point (see Figure~\ref{Fig:PlotPoints}) \\ linespoints & solid line with a special markerd at each point\\ \noalign{\smallskip} \hline \end{tabular} \end{center} \end{table} %%#GraphicsFile% plot_styles PlotStyles % A selection of plotting line and points styles % for {\ifeffit}. \begin{figure}[tb] \begin{center} \includegraphics[width=2.75in,angle=-90]{figs/plot_styles.ps} \caption{ A selection of plotting line and points styles for {\ifeffit}.}\label{Fig:PlotStyles} \end{center} \end{figure} %%#EndGraphics% %%#GraphicsFile% plot_points PlotPoints % The plotting point types for {\ifeffit}, as produced with % syntax such as {\tt{style=points3}}, and so forth. The linespoints % types such as {\tt{style=linespoints3}} will show the same point type, % joined with a solid line. \begin{figure}[tb] \begin{center} \includegraphics[width=2.75in,angle=-90]{figs/plot_points.ps} \caption{ The plotting point types for {\ifeffit}, as produced with syntax such as {\tt{style=points3}}, and so forth. The linespoints types such as {\tt{style=linespoints3}} will show the same point type, joined with a solid line.}\label{Fig:PlotPoints} \end{center} \end{figure} %%#EndGraphics% The width of the lines for all traces and axes can be set with the {\texttt{linewidth}} keyword, which takes an integer value. Values between 1 to 5 are appropriate, and the default is 2. {\index{{plotting!linewidth}} \subsection{Text Strings and Labels} \label{Ch:Plot-Text} {\index{{plotting!text strings}}} Text strings can be put on a plot to labels axes, give a title, as a legend for each trace, and to put text at user-specified coordinates. There is some control over the character size and font used, and there is a primitive syntax for non-standard characters that allows Greek letters, the {\AA}ngstrom symbol, subscripts, and superscripts. Like many aspects of PGPLOT, the possibilities are limited, but include a reasonable set of functionality needed for most applications. The full list of {\cmnd{plot}} keywords affecting the placement of text strings on the plot window are given in Table~\ref{Table:plot_strings}. In addition to the {\cmnd{plot}} command, the {\cmnd{plot\_text}} command can be used to put text strings at selected x-y coordinates. \begin{table}[tb] \begin{center} \caption[a]{Arguments for the {\cmnd{plot}} command for putting text strings on the plot window.} {\label{Table:plot_strings}} \begin{tabular}{ll} \noalign{\smallskip} Keyword & Meaning \\ \noalign{\smallskip} \hline \noalign{\smallskip} {\tt{{xlabel}}} & the label of the x-axis \\ {\tt{{ylabel}}} & the label of the y-axis \\ {\tt{{title}}} & plot title along top \\ {\tt{{key}}} & keyword describing each trace for legend\\ {\tt{{charfont}}} & integer to select font for text \\ {\tt{{charsize}}} & character size for all characters and markers \\ {\tt{{labelsize}}} & character size of axis labels and numbers \\ {\tt{{textsize}}} & character size of text strings and legend keys \\ {\tt{{markersize}}} & size of plotting point markers \\ {\tt{{text}}} & text string for a general plot label\\ {\tt{{text\_x}}} & x-coordinate for this text string \\ {\tt{{text\_y}}} & y-coordinate for this text string \\ \noalign{\smallskip} \hline \end{tabular} \end{center} \end{table} \noindent The keywords \texttt{xlabel} and \texttt{ylabel} set the labels for the x-axis and y-axis, respectively, while \texttt{title} will set the title above the drawing box. Each x-y trace can have a legend that will appear along the right side of the plot, with a short version of the plot line style and a ``legend key'' -- a short text string that you can set with {\index{{plotting!legend}}} the {\tt{key}} keyword, as in \begin{verbatim} Ifeffit> plot(dat.r,dat.chir_mag, color=red, key='data') Ifeffit> plot(fit.r,fit.chir_mag, color=red, key='fit') \end{verbatim} \noindent Text strings can also be put anywhere on the plot using either the \texttt{text} keyword, which will put a label at a coordinates specified by the keywords \texttt{text\_x} and \texttt{text\_y} or by the {\cmnd{plot\_text}} command.\footnote{These two variations of {\texttt{plot(text='300 K Data', text\_x=7025, text\_y=0.2)}} and {\texttt{plot\_text(x=7025,y=0.2,text='300 K Data')}} really are equivalent and can be mixed.}} You can put on multiple labels (up to 32) on a plot, but once on they can only be erased by making a new plot, which will erase all the labels. \begin{verbatim} Ifeffit> plot( text='300 K Data', text_x=7025, text_y=0.2) \end{verbatim} \noindent or \begin{verbatim} Ifeffit> plot_text(x=7025,y=0.3, text='400 K Data') Ifeffit> plot_text( 7025, 0.5, '500 K Data') \end{verbatim} \noindent As you can see, the advantage of the {\cmnd{plot\_text}} variation is that it has default positional keywords for {\tt{x}}, {\tt{y}}, and {\tt{text}} which greatly simplifies the syntax. Such labels are often useful when coupled with arrows, discussed in section~\ref{Ch:Plot-Markers}. {\index{{plotting!character sizes}}} The sizes of the various text strings and plot markers can each be set separately. The text size for the axis, x- and y-labels, and title can be set with the keyword {\tt{labelsize}}. The text size for legend keys and explicitly-placed text strings are set with the keyword {\tt{textsize}}. The size of the point markers for point and linespoints line styles are set with the {\tt{markersize}} keyword. The keyword {\tt{charsize}} will set all of the sizes to the same value. The value taken is a real number, with appropriate values usually in the range of 1.0 to 3.0. To completely suppress the axis text, you might be tempted to set {\tt{labelsize}} to zero. This can cause odd results, so using a very small value such as \begin{verbatim} Ifeffit> plot(dat.x, dat.y, labelsize=0.0001) \end{verbatim} \noindent will effectively suppress the axes from being drawn. The syntax of the text strings themselves is almost straightforward. The PGPLOT documentation gives a more complete description, but I'll outline the main points here. Most text is displayed as typed, of course. You can also use ``control sequences'' to control formatting and special characters. {\index{{plotting!fonts}}} PGPLOT uses Hershey (vector) fonts which are easy to render when rotated but look slightly less than ideal. You can specify one of four fonts as the default font with the {\texttt{charfont}} keyword, which takes an integer 1--4 as its value. {\texttt{Charfont =1}} is the normal typeface -- a sans serif font. {\texttt{Charfont = 2}} gives a roman font, {\texttt{Charfont = 3}} gives an italic font, and {\texttt{Charfont = 4}} gives a script font which is pretty difficult to read. You can mix these fonts in a text string with the an escape sequence. \begin{alltt} \(\backslash\)fn The Sans Serif Font \(\backslash\)fi The Italic Font \(\backslash\)fr The Roman Font \(\backslash\)fs The Script Font \end{alltt} which will render fonts as shown in Figure~\ref{Fig:PlotFonts}. %%#GraphicsFile% plot_fonts PlotFonts % Sample of plotting text strings, fonts, and special characters % for {\ifeffit} \begin{figure}[tb] \begin{center} \includegraphics[width=2.75in,angle=-90]{figs/plot_fonts.ps} \caption{ Sample of plotting text strings, fonts, and special characters for {\ifeffit}}\label{Fig:PlotFonts} \end{center} \end{figure} %%#EndGraphics% To get Greek characters, escape sequences starting with ${\mathtt{\backslash}{g}}$ are used: ${\mathtt{\backslash}{gm}}$ give $\mu$, for example. Subscripts are done with ${\mathtt{\backslash}d}$ and superscripts with ${\mathtt{\backslash}u}$. There are no sub-subscripts, super-superscripts, sub-superscripts, etc. The {\AA}ngstrom symbol is ${\mathtt{\backslash}A}$. Examples of these, and some string sequences to get common symbols for XAFS analysis are shown in Figure~\ref{Fig:PlotFonts}, and are provided in the examples distributed with {\ifeffit}. \subsection{Markers and Arrows} \label{Ch:Plot-Markers} The plot points as shown in Figure~\ref{Fig:PlotPoints} can be put at any location on the plot window as {\emph{markers}}. This is done with the o{\cmnd{plot\_marker}} command \begin{verbatim} Ifeffit> plot_marker(x=7000,y=4,marker=1) Ifeffit> plot_marker(7000,2,3) \end{verbatim} \noindent where the value of {\tt{marker}} gives the integer from Figure~\ref{Fig:PlotPoints} for the symbol to use. Like the {\cmnd{plot\_text}} command, this command can use default positional keywords for {\tt{x}}, {\tt{y}}, and {\tt{marker}}, greatly simplifying the syntax. {\index{{plotting!markers}}} {\index{{plotting!arrows}}} Arrows and lines can be put anywhere on the plot window, pointing to some spectral feature of the plotted data. This is done with the {\cmnd{plot\_arrow}} command, which takes beginning and end points, and parameters describing how draw the arrow head (including whether to have no arrow head at all). An arrow can be placed like this: \begin{verbatim} Ifeffit> plot_arrow(x1=7000,y1=4, x2=7050,y2=3) \end{verbatim} \noindent More complex control over the shape of the arrowhead can be obtained with the keywords {\tt{size}}, {\tt{angle}}, and {\tt{barb}}. The {\tt{size}} keyword alters the size of the arrowhead, while {\tt{angle}} gives the angle subtended by the point in degrees. The {\tt{barb}} keyword controls the shape and concavity of the arrowhead. Examples, with reasonable values for the {\tt{size}} and {\tt{barb}} parameters include \begin{verbatim} Ifeffit> plot_arrow(x1=10, y1= 4, x2=25, y2=4, barb=2) Ifeffit> plot_arrow(x1=65, y1= 4, x2=90, y2=4, barb=0,outline=1) Ifeffit> plot_arrow(x1=65, y1= 0, x2=90, y2=0, angle=100,barb=0) Ifeffit> plot_arrow(x1=65, y1=-4, x2=90, y2=-4, size=5) Ifeffit> plot_arrow(x1=30, y1= 8, x2=90, y2=8, no_head=1) \end{verbatim} \noindent The result of these and other {\cmnd{plot\_arrow}} commands are shown in Figure~\ref{Fig:PlotArrows}. The arrowhead can be made hollow by setting {\tt{outline=1}}. To get a line between points (x1,y1) and (x2,y2), the {\cmnd{plot\_arrow}} command is used with {\tt{no\_head=1}}, which completely suppresses the arrowhead. %%#GraphicsFile% plot_arrows PlotArrows % A selection of examples of plotting arrow parameters % for {\ifeffit}. \begin{figure}[tb] \begin{center} \includegraphics[width=2.75in,angle=-90]{figs/plot_arrows.ps} \caption{ A selection of examples of plotting arrow parameters for {\ifeffit}.}\label{Fig:PlotArrows} \end{center} \end{figure} %%#EndGraphics% \subsection{Cursor and Zooming} \label{Ch:Plot-cursor} {\index{{plotting!cursor}}} {\index{{plotting!cursor!cursor position}}} {\index{{plotting!zooming}}} For interactive data analysis, it is often desirable to get the x-y coordinates of some particular point on a plot, or to zoom in on a particular region of the plot window. The {\cmnd{cursor}} command allows you get the coordinates of a point on the plot window by clicking on it with the mouse. The x- and y-coordinates are then stored in the {\ifeffit} variables {\tt{cursor\_x}} and {\tt{cursor\_y}}. These values can be written to the screen immediately by using the {\tt{show}} keyword: \begin{verbatim} Ifeffit> cursor(show) \end{verbatim} \noindent This will wait for you to click on the plot window, then print out the result in the form \begin{verbatim} cursor: x = 7.78890 , y = 0.963039 \end{verbatim} \noindent It is important to remember that the {\cmnd{cursor}} command blocks all other processing until you click on the plot window. For one thing, this means that putting {\cmnd{cursor}} in a macro should be done with caution. By default, {\cmnd{cursor}} will show a small cross at the cursor point, but it is possible to change the look of the cross-hair shown while selecting the cursor point. For example, \begin{verbatim} Ifeffit> cursor(crosshair) \end{verbatim} \noindent will show a moving crosshair that extends the full height and width of the plot window. There are a few other variations on the look of the cursor when selecting points. For example, {\tt{cursor(vert)}} will show just a vertical line that spans the entire length of the plot window, and follows the cursor as you move the mouse. Similarly, {\tt{cursor(horiz)}} will show a horizontal line that extends over the entire plot window and moves with the cursor position. {\index{{plotting!cursor!selecting x range}}} {\index{{plotting!cursor!selecting y range}}} For selecting x-ranges (say, for choosing an energy range for the pre-edge region), it is often useful to see the previously chosen cursor position as you select the next one. This can be accomplished with {\tt{cursor(xrange)}} which will show a stationary vertical line at the previously selected cursor point (or, if you explicitly set {\tt{cursor\_x}} yourself, that value will be used) and also show a vertical line that moves with the mouse. Similarly, for selecting a y-range, {\tt{cursor(yrange)}} will draw a stationary horizontal line at the value set by {\tt{cursor\_y}} as well as a horizontal line that moves with the mouse. The {\cmnd{zoom}} command will allow you to select a region on the current plot window to ``zoom in'' on. This will first show the full-length cross-hair, as from {\tt{cursor(crosshair)}}, until the mouse is clicked, then show a box with one corner at the first selected point and the opposite corner that follows the cursor until the mouse is clicked again. At that point, the window will be zoomed to this selected box. Using {\tt{zoom(nobox)}} will suppress the drawing of the cross-hair and ``zoom box'', showing only the normal cursor plus sign. You can get the resulting x- and y-coordinates of corners of the selected zoom box by using {\tt{zoom(show)}}. This will print out two lines of the form \begin{verbatim} cursor: x = 1.03020 , y = 0.001020 cursor: x = 4.30290 , y = 0.963039 \end{verbatim} \noindent that will contain the limits of the zoomed plot window. IMPORTANT NOTE: On Windows systems these variations on the cursor lines and ``zoom box'' are not working. This is under investigation. \subsection{Graphics Devices} \label{Ch:Plot-devices} {\index{{plotting!devices}}} PGPLOT, and therefore {\ifeffit}, uses the concept of a plotting {\emph{device}} to distinguish different output forms. Depending on how PGPLOT was installed, there can be several different devices, including output to the screen (possibly using different screen plotting libraries) and graphic image files suitable for making hardcopies or including in other documents. The list of devices typically available is given in Table~{\ref{Table:plot_devs}}. To see the available devices for any installation of {\ifeffit}, you can inspect the string {\tt{\$plot\_devices}}, which will contain a simple space-delimited string of device names as given in Table~{\ref{Table:plot_devs}}. \begin{verbatim} Ifeffit> print $plot_devices /gif /vgif /png /tpng /null /ps /vps /cps /vcps /xwindow /xserve \end{verbatim} \noindent % $ The currently selected device is contained in {\tt{\$plot\_device}}. For each platform, at least one interactive plotting screen device is available. Normally one of these is the default plotting device, so that plots are 'live' and interactive. The following sections describe several of the plotting devices in details and how to customize the settings for them. \begin{table}[t] \begin{center} \caption[a]{Typical PGPLOT device labels and their meaning. Note that several of these are restricted to a single platform, and that other plotting devices may be available on some platforms.} {\label{Table:plot_devs}} \begin{tabular}{lll} \noalign{\smallskip} Device Name & Platforms & Description \\ \noalign{\smallskip} \hline \noalign{\smallskip} /null & all & none -- no plot will be drawn\\ /ps & all & black-and-white Postscript file, portrait mode\\ /vps & all & black-and-white Postscript file, landscape mode\\ /cps & all & color Postscript file, portrait mode\\ /vcps & all & color Postscript file, landscape mode\\ /gif & many & GIF file, portrait mode\\ /vgif & many & GIF file, landscape mode\\ /png & many & PNG file\\ /tpng & many & PNG file with a transparent background\\ /xwindow & Unix/X & X-window screen\\ /xserve & Unix/X & X-window screen, persistent plot frame\\ /gw & Win32 & GrWin graphics screen\\ /aqt & Mac OS X & Mac Aquaterm (non-X) screen\\ \noalign{\smallskip} \hline \end{tabular} \end{center} \end{table} \subsubsection{X-Windows Graphics} \label{Ch:Plot-X} {\index{{plotting!X windows}}} For Unix (including Mac OS X), the X Windows library is well supported by PGPLOT and {\ifeffit}. To use {\ifeffit} on an Unix/X window system, you'll need to set two environmental variables. First, the variable PGPLOT\_DIR gives the directory location of the PGPLOT library (probably /usr/local/pgplot/). Second, the variable PGPLOT\_DEV sets the default plotting device. To draw to the X window, this should be set to either `/XSERVE' or '/XWINDOW'. In c-shell and derivatives, this would be done like this (possibly put in the {\file{.cshrc}} file): \begin{verbatim} # csh syntax setenv PGPLOT_DIR /usr/local/pgplot/ setenv PGPLOT_DEV /XSERVE \end{verbatim} \noindent In bash and ksh shells, this would look like this (possibly in the {\file{.profile}} file): \begin{verbatim} # bash syntax PGPLOT_DIR /usr/local/pgplot/ PGPLOT_DEV /XSERVE export PGPLOT_DIR export PGPLOT_DEV \end{verbatim} The '/XWINDOW' and '/XSERVE' devices look identical, but there is one important difference between them. The '/XWINDOW' plot window will disappear when you leave {\ifeffit}, while the '/XSERVE' plot window will remain plotted until explicitly killed by your window manager (say, by clicking the little X button). If after leaving {\ifeffit} you start another {\ifeffit} session (possibly on a different machine) that same plot window will be used, though two concurrent {\ifeffit} sessions will not use the same window. In addition to the choice of X window type, there are a few other X-window settings for PGPLOT that you may way to customize in your {\file{.Xdefaults}} or {\file{.Xresources}} file. The two most important settings are: \begin{verbatim} pgxwin.server.visible: false pgxwin.Win.geometry: 610x377 \end{verbatim} \noindent The first of these suppresses a little X-server window that pops up. The second sets the initial window geometry in pixels. Of course, you can resize it, but this will set it to a decent size to begin with. Finally, the X-Windows device has a tendency to use up the X color map, which causes color flashing, especially on machines with older video cards, and especially when other color-intensive programs are running. If this happens, try limiting the number of colors that PGPLOT can set aside: \begin{verbatim} pgxwin.Win.maxColors: 64 \end{verbatim} \noindent did the trick on my old laptop. \subsubsection{GrWin Graphics for Win32 systems} \label{Ch:Plot-Win32} {\index{{plotting!MS Windows}}} For Win32 users (that is, Microsoft Windows NT 4.0, 95, 98, 2000, ME, and whatever else they come up with), the GrWin graphics used by {\ifeffit} are fairly straightforward to use. Cut and Paste to the Windows clipboard works, so importing graphics into documents is easy. For most users, the GrWin graphics are set-up when the icons to run the command-line program {\tt{ifeffit.exe}} or one of the GUIs. In general, using the GrWin graphics requires setting the environmental variable PGPLOT\_DEV to /GW and the environmental variables PGPLOT\_DIR and IFEFFIT\_DIR to point to the directory of the {\ifeffit} installation, and add this directory to the system PATH. These setting can be done through the ``normal setting of environmental variables'': autoexec.bat for older versions of Windows, and through the Control Panel or system registry for Windows NT and later. Alternatively, These settings can be encapsulated into a batch file which runs the {\ifeffit} executable program itself. The Windows distribution of {\ifeffit} includes such batch files. At this writing, the Windows version of {\ifeffit} supports the GrWin, Postscript, and GIF devices. \subsubsection{Aquaterm Graphics for Mac OS X} \label{Ch:Plot-aqt} {\index{{plotting!Aquaterm for Mac OS X}}} On Mac OS X, {\ifeffit} can be built with X Windows graphics, in which case everything in section~\ref{Ch:Plot-X} applies. But for Mac OS X users who wish to run {\ifeffit} without X Windows, there is an alternative to plot directly to the Aquaterm. This PGPLOT device is still under active development, and though I have seen this work, I have not myself built or used this plotting device. I expect that this will become a fairly standard option, \ldots. \subsubsection{PostScript, GIF and PNG Graphics Files} \label{Ch:Plot-PS} {\index{{plotting!PostScript output}}} The plots generated by {\ifeffit} can be saved to Postscript, GIF, and PNG files, though these may not all be available on all platforms. The creation of hardcopy as described in this section is an ideal job for {\ifeffit} macros, as discussed in chapter~\ref{Ch:Macros}. You'll probably want to play with the 'hardcopy generation' macros once and then use them extensively without looking at them. As with many aspects of PGPLOT, the quality is not the highest (notably, vector fonts are used, even in the PostScript output), but the results are passable enough for many situations. To save a plot image to a file, you need to supply a file name and the type of output device. Thuse, to save a black-and-white PostScript version of the current plot to the file {\file{ifeffit.ps}}, you would type: \begin{verbatim} Ifeffit> plot(device="/ps",file= "ifeffit.ps") \end{verbatim} \noindent The plot device is automatically reset to the default interactive window after saving the file. Other devices listed in Table~{\ref{Table:plot_devs}} will produce different forms of output. It must be noted that the images generated will preserve the background and foreground color, even for black-and-white output. This means that if you're plotting on a screen with a black background and a white foreground (ie, white text), then the output image file will use a lot of ink when you print it out. You almost certainly want to redraw plots with black foreground and white background for printing: \begin{verbatim} Ifeffit> plot(device="/vps",file= "ifeffit.ps", bg=white,fg=black) \end{verbatim} \noindent The size of the output postscript file is set (in units of 0.001" = 25 $\rm{\mu}m$) with the environmental variables PGPLOT\_PS\_HEIGHT and PGPLOT\_PS\_WIDTH: \begin{verbatim} # bash syntax: set PGPLOT PostScript size PGPLOT_PS_HEIGHT 6000 PGPLOT_PS_WIDTH 4000 export PGPLOT_PS_HEIGHT export PGPLOT_PS_WIDTH \end{verbatim} \noindent While Postscript files are appropriate for printing and inclusion in papers, GIF and PNG files are more widely used for Web publication. GIF files can be produced with the "/gif" plot device. Landscape mode GIFS are generated with "/vgif". As with the Postscript drivers, the colors generated in the GIF file will be close to those on the screen, including the background and foreground colors. The text strings, on the hand, may be rendered slightly differently than on the screen. The size of the GIF output file can be set in pixels with the environmental variables PGPLOT\_GIF\_HEIGHT and PGPLOT\_GIF\_WIDTH: {\index{{plotting!GIF output}}} \begin{verbatim} # cshrc syntax: set PGPLOT PostScript size setenv PGPLOT_GIF_HEIGHT 800 setenv PGPLOT_GIF_WIDTH 1000 \end{verbatim} \noindent Due the limited quality of the GIF output, it may be tempting to create very large GIF file and reduce it afterwards. This works reasonably well, though to be honest, I've had better success with doing screen grabs of the PGPLOT window to a native bitmap and converting that to the desired format. {\index{{plotting!PNG output}}} PNG files are similar to GIF, though generally smaller and slightly superior in quality. The PNG files written by PGPLOT are, however, about the same quality as the GIF output. On the bright side, they are not burdened by use of a software patent. ifeffit-1.2.11d/doc/Makefile.in0000644000175000017500000001132610771740460015173 0ustar segresegre# Makefile.in generated automatically by automake 1.4 from Makefile.am # Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. # Copyright (C) 2000 Matt Newville # # This file is free software; as a special exception the author gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY, to the extent permitted by law; without even the # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. SHELL = @SHELL@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ sbindir = @sbindir@ libexecdir = @libexecdir@ datadir = @datadir@ sysconfdir = @sysconfdir@ sharedstatedir = @sharedstatedir@ localstatedir = @localstatedir@ libdir = @libdir@ infodir = @infodir@ mandir = @mandir@ includedir = @includedir@ oldincludedir = /usr/include DESTDIR = pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = .. ACLOCAL = @ACLOCAL@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS) INSTALL_DATA = @INSTALL_DATA@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ transform = @program_transform_name@ NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : host_alias = @host_alias@ host_triplet = @host@ CC = @CC@ CPP = @CPP@ CXX = @CXX@ CXXCPP = @CXXCPP@ F2C = @F2C@ F2CFLAGS = @F2CFLAGS@ F77 = @F77@ FFLAGS = @FFLAGS@ FLIBS = @FLIBS@ MAKEINFO = @MAKEINFO@ NM = @NM@ PACKAGE = @PACKAGE@ RANLIB = @RANLIB@ VERSION = @VERSION@ canonical_host_type = @canonical_host_type@ mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs CONFIG_HEADER = ../config.h CONFIG_CLEAN_FILES = DIST_COMMON = README Makefile.in DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) TAR = gtar GZIP_ENV = --best all: all-redirect .SUFFIXES: Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status $(BUILT_SOURCES) cd $(top_builddir) \ && CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status tags: TAGS TAGS: distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir) subdir = doc distdir: $(DISTFILES) here=`cd $(top_builddir) && pwd`; \ top_distdir=`cd $(top_distdir) && pwd`; \ distdir=`cd $(distdir) && pwd`; \ @for file in $(DISTFILES); do \ d=$(srcdir); \ if test -d $$d/$$file; then \ cp -pr $$/$$file $(distdir)/$$file; \ else \ test -f $(distdir)/$$file \ || ln $$d/$$file $(distdir)/$$file 2> /dev/null \ || cp -p $$d/$$file $(distdir)/$$file || :; \ fi; \ done info-am: info: info-am dvi-am: dvi: dvi-am check-am: all-am check: check-am installcheck-am: installcheck: installcheck-am install-exec-am: install-exec: install-exec-am install-data-am: install-data: install-data-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am install: install-am uninstall-am: uninstall: uninstall-am all-am: Makefile all-redirect: all-am install-strip: $(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install installdirs: mostlyclean-generic: clean-generic: distclean-generic: -rm -f Makefile $(CONFIG_CLEAN_FILES) -rm -f config.cache config.log stamp-h stamp-h[0-9]* maintainer-clean-generic: mostlyclean-am: mostlyclean-generic mostlyclean: mostlyclean-am clean-am: clean-generic mostlyclean-am clean: clean-am distclean-am: distclean-generic clean-am distclean: distclean-am maintainer-clean-am: maintainer-clean-generic distclean-am @echo "This command is intended for maintainers to use;" @echo "it deletes files that may require special tools to rebuild." maintainer-clean: maintainer-clean-am .PHONY: tags distdir info-am info dvi-am dvi check check-am \ installcheck-am installcheck install-exec-am install-exec \ install-data-am install-data install-am install uninstall-am uninstall \ all-redirect all-am all installdirs mostlyclean-generic \ distclean-generic clean-generic maintainer-clean-generic clean \ mostlyclean distclean maintainer-clean # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: ifeffit-1.2.11d/doc/feffit_unc.tex0000644000175000017500000004576010771740460015771 0ustar segresegre% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % chapter 5 % % % % \section{Goodness of Fit and Uncertainties in Variables}\label{ch:uncertain} This chapter deals with statistics and error analysis, a field that is by its nature uncertain. The procedures used by \feffit\ are as close to the ``standard techniques of data fitting and error analysis'' as possible. See {\sl Data Reduction and Error Analysis for the Physical Sciences} by Philip R. Bevington and {\sl Numerical Recipes} by Press, {\it {et al.}\/} for good introductions to these topics. If you think that any issues of fitting or error analysis are being overlooked or could be improved, please let us know. The topics in this chapter are extremely important to XAFS data analysis and we welcome any discussion of them. \subsection{\chisqr\ as a measure of the Goodness of Fit} The best set of variables in \feffit\ will minimize the sum of the squares of the difference of model and data XAFS. The statistic called chi-square, written \chisqr, is a scaled measure of the sum of squares of a function, is generally considered the best figure of merit to judge the quality of the fit. The standard definition of \chisqr, \begin{equation} \chi^2 = \sum_{i=1}^N \biggl( { {f_i} \over {\epsilon_i} } \biggr)^2, \label{eq:chi2def} \end{equation} \noindent requires 3 quantities: (1) $f_i$, the function to minimize; (2) $N$, the number of function evaluations; and (3) $\epsilon_i$, the uncertainties in the function to minimize. \feffit\ allows the fit to be done in $R$- or $k$-space, but there is no conceptual difference in the way the fit is done. In either case, the function to minimize consists of the real and imaginary parts of the difference between data and full model XAFS (either \chir\ or \chiq) over the fit range. To be specific, when fitting in $R$-space the function to minimize is \begin{equation} f(R_i) = \tilde\chi_{\rm data}(R_i) - \tilde\chi_{\rm model}(R_i), \qquad R_{\rm min} \le R_i \le R_{\rm max}, \end{equation} and when fitting in $k$-space, the function to minimize is \begin{equation} f(k_i) = \tilde\chi_{\rm data}(k_i) - \tilde\chi_{\rm model}(k_i),\qquad k_{\rm min} \le k_i \le k_{\rm max} . \end{equation} \noindent For the rest of this chapter, I'll use $f_i$ as the elements of the function to minimize, without specifying which of the two options is used. Note that these elements are squared in Eq.~(\ref{}), so that the sign of $f_i$ is unimportant. Since there is one real and one imaginary evaluation for each data point, the number of evaluations is $ N = { {2 (R_{\rm max} - R_{\rm min})} / { \delta R } } $ when fitting in $R$-space and $ N = { {2 (k_{\rm max} - k_{\rm min})} / {\delta k } } $ when fitting in $k$-space. Here $\delta R$ and $\delta k$ are the grid spacing in $R$- and $k$-space ($\delta k$ is set to $ 0.05\, {\rm \AA}^{-1}$ ). $R_{\rm min}$ and $R_{\rm max}$ (or $k_{\rm min}$ and $k_{\rm max}$) are the bounds of the fitting range. Since $\delta R$ and $\delta k$ are chosen arbitrarily, $N$ has no physical significance and is not the right number to use if the scale of \chisqr\ is to be meaningful. The best number to use is the number of relevant independent measurements, given by the amount of information in the data concerning the atomic distribution around the central atom. Note that although the points of $\mu(E)$ are all independent measurements of absorption, they are {\it not\/} independent measurements of the atomic distribution function, which is what we're interested in when analyzing data. From basic information theory, the number of independent measurements in a spectrum is given by \begin{equation} N_{\rm idp} = {{ 2 (k_{\rm max} - k_{\rm min} ) (R_{\rm max} - R_{\rm min} )} \over \pi } \quad + \quad 2 . \end{equation} \noindent The qualitative arguments for this are (1) that the conjugate Fourier variables are $k$ and $2R$; (2) that since we're measuring real and imaginary parts of \chir, the information must be an even number of points; and (3) we must have at least one pair of points, even for an infinitesimally small $R$-range. \chisqr\ is then \begin{equation} \chi^2 = \sum_{i=1}^{N_{\rm idp} } \biggl( { {f_i} \over {\epsilon_i} } \biggr)^2 = { {N_{\rm idp} } \over N } \sum_{i=1}^{N} \biggl( { {f_i} \over {\epsilon_i} } \biggr)^2. \end{equation} \noindent We are still left with $\epsilon_i$, the uncertainty in the measurement, which we'll return to in the section~{\ref{section:2}. To simplify matters (and because we don't know anything better to do) \feffit\ uses a single value $\epsilon$ for all values of $\epsilon_i$. If the uncertainties are dominated by random fluctuations in the data, then a single value for $\epsilon$ is the best that can be done anyway. Assuming for the moment that we have a reasonable estimate for $\epsilon$, \chisqr\ is then given by \begin{equation} \chi^2 = { {N_{\rm idp} } \over N \epsilon^2} \sum_{i=1}^{N} \biggl\{ {\bigl[ {\rm Re} \big( f_i \big) \bigr]^2 + \bigl[ {\rm Im} \big( f_i \big) \bigr]^2 } \biggl\}. \end{equation} \noindent This is the definition of \chisqr\ used by \feffit, and is the primary figure-of-merit to characterize the goodness of the fit. There is a related figure-of-merit, called reduced chi-square, denoted $\chi^2_{\nu}$. This is equal to $ {\chi^2 / \nu}$, where $\nu = N_{\rm idp} - N_{\rm varys}$ is the number of degrees of freedom in the fit, (where $N_{\rm varys}$ is the number of variables in the fit). \chisqr\ and \redchi\ are useful for comparing the quality of different fits. The basic rule is that the fit with the lowest \redchi\ is the best. This comparison works even if two fits have different number of variables. The criterion for assessing if a particular variable is useful in the fit is that \redchi\ will be lowered for useful variables. If adding a variable causes \chisqr\ to decrease but \redchi\ to increase, the fit is not improved. If the errors are dominated by random fluctuations in the data, a good fit should have $\chi^2_{\nu} \sim 1$. If you want to get picky, the expected deviation of \redchi\ is roughly $\sqrt{2/\nu}$, so that any $\chi^2_{\nu} > 1 + 2\sqrt{2/\nu}$ would clearly indicate a poor fit. Our experience is that \redchi\ is rarely this close to 1 for concentrated samples, even for fits that look excellent by eye. We usually find \redchi\ to be more like 10 or 100! This means that the difference between the data and fit is much bigger than the estimated uncertainty in the data (again, the pesky $\epsilon$). The most likely reasons for a \redchi\ very different from 1, are: (1) the \feff\ model is not a good representation of the data, (2) $\epsilon$ is a poor estimate of the measurement uncertainty of the data, or (3) the fit $R$-range does not reflect the paths specified in the fit. Our current thinking is that, sorry to say, \feff\ is poor enough that it will not match the data of concentrated samples to within the measurement uncertainty. (In the example in chapter~{\ref{ch:examples}}, a fit to the first shell of Cu metal gives $\chi^2_{\nu} \approx 20$.) A poorly scaled \chisqr\ is not a big deal if it is used only to compare the goodness of fit between different models. And we're mostly willing to say that, even though \feff\ doesn't match our data to within the measurement uncertainties, we can still rely on the structural parameters that a fit to a \feff\ model will give. But we do run into a serious problem when trying to interpret the meaning of a $\chi^2_\nu \gg 1$. Specifically, it is not clear from the value of \redchi\ alone if hard-to-estimate systematic errors are drowning out the random measurement errors or if the fit is truly bad. To help distinguish these two very different conclusions, it is convenient to introduce an $\cal R$-factor, which is scaled to the magnitude of the data itself, \begin{equation} { \cal R} = { { \displaystyle \sum_{i=1}^{N} \biggl\{ {\bigl[ {\rm Re} \big( f_i \big) \bigr]^2 + \bigl[ {\rm Im} \big( f_i \big) \bigr]^2 } \biggl\} } \over { \displaystyle \sum_{i=1}^{N} \biggl\{{\bigl[ {\rm Re} \big(\tilde\chi_{{\rm data}_i} \big)\bigr]^2 + \bigl[ {\rm Im} \big(\tilde\chi_{{\rm data}_i} \big)\bigr]^2} \biggl\} } } \end{equation} \noindent This number is directly proportional to \chisqr, and gives a sum-of-squares measure of the fractional misfit. (We should mention that most of the other XAFS analysis programs use a number more like this $\cal R$ for their definition of \chisqr.) Since $\cal R$ does not depend on $N$, $N_{\rm idp}$, or $\epsilon$, it has a different interpretation than \chisqr. As long as the measurement uncertainty isn't a significant fraction of the measurement itself (so that the signal-to-noise ratio is much less than 1) we can be confident that any fit with an $\cal R$-factor bigger than a few percent is not a very good fit. For good fits to carefully measured data on concentrated samples, ${\cal R} < 0.02$ and $\chi^2_{\nu} > 10$ are common. Such fits are clearly quite good, as the theory and data agree within a percent. But since the misfit is much larger than the random fluctuations in the measured data, we're left with the conclusion that systematic errors dominate such fits. \subsection{The measurement uncertainty problem} Estimating $\epsilon$, the measurement uncertainty in the data over the fit range, is the main difficulty in the error analysis in \feffit. $\epsilon$ contains both random fluctuations and systematic errors in the data. The random fluctuations of the data in $R$-space can be estimated by evaluating the rms value of the \chir\ between 15 and 25\AA. This assumes that the fluctuations are white noise, and that they are much bigger than the signal past 15\AA. Systematic errors in the data are much more difficult to estimate. (If you could accurately estimate their size you could probably eliminate them). Some things that may dominate the systematic errors of \chir\ are (1) leakage of an imperfect background into the first few shells, and (2) systematic errors in measurements of $\mu(E)$. You may be able to estimate the size of these systematic errors by trying different ``reasonable'' background removals, which, though tedious, will give an estimate of the first systematic error. Analyzing different data scans (taken under different experimental conditions) may help give an estimate of the second kind of systematic error. Though strictly not a systematic error in the data, a third source of systematic errors in the fit comes from the \feff\ calculation itself. Such errors are important because they do contribute to the small amount of misfit expected in a good fit. The scale of $\epsilon$ depends on the Fourier Transform parameters used (such as $k$-weight, ranges, and window functions), which makes $\epsilon$ difficult to interpret, and not a very intuitive quantity. Assuming that the noise is dominated by random fluctuations $\epsilon_R$ is linearly related to $\epsilon_k$ (the fluctuations in the unfiltered data \chik), the measurement uncertainty in the $k$-space data, according to \begin{equation} \epsilon_k = \epsilon_R \sqrt{ {\pi \,(2w+1) }\over {\delta k \, (k_{\rm max}^{2w+1} - k_{\rm min}^{2w+1})} }, \end{equation} \noindent where $w$ is the $k$-weighting, and $\delta k$ is the spacing between points in $k$-space. $\epsilon_q$, the random fluctuations in filtered $k$-space, are found using the same kind of linear relation between $\epsilon_q$ and $\epsilon_R$. If, for any reason, you have an improved estimate of $\epsilon$, (either $\epsilon_R$ or $\epsilon_k$), you should definitely put it into \feffitinp\ with either the keyword {\tt epsdat} or {\tt epsr}. Note that all contributions to $\epsilon$ should be added in quadrature, and that the value used by default is only the random fluctuation component. If you specify $\epsilon_k$, Eq.~{} will be used to convert this to $\epsilon_R$. \subsection{Error estimation for the variables} %%% \begin{figure} \epsffile{Figs/ellipse.ps} \caption[chi-square]]{A contour map of \chisqr\ as a function of two variables, $x$ and $y$. The uncertainties in the variables ($\Delta x$ and $\Delta y$, respectively) are chosen so as to require that \chisqr\ is increased by 1 from its best value, $\chi^2_0$. The correlation between the variables is given by $\cos(\theta_{\rm c})$.} \end{figure} %%% \feffit\ will estimate the uncertainties in the variables immediately after the best-fit values of the variables are found. Occasionally the error estimation will fail, which means that at least one of the variables does not significantly change the model XAFS. Such ``null variables'' must be taken out of the fit for the uncertainties in the rest of the variables to be calculated. \feffit\ will try to tell you which variables are causing the problem if this happens. The uncertainties in the variables are estimated using a standard technique of error analysis. This is well-explained in the standard references, but I'll summarize it here. The goal of the fit is to minimize \chisqr\ in each of its $N_{\rm varys}$ dimensions (where $N_{\rm varys}$ is the number of variables in the fit). Algorithms such as the Levenberg-Marquardt method are able to find a minimum for multi-dimensional \chisqr\ without too much difficulty. In order to do this, the first and second derivatives of \chisqr\ are found with respect to each of the variables (second derivatives are found for each pair of variables). These derivatives are used for finding the next estimate of the best variables, and turn out to be useful for estimating the uncertainties in the variables after the best fit has been found. At the best-fit solution, \chisqr\ will be roughly parabolic in each of its $N_{\rm varys}$ dimensions. The ($N_{\rm varys} \times N_{\rm varys}$) matrix of second derivatives of \chisqr\ around the solution gives the curvature of the \chisqr\ surface. Figure~{1??} shows a crude rendition of a contour plot of the \chisqr\ surface for a two-variable problem. At the solution, the variables $x$ and $y$ have values $x_0$ and $y_0$, and $\chi^2 = \chi^2_0$. As $x$ or $y$ move away from their best-fit solution, \chisqr\ increases. For ``normally distributed'' uncertainties, the contours of constant \chisqr\ will be ellipses for two dimensions (and higher order ellipsoids for more than two dimensions). The uncertainty in the value of a variable is the amount by which it can be increased and still have \chisqr\ below some limit. For randomly distributed errors, $\chi^2_0 + 1$ is a common criterion, and is the one used in \feffit. From Fig.~{2??, the uncertainties in $x$ and $y$ are $\Delta x$ and $\Delta y$, and are those values which ensure that \chisqr\ is increased by 1 from its best value. Note that when evaluating the uncertainty in a variable, all the other variables are allowed to vary, so that the correlations between variables can be taken into account. The correlation is a measure of how much the best-fit value of one of the variables changes in response to changing another variable away from its best-fit value. In Fig.~{2??}, the correlation of the variables $x$ and $y$ is something like $\cos(\theta_{\rm c})$, the ``projection'' of $\Delta x$ on $\Delta y$. If the variables were completely uncorrelated, the ellipse in Fig.~{2??} would have its major and minor axes parallel to the $x$ and $y$ axes. The point of this discussion is that if the correlations were ignored, and $y$ were held constant, the uncertainty in $x$ would be estimated to be $\Delta x'$. This is considerably smaller than $\Delta x$, and is a worse estimate of the uncertainty in $x$ because a fit with $x$ set to $x_0 +\Delta x$ will give a $\chi^2 = \chi^2_0 + 1 $. %%% Algebraically, the uncertainties in the variables are given by the inverse of the curvature matrix (the matrix of the second derivatives), called the correlation matrix. The uncertainties in the variables are the square roots of the diagonal terms, and the correlations between pairs of variables are given by the off-diagonal terms of this matrix. This is very easy and useful to do, and gives a good estimate of the uncertainties, as long as the curvature matrix can be inverted. (Matrix inversion will fail if a variable does not affect the fit because the second derivative of \chisqr\ will be zero, and the curvature matrix will be singular.) Although it may not be obvious, the matrix inversion technique gives values for the uncertainties that will increase \chisqr\ by 1, as shown in Figure~{1??} (the key is that matrix inversion is division by 1). Since \chisqr\ increases by 1 to give the uncertainties in the variables, the scale of \chisqr\ is very important. The scale of $\epsilon$ is therefore critical in getting good estimates of the uncertainties, and we're back where we were at the beginning of the chapter. Unless $\epsilon$ is correctly estimated, \chisqr\ will be wrong, and then the estimates for the uncertainties will be wrong. But there is away around this problem if we are convinced that a fit is good (based on a small $\cal R$) even if \redchi\ is much larger than 1.0, so that we assert that $\epsilon$ that is too small (because we did not include systematic errors). The trick is that the value of $\epsilon$ can be rescaled by a factor of ($\sqrt{\chi^2_{\nu} }$) so that \redchi\ will be forced to be 1. But we don't need to redo the fit or matrix inversion, we can just multiply the uncertainties themselves by $\sqrt{\chi^2_{\nu}}$. The numbers reported by \feffit\ for all the uncertainties in \feffitlog\ are rescaled in this way by $\sqrt{\chi^2_{\nu}}$. It is important to remember that this trick gives reasonable estimates for the uncertainties at the expense of using \redchi\ for measuring the goodness of fit. It {\it assumes} that the fit is good (by forcing \redchi\ to 1), and that significant systematic contributions to $\epsilon$ were ignored. Uncertainties are calculated only for the variables in the fit, not for the User-Defined Functions. Because the User-Defined Functions can depend on the variables in fairly complicated ways, the uncertainties in them are too hard to work out in general. You'll need to use the standard techniques of partial derivatives (see, Bevington's book, for example) to work out the propagation of errors in the errors to errors in functions of the errors. All of the error analysis parameters discussed in this chapter will be written to \feffitlog. The values for $N_{\rm idp}$, $N_{\rm varys}$, $\nu$, $\epsilon$, $\chi^2$, and $\chi^2_{\nu}$ and ${\cal R}$ will all be written to this file. The uncertainties (already rescaled by $\sqrt{\chi^2_{\nu}}$) are listed with the best-fit values. Correlations between variables are sorted so that the most highly correlated are listed first. One warning about correlation of two variables should be mentioned. If two variables are completely correlated (\ie, the correlation is greater than 0.999 or less than -0.999), then these two variables are not really different, and one of them can be eliminated. % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % ifeffit-1.2.11d/doc/feffit_alg.tex0000644000175000017500000000010410771740460015726 0ustar segresegre \section{Algorithms in {\feffit} } \label{ch:algor} This section ifeffit-1.2.11d/doc/scripts/0000755000175000017500000000000010771740460014612 5ustar segresegreifeffit-1.2.11d/doc/scripts/fixind0000755000175000017500000000027510771740460016025 0ustar segresegre#!/usr/bin/perl -w # fix index entries for reference manual $file = $ARGV[0]; open(IND, "$file") or die " no file $file\n"; while () { s/\\tt[ ]+/\\tt/o; print ; } ifeffit-1.2.11d/doc/scripts/MakeArchive0000755000175000017500000000045610771740460016724 0ustar segresegre#!/usr/bin/perl -w require 'ifeffit.dep'; @files = ('ifeffit.tex'); $archivedir= 'doc'; @tex_files = split(/ /, $includes); @bib_files = split(/ /, $bib_files); push @files, @bib_files, @tex_files; system ("mkdir -p $archivedir"); foreach my $i (@files) { system ("cp $i $archivedir/."); } ifeffit-1.2.11d/doc/scripts/dot.latex2html-init0000644000175000017500000001731110771740460020352 0ustar segresegre#LaTeX2HTML Version 96.1 : dot.latex2html-init # ### Command Line Argument Defaults ####################################### $MAX_SPLIT_DEPTH = 8; # Stop making separate files at this depth $MAX_LINK_DEPTH = 4; # Stop showing child nodes at this depth $INTERLACE=0; $ANTI_ALIAS=0; $ANTI_ALIAS_TEXT=0; $DEBUG=0; $TRANSPARENT_FIGURES=0; $WHITE_BACKGROUND=1; $NOLATEX = 0; # 1 = do not pass unknown environments to Latex $EXTERNAL_IMAGES = 0; # 1 = leave the images outside the document $ASCII_MODE = 0; # 1 = do not use any icons or internal images # 1 = use links to external postscript images rather than inlined bitmap # images. $PS_IMAGES = 0; $TITLE = $default_title; # The default is "No Title" $DESTDIR = ''; # Put the result in this directory # When this is set, the generated HTML files will be placed in the # current directory. If set to 0 the default behaviour is to create (or reuse) # another file directory. $NO_SUBDIR = 0; # Supply your own string if you don't like the default $ADDRESS = "$address_data[0]
\n$address_data[1]"; $NO_NAVIGATION = 0; # 1 = do not put a navigation panel at the top of each page # Put navigation links at the top of each page. If the page exceeds # $WORDS_IN_PAGE number of words then put one at the bottom of the page. $AUTO_NAVIGATION = 1; # Put a link to the index page in the navigation panel $INDEX_IN_NAVIGATION = 1; # Put a link to the table of contents in the navigation panel $CONTENTS_IN_NAVIGATION = 1; # Put a link to the next logical page in the navigation panel $NEXT_PAGE_IN_NAVIGATION = 1; # Put a link to the previous logical page in the navigation panel $PREVIOUS_PAGE_IN_NAVIGATION = 1; $INFO = 1; # 0 = do not make a "About this document..." section # Reuse images generated during previous runs $REUSE = 2; # When this is 1, the section numbers are shown. The section numbers should # then match those that would have bee produced by LaTeX. # The correct section numbers are obtained from the $FILE.aux file generated # by LaTeX. # Hiding the seciton numbers encourages use of particular sections # as standalone documents. In this case the cross reference to a section # is shown using the default symbol rather than the section number. $SHOW_SECTION_NUMBERS = 1; ### Other global variables ############################################### $CHILDLINE = "

\n"; $BODYTEXT=' bgcolor="#fefffe" link="#2000ff" vlink="#B03434" '; # This is the line width measured in pixels and it is used to right justify # equations and equation arrays; $LINE_WIDTH = 500; # Used in conjunction with AUTO_NAVIGATION $WORDS_IN_PAGE = 300; # Affects ONLY the way accents are processed $default_language = 'english'; # The value of this variable determines how many words to use in each # title that is added to the navigation panel (see below) # $WORDS_IN_NAVIGATION_PANEL_TITLES = 5; # This number will determine the size of the equations, special characters, # and anything which will be converted into an inlined image # *except* "image generating environments" such as "figure", "table" # or "minipage". # Effective values are those greater than 0. # Sensible values are between 0.1 - 4. $MATH_SCALE_FACTOR = 1.6; # This number will determine the size of # image generating environments such as "figure", "table" or "minipage". # Effective values are those greater than 0. # Sensible values are between 0.1 - 4. $FIGURE_SCALE_FACTOR = 2.0; # If this is set then intermediate files are left for later inspection. # This includes $$_images.tex and $$_images.log created during image # conversion. # Caution: Intermediate files can be *enormous*. $DEBUG = 1; # If both of the following two variables are set then the "Up" button # of the navigation panel in the first node/page of a converted document # will point to $EXTERNAL_UP_LINK. $EXTERNAL_UP_TITLE should be set # to some text which describes this external link. $EXTERNAL_UP_LINK = "../"; $EXTERNAL_UP_TITLE = "Home Page"; # If this is set then the resulting HTML will look marginally better if viewed # with Netscape. $NETSCAPE_HTML = 0; # Valid paper sizes are "letter", "legal", "a4","a3","a2" and "a0" # Paper sizes has no effect other than in the time it takes to create inlined # images and in whether large images can be created at all ie # - larger paper sizes *MAY* help with large image problems # - smaller paper sizes are quicker to handle $PAPERSIZE = "letter"; # Replace "english" with another language in order to tell LaTeX2HTML that you # want some generated section titles (eg "Table of Contents" or "References") # to appear in a different language. Currently only "english" and "french" # is supported but it is very easy to add your own. See the example in the # file "latex2html.config" $TITLES_LANGUAGE = "english"; ### Navigation Panel ########################################################## # # The navigation panel is constructed out of buttons and section titles. # These can be configured in any combination with arbitrary text and # HTML tags interspersed between them. # The buttons available are: # $PREVIOUS - points to the previous section # $UP - points up to the "parent" section # $NEXT - points to the next section # $NEXT_GROUP - points to the next "group" section # $PREVIOUS_GROUP - points to the previous "group" section # $CONTENTS - points to the contents page if there is one # $INDEX - points to the index page if there is one # # If the corresponding section exists the button will contain an # active link to that section. If the corresponding section does # not exist the button will be inactive. # # Also for each of the $PREVIOUS $UP $NEXT $NEXT_GROUP and $PREVIOUS_GROUP # buttons there are equivalent $PREVIOUS_TITLE, $UP_TITLE, etc variables # which contain the titles of their corresponding sections. # Each title is empty if there is no corresponding section. # # The subroutine below constructs the navigation panels in each page. # Feel free to mix and match buttons, titles, your own text, your logos, # and arbitrary HTML (the "." is the Perl concatenation operator). sub top_navigation_panel { # Now add a few buttons with a space between them "$NEXT $UP $PREVIOUS $CONTENTS $INDEX $CUSTOM_BUTTONS" . "
\n" . # Line break # If ``next'' section exists, add its title to the navigation panel ($NEXT_TITLE ? " Next: $NEXT_TITLE\n" : undef) . # Similarly with the ``up'' title ... ($UP_TITLE ? "Up: $UP_TITLE\n" : undef) . # ... and the ``previous'' title ($PREVIOUS_TITLE ? " Previous: $PREVIOUS_TITLE\n" : undef) . # Line Break, horizontal rule (3-d dividing line) and new paragraph "

\n" } sub bot_navigation_panel { # Start with a horizontal rule (3-d dividing line) "

". # Now add a few buttons with a space between them "$NEXT $UP $PREVIOUS $CONTENTS $INDEX $CUSTOM_BUTTONS" . "
\n" . # Line break # If ``next'' section exists, add its title to the navigation panel ($NEXT_TITLE ? " Next: $NEXT_TITLE\n" : undef) . # Similarly with the ``up'' title ... ($UP_TITLE ? "Up: $UP_TITLE\n" : undef) . # ... and the ``previous'' title ($PREVIOUS_TITLE ? " Previous: $PREVIOUS_TITLE\n" : undef) } &ignore_commands( <<_IGNORED_CMDS_); htmlrule # [] # \$_ = join('',"
",\$_) mathversion # {} underline # {} # \$_ = join('',"", \$2, "", \$_) centerline # {} # \$_ = join('',"

", \$2, "

", \$_) Sbox # {} # \$_ = join('',"

", \$2, "

", \$_) latexhtml# {} latex# {} html lrule # {} scrollmode savebox# {}# []# [] center citeindexfalse _IGNORED_CMDS_ 1; # This must be the last line ifeffit-1.2.11d/doc/scripts/pstopng0000644000175000017500000000076110771740460016233 0ustar segresegre#!/usr/bin/python import os,sys,string for i in sys.argv[1:]: j = string.find(i,'.') o = i[:j] + '.png' print "converting %s to %s " % (i, o) # text="""pstoimg -type png -antialias -density 144 -crop tblrs -white -quiet -out _tmp_x.png %s text="""pstoimg -type png -antialias -density 144 -crop tblrs -white -quiet -out _tmp_x.png %s pngtopnm _tmp_x.png > _tmp_x.pnm pnmrotate -90 _tmp_x.pnm > _tmp_y.pnm pnmtopng _tmp_y.pnm > %s rm -f _tmp_* """ % (i, o) os.system(text) ifeffit-1.2.11d/doc/scripts/fixtex0000755000175000017500000001016310771740460016050 0ustar segresegre#!/usr/bin/perl -w # tweak tex source for reference manual to be # html, pdf, or ps specific # '\\begin{VerbSBox} ' construct for html files use Getopt::Std; getopts('ft:'); $dir = ($opt_t) ? ($opt_t) : "ps"; $force = 0; if ($opt_f) { $force = 1;} $header = "%%#fixtex%"; $mark{'sverb'} = "%%#VerbSBox%"; $mark{'title'} = "%%#TitlePage%"; $mark{'macros'} = "%%#Macros%"; $mark{'index'} = "%%#Index%"; $mark{'graph'} = "%%#GraphicsFile%"; $mark{'endgraph'} = "%%#EndGraphics%"; $imgdir = "http://cars9.uchicago.edu/ifeffit/images/refman/"; $gx = $opt_f; if ($force eq 0) { $markfile = ".latex_type"; $i = open(TST, "<$markfile"); $x = ' '; if ($i) { $x = ; chomp $x; close(TST);} if ($x eq $opt_t) { exit; } else { open(TST, ">$markfile") or warn "couldn't open $markfile\n"; print TST "$opt_t\n"; close(TST); } } # print " FILES : @ARGV \n"; foreach $file (@ARGV) { $savefile = $file.".bak"; open(TST, "<$file") or die "couldn't open $file\n"; $x = ; close(TST); next unless $x =~ /$header/o; # print " $file\n"; rename ($file,$savefile) or die "couldn't rename $file\n"; open(IN, "<$savefile") or die "couldn't open $savefile\n"; open(OUT, ">$file") or die "couldn't open $file\n"; my ($x, $mode) = (0,0); my @vtext; my $ln = 0; $graphmode = 0; while () { chomp; ## shadow/verb box # print "$_\n"; if (/$mark{'sverb'}/) { $inp_tag = "\\begin{VerbSBox}"; $out_tag = "\\end{VerbSBox}"; if ($dir eq "html") { $inp_tag = "\\begin{Verbatim}" ; $out_tag = "\\end{Verbatim}" ; }; print OUT "$_\n$inp_tag\n"; $x = ; # skip next line; while () { chomp; if (/$mark{'sverb'}/) { last; } push @vtext, $_; } pop @vtext; foreach $i (@vtext) { print OUT "$i\n";} @vtext = (); print OUT "$out_tag\n$mark{'sverb'}\n"; ## graphics file } elsif (/$mark{'endgraph'}/) { chomp $gc; $graphmode = 0; if (($dir eq "ps")) { print OUT "\\begin{figure}[tb] \\begin{center}\n"; print OUT " \\includegraphics[width=2.75in,angle=-90]{figs/$gf.$dir}\n"; print OUT " \\caption{$gc}\\label{Fig:$gl}\n"; print OUT "\\end{center} \\end{figure}\n"; } elsif (($dir eq "pdf")) { print OUT "\\begin{figure}[tb] \\begin{center}\n"; print OUT " \\includegraphics[width=4.0in]{figs/$gf.png}\n"; print OUT " \\caption{$gc}\\label{Fig:$gl}\n"; print OUT "\\end{center} \\end{figure}\n"; } elsif ($dir eq "html") { print OUT "\\begin{rawhtml}

\n"; print OUT "\n"; print OUT "\"$gf.png\"

\n"; print OUT "\\end{rawhtml}\n"; print OUT "\\begin{figure} \\rule{4in}{1mm} \n"; print OUT " \\caption{$gc}\n"; print OUT " \\label{Fig:$gl}\\end{figure}\n"; } print OUT "%%#EndGraphics%\n"; } elsif (/$mark{'graph'}/) { ($gx,$gf,$gl) = split(/\s+/, $_); $gc = ""; $graphmode = 1; print OUT "$_\n"; } elsif ($graphmode == 1) { if (/^%.*/o) { print OUT "$_\n"; s/^%[ ]*/ /o; $gc = $gc.$_."\n"; } # print OUT "$_\n"; # $x = ; # read next line # chomp $x; # @parts = split('\.', $x); # $ext = "ps}"; # if ($dir eq "pdf") { $ext = "pdf}"; } # $parts[$#parts] = $ext; # print OUT join('.',@parts), "\n"; ## title page include } elsif (/$mark{'title'}/) { $inp_tag = "\\include{title_pdf}" ; if ($dir eq "html") { $inp_tag = "\\include{title_html}"; } print OUT "$_\n$inp_tag\n"; $x = ; # skip next line; ## index include # } elsif (/$mark{'index'}/) { # $inp_tag = "\\include{index}" ; # if ($dir eq "html") { # $inp_tag = "\\include{index}"; # } # print OUT "$_\n$inp_tag\n"; # $x = ; # skip next line; ## macros include } elsif (/$mark{'macros'}/) { $inp_tag = "\\include{ifmacs_pdf}" ; if ($dir eq "html") { $inp_tag = "\\include{ifmacs_html}"; } print OUT "$_\n$inp_tag\n"; $x = ; # skip next line; } else { print OUT "$_\n"; } } } ifeffit-1.2.11d/doc/scripts/latexmk0000755000175000017500000011321610771740460016211 0ustar segresegre#!/usr/bin/perl ## latexmk - version 2.0 ## ## Modified by Evan McLean (emm@rdt.monash.edu.au) ## Original script (RCS version 2.3) called "go" written by David J. Musliner ## ## - fully automated LaTeX document generation routine. ## - checks to see if .bib or .tex source files (or included other files) ## have been changed since last run (which made .aux). ## - see sub print_help for info. ## ## LatexMk is no longer supported by the author. With changes in work ## situation, the author no longer uses latex, and hence does not use ## LatexMk. Having no access to latex also makes it difficult to test fixes. ## ##----------------------------------------------------------------------- ## Here's the copyright notice that Mr. Musliner required to be ## kept here. ##----------------------------------------------------------------------- ##Copyright 1992 by David J. Musliner and The University of Michigan. ## ## All Rights Reserved ## ##Permission to use, copy, modify, and distribute this software and its ##documentation for any purpose and without fee is hereby granted, ##provided that the above copyright notice and this permission notice appear in ##all copies and modified versions. ## ##THE COPYRIGHT HOLDER(S) DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, ##INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT ##SHALL THE COPYRIGHT HOLDER(S) BE LIABLE FOR ANY SPECIAL, INDIRECT OR ##CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, ##DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER ##TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR ##PERFORMANCE OF THIS SOFTWARE. ##----------------------------------------------------------------------- ##While I am not copyrighting my modifications (I don't even know if I ##can) I do include my own disclaimer: ## ##THE AUTHOR/MODIFIER(S) DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, ##INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT ##SHALL THE AUTHOR/MODIFIER(S) BE LIABLE FOR ANY SPECIAL, INDIRECT OR ##CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, ##DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER ##TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR ##PERFORMANCE OF THIS SOFTWARE. ##----------------------------------------------------------------------- $version_num = '2.0'; ##Modification History: ## 2.0 - Final release, no enhancements. LatexMk is no longer supported ## by the author. ## 1.9 - Fixed bug that was introduced in 1.8 with path name fix. ## - Fixed buglet in man page. ## 1.8 - Add not about announcement mailling list above. ## - Added texput.dvi and texput.aux to files deleted with -c and/or ## the -C options. ## - Added landscape mode (-l option and a bunch of RC variables). ## - Added sensing of "\epsfig{file=...}" forms in dependency generation. ## - Fixed path names when specified tex file is not in the current ## directory. ## - Fixed combined use of -pvc and -s options. ## - Fixed a bunch of speling errors in the source. :-) ## - Fixed bugs in xdvi patches in contrib directory. ## 1.7 - Fixed -pvc continuous viewing to reattach to pre-existing ## process correctly. ## - Added $pscmd to allow changing process grepping for different ## systems. ## 1.6 - Fixed buglet in help message ## - Fixed bugs in detection of input and include files. ## 1.5 - Removed test message I accidentally left in version 1.4 ## - Made dvips use -o option instead of stdout redirection as some ## people had problems with dvips not going to stdout by default. ## - Fixed bug in input and include file detection ## - Fixed dependency resolution process so it detects new .toc file ## and makeindex files properly. ## - Added dvi and postscript filtering options -dF and -pF. ## - Added -v version commmand. ## 1.4 - Fixed bug in -pvc option. ## - Made "-F" option include non-existant file in the dependency list. ## (RC variable: $force_include_mode) ## - Added .lot and .lof files to clean up list of extentions. ## - Added file "texput.log" to list of files to clean for -c. ## - LatexMk now handles file names in a similar fashion to latex. ## The ".tex" extention is no longer enforced. ## - Added $texfile_search RC variable to look for default files. ## - Fixed \input and \include so they add ".tex" extention if necessary. ## - Allow intermixing of file names and options. ## - Added "-d" and banner options (-bm, -bs, and -bi). ## (RC variables: $banner, $banner_message, $banner_scale, ## $banner_intensity, $tmpdir) ## - Fixed "-r" option to detect an command line syntax errors better. ## 1.3 - Added "-F" option, patch supplied by Patrick van der Smagt. ## 1.2 - Added "-C" option. ## - Added $clean_ext and $clean_full_ext variables for RC files. ## - Added custom dependency generation capabilities. ## - Added command line and variable to specify custom RC file. ## - Added reading of rc file in current directly. ## 1.1 - Fixed bug where Dependency file generation header is printed ## rependatively. ## - Fixed bug where TEXINPUTS path is searched for file that was ## specified with absolute an pathname. ## 1.0 - Ripped from script by David J. Musliner (RCS version 2.3) called "go" ## - Fixed a couple of file naming bugs ## e.g. when calling latex, left the ".tex" extention off the end ## of the file name which could do some interesting things ## with some file names. ## - Redirected output of dvips. My version of dvips was a filter. ## - Cleaned up the rc file mumbo jumbo and created a dependency file ## instead. Include dependencies are always searched for if a ## dependency file doesn't exist. The -i option regenerates the ## dependency file. ## Getting rid of the rc file stuff also gave the advantage of ## not being restricted to one tex file per directory. ## - Can specify multiple files on the command line or no files ## on the command line. ## - Removed lpr options stuff. I would guess that generally, ## you always use the same options in which case they can ## be set up from an rc file with the $lpr variable. ## - Removed the dviselect stuff. If I ever get time (or money :-) ) ## I might put it back in if I find myself needing it or people ## express interest in it. ## - Made it possible to view dvi or postscript file automatically ## depending on if -ps option selected. ## - Made specification of dvi file viewer seperate for -pv and -pvc ## options. ##----------------------------------------------------------------------- ## default document processing programs. $latex = 'latex'; $bibtex = 'bibtex'; $slitex = 'slitex'; $makeindex = 'makeindex'; $dvips = 'dvips'; $dvips_landscape = 'dvips -tlandscape'; $dviselect = 'dviselect'; $ps_previewer = 'gv'; $ps_previewer_landscape = 'gv -swap'; $dvi_previewer = 'xdvi -s 4'; $dvi_previewer_landscape = 'xdvi -s 4 -paper a4r'; $dvi_cont_previewer = 'xtex'; $dvi_cont_previewer_landscape = 'xtex'; $lpr = 'lpr'; $tmpdir = '/usr/tmp'; $pscmd = 'ps -x'; # This works for SunOs. Solaris should just be 'ps' ## default flag settings. $bibtex_mode = 0; # is there a bibliography needing bibtexing? $index_mode = 0; # is there an index needing makeindex run? $landscape_mode = 0; # default to portrait mode $sleep_time = 2; # time to sleep b/w checks for file changes in -pvc mode $banner = 0; # Non-zero if we have a banner to insert $banner_scale = 220; # Original default scale $banner_intensity = 0.95; # Darkness of the banner message $banner_message = 'DRAFT'; # Original default message $dvi_filter = ''; # DVI filter command $ps_filter = ''; # Postscript filter command ## Read rc files. # Read system rc file. $rcfile = '/usr/local/lib/latexmk/LatexMk'; if ( -e $rcfile ) { # Read the system rc file do "$rcfile"; } # Read user rc file. $rcfile = "$ENV{'HOME'}/.latexmkrc"; if ( -e $rcfile ) { # Read the user rc file do "$rcfile"; } # Read rc file in current directory. $rcfile = "latexmkrc"; if ( -e $rcfile ) { # Read the user rc file do "$rcfile"; } ## Process command line args. @the_file_list = ( ); while ($_ = $ARGV[0]) { shift; if (/^-c$/) { $cleanup_mode = 1; } elsif (/^-C$/) { $cleanup_mode = 1; $cleanup_full_mode = 1; } elsif (/^-d$/) { $banner = 1; } elsif (/^-f$/) { $force_mode = 1; } elsif (/^-F$/) { $force_include_mode = 1; } elsif (/^-g$/) { $go_mode = 1; } elsif (/^-h$/) { &print_help; } elsif (/^-i$/) { $generate_and_save_includes = 1; } elsif (/^-I$/) { $force_generate_and_save_includes = 1; } elsif (/^-l$/) { $landscape_mode = 1; } elsif (/^-pvc$/) { $preview_continuous_mode = 1; } elsif (/^-pv$/) { $preview_mode = 1; } elsif (/^-ps$/) { $postscript_mode = 1; } elsif (/^-p$/) { $printout_mode = 1; } elsif (/^-s$/) { $slide_mode = 1; } elsif (/^-v$/) { warn "\nLatexMk $version_num\n"; exit; } elsif (/^-r$/) { if ( $ARGV[0] eq '' ) { warn "LatexMk: No RC file specified\n"; &print_help; } if ( -e $ARGV[0] ) { do "$ARGV[0]"; } else { die "LatexMk: RC file [$ARGV[0]] does not exist\n"; } shift; } elsif (/^-bm$/) { if ( $ARGV[0] eq '' ) { warn "LatexMk: No message specified\n"; &print_help; } $banner = 1; $banner_message = $ARGV[0]; shift; } elsif (/^-bi$/) { if ( $ARGV[0] eq '' ) { warn "LatexMk: No intensity specified\n"; &print_help; } $banner_intensity = $ARGV[0]; shift; } elsif (/^-bs$/) { if ( $ARGV[0] eq '' ) { warn "LatexMk: No scale specified\n"; &print_help; } $banner_scale = $ARGV[0]; shift; } elsif (/^-dF$/) { if ( $ARGV[0] eq '' ) { warn "LatexMk: No dvi filter specified\n"; &print_help; } $dvi_filter = $ARGV[0]; shift; } elsif (/^-pF$/) { if ( $ARGV[0] eq '' ) { warn "LatexMk: No ps filter specified\n"; &print_help; } $ps_filter = $ARGV[0]; shift; } elsif (/^-/) { warn "LatexMk: $_ bad option\n"; } else { @the_file_list = ( @the_file_list, $_ ); } } @ARGV = @the_file_list; # Check we haven't selected mutually exclusive modes. # Note that -c overides all other options, but doesn't cause # an error if they are selected. if (($printout_mode && ( $preview_mode || $preview_continuous_mode )) || ( $preview_mode && $preview_continuous_mode )) { warn "LatexMk: Conflicting options (-p, -pv, -pvc) selected\n"; &print_help; } # If seleced a previewer mode, make sure one and only one filename was specified if ($preview_mode || $preview_continuous_mode) { if (($ARGV[0] eq '') || ($ARGV[1] ne '')) { warn"LatexMk: Need to specify one and only one filename for previewer mode\n"; &print_help; } } # If no files specified, try and find some if ($ARGV[0] eq '') { @ARGV=<*.tex $texfile_search>; } # If still no files, exit. if ($ARGV[0] eq '') { warn "LatexMk: No file name specified\n"; &print_help; ## print_help function exits. } # If landscape mode, change modes if ( $landscape_mode ) { $dvips = $dvips_landscape; $dvi_previewer = $dvi_previewer_landscape; $dvi_cont_previewer = $dvi_cont_previewer_landscape; $ps_previewer = $ps_previewer_landscape; } # Process for each file. foreach $filename ( @ARGV ) { ## remove extention from filename if was given. if ( &find_basename($filename, $root_filename, $texfile_name) ) { die "LatexMk: Could not find file [$texfile_name]\n"; } if ($cleanup_mode) { ## Do clean if necessary &cleanup; if ($cleanup_full_mode) { &cleanup_full; } } else { ## Make file. ## ## Find includes. $includes = ''; $read_depend = 0; # True to read depend file, false to generate it. $depfile = "$root_filename.dep"; ## Figure out if we read the dependency file or generate a new one. if ( ! $force_generate_and_save_includes ) { if ( $generate_and_save_includes ) { if ( -e $depfile ) { # Compare timestamp of dependency file and root tex file. $dep_mtime = &get_mtime("$depfile"); $tex_mtime = &get_mtime("$texfile_name"); if ( $tex_mtime < $dep_mtime ) { $read_depend = 1; } } } elsif ( -e $depfile ) # If dependency file already exists. { $read_depend = 1; } } if ( $read_depend ) { # Read the dependency file open(depfile) || die "LatexMk: Couldn't open dependency file [$root_filename.dep]\n"; while() { eval; } close(depfile); } else { # Generate dependency file. # get search paths for includes. $psfigsearchpath = '.'; $TEXINPUTS = $ENV{'TEXINPUTS'}; if (!$TEXINPUTS) { $TEXINPUTS = '.'; } $BIBINPUTS = $ENV{'BIBINPUTS'}; if (!$BIBINPUTS) { $BIBINPUTS = $TEXINPUTS; } &scan_for_includes("$texfile_name"); &update_depend_file; } ## put root tex file into list of includes. $includes .= " $texfile_name"; ## before munging, save existing .aux file. ## - if latex bombs, kill .aux, restore this backup to get back most ## useful bib/ref info. system("cp -p $root_filename.aux $root_filename.aux.bak > /dev/null 2>&1"); #************************************************************ &make_dependents("$includes"); if ($slide_mode) { &make_slitex_dvi; } else { &make_latex_dvi; } &make_dvi_filtered; &make_preview_continous; &make_postscript; &make_preview; &make_printout; } } #************************************************************ #### Subroutines #************************************************************ sub make_latex_dvi { $changed_dvi = 0 ; # flag if anything changed. ## get initial last modified times. $tex_mtime = &get_latest_mtime($includes); $aux_mtime = &get_mtime("$root_filename.aux"); $bbl_mtime = &get_mtime("$root_filename.bbl"); $ilg_mtime = &get_mtime("$root_filename.ilg"); $ind_mtime = &get_mtime("$root_filename.ind"); ## - if no dvi file, or .aux older than tex file or bib file, run latex. if ( $go_mode || !(-e "$root_filename.dvi") || ($aux_mtime < $tex_mtime) || ($aux_mtime < $bbl_mtime) || ($aux_mtime < $ilg_mtime) || ($aux_mtime < $ind_mtime) || !(-e "$root_filename.aux")) { warn "------------\nRunning first $latex [$texfile_name]\n------------\n"; &backup_toc; $return = system("$latex $texfile_name"); $changed_dvi = 1; if (!$force_mode && $return) { &exit_msg('Latex encountered an error',1); } if ($index_mode) { warn "------------\nRunning $makeindex [$root_filename]\n------------\n"; $return = system("$makeindex $root_filename"); if (!$force_mode && $return) { &exit_msg('Makeindex encountered an error'); } $ilg_mtime = &get_mtime("$root_filename.ilg"); $ind_mtime = &get_mtime("$root_filename.ind"); } } $bib_mtime = &get_latest_mtime($bib_files); ## if no .bbl or .bib changed since last bibtex run, run bibtex. if ($bibtex_mode && (&check_for_bad_citation || !(-e "$root_filename.bbl") || ($bbl_mtime < $bib_mtime))) { warn "------------\nRunning $bibtex [$root_filename]\n------------\n"; $return = system("$bibtex $root_filename"); $bbl_mtime = &get_mtime("$root_filename.bbl"); } if ($bibtex_mode && &check_for_bibtex_errors) { if (!$force_mode) { # touch a .bib file so that will rerun bibtex to fix errors. @split_bib_files = split(' ',$bib_files); system("touch $split_bib_files[0]"); &exit_msg('Bibtex reported an error'); } } ## now, if need to, rerun latex up to twice to generate valid .dvi ## w/ citations resolved. $dvi_mtime = &get_mtime("$root_filename.dvi"); if ( ($dvi_mtime <= $bbl_mtime) || &check_for_reference_change || ($dvi_mtime <= $ilg_mtime) || ($dvi_mtime <= $ind_mtime) || (&check_toc)) { warn "------------\nRunning second $latex [$texfile_name]\n------------\n"; &backup_toc; $return = system("$latex $texfile_name"); $changed_dvi = 1; } if (!$force_mode && $return) { &exit_msg('Latex encountered an error',1); } if (&check_for_reference_change || &check_toc) { warn "------------\nRunning third $latex [$texfile_name]\n------------\n"; &backup_toc; $return = system("$latex $texfile_name"); $changed_dvi = 1; } if (!$force_mode && &check_for_bad_reference) { &exit_msg('Latex could not resolve all references'); } if (!$force_mode && &check_for_bad_citation) { &exit_msg('Latex could not resolve all citations or labels'); } return(1); } #************************************************************ sub make_slitex_dvi { $tex_mtime = &get_latest_mtime($includes); $dvi_mtime = &get_mtime("$root_filename.dvi"); if ( $go_mode || !(-e "$root_filename.dvi") || ($dvi_mtime < $tex_mtime) ) { warn "------------\nRunning $slitex [$texfile_name]\n------------\n"; $return = system("$slitex $texfile_name"); } if (!$force_mode && $return) { &exit_msg('Slitex encountered an error'); } } #************************************************************ sub make_dvi_filtered { return if ( length($dvi_filter) == 0 ); warn "------------\nRunning $dvi_filter [$root_filename]\n------------\n"; system("$dvi_filter < $root_filename.dvi > $root_filename.dviF"); } #************************************************************ # Finds the basename of the root file # Arguments: # 1 - Filename to breakdown # 2 - Where to place base file # 3 - Where to place tex file # Returns non-zero if tex file exists sub find_basename { local($base_name,$ch,$ext,$base_path); $ch = ''; $ext = ''; $base_path = $_[0]; while (( $ch ne '.' ) && ( $ch ne '/' ) && ( $base_path ne '' )) { $ext = $ch . $ext; $ch = chop $base_path; } if (( $ch eq '.' ) && ( $base_path ne '' )) { ## Found extention stuff $_[2] = $base_path . '.' . $ext; } else { ## No extention $base_path = $_[0]; $_[2] = $_[0]; } $ch = ''; $base_name = ''; while (( $ch ne '/' ) && ( $base_path ne '' )) { $ch = chop $base_path; if ( $ch ne '/' ) { $base_name = $ch . $base_name; } } $_[1] = $base_name; if ( ! -e $_[2] ) { ## File does not exist, try adding a ".tex" extention if ( -e "$_[2].tex" ) { # Adding the extention works, so put the extention back on the # basename $_[1] = $_[2]; $_[2] .= '.tex'; return(0); } return(1); } return(0); } #************************************************************ sub make_dependents { local($file,$dep,$base_name,$ch,$toext,$fromext,$proptoext,$must,$func_name,$return); foreach $file (split(' ',$_[0])) { $ch = ''; $toext = ''; $base_name = $file; while (( $ch ne '.' ) && ( $ch ne '/' ) && ( $base_name ne '' )) { $toext = $ch . $toext; $ch = chop $base_name; } if (( $ch eq '.' ) && ( $base_name ne '' )) { #Extracted proper extention. foreach $dep ( @cus_dep_list ) { ($fromext,$proptoext,$must,$func_name) = split(' ',$dep); if ( $toext eq $proptoext ) { # Found match if ( -e "$base_name.$fromext" ) { # From file exists, now check if it is newer if (( ! (-e "$base_name.$toext" )) || ( &get_mtime("$base_name.$toext") < &get_mtime("$base_name.$fromext") )) { warn "------------\nRunning $func_name [$base_name]\n------------\n"; $return = &$func_name($base_name); if ( !$force_mode && $return ) { &exit_msg("$func_name encountered an error"); } } } else { if ( !$force_mode && ( $must != 0 )) { &exit_msg("File '$base_name.$fromext' does not exist to build '$base_name.$toext'\n"); } } } } } } } #************************************************************ sub make_printout { return if (!$printout_mode); local ($ext); if ( length($ps_filter) == 0 ) { $ext = '.ps'; } else { $ext = '.psF'; } warn "------------\nPrinting using $lpr [$root_filename]\n------------\n"; system("$lpr $root_filename$ext"); } #************************************************************ sub make_postscript { if ( ! $banner ) { return if (!$postscript_mode && !$printout_mode); } local ($tmpfile,$header,$dvi_file); # Figure out the dvi file name if ( length($dvi_filter) == 0 ) { $dvi_file = "$root_filename.dvi"; } else { $dvi_file = "$root_filename.dviF"; } # Do banner stuff if ( $banner ) { ## Make temp banner file local(*INFILE,*OUTFILE,$count); $tmpfile = "$tmpdir/latexmk.$$"; $count = 0; while ( -e $tmpfile ) { $count = $count + 1; $tmpfile = "$tmpdir/latexmk.$$.$count"; } if ( ! open(OUTFILE, ">$tmpfile") ) { die "LatexMk: Could not open temporary file [$tmpfile]\n"; } print OUTFILE "userdict begin /bop-hook{gsave 200 30 translate\n"; print OUTFILE "65 rotate /Times-Roman findfont $banner_scale scalefont setfont\n"; print OUTFILE "0 0 moveto $banner_intensity setgray ($banner_message) show grestore}def end\n"; close(OUTFILE); $header = "-h $tmpfile"; } else { $header = ''; } $ps_mtime = &get_mtime("$root_filename.ps"); $dvi_mtime = &get_mtime("$dvi_file"); if (( $ps_mtime < $dvi_mtime ) || $banner ) { warn "------------\nRunning $dvips [$root_filename]\n------------\n"; system("$dvips $header $dvi_file -o $root_filename.ps"); } if ( $banner ) { unlink("$tmpfile"); } ## Do we have postscript filtering? if ( length($ps_filter) != 0 ) { warn "------------\nRunning $ps_filter [$root_filename]\n------------\n"; system("$ps_filter < $root_filename.ps > $root_filename.psF"); } } #************************************************************ # run appropriate previewer. sub make_preview { return if (!$preview_mode); $viewer = $dvi_previewer; $ext = '.dvi'; if ($postscript_mode) { $viewer = $ps_previewer; $ext = '.ps'; if ( length($ps_filter) != 0 ) { $ext = '.psF'; } } else { if ( length($dvi_filter) != 0 ) { $ext = '.dviF'; } } warn "------------\nStarting previewer: $viewer $root_filename$ext\n------------\n"; exec("$viewer $root_filename$ext"); warn "LatexMk: Could not start previewer [$viewer $root_filename$ext]"; exit; } sub backup_toc { if ( -e "$root_filename.toc" ) { system( "cp -p $root_filename.toc $root_filename.toc.bak > /dev/null 2>&1"); } } #************************************************************ # Compare the toc file with the backup. If they differ then # return non-zero. sub check_toc { local($return); if ( -e "$root_filename.toc" ) { if ( -e "$root_filename.toc.bak" ) { $return = system( "diff $root_filename.toc.bak $root_filename.toc > /dev/null 2>&1"); } else { $return = 1; } } else { $return = 0; } return($return); } #************************************************************ # arg1 = name sub find_process_id { local(@command, $lookingfor); @ps_output = `$pscmd`; shift(@ps_output); # Discard the header line from ps foreach (@ps_output) { # s/\s+/ /g; #Compress multiple spaces. ($pid,$tt,$stat,$time,@command) = split(' ',$_); if ("@command" eq "$_[0]") { return($pid); } } return(0); } #************************************************************ sub make_preview_continous { return if (!$preview_continuous_mode); # local ($dvi_file); # get the value of SIGUSR1, defaults to SPARC value. if (!(do 'signal.ph')) { eval 'sub SIGUSR1 {30;}'; } # Figure out the dvi file name if ( length($dvi_filter) == 0 ) { $dvi_file = "$root_filename.dvi"; } else { $dvi_file = "$root_filename.dviF"; } # note, we only launch a previewer if one isnt already running... # otherwise we'll send reopen signals to the existing previewer. if ($previewer_pid = &find_process_id("$dvi_cont_previewer $dvi_file")) { warn "------------\nReattached to existing previewer, pid=$pid\n------------\n"; kill &SIGUSR1,$previewer_pid; } else { if (!($previewer_pid = fork)) { # in forked child, close off from parent so previewer runs on # after parent 'latexmk' dies. setpgrp($$,0); warn "------------\n$dvi_cont_previewer $dvi_file\n------------\n"; exec("$dvi_cont_previewer $dvi_file"); warn "LatexMk: Failed to exec file viewer\n"; exit; } } # Loop forever, rebuilding .dvi as necessary. while ( 1 ) { sleep($sleep_time); if ($slide_mode) { &make_slitex_dvi; } else { &make_latex_dvi; } if ($changed_dvi) { kill &SIGUSR1,$previewer_pid; } } } #************************************************************ sub get_mtime { local ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime, $ctime,$blksize,$blocks) = stat($_[0]); $mtime; } #************************************************************ sub check_for_reference_change { local($logfile) = "$root_filename.log"; open(logfile) || die "LatexMk: Could not open log file to check for reference check\n"; while() { if (/Rerun to get/) { return 1; } } 0; } #************************************************************ sub check_for_bad_reference { local($logfile) = "$root_filename.log"; open(logfile) || die "LatexMk: Could not open log file to check for bad reference\n"; while () { if (/LaTeX Warning: Reference[^\001]*undefined./) { return 1; } } 0; } #************************************************************ # check for citation which latex couldnt resolve. sub check_for_bad_citation { local($logfile) = "$root_filename.log"; open(logfile) || die "LatexMk: Could not open log file to check for bad citation\n"; while () { if (/LaTeX Warning: Citation[^\001]*undefined./) { return 1; } } 0; } #************************************************************ # check for citation which bibtex didnt find. sub check_for_bibtex_errors { local($logfile) = "$root_filename.blg"; open(logfile) || die "LatexMk: Could not open bibtex log file error check\n"; while () { if (/Warning--/) { return 1; } if (/error message/) { return 1; } } 0; } #************************************************************ # cleanup # - erases all generated files, exits w/ no other processing. sub cleanup { unlink("$root_filename.aux"); unlink("$root_filename.aux.bak"); unlink("$root_filename.bbl"); unlink("$root_filename.blg"); unlink("$root_filename.log"); unlink("$root_filename.ind"); unlink("$root_filename.idx"); unlink("$root_filename.ilg"); unlink("$root_filename.toc"); unlink("$root_filename.toc.bak"); unlink("$root_filename.lof"); unlink("$root_filename.lot"); unlink("$root_filename.dep"); unlink("texput.log"); unlink("texput.aux"); # .aux files are also made for \include'd files foreach $include (split(' ',$includes)) { $include =~ s/\.[^\.]*$/.aux/; unlink($include); } # Do any other file extentions specified foreach $ext (split(' ',$clean_ext)) { unlink("$root_filename.$ext"); } } #************************************************************ sub cleanup_full { unlink("$root_filename.dvi"); unlink("$root_filename.ps"); unlink("$root_filename.dviF"); unlink("$root_filename.psF"); unlink("texput.dvi"); # Do any other file extentions specified foreach $ext (split(' ',$clean_full_ext)) { unlink("$root_filename.$ext"); } } #************************************************************ sub print_help { warn "LatexMk $version_num: Automatic LaTeX document generation routine\n\n"; warn "Usage: latexmk [latexmk_options] [filename ...]\n\n"; warn " LatexMk_options:\n"; warn " -bm - Print message across the page when converting to postscript\n"; warn " -bi - Set contrast or intensity of banner\n"; warn " -bs - Set scale for banner\n"; warn " -c - clean up (remove) all nonessential files\n"; warn " -C - clean up (remove) all nonessential files\n"; warn " including dvi and postscript files\n"; warn " -d - Print `DRAFT' across the page when converting to postscript\n"; warn " -dF - Filter to apply to dvi file\n"; warn " -f - force continued processing past errors\n"; warn " -F - Ignore non-existent files when making dependencies\n"; warn " -g - process regardless of file timestamps\n"; warn " -h - print help\n"; warn " -i - rescan for includes if depenancy file older than tex file\n"; warn " -I - force rescan for includes\n"; warn " -l - force landscape mode\n"; warn " -ps - generate postscript\n"; warn " -pF - Filter to apply to postscript file\n"; warn " -p - print document after generating postscript\n"; warn " -pv - preview document\n"; warn " -pvc - preview document and continuously update\n"; warn " -r - Read custom RC file\n"; warn " -s - set slide mode\n"; warn " -v - display program version\n"; warn " filename = the root filename of LaTeX document\n"; warn "\n -p, -pv and -pvc are mutually exclusive\n"; warn " -h, -c and -C overides all other options.\n"; warn " -pv and -pvc require one and only one filename specified\n"; warn " Contents of RC file specified by -r overrides options specified\n"; warn " before the -r option on the command line\n"; exit; } #************************************************************ # - stats all files listed in first arg, returns most recent modify time of all. sub get_latest_mtime { local($return_mtime) = 0; foreach $include (split(' ',$_[0])) { $include_mtime = &get_mtime($include); if ($include_mtime > $return_mtime) { $return_mtime = $include_mtime; } } $return_mtime; } #************************************************************ # - looks recursively for included & inputted and psfig'd files and puts # them into $includes. # - note only primitive comment removal: cannot deal with escaped %s, but then, # when would they occur in any line important to LatexMk?? sub scan_for_includes { warn "------------\nGenerating Dependency File [$root_filename]\n------------\n"; &scan_for_includes_($_[0]); } sub scan_for_includes_ { local(*FILE,$orig_filename,$full_filename1,$full_filename2); if (!open(FILE,$_[0])) { warn "LatexMk: could not open input file [$_[0]]\n"; return; } while() { ($_,$junk) = split('%',$_); # primitive comment removal. if (/\\include[{\s]+([^\001\040\011}]*)[\s}]/) { $full_filename = $1; $orig_filename = $full_filename; $full_filename1 = &find_file($full_filename,$TEXINPUTS,'1'); if (( $full_filename1 eq '' ) || ( ! -e $full_filename1 )) { $full_filename2 = &find_file("$full_filename.tex",$TEXINPUTS,'1'); if (( $full_filename2 ne '' ) && ( -e $full_filename2 )) { $full_filename = $full_filename2; } else { $full_filename = $full_filename1; } } else { $full_filename = $full_filename1; } if ($full_filename) { $includes .= "$full_filename "; if ( -e $full_filename ) { warn " Found include for file [$full_filename]\n"; &scan_for_includes_($full_filename); } else { if ( $orig_filename =~ /^\// ) { warn "LatexMk: Could not find file [$orig_filename]\n"; } else { warn "LatexMk: Could not find file [$orig_filename] in path [$TEXINPUTS]\n"; warn " assuming in current directory ($full_filename)\n"; } } } else { if ( ! $force_include_mode ) { if ( $orig_filename =~ /^\// ) { die "LatexMk: Could not find file [$orig_filename]\n"; } else { die "LatexMk: Could not find file [$orig_filename] in path [$TEXINPUTS]\n"; } } } } elsif (/\\input[{\s]+([^\001\040\011}]*)[\s}]/) { $full_filename = $1; $orig_filename = $full_filename; $full_filename1 = &find_file($full_filename,$TEXINPUTS,'1'); if (( $full_filename1 eq '' ) || ( ! -e $full_filename1 )) { $full_filename2 = &find_file("$full_filename.tex",$TEXINPUTS,'1'); if (( $full_filename2 ne '' ) && ( -e $full_filename2 )) { $full_filename = $full_filename2; } else { $full_filename = $full_filename1; } } else { $full_filename = $full_filename1; } if ($full_filename) { $includes .= "$full_filename "; warn "added '$full_filename'\n"; if ( -e $full_filename ) { warn " Found input for file [$full_filename]\n"; &scan_for_includes_($full_filename); } else { if ( $orig_filename =~ /^\// ) { warn "LatexMk: Could not find file [$orig_filename]\n"; } else { warn "LatexMk: Could not find file [$orig_filename] in path [$TEXINPUTS]\n"; warn " assuming in current directory ($full_filename)\n"; } } } else { if ( ! $force_include_mode ) { if ( $orig_filename =~ /^\// ) { die "LatexMk: Could not find file [$orig_filename]\n"; } else { die "LatexMk: Could not find file [$orig_filename] in path [$TEXINPUTS]\n"; } } } } elsif (/\\blackandwhite{([^\001\040\011}]*)}/ || /\\colorslides{([^\001}]*)}/) { $slide_mode = 1; $full_filename = $1; if ($1 =~ m/\./) { $full_filename = &find_file($full_filename,$TEXINPUTS); } else { $full_filename = &find_file("$full_filename.tex",$TEXINPUTS); } if ($full_filename) { $includes .= "$full_filename "; if ( -e $full_filename ) { warn " Found slide input for file [$full_filename]\n"; &scan_for_includes_($full_filename); } } } elsif (/\\psfig{file=([^,}]+)/ || /\\psfig{figure=([^,}]+)/) { $full_filename = &find_file($1,$psfigsearchpath); if ($full_filename) { $includes .= "$full_filename "; if ( -e $full_filename ) { warn " Found psfig for file [$full_filename]\n"; } } } elsif ( /\\epsfbox{([^}]+)}/ || /\\epsfbox\[[^\]]*\]{([^}]+)}/ || /\\epsffile{([^}]+)}/ || /\\epsffile\[[^\]]*\]{([^}]+)}/ || /\\epsfig{file=([^,}]+)/ || /\\epsfig{figure=([^,}]+)/ ) { $full_filename = &find_file($1,$TEXINPUTS); if ($full_filename) { $includes .= "$full_filename "; if ( -e $full_filename ) { warn " Found epsf for file [$full_filename]\n"; } } } elsif (/\\documentstyle[^\000]+landscape/) { warn " Detected landscape mode\n"; $landscape_mode = 1; } elsif (/\\bibliography{([^}]+)}/) { $bib_files = $1; $bib_files =~ tr/,/ /; $bib_files = &find_file_list($bib_files,'.bib',$BIBINPUTS); warn " Found bibliography files [$bib_files]\n"; $bibtex_mode = 1; } elsif (/\\psfigsearchpath{([^}]+)}/) { $psfigsearchpath = $1; } elsif (/\\makeindex/) { $index_mode = 1; warn " Detected index mode\n"; } } } #************************************************************ # given filename and path, return full name of file, or die if none found. # when force_include_mode=1, only warn if an include file was not # found, and return 0 (PvdS). sub find_file { if ( $_[0] =~ /^\// ) { if ($force_include_mode) { if ( $_[2] eq '' ) { warn "LatexMk: Could not find file [$_[0]]\n"; } return("$_[0]"); } else { if (-e $_[0]) { return("$_[0]"); } die "LatexMk: Could not find file [$_[0]]\n"; } } foreach $dir (split(':',$_[1])) { if (-e "$dir/$_[0]") { return("$dir/$_[0]"); } } if ($force_include_mode) { if ( $_[2] eq '' ) { warn "LatexMk: Could not find file [$_[0]] in path [$_[1]]\n"; warn " assuming in current directory (./$_[0])\n"; } return("./$_[0]"); } else { if ( $_[2] ne '' ) { return(''); } die "LatexMk: Could not find file [$_[0]] in path [$_[1]]\n"; } } #************************************************************ # given space sep list of filenames, a file suffix, and a path, return list of # full names of files, or die w/ warning if not found. # When $force_include_mode=1, don't die and don't append the file names (PvdS). sub find_file_list { local($tmp_file,$return_list) = ''; foreach $file (split(' ',$_[0])) { $tmp_file = &find_file("$file$_[1]",$_[2]); if ($tmp_file) { $return_list .= $tmp_file . " "; } } $return_list; } #************************************************************ sub exit_msg { warn "\n------------\n"; warn "LatexMk: $_[0].\n"; warn "-- Use the -f option to force complete processing.\n"; if ($_[1]) { warn "LatexMk: restoring last $root_filename.aux file\n"; system("cp -p $root_filename.aux.bak $root_filename.aux > /dev/null 2>&1"); } exit; } #************************************************************ sub update_depend_file { warn "Writing dependency file [$root_filename.dep]\n"; $rcfile = ">$root_filename.dep"; open(rcfile) || die "LatexMk: Unable to open dependency file [$rcfile] for updating\n"; print rcfile '$includes = \'' . "$includes';\n"; print rcfile '$bib_files = \'' . "$bib_files';\n"; if ($slide_mode) { print rcfile '$slide_mode = 1;' . "\n"; } if ($bibtex_mode) { print rcfile '$bibtex_mode = 1;' . "\n"; } if ($index_mode) { print rcfile '$index_mode = 1;' . "\n"; } close rcfile; } ifeffit-1.2.11d/doc/scripts/Fixsbox0000755000175000017500000000201710771740460016162 0ustar segresegre#!/usr/bin/perl -w # fix '\\begin{VerbSBox} ' construct for html files use Getopt::Std; getopts('d:'); $direc = ($opt_d) ? ($opt_d) : "html"; $htmldir = 1; if (($direc eq "dvi") or ($direc eq "pdf")) { $htmldir = 0;} foreach $file (@ARGV) { $savefile = $file.".bak"; rename ($file,$savefile) or die "couldn't rename $file\n"; open(IN, "<$savefile") or die "couldn't open $savefile\n"; open(OUT, ">$file") or die "couldn't open $file\n"; my ($x, $mode) = (0,0); my @vtext; while () { chomp; if (/%VerbSBox%/) { if ($mode == 0) { $x = ; $mode = 1; $tag = "\\begin{VerbSBox}"; if ($htmldir) { $tag = "\\begin{Verbatim}" }; print OUT "%VerbSBox%\n$tag\n"; @vtext = (); } elsif ($mode == 1) { pop @vtext; foreach $i (@vtext) { print OUT "$i\n";} $tag = "\\end{VerbSBox}"; if ($htmldir) { $tag = "\\end{Verbatim}" }; print OUT "$tag\n%VerbSBox%\n"; $mode = 0; } } elsif ($mode == 1) { push @vtext, $_; } else { print OUT "$_\n"; } } } ifeffit-1.2.11d/doc/scripts/pstoimg0000755000175000017500000012361010771740460016225 0ustar segresegre#! /usr/bin/perl -w ############################################################################## # $Id: pstoimg,v 1.1 2001/10/05 13:50:21 newville Exp $ # # pstoimg # # Accompanies LaTeX2HTML # # Script to convert an arbitrary PostScript image to a cropped GIF or PNG # image suitable for incorporation into HTML documents as inlined images # to be viewed with WWW browsers. # # This software is provided as is without any guarantee. # ############################################################################## # # $Log: pstoimg,v $ # Revision 1.1 2001/10/05 13:50:21 newville # *** empty log message *** # # Revision 1.13 2001/03/27 09:27:38 RRM # -- inserted missing '$' for $edge . # # Revision 1.12 2001/03/25 02:05:14 RRM # -- implement the temporary hack to pnmcrop, using -black to help detect # the correct color for cropping-bars; only workd with black bars. # A complete fix will be available with Netpbm v9.12 . # # Revision 1.11 1999/10/25 21:18:22 MRO # # -- added more configure options (Jens' suggestions) # -- fixed bug in regexp range reported by Achim Haertel # -- fixed old references in documentation (related to mail list/archive) # # Revision 1.10 1999/10/06 22:04:13 MRO # # -- texexpand: latex2html calls texexpand with the -out option instead of # output redirection: this is safer on non-UNIX platforms # -- pstoimg: now there's no default cropping (useful for standalone # conversions). latex2html was changes appropriately # -- minor cleanups in latex2html script and documentation # # Revision 1.9 1999/09/14 22:02:02 MRO # # -- numerous cleanups, no new features # # Revision 1.8 1999/07/19 09:51:00 RRM # -- added -aaliastext switch, for easier way to specify anti-aliased # font characters, without also anti-aliasing other graphics objects. # # Revision 1.7 1999/06/24 07:28:59 MRO # # # -- removed L2HMODULE # -- fixed processing of -info switch # -- changed option order for dvips on win32 (thanks JCL) # -- bumped version to 99.2a8 # # Revision 1.6 1999/06/06 14:24:50 MRO # # # -- many cleanups wrt. to TeXlive # -- changed $* to /m as far as possible. $* is deprecated in perl5, all # occurrences should be removed. # # Revision 1.5 1999/06/04 20:14:25 MRO # # # -- Reworked option parsing completely. Should behave much the same as before, # options with -no_* work just like before. # -- Changed $NOFORK to $CAN_FORK and inverted the logic. # -- Small debugging enhancement in pstoimg # # Revision 1.4 1999/06/04 15:30:15 MRO # # # -- fixed errors introduced by cleaning up TMP* # -- made pstoimg -quiet really quiet # -- pstoimg -debug now saves intermediate result files # -- several fixes for OS/2 # # Revision 1.3 1999/06/01 06:55:35 MRO # # # - fixed small bug in L2hos/* # - added some test_mode related output to latex2html # - improved documentation # - fixed small bug in pstoimg wrt. OS2 # # Revision 1.2 1999/05/17 21:30:59 MRO # # # -- make texexpand warning-free and start making it use strict # compliant # # Revision 1.1 1999/05/11 06:10:00 MRO # # # - merged config stuff, did first tries on Linux. Simple document # passes! More test required, have to ger rid of Warnings in texexpand # # Revision 1.18 1999/05/05 19:47:03 MRO # # # - many cosmetic changes # - final backup before merge # # Revision 1.17 1999/03/15 23:00:53 MRO # # # - moved L2hos modules to top level directory, so that no dir- # delimiter is necessary in the @INC-statement. # - changed strategy for "shave": Do not rely on STDERR redirection any # more (caused problems on at least Win32) # # Revision 1.16 1999/02/14 23:44:34 MRO # # # -- first attempt to fix Win32 problems # # Revision 1.15 1999/02/11 00:18:29 MRO # # # -- cleaned up warppers, TeXlive stuff and Makefile # # Revision 1.14 1999/02/10 01:37:12 MRO # # # -- changed os-dependency structure again - now neat OO modules are # used: portable, extensible, neat! # -- some minor cleanups and bugfixes # # Revision 1.13 1998/12/07 23:19:58 MRO # # # -- added POD documentation to pstoimg and did a general cleanup # -- some finetuning of config procedure and modules # # Revision 1.12 1998/10/31 14:13:05 MRO # -- changed OS-dependent module loading strategy: Modules are now located in # different (OS-specific) directories nut have the same name: Easier to # maintain and cleaner code # -- Cleaned up config procedure # -- Extended makefile functionality # # Revision 1.11 1998/08/09 20:45:20 MRO # -- some cleanup # # Revision 1.10 1998/06/14 14:10:38 latex2html # -- Started to implement TeXlive configuration and better OS specific # handling (Batch files) (Marek) # # Revision 1.9 1998/06/07 22:35:24 latex2html # -- included things I learned from the Win95 port to config procedure: # GS_LIB, Win32 module calls, directory separator stuff, ... (Marek) # # Revision 1.8 1998/06/01 12:57:56 latex2html # -- Cleanup and cosmetics. # # Revision 1.7 1998/05/14 22:27:37 latex2html # -- more work on config procedure (Makefile, GS_LIB) # -- tested pstoimg in 98.1 environment successfully on Linux # # Revision 1.6 1998/05/06 22:31:09 latex2html # -- Enhancements to the config procedure: Added a "generic" target # in the Makefile for the TeXlive CD (not perfect yet) # -- included test for kpsewhich / Web2C # -- included latest stuff from Override.pm into os_*.pm # # Revision 1.5 1998/04/28 22:18:11 latex2html # - The platform specific stuff is now kept in a separate perl module. This # does not introduce significant overhead and enhances maintainability. # # Revision 1.4 1998/03/19 23:38:06 latex2html # -- made pstoimg plug-in compatible with old one (touchwood!) # -- cleaned up, added some comments # -- inserted version information output # -- incorporated patches to make OS/2 run better (thanks Uli) # -- updated Makefile: make, make test, make install should work now # # Revision 1.3 1998/03/11 23:44:00 latex2html # -- cleaned up config.pl and reworked dvips checks # -- got pstoimg.pin up to par with the regular pstoimg # -- cosmetic changes # -- runs now under Win95 with Fabrice Popineau's Win32 tools (gs, TeX,...) # # Revision 1.2 1998/03/02 23:38:40 latex2html # Reworked configuration procedure substantially. Fixed some killing bugs. # Should now run on Win32, too. # The file prefs.pm contains user-configurable stuff for DOS platforms. # UNIX users can override the settings with the configure utility (preferred). # # Revision 1.1 1998/02/14 19:31:55 latex2html # Preliminary checkin of configuration procedure # # (end CVS log) ############################################################################### # This file has been automatically generated by build.pl from pstoimg.pin # Do not edit this file as your changes will be lost when reconfiguring. # If you want to supply patches, please apply them to pstoimg.pin and send # the diff relative to the original pstoimg.pin. Thank you. =head1 NAME pstoimg - Convert a PostScript file to a bitmap image using Ghostscript and the Netpbm utilities =cut use 5.003; use strict; #use diagnostics; use vars qw(*SAVEERR $LATEX2HTMLDIR $SCRIPT); # This variable points to the DIRECTORY where the latex2html files # can be found. use Getopt::Long; # see below for a description of the environment BEGIN { # print "scanning for l2hdir\n"; if($ENV{LATEX2HTMLDIR}) { $LATEX2HTMLDIR = $ENV{LATEX2HTMLDIR}; } else { $ENV{LATEX2HTMLDIR} = $LATEX2HTMLDIR = '/usr/local/lib/latex2html'; } if(-d $LATEX2HTMLDIR) { push(@INC,$LATEX2HTMLDIR); } else { die qq{Fatal: Directory "$LATEX2HTMLDIR" does not exist.\n}; } } use L2hos; # load OS-specific stuff my $RELEASE = '2K.1beta'; my ($VERSION) = q$Revision: 1.1 $ =~ /:\s*(\S+)/; $| = 1; # unbuffer STDOUT my $dd = L2hos->dd; # Directory delimiter my $prompt; ($prompt = $0) =~ s|^.*[/\\]||; # Configuration as determined by "configure" # # Ghostscript my $GS = '/usr/bin/gs'; my $GSDEVICE = 'pnmraw'; my $GSALIASDEVICE = 'ppmraw'; # Set path for ghostscript fonts and libraries $ENV{GS_LIB} = '/usr/share/ghostscript/5.50' unless(defined $ENV{GS_LIB}); # Supported format(s) my @IMAGE_TYPES = qw(png gif); # Netpbm my $PNMCROP = '/usr/bin/pnmcrop '; my $PNMBLACK = ' -black '; my $PPMQUANT = '/usr/bin/ppmquant'; my $PNMFLIP = '/usr/bin/pnmflip'; my $PNMCAT = '/usr/bin/pnmcat'; my $PNMFILE = '/usr/bin/pnmfile'; my $PBMMAKE = '/usr/bin/pbmmake'; # GIF support my $PPMTOGIF = '/usr/bin/ppmtogif'; # PNG support my $PNMTOPNG = '/usr/bin/pnmtopng'; # Temporary diskspace my $def_tmp = '/tmp'; # Space for temporary files # Some lengths used by dvips # MRO: Is this true for all runs of dvips? my $PAGE_HEIGHT = 841.889; # dvips page height, in pts. my $PAGE_WIDTH = 595.275; # dvips page width, in pts. my $PAGE_HMARGIN = 72; # dvips margin: 1 inch = 72pt my $PAGE_VMARGIN = 72; # dvips margin: 1 inch = 72pt # The color to be made transparent my $trans_color = '#ffffff'; ############################################################################### # Default settings # Environment overrides defaults, command line options override everything unless(@ARGV) { print_help(); exit 0; } =head1 SYNOPSIS B B<-help> | B<-version> B S<[ B<-antialias> ]> S<[ B<-aaliastext> ]> S<[ B<-center> I ]> S<[ B<-color> I ]> S<[ B<-crop> I ]> S<[ B<-debug> ]> S<[ B<-density> I]> S<[ B<-depth> I ]> S<[ B<-discard> ]> S<[ B<-flip> I ]> S<[ B<-geometry> IxI ]> S<[ B<-interlaced> ]> S<[ B<-margins> I,I ]> S<[ B<-multipage> ]> S<[ B<-out> I ]> S<[ B<-quiet> ]> S<[ B<-rightjustify> I ]> S<[ B<-scale> I ]> S<[ B<-tmp> I ]> S<[ B<-topjustify> [B]I ]> S<[ B<-transparent> ]> S<[ B<-type> I ]> S<[ B<-shoreup> I[B] ]> S<[ B<-white> ]> I S<[ I ... ]> =cut my %opt = (); unless(&GetOptions(\%opt, qw(-help -version -debug -discard -antialias -aaliastext -multipage -type=s -gif -png -out=s -depth=i -color=i -flip=s -density=i -scale=f -geometry=s -margins=s -crop=s -transparent -interlaced -rightjustify=i -center=i -topjustify=s -shoreup=s -tmp=s -white -quiet))) { print_usage("$prompt: Error: Invalid option(s) specified."); exit 1; } =head1 OPTIONS The command line options may be abbreviated to the shortest unique prefix. =over 4 =item B<-help> Show this help page and exit. =cut if($opt{help}) { print_help(); exit 0; } =item B<-version> Show the release and version of pstoimg and exit. =cut if($opt{version}) { print_version(); exit 0; } banner() unless($opt{quiet}); =item B<-antialias> Use Ghostscript's anti-aliasing feature for rendering "softer" images. This applies to lines and edges of polygonal and oval or circular shapes. Only valid if Ghostscipt 4.03 or higher is installed. =item B<-aaliastext> Use Ghostscript's anti-aliasing feature for "smoother" font characters, without the jagged edges. Similar to B<-antialias> for graphic components. Only valid if Ghostscipt 4.03 or higher is installed. =item B<-center> I Add the appropriate amount of whitespace to the left of the image so that the image appears to be centered in a total width of I pixels. =cut my $CENTER = 0; # No centering by default if($opt{center}) { $CENTER = $opt{center}; die <<"EOF" unless ($CENTER =~ /^\d+$/ && $CENTER > 0); $prompt: Error: Illegal width for -center specified: "$CENTER" Value must be a positive integer. EOF } =item B<-crop> I Crop the bitmap from the given directions. I may be a string of several cropping instructions, which are executed strictly in the given order. Possible values are: B (horizontal, i.e. crop top and bottom), B (vertical), B (top, bottom, left, right) and B (all directions). A special case is B: "shave" the image at the bottom, but only if a single line of whitespace exists. =cut my $EXTRA_CROP = ''; if($opt{crop}) { $EXTRA_CROP = lc($opt{crop}); die <<"EOF" unless ( $EXTRA_CROP =~ /^([vhtblras]+)$/i ); $prompt: Error: Illegal crop specified: "$EXTRA_CROP" Crop must be h, v, t, b, l, r, a, s or combination EOF } =item B<-debug> Turn on debugging output. This can get rather verbose. Any intermediate files generated are not removed to help debugging. =cut if($ENV{DEBUG}) { $opt{debug} = 1; } =item B<-density> I The density (resolution) in DPI in which to render the bitmap. The default is 72. =cut my $DENSITY = 72; if($opt{density}) { $DENSITY = $opt{density}; } elsif($ENV{DENSITY}) { $DENSITY = $ENV{DENSITY}; } die <<"EOF" unless $DENSITY =~ /^\d+$/; $prompt: Error: Illegal density specified: "$DENSITY" Density must be an integer value. Default is 72. EOF =item B<-depth> I or B<-color> I Specify the color depth of the bitmap. Legal values are 1 (black & white), 8 (256 colors) and 24 (true color). =cut unless($opt{depth}) { if($opt{color}) { $opt{depth} = $opt{color}; } elsif($ENV{DEPTH}) { $opt{depth} = $ENV{DEPTH}; } else { $opt{depth} = 8; } } die <<"EOF" unless $opt{depth} =~ /^(1|8|24)$/; $prompt: Error: Illegal color depth specified: "$opt{depth}" Depth must be either 1, 8 or 24. EOF =item B<-discard> Delete the input postscript file if the conversion was successful. Setting the environment DISCARD to a true value (as perl sees it) has the same effect. =cut if($ENV{DISCARD}) { $opt{discard} = 1; } =item B<-flip> I Flip all generated output bitmaps. The following codes are recognized: lr (flip left-right), tb (flip top-bottom), xy (flip bottom/left-top/right), r90 and ccw (rotate by 90 degrees counterclockwise), r270 and cw (rotate 90 degrees clockwise) and r180 (rotate 180 degrees). =cut if($opt{flip}) { $opt{flip} = lc($opt{flip}); die <<"EOF" unless $opt{flip} =~ /^(lr|tb|xy|r90|ccw|r270|cw|r180)$/; $prompt: Error: Illegal flip option specified: "$opt{flip}" Flip must be one of: lr tb xy r90 ccw r270 cw r180 EOF } =item B<-geometry> IxI Render only this "window" of the PostScript file. If given, this option can dramatically reduce memory requirements and speed up conversion. The geometry is automatically detected in case of EPS files (Encapsulated PostScript). =cut my $GEOMETRY = ''; if($opt{geometry}) { $GEOMETRY = $opt{geometry}; if($GEOMETRY =~ s/-//o ) { $EXTRA_CROP .= 'bl'; } die <<"EOF" unless ($GEOMETRY =~ /^\d+x\d+$/i); $prompt: Error: Illegal geometry specified: "$GEOMETRY" Geometry must be x EOF } =item B<-interlaced> Generate an interlaced bitmap. Interlaced images build up from coarse to fine as they are loaded. This option may not work on every installation and/or bitmap type, depending of the capabilities of external programs. =cut my $INTERLACE = 0; # Do not make interlaced images by default if($opt{interlaced}) { $INTERLACE=1; } =item B<-margins> I,I The offset of the rectangle in the postscript file that is going to be rendered from top/left. Can be used together with B<-geometry> to further reduce the size of the intermediate bitmap file generated by Ghostscript. =cut if($opt{margins}) { die <<"EOF" unless (($opt{margins} =~ /^(\d+),(\d+)$/)); $prompt: Error: Illegal margins specified: "$opt{margins}" Margins must be , EOF $PAGE_HMARGIN = $1; $PAGE_VMARGIN = $2; } =item B<-multipage> Process a multi-page PostScript file, i.e. create an individual bitmap for every page. The resulting files are numbered: The decimal number (starting with 1) is appended to the basename of the PostScript input file (or the basename of the filename specified with B<-out>), while keeping the extension. =item B<-out> I The file where to write the bitmap. If multiple PostScript files are supplied on the command line, this option is ignored. The bitmap type extension is appended automatically if I does not contain a dot. In connection with B<-multipage> I is extended by the page number as shown in this example: -outfile foo.gif --------E foo1.gif, foo2.gif, ... =cut if(!$opt{out} && $ENV{OUTFILE}) { $opt{out} = $ENV{OUTFILE}; } =item B<-quiet> Do not print anything except error messages. =item B<-rightjustify> I Add the appropriate amount of whitespace to the left of the image so that it appears to be aligned to the right in a total width of I pixels. =cut my $RIGHT_JUSTIFY = 0; # No right justifying by default if($opt{rightjustify}) { $RIGHT_JUSTIFY = $opt{rightjustify}; die <<"EOF" unless ($RIGHT_JUSTIFY =~ /^\d+$/ && $RIGHT_JUSTIFY > 0); $prompt: Error: Illegal width for -rightjustify specified: "$RIGHT_JUSTIFY" Value must be a positive integer. EOF } =item B<-scale> I Scale the image by I. Valid choices are any numbers greater than zero. Useful choices are numbers between 0.1 - 5. Large numbers may generate very large intermediate files and will take longer to process. If this option is omitted, the environment SCALE is considered. =cut unless($opt{scale}) { if($ENV{SCALE}) { $opt{scale} = $ENV{SCALE}; } else { $opt{scale} = 1; } } die <<"EOF" unless ($opt{scale} =~ /^[\d.e]+$/i && $opt{scale} > 0); $prompt: Error: Illegal scale specified: "$opt{scale}" Scale must be nonnegative float value. EOF =item B<-shoreup> I[B] Make height and width of the bitmap(s) an exact multiple of I. If I is followed by a "d", then half the extra vertical space is placed underneath. This option is useful, if you want to have "blown-up" images of high quality for print, but downscale them in HTML using CIMG WIDTH=x HEIGHT=yE>. If the actual image is is not an integer multiple of x,y then browsers tend to display distorted images. =cut my $SHORE_UP = 0; # No pixel alignment by default if($opt{shoreup}) { $SHORE_UP = $opt{shoreup}; die <<"EOF" unless $SHORE_UP =~ /^\d+d?$/i; $prompt: Error: Illegal shore-up specified: "$SHORE_UP" Value must be a positive integer, optionally followed by d EOF } =item B<-tmp> I Use I to store temporary files. Defaults to /tmp on this installation. This parameter can be set by the environment B or B, too. =cut my $TMP = ''; if($opt{tmp}) { $opt{tmp} =~ s|\Q$dd\E+$||; # remove trailing directory separator(s) if(-d $opt{tmp} && -r _ && -w _) { $TMP = $opt{tmp}; } else { print "$prompt: Warning: Cannot use $opt{tmp} as temporary directory.\n"; } } if(!$TMP && ($ENV{TMP} || $ENV{TEMP})) { ($opt{tmp} = $ENV{TMP} || $ENV{TEMP}) =~ s|\Q$dd\E+$||; if(-d $opt{tmp} && -r _ && -w _) { $TMP = $opt{tmp}; } else { print "$prompt: Warning: Cannot use $opt{tmp} as temporary directory.\n"; } } if(!$TMP && -d $def_tmp && -r _ && -w _) { $TMP = $def_tmp; } print "$prompt: Temporary directory is $TMP\n" if($opt{debug}); =item B<-topjustify> [B]I Add padding whitespace to the image so that it gets a defined height. If an integer value is given, it defines the total height. The whitespace is added at the bottom. If the number is preceded by "x", then this multiple of the image height is added as whitespace at the bottom. =cut my $TOP_JUSTIFY = 0; # No top justifying by default if($opt{topjustify}) { $TOP_JUSTIFY = $opt{topjustify}; die <<"EOF" unless $TOP_JUSTIFY =~ /^x?\d+[.]?\d*$/i; $prompt: Error: Illegal align specified: "$TOP_JUSTIFY" Value must be positive numeric, optionally preceded by x EOF } =item B<-transparent> Generate transparent bitmaps, i.e. the background color (white) is transparent if viewed with certain viewers (e.g. browsers). This option may not be available due to missing capabilities of external programs. =cut my $TRANSPARENT = 0; # Do not make make images transparent by default if($opt{transparent}) { $TRANSPARENT = 1; } =item B<-type> I Instruct pstoimg to render the bitmap in I format. Depending on the local installation, pstoimg is capable of generating either GIF or PNG bitmaps. This site features the following types: png gif If omitted, the first type in this list is taken. =cut if($opt{type}) { $opt{type} = lc($opt{type}); die <<"EOF" unless grep($_ eq $opt{type},@IMAGE_TYPES); $prompt: Error: This version of pstoimg does not support "$opt{type}" image format. EOF } else { ($opt{type}) = @IMAGE_TYPES; # default image type } # Support -gif and -png for a transition period if($opt{gif}) { print qq{$prompt: Warning: The -gif switch is deprecated. Use "-type gif" instead.\n}; if(grep($_ eq 'gif',@IMAGE_TYPES)) { $opt{type} = 'gif'; } else { die <<"EOF"; $prompt: Error: This version of pstoimg does not support "gif" format. EOF } } if($opt{png}) { print qq{$prompt: Warning: The -png switch is deprecated. Use "-type png" instead.\n}; if(grep($_ eq 'png',@IMAGE_TYPES)) { $opt{type} = 'png'; } else { die <<"EOF"; $prompt: Error: This version of pstoimg does not support "png" format. EOF } } =item B<-white> Remove TeX's page color information from the PostScript file before converting so that a white background is used. =back =cut # do some consistency checks on the options die <<"EOF" if($RIGHT_JUSTIFY && $CENTER); $prompt: Error: Conflicting options -center and -rightjustify. EOF # now setup some parameters # calculate dpi resolution from density and scale $DENSITY = int($opt{scale} * $DENSITY + .5) if($opt{scale} != 1); my $reduce_color = ''; if($opt{depth} == 1) { $reduce_color = "$PPMQUANT 2"; } elsif ($opt{depth} == 8) { $reduce_color = "$PPMQUANT 256"; } my $gs_aalias = ''; if($opt{antialias}) { $GSDEVICE = $GSALIASDEVICE; if($opt{depth} == 1) { $gs_aalias = '-dTextAlphaBits=4 '; $reduce_color = "$PPMQUANT -floyd 256"; } else { $gs_aalias = '-dTextAlphaBits=4 -dGraphicsAlphaBits=4 '; } } elsif ($opt{aaliastext}) { $GSDEVICE = $GSALIASDEVICE; $gs_aalias = '-dTextAlphaBits=4 '; $reduce_color = "$PPMQUANT -floyd 256"; } my $PAPERSIZE = $ENV{PAPERSIZE} || ''; # This rx matches float values in Bounding Box expressions my $Brx = '-?\d+(?:\.\d*|)'; ############################################################################## # Main program =head1 DESCRIPTION B iterates over the given input files and runs them through Ghostscipt. The resulting pnm (portable anymap files) are processed with different Netpbm tools (cropping, color mapping, aligning, ...) and finally converted into (currently) either GIF or PNG format. The bitmaps can now be included e.g. in WWW pages. The PostScript file is converted as is. If a valid bounding box is found (EPS format), then only this area is converted. The image is I cropped by default. =cut die "$prompt: Error: No input file(s) specified\n" unless(@ARGV); # suppress diagnostics messages if possible my $NULLFILE = '/dev/null'; open(STDERR, ">$NULLFILE") unless($opt{debug}); my $exit = 0; $opt{out} = '' if(@ARGV > 1); # disable -out if multiple ps files given my $psfile; foreach $psfile (@ARGV) { unless (-f $psfile) { print qq{$prompt: Error: Cannot find file "$psfile": $!\n}; exit 1; } $exit += (&pstoimg($psfile) ? 0 : 1); } =head1 RETURN VALUE =over 4 =item 0 if everything went all right =item x (x != 0) something went wrong. See the message output. =back =cut exit $exit ? 1 : 0; ############################################################################## # Subroutines sub pstoimg { my ($psfile) = @_; print "$prompt: Processing $psfile\n" unless($opt{quiet}); # remove a trailing suffix the same way a shell would do it my $base = $psfile; $base =~ s|[.][^.$dd$dd]*$||; my $outfile; if($opt{out}) { $outfile = $opt{out}; # append the type unless -outfile has a "." in it $outfile .= ".$opt{type}" unless($outfile =~ /[.]/); } else { $outfile = "$base.$opt{type}"; } # Invoke Ghostscript my $pnmdir = $TMP ? "$TMP$dd" : ".$dd"; my $pnmbase = "p$$"; # keep it short for dos my $pnmfile = $pnmdir . ($opt{multipage} ? "%d_${pnmbase}.pnm" : "$pnmbase.pnm"); ps2pnm($psfile,$pnmfile) || return 0; my $ok = 1; if (-f $pnmfile) { if(crop_scale_etc($pnmfile, $outfile)) { L2hos->Unlink($pnmfile) unless($opt{debug}); } else { return 0; } } elsif($opt{multipage}) { unless(opendir(DIR,$pnmdir)) { print qq{$prompt: Error: Could not open directory "$pnmdir": $!\n}; return 0; } my @list = grep(/^\d+_\w*\./,readdir(DIR)); closedir(DIR); if(@list) { my $i; foreach $i (@list) { my ($n) = $i =~ /^(\d+)_/; my $j = $outfile; $j =~ s|(\.[^/.]*)$|$n$1|; if(crop_scale_etc("$pnmdir$i", $j)) { L2hos->Unlink("$pnmdir$i") unless($opt{debug}); } else { $ok = 0; } } } else { goto not_found; } } else { not_found: print "$prompt: Error: Couldn't find pnm output of $psfile\n"; } L2hos->Unlink($psfile) if($opt{discard} && !$opt{debug}); $ok; } sub ps2pnm { my ($psfile,$pnmfile) = @_; my $gs_size = $PAPERSIZE ? "-sPAPERSIZE=$PAPERSIZE" : ''; my $gs_density = ($DENSITY != 72) ? "-r$DENSITY" : ''; my ($bbx, $bby, $bbw, $bbh) = (0,0,0,0); my $max_lines = 100; my ($epsf,$have_geometry) = (0,0); # Parse postscript file for information unless(open(PS, "<$psfile")) { print qq{$prompt: Error: Cannot read "$psfile": $!}; return 0; } $_ = ; # read one line if( /^%!.*EPSF/ ) { # we're in a EPSF file $epsf = 1; } if($GEOMETRY || $epsf) { while (defined ($_ = )) { # Look for bounding box comment # MRO: add support of precise bounding boxes if ($epsf && ( /^%+(?:HiRes|Exact)BoundingBox:\s+($Brx)\s+($Brx)\s+($Brx)\s+($Brx)/o || /^\%\%BoundingBox:\s+(-?\d+)\s+(-?\d+)\s+(-?\d+)\s+(-?\d+)/)) { $bbx = 0 - $1; $bby = 0 - $2; $bbw = $3 + $bbx; $bbh = $4 + $bby; if(($bbw > 0) && ($bbh > 0)) { # we have a valid bounding box print "$prompt: EPSF dimensions are ${bbw}x$bbh\n" if($opt{debug}); # this overrides the -geometry switch if($DENSITY) { # scale the output my $scale = $DENSITY / 72.0; $bbw *= $scale; $bbh *= $scale; } $bbw = int($bbw + 0.99); $bbh = int($bbh + 0.99); $GEOMETRY = "${bbw}x${bbh}"; $have_geometry = 1; last; } } # Look for page size information elsif($GEOMETRY && /TeXDict\s+begin\s+(\d+)\s+(\d+)\s+/) { $PAGE_WIDTH = int($1 / 65536 * 72 /72.27 +.5); $PAGE_HEIGHT = int($2 / 65536 * 72 /72.27 +.5); print "$prompt: Page dimensions are ${PAGE_WIDTH}x$PAGE_HEIGHT\n" if($opt{debug}); # we don't have to look further for EPSF stuff at this point last; } elsif(!$GEOMETRY && (/^\%\%EndComments/ || --$max_lines == 0)) { # abort at a certain point to avoid scanning huge ps files last; } } } close PS; if($GEOMETRY && !$have_geometry) { # RRM: overrides $PAPERSIZE # no geometry info found in the Postscript file $bbx = $PAGE_HMARGIN; $bby = $PAGE_HEIGHT - $PAGE_VMARGIN; unless($GEOMETRY =~ /\s*(\d+)x(\d+)/i) { print qq{$prompt: Illegal geometry "$GEOMETRY" specified.\n}; return 0; } $bbw = $1 + 10; # allow for the side-bars $bbh = $2; $bby = int(-$bby + $bbh + 8); # allow small margin for error $bbx = int(-$bbx + 5); # allow small margin for error if($DENSITY) { my $scale = $DENSITY / 72.0; $bbw = int($scale * $bbw + .99); $bbh = int($scale * $bbh + .99); } $bbw += 10; # add a 5pt margin for safety $bbh += 40; # add a 20pt margin for safety $GEOMETRY = "${bbw}x$bbh"; $have_geometry = 1; } if($have_geometry) { $gs_size = "-g$GEOMETRY "; } my $ps_changed = 0; if($have_geometry || $opt{white}) { # Remove any Postscript commands concerning Papersize if -g switch is used # thanks to Axel Ramge for identifying the problem and for this code local($/) = undef; open(PS,"<$psfile"); my $ps = ; close(PS); my $had_papersize; if($have_geometry) { $had_papersize = ($ps =~ s/\n%%BeginPaperSize.*?%%EndPaperSize[^\n]*\n/\n/sg); } my $had_nonwhite; if($opt{white}) { $had_nonwhite = ($ps =~ s/(\n\d+ \d+ bop gsave) \d*\.\d+ (TeXcolorgray clippath fill grestore)/$1 1 $2/s); } $ps_changed = $had_papersize || $had_nonwhite; if($ps_changed) { my $tmppsfile = $pnmfile; # was "tmpps$$.ps" $tmppsfile =~ s/\.[^.]*$/.ps/; unless(open(PS,">$tmppsfile") && (print PS $ps) && (close PS)) { if($had_papersize) { print <<"EOF"; $prompt: Warning: Could not write "$tmppsfile": $! "$psfile" contains %%Papersize comments. Any of these should be removed else GS will fail. EOF } if($had_nonwhite) { print <<"EOF"; $prompt: Warning: Could not write "$tmppsfile": $! "$psfile" has a non-white background. This may cause ugly images. EOF } } $psfile = $tmppsfile; print qq{Debug: Papersize comment in "$psfile" deleted.\n} if($had_papersize && $opt{debug}); print qq{Debug: Background switched to white in "$psfile".\n} if($had_nonwhite && $opt{debug}); } } my $gs_quiet = $opt{debug} ? '' : '-q -dNOPAUSE -dNO_PAUSE'; my $out_redirect = $opt{debug} ? '' : "> $NULLFILE"; my $gs_out = "-sOutputFile=$pnmfile"; my $gsfile = $psfile; # Ghostscript understands only '/' as path delimiter! if($opt{debug}) { print "$prompt: Running $GS $gs_quiet -sDEVICE=$GSDEVICE $gs_size $gs_density $gs_aalias $gs_out $out_redirect\n"; print "GS>$bbx $bby translate\n" if($have_geometry); print "GS>($gsfile) run\n"; print "GS>showpage\n" if ($epsf); print "GS>quit\n"; } open (GS, "|$GS $gs_quiet -sDEVICE=$GSDEVICE $gs_size $gs_density $gs_aalias $gs_out $out_redirect"); print GS "$bbx $bby translate\n" if ($have_geometry); print GS "($gsfile) run\n"; print GS "showpage\n" if ($epsf); print GS "quit\n"; print "\n" if($opt{debug}); unless(close(GS)) { print "$prompt: Error: Ghostscript returned error status ",$?>>8,"\n"; } L2hos->Unlink($psfile) if($ps_changed && !$opt{debug}); 1; } # This sub post-processes the PNM images that come out of Ghostscript. # The image is cropped, flipped and finally converted to PNG or GIF. sub crop_scale_etc { my ($in, $out) = @_; # create temp filename; should be auto-incrementable my $tmp = $in; $tmp =~ s/(\.[^.]*)?$/.t00/; # save the original Ghostscript result if($opt{debug}) { L2hos->Copy($in,$tmp); &increment_name($tmp); } my ($cmd,$type,$width,$height,$just); my $must_align = 0; #$EXTRA_CROP = "a$EXTRA_CROP" # hack to ensure first all-over cropping # unless($EXTRA_CROP =~ /^a/i); # RRM: Remove justification bars $EXTRA_CROP =~ s/h/bt/gi; # crop horizontally $EXTRA_CROP =~ s/v/rl/gi; # crop vertically # #MN HACKED HERE while ($EXTRA_CROP =~ /([atblrs])/gi) { my $edge = $1; my $croparg = ''; if($edge =~ /b/i) { $croparg = "-bot"; } elsif($edge =~ /[tlr]/i) { $croparg = "$PNMBLACK "; } elsif($edge =~ /s/i) { #RRM: shave at most 1-2 rows of white from the bottom if($cmd) { # Terminate command pipe &do_cmd($in,$tmp,$cmd) || return 0; # failure $cmd = ''; } my ($type,$width,$height) = get_image_geometry($in); next unless($type); # skip if no geometry if(&do_cmd_norename("$PNMCROP -bot < $in",$tmp)) { my ($type,$width,$height2) = get_image_geometry($tmp); if($type && ($height - $height2) < 3 ) { # command succeeded and shaved less than 3 rows if($opt{debug}) { L2hos->Copy($tmp,$in); &increment_name($tmp); } else { L2hos->Rename($tmp,$in); } next; } } # MRO: this shouldn't be necessary: L2hos->Unlink($tmp); next; # go to next crop argument } # end switch on crop codes if($cmd) { # Continue command pipe $cmd .= "| $PNMCROP $croparg"; } else { # start new pipe $cmd = "$PNMCROP $croparg< $in "; } } # end cropping if($opt{flip}) { unless($cmd) { $cmd = "$PNMFLIP -$opt{flip} < $in"; } else { $cmd .= "| $PNMFLIP -$opt{flip} "; } } if($RIGHT_JUSTIFY || $TOP_JUSTIFY || $CENTER || $SHORE_UP) { if($cmd) { # empty command pipe, we need the image's geometry &do_cmd($in,$tmp,$cmd); $cmd=''; } # Get bitmap type and dimensions ($type,$width,$height) = &get_image_geometry($in); return 0 unless($type); my ($white_left,$white_right,$white_top,$white_bottom) = (0,0,0,0); if($RIGHT_JUSTIFY || $CENTER) { if($RIGHT_JUSTIFY) { $white_left = int($RIGHT_JUSTIFY-$width); } else { # CENTER $white_left = int(($CENTER-$width) / 2); } $white_left = 0 unless($white_left > 0); $width += $white_left; } if($TOP_JUSTIFY) { if($TOP_JUSTIFY =~ /^x([0-9.]+)/io) { $white_bottom = $1 * $height; } else { $white_bottom = $TOP_JUSTIFY - $height; } if($white_bottom > 0) { $white_bottom = int($white_bottom + 0.99); # round up $height += $white_bottom; } else { $white_bottom = 0; } } if($SHORE_UP =~ /(\d+)(d?)/ && $1) { # RRM: make height and width an exact multiple of $SHORE_UP my ($shoreup,$depth) = ($1,$2); my $extra = $height % $shoreup; if($depth) { # image needs depth, place half the extra space underneath my $bextra = int($extra/2); $white_bottom += $bextra; $white_top += $extra - $bextra; } else { $white_top += $extra; } $extra = $width % $shoreup; my $rextra = int($extra/2); $white_right += $rextra; $white_left += $extra - $rextra; $cmd = ''; } if($white_left) { if($cmd) { &do_cmd($in,$tmp,$cmd) || return 0; } # Start new command pipe $cmd = "$PBMMAKE -white $white_left 1 | $PNMCAT -white -lr - $in "; } if($white_right) { if($cmd) { &do_cmd($in,$tmp,$cmd) || return 0; } # Start new command pipe $cmd = "$PBMMAKE -white $white_right 1 | $PNMCAT -white -lr $in - "; } if($white_top) { if($cmd) { &do_cmd($in,$tmp,$cmd) || return 0; } # Start new command pipe $cmd = "$PBMMAKE -white 1 $white_top | $PNMCAT -white -tb - $in "; } if($white_bottom) { if($cmd) { &do_cmd($in,$tmp,$cmd) || return 0; } # Start new command pipe $cmd = "$PBMMAKE -white 1 $white_bottom | $PNMCAT -white -tb $in - "; } } # endif must_align my $pnmtoimg; if($opt{type} eq 'gif') { $pnmtoimg = $PPMTOGIF; if($INTERLACE) { $pnmtoimg .= ' -interlace'; } if($TRANSPARENT) { $pnmtoimg .= ' -trans ' . L2hos->quote($trans_color); } } if($opt{type} eq 'png') { $pnmtoimg = $PNMTOPNG; if($INTERLACE) { $pnmtoimg .= ' -interlace'; } if($TRANSPARENT) { $pnmtoimg .= ' -trans ' . L2hos->quote($trans_color); } } unless($pnmtoimg) { print qq($prompt: Error: unknown image type "$opt{type}".\n); exit 2; } unless($type) { ($type,$width,$height) = &get_image_geometry($in); return 0 unless($type); } # run ppmquant only on color/gray images if(!$type || $type =~ /(ppm|pgm)/i) { if($cmd) { $cmd .= "| $reduce_color " } else { $cmd = "$reduce_color < $in "; } } if($cmd) { $cmd .= "| $pnmtoimg " } else { $cmd = "$pnmtoimg < $in "; } &do_cmd_norename($cmd,$out) || return 0; print qq{$prompt: Written $out\n} unless($opt{quiet}); 1; } sub banner { print "$prompt V$RELEASE (Revision $VERSION, Perl $])\n"; } sub print_version { my $formats = join(',',@IMAGE_TYPES); print <<"EOM"; $prompt (Revision $VERSION, perl $]), part of LaTeX2HTML Release V$RELEASE. Supported output image format(s): $formats EOM 1; } sub print_help { L2hos->perldoc($SCRIPT); 1; } sub print_usage { my $start = 0; my $usage = 'Usage: '; my $indent = ''; print (@_, "\n") if @_; my $perldoc = '/usr/bin'.$dd."perldoc"; my $script = $SCRIPT || $0; open(PIPE, "$perldoc -t $script |") || die "Fatal: can't open pipe: $!"; while () { if (/^\s*$/) { next; } elsif (/^SYNOPSIS/) { $start = 1; } elsif (/^\w/) { $start = 0; } elsif ($start == 1) { ($indent) = /^(\s*)/; s/^$indent/$usage/; $usage =~ s/./ /g; $start = 2; print $_; } elsif ($start == 2) { s/^$indent/$usage/; print $_; } } close PIPE; 1; } sub do_cmd { my ($in,$tmp,$cmd) = @_; print qq{Running "$cmd > $tmp"\n} if($opt{debug}); my $stat = system("$cmd > $tmp"); if($stat) { # error print qq{$prompt: Error: "$cmd > $tmp" failed: $!\n}; return 0; # failure } elsif(!-s $tmp) { # does not exist or zero size print qq{$prompt: Error: "$cmd > $tmp" produced empty file\n}; L2hos->Unlink($tmp) if(-e $tmp); return 0; # failure } if($opt{debug}) { # increase the temporary filename by 1 # this uses perl's magic autoincrement &increment_name($_[1]); return L2hos->Copy($tmp,$in); } elsif(!L2hos->Rename($tmp,$in)) { print qq{$prompt: Error: rename of "$tmp" to "$in" failed: $!\n}; return 0; # failure } 1; } sub do_cmd_norename { my ($cmd,$out) = @_; print qq{Running "$cmd > $out"\n} if($opt{debug}); my $stat = system("$cmd > $out"); if($stat) { # error print qq{$prompt: Error: "$cmd > $out" failed: $!\n}; return 0; # failure } elsif(!-s $out) { # does not exist or zero size print qq{$prompt: Error: "$cmd > $out" produced empty file\n}; L2hos->Unlink($out) if(-e $out); return 0; # failure } 1; } sub do_cmd_plain { my ($cmd) = @_; print qq{Running "$cmd"\n} if($opt{debug}); my $stat = system($cmd); if($stat) { # error print qq{$prompt: Error: "$cmd" failed: $!\n}; return 0; # failure } 1; } sub get_image_geometry { my ($pnmfile) = @_; my ($type,$width,$height); my $out = `$PNMFILE $pnmfile`; if($? || $out =~ /(P[BGP]M)[^0-9]*(\d+)\s*by\s*(\d+)/i) { $type = $1; $width = $2; $height = $3; print qq{Image "$pnmfile" is $type, ${width}x$height\n} if($opt{debug}); } else { print "$prompt: Error: Could not determine image size: $out\n"; return undef; } ($type,$width,$height); } # push the number in the suffix up one notch sub increment_name { $_[0] =~ s/(\d+)$/$a=$1;++$a/e; } __DATA__ =head1 EXAMPLES =over 4 =item C Convert the first page of foo.ps to the default bitmap type. =item C Same as above, but force png output and crop all the whitespace around the image and make the color white transparent and generate an interlaced bitmap. =item C Consider foo.ps a multiple page PostScript file and create output files bar1.gif, bar2.gif, etc. =back =head1 ENVIRONMENT =over 4 =item DENSITY, DEPTH, DEBUG, DISCARD See B<-density>, B<-depth>, B<-debug>, B<-discard>, respectively. =item GS_LIB This variable is set to the path(s) where Ghostscript libraries have been found on this system during configuration, but only if the built-in paths are not correct. This fixes the problem of relocation that is quite common on Win32 installations. This behavior can be overridden by setting GS_LIB manually before starting pstoimg. =item LATEX2HTMLDIR The directory where the LaTeX2HTML library and perl modules are found. Defaults to "/usr/local/lib/latex2html" on this installation. =item OUTFILE Setting this has the same effect as specifying B<-out>. Please do not rely on this feature any more, it will disappear from the next releases! =item PAPERSIZE The papersize to use by Ghostscript to render the image. pstoimg tries hard to optimize for rendering on the smallest possible bitmap size. Still this option is there to enable tuning by hand, although it is deprecated. If pstoimg finds a better setting, this parameter is ignored. =item SCALE See the discussion of B<-scale>. =item TMP and TEMP Unless overridden by B<-tmp>, these variables denote a directory where to store temporary files. TMP is considered first, then TEMP. =back =head1 SEE ALSO gs, pnmcrop, pnmquant, pbmmake, pnmcat, pnmfile, pnmflip, ppmtogif, pnmtopng, giftool, giftrans. =head1 NOTES Several people have suggested to use ImageMagick's convert instead of pstoimg. A few comments on this: convert uses (of course) Ghostscript for conversion of PostScript to bitmap, so one still needs gs. And for the special requirements of LaTeX2HTML convert's features are not sufficient. The ImageMagick toolset has everything in place, but it has some overhead that can prove killing when processing some 100 images. pstoimg only does what it really has to, so it should be quite efficient. Don't get me wrong - I like ImageMagick, but not in the context of LaTeX2HTML. =head1 CAVEATS This utility is automatically configured and built to work on the local setup. If this setup changes (e.g. some of the external commands are moved), the script has be be reconfigured. Despite the portability of perl, a pstoimg configured on UNIX will probably not work on Win32 and vice versa. =head1 BUGS This is a major enhancement release, so there may be a few bugs. As the user inteface changed a bit, some of your tools that were using pstoimg may not work any more. Please report bugs to latex2html@tug.org, stating the (debug) output of pstoimg, your perl version and the versions of the external tools. Best is to include the cfgcache.pm file from the configuration procedure. =head1 AUTHOR Marek Rouchal Emarek@saftsack.fs.uni-bayreuth.deE =head1 HISTORY This script went through a long evolution, beginning with a modification of Doug Crabill's Edgc@cs.purdue.eduE ps2epsi script. The first perl version was done by Nikos Drakos . It was gradually improved by numerous LaTeX2HTML developers: Ross Moore , Jens Lippmann and others (sorry for not mentioning everyone and thanks for your contributions). =cut ifeffit-1.2.11d/doc/scripts/FixPDFout0000755000175000017500000000146010771740460016351 0ustar segresegre#!/usr/bin/perl -w # fix a PDFlatex 'ifeffit.out' file. Fairly specialized for Feffit $file = $ARGV[0]; $savefile = $file.".bak"; rename ($file,$savefile) or die "couldn't rename $file\n"; open(IN, "<$savefile") or die "couldn't open $savefile\n"; open(OUT, ">$file") or die "couldn't open $file\n"; while () { chomp; s/\\_/_/go; s/\\137/_/go; $line = $_; if (/\\BOOKMARK \[(.*)\]{(.*)}{(.*)}{(.*)}/ ) { $n = $1; $x1 = $2; $x2 = $3; $x3 = $4; $x2 =~ s/\{//go; $x2 =~ s/\}//go; $x2 =~ s/\$//go; $x2 =~ s/\\chi /chi/go; $x2 =~ s/nscifeffit/IFEFFIT/go; $x2 =~ s/nscfeff/FEFF/go; $x2 =~ s/ \(k\) / chi(k) /go; $x2 =~ s/PD1OT1ptmptmmmnn//go; $x2 =~ s/\\(\w*) //go; $line = " \\BOOKMARK [$n]{$x1}{$x2}{$x3}"; } print OUT "$line\n"; } close(IN); close(OUT); ifeffit-1.2.11d/doc/README0000644000175000017500000000002610771740460014001 0ustar segresegreIfeffit Documentation ifeffit-1.2.11d/config.guess0000755000175000017500000006670310771740461014713 0ustar segresegre#! /bin/sh # Attempt to guess a canonical system name. # Copyright (C) 1992, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc. # # This file is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # Written by Per Bothner . # The master version of this file is at the FSF in /home/gd/gnu/lib. # Please send patches to the Autoconf mailing list . # # This script attempts to guess a canonical system name similar to # config.sub. If it succeeds, it prints the system name on stdout, and # exits with 0. Otherwise, it exits with 1. # # The plan is that this can be called by configure scripts if you # don't specify an explicit system type (host/target name). # # Only a few systems have been added to this list; please add others # (but try to keep the structure clean). # # This is needed to find uname on a Pyramid OSx when run in the BSD universe. # (ghazi@noc.rutgers.edu 8/24/94.) if (test -f /.attbin/uname) >/dev/null 2>&1 ; then PATH=$PATH:/.attbin ; export PATH fi UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown dummy=dummy-$$ trap 'rm -f $dummy.c $dummy.o $dummy; exit 1' 1 2 15 # Note: order is significant - the case branches are not exclusive. case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in alpha:OSF1:*:*) if test $UNAME_RELEASE = "V4.0"; then UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'` fi # A Vn.n version is a released version. # A Tn.n version is a released field test version. # A Xn.n version is an unreleased experimental baselevel. # 1.2 uses "1.2" for uname -r. cat <$dummy.s .globl main .ent main main: .frame \$30,0,\$26,0 .prologue 0 .long 0x47e03d80 # implver $0 lda \$2,259 .long 0x47e20c21 # amask $2,$1 srl \$1,8,\$2 sll \$2,2,\$2 sll \$0,3,\$0 addl \$1,\$0,\$0 addl \$2,\$0,\$0 ret \$31,(\$26),1 .end main EOF ${CC-cc} $dummy.s -o $dummy 2>/dev/null if test "$?" = 0 ; then ./$dummy case "$?" in 7) UNAME_MACHINE="alpha" ;; 15) UNAME_MACHINE="alphaev5" ;; 14) UNAME_MACHINE="alphaev56" ;; 10) UNAME_MACHINE="alphapca56" ;; 16) UNAME_MACHINE="alphaev6" ;; esac fi rm -f $dummy.s $dummy echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^[VTX]//' | tr [[A-Z]] [[a-z]]` exit 0 ;; 21064:Windows_NT:50:3) echo alpha-dec-winnt3.5 exit 0 ;; Amiga*:UNIX_System_V:4.0:*) echo m68k-cbm-sysv4 exit 0;; amiga:NetBSD:*:*) echo m68k-cbm-netbsd${UNAME_RELEASE} exit 0 ;; amiga:OpenBSD:*:*) echo m68k-unknown-openbsd${UNAME_RELEASE} exit 0 ;; *:[Aa]miga[Oo][Ss]:*:*) echo ${UNAME_MACHINE}-unknown-amigaos exit 0 ;; arc64:OpenBSD:*:*) echo mips64el-unknown-openbsd${UNAME_RELEASE} exit 0 ;; arc:OpenBSD:*:*) echo mipsel-unknown-openbsd${UNAME_RELEASE} exit 0 ;; hkmips:OpenBSD:*:*) echo mips-unknown-openbsd${UNAME_RELEASE} exit 0 ;; pmax:OpenBSD:*:*) echo mipsel-unknown-openbsd${UNAME_RELEASE} exit 0 ;; sgi:OpenBSD:*:*) echo mips-unknown-openbsd${UNAME_RELEASE} exit 0 ;; wgrisc:OpenBSD:*:*) echo mipsel-unknown-openbsd${UNAME_RELEASE} exit 0 ;; arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*) echo arm-acorn-riscix${UNAME_RELEASE} exit 0;; arm32:NetBSD:*:*) echo arm-unknown-netbsd`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'` exit 0 ;; SR2?01:HI-UX/MPP:*:*) echo hppa1.1-hitachi-hiuxmpp exit 0;; Pyramid*:OSx*:*:*|MIS*:OSx*:*:*|MIS*:SMP_DC-OSx*:*:*) # akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE. if test "`(/bin/universe) 2>/dev/null`" = att ; then echo pyramid-pyramid-sysv3 else echo pyramid-pyramid-bsd fi exit 0 ;; NILE*:*:*:dcosx) echo pyramid-pyramid-svr4 exit 0 ;; sun4H:SunOS:5.*:*) echo sparc-hal-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit 0 ;; sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*) echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit 0 ;; i86pc:SunOS:5.*:*) echo i386-pc-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit 0 ;; sun4*:SunOS:6*:*) # According to config.sub, this is the proper way to canonicalize # SunOS6. Hard to guess exactly what SunOS6 will be like, but # it's likely to be more like Solaris than SunOS4. echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit 0 ;; sun4*:SunOS:*:*) case "`/usr/bin/arch -k`" in Series*|S4*) UNAME_RELEASE=`uname -v` ;; esac # Japanese Language versions have a version number like `4.1.3-JL'. echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'` exit 0 ;; sun3*:SunOS:*:*) echo m68k-sun-sunos${UNAME_RELEASE} exit 0 ;; sun*:*:4.2BSD:*) UNAME_RELEASE=`(head -1 /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null` test "x${UNAME_RELEASE}" = "x" && UNAME_RELEASE=3 case "`/bin/arch`" in sun3) echo m68k-sun-sunos${UNAME_RELEASE} ;; sun4) echo sparc-sun-sunos${UNAME_RELEASE} ;; esac exit 0 ;; aushp:SunOS:*:*) echo sparc-auspex-sunos${UNAME_RELEASE} exit 0 ;; atari*:NetBSD:*:*) echo m68k-atari-netbsd${UNAME_RELEASE} exit 0 ;; atari*:OpenBSD:*:*) echo m68k-unknown-openbsd${UNAME_RELEASE} exit 0 ;; sun3*:NetBSD:*:*) echo m68k-sun-netbsd${UNAME_RELEASE} exit 0 ;; sun3*:OpenBSD:*:*) echo m68k-unknown-openbsd${UNAME_RELEASE} exit 0 ;; mac68k:NetBSD:*:*) echo m68k-apple-netbsd${UNAME_RELEASE} exit 0 ;; mac68k:OpenBSD:*:*) echo m68k-unknown-openbsd${UNAME_RELEASE} exit 0 ;; mvme68k:OpenBSD:*:*) echo m68k-unknown-openbsd${UNAME_RELEASE} exit 0 ;; mvme88k:OpenBSD:*:*) echo m88k-unknown-openbsd${UNAME_RELEASE} exit 0 ;; powerpc:machten:*:*) echo powerpc-apple-machten${UNAME_RELEASE} exit 0 ;; macppc:NetBSD:*:*) echo powerpc-apple-netbsd${UNAME_RELEASE} exit 0 ;; RISC*:Mach:*:*) echo mips-dec-mach_bsd4.3 exit 0 ;; RISC*:ULTRIX:*:*) echo mips-dec-ultrix${UNAME_RELEASE} exit 0 ;; VAX*:ULTRIX*:*:*) echo vax-dec-ultrix${UNAME_RELEASE} exit 0 ;; 2020:CLIX:*:*) echo clipper-intergraph-clix${UNAME_RELEASE} exit 0 ;; mips:*:*:UMIPS | mips:*:*:RISCos) sed 's/^ //' << EOF >$dummy.c #ifdef __cplusplus int main (int argc, char *argv[]) { #else int main (argc, argv) int argc; char *argv[]; { #endif #if defined (host_mips) && defined (MIPSEB) #if defined (SYSTYPE_SYSV) printf ("mips-mips-riscos%ssysv\n", argv[1]); exit (0); #endif #if defined (SYSTYPE_SVR4) printf ("mips-mips-riscos%ssvr4\n", argv[1]); exit (0); #endif #if defined (SYSTYPE_BSD43) || defined(SYSTYPE_BSD) printf ("mips-mips-riscos%sbsd\n", argv[1]); exit (0); #endif #endif exit (-1); } EOF ${CC-cc} $dummy.c -o $dummy \ && ./$dummy `echo "${UNAME_RELEASE}" | sed -n 's/\([0-9]*\).*/\1/p'` \ && rm $dummy.c $dummy && exit 0 rm -f $dummy.c $dummy echo mips-mips-riscos${UNAME_RELEASE} exit 0 ;; Night_Hawk:Power_UNIX:*:*) echo powerpc-harris-powerunix exit 0 ;; m88k:CX/UX:7*:*) echo m88k-harris-cxux7 exit 0 ;; m88k:*:4*:R4*) echo m88k-motorola-sysv4 exit 0 ;; m88k:*:3*:R3*) echo m88k-motorola-sysv3 exit 0 ;; AViiON:dgux:*:*) # DG/UX returns AViiON for all architectures UNAME_PROCESSOR=`/usr/bin/uname -p` if [ $UNAME_PROCESSOR = mc88100 -o $UNAME_PROCESSOR = mc88110 ] ; then if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx \ -o ${TARGET_BINARY_INTERFACE}x = x ] ; then echo m88k-dg-dgux${UNAME_RELEASE} else echo m88k-dg-dguxbcs${UNAME_RELEASE} fi else echo i586-dg-dgux${UNAME_RELEASE} fi exit 0 ;; M88*:DolphinOS:*:*) # DolphinOS (SVR3) echo m88k-dolphin-sysv3 exit 0 ;; M88*:*:R3*:*) # Delta 88k system running SVR3 echo m88k-motorola-sysv3 exit 0 ;; XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3) echo m88k-tektronix-sysv3 exit 0 ;; Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD) echo m68k-tektronix-bsd exit 0 ;; *:IRIX*:*:*) echo mips-sgi-irix`echo ${UNAME_RELEASE}|sed -e 's/-/_/g'` exit 0 ;; ????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX. echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id exit 0 ;; # Note that: echo "'`uname -s`'" gives 'AIX ' i?86:AIX:*:*) echo i386-ibm-aix exit 0 ;; *:AIX:2:3) if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then sed 's/^ //' << EOF >$dummy.c #include main() { if (!__power_pc()) exit(1); puts("powerpc-ibm-aix3.2.5"); exit(0); } EOF ${CC-cc} $dummy.c -o $dummy && ./$dummy && rm $dummy.c $dummy && exit 0 rm -f $dummy.c $dummy echo rs6000-ibm-aix3.2.5 elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then echo rs6000-ibm-aix3.2.4 else echo rs6000-ibm-aix3.2 fi exit 0 ;; *:AIX:*:4) IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | head -1 | awk '{ print $1 }'` if /usr/sbin/lsattr -EHl ${IBM_CPU_ID} | grep POWER >/dev/null 2>&1; then IBM_ARCH=rs6000 else IBM_ARCH=powerpc fi if [ -x /usr/bin/oslevel ] ; then IBM_REV=`/usr/bin/oslevel` else IBM_REV=4.${UNAME_RELEASE} fi echo ${IBM_ARCH}-ibm-aix${IBM_REV} exit 0 ;; *:AIX:*:*) echo rs6000-ibm-aix exit 0 ;; ibmrt:4.4BSD:*|romp-ibm:BSD:*) echo romp-ibm-bsd4.4 exit 0 ;; ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC NetBSD and echo romp-ibm-bsd${UNAME_RELEASE} # 4.3 with uname added to exit 0 ;; # report: romp-ibm BSD 4.3 *:BOSX:*:*) echo rs6000-bull-bosx exit 0 ;; DPX/2?00:B.O.S.:*:*) echo m68k-bull-sysv3 exit 0 ;; 9000/[34]??:4.3bsd:1.*:*) echo m68k-hp-bsd exit 0 ;; hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*) echo m68k-hp-bsd4.4 exit 0 ;; 9000/[34678]??:HP-UX:*:*) case "${UNAME_MACHINE}" in 9000/31? ) HP_ARCH=m68000 ;; 9000/[34]?? ) HP_ARCH=m68k ;; 9000/6?? | 9000/7?? | 9000/80[024] | 9000/8?[136790] | 9000/892 ) sed 's/^ //' << EOF >$dummy.c #include #include int main () { #if defined(_SC_KERNEL_BITS) long bits = sysconf(_SC_KERNEL_BITS); #endif long cpu = sysconf (_SC_CPU_VERSION); switch (cpu) { case CPU_PA_RISC1_0: puts ("hppa1.0"); break; case CPU_PA_RISC1_1: puts ("hppa1.1"); break; case CPU_PA_RISC2_0: #if defined(_SC_KERNEL_BITS) switch (bits) { case 64: puts ("hppa2.0w"); break; case 32: puts ("hppa2.0n"); break; default: puts ("hppa2.0"); break; } break; #else /* !defined(_SC_KERNEL_BITS) */ puts ("hppa2.0"); break; #endif default: puts ("hppa1.0"); break; } exit (0); } EOF (${CC-cc} $dummy.c -o $dummy 2>/dev/null ) && HP_ARCH=`./$dummy` rm -f $dummy.c $dummy esac HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` echo ${HP_ARCH}-hp-hpux${HPUX_REV} exit 0 ;; 3050*:HI-UX:*:*) sed 's/^ //' << EOF >$dummy.c #include int main () { long cpu = sysconf (_SC_CPU_VERSION); /* The order matters, because CPU_IS_HP_MC68K erroneously returns true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct results, however. */ if (CPU_IS_PA_RISC (cpu)) { switch (cpu) { case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break; case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break; case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break; default: puts ("hppa-hitachi-hiuxwe2"); break; } } else if (CPU_IS_HP_MC68K (cpu)) puts ("m68k-hitachi-hiuxwe2"); else puts ("unknown-hitachi-hiuxwe2"); exit (0); } EOF ${CC-cc} $dummy.c -o $dummy && ./$dummy && rm $dummy.c $dummy && exit 0 rm -f $dummy.c $dummy echo unknown-hitachi-hiuxwe2 exit 0 ;; 9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:* ) echo hppa1.1-hp-bsd exit 0 ;; 9000/8??:4.3bsd:*:*) echo hppa1.0-hp-bsd exit 0 ;; *9??*:MPE*:*:*) echo hppa1.0-hp-mpeix exit 0 ;; *9??*:MPE*:*:*) echo hppa1.0-hp-mpeix exit 0 ;; hp7??:OSF1:*:* | hp8?[79]:OSF1:*:* ) echo hppa1.1-hp-osf exit 0 ;; hp8??:OSF1:*:*) echo hppa1.0-hp-osf exit 0 ;; i?86:OSF1:*:*) if [ -x /usr/sbin/sysversion ] ; then echo ${UNAME_MACHINE}-unknown-osf1mk else echo ${UNAME_MACHINE}-unknown-osf1 fi exit 0 ;; parisc*:Lites*:*:*) echo hppa1.1-hp-lites exit 0 ;; C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*) echo c1-convex-bsd exit 0 ;; C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit 0 ;; C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*) echo c34-convex-bsd exit 0 ;; C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*) echo c38-convex-bsd exit 0 ;; C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*) echo c4-convex-bsd exit 0 ;; CRAY*X-MP:*:*:*) echo xmp-cray-unicos exit 0 ;; CRAY*Y-MP:*:*:*) echo ymp-cray-unicos${UNAME_RELEASE} exit 0 ;; CRAY*[A-Z]90:*:*:*) echo ${UNAME_MACHINE}-cray-unicos${UNAME_RELEASE} \ | sed -e 's/CRAY.*\([A-Z]90\)/\1/' \ -e y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/ exit 0 ;; CRAY*TS:*:*:*) echo t90-cray-unicos${UNAME_RELEASE} exit 0 ;; CRAY*T3E:*:*:*) echo t3e-cray-unicosmk${UNAME_RELEASE} exit 0 ;; CRAY-2:*:*:*) echo cray2-cray-unicos exit 0 ;; F300:UNIX_System_V:*:*) FUJITSU_SYS=`uname -p | tr [A-Z] [a-z] | sed -e 's/\///'` FUJITSU_REL=`echo ${UNAME_RELEASE} | sed -e 's/ /_/'` echo "f300-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" exit 0 ;; F301:UNIX_System_V:*:*) echo f301-fujitsu-uxpv`echo $UNAME_RELEASE | sed 's/ .*//'` exit 0 ;; hp3[0-9][05]:NetBSD:*:*) echo m68k-hp-netbsd${UNAME_RELEASE} exit 0 ;; hp300:OpenBSD:*:*) echo m68k-unknown-openbsd${UNAME_RELEASE} exit 0 ;; sparc*:BSD/OS:*:*) echo sparc-unknown-bsdi${UNAME_RELEASE} exit 0 ;; i?86:BSD/386:*:* | i?86:BSD/OS:*:*) echo ${UNAME_MACHINE}-pc-bsdi${UNAME_RELEASE} exit 0 ;; *:BSD/OS:*:*) echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} exit 0 ;; *:FreeBSD:*:*) if test -x /usr/bin/objformat; then if test "elf" = "`/usr/bin/objformat`"; then echo ${UNAME_MACHINE}-unknown-freebsdelf`echo ${UNAME_RELEASE}|sed -e 's/[-_].*//'` exit 0 fi fi echo ${UNAME_MACHINE}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` exit 0 ;; *:NetBSD:*:*) echo ${UNAME_MACHINE}-unknown-netbsd`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'` exit 0 ;; *:OpenBSD:*:*) echo ${UNAME_MACHINE}-unknown-openbsd`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'` exit 0 ;; i*:CYGWIN*:*) echo ${UNAME_MACHINE}-pc-cygwin exit 0 ;; i*:MINGW*:*) echo ${UNAME_MACHINE}-pc-mingw32 exit 0 ;; p*:CYGWIN*:*) echo powerpcle-unknown-cygwin exit 0 ;; prep*:SunOS:5.*:*) echo powerpcle-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit 0 ;; *:GNU:*:*) echo `echo ${UNAME_MACHINE}|sed -e 's,[-/].*$,,'`-unknown-gnu`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'` exit 0 ;; *:Linux:*:*) # # uname on the ARM produces all sorts of strangeness, and we need to # # filter it out. # case "$UNAME_MACHINE" in # armv*) UNAME_MACHINE=$UNAME_MACHINE ;; # arm* | sa110*) UNAME_MACHINE="arm" ;; # esac # The BFD linker knows what the default object file format is, so # first see if it will tell us. ld_help_string=`ld --help 2>&1` ld_supported_emulations=`echo $ld_help_string \ | sed -ne '/supported emulations:/!d s/[ ][ ]*/ /g s/.*supported emulations: *// s/ .*// p'` case "$ld_supported_emulations" in i?86linux) echo "${UNAME_MACHINE}-pc-linux-gnuaout" ; exit 0 ;; i?86coff) echo "${UNAME_MACHINE}-pc-linux-gnucoff" ; exit 0 ;; sparclinux) echo "${UNAME_MACHINE}-unknown-linux-gnuaout" ; exit 0 ;; armlinux) echo "${UNAME_MACHINE}-unknown-linux-gnuaout" ; exit 0 ;; m68klinux) echo "${UNAME_MACHINE}-unknown-linux-gnuaout" ; exit 0 ;; elf32arm) echo "${UNAME_MACHINE}-unknown-linux-gnu" ; exit 0 ;; elf32ppc) echo "powerpc-unknown-linux-gnu" ; exit 0 ;; esac if test "${UNAME_MACHINE}" = "alpha" ; then sed 's/^ //' <$dummy.s .globl main .ent main main: .frame \$30,0,\$26,0 .prologue 0 .long 0x47e03d80 # implver $0 lda \$2,259 .long 0x47e20c21 # amask $2,$1 srl \$1,8,\$2 sll \$2,2,\$2 sll \$0,3,\$0 addl \$1,\$0,\$0 addl \$2,\$0,\$0 ret \$31,(\$26),1 .end main EOF LIBC="" ${CC-cc} $dummy.s -o $dummy 2>/dev/null if test "$?" = 0 ; then ./$dummy case "$?" in 7) UNAME_MACHINE="alpha" ;; 15) UNAME_MACHINE="alphaev5" ;; 14) UNAME_MACHINE="alphaev56" ;; 10) UNAME_MACHINE="alphapca56" ;; 16) UNAME_MACHINE="alphaev6" ;; esac objdump --private-headers $dummy | \ grep ld.so.1 > /dev/null if test "$?" = 0 ; then LIBC="libc1" fi fi rm -f $dummy.s $dummy echo ${UNAME_MACHINE}-unknown-linux-gnu${LIBC} ; exit 0 elif test "${UNAME_MACHINE}" = "mips" ; then cat >$dummy.c </dev/null && ./$dummy "${UNAME_MACHINE}" && rm $dummy.c $dummy && exit 0 rm -f $dummy.c $dummy else # Either a pre-BFD a.out linker (linux-gnuoldld) # or one that does not give us useful --help. # GCC wants to distinguish between linux-gnuoldld and linux-gnuaout. # If ld does not provide *any* "supported emulations:" # that means it is gnuoldld. echo "$ld_help_string" | grep >/dev/null 2>&1 "supported emulations:" test $? != 0 && echo "${UNAME_MACHINE}-pc-linux-gnuoldld" && exit 0 case "${UNAME_MACHINE}" in i?86) VENDOR=pc; ;; *) VENDOR=unknown; ;; esac # Determine whether the default compiler is a.out or elf cat >$dummy.c < #ifdef __cplusplus int main (int argc, char *argv[]) { #else int main (argc, argv) int argc; char *argv[]; { #endif #ifdef __ELF__ # ifdef __GLIBC__ # if __GLIBC__ >= 2 printf ("%s-${VENDOR}-linux-gnu\n", argv[1]); # else printf ("%s-${VENDOR}-linux-gnulibc1\n", argv[1]); # endif # else printf ("%s-${VENDOR}-linux-gnulibc1\n", argv[1]); # endif #else printf ("%s-${VENDOR}-linux-gnuaout\n", argv[1]); #endif return 0; } EOF ${CC-cc} $dummy.c -o $dummy 2>/dev/null && ./$dummy "${UNAME_MACHINE}" && rm $dummy.c $dummy && exit 0 rm -f $dummy.c $dummy fi ;; # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there. earlier versions # are messed up and put the nodename in both sysname and nodename. i?86:DYNIX/ptx:4*:*) echo i386-sequent-sysv4 exit 0 ;; i?86:UNIX_SV:4.2MP:2.*) # Unixware is an offshoot of SVR4, but it has its own version # number series starting with 2... # I am not positive that other SVR4 systems won't match this, # I just have to hope. -- rms. # Use sysv4.2uw... so that sysv4* matches it. echo ${UNAME_MACHINE}-pc-sysv4.2uw${UNAME_VERSION} exit 0 ;; i?86:*:4.*:* | i?86:SYSTEM_V:4.*:*) if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then echo ${UNAME_MACHINE}-univel-sysv${UNAME_RELEASE} else echo ${UNAME_MACHINE}-pc-sysv${UNAME_RELEASE} fi exit 0 ;; i?86:*:3.2:*) if test -f /usr/options/cb.name; then UNAME_REL=`sed -n 's/.*Version //p' /dev/null >/dev/null ; then UNAME_REL=`(/bin/uname -X|egrep Release|sed -e 's/.*= //')` (/bin/uname -X|egrep i80486 >/dev/null) && UNAME_MACHINE=i486 (/bin/uname -X|egrep '^Machine.*Pentium' >/dev/null) \ && UNAME_MACHINE=i586 echo ${UNAME_MACHINE}-pc-sco$UNAME_REL else echo ${UNAME_MACHINE}-pc-sysv32 fi exit 0 ;; i?86:UnixWare:*:*) if /bin/uname -X 2>/dev/null >/dev/null ; then (/bin/uname -X|egrep '^Machine.*Pentium' >/dev/null) \ && UNAME_MACHINE=i586 fi echo ${UNAME_MACHINE}-unixware-${UNAME_RELEASE}-${UNAME_VERSION} exit 0 ;; pc:*:*:*) # uname -m prints for DJGPP always 'pc', but it prints nothing about # the processor, so we play safe by assuming i386. echo i386-pc-msdosdjgpp exit 0 ;; Intel:Mach:3*:*) echo i386-pc-mach3 exit 0 ;; paragon:*:*:*) echo i860-intel-osf1 exit 0 ;; i860:*:4.*:*) # i860-SVR4 if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4 else # Add other i860-SVR4 vendors below as they are discovered. echo i860-unknown-sysv${UNAME_RELEASE} # Unknown i860-SVR4 fi exit 0 ;; mini*:CTIX:SYS*5:*) # "miniframe" echo m68010-convergent-sysv exit 0 ;; M68*:*:R3V[567]*:*) test -r /sysV68 && echo 'm68k-motorola-sysv' && exit 0 ;; 3[34]??:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 4850:*:4.0:3.0) OS_REL='' test -r /etc/.relid \ && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && echo i486-ncr-sysv4.3${OS_REL} && exit 0 /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ && echo i586-ncr-sysv4.3${OS_REL} && exit 0 ;; 3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*) /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && echo i486-ncr-sysv4 && exit 0 ;; m68*:LynxOS:2.*:*) echo m68k-unknown-lynxos${UNAME_RELEASE} exit 0 ;; mc68030:UNIX_System_V:4.*:*) echo m68k-atari-sysv4 exit 0 ;; i?86:LynxOS:2.*:* | i?86:LynxOS:3.[01]*:*) echo i386-unknown-lynxos${UNAME_RELEASE} exit 0 ;; TSUNAMI:LynxOS:2.*:*) echo sparc-unknown-lynxos${UNAME_RELEASE} exit 0 ;; rs6000:LynxOS:2.*:* | PowerPC:LynxOS:2.*:*) echo rs6000-unknown-lynxos${UNAME_RELEASE} exit 0 ;; SM[BE]S:UNIX_SV:*:*) echo mips-dde-sysv${UNAME_RELEASE} exit 0 ;; RM*:ReliantUNIX-*:*:*) echo mips-sni-sysv4 exit 0 ;; RM*:SINIX-*:*:*) echo mips-sni-sysv4 exit 0 ;; *:SINIX-*:*:*) if uname -p 2>/dev/null >/dev/null ; then UNAME_MACHINE=`(uname -p) 2>/dev/null` echo ${UNAME_MACHINE}-sni-sysv4 else echo ns32k-sni-sysv fi exit 0 ;; PENTIUM:CPunix:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort # says echo i586-unisys-sysv4 exit 0 ;; *:UNIX_System_V:4*:FTX*) # From Gerald Hewes . # How about differentiating between stratus architectures? -djm echo hppa1.1-stratus-sysv4 exit 0 ;; *:*:*:FTX*) # From seanf@swdc.stratus.com. echo i860-stratus-sysv4 exit 0 ;; mc68*:A/UX:*:*) echo m68k-apple-aux${UNAME_RELEASE} exit 0 ;; news*:NEWS-OS:*:6*) echo mips-sony-newsos6 exit 0 ;; R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R4000:UNIX_SV:*:*) if [ -d /usr/nec ]; then echo mips-nec-sysv${UNAME_RELEASE} else echo mips-unknown-sysv${UNAME_RELEASE} fi exit 0 ;; BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only. echo powerpc-be-beos exit 0 ;; BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only. echo powerpc-apple-beos exit 0 ;; BePC:BeOS:*:*) # BeOS running on Intel PC compatible. echo i586-pc-beos exit 0 ;; SX-4:SUPER-UX:*:*) echo sx4-nec-superux${UNAME_RELEASE} exit 0 ;; SX-5:SUPER-UX:*:*) echo sx5-nec-superux${UNAME_RELEASE} exit 0 ;; Power*:Rhapsody:*:*) echo powerpc-apple-rhapsody${UNAME_RELEASE} exit 0 ;; *:Rhapsody:*:*) echo ${UNAME_MACHINE}-apple-rhapsody${UNAME_RELEASE} exit 0 ;; esac #echo '(No uname command or uname output not recognized.)' 1>&2 #echo "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" 1>&2 cat >$dummy.c < # include #endif main () { #if defined (sony) #if defined (MIPSEB) /* BFD wants "bsd" instead of "newsos". Perhaps BFD should be changed, I don't know.... */ printf ("mips-sony-bsd\n"); exit (0); #else #include printf ("m68k-sony-newsos%s\n", #ifdef NEWSOS4 "4" #else "" #endif ); exit (0); #endif #endif #if defined (__arm) && defined (__acorn) && defined (__unix) printf ("arm-acorn-riscix"); exit (0); #endif #if defined (hp300) && !defined (hpux) printf ("m68k-hp-bsd\n"); exit (0); #endif #if defined (NeXT) #if !defined (__ARCHITECTURE__) #define __ARCHITECTURE__ "m68k" #endif int version; version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`; if (version < 4) printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version); else printf ("%s-next-openstep%d\n", __ARCHITECTURE__, version); exit (0); #endif #if defined (MULTIMAX) || defined (n16) #if defined (UMAXV) printf ("ns32k-encore-sysv\n"); exit (0); #else #if defined (CMU) printf ("ns32k-encore-mach\n"); exit (0); #else printf ("ns32k-encore-bsd\n"); exit (0); #endif #endif #endif #if defined (__386BSD__) printf ("i386-pc-bsd\n"); exit (0); #endif #if defined (sequent) #if defined (i386) printf ("i386-sequent-dynix\n"); exit (0); #endif #if defined (ns32000) printf ("ns32k-sequent-dynix\n"); exit (0); #endif #endif #if defined (_SEQUENT_) struct utsname un; uname(&un); if (strncmp(un.version, "V2", 2) == 0) { printf ("i386-sequent-ptx2\n"); exit (0); } if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */ printf ("i386-sequent-ptx1\n"); exit (0); } printf ("i386-sequent-ptx\n"); exit (0); #endif #if defined (vax) #if !defined (ultrix) printf ("vax-dec-bsd\n"); exit (0); #else printf ("vax-dec-ultrix\n"); exit (0); #endif #endif #if defined (alliant) && defined (i860) printf ("i860-alliant-bsd\n"); exit (0); #endif exit (1); } EOF ${CC-cc} $dummy.c -o $dummy 2>/dev/null && ./$dummy && rm $dummy.c $dummy && exit 0 rm -f $dummy.c $dummy # Apollos put the system type in the environment. test -d /usr/apollo && { echo ${ISP}-apollo-${SYSTYPE}; exit 0; } # Convex versions that predate uname can use getsysinfo(1) if [ -x /usr/convex/getsysinfo ] then case `getsysinfo -f cpu_type` in c1*) echo c1-convex-bsd exit 0 ;; c2*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit 0 ;; c34*) echo c34-convex-bsd exit 0 ;; c38*) echo c38-convex-bsd exit 0 ;; c4*) echo c4-convex-bsd exit 0 ;; esac fi #echo '(Unable to guess system type)' 1>&2 exit 1 ifeffit-1.2.11d/configure.in0000644000175000017500000000763011110330467014663 0ustar segresegre# Copyright (C) 2000 Matt Newville # # This file is free software; the author gives unlimited permission # to copy and/or distribute it, with or without modifications, as # long as this notice is preserved. # AC_INIT(ifeffit, 1.2.10, newville@cars.uchicago.edu) AM_CONFIG_HEADER(config.h) AM_INIT_AUTOMAKE(ifeffit,1.2.10) AC_PROG_CC(gcc cc ) AC_PROG_CPP(gcc cc) ## AC_PROG_F77(gfortran g77 g95 f77 f90) AC_ISC_POSIX AC_HEADER_STDC AC_PROG_RANLIB AC_INCLUDES_DEFAULT AC_PATH_PROGS(PERL, perl perl5 perl5.8 perl5.6 perl5.005, NO_PERL ) AC_PATH_PROGS(PYTHON, python python2 python2.5 python2.4 python2.3 python2.2 python2.1, NO_PYTHON) AC_CONFIG_SUBDIRS(readline) ################################ FCLIST='gfortran g77 g95 f77 f90 xlf' AC_ARG_WITH(fortran, [ --with-fortran=compiler specify fortran compiler g77 g95 gfortran], [if test "$withval"; then FCLIST=$withval; fi]) AC_PROG_F77($FCLIST) AC_F77_LIBRARY_LDFLAGS ################################ # get terminal capabilities library (typically -L/usr/lib -lncurses) TERMCAP_LIB=`$SHELL ./iconf_term` AC_ARG_WITH(termcap-link, [ --with-termcap-link=libraries to use for linking terminal capabilities], [if test "$withval" ; then TERMCAP_LIB=$withval; fi]) AC_SUBST(TERMCAP_LIB) ################################ # test selected memory size ARRSIZE=large AC_ARG_WITH(arraysize, [ --with-arraysize=size specify array size: tiny,small,medium,large,huge], [if test "$withval" = no; then ARRSIZE=large; else ARRSIZE=$withval; fi]) AC_SUBST(ARRSIZE) ## ## VERSION=`$SHELL ./iconf_iff $prefix $ARRSIZE $PACKAGE $ac_default_prefix ` ## simple script to fix bad ordering of FLIBS with gcc MN_FLIBS=`$SHELL ./iconf_flib "$FLIBS"` AC_MSG_RESULT([=== Fortran LIBS: $MN_FLIBS]) AC_SUBST(MN_FLIBS) # tests for PGPLOT pgdir='' use_pgplot=true pwd=`pwd` PGPLOT_LIBS="$pwd/src/pgstub/libnopgplot.a"; AC_ARG_WITH(pgplot, [ --with-pgplot=dir specify directory of libpgplot.a], [if test "$withval" = no; then use_pgplot=false ; pgdir=''; else use_pgplot=true ; pgdir=$withval ; fi], use_pgpglot=true) # use test_plot script to test PGPLOT install if $use_pgplot; then PGPLOT_LIBS=`$SHELL ./iconf_pgplot $pgdir`; fi # or specify full link argument!! AC_ARG_WITH(pgplot-link, [ --with-pgplot-link=link specify all libraries for PGPLOT linking], [if test "$withval" ; then use_pgplot=true; PGPLOT_LIBS=$withval; fi], use_pgpglot=true) AC_MSG_RESULT([will link to PGPLOT using $PGPLOT_LIBS]) AC_SUBST(use_pgplot) AC_SUBST(PGPLOT_LIBS) AC_SUBST(pgdir) ################################ # AC_CONFIG_SUBDIRS(fortran/f2c fortran/libf2c readline) # fortran/Makefile f2c_comp # readline/Makefile AC_OUTPUT([src/Makefile src/pgstub/Makefile src/cldata/Makefile src/fefftab/Makefile src/lib/Makefile src/cmdline/Makefile src/autobk/Makefile src/feffit/Makefile src/diffkk/Makefile src/test/Makefile src/feff6/Makefile Makefile ]) # $SHELL ./config.status AC_MSG_RESULT([===]) AC_MSG_RESULT([=== $PACKAGE $VERSION Configuration Results:]) if $use_pgplot ; then AC_MSG_RESULT([=== linking to PGPLOT with: $PGPLOT_LIBS]) ; else AC_MSG_RESULT([=== WARNING: Plotting will not work!]) ; fi if test "$TERMCAP_LIB" = "-L -l" ; then AC_MSG_RESULT([===]) AC_MSG_RESULT([=== could not find TERMCAP Libraries : 'make' will fail.]) ; AC_MSG_RESULT([===]) AC_MSG_RESULT([=== Please set TERMCAP_LIB in src/cmdline/Makefile or use the]) AC_MSG_RESULT([=== --termcap-link argument before running make]) else AC_MSG_RESULT([=== using TERMCAP_LIB $TERMCAP_LIB]); AC_MSG_RESULT([===]) AC_MSG_RESULT([=== ready for next step: type 'make' then 'make install']) fi ifeffit-1.2.11d/README.CYGWIN0000644000175000017500000000033210771740461014234 0ustar segresegrePlease take the self-installing windows package for Ifeffit. If you're interested in programming with Ifeffit on Windows, contact Matt. --Matt Newville Last update Aug-25-2003 ifeffit-1.2.11d/THANKS0000644000175000017500000001436210771740461013300 0ustar segresegreThe Ifeffit THANKS file Ifeffit was written by Matt Newville (MN: newville@cars.uchicago.edu), with considerable help and encouragement from many people. Many of the basic algorithms of Ifeffit are based on those of Autobk and Feffit, which were written by MN while at the University of Washington. Autobk and Feffit were developed under the guidance of Edward A. Stern (EAS) and distributed as part of the UWXAFS3.0 Package by the University of Washington. The central idea of the core algorithm for Autobk was first presented to MN by Yizhak Yacoby (YY) and EAS. The idea is similar to that of J. W. Cook, Jr and Dale E. Sayers (DES) [1], though they did not explicitly use a Fourier transform. The algorithm was further developed by MN and EAS for Autobk, with many helpful suggestions from YY, Peteris Livins (PL) and John J. Rehr (JJR). The Autobk algorithm is described and demonstrated in [2]. The core algorithms of Feffit were developed by MN with many discussions and suggestions from EAS, JJR, PL, YY, Bruce Ravel (BR), and Steven I. Zabinsky (SIZ). Feffit would not exist without the Feff program of JJR, SIZ, Jose Mustre de Leon, and Alexei Ankudinov [3,4]. Feffit is discussed in [5,6,7], and an early use of it is described in [8]. Many users of Autobk and Feffit over the years have greatly improved the reliability, correctness, and functionality of Autobk and Feffit, and so have contributed to Ifeffit. The enthusiastic use, bug reports, and helpful suggestions from BR, JJR, SIZ, Maoxu Qian, Anatoly Frenkel, Daniel Haskel, Yanjun Zhang, Shelly Kelly, Chuck Bouldin, Hans Stragier, Julie O. Cross (JOC), and Boyan Boyanov (BB) all deserve special thanks. Ifeffit has been developed by MN while at The Consortium for Advanced Radiation Sciences at the University of Chicago as a complete rewrite of Autobk and Feffit. Most of the details of Autobk and Feffit have been altered to some extent for Ifeffit, and nearly every routine inherited from Autobk or Feffit has been changed. JJR, BR, and JOC have been particularly helpful in discussing the design and features of Ifeffit. Some of the source code in Ifeffit is based on general utilities and file handling code originally co-authored for Autobk and Feffit by MN and BR, and some was originally co-authored by MN and SIZ. MN has altered or completely rewritten all but the most trivial of these routines for Ifeffit. Some algorithms and code in Ifeffit are of special note: 1 The routines in sigms.f, for the Correlated Debye Model, was originally written for Feff by JJR, and altered by SIZ. MN altered it further for inclusion in Feffit, and again for inclusion in Ifeffit. 2 The code for 'error analysis', found in iff_feffit.f, iff_chieps.f, and fiterr.f is inherited (though largely re-implemented) from code in Feffit. The algorithms used were worked out jointly by MN, EAS, and PL, though they are essentially identical to the procedures described in standard statistical books. Though tested fairly thoroughly when implemented, a more detailed test and analysis of Feffit's error analysis was done by BB and DES and published [9]. The controversial use of N_idp = (2 Delta_k Delta_R/ pi) +2 as described by EAS [10] and used in Feffit, has been relaxed in Ifeffit to be N_idp = 2 Delta_k Delta_R/pi without the '+2'. 3 The routines for handling and encoding mathematical expressions were originally written by MN but the extension of these routines by MN and BR for the program PHIT inspired and influenced the way in which Ifeffit works with arrays. Ifeffit uses the graphics package PGPLOT of T. J. Pearson. Due to restrictive statements in the PGPLOT Copyright notice, PGPLOT is not incorporated directly into Ifeffit, but should be built as a separate library. PGPLOT is available for free for non-commercial use, and can be found at http://astro.caltech.edu/~tjp/pgplot/. Because of these restrictions, it is possible to build Ifeffit without PGPLOT. Ifeffit uses routines from the MINPACK package of J. J. More et al, the FFTPACK package of P. N. Swarztrauber, and the PPPACK package of C. de Boor. The original versions of these packages are freely available from the Netlib repository: http://www.netlib.org/. Though the licensing status of these codes is somewhat unclear, they are in wide use and appear to have no restrictions on use or redistribution. MN made some minor alterations to routines from these packages for use in Ifeffit. All routines from these packages needed by Ifeffit are included in the Ifeffit distribution, with their original copyright notices. Ifeffit was developed almost exclusively on Linux machines using the GNU Emacs text editor and the GNU g77 compiler. The documentation uses the TeX and LaTeX formatting system. Many of the applications for Ifeffit were written in Python and Perl, and some in Tcl. The SWIG tool was used to aid in the creation of the interfaces to these scripting languages. To simplify and improve the quality of development, the CVS and RCS version control systems have been used. To simplify distribution and the build procedure, Ifeffit uses GNU Make, Autoconf, and Automake. The availability and high quality of all of these free software packages were instrumental in the development of Ifeffit. Bibliography: [ 1] J. W. Cook, Jr and D. E. Sayers, Journal of Applied Physics, 52, p 5924 (1981). [ 2] M. Newville, P. Livins, Y. Yacoby, J. J. Rehr, and E. A. Stern, Physical Review B 47, p 14126 (1993). [ 3] J. Mustre de Leon, J. J. Rehr, and S. I. Zabinsky, Physical Review B 44, p 4146 (1991). [ 4] S. I. Zabinsky, J. J. Rehr, A. Ankudinov, R. C. Albers, and M. J. Eller, Physical Review B 52, p 2995 (1995). [ 5] M. Newville, B. Ravel, D. Haskel, J. J. Rehr, E. A. Stern, and Y. Yacoby, Physica B 208&209, p 154 (1995). [ 6] E. A. Stern, M. Newville, B. Ravel, Y. Yacoby, and D. Haskel, Physica B 208&209, p 117 (1995). [ 7] M. Newville, PhD Thesis, University of Washington (1995). [ 8] A. Frenkel, E. A. Stern, A. Voronel, M. Qian, and M. Newville, Physical Review B 49, p 11662 (1994). [ 9] M. Newville, B. Boyanov, D. E. Sayers, Journal of Synchrotron Radiation 6, p 264 (1999). [10] E. A. Stern, Physical Review B 48, p 9825 (1993). ifeffit-1.2.11d/drivers.list0000644000175000017500000001466111071235614014733 0ustar segresegre! PGPLOT drivers. !------------------------------------------------------------------------------ ! To configure PGPLOT, ensure that drivers you do not want are ! commented out (place ! in column 1). N.B. Many device-drivers are ! available on selected operating systems only. !------------------------------------------------------------------------------ ! File Code Description Restrictions ! BCDRIV 0 /BCANON Canon Laser printer (bitmap version), landscape ! CADRIV 0 /CANON Canon Laser printer, LBP-8/A2, landscape ! CCDRIV 0 /CCP DEC LJ250 Color Companion printer ! CGDRIV 1 /CGM CGM metafile, indexed colour selection C ! CGDRIV 2 /CGMD CGM metafile, direct colour selection C ! CWDRIV 0 /CW6320 Gould/Bryans Colourwriter 6320 pen plotter Std F77 ! EPDRIV 0 /EPSON Epson FX100 dot matrix printer ! EXDRIV 1 /EXCL Talaris/EXCL printers, landscape ! EXDRIV 2 /EXCL Talaris/EXCL printers, portrait ! GCDRIV 0 /GENICOM Genicom 4410 dot-matrix printer, landscape ! Caution: use of GIDRIV may require a license from Unisys: ! GIDRIV 1 /GIF GIF-format file, landscape ! GIDRIV 2 /VGIF GIF-format file, portrait ! GLDRIV 1 /HPGL Hewlett-Packard HP-GL plotters, landscape Std F77 ! GLDRIV 2 /VHPGL Hewlett-Packard HP-GL plotters, portrait Std F77 ! GODRIV 0 /GOC GOC Sigma T5670 terminal VMS ! GVDRIV 0 /GVENICOM Genicom 4410 dot-matrix printer, portrait ! HGDRIV 0 /HPGL2 Hewlett-Packard graphics language ! HIDRIV 0 /HIDMP Houston Instruments HIDMP pen plotter ! HJDRIV 0 /HJ Hewlett-Packard Desk/Laserjet printer ! HPDRIV 0 /HP7221 Hewlett-Packard HP7221 pen plotter Std F77 ! LADRIV 0 /LA50 Dec LA50 and other sixel printers ! LJDRIV 0 /LJ Hewlett-Packard LaserJet printers VMS ! LSDRIV 1 /LIPS2 Canon LaserShot printer (landscape) ! LSDRIV 2 /VLIPS2 Canon LaserShot printer (portrait) ! LNDRIV 0 /LN03 Dec LN03-PLUS Laser printer (landscape) VMS ! LVDRIV 0 /LVN03 Dec LN03-PLUS Laser printer (portrait) VMS ! LXDRIV 0 /LATEX LaTeX picture environment ! MFDRIV 0 /FILE PGPLOT graphics metafile ! NEDRIV 0 /NEXT Computers running NeXTstep operating system NUDRIV 0 /NULL Null device (no output) Std F77 ! PGDRIV 0 /PGMF PGPLOT metafile (new format, experimental) Std F77 ! PNDRIV 1 /PNG Portable Network Graphics file C ! PNDRIV 2 /TPNG Portable Network Graphics file - transparent background C ! PPDRIV 1 /PPM Portable Pixel Map file, landscape ! PPDRIV 2 /VPPM Portable PIxel Map file, portrait ! PSDRIV 1 /PS PostScript printers, monochrome, landscape Std F77 ! PSDRIV 2 /VPS Postscript printers, monochrome, portrait Std F77 ! PSDRIV 3 /CPS PostScript printers, color, landscape Std F77 ! PSDRIV 4 /VCPS PostScript printers, color, portrait Std F77 ! PXDRIV 0 /PRINTRONI Printronix P300 or P600 dot-matrix printer ! QMDRIV 1 /QMS QUIC devices (QMS and Talaris), landscape Std F77 ! QMDRIV 2 /VQMS QUIC devices (QMS and Talaris), portrait Std F77 ! TFDRIV 0 /TFILE Tektronix-format disk file VMS ! TODRIV 0 /TOSHIBA Toshiba "3-in-one" printer, model P351 ! TTDRIV 1 /TEK4010 Tektronix 4006/4010 storage-tube terminal Std F77 ! TTDRIV 2 /GF GraphOn terminal Std F77 ! TTDRIV 3 /RETRO RetroGraphics terminal Std F77 ! TTDRIV 4 /GTERM GTERM Tektronix terminal emulator Std F77 ! TTDRIV 5 /XTERM XTERM Tektronix terminal emulator Std F77 ! TTDRIV 6 /ZSTEM ZSTEM terminal emulator Std F77 ! TTDRIV 7 /V603 Visual 603 terminal Std F77 ! TTDRIV 8 /KRM3 Kermit 3 on IBM-PC Std F77 ! TTDRIV 9 /TK4100 Tektronix 4100-series terminals Std F77 ! TTDRIV 10 /VMAC Macintosh VersaTerm-PRO Tektronix-4105 emulator Std F77 ! TXDRIV 0 /TX TeX PK Font Output files ! VADRIV 0 /VCANON Canon Laser printer, LBP-8/A2, portrait ! VBDRIV 0 /VBCANON Canon Laser printer (bitmap version), portrait ! VTDRIV 0 /VT125 Dec Regis terminals (VT125 etc.) Std F77 ! WDDRIV 1 /WD X Window dump file, landscape ! WDDRIV 2 /VWD X Window dump file, portrait ! WSDRIV 0 /WS VAX workstations running VWS software VMS ! X2DRIV 0 /XDISP PGDISP or FIGDISP server for X workstations C ! XWDRIV 1 /XWINDOW Workstations running X Window System C ! XWDRIV 2 /XSERVE Persistent window on X Window System C ! ZEDRIV 0 /ZETA Zeta 8 Digital Plotter ! ! The following drivers can only be used in PGPLOT installations on MS-DOS ! systems with appropriate hardware and software. Do not select these ! on UNIX or VMS systems. ! ! LHDRIV 0 /LH IBM PCs and clones, Lahey F77 32-bit Fortran v5.0 ! MSDRIV 0 /MSOFT IBM PCs and clones running Microsoft Fortran 5.0 ! SSDRIV 0 /SS IBM PCs and clones, MS-DOS, Salford Software FTN ! ! The following driver can only be used in PGPLOT installations on Acorn ! Archimedes systems with appropriate hardware and software. ! ! ACDRIV 0 /ARC Acorn Archimedes computer ! ! Selection of the XMOTIF driver causes a stub driver to be placed in ! the main PGPLOT library. The real driver is placed in libXmPgplot.a. ! Applications that need the Motif driver should link with libXmPgplot.a ! before the PGPLOT library. This treatment means that only Motif ! applications have to be linked with Motif libraries. ! ! XMDRIV 0 /XMOTIF Motif applications containing XmPgplot widgets. C ! ! Selection of the XATHENA driver causes a stub driver to be placed in ! the main PGPLOT library. The real driver is placed in libXawPgplot.a. ! Applications that need the Athena driver should link with libXawPgplot.a ! before the PGPLOT library. This treatment means that only Athena ! applications have to be linked with Xaw libraries. ! ! XADRIV 0 /XATHENA Motif applications containing XaPgplot widgets. C ! ! Selection of the TK driver causes a stub driver to be placed in ! the main PGPLOT library. The real driver is placed in libtkpgplot.a. ! Applications that need the Tk driver should link with libtkpgplot.a ! before the PGPLOT library. This treatment means that only Tcl/Tk ! applications have to be linked with the Tcl and Tk libraries. ! ! TKDRIV 0 /XTK X-window Tcl/Tk programs with pgplot widgets. C ! ! The following driver is included solely for use by the aips++ team. ! ! RVDRIV 0 /XRV X-window Rivet/Tk programs with pgplot widgets. C ifeffit-1.2.11d/PGPLOT_install.log0000644000175000017500000000265411071235614015615 0ustar segresegre#!/bin/sh # PGPLOT install log # system = linux == linux g77_gcc # prefix = /usr/local/ # fortran compiler = gfortran gzip -dc pgplot5.2.tar.gz | tar xf - mkdir -p /usr/local//share/ifeffit/pgplot/ # driver.list written to /usr/local//share/ifeffit/pgplot//drivers.list # starting build cd /usr/local//share/ifeffit/pgplot// rm -f grfont.dat pgplot.doc pgxwin_server lib*pgplot* pgdemo* /millenia/home/newville/Codes/ifeffit/work/pgplot/makemake /millenia/home/newville/Codes/ifeffit/work/pgplot linux g77_gcc # customizing grgil.f for ifeffit sed 's|/usr/local/pgplot/|/usr/local//share/ifeffit/pgplot/|g' /millenia/home/newville/Codes/ifeffit/work/pgplot/src/grgfil.f > /millenia/home/newville/Codes/ifeffit/work/pgplot/src/grgfil_iff.f mv makefile Tmp sed 's|grgfil|grgfil_iff|g' Tmp > makefile sed 's|libpgplot|libpgplot_iff|g' makefile > Tmp sed 's|-lpgplot|-lpgplot_iff|g' Tmp > makefile # customizing xwdriv.c for ifeffit sed 's|getenv("PGPLOT_DIR")|'"/usr/local//share/ifeffit/pgplot/"'|g' /millenia/home/newville/Codes/ifeffit/work/pgplot/drivers/xwdriv.c > /millenia/home/newville/Codes/ifeffit/work/pgplot/drivers/xwdriv_iff.c mv makefile Tmp sed 's|xwdriv|xwdriv_iff|g' Tmp > makefile # fix png driver mv makefile Tmp sed 's|pndriv.o : ./png.h|#### pndriv.o : ./png.h|g' Tmp > makefile make FCOMPL= gfortran FFLAGC=-O1 libpgplot_iff.a make FCOMPL= gfortran grfont.dat prog pgplot.doc pgxwin_server cpg make clean ifeffit-1.2.11d/horae_update0000755000175000017500000004354210771740461014755 0ustar segresegre#!/usr/bin/perl -w ###################################################################### ## horae_update: network updater for athena, artemis, and hephaestus ## ## horae_update is copyright (c) 2004-2005 Bruce Ravel ## ravel _A_T_ phys.washington.edu ## http://feff.phys.washington.edu/~ravel/ ## ## The latest versions of Athena, Artemis, and horae_update ## can always be found at ## http://feff.phys.washington.edu/~ravel/software/ ## ## ------------------------------------------------------------------- ## All rights reserved. This program is free software; you can ## redistribute it and/or modify it provided that the above notice ## of copyright, these terms of use, and the disclaimer of ## warranty below appear in the source code and documentation, and ## that none of the names of The Naval Research Laboratory, The ## University of Chicago, University of Washington, or the authors ## appear in advertising or endorsement of works derived from this ## software without specific prior written permission from all ## parties. ## ## THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ## EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES ## OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ## NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT ## HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, ## WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING ## FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR ## OTHER DEALINGS IN THIS SOFTWARE. ## ------------------------------------------------------------------- ###################################################################### ## ## This script is for unix systems! ## ###################################################################### ##use strict; use Getopt::Long; my ($force, $file, $proxy, $timeout, $mirror, $auto) = (0,0,"",30,"",0); &GetOptions(help => \&usage, h => \&usage, force => \$force, auto => \$auto, "file=s" => \$file, "proxy=s" => \$proxy, "mirror=s" => \$mirror,); sub usage { print <] [--timeout=] [--mirror=] [--file=] [--help] [-h] option effect ----------------------------------- --help, -h print usage message and exit --proxy specify a proxy server --timeout specify a timeout in seconds (default=30) --mirror SourceForge mirror --file specify previously downloaded tarball --force download and install, igoring comparison of version numbers on the server and the local machine The available SourceForge mirrors are aleron (Reston, VA, USA), belnet (Brussels, Belgium), umn (Minneapolis, MN, USA), unc (Chapel Hill, NC, USA), heanet (Dublin, Ireland), ovh (Paris, France), puzzle (Bern, Switzerland), optusnet (Sydney, Australia), and voxel (New York, New York, USA). aleron is the default. Do "perldoc horae_update" for more information EOH ; exit; }; ## need to see what version of the tarball is already installed, ## taking care with the cases of it not being installed and of a ## version prior to 020 being installed my $already_installed = eval "require Ifeffit::Tools;"; my $installed_version = 0; if ($already_installed) { no warnings; import Ifeffit::Tools; $installed_version = $Ifeffit::Tools::VERSION; ($installed_version = 0) if ($installed_version =~ /^\s*$/); if ($installed_version =~ /(.+)(\d)rc(\d+)/) { ## if the installed version is 034rc1, this is translated to ## 033.1. that way it will get installed if 033 in on the ## machine, but not if 034 is on. $installed_version = $1 . $2-1 . "." . $3; }; }; ## write progress to a log file $| = 1; open STDOUT, "| tee horae_update.log"; ## set the sourceforge mirror $mirror ||= 'aleron'; $mirror = lc($mirror); my %location = (aleron => "Reston, VA, USA", belnet => "Brussels, Belgium", umn => "Minneapolis, MN, USA", unc => "Chapel Hill, NC, USA", heanet => "Dublin, Ireland", ovh => "Paris, France", puzzle => "Bern, Switzerland", optusnet => "Sydney, Australia", voxel => "New York, New York, USA", ); my $location_regex = join("|",keys(%location)); ($mirror = 'aleron') unless ($mirror =~ /^($location_regex)$/); print STDOUT " = Horae Updater (using LWP::UserAgent) version 0.9\n"; print STDOUT " = Using SourceForge mirror $mirror ($location{$mirror})\n"; print STDOUT " = Using proxy server $proxy\n" if $proxy; print STDOUT " = Timeout = $timeout seconds\n"; ## We are going to need LWP. Check to see if it is there, if it is ## not and root is running this script, fetch LWP from CPAN. unless (defined (eval "require LWP::UserAgent;")) { if ( $> ) { print STDOUT <; exit unless ($yn =~ /^y/i); require CPAN; CPAN::Shell->install("LWP"); }; unless (defined (eval "require LWP::UserAgent;")) { die " = Apparently attempting to fetch LWP from CPAN didn't work. I give up!\n"; }; }; ## since we have successfully imported LWP, set up the user agent for ## use in this transfer, set the prozy and timeout import LWP::UserAgent; my $ua = LWP::UserAgent->new; ## what about the HTTP_PROXY or CGI_HTTP_PROXY environment variables...? $ua->proxy('http', $proxy) if $proxy; $ua->timeout($timeout); ## set some variables about where to find the horae tarball on the web my %horae = (site => "cars9.uchicago.edu", path => "software/exafs/packages",); ##$horae{dir} = "http://$horae{site}/~ravel/$horae{path}/"; $horae{dir} = 'http://sourceforge.net/project/showfiles.php?group_id=80919&package_id=110138'; my $content; ## fetch a directory listing from the main SF site print STDOUT " = Attempting to fetch a directory listing from\n = $horae{dir}\n"; my $response = $ua->get($horae{dir}); if ($response->is_success) { $content = $response->content; } else { print STDOUT $response -> message; die "could not fetch $horae{dir} from server\n"; }; ## compare the SF version with the version on this computer ($horae{latest} = $1) if ($content =~ /(horae-\d+)/); die " *** Yikes! Apparently no horae tarballs were found at SourceForge!\n" unless $horae{latest}; my $version = (split(/-/, $horae{latest}))[1]; unless ($force) { unless ($version > $installed_version) { warn "\n** Well, the current version on the server is $horae{latest} and you\n"; warn " appear to be running horae-$Ifeffit::Tools::VERSION.\n"; die " exiting...\n"; }; }; ## dispatch a note about the up/downgrade to come print STDOUT "\n* Found the latest version as $horae{latest}\n"; if ($version > $installed_version) { print STDOUT " Upgrading from version horae-$Ifeffit::Tools::VERSION\n\n"; } else { print STDOUT " Downgrading from version horae-$Ifeffit::Tools::VERSION\n\n"; }; ## the --force option should override using the file found in the CWD ## (see if/elsif block just below) if ($force) { unlink "$horae{latest}.tar.gz" if (-e "$horae{latest}.tar.gz"); print STDOUT "* Forcing installation of $horae{latest}.tar.gz from the server, as requested\n\n"; }; my $used_preexisting = 0; if ($file and (-e $file) and (-s $file)) { print STDOUT "* using tarball $file as requested\n"; $used_preexisting = 1; } elsif ((-e "$horae{latest}.tar.gz") and (-s "$horae{latest}.tar.gz")) { print STDOUT "* It seems you have already downloaded the tarball. I'll use the\n"; print STDOUT " one that's already here\n"; $used_preexisting = 1; } else { ## loop though the servers looking for one that responds foreach my $site ($mirror, keys(%location)) { my $success = fetch($site, $horae{latest}); last if $success; }; }; ## if the selected server responds but does not have the tarball, then ## SF responds with a web page asking the user to choose a different ## mirror. I have to scrape this web page to get a selection of ## available mirrors. The --auto falg will loop through these until ## it finds the tarball, other wise a menu is presented to the user. open ISHTML, "$horae{latest}.tar.gz"; my $this = ; my ($i, $choices, @sites, @locations) = (0, "", (), ()); if ($this =~ /html/i) { while () { while (/([^<>]*?)<\/TD>([^<>]*?)<\/TD>]*)/gi) { ++$i; $sites[$i] = $3; $locations[$i] = "$1, $2"; $locations[$i] =~ s/^\s+//; $choices .= sprintf "%2d %-15s (%s)\n", $i, $sites[$i], $locations[$i]; }; }; die "\n\nCould not find any SourceForge servers with the latest tarball.\nYou might want to try manually downloading from SourceForge.\n" unless @sites; close ISHTML; my $choice = 0; if ($auto) { foreach my $s (0..$#sites) { print "Trying to fetch from $sites[$s] in $locations[$s]\n"; my $success = fetch($sites[$s], $horae{latest}); last if $success; }; } else { while (($choice < 1) or ($choice > $i)) { print "\n\nThe horae tarball could not be found at your selected server.\n\n"; print "Please choose from one of the following servers: (1 - $i or q to quit)\n\n"; print $choices; print "Your choice> "; $choice = ; exit if (lc($choice) =~ /^\s*[eqx]/); ($choice = 0) unless ($choice =~ /\d+/); }; print "\nYou chose $sites[$choice]\n"; my $success = fetch($sites[$choice], $horae{latest}); }; }; if ($used_preexisting) { print STDOUT "** Extracting package files from $horae{latest}.tar.gz\n\n"; my $unpack = system "gzip -dc $horae{latest}.tar.gz | tar xf -"; ## test return value of that system call if ($unpack) { warn "** Uh oh! There was trouble unpacking the pre-existing tarball.\n"; die " exiting...\n"; }; }; die " AARGH! Could not find a copy of the tarball at any SourceForge server!\n" unless (-e "$horae{latest}.tar.gz"); ## the package has been downloaded and unpacked at this point, so cd ## to the directory and build the package print STDOUT "\n* Changing directory to $horae{latest}\n\n"; chdir $horae{latest}; print STDOUT "* Beginning build incantation \"perl Makefile.PL; make; make install\"\n"; print STDOUT "** (perl Makefile.PL)\n"; do "Makefile.PL"; print STDOUT "** (make)\n"; system "make"; if ( $> ) { print STDOUT <mirror("$url", "$horae.tar.gz"); if ($response->is_success) { print STDOUT "\n** Wrote file $horae.tar.gz\n"; ## unzip and untar the tarball print STDOUT "** Extracting package files from $horae.tar.gz\n"; my $unpack = system "gzip -dc $horae.tar.gz | tar xf -"; ## test return value of that system call if ($unpack) { print STDOUT "** Uh oh! There was trouble unpacking the tarball.\n"; return 0; }; return 1; } else { print STDOUT "** ", $response -> message, $/; print STDOUT "** Could not fetch $horae.tar.gz from $site\n"; return 0; }; }; __END__ =head1 NAME HORAE_UPDATE - A network updater for athena, artemis, and hephaestus =head1 SYNOPSIS horae_update [--force] [--proxy=] [--timeout=] [--mirror=] [--auto] [--file=] [--help] [-h] The horae_update script is used to check a web repository for the latest version of the horae package and download that package if it is more recent than what is installed on the local machine. This script can be run by hand from the command line or as a periodic, scheduled process (such as a cron job). The script gets the listing of horae package releases from SourceForge and scrapes that web page for the most recent release. If the local machine needs to be updated, a SourceForge mirror will be contacted for downloading the package. Once downloaded, this script will upack the package and install it using the standard procedures for installing perl packages. The full installation requires that the script is run as root. If run as a normal user, the package will be downloaded, upacked, and built, but not installed. The script uses the LWP package, which is the set of Perl modules for doing network programming. If they are not found on the local machine, the CPAN module will be run in an attempt to download and install LWP. That requires running the script as root. This is horae_update version 0.9. =head1 COMMAND LINE OPTIONS =over 4 =item --help, -h Write a note about the command line switches to the screen and quit. =item --force This causes the script to ignore the comparison between the currently installed version and the version on SourceForge. With this switch, the most recent version on SourceForge will be downloaded and installed regardless of the version on the local machine. =item --proxy= If the local machine must connect to a proxy, use this command line argument to specify the proxy server. The argument should be the URL of the proxy server. =item --timeout= Set the timeout for the user agent. The default is 30 seconds. After this time, the agent will give up on the current SourceForge server and try the next one in the list. If you make this too short, it is possible that no server will work. If you make it too long, you may get bored waiting for the updater to finish. You may consider setting this longer than 30 seconds if you are in a continent without a SourceForge server. =item --mirror= By default the Aleron SourceForge mirror in Reston, VA, USA is used. One of the other mirrors can be specified with this argument. The allowed values are aleron Reston, VA, USA umn Minneapolis, MN, USA unc Chapel Hill, NC, USA voxel New York, New York, USA belnet Brussels, Belgium heanet Dublin, Ireland ovh Paris, France puzzle Bern, Switzerland optusnet Sydney, Australia =item --auto If the tarball is not found at the selected mirror, SourceForge returns a web page asking for a selection from a list of mirrors that do have the tarball. The default behavior of the script is to present a menu asking you to choose from the available servers. If horae_update is run with the --auto flag, it will loop through the available servers until the tarball is found. The advantage of the --auto flag is that is makes horae_update suitable for a cron job. The disadvantage is that it may try to grab the tarball from someplace very distant. If you run the updater by hand, I recommend you not use this flag. If you run it as a cron job, you B use this flag. =item --file= If you have downloaded the latest package by some other means, you can specify it with this argument. In that case, the downloading is skipped and this file is unpacked, built, and installed. =back =head1 TO DO =over 4 =item 1 Use Archive::Tar rather than a system call for unpacking the tarball. =back =head1 RELEASE HISTORY 0.9 (25 April, 2005) Added a screen scraper to present a menu of available mirrors if the default does nothave the tarball. Added the --auto flag. 0.8 (13 October 2004) Fixed a print-related bug that prevented the script from doing the "make install" step. Removed the --devel switch. 0.7 (3 August, 2004) Update to include new SF servers. Cycle through SF servers looking for one that answers. Added a configurable timeout. Added the --devel switch. 0.6 (25 May, 2004) Switch to LWP::UserAgent and add --proxy argument, use SourceForge rather than Univ. of Washington for downloads, add --mirror argument, wrote a pod 0.5 (12 April, 2004) Handle installed versions with rc in their version numbers 0.4 (11 December, 2003) Changed some language and added markup so that the log can be read efficiently using outline-mode in emacs 0.3 (6 May, 2003) Compare version numbers on local host and on server, also check to see if a tarball is already in CWD, allow several options (--help, --force, and --file) using Getopt::Long, test return value of system call to unpack archive 0.2 (31 January, 2003) Use getstore function and check HTTP status, improved regex for distinguishing a tarball from any other file with the string "horae" in it 0.1 (28 January, 2003) Initial release =head1 AUTHOR Bruce Ravel, bravel_REMOVE_THIS_@anl.gov L copyright (c) 2004-2005 Bruce Ravel =cut ifeffit-1.2.11d/mkinstalldirs0000755000175000017500000000133210771740461015164 0ustar segresegre#! /bin/sh # mkinstalldirs --- make directory hierarchy # Author: Noah Friedman # Created: 1993-05-16 # Public domain # $Id: mkinstalldirs,v 1.1.1.1 2001/02/15 01:29:37 newville Exp $ errstatus=0 for file do set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` shift pathcomp= for d do pathcomp="$pathcomp$d" case "$pathcomp" in -* ) pathcomp=./$pathcomp ;; esac if test ! -d "$pathcomp"; then echo "mkdir $pathcomp" mkdir "$pathcomp" || lasterr=$? if test ! -d "$pathcomp"; then errstatus=$lasterr fi fi pathcomp="$pathcomp/" done done exit $errstatus # mkinstalldirs ends here ifeffit-1.2.11d/config.sub0000755000175000017500000004744110771740461014354 0ustar segresegre#! /bin/sh # Configuration validation subroutine script, version 1.1. # Copyright (C) 1991, 92-97, 1998 Free Software Foundation, Inc. # This file is (in principle) common to ALL GNU software. # The presence of a machine in this file suggests that SOME GNU software # can handle that machine. It does not imply ALL GNU software can. # # This file is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # Configuration subroutine to validate and canonicalize a configuration type. # Supply the specified configuration type as an argument. # If it is invalid, we print an error message on stderr and exit with code 1. # Otherwise, we print the canonical config type on stdout and succeed. # This file is supposed to be the same for all GNU packages # and recognize all the CPU types, system types and aliases # that are meaningful with *any* GNU software. # Each package is responsible for reporting which valid configurations # it does not support. The user should be able to distinguish # a failure to support a valid configuration from a meaningless # configuration. # The goal of this file is to map all the various variations of a given # machine specification into a single specification in the form: # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM # or in some cases, the newer four-part form: # CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM # It is wrong to echo any other type of specification. if [ x$1 = x ] then echo Configuration name missing. 1>&2 echo "Usage: $0 CPU-MFR-OPSYS" 1>&2 echo "or $0 ALIAS" 1>&2 echo where ALIAS is a recognized configuration type. 1>&2 exit 1 fi # First pass through any local machine types. case $1 in *local*) echo $1 exit 0 ;; *) ;; esac # Separate what the user gave into CPU-COMPANY and OS or KERNEL-OS (if any). # Here we must recognize all the valid KERNEL-OS combinations. maybe_os=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\2/'` case $maybe_os in linux-gnu*) os=-$maybe_os basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'` ;; *) basic_machine=`echo $1 | sed 's/-[^-]*$//'` if [ $basic_machine != $1 ] then os=`echo $1 | sed 's/.*-/-/'` else os=; fi ;; esac ### Let's recognize common machines as not being operating systems so ### that things like config.sub decstation-3100 work. We also ### recognize some manufacturers as not being operating systems, so we ### can provide default operating systems below. case $os in -sun*os*) # Prevent following clause from handling this invalid input. ;; -dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \ -att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \ -unicom* | -ibm* | -next | -hp | -isi* | -apollo | -altos* | \ -convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\ -c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \ -harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp | \ -apple) os= basic_machine=$1 ;; -hiux*) os=-hiuxwe2 ;; -sco5) os=sco3.2v5 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco4) os=-sco3.2v4 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco3.2.[4-9]*) os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco3.2v[4-9]*) # Don't forget version if it is 3.2v4 or newer. basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco*) os=-sco3.2v2 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -isc) os=-isc2.2 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -clix*) basic_machine=clipper-intergraph ;; -isc*) basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -lynx*) os=-lynxos ;; -ptx*) basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'` ;; -windowsnt*) os=`echo $os | sed -e 's/windowsnt/winnt/'` ;; -psos*) os=-psos ;; esac # Decode aliases for certain CPU-COMPANY combinations. case $basic_machine in # Recognize the basic CPU types without company name. # Some are omitted here because they have special meanings below. tahoe | i860 | m32r | m68k | m68000 | m88k | ns32k | arc | arm \ | arme[lb] | pyramid | mn10200 | mn10300 | tron | a29k \ | 580 | i960 | h8300 | hppa | hppa1.0 | hppa1.1 | hppa2.0 \ | hppa2.0w \ | alpha | alphaev5 | alphaev56 | we32k | ns16k | clipper \ | i370 | sh | powerpc | powerpcle | 1750a | dsp16xx | pdp11 \ | mips64 | mipsel | mips64el | mips64orion | mips64orionel \ | mipstx39 | mipstx39el | armv[34][lb] \ | sparc | sparclet | sparclite | sparc64 | v850) basic_machine=$basic_machine-unknown ;; # We use `pc' rather than `unknown' # because (1) that's what they normally are, and # (2) the word "unknown" tends to confuse beginning users. i[34567]86) basic_machine=$basic_machine-pc ;; # Object if more than one company name word. *-*-*) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; # Recognize the basic CPU types with company name. vax-* | tahoe-* | i[34567]86-* | i860-* | m32r-* | m68k-* | m68000-* \ | m88k-* | sparc-* | ns32k-* | fx80-* | arc-* | arm-* | c[123]* \ | mips-* | pyramid-* | tron-* | a29k-* | romp-* | rs6000-* \ | power-* | none-* | 580-* | cray2-* | h8300-* | i960-* \ | xmp-* | ymp-* | hppa-* | hppa1.0-* | hppa1.1-* | hppa2.0-* \ | hppa2.0w-* \ | alpha-* | alphaev5-* | alphaev56-* | we32k-* | cydra-* \ | ns16k-* | pn-* | np1-* | xps100-* | clipper-* | orion-* \ | sparclite-* | pdp11-* | sh-* | powerpc-* | powerpcle-* \ | sparc64-* | mips64-* | mipsel-* | armv[34][lb]-*\ | mips64el-* | mips64orion-* | mips64orionel-* \ | mipstx39-* | mipstx39el-* \ | f301-* | armv*-*) ;; # Recognize the various machine names and aliases which stand # for a CPU type and a company and sometimes even an OS. 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc) basic_machine=m68000-att ;; 3b*) basic_machine=we32k-att ;; alliant | fx80) basic_machine=fx80-alliant ;; altos | altos3068) basic_machine=m68k-altos ;; am29k) basic_machine=a29k-none os=-bsd ;; amdahl) basic_machine=580-amdahl os=-sysv ;; amiga | amiga-*) basic_machine=m68k-cbm ;; amigaos | amigados) basic_machine=m68k-cbm os=-amigaos ;; amigaunix | amix) basic_machine=m68k-cbm os=-sysv4 ;; apollo68) basic_machine=m68k-apollo os=-sysv ;; aux) basic_machine=m68k-apple os=-aux ;; balance) basic_machine=ns32k-sequent os=-dynix ;; convex-c1) basic_machine=c1-convex os=-bsd ;; convex-c2) basic_machine=c2-convex os=-bsd ;; convex-c32) basic_machine=c32-convex os=-bsd ;; convex-c34) basic_machine=c34-convex os=-bsd ;; convex-c38) basic_machine=c38-convex os=-bsd ;; cray | ymp) basic_machine=ymp-cray os=-unicos ;; cray2) basic_machine=cray2-cray os=-unicos ;; [ctj]90-cray) basic_machine=c90-cray os=-unicos ;; crds | unos) basic_machine=m68k-crds ;; da30 | da30-*) basic_machine=m68k-da30 ;; decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn) basic_machine=mips-dec ;; delta | 3300 | motorola-3300 | motorola-delta \ | 3300-motorola | delta-motorola) basic_machine=m68k-motorola ;; delta88) basic_machine=m88k-motorola os=-sysv3 ;; dpx20 | dpx20-*) basic_machine=rs6000-bull os=-bosx ;; dpx2* | dpx2*-bull) basic_machine=m68k-bull os=-sysv3 ;; ebmon29k) basic_machine=a29k-amd os=-ebmon ;; elxsi) basic_machine=elxsi-elxsi os=-bsd ;; encore | umax | mmax) basic_machine=ns32k-encore ;; fx2800) basic_machine=i860-alliant ;; genix) basic_machine=ns32k-ns ;; gmicro) basic_machine=tron-gmicro os=-sysv ;; h3050r* | hiux*) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; h8300hms) basic_machine=h8300-hitachi os=-hms ;; harris) basic_machine=m88k-harris os=-sysv3 ;; hp300-*) basic_machine=m68k-hp ;; hp300bsd) basic_machine=m68k-hp os=-bsd ;; hp300hpux) basic_machine=m68k-hp os=-hpux ;; hp9k2[0-9][0-9] | hp9k31[0-9]) basic_machine=m68000-hp ;; hp9k3[2-9][0-9]) basic_machine=m68k-hp ;; hp9k7[0-9][0-9] | hp7[0-9][0-9] | hp9k8[0-9]7 | hp8[0-9]7) basic_machine=hppa1.1-hp ;; hp9k8[0-9][0-9] | hp8[0-9][0-9]) basic_machine=hppa1.0-hp ;; hppa-next) os=-nextstep3 ;; hp3k9[0-9][0-9] | hp9[0-9][0-9]) basic_machine=hppa1.0-hp os=-mpeix ;; hp3k9[0-9][0-9] | hp9[0-9][0-9]) basic_machine=hppa1.0-hp os=-mpeix ;; i370-ibm* | ibm*) basic_machine=i370-ibm os=-mvs ;; # I'm not sure what "Sysv32" means. Should this be sysv3.2? i[34567]86v32) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv32 ;; i[34567]86v4*) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv4 ;; i[34567]86v) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv ;; i[34567]86sol2) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-solaris2 ;; iris | iris4d) basic_machine=mips-sgi case $os in -irix*) ;; *) os=-irix4 ;; esac ;; isi68 | isi) basic_machine=m68k-isi os=-sysv ;; m88k-omron*) basic_machine=m88k-omron ;; magnum | m3230) basic_machine=mips-mips os=-sysv ;; merlin) basic_machine=ns32k-utek os=-sysv ;; miniframe) basic_machine=m68000-convergent ;; mipsel*-linux*) basic_machine=mipsel-unknown os=-linux-gnu ;; mips*-linux*) basic_machine=mips-unknown os=-linux-gnu ;; mips3*-*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'` ;; mips3*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown ;; ncr3000) basic_machine=i486-ncr os=-sysv4 ;; netwinder) basic_machine=armv4l-corel os=-linux ;; news | news700 | news800 | news900) basic_machine=m68k-sony os=-newsos ;; news1000) basic_machine=m68030-sony os=-newsos ;; news-3600 | risc-news) basic_machine=mips-sony os=-newsos ;; next | m*-next ) basic_machine=m68k-next case $os in -nextstep* ) ;; -ns2*) os=-nextstep2 ;; *) os=-nextstep3 ;; esac ;; nh3000) basic_machine=m68k-harris os=-cxux ;; nh[45]000) basic_machine=m88k-harris os=-cxux ;; nindy960) basic_machine=i960-intel os=-nindy ;; np1) basic_machine=np1-gould ;; pa-hitachi) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; paragon) basic_machine=i860-intel os=-osf ;; pbd) basic_machine=sparc-tti ;; pbb) basic_machine=m68k-tti ;; pc532 | pc532-*) basic_machine=ns32k-pc532 ;; pentium | p5 | k5 | nexen) basic_machine=i586-pc ;; pentiumpro | p6 | k6 | 6x86) basic_machine=i686-pc ;; pentiumii | pentium2) basic_machine=i786-pc ;; pentium-* | p5-* | k5-* | nexen-*) basic_machine=i586-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentiumpro-* | p6-* | k6-* | 6x86-*) basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentiumii-* | pentium2-*) basic_machine=i786-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pn) basic_machine=pn-gould ;; power) basic_machine=rs6000-ibm ;; ppc) basic_machine=powerpc-unknown ;; ppc-*) basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppcle | powerpclittle | ppc-le | powerpc-little) basic_machine=powerpcle-unknown ;; ppcle-* | powerpclittle-*) basic_machine=powerpcle-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ps2) basic_machine=i386-ibm ;; rm[46]00) basic_machine=mips-siemens ;; rtpc | rtpc-*) basic_machine=romp-ibm ;; sequent) basic_machine=i386-sequent ;; sh) basic_machine=sh-hitachi os=-hms ;; sps7) basic_machine=m68k-bull os=-sysv2 ;; spur) basic_machine=spur-unknown ;; sun2) basic_machine=m68000-sun ;; sun2os3) basic_machine=m68000-sun os=-sunos3 ;; sun2os4) basic_machine=m68000-sun os=-sunos4 ;; sun3os3) basic_machine=m68k-sun os=-sunos3 ;; sun3os4) basic_machine=m68k-sun os=-sunos4 ;; sun4os3) basic_machine=sparc-sun os=-sunos3 ;; sun4os4) basic_machine=sparc-sun os=-sunos4 ;; sun4sol2) basic_machine=sparc-sun os=-solaris2 ;; sun3 | sun3-*) basic_machine=m68k-sun ;; sun4) basic_machine=sparc-sun ;; sun386 | sun386i | roadrunner) basic_machine=i386-sun ;; symmetry) basic_machine=i386-sequent os=-dynix ;; tx39) basic_machine=mipstx39-unknown ;; tx39el) basic_machine=mipstx39el-unknown ;; tower | tower-32) basic_machine=m68k-ncr ;; udi29k) basic_machine=a29k-amd os=-udi ;; ultra3) basic_machine=a29k-nyu os=-sym1 ;; vaxv) basic_machine=vax-dec os=-sysv ;; vms) basic_machine=vax-dec os=-vms ;; vpp*|vx|vx-*) basic_machine=f301-fujitsu ;; vxworks960) basic_machine=i960-wrs os=-vxworks ;; vxworks68) basic_machine=m68k-wrs os=-vxworks ;; vxworks29k) basic_machine=a29k-wrs os=-vxworks ;; xmp) basic_machine=xmp-cray os=-unicos ;; xps | xps100) basic_machine=xps100-honeywell ;; none) basic_machine=none-none os=-none ;; # Here we handle the default manufacturer of certain CPU types. It is in # some cases the only manufacturer, in others, it is the most popular. mips) if [ x$os = x-linux-gnu ]; then basic_machine=mips-unknown else basic_machine=mips-mips fi ;; romp) basic_machine=romp-ibm ;; rs6000) basic_machine=rs6000-ibm ;; vax) basic_machine=vax-dec ;; pdp11) basic_machine=pdp11-dec ;; we32k) basic_machine=we32k-att ;; sparc) basic_machine=sparc-sun ;; cydra) basic_machine=cydra-cydrome ;; orion) basic_machine=orion-highlevel ;; orion105) basic_machine=clipper-highlevel ;; *) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; esac # Here we canonicalize certain aliases for manufacturers. case $basic_machine in *-digital*) basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'` ;; *-commodore*) basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'` ;; *) ;; esac # Decode manufacturer-specific aliases for certain operating systems. if [ x"$os" != x"" ] then case $os in # First match some system type aliases # that might get confused with valid system types. # -solaris* is a basic system type, with this one exception. -solaris1 | -solaris1.*) os=`echo $os | sed -e 's|solaris1|sunos4|'` ;; -solaris) os=-solaris2 ;; -svr4*) os=-sysv4 ;; -unixware*) os=-sysv4.2uw ;; -gnu/linux*) os=`echo $os | sed -e 's|gnu/linux|linux-gnu|'` ;; # First accept the basic system types. # The portable systems comes first. # Each alternative MUST END IN A *, to match a version number. # -sysv* is not here because it comes later, after sysvr4. -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \ | -*vms* | -sco* | -esix* | -isc* | -aix* | -sunos | -sunos[34]*\ | -hpux* | -unos* | -osf* | -luna* | -dgux* | -solaris* | -sym* \ | -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \ | -aos* \ | -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \ | -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \ | -hiux* | -386bsd* | -netbsd* | -openbsd* | -freebsd* | -riscix* \ | -lynxos* | -bosx* | -nextstep* | -cxux* | -aout* | -elf* \ | -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \ | -udi* | -eabi* | -lites* | -ieee* | -go32* | -aux* \ | -cygwin* | -pe* | -psos* | -moss* | -proelf* | -rtems* \ | -mingw32* | -linux-gnu* | -uxpv* | -beos* | -rhapsody* \ | -openstep* | -mpeix* | -oskit*) # Remember, each alternative MUST END IN *, to match a version number. ;; -linux*) os=`echo $os | sed -e 's|linux|linux-gnu|'` ;; -sunos5*) os=`echo $os | sed -e 's|sunos5|solaris2|'` ;; -sunos6*) os=`echo $os | sed -e 's|sunos6|solaris3|'` ;; -osfrose*) os=-osfrose ;; -osf*) os=-osf ;; -utek*) os=-bsd ;; -dynix*) os=-bsd ;; -acis*) os=-aos ;; -ctix* | -uts*) os=-sysv ;; -ns2 ) os=-nextstep2 ;; # Preserve the version number of sinix5. -sinix5.*) os=`echo $os | sed -e 's|sinix|sysv|'` ;; -sinix*) os=-sysv4 ;; -triton*) os=-sysv3 ;; -oss*) os=-sysv3 ;; -svr4) os=-sysv4 ;; -svr3) os=-sysv3 ;; -sysvr4) os=-sysv4 ;; # This must come after -sysvr4. -sysv*) ;; -xenix) os=-xenix ;; -none) ;; *) # Get rid of the `-' at the beginning of $os. os=`echo $os | sed 's/[^-]*-//'` echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2 exit 1 ;; esac else # Here we handle the default operating systems that come with various machines. # The value should be what the vendor currently ships out the door with their # machine or put another way, the most popular os provided with the machine. # Note that if you're going to try to match "-MANUFACTURER" here (say, # "-sun"), then you have to tell the case statement up towards the top # that MANUFACTURER isn't an operating system. Otherwise, code above # will signal an error saying that MANUFACTURER isn't an operating # system, and we'll never get to this point. case $basic_machine in *-acorn) os=-riscix1.2 ;; arm*-corel) os=-linux ;; arm*-semi) os=-aout ;; pdp11-*) os=-none ;; *-dec | vax-*) os=-ultrix4.2 ;; m68*-apollo) os=-domain ;; i386-sun) os=-sunos4.0.2 ;; m68000-sun) os=-sunos3 # This also exists in the configure program, but was not the # default. # os=-sunos4 ;; *-tti) # must be before sparc entry or we get the wrong os. os=-sysv3 ;; sparc-* | *-sun) os=-sunos4.1.1 ;; *-be) os=-beos ;; *-ibm) os=-aix ;; *-hp) os=-hpux ;; *-hitachi) os=-hiux ;; i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent) os=-sysv ;; *-cbm) os=-amigaos ;; *-dg) os=-dgux ;; *-dolphin) os=-sysv3 ;; m68k-ccur) os=-rtu ;; m88k-omron*) os=-luna ;; *-next ) os=-nextstep ;; *-sequent) os=-ptx ;; *-crds) os=-unos ;; *-ns) os=-genix ;; i370-*) os=-mvs ;; *-next) os=-nextstep3 ;; *-gould) os=-sysv ;; *-highlevel) os=-bsd ;; *-encore) os=-bsd ;; *-sgi) os=-irix ;; *-siemens) os=-sysv4 ;; *-masscomp) os=-rtu ;; f301-fujitsu) os=-uxpv ;; *) os=-none ;; esac fi # Here we handle the case where we know the os, and the CPU type, but not the # manufacturer. We pick the logical manufacturer. vendor=unknown case $basic_machine in *-unknown) case $os in -riscix*) vendor=acorn ;; -sunos*) vendor=sun ;; -aix*) vendor=ibm ;; -hpux*) vendor=hp ;; -mpeix*) vendor=hp ;; -mpeix*) vendor=hp ;; -hiux*) vendor=hitachi ;; -unos*) vendor=crds ;; -dgux*) vendor=dg ;; -luna*) vendor=omron ;; -genix*) vendor=ns ;; -mvs*) vendor=ibm ;; -ptx*) vendor=sequent ;; -vxsim* | -vxworks*) vendor=wrs ;; -aux*) vendor=apple ;; esac basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"` ;; esac echo $basic_machine$os ifeffit-1.2.11d/AUTHORS0000644000175000017500000000013310771740461013424 0ustar segresegreMatt Newville designed and implemented Ifeffit. See also the files THANKS and ChangeLog. ifeffit-1.2.11d/README.MACOSX0000644000175000017500000000514310771740461014233 0ustar segresegre These instructions describe how to build ifeffit for MacOS X. At this point, 'configure ; make ; make install' should work as long the prerequisites are installed. This has worked for me on 10.2 and 10.3. Currently, the ifeffit command-line interface can be built and run on Mac OS X (10.1 or higher) using XDarwin (or, I believe, the new Apple X-Windows distribution) and the Unix-like 'Fink Project'. Prerequisites: ============== First, you need Mac OS 10.1 or higher. Second, you need to install the 'Developer Tools' that come with Mac OS 10. Third, you need to download and install the Fink system, from the Fink Project web-site: http://fink.sourceforge.net/ You will need to download the Fink base system and some of its Unix-like extensions. Fink is fairly easy to use. In addition to the base system, the following 'Fink packages' are needed by ifeffit: pgplot g77 xfree86-base xfree86-rootless I think this is a complete list, but please let me know if I'm missing any. The 'readline' may be needed. At this time, there are still some problems getting Fink to work well on OS 10.2 (Jaguar). It seems that several of the PGPLOT package is in the 'unstable' part of Fink, which makes it more challenging to install. I'm sorry that I can't provide many more details yet -- check the web pages and mailing lists. Getting the Ifeffit applications Athena and Artemis to work, you'll also need to get Perl and Perl/Tk to work on Mac OS X. Again, check the web pages and mailing lists. Installation Instructions: ========================== By default, Fink puts its files under the '/sw' directory. Assuming that is the case, the following commands in a Terminal will install the command-line version of ifeffit: wget http://cars.uchicago.edu/ifeffit/src/ifeffit.tar.gz tar xvzf ifeffit.tar.gz The 'standard unix build process' should now work: sh configure --prefix=/sw make sudo make install If this does not work, you may be able to build everything without using configure at all, by doing cd ifeffit-1.2.0/src/macosx sh configure make sudo make install Both of these will build the libraries and C and fortran apps (ifeffit, feffit, autobk, diffkk), and install them into the /sw tree. If you've install Fink in a different location, you'll have to specify a different prefix to configure or edit the first few lines of the Makefile in the src/macosx directory. The extension wrappers need to be built after installation, but the configuration files for these will be generated. See src/macosx/README for more details. --Matt Newville Last update Aug-25-2003 ifeffit-1.2.11d/iconf_flib0000755000175000017500000000064010771740461014377 0ustar segresegre#!/bin/sh # shell script to fix mis-ordered FLIBS on linux inp=$1 l1='' l2='' ## echo '### INP ' $inp for d in $inp; do ### echo '>>> ' $d # echo $l2 | grep -q "\\$d" >&/dev/null # if [ $? -ne 0 ]; then l2="$l2 $d" ; fi # echo ' -L ' $l2 case "$d" in -l*.o) ;; -l*) l1="$l1 $d" ;; -L*) l2="$l2 $d" ;; esac done echo $l2 $l1 ifeffit-1.2.11d/ChangeLog0000644000175000017500000015605211117271611014131 0ustar segresegre2008-12-08 Matt Newville * Version 1.2.11d: restored feff6 to exact copy of source kit from ifeffit 1.2.10 2008-11-17 Matt Newville * Version 1.2.11c: Bug fixes: - stop extraneous print statements - return normal fit mode in ifeffit to 'real-imaginary' pairs 2007-08-11 Matt Newville * Version 1.2.11: minor fixes, especially for improved windows performance - fits can now use 'real/magnitude' pairs as well as 'real/imag' pairs, feffit(...., fit_mode='rm') for real/magnitude feffit(...., fit_mode='ri') for real/imaginary (the default) - fix bug due to incompatibilities in length of encoded math expressions. 2007-08-24 Matt Newville * Version 1.2.10: - fixed rdffdt.f to read feff.dat files without being sensitive to unix / dos / mac line endings - fixed several small bugs - PGPLOT installation and use (ie, linking and placement of grfont file) now moved to '/usr/local/share/ifeffit/pgplot'. 2006-05-26 Matt Newville * Version 1.2.9: - added some better memory management for arrays, and the variable '&heap_used', containing the fraction of array heap space used. - fixed reset() bug. - added warning when a user-defined 'fitting variable' is accessed as a 'global variable' by an internal command by getsca('var_name'). - added norm_order argument to spline(). 2005-09-14 Matt Newville * Version 1.2.8: - fixed configure script looking for curses/termcap libraries. - many changes in Windows distribution. - fixed bug in iff_shell.c so that it now works correctly on 64-bit linux. Also added '-fPIC' to FFLAGS arguments in Makefiles so that wrappers build on 64bit linux systems. - add '--with-64bit' to PGPLOT_install so that pgplot may be built on 64bit linux. - changed (fixed??) background refinement in feffit() to have the spline range extend over a wider k-range. 2005-04-07 Matt Newville * Version 1.2.7: - add &status variable to hold many status flags from commands. The &status variable will hold an integer: 1 being a warning (including 'unknown keyword' for commands) 2 something caused the command to stop prematurely 3 a more serious error, generally including hitting an internal limit, but also including 'file not found' examples: math syntax errors ('a/*b') sets &status to 2 math evaluation erors ('log(0)') sets &status to 2 unknown group or no x-array in most commands sets &status to 2 Notes: 1. &status value is NOT reset at each command (so that warnings persist through macros, for example), and need to be reset by the user. 2. the &status value will never be lowered, so that the most serious of &status levels is reflected. The whole &status mechanism is designed primarily for wrappers where this sequence is easy enough to encapsulate: execute command check &status react to &status (and maybe look at echo buffer at this point) reset &status to 0 - added math function 'penalty(x,lo_val,hi_val)' which returns: 0 for lo_val <= x <= hi_val abs(x-lo_val) for x < lo_val abs(x-hi_val) for x > hi_val this is useful for setting a restraint on a parameter so that it is preferred to fall within a given range. The penalty function gives a more gentle penalty than max(lo_val,min(x,hi_val)) and is better suited for chi-square sums (and will allow uncertainties to be estimated). - fixed bug in iff_wrdata.f so that up to 99 arrays can be written with the write_data() command. This value is set in consts.h as max_outarr and exposed as the scalar '&max_output_cols'. - upgraded readline library to readline 5.0 2004-07-08 Matt Newville * Version 1.2.6: assorted bug fixes, improvements - fixed important bug in feffit() and ff2chi() that could end up with polluted path lists. Doing a second fit in a session using fewer paths would use some leftover paths. The path list is now initialized properly. - reading of feff.inp in feff6 now uses iread() so that feff6 no longer fails because of line endings that don't match the standard for that platform. - plot markers and arrows now support color, with plot_arrow(...,color=red) plot_marker(...,color=blue) - location of the plot legend now more customizable using one of two equivalent methods: plot(...., key='data', key_x=0.9, key_y0=0.9,key_dy=0.1) or setting &plot_key_x = 0.9 &plot_key_y0 = 0.9 &plot_key_dy = 0.1 where 'key_x' is the x-location of the legend 'key_y0' is the y-location of the first key, and 'key_dy' is the vertical offset between keys. 2004-01-22 Matt Newville * Version 1.2.5: bug fixes, improved feff path lists, fixed problems with spline() clamps, restraints in feffit(), altered screen messages for autobk/feffit/feff6, and added random() command to generate arrays of random numbers. - path lists for feffit(), ff2chi(), erase(), and show() can now range over undefined paths, so that feffit(1-100,...) will use all *currently defined* paths between 1 and 100 (inclusive), even if only paths 2, 8, and 55 are defined. Here are some related changes: o path indices are strictly checked to be in the range 1..9999. o since the maximum path index is 9999, the list '1-9999' means 'all defined paths'. This can be abbreviated as 'all', as in: ff2chi(all,group=ff) which will sum all curently defined paths. o erase(@paths) and erase(@path=all) are now equivalent, both erasing all defined paths. o when erasing a path, the feff data associated with a path will be freed (if it's not in use by another path) so that new feff paths can be used. o the formatting of the output of 'show @path' and 'show @paths' has changed. R is now reported (not just reff and delr), each parameter is listed on its own line, and the path parameters 3rd, 4th, ei, and dphase are reported only if defined. - added random() command, to generate an array of random numbers, using uniform, gaussian, or normal distributions. syntax is: random(output=my.random, npts=200, dist=normal, sigma=2.) where sigma will be (approximately) the standard deviation of the normal and gaussian distributions, or the scale of the uniform distribution. Sigma is 1 unless explicitly set. You can optionally reset the seed of the random number generator with the seed keyword. The gaussian and normal distribution appear very similar, and can both be used to simulate noise in data. - chi_noise() now generates 'kmax_suggest', an estimate of the maximum usable k-value for the data, based on the estimated noise in the data. In early tests, this appears to be a reasonable estimate for 'noisy data', and a bit pessimistic for clean data. Please use this value as a guide. - clamps in spline() now try to bring chi() to zero at kmax/emax and kmin/emin instead af last and first data point. - an error in feffit() for how multiple restraints were applied has been fixed. multiple restraints can now be applied and mixed freely with multiple k-weights and multiple data sets. - improved screen messages printed by autobk/feffit/feff6: o replaced all print* statements with 'call echo()' o messages 'echo'ed to the screen are now 'tee'd to the run files autobk/feffit/feff6.run o replace all 'stop' statements with a 'call echo()' and the creation of an error file autobk/feffit/feff6.err. If this file exists after a run of autobk/feffit/feff6, then an error did occur; after successful runs, the error file will not exist. 2003-10-28 Matt Newville , with Charlotte's help * Version 1.2.4: a long list of bug fixes, increases in limits, and other improvements - n_varys now correctly reported by feffit() - increased many limits on string sizes, now generally 256 characters for most internal strings and for text variables. - increased number of paths to 256 and feff files to 512, and eliminated the distinction between 'total number of paths' and 'total number of paths for a particular data set'. - added program variables &n_guess, &n_scalars, &n_arrays, &n_scalars_set, &n_scalars_def, &n_arrays_set, &n_arrays_def, and &n_strings that contain the number of each kind of variable currently in use, and the variables &max_scalars, &max_arrays, &max_strings, &max_paths, &max_varys, and &max_data_sets to contain the maximun number of each of these kinds of data. - added show @limits to show all the '&n_*' and '&max_*' variables above plus current memory limits in &maxpts and &heap_free. - changed autobk, feffit, and feff6 to take command-line argument for input file: autobk my_inpfile.inp and so on. autobk and feffit name their log according to the input file name. - fixed annoying bug that ignored entire lines that included an EOF character, which might (on many unixes) be a valid last line of a file. - rewrote handling of repeated x-values when automatically sorting data. Previously, data points with x(i) == x(i+1) were attempted to be averaged. Now, the value of x(i+1) is increased slightly (typically 1% of x(i+2)-x(i)). This fixed odd behaviour of spline() when handed strangely ordered data by athena. - amended $column_label output of read_data() to be able to handle column labels longer than a single string can hold (256 characters, currently). The scalar ncolumn_label now holds the number of text strings used. The first string is held in both $column_label and $column_label1. Additional text strings of $column_label2, ..., $column_label9 are used, as needed. - added provisional f1->f2 capabilities to diffkk. This passes a very simple test, but is not very well-tested at this point, and may require some tweaks. Consider it a test version, and report problems! 2003-09-15 Matt Newville * Version 1.2.3: bug fixes - setting path_index now correctly makes the selected path 'the current path', and causes re-evaluation of defined variables and path parameters according to that path's values for reff, degen, etc. - fixed error with spline() not passing pre1,pre2 to pre_edge() correctly. 2003-08-21 Matt Newville * Version 1.2.2: bug fixes, build improvements bugs: - fixed error with k-space feffit() fitting so that k-weighting is now really used!! - fixed error with using reff in defined math expressions - increased size of math expressions to 256 operations/values. - changed restraint mechanism to work slightly better with multiple data sets - fixed error in read_data() that allowed core-dumps when reading files larger than the maximum array size. build improvements: - switched configure to use autoconf 2.53, including 'newer' automated searches for fortran libraries, setting default f77 compiler to g77, which should help builds on Mac OS X. - removed fortran subdirectory -- an existing, working fortran compiler is needed to build ifeffit. - fixed iconf_pgplot to check that PGPLOT directories listed in the PGPLOT make really exist (and are directories) before including them in the link arguments. - upgraded to readline 4.3 - upgraded python installation to use Pmw 1.1 2003-05-19 Matt Newville * Version 1.2.1: bug fixes: - precision error in feff6/rdinp.f prevented the pathfinder from working (completely MN's fault -- not original to feff6!!!) - fixed bug in writing output fit arrays in feffit() for multiple-k-weight fits, and with do_bkg=true. - slightly outdated Ifeffit.py had been included in 1.2.0, only noticed when building the Windows version. 2003-05-14 Matt Newville * Version 1.2.0: declared this version as the first 'stable' version of the 1.2 series, bug fixes since 1.0077: - extraneous print statements in iff_set.f removed. - background function '*.kbkg' was not correctly computed for output in feffit() 2003-04-30 Matt Newville * Version 1.0077: several changes and improvements, ranging from bug fixes to significant enhancements: - plot() now interprets 'key=""' correctly to mean to not show a legend key. - plot(reset) now works, resetting the color and style tables to the original values. - read_data() no longer automatically sorts on the first column (or any other column) by default, but rather leaves data as read unless explicitly sorted. - fixed incorrect reporting of a parsing non-error (and some related mistakes) on several math expression idioms involving nested multi-argument functions, as in this deglitching gem, which now works as expected to remove the data point closest to x=badx: new.x = join(slice(old.x,1,badx-1),slice(old.x,badx+1,npts(old.x))) new.y = join(slice(old.y,1,badx-1),slice(old.y,badx+1,npts(old.y))) - spline() and bkg_cl() now uses a new rebinning/interpolation algorithm to convert data from chi(E) to chi(k). For finely-spaced energy data such as from QEXAFS measurements, this algorithm averages over all energy points within the corresponding k range, given by [k-kgrid/2k,k+kgrid/2). Where no points lie within the k-range, a 3-point interpolation using the closest points is used. The 'interp' keyword to spline() and bkg_cl() have been deprecated and are silently ignored. - The rebin() function (which works like other interpolation functions) now uses this rebinning/averaging algorithm as well. - f1f2() now looks up and uses the 'known core-width of an edge' by default. That is, if the atom given has an edge energy in the supplied energy range, the corresponding core-width is used. - Other minor improvements were made to f1f2(), and especially in the lorenztian convolution so that it works more reliably for large, uneven arrays. - Cromer-Libermann data updated to have slightly more significant digits, which seems to be important to avoid 'weird points', which often showed up exacly at absorption edges. - feffit() and minimize() now list 'bad variables' after a fit for which error bars could not be estimated. - feffit() now produces correct chi(R) data when input chi(k) data is not on a k=0.05Ang^-1 grid. - feffit(bkg=true) now works with multiple-data-set fits. - feffit() now "correctly" sums the number of independent points for multiple-data sets as the sum of independent points in each data set. There is also a minimal checks whether the chi(k) data is repeated in a single fit (check== is the name the same or is the sum of squares of chi(k) over the fit k-range the same?). - feffit() now supports multiple-k-weights, with syntax feffit(..., kweight=2, kweight=0, kweight=4,...) which will use _all_ these k-weights (up to 5 allowed). For simple implementations of multiple-data-set fits on the same dataset with only the kweight being different, the gives numerically equivalent results. Important caveats are that the repored error bars _always_ reflect the fact that only 1 data set is really is used, and that the rest of the k- and r-range parameters are forced to be uniform. There may be some subtle differences when using other fitting add-ons, such as 'bkg=true' (ie, only one bkg function will be used) or restraints. Output arrays generated for this form of multiple-k-weight fits will use the FIRST kweight listed. 2003-01-21 Matt Newville * Version 1.0076: several changes and improvements over the past months fixed plotting bug in which all legends were not always shown, especially when making hard copies added 'unguess' command which simply converts all 'guess'ed variables to 'set' values. No arguments, no options. added 'window' command to generate an FT window without actually doing the FT. requires an x array, but otherwise acts very much like fftf(). fixed bug in reading 1-row data files. The results are now converted to scalars, with names of the form $group_prefix allow (consistently) '&', ':', and '?' in variable and group names. added math functions for array manipulations: x = nofx(m.a,x0) index of m.a with value closest to x0 m.x = join(m.a,m.b) concatenate 2 arrays m.x = slice(m.a,x0,x1) sub-array m.a[x0:x1], using fortran array conventions (first element is 1). many further tweaks to configuration procedure: - the shell script iconf_iff now automatically builds src/lib/sys.h and src/lib/maxpts.h at configure time. - the shell script iconf_flib now fixes the poorly sorted FLIBS on most Linux systems, that caused some problems with perl's MakeMaker - there is now a 'configure; make' procedure in src/macosx, with 'configure' now building a Makefile (which still might need tweaking). This uses 'uname -s' for setting darwin-specific code. Aside from GNU Readline issues, this build procedure should work on many Unix systems. 2002-11-12 Matt Newville * Version 1.0075a: tweaked build procedure so that all system-specific stuff is put into src/lib/sys.h, which is built by the shell script iff_config. The MacOS X directory (src/macosx) now has its own version of this script, and should now work. 2002-11-01 Matt Newville * Version 1.0075: switched wrapper generation to swig1.3, so that perl extension works with gcc3.2 (as on RedHat Linux 8.0) The Tcl extension has not been updated. added feff6 to source distribution reworked meaning of 'erase @path' to only set path parameters to '', and not destroy corresponding feff data, as this could trash other paths. tweaked build procedure a little. 2002-09-18 Matt Newville * Version 1.0074: fixed bug in FFTs with phase-correction. fixed bug in reporting of path parameters that values of sigma2 depending on debye() and eins() functions were not always shown to be updated. fixed bug in feffit (now version 2.98) in which parameters depending on debye(t,th) or eins(t,th) were not always updated correctly when t and th were literal constants. This especially affected non-fits. 2002-08-16 Matt Newville * Version 1.0073: added 'interpolation options' to spline() and bkg_cl(), with syntax 'interp=line', 'interp=quad', or 'interp=cubic' to change the final interpolation scheme for converting data from chi(E) to chi(k) The k-grid spacing (previously set at 0.05Ang-1) can now be set as a build time option in config.h with the parameter 'qgrid'. This and the length of the FFT arrays may eventually become run-time parameters. Changing these values should be considered as highly experimental. changed default arraysize to 'medium' (ie, 4096 elements). fixed bug in call to 'coth' math function. improved Grwin/PGPLOT on Windows to auto-raise the plotting window on all plot, cursor, and zoom commands. improvements to GIFEFFIT. 2002-06-24 Matt Newville * Version 1.0072: rewrote macro execution routine to remove the use of recursion, which was causing nested macros to not work correctly on windows. - some major changes to configuration and build procedure, especially in that perl and python wrappers are no longer built during 'configure; make', but must be made separately, and after installation. - added a &heap_free variable, which contains the number of available array elements. When this gets lower than the maximum array length (typically 8192), bad things can start to happen. Normally, &heap_free starts at 2**21 ~= 2million array elements. - fixed some errors in 'erase()' so that now the constants pi and etok cannot be erased, and 'erase @scalars' does not erase system variables (ie, '&*'). Also sped up execution times for 'erase @arrays' and '@groups'. 2002-04-02 Matt Newville * Version 1.0071: changed configuration and some plotting behavior, updated documentation - PGPLOT_install will now install the PNG driver unless explicitly told to (with --no-png). Similarly, the GIF driver can be turned off with --no-gif. - configure was changed to check which PGPLOT drivers are used and to build the list of libraries to link with explicitly. This runs the shell script ./test_pgplot to spit out the 'link libraries' for PGPLOT. It is not extensively tested across unixes. Specifically, it works with PGPLOT_install and with pre-built PGPLOT lib on Mac OS X. configure also now runs on Mac OS X, though the returned value for FLIBS seems bad. To fix this, ./configure --prefix=/sw make FLIBS='-lg2c' is necessary. This builds the C, and fortran libs and apps, but the extensions seem to need to be built after the installation of the main library. This is still under investigation -- for now, the build in src/macosx also works. - the ifeffit variable $plot_devices now contains a list of all available plotting devices for the installation. - error bars can be included in a plot: plot( dat.x, dat.y, dy=dat.dy) where dat.dy is the uncertainty in dat.y. Error bars in x: 'dx=dat.dx' is also supported. - the plot command now supports a 'one array' version: plot (dat.z) which will plot dat.z as the y- array against the _previous_ x-array, or against an dummy array of (1,2,..) if it is the first plot in a series. That is, plot energy,xmu, group='data' plot bkg now does what you would expect: plot (data.energy, data.xmu) plot (data.energy, data.bkg) 2002-03-05 Matt Newville * Version 1.0070: feffit 2.97 now appears to work completely and is included in build and installation. Like autobk, this is a 'transitional version' between the classic version and a full 'ifeffit application', and keeping the outward appearance of the 'classic version' and using the ifeffit libraries only for the low-level numeric stuff. Feffit currently uses its own version of 'the math parser' as well. - added special functions to make the generation of gaussian, lorentzian, and pseudo-voight lineshapes easier: my.y = gauss(my.x, centroid, sigma) my.y = loren(my.x, centroid, sigma) my.y = pvoight(my.x, centroid, fwhm,eta) see documentation (soon to be updated!). - added 'group' keyword to save to give a specified group to include in the save file. If used, all groups must be listed: save(group=data,group=fit,...) - fixed zoom(show) to work again. - minor updates to gifeffit. 2002-02-18 Matt Newville * Version 1.0069: added feff tables, made several changes to aid portability to Win32 and MacOS X(!), - included fefftab directory of Feff Tables. Currently these are only read by internal routines, and cannot (yet) be manipulated in the main interpreter. - provisional (ie, not very well tested) support for phase-corrected Fourier Transforms using feff tables. fftf(xx.chi, pc_edge = 'Ni K') for example. - added 'force_read' keyword to path() to force the re-reading of a feffNNNN.dat file (in case it may have changed since it was last read). - improved behavior of load() command for files and/or directories with spaces in their names (use quotes!!), and force surrounding quotes on startup file (for Win32 startup file of C:\Program Files\ifeffit\startup.iff) - addded 'macosx' directory and Makefile to build for MacOS X while avoiding 'configure;make'. This relies heavily on installin of Fink tools for MacOS X. See README.MACOSX and src/macosx/README for details. Build instructions are effectively reduced to 'cd src/macosx; view Makefile; make' This Makefile might actually be a useful starting point for other Unix and Unix-like systems that have some Unix tools in place but does not 'configure' correctly. - tweaked iff_shell.c to better link against a known installation of readline 4.2 (for MacOS X). Enough linux distributions still distribute 2.2 that it's just easier to always build a known version under 'normal build'. - feffit is now included in the build tree (src/feffit), compiles as fully double precision, and uses some of the routines in src/lib/. But this version of feffit is still SEVERELY BROKEN at the moment. Please don't use it and complain about it!! 2002-02-07 Matt Newville * Version 1.0068: bug fixes - fixed severe parse error for expressions containing min() and max() functions. - fixed error (yet another!) in setting of path degeneracy. Really, this should work now. 2002-01-27 Matt Newville * Version 1.0067: several additions - changed cursor / zoom routines from pgplot's pgcurs to pgband, showing 'zoom box' on zoom, and allowing vertical lines or cross-hairs for cursor selection. Seems to not work on Win32. - added additional plotting commands: plot_marker(), plot_text(), plot_arrow(), each of which draw to the plot window: plot_text(x,y, text_string) which is equivalent to plot (text_x=x, text_y=y, text=text_string) plot_marker(x,y, marker_number) arrows can have adjustable size, barb fraction, and angle of arrowhead, or no head at all: plot_arrow(x1,y1,x2,y2, size=3, barb=0.4, angle=45) plot_arrow(x1,y1,x2,y2, no_head) - added storage of and access to the central-atom phase-shift for a feff path. The command get_path() will now generate arrays for k, amp, phase, lambda and cphase with the 'do_arrays' keyword. - fftf() phase-corrected FTs now use a specified feff path, and either the full phase-shift or central-atom phase-shift: fftf(...., pc_path = path_index, pc_caps / pc_full ) - added 'sort' keyword to read_data to sort the data so that a selected column (by column number only) is monotonically increasing. - improved spline() and pre_edge() handling of unsorted data (sorting it internally) and for data in keV. 2002-01-07 Matt Newville * Version 1.0066: bug fixes more complete enforcement of '&maxpts' internally. Now writing 'maxpts.h' at configure time and using as an include file for almost all array size definitions. switched python module from using compile.py to using distutils for build process. changed return of the C library function iff_scaval from *double to a plain double. ifftest2.c changed accordingly. changed rule for determining comment lines in data files from "a comment character in the first character on a line" to "a comment character in the first non-blank and non-tab character on a line". comment characters can be '#%;' or a user-defined character. 2002-01-01 Matt Newville * Version 1.0065: provisional fixing of multiple bugs and annoyances: added '&maxpts' internal scalar to give maximum array size. This can now be used by perl/python modules to generate arrays. fixed severe bug in Ifeffit.pm causing get_scalar to not work (exit status of C's get_scalar had changed to 0 for success). fixed errors in ifftest2.c, and in iff_scaval() added initialization string to perl/python modules so that the interpreter is ensured to be initialized when loaded. improved the auto-scaling of the optional standard used in spline() -- it was essentially hardwired previously. Also added a keyword for 'r1st' -- distance beyond rbkg for first-shell amplitude matching. Added simple examples for using standard in spline() and for using end-point clamps. moved this ChangeLog back to root directory, altered BuildBuild to use it from root position for library build. updated athena version to removed plotting from diffkk executable, so that it can compile simply under --with-f2c compile option. 2001-10-17 Matt Newville * Version 1.0064: provisional (tested, but not completely) support for multiple-data-set fitting in feffit(). This appears easier than I originally thought, and more useful than trying to support a hybrid stand-alone feffit. Fixed lots of little problems with path definitions along the way. diffkk() command still incomplete 2001-10-05 Matt Newville * Version 1.0063: preliminary support for diffkk standalone (unstable but can be made to work) and for dkk() function in math parser (the diffkk command inside ifeffit proper is not yet working right). fixed a few bugs, including 'show @paths' possibly showing the wrong reff/degen values. several updates to reference doc improved _fortran_ interface with ifeffit.inc file. 2001-09-07 Matt Newville * Version 1.0062: several minor changes, mostly to improve documentation and python interface. updated athena version to B Ravel's latest. added provisional inclusion of diffkk into the ifeffit build system (working, poorly tested -- no plotting as of yet). 2001-07-09 Matt Newville * Version 1.0061: added B Ravel's athena perl GUI program, fixed bug in handling screen echo with log files. 2001-07-06 Matt Newville * Version 1.0060: improved C interface, adding functions iff_strval() and iff_scaval() to return pointers to ifeffit strings and scalars. Also, now allowing '#' characters in iff_put_string() calls. improved lorenztian and gaussian convolution functions to allow non-evenly spaced data to be properly convolved. turned off default startup message from library -- now assumed to be handled by calling program eliminated need for PGPLOT_DEV environmental variable, by defaulting to the '/xserve' persistent window and to '/gw' for Win32 systems. added --with-arraysize=[tiny, small, medium, large] to configure for customizing the maximum array size (which dominates the amount of memory required). The default is 'medium', which allows arrays of up to 8192 elements, and uses around ~16Mb of RAM for a typical 'spline()' and ~22Mb for a typical 'feffit()' execution. For now, I consider this to be much more efficient than necessary. 2001-06-08 Matt Newville * Version 1.0059: added options for different sizes for different plot quantities (labels, markers, on-panel text). 2001-06-05 Matt Newville * Version 1.0058: fixed deep, weird parse error essentially rewrote subroutine bkeys() to be somewhat more sensible at dealing with nested parens and quotes. print now treats '...' and "..." differently: "..." will evaluate the enclosed string, '...' will not. No other commands are affected by this change. added 'key' keyword to plot() which gives a primitive gnuplot-like legend. worked on reference manual some. added '.norm' output to spline(), which was redefining edge_step after a pre_edgg() call, but not updating the '.norm' array. 2001-06-01 Matt Newville * Version 1.0057: several bug fixes and changes, including: updated PAD library to avoid sign errors on crays, and to be in sync with version used in Feff updated use of restraints in feffit(), added keywords restraint (and restraint_01 through restraint_09). Not fully tested or documented, but appears to work in test cases. added command 'bkg_cl()' to do pre-edge subtraction, and normalization based on fit of data to Cromer-Libermann data. Not fully tested or documented, but appears to work. upgraded to GNU Readline4.2, made several improvements in build system for non-linux Unix systems. still puzzling over bug report for improper path parameter values (based on old definitions?) 2001-04-13 Matt Newville * Version 1.0056: debye bugfix, win32 update. fixed several related bugs associated with debye(), eins(), and 'path_index' that were preventing debye() and eins() to be correctly evaluated at all times. 'path_index' stores user-chosen path index for a path, and is used by many internal functions and commands, including debye() and eins(). switched Win32 to GrWin 0.997, which now builds and runs correctly, and fixes problems with cursor()/zoom() so that these now work on Win32. Makefile is now generating installation location for gifeffit, instead of relying on a hardwired /usr/local/bin. 2001-04-11 Matt Newville * Version 1.0055: fixed several bugs discovered by building Win32 DLL, mostly due to array-bounds. Win32 DLL and command-line program are both now working again. vastly improved mechanism to add an additional scalar value to function-to-minimize in feffit/minimize. 2001-03-25 Matt Newville * Version 1.0054: bug fixes, improved build system fixed bug in minimize() that broke many fits. fixed bug recently added to write_data() that prevented 'string globs' ('$title_*') from working fixed 'TERMLIB' setting for linking against readline. reworked building of perl Makefile.PL, now using ExtUtils::F77 (included with distribution). added --enable-python, --enable-perl, --enable-tcl, and --enable-all switches to configure to automate the building of the optional wrappers for these interpreted languages. All are enabled by default. So farw this works, but there are still a few issues to work out: (support for python2.0, some hardwired install directories, untest for old installations, and no installation directory of tcl extension). 2001-03-22 Matt Newville * Version 1.0053: added range() function in math parser my.x = range(0.0, 1.0, 0.05) now creates an array of 21 elements: 0.0, 0.05, ..., 1.00 range(start,stop,step) array will go up to but not exceed the value stop: range(1,2.2, 0.5) -> 1.0, 1.5, 2.0 step can be negative, but it is an error for it to be zero. minor fixes to script configurations and PGPLOT_install, tweaks of Ifeffit.pm. 2001-03-10 Matt Newville * Version 1.0052: misc fixes (working on tutorial) improved behavior of 'print' so that it doesn't chokes on unparenthesized lists. improved behavior of 'show' so that output is better aligned. fixed bug preventing k-space feffit() from working fixed bug in fft due to unitialized array data, (seemed to only show up when mixing fftf and fftr), set default limit of output for q-space data to 30Ang^-1. added support for scalars to write_data(), so that scalar names and values are written to header lines. worked on tutorial to point of calling it a completed first draft. 2001-02-27 Matt Newville * Version 1.0051: fixed minor bugs: 1. save files got broken in 1.0050: fixed. 2. one column data files can now be read. 3. added log10() function. 4. improved initialization of pre-edge/normalization routine. 2001-02-26 Matt Newville * Version 1.0050: fixed several bugs in implementation and manipulation of single flat array structure for program data, after a good bit (but not exhaustive) testing. Arrays can now have up to 16384 elements in length, and smaller arrays only use up as much room as they need (well maybe with a little padding). Erasure of arrays and re-defining arrays (the tricky parts, for sure) seem to working fine, after a few days of testing. Slight change in behavior for 'erased arrays': if an array is defined to depend soley on another array, and that dependency is erased, the dependent array will now be erased as well (since it's size is now 1: all 1-element arrays are now erased). That is a.x = indarr(1000) a.y = sin(a.x/20) erase a.x will also cause a.y to be erased. Note that a.z = sin((a.x + b.x)/30) will not be erased -- it still depends on the living b.x. add &sync_level to control how often sync() is called behind the scenes == still experimental and not fully implemented, but with the larger array sizes, repeated definitions of arrays can be notably slow. allow 'load save_file' to work as expected (that is to restore the file) -- this allows save_files to be specified on the command line list of files to load at start up: ~> ifeffit data.sav process.iff 2001-02-22 Matt Newville * Version 1.0049: non-release version, converted to a single flat array / linked-list structure for program array data. This is partially tested, but seems to work well, and allows arrays up to 16384 elements. Not well-tested for complex dependencies (with lots of sync() calls) or numerous arrays, for a full buffer (2**20 doubles in all of arrays). added src/test directory with test programs in Fortran and C src/test/ifftest1 (Fortran) and src/test/ifftest2 (C) 2001-02-20 Matt Newville * Version 1.0048: altered read_data to use a temporary buffer and then set program arrays from this. This allows the number of arrays read in to be different than the number of arrays on a single line, which is useful for large data sets or much of the data in the Lytle database. read_data(file=file, narrays=2) will force two arrays to be filled, even if each line contains 8 columns: x y x y x y x y x y x y x y x y 2001-02-20 Matt Newville * Version 1.0047: fixed several minor problems, especially determination of path list of feffit/ff2chi and feffit()'s auto-execution of chi_noise() added no_header keyword to write_data() to suppress all title lines. 2001-02-19 Matt Newville * Version 1.0046: moving steadily towards internal rearrangement of array data to allow arbitrary length arrays, moved nearly all array access in iff_* commands to function calls, changing many of the routines in misc_arr.f re-implemented use of CVS (and now checked-in properly!) partial (incomplete) rearrangement of examples/ several minor code tweaks. 2001-02-12 Matt Newville * Version 1.0045: fixed bug in call of chi_noise fixed bug in isnum() incorrectly evaluating some expressions as numerical constants. fixed bug in minimize() (genfun.f) recently introduced that killed minimization of data that did not have estimated uncertainties included 2001-01-29 Matt Newville * Version 1.0044: some progress on improving array layout and implementation tested (and several buglets fixed) portability of build to Solaris and Alpha (with f2c), neither using PGPLOT yet. Also worked on improving the PGPLOT_install script as well. 2001-01-27 Matt Newville * Version 1.0043: several minor changes to installation, configuration and scripting front-ends. Most notably, PGPLOT_install greatly expanded. changed ifeffit() startup behavior to be able to completely suppress screen echo's, even of copyright notice, by giving initial call as ifeffit('&quiet'). 2000-12-12 Matt Newville * Version 1.0042: fixed bug in iff_fft code of unitialiazed arrays that could, under certain circumstances, give bad results. add '&pause_ignore' system variable for whether to ignore pause statements -- the '-x' command-line switch in the ifeffit shell now uses this. improved support and compatiblity with stand-alone autobk code (autobk version 2.92). 2000-12-08 Matt Newville * Version 1.0041: put environmental variables for history file and size properly into shell command file. Improved several base-installation instruction files. Expanded and organized macros and examples in examples/ directory. fixed serious bug in arrays.h (tmparr dimensioned wrong). 2000-12-07 Matt Newville * Version 1.0040: fixed bug in spline() preventing reliable user setting of e0 - fixed bug in autobk's call to pre_edge - made tmparr() a global variable in arrays.h - added check for ncurses,termlib, etc in configuration 2000-10-27 Matt Newville * Version 1.0039: reworked startup and share directory $(prefix)/share/ifeffit/ so that the core interpreter loads $(prefix)/share/ifeffit/startup.iff and $HOME/.ifeffit itself on startup (if they exist). This improves flexibility of configuration and consistency between different uses of ifeffit. - added 'width' keyword to f1f2() command, and added convolve() function to math engine for convolution with a lorenztian. - made python module class based so that it can initiate the core interpreter, thereby avoiding the bug of calling put_arr() or put_scalar() before ifeffit() has been initialized. - put earlier checks on the use of trivial constants in set/guess/define and iff_eval, to avoid filling the math engine's constant buffer - added splint() function to math engine for natural cubic spline interpolation. Should probably adjust fefinp and chipth to use cubic spline interpolation of feff data, but not implemented yet. 2000-10-22 Matt Newville * Version 1.0038: added cromer-libermann calculations of f', f'' -command f1f2() calculates f'(e) and f''(e) given an atomic number and an array of energies. The calculation uses small data files of the Cromer-Libermann parameters (not interpolation tables). The data files (in src/cldata) are installed to $(prefix)/share/ifeffit/cldata and are read from the installed disk location by f1f2() for use in the calculation. The CL method is borrowed from Cowan/Brennan's version, but altered significantly. 2000-10-15 Matt Newville * Version 1.0037: macro execution for each fitting loop -feffit and minimize now supports a 'macro' argument which names a user-defined macro to execute at the end of each fitting iteration. This allows the progress of the fit to be monitored by printing the current values of the variables or by plotting some part of data/fit. 2000-10-12 Matt Newville * Version 1.0036: improved logging capabilities, correl() -log() command now opens/closes a log file to which all echos can be sent: log(file = log_file) to open log file .... all screen echos go to file log(close) to close log file with option: screen_echo = 0,1,2,3, 'tee', 'both', 'file' to set the value of &screen_echo: 0 save to echo buffer (for get_echo() from scripts) 1 normal write to screen 2 write to log file, not screen 3 write to log file and screen -correl() command turns elements of the fit correlation matrix into scalars: correl(x,y,out=correl_x_y) where the first 2 arguments are the names of fitting variables and the third argument is the name of the scalar to create holding this value (with default name correl_x_y) -added 'norm_order' keyword to pre_edge() to set order of polynomial for normalization constant. 2000-10-10 Matt Newville * Version 1.0035: several minor fixes: -gifeffit -- several tweaks, mostly about failing to properly load and execute command files with blank lines. -fixed BuildBuild to allow extra ":" on Version line (as above!) -fixed iff_show to show variable type for unfound variables -improved some warning messages -replaced repeated calls to lintrp() in chipth() with explicit call to hunt() and linear interpolation -first working implementation of 'do_bkg=true' in command feffit() to fit 'additional background'. 2000-10-03 Matt Newville * Version 1.0034: fixed debye() and eins() to work correctly with both scalar and array contexts -- both use the concept of 'current path' from program variable 'path_index'. - fixed 'show @paths' and 'show @path=N' to always (??) show the real path information 2000-10-03 Matt Newville * Version 1.0033: added erf(), erfc() and erfcx(), loggamma() special functions to math parser, and revised implementation of gamma() to be more consistent with other intrinsic functions. - improved exit behavior: retracted message from 'quit', made iff_load a function returning 1 immediately upon seeing 'quit' or 'exit' in a script, and improved command-line program to honor such exits in scripts either loaded from the ifeffit prompt or named as a command-line argument. That is, a 'quit' or an 'exit' in a script will always truly exit the library and the command-line program, and return 1 to a calling program. - encapsulated most [rdffdt not done yet] read() calls read(lun,...) line for reading from files calls with a call to function iread() that returns line length and includes a call to sclean to clean line-ending problems (dos/unix/mac) and other C v. fortran read problems. 2000-09-16 Matt Newville * Version 1.0032: added get_path() command for a simple conversion of path data to Program Variables. Not yet complete. 2000-09-16 Matt Newville * Version 1.0031: added gamma function to math expressions. also delayed putting up plot window until the first plot() command. altered 'quit' to print exit message. Other: - updated python installation to auto-install Pmw if needed - updated command-line ifeffit to accept '!ls' as a valid shell escape, and to invoke a bash shell on a bare '!'. 2000-09-11 Matt Newville * Version 1.0030: added initialization of nerstp to iff_minimize and added maximum loop-count to fiterr to avoid infinite-loop bug in minimize(). 2000-09-10 Matt Newville * Version 1.0029: changed iff_plot to use pgopen/pgslct and no longer pgbeg/pgend. 'new' plots are now handled very differently. This has several consequences -- most notably faster plotting. The default-interactive-device (read from PGPLOT_DEV) is assumed to be the normal plotting device, and any other device makes a single hardcopy (gif, ps, ...) of the current plot with a single 'plot' command. The hardcopy file is closed immediately, and the default plot is automatically reselected. There is no longer a need to re-select the '/XSERVE' device. This also means that plotting works correctly on Win32 systems using the GrWin graphics libraray, at least with Cygwin (see README.CYGWIN for details). Testing of making an executable with DVF and linking as a Win32 library is still underway. 2000-09-07 Matt Newville * Version 1.0028: several minor fixes iff_show // macro show fixed small core-dump bug added 'show @macro=full' to list full macros added commmand log() which is show() with one pre-argument (optional keyword = 'file') of a file name to write results to: log(file= Macros.iff, @macros=full) will write all macros to Macros.iff changed fiterr/gaussj call to try to stave off a bug pre-report. 2000-09-05 Matt Newville * Version 1.0027: altered subroutine preedg() to pass back coefficients of post-edge normalization curve. the pre_edge(), now saves thses to 'norm_c0, norm_c1, norm_c2', so that the curve can be reconstructed as: data.norm_curve = norm_c0 + norm_c1 * data.energy + norm_c2 * data.energy^2 autobk: (version 292a now) now writes these coefficients out to autobk.log. ifeffit (version 1.0a): several improvements to this command-line program (This is the C/ReadLine version that is auto-installed): better support for tab-completion command history (including between sessions) startup file ($HOME/.ifeffit: ifeffit commands loaded before anything else) command line arguments: files listed are 'load'ed as command files -x option means 'execute and exit' help more complete (though still not complete enough!) 2000-09-02 Matt Newville * Version 1.0026: fixed bug in iff_save -- crashed on restore of a non-existent file. 2000-08-30 Matt Newville * Version 1.0025: fixed bug in iff_rddata -- data files with more that 2048 points were causing severe errors. No truncate data -- should work on array() as a pointer-driven array. 2000-08-24 Matt Newville * Version 1.0024: fixed bug in fefinp that made defining a path with a non-existent feff.dat file cause _no_ feff files from ever being read in. 2000-08-23 Matt Newville * Version 1.0023: add sorting of energy/xmu arrays for spline, with routine 'sort_xy'. sort_xy is called in routine spline(), and having repeated points causes a warning -- but the fit of the spline works (more or less: still an issue of how iff_spline should deal with the resulting bkg array). Also: added iff_test and command '__test' for general testing purposes. 2000-08-21 Matt Newville * Version 1.0022: relaxed path parameter keywords in feffit 2000-08-21 Matt Newville * Version 1.0021: fixed errors (serious!) in sum_paths.f and fitfun.f for getting Real(chi) and Imag(chi) for fit. Also turned back on 'default params' for fft, ff2chi, and feffit commands 2000-08-19 Matt Newville * Version 1.0020: turned off all 'default params' from program variables in spline, pre_edge, fft, and feffit commands -- trying out __requiring__ all arguments to be explicit. 2000-08-17 Matt Newville * Version 1.0019: added 'norm' output to pre-edge 2000-08-15 Matt Newville * Version 1.0018: added 'find_e0' to spline 2000-06-12 Matt Newville * Version 1.0017: altered iff_color to fix background color selection. 2000-06-04 Matt Newville * Version 1.0016: altered misc_arr.f again (prenam/fixnam) 2000-06-01 Matt Newville * Version 1.0015: added 'show' to zoom, fixed 'show' for cursor 2000-05-27 Matt Newville * Version 1.0014: fixed return value for 'end macro' to be 0 in more situations. 2000-05-21 Matt Newville * Version 1.0013: fixed bug in 'fixnam' that was allowing arrays named '1.x' to be created. Now munged to '_1.x' changed python install procedure to use 'compile.py' and 'install.py. 2000-05-12 Matt Newville * Version 1.0012: add 'linestyle' command to set plot line style -- analogous to 'color' command. rewrote C wrapper: ifeffitc.c and ifeffit.h are now more complete, and have more C-like interface routines for iff_exec() [ie, ifeffit()], get_scalar(), etc. All C/Fortran calling is now confined to ifeffitc.c, allowing all wrapper modules to use the C interfaces without dealing with C/Fortran issues. This was mostly done to ease the Windows port, but may also simplify porting in general. 2000-05-11 Matt Newville * Version 1.0011: updated several things in common blocks to avoid warnings, changed lm_err() in minpack. Also played with pgplot calls -- having troubles with GrWin on WinNT -- some pgplot functionality of switching and closing devices may be broken. 2000-05-05 Matt Newville * Version 1.0010: changed array indexing so that the 'magic zero array' (ie, array that can be relied on to be full of zeros) is at maxarr, not zero. Changed indexing of arrays from 0:maxarr to 1:maxarr, and several of the routines that use this. 2000-04-24 Matt Newville * Version 1.0009: add '@group' and '@path's to 'erase' in iff_erase.f. Complete rewrite of iff_erase.f, not very well tested, but 'erase @group=x' does work (which is what I needed today!). 2000-04-24 Matt Newville * Version 1.0008: add 'notitles' option to iff_rddata, and made output $column_label string contain only the array _suffixes_. 2000-04-14 Matt Newville * Version 1.0007: rewrote iff_print to use buffer string before executing echo/chrdmp. Now works from scripting languages when '&screen_echo = 0'. added sign() function to math parser, which returns -1,0,1 based on sign of input. 2000-04-11 Matt Newville * Version 1.0006: fixed bug in iff_show, verified build with f2c. Working of configure/autoconf 2000-04-04 Matt Newville * Version 1.0005: fixed 'trivial constant' parsing in iff_set, removed one more reference to 'info buffer'. python module reworked, now with shell emulator 2000-04-03 Matt Newville * Version 1.0004: removed all references to 'info buffer' recovering from vacation, laptop theft. 2000-03-11 Matt Newville * Version 1.0003: added construction of delta_VARS to iff_minimize, and tweaked (of all things!) gaussj.f -- minpack/fiterr now completely ported to C. 2000-03-07 Matt Newville * Version 1.0002: now auto-building build.h, with version read from this file, and Keyword/Hints read from Keywords.dat. Save files upgraded to version 1.01, now recording IFeffit build info in save files. 2000-03-06 Matt Newville * Version 1.0001: Begin using ChangeLog for version numbers and update notices, working towards building source configuration options into 'build.h'. From OLD ChangeLog:: 2001-05-31 Matt Newville * Version 1.0c: upgraded to Readline 4.2 2000-09-07 Matt Newville * Version 1.0b: just plain 1 beta -- the real changelog is in src/lib/ChangeLog 2000-06-12 Matt Newville * Version 1.0.2: updated autobk setup and build to be fully compliant with stand-alone autobk (version 2.92) 2000-06-02 Matt Newville * Version 1.0.1: second release of full distribution - library much improved - minor improvements to wrappers/python and wrappers/perl - added examples/ directory with example scripts 2000-04-18 Matt Newville * Version 1.0.0: initial release of full distribution ifeffit-1.2.11d/missing0000755000175000017500000002403610771740461013763 0ustar segresegre#! /bin/sh # Common stub for a few missing GNU programs while installing. # Copyright (C) 1996, 1997, 1999, 2000, 2002 Free Software Foundation, Inc. # Originally by Fran,cois Pinard , 1996. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. if test $# -eq 0; then echo 1>&2 "Try \`$0 --help' for more information" exit 1 fi run=: # In the cases where this matters, `missing' is being run in the # srcdir already. if test -f configure.ac; then configure_ac=configure.ac else configure_ac=configure.in fi case "$1" in --run) # Try to run requested program, and just exit if it succeeds. run= shift "$@" && exit 0 ;; esac # If it does not exist, or fails to run (possibly an outdated version), # try to emulate it. case "$1" in -h|--h|--he|--hel|--help) echo "\ $0 [OPTION]... PROGRAM [ARGUMENT]... Handle \`PROGRAM [ARGUMENT]...' for when PROGRAM is missing, or return an error status if there is no known handling for PROGRAM. Options: -h, --help display this help and exit -v, --version output version information and exit --run try to run the given command, and emulate it if it fails Supported PROGRAM values: aclocal touch file \`aclocal.m4' autoconf touch file \`configure' autoheader touch file \`config.h.in' automake touch all \`Makefile.in' files bison create \`y.tab.[ch]', if possible, from existing .[ch] flex create \`lex.yy.c', if possible, from existing .c help2man touch the output file lex create \`lex.yy.c', if possible, from existing .c makeinfo touch the output file tar try tar, gnutar, gtar, then tar without non-portable flags yacc create \`y.tab.[ch]', if possible, from existing .[ch]" ;; -v|--v|--ve|--ver|--vers|--versi|--versio|--version) echo "missing 0.4 - GNU automake" ;; -*) echo 1>&2 "$0: Unknown \`$1' option" echo 1>&2 "Try \`$0 --help' for more information" exit 1 ;; aclocal*) if test -z "$run" && ($1 --version) > /dev/null 2>&1; then # We have it, but it failed. exit 1 fi echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`acinclude.m4' or \`${configure_ac}'. You might want to install the \`Automake' and \`Perl' packages. Grab them from any GNU archive site." touch aclocal.m4 ;; autoconf) if test -z "$run" && ($1 --version) > /dev/null 2>&1; then # We have it, but it failed. exit 1 fi echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`${configure_ac}'. You might want to install the \`Autoconf' and \`GNU m4' packages. Grab them from any GNU archive site." touch configure ;; autoheader) if test -z "$run" && ($1 --version) > /dev/null 2>&1; then # We have it, but it failed. exit 1 fi echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`acconfig.h' or \`${configure_ac}'. You might want to install the \`Autoconf' and \`GNU m4' packages. Grab them from any GNU archive site." files=`sed -n 's/^[ ]*A[CM]_CONFIG_HEADER(\([^)]*\)).*/\1/p' ${configure_ac}` test -z "$files" && files="config.h" touch_files= for f in $files; do case "$f" in *:*) touch_files="$touch_files "`echo "$f" | sed -e 's/^[^:]*://' -e 's/:.*//'`;; *) touch_files="$touch_files $f.in";; esac done touch $touch_files ;; automake*) if test -z "$run" && ($1 --version) > /dev/null 2>&1; then # We have it, but it failed. exit 1 fi echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`Makefile.am', \`acinclude.m4' or \`${configure_ac}'. You might want to install the \`Automake' and \`Perl' packages. Grab them from any GNU archive site." find . -type f -name Makefile.am -print | sed 's/\.am$/.in/' | while read f; do touch "$f"; done ;; autom4te) if test -z "$run" && ($1 --version) > /dev/null 2>&1; then # We have it, but it failed. exit 1 fi echo 1>&2 "\ WARNING: \`$1' is needed, and you do not seem to have it handy on your system. You might have modified some files without having the proper tools for further handling them. You can get \`$1Help2man' as part of \`Autoconf' from any GNU archive site." file=`echo "$*" | sed -n 's/.*--output[ =]*\([^ ]*\).*/\1/p'` test -z "$file" && file=`echo "$*" | sed -n 's/.*-o[ ]*\([^ ]*\).*/\1/p'` if test -f "$file"; then touch $file else test -z "$file" || exec >$file echo "#! /bin/sh" echo "# Created by GNU Automake missing as a replacement of" echo "# $ $@" echo "exit 0" chmod +x $file exit 1 fi ;; bison|yacc) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified a \`.y' file. You may need the \`Bison' package in order for those modifications to take effect. You can get \`Bison' from any GNU archive site." rm -f y.tab.c y.tab.h if [ $# -ne 1 ]; then eval LASTARG="\${$#}" case "$LASTARG" in *.y) SRCFILE=`echo "$LASTARG" | sed 's/y$/c/'` if [ -f "$SRCFILE" ]; then cp "$SRCFILE" y.tab.c fi SRCFILE=`echo "$LASTARG" | sed 's/y$/h/'` if [ -f "$SRCFILE" ]; then cp "$SRCFILE" y.tab.h fi ;; esac fi if [ ! -f y.tab.h ]; then echo >y.tab.h fi if [ ! -f y.tab.c ]; then echo 'main() { return 0; }' >y.tab.c fi ;; lex|flex) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified a \`.l' file. You may need the \`Flex' package in order for those modifications to take effect. You can get \`Flex' from any GNU archive site." rm -f lex.yy.c if [ $# -ne 1 ]; then eval LASTARG="\${$#}" case "$LASTARG" in *.l) SRCFILE=`echo "$LASTARG" | sed 's/l$/c/'` if [ -f "$SRCFILE" ]; then cp "$SRCFILE" lex.yy.c fi ;; esac fi if [ ! -f lex.yy.c ]; then echo 'main() { return 0; }' >lex.yy.c fi ;; help2man) if test -z "$run" && ($1 --version) > /dev/null 2>&1; then # We have it, but it failed. exit 1 fi echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified a dependency of a manual page. You may need the \`Help2man' package in order for those modifications to take effect. You can get \`Help2man' from any GNU archive site." file=`echo "$*" | sed -n 's/.*-o \([^ ]*\).*/\1/p'` if test -z "$file"; then file=`echo "$*" | sed -n 's/.*--output=\([^ ]*\).*/\1/p'` fi if [ -f "$file" ]; then touch $file else test -z "$file" || exec >$file echo ".ab help2man is required to generate this page" exit 1 fi ;; makeinfo) if test -z "$run" && (makeinfo --version) > /dev/null 2>&1; then # We have makeinfo, but it failed. exit 1 fi echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified a \`.texi' or \`.texinfo' file, or any other file indirectly affecting the aspect of the manual. The spurious call might also be the consequence of using a buggy \`make' (AIX, DU, IRIX). You might want to install the \`Texinfo' package or the \`GNU make' package. Grab either from any GNU archive site." file=`echo "$*" | sed -n 's/.*-o \([^ ]*\).*/\1/p'` if test -z "$file"; then file=`echo "$*" | sed 's/.* \([^ ]*\) *$/\1/'` file=`sed -n '/^@setfilename/ { s/.* \([^ ]*\) *$/\1/; p; q; }' $file` fi touch $file ;; tar) shift if test -n "$run"; then echo 1>&2 "ERROR: \`tar' requires --run" exit 1 fi # We have already tried tar in the generic part. # Look for gnutar/gtar before invocation to avoid ugly error # messages. if (gnutar --version > /dev/null 2>&1); then gnutar "$@" && exit 0 fi if (gtar --version > /dev/null 2>&1); then gtar "$@" && exit 0 fi firstarg="$1" if shift; then case "$firstarg" in *o*) firstarg=`echo "$firstarg" | sed s/o//` tar "$firstarg" "$@" && exit 0 ;; esac case "$firstarg" in *h*) firstarg=`echo "$firstarg" | sed s/h//` tar "$firstarg" "$@" && exit 0 ;; esac fi echo 1>&2 "\ WARNING: I can't seem to be able to run \`tar' with the given arguments. You may want to install GNU tar or Free paxutils, or check the command line arguments." exit 1 ;; *) echo 1>&2 "\ WARNING: \`$1' is needed, and you do not seem to have it handy on your system. You might have modified some files without having the proper tools for further handling them. Check the \`README' file, it often tells you about the needed prerequirements for installing this package. You may also peek at any GNU archive site, in case some other package would contain this missing \`$1' program." exit 1 ;; esac exit 0 ifeffit-1.2.11d/INSTALL0000644000175000017500000003250310771740461013413 0ustar segresegre Ifeffit Installation Instructions ================================= This file describes building and installing Ifeffit from source code on Unix and Unix-like systems. The essential steps are: 1. Download and unpack the distribution file. 2. Install PGPLOT with PGPLOT_install (see README.PGPLOT) Note that precompiled binary package for PGPLOT will NOT work. You MUST install PGPLOT with PGPLOT_install. 3. Configure the building procedure for ifeffit for your system, specifying whether to use PGPLOT graphics, where to install the package, and which of the optional interfaces for Python, Perl, and Tcl to install. 4. Build the Ifeffit library and executable programs. 5. Install the library and executables. 6. Build and Install optional wrappers for perl and python, and their associated scripts. 7. Post-Installation configuration. At it's simplest, the process will look something like this: ~> ~> ~> gunzip -c ifeffit.tar.gz | tar xf - ~> cd ifeffit-1.2.10 ~> ./configure ~> make ~> make install The first If you have not already installed PGPLOT for IFEFFIT, you'll need to install it __BEFORE__ configuring Ifeffit. ~> ./PGPLOT_install ------------------------------------- Special Note on Root/Non-Root access: ------------------------------------- If you have root access to the system you're installing Ifeffit on, I recommend doing all installation steps as root. If you're an old pro at installing Unix software or particularly paranoid about doing things as root, the configure and make steps above can be done as a non-root user. If you do not have root access to the machine you're installing Ifeffit on, pay particular attention to the '--prefix' arguments to the 'PGPLOT_install' and 'configure' steps below, as you'll need write access to these directories. Note that both 'configure' and 'PGPLOT_install' take a '--prefix' argument. The default for each is '/usr/local'. If you need to change this, it is recommended that you use the same value for both installation scripts. More detailed instructions follow. 1. Download and Unpack the Ifeffit tar file ------------------------------------------- The Ifeffit source distribution is available from http://cars9.uchicago.edu/ifeffit/ Download the latest source kit, and unpack it: ~> gunzip -c ifeffit.tar.gz | tar xf - ~> cd ifeffit-1.2.7 If your system does not have gunzip, you may need to install it. 2. Install and Configure the PGPLOT library ------------------------------------------- Ifeffit uses the PGPLOT library for plotting graphics. This is a separate package that must be installed before building Ifeffit. The Ifeffit configuration process (step 3) must be able to find the installed PGPLOT library, or else Ifeffit will be built without plotting graphics (everything else will still work). If you are upgrading from an earlier version of Ifeffit, there should be no need to re-install the PGPLOT library. The PGPLOT library is not bundled with or distributed with the Ifeffit distribution, and you must download it yourself. PGPLOT can be found at http://astro.caltech.edu/~tjp/pgplot/ The PGPLOT_install shell script included with Ifeffit will attempt to download and install the package for you. This script assumes the final location of the PGPLOT library will be /usr/local/share/ifeffit/pgplot. It assumes to be running as root, and presumes a linux system. It may work for other cases, but has not been fully tested. To use this script, type ~> ./PGPLOT_install PGPLOT_install assumes you want to install the PGPLOT library to /usr/local/pgplot, which probably requires the installation to be done as root. To install the PGPLOT library in another location, you can specify the installation directory explicitly: ~> ./PGPLOT_install --prefix=/home/me/pgplot Further details can be found in README.PGPLOT. You can also do a manual installation of PGPLOT, following the PGPLOT installation instructions in install-unix.txt carefully. This will work on most Unix systems, but is not the simplest installation. Please consult the README.PGPLOT file in the Ifeffit distribution for more details. I'd like the ./PGPLOT_install script to work for everyone, so if you have problems with it, please consult me. 3. Configure the building procedure for your system -------------------------------------------------- Type './configure', or 'sh configure'. Configure takes several options. The most important are: --prefix --with-arraysize=[small,medium,large] --with-pgplot / --without-pgplot --with-fortran=name of fortran compiler The full set of options can be listed with './configure --help' == --prefix The --prefix option specifies which directory should be used to install the Ifeffit package. By default, the prefix is /usr/local, which will install executable programs (ifeffit, autobk, and possibly gifeffit) in /usr/local/bin, and ifeffit data files to /usr/local/share/ifeffit. == --with-arraysize=[tiny,small,medium,large] This switch sets the largest array size (ie, number of elements) in the ifeffit library. Since ifeffit is written in statically-typed Fortran, this upper limit is fixed when the library is built. This limit directly effects the amount of memory needed to run the program. Currently the values for arraysize and the corresponding maximum array size are: tiny 2048 point arrays small 4096 point arrays medium 8192 point arrays large 16384 point arrays The default is currently '--with-arraysize=medium '. This will cause the command-line version to occupy up to ~20Mb of memory while running. For machines with less than 64Mb of RAM, it may be necessary to modify the default size. For most EXAFS analysis problems, arrays of size 2048 are plenty long enough, and using '--with-arraysize=tiny' will be adequate. For some analyses, particularly DAFS-related, using larger arrays is better, and sometimes it's just convenient to be able to use much larger arrays. For machines with more that 128Mb of RAM, I've not seen any problems with '--with-arraysize=large'. == --with-fortran=[gfortran g77 g95 f77 xlf] Specify the fortran compiler to use to build Ifeffit. Note that under normal circumstances, this must be the same one used to build PGPLOT. Use the --with-fortran option with PGPLOT_Install if the one automatically found is not the right one. This option is provided because some early versions of gfortran (even in the 4.0 and 4.1 series) have some problems, though may be the only fortran compiler installed on some linux systems. == --with-pgplot, --without-pgplot, --with-pgplot-link These options tell the configuration script: --with-pgplot=/dir location of the PGPLOT directory --without-pgplot do not use PGPLOT, no graphics version. --with-pgplot-link='L...' exactly how to link with the PGPLOT lib. If the PGPLOT library has been installed using PGPLOT_install, there should be no need to explicitly set any of these. The --with-pgplot option specifies the location of the PGPLOT library file, libpgplot_iff.a. You can explicitly specify the location like this: --with-pgplot=/usr/local/share/ifeffit/pgplot/ You can also explicitly tell Ifeffit to build _without_ the PGPLOT library, by saying --without-pgplot You can also fully specify how the linker should link to the PGPLOT library with something like --with-pgplot-link='-L/usr/local/share/ifeffit/pgplot -lpgplot_iff -lpng -lz -L/usr/X11R6/lib -lX11' This should not be necessary. The Ifeffit configuration will look for PGPLOT and try to determine how to use it. See README.PGPLOT for more details, or run the shell script iconf_pgplot to find out how Ifeffit will think PGPLOT is configured on your system. 4. Build the Ifeffit library and executable programs ---------------------------------------------------- Type 'make'. This will build the ifeffit library, a simple command-line interface, and the latest versions of autobk, feffit, and diffkk. 5. Install the Package ---------------------- Type 'make install'. This will install the following files, using 'prefix' as specified during configuration (/usr/local/ by default): prefix/bin/ ifeffit - interactive, command-line program autobk - XAFS background removal program feffit - XAFS fitting program feff6l - ab initio XAFS calculation program diffkk - convert XAFS to anomalous scattering factors prefix/lib/ libifeffit.a - main Ifeffit library libnopgplot.a - dummy PGPLOT library prefix/include ifeffit.h - header for C interfaces prefix/share/ifeffit/ startup.iff - system-wide ifeffit startup file config/ifeffit.h - header for C interfaces config/Makefile.PL - Perl Makefile.PL config/setup.py - Python Setup file config/TclSetup.in - Tcl Setup and Build instructions config/Config.mak - description of libraries to use to build with the current configuration suitable for Makefile cldata/*.dat - data files for Cromer-Libermann f' and f'' data fefftab/*.dat - data files for Feff Tables pgplot/ - pgplot installation directory 6. Building and Installing the Optional Wrappers for Python, Perl, and Tcl ----------------------------------------------------------------------- The scripting-language wrappers for the Ifeffit library are useful for developing high-level applications. Even if you aren't planning on using them directly, you may want to use some application that requires one of these wrappers, including the several GUIs that exist for Ifeffit. All the files needed to build each of the wrappers should be under the wrapper directory: wrapper/perl, wrapper/python, and wrapper/tcl. These extensions are not automatically built with ifeffit, and must be built after Ifeffit is installed. Please copy the appropriate configuration file generated during the Ifeffit build and installed into $prefix/share/ifeffit/config. 6.1 Python wrapper This will install the Python interface to Ifeffit, and gifeffit, a GUI program. It is assumed that python 1.52 or higher is installed on your system, and that the Tkinter module is installed: ~>cd wrappers/python ~>cp $prefix/share/ifeffit/config/setup.py . ~>python setup.py install Some pre-installed versions of python on some linux distributions do not come with enough python development tools to build extensions. For such cases (RedHat6.1, I believe), you should find and install the 'python-dev' package, or build python from sources. 6.2 Perl wrapper This will install the Perl interface to Ifeffit, but not any of the perl applications such as Athena, Atoms, or Artemis. Please get those from Bruce Ravel's website. It is assumed that perl5.003 or higher is installed: ~>cd wrappers/perl ~>cp $prefix/share/ifeffit/config/Makefile.PL . ~>perl Makefile.PL ; make ; make install 6.3 Tcl wrapper The tcl wrapper can be built like this: ~>cd wrappers/tcl ~>cp $prefix/share/ifeffit/config/TclSetup.in . ~>sh Build I don't know of a standard way to install Tcl modules... 7. Post-Installation Customization ---------------------------------------------------- Once Ifeffit is installed, you [as a normal, non-root user] should be able to run the command-line program ifeffit, and (if installed) the GUI gifeffit. There are a few customizations you may want to perform. You'll probably want to put these in your startup file (.cshrc for csh, .profile or .bashrc for bash). By default, the 'X Server' PGPLOT graphics device is used. This creates a persistent PGPLOT window that remains after you exit ifeffit, and can be used in later ifeffit sessions. If you'd prefer a graphics window that goes away as soon as you exit the program, you can set the environmental variable PGPLOT_DEV to '/xwin'. If you're using csh shell, this looks like ~> setenv PGPLOT_DEV /xwin for bash, the syntax is ~> export PGPLOT_DEV=/xwin If you would like to pre-define some ifeffit macros, put them in the file .ifeffit in your home directory. This file will be 'load'ed at startup, just after the system-wide macros (from ....share/ifeffit/startup.iff as installed above). --------------- Test Procedures --------------- (Currently a work-in-progress) The test programs src/test/ifftest1 and src/test/ifftest2 are designed to test the core functionality of the ifeffit library and interpreter and the ability to use the library from Fortran and C programs. These tests should be run from the src/test directory, and will report success and failure of the primitive functionality. The programs do not test of the reasonableness of backgrounds generated by the spline command, and so on, only if the interpreter and commands can be executed without error. In addition to these compiled test programs, the examples in the examples/ directory provide a means of testing the 'reasonableness' of the behavior of Ifeffit. --Matt Newville Last update Mar-31-2005 ifeffit-1.2.11d/examples/0000755000175000017500000000000010771740461014175 5ustar segresegreifeffit-1.2.11d/examples/u.iff0000644000175000017500000000303210771740461015125 0ustar segresegredef test=reff path(1, feff=feff/feff0001.dat, delr=test, sigma2=reff) path(2, feff=feff/feff0002.dat, delr=test, sigma2=reff) path(3, feff=feff/feff0005.dat, delr=test, sigma2=reff) show @paths # reading feff0001.dat # reading feff0002.dat # reading feff0005.dat # PATH 1 # feff = feff0001.dat # id = # reff = 2.552700, degen = 12.000000 # s02 = 1.000000, e0 = 0.000000 # dr = 0.000000, ss2 = 2.552700 # 3rd = 0.000000, 4th = 0.000000 # ei = 0.000000, dphase = 0.000000 # PATH 2 # feff = feff0002.dat # id = # reff = 3.610000, degen = 6.000000 # s02 = 1.000000, e0 = 0.000000 # dr = 2.552700, ss2 = 3.610000 # 3rd = 0.000000, 4th = 0.000000 # ei = 0.000000, dphase = 0.000000 # PATH 3 # feff = feff0005.dat # id = # reff = 4.421300, degen = 24.000000 # s02 = 1.000000, e0 = 0.000000 # dr = 3.610000, ss2 = 4.421300 # 3rd = 0.000000, 4th = 0.000000 # ei = 0.000000, dphase = 0.000000 # # # reff, delr, and sigma2 should all be the same for each path. However, # delr is set to reff via a def parameter. The def parameter is # evaluating using the previous path index's reff in each case. # # I got curious to see if # def test = debye(10,350) # path(1, feff=feff0001.dat, sigma2=test) # etc. # would trip a similar bug. Apparently not. Whew! # # B ifeffit-1.2.11d/examples/autobk_feffit/0000755000175000017500000000000010771740461017005 5ustar segresegreifeffit-1.2.11d/examples/autobk_feffit/rdf/0000755000175000017500000000000010771740461017560 5ustar segresegreifeffit-1.2.11d/examples/autobk_feffit/rdf/feffit.inp0000644000175000017500000000061210771740461021532 0ustar segresegre# very simple feffit.inp title = basic feffit test data = cu.chi, 1 out = fit.dat rmin = 1.75 rmax = 3.25 kmin = 2.0 kmax = 17.0 dk = 2 kweight= 2 guess e0 = 0.0 guess dr = 0.0 guess s02 = 0.9 guess sig2 = 0.0 path 1 ../feff/feffcu01.dat s02 1 s02 e0 1 e0 delr 1 dr sigma2 1 sig2 ifeffit-1.2.11d/examples/autobk_feffit/rdf/cu_rdf.xmu0000644000175000017500000004245410771740461021566 0ustar segresegre$ðÀØØ XMU GKEGJ TTTTK c9 Fga F‚‰ F‹± F«Ù F¹ FÞ) FñQ Fðy F¢ F6Ê FQò FX FwB F‚j Fy’ Fˆ” Fl– FO˜ F3š FCœ F'ž F   F¢ Fþ£ F⥠Fǧ F«© Fç« F ­ Fƒ¯ Fh± F¤³ F‰µ FB· F&¹ Fc» FG½ F,¿ FåÀ Fö FÛÄ FÁÆ F¥È F¶Ê F›Ì FÎ FfÐ FKÒ F\Ô FBÖ F'Ø F Ú FóÛ FÞ Fêß FÐá Fµã FÇå F­ç F“é Fyë F_í Fqï FXñ F>ó F$õ F ÷ Fù Fû Fêü FÐþ F· Fž F° F— F~ Fe FL F_ FF F- F Fü Fã Fö FÞ FÅ F­ F”! F¨# F% Fw' F_) FG+ F/- F/ F+1 F3 Fû4 Fã6 FË8 F³: Fô< FÜ> FÅ@ FB FiD FRF F:H F|J F8L F N F P FòQ FÛS FÄU FÙW FÃY F¬[ F–] F~_ Fha FQc F:e FPg F:i F#k F m F÷n Fàp FÊr F´t F÷v Fáx FËz Fˆ| Fr~ F\€ FF‚ F1„ F† F2ˆ FŠ FŒ Fñ FÜ FÇ‘ F²“ Fœ• F‡— Fr™ F‰› Ft F_Ÿ FK¡ F6£ F ¥ F § F÷¨ F⪠Fά F¹® F¥° F½² F©´ F”¶ F€¸ Flº FX¼ FD¾ F0À F FÄ FóÅ FàÇ F?Ì FÐ F)Õ F¶Ù FCÞ Füâ F¶ç Fžì F…ñ Fmö F‚û FÄ F FJ F» F, F F F”D F¾J FèP F?W F—] Fd F¤j F+q Fàw F–~ Fy… F]Œ FB“ F‚š Fá Fª¨ Fí¯ F^· FϾ FAÆ FáÍ F‚Õ FQÝ F"å F!í Fóô F!ý F"FR F±FFž&F/F7F"@FâHFÑQF“ZF²cF¤lFôuFé~F:ˆFŽ‘F›F“¤FE®Fù·F¯ÁFfËFÕFßFéF6óFPýF™FF`FÝ&F‰1F <FçFF™QFz\F^gFqrF†}FˈFä“F\ŸF§ªF"¶FÎÁFNÍF,ÙFÞäFÁðF¥üF»FÓFì F7-F„9FÓEFSRF_FŠkFAxFø„Fâ‘FÏžF½«FÞ¸FÆF&ÓF}àFÖíFcûFñF‚FE$F 2FÔ?FÎMFÌ[FÌiFxF6†Fo”FÚ¢FH±Fê¿F^ÎFÝFàëFîúFŸ FƒFš'Fµ6F3FFTUF©dF1tF½ƒFL“FߢF¦²FpÂF>ÒFAâFEòFF½Fþ"FC3F½CF:TFídFruF-†F—FݧFÕ¸FÊFÛF5ìF ýFÝFP FÇ1FtCFôTFÛfF–xF…ŠFyœF¥®F¢ÀFÖÒFåFM÷FÁ FlF·.FlAF%TFãfFÙyFFÓŸF ³FFÆF‡ÙFÎìFFF%'F´:FzNFEbFvFì‰FüF²F*ÆF}ÚFÕîF3F—F4,F×@FUF–jFF”F,©F&¾F[ÓF–èFÕýFPFÑ(FX>FæSF®iFHF•F-«FÁF,×F„íFzFàFM0FÁFF9]FºsF­ŠF;¡F<¸FCÏFæåFûüFFq+FœBFZFsqFéˆF FX¸FÐFåçF·ÿFÇFÝ/FýGF#`FQxF¾F3©F¯ÁF3ÚF÷òFà F_$Fr=FRVF{oFqˆF¤¡F»F\ÔF×íF3Fà Ff:FHTFömFá‡FסF×»FÖF3ðF… F®$F?FöYF3tF)F{©F{ÄFßF3úFFH0F{KF¸fF‚FFì¸F…ÔFfðFá F¤' FfC Fq_ F…{ F¤— Fͳ FÐ F3ì Fö!FH%!F¤A!F{^!Fìz!F×—!F×´!F×Ñ!Fqî!F "F®("FF"F\c"F¤€"F)ž"Fû"FfÙ"F÷"FÍ#F2#FšP#Fqn#FŒ#Fê#FöÈ#F=ç#FÃ$F\$$F…B$F3a$Fì$F¸ž$F…½$FfÜ$FRû$F…%F…9%FÍX%F)x%F…—%F3·%FqÖ%Fö%FÍ&Fq5&F\U&Fu&F•&F)µ&FHÕ&Fqõ&Fá'F)6'F¸V'Fw'F×'F{¸'F{Ù'FÍù'Fì(F×;(F ](FÍ}(FŸ(F…À(F®á(F))F¸$)FHF)Fìg)F¤‰)F\«)FqÍ)FHï)F3*Ff3*F®U*FÃw*Fš*F×¼*Fß*Fš+F{$+F)G+Fj+F¤Œ+F¸¯+FšÒ+FÍõ+F,F<,F…_,Fö‚,Fq¦,FÊ,Fší,F=-F5-F Y-Fá|-F ¡-FÅ-FHé-F\ .F 2.F=V.F…z.FŸ.F Ä.F{è.F= /F\2/FöV/Fì{/F=¡/FšÆ/F{ë/Fö0F360F×[0F…0Fö¦0FÃÌ0F¤ò0F1F>1F d1F)Š1F¥;û1•ºo€“ºù‡ºÑTrºµ=|ºÆ½)ºþºÉ‰û¹>¶¹ÿmU¹/ìc8ÉB¬9 h7:@«:Š;˜1;úb;Œy;7;ý×;;Úí!;Z";…Ç$;<Ë*;ß?*;u’-;3ì0;‘A<;o²:;ƒË>;F;|kF;}”J;Á~N;§ÄO;¿¾W;:];?Œa;ƒg;Ç!k;Æ°v;b­u;¬|;ã,‚;â5…;˜ßˆ;•õŒ;òW;á­;S2”;ÔIš;œ;Ÿnž;A%¥;ÏË¥;ȃª;S±;i]³;T@»;ñFÀ;©ñÀ;œüÇ;‰0Ì;ÕeÑ;àÚ;Dlß;^Íç;$Ÿë;¤Tó;ƒRú;»Ï<ɼ<0 <Úá "¹A>@ˆ•>¸g¿>£øè>CXñ>¹ ø>ow÷>nEò>¼ì>í¸é>^^í>¬àò>Pý>¢‚?eR ?M\ ?ÄÄ?Y±?xÀ?0Ó$?Œü,?Ít8?4A?åqM?½­Y?Axb?¸n?Ìüw?·ã€?Wʃ?ÒP†?6Æ?_ø…?¹„?—œ‚?—/€?å]|?—Ùw?Kûs?éÒq?2cp?0¶o?ѱp?[ør?ë¦v?7)~?ò”?O„?+~†?áˆ?fÞ‰?ª‰?­Ÿˆ?R²†? …?žƒ?§Ô€?{L|?nÑy?—Áu?/Is?´›p?¿pn?Ñ`k?ñ9i?’g?ÿe?;—d?Êbd?e?Î9g?È9j?_m?Âs?‡Öx?]}?Áð?…? ‡?Ò“‰?Ù‰?ôÿ‡?ŸÌ„?ýd??{?8‘u?(¡q?Œo?î„n?Z·o?ÈSr?9Ît?Fu?5ƒt?Öws?RPt?’Zw?,|z?ü\{?åÑz?¬+{?9®}?Ž«€?ÙB‚?kHƒ?/V„?í®…?"ƒ‡?4s‰?3ôŠ?‘‹?+¹‰?Ú†?Cƒ?S­?Åz?ó\v?v$t?¢¬s?QLq?ƒ„k?‚f?ô)b?œra?sÑc?Sh?-Sm?[s? y?ä±|?…}?Iâ{?ày?ùny?å#~?5“„?²r‹?YêŽ?p?\?DŒ?°%Š?/׆?T‚?çiy?’­m?b?MX?oÝQ?GQ?ù½V?\`?w½k?3Ív?±Ò}?ƒØ€?¼†€?„ä|?=Dy?¦{w?èÇv?MÌs?r©o?(òn?[gt?ò?Ü„?› †?šÙ†?ôù…?»ƒ?l0?gu?Þ˜k?R€d?E7`?F^?J'_?jÀb?ÈIe?²ie?Í3f?h/g?ÆËg?v¹i?/cm?R¨p?±ýr? At?Ø–t?'§t?Iæu?©w?ƒäy?)º{?f‡y?o t?Sïo?<Îj?`4f?Y'd?æñd?U:g?ðh?{›g?g…c?ö.^?÷[? ¶^? †a?9Ùa?Å5c?î5e?-Mf?!hg?,Ÿh?_¤i?…´j?%fk?Ì×k?9l?7„l?÷4l?ø„j?ú g?Ùæb??\_?$^?go^?½¬_?‰}a?%b?¯Xb?œî`?u^?’`[?[?,\?/þ[?›ÚZ? vZ?T­Z?Íà[?>´]?TZ_?(2a?…c?¸]e?à"f?Üge?šûb?›^?Ü4Z?2\X? þW?ûX?²X?YX?ÂüX?¶EY?ÊX?[uX?DSX?"®W?V?z„U?è³U?ËU?„‹V?/*W?KW?NW?jCX?cHY?š?Y?â¡X?¢ßW?‡!W?Å°V?œêU?m T?©ÁS?«SS?ƒ S? TS?ØïR?"íQ?K¼Q?=ÖQ?–šQ?)êP?†qP?q0P?ΊO? ¡O?P?mˆP?€xQ?©©Q?õ©Q? ‡Q?ÔÜP?3»O?vO?{O?c^O?„O?ˆO?G%O?Ü+N?+QM?°‹L?~ L?kèK?¶K?¡YK?Ë K?àJ?2±J?LÇJ?1œJ?Ú‘J?”èJ?ñ/K?4=K?«K?wÓJ?,‚J?å9J?¶þI?ð˜I?¾ I?J§H?RgH?‡[H?r`H?KYH?CÓG?»vG?êuG?ÑG?­F?AF?>úE?ÊÈE?SˆE?;9E?ìE?‡E?¹jE?rÀE?Ó©E?ó}E?ÜE?³ùD?üÅD?Ê‚D?ý+D?áÛC?C?‚\C?Ô9C?ŸÿB?ÇÙB?ßâB?¨¨B?>dB?OB?P·A?ö{A?žRA?t+A?{A?ºA? #A?A?%A?‰Å@?$@?mƒ@?Š`@?*=@?ƒ@?Ññ??9Ô??—¯??Ûz??ƒK??þ>?¾>?ĉ>?4\>?«=>?Ì1>?ª>?ùÖ=?þ¨=?á|=?†X=?uH=?ßG=?89=?£þR5? g5?/C5?t95?H75?1+5?z!5?H5?)5?5?©5?ª5?kò4?¹ú4?£í4?oç4?Då4? á4?Œâ4?­å4?$×4?Qâ4?OÝ4?§×4?ß4?Ù4?ÂÜ4?5Ý4?_å4?å4?data : Cu 50K, bare autobk xmu: from skey ASCII of cu50k.dat using simple minimization e0 = 8977.58; pre-edge range =[ -50.0 -200.0]; edge step = 2.281 k range=[ 0.00 25.00]; k weight= 1.00; sills dk1, dk2 = 0.00 0.00 bkg r =[ 0.00 0.98]; 15 knots in spline Cu foil at 50K # cu50k.dat : this file is part of the uwxafs 3.0 distribution data taken at NSLS beamline X-11A Sept 1992 by M Newville, B Ravel, and Y Zhang foil of 99.999% Cu rolled and annealled to ~12 microns sample prepared by M Newville From X-11A : 2-SI111 HC/2D= 1977.260 STPDEG=6400. STPMMZ= 40. FOCUS=F TRANSLT=F E0= 8980.0 NREG= 3 NPTS= 619 NSCLRS= 3 EF= .0 SRB= -197.6 -47.3 30.0 2381.3 DEL= 10.020 .483 .050K SEC= 1.000 1.000 1.000 c9 Fga F‚‰ F‹± F«Ù F¹ FÞ) FñQ Fðy F¢ F6Ê FQò FX FwB F‚j Fy’ Fˆ” Fl– FO˜ F3š FCœ F'ž F   F¢ Fþ£ F⥠Fǧ F«© Fç« F ­ Fƒ¯ Fh± F¤³ F‰µ FB· F&¹ Fc» FG½ F,¿ FåÀ Fö FÛÄ FÁÆ F¥È F¶Ê F›Ì FÎ FfÐ FKÒ F\Ô FBÖ F'Ø F Ú FóÛ FÞ Fêß FÐá Fµã FÇå F­ç F“é Fyë F_í Fqï FXñ F>ó F$õ F ÷ Fù Fû Fêü FÐþ F· Fž F° F— F~ Fe FL F_ FF F- F Fü Fã Fö FÞ FÅ F­ F”! F¨# F% Fw' F_) FG+ F/- F/ F+1 F3 Fû4 Fã6 FË8 F³: Fô< FÜ> FÅ@ FB FiD FRF F:H F|J F8L F N F P FòQ FÛS FÄU FÙW FÃY F¬[ F–] F~_ Fha FQc F:e FPg F:i F#k F m F÷n Fàp FÊr F´t F÷v Fáx FËz Fˆ| Fr~ F\€ FF‚ F1„ F† F2ˆ FŠ FŒ Fñ FÜ FÇ‘ F²“ Fœ• F‡— Fr™ F‰› Ft F_Ÿ FK¡ F6£ F ¥ F § F÷¨ F⪠Fά F¹® F¥° F½² F©´ F”¶ F€¸ Flº FX¼ FD¾ F0À F FÄ FóÅ FàÇ F?Ì FÐ F)Õ F¶Ù FCÞ Füâ F¶ç Fžì F…ñ Fmö F‚û FÄ F FJ F» F, F F F”D F¾J FèP F?W F—] Fd F¤j F+q Fàw F–~ Fy… F]Œ FB“ F‚š Fá Fª¨ Fí¯ F^· FϾ FAÆ FáÍ F‚Õ FQÝ F"å F!í Fóô F!ý F"FR F±FFž&F/F7F"@FâHFÑQF“ZF²cF¤lFôuFé~F:ˆFŽ‘F›F“¤FE®Fù·F¯ÁFfËFÕFßFéF6óFPýF™FF`FÝ&F‰1F <FçFF™QFz\F^gFqrF†}FˈFä“F\ŸF§ªF"¶FÎÁFNÍF,ÙFÞäFÁðF¥üF»FÓFì F7-F„9FÓEFSRF_FŠkFAxFø„Fâ‘FÏžF½«FÞ¸FÆF&ÓF}àFÖíFcûFñF‚FE$F 2FÔ?FÎMFÌ[FÌiFxF6†Fo”FÚ¢FH±Fê¿F^ÎFÝFàëFîúFŸ FƒFš'Fµ6F3FFTUF©dF1tF½ƒFL“FߢF¦²FpÂF>ÒFAâFEòFF½Fþ"FC3F½CF:TFídFruF-†F—FݧFÕ¸FÊFÛF5ìF ýFÝFP FÇ1FtCFôTFÛfF–xF…ŠFyœF¥®F¢ÀFÖÒFåFM÷FÁ FlF·.FlAF%TFãfFÙyFFÓŸF ³FFÆF‡ÙFÎìFFF%'F´:FzNFEbFvFì‰FüF²F*ÆF}ÚFÕîF3F—F4,F×@FUF–jFF”F,©F&¾F[ÓF–èFÕýFPFÑ(FX>FæSF®iFHF•F-«FÁF,×F„íFzFàFM0FÁFF9]FºsF­ŠF;¡F<¸FCÏFæåFûüFFq+FœBFZFsqFéˆF FX¸FÐFåçF·ÿFÇFÝ/FýGF#`FQxF¾F3©F¯ÁF3ÚF÷òFà F_$Fr=FRVF{oFqˆF¤¡F»F\ÔF×íF3Fà Ff:FHTFömFá‡FסF×»FÖF3ðF… F®$F?FöYF3tF)F{©F{ÄFßF3úFFH0F{KF¸fF‚FFì¸F…ÔFfðFá F¤' FfC Fq_ F…{ F¤— Fͳ FÐ F3ì Fö!FH%!F¤A!F{^!Fìz!F×—!F×´!F×Ñ!Fqî!F "F®("FF"F\c"F¤€"F)ž"Fû"FfÙ"F÷"FÍ#F2#FšP#Fqn#FŒ#Fê#FöÈ#F=ç#FÃ$F\$$F…B$F3a$Fì$F¸ž$F…½$FfÜ$FRû$F…%F…9%FÍX%F)x%F…—%F3·%FqÖ%Fö%FÍ&Fq5&F\U&Fu&F•&F)µ&FHÕ&Fqõ&Fá'F)6'F¸V'Fw'F×'F{¸'F{Ù'FÍù'Fì(F×;(F ](FÍ}(FŸ(F…À(F®á(F))F¸$)FHF)Fìg)F¤‰)F\«)FqÍ)FHï)F3*Ff3*F®U*FÃw*Fš*F×¼*Fß*Fš+F{$+F)G+Fj+F¤Œ+F¸¯+FšÒ+FÍõ+F,F<,F…_,Fö‚,Fq¦,FÊ,Fší,F=-F5-F Y-Fá|-F ¡-FÅ-FHé-F\ .F 2.F=V.F…z.FŸ.F Ä.F{è.F= /F\2/FöV/Fì{/F=¡/FšÆ/F{ë/Fö0F360F×[0F…0Fö¦0FÃÌ0F¤ò0F1F>1F d1F)Š1F’ô¤;D¦”ºNö’º«y‡ºáqqº~Q{ºÑ)º¯pº;žú¹j“µ¹!¦T¹¾c8x¡«9`¼6:hª:i;ý²;ôØ;að;Z«;ÜH;vq;6V!;ƒÂ!;6-$;K+*;p );éï,;…F0;F‘;;™:;×>;“bE;¬±E;ÇÖI;a½M;O;µôV;Ýj\;¹`;5ªf;–Ej;ÂÉu;QÇt;p¿{;ü²;#¹„;k_ˆ;•qŒ;•ÓŒ;d&;‹§“;W¹™;Šì›;BÚ;šŠ¤;Œ0¥;ä©;]°;qµ²;úº;á’¿;ú<À;TAÇ;RqË;½¡Ð;ªDÙ; ›Þ;Kôæ;~Âê;Æpò;hù;W<{@<›¯<ü\ < Z<¬y<–T<:þ"<…*<ÐéG<éS<9¶[<”sh<Úát¸A>8ü”>z´¾>xè>@vð>ä·÷>±ö>bñ>WÞë>Þè>€ì>:ýñ>æbü>‹?ÌÑ?ì× ?C<?["?¾,?Ö8$?Z,?È7?@?€±L?äáX?,¤a?Ñ'm?‘w?k€?ìNƒ? Ó…?E†?êz…?º<„?G"‚?o?q{?}ñv?Ñs?tðp?‚o?µÕn?jÐo?Ór?ð¿u?4;}?™?—¡ƒ?8†?Ø`ˆ?J]‰?$)‰?¼ˆ?/4†?pŽ„?Ó¤‚?\€?6`{?|çx?sÛt?[er?bºo?t‘m?e„j?ˆ_h?;,f?«d?*Ác?êŒc?¹d?Eaf?p^i?¸€l?;r?€íw?Õo|?w?h¡„?!‡?ü‰?ûW‰?˜€‡?CP„?Ñë€?3z?A«t?á¾p?¶%n?‘¥m?ÞÖn?Úpq?ùès?Pªt?:žs?Ö“r?‡ks?ïrv?š‘y?—qz?çy?v@z?©À|?3€?ÝÈ?zÍ‚?BÚƒ?½1…?;‡?}òˆ?rŠ?S’Š?28‰?D\†?“‡‚?å½~?CÚy?=vu?Õ?s?qÈr?Yjp?õ§j?*e?)Va?}Ÿ`?üb?7g?îtl?wr?¿6x?@Å{?«—|?göz?öx?c…x?ç5}?„?ðŠ?ƒdŽ?i˜Ž?Í?(~‹?Q¤‰?éX†?óÙ?V€x?ÿÎl?GEa?ïNW?çQ?ƒP?àôU?¾_?´àj?æu?ÿä|?Ú_€?`€?±÷{?ÏZx?ã“v?Îàu?þçr?Én?dn?{‚s?#~?–_„?ˆ"†?Q[†?}|…?´?ƒ?rA~?é*t?=¼j?Vªc?Me_?Xv]?QV^?ìa?sd?Û’d?9\e?éVf?´òf?–Þh?á„l?ôÆo?$r?Q\s?˱s? Âs?u?#Áv?úx?mÎz?¹x?Y»s?£o?Yòi?Ì\e?±Qc?€d?Ìaf?êh?—Âf?W°b?å^]?)[?‘å]?Û²`?ºa?ÿ`b?I_d?‚ue?mf?UÅg?“Éh?ºØi?´‰j?ðúj?É[k?º¦k?ÄWk?Z©i?ˆHf?]b?‹^? T]?Ÿ]?FÛ^?_ª`?ý¸a?¸„a?ø`?xJ]?"“Z?äBZ?ä][?,0[?¨ Z?u©Y?ŒàY?å[? ä\?*‰^?D_`?ø¯b?î†d?\Ke?‘d? 'b??¯]?„hY?•‘W?Å3W?¯;W?f;W?uŽW?Ž1X?>zX?ˆÿW?§ªW?¯ˆW?(äV? VU?‡¼T?ÈëT?æU?šÂU?°`V?yV?€µV?åxW?é|X?(tX?×W?zW?XV?¸çU?I"U?OÙS?\ûR?ÅR?ÍZR?#ŽR?O*R?Œ(Q?â÷P?¼Q?MÖP?…&P?S®O?{mO?sÈN?ÞN?4QO?$ÅO?V´P?QåP?åP?ÓÂP?=P?«øN?œ>N?SN?2œN?ÈÁN?»ÅN?KcN?ÉjM?æL?#ÌK?hMK?w)K?C÷J?3›J?’bJ?"J?aóI?g J?uÞI?'ÔI?*J?ªqJ?á~J?x\J?†J?ˆÄI?„|I?ŒAI?&ÜH?xOH?bëG?¦«G?çŸG?ͤG?¬G?"G?ñ»F? »F?]`F?óE?Ù‡E?Ø@E?“E?XÏD?Š€D?UdD?óaD?Ú±D?BE?¸ðD?ÅD?DfD?=AD?· D?ÃÊC?HtC?w$C?ûØB?¥B?ƒB?IB?O#B?^,B?]òA?4®A?’[A?èA?ÅÆ@?”@?v@?¨b@?èa@?,n@?¥i@?cP@?@?ÑÚ??%Ï??c¬??$‰??›h??>??• ??ü>?‹Ç>?_˜>?$K>?r >?U×=?ð©=?„‹=?°=?¸R=?2%=?b÷Q4?4D4?>4?Ý;4?½74?(94?F<4?Ë-4?í84?ï34?M.4?64?¶/4?c34?Ö34?ø;4?¸;4?data : Cu 50K, bare autobk xmu: from skey ASCII of cu50k.dat using simple minimization e0 = 8977.58; pre-edge range =[ -50.0 -200.0]; edge step = 2.290 k range=[ 0.00 25.00]; k weight= 1.00; sills dk1, dk2 = 0.00 0.00 bkg r =[ 0.00 1.29]; 21 knots in spline Cu foil at 50K # cu50k.dat : this file is part of the uwxafs 3.0 distribution data taken at NSLS beamline X-11A Sept 1992 by M Newville, B Ravel, and Y Zhang foil of 99.999% Cu rolled and annealled to ~12 microns sample prepared by M Newville From X-11A : 2-SI111 HC/2D= 1977.260 STPDEG=6400. STPMMZ= 40. FOCUS=F TRANSLT=F E0= 8980.0 NREG= 3 NPTS= 619 NSCLRS= 3 EF= .0 SRB= -197.6 -47.3 30.0 2381.3 DEL= 10.020 .483 .050K SEC= 1.000 1.000 1.000 ifeffit-1.2.11d/examples/autobk_feffit/rdf/autobk.inp0000644000175000017500000000013710771740461021556 0ustar segresegre# very simple autobk.inp title = basic autobk test data = cu_rdf.xmu, 1 output = cu.chi ifeffit-1.2.11d/examples/autobk_feffit/ascii/0000755000175000017500000000000010771740461020075 5ustar segresegreifeffit-1.2.11d/examples/autobk_feffit/ascii/feffit.inp0000644000175000017500000000061010771740461022045 0ustar segresegre# very simple feffit.inp title = basic feffit test data = cuk.chi out = fit.dat rmin = 1.75 rmax = 3.25 kmin = 2.0 kmax = 17.0 dk = 2 kweight= 2 guess e0 = 0.0 guess dr = 0.0 guess s02 = 0.9 guess sig2 = 0.0 path 1 ../feff/feffcu01.dat s02 1 s02 e0 1 e0 delr 1 dr sigma2 1 sig2 ifeffit-1.2.11d/examples/autobk_feffit/ascii/cu_xmu.dat0000644000175000017500000005042210771740461022072 0ustar segresegre# data : Cu 50K, bare autobk # xmu: from skey ASCII of cu50k.dat # using simple minimization # e0 = 8977.58; pre-edge range =[ -50.0 -200.0]; edge step = 2.281 # k range=[ 0.00 25.00]; k weight= 1.00; sills dk1, dk2 = 0.00 0.00 # bkg r =[ 0.00 0.98]; 15 knots in spline # Cu foil at 50K # # cu50k.dat : this file is part of the uwxafs 3.0 distribution # data taken at NSLS beamline X-11A Sept 1992 # by M Newville, B Ravel, and Y Zhang # foil of 99.999% Cu rolled and annealled to ~12 microns # sample prepared by M Newville # From X-11A : # 2-SI111 HC/2D= 1977.260 STPDEG=6400. STPMMZ= 40. FOCUS=F TRANSLT=F # E0= 8980.0 NREG= 3 NPTS= 619 NSCLRS= 3 EF= .0 # SRB= -197.6 -47.3 30.0 2381.3 # DEL= 10.020 .483 .050K # SEC= 1.000 1.000 1.000 #--------------------------------------------------------------------- # energy xmu 0.8782347E+04 0.5052520E-02 0.8792351E+04 -.1138269E-02 0.8802377E+04 -.1125349E-02 0.8812386E+04 -.1037389E-02 0.8822417E+04 -.9244206E-03 0.8832431E+04 -.9622232E-03 0.8842467E+04 -.6475117E-03 0.8852485E+04 -.5759907E-03 0.8862484E+04 -.4797711E-03 0.8872507E+04 -.3476000E-03 0.8882553E+04 -.2035424E-03 0.8892579E+04 0.5434098E-04 0.8902586E+04 0.3285616E-03 0.8912616E+04 0.6996412E-03 0.8922627E+04 0.1304872E-02 0.8932618E+04 0.2022597E-02 0.8933133E+04 0.2062893E-02 0.8933605E+04 0.2248941E-02 0.8934077E+04 0.2235028E-02 0.8934550E+04 0.2276843E-02 0.8935065E+04 0.2332210E-02 0.8935538E+04 0.2380583E-02 0.8936011E+04 0.2470842E-02 0.8936526E+04 0.2477321E-02 0.8936998E+04 0.2514334E-02 0.8937471E+04 0.2606108E-02 0.8937944E+04 0.2597801E-02 0.8938417E+04 0.2648500E-02 0.8938976E+04 0.2699625E-02 0.8939406E+04 0.2872560E-02 0.8939878E+04 0.2848770E-02 0.8940352E+04 0.2911300E-02 0.8940910E+04 0.3022915E-02 0.8941384E+04 0.3027647E-02 0.8941814E+04 0.3091126E-02 0.8942287E+04 0.3150866E-02 0.8942847E+04 0.3170291E-02 0.8943319E+04 0.3292009E-02 0.8943793E+04 0.3375651E-02 0.8944224E+04 0.3441587E-02 0.8944740E+04 0.3532589E-02 0.8945214E+04 0.3587829E-02 0.8945688E+04 0.3764199E-02 0.8946161E+04 0.3748738E-02 0.8946678E+04 0.3855470E-02 0.8947151E+04 0.3972636E-02 0.8947626E+04 0.4065261E-02 0.8948100E+04 0.4177045E-02 0.8948573E+04 0.4301737E-02 0.8949090E+04 0.4313462E-02 0.8949564E+04 0.4415259E-02 0.8950038E+04 0.4522601E-02 0.8950513E+04 0.4708508E-02 0.8950987E+04 0.4775892E-02 0.8951504E+04 0.4834964E-02 0.8951979E+04 0.5039841E-02 0.8952453E+04 0.5059696E-02 0.8952927E+04 0.5203698E-02 0.8953444E+04 0.5402008E-02 0.8953919E+04 0.5473782E-02 0.8954394E+04 0.5714456E-02 0.8954868E+04 0.5867832E-02 0.8955343E+04 0.5888183E-02 0.8955860E+04 0.6103111E-02 0.8956336E+04 0.6231372E-02 0.8956811E+04 0.6390313E-02 0.8957285E+04 0.6654844E-02 0.8957761E+04 0.6818326E-02 0.8958278E+04 0.7074042E-02 0.8958753E+04 0.7190602E-02 0.8959229E+04 0.7425861E-02 0.8959703E+04 0.7639231E-02 0.8960179E+04 0.7862027E-02 0.8960654E+04 0.8101651E-02 0.8961172E+04 0.8373279E-02 0.8961647E+04 0.8659804E-02 0.8962123E+04 0.8965536E-02 0.8962599E+04 0.9279261E-02 0.8963074E+04 0.9576683E-02 0.8963593E+04 0.9984832E-02 0.8964068E+04 0.1044603E-01 0.8964544E+04 0.1084486E-01 0.8965020E+04 0.1120277E-01 0.8965496E+04 0.1167502E-01 0.8965972E+04 0.1224654E-01 0.8966490E+04 0.1292999E-01 0.8966967E+04 0.1345938E-01 0.8967442E+04 0.1423980E-01 0.8967919E+04 0.1500130E-01 0.8968395E+04 0.1555348E-01 0.8968914E+04 0.1653603E-01 0.8969390E+04 0.1754187E-01 0.8969866E+04 0.1859837E-01 0.8970343E+04 0.2001702E-01 0.8970819E+04 0.2118224E-01 0.8971296E+04 0.2339008E-01 0.8971772E+04 0.2471389E-01 0.8972292E+04 0.2711766E-01 0.8972769E+04 0.2938535E-01 0.8973245E+04 0.3329526E-01 0.8973722E+04 0.3722931E-01 0.8974198E+04 0.4212162E-01 0.8974675E+04 0.5087804E-01 0.8975238E+04 0.6084541E-01 0.8975715E+04 0.7120205E-01 0.8976192E+04 0.9265352E-01 0.8976626E+04 0.1315920E+00 0.8977103E+04 0.1891828E+00 0.8977580E+04 0.2920551E+00 0.8978057E+04 0.3738382E+00 0.8978621E+04 0.4550219E+00 0.8979055E+04 0.4713765E+00 0.8979531E+04 0.4856012E+00 0.8980009E+04 0.4833331E+00 0.8980486E+04 0.4731860E+00 0.8980964E+04 0.4623721E+00 0.8981441E+04 0.4564890E+00 0.8981962E+04 0.4636106E+00 0.8982440E+04 0.4743704E+00 0.8982918E+04 0.4947519E+00 0.8983396E+04 0.5176183E+00 0.8983873E+04 0.5364135E+00 0.8984352E+04 0.5521896E+00 0.8984829E+04 0.5694087E+00 0.8985307E+04 0.5964561E+00 0.8985828E+04 0.6162181E+00 0.8986307E+04 0.6438475E+00 0.8986784E+04 0.6757286E+00 0.8987263E+04 0.7205322E+00 0.8987741E+04 0.7547000E+00 0.8988219E+04 0.8025191E+00 0.8988697E+04 0.8503073E+00 0.8989176E+04 0.8846474E+00 0.8989741E+04 0.9297900E+00 0.8990220E+04 0.9687011E+00 0.8990698E+04 0.1006949E+01 0.8991133E+04 0.1029612E+01 0.8991611E+04 0.1049341E+01 0.8992090E+04 0.1052832E+01 0.8992568E+04 0.1046642E+01 0.8993048E+04 0.1036896E+01 0.8993526E+04 0.1020404E+01 0.8994049E+04 0.1001452E+01 0.8994527E+04 0.9858077E+00 0.8995007E+04 0.9681639E+00 0.8995485E+04 0.9530532E+00 0.8995965E+04 0.9446245E+00 0.8996444E+04 0.9390136E+00 0.8996924E+04 0.9363737E+00 0.8997402E+04 0.9402133E+00 0.8997882E+04 0.9491021E+00 0.8998361E+04 0.9634845E+00 0.8998884E+04 0.9928164E+00 0.8999363E+04 0.1012358E+01 0.8999843E+04 0.1032144E+01 0.9000323E+04 0.1050725E+01 0.9000803E+04 0.1069367E+01 0.9001281E+04 0.1077100E+01 0.9001762E+04 0.1075502E+01 0.9002241E+04 0.1067373E+01 0.9002721E+04 0.1052317E+01 0.9003201E+04 0.1039399E+01 0.9003681E+04 0.1024402E+01 0.9004161E+04 0.1006490E+01 0.9004685E+04 0.9855420E+00 0.9005165E+04 0.9758519E+00 0.9005645E+04 0.9599852E+00 0.9006125E+04 0.9503354E+00 0.9006605E+04 0.9398758E+00 0.9007086E+04 0.9314079E+00 0.9007566E+04 0.9194461E+00 0.9008047E+04 0.9110404E+00 0.9008526E+04 0.9024135E+00 0.9009007E+04 0.8965148E+00 0.9009487E+04 0.8929326E+00 0.9009969E+04 0.8921324E+00 0.9011062E+04 0.8967290E+00 0.9012153E+04 0.9032258E+00 0.9013290E+04 0.9149442E+00 0.9014428E+04 0.9272310E+00 0.9015565E+04 0.9496881E+00 0.9016746E+04 0.9720234E+00 0.9017928E+04 0.9897018E+00 0.9019154E+04 0.1015160E+01 0.9020380E+04 0.1039980E+01 0.9021606E+04 0.1059572E+01 0.9022877E+04 0.1074824E+01 0.9024191E+04 0.1076937E+01 0.9025507E+04 0.1062499E+01 0.9026822E+04 0.1037495E+01 0.9028183E+04 0.1010894E+01 0.9029543E+04 0.9809303E+00 0.9030903E+04 0.9592471E+00 0.9032309E+04 0.9438653E+00 0.9033759E+04 0.9336784E+00 0.9035164E+04 0.9317158E+00 0.9036659E+04 0.9363915E+00 0.9038109E+04 0.9465909E+00 0.9039604E+04 0.9562717E+00 0.9041145E+04 0.9592327E+00 0.9042686E+04 0.9551271E+00 0.9044227E+04 0.9510473E+00 0.9045812E+04 0.9543506E+00 0.9047397E+04 0.9662257E+00 0.9049029E+04 0.9784572E+00 0.9050660E+04 0.9818876E+00 0.9052292E+04 0.9797652E+00 0.9053969E+04 0.9811351E+00 0.9055646E+04 0.9909397E+00 0.9057368E+04 0.1005235E+01 0.9059091E+04 0.1017665E+01 0.9060814E+04 0.1025648E+01 0.9062627E+04 0.1033880E+01 0.9064440E+04 0.1044401E+01 0.9066166E+04 0.1058689E+01 0.9067981E+04 0.1073828E+01 0.9069842E+04 0.1085577E+01 0.9071702E+04 0.1086565E+01 0.9073563E+04 0.1075963E+01 0.9075470E+04 0.1053545E+01 0.9077377E+04 0.1023507E+01 0.9079329E+04 0.9987385E+00 0.9081283E+04 0.9795700E+00 0.9083282E+04 0.9623558E+00 0.9085237E+04 0.9536813E+00 0.9087282E+04 0.9518529E+00 0.9089283E+04 0.9425707E+00 0.9091330E+04 0.9199907E+00 0.9093423E+04 0.8984605E+00 0.9095516E+04 0.8834527E+00 0.9097654E+04 0.8806551E+00 0.9099750E+04 0.8899147E+00 0.9101891E+04 0.9064991E+00 0.9104033E+04 0.9270504E+00 0.9106221E+04 0.9506074E+00 0.9108454E+04 0.9731452E+00 0.9110644E+04 0.9870894E+00 0.9112924E+04 0.9903119E+00 0.9115160E+04 0.9839216E+00 0.9117488E+04 0.9760754E+00 0.9119728E+04 0.9743496E+00 0.9122057E+04 0.9927352E+00 0.9124389E+04 0.1035742E+01 0.9126765E+04 0.1089438E+01 0.9129144E+04 0.1116527E+01 0.9131567E+04 0.1118116E+01 0.9133993E+04 0.1105876E+01 0.9136421E+04 0.1093789E+01 0.9138850E+04 0.1079275E+01 0.9141279E+04 0.1053442E+01 0.9143756E+04 0.1018188E+01 0.9146278E+04 0.9742722E+00 0.9148803E+04 0.9284297E+00 0.9151328E+04 0.8831941E+00 0.9153899E+04 0.8441361E+00 0.9156519E+04 0.8197851E+00 0.9159094E+04 0.8174897E+00 0.9161716E+04 0.8388363E+00 0.9164384E+04 0.8772027E+00 0.9167009E+04 0.9208598E+00 0.9169726E+04 0.9640686E+00 0.9172399E+04 0.9914961E+00 0.9175119E+04 0.1006607E+01 0.9177842E+04 0.1004112E+01 0.9180610E+04 0.9878619E+00 0.9183381E+04 0.9736975E+00 0.9186198E+04 0.9667305E+00 0.9188973E+04 0.9639878E+00 0.9191840E+04 0.9523361E+00 0.9194663E+04 0.9361793E+00 0.9197533E+04 0.9333825E+00 0.9200451E+04 0.9547021E+00 0.9203326E+04 0.9961387E+00 0.9206293E+04 0.1037964E+01 0.9209217E+04 0.1051776E+01 0.9212188E+04 0.1053516E+01 0.9215161E+04 0.1046690E+01 0.9218183E+04 0.1029146E+01 0.9221206E+04 0.9968326E+00 0.9224230E+04 0.9572815E+00 0.9227304E+04 0.9203013E+00 0.9230379E+04 0.8925830E+00 0.9233456E+04 0.8758433E+00 0.9236581E+04 0.8682632E+00 0.9239755E+04 0.8716933E+00 0.9242885E+04 0.8857485E+00 0.9246063E+04 0.8956571E+00 0.9249242E+04 0.8961440E+00 0.9252471E+04 0.8992279E+00 0.9255702E+04 0.9030671E+00 0.9258935E+04 0.9054531E+00 0.9262217E+04 0.9129862E+00 0.9265500E+04 0.9272947E+00 0.9268787E+04 0.9400684E+00 0.9272122E+04 0.9491835E+00 0.9275459E+04 0.9541176E+00 0.9278847E+04 0.9554267E+00 0.9282235E+04 0.9556755E+00 0.9285627E+04 0.9605451E+00 0.9289067E+04 0.9674234E+00 0.9292511E+04 0.9761431E+00 0.9295957E+04 0.9833093E+00 0.9299451E+04 0.9747223E+00 0.9302949E+04 0.9555730E+00 0.9306449E+04 0.9372455E+00 0.9310000E+04 0.9172094E+00 0.9313553E+04 0.8992367E+00 0.9317108E+04 0.8912254E+00 0.9320713E+04 0.8943161E+00 0.9324320E+04 0.9032338E+00 0.9327979E+04 0.9099129E+00 0.9331592E+04 0.9047162E+00 0.9335256E+04 0.8887543E+00 0.9338969E+04 0.8679041E+00 0.9342732E+04 0.8592378E+00 0.9346405E+04 0.8699665E+00 0.9350128E+04 0.8809517E+00 0.9353900E+04 0.8822208E+00 0.9357677E+04 0.8875392E+00 0.9361550E+04 0.8953542E+00 0.9365332E+04 0.8996151E+00 0.9369165E+04 0.9039326E+00 0.9373048E+04 0.9086788E+00 0.9376935E+04 0.9126644E+00 0.9380824E+04 0.9168170E+00 0.9384718E+04 0.9195274E+00 0.9388662E+04 0.9212615E+00 0.9392609E+04 0.9227448E+00 0.9396561E+04 0.9238924E+00 0.9400563E+04 0.9226832E+00 0.9404567E+04 0.9160914E+00 0.9408624E+04 0.9028469E+00 0.9412685E+04 0.8863350E+00 0.9416748E+04 0.8725013E+00 0.9420815E+04 0.8677380E+00 0.9424935E+04 0.8688874E+00 0.9429057E+04 0.8737295E+00 0.9433231E+04 0.8808218E+00 0.9437361E+04 0.8849662E+00 0.9441544E+04 0.8841657E+00 0.9445777E+04 0.8786409E+00 0.9449966E+04 0.8675912E+00 0.9454208E+04 0.8569423E+00 0.9458501E+04 0.8557134E+00 0.9462750E+04 0.8600475E+00 0.9467052E+04 0.8593473E+00 0.9471406E+04 0.8548982E+00 0.9475716E+04 0.8533636E+00 0.9480078E+04 0.8542073E+00 0.9484444E+04 0.8588989E+00 0.9488863E+04 0.8660315E+00 0.9493238E+04 0.8724720E+00 0.9497714E+04 0.8796716E+00 0.9502146E+04 0.8887486E+00 0.9506630E+04 0.8959613E+00 0.9511118E+04 0.8989697E+00 0.9515661E+04 0.8961160E+00 0.9520158E+04 0.8866516E+00 0.9524709E+04 0.8691346E+00 0.9529265E+04 0.8523691E+00 0.9533825E+04 0.8451568E+00 0.9538438E+04 0.8437201E+00 0.9543105E+04 0.8438413E+00 0.9547679E+04 0.8438369E+00 0.9552355E+04 0.8451089E+00 0.9557036E+04 0.8476068E+00 0.9561722E+04 0.8487200E+00 0.9566462E+04 0.8468407E+00 0.9571256E+04 0.8455407E+00 0.9575956E+04 0.8450205E+00 0.9580760E+04 0.8425008E+00 0.9585568E+04 0.8364038E+00 0.9590382E+04 0.8340527E+00 0.9595201E+04 0.8347764E+00 0.9600024E+04 0.8351304E+00 0.9604903E+04 0.8380663E+00 0.9609786E+04 0.8404874E+00 0.9614676E+04 0.8409895E+00 0.9619619E+04 0.8417863E+00 0.9624567E+04 0.8447787E+00 0.9629521E+04 0.8487608E+00 0.9634480E+04 0.8486267E+00 0.9639496E+04 0.8462201E+00 0.9644516E+04 0.8432561E+00 0.9649541E+04 0.8403553E+00 0.9654622E+04 0.8386348E+00 0.9659708E+04 0.8356111E+00 0.9664800E+04 0.8305729E+00 0.9669897E+04 0.8271738E+00 0.9675051E+04 0.8254954E+00 0.9680210E+04 0.8247148E+00 0.9685374E+04 0.8255011E+00 0.9690646E+04 0.8239722E+00 0.9695771E+04 0.8200246E+00 0.9701004E+04 0.8192794E+00 0.9706293E+04 0.8196753E+00 0.9711537E+04 0.8187650E+00 0.9716839E+04 0.8160730E+00 0.9722146E+04 0.8142322E+00 0.9727458E+04 0.8132392E+00 0.9732828E+04 0.8107117E+00 0.9738204E+04 0.8110512E+00 0.9743586E+04 0.8128061E+00 0.9748975E+04 0.8145817E+00 0.9754420E+04 0.8182449E+00 0.9759820E+04 0.8189951E+00 0.9765278E+04 0.8189996E+00 0.9770794E+04 0.8184668E+00 0.9776265E+04 0.8158696E+00 0.9781793E+04 0.8114502E+00 0.9787379E+04 0.8086008E+00 0.9792869E+04 0.8089215E+00 0.9798469E+04 0.8100340E+00 0.9804075E+04 0.8106096E+00 0.9809688E+04 0.8106701E+00 0.9815306E+04 0.8091626E+00 0.9820932E+04 0.8053567E+00 0.9826669E+04 0.8020198E+00 0.9832308E+04 0.7990065E+00 0.9838059E+04 0.7970656E+00 0.9843815E+04 0.7965152E+00 0.9849475E+04 0.7957463E+00 0.9855245E+04 0.7943364E+00 0.9861023E+04 0.7934691E+00 0.9866860E+04 0.7924821E+00 0.9872652E+04 0.7917663E+00 0.9878504E+04 0.7921035E+00 0.9884362E+04 0.7914458E+00 0.9890228E+04 0.7912880E+00 0.9896153E+04 0.7926114E+00 0.9902086E+04 0.7937003E+00 0.9908026E+04 0.7939026E+00 0.9913974E+04 0.7933757E+00 0.9919929E+04 0.7922892E+00 0.9925944E+04 0.7910488E+00 0.9931966E+04 0.7899459E+00 0.9937997E+04 0.7890428E+00 0.9944034E+04 0.7874899E+00 0.9950079E+04 0.7853354E+00 0.9956186E+04 0.7838026E+00 0.9962300E+04 0.7828265E+00 0.9968421E+04 0.7826466E+00 0.9974550E+04 0.7827216E+00 0.9980741E+04 0.7826125E+00 0.9986940E+04 0.7805673E+00 0.9993093E+04 0.7791554E+00 0.9999361E+04 0.7791430E+00 0.1000558E+05 0.7777529E+00 0.1001187E+05 0.7760791E+00 0.1001811E+05 0.7744370E+00 0.1002441E+05 0.7733496E+00 0.1003077E+05 0.7725950E+00 0.1003709E+05 0.7716114E+00 0.1004346E+05 0.7704045E+00 0.1004980E+05 0.7699726E+00 0.1005619E+05 0.7699360E+00 0.1006260E+05 0.7711597E+00 0.1006907E+05 0.7724677E+00 0.1007549E+05 0.7721226E+00 0.1008197E+05 0.7714531E+00 0.1008846E+05 0.7700021E+00 0.1009496E+05 0.7694351E+00 0.1010153E+05 0.7686460E+00 0.1010805E+05 0.7676207E+00 0.1011463E+05 0.7662962E+00 0.1012117E+05 0.7650738E+00 0.1012777E+05 0.7639178E+00 0.1013449E+05 0.7631303E+00 0.1014105E+05 0.7626011E+00 0.1014779E+05 0.7617130E+00 0.1015437E+05 0.7611355E+00 0.1016112E+05 0.7612743E+00 0.1016789E+05 0.7603860E+00 0.1017455E+05 0.7593421E+00 0.1018128E+05 0.7580766E+00 0.1018807E+05 0.7567034E+00 0.1019487E+05 0.7557977E+00 0.1020168E+05 0.7551669E+00 0.1020850E+05 0.7545693E+00 0.1021539E+05 0.7542645E+00 0.1022223E+05 0.7542530E+00 0.1022913E+05 0.7544408E+00 0.1023610E+05 0.7543716E+00 0.1024297E+05 0.7539847E+00 0.1024991E+05 0.7530141E+00 0.1025685E+05 0.7521842E+00 0.1026386E+05 0.7520054E+00 0.1027088E+05 0.7514731E+00 0.1027791E+05 0.7509333E+00 0.1028495E+05 0.7504351E+00 0.1029200E+05 0.7497836E+00 0.1029905E+05 0.7493320E+00 0.1030624E+05 0.7487730E+00 0.1031332E+05 0.7479684E+00 0.1032041E+05 0.7472460E+00 0.1032762E+05 0.7460632E+00 0.1033473E+05 0.7450877E+00 0.1034196E+05 0.7442896E+00 0.1034921E+05 0.7435944E+00 0.1035646E+05 0.7431285E+00 0.1036361E+05 0.7429473E+00 0.1037089E+05 0.7422587E+00 0.1037817E+05 0.7415615E+00 0.1038553E+05 0.7408599E+00 0.1039284E+05 0.7401868E+00 0.1040016E+05 0.7396320E+00 0.1040754E+05 0.7393869E+00 0.1041494E+05 0.7393779E+00 0.1042235E+05 0.7391543E+00 0.1042977E+05 0.7382604E+00 0.1043720E+05 0.7374841E+00 0.1044464E+05 0.7371708E+00 0.1045215E+05 0.7366000E+00 0.1045961E+05 0.7360103E+00 0.1046714E+05 0.7359563E+00 0.1047469E+05 0.7353541E+00 0.1048224E+05 0.7350607E+00 0.1048981E+05 0.7345223E+00 0.1049744E+05 0.7340349E+00 0.1050509E+05 0.7335562E+00 0.1051263E+05 0.7329819E+00 0.1052030E+05 0.7322651E+00 0.1052798E+05 0.7315469E+00 0.1053568E+05 0.7310291E+00 0.1054338E+05 0.7304040E+00 0.1055110E+05 0.7299373E+00 0.1055883E+05 0.7291647E+00 0.1056663E+05 0.7284815E+00 0.1057438E+05 0.7278668E+00 0.1058220E+05 0.7274381E+00 0.1059004E+05 0.7270733E+00 0.1059788E+05 0.7266044E+00 0.1060580E+05 0.7264394E+00 0.1061361E+05 0.7260420E+00 0.1062150E+05 0.7254569E+00 0.1062945E+05 0.7250566E+00 0.1063736E+05 0.7247190E+00 0.1064534E+05 0.7244880E+00 0.1065327E+05 0.7239799E+00 0.1066127E+05 0.7235761E+00 0.1066929E+05 0.7230217E+00 0.1067732E+05 0.7225066E+00 0.1068536E+05 0.7221273E+00 0.1069347E+05 0.7217545E+00 0.1070154E+05 0.7214385E+00 0.1070968E+05 0.7211237E+00 0.1071777E+05 0.7208065E+00 0.1072594E+05 0.7204215E+00 0.1073412E+05 0.7199990E+00 0.1074237E+05 0.7196870E+00 0.1075045E+05 0.7191666E+00 0.1075873E+05 0.7186729E+00 0.1076696E+05 0.7180704E+00 0.1077526E+05 0.7176567E+00 0.1078345E+05 0.7173517E+00 0.1079178E+05 0.7168175E+00 0.1080013E+05 0.7166517E+00 0.1080842E+05 0.7165506E+00 0.1081679E+05 0.7163765E+00 0.1082518E+05 0.7160414E+00 0.1083357E+05 0.7157396E+00 0.1084198E+05 0.7152905E+00 0.1085041E+05 0.7150770E+00 0.1085884E+05 0.7146674E+00 0.1086736E+05 0.7145285E+00 0.1087582E+05 0.7141600E+00 0.1088430E+05 0.7140431E+00 0.1089285E+05 0.7134908E+00 0.1090142E+05 0.7133018E+00 0.1090994E+05 0.7129129E+00 0.1091853E+05 0.7126964E+00 0.1092721E+05 0.7124472E+00 0.1093577E+05 0.7123467E+00 0.1094440E+05 0.7120966E+00 0.1095312E+05 0.7118339E+00 0.1096179E+05 0.7114850E+00 0.1097053E+05 0.7112704E+00 0.1097916E+05 0.7109097E+00 0.1098793E+05 0.7106525E+00 0.1099665E+05 0.7103488E+00 0.1100545E+05 0.7100199E+00 0.1101427E+05 0.7097566E+00 0.1102303E+05 0.7095826E+00 0.1103188E+05 0.7095113E+00 0.1104074E+05 0.7092731E+00 0.1104961E+05 0.7091351E+00 0.1105850E+05 0.7090710E+00 0.1106740E+05 0.7088248E+00 0.1107631E+05 0.7088550E+00 0.1108525E+05 0.7084997E+00 0.1109426E+05 0.7082862E+00 0.1110322E+05 0.7086034E+00 0.1111226E+05 0.7080564E+00 0.1112125E+05 0.7079079E+00 0.1113032E+05 0.7078748E+00 0.1113934E+05 0.7076903E+00 0.1114851E+05 0.7075421E+00 0.1115756E+05 0.7073560E+00 0.1116663E+05 0.7073846E+00 0.1117578E+05 0.7073064E+00 0.1118501E+05 0.7071329E+00 0.1119412E+05 0.7070414E+00 0.1120331E+05 0.7068240E+00 0.1121259E+05 0.7069507E+00 0.1122174E+05 0.7067510E+00 0.1123098E+05 0.7066564E+00 0.1124031E+05 0.7066233E+00 0.1124965E+05 0.7065601E+00 0.1125887E+05 0.7065818E+00 0.1126824E+05 0.7066296E+00 0.1127755E+05 0.7064078E+00 0.1128696E+05 0.7065783E+00 0.1129638E+05 0.7065019E+00 0.1130574E+05 0.7064156E+00 0.1131519E+05 0.7065353E+00 0.1132466E+05 0.7064372E+00 0.1133400E+05 0.7064935E+00 0.1134350E+05 0.7065004E+00 0.1135301E+05 0.7066249E+00 0.1136254E+05 0.7066211E+00 ifeffit-1.2.11d/examples/autobk_feffit/ascii/cuk.chi0000644000175000017500000004107310771740461021351 0ustar segresegre# data : basic autobk test # chi: from skey ASCII of cu_xmu.dat # using simple minimization # e0 = 8977.58; pre-edge range =[ -200.0 -50.0]; edge step = 0.999 # k range=[ 0.00 25.00]; k weight= 1.00; sills dk1, dk2 = 0.00 0.00 # bkg r =[ 0.00 0.98]; 15 knots in spline # data : Cu 50K, bare autobk # xmu: from skey ASCII of cu50k.dat # using simple minimization # e0 = 8977.58; pre-edge range =[ -50.0 -200.0]; edge step = 2.281 # k range=[ 0.00 25.00]; k weight= 1.00; sills dk1, dk2 = 0.00 0.00 # bkg r =[ 0.00 0.98]; 15 knots in spline # Cu foil at 50K # # cu50k.dat : this file is part of the uwxafs 3.0 distribution # data taken at NSLS beamline X-11A Sept 1992 # by M Newville, B Ravel, and Y Zhang # foil of 99.999% Cu rolled and annealled to ~12 microns # sample prepared by M Newville # From X-11A : # ---------------------------------------------------------------------- # k chi(k) 0.0000000E+00 0.2145309E+00 0.5000000E-01 0.2182557E+00 0.1000000E+00 0.2219804E+00 0.1500000E+00 0.2257051E+00 0.2000000E+00 0.2294298E+00 0.2500000E+00 0.2331545E+00 0.3000000E+00 0.2368792E+00 0.3500000E+00 0.2406039E+00 0.4000000E+00 0.2429099E+00 0.4500000E+00 0.2450982E+00 0.5000000E+00 0.2472864E+00 0.5500000E+00 0.2376798E+00 0.6000000E+00 0.2182550E+00 0.6500000E+00 0.1969107E+00 0.7000000E+00 0.1740327E+00 0.7500000E+00 0.1436325E+00 0.8000000E+00 0.1096203E+00 0.8500000E+00 0.6924476E-01 0.9000000E+00 0.2801231E-01 0.9500000E+00 -.1349214E-01 0.1000000E+01 -.5231030E-01 0.1050000E+01 -.8218369E-01 0.1100000E+01 -.1080991E+00 0.1150000E+01 -.1277000E+00 0.1200000E+01 -.1398571E+00 0.1250000E+01 -.1496330E+00 0.1300000E+01 -.1610736E+00 0.1350000E+01 -.1720487E+00 0.1400000E+01 -.1751301E+00 0.1450000E+01 -.1744347E+00 0.1500000E+01 -.1695998E+00 0.1550000E+01 -.1531454E+00 0.1600000E+01 -.1186410E+00 0.1650000E+01 -.8484061E-01 0.1700000E+01 -.3565999E-01 0.1750000E+01 0.2501592E-02 0.1800000E+01 0.4631513E-01 0.1850000E+01 0.9354400E-01 0.1900000E+01 0.1237551E+00 0.1950000E+01 0.1327811E+00 0.2000000E+01 0.1171304E+00 0.2050000E+01 0.8986036E-01 0.2100000E+01 0.5898594E-01 0.2150000E+01 0.2744021E-01 0.2200000E+01 0.5841390E-02 0.2250000E+01 -.4661334E-02 0.2300000E+01 0.1909192E-02 0.2350000E+01 0.3055803E-01 0.2400000E+01 0.6856523E-01 0.2450000E+01 0.1022210E+00 0.2500000E+01 0.1204354E+00 0.2550000E+01 0.1046911E+00 0.2600000E+01 0.7332131E-01 0.2650000E+01 0.3495684E-01 0.2700000E+01 0.2463634E-02 0.2750000E+01 -.2507822E-01 0.2800000E+01 -.4960110E-01 0.2850000E+01 -.7176828E-01 0.2900000E+01 -.8359373E-01 0.2950000E+01 -.8292799E-01 0.3000000E+01 -.7863121E-01 0.3050000E+01 -.6973995E-01 0.3100000E+01 -.5886530E-01 0.3150000E+01 -.3895038E-01 0.3200000E+01 -.1731350E-01 0.3250000E+01 0.3832637E-03 0.3300000E+01 0.2454221E-01 0.3350000E+01 0.4920388E-01 0.3400000E+01 0.6895263E-01 0.3450000E+01 0.8328445E-01 0.3500000E+01 0.8394356E-01 0.3550000E+01 0.6789324E-01 0.3600000E+01 0.4141528E-01 0.3650000E+01 0.1363097E-01 0.3700000E+01 -.1632535E-01 0.3750000E+01 -.3787327E-01 0.3800000E+01 -.5258382E-01 0.3850000E+01 -.6117433E-01 0.3900000E+01 -.6150974E-01 0.3950000E+01 -.5526310E-01 0.4000000E+01 -.4465920E-01 0.4050000E+01 -.3664423E-01 0.4100000E+01 -.3562281E-01 0.4150000E+01 -.3953689E-01 0.4200000E+01 -.4081039E-01 0.4250000E+01 -.3399479E-01 0.4300000E+01 -.2150347E-01 0.4350000E+01 -.1236484E-01 0.4400000E+01 -.1091492E-01 0.4450000E+01 -.1127880E-01 0.4500000E+01 -.5763531E-02 0.4550000E+01 0.6590655E-02 0.4600000E+01 0.2043440E-01 0.4650000E+01 0.3117034E-01 0.4700000E+01 0.3961089E-01 0.4750000E+01 0.4921853E-01 0.4800000E+01 0.6234040E-01 0.4850000E+01 0.7790673E-01 0.4900000E+01 0.9149231E-01 0.4950000E+01 0.9728365E-01 0.5000000E+01 0.9151591E-01 0.5050000E+01 0.7368970E-01 0.5100000E+01 0.4636810E-01 0.5150000E+01 0.1970168E-01 0.5200000E+01 -.1389641E-02 0.5250000E+01 -.1908384E-01 0.5300000E+01 -.3059500E-01 0.5350000E+01 -.3436275E-01 0.5400000E+01 -.4114295E-01 0.5450000E+01 -.5981239E-01 0.5500000E+01 -.8141785E-01 0.5550000E+01 -.9804826E-01 0.5600000E+01 -.1038916E+00 0.5650000E+01 -.9746719E-01 0.5700000E+01 -.8216862E-01 0.5750000E+01 -.6183146E-01 0.5800000E+01 -.3831742E-01 0.5850000E+01 -.1519578E-01 0.5900000E+01 0.1272374E-02 0.5950000E+01 0.7039681E-02 0.6000000E+01 0.2912278E-02 0.6050000E+01 -.4181556E-02 0.6100000E+01 -.6688084E-02 0.6150000E+01 0.8954764E-02 0.6200000E+01 0.4894703E-01 0.6250000E+01 0.1016541E+00 0.6300000E+01 0.1334405E+00 0.6350000E+01 0.1392805E+00 0.6400000E+01 0.1296322E+00 0.6450000E+01 0.1180089E+00 0.6500000E+01 0.1042085E+00 0.6550000E+01 0.7977132E-01 0.6600000E+01 0.4560989E-01 0.6650000E+01 0.2971081E-02 0.6700000E+01 -.4238741E-01 0.6750000E+01 -.8765596E-01 0.6800000E+01 -.1265859E+00 0.6850000E+01 -.1508657E+00 0.6900000E+01 -.1537953E+00 0.6950000E+01 -.1325672E+00 0.7000000E+01 -.9412626E-01 0.7050000E+01 -.4897232E-01 0.7100000E+01 -.5138701E-02 0.7150000E+01 0.2411147E-01 0.7200000E+01 0.4042507E-01 0.7250000E+01 0.3901443E-01 0.7300000E+01 0.2367045E-01 0.7350000E+01 0.1041230E-01 0.7400000E+01 0.4457348E-02 0.7450000E+01 0.2433275E-02 0.7500000E+01 -.8230960E-02 0.7550000E+01 -.2317893E-01 0.7600000E+01 -.2402766E-01 0.7650000E+01 -.1021960E-02 0.7700000E+01 0.4219068E-01 0.7750000E+01 0.8363442E-01 0.7800000E+01 0.9805723E-01 0.7850000E+01 0.1004049E+00 0.7900000E+01 0.9391261E-01 0.7950000E+01 0.7651416E-01 0.8000000E+01 0.4461459E-01 0.8050000E+01 0.5973061E-02 0.8100000E+01 -.2918466E-01 0.8150000E+01 -.5500681E-01 0.8200000E+01 -.6989028E-01 0.8250000E+01 -.7523372E-01 0.8300000E+01 -.6965754E-01 0.8350000E+01 -.5470449E-01 0.8400000E+01 -.4462676E-01 0.8450000E+01 -.4267046E-01 0.8500000E+01 -.3833613E-01 0.8550000E+01 -.3349390E-01 0.8600000E+01 -.2924775E-01 0.8650000E+01 -.1963712E-01 0.8700000E+01 -.4274958E-02 0.8750000E+01 0.9242977E-02 0.8800000E+01 0.1891462E-01 0.8850000E+01 0.2446940E-01 0.8900000E+01 0.2676996E-01 0.8950000E+01 0.2890621E-01 0.9000000E+01 0.3529417E-01 0.9050000E+01 0.4363139E-01 0.9100000E+01 0.5328926E-01 0.9150000E+01 0.5892959E-01 0.9200000E+01 0.4964755E-01 0.9250000E+01 0.3168613E-01 0.9300000E+01 0.1404495E-01 0.9350000E+01 -.4487300E-02 0.9400000E+01 -.1952013E-01 0.9450000E+01 -.2424693E-01 0.9500000E+01 -.1883693E-01 0.9550000E+01 -.9187713E-02 0.9600000E+01 -.3762148E-02 0.9650000E+01 -.1019017E-01 0.9700000E+01 -.2613973E-01 0.9750000E+01 -.4317586E-01 0.9800000E+01 -.4664341E-01 0.9850000E+01 -.3453096E-01 0.9900000E+01 -.2455442E-01 0.9950000E+01 -.2119809E-01 0.1000000E+02 -.1415146E-01 0.1005000E+02 -.6057291E-02 0.1010000E+02 -.5923832E-03 0.1015000E+02 0.4981529E-02 0.1020000E+02 0.1067626E-01 0.1025000E+02 0.1584701E-01 0.1030000E+02 0.2080593E-01 0.1035000E+02 0.2442064E-01 0.1040000E+02 0.2722486E-01 0.1045000E+02 0.2975848E-01 0.1050000E+02 0.3140947E-01 0.1055000E+02 0.2986893E-01 0.1060000E+02 0.2256257E-01 0.1065000E+02 0.9575865E-02 0.1070000E+02 -.5128983E-02 0.1075000E+02 -.1542164E-01 0.1080000E+02 -.1742787E-01 0.1085000E+02 -.1411222E-01 0.1090000E+02 -.7500218E-02 0.1095000E+02 -.1266393E-03 0.1100000E+02 0.3715435E-02 0.1105000E+02 0.2630273E-02 0.1110000E+02 -.3420438E-02 0.1115000E+02 -.1334432E-01 0.1120000E+02 -.2004984E-01 0.1125000E+02 -.1849719E-01 0.1130000E+02 -.1458454E-01 0.1135000E+02 -.1534431E-01 0.1140000E+02 -.1780190E-01 0.1145000E+02 -.1751029E-01 0.1150000E+02 -.1436099E-01 0.1155000E+02 -.7793478E-02 0.1160000E+02 0.2203315E-03 0.1165000E+02 0.8027970E-02 0.1170000E+02 0.1689438E-01 0.1175000E+02 0.2649248E-01 0.1180000E+02 0.3342579E-01 0.1185000E+02 0.3560832E-01 0.1190000E+02 0.3168495E-01 0.1195000E+02 0.2056000E-01 0.1200000E+02 0.4298609E-02 0.1205000E+02 -.8292009E-02 0.1210000E+02 -.1251396E-01 0.1215000E+02 -.1236499E-01 0.1220000E+02 -.1123498E-01 0.1225000E+02 -.9743409E-02 0.1230000E+02 -.6995413E-02 0.1235000E+02 -.3935478E-02 0.1240000E+02 -.2844256E-02 0.1245000E+02 -.3477793E-02 0.1250000E+02 -.3473515E-02 0.1255000E+02 -.3681747E-02 0.1260000E+02 -.6434653E-02 0.1265000E+02 -.1019490E-01 0.1270000E+02 -.1044341E-01 0.1275000E+02 -.8833982E-02 0.1280000E+02 -.6520731E-02 0.1285000E+02 -.2759845E-02 0.1290000E+02 -.3555927E-04 0.1295000E+02 0.1579535E-02 0.1300000E+02 0.4196107E-02 0.1305000E+02 0.8565863E-02 0.1310000E+02 0.1199050E-01 0.1315000E+02 0.1196511E-01 0.1320000E+02 0.1032264E-01 0.1325000E+02 0.8349870E-02 0.1330000E+02 0.6878583E-02 0.1335000E+02 0.5622036E-02 0.1340000E+02 0.2769989E-02 0.1345000E+02 -.6786481E-03 0.1350000E+02 -.2441327E-02 0.1355000E+02 -.2803152E-02 0.1360000E+02 -.2002071E-02 0.1365000E+02 -.1184840E-02 0.1370000E+02 -.2724575E-02 0.1375000E+02 -.4467493E-02 0.1380000E+02 -.3804187E-02 0.1385000E+02 -.2998814E-02 0.1390000E+02 -.3706868E-02 0.1395000E+02 -.5118930E-02 0.1400000E+02 -.5685437E-02 0.1405000E+02 -.6389075E-02 0.1410000E+02 -.6805552E-02 0.1415000E+02 -.4957701E-02 0.1420000E+02 -.2267348E-02 0.1425000E+02 0.1218220E-02 0.1430000E+02 0.4584571E-02 0.1435000E+02 0.5933999E-02 0.1440000E+02 0.6619084E-02 0.1445000E+02 0.6114971E-02 0.1450000E+02 0.3628663E-02 0.1455000E+02 0.7884242E-03 0.1460000E+02 0.1835611E-03 0.1465000E+02 0.1746476E-02 0.1470000E+02 0.3521344E-02 0.1475000E+02 0.4768008E-02 0.1480000E+02 0.5038749E-02 0.1485000E+02 0.3402195E-02 0.1490000E+02 0.6866039E-03 0.1495000E+02 -.1626176E-02 0.1500000E+02 -.3302159E-02 0.1505000E+02 -.3755640E-02 0.1510000E+02 -.3531553E-02 0.1515000E+02 -.3725099E-02 0.1520000E+02 -.4026541E-02 0.1525000E+02 -.4083125E-02 0.1530000E+02 -.4087989E-02 0.1535000E+02 -.3471368E-02 0.1540000E+02 -.2729544E-02 0.1545000E+02 -.2309622E-02 0.1550000E+02 -.9425662E-03 0.1555000E+02 0.1117870E-02 0.1560000E+02 0.2646663E-02 0.1565000E+02 0.3355276E-02 0.1570000E+02 0.3403322E-02 0.1575000E+02 0.3073727E-02 0.1580000E+02 0.2723511E-02 0.1585000E+02 0.2533548E-02 0.1590000E+02 0.2145801E-02 0.1595000E+02 0.1118420E-02 0.1600000E+02 0.5921176E-04 0.1605000E+02 -.4070375E-03 0.1610000E+02 -.2095720E-03 0.1615000E+02 0.5280971E-03 0.1620000E+02 0.1309703E-02 0.1625000E+02 0.1078226E-02 0.1630000E+02 0.1080281E-03 0.1635000E+02 0.1385489E-03 0.1640000E+02 0.2459883E-03 0.1645000E+02 -.5116960E-03 0.1650000E+02 -.1409644E-02 0.1655000E+02 -.2032607E-02 0.1660000E+02 -.2203572E-02 0.1665000E+02 -.2317638E-02 0.1670000E+02 -.2665998E-02 0.1675000E+02 -.2762901E-02 0.1680000E+02 -.2269669E-02 0.1685000E+02 -.9602097E-03 0.1690000E+02 0.1028547E-02 0.1695000E+02 0.2251060E-02 0.1700000E+02 0.2459739E-02 0.1705000E+02 0.2114920E-02 0.1710000E+02 0.1800142E-02 0.1715000E+02 0.1823946E-02 0.1720000E+02 0.1613158E-02 0.1725000E+02 0.1127322E-02 0.1730000E+02 0.5332467E-03 0.1735000E+02 0.1794307E-04 0.1740000E+02 -.2735841E-03 0.1745000E+02 -.2619145E-03 0.1750000E+02 -.3029239E-03 0.1755000E+02 -.3760602E-03 0.1760000E+02 0.6255252E-04 0.1765000E+02 0.3453737E-03 0.1770000E+02 0.2664870E-04 0.1775000E+02 -.4933439E-03 0.1780000E+02 -.1174587E-02 0.1785000E+02 -.1671538E-02 0.1790000E+02 -.1803565E-02 0.1795000E+02 -.1787887E-02 0.1800000E+02 -.1607971E-02 0.1805000E+02 -.1138790E-02 0.1810000E+02 -.4269059E-03 0.1815000E+02 0.2470787E-03 0.1820000E+02 0.6301778E-03 0.1825000E+02 0.5511018E-03 0.1830000E+02 0.2576792E-03 0.1835000E+02 0.3701586E-03 0.1840000E+02 0.6112404E-03 0.1845000E+02 0.6749340E-03 0.1850000E+02 0.7532729E-03 0.1855000E+02 0.7690450E-03 0.1860000E+02 0.8116261E-03 0.1865000E+02 0.8959304E-03 0.1870000E+02 0.7991909E-03 0.1875000E+02 0.6176329E-03 0.1880000E+02 0.2377461E-03 0.1885000E+02 -.2570210E-03 0.1890000E+02 -.5615088E-03 0.1895000E+02 -.7243642E-03 0.1900000E+02 -.7219737E-03 0.1905000E+02 -.4665005E-03 0.1910000E+02 -.3482373E-03 0.1915000E+02 -.4725978E-03 0.1920000E+02 -.6033980E-03 0.1925000E+02 -.7242661E-03 0.1930000E+02 -.7742487E-03 0.1935000E+02 -.6034049E-03 0.1940000E+02 -.1639350E-03 0.1945000E+02 0.2670821E-03 0.1950000E+02 0.2355553E-03 0.1955000E+02 -.4821891E-04 0.1960000E+02 -.3047600E-04 0.1965000E+02 0.5986506E-04 0.1970000E+02 0.1746922E-04 0.1975000E+02 0.2551792E-03 0.1980000E+02 0.4363469E-03 0.1985000E+02 0.5320392E-03 0.1990000E+02 0.6309284E-03 0.1995000E+02 0.6440027E-03 0.2000000E+02 0.6825558E-03 0.2005000E+02 0.6647642E-03 0.2010000E+02 0.5207573E-03 0.2015000E+02 0.3115721E-03 0.2020000E+02 0.2076089E-03 0.2025000E+02 0.1301808E-03 0.2030000E+02 0.8698014E-04 0.2035000E+02 -.5902379E-04 0.2040000E+02 -.2947626E-03 0.2045000E+02 -.4583430E-03 0.2050000E+02 -.4925057E-03 0.2055000E+02 -.4115797E-03 0.2060000E+02 -.3652397E-03 0.2065000E+02 -.2009729E-03 0.2070000E+02 -.3574427E-04 0.2075000E+02 -.8620611E-04 0.2080000E+02 -.1188042E-03 0.2085000E+02 -.4067036E-04 0.2090000E+02 0.1196661E-03 0.2095000E+02 0.1655338E-03 0.2100000E+02 0.1425791E-03 0.2105000E+02 0.7618065E-04 0.2110000E+02 -.3927867E-04 0.2115000E+02 -.6644286E-04 0.2120000E+02 -.3485837E-04 0.2125000E+02 0.2592951E-04 0.2130000E+02 0.1070142E-03 0.2135000E+02 0.1814283E-03 0.2140000E+02 0.2112796E-03 0.2145000E+02 0.1862977E-03 0.2150000E+02 0.2032262E-03 0.2155000E+02 0.1417151E-03 0.2160000E+02 -.3363526E-07 0.2165000E+02 -.1947947E-03 0.2170000E+02 -.3343824E-03 0.2175000E+02 -.3377352E-03 0.2180000E+02 -.4304127E-03 0.2185000E+02 -.4120597E-03 0.2190000E+02 -.2055793E-03 0.2195000E+02 -.1838970E-04 0.2200000E+02 0.4065522E-04 0.2205000E+02 0.4527759E-04 0.2210000E+02 -.2601873E-04 0.2215000E+02 -.2854750E-04 0.2220000E+02 -.4992769E-04 0.2225000E+02 -.8709324E-06 0.2230000E+02 0.2437880E-04 0.2235000E+02 0.9305936E-04 0.2240000E+02 0.9952394E-05 0.2245000E+02 -.4745747E-04 0.2250000E+02 -.7508216E-04 0.2255000E+02 -.9013447E-04 0.2260000E+02 -.5511961E-04 0.2265000E+02 0.4704295E-04 0.2270000E+02 0.1190920E-03 0.2275000E+02 0.1186058E-03 0.2280000E+02 0.5807362E-04 0.2285000E+02 0.3534311E-04 0.2290000E+02 -.2220730E-04 0.2295000E+02 -.8381498E-04 0.2300000E+02 -.1337112E-03 0.2305000E+02 -.2218223E-03 0.2310000E+02 -.2853619E-03 0.2315000E+02 -.2753266E-03 0.2320000E+02 -.1723303E-03 0.2325000E+02 -.1309171E-03 0.2330000E+02 -.1040146E-03 0.2335000E+02 0.2048220E-05 0.2340000E+02 0.2441390E-04 0.2345000E+02 0.1307572E-03 0.2350000E+02 0.1131382E-03 0.2355000E+02 0.1859106E-04 0.2360000E+02 0.2902395E-03 0.2365000E+02 0.2558293E-03 0.2370000E+02 0.1004281E-03 0.2375000E+02 0.1684526E-03 0.2380000E+02 0.1850432E-03 0.2385000E+02 0.1550689E-03 0.2390000E+02 0.1087193E-03 0.2395000E+02 0.1663853E-03 0.2400000E+02 0.2384064E-03 0.2405000E+02 0.2024401E-03 0.2410000E+02 0.1674792E-03 0.2415000E+02 0.8027474E-04 0.2420000E+02 0.1405534E-03 0.2425000E+02 0.1326820E-03 0.2430000E+02 0.4683956E-04 0.2435000E+02 0.3053452E-04 0.2440000E+02 0.1002735E-04 0.2445000E+02 0.1738138E-04 0.2450000E+02 0.6348131E-04 0.2455000E+02 -.5450886E-04 0.2460000E+02 -.5358528E-04 0.2465000E+02 -.5808928E-04 0.2470000E+02 -.1790193E-03 0.2475000E+02 -.1919907E-03 0.2480000E+02 -.2668495E-03 0.2485000E+02 -.3483131E-03 0.2490000E+02 -.4117851E-03 0.2495000E+02 -.4363502E-03 ifeffit-1.2.11d/examples/autobk_feffit/ascii/autobk.inp0000644000175000017500000000013410771740461022070 0ustar segresegre# very simple autobk.inp title = basic autobk test data = cu_xmu.dat output = cu.dat ifeffit-1.2.11d/examples/autobk_feffit/feff/0000755000175000017500000000000010771740461017713 5ustar segresegreifeffit-1.2.11d/examples/autobk_feffit/feff/feffcu01.dat0000644000175000017500000001103010771740461021777 0ustar segresegre#Cu metal fcc a=3.603 Feff 6.01a potph 4.12 #Abs Z=29 Rmt= 1.289 Rnm= 1.424 K shell #Pot 1 Z=29 Rmt= 1.272 Rnm= 1.392 #Gam_ch=1.761E+00 H-L exch #Mu=-5.535E+00 kf=1.806E+00 Vint=-1.796E+01 Rs_int= 2.008 #Path 1 icalc 2 Feff 6.01a genfmt 1.44 #------------------------------------------------------------------------------- # 2 12.000 2.5478 2.6300 -5.53502 nleg, deg, reff, rnrmav(bohr), edge # x y z pot at# # .0000 .0000 .0000 0 29 Cu absorbing atom # .0000 -1.8016 1.8016 1 29 Cu # k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# .000 3.5015E+00 0.0000E+00 -5.1320E+00 .9872E+00 1.5637E+01 1.8071E+00 .200 3.5035E+00 6.7039E-02 -6.1121E+00 .9877E+00 1.5726E+01 1.8177E+00 .400 3.5093E+00 1.2760E-01 -7.0153E+00 .9890E+00 1.5963E+01 1.8491E+00 .600 3.5175E+00 1.7856E-01 -7.8435E+00 .9915E+00 1.6258E+01 1.9005E+00 .800 3.5258E+00 2.2015E-01 -8.5973E+00 .9953E+00 1.6481E+01 1.9704E+00 1.000 3.5311E+00 2.5358E-01 -9.2756E+00 .1001E+01 1.6496E+01 2.0575E+00 1.200 3.5296E+00 2.7930E-01 -9.8781E+00 .1008E+01 1.6217E+01 2.1605E+00 1.400 3.5164E+00 2.9658E-01 -1.0405E+01 .1018E+01 1.5649E+01 2.2786E+00 1.600 3.4866E+00 3.0387E-01 -1.0855E+01 .1030E+01 1.4895E+01 2.4113E+00 1.800 3.4354E+00 2.9952E-01 -1.1226E+01 .1043E+01 1.4117E+01 2.5584E+00 2.000 3.3581E+00 2.8254E-01 -1.1513E+01 .1053E+01 1.3497E+01 2.7201E+00 2.200 3.2511E+00 2.5343E-01 -1.1702E+01 .1059E+01 1.3207E+01 2.8970E+00 2.400 3.1362E+00 2.2097E-01 -1.1853E+01 .1230E+01 7.5606E+00 3.0883E+00 2.600 3.1585E+00 2.0024E-01 -1.2187E+01 .1303E+01 6.1535E+00 3.2191E+00 2.800 3.1545E+00 1.6820E-01 -1.2400E+01 .1326E+01 5.6163E+00 3.3579E+00 3.000 3.1151E+00 1.3806E-01 -1.2407E+01 .1321E+01 5.3982E+00 3.5040E+00 3.200 3.0550E+00 1.2236E-01 -1.2189E+01 .1304E+01 5.3389E+00 3.6566E+00 3.400 2.9887E+00 1.4499E-01 -1.1933E+01 .1281E+01 5.3735E+00 3.8150E+00 3.600 2.9054E+00 1.9428E-01 -1.1822E+01 .1256E+01 5.4705E+00 3.9784E+00 3.800 2.8228E+00 2.5740E-01 -1.1838E+01 .1229E+01 5.6121E+00 4.1461E+00 4.000 2.7282E+00 3.2303E-01 -1.1902E+01 .1206E+01 5.7879E+00 4.3177E+00 4.200 2.6390E+00 3.8574E-01 -1.1985E+01 .1179E+01 5.9908E+00 4.4926E+00 4.400 2.5352E+00 4.4624E-01 -1.2073E+01 .1157E+01 6.2162E+00 4.6704E+00 4.600 2.4376E+00 5.0095E-01 -1.2161E+01 .1135E+01 6.4607E+00 4.8506E+00 4.800 2.3422E+00 5.5041E-01 -1.2241E+01 .1115E+01 6.7219E+00 5.0329E+00 5.000 2.2460E+00 5.9187E-01 -1.2322E+01 .1096E+01 6.9979E+00 5.2171E+00 5.200 2.1454E+00 6.3037E-01 -1.2396E+01 .1079E+01 7.2872E+00 5.4030E+00 5.400 2.0492E+00 6.6384E-01 -1.2463E+01 .1064E+01 7.5888E+00 5.5902E+00 5.600 1.9507E+00 6.9100E-01 -1.2531E+01 .1050E+01 7.9017E+00 5.7787E+00 5.800 1.8576E+00 7.1670E-01 -1.2591E+01 .1038E+01 8.2251E+00 5.9682E+00 6.000 1.7615E+00 7.3666E-01 -1.2649E+01 .1027E+01 8.5584E+00 6.1587E+00 6.500 1.5272E+00 7.6642E-01 -1.2784E+01 .1004E+01 9.4317E+00 6.6385E+00 7.000 1.2998E+00 7.6974E-01 -1.2906E+01 .9857E+00 1.0357E+01 7.1222E+00 7.500 1.0824E+00 7.5036E-01 -1.3022E+01 .9708E+00 1.1331E+01 7.6088E+00 8.000 8.7723E-01 7.1645E-01 -1.3130E+01 .9579E+00 1.2348E+01 8.0978E+00 8.500 6.8313E-01 6.7486E-01 -1.3230E+01 .9470E+00 1.3407E+01 8.5885E+00 9.000 4.9774E-01 6.2811E-01 -1.3331E+01 .9381E+00 1.4505E+01 9.0807E+00 9.500 3.2222E-01 5.7859E-01 -1.3435E+01 .9304E+00 1.5641E+01 9.5740E+00 10.000 1.4825E-01 5.2908E-01 -1.3544E+01 .9222E+00 1.6812E+01 1.0068E+01 11.000 -1.7917E-01 4.3980E-01 -1.3760E+01 .9056E+00 1.9258E+01 1.1059E+01 12.000 -4.8337E-01 3.6492E-01 -1.3977E+01 .8938E+00 2.1832E+01 1.2051E+01 13.000 -7.6646E-01 3.0439E-01 -1.4200E+01 .8879E+00 2.4527E+01 1.3045E+01 14.000 -1.0250E+00 2.5553E-01 -1.4407E+01 .8831E+00 2.7338E+01 1.4041E+01 15.000 -1.2653E+00 2.1646E-01 -1.4623E+01 .8801E+00 3.0257E+01 1.5037E+01 16.000 -1.4894E+00 1.8503E-01 -1.4821E+01 .8793E+00 3.3281E+01 1.6034E+01 17.000 -1.6950E+00 1.5883E-01 -1.5018E+01 .8776E+00 3.6404E+01 1.7031E+01 18.000 -1.8893E+00 1.3866E-01 -1.5217E+01 .8772E+00 3.9623E+01 1.8028E+01 19.000 -2.0688E+00 1.1937E-01 -1.5388E+01 .8769E+00 4.2933E+01 1.9026E+01 20.000 -2.2337E+00 1.0466E-01 -1.5591E+01 .8754E+00 4.6332E+01 2.0025E+01 ifeffit-1.2.11d/examples/autobk_feffit/README0000644000175000017500000000020610771740461017663 0ustar segresegreThese directories contain very simple test cases for the programs autobk and feffit. Both ascii and UWXAFS RDF files are supported. ifeffit-1.2.11d/examples/Convolve/0000755000175000017500000000000010771740460015767 5ustar segresegreifeffit-1.2.11d/examples/Convolve/conv.iff0000644000175000017500000000035010771740460017420 0ustar segresegreread_data xmu-c0.dat ,group=c, label='e ex k mu mu0 chi' newplot c.e, c.mu, xmax=1870, key='data' set c.lc =lconvolve(c.e, c.mu, 1.0) plot c.e, c.lc, key='loren' set c.gc =gconvolve(c.e, c.mu, 1.0) plot c.e, c.gc, key='gauss' ifeffit-1.2.11d/examples/Convolve/xmu-c1eV.dat0000644000175000017500000001732510771740460020076 0ustar segresegre Si, diamond structure Feff 8.00 Abs Z=14 Rmt= 1.590 Rnm= 1.714 K shell Pot 1 Z=14 Rmt= 1.620 Rnm= 1.766 Gam_ch=4.153E-01 H-L exch Mu=-6.650E+00 kf=1.525E+00 Vint=-9.886E+00 Rs_int= 2.378 S02 1.000 Global sig2 0.00000 Energy zero shift, vr, vi 0.00000E+00 1.00000E+00 Curved wave amplitude ratio filter 4.000% file sig2 tot cw amp ratio deg nlegs reff inp sig2 0/ 0 paths used xsedge+ 50, used to normalize mu 1.3634E-03 ----------------------------------------------------------------------- e, e(wrt edge), k, mu=(1+chi)*mu0, mu0, chi @# 1836.418 -10.460 -1.000 8.15980E-02 -6.02011E-03 8.76181E-02 1837.142 -9.736 -0.900 1.29496E-01 9.51512E-03 1.19981E-01 1837.789 -9.088 -0.800 1.03204E+00 3.88064E-01 6.43979E-01 1838.361 -8.517 -0.700 2.41871E+00 1.24545E+00 1.17326E+00 1838.856 -8.022 -0.600 2.11309E+00 1.44670E+00 6.66384E-01 1839.275 -7.602 -0.500 1.94566E+00 1.41503E+00 5.30633E-01 1839.618 -7.260 -0.400 1.90719E+00 1.34738E+00 5.59807E-01 1839.885 -6.993 -0.300 1.89805E+00 1.24648E+00 6.51568E-01 1840.075 -6.802 -0.200 1.88450E+00 1.14786E+00 7.36639E-01 1840.190 -6.688 -0.100 1.87221E+00 1.08730E+00 7.84905E-01 1840.228 -6.650 0.000 1.86749E+00 1.06895E+00 7.98541E-01 1840.332 -6.546 0.165 1.85646E+00 1.07654E+00 7.79913E-01 1840.435 -6.442 0.233 1.85357E+00 1.09054E+00 7.63032E-01 1840.466 -6.412 0.250 1.85399E+00 1.09527E+00 7.58716E-01 1840.571 -6.307 0.300 1.85927E+00 1.11294E+00 7.46328E-01 1840.695 -6.183 0.350 1.87069E+00 1.13478E+00 7.35913E-01 1840.837 -6.040 0.400 1.88757E+00 1.15893E+00 7.28643E-01 1840.999 -5.878 0.450 1.90792E+00 1.18296E+00 7.24952E-01 1841.180 -5.697 0.500 1.92952E+00 1.20444E+00 7.25081E-01 1841.380 -5.497 0.550 1.95113E+00 1.22119E+00 7.29939E-01 1841.599 -5.278 0.600 1.97375E+00 1.23207E+00 7.41680E-01 1841.838 -5.040 0.650 1.99924E+00 1.23674E+00 7.62501E-01 1842.095 -4.783 0.700 2.02650E+00 1.23560E+00 7.90905E-01 1842.371 -4.507 0.750 2.04747E+00 1.22951E+00 8.17957E-01 1842.666 -4.212 0.800 2.04898E+00 1.21935E+00 8.29628E-01 1842.981 -3.897 0.850 2.02273E+00 1.20622E+00 8.16513E-01 1843.314 -3.564 0.900 1.97059E+00 1.19101E+00 7.79583E-01 1843.666 -3.211 0.950 1.89778E+00 1.17454E+00 7.23239E-01 1844.038 -2.840 1.000 1.80900E+00 1.15730E+00 6.51692E-01 1844.428 -2.449 1.050 1.71419E+00 1.13997E+00 5.74220E-01 1844.838 -2.040 1.100 1.62509E+00 1.12288E+00 5.02207E-01 1845.267 -1.611 1.150 1.54937E+00 1.10624E+00 4.43130E-01 1845.714 -1.164 1.200 1.48921E+00 1.09041E+00 3.98794E-01 1846.181 -0.697 1.250 1.43793E+00 1.07537E+00 3.62559E-01 1846.667 -0.211 1.300 1.38392E+00 1.06138E+00 3.22544E-01 1847.171 0.294 1.350 1.31789E+00 1.04837E+00 2.69514E-01 1847.695 0.818 1.400 1.23750E+00 1.03644E+00 2.01053E-01 1848.238 1.361 1.450 1.14699E+00 1.02557E+00 1.21416E-01 1848.800 1.923 1.500 1.05556E+00 1.01578E+00 3.97762E-02 1849.381 2.504 1.550 9.79898E-01 1.00707E+00 -2.71745E-02 1849.981 3.104 1.600 9.37757E-01 9.99264E-01 -6.15071E-02 1850.600 3.723 1.650 9.33484E-01 9.92531E-01 -5.90470E-02 1851.239 4.361 1.700 9.57240E-01 9.86668E-01 -2.94274E-02 1851.896 5.018 1.750 9.89926E-01 9.81744E-01 8.18200E-03 1852.572 5.694 1.800 1.00976E+00 9.77675E-01 3.20901E-02 1853.267 6.390 1.850 1.00688E+00 9.74365E-01 3.25160E-02 1853.982 7.104 1.900 9.89428E-01 9.71786E-01 1.76424E-02 1854.715 7.837 1.950 9.69326E-01 9.69975E-01 -6.49050E-04 1855.468 8.590 2.000 9.55938E-01 9.68745E-01 -1.28071E-02 1856.239 9.361 2.050 9.52661E-01 9.68123E-01 -1.54618E-02 1857.030 10.152 2.100 9.55060E-01 9.68060E-01 -1.30005E-02 1857.839 10.962 2.150 9.54894E-01 9.68431E-01 -1.35365E-02 1858.668 11.790 2.200 9.47274E-01 9.69253E-01 -2.19788E-02 1859.516 12.638 2.250 9.33334E-01 9.70468E-01 -3.71337E-02 1860.383 13.505 2.300 9.16794E-01 9.72016E-01 -5.52221E-02 1861.268 14.391 2.350 9.01203E-01 9.73837E-01 -7.26345E-02 1862.173 15.296 2.400 8.89881E-01 9.75867E-01 -8.59859E-02 1863.097 16.219 2.450 8.85624E-01 9.78115E-01 -9.24907E-02 1864.040 17.162 2.500 8.89659E-01 9.80443E-01 -9.07832E-02 1865.002 18.124 2.550 9.01916E-01 9.82856E-01 -8.09401E-02 1865.983 19.106 2.600 9.21359E-01 9.85289E-01 -6.39304E-02 1866.983 20.106 2.650 9.46125E-01 9.87673E-01 -4.15474E-02 1868.003 21.125 2.700 9.72995E-01 9.90013E-01 -1.70174E-02 1869.041 22.163 2.750 9.97456E-01 9.92240E-01 5.21659E-03 1870.098 23.220 2.800 1.01555E+00 9.94284E-01 2.12673E-02 1871.174 24.297 2.850 1.02558E+00 9.96148E-01 2.94284E-02 1872.270 25.392 2.900 1.02812E+00 9.97837E-01 3.02810E-02 1873.384 26.506 2.950 1.02538E+00 9.99278E-01 2.61024E-02 1874.518 27.640 3.000 1.02088E+00 1.00047E+00 2.04047E-02 1875.670 28.792 3.050 1.01863E+00 1.00143E+00 1.72063E-02 1876.842 29.964 3.100 1.02191E+00 1.00200E+00 1.99180E-02 1878.032 31.155 3.150 1.03261E+00 1.00232E+00 3.02910E-02 1879.242 32.364 3.200 1.05016E+00 1.00234E+00 4.78246E-02 1880.471 33.593 3.250 1.07177E+00 1.00212E+00 6.96517E-02 1881.719 34.841 3.300 1.09224E+00 1.00152E+00 9.07181E-02 1882.985 36.108 3.350 1.10532E+00 1.00061E+00 1.04711E-01 1884.271 37.393 3.400 1.10545E+00 9.99473E-01 1.05981E-01 1885.576 38.698 3.450 1.08967E+00 9.98101E-01 9.15679E-02 1886.900 40.022 3.500 1.05914E+00 9.96425E-01 6.27154E-02 1888.243 41.365 3.550 1.01938E+00 9.94593E-01 2.47837E-02 1889.605 42.727 3.600 9.77650E-01 9.92457E-01 -1.48072E-02 1890.986 44.109 3.650 9.40951E-01 9.90240E-01 -4.92891E-02 1892.386 45.509 3.700 9.13212E-01 9.87868E-01 -7.46554E-02 1893.806 46.928 3.750 8.95280E-01 9.85341E-01 -9.00611E-02 1895.244 48.366 3.800 8.86372E-01 9.82661E-01 -9.62890E-02 1896.701 49.824 3.850 8.85849E-01 9.79974E-01 -9.41247E-02 1898.178 51.300 3.900 8.93369E-01 9.77207E-01 -8.38385E-02 1899.673 52.795 3.950 9.08688E-01 9.74361E-01 -6.56733E-02 1901.188 54.310 4.000 9.30629E-01 9.71583E-01 -4.09545E-02 1902.721 55.843 4.050 9.54631E-01 9.68800E-01 -1.41687E-02 1904.274 57.396 4.100 9.72646E-01 9.66012E-01 6.63412E-03 1905.845 58.967 4.150 9.78189E-01 9.63292E-01 1.48974E-02 1907.436 60.558 4.200 9.72698E-01 9.60568E-01 1.21306E-02 1909.046 62.168 4.250 9.65058E-01 9.57986E-01 7.07151E-03 1910.674 63.797 4.300 9.62660E-01 9.55474E-01 7.18584E-03 1912.322 65.444 4.350 9.65815E-01 9.53031E-01 1.27837E-02 1913.989 67.111 4.400 9.69979E-01 9.50658E-01 1.93207E-02 1915.675 68.797 4.450 9.71648E-01 9.48355E-01 2.32930E-02 1917.380 70.502 4.500 9.70091E-01 9.46196E-01 2.38959E-02 1919.104 72.226 4.550 9.64902E-01 9.44106E-01 2.07960E-02ifeffit-1.2.11d/examples/Convolve/xmu-c0.dat0000644000175000017500000001723410771740460017601 0ustar segresegre Si, diamond structure Feff 8.00 Abs Z=14 Rmt= 1.590 Rnm= 1.714 K shell Pot 1 Z=14 Rmt= 1.620 Rnm= 1.766 Gam_ch=4.153E-01 H-L exch Mu=-6.650E+00 kf=1.525E+00 Vint=-9.886E+00 Rs_int= 2.378 S02 1.000 Global sig2 0.00000 Curved wave amplitude ratio filter 4.000% file sig2 tot cw amp ratio deg nlegs reff inp sig2 0/ 0 paths used xsedge+ 50, used to normalize mu 1.3634E-03 ----------------------------------------------------------------------- e, e(wrt edge), k, mu=(1+chi)*mu0, mu0, chi @# 1836.418 -10.460 -1.000 3.08864E-02 2.59381E-02 4.94830E-03 1837.142 -9.736 -0.900 3.92939E-02 3.33215E-02 5.97248E-03 1837.789 -9.088 -0.800 5.10552E-02 4.40506E-02 7.00460E-03 1838.361 -8.517 -0.700 6.79941E-02 6.03287E-02 7.66548E-03 1838.856 -8.022 -0.600 9.32486E-02 8.63769E-02 6.87167E-03 1839.275 -7.602 -0.500 1.32483E-01 1.30916E-01 1.56650E-03 1839.618 -7.260 -0.400 1.96385E-01 2.13384E-01 -1.69993E-02 1839.885 -6.993 -0.300 3.04824E-01 3.77580E-01 -7.27569E-02 1840.075 -6.802 -0.200 4.80114E-01 6.86672E-01 -2.06559E-01 1840.190 -6.688 -0.100 6.81445E-01 1.05149E+00 -3.70044E-01 1840.228 -6.650 0.000 7.60617E-01 1.16439E+00 -4.03770E-01 1840.332 -6.546 0.165 9.93149E-01 1.51922E+00 -5.26068E-01 1840.435 -6.442 0.233 1.25333E+00 1.73964E+00 -4.86311E-01 1840.466 -6.412 0.250 1.33447E+00 1.78104E+00 -4.46566E-01 1840.571 -6.307 0.300 1.63198E+00 1.86971E+00 -2.37723E-01 1840.695 -6.183 0.350 1.98130E+00 1.90833E+00 7.29652E-02 1840.837 -6.040 0.400 2.27878E+00 1.90920E+00 3.69575E-01 1840.999 -5.878 0.450 2.42339E+00 1.88443E+00 5.38965E-01 1841.180 -5.697 0.500 2.39509E+00 1.84334E+00 5.51754E-01 1841.380 -5.497 0.550 2.24624E+00 1.79240E+00 4.53836E-01 1841.599 -5.278 0.600 2.03034E+00 1.73625E+00 2.94087E-01 1841.838 -5.040 0.650 1.96311E+00 1.67802E+00 2.85088E-01 1842.095 -4.783 0.700 2.28158E+00 1.61987E+00 6.61703E-01 1842.371 -4.507 0.750 2.88226E+00 1.56330E+00 1.31896E+00 1842.666 -4.212 0.800 3.05682E+00 1.50910E+00 1.54772E+00 1842.981 -3.897 0.850 2.52936E+00 1.45791E+00 1.07146E+00 1843.314 -3.564 0.900 2.41392E+00 1.41001E+00 1.00392E+00 1843.666 -3.211 0.950 2.46700E+00 1.36555E+00 1.10145E+00 1844.038 -2.840 1.000 2.08824E+00 1.32439E+00 7.63845E-01 1844.428 -2.449 1.050 1.83384E+00 1.28661E+00 5.47233E-01 1844.838 -2.040 1.100 1.72337E+00 1.25201E+00 4.71361E-01 1845.267 -1.611 1.150 1.55016E+00 1.22037E+00 3.29790E-01 1845.714 -1.164 1.200 1.55933E+00 1.19166E+00 3.67672E-01 1846.181 -0.697 1.250 1.58855E+00 1.16552E+00 4.23029E-01 1846.667 -0.211 1.300 1.56055E+00 1.14196E+00 4.18585E-01 1847.171 0.294 1.350 1.48909E+00 1.12067E+00 3.68418E-01 1847.695 0.818 1.400 1.33941E+00 1.10155E+00 2.37857E-01 1848.238 1.361 1.450 1.19848E+00 1.08442E+00 1.14062E-01 1848.800 1.923 1.500 1.00553E+00 1.06917E+00 -6.36409E-02 1849.381 2.504 1.550 8.06735E-01 1.05567E+00 -2.48936E-01 1849.981 3.104 1.600 7.72743E-01 1.04366E+00 -2.70918E-01 1850.600 3.723 1.650 8.12533E-01 1.03323E+00 -2.20694E-01 1851.239 4.361 1.700 9.23357E-01 1.02409E+00 -1.00736E-01 1851.896 5.018 1.750 1.05214E+00 1.01627E+00 3.58709E-02 1852.572 5.694 1.800 1.11914E+00 1.00963E+00 1.09517E-01 1853.267 6.390 1.850 1.06558E+00 1.00402E+00 6.15574E-02 1853.982 7.104 1.900 1.01782E+00 9.99395E-01 1.84198E-02 1854.715 7.837 1.950 9.62117E-01 9.95748E-01 -3.36308E-02 1855.468 8.590 2.000 9.38667E-01 9.92867E-01 -5.42008E-02 1856.239 9.361 2.050 9.48837E-01 9.90759E-01 -4.19215E-02 1857.030 10.152 2.100 9.75571E-01 9.89354E-01 -1.37822E-02 1857.839 10.962 2.150 9.87563E-01 9.88508E-01 -9.45176E-04 1858.668 11.790 2.200 9.72120E-01 9.88226E-01 -1.61056E-02 1859.516 12.638 2.250 9.45344E-01 9.88436E-01 -4.30918E-02 1860.383 13.505 2.300 9.17000E-01 9.89068E-01 -7.20683E-02 1861.268 14.391 2.350 8.89961E-01 9.90050E-01 -1.00089E-01 1862.173 15.296 2.400 8.69862E-01 9.91311E-01 -1.21449E-01 1863.097 16.219 2.450 8.61768E-01 9.92852E-01 -1.31084E-01 1864.040 17.162 2.500 8.67134E-01 9.94528E-01 -1.27394E-01 1865.002 18.124 2.550 8.83767E-01 9.96341E-01 -1.12573E-01 1865.983 19.106 2.600 9.10377E-01 9.98217E-01 -8.78400E-02 1866.983 20.106 2.650 9.45630E-01 1.00008E+00 -5.44543E-02 1868.003 21.125 2.700 9.85184E-01 1.00195E+00 -1.67612E-02 1869.041 22.163 2.750 1.01998E+00 1.00373E+00 1.62546E-02 1870.098 23.220 2.800 1.04262E+00 1.00535E+00 3.72634E-02 1871.174 24.297 2.850 1.05158E+00 1.00683E+00 4.47575E-02 1872.270 25.392 2.900 1.04902E+00 1.00815E+00 4.08670E-02 1873.384 26.506 2.950 1.03846E+00 1.00925E+00 2.92081E-02 1874.518 27.640 3.000 1.02544E+00 1.01012E+00 1.53210E-02 1875.670 28.792 3.050 1.01665E+00 1.01077E+00 5.87411E-03 1876.842 29.964 3.100 1.01744E+00 1.01105E+00 6.39167E-03 1878.032 31.155 3.150 1.03070E+00 1.01111E+00 1.95943E-02 1879.242 32.364 3.200 1.05558E+00 1.01087E+00 4.47118E-02 1880.471 33.593 3.250 1.08820E+00 1.01041E+00 7.77972E-02 1881.719 34.841 3.300 1.12106E+00 1.00957E+00 1.11488E-01 1882.985 36.108 3.350 1.14399E+00 1.00845E+00 1.35543E-01 1884.271 37.393 3.400 1.14798E+00 1.00710E+00 1.40880E-01 1885.576 38.698 3.450 1.12797E+00 1.00552E+00 1.22443E-01 1886.900 40.022 3.500 1.08577E+00 1.00366E+00 8.21106E-02 1888.243 41.365 3.550 1.03076E+00 1.00164E+00 2.91157E-02 1889.605 42.727 3.600 9.74777E-01 9.99330E-01 -2.45534E-02 1890.986 44.109 3.650 9.28279E-01 9.96945E-01 -6.86656E-02 1892.386 45.509 3.700 8.96145E-01 9.94411E-01 -9.82661E-02 1893.806 46.928 3.750 8.77303E-01 9.91729E-01 -1.14426E-01 1895.244 48.366 3.800 8.68865E-01 9.88900E-01 -1.20035E-01 1896.701 49.824 3.850 8.69588E-01 9.86069E-01 -1.16481E-01 1898.178 51.300 3.900 8.79545E-01 9.83164E-01 -1.03619E-01 1899.673 52.795 3.950 8.99430E-01 9.80184E-01 -8.07543E-02 1901.188 54.310 4.000 9.29792E-01 9.77277E-01 -4.74856E-02 1902.721 55.843 4.050 9.65783E-01 9.74369E-01 -8.58605E-03 1904.274 57.396 4.100 9.93009E-01 9.71460E-01 2.15485E-02 1905.845 58.967 4.150 9.97536E-01 9.68624E-01 2.89122E-02 1907.436 60.558 4.200 9.82333E-01 9.65787E-01 1.65458E-02 1909.046 62.168 4.250 9.66273E-01 9.63096E-01 3.17709E-03 1910.674 63.797 4.300 9.63228E-01 9.60477E-01 2.75020E-03 1912.322 65.444 4.350 9.71085E-01 9.57932E-01 1.31534E-02 1913.989 67.111 4.400 9.79033E-01 9.55459E-01 2.35740E-02 1915.675 68.797 4.450 9.81655E-01 9.53058E-01 2.85970E-02 1917.380 70.502 4.500 9.80464E-01 9.50804E-01 2.96593E-02 1919.104 72.226 4.550 9.74545E-01 9.48623E-01 2.59218E-02ifeffit-1.2.11d/examples/restraint/0000755000175000017500000000000010771740461016210 5ustar segresegreifeffit-1.2.11d/examples/restraint/r1.iff0000644000175000017500000000311510771740461017220 0ustar segresegre log(restraint.log, screen_echo = 3) # macro show_fit # feffit(chi = data.chi, k=data.k,group = fit, 1, # restraint = restr, do_bkg=false) # print 'fit took ', &fit_iteration, ' iterations' # show s02, e0, dr, rf, rc, restr, chi_square, r_factor, n_idp # end macro macro setup_fit unguess guess s02 = 1. guess e0 = 1. guess ss2 = 0.002 guess dr = 0.001 path(index = 1, feff = ../feff/feffcu01.dat, label = "Cu metal first neighbor", s02 = s02, sigma2 = ss2, delr = dr, e0 = e0) kmin = 2, kmax=18, kweight=2, dk1 = 1, dk2=1 rmin = 1.5, rmax =3.4 end macro macro show_fit print 'fit took ', &fit_iteration, ' iterations' show s02, e0, dr, chi_square, r_factor, n_idp show dr_force, e0_force end macro #### read_data(../data/cu_chi.dat, group = data, type=chi) dr_force = (dr - 0.01)*1.e5 e0_force = (e0 - 1.0)*1.e5 # echo '# no restraint ' # setup_fit # dr_force = (dr - 0.01)*1.e5 # e0_force = (e0 - 1.0)*1.e5 # feffit(chi = data.chi, k=data.k,group = fit, 1) # # show_fit # echo '# r/e0 restraint ' setup_fit def dr_force = (dr - 0.01)*1.e8 def e0_force = (e0 - 0.8)*(-4.e2) feffit(chi = data.chi, 1, restraint = e0_force, restraint = dr_force, kweight=1, kweight=2, kweight=3, group=fit ) show_fit # # echo '# e0/r restraint ' # setup_fit # dr_force = (dr - 0.008)*1.e5 # e0_force = (e0 - 1.0)*1.e5 # feffit(chi = data.chi, k=data.k,group = fit, 1, # restraint = e0_force, restraint=dr_force) # show_fit ifeffit-1.2.11d/examples/restraint/feff_mno.dat0000644000175000017500000001250310771740461020462 0ustar segresegre name: MnO Feff 7.023 formula: MnO sites: Mn1,O1 refer1: wyckoff 1,III,88 refer2: schoen: notes1: salt, halite Abs Z=25 Rmt= 1.281 Rnm= 1.490 K shell Pot 1 Z=25 Rmt= 1.284 Rnm= 1.497 Pot 2 Z= 8 Rmt= 0.939 Rnm= 1.094 Gam_ch=1.205E+00 H-L exch Mu=-3.861E+00 kf=1.948E+00 Vint=-1.831E+01 Rs_int= 1.862 Path 1 icalc 2 ----------------------------------------------------------------------- 2 6.000 2.2224 2.5281 -3.86078 nleg, deg, reff, rnrmav(bohr), edge x y z pot at# 0.0000 0.0000 0.0000 0 25 Mn absorbing atom 0.0000 0.0000 -2.2224 2 8 O k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# 0.000 1.7716E+00 0.0000E+00 -2.1348E+00 1.034E+00 2.4636E+01 1.9481E+00 0.100 1.7696E+00 5.3921E-02 -2.5691E+00 1.034E+00 2.4667E+01 1.9506E+00 0.200 1.7635E+00 1.0719E-01 -2.9833E+00 1.034E+00 2.4756E+01 1.9580E+00 0.300 1.7534E+00 1.5919E-01 -3.3773E+00 1.034E+00 2.4893E+01 1.9702E+00 0.400 1.7394E+00 2.0937E-01 -3.7516E+00 1.033E+00 2.5061E+01 1.9872E+00 0.500 1.7215E+00 2.5729E-01 -4.1063E+00 1.033E+00 2.5236E+01 2.0088E+00 0.600 1.6998E+00 3.0260E-01 -4.4420E+00 1.033E+00 2.5392E+01 2.0350E+00 0.700 1.6743E+00 3.4506E-01 -4.7589E+00 1.034E+00 2.5496E+01 2.0655E+00 0.800 1.6452E+00 3.8454E-01 -5.0575E+00 1.034E+00 2.5517E+01 2.1002E+00 0.900 1.6124E+00 4.2100E-01 -5.3383E+00 1.035E+00 2.5426E+01 2.1390E+00 1.000 1.5759E+00 4.5444E-01 -5.6017E+00 1.036E+00 2.5201E+01 2.1818E+00 1.100 1.5359E+00 4.8494E-01 -5.8479E+00 1.038E+00 2.4829E+01 2.2283E+00 1.200 1.4922E+00 5.1262E-01 -6.0774E+00 1.040E+00 2.4308E+01 2.2784E+00 1.300 1.4449E+00 5.3758E-01 -6.2905E+00 1.043E+00 2.3651E+01 2.3321E+00 1.400 1.3937E+00 5.5998E-01 -6.4872E+00 1.046E+00 2.2878E+01 2.3893E+00 1.500 1.3387E+00 5.7992E-01 -6.6679E+00 1.050E+00 2.2020E+01 2.4499E+00 1.600 1.2795E+00 5.9751E-01 -6.8324E+00 1.054E+00 2.1112E+01 2.5139E+00 1.700 1.2160E+00 6.1285E-01 -6.9809E+00 1.058E+00 2.0191E+01 2.5813E+00 1.800 1.1479E+00 6.2597E-01 -7.1133E+00 1.063E+00 1.9293E+01 2.6521E+00 1.900 1.0748E+00 6.3688E-01 -7.2293E+00 1.068E+00 1.8451E+01 2.7264E+00 2.200 8.2048E-01 6.5521E-01 -7.4731E+00 1.080E+00 1.6548E+01 2.9723E+00 2.400 5.8130E-01 6.6563E-01 -7.5357E+00 1.153E+00 1.1231E+01 3.1707E+00 2.600 4.7582E-01 7.1299E-01 -7.7502E+00 1.276E+00 7.4301E+00 3.3208E+00 2.800 4.1818E-01 7.4255E-01 -7.9786E+00 1.317E+00 6.4663E+00 3.4516E+00 3.000 3.2980E-01 7.5101E-01 -8.1533E+00 1.333E+00 6.0135E+00 3.5940E+00 3.200 2.2753E-01 7.4347E-01 -8.2997E+00 1.327E+00 5.8146E+00 3.7427E+00 3.400 1.1518E-01 7.2367E-01 -8.4283E+00 1.315E+00 5.7540E+00 3.8971E+00 3.600 -5.0499E-03 6.9513E-01 -8.5409E+00 1.293E+00 5.7801E+00 4.0565E+00 3.800 -1.3100E-01 6.5973E-01 -8.6447E+00 1.270E+00 5.8659E+00 4.2203E+00 4.000 -2.6051E-01 6.2096E-01 -8.7427E+00 1.247E+00 5.9959E+00 4.3881E+00 4.200 -3.9199E-01 5.8061E-01 -8.8379E+00 1.224E+00 6.1602E+00 4.5594E+00 4.400 -5.2414E-01 5.4029E-01 -8.9316E+00 1.202E+00 6.3523E+00 4.7337E+00 4.600 -6.5592E-01 5.0186E-01 -9.0234E+00 1.180E+00 6.5676E+00 4.9106E+00 4.800 -7.8707E-01 4.6541E-01 -9.1135E+00 1.160E+00 6.8029E+00 5.0900E+00 5.000 -9.1684E-01 4.3156E-01 -9.2013E+00 1.142E+00 7.0557E+00 5.2713E+00 5.200 -1.0449E+00 4.0015E-01 -9.2859E+00 1.125E+00 7.3241E+00 5.4546E+00 5.400 -1.1712E+00 3.7107E-01 -9.3655E+00 1.109E+00 7.6066E+00 5.6394E+00 5.600 -1.2955E+00 3.4376E-01 -9.4409E+00 1.095E+00 7.9021E+00 5.8256E+00 5.800 -1.4180E+00 3.1828E-01 -9.5118E+00 1.083E+00 8.2095E+00 6.0130E+00 6.000 -1.5388E+00 2.9458E-01 -9.5783E+00 1.071E+00 8.5282E+00 6.2016E+00 6.500 -1.8324E+00 2.4268E-01 -9.7277E+00 1.047E+00 9.3696E+00 6.6771E+00 7.000 -2.1135E+00 2.0135E-01 -9.8626E+00 1.027E+00 1.0269E+01 7.1572E+00 7.500 -2.3815E+00 1.7085E-01 -9.9984E+00 1.008E+00 1.1221E+01 7.6409E+00 8.000 -2.6401E+00 1.4957E-01 -1.0135E+01 9.885E-01 1.2222E+01 8.1273E+00 8.500 -2.8905E+00 1.3392E-01 -1.0263E+01 9.728E-01 1.3269E+01 8.6158E+00 9.000 -3.1308E+00 1.2001E-01 -1.0373E+01 9.611E-01 1.4359E+01 9.1060E+00 9.500 -3.3612E+00 1.0584E-01 -1.0467E+01 9.525E-01 1.5490E+01 9.5977E+00 10.000 -3.5827E+00 9.1879E-02 -1.0552E+01 9.459E-01 1.6660E+01 1.0090E+01 10.500 -3.7949E+00 8.0114E-02 -1.0638E+01 9.409E-01 1.7869E+01 1.0584E+01 12.000 -4.3727E+00 6.2976E-02 -1.0874E+01 9.334E-01 2.1713E+01 1.2069E+01 13.000 -4.7213E+00 5.1903E-02 -1.0996E+01 9.317E-01 2.4447E+01 1.3062E+01 14.000 -5.0430E+00 4.1002E-02 -1.1132E+01 9.310E-01 2.7311E+01 1.4056E+01 15.000 -5.3388E+00 3.7682E-02 -1.1232E+01 9.316E-01 3.0300E+01 1.5050E+01 16.000 -5.6169E+00 3.4098E-02 -1.1306E+01 9.321E-01 3.3409E+01 1.6046E+01 17.000 -5.8751E+00 2.6801E-02 -1.1439E+01 9.326E-01 3.6634E+01 1.7043E+01 18.000 -6.1164E+00 2.4791E-02 -1.1522E+01 9.332E-01 3.9971E+01 1.8039E+01 19.000 -6.3465E+00 2.5429E-02 -1.1566E+01 9.333E-01 4.3416E+01 1.9037E+01 20.000 -6.5613E+00 2.1872E-02 -1.1856E+01 9.336E-01 4.6967E+01 2.0034E+01 21.000 -6.7651E+00 1.9735E-02 -1.2319E+01 9.344E-01 5.0620E+01 2.1032E+01 ifeffit-1.2.11d/examples/restraint/restraint.log0000644000175000017500000000100610771740461020723 0ustar segresegre # r/e0 restraint feffit fitting 1 data sets fitting ... estimating uncertainties ... done. fit took 4.00000000 iterations s02 = 0.918367920 e0 = 0.795980201 dr = 0.010000000 chi_square = 11685.373647853 r_factor = 0.041278120 n_idp = 19.002929688 dr_force = 0.000980805 := (dr-0.01)*1.e8 e0_force = 1.607919532 := (e0-0.8)*(-4.e2) Warning -- command ignored (typo?): -> q ifeffit-1.2.11d/examples/restraint/restrain_bv.iff0000644000175000017500000000236210771740461021217 0ustar segresegre# # fit MnO, while restraining the bond valence sum to be ~2 # read_data(file = "../data/mno.chi", group=mno) set mno.chik = mno.chi * mno.k^2 macro fitmacro print v_exp, v_0, delv, restraint, R, N end macro guess e0 = 0.0 # e0 shift guess sig2 = 0.02 # sigma2 set S02 = 0.70 # Amp factor set R_0 = 1.79 # B.V. for Mn(II) set V_0 = 2.0 # Formal Valence guess R = 2.22 guess N = 6.0 # Coord. Number set delV = 1.e-1 def V_exp = N * exp( (R_0 - R) /0.37) def res1 = (V_exp - V_0)/delV path(index = 1, degen = 1, label = 'Mn-O', feff = feff_mno.dat, delr = (r-reff), amp = S02 * N, e0 = e0, sigma2 = sig2 ) ff2chi(1, group=init) kmin=2.5, kmax=10.5, dk = 3, kweight=2 $kwindow = hanning rmin = 1.15, rmax =2.2 &print_level = 2 feffit(chi = mno.chi, 1, group=fit, restraint=res1) &print_level = 1 set fit.chik = fit.chi * fit.k^2 print ' Fit Results: ' sync show @variables show v_exp show delv show r_factor, chi_square, n_idp # newplot mno.r, mno.chir_mag, xmax = 7, charfont=2 # plot fit.r, fit.chir_mag # plot fit.r, fit.chir_re-1 # plot mno.r, mno.chir_re-1 # plot xlabel = 'R (\A)', ylabel = '|\gx(R)| (\A\u-3\d)' ifeffit-1.2.11d/examples/restraint/r2.iff0000644000175000017500000000303710771740461017224 0ustar segresegre # macro show_fit # feffit(chi = data.chi, k=data.k,group = fit, 1, # restraint = restr, do_bkg=false) # print 'fit took ', &fit_iteration, ' iterations' # show s02, e0, dr, rf, rc, restr, chi_square, r_factor, n_idp # end macro macro setup_fit unguess guess s02 = 1. guess e0 = 1. guess ss2_1 = 0.002 guess ss2_2 = 0.002 guess dr = 0.001 path(index = 101, feff = ../feff/feffcu01.dat, label = "Cu metal first neighbor", s02 = s02, sigma2 = ss2_1, delr = dr, e0 = e0) path(index = 102, feff = ../feff/feffcu01.dat, label = "Cu metal first neighbor", s02 = s02, sigma2 = ss2_2, delr = dr, e0 = e0) kmin = 2, kmax=18, kweight=2, dk1 = 1, dk2=1 rmin = 1.5, rmax =3.4 end macro macro show_fit print 'fit took ', &fit_iteration, ' iterations' show s02, e0, dr, chi_square, r_factor, n_idp show dr_force, e0_force end macro #### read_data(../data/cu10k.chi, group = cu010, type=chi) read_data(../data/cu150k.chi, group = cu150, type=chi) # echo '# r/e0 restraint ' setup_fit def dr_force = (dr - 0.01)*1.e5 def e0_force = (e0 - 0.7)*1.e3 feffit(chi = cu150.chi, 101, kweight=2, kweight=3, group=fit010, restraint = e0_force, data_set=1, data_total=2) feffit(chi = cu150.chi, 102, kweight=2, group=fit150, restraint = dr_force , data_set=2, data_total=2) ff2chi(101,102,group=x) # show_fit ifeffit-1.2.11d/examples/Plotting/0000755000175000017500000000000010771740461015775 5ustar segresegreifeffit-1.2.11d/examples/Plotting/styles.iff0000644000175000017500000000202410771740461020004 0ustar segresegre# # This will generate a table of PGPLOT point types # l.x = range(0,4.5,0.2) l.y = sin(l.x)/2 + 1.6 newplot( l.x, l.y, xmin=0, xmax=2.5, ymin=0, ymax=2.25, nogrid) plot (labelsize=0.0002, textsize=2.25, markersize=2.5) txt=0.15 plot l.x, l.y, style=solid, color=black plot text='Solid', text_x =txt, text_y = 1.85 set l.y = l.y-0.35 plot l.x, l.y, style=dashed, color=black plot text='Dashed', text_x =txt, text_y = 1.5 set l.y = l.y-0.35 plot l.x, l.y, style=dotted, color=black plot text='Dotted', text_x =txt, text_y = 1.15 set l.y = l.y-0.35 plot l.x, l.y, style=dot-dash, color=black plot text='Dot-Dash', text_x =txt, text_y = 0.8 set l.z = exp(1.*l.x-0.5)-0.6 plot l.x, l.z, style=linespoints2, color=black plot text='linespoints2', text_x =0.85, text_y = 0.65 set l.y = l.y-0.6 plot l.x, l.y, style=linespoints4, color=black plot text='linespoints4', text_x = 0.85, text_y = 0.15 m.x = range(0,4.5,0.05) set m.t = 7.8 - m.x*4 plot m.x, m.t, style=points3, color=black plot text='points3', text_x = 1.85, text_y = 0.65 ifeffit-1.2.11d/examples/Plotting/ppoints.iff0000644000175000017500000000716410771740461020167 0ustar segresegre# # This will generate a table of PGPLOT point types # p.x = ones(2) - 1.0 p.y = ones(2) + 1.6 # hardwided grid lines lx.x = range(0,2,0.5) lx.y = ones(5) ly.x = ones(6) ly.y = range(0,2.5,0.5) newplot( (p.x-0.8), (p.y+0.8), xmin=0, xmax=2, ymin=0, ymax=2.5, nogrid, labelsize=0.001) plot (lx.x), (lx.y+1.0), style=solid, color=black plot (lx.x), (lx.y+0.6), style=solid, color=black plot (lx.x), (lx.y+0.2), style=solid, color=black plot (lx.x), (lx.y-0.2), style=solid, color=black plot (lx.x), (lx.y-0.6), style=solid, color=black plot (ly.x+0.6), (ly.y), style=solid, color=black plot (ly.x+0.2), (ly.y), style=solid, color=black plot (ly.x-0.2), (ly.y), style=solid, color=black plot (ly.x-0.6), (ly.y), style=solid, color=black plot textsize=2.25, markersize=2.25 set p.y = p.y - 0.4 set txy = 2.16 plot (p.x+0.1), p.y, color=black, style=points0 plot text='0', text_x=0.2, text_y=txy plot (p.x+0.5), p.y, color=black, style=points1 plot text='1', text_x=0.6, text_y=txy plot (p.x+0.9), p.y, color=black, style=points2 plot text='2', text_x=1.0, text_y=txy plot (p.x+1.3), p.y, color=black, style=points3 plot text='3', text_x=1.4, text_y=txy plot (p.x+1.7), p.y, color=black, style=points4 plot text='4', text_x=1.8, text_y=txy set p.y = p.y - 0.4 set txy = txy - 0.4 plot (p.x+0.1), p.y, color=black, style=points5 plot text='5', text_x=0.2, text_y=txy plot (p.x+0.5), p.y, color=black, style=points6 plot text='6', text_x=0.6, text_y=txy plot (p.x+0.9), p.y, color=black, style=points7 plot text='7', text_x=1.0, text_y=txy plot (p.x+1.3), p.y, color=black, style=points8 plot text='8', text_x=1.4, text_y=txy plot (p.x+1.7), p.y, color=black, style=points9 plot text='9', text_x=1.8, text_y=txy set p.y = p.y - 0.4 set txy = txy - 0.4 plot (p.x+0.1), p.y, color=black, style=points10 plot text='10', text_x=0.2, text_y=txy plot (p.x+0.5), p.y, color=black, style=points11 plot text='11', text_x=0.6, text_y=txy plot (p.x+0.9), p.y, color=black, style=points12 plot text='12', text_x=1.0, text_y=txy plot (p.x+1.3), p.y, color=black, style=points13 plot text='13', text_x=1.4, text_y=txy plot (p.x+1.7), p.y, color=black, style=points14 plot text='14', text_x=1.8, text_y=txy set p.y = p.y - 0.4 set txy = txy - 0.4 plot (p.x+0.1), p.y, color=black, style=points15 plot text='15', text_x=0.2, text_y=txy plot (p.x+0.5), p.y, color=black, style=points16 plot text='16', text_x=0.6, text_y=txy plot (p.x+0.9), p.y, color=black, style=points17 plot text='17', text_x=1.0, text_y=txy plot (p.x+1.3), p.y, color=black, style=points18 plot text='18', text_x=1.4, text_y=txy plot (p.x+1.7), p.y, color=black, style=points19 plot text='19', text_x=1.8, text_y=txy set p.y = p.y - 0.4 set txy = txy - 0.4 plot (p.x+0.1), p.y, color=black, style=points20 plot text='20', text_x=0.2, text_y=txy plot (p.x+0.5), p.y, color=black, style=points21 plot text='21', text_x=0.6, text_y=txy plot (p.x+0.9), p.y, color=black, style=points22 plot text='22', text_x=1.0, text_y=txy plot (p.x+1.3), p.y, color=black, style=points23 plot text='23', text_x=1.4, text_y=txy plot (p.x+1.7), p.y, color=black, style=points24 plot text='24', text_x=1.8, text_y=txy set p.y = p.y - 0.4 set txy = txy - 0.4 plot (p.x+0.1), p.y, color=black, style=points25 plot text='25', text_x=0.2, text_y=txy plot (p.x+0.5), p.y, color=black, style=points26 plot text='26', text_x=0.6, text_y=txy plot (p.x+0.9), p.y, color=black, style=points27 plot text='27', text_x=1.0, text_y=txy plot (p.x+1.3), p.y, color=black, style=points28 plot text='28', text_x=1.4, text_y=txy plot (p.x+1.7), p.y, color=black, style=points29 plot text='29', text_x=1.8, text_y=txy ifeffit-1.2.11d/examples/Plotting/fonts.iff0000644000175000017500000000277610771740461017630 0ustar segresegre# # This will generate a table of PGPLOT point types # p.x = ones(2) - 1.0 p.y = ones(2) + 1.6 # hardwided grid lines lx.x = range(0,2,0.5) lx.y = ones(5) ly.x = ones(6) ly.y = range(0,2.5,0.5) newplot( (p.x-0.8), (p.y+0.8), xmin=0, xmax=2, ymin=0, ymax=2.0, nogrid, labelsize=0.001) plot text='\fn 1 \fn The Sans Serif Font', text_x=0.1, text_y=1.8, textsize=2.5 plot text='\fn 2 \fr The Roman Font', text_x=0.1, text_y=1.6 plot text='\fn 3 \fi The Italic Font', text_x=1.1, text_y=1.8 plot text='\fn 4 \fs The Script Font', text_x=1.1, text_y=1.6 plot(text = "Greek letters (\\ga ... \\gz):" , text_x= 0.1, text_y = 1.4) plot(text = "\ga \gb \gc \gd \ge \gf \gg ", text_x= 1.2, text_y = 1.4) plot(text = "\gh \gi \gj \gk \gl \gm \gn \go \gp \gq \gr \gs \gt \gu \gv \gw \gx \gy \gz", text_x= 0.2, text_y = 1.2) plot(text = "Common XAFS Symbols:", text_x= 0.1, text_y = 1.0) plot(text = "\\gm(E)", text_x= 0.2, text_y = 0.8) plot(text = "\gm(E)", text_x= 1.2, text_y = 0.8) plot(text = "|\\gx(R)| (\\A\\u-3\\d)", text_x= 0.2, text_y = 0.6) plot(text = "|\gx(R)| (\A\u-3\d)", text_x= 1.2, text_y = 0.6) plot(text = "k\\u2\\d\\gx(k) (\\A\\u-2\\d)", text_x= 0.2, text_y = 0.4) plot(text = "k\u2\d\gx(k) (\A\u-2\d)", text_x= 1.2, text_y = 0.4) plot(text = "\\gs\\u2\\d (\\A\\u2\\d)", text_x= 0.2, text_y = 0.2) plot(text = "\gs\u2\d (\A\u2\d)", text_x= 1.2, text_y = 0.2) ifeffit-1.2.11d/examples/Plotting/arrows.iff0000644000175000017500000000305410771740461020002 0ustar segresegre# # This will generate a set of plot arrows # p.x = range(0,100,1) p.y = 10*sin(p.x*pi/30) newplot( p.x, p.y ,color=white,ymin=-10,ymax=11,xmin=0,xmax=100, labelsize=0.01, textsize=1.7, nogrid=1,gridcolor=white) plot_arrow (x1=1,y1=8,x2=25,y2=8) plot_text (x=2,y=9, text='plain') plot_arrow (x1=30,y1=8,x2=60,y2=8,no_head=1) plot_text (x=35,y=9, text='no_head=1') plot_arrow (x1=65,y1=8,x2=90,y2=8,outline=1) plot_text (x=70,y=9, text='outline=1') plot_arrow (x1=1,y1=4,x2=25,y2=4,barb=2) plot_text (x=2,y=5, text='barb=2') plot_arrow (x1=30,y1=4,x2=60,y2=4,barb=0) plot_text (x=35,y=5, text='barb=0') plot_arrow (x1=65,y1=4,x2=90,y2=4,barb=0,outline=1) plot_text (x=70,y=5, text='barb=0,outline=1') plot_arrow (x1=1,y1=0,x2=25,y2=0,angle=20) plot_text (x=2,y=1, text='angle=20') plot_arrow (x1=30,y1=0,x2=60,y2=0,angle=50) plot_text (x=35,y=1, text='angle=50') plot_arrow (x1=65,y1=0,x2=90,y2=0,angle=100,barb=0) plot_text (x=70,y=1, text='barb=0,angle=100') plot_arrow (x1=1,y1=-4,x2=25,y2=-4,size=1) plot_text (x=2,y=-3, text='size=1') plot_arrow (x1=30,y1=-4,x2=60,y2=-4,size=2) plot_text (x=35,y=-3, text='size=2') plot_arrow (x1=65,y1=-4,x2=90,y2=-4,size=5) plot_text (x=70,y=-3, text='size=5') plot_arrow (x1=1,y1=-8,x2=25,y2=-8,size=4,barb=1.5) plot_text (x=2,y=-7, text='size=4,barb=1.5') plot_arrow (x1=30,y1=-8,x2=60,y2=-8,size=3,angle=70) plot_text (x=35,y=-7, text='size=3,angle=70') plot_arrow (x1=65,y1=-8,x2=90,y2=-8,size=3,barb=-0.4) plot_text (x=70,y=-7, text='size=3,barb=-0.4') plot(file='plot_arrows.ps', device='/ps') ifeffit-1.2.11d/examples/Plotting/text-strings.iff0000644000175000017500000000157410771740461021145 0ustar segresegre# # some simple text strings using PGPLOT in Ifeffit # read_data(file = ../data/cu.xmu, label = 'energy xmu', group = cu) set $plot_xlabel ="E (eV)" set $plot_ylabel ="\gm(E)" newplot(cu.energy, cu.xmu, style=dashed,charsize=1.8,linewidth=2) plot(text = "Greek letters: \ga \gb \gc \gd \ge \gf \gh \gi \gj \gk \gm \gn", text_x= 9400, text_y = 3.3) plot(text = "Greek letters: \go \gp \gq \gr \gs \gt \gu \gv \gw \gx \gy \gz", text_x= 9400, text_y = 3.1) plot(text = "Common XAFS Symbols", text_x= 9400, text_y = 2.8) # |chi(R)| (Ang^(-3)) plot(text = "|\gx(R)| (\A\u-3\d)", text_x= 9900, text_y = 2.4) # k^2*chi(k) (Ang^(-2)) plot(text = "k\u2\d\gx(k) (\A\u-2\d)", text_x=10900, text_y = 2.4) # mu(E) plot(text = "\gm(E)", text_x= 9900, text_y = 1.8) # sigma^2 plot(text = "\gs\u2\d (\A\u2\d)", text_x=10900, text_y = 1.8) ifeffit-1.2.11d/examples/Plotting/keys.iff0000644000175000017500000000042510771740461017437 0ustar segresegre my.x = range(0.1,10,0.1) my.y = (exp(-my.x / 13) * 2* cos(my.x *2.3 )) my.z = (exp(-my.x/ 7.5) * (20/sqrt(my.x)) * sin(my.x/5) * (cos(my.x*4)) + cos((my.x+2.50)*2) / 4 ) newplot(my.x,my.y, color=red,key='bob') plot(my.x,my.z, color=blue,key='joe') ifeffit-1.2.11d/examples/FF2CHI/0000755000175000017500000000000010771740461015076 5ustar segresegreifeffit-1.2.11d/examples/FF2CHI/use_feffdat.iff0000644000175000017500000000522610771740461020044 0ustar segresegre# # this script shows how to manipulate arrays from feff.dat # files and how to reconstruct chi(k) from this data. # # it also compares the simple XAFS formula to that used by # ff2chi(), in which the full complex k-dependence of the # cumulants is included. # macro path_calcs 1 x1 'explicitly generate full chi(k) for a path using simple XAFS formula' get_path($1, prefix= p1 ,do_arrays) # the arrays generated by this are: # p1.k, p1.amp, p1.phase, p1.caps, p1.rep, p1.lambda # are on the 'feff grid', and reflect the data from feff.dat # amp = [col 3] * [col 5] : Scattering Amplitude # caps = [col 2] : Central Atom Phase Shift # phase= [col 2] + [col 4] : Total Phase Shift # # we'll generate chi(k) from these data # first, interpolate these onto the regular k grid set $2.k = range(0,20,0.05) set $2.amp = linterp(p1.k, p1.amp, $2.k) set $2.phase = linterp(p1.k, p1.phase, $2.k) set $2.caps = linterp(p1.k, p1.caps, $2.k) set $2.rep = linterp(p1.k, p1.rep, $2.k) set $2.lambda= linterp(p1.k, p1.lambda, $2.k) # # now construct XAFS according to XAFS formula: # note that we carefully avoid 'divide-by-zero' at k=0 set $2.kr2 = (($2.k + 1.e-17 ) * p1_reff * p1_reff) set $2.ss2 = exp(-2*p1_sigma2*$2.k*$2.k) set $2.mag = $2.amp * $2.ss2 * exp(-2*p1_reff /$2.lambda) / $2.kr2 set $2.pha = $2.phase + 2 * (p1_reff) * $2.k # using this correction would help some: # set $2.pha = $2.phase + 2 * (p1_reff - 2 *p1_sigma2/p1_reff) * $2.k set $2.chi = p1_degen * p1_S02 * $2.mag * sin($2.pha) end macro macro compare ss2 scale 'compare ff2chi and simple XAFS Formula for a value of sigma2' pause == compare FF2CHI and simple XAFS Formula with sigma2=$1 == set ss2 = $1 path_calcs 1 x1 ff2chi(1, prefix=f1) set x1.diff = (x1.chi-f1.chi) * $2 newplot( x1.k, (x1.chi-0.25), key = 'XAFS formula', title= 'ff2chi v. simple XAFS formula with \gs\u2\d = $1' ) plot f1.k, (f1.chi-0.25), key = 'FF2CHI' plot x1.k, x1.diff, key = 'diff * $2', ymax=0.5,ymin=-1 end macro #------------------------------------------------------ # # step 1: define path set ss2 = 0.0 path(1, ../feff/feff0001.dat, label ='Path 1', sigma2=ss2) # now compare ff2chi v. simple XAFS formula as sigma2 increases: compare 0.000 1.e14 compare 0.00001 1000 compare 0.001 10 compare 0.003 10 compare 0.020 10 # # We could now fit the reconstructed data to the feff path... # an exercise for the reader # guess ss2 = 0.002 # # set kmin = 1, kmax=18, dk=1, kweight=2, rmin=1, rmax=3 # # feffit(chi=x1.chi, 1, group=fit) # # show @variables ifeffit-1.2.11d/examples/FF2CHI/u.iff0000644000175000017500000000045610771740461016035 0ustar segresegre&print_level = 10 path(1, ../feff/feff0001.dat, label ='Path 1', degen=7) path(2, ../feff/feff0001.dat, label ='Path 2', degen=12) path(3, ../feff/feff0001.dat, label ='Path 3') get_path(1, prefix=p1) show @path=1 show p1_reff, p1_degen ff2chi(1,group=p1) ff2chi(2,group=p2) ff2chi(3,group=p3) ifeffit-1.2.11d/examples/FF2CHI/einstein.iff0000644000175000017500000000064510771740461017407 0ustar segresegrepath(1, ../feff/feff0001.dat) get_path(1, prefix = p1) set my.temp = (indarr(3) - 1) * 100 + 10 set my.dwf = eins(my.temp, 200) set my.d2 = debye(my.temp, 200) set m1 = eins( 10, 200) set m2 = eins(110, 200) set m3 = eins(210, 200) set d1 = debye( 10, 200) set d2 = debye(110, 200) set d3 = debye(210, 200) print 'Einstein Model:' print my.dwf print m1, m2, m3 print 'Debye Model:' print my.d2 print d1, d2, d3 ifeffit-1.2.11d/examples/FF2CHI/debye.iff0000644000175000017500000000152110771740461016653 0ustar segresegredeb = debye(50,315) ein = eins(50,315) path(index = 001, feff = ../feff/feffcu01.dat, label = "Cu metal first neighbor", s02 = 1.0, sigma2 = deb, e0 = 0.01 ) path(index=002, feff=../feff/feffcu02.dat, s02 =1.0) path(index=006, feff=../feff/feffcu03.dat, s02 =0.8) path(index=101, feff=../feff/feffcu01.dat, s02 =1.0, sigma2=0.001, e0=3) ff2chi(1, group=f1) ff2chi(1,2,6,group=feff) print '# Path Index sigma2 (Debye) sigma2 (Einstein)' path_index = 1 print path_index, deb, ein path_index = 2 print path_index, deb, ein path_index = 6 sync print path_index, deb, ein ## results: ## path index sigma2 (debye) sigma2 (einstein) # 1.00000000 0.329157621E-02 0.243212810E-02 # 2.00000000 0.384092281E-02 0.243212810E-02 # 6.00000000 0.370302324E-02 0.364819216E-02 ifeffit-1.2.11d/examples/FF2CHI/b.iff0000644000175000017500000000040610771740461016005 0ustar segresegre def rrr = reff/10 path(1, feff=../feff/feff0001.dat, delr=rrr) path(2, feff=../feff/feff0002.dat, delr=rrr) ff2chi(1,2,group=x) echo 'aa' show rrr set path_index = 1 echo 'bb' show rrr, path_index path_index = 2 show rrr ifeffit-1.2.11d/examples/FF2CHI/save_reff.iff0000644000175000017500000000102210771740461017517 0ustar segresegrepath(index = 001, feff = ../feff/feffcu01.dat, label = "Cu metal first neighbor", s02 = 1.0, sigma2 = 0.001, e0 = 0.01 ) path(index=002, feff=../feff/feffcu02.dat, s02 =1.0) path(index=003, feff=../feff/feffcu03.dat, s02 =0.8) ff2chi(1, group=f1) set (reff_1 = reff , deg_1 = degen) ff2chi(2, group=f2) set ( reff_2 = reff, deg_2 = degen) ff2chi(3, group=f3) set ( reff_3 = reff, deg_3 = degen) ff2chi(1,2,3,group=feff) show reff_1, reff_2, reff_3, deg_1, deg_2, deg_3 ifeffit-1.2.11d/examples/FF2CHI/erase_feffdat.iff0000644000175000017500000000056310771740461020346 0ustar segresegre# # Currently (1.0067, Feb 5, 2002), erasing feff paths does # not work properly. # set ss2 = 0 path(1, ../feff/feff0001.dat, label ='Path 1', sigma2=ss2) path(2, ../feff/feff0002.dat, label ='Path 2', sigma2=ss2) path(11, ../feff/feff0001.dat, label ='Path 11', sigma2=ss2) path(12, ../feff/feff0003.dat, label ='Path 12', sigma2=ss2) show @paths # erase @path=2 ifeffit-1.2.11d/examples/FF2CHI/test_terp.iff0000644000175000017500000000035710771740461017602 0ustar segresegreread_data(../feff/feff0001.dat, group = f, type = feff.dat) set my.k = (indarr(401) -1 ) /20. set my.lmag = linterp(f.k,f.mag,my.k) set my.smag = splint(f.k,f.mag,my.k) newplot(my.k, my.lmag, ymin = 0, ymax = 1) plot(my.k, my.smag) ifeffit-1.2.11d/examples/FF2CHI/fft_phase_corrections.iff0000644000175000017500000000133110771740461022133 0ustar segresegre# # example of phase-corrected FTs using phase-shifts # from FEFF calculations # read_data(../data/cu150k.chi , group=c, type=chi) set d.chi = c.chi set e.chi = c.chi kmin=2, kmax=18, dk=1,kweight=2 # no phase-correction fftf(c.chi) # read path path(1, ../feff/feff0001.dat, label ='Path 1') # phase-shifted FT with central-atom phase-shift only fftf(d.chi,pc_feff_path=1, pc_caps=1) # phase-shifted FT with full phase-shift fftf(e.chi,pc_feff_path=1, pc_full=1) newplot(c.r, c.chir_mag, xmax=8, key='No Phase-Shift',key_x=0.7, title= 'Comparison of Phase-Corrected FTs using data from a FEFF path') plot(d.r, d.chir_mag, key='Central Atom Phase-Shift') plot(e.r, e.chir_mag, key='Full Phase-Shift') ifeffit-1.2.11d/examples/FF2CHI/get_path.iff0000644000175000017500000000042410771740461017357 0ustar segresegrepath(1, ../feff/feff0001.dat, label ='Path 1') path(2, ../feff/feff0002.dat) get_path(1, prefix=p1) get_path(2, prefix=p2) show @path=1 show p1_reff, p1_degen, p1_s02, p1_e0, p1_delr, p1_sigma2 show @path=2 show p2_reff, p2_degen, p2_s02, p2_e0, p2_delr, p2_sigma2 ifeffit-1.2.11d/examples/FF2CHI/m.iff0000644000175000017500000000053110771740461016017 0ustar segresegre path(1, ../feff/feff0001.dat ) get_path(1, prefix=p, do_arrays) show @arrays guess gamma = 1 guess off = 2 guess c = 0 set d = 2 p.mod = off + p.k / (0.2625 * gamma) + c / (p.k + d) p.resid = p.lambda - p.mod minimize(p.resid,x = p.k, xmin=3) show @variables newplot p.k , p.lambda, ymin=0,ymax=50 plot p.k , p.mod ifeffit-1.2.11d/examples/FF2CHI/FF2CHI.iff0000644000175000017500000000073210771740461016467 0ustar segresegre kmin = 1.5, kmax = 18.5, dk = 1.0, kweight = 2 s02 = 1, e0 = -1, ss2 = 0.002 path (0, s02 = s02, e0 = e0, sigma2 = "abs(ss2) + 0.001" ) path (1, feff= ../feff/feffcu01.dat) path (2, feff= ../feff/feffcu02.dat) path (3, feff= ../feff/feffcu03.dat) ff2chi(1, group = f1) fftf (real = f1.chi) ff2chi(2, group = f2) fftf (real = f2.chi) ff2chi(3, group = f3) fftf (real = f3.chi) ff2chi( 1,2,3, group = sum) $group = sum fftf (real = sum.chi) show @paths ifeffit-1.2.11d/examples/FF2CHI/torture.iff0000644000175000017500000000357310771740461017300 0ustar segresegrepath( 1, file = ../feff/feff0001.dat, delr=0.001, s02=1) path( 2, file = ../feff/feff0002.dat, delr=0.001, s02=1) path( 3, file = ../feff/feff0003.dat, delr=0.001, s02=1) path( 4, file = ../feff/feff0004.dat, delr=0.001, s02=1) path( 5, file = ../feff/feff0005.dat, delr=0.001, s02=1) path( 6, file = ../feff/feff0006.dat, delr=0.001, s02=1) path( 7, file = ../feff/feff0007.dat, delr=0.001, s02=1) path( 8, file = ../feff/feff0008.dat, delr=0.001, s02=1) path( 9, file = ../feff/feff0009.dat, delr=0.001, s02=1) path(10, file = ../feff/feff0010.dat, delr=0.001, s02=1) ff2chi(1-10,group=all) ff2chi(1 ,group=f1) show @groups show @path=1 erase @paths path( 3, file = ../feff/feff0001.dat, delr=0.001, s02=1) path( 4, file = ../feff/feff0002.dat, delr=0.001, s02=1) path( 5, file = ../feff/feff0003.dat, delr=0.001, s02=1) path( 6, file = ../feff/feff0004.dat, delr=0.001, s02=1) path( 7, file = ../feff/feff0005.dat, delr=0.001, s02=1) path( 8, file = ../feff/feff0006.dat, delr=0.001, s02=1) path( 9, file = ../feff/feff0007.dat, delr=0.001, s02=1) path(10, file = ../feff/feff0008.dat, delr=0.001, s02=1) path(11, file = ../feff/feff0009.dat, delr=0.001, s02=1) path(12, file = ../feff/feff0010.dat, delr=0.001, s02=1) ff2chi(3,group=f2) show @groups show @path=3 erase @paths path( 1, file = ../feff/feff0001.dat, delr=0.001, s02=1) path( 2, file = ../feff/feff0002.dat, delr=0.001, s02=1) path( 3, file = ../feff/feff0003.dat, delr=0.001, s02=1) path( 4, file = ../feff/feff0004.dat, delr=0.001, s02=1) path( 5, file = ../feff/feff0005.dat, delr=0.001, s02=1) path( 6, file = ../feff/feff0006.dat, delr=0.001, s02=1) path( 7, file = ../feff/feff0007.dat, delr=0.001, s02=1) path( 8, file = ../feff/feff0008.dat, delr=0.001, s02=1) path( 9, file = ../feff/feff0009.dat, delr=0.001, s02=1) path(10, file = ../feff/feff0010.dat, delr=0.001, s02=1) ff2chi(1,group=f2) show @groups show @path=1 erase @paths ifeffit-1.2.11d/examples/scripting/0000755000175000017500000000000010771740461016177 5ustar segresegreifeffit-1.2.11d/examples/scripting/python/0000755000175000017500000000000010771740461017520 5ustar segresegreifeffit-1.2.11d/examples/scripting/c/0000755000175000017500000000000010771740461016421 5ustar segresegreifeffit-1.2.11d/examples/scripting/perl/0000755000175000017500000000000010771740461017141 5ustar segresegreifeffit-1.2.11d/examples/scripting/f/0000755000175000017500000000000010771740461016424 5ustar segresegreifeffit-1.2.11d/examples/scripting/f/Makefile0000644000175000017500000000153510771740461020070 0ustar segresegre## ## Fortran Makefile ## ## 1: replace with the contents of Config.mak from ## /usr/local/share/ifeffit/config #== Ifeffit build configuration: # LIB_IFF = ifeffit library # LIB_PLT = PGPLOT libraries # LIB_F77 = Fortran libraries # LIB_X11 = X Libaries # INC_IFF = location of ifeffit.h LIB_IFF = -L/usr/local/lib -lifeffit LIB_PLT = -L/usr/local/pgplot -lpgplot LIB_F77 = -lg2c -lm -L/usr/lib/gcc-lib/i386-redhat-linux/2.96 -L/usr/lib/gcc-lib/i386-redhat-linux/2.96/../../.. -lm LIB_X11 = -L/usr/X11R6/lib -lX11 INC_IFF = -I/usr/local/include #== F77 = f77 -O1 LOAD = $(F77) TARGET = f1 SRC = f1.f OBJ = f1.o default: $(TARGET) .f.o: $(F77) -c $*.f ALL_LIBS = $(LIB_IFF) $(LIB_PLT) $(LIB_X11) $(LIB_F77) $(TARGET): $(OBJ) $(LOAD) $(OBJ) -o $(TARGET) $(ALL_LIBS) clean : rm -f $(OBJ) $(TARGET) ifeffit-1.2.11d/examples/scripting/f/f1.f0000644000175000017500000000047310771740461017105 0ustar segresegre program use_if integer i include '/usr/local/share/ifeffit/config/ifeffit.inc' c i = ifeffit(' ') i = ifeffit('read_data(../../data/cu.xmu, group=cu, type=xmu)') i = ifeffit('spline(cu.energy, cu.xmu, rbkg = 1.2)') i = ifeffit('plot(cu.k, cu.chi)') c end ifeffit-1.2.11d/examples/Macros/0000755000175000017500000000000010771740460015420 5ustar segresegreifeffit-1.2.11d/examples/Macros/Macros.iff0000644000175000017500000000434610771740460017341 0ustar segresegre macro pf "A.dat", "2" "simple plot of a file" read_data($1, type=raw, group=my) plot(my.1, my.$2, $3) end macro macro bkg "x.xmu", "my", "rbkg=1" "simple background subtraction" read_data( $1, type=xmu, group=$2) kweight = 1 rbkg = 1.01 spline ($2.energy, $2.xmu, kmin = 0, kmax = 0,$3) newplot($2.energy, $2.xmu, group, color = blue) plot ($2.energy, $2.bkg, style = dashed, color = tomato ) end macro macro pre "x.xmu" "quick pre-edge subtraction" read_data( $1, type=xmu, group=my) pre_edge(my.energy, my.xmu) end macro macro feff_path "0001" "define a path from a feff file" path ($1, feff$1.dat, label = $1, $2) end macro macro make_ps ifeffit.ps /cps "save current plot to a postscript file" plot(device=$2, file= $1) end macro macro make_gif ifeffit.gif "save current plot to a gif file" plot(device="/gif",file= $1) end macro macro testplot "test plot" my.x = indarr(500)/35. my.y1 = (exp(-my.x / 13) * 2* cos(my.x *2.3 )) my.y2 = (exp(-my.x/ 7.5) * (20/sqrt(my.x)) * sin(my.x/5) * (cos(my.x*4)) + cos((my.x+2.50)*2) / 4 ) newplot(my.x,my.y1, color=red) plot(my.x,my.y2, color=blue) end macro macro srfit "show R-space data and fit from Feffit" read_data($1r.dat, type = rsp, group = dat) read_data($1r.fit, type = rsp, group = fit) newplot(r,chir_mag, group=dat, $2) plot(r,chir_mag, group=fit, $3) end macro macro skfit "show k-space data and fit from Feffit" read_data($1k.dat, type = chi, group = dat) read_data($1k.fit, type = chi, group = fit) newplot(k,chi, group=dat, $2) plot(k,chi, group=fit, $3) end macro macro skwfit {test} {2} "show k-weighted k-space data and fit from Feffit" read_data($1k.dat, type = chi, group = dat) read_data($1k.fit, type = chi, group = fit) dat.chik = dat.chi * dat.k^($2) fit.chik = fit.chi * fit.k^($2) newplot(k,chik, group=dat, $3) plot(k,chik, group=fit, $4) end macro macro sqfit "show filtered (q-space) data and fit from Feffit" read_data($1q.dat, type = chi, group = qdat) read_data($1q.fit, type = chi, group = qfit) newplot(k,chi, group=qdat, $2) plot(k,chi, group=qfit, $3) end macro ifeffit-1.2.11d/examples/Macros/iff.out0000644000175000017500000000155310771740460016721 0ustar segresegre read_data (file = pu089.dat, prefix=my) set (tmp.xafs = my.5 * my.10 / (my.11 * my.8)) plot (my.1, tmp.xafs, xmax=18500) set ($outfile = 'xafs.dat') set ($title = 'ENERGY XMU I0 THETA') write_data (file = 'xafs.dat', $title, my.1, tmp.xafs, my.8, my.2) set (pu089.en = my.1) set (pu089.xmu= tmp.xafs) read_data (file = pu090.dat, prefix=my) set (tmp.xafs = my.5 * my.10 / (my.11 * my.8)) plot (my.1, tmp.xafs, xmax=18500) set ($outfile = 'xafs.dat') set ($title = 'ENERGY XMU I0 THETA') write_data (file = 'xafs.dat', $title, my.1, tmp.xafs, my.8, my.2) set (pu090.en = my.1) set (pu090.xmu= tmp.xafs) set (out.en = pu090.en) set (out.xmu = (pu089.xmu + pu090.xmu)/2.) set ($title1 = 'Pu xample A / 1 : average of 2 scans ') set ($title2 = 'ENERGY XMU') write_data (file = 'ave.xmu', $title1, $title2, out.en, out.xmu) ifeffit-1.2.11d/examples/Macros/quit.iff0000644000175000017500000000046710771740460017077 0ustar segresegre# # some people are just plain lazy and never # satisfied. So this little macro, which # saves 3 whole keystrokes, is for them. # # in keeping of the spirit of laziness, the # documentation is 5 times longer than the # macro itself. # macro q 'typing q will cause ifeffit to exit' exit end macro ifeffit-1.2.11d/examples/Macros/W.iff0000644000175000017500000000006410771740460016314 0ustar segresegreload tmp.iff pu089.en = my.1 pu089.xmu= tmp.xafs ifeffit-1.2.11d/examples/Macros/test.iff0000644000175000017500000000024610771740460017067 0ustar segresegremacro t2 echo '## this is macro t2' end macro macro t1 echo '## < macro t1 : to t2 >' t2 echo '## < macro t1 : from t2> ' end macro &print_level = 8 t1 ifeffit-1.2.11d/examples/Macros/tmp.iff0000644000175000017500000000040310771740460016703 0ustar segresegre read_data(file = pu089.dat, prefix=my) tmp.xafs = my.5 * my.10 / (my.11 * my.8) plot (my.1, tmp.xafs, xmax=18500) $outfile = 'xafs.dat' $title = 'ENERGY XMU I0 THETA' write_data (file = 'xafs.dat', $title, my.1, tmp.xafs, my.8, my.2) ifeffit-1.2.11d/examples/Macros/DO.iff0000644000175000017500000000056610771740460016417 0ustar segresegre read_parse pu089.dat ! mv xafs.dat pu089.xmu pu089.en = my.1 pu089.xmu= tmp.xafs read_parse pu090.dat ! mv xafs.dat pu090.xmu pu090.en = my.1 pu090.xmu= tmp.xafs out.en = pu090.en out.xmu = (pu089.xmu + pu090.xmu)/2. # # $title1 = 'Pu xample A / 1 : average of 2 scans ' $title2 = 'ENERGY XMU' write_data (file = 'ave.xmu', $title1, $title2, out.en, out.xmu) ifeffit-1.2.11d/examples/Macros/xafs.dat0000644000175000017500000004272010771740460017060 0ustar segresegre# ENERGY XMU I0 THETA #------------------- # my.1 tmp.xafs my.8 my.2 0.1796957E+05 0.1542882E+00 0.5362100E+05 0.1035000E+02 0.1797215E+05 0.1519408E+00 0.5241200E+05 0.1034850E+02 0.1797473E+05 0.1562487E+00 0.5605000E+05 0.1034700E+02 0.1797731E+05 0.1551552E+00 0.5944700E+05 0.1034549E+02 0.1797990E+05 0.1592289E+00 0.6101300E+05 0.1034399E+02 0.1798248E+05 0.1598082E+00 0.6149200E+05 0.1034249E+02 0.1798506E+05 0.1590316E+00 0.6133700E+05 0.1034099E+02 0.1798765E+05 0.1606590E+00 0.6098100E+05 0.1033949E+02 0.1799023E+05 0.1582807E+00 0.6047100E+05 0.1033798E+02 0.1799282E+05 0.1600127E+00 0.5975500E+05 0.1033648E+02 0.1799541E+05 0.1586123E+00 0.5984000E+05 0.1033498E+02 0.1799799E+05 0.1613446E+00 0.5915300E+05 0.1033348E+02 0.1800058E+05 0.1555114E+00 0.5874600E+05 0.1033197E+02 0.1800317E+05 0.1580024E+00 0.5890200E+05 0.1033047E+02 0.1800576E+05 0.1579105E+00 0.5877000E+05 0.1032897E+02 0.1800835E+05 0.1550940E+00 0.5901200E+05 0.1032747E+02 0.1801094E+05 0.1578486E+00 0.5900100E+05 0.1032597E+02 0.1801354E+05 0.1550117E+00 0.5928800E+05 0.1032446E+02 0.1801613E+05 0.1606891E+00 0.5893700E+05 0.1032296E+02 0.1801872E+05 0.1630235E+00 0.5921600E+05 0.1032146E+02 0.1802131E+05 0.1646462E+00 0.5816600E+05 0.1031996E+02 0.1802391E+05 0.1643405E+00 0.5791900E+05 0.1031846E+02 0.1802651E+05 0.1596911E+00 0.5647400E+05 0.1031695E+02 0.1802910E+05 0.1627201E+00 0.5613600E+05 0.1031545E+02 0.1803170E+05 0.1691421E+00 0.5583500E+05 0.1031395E+02 0.1803430E+05 0.1722071E+00 0.5532600E+05 0.1031245E+02 0.1803690E+05 0.1712881E+00 0.5564000E+05 0.1031094E+02 0.1803950E+05 0.1727068E+00 0.5534300E+05 0.1030944E+02 0.1804210E+05 0.1741431E+00 0.5548300E+05 0.1030794E+02 0.1804470E+05 0.1717116E+00 0.5487600E+05 0.1030644E+02 0.1804730E+05 0.1790487E+00 0.5502300E+05 0.1030494E+02 0.1804990E+05 0.1802713E+00 0.5449700E+05 0.1030343E+02 0.1805251E+05 0.1788924E+00 0.5388100E+05 0.1030193E+02 0.1805511E+05 0.1861875E+00 0.5371600E+05 0.1030043E+02 0.1805772E+05 0.1853708E+00 0.5360300E+05 0.1029893E+02 0.1806032E+05 0.1803671E+00 0.5266700E+05 0.1029743E+02 0.1806293E+05 0.1887798E+00 0.5197000E+05 0.1029592E+02 0.1806554E+05 0.1926046E+00 0.5198500E+05 0.1029442E+02 0.1806814E+05 0.2021640E+00 0.5170700E+05 0.1029292E+02 0.1807075E+05 0.2162728E+00 0.5132400E+05 0.1029142E+02 0.1807336E+05 0.2427851E+00 0.5119700E+05 0.1028992E+02 0.1807597E+05 0.2782636E+00 0.5062000E+05 0.1028841E+02 0.1807858E+05 0.3331657E+00 0.5040600E+05 0.1028691E+02 0.1808120E+05 0.4220251E+00 0.5030700E+05 0.1028541E+02 0.1808381E+05 0.5414779E+00 0.4974300E+05 0.1028391E+02 0.1808642E+05 0.6072039E+00 0.5000400E+05 0.1028240E+02 0.1808904E+05 0.5859713E+00 0.4994400E+05 0.1028090E+02 0.1809165E+05 0.5301469E+00 0.4993000E+05 0.1027940E+02 0.1809427E+05 0.4727715E+00 0.4971700E+05 0.1027790E+02 0.1809688E+05 0.4292545E+00 0.4944100E+05 0.1027640E+02 0.1809950E+05 0.4025514E+00 0.4920000E+05 0.1027489E+02 0.1810212E+05 0.3917125E+00 0.4834000E+05 0.1027339E+02 0.1810474E+05 0.3975497E+00 0.4898900E+05 0.1027189E+02 0.1810736E+05 0.3949146E+00 0.4836100E+05 0.1027039E+02 0.1810998E+05 0.3964491E+00 0.4852600E+05 0.1026888E+02 0.1811260E+05 0.4006595E+00 0.4867400E+05 0.1026738E+02 0.1811522E+05 0.4090591E+00 0.4876400E+05 0.1026588E+02 0.1811784E+05 0.4169398E+00 0.4891300E+05 0.1026438E+02 0.1812046E+05 0.4296557E+00 0.4912700E+05 0.1026288E+02 0.1812309E+05 0.4371718E+00 0.4908100E+05 0.1026137E+02 0.1812572E+05 0.4295723E+00 0.4948300E+05 0.1025987E+02 0.1812834E+05 0.4352913E+00 0.4938300E+05 0.1025837E+02 0.1813097E+05 0.4260134E+00 0.4950500E+05 0.1025687E+02 0.1813359E+05 0.4292673E+00 0.4917700E+05 0.1025537E+02 0.1813622E+05 0.4236300E+00 0.4903800E+05 0.1025386E+02 0.1813885E+05 0.4151444E+00 0.4901600E+05 0.1025236E+02 0.1814148E+05 0.4040912E+00 0.4804100E+05 0.1025086E+02 0.1814411E+05 0.4104382E+00 0.4803000E+05 0.1024936E+02 0.1814674E+05 0.4018198E+00 0.4785000E+05 0.1024785E+02 0.1814938E+05 0.4069043E+00 0.4778000E+05 0.1024635E+02 0.1815201E+05 0.4073845E+00 0.4804000E+05 0.1024485E+02 0.1815464E+05 0.4060361E+00 0.4800200E+05 0.1024335E+02 0.1815728E+05 0.4082456E+00 0.4786500E+05 0.1024185E+02 0.1815991E+05 0.4053397E+00 0.4823900E+05 0.1024034E+02 0.1816254E+05 0.4061451E+00 0.4793700E+05 0.1023884E+02 0.1816518E+05 0.4058494E+00 0.4779900E+05 0.1023734E+02 0.1816782E+05 0.4075946E+00 0.4812400E+05 0.1023584E+02 0.1817046E+05 0.4065022E+00 0.4786200E+05 0.1023433E+02 0.1817310E+05 0.4101139E+00 0.4810600E+05 0.1023283E+02 0.1817574E+05 0.4137819E+00 0.4810500E+05 0.1023133E+02 0.1817838E+05 0.4152339E+00 0.4820800E+05 0.1022983E+02 0.1818102E+05 0.4175472E+00 0.4824000E+05 0.1022833E+02 0.1818366E+05 0.4244472E+00 0.4808100E+05 0.1022682E+02 0.1818630E+05 0.4216022E+00 0.4785800E+05 0.1022532E+02 0.1818895E+05 0.4191086E+00 0.4735000E+05 0.1022382E+02 0.1819159E+05 0.4202591E+00 0.4741400E+05 0.1022232E+02 0.1819424E+05 0.4292398E+00 0.4742300E+05 0.1022082E+02 0.1819688E+05 0.4185568E+00 0.4744700E+05 0.1021931E+02 0.1819953E+05 0.4202316E+00 0.4806300E+05 0.1021781E+02 0.1820218E+05 0.4209748E+00 0.4820900E+05 0.1021631E+02 0.1820482E+05 0.4208037E+00 0.4864800E+05 0.1021481E+02 0.1820747E+05 0.4236430E+00 0.4851300E+05 0.1021331E+02 0.1821012E+05 0.4257940E+00 0.4881500E+05 0.1021180E+02 0.1821278E+05 0.4174721E+00 0.4866700E+05 0.1021030E+02 0.1821543E+05 0.4114185E+00 0.4853600E+05 0.1020880E+02 0.1821808E+05 0.4090106E+00 0.4811500E+05 0.1020730E+02 0.1822073E+05 0.4143066E+00 0.4825400E+05 0.1020579E+02 0.1822338E+05 0.4096995E+00 0.4797200E+05 0.1020429E+02 0.1822604E+05 0.4085533E+00 0.4755900E+05 0.1020279E+02 0.1822870E+05 0.4124528E+00 0.4737200E+05 0.1020129E+02 0.1823135E+05 0.4062937E+00 0.4724500E+05 0.1019979E+02 0.1823401E+05 0.4022947E+00 0.4734700E+05 0.1019828E+02 0.1823667E+05 0.4101534E+00 0.4684500E+05 0.1019678E+02 0.1823932E+05 0.4039806E+00 0.4688700E+05 0.1019528E+02 0.1824198E+05 0.4067510E+00 0.4740000E+05 0.1019378E+02 0.1824464E+05 0.4112448E+00 0.4761400E+05 0.1019228E+02 0.1824730E+05 0.4121006E+00 0.4793600E+05 0.1019077E+02 0.1824996E+05 0.4113936E+00 0.4783900E+05 0.1018927E+02 0.1825263E+05 0.4175565E+00 0.4805200E+05 0.1018777E+02 0.1825529E+05 0.4198044E+00 0.4763800E+05 0.1018627E+02 0.1825796E+05 0.4165450E+00 0.4737100E+05 0.1018476E+02 0.1826062E+05 0.4141017E+00 0.4726400E+05 0.1018326E+02 0.1826329E+05 0.4130614E+00 0.4647900E+05 0.1018176E+02 0.1826595E+05 0.4104903E+00 0.4661300E+05 0.1018026E+02 0.1826862E+05 0.4137636E+00 0.4661400E+05 0.1017876E+02 0.1827129E+05 0.4019941E+00 0.4651300E+05 0.1017725E+02 0.1827396E+05 0.4088210E+00 0.4609000E+05 0.1017575E+02 0.1827663E+05 0.4150121E+00 0.4657300E+05 0.1017425E+02 0.1827930E+05 0.4147187E+00 0.4618600E+05 0.1017275E+02 0.1828197E+05 0.4040346E+00 0.4663600E+05 0.1017125E+02 0.1828464E+05 0.4072758E+00 0.4658500E+05 0.1016974E+02 0.1828731E+05 0.4120809E+00 0.4696100E+05 0.1016824E+02 0.1828999E+05 0.4130428E+00 0.4678800E+05 0.1016674E+02 0.1829266E+05 0.4085127E+00 0.4659800E+05 0.1016524E+02 0.1829534E+05 0.4153892E+00 0.4687100E+05 0.1016373E+02 0.1829801E+05 0.4094234E+00 0.4621300E+05 0.1016223E+02 0.1830069E+05 0.4114371E+00 0.4637600E+05 0.1016073E+02 0.1830337E+05 0.4088250E+00 0.4582000E+05 0.1015923E+02 0.1830604E+05 0.4063893E+00 0.4569600E+05 0.1015773E+02 0.1830872E+05 0.4108939E+00 0.4587100E+05 0.1015622E+02 0.1831140E+05 0.4098016E+00 0.4535300E+05 0.1015472E+02 0.1831409E+05 0.4069340E+00 0.4541100E+05 0.1015322E+02 0.1831677E+05 0.4056561E+00 0.4543100E+05 0.1015172E+02 0.1831945E+05 0.4047216E+00 0.4547000E+05 0.1015022E+02 0.1832213E+05 0.4092801E+00 0.4581300E+05 0.1014871E+02 0.1832481E+05 0.4094681E+00 0.4566400E+05 0.1014721E+02 0.1832750E+05 0.4100721E+00 0.4602600E+05 0.1014571E+02 0.1833018E+05 0.4082096E+00 0.4585100E+05 0.1014421E+02 0.1833287E+05 0.4114552E+00 0.4610100E+05 0.1014270E+02 0.1833556E+05 0.4090791E+00 0.4569700E+05 0.1014120E+02 0.1833825E+05 0.4016276E+00 0.4611600E+05 0.1013970E+02 0.1834094E+05 0.4055511E+00 0.4553300E+05 0.1013820E+02 0.1834363E+05 0.4058465E+00 0.4572700E+05 0.1013670E+02 0.1834631E+05 0.4041624E+00 0.4508900E+05 0.1013519E+02 0.1834900E+05 0.3994989E+00 0.4504400E+05 0.1013369E+02 0.1835170E+05 0.4035406E+00 0.4498000E+05 0.1013219E+02 0.1835439E+05 0.4032861E+00 0.4515900E+05 0.1013069E+02 0.1835708E+05 0.4084180E+00 0.4524600E+05 0.1012919E+02 0.1835978E+05 0.4073553E+00 0.4536400E+05 0.1012768E+02 0.1836247E+05 0.4085296E+00 0.4588900E+05 0.1012618E+02 0.1836517E+05 0.4122377E+00 0.4586700E+05 0.1012468E+02 0.1836787E+05 0.4083776E+00 0.4631500E+05 0.1012318E+02 0.1837056E+05 0.4142538E+00 0.4626200E+05 0.1012167E+02 0.1837326E+05 0.4122518E+00 0.4602900E+05 0.1012017E+02 0.1837596E+05 0.4122520E+00 0.4610900E+05 0.1011867E+02 0.1837866E+05 0.4157982E+00 0.4568800E+05 0.1011717E+02 0.1838136E+05 0.4088081E+00 0.4530600E+05 0.1011567E+02 0.1838406E+05 0.4095218E+00 0.4488300E+05 0.1011416E+02 0.1838677E+05 0.4032342E+00 0.4441900E+05 0.1011266E+02 0.1838947E+05 0.4001763E+00 0.4437800E+05 0.1011116E+02 0.1839217E+05 0.4014233E+00 0.4447200E+05 0.1010966E+02 0.1839488E+05 0.3986395E+00 0.4447000E+05 0.1010816E+02 0.1839758E+05 0.4005484E+00 0.4438100E+05 0.1010665E+02 0.1840029E+05 0.3946106E+00 0.4402800E+05 0.1010515E+02 0.1840300E+05 0.3997129E+00 0.4327800E+05 0.1010365E+02 0.1840571E+05 0.3636581E+00 0.3433200E+05 0.1010215E+02 0.1840841E+05 0.4068114E+00 0.4567600E+05 0.1010064E+02 0.1841112E+05 0.4113718E+00 0.4615900E+05 0.1009914E+02 0.1841383E+05 0.4110766E+00 0.4616600E+05 0.1009764E+02 0.1841654E+05 0.4129327E+00 0.4610500E+05 0.1009614E+02 0.1841926E+05 0.4131759E+00 0.4594400E+05 0.1009464E+02 0.1842197E+05 0.4118892E+00 0.4626300E+05 0.1009313E+02 0.1842468E+05 0.4127471E+00 0.4582200E+05 0.1009163E+02 0.1842740E+05 0.4068944E+00 0.4571300E+05 0.1009013E+02 0.1843011E+05 0.4117317E+00 0.4555100E+05 0.1008863E+02 0.1843283E+05 0.4048094E+00 0.4516400E+05 0.1008712E+02 0.1843555E+05 0.4096148E+00 0.4501900E+05 0.1008562E+02 0.1843827E+05 0.4122205E+00 0.4493100E+05 0.1008412E+02 0.1844098E+05 0.4157316E+00 0.4476800E+05 0.1008262E+02 0.1844370E+05 0.4109549E+00 0.4509100E+05 0.1008112E+02 0.1844642E+05 0.4059468E+00 0.4463900E+05 0.1007961E+02 0.1844914E+05 0.4058530E+00 0.4493300E+05 0.1007811E+02 0.1845186E+05 0.4046225E+00 0.4496600E+05 0.1007661E+02 0.1845459E+05 0.4078001E+00 0.4527100E+05 0.1007511E+02 0.1845731E+05 0.4020737E+00 0.4506900E+05 0.1007361E+02 0.1846004E+05 0.4020434E+00 0.4486000E+05 0.1007210E+02 0.1846276E+05 0.4059140E+00 0.4532800E+05 0.1007060E+02 0.1846549E+05 0.4019811E+00 0.4503800E+05 0.1006910E+02 0.1846821E+05 0.4021972E+00 0.4480600E+05 0.1006760E+02 0.1847094E+05 0.4042615E+00 0.4496500E+05 0.1006610E+02 0.1847367E+05 0.4030150E+00 0.4498500E+05 0.1006459E+02 0.1847640E+05 0.4084994E+00 0.4477000E+05 0.1006309E+02 0.1847913E+05 0.4052910E+00 0.4455800E+05 0.1006159E+02 0.1848186E+05 0.4097097E+00 0.4449700E+05 0.1006009E+02 0.1848459E+05 0.4053860E+00 0.4420400E+05 0.1005858E+02 0.1848732E+05 0.4065181E+00 0.4461100E+05 0.1005708E+02 0.1849006E+05 0.4046530E+00 0.4448300E+05 0.1005558E+02 0.1849279E+05 0.4027627E+00 0.4469900E+05 0.1005408E+02 0.1849553E+05 0.4079366E+00 0.4479600E+05 0.1005258E+02 0.1849826E+05 0.4096073E+00 0.4533700E+05 0.1005107E+02 0.1850100E+05 0.4169952E+00 0.4538900E+05 0.1004957E+02 0.1850373E+05 0.4101278E+00 0.4507900E+05 0.1004807E+02 0.1850647E+05 0.3944412E+00 0.4508200E+05 0.1004657E+02 0.1850921E+05 0.4096239E+00 0.4536500E+05 0.1004506E+02 0.1851195E+05 0.4071161E+00 0.4491900E+05 0.1004356E+02 0.1851469E+05 0.4055158E+00 0.4467200E+05 0.1004206E+02 0.1851743E+05 0.4101276E+00 0.4462500E+05 0.1004056E+02 0.1852018E+05 0.4049451E+00 0.4457500E+05 0.1003906E+02 0.1852292E+05 0.4047574E+00 0.4520500E+05 0.1003755E+02 0.1852566E+05 0.4070664E+00 0.4574300E+05 0.1003605E+02 0.1852841E+05 0.4055120E+00 0.4568800E+05 0.1003455E+02 0.1853115E+05 0.4091802E+00 0.4575400E+05 0.1003305E+02 0.1853390E+05 0.4056661E+00 0.4612600E+05 0.1003155E+02 0.1853665E+05 0.4121595E+00 0.4596100E+05 0.1003004E+02 0.1853940E+05 0.4102762E+00 0.4586000E+05 0.1002854E+02 0.1854214E+05 0.4053721E+00 0.4581900E+05 0.1002704E+02 0.1854489E+05 0.4107835E+00 0.4583800E+05 0.1002554E+02 0.1854765E+05 0.4094701E+00 0.4535500E+05 0.1002404E+02 0.1855040E+05 0.4027405E+00 0.4563200E+05 0.1002253E+02 0.1855315E+05 0.4028773E+00 0.4557000E+05 0.1002103E+02 0.1855590E+05 0.4119238E+00 0.4520900E+05 0.1001953E+02 0.1855866E+05 0.4050505E+00 0.4470600E+05 0.1001803E+02 0.1856141E+05 0.4056012E+00 0.4453300E+05 0.1001652E+02 0.1856417E+05 0.3995495E+00 0.4457100E+05 0.1001502E+02 0.1856692E+05 0.4027080E+00 0.4445000E+05 0.1001352E+02 0.1856968E+05 0.4030181E+00 0.4433600E+05 0.1001202E+02 0.1857244E+05 0.3976054E+00 0.4270700E+05 0.1001052E+02 0.1857520E+05 0.4087843E+00 0.4554000E+05 0.1000901E+02 0.1857796E+05 0.4097151E+00 0.4615500E+05 0.1000751E+02 0.1858072E+05 0.4069782E+00 0.4616600E+05 0.1000601E+02 0.1858348E+05 0.4063746E+00 0.4618800E+05 0.1000451E+02 0.1858624E+05 0.4131568E+00 0.4614200E+05 0.1000301E+02 0.1858900E+05 0.4100292E+00 0.4608100E+05 0.1000150E+02 0.1859177E+05 0.4133194E+00 0.4588200E+05 0.1000000E+02 ifeffit-1.2.11d/examples/Macros/M1.if0000644000175000017500000000065410771740460016222 0ustar segresegre# DETECTORS: # number of energy points = 234 # energy, theta, Mn Ka, As Ka, Sr Ka, # Zr Ka, time, i0, i1, Real time (msec), Live time (msec) macro read_parse read_data(file = $1, prefix=my) tmp.xafs = my.5 * my.10 / (my.11 * my.8) plot (my.1, tmp.xafs, xmax=18500) $outfile = 'xafs.dat' $title = 'ENERGY XMU I0 THETA' write_data (file = 'xafs.dat', $title, my.1, tmp.xafs, my.8, my.2) end macro ifeffit-1.2.11d/examples/Macros/ave.xmu0000644000175000017500000002236210771740460016733 0ustar segresegre# Pu xample A / 1 : average of 2 scans # ENERGY XMU #------------------- # out.en out.xmu 0.1796957E+05 0.1539335E+00 0.1797215E+05 0.1532693E+00 0.1797473E+05 0.1572076E+00 0.1797731E+05 0.1577030E+00 0.1797990E+05 0.1595498E+00 0.1798248E+05 0.1580365E+00 0.1798506E+05 0.1607620E+00 0.1798765E+05 0.1595418E+00 0.1799023E+05 0.1577143E+00 0.1799282E+05 0.1606740E+00 0.1799541E+05 0.1588993E+00 0.1799799E+05 0.1591693E+00 0.1800058E+05 0.1561710E+00 0.1800317E+05 0.1573878E+00 0.1800576E+05 0.1563382E+00 0.1800835E+05 0.1573231E+00 0.1801094E+05 0.1565438E+00 0.1801354E+05 0.1576377E+00 0.1801613E+05 0.1581773E+00 0.1801872E+05 0.1625021E+00 0.1802131E+05 0.1626150E+00 0.1802391E+05 0.1629283E+00 0.1802651E+05 0.1604105E+00 0.1802910E+05 0.1638317E+00 0.1803170E+05 0.1685355E+00 0.1803430E+05 0.1694342E+00 0.1803690E+05 0.1699351E+00 0.1803950E+05 0.1705245E+00 0.1804210E+05 0.1733880E+00 0.1804470E+05 0.1706063E+00 0.1804730E+05 0.1758740E+00 0.1804990E+05 0.1796216E+00 0.1805251E+05 0.1793509E+00 0.1805511E+05 0.1827490E+00 0.1805772E+05 0.1850391E+00 0.1806032E+05 0.1814343E+00 0.1806293E+05 0.1880987E+00 0.1806554E+05 0.1933334E+00 0.1806814E+05 0.2038456E+00 0.1807075E+05 0.2157967E+00 0.1807336E+05 0.2427093E+00 0.1807597E+05 0.2808273E+00 0.1807858E+05 0.3371515E+00 0.1808120E+05 0.4282629E+00 0.1808381E+05 0.5486861E+00 0.1808642E+05 0.6149037E+00 0.1808904E+05 0.5880141E+00 0.1809165E+05 0.5289830E+00 0.1809427E+05 0.4751412E+00 0.1809688E+05 0.4300769E+00 0.1809950E+05 0.4059334E+00 0.1810212E+05 0.3918704E+00 0.1810474E+05 0.3959487E+00 0.1810736E+05 0.3933022E+00 0.1810998E+05 0.3966641E+00 0.1811260E+05 0.4025753E+00 0.1811522E+05 0.4138979E+00 0.1811784E+05 0.4186681E+00 0.1812046E+05 0.4321293E+00 0.1812309E+05 0.4365631E+00 0.1812572E+05 0.4328134E+00 0.1812834E+05 0.4372789E+00 0.1813097E+05 0.4277111E+00 0.1813359E+05 0.4265525E+00 0.1813622E+05 0.4233874E+00 0.1813885E+05 0.4158758E+00 0.1814148E+05 0.4066024E+00 0.1814411E+05 0.4089749E+00 0.1814674E+05 0.4015413E+00 0.1814938E+05 0.4060664E+00 0.1815201E+05 0.4063404E+00 0.1815464E+05 0.4051951E+00 0.1815728E+05 0.4036007E+00 0.1815991E+05 0.4083172E+00 0.1816254E+05 0.4047580E+00 0.1816518E+05 0.4050561E+00 0.1816782E+05 0.4066395E+00 0.1817046E+05 0.4081361E+00 0.1817310E+05 0.4105818E+00 0.1817574E+05 0.4136494E+00 0.1817838E+05 0.4187115E+00 0.1818102E+05 0.4195244E+00 0.1818366E+05 0.4234927E+00 0.1818630E+05 0.4242392E+00 0.1818895E+05 0.4208364E+00 0.1819159E+05 0.4205942E+00 0.1819424E+05 0.4273718E+00 0.1819688E+05 0.4193150E+00 0.1819953E+05 0.4220817E+00 0.1820218E+05 0.4216138E+00 0.1820482E+05 0.4212263E+00 0.1820747E+05 0.4201690E+00 0.1821012E+05 0.4222176E+00 0.1821278E+05 0.4170740E+00 0.1821543E+05 0.4113084E+00 0.1821808E+05 0.4109536E+00 0.1822073E+05 0.4130528E+00 0.1822338E+05 0.4127308E+00 0.1822604E+05 0.4085031E+00 0.1822870E+05 0.4096344E+00 0.1823135E+05 0.4078431E+00 0.1823401E+05 0.4071373E+00 0.1823667E+05 0.4073812E+00 0.1823932E+05 0.4036431E+00 0.1824198E+05 0.4066244E+00 0.1824464E+05 0.4127408E+00 0.1824730E+05 0.4110026E+00 0.1824996E+05 0.4120151E+00 0.1825263E+05 0.4163204E+00 0.1825529E+05 0.4207214E+00 0.1825796E+05 0.4139997E+00 0.1826062E+05 0.4137315E+00 0.1826329E+05 0.4101111E+00 0.1826595E+05 0.4112167E+00 0.1826862E+05 0.4111567E+00 0.1827129E+05 0.4040247E+00 0.1827396E+05 0.4073290E+00 0.1827663E+05 0.4155204E+00 0.1827930E+05 0.4120969E+00 0.1828197E+05 0.4067777E+00 0.1828464E+05 0.4069592E+00 0.1828731E+05 0.4127494E+00 0.1828999E+05 0.4111463E+00 0.1829266E+05 0.4086030E+00 0.1829534E+05 0.4103345E+00 0.1829801E+05 0.4104877E+00 0.1830069E+05 0.4091433E+00 0.1830337E+05 0.4112530E+00 0.1830604E+05 0.4090491E+00 0.1830872E+05 0.4129205E+00 0.1831140E+05 0.4070482E+00 0.1831409E+05 0.4067098E+00 0.1831677E+05 0.4046267E+00 0.1831945E+05 0.4112006E+00 0.1832213E+05 0.4101496E+00 0.1832481E+05 0.4061187E+00 0.1832750E+05 0.4082208E+00 0.1833018E+05 0.4058180E+00 0.1833287E+05 0.4069057E+00 0.1833556E+05 0.4079454E+00 0.1833825E+05 0.4010064E+00 0.1834094E+05 0.4039619E+00 0.1834363E+05 0.4043638E+00 0.1834631E+05 0.3994277E+00 0.1834900E+05 0.3992903E+00 0.1835170E+05 0.4011785E+00 0.1835439E+05 0.4033749E+00 0.1835708E+05 0.4061092E+00 0.1835978E+05 0.4048134E+00 0.1836247E+05 0.4062543E+00 0.1836517E+05 0.4105873E+00 0.1836787E+05 0.4063241E+00 0.1837056E+05 0.4095247E+00 0.1837326E+05 0.4080786E+00 0.1837596E+05 0.4098736E+00 0.1837866E+05 0.4097372E+00 0.1838136E+05 0.4057019E+00 0.1838406E+05 0.4097434E+00 0.1838677E+05 0.4052531E+00 0.1838947E+05 0.4018720E+00 0.1839217E+05 0.3994818E+00 0.1839488E+05 0.4006305E+00 0.1839758E+05 0.3995497E+00 0.1840029E+05 0.3982114E+00 0.1840300E+05 0.3997071E+00 0.1840571E+05 0.3621233E+00 0.1840841E+05 0.4094906E+00 0.1841112E+05 0.4098343E+00 0.1841383E+05 0.4128717E+00 0.1841654E+05 0.4104671E+00 0.1841926E+05 0.4115511E+00 0.1842197E+05 0.4099165E+00 0.1842468E+05 0.4129963E+00 0.1842740E+05 0.4079238E+00 0.1843011E+05 0.4068956E+00 0.1843283E+05 0.4062093E+00 0.1843555E+05 0.4096040E+00 0.1843827E+05 0.4113206E+00 0.1844098E+05 0.4126856E+00 0.1844370E+05 0.4105018E+00 0.1844642E+05 0.4048602E+00 0.1844914E+05 0.4028114E+00 0.1845186E+05 0.4076094E+00 0.1845459E+05 0.4103644E+00 0.1845731E+05 0.4014546E+00 0.1846004E+05 0.4054392E+00 0.1846276E+05 0.4055636E+00 0.1846549E+05 0.4032871E+00 0.1846821E+05 0.4041276E+00 0.1847094E+05 0.4050440E+00 0.1847367E+05 0.4058884E+00 0.1847640E+05 0.4070383E+00 0.1847913E+05 0.4069698E+00 0.1848186E+05 0.4068310E+00 0.1848459E+05 0.4053435E+00 0.1848732E+05 0.4046429E+00 0.1849006E+05 0.4047530E+00 0.1849279E+05 0.4046919E+00 0.1849553E+05 0.4086279E+00 0.1849826E+05 0.4072557E+00 0.1850100E+05 0.4114200E+00 0.1850373E+05 0.4089168E+00 0.1850647E+05 0.3996343E+00 0.1850921E+05 0.4083198E+00 0.1851195E+05 0.4075204E+00 0.1851469E+05 0.4086246E+00 0.1851743E+05 0.4053180E+00 0.1852018E+05 0.4071356E+00 0.1852292E+05 0.4056382E+00 0.1852566E+05 0.4072697E+00 0.1852841E+05 0.4099652E+00 0.1853115E+05 0.4090448E+00 0.1853390E+05 0.4107749E+00 0.1853665E+05 0.4109144E+00 0.1853940E+05 0.4105812E+00 0.1854214E+05 0.4080771E+00 0.1854489E+05 0.4092757E+00 0.1854765E+05 0.4088069E+00 0.1855040E+05 0.4031224E+00 0.1855315E+05 0.4050798E+00 0.1855590E+05 0.4079651E+00 0.1855866E+05 0.4045202E+00 0.1856141E+05 0.4039083E+00 0.1856417E+05 0.4010832E+00 0.1856692E+05 0.4038026E+00 0.1856968E+05 0.4047638E+00 0.1857244E+05 0.3953569E+00 0.1857520E+05 0.4062330E+00 0.1857796E+05 0.4071276E+00 0.1858072E+05 0.4063636E+00 0.1858348E+05 0.4041274E+00 0.1858624E+05 0.4113227E+00 0.1858900E+05 0.4108216E+00 0.1859177E+05 0.4126701E+00 ifeffit-1.2.11d/examples/IFF_LIST0000644000175000017500000002324410771740461015364 0ustar segresegre/home/newville/Codes/misc/MINFIT/Minfit-0.2/test.iff /home/newville/Codes/misc/MINFIT/Minfit-0.2/python/test.iff /home/newville/Codes/iff-archives/apps/GIFeffit/test/a.iff /home/newville/Codes/iff-archives/apps/GIFeffit/test/ex.iff /home/newville/Codes/iff-archives/apps/Autobk/Autobk3/eg/outputs/autobk.iff /home/newville/Codes/ifeffit/test/a.iff /home/newville/Codes/ifeffit/test/save_reff.iff /home/newville/Codes/ifeffit/test/Macro/DO.iff /home/newville/Codes/ifeffit/test/Macro/Macros.iff /home/newville/Codes/ifeffit/test/Macro/W.iff /home/newville/Codes/ifeffit/test/Macro/tmp.iff /home/newville/Codes/ifeffit/test/Minimize/fit1.iff /home/newville/Codes/ifeffit/test/Minimize/Random/fit_random.iff /home/newville/Codes/ifeffit/test/OLD/AA.iff /home/newville/Codes/ifeffit/test/OLD/Parse-Bug.iff /home/newville/Codes/ifeffit/test/OLD/Read_Chi.iff /home/newville/Codes/ifeffit/test/OLD/Sync-test.iff /home/newville/Codes/ifeffit/test/PDAFS/fit1.iff /home/newville/Codes/ifeffit/test/feffit/Feffit.iff /home/newville/Codes/ifeffit/test/ff2chi/A-ff2chi.iff /home/newville/Codes/ifeffit/test/ff2chi/B.iff /home/newville/Codes/ifeffit/test/ff2chi/Debye.iff /home/newville/Codes/ifeffit/test/ff2chi/Feffit.iff /home/newville/Codes/ifeffit/test/ff2chi/save_reff.iff /home/newville/Codes/ifeffit/test/spline/Spline.iff /home/newville/Codes/ifeffit/test/spline/autobk/autobk.iff /home/newville/Codes/ifeffit/test/spline/trouble/autobk.iff /home/newville/Codes/ifeffit/test/examples/Minimize/fit1.iff /home/newville/Codes/ifeffit/test/examples/Macro/DO.iff /home/newville/Codes/ifeffit/test/examples/Macro/Macros.iff /home/newville/Codes/ifeffit/test/examples/Macro/W.iff /home/newville/Codes/ifeffit/test/examples/Macro/tmp.iff /home/newville/Codes/ifeffit/test/examples/a.iff /home/newville/Codes/ifeffit/test/examples/save_reff.iff /home/newville/Codes/ifeffit/test/examples/spline/Spline.iff /home/newville/Codes/ifeffit/test/examples/spline/autobk/autobk.iff /home/newville/Codes/ifeffit/test/examples/spline/trouble/autobk.iff /home/newville/Codes/ifeffit/test/examples/ff2chi/A-ff2chi.iff /home/newville/Codes/ifeffit/test/examples/ff2chi/B.iff /home/newville/Codes/ifeffit/test/examples/ff2chi/Debye.iff /home/newville/Codes/ifeffit/test/examples/ff2chi/Feffit.iff /home/newville/Codes/ifeffit/test/examples/ff2chi/save_reff.iff /home/newville/Codes/ifeffit/test/examples/PDAFS/fit1.iff /home/newville/Codes/ifeffit/work/perl/test/a.iff /home/newville/Codes/ifeffit/work/perl/test/ex.iff /home/newville/Codes/ifeffit/work/GI/data/a.iff /home/newville/Codes/ifeffit/work/GI/trans/data/a.iff /home/newville/Codes/ifeffit/work/bug/norbert.iff /home/newville/Codes/ifeffit/work/bug/n.iff /home/newville/Codes/ifeffit/work/XX/xt.iff /home/newville/Codes/ifeffit/distrib/test.iff /home/newville/Codes/ifeffit/distrib/Aug21/Cu_feffit.iff /home/newville/Codes/ifeffit/distrib/Aug21/CuO_analysis.iff /home/newville/Codes/ifeffit/distrib/Aug21/Cu_T_feffit.iff /home/newville/Codes/ifeffit/distrib/Aug21/Cu_T_analysis.iff /home/newville/Codes/ifeffit/distrib/Aug21/Cu_analysis.iff /home/newville/Codes/ifeffit/Apps/ifeffit-C/a.iff /home/newville/Codes/ifeffit/Apps/ifeffit-fortran/a.iff /home/newville/Codes/ifeffit/Apps/ifeffit-fortran/g.iff /home/newville/Codes/ifeffit/Apps/ifeffit-fortran/test.iff /home/newville/Codes/ifeffit/Apps/gifeffit/Cu_analysis.iff /home/newville/Codes/ifeffit/Apps/gifeffit/A.iff /home/newville/Codes/ifeffit/Apps/gifeffit/test.iff /home/newville/Codes/ifeffit/Training/NXS/tex/figs/XFIG/co450.iff /home/newville/Codes/ifeffit/Training/NXS/Analysis/Cu_analysis.iff /home/newville/Codes/ifeffit/Training/NXS/Analysis/CuO_analysis.iff /home/newville/Codes/ifeffit/Training/NXS/Analysis/Cu_feffit.iff /home/newville/Codes/ifeffit/Training/NXS/Analysis/Cu300_feffit.iff /home/newville/Codes/ifeffit/Training/NXS/Analysis/CuO_feffit.iff /home/newville/Codes/ifeffit/Training/NXS/Misc/Cu_T_analysis.iff /home/newville/Codes/ifeffit/Training/NXS/Misc/Cu_T_feffit.iff /home/newville/Codes/ifeffit/Training/XAFS_school/Cu_analysis.iff /home/newville/Codes/ifeffit/Training/XAFS_school/CuO_analysis.iff /home/newville/Codes/ifeffit/Training/XAFS_school/Cu_ana2.iff /home/newville/Codes/ifeffit/Training/XAFS_school/Cu_feffit.iff /home/newville/Codes/ifeffit/Training/XAFS_school/Cu_T_analysis.iff /home/newville/Codes/ifeffit/Training/XAFS_school/Cu_T_feffit.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/src/cmdline/t.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/src/cmdline/sss.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/src/lib/startup.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/src/t.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/wrappers/python/gifeffit.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/examples/a.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/examples/ff2chi/A-ff2chi.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/examples/ff2chi/B.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/examples/ff2chi/Debye.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/examples/ff2chi/Feffit.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/examples/ff2chi/save_reff.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/examples/ff2chi/test.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/examples/ff2chi/test2.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/examples/ff2chi/G.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/examples/ff2chi/H.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/examples/ff2chi/test_terp.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/examples/text-strings.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/examples/Macro/DO.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/examples/Macro/W.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/examples/Macro/Macros.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/examples/Macro/tmp.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/examples/Minimize/fit_xrd.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/examples/interpolote.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/examples/spline/Spline.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/test/fitbkg/test.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/test/fitbkg/Feffit.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/test/fitbkg/save_reff.iff /home/newville/Codes/ifeffit/ifeffit_1.0b/test/fitbkg/test2.iff /home/newville/idl/sc2/tmp.iff /home/newville/OLD/Codes/ifeffit/Ancient/test/Macro/W.iff /home/newville/OLD/Codes/ifeffit/Ancient/test/Macro/Macros.iff /home/newville/OLD/Codes/ifeffit/Ancient/test/Macro/tmp.iff /home/newville/OLD/Codes/ifeffit/Ancient/test/Macro/DO.iff /home/newville/OLD/Codes/ifeffit/Ancient/test/AA.iff /home/newville/OLD/Codes/ifeffit/Ancient/test/Read_Chi.iff /home/newville/OLD/Codes/ifeffit/Ancient/test/ff2chi/A-ff2chi.iff /home/newville/OLD/Codes/ifeffit/Ancient/test/ff2chi/Feffit.iff /home/newville/OLD/Codes/ifeffit/Ancient/test/Minimize/fit1.iff /home/newville/OLD/Codes/ifeffit/Ancient/test/Parse-Bug.iff /home/newville/OLD/Codes/ifeffit/Ancient/test/feffit/A-ff2chi.iff /home/newville/OLD/Codes/ifeffit/Ancient/test/feffit/Feffit.iff /home/newville/OLD/Codes/ifeffit/Ancient/test/Sync-test.iff /home/newville/Analysis/As/Pre.iff /home/newville/Analysis/Cu/ifeffit/Feffit.iff /home/newville/Analysis/Sr/Solution/process.iff /home/newville/Analysis/v/Sum.iff /home/newville/Analysis/v/fit.iff /home/newville/Analysis/Jones/data/MakeXMU.iff /home/newville/Analysis/Powder/Test/fit1.iff /home/newville/Analysis/Powder/fit1.iff /home/newville/Analysis/Harris/A.iff /home/newville/Analysis/Coral/Sr_analysis.iff /home/newville/Analysis/Coral/Rsp.iff /home/newville/Analysis/IXS/macros.iff /home/newville/Analysis/copt/fits/Make_Plots.iff /home/newville/Analysis/copt/results/Make_Plots.iff /home/newville/Analysis/copt/xmu/autobk.iff /home/newville/Analysis/copt/xmu/read_all.iff /home/newville/Analysis/copt/Old/fit/View.iff /home/newville/Analysis/copt/Old/work/View.iff /home/newville/Analysis/copt/Old/CoPt/fit/View.iff /home/newville/Analysis/copt/Old/Harris/Co/fit/View.iff /home/newville/Analysis/copt/Polarize/Co/A.iff /home/newville/Analysis/copt/Polarize/Pt/No_s/A.iff /home/newville/Analysis/copt/Polarize/Pt/No_s/B.iff /home/newville/Analysis/copt/Polarize/Pt/out/A.iff /home/newville/Analysis/copt/Polarize/Pt/out/B.iff /home/newville/Analysis/Rakovan/final/sss.iff /home/newville/Analysis/Rakovan/Fit/fit_eu.iff /home/newville/Analysis/Cr/cr_ratio.iff /home/newville/Analysis/Cr/cr_plot.iff /home/newville/Analysis/Eu/Fitt.iff /home/newville/Analysis/Eu/F.iff /home/newville/Analysis/Ag/data/JJR.iff /home/newville/Analysis/Anomalous/Show.iff /home/newville/Analysis/Pu/2000/d2mu.iff /home/newville/Data/Library/Cu/Comp.iff /home/newville/Data/Feb00/Z.iff /home/newville/Data/Feb00/B.iff /home/newville/Data/Sep00/read_zn.iff /home/newville/Data/Other/BaTiO3/display.iff /home/newville/public_html/ifeffit/misc/NXS/Analysis/Cu_analysis.iff /home/newville/public_html/ifeffit/misc/NXS/Analysis/CuO_analysis.iff /home/newville/public_html/ifeffit/misc/NXS/Analysis/Cu_feffit.iff /home/newville/public_html/ifeffit/misc/NXS/Analysis/Cu300_feffit.iff /home/newville/public_html/ifeffit/misc/NXS/Analysis/CuO_feffit.iff /home/newville/public_html/IXS/results/Newville/Analyze.iff /home/newville/public_html/IXS/Results_RAW/Newville/Analyze.iff /home/newville/public_html/Harris/Co/fit/View.iff /home/newville/public_html/julie/CoPt/fits/skw.iff /home/newville/tex/diffkk/doc/eg/ifeffit/PS.iff /home/newville/tex/diffkk/doc/eg/ifeffit/PRE.iff /home/newville/tex/diffkk/doc/eg/ifeffit/f1.iff /home/newville/tex/diffkk/doc/eg/ifeffit/f2.iff /home/newville/tex/diffkk/doc/eg/ifeffit/pp.iff /home/newville/tex/diffkk/doc/eg/ifeffit/If_plot.iff /home/newville/tex/NSF/wds/View.iff /home/newville/tex/XAFS_XI/Talk/figs/XFIG/co450.iff /home/newville/tex/XAFS_XI/Talk_2/figs/XFIG/co450.iff /home/newville/tex/XAFS_XI/Ifeffit/dump/gifeffit.iff /home/newville/tex/XAFS_XI/Ifeffit/dump/Cu_analysis.iff /home/newville/tex/XAFS_School/figs/XFIG/co450.iff ifeffit-1.2.11d/examples/RefMan/0000755000175000017500000000000010771740461015345 5ustar segresegreifeffit-1.2.11d/examples/RefMan/Cu.dat0000644000175000017500000006010410771740461016407 0ustar segresegre# Cu foil at 10K # This data was fabricated from real EXAFS data # as an example for ifeffit processing #------------------------ # energy i0 i1 8.786204 11750997 4264295.9 8.796258 11754483 4345967.1 8.806253 11753720 4367111.9 8.816270 11760409 4391646.7 8.826270 11765819 4415398.5 8.836292 11767326 4437741.1 8.846337 11765643 4458457.3 8.856322 11763060 4478423.2 8.866372 11769573 4502054.0 8.876361 11773820 4525134.1 8.886416 11776828 4547484.2 8.896409 11771669 4564988.7 8.906425 11769414 4584702.5 8.916464 11773337 4604599.9 8.926483 11779459 4625546.7 8.936483 11786405 4641391.1 8.936998 11790153 4643028.3 8.937471 11792642 4643717.6 8.937944 11793494 4645236.6 8.938417 11792558 4645974.6 8.938976 11789781 4644686.3 8.939406 11787281 4643723.9 8.939878 11785127 4643406.4 8.940352 11784258 4643347.0 8.940824 11784852 4643990.8 8.941384 11786853 4645330.8 8.941814 11788510 4646452.6 8.942287 11789535 4647410.5 8.942761 11789098 4648039.1 8.943319 11786596 4647598.9 8.943793 11783409 4646868.4 8.944224 11780539 4645115.8 8.944697 11778399 4644670.2 8.945257 11778231 4645294.6 8.945730 11780285 4646152.3 8.946204 11783854 4647807.7 8.946635 11787610 4649190.8 8.947108 11791302 4650926.9 8.947668 11793991 4652200.5 8.948143 11794482 4652410.2 8.948616 11793651 4652350.7 8.949048 11792359 4651514.6 8.949564 11791075 4651119.1 8.950038 11790797 4651564.5 8.950513 11791552 4651073.8 8.950987 11792962 4652034.7 8.951461 11794287 4651860.1 8.951979 11794693 4652090.5 8.952453 11793557 4652019.8 8.952927 11790997 4650575.9 8.953401 11787597 4648852.6 8.953876 11784310 4646929.5 8.954394 11782046 4645767.7 8.954868 11781904 4645303.1 8.955343 11783695 4645054.6 8.955817 11786853 4645693.9 8.956336 11790694 4646709.7 8.956811 11793380 4647399.1 8.957285 11794457 4646667.1 8.957761 11793725 4645909.3 8.958235 11791623 4643844.8 8.958710 11789048 4640894.1 8.959229 11786927 4638692.6 8.959703 11786471 4637791.6 8.960179 11787689 4636342.8 8.960654 11790202 4636267.7 8.961130 11793183 4635226.3 8.961647 11795803 4635207.4 8.962123 11796849 4633222.8 8.962599 11796354 4630689.9 8.963074 11794682 4626875.4 8.963550 11792615 4623396.5 8.964068 11790969 4618940.7 8.964544 11790704 4615804.1 8.965020 11791766 4612599.1 8.965496 11793713 4609878.5 8.965972 11795708 4605864.6 8.966447 11796836 4601878.4 8.966967 11796353 4595719.1 8.967442 11794263 4588389.3 8.967919 11791122 4579065.2 8.968395 11787889 4572986.9 8.968871 11785574 4564880.6 8.969347 11784900 4553126.7 8.969909 11786415 4541342.1 8.970386 11789102 4532406.2 8.970862 11792094 4518988.6 8.971339 11794416 4498697.3 8.971772 11795359 4489925.1 8.972248 11794982 4469200.8 8.972812 11793237 4435886.7 8.973288 11791683 4400301.1 8.973765 11791051 4355383.0 8.974198 11791799 4320591.3 8.974675 11794131 4228617.2 8.975151 11797504 4164132.7 8.975628 11800953 4067576.1 8.976192 11803645 3815002.7 8.976626 11803935 3523838.7 8.977103 11802285 3066332.2 8.977580 11799036 2438036.0 8.978057 11795132 1986634.3 8.978534 11791668 1724025.8 8.979055 11789394 1610248.1 8.979531 11789048 1572684.4 8.980009 11790075 1585644.8 8.980486 11791738 1619402.2 8.980964 11793172 1660008.5 8.981441 11793726 1681040.1 8.981919 11793234 1656900.9 8.982396 11792065 1613952.0 8.982918 11790901 1542140.1 8.983396 11790824 1462586.7 8.983873 11792219 1401376.4 8.984352 11795068 1352023.7 8.984829 11798743 1301237.8 8.985307 11802276 1223245.3 8.985785 11804632 1177209.8 8.986307 11805060 1095275.9 8.986784 11803419 1021020.1 8.987263 11800423 920718.82 8.987741 11797129 851338.18 8.988219 11794647 762113.17 8.988697 11793784 684307.18 8.989176 11794760 632247.93 8.989653 11797122 584774.85 8.990132 11799965 529922.02 8.990698 11802480 475813.00 8.991133 11803017 455828.42 8.991611 11801992 435430.67 8.992090 11799671 431982.01 8.992568 11796929 438246.94 8.993048 11794749 447997.51 8.993526 11793901 465531.99 8.994006 11794617 483725.94 8.994484 11796534 503552.54 8.995007 11799066 526171.73 8.995485 11800797 544198.11 8.995965 11801306 554630.72 8.996444 11800471 561975.78 8.996924 11798749 565015.28 8.997402 11797009 560204.72 8.997882 11796165 548954.60 8.998361 11796855 531141.39 8.998840 11799154 498397.60 8.999319 11802538 481922.75 8.999799 11806061 456200.47 9.000366 11808986 433847.92 9.000803 11809624 417782.96 9.001281 11808586 410519.81 9.001762 11806207 411699.90 9.002241 11803436 419525.77 9.002721 11801274 437629.54 9.003201 11800450 447853.41 9.003681 11801126 466819.78 9.004161 11802848 477212.63 9.004642 11804729 505054.06 9.005121 11805780 518102.72 9.005602 11805329 534641.97 9.006125 11803019 551619.55 9.006605 11799829 562618.81 9.007086 11796654 574293.26 9.007566 11794605 590208.28 9.008047 11794460 601578.58 9.008526 11796396 614108.93 9.009007 11799950 622831.22 9.009487 11804136 628275.16 9.009969 11807859 629711.39 9.011062 11810802 623337.95 9.012153 11808006 614350.80 9.013246 11807766 599309.85 9.014384 11810934 582942.78 9.015565 11808691 552795.46 9.016746 11800611 525390.40 9.017928 11799099 504975.78 9.019154 11807181 476970.74 9.020380 11810872 450933.43 9.021606 11805356 431323.18 9.022877 11803847 416595.10 9.024191 11811173 415244.79 9.025464 11812976 428180.93 9.026822 11807870 454790.35 9.028140 11809640 482566.34 9.029499 11813647 517779.62 9.030903 11806842 545816.87 9.032309 11801852 565174.07 9.033759 11809301 579435.15 9.035164 11811632 582524.42 9.036615 11807917 576789.57 9.038109 11815332 563758.67 9.039604 11820528 551850.40 9.041145 11810055 548029.18 9.042642 11806435 553248.89 9.044271 11810651 559379.46 9.045768 11807811 555593.85 9.047397 11813606 541114.11 9.049029 11822129 526667.48 9.050616 11813821 522876.55 9.052336 11813261 525782.68 9.053969 11820001 524771.74 9.055646 11812678 513350.91 9.057324 11813580 497824.22 9.059047 11818040 484273.34 9.060814 11813203 475414.03 9.062627 11823081 467296.48 9.064353 11824573 457311.66 9.066166 11817570 442055.17 9.067981 11822888 427226.63 9.069842 11814211 415706.04 9.071702 11815945 415395.95 9.073563 11827948 426579.38 9.075470 11824381 449385.86 9.077377 11828314 482290.87 9.079329 11819385 510838.38 9.081283 11819183 534417.94 9.083237 11828025 556454.26 9.085281 11820287 568244.94 9.087237 11829410 571210.11 9.089283 11826278 583780.65 9.091330 11828446 616257.95 9.093378 11826548 647465.86 9.095472 11820009 670734.26 9.097610 11829428 676767.38 9.099705 11825428 662815.32 9.101847 11837689 639874.25 9.104033 11826823 609672.17 9.106221 11826060 578302.34 9.108409 11825280 550047.09 9.110644 11834001 532810.63 9.112879 11834824 529229.77 9.115160 11830312 537787.41 9.117398 11835559 548752.65 9.119728 11828873 551842.51 9.122057 11834695 530328.02 9.124389 11832567 480577.71 9.126721 11843384 424917.79 9.129099 11834730 398716.12 9.131478 11838740 397841.04 9.133904 11829169 409427.44 9.136331 11844919 422137.14 9.138805 11841771 436508.79 9.141279 11842637 464315.66 9.143756 11834080 503849.59 9.146233 11844689 557693.69 9.148803 11839225 621793.11 9.151328 11846648 692662.73 9.153899 11844357 759398.62 9.156474 11841792 804065.90 9.159094 11841575 809764.85 9.161716 11842995 771719.25 9.164339 11853368 708957.33 9.167009 11842926 640285.39 9.169681 11844687 580304.92 9.172399 11843479 543785.95 9.175074 11855450 525742.21 9.177842 11846594 528945.65 9.180564 11850905 550126.10 9.183381 11849624 570493.27 9.186153 11847543 580750.23 9.188973 11860476 585806.67 9.191794 11851693 602084.04 9.194663 11854037 627436.69 9.197533 11851540 632862.46 9.200406 11860075 604713.00 9.203326 11862622 548879.93 9.206247 11850088 497671.16 9.209217 11861461 481976.27 9.212143 11859526 480460.35 9.215115 11860134 488157.44 9.218183 11865118 509869.13 9.221160 11854636 549524.44 9.224185 11861675 604104.29 9.227258 11871307 660316.07 9.230333 11858180 705366.27 9.233502 11861320 734865.13 9.236581 11870608 749032.00 9.239755 11862749 743978.72 9.242838 11871071 721766.51 9.246016 11866313 705293.33 9.249196 11865008 705877.59 9.252425 11878098 703241.55 9.255655 11872547 697418.78 9.258889 11863739 694815.88 9.262171 11880133 685324.07 9.265454 11879721 663611.65 9.268787 11867763 643708.53 9.272122 11879181 631751.83 9.275459 11880563 625679.97 9.278800 11877356 624917.76 9.282188 11876999 626079.23 9.285580 11881425 620408.12 9.289021 11882171 611245.88 9.292465 11880035 599288.77 9.295910 11880364 589461.99 9.299404 11888728 602728.59 9.302949 11880719 632178.72 9.306403 11885703 661193.50 9.309953 11888253 694184.71 9.313506 11889789 725846.27 9.317061 11887923 740584.89 9.320666 11887776 736203.02 9.324320 11896390 722330.11 9.327932 11896807 711329.21 9.331592 11885951 720516.58 9.335256 11895879 750631.88 9.338922 11901197 790425.41 9.342639 11899101 809375.66 9.346358 11889706 789670.11 9.350128 11896949 770394.89 9.353900 11908018 770495.03 9.357677 11897209 761383.48 9.361455 11900639 748950.14 9.365285 11899096 743314.87 9.369165 11903863 737725.10 9.373048 11905907 731407.60 9.376840 11911077 726143.11 9.380777 11906182 720596.29 9.384671 11899207 716544.98 9.388614 11914485 715796.68 9.392563 11913689 714614.61 9.396561 11914783 714210.09 9.400515 11912309 717195.56 9.404567 11912975 729226.52 9.408576 11908028 753310.92 9.412637 11915222 786287.92 9.416700 11925229 814647.49 9.420768 11914940 824257.81 9.424935 11922604 824320.50 9.429010 11916362 815994.55 9.433184 11915478 803643.31 9.437313 11918166 796981.96 9.441495 11928109 800673.30 9.445729 11925623 812236.48 9.449966 11930410 836685.18 9.454208 11932541 861307.40 9.458453 11924980 865065.88 9.462702 11925617 856826.13 9.467004 11929166 859597.81 9.471358 11924779 871006.81 9.475668 11931027 877137.33 9.480029 11938973 878034.92 9.484396 11931766 870348.33 9.488814 11943256 858427.34 9.493189 11939844 847072.50 9.497665 11936881 833728.78 9.502097 11941221 818106.57 9.506581 11939687 804837.29 9.511118 11933870 800231.32 9.515563 11945203 807472.58 9.520109 11936336 827229.79 9.524611 11942045 864734.61 9.529265 11946690 904903.67 9.533775 11943544 921850.62 9.538438 11947662 926947.47 9.543007 11954288 928748.80 9.547679 11947195 930209.49 9.552306 11957610 930020.04 9.556986 11956549 926079.82 9.561673 11955105 925136.80 9.566462 11963406 932253.47 9.571157 11959095 936852.94 9.575956 11964316 940323.35 9.580661 11964584 948002.59 9.585470 11965159 964705.91 9.590283 11967621 973119.65 9.595102 11967723 973687.62 9.599976 11966106 975056.55 9.604854 11974679 971389.59 9.609737 11964084 966587.11 9.614625 11975078 968574.01 9.619568 11972598 969056.38 9.624518 11970449 964236.20 9.629471 11978230 957686.18 9.634431 11972193 959277.10 9.639445 11979791 968340.13 9.644466 11973810 977393.18 9.649541 11976442 987080.73 9.654571 11978818 993541.87 9.659708 11972461 1002096.3 9.664750 11976343 1017213.7 9.669847 11975564 1028351.7 9.675001 11976423 1034936.4 9.680159 11978002 1039195.5 9.685324 11978482 1039480.3 9.690545 11986014 1046235.5 9.695722 11987112 1059652.6 9.700953 11989148 1064642.3 9.706243 11993036 1066122.4 9.711486 11993168 1071018.6 9.716788 11994480 1080976.2 9.722094 11988284 1088066.1 9.727407 11989496 1093608.7 9.732776 11987870 1103097.7 9.738204 11991102 1105352.1 9.743535 11992824 1103791.9 9.748923 11994435 1102154.4 9.754317 12004078 1096284.1 9.759769 11999568 1095909.6 9.765227 12005167 1099738.2 9.770742 11995018 1102623.6 9.776212 11997533 1112852.0 9.781793 12002408 1128760.7 9.787275 12000003 1139701.0 9.792816 12012871 1143127.2 9.798416 12002847 1141741.7 9.804022 12009210 1143517.3 9.809584 12003555 1145243.1 9.815254 12004159 1152656.3 9.820880 12009018 1167181.5 9.826564 12012524 1180649.6 9.832308 12015081 1192870.5 9.837953 12013635 1201422.5 9.843659 12013262 1206026.7 9.849422 12007605 1210871.3 9.855192 12021497 1220228.9 9.860971 12013937 1225282.4 9.866755 12020776 1232366.7 9.872600 12013450 1237269.4 9.878450 12016478 1240125.9 9.884310 12021704 1245754.9 9.890175 12026875 1250530.3 9.896100 12018552 1249137.7 9.901980 12018752 1248968.6 9.907920 12025329 1252876.6 9.913867 12025762 1258112.0 9.919876 12030633 1264920.3 9.925838 12019867 1272018.3 9.931859 12023514 1279414.1 9.937890 12027301 1286232.2 9.943980 12033308 1295528.2 9.950025 12019570 1305443.9 9.956132 12033189 1315376.0 9.962300 12034319 1323102.7 9.968367 12034539 1326944.3 9.974497 12023936 1329450.0 9.980687 12037149 1334730.8 9.986832 12030355 1344725.6 9.993038 12032404 1353522.4 9.999253 12028219 1356987.9 10.00553 12040958 1366735.4 10.01176 12032432 1376034.4 10.01805 12037933 1386299.2 10.02435 12036414 1394099.3 10.03066 12042536 1401113.2 10.03703 12030646 1407601.6 10.04336 12041965 1417715.3 10.04974 12036159 1423132.4 10.05614 12036501 1427838.5 10.06254 12035433 1427740.4 10.06896 12047537 1428721.9 10.07543 12032407 1432781.4 10.08192 12045229 1441784.5 10.08846 12046116 1450897.4 10.09491 12042283 1456978.8 10.10142 12039450 1463726.8 10.10794 12051512 1473642.3 10.11452 12037949 1481828.9 10.12111 12045018 1491104.6 10.12771 12042767 1500360.2 10.13432 12042310 1507185.9 10.14105 12049123 1515171.8 10.14768 12040457 1522260.5 10.15431 12044624 1529812.9 10.16101 12049715 1534175.4 10.16778 12044004 1541435.2 10.17449 12043330 1551121.1 10.18128 12047751 1561954.7 10.18807 12042260 1571218.0 10.19482 12054199 1581201.6 10.20163 12037516 1587204.2 10.20845 12053173 1597000.1 10.21528 12046797 1602528.7 10.22217 12050046 1608093.8 10.22913 12048872 1612234.4 10.23599 12041500 1616719.4 10.24286 12055333 1625722.2 10.24985 12042027 1633864.1 10.25679 12053664 1644536.6 10.26380 12039894 1648602.0 10.27082 12052646 1658360.2 10.27785 12048230 1665502.3 10.28489 12049406 1672309.1 10.29188 12048856 1680867.0 10.29905 12041129 1688590.6 10.30612 12053528 1697370.7 10.31320 12040907 1704186.3 10.32041 12053987 1715638.8 10.32750 12036968 1723574.9 10.33473 12051067 1736188.5 10.34185 12042556 1744633.8 10.34909 12051343 1754870.5 10.35635 12044012 1761691.8 10.36361 12043840 1768929.1 10.37089 12041199 1777324.2 10.37817 12045944 1787158.7 10.38547 12042641 1796542.1 10.39278 12050496 1807158.7 10.40010 12037203 1814300.6 10.40748 12050381 1823679.7 10.41482 12037310 1827714.0 10.42223 12051704 1837353.2 10.42965 12042813 1846439.3 10.43714 12043545 1857835.1 10.44458 12044008 1865925.7 10.45203 12035827 1874154.8 10.45955 12046935 1885338.3 10.46708 12038014 1891069.3 10.47463 12045744 1901512.1 10.48218 12038341 1909120.5 10.48975 12036973 1917522.5 10.49732 12035698 1926775.8 10.50497 12035254 1935903.6 10.51257 12038504 1946473.3 10.52024 12039202 1957275.0 10.52792 12040308 1967913.9 10.53562 12035243 1977331.6 10.54332 12035885 1987418.7 10.55104 12029488 1996480.6 10.55877 12030885 2007760.9 10.56650 12032788 2019096.7 10.57432 12029135 2028942.3 10.58220 12035907 2040233.9 10.58991 12030499 2049033.1 10.59776 12029062 2058014.2 10.60562 12031152 2067113.7 10.61355 12022519 2076312.5 10.62143 12025866 2087388.7 10.62933 12026645 2098575.1 10.63730 12023224 2107526.8 10.64521 12029117 2117709.6 10.65321 12026911 2127632.2 10.66121 12022768 2137286.8 10.66923 12022606 2148516.7 10.67726 12018722 2158698.8 10.68530 12016074 2169065.0 10.69335 12017224 2179479.2 10.70154 12020625 2190143.2 10.70956 12019629 2200104.9 10.71771 12017052 2210908.7 10.72581 12021067 2221620.1 10.73399 12015598 2231581.7 10.74224 12008531 2241569.5 10.75038 12016630 2254584.0 10.75860 12012034 2265267.7 10.76683 12000799 2275202.8 10.77514 12010224 2289579.7 10.78339 12011549 2300661.2 10.79172 12000293 2310320.1 10.80000 12008362 2322493.2 10.80836 12012868 2333250.6 10.81673 12000543 2341121.0 10.82505 12000207 2352432.4 10.83345 12006579 2365999.9 10.84186 12003952 2375839.7 10.85041 12001388 2387405.8 10.85878 11996098 2397799.4 10.86723 11993741 2408757.2 10.87576 11999810 2422388.0 10.88423 11995069 2432439.5 10.89285 11983517 2442942.2 10.90129 11989846 2455614.8 10.90994 11997625 2469243.3 10.91847 11989247 2478982.5 10.92708 11983928 2490101.3 10.93570 11986877 2502658.3 10.94440 11986326 2514272.6 10.95299 11988356 2527290.6 10.96165 11989031 2539647.2 10.97040 11980198 2550741.5 10.97909 11978694 2563500.1 10.98786 11989569 2578093.1 10.99665 11989152 2591265.2 11.00532 11977160 2600447.4 11.01414 11976118 2613147.6 11.02297 11979585 2626764.8 11.03181 11976969 2638420.7 11.04067 11979062 2651669.2 11.04954 11983907 2665126.8 11.05843 11976473 2675312.3 11.06733 11966270 2687202.9 11.07625 11968699 2699446.8 11.08518 11973434 2713668.3 11.09412 11971654 2726328.1 11.10315 11972509 2736446.2 11.11213 11975241 2752342.3 11.12125 11968853 2764472.1 11.13019 11958924 2775008.3 11.13934 11960819 2788573.7 11.14838 11965116 2802683.7 11.15743 11962346 2815432.5 11.16656 11963302 2828942.1 11.17578 11970106 2844033.8 11.18487 11966966 2856336.8 11.19405 11956763 2867690.8 11.20331 11956916 2881854.1 11.21245 11958826 2894260.4 11.22168 11951763 2907614.0 11.23098 11948380 2920455.9 11.24017 11954240 2935260.0 11.24951 11954797 2948945.5 11.25880 11951126 2961866.0 11.26817 11950589 2975894.2 11.27755 11953773 2990381.6 11.28682 11956711 3003873.8 11.29624 11952639 3017281.0 11.30560 11947566 3030942.4 11.31505 11951347 3045307.8 11.32452 11951927 3059796.7 11.33393 11943869 3070554.3 11.34343 11943629 3085516.3 11.35294 11948013 3099494.3 11.36247 11948175 3115125.8 ifeffit-1.2.11d/examples/RefMan/cu.xmu0000644000175000017500000004756110771740461016524 0ustar segresegre# Cu foil at 10K ## cu10k.dat : this file is part of the uwxafs 3.0 distribution # data taken at NSLS beamline X-11A Sept 1992 # by M Newville, B Ravel, and Y Zhang # foil of 99.999% Cu rolled and annealled to ~12 microns # sample prepared by M Newville # From X-11A : # 2-SI111 HC/2D= 1977.260 STPDEG=6400. STPMMZ= 40. # FOCUS=F TRANSLT=F E0= 8980.0 NREG= 3 NPTS= 611 NSCLRS= 3 EF= .0 # SRB= -193.7 -43.5 30.0 2381.3 # DEL= 10.020 .483 .050K # SEC= 1.000 1.000 1.000 # DETECTORSI0 I If # GAINS 8 7 10 # OFFSETS 51284 50016 48319 #--------------------------------------------------------------------- # energy xmu .8786204E+04 .1013661E+01 .8796258E+04 .9949864E+00 .8806253E+04 .9900679E+00 .8816270E+04 .9850345E+00 .8826270E+04 .9801005E+00 .8836292E+04 .9751812E+00 .8846337E+04 .9703809E+00 .8856322E+04 .9656931E+00 .8866372E+04 .9609839E+00 .8876361E+04 .9562312E+00 .8886416E+04 .9515597E+00 .8896409E+04 .9472797E+00 .8906425E+04 .9427789E+00 .8916464E+04 .9387816E+00 .8926483E+04 .9347627E+00 .8936483E+04 .9319326E+00 .8936998E+04 .9318979E+00 .8937471E+04 .9319605E+00 .8937944E+04 .9317057E+00 .8938417E+04 .9314675E+00 .8938976E+04 .9315093E+00 .8939406E+04 .9315045E+00 .8939878E+04 .9313901E+00 .8940352E+04 .9313291E+00 .8940824E+04 .9312409E+00 .8941384E+04 .9311222E+00 .8941814E+04 .9310213E+00 .8942287E+04 .9309021E+00 .8942761E+04 .9307298E+00 .8943319E+04 .9306122E+00 .8943793E+04 .9304990E+00 .8944224E+04 .9306326E+00 .8944697E+04 .9305469E+00 .8945257E+04 .9303982E+00 .8945730E+04 .9303880E+00 .8946204E+04 .9303346E+00 .8946635E+04 .9303558E+00 .8947108E+04 .9302956E+00 .8947668E+04 .9302498E+00 .8948143E+04 .9302464E+00 .8948616E+04 .9301887E+00 .8949048E+04 .9302589E+00 .8949564E+04 .9302350E+00 .8950038E+04 .9301157E+00 .8950513E+04 .9302852E+00 .8950987E+04 .9301982E+00 .8951461E+04 .9303481E+00 .8951979E+04 .9303330E+00 .8952453E+04 .9302519E+00 .8952927E+04 .9303452E+00 .8953401E+04 .9304274E+00 .8953876E+04 .9305623E+00 .8954394E+04 .9306202E+00 .8954868E+04 .9307082E+00 .8955343E+04 .9309137E+00 .8955817E+04 .9310440E+00 .8956336E+04 .9311512E+00 .8956811E+04 .9312306E+00 .8957285E+04 .9314795E+00 .8957761E+04 .9315805E+00 .8958235E+04 .9318467E+00 .8958710E+04 .9322639E+00 .8959229E+04 .9325585E+00 .8959703E+04 .9327140E+00 .8960179E+04 .9331298E+00 .8960654E+04 .9333592E+00 .8961130E+04 .9338366E+00 .8961647E+04 .9340628E+00 .8962123E+04 .9345798E+00 .8962599E+04 .9350846E+00 .8963074E+04 .9357670E+00 .8963550E+04 .9363439E+00 .8964068E+04 .9371685E+00 .8964544E+04 .9378253E+00 .8965020E+04 .9386100E+00 .8965496E+04 .9393651E+00 .8965972E+04 .9404053E+00 .8966447E+04 .9413668E+00 .8966967E+04 .9426652E+00 .8967442E+04 .9440842E+00 .8967919E+04 .9458520E+00 .8968395E+04 .9469061E+00 .8968871E+04 .9484839E+00 .8969347E+04 .9510049E+00 .8969909E+04 .9537250E+00 .8970386E+04 .9559226E+00 .8970862E+04 .9591411E+00 .8971339E+04 .9638383E+00 .8971772E+04 .9658701E+00 .8972248E+04 .9704646E+00 .8972812E+04 .9777987E+00 .8973288E+04 .9857215E+00 .8973765E+04 .9959283E+00 .8974198E+04 .1004012E+01 .8974675E+04 .1025727E+01 .8975151E+04 .1041380E+01 .8975628E+04 .1065133E+01 .8976192E+04 .1129467E+01 .8976626E+04 .1208882E+01 .8977103E+04 .1347811E+01 .8977580E+04 .1576825E+01 .8978057E+04 .1781245E+01 .8978534E+04 .1922731E+01 .8979055E+04 .1990812E+01 .8979531E+04 .2014387E+01 .8980009E+04 .2006267E+01 .8980486E+04 .1985342E+01 .8980964E+04 .1960698E+01 .8981441E+04 .1948155E+01 .8981919E+04 .1962577E+01 .8982396E+04 .1988741E+01 .8982918E+04 .2034157E+01 .8983396E+04 .2087115E+01 .8983873E+04 .2129985E+01 .8984352E+04 .2166079E+01 .8984829E+04 .2204677E+01 .8985307E+04 .2266785E+01 .8985785E+04 .2305345E+01 .8986307E+04 .2377522E+01 .8986784E+04 .2447587E+01 .8987263E+04 .2550736E+01 .8987741E+04 .2628802E+01 .8988219E+04 .2739306E+01 .8988697E+04 .2846921E+01 .8989176E+04 .2926129E+01 .8989653E+04 .3004384E+01 .8990132E+04 .3103122E+01 .8990698E+04 .3211040E+01 .8991133E+04 .3253994E+01 .8991611E+04 .3299688E+01 .8992090E+04 .3307443E+01 .8992568E+04 .3292812E+01 .8993048E+04 .3270622E+01 .8993526E+04 .3232157E+01 .8994006E+04 .3193880E+01 .8994484E+04 .3153873E+01 .8995007E+04 .3110148E+01 .8995485E+04 .3076609E+01 .8995965E+04 .3057663E+01 .8996444E+04 .3044436E+01 .8996924E+04 .3038896E+01 .8997402E+04 .3047299E+01 .8997882E+04 .3067514E+01 .8998361E+04 .3100560E+01 .8998840E+04 .3164385E+01 .8999319E+04 .3198286E+01 .8999799E+04 .3253436E+01 .9000366E+04 .3303922E+01 .9000803E+04 .3341708E+01 .9001281E+04 .3359158E+01 .9001762E+04 .3356086E+01 .9002241E+04 .3337021E+01 .9002721E+04 .3294590E+01 .9003201E+04 .3271427E+01 .9003681E+04 .3230007E+01 .9004161E+04 .3208134E+01 .9004642E+04 .3151590E+01 .9005121E+04 .3126171E+01 .9005602E+04 .3094709E+01 .9006125E+04 .3063252E+01 .9006605E+04 .3043238E+01 .9007086E+04 .3022431E+01 .9007566E+04 .2994922E+01 .9008047E+04 .2975828E+01 .9008526E+04 .2955377E+01 .9009007E+04 .2941575E+01 .9009487E+04 .2933227E+01 .9009969E+04 .2931259E+01 .9011062E+04 .2941681E+01 .9012153E+04 .2955967E+01 .9013246E+04 .2980734E+01 .9014384E+04 .3008692E+01 .9015565E+04 .3061603E+01 .9016746E+04 .3111765E+01 .9017928E+04 .3151268E+01 .9019154E+04 .3209008E+01 .9020380E+04 .3265456E+01 .9021606E+04 .3309451E+01 .9022877E+04 .3344066E+01 .9024191E+04 .3347933E+01 .9025464E+04 .3317408E+01 .9026822E+04 .3256685E+01 .9028140E+04 .3197553E+01 .9029499E+04 .3127461E+01 .9030903E+04 .3074151E+01 .9032309E+04 .3038878E+01 .9033759E+04 .3014589E+01 .9035164E+04 .3009469E+01 .9036615E+04 .3019048E+01 .9038109E+04 .3042527E+01 .9039604E+04 .3064316E+01 .9041145E+04 .3070378E+01 .9042642E+04 .3060592E+01 .9044271E+04 .3049929E+01 .9045768E+04 .3056479E+01 .9047397E+04 .3083377E+01 .9049029E+04 .3111159E+01 .9050616E+04 .3117680E+01 .9052336E+04 .3112090E+01 .9053969E+04 .3114585E+01 .9055646E+04 .3135969E+01 .9057324E+04 .3166758E+01 .9059047E+04 .3194733E+01 .9060814E+04 .3212787E+01 .9062627E+04 .3230845E+01 .9064353E+04 .3252570E+01 .9066166E+04 .3285908E+01 .9067981E+04 .3320478E+01 .9069842E+04 .3347080E+01 .9071702E+04 .3347973E+01 .9073563E+04 .3322422E+01 .9075470E+04 .3270037E+01 .9077377E+04 .3199704E+01 .9079329E+04 .3141443E+01 .9081283E+04 .3096301E+01 .9083237E+04 .3056642E+01 .9085281E+04 .3035020E+01 .9087237E+04 .3030587E+01 .9089283E+04 .3008554E+01 .9091330E+04 .2954597E+01 .9093378E+04 .2905036E+01 .9095472E+04 .2869176E+01 .9097610E+04 .2861018E+01 .9099705E+04 .2881511E+01 .9101847E+04 .2917772E+01 .9104033E+04 .2965204E+01 .9106221E+04 .3017964E+01 .9108409E+04 .3067991E+01 .9110644E+04 .3100566E+01 .9112879E+04 .3107379E+01 .9115160E+04 .3090957E+01 .9117398E+04 .3071216E+01 .9119728E+04 .3065036E+01 .9122057E+04 .3105295E+01 .9124389E+04 .3203622E+01 .9126721E+04 .3327629E+01 .9129099E+04 .3390544E+01 .9131478E+04 .3393080E+01 .9133904E+04 .3363564E+01 .9136331E+04 .3334324E+01 .9138805E+04 .3300580E+01 .9141279E+04 .3238897E+01 .9143756E+04 .3156461E+01 .9146233E+04 .3055825E+01 .9148803E+04 .2946566E+01 .9151328E+04 .2839257E+01 .9153899E+04 .2747080E+01 .9156474E+04 .2689709E+01 .9159094E+04 .2682628E+01 .9161716E+04 .2730871E+01 .9164339E+04 .2816572E+01 .9167009E+04 .2917572E+01 .9169681E+04 .3016081E+01 .9172399E+04 .3080977E+01 .9175074E+04 .3115732E+01 .9177842E+04 .3108910E+01 .9180564E+04 .3070012E+01 .9183381E+04 .3033550E+01 .9186153E+04 .3015555E+01 .9188973E+04 .3007977E+01 .9191794E+04 .2979829E+01 .9194663E+04 .2938781E+01 .9197533E+04 .2929960E+01 .9200406E+04 .2976179E+01 .9203326E+04 .3073268E+01 .9206247E+04 .3170151E+01 .9209217E+04 .3203155E+01 .9212143E+04 .3206142E+01 .9215115E+04 .3190300E+01 .9218183E+04 .3147204E+01 .9221160E+04 .3071421E+01 .9224185E+04 .2977321E+01 .9227258E+04 .2889161E+01 .9230333E+04 .2822056E+01 .9233502E+04 .2781351E+01 .9236581E+04 .2763039E+01 .9239755E+04 .2769146E+01 .9242838E+04 .2800158E+01 .9246016E+04 .2822845E+01 .9249196E+04 .2821907E+01 .9252425E+04 .2826751E+01 .9255655E+04 .2834598E+01 .9258889E+04 .2837595E+01 .9262171E+04 .2852731E+01 .9265454E+04 .2884891E+01 .9268787E+04 .2914335E+01 .9272122E+04 .2934046E+01 .9275459E+04 .2943820E+01 .9278800E+04 .2944769E+01 .9282188E+04 .2942882E+01 .9285580E+04 .2952354E+01 .9289021E+04 .2967295E+01 .9292465E+04 .2986871E+01 .9295910E+04 .3003432E+01 .9299404E+04 .2981879E+01 .9302949E+04 .2933500E+01 .9306403E+04 .2889045E+01 .9309953E+04 .2840568E+01 .9313506E+04 .2796097E+01 .9317061E+04 .2775838E+01 .9320666E+04 .2781760E+01 .9324320E+04 .2801508E+01 .9327932E+04 .2816890E+01 .9331592E+04 .2803144E+01 .9335256E+04 .2763032E+01 .9338922E+04 .2711823E+01 .9342639E+04 .2687955E+01 .9346358E+04 .2711813E+01 .9350128E+04 .2737134E+01 .9353900E+04 .2737934E+01 .9357677E+04 .2748922E+01 .9361455E+04 .2765675E+01 .9365285E+04 .2773098E+01 .9369165E+04 .2781047E+01 .9373048E+04 .2789819E+01 .9376840E+04 .2797477E+01 .9380777E+04 .2804734E+01 .9384671E+04 .2809786E+01 .9388614E+04 .2812114E+01 .9392563E+04 .2813700E+01 .9396561E+04 .2814358E+01 .9400515E+04 .2809979E+01 .9404567E+04 .2793399E+01 .9408576E+04 .2760490E+01 .9412637E+04 .2718249E+01 .9416700E+04 .2683656E+01 .9420768E+04 .2671065E+01 .9424935E+04 .2671632E+01 .9429010E+04 .2681260E+01 .9433184E+04 .2696438E+01 .9437313E+04 .2704987E+01 .9441495E+04 .2701200E+01 .9445729E+04 .2686653E+01 .9449966E+04 .2657398E+01 .9454208E+04 .2628573E+01 .9458453E+04 .2623585E+01 .9462702E+04 .2633209E+01 .9467004E+04 .2630277E+01 .9471358E+04 .2616724E+01 .9475668E+04 .2610234E+01 .9480029E+04 .2609877E+01 .9484396E+04 .2618066E+01 .9488814E+04 .2632820E+01 .9493189E+04 .2645850E+01 .9497665E+04 .2661480E+01 .9502097E+04 .2680759E+01 .9506581E+04 .2696983E+01 .9511118E+04 .2702235E+01 .9515563E+04 .2694176E+01 .9520109E+04 .2669260E+01 .9524611E+04 .2625398E+01 .9529265E+04 .2580381E+01 .9533775E+04 .2561563E+01 .9538438E+04 .2556394E+01 .9543007E+04 .2555007E+01 .9547679E+04 .2552842E+01 .9552306E+04 .2553917E+01 .9556986E+04 .2558074E+01 .9561673E+04 .2558972E+01 .9566462E+04 .2552003E+01 .9571157E+04 .2546721E+01 .9575956E+04 .2543460E+01 .9580661E+04 .2535349E+01 .9585470E+04 .2517931E+01 .9590283E+04 .2509453E+01 .9595102E+04 .2508878E+01 .9599976E+04 .2507338E+01 .9604854E+04 .2511822E+01 .9609737E+04 .2515893E+01 .9614625E+04 .2514758E+01 .9619568E+04 .2514053E+01 .9624518E+04 .2518860E+01 .9629471E+04 .2526326E+01 .9634431E+04 .2524162E+01 .9639445E+04 .2515393E+01 .9644466E+04 .2505588E+01 .9649541E+04 .2495945E+01 .9654571E+04 .2489619E+01 .9659708E+04 .2480515E+01 .9664750E+04 .2465866E+01 .9669847E+04 .2454911E+01 .9675001E+04 .2448600E+01 .9680159E+04 .2444625E+01 .9685324E+04 .2444391E+01 .9690545E+04 .2438542E+01 .9695722E+04 .2425891E+01 .9700953E+04 .2421363E+01 .9706243E+04 .2420298E+01 .9711486E+04 .2415727E+01 .9716788E+04 .2406582E+01 .9722094E+04 .2399528E+01 .9727407E+04 .2394548E+01 .9732776E+04 .2385773E+01 .9738204E+04 .2384001E+01 .9743535E+04 .2385557E+01 .9748923E+04 .2387176E+01 .9754317E+04 .2393320E+01 .9759769E+04 .2393286E+01 .9765227E+04 .2390265E+01 .9770742E+04 .2386799E+01 .9776212E+04 .2377775E+01 .9781793E+04 .2363987E+01 .9787275E+04 .2354141E+01 .9792816E+04 .2352211E+01 .9798416E+04 .2352589E+01 .9804022E+04 .2351565E+01 .9809584E+04 .2349586E+01 .9815254E+04 .2343184E+01 .9820880E+04 .2331066E+01 .9826564E+04 .2319885E+01 .9832308E+04 .2309800E+01 .9837953E+04 .2302536E+01 .9843659E+04 .2298680E+01 .9849422E+04 .2294200E+01 .9855192E+04 .2287658E+01 .9860971E+04 .2282896E+01 .9866755E+04 .2277700E+01 .9872600E+04 .2273120E+01 .9878450E+04 .2271066E+01 .9884310E+04 .2266972E+01 .9890175E+04 .2263576E+01 .9896100E+04 .2263998E+01 .9901980E+04 .2264150E+01 .9907920E+04 .2261573E+01 .9913867E+04 .2257439E+01 .9919876E+04 .2252447E+01 .9925838E+04 .2245956E+01 .9931859E+04 .2240462E+01 .9937890E+04 .2235462E+01 .9943980E+04 .2228760E+01 .9950025E+04 .2219993E+01 .9956132E+04 .2213546E+01 .9962300E+04 .2207783E+01 .9968367E+04 .2204902E+01 .9974497E+04 .2202134E+01 .9980687E+04 .2199268E+01 .9986832E+04 .2191243E+01 .9993038E+04 .2184893E+01 .9999253E+04 .2181988E+01 .1000553E+05 .2175889E+01 .1001176E+05 .2168400E+01 .1001805E+05 .2161425E+01 .1002435E+05 .2155688E+01 .1003066E+05 .2151178E+01 .1003703E+05 .2145570E+01 .1004336E+05 .2139351E+01 .1004974E+05 .2135055E+01 .1005614E+05 .2131782E+01 .1006254E+05 .2131762E+01 .1006896E+05 .2132080E+01 .1007543E+05 .2127986E+01 .1008192E+05 .2122787E+01 .1008846E+05 .2116560E+01 .1009491E+05 .2112059E+01 .1010142E+05 .2107203E+01 .1010794E+05 .2101453E+01 .1011452E+05 .2094787E+01 .1012111E+05 .2089134E+01 .1012771E+05 .2082759E+01 .1013432E+05 .2078182E+01 .1014105E+05 .2073463E+01 .1014768E+05 .2068076E+01 .1015431E+05 .2063473E+01 .1016101E+05 .2061048E+01 .1016778E+05 .2055853E+01 .1017449E+05 .2049533E+01 .1018128E+05 .2042940E+01 .1018807E+05 .2036571E+01 .1019482E+05 .2031228E+01 .1020163E+05 .2026054E+01 .1020845E+05 .2021201E+01 .1021528E+05 .2017216E+01 .1022217E+05 .2014019E+01 .1022913E+05 .2011350E+01 .1023599E+05 .2007960E+01 .1024286E+05 .2003555E+01 .1024985E+05 .1997455E+01 .1025679E+05 .1991910E+01 .1026380E+05 .1988298E+01 .1027082E+05 .1983455E+01 .1027785E+05 .1978791E+01 .1028489E+05 .1974810E+01 .1029188E+05 .1969660E+01 .1029905E+05 .1964434E+01 .1030612E+05 .1960277E+01 .1031320E+05 .1955222E+01 .1032041E+05 .1949610E+01 .1032750E+05 .1943582E+01 .1033473E+05 .1937461E+01 .1034185E+05 .1931902E+01 .1034909E+05 .1926781E+01 .1035635E+05 .1922293E+01 .1036361E+05 .1918179E+01 .1037089E+05 .1913225E+01 .1037817E+05 .1908101E+01 .1038547E+05 .1902590E+01 .1039278E+05 .1897350E+01 .1040010E+05 .1892302E+01 .1040748E+05 .1888240E+01 .1041482E+05 .1884945E+01 .1042223E+05 .1880880E+01 .1042965E+05 .1875209E+01 .1043714E+05 .1869117E+01 .1044458E+05 .1864810E+01 .1045203E+05 .1859730E+01 .1045955E+05 .1854703E+01 .1046708E+05 .1850927E+01 .1047463E+05 .1846062E+01 .1048218E+05 .1841454E+01 .1048975E+05 .1836949E+01 .1049732E+05 .1832029E+01 .1050497E+05 .1827266E+01 .1051257E+05 .1822091E+01 .1052024E+05 .1816615E+01 .1052792E+05 .1811286E+01 .1053562E+05 .1806091E+01 .1054332E+05 .1801056E+01 .1055104E+05 .1795975E+01 .1055877E+05 .1790457E+01 .1056650E+05 .1784985E+01 .1057432E+05 .1779817E+01 .1058220E+05 .1774830E+01 .1058991E+05 .1770077E+01 .1059776E+05 .1765584E+01 .1060562E+05 .1761346E+01 .1061355E+05 .1756188E+01 .1062143E+05 .1751146E+01 .1062933E+05 .1745866E+01 .1063730E+05 .1741325E+01 .1064521E+05 .1736995E+01 .1065321E+05 .1732137E+01 .1066121E+05 .1727265E+01 .1066923E+05 .1722011E+01 .1067726E+05 .1716960E+01 .1068530E+05 .1711949E+01 .1069335E+05 .1707255E+01 .1070154E+05 .1702657E+01 .1070956E+05 .1698036E+01 .1071771E+05 .1692923E+01 .1072581E+05 .1688424E+01 .1073399E+05 .1683495E+01 .1074224E+05 .1678441E+01 .1075038E+05 .1673326E+01 .1075860E+05 .1668216E+01 .1076683E+05 .1662904E+01 .1077514E+05 .1657390E+01 .1078339E+05 .1652672E+01 .1079172E+05 .1647545E+01 .1080000E+05 .1642962E+01 .1080836E+05 .1638716E+01 .1081673E+05 .1634322E+01 .1082505E+05 .1629474E+01 .1083345E+05 .1624254E+01 .1084186E+05 .1619885E+01 .1085041E+05 .1614815E+01 .1085878E+05 .1610030E+01 .1086723E+05 .1605274E+01 .1087576E+05 .1600137E+01 .1088423E+05 .1595601E+01 .1089285E+05 .1590329E+01 .1090129E+05 .1585683E+01 .1090994E+05 .1580797E+01 .1091847E+05 .1576162E+01 .1092708E+05 .1571243E+01 .1093570E+05 .1566459E+01 .1094440E+05 .1561783E+01 .1095299E+05 .1556788E+01 .1096165E+05 .1551967E+01 .1097040E+05 .1546871E+01 .1097909E+05 .1541756E+01 .1098786E+05 .1536987E+01 .1099665E+05 .1531856E+01 .1100532E+05 .1527318E+01 .1101414E+05 .1522359E+01 .1102297E+05 .1517451E+01 .1103181E+05 .1512805E+01 .1104067E+05 .1507971E+01 .1104954E+05 .1503313E+01 .1105843E+05 .1498878E+01 .1106733E+05 .1493591E+01 .1107625E+05 .1489248E+01 .1108518E+05 .1484389E+01 .1109412E+05 .1479586E+01 .1110315E+05 .1475953E+01 .1111213E+05 .1470389E+01 .1112125E+05 .1465458E+01 .1113019E+05 .1460824E+01 .1113934E+05 .1456106E+01 .1114838E+05 .1451418E+01 .1115743E+05 .1446648E+01 .1116656E+05 .1441941E+01 .1117578E+05 .1437189E+01 .1118487E+05 .1432610E+01 .1119405E+05 .1427790E+01 .1120331E+05 .1422876E+01 .1121245E+05 .1418740E+01 .1122168E+05 .1413546E+01 .1123098E+05 .1408856E+01 .1124017E+05 .1404290E+01 .1124951E+05 .1399685E+01 .1125880E+05 .1395006E+01 .1126817E+05 .1390236E+01 .1127755E+05 .1385646E+01 .1128682E+05 .1381390E+01 .1129624E+05 .1376596E+01 .1130560E+05 .1371654E+01 .1131505E+05 .1367242E+01 .1132452E+05 .1362544E+01 .1133393E+05 .1358360E+01 .1134343E+05 .1353479E+01 .1135294E+05 .1349326E+01 .1136247E+05 .1344309E+01 ifeffit-1.2.11d/examples/RefMan/feffit1.iff0000644000175000017500000000135110771740461017357 0ustar segresegre # read in chi(k) data file read_data(file=../data/cu_chi.dat, type=chi,group=data) path(index = 1, feff = ../feff/feffcu01.dat, label = "Cu metal first neighbor", s02 = s02, sigma2 = ss2, e0 = e0, delr = delr) guess (s02 = 0.5, ss2 = 0.001, e0= 0.0, delr = 0.09) set (kmin = 2, kmax =17, kweight=2, dk1 = 1, dk2 =1) set (rmin = 1, rmax = 3) ff2chi(1, group=init) # keep initial guess and fftf(real = init.chi) # generate chi(R) for it # do the actual fit feffit(1, chi= data.chi, group = fit) show @variables plot(data.r, data.chir_mag, color = blue, xmax = 7, new) plot(init.r, init.chir_mag, color = black, style=dashed) plot( fit.r, fit.chir_mag, color = red) ifeffit-1.2.11d/examples/RefMan/Out.chi0000644000175000017500000005611410771740461016610 0ustar segresegre# Test: writing out k, chi, chi*k # data from Cu.dat, rbkg = 1.0 #------------------------ # k chi chi_kw 0.0000000 0.0000000 0.0000000 0.50000000E-01 0.27967950 0.69919876E-03 0.10000000 0.28479535 0.28479535E-02 0.15000000 0.29132614 0.65548381E-02 0.20000000 0.29670122 0.11868049E-01 0.25000000 0.29816733 0.18635458E-01 0.30000000 0.29363420 0.26427078E-01 0.35000000 0.28276177 0.34638317E-01 0.40000000 0.27933549 0.44693678E-01 0.45000000 0.27405796 0.55496737E-01 0.50000000 0.26482892 0.66207231E-01 0.55000000 0.24876988 0.75252890E-01 0.60000000 0.22706653 0.81743949E-01 0.65000000 0.20099118 0.84918773E-01 0.70000000 0.17068874 0.83637481E-01 0.75000000 0.13501164 0.75944046E-01 0.80000000 0.94832530E-01 0.60692819E-01 0.85000000 0.52207170E-01 0.37719680E-01 0.90000000 0.78351555E-02 0.63464760E-02 0.95000000 -0.36157677E-01 -0.32632304E-01 1.0000000 -0.76309326E-01 -0.76309326E-01 1.0500000 -0.10779247 -0.11884119 1.1000000 -0.13317532 -0.16114214 1.1500000 -0.15227008 -0.20137718 1.2000000 -0.16368428 -0.23570537 1.2500000 -0.17069045 -0.26670382 1.3000000 -0.17936474 -0.30312641 1.3500000 -0.18731086 -0.34137405 1.4000000 -0.18557106 -0.36371928 1.4500000 -0.18058497 -0.37967989 1.5000000 -0.16951646 -0.38141204 1.5500000 -0.14780744 -0.35510737 1.6000000 -0.10743363 -0.27503008 1.6500000 -0.69463599E-01 -0.18911465 1.7000000 -0.14840863E-01 -0.42890093E-01 1.7500000 0.25519297E-01 0.78152848E-01 1.8000000 0.70319020E-01 0.22783362 1.8500000 0.12260821 0.41962660 1.9000000 0.14834546 0.53552713 1.9500000 0.15514302 0.58993134 2.0000000 0.13756162 0.55024649 2.0500000 0.10702249 0.44976199 2.1000000 0.72907916E-01 0.32152391 2.1500000 0.38143760E-01 0.17631953 2.2000000 0.14863637E-01 0.71940001E-01 2.2500000 0.17966095E-02 0.90953354E-02 2.3000000 0.52109554E-02 0.27565954E-01 2.3500000 0.32071985E-01 0.17711754 2.4000000 0.63825061E-01 0.36763235 2.4500000 0.97866039E-01 0.58744090 2.5000000 0.11403544 0.71272152 2.5500000 0.95905964E-01 0.62362853 2.6000000 0.63156919E-01 0.42694077 2.6500000 0.28844312E-01 0.20255918 2.7000000 -0.73574105E-02 -0.53635523E-01 2.7500000 -0.35719592E-01 -0.27012942 2.8000000 -0.59820029E-01 -0.46898903 2.8500000 -0.81765063E-01 -0.66413672 2.9000000 -0.93654606E-01 -0.78763523 2.9500000 -0.93076939E-01 -0.81000206 3.0000000 -0.88277401E-01 -0.79449661 3.0500000 -0.79152221E-01 -0.73631353 3.1000000 -0.67987057E-01 -0.65335562 3.1500000 -0.47053036E-01 -0.46688375 3.2000000 -0.24695018E-01 -0.25287698 3.2500000 -0.68027329E-02 -0.71853866E-01 3.3000000 0.17991567E-01 0.19592816 3.3500000 0.43533410E-01 0.48855370 3.4000000 0.63948846E-01 0.73924866 3.4500000 0.79520571E-01 0.94649359 3.5000000 0.81269883E-01 0.99555607 3.5500000 0.67165488E-01 0.84645307 3.6000000 0.41598981E-01 0.53912280 3.6500000 0.15189391E-01 0.20236067 3.7000000 -0.14122514E-01 -0.19333722 3.7500000 -0.34977507E-01 -0.49187120 3.8000000 -0.48711941E-01 -0.70340043 3.8500000 -0.56902917E-01 -0.84344349 3.9000000 -0.56935285E-01 -0.86598569 3.9500000 -0.50212973E-01 -0.78344791 4.0000000 -0.38980228E-01 -0.62368364 4.0500000 -0.30551934E-01 -0.50112809 4.1000000 -0.29871349E-01 -0.50213738 4.1500000 -0.34536440E-01 -0.59480384 4.2000000 -0.36459070E-01 -0.64313799 4.2500000 -0.29477368E-01 -0.53243497 4.3000000 -0.16271942E-01 -0.30086820 4.3500000 -0.70288133E-02 -0.13300272 4.4000000 -0.66132419E-02 -0.12803236 4.4500000 -0.79430449E-02 -0.15729215 4.5000000 -0.28614921E-02 -0.57945214E-01 4.5500000 0.94819059E-02 0.19629916 4.6000000 0.23294834E-01 0.49291869 4.6500000 0.33484558E-01 0.72401985 4.7000000 0.41110241E-01 0.90812522 4.7500000 0.49906586E-01 1.1260173 4.8000000 0.62632370E-01 1.4430498 4.8500000 0.78251395E-01 1.8406684 4.9000000 0.92272630E-01 2.2154659 4.9500000 0.98073236E-01 2.4030395 5.0000000 0.91924928E-01 2.2981232 5.0500000 0.73876325E-01 1.8840310 5.1000000 0.45597854E-01 1.1860002 5.1500000 0.18217975E-01 0.48318626 5.2000000 -0.26584404E-02 -0.71884228E-01 5.2500000 -0.20502763E-01 -0.56510741 5.3000000 -0.32111175E-01 -0.90200290 5.3500000 -0.35018201E-01 -1.0023084 5.4000000 -0.40681362E-01 -1.1862685 5.4500000 -0.60068148E-01 -1.7841742 5.5000000 -0.82526361E-01 -2.4964224 5.5500000 -0.99456201E-01 -3.0634996 5.6000000 -0.10558494 -3.3111438 5.6500000 -0.98700310E-01 -3.1507607 5.7000000 -0.83485342E-01 -2.7124388 5.7500000 -0.63240063E-01 -2.0908746 5.8000000 -0.39956237E-01 -1.3441278 5.8500000 -0.16702286E-01 -0.57159398 5.9000000 0.88419336E-04 0.30778771E-02 5.9500000 0.61241419E-02 0.21680993 6.0000000 0.14911966E-02 0.53683079E-01 6.0500000 -0.64587948E-02 -0.23640804 6.1000000 -0.98077867E-02 -0.36494774 6.1500000 0.47397632E-02 0.17926969 6.2000000 0.44810536E-01 1.7225170 6.2500000 0.10001345 3.9067755 6.3000000 0.13259138 5.2625518 6.3500000 0.13759682 5.5482478 6.4000000 0.12703944 5.2035354 6.4500000 0.11544753 4.8029058 6.5000000 0.10282102 4.3441883 6.5500000 0.78882931E-01 3.3842749 6.6000000 0.45272688E-01 1.9720783 6.6500000 0.32095560E-02 0.14193459 6.7000000 -0.41656895E-01 -1.8699780 6.7500000 -0.87023316E-01 -3.9649998 6.8000000 -0.12584792 -5.8192080 6.8500000 -0.15014331 -7.0450993 6.9000000 -0.15279678 -7.2746547 6.9500000 -0.13147208 -6.3504301 7.0000000 -0.93207029E-01 -4.5671444 7.0500000 -0.48403590E-01 -2.4057795 7.1000000 -0.42238805E-02 -0.21292581 7.1500000 0.25309797E-01 1.2939001 7.2000000 0.42097599E-01 2.1823396 7.2500000 0.40698022E-01 2.1391898 7.3000000 0.25301026E-01 1.3482917 7.3500000 0.11479341E-01 0.62014270 7.4000000 0.53776815E-02 0.29448184 7.4500000 0.35844802E-02 0.19894761 7.5000000 -0.72760544E-02 -0.40927806 7.5500000 -0.23027362E-01 -1.3126172 7.6000000 -0.24442638E-01 -1.4118068 7.6500000 -0.16659785E-02 -0.97497228E-01 7.7000000 0.42138324E-01 2.4983813 7.7500000 0.84344512E-01 5.0659422 7.8000000 0.99047542E-01 6.0260524 7.8500000 0.10143649 6.2507702 7.9000000 0.95501649E-01 5.9602579 7.9500000 0.77939786E-01 4.9259893 8.0000000 0.45661835E-01 2.9223574 8.0500000 0.65670103E-02 0.42555869 8.1000000 -0.28857021E-01 -1.8933092 8.1500000 -0.54932906E-01 -3.6487809 8.2000000 -0.69433845E-01 -4.6687317 8.2500000 -0.74754657E-01 -5.0879888 8.3000000 -0.69140958E-01 -4.7631206 8.3500000 -0.53666996E-01 -3.7417971 8.4000000 -0.43470716E-01 -3.0672937 8.4500000 -0.42212278E-01 -3.0140622 8.5000000 -0.38094849E-01 -2.7523528 8.5500000 -0.33272445E-01 -2.4322989 8.6000000 -0.29786305E-01 -2.2029951 8.6500000 -0.20327244E-01 -1.5209352 8.7000000 -0.44791088E-02 -0.33902374 8.7500000 0.93774311E-02 0.71795957 8.8000000 0.18992714E-01 1.4707957 8.8500000 0.24346293E-01 1.9068626 8.9000000 0.26107452E-01 2.0679713 8.9500000 0.27761946E-01 2.2238013 9.0000000 0.34201553E-01 2.7703258 9.0500000 0.42889445E-01 3.5127528 9.1000000 0.53490287E-01 4.4295306 9.1500000 0.60009962E-01 5.0241841 9.2000000 0.49942175E-01 4.2271057 9.2500000 0.30984558E-01 2.6511163 9.3000000 0.13176423E-01 1.1396288 9.3500000 -0.57815474E-02 -0.50543733 9.4000000 -0.21370062E-01 -1.8882587 9.4500000 -0.25743720E-01 -2.2989786 9.5000000 -0.19544561E-01 -1.7638966 9.5500000 -0.88838052E-02 -0.81022525 9.6000000 -0.24638612E-02 -0.22706945 9.6500000 -0.91372183E-02 -0.85088061 9.7000000 -0.26422094E-01 -2.4860548 9.7500000 -0.45113368E-01 -4.2885895 9.8000000 -0.48464147E-01 -4.6544967 9.8500000 -0.34691985E-01 -3.3659031 9.9000000 -0.24315780E-01 -2.3831896 9.9500000 -0.21723369E-01 -2.1506678 10.000000 -0.14113834E-01 -1.4113834 10.050000 -0.57156001E-02 -0.57728990 10.100000 -0.76880730E-03 -0.78426033E-01 10.150000 0.46805161E-02 0.48219846 10.200000 0.10335527E-01 1.0753082 10.250000 0.15617741E-01 1.6408389 10.300000 0.20487634E-01 2.1735331 10.350000 0.24315237E-01 2.6047090 10.400000 0.27160571E-01 2.9376874 10.450000 0.29794143E-01 3.2535949 10.500000 0.31691097E-01 3.4939434 10.550000 0.30614393E-01 3.4074584 10.600000 0.23553443E-01 2.6464649 10.650000 0.97659746E-02 1.1076813 10.700000 -0.61074882E-02 -0.69924632 10.750000 -0.16492978E-01 -1.9059697 10.800000 -0.17991511E-01 -2.0985298 10.850000 -0.14448168E-01 -1.7008744 10.900000 -0.72836840E-02 -0.86537449 10.950000 0.77861152E-03 0.93357467E-01 11.000000 0.49847267E-02 0.60315193 11.050000 0.39873354E-02 0.48686362 11.100000 -0.23221960E-02 -0.28611777 11.150000 -0.13638508E-01 -1.6955734 11.200000 -0.21330026E-01 -2.6756384 11.250000 -0.18758232E-01 -2.3740887 11.300000 -0.13653509E-01 -1.7434165 11.350000 -0.14769725E-01 -1.9026730 11.400000 -0.18042618E-01 -2.3448186 11.450000 -0.18025420E-01 -2.3631777 11.500000 -0.15005124E-01 -1.9844277 11.550000 -0.83554503E-02 -1.1146380 11.600000 -0.13968901E-03 -0.18796553E-01 11.650000 0.76981795E-02 1.0448162 11.700000 0.16997322E-01 2.3267635 11.750000 0.27198421E-01 3.7550819 11.800000 0.34832525E-01 4.8500807 11.850000 0.37300466E-01 5.2378247 11.900000 0.33544308E-01 4.7502094 11.950000 0.21707110E-01 3.0998296 12.000000 0.36561767E-02 0.52648945 12.050000 -0.10065065E-01 -1.4614726 12.100000 -0.13677962E-01 -2.0025904 12.150000 -0.12927109E-01 -1.9083321 12.200000 -0.11605640E-01 -1.7273835 12.250000 -0.10135821E-01 -1.5210067 12.300000 -0.70473361E-02 -1.0661915 12.350000 -0.34902730E-02 -0.53234517 12.400000 -0.23931149E-02 -0.36796535 12.450000 -0.33617975E-02 -0.52108701 12.500000 -0.31671182E-02 -0.49486221 12.550000 -0.30308395E-02 -0.47736480 12.600000 -0.62901003E-02 -0.99861633 12.650000 -0.10779520E-01 -1.7249657 12.700000 -0.10905027E-01 -1.7588718 12.750000 -0.92097890E-02 -1.4971663 12.800000 -0.69259778E-02 -1.1347522 12.850000 -0.27682033E-02 -0.45709265 12.900000 0.15146967E-03 0.25206068E-01 12.950000 0.14808583E-02 0.24834364 13.000000 0.40316436E-02 0.68134776 13.050000 0.89188987E-02 1.5189107 13.100000 0.12804471E-01 2.1973753 13.150000 0.12568673E-01 2.1734063 13.200000 0.10476543E-01 1.8254329 13.250000 0.82270130E-02 1.4443550 13.300000 0.67425219E-02 1.1926847 13.350000 0.58282746E-02 1.0387297 13.400000 0.28742645E-02 0.51610293 13.450000 -0.10731668E-02 -0.19413857 13.500000 -0.29035705E-02 -0.52917573 13.550000 -0.31316872E-02 -0.57498560 13.600000 -0.19634056E-02 -0.36315150 13.650000 -0.72289885E-03 -0.13469232 13.700000 -0.27283111E-02 -0.51207671 13.750000 -0.49901261E-02 -0.94344572 13.800000 -0.39674745E-02 -0.75556585 13.850000 -0.27923309E-02 -0.53563190 13.900000 -0.36665296E-02 -0.70841019 13.950000 -0.53476533E-02 -1.0406667 14.000000 -0.58149469E-02 -1.1397296 14.050000 -0.66926632E-02 -1.3211484 14.100000 -0.73388921E-02 -1.4590451 14.150000 -0.52651690E-02 -1.0542053 14.200000 -0.25530084E-02 -0.51478862 14.250000 0.11723855E-02 0.23806754 14.300000 0.49386116E-02 1.0098967 14.350000 0.62708151E-02 1.2913019 14.400000 0.70170136E-02 1.4550479 14.450000 0.66743641E-02 1.3936239 14.500000 0.37617864E-02 0.79091560 14.550000 0.32850806E-03 0.69545977E-01 14.600000 -0.34189063E-03 -0.72877406E-01 14.650000 0.15877744E-02 0.34077211 14.700000 0.36485730E-02 0.78842014 14.750000 0.51706466E-02 1.1249388 14.800000 0.56838775E-02 1.2449965 14.850000 0.37876916E-02 0.83527123 14.900000 0.65295171E-03 0.14496181 14.950000 -0.18686329E-02 -0.41764412 15.000000 -0.36284031E-02 -0.81639069 15.050000 -0.39438883E-02 -0.89330055 15.100000 -0.34877284E-02 -0.79523694 15.150000 -0.37833183E-02 -0.86835668 15.200000 -0.42029471E-02 -0.97104890 15.250000 -0.42168650E-02 -0.98068467 15.300000 -0.43152554E-02 -1.0101581 15.350000 -0.36211510E-02 -0.85322465 15.400000 -0.27635561E-02 -0.65540496 15.450000 -0.24495406E-02 -0.58471147 15.500000 -0.10381284E-02 -0.24941034 15.550000 0.13525994E-02 0.32706191 15.600000 0.29939559E-02 0.72860910 15.650000 0.36104221E-02 0.88427361 15.700000 0.37568628E-02 0.92602912 15.750000 0.33549550E-02 0.83223853 15.800000 0.28022614E-02 0.69955652 15.850000 0.27093870E-02 0.68065897 15.900000 0.23872654E-02 0.60352457 15.950000 0.10811109E-02 0.27503733 16.000000 -0.19857078E-03 -0.50834121E-01 16.050000 -0.72945296E-03 -0.18790891 16.100000 -0.51217502E-03 -0.13276089 16.150000 0.43075733E-03 0.11235120 16.200000 0.14521732E-02 0.38110834 16.250000 0.11951368E-02 0.31559082 16.300000 -0.54116679E-04 -0.14378261E-01 16.350000 0.15508827E-03 0.41458585E-01 16.400000 0.46439345E-03 0.12490326 16.450000 -0.45728341E-03 -0.12374203 16.500000 -0.15545928E-02 -0.42323790 16.550000 -0.22170448E-02 -0.60725412 16.600000 -0.22769061E-02 -0.62742425 16.650000 -0.23054699E-02 -0.63912812 16.700000 -0.28369129E-02 -0.79118663 16.750000 -0.30662295E-02 -0.86026902 16.800000 -0.26441818E-02 -0.74629388 16.850000 -0.12594848E-02 -0.35759607 16.900000 0.10850435E-02 0.30989928 16.950000 0.23936669E-02 0.68770650 17.000000 0.23926854E-02 0.69148609 17.050000 0.19618722E-02 0.57032115 17.100000 0.17168176E-02 0.50201463 17.150000 0.18431197E-02 0.54210297 17.200000 0.16506434E-02 0.48832635 17.250000 0.10090229E-02 0.30024738 17.300000 0.44780645E-03 0.13402399 17.350000 -0.78829170E-04 -0.23729354E-01 17.400000 -0.36365829E-03 -0.11010118 17.450000 -0.20201585E-03 -0.61514331E-01 17.500000 -0.30957372E-03 -0.94806950E-01 17.550000 -0.46533746E-03 -0.14332510 17.600000 0.20122843E-03 0.62332520E-01 17.650000 0.72489357E-03 0.22582066 17.700000 0.26078274E-03 0.81700626E-01 17.750000 -0.46907551E-03 -0.14778810 17.800000 -0.11940494E-02 -0.37832260 17.850000 -0.16300199E-02 -0.51936102 17.900000 -0.17990100E-02 -0.57642079 17.950000 -0.18912640E-02 -0.60937000 18.000000 -0.17207800E-02 -0.55753271 18.050000 -0.11694595E-02 -0.38101282 18.100000 -0.29607131E-03 -0.96995922E-01 18.150000 0.51800542E-03 0.17064264 18.200000 0.92293766E-03 0.30571387 18.250000 0.68708249E-03 0.22884141 18.300000 0.18157402E-03 0.60807322E-01 18.350000 0.36578748E-03 0.12316887 18.400000 0.66897871E-03 0.22648943 18.450000 0.66383946E-03 0.22597261 18.500000 0.93563162E-03 0.32021992 18.550000 0.10477499E-02 0.36053336 18.600000 0.84824423E-03 0.29345857 18.650000 0.96581686E-03 0.33593284 18.700000 0.10884575E-02 0.38062270 18.750000 0.87389299E-03 0.30722801 18.800000 0.44189880E-03 0.15618471 18.850000 -0.10662412E-03 -0.37885950E-01 18.900000 -0.53482919E-03 -0.19104633 18.950000 -0.74331169E-03 -0.26692509 19.000000 -0.69449158E-03 -0.25071146 19.050000 -0.40152497E-03 -0.14571441 19.100000 -0.25369898E-03 -0.92551925E-01 19.150000 -0.33908346E-03 -0.12434953 19.200000 -0.54943011E-03 -0.20254191 19.250000 -0.77669690E-03 -0.28781474 19.300000 -0.91248603E-03 -0.33989192 19.350000 -0.76779538E-03 -0.28747987 19.400000 -0.19020352E-03 -0.71584997E-01 19.450000 0.37055253E-03 0.14018095 19.500000 0.33517792E-03 0.12745141 19.550000 -0.17621229E-03 -0.67348779E-01 19.600000 -0.24771431E-03 -0.95161929E-01 19.650000 -0.13998709E-03 -0.54052166E-01 19.700000 -0.25445629E-03 -0.98751941E-01 19.750000 0.31857741E-04 0.12426510E-01 19.800000 0.28984060E-03 0.11362911 19.850000 0.34507472E-03 0.13596720 19.900000 0.52180147E-03 0.20663860 19.950000 0.59657142E-03 0.23743692 20.000000 0.64306896E-03 0.25722758 20.050000 0.62844848E-03 0.25263786 20.100000 0.43700361E-03 0.17655383 20.150000 0.23537643E-03 0.95568126E-01 20.200000 0.10330238E-03 0.42151502E-01 20.250000 0.37708529E-04 0.15462854E-01 20.300000 0.69030690E-06 0.28446857E-03 20.350000 -0.16961890E-03 -0.70243003E-01 20.400000 -0.43304118E-03 -0.18021442 20.450000 -0.58784232E-03 -0.24583713 20.500000 -0.61710082E-03 -0.25933662 20.550000 -0.58959163E-03 -0.24898602 20.600000 -0.45851899E-03 -0.19457712 20.650000 -0.16842916E-03 -0.71821982E-01 20.700000 -0.79910908E-04 -0.34241025E-01 20.750000 -0.15616329E-03 -0.67238057E-01 20.800000 -0.28125473E-03 -0.12168205 20.850000 -0.25214216E-03 -0.10961187 20.900000 0.55596511E-06 0.24285112E-03 20.950000 0.13421292E-03 0.58906387E-01 21.000000 0.16577166E-03 0.73105301E-01 21.050000 0.93276808E-04 0.41331187E-01 21.100000 -0.52032307E-05 -0.23165304E-02 21.150000 -0.53842784E-04 -0.24085089E-01 21.200000 -0.20110704E-04 -0.90385548E-02 21.250000 0.12409441E-03 0.56036382E-01 21.300000 0.26819401E-03 0.12167694 21.350000 0.24570145E-03 0.11199625 21.400000 0.30685050E-03 0.14052526 21.450000 0.38593157E-03 0.17756808 21.500000 0.34670716E-03 0.16026539 21.550000 0.25597163E-03 0.11887386 21.600000 0.15447262E-03 0.72070747E-01 21.650000 0.93362915E-05 0.43761299E-02 21.700000 -0.24657236E-03 -0.11610846 21.750000 -0.31341760E-03 -0.14826611 21.800000 -0.34595061E-03 -0.16440957 21.850000 -0.34281076E-03 -0.16366557 21.900000 -0.12317666E-03 -0.59076756E-01 21.950000 0.12714246E-03 0.61257557E-01 22.000000 0.20670801E-03 0.10004668 22.050000 0.71807867E-04 0.34913164E-01 22.100000 0.13683062E-03 0.66829443E-01 22.150000 0.19322285E-03 0.94799479E-01 22.200000 0.14781841E-03 0.72850828E-01 22.250000 0.17797216E-03 0.88107345E-01 22.300000 0.10254547E-03 0.50994835E-01 22.350000 0.13060060E-03 0.65237937E-01 22.400000 0.75633520E-04 0.37949875E-01 22.450000 0.22752923E-04 0.11467530E-01 22.500000 0.44151984E-04 0.22351942E-01 22.550000 0.81681015E-04 0.41535000E-01 22.600000 0.81295640E-04 0.41522561E-01 22.650000 0.59503733E-04 0.30526754E-01 22.700000 0.11921796E-03 0.61431825E-01 22.750000 0.86265157E-04 0.44647610E-01 22.800000 0.36448101E-04 0.18947181E-01 22.850000 -0.30099125E-04 -0.15715431E-01 22.900000 -0.17656389E-03 -0.92591871E-01 22.950000 -0.21211074E-03 -0.11171926 23.000000 -0.28955396E-03 -0.15317404 23.050000 -0.29001784E-03 -0.15408720 23.100000 -0.28326952E-03 -0.15115545 23.150000 -0.35037236E-03 -0.18777243 23.200000 -0.32136470E-03 -0.17297134 23.250000 -0.30260900E-03 -0.16357908 23.300000 -0.28320451E-03 -0.15374890 23.350000 -0.13894345E-03 -0.75755094E-01 23.400000 -0.22846029E-03 -0.12509572 23.450000 -0.20210788E-03 -0.11113963 23.500000 -0.12691425E-03 -0.70088395E-01 23.550000 -0.19228727E-03 -0.10664300 23.600000 0.16653481E-03 0.92753225E-01 23.650000 0.16146967E-03 0.90313619E-01 23.700000 -0.49087999E-04 -0.27572238E-01 23.750000 -0.26756652E-04 -0.15092424E-01 23.800000 0.18520213E-04 0.10490589E-01 23.850000 0.51765010E-04 0.29445102E-01 23.900000 0.47533357E-04 0.27151529E-01 23.950000 0.53027493E-04 0.30416702E-01 24.000000 0.70522907E-04 0.40621194E-01 24.050000 0.11483448E-03 0.66420548E-01 24.100000 0.11658296E-03 0.67712546E-01 24.150000 0.36403281E-04 0.21231213E-01 24.200000 0.17947892E-03 0.10511003 24.250000 0.14118523E-03 0.83025739E-01 24.300000 0.42924811E-04 0.25346671E-01 24.350000 0.80743270E-04 0.47874502E-01 24.400000 0.12315174E-03 0.73319622E-01 24.450000 0.13421058E-03 0.80231420E-01 24.500000 0.97198839E-04 0.58343603E-01 24.550000 0.89779298E-04 0.54110207E-01 24.600000 0.20377917E-03 0.12331900 24.650000 0.22456135E-03 0.13644853 24.700000 0.74225864E-04 0.45284457E-01 24.750000 0.69079029E-04 0.42315223E-01 24.800000 0.68760194E-04 0.42290270E-01 24.850000 0.14699862E-03 0.90774953E-01 24.900000 0.11544211E-03 0.71575261E-01 24.950000 0.15996940E-03 0.99581350E-01 ifeffit-1.2.11d/examples/RefMan/x.out0000644000175000017500000000047610771740461016354 0ustar segresegre PATH 1 feff = ../feff/feffcu01.dat id = Cu metal first neighbor reff = 2.547800, degen = 12.000000 s02 = 0.937476, e0 = -0.867040 dr = 0.007575, ss2 = 0.003522 3rd = 0.000000, 4th = 0.000000 ei = 0.000000, dphase = 0.000000 ifeffit-1.2.11d/examples/RefMan/basic.iff0000644000175000017500000000122510771740461017114 0ustar segresegre read_data(file=Cu.dat, type=raw, group= cu) cu.energy = cu.1 * 1000.0 cu.xmu = ln(cu.2 / cu.3) spline(energy = cu.energy, xmu = cu.xmu, rbkg=1.1, kweight=1., kmin=0) plot(cu.energy, cu.xmu, new) plot(cu.energy, cu.bkg, xmin=8850, xmax=9300, color=red) pause kweight = 2.0, cu.chi_kw = cu.chi * cu.k^kweight newplot(cu.k, cu.chi_kw) fftf(real = cu.chi, kmin = 2.0, kmax = 16.0, dk = 1.0, kweight=2) newplot(cu.r, cu.chir_mag, xmax=8) $title1 = "Test: writing out k, chi, chi*k" $title2 = " data from Cu.dat, rbkg = 1.0" write_data(file = Out.chi, cu.k, cu.chi, cu.chi_kw, $title1, $title2) ifeffit-1.2.11d/examples/Pre_Edge/0000755000175000017500000000000010771740461015647 5ustar segresegreifeffit-1.2.11d/examples/Pre_Edge/clnorm0000644000175000017500000000566010771740461017073 0ustar segresegre#!/usr/bin/perl # # simple implementation of Cromer-Libermann normalization use Ifeffit; use Getopt::Std; use subs qw/DumpHelp/; if ($#ARGV<0) {DumpHelp and exit;} getopts('hz:'); $z = ($opt_z) ? ($opt_z) : "29"; $file = $ARGV[0]; $ofile = $ARGV[1]; if ($ofile eq '') { $ofile = $file.".norm"; } $i = Ifeffit::ifeffit( "\&screen_echo = 1"); $script =<<"ESCR"; read_data(file = $file, prefix = dat, type = xmu) plot dat.energy, dat.xmu set e0 = 17163 echo " pick low energy of pre-edge range" cursor set pre1 = cursor_x - e0 echo " pick high energy of pre-edge range" cursor set pre2 = cursor_x - e0 # pre_edge(energy = dat.energy, xmu = dat.xmu, pre1=pre1,pre2=pre2, e0 = 17163) set (e0_dat = e0) set (es_dat = edge_step) set (ps_dat = pre_slope) set (po_dat = pre_offset) # set (cl.e = dat.energy) f1f2(z= $z, energy=cl.e, width=0.1) pre_edge(cl.e, cl.f2, pre1=pre1,pre2=pre2, e0 = 17163) set (e0_cl = e0) set (es_cl = edge_step) set (ps_cl = pre_slope) set (po_cl = pre_offset) # cl2.e = cl.e + e0_dat - e0_cl cl2.f2 = splint(cl.e, cl.f2, cl2.e) ESCR ifeffit($script); #----------- # set weighting array $e0 = Ifeffit::get_scalar("e0_dat"); @energy = Ifeffit::get_array("cl2.e"); @weight = @energy ; for ( $i = 0; $i < $#energy; $i++ ) { $e = $energy[$i]; $weight[$i] = 1; if ($e < $e0) { $weight[$i] = 5;}; if (abs($e - $e0) < 20) { $weight[$i] = 0.001}; } $i = Ifeffit::put_array("cl2.weight", \@weight); #--------- $model =<<"EOM"; guess (a0 = po_dat - po_cl) guess (a1 = ps_dat - ps_cl) guess (a2 = 0) guess step = es_dat / es_cl cl2.model = a0 + a1 * (cl2.e) + a2 * cl2.e* cl2.e + cl2.f2 * step cl2.diff = (dat.xmu - cl2.model) * cl2.weight print " pick low energy of fit range " cursor set fit_r1 = cursor_x print " pick high energy of fit range " cursor set fit_r2 = cursor_x minimize(cl2.diff, x = cl2.e, xmin = fit_r1, xmax=fit_r2) show \@variables show fit_r1,fit_r2 newplot cl2.e, cl2.model plot cl2.e, dat.xmu pre_edge(cl2.e, cl2.model, pre1=pre1, pre2=pre2, e0 = e0_dat) print "Autobk edge step :" , es_dat print "Cromer-Libermann edge step :" , edge_step # print e0, pre_slope, pre_offset, norm_c0, norm_c1, norm_c2 cl2.nl = norm_c0 + norm_c1 * cl2.e + norm_c2 * cl2.e^2 cl2.pl = pre_offset + pre_slope * cl2.e cl2.dl = cl2.nl - cl2.pl pause plot cl2.e, cl2.pl plot cl2.e, cl2.nl # plot cl2.e, cl2.dl pause # show \@variables # generate normalized xmu data: # still relying on older pre_edge line dat.norm = dat.pre /edge_step \$t_x1 = 'Normalized to match Cromer-Libermann f'' data ' write_data(file = $ofile, dat.energy, dat.norm, e0_dat, edge_step, \$t_x1, \$dat_titl*) newplot dat.energy, dat.norm show e0_dat, edge_step EOM ifeffit($model); print "wrote $ofile\n"; #------------------ sub DumpHelp { my $help_msg =<<'END'; # written when no arguments are given usage: clnorm xmu_file END print STDERR $help_msg; } ifeffit-1.2.11d/examples/Pre_Edge/bkg_cl.iff0000644000175000017500000000071710771740461017563 0ustar segresegre# # pre-edge subtraction and normalization # using Cromer-Libermann data # read_data(file = ../data/cu.xmu, prefix = dat, type = xmu) bkg_cl(energy=dat.energy, xmu = dat.xmu, z=29) newplot (dat.energy, dat.xmu) # plot (dat.energy, dat.f2norm) show @arrays set dat.preline = pre_offset + dat.energy * pre_slope set dat.normline = norm_c0 + dat.energy * (norm_c1 + dat.energy * norm_c2) plot dat.energy, dat.preline plot dat.energy, dat.normline ifeffit-1.2.11d/examples/Pre_Edge/pre.iff0000644000175000017500000000074710771740461017133 0ustar segresegre# # simple pre-edge subtraction # this sort of begs for a Macro (see ../Macro directory) read_data(file = ../data/cu.xmu, prefix = dat, type = xmu) pre_edge(energy = dat.energy, xmu = dat.xmu ) show pre_slope, pre_offset, edge_step # calculate pre-edge line dat.pre_line = pre_offset + pre_slope * dat.energy newplot ( dat.energy, dat.xmu) plot ( dat.energy, dat.pre_line) pause == hit return for normalized, pre-edge subtracted data == newplot ( dat.energy, dat.norm) ifeffit-1.2.11d/examples/Pre_Edge/s.iff0000644000175000017500000000117110771740461016577 0ustar segresegre# # pre-edge subtraction and normalization # using Cromer-Libermann data # read_data(file = ../data/cu.xmu, prefix = dat, type = xmu) spline(energy=dat.energy, xmu = dat.xmu, rbkg=1,kweight=1,interp='line') set d1.chi = dat.chi spline(energy=dat.energy, xmu = dat.xmu, rbkg=1,kweight=1,interp='quad') set d2.chi = dat.chi spline(energy=dat.energy, xmu = dat.xmu, rbkg=1,kweight=1,interp='cubic') set d3.chi = dat.chi xmin= 2 xmax=10 newplot (dat.k, d1.chi, xmin=xmin, xmax=xmax,style=solid,color=blue) plot (dat.k, d2.chi, style=linespoints3,color=red) plot (dat.k, d3.chi, style=linespoints3,color=black) ifeffit-1.2.11d/examples/Spline/0000755000175000017500000000000010771740460015426 5ustar segresegreifeffit-1.2.11d/examples/Spline/u.iff0000644000175000017500000000021610771740460016357 0ustar segresegre read_data(file = ../data/cu.xmu, label = 'energy xmu', group = ' c* ') show @arrays spline(energy= c_.energy, xmu= c_.xmu) show @arraysifeffit-1.2.11d/examples/Spline/clamp.iff0000644000175000017500000000147410771740460017216 0ustar segresegre# # end-point clamps in spline() # # these allow you to specify an extra 'penalty' for having # chi(k) differ from 0 at the endpoints (k=0 and k = kmax) # # to use them, you specify a weighting factor (larger causes # a bigger penalty) and a number of energy points in from the # endpoint to apply this weight for: # # keywords: # clamp1 : size of low-energy clamp # clamp2 : size of high-energy clamp # nclamp : number of energy points to use for clamp [5] read_data(file = ../data/mno.xmu, label = 'energy xmu', group = dat) spline(energy= dat.energy, xmu= dat.xmu, rbkg=1.0, e0 = 6548, kmin= 0.0, kmax=12, clamp2=2) dat.chik = dat.chi * dat.k plot(dat.k, dat.chi, xmax=15 ) dat.chie = (dat.xmu-dat.bkg)/edge_step x.chie = slice(dat.chie,160,170) # print x.chie ifeffit-1.2.11d/examples/Spline/autobk.iff0000644000175000017500000000062610771740460017405 0ustar segresegre# # simple autobk-like spline with ifeffit # read_data(file = ../data/cu.xmu, label = 'energy xmu', group = cu) spline(energy= cu.energy, xmu= cu.xmu, kweight=1,rbkg=1.1) newplot(cu.energy, cu.xmu, xlabel = 'E (eV)') plot(cu.energy, cu.bkg) pause == hit any key to see k-weighted chi(k) == cu.chik = cu.chi * cu.k newplot(cu.k, cu.chik , xlabel = 'k (\A\u-1\d)', ylabel = 'k\gx(k)(\A\u-1\d)') ifeffit-1.2.11d/examples/Spline/with_clamps.iff0000644000175000017500000000215410771740460020430 0ustar segresegre# # end-point clamps in spline() # # these allow you to specify an extra 'penalty' for having # chi(k) differ from 0 at the endpoints (k=0 and k = kmax) # # to use them, you specify a weighting factor (larger causes # a bigger penalty) and a number of energy points in from the # endpoint to apply this weight for: # # keywords: # clamp1 : size of low-energy clamp # clamp2 : size of high-energy clamp # nclamp : number of energy points to use for clamp [5] read_data(file = ../data/cu_rt01.xmu, label = 'energy xmu', group = cu) spline(energy= cu.energy, xmu= cu.xmu, rbkg=1.0, kmax=15) cu.chik = cu.chi * cu.k newplot(cu.k, cu.chik , xlabel = 'k (\A\u-1\d)', ylabel = 'k\gx(k)(\A\u-1\d)') echo ' ' echo that's without any clamps at all pause == hit return for a clamp of 1 at high k == spline(energy= cu.energy, xmu= cu.xmu, rbkg=1.0, kmax=15, clamp2=1.0) cu.chik = cu.chi * cu.k plot(cu.k, cu.chik ) pause == hit return for a clamp of 10 == spline(energy= cu.energy, xmu= cu.xmu, rbkg=1.0, kmax=15, clamp2=10.0) cu.chik = cu.chi * cu.k plot(cu.k, cu.chik ) ifeffit-1.2.11d/examples/Spline/with_std.iff0000644000175000017500000000166210771740460017746 0ustar segresegre# # background-removal using known chi(k) data # read_data(file = ../data/cu_rt01.xmu, label = 'energy xmu', group = cu) read_data(file = ../data/cu_chi.dat, label = 'k chi ', group = std) set u.energy = cu.energy set u.xmu = cu.xmu # without standard spline(energy= u.energy, xmu= u.xmu, kweight=1,rbkg=0.6) set e0_wo_std = e0 set u.chik = u.chi * u.k # with standard spline(energy= cu.energy, xmu= cu.xmu, kweight=1,rbkg=0.6, k_std=std.k, chi_std = std.chi) set e0_with_std = e0 set cu.chik = cu.chi * cu.k set diff.chik = cu.chik - u.chik newplot(cu.k, cu.chik , text='with standard, rbkg=0.6',text_x=12,text_y=0.2, xlabel = 'k (\A\u-1\d)', ylabel = 'k\gx(k)(\A\u-1\d)') plot(u.k, u.chik+0.6, text='no standard, rbkg=0.6',text_x=12,text_y=0.8) plot(u.k, diff.chik-0.4, text='difference', text_x=14,text_y=-0.3 ) print ' e0 with and without standard: ', e0_with_std, e0_wo_std ifeffit-1.2.11d/examples/Spline/change_rbkg.iff0000644000175000017500000000070110771740460020344 0ustar segresegre# # simple autobk-like spline with ifeffit # macro try_rbkg in 1.0 out spline(energy= $1.energy, xmu= $1.xmu, kweight=1, kmin=0, kmax=18, rbkg=$2, group=$3) print rbkg set $3.chik = $3.chi * ($3.k)^2 plot($3.k, $3.chik, key=$3) end macro read_data (../data/cu.xmu, group=cu) try_rbkg cu 0.5 cu05 try_rbkg cu 0.8 cu08 try_rbkg cu 1.0 cu10 try_rbkg cu 1.2 cu12 try_rbkg cu 2.0 cu20 try_rbkg cu 3.0 cu30 ifeffit-1.2.11d/examples/Spline/m.chi0000644000175000017500000010000010771740460016336 0ustar segresegre# data from ifeffit #------------------------ # k chi 0.0000000 0.0000000 0.25000000E-01 0.27784335 0.50000000E-01 0.27926958 0.75000000E-01 0.28151332 0.10000000 0.28438121 0.12500000 0.28761572 0.15000000 0.29090836 0.17500000 0.29391661 0.20000000 0.29628469 0.22500000 0.29766799 0.25000000 0.29776138 0.27500000 0.29633122 0.30000000 0.29325114 0.32500000 0.28854163 0.35000000 0.28241337 0.37500000 0.28053093 0.40000000 0.27900661 0.42500000 0.27679188 0.45000000 0.27374872 0.47500000 0.26972260 0.50000000 0.26454095 0.52500000 0.25724467 0.55000000 0.24850459 0.57500000 0.23834689 0.60000000 0.22682510 0.62500000 0.21410745 0.65000000 0.20077457 0.67500000 0.18625083 0.70000000 0.17049766 0.72500000 0.15337720 0.75000000 0.13484653 0.77500000 0.11521869 0.80000000 0.94693551E-01 0.82500000 0.73672355E-01 0.85000000 0.52094191E-01 0.87500000 0.30099955E-01 0.90000000 0.77478430E-02 0.92500000 -0.14490518E-01 0.95000000 -0.36219910E-01 0.97500000 -0.56994354E-01 1.0000000 -0.76347356E-01 1.0250000 -0.93156757E-01 1.0500000 -0.10780741 1.0750000 -0.12101854 1.1000000 -0.13316851 1.1250000 -0.14370845 1.1500000 -0.15224305 1.1750000 -0.15898485 1.2000000 -0.16363877 1.2250000 -0.16698411 1.2500000 -0.17062837 1.2750000 -0.17483983 1.3000000 -0.17928815 1.3250000 -0.18356030 1.3500000 -0.18722193 1.3750000 -0.18900023 1.4000000 -0.18547196 1.4250000 -0.18051814 1.4500000 -0.18047787 1.4750000 -0.17797013 1.5000000 -0.16940355 1.5250000 -0.15938909 1.5500000 -0.14769077 1.5750000 -0.12793466 1.6000000 -0.10731501 1.6250000 -0.91746457E-01 1.6500000 -0.69344732E-01 1.6750000 -0.41761003E-01 1.7000000 -0.14723007E-01 1.7250000 0.71252190E-02 1.7500000 0.25635117E-01 1.7750000 0.45352137E-01 1.8000000 0.70432395E-01 1.8250000 0.97890659E-01 1.8500000 0.12271902 1.8750000 0.13691855 1.9000000 0.14845364 1.9250000 0.15693416 1.9500000 0.15524847 1.9750000 0.14765228 2.0000000 0.13766422 2.0250000 0.12420653 2.0500000 0.10712218 2.0750000 0.90428436E-01 2.1000000 0.73004662E-01 2.1250000 0.55188025E-01 2.1500000 0.38237516E-01 2.1750000 0.24431166E-01 2.2000000 0.14954442E-01 2.2250000 0.71505946E-02 2.2500000 0.18844270E-02 2.2750000 0.13997654E-02 2.3000000 0.52958294E-02 2.3250000 0.13332247E-01 2.3500000 0.32153988E-01 2.3750000 0.49318864E-01 2.4000000 0.63904151E-01 2.4250000 0.82815181E-01 2.4500000 0.97942250E-01 2.4750000 0.11114420 2.5000000 0.11410871 2.5250000 0.10911035 2.5500000 0.95976181E-01 2.5750000 0.77252038E-01 2.6000000 0.63224075E-01 2.6250000 0.45780924E-01 2.6500000 0.28908377E-01 2.6750000 0.63380315E-02 2.7000000 -0.72964194E-02 2.7250000 -0.23100406E-01 2.7500000 -0.35661642E-01 2.7750000 -0.46209820E-01 2.8000000 -0.59765093E-01 2.8250000 -0.70879792E-01 2.8500000 -0.81713108E-01 2.8750000 -0.89248556E-01 2.9000000 -0.93605584E-01 2.9250000 -0.94506377E-01 2.9500000 -0.93030766E-01 2.9750000 -0.90726333E-01 3.0000000 -0.88234036E-01 3.0250000 -0.84349238E-01 3.0500000 -0.79111634E-01 3.0750000 -0.73875281E-01 3.1000000 -0.67949184E-01 3.1250000 -0.58659584E-01 3.1500000 -0.47017827E-01 3.1750000 -0.35496474E-01 3.2000000 -0.24662396E-01 3.2250000 -0.15598741E-01 3.2500000 -0.67726563E-02 3.2750000 0.48886393E-02 3.3000000 0.18019153E-01 3.3250000 0.31098268E-01 3.3500000 0.43558604E-01 3.3750000 0.54392678E-01 3.4000000 0.63971724E-01 3.4250000 0.72928201E-01 3.4500000 0.79541148E-01 3.4750000 0.82290174E-01 3.5000000 0.81288217E-01 3.5250000 0.76055754E-01 3.5500000 0.67181631E-01 3.5750000 0.54953294E-01 3.6000000 0.41613005E-01 3.6250000 0.28961229E-01 3.6500000 0.15201369E-01 3.6750000 -0.69839888E-04 3.7000000 -0.14112460E-01 3.7250000 -0.25546020E-01 3.7500000 -0.34969281E-01 3.7750000 -0.42478305E-01 3.8000000 -0.48705428E-01 3.8250000 -0.53791353E-01 3.8500000 -0.56897992E-01 3.8750000 -0.57792980E-01 3.9000000 -0.56931832E-01 3.9250000 -0.54465594E-01 3.9500000 -0.50210877E-01 3.9750000 -0.44686464E-01 4.0000000 -0.38979351E-01 4.0250000 -0.33908226E-01 4.0500000 -0.30552179E-01 4.0750000 -0.29165060E-01 4.1000000 -0.29872666E-01 4.1250000 -0.32028494E-01 4.1500000 -0.34538702E-01 4.1750000 -0.36452227E-01 4.2000000 -0.36462166E-01 4.2250000 -0.34287329E-01 4.2500000 -0.29481200E-01 4.2750000 -0.23087250E-01 4.3000000 -0.16276381E-01 4.3250000 -0.10261991E-01 4.3500000 -0.70337640E-02 4.3750000 -0.59785817E-02 4.4000000 -0.66186367E-02 4.4250000 -0.77459412E-02 4.4500000 -0.79487902E-02 4.4750000 -0.66919564E-02 4.5000000 -0.28674717E-02 4.5250000 0.27018313E-02 4.5500000 0.94758008E-02 4.5750000 0.16657569E-01 4.6000000 0.23288698E-01 4.6250000 0.29157708E-01 4.6500000 0.33478434E-01 4.6750000 0.37232964E-01 4.7000000 0.41104208E-01 4.7250000 0.45233506E-01 4.7500000 0.49900743E-01 4.7750000 0.55503779E-01 4.8000000 0.62626784E-01 4.8250000 0.70385975E-01 4.8500000 0.78246140E-01 4.8750000 0.85703216E-01 4.9000000 0.92267743E-01 4.9250000 0.96763234E-01 4.9500000 0.98068751E-01 4.9750000 0.96487495E-01 5.0000000 0.91920866E-01 5.0250000 0.84380919E-01 5.0500000 0.73872701E-01 5.0750000 0.60799858E-01 5.1000000 0.45594644E-01 5.1250000 0.30832702E-01 5.1500000 0.18215209E-01 5.1750000 0.70658372E-02 5.2000000 -0.26607147E-02 5.2250000 -0.11757791E-01 5.2500000 -0.20504561E-01 5.2750000 -0.27492063E-01 5.3000000 -0.32112484E-01 5.3250000 -0.34479482E-01 5.3500000 -0.35018995E-01 5.3750000 -0.36555143E-01 5.4000000 -0.40681687E-01 5.4250000 -0.48542451E-01 5.4500000 -0.60068075E-01 5.4750000 -0.71891448E-01 5.5000000 -0.82525963E-01 5.5250000 -0.91927318E-01 5.5500000 -0.99455474E-01 5.5750000 -0.10414726 5.6000000 -0.10558387 5.6250000 -0.10366613 5.6500000 -0.98698900E-01 5.6750000 -0.91811466E-01 5.7000000 -0.83483617E-01 5.7250000 -0.73868013E-01 5.7500000 -0.63238012E-01 5.7750000 -0.51809671E-01 5.8000000 -0.39953915E-01 5.8250000 -0.28015470E-01 5.8500000 -0.16699700E-01 5.8750000 -0.71486761E-02 5.9000000 0.91203138E-04 5.9250000 0.45224039E-02 5.9500000 0.61270996E-02 5.9750000 0.48421202E-02 6.0000000 0.14942414E-02 6.0250000 -0.26009782E-02 6.0500000 -0.64556828E-02 6.0750000 -0.93923379E-02 6.1000000 -0.98046397E-02 6.1250000 -0.53684695E-02 6.1500000 0.47429557E-02 6.1750000 0.21934120E-01 6.2000000 0.44813854E-01 6.2250000 0.72361766E-01 6.2500000 0.10001691 6.2750000 0.12009944 6.3000000 0.13259485 6.3250000 0.13791364 6.3500000 0.13760027 6.3750000 0.13340072 6.4000000 0.12704275 6.4250000 0.12118371 6.4500000 0.11545068 6.4750000 0.10979414 6.5000000 0.10282405 6.5250000 0.92341324E-01 6.5500000 0.78885752E-01 6.5750000 0.63170620E-01 6.6000000 0.45275258E-01 6.6250000 0.25009900E-01 6.6500000 0.32118458E-02 6.6750000 -0.19055491E-01 6.7000000 -0.41654921E-01 6.7250000 -0.64661990E-01 6.7500000 -0.87021654E-01 6.7750000 -0.10774463 6.8000000 -0.12584654 6.8250000 -0.14025192 6.8500000 -0.15014220 6.8750000 -0.15433906 6.9000000 -0.15279588 6.9250000 -0.14474404 6.9500000 -0.13147131 6.9750000 -0.11382638 7.0000000 -0.93206343E-01 7.0250000 -0.71166413E-01 7.0500000 -0.48402984E-01 7.0750000 -0.25396993E-01 7.1000000 -0.42233366E-02 7.1250000 0.12288774E-01 7.1500000 0.25310246E-01 7.1750000 0.35621195E-01 7.2000000 0.42097952E-01 7.2250000 0.43424535E-01 7.2500000 0.40698206E-01 7.2750000 0.33772435E-01 7.3000000 0.25301033E-01 7.3250000 0.17805510E-01 7.3500000 0.11479164E-01 7.3750000 0.76461902E-02 7.4000000 0.53773877E-02 7.4250000 0.48147465E-02 7.4500000 0.35840940E-02 7.4750000 -0.91493103E-03 7.5000000 -0.72765517E-02 7.5250000 -0.15765098E-01 7.5500000 -0.23027988E-01 7.5750000 -0.26177275E-01 7.6000000 -0.24443331E-01 7.6250000 -0.15980849E-01 7.6500000 -0.16666849E-02 7.6750000 0.18957631E-01 7.7000000 0.42137698E-01 7.7250000 0.65331063E-01 7.7500000 0.84343960E-01 7.7750000 0.94090796E-01 7.8000000 0.99047032E-01 7.8250000 0.10148214 7.8500000 0.10143596 7.8750000 0.99707844E-01 7.9000000 0.95501098E-01 7.9250000 0.88449548E-01 7.9500000 0.77939175E-01 7.9750000 0.63172113E-01 8.0000000 0.45661140E-01 8.0250000 0.26262996E-01 8.0500000 0.65662305E-02 8.0750000 -0.11978346E-01 8.1000000 -0.28857845E-01 8.1250000 -0.43261792E-01 8.1500000 -0.54933779E-01 8.1750000 -0.63432014E-01 8.2000000 -0.69434710E-01 8.2250000 -0.73355011E-01 8.2500000 -0.74755501E-01 8.2750000 -0.73434623E-01 8.3000000 -0.69141738E-01 8.3250000 -0.61570978E-01 8.3500000 -0.53667688E-01 8.3750000 -0.47404749E-01 8.4000000 -0.43471329E-01 8.4250000 -0.42705846E-01 8.4500000 -0.42212817E-01 8.4750000 -0.40396620E-01 8.5000000 -0.38095326E-01 8.5250000 -0.35462728E-01 8.5500000 -0.33272817E-01 8.5750000 -0.31911484E-01 8.6000000 -0.29786609E-01 8.6250000 -0.26011207E-01 8.6500000 -0.20327446E-01 8.6750000 -0.12555892E-01 8.7000000 -0.44792127E-02 8.7250000 0.28688346E-02 8.7500000 0.93774321E-02 8.7750000 0.14716501E-01 8.8000000 0.18992794E-01 8.8250000 0.22193450E-01 8.8500000 0.24346464E-01 8.8750000 0.25537502E-01 8.9000000 0.26107684E-01 8.9250000 0.26456372E-01 8.9500000 0.27762205E-01 8.9750000 0.30618379E-01 9.0000000 0.34201877E-01 9.0250000 0.38238664E-01 9.0500000 0.42889834E-01 9.0750000 0.48047711E-01 9.1000000 0.53490755E-01 9.1250000 0.58499779E-01 9.1500000 0.60010465E-01 9.1750000 0.56693662E-01 9.2000000 0.49942672E-01 9.2250000 0.40611699E-01 9.2500000 0.30985032E-01 9.2750000 0.22233597E-01 9.3000000 0.13176856E-01 9.3250000 0.36963847E-02 9.3500000 -0.57811509E-02 9.3750000 -0.14676623E-01 9.4000000 -0.21369718E-01 9.4250000 -0.25046972E-01 9.4500000 -0.25743394E-01 9.4750000 -0.23609032E-01 9.5000000 -0.19544216E-01 9.5250000 -0.14325435E-01 9.5500000 -0.88834440E-02 9.5750000 -0.42961981E-02 9.6000000 -0.24634775E-02 9.6250000 -0.42446549E-02 9.6500000 -0.91368650E-02 9.6750000 -0.16761580E-01 9.7000000 -0.26421806E-01 9.7250000 -0.36825068E-01 9.7500000 -0.45113157E-01 9.7750000 -0.49572569E-01 9.8000000 -0.48463972E-01 9.8250000 -0.42157086E-01 9.8500000 -0.34691813E-01 9.8750000 -0.28102761E-01 9.9000000 -0.24315627E-01 9.9250000 -0.23372214E-01 9.9500000 -0.21723234E-01 9.9750000 -0.18383314E-01 10.000000 -0.14113692E-01 10.025000 -0.94118284E-02 10.050000 -0.57154734E-02 10.075000 -0.32098661E-02 10.100000 -0.76871070E-03 10.125000 0.18980993E-02 10.150000 0.46805745E-02 10.175000 0.75472595E-02 10.200000 0.10335547E-01 10.225000 0.13000041E-01 10.250000 0.15617760E-01 10.275000 0.18153256E-01 10.300000 0.20487611E-01 10.325000 0.22564718E-01 10.350000 0.24315174E-01 10.375000 0.25783149E-01 10.400000 0.27160483E-01 10.425000 0.28489325E-01 10.450000 0.29794027E-01 10.475000 0.30941248E-01 10.500000 0.31690933E-01 10.525000 0.31734416E-01 10.550000 0.30614199E-01 10.575000 0.28032508E-01 10.600000 0.23553172E-01 10.625000 0.17318536E-01 10.650000 0.97656319E-02 10.675000 0.16014706E-02 10.700000 -0.61079018E-02 10.725000 -0.12537370E-01 10.750000 -0.16493463E-01 10.775000 -0.18004497E-01 10.800000 -0.17992012E-01 10.825000 -0.16757751E-01 10.850000 -0.14448683E-01 10.875000 -0.11273660E-01 10.900000 -0.72842164E-02 10.925000 -0.29791711E-02 10.950000 0.77808684E-03 10.975000 0.35639757E-02 11.000000 0.49841838E-02 11.025000 0.50174642E-02 11.050000 0.39867804E-02 11.075000 0.17624518E-02 11.100000 -0.23227901E-02 11.125000 -0.77575722E-02 11.150000 -0.13639138E-01 11.175000 -0.18838816E-01 11.200000 -0.21330681E-01 11.225000 -0.21111633E-01 11.250000 -0.18758881E-01 11.275000 -0.15495171E-01 11.300000 -0.13654163E-01 11.325000 -0.13472398E-01 11.350000 -0.14770365E-01 11.375000 -0.16791499E-01 11.400000 -0.18043273E-01 11.425000 -0.18342693E-01 11.450000 -0.18026082E-01 11.475000 -0.17000006E-01 11.500000 -0.15005768E-01 11.525000 -0.12109162E-01 11.550000 -0.83560723E-02 11.575000 -0.41174765E-02 11.600000 -0.14027943E-03 11.625000 0.36636552E-02 11.650000 0.76976200E-02 11.675000 0.12063572E-01 11.700000 0.16996809E-01 11.725000 0.22199118E-01 11.750000 0.27197930E-01 11.775000 0.31587351E-01 11.800000 0.34832072E-01 11.825000 0.36755152E-01 11.850000 0.37300052E-01 11.875000 0.36296672E-01 11.900000 0.33543922E-01 11.925000 0.28886804E-01 11.950000 0.21706704E-01 11.975000 0.12897943E-01 12.000000 0.36557209E-02 12.025000 -0.47159483E-02 12.050000 -0.10065537E-01 12.075000 -0.12712479E-01 12.100000 -0.13678403E-01 12.125000 -0.13521509E-01 12.150000 -0.12927540E-01 12.175000 -0.12169299E-01 12.200000 -0.11606045E-01 12.225000 -0.11059160E-01 12.250000 -0.10136197E-01 12.275000 -0.88274184E-02 12.300000 -0.70476922E-02 12.325000 -0.51189711E-02 12.350000 -0.34905905E-02 12.375000 -0.24035018E-02 12.400000 -0.23934130E-02 12.425000 -0.29867733E-02 12.450000 -0.33620688E-02 12.475000 -0.34600175E-02 12.500000 -0.31673659E-02 12.525000 -0.28489783E-02 12.550000 -0.30310554E-02 12.575000 -0.39445995E-02 12.600000 -0.62902913E-02 12.625000 -0.91072831E-02 12.650000 -0.10779697E-01 12.675000 -0.11363382E-01 12.700000 -0.10905188E-01 12.725000 -0.98818851E-02 12.750000 -0.92099210E-02 12.775000 -0.84977360E-02 12.800000 -0.69260696E-02 12.825000 -0.48495461E-02 12.850000 -0.27682772E-02 12.875000 -0.93847233E-03 12.900000 0.15141781E-03 12.925000 0.82046245E-03 12.950000 0.14808277E-02 12.975000 0.24003591E-02 13.000000 0.40316443E-02 13.025000 0.62032759E-02 13.050000 0.89189434E-02 13.075000 0.11489891E-01 13.100000 0.12804555E-01 13.125000 0.13086109E-01 13.150000 0.12568758E-01 13.175000 0.11559193E-01 13.200000 0.10476634E-01 13.225000 0.93669840E-02 13.250000 0.82271183E-02 13.275000 0.72254463E-02 13.300000 0.67426505E-02 13.325000 0.64262119E-02 13.350000 0.58284202E-02 13.375000 0.47952195E-02 13.400000 0.28744034E-02 13.425000 0.64068662E-03 13.450000 -0.10730369E-02 13.475000 -0.22765857E-02 13.500000 -0.29034126E-02 13.525000 -0.31070354E-02 13.550000 -0.31315035E-02 13.575000 -0.28705550E-02 13.600000 -0.19632054E-02 13.625000 -0.99059421E-03 13.650000 -0.72270031E-03 13.675000 -0.11624340E-02 13.700000 -0.27280966E-02 13.725000 -0.44762774E-02 13.750000 -0.49899177E-02 13.775000 -0.47125741E-02 13.800000 -0.39672752E-02 13.825000 -0.31479546E-02 13.850000 -0.27921109E-02 13.875000 -0.28972038E-02 13.900000 -0.36663130E-02 13.925000 -0.46711620E-02 13.950000 -0.53474289E-02 13.975000 -0.57630664E-02 14.000000 -0.58147048E-02 14.025000 -0.58725185E-02 14.050000 -0.66924404E-02 14.075000 -0.75225059E-02 14.100000 -0.73386667E-02 14.125000 -0.64913332E-02 14.150000 -0.52649476E-02 14.175000 -0.38302359E-02 14.200000 -0.25527979E-02 14.225000 -0.11069756E-02 14.250000 0.11725996E-02 14.275000 0.35270392E-02 14.300000 0.49388299E-02 14.325000 0.57672381E-02 14.350000 0.62710493E-02 14.375000 0.65769484E-02 14.400000 0.70172278E-02 14.425000 0.72077513E-02 14.450000 0.66745746E-02 14.475000 0.55570477E-02 14.500000 0.37619682E-02 14.525000 0.18275397E-02 14.550000 0.32866359E-03 14.575000 -0.55093350E-03 14.600000 -0.34175200E-03 14.625000 0.50781418E-03 14.650000 0.15878937E-02 14.675000 0.27337704E-02 14.700000 0.36486798E-02 14.725000 0.44161733E-02 14.750000 0.51707474E-02 14.775000 0.56768256E-02 14.800000 0.56839448E-02 14.825000 0.51473524E-02 14.850000 0.37877068E-02 14.875000 0.20983578E-02 14.900000 0.65296425E-03 14.925000 -0.65229265E-03 14.950000 -0.18686568E-02 14.975000 -0.28945306E-02 15.000000 -0.36284596E-02 15.025000 -0.40345738E-02 15.050000 -0.39439525E-02 15.075000 -0.36589546E-02 15.100000 -0.34878226E-02 15.125000 -0.34599018E-02 15.150000 -0.37834444E-02 15.175000 -0.41578174E-02 15.200000 -0.42031021E-02 15.225000 -0.41481579E-02 15.250000 -0.42170494E-02 15.275000 -0.42894301E-02 15.300000 -0.43154509E-02 15.325000 -0.41821146E-02 15.350000 -0.36213538E-02 15.375000 -0.29979340E-02 15.400000 -0.27637731E-02 15.425000 -0.26339778E-02 15.450000 -0.24497923E-02 15.475000 -0.20376649E-02 15.500000 -0.10383926E-02 15.525000 0.18546531E-03 15.550000 0.13523317E-02 15.575000 0.23632076E-02 15.600000 0.29936744E-02 15.625000 0.33817755E-02 15.650000 0.36101325E-02 15.675000 0.37088893E-02 15.700000 0.37565506E-02 15.725000 0.36815241E-02 15.750000 0.33546272E-02 15.775000 0.29844117E-02 15.800000 0.28019336E-02 15.825000 0.27082926E-02 15.850000 0.27090610E-02 15.875000 0.26560280E-02 15.900000 0.23869388E-02 15.925000 0.19130121E-02 15.950000 0.10807712E-02 15.975000 0.23785418E-03 16.000000 -0.19892343E-03 16.025000 -0.45501278E-03 16.050000 -0.72979078E-03 16.075000 -0.82925508E-03 16.100000 -0.51249223E-03 16.125000 -0.19493113E-04 16.150000 0.43044579E-03 16.175000 0.88007715E-03 16.200000 0.14518793E-02 16.225000 0.17571493E-02 16.250000 0.11948460E-02 16.275000 0.41278019E-03 16.300000 -0.54383089E-04 16.325000 -0.24237747E-03 16.350000 0.15486221E-03 16.375000 0.58558375E-03 16.400000 0.46417342E-03 16.425000 0.86815477E-04 16.450000 -0.45745695E-03 16.475000 -0.10533802E-02 16.500000 -0.15547297E-02 16.525000 -0.19603309E-02 16.550000 -0.22171742E-02 16.575000 -0.23424652E-02 16.600000 -0.22769983E-02 16.625000 -0.21990927E-02 16.650000 -0.23055145E-02 16.675000 -0.25062021E-02 16.700000 -0.28369266E-02 16.725000 -0.31029369E-02 16.750000 -0.30662186E-02 16.775000 -0.28679294E-02 16.800000 -0.26441367E-02 16.825000 -0.21940260E-02 16.850000 -0.12593939E-02 16.875000 -0.12901357E-03 16.900000 0.10851919E-02 16.925000 0.20827214E-02 16.950000 0.23938562E-02 16.975000 0.24089951E-02 17.000000 0.23928887E-02 17.025000 0.22646812E-02 17.050000 0.19621088E-02 17.075000 0.16918734E-02 17.100000 0.17170903E-02 17.125000 0.18163433E-02 17.150000 0.18434415E-02 17.175000 0.18040198E-02 17.200000 0.16510053E-02 17.225000 0.14008701E-02 17.250000 0.10094032E-02 17.275000 0.62772432E-03 17.300000 0.44824318E-03 17.325000 0.27947508E-03 17.350000 -0.78368725E-04 17.375000 -0.37409689E-03 17.400000 -0.36318925E-03 17.425000 -0.26229431E-03 17.450000 -0.20152845E-03 17.475000 -0.18537401E-03 17.500000 -0.30906176E-03 17.525000 -0.43060179E-03 17.550000 -0.46479164E-03 17.575000 -0.33034659E-03 17.600000 0.20179590E-03 17.625000 0.69471276E-03 17.650000 0.72546424E-03 17.675000 0.54869718E-03 17.700000 0.26134454E-03 17.725000 -0.99730212E-04 17.750000 -0.46849690E-03 17.775000 -0.83769924E-03 17.800000 -0.11934756E-02 17.825000 -0.14841614E-02 17.850000 -0.16294679E-02 17.875000 -0.17132258E-02 17.900000 -0.17984674E-02 17.925000 -0.18563122E-02 17.950000 -0.18907450E-02 17.975000 -0.18599510E-02 18.000000 -0.17202836E-02 18.025000 -0.14904635E-02 18.050000 -0.11689806E-02 18.075000 -0.77380984E-03 18.100000 -0.29562667E-03 18.125000 0.16713544E-03 18.150000 0.51841255E-03 18.175000 0.77290680E-03 18.200000 0.92330772E-03 18.225000 0.92429109E-03 18.250000 0.68741452E-03 18.275000 0.39684337E-03 18.300000 0.18184119E-03 18.325000 0.11246328E-03 18.350000 0.36599861E-03 18.375000 0.64226100E-03 18.400000 0.66916459E-03 18.425000 0.64463450E-03 18.450000 0.66396149E-03 18.475000 0.73441359E-03 18.500000 0.93568183E-03 18.525000 0.10968134E-02 18.550000 0.10477473E-02 18.575000 0.93981367E-03 18.600000 0.84818306E-03 18.625000 0.81940110E-03 18.650000 0.96569503E-03 18.675000 0.11053362E-02 18.700000 0.10882682E-02 18.725000 0.99978560E-03 18.750000 0.87364529E-03 18.775000 0.69275154E-03 18.800000 0.44158970E-03 18.825000 0.16474153E-03 18.850000 -0.10699843E-03 18.875000 -0.35111490E-03 18.900000 -0.53526503E-03 18.925000 -0.66688569E-03 18.950000 -0.74381136E-03 18.975000 -0.75765512E-03 19.000000 -0.69503754E-03 19.025000 -0.57779176E-03 19.050000 -0.40210656E-03 19.075000 -0.26051825E-03 19.100000 -0.25433954E-03 19.125000 -0.29820623E-03 19.150000 -0.33975838E-03 19.175000 -0.41454188E-03 19.200000 -0.55013634E-03 19.225000 -0.68750016E-03 19.250000 -0.77744260E-03 19.275000 -0.84581855E-03 19.300000 -0.91327496E-03 19.325000 -0.90888168E-03 19.350000 -0.76860994E-03 19.375000 -0.53143057E-03 19.400000 -0.19101627E-03 19.425000 0.13965389E-03 19.450000 0.36972781E-03 19.475000 0.46155797E-03 19.500000 0.33435398E-03 19.525000 0.10407800E-03 19.550000 -0.17701897E-03 19.575000 -0.35891703E-03 19.600000 -0.24851685E-03 19.625000 -0.11209653E-03 19.650000 -0.14078162E-03 19.675000 -0.20277802E-03 19.700000 -0.25522013E-03 19.725000 -0.21656510E-03 19.750000 0.31121492E-04 19.775000 0.26122959E-03 19.800000 0.28915501E-03 19.825000 0.28497523E-03 19.850000 0.34446063E-03 19.875000 0.42368625E-03 19.900000 0.52124349E-03 19.925000 0.59429754E-03 19.950000 0.59606684E-03 19.975000 0.59452904E-03 20.000000 0.64264840E-03 20.025000 0.66998038E-03 20.050000 0.62810984E-03 20.075000 0.54799471E-03 20.100000 0.43675526E-03 20.125000 0.32310785E-03 20.150000 0.23522384E-03 20.175000 0.16213440E-03 20.200000 0.10322688E-03 20.225000 0.60487625E-04 20.250000 0.37739687E-04 20.275000 0.20302904E-04 20.300000 0.80367645E-06 20.325000 -0.51002505E-04 20.350000 -0.16941102E-03 20.375000 -0.30600068E-03 20.400000 -0.43273414E-03 20.425000 -0.53434540E-03 20.450000 -0.58744463E-03 20.475000 -0.61191085E-03 20.500000 -0.61659207E-03 20.525000 -0.60583413E-03 20.550000 -0.58898409E-03 20.575000 -0.54488248E-03 20.600000 -0.45782993E-03 20.625000 -0.33484489E-03 20.650000 -0.16765029E-03 20.675000 -0.53241633E-04 20.700000 -0.79038351E-04 20.725000 -0.13584908E-03 20.750000 -0.15520056E-03 20.775000 -0.19216726E-03 20.800000 -0.28022388E-03 20.825000 -0.32465328E-03 20.850000 -0.25104125E-03 20.875000 -0.13160585E-03 20.900000 0.17250065E-05 20.925000 0.10691016E-03 20.950000 0.13543435E-03 20.975000 0.14383171E-03 21.000000 0.16703900E-03 21.025000 0.16079151E-03 21.050000 0.94579456E-04 21.075000 0.26303729E-04 21.100000 -0.38575013E-05 21.125000 -0.25440621E-04 21.150000 -0.52495131E-04 21.175000 -0.56907482E-04 21.200000 -0.18762614E-04 21.225000 0.44158693E-04 21.250000 0.12545186E-03 21.275000 0.20585738E-03 21.300000 0.26952476E-03 21.325000 0.29338656E-03 21.350000 0.24698674E-03 21.375000 0.22644520E-03 21.400000 0.30809701E-03 21.425000 0.38342152E-03 21.450000 0.38711140E-03 21.475000 0.36855378E-03 21.500000 0.34779560E-03 21.525000 0.31233820E-03 21.550000 0.25695405E-03 21.575000 0.19984314E-03 21.600000 0.15533814E-03 21.625000 0.97593069E-04 21.650000 0.10075634E-04 21.675000 -0.10252234E-03 21.700000 -0.24596790E-03 21.725000 -0.33939164E-03 21.750000 -0.31296652E-03 21.775000 -0.28848395E-03 21.800000 -0.34564408E-03 21.825000 -0.38289146E-03 21.850000 -0.34265408E-03 21.875000 -0.25488120E-03 21.900000 -0.12319852E-03 21.925000 0.14045516E-04 21.950000 0.12693616E-03 21.975000 0.19877948E-03 22.000000 0.20631620E-03 22.025000 0.16381933E-03 22.050000 0.71238348E-04 22.075000 0.33343222E-04 22.100000 0.13609572E-03 22.125000 0.22200437E-03 22.150000 0.19232695E-03 22.175000 0.14983804E-03 22.200000 0.14673843E-03 22.225000 0.15668089E-03 22.250000 0.17672302E-03 22.275000 0.16923637E-03 22.300000 0.10114980E-03 22.325000 0.65355129E-04 22.350000 0.12905882E-03 22.375000 0.16033216E-03 22.400000 0.73951805E-04 22.425000 0.68236556E-06 22.450000 0.20951498E-04 22.475000 0.48840524E-04 22.500000 0.42245086E-04 22.525000 0.44786846E-04 22.550000 0.79679756E-04 22.575000 0.10088370E-03 22.600000 0.79200352E-04 22.625000 0.56849060E-04 22.650000 0.57353903E-04 22.675000 0.75791140E-04 22.700000 0.11705119E-03 22.725000 0.13261044E-03 22.750000 0.84071164E-04 22.775000 0.38121066E-04 22.800000 0.34272371E-04 22.825000 0.20091925E-04 22.850000 -0.32233080E-04 22.875000 -0.10082604E-03 22.900000 -0.17863616E-03 22.925000 -0.22712921E-03 22.950000 -0.21407373E-03 22.975000 -0.21809512E-03 23.000000 -0.29137154E-03 23.025000 -0.33618537E-03 23.050000 -0.29165962E-03 23.075000 -0.25637102E-03 23.100000 -0.28471150E-03 23.125000 -0.32400949E-03 23.150000 -0.35155200E-03 23.175000 -0.35613198E-03 23.200000 -0.32225884E-03 23.225000 -0.29493015E-03 23.250000 -0.30315473E-03 23.275000 -0.30638980E-03 23.300000 -0.28337269E-03 23.325000 -0.23080622E-03 23.350000 -0.13870642E-03 23.375000 -0.11230648E-03 23.400000 -0.22777812E-03 23.425000 -0.29615788E-03 23.450000 -0.20094583E-03 23.475000 -0.11379964E-03 23.500000 -0.12528947E-03 23.525000 -0.16011695E-03 23.550000 -0.19019760E-03 23.575000 -0.10771592E-03 23.600000 0.16908342E-03 23.625000 0.32671576E-03 23.650000 0.16447477E-03 23.675000 -0.12606421E-04 23.700000 -0.45659200E-04 23.725000 -0.39313705E-04 23.750000 -0.22966137E-04 23.775000 0.10680795E-05 23.800000 0.22657316E-04 23.825000 0.41965776E-04 23.850000 0.56190741E-04 23.875000 0.60907069E-04 23.900000 0.52169893E-04 23.925000 0.47468020E-04 23.950000 0.57811274E-04 23.975000 0.69294571E-04 24.000000 0.75366405E-04 24.025000 0.89493914E-04 24.050000 0.11961188E-03 24.075000 0.13628356E-03 24.100000 0.12123226E-03 24.125000 0.87791050E-04 24.150000 0.40804889E-04 24.175000 0.54362639E-04 24.200000 0.18348861E-03 24.225000 0.24921459E-03 24.250000 0.14467260E-03 24.275000 0.46136761E-04 24.300000 0.45747104E-04 24.325000 0.67022394E-04 24.350000 0.82735282E-04 24.375000 0.10228971E-03 24.400000 0.12415169E-03 24.425000 0.13737799E-03 24.450000 0.13402373E-03 24.475000 0.11947945E-03 24.500000 0.95641615E-04 24.525000 0.80330992E-04 24.550000 0.86673790E-04 24.575000 0.12314853E-03 24.600000 0.19889097E-03 24.625000 0.24488458E-03 24.650000 0.21765686E-03 24.675000 0.15300389E-03 24.700000 0.65082053E-04 24.725000 0.18457387E-04 24.750000 0.57437959E-04 24.775000 0.86159671E-04 24.800000 0.54349520E-04 24.825000 0.56634374E-04 24.850000 0.12954109E-03 24.875000 0.16752679E-03 24.900000 0.94680300E-04 24.925000 0.57506695E-04 24.950000 0.13559280E-03 24.975000 0.16936810E-03 25.000000 0.58939817E-04 ifeffit-1.2.11d/examples/Spline/m.iff0000644000175000017500000000132710771740460016353 0ustar segresegre# # simple autobk-like spline with ifeffit # read_data(file = ../data/cu.xmu, label = 'energy xmu', group = dat) spline(energy= dat.energy, xmu= dat.xmu, kweight=1,rbkg=1.1) path(1,file =../feff/feffcu01.dat) path(1, s02 = amp, e0 = e0, delr=dr,sig2=sig2) guess e0 = 0 guess amp = 1 guess dr = 0 guess sig2 = 0 ff2chi(1,group=pth1) pth1.chik = pth1.k * pth1.chi newplot pth1.k, pth1.chik kmin=3,kmax=18,dk=2,kweight=2 dat.chik = dat.k * dat.chi plot dat.k, dat.chik fftf(dat.chi) fftf(pth1.chi) pause newplot dat.r, dat.chir_mag plot pth1.r, pth1.chir_mag feffit(chi=dat.chi, 1, rmin=1.5, rmax=2.8,group=fit) newplot dat.r, dat.chir_mag plot fit.r, fit.chir_mag, xmax=6 show @variables show @group=dat ifeffit-1.2.11d/examples/Anomalous/0000755000175000017500000000000010771740460016132 5ustar segresegreifeffit-1.2.11d/examples/Anomalous/diffkk_simple.iff0000644000175000017500000000075610771740460021437 0ustar segresegre# # generate f' and f'' from Cromer-Libermann calculations. #--Step 1: # read in absorption data, and looking up f' and f'' # for each energy point of the absorption data # read absorption data read_data(../data/cu.xmu , group=cu, type=xmu) # use f1f2() command giving the energy array and atomic number f1f2(z=29, energy=cu.energy) # look at results show @arrays newplot cu.energy, cu.f1 plot cu.energy, cu.f2 cu.diff = cu.f2 -cu.xmu diffkk(z=29, energy=cu.energy, f2 = cu.diff) ifeffit-1.2.11d/examples/Anomalous/calc_f1f2.iff0000644000175000017500000000141410771740460020340 0ustar segresegre# # generate f' and f'' from Cromer-Libermann calculations. #--Step 1: # read in absorption data, and looking up f' and f'' # for each energy point of the absorption data # read absorption data read_data(../data/cu.xmu , group=cu, type=xmu) # use f1f2() command giving the energy array and atomic number f1f2(z=29, energy=cu.energy) # look at results show @arrays newplot cu.energy, cu.f1 plot cu.energy, cu.f2 pause #--Step 2: # generate array of energies within ifeffit # grid.energy will have 0.25 eV steps right around edge grid.energy = 1000 + indarr(10000)*2.5 # use f1f2() command as above f1f2(z=29, energy=grid.energy) # look at results show @arrays newplot grid.energy, grid.f1, style=linespoints2 plot grid.energy, grid.f2, style=linespoints2 ifeffit-1.2.11d/examples/data/0000755000175000017500000000000010771740461015106 5ustar segresegreifeffit-1.2.11d/examples/data/cu_chi.dat0000644000175000017500000004137710771740461017046 0ustar segresegre# data : cu 10k, e0=8980, with standard # chi: skey ASCII of cu_010k.dat using skey ASCII of chi.dat # e0 = 8982.61; pre-edge range =[ -50.0 -200.0]; edge step = 2.257 # k range=[ .05 24.95]; k weight= 1.00; sills: dk1, dk2=[ .00 .00] # bkg r =[ .00 .98]; 1st shell r =[ .98 3.93]; 15 knots in spline # Cu foil, 10K, foil rolled and annealled by matt # 2-SI111 HC/2D= 1977.260 STPDEG=6400. STPMMZ= 40. FOCUS=F TRANSLT=F # E0= 8980.0 NREG= 3 NPTS= 611 NSCLRS= 3 EF= .0 # SRB= -193.7 -43.5 30.0 2381.3 # DEL= 10.020 .483 .050K # SEC= 1.000 1.000 1.000 # DETECTORSI0 I If # GAINS 8 7 10 # OFFSETS 51284 50016 48319 #--------------------------------------------------------------------- # k chi(k) .5000000E-01 -.1383775E+00 .1000000E+00 -.1397935E+00 .1500000E+00 -.1412636E+00 .2000000E+00 -.1427878E+00 .2500000E+00 -.1443661E+00 .3000000E+00 -.1457561E+00 .3500000E+00 -.1469721E+00 .4000000E+00 -.1487659E+00 .4500000E+00 -.1511373E+00 .5000000E+00 -.1540712E+00 .5500000E+00 -.1576023E+00 .6000000E+00 -.1621443E+00 .6500000E+00 -.1669036E+00 .7000000E+00 -.1723104E+00 .7500000E+00 -.1756163E+00 .8000000E+00 -.1719365E+00 .8500000E+00 -.1712734E+00 .9000000E+00 -.1738329E+00 .9500000E+00 -.1679564E+00 .1000000E+01 -.1598812E+00 .1050000E+01 -.1456769E+00 .1100000E+01 -.1196842E+00 .1150000E+01 -.1022159E+00 .1200000E+01 -.7008255E-01 .1250000E+01 -.3362218E-01 .1300000E+01 -.6600451E-02 .1350000E+01 .1926758E-01 .1400000E+01 .5699854E-01 .1450000E+01 .9637135E-01 .1500000E+01 .1159362E+00 .1550000E+01 .1290990E+00 .1600000E+01 .1215430E+00 .1650000E+01 .1056554E+00 .1700000E+01 .7974499E-01 .1750000E+01 .5288013E-01 .1800000E+01 .2516026E-01 .1850000E+01 .3285889E-02 .1900000E+01 -.8817454E-02 .1950000E+01 -.1296393E-01 .2000000E+01 -.3470576E-02 .2050000E+01 .2730633E-01 .2100000E+01 .5706001E-01 .2150000E+01 .9151719E-01 .2200000E+01 .1174979E+00 .2250000E+01 .1158764E+00 .2300000E+01 .8783582E-01 .2350000E+01 .5923801E-01 .2400000E+01 .2562321E-01 .2450000E+01 -.1052973E-02 .2500000E+01 -.2527875E-01 .2550000E+01 -.4727164E-01 .2600000E+01 -.6757082E-01 .2650000E+01 -.8069972E-01 .2700000E+01 -.8191480E-01 .2750000E+01 -.7843926E-01 .2800000E+01 -.7160391E-01 .2850000E+01 -.6250659E-01 .2900000E+01 -.4805966E-01 .2950000E+01 -.2685392E-01 .3000000E+01 -.7752429E-02 .3050000E+01 .9680118E-02 .3100000E+01 .3345646E-01 .3150000E+01 .5682700E-01 .3200000E+01 .7538930E-01 .3250000E+01 .8970851E-01 .3300000E+01 .9150992E-01 .3350000E+01 .7859694E-01 .3400000E+01 .5326243E-01 .3450000E+01 .2725139E-01 .3500000E+01 -.3477860E-02 .3550000E+01 -.2765691E-01 .3600000E+01 -.4432994E-01 .3650000E+01 -.5623438E-01 .3700000E+01 -.6056888E-01 .3750000E+01 -.5814307E-01 .3800000E+01 -.4907626E-01 .3850000E+01 -.3856254E-01 .3900000E+01 -.3328344E-01 .3950000E+01 -.3554817E-01 .4000000E+01 -.4071434E-01 .4050000E+01 -.4080682E-01 .4100000E+01 -.3181461E-01 .4150000E+01 -.1856331E-01 .4200000E+01 -.1130703E-01 .4250000E+01 -.1176931E-01 .4300000E+01 -.1274962E-01 .4350000E+01 -.7110970E-02 .4400000E+01 .5224810E-02 .4450000E+01 .1905018E-01 .4500000E+01 .2932245E-01 .4550000E+01 .3724153E-01 .4600000E+01 .4588462E-01 .4650000E+01 .5829988E-01 .4700000E+01 .7400507E-01 .4750000E+01 .8933779E-01 .4800000E+01 .9806488E-01 .4850000E+01 .9565875E-01 .4900000E+01 .8144622E-01 .4950000E+01 .5581723E-01 .5000000E+01 .2703659E-01 .5050000E+01 .4069182E-02 .5100000E+01 -.1497740E-01 .5150000E+01 -.2991942E-01 .5200000E+01 -.3594276E-01 .5250000E+01 -.3805383E-01 .5300000E+01 -.5048186E-01 .5350000E+01 -.7333476E-01 .5400000E+01 -.9380445E-01 .5450000E+01 -.1068175E+00 .5500000E+01 -.1074960E+00 .5550000E+01 -.9653199E-01 .5600000E+01 -.7903270E-01 .5650000E+01 -.5710168E-01 .5700000E+01 -.3287863E-01 .5750000E+01 -.1030234E-01 .5800000E+01 .4130356E-02 .5850000E+01 .7389313E-02 .5900000E+01 .1116835E-02 .5950000E+01 -.6675890E-02 .6000000E+01 -.7719924E-02 .6050000E+01 .1125391E-01 .6100000E+01 .5561288E-01 .6150000E+01 .1117689E+00 .6200000E+01 .1407647E+00 .6250000E+01 .1433899E+00 .6300000E+01 .1318386E+00 .6350000E+01 .1202316E+00 .6400000E+01 .1071632E+00 .6450000E+01 .8204786E-01 .6500000E+01 .4754184E-01 .6550000E+01 .4471960E-02 .6600000E+01 -.4133052E-01 .6650000E+01 -.8782563E-01 .6700000E+01 -.1279483E+00 .6750000E+01 -.1537933E+00 .6800000E+01 -.1581026E+00 .6850000E+01 -.1380537E+00 .6900000E+01 -.1002375E+00 .6950000E+01 -.5495242E-01 .7000000E+01 -.9061703E-02 .7050000E+01 .2285072E-01 .7100000E+01 .4218880E-01 .7150000E+01 .4334857E-01 .7200000E+01 .2883500E-01 .7250000E+01 .1382003E-01 .7300000E+01 .6197813E-02 .7350000E+01 .4641260E-02 .7400000E+01 -.4739281E-02 .7450000E+01 -.2161755E-01 .7500000E+01 -.2770921E-01 .7550000E+01 -.1063968E-01 .7600000E+01 .3066137E-01 .7650000E+01 .7753827E-01 .7700000E+01 .9885249E-01 .7750000E+01 .1045755E+00 .7800000E+01 .1015250E+00 .7850000E+01 .8789700E-01 .7900000E+01 .5899274E-01 .7950000E+01 .2001424E-01 .8000000E+01 -.1829298E-01 .8050000E+01 -.4883868E-01 .8100000E+01 -.6769711E-01 .8150001E+01 -.7697316E-01 .8200000E+01 -.7581326E-01 .8250000E+01 -.6187385E-01 .8300000E+01 -.4823180E-01 .8350000E+01 -.4510459E-01 .8400001E+01 -.4178999E-01 .8450000E+01 -.3653512E-01 .8500000E+01 -.3349934E-01 .8550000E+01 -.2691919E-01 .8600000E+01 -.1230509E-01 .8650001E+01 .3199878E-02 .8700000E+01 .1517456E-01 .8750000E+01 .2281413E-01 .8800000E+01 .2616361E-01 .8850000E+01 .2694207E-01 .8900001E+01 .3159564E-01 .8950000E+01 .3926054E-01 .9000000E+01 .4945212E-01 .9050000E+01 .6096633E-01 .9100000E+01 .5895486E-01 .9150001E+01 .4265191E-01 .9200000E+01 .2448285E-01 .9250000E+01 .5272062E-02 .9300000E+01 -.1412144E-01 .9350000E+01 -.2536685E-01 .9400001E+01 -.2461558E-01 .9450000E+01 -.1545309E-01 .9500000E+01 -.4596920E-02 .9550000E+01 -.3555518E-02 .9600000E+01 -.1529525E-01 .9650001E+01 -.3605214E-01 .9700000E+01 -.5071926E-01 .9750000E+01 -.4447481E-01 .9800000E+01 -.3020107E-01 .9850000E+01 -.2510318E-01 .9900001E+01 -.1995962E-01 .9950000E+01 -.1080466E-01 .1000000E+02 -.4239851E-02 .1005000E+02 .1141393E-02 .1010000E+02 .6939800E-02 .1015000E+02 .1258833E-01 .1020000E+02 .1799675E-01 .1025000E+02 .2272578E-01 .1030000E+02 .2622529E-01 .1035000E+02 .2911744E-01 .1040000E+02 .3186119E-01 .1045000E+02 .3335929E-01 .1050000E+02 .3088639E-01 .1055000E+02 .2137249E-01 .1060000E+02 .5780198E-02 .1065000E+02 -.9871298E-02 .1070000E+02 -.1759854E-01 .1075000E+02 -.1791152E-01 .1080000E+02 -.1334602E-01 .1085000E+02 -.5141375E-02 .1090000E+02 .2438772E-02 .1095000E+02 .5405624E-02 .1100000E+02 .3623366E-02 .1105000E+02 -.4781050E-02 .1110000E+02 -.1684579E-01 .1115000E+02 -.2189944E-01 .1120000E+02 -.1739508E-01 .1125000E+02 -.1392352E-01 .1130000E+02 -.1640823E-01 .1135000E+02 -.1879141E-01 .1140000E+02 -.1845424E-01 .1145000E+02 -.1464169E-01 .1150000E+02 -.7167181E-02 .1155000E+02 .8374886E-03 .1160000E+02 .9092168E-02 .1165000E+02 .1916609E-01 .1170000E+02 .2955117E-01 .1175000E+02 .3668137E-01 .1180000E+02 .3855209E-01 .1185000E+02 .3383944E-01 .1190000E+02 .1998389E-01 .1195000E+02 .1079370E-02 .1200000E+02 -.1089990E-01 .1205000E+02 -.1398441E-01 .1210000E+02 -.1322524E-01 .1215000E+02 -.1214751E-01 .1220000E+02 -.1040349E-01 .1225000E+02 -.6922965E-02 .1230000E+02 -.3404568E-02 .1235000E+02 -.2934128E-02 .1240000E+02 -.3640831E-02 .1245000E+02 -.3145441E-02 .1250000E+02 -.3206647E-02 .1255000E+02 -.7447613E-02 .1260000E+02 -.1134231E-01 .1265000E+02 -.1107642E-01 .1270000E+02 -.9803710E-02 .1275000E+02 -.6961429E-02 .1280000E+02 -.2713460E-02 .1285000E+02 -.6387520E-04 .1290000E+02 .1325977E-02 .1295000E+02 .4236208E-02 .1300000E+02 .9579600E-02 .1305000E+02 .1310609E-01 .1310000E+02 .1277692E-01 .1315000E+02 .1074851E-01 .1320000E+02 .8388806E-02 .1325000E+02 .7112519E-02 .1330000E+02 .6116085E-02 .1335000E+02 .2754508E-02 .1340000E+02 -.1088225E-02 .1345000E+02 -.2912092E-02 .1350000E+02 -.3267730E-02 .1355000E+02 -.1799537E-02 .1360000E+02 -.6646911E-03 .1365000E+02 -.3064115E-02 .1370000E+02 -.4964115E-02 .1375000E+02 -.3907573E-02 .1380000E+02 -.2793531E-02 .1385000E+02 -.3795170E-02 .1390000E+02 -.5376802E-02 .1395000E+02 -.5748203E-02 .1400000E+02 -.6996689E-02 .1405000E+02 -.7438836E-02 .1410000E+02 -.5411535E-02 .1415000E+02 -.2814638E-02 .1420000E+02 .1289910E-02 .1425000E+02 .4994885E-02 .1430000E+02 .6502362E-02 .1435000E+02 .7493513E-02 .1440000E+02 .7172414E-02 .1445000E+02 .4167058E-02 .1450000E+02 .6161030E-03 .1455000E+02 -.1465617E-03 .1460000E+02 .1671161E-02 .1465000E+02 .3740163E-02 .1470000E+02 .5443047E-02 .1475000E+02 .6112755E-02 .1480000E+02 .4231495E-02 .1485000E+02 .1132610E-02 .1490000E+02 -.1562585E-02 .1495000E+02 -.3495782E-02 .1500000E+02 -.3894387E-02 .1505000E+02 -.3478475E-02 .1510000E+02 -.3802038E-02 .1515000E+02 -.4182963E-02 .1520000E+02 -.4264023E-02 .1525000E+02 -.4420609E-02 .1530000E+02 -.3709512E-02 .1535000E+02 -.2892099E-02 .1540000E+02 -.2607779E-02 .1545000E+02 -.1226694E-02 .1550000E+02 .1187210E-02 .1555000E+02 .2964404E-02 .1560000E+02 .3718787E-02 .1565000E+02 .3957632E-02 .1570000E+02 .3572906E-02 .1575000E+02 .3006680E-02 .1580000E+02 .2898344E-02 .1585000E+02 .2632919E-02 .1590000E+02 .1338363E-02 .1595000E+02 -.8838865E-05 .1600000E+02 -.7048441E-03 .1605000E+02 -.5950550E-03 .1610000E+02 .2952091E-03 .1615000E+02 .1447100E-02 .1620000E+02 .1331617E-02 .1625000E+02 .5594995E-04 .1630000E+02 .1539965E-03 .1635000E+02 .5237503E-03 .1640000E+02 -.2922913E-03 .1645000E+02 -.1432297E-02 .1650000E+02 -.2207463E-02 .1655000E+02 -.2338608E-02 .1660000E+02 -.2344238E-02 .1665000E+02 -.2868204E-02 .1670000E+02 -.3199073E-02 .1675000E+02 -.2926630E-02 .1680000E+02 -.1694982E-02 .1685000E+02 .6925621E-03 .1690000E+02 .2278120E-02 .1695000E+02 .2472361E-02 .1700000E+02 .2082027E-02 .1705000E+02 .1767340E-02 .1710000E+02 .1883873E-02 .1715000E+02 .1758252E-02 .1720000E+02 .1152225E-02 .1725000E+02 .5461649E-03 .1730000E+02 -.1253548E-04 .1735000E+02 -.3998847E-03 .1740000E+02 -.2686325E-03 .1745000E+02 -.3431145E-03 .1750000E+02 -.5712318E-03 .1755000E+02 -.1188866E-04 .1760000E+02 .6673606E-03 .1765000E+02 .3473506E-03 .1770000E+02 -.3636831E-03 .1775000E+02 -.1136277E-02 .1780000E+02 -.1667605E-02 .1785000E+02 -.1889189E-02 .1790000E+02 -.2026411E-02 .1795000E+02 -.1935960E-02 .1800000E+02 -.1459351E-02 .1805000E+02 -.6098950E-03 .1810000E+02 .2914357E-03 .1815000E+02 .8377644E-03 .1820000E+02 .7482349E-03 .1825000E+02 .2076312E-03 .1830000E+02 .2432496E-03 .1835000E+02 .6083235E-03 .1840000E+02 .6195470E-03 .1845000E+02 .8594782E-03 .1850000E+02 .1071561E-02 .1855000E+02 .8907567E-03 .1860000E+02 .9448596E-03 .1865000E+02 .1145191E-02 .1870000E+02 .1010684E-02 .1875000E+02 .6404615E-03 .1880000E+02 .9728261E-04 .1885000E+02 -.3771309E-03 .1890000E+02 -.6432247E-03 .1895000E+02 -.6517807E-03 .1900000E+02 -.3716348E-03 .1905000E+02 -.1238457E-03 .1910000E+02 -.1458913E-03 .1915000E+02 -.3005590E-03 .1920000E+02 -.5315908E-03 .1925000E+02 -.6867934E-03 .1930000E+02 -.6319759E-03 .1935000E+02 -.1087360E-03 .1940000E+02 .5686051E-03 .1945000E+02 .7455887E-03 .1950000E+02 .3012530E-03 .1955000E+02 .7999360E-04 .1960000E+02 .2477348E-03 .1965000E+02 .1445400E-03 .1970000E+02 .3295987E-03 .1975000E+02 .6951603E-03 .1980000E+02 .7662717E-03 .1985000E+02 .9469782E-03 .1990000E+02 .1078926E-02 .1995000E+02 .1129987E-02 .2000000E+02 .1172655E-02 .2005000E+02 .1023192E-02 .2010000E+02 .8098781E-03 .2015000E+02 .6567272E-03 .2020000E+02 .5712216E-03 .2025000E+02 .5396915E-03 .2030000E+02 .4178334E-03 .2035000E+02 .1487256E-03 .2040000E+02 -.5935474E-04 .2045000E+02 -.1290454E-03 .2050000E+02 -.1286692E-03 .2055000E+02 -.4739770E-04 .2060000E+02 .2115199E-03 .2065000E+02 .3965870E-03 .2070000E+02 .3222155E-03 .2075000E+02 .2022797E-03 .2080000E+02 .1241823E-03 .2085000E+02 .3310181E-03 .2090000E+02 .5106300E-03 .2095000E+02 .5431761E-03 .2100000E+02 .4975615E-03 .2105000E+02 .3584702E-03 .2110000E+02 .2745298E-03 .2115000E+02 .2433795E-03 .2120000E+02 .3408096E-03 .2125000E+02 .4827695E-03 .2130000E+02 .4946246E-03 .2135000E+02 .4706607E-03 .2140000E+02 .5708829E-03 .2145000E+02 .5331857E-03 .2150000E+02 .4406712E-03 .2155000E+02 .3147304E-03 .2160000E+02 .1747528E-03 .2165000E+02 -.8457099E-04 .2170000E+02 -.2707161E-03 .2175000E+02 -.2894846E-03 .2180000E+02 -.3666014E-03 .2185000E+02 -.2194835E-03 .2190000E+02 .4071274E-04 .2195000E+02 .1879338E-03 .2200000E+02 .9344606E-04 .2205000E+02 .3828711E-04 .2210000E+02 .1570658E-03 .2215000E+02 .9281154E-04 .2220000E+02 .1046896E-03 .2225000E+02 .6804419E-04 .2230000E+02 .2015018E-04 .2235000E+02 .4332602E-04 .2240000E+02 -.7409947E-04 .2245000E+02 -.4553018E-04 .2250000E+02 -.2838695E-04 .2255000E+02 .7266296E-05 .2260000E+02 -.2580272E-04 .2265000E+02 .1740125E-04 .2270000E+02 .4742172E-04 .2275000E+02 -.1733959E-04 .2280000E+02 -.4409452E-04 .2285000E+02 -.1687401E-03 .2290000E+02 -.2496391E-03 .2295000E+02 -.2678899E-03 .2300000E+02 -.3254904E-03 .2305000E+02 -.2569156E-03 .2310000E+02 -.3073217E-03 .2315000E+02 -.3009152E-03 .2320000E+02 -.2394180E-03 .2325000E+02 -.2253643E-03 .2330000E+02 -.9829117E-04 .2335000E+02 -.4082004E-04 .2340000E+02 -.1329061E-03 .2345000E+02 .2167054E-04 .2350000E+02 -.3287037E-04 .2355000E+02 .1520803E-03 .2360000E+02 .4534837E-03 .2365000E+02 .1722198E-03 .2370000E+02 .1493219E-03 .2375000E+02 .1907488E-03 .2380000E+02 .2300154E-03 .2385000E+02 .2376639E-03 .2390000E+02 .2222752E-03 .2395000E+02 .2292514E-03 .2400000E+02 .2450025E-03 .2405000E+02 .2630525E-03 .2410000E+02 .1741982E-03 .2415000E+02 .1735193E-03 .2420000E+02 .2678680E-03 .2425000E+02 .6407365E-04 .2430000E+02 .4070950E-04 .2435000E+02 .3462486E-04 .2440000E+02 .1550367E-04 .2445000E+02 -.6409871E-04 .2450000E+02 -.1617424E-03 .2455000E+02 -.1642523E-03 .2460000E+02 -.1352019E-03 .2465000E+02 -.3235579E-03 .2470000E+02 -.5123903E-03 .2475000E+02 -.5670352E-03 .2480000E+02 -.6584886E-03 .2485000E+02 -.6988121E-03 .2490000E+02 -.8727026E-03 .2495000E+02 -.8905015E-03 ifeffit-1.2.11d/examples/data/Cu2S.xmu0000644000175000017500000004612710771740461016427 0ustar segresegre# Cu2S ; 1.5 mm teflon sample cell # Cu exafs to K=13, Cu foil in i2 # detuned at 9500; 50% # gains 6,7,7; I0=N2; I1=Ar; I2=Ar # T = 13K # SSRL - EXAFS Data Collector 1.1 AD.RGN # Sat Jul 27 16:01:27 1996 # PTS: 454 COLS: 6 # TRANS.DET # CUK15.RGN # 4-3 unfocused 0.000 -2 si(222) 1.292013 8000 # 4 2000 25 RST 0 0 # MVIEW Version 1.1 # CU_036.001 # >> /usr/people/newville/bin/XMU -e4 -05 -t6 -r7 cu036_001.dat #--------------- # energy log(i0/it) log(it/ir) i0 8759.99 -1.535827 2.9033981 40068.3 8769.98 -1.546806 2.8977250 39665.3 8780.00 -1.559545 2.8927689 39231.3 8789.99 -1.570996 2.8860354 38796.3 8800.00 -1.581097 2.8784871 38432.3 8809.99 -1.589505 2.8686704 38029.3 8820.01 -1.605257 2.8673652 37566.3 8830.00 -1.614814 2.8593991 37153.3 8840.02 -1.627588 2.8561797 36748.3 8850.01 -1.638289 2.8489975 36345.3 8859.98 -1.649795 2.8433106 35930.3 8870.02 -1.660322 2.8339844 35560.3 8879.98 -1.672828 2.8291025 35125.3 8890.02 -1.682547 2.8216769 34731.3 8899.98 -1.693206 2.8160633 34321.3 8910.02 -1.704959 2.8101413 33916.3 8919.98 -1.715755 2.8047551 33532.3 8930.02 -1.726507 2.7987604 33130.3 8939.98 -1.736746 2.7948045 32761.3 8950.01 -1.746216 2.7894275 32369.3 8960.02 -1.753250 2.7871953 31972.3 8960.78 -1.753516 2.7874935 31914.3 8961.49 -1.755046 2.7895553 31855.3 8962.25 -1.754923 2.7886015 31792.3 8963.01 -1.754503 2.7886281 31764.3 8963.77 -1.755608 2.7899382 31703.3 8964.53 -1.754960 2.7887773 31653.3 8965.29 -1.755145 2.7894190 31569.3 8966.05 -1.755711 2.7908705 31566.3 8966.81 -1.754886 2.7910501 31609.3 8967.57 -1.754021 2.7897026 31636.3 8968.33 -1.754534 2.7908939 31525.3 8969.09 -1.754972 2.7931429 31520.3 8969.85 -1.751536 2.7928152 31451.3 8970.61 -1.753847 2.7966238 31413.3 8971.37 -1.753150 2.8005015 31349.3 8972.14 -1.751972 2.8027950 31315.3 8972.90 -1.748863 2.8051568 31297.3 8973.66 -1.744824 2.8074611 31282.3 8974.37 -1.745167 2.8168217 31177.3 8975.13 -1.740998 2.8261941 31161.3 8975.89 -1.734472 2.8376945 31113.3 8976.65 -1.725088 2.8565564 31065.3 8977.42 -1.712885 2.8929449 31004.3 8978.18 -1.689785 2.9710889 30987.3 8978.94 -1.646840 3.1100858 30928.3 8979.70 -1.558027 3.2749332 30917.3 8980.47 -1.423499 3.3876663 30871.3 8981.23 -1.294210 3.4226285 30820.3 8981.99 -1.218668 3.4078930 30788.3 8982.71 -1.178827 3.3813562 30757.3 8983.47 -1.130050 3.3638788 30680.3 8984.23 -1.071441 3.3637135 30646.3 8985.00 -1.012535 3.3770498 30612.3 8985.76 -0.968784 3.3934884 30579.3 8986.52 -0.941662 3.4174812 30506.3 8987.29 -0.920107 3.4449127 30514.3 8988.05 -0.891168 3.4753794 30460.3 8988.76 -0.862311 3.5107764 30404.3 8989.53 -0.839792 3.5544598 30371.3 8990.29 -0.829187 3.6061718 30299.3 8991.06 -0.825057 3.6584199 30271.3 8991.82 -0.822520 3.7018371 30217.3 8992.59 -0.821392 3.7345688 30208.3 8993.35 -0.822054 3.7545269 30177.3 8994.07 -0.823708 3.7576177 30164.3 8994.83 -0.823620 3.7507087 30071.3 8995.60 -0.818243 3.7331516 30039.3 8996.36 -0.807637 3.7091396 30003.3 8997.13 -0.794932 3.6847075 29977.3 8997.90 -0.784836 3.6686496 29924.3 8998.66 -0.778068 3.6594218 29904.3 8999.38 -0.774289 3.6623570 29872.3 9000.14 -0.771717 3.6747923 29795.3 9000.91 -0.770354 3.6937802 29775.3 9001.68 -0.771015 3.7153770 29778.3 9002.44 -0.774344 3.7339639 29715.3 9003.16 -0.779038 3.7421143 29663.3 9003.93 -0.784639 3.7376034 29652.3 9004.69 -0.789419 3.7287581 29591.3 9005.46 -0.792459 3.7150753 29565.3 9006.23 -0.794270 3.6996554 29535.3 9006.94 -0.795045 3.6878311 29490.3 9007.71 -0.795558 3.6766790 29469.3 9008.48 -0.795984 3.6663703 29419.3 9009.25 -0.796308 3.6550039 29391.3 9010.02 -0.797235 3.6467830 29348.3 9010.53 -0.798127 3.6425808 29302.3 9011.09 -0.799312 3.6409548 29288.3 9011.66 -0.800761 3.6409745 29246.3 9012.22 -0.802227 3.6404667 29205.2 9012.78 -0.804154 3.6424544 29189.2 9013.40 -0.806438 3.6469394 29167.2 9014.01 -0.808798 3.6516878 29133.1 9014.58 -0.811295 3.6566145 29134.1 9015.19 -0.814557 3.6620243 29075.0 9015.86 -0.818735 3.6680307 29127.0 9016.47 -0.822798 3.6768052 29054.9 9017.14 -0.827618 3.6874615 29048.8 9017.76 -0.832277 3.6975552 29029.8 9018.42 -0.837559 3.7097979 29018.7 9019.14 -0.843509 3.7220378 28968.6 9019.81 -0.848687 3.7309031 28948.5 9020.48 -0.853866 3.7397284 28944.4 9021.20 -0.859241 3.7487986 28923.3 9021.91 -0.864073 3.7620119 28910.1 9022.63 -0.868369 3.7693048 28885.0 9023.35 -0.871865 3.7794744 28855.9 9024.12 -0.874692 3.7878679 28829.7 9024.84 -0.876410 3.7916123 28866.6 9025.61 -0.877453 3.7958796 28808.4 9026.38 -0.877559 3.7950977 28779.3 9027.21 -0.876756 3.7883915 28790.1 9027.98 -0.875480 3.7807079 28767.0 9028.75 -0.873828 3.7720061 28778.8 9029.57 -0.871367 3.7596718 28725.6 9030.40 -0.868535 3.7482648 28743.4 9031.22 -0.865361 3.7362632 28716.2 9032.04 -0.861727 3.7240247 28711.0 9032.92 -0.857407 3.7120382 28695.8 9033.79 -0.853219 3.7030049 28673.6 9034.62 -0.849310 3.6967409 28653.4 9035.50 -0.845171 3.6898387 28621.1 9036.42 -0.840791 3.6851023 28588.9 9037.30 -0.837119 3.6806694 28596.7 9038.23 -0.833416 3.6774970 28486.4 9039.10 -0.830443 3.6719141 28184.2 9040.03 -0.825672 3.6726947 28128.9 9040.96 -0.823071 3.6833194 28602.6 9041.94 -0.818722 3.6820097 28596.3 9042.87 -0.815328 3.6803166 28604.1 9043.85 -0.812233 3.6810557 28707.8 9044.83 -0.809229 3.6771549 28693.5 9045.81 -0.806795 3.6729813 28690.2 9046.79 -0.804439 3.6726669 28671.9 9047.78 -0.802830 3.6733733 28643.6 9048.81 -0.801298 3.6741113 28684.3 9049.79 -0.800450 3.6782732 28625.9 9050.83 -0.799819 3.6798438 28628.6 9051.86 -0.799691 3.6803507 28657.3 9052.95 -0.800092 3.6820887 28616.9 9053.98 -0.800896 3.6809660 28625.6 9055.07 -0.801946 3.6818855 28632.2 9056.16 -0.803439 3.6853969 28610.8 9057.24 -0.805550 3.6872935 28632.5 9058.33 -0.808376 3.6925296 28604.1 9059.42 -0.811931 3.7001486 28622.7 9060.56 -0.816271 3.7085133 28531.3 9061.65 -0.821229 3.7174008 28254.9 9062.79 -0.826994 3.7221774 28254.5 9063.93 -0.832962 3.7277018 28233.1 9065.12 -0.839645 3.7354415 28181.7 9066.27 -0.846293 3.7419775 28169.3 9067.46 -0.853190 3.7506252 28136.9 9068.60 -0.860014 3.7586810 28071.4 9069.80 -0.866116 3.7689216 28069.0 9071.04 -0.872601 3.7737146 28084.5 9072.24 -0.878432 3.7803232 28060.1 9073.43 -0.883664 3.7798200 28052.6 9074.68 -0.888895 3.7794554 28048.2 9075.93 -0.893650 3.7745218 28070.7 9077.18 -0.897803 3.7694500 28050.2 9078.43 -0.901115 3.7617449 28064.7 9079.68 -0.904339 3.7538038 28071.2 9080.98 -0.906786 3.7450001 28071.7 9082.28 -0.908679 3.7391131 28064.2 9083.58 -0.909977 3.7321657 28075.7 9084.89 -0.910670 3.7260428 28075.2 9086.19 -0.910416 3.7203560 28078.7 9087.49 -0.909688 3.7169696 28093.1 9088.85 -0.908786 3.7120222 28117.6 9090.21 -0.907160 3.7083976 28133.1 9091.57 -0.905618 3.7024346 28178.5 9092.92 -0.903887 3.6936919 28149.9 9094.28 -0.902051 3.6851648 28161.4 9095.69 -0.899992 3.6770979 28206.8 9097.05 -0.897867 3.6701865 28205.2 9098.46 -0.895844 3.6666275 28166.7 9099.88 -0.893802 3.6621766 28247.1 9101.34 -0.891658 3.6623521 28221.5 9102.75 -0.889369 3.6647051 28212.9 9104.17 -0.887324 3.6692909 28227.3 9105.63 -0.885466 3.6765901 28230.6 9107.10 -0.884010 3.6818995 28246.0 9108.57 -0.883068 3.6901641 28246.4 9110.04 -0.882873 3.6934507 28265.8 9111.56 -0.882967 3.6966526 28291.1 9113.03 -0.883808 3.6986328 28310.5 9114.55 -0.885003 3.7000272 28319.8 9116.07 -0.886772 3.7022195 28285.2 9117.60 -0.888753 3.7021881 28298.5 9119.12 -0.891129 3.7035328 28305.8 9120.70 -0.893848 3.7060219 28319.1 9122.22 -0.897024 3.7120184 28335.5 9123.80 -0.900339 3.7239193 28363.8 9125.38 -0.903861 3.7357313 28382.1 9126.96 -0.907281 3.7481135 28383.4 9128.59 -0.911373 3.7596664 28408.7 9130.17 -0.915324 3.7679177 28394.9 9131.80 -0.919529 3.7749500 28408.2 9133.39 -0.923688 3.7752809 28388.5 9135.02 -0.927768 3.7754491 28417.7 9136.71 -0.932449 3.7721838 28400.0 9138.34 -0.936406 3.7689230 28435.3 9139.98 -0.940278 3.7639627 28439.5 9141.67 -0.944017 3.7567970 28465.7 9143.36 -0.947885 3.7474086 28388.0 9145.05 -0.951190 3.7327699 28191.2 9146.75 -0.955241 3.7219083 28220.4 9148.44 -0.957913 3.7161175 28598.6 9150.19 -0.959983 3.7025605 28652.8 9151.88 -0.961837 3.6876056 28756.0 9153.63 -0.964097 3.6720652 28954.2 9155.38 -0.965711 3.6541081 28952.4 9157.13 -0.967542 3.6460164 29074.6 9158.93 -0.968664 3.6376488 29059.8 9160.68 -0.969247 3.6378030 29032.9 9162.49 -0.969272 3.6455165 29315.1 9164.29 -0.970760 3.6583198 29472.2 9166.10 -0.971349 3.6673027 29468.4 9167.90 -0.972186 3.6783960 29442.5 9169.71 -0.972961 3.6895176 29445.7 9171.57 -0.973755 3.6979961 29458.8 9173.38 -0.974479 3.7043566 29501.9 9175.25 -0.975522 3.7074590 29485.0 9177.11 -0.976566 3.7092968 29492.1 9178.98 -0.977453 3.7067173 29542.2 9180.89 -0.979014 3.7053518 29546.3 9182.76 -0.980804 3.7026236 29533.4 9184.68 -0.982504 3.7022818 29532.5 9186.60 -0.984212 3.7023083 29617.6 9188.53 -0.986150 3.7021912 29615.6 9190.45 -0.988220 3.7007871 29616.7 9192.37 -0.990489 3.6995699 29631.8 9194.35 -0.992913 3.6957940 29625.8 9196.28 -0.995230 3.6949349 29633.9 9198.26 -0.997767 3.6958685 29613.9 9200.24 -1.000436 3.7005989 29657.9 9202.22 -1.003106 3.7072121 29653.0 9204.21 -1.005957 3.7164124 29704.0 9206.24 -1.008764 3.7241208 29681.0 9208.23 -1.011677 3.7287750 29730.0 9210.27 -1.014561 3.7324955 29767.0 9212.31 -1.017473 3.7320565 29755.0 9214.35 -1.020119 3.7303870 29759.0 9216.39 -1.022693 3.7279646 29757.0 9218.49 -1.025274 3.7235152 29782.9 9220.53 -1.027585 3.7179806 29811.9 9222.63 -1.030231 3.7105031 29799.9 9224.73 -1.032680 3.7006318 29791.8 9226.83 -1.035232 3.6941836 29806.8 9228.94 -1.037794 3.6832613 29840.7 9231.04 -1.040553 3.6743076 29837.6 9233.20 -1.043283 3.6676142 29843.6 9235.36 -1.046248 3.6613049 29878.5 9237.46 -1.049031 3.6569047 29891.4 9239.63 -1.051817 3.6553616 29839.3 9241.84 -1.054647 3.6549805 29847.2 9244.01 -1.057356 3.6574461 29849.1 9246.17 -1.059688 3.6596093 29880.0 9248.39 -1.062204 3.6596758 29909.9 9250.61 -1.064703 3.6578645 29923.8 9252.83 -1.067087 3.6574750 29889.6 9255.06 -1.069737 3.6586074 29919.5 9257.28 -1.072484 3.6626927 29901.3 9259.51 -1.074964 3.6623782 29959.2 9261.79 -1.077879 3.6637681 29975.0 9264.07 -1.080565 3.6666842 29936.9 9266.36 -1.083413 3.6711413 29926.7 9268.64 -1.086267 3.6746511 29967.5 9270.93 -1.088897 3.6759138 29934.4 9273.21 -1.091500 3.6780194 29967.2 9275.50 -1.094164 3.6786193 29966.0 9277.85 -1.096909 3.6761920 29950.8 9280.19 -1.099614 3.6746520 29962.6 9282.54 -1.102319 3.6757550 29987.4 9284.89 -1.104953 3.6735486 29941.1 9287.24 -1.107640 3.6755596 29966.9 9289.64 -1.110189 3.6752650 29979.7 9291.99 -1.112704 3.6746093 29982.4 9294.40 -1.115169 3.6745221 29977.2 9296.81 -1.117349 3.6745292 30021.9 9299.22 -1.119660 3.6727825 29983.7 9301.63 -1.121781 3.6696261 29998.4 9304.05 -1.124293 3.6656278 29962.2 9306.46 -1.126503 3.6620614 29984.9 9308.93 -1.128917 3.6557505 29980.6 9311.40 -1.131443 3.6507581 29985.3 9313.88 -1.133956 3.6478507 29977.0 9316.35 -1.136538 3.6419728 30011.7 9318.83 -1.139155 3.6373588 29995.4 9321.31 -1.141633 3.6355145 29968.1 9323.84 -1.144480 3.6331088 29984.8 9326.32 -1.147184 3.6339283 30005.4 9328.86 -1.150089 3.6326615 30005.1 9331.40 -1.153114 3.6297669 29963.7 9333.94 -1.156348 3.6265417 29976.4 9336.48 -1.159272 3.6218700 29977.0 9339.08 -1.162588 3.6188505 29978.7 9341.62 -1.165727 3.6157291 29981.3 9344.22 -1.169073 3.6122576 29965.9 9346.83 -1.172356 3.6121790 29972.6 9349.43 -1.175647 3.6141096 29947.2 9352.04 -1.178959 3.6132339 29962.8 9354.65 -1.182164 3.6112745 29948.4 9357.26 -1.185355 3.6111288 29988.0 9359.92 -1.188593 3.6104954 29954.6 9362.53 -1.191597 3.6089813 29935.1 9365.20 -1.194773 3.6108819 29922.7 9367.88 -1.197708 3.6118792 29946.3 9370.55 -1.200707 3.6098541 29921.8 9373.28 -1.203822 3.6097522 29917.4 9375.95 -1.206895 3.6095808 29911.9 9378.63 -1.209775 3.6095668 29916.5 9381.37 -1.212830 3.6101041 29899.0 9384.10 -1.215974 3.6104005 29849.6 9386.84 -1.218799 3.6097492 29825.1 9389.58 -1.221727 3.6092257 29844.6 9392.33 -1.224763 3.6075296 29836.1 9395.13 -1.227586 3.6053228 29839.6 9397.87 -1.230371 3.6061943 29817.1 9400.67 -1.233294 3.6030369 29809.6 9403.48 -1.235994 3.6006429 29809.1 9406.23 -1.238828 3.5969676 29765.6 9409.09 -1.241669 3.5919070 29743.0 9411.91 -1.244318 3.5891660 29720.5 9414.72 -1.246944 3.5850304 29698.0 9417.59 -1.249841 3.5802996 29710.4 9420.40 -1.252299 3.5786623 29692.9 9423.28 -1.255160 3.5753772 29685.3 9426.15 -1.258040 3.5734548 29645.7 9429.03 -1.260785 3.5722213 29630.2 9431.91 -1.263601 3.5700944 29585.6 9434.79 -1.266335 3.5691463 29628.0 9437.73 -1.269565 3.5677643 29552.4 9440.62 -1.272162 3.5679959 29582.8 9443.56 -1.275267 3.5660606 29573.2 9446.51 -1.278616 3.5643563 29562.6 9449.46 -1.281568 3.5622173 29511.0 9452.41 -1.285008 3.5602697 29450.3 9455.36 -1.288039 3.5571641 29473.7 9458.37 -1.291401 3.5570870 29450.1 9461.32 -1.294050 3.5710862 29445.4 9464.34 -1.298680 3.5496656 29400.8 9467.35 -1.301970 3.5472643 29423.1 9470.38 -1.305460 3.5469249 29395.4 9473.39 -1.308728 3.5442239 29360.8 9476.42 -1.312168 3.5447994 29342.1 9479.44 -1.315423 3.5431269 29318.4 9482.53 -1.319090 3.5422085 29285.7 9485.56 -1.322487 3.5401299 29245.0 9488.64 -1.325943 3.5405583 29156.3 9491.73 -1.329248 3.5412936 29181.6 9494.83 -1.332665 3.5395803 29040.9 9497.92 -1.335854 3.5375944 29035.2 9501.02 -1.338915 3.5372646 29044.5 9504.12 -1.342014 3.5356082 29013.7 9507.28 -1.345341 3.5355680 28978.0 9510.38 -1.348134 3.5342177 28964.2 9513.54 -1.351467 3.5319987 28953.5 9516.71 -1.354684 3.5297454 28882.7 9519.88 -1.357799 3.5260488 28878.0 9523.04 -1.360958 3.5204476 28807.2 9526.22 -1.364118 3.5170299 28789.4 9529.45 -1.367315 3.5108726 28622.6 9532.63 -1.370234 3.5132200 28860.8 9535.86 -1.373232 3.5088884 28725.0 9539.10 -1.376274 3.5071874 28756.2 9542.29 -1.379311 3.5052121 28728.4 9545.53 -1.382674 3.5020936 28674.6 9548.83 -1.385855 3.4996459 28619.8 9552.08 -1.389253 3.4980147 28548.9 9555.33 -1.392314 3.4966013 28551.1 9558.64 -1.395485 3.4938352 28478.3 9561.90 -1.398630 3.4920873 28467.4 9565.21 -1.401893 3.4887470 28447.5 9568.53 -1.405234 3.4876017 28414.7 9571.85 -1.408521 3.4848633 28361.8 9575.18 -1.411950 3.4835440 28304.9 9578.50 -1.415077 3.4807422 28317.1 9581.89 -1.418546 3.4778017 28283.2 9585.22 -1.422058 3.4751524 28224.3 9588.61 -1.425232 3.4726398 28178.4 9591.95 -1.428470 3.4708710 28274.5 9595.34 -1.432006 3.4684557 28242.5 9598.74 -1.435530 3.4658101 28203.6 9602.15 -1.439219 3.4640753 28192.7 9605.61 -1.442926 3.4629783 28145.8 9609.02 -1.446459 3.4609697 28122.8 9612.43 -1.450157 3.4591442 28069.9 9615.90 -1.453532 3.4572463 28045.9 9619.37 -1.457120 3.4554614 27989.0 9622.79 -1.460671 3.4536807 27955.0 9626.27 -1.464023 3.4502821 27932.0 9629.75 -1.467442 3.4492180 27877.0 9633.23 -1.470752 3.4456752 27828.1 9636.78 -1.474236 3.4437449 27804.1 9640.27 -1.477765 3.4408652 27759.1 9643.82 -1.481398 3.4407066 27644.1 9647.32 -1.484666 3.4421793 27627.1 9650.88 -1.488066 3.4359130 27604.0 9654.43 -1.491450 3.4313594 27522.0 9658.00 -1.494751 3.4301037 27484.0 9661.56 -1.497961 3.4266592 27463.9 9665.13 -1.500549 3.4232677 27392.9 9668.70 -1.503849 3.4200902 27348.9 9672.34 -1.507424 3.4185510 27334.8 9675.91 -1.510996 3.4162245 27345.7 9679.55 -1.514414 3.4138620 27231.7 9683.14 -1.517926 3.4102518 27174.6 9686.78 -1.521324 3.4067116 27128.5 9690.43 -1.524723 3.4034268 27075.4 9694.08 -1.528292 3.4014220 27032.3 9697.79 -1.531595 3.3999978 27018.2 9701.45 -1.534820 3.3949904 26941.1 9705.11 -1.538175 3.3915249 26844.0 9708.83 -1.541665 3.3891361 26860.9 9712.50 -1.545007 3.3885435 26846.8 9716.23 -1.548584 3.3856707 26802.6 9719.96 -1.551814 3.3840147 26743.5 9723.70 -1.555279 3.3795481 26702.3 9727.43 -1.558834 3.3775497 26637.2 9731.17 -1.562424 3.3740277 26604.0 9734.98 -1.566094 3.3727612 26566.9 9738.73 -1.569446 3.3701595 26526.7 9742.48 -1.572933 3.3672552 26510.5 9746.29 -1.576419 3.3647534 26432.3 9750.11 -1.580168 3.3640211 26358.1 9753.93 -1.583492 3.3619919 26343.9 9757.69 -1.587205 3.3596387 26292.7 9761.58 -1.590557 3.3564884 26235.5 9765.41 -1.594117 3.3538949 26210.3 9769.24 -1.597784 3.3525319 26179.1 9773.08 -1.601364 3.3505687 26139.8 9776.98 -1.605047 3.3462234 26069.6 9780.82 -1.608638 3.3437706 26016.4 9784.73 -1.612293 3.3411776 25980.1 9788.64 -1.616122 3.3408022 25928.9 9792.55 -1.619592 3.3372299 25865.6 9796.41 -1.623341 3.3346482 25820.3 9800.39 -1.627095 3.3342934 25771.1 9804.31 -1.630780 3.3319674 25727.8 9808.24 -1.634318 3.3270977 25709.5 9812.17 -1.637853 3.3250708 25660.2 9816.17 -1.641327 3.3227595 25604.9 9820.10 -1.644750 3.3202899 25562.6 9824.11 -1.648343 3.3174222 25521.3 9828.11 -1.651969 3.3149448 25478.0 9832.12 -1.655440 3.3130410 25426.6 9836.13 -1.658866 3.3094008 25389.3 9840.15 -1.662549 3.3071200 25343.0 9844.17 -1.665933 3.3038170 25298.6 9848.19 -1.669401 3.3022272 25274.3 9852.28 -1.673047 3.2986827 25200.9 ifeffit-1.2.11d/examples/data/cu.xmu0000644000175000017500000004756110771740461016265 0ustar segresegre# Cu foil at 10K ## cu10k.dat : this file is part of the uwxafs 3.0 distribution # data taken at NSLS beamline X-11A Sept 1992 # by M Newville, B Ravel, and Y Zhang # foil of 99.999% Cu rolled and annealled to ~12 microns # sample prepared by M Newville # From X-11A : # 2-SI111 HC/2D= 1977.260 STPDEG=6400. STPMMZ= 40. # FOCUS=F TRANSLT=F E0= 8980.0 NREG= 3 NPTS= 611 NSCLRS= 3 EF= .0 # SRB= -193.7 -43.5 30.0 2381.3 # DEL= 10.020 .483 .050K # SEC= 1.000 1.000 1.000 # DETECTORSI0 I If # GAINS 8 7 10 # OFFSETS 51284 50016 48319 #--------------------------------------------------------------------- # energy xmu .8786204E+04 .1013661E+01 .8796258E+04 .9949864E+00 .8806253E+04 .9900679E+00 .8816270E+04 .9850345E+00 .8826270E+04 .9801005E+00 .8836292E+04 .9751812E+00 .8846337E+04 .9703809E+00 .8856322E+04 .9656931E+00 .8866372E+04 .9609839E+00 .8876361E+04 .9562312E+00 .8886416E+04 .9515597E+00 .8896409E+04 .9472797E+00 .8906425E+04 .9427789E+00 .8916464E+04 .9387816E+00 .8926483E+04 .9347627E+00 .8936483E+04 .9319326E+00 .8936998E+04 .9318979E+00 .8937471E+04 .9319605E+00 .8937944E+04 .9317057E+00 .8938417E+04 .9314675E+00 .8938976E+04 .9315093E+00 .8939406E+04 .9315045E+00 .8939878E+04 .9313901E+00 .8940352E+04 .9313291E+00 .8940824E+04 .9312409E+00 .8941384E+04 .9311222E+00 .8941814E+04 .9310213E+00 .8942287E+04 .9309021E+00 .8942761E+04 .9307298E+00 .8943319E+04 .9306122E+00 .8943793E+04 .9304990E+00 .8944224E+04 .9306326E+00 .8944697E+04 .9305469E+00 .8945257E+04 .9303982E+00 .8945730E+04 .9303880E+00 .8946204E+04 .9303346E+00 .8946635E+04 .9303558E+00 .8947108E+04 .9302956E+00 .8947668E+04 .9302498E+00 .8948143E+04 .9302464E+00 .8948616E+04 .9301887E+00 .8949048E+04 .9302589E+00 .8949564E+04 .9302350E+00 .8950038E+04 .9301157E+00 .8950513E+04 .9302852E+00 .8950987E+04 .9301982E+00 .8951461E+04 .9303481E+00 .8951979E+04 .9303330E+00 .8952453E+04 .9302519E+00 .8952927E+04 .9303452E+00 .8953401E+04 .9304274E+00 .8953876E+04 .9305623E+00 .8954394E+04 .9306202E+00 .8954868E+04 .9307082E+00 .8955343E+04 .9309137E+00 .8955817E+04 .9310440E+00 .8956336E+04 .9311512E+00 .8956811E+04 .9312306E+00 .8957285E+04 .9314795E+00 .8957761E+04 .9315805E+00 .8958235E+04 .9318467E+00 .8958710E+04 .9322639E+00 .8959229E+04 .9325585E+00 .8959703E+04 .9327140E+00 .8960179E+04 .9331298E+00 .8960654E+04 .9333592E+00 .8961130E+04 .9338366E+00 .8961647E+04 .9340628E+00 .8962123E+04 .9345798E+00 .8962599E+04 .9350846E+00 .8963074E+04 .9357670E+00 .8963550E+04 .9363439E+00 .8964068E+04 .9371685E+00 .8964544E+04 .9378253E+00 .8965020E+04 .9386100E+00 .8965496E+04 .9393651E+00 .8965972E+04 .9404053E+00 .8966447E+04 .9413668E+00 .8966967E+04 .9426652E+00 .8967442E+04 .9440842E+00 .8967919E+04 .9458520E+00 .8968395E+04 .9469061E+00 .8968871E+04 .9484839E+00 .8969347E+04 .9510049E+00 .8969909E+04 .9537250E+00 .8970386E+04 .9559226E+00 .8970862E+04 .9591411E+00 .8971339E+04 .9638383E+00 .8971772E+04 .9658701E+00 .8972248E+04 .9704646E+00 .8972812E+04 .9777987E+00 .8973288E+04 .9857215E+00 .8973765E+04 .9959283E+00 .8974198E+04 .1004012E+01 .8974675E+04 .1025727E+01 .8975151E+04 .1041380E+01 .8975628E+04 .1065133E+01 .8976192E+04 .1129467E+01 .8976626E+04 .1208882E+01 .8977103E+04 .1347811E+01 .8977580E+04 .1576825E+01 .8978057E+04 .1781245E+01 .8978534E+04 .1922731E+01 .8979055E+04 .1990812E+01 .8979531E+04 .2014387E+01 .8980009E+04 .2006267E+01 .8980486E+04 .1985342E+01 .8980964E+04 .1960698E+01 .8981441E+04 .1948155E+01 .8981919E+04 .1962577E+01 .8982396E+04 .1988741E+01 .8982918E+04 .2034157E+01 .8983396E+04 .2087115E+01 .8983873E+04 .2129985E+01 .8984352E+04 .2166079E+01 .8984829E+04 .2204677E+01 .8985307E+04 .2266785E+01 .8985785E+04 .2305345E+01 .8986307E+04 .2377522E+01 .8986784E+04 .2447587E+01 .8987263E+04 .2550736E+01 .8987741E+04 .2628802E+01 .8988219E+04 .2739306E+01 .8988697E+04 .2846921E+01 .8989176E+04 .2926129E+01 .8989653E+04 .3004384E+01 .8990132E+04 .3103122E+01 .8990698E+04 .3211040E+01 .8991133E+04 .3253994E+01 .8991611E+04 .3299688E+01 .8992090E+04 .3307443E+01 .8992568E+04 .3292812E+01 .8993048E+04 .3270622E+01 .8993526E+04 .3232157E+01 .8994006E+04 .3193880E+01 .8994484E+04 .3153873E+01 .8995007E+04 .3110148E+01 .8995485E+04 .3076609E+01 .8995965E+04 .3057663E+01 .8996444E+04 .3044436E+01 .8996924E+04 .3038896E+01 .8997402E+04 .3047299E+01 .8997882E+04 .3067514E+01 .8998361E+04 .3100560E+01 .8998840E+04 .3164385E+01 .8999319E+04 .3198286E+01 .8999799E+04 .3253436E+01 .9000366E+04 .3303922E+01 .9000803E+04 .3341708E+01 .9001281E+04 .3359158E+01 .9001762E+04 .3356086E+01 .9002241E+04 .3337021E+01 .9002721E+04 .3294590E+01 .9003201E+04 .3271427E+01 .9003681E+04 .3230007E+01 .9004161E+04 .3208134E+01 .9004642E+04 .3151590E+01 .9005121E+04 .3126171E+01 .9005602E+04 .3094709E+01 .9006125E+04 .3063252E+01 .9006605E+04 .3043238E+01 .9007086E+04 .3022431E+01 .9007566E+04 .2994922E+01 .9008047E+04 .2975828E+01 .9008526E+04 .2955377E+01 .9009007E+04 .2941575E+01 .9009487E+04 .2933227E+01 .9009969E+04 .2931259E+01 .9011062E+04 .2941681E+01 .9012153E+04 .2955967E+01 .9013246E+04 .2980734E+01 .9014384E+04 .3008692E+01 .9015565E+04 .3061603E+01 .9016746E+04 .3111765E+01 .9017928E+04 .3151268E+01 .9019154E+04 .3209008E+01 .9020380E+04 .3265456E+01 .9021606E+04 .3309451E+01 .9022877E+04 .3344066E+01 .9024191E+04 .3347933E+01 .9025464E+04 .3317408E+01 .9026822E+04 .3256685E+01 .9028140E+04 .3197553E+01 .9029499E+04 .3127461E+01 .9030903E+04 .3074151E+01 .9032309E+04 .3038878E+01 .9033759E+04 .3014589E+01 .9035164E+04 .3009469E+01 .9036615E+04 .3019048E+01 .9038109E+04 .3042527E+01 .9039604E+04 .3064316E+01 .9041145E+04 .3070378E+01 .9042642E+04 .3060592E+01 .9044271E+04 .3049929E+01 .9045768E+04 .3056479E+01 .9047397E+04 .3083377E+01 .9049029E+04 .3111159E+01 .9050616E+04 .3117680E+01 .9052336E+04 .3112090E+01 .9053969E+04 .3114585E+01 .9055646E+04 .3135969E+01 .9057324E+04 .3166758E+01 .9059047E+04 .3194733E+01 .9060814E+04 .3212787E+01 .9062627E+04 .3230845E+01 .9064353E+04 .3252570E+01 .9066166E+04 .3285908E+01 .9067981E+04 .3320478E+01 .9069842E+04 .3347080E+01 .9071702E+04 .3347973E+01 .9073563E+04 .3322422E+01 .9075470E+04 .3270037E+01 .9077377E+04 .3199704E+01 .9079329E+04 .3141443E+01 .9081283E+04 .3096301E+01 .9083237E+04 .3056642E+01 .9085281E+04 .3035020E+01 .9087237E+04 .3030587E+01 .9089283E+04 .3008554E+01 .9091330E+04 .2954597E+01 .9093378E+04 .2905036E+01 .9095472E+04 .2869176E+01 .9097610E+04 .2861018E+01 .9099705E+04 .2881511E+01 .9101847E+04 .2917772E+01 .9104033E+04 .2965204E+01 .9106221E+04 .3017964E+01 .9108409E+04 .3067991E+01 .9110644E+04 .3100566E+01 .9112879E+04 .3107379E+01 .9115160E+04 .3090957E+01 .9117398E+04 .3071216E+01 .9119728E+04 .3065036E+01 .9122057E+04 .3105295E+01 .9124389E+04 .3203622E+01 .9126721E+04 .3327629E+01 .9129099E+04 .3390544E+01 .9131478E+04 .3393080E+01 .9133904E+04 .3363564E+01 .9136331E+04 .3334324E+01 .9138805E+04 .3300580E+01 .9141279E+04 .3238897E+01 .9143756E+04 .3156461E+01 .9146233E+04 .3055825E+01 .9148803E+04 .2946566E+01 .9151328E+04 .2839257E+01 .9153899E+04 .2747080E+01 .9156474E+04 .2689709E+01 .9159094E+04 .2682628E+01 .9161716E+04 .2730871E+01 .9164339E+04 .2816572E+01 .9167009E+04 .2917572E+01 .9169681E+04 .3016081E+01 .9172399E+04 .3080977E+01 .9175074E+04 .3115732E+01 .9177842E+04 .3108910E+01 .9180564E+04 .3070012E+01 .9183381E+04 .3033550E+01 .9186153E+04 .3015555E+01 .9188973E+04 .3007977E+01 .9191794E+04 .2979829E+01 .9194663E+04 .2938781E+01 .9197533E+04 .2929960E+01 .9200406E+04 .2976179E+01 .9203326E+04 .3073268E+01 .9206247E+04 .3170151E+01 .9209217E+04 .3203155E+01 .9212143E+04 .3206142E+01 .9215115E+04 .3190300E+01 .9218183E+04 .3147204E+01 .9221160E+04 .3071421E+01 .9224185E+04 .2977321E+01 .9227258E+04 .2889161E+01 .9230333E+04 .2822056E+01 .9233502E+04 .2781351E+01 .9236581E+04 .2763039E+01 .9239755E+04 .2769146E+01 .9242838E+04 .2800158E+01 .9246016E+04 .2822845E+01 .9249196E+04 .2821907E+01 .9252425E+04 .2826751E+01 .9255655E+04 .2834598E+01 .9258889E+04 .2837595E+01 .9262171E+04 .2852731E+01 .9265454E+04 .2884891E+01 .9268787E+04 .2914335E+01 .9272122E+04 .2934046E+01 .9275459E+04 .2943820E+01 .9278800E+04 .2944769E+01 .9282188E+04 .2942882E+01 .9285580E+04 .2952354E+01 .9289021E+04 .2967295E+01 .9292465E+04 .2986871E+01 .9295910E+04 .3003432E+01 .9299404E+04 .2981879E+01 .9302949E+04 .2933500E+01 .9306403E+04 .2889045E+01 .9309953E+04 .2840568E+01 .9313506E+04 .2796097E+01 .9317061E+04 .2775838E+01 .9320666E+04 .2781760E+01 .9324320E+04 .2801508E+01 .9327932E+04 .2816890E+01 .9331592E+04 .2803144E+01 .9335256E+04 .2763032E+01 .9338922E+04 .2711823E+01 .9342639E+04 .2687955E+01 .9346358E+04 .2711813E+01 .9350128E+04 .2737134E+01 .9353900E+04 .2737934E+01 .9357677E+04 .2748922E+01 .9361455E+04 .2765675E+01 .9365285E+04 .2773098E+01 .9369165E+04 .2781047E+01 .9373048E+04 .2789819E+01 .9376840E+04 .2797477E+01 .9380777E+04 .2804734E+01 .9384671E+04 .2809786E+01 .9388614E+04 .2812114E+01 .9392563E+04 .2813700E+01 .9396561E+04 .2814358E+01 .9400515E+04 .2809979E+01 .9404567E+04 .2793399E+01 .9408576E+04 .2760490E+01 .9412637E+04 .2718249E+01 .9416700E+04 .2683656E+01 .9420768E+04 .2671065E+01 .9424935E+04 .2671632E+01 .9429010E+04 .2681260E+01 .9433184E+04 .2696438E+01 .9437313E+04 .2704987E+01 .9441495E+04 .2701200E+01 .9445729E+04 .2686653E+01 .9449966E+04 .2657398E+01 .9454208E+04 .2628573E+01 .9458453E+04 .2623585E+01 .9462702E+04 .2633209E+01 .9467004E+04 .2630277E+01 .9471358E+04 .2616724E+01 .9475668E+04 .2610234E+01 .9480029E+04 .2609877E+01 .9484396E+04 .2618066E+01 .9488814E+04 .2632820E+01 .9493189E+04 .2645850E+01 .9497665E+04 .2661480E+01 .9502097E+04 .2680759E+01 .9506581E+04 .2696983E+01 .9511118E+04 .2702235E+01 .9515563E+04 .2694176E+01 .9520109E+04 .2669260E+01 .9524611E+04 .2625398E+01 .9529265E+04 .2580381E+01 .9533775E+04 .2561563E+01 .9538438E+04 .2556394E+01 .9543007E+04 .2555007E+01 .9547679E+04 .2552842E+01 .9552306E+04 .2553917E+01 .9556986E+04 .2558074E+01 .9561673E+04 .2558972E+01 .9566462E+04 .2552003E+01 .9571157E+04 .2546721E+01 .9575956E+04 .2543460E+01 .9580661E+04 .2535349E+01 .9585470E+04 .2517931E+01 .9590283E+04 .2509453E+01 .9595102E+04 .2508878E+01 .9599976E+04 .2507338E+01 .9604854E+04 .2511822E+01 .9609737E+04 .2515893E+01 .9614625E+04 .2514758E+01 .9619568E+04 .2514053E+01 .9624518E+04 .2518860E+01 .9629471E+04 .2526326E+01 .9634431E+04 .2524162E+01 .9639445E+04 .2515393E+01 .9644466E+04 .2505588E+01 .9649541E+04 .2495945E+01 .9654571E+04 .2489619E+01 .9659708E+04 .2480515E+01 .9664750E+04 .2465866E+01 .9669847E+04 .2454911E+01 .9675001E+04 .2448600E+01 .9680159E+04 .2444625E+01 .9685324E+04 .2444391E+01 .9690545E+04 .2438542E+01 .9695722E+04 .2425891E+01 .9700953E+04 .2421363E+01 .9706243E+04 .2420298E+01 .9711486E+04 .2415727E+01 .9716788E+04 .2406582E+01 .9722094E+04 .2399528E+01 .9727407E+04 .2394548E+01 .9732776E+04 .2385773E+01 .9738204E+04 .2384001E+01 .9743535E+04 .2385557E+01 .9748923E+04 .2387176E+01 .9754317E+04 .2393320E+01 .9759769E+04 .2393286E+01 .9765227E+04 .2390265E+01 .9770742E+04 .2386799E+01 .9776212E+04 .2377775E+01 .9781793E+04 .2363987E+01 .9787275E+04 .2354141E+01 .9792816E+04 .2352211E+01 .9798416E+04 .2352589E+01 .9804022E+04 .2351565E+01 .9809584E+04 .2349586E+01 .9815254E+04 .2343184E+01 .9820880E+04 .2331066E+01 .9826564E+04 .2319885E+01 .9832308E+04 .2309800E+01 .9837953E+04 .2302536E+01 .9843659E+04 .2298680E+01 .9849422E+04 .2294200E+01 .9855192E+04 .2287658E+01 .9860971E+04 .2282896E+01 .9866755E+04 .2277700E+01 .9872600E+04 .2273120E+01 .9878450E+04 .2271066E+01 .9884310E+04 .2266972E+01 .9890175E+04 .2263576E+01 .9896100E+04 .2263998E+01 .9901980E+04 .2264150E+01 .9907920E+04 .2261573E+01 .9913867E+04 .2257439E+01 .9919876E+04 .2252447E+01 .9925838E+04 .2245956E+01 .9931859E+04 .2240462E+01 .9937890E+04 .2235462E+01 .9943980E+04 .2228760E+01 .9950025E+04 .2219993E+01 .9956132E+04 .2213546E+01 .9962300E+04 .2207783E+01 .9968367E+04 .2204902E+01 .9974497E+04 .2202134E+01 .9980687E+04 .2199268E+01 .9986832E+04 .2191243E+01 .9993038E+04 .2184893E+01 .9999253E+04 .2181988E+01 .1000553E+05 .2175889E+01 .1001176E+05 .2168400E+01 .1001805E+05 .2161425E+01 .1002435E+05 .2155688E+01 .1003066E+05 .2151178E+01 .1003703E+05 .2145570E+01 .1004336E+05 .2139351E+01 .1004974E+05 .2135055E+01 .1005614E+05 .2131782E+01 .1006254E+05 .2131762E+01 .1006896E+05 .2132080E+01 .1007543E+05 .2127986E+01 .1008192E+05 .2122787E+01 .1008846E+05 .2116560E+01 .1009491E+05 .2112059E+01 .1010142E+05 .2107203E+01 .1010794E+05 .2101453E+01 .1011452E+05 .2094787E+01 .1012111E+05 .2089134E+01 .1012771E+05 .2082759E+01 .1013432E+05 .2078182E+01 .1014105E+05 .2073463E+01 .1014768E+05 .2068076E+01 .1015431E+05 .2063473E+01 .1016101E+05 .2061048E+01 .1016778E+05 .2055853E+01 .1017449E+05 .2049533E+01 .1018128E+05 .2042940E+01 .1018807E+05 .2036571E+01 .1019482E+05 .2031228E+01 .1020163E+05 .2026054E+01 .1020845E+05 .2021201E+01 .1021528E+05 .2017216E+01 .1022217E+05 .2014019E+01 .1022913E+05 .2011350E+01 .1023599E+05 .2007960E+01 .1024286E+05 .2003555E+01 .1024985E+05 .1997455E+01 .1025679E+05 .1991910E+01 .1026380E+05 .1988298E+01 .1027082E+05 .1983455E+01 .1027785E+05 .1978791E+01 .1028489E+05 .1974810E+01 .1029188E+05 .1969660E+01 .1029905E+05 .1964434E+01 .1030612E+05 .1960277E+01 .1031320E+05 .1955222E+01 .1032041E+05 .1949610E+01 .1032750E+05 .1943582E+01 .1033473E+05 .1937461E+01 .1034185E+05 .1931902E+01 .1034909E+05 .1926781E+01 .1035635E+05 .1922293E+01 .1036361E+05 .1918179E+01 .1037089E+05 .1913225E+01 .1037817E+05 .1908101E+01 .1038547E+05 .1902590E+01 .1039278E+05 .1897350E+01 .1040010E+05 .1892302E+01 .1040748E+05 .1888240E+01 .1041482E+05 .1884945E+01 .1042223E+05 .1880880E+01 .1042965E+05 .1875209E+01 .1043714E+05 .1869117E+01 .1044458E+05 .1864810E+01 .1045203E+05 .1859730E+01 .1045955E+05 .1854703E+01 .1046708E+05 .1850927E+01 .1047463E+05 .1846062E+01 .1048218E+05 .1841454E+01 .1048975E+05 .1836949E+01 .1049732E+05 .1832029E+01 .1050497E+05 .1827266E+01 .1051257E+05 .1822091E+01 .1052024E+05 .1816615E+01 .1052792E+05 .1811286E+01 .1053562E+05 .1806091E+01 .1054332E+05 .1801056E+01 .1055104E+05 .1795975E+01 .1055877E+05 .1790457E+01 .1056650E+05 .1784985E+01 .1057432E+05 .1779817E+01 .1058220E+05 .1774830E+01 .1058991E+05 .1770077E+01 .1059776E+05 .1765584E+01 .1060562E+05 .1761346E+01 .1061355E+05 .1756188E+01 .1062143E+05 .1751146E+01 .1062933E+05 .1745866E+01 .1063730E+05 .1741325E+01 .1064521E+05 .1736995E+01 .1065321E+05 .1732137E+01 .1066121E+05 .1727265E+01 .1066923E+05 .1722011E+01 .1067726E+05 .1716960E+01 .1068530E+05 .1711949E+01 .1069335E+05 .1707255E+01 .1070154E+05 .1702657E+01 .1070956E+05 .1698036E+01 .1071771E+05 .1692923E+01 .1072581E+05 .1688424E+01 .1073399E+05 .1683495E+01 .1074224E+05 .1678441E+01 .1075038E+05 .1673326E+01 .1075860E+05 .1668216E+01 .1076683E+05 .1662904E+01 .1077514E+05 .1657390E+01 .1078339E+05 .1652672E+01 .1079172E+05 .1647545E+01 .1080000E+05 .1642962E+01 .1080836E+05 .1638716E+01 .1081673E+05 .1634322E+01 .1082505E+05 .1629474E+01 .1083345E+05 .1624254E+01 .1084186E+05 .1619885E+01 .1085041E+05 .1614815E+01 .1085878E+05 .1610030E+01 .1086723E+05 .1605274E+01 .1087576E+05 .1600137E+01 .1088423E+05 .1595601E+01 .1089285E+05 .1590329E+01 .1090129E+05 .1585683E+01 .1090994E+05 .1580797E+01 .1091847E+05 .1576162E+01 .1092708E+05 .1571243E+01 .1093570E+05 .1566459E+01 .1094440E+05 .1561783E+01 .1095299E+05 .1556788E+01 .1096165E+05 .1551967E+01 .1097040E+05 .1546871E+01 .1097909E+05 .1541756E+01 .1098786E+05 .1536987E+01 .1099665E+05 .1531856E+01 .1100532E+05 .1527318E+01 .1101414E+05 .1522359E+01 .1102297E+05 .1517451E+01 .1103181E+05 .1512805E+01 .1104067E+05 .1507971E+01 .1104954E+05 .1503313E+01 .1105843E+05 .1498878E+01 .1106733E+05 .1493591E+01 .1107625E+05 .1489248E+01 .1108518E+05 .1484389E+01 .1109412E+05 .1479586E+01 .1110315E+05 .1475953E+01 .1111213E+05 .1470389E+01 .1112125E+05 .1465458E+01 .1113019E+05 .1460824E+01 .1113934E+05 .1456106E+01 .1114838E+05 .1451418E+01 .1115743E+05 .1446648E+01 .1116656E+05 .1441941E+01 .1117578E+05 .1437189E+01 .1118487E+05 .1432610E+01 .1119405E+05 .1427790E+01 .1120331E+05 .1422876E+01 .1121245E+05 .1418740E+01 .1122168E+05 .1413546E+01 .1123098E+05 .1408856E+01 .1124017E+05 .1404290E+01 .1124951E+05 .1399685E+01 .1125880E+05 .1395006E+01 .1126817E+05 .1390236E+01 .1127755E+05 .1385646E+01 .1128682E+05 .1381390E+01 .1129624E+05 .1376596E+01 .1130560E+05 .1371654E+01 .1131505E+05 .1367242E+01 .1132452E+05 .1362544E+01 .1133393E+05 .1358360E+01 .1134343E+05 .1353479E+01 .1135294E+05 .1349326E+01 .1136247E+05 .1344309E+01 ifeffit-1.2.11d/examples/data/cu50k.chi0000644000175000017500000004144510771740461016532 0ustar segresegre# data : cu 50k, e0=8980, with standard # chi: skey ASCII of cu_050k.dat using skey ASCII of chi.dat # e0 = 8982.61; pre-edge range =[ -50.0 -200.0]; edge step = 2.248 # k range=[ .05 24.95]; k weight= 1.00; sills: dk1, dk2=[ .00 .00] # bkg r =[ .00 .98]; 1st shell r =[ .98 3.93]; 15 knots in spline # Cu foil, 50K, foil rolled and annealled by matt # 2-SI111 HC/2D= 1977.260 STPDEG=6400. STPMMZ= 40. FOCUS=F TRANSLT=F # E0= 8980.0 NREG= 3 NPTS= 619 NSCLRS= 3 EF= .0 # SRB= -197.6 -47.3 30.0 2381.3 # DEL= 10.020 .483 .050K # SEC= 1.000 1.000 1.000 # DETECTORSI0 I If # GAINS 8 7 10 # OFFSETS 51284 50016 48319 #--------------------------------------------------------------------- # k chi(k) .5000000E-01 -.1373473E+00 .1000000E+00 -.1385472E+00 .1500000E+00 -.1398657E+00 .2000000E+00 -.1413027E+00 .2500000E+00 -.1428583E+00 .3000000E+00 -.1443107E+00 .3500000E+00 -.1457293E+00 .4000000E+00 -.1476968E+00 .4500000E+00 -.1502134E+00 .5000000E+00 -.1532307E+00 .5500000E+00 -.1568598E+00 .6000000E+00 -.1615738E+00 .6500000E+00 -.1664501E+00 .7000000E+00 -.1718158E+00 .7500000E+00 -.1750129E+00 .8000000E+00 -.1716824E+00 .8500000E+00 -.1708404E+00 .9000000E+00 -.1728317E+00 .9500000E+00 -.1685513E+00 .1000000E+01 -.1605603E+00 .1050000E+01 -.1455110E+00 .1100000E+01 -.1199707E+00 .1150000E+01 -.1025738E+00 .1200000E+01 -.7100126E-01 .1250000E+01 -.3401849E-01 .1300000E+01 -.7703021E-02 .1350000E+01 .2221577E-01 .1400000E+01 .5599108E-01 .1450000E+01 .9266981E-01 .1500000E+01 .1163086E+00 .1550000E+01 .1289929E+00 .1600000E+01 .1214348E+00 .1650000E+01 .1053480E+00 .1700000E+01 .7923283E-01 .1750000E+01 .5306172E-01 .1800000E+01 .2583850E-01 .1850000E+01 .3294227E-02 .1900000E+01 -.8806702E-02 .1950000E+01 -.1317449E-01 .2000000E+01 -.3594001E-02 .2050000E+01 .2597370E-01 .2100000E+01 .5995317E-01 .2150000E+01 .9102094E-01 .2200000E+01 .1173967E+00 .2250000E+01 .1149577E+00 .2300000E+01 .9021449E-01 .2350000E+01 .6235322E-01 .2400000E+01 .2444875E-01 .2450000E+01 -.2467035E-02 .2500000E+01 -.2543914E-01 .2550000E+01 -.4734573E-01 .2600000E+01 -.6765157E-01 .2650000E+01 -.8067265E-01 .2700000E+01 -.8198205E-01 .2750000E+01 -.7857785E-01 .2800000E+01 -.7157140E-01 .2850000E+01 -.6234511E-01 .2900000E+01 -.4846246E-01 .2950000E+01 -.2719917E-01 .3000000E+01 -.7924671E-02 .3050000E+01 .9703336E-02 .3100000E+01 .3347130E-01 .3150000E+01 .5676650E-01 .3200000E+01 .7545155E-01 .3250000E+01 .8961082E-01 .3300000E+01 .9154496E-01 .3350000E+01 .7784574E-01 .3400000E+01 .5306018E-01 .3450000E+01 .2688404E-01 .3500000E+01 -.3561511E-02 .3550000E+01 -.2724013E-01 .3600000E+01 -.4410691E-01 .3650000E+01 -.5592334E-01 .3700000E+01 -.6023212E-01 .3750000E+01 -.5781109E-01 .3800000E+01 -.4887229E-01 .3850000E+01 -.3850289E-01 .3900000E+01 -.3329436E-01 .3950000E+01 -.3559315E-01 .4000000E+01 -.4065252E-01 .4050000E+01 -.4079034E-01 .4100000E+01 -.3181073E-01 .4150000E+01 -.1874843E-01 .4200000E+01 -.1140777E-01 .4250000E+01 -.1178031E-01 .4300000E+01 -.1290270E-01 .4350000E+01 -.7175583E-02 .4400000E+01 .5326905E-02 .4450000E+01 .1914873E-01 .4500000E+01 .2941122E-01 .4550000E+01 .3725428E-01 .4600000E+01 .4591906E-01 .4650000E+01 .5832948E-01 .4700000E+01 .7390428E-01 .4750000E+01 .8886880E-01 .4800000E+01 .9750342E-01 .4850000E+01 .9526309E-01 .4900000E+01 .8111326E-01 .4950000E+01 .5558423E-01 .5000000E+01 .2708264E-01 .5050000E+01 .4339289E-02 .5100000E+01 -.1462341E-01 .5150000E+01 -.2958837E-01 .5200000E+01 -.3554603E-01 .5250000E+01 -.3801666E-01 .5300000E+01 -.5043939E-01 .5350000E+01 -.7286413E-01 .5400000E+01 -.9323197E-01 .5450000E+01 -.1062440E+00 .5500000E+01 -.1070004E+00 .5550000E+01 -.9624653E-01 .5600000E+01 -.7863387E-01 .5650000E+01 -.5688295E-01 .5700000E+01 -.3263235E-01 .5750000E+01 -.1028414E-01 .5800000E+01 .3763798E-02 .5850000E+01 .6896460E-02 .5900000E+01 .8064627E-03 .5950000E+01 -.6244273E-02 .6000000E+01 -.7247293E-02 .6050000E+01 .1207384E-01 .6100000E+01 .5601417E-01 .6150000E+01 .1104234E+00 .6200000E+01 .1389394E+00 .6250000E+01 .1419614E+00 .6300000E+01 .1307840E+00 .6350000E+01 .1193851E+00 .6400000E+01 .1058628E+00 .6450000E+01 .8090971E-01 .6500000E+01 .4659121E-01 .6550000E+01 .3797703E-02 .6600000E+01 -.4153408E-01 .6650000E+01 -.8694696E-01 .6700000E+01 -.1263851E+00 .6750000E+01 -.1517921E+00 .6800000E+01 -.1560270E+00 .6850000E+01 -.1362077E+00 .6900000E+01 -.9869526E-01 .6950000E+01 -.5368800E-01 .7000000E+01 -.8738148E-02 .7050000E+01 .2223615E-01 .7100000E+01 .4072504E-01 .7150000E+01 .4175277E-01 .7200000E+01 .2756912E-01 .7250000E+01 .1345060E-01 .7300000E+01 .6300341E-02 .7350000E+01 .4635387E-02 .7400000E+01 -.4577389E-02 .7450000E+01 -.2054773E-01 .7500000E+01 -.2609746E-01 .7550000E+01 -.8816606E-02 .7600000E+01 .3158759E-01 .7650000E+01 .7690071E-01 .7700000E+01 .9722703E-01 .7750000E+01 .1026873E+00 .7800000E+01 .9917620E-01 .7850000E+01 .8579698E-01 .7900000E+01 .5750833E-01 .7950000E+01 .1944776E-01 .8000000E+01 -.1806754E-01 .8050000E+01 -.4774115E-01 .8100000E+01 -.6659779E-01 .8150001E+01 -.7596388E-01 .8200000E+01 -.7467979E-01 .8250000E+01 -.6097168E-01 .8300000E+01 -.4798817E-01 .8350000E+01 -.4472952E-01 .8400001E+01 -.4112409E-01 .8450000E+01 -.3612401E-01 .8500000E+01 -.3281989E-01 .8550000E+01 -.2598775E-01 .8600000E+01 -.1173270E-01 .8650001E+01 .3144266E-02 .8700000E+01 .1479400E-01 .8750000E+01 .2230675E-01 .8800000E+01 .2574294E-01 .8850000E+01 .2685795E-01 .8900001E+01 .3157799E-01 .8950000E+01 .3893869E-01 .9000000E+01 .4860476E-01 .9050000E+01 .5929116E-01 .9100000E+01 .5721494E-01 .9150001E+01 .4178312E-01 .9200000E+01 .2432500E-01 .9250000E+01 .5509154E-02 .9300000E+01 -.1325202E-01 .9350000E+01 -.2435435E-01 .9400001E+01 -.2391623E-01 .9450000E+01 -.1511056E-01 .9500000E+01 -.5081474E-02 .9550000E+01 -.4374009E-02 .9600000E+01 -.1561357E-01 .9650001E+01 -.3548410E-01 .9700000E+01 -.4914499E-01 .9750000E+01 -.4318584E-01 .9800000E+01 -.2968230E-01 .9850000E+01 -.2469065E-01 .9900001E+01 -.1969492E-01 .9950000E+01 -.1107137E-01 .1000000E+02 -.4422685E-02 .1005000E+02 .1068100E-02 .1010000E+02 .6973122E-02 .1015000E+02 .1239259E-01 .1020000E+02 .1788531E-01 .1025000E+02 .2242973E-01 .1030000E+02 .2571689E-01 .1035000E+02 .2850609E-01 .1040000E+02 .3124149E-01 .1045000E+02 .3268456E-01 .1050000E+02 .2988279E-01 .1055000E+02 .2046726E-01 .1060000E+02 .5816531E-02 .1065000E+02 -.9172712E-02 .1070000E+02 -.1698523E-01 .1075000E+02 -.1735701E-01 .1080000E+02 -.1298274E-01 .1085000E+02 -.5189053E-02 .1090000E+02 .1887026E-02 .1095000E+02 .4691814E-02 .1100000E+02 .2783815E-02 .1105000E+02 -.5220474E-02 .1110000E+02 -.1626420E-01 .1115000E+02 -.2080086E-01 .1120000E+02 -.1688000E-01 .1125000E+02 -.1399821E-01 .1130000E+02 -.1624259E-01 .1135000E+02 -.1818730E-01 .1140000E+02 -.1771323E-01 .1145000E+02 -.1376355E-01 .1150000E+02 -.6419456E-02 .1155000E+02 .1407835E-02 .1160000E+02 .9180414E-02 .1165000E+02 .1886954E-01 .1170000E+02 .2857201E-01 .1175000E+02 .3522836E-01 .1180000E+02 .3683194E-01 .1185000E+02 .3221991E-01 .1190000E+02 .1902697E-01 .1195000E+02 .1576702E-02 .1200000E+02 -.9702088E-02 .1205000E+02 -.1288875E-01 .1210000E+02 -.1240199E-01 .1215000E+02 -.1145821E-01 .1220000E+02 -.9862226E-02 .1225000E+02 -.6681990E-02 .1230000E+02 -.3514326E-02 .1235000E+02 -.3075248E-02 .1240000E+02 -.3710755E-02 .1245000E+02 -.3338058E-02 .1250000E+02 -.3465846E-02 .1255000E+02 -.7339295E-02 .1260000E+02 -.1087871E-01 .1265000E+02 -.1057986E-01 .1270000E+02 -.9330069E-02 .1275000E+02 -.6534229E-02 .1280000E+02 -.2584970E-02 .1285000E+02 -.1576561E-03 .1290000E+02 .1246487E-02 .1295000E+02 .4078683E-02 .1300000E+02 .9126237E-02 .1305000E+02 .1231163E-01 .1310000E+02 .1206880E-01 .1315000E+02 .1033724E-01 .1320000E+02 .8214359E-02 .1325000E+02 .7031883E-02 .1330000E+02 .5864553E-02 .1335000E+02 .2576723E-02 .1340000E+02 -.9329307E-03 .1345000E+02 -.2637290E-02 .1350000E+02 -.3093108E-02 .1355000E+02 -.1859079E-02 .1360000E+02 -.9202274E-03 .1365000E+02 -.3059452E-02 .1370000E+02 -.4690180E-02 .1375000E+02 -.3764999E-02 .1380000E+02 -.2833592E-02 .1385000E+02 -.3758422E-02 .1390000E+02 -.5215503E-02 .1395000E+02 -.5547415E-02 .1400000E+02 -.6669331E-02 .1405000E+02 -.7083325E-02 .1410000E+02 -.5135714E-02 .1415000E+02 -.2619548E-02 .1420000E+02 .1328048E-02 .1425000E+02 .4703346E-02 .1430000E+02 .6110589E-02 .1435000E+02 .7035083E-02 .1440000E+02 .6671266E-02 .1445000E+02 .3940825E-02 .1450000E+02 .7525507E-03 .1455000E+02 .1286608E-03 .1460000E+02 .1784026E-02 .1465000E+02 .3632162E-02 .1470000E+02 .5066263E-02 .1475000E+02 .5591076E-02 .1480000E+02 .3876101E-02 .1485000E+02 .1102979E-02 .1490000E+02 -.1354840E-02 .1495000E+02 -.3213777E-02 .1500000E+02 -.3660755E-02 .1505000E+02 -.3366165E-02 .1510000E+02 -.3611137E-02 .1515000E+02 -.3916792E-02 .1520000E+02 -.4004172E-02 .1525000E+02 -.4134214E-02 .1530000E+02 -.3439074E-02 .1535000E+02 -.2717305E-02 .1540000E+02 -.2476060E-02 .1545000E+02 -.1133123E-02 .1550000E+02 .1047500E-02 .1555000E+02 .2703721E-02 .1560000E+02 .3508135E-02 .1565000E+02 .3593689E-02 .1570000E+02 .3246494E-02 .1575000E+02 .2855977E-02 .1580000E+02 .2712670E-02 .1585000E+02 .2417940E-02 .1590000E+02 .1345247E-02 .1595000E+02 .1631669E-03 .1600000E+02 -.4393835E-03 .1605000E+02 -.3340441E-03 .1610000E+02 .4026809E-03 .1615000E+02 .1402345E-02 .1620000E+02 .1255677E-02 .1625000E+02 .7098880E-04 .1630000E+02 .1113958E-03 .1635000E+02 .3648766E-03 .1640000E+02 -.3832370E-03 .1645000E+02 -.1355616E-02 .1650000E+02 -.2083110E-02 .1655000E+02 -.2271540E-02 .1660000E+02 -.2345033E-02 .1665000E+02 -.2755243E-02 .1670000E+02 -.2981608E-02 .1675000E+02 -.2658683E-02 .1680000E+02 -.1490564E-02 .1685000E+02 .6767939E-03 .1690000E+02 .2141647E-02 .1695000E+02 .2470854E-02 .1700000E+02 .2133694E-02 .1705000E+02 .1723372E-02 .1710000E+02 .1801946E-02 .1715000E+02 .1651682E-02 .1720000E+02 .1194434E-02 .1725000E+02 .5769385E-03 .1730000E+02 .1161263E-04 .1735000E+02 -.3582950E-03 .1740000E+02 -.3450947E-03 .1745000E+02 -.3577838E-03 .1750000E+02 -.5369237E-03 .1755000E+02 -.1033052E-03 .1760000E+02 .3643260E-03 .1765000E+02 .9596911E-04 .1770000E+02 -.3779797E-03 .1775000E+02 -.1087858E-02 .1780000E+02 -.1685909E-02 .1785000E+02 -.1860743E-02 .1790000E+02 -.1870087E-02 .1795000E+02 -.1758675E-02 .1800000E+02 -.1344647E-02 .1805000E+02 -.6272682E-03 .1810000E+02 .1402568E-03 .1815000E+02 .6479638E-03 .1820000E+02 .6744835E-03 .1825000E+02 .3013756E-03 .1830000E+02 .3334470E-03 .1835000E+02 .6556684E-03 .1840000E+02 .7282190E-03 .1845000E+02 .8237491E-03 .1850000E+02 .8629845E-03 .1855000E+02 .8852505E-03 .1860000E+02 .1024989E-02 .1865000E+02 .9828657E-03 .1870000E+02 .8316256E-03 .1875000E+02 .5353561E-03 .1880000E+02 -.1101263E-04 .1885000E+02 -.3589611E-03 .1890000E+02 -.5553787E-03 .1895000E+02 -.6166233E-03 .1900000E+02 -.3674366E-03 .1905000E+02 -.1223726E-03 .1910000E+02 -.2356792E-03 .1915000E+02 -.3599905E-03 .1920000E+02 -.4873149E-03 .1925000E+02 -.5821830E-03 .1930000E+02 -.4928958E-03 .1935000E+02 -.7505337E-04 .1940000E+02 .4790725E-03 .1945000E+02 .6072889E-03 .1950000E+02 .2617836E-03 .1955000E+02 .1974667E-03 .1960000E+02 .3622607E-03 .1965000E+02 .2887660E-03 .1970000E+02 .4498107E-03 .1975000E+02 .7517941E-03 .1980000E+02 .7994054E-03 .1985000E+02 .9648886E-03 .1990000E+02 .9707313E-03 .1995000E+02 .1023022E-02 .2000000E+02 .1049486E-02 .2005000E+02 .9456033E-03 .2010000E+02 .7234544E-03 .2015000E+02 .5791442E-03 .2020000E+02 .5216326E-03 .2025000E+02 .4644161E-03 .2030000E+02 .3963706E-03 .2035000E+02 .1300610E-03 .2040000E+02 -.6529264E-04 .2045000E+02 -.1557122E-03 .2050000E+02 -.8156938E-04 .2055000E+02 -.2855964E-04 .2060000E+02 .7041685E-04 .2065000E+02 .3190914E-03 .2070000E+02 .3058628E-03 .2075000E+02 .2122486E-03 .2080000E+02 .2631431E-03 .2085000E+02 .4127413E-03 .2090000E+02 .5292312E-03 .2095000E+02 .4814301E-03 .2100000E+02 .4503530E-03 .2105000E+02 .3052602E-03 .2110000E+02 .2296397E-03 .2115000E+02 .2473445E-03 .2120000E+02 .2842408E-03 .2125000E+02 .3572540E-03 .2130000E+02 .4301490E-03 .2135000E+02 .4742469E-03 .2140000E+02 .4425100E-03 .2145000E+02 .4308498E-03 .2150000E+02 .4244022E-03 .2155000E+02 .2666785E-03 .2160000E+02 .8028274E-04 .2165000E+02 -.1415160E-03 .2170000E+02 -.1734672E-03 .2175000E+02 -.2335550E-03 .2180000E+02 -.3500146E-03 .2185000E+02 -.1679994E-03 .2190000E+02 .4578833E-04 .2195000E+02 .1446299E-03 .2200000E+02 .1380782E-03 .2205000E+02 .8676327E-04 .2210000E+02 .8738522E-05 .2215000E+02 .2304857E-04 .2220000E+02 -.1256751E-04 .2225000E+02 .6353363E-04 .2230000E+02 .6833776E-04 .2235000E+02 .9754930E-04 .2240000E+02 -.7874358E-04 .2245000E+02 -.5683250E-04 .2250000E+02 -.1377729E-03 .2255000E+02 -.1086958E-03 .2260000E+02 -.5159648E-04 .2265000E+02 .7006065E-04 .2270000E+02 .7567015E-04 .2275000E+02 .3336122E-04 .2280000E+02 -.2980854E-04 .2285000E+02 -.4216656E-04 .2290000E+02 -.1402017E-03 .2295000E+02 -.1701444E-03 .2300000E+02 -.2528941E-03 .2305000E+02 -.3432574E-03 .2310000E+02 -.3672778E-03 .2315000E+02 -.2839287E-03 .2320000E+02 -.1809807E-03 .2325000E+02 -.1884633E-03 .2330000E+02 -.8833969E-04 .2335000E+02 -.7998255E-05 .2340000E+02 .3077391E-04 .2345000E+02 .1572045E-03 .2350000E+02 -.1939514E-04 .2355000E+02 .1213723E-03 .2360000E+02 .3978334E-03 .2365000E+02 .9115856E-04 .2370000E+02 .1342246E-03 .2375000E+02 .2151591E-03 .2380000E+02 .1802441E-03 .2385000E+02 .1422391E-03 .2390000E+02 .1291676E-03 .2395000E+02 .2552714E-03 .2400000E+02 .2543491E-03 .2405000E+02 .1982052E-03 .2410000E+02 .1392209E-03 .2415000E+02 .8586688E-04 .2420000E+02 .1993609E-03 .2425000E+02 .6246083E-04 .2430000E+02 .1804493E-04 .2435000E+02 -.3233736E-05 .2440000E+02 -.4081970E-04 .2445000E+02 .8808061E-06 .2450000E+02 -.4753399E-04 .2455000E+02 -.2077237E-03 .2460000E+02 -.1311700E-03 .2465000E+02 -.2838743E-03 .2470000E+02 -.3943705E-03 .2475000E+02 -.4185295E-03 .2480000E+02 -.5943711E-03 .2485000E+02 -.6805871E-03 .2490000E+02 -.7854276E-03 .2495000E+02 -.8393240E-03 ifeffit-1.2.11d/examples/data/cu_150k.xmu0000644000175000017500000002401110771740461017006 0ustar segresegre# data : cu foil 150k, foil rolled and annealled by matt # ---------------------------------------------------------------------- # energy xmu 0.8904377E+04 -.2850246E-03 0.8914368E+04 0.8726314E-05 0.8924426E+04 0.3105727E-03 0.8934421E+04 0.9585278E-03 0.8934894E+04 0.1138101E-02 0.8935366E+04 0.1139678E-02 0.8935882E+04 0.1204547E-02 0.8936354E+04 0.1243973E-02 0.8936826E+04 0.1244288E-02 0.8937299E+04 0.1433218E-02 0.8937858E+04 0.1431852E-02 0.8938288E+04 0.1430590E-02 0.8938761E+04 0.1463603E-02 0.8939233E+04 0.1536672E-02 0.8939792E+04 0.1537934E-02 0.8940266E+04 0.1613948E-02 0.8940696E+04 0.1778696E-02 0.8941169E+04 0.1691854E-02 0.8941728E+04 0.1742529E-02 0.8942201E+04 0.1803088E-02 0.8942675E+04 0.1754305E-02 0.8943147E+04 0.1813391E-02 0.8943621E+04 0.2153823E-02 0.8944095E+04 0.2086115E-02 0.8944568E+04 0.2262218E-02 0.8945042E+04 0.2225105E-02 0.8945516E+04 0.2308583E-02 0.8946032E+04 0.2266003E-02 0.8946506E+04 0.2319833E-02 0.8946979E+04 0.2391536E-02 0.8947453E+04 0.2399316E-02 0.8947970E+04 0.2573316E-02 0.8948444E+04 0.2679399E-02 0.8948918E+04 0.2665626E-02 0.8949392E+04 0.2895244E-02 0.8949866E+04 0.2943817E-02 0.8950383E+04 0.3010473E-02 0.8950857E+04 0.3140422E-02 0.8951332E+04 0.3273945E-02 0.8951806E+04 0.3380553E-02 0.8952280E+04 0.3578315E-02 0.8952798E+04 0.3737912E-02 0.8953272E+04 0.3699432E-02 0.8953747E+04 0.3831062E-02 0.8954222E+04 0.3965847E-02 0.8954738E+04 0.4059734E-02 0.8955213E+04 0.4254446E-02 0.8955688E+04 0.4443061E-02 0.8956163E+04 0.4578371E-02 0.8956638E+04 0.4658591E-02 0.8957155E+04 0.4873594E-02 0.8957631E+04 0.5111307E-02 0.8958105E+04 0.5169132E-02 0.8958581E+04 0.5523126E-02 0.8959056E+04 0.5579900E-02 0.8959531E+04 0.5976894E-02 0.8960049E+04 0.6028727E-02 0.8960524E+04 0.6403748E-02 0.8961000E+04 0.6567866E-02 0.8961475E+04 0.6865086E-02 0.8961950E+04 0.7091970E-02 0.8962469E+04 0.7537223E-02 0.8962944E+04 0.7831289E-02 0.8963420E+04 0.8178869E-02 0.8963896E+04 0.8585642E-02 0.8964371E+04 0.8932592E-02 0.8964890E+04 0.9527558E-02 0.8965365E+04 0.9840338E-02 0.8965842E+04 0.1037170E-01 0.8966317E+04 0.1080349E-01 0.8966793E+04 0.1155007E-01 0.8967270E+04 0.1217216E-01 0.8967788E+04 0.1308485E-01 0.8968265E+04 0.1374857E-01 0.8968741E+04 0.1433471E-01 0.8969217E+04 0.1547544E-01 0.8969693E+04 0.1660061E-01 0.8970170E+04 0.1779653E-01 0.8970688E+04 0.1914112E-01 0.8971165E+04 0.2136223E-01 0.8971642E+04 0.2265320E-01 0.8972118E+04 0.2461567E-01 0.8972595E+04 0.2689829E-01 0.8973071E+04 0.3024109E-01 0.8973592E+04 0.3485101E-01 0.8974068E+04 0.3948573E-01 0.8974545E+04 0.4651914E-01 0.8975021E+04 0.5583674E-01 0.8975499E+04 0.6572565E-01 0.8975976E+04 0.8132894E-01 0.8976452E+04 0.1188066E+00 0.8977016E+04 0.1940368E+00 0.8977493E+04 0.2822425E+00 0.8977970E+04 0.3760500E+00 0.8978404E+04 0.4338930E+00 0.8978881E+04 0.4705176E+00 0.8979358E+04 0.4842958E+00 0.8979836E+04 0.4851528E+00 0.8980399E+04 0.4720119E+00 0.8980834E+04 0.4650247E+00 0.8981312E+04 0.4573942E+00 0.8981789E+04 0.4628778E+00 0.8982267E+04 0.4743689E+00 0.8982744E+04 0.4909787E+00 0.8983222E+04 0.5163265E+00 0.8983699E+04 0.5342217E+00 0.8984221E+04 0.5537962E+00 0.8984698E+04 0.5685183E+00 0.8985177E+04 0.5955791E+00 0.8985654E+04 0.6142486E+00 0.8986133E+04 0.6418195E+00 0.8986610E+04 0.6696226E+00 0.8987089E+04 0.7150658E+00 0.8987567E+04 0.7543312E+00 0.8988089E+04 0.7991073E+00 0.8988566E+04 0.8480088E+00 0.8989045E+04 0.8836795E+00 0.8989523E+04 0.9157425E+00 0.8990002E+04 0.9581174E+00 0.8990480E+04 0.9957231E+00 0.8990959E+04 0.1024997E+01 0.8991438E+04 0.1045592E+01 0.8992003E+04 0.1051450E+01 0.8992481E+04 0.1046245E+01 0.8992917E+04 0.1037152E+01 0.8993396E+04 0.1018508E+01 0.8993875E+04 0.1009742E+01 0.8994354E+04 0.9837348E+00 0.8994833E+04 0.9707072E+00 0.8995312E+04 0.9574713E+00 0.8995791E+04 0.9458168E+00 0.8996270E+04 0.9404431E+00 0.8996792E+04 0.9374447E+00 0.8997271E+04 0.9411120E+00 0.8997751E+04 0.9490407E+00 0.8998230E+04 0.9676145E+00 0.8998710E+04 0.9766868E+00 0.8999189E+04 0.1012650E+01 0.8999669E+04 0.1027472E+01 0.9000148E+04 0.1045820E+01 0.9000628E+04 0.1063003E+01 0.9001107E+04 0.1072831E+01 0.9001587E+04 0.1071998E+01 0.9002154E+04 0.1061513E+01 0.9002591E+04 0.1050908E+01 0.9003070E+04 0.1035810E+01 0.9003550E+04 0.1021879E+01 0.9004030E+04 0.1006236E+01 0.9004510E+04 0.9869754E+00 0.9004990E+04 0.9745494E+00 0.9005471E+04 0.9627140E+00 0.9005950E+04 0.9507703E+00 0.9006431E+04 0.9412103E+00 0.9006911E+04 0.9326335E+00 0.9007391E+04 0.9224309E+00 0.9007871E+04 0.9157560E+00 0.9008439E+04 0.9025328E+00 0.9008920E+04 0.8987371E+00 0.9009400E+04 0.8950848E+00 0.9009838E+04 0.8944842E+00 0.9010317E+04 0.8949685E+00 0.9011454E+04 0.9020438E+00 0.9012503E+04 0.9084551E+00 0.9013640E+04 0.9218667E+00 0.9014777E+04 0.9371113E+00 0.9015915E+04 0.9586273E+00 0.9017096E+04 0.9804545E+00 0.9018321E+04 0.1000979E+01 0.9019504E+04 0.1023643E+01 0.9020774E+04 0.1046339E+01 0.9022001E+04 0.1063258E+01 0.9023271E+04 0.1073492E+01 0.9024586E+04 0.1069635E+01 0.9025901E+04 0.1050523E+01 0.9027218E+04 0.1024006E+01 0.9028578E+04 0.9998387E+00 0.9029938E+04 0.9732829E+00 0.9031343E+04 0.9550736E+00 0.9032748E+04 0.9422832E+00 0.9034154E+04 0.9354880E+00 0.9035604E+04 0.9360862E+00 0.9037099E+04 0.9429586E+00 0.9038594E+04 0.9518635E+00 0.9040089E+04 0.9591606E+00 0.9041585E+04 0.9586281E+00 0.9043126E+04 0.9542525E+00 0.9044755E+04 0.9539353E+00 0.9046297E+04 0.9602759E+00 0.9047883E+04 0.9723247E+00 0.9049514E+04 0.9798746E+00 0.9051146E+04 0.9802323E+00 0.9052777E+04 0.9797023E+00 0.9054454E+04 0.9846100E+00 0.9056176E+04 0.9960462E+00 0.9057898E+04 0.1009416E+01 0.9059622E+04 0.1018625E+01 0.9061346E+04 0.1025833E+01 0.9063114E+04 0.1033986E+01 0.9064928E+04 0.1044479E+01 0.9066742E+04 0.1058282E+01 0.9068557E+04 0.1071725E+01 0.9070417E+04 0.1078210E+01 0.9072277E+04 0.1074147E+01 0.9074140E+04 0.1061350E+01 0.9076047E+04 0.1035255E+01 0.9077998E+04 0.1010597E+01 0.9079906E+04 0.9899678E+00 0.9081904E+04 0.9731535E+00 0.9083859E+04 0.9597905E+00 0.9085859E+04 0.9544396E+00 0.9087904E+04 0.9508229E+00 0.9089906E+04 0.9374591E+00 0.9091998E+04 0.9169598E+00 0.9094046E+04 0.8982905E+00 0.9096140E+04 0.8887743E+00 0.9098279E+04 0.8914091E+00 0.9100374E+04 0.9026864E+00 0.9102561E+04 0.9191025E+00 0.9104702E+04 0.9409444E+00 0.9106891E+04 0.9599401E+00 0.9109124E+04 0.9760680E+00 0.9111359E+04 0.9840099E+00 0.9113595E+04 0.9837798E+00 0.9115877E+04 0.9782224E+00 0.9118159E+04 0.9754200E+00 0.9120444E+04 0.9836646E+00 0.9122773E+04 0.1011346E+01 0.9125105E+04 0.1051583E+01 0.9127527E+04 0.1084496E+01 0.9129861E+04 0.1097050E+01 0.9132241E+04 0.1093333E+01 0.9134668E+04 0.1082557E+01 0.9137096E+04 0.1069962E+01 0.9139569E+04 0.1052849E+01 0.9142045E+04 0.1028225E+01 0.9144521E+04 0.9931400E+00 0.9147045E+04 0.9566454E+00 0.9149569E+04 0.9182795E+00 0.9152140E+04 0.8801582E+00 0.9154713E+04 0.8518628E+00 0.9157286E+04 0.8383830E+00 0.9159907E+04 0.8442038E+00 0.9162529E+04 0.8703850E+00 0.9165153E+04 0.9044260E+00 0.9167823E+04 0.9410277E+00 0.9170542E+04 0.9687940E+00 0.9173215E+04 0.9848469E+00 0.9175936E+04 0.9895651E+00 0.9178703E+04 0.9827247E+00 0.9181474E+04 0.9724739E+00 0.9184244E+04 0.9656297E+00 0.9187018E+04 0.9629228E+00 0.9189837E+04 0.9589218E+00 0.9192705E+04 0.9481909E+00 0.9195528E+04 0.9403569E+00 0.9198490E+04 0.9485641E+00 0.9201318E+04 0.9735138E+00 0.9204284E+04 0.1004944E+01 0.9207161E+04 0.1023438E+01 0.9210131E+04 0.1027037E+01 0.9213103E+04 0.1023993E+01 0.9216077E+04 0.1014406E+01 0.9219099E+04 0.9972209E+00 0.9222122E+04 0.9703062E+00 0.9225193E+04 0.9410914E+00 0.9228268E+04 0.9138968E+00 0.9231297E+04 0.8951751E+00 0.9234467E+04 0.8830231E+00 0.9237547E+04 0.8799598E+00 0.9240721E+04 0.8861941E+00 0.9243897E+04 0.8949196E+00 0.9247075E+04 0.8985146E+00 0.9250257E+04 0.8995503E+00 0.9253439E+04 0.9028817E+00 0.9256672E+04 0.9055168E+00 0.9259951E+04 0.9098957E+00 0.9263233E+04 0.9180834E+00 0.9266519E+04 0.9277955E+00 0.9269806E+04 0.9352860E+00 0.9273142E+04 0.9402648E+00 0.9276526E+04 0.9430841E+00 0.9279867E+04 0.9445433E+00 0.9283257E+04 0.9473667E+00 0.9286696E+04 0.9511650E+00 0.9290091E+04 0.9551927E+00 0.9293535E+04 0.9598542E+00 0.9297028E+04 0.9589250E+00 0.9300478E+04 0.9491588E+00 0.9304022E+04 0.9364284E+00 0.9307524E+04 0.9238093E+00 0.9311074E+04 0.9095426E+00 0.9314628E+04 0.8984793E+00 0.9318230E+04 0.8949720E+00 0.9321790E+04 0.8968365E+00 0.9325446E+04 0.9007007E+00 0.9329058E+04 0.9003751E+00 0.9332719E+04 0.8929917E+00 0.9336384E+04 0.8811103E+00 0.9340098E+04 0.8694440E+00 0.9343862E+04 0.8698696E+00 0.9347536E+04 0.8771672E+00 0.9351307E+04 0.8805297E+00 0.9355080E+04 0.8822187E+00 0.9358857E+04 0.8867533E+00 0.9362637E+04 0.8902957E+00 0.9366515E+04 0.8933154E+00 0.9370396E+04 0.8966194E+00 0.9374186E+04 0.8994826E+00 0.9378073E+04 0.9020333E+00 0.9382012E+04 0.9044330E+00 0.9385906E+04 0.9057776E+00 0.9389851E+04 0.9063253E+00 0.9393800E+04 0.9072086E+00 0.9397799E+04 0.9066880E+00 0.9401802E+04 0.9028075E+00 ifeffit-1.2.11d/examples/data/cu10k.chi0000644000175000017500000004143310771740461016523 0ustar segresegre# data : cu 10k, e0=8980, with standard # chi: skey ASCII of cu_010k.dat using skey ASCII of chi.dat # e0 = 8982.61; pre-edge range =[ -50.0 -200.0]; edge step = 2.257 # k range=[ .05 24.95]; k weight= 1.00; sills: dk1, dk2=[ .00 .00] # bkg r =[ .00 .98]; 1st shell r =[ .98 3.93]; 15 knots in spline # Cu foil, 10K, foil rolled and annealled by matt # 2-SI111 HC/2D= 1977.260 STPDEG=6400. STPMMZ= 40. FOCUS=F TRANSLT=F # E0= 8980.0 NREG= 3 NPTS= 611 NSCLRS= 3 EF= .0 # SRB= -193.7 -43.5 30.0 2381.3 # DEL= 10.020 .483 .050K # SEC= 1.000 1.000 1.000 # DETECTORSI0 I If # GAINS 8 7 10 # OFFSETS 51284 50016 48319 #--------------------------------------------------------------------- # k chi(k) .0000000E-01 -.0000000 .5000000E-01 -.1383775E+00 .1000000E+00 -.1397935E+00 .1500000E+00 -.1412636E+00 .2000000E+00 -.1427878E+00 .2500000E+00 -.1443661E+00 .3000000E+00 -.1457561E+00 .3500000E+00 -.1469721E+00 .4000000E+00 -.1487659E+00 .4500000E+00 -.1511373E+00 .5000000E+00 -.1540712E+00 .5500000E+00 -.1576023E+00 .6000000E+00 -.1621443E+00 .6500000E+00 -.1669036E+00 .7000000E+00 -.1723104E+00 .7500000E+00 -.1756163E+00 .8000000E+00 -.1719365E+00 .8500000E+00 -.1712734E+00 .9000000E+00 -.1738329E+00 .9500000E+00 -.1679564E+00 .1000000E+01 -.1598812E+00 .1050000E+01 -.1456769E+00 .1100000E+01 -.1196842E+00 .1150000E+01 -.1022159E+00 .1200000E+01 -.7008255E-01 .1250000E+01 -.3362218E-01 .1300000E+01 -.6600451E-02 .1350000E+01 .1926758E-01 .1400000E+01 .5699854E-01 .1450000E+01 .9637135E-01 .1500000E+01 .1159362E+00 .1550000E+01 .1290990E+00 .1600000E+01 .1215430E+00 .1650000E+01 .1056554E+00 .1700000E+01 .7974499E-01 .1750000E+01 .5288013E-01 .1800000E+01 .2516026E-01 .1850000E+01 .3285889E-02 .1900000E+01 -.8817454E-02 .1950000E+01 -.1296393E-01 .2000000E+01 -.3470576E-02 .2050000E+01 .2730633E-01 .2100000E+01 .5706001E-01 .2150000E+01 .9151719E-01 .2200000E+01 .1174979E+00 .2250000E+01 .1158764E+00 .2300000E+01 .8783582E-01 .2350000E+01 .5923801E-01 .2400000E+01 .2562321E-01 .2450000E+01 -.1052973E-02 .2500000E+01 -.2527875E-01 .2550000E+01 -.4727164E-01 .2600000E+01 -.6757082E-01 .2650000E+01 -.8069972E-01 .2700000E+01 -.8191480E-01 .2750000E+01 -.7843926E-01 .2800000E+01 -.7160391E-01 .2850000E+01 -.6250659E-01 .2900000E+01 -.4805966E-01 .2950000E+01 -.2685392E-01 .3000000E+01 -.7752429E-02 .3050000E+01 .9680118E-02 .3100000E+01 .3345646E-01 .3150000E+01 .5682700E-01 .3200000E+01 .7538930E-01 .3250000E+01 .8970851E-01 .3300000E+01 .9150992E-01 .3350000E+01 .7859694E-01 .3400000E+01 .5326243E-01 .3450000E+01 .2725139E-01 .3500000E+01 -.3477860E-02 .3550000E+01 -.2765691E-01 .3600000E+01 -.4432994E-01 .3650000E+01 -.5623438E-01 .3700000E+01 -.6056888E-01 .3750000E+01 -.5814307E-01 .3800000E+01 -.4907626E-01 .3850000E+01 -.3856254E-01 .3900000E+01 -.3328344E-01 .3950000E+01 -.3554817E-01 .4000000E+01 -.4071434E-01 .4050000E+01 -.4080682E-01 .4100000E+01 -.3181461E-01 .4150000E+01 -.1856331E-01 .4200000E+01 -.1130703E-01 .4250000E+01 -.1176931E-01 .4300000E+01 -.1274962E-01 .4350000E+01 -.7110970E-02 .4400000E+01 .5224810E-02 .4450000E+01 .1905018E-01 .4500000E+01 .2932245E-01 .4550000E+01 .3724153E-01 .4600000E+01 .4588462E-01 .4650000E+01 .5829988E-01 .4700000E+01 .7400507E-01 .4750000E+01 .8933779E-01 .4800000E+01 .9806488E-01 .4850000E+01 .9565875E-01 .4900000E+01 .8144622E-01 .4950000E+01 .5581723E-01 .5000000E+01 .2703659E-01 .5050000E+01 .4069182E-02 .5100000E+01 -.1497740E-01 .5150000E+01 -.2991942E-01 .5200000E+01 -.3594276E-01 .5250000E+01 -.3805383E-01 .5300000E+01 -.5048186E-01 .5350000E+01 -.7333476E-01 .5400000E+01 -.9380445E-01 .5450000E+01 -.1068175E+00 .5500000E+01 -.1074960E+00 .5550000E+01 -.9653199E-01 .5600000E+01 -.7903270E-01 .5650000E+01 -.5710168E-01 .5700000E+01 -.3287863E-01 .5750000E+01 -.1030234E-01 .5800000E+01 .4130356E-02 .5850000E+01 .7389313E-02 .5900000E+01 .1116835E-02 .5950000E+01 -.6675890E-02 .6000000E+01 -.7719924E-02 .6050000E+01 .1125391E-01 .6100000E+01 .5561288E-01 .6150000E+01 .1117689E+00 .6200000E+01 .1407647E+00 .6250000E+01 .1433899E+00 .6300000E+01 .1318386E+00 .6350000E+01 .1202316E+00 .6400000E+01 .1071632E+00 .6450000E+01 .8204786E-01 .6500000E+01 .4754184E-01 .6550000E+01 .4471960E-02 .6600000E+01 -.4133052E-01 .6650000E+01 -.8782563E-01 .6700000E+01 -.1279483E+00 .6750000E+01 -.1537933E+00 .6800000E+01 -.1581026E+00 .6850000E+01 -.1380537E+00 .6900000E+01 -.1002375E+00 .6950000E+01 -.5495242E-01 .7000000E+01 -.9061703E-02 .7050000E+01 .2285072E-01 .7100000E+01 .4218880E-01 .7150000E+01 .4334857E-01 .7200000E+01 .2883500E-01 .7250000E+01 .1382003E-01 .7300000E+01 .6197813E-02 .7350000E+01 .4641260E-02 .7400000E+01 -.4739281E-02 .7450000E+01 -.2161755E-01 .7500000E+01 -.2770921E-01 .7550000E+01 -.1063968E-01 .7600000E+01 .3066137E-01 .7650000E+01 .7753827E-01 .7700000E+01 .9885249E-01 .7750000E+01 .1045755E+00 .7800000E+01 .1015250E+00 .7850000E+01 .8789700E-01 .7900000E+01 .5899274E-01 .7950000E+01 .2001424E-01 .8000000E+01 -.1829298E-01 .8050000E+01 -.4883868E-01 .8100000E+01 -.6769711E-01 .8150001E+01 -.7697316E-01 .8200000E+01 -.7581326E-01 .8250000E+01 -.6187385E-01 .8300000E+01 -.4823180E-01 .8350000E+01 -.4510459E-01 .8400001E+01 -.4178999E-01 .8450000E+01 -.3653512E-01 .8500000E+01 -.3349934E-01 .8550000E+01 -.2691919E-01 .8600000E+01 -.1230509E-01 .8650001E+01 .3199878E-02 .8700000E+01 .1517456E-01 .8750000E+01 .2281413E-01 .8800000E+01 .2616361E-01 .8850000E+01 .2694207E-01 .8900001E+01 .3159564E-01 .8950000E+01 .3926054E-01 .9000000E+01 .4945212E-01 .9050000E+01 .6096633E-01 .9100000E+01 .5895486E-01 .9150001E+01 .4265191E-01 .9200000E+01 .2448285E-01 .9250000E+01 .5272062E-02 .9300000E+01 -.1412144E-01 .9350000E+01 -.2536685E-01 .9400001E+01 -.2461558E-01 .9450000E+01 -.1545309E-01 .9500000E+01 -.4596920E-02 .9550000E+01 -.3555518E-02 .9600000E+01 -.1529525E-01 .9650001E+01 -.3605214E-01 .9700000E+01 -.5071926E-01 .9750000E+01 -.4447481E-01 .9800000E+01 -.3020107E-01 .9850000E+01 -.2510318E-01 .9900001E+01 -.1995962E-01 .9950000E+01 -.1080466E-01 .1000000E+02 -.4239851E-02 .1005000E+02 .1141393E-02 .1010000E+02 .6939800E-02 .1015000E+02 .1258833E-01 .1020000E+02 .1799675E-01 .1025000E+02 .2272578E-01 .1030000E+02 .2622529E-01 .1035000E+02 .2911744E-01 .1040000E+02 .3186119E-01 .1045000E+02 .3335929E-01 .1050000E+02 .3088639E-01 .1055000E+02 .2137249E-01 .1060000E+02 .5780198E-02 .1065000E+02 -.9871298E-02 .1070000E+02 -.1759854E-01 .1075000E+02 -.1791152E-01 .1080000E+02 -.1334602E-01 .1085000E+02 -.5141375E-02 .1090000E+02 .2438772E-02 .1095000E+02 .5405624E-02 .1100000E+02 .3623366E-02 .1105000E+02 -.4781050E-02 .1110000E+02 -.1684579E-01 .1115000E+02 -.2189944E-01 .1120000E+02 -.1739508E-01 .1125000E+02 -.1392352E-01 .1130000E+02 -.1640823E-01 .1135000E+02 -.1879141E-01 .1140000E+02 -.1845424E-01 .1145000E+02 -.1464169E-01 .1150000E+02 -.7167181E-02 .1155000E+02 .8374886E-03 .1160000E+02 .9092168E-02 .1165000E+02 .1916609E-01 .1170000E+02 .2955117E-01 .1175000E+02 .3668137E-01 .1180000E+02 .3855209E-01 .1185000E+02 .3383944E-01 .1190000E+02 .1998389E-01 .1195000E+02 .1079370E-02 .1200000E+02 -.1089990E-01 .1205000E+02 -.1398441E-01 .1210000E+02 -.1322524E-01 .1215000E+02 -.1214751E-01 .1220000E+02 -.1040349E-01 .1225000E+02 -.6922965E-02 .1230000E+02 -.3404568E-02 .1235000E+02 -.2934128E-02 .1240000E+02 -.3640831E-02 .1245000E+02 -.3145441E-02 .1250000E+02 -.3206647E-02 .1255000E+02 -.7447613E-02 .1260000E+02 -.1134231E-01 .1265000E+02 -.1107642E-01 .1270000E+02 -.9803710E-02 .1275000E+02 -.6961429E-02 .1280000E+02 -.2713460E-02 .1285000E+02 -.6387520E-04 .1290000E+02 .1325977E-02 .1295000E+02 .4236208E-02 .1300000E+02 .9579600E-02 .1305000E+02 .1310609E-01 .1310000E+02 .1277692E-01 .1315000E+02 .1074851E-01 .1320000E+02 .8388806E-02 .1325000E+02 .7112519E-02 .1330000E+02 .6116085E-02 .1335000E+02 .2754508E-02 .1340000E+02 -.1088225E-02 .1345000E+02 -.2912092E-02 .1350000E+02 -.3267730E-02 .1355000E+02 -.1799537E-02 .1360000E+02 -.6646911E-03 .1365000E+02 -.3064115E-02 .1370000E+02 -.4964115E-02 .1375000E+02 -.3907573E-02 .1380000E+02 -.2793531E-02 .1385000E+02 -.3795170E-02 .1390000E+02 -.5376802E-02 .1395000E+02 -.5748203E-02 .1400000E+02 -.6996689E-02 .1405000E+02 -.7438836E-02 .1410000E+02 -.5411535E-02 .1415000E+02 -.2814638E-02 .1420000E+02 .1289910E-02 .1425000E+02 .4994885E-02 .1430000E+02 .6502362E-02 .1435000E+02 .7493513E-02 .1440000E+02 .7172414E-02 .1445000E+02 .4167058E-02 .1450000E+02 .6161030E-03 .1455000E+02 -.1465617E-03 .1460000E+02 .1671161E-02 .1465000E+02 .3740163E-02 .1470000E+02 .5443047E-02 .1475000E+02 .6112755E-02 .1480000E+02 .4231495E-02 .1485000E+02 .1132610E-02 .1490000E+02 -.1562585E-02 .1495000E+02 -.3495782E-02 .1500000E+02 -.3894387E-02 .1505000E+02 -.3478475E-02 .1510000E+02 -.3802038E-02 .1515000E+02 -.4182963E-02 .1520000E+02 -.4264023E-02 .1525000E+02 -.4420609E-02 .1530000E+02 -.3709512E-02 .1535000E+02 -.2892099E-02 .1540000E+02 -.2607779E-02 .1545000E+02 -.1226694E-02 .1550000E+02 .1187210E-02 .1555000E+02 .2964404E-02 .1560000E+02 .3718787E-02 .1565000E+02 .3957632E-02 .1570000E+02 .3572906E-02 .1575000E+02 .3006680E-02 .1580000E+02 .2898344E-02 .1585000E+02 .2632919E-02 .1590000E+02 .1338363E-02 .1595000E+02 -.8838865E-05 .1600000E+02 -.7048441E-03 .1605000E+02 -.5950550E-03 .1610000E+02 .2952091E-03 .1615000E+02 .1447100E-02 .1620000E+02 .1331617E-02 .1625000E+02 .5594995E-04 .1630000E+02 .1539965E-03 .1635000E+02 .5237503E-03 .1640000E+02 -.2922913E-03 .1645000E+02 -.1432297E-02 .1650000E+02 -.2207463E-02 .1655000E+02 -.2338608E-02 .1660000E+02 -.2344238E-02 .1665000E+02 -.2868204E-02 .1670000E+02 -.3199073E-02 .1675000E+02 -.2926630E-02 .1680000E+02 -.1694982E-02 .1685000E+02 .6925621E-03 .1690000E+02 .2278120E-02 .1695000E+02 .2472361E-02 .1700000E+02 .2082027E-02 .1705000E+02 .1767340E-02 .1710000E+02 .1883873E-02 .1715000E+02 .1758252E-02 .1720000E+02 .1152225E-02 .1725000E+02 .5461649E-03 .1730000E+02 -.1253548E-04 .1735000E+02 -.3998847E-03 .1740000E+02 -.2686325E-03 .1745000E+02 -.3431145E-03 .1750000E+02 -.5712318E-03 .1755000E+02 -.1188866E-04 .1760000E+02 .6673606E-03 .1765000E+02 .3473506E-03 .1770000E+02 -.3636831E-03 .1775000E+02 -.1136277E-02 .1780000E+02 -.1667605E-02 .1785000E+02 -.1889189E-02 .1790000E+02 -.2026411E-02 .1795000E+02 -.1935960E-02 .1800000E+02 -.1459351E-02 .1805000E+02 -.6098950E-03 .1810000E+02 .2914357E-03 .1815000E+02 .8377644E-03 .1820000E+02 .7482349E-03 .1825000E+02 .2076312E-03 .1830000E+02 .2432496E-03 .1835000E+02 .6083235E-03 .1840000E+02 .6195470E-03 .1845000E+02 .8594782E-03 .1850000E+02 .1071561E-02 .1855000E+02 .8907567E-03 .1860000E+02 .9448596E-03 .1865000E+02 .1145191E-02 .1870000E+02 .1010684E-02 .1875000E+02 .6404615E-03 .1880000E+02 .9728261E-04 .1885000E+02 -.3771309E-03 .1890000E+02 -.6432247E-03 .1895000E+02 -.6517807E-03 .1900000E+02 -.3716348E-03 .1905000E+02 -.1238457E-03 .1910000E+02 -.1458913E-03 .1915000E+02 -.3005590E-03 .1920000E+02 -.5315908E-03 .1925000E+02 -.6867934E-03 .1930000E+02 -.6319759E-03 .1935000E+02 -.1087360E-03 .1940000E+02 .5686051E-03 .1945000E+02 .7455887E-03 .1950000E+02 .3012530E-03 .1955000E+02 .7999360E-04 .1960000E+02 .2477348E-03 .1965000E+02 .1445400E-03 .1970000E+02 .3295987E-03 .1975000E+02 .6951603E-03 .1980000E+02 .7662717E-03 .1985000E+02 .9469782E-03 .1990000E+02 .1078926E-02 .1995000E+02 .1129987E-02 .2000000E+02 .1172655E-02 .2005000E+02 .1023192E-02 .2010000E+02 .8098781E-03 .2015000E+02 .6567272E-03 .2020000E+02 .5712216E-03 .2025000E+02 .5396915E-03 .2030000E+02 .4178334E-03 .2035000E+02 .1487256E-03 .2040000E+02 -.5935474E-04 .2045000E+02 -.1290454E-03 .2050000E+02 -.1286692E-03 .2055000E+02 -.4739770E-04 .2060000E+02 .2115199E-03 .2065000E+02 .3965870E-03 .2070000E+02 .3222155E-03 .2075000E+02 .2022797E-03 .2080000E+02 .1241823E-03 .2085000E+02 .3310181E-03 .2090000E+02 .5106300E-03 .2095000E+02 .5431761E-03 .2100000E+02 .4975615E-03 .2105000E+02 .3584702E-03 .2110000E+02 .2745298E-03 .2115000E+02 .2433795E-03 .2120000E+02 .3408096E-03 .2125000E+02 .4827695E-03 .2130000E+02 .4946246E-03 .2135000E+02 .4706607E-03 .2140000E+02 .5708829E-03 .2145000E+02 .5331857E-03 .2150000E+02 .4406712E-03 .2155000E+02 .3147304E-03 .2160000E+02 .1747528E-03 .2165000E+02 -.8457099E-04 .2170000E+02 -.2707161E-03 .2175000E+02 -.2894846E-03 .2180000E+02 -.3666014E-03 .2185000E+02 -.2194835E-03 .2190000E+02 .4071274E-04 .2195000E+02 .1879338E-03 .2200000E+02 .9344606E-04 .2205000E+02 .3828711E-04 .2210000E+02 .1570658E-03 .2215000E+02 .9281154E-04 .2220000E+02 .1046896E-03 .2225000E+02 .6804419E-04 .2230000E+02 .2015018E-04 .2235000E+02 .4332602E-04 .2240000E+02 -.7409947E-04 .2245000E+02 -.4553018E-04 .2250000E+02 -.2838695E-04 .2255000E+02 .7266296E-05 .2260000E+02 -.2580272E-04 .2265000E+02 .1740125E-04 .2270000E+02 .4742172E-04 .2275000E+02 -.1733959E-04 .2280000E+02 -.4409452E-04 .2285000E+02 -.1687401E-03 .2290000E+02 -.2496391E-03 .2295000E+02 -.2678899E-03 .2300000E+02 -.3254904E-03 .2305000E+02 -.2569156E-03 .2310000E+02 -.3073217E-03 .2315000E+02 -.3009152E-03 .2320000E+02 -.2394180E-03 .2325000E+02 -.2253643E-03 .2330000E+02 -.9829117E-04 .2335000E+02 -.4082004E-04 .2340000E+02 -.1329061E-03 .2345000E+02 .2167054E-04 .2350000E+02 -.3287037E-04 .2355000E+02 .1520803E-03 .2360000E+02 .4534837E-03 .2365000E+02 .1722198E-03 .2370000E+02 .1493219E-03 .2375000E+02 .1907488E-03 .2380000E+02 .2300154E-03 .2385000E+02 .2376639E-03 .2390000E+02 .2222752E-03 .2395000E+02 .2292514E-03 .2400000E+02 .2450025E-03 .2405000E+02 .2630525E-03 .2410000E+02 .1741982E-03 .2415000E+02 .1735193E-03 .2420000E+02 .2678680E-03 .2425000E+02 .6407365E-04 .2430000E+02 .4070950E-04 .2435000E+02 .3462486E-04 .2440000E+02 .1550367E-04 .2445000E+02 -.6409871E-04 .2450000E+02 -.1617424E-03 .2455000E+02 -.1642523E-03 .2460000E+02 -.1352019E-03 .2465000E+02 -.3235579E-03 .2470000E+02 -.5123903E-03 .2475000E+02 -.5670352E-03 .2480000E+02 -.6584886E-03 .2485000E+02 -.6988121E-03 .2490000E+02 -.8727026E-03 .2495000E+02 -.8905015E-03 ifeffit-1.2.11d/examples/data/test.dat0000644000175000017500000004530110771740461016562 0ustar segresegre# Cu2S #----------------------- # energy x y i0 8759.99 -1.535827 2.9033981 40068.3 8769.98 -1.546806 2.8977250 39665.3 8780.00 -1.559545 2.8927689 39231.3 8789.99 -1.570996 2.8860354 38796.3 8800.00 -1.581097 2.8784871 38432.3 8809.99 -1.589505 2.8686704 38029.3 8820.01 -1.605257 2.8673652 37566.3 8830.00 -1.614814 2.8593991 37153.3 8840.02 -1.627588 2.8561797 36748.3 8850.01 -1.638289 2.8489975 36345.3 8859.98 -1.649795 2.8433106 35930.3 8870.02 -1.660322 2.8339844 35560.3 8879.98 -1.672828 2.8291025 35125.3 8890.02 -1.682547 2.8216769 34731.3 8899.98 -1.693206 2.8160633 34321.3 8910.02 -1.704959 2.8101413 33916.3 8919.98 -1.715755 2.8047551 33532.3 8930.02 -1.726507 2.7987604 33130.3 8939.98 -1.736746 2.7948045 32761.3 8950.01 -1.746216 2.7894275 32369.3 8960.02 -1.753250 2.7871953 31972.3 8960.78 -1.753516 2.7874935 31914.3 8961.49 -1.755046 2.7895553 31855.3 8962.25 -1.754923 2.7886015 31792.3 8963.01 -1.754503 2.7886281 31764.3 8963.77 -1.755608 2.7899382 31703.3 8964.53 -1.754960 2.7887773 31653.3 8965.29 -1.755145 2.7894190 31569.3 8966.05 -1.755711 2.7908705 31566.3 8966.81 -1.754886 2.7910501 31609.3 8967.57 -1.754021 2.7897026 31636.3 8968.33 -1.754534 2.7908939 31525.3 8969.09 -1.754972 2.7931429 31520.3 8969.85 -1.751536 2.7928152 31451.3 8970.61 -1.753847 2.7966238 31413.3 8971.37 -1.753150 2.8005015 31349.3 8972.14 -1.751972 2.8027950 31315.3 8972.90 -1.748863 2.8051568 31297.3 8973.66 -1.744824 2.8074611 31282.3 8974.37 -1.745167 2.8168217 31177.3 8975.13 -1.740998 2.8261941 31161.3 8975.89 -1.734472 2.8376945 31113.3 8976.65 -1.725088 2.8565564 31065.3 8977.42 -1.712885 2.8929449 31004.3 8978.18 -1.689785 2.9710889 30987.3 8978.94 -1.646840 3.1100858 30928.3 8979.70 -1.558027 3.2749332 30917.3 8980.47 -1.423499 3.3876663 30871.3 8981.23 -1.294210 3.4226285 30820.3 8981.99 -1.218668 3.4078930 30788.3 8982.71 -1.178827 3.3813562 30757.3 8983.47 -1.130050 3.3638788 30680.3 8984.23 -1.071441 3.3637135 30646.3 8985.00 -1.012535 3.3770498 30612.3 8985.76 -0.968784 3.3934884 30579.3 8986.52 -0.941662 3.4174812 30506.3 8987.29 -0.920107 3.4449127 30514.3 8988.05 -0.891168 3.4753794 30460.3 8988.76 -0.862311 3.5107764 30404.3 8989.53 -0.839792 3.5544598 30371.3 8990.29 -0.829187 3.6061718 30299.3 8991.06 -0.825057 3.6584199 30271.3 8991.82 -0.822520 3.7018371 30217.3 8992.59 -0.821392 3.7345688 30208.3 8993.35 -0.822054 3.7545269 30177.3 8994.07 -0.823708 3.7576177 30164.3 8994.83 -0.823620 3.7507087 30071.3 8995.60 -0.818243 3.7331516 30039.3 8996.36 -0.807637 3.7091396 30003.3 8997.13 -0.794932 3.6847075 29977.3 8997.90 -0.784836 3.6686496 29924.3 8998.66 -0.778068 3.6594218 29904.3 8999.38 -0.774289 3.6623570 29872.3 9000.14 -0.771717 3.6747923 29795.3 9000.91 -0.770354 3.6937802 29775.3 9001.68 -0.771015 3.7153770 29778.3 9002.44 -0.774344 3.7339639 29715.3 9003.16 -0.779038 3.7421143 29663.3 9003.93 -0.784639 3.7376034 29652.3 9004.69 -0.789419 3.7287581 29591.3 9005.46 -0.792459 3.7150753 29565.3 9006.23 -0.794270 3.6996554 29535.3 9006.94 -0.795045 3.6878311 29490.3 9007.71 -0.795558 3.6766790 29469.3 9008.48 -0.795984 3.6663703 29419.3 9009.25 -0.796308 3.6550039 29391.3 9010.02 -0.797235 3.6467830 29348.3 9010.53 -0.798127 3.6425808 29302.3 9011.09 -0.799312 3.6409548 29288.3 9011.66 -0.800761 3.6409745 29246.3 9012.22 -0.802227 3.6404667 29205.2 9012.78 -0.804154 3.6424544 29189.2 9013.40 -0.806438 3.6469394 29167.2 9014.01 -0.808798 3.6516878 29133.1 9014.58 -0.811295 3.6566145 29134.1 9015.19 -0.814557 3.6620243 29075.0 9015.86 -0.818735 3.6680307 29127.0 9016.47 -0.822798 3.6768052 29054.9 9017.14 -0.827618 3.6874615 29048.8 9017.76 -0.832277 3.6975552 29029.8 9018.42 -0.837559 3.7097979 29018.7 9019.14 -0.843509 3.7220378 28968.6 9019.81 -0.848687 3.7309031 28948.5 9020.48 -0.853866 3.7397284 28944.4 9021.20 -0.859241 3.7487986 28923.3 9021.91 -0.864073 3.7620119 28910.1 9022.63 -0.868369 3.7693048 28885.0 9023.35 -0.871865 3.7794744 28855.9 9024.12 -0.874692 3.7878679 28829.7 9024.84 -0.876410 3.7916123 28866.6 9025.61 -0.877453 3.7958796 28808.4 9026.38 -0.877559 3.7950977 28779.3 9027.21 -0.876756 3.7883915 28790.1 9027.98 -0.875480 3.7807079 28767.0 9028.75 -0.873828 3.7720061 28778.8 9029.57 -0.871367 3.7596718 28725.6 9030.40 -0.868535 3.7482648 28743.4 9031.22 -0.865361 3.7362632 28716.2 9032.04 -0.861727 3.7240247 28711.0 9032.92 -0.857407 3.7120382 28695.8 9033.79 -0.853219 3.7030049 28673.6 9034.62 -0.849310 3.6967409 28653.4 9035.50 -0.845171 3.6898387 28621.1 9036.42 -0.840791 3.6851023 28588.9 9037.30 -0.837119 3.6806694 28596.7 9038.23 -0.833416 3.6774970 28486.4 9039.10 -0.830443 3.6719141 28184.2 9040.03 -0.825672 3.6726947 28128.9 9040.96 -0.823071 3.6833194 28602.6 9041.94 -0.818722 3.6820097 28596.3 9042.87 -0.815328 3.6803166 28604.1 9043.85 -0.812233 3.6810557 28707.8 9044.83 -0.809229 3.6771549 28693.5 9045.81 -0.806795 3.6729813 28690.2 9046.79 -0.804439 3.6726669 28671.9 9047.78 -0.802830 3.6733733 28643.6 9048.81 -0.801298 3.6741113 28684.3 9049.79 -0.800450 3.6782732 28625.9 9050.83 -0.799819 3.6798438 28628.6 9051.86 -0.799691 3.6803507 28657.3 9052.95 -0.800092 3.6820887 28616.9 9053.98 -0.800896 3.6809660 28625.6 9055.07 -0.801946 3.6818855 28632.2 9056.16 -0.803439 3.6853969 28610.8 9057.24 -0.805550 3.6872935 28632.5 9058.33 -0.808376 3.6925296 28604.1 9059.42 -0.811931 3.7001486 28622.7 9060.56 -0.816271 3.7085133 28531.3 9061.65 -0.821229 3.7174008 28254.9 9062.79 -0.826994 3.7221774 28254.5 9063.93 -0.832962 3.7277018 28233.1 9065.12 -0.839645 3.7354415 28181.7 9066.27 -0.846293 3.7419775 28169.3 9067.46 -0.853190 3.7506252 28136.9 9068.60 -0.860014 3.7586810 28071.4 9069.80 -0.866116 3.7689216 28069.0 9071.04 -0.872601 3.7737146 28084.5 9072.24 -0.878432 3.7803232 28060.1 9073.43 -0.883664 3.7798200 28052.6 9074.68 -0.888895 3.7794554 28048.2 9075.93 -0.893650 3.7745218 28070.7 9077.18 -0.897803 3.7694500 28050.2 9078.43 -0.901115 3.7617449 28064.7 9079.68 -0.904339 3.7538038 28071.2 9080.98 -0.906786 3.7450001 28071.7 9082.28 -0.908679 3.7391131 28064.2 9083.58 -0.909977 3.7321657 28075.7 9084.89 -0.910670 3.7260428 28075.2 9086.19 -0.910416 3.7203560 28078.7 9087.49 -0.909688 3.7169696 28093.1 9088.85 -0.908786 3.7120222 28117.6 9090.21 -0.907160 3.7083976 28133.1 9091.57 -0.905618 3.7024346 28178.5 9092.92 -0.903887 3.6936919 28149.9 9094.28 -0.902051 3.6851648 28161.4 9095.69 -0.899992 3.6770979 28206.8 9097.05 -0.897867 3.6701865 28205.2 9098.46 -0.895844 3.6666275 28166.7 9099.88 -0.893802 3.6621766 28247.1 9101.34 -0.891658 3.6623521 28221.5 9102.75 -0.889369 3.6647051 28212.9 9104.17 -0.887324 3.6692909 28227.3 9105.63 -0.885466 3.6765901 28230.6 9107.10 -0.884010 3.6818995 28246.0 9108.57 -0.883068 3.6901641 28246.4 9110.04 -0.882873 3.6934507 28265.8 9111.56 -0.882967 3.6966526 28291.1 9113.03 -0.883808 3.6986328 28310.5 9114.55 -0.885003 3.7000272 28319.8 9116.07 -0.886772 3.7022195 28285.2 9117.60 -0.888753 3.7021881 28298.5 9119.12 -0.891129 3.7035328 28305.8 9120.70 -0.893848 3.7060219 28319.1 9122.22 -0.897024 3.7120184 28335.5 9123.80 -0.900339 3.7239193 28363.8 9125.38 -0.903861 3.7357313 28382.1 9126.96 -0.907281 3.7481135 28383.4 9128.59 -0.911373 3.7596664 28408.7 9130.17 -0.915324 3.7679177 28394.9 9131.80 -0.919529 3.7749500 28408.2 9133.39 -0.923688 3.7752809 28388.5 9135.02 -0.927768 3.7754491 28417.7 9136.71 -0.932449 3.7721838 28400.0 9138.34 -0.936406 3.7689230 28435.3 9139.98 -0.940278 3.7639627 28439.5 9141.67 -0.944017 3.7567970 28465.7 9143.36 -0.947885 3.7474086 28388.0 9145.05 -0.951190 3.7327699 28191.2 9146.75 -0.955241 3.7219083 28220.4 9148.44 -0.957913 3.7161175 28598.6 9150.19 -0.959983 3.7025605 28652.8 9151.88 -0.961837 3.6876056 28756.0 9153.63 -0.964097 3.6720652 28954.2 9155.38 -0.965711 3.6541081 28952.4 9157.13 -0.967542 3.6460164 29074.6 9158.93 -0.968664 3.6376488 29059.8 9160.68 -0.969247 3.6378030 29032.9 9162.49 -0.969272 3.6455165 29315.1 9164.29 -0.970760 3.6583198 29472.2 9166.10 -0.971349 3.6673027 29468.4 9167.90 -0.972186 3.6783960 29442.5 9169.71 -0.972961 3.6895176 29445.7 9171.57 -0.973755 3.6979961 29458.8 9173.38 -0.974479 3.7043566 29501.9 9175.25 -0.975522 3.7074590 29485.0 9177.11 -0.976566 3.7092968 29492.1 9178.98 -0.977453 3.7067173 29542.2 9180.89 -0.979014 3.7053518 29546.3 9182.76 -0.980804 3.7026236 29533.4 9184.68 -0.982504 3.7022818 29532.5 9186.60 -0.984212 3.7023083 29617.6 9188.53 -0.986150 3.7021912 29615.6 9190.45 -0.988220 3.7007871 29616.7 9192.37 -0.990489 3.6995699 29631.8 9194.35 -0.992913 3.6957940 29625.8 9196.28 -0.995230 3.6949349 29633.9 9198.26 -0.997767 3.6958685 29613.9 9200.24 -1.000436 3.7005989 29657.9 9202.22 -1.003106 3.7072121 29653.0 9204.21 -1.005957 3.7164124 29704.0 9206.24 -1.008764 3.7241208 29681.0 9208.23 -1.011677 3.7287750 29730.0 9210.27 -1.014561 3.7324955 29767.0 9212.31 -1.017473 3.7320565 29755.0 9214.35 -1.020119 3.7303870 29759.0 9216.39 -1.022693 3.7279646 29757.0 9218.49 -1.025274 3.7235152 29782.9 9220.53 -1.027585 3.7179806 29811.9 9222.63 -1.030231 3.7105031 29799.9 9224.73 -1.032680 3.7006318 29791.8 9226.83 -1.035232 3.6941836 29806.8 9228.94 -1.037794 3.6832613 29840.7 9231.04 -1.040553 3.6743076 29837.6 9233.20 -1.043283 3.6676142 29843.6 9235.36 -1.046248 3.6613049 29878.5 9237.46 -1.049031 3.6569047 29891.4 9239.63 -1.051817 3.6553616 29839.3 9241.84 -1.054647 3.6549805 29847.2 9244.01 -1.057356 3.6574461 29849.1 9246.17 -1.059688 3.6596093 29880.0 9248.39 -1.062204 3.6596758 29909.9 9250.61 -1.064703 3.6578645 29923.8 9252.83 -1.067087 3.6574750 29889.6 9255.06 -1.069737 3.6586074 29919.5 9257.28 -1.072484 3.6626927 29901.3 9259.51 -1.074964 3.6623782 29959.2 9261.79 -1.077879 3.6637681 29975.0 9264.07 -1.080565 3.6666842 29936.9 9266.36 -1.083413 3.6711413 29926.7 9268.64 -1.086267 3.6746511 29967.5 9270.93 -1.088897 3.6759138 29934.4 9273.21 -1.091500 3.6780194 29967.2 9275.50 -1.094164 3.6786193 29966.0 9277.85 -1.096909 3.6761920 29950.8 9280.19 -1.099614 3.6746520 29962.6 9282.54 -1.102319 3.6757550 29987.4 9284.89 -1.104953 3.6735486 29941.1 9287.24 -1.107640 3.6755596 29966.9 9289.64 -1.110189 3.6752650 29979.7 9291.99 -1.112704 3.6746093 29982.4 9294.40 -1.115169 3.6745221 29977.2 9296.81 -1.117349 3.6745292 30021.9 9299.22 -1.119660 3.6727825 29983.7 9301.63 -1.121781 3.6696261 29998.4 9304.05 -1.124293 3.6656278 29962.2 9306.46 -1.126503 3.6620614 29984.9 9308.93 -1.128917 3.6557505 29980.6 9311.40 -1.131443 3.6507581 29985.3 9313.88 -1.133956 3.6478507 29977.0 9316.35 -1.136538 3.6419728 30011.7 9318.83 -1.139155 3.6373588 29995.4 9321.31 -1.141633 3.6355145 29968.1 9323.84 -1.144480 3.6331088 29984.8 9326.32 -1.147184 3.6339283 30005.4 9328.86 -1.150089 3.6326615 30005.1 9331.40 -1.153114 3.6297669 29963.7 9333.94 -1.156348 3.6265417 29976.4 9336.48 -1.159272 3.6218700 29977.0 9339.08 -1.162588 3.6188505 29978.7 9341.62 -1.165727 3.6157291 29981.3 9344.22 -1.169073 3.6122576 29965.9 9346.83 -1.172356 3.6121790 29972.6 9349.43 -1.175647 3.6141096 29947.2 9352.04 -1.178959 3.6132339 29962.8 9354.65 -1.182164 3.6112745 29948.4 9357.26 -1.185355 3.6111288 29988.0 9359.92 -1.188593 3.6104954 29954.6 9362.53 -1.191597 3.6089813 29935.1 9365.20 -1.194773 3.6108819 29922.7 9367.88 -1.197708 3.6118792 29946.3 9370.55 -1.200707 3.6098541 29921.8 9373.28 -1.203822 3.6097522 29917.4 9375.95 -1.206895 3.6095808 29911.9 9378.63 -1.209775 3.6095668 29916.5 9381.37 -1.212830 3.6101041 29899.0 9384.10 -1.215974 3.6104005 29849.6 9386.84 -1.218799 3.6097492 29825.1 9389.58 -1.221727 3.6092257 29844.6 9392.33 -1.224763 3.6075296 29836.1 9395.13 -1.227586 3.6053228 29839.6 9397.87 -1.230371 3.6061943 29817.1 9400.67 -1.233294 3.6030369 29809.6 9403.48 -1.235994 3.6006429 29809.1 9406.23 -1.238828 3.5969676 29765.6 9409.09 -1.241669 3.5919070 29743.0 9411.91 -1.244318 3.5891660 29720.5 9414.72 -1.246944 3.5850304 29698.0 9417.59 -1.249841 3.5802996 29710.4 9420.40 -1.252299 3.5786623 29692.9 9423.28 -1.255160 3.5753772 29685.3 9426.15 -1.258040 3.5734548 29645.7 9429.03 -1.260785 3.5722213 29630.2 9431.91 -1.263601 3.5700944 29585.6 9434.79 -1.266335 3.5691463 29628.0 9437.73 -1.269565 3.5677643 29552.4 9440.62 -1.272162 3.5679959 29582.8 9443.56 -1.275267 3.5660606 29573.2 9446.51 -1.278616 3.5643563 29562.6 9449.46 -1.281568 3.5622173 29511.0 9452.41 -1.285008 3.5602697 29450.3 9455.36 -1.288039 3.5571641 29473.7 9458.37 -1.291401 3.5570870 29450.1 9461.32 -1.294050 3.5710862 29445.4 9464.34 -1.298680 3.5496656 29400.8 9467.35 -1.301970 3.5472643 29423.1 9470.38 -1.305460 3.5469249 29395.4 9473.39 -1.308728 3.5442239 29360.8 9476.42 -1.312168 3.5447994 29342.1 9479.44 -1.315423 3.5431269 29318.4 9482.53 -1.319090 3.5422085 29285.7 9485.56 -1.322487 3.5401299 29245.0 9488.64 -1.325943 3.5405583 29156.3 9491.73 -1.329248 3.5412936 29181.6 9494.83 -1.332665 3.5395803 29040.9 9497.92 -1.335854 3.5375944 29035.2 9501.02 -1.338915 3.5372646 29044.5 9504.12 -1.342014 3.5356082 29013.7 9507.28 -1.345341 3.5355680 28978.0 9510.38 -1.348134 3.5342177 28964.2 9513.54 -1.351467 3.5319987 28953.5 9516.71 -1.354684 3.5297454 28882.7 9519.88 -1.357799 3.5260488 28878.0 9523.04 -1.360958 3.5204476 28807.2 9526.22 -1.364118 3.5170299 28789.4 9529.45 -1.367315 3.5108726 28622.6 9532.63 -1.370234 3.5132200 28860.8 9535.86 -1.373232 3.5088884 28725.0 9539.10 -1.376274 3.5071874 28756.2 9542.29 -1.379311 3.5052121 28728.4 9545.53 -1.382674 3.5020936 28674.6 9548.83 -1.385855 3.4996459 28619.8 9552.08 -1.389253 3.4980147 28548.9 9555.33 -1.392314 3.4966013 28551.1 9558.64 -1.395485 3.4938352 28478.3 9561.90 -1.398630 3.4920873 28467.4 9565.21 -1.401893 3.4887470 28447.5 9568.53 -1.405234 3.4876017 28414.7 9571.85 -1.408521 3.4848633 28361.8 9575.18 -1.411950 3.4835440 28304.9 9578.50 -1.415077 3.4807422 28317.1 9581.89 -1.418546 3.4778017 28283.2 9585.22 -1.422058 3.4751524 28224.3 9588.61 -1.425232 3.4726398 28178.4 9591.95 -1.428470 3.4708710 28274.5 9595.34 -1.432006 3.4684557 28242.5 9598.74 -1.435530 3.4658101 28203.6 9602.15 -1.439219 3.4640753 28192.7 9605.61 -1.442926 3.4629783 28145.8 9609.02 -1.446459 3.4609697 28122.8 9612.43 -1.450157 3.4591442 28069.9 9615.90 -1.453532 3.4572463 28045.9 9619.37 -1.457120 3.4554614 27989.0 9622.79 -1.460671 3.4536807 27955.0 9626.27 -1.464023 3.4502821 27932.0 9629.75 -1.467442 3.4492180 27877.0 9633.23 -1.470752 3.4456752 27828.1 9636.78 -1.474236 3.4437449 27804.1 9640.27 -1.477765 3.4408652 27759.1 9643.82 -1.481398 3.4407066 27644.1 9647.32 -1.484666 3.4421793 27627.1 9650.88 -1.488066 3.4359130 27604.0 9654.43 -1.491450 3.4313594 27522.0 9658.00 -1.494751 3.4301037 27484.0 9661.56 -1.497961 3.4266592 27463.9 9665.13 -1.500549 3.4232677 27392.9 9668.70 -1.503849 3.4200902 27348.9 9672.34 -1.507424 3.4185510 27334.8 9675.91 -1.510996 3.4162245 27345.7 9679.55 -1.514414 3.4138620 27231.7 9683.14 -1.517926 3.4102518 27174.6 9686.78 -1.521324 3.4067116 27128.5 9690.43 -1.524723 3.4034268 27075.4 9694.08 -1.528292 3.4014220 27032.3 9697.79 -1.531595 3.3999978 27018.2 9701.45 -1.534820 3.3949904 26941.1 9705.11 -1.538175 3.3915249 26844.0 9708.83 -1.541665 3.3891361 26860.9 9712.50 -1.545007 3.3885435 26846.8 9716.23 -1.548584 3.3856707 26802.6 9719.96 -1.551814 3.3840147 26743.5 9723.70 -1.555279 3.3795481 26702.3 9727.43 -1.558834 3.3775497 26637.2 9731.17 -1.562424 3.3740277 26604.0 9734.98 -1.566094 3.3727612 26566.9 9738.73 -1.569446 3.3701595 26526.7 9742.48 -1.572933 3.3672552 26510.5 9746.29 -1.576419 3.3647534 26432.3 9750.11 -1.580168 3.3640211 26358.1 9753.93 -1.583492 3.3619919 26343.9 9757.69 -1.587205 3.3596387 26292.7 9761.58 -1.590557 3.3564884 26235.5 9765.41 -1.594117 3.3538949 26210.3 9769.24 -1.597784 3.3525319 26179.1 9773.08 -1.601364 3.3505687 26139.8 9776.98 -1.605047 3.3462234 26069.6 9780.82 -1.608638 3.3437706 26016.4 9784.73 -1.612293 3.3411776 25980.1 9788.64 -1.616122 3.3408022 25928.9 9792.55 -1.619592 3.3372299 25865.6 9796.41 -1.623341 3.3346482 25820.3 9800.39 -1.627095 3.3342934 25771.1 9804.31 -1.630780 3.3319674 25727.8 9808.24 -1.634318 3.3270977 25709.5 9812.17 -1.637853 3.3250708 25660.2 9816.17 -1.641327 3.3227595 25604.9 9820.10 -1.644750 3.3202899 25562.6 9824.11 -1.648343 3.3174222 25521.3 9828.11 -1.651969 3.3149448 25478.0 9832.12 -1.655440 3.3130410 25426.6 9836.13 -1.658866 3.3094008 25389.3 9840.15 -1.662549 3.3071200 25343.0 9844.17 -1.665933 3.3038170 25298.6 9848.19 -1.669401 3.3022272 25274.3 9852.28 -1.673047 3.2986827 25200.9 ifeffit-1.2.11d/examples/data/cu_rt01.xmu0000644000175000017500000004530210771740461017122 0ustar segresegre#%name: Cu foil Room Temperature #%atom: Cu #%edge: K #%xtal: Cu.inp #%prep: metal foil #%ref: none #%misc: data from cu_foil.001 #%det: I0=N2 10cm; I1=N2 10cm #%temp: Room Temperature #%beam: APS 13ID, vert slits = 0.3mm #%mono: Si(111) focussed, detuned 50% #%date: Tue Jun 26 22:27:31 2001 #%cols: 418 E XMU I0 #------------------------ # energy xmu i0 8779.0000 -1.3070486 149013.70 8789.0000 -1.3006104 144864.70 8799.0000 -1.3033816 132978.70 8809.0000 -1.3059724 125444.70 8819.0000 -1.3107085 121324.70 8829.0000 -1.3138152 119447.70 8839.0000 -1.3072055 119100.70 8849.0000 -1.3195882 117707.70 8859.0000 -1.3233895 117754.70 8869.0000 -1.3253521 117428.70 8879.0000 -1.3276930 117383.70 8889.0000 -1.3312944 117185.70 8899.0000 -1.3336289 117058.70 8909.0000 -1.3305114 117276.70 8919.0000 -1.3385381 117332.70 8929.0000 -1.3403222 117332.70 8939.0000 -1.3419374 117756.70 8949.0000 -1.3353518 117199.70 8959.0000 -1.3394162 117458.70 8959.5000 -1.3390900 118720.70 8960.0000 -1.3386739 119008.70 8960.5000 -1.3382262 120520.70 8961.0000 -1.3373781 121659.70 8961.5000 -1.3366753 121341.70 8962.0000 -1.3367819 121394.70 8962.5000 -1.3363914 121094.70 8963.0000 -1.3357792 120769.70 8963.5000 -1.3354216 121015.70 8964.0000 -1.3348315 120395.70 8964.5000 -1.3343160 120179.70 8965.0000 -1.3337246 120917.70 8965.5000 -1.3327803 121353.70 8966.0000 -1.3323178 120788.70 8966.5000 -1.3304119 120845.70 8967.0000 -1.3303467 120809.70 8967.5000 -1.3297984 120816.70 8968.0000 -1.3279264 121040.70 8968.5000 -1.3273786 120821.70 8969.0000 -1.3260358 120986.70 8969.5000 -1.3243988 121289.70 8970.0000 -1.3229083 121113.70 8970.5000 -1.3217039 120800.70 8971.0000 -1.3196596 120024.70 8971.5000 -1.3175319 120379.70 8972.0000 -1.3153535 120769.70 8972.5000 -1.3125819 120602.70 8973.0000 -1.3097534 120328.70 8973.5000 -1.3062454 120405.70 8974.0000 -1.3019531 120519.70 8974.5000 -1.2982239 120702.70 8975.0000 -1.2923971 120678.70 8975.5000 -1.2860734 120861.70 8976.0000 -1.2778394 120656.70 8976.5000 -1.2683540 120856.70 8977.0000 -1.2560298 120421.70 8977.5000 -1.2388430 120825.70 8978.0000 -1.2167968 120630.70 8978.5000 -1.1814812 120845.70 8979.0000 -1.1291778 120832.70 8979.5000 -1.0377561 121033.70 8980.0000 -0.86410129 120305.70 8980.5000 -0.61748006 121037.70 8981.0000 -0.34003093 120519.70 8981.5000 -0.16373033 122539.70 8982.0000 -0.68680205E-01 121788.70 8982.5000 -0.31459541E-01 121415.70 8983.0000 -0.37774443E-01 121266.70 8983.5000 -0.71795857E-01 121720.70 8984.0000 -0.10486664 120930.70 8984.5000 -0.12186575 120764.70 8985.0000 -0.10619121 120680.70 8985.5000 -0.62979022E-01 121074.70 8986.0000 0.24945857E-02 121052.70 8986.5000 0.55627505E-01 120823.70 8987.0000 0.10586304 120819.70 8987.5000 0.15438375 120508.70 8988.0000 0.20914168 120647.70 8988.5000 0.26763933 120841.70 8989.0000 0.34392928 121405.70 8989.5000 0.43073218 121141.70 8990.0000 0.53410095 121046.70 8990.5000 0.64343632 121244.70 8991.0000 0.76048317 120832.70 8991.5000 0.89320106 120815.70 8992.0000 1.0116724 121341.70 8992.5000 1.1272556 121202.70 8993.0000 1.2408038 120950.70 8993.5000 1.3370923 121165.70 8994.0000 1.4085509 120954.70 8994.5000 1.4569240 121145.70 8995.0000 1.4704851 121337.70 8995.5000 1.4587969 120813.70 8996.0000 1.4264255 121141.70 8996.5000 1.3830309 121052.70 8997.0000 1.3302260 120941.70 8997.5000 1.2854293 121002.70 8998.0000 1.2427410 121188.70 8998.5000 1.2048402 121138.70 8999.0000 1.1796131 120996.70 8999.5000 1.1651931 120960.70 9000.0000 1.1640149 121314.70 9000.5000 1.1785632 121168.70 9001.0000 1.2104514 121360.70 9001.5000 1.2581630 120946.70 9002.0000 1.3149484 120951.70 9002.5000 1.3738261 120887.70 9003.0000 1.4369647 120998.70 9003.5000 1.4843574 121373.70 9004.0000 1.5092082 120709.70 9004.9840 1.4867570 121041.70 9005.9880 1.4077602 120887.70 9007.0120 1.3126201 120692.70 9008.0530 1.2416855 120984.70 9009.1140 1.1863321 120672.70 9010.1930 1.1295782 120735.70 9011.2930 1.0793850 120772.70 9012.4100 1.0561234 120715.70 9013.5480 1.0594201 120854.70 9014.7030 1.0745761 120629.70 9015.8780 1.0983679 121092.70 9017.0720 1.1344345 120875.70 9018.2850 1.1839603 120788.70 9019.5180 1.2433270 120999.70 9020.7690 1.3027844 120541.70 9022.0380 1.3577809 120685.70 9023.3270 1.4082681 120883.70 9024.6360 1.4586057 120691.70 9025.9630 1.4939836 120725.70 9027.3090 1.4978148 120616.70 9028.6740 1.4632186 120830.70 9030.0590 1.4041527 120639.70 9031.4610 1.3380200 120397.70 9032.8840 1.2693180 120036.70 9034.3250 1.2175823 121377.70 9035.7850 1.1852841 120948.70 9037.2650 1.1690416 121082.70 9038.7630 1.1679420 120756.70 9040.2800 1.1815479 121289.70 9041.8160 1.2022063 120826.70 9043.3720 1.2156459 120724.70 9044.9460 1.2147206 120299.70 9046.5400 1.2052641 120652.70 9048.1520 1.2081790 120559.70 9049.7830 1.2273147 120452.70 9051.4340 1.2506551 120443.70 9053.1040 1.2620689 120628.70 9054.7920 1.2617540 120364.70 9056.5000 1.2654319 120251.70 9058.2270 1.2837800 120521.70 9059.9720 1.3141967 120447.70 9061.7360 1.3421941 120426.70 9063.5210 1.3625204 120317.70 9065.3220 1.3792108 120372.70 9067.1450 1.3999533 120543.70 9068.9850 1.4266166 119794.70 9070.8450 1.4573741 120186.70 9072.7240 1.4778123 120213.70 9074.6210 1.4757230 120487.70 9076.5380 1.4498383 120588.70 9078.4740 1.4030141 120579.70 9080.4290 1.3500381 120842.70 9082.4020 1.3029716 120501.70 9084.3960 1.2620398 120409.70 9086.4070 1.2251830 120267.70 9088.4380 1.2013437 120150.70 9090.4880 1.1896097 120250.70 9092.5570 1.1635960 120386.70 9094.6460 1.1228258 120571.70 9096.7520 1.0826402 120531.70 9098.8780 1.0561194 120450.70 9101.0230 1.0542121 120209.70 9103.1880 1.0747264 120404.70 9105.3700 1.1113252 120119.70 9107.5720 1.1532630 120080.70 9109.7940 1.1906744 120161.70 9112.0340 1.2203203 119914.70 9114.2930 1.2356834 120580.70 9116.5710 1.2378086 120440.70 9118.8680 1.2347013 120496.70 9121.1850 1.2389918 120120.70 9123.5200 1.2644681 120422.70 9125.8740 1.3171590 120278.70 9128.2470 1.3902809 119965.70 9130.6400 1.4422252 120456.70 9133.0510 1.4627498 120415.70 9135.4810 1.4546216 120588.70 9137.9310 1.4348242 120311.70 9140.3990 1.4057082 120317.70 9142.8870 1.3660547 120547.70 9145.3930 1.3094664 120249.70 9147.9190 1.2466541 120056.70 9150.4630 1.1746886 120366.70 9153.0260 1.1021074 120206.70 9155.6090 1.0322845 120165.70 9158.2110 0.98129167 120626.70 9160.8310 0.95939305 120451.70 9163.4710 0.97747671 120273.70 9166.1290 1.0241176 120243.70 9168.8070 1.0849847 120444.70 9171.5040 1.1401848 118476.70 9174.2200 1.1750361 120845.70 9176.9540 1.1930866 121414.70 9179.7080 1.1938720 121351.70 9182.4800 1.1844207 121213.70 9185.2720 1.1735938 120590.70 9188.0830 1.1704282 120312.70 9190.9130 1.1657440 120539.70 9193.7620 1.1559482 119831.70 9196.6300 1.1428954 120077.70 9199.5170 1.1413183 119941.70 9202.4220 1.1622833 120308.70 9205.3480 1.2026342 120172.70 9208.2910 1.2404697 120270.70 9211.2540 1.2549645 119981.70 9214.2360 1.2511793 120286.70 9217.2370 1.2402403 120315.70 9220.2570 1.2221715 120255.70 9223.2960 1.1907745 120627.70 9226.3540 1.1455132 120288.70 9229.4320 1.1017690 120376.70 9232.5270 1.0600796 120443.70 9235.6430 1.0259810 119993.70 9238.7760 1.0049507 120132.70 9241.9300 0.99966394 119879.70 9245.1030 1.0048931 119841.70 9248.2930 1.0105750 120142.70 9251.5040 1.0124019 120114.70 9254.7320 1.0139400 120026.70 9257.9810 1.0161633 120260.70 9261.2480 1.0211559 120240.70 9264.5350 1.0285546 120126.70 9267.8400 1.0384421 120427.70 9271.1640 1.0473782 120157.70 9274.5080 1.0550278 120399.70 9277.8700 1.0622698 120169.70 9281.2520 1.0648539 120187.70 9284.6520 1.0676424 120351.70 9288.0710 1.0699984 120011.70 9291.5100 1.0728779 120091.70 9294.9680 1.0728809 120182.70 9298.4440 1.0741214 120056.70 9301.9390 1.0670228 120384.70 9305.4540 1.0523230 119816.70 9308.9880 1.0352930 120268.70 9312.5410 1.0129655 120022.70 9316.1120 0.99632592 120292.70 9319.7030 0.98055554 120180.70 9323.3130 0.97018555 120233.70 9326.9410 0.96579141 119937.70 9330.5890 0.96294572 120382.70 9334.2560 0.95533101 120584.70 9337.9410 0.94168418 120442.70 9341.6460 0.92478036 119941.70 9345.3700 0.91359007 119272.70 9349.1130 0.91284438 120658.70 9352.8750 0.91418814 119987.70 9356.6550 0.91508452 120594.70 9360.4560 0.91525491 120662.70 9364.2740 0.91678403 120544.70 9368.1120 0.91971128 120200.70 9371.9700 0.92039607 119833.70 9375.8460 0.92255063 120177.70 9379.7400 0.92204259 119774.70 9383.6540 0.92454794 120445.70 9387.5880 0.92334994 119193.70 9391.5400 0.92264231 120422.70 9395.5110 0.92177395 120139.70 9399.5010 0.91850518 120456.70 9403.5100 0.91345638 120156.70 9407.5380 0.90330946 120125.70 9411.5850 0.89305711 119994.70 9415.6510 0.87973935 119267.70 9419.7360 0.86827000 120771.70 9423.8410 0.85892927 120413.70 9427.9640 0.85439346 120472.70 9432.1060 0.85052867 120225.70 9436.2680 0.84659284 120331.70 9440.4480 0.84211844 119882.70 9444.6470 0.83709510 120383.70 9448.8660 0.82950090 120247.70 9453.1040 0.82001805 119875.70 9457.3590 0.81264127 120335.70 9461.6350 0.80732500 120309.70 9465.9300 0.80286897 120341.70 9470.2430 0.79765793 119942.70 9474.5750 0.79253648 120732.70 9478.9270 0.79036013 120507.70 9483.2980 0.78819367 120277.70 9487.6880 0.78760461 120171.70 9492.0960 0.78703269 120166.70 9496.5230 0.78671641 120128.70 9500.9700 0.78610174 119962.70 9505.4360 0.78609621 120104.70 9509.9200 0.78439191 120410.70 9514.4240 0.78010443 120425.70 9518.9460 0.77462323 120422.70 9523.4880 0.76599095 119957.70 9528.0490 0.75665061 120487.70 9532.6290 0.74779603 120462.70 9537.2280 0.74124343 120160.70 9541.8460 0.73477210 120638.70 9546.4820 0.72946232 120416.70 9551.1390 0.72392296 119757.70 9555.8130 0.71997301 120460.70 9560.5070 0.71544602 120691.70 9565.2200 0.70989886 120363.70 9569.9520 0.70462046 120488.70 9574.7030 0.69988210 120599.70 9579.4730 0.69495801 119666.70 9584.2620 0.68849951 120532.70 9589.0700 0.68310518 120236.70 9593.8960 0.67845988 120406.70 9598.7430 0.67434527 120575.70 9603.6080 0.67054249 120395.70 9608.4920 0.66723218 120687.70 9613.3960 0.66365594 120295.70 9618.3170 0.66018096 120555.70 9623.2590 0.65719369 119906.70 9628.2190 0.65335602 120302.70 9633.1980 0.65014305 120123.70 9638.1960 0.64603871 119444.70 9643.2140 0.64123612 120218.70 9648.2500 0.63635980 120287.70 9653.3060 0.63172850 119908.70 9658.3800 0.62582803 120259.70 9663.4730 0.62057727 119964.70 9668.5850 0.61490523 119574.70 9673.7170 0.60879058 119823.70 9678.8670 0.60402166 119220.70 9684.0370 0.59856530 119461.70 9689.2250 0.59335939 119505.70 9694.4330 0.58739858 119743.70 9699.6590 0.58235377 119955.70 9704.9040 0.57736347 120644.70 9710.1690 0.57295246 120622.70 9715.4530 0.56828176 120127.70 9720.7560 0.56311232 120837.70 9726.0770 0.55768639 121280.70 9731.4180 0.55318447 121236.70 9736.7770 0.54902027 120469.70 9742.1560 0.54366641 107370.70 9747.5540 0.54082489 130108.70 9752.9710 0.53720516 125993.70 9758.4060 0.53342871 124664.70 9763.8610 0.52875051 123473.70 9769.3350 0.52510271 122665.70 9774.8270 0.52166276 120596.70 9780.3390 0.51676480 120778.70 9785.8700 0.51225063 120693.70 9791.4200 0.50768431 119231.70 9796.9880 0.50431015 119957.70 9802.5770 0.49975749 120261.70 9808.1840 0.49515239 120286.70 9813.8100 0.49048564 120162.70 9819.4540 0.48591358 119952.70 9825.1180 0.48124748 119913.70 9830.8020 0.47654268 119756.70 9836.5040 0.47223982 118610.70 9842.2250 0.46698429 120129.70 9847.9650 0.46230755 120021.70 9853.7240 0.45775187 120016.70 9859.5020 0.45297378 115480.70 9865.2990 0.44852644 121396.70 9871.1150 0.44415560 121155.70 9876.9500 0.43959205 119624.70 9882.8050 0.43501779 120776.70 9888.6780 0.43044694 120845.70 9894.5700 0.42582471 121344.70 9900.4810 0.42136803 120620.70 9906.4120 0.41715416 120260.70 9912.3610 0.41288543 120866.70 9918.3290 0.40868263 118931.70 9924.3160 0.40442384 120895.70 9930.3230 0.39981546 120630.70 9936.3490 0.39518737 121041.70 9942.3930 0.39070224 119849.70 9948.4560 0.38626283 120201.70 9954.5390 0.38162283 120683.70 9960.6410 0.37710906 118731.70 9966.7610 0.37272373 120659.70 9972.9000 0.36800211 121011.70 9979.0590 0.36390836 120708.70 9985.2360 0.35941241 119350.70 9991.4340 0.35508054 120781.70 9997.6480 0.35055955 119823.70 10003.880 0.34617758 120512.70 10010.140 0.34151202 119384.70 10016.410 0.33715553 119403.70 10022.700 0.33237648 120716.70 10029.010 0.32771769 118280.70 10035.340 0.32319855 118950.70 10041.690 0.31884940 117702.70 10048.060 0.31475895 121382.70 10054.450 0.31045194 120061.70 10060.850 0.30630262 119951.70 10067.280 0.30168329 120488.70 10073.720 0.29738025 118833.70 10080.180 0.29280544 118434.70 10086.660 0.28822094 117995.70 10093.170 0.28371228 118435.70 10099.690 0.27927983 117303.70 10106.220 0.27494432 117929.70 10112.780 0.27070279 116857.70 10119.360 0.26632896 115791.70 10125.960 0.26174966 111467.70 10132.570 0.25704747 110079.70 10139.210 0.25235290 104190.70 10145.860 0.24890911 93726.700 ifeffit-1.2.11d/examples/data/mno.xmu0000644000175000017500000003265010771740461016440 0ustar segresegre# EXAFS from Lytle mno.016 # *** Title block # Title : # MnO in Duco # *** Subtitle block # Subtitle : # YPut experiment subtitle information here> # *** Data block 1 # *** Observations 459 Offset correction applied by default # Obs\Chan C1 C2 C3 C4 C5 C6 C7 C8 C9 #------------------------ # energy xmu 6339.0110 1.8199352 6344.0160 1.8140739 6348.9840 1.8084016 6354.0070 1.8024521 6358.9940 1.7969358 6363.9890 1.7911715 6368.9940 1.7852842 6374.0070 1.7794908 6378.9830 1.7737313 6384.0150 1.7680705 6389.0090 1.7623556 6394.0120 1.7565559 6398.9770 1.7507362 6403.9980 1.7454510 6408.9800 1.7395534 6414.0210 1.7340722 6419.0210 1.7285024 6423.9830 1.7230982 6429.0020 1.7174184 6433.9820 1.7120430 6439.0200 1.7063138 6444.0190 1.7009548 6448.9770 1.6953072 6453.9930 1.6898980 6459.0180 1.6843504 6464.0030 1.6789826 6468.9980 1.6734838 6474.0010 1.6683427 6479.0140 1.6629096 6483.9860 1.6579099 6489.0170 1.6527860 6494.0070 1.6479676 6499.0060 1.6430894 6504.0150 1.6386939 6508.9820 1.6342886 6509.9760 1.6336037 6510.3250 1.6334028 6510.6230 1.6333031 6510.9220 1.6330897 6511.2200 1.6328840 6511.5190 1.6326157 6511.8170 1.6324718 6512.1160 1.6322980 6512.4150 1.6321271 6512.7130 1.6318872 6513.0120 1.6317248 6513.3110 1.6314876 6513.6100 1.6313555 6513.9080 1.6312254 6514.2070 1.6308981 6514.5060 1.6307664 6514.8050 1.6306607 6515.1040 1.6304458 6515.4030 1.6302752 6515.7020 1.6301127 6516.0010 1.6299861 6516.3000 1.6298173 6516.5990 1.6296799 6516.8980 1.6294360 6517.1970 1.6292685 6517.4970 1.6290680 6517.7960 1.6290556 6518.0950 1.6289231 6518.3940 1.6287628 6518.6940 1.6286477 6519.0430 1.6284321 6519.3420 1.6282585 6519.6420 1.6280755 6519.9410 1.6280592 6520.2410 1.6279809 6520.5410 1.6278343 6520.8400 1.6276555 6521.1390 1.6277172 6521.4390 1.6275684 6521.7390 1.6274322 6522.0390 1.6273575 6522.3380 1.6273271 6522.6380 1.6273319 6522.9380 1.6272900 6523.2370 1.6272294 6523.5380 1.6271247 6523.8370 1.6271671 6524.1370 1.6270517 6524.4370 1.6271392 6524.7370 1.6269666 6525.0370 1.6271081 6525.3370 1.6270815 6525.6370 1.6272362 6525.9370 1.6272089 6526.2370 1.6272605 6526.5370 1.6272612 6526.8380 1.6274587 6527.1380 1.6275764 6527.4380 1.6277150 6527.7390 1.6278435 6528.0390 1.6280321 6528.3390 1.6281669 6528.6390 1.6283341 6528.9400 1.6285550 6529.2410 1.6287585 6529.5410 1.6290753 6529.8420 1.6294949 6530.1420 1.6297290 6530.4430 1.6300383 6530.7430 1.6304244 6531.0440 1.6308226 6531.3440 1.6311709 6531.6460 1.6316664 6531.9460 1.6321905 6532.2470 1.6327889 6532.5480 1.6334936 6532.8490 1.6341092 6533.1490 1.6348984 6533.4500 1.6356215 6533.7510 1.6365971 6534.0520 1.6375304 6534.3530 1.6386540 6534.6540 1.6399014 6534.9550 1.6413330 6535.2560 1.6428885 6535.5580 1.6447165 6535.8590 1.6466817 6536.1600 1.6492946 6536.4610 1.6519219 6536.7620 1.6558303 6537.0630 1.6605655 6537.3650 1.6666225 6537.6660 1.6752238 6537.9680 1.6867980 6538.2690 1.7007456 6538.5700 1.7133522 6538.8720 1.7240163 6539.1730 1.7312405 6539.4750 1.7352475 6539.7770 1.7359259 6540.0790 1.7358449 6540.3800 1.7387842 6540.6820 1.7467925 6540.9830 1.7594791 6541.2850 1.7785776 6541.5870 1.8073700 6541.8890 1.8431783 6542.1400 1.8808710 6542.4420 1.9347485 6542.7440 2.0069161 6543.0460 2.0801209 6543.3480 2.1662426 6543.6500 2.2443218 6543.9520 2.3219835 6544.2540 2.3892835 6544.5560 2.4431252 6544.8580 2.4906964 6545.1610 2.5292153 6545.4620 2.5643217 6545.7650 2.5988401 6546.0670 2.6346147 6546.3690 2.6749442 6546.6720 2.7153575 6546.9740 2.7527158 6547.2760 2.7956793 6547.5790 2.8375984 6547.8810 2.8886171 6548.1840 2.9454335 6548.4860 3.0096243 6548.7890 3.0839402 6549.0910 3.1561440 6549.3940 3.2274760 6549.6970 3.2827263 6550.0000 3.3204545 6550.3020 3.3484619 6550.6050 3.3682037 6550.9070 3.3846053 6551.1600 3.3968780 6551.4630 3.4123736 6551.7660 3.4291092 6552.0690 3.4476943 6552.3710 3.4691082 6552.6750 3.4972060 6552.9780 3.5244356 6553.2800 3.5487601 6553.5830 3.5651414 6553.8870 3.5663316 6554.1900 3.5483518 6554.4930 3.5130465 6554.7960 3.4646727 6555.1000 3.4102537 6555.4020 3.3535615 6555.7060 3.2934642 6556.0090 3.2409068 6556.3130 3.1947803 6556.6160 3.1501792 6556.9190 3.1166571 6557.1720 3.0920711 6557.4760 3.0669939 6557.7790 3.0477659 6558.0830 3.0333038 6558.3860 3.0210601 6558.6900 3.0110906 6558.9940 3.0026167 6559.9050 2.9781524 6560.7660 2.9507311 6561.7280 2.9250131 6562.6400 2.9166890 6563.6030 2.9268922 6564.5660 2.9618422 6565.5810 3.0227346 6566.5950 3.0776835 6567.6100 3.0857334 6568.6770 3.0501974 6569.7430 2.9945112 6570.8610 2.9410381 6571.9790 2.9088506 6573.0990 2.8978652 6574.2170 2.8962127 6575.3880 2.8954495 6576.6100 2.8899931 6577.7820 2.8789867 6579.0040 2.8696527 6580.2790 2.8690593 6581.5540 2.8747125 6582.8300 2.8852603 6584.1060 2.8961382 6585.4340 2.9008955 6586.7620 2.9060958 6588.1430 2.9344653 6589.5230 2.9861711 6590.9050 3.0420048 6592.3390 3.0927206 6593.7720 3.1297328 6595.2080 3.1455587 6596.6950 3.1457673 6598.1830 3.1432753 6599.6710 3.1238628 6601.2110 3.0869491 6602.7520 3.0464183 6604.3470 3.0094615 6605.9410 2.9809654 6607.5370 2.9646005 6609.1330 2.9534157 6610.7820 2.9350553 6612.4830 2.9112025 6614.1340 2.8916048 6615.8370 2.8798426 6617.5930 2.8800541 6619.2980 2.8924421 6621.0570 2.9128146 6622.8680 2.9317234 6624.6280 2.9406875 6626.4410 2.9366684 6628.3080 2.9252780 6630.1240 2.9176791 6632.0440 2.9165973 6633.9140 2.9212688 6635.8370 2.9337851 6637.7610 2.9554533 6639.6870 2.9792928 6641.6660 2.9909483 6643.6460 2.9858941 6645.6800 2.9687537 6647.7160 2.9456318 6649.7520 2.9205869 6651.7910 2.8929722 6653.8830 2.8657186 6655.9770 2.8465395 6658.1240 2.8459087 6660.2210 2.8654247 6662.4240 2.8941968 6664.5760 2.9185646 6666.7830 2.9316919 6668.9910 2.9279461 6671.2530 2.9115450 6673.4650 2.8944510 6675.7300 2.8824112 6678.0510 2.8781921 6680.3740 2.8816783 6682.6980 2.8870661 6685.0240 2.8922681 6687.4050 2.9003629 6689.7870 2.9070032 6692.2260 2.9073823 6694.6120 2.9013043 6697.0540 2.8890649 6699.5510 2.8703815 6701.9970 2.8467797 6704.4990 2.8212827 6707.0550 2.7980112 6709.5610 2.7814114 6712.1220 2.7731941 6714.7390 2.7751625 6717.3050 2.7855585 6719.9260 2.7989355 6722.5500 2.8102312 6725.2290 2.8190957 6727.9120 2.8246461 6730.5970 2.8275272 6733.2840 2.8263610 6736.0280 2.8152703 6738.7730 2.8189142 6741.5220 2.8190626 6744.3280 2.8096242 6747.1350 2.8037924 6749.9460 2.7998789 6752.8130 2.7929004 6755.6840 2.7846665 6758.5570 2.7759491 6761.4330 2.7690464 6764.3660 2.7640553 6767.3010 2.7666154 6770.2940 2.7623377 6773.2360 2.7132683 6776.2360 2.7418333 6779.2920 2.7280557 6782.2980 2.7197646 6785.3610 2.7139978 6788.4280 2.7113120 6791.4980 2.7109170 6794.6250 2.7103027 6797.7560 2.7124535 6800.8910 2.7139829 6804.0830 2.7156259 6807.2790 2.7151745 6810.4790 2.7132063 6813.6820 2.7101344 6816.9430 2.7072094 6820.2080 2.7019389 6823.4780 2.6931181 6826.8060 2.6822643 6830.1370 2.6725804 6833.4730 2.6653783 6836.8120 2.6609944 6840.2110 2.6577031 6843.6130 2.6548020 6847.0200 2.6503335 6850.4300 2.6454064 6853.8990 2.6389681 6857.3740 2.6331888 6860.8520 2.6300422 6864.3910 2.6281957 6867.8770 2.6260026 6871.4240 2.6244248 6875.0310 2.6234128 6878.5860 2.6218617 6882.2020 2.6188091 6885.8220 2.6158189 6889.5030 2.6109132 6893.1330 2.6053517 6896.8220 2.5973398 6900.5170 2.5872890 6904.2730 2.5782247 6907.9770 2.5718323 6911.7420 2.5666300 6915.5130 2.5634273 6919.3450 2.5606962 6923.1240 2.5567291 6926.9660 2.5520354 6930.8120 2.5470782 6934.7210 2.5424409 6938.5770 2.5381053 6942.4960 2.5334252 6946.4200 2.5291228 6950.4070 2.5249391 6954.3400 2.5212150 6958.3370 2.5172779 6962.3400 2.5137842 6966.4060 2.5112415 6970.4190 2.5080920 6974.4950 2.5043892 6978.5770 2.4993047 6982.6650 2.4937903 6986.8150 2.4886584 6990.9140 2.4830383 6995.0760 2.4771855 6999.2440 2.4716835 7003.4770 2.4662080 7007.6560 2.4603735 7011.9000 2.4549825 7016.1500 2.4499085 7020.4650 2.4452377 7024.7270 2.4398092 7029.0530 2.4341297 7033.3860 2.4288883 7037.7260 2.4243958 7042.0700 2.4197700 7046.4810 2.4160443 7050.8980 2.4131448 7055.3210 2.4095453 7059.7510 2.4053973 7064.2470 2.4004014 7068.6890 2.3944670 7073.1980 2.3887584 7077.7130 2.3831634 7082.2950 2.3785264 7086.8240 2.3741496 7091.4190 2.3690419 7096.0210 2.3634105 7100.6310 2.3574169 7105.2470 2.3524105 7109.9300 2.3479079 7114.5600 2.3474861 7119.2570 2.3445129 7124.0220 2.3410603 7128.7330 2.3378061 7133.4520 2.3352093 7138.2390 2.3325422 7143.0330 2.3263038 7147.8350 2.3205260 7152.6440 2.3153314 7157.5210 2.3098691 7162.3450 2.3045344 7167.2380 2.2997501 7172.1380 2.2951483 7177.0460 2.2904315 7182.0240 2.2852068 7186.9470 2.2794635 7191.9400 2.2744362 7196.9410 2.2690427 7201.9500 2.2635946 7207.0300 2.2579707 7212.0550 2.2521923 7217.1500 2.2472649 7222.2540 2.2418784 7227.3660 2.2368617 7232.4850 2.2318107 7237.6140 2.2263789 7242.8130 2.2206766 7247.9580 2.2153072 7253.1750 2.2105276 7258.4000 2.2059282 7263.6340 2.1989283 7268.9390 2.1968259 7274.1900 2.1911036 7279.5130 2.1858685 7284.8450 2.1806419 7290.1860 2.1754516 7295.5350 2.1705118 7300.8940 2.1649433 7306.3260 2.1599228 7311.7020 2.1545533 7317.1510 2.1493944 7322.6110 2.1439177 7328.0800 2.1385839 7333.5570 2.1332929 7339.1080 2.1277213 7344.6040 2.1225561 7350.1750 2.1166405 7355.7550 2.1114575 7361.3450 2.1063711 7366.9440 2.1010374 7372.5530 2.0958037 7378.1710 2.0904151 7383.8650 2.0845826 7389.5690 2.0789506 7395.2170 2.0735696 7400.9400 2.0680637 7406.6730 2.0626413 7412.4840 2.0567080 7418.2370 2.0506952 7424.0680 2.0450714 7429.8410 2.0394964 ifeffit-1.2.11d/examples/data/cu150k.chi0000644000175000017500000004154510771740461016614 0ustar segresegre# data : cu 150k, e0=8980, with standard # chi: skey ASCII of cu_150k.dat using skey ASCII of chi.dat # e0 = 8982.49; pre-edge range =[ -50.0 -200.0]; edge step = 2.239 # k range=[ .05 25.00]; k weight= 1.00; sills: dk1, dk2=[ .00 .00] # bkg r =[ .00 .98]; 1st shell r =[ .98 3.93]; 15 knots in spline # Cu foil 150K, foil rolled and annealled by matt # 2-SI111 HC/2D= 1977.260 STPDEG=6400. STPMMZ= 40. FOCUS=F TRANSLT=F # E0= 8980.0 NREG= 3 NPTS= 636 NSCLRS= 3 EF= .0 # SRB= -205.8 -55.6 30.0 2381.3 # DEL= 10.020 .483 .050K # SEC= 1.000 1.000 1.000 # DETECTORSI0 I If # GAINS 8 7 10 # OFFSETS 51284 50016 48319 #--------------------------------------------------------------------- # k chi(k) .0000000E-01 .0000000E+00 .5000000E-01 -.1349570E+00 .1000000E+00 -.1364246E+00 .1500000E+00 -.1378466E+00 .2000000E+00 -.1392231E+00 .2500000E+00 -.1405540E+00 .3000000E+00 -.1407631E+00 .3500000E+00 -.1415483E+00 .4000000E+00 -.1432371E+00 .4500000E+00 -.1460691E+00 .5000000E+00 -.1500562E+00 .5500000E+00 -.1540120E+00 .6000000E+00 -.1575455E+00 .6500000E+00 -.1615253E+00 .7000000E+00 -.1680378E+00 .7500000E+00 -.1725896E+00 .8000000E+00 -.1695525E+00 .8500000E+00 -.1688357E+00 .9000000E+00 -.1701343E+00 .9500000E+00 -.1648133E+00 .1000000E+01 -.1594261E+00 .1050000E+01 -.1447381E+00 .1100000E+01 -.1195247E+00 .1150000E+01 -.9704631E-01 .1200000E+01 -.7153393E-01 .1250000E+01 -.3469654E-01 .1300000E+01 -.6601339E-02 .1350000E+01 .1708043E-01 .1400000E+01 .5371474E-01 .1450000E+01 .8852175E-01 .1500000E+01 .1150028E+00 .1550000E+01 .1272454E+00 .1600000E+01 .1217749E+00 .1650000E+01 .1060664E+00 .1700000E+01 .8118993E-01 .1750000E+01 .5229523E-01 .1800000E+01 .2724180E-01 .1850000E+01 .5501074E-02 .1900000E+01 -.7286817E-02 .1950000E+01 -.1150379E-01 .2000000E+01 -.3121892E-02 .2050000E+01 .1622863E-01 .2100000E+01 .6114453E-01 .2150000E+01 .8826181E-01 .2200000E+01 .1132378E+00 .2250000E+01 .1099497E+00 .2300000E+01 .8824956E-01 .2350000E+01 .5952408E-01 .2400000E+01 .2447557E-01 .2450000E+01 -.1523827E-02 .2500000E+01 -.2521379E-01 .2550000E+01 -.4591161E-01 .2600000E+01 -.6646987E-01 .2650000E+01 -.7814886E-01 .2700000E+01 -.8067877E-01 .2750000E+01 -.7571377E-01 .2800000E+01 -.7083658E-01 .2850000E+01 -.5986724E-01 .2900000E+01 -.4696475E-01 .2950000E+01 -.2756432E-01 .3000000E+01 -.7167462E-02 .3050000E+01 .1135187E-01 .3100000E+01 .3266283E-01 .3150000E+01 .5427987E-01 .3200000E+01 .7252714E-01 .3250000E+01 .8552451E-01 .3300000E+01 .8731857E-01 .3350000E+01 .7412733E-01 .3400000E+01 .4965710E-01 .3450000E+01 .2468114E-01 .3500000E+01 -.2086145E-02 .3550000E+01 -.2488197E-01 .3600000E+01 -.4114797E-01 .3650000E+01 -.5217918E-01 .3700000E+01 -.5651664E-01 .3750000E+01 -.5371466E-01 .3800000E+01 -.4624547E-01 .3850000E+01 -.3740068E-01 .3900000E+01 -.3246280E-01 .3950000E+01 -.3463806E-01 .4000000E+01 -.3839526E-01 .4050000E+01 -.3746953E-01 .4100000E+01 -.2950763E-01 .4150000E+01 -.1792934E-01 .4200000E+01 -.1164544E-01 .4250000E+01 -.1161162E-01 .4300000E+01 -.1159744E-01 .4350000E+01 -.5949263E-02 .4400000E+01 .5597120E-02 .4450000E+01 .1879746E-01 .4500000E+01 .2809780E-01 .4550000E+01 .3553745E-01 .4600000E+01 .4383486E-01 .4650000E+01 .5427163E-01 .4700000E+01 .6813223E-01 .4750000E+01 .8204675E-01 .4800000E+01 .8930042E-01 .4850000E+01 .8628488E-01 .4900000E+01 .7458402E-01 .4950000E+01 .4940734E-01 .5000000E+01 .2509836E-01 .5050000E+01 .3905073E-02 .5100000E+01 -.1282763E-01 .5150000E+01 -.2686485E-01 .5200000E+01 -.3277424E-01 .5250000E+01 -.3533650E-01 .5300000E+01 -.4685801E-01 .5350000E+01 -.6596086E-01 .5400000E+01 -.8546099E-01 .5450000E+01 -.9692533E-01 .5500000E+01 -.9648108E-01 .5550000E+01 -.8635012E-01 .5600000E+01 -.7102476E-01 .5650000E+01 -.4906044E-01 .5700000E+01 -.2862114E-01 .5750000E+01 -.1066308E-01 .5800000E+01 .3205136E-03 .5850000E+01 .2945281E-02 .5900000E+01 -.1171669E-02 .5950000E+01 -.5262892E-02 .6000000E+01 -.1077400E-02 .6050000E+01 .2122970E-01 .6100000E+01 .6028236E-01 .6150000E+01 .9768771E-01 .6200000E+01 .1184784E+00 .6250000E+01 .1207462E+00 .6300000E+01 .1128104E+00 .6350000E+01 .1019034E+00 .6400000E+01 .8777098E-01 .6450000E+01 .6739514E-01 .6500000E+01 .3606112E-01 .6550000E+01 .9052111E-03 .6600000E+01 -.3637192E-01 .6650000E+01 -.7500938E-01 .6700000E+01 -.1076499E+00 .6750000E+01 -.1278909E+00 .6800000E+01 -.1304961E+00 .6850000E+01 -.1115134E+00 .6900000E+01 -.7927996E-01 .6950000E+01 -.4125748E-01 .7000000E+01 -.7939015E-02 .7050000E+01 .1506500E-01 .7100000E+01 .2664245E-01 .7150000E+01 .2569954E-01 .7200000E+01 .1735704E-01 .7250000E+01 .9532048E-02 .7300000E+01 .6217430E-02 .7350000E+01 .4564668E-02 .7400000E+01 -.2648043E-02 .7450000E+01 -.1268053E-01 .7500000E+01 -.1285961E-01 .7550000E+01 .5150293E-02 .7600000E+01 .3640072E-01 .7650000E+01 .6397419E-01 .7700000E+01 .7665327E-01 .7750000E+01 .7864691E-01 .7800000E+01 .7413906E-01 .7850000E+01 .6285187E-01 .7900000E+01 .4192679E-01 .7950000E+01 .1465708E-01 .8000000E+01 -.1343592E-01 .8050000E+01 -.3649882E-01 .8100000E+01 -.5208160E-01 .8150001E+01 -.5976042E-01 .8200000E+01 -.5759178E-01 .8250000E+01 -.4843629E-01 .8300000E+01 -.4051453E-01 .8350000E+01 -.3710198E-01 .8400001E+01 -.3373532E-01 .8450000E+01 -.2966421E-01 .8500000E+01 -.2546316E-01 .8550000E+01 -.1836304E-01 .8600000E+01 -.7997252E-02 .8650001E+01 .2376992E-02 .8700000E+01 .1033436E-01 .8750000E+01 .1578316E-01 .8800000E+01 .1913273E-01 .8850000E+01 .2230083E-01 .8900001E+01 .2673014E-01 .8950000E+01 .3181681E-01 .9000000E+01 .3797360E-01 .9050000E+01 .4263814E-01 .9100000E+01 .3976186E-01 .9150001E+01 .3000722E-01 .9200000E+01 .1866474E-01 .9250000E+01 .6210732E-02 .9300000E+01 -.6493228E-02 .9350000E+01 -.1419804E-01 .9400001E+01 -.1474274E-01 .9450000E+01 -.1048850E-01 .9500000E+01 -.6166806E-02 .9550000E+01 -.7254178E-02 .9600000E+01 -.1503094E-01 .9650001E+01 -.2681966E-01 .9700000E+01 -.3394417E-01 .9750000E+01 -.2972841E-01 .9800000E+01 -.2214051E-01 .9850000E+01 -.1828627E-01 .9900001E+01 -.1436512E-01 .9950000E+01 -.8774672E-02 .1000000E+02 -.4131747E-02 .1005000E+02 .2408813E-03 .1010000E+02 .4721499E-02 .1015000E+02 .8820284E-02 .1020000E+02 .1267114E-01 .1025000E+02 .1608771E-01 .1030000E+02 .1843857E-01 .1035000E+02 .2043134E-01 .1040000E+02 .2243649E-01 .1045000E+02 .2245577E-01 .1050000E+02 .1924061E-01 .1055000E+02 .1289793E-01 .1060000E+02 .4049626E-02 .1065000E+02 -.4133340E-02 .1070000E+02 -.8664473E-02 .1075000E+02 -.9143449E-02 .1080000E+02 -.6691198E-02 .1085000E+02 -.2854111E-02 .1090000E+02 -.3293194E-03 .1095000E+02 .2759489E-03 .1100000E+02 -.1298348E-02 .1105000E+02 -.5981182E-02 .1110000E+02 -.1114366E-01 .1115000E+02 -.1288225E-01 .1120000E+02 -.1128142E-01 .1125000E+02 -.1044197E-01 .1130000E+02 -.1138696E-01 .1135000E+02 -.1157066E-01 .1140000E+02 -.1015737E-01 .1145000E+02 -.7016730E-02 .1150000E+02 -.2428907E-02 .1155000E+02 .2390234E-02 .1160000E+02 .7312212E-02 .1165000E+02 .1242084E-01 .1170000E+02 .1717011E-01 .1175000E+02 .2019488E-01 .1180000E+02 .2027905E-01 .1185000E+02 .1708700E-01 .1190000E+02 .1043240E-01 .1195000E+02 .1788578E-02 .1200000E+02 -.3306629E-02 .1205000E+02 -.4897099E-02 .1210000E+02 -.5523770E-02 .1215000E+02 -.5462515E-02 .1220000E+02 -.4855450E-02 .1225000E+02 -.3660949E-02 .1230000E+02 -.2670545E-02 .1235000E+02 -.2882042E-02 .1240000E+02 -.3171541E-02 .1245000E+02 -.3166651E-02 .1250000E+02 -.3618481E-02 .1255000E+02 -.5481635E-02 .1260000E+02 -.7077093E-02 .1265000E+02 -.6154832E-02 .1270000E+02 -.4799335E-02 .1275000E+02 -.3355558E-02 .1280000E+02 -.1446897E-02 .1285000E+02 -.4078780E-03 .1290000E+02 .8422427E-03 .1295000E+02 .2581638E-02 .1300000E+02 .4876402E-02 .1305000E+02 .6265292E-02 .1310000E+02 .6114891E-02 .1315000E+02 .5683431E-02 .1320000E+02 .4891056E-02 .1325000E+02 .4166328E-02 .1330000E+02 .3336347E-02 .1335000E+02 .1800346E-02 .1340000E+02 .2650270E-03 .1345000E+02 -.5230521E-03 .1350000E+02 -.7083883E-03 .1355000E+02 -.8805078E-03 .1360000E+02 -.1102556E-02 .1365000E+02 -.1983914E-02 .1370000E+02 -.2552876E-02 .1375000E+02 -.2323356E-02 .1380000E+02 -.2116579E-02 .1385000E+02 -.2437968E-02 .1390000E+02 -.3027290E-02 .1395000E+02 -.3187619E-02 .1400000E+02 -.3388483E-02 .1405000E+02 -.3300806E-02 .1410000E+02 -.2311937E-02 .1415000E+02 -.9828801E-03 .1420000E+02 .6938903E-03 .1425000E+02 .1943033E-02 .1430000E+02 .2643103E-02 .1435000E+02 .3114876E-02 .1440000E+02 .3064333E-02 .1445000E+02 .2201948E-02 .1450000E+02 .1261606E-02 .1455000E+02 .1180271E-02 .1460000E+02 .1742544E-02 .1465000E+02 .2040430E-02 .1470000E+02 .2375654E-02 .1475000E+02 .2257448E-02 .1480000E+02 .1531198E-02 .1485000E+02 .3761472E-03 .1490000E+02 -.3264421E-03 .1495000E+02 -.9895213E-03 .1500000E+02 -.1409675E-02 .1505000E+02 -.1372587E-02 .1510000E+02 -.1608055E-02 .1515000E+02 -.2216156E-02 .1520000E+02 -.1660145E-02 .1525000E+02 -.1930313E-02 .1530000E+02 -.1843823E-02 .1535000E+02 -.1434939E-02 .1540000E+02 -.1327267E-02 .1545000E+02 -.5790993E-03 .1550000E+02 .2281091E-03 .1555000E+02 .6795746E-03 .1560000E+02 .1072095E-02 .1565000E+02 .1185772E-02 .1570000E+02 .1166782E-02 .1575000E+02 .1105240E-02 .1580000E+02 .1074723E-02 .1585000E+02 .1009107E-02 .1590000E+02 .6377726E-03 .1595000E+02 .3296905E-03 .1600000E+02 .1107352E-03 .1605000E+02 .4845408E-03 .1610000E+02 .3575126E-03 .1615000E+02 .4288015E-03 .1620000E+02 .4252253E-03 .1625000E+02 -.7309543E-04 .1630000E+02 -.9590901E-04 .1635000E+02 -.2036409E-03 .1640000E+02 -.5320893E-03 .1645000E+02 -.5243527E-03 .1650000E+02 -.9577300E-03 .1655000E+02 -.9458566E-03 .1660000E+02 -.8937128E-03 .1665000E+02 -.1044702E-02 .1670000E+02 -.8803513E-03 .1675000E+02 -.6159607E-03 .1680000E+02 -.2258455E-03 .1685000E+02 .2959995E-03 .1690000E+02 .5032127E-03 .1695000E+02 .6346561E-03 .1700000E+02 .6884584E-03 .1705000E+02 .7939237E-03 .1710000E+02 .8222117E-03 .1715000E+02 .4475868E-03 .1720000E+02 .5953423E-03 .1725000E+02 .4518523E-03 .1730000E+02 .2324060E-03 .1735000E+02 .9834708E-04 .1740000E+02 .2751917E-04 .1745000E+02 -.1495631E-03 .1750000E+02 -.9618198E-04 .1755000E+02 -.4331282E-04 .1760000E+02 -.7608184E-04 .1765000E+02 -.1209966E-03 .1770000E+02 -.2439205E-03 .1775000E+02 -.3840506E-03 .1780000E+02 -.3182026E-03 .1785000E+02 -.5688051E-03 .1790000E+02 -.4374390E-03 .1795000E+02 -.3748189E-03 .1800000E+02 -.4038491E-03 .1805000E+02 -.1256403E-03 .1810000E+02 -.1464082E-03 .1815000E+02 .2929793E-04 .1820000E+02 .9575122E-04 .1825000E+02 .1302892E-03 .1830000E+02 .4480421E-04 .1835000E+02 .1272419E-03 .1840000E+02 .5288379E-04 .1845000E+02 .1580677E-03 .1850000E+02 .2081642E-03 .1855000E+02 .1387530E-03 .1860000E+02 .2730419E-03 .1865000E+02 .2117620E-03 .1870000E+02 .2544131E-03 .1875000E+02 .1647367E-03 .1880000E+02 .1332544E-03 .1885000E+02 .1360474E-03 .1890000E+02 -.3625543E-04 .1895000E+02 -.1169046E-03 .1900000E+02 -.2439428E-04 .1905000E+02 -.2422493E-03 .1910000E+02 -.1751299E-03 .1915000E+02 -.2422760E-03 .1920000E+02 -.4110227E-03 .1925000E+02 -.2313499E-03 .1930000E+02 -.1705482E-03 .1935000E+02 -.1052814E-03 .1940000E+02 -.3047990E-04 .1945000E+02 -.2213562E-03 .1950000E+02 .2106906E-04 .1955000E+02 -.9608833E-04 .1960000E+02 .1744083E-03 .1965000E+02 .1964765E-03 .1970000E+02 .2740311E-03 .1975000E+02 .3656952E-03 .1980000E+02 .2867324E-03 .1985000E+02 .3080265E-03 .1990000E+02 .3333950E-03 .1995000E+02 .3238477E-03 .2000000E+02 .3805887E-03 .2005000E+02 .3769516E-03 .2010000E+02 .3217490E-03 .2015000E+02 .3595896E-03 .2020000E+02 .3566022E-03 .2025000E+02 .2568923E-03 .2030000E+02 .1651887E-03 .2035000E+02 .1390089E-03 .2040000E+02 .7635990E-04 .2045000E+02 .5146206E-04 .2050000E+02 .9527733E-04 .2055000E+02 .1458182E-03 .2060000E+02 .3308178E-03 .2065000E+02 .1356735E-03 .2070000E+02 .1053987E-03 .2075000E+02 .7282948E-04 .2080000E+02 -.4132986E-04 .2085000E+02 .1716852E-04 .2090000E+02 .4923316E-04 .2095000E+02 .3241322E-05 .2100000E+02 .8149264E-04 .2105000E+02 .2312123E-04 .2110000E+02 -.4199834E-04 .2115000E+02 .4549205E-04 .2120000E+02 .2200119E-03 .2125000E+02 .2925938E-04 .2130000E+02 .7336032E-04 .2135000E+02 .1100462E-03 .2140000E+02 -.7025245E-04 .2145000E+02 -.6271205E-04 .2150000E+02 -.3439743E-04 .2155000E+02 -.1556511E-03 .2160000E+02 -.1894748E-03 .2165000E+02 -.1314319E-03 .2170000E+02 -.1921691E-03 .2175000E+02 -.9449966E-04 .2180000E+02 -.8082861E-04 .2185000E+02 -.1206484E-04 .2190000E+02 -.5011367E-04 .2195000E+02 .1784601E-04 .2200000E+02 .8761964E-04 .2205000E+02 .9838286E-04 .2210000E+02 .1200696E-04 .2215000E+02 -.7029904E-04 .2220000E+02 -.8857033E-04 .2225000E+02 .1452022E-04 .2230000E+02 .1288740E-03 .2235000E+02 .4553262E-04 .2240000E+02 .1328718E-03 .2245000E+02 .1075948E-03 .2250000E+02 -.3319198E-04 .2255000E+02 -.2013317E-04 .2260000E+02 .4906136E-04 .2265000E+02 .1743624E-04 .2270000E+02 .6038400E-04 .2275000E+02 .2037475E-05 .2280000E+02 .4992650E-04 .2285000E+02 .6420974E-04 .2290000E+02 -.6950322E-05 .2295000E+02 .2061850E-04 .2300000E+02 .3284592E-05 .2305000E+02 .7496367E-04 .2310000E+02 .5286008E-04 .2315000E+02 -.9922685E-04 .2320000E+02 -.9398686E-04 .2325000E+02 -.1140850E-03 .2330000E+02 -.3410535E-04 .2335000E+02 .3101191E-04 .2340000E+02 -.1244999E-03 .2345000E+02 .1603628E-03 .2350000E+02 -.3041130E-04 .2355000E+02 -.1299457E-03 .2360000E+02 .4793093E-03 .2365000E+02 -.8917088E-04 .2370000E+02 -.9243773E-04 .2375000E+02 -.3989947E-04 .2380000E+02 -.3395161E-04 .2385000E+02 -.2216307E-05 .2390000E+02 -.4384136E-04 .2395000E+02 -.7341045E-04 .2400000E+02 -.5481433E-04 .2405000E+02 .5726633E-04 .2410000E+02 .2100820E-04 .2415000E+02 -.1664209E-04 .2420000E+02 .4993738E-04 .2425000E+02 .4365978E-04 .2430000E+02 -.3839417E-04 .2435000E+02 .2542741E-04 .2440000E+02 .2697816E-04 .2445000E+02 -.3305704E-04 .2450000E+02 .6774210E-04 .2455000E+02 .2598737E-04 .2460000E+02 .7620228E-04 .2465000E+02 -.1814494E-04 .2470000E+02 .2011522E-04 .2475000E+02 -.8429427E-04 .2480000E+02 -.5223056E-04 .2485000E+02 -.8559078E-04 .2490000E+02 -.1581298E-03 .2495000E+02 -.1395442E-03 .2500000E+02 -.1576996E-03 ifeffit-1.2.11d/examples/data/b.xmu0000644000175000017500000004762110771740461016074 0ustar segresegre# Cu foil at 10K ## cu10k.dat : this file is part of the uwxafs 3.0 distribution # data taken at NSLS beamline X-11A Sept 1992 # by M Newville, B Ravel, and Y Zhang # foil of 99.999% Cu rolled and annealled to ~12 microns # sample prepared by M Newville # From X-11A : # 2-SI111 HC/2D= 1977.260 STPDEG=6400. STPMMZ= 40. # FOCUS=F TRANSLT=F E0= 8980.0 NREG= 3 NPTS= 611 NSCLRS= 3 EF= .0 # SRB= -193.7 -43.5 30.0 2381.3 # DEL= 10.020 .483 .050K # SEC= 1.000 1.000 1.000 # DETECTORSI0 I If # GAINS 8 7 10 # OFFSETS 51284 50016 48319 #--------------------------------------------------------------------- # energy xmu .8786204E+04 .1013661E+01 .8806253E+04 .9900679E+00 .8816270E+04 .9850345E+00 .8826270E+04 .9801005E+00 .8836292E+04 .9751812E+00 .8846337E+04 .9703809E+00 .8856322E+04 .9656931E+00 .8866372E+04 .9609839E+00 .8876361E+04 .9562312E+00 .8886416E+04 .9515597E+00 .8896409E+04 .9472797E+00 .8906425E+04 .9427789E+00 .8916464E+04 .9387816E+00 .8926483E+04 .9347627E+00 .8936483E+04 .9319326E+00 .8936998E+04 .9318979E+00 .8937471E+04 .9319605E+00 .8937944E+04 .9317057E+00 .8938417E+04 .9314675E+00 .8938976E+04 .9315093E+00 .8939406E+04 .9315045E+00 .8939878E+04 .9313901E+00 .8940352E+04 .9313291E+00 .8940824E+04 .9312409E+00 .8941384E+04 .9311222E+00 .8941814E+04 .9310213E+00 .8942287E+04 .9309021E+00 .8942761E+04 .9307298E+00 .8943319E+04 .9306122E+00 .8943793E+04 .9304990E+00 .8944224E+04 .9306326E+00 .8944697E+04 .9305469E+00 .8945257E+04 .9303982E+00 .8945730E+04 .9303880E+00 .8946204E+04 .9303346E+00 .8946635E+04 .9303558E+00 .8947108E+04 .9302956E+00 .8947668E+04 .9302498E+00 .8948143E+04 .9302464E+00 .8948616E+04 .9301887E+00 .8949048E+04 .9302589E+00 .8949564E+04 .9302350E+00 .8950038E+04 .9301157E+00 .8950513E+04 .9302852E+00 .8950987E+04 .9301982E+00 .8951461E+04 .9303481E+00 .8951979E+04 .9303330E+00 .8952453E+04 .9302519E+00 .8952927E+04 .9303452E+00 .8953876E+04 .9305623E+00 .8954394E+04 .9306202E+00 .8953401E+04 .9304274E+00 .8954868E+04 .9307082E+00 .8954868E+04 .9307082E+00 .8955343E+04 .9309137E+00 .8957285E+04 .9314795E+00 .8955817E+04 .9310440E+00 .8956336E+04 .9311512E+00 .9167009E+04 .2917572E+01 .8956811E+04 .9312306E+00 .8957761E+04 .9315805E+00 .8958235E+04 .9318467E+00 .8958710E+04 .9322639E+00 .8959229E+04 .9325585E+00 .8959703E+04 .9327140E+00 .8960179E+04 .9331298E+00 .8960654E+04 .9333592E+00 .8961130E+04 .9338366E+00 .8961647E+04 .9340628E+00 .8962123E+04 .9345798E+00 .8962599E+04 .9350846E+00 .8963074E+04 .9357670E+00 .8963550E+04 .9363439E+00 .8964068E+04 .9371685E+00 .8964544E+04 .9378253E+00 .8965020E+04 .9386100E+00 .8965496E+04 .9393651E+00 .8965972E+04 .9404053E+00 .8966447E+04 .9413668E+00 .8966967E+04 .9426652E+00 .8967442E+04 .9440842E+00 .8967919E+04 .9458520E+00 .8968395E+04 .9469061E+00 .8968871E+04 .9484839E+00 .8969347E+04 .9510049E+00 .8969909E+04 .9537250E+00 .8970386E+04 .9559226E+00 .8970862E+04 .9591411E+00 .8971339E+04 .9638383E+00 .8971772E+04 .9658701E+00 .8972248E+04 .9704646E+00 .8972812E+04 .9777987E+00 .8973288E+04 .9857215E+00 .8973765E+04 .9959283E+00 .8974198E+04 .1004012E+01 .8974675E+04 .1025727E+01 .8975151E+04 .1041380E+01 .8975628E+04 .1065133E+01 .8976192E+04 .1129467E+01 .8976626E+04 .1208882E+01 .8977103E+04 .1347811E+01 .8977580E+04 .1576825E+01 .8978057E+04 .1781245E+01 .8978534E+04 .1922731E+01 .8979055E+04 .1990812E+01 .8979531E+04 .2014387E+01 .8980009E+04 .2006267E+01 .8980486E+04 .1985342E+01 .8980964E+04 .1960698E+01 .8981441E+04 .1948155E+01 .8981919E+04 .1962577E+01 .8982396E+04 .1988741E+01 .8982918E+04 .2034157E+01 .8983396E+04 .2087115E+01 .8983873E+04 .2129985E+01 .8984352E+04 .2166079E+01 .8984829E+04 .2204677E+01 .8985307E+04 .2266785E+01 .8985785E+04 .2305345E+01 .8986307E+04 .2377522E+01 .8986784E+04 .2447587E+01 .8987263E+04 .2550736E+01 .8987741E+04 .2628802E+01 .8988219E+04 .2739306E+01 .8988697E+04 .2846921E+01 .8989176E+04 .2926129E+01 .8989653E+04 .3004384E+01 .8990132E+04 .3103122E+01 .8990698E+04 .3211040E+01 .8991133E+04 .3253994E+01 .8991611E+04 .3299688E+01 .8992090E+04 .3307443E+01 .8992568E+04 .3292812E+01 .8993048E+04 .3270622E+01 .8993526E+04 .3232157E+01 .8994006E+04 .3193880E+01 .8994484E+04 .3153873E+01 .8995007E+04 .3110148E+01 .8995485E+04 .3076609E+01 .8995965E+04 .3057663E+01 .8996444E+04 .3044436E+01 .8996924E+04 .3038896E+01 .8997402E+04 .3047299E+01 .8997882E+04 .3067514E+01 .8998361E+04 .3100560E+01 .8998840E+04 .3164385E+01 .8999319E+04 .3198286E+01 .8999799E+04 .3253436E+01 .9000366E+04 .3303922E+01 .9000803E+04 .3341708E+01 .9001281E+04 .3359158E+01 .9001762E+04 .3356086E+01 .9002241E+04 .3337021E+01 .9002721E+04 .3294590E+01 .9003201E+04 .3271427E+01 .9003681E+04 .3230007E+01 .9004161E+04 .3208134E+01 .9004642E+04 .3151590E+01 .9005121E+04 .3126171E+01 .9005602E+04 .3094709E+01 .9006125E+04 .3063252E+01 .9006605E+04 .3043238E+01 .9007086E+04 .3022431E+01 .9007566E+04 .2994922E+01 .9008047E+04 .2975828E+01 .9008526E+04 .2955377E+01 .9009007E+04 .2941575E+01 .9009487E+04 .2933227E+01 .9009969E+04 .2931259E+01 .9011062E+04 .2941681E+01 .9012153E+04 .2955967E+01 .9013246E+04 .2980734E+01 .9014384E+04 .3008692E+01 .9015565E+04 .3061603E+01 .9016746E+04 .3111765E+01 .9017928E+04 .3151268E+01 .9019154E+04 .3209008E+01 .9020380E+04 .3265456E+01 .9021606E+04 .3309451E+01 .9022877E+04 .3344066E+01 .9024191E+04 .3347933E+01 .9025464E+04 .3317408E+01 .9026822E+04 .3256685E+01 .9028140E+04 .3197553E+01 .9029499E+04 .3127461E+01 .9030903E+04 .3074151E+01 .9032309E+04 .3038878E+01 .9033759E+04 .3014589E+01 .9035164E+04 .3009469E+01 .9036615E+04 .3019048E+01 .9038109E+04 .3042527E+01 .9039604E+04 .3064316E+01 .9041145E+04 .3070378E+01 .9042642E+04 .3060592E+01 .9044271E+04 .3049929E+01 .9045768E+04 .3056479E+01 .9047397E+04 .3083377E+01 .9049029E+04 .3111159E+01 .9050616E+04 .3117680E+01 .9052336E+04 .3112090E+01 .9053969E+04 .3114585E+01 .9055646E+04 .3135969E+01 .9057324E+04 .3166758E+01 .9059047E+04 .3194733E+01 .9060814E+04 .3212787E+01 .9062627E+04 .3230845E+01 .9064353E+04 .3252570E+01 .9066166E+04 .3285908E+01 .9067981E+04 .3320478E+01 .9069842E+04 .3347080E+01 .9071702E+04 .3347973E+01 .9073563E+04 .3322422E+01 .9075470E+04 .3270037E+01 .9077377E+04 .3199704E+01 .9079329E+04 .3141443E+01 .9081283E+04 .3096301E+01 .9083237E+04 .3056642E+01 .9085281E+04 .3035020E+01 .9087237E+04 .3030587E+01 .9089283E+04 .3008554E+01 .9091330E+04 .2954597E+01 .9093378E+04 .2905036E+01 .9095472E+04 .2869176E+01 .9097610E+04 .2861018E+01 .9099705E+04 .2881511E+01 .9101847E+04 .2917772E+01 .9104033E+04 .2965204E+01 .9106221E+04 .3017964E+01 .9108409E+04 .3067991E+01 .9110644E+04 .3100566E+01 .9112879E+04 .3107379E+01 .9115160E+04 .3090957E+01 .9117398E+04 .3071216E+01 .9119728E+04 .3065036E+01 .9122057E+04 .3105295E+01 .9124389E+04 .3203622E+01 .9126721E+04 .3327629E+01 .9129099E+04 .3390544E+01 .9131478E+04 .3393080E+01 .9133904E+04 .3363564E+01 .9136331E+04 .3334324E+01 .9138805E+04 .3300580E+01 .9141279E+04 .3238897E+01 .9143756E+04 .3156461E+01 .9146233E+04 .3055825E+01 .9148803E+04 .2946566E+01 .9151328E+04 .2839257E+01 .9153899E+04 .2747080E+01 .9156474E+04 .2689709E+01 .9159094E+04 .2682628E+01 .9161716E+04 .2730871E+01 .9164339E+04 .2816572E+01 .9169681E+04 .3016081E+01 .9172399E+04 .3080977E+01 .9175074E+04 .3115732E+01 .9177842E+04 .3108910E+01 .9180564E+04 .3070012E+01 .9183381E+04 .3033550E+01 .9186153E+04 .3015555E+01 .9188973E+04 .3007977E+01 .9191794E+04 .2979829E+01 .9194663E+04 .2938781E+01 .9197533E+04 .2929960E+01 .9200406E+04 .2976179E+01 .9203326E+04 .3073268E+01 .9206247E+04 .3170151E+01 .9209217E+04 .3203155E+01 .9212143E+04 .3206142E+01 .9215115E+04 .3190300E+01 .9218183E+04 .3147204E+01 .9221160E+04 .3071421E+01 .9224185E+04 .2977321E+01 .9227258E+04 .2889161E+01 .9230333E+04 .2822056E+01 .9233502E+04 .2781351E+01 .9236581E+04 .2763039E+01 .9239755E+04 .2769146E+01 .9242838E+04 .2800158E+01 .9246016E+04 .2822845E+01 .9249196E+04 .2821907E+01 .9252425E+04 .2826751E+01 .9255655E+04 .2834598E+01 .9258889E+04 .2837595E+01 .9262171E+04 .2852731E+01 .9265454E+04 .2884891E+01 .9268787E+04 .2914335E+01 .9272122E+04 .2934046E+01 .9275459E+04 .2943820E+01 .9278800E+04 .2944769E+01 .9282188E+04 .2942882E+01 .9285580E+04 .2952354E+01 .9289021E+04 .2967295E+01 .9292465E+04 .2986871E+01 .9295910E+04 .3003432E+01 .9299404E+04 .2981879E+01 .9302949E+04 .2933500E+01 .9306403E+04 .2889045E+01 .9309953E+04 .2840568E+01 .9313506E+04 .2796097E+01 .9317061E+04 .2775838E+01 .9320666E+04 .2781760E+01 .9324320E+04 .2801508E+01 .9327932E+04 .2816890E+01 .9331592E+04 .2803144E+01 .9335256E+04 .2763032E+01 .9338922E+04 .2711823E+01 .9342639E+04 .2687955E+01 .9346358E+04 .2711813E+01 .9350128E+04 .2737134E+01 .9353900E+04 .2737934E+01 .9357677E+04 .2748922E+01 .9361455E+04 .2765675E+01 .9365285E+04 .2773098E+01 .9369165E+04 .2781047E+01 .9373048E+04 .2789819E+01 .9376840E+04 .2797477E+01 .9380777E+04 .2804734E+01 .9384671E+04 .2809786E+01 .9388614E+04 .2812114E+01 .9392563E+04 .2813700E+01 .9396561E+04 .2814358E+01 .9400515E+04 .2809979E+01 .9404567E+04 .2793399E+01 .9408576E+04 .2760490E+01 .9412637E+04 .2718249E+01 .9416700E+04 .2683656E+01 .9420768E+04 .2671065E+01 .9424935E+04 .2671632E+01 .9429010E+04 .2681260E+01 .9433184E+04 .2696438E+01 .9437313E+04 .2704987E+01 .9441495E+04 .2701200E+01 .9445729E+04 .2686653E+01 .9449966E+04 .2657398E+01 .9454208E+04 .2628573E+01 .9458453E+04 .2623585E+01 .9462702E+04 .2633209E+01 .9467004E+04 .2630277E+01 .9471358E+04 .2616724E+01 .9475668E+04 .2610234E+01 .9480029E+04 .2609877E+01 .9484396E+04 .2618066E+01 .9488814E+04 .2632820E+01 .9493189E+04 .2645850E+01 .9497665E+04 .2661480E+01 .9502097E+04 .2680759E+01 .9506581E+04 .2696983E+01 .9511118E+04 .2702235E+01 .9515563E+04 .2694176E+01 .9520109E+04 .2669260E+01 .9524611E+04 .2625398E+01 .9529265E+04 .2580381E+01 .9533775E+04 .2561563E+01 .9538438E+04 .2556394E+01 .9543007E+04 .2555007E+01 .9547679E+04 .2552842E+01 .9552306E+04 .2553917E+01 .9556986E+04 .2558074E+01 .9561673E+04 .2558972E+01 .9566462E+04 .2552003E+01 .9571157E+04 .2546721E+01 .9575956E+04 .2543460E+01 .9580661E+04 .2535349E+01 .9585470E+04 .2517931E+01 .9590283E+04 .2509453E+01 .9595102E+04 .2508878E+01 .9599976E+04 .2507338E+01 .9604854E+04 .2511822E+01 .9609737E+04 .2515893E+01 .9614625E+04 .2514758E+01 .9619568E+04 .2514053E+01 .9624518E+04 .2518860E+01 .9629471E+04 .2526326E+01 .9634431E+04 .2524162E+01 .9639445E+04 .2515393E+01 .9644466E+04 .2505588E+01 .9649541E+04 .2495945E+01 .9654571E+04 .2489619E+01 .9659708E+04 .2480515E+01 .9664750E+04 .2465866E+01 .9669847E+04 .2454911E+01 .9675001E+04 .2448600E+01 .9680159E+04 .2444625E+01 .9685324E+04 .2444391E+01 .9690545E+04 .2438542E+01 .9695722E+04 .2425891E+01 .9700953E+04 .2421363E+01 .9706243E+04 .2420298E+01 .9711486E+04 .2415727E+01 .9716788E+04 .2406582E+01 .9722094E+04 .2399528E+01 .9727407E+04 .2394548E+01 .9732776E+04 .2385773E+01 .9738204E+04 .2384001E+01 .9743535E+04 .2385557E+01 .9748923E+04 .2387176E+01 .9754317E+04 .2393320E+01 .9759769E+04 .2393286E+01 .9765227E+04 .2390265E+01 .9770742E+04 .2386799E+01 .9776212E+04 .2377775E+01 .9781793E+04 .2363987E+01 .9787275E+04 .2354141E+01 .9792816E+04 .2352211E+01 .9798416E+04 .2352589E+01 .9804022E+04 .2351565E+01 .9809584E+04 .2349586E+01 .9815254E+04 .2343184E+01 .9820880E+04 .2331066E+01 .9826564E+04 .2319885E+01 .9832308E+04 .2309800E+01 .9837953E+04 .2302536E+01 .9843659E+04 .2298680E+01 .9849422E+04 .2294200E+01 .9855192E+04 .2287658E+01 .9860971E+04 .2282896E+01 .9866755E+04 .2277700E+01 .9872600E+04 .2273120E+01 .9878450E+04 .2271066E+01 .9884310E+04 .2266972E+01 .9890175E+04 .2263576E+01 .1085041E+05 .1614815E+01 .9896100E+04 .2263998E+01 .9901980E+04 .2264150E+01 .9907920E+04 .2261573E+01 .9913867E+04 .2257439E+01 .9919876E+04 .2252447E+01 .9925838E+04 .2245956E+01 .9931859E+04 .2240462E+01 .9937890E+04 .2235462E+01 .9943980E+04 .2228760E+01 .9950025E+04 .2219993E+01 .9956132E+04 .2213546E+01 .9962300E+04 .2207783E+01 .9968367E+04 .2204902E+01 .9974497E+04 .2202134E+01 .9980687E+04 .2199268E+01 .9986832E+04 .2191243E+01 .9993038E+04 .2184893E+01 .9999253E+04 .2181988E+01 .1000553E+05 .2175889E+01 .1001176E+05 .2168400E+01 .1001805E+05 .2161425E+01 .1002435E+05 .2155688E+01 .1003066E+05 .2151178E+01 .1003703E+05 .2145570E+01 .1004336E+05 .2139351E+01 .1004974E+05 .2135055E+01 .1005614E+05 .2131782E+01 .1006254E+05 .2131762E+01 .1006896E+05 .2132080E+01 .1007543E+05 .2127986E+01 .1008192E+05 .2122787E+01 .1008846E+05 .2116560E+01 .1009491E+05 .2112059E+01 .1010142E+05 .2107203E+01 .1010794E+05 .2101453E+01 .1011452E+05 .2094787E+01 .1012111E+05 .2089134E+01 .1012771E+05 .2082759E+01 .1013432E+05 .2078182E+01 .1014105E+05 .2073463E+01 .1014768E+05 .2068076E+01 .1015431E+05 .2063473E+01 .1016101E+05 .2061048E+01 .1016778E+05 .2055853E+01 .1017449E+05 .2049533E+01 .1018128E+05 .2042940E+01 .1018807E+05 .2036571E+01 .1019482E+05 .2031228E+01 .1020163E+05 .2026054E+01 .1020845E+05 .2021201E+01 .1021528E+05 .2017216E+01 .1022217E+05 .2014019E+01 .1022913E+05 .2011350E+01 .1023599E+05 .2007960E+01 .1024286E+05 .2003555E+01 .1024985E+05 .1997455E+01 .1025679E+05 .1991910E+01 .1026380E+05 .1988298E+01 .1027082E+05 .1983455E+01 .1027785E+05 .1978791E+01 .1028489E+05 .1974810E+01 .1029188E+05 .1969660E+01 .1029905E+05 .1964434E+01 .1030612E+05 .1960277E+01 .1031320E+05 .1955222E+01 .1032041E+05 .1949610E+01 .1032750E+05 .1943582E+01 .1033473E+05 .1937461E+01 .1034185E+05 .1931902E+01 .1034909E+05 .1926781E+01 .1035635E+05 .1922293E+01 .1036361E+05 .1918179E+01 .1037089E+05 .1913225E+01 .1037817E+05 .1908101E+01 .1038547E+05 .1902590E+01 .1039278E+05 .1897350E+01 .1040010E+05 .1892302E+01 .1040748E+05 .1888240E+01 .1041482E+05 .1884945E+01 .1042223E+05 .1880880E+01 .1042965E+05 .1875209E+01 .1043714E+05 .1869117E+01 .1044458E+05 .1864810E+01 .1045203E+05 .1859730E+01 .1045955E+05 .1854703E+01 .1046708E+05 .1850927E+01 .1047463E+05 .1846062E+01 .1048218E+05 .1841454E+01 .1048975E+05 .1836949E+01 .1049732E+05 .1832029E+01 .1050497E+05 .1827266E+01 .1051257E+05 .1822091E+01 .1052024E+05 .1816615E+01 .1052792E+05 .1811286E+01 .1053562E+05 .1806091E+01 .1054332E+05 .1801056E+01 .1055104E+05 .1795975E+01 .1055877E+05 .1790457E+01 .1056650E+05 .1784985E+01 .1057432E+05 .1779817E+01 .1058220E+05 .1774830E+01 .1058991E+05 .1770077E+01 .1059776E+05 .1765584E+01 .1060562E+05 .1761346E+01 .1061355E+05 .1756188E+01 .1062143E+05 .1751146E+01 .1062933E+05 .1745866E+01 .1063730E+05 .1741325E+01 .1064521E+05 .1736995E+01 .1065321E+05 .1732137E+01 .1066121E+05 .1727265E+01 .1066923E+05 .1722011E+01 .1067726E+05 .1716960E+01 .1068530E+05 .1711949E+01 .1069335E+05 .1707255E+01 .1070154E+05 .1702657E+01 .1070956E+05 .1698036E+01 .1071771E+05 .1692923E+01 .1072581E+05 .1688424E+01 .1073399E+05 .1683495E+01 .1074224E+05 .1678441E+01 .1075038E+05 .1673326E+01 .1075860E+05 .1668216E+01 .1076683E+05 .1662904E+01 .1077514E+05 .1657390E+01 .1078339E+05 .1652672E+01 .1079172E+05 .1647545E+01 .1080000E+05 .1642962E+01 .1080836E+05 .1638716E+01 .1081673E+05 .1634322E+01 .1082505E+05 .1629474E+01 .1083345E+05 .1624254E+01 .1084186E+05 .1619885E+01 .1085878E+05 .1610030E+01 .1086723E+05 .1605274E+01 .1087576E+05 .1600137E+01 .1088423E+05 .1595601E+01 .1089285E+05 .1590329E+01 .1090129E+05 .1585683E+01 .1090994E+05 .1580797E+01 .1091847E+05 .1576162E+01 .1092708E+05 .1571243E+01 .1093570E+05 .1566459E+01 .1094440E+05 .1561783E+01 .1095299E+05 .1556788E+01 .1096165E+05 .1551967E+01 .1097040E+05 .1546871E+01 .1097909E+05 .1541756E+01 .1098786E+05 .1536987E+01 .1099665E+05 .1531856E+01 .1100532E+05 .1527318E+01 .1101414E+05 .1522359E+01 .1102297E+05 .1517451E+01 .1103181E+05 .1512805E+01 .1104067E+05 .1507971E+01 .1104954E+05 .1503313E+01 .1105843E+05 .1498878E+01 .1106733E+05 .1493591E+01 .1107625E+05 .1489248E+01 .1108518E+05 .1484389E+01 .1109412E+05 .1479586E+01 .1110315E+05 .1475953E+01 .1111213E+05 .1470389E+01 .1112125E+05 .1465458E+01 .1113019E+05 .1460824E+01 .1113934E+05 .1456106E+01 .1114838E+05 .1451418E+01 .1115743E+05 .1446648E+01 .1116656E+05 .1441941E+01 .1117578E+05 .1437189E+01 .1118487E+05 .1432610E+01 .1119405E+05 .1427790E+01 .1120331E+05 .1422876E+01 .1121245E+05 .1418740E+01 .1122168E+05 .1413546E+01 .1123098E+05 .1408856E+01 .1124017E+05 .1404290E+01 .1124951E+05 .1399685E+01 .1125880E+05 .1395006E+01 .1126817E+05 .1390236E+01 .1127755E+05 .1385646E+01 .1128682E+05 .1381390E+01 .1129624E+05 .1376596E+01 .1130560E+05 .1371654E+01 .1131505E+05 .1367242E+01 .1132452E+05 .1362544E+01 .1133393E+05 .1358360E+01 .8796258E+04 .9949864E+00 .1134343E+05 .1353479E+01 .1135294E+05 .1349326E+01 .1136247E+05 .1344309E+01 ifeffit-1.2.11d/examples/data/fex.dat0000644000175000017500000002263710771740461016374 0ustar segresegre# Saved on Fri Apr 29 14:10:05 2005 # Column list of vectors: E FLUO # Energy xmu 7050.0 10178 7051.0 10455 7052.0 10270 7053.0 10269 7054.0 10301 7055.0 10227 7056.0 10557 7057.0 10378 7058.0 10285 7059.0 10293 7060.0 10250 7061.0 10381 7062.0 10437 7063.0 10291 7064.0 10454 7065.0 10073 7066.0 10374 7067.0 10334 7068.0 10409 7069.0 10339 7070.0 10381 7071.0 10437 7072.0 10534 7073.0 10329 7074.0 10427 7075.0 10528 7076.0 10508 7077.0 10320 7078.0 10397 7079.0 10418 7080.0 10570 7081.0 10331 7082.0 10490 7083.0 10479 7084.0 10567 7085.0 10564 7086.0 10548 7087.0 10841 7088.0 10515 7089.0 10684 7090.0 10588 7091.0 10668 7092.0 10790 7093.0 10728 7094.0 10668 7095.0 10827 7096.0 10963 7097.0 10907 7098.0 10820 7099.0 11189 7100.0 11159 7101.0 11297 7102.0 11108 7103.0 11273 7104.0 11332 7105.0 11556 7106.0 11449 7107.0 11857 7108.0 12193 7109.0 12333 7110.0 12911 7111.0 14122 7112.0 17873 7113.0 22219 7114.0 20098 7115.0 18804 7116.0 19457 7117.0 20767 7118.0 23161 7119.0 27709 7120.0 36419 7121.0 49211 7122.0 61392 7123.0 73817 7124.0 86482 7125.0 1.0256e+05 7126.0 1.1705e+05 7127.0 1.2617e+05 7128.0 1.3387e+05 7129.0 1.4644e+05 7130.0 1.6274e+05 7131.0 1.7425e+05 7132.0 1.7243e+05 7133.0 1.6287e+05 7134.0 1.5232e+05 7135.0 1.4712e+05 7136.0 1.4444e+05 7137.0 1.4393e+05 7138.0 1.4438e+05 7139.0 1.4367e+05 7140.0 1.4003e+05 7141.0 1.3649e+05 7142.0 1.3350e+05 7143.0 1.3520e+05 7144.0 1.3582e+05 7145.0 1.3717e+05 7146.0 1.3619e+05 7147.0 1.3415e+05 7148.0 1.2994e+05 7149.0 1.2556e+05 7150.0 1.2258e+05 7151.0 1.2046e+05 7152.0 1.1862e+05 7153.0 1.1755e+05 7154.0 1.1594e+05 7155.0 1.1449e+05 7156.0 1.1276e+05 7157.0 1.1097e+05 7158.0 1.1018e+05 7159.0 1.0855e+05 7160.0 1.0928e+05 7161.0 1.0902e+05 7162.0 1.1016e+05 7163.0 1.1094e+05 7164.0 1.1188e+05 7165.0 1.1205e+05 7166.0 1.1353e+05 7167.0 1.1535e+05 7168.0 1.1586e+05 7169.0 1.1835e+05 7170.0 1.2013e+05 7171.0 1.2192e+05 7172.0 1.2322e+05 7173.0 1.2519e+05 7174.0 1.2601e+05 7175.0 1.2793e+05 7176.0 1.2918e+05 7177.0 1.2973e+05 7178.0 1.3111e+05 7179.0 1.3268e+05 7180.0 1.3306e+05 7181.0 1.3465e+05 7182.0 1.3434e+05 7183.0 1.3412e+05 7184.0 1.3404e+05 7185.0 1.3422e+05 7186.0 1.3460e+05 7187.0 1.3402e+05 7188.0 1.3403e+05 7189.0 1.3360e+05 7190.0 1.3370e+05 7191.0 1.3335e+05 7192.0 1.3285e+05 7193.0 1.3167e+05 7194.0 1.3147e+05 7195.0 1.3078e+05 7196.0 1.3091e+05 7197.0 1.3070e+05 7198.0 1.2953e+05 7199.0 1.2952e+05 7200.0 1.2955e+05 7201.0 1.2866e+05 7202.0 1.2845e+05 7203.0 1.2825e+05 7204.0 1.2798e+05 7205.0 1.2718e+05 7206.0 1.2719e+05 7207.0 1.2650e+05 7208.0 1.2707e+05 7209.0 1.2640e+05 7210.0 1.2701e+05 7211.0 1.2717e+05 7212.0 1.2721e+05 7213.0 1.2830e+05 7214.0 1.2799e+05 7215.0 1.2793e+05 7216.0 1.2817e+05 7217.0 1.2862e+05 7218.0 1.2858e+05 7219.0 1.2845e+05 7220.0 1.2892e+05 7221.0 1.2926e+05 7222.0 1.2920e+05 7223.0 1.2990e+05 7224.0 1.2973e+05 7225.0 1.2940e+05 7226.0 1.2921e+05 7227.0 1.2982e+05 7228.0 1.2967e+05 7229.0 1.2892e+05 7230.0 1.2883e+05 7231.0 1.2911e+05 7232.0 1.2891e+05 7233.0 1.2843e+05 7234.0 1.2741e+05 7235.0 1.2695e+05 7236.0 1.2726e+05 7237.0 1.2641e+05 7238.0 1.2575e+05 7239.0 1.2576e+05 7240.0 1.2534e+05 7241.0 1.2490e+05 7242.0 1.2429e+05 7243.0 1.2390e+05 7244.0 1.2390e+05 7245.0 1.2366e+05 7246.0 1.2377e+05 7247.0 1.2376e+05 7248.0 1.2358e+05 7249.0 1.2464e+05 7250.0 1.2424e+05 7251.0 1.2544e+05 7252.0 1.2638e+05 7253.0 1.2678e+05 7254.0 1.2707e+05 7255.0 1.2722e+05 7256.0 1.2852e+05 7257.0 1.2971e+05 7258.0 1.3012e+05 7259.0 1.3073e+05 7260.0 1.3124e+05 7261.0 1.3193e+05 7262.0 1.3193e+05 7263.0 1.3304e+05 7264.0 1.3318e+05 7265.0 1.3310e+05 7266.0 1.3318e+05 7267.0 1.3441e+05 7268.0 1.3427e+05 7269.0 1.3431e+05 7270.0 1.3439e+05 7271.0 1.3411e+05 7272.0 1.3416e+05 7273.0 1.3454e+05 7274.0 1.3437e+05 7275.0 1.3378e+05 7276.0 1.3417e+05 7277.0 1.3396e+05 7278.0 1.3399e+05 7279.0 1.3403e+05 7280.0 1.3348e+05 7281.0 1.3354e+05 7282.0 1.3303e+05 7283.0 1.3306e+05 7284.0 1.3294e+05 7285.0 1.3216e+05 7286.0 1.3148e+05 7287.0 1.3197e+05 7288.0 1.3166e+05 7289.0 1.3119e+05 7290.0 1.3155e+05 7291.0 1.3078e+05 7292.0 1.3114e+05 7293.0 1.3083e+05 7294.0 1.3092e+05 7295.0 1.3038e+05 7296.0 1.3055e+05 7297.0 1.2958e+05 7298.0 1.3012e+05 7299.0 1.2972e+05 7300.0 1.2994e+05 7301.0 1.2994e+05 7302.0 1.2922e+05 7303.0 1.2933e+05 7304.0 1.3006e+05 7305.0 1.2952e+05 7306.0 1.2923e+05 7307.0 1.2913e+05 7308.0 1.2890e+05 7309.0 1.2936e+05 7310.0 1.2942e+05 7311.0 1.2884e+05 7312.0 1.2950e+05 7313.0 1.3015e+05 7314.0 1.3036e+05 7315.0 1.3036e+05 7316.0 1.2977e+05 7317.0 1.3061e+05 7318.0 1.3045e+05 7319.0 1.3083e+05 7320.0 1.3088e+05 7321.0 1.3173e+05 7322.0 1.3164e+05 7323.0 1.3127e+05 7324.0 1.3096e+05 7325.0 1.3174e+05 7326.0 1.3214e+05 7327.0 1.3252e+05 7328.0 1.3213e+05 7329.0 1.3277e+05 7330.0 1.3267e+05 7331.0 1.3236e+05 7332.0 1.3239e+05 7333.0 1.3285e+05 7334.0 1.3197e+05 7335.0 1.3254e+05 7336.0 1.3224e+05 7337.0 1.3210e+05 7338.0 1.3236e+05 7339.0 1.3250e+05 7340.0 1.3221e+05 7341.0 1.3239e+05 7342.0 1.3162e+05 7343.0 1.3214e+05 7344.0 1.3206e+05 7345.0 1.3188e+05 7346.0 1.3207e+05 7347.0 1.3185e+05 7348.0 1.3143e+05 7349.0 1.3153e+05 7350.0 1.3155e+05 7351.0 1.3155e+05 7352.0 1.3140e+05 7353.0 1.3126e+05 7354.0 1.3128e+05 7355.0 1.3092e+05 7356.0 1.3124e+05 7357.0 1.3168e+05 7358.0 1.3152e+05 7359.0 1.3179e+05 7360.0 1.3157e+05 7361.0 1.3168e+05 7362.0 1.3176e+05 7363.0 1.3242e+05 7364.0 1.3258e+05 7365.0 1.3258e+05 7366.0 1.3232e+05 7367.0 1.3268e+05 7368.0 1.3220e+05 7369.0 1.3213e+05 7370.0 1.3314e+05 7371.0 1.3243e+05 7372.0 1.3222e+05 7373.0 1.3214e+05 7374.0 1.3272e+05 7375.0 1.3243e+05 7376.0 1.3332e+05 7377.0 1.3268e+05 7378.0 1.3309e+05 7379.0 1.3272e+05 7380.0 1.3194e+05 7381.0 1.3294e+05 7382.0 1.3332e+05 7383.0 1.3311e+05 7384.0 1.3283e+05 7385.0 1.3354e+05 7386.0 1.3360e+05 7387.0 1.3367e+05 7388.0 1.3419e+05 7389.0 1.3312e+05 7390.0 1.3439e+05 7391.0 1.3382e+05 7392.0 1.3441e+05 7393.0 1.3388e+05 7394.0 1.3436e+05 7395.0 1.3453e+05 7396.0 1.3477e+05 7397.0 1.3506e+05 7398.0 1.3442e+05 7399.0 1.3430e+05 7400.0 1.3374e+05 7401.0 1.3434e+05 7402.0 1.3423e+05 7403.0 1.3447e+05 7404.0 1.3447e+05 7405.0 1.3428e+05 7406.0 1.3422e+05 7407.0 1.3402e+05 7408.0 1.3447e+05 7409.0 1.3443e+05 7410.0 1.3462e+05 7411.0 1.3424e+05 7412.0 1.3412e+05 7413.0 1.3438e+05 7414.0 1.3428e+05 7415.0 1.3408e+05 7416.0 1.3424e+05 7417.0 1.3419e+05 7418.0 1.3391e+05 7419.0 1.3382e+05 7420.0 1.3381e+05 7421.0 1.3424e+05 7422.0 1.3405e+05 7423.0 1.3446e+05 7424.0 1.3394e+05 7425.0 1.3371e+05 7426.0 1.3462e+05 7427.0 1.3427e+05 7428.0 1.3372e+05 7429.0 1.3396e+05 7430.0 1.3439e+05 7431.0 1.3446e+05 7432.0 1.3419e+05 7433.0 1.3418e+05 7434.0 1.3339e+05 7435.0 1.3396e+05 7436.0 1.3427e+05 7437.0 1.3429e+05 7438.0 1.3404e+05 7439.0 1.3458e+05 7440.0 1.3391e+05 7441.0 1.3428e+05 7442.0 1.3459e+05 7443.0 1.3524e+05 7444.0 1.3466e+05 7445.0 1.3513e+05 7446.0 1.3436e+05 7447.0 1.3553e+05 7448.0 1.3559e+05 7449.0 1.3394e+05 7450.0 1.3476e+05 7451.0 1.3497e+05 7452.0 1.3524e+05 7453.0 1.3488e+05 7454.0 1.3479e+05 7455.0 1.3457e+05 7456.0 1.3506e+05 7457.0 1.3483e+05 7458.0 1.3522e+05 7459.0 1.3515e+05 7460.0 1.3484e+05 7461.0 1.3441e+05 7462.0 1.3509e+05 7463.0 1.3503e+05 7464.0 1.3483e+05 7465.0 1.3430e+05 7466.0 1.3489e+05 7467.0 1.3515e+05 7468.0 1.3489e+05 7469.0 1.3474e+05 7470.0 1.3482e+05 7471.0 1.3568e+05 7472.0 1.3599e+05 7473.0 1.3540e+05 7474.0 1.3507e+05 7475.0 1.3536e+05 7476.0 1.3543e+05 7477.0 1.3560e+05 7478.0 1.3600e+05 7479.0 1.3546e+05 7480.0 1.3607e+05 7481.0 1.3656e+05 7482.0 1.3644e+05 7483.0 1.3657e+05 7484.0 1.3686e+05 7485.0 1.3638e+05 7486.0 1.3652e+05 7487.0 1.3591e+05 7488.0 1.3630e+05 7489.0 1.3634e+05 7490.0 1.3662e+05 7491.0 1.3650e+05 7492.0 1.3627e+05 7493.0 1.3639e+05 7494.0 1.3657e+05 7495.0 1.3676e+05 7496.0 1.3689e+05 7497.0 1.3672e+05 7498.0 1.3717e+05 7499.0 1.3665e+05 7500.0 1.3681e+05 7501.0 1.3660e+05 7502.0 1.3711e+05 7503.0 1.3689e+05 7504.0 1.3647e+05 7505.0 1.3681e+05 7506.0 1.3676e+05 7507.0 1.3715e+05 7508.0 1.3734e+05 7509.0 1.3729e+05 7510.0 1.3774e+05 7511.0 1.3746e+05 7512.0 1.3742e+05 7513.0 1.3710e+05 7514.0 1.3667e+05 7515.0 1.3732e+05 7516.0 1.3718e+05 7517.0 1.3737e+05 7518.0 1.3780e+05 7519.0 1.3765e+05 7520.0 1.3848e+05 7521.0 1.3747e+05 7522.0 1.3781e+05 7523.0 1.3841e+05 7524.0 1.3768e+05 7525.0 1.3785e+05 7526.0 1.3781e+05 7527.0 1.3820e+05 7528.0 1.3967e+05 7529.0 1.3818e+05 7530.0 1.3893e+05 7531.0 1.3885e+05 7532.0 1.3769e+05 7533.0 1.3764e+05 7534.0 1.3750e+05 7535.0 1.3856e+05 7536.0 1.3773e+05 7537.0 1.3842e+05 7538.0 1.3726e+05 7539.0 1.3808e+05 7540.0 1.3733e+05 7541.0 1.3832e+05 7542.0 1.3790e+05 7543.0 1.3897e+05 7544.0 1.3769e+05 7545.0 1.3804e+05 7546.0 1.3761e+05 7547.0 1.3837e+05 7548.0 1.3733e+05 7549.0 1.3781e+05 7550.0 1.3796e+05 7551.0 1.3783e+05 7552.0 1.3836e+05 7553.0 1.3790e+05 7554.0 1.3794e+05 7555.0 1.3814e+05 7556.0 1.3748e+05 7557.0 1.3810e+05 7558.0 1.3849e+05 7559.0 1.3900e+05 7560.0 1.3897e+05 7561.0 1.3820e+05 7562.0 1.3924e+05 7563.0 1.3912e+05 7564.0 1.3897e+05 7565.0 1.3923e+05 7566.0 1.3885e+05 7567.0 1.4308e+05 7568.0 1.4245e+05 7569.0 1.3944e+05 7570.0 1.4013e+05 7571.0 1.3926e+05 7572.0 1.3960e+05 7573.0 1.3877e+05 7574.0 1.3905e+05 7575.0 1.3973e+05 7576.0 1.3988e+05 7577.0 1.3922e+05 7578.0 1.3921e+05 7579.0 1.3952e+05 7580.0 1.3964e+05 7581.0 1.3981e+05 7582.0 1.3930e+05 7583.0 1.3983e+05 7584.0 1.3997e+05 7585.0 1.3855e+05 7586.0 1.3900e+05 7587.0 1.3988e+05 7588.0 1.3976e+05 7589.0 1.3977e+05 7590.0 1.4001e+05 7591.0 1.4037e+05 7592.0 1.4009e+05 7593.0 1.4050e+05 7594.0 1.3985e+05 7595.0 1.4082e+05 7596.0 1.4022e+05 7597.0 1.4006e+05 7598.0 1.4052e+05 7599.0 1.4074e+05 7600.0 1.4054e+05 ifeffit-1.2.11d/examples/data/feo.xmu0000644000175000017500000004577610771740461016435 0ustar segresegre# 1-D Scan File created 8/10/01 11:10 AM by LabVIEW Control Panel # User Comment: # FeO 4 layers on tape # Detector Names / PVs: # I0/pncbm:scaler1_netA.B I1/pncbm:scaler1_netA.C If/pncbm:scaler1_netA.D # Positioner names/Drive PVs/Readback PVs: # Mono Energy */pncbm:monoE.VAL/pncbm:EnctoE.VAL Scaler preset time */pncbm:scaler1.TP/ # Column Headings: # Mono Energy * Scaler preset time * I0 I1 If #------------------------ # energy xmu i0 6911.7671 -0.35992590E-01 280101.00 6916.8730 -0.39081634E-01 278863.00 6921.7030 -0.42193483E-01 278149.00 6926.8344 -0.45165576E-01 277292.00 6931.7399 -0.47365589E-01 265707.00 6936.9887 -0.51824526E-01 286669.00 6941.7869 -0.54345142E-01 285989.00 6946.8779 -0.57534656E-01 284661.00 6951.9154 -0.60404535E-01 284411.00 6956.9401 -0.63496774E-01 283577.00 6961.9621 -0.66253301E-01 283824.00 6966.8684 -0.69411878E-01 283568.00 6971.9156 -0.72276060E-01 283397.00 6976.8572 -0.75346493E-01 283310.00 6981.9918 -0.78131005E-01 283214.00 6986.8759 -0.80983962E-01 283061.00 6991.9328 -0.83849719E-01 282971.00 6996.9144 -0.86748719E-01 283022.00 7001.8515 -0.89708205E-01 282885.00 7006.9934 -0.92703649E-01 282810.00 7011.8412 -0.95368015E-01 282732.00 7016.9463 -0.98405177E-01 282596.00 7021.8712 -0.10117834 282484.00 7026.8765 -0.10382368 282375.00 7031.9730 -0.10672080 282225.00 7036.8361 -0.10943124 282119.00 7041.8952 -0.11203882 282087.00 7046.8567 -0.11484428 282034.00 7051.8254 -0.11746089 282011.00 7056.8965 -0.12024282 281905.00 7061.8378 -0.12257262 281847.00 7066.7546 -0.12499900 281772.00 7071.8057 -0.12740380 281634.00 7076.7476 -0.12957813 281516.00 7081.6860 -0.13160163 281309.00 7086.7913 -0.13317032 281051.00 7091.5312 -0.13442890 280416.00 7096.5552 -0.13462033 277908.00 7101.5653 -0.13600264 240033.00 7101.9395 -0.13821163 247919.00 7102.2817 -0.13848671 257073.00 7102.6987 -0.13669881 270033.00 7103.1906 -0.13361964 279482.00 7103.6399 -0.13235382 282387.00 7104.0036 -0.13184203 283089.00 7104.2818 -0.13145725 283283.00 7104.6241 -0.13105615 283337.00 7105.0950 -0.13007480 283379.00 7105.5231 -0.12972524 283327.00 7105.8763 -0.12906308 283280.00 7106.2402 -0.12820551 283187.00 7106.5721 -0.12779651 283067.00 7107.0646 -0.12650680 283049.00 7107.5251 -0.12534315 282911.00 7107.9427 -0.12418890 282903.00 7108.3176 -0.12289514 282797.00 7108.5961 -0.12159500 282677.00 7108.9711 -0.11921916 282618.00 7109.5068 -0.11541237 282510.00 7109.9354 -0.11000525 282431.00 7110.2784 -0.10302579 282346.00 7110.6214 -0.93821422E-01 282332.00 7111.0073 -0.81290386E-01 282210.00 7111.4683 -0.68571128E-01 282123.00 7111.9186 -0.60274265E-01 282115.00 7112.3583 -0.53379949E-01 282037.00 7112.6693 -0.47609055E-01 281994.00 7112.9374 -0.41369414E-01 281937.00 7113.3772 -0.34623186E-01 281871.00 7113.8278 -0.30176765E-01 281825.00 7114.2462 -0.23621269E-01 281778.00 7114.5789 -0.13749109E-01 281795.00 7114.9008 -0.24494087E-02 281840.00 7115.3194 0.16936533E-01 281698.00 7115.8132 0.45836189E-01 281660.00 7116.2426 0.75197507E-01 281583.00 7116.6721 0.11009566 281567.00 7116.9728 0.14427841 281577.00 7117.2627 0.19080203 281547.00 7117.7783 0.26433047 281547.00 7118.2402 0.33439169 281500.00 7118.6270 0.40469157 281460.00 7118.9708 0.46594703 281469.00 7119.2931 0.51933041 281427.00 7119.7660 0.59593646 281425.00 7120.2067 0.65853366 281361.00 7120.6367 0.71506333 281376.00 7121.0344 0.76685939 281330.00 7121.3247 0.81331120 281224.00 7121.6473 0.88132224 281254.00 7122.0990 0.96982546 281217.00 7122.5507 1.0609442 281234.00 7122.9272 1.1520083 281186.00 7123.2500 1.2277466 281156.00 7123.5943 1.3064567 281139.00 7124.0785 1.3897857 281237.00 7124.5412 1.4488121 281092.00 7124.9718 1.4916355 281111.00 7125.3377 1.5253895 281108.00 7125.6392 1.5576798 281113.00 7125.9945 1.6054069 281001.00 7126.5329 1.6685989 281104.00 7126.9744 1.7280946 280979.00 7127.3191 1.7788395 280857.00 7127.6315 1.8158746 280685.00 7127.9977 1.8452568 280560.00 7128.5149 1.8495809 280587.00 7128.9244 1.8256022 280673.00 7129.3555 1.7821155 280602.00 7129.7111 1.7332258 280574.00 7129.9806 1.6808437 280588.00 7130.3903 1.5977283 280512.00 7130.8539 1.5268502 280368.00 7131.2852 1.4647408 280353.00 7131.6087 1.4147310 280324.00 7131.9323 1.3753900 280355.00 7132.3314 1.3349634 280358.00 7132.8384 1.2963582 280325.00 7133.2484 1.2711328 280340.00 7133.6585 1.2517658 280358.00 7134.0146 1.2359428 280338.00 7134.3060 1.2211765 280400.00 7134.7701 1.1994605 280376.00 7135.2559 1.1813965 280369.00 7135.6770 1.1658542 280380.00 7135.9902 1.1533380 280318.00 7136.3141 1.1429410 280310.00 7136.7570 1.1317763 280299.00 7137.2322 1.1234352 280348.00 7137.6428 1.1194838 280287.00 7138.0533 1.1183458 280265.00 7138.3667 1.1192256 280233.00 7138.6801 1.1232701 280231.00 7139.1016 1.1326786 280223.00 7139.5880 1.1450271 280226.00 7139.9664 1.1576786 280223.00 7140.3015 1.1711663 280225.00 7140.6043 1.1846449 280199.00 7141.1017 1.2032606 280261.00 7141.5451 1.2161074 280234.00 7141.9670 1.2251375 280277.00 7142.3456 1.2293467 280266.00 7142.6810 1.2305564 280215.00 7143.0165 1.2285678 280222.00 7143.5034 1.2203257 280148.00 7143.9688 1.2097022 280235.00 7144.3693 1.1974111 280259.00 7144.6616 1.1865185 280184.00 7145.0081 1.1728950 280209.00 7145.5061 1.1548904 280141.00 7145.9285 1.1390832 280171.00 7146.1342 1.1320942 280202.00 7147.1308 1.0998926 281607.47 7148.3769 1.0672428 282953.53 7149.4825 1.0462001 284295.16 7150.7729 1.0305708 285557.34 7151.9661 1.0203347 286899.06 7153.2031 1.0129244 288155.28 7154.5382 1.0093910 289438.03 7155.7110 1.0107830 290658.28 7157.0580 1.0182706 291973.00 7158.3621 1.0302146 293176.19 7159.6775 1.0426520 294404.84 7161.1349 1.0576181 295627.97 7162.3752 1.0716599 296860.50 7163.8554 1.0946207 297949.50 7165.2383 1.1318477 299143.88 7166.5673 1.1753118 300242.69 7168.1256 1.2199916 301310.91 7169.6520 1.2569450 302427.50 7171.0481 1.2828485 303495.50 7172.5757 1.2985035 304598.88 7174.1587 1.3049304 305727.59 7175.6768 1.3015198 306769.69 7177.2065 1.2871232 307837.12 7178.9337 1.2605068 308895.94 7180.5524 1.2322326 309864.06 7182.1171 1.2065797 310682.53 7183.6825 1.1838061 310947.31 7185.4567 1.1639835 291081.44 7187.2319 1.1441377 313204.84 7188.9312 1.1256682 315022.59 7190.5875 1.1096090 316211.62 7192.3105 1.0955437 317246.97 7194.1551 1.0865875 318316.56 7196.0336 1.0848043 319271.47 7197.8472 1.0896318 320241.66 7199.5848 1.0976847 321266.12 7201.3452 1.1061971 322265.88 7203.3158 1.1127269 323200.88 7205.3535 1.1137379 324151.12 7207.2492 1.1113734 325150.66 7209.1459 1.1091910 325885.44 7211.1209 1.1094735 326697.44 7213.0750 1.1128175 327662.72 7215.0412 1.1197526 328640.22 7217.0748 1.1290785 329532.97 7219.0322 1.1381600 330473.94 7221.2010 1.1431486 331416.12 7223.3269 1.1401358 332369.56 7225.4540 1.1303143 333202.22 7227.5271 1.1164000 334086.09 7229.6901 1.0995240 334967.16 7231.9100 1.0815925 335961.47 7234.0757 1.0654326 336863.97 7236.2428 1.0548029 337815.69 7238.4892 1.0525590 338886.59 7240.7815 1.0627457 329086.72 7243.0196 1.0736859 335643.00 7245.2257 1.0889298 339365.53 7247.5225 1.1001406 338137.22 7249.8877 1.1054398 341598.09 7252.2322 1.1045125 342507.16 7254.4441 1.1010799 343352.41 7256.8923 1.0972424 344216.84 7259.2080 1.0958877 344988.47 7261.6595 1.0970404 345766.25 7263.9447 1.0995099 346708.22 7266.3884 1.1014074 347433.34 7268.9011 1.1022522 348203.62 7271.3707 1.1011670 348895.09 7273.9207 1.0968847 349891.75 7276.5063 1.0896655 349788.53 7279.0825 1.0796905 350767.47 7281.4918 1.0677709 351364.59 7284.1280 1.0535296 351945.88 7286.6761 1.0388369 352112.28 7289.1808 1.0252689 350398.84 7291.9020 1.0125549 350983.59 7294.6478 1.0049324 355958.44 7297.3619 1.0017291 355658.47 7299.8969 1.0020062 353997.62 7302.5698 1.0061912 357607.94 7305.3240 1.0118459 358382.41 7308.1031 1.0176879 358969.97 7310.9298 1.0233727 359729.72 7313.6451 1.0270807 360319.56 7316.3398 1.0289684 360879.56 7319.1731 1.0292163 361472.69 7322.1113 1.0282723 362090.97 7325.0177 1.0262630 363008.34 7327.7096 1.0234467 363582.88 7330.5978 1.0195606 363831.53 7333.6712 1.0146257 364127.31 7336.4156 1.0094656 365954.19 7339.2995 1.0037065 366482.22 7342.4034 0.99705389 366602.38 7345.3151 0.99097685 367317.62 7348.2866 0.98544173 367739.03 7351.3295 0.98071048 369123.53 7354.3750 0.97719849 369536.16 7357.4117 0.97406777 370156.88 7360.4970 0.97046026 370775.72 7363.5965 0.96636350 371269.69 7366.7103 0.96222490 371863.75 7369.8730 0.95827779 372499.94 7372.9923 0.95487866 370256.25 7376.1260 0.95285110 373437.62 7379.4708 0.95062008 374052.16 7382.5638 0.94927795 374261.75 7385.6710 0.94801126 363252.47 7389.1177 0.94779582 376617.31 7392.2540 0.94684064 376942.25 7395.5907 0.94532043 377380.25 7398.9190 0.94316632 377900.41 7402.0639 0.94014833 378453.62 7405.5498 0.93564333 378946.97 7408.7473 0.93086403 379532.38 7412.2865 0.92480535 380038.91 7415.6187 0.91896879 380720.53 7419.0125 0.91265522 381177.25 7422.4095 0.90751806 381666.06 7425.9271 0.90324828 382145.97 7429.3308 0.89957219 381762.97 7432.8317 0.89699559 383357.03 7436.3831 0.89824340 348599.22 7439.7731 0.89159965 382051.50 7443.4493 0.88850519 383834.84 7446.9286 0.88637570 384549.31 7450.5530 0.88420350 385208.84 7454.1930 0.88242614 385779.47 7457.6709 0.88077435 386364.16 7461.4010 0.87910604 386958.97 7464.9808 0.87727888 387539.84 7468.7422 0.87478784 388015.81 7472.3293 0.87206987 388635.84 7476.0152 0.86870247 389020.97 7479.6095 0.86531624 389703.19 7483.6128 0.86097783 390137.47 7487.2267 0.85599830 390578.84 7491.0472 0.85092077 390942.31 7494.8121 0.84579705 391504.84 7498.5090 0.84120159 391929.44 7502.5692 0.83695836 392494.12 7506.2501 0.83334431 392868.88 7510.1629 0.83024094 393326.72 7514.0679 0.82719979 393786.62 7517.8207 0.82412557 394067.62 7521.9388 0.82091666 394610.69 7525.8082 0.81767503 394922.81 7529.6456 0.81443478 395401.03 7533.6442 0.81121444 395801.31 7537.6835 0.80791344 396149.66 7541.5698 0.80507014 396333.09 7545.7513 0.80179132 395706.59 7549.7434 0.79719131 364256.16 7553.5818 0.79649304 398842.81 7557.8501 0.79338765 399379.50 7561.9286 0.79049100 399600.28 7565.8652 0.78791632 399899.12 7570.2090 0.78442432 400320.03 7574.3257 0.78082115 400728.00 7578.4593 0.77708513 401116.06 7582.4629 0.77342945 401530.19 7586.9000 0.76942229 401801.34 7591.0724 0.76559302 402150.59 7595.2004 0.76206300 402536.91 7599.5177 0.75857783 403053.28 7603.8154 0.75473164 403449.69 7608.1551 0.75102640 403752.19 7612.2900 0.74767593 404234.75 7616.5903 0.74405090 404634.38 7621.0319 0.74058790 404951.06 7625.4540 0.73722601 405278.81 7629.7573 0.73385699 403380.62 7634.1030 0.73050291 406016.47 7638.5657 0.72746300 405550.41 7643.1085 0.72352726 403034.38 7647.6819 0.72084728 407117.44 7652.1861 0.71756152 407432.53 7656.7082 0.71426100 407800.69 7661.1733 0.71117742 408156.94 7665.9195 0.70759944 408571.19 7670.5338 0.70381014 408854.53 7675.2543 0.70021824 409369.94 7679.8676 0.69665624 409507.38 7684.6000 0.69306768 409949.88 7689.2502 0.68939640 410260.44 7693.9694 0.68570744 410693.03 7698.8083 0.68213617 407883.72 7703.6156 0.67846950 411286.44 7708.4798 0.67464653 411590.22 7713.2742 0.67104998 411934.03 7718.1637 0.66755233 412427.94 7722.9579 0.66408205 412580.88 7727.8347 0.66044004 412873.84 7732.5775 0.65695607 413054.88 7737.5818 0.65340505 413277.00 7742.5161 0.64994630 413632.12 7747.5722 0.64660500 413908.31 7752.5197 0.64337565 414321.56 7757.5764 0.63975819 414642.88 7762.5372 0.63621214 414763.22 7767.6332 0.63254284 415048.59 7772.6331 0.62894814 415498.06 7777.7041 0.62522191 415753.56 7782.7174 0.62168299 415908.09 7787.8021 0.61803105 416133.69 7792.8288 0.61444701 416358.31 7797.9272 0.61087522 416653.03 7803.0195 0.60738239 416879.75 7808.1707 0.60372821 417193.53 7813.3029 0.60015494 417389.38 7818.4682 0.59631041 417525.25 7823.6536 0.59281970 417789.16 7828.8461 0.58935127 418077.16 7834.0982 0.58569031 418265.16 7839.3445 0.58211015 418453.22 7844.6637 0.57866931 418616.31 7849.9510 0.57495503 418646.47 7855.2851 0.57136306 418978.69 7860.6927 0.56780225 418869.91 7866.0156 0.56432983 419648.19 7871.4385 0.56090345 418723.53 7876.7896 0.55726179 420798.91 7882.2412 0.55344788 420610.31 7887.5942 0.55009604 420576.78 7893.1012 0.54652588 420654.28 7898.4962 0.54290135 420821.84 7904.0189 0.53916292 421015.41 7909.3892 0.53583298 421114.06 7914.9679 0.53222891 421345.72 7920.3670 0.52888994 421607.44 7925.9482 0.52528431 421833.19 7931.3762 0.52161227 421911.00 7936.9870 0.51824615 422121.81 7942.4576 0.51476574 422301.69 7948.1656 0.51125544 422437.62 7953.7469 0.50842068 418064.59 7959.5394 0.50409937 422809.56 7965.1778 0.50064550 422592.62 7970.9875 0.49705535 423491.69 7976.6155 0.49325269 414639.81 7982.4016 0.49008791 423563.97 7988.0872 0.48647120 423691.16 7993.8222 0.48299046 423840.41 7999.4836 0.47952640 423864.66 8005.2492 0.47593433 424049.97 8011.1743 0.47233161 424291.34 8017.0398 0.46887057 424478.72 8023.0106 0.46510950 424529.16 8028.7975 0.46141359 424410.59 8034.6758 0.45779190 424581.09 8040.4110 0.45437074 424434.62 8046.4039 0.45079886 424702.22 8052.3644 0.44715324 424749.81 8058.3757 0.44352635 424880.47 8064.2849 0.43996143 425124.16 8070.2031 0.43657830 423373.88 8076.0885 0.43291200 425237.62 8082.0665 0.42947161 425336.41 8084.0938 0.42842774 425436.22 ifeffit-1.2.11d/examples/data/mno.chi0000644000175000017500000001723210771740461016371 0ustar segresegre# data from ifeffit #------------------------ # k chi 0.0000000 0.0000000 0.50000000E-01 0.0000000 0.10000000 0.0000000 0.15000000 0.0000000 0.20000000 0.0000000 0.25000000 0.0000000 0.30000000 0.0000000 0.35000000 0.0000000 0.40000000 0.0000000 0.45000000 0.0000000 0.50000000 0.0000000 0.55000000 -0.49201571 0.60000000 -0.43836639 0.65000000 -0.41200466 0.70000000 -0.38521140 0.75000000 -0.35464213 0.80000000 -0.32120729 0.85000000 -0.28260648 0.90000000 -0.23581327 0.95000000 -0.18054781 1.0000000 -0.11337316 1.0500000 -0.43507136E-01 1.1000000 0.21111812E-01 1.1500000 0.65870716E-01 1.2000000 0.97763664E-01 1.2500000 0.12245627 1.3000000 0.14618413 1.3500000 0.17288781 1.4000000 0.20585076 1.4500000 0.24659899 1.5000000 0.27918646 1.5500000 0.27764109 1.6000000 0.23163370 1.6500000 0.16320446 1.7000000 0.90736395E-01 1.7500000 0.32701725E-01 1.8000000 -0.53141442E-02 1.8500000 -0.27063079E-01 1.9000000 -0.38280421E-01 1.9500000 -0.45574796E-01 2.0000000 -0.54633746E-01 2.0500000 -0.65572409E-01 2.1000000 -0.73567780E-01 2.1500000 -0.73541375E-01 2.2000000 -0.64514841E-01 2.2500000 -0.43158963E-01 2.3000000 -0.81043510E-02 2.3500000 0.31971408E-01 2.4000000 0.58225306E-01 2.4500000 0.57471893E-01 2.5000000 0.35315119E-01 2.5500000 0.32513077E-02 2.6000000 -0.26829238E-01 2.6500000 -0.46768010E-01 2.7000000 -0.55048117E-01 2.7500000 -0.56399638E-01 2.8000000 -0.55947048E-01 2.8500000 -0.57109363E-01 2.9000000 -0.61836288E-01 2.9500000 -0.68786565E-01 3.0000000 -0.73275550E-01 3.0500000 -0.72800696E-01 3.1000000 -0.68940479E-01 3.1500000 -0.62220091E-01 3.2000000 -0.55100841E-01 3.2500000 -0.51692347E-01 3.3000000 -0.49088580E-01 3.3500000 -0.35337059E-01 3.4000000 -0.65735985E-02 3.4500000 0.29184527E-01 3.5000000 0.63490714E-01 3.5500000 0.91905356E-01 3.6000000 0.10990816 3.6500000 0.11579048 3.7000000 0.11563991 3.7500000 0.11195618 3.8000000 0.96973189E-01 3.8500000 0.73045673E-01 3.9000000 0.47784557E-01 3.9500000 0.25588132E-01 4.0000000 0.83656997E-02 4.0500000 -0.14851804E-02 4.1000000 -0.80065911E-02 4.1500000 -0.18566092E-01 4.2000000 -0.32536756E-01 4.2500000 -0.45160967E-01 4.3000000 -0.53117497E-01 4.3500000 -0.54094392E-01 4.4000000 -0.47162893E-01 4.4500000 -0.34082017E-01 4.5000000 -0.19894755E-01 4.5500000 -0.98888898E-02 4.6000000 -0.76658473E-02 4.6500000 -0.12182609E-01 4.7000000 -0.17648170E-01 4.7500000 -0.19471409E-01 4.8000000 -0.17248863E-01 4.8500000 -0.10996741E-01 4.9000000 0.80951099E-03 4.9500000 0.17658578E-01 5.0000000 0.33180208E-01 5.0500000 0.39429277E-01 5.1000000 0.35610933E-01 5.1500000 0.25185911E-01 5.2000000 0.11569869E-01 5.2500000 -0.33560590E-02 5.3000000 -0.19894176E-01 5.3500000 -0.35515463E-01 5.4000000 -0.45561829E-01 5.4500000 -0.43545980E-01 5.5000000 -0.28439995E-01 5.5500000 -0.80305563E-02 5.6000000 0.10292878E-01 5.6500000 0.21423467E-01 5.7000000 0.21891015E-01 5.7500000 0.13950367E-01 5.8000000 0.44462998E-02 5.8500000 -0.19898545E-02 5.9000000 -0.34604583E-02 5.9500000 0.20125724E-03 6.0000000 0.58623331E-02 6.0500000 0.11492491E-01 6.1000000 0.18616119E-01 6.1500000 0.25784217E-01 6.2000000 0.29683406E-01 6.2500000 0.29269583E-01 6.3000000 0.24823625E-01 6.3500000 0.16420179E-01 6.4000000 0.41585571E-02 6.4500000 -0.10203420E-01 6.5000000 -0.23963792E-01 6.5500000 -0.34671452E-01 6.6000000 -0.40394365E-01 6.6500000 -0.39836448E-01 6.7000000 -0.32967675E-01 6.7500000 -0.22265718E-01 6.8000000 -0.11458171E-01 6.8500000 -0.22866753E-02 6.9000000 0.49989046E-02 6.9500000 0.10390754E-01 7.0000000 0.13935608E-01 7.0500000 0.12378099E-01 7.1000000 0.10901688E-01 7.1500000 0.15947465E-01 7.2000000 0.16117595E-01 7.2500000 0.12752749E-01 7.3000000 0.12079249E-01 7.3500000 0.11567834E-01 7.4000000 0.92187657E-02 7.4500000 0.61820602E-02 7.5000000 0.32165222E-02 7.5500000 0.14079884E-02 7.6000000 0.21115224E-02 7.6500000 0.68405363E-02 7.7000000 -0.10008783E-02 7.7500000 -0.22169405E-01 7.8000000 -0.29816718E-02 7.8500000 -0.10148432E-01 7.9000000 -0.12659275E-01 7.9500000 -0.13462196E-01 8.0000000 -0.12268789E-01 8.0500000 -0.98113041E-02 8.1000000 -0.72966006E-02 8.1500000 -0.31108237E-02 8.2000000 0.67297113E-03 8.2500000 0.44368477E-02 8.3000000 0.68332399E-02 8.3500000 0.82559697E-02 8.4000000 0.90037804E-02 8.4500000 0.98468848E-02 8.5000000 0.91124775E-02 8.5500000 0.60327605E-02 8.6000000 0.17208718E-02 8.6500000 -0.18565434E-02 8.7000000 -0.38311068E-02 8.7500000 -0.39418375E-02 8.8000000 -0.32578779E-02 8.8500000 -0.22851096E-02 8.9000000 -0.23031515E-02 8.9500000 -0.26715757E-02 9.0000000 -0.39715423E-02 9.0500000 -0.49823560E-02 9.1000000 -0.43193136E-02 9.1500000 -0.26448205E-02 9.2000000 -0.11464149E-02 9.2500000 0.69440739E-03 9.3000000 0.29685480E-02 9.3500000 0.49899634E-02 9.4000000 0.60616910E-02 9.4500000 0.70764541E-02 9.5000000 0.70499977E-02 9.5500000 0.64351919E-02 9.6000000 0.44399720E-02 9.6500000 0.92112510E-03 9.7000000 -0.22873542E-02 9.7500000 -0.38957633E-02 9.8000000 -0.44895333E-02 9.8500000 -0.38409554E-02 9.9000000 -0.25663261E-02 9.9500000 -0.19374296E-02 10.000000 -0.19074491E-02 10.050000 -0.21274533E-02 10.100000 -0.21840914E-02 10.150000 -0.20278426E-02 10.200000 -0.20016772E-02 10.250000 -0.18531505E-02 10.300000 -0.15442902E-02 10.350000 -0.10004450E-02 10.400000 -0.47292499E-03 10.450000 0.18715338E-03 10.500000 0.14740831E-02 10.550000 0.26873346E-02 10.600000 0.35140682E-02 10.650000 0.35827546E-02 10.700000 0.30806616E-02 10.750000 0.27451631E-02 10.800000 0.22829150E-02 10.850000 0.15549939E-02 10.900000 0.95490024E-03 10.950000 0.51825833E-03 11.000000 -0.12992543E-03 11.050000 -0.69667209E-03 11.100000 -0.97792525E-03 11.150000 -0.94826376E-03 11.200000 -0.11432610E-02 11.250000 -0.17188858E-02 11.300000 -0.21728369E-02 11.350000 -0.21638549E-02 11.400000 -0.20284700E-02 11.450000 -0.16120028E-02 11.500000 -0.50775150E-03 11.550000 0.57645271E-03 11.600000 0.11940050E-02 11.650000 0.13751363E-02 11.700000 0.88551182E-03 11.750000 0.16820751E-03 11.800000 -0.40446985E-03 11.850000 -0.57783708E-03 11.900000 -0.28093070E-03 ifeffit-1.2.11d/examples/diffkk/0000755000175000017500000000000010771740461015433 5ustar segresegreifeffit-1.2.11d/examples/diffkk/diffkk_cu.inp0000644000175000017500000000303610771740461020072 0ustar segresegre # -- diffkk version 1.20 -- # program inputs or default values used: title = diffkk: no title lines specified xmu = ../data/cu_150k.xmu % file name for xmu data out = test.out % output file name isfeff = false % file is not a feff xmu.dat file encol = 1 % column to read energy from mucol = 2 % column to read mu(E) from iz = 29 % atomic number of core atom e0 = 8977.9700 % edge energy (used as reference) egrid = 1.0000 % energy grid for calculation ewidth = 0.000 % for broadening CL data elow = 200.0000 % how far below data range to calculate ehigh = 500.0000 % how far above data range to calculate end % all remaining lines will be ignored on input -- diffkk program summary -- f''(E) was set to be f''(E) = f''_CL(E) for E > e0+ehigh and E < e0-elow. within the range E = [e0-elow, e0+ehigh], f'' was set to f''(E) = f''_CL(E) + a0 + a1 * mu(E') * ( E' / e0) + a2 * (E' - e0) + a3 * (E' - e0)**2 where mu(E) was read from t.dat, f''_CL(E) was found for Cu, and E' = E + e0_shift. the values of e0_shift, a0, a1, a2, and a3 were determined to be: e0_shift = -0.605967 a0 = 1.39921 a1 = 2.51221 a2 = -0.877579E-03 a3 = 0.125303E-05 so as to best match f''_CL(E) between E = [e0-elow, e0+ehigh] -- end diffkk log file -- ifeffit-1.2.11d/examples/diffkk/feff.run0000644000175000017500000000006310771740461017066 0ustar segresegre Feff 6L.02 Fatal Error: XANES card not available ifeffit-1.2.11d/examples/diffkk/diffkk.sav0000644000175000017500000064255210771740461017422 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.2.7 Copyright (c) 2005 Matt Newville, Univ of Chicago #:strings #= plot_device= /xserve #= group= w #= commentchar= # #= column_label= 1 2 #= column_label1= 1 2 #= dat_title_01= Saved on Fri Apr 29 14:10:05 2005 #= dat_title_02= Column list of vectors: E FLUO #= dat_title_03= Energy xmu #= filename= fe-xafs.xmu #= doc= diffkk: no title lines specified #:system #:scalars (nopad) #% pi 3.141592653590 #% etok 0.2624682917000 #% correl_min 0.5000000000000E-01 #% ncolumn_label 1.000000000000 #% e0 7112.000000000 #% egrid 1.000000000000 #% elow 500.0000000000 #% ehigh 1500.000000000 #% ework1 7050.000000000 #% ework2 7600.000000000 #% eout1 6550.000000000 #% eout2 9100.000000000 #% iz 26.00000000000 #% core_width 0.000000000000 #% wid 0.000000000000 #% edge_step 113615.2344512 #% pre1 -200.0000000000 #% pre2 -50.00000000000 #% norm1 100.0000000000 #% norm2 400.0000000000 #% pre_slope 8.511297265035 #% pre_offset -49807.72493455 #% norm_c0 -812531.8735027 #% norm_c1 208.9432808410 #% norm_c2 -.1085660296917E-01 #% cl_step 3.489362218450 #% cl_0 0.4751679303616 #% dt_step 113615.2344512 #% dt_0 10196.92078395 #:arrays #% [ 551] dat.1 !Vdf;R%%%Vdf_zR%%Vdg*I%%%VdgNqR%%Vdgs@%%%Vdh=hR%%Vdhb7%%%Vdi,_Q~~VdiQ.%%%VdiuVQ~~ !Vdj@%%%%VdjdMQ~~Vdk.v%%%VdkSDR%%Vdkwm%%%VdlB;R%%Vdlfd%%%Vdm12R%%VdmU[%%%Vdmz)Q~~ !VdnDR%%%VdnhzQ~~Vdo3I%%%VdoWqQ~~Vdo|@%%%VdpFhR%%Vdpk7%%%Vdq5_R%%VdqZ.%%%Vdq~VR%% !VdrI%%%%VdrmMR%%Vds7v%%%Vds\DQ~~Vdt&m%%%VdtK;Q~~Vdtod%%%Vdu:2Q~~Vdu^[%%%Vdv))R%% !VdvMR%%%VdvqzR%%Vdw_Q~~Vdyc.%%%Vdz-VQ~~ !VdzR%%%%VdzvMR%%Vd{@v%%%Vd{eDR%%Vd|/m%%%Vd|T;R%%Vd|xd%%%Vd}C2Q~~Vd}g[%%%Vd~2)Q~~ !Vd~VR%%%Vd~zzQ~~Vf%EI%%%Vf%iqR%%Vf&4@%%%Vf&XhR%%Vf&}7%%%Vf'G_Q~~Vf'l.%%%Vf(6VQ~~ !Vf([%%%%Vf)%MR%%Vf)Iv%%%Vf)nDQ~~Vf*8m%%%Vf*];R%%Vf+'d%%%Vf+L2R%%Vf+p[%%%Vf,;)R%% !Vf,_R%%%Vf-)zQ~~Vf-NI%%%Vf-rqR%%Vf.=@%%%Vf.ahR%%Vf/,7%%%Vf/P_Q~~Vf/u.%%%Vf0?VR%% !Vf0d%%%%Vf1.MR%%Vf1Rv%%%Vf1wDQ~~Vf2Am%%%Vf2f;Q~~Vf30d%%%Vf3U2R%%Vf3y[%%%Vf4D)R%% !Vf4hR%%%Vf52zR%%Vf5WI%%%Vf5{qR%%Vf6F@%%%Vf6jhQ~~Vf757%%%Vf7Y_R%%Vf7~.%%%Vf8HVQ~~ !Vf8m%%%%Vf97MQ~~Vf9[v%%%Vf:&DR%%Vf:Jm%%%Vf:o;Q~~Vf;9d%%%Vf;^2R%%Vf<([%%%Vf*qR%%Vf>O@%%%Vf>shR%%Vf?>7%%%Vf?b_Q~~Vf@-.%%%Vf@QVR%% !Vf@v%%%%VfA@MQ~~VfAdv%%%VfB/DQ~~VfBSm%%%VfBx;R%%VfCBd%%%VfCg2Q~~VfD1[%%%VfDV)Q~~ !VfDzR%%%VfEDzQ~~VfEiI%%%VfF3qQ~~VfFX@%%%VfF|hR%%VfGG7%%%VfGk_Q~~VfH6.%%%VfHZVQ~~ !VfI%%%%%VfIIMR%%VfImv%%%VfJ8DR%%VfJ\m%%%VfK';Q~~VfKKd%%%VfKp2R%%VfL:[%%%VfL_)R%% !VfM)R%%%VfMMzQ~~VfMrI%%%VfN_Q~~Vfpc.%%%Vfq-VQ~~ !VfqR%%%%VfqvMR%%Vfr@v%%%VfreDR%%Vfs/m%%%VfsT;R%%Vfsxd%%%VftC2Q~~Vftg[%%%Vfu2)Q~~ !VfuVR%%%VfuzzQ~~VfvEI%%%VfviqR%%Vfw4@%%%VfwXhR%%Vfw}7%%%VfxG_R%%Vfxl.%%%Vfy6VQ~~ !Vfy[%%%%Vfz%MQ~~VfzIv%%%VfznDQ~~Vf{8m%%%Vf{];R%%Vf|'d%%%Vf|L2R%%Vf|p[%%%Vf};)R%% !Vf}_R%%%Vf~)zR%%Vf~NI%%%Vf~rqQ~~Vh%=@%%%Vh%ahR%%Vh&,7%%%Vh&P_R%%Vh&u.%%%Vh'?VR%% !Vh'd%%%%Vh(.MR%%Vh(Rv%%%Vh(wDR%%Vh)Am%%%Vh)f;R%%Vh*0d%%%Vh*U2R%%Vh*y[%%%Vh+D)Q~~ !Vh+hR%%%Vh,2zR%%Vh,WI%%%Vh,{qR%%Vh-F@%%%Vh-jhR%%Vh.57%%%Vh.Y_R%%Vh.~.%%%Vh/HVQ~~ !Vh/m%%%%Vh07MR%%Vh0[v%%%Vh1&DR%%Vh1Jm%%%Vh1o;Q~~Vh29d%%%Vh2^2Q~~Vh3([%%%Vh3M)R%% !Vh3qR%%%Vh4;zQ~~Vh4`I%%%Vh5*qR%%Vh5O@%%%Vh5shR%%Vh6>7%%%Vh6b_Q~~Vh7-.%%%Vh7QVR%% !Vh7v%%%%Vh8@MQ~~Vh8dv%%%Vh9/DQ~~Vh9Sm%%%Vh9x;R%%Vh:Bd%%%Vh:g2Q~~Vh;1[%%%Vh;V)R%% !Vh;zR%%%VhG7%%%Vh>k_R%%Vh?6.%%%Vh?ZVQ~~ !Vh@%%%%%Vh@IMR%%Vh@mv%%%VhA8DQ~~VhA\m%%%VhB';Q~~VhBKd%%%VhBp2R%%VhC:[%%%VhC_)Q~~ !VhD)R%%%VhDMzR%%VhDrI%%%VhE_Q~~Vhgc.%%%Vhh-VQ~~ !VhhR%%%%VhhvMR%%Vhi@v%%%VhieDR%%Vhj/m%%%VhjT;R%%Vhjxd%%%VhkC2Q~~Vhkg[%%%Vhl2)Q~~ !VhlVR%%%VhlzzQ~~VhmEI%%%VhmiqR%%Vhn4@%%%VhnXhR%%Vhn}7%%%VhoG_R%%Vhol.%%%Vhp6VQ~~ !Vhp[%%%%Vhq%MQ~~VhqIv%%%VhqnDQ~~Vhr8m%%%Vhr];R%%Vhs'd%%%VhsL2R%%Vhsp[%%%Vht;)R%% !Vht_R%%%Vhu)zR%%VhuNI%%%VhurqQ~~Vhv=@%%%VhvahQ~~Vhw,7%%%VhwP_Q~~Vhwu.%%%Vhx?VR%% !Vhxd%%%%Vhy.MR%%VhyRv%%%VhywDR%%VhzAm%%%Vhzf;Q~~Vh{0d%%%Vh{U2Q~~Vh{y[%%%Vh|D)Q~~ !Vh|hR%%%Vh}2zR%%Vh}WI%%%Vh}{qR%%Vh~F@%%%Vh~jhR%%Vj%57%%%Vj%Y_Q~~Vj%~.%%%Vj&HVR%% !Vj&m%%%%Vj'7MR%%Vj'[v%%%Vj(&DQ~~Vj(Jm%%%Vj(o;R%%Vj)9d%%%Vj)^2Q~~Vj*([%%%Vj*M)R%% !Vj*qR%%%Vj+;zR%%Vj+`I%%%Vj,*qR%%Vj,O@%%%Vj,shR%%Vj->7%%%Vj-b_R%%Vj.-.%%%Vj.QVQ~~ !Vj.v%%%%Vj/@MQ~~Vj/dv%%%Vj0/DR%%Vj0Sm%%%Vj0x;R%%Vj1Bd%%%Vj1g2Q~~Vj21[%%%Vj2V)R%% !Vj2zR%%%Vj3DzR%%Vj3iI%%%Vj43qR%%Vj4X@%%%Vj4|hQ~~Vj5G7%%%Vj5k_R%%Vj66.%%%Vj6ZVQ~~ !Vj7%%%%% #% [ 551] dat.2 !W.Y7mv%%W.dKOhR%W.\y2R%%W.\uRMR%W.^62)R%W.[6JDR%W.hWO8@MR% !WFG|;zR%WR2)-VR%W\]FpZ~~Wh8Y{qR%WrwSu.%%X.\F/m%%X0=)f;R%X0a}{qR%X2'4\DR%X2Z,G7%% !X4B-fd%%X4pe0;R%X4iCg2R%X4B]/DR%X2qu^[%%X2\p:Z~~X2Q}G6~~X2OwP_R%X2QgRu~~X2NreDR% !X2@/y2R%X21k[MR%X2%ahR%%X2,WI%%%X2/+H-~~X24UNqR%X20X;zR%X2(@ahR%X0q<0d%%X0_S\m%% !X0SMIu~~X0Jra?~~X0CI~.%%X0?+|hR%X08W0c~~X02b[MR%X0+b&m%%X.~KWqR%X.{9[u~~X.t]OhR% !X.wYWI%%X.vTl.%%X.{2Al~~X.~@]d%%X0(/shR%X0`BSm%% !X0^]Kd%%X0\q)Q~~X0ZFdMR%X0XlVR%%X0XlVR%%X0Wo+@%%X0X=3qR%X0X9Sm%%X0WQvv%%X0[l>7%% !X0Z4P6~~X0_'t6~~X0bpRu~~X0dN@v%%X0e^&DR%X0f:c-~~X0kRU[%%X0pB?VR%X0q}g[%%X0tN,_R% !X0vS}7%%X0yAP_R%X0yAP_R%X0}n,6~~X0~G.v%%X0~)zR%%X0~G.v%%X2)EM)R%X2(lJDR%X2(z~VR% !X2)>2zR%X2(2-VR%X2(DAl~~X2)tod%%X2)6rqR%X2&mmv%%X2(G{qR%X2'UJl~~X2'`DzR%X2'ny2R% !X2%ZNI%%X2%pBd%%X0}jL2R%X0}uF@%%X0}I]c~~X0z;Am%%X0wQNH~~X0yP*qR%X0x9+?~~X0vAhzR% !X0wj|hR%X0t`@v%%X0v/Td%%X0trU2R%X0u9CZ~~X0s(Rv%%X0sfOhR%X0olvv%%X0q}g[%%X0pEyZ~~ !X0q<0d%%X0q<0d%%X0nCc-~~X0nkk_R%X0qgs?~~X0oW(Z~~X0nGC2R%X0m|t_R%X0m))R%%X0nvem%% !X0o2Z-~~X0lm57%%X0oOhQ~~X0r.ahR%X0r{8l~~X0r{8l~~X0pX3qR%X0s|D)R%X0sB';R%X0trU2R% !X0u*iH~~X0xRY_R%X0x1k6~~X0v^wDR%X0uGwm%%X0xV9c~~X0z4'd%%X0{dU[%%X0z0G_R%X0|e`qR% !X0|A8DR%X0{*8m%%X0{52zR%X0}(o;R%X0yP*qR%X0{kod%%X0zXP7%%X0z%MQ~~X0{*8m%%X0{];R%% !X0zMV)R%X0{52zR%X0x*Q.%%X0z4'd%%X0yps@%%X0y/2zR%X2&|H.%%X2)EM)R%X2'82zR%X2)Wa?~~X2(O;zR%X2(K[u~~X2%9_zR%X2'UJl~~X2(lJDR%X2(sdMR%X2'rY7%%X2*)Iv%% !X2'C6VR%X2(p*I%%X2*-)zR%X2,e}7%%X2*FX@%%X2,=t_R%X2)38m%%X2-ub_R%X2.1VzR%X2'N0d%% !X2*k&l~~X2+]WqR%X2,e}7%%X2+O?~~X21CRv%%X21vU[%%X2/L6VR%X21&DR%%X214xc~~ !X22@~.%%X21o;Q~~X20uJDR%X21G2zR%X22.iqR%X22t&m%%X23IIMR%X22eLZ~~X24UNqR%X22Kx;R% !X23,;)R%X229d%%%X24?ZVR%X23IIMR%X21dADR%X23,;)R%X22t&m%%X24N4hR%X259Kd%%X25'7MR% !X26q9d%%X25e4@%%X25VZ-~~X24;zR%%X22S8DR%X2521[%%X24Y.v%%X25DEqR%X27-.%%%X26PK;R% !X29p{I%%X25hnDR%X270h)R%X29WM)R%X26[EH~~X27?B;R%X270h)R%X28dv%%%X2>`eDR%X28][v%% !X2;`}_R%X2;Co;R%X26_%MR%X26Lk7%%X25shR%%X2:4/l~~X26mY_R%X29[--~~X24v=@%%X2893I%% !X255k_R%X296^[%%X27QVR%%X2;oWqR%X26_%MR%X28*Y7%%X26Aq)R%X29HrqR%X255k_R%X270h)R% !X27gJl~~X278(2R%X29E8m%%X27QVR%%X27`0d%%X28O'c~~X25lNI%%X28@MQ~~X29t[MR%X2;zR%%% !X2;oWqR%X28dv%%%X2G7%%%X2;&`qR%X2<2f;R%X2>vY_R%X2?S*([%% !X2>Uk7%%X2?9h)R%X2=3qQ~~X2?A(2R%X2?t*qR%X2:0OhR%X2;zR%%%X2?S_Q~~Vdyc.%%%Vdz-VQ~~ !VdzR%%%%VdzvMR%%Vd{@v%%%Vd{eDR%%Vd|/m%%%Vd|T;R%%Vd|xd%%%Vd}C2Q~~Vd}g[%%%Vd~2)Q~~ !Vd~VR%%%Vd~zzQ~~Vf%EI%%%Vf%iqR%%Vf&4@%%%Vf&XhR%%Vf&}7%%%Vf'G_Q~~Vf'l.%%%Vf(6VQ~~ !Vf([%%%%Vf)%MR%%Vf)Iv%%%Vf)nDQ~~Vf*8m%%%Vf*];R%%Vf+'d%%%Vf+L2R%%Vf+p[%%%Vf,;)R%% !Vf,_R%%%Vf-)zQ~~Vf-NI%%%Vf-rqR%%Vf.=@%%%Vf.ahR%%Vf/,7%%%Vf/P_Q~~Vf/u.%%%Vf0?VR%% !Vf0d%%%%Vf1.MR%%Vf1Rv%%%Vf1wDQ~~Vf2Am%%%Vf2f;Q~~Vf30d%%%Vf3U2R%%Vf3y[%%%Vf4D)R%% !Vf4hR%%%Vf52zR%%Vf5WI%%%Vf5{qR%%Vf6F@%%%Vf6jhQ~~Vf757%%%Vf7Y_R%%Vf7~.%%%Vf8HVQ~~ !Vf8m%%%%Vf97MQ~~Vf9[v%%%Vf:&DR%%Vf:Jm%%%Vf:o;Q~~Vf;9d%%%Vf;^2R%%Vf<([%%%Vf*qR%%Vf>O@%%%Vf>shR%%Vf?>7%%%Vf?b_Q~~Vf@-.%%%Vf@QVR%% !Vf@v%%%%VfA@MQ~~VfAdv%%%VfB/DQ~~VfBSm%%%VfBx;R%%VfCBd%%%VfCg2Q~~VfD1[%%%VfDV)Q~~ !VfDzR%%%VfEDzQ~~VfEiI%%%VfF3qQ~~VfFX@%%%VfF|hR%%VfGG7%%%VfGk_Q~~VfH6.%%%VfHZVQ~~ !VfI%%%%%VfIIMR%%VfImv%%%VfJ8DR%%VfJ\m%%%VfK';Q~~VfKKd%%%VfKp2R%%VfL:[%%%VfL_)R%% !VfM)R%%%VfMMzQ~~VfMrI%%%VfN_Q~~Vfpc.%%%Vfq-VQ~~ !VfqR%%%%VfqvMR%%Vfr@v%%%VfreDR%%Vfs/m%%%VfsT;R%%Vfsxd%%%VftC2Q~~Vftg[%%%Vfu2)Q~~ !VfuVR%%%VfuzzQ~~VfvEI%%%VfviqR%%Vfw4@%%%VfwXhR%%Vfw}7%%%VfxG_R%%Vfxl.%%%Vfy6VQ~~ !Vfy[%%%%Vfz%MQ~~VfzIv%%%VfznDQ~~Vf{8m%%%Vf{];R%%Vf|'d%%%Vf|L2R%%Vf|p[%%%Vf};)R%% !Vf}_R%%%Vf~)zR%%Vf~NI%%%Vf~rqQ~~Vh%=@%%%Vh%ahR%%Vh&,7%%%Vh&P_R%%Vh&u.%%%Vh'?VR%% !Vh'd%%%%Vh(.MR%%Vh(Rv%%%Vh(wDR%%Vh)Am%%%Vh)f;R%%Vh*0d%%%Vh*U2R%%Vh*y[%%%Vh+D)Q~~ !Vh+hR%%%Vh,2zR%%Vh,WI%%%Vh,{qR%%Vh-F@%%%Vh-jhR%%Vh.57%%%Vh.Y_R%%Vh.~.%%%Vh/HVQ~~ !Vh/m%%%%Vh07MR%%Vh0[v%%%Vh1&DR%%Vh1Jm%%%Vh1o;Q~~Vh29d%%%Vh2^2Q~~Vh3([%%%Vh3M)R%% !Vh3qR%%%Vh4;zQ~~Vh4`I%%%Vh5*qR%%Vh5O@%%%Vh5shR%%Vh6>7%%%Vh6b_Q~~Vh7-.%%%Vh7QVR%% !Vh7v%%%%Vh8@MQ~~Vh8dv%%%Vh9/DQ~~Vh9Sm%%%Vh9x;R%%Vh:Bd%%%Vh:g2Q~~Vh;1[%%%Vh;V)R%% !Vh;zR%%%VhG7%%%Vh>k_R%%Vh?6.%%%Vh?ZVQ~~ !Vh@%%%%%Vh@IMR%%Vh@mv%%%VhA8DQ~~VhA\m%%%VhB';Q~~VhBKd%%%VhBp2R%%VhC:[%%%VhC_)Q~~ !VhD)R%%%VhDMzR%%VhDrI%%%VhE_Q~~Vhgc.%%%Vhh-VQ~~ !VhhR%%%%VhhvMR%%Vhi@v%%%VhieDR%%Vhj/m%%%VhjT;R%%Vhjxd%%%VhkC2Q~~Vhkg[%%%Vhl2)Q~~ !VhlVR%%%VhlzzQ~~VhmEI%%%VhmiqR%%Vhn4@%%%VhnXhR%%Vhn}7%%%VhoG_R%%Vhol.%%%Vhp6VQ~~ !Vhp[%%%%Vhq%MQ~~VhqIv%%%VhqnDQ~~Vhr8m%%%Vhr];R%%Vhs'd%%%VhsL2R%%Vhsp[%%%Vht;)R%% !Vht_R%%%Vhu)zR%%VhuNI%%%VhurqQ~~Vhv=@%%%VhvahQ~~Vhw,7%%%VhwP_Q~~Vhwu.%%%Vhx?VR%% !Vhxd%%%%Vhy.MR%%VhyRv%%%VhywDR%%VhzAm%%%Vhzf;Q~~Vh{0d%%%Vh{U2Q~~Vh{y[%%%Vh|D)Q~~ !Vh|hR%%%Vh}2zR%%Vh}WI%%%Vh}{qR%%Vh~F@%%%Vh~jhR%%Vj%57%%%Vj%Y_Q~~Vj%~.%%%Vj&HVR%% !Vj&m%%%%Vj'7MR%%Vj'[v%%%Vj(&DQ~~Vj(Jm%%%Vj(o;R%%Vj)9d%%%Vj)^2Q~~Vj*([%%%Vj*M)R%% !Vj*qR%%%Vj+;zR%%Vj+`I%%%Vj,*qR%%Vj,O@%%%Vj,shR%%Vj->7%%%Vj-b_R%%Vj.-.%%%Vj.QVQ~~ !Vj.v%%%%Vj/@MQ~~Vj/dv%%%Vj0/DR%%Vj0Sm%%%Vj0x;R%%Vj1Bd%%%Vj1g2Q~~Vj21[%%%Vj2V)R%% !Vj2zR%%%Vj3DzR%%Vj3iI%%%Vj43qR%%Vj4X@%%%Vj4|hQ~~Vj5G7%%%Vj5k_R%%Vj66.%%%Vj6ZVQ~~ !Vj7%%%%% #% [ 551] dat.expdat !W.Y7mv%%W.dKOhR%W.\y2R%%W.\uRMR%W.^62)R%W.[6JDR%W.hWO8@MR% !WFG|;zR%WR2)-VR%W\]FpZ~~Wh8Y{qR%WrwSu.%%X.\F/m%%X0=)f;R%X0a}{qR%X2'4\DR%X2Z,G7%% !X4B-fd%%X4pe0;R%X4iCg2R%X4B]/DR%X2qu^[%%X2\p:Z~~X2Q}G6~~X2OwP_R%X2QgRu~~X2NreDR% !X2@/y2R%X21k[MR%X2%ahR%%X2,WI%%%X2/+H-~~X24UNqR%X20X;zR%X2(@ahR%X0q<0d%%X0_S\m%% !X0SMIu~~X0Jra?~~X0CI~.%%X0?+|hR%X08W0c~~X02b[MR%X0+b&m%%X.~KWqR%X.{9[u~~X.t]OhR% !X.wYWI%%X.vTl.%%X.{2Al~~X.~@]d%%X0(/shR%X0`BSm%% !X0^]Kd%%X0\q)Q~~X0ZFdMR%X0XlVR%%X0XlVR%%X0Wo+@%%X0X=3qR%X0X9Sm%%X0WQvv%%X0[l>7%% !X0Z4P6~~X0_'t6~~X0bpRu~~X0dN@v%%X0e^&DR%X0f:c-~~X0kRU[%%X0pB?VR%X0q}g[%%X0tN,_R% !X0vS}7%%X0yAP_R%X0yAP_R%X0}n,6~~X0~G.v%%X0~)zR%%X0~G.v%%X2)EM)R%X2(lJDR%X2(z~VR% !X2)>2zR%X2(2-VR%X2(DAl~~X2)tod%%X2)6rqR%X2&mmv%%X2(G{qR%X2'UJl~~X2'`DzR%X2'ny2R% !X2%ZNI%%X2%pBd%%X0}jL2R%X0}uF@%%X0}I]c~~X0z;Am%%X0wQNH~~X0yP*qR%X0x9+?~~X0vAhzR% !X0wj|hR%X0t`@v%%X0v/Td%%X0trU2R%X0u9CZ~~X0s(Rv%%X0sfOhR%X0olvv%%X0q}g[%%X0pEyZ~~ !X0q<0d%%X0q<0d%%X0nCc-~~X0nkk_R%X0qgs?~~X0oW(Z~~X0nGC2R%X0m|t_R%X0m))R%%X0nvem%% !X0o2Z-~~X0lm57%%X0oOhQ~~X0r.ahR%X0r{8l~~X0r{8l~~X0pX3qR%X0s|D)R%X0sB';R%X0trU2R% !X0u*iH~~X0xRY_R%X0x1k6~~X0v^wDR%X0uGwm%%X0xV9c~~X0z4'd%%X0{dU[%%X0z0G_R%X0|e`qR% !X0|A8DR%X0{*8m%%X0{52zR%X0}(o;R%X0yP*qR%X0{kod%%X0zXP7%%X0z%MQ~~X0{*8m%%X0{];R%% !X0zMV)R%X0{52zR%X0x*Q.%%X0z4'd%%X0yps@%%X0y/2zR%X2&|H.%%X2)EM)R%X2'82zR%X2)Wa?~~X2(O;zR%X2(K[u~~X2%9_zR%X2'UJl~~X2(lJDR%X2(sdMR%X2'rY7%%X2*)Iv%% !X2'C6VR%X2(p*I%%X2*-)zR%X2,e}7%%X2*FX@%%X2,=t_R%X2)38m%%X2-ub_R%X2.1VzR%X2'N0d%% !X2*k&l~~X2+]WqR%X2,e}7%%X2+O?~~X21CRv%%X21vU[%%X2/L6VR%X21&DR%%X214xc~~ !X22@~.%%X21o;Q~~X20uJDR%X21G2zR%X22.iqR%X22t&m%%X23IIMR%X22eLZ~~X24UNqR%X22Kx;R% !X23,;)R%X229d%%%X24?ZVR%X23IIMR%X21dADR%X23,;)R%X22t&m%%X24N4hR%X259Kd%%X25'7MR% !X26q9d%%X25e4@%%X25VZ-~~X24;zR%%X22S8DR%X2521[%%X24Y.v%%X25DEqR%X27-.%%%X26PK;R% !X29p{I%%X25hnDR%X270h)R%X29WM)R%X26[EH~~X27?B;R%X270h)R%X28dv%%%X2>`eDR%X28][v%% !X2;`}_R%X2;Co;R%X26_%MR%X26Lk7%%X25shR%%X2:4/l~~X26mY_R%X29[--~~X24v=@%%X2893I%% !X255k_R%X296^[%%X27QVR%%X2;oWqR%X26_%MR%X28*Y7%%X26Aq)R%X29HrqR%X255k_R%X270h)R% !X27gJl~~X278(2R%X29E8m%%X27QVR%%X27`0d%%X28O'c~~X25lNI%%X28@MQ~~X29t[MR%X2;zR%%% !X2;oWqR%X28dv%%%X2G7%%%X2;&`qR%X2<2f;R%X2>vY_R%X2?S*([%% !X2>Uk7%%X2?9h)R%X2=3qQ~~X2?A(2R%X2?t*qR%X2:0OhR%X2;zR%%%X2?S_Q~~Vdyc.%%%Vdz-VQ~~ !VdzR%%%%VdzvMR%%Vd{@v%%%Vd{eDR%%Vd|/m%%%Vd|T;R%%Vd|xd%%%Vd}C2Q~~Vd}g[%%%Vd~2)Q~~ !Vd~VR%%%Vd~zzQ~~Vf%EI%%%Vf%iqR%%Vf&4@%%%Vf&XhR%%Vf&}7%%%Vf'G_Q~~Vf'l.%%%Vf(6VQ~~ !Vf([%%%%Vf)%MR%%Vf)Iv%%%Vf)nDQ~~Vf*8m%%%Vf*];R%%Vf+'d%%%Vf+L2R%%Vf+p[%%%Vf,;)R%% !Vf,_R%%%Vf-)zQ~~Vf-NI%%%Vf-rqR%%Vf.=@%%%Vf.ahR%%Vf/,7%%%Vf/P_Q~~Vf/u.%%%Vf0?VR%% !Vf0d%%%%Vf1.MR%%Vf1Rv%%%Vf1wDQ~~Vf2Am%%%Vf2f;Q~~Vf30d%%%Vf3U2R%%Vf3y[%%%Vf4D)R%% !Vf4hR%%%Vf52zR%%Vf5WI%%%Vf5{qR%%Vf6F@%%%Vf6jhQ~~Vf757%%%Vf7Y_R%%Vf7~.%%%Vf8HVQ~~ !Vf8m%%%%Vf97MQ~~Vf9[v%%%Vf:&DR%%Vf:Jm%%%Vf:o;Q~~Vf;9d%%%Vf;^2R%%Vf<([%%%Vf*qR%%Vf>O@%%%Vf>shR%%Vf?>7%%%Vf?b_Q~~Vf@-.%%%Vf@QVR%% !Vf@v%%%%VfA@MQ~~VfAdv%%%VfB/DQ~~VfBSm%%%VfBx;R%%VfCBd%%%VfCg2Q~~VfD1[%%%VfDV)Q~~ !VfDzR%%%VfEDzQ~~VfEiI%%%VfF3qQ~~VfFX@%%%VfF|hR%%VfGG7%%%VfGk_Q~~VfH6.%%%VfHZVQ~~ !VfI%%%%%VfIIMR%%VfImv%%%VfJ8DR%%VfJ\m%%%VfK';Q~~VfKKd%%%VfKp2R%%VfL:[%%%VfL_)R%% !VfM)R%%%VfMMzQ~~VfMrI%%%VfN_Q~~Vfpc.%%%Vfq-VQ~~ !VfqR%%%%VfqvMR%%Vfr@v%%%VfreDR%%Vfs/m%%%VfsT;R%%Vfsxd%%%VftC2Q~~Vftg[%%%Vfu2)Q~~ !VfuVR%%%VfuzzQ~~VfvEI%%%VfviqR%%Vfw4@%%%VfwXhR%%Vfw}7%%%VfxG_R%%Vfxl.%%%Vfy6VQ~~ !Vfy[%%%%Vfz%MQ~~VfzIv%%%VfznDQ~~Vf{8m%%%Vf{];R%%Vf|'d%%%Vf|L2R%%Vf|p[%%%Vf};)R%% !Vf}_R%%%Vf~)zR%%Vf~NI%%%Vf~rqQ~~Vh%=@%%%Vh%ahR%%Vh&,7%%%Vh&P_R%%Vh&u.%%%Vh'?VR%% !Vh'd%%%%Vh(.MR%%Vh(Rv%%%Vh(wDR%%Vh)Am%%%Vh)f;R%%Vh*0d%%%Vh*U2R%%Vh*y[%%%Vh+D)Q~~ !Vh+hR%%%Vh,2zR%%Vh,WI%%%Vh,{qR%%Vh-F@%%%Vh-jhR%%Vh.57%%%Vh.Y_R%%Vh.~.%%%Vh/HVQ~~ !Vh/m%%%%Vh07MR%%Vh0[v%%%Vh1&DR%%Vh1Jm%%%Vh1o;Q~~Vh29d%%%Vh2^2Q~~Vh3([%%%Vh3M)R%% !Vh3qR%%%Vh4;zQ~~Vh4`I%%%Vh5*qR%%Vh5O@%%%Vh5shR%%Vh6>7%%%Vh6b_Q~~Vh7-.%%%Vh7QVR%% !Vh7v%%%%Vh8@MQ~~Vh8dv%%%Vh9/DQ~~Vh9Sm%%%Vh9x;R%%Vh:Bd%%%Vh:g2Q~~Vh;1[%%%Vh;V)R%% !Vh;zR%%%VhG7%%%Vh>k_R%%Vh?6.%%%Vh?ZVQ~~ !Vh@%%%%%Vh@IMR%%Vh@mv%%%VhA8DQ~~VhA\m%%%VhB';Q~~VhBKd%%%VhBp2R%%VhC:[%%%VhC_)Q~~ !VhD)R%%%VhDMzR%%VhDrI%%%VhE_Q~~Vhgc.%%%Vhh-VQ~~ !VhhR%%%%VhhvMR%%Vhi@v%%%VhieDR%%Vhj/m%%%VhjT;R%%Vhjxd%%%VhkC2Q~~Vhkg[%%%Vhl2)Q~~ !VhlVR%%%VhlzzQ~~VhmEI%%%VhmiqR%%Vhn4@%%%VhnXhR%%Vhn}7%%%VhoG_R%%Vhol.%%%Vhp6VQ~~ !Vhp[%%%%Vhq%MQ~~VhqIv%%%VhqnDQ~~Vhr8m%%%Vhr];R%%Vhs'd%%%VhsL2R%%Vhsp[%%%Vht;)R%% !Vht_R%%%Vhu)zR%%VhuNI%%%VhurqQ~~Vhv=@%%%VhvahQ~~Vhw,7%%%VhwP_Q~~Vhwu.%%%Vhx?VR%% !Vhxd%%%%Vhy.MR%%VhyRv%%%VhywDR%%VhzAm%%%Vhzf;Q~~Vh{0d%%%Vh{U2Q~~Vh{y[%%%Vh|D)Q~~ !Vh|hR%%%Vh}2zR%%Vh}WI%%%Vh}{qR%%Vh~F@%%%Vh~jhR%%Vj%57%%%Vj%Y_Q~~Vj%~.%%%Vj&HVR%% !Vj&m%%%%Vj'7MR%%Vj'[v%%%Vj(&DQ~~Vj(Jm%%%Vj(o;R%%Vj)9d%%%Vj)^2Q~~Vj*([%%%Vj*M)R%% !Vj*qR%%%Vj+;zR%%Vj+`I%%%Vj,*qR%%Vj,O@%%%Vj,shR%%Vj->7%%%Vj-b_R%%Vj.-.%%%Vj.QVQ~~ !Vj.v%%%%Vj/@MQ~~Vj/dv%%%Vj0/DR%%Vj0Sm%%%Vj0x;R%%Vj1Bd%%%Vj1g2Q~~Vj21[%%%Vj2V)R%% !Vj2zR%%%Vj3DzR%%Vj3iI%%%Vj43qR%%Vj4X@%%%Vj4|hQ~~Vj5G7%%%Vj5k_R%%Vj66.%%%Vj6ZVQ~~ !Vj7%%%%% #% [ 500] o.e1 !V`OhR%%%V`P2zR%%V`PWI%%%V`P{qR%%V`QF@%%%V`QjhQ~~V`R57%%%V`RY_R%%V`R~.%%%V`SHVR%% !V`Sm%%%%V`T7MQ~~V`T[v%%%V`U&DR%%V`UJm%%%V`Uo;R%%V`V9d%%%V`V^2Q~~V`W([%%%V`WM)R%% !V`WqR%%%V`X;zR%%V`X`I%%%V`Y*qQ~~V`YO@%%%V`YshR%%V`Z>7%%%V`Zb_R%%V`[-.%%%V`[QVQ~~ !V`[v%%%%V`\@MQ~~V`\dv%%%V`]/DR%%V`]Sm%%%V`]x;Q~~V`^Bd%%%V`^g2Q~~V`_1[%%%V`_V)R%% !V`_zR%%%V``DzQ~~V``iI%%%V`a3qQ~~V`aX@%%%V`a|hR%%V`bG7%%%V`bk_Q~~V`c6.%%%V`cZVQ~~ !V`d%%%%%V`dIMR%%V`dmv%%%V`e8DR%%V`e\m%%%V`f';R%%V`fKd%%%V`fp2Q~~V`g:[%%%V`g_)Q~~ !V`h)R%%%V`hMzQ~~V`hrI%%%V`i_R%%Vb1c.%%%Vb2-VR%% !Vb2R%%%%Vb2vMQ~~Vb3@v%%%Vb3eDR%%Vb4/m%%%Vb4T;R%%Vb4xd%%%Vb5C2R%%Vb5g[%%%Vb62)Q~~ !Vb6VR%%%Vb6zzQ~~Vb7EI%%%Vb7iqR%%Vb84@%%%Vb8XhQ~~Vb8}7%%%Vb9G_R%%Vb9l.%%%Vb:6VR%% !Vb:[%%%%Vb;%MQ~~Vb;Iv%%%Vb;nDR%%Vb<8m%%%Vb<];R%%Vb='d%%%Vb=L2Q~~Vb=p[%%%Vb>;)R%% !Vb>_R%%%Vb?)zQ~~Vb?NI%%%Vb?rqQ~~Vb@=@%%%Vb@ahR%%VbA,7%%%VbAP_Q~~VbAu.%%%VbB?VR%% !VbBd%%%%VbC.MR%%VbCRv%%%VbCwDQ~~VbDAm%%%VbDf;R%%VbE0d%%%VbEU2Q~~VbEy[%%%VbFD)Q~~ !VbFhR%%%VbG2zR%%VbGWI%%%VbG{qR%%VbHF@%%%VbHjhQ~~VbI57%%%VbIY_R%%VbI~.%%%VbJHVR%% !VbJm%%%%VbK7MQ~~VbK[v%%%VbL&DR%%VbLJm%%%VbLo;R%%VbM9d%%%VbM^2Q~~VbN([%%%VbNM)R%% !VbNqR%%%VbO;zR%%VbO`I%%%VbP*qQ~~VbPO@%%%VbPshR%%VbQ>7%%%VbQb_R%%VbR-.%%%VbRQVQ~~ !VbRv%%%%VbS@MQ~~VbSdv%%%VbT/DR%%VbTSm%%%VbTx;Q~~VbUBd%%%VbUg2Q~~VbV1[%%%VbVV)R%% !VbVzR%%%VbWDzQ~~VbWiI%%%VbX3qQ~~VbXX@%%%VbX|hR%%VbYG7%%%VbYk_Q~~VbZ6.%%%VbZZVQ~~ !Vb[%%%%%Vb[IMR%%Vb[mv%%%Vb\8DR%%Vb\\m%%%Vb]';Q~~Vb]Kd%%%Vb]p2R%%Vb^:[%%%Vb^_)R%% !Vb_)R%%%Vb_MzQ~~Vb_rI%%%Vb`_R%%Vd(c.%%%Vd)-VQ~~ !Vd)R%%%%Vd)vMR%%Vd*@v%%%Vd*eDR%%Vd+/m%%%Vd+T;R%%Vd+xd%%%Vd,C2R%%Vd,g[%%%Vd-2)Q~~ !Vd-VR%%%Vd-zzR%%Vd.EI%%%Vd.iqR%%Vd/4@%%%Vd/XhQ~~Vd/}7%%%Vd0G_Q~~Vd0l.%%%Vd16VR%% !Vd1[%%%%Vd2%MQ~~Vd2Iv%%%Vd2nDQ~~Vd38m%%%Vd3];R%%Vd4'd%%%Vd4L2R%%Vd4p[%%%Vd5;)R%% !Vd5_R%%%Vd6)zQ~~Vd6NI%%%Vd6rqQ~~Vd7=@%%%Vd7ahR%%Vd8,7%%%Vd8P_Q~~Vd8u.%%%Vd9?VQ~~ !Vd9d%%%%Vd:.MR%%Vd:Rv%%%Vd:wDQ~~Vd;Am%%%Vd;f;R%%Vd<0d%%%Vd2zR%%Vd>WI%%%Vd>{qR%%Vd?F@%%%Vd?jhQ~~Vd@57%%%Vd@Y_R%%Vd@~.%%%VdAHVQ~~ !VdAm%%%%VdB7MQ~~VdB[v%%%VdC&DR%%VdCJm%%%VdCo;Q~~VdD9d%%%VdD^2R%%VdE([%%%VdEM)R%% !VdEqR%%%VdF;zR%%VdF`I%%%VdG*qQ~~VdGO@%%%VdGshR%%VdH>7%%%VdHb_R%%VdI-.%%%VdIQVQ~~ !VdIv%%%%VdJ@MQ~~VdJdv%%%VdK/DR%%VdKSm%%%VdKx;Q~~VdLBd%%%VdLg2Q~~VdM1[%%%VdMV)R%% !VdMzR%%%VdNDzQ~~VdNiI%%%VdO3qQ~~VdOX@%%%VdO|hR%%VdPG7%%%VdPk_Q~~VdQ6.%%%VdQZVQ~~ !VdR%%%%%VdRIMR%%VdRmv%%%VdS8DR%%VdS\m%%%VdT';Q~~VdTKd%%%VdTp2R%%VdU:[%%%VdU_)R%% !VdV)R%%%VdVMzQ~~VdVrI%%%VdW?.%%%Vj>cVR%%Vj?.%%%% !Vj?RMQ~~Vj?vv%%%Vj@ADR%%Vj@em%%%VjA0;R%%VjATd%%%VjAy2Q~~VjBC[%%%VjBh)R%%VjC2R%%% !VjCVzQ~~VjC{I%%%VjDEqQ~~VjDj@%%%VjE4hQ~~VjEY7%%%VjE}_Q~~VjFH.%%%VjFlVR%%VjG7%%%% !VjG[MQ~~VjH%v%%%VjHJDQ~~VjHnm%%%VjI9;R%%VjI]d%%%VjJ(2Q~~VjJL[%%%VjJq)Q~~VjK;R%%% !VjK_zR%%VjL*I%%%VjLNqR%%VjLs@%%%VjM=hQ~~VjMb7%%%VjN,_R%%VjNQ.%%%VjNuVR%%VjO@%%%% !VjOdMQ~~VjP.v%%%VjPSDR%%VjPwm%%%VjQB;R%%VjQfd%%%VjR12Q~~VjRU[%%%VjRz)R%%VjSDR%%% !VjShzR%%VjT3I%%%VjTWqQ~~VjT|@%%%VjUFhR%%VjUk7%%%VjV5_R%%VjVZ.%%%VjV~VQ~~VjWI%%%% !VjWmMQ~~VjX7v%%%VjX\DR%%VjY&m%%%VjYK;Q~~VjYod%%%VjZ:2Q~~VjZ^[%%%Vj[))R%%Vj[MR%%% !Vj[qzQ~~Vj\_Q~~Vj^c.%%%Vj_-VQ~~Vj_R%%%% !Vj_vMR%%Vj`@v%%%Vj`eDR%%Vja/m%%%VjaT;Q~~Vjaxd%%%VjbC2R%%Vjbg[%%%Vjc2)R%%VjcVR%%% !VjczzQ~~VjdEI%%%VjdiqR%%Vje4@%%%VjeXhR%%Vje}7%%%VjfG_R%%Vjfl.%%%Vjg6VQ~~Vjg[%%%% !Vjh%MQ~~VjhIv%%%VjhnDQ~~Vji8m%%%Vji];R%%Vjj'd%%%VjjL2R%%Vjjp[%%%Vjk;)R%%Vjk_R%%% !Vjl)zR%%VjlNI%%%VjlrqQ~~Vjm=@%%%VjmahQ~~Vjn,7%%%VjnP_Q~~Vjnu.%%%Vjo?VR%%Vjod%%%% !Vjp.MR%%VjpRv%%%VjpwDR%%VjqAm%%%Vjqf;Q~~Vjr0d%%%VjrU2Q~~Vjry[%%%VjsD)Q~~VjshR%%% !Vjt2zR%%VjtWI%%%Vjt{qR%%VjuF@%%%VjujhR%%Vjv57%%%VjvY_Q~~Vjv~.%%%VjwHVQ~~Vjwm%%%% !Vjx7MQ~~Vjx[v%%%Vjy&DR%%VjyJm%%%Vjyo;R%%Vjz9d%%%Vjz^2R%%Vj{([%%%Vj{M)Q~~Vj{qR%%% !Vj|;zQ~~Vj|`I%%%Vj}*qQ~~Vj}O@%%%Vj}shR%%Vj~>7%%%Vj~b_R%%Vl%-.%%%Vl%QVR%%Vl%v%%%% !Vl&@MR%%Vl&dv%%%Vl'/DR%%Vl'Sm%%%Vl'x;R%%Vl(Bd%%%Vl(g2R%%Vl)1[%%%Vl)V)R%%Vl)zR%%% !Vl*DzR%%Vl*iI%%%Vl+3qR%%Vl+X@%%%Vl+|hQ~~Vl,G7%%%Vl,k_R%%Vl-6.%%%Vl-ZVR%%Vl.%%%%% !Vl.IMQ~~Vl.mv%%%Vl/8DQ~~Vl/\m%%%Vl0';R%%Vl0Kd%%%Vl0p2R%%Vl1:[%%%Vl1_)Q~~Vl2)R%%% !Vl2MzR%%Vl2rI%%%Vl37%%%% !Vl>[MR%%Vl?%v%%%Vl?JDQ~~Vl?nm%%%Vl@9;R%%Vl@]d%%%VlA(2R%%VlAL[%%%VlAq)Q~~VlB;R%%% !VlB_zR%%VlC*I%%%VlCNqQ~~VlCs@%%%VlD=hQ~~VlDb7%%%VlE,_R%%VlEQ.%%%VlEuVR%%VlF@%%%% !VlFdMQ~~VlG.v%%%VlGSDR%%VlGwm%%%VlHB;R%%VlHfd%%%VlI12Q~~VlIU[%%%VlIz)R%%VlJDR%%% !VlJhzR%%VlK3I%%%VlKWqQ~~VlK|@%%%VlLFhR%%VlLk7%%%VlM5_R%%VlMZ.%%%VlM~VQ~~VlNI%%%% !VlNmMQ~~VlO7v%%%VlO\DR%%VlP&m%%%VlPK;Q~~VlPod%%%VlQ:2Q~~VlQ^[%%%VlR))R%%VlRMR%%% !VlRqzQ~~VlS_Q~~VlUc.%%%VlV-VQ~~VlVR%%%% !VlVvMR%%VlW@v%%%VlWeDR%%VlX/m%%%VlXT;Q~~VlXxd%%%VlYC2R%%VlYg[%%%VlZ2)R%%VlZVR%%% !VlZzzQ~~Vl[EI%%%Vl[iqR%%Vl\4@%%%Vl\XhR%%Vl\}7%%%Vl]G_Q~~Vl]l.%%%Vl^6VR%%Vl^[%%%% !Vl_%MR%%Vl_Iv%%%Vl_nDQ~~Vl`8m%%%Vl`];R%%Vla'd%%%VlaL2R%%Vlap[%%%Vlb;)Q~~Vlb_R%%% !Vlc)zQ~~VlcNI%%%VlcrqR%%Vld=@%%%VldahQ~~Vle,7%%%VleP_Q~~Vleu.%%%Vlf?VR%%Vlfd%%%% !Vlg.MR%%VlgRv%%%VlgwDR%%VlhAm%%%Vlhf;Q~~Vli0d%%%VliU2Q~~Vliy[%%%VljD)Q~~VljhR%%% !Vlk2zR%%VlkWI%%%Vlk{qR%%VllF@%%%VlljhR%%Vlm57%%%VlmY_Q~~Vlm~.%%%VlnHVQ~~Vlnm%%%% !Vlo7MQ~~Vlo[v%%%Vlp&DR%%VlpJm%%%Vlpo;R%%Vlq9d%%%Vlq^2R%%Vlr([%%%VlrM)Q~~VlrqR%%% !Vls;zQ~~Vls`I%%%Vlt*qQ~~VltO@%%%VltshR%%Vlu>7%%%Vlub_R%%Vlv-.%%%VlvQVR%%Vlvv%%%% !Vlw@MR%%Vlwdv%%%Vlx/DQ~~VlxSm%%%Vlxx;Q~~VlyBd%%%Vlyg2Q~~Vlz1[%%%VlzV)R%%VlzzR%%% !Vl{DzR%%Vl{iI%%%Vl|3qR%%Vl|X@%%%Vl||hQ~~Vl}G7%%%Vl}k_Q~~Vl~6.%%%Vl~ZVQ~~Vn%%%%%% !Vn%IMR%%Vn%mv%%%Vn&8DQ~~Vn&\m%%%Vn'';R%%Vn'Kd%%%Vn'p2R%%Vn(:[%%%Vn(_)R%%Vn))R%%% !Vn)MzR%%Vn)rI%%%Vn*.v%%%Vn>SDR%%Vn>wm%%%Vn?B;Q~~Vn?fd%%%Vn@12R%%Vn@U[%%%Vn@z)R%%VnADR%%% !VnAhzQ~~VnB3I%%%VnBWqR%%VnB|@%%%VnCFhR%%VnCk7%%%VnD5_Q~~VnDZ.%%%VnD~VR%%VnEI%%%% !VnEmMQ~~VnF7v%%%VnF\DR%%VnG&m%%%VnGK;Q~~VnGod%%%VnH:2Q~~VnH^[%%%VnI))R%%VnIMR%%% !VnIqzQ~~VnJ_Q~~VnLc.%%%VnM-VQ~~VnMR%%%% !VnMvMR%%VnN@v%%%VnNeDR%%VnO/m%%%VnOT;Q~~VnOxd%%%VnPC2R%%VnPg[%%%VnQ2)R%%VnQVR%%% !VnQzzQ~~VnREI%%%VnRiqR%%VnS4@%%%VnSXhR%%VnS}7%%%VnTG_Q~~VnTl.%%%VnU6VR%%VnU[%%%% !VnV%MR%%VnVIv%%%VnVnDQ~~VnW8m%%%VnW];R%%VnX'd%%%VnXL2R%%VnXp[%%%VnY;)Q~~VnY_R%%% !VnZ)zQ~~VnZNI%%%VnZrqR%%Vn[=@%%%Vn[ahQ~~Vn\,7%%%Vn\P_Q~~Vn\u.%%%Vn]?VR%%Vn]d%%%% !Vn^.MQ~~Vn^Rv%%%Vn^wDQ~~Vn_Am%%%Vn_f;R%%Vn`0d%%%Vn`U2Q~~Vn`y[%%%VnaD)Q~~VnahR%%% !Vnb2zR%%VnbWI%%%Vnb{qR%%VncF@%%%VncjhQ~~Vnd57%%%VndY_R%%Vnd~.%%%VneHVQ~~Vnem%%%% !Vnf7MQ~~Vnf[v%%%Vng&DR%%VngJm%%%Vngo;R%%Vnh9d%%%Vnh^2R%%Vni([%%%VniM)Q~~VniqR%%% !Vnj;zQ~~Vnj`I%%%Vnk*qQ~~VnkO@%%%VnkshR%%Vnl>7%%%Vnlb_R%%Vnm-.%%%VnmQVR%%Vnmv%%%% !Vnn@MR%%Vnndv%%%Vno/DQ~~VnoSm%%%Vnox;Q~~VnpBd%%%Vnpg2Q~~Vnq1[%%%VnqV)R%%VnqzR%%% !VnrDzR%%VnriI%%%Vns3qR%%VnsX@%%%Vns|hQ~~VntG7%%%Vntk_Q~~Vnu6.%%%VnuZVQ~~Vnv%%%%% !VnvIMR%%Vnvmv%%%Vnw8DR%%Vnw\m%%%Vnx';R%%VnxKd%%%Vnxp2Q~~Vny:[%%%Vny_)Q~~Vnz)R%%% !VnzMzQ~~VnzrI%%%Vn{&m%%%Vp>K;R%%Vp>od%%%Vp?:2Q~~Vp?^[%%%Vp@))R%%Vp@MR%%% !Vp@qzR%%VpA_R%%VpCc.%%%VpD-VQ~~VpDR%%%% !VpDvMR%%VpE@v%%%VpEeDR%%VpF/m%%%VpFT;Q~~VpFxd%%%VpGC2R%%VpGg[%%%VpH2)R%%VpHVR%%% !VpHzzQ~~VpIEI%%%VpIiqR%%VpJ4@%%%VpJXhR%%VpJ}7%%%VpKG_Q~~VpKl.%%%VpL6VR%%VpL[%%%% !VpM%MR%%VpMIv%%%VpMnDQ~~VpN8m%%%VpN];R%%VpO'd%%%VpOL2R%%VpOp[%%%VpP;)Q~~VpP_R%%% !VpQ)zQ~~VpQNI%%%VpQrqR%%VpR=@%%%VpRahQ~~VpS,7%%%VpSP_Q~~VpSu.%%%VpT?VR%%VpTd%%%% !VpU.MQ~~VpURv%%%VpUwDQ~~VpVAm%%%VpVf;R%%VpW0d%%%VpWU2Q~~VpWy[%%%VpXD)Q~~VpXhR%%% !VpY2zR%%VpYWI%%%VpY{qR%%VpZF@%%%VpZjhQ~~Vp[57%%%Vp[Y_R%%Vp[~.%%%Vp\HVR%%Vp\m%%%% !Vp]7MQ~~Vp][v%%%Vp^&DR%%Vp^Jm%%%Vp^o;R%%Vp_9d%%%Vp_^2Q~~Vp`([%%%Vp`M)R%%Vp`qR%%% !Vpa;zR%%Vpa`I%%%Vpb*qQ~~VpbO@%%%VpbshR%%Vpc>7%%%Vpcb_R%%Vpd-.%%%VpdQVQ~~Vpdv%%%% !Vpe@MR%%Vpedv%%%Vpf/DQ~~VpfSm%%%Vpfx;Q~~VpgBd%%%Vpgg2Q~~Vph1[%%%VphV)R%%VphzR%%% !VpiDzR%%VpiiI%%%Vpj3qR%%VpjX@%%%Vpj|hQ~~VpkG7%%%Vpkk_Q~~Vpl6.%%%VplZVQ~~Vpm%%%%% !VpmIMR%%Vpmmv%%%Vpn8DR%%Vpn\m%%%Vpo';R%%VpoKd%%%Vpop2Q~~Vpp:[%%%Vpp_)Q~~Vpq)R%%% !VpqMzQ~~VpqrI%%%Vpr_R%%Vr:c.%%%Vr;-VQ~~Vr;R%%%% !Vr;vMR%%Vr<@v%%%VrC2R%%Vr>g[%%%Vr?2)Q~~Vr?VR%%% !Vr?zzQ~~Vr@EI%%%Vr@iqR%%VrA4@%%%VrAXhQ~~VrA}7%%%VrBG_R%%VrBl.%%%VrC6VR%%VrC[%%%% !VrD%MQ~~VrDIv%%%VrDnDR%%VrE8m%%%VrE];R%%VrF'd%%%VrFL2R%%VrFp[%%%VrG;)Q~~VrG_R%%% !VrH)zQ~~VrHNI%%%VrHrqR%%VrI=@%%%VrIahQ~~VrJ,7%%%VrJP_Q~~VrJu.%%%VrK?VR%%VrKd%%%% !VrL.MQ~~VrLRv%%%VrLwDQ~~VrMAm%%%VrMf;R%%VrN0d%%%VrNU2Q~~VrNy[%%%VrOD)Q~~VrOhR%%% !VrP2zR%%VrPWI%%%VrP{qR%%VrQF@%%%VrQjhQ~~VrR57%%%VrRY_R%%VrR~.%%%VrSHVR%%VrSm%%%% !VrT7MQ~~VrT[v%%%VrU&DR%%VrUJm%%%VrUo;R%%VrV9d%%%VrV^2Q~~VrW([%%%VrWM)R%%VrWqR%%% !VrX;zR%%VrX`I%%%VrY*qQ~~VrYO@%%%VrYshR%%VrZ>7%%%VrZb_R%%Vr[-.%%%Vr[QVQ~~Vr[v%%%% !Vr\@MQ~~Vr\dv%%%Vr]/DR%%Vr]Sm%%%Vr]x;Q~~Vr^Bd%%%Vr^g2Q~~Vr_1[%%%Vr_V)R%%Vr_zR%%% !Vr`DzQ~~Vr`iI%%%Vra3qQ~~VraX@%%%Vra|hR%%VrbG7%%%Vrbk_Q~~Vrc6.%%%VrcZVQ~~Vrd%%%%% !VrdIMR%%Vrdmv%%%Vre8DR%%Vre\m%%%Vrf';R%%VrfKd%%%Vrfp2Q~~Vrg:[%%%Vrg_)Q~~Vrh)R%%% !VrhMzQ~~VrhrI%%%Vri_R%%Vt1c.%%%Vt2-VR%%Vt2R%%%% !Vt2vMQ~~Vt3@v%%%Vt3eDR%%Vt4/m%%%Vt4T;R%%Vt4xd%%%Vt5C2R%%Vt5g[%%%Vt62)Q~~Vt6VR%%% !Vt6zzQ~~Vt7EI%%%Vt7iqR%%Vt84@%%%Vt8XhQ~~Vt8}7%%%Vt9G_R%%Vt9l.%%%Vt:6VR%%Vt:[%%%% !Vt;%MQ~~Vt;Iv%%%Vt;nDR%%Vt<8m%%%Vt<];R%%Vt='d%%%Vt=L2Q~~Vt=p[%%%Vt>;)R%%Vt>_R%%% !Vt?)zQ~~Vt?NI%%%Vt?rqQ~~Vt@=@%%%Vt@ahR%%VtA,7%%%VtAP_Q~~VtAu.%%%VtB?VR%%VtBd%%%% !VtC.MR%%VtCRv%%%VtCwDQ~~VtDAm%%%VtDf;R%%VtE0d%%%VtEU2R%%VtEy[%%%VtFD)Q~~VtFhR%%% !VtG2zR%%VtGWI%%%VtG{qQ~~VtHF@%%%VtHjhQ~~VtI57%%%VtIY_R%%VtI~.%%%VtJHVR%%VtJm%%%% !VtK7MQ~~VtK[v%%%VtL&DR%%VtLJm%%%VtLo;R%%VtM9d%%%VtM^2Q~~VtN([%%%VtNM)R%%VtNqR%%% !VtO;zR%%VtO`I%%%VtP*qQ~~VtPO@%%%VtPshR%%VtQ>7%%%VtQb_R%%VtR-.%%%VtRQVQ~~VtRv%%%% !VtS@MQ~~VtSdv%%%VtT/DR%%VtTSm%%%VtTx;Q~~VtUBd%%%VtUg2Q~~VtV1[%%%VtVV)R%%VtVzR%%% !VtWDzQ~~VtWiI%%%VtX3qQ~~VtXX@%%%VtX|hR%%VtYG7%%%VtYk_Q~~VtZ6.%%%VtZZVQ~~Vt[%%%%% !Vt[IMR%%Vt[mv%%%Vt\8DR%%Vt\\m%%%Vt]';Q~~Vt]Kd%%%Vt]p2R%%Vt^:[%%%Vt^_)R%%Vt_)R%%% !Vt_MzQ~~Vt_rI%%%Vt`_R%%Vv(c.%%%Vv)-VQ~~Vv)R%%%% !Vv)vMR%%Vv*@v%%%Vv*eDR%%Vv+/m%%%Vv+T;Q~~Vv+xd%%%Vv,C2R%%Vv,g[%%%Vv-2)Q~~Vv-VR%%% !Vv-zzR%%Vv.EI%%%Vv.iqR%%Vv/4@%%%Vv/XhQ~~Vv/}7%%%Vv0G_Q~~Vv0l.%%%Vv16VR%%Vv1[%%%% !Vv2%MR%%Vv2Iv%%%Vv2nDQ~~Vv38m%%%Vv3];R%%Vv4'd%%%Vv4L2R%%Vv4p[%%%Vv5;)R%%Vv5_R%%% !Vv6)zQ~~Vv6NI%%%Vv6rqQ~~Vv7=@%%%Vv7ahR%%Vv8,7%%%Vv8P_Q~~Vv8u.%%%Vv9?VR%%Vv9d%%%% !Vv:.MR%%Vv:Rv%%%Vv:wDQ~~Vv;Am%%%Vv;f;R%%Vv<0d%%%Vv2zR%%Vv>WI%%%Vv>{qR%%Vv?F@%%%Vv?jhQ~~Vv@57%%%Vv@Y_R%%Vv@~.%%%VvAHVQ~~VvAm%%%% !VvB7MQ~~VvB[v%%%VvC&DR%%VvCJm%%%VvCo;Q~~VvD9d%%%VvD^2R%%VvE([%%%VvEM)R%%VvEqR%%% !VvF;zR%%VvF`I%%%VvG*qQ~~VvGO@%%%VvGshR%%VvH>7%%%VvHb_R%%VvI-.%%%VvIQVQ~~VvIv%%%% !VvJ@MQ~~VvJdv%%%VvK/DR%%VvKSm%%%VvKx;Q~~VvLBd%%%VvLg2Q~~VvM1[%%%VvMV)R%%VvMzR%%% !VvNDzQ~~VvNiI%%%VvO3qQ~~VvOX@%%%VvO|hR%%VvPG7%%%VvPk_R%%VvQ6.%%%VvQZVQ~~VvR%%%%% !VvRIMR%%VvRmv%%%VvS8DR%%VvS\m%%%VvT';Q~~VvTKd%%%VvTp2R%%VvU:[%%%VvU_)R%%VvV)R%%% !VvVMzQ~~VvVrI%%%VvW_Q~~Vvyc.%%%Vvz-VQ~~VvzR%%%% #% [ 2551] o.energy !V`OhR%%%V`P2zR%%V`PWI%%%V`P{qR%%V`QF@%%%V`QjhQ~~V`R57%%%V`RY_R%%V`R~.%%%V`SHVR%% !V`Sm%%%%V`T7MQ~~V`T[v%%%V`U&DR%%V`UJm%%%V`Uo;R%%V`V9d%%%V`V^2Q~~V`W([%%%V`WM)R%% !V`WqR%%%V`X;zR%%V`X`I%%%V`Y*qQ~~V`YO@%%%V`YshR%%V`Z>7%%%V`Zb_R%%V`[-.%%%V`[QVQ~~ !V`[v%%%%V`\@MQ~~V`\dv%%%V`]/DR%%V`]Sm%%%V`]x;Q~~V`^Bd%%%V`^g2Q~~V`_1[%%%V`_V)R%% !V`_zR%%%V``DzQ~~V``iI%%%V`a3qQ~~V`aX@%%%V`a|hR%%V`bG7%%%V`bk_Q~~V`c6.%%%V`cZVQ~~ !V`d%%%%%V`dIMR%%V`dmv%%%V`e8DR%%V`e\m%%%V`f';R%%V`fKd%%%V`fp2Q~~V`g:[%%%V`g_)Q~~ !V`h)R%%%V`hMzQ~~V`hrI%%%V`i_R%%Vb1c.%%%Vb2-VR%% !Vb2R%%%%Vb2vMQ~~Vb3@v%%%Vb3eDR%%Vb4/m%%%Vb4T;R%%Vb4xd%%%Vb5C2R%%Vb5g[%%%Vb62)Q~~ !Vb6VR%%%Vb6zzQ~~Vb7EI%%%Vb7iqR%%Vb84@%%%Vb8XhQ~~Vb8}7%%%Vb9G_R%%Vb9l.%%%Vb:6VR%% !Vb:[%%%%Vb;%MQ~~Vb;Iv%%%Vb;nDR%%Vb<8m%%%Vb<];R%%Vb='d%%%Vb=L2Q~~Vb=p[%%%Vb>;)R%% !Vb>_R%%%Vb?)zQ~~Vb?NI%%%Vb?rqQ~~Vb@=@%%%Vb@ahR%%VbA,7%%%VbAP_Q~~VbAu.%%%VbB?VR%% !VbBd%%%%VbC.MR%%VbCRv%%%VbCwDQ~~VbDAm%%%VbDf;R%%VbE0d%%%VbEU2Q~~VbEy[%%%VbFD)Q~~ !VbFhR%%%VbG2zR%%VbGWI%%%VbG{qR%%VbHF@%%%VbHjhQ~~VbI57%%%VbIY_R%%VbI~.%%%VbJHVR%% !VbJm%%%%VbK7MQ~~VbK[v%%%VbL&DR%%VbLJm%%%VbLo;R%%VbM9d%%%VbM^2Q~~VbN([%%%VbNM)R%% !VbNqR%%%VbO;zR%%VbO`I%%%VbP*qQ~~VbPO@%%%VbPshR%%VbQ>7%%%VbQb_R%%VbR-.%%%VbRQVQ~~ !VbRv%%%%VbS@MQ~~VbSdv%%%VbT/DR%%VbTSm%%%VbTx;Q~~VbUBd%%%VbUg2Q~~VbV1[%%%VbVV)R%% !VbVzR%%%VbWDzQ~~VbWiI%%%VbX3qQ~~VbXX@%%%VbX|hR%%VbYG7%%%VbYk_Q~~VbZ6.%%%VbZZVQ~~ !Vb[%%%%%Vb[IMR%%Vb[mv%%%Vb\8DR%%Vb\\m%%%Vb]';Q~~Vb]Kd%%%Vb]p2R%%Vb^:[%%%Vb^_)R%% !Vb_)R%%%Vb_MzQ~~Vb_rI%%%Vb`_R%%Vd(c.%%%Vd)-VQ~~ !Vd)R%%%%Vd)vMR%%Vd*@v%%%Vd*eDR%%Vd+/m%%%Vd+T;R%%Vd+xd%%%Vd,C2R%%Vd,g[%%%Vd-2)Q~~ !Vd-VR%%%Vd-zzR%%Vd.EI%%%Vd.iqR%%Vd/4@%%%Vd/XhQ~~Vd/}7%%%Vd0G_Q~~Vd0l.%%%Vd16VR%% !Vd1[%%%%Vd2%MQ~~Vd2Iv%%%Vd2nDQ~~Vd38m%%%Vd3];R%%Vd4'd%%%Vd4L2R%%Vd4p[%%%Vd5;)R%% !Vd5_R%%%Vd6)zQ~~Vd6NI%%%Vd6rqQ~~Vd7=@%%%Vd7ahR%%Vd8,7%%%Vd8P_Q~~Vd8u.%%%Vd9?VQ~~ !Vd9d%%%%Vd:.MR%%Vd:Rv%%%Vd:wDQ~~Vd;Am%%%Vd;f;R%%Vd<0d%%%Vd2zR%%Vd>WI%%%Vd>{qR%%Vd?F@%%%Vd?jhQ~~Vd@57%%%Vd@Y_R%%Vd@~.%%%VdAHVQ~~ !VdAm%%%%VdB7MQ~~VdB[v%%%VdC&DR%%VdCJm%%%VdCo;Q~~VdD9d%%%VdD^2R%%VdE([%%%VdEM)R%% !VdEqR%%%VdF;zR%%VdF`I%%%VdG*qQ~~VdGO@%%%VdGshR%%VdH>7%%%VdHb_R%%VdI-.%%%VdIQVQ~~ !VdIv%%%%VdJ@MQ~~VdJdv%%%VdK/DR%%VdKSm%%%VdKx;Q~~VdLBd%%%VdLg2Q~~VdM1[%%%VdMV)R%% !VdMzR%%%VdNDzQ~~VdNiI%%%VdO3qQ~~VdOX@%%%VdO|hR%%VdPG7%%%VdPk_Q~~VdQ6.%%%VdQZVQ~~ !VdR%%%%%VdRIMR%%VdRmv%%%VdS8DR%%VdS\m%%%VdT';Q~~VdTKd%%%VdTp2R%%VdU:[%%%VdU_)R%% !VdV)R%%%VdVMzQ~~VdVrI%%%VdW_Q~~Vdyc.%%%Vdz-VQ~~ !VdzR%%%%VdzvMR%%Vd{@v%%%Vd{eDR%%Vd|/m%%%Vd|T;R%%Vd|xd%%%Vd}C2Q~~Vd}g[%%%Vd~2)Q~~ !Vd~VR%%%Vd~zzQ~~Vf%EI%%%Vf%iqR%%Vf&4@%%%Vf&XhR%%Vf&}7%%%Vf'G_Q~~Vf'l.%%%Vf(6VQ~~ !Vf([%%%%Vf)%MR%%Vf)Iv%%%Vf)nDQ~~Vf*8m%%%Vf*];R%%Vf+'d%%%Vf+L2R%%Vf+p[%%%Vf,;)R%% !Vf,_R%%%Vf-)zQ~~Vf-NI%%%Vf-rqR%%Vf.=@%%%Vf.ahR%%Vf/,7%%%Vf/P_Q~~Vf/u.%%%Vf0?VR%% !Vf0d%%%%Vf1.MR%%Vf1Rv%%%Vf1wDQ~~Vf2Am%%%Vf2f;Q~~Vf30d%%%Vf3U2R%%Vf3y[%%%Vf4D)R%% !Vf4hR%%%Vf52zR%%Vf5WI%%%Vf5{qR%%Vf6F@%%%Vf6jhQ~~Vf757%%%Vf7Y_R%%Vf7~.%%%Vf8HVQ~~ !Vf8m%%%%Vf97MQ~~Vf9[v%%%Vf:&DR%%Vf:Jm%%%Vf:o;Q~~Vf;9d%%%Vf;^2R%%Vf<([%%%Vf*qR%%Vf>O@%%%Vf>shR%%Vf?>7%%%Vf?b_Q~~Vf@-.%%%Vf@QVR%% !Vf@v%%%%VfA@MQ~~VfAdv%%%VfB/DQ~~VfBSm%%%VfBx;R%%VfCBd%%%VfCg2Q~~VfD1[%%%VfDV)Q~~ !VfDzR%%%VfEDzQ~~VfEiI%%%VfF3qQ~~VfFX@%%%VfF|hR%%VfGG7%%%VfGk_Q~~VfH6.%%%VfHZVQ~~ !VfI%%%%%VfIIMR%%VfImv%%%VfJ8DR%%VfJ\m%%%VfK';Q~~VfKKd%%%VfKp2R%%VfL:[%%%VfL_)R%% !VfM)R%%%VfMMzQ~~VfMrI%%%VfN_Q~~Vfpc.%%%Vfq-VQ~~ !VfqR%%%%VfqvMR%%Vfr@v%%%VfreDR%%Vfs/m%%%VfsT;R%%Vfsxd%%%VftC2Q~~Vftg[%%%Vfu2)Q~~ !VfuVR%%%VfuzzQ~~VfvEI%%%VfviqR%%Vfw4@%%%VfwXhR%%Vfw}7%%%VfxG_R%%Vfxl.%%%Vfy6VQ~~ !Vfy[%%%%Vfz%MQ~~VfzIv%%%VfznDQ~~Vf{8m%%%Vf{];R%%Vf|'d%%%Vf|L2R%%Vf|p[%%%Vf};)R%% !Vf}_R%%%Vf~)zR%%Vf~NI%%%Vf~rqQ~~Vh%=@%%%Vh%ahR%%Vh&,7%%%Vh&P_R%%Vh&u.%%%Vh'?VR%% !Vh'd%%%%Vh(.MR%%Vh(Rv%%%Vh(wDR%%Vh)Am%%%Vh)f;R%%Vh*0d%%%Vh*U2R%%Vh*y[%%%Vh+D)Q~~ !Vh+hR%%%Vh,2zR%%Vh,WI%%%Vh,{qR%%Vh-F@%%%Vh-jhR%%Vh.57%%%Vh.Y_R%%Vh.~.%%%Vh/HVQ~~ !Vh/m%%%%Vh07MR%%Vh0[v%%%Vh1&DR%%Vh1Jm%%%Vh1o;Q~~Vh29d%%%Vh2^2Q~~Vh3([%%%Vh3M)R%% !Vh3qR%%%Vh4;zQ~~Vh4`I%%%Vh5*qR%%Vh5O@%%%Vh5shR%%Vh6>7%%%Vh6b_Q~~Vh7-.%%%Vh7QVR%% !Vh7v%%%%Vh8@MQ~~Vh8dv%%%Vh9/DQ~~Vh9Sm%%%Vh9x;R%%Vh:Bd%%%Vh:g2Q~~Vh;1[%%%Vh;V)R%% !Vh;zR%%%VhG7%%%Vh>k_R%%Vh?6.%%%Vh?ZVQ~~ !Vh@%%%%%Vh@IMR%%Vh@mv%%%VhA8DQ~~VhA\m%%%VhB';Q~~VhBKd%%%VhBp2R%%VhC:[%%%VhC_)Q~~ !VhD)R%%%VhDMzR%%VhDrI%%%VhE_Q~~Vhgc.%%%Vhh-VQ~~ !VhhR%%%%VhhvMR%%Vhi@v%%%VhieDR%%Vhj/m%%%VhjT;R%%Vhjxd%%%VhkC2Q~~Vhkg[%%%Vhl2)Q~~ !VhlVR%%%VhlzzQ~~VhmEI%%%VhmiqR%%Vhn4@%%%VhnXhR%%Vhn}7%%%VhoG_R%%Vhol.%%%Vhp6VQ~~ !Vhp[%%%%Vhq%MQ~~VhqIv%%%VhqnDQ~~Vhr8m%%%Vhr];R%%Vhs'd%%%VhsL2R%%Vhsp[%%%Vht;)R%% !Vht_R%%%Vhu)zR%%VhuNI%%%VhurqQ~~Vhv=@%%%VhvahQ~~Vhw,7%%%VhwP_Q~~Vhwu.%%%Vhx?VR%% !Vhxd%%%%Vhy.MR%%VhyRv%%%VhywDR%%VhzAm%%%Vhzf;Q~~Vh{0d%%%Vh{U2Q~~Vh{y[%%%Vh|D)Q~~ !Vh|hR%%%Vh}2zR%%Vh}WI%%%Vh}{qR%%Vh~F@%%%Vh~jhR%%Vj%57%%%Vj%Y_Q~~Vj%~.%%%Vj&HVR%% !Vj&m%%%%Vj'7MR%%Vj'[v%%%Vj(&DQ~~Vj(Jm%%%Vj(o;R%%Vj)9d%%%Vj)^2Q~~Vj*([%%%Vj*M)R%% !Vj*qR%%%Vj+;zR%%Vj+`I%%%Vj,*qR%%Vj,O@%%%Vj,shR%%Vj->7%%%Vj-b_R%%Vj.-.%%%Vj.QVQ~~ !Vj.v%%%%Vj/@MQ~~Vj/dv%%%Vj0/DR%%Vj0Sm%%%Vj0x;R%%Vj1Bd%%%Vj1g2Q~~Vj21[%%%Vj2V)R%% !Vj2zR%%%Vj3DzR%%Vj3iI%%%Vj43qR%%Vj4X@%%%Vj4|hQ~~Vj5G7%%%Vj5k_R%%Vj66.%%%Vj6ZVQ~~ !Vj7%%%%%Vj7IMR%%Vj7mv%%%Vj88DQ~~Vj8\m%%%Vj9';Q~~Vj9Kd%%%Vj9p2R%%Vj::[%%%Vj:_)Q~~ !Vj;)R%%%Vj;MzQ~~Vj;rI%%%Vj<?.%%%Vj>cVR%% !Vj?.%%%%Vj?RMQ~~Vj?vv%%%Vj@ADR%%Vj@em%%%VjA0;R%%VjATd%%%VjAy2Q~~VjBC[%%%VjBh)R%% !VjC2R%%%VjCVzQ~~VjC{I%%%VjDEqQ~~VjDj@%%%VjE4hQ~~VjEY7%%%VjE}_Q~~VjFH.%%%VjFlVR%% !VjG7%%%%VjG[MQ~~VjH%v%%%VjHJDQ~~VjHnm%%%VjI9;R%%VjI]d%%%VjJ(2Q~~VjJL[%%%VjJq)Q~~ !VjK;R%%%VjK_zR%%VjL*I%%%VjLNqR%%VjLs@%%%VjM=hQ~~VjMb7%%%VjN,_R%%VjNQ.%%%VjNuVR%% !VjO@%%%%VjOdMQ~~VjP.v%%%VjPSDR%%VjPwm%%%VjQB;R%%VjQfd%%%VjR12Q~~VjRU[%%%VjRz)R%% !VjSDR%%%VjShzR%%VjT3I%%%VjTWqQ~~VjT|@%%%VjUFhR%%VjUk7%%%VjV5_R%%VjVZ.%%%VjV~VQ~~ !VjWI%%%%VjWmMQ~~VjX7v%%%VjX\DR%%VjY&m%%%VjYK;Q~~VjYod%%%VjZ:2Q~~VjZ^[%%%Vj[))R%% !Vj[MR%%%Vj[qzQ~~Vj\_Q~~Vj^c.%%%Vj_-VQ~~ !Vj_R%%%%Vj_vMR%%Vj`@v%%%Vj`eDR%%Vja/m%%%VjaT;Q~~Vjaxd%%%VjbC2R%%Vjbg[%%%Vjc2)R%% !VjcVR%%%VjczzQ~~VjdEI%%%VjdiqR%%Vje4@%%%VjeXhR%%Vje}7%%%VjfG_R%%Vjfl.%%%Vjg6VQ~~ !Vjg[%%%%Vjh%MQ~~VjhIv%%%VjhnDQ~~Vji8m%%%Vji];R%%Vjj'd%%%VjjL2R%%Vjjp[%%%Vjk;)R%% !Vjk_R%%%Vjl)zR%%VjlNI%%%VjlrqQ~~Vjm=@%%%VjmahQ~~Vjn,7%%%VjnP_Q~~Vjnu.%%%Vjo?VR%% !Vjod%%%%Vjp.MR%%VjpRv%%%VjpwDR%%VjqAm%%%Vjqf;Q~~Vjr0d%%%VjrU2Q~~Vjry[%%%VjsD)Q~~ !VjshR%%%Vjt2zR%%VjtWI%%%Vjt{qR%%VjuF@%%%VjujhR%%Vjv57%%%VjvY_Q~~Vjv~.%%%VjwHVQ~~ !Vjwm%%%%Vjx7MQ~~Vjx[v%%%Vjy&DR%%VjyJm%%%Vjyo;R%%Vjz9d%%%Vjz^2R%%Vj{([%%%Vj{M)Q~~ !Vj{qR%%%Vj|;zQ~~Vj|`I%%%Vj}*qQ~~Vj}O@%%%Vj}shR%%Vj~>7%%%Vj~b_R%%Vl%-.%%%Vl%QVR%% !Vl%v%%%%Vl&@MR%%Vl&dv%%%Vl'/DR%%Vl'Sm%%%Vl'x;R%%Vl(Bd%%%Vl(g2R%%Vl)1[%%%Vl)V)R%% !Vl)zR%%%Vl*DzR%%Vl*iI%%%Vl+3qR%%Vl+X@%%%Vl+|hQ~~Vl,G7%%%Vl,k_R%%Vl-6.%%%Vl-ZVR%% !Vl.%%%%%Vl.IMQ~~Vl.mv%%%Vl/8DQ~~Vl/\m%%%Vl0';R%%Vl0Kd%%%Vl0p2R%%Vl1:[%%%Vl1_)Q~~ !Vl2)R%%%Vl2MzR%%Vl2rI%%%Vl37%%%%Vl>[MR%%Vl?%v%%%Vl?JDQ~~Vl?nm%%%Vl@9;R%%Vl@]d%%%VlA(2R%%VlAL[%%%VlAq)Q~~ !VlB;R%%%VlB_zR%%VlC*I%%%VlCNqQ~~VlCs@%%%VlD=hQ~~VlDb7%%%VlE,_R%%VlEQ.%%%VlEuVR%% !VlF@%%%%VlFdMQ~~VlG.v%%%VlGSDR%%VlGwm%%%VlHB;R%%VlHfd%%%VlI12Q~~VlIU[%%%VlIz)R%% !VlJDR%%%VlJhzR%%VlK3I%%%VlKWqQ~~VlK|@%%%VlLFhR%%VlLk7%%%VlM5_R%%VlMZ.%%%VlM~VQ~~ !VlNI%%%%VlNmMQ~~VlO7v%%%VlO\DR%%VlP&m%%%VlPK;Q~~VlPod%%%VlQ:2Q~~VlQ^[%%%VlR))R%% !VlRMR%%%VlRqzQ~~VlS_Q~~VlUc.%%%VlV-VQ~~ !VlVR%%%%VlVvMR%%VlW@v%%%VlWeDR%%VlX/m%%%VlXT;Q~~VlXxd%%%VlYC2R%%VlYg[%%%VlZ2)R%% !VlZVR%%%VlZzzQ~~Vl[EI%%%Vl[iqR%%Vl\4@%%%Vl\XhR%%Vl\}7%%%Vl]G_Q~~Vl]l.%%%Vl^6VR%% !Vl^[%%%%Vl_%MR%%Vl_Iv%%%Vl_nDQ~~Vl`8m%%%Vl`];R%%Vla'd%%%VlaL2R%%Vlap[%%%Vlb;)Q~~ !Vlb_R%%%Vlc)zQ~~VlcNI%%%VlcrqR%%Vld=@%%%VldahQ~~Vle,7%%%VleP_Q~~Vleu.%%%Vlf?VR%% !Vlfd%%%%Vlg.MR%%VlgRv%%%VlgwDR%%VlhAm%%%Vlhf;Q~~Vli0d%%%VliU2Q~~Vliy[%%%VljD)Q~~ !VljhR%%%Vlk2zR%%VlkWI%%%Vlk{qR%%VllF@%%%VlljhR%%Vlm57%%%VlmY_Q~~Vlm~.%%%VlnHVQ~~ !Vlnm%%%%Vlo7MQ~~Vlo[v%%%Vlp&DR%%VlpJm%%%Vlpo;R%%Vlq9d%%%Vlq^2R%%Vlr([%%%VlrM)Q~~ !VlrqR%%%Vls;zQ~~Vls`I%%%Vlt*qQ~~VltO@%%%VltshR%%Vlu>7%%%Vlub_R%%Vlv-.%%%VlvQVR%% !Vlvv%%%%Vlw@MR%%Vlwdv%%%Vlx/DQ~~VlxSm%%%Vlxx;Q~~VlyBd%%%Vlyg2Q~~Vlz1[%%%VlzV)R%% !VlzzR%%%Vl{DzR%%Vl{iI%%%Vl|3qR%%Vl|X@%%%Vl||hQ~~Vl}G7%%%Vl}k_Q~~Vl~6.%%%Vl~ZVQ~~ !Vn%%%%%%Vn%IMR%%Vn%mv%%%Vn&8DQ~~Vn&\m%%%Vn'';R%%Vn'Kd%%%Vn'p2R%%Vn(:[%%%Vn(_)R%% !Vn))R%%%Vn)MzR%%Vn)rI%%%Vn*.v%%%Vn>SDR%%Vn>wm%%%Vn?B;Q~~Vn?fd%%%Vn@12R%%Vn@U[%%%Vn@z)R%% !VnADR%%%VnAhzQ~~VnB3I%%%VnBWqR%%VnB|@%%%VnCFhR%%VnCk7%%%VnD5_Q~~VnDZ.%%%VnD~VR%% !VnEI%%%%VnEmMQ~~VnF7v%%%VnF\DR%%VnG&m%%%VnGK;Q~~VnGod%%%VnH:2Q~~VnH^[%%%VnI))R%% !VnIMR%%%VnIqzQ~~VnJ_Q~~VnLc.%%%VnM-VQ~~ !VnMR%%%%VnMvMR%%VnN@v%%%VnNeDR%%VnO/m%%%VnOT;Q~~VnOxd%%%VnPC2R%%VnPg[%%%VnQ2)R%% !VnQVR%%%VnQzzQ~~VnREI%%%VnRiqR%%VnS4@%%%VnSXhR%%VnS}7%%%VnTG_Q~~VnTl.%%%VnU6VR%% !VnU[%%%%VnV%MR%%VnVIv%%%VnVnDQ~~VnW8m%%%VnW];R%%VnX'd%%%VnXL2R%%VnXp[%%%VnY;)Q~~ !VnY_R%%%VnZ)zQ~~VnZNI%%%VnZrqR%%Vn[=@%%%Vn[ahQ~~Vn\,7%%%Vn\P_Q~~Vn\u.%%%Vn]?VR%% !Vn]d%%%%Vn^.MQ~~Vn^Rv%%%Vn^wDQ~~Vn_Am%%%Vn_f;R%%Vn`0d%%%Vn`U2Q~~Vn`y[%%%VnaD)Q~~ !VnahR%%%Vnb2zR%%VnbWI%%%Vnb{qR%%VncF@%%%VncjhQ~~Vnd57%%%VndY_R%%Vnd~.%%%VneHVQ~~ !Vnem%%%%Vnf7MQ~~Vnf[v%%%Vng&DR%%VngJm%%%Vngo;R%%Vnh9d%%%Vnh^2R%%Vni([%%%VniM)Q~~ !VniqR%%%Vnj;zQ~~Vnj`I%%%Vnk*qQ~~VnkO@%%%VnkshR%%Vnl>7%%%Vnlb_R%%Vnm-.%%%VnmQVR%% !Vnmv%%%%Vnn@MR%%Vnndv%%%Vno/DQ~~VnoSm%%%Vnox;Q~~VnpBd%%%Vnpg2Q~~Vnq1[%%%VnqV)R%% !VnqzR%%%VnrDzR%%VnriI%%%Vns3qR%%VnsX@%%%Vns|hQ~~VntG7%%%Vntk_Q~~Vnu6.%%%VnuZVQ~~ !Vnv%%%%%VnvIMR%%Vnvmv%%%Vnw8DR%%Vnw\m%%%Vnx';R%%VnxKd%%%Vnxp2Q~~Vny:[%%%Vny_)Q~~ !Vnz)R%%%VnzMzQ~~VnzrI%%%Vn{&m%%%Vp>K;R%%Vp>od%%%Vp?:2Q~~Vp?^[%%%Vp@))R%% !Vp@MR%%%Vp@qzR%%VpA_R%%VpCc.%%%VpD-VQ~~ !VpDR%%%%VpDvMR%%VpE@v%%%VpEeDR%%VpF/m%%%VpFT;Q~~VpFxd%%%VpGC2R%%VpGg[%%%VpH2)R%% !VpHVR%%%VpHzzQ~~VpIEI%%%VpIiqR%%VpJ4@%%%VpJXhR%%VpJ}7%%%VpKG_Q~~VpKl.%%%VpL6VR%% !VpL[%%%%VpM%MR%%VpMIv%%%VpMnDQ~~VpN8m%%%VpN];R%%VpO'd%%%VpOL2R%%VpOp[%%%VpP;)Q~~ !VpP_R%%%VpQ)zQ~~VpQNI%%%VpQrqR%%VpR=@%%%VpRahQ~~VpS,7%%%VpSP_Q~~VpSu.%%%VpT?VR%% !VpTd%%%%VpU.MQ~~VpURv%%%VpUwDQ~~VpVAm%%%VpVf;R%%VpW0d%%%VpWU2Q~~VpWy[%%%VpXD)Q~~ !VpXhR%%%VpY2zR%%VpYWI%%%VpY{qR%%VpZF@%%%VpZjhQ~~Vp[57%%%Vp[Y_R%%Vp[~.%%%Vp\HVR%% !Vp\m%%%%Vp]7MQ~~Vp][v%%%Vp^&DR%%Vp^Jm%%%Vp^o;R%%Vp_9d%%%Vp_^2Q~~Vp`([%%%Vp`M)R%% !Vp`qR%%%Vpa;zR%%Vpa`I%%%Vpb*qQ~~VpbO@%%%VpbshR%%Vpc>7%%%Vpcb_R%%Vpd-.%%%VpdQVQ~~ !Vpdv%%%%Vpe@MR%%Vpedv%%%Vpf/DQ~~VpfSm%%%Vpfx;Q~~VpgBd%%%Vpgg2Q~~Vph1[%%%VphV)R%% !VphzR%%%VpiDzR%%VpiiI%%%Vpj3qR%%VpjX@%%%Vpj|hQ~~VpkG7%%%Vpkk_Q~~Vpl6.%%%VplZVQ~~ !Vpm%%%%%VpmIMR%%Vpmmv%%%Vpn8DR%%Vpn\m%%%Vpo';R%%VpoKd%%%Vpop2Q~~Vpp:[%%%Vpp_)Q~~ !Vpq)R%%%VpqMzQ~~VpqrI%%%Vpr_R%%Vr:c.%%%Vr;-VQ~~ !Vr;R%%%%Vr;vMR%%Vr<@v%%%VrC2R%%Vr>g[%%%Vr?2)Q~~ !Vr?VR%%%Vr?zzQ~~Vr@EI%%%Vr@iqR%%VrA4@%%%VrAXhQ~~VrA}7%%%VrBG_R%%VrBl.%%%VrC6VR%% !VrC[%%%%VrD%MQ~~VrDIv%%%VrDnDR%%VrE8m%%%VrE];R%%VrF'd%%%VrFL2R%%VrFp[%%%VrG;)Q~~ !VrG_R%%%VrH)zQ~~VrHNI%%%VrHrqR%%VrI=@%%%VrIahQ~~VrJ,7%%%VrJP_Q~~VrJu.%%%VrK?VR%% !VrKd%%%%VrL.MQ~~VrLRv%%%VrLwDQ~~VrMAm%%%VrMf;R%%VrN0d%%%VrNU2Q~~VrNy[%%%VrOD)Q~~ !VrOhR%%%VrP2zR%%VrPWI%%%VrP{qR%%VrQF@%%%VrQjhQ~~VrR57%%%VrRY_R%%VrR~.%%%VrSHVR%% !VrSm%%%%VrT7MQ~~VrT[v%%%VrU&DR%%VrUJm%%%VrUo;R%%VrV9d%%%VrV^2Q~~VrW([%%%VrWM)R%% !VrWqR%%%VrX;zR%%VrX`I%%%VrY*qQ~~VrYO@%%%VrYshR%%VrZ>7%%%VrZb_R%%Vr[-.%%%Vr[QVQ~~ !Vr[v%%%%Vr\@MQ~~Vr\dv%%%Vr]/DR%%Vr]Sm%%%Vr]x;Q~~Vr^Bd%%%Vr^g2Q~~Vr_1[%%%Vr_V)R%% !Vr_zR%%%Vr`DzQ~~Vr`iI%%%Vra3qQ~~VraX@%%%Vra|hR%%VrbG7%%%Vrbk_Q~~Vrc6.%%%VrcZVQ~~ !Vrd%%%%%VrdIMR%%Vrdmv%%%Vre8DR%%Vre\m%%%Vrf';R%%VrfKd%%%Vrfp2Q~~Vrg:[%%%Vrg_)Q~~ !Vrh)R%%%VrhMzQ~~VrhrI%%%Vri_R%%Vt1c.%%%Vt2-VR%% !Vt2R%%%%Vt2vMQ~~Vt3@v%%%Vt3eDR%%Vt4/m%%%Vt4T;R%%Vt4xd%%%Vt5C2R%%Vt5g[%%%Vt62)Q~~ !Vt6VR%%%Vt6zzQ~~Vt7EI%%%Vt7iqR%%Vt84@%%%Vt8XhQ~~Vt8}7%%%Vt9G_R%%Vt9l.%%%Vt:6VR%% !Vt:[%%%%Vt;%MQ~~Vt;Iv%%%Vt;nDR%%Vt<8m%%%Vt<];R%%Vt='d%%%Vt=L2Q~~Vt=p[%%%Vt>;)R%% !Vt>_R%%%Vt?)zQ~~Vt?NI%%%Vt?rqQ~~Vt@=@%%%Vt@ahR%%VtA,7%%%VtAP_Q~~VtAu.%%%VtB?VR%% !VtBd%%%%VtC.MR%%VtCRv%%%VtCwDQ~~VtDAm%%%VtDf;R%%VtE0d%%%VtEU2R%%VtEy[%%%VtFD)Q~~ !VtFhR%%%VtG2zR%%VtGWI%%%VtG{qQ~~VtHF@%%%VtHjhQ~~VtI57%%%VtIY_R%%VtI~.%%%VtJHVR%% !VtJm%%%%VtK7MQ~~VtK[v%%%VtL&DR%%VtLJm%%%VtLo;R%%VtM9d%%%VtM^2Q~~VtN([%%%VtNM)R%% !VtNqR%%%VtO;zR%%VtO`I%%%VtP*qQ~~VtPO@%%%VtPshR%%VtQ>7%%%VtQb_R%%VtR-.%%%VtRQVQ~~ !VtRv%%%%VtS@MQ~~VtSdv%%%VtT/DR%%VtTSm%%%VtTx;Q~~VtUBd%%%VtUg2Q~~VtV1[%%%VtVV)R%% !VtVzR%%%VtWDzQ~~VtWiI%%%VtX3qQ~~VtXX@%%%VtX|hR%%VtYG7%%%VtYk_Q~~VtZ6.%%%VtZZVQ~~ !Vt[%%%%%Vt[IMR%%Vt[mv%%%Vt\8DR%%Vt\\m%%%Vt]';Q~~Vt]Kd%%%Vt]p2R%%Vt^:[%%%Vt^_)R%% !Vt_)R%%%Vt_MzQ~~Vt_rI%%%Vt`_R%%Vv(c.%%%Vv)-VQ~~ !Vv)R%%%%Vv)vMR%%Vv*@v%%%Vv*eDR%%Vv+/m%%%Vv+T;Q~~Vv+xd%%%Vv,C2R%%Vv,g[%%%Vv-2)Q~~ !Vv-VR%%%Vv-zzR%%Vv.EI%%%Vv.iqR%%Vv/4@%%%Vv/XhQ~~Vv/}7%%%Vv0G_Q~~Vv0l.%%%Vv16VR%% !Vv1[%%%%Vv2%MR%%Vv2Iv%%%Vv2nDQ~~Vv38m%%%Vv3];R%%Vv4'd%%%Vv4L2R%%Vv4p[%%%Vv5;)R%% !Vv5_R%%%Vv6)zQ~~Vv6NI%%%Vv6rqQ~~Vv7=@%%%Vv7ahR%%Vv8,7%%%Vv8P_Q~~Vv8u.%%%Vv9?VR%% !Vv9d%%%%Vv:.MR%%Vv:Rv%%%Vv:wDQ~~Vv;Am%%%Vv;f;R%%Vv<0d%%%Vv2zR%%Vv>WI%%%Vv>{qR%%Vv?F@%%%Vv?jhQ~~Vv@57%%%Vv@Y_R%%Vv@~.%%%VvAHVQ~~ !VvAm%%%%VvB7MQ~~VvB[v%%%VvC&DR%%VvCJm%%%VvCo;Q~~VvD9d%%%VvD^2R%%VvE([%%%VvEM)R%% !VvEqR%%%VvF;zR%%VvF`I%%%VvG*qQ~~VvGO@%%%VvGshR%%VvH>7%%%VvHb_R%%VvI-.%%%VvIQVQ~~ !VvIv%%%%VvJ@MQ~~VvJdv%%%VvK/DR%%VvKSm%%%VvKx;Q~~VvLBd%%%VvLg2Q~~VvM1[%%%VvMV)R%% !VvMzR%%%VvNDzQ~~VvNiI%%%VvO3qQ~~VvOX@%%%VvO|hR%%VvPG7%%%VvPk_R%%VvQ6.%%%VvQZVQ~~ !VvR%%%%%VvRIMR%%VvRmv%%%VvS8DR%%VvS\m%%%VvT';Q~~VvTKd%%%VvTp2R%%VvU:[%%%VvU_)R%% !VvV)R%%%VvVMzQ~~VvVrI%%%VvW_Q~~Vvyc.%%%Vvz-VQ~~ !VvzR%%%% #% [ 551] w.expdat !W.U\HWy3W.`l\QJuW.YKCQX>W.YL}tRaW.ZkyUxsW.Ws_VYYW.e6=FG&W.^*=Q%FW.ZG55RfW.ZiHL.a !W.Y-,7).W.^JIFidW.`fIr;jW.Zw;{uXW.aT_vmuW.RvU^W.a6E[W.`*u@a'W.`|I|%6 !W.g3?hazW.]YE.VFW.d)iWkQW.ca7ZFlW.g>+cW1W.g8Zck5W.f]vEh}W.rSUb..W.eJpB@hW.l@:R)C !W.hPsxv)W.kk(o;RW.pizMaQW.nB-H6XW.k{M)R%W.rM,H\8W.x%::*]W.um3r[zW.rDW:Kn+'y/W>PAe:QS !WFI]XxaVWR4X,oJPW\`sPLArWh=8/k&1Wr}Kj7'>X.]0Mf))X0=}d{R-X0c*{Os[X2(HH9L1X2[Q|:gL !X4CirWBQX4rZmR@)X4k@P;qaX4DXIk(JX2smGc_/X2^i`\vhX2S{)270X2Q{v(&0X2Ssv25}X2Q+T1wL !X2BDtSrKX24(O6R_X2'{&+:QX2.z7L^.X21V1bG9X27/NJ'jX237XTz'X2*}A5]oX0swso[]X0b3ejKD !X0V.1cvXX0MUM1qDX0F/4-1WX0An}U,\X0;BclD%X05Pwg%BX0.R@+>nX0'=QcBcX.~/E}N>X.wTzb,r !X.zXH`&xX.yXX`>{X.~>\29rX0'T[`kGX0+KKVt4X0,5Z'8[X02>tvzUX09k9IUDX0;xQiADX0F3A?o9 !X0MQP@uhX0TsRS>eX0Z;[4DgX0bF1burX0el)hE1X0mdVTZ6X0rtotI)X0u7iHD*X0zx,m\&X2'JN\p[ !X2))-e&u\X0z`TOeKX0uy[FS`X0u|VkN| !X0v4r3X0qmSSfOX0q*=*S?X0p'2d=2X0ln?q=qX0lxRs)TX0j43gW3X0lY8Q+^X0iv5Q:a !X0lP+Ap(X0m7e(+'X0mM&=R^X0q~P?sRX0plLci;X0p\nX0n(W8z9X0oH'_quX0k{>AF?X0i@xS&bX0iK,N1r !X0gibN{`X0f&n[&PX0cXmtg9X0b(IY8iX0b.i,\^X0a5~2rcX0ae5-:WX0agmegiOxX0eSKy1N !X0cy6:7pX0h{RcREX0lwA'3TX0n^P/l3X0ovl@ZsX0p[,02{X0v)(xCPX0{(9Zz\X0|mH*r-X2%H~x5T !X2'YN^{X24>zq1zX24XNZaqX268}TJ_X25ZR9S,X239IP8}X24wcTl;X240;T`rX24B@W8DX24X-\MY !X22Ehu,-X22b}_|'X20_Q3M~X20qRZ6wX20KTUosX2-=/JWAX2*S{r)7X2,]d@]8X2+JanowX2)Uq(~H !X2+/+VapX2'~,g/hX2)WBaQQX2(D57a~X2(lTbIRX2&]D)>TX2'IZXfvX0}MT4*`X2%j1rg3X0~55(,8 !X2%41<\9X2%:l]L;X0|B%G[(X0|qlu(\X2%{cZ_/X0}l6,j@X0|`:W3XX0|AJ7,%X0{Ktgl9X0}Jm[Tp !X0}gwHHWX0{I9+@JX0~93TP:X2'%Jhe,X2'zmm?tX2('Q.P*X2%^z>CmX2)8[E+~X2(]>}22X2*>SKAP !X2*W}/TYX2.5\R*@X2-tZQHlX2,JOghrX2+6pVL~X2.TFrNvX20=AF7iX21xk]|_X20G.GX21iuGz&X23iW=\QX203ZULbX22\^KOuX21L^APyX20xj?BTX22-A{X21>lj7n !X20LWv6AX20|majWX21Gge`KX249VvT=X24|fQ5`X25)T'|,X24(3`1rX25\s:RyX23bJ(q:X23NhR+a !X27k&|kcX24s]C/:X24++>b.X23m\M{mX26AYm81X254jg3WX28~%n\kX26Fs=OMX284dG(nX26cZgeq !X23QFmS&X27jK6?XX29M%VSoX28^FzZVx\E8X2<9v.uhX2>l>BP:X2<^Dd7%X2>g/%SxX2?TKS{;X2@\?_zkX2Aw1}I\X2??IO3`X2>rl(Qw !X2l/gX2?5fS.tX2>ltP5CX2?tn}*mX2?{e:MxX2?:Qid7X2?*[P7{X2>?WLj?X2@=>>&KX2@4}UYe !X2A*'fuEX2?TZci1X2?-u:i(X2@=V4K%X2?xL8BnX2?3A+Y:X2?v~c@1X2?js?t:X2>a?`27X2>EyLCl !X2>H~Lj]X2@?Hbq1X2?X%;eyX2AFqk?ZX2?;u(mZX2>E9_%TX2B>J{NlX2@t-\pLX2>]ZT~dX2?eoN\% !X2A\L;TqX2A}}Q7ZX2@x'o3TX2@{-y9AX2=b}VBrX2@5&v^5X2AX'`.MX2AfU+qvX2@h/BIIX2C.rm+= !X2@D>V;bX2A~;X8aX2CGFFbcX2F88p}iX2CosVF3X2Ev.{0kX2Be61:/X2Gh]`4,X2H,P-hbX2A3RK%T !X2DeNjXkX2EbWlJBX2Fv[2HLX2EN&w?]X2E2V^QNX2D?I7U:X2FMUtBaX2EVWd,%X2G>U~wyX2G*eBR/ !X2Eo/WjDX2D+[3gvX2G(VDbhX2FrT'b|X2F,y1zmX2Cw+LKAX2FQe<0[X2Gb0Q{sX2F_U_]4X2F-(-A\ !X2FRX.@/X2J:jG6oX2K^LU]6X2I7LJ]&X2Gs|?HbX2I5~CjrX2IWhYn4X2JEpCM;X2L2--vmX2Ix+YfU !X2LZrvJnX2Nie%CTX2NBcR@lX2N{U|)0X2P=j|^;X2N@`&5QX2N}E@'>X2LN>oQ`X2N6x+kOX2NM`nH4X2NGD2,sX2N|J6i@X2OnUF~'X2PdSy1bX2QCOa@5X2Pc4D2/X2Rc.M>TX2PV>AQX !X2Q@kkVPX2PQ*}F,X2Rh3+0EX2QtY]L}X2P4+TIrX2Qcq)ZeX2QW\}ehX2S@bC'zX2T6n{DUX2T*\_9: !X2V*r>fKX2Tz0vXoX2Tqj{(hX2SW[BkMX2Qm(:%QX2T`H44XX2T1Q}YvX2U'f^:qX2VzMcUVX2VGd{i3 !X2Z&`*X0X2UjLCNkX2W@W1=sX2Yz{=r&X2VvVi{`X2We4U4&X2W\mm*EX2YFA|BcX2_hWQtTX2YLjBl1 !X2\g?S-SX2\OUB\xX2WXrerKX2WL\Ps5X2Vw\2}SX2[V%v-7X2X*U[-7X2[.1%+QX2V7,@MkX2YlzZx] !X2V`7.b>X2Z}rULCX2Y<[JODX2]yB)fMX2XSV+J7X2Z-y|{^X2XBeh1AX2[ag92.X2W>Rf0/X2YKIC?YX2\)1k6ZX2`[?2seX2`3w5>XX2_ZuIA'X2`ln~Y1X2_:[Uc%X2qV6q0SX2nw4V{NX2b&oYOt !X2e+au~`X2aI={1|X2bzEKF8X2_MF==SX2`g4MlAX2ch?P)BX2dOcl)EX2adX,|5X2agne8wX2c3F32j !X2ci1E(hX2dXD,&'X2bMBjUFX2dnMJ'~X2eR'uj)X2_M6@v(X2aO;S1RX2eDW2.cX2dw*>lYX2e(.~{6 !X2f2^+&WX2gks,GHX2f`/8h4X2hRq.hUX2ek*lbJX2j)mkW)X2gULoM{X2fxBs?\X2h~^J6*X2j'Sss- !X2i:orq^ #% [ 551] w.f1 !SM)*q\7ZSM3e)M1]SM0}*bSISM?9iloiSM=IbI9GSML<[328SMO4plYGSM[qN=K=SM]*xMj.SMkE^_=u !SMm3F~ntSM|w|:aySM|NNDkASO2SAy.YSO5R/sD@SOEaw:JlSOE>qM/4SOWlv3O:SOZMp]unSOmkh}Eu !SOn;01xNSQ'XUH83SQ+^lm3HSQ>zC72>SQBKtfFiSQV;Y{NnSQ[:->GASQof4Q_5SQqG !SS30:`unSSOnlstrSSQ0v%')SSm+q,S2SSq.`V(@SU74f:D-SU9CzY(7SUY=/o8|SU_S;XHzSW*6OP?= !SW,R]<'QSWT2b|I.SWX3x'U`SY-BK5dUSY2XO5GnSYe[AWlRSYlIN`5US[Pl\@hYS[VxAHqMS]ClI=xf !S]TY/a}.S_V?t/CFS_l).*XfSa@FjPvSS_r^DUiTSc;'?f\MScHn'Nc;Sg7RL}=4SgJdqw&'Sm/Ve9pW !Sm73-PgHSuUKNfniT3`xnT=6ScJ|H'A)Sq6}8|>/Sm-7'7,2So.H}emYSiz/?C4iSkPU|K~LSi9^W{>c !Sg`PQWw[SaEqoMYRS](p=2A~SW\Pt`.LSWCTNF~4SUiiy'LhSU|e+r)KSUJmsAz(SUCCV\&DSSBs%z,H !SS-Y\?7aSQV)06&QSQw4:VmHSQc9)2y&SQZu{^`cSO}Rf2TZSOUEUXvQSMnhSJdYSMRQ62C6SM;,xnyT !SMJVbzUnSM@Dk9X*SMPg)`KySMF`t{UpSMNMZ-WFSMG7d/KrSMQ9JS(*SMVib?uhSMj(Ffs[SMv3;D;L !SO&p)SOX7x{nISOIZywQ=SO5q>oQ-SO4d7SoaSMpq?_Fg !SMekyC{/SMJ/IQ&`SM0'Ll.1SKwG0bisSKk'}e?VSK[~a+>TSKK+P{E'SK6kAZlnSK-Ex/'7SIuN{mCD !SIm@&[0aSIX4/4W`SILE^7zYSI>Q)1GvSI>L[h'=SI1Ji;:aSI3u{vgpSGx=OsL0SGwu^PyLSGt;ENfW !SGm)dF%KSGbDBcq]SGeMcy~0SG\E4PgOSGY'_Z`|SGSQ>MwdSGVBmz)*SGRZoE{HSGXM;=mSGEoi%eISG>iF?%4SGBodJU+ !SEBO)mGuSE7'wN;ESE0?hm9ySC|'G`:DSCz=5CVsSCzsANj]SCyap]d4tw) !SE9|Mr.+SEB9EZ'rSE?.7A%}SE9||KwPSE:)I}a?SA~@rF]]SAuC=z2gSAi8})\GSAdf^4r(SAbW;+o0SAW(zgi(SAU^|N<\SAH9JlxT !SADqROwrSA=EAU{2SA8Ky=kISA4t,i`3SA+y.]G~S?}nZe.kSA(5&|}tSA(A>B)LS?x0rq`kS?{>}~2i !S?uBFA02S?rqDi_{S?scErG?S?mtb|AsS?kA4Q:?S?gCCMCJS?e9dKb1S?b9`RA{S?iC_\?fS?`(ve1U !S?gEnw,0S?Zg5]_(S?^m6'R.S?b+PA|rS?a3LGzeS?Ti>j6cS?[nzfrdS?V:'V'uS?^:|7M+S?\1|*ot !S?Z80ER8S?Y-ZMa8S?eaO9OcS?[>+'rVS?\U'JV+S?Nzl{xNS?W{^BgiS?T8K^,WaS?P/czpm !S?R~]|TpS?LOXHkkS?DY[I21S?=o'bLIS?E4n]b;S?D9?{%KS?Ato:|_S?6lPuo&S?5|ei+GS?1RD^{4 !S?)4ar~gS=}R1DV~S?&oW2~dS=u>k>~RS=t%S|nSS=t,Uq-/S=lT;QoDS=m:qH.QS=lJ%&kYS=d\QH). !S=c//&}1S=\Ev%QXS=[Yd=MCCS=NKNQsF !S=L*TTV3S=I{&~Y~S=GS=:krzmfS=6;_CK]S=3_dY->S=2fpFp(S=*@~_y;S=4opXTz !S=+x}h\'S;~P.eyhS=%J|-z(S=)lRee{S=&dy){VS=&d7*yaS;}lgwbXS;tsg}IkS;xx4qlMS;k\:[S4 !S;vV/@1zS;zRK-h}S;s1-V%RS;mE>iu=S;pK_ZvtS;r:lI7jS;i6d2BpS;m-q`?+S;`Sgyo1S;coqR=} !S;eF_F\mS;[\tMoBS;^?ODdES;Tsz/GtS;].w](BS;QDCAXIS;T}QG%8S;EKv/gjS;DUN|=aS;>3.n]Q !S;CVcU|CS;Byq\dPS;?b6AviS;=l:gZpS;8VD>dvS;5h|`L4S;3~olupS;4@1[LNS;4_@K:oS;.RZUVq !S;,b<_elS;%+q7U5S;)qj+g\S;%*1)fCS9|yw?uiS9ympEpRS9{[uWbIS9t-FI4XS9ulvj@gS9s%Oo]O !S9x;DOx&S9s4RA_TS9s,nMiaS9n]}QA}S9i(aBJMS9oS.zeoS9nc|q&zS9al_]gDS9g%&C?KS9h6(usD !S9hx(WA.S9_2sa6zS9`FdI4fS9Xb(e=gS9]y%`%[S9bI/{}aS9`5,*?qS9Yd*uaqS9]O]6stS9X?\C{/ !S9W=A>LcS9[tDQj1S9\958P]S9T~LoSLS9P\Jhu+S9O^&HPzS9LG1l@fS9U[SzSGS9;Ok@EeS9CTUyY: !S9J1_~;VS9FzUzN0S9A6]vzKS9=f*oqOS9<6PdzQS9?-oAEMS9=eCegWS9;1ZOt*S9:s\eXUS940JY(- !S90|[9-JS95*lN>%S97;pK&IS9/\kMI;S9-i1Jy=S9/UxPV8S96U/RPeS9.)+PX&S9-j'3C3S9-/>xIm !S93j'a]fS92uxIZVS9(k7OU\S96ud*oSS9;F,F4rS9<{y``}S9;<^a];S9==35Gn; !S9=42O)5S95C,hCMS9157(pSS90XU.@yS9)RvzqJS9%x0N5~S7~-X2t\S7|U[A@qS9(*LLBNS7}:ir4M !S7~,|_{]S7vUs;UdS7y=W(qJS7xgAxJ~S7yG3U45S7vjT)n-S7X%\_=&S7J6@C_S7BeNjG:S74ycMC(S79Jv8~JS7/j^04/S74ext@*S73S?P~t !S76{&{UmS76^O+=pS76F&bo`S7/d?GNDS7'|Ioj;S7.F+~s(S7,{]JdvS7-G4mvsS7&2Ei/PS73nq1Ee !S7)fO[aIS70{&|LrS7+%HDf%S7(pZ]t~S7,HXg\wS7(v-MniS7+0tRUaS74SNMyHS70I.7\(S70wZfQK !S5~h]J4ES7+yu8N8S7/~RS1MS7%tqcc(S7,c2O_7S7(+Oq&iS7_y.bS5n9Mt+XS5g?'>|`S5cQS4X1S5k(sbnBS5i/s}vq !S5ih~.>*S5cqi&C1S5dYhsucS5hYD@3WS5[toR7TS5]>U3;wS5n^cJ;qS5i04mWOS5fc+_tZS5el'pXH !S5iC7[hCS5bH~@xFS5cm(yKnS5^mpfq4S5`h\0D3S5b5bXawS5VrnPvGS5`@4YFAS5^+o%\AS5[^D?JJ !S5Tw7{VoS5V=J9cdS5R~RFRcS5V5poJVS5T=_THRS5YneF,US5X{2b}|S5c8koV'S5cR>)@vS7)0DByO !S7+r%Z;@ #% [ 551] w.f2 !RR-1eFq6RR9Q[,P:RR=V3e[,RR*HSkAmRR:6,Sy.RPfAzhaNRR+O].URRP~fsgUrRR*XRAMVRPz%Rq3) !RP{~0Mk3RR%g-<}KRR.4E}WYRPn/y)*uRPv9%]F,RR%0\D+^RPz5G]k_RPam3*25RPgMy23kRPg.-bXm !RPu^2%aQRPWZ{HgGRPfPy@9}RPbT=4&WRPi\*|2.RPfJDqMuRPaWt\(>RR&,5u^WRPX1[TnyRPgw|nJM !RPZ-oFD-RP`%mN5sRPj~k`V7RP`yD_CERPVlGybWRPehaQV=RPrIM_?2RPh|v;%XRP[`sKwtRR(\`OU1 !RP|PqT/|RR.~+{dLRPp6l%O:RR%S6Flyk !RTquaam7RXFY=GC-Rb2D41Q9RlfaqM~-Rh*=jV,oRdB^72zRRf.;,17@RhhVN(*ARnla01`5Rz\PbusS !S0G6YH9*0IVSJ&>?=WOSHO,U|C/SFuWD:OJ !SFR4i.oBSF8z,orXSD},FC%qSDp3G[rRSD].sL%(SDKnSFzISD7@A&,[SB|(vqMlSBrCOj.DSB_+&_}_ !SBf|SbWbSBclQ@`YSBp`wg6ISByZNAW)SD*A_o\iSD,2Q6x&SD=((s-kSDR+@='\SDW}R|W\SDt^8M_p !SF/G?~5oSFD0xijGSFS7dslqSFi|wnY{SFsSiU]ZSH/^Pln8SH>3uN_wSHDNnZGASHT>Sn9z-SHw+b5skSH{9@?3nSHt;oo5%SHs}8b,*SHnbdD4z !SHoP%]?DSHk/}&,8SHdz67_hSHVp7]FiSHT%c}hFSHK^2D8vSHLeemrlSHI||OlhSH<%[Y:ZSH;Fx1f> !SH;HiiLgSH0e)Vg}SH-l4YqTSH+-H(fgSH'Y1cIxSFws}p'nSFwT(nuGSFo1[(ykSFuB1*i`SFm<9)Nz !SFsvmtVjSFuSm5VESFu`8=cgSH(&g?%dSF~9,LAcSF}/@hB&SH%U{SdqSH*OH()VSH)e6OC'SH'o3`h+ !SH,wz,^GSH0Zn5E(SH/YG:E|SH7Fcz~sSH50[/p:SH0sL(SSSH.8s;z9SH4yF1@%SH2v6H`rSH)f]~ql !SH(4>Aw>SH+(](6sSH(E2C20SF|Aj_asSFow[|juSFi|_L}ASFm0;21|SFboM`mVSFZWMe*SSFZ3X]`H !SFTp>tSLSFO7F?ioSFGXe_1WSFBQ-SPOSFB%Nmb;SF>jC61RSF?ZPL+USF?+)Rr>SFL1ySSH*6i7xL !SH-rpBIXSF~D8FKtSH'{YzH/SF}rOq1tSF~Em%-LSFwR/cNjSFxv[[X1SFl|}N_;SFra_'l^SFmT0K(I !SFoU,2o5SFo)@tDtSFf'2)\\SFfb%K4TSFnkp1z-SFg~v-6{SFczgpYKSFb6%hGgSF^w]>WOSFcjvfD< !SFd&p,T.SF\]uKc`SFclP`CwSFk(c26SF[pule{SF^{]{AHSFc\mYl:SFa3BdNBSFce5~mh !SF`RWb0QSFa1utBbSFaOpcS;SFhdY,5rSFj,4I;qSFiNj&gdSFef2VE5SFiB(C&jSFc&Pd2oSFaMkt7] !SFlo1lUjSFcstJDESF`[+|]QSF^zwHA{SFe6^PHkSFa4UjkkSFk+evN0SFbx68lMSFg(nx\3SFb'Qyr> !SFW~).b)SFc/l(v8SFg2/Wp'SFd'E5ykSF_|H=(qSFgez=uwSFgsb>A-SFh(DY@^SFmXiw\ESF`6Ejk* !SFnR'DHkSFg7r\0~SFmOb@eTSFfUx_qnSFkQoGMvSFlw1ynESFo/*8HxSFqwfc@ !SFQVf>9)SFQcnl(QSFMcdC;bSFLiMs-2SFBQ6Dw{SFHL3e52SFKP2>dtSFJ~Cr7{SFG7nZh>SFLt/]z` !SFD0AT_VSFGb*Bn3SFJbBU&lSFQipCWMSFJ.5803SFNs8~t[SFDtP_N@SFR(xv^JSFR3`n=/SF=R5d<{ !SFF?{RxhSFH3OAspSFJ^k]8TSFEUcW)fSFCYf9/nSF@.YS^gSFE3T\`zSFA_r\,oSFEQ|DZsSFCv*}S( !SF?BVe{BSF9SF9>SIX|SF6Z&\+j !SF6bzBfpSF@;.=FqSFC?,Z5GSF;F,joySF6K|)kxSF9'o}HcSF9+\9ruSF:>fQ`,SF>?PQ>wSF6|cSB^ !SF=I,(GQSFBX1ttLSF@C>2h>SFA'9{KZSFCc)>7PSF=*Wez;SF=mS8hTSF5X[|%uSF9A\&]ASF8~8^-Q !SF;Rzii)SF998M~lSF5UBZHtSF6+1T9*SF7GRw`pSF8oX?6dSF9V8eKfSF6\X<2nSF;2Z\rISF4'S2|m !SF4}VyLsSF1WuDNUSF6nE'z'SF3BcD9nSF-?Hwg4SF0LfNP?SF.}RX'@SF2loPInSF4<:\}+SF2j?&T) !SF7@v'NRSF3+7Z'(SF1\W@R@SF,m<:CzSF&[67DNSF-R/_[QSF*}J|U_SF,CS1bSF>3I-6lSF+B%Kj' !SF3;N6H)SF1MED+9SD|Dr^kYSDzZ3A2BSDwwJqciSF)pjAg.SDxy~:C`SF&;.@2PSDq<3)>FSDz,_RCg !SDp.i;.HSD{+v'vFSDu27@b)SF'24r-4SDpg@)?CSDsmdPI:SDm^C]kuSDuq\^,}SDh@.1UuSDl~GxeD !SDmw6,5ZSDkE7rSXSDpn&=n_SDj>mWboSDicoLH)SDk24:=VSDb/@GQUSDhXO|iYSDlL4\`kSDqf?~nq !SDpL8,=^SDf%[:]YSDqXwEk)SDo=DIY:SDlHv|JPSDnU.]tOSDhvs)@kSFAXK.{:SF9WJkt-_[vSDd'j+:dSDQY^ZO[SDUm;=iUSD_\(|&hSD]9GdEOSD\TGH.c{XiT1>vZi;kTyQy,Y%YU:3p;0X9TJWC->eATY24s?MRTWhf_<8/ !U-n<@C/%T47TM9S_T`)~1G,HTsEUvVlVTbA?ksoC1]F9Tvi`u/XkU/J@:gHhT?N/yNWxT^Yj.5jBTFO/5DfDU3,xWvndTsX]z`ZNTgCY6MPs !TdYC]iO+U3rzE&\}T9Z'2,eZTIbb*DRzTHZ<*Z}KT@,b^%[?S\R(ZCEEU@-iq\|oTIFj-.?tU0KFwXM? !T6(x]CgATvjzK)5bU8:@sH&cU21Vt6eATdA+tpt=U8zo(MA\UDh,)4[|U>wTZum8U6c\2tw&UV{&|]jZ !UT?]RhA}U`5V;|^\UNG1:XZQU\PHWjN5U`o'<^}qUtYAA9,@UjNL[y25V0;OV7>IV2fdH27_V4B]Q>AV !V8uv^R?rVDAYANw2Vf4-I[WMW04@Fdn?Vz0\6Hs4Vn>&ix+sVt6<1S7XW.RYX9D,W0YHbivCtW~uzBmw}W~3k3^J* !W~QnY={0W~GQC4olW~vASX0LV%si3X0M/VwvFX0L?d3V&X0GUaq4,X0GUT(y9 !X0Gd0YbBX0D-7/|,X0C=51`9X0BPoO4_oa/X0>;i^<]X0;NA?Z-X0=p !X0=`w:BPX0>EMgG@X0>W_i^hX0C,&XoMX0ApsiU(X0A^2//ZX0B`EB1`X0DV=RbjX0DJ{n4GX0CxDt5? !X0Euh_-LX0GC,g;bX0G0I%d4X0J))_:dX0IG`yYDX0H+&O.uX0GB5=9:X0Is^b19X0I?]=-&X0F;?`xJ !X0EwMatHX0G.em+/X0FB.JsbX0DGaSmNX0@8}\&jX0>EpmzVX0?b8'b)X0<8EP&>X09TvNPSX09[{6KT !X07wM~+3X061PvynX03`F}PHX02,sNkiX020/i%OX014;\+EX01`CC=*X01_rhY[X00z:Y2.X05E>U]O !X03gy]SbX08g2s^(X0<_q~/)X0>CwsWSX0?Y0q6*X0@:AMW}X0E_5(XCX0J[DYHX0S-'Xu/X0U3`n>{X0SwU/ARX0R%[0?m !X0SUfJm,X0PG^H*pX0Qwk/Ws+X0Y,_\MlX0WQs2W=X0Z7y7Q< !X0Yp+D~iX0XY?HqjX0Xh;@TCX0Zdm}&_X0W+h'`aX0YQbdSeX0X>YGD[X0Wg\2&'X0Xs*ZiaX0YQI7+B !X0XA~f1}X0Y/HG+4X0UyC,^cX0X2a_u_X0Wr9yvbX0W21SngX0W}B_?2X0W.3)]'X0UG^dr0X0UpyVkc !X0U|/-U}X0V%haW.X0UJsM3AX0Tsh%6xX0T~va,HX0STobstX0Tw,/76X0Vl[d9;X0V3wTLAX0WCGxyb !X0VN)qh'X0V{6J2-X0WC':qmX0Z1g8UPX0ZqmZ&dX0ZuQw\{X0Yq(B\YX0[H^cmQX0YK,>{]X0Y4AU%u !X0]MPlUhX0ZR}yc0X0YaBb+oX0YFj^5EX0[q^j;UX0ZafQ&lX0^MrE?qX0[m\Z|DX0]XDQEVX0\*1^rJ !X0XnnQOKX0]*ia+mX0^d:n/vX0]rS%&4X0\f=+qXX0_hd4]4X0`)3*[&X0`GI:SYX0b\)6~LX0^2\O6< !X0cUD4S|X0a58MtDX0cdQN>`X0aSN\ob)6 !X0a8b8PqX0cl&f?oX0cF+P60X0dJviuKX0dNcn.GX0cdG04PX0cQG]R,X0bc:Ft;X0d]q~z8X0dRN)CC !X0eDI'NoX0ckrk2LX0cB*.|4X0dN[oM|X0d,H`5\X0c>4@;tX0c~hdl[X0coT.6VX0bbq;>DX0bDGn?j !X0bDC[VLX0d7^^LkX0cM1~1JX0e8u@TvX0c*oDrgX0b1*gtSX0f'2q3\X0dYf?E-X0b@/~C6X0cE;djB !X0e8i>S&X0eW7A%ZX0dN2KkEX0dN/B`}X0a2ufZEX0c[oseSX0d{gJ%\X0e-1\XvX0d+\_z:X0fIX0i37F^UX0h9/}7eX0ix%*sPX0ia+5=Q !X0hHF7EXX0f[hZ2zX0iUZWw]X0iBO'gcX0hSjxoEX0f@n&/dX0hrD\^pX0j%`_?yX0hy|Yk*X0hDEn?D !X0hfl\-aX0lKuan9X0mlN]*KX0kBE>t,X0i{kzOYX0k:dka[X0kYEnThX0lDDD}`X0n-Qv=)X0kpG4v] !X0nP+>JgX0p[n43>X0p1cMzGX0pgLdRVX0r&XQwSX0p&DB>YX0p_zHz7X0n-je:JX0om@hD*X0p&U~S- !X0q;w=*cX0pkgqJ=X0oqA{xnX0pI>mK,X0q8@jO^X0r+6/M0X0ra(^KNX0q}^.-9X0szN~)PX0qjU_,D !X0rQyu{.X0q_/tZUX0ss.i4_X0r|L.A/X0q8nl-nX0reQ..SX0rV3o)FX0tTX0{TYW8)X0x&&)'tX0{&R9p&X0v,DB(0X0y_/IBn !X0vOpX0wy4*>DX0{;,B.|X0vnh[vnX0xxHlJc !X0y\I)2/X0y.*?qGX0{K339/X0yQ,0h8X0ydThPlX0z[yP@JX0wnBOQqX0zTI0HyX0|;M5t+X0~Q&s,8 !X0~IJ`x@X0{1)u_2X2%`.*2.X2%5\sFlX0~YQt9,X2%hBX2&n-J8OX2)2.pTxX2)lZ/,nX0}d_A(^X2%c[@-yX2)Umet|X2)+7_HbX2)332G0 !X2*:Y%:X2,mi^~SX2-mUuQH !X2,}ha?j #% [ 551] w.norm !Oy^BWwV:P2B|IF,/O=/=qTooOC@VYwlYO/U-1am5OoIX0nX8P6z7Q5TWOFC4,QKdOS&59>/?OQ`}@`?D !OyFGtpqHO2CmvQ6%OXX\i16gOi_&\F{*OZbDE88aP=[0H&?%O9Fy^IDKO]w5j)bnNOsBA:-_OeU:Ch2( !OIlQq_G=N._FT8UNOlt'CR2zP-ivVQ|XO;p}`lP4OX3N.E&jOBQR6,dDP1:PC(`lOionjuoRO_D%0CDY !O\lf8j-iP1x.y^4CO7AnT;@cOEM2d2B\ODPT8?vWOdOE4Yi4RQP.jq^`4L !O4,4qo44Olu3'G>IP60b|F@(P0ICK{TGO\WF4/LgP6iODC^wP@rQdxh^|phQjQWeE=mQt`mD9]TR.w66t^>R2e>Y35+ !R:3zZgjERD:Hv@\szt0nS0@T\3@0S0>'hEw[ !S01)/ZMNS.~JFJR&S.shR**(S.ysW`/@S.|0g,F&S0'%;6Q{S.}TliqOS.vZJUD`Rvt%pR\pRx[_n`1qRxn;[ut[Rzn%%1;y !R|T<:y}fR~:uL\:6R~ix|WA]S.W%`N7_S.Y}yql)S.`xBI-RS.eN%'I.S.gO3LZlS.lO/z6VS.r2gE-d !S.sW+7QXS.yAHE:`S.x:@?s]S.wPD@AzS.w9gjZXS.wwHo`7S.yAv5pMS.w=7R3rS.wCiai&S.uo]x+= !S.v9E\)|S.u%0Yy{S.s:6yTVS.o&YMS'S.nBtx2wS.kt1S/BS.lGR]u>S.k`RH^;S.gOjMsLS.gO^@RH !S.g\QAW[S.dLR>T\S.ceD_QDS.c'Kgt{S.b,gv>tS._9j`^IS._@'lh'S.\peHKtS.^y'JYGS.\V2=o0 !S.^kSGrsS._HWH&>S._XY/fcS.cV;58*S.bNK*}LS.b=yJhGS.c5.,TOS.dp_df>S.dfc|A~S.d?L4Ok !S.f'X`={S.g?Ipv;S.g.{_;FS.ib1S_{S.i-s@/3S.gyLQq|S.g>\1SdS.iTXiF_S.i&lD\qS.fCCNRW !S.f)+DY`S.g-PWK0S.fIBkfIdS.U|u`I\S.TZDAg(S.T]7YS)S.Sk]Vd4S.T8KlwGS.T8&ATMS.SZ&DI)S.WOP,KQ !S.V)VgRFS.ZLy-;+S.]uF9[fS._G8).6S.`O-Y:?S.a)5rgwS.emdS4[S.j4BqEhS.kcb|:*S.mzXT{q !S.opiYmoS.rGzz.^S.rK4mzTS.vR+'{^S.w)80BRS.vl=OK)S.w/j%PXS.{^;cOOS.{3b]waS.{D0L|[ !S.{ac6,)S.zc5^fzS.zvvT5[S.|Bur4.S.{hM|9TS.y^3k1YS.{-OZM2S.zErGpCS.zS&x9>S.zcO90H !S.xf3vtjS.x}3`NxS.w2xMNkS.w@)nqQS.vuu]=PS.t,p81sS.q^XPa}S.sNpmA7S.rF2N*;S.pbnn7X !S.r(HGoZS.o080cS.v8-[(*S.uf~RycS.vf>m>ZS.w=siiD !S.v;./*>S.vyygV|S.t23a-pS.v-\@MBS.upCj>tS.u7x\7_S.uz.lFdS.u4K.6PS.s`K;-US.t*jar1 !S.t4[eXlS.t7n(XIS.sc=1f+S.s8'V:3S.sAqnTbS.r'[B]DS.s:{cN9S.tv4s;3S.tD>/m=S.uG.~1X !S.t[>V^dS.u)&=9lS.uFl8\vS.wq8^G,S.xO[}|_S.xRrQAfS.wYed<)S.xzZIAwS.w8A'T;S.v~=kzW !S.zi>u:cS.x4Pf6S0'PU5VES0&Y}@lCS0(^RN|; !S0&4}O55S0'ZPs`tS0(ktORQS0+;NW|:S0)0+AJBS0*wQ5S0,PEYtHS0,gvCcQS0&\qr9c !S0)eg[WJS0*UaO_GS0+Yl?NuS0*>0_[}S0)}8u5UrSS0+S-}n@ !S0*H2,%]S0(njjRoS0+I%/QKS0+83tUfS0*R5iyLS0(W*h7US0*m-d*zS0+n'PzrS0*smNqKS0*D\spK !S0*bxB=)S0-z.m`9S0/1}q2LS0,|Q{F.S0+j\XxlS0,ui{q3S0-6hElpS0-sNuPQS0/IkTjHS0-K%Q~q !S0/h8)qcS01\|yHqS017vQ*LS01g8*W8O !S026/I)mS01j~n&kS00zcKizS01LaG]xS022yl:4S02v[z7OS03L%b0|S02o{J~jS04W[0X@S02_2u~m !S03>ej'DS02U.@6;S04Q0<),S03d/c@QS023H?UmS03Ox2dhS03BL3UrS04oyoRZS05YhEvuS05L=wZ= !S0745rTiS062m-3gS06(eQoPS04sg,T\S03?LK\OS05k8|:zS05?8iczS06).Et%S07dHmdyS075%YX4 !S0:D(fxsS06XuZG+S07uf|siS0:6p1G:S07PYJ;YS083j7]9S08)ax4VS09WYSnmS0?2=|?2S09WloDc !S0 !S06k8j[ES0:WMr;tS09&+OIES0=-^lRMS08?YsZqS09`68C8S08+AS2MS0:}TcL4S07,y,.rS08yqs^, !S09VKIo=S09-^O4YS0;1b2)'S09LNZdZS09]YKUnS0:K:2XzS07{jpBjS0:D[,vnS0;s*z*CS0=pPZB6 !S0=ilGOES0:tdIuRS0>r|O(=S0>MYLF(S0=wz444S0>z7{x8S0=V+'P1S0M]PqQ1S0K>16+ES0?v/-1B !S0BW?C}RS0??i-U}S0@]Lib;S0=SO/0tS0>\`YkmS0A:WfYIS0AqHuBmS0?GHFYLS0?GT5%HS0@[*8:( !S0A-_hv)x~tS0B>jLkTS0As=oluS0Az=Yw~ !S0Bv&g/ZS0D@t(v1S0C>YsRUS0Dt[i1YS0BMVRp`S0F5N4O}S0CyPtM2S0CF;V};S0E3Q}Y\S0F(SxHd !S0EAXW[X #% [ 551] w.expscal !W-YywC)HW-YytVf}W-YyvGg6W-YyvGB=W-Yyv):=W-YyvjPbW-YysN@^W-Yyu:&KW-Yyv2G>W-Yyv)s= !W-YyvO<`W-Yyu2'&W-YytX={W-Yyv&JxW-YytF@MW-Yyx43lW-Yyu1d}W-YyuTK\W-YytiT>W-YyuM>t !W-Yyu&.yW-YytL@.W-YysMRqW-YyuQ'zW-YytQBUW-YysNuBW-Yys_ZKW-YyuSteW-Yytg,QW-YytRmF !W-Yyr|=4W-YyuDcW-YykV]PW-Yyjyh_W-YyhaHDW-YyifrOW-Yye[d@W-Yyb7cW-Yl'6][W-Yj\*D[ !W-Yhk8-[W-YgPd`lW-YgbqH5W-Yhi7]%W-YiyZiGW-YjSyg@W-Yjno?VW-YjsjzcW-Yjo'+0W-Yju~v? !W-Yk@\5YW-Ykd9D@W-Yl(>ZCW-YkpuEWW-YkjKIDW-Yk\X>GW-Ykf?`vW-Ykzi6OW-YlK6sEW-YlwFXN !W-Ym;G1zW-YmPbGlW-Ymc2qKW-YmmoV\W-Ym}}+/W-Yn2S(=W-YnCtpJW-YnUsohW-Yn]f_|W-Ynn.HE !W-YnfV2\W-Yni'[&W-Yn]@fOW-YnU:CLW-YnKU[dW-YnI`).W-Yn:OW{W-Yn'p'KW-Ym|Q9qW-Ymc(U% !W-YmPl;OW-Ym>LF:W-Ym1*-EW-Ylvrh-W-YlnDiEW-YlZ`?KW-YlMjC*W-YlG~YzW-Yl9k.dW-Yl)]F0 !W-Yl%XY}W-Yko7t~W-Ykr4YSW-Ykt8y*W-Yktq.pW-Ykro0PW-YknirRW-YktP3~W-Ykt5wCW-YkxFzu !W-Ykw4;UW-YkzV-WW-Yl%MXWW-Yl1>lgW-Yl31MeW-Yl9}`)W-Yl8Od~W-Yl:KeIW-YlF4l%W-YlF-Mh !W-YlE[H~W-YlNQ~kW-YlPNK+W-YlRAe_W-YlTuE?W-Yl\sy2W-Yl\ZTxW-YlcNCFW-Yl]NG4W-Yld/~I !W-Yl]e0zW-Yl[upMW-Yl[@p|W-YlO~8xW-YlR|~1W-YlSIruW-YlPjhTW-YlK~CsW-YlL8h}W-YlMF&; !W-YlHF}zW-YlDeTUW-YlE2?UW-Yl=m5YW-Yl?E6vW-YlBV^yW-YlDA6:W-Yl=t_UW-Yl?:BmW-YlFg*( !W-YlGOYBW-YlDK&EW-YlF>{wW-YlK'54W-YlU?WuW-YlYo^|W-YlVONYW-Yl_%TYW-YleZOmW-YleA87 !W-YliLsTW-Ylmk.W-Yl.^l3 !W-Yl)8)cW-Yk{xV>W-Yk{gfJW-Ykp1(&W-YknRJ+W-Yko1T}W-Ykn0M`W-Yka=qUW-YkbTL~W-Ykax;t !W-Yk`v}%W-Ykc[J.W-Ykbu{&W-Yk^lPEW-Yk`D}}W-Ykf;.XW-Ykb(<@W-Ykd%~-W-YkcS+UW-Ykbvs* !W-YkhH=zW-YkgYWMW-Ykl`(9W-Ykl38]W-Ykm7c^W-Yku+9-W-Yk{v)zW-Ykv`)7W-Ykya=TW-Yk~C== !W-YkzKyZW-Yl(6z,W-Yk~?XqW-Yl'A.PW-Yl&6fUW-Yl+Z>dW-Yl)_T>W-Yl3QAPW-Yl-fCWW-Yl1a~/ !W-Yl/8c5W-Yl/(02W-Yl6?rsW-Yl4||.W-Yl-:acW-Yl2_'bW-Yl5N_OW-Yl6AC5W-Yl8S4_W-Yl3X+s !W-Yl2i`bW-Yl8YlsW-Yl1X,?W-Yl*_SfW-Yl(?-jW-Yl(.OxW-Yl.(6.W-Yl%2&+W-Yl&\^uW-Yk|QJ: !W-Yk{l+;W-Ykrk}rW-YksU7wW-Ykw5t?W-Ykz8\eW-YkqyO*W-Ykm[)mW-YkiO8tW-YkmBd1W-YkfQo' !W-YkgDDRW-YkjG5iW-Ykit<}W-YkdwAPW-Ykms:.W-YkgiDPW-Ykjc)8W-Ykk{2KW-Yki+*5W-YkgK5W !W-Ykj;b>W-Ykh6DeW-Ykp&<4W-YkjJ_5W-Ykk*dVW-YklhKzW-YkjY`vW-YklbvSW-YkpsXMW-Yko_/V !W-Yko;[PW-Yko*o}W-YkpL`oW-Ykqe3FW-YkqAaQW-YkttSuW-YkqEe%W-YklZW-Ykchp|W-YkaugPW-Ykadp3W-Ykd:.mW-Yk`?.,W-Yke/-^W-Yke`%b !W-YkZx/&W-Ykb2G>W-Ykd2s{W-Ykdm9'W-Yk^W,8W-YkaHptW-YkWv}iW-Yk^IyIW-YkYyD,W-Yk]\OY !W-YkeYOpW-YkZyZnW-YkVj~tW-YkXkaqW-Yk[T@dW-YkSvrLW-YkS-B{W-YkR4FNW-YkLUSLW-YkWVKX !W-YkJ*r6W-YkOpqbW-YkIOgYW-YkNp4\W-YkI\[2W-YkG_5yW-YkDyf0W-YkAe(sW-YkH9PiW-YkI?VS !W-YkN|jkW-YkHQWKW-YkIN:sW-YkFh[8W-YkFWN7W-YkHEcYW-YkHm9aW-YkJd~8W-YkElt5W-YkF'So !W-YkCps~W-YkG^j6W-YkHe)wW-YkEl8gW-YkF_\1W-YkHWXCW-YkFc6DW-YkG'EGW-YkIk+,W-YkJU0? !W-YkJMT4W-YkEg\RW-YkGV?YW-YkC)4oW-YkHB9xW-YkJVt~W-Yk@lS[W-YkIt=kW-YkG3vG !W-YkBMPYW-YkAT'bW-YkD4fNW-YkD--YW-YkL8iKW-YkF'KMW-YkBXM5W-YkB4EeW-YkD\B)W-Yk>g+< !W-YkE[N=W-YkASEkW-Yk>*.RW-Yk7&/vW-YkyAW-Yk8uk/W-Yk9`/CW-Yk;l(GW-Yk6K+{W-Yk8`T\W-Yk4DQoW-Yk4uoS !W-Yk7}M5W-YkX|W-Yk,~8*W-Yk)SZ%W-Yk/XHPW-Yk2sZBW-Yk/[~+W-Yk.b%tW-Yk,bbLW-Yk(<'9W-Yk-k[9 !W-Yk'0YxW-Yj{gsfW-Yj|ny8W-Yj{;S,W-Yjw}GaW-Yj|t%aW-Yj{6~jW-Yk'Ot4W-Yj}28fW-Yj|T_D !W-YjyEt*W-YjzM+HW-YjU~a?W-YjcP.IW-Yj_UrTW-Yjcy{WW-Yj[]0]W-YjfVB_W-Yja8ot !W-Yj_JsIW-Yj`\L?W-YjZhVIW-Yj_OtEW-Yj^qjlW-Yj\SU^W-YjcGhXW-Yj\Vq}W-YjX5L2W-YjRTW-YjOEd]W-YjPM`uW-YjQrYiW-YjNt-NW-YjRhv\W-Yj%898W-Yj+is0W-YjKpK{ !W-YjD:cxW-YjMF]LW-YjIT]|W-YjR:9[W-YjO(2VW-YjGUb[W-YjEf}DW-YjL\gEW-YjLT_IW-YjI%D9 !W-YjGSYqW-YjEQO8W-YjJj_bW-YjDtPHW-YjC5>NW-YjR:a@W-YjM7j4W-YjCVmHW-YjD_*hW-YjDCX9 !W-YjAWR&W-Yj=Q9fW-Yj@@EWW-Yj;cYeW-YjBQ%|W-Yj7qu.W-Yj>/&RW-Yj?^/>W-Yj:P_%W-Yj7wYC !W-Yj9sK} #% [ 500] o.f1_low !S94,jo5zS94gHW-oS95H0RzvS96(|f8BS96cy:D|S97E&,sHS98&7A=tS98aR{.QS99By)v~S99~O_`W(M&S9?C))8sS9@%_w[pS9@bGcGp !S9AE:JDhS9B(80BFS9Be@s2JS9CHTbb[S9D+s\nYS9DiCeN&S9ELy&TVS9F0_W}tS9FnQImeS9GRNY}l !S9H6W2U{S9Htk1T.S9IY0Z~9S9J=[Y(NS9J|8/k&S9K`z=D?S9LEn+vpS9M*mY_GS9MixpjoS9NO5uTA !S9O4Xl37S9Ot-X{-S9PYh@9rS9Q?U&A_S9R%MiXwS9ReRZHKS9SKcW5=S9T2&dFwS9TrP,M5S9UY+gt? !S9V?mg6sS9W&b.y}S9Wgbwc/S9XNp8(;S9Y60([qS9YwVN*sS9Z_/S,nS9[FoES9pPH.c~S9qV) !S9tHCMe*S9u58?z~S9u|;u1WS9viN?3tS9wVoW|US9xDEkUZS9y2+%taS9yyyA*wS9zg|i5*S9{V5JEL !S9|DWDl+S9}3.^b\S9}{oD@OS9~jeUzhS;%Yk?|FS;&I&bh(S;'8Kjd@S;((&^A]S;(qkD.BS;)ae|\d !S;*QpZO)S;+B1>?_S;,2\.lqS;,}=2e-S;-n.PnzS;._05{1S;/PBB~[S;0Ad~rSS;13>%W>m6S;>t7-yaS;?i(w/.S;@^,n9/S;ASBu:JS;BHk:4sS;C>Ky/U !S;D4?,6hS;E*Di\.S;Ez]+\ZS;Fq..TXS;GgkzetS;H^bd]rS;IUlNiHS;JM/Aa'S;KD_E|wS;LEBS;apD`w|S;bmYtw]S;ck+*qWS;dhlA@QS;efihz^S;fd}RUnS;gcMbwSS;hb4J~~ !S;ia1omCS;j`F(KUS;k_q4*\S;l_YC}aS;m_XcW}S;n_oD=,S;o`CK^sS;pa/+CaS;qb2I.ES;rcMVjK !S;se&`>,S;tfqq`ES;uh{=)6S;vkC(aRS;wm}@sFS;xpv8,(S;yt-tp+S;zwXOkKS;{{B/a\S;}%D{Eg !S;~)a1n^S=%.cb\S=56+,sWS=?A}L_{S=@N9DW1S=AZl~}8S=BgdXOgS=Ctz;gr !S=E(T9^RS=F6Lc4TS=GDcoRtS=HS?o|mS=Ib:v)}S=JqU9HhS=L'5%n9S=M74M>VS=NGSg{&S=OX9.2A !S=Pi>fDcS=Qzdo:1S=S2Q[^]S=TD_>Z=S=UW4+?VS=Vj*51TS=W}Aod(S=Y6{:gvS=ZJ|^96S=[_F:?F !S=\t2=?\S=^/@{jyS=_DrVPRS=`Zm8S=h2lMy) !S=iKUhE)S=jdd/9ZS=k~=mNeS=m>=,7LS=nXb6o{S=osSJ|(S=q4k&O7S=rPO;M1S=slZH;tS=u/2eR; !S=vL2R*'S=wiZ'(IS=y-OWp8S=zKmJ.?S={jYqioS=}/o5&cS=~OSbChS?%oa`Q?S?'6?JSBS?(WG;g{ !S?)xyOmmS?+@|H^@S?,cPBN3S?.,OYmdS?/OzQUAS?0swFmmS?2>FW.rS?3cBF;JS?5.k2F3S?6Tg9yv !S?7{6{l)S?9H4c++S?:o`i>wS?<=aTAWS?=f7DGHS??5o`S?K)6JdkS?LW5J||S?N+gd82S?OZsaK5S?Q0Yh*YS?R`tD'+S?T7iu`9 !S?Ui:ok3S?WAAYa3S?Xs~[,GS?ZM>Bw+ !S?e]f{UsS?g<+0<}S?hu*>)]S?jTdxLDS?l5'YUsS?mp&j+yS?oQc%Dop,S?{DsgLtS?},63.qS?~n:b'_BR{SA<0tjWiSA=}{QWd !SA?qt8reSAAf_bi.SAC\>^Q*SAERkp>FSAGJ4)D.SAIBL)vBSAK;Z_7sSAM5`]X3SAO0^nE+SAQ,V((o !SAS)G07|SAU'2yYCSAW%tD(2SAY%X8^*SA[&9M_FSA]'rzY6SA_*Q^5hSAa.0LRbSAc2j@uLSAe8L8'f !SAg?1/|(SAiFt(24SAkOa{KzSAmYUx1tSAodP|+}SAqpT2VYSAs}`VKCSAv1w<28SAxA?GjUSAzQn+&> !SA|cPM=;SA~vAc`OSC'0C%+_SC)EUX6gSC+[z]WWSC-sYKYXSC02M:[fSC2LWDzOSC4gy,yjSC7*Yj}E !SC9HTkY,SC;gkQI=SC>.EACISC@P=bTmSCBsV*MNSCE>5xy,SCGd8n<8SCJ1`;5YSCLZSm'TSCO*o+ea !SCQVYcrgSCT)oBnSSCVXW`h)SCY.nJd)SC[`[DcJSC^9z;j+SC`nrz+vSCcKG>|+SCf)S5*JSChc>VC4 !SCkDeF8{SCn'o_bySCpf_MCISCsM6qRNSCv5Q~E7SCxyY)~~SC{eNSC~S3tIVSE'Bf:)iSE*43bQ+ !SE-'R_6}SE/vkZ@sSE2n'(evSE5g;X;GSE8bQmi\SE;_lMC/SE>_4:HJSEA`_}tBSEDd>XJgSEGj,xOz !SEJr.*V_SEM|E)DMSEQ.u'})SET=g:2,SEWNxzE`SEZbSV3_SE]xTPAaSEa7%?+{SEdQ}ZI&SEgoS.82 !SEk5]\`{SEnXG(IfSEq}mDrwSEuKz`U^SExvs3ABSE|J[2jTSG%{7*TxSG)TeJZiSG-16seOSG0jd7iw !SG4M>B2'SG82~<6/SG;uu5[rSG?b(Jx~SGCQQK~)SGGDApHvSGK:YJ-RSGO4D-rrSGS1b%xjSCL004W !RV=pESw,RV=:\xx>RV<^vE.}RV<)7lF%RV;MU:Z3RV:qtcb?RV:<<3U9RV9`_^)nRV9++/0vRV8ORZaE !RV7s|,X(RV7>MXenRV6b{+'WRV6-PWH2RV5R()dQRV4v[UsPRV4A7'l%RV3enSD|RV30M~OARV2U/O'z !RV1ylxylRV1DRH-lRV0i9pHtRV03}=h&RV/Xhd(2RV.}V/49RV.HES):RV-m6uX0RV-8*<]vRV,\y\1U !RV,'py~'RV+Lj<,ERV*qeVAWRV*tLRV(QfPc:RV'vk`2&RV'Arm1nRV&f{wYc !RV&2-%FcRV%W:*ItRT~|I,ZCRT~GZ+o/RT}lm(%@RT}8'{(%RT|]>pn?RT|(Wc;>RT{MrR:+RTzs5=ak !RTz>T%OSRTyctcTJRTy/=Cg[RTxTaz&8RTwz.R;IRTwEW&DARTvk'P8.RTv6SugyRTu\(A8|rRTrcyBMeRTr/YFvwRTqU;F;cRTpzy@G;RTpF_56oRTolF~[^RTo80hRx !RTn]vLmzRTn)d+IyRTmOS^82RTluE1/rRTlA8X(BRTkg-xroRTk3%9R^RTjXxMs)RTi~s[qDRTiJpcDq !RThpod>pRThbwRTfT~~F*RTe{-\~@RTeG84O&RTdmD^cSRTd9S'Y4RTc_cC'D !RTc+uVyHRTbR/c8cRTaxEgj]RTaD]dRXRT`jwYAwRT`79F0)RT_]W*nHRT_)va@DRT^P>5QART]va[>g !RT]C,xZ&RT\iT3@[RT\5}?CxRT[\NB[LRT[({<~XRTZOP.JmRTYv&pkYRTYBYO~GRTXi4%zbRTX5jLWz !RTW\HigaRTW)(}GDRTVOe-HORTUvI-bVRTUC.~3-RTTipje\RTT6ZM=^RTS]F%fbRTS*3M~?RTRP|k|% !RTQwn%WERTQDa.awRTPkV-99RTP8L{.qRTO_Ed:FRTO,@BSCRTNSRTGfK&<:RTG3_ppA !RTFZvU46RTF(5-3SRTEOORe{RTDvkki9RTDD/x4}RTCkOwtyRTC8qjljRTB`;Pn5RTB-a)pvRTAU.Ol^ !RT@|WhY-RT@J(t.&RT?qUr=0RT??*b~3RT>f[F4sRT>43ug%RT=[h=XART=)DQZWRT9t[RT:m{ohART:;a=CrRT9cHVY&RT911aEZRT8Xv][IRT8&cK8Y'LXRT%g'uU@ !RT%5RWz(RR~^%(XkRR~,SACWRR}U)H2FRR|}[`RRjL3fUGRRYg~Q>D !RRY7p~<~RRXae9IbRRX1[6\mRRW[RunjRRW+LBw{RRVUGQplRRV%DHQbRRUOC&m&RRTyCFa;RRTIEN&k !RRSsI%zRRJAL%Z&RRIkpL|~ !RRI<JARREWiE@,RRE(C1;fRRDRx\5o !RRC}Ul&|RRCN4`agRRBxo:*gRRBIQR.VRRAt5NelRRADu/o+RR@o\OC%RR@@ES47RR?k0;;?RR?;vaPv !RR>fdkmaRR>7TZ09RR=bF,E9RR=39`UDGRR3iqxTeRR3;*~%JRR2f?ec9RR27V/RvRR1bn5G7RR14-w8uRR0_I@zfRR00fFQQRR/\+-i{ !RR/-KPbwRR.XmU52RR.*7;3LRR-U\\V[RR-')_=KRR,RRC:eRR+}|bG?RR+ONb[{RR*z|CqWRR*LQ`&v !RR)x(](oRR)I[:p3RR(u5SAhRR(FkLJLRR'rI&)+RR'D(:0SRR&oc.Y]RR&AE]C=RR%m)l@ARR%>i[I] !RP~jQ*X-RP~<:3d[RP}g~vh(RP}9k?[?RP|eYB7oURPq}YYrZRPqOkRwBRPp|%)vjRPpN:8iwRPozQ%Ik !RPoLiIiIRPny)KglRPnKE+=~RPmwbB?'RPmJ'6czRPlvGbKlRPlHikI\RPku3QVNRPkGXnkHRPjt%i'P !RPjFN@7lRPirxN;IRPiEJ9+FRPhqwZZmRPhDLXhjRPgp}3NFRPgCUD^dRPfp/28rRPfBdV/{RPeoAV=- !RPeAz2YHRPdnZD}|RPdA<3IzRPcmyWjMRPc@^W~]RPbmE4%[RPb@-EfSRPalq3,TRPa?\U~jRP`lITHK !RP`?8.6]RP_l(=BWRP_>t'eGRP^kgG>=RP^>\AzJRP]kRq^}RP]>J|?4RP\kDan4RP\>?|14RP[k;@t&RPZk;E2=RPZ><}wFRPYk@7.TRPY>D~^|RPXkKFMxRPX>SBN^RPWk\rZBRPW>g|j;RPVkt`w^ !RPV?(x{iRPUl8jorRPU?J6M8RPTl]5g*RPT?qh\cRPSm-u'FRPS@EZtFRPRm^t.~RPR@yf^SRPQn<2H8 !RPQAZ1?JRPPnyc=HRPPB@n;ORPOocR2zRPOC-hw1RPNpSXMFRPNCzzb{RPMqIuW9RPMDtH}SRPLrFNu2 !RPLEt-7QRPKsI=qrRPKFz&i]RPJtRAr0RPJH,5*gRPIuaZ@mRPII>WSdRPHvw,\mRPHJW3UPRPGx8l70 #% [ 1500] o.f1_high !S5T]NFg5S5S^e@=aS5R`2]B2S5Qaj>3gS5PcX7.^S5OeVBR*S5NgdZf?S5Mj(z6[S5LlWAE8S5Ko;^cC !S5Jr/re+S5Iu3w{NS5HxGi&IS5G{k@PbS5G%DS%vS5F)-AG:*tS5@C2HQHS5?H,h78S5>M6:.SS5=RNm2,S5Jy:S59i8hSVS58oAtFg !S57uYi\wS56|&CHaS56([Vs-S55/EE9aS546=cdGS53=DSUWS52DYj%{S51K}HJeS50SUD-@S5/[;XGW !S5.c0&a\S5-k2^EyS5,sCFu:S5+{b5dWS5+*5&?1S5*2on2QS5);^TnCS5(D[/pZS5'MeTmFS5&V}e@{ !S5%`I\}mS3~i}7POS3}sdJOaS3|}Y7`9S3|-[Ti'S3{7kCS+S3zB.YcHS3yLY9--S3xW77S@S3wa|Pm4 !S3vlu&mpS3uwziJMS3u)3`T0S3t4Sb)zS3s@&izxS3rK`t6&S3qWM|h.S3pcH%]|S3ooNxt=S3n{bdUY !S3n.)>bAS3m:V]HfS3lG6blyS3kS}K&tS3j`vl8@S3im|hVhS3h{5<9VS3h.T=MoS3g<%hNNS3fI]_R* !S3eWGxq%S3de>VkFS3csAO\|S3c'P_cAS3b5l)CZS3aD9\xbS3`RmBq1S3_aS1Q2S3^pE%>XS3^%Bt`s !S3]4Lh-4S3\CbV(3S3[S*:~4S3ZbWmO-S3Yr75~JS3Y'|E/6S3X7s=H&S3WGuuI)S3VX*5g}S3UhD/(' !S3Txi]uwS3T/@d}tS3S?}@{aS3RPkHRPS3QadxA(S3Pris-OS3P)z5YIS3O;;pSwS3NLblaPS3M^;&n( !S3LoxOfyS3L'g0:xS3K9`y42S3JKesD3S3I]uu]sS3Hp6|uYS3H(],&{S3G;43v~S3FMp7P+S3E`]3_r !S3DsU%GHS3D,Wc]%S3C?e7DES3BR}QVHS3AfFU9ES3@yt?HmS3@3Rg-SS3?G;oEYS3>[/U\W6&S3.Ts{vZ !S3-k;@x^S3-'fW\IS3,>AcC7S3+U&aOMS3*koOJYS3*(h*Y2S3)?jJFgS3(VvR9~S3'n2?ZZS3'+Qiw< !S3&Bzt_hS3%ZS]>rS1~r5{@ES1~/{r7-S1}Gq?PrS1|_p:bPS1{wxaAlS1{60VyYS1zNKs-^S1yfpYDg !S1y%Da>\S1x=|.O{S1wVbrTMS1voRw(cS1v.L9^ !S1ql1>m&S1q+jh0-S1pESG7SBS1hY7fT8S1gt1&,NS1g53(&@S1fP=j2mS1ekQ6CsS1e,m>L9S1dH8&?J !S1cceEklS1c%A@lSS1bA%o7XS1a\ltweS1`xbOpTS1`:`WtES1_Vg0|ES1^rv3(NS1^53\'FS1]QSOtW !S1\m{fX>S1\0RD)WS1[M1@@3S1ZirY@\S1Z,b3*8S1YIZ%V}S1XfZ.mcS1X)bLosS1WFr}_hS1Vd1e@B !S1V'R[o@S1UD{_=/S1TbRmbvS1T&2+2VS1SCsIf\S1RabmRHS1R%Z:WtS1QCYc%hS1Paa0yHS1P%pVNt !S1OD-wd|S1NbM8m1S1N&tKsOS1MEIU*mS1Ld&RT[S1L(eBK'S1KGQ|vsS1JfFL3]S1J+BbEKS1IJFcc) !S1HiRNCyS1H.ezT6S1GN'2LUS1FmJ(@ES1F2tZC_S1ERLlk+S1Dr,]quS1D7n+n'S1CW].u}S1BwSeFy !S1B=QsR^S1A]WWWNS1@}dinJS1@CyNW-S1?d;^+cS1?*_K0B^OS1=kbn@*S1=2Bc|ES1(O8HS1+`v;e;S1+)px1tS1*LrO%9/S1%Yf75ZS/~}JqA}S/~G6766S/}k(;D[ !S/}4z|F+S/|XzDmxS/{}&G;}S/{G3(>SS/zkF@PT~S/sa[dB:S/s,iUEqS/rQ}j@rS/qw>Gnj !S/qB_FWQS/ph,e7ES/p3ZHK3S/oY4Hv,S/n~neAgS/nJUBF5S/mpB8gtS/m<5G1dS/lb.l<{S/l..LoC !S/kT4AT|S/jz@I.HS/jFRb !S/ZWSd2bS/Z%_bitS/YMqN\5S/Xv/&V9L{S/VcljAdS/V2G'ZhS/U[&~2o !S/U)f^s(S/TRQ|\kS/S{B|?oS/SJ9\lC1`S/Ctyh\TS/CE`O`icOpS/>2*o:cS/=]K1BZS/=.p\jPS/mS/1t@+x5S/1G%ZQQS/0sj(.' !S/0FYGqAS//sM^q2S//FFl7WS/.sDo(qS/.FGfOTS/-sOQ\GS/-F\/ZLS/,smYTzS/,G)tWKS/+tE%m[ !S/+GdzIQS/*u/cQ@S/*HY:7SS/)v-WbnS/)I`a,2S/(w>UTcS/(J{45qS/'xbV7=S/'LN`fnS/&z?Rx[ !S/&N5+z{S/%|/D|OS/%P.C1vS-~~2%^?S-~R:E\uS-~&GH=4S-}TY,hoS-}(oL;kS-|W0Kz6S-|+P+&J !S-{YtB_)S-{.C8&uS-z\pdB}S-z1HljXS-y`%PU/S-y4`hn?S-xcFZn&S-x81%fHS-wfy|ihS-w;mQ0\ !S-vjeV'iS-v?b0b1S-unc:>xS-uChr+SS-trr};PS-tH'[(_S-sw:da%S-sLR?DkS-r{nDBHS-rQ4rnN !S-r&Yp)nS-qV);=RS-q+W-dgS-p[/FZ}S-p0f+5qS-o`G4e6S-o6,bK(S-nepYW]S-n;^sGHS-mkQU0{ !S-mAHX+3S-lqC{M%S-lGCdSfS-kwGlVdS-kMP8mXS-j}\|V.S-jSn)(?S-j*)KV@S-iZC/DSS-i0a-eP !S-ha)EwzS-h7Ow:oS-ggzf{OnDUS-fo)2d2S-fE`g?kS-evBWK=S-eM(\FbS-d}luL:S-dT[GvB !S-d+N-+VS-c\D~:aS-c3@,d^S-bd?EjZS-b;BngnS-alJLwmS-aCV9\8S-`tf40tS-`Kz;koS-_}8Ou9 !S-_TToiNS-_+u@e(S-^]?v*bS-^4h[1=S-]f;I;rS-]=l?gaS-\oG=x.S-\G&C0dS-[xcNc8S-[PJ_yV !S-[(5v7hS-ZZ%6p+S-Z1rU2wS-YcivRpS-Y;e@:ZS-Xmdec*S-XEh27@S-WwoY0WS-WO{%n7S-W(0K[l !S-VZCos(S-V2[7yoS-UdvW63S-U=;r|u-}rR}?}r(ZCR};c;%T8R}7I)xj'R}3/>hAiR}.oyH6r !R}*W%lL8R}&>Qu,0R{|&I\6GR{whfur2R{sQOb4)R{o:]u:.R{j~7O5jR{fh6D3uR{bRZNBgR{^=Igq{ !R{Z(^0xZR{Un=Wi-R{QZA|W=R{MFk?XBR{I3_O(oR{DzxK:fR{@h\.MBR{R{8E7G,[R{44.q2b !R{/}JkR7R{+m10Q9R{'];nQ0Ry}Mjkt]Ryy>c}+iRyu0'BOtRyp{hjSaRylmt;_.Ryh`IdAPRydSC+%G !Ry`F`>6dRy\:G>H\RyX.R&/[RyS}&IuIRyOqxJ=)RyKg9{lqRyG\y%*FRyCS'N^NRy?IS?17Ry;@HK3{ !Ry77`mECRy3/BFE6Ry/'G*n]Ry*ynoI{Ry&r_ZnjRw|ksAgrRwxeOxu;Rwt_OF~5RwpYqZk1RwlT\U%j !RwhOj0L|RwdK@AroRw`G9**^Rw\CT=ptRwX@7x':RwT==yLWRwP:fZRw03{?GSRw,4mshNRw(6(7E/Ru~7^96=Ruz9[t;rRuv;{/Vz !Rur>at/gRunAj.}URujE9i6lRufI*io)RubM=+x}Ru^Qp^\FRuZVkH|,RuV\-@./RuRaj?1URuNgnA8S !RuJn9APBRuFu%;-@RuB|2)8tRu?)_a)YRu;1T)j}Ru79i2[fRu3BDviWRu/KA=OO,RsS:N^e?RsOHkoFRRsKWNkr,RsGfQOZDRsCusp&_Rs@+[nYDRs<;cFgjRs8L0M|jqWhRmdcX>*Q !Rma.bBu(Rm]T.|20RmYyr1y@RmVEwnF{RmRl?yZ9RmO8~Oe-RmK`%Ft@RmH-B[;JRmDT|.|kRm@|wr9U !Rm=K5m5[Rm9siv'bRm6B`.{>Rm2krH4_Rm/;FctqRm+e6~AcRm(5C9ckRk~_kFdn2RismT:TaRipG*NIJRilzuBxQRiiU&nZb !Rif/LswRRibd3OI2Ri_?4WXQRi[tP.{/RiXP,,->RiU+|KSyRiQb3/lfRiN>^/OzRiJuIG0ZRiGRNsBD !RiD/nV_WRi@gNGc:Ri=EHC)-Ri9}\EANRi6\0K/HRi3:xQ*YRi/t&SkGRi,SHOvmRi)3*B,VRi%m&&zz !Rg|M;U4~Rgy-joJCRguhYrC=RgrIbZ\gRgo+*~zERgkfg(&FRghHb`S_Rge*wq3gRgagLV`mRg^J:gg_ !Rg[-BG/gRgWjcKU1RgTNCqfWRgQ2=\MFRgMpPbMSRgJT}&Q\RgG9hYDvRgCxmCm7Rg@^1<]&Rg=Ch@[K !Rg:)^LV1Rg6im];QRg3P;oTKRg06}&6PRg,w}2+qRg)_<6%?Rg&Fn.n6Re}.^sDUReyphLNxRevY0k&W !ResAkqs9Rep*e]uARelmx+{pReiWI2|ERefA2om,Rec+5+DiRe_oOpTiRe\Z).;(ReYDtoJ1ReV/~|{4 !ReRuGSmrReOa(JvPReLL{_5vReI933[YReF%\y/TReBlDxbDRe?YE/=9Re7w=pRcp.aT3~ !RclyHr?xRcijGtg7Rcf[^XU{RccM2tlsRc`>xlY2Rc]0|<|YRcY}==+MRcVooi|[RcSb_fkLRcPUg0[s !RcMI+xXERcJ\Rc=gaorsRc:\XFI+Rc7Qf-)JRc4G0z|WRc1@xQJ5Ra;=2`@SRa89]/CoRa56CoqGRa23@k2yRa/0SxZe !Ra,-};SJRa)+be<9Ra&)^?4mR_}'oz]@R_z&=`|AR_v~{IXyR_s}u1neR_p}*q+bR_m|PPfCR_j|2(3^ !R_g|)Nk&R_d|6g|FR_a|Yq2*R_^}8gdvR_[~-I,5R_Y%7la_R_V&WuwRR_S(3b:JR_P*%/+QR_M,,3rA !R_J.Hn(vR_G0{'+gR_D3hjIiR_A6l'RDR_>:*ioCR_;=Xzq%R_8ABX(+R_5EAXsfR_2IUzqXR_/N%aMb !R_,Rdd4VR_)W_&S0R_&\nY|lR]}b9H+FR]zgsHA0R]wmhX8hR]tsruAFR]qz8C0WR]o&ls6BR]l-\O)+ !R]i4a.9bR]f;zh?LR]cCOFl*R]`K8{=cR]]S7O@vR]Z[JtNcR]Wcs4@QR]TlV@J0R]QuNaO?R]:k(9_^R]7v&F/HI !R]/>B%P%R],J87G%R])VBqgOR]&bax7qR[}o;HL~R[z|):.5R[x/+Jq,R[ua !R[leK.-)R[isX]EOR[g'zCk|R[d6V9+%R[aEF:uLR[^TJF|PR[[cb[%lR[Xs4teFR[V(u7m^R[S8oV%G !R[PH}s'nR[MYF2\QR[Ji|FQFR[GzlRHmR[E1pT+TR[BC.I<^R[?TZ/e^R[9RYI8A{CRRYFP?F,>RYChOrGLRYA&sJ04RY>?P%6* !RY;X?[O&RY8qB6q?RY60Wi9SRY3J&w]OGRUgb4k2&RUe+]kC*RUbO>\/kRU_s1;YlRU]=5an~RUZaKrwZRUX+sl|.RUUPSN+CRURuDnBK !RUP@GqpkRUMe\Vf/RUK1(u,ORUHV`q(4RUE|PHcoRUCHQT6FRU@nd7_&RU>;.K5>RU;ad2x}RU9.QG(9 !RU6UP+]JRU3|`8qRSQ*V.NSRSNVQxbSRSL(^bBIRSIT|C\WRSG'Ptk_ !RSDT6@*\RSB',WbaRS?T3_u?RS='KVx;RS:Tt;'XRS8(SdMVRS5VCwLkRS3*Dr<,RS0XVS2ZRS.,xrGb !RS+[Qt8~RS)0;VxORS&_5rj>RQ~4@l&tRQ{c\@z~RQy9.Iq[RQvhk*}|RQt>^<_YRQqna}0:RQoDv6c| !RQlu@ua,RQjKv*B0RQg|a`{zRQeS]cu]RQc*j1JRRQ`\,{p5RQ^3Z3NURQ[e=d[aRQY=1YY|RQVo5jf, !RQTGJSRQCD*BL[RQ@wfQgbRQ>QXlTx !RQ<+[73iRQ9_mc}rRQ7:6=E2RQ4nhu]lRQ2IQW49RQ/~J:C-RQ-YRwQBRQ+4kY&+RQ(j:7uvRMVmktIVRMTS6L_ !RKaV_0(gRK_Ai;^jRK]-'j:]RKZrN`LhRKX^)vqjRKVImR,VRKT5eJh0RKQ{k_MgRKOh&4nnRKMTH}N~ !RKKC?aLVRKI2DdAiRKF{X*`ARKDjyg&0RKBZOcy=RK@J3y~-RK>:&Mg/RK<*'7g)RK9t66VrRK7dSHib !RK5T~lxuRK3E^G^'RK16L1LsRK/'H(yHRK,rR,cjRK*cj;@HRK(U6SCqRK&FjsHxRI~8S@*]RI|*Ikx1 !RIyvNAXtRIwh`s\LRIu['L^\RIsMV%;LRIq@8V)-RIo3))]~RIm&'R\iRIjs3u\5RIhfN79=RIfYvJ+; !RIdMRRiQRIbAojk@ !RIO3{v>oRIM);hW'RIJxc@9_RIHn>Uz`RIFd'NF5RIDYx(0URIBO|;t;RI@F4.>(RI>RI3hTY&.RI1_kJF?RI/W5ia-RI-Ng[XwRI+FLxjDRI)>?ex7RI'6?{eM !RI%.M^o;RG}&hgx{RGzy7;f.RGxqm2tIRGvjVL-jRGtcM,*@RGr\Q+N.{;RGGFI/|WRGEBa433RGC?,:;M !RGA;^@~'RG?8CG/^RG=55KG9RG;24LSvRG9/@I>yRG7,Y@KlRG5*%0d/RG3'WrqbRG1%=Q^QRG.}0%na !RG,{/H2XRG*y;]H`RG(wTdA\RG&uz[b>RE~tSB;^RE|s8pluREzr+2-HRExq*8v^REvp6*&CREtoN^6C !RErnsz8aREpnK|sUREnn0dy?RElm|16PREjmz:KlREhn+%L.REfnBJ~NREdnfOv*REbo=2z=RE`ozLx] !RE^pjB^pRE\qfltkREZropNPREXt+L42REVuMXn2RETv|;7%RERx]L1KREPzK0LtrRE-XDn4QRE+\iZUqRE)a@\q&RE'e}sx9RE%jmD]y !RC}oi'ndRC{tpvC=RCyz*{(VRCx%K4kXRCv*wVKXRCt0V*ovRCr6@dr.RCp<7OEtRCnB:C9,RClHI??b !RCjNdBMtRChU1KW}RCf[dYRORCdbIk1|RCbi;%E@RC`p8;'GRC^wAQ'ERC\~Vf:ORC[+wyV2RCY3K/o} !RCW;*;}dRCUBoBu7RCSJfCLURCQRiPC:&DRCxRC:cKIx@RC8m41piRC6w(\zbRC5'(p4^RC314jKH !RC1;LJ]mRC/EoidwRC-PDlYzRC+[%R6=RC)eksMHRC'pcu?'RC%{gV^~RA~,vpMARA|87g^3RAzC^;1r #% [ 1500] o.f2_high !SDf9lb^`SDez(7F9SDe`>F6hSDeFU5.CSDe,l^+,SDdm*g+0SDdSCP,VSDd9\s-PSDcyvv,(SDc`7Y&B !SDcFRutOSDc,nr`YSDbm1OBjSDbSNes4SDb9l\;uSDaz12O*SDa`PBPkSDaFp2?6SDa-6[rISD`mWe4W !SD`SyN7iSD`:Apz1SD_zdsEoSD_a.ULySD_GRq3\SD_-wlQ}SD^nCGL3SD^Ti[z>SD^;6P&QSD]{]}\v !SD]b,0g`SD]HTwDuSD].~CLfSD\oNH}ASD\Uy-zkSD\xSDT+Mb^/SDSl2)jnSDSRq)c5SDS9VbEGSDRz?]SDQUyc*?SDQ8~SDF`Y'G4SDFG[Jn>SDF.^L)oSDEob+,%SDEVfAs%SDE=k6I)SDD~pb`BSDDevl]* !SDDL}T=LSDD4*sYbSDCu2pU~SDC\;K0XSDCCD]A_SDC*NM-JSDBkXtL,SDBRcyAtSDB9o[g%SDAz{u_a !SDAb.m*.SDAIwwdPsSD>_1Fy'SD>FE`]XSD>-ZWVfSD=np+bgSD=V,7%mSD==ByR5SD<~Z?2+SDZ^gSD5sem@hSD5[3\ZfSD5B\(PxSD5*+*{ZSD4kTc~}SD4R~yYCSD4:Okbx !SD3{{:?}SD3cM?HkSD3Jyz{WSD32M8|ZSD2s{-J/SD2[OX !SD1;3%z:SD0|e.pSSD0d=n%FSD0Kq/K+SD03K'+tSD/u%Tz+SD/\Z_%uSD/D6E;]SD/+la_TSD.mIZ5s !SD.U'.pxSD.<_9Z{SD-~=zL;SD-ew=C*SD-MW6=`SD-57e:BSD,vrp7CSD,^TW2|SD,F6t+PSD,-sly3 !SD+oWAf>SD+W;LK0SD+>z3%{SD+&_OO+SD*hEGjhSD*P+uw;SD*7m%rsSD)yTe[uSD)a='0[SD)I%xI= !SD)0iKJ6SD(rST1_SD(Z>8WxSD(B)Ra@SD()oHL+SD'k[spTSD'SHzr{SD';6]Q_SD&|~udtSD&dmiP{ !SD&L]8n4SD&4M=`mSD%v=x'3SD%^/3sSSD%E{%66SD%-mK{OSB~o`N3^SB~WT+k&SB~?H>ksSB~'=-4T !SB}i2Pw>SB}Q(O~JSB}8y*H;SB|zp:-+SB|bh%+6SB|J`E@vSB|2Y@lTSB{tRqRESB{\L}JcSB{DGdSr !SB{,C&l1SBzn>x7qSBzV;JiASBz>8RJnSBz&654bSByh4M%8SByP3?tfSBy82gmUSBxz2jgzSBxb3Hb> !SBxJ4[ZqSBx26IO|SBwt8l?zSBw\;j).SBwD?BciSBw,CP:9SBvnH8^oSBvVMUutSBv>SM}eSBv&Yzt^ !SBuha(X}SBuPhe)*SBu8p|=6SBtzyn9eSBtc):vzSBtK3LApSBr(Me44SBqj]XToSBqRn&H2SBq;%(fNSBp}6_T.SBpeHpiJ !SBpM[\JfSBp5n|PFSBox(vxcSBo`=Kh'SBoHRTveSBo0h8I.SBnr~P7SSBn[;B@ASBnCRhaoSBn+ji@H !SBmn)D4FSBmVBS<-SBm>\hSBcYdn30 !SBcB:MU9SBc*j`ILSBbmALh1SBbUrlUcSBb>JejOSBb&}8JsSBaiV>O;SBaR/wu}SBa:d0cOSB`}>vp* !SB`et<@3SB`NP5,1SB`7,a2FSB_ycfQ:SB_bAE-1SB_JyVxLSB_3XA}TSB^v7`:lSB^^qWb\SB^GR(?G !SB^03,)OSB]rnby>SB][Pry7SB]D3\'\SB],px6wSB\oTmKPSB\X9;ceSB\@x<~%SB\)]q>gSB[lC~X@ !SB[U*do/SB[=k~'VSB[&Sp4%SBZi<;8tSBZR%94XSBZ:hj%OSBY}Rsc}SBYf=V:QSBYO(k[JSBY7nYk1 !SBXzZzh+SBXcGtP\SBXL5F}3SBX4}L80SBWwl*3vSBW`[:nuSBWIJ~3SSBW2;@43SBVu,4o:SBV]w\/3 !SBVFi\&BSBV/\4S2SBUrO?Z)SBU[B}9JSBUD79I`SBU-,(/8SBTo{IBOSBTXqC'pSBTAgo7hSBT*^spZ !SBSmVPvnSBSVN`HlSBS?GH>}SBS(@bWiSBRk:U7XSBRT4z6oSBR=/wSySBR&+M3BSBQi'U-JSBQQ~5@] !SBQ:{GkGSBP}y2R-SBPfwOM6SBPOvD[.SBP8ukz:SBO{ukO(SBOdvC1wSBOMwL{@SBO6y.u]SBNy{By@ !SBNb~/*kSBNL'MVp>5SBD'pnF>SBCk1Cm8SBCTLJWLSBC=h(]ISBC'*7}YSBBjFx\KSBBSd6RISBB=(%]| !SBB&FE}YSBAie=UeSBAS*f>nSBASB@;v5;:SB@%>vizSB?hb5Dv !SB?R+~~XSB?;PEaHSB>~u=EsSB>h@f*NSB>Qfeg]SB>;3XyNSB;gjVB@SB;Q=*QMSB;:j/KDSB:~=e.QSB:gkqSE !SB:Q@T^LSB::ohN7SB9~ER{2SB9gun/gSB9QL_xOSB9:~(EoSB8~U{J?SB8h.K*ESB8QaK>RSB8;:|+8 !SB7~o)H}SB7hIakEw>SB2(RC@PSB1l9po2SB1U{tMkSB1?dN4tSB1)MW||SB0m77pV !SB0V{Gh0SB0@f-b7SB0*QC]?SB/n=/WvSB/X)KPVSB/Ap=EfSB/+]_5{SB.oKVyiSB.Y9~[^SB.C(|4. !SB.,rO[aSB-pbRvrSB-ZS,*5SB-DD5(3SB-.5mo?SB,r'|J.SB,[t`k/SB,EgtvqSB,/[^knSB+sOxHU !SB+]DgeUSB+G:,gCSB+1/{LMSB*u&EmHSB*^w?ndSB*HniNvSB*2fhfSSB)v_=Z)SB)`XB()SB)JQv)' !SB)4L%[TSB(xF^d)SB(bAmA2SB(L=QKCSB(69e'2SB'z6N-.SB'd3f[hSB'N1TW[SB'8/qy7SB&|.de, !SB&f.,sjSB&P-~IlSB&:.K?cSB%~/GT&SB%h0s+=SB%R2sx%SB%<5J*jSB%&8OP,S@~j<*2PS@~T@4*S !S@~>Dm6eS@~(I{U^S@}lO_+lS@}VUqkhS@}@\Y`'S@}*cpa6S@|nk\miS@|Xsx*?S@|B|hIBS@|-,-oJ !S@{q5|A,S@{[@EpvS@{EK>IIS@{/Ve}0S@zsbbV^S@z]o4.PS@zG|4]6S@z2/d-CS@yv=hQMS@y`LAn- !S@yJ[J'nS@y4k'14S@xx{3.dS@xc1mx|S@xMB}ZUS@x7Tb+yS@w{fuEgS@wey]LQS@wP2t>jS@w:F_u. !S@v~Zz:*S@vhoi@7S@vS+-,-S@v=@yV>S@v'W@cCS@ukn6QmS@uV+Zz0S@sr)xl9S@s\EOnoS@sFaUDPS@s0~/EiS@ruA7q:S@r_^nkPS@rI|z3* !S@r4AYzUS@qx`h2QS@qc&JgQS@qMF[d/S@q7gA&wS@p|.TbPS@pfPqNV}S@o)3&S@l4biC%S@ky4hSyS@kca;dFS@kN46S@d,P/(, !S@cq3G=4S@c[q2|)S@cFUL/AS@c1:8c[S@buyRcRS@b`_@-]S@bKEZtZS@b6,I(~S@azmdWMS@aeUSJX !S@aP=oZ|S@a;&_-/=YS@`@(yqWS@`*n=`QS@_oZ.c%S@_ZFLwcS@_E3>C7 !S@_/z\x0S@^thNa.S@^_VmVfS@^JE_W^S@^54~bMS@]y~pukS@]do66;S@]O`(VPS@]:QG{.S@]%C:Hf !S@\j5Yq}S@\U(LAPS@\?ukisS@\*i^5iS@[o]}WkS@[ZRotVS@[EH50dS@[0>'>sS@Zu4FCaS@Z`+8=f !S@ZJ|W+cS@Z5tHf4S@Yzlg7mS@YeeXS9S@YP^v]*S@Y;XgSzS@Y&S+6SS@XkMu]HS@XVI8m8S@XAE(d\ !S@X,AEB:S@Wq>4^eS@W\;P^aS@WG9?@hS@W27Z]ZS@Vw6HYpS@Vb5c4/S@VM5PE+S@V85j1CS@U}6VQW !S@Uh7oJGS@US9ZtLS@U>;rtFS@U)>]HnS@TnAtJLS@TYE]wrS@TDIsufS@T/N\BcS@StSq7HS@S_YXRQ !S@SJ_l8\S@S5fRBJS@RzmdnUS@ReuIa^S@RP}ZtES@R<,>KDS@R'5N?=S@Ql?0NhS@QWI>xNS@QBSya( !S@Q-_,a2S@PrjewKS@P]vqHUS@PI)O-1S@P46X}sS@OyD5+HS@OdR=BFS@OO`qgMS@O:ox??S@O&%P|V !S@Nk5UitS@NVF,_zS@NAW/]IS@N,h^`wS@Mqz_i1S@M]32tfS@MHF2(DS@M3Y]6`S@LxmZDBS@Ld()P& !S@LO<~XHS@L:RK\.S@L%hDYoS@Kj~iP9S@KV;`={S@KAS({dS@K,jwT0S@Jr)=ytS@J]B07^S@JH[N@+ !S@J3u>7qS@Iy5Yw_S@IdPGJ0S@IOk`azS@I;-KcmS@I&IbNDS@HkfJz=S@HW)_29S@HBGE(uS@H-eV\z !S@Gs*9s+S@G^IHixS@GIi)@6S@G5/5NVS@FzOm9aS@FepvZ:S@FQ8QTwS@F?@D !S@A%kMh]S@@k?-J1S@@Vm8=YS@@BAnA_S@@-puU'S@?sFMvJS@?^vQJSS@?JM&*&S@?5~%m[S@>{UP_} !S@>g-LYqS@>R_sYvS@>>8k^pS@>)l4gDS@=oF(r1S@=ZzG}uS@=FU8/CS@=20S92S@?rS@<:VQ65S@<&44~HS@;klCc6S@;WJ}=?S@;C*-eGS@;.cc&4S@:tCi2ES@:_~@.aS@:K_Asl !S@:7@nLMS@9||kkCS@9h_9u3S@9TB2h^S@9@%VDPS@9+cJaHS@8qGid,S@8],YKd8S@+^TDHJS@+JTsy}S@+6UsCaS@*|WBX8S@*hY;\F !S@*T[^NrS@*@^Q.MS@*,amSsS@)reYctS@)^io]8S@)JnU>]S@)6sd`rS@(|yCh`S@(i%LTkS@(U+~}} !S@(A3'.}S@(-:RtWS@'sBN?MS@'_JsBIS@'KSg|5S@'7],7US@&}ft'7S@&iq1I{S@&U{rDUS@&B-(od !S@&.8bp7S@%tDlDmS@%`QEF;S@%L^Gs@S@%8kspeS>~~yo=;S>~k.:1`S>~W=.LdS>~CLL31S>~/\9=f !S>}ulOk9S>}a}5`IS>}N4Dv&S>}:E}PnS>}&X+IXS>|lj\_(S>|X}]5~S>|E7-'6S>|1K&1IS>{w_HSG !S>{ct:1uS>{P/U%eS>{{([RHAS>znr4t]S>z[/@WAS>zGFuI1S>z3^yHsS>yywLUyf6Hm. !S>yROn53S>y>ib`6S>y+*&8}S>xqDlr?S>x]`(VvS>xI{g?YS>x6=u+.S>w|ZQr:S>whwW_jS>wU;,LM !S>wAY*7,S>w-wPxJS>vtv`[e8CS>vL{RhPS>v9Ai6LS>v%bNT~S>ul)\hxS>uXK9q&S>uDm?l( !S>u15nXjS>twXl6%S>tc|8\SS>tPF-q,S>tt)58_SS>soZN6zS>s\&2QXS>sHL?T4S>s4ru=S !S>r{?yfIS>rggLs]S>rT5Hc{S>r@]m66S>r-,`C/S>qsU|/RS>q`%fT3S>qLOyUrS>q8z[3IS>q%KeEX !S>pkw>13S>pXI?N{S>pDuiCiS>p1HahDS>owv(aTS>odIr.+S>oPx0&lS>o=LpJOS>o)|%=vS>npQ\Yt !S>n]'bC8S>nIX6RbS>n6/3--S>m|`X+9S>mi8KKuS>mUjg3tS>mBCQ<%S>m.vcc)S>luPDMnS>lb*MU- !S>lN^~wdS>l;9~ZKS>l'oLV+S>knKBiMS>k['a9CS>kG^MxXS>k4;bqwS>jzsE~7S>jgQQB9S>jT0*pl !S>j@i,TdS>j-HVFjS>it(NElS>i`bnPXS>iMC\exS>i9~s*`S>i&`WQXS>hmBd%PS>hZ%>Y6S>hFbA7R !S>h3Eks;S>gz)dW8S>gfh+<9S>gSLs{-S>g@20^\S>g,qo?\S>fsW{vvS>f`>VO@S>fM%X{[S>f9g)F^ !S>f&N{c8S>em7Av2S>eYz/~eFcEzES>e3M)idz75IlS>df{htiS>dSfj4}S>d@R9=>S>d->02O !S>ct*NmGS>c`q;8oS>cM^OG]S>c:L1>[S>c'::vXS>bn(l:ES>bZqkbGa7|bS>b4Q,DsS>a{AHH2 !S>ah22+GS>aT}CGES>aAn|@xS>a.a(pvS>`uSV|.S>`bFRaGS>`O9uyUS>`<-fiJS>`(|%/pS>_ope%^ !S>_\erI]S>_I[M@`S>_6QOcVS>^}GyW0S>^j>pt9S>^W65_bS>^D-{rBS>^1&5P}S>]wxpTQS>]dqx{b !S>]QkNkHS>]>eK|MS>]+_pScS>\rZbI{S>\_U{^,S>\LQb4vS>\9Mp';S>\&JK3{S>[mGMYtS>[ZDw=p !S>[GBn8aS>[4A2I9S>Z{?wnDS>Zh?0LrS>ZU>j=[S>ZB>q?LS>Z/?EQ6S>Yv@@qdS>YcAcEoS>YPCS&H !S>Y=Eil;S>Y*HMb:S>XqKXa7S>X^O0g~S>XKS/uNS>X8WV.KS>X%\IEiS>Wlac`@S>WYgJ|uS>WFmY@G !S>W3t4]\S>Vz{6yMS>Vh(`8fS>VU0VN@S>VB8s_&S>V/A]ifS>UvJnm>S>UcTLhUS>UP^QZCS>U=h}AU !S>U*suv}S>Tr%;EUS>T_1'`*S>TL=:kGS>T9ItfFS>T&V{OuS>SmdO&kS>SZrICvS>SH&jL0S>S55X>> !S>R|Dls;S>RiTN5sS>RVdV9&S>RCu*{TS>R1,&H>S>Qx=HR1S>QeO7=yS>QRaLdXS>Q?t.jsS>Q--7Od !S>Pt@fkzS>PaTbdMS>PNi+8+S>P;}t?bS>P)9/z2S>OpNl2CS>O]dtu.S>OJ{J3@S>O88EyoS>O%Oh9T !S>NlgW%=S>NZ%l;xS>NG>M|DS>N4WV1KS>M{q*h&S>Mi1%j~S>MVKG98S>MCf5+WS>M1'I@uS>LxC)x- !S>Le_0v'S>LR{^9WS>L@>WuXS>L-[wtyS>Ktyd6SS>Kb=vm7S>KO\UcqS>K<{ZsCS>K*A,@US>Jq`}~C !S>J_'Aw[S>JLH,+9S>J9iJ'0r~}S>InRuhuS>I[uDb_S>II>9k1S>I6aU':S>H~+HkOIwk !S>HXs}U}S>HF>}=AS>H3dI,`S>G{0:|vS>GhVRxvS>GU}6yXS>GCJ@}kS>G0qq*IS>Fx?m2CS>Feh5:N !S>FS6}A`S>F@`7FnS>F./qHoS>EuYwFWS>Ec*I>vS>EPUA0iS>E>&^u&S>E+RHVUS>Dr~X.:S>D`Q3T~ !S>DM~4obS>D;Q[}8S>D)%N|PS>CpSglDS>C^(LKfS>CKWVsRS>C9--.YS>C&])/oS>Bn3Jv2S>B[d8LM !S>BI;KeZS>B6m*fRS>A~E/N+S>AkwYu4S>AYPP&eS>AG)koZS>A4]S@dS>@|7`LzS>@il998S>@WG7^J !S>@D|[aKS>@2XKA3S>?z4`VSS>?gkAFGS>?UHGiaS>?C%se>S>?0]k8/S>>x<.;*S>>etpm(S>>SS~rx !S>>A3XK_S>>.mWP.S>=vM|%5S>=d.k}mS>=Qj'JsS>=?Kb?>S>=--hYyS><=n5k7S><+RC&dS>;s6u[vS>;`usUdS>;N[;;*'?;jS>:qgxK)S>:_N|sPS>:M6LY| !S>::mvA-S>:(Kp1?S>9p*:),S>9]c.'(S>9KBL)aS>98|:/US>9&\R75S>8n=:?2S>8[xLE}S>8IZ.J: !S>87<:JMS>7~xpE4S>7l[v8zS>7Z?K~CS>7G}K_tS>75au60S>6}FnY^S>6k,7nzS>6Xl*t^S>6FRGi9 !S>6494K?S>5{zJsHS>5ib1,+S>5WJA'tS>5E2zeGS>52v*/1S>4z_]7eS>4hI_}_S>4V42KSS>4Cy.Ss !S>41dT;>S>3yPIZ?S>3g3U)W+KS>3Bpo4`S>30^VoiS>2xLh'@S>2f;HgpS>2T*R{xS>2At,b3 !S>2/d/s-S>1wT\S@S>1eEX[CS>1S6~/lS>1A(s)9S>1.u7F8S>0vh%+BS>0d[<10S>0RN|V8S>0@C2?1 !S>0.7kDPS>/v,sdoS>/c|KDhS>/QrL/?hvK\S>/-_ooeS>.uW8MdS>.cO*>4S>.QGE?aS>.?@/Pm !S>.-9Bp2S>-u3%B?S>-c-0ynS>-Q'ea?S>->|iQAS>-,x,tt8ECS>,bp]FSS>,PmQJZS>,>jnP2 !S>,,hZUiS>+tfoZ)S>+beS[XS>+Pd`XzS>+>d+,dAAYS>*tdo*'S>*bekbbS>*Pg762S>*>i+W& !S>*,kHisS>)tn4mBS>)bqI_}S>)Pu-@JS>)>y9g:S>),}ny)S>(u(rtLS>(c.EX'S>(Q4@|HS>(?:e,2 !S>(-AWsvS>'uHsD;S>'cP]OmS>'QXp;3S>'?aQ^wS>'-j[_cS>&ut4<.S>&c~5LfS>&R._67S>&@9WQ/ !S>&.DxB-S>%vPgafS>%d]%T_S>%RiesMS>%@vtbiS>%/*Q{4S<~w8WaAS<~eG+mmS<~SV(E:S<~AeM@; !S<~/u@]MS<}x+\ANS<}feuSNK'tSylS&^SOuc)UmpSQ&Cp{s;SQ1=^Q)mSQN0)}sSUP?4Ex}SUbuz+RT !SUvD`]_'SW0fI`8]SWF/@8BpSW\\e}Q]SWtEW`=sSY3PZ@}SSYN2v=9@SYjXS8fAS[.}4~dES[OaQIbS !S[s&N,{%S]?OcFfJS]i^i5wNS_>@4uIBS_rSO]2]SaSjYRmuSc>;atEzSe5Bv=G5Sg>ap7t,SidumM]| !SmeoaL(zSu3SaCN'T5Xju*{:Su7mY>9QSmg]K:.BSidg@OWOSgS[fD7Ba`S[Ap4ZFRSYy~}0B8SYZOK5JiSYuaSWH8y\GmSW0bQ(4[SUt=pVYSQWl80q6SQI{5M.FSQ=y0c}SG9,k_[3SG3zVr]gSG.s1L8tSG)pLCBOSE~rDnAASEyxlGv\ !SEu)`p67SEp8t5aGSEkLDdF(SEfc~t{dSEb%gM~RSE]EQC+YSEXi5`2wSET6ghpASEOb-1cDSEK73S^0 !SEFiti@hSEBF6vS5SE>&(3_`SE9cBu75SE5J'[86SE14*zoCSE,{Ggm{SE(kxv0[SC~__QS*SCzVPe*1 !SCvPGrpxSCrM@GWVSCnM5n3`fSCZwL2sMSCW.1G|oSCSAQ9z| !SCOWN&bbSCKo~3cGSCH1*3wzSCDN\[R>SC@n^1UgSC=7+Qv7SC9[uQ%{SC6)*}`4SC2RVxn(SC.~BCLW !SC+RD>BtSC((Yuy6SA~[&H6;SA{5[&Gq !SADPuttLSAAMhoMPSA>L?48bSA;LQ+V%SA8NBfodSA5QlFM^SA2Vr;beSA/]R`^\SA,eex5\SA)oPGt` !SA&zjKyZS?~-XO/ZS?{;rxcaS?xK^>IMS?u\s&F&S?roU_(|S?p)^e5WS?m?2kj)S?jV*M{*S?gnDC)< !S?e.%*J|S?bI%?R&S?_eCec^S?])%(FVS?ZG{|m.S?Wh9>/TS?U/ie>-&Oo5S?;Z^Tx|S?9/IFDuS?6_?|3.S?46AAlW !S?1hLL,SS?/A`C4,S?,u|*QnS?*QD`mHS?(-m8+CS?%e@kRoS=}CrOUPS=z}MGiBS=x^*^x^S=v?cFz( !S=s|BfnLS=q_{r_8S=oDYy\;S=m*61z6S=jji`v]S=hR?djBS=f:kPm[S=c~89<\S=ahY3CeS=_SsU5z !S=]@,[sLS=[-7_EtS=Xu9xU.S=Vd2g/YS=TS{Ee+S=RD_/i3S=P67AT%S=N(]>,wS=KuvCC3S=Ij'ox^ !S=G_%/@aS=ETmU`lS=CKLOyWS=ABu?mIS=?;3G_QS==4:0X`S=;..xFO[b_~S;>]+ !S9zLT'K8S9xo0qS9S`Og58S9R4cWMhS9PcCTR:S9O8IJ+aS9Mgt~.7 !S9L=l(e.S9Jn.D8iS9IDoc0mS9Gu{r27S9FMR^3aS9E%Mn=~S9CWm5lsS9B0VV;xS9@cccJ@S9?=:KA4 !S9=q4V?DS9S9;&86pLS99[AEM5S986m5dZS96laS|(S95Hx;<iS91fIjnIS90HlP,5S9/+R=pJS9-hU&jJS9,KtWUjS9+/Vhod !S9)mUME@S9(QpQv~S9'6MiCRS9%uG,X]S7~Z\B][S7}@3D[US7|&&%cWS7zf434}S7yL]`KFS7x3HFv] !S7vtN44}S7u[nuu(S7tCPKk_S7s+L]d%S7qmcEWTS7pV:QGnS7o?+u>\S7n(7KMhS7lk\|5(S7kUBGp> !S7j?AVu1S7i)ZCu,S7gn2]OBS7fX~>DiS7eD/5CuS7d/S7BgS7bu69>mS7aa20y*&S7HahdM]S7GSNuBH !S7FEKHJxS7E7^.UjS7D*,xW:S7BvkiIMS7AifR,6S7@\w)^wS7?PCA8aS7>D%5~*S7=7vY75S7<,)H3X !S7:zKT:5S79o(tq>S78cuGPLS77X|wbRS76N?I)PS75Cpg:US749\o{|S73/][%/S72%rz4@S70vBkDr !S7/m'&Q'S7.cyWWvS7-[,B]MS7,RM9jGS7+J(526S7*Aq,{*S7)9ssMpS7(20Ly~S7'*ZekXS7%}>\G2 !S5~v6)5nS5}o@xe/S5|h_5S%S5{b6f5oS5z[{OH=S5yUyCoAS5xP0<:7S5wJT1JMS5vE0v7dS5u?zOQl !S5t:|j8cS5s67eDJS5r1_9w*S5q-?:|eS5p)1a_NS5o%6M-BS5m{MPR:S5lwve0&S5ktX*:BS5jqKM4] !S5inPm@5S5hkh*'~S5gi70njS5ffq{2xS5eddNXSS5dbhX_8S5c`~8~AS5b_KC<^S5a^)q2XS5`\sbG} !S5_[tjh:S5^[-*(0S5]ZPN-sS5\Z*vo+S5[YpD0dS5ZYlc},S5YYyvEmS5XZ=uAjS5WZlZw0S5V[Q{;9 !S5U\GvNa #% [ 551] w.f2_cl !RPGKu|U.RPFyZdNoRPFM@}w`RPE{(no(RPENl7.BRPD|W0b{RPDPC[RBRPC~1]OrRPCQ{6T|RPC%l@[- !RPBS^{[_RPB'S3P*RPAUHv1kRPA)@5T;RP@W9%VvRP@+3F37RP?Y/=[+bbSRP>/,6q| !RP=].;:GRP=11oi9RP<_6zC}RP<3=Zx2RP;aEkK6RP;5OQj]RP:cZguzRP:7gSf_RP9euo6:RP9:+`89 !RP8h=&f0RP8zX(QSHeI'dWbSHdymABhSHdP[H32SHd'KxrBSHcX>y;i !SHc/4I2xSHb`,BGCSHb7&dhRSHag}V+}SHa>|p5BSH`o~Xt-SH`G(i}uSH_x/IBBSH_O8Pe'SH_&D%{\ !SH^WQ|ujSH^.bGC3SH]_u9-PSH]70Q~LSH\hH7qiSH\?bDQ7SH[p~wfSSH[HCwGOSHZyeC=tSHZQ/59V !SHZ(UM*?SHYY~0Y|SHY1O9^LSHXb|h'YSHX:RaY?SHWl+&/PSHWC_iN,SHVuI:SHSi@9jVSHSA0XDFSHRr}?znSHRJrJI}SHQ|iwV%SHQTcm5& !SHQ,`+16SHP^^e:dSHP6_gAgSHOhc16SSHO@hvc(SHB0p7o:SHAcd[_JSHA<[AYASH@oTCMbSH@HOa-?SH?{M@By !SH?TM;%JSH?-OPyUSH>`T'|2SH>9Zsx,SH=ld&^8SH=EoMyKSHCHSH5^MeexSH58*JU6SH4kcF\DSH4EDYl[SH3y()w5SH3RgjmASH3,Oh@; !SH2`9|;:SH2:&LOWSH1mo2nSSH1G`//JSH0{SA7XSH0UHhxASH0/@L/&SH/c:D['SH/=6R9gSH.q4tpV !SH.K5R@OSH({Sga]SH(UsI[\SH(0;=z*SH'd_DT\SH'?+]6zSH&sT-lfSH&M~j3` !SH&(Q^1LSH%]&cWkSH%7Wz>KSF~l1H11SF~Fg&{`SF}{Dp[kSF}U~pw@SF}0a'f&SF|eEHshSF|@+z8C !SF{tnaY_SF{OYXoSSF{*F_kqSFz_5v@TSFz:'B9NSFyntwHWSFyIja_kSFx~bZq+SFxY\bnHSFx4XyIe !SFwiWDO)SFwDWwpHSFvyZ_EjSFvT_Tu7SFv/fX9/eSFt+P%I0 !SFs`cx[;SFs;y~X:SFrq872roSFo~iKKj !SFoZ8cGUSFo5d,XLSFnk7ZphSFnFg:(mSFm|>~&xSFmWrr]MSFm3NqdhSFli,{/5SFlDg4c1SFkzIR?% !SFkV-yi8SFk1nPz5SFjgW1dCSFjCAut2SFiy.iB+SFiTwetZSFi0hkJ7SFhf[yiJSFhBQ6jgSFgxHV@e !SFgTA~7vSFg0=TBpSFff;2T/SFfB:r^BSFex<`T*SFeT@V'xSFe0FS&YSFdfNWB^SFdBXbnjSFcxduC^ !SFcTs4gxSFc1)TtCSFbg;{[XSFbCPNjESFayg(9KSFaV%aoTSFa2@GKLSF`h]2svSF`D{~'gSF_{Btgg !SF_WepreSF_40r;RSF^jWxhySF^G'*9sSF]}R:U5SF]Z%OShSF]6Ti(NSF\m,,z:SF\I_O-}SF\&:uD^ !SF[\rEW2SF[9QsXPSFZp3K;[SFZLq&MQSFZ)V_'4SFY`>@o]SFY=(%evSFXsmgW&SFXP[R6(SFX-K?P& !SFWd=/>)SFWA0{M6SFVx&opYSFVTxfAASFV1r^fTSFUhnXyDSFUElTlzSFT|lR4PSFTYnPw1SFT6rPt- !SFSmxQxXSFSK&SwjSFS(0VdySFR_:apySFGu~>fvSFGSir9YSFG1WH6[SFFiFtQZSFFG8B~6SFF%+gV)SFE\{.&qSFE:rJ>;SFDrkb5z !SFDPfu[`SFD.d*I,SFCfc4K{SFCDd9X&SFB|g9a&SFBZl4ZeSFB8s*8uSFAp{tICSFAO,_%qSFA-9Cv; !SF@eG|zCSF@CXV%|SF?{k(z~SF?Z%O_pT/g)SF>NnBrCSF>-0O6MSF=eNT[=SF=CnRzj !SF<|6J.rSF[>z`SF5wGH3= !SF5V5GSpSF55%^;SF/3zyH1SF.sA)ypQSF-}L?@qSF-boAICSF-H9&-|SF--]GFgSF,m(K7_ !SF,RN1XgSF,7tTM}SF+wAYoKSF+\iAa)SF+B7ezuSF+'`l`zSF*g0Uk;SF*LZ{=mSF*2,)0\SF)qWmAf !SF)W*9o1SF)dSDy%ivT}SDxeT{>sSDxK@aTKSDx1-)9e !SDwpt,FkSDwVajybSDw'65wSDm~*UWySDmd.U^6SDmJ36FjSDm08QigSDlp>Mk6SDlVE*I8 !SDl`W(M&S9?C))8sS9@%_w[pS9@bGcGp !S9AE:JDhS9B(80BFS9Be@s2JS9CHTbb[S9D+s\nYS9DiCeN&S9ELy&TVS9F0_W}tS9FnQImeS9GRNY}l !S9H6W2U{S9Htk1T.S9IY0Z~9S9J=[Y(NS9J|8/k&S9K`z=D?S9LEn+vpS9M*mY_GS9MixpjoS9NO5uTA !S9O4Xl37S9Ot-X{-S9PYh@9rS9Q?U&A_S9R%MiXwS9ReRZHKS9SKcW5=S9T2&dFwS9TrP,M5S9UY+gt? !S9V?mg6sS9W&b.y}S9Wgbwc/S9XNp8(;S9Y60([qS9YwVN*sS9Z_/S,nS9[FoES9pPH.c~S9qV) !S9tHCMe*S9u58?z~S9u|;u1WS9viN?3tS9wVoW|US9xDEkUZS9y2+%taS9yyyA*wS9zg|i5*S9{V5JEL !S9|DWDl+S9}3.^b\S9}{oD@OS9~jeUzhS;%Yk?|FS;&I&bh(S;'8Kjd@S;((&^A]S;(qkD.BS;)ae|\d !S;*QpZO)S;+B1>?_S;,2\.lqS;,}=2e-S;-n.PnzS;._05{1S;/PBB~[S;0Ad~rSS;13>%W>m6S;>t7-yaS;?i(w/.S;@^,n9/S;ASBu:JS;BHk:4sS;C>Ky/U !S;D4?,6hS;E*Di\.S;Ez]+\ZS;Fq..TXS;GgkzetS;H^bd]rS;IUlNiHS;JM/Aa'S;KD_E|wS;LEBS;apD`w|S;bmYtw]S;ck+*qWS;dhlA@QS;efihz^S;fd}RUnS;gcMbwSS;hb4J~~ !S;ia1omCS;j`F(KUS;k_q4*\S;l_YC}aS;m_XcW}S;n_oD=,S;o`CK^sS;pa/+CaS;qb2I.ES;rcMVjK !S;se&`>,S;tfqq`ES;uh{=)6S;vkC(aRS;wm}@sFS;xpv8,(S;yt-tp+S;zwXOkKS;{{B/a\S;}%D{Eg !S;~)a1n^S=%.cb\S=56+,sWS=?A}L_{S=@N9DW1S=AZl~}8S=BgdXOgS=Ctz;gr !S=E(T9^RS=F6Lc4TS=GDcoRtS=HS?o|mS=Ib:v)}S=JqU9HhS=L'5%n9S=M74M>VS=NGSg{&S=OX9.2A !S=Pi>fDcS=Qzdo:1S=S2Q[^]S=TD_>Z=S=UW4+?VS=Vj*51TS=W}Aod(S=Y6{:gvS=ZJ|^96S=[_F:?F !S=\t2=?\S=^/@{jyS=_DrVPRS=`Zm8S=h2lMy) !S=iKUhE)S=jdd/9ZS=k~=mNeS=m>=,7LS=nXb6o{S=osSJ|(S=q4k&O7S=rPO;M1S=slZH;tS=u/2eR; !S=vL2R*'S=wiZ'(IS=y-OWp8S=zKmJ.?S={jYqioS=}/o5&cS=~OSbChS?%oa`Q?S?'6?JSBS?(WG;g{ !S?)xyOmmS?+@|H^@S?,cPBN3S?.,OYmdS?/OzQUAS?0swFmmS?2>FW.rS?3cBF;JS?5.k2F3S?6Tg9yv !S?7{6{l)S?9H4c++S?:o`i>wS?<=aTAWS?=f7DGHS??5o`S?K)6JdkS?LW5J||S?N+gd82S?OZsaK5S?Q0Yh*YS?R`tD'+S?T7iu`9 !S?Ui:ok3S?WAAYa3S?Xs~[,GS?ZM>Bw+ !S?e]f{UsS?g<+0<}S?hu*>)]S?jTdxLDS?l5'YUsS?mp&j+yS?oQc%Dop,S?{DsgLtS?},63.qS?~n:b'_BR{SA<0tjWiSA=}{QWd !SA?qt8reSAAf_bi.SAC\>^Q*SAERkp>FSAGJ4)D.SAIBL)vBSAK;Z_7sSAM5`]X3SAO0^nE+SAQ,V((o !SAS)G07|SAU'2yYCSAW%tD(2SAY%X8^*SA[&9M_FSA]'rzY6SA_*Q^5hSAa.0LRbSAc2j@uLSAe8L8'f !SAg?1/|(SAiFt(24SAkOa{KzSAmYUx1tSAodP|+}SAqpT2VYSAs}`VKCSAv1w<28SAxA?GjUSAzQn+&> !SA|cPM=;SA~vAc`OSC'0C%+_SC)EUX6gSC+[z]WWSC-sYKYXSC02M:[fSC2LWDzOSC4gy,yjSC7*Yj}E !SC9HTkY,SC;gkQI=SC>.EACISC@P=bTmSCBsV*MNSCE>5xy,SCGd8n<8SCJ1`;5YSCLZSm'TSCO*o+ea !SCQVYcrgSCT)oBnSSCVXW`h)SCY.nJd)SC[`[DcJSC^9z;j+SC`nrz+vSCcKG>|+SCf)S5*JSChc>VC4 !SCkDeF8{SCn'o_bySCpf_MCISCsM6qRNSCv5Q~E7SCxyY)~~SC{eNSC~S3tIVSE'Bf:)iSE*43bQ+ !SE-'R_6}SE/vkZ@sSE2n'(evSE5g;X;GSE8bQmi\SE;_lMC/SE>_4:HJSEA`_}tBSEDd>XJgSEGj,xOz !SEJr.*V_SEM|E)DMSEQ.u'})SET=g:2,SEWNxzE`SEZbSV3_SE]xTPAaSEa7%?+{SEdQ}ZI&SEgoS.82 !SEk5]\`{SEnXG(IfSEq}mDrwSEuKz`U^SExvs3ABSE|J[2jTSG%{7*TxSG)TeJZiSG-16seOSG0jd7iw !SG4M>B2'SG82~<6/SG;uu5[rSG?b(Jx~SGCQQK~)SGGDApHvSGK:YJ-RSGO4D-rrSGS1b%xjSC&^SOuc)UmpSQ&Cp{s;SQ1=^Q)mSQN0)}sSUP?4Ex}SUbuz+RT !SUvD`]_'SW0fI`8]SWF/@8BpSW\\e}Q]SWtEW`=sSY3PZ@}SSYN2v=9@SYjXS8fAS[.}4~dES[OaQIbS !S[s&N,{%S]?OcFfJS]i^i5wNS_>@4uIBS_rSO]2]SaSjYRmuSc>;atEzSe5Bv=G5Sg>ap7t,SidumM]| !SmeoaL(zSu3SaCN'T5Xju*{:Su7mY>9QSmg]K:.BSidg@OWOSgS[fD7Ba`S[Ap4ZFRSYy~}0B8SYZOK5JiSYuaSWH8y\GmSW0bQ(4[SUt=pVYSQWl80q6SQI{5M.FSQ=y0c}SG9,k_[3SG3zVr]gSG.s1L8tSG)pLCBOSE~rDnAASEyxlGv\ !SEu)`p67SEp8t5aGSEkLDdF(SEfc~t{dSEb%gM~RSE]EQC+YSEXi5`2wSET6ghpASEOb-1cDSEK73S^0 !SEFiti@hSEBF6vS5SE>&(3_`SE9cBu75SE5J'[86SE14*zoCSE,{Ggm{SE(kxv0[SC~__QS*SCzVPe*1 !SCvPGrpxSCrM@GWVSCnM5n3`fSCZwL2sMSCW.1G|oSCSAQ9z| !SCOWN&bbSCKo~3cGSCH1*3wzSCDN\[R>SC@n^1UgSC=7+Qv7SC9[uQ%{SC6)*}`4SC2RVxn(SC.~BCLW !SC+RD>BtSC((Yuy6SA~[&H6;SA{5[&Gq !SADPuttLSAAMhoMPSA>L?48bSA;LQ+V%SA8NBfodSA5QlFM^SA2Vr;beSA/]R`^\SA,eex5\SA)oPGt` !SA&zjKyZS?~-XO/ZS?{;rxcaS?xK^>IMS?u\s&F&S?roU_(|S?p)^e5WS?m?2kj)S?jV*M{*S?gnDC)< !S?e.%*J|S?bI%?R&S?_eCec^S?])%(FVS?ZG{|m.S?Wh9>/TS?U/ie>-&Oo5S?;Z^Tx|S?9/IFDuS?6_?|3.S?46AAlW !S?1hLL,SS?/A`C4,S?,u|*QnS?*QD`mHS?(-m8+CS?%e@kRoS=}CrOUPS=z}MGiBS=x^*^x^S=v?cFz( !S=s|BfnLS=q_{r_8S=oDYy\;S=m*61z6S=jji`v]S=hR?djBS=f:kPm[S=c~89<\S=ahY3CeS=_SsU5z !S=]@,[sLS=[-7_EtS=Xu9xU.S=Vd2g/YS=TS{Ee+S=RD_/i3S=P67AT%S=N(]>,wS=KuvCC3S=Ij'ox^ !S=G_%/@aS=ETmU`lS=CKLOyWS=ABu?mIS=?;3G_QS==4:0X`S=;..xFO[b_~S;>]+ !S9zLT'K8S9xo0qS9S`Og58S9R4cWMhS9PcCTR:S9O8IJ+aS9Mgt~.7 !S9L=l(e.S9Jn.D8iS9IDoc0mS9Gu{r27S9FMR^3aS9E%Mn=~S9CWm5lsS9B0VV;xS9@cccJ@S9?=:KA4 !S9=q4V?DS9S9;&86pLS99[AEM5S986m5dZS96laS|(S95Hx;<iS91fIjnIS90HlP,5S9/+R=pJS9-hU&jJS9,KtWUjS9+/Vhod !S9)mUME@S9(QpQv~S9'6MiCRS9%uG,X]S7~Z\B][S7}@3D[US7|&&%cWS7zf434}S7yL]`KFS7x3HFv] !S7vtN44}S7u[nuu(S7tCPKk_S7s+L]d%S7qmcEWTS7pV:QGnS7o?+u>\S7n(7KMhS7lk\|5(S7kUBGp> !S7j?AVu1S7i)ZCu,S7gn2]OBS7fX~>DiS7eD/5CuS7d/S7BgS7bu69>mS7aa20y*&S7HahdM]S7GSNuBH !S7FEKHJxS7E7^.UjS7D*,xW:S7BvkiIMS7AifR,6S7@\w)^wS7?PCA8aS7>D%5~*S7=7vY75S7<,)H3X !S7:zKT:5S79o(tq>S78cuGPLS77X|wbRS76N?I)PS75Cpg:US749\o{|S73/][%/S72%rz4@S70vBkDr !S7/m'&Q'S7.cyWWvS7-[,B]MS7,RM9jGS7+J(526S7*Aq,{*S7)9ssMpS7(20Ly~S7'*ZekXS7%}>\G2 !S5~v6)5nS5}o@xe/S5|h_5S%S5{b6f5oS5z[{OH=S5yUyCoAS5xP0<:7S5wJT1JMS5vE0v7dS5u?zOQl !S5t:|j8cS5s67eDJS5r1_9w*S5q-?:|eS5p)1a_NS5o%6M-BS5m{MPR:S5lwve0&S5ktX*:BS5jqKM4] !S5inPm@5S5hkh*'~S5gi70njS5ffq{2xS5eddNXSS5dbhX_8S5c`~8~AS5b_KC<^S5a^)q2XS5`\sbG} !S5_[tjh:S5^[-*(0S5]ZPN-sS5\Z*vo+S5[YpD0dS5ZYlc},S5YYyvEmS5XZ=uAjS5WZlZw0S5V[Q{;9 !S5U\GvNaS5T]NFg5S5S^e@=aS5R`2]B2S5Qaj>3gS5PcX7.^S5OeVBR*S5NgdZf?S5Mj(z6[S5LlWAE8 !S5Ko;^cCS5Jr/re+S5Iu3w{NS5HxGi&IS5G{k@PbS5G%DS%vS5F)-AG:*tS5@C2HQHS5?H,h78S5>M6:.SS5=RNm2,S5Jy:S59i8hSV !S58oAtFgS57uYi\wS56|&CHaS56([Vs-S55/EE9aS546=cdGS53=DSUWS52DYj%{S51K}HJeS50SUD-@ !S5/[;XGWS5.c0&a\S5-k2^EyS5,sCFu:S5+{b5dWS5+*5&?1S5*2on2QS5);^TnCS5(D[/pZS5'MeTmF !S5&V}e@{S5%`I\}mS3~i}7POS3}sdJOaS3|}Y7`9S3|-[Ti'S3{7kCS+S3zB.YcHS3yLY9--S3xW77S@ !S3wa|Pm4S3vlu&mpS3uwziJMS3u)3`T0S3t4Sb)zS3s@&izxS3rK`t6&S3qWM|h.S3pcH%]|S3ooNxt= !S3n{bdUYS3n.)>bAS3m:V]HfS3lG6blyS3kS}K&tS3j`vl8@S3im|hVhS3h{5<9VS3h.T=MoS3g<%hNN !S3fI]_R*S3eWGxq%S3de>VkFS3csAO\|S3c'P_cAS3b5l)CZS3aD9\xbS3`RmBq1S3_aS1Q2S3^pE%>X !S3^%Bt`sS3]4Lh-4S3\CbV(3S3[S*:~4S3ZbWmO-S3Yr75~JS3Y'|E/6S3X7s=H&S3WGuuI)S3VX*5g} !S3UhD/('S3Txi]uwS3T/@d}tS3S?}@{aS3RPkHRPS3QadxA(S3Pris-OS3P)z5YIS3O;;pSwS3NLblaP !S3M^;&n(S3LoxOfyS3L'g0:xS3K9`y42S3JKesD3S3I]uu]sS3Hp6|uYS3H(],&{S3G;43v~S3FMp7P+ !S3E`]3_rS3DsU%GHS3D,Wc]%S3C?e7DES3BR}QVHS3AfFU9ES3@yt?HmS3@3Rg-SS3?G;oEYS3>[/U\W6& !S3.Ts{vZS3-k;@x^S3-'fW\IS3,>AcC7S3+U&aOMS3*koOJYS3*(h*Y2S3)?jJFgS3(VvR9~S3'n2?ZZ !S3'+QiwrS1~r5{@ES1~/{r7-S1}Gq?PrS1|_p:bPS1{wxaAlS1{60VyYS1zNKs-^ !S1yfpYDgS1y%Da>\S1x=|.O{S1wVbrTMS1voRw(cS1v.L9^S1ql1>m&S1q+jh0-S1pESG7SBS1hY7fT8S1gt1&,NS1g53(&@S1fP=j2mS1ekQ6CsS1e,m>L9 !S1dH8&?JS1cceEklS1c%A@lSS1bA%o7XS1a\ltweS1`xbOpTS1`:`WtES1_Vg0|ES1^rv3(NS1^53\'F !S1]QSOtWS1\m{fX>S1\0RD)WS1[M1@@3S1ZirY@\S1Z,b3*8S1YIZ%V}S1XfZ.mcS1X)bLosS1WFr}_h !S1Vd1e@BS1V'R[o@S1UD{_=/S1TbRmbvS1T&2+2VS1SCsIf\S1RabmRHS1R%Z:WtS1QCYc%hS1Paa0yH !S1P%pVNtS1OD-wd|S1NbM8m1S1N&tKsOS1MEIU*mS1Ld&RT[S1L(eBK'S1KGQ|vsS1JfFL3]S1J+BbEK !S1IJFcc)S1HiRNCyS1H.ezT6S1GN'2LUS1FmJ(@ES1F2tZC_S1ERLlk+S1Dr,]quS1D7n+n'S1CW].u} !S1BwSeFyS1B=QsR^S1A]WWWNS1@}dinJS1@CyNW-S1?d;^+cS1?*_K0B^OS1=kbn@*S1=2Bc|E !S1(O8HS1+`v;e;S1+)px1tS1*LrO%< !S1)ozrlsS1)90.(bS1(\F3;6S1(%c&yGS1'I,a^dS1&lW-u1S1&6.>9/S1%Yf75ZS/~}JqA}S/~G6766 !S/}k(;D[S/}4z|F+S/|XzDmxS/{}&G;}S/{G3(>SS/zkF@PT~S/sa[dB:S/s,iUEqS/rQ}j@r !S/qw>GnjS/qB_FWQS/ph,e7ES/p3ZHK3S/oY4Hv,S/n~neAgS/nJUBF5S/mpB8gtS/m<5G1dS/lb.l<{ !S/l..LoCS/kT4AT|S/jz@I.HS/jFRbS/ZWSd2bS/Z%_bitS/YMqN\5S/Xv/&V9L{S/VcljAdS/V2G'Zh !S/U[&~2oS/U)f^s(S/TRQ|\kS/S{B|?oS/SJ9\lC1`S/Ctyh\TS/CE`O`icOpS/>2*o:cS/=]K1BZS/=.p\jPS/mS/1t@+x5S/1G%ZQQ !S/0sj(.'S/0FYGqAS//sM^q2S//FFl7WS/.sDo(qS/.FGfOTS/-sOQ\GS/-F\/ZLS/,smYTzS/,G)tWK !S/+tE%m[S/+GdzIQS/*u/cQ@S/*HY:7SS/)v-WbnS/)I`a,2S/(w>UTcS/(J{45qS/'xbV7=S/'LN`fn !S/&z?Rx[S/&N5+z{S/%|/D|OS/%P.C1vS-~~2%^?S-~R:E\uS-~&GH=4S-}TY,hoS-}(oL;kS-|W0Kz6 !S-|+P+&JS-{YtB_)S-{.C8&uS-z\pdB}S-z1HljXS-y`%PU/S-y4`hn?S-xcFZn&S-x81%fHS-wfy|ih !S-w;mQ0\S-vjeV'iS-v?b0b1S-unc:>xS-uChr+SS-trr};PS-tH'[(_S-sw:da%S-sLR?DkS-r{nDBH !S-rQ4rnNS-r&Yp)nS-qV);=RS-q+W-dgS-p[/FZ}S-p0f+5qS-o`G4e6S-o6,bK(S-nepYW]S-n;^sGH !S-mkQU0{S-mAHX+3S-lqC{M%S-lGCdSfS-kwGlVdS-kMP8mXS-j}\|V.S-jSn)(?S-j*)KV@S-iZC/DS !S-i0a-ePS-ha)EwzS-h7Ow:oS-ggzf{OnDUS-fo)2d2S-fE`g?kS-evBWK=S-eM(\FbS-d}luL: !S-dT[GvBS-d+N-+VS-c\D~:aS-c3@,d^S-bd?EjZS-b;BngnS-alJLwmS-aCV9\8S-`tf40tS-`Kz;ko !S-_}8Ou9S-_TToiNS-_+u@e(S-^]?v*bS-^4h[1=S-]f;I;rS-]=l?gaS-\oG=x.S-\G&C0dS-[xcNc8 !S-[PJ_yVS-[(5v7hS-ZZ%6p+S-Z1rU2wS-YcivRpS-Y;e@:ZS-Xmdec*S-XEh27@S-WwoY0WS-WO{%n7 !S-W(0K[lS-VZCos(S-V2[7yoS-UdvW63S-U=;r|u-}rR}?}r(ZCR};c;%T8R}7I)xj'R}3/>hAi !R}.oyH6rR}*W%lL8R}&>Qu,0R{|&I\6GR{whfur2R{sQOb4)R{o:]u:.R{j~7O5jR{fh6D3uR{bRZNBg !R{^=Igq{R{Z(^0xZR{Un=Wi-R{QZA|W=R{MFk?XBR{I3_O(oR{DzxK:fR{@h\.MBR{R{8E7G,[ !R{44.q2bR{/}JkR7R{+m10Q9R{'];nQ0Ry}Mjkt]Ryy>c}+iRyu0'BOtRyp{hjSaRylmt;_.Ryh`IdAP !RydSC+%GRy`F`>6dRy\:G>H\RyX.R&/[RyS}&IuIRyOqxJ=)RyKg9{lqRyG\y%*FRyCS'N^NRy?IS?17 !Ry;@HK3{Ry77`mECRy3/BFE6Ry/'G*n]Ry*ynoI{Ry&r_ZnjRw|ksAgrRwxeOxu;Rwt_OF~5RwpYqZk1 !RwlT\U%jRwhOj0L|RwdK@AroRw`G9**^Rw\CT=ptRwX@7x':RwT==yLWRwP:fZRw03{?GSRw,4mshNRw(6(7E/Ru~7^96=Ruz9[t;r !Ruv;{/VzRur>at/gRunAj.}URujE9i6lRufI*io)RubM=+x}Ru^Qp^\FRuZVkH|,RuV\-@./RuRaj?1U !RuNgnA8SRuJn9APBRuFu%;-@RuB|2)8tRu?)_a)YRu;1T)j}Ru79i2[fRu3BDviWRu/KA=OO,RsS:N^e?RsOHkoFRRsKWNkr,RsGfQOZDRsCusp&_Rs@+[nYDRs<;cFgjRs8L0M|< !Rs4\w%h1Rs0n(}WdRs-%TBxjqWh !RmdcX>*QRma.bBu(Rm]T.|20RmYyr1y@RmVEwnF{RmRl?yZ9RmO8~Oe-RmK`%Ft@RmH-B[;JRmDT|.|k !Rm@|wr9URm=K5m5[Rm9siv'bRm6B`.{>Rm2krH4_Rm/;FctqRm+e6~AcRm(5C9ckRk~_kFdn2RismT:TaRipG*NIJRilzuBxQ !RiiU&nZbRif/LswRRibd3OI2Ri_?4WXQRi[tP.{/RiXP,,->RiU+|KSyRiQb3/lfRiN>^/OzRiJuIG0Z !RiGRNsBDRiD/nV_WRi@gNGc:Ri=EHC)-Ri9}\EANRi6\0K/HRi3:xQ*YRi/t&SkGRi,SHOvmRi)3*B,V !Ri%m&&zzRg|M;U4~Rgy-joJCRguhYrC=RgrIbZ\gRgo+*~zERgkfg(&FRghHb`S_Rge*wq3gRgagLV`m !Rg^J:gg_Rg[-BG/gRgWjcKU1RgTNCqfWRgQ2=\MFRgMpPbMSRgJT}&Q\RgG9hYDvRgCxmCm7Rg@^1<]& !Rg=Ch@[KRg:)^LV1Rg6im];QRg3P;oTKRg06}&6PRg,w}2+qRg)_<6%?Rg&Fn.n6Re}.^sDUReyphLNx !RevY0k&WResAkqs9Rep*e]uARelmx+{pReiWI2|ERefA2om,Rec+5+DiRe_oOpTiRe\Z).;(ReYDtoJ1 !ReV/~|{4ReRuGSmrReOa(JvPReLL{_5vReI933[YReF%\y/TReBlDxbDRe?YE/=9Re7w=p !Rcp.aT3~RclyHr?xRcijGtg7Rcf[^XU{RccM2tlsRc`>xlY2Rc]0|<|YRcY}==+MRcVooi|[RcSb_fkL !RcPUg0[sRcMI+xXERcJ\Rc=gaorsRc:\XFI+Rc7Qf-)JRc4G0z|W !Rc1@xQJ5Ra;=2`@SRa89]/CoRa56CoqGRa23@k2y !Ra/0SxZeRa,-};SJRa)+be<9Ra&)^?4mR_}'oz]@R_z&=`|AR_v~{IXyR_s}u1neR_p}*q+bR_m|PPfC !R_j|2(3^R_g|)Nk&R_d|6g|FR_a|Yq2*R_^}8gdvR_[~-I,5R_Y%7la_R_V&WuwRR_S(3b:JR_P*%/+Q !R_M,,3rAR_J.Hn(vR_G0{'+gR_D3hjIiR_A6l'RDR_>:*ioCR_;=Xzq%R_8ABX(+R_5EAXsfR_2IUzqX !R_/N%aMbR_,Rdd4VR_)W_&S0R_&\nY|lR]}b9H+FR]zgsHA0R]wmhX8hR]tsruAFR]qz8C0WR]o&ls6B !R]l-\O)+R]i4a.9bR]f;zh?LR]cCOFl*R]`K8{=cR]]S7O@vR]Z[JtNcR]Wcs4@QR]TlV@J0R]QuNaO?R]:k(9_^R]7v&F/HIR]/>B%P%R],J87G%R])VBqgOR]&bax7qR[}o;HL~R[z|):.5R[x/+Jq,R[uaR[leK.-)R[isX]EOR[g'zCk|R[d6V9+%R[aEF:uLR[^TJF|PR[[cb[%lR[Xs4teFR[V(u7m^ !R[S8oV%GR[PH}s'nR[MYF2\QR[Ji|FQFR[GzlRHmR[E1pT+TR[BC.I<^R[?TZ/e^R[9RYI8A{CRRYFP?F,>RYChOrGLRYA&sJ04 !RY>?P%6*RY;X?[O&RY8qB6q?RY60Wi9SRY3J&w]OGRUgb4k2&RUe+]kC*RUbO>\/kRU_s1;YlRU]=5an~RUZaKrwZRUX+sl|.RUUPSN+C !RURuDnBKRUP@GqpkRUMe\Vf/RUK1(u,ORUHV`q(4RUE|PHcoRUCHQT6FRU@nd7_&RU>;.K5>RU;ad2x} !RU9.QG(9RU6UP+]JRU3|`8qRSQ*V.NSRSNVQxbSRSL(^bBIRSIT|C\W !RSG'Ptk_RSDT6@*\RSB',WbaRS?T3_u?RS='KVx;RS:Tt;'XRS8(SdMVRS5VCwLkRS3*Dr<,RS0XVS2Z !RS.,xrGbRS+[Qt8~RS)0;VxORS&_5rj>RQ~4@l&tRQ{c\@z~RQy9.Iq[RQvhk*}|RQt>^<_YRQqna}0: !RQoDv6c|RQlu@ua,RQjKv*B0RQg|a`{zRQeS]cu]RQc*j1JRRQ`\,{p5RQ^3Z3NURQ[e=d[aRQY=1YY| !RQVo5jf,RQTGJSRQCD*BL[RQ@wfQgb !RQ>QXlTxRQ<+[73iRQ9_mc}rRQ7:6=E2RQ4nhu]lRQ2IQW49RQ/~J:C-RQ-YRwQBRQ+4kY&+RQ(j:7uvRMVmktIVRMTS6L_RKaV_0(gRK_Ai;^jRK]-'j:]RKZrN`LhRKX^)vqjRKVImR,VRKT5eJh0RKQ{k_MgRKOh&4nn !RKMTH}N~RKKC?aLVRKI2DdAiRKF{X*`ARKDjyg&0RKBZOcy=RK@J3y~-RK>:&Mg/RK<*'7g)RK9t66Vr !RK7dSHibRK5T~lxuRK3E^G^'RK16L1LsRK/'H(yHRK,rR,cjRK*cj;@HRK(U6SCqRK&FjsHxRI~8S@*] !RI|*Ikx1RIyvNAXtRIwh`s\LRIu['L^\RIsMV%;LRIq@8V)-RIo3))]~RIm&'R\iRIjs3u\5RIhfN79= !RIfYvJ+;RIdMRRiQRIbAojk@RIO3{v>oRIM);hW'RIJxc@9_RIHn>Uz`RIFd'NF5RIDYx(0URIBO|;t;RI@F4.>(RI>RI3hTY&.RI1_kJF?RI/W5ia-RI-Ng[XwRI+FLxjDRI)>?ex7 !RI'6?{eMRI%.M^o;RG}&hgx{RGzy7;f.RGxqm2tIRGvjVL-jRGtcM,*@RGr\Q+N.{;RGGFI/|WRGEBa433 !RGC?,:;MRGA;^@~'RG?8CG/^RG=55KG9RG;24LSvRG9/@I>yRG7,Y@KlRG5*%0d/RG3'WrqbRG1%=Q^Q !RG.}0%naRG,{/H2XRG*y;]H`RG(wTdA\RG&uz[b>RE~tSB;^RE|s8pluREzr+2-HRExq*8v^REvp6*&C !REtoN^6CRErnsz8aREpnK|sUREnn0dy?RElm|16PREjmz:KlREhn+%L.REfnBJ~NREdnfOv*REbo=2z= !RE`ozLx]RE^pjB^pRE\qfltkREZropNPREXt+L42REVuMXn2RETv|;7%RERx]L1KREPzK0LtrRE-XDn4QRE+\iZUqRE)a@\q&RE'e}sx9 !RE%jmD]yRC}oi'ndRC{tpvC=RCyz*{(VRCx%K4kXRCv*wVKXRCt0V*ovRCr6@dr.RCp<7OEtRCnB:C9, !RClHI??bRCjNdBMtRChU1KW}RCf[dYRORCdbIk1|RCbi;%E@RC`p8;'GRC^wAQ'ERC\~Vf:ORC[+wyV2 !RCY3K/o}RCW;*;}dRCUBoBu7RCSJfCLURCQRiPC:&DRCxRC:cKIx@RC8m41piRC6w(\zbRC5'(p4^ !RC314jKHRC1;LJ]mRC/EoidwRC-PDlYzRC+[%R6=RC)eksMHRC'pcu?'RC%{gV^~RA~,vpMARA|87g^3 !RAzC^;1r #% [ 2551] o.f1 !S94,jo5zS94gHW-oS95H0RzvS96(|f8BS96cy:D|S97E&,sHS98&7A=tS98aR{.QS99By)v~S99~O_`W(M&S9?C))8sS9@%_w[pS9@bGcGp !S9AE:JDhS9B(80BFS9Be@s2JS9CHTbb[S9D+s\nYS9DiCeN&S9ELy&TVS9F0_W}tS9FnQImeS9GRNY}l !S9H6W2U{S9Htk1T.S9IY0Z~9S9J=[Y(NS9J|8/k&S9K`z=D?S9LEn+vpS9M*mY_GS9MixpjoS9NO5uTA !S9O4Xl37S9Ot-X{-S9PYh@9rS9Q?U&A_S9R%MiXwS9ReRZHKS9SKcW5=S9T2&dFwS9TrP,M5S9UY+gt? !S9V?mg6sS9W&b.y}S9Wgbwc/S9XNp8(;S9Y60([qS9YwVN*sS9Z_/S,nS9[FoES9pPH.c~S9qV) !S9tHCMe*S9u58?z~S9u|;u1WS9viN?3tS9wVoW|US9xDEkUZS9y2+%taS9yyyA*wS9zg|i5*S9{V5JEL !S9|DWDl+S9}3.^b\S9}{oD@OS9~jeUzhS;%Yk?|FS;&I&bh(S;'8Kjd@S;((&^A]S;(qkD.BS;)ae|\d !S;*QpZO)S;+B1>?_S;,2\.lqS;,}=2e-S;-n.PnzS;._05{1S;/PBB~[S;0Ad~rSS;13>%W>m6S;>t7-yaS;?i(w/.S;@^,n9/S;ASBu:JS;BHk:4sS;C>Ky/U !S;D4?,6hS;E*Di\.S;Ez]+\ZS;Fq..TXS;GgkzetS;H^bd]rS;IUlNiHS;JM/Aa'S;KD_E|wS;LEBS;apD`w|S;bmYtw]S;ck+*qWS;dhlA@QS;efihz^S;fd}RUnS;gcMbwSS;hb4J~~ !S;ia1omCS;j`F(KUS;k_q4*\S;l_YC}aS;m_XcW}S;n_oD=,S;o`CK^sS;pa/+CaS;qb2I.ES;rcMVjK !S;se&`>,S;tfqq`ES;uh{=)6S;vkC(aRS;wm}@sFS;xpv8,(S;yt-tp+S;zwXOkKS;{{B/a\S;}%D{Eg !S;~)a1n^S=%.cb\S=56+,sWS=?A}L_{S=@N9DW1S=AZl~}8S=BgdXOgS=Ctz;gr !S=E(T9^RS=F6Lc4TS=GDcoRtS=HS?o|mS=Ib:v)}S=JqU9HhS=L'5%n9S=M74M>VS=NGSg{&S=OX9.2A !S=Pi>fDcS=Qzdo:1S=S2Q[^]S=TD_>Z=S=UW4+?VS=Vj*51TS=W}Aod(S=Y6{:gvS=ZJ|^96S=[_F:?F !S=\t2=?\S=^/@{jyS=_DrVPRS=`Zm8S=h2lMy) !S=iKUhE)S=jdd/9ZS=k~=mNeS=m>=,7LS=nXb6o{S=osSJ|(S=q4k&O7S=rPO;M1S=slZH;tS=u/2eR; !S=vL2R*'S=wiZ'(IS=y-OWp8S=zKmJ.?S={jYqioS=}/o5&cS=~OSbChS?%oa`Q?S?'6?JSBS?(WG;g{ !S?)xyOmmS?+@|H^@S?,cPBN3S?.,OYmdS?/OzQUAS?0swFmmS?2>FW.rS?3cBF;JS?5.k2F3S?6Tg9yv !S?7{6{l)S?9H4c++S?:o`i>wS?<=aTAWS?=f7DGHS??5o`S?K)6JdkS?LW5J||S?N+gd82S?OZsaK5S?Q0Yh*YS?R`tD'+S?T7iu`9 !S?Ui:ok3S?WAAYa3S?Xs~[,GS?ZM>Bw+ !S?e]f{UsS?g<+0<}S?hu*>)]S?jTdxLDS?l5'YUsS?mp&j+yS?oQc%Dop,S?{DsgLtS?},63.qS?~n:b'_BR{SA<0tjWiSA=}{QWd !SA?qt8reSAAf_bi.SAC\>^Q*SAERkp>FSAGJ4)D.SAIBL)vBSAK;Z_7sSAM5`]X3SAO0^nE+SAQ,V((o !SAS)G07|SAU'2yYCSAW%tD(2SAY%X8^*SA[&9M_FSA]'rzY6SA_*Q^5hSAa.0LRbSAc2j@uLSAe8L8'f !SAg?1/|(SAiFt(24SAkOa{KzSAmYUx1tSAodP|+}SAqpT2VYSAs}`VKCSAv1w<28SAxA?GjUSAzQn+&> !SA|cPM=;SA~vAc`OSC'0C%+_SC)EUX6gSC+[z]WWSC-sYKYXSC02M:[fSC2LWDzOSC4gy,yjSC7*Yj}E !SC9HTkY,SC;gkQI=SC>.EACISC@P=bTmSCBsV*MNSCE>5xy,SCGd8n<8SCJ1`;5YSCLZSm'TSCO*o+ea !SCQVYcrgSCT)oBnSSCVXW`h)SCY.nJd)SC[`[DcJSC^9z;j+SC`nrz+vSCcKG>|+SCf)S5*JSChc>VC4 !SCkDeF8{SCn'o_bySCpf_MCISCsM6qRNSCv5Q~E7SCxyY)~~SC{eNSC~S3tIVSE'Bf:)iSE*43bQ+ !SE-'R_6}SE/vkZ@sSE2n'(evSE5g;X;GSE8bQmi\SE;_lMC/SE>_4:HJSEA`_}tBSEDd>XJgSEGj,xOz !SEJr.*V_SEM|E)DMSEQ.u'})SET=g:2,SEWNxzE`SEZbSV3_SE]xTPAaSEa7%?+{SEdQ}ZI&SEgoS.82 !SEk5]\`{SEnXG(IfSEq}mDrwSEuKz`U^SExvs3ABSE|J[2jTSG%{7*TxSG)TeJZiSG-16seOSG0jd7iw !SG4M>B2'SG82~<6/SG;uu5[rSG?b(Jx~SGCQQK~)SGGDApHvSGK:YJ-RSGO4D-rrSGS1b%xjSCqM/4SOWlv3O:SOZMp]unSOmkh}Eu !SOn;01xNSQ'XUH83SQ+^lm3HSQ>zC72>SQBKtfFiSQV;Y{NnSQ[:->GASQof4Q_5SQqG !SS30:`unSSOnlstrSSQ0v%')SSm+q,S2SSq.`V(@SU74f:D-SU9CzY(7SUY=/o8|SU_S;XHzSW*6OP?= !SW,R]<'QSWT2b|I.SWX3x'U`SY-BK5dUSY2XO5GnSYe[AWlRSYlIN`5US[Pl\@hYS[VxAHqMS]ClI=xf !S]TY/a}.S_V?t/CFS_l).*XfSa@FjPvSS_r^DUiTSc;'?f\MScHn'Nc;Sg7RL}=4SgJdqw&'Sm/Ve9pW !Sm73-PgHSuUKNfniT3`xnT=6ScJ|H'A)Sq6}8|>/Sm-7'7,2So.H}emYSiz/?C4iSkPU|K~LSi9^W{>c !Sg`PQWw[SaEqoMYRS](p=2A~SW\Pt`.LSWCTNF~4SUiiy'LhSU|e+r)KSUJmsAz(SUCCV\&DSSBs%z,H !SS-Y\?7aSQV)06&QSQw4:VmHSQc9)2y&SQZu{^`cSO}Rf2TZSOUEUXvQSMnhSJdYSMRQ62C6SM;,xnyT !SMJVbzUnSM@Dk9X*SMPg)`KySMF`t{UpSMNMZ-WFSMG7d/KrSMQ9JS(*SMVib?uhSMj(Ffs[SMv3;D;L !SO&p)SOX7x{nISOIZywQ=SO5q>oQ-SO4d7SoaSMpq?_Fg !SMekyC{/SMJ/IQ&`SM0'Ll.1SKwG0bisSKk'}e?VSK[~a+>TSKK+P{E'SK6kAZlnSK-Ex/'7SIuN{mCD !SIm@&[0aSIX4/4W`SILE^7zYSI>Q)1GvSI>L[h'=SI1Ji;:aSI3u{vgpSGx=OsL0SGwu^PyLSGt;ENfW !SGm)dF%KSGbDBcq]SGeMcy~0SG\E4PgOSGY'_Z`|SGSQ>MwdSGVBmz)*SGRZoE{HSGXM;=mSGEoi%eISG>iF?%4SGBodJU+ !SEBO)mGuSE7'wN;ESE0?hm9ySC|'G`:DSCz=5CVsSCzsANj]SCyap]d4tw) !SE9|Mr.+SEB9EZ'rSE?.7A%}SE9||KwPSE:)I}a?SA~@rF]]SAuC=z2gSAi8})\GSAdf^4r(SAbW;+o0SAW(zgi(SAU^|N<\SAH9JlxT !SADqROwrSA=EAU{2SA8Ky=kISA4t,i`3SA+y.]G~S?}nZe.kSA(5&|}tSA(A>B)LS?x0rq`kS?{>}~2i !S?uBFA02S?rqDi_{S?scErG?S?mtb|AsS?kA4Q:?S?gCCMCJS?e9dKb1S?b9`RA{S?iC_\?fS?`(ve1U !S?gEnw,0S?Zg5]_(S?^m6'R.S?b+PA|rS?a3LGzeS?Ti>j6cS?[nzfrdS?V:'V'uS?^:|7M+S?\1|*ot !S?Z80ER8S?Y-ZMa8S?eaO9OcS?[>+'rVS?\U'JV+S?Nzl{xNS?W{^BgiS?T8K^,WaS?P/czpm !S?R~]|TpS?LOXHkkS?DY[I21S?=o'bLIS?E4n]b;S?D9?{%KS?Ato:|_S?6lPuo&S?5|ei+GS?1RD^{4 !S?)4ar~gS=}R1DV~S?&oW2~dS=u>k>~RS=t%S|nSS=t,Uq-/S=lT;QoDS=m:qH.QS=lJ%&kYS=d\QH). !S=c//&}1S=\Ev%QXS=[Yd=MCCS=NKNQsF !S=L*TTV3S=I{&~Y~S=GS=:krzmfS=6;_CK]S=3_dY->S=2fpFp(S=*@~_y;S=4opXTz !S=+x}h\'S;~P.eyhS=%J|-z(S=)lRee{S=&dy){VS=&d7*yaS;}lgwbXS;tsg}IkS;xx4qlMS;k\:[S4 !S;vV/@1zS;zRK-h}S;s1-V%RS;mE>iu=S;pK_ZvtS;r:lI7jS;i6d2BpS;m-q`?+S;`Sgyo1S;coqR=} !S;eF_F\mS;[\tMoBS;^?ODdES;Tsz/GtS;].w](BS;QDCAXIS;T}QG%8S;EKv/gjS;DUN|=aS;>3.n]Q !S;CVcU|CS;Byq\dPS;?b6AviS;=l:gZpS;8VD>dvS;5h|`L4S;3~olupS;4@1[LNS;4_@K:oS;.RZUVq !S;,b<_elS;%+q7U5S;)qj+g\S;%*1)fCS9|yw?uiS9ympEpRS9{[uWbIS9t-FI4XS9ulvj@gS9s%Oo]O !S9x;DOx&S9s4RA_TS9s,nMiaS9n]}QA}S9i(aBJMS9oS.zeoS9nc|q&zS9al_]gDS9g%&C?KS9h6(usD !S9hx(WA.S9_2sa6zS9`FdI4fS9Xb(e=gS9]y%`%[S9bI/{}aS9`5,*?qS9Yd*uaqS9]O]6stS9X?\C{/ !S9W=A>LcS9[tDQj1S9\958P]S9T~LoSLS9P\Jhu+S9O^&HPzS9LG1l@fS9U[SzSGS9;Ok@EeS9CTUyY: !S9J1_~;VS9FzUzN0S9A6]vzKS9=f*oqOS9<6PdzQS9?-oAEMS9=eCegWS9;1ZOt*S9:s\eXUS940JY(- !S90|[9-JS95*lN>%S97;pK&IS9/\kMI;S9-i1Jy=S9/UxPV8S96U/RPeS9.)+PX&S9-j'3C3S9-/>xIm !S93j'a]fS92uxIZVS9(k7OU\S96ud*oSS9;F,F4rS9<{y``}S9;<^a];S9==35Gn; !S9=42O)5S95C,hCMS9157(pSS90XU.@yS9)RvzqJS9%x0N5~S7~-X2t\S7|U[A@qS9(*LLBNS7}:ir4M !S7~,|_{]S7vUs;UdS7y=W(qJS7xgAxJ~S7yG3U45S7vjT)n-S7X%\_=&S7J6@C_S7BeNjG:S74ycMC(S79Jv8~JS7/j^04/S74ext@*S73S?P~t !S76{&{UmS76^O+=pS76F&bo`S7/d?GNDS7'|Ioj;S7.F+~s(S7,{]JdvS7-G4mvsS7&2Ei/PS73nq1Ee !S7)fO[aIS70{&|LrS7+%HDf%S7(pZ]t~S7,HXg\wS7(v-MniS7+0tRUaS74SNMyHS70I.7\(S70wZfQK !S5~h]J4ES7+yu8N8S7/~RS1MS7%tqcc(S7,c2O_7S7(+Oq&iS7_y.bS5n9Mt+XS5g?'>|`S5cQS4X1S5k(sbnBS5i/s}vq !S5ih~.>*S5cqi&C1S5dYhsucS5hYD@3WS5[toR7TS5]>U3;wS5n^cJ;qS5i04mWOS5fc+_tZS5el'pXH !S5iC7[hCS5bH~@xFS5cm(yKnS5^mpfq4S5`h\0D3S5b5bXawS5VrnPvGS5`@4YFAS5^+o%\AS5[^D?JJ !S5Tw7{VoS5V=J9cdS5R~RFRcS5V5poJVS5T=_THRS5YneF,US5X{2b}|S5c8koV'S5cR>)@vS7)0DByO !S7+r%Z;@S5T]NFg5S5S^e@=aS5R`2]B2S5Qaj>3gS5PcX7.^S5OeVBR*S5NgdZf?S5Mj(z6[S5LlWAE8 !S5Ko;^cCS5Jr/re+S5Iu3w{NS5HxGi&IS5G{k@PbS5G%DS%vS5F)-AG:*tS5@C2HQHS5?H,h78S5>M6:.SS5=RNm2,S5Jy:S59i8hSV !S58oAtFgS57uYi\wS56|&CHaS56([Vs-S55/EE9aS546=cdGS53=DSUWS52DYj%{S51K}HJeS50SUD-@ !S5/[;XGWS5.c0&a\S5-k2^EyS5,sCFu:S5+{b5dWS5+*5&?1S5*2on2QS5);^TnCS5(D[/pZS5'MeTmF !S5&V}e@{S5%`I\}mS3~i}7POS3}sdJOaS3|}Y7`9S3|-[Ti'S3{7kCS+S3zB.YcHS3yLY9--S3xW77S@ !S3wa|Pm4S3vlu&mpS3uwziJMS3u)3`T0S3t4Sb)zS3s@&izxS3rK`t6&S3qWM|h.S3pcH%]|S3ooNxt= !S3n{bdUYS3n.)>bAS3m:V]HfS3lG6blyS3kS}K&tS3j`vl8@S3im|hVhS3h{5<9VS3h.T=MoS3g<%hNN !S3fI]_R*S3eWGxq%S3de>VkFS3csAO\|S3c'P_cAS3b5l)CZS3aD9\xbS3`RmBq1S3_aS1Q2S3^pE%>X !S3^%Bt`sS3]4Lh-4S3\CbV(3S3[S*:~4S3ZbWmO-S3Yr75~JS3Y'|E/6S3X7s=H&S3WGuuI)S3VX*5g} !S3UhD/('S3Txi]uwS3T/@d}tS3S?}@{aS3RPkHRPS3QadxA(S3Pris-OS3P)z5YIS3O;;pSwS3NLblaP !S3M^;&n(S3LoxOfyS3L'g0:xS3K9`y42S3JKesD3S3I]uu]sS3Hp6|uYS3H(],&{S3G;43v~S3FMp7P+ !S3E`]3_rS3DsU%GHS3D,Wc]%S3C?e7DES3BR}QVHS3AfFU9ES3@yt?HmS3@3Rg-SS3?G;oEYS3>[/U\W6& !S3.Ts{vZS3-k;@x^S3-'fW\IS3,>AcC7S3+U&aOMS3*koOJYS3*(h*Y2S3)?jJFgS3(VvR9~S3'n2?ZZ !S3'+QiwrS1~r5{@ES1~/{r7-S1}Gq?PrS1|_p:bPS1{wxaAlS1{60VyYS1zNKs-^ !S1yfpYDgS1y%Da>\S1x=|.O{S1wVbrTMS1voRw(cS1v.L9^S1ql1>m&S1q+jh0-S1pESG7SBS1hY7fT8S1gt1&,NS1g53(&@S1fP=j2mS1ekQ6CsS1e,m>L9 !S1dH8&?JS1cceEklS1c%A@lSS1bA%o7XS1a\ltweS1`xbOpTS1`:`WtES1_Vg0|ES1^rv3(NS1^53\'F !S1]QSOtWS1\m{fX>S1\0RD)WS1[M1@@3S1ZirY@\S1Z,b3*8S1YIZ%V}S1XfZ.mcS1X)bLosS1WFr}_h !S1Vd1e@BS1V'R[o@S1UD{_=/S1TbRmbvS1T&2+2VS1SCsIf\S1RabmRHS1R%Z:WtS1QCYc%hS1Paa0yH !S1P%pVNtS1OD-wd|S1NbM8m1S1N&tKsOS1MEIU*mS1Ld&RT[S1L(eBK'S1KGQ|vsS1JfFL3]S1J+BbEK !S1IJFcc)S1HiRNCyS1H.ezT6S1GN'2LUS1FmJ(@ES1F2tZC_S1ERLlk+S1Dr,]quS1D7n+n'S1CW].u} !S1BwSeFyS1B=QsR^S1A]WWWNS1@}dinJS1@CyNW-S1?d;^+cS1?*_K0B^OS1=kbn@*S1=2Bc|E !S1(O8HS1+`v;e;S1+)px1tS1*LrO%< !S1)ozrlsS1)90.(bS1(\F3;6S1(%c&yGS1'I,a^dS1&lW-u1S1&6.>9/S1%Yf75ZS/~}JqA}S/~G6766 !S/}k(;D[S/}4z|F+S/|XzDmxS/{}&G;}S/{G3(>SS/zkF@PT~S/sa[dB:S/s,iUEqS/rQ}j@r !S/qw>GnjS/qB_FWQS/ph,e7ES/p3ZHK3S/oY4Hv,S/n~neAgS/nJUBF5S/mpB8gtS/m<5G1dS/lb.l<{ !S/l..LoCS/kT4AT|S/jz@I.HS/jFRbS/ZWSd2bS/Z%_bitS/YMqN\5S/Xv/&V9L{S/VcljAdS/V2G'Zh !S/U[&~2oS/U)f^s(S/TRQ|\kS/S{B|?oS/SJ9\lC1`S/Ctyh\TS/CE`O`icOpS/>2*o:cS/=]K1BZS/=.p\jPS/mS/1t@+x5S/1G%ZQQ !S/0sj(.'S/0FYGqAS//sM^q2S//FFl7WS/.sDo(qS/.FGfOTS/-sOQ\GS/-F\/ZLS/,smYTzS/,G)tWK !S/+tE%m[S/+GdzIQS/*u/cQ@S/*HY:7SS/)v-WbnS/)I`a,2S/(w>UTcS/(J{45qS/'xbV7=S/'LN`fn !S/&z?Rx[S/&N5+z{S/%|/D|OS/%P.C1vS-~~2%^?S-~R:E\uS-~&GH=4S-}TY,hoS-}(oL;kS-|W0Kz6 !S-|+P+&JS-{YtB_)S-{.C8&uS-z\pdB}S-z1HljXS-y`%PU/S-y4`hn?S-xcFZn&S-x81%fHS-wfy|ih !S-w;mQ0\S-vjeV'iS-v?b0b1S-unc:>xS-uChr+SS-trr};PS-tH'[(_S-sw:da%S-sLR?DkS-r{nDBH !S-rQ4rnNS-r&Yp)nS-qV);=RS-q+W-dgS-p[/FZ}S-p0f+5qS-o`G4e6S-o6,bK(S-nepYW]S-n;^sGH !S-mkQU0{S-mAHX+3S-lqC{M%S-lGCdSfS-kwGlVdS-kMP8mXS-j}\|V.S-jSn)(?S-j*)KV@S-iZC/DS !S-i0a-ePS-ha)EwzS-h7Ow:oS-ggzf{OnDUS-fo)2d2S-fE`g?kS-evBWK=S-eM(\FbS-d}luL: !S-dT[GvBS-d+N-+VS-c\D~:aS-c3@,d^S-bd?EjZS-b;BngnS-alJLwmS-aCV9\8S-`tf40tS-`Kz;ko !S-_}8Ou9S-_TToiNS-_+u@e(S-^]?v*bS-^4h[1=S-]f;I;rS-]=l?gaS-\oG=x.S-\G&C0dS-[xcNc8 !S-[PJ_yVS-[(5v7hS-ZZ%6p+S-Z1rU2wS-YcivRpS-Y;e@:ZS-Xmdec*S-XEh27@S-WwoY0WS-WO{%n7 !S-W(0K[lS-VZCos(S-V2[7yoS-UdvW63S-U=;r|u-}rR}?}r(ZCR};c;%T8R}7I)xj'R}3/>hAi !R}.oyH6rR}*W%lL8R}&>Qu,0R{|&I\6GR{whfur2R{sQOb4)R{o:]u:.R{j~7O5jR{fh6D3uR{bRZNBg !R{^=Igq{R{Z(^0xZR{Un=Wi-R{QZA|W=R{MFk?XBR{I3_O(oR{DzxK:fR{@h\.MBR{R{8E7G,[ !R{44.q2bR{/}JkR7R{+m10Q9R{'];nQ0Ry}Mjkt]Ryy>c}+iRyu0'BOtRyp{hjSaRylmt;_.Ryh`IdAP !RydSC+%GRy`F`>6dRy\:G>H\RyX.R&/[RyS}&IuIRyOqxJ=)RyKg9{lqRyG\y%*FRyCS'N^NRy?IS?17 !Ry;@HK3{Ry77`mECRy3/BFE6Ry/'G*n]Ry*ynoI{Ry&r_ZnjRw|ksAgrRwxeOxu;Rwt_OF~5RwpYqZk1 !RwlT\U%jRwhOj0L|RwdK@AroRw`G9**^Rw\CT=ptRwX@7x':RwT==yLWRwP:fZRw03{?GSRw,4mshNRw(6(7E/Ru~7^96=Ruz9[t;r !Ruv;{/VzRur>at/gRunAj.}URujE9i6lRufI*io)RubM=+x}Ru^Qp^\FRuZVkH|,RuV\-@./RuRaj?1U !RuNgnA8SRuJn9APBRuFu%;-@RuB|2)8tRu?)_a)YRu;1T)j}Ru79i2[fRu3BDviWRu/KA=OO,RsS:N^e?RsOHkoFRRsKWNkr,RsGfQOZDRsCusp&_Rs@+[nYDRs<;cFgjRs8L0M|< !Rs4\w%h1Rs0n(}WdRs-%TBxjqWh !RmdcX>*QRma.bBu(Rm]T.|20RmYyr1y@RmVEwnF{RmRl?yZ9RmO8~Oe-RmK`%Ft@RmH-B[;JRmDT|.|k !Rm@|wr9URm=K5m5[Rm9siv'bRm6B`.{>Rm2krH4_Rm/;FctqRm+e6~AcRm(5C9ckRk~_kFdn2RismT:TaRipG*NIJRilzuBxQ !RiiU&nZbRif/LswRRibd3OI2Ri_?4WXQRi[tP.{/RiXP,,->RiU+|KSyRiQb3/lfRiN>^/OzRiJuIG0Z !RiGRNsBDRiD/nV_WRi@gNGc:Ri=EHC)-Ri9}\EANRi6\0K/HRi3:xQ*YRi/t&SkGRi,SHOvmRi)3*B,V !Ri%m&&zzRg|M;U4~Rgy-joJCRguhYrC=RgrIbZ\gRgo+*~zERgkfg(&FRghHb`S_Rge*wq3gRgagLV`m !Rg^J:gg_Rg[-BG/gRgWjcKU1RgTNCqfWRgQ2=\MFRgMpPbMSRgJT}&Q\RgG9hYDvRgCxmCm7Rg@^1<]& !Rg=Ch@[KRg:)^LV1Rg6im];QRg3P;oTKRg06}&6PRg,w}2+qRg)_<6%?Rg&Fn.n6Re}.^sDUReyphLNx !RevY0k&WResAkqs9Rep*e]uARelmx+{pReiWI2|ERefA2om,Rec+5+DiRe_oOpTiRe\Z).;(ReYDtoJ1 !ReV/~|{4ReRuGSmrReOa(JvPReLL{_5vReI933[YReF%\y/TReBlDxbDRe?YE/=9Re7w=p !Rcp.aT3~RclyHr?xRcijGtg7Rcf[^XU{RccM2tlsRc`>xlY2Rc]0|<|YRcY}==+MRcVooi|[RcSb_fkL !RcPUg0[sRcMI+xXERcJ\Rc=gaorsRc:\XFI+Rc7Qf-)JRc4G0z|W !Rc1@xQJ5Ra;=2`@SRa89]/CoRa56CoqGRa23@k2y !Ra/0SxZeRa,-};SJRa)+be<9Ra&)^?4mR_}'oz]@R_z&=`|AR_v~{IXyR_s}u1neR_p}*q+bR_m|PPfC !R_j|2(3^R_g|)Nk&R_d|6g|FR_a|Yq2*R_^}8gdvR_[~-I,5R_Y%7la_R_V&WuwRR_S(3b:JR_P*%/+Q !R_M,,3rAR_J.Hn(vR_G0{'+gR_D3hjIiR_A6l'RDR_>:*ioCR_;=Xzq%R_8ABX(+R_5EAXsfR_2IUzqX !R_/N%aMbR_,Rdd4VR_)W_&S0R_&\nY|lR]}b9H+FR]zgsHA0R]wmhX8hR]tsruAFR]qz8C0WR]o&ls6B !R]l-\O)+R]i4a.9bR]f;zh?LR]cCOFl*R]`K8{=cR]]S7O@vR]Z[JtNcR]Wcs4@QR]TlV@J0R]QuNaO?R]:k(9_^R]7v&F/HIR]/>B%P%R],J87G%R])VBqgOR]&bax7qR[}o;HL~R[z|):.5R[x/+Jq,R[uaR[leK.-)R[isX]EOR[g'zCk|R[d6V9+%R[aEF:uLR[^TJF|PR[[cb[%lR[Xs4teFR[V(u7m^ !R[S8oV%GR[PH}s'nR[MYF2\QR[Ji|FQFR[GzlRHmR[E1pT+TR[BC.I<^R[?TZ/e^R[9RYI8A{CRRYFP?F,>RYChOrGLRYA&sJ04 !RY>?P%6*RY;X?[O&RY8qB6q?RY60Wi9SRY3J&w]OGRUgb4k2&RUe+]kC*RUbO>\/kRU_s1;YlRU]=5an~RUZaKrwZRUX+sl|.RUUPSN+C !RURuDnBKRUP@GqpkRUMe\Vf/RUK1(u,ORUHV`q(4RUE|PHcoRUCHQT6FRU@nd7_&RU>;.K5>RU;ad2x} !RU9.QG(9RU6UP+]JRU3|`8qRSQ*V.NSRSNVQxbSRSL(^bBIRSIT|C\W !RSG'Ptk_RSDT6@*\RSB',WbaRS?T3_u?RS='KVx;RS:Tt;'XRS8(SdMVRS5VCwLkRS3*Dr<,RS0XVS2Z !RS.,xrGbRS+[Qt8~RS)0;VxORS&_5rj>RQ~4@l&tRQ{c\@z~RQy9.Iq[RQvhk*}|RQt>^<_YRQqna}0: !RQoDv6c|RQlu@ua,RQjKv*B0RQg|a`{zRQeS]cu]RQc*j1JRRQ`\,{p5RQ^3Z3NURQ[e=d[aRQY=1YY| !RQVo5jf,RQTGJSRQCD*BL[RQ@wfQgb !RQ>QXlTxRQ<+[73iRQ9_mc}rRQ7:6=E2RQ4nhu]lRQ2IQW49RQ/~J:C-RQ-YRwQBRQ+4kY&+RQ(j:7uvRMVmktIVRMTS6L_RKaV_0(gRK_Ai;^jRK]-'j:]RKZrN`LhRKX^)vqjRKVImR,VRKT5eJh0RKQ{k_MgRKOh&4nn !RKMTH}N~RKKC?aLVRKI2DdAiRKF{X*`ARKDjyg&0RKBZOcy=RK@J3y~-RK>:&Mg/RK<*'7g)RK9t66Vr !RK7dSHibRK5T~lxuRK3E^G^'RK16L1LsRK/'H(yHRK,rR,cjRK*cj;@HRK(U6SCqRK&FjsHxRI~8S@*] !RI|*Ikx1RIyvNAXtRIwh`s\LRIu['L^\RIsMV%;LRIq@8V)-RIo3))]~RIm&'R\iRIjs3u\5RIhfN79= !RIfYvJ+;RIdMRRiQRIbAojk@RIO3{v>oRIM);hW'RIJxc@9_RIHn>Uz`RIFd'NF5RIDYx(0URIBO|;t;RI@F4.>(RI>RI3hTY&.RI1_kJF?RI/W5ia-RI-Ng[XwRI+FLxjDRI)>?ex7 !RI'6?{eMRI%.M^o;RG}&hgx{RGzy7;f.RGxqm2tIRGvjVL-jRGtcM,*@RGr\Q+N.{;RGGFI/|WRGEBa433 !RGC?,:;MRGA;^@~'RG?8CG/^RG=55KG9RG;24LSvRG9/@I>yRG7,Y@KlRG5*%0d/RG3'WrqbRG1%=Q^Q !RG.}0%naRG,{/H2XRG*y;]H`RG(wTdA\RG&uz[b>RE~tSB;^RE|s8pluREzr+2-HRExq*8v^REvp6*&C !REtoN^6CRErnsz8aREpnK|sUREnn0dy?RElm|16PREjmz:KlREhn+%L.REfnBJ~NREdnfOv*REbo=2z= !RE`ozLx]RE^pjB^pRE\qfltkREZropNPREXt+L42REVuMXn2RETv|;7%RERx]L1KREPzK0LtrRE-XDn4QRE+\iZUqRE)a@\q&RE'e}sx9 !RE%jmD]yRC}oi'ndRC{tpvC=RCyz*{(VRCx%K4kXRCv*wVKXRCt0V*ovRCr6@dr.RCp<7OEtRCnB:C9, !RClHI??bRCjNdBMtRChU1KW}RCf[dYRORCdbIk1|RCbi;%E@RC`p8;'GRC^wAQ'ERC\~Vf:ORC[+wyV2 !RCY3K/o}RCW;*;}dRCUBoBu7RCSJfCLURCQRiPC:&DRCxRC:cKIx@RC8m41piRC6w(\zbRC5'(p4^ !RC314jKHRC1;LJ]mRC/EoidwRC-PDlYzRC+[%R6=RC)eksMHRC'pcu?'RC%{gV^~RA~,vpMARA|87g^3 !RAzC^;1r #% [ 2551] o.f2_cl !RVIoskW_RVI9bcZZRVH]S^r*RVH'F]:fRVGK;^_?RVFo2b|MRVF9+j.vRVE]&s{FRVE&~&JXRVDJ}5G: !RVCn~Fh-RVC9'ZItRVB],p=CRVB'4.99RVAK=H4@RV@oHd%DRV@9V'].RV?]eFxFRV?'vgmxRV>L004W !RV=pESw,RV=:\xx>RV<^vE.}RV<)7lF%RV;MU:Z3RV:qtcb?RV:<<3U9RV9`_^)nRV9++/0vRV8ORZaE !RV7s|,X(RV7>MXenRV6b{+'WRV6-PWH2RV5R()dQRV4v[UsPRV4A7'l%RV3enSD|RV30M~OARV2U/O'z !RV1ylxylRV1DRH-lRV0i9pHtRV03}=h&RV/Xhd(2RV.}V/49RV.HES):RV-m6uX0RV-8*<]vRV,\y\1U !RV,'py~'RV+Lj<,ERV*qeVAWRV*tLRV(QfPc:RV'vk`2&RV'Arm1nRV&f{wYc !RV&2-%FcRV%W:*ItRT~|I,ZCRT~GZ+o/RT}lm(%@RT}8'{(%RT|]>pn?RT|(Wc;>RT{MrR:+RTzs5=ak !RTz>T%OSRTyctcTJRTy/=Cg[RTxTaz&8RTwz.R;IRTwEW&DARTvk'P8.RTv6SugyRTu\(A8|rRTrcyBMeRTr/YFvwRTqU;F;cRTpzy@G;RTpF_56oRTolF~[^RTo80hRx !RTn]vLmzRTn)d+IyRTmOS^82RTluE1/rRTlA8X(BRTkg-xroRTk3%9R^RTjXxMs)RTi~s[qDRTiJpcDq !RThpod>pRThbwRTfT~~F*RTe{-\~@RTeG84O&RTdmD^cSRTd9S'Y4RTc_cC'D !RTc+uVyHRTbR/c8cRTaxEgj]RTaD]dRXRT`jwYAwRT`79F0)RT_]W*nHRT_)va@DRT^P>5QART]va[>g !RT]C,xZ&RT\iT3@[RT\5}?CxRT[\NB[LRT[({<~XRTZOP.JmRTYv&pkYRTYBYO~GRTXi4%zbRTX5jLWz !RTW\HigaRTW)(}GDRTVOe-HORTUvI-bVRTUC.~3-RTTipje\RTT6ZM=^RTS]F%fbRTS*3M~?RTRP|k|% !RTQwn%WERTQDa.awRTPkV-99RTP8L{.qRTO_Ed:FRTO,@BSCRTNSRTGfK&<:RTG3_ppA !RTFZvU46RTF(5-3SRTEOORe{RTDvkki9RTDD/x4}RTCkOwtyRTC8qjljRTB`;Pn5RTB-a)pvRTAU.Ol^ !RT@|WhY-RT@J(t.&RT?qUr=0RT??*b~3RT>f[F4sRT>43ug%RT=[h=XART=)DQZWRT9t[RT:m{ohART:;a=CrRT9cHVY&RT911aEZRT8Xv][IRT8&cK8Y'LXRT%g'uU@ !RT%5RWz(RR~^%(XkRR~,SACWRR}U)H2FRR|}[`RRjL3fUGRRYg~Q>D !RRY7p~<~RRXae9IbRRX1[6\mRRW[RunjRRW+LBw{RRVUGQplRRV%DHQbRRUOC&m&RRTyCFa;RRTIEN&k !RRSsI%zRRJAL%Z&RRIkpL|~ !RRI<JARREWiE@,RRE(C1;fRRDRx\5o !RRC}Ul&|RRCN4`agRRBxo:*gRRBIQR.VRRAt5NelRRADu/o+RR@o\OC%RR@@ES47RR?k0;;?RR?;vaPv !RR>fdkmaRR>7TZ09RR=bF,E9RR=39`UDGRR3iqxTeRR3;*~%JRR2f?ec9RR27V/RvRR1bn5G7RR14-w8uRR0_I@zfRR00fFQQRR/\+-i{ !RR/-KPbwRR.XmU52RR.*7;3LRR-U\\V[RR-')_=KRR,RRC:eRR+}|bG?RR+ONb[{RR*z|CqWRR*LQ`&v !RR)x(](oRR)I[:p3RR(u5SAhRR(FkLJLRR'rI&)+RR'D(:0SRR&oc.Y]RR&AE]C=RR%m)l@ARR%>i[I] !RP~jQ*X-RP~<:3d[RP}g~vh(RP}9k?[?RP|eYB7oURPq}YYrZRPqOkRwBRPp|%)vjRPpN:8iwRPozQ%Ik !RPoLiIiIRPny)KglRPnKE+=~RPmwbB?'RPmJ'6czRPlvGbKlRPlHikI\RPku3QVNRPkGXnkHRPjt%i'P !RPjFN@7lRPirxN;IRPiEJ9+FRPhqwZZmRPhDLXhjRPgp}3NFRPgCUD^dRPfp/28rRPfBdV/{RPeoAV=- !RPeAz2YHRPdnZD}|RPdA<3IzRPcmyWjMRPc@^W~]RPbmE4%[RPb@-EfSRPalq3,TRPa?\U~jRP`lITHK !RP`?8.6]RP_l(=BWRP_>t'eGRP^kgG>=RP^>\AzJRP]kRq^}RP]>J|?4RP\kDan4RP\>?|14RP[k;@t&RPZk;E2=RPZ><}wFRPYk@7.TRPY>D~^|RPXkKFMxRPX>SBN^RPWk\rZBRPW>g|j;RPVkt`w^ !RPV?(x{iRPUl8jorRPU?J6M8RPTl]5g*RPT?qh\cRPSm-u'FRPS@EZtFRPRm^t.~RPR@yf^SRPQn<2H8 !RPQAZ1?JRPPnyc=HRPPB@n;ORPOocR2zRPOC-hw1RPNpSXMFRPNCzzb{RPMqIuW9RPMDtH}SRPLrFNu2 !RPLEt-7QRPKsI=qrRPKFz&i]RPJtRAr0RPJH,5*gRPIuaZ@mRPII>WSdRPHvw,\mRPHJW3UPRPGx8l70 !RPGKu|U.RPFyZdNoRPFM@}w`RPE{(no(RPENl7.BRPD|W0b{RPDPC[RBRPC~1]OrRPCQ{6T|RPC%l@[- !RPBS^{[_RPB'S3P*RPAUHv1kRPA)@5T;RP@W9%VvRP@+3F37RP?Y/=[+bbSRP>/,6q| !RP=].;:GRP=11oi9RP<_6zC}RP<3=Zx2RP;aEkK6RP;5OQj]RP:cZguzRP:7gSf_RP9euo6:RP9:+`89 !RP8h=&f0RP8zX(QSHeI'dWbSHdymABhSHdP[H32SHd'KxrBSHcX>y;i !SHc/4I2xSHb`,BGCSHb7&dhRSHag}V+}SHa>|p5BSH`o~Xt-SH`G(i}uSH_x/IBBSH_O8Pe'SH_&D%{\ !SH^WQ|ujSH^.bGC3SH]_u9-PSH]70Q~LSH\hH7qiSH\?bDQ7SH[p~wfSSH[HCwGOSHZyeC=tSHZQ/59V !SHZ(UM*?SHYY~0Y|SHY1O9^LSHXb|h'YSHX:RaY?SHWl+&/PSHWC_iN,SHVuI:SHSi@9jVSHSA0XDFSHRr}?znSHRJrJI}SHQ|iwV%SHQTcm5& !SHQ,`+16SHP^^e:dSHP6_gAgSHOhc16SSHO@hvc(SHB0p7o:SHAcd[_JSHA<[AYASH@oTCMbSH@HOa-?SH?{M@By !SH?TM;%JSH?-OPyUSH>`T'|2SH>9Zsx,SH=ld&^8SH=EoMyKSHCHSH5^MeexSH58*JU6SH4kcF\DSH4EDYl[SH3y()w5SH3RgjmASH3,Oh@; !SH2`9|;:SH2:&LOWSH1mo2nSSH1G`//JSH0{SA7XSH0UHhxASH0/@L/&SH/c:D['SH/=6R9gSH.q4tpV !SH.K5R@OSH({Sga]SH(UsI[\SH(0;=z*SH'd_DT\SH'?+]6zSH&sT-lfSH&M~j3` !SH&(Q^1LSH%]&cWkSH%7Wz>KSF~l1H11SF~Fg&{`SF}{Dp[kSF}U~pw@SF}0a'f&SF|eEHshSF|@+z8C !SF{tnaY_SF{OYXoSSF{*F_kqSFz_5v@TSFz:'B9NSFyntwHWSFyIja_kSFx~bZq+SFxY\bnHSFx4XyIe !SFwiWDO)SFwDWwpHSFvyZ_EjSFvT_Tu7SFv/fX9/eSFt+P%I0 !SFs`cx[;SFs;y~X:SFrq872roSFo~iKKj !SFoZ8cGUSFo5d,XLSFnk7ZphSFnFg:(mSFm|>~&xSFmWrr]MSFm3NqdhSFli,{/5SFlDg4c1SFkzIR?% !SFkV-yi8SFk1nPz5SFjgW1dCSFjCAut2SFiy.iB+SFiTwetZSFi0hkJ7SFhf[yiJSFhBQ6jgSFgxHV@e !SFgTA~7vSFg0=TBpSFff;2T/SFfB:r^BSFex<`T*SFeT@V'xSFe0FS&YSFdfNWB^SFdBXbnjSFcxduC^ !SFcTs4gxSFc1)TtCSFbg;{[XSFbCPNjESFayg(9KSFaV%aoTSFa2@GKLSF`h]2svSF`D{~'gSF_{Btgg !SF_WepreSF_40r;RSF^jWxhySF^G'*9sSF]}R:U5SF]Z%OShSF]6Ti(NSF\m,,z:SF\I_O-}SF\&:uD^ !SF[\rEW2SF[9QsXPSFZp3K;[SFZLq&MQSFZ)V_'4SFY`>@o]SFY=(%evSFXsmgW&SFXP[R6(SFX-K?P& !SFWd=/>)SFWA0{M6SFVx&opYSFVTxfAASFV1r^fTSFUhnXyDSFUElTlzSFT|lR4PSFTYnPw1SFT6rPt- !SFSmxQxXSFSK&SwjSFS(0VdySFR_:apySFGu~>fvSFGSir9YSFG1WH6[SFFiFtQZSFFG8B~6SFF%+gV)SFE\{.&qSFE:rJ>;SFDrkb5z !SFDPfu[`SFD.d*I,SFCfc4K{SFCDd9X&SFB|g9a&SFBZl4ZeSFB8s*8uSFAp{tICSFAO,_%qSFA-9Cv; !SF@eG|zCSF@CXV%|SF?{k(z~SF?Z%O_pT/g)SF>NnBrCSF>-0O6MSF=eNT[=SF=CnRzj !SF<|6J.rSF[>z`SF5wGH3= !SF5V5GSpSF55%^;SF/3zyH1SF.sA)ypQSF-}L?@qSF-boAICSF-H9&-|SF--]GFgSF,m(K7_ !SF,RN1XgSF,7tTM}SF+wAYoKSF+\iAa)SF+B7ezuSF+'`l`zSF*g0Uk;SF*LZ{=mSF*2,)0\SF)qWmAf !SF)W*9o1SF)dSDy%ivT}SDxeT{>sSDxK@aTKSDx1-)9e !SDwpt,FkSDwVajybSDw'65wSDm~*UWySDmd.U^6SDmJ36FjSDm08QigSDlp>Mk6SDlVE*I8 !SDlF6hSDeFU5.CSDe,l^+,SDdm*g+0SDdSCP,VSDd9\s-PSDcyvv,( !SDc`7Y&BSDcFRutOSDc,nr`YSDbm1OBjSDbSNes4SDb9l\;uSDaz12O*SDa`PBPkSDaFp2?6SDa-6[rI !SD`mWe4WSD`SyN7iSD`:Apz1SD_zdsEoSD_a.ULySD_GRq3\SD_-wlQ}SD^nCGL3SD^Ti[z>SD^;6P&Q !SD]{]}\vSD]b,0g`SD]HTwDuSD].~CLfSD\oNH}ASD\Uy-zkSD\xSDT+Mb^/SDSl2)jnSDSRq)c5SDS9VbEGSDRz?]SDQUyc*?SDQ8~SDF`Y'G4SDFG[Jn>SDF.^L)oSDEob+,%SDEVfAs%SDE=k6I)SDD~pb`B !SDDevl]*SDDL}T=LSDD4*sYbSDCu2pU~SDC\;K0XSDCCD]A_SDC*NM-JSDBkXtL,SDBRcyAtSDB9o[g% !SDAz{u_aSDAb.m*.SDAIwwdPsSD>_1Fy'SD>FE`]XSD>-ZWVfSD=np+bgSD=V,7%mSD==ByR5SD<~Z?2+SDZ^gSD5sem@hSD5[3\ZfSD5B\(PxSD5*+*{ZSD4kTc~}SD4R~yYC !SD4:OkbxSD3{{:?}SD3cM?HkSD3Jyz{WSD32M8|ZSD2s{-J/SD2[OXSD1;3%z:SD0|e.pSSD0d=n%FSD0Kq/K+SD03K'+tSD/u%Tz+SD/\Z_%uSD/D6E;]SD/+la_T !SD.mIZ5sSD.U'.pxSD.<_9Z{SD-~=zL;SD-ew=C*SD-MW6=`SD-57e:BSD,vrp7CSD,^TW2|SD,F6t+P !SD,-sly3SD+oWAf>SD+W;LK0SD+>z3%{SD+&_OO+SD*hEGjhSD*P+uw;SD*7m%rsSD)yTe[uSD)a='0[ !SD)I%xI=SD)0iKJ6SD(rST1_SD(Z>8WxSD(B)Ra@SD()oHL+SD'k[spTSD'SHzr{SD';6]Q_SD&|~udt !SD&dmiP{SD&L]8n4SD&4M=`mSD%v=x'3SD%^/3sSSD%E{%66SD%-mK{OSB~o`N3^SB~WT+k&SB~?H>ks !SB~'=-4TSB}i2Pw>SB}Q(O~JSB}8y*H;SB|zp:-+SB|bh%+6SB|J`E@vSB|2Y@lTSB{tRqRESB{\L}Jc !SB{DGdSrSB{,C&l1SBzn>x7qSBzV;JiASBz>8RJnSBz&654bSByh4M%8SByP3?tfSBy82gmUSBxz2jgz !SBxb3Hb>SBxJ4[ZqSBx26IO|SBwt8l?zSBw\;j).SBwD?BciSBw,CP:9SBvnH8^oSBvVMUutSBv>SM}e !SBv&Yzt^SBuha(X}SBuPhe)*SBu8p|=6SBtzyn9eSBtc):vzSBtK3LApSBr(Me44SBqj]XToSBqRn&H2SBq;%(fNSBp}6_T. !SBpeHpiJSBpM[\JfSBp5n|PFSBox(vxcSBo`=Kh'SBoHRTveSBo0h8I.SBnr~P7SSBn[;B@ASBnCRhao !SBn+ji@HSBmn)D4FSBmVBS<-SBm>\h !SBcYdn30SBcB:MU9SBc*j`ILSBbmALh1SBbUrlUcSBb>JejOSBb&}8JsSBaiV>O;SBaR/wu}SBa:d0cO !SB`}>vp*SB`et<@3SB`NP5,1SB`7,a2FSB_ycfQ:SB_bAE-1SB_JyVxLSB_3XA}TSB^v7`:lSB^^qWb\ !SB^GR(?GSB^03,)OSB]rnby>SB][Pry7SB]D3\'\SB],px6wSB\oTmKPSB\X9;ceSB\@x<~%SB\)]q>g !SB[lC~X@SB[U*do/SB[=k~'VSB[&Sp4%SBZi<;8tSBZR%94XSBZ:hj%OSBY}Rsc}SBYf=V:QSBYO(k[J !SBY7nYk1SBXzZzh+SBXcGtP\SBXL5F}3SBX4}L80SBWwl*3vSBW`[:nuSBWIJ~3SSBW2;@43SBVu,4o: !SBV]w\/3SBVFi\&BSBV/\4S2SBUrO?Z)SBU[B}9JSBUD79I`SBU-,(/8SBTo{IBOSBTXqC'pSBTAgo7h !SBT*^spZSBSmVPvnSBSVN`HlSBS?GH>}SBS(@bWiSBRk:U7XSBRT4z6oSBR=/wSySBR&+M3BSBQi'U-J !SBQQ~5@]SBQ:{GkGSBP}y2R-SBPfwOM6SBPOvD[.SBP8ukz:SBO{ukO(SBOdvC1wSBOMwL{@SBO6y.u] !SBNy{By@SBNb~/*kSBNL'MVp>5SBD'pnF>SBCk1Cm8SBCTLJWLSBC=h(]ISBC'*7}YSBBjFx\KSBBSd6RI !SBB=(%]|SBB&FE}YSBAie=UeSBAS*f>nSBASB@;v5;:SB@%>viz !SB?hb5DvSB?R+~~XSB?;PEaHSB>~u=EsSB>h@f*NSB>Qfeg]SB>;3XyNSB;gjVB@SB;Q=*QMSB;:j/KDSB:~=e.Q !SB:gkqSESB:Q@T^LSB::ohN7SB9~ER{2SB9gun/gSB9QL_xOSB9:~(EoSB8~U{J?SB8h.K*ESB8QaK>R !SB8;:|+8SB7~o)H}SB7hIakEw>SB2(RC@PSB1l9po2SB1U{tMkSB1?dN4tSB1)MW|| !SB0m77pVSB0V{Gh0SB0@f-b7SB0*QC]?SB/n=/WvSB/X)KPVSB/Ap=EfSB/+]_5{SB.oKVyiSB.Y9~[^ !SB.C(|4.SB.,rO[aSB-pbRvrSB-ZS,*5SB-DD5(3SB-.5mo?SB,r'|J.SB,[t`k/SB,EgtvqSB,/[^kn !SB+sOxHUSB+]DgeUSB+G:,gCSB+1/{LMSB*u&EmHSB*^w?ndSB*HniNvSB*2fhfSSB)v_=Z)SB)`XB() !SB)JQv)'SB)4L%[TSB(xF^d)SB(bAmA2SB(L=QKCSB(69e'2SB'z6N-.SB'd3f[hSB'N1TW[SB'8/qy7 !SB&|.de,SB&f.,sjSB&P-~IlSB&:.K?cSB%~/GT&SB%h0s+=SB%R2sx%SB%<5J*jSB%&8OP,S@~j<*2P !S@~T@4*SS@~>Dm6eS@~(I{U^S@}lO_+lS@}VUqkhS@}@\Y`'S@}*cpa6S@|nk\miS@|Xsx*?S@|B|hIB !S@|-,-oJS@{q5|A,S@{[@EpvS@{EK>IIS@{/Ve}0S@zsbbV^S@z]o4.PS@zG|4]6S@z2/d-CS@yv=hQM !S@y`LAn-S@yJ[J'nS@y4k'14S@xx{3.dS@xc1mx|S@xMB}ZUS@x7Tb+yS@w{fuEgS@wey]LQS@wP2t>j !S@w:F_u.S@v~Zz:*S@vhoi@7S@vS+-,-S@v=@yV>S@v'W@cCS@ukn6QmS@uV+Zz0S@sr)xl9S@s\EOnoS@sFaUDPS@s0~/EiS@ruA7q:S@r_^nkP !S@rI|z3*S@r4AYzUS@qx`h2QS@qc&JgQS@qMF[d/S@q7gA&wS@p|.TbPS@pfPqNV}S@o)3&S@l4biC%S@ky4hSyS@kca;dFS@kN46 !S@d,P/(,S@cq3G=4S@c[q2|)S@cFUL/AS@c1:8c[S@buyRcRS@b`_@-]S@bKEZtZS@b6,I(~S@azmdWM !S@aeUSJXS@aP=oZ|S@a;&_-/=YS@`@(yqWS@`*n=`QS@_oZ.c%S@_ZFLwc !S@_E3>C7S@_/z\x0S@^thNa.S@^_VmVfS@^JE_W^S@^54~bMS@]y~pukS@]do66;S@]O`(VPS@]:QG{. !S@]%C:HfS@\j5Yq}S@\U(LAPS@\?ukisS@\*i^5iS@[o]}WkS@[ZRotVS@[EH50dS@[0>'>sS@Zu4FCa !S@Z`+8=fS@ZJ|W+cS@Z5tHf4S@Yzlg7mS@YeeXS9S@YP^v]*S@Y;XgSzS@Y&S+6SS@XkMu]HS@XVI8m8 !S@XAE(d\S@X,AEB:S@Wq>4^eS@W\;P^aS@WG9?@hS@W27Z]ZS@Vw6HYpS@Vb5c4/S@VM5PE+S@V85j1C !S@U}6VQWS@Uh7oJGS@US9ZtLS@U>;rtFS@U)>]HnS@TnAtJLS@TYE]wrS@TDIsufS@T/N\BcS@StSq7H !S@S_YXRQS@SJ_l8\S@S5fRBJS@RzmdnUS@ReuIa^S@RP}ZtES@R<,>KDS@R'5N?=S@Ql?0NhS@QWI>xN !S@QBSya(S@Q-_,a2S@PrjewKS@P]vqHUS@PI)O-1S@P46X}sS@OyD5+HS@OdR=BFS@OO`qgMS@O:ox?? !S@O&%P|VS@Nk5UitS@NVF,_zS@NAW/]IS@N,h^`wS@Mqz_i1S@M]32tfS@MHF2(DS@M3Y]6`S@LxmZDB !S@Ld()P&S@LO<~XHS@L:RK\.S@L%hDYoS@Kj~iP9S@KV;`={S@KAS({dS@K,jwT0S@Jr)=ytS@J]B07^ !S@JH[N@+S@J3u>7qS@Iy5Yw_S@IdPGJ0S@IOk`azS@I;-KcmS@I&IbNDS@HkfJz=S@HW)_29S@HBGE(u !S@H-eV\zS@Gs*9s+S@G^IHixS@GIi)@6S@G5/5NVS@FzOm9aS@FepvZ:S@FQ8QTwS@F?@DS@A%kMh]S@@k?-J1S@@Vm8=YS@@BAnA_S@@-puU'S@?sFMvJS@?^vQJSS@?JM&*&S@?5~%m[ !S@>{UP_}S@>g-LYqS@>R_sYvS@>>8k^pS@>)l4gDS@=oF(r1S@=ZzG}uS@=FU8/CS@=20S92S@?rS@<:VQ65S@<&44~HS@;klCc6S@;WJ}=?S@;C*-eGS@;.cc&4S@:tCi2ES@:_~@.a !S@:K_AslS@:7@nLMS@9||kkCS@9h_9u3S@9TB2h^S@9@%VDPS@9+cJaHS@8qGid,S@8],YKd8S@+^TDHJS@+JTsy}S@+6UsCaS@*|WBX8 !S@*hY;\FS@*T[^NrS@*@^Q.MS@*,amSsS@)reYctS@)^io]8S@)JnU>]S@)6sd`rS@(|yCh`S@(i%LTk !S@(U+~}}S@(A3'.}S@(-:RtWS@'sBN?MS@'_JsBIS@'KSg|5S@'7],7US@&}ft'7S@&iq1I{S@&U{rDU !S@&B-(odS@&.8bp7S@%tDlDmS@%`QEF;S@%L^Gs@S@%8kspeS>~~yo=;S>~k.:1`S>~W=.LdS>~CLL31 !S>~/\9=fS>}ulOk9S>}a}5`IS>}N4Dv&S>}:E}PnS>}&X+IXS>|lj\_(S>|X}]5~S>|E7-'6S>|1K&1I !S>{w_HSGS>{ct:1uS>{P/U%eS>{{([RHAS>znr4t]S>z[/@WAS>zGFuI1S>z3^yHsS>yywLU< !S>yf6Hm.S>yROn53S>y>ib`6S>y+*&8}S>xqDlr?S>x]`(VvS>xI{g?YS>x6=u+.S>w|ZQr:S>whwW_j !S>wU;,LMS>wAY*7,S>w-wPxJS>vtv`[e8CS>vL{RhPS>v9Ai6LS>v%bNT~S>ul)\hxS>uXK9q& !S>uDm?l(S>u15nXjS>twXl6%S>tc|8\SS>tPF-q,S>tt)58_SS>soZN6zS>s\&2QXS>sHL?T4 !S>s4ru=SS>r{?yfIS>rggLs]S>rT5Hc{S>r@]m66S>r-,`C/S>qsU|/RS>q`%fT3S>qLOyUrS>q8z[3I !S>q%KeEXS>pkw>13S>pXI?N{S>pDuiCiS>p1HahDS>owv(aTS>odIr.+S>oPx0&lS>o=LpJOS>o)|%=v !S>npQ\YtS>n]'bC8S>nIX6RbS>n6/3--S>m|`X+9S>mi8KKuS>mUjg3tS>mBCQ<%S>m.vcc)S>luPDMn !S>lb*MU-S>lN^~wdS>l;9~ZKS>l'oLV+S>knKBiMS>k['a9CS>kG^MxXS>k4;bqwS>jzsE~7S>jgQQB9 !S>jT0*plS>j@i,TdS>j-HVFjS>it(NElS>i`bnPXS>iMC\exS>i9~s*`S>i&`WQXS>hmBd%PS>hZ%>Y6 !S>hFbA7RS>h3Eks;S>gz)dW8S>gfh+<9S>gSLs{-S>g@20^\S>g,qo?\S>fsW{vvS>f`>VO@S>fM%X{[ !S>f9g)F^S>f&N{c8S>em7Av2S>eYz/~eFcEzES>e3M)idz75IlS>df{htiS>dSfj4}S>d@R9=> !S>d->02OS>ct*NmGS>c`q;8oS>cM^OG]S>c:L1>[S>c'::vXS>bn(l:ES>bZqkbGa7|bS>b4Q,Ds !S>a{AHH2S>ah22+GS>aT}CGES>aAn|@xS>a.a(pvS>`uSV|.S>`bFRaGS>`O9uyUS>`<-fiJS>`(|%/p !S>_ope%^S>_\erI]S>_I[M@`S>_6QOcVS>^}GyW0S>^j>pt9S>^W65_bS>^D-{rBS>^1&5P}S>]wxpTQ !S>]dqx{bS>]QkNkHS>]>eK|MS>]+_pScS>\rZbI{S>\_U{^,S>\LQb4vS>\9Mp';S>\&JK3{S>[mGMYt !S>[ZDw=pS>[GBn8aS>[4A2I9S>Z{?wnDS>Zh?0LrS>ZU>j=[S>ZB>q?LS>Z/?EQ6S>Yv@@qdS>YcAcEo !S>YPCS&HS>Y=Eil;S>Y*HMb:S>XqKXa7S>X^O0g~S>XKS/uNS>X8WV.KS>X%\IEiS>Wlac`@S>WYgJ|u !S>WFmY@GS>W3t4]\S>Vz{6yMS>Vh(`8fS>VU0VN@S>VB8s_&S>V/A]ifS>UvJnm>S>UcTLhUS>UP^QZC !S>U=h}AUS>U*suv}S>Tr%;EUS>T_1'`*S>TL=:kGS>T9ItfFS>T&V{OuS>SmdO&kS>SZrICvS>SH&jL0 !S>S55X>>S>R|Dls;S>RiTN5sS>RVdV9&S>RCu*{TS>R1,&H>S>Qx=HR1S>QeO7=yS>QRaLdXS>Q?t.js !S>Q--7OdS>Pt@fkzS>PaTbdMS>PNi+8+S>P;}t?bS>P)9/z2S>OpNl2CS>O]dtu.S>OJ{J3@S>O88Eyo !S>O%Oh9TS>NlgW%=S>NZ%l;xS>NG>M|DS>N4WV1KS>M{q*h&S>Mi1%j~S>MVKG98S>MCf5+WS>M1'I@u !S>LxC)x-S>Le_0v'S>LR{^9WS>L@>WuXS>L-[wtyS>Ktyd6SS>Kb=vm7S>KO\UcqS>K<{ZsCS>K*A,@U !S>Jq`}~CS>J_'Aw[S>JLH,+9S>J9iJ'0r~}S>InRuhuS>I[uDb_S>II>9k1S>I6aU':S>H~+HkOIwkS>HXs}U}S>HF>}=AS>H3dI,`S>G{0:|vS>GhVRxvS>GU}6yXS>GCJ@}kS>G0qq*IS>Fx?m2C !S>Feh5:NS>FS6}A`S>F@`7FnS>F./qHoS>EuYwFWS>Ec*I>vS>EPUA0iS>E>&^u&S>E+RHVUS>Dr~X.: !S>D`Q3T~S>DM~4obS>D;Q[}8S>D)%N|PS>CpSglDS>C^(LKfS>CKWVsRS>C9--.YS>C&])/oS>Bn3Jv2 !S>B[d8LMS>BI;KeZS>B6m*fRS>A~E/N+S>AkwYu4S>AYPP&eS>AG)koZS>A4]S@dS>@|7`LzS>@il998 !S>@WG7^JS>@D|[aKS>@2XKA3S>?z4`VSS>?gkAFGS>?UHGiaS>?C%se>S>?0]k8/S>>x<.;*S>>etpm( !S>>SS~rxS>>A3XK_S>>.mWP.S>=vM|%5S>=d.k}mS>=Qj'JsS>=?Kb?>S>=--hYyS><=n5k7S><+RC&dS>;s6u[vS>;`usUdS>;N[;;*'?;jS>:qgxK)S>:_N|sP !S>:M6LY|S>::mvA-S>:(Kp1?S>9p*:),S>9]c.'(S>9KBL)aS>98|:/US>9&\R75S>8n=:?2S>8[xLE} !S>8IZ.J:S>87<:JMS>7~xpE4S>7l[v8zS>7Z?K~CS>7G}K_tS>75au60S>6}FnY^S>6k,7nzS>6Xl*t^ !S>6FRGi9S>6494K?S>5{zJsHS>5ib1,+S>5WJA'tS>5E2zeGS>52v*/1S>4z_]7eS>4hI_}_S>4V42KS !S>4Cy.SsS>41dT;>S>3yPIZ?S>3g3U)W+KS>3Bpo4`S>30^VoiS>2xLh'@S>2f;HgpS>2T*R{x !S>2At,b3S>2/d/s-S>1wT\S@S>1eEX[CS>1S6~/lS>1A(s)9S>1.u7F8S>0vh%+BS>0d[<10S>0RN|V8 !S>0@C2?1S>0.7kDPS>/v,sdoS>/c|KDhS>/QrL/?hvK\S>/-_ooeS>.uW8MdS>.cO*>4S>.QGE?a !S>.?@/PmS>.-9Bp2S>-u3%B?S>-c-0ynS>-Q'ea?S>->|iQAS>-,x,tt8ECS>,bp]FSS>,PmQJZ !S>,>jnP2S>,,hZUiS>+tfoZ)S>+beS[XS>+Pd`XzS>+>d+,dAAYS>*tdo*'S>*bekbbS>*Pg762 !S>*>i+W&S>*,kHisS>)tn4mBS>)bqI_}S>)Pu-@JS>)>y9g:S>),}ny)S>(u(rtLS>(c.EX'S>(Q4@|H !S>(?:e,2S>(-AWsvS>'uHsD;S>'cP]OmS>'QXp;3S>'?aQ^wS>'-j[_cS>&ut4<.S>&c~5LfS>&R._67 !S>&@9WQ/S>&.DxB-S>%vPgafS>%d]%T_S>%RiesMS>%@vtbiS>%/*Q{4S<~w8WaAS<~eG+mmS<~SV(E: !S<~AeM@;S<~/u@]MS<}x+\ANS<}feuSNK'tSylSL004W !RV=pESw,RV=:\xx>RV<^vE.}RV<)7lF%RV;MU:Z3RV:qtcb?RV:<<3U9RV9`_^)nRV9++/0vRV8ORZaE !RV7s|,X(RV7>MXenRV6b{+'WRV6-PWH2RV5R()dQRV4v[UsPRV4A7'l%RV3enSD|RV30M~OARV2U/O'z !RV1ylxylRV1DRH-lRV0i9pHtRV03}=h&RV/Xhd(2RV.}V/49RV.HES):RV-m6uX0RV-8*<]vRV,\y\1U !RV,'py~'RV+Lj<,ERV*qeVAWRV*tLRV(QfPc:RV'vk`2&RV'Arm1nRV&f{wYc !RV&2-%FcRV%W:*ItRT~|I,ZCRT~GZ+o/RT}lm(%@RT}8'{(%RT|]>pn?RT|(Wc;>RT{MrR:+RTzs5=ak !RTz>T%OSRTyctcTJRTy/=Cg[RTxTaz&8RTwz.R;IRTwEW&DARTvk'P8.RTv6SugyRTu\(A8|rRTrcyBMeRTr/YFvwRTqU;F;cRTpzy@G;RTpF_56oRTolF~[^RTo80hRx !RTn]vLmzRTn)d+IyRTmOS^82RTluE1/rRTlA8X(BRTkg-xroRTk3%9R^RTjXxMs)RTi~s[qDRTiJpcDq !RThpod>pRThbwRTfT~~F*RTe{-\~@RTeG84O&RTdmD^cSRTd9S'Y4RTc_cC'D !RTc+uVyHRTbR/c8cRTaxEgj]RTaD]dRXRT`jwYAwRT`79F0)RT_]W*nHRT_)va@DRT^P>5QART]va[>g !RT]C,xZ&RT\iT3@[RT\5}?CxRT[\NB[LRT[({<~XRTZOP.JmRTYv&pkYRTYBYO~GRTXi4%zbRTX5jLWz !RTW\HigaRTW)(}GDRTVOe-HORTUvI-bVRTUC.~3-RTTipje\RTT6ZM=^RTS]F%fbRTS*3M~?RTRP|k|% !RTQwn%WERTQDa.awRTPkV-99RTP8L{.qRTO_Ed:FRTO,@BSCRTNSRTGfK&<:RTG3_ppA !RTFZvU46RTF(5-3SRTEOORe{RTDvkki9RTDD/x4}RTCkOwtyRTC8qjljRTB`;Pn5RTB-a)pvRTAU.Ol^ !RT@|WhY-RT@J(t.&RT?qUr=0RT??*b~3RT>f[F4sRT>43ug%RT=[h=XART=)DQZWRT9t[RT:m{ohART:;a=CrRT9cHVY&RT911aEZRT8Xv][IRT8&cK8Y'LXRT%g'uU@ !RT%5RWz(RR~^%(XkRR~,SACWRR}U)H2FRR|}[`RRjL3fUGRRYg~Q>D !RRY7p~<~RRXae9IbRRX1[6\mRRW[RunjRRW+LBw{RRVUGQplRRV%DHQbRRUOC&m&RRTyCFa;RRTIEN&k !RRSsI%zRRJAL%Z&RRIkpL|~ !RRI<JARREWiE@,RRE(C1;fRRDRx\5o !RRC}Ul&|RRCN4`agRRBxo:*gRRBIQR.VRRAt5NelRRADu/o+RR@o\OC%RR@@ES47RR?k0;;?RR?;vaPv !RR>fdkmaRR>7TZ09RR=bF,E9RR=39`UDGRR3iqxTeRR3;*~%JRR2f?ec9RR27V/RvRR1bn5G7RR14-w8uRR0_I@zfRR00fFQQRR/\+-i{ !RR/-KPbwRR.XmU52RR.*7;3LRR-U\\V[RR-')_=KRR,RRC:eRR+}|bG?RR+ONb[{RR*z|CqWRR*LQ`&v !RR)x(](oRR)I[:p3RR(u5SAhRR(FkLJLRR'rI&)+RR'D(:0SRR&oc.Y]RR&AE]C=RR%m)l@ARR%>i[I] !RP~jQ*X-RP~<:3d[RP}g~vh(RP}9k?[?RP|eYB7oURPq}YYrZRPqOkRwBRPp|%)vjRPpN:8iwRPozQ%Ik !RPoLiIiIRPny)KglRPnKE+=~RPmwbB?'RPmJ'6czRPlvGbKlRPlHikI\RPku3QVNRPkGXnkHRPjt%i'P !RPjFN@7lRPirxN;IRPiEJ9+FRPhqwZZmRPhDLXhjRPgp}3NFRPgCUD^dRPfp/28rRPfBdV/{RPeoAV=- !RPeAz2YHRPdnZD}|RPdA<3IzRPcmyWjMRPc@^W~]RPbmE4%[RPb@-EfSRPalq3,TRPa?\U~jRP`lITHK !RP`?8.6]RP_l(=BWRP_>t'eGRP^kgG>=RP^>\AzJRP]kRq^}RP]>J|?4RP\kDan4RP\>?|14RP[k;@t&RPZk;E2=RPZ><}wFRPYk@7.TRPY>D~^|RPXkKFMxRPX>SBN^RPWk\rZBRPW>g|j;RPVkt`w^ !RPV?(x{iRPUl8jorRPU?J6M8RPTl]5g*RPT?qh\cRPSm-u'FRPS@EZtFRPRm^t.~RPR@yf^SRPQn<2H8 !RPQAZ1?JRPPnyc=HRPPB@n;ORPOocR2zRPOC-hw1RPNpSXMFRPNCzzb{RPMqIuW9RPMDtH}SRPLrFNu2 !RPLEt-7QRPKsI=qrRPKFz&i]RPJtRAr0RPJH,5*gRPIuaZ@mRPII>WSdRPHvw,\mRPHJW3UPRPGx8l70 !RR-1eFq6RR9Q[,P:RR=V3e[,RR*HSkAmRR:6,Sy.RPfAzhaNRR+O].URRP~fsgUrRR*XRAMVRPz%Rq3) !RP{~0Mk3RR%g-<}KRR.4E}WYRPn/y)*uRPv9%]F,RR%0\D+^RPz5G]k_RPam3*25RPgMy23kRPg.-bXm !RPu^2%aQRPWZ{HgGRPfPy@9}RPbT=4&WRPi\*|2.RPfJDqMuRPaWt\(>RR&,5u^WRPX1[TnyRPgw|nJM !RPZ-oFD-RP`%mN5sRPj~k`V7RP`yD_CERPVlGybWRPehaQV=RPrIM_?2RPh|v;%XRP[`sKwtRR(\`OU1 !RP|PqT/|RR.~+{dLRPp6l%O:RR%S6Flyk !RTquaam7RXFY=GC-Rb2D41Q9RlfaqM~-Rh*=jV,oRdB^72zRRf.;,17@RhhVN(*ARnla01`5Rz\PbusS !S0G6YH9*0IVSJ&>?=WOSHO,U|C/SFuWD:OJ !SFR4i.oBSF8z,orXSD},FC%qSDp3G[rRSD].sL%(SDKnSFzISD7@A&,[SB|(vqMlSBrCOj.DSB_+&_}_ !SBf|SbWbSBclQ@`YSBp`wg6ISByZNAW)SD*A_o\iSD,2Q6x&SD=((s-kSDR+@='\SDW}R|W\SDt^8M_p !SF/G?~5oSFD0xijGSFS7dslqSFi|wnY{SFsSiU]ZSH/^Pln8SH>3uN_wSHDNnZGASHT>Sn9z-SHw+b5skSH{9@?3nSHt;oo5%SHs}8b,*SHnbdD4z !SHoP%]?DSHk/}&,8SHdz67_hSHVp7]FiSHT%c}hFSHK^2D8vSHLeemrlSHI||OlhSH<%[Y:ZSH;Fx1f> !SH;HiiLgSH0e)Vg}SH-l4YqTSH+-H(fgSH'Y1cIxSFws}p'nSFwT(nuGSFo1[(ykSFuB1*i`SFm<9)Nz !SFsvmtVjSFuSm5VESFu`8=cgSH(&g?%dSF~9,LAcSF}/@hB&SH%U{SdqSH*OH()VSH)e6OC'SH'o3`h+ !SH,wz,^GSH0Zn5E(SH/YG:E|SH7Fcz~sSH50[/p:SH0sL(SSSH.8s;z9SH4yF1@%SH2v6H`rSH)f]~ql !SH(4>Aw>SH+(](6sSH(E2C20SF|Aj_asSFow[|juSFi|_L}ASFm0;21|SFboM`mVSFZWMe*SSFZ3X]`H !SFTp>tSLSFO7F?ioSFGXe_1WSFBQ-SPOSFB%Nmb;SF>jC61RSF?ZPL+USF?+)Rr>SFL1ySSH*6i7xL !SH-rpBIXSF~D8FKtSH'{YzH/SF}rOq1tSF~Em%-LSFwR/cNjSFxv[[X1SFl|}N_;SFra_'l^SFmT0K(I !SFoU,2o5SFo)@tDtSFf'2)\\SFfb%K4TSFnkp1z-SFg~v-6{SFczgpYKSFb6%hGgSF^w]>WOSFcjvfD< !SFd&p,T.SF\]uKc`SFclP`CwSFk(c26SF[pule{SF^{]{AHSFc\mYl:SFa3BdNBSFce5~mh !SF`RWb0QSFa1utBbSFaOpcS;SFhdY,5rSFj,4I;qSFiNj&gdSFef2VE5SFiB(C&jSFc&Pd2oSFaMkt7] !SFlo1lUjSFcstJDESF`[+|]QSF^zwHA{SFe6^PHkSFa4UjkkSFk+evN0SFbx68lMSFg(nx\3SFb'Qyr> !SFW~).b)SFc/l(v8SFg2/Wp'SFd'E5ykSF_|H=(qSFgez=uwSFgsb>A-SFh(DY@^SFmXiw\ESF`6Ejk* !SFnR'DHkSFg7r\0~SFmOb@eTSFfUx_qnSFkQoGMvSFlw1ynESFo/*8HxSFqwfc@ !SFQVf>9)SFQcnl(QSFMcdC;bSFLiMs-2SFBQ6Dw{SFHL3e52SFKP2>dtSFJ~Cr7{SFG7nZh>SFLt/]z` !SFD0AT_VSFGb*Bn3SFJbBU&lSFQipCWMSFJ.5803SFNs8~t[SFDtP_N@SFR(xv^JSFR3`n=/SF=R5d<{ !SFF?{RxhSFH3OAspSFJ^k]8TSFEUcW)fSFCYf9/nSF@.YS^gSFE3T\`zSFA_r\,oSFEQ|DZsSFCv*}S( !SF?BVe{BSF9SF9>SIX|SF6Z&\+j !SF6bzBfpSF@;.=FqSFC?,Z5GSF;F,joySF6K|)kxSF9'o}HcSF9+\9ruSF:>fQ`,SF>?PQ>wSF6|cSB^ !SF=I,(GQSFBX1ttLSF@C>2h>SFA'9{KZSFCc)>7PSF=*Wez;SF=mS8hTSF5X[|%uSF9A\&]ASF8~8^-Q !SF;Rzii)SF998M~lSF5UBZHtSF6+1T9*SF7GRw`pSF8oX?6dSF9V8eKfSF6\X<2nSF;2Z\rISF4'S2|m !SF4}VyLsSF1WuDNUSF6nE'z'SF3BcD9nSF-?Hwg4SF0LfNP?SF.}RX'@SF2loPInSF4<:\}+SF2j?&T) !SF7@v'NRSF3+7Z'(SF1\W@R@SF,m<:CzSF&[67DNSF-R/_[QSF*}J|U_SF,CS1bSF>3I-6lSF+B%Kj' !SF3;N6H)SF1MED+9SD|Dr^kYSDzZ3A2BSDwwJqciSF)pjAg.SDxy~:C`SF&;.@2PSDq<3)>FSDz,_RCg !SDp.i;.HSD{+v'vFSDu27@b)SF'24r-4SDpg@)?CSDsmdPI:SDm^C]kuSDuq\^,}SDh@.1UuSDl~GxeD !SDmw6,5ZSDkE7rSXSDpn&=n_SDj>mWboSDicoLH)SDk24:=VSDb/@GQUSDhXO|iYSDlL4\`kSDqf?~nq !SDpL8,=^SDf%[:]YSDqXwEk)SDo=DIY:SDlHv|JPSDnU.]tOSDhvs)@kSFAXK.{:SF9WJkt-_[vSDd'j+:dSDQY^ZO[SDUm;=iUSD_\(|&hSD]9GdEOSD\F6hSDeFU5.CSDe,l^+,SDdm*g+0SDdSCP,VSDd9\s-PSDcyvv,( !SDc`7Y&BSDcFRutOSDc,nr`YSDbm1OBjSDbSNes4SDb9l\;uSDaz12O*SDa`PBPkSDaFp2?6SDa-6[rI !SD`mWe4WSD`SyN7iSD`:Apz1SD_zdsEoSD_a.ULySD_GRq3\SD_-wlQ}SD^nCGL3SD^Ti[z>SD^;6P&Q !SD]{]}\vSD]b,0g`SD]HTwDuSD].~CLfSD\oNH}ASD\Uy-zkSD\xSDT+Mb^/SDSl2)jnSDSRq)c5SDS9VbEGSDRz?]SDQUyc*?SDQ8~SDF`Y'G4SDFG[Jn>SDF.^L)oSDEob+,%SDEVfAs%SDE=k6I)SDD~pb`B !SDDevl]*SDDL}T=LSDD4*sYbSDCu2pU~SDC\;K0XSDCCD]A_SDC*NM-JSDBkXtL,SDBRcyAtSDB9o[g% !SDAz{u_aSDAb.m*.SDAIwwdPsSD>_1Fy'SD>FE`]XSD>-ZWVfSD=np+bgSD=V,7%mSD==ByR5SD<~Z?2+SDZ^gSD5sem@hSD5[3\ZfSD5B\(PxSD5*+*{ZSD4kTc~}SD4R~yYC !SD4:OkbxSD3{{:?}SD3cM?HkSD3Jyz{WSD32M8|ZSD2s{-J/SD2[OXSD1;3%z:SD0|e.pSSD0d=n%FSD0Kq/K+SD03K'+tSD/u%Tz+SD/\Z_%uSD/D6E;]SD/+la_T !SD.mIZ5sSD.U'.pxSD.<_9Z{SD-~=zL;SD-ew=C*SD-MW6=`SD-57e:BSD,vrp7CSD,^TW2|SD,F6t+P !SD,-sly3SD+oWAf>SD+W;LK0SD+>z3%{SD+&_OO+SD*hEGjhSD*P+uw;SD*7m%rsSD)yTe[uSD)a='0[ !SD)I%xI=SD)0iKJ6SD(rST1_SD(Z>8WxSD(B)Ra@SD()oHL+SD'k[spTSD'SHzr{SD';6]Q_SD&|~udt !SD&dmiP{SD&L]8n4SD&4M=`mSD%v=x'3SD%^/3sSSD%E{%66SD%-mK{OSB~o`N3^SB~WT+k&SB~?H>ks !SB~'=-4TSB}i2Pw>SB}Q(O~JSB}8y*H;SB|zp:-+SB|bh%+6SB|J`E@vSB|2Y@lTSB{tRqRESB{\L}Jc !SB{DGdSrSB{,C&l1SBzn>x7qSBzV;JiASBz>8RJnSBz&654bSByh4M%8SByP3?tfSBy82gmUSBxz2jgz !SBxb3Hb>SBxJ4[ZqSBx26IO|SBwt8l?zSBw\;j).SBwD?BciSBw,CP:9SBvnH8^oSBvVMUutSBv>SM}e !SBv&Yzt^SBuha(X}SBuPhe)*SBu8p|=6SBtzyn9eSBtc):vzSBtK3LApSBr(Me44SBqj]XToSBqRn&H2SBq;%(fNSBp}6_T. !SBpeHpiJSBpM[\JfSBp5n|PFSBox(vxcSBo`=Kh'SBoHRTveSBo0h8I.SBnr~P7SSBn[;B@ASBnCRhao !SBn+ji@HSBmn)D4FSBmVBS<-SBm>\h !SBcYdn30SBcB:MU9SBc*j`ILSBbmALh1SBbUrlUcSBb>JejOSBb&}8JsSBaiV>O;SBaR/wu}SBa:d0cO !SB`}>vp*SB`et<@3SB`NP5,1SB`7,a2FSB_ycfQ:SB_bAE-1SB_JyVxLSB_3XA}TSB^v7`:lSB^^qWb\ !SB^GR(?GSB^03,)OSB]rnby>SB][Pry7SB]D3\'\SB],px6wSB\oTmKPSB\X9;ceSB\@x<~%SB\)]q>g !SB[lC~X@SB[U*do/SB[=k~'VSB[&Sp4%SBZi<;8tSBZR%94XSBZ:hj%OSBY}Rsc}SBYf=V:QSBYO(k[J !SBY7nYk1SBXzZzh+SBXcGtP\SBXL5F}3SBX4}L80SBWwl*3vSBW`[:nuSBWIJ~3SSBW2;@43SBVu,4o: !SBV]w\/3SBVFi\&BSBV/\4S2SBUrO?Z)SBU[B}9JSBUD79I`SBU-,(/8SBTo{IBOSBTXqC'pSBTAgo7h !SBT*^spZSBSmVPvnSBSVN`HlSBS?GH>}SBS(@bWiSBRk:U7XSBRT4z6oSBR=/wSySBR&+M3BSBQi'U-J !SBQQ~5@]SBQ:{GkGSBP}y2R-SBPfwOM6SBPOvD[.SBP8ukz:SBO{ukO(SBOdvC1wSBOMwL{@SBO6y.u] !SBNy{By@SBNb~/*kSBNL'MVp>5SBD'pnF>SBCk1Cm8SBCTLJWLSBC=h(]ISBC'*7}YSBBjFx\KSBBSd6RI !SBB=(%]|SBB&FE}YSBAie=UeSBAS*f>nSBASB@;v5;:SB@%>viz !SB?hb5DvSB?R+~~XSB?;PEaHSB>~u=EsSB>h@f*NSB>Qfeg]SB>;3XyNSB;gjVB@SB;Q=*QMSB;:j/KDSB:~=e.Q !SB:gkqSESB:Q@T^LSB::ohN7SB9~ER{2SB9gun/gSB9QL_xOSB9:~(EoSB8~U{J?SB8h.K*ESB8QaK>R !SB8;:|+8SB7~o)H}SB7hIakEw>SB2(RC@PSB1l9po2SB1U{tMkSB1?dN4tSB1)MW|| !SB0m77pVSB0V{Gh0SB0@f-b7SB0*QC]?SB/n=/WvSB/X)KPVSB/Ap=EfSB/+]_5{SB.oKVyiSB.Y9~[^ !SB.C(|4.SB.,rO[aSB-pbRvrSB-ZS,*5SB-DD5(3SB-.5mo?SB,r'|J.SB,[t`k/SB,EgtvqSB,/[^kn !SB+sOxHUSB+]DgeUSB+G:,gCSB+1/{LMSB*u&EmHSB*^w?ndSB*HniNvSB*2fhfSSB)v_=Z)SB)`XB() !SB)JQv)'SB)4L%[TSB(xF^d)SB(bAmA2SB(L=QKCSB(69e'2SB'z6N-.SB'd3f[hSB'N1TW[SB'8/qy7 !SB&|.de,SB&f.,sjSB&P-~IlSB&:.K?cSB%~/GT&SB%h0s+=SB%R2sx%SB%<5J*jSB%&8OP,S@~j<*2P !S@~T@4*SS@~>Dm6eS@~(I{U^S@}lO_+lS@}VUqkhS@}@\Y`'S@}*cpa6S@|nk\miS@|Xsx*?S@|B|hIB !S@|-,-oJS@{q5|A,S@{[@EpvS@{EK>IIS@{/Ve}0S@zsbbV^S@z]o4.PS@zG|4]6S@z2/d-CS@yv=hQM !S@y`LAn-S@yJ[J'nS@y4k'14S@xx{3.dS@xc1mx|S@xMB}ZUS@x7Tb+yS@w{fuEgS@wey]LQS@wP2t>j !S@w:F_u.S@v~Zz:*S@vhoi@7S@vS+-,-S@v=@yV>S@v'W@cCS@ukn6QmS@uV+Zz0S@sr)xl9S@s\EOnoS@sFaUDPS@s0~/EiS@ruA7q:S@r_^nkP !S@rI|z3*S@r4AYzUS@qx`h2QS@qc&JgQS@qMF[d/S@q7gA&wS@p|.TbPS@pfPqNV}S@o)3&S@l4biC%S@ky4hSyS@kca;dFS@kN46 !S@d,P/(,S@cq3G=4S@c[q2|)S@cFUL/AS@c1:8c[S@buyRcRS@b`_@-]S@bKEZtZS@b6,I(~S@azmdWM !S@aeUSJXS@aP=oZ|S@a;&_-/=YS@`@(yqWS@`*n=`QS@_oZ.c%S@_ZFLwc !S@_E3>C7S@_/z\x0S@^thNa.S@^_VmVfS@^JE_W^S@^54~bMS@]y~pukS@]do66;S@]O`(VPS@]:QG{. !S@]%C:HfS@\j5Yq}S@\U(LAPS@\?ukisS@\*i^5iS@[o]}WkS@[ZRotVS@[EH50dS@[0>'>sS@Zu4FCa !S@Z`+8=fS@ZJ|W+cS@Z5tHf4S@Yzlg7mS@YeeXS9S@YP^v]*S@Y;XgSzS@Y&S+6SS@XkMu]HS@XVI8m8 !S@XAE(d\S@X,AEB:S@Wq>4^eS@W\;P^aS@WG9?@hS@W27Z]ZS@Vw6HYpS@Vb5c4/S@VM5PE+S@V85j1C !S@U}6VQWS@Uh7oJGS@US9ZtLS@U>;rtFS@U)>]HnS@TnAtJLS@TYE]wrS@TDIsufS@T/N\BcS@StSq7H !S@S_YXRQS@SJ_l8\S@S5fRBJS@RzmdnUS@ReuIa^S@RP}ZtES@R<,>KDS@R'5N?=S@Ql?0NhS@QWI>xN !S@QBSya(S@Q-_,a2S@PrjewKS@P]vqHUS@PI)O-1S@P46X}sS@OyD5+HS@OdR=BFS@OO`qgMS@O:ox?? !S@O&%P|VS@Nk5UitS@NVF,_zS@NAW/]IS@N,h^`wS@Mqz_i1S@M]32tfS@MHF2(DS@M3Y]6`S@LxmZDB !S@Ld()P&S@LO<~XHS@L:RK\.S@L%hDYoS@Kj~iP9S@KV;`={S@KAS({dS@K,jwT0S@Jr)=ytS@J]B07^ !S@JH[N@+S@J3u>7qS@Iy5Yw_S@IdPGJ0S@IOk`azS@I;-KcmS@I&IbNDS@HkfJz=S@HW)_29S@HBGE(u !S@H-eV\zS@Gs*9s+S@G^IHixS@GIi)@6S@G5/5NVS@FzOm9aS@FepvZ:S@FQ8QTwS@F?@DS@A%kMh]S@@k?-J1S@@Vm8=YS@@BAnA_S@@-puU'S@?sFMvJS@?^vQJSS@?JM&*&S@?5~%m[ !S@>{UP_}S@>g-LYqS@>R_sYvS@>>8k^pS@>)l4gDS@=oF(r1S@=ZzG}uS@=FU8/CS@=20S92S@?rS@<:VQ65S@<&44~HS@;klCc6S@;WJ}=?S@;C*-eGS@;.cc&4S@:tCi2ES@:_~@.a !S@:K_AslS@:7@nLMS@9||kkCS@9h_9u3S@9TB2h^S@9@%VDPS@9+cJaHS@8qGid,S@8],YKd8S@+^TDHJS@+JTsy}S@+6UsCaS@*|WBX8 !S@*hY;\FS@*T[^NrS@*@^Q.MS@*,amSsS@)reYctS@)^io]8S@)JnU>]S@)6sd`rS@(|yCh`S@(i%LTk !S@(U+~}}S@(A3'.}S@(-:RtWS@'sBN?MS@'_JsBIS@'KSg|5S@'7],7US@&}ft'7S@&iq1I{S@&U{rDU !S@&B-(odS@&.8bp7S@%tDlDmS@%`QEF;S@%L^Gs@S@%8kspeS>~~yo=;S>~k.:1`S>~W=.LdS>~CLL31 !S>~/\9=fS>}ulOk9S>}a}5`IS>}N4Dv&S>}:E}PnS>}&X+IXS>|lj\_(S>|X}]5~S>|E7-'6S>|1K&1I !S>{w_HSGS>{ct:1uS>{P/U%eS>{{([RHAS>znr4t]S>z[/@WAS>zGFuI1S>z3^yHsS>yywLU< !S>yf6Hm.S>yROn53S>y>ib`6S>y+*&8}S>xqDlr?S>x]`(VvS>xI{g?YS>x6=u+.S>w|ZQr:S>whwW_j !S>wU;,LMS>wAY*7,S>w-wPxJS>vtv`[e8CS>vL{RhPS>v9Ai6LS>v%bNT~S>ul)\hxS>uXK9q& !S>uDm?l(S>u15nXjS>twXl6%S>tc|8\SS>tPF-q,S>tt)58_SS>soZN6zS>s\&2QXS>sHL?T4 !S>s4ru=SS>r{?yfIS>rggLs]S>rT5Hc{S>r@]m66S>r-,`C/S>qsU|/RS>q`%fT3S>qLOyUrS>q8z[3I !S>q%KeEXS>pkw>13S>pXI?N{S>pDuiCiS>p1HahDS>owv(aTS>odIr.+S>oPx0&lS>o=LpJOS>o)|%=v !S>npQ\YtS>n]'bC8S>nIX6RbS>n6/3--S>m|`X+9S>mi8KKuS>mUjg3tS>mBCQ<%S>m.vcc)S>luPDMn !S>lb*MU-S>lN^~wdS>l;9~ZKS>l'oLV+S>knKBiMS>k['a9CS>kG^MxXS>k4;bqwS>jzsE~7S>jgQQB9 !S>jT0*plS>j@i,TdS>j-HVFjS>it(NElS>i`bnPXS>iMC\exS>i9~s*`S>i&`WQXS>hmBd%PS>hZ%>Y6 !S>hFbA7RS>h3Eks;S>gz)dW8S>gfh+<9S>gSLs{-S>g@20^\S>g,qo?\S>fsW{vvS>f`>VO@S>fM%X{[ !S>f9g)F^S>f&N{c8S>em7Av2S>eYz/~eFcEzES>e3M)idz75IlS>df{htiS>dSfj4}S>d@R9=> !S>d->02OS>ct*NmGS>c`q;8oS>cM^OG]S>c:L1>[S>c'::vXS>bn(l:ES>bZqkbGa7|bS>b4Q,Ds !S>a{AHH2S>ah22+GS>aT}CGES>aAn|@xS>a.a(pvS>`uSV|.S>`bFRaGS>`O9uyUS>`<-fiJS>`(|%/p !S>_ope%^S>_\erI]S>_I[M@`S>_6QOcVS>^}GyW0S>^j>pt9S>^W65_bS>^D-{rBS>^1&5P}S>]wxpTQ !S>]dqx{bS>]QkNkHS>]>eK|MS>]+_pScS>\rZbI{S>\_U{^,S>\LQb4vS>\9Mp';S>\&JK3{S>[mGMYt !S>[ZDw=pS>[GBn8aS>[4A2I9S>Z{?wnDS>Zh?0LrS>ZU>j=[S>ZB>q?LS>Z/?EQ6S>Yv@@qdS>YcAcEo !S>YPCS&HS>Y=Eil;S>Y*HMb:S>XqKXa7S>X^O0g~S>XKS/uNS>X8WV.KS>X%\IEiS>Wlac`@S>WYgJ|u !S>WFmY@GS>W3t4]\S>Vz{6yMS>Vh(`8fS>VU0VN@S>VB8s_&S>V/A]ifS>UvJnm>S>UcTLhUS>UP^QZC !S>U=h}AUS>U*suv}S>Tr%;EUS>T_1'`*S>TL=:kGS>T9ItfFS>T&V{OuS>SmdO&kS>SZrICvS>SH&jL0 !S>S55X>>S>R|Dls;S>RiTN5sS>RVdV9&S>RCu*{TS>R1,&H>S>Qx=HR1S>QeO7=yS>QRaLdXS>Q?t.js !S>Q--7OdS>Pt@fkzS>PaTbdMS>PNi+8+S>P;}t?bS>P)9/z2S>OpNl2CS>O]dtu.S>OJ{J3@S>O88Eyo !S>O%Oh9TS>NlgW%=S>NZ%l;xS>NG>M|DS>N4WV1KS>M{q*h&S>Mi1%j~S>MVKG98S>MCf5+WS>M1'I@u !S>LxC)x-S>Le_0v'S>LR{^9WS>L@>WuXS>L-[wtyS>Ktyd6SS>Kb=vm7S>KO\UcqS>K<{ZsCS>K*A,@U !S>Jq`}~CS>J_'Aw[S>JLH,+9S>J9iJ'0r~}S>InRuhuS>I[uDb_S>II>9k1S>I6aU':S>H~+HkOIwkS>HXs}U}S>HF>}=AS>H3dI,`S>G{0:|vS>GhVRxvS>GU}6yXS>GCJ@}kS>G0qq*IS>Fx?m2C !S>Feh5:NS>FS6}A`S>F@`7FnS>F./qHoS>EuYwFWS>Ec*I>vS>EPUA0iS>E>&^u&S>E+RHVUS>Dr~X.: !S>D`Q3T~S>DM~4obS>D;Q[}8S>D)%N|PS>CpSglDS>C^(LKfS>CKWVsRS>C9--.YS>C&])/oS>Bn3Jv2 !S>B[d8LMS>BI;KeZS>B6m*fRS>A~E/N+S>AkwYu4S>AYPP&eS>AG)koZS>A4]S@dS>@|7`LzS>@il998 !S>@WG7^JS>@D|[aKS>@2XKA3S>?z4`VSS>?gkAFGS>?UHGiaS>?C%se>S>?0]k8/S>>x<.;*S>>etpm( !S>>SS~rxS>>A3XK_S>>.mWP.S>=vM|%5S>=d.k}mS>=Qj'JsS>=?Kb?>S>=--hYyS><=n5k7S><+RC&dS>;s6u[vS>;`usUdS>;N[;;*'?;jS>:qgxK)S>:_N|sP !S>:M6LY|S>::mvA-S>:(Kp1?S>9p*:),S>9]c.'(S>9KBL)aS>98|:/US>9&\R75S>8n=:?2S>8[xLE} !S>8IZ.J:S>87<:JMS>7~xpE4S>7l[v8zS>7Z?K~CS>7G}K_tS>75au60S>6}FnY^S>6k,7nzS>6Xl*t^ !S>6FRGi9S>6494K?S>5{zJsHS>5ib1,+S>5WJA'tS>5E2zeGS>52v*/1S>4z_]7eS>4hI_}_S>4V42KS !S>4Cy.SsS>41dT;>S>3yPIZ?S>3g3U)W+KS>3Bpo4`S>30^VoiS>2xLh'@S>2f;HgpS>2T*R{x !S>2At,b3S>2/d/s-S>1wT\S@S>1eEX[CS>1S6~/lS>1A(s)9S>1.u7F8S>0vh%+BS>0d[<10S>0RN|V8 !S>0@C2?1S>0.7kDPS>/v,sdoS>/c|KDhS>/QrL/?hvK\S>/-_ooeS>.uW8MdS>.cO*>4S>.QGE?a !S>.?@/PmS>.-9Bp2S>-u3%B?S>-c-0ynS>-Q'ea?S>->|iQAS>-,x,tt8ECS>,bp]FSS>,PmQJZ !S>,>jnP2S>,,hZUiS>+tfoZ)S>+beS[XS>+Pd`XzS>+>d+,dAAYS>*tdo*'S>*bekbbS>*Pg762 !S>*>i+W&S>*,kHisS>)tn4mBS>)bqI_}S>)Pu-@JS>)>y9g:S>),}ny)S>(u(rtLS>(c.EX'S>(Q4@|H !S>(?:e,2S>(-AWsvS>'uHsD;S>'cP]OmS>'QXp;3S>'?aQ^wS>'-j[_cS>&ut4<.S>&c~5LfS>&R._67 !S>&@9WQ/S>&.DxB-S>%vPgafS>%d]%T_S>%RiesMS>%@vtbiS>%/*Q{4S<~w8WaAS<~eG+mmS<~SV(E: !S<~AeM@;S<~/u@]MS<}x+\ANS<}feuSNK'tSylS e0+ehigh and E < e0-elow. within the range E = [e0-elow, e0+ehigh], f'' was set to f''(E) = f''_CL(E) + a0 + a1 * mu(E') * ( E' / e0) + a2 * (E' - e0) + a3 * (E' - e0)**2 where mu(E) was read from fe-xafs.xmu, f''_CL(E) was found for Fe, and E' = E + e0_shift. the values of e0_shift, a0, a1, a2, and a3 were determined to be: e0_shift = 9.98636 a0 = 9441.67 a1 = 0.937194 a2 = 0.331212E-01 a3 = -0.239275E-05 so as to best match f''_CL(E) between E = [e0-elow, e0+ehigh] -- end diffkk log file -- ifeffit-1.2.11d/examples/diffkk/diffkk.inp0000644000175000017500000000247710771740461017413 0ustar segresegre # -- diffkk version 1.30 -- # program inputs or default values used: title = diffkk: no title lines specified xmu = ../data/fex.dat out = t.out isfeff = false encol = 1 mucol = 2 iz = 26 e0 = 7112. egrid = 1.0000 % energy grid for calculation ewidth = 0.000 % for broadening CL data elow = 200.0000 % how far below data range to calculate ehigh = 500.0000 % how far above data range to calculate end % all remaining lines will be ignored on input -- diffkk program summary -- f''(E) was set to be f''(E) = f''_CL(E) for E > e0+ehigh and E < e0-elow. within the range E = [e0-elow, e0+ehigh], f'' was set to f''(E) = f''_CL(E) + a0 + a1 * mu(E') * ( E' / e0) + a2 * (E' - e0) + a3 * (E' - e0)**2 where mu(E) was read from t.dat, f''_CL(E) was found for Cu, and E' = E + e0_shift. the values of e0_shift, a0, a1, a2, and a3 were determined to be: e0_shift = -0.605967 a0 = 1.39921 a1 = 2.51221 a2 = -0.877579E-03 a3 = 0.125303E-05 so as to best match f''_CL(E) between E = [e0-elow, e0+ehigh] -- end diffkk log file -- ifeffit-1.2.11d/examples/diffkk/diffkk_1.inp0000644000175000017500000000247710771740461017633 0ustar segresegre # -- diffkk version 1.30 -- # program inputs or default values used: title = diffkk: no title lines specified xmu = ../data/fex.dat out = t.out isfeff = false encol = 1 mucol = 2 iz = 26 e0 = 7112. egrid = 1.0000 % energy grid for calculation ewidth = 0.000 % for broadening CL data elow = 200.0000 % how far below data range to calculate ehigh = 500.0000 % how far above data range to calculate end % all remaining lines will be ignored on input -- diffkk program summary -- f''(E) was set to be f''(E) = f''_CL(E) for E > e0+ehigh and E < e0-elow. within the range E = [e0-elow, e0+ehigh], f'' was set to f''(E) = f''_CL(E) + a0 + a1 * mu(E') * ( E' / e0) + a2 * (E' - e0) + a3 * (E' - e0)**2 where mu(E) was read from t.dat, f''_CL(E) was found for Cu, and E' = E + e0_shift. the values of e0_shift, a0, a1, a2, and a3 were determined to be: e0_shift = -0.605967 a0 = 1.39921 a1 = 2.51221 a2 = -0.877579E-03 a3 = 0.125303E-05 so as to best match f''_CL(E) between E = [e0-elow, e0+ehigh] -- end diffkk log file -- ifeffit-1.2.11d/examples/diffkk/cu_exp.xmu0000644000175000017500000005025010771740461017453 0ustar segresegre# data : cu foil 150k, foil rolled and annealled by matt # xmu: from skey ASCII of ../xmu/cu150k_new.xmu # using skey ASCII of cu_chi.fit # e0 = 8984.73; pre-edge range =[ -50.0 -200.0]; edge step = 2.268 # k range=[ 0.00 24.95]; k weight= 0.00; sills dk1, dk2 = 0.00 0.00 # bkg r =[ 0.00 1.17]; 1st shell r =[ 1.17 2.95]; 19 knots in spline # cu foil 150k, foil rolled and annealled by matt # 2-SI111 HC/2D= 1977.260 STPDEG=6400. STPMMZ= 40. FOCUS=F TRANSLT=F # E0= 8980.0 NREG= 3 NPTS= 636 NSCLRS= 3 EF= .0 # SRB= -205.8 -55.6 30.0 2381.3 # DEL= 10.020 .483 .050K # SEC= 1.000 1.000 1.000 # DETECTORSI0 I If # GAINS 8 7 10 # OFFSETS 51284 50016 48319 # ---------------------------------------------------------------------- # energy xmu 0.8774104E+04 0.6741972E-02 0.8784130E+04 0.4046697E-03 0.8794138E+04 0.3044748E-03 0.8804168E+04 0.2200503E-03 0.8814182E+04 0.7927279E-04 0.8824217E+04 -.2765085E-04 0.8834234E+04 -.2706209E-03 0.8844233E+04 -.2680976E-03 0.8854256E+04 -.1683232E-03 0.8864259E+04 -.3567275E-03 0.8874286E+04 -.3300229E-03 0.8884336E+04 -.2262534E-03 0.8894323E+04 -.3547299E-03 0.8904377E+04 -.2850246E-03 0.8914368E+04 0.8726314E-05 0.8924426E+04 0.3105727E-03 0.8934421E+04 0.9585278E-03 0.8934894E+04 0.1138101E-02 0.8935366E+04 0.1139678E-02 0.8935882E+04 0.1204547E-02 0.8936354E+04 0.1243973E-02 0.8936826E+04 0.1244288E-02 0.8937299E+04 0.1433218E-02 0.8937858E+04 0.1431852E-02 0.8938288E+04 0.1430590E-02 0.8938761E+04 0.1463603E-02 0.8939233E+04 0.1536672E-02 0.8939792E+04 0.1537934E-02 0.8940266E+04 0.1613948E-02 0.8940696E+04 0.1778696E-02 0.8941169E+04 0.1691854E-02 0.8941728E+04 0.1742529E-02 0.8942201E+04 0.1803088E-02 0.8942675E+04 0.1754305E-02 0.8943147E+04 0.1813391E-02 0.8943621E+04 0.2153823E-02 0.8944095E+04 0.2086115E-02 0.8944568E+04 0.2262218E-02 0.8945042E+04 0.2225105E-02 0.8945516E+04 0.2308583E-02 0.8946032E+04 0.2266003E-02 0.8946506E+04 0.2319833E-02 0.8946979E+04 0.2391536E-02 0.8947453E+04 0.2399316E-02 0.8947970E+04 0.2573316E-02 0.8948444E+04 0.2679399E-02 0.8948918E+04 0.2665626E-02 0.8949392E+04 0.2895244E-02 0.8949866E+04 0.2943817E-02 0.8950383E+04 0.3010473E-02 0.8950857E+04 0.3140422E-02 0.8951332E+04 0.3273945E-02 0.8951806E+04 0.3380553E-02 0.8952280E+04 0.3578315E-02 0.8952798E+04 0.3737912E-02 0.8953272E+04 0.3699432E-02 0.8953747E+04 0.3831062E-02 0.8954222E+04 0.3965847E-02 0.8954738E+04 0.4059734E-02 0.8955213E+04 0.4254446E-02 0.8955688E+04 0.4443061E-02 0.8956163E+04 0.4578371E-02 0.8956638E+04 0.4658591E-02 0.8957155E+04 0.4873594E-02 0.8957631E+04 0.5111307E-02 0.8958105E+04 0.5169132E-02 0.8958581E+04 0.5523126E-02 0.8959056E+04 0.5579900E-02 0.8959531E+04 0.5976894E-02 0.8960049E+04 0.6028727E-02 0.8960524E+04 0.6403748E-02 0.8961000E+04 0.6567866E-02 0.8961475E+04 0.6865086E-02 0.8961950E+04 0.7091970E-02 0.8962469E+04 0.7537223E-02 0.8962944E+04 0.7831289E-02 0.8963420E+04 0.8178869E-02 0.8963896E+04 0.8585642E-02 0.8964371E+04 0.8932592E-02 0.8964890E+04 0.9527558E-02 0.8965365E+04 0.9840338E-02 0.8965842E+04 0.1037170E-01 0.8966317E+04 0.1080349E-01 0.8966793E+04 0.1155007E-01 0.8967270E+04 0.1217216E-01 0.8967788E+04 0.1308485E-01 0.8968265E+04 0.1374857E-01 0.8968741E+04 0.1433471E-01 0.8969217E+04 0.1547544E-01 0.8969693E+04 0.1660061E-01 0.8970170E+04 0.1779653E-01 0.8970688E+04 0.1914112E-01 0.8971165E+04 0.2136223E-01 0.8971642E+04 0.2265320E-01 0.8972118E+04 0.2461567E-01 0.8972595E+04 0.2689829E-01 0.8973071E+04 0.3024109E-01 0.8973592E+04 0.3485101E-01 0.8974068E+04 0.3948573E-01 0.8974545E+04 0.4651914E-01 0.8975021E+04 0.5583674E-01 0.8975499E+04 0.6572565E-01 0.8975976E+04 0.8132894E-01 0.8976452E+04 0.1188066E+00 0.8977016E+04 0.1940368E+00 0.8977493E+04 0.2822425E+00 0.8977970E+04 0.3760500E+00 0.8978404E+04 0.4338930E+00 0.8978881E+04 0.4705176E+00 0.8979358E+04 0.4842958E+00 0.8979836E+04 0.4851528E+00 0.8980399E+04 0.4720119E+00 0.8980834E+04 0.4650247E+00 0.8981312E+04 0.4573942E+00 0.8981789E+04 0.4628778E+00 0.8982267E+04 0.4743689E+00 0.8982744E+04 0.4909787E+00 0.8983222E+04 0.5163265E+00 0.8983699E+04 0.5342217E+00 0.8984221E+04 0.5537962E+00 0.8984698E+04 0.5685183E+00 0.8985177E+04 0.5955791E+00 0.8985654E+04 0.6142486E+00 0.8986133E+04 0.6418195E+00 0.8986610E+04 0.6696226E+00 0.8987089E+04 0.7150658E+00 0.8987567E+04 0.7543312E+00 0.8988089E+04 0.7991073E+00 0.8988566E+04 0.8480088E+00 0.8989045E+04 0.8836795E+00 0.8989523E+04 0.9157425E+00 0.8990002E+04 0.9581174E+00 0.8990480E+04 0.9957231E+00 0.8990959E+04 0.1024997E+01 0.8991438E+04 0.1045592E+01 0.8992003E+04 0.1051450E+01 0.8992481E+04 0.1046245E+01 0.8992917E+04 0.1037152E+01 0.8993396E+04 0.1018508E+01 0.8993875E+04 0.1009742E+01 0.8994354E+04 0.9837348E+00 0.8994833E+04 0.9707072E+00 0.8995312E+04 0.9574713E+00 0.8995791E+04 0.9458168E+00 0.8996270E+04 0.9404431E+00 0.8996792E+04 0.9374447E+00 0.8997271E+04 0.9411120E+00 0.8997751E+04 0.9490407E+00 0.8998230E+04 0.9676145E+00 0.8998710E+04 0.9766868E+00 0.8999189E+04 0.1012650E+01 0.8999669E+04 0.1027472E+01 0.9000148E+04 0.1045820E+01 0.9000628E+04 0.1063003E+01 0.9001107E+04 0.1072831E+01 0.9001587E+04 0.1071998E+01 0.9002154E+04 0.1061513E+01 0.9002591E+04 0.1050908E+01 0.9003070E+04 0.1035810E+01 0.9003550E+04 0.1021879E+01 0.9004030E+04 0.1006236E+01 0.9004510E+04 0.9869754E+00 0.9004990E+04 0.9745494E+00 0.9005471E+04 0.9627140E+00 0.9005950E+04 0.9507703E+00 0.9006431E+04 0.9412103E+00 0.9006911E+04 0.9326335E+00 0.9007391E+04 0.9224309E+00 0.9007871E+04 0.9157560E+00 0.9008439E+04 0.9025328E+00 0.9008920E+04 0.8987371E+00 0.9009400E+04 0.8950848E+00 0.9009838E+04 0.8944842E+00 0.9010317E+04 0.8949685E+00 0.9011454E+04 0.9020438E+00 0.9012503E+04 0.9084551E+00 0.9013640E+04 0.9218667E+00 0.9014777E+04 0.9371113E+00 0.9015915E+04 0.9586273E+00 0.9017096E+04 0.9804545E+00 0.9018321E+04 0.1000979E+01 0.9019504E+04 0.1023643E+01 0.9020774E+04 0.1046339E+01 0.9022001E+04 0.1063258E+01 0.9023271E+04 0.1073492E+01 0.9024586E+04 0.1069635E+01 0.9025901E+04 0.1050523E+01 0.9027218E+04 0.1024006E+01 0.9028578E+04 0.9998387E+00 0.9029938E+04 0.9732829E+00 0.9031343E+04 0.9550736E+00 0.9032748E+04 0.9422832E+00 0.9034154E+04 0.9354880E+00 0.9035604E+04 0.9360862E+00 0.9037099E+04 0.9429586E+00 0.9038594E+04 0.9518635E+00 0.9040089E+04 0.9591606E+00 0.9041585E+04 0.9586281E+00 0.9043126E+04 0.9542525E+00 0.9044755E+04 0.9539353E+00 0.9046297E+04 0.9602759E+00 0.9047883E+04 0.9723247E+00 0.9049514E+04 0.9798746E+00 0.9051146E+04 0.9802323E+00 0.9052777E+04 0.9797023E+00 0.9054454E+04 0.9846100E+00 0.9056176E+04 0.9960462E+00 0.9057898E+04 0.1009416E+01 0.9059622E+04 0.1018625E+01 0.9061346E+04 0.1025833E+01 0.9063114E+04 0.1033986E+01 0.9064928E+04 0.1044479E+01 0.9066742E+04 0.1058282E+01 0.9068557E+04 0.1071725E+01 0.9070417E+04 0.1078210E+01 0.9072277E+04 0.1074147E+01 0.9074140E+04 0.1061350E+01 0.9076047E+04 0.1035255E+01 0.9077998E+04 0.1010597E+01 0.9079906E+04 0.9899678E+00 0.9081904E+04 0.9731535E+00 0.9083859E+04 0.9597905E+00 0.9085859E+04 0.9544396E+00 0.9087904E+04 0.9508229E+00 0.9089906E+04 0.9374591E+00 0.9091998E+04 0.9169598E+00 0.9094046E+04 0.8982905E+00 0.9096140E+04 0.8887743E+00 0.9098279E+04 0.8914091E+00 0.9100374E+04 0.9026864E+00 0.9102561E+04 0.9191025E+00 0.9104702E+04 0.9409444E+00 0.9106891E+04 0.9599401E+00 0.9109124E+04 0.9760680E+00 0.9111359E+04 0.9840099E+00 0.9113595E+04 0.9837798E+00 0.9115877E+04 0.9782224E+00 0.9118159E+04 0.9754200E+00 0.9120444E+04 0.9836646E+00 0.9122773E+04 0.1011346E+01 0.9125105E+04 0.1051583E+01 0.9127527E+04 0.1084496E+01 0.9129861E+04 0.1097050E+01 0.9132241E+04 0.1093333E+01 0.9134668E+04 0.1082557E+01 0.9137096E+04 0.1069962E+01 0.9139569E+04 0.1052849E+01 0.9142045E+04 0.1028225E+01 0.9144521E+04 0.9931400E+00 0.9147045E+04 0.9566454E+00 0.9149569E+04 0.9182795E+00 0.9152140E+04 0.8801582E+00 0.9154713E+04 0.8518628E+00 0.9157286E+04 0.8383830E+00 0.9159907E+04 0.8442038E+00 0.9162529E+04 0.8703850E+00 0.9165153E+04 0.9044260E+00 0.9167823E+04 0.9410277E+00 0.9170542E+04 0.9687940E+00 0.9173215E+04 0.9848469E+00 0.9175936E+04 0.9895651E+00 0.9178703E+04 0.9827247E+00 0.9181474E+04 0.9724739E+00 0.9184244E+04 0.9656297E+00 0.9187018E+04 0.9629228E+00 0.9189837E+04 0.9589218E+00 0.9192705E+04 0.9481909E+00 0.9195528E+04 0.9403569E+00 0.9198490E+04 0.9485641E+00 0.9201318E+04 0.9735138E+00 0.9204284E+04 0.1004944E+01 0.9207161E+04 0.1023438E+01 0.9210131E+04 0.1027037E+01 0.9213103E+04 0.1023993E+01 0.9216077E+04 0.1014406E+01 0.9219099E+04 0.9972209E+00 0.9222122E+04 0.9703062E+00 0.9225193E+04 0.9410914E+00 0.9228268E+04 0.9138968E+00 0.9231297E+04 0.8951751E+00 0.9234467E+04 0.8830231E+00 0.9237547E+04 0.8799598E+00 0.9240721E+04 0.8861941E+00 0.9243897E+04 0.8949196E+00 0.9247075E+04 0.8985146E+00 0.9250257E+04 0.8995503E+00 0.9253439E+04 0.9028817E+00 0.9256672E+04 0.9055168E+00 0.9259951E+04 0.9098957E+00 0.9263233E+04 0.9180834E+00 0.9266519E+04 0.9277955E+00 0.9269806E+04 0.9352860E+00 0.9273142E+04 0.9402648E+00 0.9276526E+04 0.9430841E+00 0.9279867E+04 0.9445433E+00 0.9283257E+04 0.9473667E+00 0.9286696E+04 0.9511650E+00 0.9290091E+04 0.9551927E+00 0.9293535E+04 0.9598542E+00 0.9297028E+04 0.9589250E+00 0.9300478E+04 0.9491588E+00 0.9304022E+04 0.9364284E+00 0.9307524E+04 0.9238093E+00 0.9311074E+04 0.9095426E+00 0.9314628E+04 0.8984793E+00 0.9318230E+04 0.8949720E+00 0.9321790E+04 0.8968365E+00 0.9325446E+04 0.9007007E+00 0.9329058E+04 0.9003751E+00 0.9332719E+04 0.8929917E+00 0.9336384E+04 0.8811103E+00 0.9340098E+04 0.8694440E+00 0.9343862E+04 0.8698696E+00 0.9347536E+04 0.8771672E+00 0.9351307E+04 0.8805297E+00 0.9355080E+04 0.8822187E+00 0.9358857E+04 0.8867533E+00 0.9362637E+04 0.8902957E+00 0.9366515E+04 0.8933154E+00 0.9370396E+04 0.8966194E+00 0.9374186E+04 0.8994826E+00 0.9378073E+04 0.9020333E+00 0.9382012E+04 0.9044330E+00 0.9385906E+04 0.9057776E+00 0.9389851E+04 0.9063253E+00 0.9393800E+04 0.9072086E+00 0.9397799E+04 0.9066880E+00 0.9401802E+04 0.9028075E+00 0.9405809E+04 0.8960993E+00 0.9409865E+04 0.8863477E+00 0.9413927E+04 0.8765295E+00 0.9417992E+04 0.8700193E+00 0.9422061E+04 0.8677934E+00 0.9426181E+04 0.8684586E+00 0.9430304E+04 0.8711557E+00 0.9434479E+04 0.8728519E+00 0.9438658E+04 0.8724337E+00 0.9442842E+04 0.8703241E+00 0.9447028E+04 0.8650271E+00 0.9451268E+04 0.8583546E+00 0.9455510E+04 0.8545701E+00 0.9459805E+04 0.8548734E+00 0.9464056E+04 0.8550488E+00 0.9468358E+04 0.8529346E+00 0.9472714E+04 0.8513590E+00 0.9477024E+04 0.8513824E+00 0.9481388E+04 0.8530164E+00 0.9485804E+04 0.8563838E+00 0.9490175E+04 0.8599797E+00 0.9494600E+04 0.8636668E+00 0.9499028E+04 0.8675203E+00 0.9503559E+04 0.8712541E+00 0.9507995E+04 0.8733839E+00 0.9512485E+04 0.8727015E+00 0.9517029E+04 0.8687358E+00 0.9521528E+04 0.8616780E+00 0.9526080E+04 0.8516719E+00 0.9530637E+04 0.8449670E+00 0.9535248E+04 0.8421411E+00 0.9539862E+04 0.8403164E+00 0.9544481E+04 0.8392144E+00 0.9549155E+04 0.8386131E+00 0.9553833E+04 0.8386256E+00 0.9558466E+04 0.8386563E+00 0.9563153E+04 0.8373731E+00 0.9567943E+04 0.8359069E+00 0.9572641E+04 0.8347866E+00 0.9577441E+04 0.8333808E+00 0.9582246E+04 0.8305126E+00 0.9586958E+04 0.8275877E+00 0.9591823E+04 0.8273325E+00 0.9596643E+04 0.8275981E+00 0.9601468E+04 0.8278092E+00 0.9606348E+04 0.8287137E+00 0.9611282E+04 0.8286341E+00 0.9616173E+04 0.8287517E+00 0.9621118E+04 0.8292912E+00 0.9626068E+04 0.8304889E+00 0.9631023E+04 0.8309134E+00 0.9636035E+04 0.8296790E+00 0.9641051E+04 0.8281937E+00 0.9646072E+04 0.8263185E+00 0.9651100E+04 0.8245063E+00 0.9656232E+04 0.8226239E+00 0.9661271E+04 0.8200655E+00 0.9666364E+04 0.8174354E+00 0.9671463E+04 0.8155388E+00 0.9676618E+04 0.8142766E+00 0.9681778E+04 0.8130158E+00 0.9686945E+04 0.8117805E+00 0.9692168E+04 0.8098293E+00 0.9697396E+04 0.8081500E+00 0.9702682E+04 0.8072974E+00 0.9707871E+04 0.8064693E+00 0.9713168E+04 0.8051064E+00 0.9718471E+04 0.8034429E+00 0.9723779E+04 0.8022345E+00 0.9729094E+04 0.8009887E+00 0.9734466E+04 0.7999908E+00 0.9739844E+04 0.7999132E+00 0.9745278E+04 0.8001745E+00 0.9750617E+04 0.8007867E+00 0.9756065E+04 0.8009951E+00 0.9761519E+04 0.8006505E+00 0.9766979E+04 0.8000871E+00 0.9772444E+04 0.7990254E+00 0.9778021E+04 0.7971187E+00 0.9783499E+04 0.7951744E+00 0.9789036E+04 0.7940637E+00 0.9794631E+04 0.7935966E+00 0.9800181E+04 0.7928761E+00 0.9805788E+04 0.7921921E+00 0.9811403E+04 0.7910633E+00 0.9817024E+04 0.7893413E+00 0.9822652E+04 0.7872020E+00 0.9828339E+04 0.7855012E+00 0.9834084E+04 0.7838321E+00 0.9839837E+04 0.7824159E+00 0.9845491E+04 0.7814756E+00 0.9851258E+04 0.7802473E+00 0.9857030E+04 0.7786638E+00 0.9862811E+04 0.7782331E+00 0.9868598E+04 0.7769879E+00 0.9874444E+04 0.7760979E+00 0.9880297E+04 0.7755287E+00 0.9886158E+04 0.7746693E+00 0.9892025E+04 0.7744495E+00 0.9897953E+04 0.7742818E+00 0.9903889E+04 0.7737645E+00 0.9909831E+04 0.7731938E+00 0.9915780E+04 0.7723519E+00 0.9921737E+04 0.7713878E+00 0.9927755E+04 0.7703801E+00 0.9933779E+04 0.7694091E+00 0.9939813E+04 0.7684044E+00 0.9945853E+04 0.7671056E+00 0.9951953E+04 0.7658703E+00 0.9958063E+04 0.7647384E+00 0.9964179E+04 0.7641895E+00 0.9970302E+04 0.7631434E+00 0.9976434E+04 0.7623070E+00 0.9982627E+04 0.7613813E+00 0.9988827E+04 0.7599826E+00 0.9995037E+04 0.7590688E+00 0.1000125E+05 0.7580626E+00 0.1000748E+05 0.7568517E+00 0.1001376E+05 0.7559683E+00 0.1002011E+05 0.7546455E+00 0.1002636E+05 0.7537997E+00 0.1003267E+05 0.7529752E+00 0.1003899E+05 0.7519615E+00 0.1004538E+05 0.7512653E+00 0.1005177E+05 0.7506705E+00 0.1005816E+05 0.7502066E+00 0.1006457E+05 0.7498655E+00 0.1007099E+05 0.7492135E+00 0.1007746E+05 0.7484943E+00 0.1008395E+05 0.7477051E+00 0.1009045E+05 0.7469721E+00 0.1009701E+05 0.7461475E+00 0.1010346E+05 0.7449650E+00 0.1011004E+05 0.7442915E+00 0.1011663E+05 0.7433155E+00 0.1012322E+05 0.7422836E+00 0.1012982E+05 0.7413458E+00 0.1013643E+05 0.7404694E+00 0.1014305E+05 0.7394975E+00 0.1014974E+05 0.7387549E+00 0.1015643E+05 0.7380071E+00 0.1016319E+05 0.7371714E+00 0.1016985E+05 0.7363428E+00 0.1017662E+05 0.7354286E+00 0.1018335E+05 0.7345183E+00 0.1019015E+05 0.7337989E+00 0.1019695E+05 0.7327770E+00 0.1020377E+05 0.7321473E+00 0.1021059E+05 0.7314357E+00 0.1021748E+05 0.7306455E+00 0.1022432E+05 0.7301625E+00 0.1023123E+05 0.7293754E+00 0.1023820E+05 0.7287913E+00 0.1024507E+05 0.7281024E+00 0.1025201E+05 0.7273813E+00 0.1025901E+05 0.7265462E+00 0.1026603E+05 0.7258803E+00 0.1027305E+05 0.7250623E+00 0.1028008E+05 0.7244315E+00 0.1028707E+05 0.7237403E+00 0.1029412E+05 0.7229400E+00 0.1030129E+05 0.7223318E+00 0.1030837E+05 0.7215357E+00 0.1031545E+05 0.7208523E+00 0.1032266E+05 0.7200241E+00 0.1032976E+05 0.7192778E+00 0.1033698E+05 0.7185457E+00 0.1034422E+05 0.7176436E+00 0.1035135E+05 0.7168659E+00 0.1035861E+05 0.7162313E+00 0.1036588E+05 0.7152950E+00 0.1037316E+05 0.7146561E+00 0.1038045E+05 0.7138659E+00 0.1038775E+05 0.7130027E+00 0.1039506E+05 0.7124880E+00 0.1040244E+05 0.7118338E+00 0.1040977E+05 0.7112003E+00 0.1041717E+05 0.7105619E+00 0.1042458E+05 0.7096823E+00 0.1043201E+05 0.7092349E+00 0.1043950E+05 0.7084215E+00 0.1044694E+05 0.7080128E+00 0.1045440E+05 0.7073382E+00 0.1046192E+05 0.7067350E+00 0.1046952E+05 0.7061310E+00 0.1047701E+05 0.7053764E+00 0.1048456E+05 0.7047317E+00 0.1049213E+05 0.7040855E+00 0.1049971E+05 0.7034122E+00 0.1050736E+05 0.7028030E+00 0.1051497E+05 0.7021356E+00 0.1052264E+05 0.7014256E+00 0.1053033E+05 0.7008122E+00 0.1053802E+05 0.7001526E+00 0.1054573E+05 0.6994040E+00 0.1055345E+05 0.6986777E+00 0.1056124E+05 0.6980134E+00 0.1056899E+05 0.6973198E+00 0.1057680E+05 0.6966711E+00 0.1058457E+05 0.6960973E+00 0.1059241E+05 0.6955323E+00 0.1060026E+05 0.6950861E+00 0.1060812E+05 0.6942660E+00 0.1061606E+05 0.6936365E+00 0.1062394E+05 0.6929983E+00 0.1063184E+05 0.6922942E+00 0.1063981E+05 0.6917670E+00 0.1064773E+05 0.6912063E+00 0.1065573E+05 0.6905777E+00 0.1066374E+05 0.6900764E+00 0.1067176E+05 0.6894348E+00 0.1067979E+05 0.6888118E+00 0.1068784E+05 0.6883494E+00 0.1069589E+05 0.6879482E+00 0.1070409E+05 0.6871855E+00 0.1071211E+05 0.6867037E+00 0.1072026E+05 0.6861793E+00 0.1072850E+05 0.6854507E+00 0.1073662E+05 0.6849430E+00 0.1074475E+05 0.6844355E+00 0.1075296E+05 0.6837852E+00 0.1076124E+05 0.6832402E+00 0.1076947E+05 0.6827815E+00 0.1077772E+05 0.6822119E+00 0.1078604E+05 0.6818072E+00 0.1079431E+05 0.6813168E+00 0.1080266E+05 0.6808841E+00 0.1081096E+05 0.6803552E+00 0.1081933E+05 0.6799428E+00 0.1082772E+05 0.6795236E+00 0.1083612E+05 0.6790450E+00 0.1084453E+05 0.6784800E+00 0.1085296E+05 0.6779360E+00 0.1086147E+05 0.6774641E+00 0.1086992E+05 0.6771168E+00 0.1087839E+05 0.6767634E+00 0.1088700E+05 0.6762208E+00 0.1089549E+05 0.6758706E+00 0.1090400E+05 0.6753890E+00 0.1091259E+05 0.6748144E+00 0.1092119E+05 0.6744113E+00 0.1092987E+05 0.6740451E+00 0.1093843E+05 0.6735902E+00 0.1094707E+05 0.6732146E+00 0.1095579E+05 0.6727384E+00 0.1096439E+05 0.6723867E+00 0.1097314E+05 0.6719835E+00 0.1098184E+05 0.6715133E+00 0.1099055E+05 0.6711512E+00 0.1099934E+05 0.6707416E+00 0.1100815E+05 0.6704237E+00 0.1101690E+05 0.6700036E+00 0.1102574E+05 0.6694748E+00 0.1103458E+05 0.6691191E+00 0.1104345E+05 0.6687337E+00 0.1105233E+05 0.6684558E+00 0.1106122E+05 0.6681455E+00 0.1107012E+05 0.6676505E+00 0.1107904E+05 0.6675902E+00 0.1108798E+05 0.6670252E+00 0.1109700E+05 0.6666487E+00 0.1110596E+05 0.6668967E+00 0.1111501E+05 0.6659402E+00 0.1112400E+05 0.6656858E+00 0.1113308E+05 0.6654199E+00 0.1114211E+05 0.6651186E+00 0.1115128E+05 0.6648450E+00 0.1116034E+05 0.6645070E+00 0.1116941E+05 0.6641994E+00 0.1117856E+05 0.6639489E+00 0.1118779E+05 0.6637826E+00 0.1119691E+05 0.6634695E+00 0.1120611E+05 0.6631836E+00 0.1121539E+05 0.6630014E+00 0.1122455E+05 0.6627417E+00 0.1123386E+05 0.6624290E+00 0.1124312E+05 0.6622750E+00 0.1125247E+05 0.6620446E+00 0.1126169E+05 0.6617838E+00 0.1127106E+05 0.6616852E+00 0.1128039E+05 0.6614420E+00 0.1128979E+05 0.6613051E+00 0.1129915E+05 0.6610311E+00 0.1130859E+05 0.6609043E+00 0.1131804E+05 0.6606375E+00 0.1132751E+05 0.6605294E+00 0.1133700E+05 0.6603453E+00 0.1134644E+05 0.6601484E+00 0.1135596E+05 0.6600524E+00 0.1136549E+05 0.6599142E+00 ifeffit-1.2.11d/examples/diffkk/fe_xafs_diffkk.out0000644000175000017500000061663710771740461021140 0ustar segresegre# diffkk: no title lines specified #------------------------ # energy f1 f2 f1_cl f2_cl 6550.0000 -2.2594726 0.54242764 -2.2594726 0.54242764 6551.0000 -2.2610808 0.54227897 -2.2610808 0.54227897 6552.0000 -2.2626921 0.54213037 -2.2626921 0.54213037 6553.0000 -2.2643066 0.54198182 -2.2643066 0.54198182 6554.0000 -2.2659242 0.54183334 -2.2659242 0.54183334 6555.0000 -2.2675449 0.54168492 -2.2675449 0.54168492 6556.0000 -2.2691688 0.54153656 -2.2691688 0.54153656 6557.0000 -2.2707959 0.54138826 -2.2707959 0.54138826 6558.0000 -2.2724262 0.54124002 -2.2724262 0.54124002 6559.0000 -2.2740596 0.54109185 -2.2740596 0.54109185 6560.0000 -2.2756963 0.54094374 -2.2756963 0.54094374 6561.0000 -2.2773362 0.54079569 -2.2773362 0.54079569 6562.0000 -2.2789794 0.54064770 -2.2789794 0.54064770 6563.0000 -2.2806257 0.54049977 -2.2806257 0.54049977 6564.0000 -2.2822754 0.54035191 -2.2822754 0.54035191 6565.0000 -2.2839283 0.54020411 -2.2839283 0.54020411 6566.0000 -2.2855845 0.54005636 -2.2855845 0.54005636 6567.0000 -2.2872440 0.53990868 -2.2872440 0.53990868 6568.0000 -2.2889068 0.53976107 -2.2889068 0.53976107 6569.0000 -2.2905730 0.53961351 -2.2905730 0.53961351 6570.0000 -2.2922425 0.53946601 -2.2922425 0.53946601 6571.0000 -2.2939153 0.53931858 -2.2939153 0.53931858 6572.0000 -2.2955915 0.53917120 -2.2955915 0.53917120 6573.0000 -2.2972711 0.53902389 -2.2972711 0.53902389 6574.0000 -2.2989540 0.53887664 -2.2989540 0.53887664 6575.0000 -2.3006404 0.53872945 -2.3006404 0.53872945 6576.0000 -2.3023301 0.53858232 -2.3023301 0.53858232 6577.0000 -2.3040233 0.53843526 -2.3040233 0.53843526 6578.0000 -2.3057200 0.53828825 -2.3057200 0.53828825 6579.0000 -2.3074201 0.53814131 -2.3074201 0.53814131 6580.0000 -2.3091237 0.53799442 -2.3091237 0.53799442 6581.0000 -2.3108307 0.53784760 -2.3108307 0.53784760 6582.0000 -2.3125413 0.53770084 -2.3125413 0.53770084 6583.0000 -2.3142553 0.53755414 -2.3142553 0.53755414 6584.0000 -2.3159729 0.53740750 -2.3159729 0.53740750 6585.0000 -2.3176940 0.53726092 -2.3176940 0.53726092 6586.0000 -2.3194187 0.53711440 -2.3194187 0.53711440 6587.0000 -2.3211470 0.53696795 -2.3211470 0.53696795 6588.0000 -2.3228788 0.53682155 -2.3228788 0.53682155 6589.0000 -2.3246142 0.53667522 -2.3246142 0.53667522 6590.0000 -2.3263532 0.53652894 -2.3263532 0.53652894 6591.0000 -2.3280959 0.53638273 -2.3280959 0.53638273 6592.0000 -2.3298422 0.53623657 -2.3298422 0.53623657 6593.0000 -2.3315921 0.53609048 -2.3315921 0.53609048 6594.0000 -2.3333458 0.53594445 -2.3333458 0.53594445 6595.0000 -2.3351031 0.53579848 -2.3351031 0.53579848 6596.0000 -2.3368641 0.53565257 -2.3368641 0.53565257 6597.0000 -2.3386288 0.53550672 -2.3386288 0.53550672 6598.0000 -2.3403972 0.53536093 -2.3403972 0.53536093 6599.0000 -2.3421694 0.53521520 -2.3421694 0.53521520 6600.0000 -2.3439454 0.53506953 -2.3439454 0.53506953 6601.0000 -2.3457251 0.53492392 -2.3457251 0.53492392 6602.0000 -2.3475086 0.53477837 -2.3475086 0.53477837 6603.0000 -2.3492959 0.53463289 -2.3492959 0.53463289 6604.0000 -2.3510870 0.53448746 -2.3510870 0.53448746 6605.0000 -2.3528820 0.53434209 -2.3528820 0.53434209 6606.0000 -2.3546808 0.53419678 -2.3546808 0.53419678 6607.0000 -2.3564835 0.53405154 -2.3564835 0.53405154 6608.0000 -2.3582901 0.53390635 -2.3582901 0.53390635 6609.0000 -2.3601006 0.53376122 -2.3601006 0.53376122 6610.0000 -2.3619150 0.53361616 -2.3619150 0.53361616 6611.0000 -2.3637333 0.53347115 -2.3637333 0.53347115 6612.0000 -2.3655556 0.53332620 -2.3655556 0.53332620 6613.0000 -2.3673819 0.53318132 -2.3673819 0.53318132 6614.0000 -2.3692121 0.53303649 -2.3692121 0.53303649 6615.0000 -2.3710463 0.53289172 -2.3710463 0.53289172 6616.0000 -2.3728846 0.53274702 -2.3728846 0.53274702 6617.0000 -2.3747269 0.53260237 -2.3747269 0.53260237 6618.0000 -2.3765732 0.53245778 -2.3765732 0.53245778 6619.0000 -2.3784236 0.53231325 -2.3784236 0.53231325 6620.0000 -2.3802781 0.53216879 -2.3802781 0.53216879 6621.0000 -2.3821367 0.53202438 -2.3821367 0.53202438 6622.0000 -2.3839994 0.53188003 -2.3839994 0.53188003 6623.0000 -2.3858663 0.53173574 -2.3858663 0.53173574 6624.0000 -2.3877373 0.53159151 -2.3877373 0.53159151 6625.0000 -2.3896125 0.53144734 -2.3896125 0.53144734 6626.0000 -2.3914918 0.53130323 -2.3914918 0.53130323 6627.0000 -2.3933754 0.53115918 -2.3933754 0.53115918 6628.0000 -2.3952632 0.53101519 -2.3952632 0.53101519 6629.0000 -2.3971553 0.53087126 -2.3971553 0.53087126 6630.0000 -2.3990516 0.53072738 -2.3990516 0.53072738 6631.0000 -2.4009522 0.53058357 -2.4009522 0.53058357 6632.0000 -2.4028571 0.53043982 -2.4028571 0.53043982 6633.0000 -2.4047663 0.53029612 -2.4047663 0.53029612 6634.0000 -2.4066799 0.53015249 -2.4066799 0.53015249 6635.0000 -2.4085978 0.53000891 -2.4085978 0.53000891 6636.0000 -2.4105201 0.52986540 -2.4105201 0.52986540 6637.0000 -2.4124468 0.52972194 -2.4124468 0.52972194 6638.0000 -2.4143779 0.52957854 -2.4143779 0.52957854 6639.0000 -2.4163135 0.52943520 -2.4163135 0.52943520 6640.0000 -2.4182535 0.52929192 -2.4182535 0.52929192 6641.0000 -2.4201979 0.52914870 -2.4201979 0.52914870 6642.0000 -2.4221469 0.52900554 -2.4221469 0.52900554 6643.0000 -2.4241004 0.52886243 -2.4241004 0.52886243 6644.0000 -2.4260584 0.52871939 -2.4260584 0.52871939 6645.0000 -2.4280210 0.52857640 -2.4280210 0.52857640 6646.0000 -2.4299881 0.52843348 -2.4299881 0.52843348 6647.0000 -2.4319599 0.52829061 -2.4319599 0.52829061 6648.0000 -2.4339362 0.52814780 -2.4339362 0.52814780 6649.0000 -2.4359172 0.52800505 -2.4359172 0.52800505 6650.0000 -2.4379029 0.52786236 -2.4379029 0.52786236 6651.0000 -2.4398932 0.52771973 -2.4398932 0.52771973 6652.0000 -2.4418882 0.52757715 -2.4418882 0.52757715 6653.0000 -2.4438880 0.52743464 -2.4438880 0.52743464 6654.0000 -2.4458925 0.52729218 -2.4458925 0.52729218 6655.0000 -2.4479017 0.52714978 -2.4479017 0.52714978 6656.0000 -2.4499158 0.52700744 -2.4499158 0.52700744 6657.0000 -2.4519347 0.52686516 -2.4519347 0.52686516 6658.0000 -2.4539583 0.52672294 -2.4539583 0.52672294 6659.0000 -2.4559869 0.52658078 -2.4559869 0.52658078 6660.0000 -2.4580203 0.52643867 -2.4580203 0.52643867 6661.0000 -2.4600586 0.52629662 -2.4600586 0.52629662 6662.0000 -2.4621018 0.52615463 -2.4621018 0.52615463 6663.0000 -2.4641500 0.52601270 -2.4641500 0.52601270 6664.0000 -2.4662032 0.52587083 -2.4662032 0.52587083 6665.0000 -2.4682613 0.52572902 -2.4682613 0.52572902 6666.0000 -2.4703244 0.52558726 -2.4703244 0.52558726 6667.0000 -2.4723926 0.52544556 -2.4723926 0.52544556 6668.0000 -2.4744659 0.52530392 -2.4744659 0.52530392 6669.0000 -2.4765442 0.52516234 -2.4765442 0.52516234 6670.0000 -2.4786276 0.52502082 -2.4786276 0.52502082 6671.0000 -2.4807162 0.52487935 -2.4807162 0.52487935 6672.0000 -2.4828099 0.52473795 -2.4828099 0.52473795 6673.0000 -2.4849088 0.52459660 -2.4849088 0.52459660 6674.0000 -2.4870129 0.52445530 -2.4870129 0.52445530 6675.0000 -2.4891222 0.52431407 -2.4891222 0.52431407 6676.0000 -2.4912368 0.52417290 -2.4912368 0.52417290 6677.0000 -2.4933567 0.52403178 -2.4933567 0.52403178 6678.0000 -2.4954818 0.52389072 -2.4954818 0.52389072 6679.0000 -2.4976123 0.52374972 -2.4976123 0.52374972 6680.0000 -2.4997482 0.52360877 -2.4997482 0.52360877 6681.0000 -2.5018894 0.52346789 -2.5018894 0.52346789 6682.0000 -2.5040361 0.52332706 -2.5040361 0.52332706 6683.0000 -2.5061882 0.52318629 -2.5061882 0.52318629 6684.0000 -2.5083457 0.52304557 -2.5083457 0.52304557 6685.0000 -2.5105087 0.52290492 -2.5105087 0.52290492 6686.0000 -2.5126773 0.52276432 -2.5126773 0.52276432 6687.0000 -2.5148514 0.52262378 -2.5148514 0.52262378 6688.0000 -2.5170310 0.52248329 -2.5170310 0.52248329 6689.0000 -2.5192163 0.52234287 -2.5192163 0.52234287 6690.0000 -2.5214071 0.52220250 -2.5214071 0.52220250 6691.0000 -2.5236036 0.52206219 -2.5236036 0.52206219 6692.0000 -2.5258058 0.52192194 -2.5258058 0.52192194 6693.0000 -2.5280137 0.52178174 -2.5280137 0.52178174 6694.0000 -2.5302274 0.52164160 -2.5302274 0.52164160 6695.0000 -2.5324468 0.52150152 -2.5324468 0.52150152 6696.0000 -2.5346720 0.52136149 -2.5346720 0.52136149 6697.0000 -2.5369030 0.52122153 -2.5369030 0.52122153 6698.0000 -2.5391399 0.52108162 -2.5391399 0.52108162 6699.0000 -2.5413826 0.52094177 -2.5413826 0.52094177 6700.0000 -2.5436313 0.52080197 -2.5436313 0.52080197 6701.0000 -2.5458859 0.52066223 -2.5458859 0.52066223 6702.0000 -2.5481465 0.52052255 -2.5481465 0.52052255 6703.0000 -2.5504130 0.52038293 -2.5504130 0.52038293 6704.0000 -2.5526856 0.52024336 -2.5526856 0.52024336 6705.0000 -2.5549643 0.52010385 -2.5549643 0.52010385 6706.0000 -2.5572490 0.51996439 -2.5572490 0.51996439 6707.0000 -2.5595399 0.51982500 -2.5595399 0.51982500 6708.0000 -2.5618369 0.51968566 -2.5618369 0.51968566 6709.0000 -2.5641402 0.51954638 -2.5641402 0.51954638 6710.0000 -2.5664496 0.51940715 -2.5664496 0.51940715 6711.0000 -2.5687653 0.51926798 -2.5687653 0.51926798 6712.0000 -2.5710873 0.51912887 -2.5710873 0.51912887 6713.0000 -2.5734155 0.51898981 -2.5734155 0.51898981 6714.0000 -2.5757502 0.51885081 -2.5757502 0.51885081 6715.0000 -2.5780912 0.51871187 -2.5780912 0.51871187 6716.0000 -2.5804386 0.51857299 -2.5804386 0.51857299 6717.0000 -2.5827925 0.51843416 -2.5827925 0.51843416 6718.0000 -2.5851529 0.51829538 -2.5851529 0.51829538 6719.0000 -2.5875198 0.51815667 -2.5875198 0.51815667 6720.0000 -2.5898932 0.51801801 -2.5898932 0.51801801 6721.0000 -2.5922732 0.51787940 -2.5922732 0.51787940 6722.0000 -2.5946599 0.51774086 -2.5946599 0.51774086 6723.0000 -2.5970532 0.51760237 -2.5970532 0.51760237 6724.0000 -2.5994532 0.51746393 -2.5994532 0.51746393 6725.0000 -2.6018599 0.51732556 -2.6018599 0.51732556 6726.0000 -2.6042734 0.51718724 -2.6042734 0.51718724 6727.0000 -2.6066936 0.51704897 -2.6066936 0.51704897 6728.0000 -2.6091208 0.51691076 -2.6091208 0.51691076 6729.0000 -2.6115548 0.51677261 -2.6115548 0.51677261 6730.0000 -2.6139957 0.51663451 -2.6139957 0.51663451 6731.0000 -2.6164435 0.51649647 -2.6164435 0.51649647 6732.0000 -2.6188984 0.51635849 -2.6188984 0.51635849 6733.0000 -2.6213603 0.51622056 -2.6213603 0.51622056 6734.0000 -2.6238292 0.51608269 -2.6238292 0.51608269 6735.0000 -2.6263052 0.51594488 -2.6263052 0.51594488 6736.0000 -2.6287884 0.51580712 -2.6287884 0.51580712 6737.0000 -2.6312788 0.51566941 -2.6312788 0.51566941 6738.0000 -2.6337764 0.51553176 -2.6337764 0.51553176 6739.0000 -2.6362812 0.51539417 -2.6362812 0.51539417 6740.0000 -2.6387934 0.51525664 -2.6387934 0.51525664 6741.0000 -2.6413129 0.51511916 -2.6413129 0.51511916 6742.0000 -2.6438397 0.51498173 -2.6438397 0.51498173 6743.0000 -2.6463740 0.51484436 -2.6463740 0.51484436 6744.0000 -2.6489158 0.51470705 -2.6489158 0.51470705 6745.0000 -2.6514651 0.51456979 -2.6514651 0.51456979 6746.0000 -2.6540219 0.51443259 -2.6540219 0.51443259 6747.0000 -2.6565863 0.51429545 -2.6565863 0.51429545 6748.0000 -2.6591584 0.51415836 -2.6591584 0.51415836 6749.0000 -2.6617381 0.51402132 -2.6617381 0.51402132 6750.0000 -2.6643256 0.51388434 -2.6643256 0.51388434 6751.0000 -2.6669208 0.51374742 -2.6669208 0.51374742 6752.0000 -2.6695239 0.51361055 -2.6695239 0.51361055 6753.0000 -2.6721348 0.51347374 -2.6721348 0.51347374 6754.0000 -2.6747536 0.51333699 -2.6747536 0.51333699 6755.0000 -2.6773804 0.51320028 -2.6773804 0.51320028 6756.0000 -2.6800151 0.51306364 -2.6800151 0.51306364 6757.0000 -2.6826579 0.51292705 -2.6826579 0.51292705 6758.0000 -2.6853088 0.51279051 -2.6853088 0.51279051 6759.0000 -2.6879679 0.51265403 -2.6879679 0.51265403 6760.0000 -2.6906351 0.51251761 -2.6906351 0.51251761 6761.0000 -2.6933105 0.51238124 -2.6933105 0.51238124 6762.0000 -2.6959942 0.51224492 -2.6959942 0.51224492 6763.0000 -2.6986863 0.51210867 -2.6986863 0.51210867 6764.0000 -2.7013868 0.51197246 -2.7013868 0.51197246 6765.0000 -2.7040956 0.51183631 -2.7040956 0.51183631 6766.0000 -2.7068130 0.51170022 -2.7068130 0.51170022 6767.0000 -2.7095389 0.51156418 -2.7095389 0.51156418 6768.0000 -2.7122733 0.51142820 -2.7122733 0.51142820 6769.0000 -2.7150164 0.51129227 -2.7150164 0.51129227 6770.0000 -2.7177682 0.51115640 -2.7177682 0.51115640 6771.0000 -2.7205288 0.51102058 -2.7205288 0.51102058 6772.0000 -2.7232981 0.51088481 -2.7232981 0.51088481 6773.0000 -2.7260762 0.51074911 -2.7260762 0.51074911 6774.0000 -2.7288633 0.51061345 -2.7288633 0.51061345 6775.0000 -2.7316593 0.51047785 -2.7316593 0.51047785 6776.0000 -2.7344644 0.51034231 -2.7344644 0.51034231 6777.0000 -2.7372785 0.51020682 -2.7372785 0.51020682 6778.0000 -2.7401017 0.51007138 -2.7401017 0.51007138 6779.0000 -2.7429341 0.50993600 -2.7429341 0.50993600 6780.0000 -2.7457757 0.50980068 -2.7457757 0.50980068 6781.0000 -2.7486266 0.50966541 -2.7486266 0.50966541 6782.0000 -2.7514869 0.50953019 -2.7514869 0.50953019 6783.0000 -2.7543566 0.50939503 -2.7543566 0.50939503 6784.0000 -2.7572358 0.50925992 -2.7572358 0.50925992 6785.0000 -2.7601244 0.50912487 -2.7601244 0.50912487 6786.0000 -2.7630227 0.50898987 -2.7630227 0.50898987 6787.0000 -2.7659306 0.50885493 -2.7659306 0.50885493 6788.0000 -2.7688483 0.50872004 -2.7688483 0.50872004 6789.0000 -2.7717757 0.50858521 -2.7717757 0.50858521 6790.0000 -2.7747129 0.50845043 -2.7747129 0.50845043 6791.0000 -2.7776601 0.50831570 -2.7776601 0.50831570 6792.0000 -2.7806172 0.50818103 -2.7806172 0.50818103 6793.0000 -2.7835843 0.50804641 -2.7835843 0.50804641 6794.0000 -2.7865615 0.50791185 -2.7865615 0.50791185 6795.0000 -2.7895489 0.50777734 -2.7895489 0.50777734 6796.0000 -2.7925465 0.50764288 -2.7925465 0.50764288 6797.0000 -2.7955544 0.50750848 -2.7955544 0.50750848 6798.0000 -2.7985727 0.50737414 -2.7985727 0.50737414 6799.0000 -2.8016014 0.50723985 -2.8016014 0.50723985 6800.0000 -2.8046405 0.50710561 -2.8046405 0.50710561 6801.0000 -2.8076903 0.50697142 -2.8076903 0.50697142 6802.0000 -2.8107507 0.50683729 -2.8107507 0.50683729 6803.0000 -2.8138218 0.50670322 -2.8138218 0.50670322 6804.0000 -2.8169036 0.50656919 -2.8169036 0.50656919 6805.0000 -2.8199963 0.50643523 -2.8199963 0.50643523 6806.0000 -2.8231000 0.50630131 -2.8231000 0.50630131 6807.0000 -2.8262146 0.50616745 -2.8262146 0.50616745 6808.0000 -2.8293403 0.50603365 -2.8293403 0.50603365 6809.0000 -2.8324772 0.50589989 -2.8324772 0.50589989 6810.0000 -2.8356253 0.50576619 -2.8356253 0.50576619 6811.0000 -2.8387847 0.50563255 -2.8387847 0.50563255 6812.0000 -2.8419554 0.50549896 -2.8419554 0.50549896 6813.0000 -2.8451377 0.50536542 -2.8451377 0.50536542 6814.0000 -2.8483314 0.50523194 -2.8483314 0.50523194 6815.0000 -2.8515368 0.50509851 -2.8515368 0.50509851 6816.0000 -2.8547539 0.50496513 -2.8547539 0.50496513 6817.0000 -2.8579827 0.50483181 -2.8579827 0.50483181 6818.0000 -2.8612234 0.50469854 -2.8612234 0.50469854 6819.0000 -2.8644761 0.50456532 -2.8644761 0.50456532 6820.0000 -2.8677407 0.50443216 -2.8677407 0.50443216 6821.0000 -2.8710175 0.50429905 -2.8710175 0.50429905 6822.0000 -2.8743065 0.50416599 -2.8743065 0.50416599 6823.0000 -2.8776078 0.50403299 -2.8776078 0.50403299 6824.0000 -2.8809215 0.50390004 -2.8809215 0.50390004 6825.0000 -2.8842476 0.50376715 -2.8842476 0.50376715 6826.0000 -2.8875862 0.50363430 -2.8875862 0.50363430 6827.0000 -2.8909376 0.50350151 -2.8909376 0.50350151 6828.0000 -2.8943016 0.50336878 -2.8943016 0.50336878 6829.0000 -2.8976785 0.50323610 -2.8976785 0.50323610 6830.0000 -2.9010683 0.50310347 -2.9010683 0.50310347 6831.0000 -2.9044711 0.50297089 -2.9044711 0.50297089 6832.0000 -2.9078870 0.50283837 -2.9078870 0.50283837 6833.0000 -2.9113161 0.50270590 -2.9113161 0.50270590 6834.0000 -2.9147586 0.50257348 -2.9147586 0.50257348 6835.0000 -2.9182144 0.50244112 -2.9182144 0.50244112 6836.0000 -2.9216838 0.50230881 -2.9216838 0.50230881 6837.0000 -2.9251667 0.50217655 -2.9251667 0.50217655 6838.0000 -2.9286634 0.50204434 -2.9286634 0.50204434 6839.0000 -2.9321738 0.50191219 -2.9321738 0.50191219 6840.0000 -2.9356982 0.50178009 -2.9356982 0.50178009 6841.0000 -2.9392366 0.50164805 -2.9392366 0.50164805 6842.0000 -2.9427891 0.50151606 -2.9427891 0.50151606 6843.0000 -2.9463559 0.50138412 -2.9463559 0.50138412 6844.0000 -2.9499370 0.50125223 -2.9499370 0.50125223 6845.0000 -2.9535326 0.50112039 -2.9535326 0.50112039 6846.0000 -2.9571427 0.50098861 -2.9571427 0.50098861 6847.0000 -2.9607675 0.50085688 -2.9607675 0.50085688 6848.0000 -2.9644071 0.50072521 -2.9644071 0.50072521 6849.0000 -2.9680616 0.50059358 -2.9680616 0.50059358 6850.0000 -2.9717311 0.50046201 -2.9717311 0.50046201 6851.0000 -2.9754158 0.50033049 -2.9754158 0.50033049 6852.0000 -2.9791158 0.50019903 -2.9791158 0.50019903 6853.0000 -2.9828311 0.50006761 -2.9828311 0.50006761 6854.0000 -2.9865619 0.49993625 -2.9865619 0.49993625 6855.0000 -2.9903084 0.49980494 -2.9903084 0.49980494 6856.0000 -2.9940706 0.49967369 -2.9940706 0.49967369 6857.0000 -2.9978487 0.49954248 -2.9978487 0.49954248 6858.0000 -3.0016428 0.49941133 -3.0016428 0.49941133 6859.0000 -3.0054531 0.49928023 -3.0054531 0.49928023 6860.0000 -3.0092796 0.49914919 -3.0092796 0.49914919 6861.0000 -3.0131226 0.49901819 -3.0131226 0.49901819 6862.0000 -3.0169820 0.49888725 -3.0169820 0.49888725 6863.0000 -3.0208582 0.49875636 -3.0208582 0.49875636 6864.0000 -3.0247512 0.49862553 -3.0247512 0.49862553 6865.0000 -3.0286611 0.49849474 -3.0286611 0.49849474 6866.0000 -3.0325881 0.49836401 -3.0325881 0.49836401 6867.0000 -3.0365324 0.49823333 -3.0365324 0.49823333 6868.0000 -3.0404940 0.49810270 -3.0404940 0.49810270 6869.0000 -3.0444732 0.49797212 -3.0444732 0.49797212 6870.0000 -3.0484700 0.49784160 -3.0484700 0.49784160 6871.0000 -3.0524847 0.49771112 -3.0524847 0.49771112 6872.0000 -3.0565174 0.49758070 -3.0565174 0.49758070 6873.0000 -3.0605682 0.49745034 -3.0605682 0.49745034 6874.0000 -3.0646373 0.49732002 -3.0646373 0.49732002 6875.0000 -3.0687248 0.49718975 -3.0687248 0.49718975 6876.0000 -3.0728310 0.49705954 -3.0728310 0.49705954 6877.0000 -3.0769559 0.49692938 -3.0769559 0.49692938 6878.0000 -3.0810998 0.49679927 -3.0810998 0.49679927 6879.0000 -3.0852627 0.49666922 -3.0852627 0.49666922 6880.0000 -3.0894450 0.49653921 -3.0894450 0.49653921 6881.0000 -3.0936467 0.49640926 -3.0936467 0.49640926 6882.0000 -3.0978680 0.49627935 -3.0978680 0.49627935 6883.0000 -3.1021090 0.49614950 -3.1021090 0.49614950 6884.0000 -3.1063701 0.49601971 -3.1063701 0.49601971 6885.0000 -3.1106513 0.49588996 -3.1106513 0.49588996 6886.0000 -3.1149529 0.49576026 -3.1149529 0.49576026 6887.0000 -3.1192749 0.49563062 -3.1192749 0.49563062 6888.0000 -3.1236177 0.49550103 -3.1236177 0.49550103 6889.0000 -3.1279814 0.49537149 -3.1279814 0.49537149 6890.0000 -3.1323661 0.49524200 -3.1323661 0.49524200 6891.0000 -3.1367722 0.49511256 -3.1367722 0.49511256 6892.0000 -3.1411997 0.49498318 -3.1411997 0.49498318 6893.0000 -3.1456489 0.49485384 -3.1456489 0.49485384 6894.0000 -3.1501200 0.49472456 -3.1501200 0.49472456 6895.0000 -3.1546131 0.49459533 -3.1546131 0.49459533 6896.0000 -3.1591286 0.49446615 -3.1591286 0.49446615 6897.0000 -3.1636666 0.49433702 -3.1636666 0.49433702 6898.0000 -3.1682273 0.49420794 -3.1682273 0.49420794 6899.0000 -3.1728110 0.49407891 -3.1728110 0.49407891 6900.0000 -3.1774178 0.49394994 -3.1774178 0.49394994 6901.0000 -3.1820481 0.49382101 -3.1820481 0.49382101 6902.0000 -3.1867019 0.49369214 -3.1867019 0.49369214 6903.0000 -3.1913796 0.49356332 -3.1913796 0.49356332 6904.0000 -3.1960814 0.49343455 -3.1960814 0.49343455 6905.0000 -3.2008075 0.49330583 -3.2008075 0.49330583 6906.0000 -3.2055582 0.49317716 -3.2055582 0.49317716 6907.0000 -3.2103337 0.49304854 -3.2103337 0.49304854 6908.0000 -3.2151342 0.49291997 -3.2151342 0.49291997 6909.0000 -3.2199601 0.49279146 -3.2199601 0.49279146 6910.0000 -3.2248115 0.49266299 -3.2248115 0.49266299 6911.0000 -3.2296887 0.49253458 -3.2296887 0.49253458 6912.0000 -3.2345921 0.49240622 -3.2345921 0.49240622 6913.0000 -3.2395218 0.49227791 -3.2395218 0.49227791 6914.0000 -3.2444781 0.49214965 -3.2444781 0.49214965 6915.0000 -3.2494613 0.49202144 -3.2494613 0.49202144 6916.0000 -3.2544718 0.49189328 -3.2544718 0.49189328 6917.0000 -3.2595097 0.49176517 -3.2595097 0.49176517 6918.0000 -3.2645753 0.49163711 -3.2645753 0.49163711 6919.0000 -3.2696690 0.49150910 -3.2696690 0.49150910 6920.0000 -3.2747911 0.49138115 -3.2747911 0.49138115 6921.0000 -3.2799418 0.49125324 -3.2799418 0.49125324 6922.0000 -3.2851215 0.49112538 -3.2851215 0.49112538 6923.0000 -3.2903304 0.49099758 -3.2903304 0.49099758 6924.0000 -3.2955690 0.49086983 -3.2955690 0.49086983 6925.0000 -3.3008374 0.49074212 -3.3008374 0.49074212 6926.0000 -3.3061361 0.49061447 -3.3061361 0.49061447 6927.0000 -3.3114654 0.49048687 -3.3114654 0.49048687 6928.0000 -3.3168256 0.49035932 -3.3168256 0.49035932 6929.0000 -3.3222171 0.49023181 -3.3222171 0.49023181 6930.0000 -3.3276401 0.49010436 -3.3276401 0.49010436 6931.0000 -3.3330952 0.48997696 -3.3330952 0.48997696 6932.0000 -3.3385825 0.48984961 -3.3385825 0.48984961 6933.0000 -3.3441026 0.48972231 -3.3441026 0.48972231 6934.0000 -3.3496557 0.48959506 -3.3496557 0.48959506 6935.0000 -3.3552423 0.48946786 -3.3552423 0.48946786 6936.0000 -3.3608627 0.48934071 -3.3608627 0.48934071 6937.0000 -3.3665174 0.48921361 -3.3665174 0.48921361 6938.0000 -3.3722067 0.48908657 -3.3722067 0.48908657 6939.0000 -3.3779310 0.48895957 -3.3779310 0.48895957 6940.0000 -3.3836908 0.48883262 -3.3836908 0.48883262 6941.0000 -3.3894865 0.48870572 -3.3894865 0.48870572 6942.0000 -3.3953185 0.48857887 -3.3953185 0.48857887 6943.0000 -3.4011872 0.48845207 -3.4011872 0.48845207 6944.0000 -3.4070931 0.48832533 -3.4070931 0.48832533 6945.0000 -3.4130367 0.48819863 -3.4130367 0.48819863 6946.0000 -3.4190184 0.48807198 -3.4190184 0.48807198 6947.0000 -3.4250386 0.48794538 -3.4250386 0.48794538 6948.0000 -3.4310979 0.48781883 -3.4310979 0.48781883 6949.0000 -3.4371968 0.48769234 -3.4371968 0.48769234 6950.0000 -3.4433357 0.48756589 -3.4433357 0.48756589 6951.0000 -3.4495151 0.48743949 -3.4495151 0.48743949 6952.0000 -3.4557356 0.48731314 -3.4557356 0.48731314 6953.0000 -3.4619977 0.48718684 -3.4619977 0.48718684 6954.0000 -3.4683019 0.48706059 -3.4683019 0.48706059 6955.0000 -3.4746488 0.48693439 -3.4746488 0.48693439 6956.0000 -3.4810388 0.48680824 -3.4810388 0.48680824 6957.0000 -3.4874727 0.48668214 -3.4874727 0.48668214 6958.0000 -3.4939510 0.48655609 -3.4939510 0.48655609 6959.0000 -3.5004742 0.48643009 -3.5004742 0.48643009 6960.0000 -3.5070429 0.48630414 -3.5070429 0.48630414 6961.0000 -3.5136579 0.48617824 -3.5136579 0.48617824 6962.0000 -3.5203196 0.48605239 -3.5203196 0.48605239 6963.0000 -3.5270288 0.48592658 -3.5270288 0.48592658 6964.0000 -3.5337860 0.48580083 -3.5337860 0.48580083 6965.0000 -3.5405920 0.48567513 -3.5405920 0.48567513 6966.0000 -3.5474474 0.48554947 -3.5474474 0.48554947 6967.0000 -3.5543530 0.48542387 -3.5543530 0.48542387 6968.0000 -3.5613093 0.48529831 -3.5613093 0.48529831 6969.0000 -3.5683172 0.48517281 -3.5683172 0.48517281 6970.0000 -3.5753774 0.48504735 -3.5753774 0.48504735 6971.0000 -3.5824907 0.48492195 -3.5824907 0.48492195 6972.0000 -3.5896577 0.48479659 -3.5896577 0.48479659 6973.0000 -3.5968793 0.48467128 -3.5968793 0.48467128 6974.0000 -3.6041563 0.48454602 -3.6041563 0.48454602 6975.0000 -3.6114895 0.48442081 -3.6114895 0.48442081 6976.0000 -3.6188798 0.48429565 -3.6188798 0.48429565 6977.0000 -3.6263280 0.48417054 -3.6263280 0.48417054 6978.0000 -3.6338350 0.48404548 -3.6338350 0.48404548 6979.0000 -3.6414016 0.48392046 -3.6414016 0.48392046 6980.0000 -3.6490288 0.48379550 -3.6490288 0.48379550 6981.0000 -3.6567176 0.48367058 -3.6567176 0.48367058 6982.0000 -3.6644688 0.48354572 -3.6644688 0.48354572 6983.0000 -3.6722836 0.48342090 -3.6722836 0.48342090 6984.0000 -3.6801628 0.48329613 -3.6801628 0.48329613 6985.0000 -3.6881075 0.48317141 -3.6881075 0.48317141 6986.0000 -3.6961187 0.48304674 -3.6961187 0.48304674 6987.0000 -3.7041976 0.48292212 -3.7041976 0.48292212 6988.0000 -3.7123453 0.48279755 -3.7123453 0.48279755 6989.0000 -3.7205628 0.48267302 -3.7205628 0.48267302 6990.0000 -3.7288513 0.48254855 -3.7288513 0.48254855 6991.0000 -3.7372120 0.48242412 -3.7372120 0.48242412 6992.0000 -3.7456462 0.48229975 -3.7456462 0.48229975 6993.0000 -3.7541551 0.48217542 -3.7541551 0.48217542 6994.0000 -3.7627399 0.48205114 -3.7627399 0.48205114 6995.0000 -3.7714020 0.48192691 -3.7714020 0.48192691 6996.0000 -3.7801427 0.48180272 -3.7801427 0.48180272 6997.0000 -3.7889634 0.48167859 -3.7889634 0.48167859 6998.0000 -3.7978655 0.48155451 -3.7978655 0.48155451 6999.0000 -3.8068505 0.48143047 -3.8068505 0.48143047 7000.0000 -3.8159199 0.48130648 -3.8159199 0.48130648 7001.0000 -3.8250752 0.48118254 -3.8250752 0.48118254 7002.0000 -3.8343180 0.48105865 -3.8343180 0.48105865 7003.0000 -3.8436499 0.48093481 -3.8436499 0.48093481 7004.0000 -3.8530725 0.48081101 -3.8530725 0.48081101 7005.0000 -3.8625877 0.48068727 -3.8625877 0.48068727 7006.0000 -3.8721970 0.48056357 -3.8721970 0.48056357 7007.0000 -3.8819025 0.48043992 -3.8819025 0.48043992 7008.0000 -3.8917058 0.48031632 -3.8917058 0.48031632 7009.0000 -3.9016090 0.48019277 -3.9016090 0.48019277 7010.0000 -3.9116140 0.48006927 -3.9116140 0.48006927 7011.0000 -3.9217229 0.47994581 -3.9217229 0.47994581 7012.0000 -3.9319377 0.47982240 -3.9319377 0.47982240 7013.0000 -3.9422606 0.47969905 -3.9422606 0.47969905 7014.0000 -3.9526938 0.47957574 -3.9526938 0.47957574 7015.0000 -3.9632396 0.47945247 -3.9632396 0.47945247 7016.0000 -3.9739004 0.47932926 -3.9739004 0.47932926 7017.0000 -3.9846786 0.47920609 -3.9846786 0.47920609 7018.0000 -3.9955767 0.47908297 -3.9955767 0.47908297 7019.0000 -4.0065974 0.47895990 -4.0065974 0.47895990 7020.0000 -4.0177432 0.47883688 -4.0177432 0.47883688 7021.0000 -4.0290171 0.47871391 -4.0290171 0.47871391 7022.0000 -4.0404217 0.47859098 -4.0404217 0.47859098 7023.0000 -4.0519602 0.47846811 -4.0519602 0.47846811 7024.0000 -4.0636355 0.47834528 -4.0636355 0.47834528 7025.0000 -4.0754509 0.47822249 -4.0754509 0.47822249 7026.0000 -4.0874095 0.47809976 -4.0874095 0.47809976 7027.0000 -4.0995148 0.47797707 -4.0995148 0.47797707 7028.0000 -4.1117703 0.47785443 -4.1117703 0.47785443 7029.0000 -4.1241797 0.47773184 -4.1241797 0.47773184 7030.0000 -4.1367466 0.47760930 -4.1367466 0.47760930 7031.0000 -4.1494751 0.47748681 -4.1494751 0.47748681 7032.0000 -4.1623691 0.47736436 -4.1623691 0.47736436 7033.0000 -4.1754329 0.47724196 -4.1754329 0.47724196 7034.0000 -4.1886708 0.47711961 -4.1886708 0.47711961 7035.0000 -4.2020874 0.47699730 -4.2020874 0.47699730 7036.0000 -4.2156874 0.47687505 -4.2156874 0.47687505 7037.0000 -4.2294757 0.47675284 -4.2294757 0.47675284 7038.0000 -4.2434574 0.47663068 -4.2434574 0.47663068 7039.0000 -4.2576378 0.47650856 -4.2576378 0.47650856 7040.0000 -4.2720225 0.47638650 -4.2720225 0.47638650 7041.0000 -4.2866172 0.47626448 -4.2866172 0.47626448 7042.0000 -4.3014280 0.47614251 -4.3014280 0.47614251 7043.0000 -4.3164610 0.47602059 -4.3164610 0.47602059 7044.0000 -4.3317229 0.47589871 -4.3317229 0.47589871 7045.0000 -4.3472206 0.47577688 -4.3472206 0.47577688 7046.0000 -4.3629610 0.47565510 -4.3629610 0.47565510 7047.0000 -4.3789518 0.47553337 -4.3789518 0.47553337 7048.0000 -4.3952007 0.47541168 -4.3952007 0.47541168 7049.0000 -4.4117160 0.47529004 -4.4117160 0.47529004 7050.0000 -4.4544815 0.49089908 -4.4285062 0.47516845 7051.0000 -4.4807695 0.49394952 -4.4455804 0.47504690 7052.0000 -4.4740209 0.49494969 -4.4629480 0.47492541 7053.0000 -4.5092116 0.49022090 -4.4806189 0.47480396 7054.0000 -4.5047101 0.49412094 -4.4986036 0.47468255 7055.0000 -4.5413883 0.48279548 -4.5169131 0.47456120 7056.0000 -4.5485828 0.49048731 -4.5355590 0.47443989 7057.0000 -4.5798754 0.48882270 -4.5545535 0.47431863 7058.0000 -4.5828787 0.49026476 -4.5739094 0.47419741 7059.0000 -4.6181794 0.48765572 -4.5936404 0.47407625 7060.0000 -4.6226167 0.48814575 -4.6137609 0.47395513 7061.0000 -4.6615355 0.48907021 -4.6342860 0.47383405 7062.0000 -4.6603967 0.49115327 -4.6552319 0.47371303 7063.0000 -4.7000363 0.48472135 -4.6766157 0.47359205 7064.0000 -4.7074107 0.48672156 -4.6984556 0.47347112 7065.0000 -4.7473502 0.48892075 -4.7207709 0.47335023 7066.0000 -4.7463882 0.48769927 -4.7435821 0.47322939 7067.0000 -4.7920961 0.48167944 -4.7669112 0.47310860 7068.0000 -4.7986513 0.48307527 -4.7907817 0.47298786 7069.0000 -4.8463856 0.48298792 -4.8152184 0.47286716 7070.0000 -4.8475205 0.48657653 -4.8402482 0.47274651 7071.0000 -4.8952411 0.47916038 -4.8658999 0.47262591 7072.0000 -4.9052894 0.48283659 -4.8922042 0.47250535 7073.0000 -4.9529585 0.48185808 -4.9191945 0.47238484 7074.0000 -4.9615607 0.48360786 -4.9469064 0.47226437 7075.0000 -5.0104963 0.48281853 -4.9753788 0.47214396 7076.0000 -5.0228009 0.48162108 -5.0046533 0.47202359 7077.0000 -5.0733929 0.48915552 -5.0347755 0.47190326 7078.0000 -5.0774832 0.47929384 -5.0657946 0.47178299 7079.0000 -5.1429218 0.48319061 -5.0977645 0.47166275 7080.0000 -5.1459874 0.47977730 -5.1307438 0.47154257 7081.0000 -5.2168395 0.48123678 -5.1647970 0.47142243 7082.0000 -5.2200796 0.48395003 -5.1999946 0.47130234 7083.0000 -5.2890767 0.48146599 -5.2364146 0.47118230 7084.0000 -5.2990305 0.47896128 -5.2741431 0.47106230 7085.0000 -5.3782092 0.48265479 -5.3132755 0.47094235 7086.0000 -5.3835652 0.48577902 -5.3539182 0.47082244 7087.0000 -5.4623901 0.48345104 -5.3961899 0.47070258 7088.0000 -5.4778121 0.48016426 -5.4402242 0.47058277 7089.0000 -5.5683806 0.48978233 -5.4861713 0.47046301 7090.0000 -5.5740912 0.48826845 -5.5342020 0.47034329 7091.0000 -5.6719805 0.49135549 -5.5845105 0.47022361 7092.0000 -5.6818909 0.48523399 -5.6373197 0.47010398 7093.0000 -5.7983381 0.48901562 -5.6928867 0.46998440 7094.0000 -5.8112886 0.48992650 -5.7515106 0.46986487 7095.0000 -5.9372927 0.49547139 -5.8135416 0.46974538 7096.0000 -5.9540868 0.49168859 -5.8793938 0.46962594 7097.0000 -6.1081376 0.50238129 -5.9495614 0.46950654 7098.0000 -6.1232734 0.51123147 -6.0246414 0.46938719 7099.0000 -6.2982552 0.51448913 -6.1053633 0.46926789 7100.0000 -6.3397015 0.53009787 -6.1926326 0.46914863 7101.0000 -6.5661695 0.56384711 -6.2875910 0.46902942 7102.0000 -6.6198656 0.66996205 -6.3917080 0.46891025 7103.0000 -6.7342599 0.79399410 -6.5069184 0.46879113 7104.0000 -6.6361413 0.73463586 -6.6358429 0.46867206 7105.0000 -6.9432729 0.69620631 -6.7821559 0.46855303 7106.0000 -6.9773121 0.71339391 -6.9512394 0.46843405 7107.0000 -7.3790245 0.75001222 -7.1514377 0.46831511 7108.0000 -7.4264432 0.81769581 -7.3967307 0.46819622 7109.0000 -8.0260552 0.94703344 -7.7133280 0.46807738 7110.0000 -8.0448311 1.1955441 -8.1600733 0.46795858 7111.0000 -9.0084627 1.5617929 -8.9247372 0.46783983 7112.0000 -17.035341 1.9123732 -19.056211 0.46772112 7113.0000 -6.9826444 2.2697452 -8.9353246 3.9504224 7114.0000 -8.4888401 2.6341341 -8.1645110 3.9492823 7115.0000 -8.0202476 3.0957897 -7.7129302 3.9481429 7116.0000 -8.2454317 3.5137391 -7.3920854 3.9470043 7117.0000 -7.7657145 3.7783972 -7.1428972 3.9458665 7118.0000 -7.8852941 4.0006072 -6.9390468 3.9447294 7119.0000 -7.6065176 4.3609094 -6.7664930 3.9435930 7120.0000 -7.4802056 4.8293894 -6.6168530 3.9424575 7121.0000 -6.7477868 5.1631092 -6.4847193 3.9413227 7122.0000 -6.2316946 5.1155208 -6.3663990 3.9401886 7123.0000 -5.6925620 4.8422746 -6.2592576 3.9390553 7124.0000 -5.6309317 4.5377064 -6.1613499 3.9379227 7125.0000 -5.5031258 4.3850398 -6.0711982 3.9367909 7126.0000 -5.5499061 4.3062183 -5.9876537 3.9356599 7127.0000 -5.4266905 4.2901869 -5.9098059 3.9345296 7128.0000 -5.4082456 4.3023558 -5.8369202 3.9334001 7129.0000 -5.1848563 4.2818434 -5.7683961 3.9322713 7130.0000 -5.1323077 4.1773513 -5.7037358 3.9311432 7131.0000 -5.0099897 4.0745214 -5.6425224 3.9300160 7132.0000 -5.0917761 3.9873782 -5.5844030 3.9288894 7133.0000 -5.0425253 4.0341554 -5.5290765 3.9277636 7134.0000 -5.0219743 4.0519901 -5.4762838 3.9266386 7135.0000 -4.8852050 4.0902207 -5.4258002 3.9255143 7136.0000 -4.7860779 4.0622787 -5.3774298 3.9243907 7137.0000 -4.6265436 4.0031630 -5.3310006 3.9232679 7138.0000 -4.5567679 3.8816885 -5.2863609 3.9221459 7139.0000 -4.4989830 3.7544677 -5.2433760 3.9210245 7140.0000 -4.5371657 3.6670990 -5.2019262 3.9199040 7141.0000 -4.5119830 3.6048035 -5.1619040 3.9187841 7142.0000 -4.5524294 3.5508195 -5.1232132 3.9176651 7143.0000 -4.5275690 3.5189132 -5.0857667 3.9165467 7144.0000 -4.5467926 3.4718758 -5.0494859 3.9154291 7145.0000 -4.5289081 3.4291774 -5.0142994 3.9143123 7146.0000 -4.5536466 3.3785271 -4.9801422 3.9131961 7147.0000 -4.5673164 3.3260332 -4.9469549 3.9120808 7148.0000 -4.6149074 3.3020707 -4.9146832 3.9109661 7149.0000 -4.6448353 3.2544861 -4.8832771 3.9098522 7150.0000 -4.7245735 3.2740060 -4.8526908 3.9087390 7151.0000 -4.7315243 3.2661589 -4.8228819 3.9076266 7152.0000 -4.8069781 3.2979402 -4.7938113 3.9065149 7153.0000 -4.7942901 3.3199852 -4.7654427 3.9054040 7154.0000 -4.8409721 3.3464651 -4.7377425 3.9042938 7155.0000 -4.8300013 3.3509874 -4.7106795 3.9031843 7156.0000 -4.9069603 3.3926761 -4.6842246 3.9020755 7157.0000 -4.8697930 3.4446174 -4.6583505 3.9009675 7158.0000 -4.9191001 3.4592184 -4.6330321 3.8998602 7159.0000 -4.9114930 3.5299648 -4.6082454 3.8987537 7160.0000 -4.9209902 3.5811879 -4.5839684 3.8976479 7161.0000 -4.8796882 3.6324261 -4.5601801 3.8965428 7162.0000 -4.8873093 3.6696491 -4.5368610 3.8954384 7163.0000 -4.8389754 3.7258689 -4.5139925 3.8943348 7164.0000 -4.8301311 3.7494310 -4.4915574 3.8932319 7165.0000 -4.7931120 3.8040463 -4.4695393 3.8921297 7166.0000 -4.7570355 3.8399148 -4.4479228 3.8910283 7167.0000 -4.7082658 3.8554682 -4.4266931 3.8899276 7168.0000 -4.7054377 3.8945271 -4.4058365 3.8888276 7169.0000 -4.6317228 3.9393662 -4.3853399 3.8877283 7170.0000 -4.6044153 3.9501804 -4.3651909 3.8866298 7171.0000 -4.5360879 3.9952076 -4.3453777 3.8855320 7172.0000 -4.4716719 3.9862490 -4.3258891 3.8844349 7173.0000 -4.4256277 3.9791109 -4.3067145 3.8833386 7174.0000 -4.3951436 3.9760168 -4.2878438 3.8822429 7175.0000 -4.3580156 3.9804302 -4.2692674 3.8811480 7176.0000 -4.3162274 3.9906805 -4.2509761 3.8800538 7177.0000 -4.2661267 3.9734659 -4.2329610 3.8789604 7178.0000 -4.2428786 3.9727906 -4.2152140 3.8778676 7179.0000 -4.1986822 3.9597175 -4.1977270 3.8767756 7180.0000 -4.1785190 3.9616737 -4.1804923 3.8756843 7181.0000 -4.1263405 3.9509185 -4.1635028 3.8745937 7182.0000 -4.0971917 3.9356705 -4.1467513 3.8735038 7183.0000 -4.0629368 3.9008287 -4.1302313 3.8724147 7184.0000 -4.0628150 3.8938464 -4.1139364 3.8713262 7185.0000 -4.0306655 3.8731728 -4.0978603 3.8702385 7186.0000 -4.0367892 3.8758497 -4.0819973 3.8691515 7187.0000 -3.9833876 3.8690802 -4.0663416 3.8680653 7188.0000 -3.9824592 3.8345845 -4.0508879 3.8669797 7189.0000 -3.9734530 3.8330295 -4.0356309 3.8658948 7190.0000 -3.9556846 3.8330799 -4.0205656 3.8648107 7191.0000 -3.9292546 3.8066955 -4.0056871 3.8637273 7192.0000 -3.9369191 3.7994835 -3.9909910 3.8626446 7193.0000 -3.9144629 3.7928228 -3.9764725 3.8615626 7194.0000 -3.9062456 3.7841465 -3.9621276 3.8604813 7195.0000 -3.8925729 3.7601917 -3.9479520 3.8594007 7196.0000 -3.8995833 3.7593153 -3.9339417 3.8583208 7197.0000 -3.8903656 3.7386173 -3.9200928 3.8572417 7198.0000 -3.9048079 3.7538857 -3.9064017 3.8561632 7199.0000 -3.8816329 3.7339704 -3.8928647 3.8550855 7200.0000 -3.9140808 3.7503926 -3.8794783 3.8540085 7201.0000 -3.8756823 3.7543704 -3.8662393 3.8529321 7202.0000 -3.9045920 3.7547110 -3.8531443 3.8518565 7203.0000 -3.8704835 3.7852328 -3.8401903 3.8507816 7204.0000 -3.8588410 3.7758596 -3.8273741 3.8497074 7205.0000 -3.8413819 3.7731223 -3.8146928 3.8486339 7206.0000 -3.8500360 3.7791210 -3.8021437 3.8475611 7207.0000 -3.8218507 3.7912864 -3.7897239 3.8464891 7208.0000 -3.8146712 3.7894155 -3.7774308 3.8454177 7209.0000 -3.7958755 3.7847507 -3.7652618 3.8443470 7210.0000 -3.8050004 3.7973373 -3.7532144 3.8432770 7211.0000 -3.7679435 3.8064146 -3.7412861 3.8422077 7212.0000 -3.7717988 3.8039062 -3.7294747 3.8411392 7213.0000 -3.7400772 3.8231468 -3.7177777 3.8400713 7214.0000 -3.7191317 3.8176022 -3.7061931 3.8390041 7215.0000 -3.6908976 3.8070901 -3.6947186 3.8379376 7216.0000 -3.6970103 3.8005451 -3.6833521 3.8368719 7217.0000 -3.6719108 3.8171294 -3.6720917 3.8358068 7218.0000 -3.6442930 3.8121041 -3.6609353 3.8347424 7219.0000 -3.6193335 3.7894550 -3.6498810 3.8336787 7220.0000 -3.6283142 3.7856044 -3.6389269 3.8326158 7221.0000 -3.6000800 3.7926920 -3.6280713 3.8315535 7222.0000 -3.5834500 3.7860672 -3.6173123 3.8304919 7223.0000 -3.5482136 3.7711598 -3.6066483 3.8294310 7224.0000 -3.5438733 3.7405380 -3.5960776 3.8283708 7225.0000 -3.5453585 3.7258614 -3.5855985 3.8273113 7226.0000 -3.5424099 3.7336419 -3.5752095 3.8262525 7227.0000 -3.5101368 3.7082154 -3.5649090 3.8251943 7228.0000 -3.5306757 3.6878039 -3.5546955 3.8241369 7229.0000 -3.5179880 3.6868196 -3.5445675 3.8230802 7230.0000 -3.5210014 3.6736704 -3.5345237 3.8220241 7231.0000 -3.5081847 3.6597632 -3.5245625 3.8209688 7232.0000 -3.5209693 3.6409251 -3.5146828 3.8199141 7233.0000 -3.5245044 3.6283702 -3.5048830 3.8188601 7234.0000 -3.5447759 3.6271732 -3.4951621 3.8178069 7235.0000 -3.5408370 3.6191862 -3.4855186 3.8167543 7236.0000 -3.5679636 3.6212204 -3.4759513 3.8157024 7237.0000 -3.5564666 3.6199191 -3.4664591 3.8146511 7238.0000 -3.5964245 3.6136462 -3.4570408 3.8136006 7239.0000 -3.5908142 3.6431817 -3.4476952 3.8125508 7240.0000 -3.6073376 3.6309623 -3.4384213 3.8115016 7241.0000 -3.6277191 3.6644637 -3.4292179 3.8104531 7242.0000 -3.6200056 3.6910833 -3.4200839 3.8094053 7243.0000 -3.6073518 3.7019667 -3.4110183 3.8083582 7244.0000 -3.6075284 3.7094472 -3.4020202 3.8073118 7245.0000 -3.6121152 3.7128266 -3.3930884 3.8062660 7246.0000 -3.6332296 3.7494567 -3.3842221 3.8052210 7247.0000 -3.6018104 3.7833664 -3.3754202 3.8041766 7248.0000 -3.5935573 3.7946374 -3.3666819 3.8031329 7249.0000 -3.5703785 3.8113902 -3.3580062 3.8020899 7250.0000 -3.5676839 3.8253251 -3.3493923 3.8010476 7251.0000 -3.5350055 3.8444366 -3.3408392 3.8000059 7252.0000 -3.5325904 3.8436183 -3.3323461 3.7989649 7253.0000 -3.5107498 3.8747016 -3.3239122 3.7979246 7254.0000 -3.4810923 3.8781063 -3.3155367 3.7968850 7255.0000 -3.4571045 3.8747382 -3.3072187 3.7958461 7256.0000 -3.4622338 3.8759174 -3.2989575 3.7948078 7257.0000 -3.4373872 3.9105175 -3.2907523 3.7937702 7258.0000 -3.4002580 3.9058354 -3.2826024 3.7927333 7259.0000 -3.3832189 3.9058212 -3.2745070 3.7916970 7260.0000 -3.3585542 3.9070355 -3.2664653 3.7906615 7261.0000 -3.3383162 3.8978127 -3.2584768 3.7896266 7262.0000 -3.3316285 3.8980180 -3.2505406 3.7885924 7263.0000 -3.3094726 3.9079324 -3.2426562 3.7875588 7264.0000 -3.2795604 3.9020069 -3.2348228 3.7865260 7265.0000 -3.2684674 3.8836572 -3.2270398 3.7854938 7266.0000 -3.2631069 3.8935938 -3.2193066 3.7844622 7267.0000 -3.2346763 3.8864925 -3.2116224 3.7834314 7268.0000 -3.2312201 3.8861167 -3.2039868 3.7824012 7269.0000 -3.1980911 3.8861233 -3.1963991 3.7813717 7270.0000 -3.1897532 3.8689832 -3.1888587 3.7803428 7271.0000 -3.1712570 3.8693268 -3.1813650 3.7793146 7272.0000 -3.1590929 3.8533416 -3.1739174 3.7782871 7273.0000 -3.1503179 3.8528181 -3.1665155 3.7772603 7274.0000 -3.1282334 3.8481454 -3.1591586 3.7762341 7275.0000 -3.1081920 3.8242130 -3.1518462 3.7752086 7276.0000 -3.1189581 3.8029128 -3.1445777 3.7741838 7277.0000 -3.1192944 3.8156770 -3.1373527 3.7731596 7278.0000 -3.0941527 3.8056361 -3.1301707 3.7721361 7279.0000 -3.1019476 3.7906106 -3.1230311 3.7711132 7280.0000 -3.0872255 3.7996663 -3.1159334 3.7700910 7281.0000 -3.0811071 3.7761650 -3.1088771 3.7690695 7282.0000 -3.0831925 3.7850916 -3.1018619 3.7680487 7283.0000 -3.0688529 3.7749650 -3.0948871 3.7670285 7284.0000 -3.0625013 3.7762085 -3.0879525 3.7660089 7285.0000 -3.0526842 3.7592625 -3.0810574 3.7649901 7286.0000 -3.0474816 3.7627327 -3.0742014 3.7639719 7287.0000 -3.0400730 3.7332780 -3.0673842 3.7629543 7288.0000 -3.0576310 3.7473428 -3.0606052 3.7619374 7289.0000 -3.0346751 3.7346263 -3.0538641 3.7609212 7290.0000 -3.0527523 3.7395907 -3.0471605 3.7599056 7291.0000 -3.0215689 3.7383898 -3.0404939 3.7588907 7292.0000 -3.0316101 3.7161082 -3.0338640 3.7578764 7293.0000 -3.0396840 3.7177230 -3.0272702 3.7568628 7294.0000 -3.0374331 3.7377458 -3.0207124 3.7558499 7295.0000 -3.0068117 3.7209849 -3.0141900 3.7548376 7296.0000 -3.0242511 3.7109943 -3.0077027 3.7538260 7297.0000 -3.0104535 3.7066395 -3.0012501 3.7528150 7298.0000 -3.0302323 3.6985631 -2.9948319 3.7518047 7299.0000 -3.0250471 3.7105599 -2.9884477 3.7507950 7300.0000 -3.0202778 3.7111614 -2.9820972 3.7497860 7301.0000 -3.0175197 3.6929189 -2.9757799 3.7487776 7302.0000 -3.0485725 3.7106032 -2.9694956 3.7477699 7303.0000 -3.0229099 3.7284963 -2.9632440 3.7467629 7304.0000 -3.0260090 3.7335392 -2.9570246 3.7457564 7305.0000 -2.9924774 3.7322692 -2.9508372 3.7447507 7306.0000 -3.0147226 3.7136787 -2.9446815 3.7437456 7307.0000 -3.0054713 3.7366094 -2.9385570 3.7427411 7308.0000 -3.0050146 3.7309064 -2.9324636 3.7417373 7309.0000 -2.9953553 3.7405708 -2.9264010 3.7407342 7310.0000 -3.0024591 3.7408085 -2.9203687 3.7397317 7311.0000 -2.9863531 3.7642886 -2.9143665 3.7387298 7312.0000 -2.9668753 3.7606187 -2.9083942 3.7377286 7313.0000 -2.9501791 3.7483783 -2.9024514 3.7367280 7314.0000 -2.9683352 3.7377712 -2.8965378 3.7357281 7315.0000 -2.9659890 3.7590537 -2.8906532 3.7347288 7316.0000 -2.9602147 3.7696652 -2.8847973 3.7337302 7317.0000 -2.9328255 3.7795366 -2.8789698 3.7327322 7318.0000 -2.9308016 3.7668734 -2.8731704 3.7317348 7319.0000 -2.9197627 3.7840255 -2.8673990 3.7307382 7320.0000 -2.8991955 3.7799415 -2.8616552 3.7297421 7321.0000 -2.8851890 3.7694070 -2.8559387 3.7287467 7322.0000 -2.8934035 3.7687316 -2.8502493 3.7277519 7323.0000 -2.8649048 3.7807767 -2.8445868 3.7267578 7324.0000 -2.8617427 3.7537635 -2.8389510 3.7257643 7325.0000 -2.8619353 3.7686536 -2.8333415 3.7247714 7326.0000 -2.8432716 3.7586524 -2.8277581 3.7237792 7327.0000 -2.8450439 3.7529781 -2.8222006 3.7227877 7328.0000 -2.8429904 3.7590798 -2.8166688 3.7217967 7329.0000 -2.8237447 3.7618252 -2.8111625 3.7208064 7330.0000 -2.8200305 3.7519189 -2.8056813 3.7198168 7331.0000 -2.8033717 3.7556047 -2.8002252 3.7188278 7332.0000 -2.8014459 3.7316340 -2.7947938 3.7178394 7333.0000 -2.8088646 3.7450811 -2.7893869 3.7168517 7334.0000 -2.7884149 3.7414602 -2.7840044 3.7158646 7335.0000 -2.7894535 3.7346586 -2.7786460 3.7148781 7336.0000 -2.7806827 3.7386604 -2.7733115 3.7138922 7337.0000 -2.7662636 3.7307841 -2.7680007 3.7129070 7338.0000 -2.7663726 3.7168686 -2.7627134 3.7119225 7339.0000 -2.7689564 3.7181188 -2.7574494 3.7109385 7340.0000 -2.7631146 3.7172287 -2.7522085 3.7099552 7341.0000 -2.7579156 3.7157146 -2.7469906 3.7089726 7342.0000 -2.7512635 3.7097853 -2.7417953 3.7079905 7343.0000 -2.7515674 3.7040827 -2.7366226 3.7070091 7344.0000 -2.7477409 3.7030753 -2.7314721 3.7060284 7345.0000 -2.7484875 3.6909711 -2.7263439 3.7050482 7346.0000 -2.7632303 3.6986731 -2.7212376 3.7040687 7347.0000 -2.7495734 3.7101730 -2.7161531 3.7030898 7348.0000 -2.7472916 3.7040968 -2.7110902 3.7021116 7349.0000 -2.7407926 3.7104030 -2.7060487 3.7011339 7350.0000 -2.7360504 3.7024846 -2.7010285 3.7001569 7351.0000 -2.7377938 3.7040576 -2.6960293 3.6991806 7352.0000 -2.7413736 3.7048790 -2.6910511 3.6982048 7353.0000 -2.7390438 3.7227319 -2.6860936 3.6972297 7354.0000 -2.7204627 3.7261227 -2.6811567 3.6962552 7355.0000 -2.7092633 3.7246027 -2.6762402 3.6952814 7356.0000 -2.7028452 3.7153676 -2.6713439 3.6943081 7357.0000 -2.7005717 3.7242534 -2.6664677 3.6933355 7358.0000 -2.6797804 3.7086827 -2.6616115 3.6923635 7359.0000 -2.7057569 3.7048227 -2.6567750 3.6913921 7360.0000 -2.6837856 3.7328983 -2.6519582 3.6904214 7361.0000 -2.6653802 3.7108061 -2.6471608 3.6894513 7362.0000 -2.6677083 3.7027182 -2.6423827 3.6884818 7363.0000 -2.6785050 3.6986534 -2.6376238 3.6875129 7364.0000 -2.6708898 3.7140642 -2.6328840 3.6865446 7365.0000 -2.6708697 3.7041301 -2.6281630 3.6855770 7366.0000 -2.6636967 3.7285795 -2.6234607 3.6846100 7367.0000 -2.6416665 3.7084552 -2.6187770 3.6836436 7368.0000 -2.6516646 3.7186234 -2.6141118 3.6826778 7369.0000 -2.6187995 3.7062414 -2.6094649 3.6817126 7370.0000 -2.6457919 3.6814553 -2.6048361 3.6807481 7371.0000 -2.6555672 3.7089380 -2.6002254 3.6797842 7372.0000 -2.6373689 3.7188784 -2.5956326 3.6788209 7373.0000 -2.6231080 3.7111758 -2.5910576 3.6778582 7374.0000 -2.6306900 3.7011630 -2.5865002 3.6768961 7375.0000 -2.6351658 3.7203003 -2.5819603 3.6759346 7376.0000 -2.6128313 3.7206771 -2.5774378 3.6749738 7377.0000 -2.6224651 3.7210796 -2.5729325 3.6740136 7378.0000 -2.5914059 3.7347535 -2.5684444 3.6730540 7379.0000 -2.5995844 3.7017110 -2.5639732 3.6720950 7380.0000 -2.6033923 3.7370378 -2.5595190 3.6711366 7381.0000 -2.5793109 3.7190360 -2.5550815 3.6701788 7382.0000 -2.5859114 3.7345043 -2.5506606 3.6692216 7383.0000 -2.5626597 3.7173918 -2.5462563 3.6682651 7384.0000 -2.5829881 3.7296249 -2.5418684 3.6673091 7385.0000 -2.5539461 3.7331178 -2.5374967 3.6663538 7386.0000 -2.5629216 3.7385475 -2.5331413 3.6653991 7387.0000 -2.5245240 3.7454794 -2.5288019 3.6644450 7388.0000 -2.5223173 3.7249642 -2.5244784 3.6634915 7389.0000 -2.5065599 3.7194182 -2.5201708 3.6625386 7390.0000 -2.5198819 3.7010811 -2.5158788 3.6615863 7391.0000 -2.5183773 3.7168264 -2.5116026 3.6606347 7392.0000 -2.5103208 3.7120662 -2.5073418 3.6596836 7393.0000 -2.5056582 3.7173536 -2.5030964 3.6587331 7394.0000 -2.4927119 3.7156876 -2.4988663 3.6577833 7395.0000 -2.4858155 3.7083024 -2.4946514 3.6568340 7396.0000 -2.4814768 3.7046765 -2.4904516 3.6558854 7397.0000 -2.4822261 3.6969590 -2.4862668 3.6549374 7398.0000 -2.4830811 3.7083998 -2.4820968 3.6539899 7399.0000 -2.4679176 3.7056128 -2.4779417 3.6530431 7400.0000 -2.4634091 3.7094238 -2.4738012 3.6520969 7401.0000 -2.4446323 3.6964625 -2.4696753 3.6511513 7402.0000 -2.4564271 3.6909533 -2.4655639 3.6502063 7403.0000 -2.4445853 3.6967897 -2.4614669 3.6492618 7404.0000 -2.4393667 3.6921242 -2.4573842 3.6483180 7405.0000 -2.4316279 3.6843458 -2.4533157 3.6473748 7406.0000 -2.4360739 3.6871777 -2.4492613 3.6464322 7407.0000 -2.4175136 3.6839356 -2.4452210 3.6454902 7408.0000 -2.4217259 3.6737916 -2.4411945 3.6445488 7409.0000 -2.4148279 3.6691734 -2.4371819 3.6436080 7410.0000 -2.4277737 3.6669972 -2.4331831 3.6426678 7411.0000 -2.4152402 3.6778834 -2.4291979 3.6417282 7412.0000 -2.4150292 3.6705791 -2.4252262 3.6407892 7413.0000 -2.4040325 3.6807938 -2.4212681 3.6398508 7414.0000 -2.3902242 3.6636912 -2.4173233 3.6389129 7415.0000 -2.4062033 3.6547943 -2.4133919 3.6379757 7416.0000 -2.4041969 3.6798039 -2.4094737 3.6370391 7417.0000 -2.3723361 3.6679264 -2.4055686 3.6361031 7418.0000 -2.3851856 3.6495947 -2.4016766 3.6351676 7419.0000 -2.3881219 3.6546000 -2.3977976 3.6342328 7420.0000 -2.3899325 3.6655617 -2.3939314 3.6332986 7421.0000 -2.3658127 3.6659210 -2.3900781 3.6323649 7422.0000 -2.3688259 3.6560413 -2.3862375 3.6314318 7423.0000 -2.3498228 3.6537299 -2.3824096 3.6304994 7424.0000 -2.3627986 3.6283729 -2.3785943 3.6295675 7425.0000 -2.3738305 3.6430498 -2.3747914 3.6286362 7426.0000 -2.3683423 3.6505665 -2.3710010 3.6277056 7427.0000 -2.3523475 3.6493647 -2.3672230 3.6267755 7428.0000 -2.3616632 3.6400224 -2.3634572 3.6258460 7429.0000 -2.3488783 3.6540224 -2.3597036 3.6249170 7430.0000 -2.3463461 3.6324092 -2.3559621 3.6239887 7431.0000 -2.3577325 3.6411813 -2.3522327 3.6230610 7432.0000 -2.3585783 3.6485961 -2.3485153 3.6221338 7433.0000 -2.3407254 3.6660861 -2.3448098 3.6212073 7434.0000 -2.3299155 3.6471654 -2.3411161 3.6202813 7435.0000 -2.3274901 3.6589361 -2.3374342 3.6193559 7436.0000 -2.3194552 3.6342794 -2.3337639 3.6184311 7437.0000 -2.3422365 3.6667745 -2.3301053 3.6175069 7438.0000 -2.2777169 3.6670690 -2.3264583 3.6165833 7439.0000 -2.2976007 3.6160545 -2.3228227 3.6156603 7440.0000 -2.3139274 3.6377767 -2.3191986 3.6147378 7441.0000 -2.3060506 3.6423723 -2.3155858 3.6138160 7442.0000 -2.2918418 3.6484989 -2.3119844 3.6128947 7443.0000 -2.2832665 3.6359038 -2.3083941 3.6119740 7444.0000 -2.2794921 3.6310761 -2.3048150 3.6110539 7445.0000 -2.2866619 3.6224851 -2.3012470 3.6101343 7446.0000 -2.2832467 3.6349665 -2.2976900 3.6092154 7447.0000 -2.2768887 3.6263062 -2.2941440 3.6082970 7448.0000 -2.2762310 3.6358017 -2.2906090 3.6073792 7449.0000 -2.2595725 3.6318537 -2.2870847 3.6064620 7450.0000 -2.2517861 3.6205639 -2.2835713 3.6055454 7451.0000 -2.2618874 3.6055939 -2.2800685 3.6046294 7452.0000 -2.2672932 3.6236308 -2.2765765 3.6037139 7453.0000 -2.2484440 3.6200794 -2.2730951 3.6027990 7454.0000 -2.2438447 3.6120467 -2.2696242 3.6018847 7455.0000 -2.2482559 3.5941159 -2.2661639 3.6009710 7456.0000 -2.2655176 3.6094204 -2.2627140 3.6000578 7457.0000 -2.2445562 3.6153498 -2.2592746 3.5991453 7458.0000 -2.2438690 3.6056383 -2.2558457 3.5982333 7459.0000 -2.2422576 3.5989854 -2.2524274 3.5973219 7460.0000 -2.2586839 3.5992304 -2.2490201 3.5964110 7461.0000 -2.2565412 3.6228286 -2.2456264 3.5955008 7462.0000 -2.2315557 3.6303452 -2.2424730 3.5945911 7463.0000 -2.2664115 3.6107843 -2.2903352 3.5938484 7464.0000 -2.2774508 3.5985999 -2.2869578 3.5931138 7465.0000 -2.2813976 3.6050160 -2.2835863 3.5923794 7466.0000 -2.2771918 3.6051197 -2.2802234 3.5916452 7467.0000 -2.2821442 3.6081132 -2.2768694 3.5909112 7468.0000 -2.2684601 3.6180105 -2.2735246 3.5901775 7469.0000 -2.2668390 3.5999368 -2.2701889 3.5894439 7470.0000 -2.2818971 3.6158046 -2.2668623 3.5887105 7471.0000 -2.2625538 3.6285636 -2.2635448 3.5879774 7472.0000 -2.2522963 3.6230529 -2.2602363 3.5872444 7473.0000 -2.2507966 3.6247526 -2.2569368 3.5865117 7474.0000 -2.2333583 3.6313319 -2.2536463 3.5857792 7475.0000 -2.2245028 3.6149675 -2.2503647 3.5850468 7476.0000 -2.2199882 3.6168042 -2.2470920 3.5843147 7477.0000 -2.2161482 3.5964777 -2.2438281 3.5835828 7478.0000 -2.2297788 3.6057232 -2.2405729 3.5828511 7479.0000 -2.2178811 3.6049168 -2.2373266 3.5821196 7480.0000 -2.2199719 3.6111373 -2.2340888 3.5813883 7481.0000 -2.2013407 3.6054929 -2.2308598 3.5806572 7482.0000 -2.2080811 3.5963876 -2.2276393 3.5799263 7483.0000 -2.2067578 3.5976993 -2.2244274 3.5791956 7484.0000 -2.2083446 3.6009468 -2.2212240 3.5784652 7485.0000 -2.2019074 3.6045149 -2.2180291 3.5777349 7486.0000 -2.1934328 3.6062886 -2.2148426 3.5770048 7487.0000 -2.1909754 3.5990554 -2.2116644 3.5762750 7488.0000 -2.1843753 3.6102495 -2.2084946 3.5755453 7489.0000 -2.1702202 3.5926615 -2.2053331 3.5748159 7490.0000 -2.1788808 3.5950221 -2.2021799 3.5740866 7491.0000 -2.1709648 3.5865814 -2.1990349 3.5733576 7492.0000 -2.1792660 3.5995434 -2.1958980 3.5726287 7493.0000 -2.1505137 3.5909381 -2.1927693 3.5719001 7494.0000 -2.1680048 3.5760329 -2.1896486 3.5711717 7495.0000 -2.1633771 3.5838060 -2.1865360 3.5704435 7496.0000 -2.1689187 3.5802059 -2.1834315 3.5697155 7497.0000 -2.1661063 3.5896249 -2.1803348 3.5689876 7498.0000 -2.1587381 3.5932302 -2.1772461 3.5682600 7499.0000 -2.1532099 3.5895553 -2.1741653 3.5675326 7500.0000 -2.1493439 3.6007654 -2.1710924 3.5668054 7501.0000 -2.1279271 3.5902937 -2.1680272 3.5660784 7502.0000 -2.1325381 3.5867094 -2.1649699 3.5653517 7503.0000 -2.1142017 3.5748219 -2.1619202 3.5646251 7504.0000 -2.1361873 3.5595114 -2.1588783 3.5638987 7505.0000 -2.1356727 3.5765465 -2.1558440 3.5631725 7506.0000 -2.1299659 3.5703271 -2.1528173 3.5624465 7507.0000 -2.1371670 3.5736766 -2.1497982 3.5617208 7508.0000 -2.1280066 3.5843625 -2.1467867 3.5609952 7509.0000 -2.1270801 3.5777377 -2.1437827 3.5602698 7510.0000 -2.1161756 3.6002853 -2.1407861 3.5595447 7511.0000 -2.0913108 3.5679984 -2.1377970 3.5588197 7512.0000 -2.1259429 3.5754720 -2.1348153 3.5580950 7513.0000 -2.0918328 3.5913120 -2.1318410 3.5573704 7514.0000 -2.0929104 3.5673129 -2.1288739 3.5566461 7515.0000 -2.0956863 3.5697865 -2.1259142 3.5559219 7516.0000 -2.0981632 3.5663212 -2.1229618 3.5551980 7517.0000 -2.1135131 3.5756839 -2.1200166 3.5544743 7518.0000 -2.0863014 3.6176790 -2.1170785 3.5537507 7519.0000 -2.0486786 3.5711661 -2.1141476 3.5530274 7520.0000 -2.0846896 3.5907396 -2.1112239 3.5523043 7521.0000 -2.0202865 3.5862924 -2.1083072 3.5515813 7522.0000 -2.0454230 3.5490223 -2.1053976 3.5508586 7523.0000 -2.0323523 3.5446683 -2.1024951 3.5501361 7524.0000 -2.0733735 3.5380637 -2.0995995 3.5494138 7525.0000 -2.0393606 3.5675108 -2.0967109 3.5486917 7526.0000 -2.0504226 3.5406033 -2.0938292 3.5479698 7527.0000 -2.0266018 3.5586311 -2.0909544 3.5472480 7528.0000 -2.0388184 3.5216229 -2.0880865 3.5465265 7529.0000 -2.0358380 3.5434198 -2.0852254 3.5458052 7530.0000 -2.0443353 3.5187862 -2.0823711 3.5450841 7531.0000 -2.0435519 3.5458683 -2.0795236 3.5443632 7532.0000 -2.0428812 3.5312264 -2.0766828 3.5436425 7533.0000 -2.0264278 3.5608553 -2.0738487 3.5429220 7534.0000 -2.0073363 3.5203375 -2.0710213 3.5422017 7535.0000 -2.0231297 3.5279206 -2.0682006 3.5414816 7536.0000 -2.0196605 3.5126842 -2.0653865 3.5407617 7537.0000 -2.0206907 3.5329662 -2.0625789 3.5400421 7538.0000 -2.0028358 3.4995090 -2.0597780 3.5393226 7539.0000 -2.0365939 3.5110943 -2.0569835 3.5386033 7540.0000 -2.0116728 3.5133660 -2.0541956 3.5378842 7541.0000 -2.0295205 3.5070565 -2.0514141 3.5371653 7542.0000 -2.0148256 3.5205217 -2.0486390 3.5364466 7543.0000 -2.0094814 3.5044117 -2.0458704 3.5357281 7544.0000 -2.0182599 3.5029582 -2.0431082 3.5350099 7545.0000 -2.0096322 3.5065341 -2.0403523 3.5342918 7546.0000 -2.0151408 3.4842333 -2.0376028 3.5335739 7547.0000 -2.0383117 3.5001777 -2.0348595 3.5328562 7548.0000 -2.0281510 3.5097167 -2.0321225 3.5321387 7549.0000 -2.0294265 3.5227791 -2.0293918 3.5314215 7550.0000 -1.9993862 3.5195943 -2.0266673 3.5307044 7551.0000 -2.0171438 3.4938437 -2.0239490 3.5299875 7552.0000 -2.0271469 3.5224119 -2.0212368 3.5292708 7553.0000 -2.0021907 3.5167174 -2.0185308 3.5285543 7554.0000 -2.0189890 3.5096272 -2.0158309 3.5278381 7555.0000 -2.0075851 3.5149001 -2.0131370 3.5271220 7556.0000 -2.0576732 3.5010114 -2.0104493 3.5264061 7557.0000 -2.0561498 3.6261022 -2.0077675 3.5256904 7558.0000 -1.9053541 3.6063215 -2.0050918 3.5249750 7559.0000 -1.9310756 3.5125900 -2.0024221 3.5242597 7560.0000 -1.9387320 3.5296456 -1.9997583 3.5235446 7561.0000 -1.9365875 3.5010995 -1.9971004 3.5228297 7562.0000 -1.9407116 3.5084646 -1.9944485 3.5221151 7563.0000 -1.9363902 3.4809630 -1.9918024 3.5214006 7564.0000 -1.9661359 3.4865218 -1.9891622 3.5206863 7565.0000 -1.9585858 3.5046375 -1.9865278 3.5199722 7566.0000 -1.9414547 3.5068924 -1.9838992 3.5192584 7567.0000 -1.9320854 3.4844221 -1.9812764 3.5185447 7568.0000 -1.9507236 3.4812661 -1.9786593 3.5178312 7569.0000 -1.9459774 3.4880587 -1.9760480 3.5171179 7570.0000 -1.9475443 3.4892336 -1.9734424 3.5164048 7571.0000 -1.9329700 3.4918384 -1.9708425 3.5156920 7572.0000 -1.9347806 3.4738791 -1.9682482 3.5149793 7573.0000 -1.9446460 3.4871083 -1.9656596 3.5142668 7574.0000 -1.9133012 3.4889648 -1.9630766 3.5135545 7575.0000 -1.9167499 3.4434195 -1.9604991 3.5128424 7576.0000 -1.9596075 3.4538340 -1.9579273 3.5121305 7577.0000 -1.9459856 3.4780533 -1.9553610 3.5114188 7578.0000 -1.9399746 3.4721642 -1.9528002 3.5107073 7579.0000 -1.9377512 3.4697890 -1.9502449 3.5099961 7580.0000 -1.9465077 3.4744322 -1.9476951 3.5092850 7581.0000 -1.9293825 3.4828053 -1.9451508 3.5085741 7582.0000 -1.9328407 3.4718304 -1.9426118 3.5078634 7583.0000 -1.9205169 3.4814948 -1.9400783 3.5071529 7584.0000 -1.9253117 3.4593131 -1.9375502 3.5064426 7585.0000 -1.9288528 3.4857937 -1.9350275 3.5057325 7586.0000 -1.9009003 3.4653494 -1.9325101 3.5050226 7587.0000 -1.9242023 3.4575813 -1.9299980 3.5043129 7588.0000 -1.9187057 3.4687966 -1.9274912 3.5036033 7589.0000 -1.9126844 3.4729904 -1.9249897 3.5028940 7590.0000 -1.8960826 3.4643383 -1.9224935 3.5021849 7591.0000 -1.8994352 3.4555053 -1.9200025 3.5014760 7592.0000 -1.8913444 3.4466675 -1.9175167 3.5007673 7593.0000 -1.8992275 3.4378249 -1.9150361 3.5000588 7594.0000 -1.8945034 3.4289775 -1.9125607 3.4993504 7595.0000 -1.9081952 3.4201254 -1.9100904 3.4986423 7596.0000 -1.9060673 3.4112684 -1.9076253 3.4979344 7597.0000 -1.9314071 3.4024067 -1.9051653 3.4972267 7598.0000 -1.9321064 3.3935402 -1.9027104 3.4965191 7599.0000 -2.0101879 3.3846689 -1.9002606 3.4958118 7600.0000 -2.0169275 3.3757928 -1.8978159 3.4951047 7601.0000 -1.8953761 3.4943977 -1.8953761 3.4943977 7602.0000 -1.8929414 3.4936910 -1.8929414 3.4936910 7603.0000 -1.8905117 3.4929844 -1.8905117 3.4929844 7604.0000 -1.8880870 3.4922781 -1.8880870 3.4922781 7605.0000 -1.8856672 3.4915719 -1.8856672 3.4915719 7606.0000 -1.8832523 3.4908659 -1.8832523 3.4908659 7607.0000 -1.8808424 3.4901602 -1.8808424 3.4901602 7608.0000 -1.8784374 3.4894546 -1.8784374 3.4894546 7609.0000 -1.8760373 3.4887492 -1.8760373 3.4887492 7610.0000 -1.8736420 3.4880441 -1.8736420 3.4880441 7611.0000 -1.8712516 3.4873391 -1.8712516 3.4873391 7612.0000 -1.8688660 3.4866343 -1.8688660 3.4866343 7613.0000 -1.8664852 3.4859297 -1.8664852 3.4859297 7614.0000 -1.8641092 3.4852253 -1.8641092 3.4852253 7615.0000 -1.8617380 3.4845211 -1.8617380 3.4845211 7616.0000 -1.8593715 3.4838171 -1.8593715 3.4838171 7617.0000 -1.8570098 3.4831133 -1.8570098 3.4831133 7618.0000 -1.8546528 3.4824097 -1.8546528 3.4824097 7619.0000 -1.8523005 3.4817063 -1.8523005 3.4817063 7620.0000 -1.8499528 3.4810031 -1.8499528 3.4810031 7621.0000 -1.8476099 3.4803001 -1.8476099 3.4803001 7622.0000 -1.8452716 3.4795973 -1.8452716 3.4795973 7623.0000 -1.8429379 3.4788946 -1.8429379 3.4788946 7624.0000 -1.8406088 3.4781922 -1.8406088 3.4781922 7625.0000 -1.8382843 3.4774900 -1.8382843 3.4774900 7626.0000 -1.8359645 3.4767879 -1.8359645 3.4767879 7627.0000 -1.8336491 3.4760861 -1.8336491 3.4760861 7628.0000 -1.8313383 3.4753844 -1.8313383 3.4753844 7629.0000 -1.8290321 3.4746830 -1.8290321 3.4746830 7630.0000 -1.8267303 3.4739817 -1.8267303 3.4739817 7631.0000 -1.8244331 3.4732806 -1.8244331 3.4732806 7632.0000 -1.8221403 3.4725798 -1.8221403 3.4725798 7633.0000 -1.8198520 3.4718791 -1.8198520 3.4718791 7634.0000 -1.8175682 3.4711786 -1.8175682 3.4711786 7635.0000 -1.8152887 3.4704783 -1.8152887 3.4704783 7636.0000 -1.8130137 3.4697782 -1.8130137 3.4697782 7637.0000 -1.8107431 3.4690783 -1.8107431 3.4690783 7638.0000 -1.8084769 3.4683786 -1.8084769 3.4683786 7639.0000 -1.8062150 3.4676791 -1.8062150 3.4676791 7640.0000 -1.8039575 3.4669798 -1.8039575 3.4669798 7641.0000 -1.8017043 3.4662807 -1.8017043 3.4662807 7642.0000 -1.7994555 3.4655817 -1.7994555 3.4655817 7643.0000 -1.7972109 3.4648830 -1.7972109 3.4648830 7644.0000 -1.7949706 3.4641844 -1.7949706 3.4641844 7645.0000 -1.7927346 3.4634861 -1.7927346 3.4634861 7646.0000 -1.7905029 3.4627879 -1.7905029 3.4627879 7647.0000 -1.7882754 3.4620900 -1.7882754 3.4620900 7648.0000 -1.7860522 3.4613922 -1.7860522 3.4613922 7649.0000 -1.7838331 3.4606946 -1.7838331 3.4606946 7650.0000 -1.7816183 3.4599973 -1.7816183 3.4599973 7651.0000 -1.7794076 3.4593001 -1.7794076 3.4593001 7652.0000 -1.7772011 3.4586031 -1.7772011 3.4586031 7653.0000 -1.7749988 3.4579063 -1.7749988 3.4579063 7654.0000 -1.7728006 3.4572097 -1.7728006 3.4572097 7655.0000 -1.7706065 3.4565133 -1.7706065 3.4565133 7656.0000 -1.7684165 3.4558170 -1.7684165 3.4558170 7657.0000 -1.7662306 3.4551210 -1.7662306 3.4551210 7658.0000 -1.7640488 3.4544252 -1.7640488 3.4544252 7659.0000 -1.7618711 3.4537295 -1.7618711 3.4537295 7660.0000 -1.7596975 3.4530341 -1.7596975 3.4530341 7661.0000 -1.7575278 3.4523388 -1.7575278 3.4523388 7662.0000 -1.7553622 3.4516438 -1.7553622 3.4516438 7663.0000 -1.7532006 3.4509489 -1.7532006 3.4509489 7664.0000 -1.7510430 3.4502542 -1.7510430 3.4502542 7665.0000 -1.7488894 3.4495597 -1.7488894 3.4495597 7666.0000 -1.7467398 3.4488654 -1.7467398 3.4488654 7667.0000 -1.7445941 3.4481713 -1.7445941 3.4481713 7668.0000 -1.7424524 3.4474774 -1.7424524 3.4474774 7669.0000 -1.7403146 3.4467837 -1.7403146 3.4467837 7670.0000 -1.7381807 3.4460902 -1.7381807 3.4460902 7671.0000 -1.7360507 3.4453968 -1.7360507 3.4453968 7672.0000 -1.7339246 3.4447037 -1.7339246 3.4447037 7673.0000 -1.7318024 3.4440108 -1.7318024 3.4440108 7674.0000 -1.7296840 3.4433180 -1.7296840 3.4433180 7675.0000 -1.7275695 3.4426254 -1.7275695 3.4426254 7676.0000 -1.7254588 3.4419331 -1.7254588 3.4419331 7677.0000 -1.7233520 3.4412409 -1.7233520 3.4412409 7678.0000 -1.7212490 3.4405489 -1.7212490 3.4405489 7679.0000 -1.7191497 3.4398571 -1.7191497 3.4398571 7680.0000 -1.7170543 3.4391655 -1.7170543 3.4391655 7681.0000 -1.7149626 3.4384741 -1.7149626 3.4384741 7682.0000 -1.7128747 3.4377828 -1.7128747 3.4377828 7683.0000 -1.7107906 3.4370918 -1.7107906 3.4370918 7684.0000 -1.7087102 3.4364010 -1.7087102 3.4364010 7685.0000 -1.7066335 3.4357103 -1.7066335 3.4357103 7686.0000 -1.7045605 3.4350198 -1.7045605 3.4350198 7687.0000 -1.7024912 3.4343296 -1.7024912 3.4343296 7688.0000 -1.7004256 3.4336395 -1.7004256 3.4336395 7689.0000 -1.6983637 3.4329496 -1.6983637 3.4329496 7690.0000 -1.6963054 3.4322599 -1.6963054 3.4322599 7691.0000 -1.6942508 3.4315704 -1.6942508 3.4315704 7692.0000 -1.6921998 3.4308811 -1.6921998 3.4308811 7693.0000 -1.6901525 3.4301920 -1.6901525 3.4301920 7694.0000 -1.6881088 3.4295030 -1.6881088 3.4295030 7695.0000 -1.6860686 3.4288143 -1.6860686 3.4288143 7696.0000 -1.6840321 3.4281257 -1.6840321 3.4281257 7697.0000 -1.6819992 3.4274374 -1.6819992 3.4274374 7698.0000 -1.6799698 3.4267492 -1.6799698 3.4267492 7699.0000 -1.6779440 3.4260612 -1.6779440 3.4260612 7700.0000 -1.6759217 3.4253734 -1.6759217 3.4253734 7701.0000 -1.6739030 3.4246858 -1.6739030 3.4246858 7702.0000 -1.6718877 3.4239984 -1.6718877 3.4239984 7703.0000 -1.6698760 3.4233112 -1.6698760 3.4233112 7704.0000 -1.6678678 3.4226241 -1.6678678 3.4226241 7705.0000 -1.6658631 3.4219373 -1.6658631 3.4219373 7706.0000 -1.6638619 3.4212506 -1.6638619 3.4212506 7707.0000 -1.6618641 3.4205642 -1.6618641 3.4205642 7708.0000 -1.6598698 3.4198779 -1.6598698 3.4198779 7709.0000 -1.6578789 3.4191918 -1.6578789 3.4191918 7710.0000 -1.6558915 3.4185059 -1.6558915 3.4185059 7711.0000 -1.6539075 3.4178202 -1.6539075 3.4178202 7712.0000 -1.6519269 3.4171347 -1.6519269 3.4171347 7713.0000 -1.6499497 3.4164493 -1.6499497 3.4164493 7714.0000 -1.6479759 3.4157642 -1.6479759 3.4157642 7715.0000 -1.6460055 3.4150792 -1.6460055 3.4150792 7716.0000 -1.6440384 3.4143945 -1.6440384 3.4143945 7717.0000 -1.6420747 3.4137099 -1.6420747 3.4137099 7718.0000 -1.6401144 3.4130255 -1.6401144 3.4130255 7719.0000 -1.6381574 3.4123413 -1.6381574 3.4123413 7720.0000 -1.6362037 3.4116573 -1.6362037 3.4116573 7721.0000 -1.6342533 3.4109735 -1.6342533 3.4109735 7722.0000 -1.6323063 3.4102899 -1.6323063 3.4102899 7723.0000 -1.6303625 3.4096064 -1.6303625 3.4096064 7724.0000 -1.6284220 3.4089232 -1.6284220 3.4089232 7725.0000 -1.6264848 3.4082401 -1.6264848 3.4082401 7726.0000 -1.6245509 3.4075572 -1.6245509 3.4075572 7727.0000 -1.6226203 3.4068745 -1.6226203 3.4068745 7728.0000 -1.6206928 3.4061920 -1.6206928 3.4061920 7729.0000 -1.6187686 3.4055097 -1.6187686 3.4055097 7730.0000 -1.6168477 3.4048276 -1.6168477 3.4048276 7731.0000 -1.6149299 3.4041456 -1.6149299 3.4041456 7732.0000 -1.6130154 3.4034639 -1.6130154 3.4034639 7733.0000 -1.6111041 3.4027823 -1.6111041 3.4027823 7734.0000 -1.6091959 3.4021010 -1.6091959 3.4021010 7735.0000 -1.6072910 3.4014198 -1.6072910 3.4014198 7736.0000 -1.6053891 3.4007388 -1.6053891 3.4007388 7737.0000 -1.6034905 3.4000580 -1.6034905 3.4000580 7738.0000 -1.6015950 3.3993773 -1.6015950 3.3993773 7739.0000 -1.5997027 3.3986969 -1.5997027 3.3986969 7740.0000 -1.5978134 3.3980167 -1.5978134 3.3980167 7741.0000 -1.5959273 3.3973366 -1.5959273 3.3973366 7742.0000 -1.5940443 3.3966567 -1.5940443 3.3966567 7743.0000 -1.5921644 3.3959770 -1.5921644 3.3959770 7744.0000 -1.5902876 3.3952975 -1.5902876 3.3952975 7745.0000 -1.5884139 3.3946182 -1.5884139 3.3946182 7746.0000 -1.5865433 3.3939391 -1.5865433 3.3939391 7747.0000 -1.5846757 3.3932602 -1.5846757 3.3932602 7748.0000 -1.5828112 3.3925814 -1.5828112 3.3925814 7749.0000 -1.5809497 3.3919028 -1.5809497 3.3919028 7750.0000 -1.5790913 3.3912245 -1.5790913 3.3912245 7751.0000 -1.5772359 3.3905463 -1.5772359 3.3905463 7752.0000 -1.5753835 3.3898683 -1.5753835 3.3898683 7753.0000 -1.5735341 3.3891904 -1.5735341 3.3891904 7754.0000 -1.5716878 3.3885128 -1.5716878 3.3885128 7755.0000 -1.5698444 3.3878354 -1.5698444 3.3878354 7756.0000 -1.5680040 3.3871581 -1.5680040 3.3871581 7757.0000 -1.5661666 3.3864810 -1.5661666 3.3864810 7758.0000 -1.5643321 3.3858041 -1.5643321 3.3858041 7759.0000 -1.5625006 3.3851274 -1.5625006 3.3851274 7760.0000 -1.5606721 3.3844509 -1.5606721 3.3844509 7761.0000 -1.5588465 3.3837746 -1.5588465 3.3837746 7762.0000 -1.5570238 3.3830984 -1.5570238 3.3830984 7763.0000 -1.5552041 3.3824225 -1.5552041 3.3824225 7764.0000 -1.5533872 3.3817467 -1.5533872 3.3817467 7765.0000 -1.5515733 3.3810711 -1.5515733 3.3810711 7766.0000 -1.5497623 3.3803957 -1.5497623 3.3803957 7767.0000 -1.5479542 3.3797205 -1.5479542 3.3797205 7768.0000 -1.5461489 3.3790455 -1.5461489 3.3790455 7769.0000 -1.5443466 3.3783706 -1.5443466 3.3783706 7770.0000 -1.5425470 3.3776960 -1.5425470 3.3776960 7771.0000 -1.5407504 3.3770215 -1.5407504 3.3770215 7772.0000 -1.5389566 3.3763472 -1.5389566 3.3763472 7773.0000 -1.5371656 3.3756731 -1.5371656 3.3756731 7774.0000 -1.5353775 3.3749992 -1.5353775 3.3749992 7775.0000 -1.5335922 3.3743254 -1.5335922 3.3743254 7776.0000 -1.5318097 3.3736519 -1.5318097 3.3736519 7777.0000 -1.5300300 3.3729785 -1.5300300 3.3729785 7778.0000 -1.5282532 3.3723053 -1.5282532 3.3723053 7779.0000 -1.5264791 3.3716324 -1.5264791 3.3716324 7780.0000 -1.5247078 3.3709595 -1.5247078 3.3709595 7781.0000 -1.5229393 3.3702869 -1.5229393 3.3702869 7782.0000 -1.5211735 3.3696145 -1.5211735 3.3696145 7783.0000 -1.5194105 3.3689422 -1.5194105 3.3689422 7784.0000 -1.5176503 3.3682701 -1.5176503 3.3682701 7785.0000 -1.5158928 3.3675983 -1.5158928 3.3675983 7786.0000 -1.5141381 3.3669266 -1.5141381 3.3669266 7787.0000 -1.5123860 3.3662550 -1.5123860 3.3662550 7788.0000 -1.5106368 3.3655837 -1.5106368 3.3655837 7789.0000 -1.5088902 3.3649126 -1.5088902 3.3649126 7790.0000 -1.5071463 3.3642416 -1.5071463 3.3642416 7791.0000 -1.5054051 3.3635708 -1.5054051 3.3635708 7792.0000 -1.5036667 3.3629002 -1.5036667 3.3629002 7793.0000 -1.5019309 3.3622298 -1.5019309 3.3622298 7794.0000 -1.5001978 3.3615596 -1.5001978 3.3615596 7795.0000 -1.4984673 3.3608895 -1.4984673 3.3608895 7796.0000 -1.4967395 3.3602196 -1.4967395 3.3602196 7797.0000 -1.4950144 3.3595500 -1.4950144 3.3595500 7798.0000 -1.4932919 3.3588805 -1.4932919 3.3588805 7799.0000 -1.4915721 3.3582111 -1.4915721 3.3582111 7800.0000 -1.4898549 3.3575420 -1.4898549 3.3575420 7801.0000 -1.4881403 3.3568731 -1.4881403 3.3568731 7802.0000 -1.4864284 3.3562043 -1.4864284 3.3562043 7803.0000 -1.4847190 3.3555357 -1.4847190 3.3555357 7804.0000 -1.4830123 3.3548673 -1.4830123 3.3548673 7805.0000 -1.4813082 3.3541991 -1.4813082 3.3541991 7806.0000 -1.4796066 3.3535311 -1.4796066 3.3535311 7807.0000 -1.4779077 3.3528632 -1.4779077 3.3528632 7808.0000 -1.4762113 3.3521956 -1.4762113 3.3521956 7809.0000 -1.4745175 3.3515281 -1.4745175 3.3515281 7810.0000 -1.4728262 3.3508608 -1.4728262 3.3508608 7811.0000 -1.4711375 3.3501937 -1.4711375 3.3501937 7812.0000 -1.4694514 3.3495267 -1.4694514 3.3495267 7813.0000 -1.4677678 3.3488600 -1.4677678 3.3488600 7814.0000 -1.4660867 3.3481934 -1.4660867 3.3481934 7815.0000 -1.4644082 3.3475270 -1.4644082 3.3475270 7816.0000 -1.4627322 3.3468608 -1.4627322 3.3468608 7817.0000 -1.4610587 3.3461948 -1.4610587 3.3461948 7818.0000 -1.4593877 3.3455289 -1.4593877 3.3455289 7819.0000 -1.4577192 3.3448633 -1.4577192 3.3448633 7820.0000 -1.4560533 3.3441978 -1.4560533 3.3441978 7821.0000 -1.4543898 3.3435325 -1.4543898 3.3435325 7822.0000 -1.4527287 3.3428674 -1.4527287 3.3428674 7823.0000 -1.4510702 3.3422025 -1.4510702 3.3422025 7824.0000 -1.4494141 3.3415377 -1.4494141 3.3415377 7825.0000 -1.4477605 3.3408732 -1.4477605 3.3408732 7826.0000 -1.4461094 3.3402088 -1.4461094 3.3402088 7827.0000 -1.4444607 3.3395446 -1.4444607 3.3395446 7828.0000 -1.4428144 3.3388805 -1.4428144 3.3388805 7829.0000 -1.4411706 3.3382167 -1.4411706 3.3382167 7830.0000 -1.4395292 3.3375530 -1.4395292 3.3375530 7831.0000 -1.4378902 3.3368896 -1.4378902 3.3368896 7832.0000 -1.4362537 3.3362263 -1.4362537 3.3362263 7833.0000 -1.4346195 3.3355632 -1.4346195 3.3355632 7834.0000 -1.4329878 3.3349002 -1.4329878 3.3349002 7835.0000 -1.4313585 3.3342375 -1.4313585 3.3342375 7836.0000 -1.4297315 3.3335749 -1.4297315 3.3335749 7837.0000 -1.4281070 3.3329125 -1.4281070 3.3329125 7838.0000 -1.4264848 3.3322503 -1.4264848 3.3322503 7839.0000 -1.4248650 3.3315883 -1.4248650 3.3315883 7840.0000 -1.4232476 3.3309264 -1.4232476 3.3309264 7841.0000 -1.4216325 3.3302647 -1.4216325 3.3302647 7842.0000 -1.4200198 3.3296033 -1.4200198 3.3296033 7843.0000 -1.4184094 3.3289419 -1.4184094 3.3289419 7844.0000 -1.4168014 3.3282808 -1.4168014 3.3282808 7845.0000 -1.4151957 3.3276199 -1.4151957 3.3276199 7846.0000 -1.4135924 3.3269591 -1.4135924 3.3269591 7847.0000 -1.4119914 3.3262985 -1.4119914 3.3262985 7848.0000 -1.4103926 3.3256381 -1.4103926 3.3256381 7849.0000 -1.4087963 3.3249779 -1.4087963 3.3249779 7850.0000 -1.4072022 3.3243178 -1.4072022 3.3243178 7851.0000 -1.4056104 3.3236580 -1.4056104 3.3236580 7852.0000 -1.4040209 3.3229983 -1.4040209 3.3229983 7853.0000 -1.4024337 3.3223388 -1.4024337 3.3223388 7854.0000 -1.4008488 3.3216795 -1.4008488 3.3216795 7855.0000 -1.3992662 3.3210203 -1.3992662 3.3210203 7856.0000 -1.3976858 3.3203614 -1.3976858 3.3203614 7857.0000 -1.3961077 3.3197026 -1.3961077 3.3197026 7858.0000 -1.3945319 3.3190440 -1.3945319 3.3190440 7859.0000 -1.3929583 3.3183855 -1.3929583 3.3183855 7860.0000 -1.3913870 3.3177273 -1.3913870 3.3177273 7861.0000 -1.3898179 3.3170692 -1.3898179 3.3170692 7862.0000 -1.3882511 3.3164113 -1.3882511 3.3164113 7863.0000 -1.3866864 3.3157536 -1.3866864 3.3157536 7864.0000 -1.3851241 3.3150961 -1.3851241 3.3150961 7865.0000 -1.3835639 3.3144388 -1.3835639 3.3144388 7866.0000 -1.3820060 3.3137816 -1.3820060 3.3137816 7867.0000 -1.3804502 3.3131246 -1.3804502 3.3131246 7868.0000 -1.3788967 3.3124678 -1.3788967 3.3124678 7869.0000 -1.3773454 3.3118111 -1.3773454 3.3118111 7870.0000 -1.3757962 3.3111547 -1.3757962 3.3111547 7871.0000 -1.3742493 3.3104984 -1.3742493 3.3104984 7872.0000 -1.3727045 3.3098423 -1.3727045 3.3098423 7873.0000 -1.3711620 3.3091864 -1.3711620 3.3091864 7874.0000 -1.3696216 3.3085307 -1.3696216 3.3085307 7875.0000 -1.3680833 3.3078751 -1.3680833 3.3078751 7876.0000 -1.3665472 3.3072197 -1.3665472 3.3072197 7877.0000 -1.3650133 3.3065645 -1.3650133 3.3065645 7878.0000 -1.3634815 3.3059095 -1.3634815 3.3059095 7879.0000 -1.3619519 3.3052546 -1.3619519 3.3052546 7880.0000 -1.3604244 3.3046000 -1.3604244 3.3046000 7881.0000 -1.3588991 3.3039455 -1.3588991 3.3039455 7882.0000 -1.3573759 3.3032912 -1.3573759 3.3032912 7883.0000 -1.3558548 3.3026370 -1.3558548 3.3026370 7884.0000 -1.3543358 3.3019831 -1.3543358 3.3019831 7885.0000 -1.3528190 3.3013293 -1.3528190 3.3013293 7886.0000 -1.3513042 3.3006757 -1.3513042 3.3006757 7887.0000 -1.3497916 3.3000223 -1.3497916 3.3000223 7888.0000 -1.3482810 3.2993690 -1.3482810 3.2993690 7889.0000 -1.3467726 3.2987159 -1.3467726 3.2987159 7890.0000 -1.3452662 3.2980631 -1.3452662 3.2980631 7891.0000 -1.3437620 3.2974103 -1.3437620 3.2974103 7892.0000 -1.3422598 3.2967578 -1.3422598 3.2967578 7893.0000 -1.3407596 3.2961054 -1.3407596 3.2961054 7894.0000 -1.3392616 3.2954533 -1.3392616 3.2954533 7895.0000 -1.3377656 3.2948013 -1.3377656 3.2948013 7896.0000 -1.3362717 3.2941494 -1.3362717 3.2941494 7897.0000 -1.3347798 3.2934978 -1.3347798 3.2934978 7898.0000 -1.3332900 3.2928463 -1.3332900 3.2928463 7899.0000 -1.3318022 3.2921950 -1.3318022 3.2921950 7900.0000 -1.3303165 3.2915439 -1.3303165 3.2915439 7901.0000 -1.3288328 3.2908930 -1.3288328 3.2908930 7902.0000 -1.3273511 3.2902422 -1.3273511 3.2902422 7903.0000 -1.3258715 3.2895916 -1.3258715 3.2895916 7904.0000 -1.3243939 3.2889412 -1.3243939 3.2889412 7905.0000 -1.3229182 3.2882910 -1.3229182 3.2882910 7906.0000 -1.3214446 3.2876409 -1.3214446 3.2876409 7907.0000 -1.3199731 3.2869910 -1.3199731 3.2869910 7908.0000 -1.3185035 3.2863413 -1.3185035 3.2863413 7909.0000 -1.3170359 3.2856918 -1.3170359 3.2856918 7910.0000 -1.3155703 3.2850424 -1.3155703 3.2850424 7911.0000 -1.3141067 3.2843933 -1.3141067 3.2843933 7912.0000 -1.3126450 3.2837443 -1.3126450 3.2837443 7913.0000 -1.3111854 3.2830954 -1.3111854 3.2830954 7914.0000 -1.3097277 3.2824468 -1.3097277 3.2824468 7915.0000 -1.3082720 3.2817983 -1.3082720 3.2817983 7916.0000 -1.3068183 3.2811500 -1.3068183 3.2811500 7917.0000 -1.3053665 3.2805019 -1.3053665 3.2805019 7918.0000 -1.3039166 3.2798540 -1.3039166 3.2798540 7919.0000 -1.3024688 3.2792062 -1.3024688 3.2792062 7920.0000 -1.3010228 3.2785586 -1.3010228 3.2785586 7921.0000 -1.2995788 3.2779112 -1.2995788 3.2779112 7922.0000 -1.2981368 3.2772640 -1.2981368 3.2772640 7923.0000 -1.2966967 3.2766169 -1.2966967 3.2766169 7924.0000 -1.2952585 3.2759700 -1.2952585 3.2759700 7925.0000 -1.2938222 3.2753233 -1.2938222 3.2753233 7926.0000 -1.2923878 3.2746767 -1.2923878 3.2746767 7927.0000 -1.2909554 3.2740304 -1.2909554 3.2740304 7928.0000 -1.2895249 3.2733842 -1.2895249 3.2733842 7929.0000 -1.2880963 3.2727382 -1.2880963 3.2727382 7930.0000 -1.2866695 3.2720923 -1.2866695 3.2720923 7931.0000 -1.2852447 3.2714467 -1.2852447 3.2714467 7932.0000 -1.2838218 3.2708012 -1.2838218 3.2708012 7933.0000 -1.2824008 3.2701559 -1.2824008 3.2701559 7934.0000 -1.2809816 3.2695107 -1.2809816 3.2695107 7935.0000 -1.2795643 3.2688658 -1.2795643 3.2688658 7936.0000 -1.2781489 3.2682210 -1.2781489 3.2682210 7937.0000 -1.2767354 3.2675764 -1.2767354 3.2675764 7938.0000 -1.2753237 3.2669319 -1.2753237 3.2669319 7939.0000 -1.2739139 3.2662877 -1.2739139 3.2662877 7940.0000 -1.2725060 3.2656436 -1.2725060 3.2656436 7941.0000 -1.2710999 3.2649997 -1.2710999 3.2649997 7942.0000 -1.2696957 3.2643559 -1.2696957 3.2643559 7943.0000 -1.2682933 3.2637124 -1.2682933 3.2637124 7944.0000 -1.2668927 3.2630690 -1.2668927 3.2630690 7945.0000 -1.2654940 3.2624258 -1.2654940 3.2624258 7946.0000 -1.2640972 3.2617827 -1.2640972 3.2617827 7947.0000 -1.2627021 3.2611399 -1.2627021 3.2611399 7948.0000 -1.2613089 3.2604972 -1.2613089 3.2604972 7949.0000 -1.2599175 3.2598546 -1.2599175 3.2598546 7950.0000 -1.2585279 3.2592123 -1.2585279 3.2592123 7951.0000 -1.2571401 3.2585701 -1.2571401 3.2585701 7952.0000 -1.2557542 3.2579281 -1.2557542 3.2579281 7953.0000 -1.2543700 3.2572863 -1.2543700 3.2572863 7954.0000 -1.2529877 3.2566446 -1.2529877 3.2566446 7955.0000 -1.2516071 3.2560032 -1.2516071 3.2560032 7956.0000 -1.2502283 3.2553619 -1.2502283 3.2553619 7957.0000 -1.2488514 3.2547207 -1.2488514 3.2547207 7958.0000 -1.2474762 3.2540798 -1.2474762 3.2540798 7959.0000 -1.2461028 3.2534390 -1.2461028 3.2534390 7960.0000 -1.2447311 3.2527984 -1.2447311 3.2527984 7961.0000 -1.2433613 3.2521579 -1.2433613 3.2521579 7962.0000 -1.2419932 3.2515177 -1.2419932 3.2515177 7963.0000 -1.2406269 3.2508776 -1.2406269 3.2508776 7964.0000 -1.2392623 3.2502377 -1.2392623 3.2502377 7965.0000 -1.2378995 3.2495979 -1.2378995 3.2495979 7966.0000 -1.2365385 3.2489583 -1.2365385 3.2489583 7967.0000 -1.2351792 3.2483189 -1.2351792 3.2483189 7968.0000 -1.2338216 3.2476797 -1.2338216 3.2476797 7969.0000 -1.2324658 3.2470406 -1.2324658 3.2470406 7970.0000 -1.2311117 3.2464018 -1.2311117 3.2464018 7971.0000 -1.2297594 3.2457631 -1.2297594 3.2457631 7972.0000 -1.2284088 3.2451245 -1.2284088 3.2451245 7973.0000 -1.2270599 3.2444862 -1.2270599 3.2444862 7974.0000 -1.2257127 3.2438480 -1.2257127 3.2438480 7975.0000 -1.2243673 3.2432099 -1.2243673 3.2432099 7976.0000 -1.2230236 3.2425721 -1.2230236 3.2425721 7977.0000 -1.2216816 3.2419344 -1.2216816 3.2419344 7978.0000 -1.2203413 3.2412969 -1.2203413 3.2412969 7979.0000 -1.2190027 3.2406596 -1.2190027 3.2406596 7980.0000 -1.2176658 3.2400224 -1.2176658 3.2400224 7981.0000 -1.2163306 3.2393854 -1.2163306 3.2393854 7982.0000 -1.2149971 3.2387486 -1.2149971 3.2387486 7983.0000 -1.2136653 3.2381120 -1.2136653 3.2381120 7984.0000 -1.2123351 3.2374755 -1.2123351 3.2374755 7985.0000 -1.2110067 3.2368392 -1.2110067 3.2368392 7986.0000 -1.2096799 3.2362031 -1.2096799 3.2362031 7987.0000 -1.2083548 3.2355671 -1.2083548 3.2355671 7988.0000 -1.2070314 3.2349314 -1.2070314 3.2349314 7989.0000 -1.2057097 3.2342957 -1.2057097 3.2342957 7990.0000 -1.2043896 3.2336603 -1.2043896 3.2336603 7991.0000 -1.2030711 3.2330250 -1.2030711 3.2330250 7992.0000 -1.2017544 3.2323899 -1.2017544 3.2323899 7993.0000 -1.2004393 3.2317550 -1.2004393 3.2317550 7994.0000 -1.1991258 3.2311203 -1.1991258 3.2311203 7995.0000 -1.1978140 3.2304857 -1.1978140 3.2304857 7996.0000 -1.1965038 3.2298513 -1.1965038 3.2298513 7997.0000 -1.1951953 3.2292170 -1.1951953 3.2292170 7998.0000 -1.1938884 3.2285829 -1.1938884 3.2285829 7999.0000 -1.1925831 3.2279490 -1.1925831 3.2279490 8000.0000 -1.1912795 3.2273153 -1.1912795 3.2273153 8001.0000 -1.1899775 3.2266818 -1.1899775 3.2266818 8002.0000 -1.1886771 3.2260484 -1.1886771 3.2260484 8003.0000 -1.1873784 3.2254151 -1.1873784 3.2254151 8004.0000 -1.1860812 3.2247821 -1.1860812 3.2247821 8005.0000 -1.1847857 3.2241492 -1.1847857 3.2241492 8006.0000 -1.1834918 3.2235165 -1.1834918 3.2235165 8007.0000 -1.1821995 3.2228840 -1.1821995 3.2228840 8008.0000 -1.1809087 3.2222516 -1.1809087 3.2222516 8009.0000 -1.1796196 3.2216194 -1.1796196 3.2216194 8010.0000 -1.1783321 3.2209874 -1.1783321 3.2209874 8011.0000 -1.1770462 3.2203556 -1.1770462 3.2203556 8012.0000 -1.1757619 3.2197239 -1.1757619 3.2197239 8013.0000 -1.1744791 3.2190924 -1.1744791 3.2190924 8014.0000 -1.1731979 3.2184610 -1.1731979 3.2184610 8015.0000 -1.1719183 3.2178298 -1.1719183 3.2178298 8016.0000 -1.1706403 3.2171988 -1.1706403 3.2171988 8017.0000 -1.1693639 3.2165680 -1.1693639 3.2165680 8018.0000 -1.1680890 3.2159373 -1.1680890 3.2159373 8019.0000 -1.1668157 3.2153068 -1.1668157 3.2153068 8020.0000 -1.1655440 3.2146765 -1.1655440 3.2146765 8021.0000 -1.1642738 3.2140464 -1.1642738 3.2140464 8022.0000 -1.1630052 3.2134164 -1.1630052 3.2134164 8023.0000 -1.1617381 3.2127866 -1.1617381 3.2127866 8024.0000 -1.1604726 3.2121569 -1.1604726 3.2121569 8025.0000 -1.1592086 3.2115274 -1.1592086 3.2115274 8026.0000 -1.1579462 3.2108981 -1.1579462 3.2108981 8027.0000 -1.1566853 3.2102690 -1.1566853 3.2102690 8028.0000 -1.1554260 3.2096400 -1.1554260 3.2096400 8029.0000 -1.1541681 3.2090112 -1.1541681 3.2090112 8030.0000 -1.1529119 3.2083826 -1.1529119 3.2083826 8031.0000 -1.1516571 3.2077541 -1.1516571 3.2077541 8032.0000 -1.1504039 3.2071259 -1.1504039 3.2071259 8033.0000 -1.1491522 3.2064977 -1.1491522 3.2064977 8034.0000 -1.1479020 3.2058698 -1.1479020 3.2058698 8035.0000 -1.1466533 3.2052420 -1.1466533 3.2052420 8036.0000 -1.1454061 3.2046144 -1.1454061 3.2046144 8037.0000 -1.1441605 3.2039869 -1.1441605 3.2039869 8038.0000 -1.1429163 3.2033596 -1.1429163 3.2033596 8039.0000 -1.1416737 3.2027325 -1.1416737 3.2027325 8040.0000 -1.1404326 3.2021056 -1.1404326 3.2021056 8041.0000 -1.1391929 3.2014788 -1.1391929 3.2014788 8042.0000 -1.1379548 3.2008522 -1.1379548 3.2008522 8043.0000 -1.1367181 3.2002258 -1.1367181 3.2002258 8044.0000 -1.1354830 3.1995995 -1.1354830 3.1995995 8045.0000 -1.1342493 3.1989734 -1.1342493 3.1989734 8046.0000 -1.1330171 3.1983475 -1.1330171 3.1983475 8047.0000 -1.1317863 3.1977217 -1.1317863 3.1977217 8048.0000 -1.1305571 3.1970961 -1.1305571 3.1970961 8049.0000 -1.1293293 3.1964707 -1.1293293 3.1964707 8050.0000 -1.1281030 3.1958454 -1.1281030 3.1958454 8051.0000 -1.1268782 3.1952203 -1.1268782 3.1952203 8052.0000 -1.1256548 3.1945954 -1.1256548 3.1945954 8053.0000 -1.1244329 3.1939707 -1.1244329 3.1939707 8054.0000 -1.1232125 3.1933461 -1.1232125 3.1933461 8055.0000 -1.1219935 3.1927216 -1.1219935 3.1927216 8056.0000 -1.1207760 3.1920974 -1.1207760 3.1920974 8057.0000 -1.1195599 3.1914733 -1.1195599 3.1914733 8058.0000 -1.1183452 3.1908494 -1.1183452 3.1908494 8059.0000 -1.1171320 3.1902256 -1.1171320 3.1902256 8060.0000 -1.1159203 3.1896020 -1.1159203 3.1896020 8061.0000 -1.1147100 3.1889786 -1.1147100 3.1889786 8062.0000 -1.1135011 3.1883554 -1.1135011 3.1883554 8063.0000 -1.1122937 3.1877323 -1.1122937 3.1877323 8064.0000 -1.1110876 3.1871094 -1.1110876 3.1871094 8065.0000 -1.1098831 3.1864866 -1.1098831 3.1864866 8066.0000 -1.1086799 3.1858641 -1.1086799 3.1858641 8067.0000 -1.1074782 3.1852416 -1.1074782 3.1852416 8068.0000 -1.1062778 3.1846194 -1.1062778 3.1846194 8069.0000 -1.1050789 3.1839973 -1.1050789 3.1839973 8070.0000 -1.1038814 3.1833754 -1.1038814 3.1833754 8071.0000 -1.1026854 3.1827537 -1.1026854 3.1827537 8072.0000 -1.1014907 3.1821321 -1.1014907 3.1821321 8073.0000 -1.1002974 3.1815107 -1.1002974 3.1815107 8074.0000 -1.0991056 3.1808894 -1.0991056 3.1808894 8075.0000 -1.0979151 3.1802683 -1.0979151 3.1802683 8076.0000 -1.0967260 3.1796474 -1.0967260 3.1796474 8077.0000 -1.0955384 3.1790267 -1.0955384 3.1790267 8078.0000 -1.0943521 3.1784061 -1.0943521 3.1784061 8079.0000 -1.0931672 3.1777857 -1.0931672 3.1777857 8080.0000 -1.0919837 3.1771654 -1.0919837 3.1771654 8081.0000 -1.0908016 3.1765453 -1.0908016 3.1765453 8082.0000 -1.0896208 3.1759254 -1.0896208 3.1759254 8083.0000 -1.0884415 3.1753057 -1.0884415 3.1753057 8084.0000 -1.0872635 3.1746861 -1.0872635 3.1746861 8085.0000 -1.0860869 3.1740667 -1.0860869 3.1740667 8086.0000 -1.0849116 3.1734474 -1.0849116 3.1734474 8087.0000 -1.0837378 3.1728283 -1.0837378 3.1728283 8088.0000 -1.0825652 3.1722094 -1.0825652 3.1722094 8089.0000 -1.0813941 3.1715907 -1.0813941 3.1715907 8090.0000 -1.0802243 3.1709721 -1.0802243 3.1709721 8091.0000 -1.0790559 3.1703536 -1.0790559 3.1703536 8092.0000 -1.0778888 3.1697354 -1.0778888 3.1697354 8093.0000 -1.0767231 3.1691173 -1.0767231 3.1691173 8094.0000 -1.0755587 3.1684994 -1.0755587 3.1684994 8095.0000 -1.0743957 3.1678816 -1.0743957 3.1678816 8096.0000 -1.0732340 3.1672640 -1.0732340 3.1672640 8097.0000 -1.0720737 3.1666466 -1.0720737 3.1666466 8098.0000 -1.0709147 3.1660293 -1.0709147 3.1660293 8099.0000 -1.0697570 3.1654122 -1.0697570 3.1654122 8100.0000 -1.0686007 3.1647953 -1.0686007 3.1647953 8101.0000 -1.0674457 3.1641785 -1.0674457 3.1641785 8102.0000 -1.0662920 3.1635619 -1.0662920 3.1635619 8103.0000 -1.0651397 3.1629454 -1.0651397 3.1629454 8104.0000 -1.0639887 3.1623292 -1.0639887 3.1623292 8105.0000 -1.0628390 3.1617130 -1.0628390 3.1617130 8106.0000 -1.0616906 3.1610971 -1.0616906 3.1610971 8107.0000 -1.0605435 3.1604813 -1.0605435 3.1604813 8108.0000 -1.0593978 3.1598657 -1.0593978 3.1598657 8109.0000 -1.0582534 3.1592502 -1.0582534 3.1592502 8110.0000 -1.0571102 3.1586350 -1.0571102 3.1586350 8111.0000 -1.0559684 3.1580198 -1.0559684 3.1580198 8112.0000 -1.0548279 3.1574049 -1.0548279 3.1574049 8113.0000 -1.0536887 3.1567901 -1.0536887 3.1567901 8114.0000 -1.0525508 3.1561754 -1.0525508 3.1561754 8115.0000 -1.0514142 3.1555610 -1.0514142 3.1555610 8116.0000 -1.0502788 3.1549467 -1.0502788 3.1549467 8117.0000 -1.0491448 3.1543325 -1.0491448 3.1543325 8118.0000 -1.0480121 3.1537186 -1.0480121 3.1537186 8119.0000 -1.0468806 3.1531047 -1.0468806 3.1531047 8120.0000 -1.0457505 3.1524911 -1.0457505 3.1524911 8121.0000 -1.0446216 3.1518776 -1.0446216 3.1518776 8122.0000 -1.0434940 3.1512643 -1.0434940 3.1512643 8123.0000 -1.0423677 3.1506511 -1.0423677 3.1506511 8124.0000 -1.0412426 3.1500381 -1.0412426 3.1500381 8125.0000 -1.0401188 3.1494253 -1.0401188 3.1494253 8126.0000 -1.0389963 3.1488126 -1.0389963 3.1488126 8127.0000 -1.0378751 3.1482001 -1.0378751 3.1482001 8128.0000 -1.0367551 3.1475878 -1.0367551 3.1475878 8129.0000 -1.0356364 3.1469756 -1.0356364 3.1469756 8130.0000 -1.0345190 3.1463636 -1.0345190 3.1463636 8131.0000 -1.0334028 3.1457518 -1.0334028 3.1457518 8132.0000 -1.0322879 3.1451401 -1.0322879 3.1451401 8133.0000 -1.0311742 3.1445286 -1.0311742 3.1445286 8134.0000 -1.0300618 3.1439172 -1.0300618 3.1439172 8135.0000 -1.0289506 3.1433060 -1.0289506 3.1433060 8136.0000 -1.0278407 3.1426950 -1.0278407 3.1426950 8137.0000 -1.0267320 3.1420841 -1.0267320 3.1420841 8138.0000 -1.0256245 3.1414734 -1.0256245 3.1414734 8139.0000 -1.0245184 3.1408628 -1.0245184 3.1408628 8140.0000 -1.0234134 3.1402525 -1.0234134 3.1402525 8141.0000 -1.0223097 3.1396422 -1.0223097 3.1396422 8142.0000 -1.0212072 3.1390322 -1.0212072 3.1390322 8143.0000 -1.0201059 3.1384223 -1.0201059 3.1384223 8144.0000 -1.0190059 3.1378126 -1.0190059 3.1378126 8145.0000 -1.0179071 3.1372030 -1.0179071 3.1372030 8146.0000 -1.0168095 3.1365936 -1.0168095 3.1365936 8147.0000 -1.0157132 3.1359843 -1.0157132 3.1359843 8148.0000 -1.0146181 3.1353753 -1.0146181 3.1353753 8149.0000 -1.0135242 3.1347663 -1.0135242 3.1347663 8150.0000 -1.0124315 3.1341576 -1.0124315 3.1341576 8151.0000 -1.0113400 3.1335490 -1.0113400 3.1335490 8152.0000 -1.0102497 3.1329406 -1.0102497 3.1329406 8153.0000 -1.0091607 3.1323323 -1.0091607 3.1323323 8154.0000 -1.0080728 3.1317242 -1.0080728 3.1317242 8155.0000 -1.0069862 3.1311162 -1.0069862 3.1311162 8156.0000 -1.0059007 3.1305085 -1.0059007 3.1305085 8157.0000 -1.0048165 3.1299008 -1.0048165 3.1299008 8158.0000 -1.0037334 3.1292934 -1.0037334 3.1292934 8159.0000 -1.0026516 3.1286861 -1.0026516 3.1286861 8160.0000 -1.0015710 3.1280789 -1.0015710 3.1280789 8161.0000 -1.0004915 3.1274720 -1.0004915 3.1274720 8162.0000 -0.99941323 3.1268651 -0.99941323 3.1268651 8163.0000 -0.99833615 3.1262585 -0.99833615 3.1262585 8164.0000 -0.99726026 3.1256520 -0.99726026 3.1256520 8165.0000 -0.99618555 3.1250457 -0.99618555 3.1250457 8166.0000 -0.99511202 3.1244395 -0.99511202 3.1244395 8167.0000 -0.99403968 3.1238335 -0.99403968 3.1238335 8168.0000 -0.99296851 3.1232276 -0.99296851 3.1232276 8169.0000 -0.99189851 3.1226220 -0.99189851 3.1226220 8170.0000 -0.99082969 3.1220164 -0.99082969 3.1220164 8171.0000 -0.98976205 3.1214111 -0.98976205 3.1214111 8172.0000 -0.98869557 3.1208059 -0.98869557 3.1208059 8173.0000 -0.98763026 3.1202008 -0.98763026 3.1202008 8174.0000 -0.98656611 3.1195959 -0.98656611 3.1195959 8175.0000 -0.98550313 3.1189912 -0.98550313 3.1189912 8176.0000 -0.98444131 3.1183867 -0.98444131 3.1183867 8177.0000 -0.98338064 3.1177823 -0.98338064 3.1177823 8178.0000 -0.98232114 3.1171780 -0.98232114 3.1171780 8179.0000 -0.98126279 3.1165740 -0.98126279 3.1165740 8180.0000 -0.98020559 3.1159700 -0.98020559 3.1159700 8181.0000 -0.97914954 3.1153663 -0.97914954 3.1153663 8182.0000 -0.97809465 3.1147627 -0.97809465 3.1147627 8183.0000 -0.97704090 3.1141593 -0.97704090 3.1141593 8184.0000 -0.97598829 3.1135560 -0.97598829 3.1135560 8185.0000 -0.97493683 3.1129529 -0.97493683 3.1129529 8186.0000 -0.97388651 3.1123499 -0.97388651 3.1123499 8187.0000 -0.97283733 3.1117471 -0.97283733 3.1117471 8188.0000 -0.97178928 3.1111445 -0.97178928 3.1111445 8189.0000 -0.97074237 3.1105420 -0.97074237 3.1105420 8190.0000 -0.96969659 3.1099397 -0.96969659 3.1099397 8191.0000 -0.96865195 3.1093375 -0.96865195 3.1093375 8192.0000 -0.96760843 3.1087355 -0.96760843 3.1087355 8193.0000 -0.96656604 3.1081337 -0.96656604 3.1081337 8194.0000 -0.96552478 3.1075320 -0.96552478 3.1075320 8195.0000 -0.96448464 3.1069305 -0.96448464 3.1069305 8196.0000 -0.96344562 3.1063292 -0.96344562 3.1063292 8197.0000 -0.96240772 3.1057280 -0.96240772 3.1057280 8198.0000 -0.96137093 3.1051269 -0.96137093 3.1051269 8199.0000 -0.96033527 3.1045261 -0.96033527 3.1045261 8200.0000 -0.95930071 3.1039253 -0.95930071 3.1039253 8201.0000 -0.95826727 3.1033248 -0.95826727 3.1033248 8202.0000 -0.95723494 3.1027244 -0.95723494 3.1027244 8203.0000 -0.95620371 3.1021242 -0.95620371 3.1021242 8204.0000 -0.95517360 3.1015241 -0.95517360 3.1015241 8205.0000 -0.95414458 3.1009242 -0.95414458 3.1009242 8206.0000 -0.95311667 3.1003244 -0.95311667 3.1003244 8207.0000 -0.95208986 3.0997248 -0.95208986 3.0997248 8208.0000 -0.95106414 3.0991253 -0.95106414 3.0991253 8209.0000 -0.95003953 3.0985261 -0.95003953 3.0985261 8210.0000 -0.94901601 3.0979269 -0.94901601 3.0979269 8211.0000 -0.94799358 3.0973280 -0.94799358 3.0973280 8212.0000 -0.94697224 3.0967292 -0.94697224 3.0967292 8213.0000 -0.94595199 3.0961305 -0.94595199 3.0961305 8214.0000 -0.94493283 3.0955320 -0.94493283 3.0955320 8215.0000 -0.94391475 3.0949337 -0.94391475 3.0949337 8216.0000 -0.94289776 3.0943355 -0.94289776 3.0943355 8217.0000 -0.94188185 3.0937375 -0.94188185 3.0937375 8218.0000 -0.94086702 3.0931397 -0.94086702 3.0931397 8219.0000 -0.93985326 3.0925420 -0.93985326 3.0925420 8220.0000 -0.93884059 3.0919444 -0.93884059 3.0919444 8221.0000 -0.93782898 3.0913470 -0.93782898 3.0913470 8222.0000 -0.93681845 3.0907498 -0.93681845 3.0907498 8223.0000 -0.93580899 3.0901527 -0.93580899 3.0901527 8224.0000 -0.93480060 3.0895558 -0.93480060 3.0895558 8225.0000 -0.93379328 3.0889591 -0.93379328 3.0889591 8226.0000 -0.93278702 3.0883625 -0.93278702 3.0883625 8227.0000 -0.93178183 3.0877661 -0.93178183 3.0877661 8228.0000 -0.93077770 3.0871698 -0.93077770 3.0871698 8229.0000 -0.92977463 3.0865737 -0.92977463 3.0865737 8230.0000 -0.92877261 3.0859777 -0.92877261 3.0859777 8231.0000 -0.92777165 3.0853819 -0.92777165 3.0853819 8232.0000 -0.92677175 3.0847863 -0.92677175 3.0847863 8233.0000 -0.92577290 3.0841908 -0.92577290 3.0841908 8234.0000 -0.92477510 3.0835955 -0.92477510 3.0835955 8235.0000 -0.92377835 3.0830003 -0.92377835 3.0830003 8236.0000 -0.92278265 3.0824053 -0.92278265 3.0824053 8237.0000 -0.92178800 3.0818104 -0.92178800 3.0818104 8238.0000 -0.92079439 3.0812157 -0.92079439 3.0812157 8239.0000 -0.91980182 3.0806212 -0.91980182 3.0806212 8240.0000 -0.91881029 3.0800268 -0.91881029 3.0800268 8241.0000 -0.91781980 3.0794326 -0.91781980 3.0794326 8242.0000 -0.91683035 3.0788385 -0.91683035 3.0788385 8243.0000 -0.91584193 3.0782446 -0.91584193 3.0782446 8244.0000 -0.91485455 3.0776508 -0.91485455 3.0776508 8245.0000 -0.91386820 3.0770573 -0.91386820 3.0770573 8246.0000 -0.91288288 3.0764638 -0.91288288 3.0764638 8247.0000 -0.91189859 3.0758705 -0.91189859 3.0758705 8248.0000 -0.91091532 3.0752774 -0.91091532 3.0752774 8249.0000 -0.90993309 3.0746844 -0.90993309 3.0746844 8250.0000 -0.90895187 3.0740916 -0.90895187 3.0740916 8251.0000 -0.90797168 3.0734990 -0.90797168 3.0734990 8252.0000 -0.90699250 3.0729065 -0.90699250 3.0729065 8253.0000 -0.90601435 3.0723141 -0.90601435 3.0723141 8254.0000 -0.90503721 3.0717219 -0.90503721 3.0717219 8255.0000 -0.90406109 3.0711299 -0.90406109 3.0711299 8256.0000 -0.90308598 3.0705380 -0.90308598 3.0705380 8257.0000 -0.90211189 3.0699463 -0.90211189 3.0699463 8258.0000 -0.90113880 3.0693547 -0.90113880 3.0693547 8259.0000 -0.90016672 3.0687633 -0.90016672 3.0687633 8260.0000 -0.89919565 3.0681721 -0.89919565 3.0681721 8261.0000 -0.89822559 3.0675810 -0.89822559 3.0675810 8262.0000 -0.89725652 3.0669901 -0.89725652 3.0669901 8263.0000 -0.89628846 3.0663993 -0.89628846 3.0663993 8264.0000 -0.89532140 3.0658087 -0.89532140 3.0658087 8265.0000 -0.89435534 3.0652182 -0.89435534 3.0652182 8266.0000 -0.89339028 3.0646279 -0.89339028 3.0646279 8267.0000 -0.89242621 3.0640377 -0.89242621 3.0640377 8268.0000 -0.89146314 3.0634477 -0.89146314 3.0634477 8269.0000 -0.89050106 3.0628579 -0.89050106 3.0628579 8270.0000 -0.88953997 3.0622682 -0.88953997 3.0622682 8271.0000 -0.88857986 3.0616787 -0.88857986 3.0616787 8272.0000 -0.88762075 3.0610893 -0.88762075 3.0610893 8273.0000 -0.88666262 3.0605001 -0.88666262 3.0605001 8274.0000 -0.88570548 3.0599110 -0.88570548 3.0599110 8275.0000 -0.88474932 3.0593221 -0.88474932 3.0593221 8276.0000 -0.88379414 3.0587333 -0.88379414 3.0587333 8277.0000 -0.88283994 3.0581447 -0.88283994 3.0581447 8278.0000 -0.88188671 3.0575563 -0.88188671 3.0575563 8279.0000 -0.88093447 3.0569680 -0.88093447 3.0569680 8280.0000 -0.87998320 3.0563798 -0.87998320 3.0563798 8281.0000 -0.87903290 3.0557919 -0.87903290 3.0557919 8282.0000 -0.87808357 3.0552040 -0.87808357 3.0552040 8283.0000 -0.87713522 3.0546164 -0.87713522 3.0546164 8284.0000 -0.87618783 3.0540289 -0.87618783 3.0540289 8285.0000 -0.87524141 3.0534415 -0.87524141 3.0534415 8286.0000 -0.87429596 3.0528543 -0.87429596 3.0528543 8287.0000 -0.87335147 3.0522672 -0.87335147 3.0522672 8288.0000 -0.87240794 3.0516803 -0.87240794 3.0516803 8289.0000 -0.87146537 3.0510936 -0.87146537 3.0510936 8290.0000 -0.87052376 3.0505070 -0.87052376 3.0505070 8291.0000 -0.86958311 3.0499206 -0.86958311 3.0499206 8292.0000 -0.86864342 3.0493343 -0.86864342 3.0493343 8293.0000 -0.86770468 3.0487482 -0.86770468 3.0487482 8294.0000 -0.86676689 3.0481622 -0.86676689 3.0481622 8295.0000 -0.86583006 3.0475764 -0.86583006 3.0475764 8296.0000 -0.86489418 3.0469907 -0.86489418 3.0469907 8297.0000 -0.86395924 3.0464052 -0.86395924 3.0464052 8298.0000 -0.86302525 3.0458199 -0.86302525 3.0458199 8299.0000 -0.86209221 3.0452347 -0.86209221 3.0452347 8300.0000 -0.86116012 3.0446496 -0.86116012 3.0446496 8301.0000 -0.86022896 3.0440647 -0.86022896 3.0440647 8302.0000 -0.85929875 3.0434800 -0.85929875 3.0434800 8303.0000 -0.85836947 3.0428954 -0.85836947 3.0428954 8304.0000 -0.85744114 3.0423110 -0.85744114 3.0423110 8305.0000 -0.85651374 3.0417267 -0.85651374 3.0417267 8306.0000 -0.85558728 3.0411426 -0.85558728 3.0411426 8307.0000 -0.85466175 3.0405586 -0.85466175 3.0405586 8308.0000 -0.85373715 3.0399748 -0.85373715 3.0399748 8309.0000 -0.85281349 3.0393912 -0.85281349 3.0393912 8310.0000 -0.85189075 3.0388077 -0.85189075 3.0388077 8311.0000 -0.85096894 3.0382243 -0.85096894 3.0382243 8312.0000 -0.85004806 3.0376411 -0.85004806 3.0376411 8313.0000 -0.84912811 3.0370581 -0.84912811 3.0370581 8314.0000 -0.84820907 3.0364752 -0.84820907 3.0364752 8315.0000 -0.84729096 3.0358924 -0.84729096 3.0358924 8316.0000 -0.84637378 3.0353098 -0.84637378 3.0353098 8317.0000 -0.84545751 3.0347274 -0.84545751 3.0347274 8318.0000 -0.84454215 3.0341451 -0.84454215 3.0341451 8319.0000 -0.84362772 3.0335630 -0.84362772 3.0335630 8320.0000 -0.84271420 3.0329810 -0.84271420 3.0329810 8321.0000 -0.84180159 3.0323992 -0.84180159 3.0323992 8322.0000 -0.84088990 3.0318175 -0.84088990 3.0318175 8323.0000 -0.83997912 3.0312360 -0.83997912 3.0312360 8324.0000 -0.83906924 3.0306547 -0.83906924 3.0306547 8325.0000 -0.83816028 3.0300735 -0.83816028 3.0300735 8326.0000 -0.83725222 3.0294924 -0.83725222 3.0294924 8327.0000 -0.83634506 3.0289115 -0.83634506 3.0289115 8328.0000 -0.83543881 3.0283308 -0.83543881 3.0283308 8329.0000 -0.83453347 3.0277502 -0.83453347 3.0277502 8330.0000 -0.83362902 3.0271697 -0.83362902 3.0271697 8331.0000 -0.83272548 3.0265894 -0.83272548 3.0265894 8332.0000 -0.83182283 3.0260093 -0.83182283 3.0260093 8333.0000 -0.83092108 3.0254293 -0.83092108 3.0254293 8334.0000 -0.83002022 3.0248495 -0.83002022 3.0248495 8335.0000 -0.82912026 3.0242698 -0.82912026 3.0242698 8336.0000 -0.82822119 3.0236902 -0.82822119 3.0236902 8337.0000 -0.82732301 3.0231109 -0.82732301 3.0231109 8338.0000 -0.82642573 3.0225316 -0.82642573 3.0225316 8339.0000 -0.82552933 3.0219526 -0.82552933 3.0219526 8340.0000 -0.82463382 3.0213736 -0.82463382 3.0213736 8341.0000 -0.82373919 3.0207949 -0.82373919 3.0207949 8342.0000 -0.82284545 3.0202162 -0.82284545 3.0202162 8343.0000 -0.82195259 3.0196378 -0.82195259 3.0196378 8344.0000 -0.82106062 3.0190595 -0.82106062 3.0190595 8345.0000 -0.82016953 3.0184813 -0.82016953 3.0184813 8346.0000 -0.81927931 3.0179033 -0.81927931 3.0179033 8347.0000 -0.81838997 3.0173254 -0.81838997 3.0173254 8348.0000 -0.81750151 3.0167477 -0.81750151 3.0167477 8349.0000 -0.81661393 3.0161702 -0.81661393 3.0161702 8350.0000 -0.81572721 3.0155928 -0.81572721 3.0155928 8351.0000 -0.81484138 3.0150155 -0.81484138 3.0150155 8352.0000 -0.81395641 3.0144384 -0.81395641 3.0144384 8353.0000 -0.81307231 3.0138614 -0.81307231 3.0138614 8354.0000 -0.81218908 3.0132846 -0.81218908 3.0132846 8355.0000 -0.81130672 3.0127080 -0.81130672 3.0127080 8356.0000 -0.81042522 3.0121315 -0.81042522 3.0121315 8357.0000 -0.80954459 3.0115552 -0.80954459 3.0115552 8358.0000 -0.80866483 3.0109790 -0.80866483 3.0109790 8359.0000 -0.80778592 3.0104029 -0.80778592 3.0104029 8360.0000 -0.80690788 3.0098270 -0.80690788 3.0098270 8361.0000 -0.80603069 3.0092513 -0.80603069 3.0092513 8362.0000 -0.80515436 3.0086757 -0.80515436 3.0086757 8363.0000 -0.80427889 3.0081002 -0.80427889 3.0081002 8364.0000 -0.80340428 3.0075250 -0.80340428 3.0075250 8365.0000 -0.80253052 3.0069498 -0.80253052 3.0069498 8366.0000 -0.80165761 3.0063748 -0.80165761 3.0063748 8367.0000 -0.80078556 3.0058000 -0.80078556 3.0058000 8368.0000 -0.79991435 3.0052253 -0.79991435 3.0052253 8369.0000 -0.79904400 3.0046508 -0.79904400 3.0046508 8370.0000 -0.79817449 3.0040764 -0.79817449 3.0040764 8371.0000 -0.79730583 3.0035021 -0.79730583 3.0035021 8372.0000 -0.79643802 3.0029281 -0.79643802 3.0029281 8373.0000 -0.79557105 3.0023541 -0.79557105 3.0023541 8374.0000 -0.79470492 3.0017803 -0.79470492 3.0017803 8375.0000 -0.79383963 3.0012067 -0.79383963 3.0012067 8376.0000 -0.79297519 3.0006332 -0.79297519 3.0006332 8377.0000 -0.79211158 3.0000599 -0.79211158 3.0000599 8378.0000 -0.79124881 2.9994867 -0.79124881 2.9994867 8379.0000 -0.79038688 2.9989137 -0.79038688 2.9989137 8380.0000 -0.78952578 2.9983408 -0.78952578 2.9983408 8381.0000 -0.78866552 2.9977680 -0.78866552 2.9977680 8382.0000 -0.78780609 2.9971955 -0.78780609 2.9971955 8383.0000 -0.78694749 2.9966230 -0.78694749 2.9966230 8384.0000 -0.78608973 2.9960507 -0.78608973 2.9960507 8385.0000 -0.78523279 2.9954786 -0.78523279 2.9954786 8386.0000 -0.78437668 2.9949066 -0.78437668 2.9949066 8387.0000 -0.78352140 2.9943348 -0.78352140 2.9943348 8388.0000 -0.78266694 2.9937631 -0.78266694 2.9937631 8389.0000 -0.78181331 2.9931916 -0.78181331 2.9931916 8390.0000 -0.78096050 2.9926202 -0.78096050 2.9926202 8391.0000 -0.78010851 2.9920489 -0.78010851 2.9920489 8392.0000 -0.77925735 2.9914778 -0.77925735 2.9914778 8393.0000 -0.77840700 2.9909069 -0.77840700 2.9909069 8394.0000 -0.77755747 2.9903361 -0.77755747 2.9903361 8395.0000 -0.77670876 2.9897655 -0.77670876 2.9897655 8396.0000 -0.77586087 2.9891950 -0.77586087 2.9891950 8397.0000 -0.77501379 2.9886246 -0.77501379 2.9886246 8398.0000 -0.77416752 2.9880545 -0.77416752 2.9880545 8399.0000 -0.77332206 2.9874844 -0.77332206 2.9874844 8400.0000 -0.77247742 2.9869145 -0.77247742 2.9869145 8401.0000 -0.77163359 2.9863448 -0.77163359 2.9863448 8402.0000 -0.77079056 2.9857752 -0.77079056 2.9857752 8403.0000 -0.76994835 2.9852057 -0.76994835 2.9852057 8404.0000 -0.76910694 2.9846364 -0.76910694 2.9846364 8405.0000 -0.76826633 2.9840673 -0.76826633 2.9840673 8406.0000 -0.76742653 2.9834983 -0.76742653 2.9834983 8407.0000 -0.76658754 2.9829294 -0.76658754 2.9829294 8408.0000 -0.76574934 2.9823607 -0.76574934 2.9823607 8409.0000 -0.76491195 2.9817921 -0.76491195 2.9817921 8410.0000 -0.76407535 2.9812237 -0.76407535 2.9812237 8411.0000 -0.76323955 2.9806555 -0.76323955 2.9806555 8412.0000 -0.76240455 2.9800874 -0.76240455 2.9800874 8413.0000 -0.76157035 2.9795194 -0.76157035 2.9795194 8414.0000 -0.76073694 2.9789516 -0.76073694 2.9789516 8415.0000 -0.75990433 2.9783839 -0.75990433 2.9783839 8416.0000 -0.75907250 2.9778164 -0.75907250 2.9778164 8417.0000 -0.75824147 2.9772490 -0.75824147 2.9772490 8418.0000 -0.75741123 2.9766818 -0.75741123 2.9766818 8419.0000 -0.75658178 2.9761147 -0.75658178 2.9761147 8420.0000 -0.75575312 2.9755478 -0.75575312 2.9755478 8421.0000 -0.75492524 2.9749810 -0.75492524 2.9749810 8422.0000 -0.75409815 2.9744144 -0.75409815 2.9744144 8423.0000 -0.75327184 2.9738479 -0.75327184 2.9738479 8424.0000 -0.75244632 2.9732816 -0.75244632 2.9732816 8425.0000 -0.75162158 2.9727154 -0.75162158 2.9727154 8426.0000 -0.75079762 2.9721493 -0.75079762 2.9721493 8427.0000 -0.74997444 2.9715834 -0.74997444 2.9715834 8428.0000 -0.74915205 2.9710177 -0.74915205 2.9710177 8429.0000 -0.74833042 2.9704521 -0.74833042 2.9704521 8430.0000 -0.74750958 2.9698867 -0.74750958 2.9698867 8431.0000 -0.74668951 2.9693213 -0.74668951 2.9693213 8432.0000 -0.74587022 2.9687562 -0.74587022 2.9687562 8433.0000 -0.74505169 2.9681912 -0.74505169 2.9681912 8434.0000 -0.74423395 2.9676263 -0.74423395 2.9676263 8435.0000 -0.74341697 2.9670616 -0.74341697 2.9670616 8436.0000 -0.74260076 2.9664970 -0.74260076 2.9664970 8437.0000 -0.74178532 2.9659326 -0.74178532 2.9659326 8438.0000 -0.74097066 2.9653684 -0.74097066 2.9653684 8439.0000 -0.74015675 2.9648042 -0.74015675 2.9648042 8440.0000 -0.73934362 2.9642402 -0.73934362 2.9642402 8441.0000 -0.73853124 2.9636764 -0.73853124 2.9636764 8442.0000 -0.73771963 2.9631127 -0.73771963 2.9631127 8443.0000 -0.73690879 2.9625492 -0.73690879 2.9625492 8444.0000 -0.73609870 2.9619858 -0.73609870 2.9619858 8445.0000 -0.73528938 2.9614226 -0.73528938 2.9614226 8446.0000 -0.73448082 2.9608595 -0.73448082 2.9608595 8447.0000 -0.73367301 2.9602965 -0.73367301 2.9602965 8448.0000 -0.73286596 2.9597337 -0.73286596 2.9597337 8449.0000 -0.73205967 2.9591710 -0.73205967 2.9591710 8450.0000 -0.73125413 2.9586085 -0.73125413 2.9586085 8451.0000 -0.73044935 2.9580462 -0.73044935 2.9580462 8452.0000 -0.72964532 2.9574839 -0.72964532 2.9574839 8453.0000 -0.72884204 2.9569219 -0.72884204 2.9569219 8454.0000 -0.72803951 2.9563599 -0.72803951 2.9563599 8455.0000 -0.72723773 2.9557982 -0.72723773 2.9557982 8456.0000 -0.72643670 2.9552365 -0.72643670 2.9552365 8457.0000 -0.72563642 2.9546750 -0.72563642 2.9546750 8458.0000 -0.72483689 2.9541137 -0.72483689 2.9541137 8459.0000 -0.72403810 2.9535525 -0.72403810 2.9535525 8460.0000 -0.72324005 2.9529915 -0.72324005 2.9529915 8461.0000 -0.72244275 2.9524306 -0.72244275 2.9524306 8462.0000 -0.72164619 2.9518698 -0.72164619 2.9518698 8463.0000 -0.72085038 2.9513092 -0.72085038 2.9513092 8464.0000 -0.72005530 2.9507487 -0.72005530 2.9507487 8465.0000 -0.71926096 2.9501884 -0.71926096 2.9501884 8466.0000 -0.71846737 2.9496282 -0.71846737 2.9496282 8467.0000 -0.71767450 2.9490682 -0.71767450 2.9490682 8468.0000 -0.71688238 2.9485083 -0.71688238 2.9485083 8469.0000 -0.71609099 2.9479486 -0.71609099 2.9479486 8470.0000 -0.71530033 2.9473890 -0.71530033 2.9473890 8471.0000 -0.71451041 2.9468295 -0.71451041 2.9468295 8472.0000 -0.71372122 2.9462702 -0.71372122 2.9462702 8473.0000 -0.71293276 2.9457111 -0.71293276 2.9457111 8474.0000 -0.71214504 2.9451521 -0.71214504 2.9451521 8475.0000 -0.71135804 2.9445932 -0.71135804 2.9445932 8476.0000 -0.71057177 2.9440345 -0.71057177 2.9440345 8477.0000 -0.70978622 2.9434759 -0.70978622 2.9434759 8478.0000 -0.70900140 2.9429175 -0.70900140 2.9429175 8479.0000 -0.70821731 2.9423592 -0.70821731 2.9423592 8480.0000 -0.70743394 2.9418010 -0.70743394 2.9418010 8481.0000 -0.70665130 2.9412430 -0.70665130 2.9412430 8482.0000 -0.70586938 2.9406852 -0.70586938 2.9406852 8483.0000 -0.70508817 2.9401275 -0.70508817 2.9401275 8484.0000 -0.70430769 2.9395699 -0.70430769 2.9395699 8485.0000 -0.70352793 2.9390125 -0.70352793 2.9390125 8486.0000 -0.70274889 2.9384552 -0.70274889 2.9384552 8487.0000 -0.70197056 2.9378981 -0.70197056 2.9378981 8488.0000 -0.70119295 2.9373411 -0.70119295 2.9373411 8489.0000 -0.70041606 2.9367843 -0.70041606 2.9367843 8490.0000 -0.69963988 2.9362276 -0.69963988 2.9362276 8491.0000 -0.69886441 2.9356711 -0.69886441 2.9356711 8492.0000 -0.69808965 2.9351146 -0.69808965 2.9351146 8493.0000 -0.69731561 2.9345584 -0.69731561 2.9345584 8494.0000 -0.69654228 2.9340023 -0.69654228 2.9340023 8495.0000 -0.69576965 2.9334463 -0.69576965 2.9334463 8496.0000 -0.69499774 2.9328905 -0.69499774 2.9328905 8497.0000 -0.69422653 2.9323348 -0.69422653 2.9323348 8498.0000 -0.69345603 2.9317793 -0.69345603 2.9317793 8499.0000 -0.69268624 2.9312239 -0.69268624 2.9312239 8500.0000 -0.69191714 2.9306686 -0.69191714 2.9306686 8501.0000 -0.69114876 2.9301135 -0.69114876 2.9301135 8502.0000 -0.69038107 2.9295585 -0.69038107 2.9295585 8503.0000 -0.68961409 2.9290037 -0.68961409 2.9290037 8504.0000 -0.68884781 2.9284490 -0.68884781 2.9284490 8505.0000 -0.68808223 2.9278945 -0.68808223 2.9278945 8506.0000 -0.68731735 2.9273401 -0.68731735 2.9273401 8507.0000 -0.68655316 2.9267859 -0.68655316 2.9267859 8508.0000 -0.68578967 2.9262318 -0.68578967 2.9262318 8509.0000 -0.68502688 2.9256778 -0.68502688 2.9256778 8510.0000 -0.68426478 2.9251240 -0.68426478 2.9251240 8511.0000 -0.68350338 2.9245703 -0.68350338 2.9245703 8512.0000 -0.68274267 2.9240168 -0.68274267 2.9240168 8513.0000 -0.68198266 2.9234634 -0.68198266 2.9234634 8514.0000 -0.68122333 2.9229102 -0.68122333 2.9229102 8515.0000 -0.68046470 2.9223571 -0.68046470 2.9223571 8516.0000 -0.67970675 2.9218041 -0.67970675 2.9218041 8517.0000 -0.67894950 2.9212513 -0.67894950 2.9212513 8518.0000 -0.67819293 2.9206987 -0.67819293 2.9206987 8519.0000 -0.67743705 2.9201461 -0.67743705 2.9201461 8520.0000 -0.67668185 2.9195938 -0.67668185 2.9195938 8521.0000 -0.67592734 2.9190415 -0.67592734 2.9190415 8522.0000 -0.67517351 2.9184894 -0.67517351 2.9184894 8523.0000 -0.67442037 2.9179375 -0.67442037 2.9179375 8524.0000 -0.67366791 2.9173857 -0.67366791 2.9173857 8525.0000 -0.67291613 2.9168340 -0.67291613 2.9168340 8526.0000 -0.67216503 2.9162825 -0.67216503 2.9162825 8527.0000 -0.67141460 2.9157311 -0.67141460 2.9157311 8528.0000 -0.67066486 2.9151799 -0.67066486 2.9151799 8529.0000 -0.66991580 2.9146288 -0.66991580 2.9146288 8530.0000 -0.66916741 2.9140778 -0.66916741 2.9140778 8531.0000 -0.66841970 2.9135270 -0.66841970 2.9135270 8532.0000 -0.66767266 2.9129763 -0.66767266 2.9129763 8533.0000 -0.66692630 2.9124258 -0.66692630 2.9124258 8534.0000 -0.66618061 2.9118754 -0.66618061 2.9118754 8535.0000 -0.66543559 2.9113252 -0.66543559 2.9113252 8536.0000 -0.66469125 2.9107751 -0.66469125 2.9107751 8537.0000 -0.66394757 2.9102251 -0.66394757 2.9102251 8538.0000 -0.66320457 2.9096753 -0.66320457 2.9096753 8539.0000 -0.66246223 2.9091256 -0.66246223 2.9091256 8540.0000 -0.66172056 2.9085761 -0.66172056 2.9085761 8541.0000 -0.66097956 2.9080267 -0.66097956 2.9080267 8542.0000 -0.66023922 2.9074775 -0.66023922 2.9074775 8543.0000 -0.65949955 2.9069284 -0.65949955 2.9069284 8544.0000 -0.65876055 2.9063794 -0.65876055 2.9063794 8545.0000 -0.65802220 2.9058306 -0.65802220 2.9058306 8546.0000 -0.65728452 2.9052819 -0.65728452 2.9052819 8547.0000 -0.65654750 2.9047334 -0.65654750 2.9047334 8548.0000 -0.65581115 2.9041850 -0.65581115 2.9041850 8549.0000 -0.65507545 2.9036367 -0.65507545 2.9036367 8550.0000 -0.65434041 2.9030886 -0.65434041 2.9030886 8551.0000 -0.65360603 2.9025407 -0.65360603 2.9025407 8552.0000 -0.65287231 2.9019928 -0.65287231 2.9019928 8553.0000 -0.65213924 2.9014451 -0.65213924 2.9014451 8554.0000 -0.65140683 2.9008976 -0.65140683 2.9008976 8555.0000 -0.65067507 2.9003502 -0.65067507 2.9003502 8556.0000 -0.64994397 2.8998029 -0.64994397 2.8998029 8557.0000 -0.64921352 2.8992558 -0.64921352 2.8992558 8558.0000 -0.64848372 2.8987088 -0.64848372 2.8987088 8559.0000 -0.64775458 2.8981620 -0.64775458 2.8981620 8560.0000 -0.64702608 2.8976153 -0.64702608 2.8976153 8561.0000 -0.64629824 2.8970687 -0.64629824 2.8970687 8562.0000 -0.64557104 2.8965223 -0.64557104 2.8965223 8563.0000 -0.64484449 2.8959761 -0.64484449 2.8959761 8564.0000 -0.64411859 2.8954299 -0.64411859 2.8954299 8565.0000 -0.64339334 2.8948839 -0.64339334 2.8948839 8566.0000 -0.64266873 2.8943381 -0.64266873 2.8943381 8567.0000 -0.64194476 2.8937924 -0.64194476 2.8937924 8568.0000 -0.64122144 2.8932468 -0.64122144 2.8932468 8569.0000 -0.64049876 2.8927014 -0.64049876 2.8927014 8570.0000 -0.63977673 2.8921561 -0.63977673 2.8921561 8571.0000 -0.63905533 2.8916109 -0.63905533 2.8916109 8572.0000 -0.63833458 2.8910659 -0.63833458 2.8910659 8573.0000 -0.63761446 2.8905211 -0.63761446 2.8905211 8574.0000 -0.63689498 2.8899763 -0.63689498 2.8899763 8575.0000 -0.63617615 2.8894318 -0.63617615 2.8894318 8576.0000 -0.63545794 2.8888873 -0.63545794 2.8888873 8577.0000 -0.63474038 2.8883430 -0.63474038 2.8883430 8578.0000 -0.63402345 2.8877988 -0.63402345 2.8877988 8579.0000 -0.63330716 2.8872548 -0.63330716 2.8872548 8580.0000 -0.63259150 2.8867109 -0.63259150 2.8867109 8581.0000 -0.63187647 2.8861672 -0.63187647 2.8861672 8582.0000 -0.63116207 2.8856236 -0.63116207 2.8856236 8583.0000 -0.63044831 2.8850801 -0.63044831 2.8850801 8584.0000 -0.62973517 2.8845368 -0.62973517 2.8845368 8585.0000 -0.62902267 2.8839936 -0.62902267 2.8839936 8586.0000 -0.62831080 2.8834506 -0.62831080 2.8834506 8587.0000 -0.62759955 2.8829077 -0.62759955 2.8829077 8588.0000 -0.62688893 2.8823649 -0.62688893 2.8823649 8589.0000 -0.62617894 2.8818223 -0.62617894 2.8818223 8590.0000 -0.62546957 2.8812798 -0.62546957 2.8812798 8591.0000 -0.62476083 2.8807375 -0.62476083 2.8807375 8592.0000 -0.62405271 2.8801953 -0.62405271 2.8801953 8593.0000 -0.62334522 2.8796532 -0.62334522 2.8796532 8594.0000 -0.62263835 2.8791113 -0.62263835 2.8791113 8595.0000 -0.62193210 2.8785695 -0.62193210 2.8785695 8596.0000 -0.62122647 2.8780278 -0.62122647 2.8780278 8597.0000 -0.62052146 2.8774863 -0.62052146 2.8774863 8598.0000 -0.61981707 2.8769450 -0.61981707 2.8769450 8599.0000 -0.61911330 2.8764037 -0.61911330 2.8764037 8600.0000 -0.61841014 2.8758626 -0.61841014 2.8758626 8601.0000 -0.61770761 2.8753217 -0.61770761 2.8753217 8602.0000 -0.61700569 2.8747809 -0.61700569 2.8747809 8603.0000 -0.61630438 2.8742402 -0.61630438 2.8742402 8604.0000 -0.61560370 2.8736997 -0.61560370 2.8736997 8605.0000 -0.61490362 2.8731593 -0.61490362 2.8731593 8606.0000 -0.61420416 2.8726190 -0.61420416 2.8726190 8607.0000 -0.61350531 2.8720789 -0.61350531 2.8720789 8608.0000 -0.61280707 2.8715389 -0.61280707 2.8715389 8609.0000 -0.61210944 2.8709991 -0.61210944 2.8709991 8610.0000 -0.61141242 2.8704594 -0.61141242 2.8704594 8611.0000 -0.61071601 2.8699198 -0.61071601 2.8699198 8612.0000 -0.61002021 2.8693804 -0.61002021 2.8693804 8613.0000 -0.60932502 2.8688411 -0.60932502 2.8688411 8614.0000 -0.60863044 2.8683020 -0.60863044 2.8683020 8615.0000 -0.60793646 2.8677630 -0.60793646 2.8677630 8616.0000 -0.60724308 2.8672241 -0.60724308 2.8672241 8617.0000 -0.60655032 2.8666854 -0.60655032 2.8666854 8618.0000 -0.60585815 2.8661468 -0.60585815 2.8661468 8619.0000 -0.60516659 2.8656084 -0.60516659 2.8656084 8620.0000 -0.60447563 2.8650700 -0.60447563 2.8650700 8621.0000 -0.60378527 2.8645319 -0.60378527 2.8645319 8622.0000 -0.60309552 2.8639938 -0.60309552 2.8639938 8623.0000 -0.60240636 2.8634559 -0.60240636 2.8634559 8624.0000 -0.60171780 2.8629182 -0.60171780 2.8629182 8625.0000 -0.60102984 2.8623806 -0.60102984 2.8623806 8626.0000 -0.60034248 2.8618431 -0.60034248 2.8618431 8627.0000 -0.59965572 2.8613057 -0.59965572 2.8613057 8628.0000 -0.59896955 2.8607685 -0.59896955 2.8607685 8629.0000 -0.59828398 2.8602315 -0.59828398 2.8602315 8630.0000 -0.59759900 2.8596945 -0.59759900 2.8596945 8631.0000 -0.59691462 2.8591577 -0.59691462 2.8591577 8632.0000 -0.59623083 2.8586211 -0.59623083 2.8586211 8633.0000 -0.59554763 2.8580846 -0.59554763 2.8580846 8634.0000 -0.59486503 2.8575482 -0.59486503 2.8575482 8635.0000 -0.59418301 2.8570119 -0.59418301 2.8570119 8636.0000 -0.59350159 2.8564758 -0.59350159 2.8564758 8637.0000 -0.59282076 2.8559399 -0.59282076 2.8559399 8638.0000 -0.59214051 2.8554040 -0.59214051 2.8554040 8639.0000 -0.59146086 2.8548683 -0.59146086 2.8548683 8640.0000 -0.59078179 2.8543328 -0.59078179 2.8543328 8641.0000 -0.59010331 2.8537974 -0.59010331 2.8537974 8642.0000 -0.58942541 2.8532621 -0.58942541 2.8532621 8643.0000 -0.58874810 2.8527269 -0.58874810 2.8527269 8644.0000 -0.58807138 2.8521919 -0.58807138 2.8521919 8645.0000 -0.58739523 2.8516571 -0.58739523 2.8516571 8646.0000 -0.58671968 2.8511223 -0.58671968 2.8511223 8647.0000 -0.58604470 2.8505878 -0.58604470 2.8505878 8648.0000 -0.58537031 2.8500533 -0.58537031 2.8500533 8649.0000 -0.58469649 2.8495190 -0.58469649 2.8495190 8650.0000 -0.58402326 2.8489848 -0.58402326 2.8489848 8651.0000 -0.58335061 2.8484507 -0.58335061 2.8484507 8652.0000 -0.58267853 2.8479168 -0.58267853 2.8479168 8653.0000 -0.58200703 2.8473831 -0.58200703 2.8473831 8654.0000 -0.58133612 2.8468494 -0.58133612 2.8468494 8655.0000 -0.58066577 2.8463159 -0.58066577 2.8463159 8656.0000 -0.57999601 2.8457826 -0.57999601 2.8457826 8657.0000 -0.57932682 2.8452493 -0.57932682 2.8452493 8658.0000 -0.57865820 2.8447163 -0.57865820 2.8447163 8659.0000 -0.57799016 2.8441833 -0.57799016 2.8441833 8660.0000 -0.57732269 2.8436505 -0.57732269 2.8436505 8661.0000 -0.57665579 2.8431178 -0.57665579 2.8431178 8662.0000 -0.57598947 2.8425853 -0.57598947 2.8425853 8663.0000 -0.57532371 2.8420529 -0.57532371 2.8420529 8664.0000 -0.57465853 2.8415206 -0.57465853 2.8415206 8665.0000 -0.57399392 2.8409885 -0.57399392 2.8409885 8666.0000 -0.57332987 2.8404565 -0.57332987 2.8404565 8667.0000 -0.57266640 2.8399246 -0.57266640 2.8399246 8668.0000 -0.57200349 2.8393929 -0.57200349 2.8393929 8669.0000 -0.57134115 2.8388613 -0.57134115 2.8388613 8670.0000 -0.57067937 2.8383298 -0.57067937 2.8383298 8671.0000 -0.57001816 2.8377985 -0.57001816 2.8377985 8672.0000 -0.56935751 2.8372674 -0.56935751 2.8372674 8673.0000 -0.56869743 2.8367363 -0.56869743 2.8367363 8674.0000 -0.56803792 2.8362054 -0.56803792 2.8362054 8675.0000 -0.56737896 2.8356746 -0.56737896 2.8356746 8676.0000 -0.56672057 2.8351440 -0.56672057 2.8351440 8677.0000 -0.56606274 2.8346135 -0.56606274 2.8346135 8678.0000 -0.56540547 2.8340831 -0.56540547 2.8340831 8679.0000 -0.56474876 2.8335529 -0.56474876 2.8335529 8680.0000 -0.56409261 2.8330228 -0.56409261 2.8330228 8681.0000 -0.56343702 2.8324928 -0.56343702 2.8324928 8682.0000 -0.56278198 2.8319630 -0.56278198 2.8319630 8683.0000 -0.56212751 2.8314333 -0.56212751 2.8314333 8684.0000 -0.56147359 2.8309038 -0.56147359 2.8309038 8685.0000 -0.56082022 2.8303744 -0.56082022 2.8303744 8686.0000 -0.56016741 2.8298451 -0.56016741 2.8298451 8687.0000 -0.55951516 2.8293159 -0.55951516 2.8293159 8688.0000 -0.55886346 2.8287869 -0.55886346 2.8287869 8689.0000 -0.55821231 2.8282581 -0.55821231 2.8282581 8690.0000 -0.55756172 2.8277293 -0.55756172 2.8277293 8691.0000 -0.55691168 2.8272007 -0.55691168 2.8272007 8692.0000 -0.55626219 2.8266723 -0.55626219 2.8266723 8693.0000 -0.55561325 2.8261439 -0.55561325 2.8261439 8694.0000 -0.55496486 2.8256157 -0.55496486 2.8256157 8695.0000 -0.55431702 2.8250877 -0.55431702 2.8250877 8696.0000 -0.55366973 2.8245597 -0.55366973 2.8245597 8697.0000 -0.55302298 2.8240319 -0.55302298 2.8240319 8698.0000 -0.55237679 2.8235043 -0.55237679 2.8235043 8699.0000 -0.55173114 2.8229767 -0.55173114 2.8229767 8700.0000 -0.55108603 2.8224494 -0.55108603 2.8224494 8701.0000 -0.55044148 2.8219221 -0.55044148 2.8219221 8702.0000 -0.54979746 2.8213950 -0.54979746 2.8213950 8703.0000 -0.54915399 2.8208680 -0.54915399 2.8208680 8704.0000 -0.54851107 2.8203411 -0.54851107 2.8203411 8705.0000 -0.54786869 2.8198144 -0.54786869 2.8198144 8706.0000 -0.54722685 2.8192878 -0.54722685 2.8192878 8707.0000 -0.54658555 2.8187614 -0.54658555 2.8187614 8708.0000 -0.54594479 2.8182351 -0.54594479 2.8182351 8709.0000 -0.54530457 2.8177089 -0.54530457 2.8177089 8710.0000 -0.54466489 2.8171829 -0.54466489 2.8171829 8711.0000 -0.54402575 2.8166570 -0.54402575 2.8166570 8712.0000 -0.54338715 2.8161312 -0.54338715 2.8161312 8713.0000 -0.54274909 2.8156055 -0.54274909 2.8156055 8714.0000 -0.54211156 2.8150800 -0.54211156 2.8150800 8715.0000 -0.54147457 2.8145547 -0.54147457 2.8145547 8716.0000 -0.54083812 2.8140294 -0.54083812 2.8140294 8717.0000 -0.54020220 2.8135043 -0.54020220 2.8135043 8718.0000 -0.53956682 2.8129793 -0.53956682 2.8129793 8719.0000 -0.53893197 2.8124545 -0.53893197 2.8124545 8720.0000 -0.53829765 2.8119298 -0.53829765 2.8119298 8721.0000 -0.53766386 2.8114052 -0.53766386 2.8114052 8722.0000 -0.53703061 2.8108808 -0.53703061 2.8108808 8723.0000 -0.53639789 2.8103565 -0.53639789 2.8103565 8724.0000 -0.53576570 2.8098323 -0.53576570 2.8098323 8725.0000 -0.53513404 2.8093083 -0.53513404 2.8093083 8726.0000 -0.53450291 2.8087844 -0.53450291 2.8087844 8727.0000 -0.53387231 2.8082606 -0.53387231 2.8082606 8728.0000 -0.53324223 2.8077370 -0.53324223 2.8077370 8729.0000 -0.53261269 2.8072135 -0.53261269 2.8072135 8730.0000 -0.53198367 2.8066901 -0.53198367 2.8066901 8731.0000 -0.53135517 2.8061669 -0.53135517 2.8061669 8732.0000 -0.53072721 2.8056438 -0.53072721 2.8056438 8733.0000 -0.53009976 2.8051208 -0.53009976 2.8051208 8734.0000 -0.52947285 2.8045980 -0.52947285 2.8045980 8735.0000 -0.52884645 2.8040753 -0.52884645 2.8040753 8736.0000 -0.52822058 2.8035527 -0.52822058 2.8035527 8737.0000 -0.52759523 2.8030303 -0.52759523 2.8030303 8738.0000 -0.52697041 2.8025080 -0.52697041 2.8025080 8739.0000 -0.52634610 2.8019858 -0.52634610 2.8019858 8740.0000 -0.52572232 2.8014638 -0.52572232 2.8014638 8741.0000 -0.52509906 2.8009419 -0.52509906 2.8009419 8742.0000 -0.52447631 2.8004201 -0.52447631 2.8004201 8743.0000 -0.52385409 2.7998985 -0.52385409 2.7998985 8744.0000 -0.52323238 2.7993770 -0.52323238 2.7993770 8745.0000 -0.52261119 2.7988556 -0.52261119 2.7988556 8746.0000 -0.52199052 2.7983344 -0.52199052 2.7983344 8747.0000 -0.52137037 2.7978132 -0.52137037 2.7978132 8748.0000 -0.52075073 2.7972923 -0.52075073 2.7972923 8749.0000 -0.52013161 2.7967714 -0.52013161 2.7967714 8750.0000 -0.51951300 2.7962507 -0.51951300 2.7962507 8751.0000 -0.51889490 2.7957302 -0.51889490 2.7957302 8752.0000 -0.51827732 2.7952097 -0.51827732 2.7952097 8753.0000 -0.51766025 2.7946894 -0.51766025 2.7946894 8754.0000 -0.51704370 2.7941692 -0.51704370 2.7941692 8755.0000 -0.51642766 2.7936492 -0.51642766 2.7936492 8756.0000 -0.51581212 2.7931293 -0.51581212 2.7931293 8757.0000 -0.51519710 2.7926095 -0.51519710 2.7926095 8758.0000 -0.51458259 2.7920898 -0.51458259 2.7920898 8759.0000 -0.51396859 2.7915703 -0.51396859 2.7915703 8760.0000 -0.51335509 2.7910509 -0.51335509 2.7910509 8761.0000 -0.51274211 2.7905317 -0.51274211 2.7905317 8762.0000 -0.51212963 2.7900126 -0.51212963 2.7900126 8763.0000 -0.51151766 2.7894936 -0.51151766 2.7894936 8764.0000 -0.51090620 2.7889747 -0.51090620 2.7889747 8765.0000 -0.51029524 2.7884560 -0.51029524 2.7884560 8766.0000 -0.50968479 2.7879374 -0.50968479 2.7879374 8767.0000 -0.50907484 2.7874189 -0.50907484 2.7874189 8768.0000 -0.50846539 2.7869006 -0.50846539 2.7869006 8769.0000 -0.50785645 2.7863824 -0.50785645 2.7863824 8770.0000 -0.50724802 2.7858643 -0.50724802 2.7858643 8771.0000 -0.50664008 2.7853464 -0.50664008 2.7853464 8772.0000 -0.50603265 2.7848286 -0.50603265 2.7848286 8773.0000 -0.50542572 2.7843109 -0.50542572 2.7843109 8774.0000 -0.50481929 2.7837934 -0.50481929 2.7837934 8775.0000 -0.50421336 2.7832760 -0.50421336 2.7832760 8776.0000 -0.50360792 2.7827587 -0.50360792 2.7827587 8777.0000 -0.50300299 2.7822416 -0.50300299 2.7822416 8778.0000 -0.50239856 2.7817246 -0.50239856 2.7817246 8779.0000 -0.50179462 2.7812077 -0.50179462 2.7812077 8780.0000 -0.50119118 2.7806909 -0.50119118 2.7806909 8781.0000 -0.50058824 2.7801743 -0.50058824 2.7801743 8782.0000 -0.49998580 2.7796578 -0.49998580 2.7796578 8783.0000 -0.49938385 2.7791415 -0.49938385 2.7791415 8784.0000 -0.49878239 2.7786252 -0.49878239 2.7786252 8785.0000 -0.49818143 2.7781091 -0.49818143 2.7781091 8786.0000 -0.49758096 2.7775932 -0.49758096 2.7775932 8787.0000 -0.49698099 2.7770773 -0.49698099 2.7770773 8788.0000 -0.49638151 2.7765616 -0.49638151 2.7765616 8789.0000 -0.49578252 2.7760461 -0.49578252 2.7760461 8790.0000 -0.49518402 2.7755306 -0.49518402 2.7755306 8791.0000 -0.49458601 2.7750153 -0.49458601 2.7750153 8792.0000 -0.49398850 2.7745001 -0.49398850 2.7745001 8793.0000 -0.49339147 2.7739851 -0.49339147 2.7739851 8794.0000 -0.49279494 2.7734702 -0.49279494 2.7734702 8795.0000 -0.49219889 2.7729554 -0.49219889 2.7729554 8796.0000 -0.49160333 2.7724407 -0.49160333 2.7724407 8797.0000 -0.49100826 2.7719262 -0.49100826 2.7719262 8798.0000 -0.49041367 2.7714118 -0.49041367 2.7714118 8799.0000 -0.48981958 2.7708975 -0.48981958 2.7708975 8800.0000 -0.48922596 2.7703834 -0.48922596 2.7703834 8801.0000 -0.48863284 2.7698694 -0.48863284 2.7698694 8802.0000 -0.48804020 2.7693555 -0.48804020 2.7693555 8803.0000 -0.48744804 2.7688418 -0.48744804 2.7688418 8804.0000 -0.48685637 2.7683282 -0.48685637 2.7683282 8805.0000 -0.48626518 2.7678147 -0.48626518 2.7678147 8806.0000 -0.48567447 2.7673013 -0.48567447 2.7673013 8807.0000 -0.48508425 2.7667881 -0.48508425 2.7667881 8808.0000 -0.48449450 2.7662750 -0.48449450 2.7662750 8809.0000 -0.48390524 2.7657620 -0.48390524 2.7657620 8810.0000 -0.48331646 2.7652492 -0.48331646 2.7652492 8811.0000 -0.48272816 2.7647365 -0.48272816 2.7647365 8812.0000 -0.48214034 2.7642239 -0.48214034 2.7642239 8813.0000 -0.48155300 2.7637115 -0.48155300 2.7637115 8814.0000 -0.48096613 2.7631992 -0.48096613 2.7631992 8815.0000 -0.48037975 2.7626870 -0.48037975 2.7626870 8816.0000 -0.47979384 2.7621749 -0.47979384 2.7621749 8817.0000 -0.47920841 2.7616630 -0.47920841 2.7616630 8818.0000 -0.47862345 2.7611512 -0.47862345 2.7611512 8819.0000 -0.47803897 2.7606396 -0.47803897 2.7606396 8820.0000 -0.47745497 2.7601280 -0.47745497 2.7601280 8821.0000 -0.47687144 2.7596166 -0.47687144 2.7596166 8822.0000 -0.47628838 2.7591053 -0.47628838 2.7591053 8823.0000 -0.47570580 2.7585942 -0.47570580 2.7585942 8824.0000 -0.47512369 2.7580832 -0.47512369 2.7580832 8825.0000 -0.47454206 2.7575723 -0.47454206 2.7575723 8826.0000 -0.47396089 2.7570615 -0.47396089 2.7570615 8827.0000 -0.47338020 2.7565509 -0.47338020 2.7565509 8828.0000 -0.47279998 2.7560404 -0.47279998 2.7560404 8829.0000 -0.47222023 2.7555300 -0.47222023 2.7555300 8830.0000 -0.47164095 2.7550198 -0.47164095 2.7550198 8831.0000 -0.47106213 2.7545097 -0.47106213 2.7545097 8832.0000 -0.47048379 2.7539997 -0.47048379 2.7539997 8833.0000 -0.46990592 2.7534898 -0.46990592 2.7534898 8834.0000 -0.46932851 2.7529801 -0.46932851 2.7529801 8835.0000 -0.46875157 2.7524705 -0.46875157 2.7524705 8836.0000 -0.46817510 2.7519610 -0.46817510 2.7519610 8837.0000 -0.46759909 2.7514517 -0.46759909 2.7514517 8838.0000 -0.46702355 2.7509425 -0.46702355 2.7509425 8839.0000 -0.46644848 2.7504334 -0.46644848 2.7504334 8840.0000 -0.46587387 2.7499245 -0.46587387 2.7499245 8841.0000 -0.46529972 2.7494156 -0.46529972 2.7494156 8842.0000 -0.46472604 2.7489069 -0.46472604 2.7489069 8843.0000 -0.46415282 2.7483984 -0.46415282 2.7483984 8844.0000 -0.46358007 2.7478899 -0.46358007 2.7478899 8845.0000 -0.46300777 2.7473816 -0.46300777 2.7473816 8846.0000 -0.46243594 2.7468734 -0.46243594 2.7468734 8847.0000 -0.46186457 2.7463654 -0.46186457 2.7463654 8848.0000 -0.46129366 2.7458575 -0.46129366 2.7458575 8849.0000 -0.46072321 2.7453497 -0.46072321 2.7453497 8850.0000 -0.46015322 2.7448420 -0.46015322 2.7448420 8851.0000 -0.45958369 2.7443345 -0.45958369 2.7443345 8852.0000 -0.45901462 2.7438270 -0.45901462 2.7438270 8853.0000 -0.45844600 2.7433198 -0.45844600 2.7433198 8854.0000 -0.45787784 2.7428126 -0.45787784 2.7428126 8855.0000 -0.45731014 2.7423056 -0.45731014 2.7423056 8856.0000 -0.45674290 2.7417987 -0.45674290 2.7417987 8857.0000 -0.45617611 2.7412919 -0.45617611 2.7412919 8858.0000 -0.45560978 2.7407853 -0.45560978 2.7407853 8859.0000 -0.45504391 2.7402787 -0.45504391 2.7402787 8860.0000 -0.45447849 2.7397724 -0.45447849 2.7397724 8861.0000 -0.45391352 2.7392661 -0.45391352 2.7392661 8862.0000 -0.45334901 2.7387600 -0.45334901 2.7387600 8863.0000 -0.45278494 2.7382540 -0.45278494 2.7382540 8864.0000 -0.45222134 2.7377481 -0.45222134 2.7377481 8865.0000 -0.45165818 2.7372423 -0.45165818 2.7372423 8866.0000 -0.45109548 2.7367367 -0.45109548 2.7367367 8867.0000 -0.45053322 2.7362312 -0.45053322 2.7362312 8868.0000 -0.44997142 2.7357259 -0.44997142 2.7357259 8869.0000 -0.44941007 2.7352206 -0.44941007 2.7352206 8870.0000 -0.44884917 2.7347155 -0.44884917 2.7347155 8871.0000 -0.44828872 2.7342105 -0.44828872 2.7342105 8872.0000 -0.44772871 2.7337057 -0.44772871 2.7337057 8873.0000 -0.44716915 2.7332009 -0.44716915 2.7332009 8874.0000 -0.44661005 2.7326963 -0.44661005 2.7326963 8875.0000 -0.44605139 2.7321919 -0.44605139 2.7321919 8876.0000 -0.44549317 2.7316875 -0.44549317 2.7316875 8877.0000 -0.44493540 2.7311833 -0.44493540 2.7311833 8878.0000 -0.44437808 2.7306792 -0.44437808 2.7306792 8879.0000 -0.44382120 2.7301752 -0.44382120 2.7301752 8880.0000 -0.44326477 2.7296714 -0.44326477 2.7296714 8881.0000 -0.44270878 2.7291677 -0.44270878 2.7291677 8882.0000 -0.44215324 2.7286641 -0.44215324 2.7286641 8883.0000 -0.44159814 2.7281606 -0.44159814 2.7281606 8884.0000 -0.44104348 2.7276573 -0.44104348 2.7276573 8885.0000 -0.44048927 2.7271541 -0.44048927 2.7271541 8886.0000 -0.43993549 2.7266510 -0.43993549 2.7266510 8887.0000 -0.43938216 2.7261481 -0.43938216 2.7261481 8888.0000 -0.43882927 2.7256452 -0.43882927 2.7256452 8889.0000 -0.43827682 2.7251426 -0.43827682 2.7251426 8890.0000 -0.43772481 2.7246400 -0.43772481 2.7246400 8891.0000 -0.43717324 2.7241375 -0.43717324 2.7241375 8892.0000 -0.43662211 2.7236352 -0.43662211 2.7236352 8893.0000 -0.43607142 2.7231330 -0.43607142 2.7231330 8894.0000 -0.43552116 2.7226310 -0.43552116 2.7226310 8895.0000 -0.43497134 2.7221290 -0.43497134 2.7221290 8896.0000 -0.43442196 2.7216272 -0.43442196 2.7216272 8897.0000 -0.43387302 2.7211255 -0.43387302 2.7211255 8898.0000 -0.43332451 2.7206240 -0.43332451 2.7206240 8899.0000 -0.43277644 2.7201225 -0.43277644 2.7201225 8900.0000 -0.43222881 2.7196212 -0.43222881 2.7196212 8901.0000 -0.43168806 2.7191169 -0.43168806 2.7191169 8902.0000 -0.43114774 2.7186127 -0.43114774 2.7186127 8903.0000 -0.43060787 2.7181086 -0.43060787 2.7181086 8904.0000 -0.43006843 2.7176047 -0.43006843 2.7176047 8905.0000 -0.42952942 2.7171009 -0.42952942 2.7171009 8906.0000 -0.42899085 2.7165972 -0.42899085 2.7165972 8907.0000 -0.42845272 2.7160937 -0.42845272 2.7160937 8908.0000 -0.42791502 2.7155904 -0.42791502 2.7155904 8909.0000 -0.42737775 2.7150872 -0.42737775 2.7150872 8910.0000 -0.42684092 2.7145841 -0.42684092 2.7145841 8911.0000 -0.42630452 2.7140812 -0.42630452 2.7140812 8912.0000 -0.42576855 2.7135784 -0.42576855 2.7135784 8913.0000 -0.42523302 2.7130757 -0.42523302 2.7130757 8914.0000 -0.42469791 2.7125732 -0.42469791 2.7125732 8915.0000 -0.42416324 2.7120709 -0.42416324 2.7120709 8916.0000 -0.42362900 2.7115686 -0.42362900 2.7115686 8917.0000 -0.42309518 2.7110666 -0.42309518 2.7110666 8918.0000 -0.42256180 2.7105646 -0.42256180 2.7105646 8919.0000 -0.42202885 2.7100628 -0.42202885 2.7100628 8920.0000 -0.42149632 2.7095612 -0.42149632 2.7095612 8921.0000 -0.42096422 2.7090596 -0.42096422 2.7090596 8922.0000 -0.42043255 2.7085583 -0.42043255 2.7085583 8923.0000 -0.41990131 2.7080570 -0.41990131 2.7080570 8924.0000 -0.41937049 2.7075560 -0.41937049 2.7075560 8925.0000 -0.41884010 2.7070550 -0.41884010 2.7070550 8926.0000 -0.41831014 2.7065542 -0.41831014 2.7065542 8927.0000 -0.41778060 2.7060535 -0.41778060 2.7060535 8928.0000 -0.41725148 2.7055530 -0.41725148 2.7055530 8929.0000 -0.41672279 2.7050526 -0.41672279 2.7050526 8930.0000 -0.41619453 2.7045524 -0.41619453 2.7045524 8931.0000 -0.41566668 2.7040523 -0.41566668 2.7040523 8932.0000 -0.41513926 2.7035523 -0.41513926 2.7035523 8933.0000 -0.41461226 2.7030525 -0.41461226 2.7030525 8934.0000 -0.41408569 2.7025528 -0.41408569 2.7025528 8935.0000 -0.41355953 2.7020533 -0.41355953 2.7020533 8936.0000 -0.41303380 2.7015539 -0.41303380 2.7015539 8937.0000 -0.41250849 2.7010546 -0.41250849 2.7010546 8938.0000 -0.41198359 2.7005555 -0.41198359 2.7005555 8939.0000 -0.41145912 2.7000565 -0.41145912 2.7000565 8940.0000 -0.41093506 2.6995577 -0.41093506 2.6995577 8941.0000 -0.41041143 2.6990590 -0.41041143 2.6990590 8942.0000 -0.40988821 2.6985605 -0.40988821 2.6985605 8943.0000 -0.40936541 2.6980621 -0.40936541 2.6980621 8944.0000 -0.40884303 2.6975638 -0.40884303 2.6975638 8945.0000 -0.40832106 2.6970657 -0.40832106 2.6970657 8946.0000 -0.40779951 2.6965677 -0.40779951 2.6965677 8947.0000 -0.40727838 2.6960698 -0.40727838 2.6960698 8948.0000 -0.40675766 2.6955721 -0.40675766 2.6955721 8949.0000 -0.40623736 2.6950745 -0.40623736 2.6950745 8950.0000 -0.40571747 2.6945771 -0.40571747 2.6945771 8951.0000 -0.40519800 2.6940798 -0.40519800 2.6940798 8952.0000 -0.40467894 2.6935826 -0.40467894 2.6935826 8953.0000 -0.40416029 2.6930856 -0.40416029 2.6930856 8954.0000 -0.40364205 2.6925888 -0.40364205 2.6925888 8955.0000 -0.40312423 2.6920920 -0.40312423 2.6920920 8956.0000 -0.40260682 2.6915954 -0.40260682 2.6915954 8957.0000 -0.40208982 2.6910990 -0.40208982 2.6910990 8958.0000 -0.40157323 2.6906027 -0.40157323 2.6906027 8959.0000 -0.40105706 2.6901065 -0.40105706 2.6901065 8960.0000 -0.40054129 2.6896105 -0.40054129 2.6896105 8961.0000 -0.40002593 2.6891146 -0.40002593 2.6891146 8962.0000 -0.39951098 2.6886188 -0.39951098 2.6886188 8963.0000 -0.39899644 2.6881232 -0.39899644 2.6881232 8964.0000 -0.39848231 2.6876277 -0.39848231 2.6876277 8965.0000 -0.39796859 2.6871324 -0.39796859 2.6871324 8966.0000 -0.39745527 2.6866372 -0.39745527 2.6866372 8967.0000 -0.39694236 2.6861421 -0.39694236 2.6861421 8968.0000 -0.39642986 2.6856472 -0.39642986 2.6856472 8969.0000 -0.39591776 2.6851524 -0.39591776 2.6851524 8970.0000 -0.39540607 2.6846578 -0.39540607 2.6846578 8971.0000 -0.39489478 2.6841633 -0.39489478 2.6841633 8972.0000 -0.39438390 2.6836689 -0.39438390 2.6836689 8973.0000 -0.39387342 2.6831747 -0.39387342 2.6831747 8974.0000 -0.39336335 2.6826806 -0.39336335 2.6826806 8975.0000 -0.39285368 2.6821866 -0.39285368 2.6821866 8976.0000 -0.39234441 2.6816928 -0.39234441 2.6816928 8977.0000 -0.39183554 2.6811992 -0.39183554 2.6811992 8978.0000 -0.39132708 2.6807056 -0.39132708 2.6807056 8979.0000 -0.39081902 2.6802122 -0.39081902 2.6802122 8980.0000 -0.39031136 2.6797190 -0.39031136 2.6797190 8981.0000 -0.38980410 2.6792258 -0.38980410 2.6792258 8982.0000 -0.38929724 2.6787329 -0.38929724 2.6787329 8983.0000 -0.38879078 2.6782400 -0.38879078 2.6782400 8984.0000 -0.38828473 2.6777473 -0.38828473 2.6777473 8985.0000 -0.38777907 2.6772548 -0.38777907 2.6772548 8986.0000 -0.38727380 2.6767623 -0.38727380 2.6767623 8987.0000 -0.38676894 2.6762700 -0.38676894 2.6762700 8988.0000 -0.38626448 2.6757779 -0.38626448 2.6757779 8989.0000 -0.38576041 2.6752859 -0.38576041 2.6752859 8990.0000 -0.38525674 2.6747940 -0.38525674 2.6747940 8991.0000 -0.38475346 2.6743023 -0.38475346 2.6743023 8992.0000 -0.38425058 2.6738107 -0.38425058 2.6738107 8993.0000 -0.38374810 2.6733192 -0.38374810 2.6733192 8994.0000 -0.38324601 2.6728279 -0.38324601 2.6728279 8995.0000 -0.38274432 2.6723367 -0.38274432 2.6723367 8996.0000 -0.38224302 2.6718456 -0.38224302 2.6718456 8997.0000 -0.38174212 2.6713547 -0.38174212 2.6713547 8998.0000 -0.38124161 2.6708639 -0.38124161 2.6708639 8999.0000 -0.38074149 2.6703733 -0.38074149 2.6703733 9000.0000 -0.38024176 2.6698828 -0.38024176 2.6698828 9001.0000 -0.37974243 2.6693924 -0.37974243 2.6693924 9002.0000 -0.37924349 2.6689022 -0.37924349 2.6689022 9003.0000 -0.37874494 2.6684121 -0.37874494 2.6684121 9004.0000 -0.37824678 2.6679222 -0.37824678 2.6679222 9005.0000 -0.37774901 2.6674324 -0.37774901 2.6674324 9006.0000 -0.37725163 2.6669427 -0.37725163 2.6669427 9007.0000 -0.37675465 2.6664532 -0.37675465 2.6664532 9008.0000 -0.37625805 2.6659637 -0.37625805 2.6659637 9009.0000 -0.37576184 2.6654745 -0.37576184 2.6654745 9010.0000 -0.37526602 2.6649854 -0.37526602 2.6649854 9011.0000 -0.37477058 2.6644964 -0.37477058 2.6644964 9012.0000 -0.37427554 2.6640075 -0.37427554 2.6640075 9013.0000 -0.37378088 2.6635188 -0.37378088 2.6635188 9014.0000 -0.37328661 2.6630302 -0.37328661 2.6630302 9015.0000 -0.37279272 2.6625418 -0.37279272 2.6625418 9016.0000 -0.37229922 2.6620534 -0.37229922 2.6620534 9017.0000 -0.37180611 2.6615653 -0.37180611 2.6615653 9018.0000 -0.37131338 2.6610772 -0.37131338 2.6610772 9019.0000 -0.37082104 2.6605893 -0.37082104 2.6605893 9020.0000 -0.37032908 2.6601016 -0.37032908 2.6601016 9021.0000 -0.36983750 2.6596139 -0.36983750 2.6596139 9022.0000 -0.36934631 2.6591265 -0.36934631 2.6591265 9023.0000 -0.36885550 2.6586391 -0.36885550 2.6586391 9024.0000 -0.36836508 2.6581519 -0.36836508 2.6581519 9025.0000 -0.36787504 2.6576648 -0.36787504 2.6576648 9026.0000 -0.36738538 2.6571778 -0.36738538 2.6571778 9027.0000 -0.36689610 2.6566910 -0.36689610 2.6566910 9028.0000 -0.36640720 2.6562044 -0.36640720 2.6562044 9029.0000 -0.36591868 2.6557178 -0.36591868 2.6557178 9030.0000 -0.36543054 2.6552314 -0.36543054 2.6552314 9031.0000 -0.36494279 2.6547451 -0.36494279 2.6547451 9032.0000 -0.36445541 2.6542590 -0.36445541 2.6542590 9033.0000 -0.36396841 2.6537730 -0.36396841 2.6537730 9034.0000 -0.36348179 2.6532872 -0.36348179 2.6532872 9035.0000 -0.36299555 2.6528014 -0.36299555 2.6528014 9036.0000 -0.36250969 2.6523158 -0.36250969 2.6523158 9037.0000 -0.36202420 2.6518304 -0.36202420 2.6518304 9038.0000 -0.36153909 2.6513451 -0.36153909 2.6513451 9039.0000 -0.36105436 2.6508599 -0.36105436 2.6508599 9040.0000 -0.36057000 2.6503748 -0.36057000 2.6503748 9041.0000 -0.36008602 2.6498899 -0.36008602 2.6498899 9042.0000 -0.35960242 2.6494051 -0.35960242 2.6494051 9043.0000 -0.35911919 2.6489205 -0.35911919 2.6489205 9044.0000 -0.35863634 2.6484360 -0.35863634 2.6484360 9045.0000 -0.35815386 2.6479516 -0.35815386 2.6479516 9046.0000 -0.35767175 2.6474674 -0.35767175 2.6474674 9047.0000 -0.35719002 2.6469833 -0.35719002 2.6469833 9048.0000 -0.35670866 2.6464993 -0.35670866 2.6464993 9049.0000 -0.35622767 2.6460155 -0.35622767 2.6460155 9050.0000 -0.35574706 2.6455318 -0.35574706 2.6455318 9051.0000 -0.35526682 2.6450482 -0.35526682 2.6450482 9052.0000 -0.35478695 2.6445648 -0.35478695 2.6445648 9053.0000 -0.35430745 2.6440815 -0.35430745 2.6440815 9054.0000 -0.35382832 2.6435983 -0.35382832 2.6435983 9055.0000 -0.35334957 2.6431153 -0.35334957 2.6431153 9056.0000 -0.35287118 2.6426324 -0.35287118 2.6426324 9057.0000 -0.35239316 2.6421496 -0.35239316 2.6421496 9058.0000 -0.35191552 2.6416670 -0.35191552 2.6416670 9059.0000 -0.35143824 2.6411845 -0.35143824 2.6411845 9060.0000 -0.35096133 2.6407022 -0.35096133 2.6407022 9061.0000 -0.35048478 2.6402200 -0.35048478 2.6402200 9062.0000 -0.35000861 2.6397379 -0.35000861 2.6397379 9063.0000 -0.34953280 2.6392559 -0.34953280 2.6392559 9064.0000 -0.34905736 2.6387741 -0.34905736 2.6387741 9065.0000 -0.34858229 2.6382924 -0.34858229 2.6382924 9066.0000 -0.34810758 2.6378109 -0.34810758 2.6378109 9067.0000 -0.34763324 2.6373294 -0.34763324 2.6373294 9068.0000 -0.34715927 2.6368482 -0.34715927 2.6368482 9069.0000 -0.34668566 2.6363670 -0.34668566 2.6363670 9070.0000 -0.34621241 2.6358860 -0.34621241 2.6358860 9071.0000 -0.34573953 2.6354051 -0.34573953 2.6354051 9072.0000 -0.34526701 2.6349244 -0.34526701 2.6349244 9073.0000 -0.34479486 2.6344438 -0.34479486 2.6344438 9074.0000 -0.34432307 2.6339633 -0.34432307 2.6339633 9075.0000 -0.34385164 2.6334829 -0.34385164 2.6334829 9076.0000 -0.34338058 2.6330027 -0.34338058 2.6330027 9077.0000 -0.34290987 2.6325226 -0.34290987 2.6325226 9078.0000 -0.34243953 2.6320427 -0.34243953 2.6320427 9079.0000 -0.34196955 2.6315629 -0.34196955 2.6315629 9080.0000 -0.34149994 2.6310832 -0.34149994 2.6310832 9081.0000 -0.34103068 2.6306037 -0.34103068 2.6306037 9082.0000 -0.34056178 2.6301242 -0.34056178 2.6301242 9083.0000 -0.34009324 2.6296450 -0.34009324 2.6296450 9084.0000 -0.33962506 2.6291658 -0.33962506 2.6291658 9085.0000 -0.33915725 2.6286868 -0.33915725 2.6286868 9086.0000 -0.33868979 2.6282079 -0.33868979 2.6282079 9087.0000 -0.33822268 2.6277292 -0.33822268 2.6277292 9088.0000 -0.33775594 2.6272505 -0.33775594 2.6272505 9089.0000 -0.33728955 2.6267721 -0.33728955 2.6267721 9090.0000 -0.33682353 2.6262937 -0.33682353 2.6262937 9091.0000 -0.33635785 2.6258155 -0.33635785 2.6258155 9092.0000 -0.33589254 2.6253374 -0.33589254 2.6253374 9093.0000 -0.33542758 2.6248595 -0.33542758 2.6248595 9094.0000 -0.33496298 2.6243816 -0.33496298 2.6243816 9095.0000 -0.33449873 2.6239040 -0.33449873 2.6239040 9096.0000 -0.33403484 2.6234264 -0.33403484 2.6234264 9097.0000 -0.33357130 2.6229490 -0.33357130 2.6229490 9098.0000 -0.33310812 2.6224717 -0.33310812 2.6224717 9099.0000 -0.33264529 2.6219945 -0.33264529 2.6219945 9100.0000 -0.33218281 2.6215175 -0.33218281 2.6215175 ifeffit-1.2.11d/examples/diffkk/test.out0000644000175000017500000027331710771740461017160 0ustar segresegre# diffkk: no title lines specified #------------------------ # energy f1 f2 f1_cl f2_cl 8704.3770 -3.0836238 0.51103789 -3.0836238 0.51103789 8705.3770 -3.0871370 0.51093164 -3.0871370 0.51093164 8706.3770 -3.0906639 0.51082541 -3.0906639 0.51082541 8707.3770 -3.0942048 0.51071922 -3.0942048 0.51071922 8708.3770 -3.0977597 0.51061306 -3.0977597 0.51061306 8709.3770 -3.1013287 0.51050693 -3.1013287 0.51050693 8710.3770 -3.1049119 0.51040084 -3.1049119 0.51040084 8711.3770 -3.1085094 0.51029478 -3.1085094 0.51029478 8712.3770 -3.1121214 0.51018876 -3.1121214 0.51018876 8713.3770 -3.1157479 0.51008277 -3.1157479 0.51008277 8714.3770 -3.1193890 0.50997681 -3.1193890 0.50997681 8715.3770 -3.1230449 0.50987089 -3.1230449 0.50987089 8716.3770 -3.1267157 0.50976499 -3.1267157 0.50976499 8717.3770 -3.1304016 0.50965914 -3.1304016 0.50965914 8718.3770 -3.1341025 0.50955331 -3.1341025 0.50955331 8719.3770 -3.1378186 0.50944752 -3.1378186 0.50944752 8720.3770 -3.1415502 0.50934177 -3.1415502 0.50934177 8721.3770 -3.1452972 0.50923604 -3.1452972 0.50923604 8722.3770 -3.1490598 0.50913035 -3.1490598 0.50913035 8723.3770 -3.1528381 0.50902469 -3.1528381 0.50902469 8724.3770 -3.1566323 0.50891907 -3.1566323 0.50891907 8725.3770 -3.1604424 0.50881348 -3.1604424 0.50881348 8726.3770 -3.1642687 0.50870792 -3.1642687 0.50870792 8727.3770 -3.1681112 0.50860240 -3.1681112 0.50860240 8728.3770 -3.1719701 0.50849691 -3.1719701 0.50849691 8729.3770 -3.1758455 0.50839145 -3.1758455 0.50839145 8730.3770 -3.1797376 0.50828603 -3.1797376 0.50828603 8731.3770 -3.1836464 0.50818063 -3.1836464 0.50818063 8732.3770 -3.1875722 0.50807528 -3.1875722 0.50807528 8733.3770 -3.1915150 0.50796995 -3.1915150 0.50796995 8734.3770 -3.1954750 0.50786466 -3.1954750 0.50786466 8735.3770 -3.1994524 0.50775940 -3.1994524 0.50775940 8736.3770 -3.2034472 0.50765418 -3.2034472 0.50765418 8737.3770 -3.2074597 0.50754898 -3.2074597 0.50754898 8738.3770 -3.2114900 0.50744383 -3.2114900 0.50744383 8739.3770 -3.2155382 0.50733870 -3.2155382 0.50733870 8740.3770 -3.2196046 0.50723361 -3.2196046 0.50723361 8741.3770 -3.2236891 0.50712855 -3.2236891 0.50712855 8742.3770 -3.2277921 0.50702352 -3.2277921 0.50702352 8743.3770 -3.2319137 0.50691853 -3.2319137 0.50691853 8744.3770 -3.2360540 0.50681357 -3.2360540 0.50681357 8745.3770 -3.2402132 0.50670864 -3.2402132 0.50670864 8746.3770 -3.2443914 0.50660375 -3.2443914 0.50660375 8747.3770 -3.2485889 0.50649888 -3.2485889 0.50649888 8748.3770 -3.2528058 0.50639406 -3.2528058 0.50639406 8749.3770 -3.2570422 0.50628926 -3.2570422 0.50628926 8750.3770 -3.2612984 0.50618450 -3.2612984 0.50618450 8751.3770 -3.2655745 0.50607977 -3.2655745 0.50607977 8752.3770 -3.2698707 0.50597507 -3.2698707 0.50597507 8753.3770 -3.2741872 0.50587041 -3.2741872 0.50587041 8754.3770 -3.2785242 0.50576578 -3.2785242 0.50576578 8755.3770 -3.2828818 0.50566118 -3.2828818 0.50566118 8756.3770 -3.2872602 0.50555661 -3.2872602 0.50555661 8757.3770 -3.2916597 0.50545208 -3.2916597 0.50545208 8758.3770 -3.2960805 0.50534758 -3.2960805 0.50534758 8759.3770 -3.3005226 0.50524311 -3.3005226 0.50524311 8760.3770 -3.3049864 0.50513868 -3.3049864 0.50513868 8761.3770 -3.3094720 0.50503428 -3.3094720 0.50503428 8762.3770 -3.3139796 0.50492991 -3.3139796 0.50492991 8763.3770 -3.3185095 0.50482558 -3.3185095 0.50482558 8764.3770 -3.3230618 0.50472127 -3.3230618 0.50472127 8765.3770 -3.3276368 0.50461700 -3.3276368 0.50461700 8766.3770 -3.3322347 0.50451277 -3.3322347 0.50451277 8767.3770 -3.3368557 0.50440856 -3.3368557 0.50440856 8768.3770 -3.3415000 0.50430439 -3.3415000 0.50430439 8769.3770 -3.3461679 0.50420025 -3.3461679 0.50420025 8770.3770 -3.3508595 0.50409614 -3.3508595 0.50409614 8771.3770 -3.3555752 0.50399207 -3.3555752 0.50399207 8772.3770 -3.3603151 0.50388803 -3.3603151 0.50388803 8773.3770 -3.3650795 0.50378402 -3.3650795 0.50378402 8774.3770 -3.3698687 0.50368004 -3.3698687 0.50368004 8775.3770 -3.3746829 0.50357610 -3.3746829 0.50357610 8776.3770 -3.3795222 0.50347219 -3.3795222 0.50347219 8777.3770 -3.3843871 0.50336831 -3.3843871 0.50336831 8778.3770 -3.3892778 0.50326447 -3.3892778 0.50326447 8779.3770 -3.3941944 0.50316065 -3.3941944 0.50316065 8780.3770 -3.3991373 0.50305687 -3.3991373 0.50305687 8781.3770 -3.4041068 0.50295313 -3.4041068 0.50295313 8782.3770 -3.4091031 0.50284941 -3.4091031 0.50284941 8783.3770 -3.4141265 0.50274573 -3.4141265 0.50274573 8784.3770 -3.4191773 0.50264208 -3.4191773 0.50264208 8785.3770 -3.4242557 0.50253846 -3.4242557 0.50253846 8786.3770 -3.4293621 0.50243487 -3.4293621 0.50243487 8787.3770 -3.4344968 0.50233132 -3.4344968 0.50233132 8788.3770 -3.4396601 0.50222780 -3.4396601 0.50222780 8789.3770 -3.4448522 0.50212431 -3.4448522 0.50212431 8790.3770 -3.4500735 0.50202085 -3.4500735 0.50202085 8791.3770 -3.4553243 0.50191743 -3.4553243 0.50191743 8792.3770 -3.4606050 0.50181404 -3.4606050 0.50181404 8793.3770 -3.4659157 0.50171068 -3.4659157 0.50171068 8794.3770 -3.4712570 0.50160735 -3.4712570 0.50160735 8795.3770 -3.4766291 0.50150406 -3.4766291 0.50150406 8796.3770 -3.4820323 0.50140080 -3.4820323 0.50140080 8797.3770 -3.4874670 0.50129757 -3.4874670 0.50129757 8798.3770 -3.4929336 0.50119437 -3.4929336 0.50119437 8799.3770 -3.4984324 0.50109121 -3.4984324 0.50109121 8800.3770 -3.5039638 0.50098807 -3.5039638 0.50098807 8801.3770 -3.5095282 0.50088497 -3.5095282 0.50088497 8802.3770 -3.5151259 0.50078191 -3.5151259 0.50078191 8803.3770 -3.5207573 0.50067887 -3.5207573 0.50067887 8804.3770 -3.5264229 0.50057587 -3.5264229 0.50057587 8805.3770 -3.5321229 0.50047289 -3.5321229 0.50047289 8806.3770 -3.5378579 0.50036996 -3.5378579 0.50036996 8807.3770 -3.5436282 0.50026705 -3.5436282 0.50026705 8808.3770 -3.5494343 0.50016417 -3.5494343 0.50016417 8809.3770 -3.5552766 0.50006133 -3.5552766 0.50006133 8810.3770 -3.5611555 0.49995852 -3.5611555 0.49995852 8811.3770 -3.5670714 0.49985574 -3.5670714 0.49985574 8812.3770 -3.5730248 0.49975299 -3.5730248 0.49975299 8813.3770 -3.5790163 0.49965028 -3.5790163 0.49965028 8814.3770 -3.5850461 0.49954760 -3.5850461 0.49954760 8815.3770 -3.5911149 0.49944495 -3.5911149 0.49944495 8816.3770 -3.5972231 0.49934233 -3.5972231 0.49934233 8817.3770 -3.6033711 0.49923974 -3.6033711 0.49923974 8818.3770 -3.6095596 0.49913719 -3.6095596 0.49913719 8819.3770 -3.6157890 0.49903467 -3.6157890 0.49903467 8820.3770 -3.6220598 0.49893218 -3.6220598 0.49893218 8821.3770 -3.6283726 0.49882972 -3.6283726 0.49882972 8822.3770 -3.6347279 0.49872729 -3.6347279 0.49872729 8823.3770 -3.6411263 0.49862490 -3.6411263 0.49862490 8824.3770 -3.6475682 0.49852253 -3.6475682 0.49852253 8825.3770 -3.6540544 0.49842020 -3.6540544 0.49842020 8826.3770 -3.6605854 0.49831790 -3.6605854 0.49831790 8827.3770 -3.6671618 0.49821564 -3.6671618 0.49821564 8828.3770 -3.6737842 0.49811340 -3.6737842 0.49811340 8829.3770 -3.6804532 0.49801120 -3.6804532 0.49801120 8830.3770 -3.6871694 0.49790903 -3.6871694 0.49790903 8831.3770 -3.6939336 0.49780689 -3.6939336 0.49780689 8832.3770 -3.7007463 0.49770478 -3.7007463 0.49770478 8833.3770 -3.7076082 0.49760271 -3.7076082 0.49760271 8834.3770 -3.7145201 0.49750066 -3.7145201 0.49750066 8835.3770 -3.7214827 0.49739865 -3.7214827 0.49739865 8836.3770 -3.7284965 0.49729667 -3.7284965 0.49729667 8837.3770 -3.7355625 0.49719472 -3.7355625 0.49719472 8838.3770 -3.7426813 0.49709280 -3.7426813 0.49709280 8839.3770 -3.7498537 0.49699092 -3.7498537 0.49699092 8840.3770 -3.7570805 0.49688907 -3.7570805 0.49688907 8841.3770 -3.7643624 0.49678724 -3.7643624 0.49678724 8842.3770 -3.7717004 0.49668545 -3.7717004 0.49668545 8843.3770 -3.7790952 0.49658370 -3.7790952 0.49658370 8844.3770 -3.7865476 0.49648197 -3.7865476 0.49648197 8845.3770 -3.7940587 0.49638028 -3.7940587 0.49638028 8846.3770 -3.8016292 0.49627861 -3.8016292 0.49627861 8847.3770 -3.8092600 0.49617698 -3.8092600 0.49617698 8848.3770 -3.8169521 0.49607538 -3.8169521 0.49607538 8849.3770 -3.8247065 0.49597381 -3.8247065 0.49597381 8850.3770 -3.8325242 0.49587227 -3.8325242 0.49587227 8851.3770 -3.8404060 0.49577077 -3.8404060 0.49577077 8852.3770 -3.8483531 0.49566930 -3.8483531 0.49566930 8853.3770 -3.8563665 0.49556785 -3.8563665 0.49556785 8854.3770 -3.8644473 0.49546644 -3.8644473 0.49546644 8855.3770 -3.8725966 0.49536506 -3.8725966 0.49536506 8856.3770 -3.8808155 0.49526372 -3.8808155 0.49526372 8857.3770 -3.8891051 0.49516240 -3.8891051 0.49516240 8858.3770 -3.8974667 0.49506112 -3.8974667 0.49506112 8859.3770 -3.9059014 0.49495986 -3.9059014 0.49495986 8860.3770 -3.9144106 0.49485864 -3.9144106 0.49485864 8861.3770 -3.9229954 0.49475745 -3.9229954 0.49475745 8862.3770 -3.9316572 0.49465629 -3.9316572 0.49465629 8863.3770 -3.9403973 0.49455516 -3.9403973 0.49455516 8864.3770 -3.9492171 0.49445407 -3.9492171 0.49445407 8865.3770 -3.9581181 0.49435300 -3.9581181 0.49435300 8866.3770 -3.9671016 0.49425197 -3.9671016 0.49425197 8867.3770 -3.9761692 0.49415097 -3.9761692 0.49415097 8868.3770 -3.9853224 0.49405000 -3.9853224 0.49405000 8869.3770 -3.9945628 0.49394906 -3.9945628 0.49394906 8870.3770 -4.0038919 0.49384815 -4.0038919 0.49384815 8871.3770 -4.0133115 0.49374727 -4.0133115 0.49374727 8872.3770 -4.0228232 0.49364643 -4.0228232 0.49364643 8873.3770 -4.0324289 0.49354562 -4.0324289 0.49354562 8874.3770 -4.0421303 0.49344483 -4.0421303 0.49344483 8875.3770 -4.0519293 0.49334408 -4.0519293 0.49334408 8876.3770 -4.0618277 0.49324336 -4.0618277 0.49324336 8877.3770 -4.0718276 0.49314267 -4.0718276 0.49314267 8878.3770 -4.0819310 0.49304201 -4.0819310 0.49304201 8879.3770 -4.0921400 0.49294139 -4.0921400 0.49294139 8880.3770 -4.1024568 0.49284079 -4.1024568 0.49284079 8881.3770 -4.1128835 0.49274023 -4.1128835 0.49274023 8882.3770 -4.1234224 0.49263970 -4.1234224 0.49263970 8883.3770 -4.1340760 0.49253919 -4.1340760 0.49253919 8884.3770 -4.1448466 0.49243872 -4.1448466 0.49243872 8885.3770 -4.1557367 0.49233828 -4.1557367 0.49233828 8886.3770 -4.1667490 0.49223787 -4.1667490 0.49223787 8887.3770 -4.1778861 0.49213750 -4.1778861 0.49213750 8888.3770 -4.1891509 0.49203715 -4.1891509 0.49203715 8889.3770 -4.2005460 0.49193684 -4.2005460 0.49193684 8890.3770 -4.2120746 0.49183655 -4.2120746 0.49183655 8891.3770 -4.2237397 0.49173630 -4.2237397 0.49173630 8892.3770 -4.2355444 0.49163608 -4.2355444 0.49163608 8893.3770 -4.2474921 0.49153589 -4.2474921 0.49153589 8894.3770 -4.2595860 0.49143573 -4.2595860 0.49143573 8895.3770 -4.2718297 0.49133560 -4.2718297 0.49133560 8896.3770 -4.2842269 0.49123550 -4.2842269 0.49123550 8897.3770 -4.2967813 0.49113543 -4.2967813 0.49113543 8898.3770 -4.3094969 0.49103540 -4.3094969 0.49103540 8899.3770 -4.3223776 0.49093539 -4.3223776 0.49093539 8900.3770 -4.3354279 0.49083484 -4.3354279 0.49083484 8901.3770 -4.3486523 0.49073337 -4.3486523 0.49073337 8902.3770 -4.3620550 0.49063194 -4.3620550 0.49063194 8903.3770 -4.3756407 0.49053053 -4.3756407 0.49053053 8904.3770 -4.5129448 0.58834651 -4.3894144 0.49042916 8905.3770 -4.4776582 0.58760963 -4.4033812 0.49032782 8906.3770 -4.4755449 0.58687485 -4.4175465 0.49022652 8907.3770 -4.4830182 0.58614218 -4.4319157 0.49012524 8908.3770 -4.4810168 0.58541160 -4.4464946 0.49002400 8909.3770 -4.4977779 0.58468313 -4.4612893 0.48992279 8910.3770 -4.4958320 0.58395676 -4.4763062 0.48982161 8911.3770 -4.5171263 0.58323249 -4.4915516 0.48972046 8912.3770 -4.5152109 0.58251032 -4.5070326 0.48961935 8913.3770 -4.5394864 0.58179026 -4.5227563 0.48951826 8914.3770 -4.5375877 0.58107343 -4.5387302 0.48941721 8915.3770 -4.5641701 0.58035961 -4.5549621 0.48931619 8916.3770 -4.5622759 0.57964790 -4.5714604 0.48921520 8917.3770 -4.5908344 0.57893829 -4.5882336 0.48911425 8918.3770 -4.5889389 0.57823077 -4.6052909 0.48901332 8919.3770 -4.6193095 0.57752537 -4.6226417 0.48891243 8920.3770 -4.6174098 0.57682206 -4.6402960 0.48881157 8921.3770 -4.6495228 0.57612086 -4.6582644 0.48871074 8922.3770 -4.6476223 0.57542175 -4.6765579 0.48860995 8923.3770 -4.6814887 0.57472475 -4.6951882 0.48850918 8924.3770 -4.6796303 0.57409094 -4.7141677 0.48840845 8925.3770 -4.7152167 0.57351263 -4.7335092 0.48830775 8926.3770 -4.7132505 0.57293903 -4.7532266 0.48820708 8927.3770 -4.7505642 0.57236757 -4.7733343 0.48810644 8928.3770 -4.7485313 0.57179823 -4.7938478 0.48800584 8929.3770 -4.7876832 0.57123102 -4.8147832 0.48790527 8930.3770 -4.7855930 0.57066594 -4.8361580 0.48780472 8931.3770 -4.8267066 0.57010299 -4.8579905 0.48770421 8932.3770 -4.8245718 0.56954217 -4.8803002 0.48760373 8933.3770 -4.8678660 0.56898348 -4.9031081 0.48750329 8934.3770 -4.8657751 0.56864954 -4.9264362 0.48740287 8935.3770 -4.9111251 0.56834865 -4.9503083 0.48730249 8936.3770 -4.9086781 0.56808371 -4.9747499 0.48720214 8937.3770 -4.9561553 0.56760957 -4.9997881 0.48710182 8938.3770 -4.9537070 0.56703417 -5.0254521 0.48700153 8939.3770 -5.0040240 0.56664307 -5.0517734 0.48690127 8940.3770 -5.0013726 0.56616288 -5.0787856 0.48680105 8941.3770 -5.0546227 0.56562267 -5.1065254 0.48670085 8942.3770 -5.0521483 0.56533562 -5.1350321 0.48660069 8943.3770 -5.1084076 0.56526719 -5.1643485 0.48650056 8944.3770 -5.1052631 0.56500879 -5.1945209 0.48640046 8945.3770 -5.1648539 0.56443782 -5.2255998 0.48630039 8946.3770 -5.1620495 0.56389236 -5.2576403 0.48620036 8947.3770 -5.2260391 0.56377903 -5.2907026 0.48610035 8948.3770 -5.2227957 0.56385271 -5.3248528 0.48600038 8949.3770 -5.2907465 0.56367519 -5.3601636 0.48590044 8950.3770 -5.2874627 0.56362728 -5.3967152 0.48580053 8951.3770 -5.3604265 0.56390600 -5.4345963 0.48570065 8952.3770 -5.3563836 0.56388564 -5.4739056 0.48560080 8953.3770 -5.4352190 0.56382598 -5.5147532 0.48550098 8954.3770 -5.4311902 0.56410063 -5.5572623 0.48540120 8955.3770 -5.5165774 0.56441235 -5.6015715 0.48530145 8956.3770 -5.5120706 0.56481868 -5.6478376 0.48520172 8957.3770 -5.6053560 0.56537304 -5.6962388 0.48510203 8958.3770 -5.6003023 0.56612199 -5.7469785 0.48500238 8959.3770 -5.7028405 0.56694114 -5.8002909 0.48490275 8960.3770 -5.6972020 0.56784777 -5.8564471 0.48480315 8961.3770 -5.8114135 0.56912995 -5.9157633 0.48470359 8962.3770 -5.8049452 0.57068981 -5.9786116 0.48460405 8963.3770 -5.9334001 0.57249556 -6.0454338 0.48450455 8964.3770 -5.9260230 0.57468716 -6.1167601 0.48440508 8965.3770 -6.0731445 0.57730807 -6.1932345 0.48430564 8966.3770 -6.0648569 0.58090636 -6.2756494 0.48420623 8967.3770 -6.2365176 0.58526305 -6.3649955 0.48410685 8968.3770 -6.2267573 0.59053672 -6.4625339 0.48400751 8969.3770 -6.4340700 0.59743801 -6.5699042 0.48390819 8970.3770 -6.4232446 0.60720576 -6.6892935 0.48380891 8971.3770 -6.6841490 0.61927696 -6.8237101 0.48370966 8972.3770 -6.6758160 0.63772377 -6.9774552 0.48361043 8973.3770 -7.0331907 0.66843863 -7.1569888 0.48351124 8974.3770 -7.0353183 0.72022835 -7.3726704 0.48341208 8975.3770 -7.6121901 0.84099794 -7.6427083 0.48331296 8976.3770 -7.5742181 1.1905860 -8.0038629 0.48321386 8977.3770 -8.1684190 1.7302285 -8.5504115 0.48311479 8978.3770 -6.8853730 2.0887023 -9.7088871 0.48301576 8979.3770 -6.7518918 2.1487795 -9.8248686 3.9021488 8980.3770 -7.6295745 2.1035570 -8.5926381 3.9012807 8981.3770 -7.1325029 2.1183255 -8.0282363 3.9004131 8982.3770 -7.5652459 2.2300425 -7.6576168 3.8995459 8983.3770 -7.3311848 2.3643911 -7.3810556 3.8986791 8984.3770 -7.5916818 2.5028194 -7.1602615 3.8978127 8985.3770 -7.4680052 2.6685593 -6.9764195 3.8969467 8986.3770 -7.6777564 2.9021256 -6.8188778 3.8960812 8987.3770 -7.5168610 3.1950849 -6.6810166 3.8952160 8988.3770 -7.5291391 3.4757608 -6.5584393 3.8943513 8989.3770 -7.2502998 3.7453453 -6.4480763 3.8934869 8990.3770 -7.0767985 3.9727358 -6.3476992 3.8926230 8991.3770 -6.6513440 4.0652688 -6.2556393 3.8917595 8992.3770 -6.4483154 4.0194633 -6.1706144 3.8908964 8993.3770 -6.1889913 3.9090105 -6.0916177 3.8900337 8994.3770 -6.1743603 3.8028697 -6.0178445 3.8891714 8995.3770 -6.0835463 3.7310941 -5.9486415 3.8883096 8996.3770 -6.1668596 3.7118805 -5.8834705 3.8874481 8997.3770 -6.1381961 3.7674306 -5.8218835 3.8865870 8998.3770 -6.1747432 3.8986598 -5.7635034 3.8857264 8999.3770 -6.0059023 4.0380849 -5.7080094 3.8848662 9000.3770 -5.8708527 4.1263845 -5.6551268 3.8840063 9001.3770 -5.6088097 4.1239701 -5.6046186 3.8831469 9002.3770 -5.4851481 4.0445118 -5.5562783 3.8822879 9003.3770 -5.3308612 3.9352057 -5.5099256 3.8814293 9004.3770 -5.3192913 3.8312225 -5.4654017 3.8805711 9005.3770 -5.2514811 3.7468532 -5.4225661 3.8797133 9006.3770 -5.2813235 3.6753573 -5.3812940 3.8788560 9007.3770 -5.2509369 3.6102250 -5.3414739 3.8779990 9008.3770 -5.3220163 3.5649967 -5.3030060 3.8771424 9009.3770 -5.3273109 3.5515175 -5.2658002 3.8762863 9010.3770 -5.3952938 3.5629527 -5.2297753 3.8754305 9011.3770 -5.3829578 3.5836101 -5.1948578 3.8745752 9012.3770 -5.4353867 3.6133551 -5.1609807 3.8737202 9013.3770 -5.4157032 3.6542562 -5.1280830 3.8728657 9014.3770 -5.4520517 3.7050247 -5.0961089 3.8720115 9015.3770 -5.4137353 3.7652470 -5.0650073 3.8711578 9016.3770 -5.4199756 3.8272253 -5.0347311 3.8703045 9017.3770 -5.3579038 3.8860611 -5.0052371 3.8694516 9018.3770 -5.3453605 3.9474433 -4.9764853 3.8685991 9019.3770 -5.2614033 4.0102254 -4.9484388 3.8677470 9020.3770 -5.2151478 4.0664062 -4.9210633 3.8668952 9021.3770 -5.1015529 4.1115359 -4.8943269 3.8660439 9022.3770 -5.0257807 4.1420451 -4.8682001 3.8651930 9023.3770 -4.8874522 4.1469629 -4.8426552 3.8643425 9024.3770 -4.8035241 4.1196910 -4.8176666 3.8634925 9025.3770 -4.6894150 4.0688382 -4.7932102 3.8626428 9026.3770 -4.6470136 4.0053902 -4.7692634 3.8617935 9027.3770 -4.5794455 3.9417131 -4.7458052 3.8609446 9028.3770 -4.5722842 3.8784577 -4.7228156 3.8600961 9029.3770 -4.5388511 3.8177570 -4.7002760 3.8592480 9030.3770 -4.5643191 3.7680486 -4.6781689 3.8584003 9031.3770 -4.5546980 3.7311438 -4.6564777 3.8575530 9032.3770 -4.5906429 3.7049693 -4.6351869 3.8567062 9033.3770 -4.5884080 3.6880590 -4.6142816 3.8558597 9034.3770 -4.6285182 3.6829885 -4.5937480 3.8550136 9035.3770 -4.6244903 3.6902208 -4.5735729 3.8541679 9036.3770 -4.6513503 3.7049063 -4.5537437 3.8533226 9037.3770 -4.6310677 3.7234710 -4.5342486 3.8524777 9038.3770 -4.6390785 3.7419771 -4.5150764 3.8516333 9039.3770 -4.6017858 3.7559413 -4.4962164 3.8507892 9040.3770 -4.5969288 3.7602663 -4.4776584 3.8499455 9041.3770 -4.5610700 3.7551867 -4.4593927 3.8491022 9042.3770 -4.5697033 3.7473594 -4.4414101 3.8482593 9043.3770 -4.5523255 3.7434616 -4.4237019 3.8474168 9044.3770 -4.5725863 3.7476189 -4.4062596 3.8465747 9045.3770 -4.5591800 3.7594638 -4.3890752 3.8457330 9046.3770 -4.5737792 3.7802411 -4.3721412 3.8448917 9047.3770 -4.5448267 3.8032153 -4.3554502 3.8440508 9048.3770 -4.5395535 3.8211324 -4.3389952 3.8432103 9049.3770 -4.4998517 3.8296266 -4.3227696 3.8423702 9050.3770 -4.4963087 3.8309035 -4.3067669 3.8415305 9051.3770 -4.4691547 3.8302768 -4.2909810 3.8406912 9052.3770 -4.4789025 3.8326583 -4.2754059 3.8398523 9053.3770 -4.4625296 3.8404791 -4.2600361 3.8390137 9054.3770 -4.4763702 3.8567226 -4.2448662 3.8381756 9055.3770 -4.4554569 3.8792085 -4.2298908 3.8373379 9056.3770 -4.4573251 3.9041689 -4.2151051 3.8365005 9057.3770 -4.4236923 3.9283461 -4.2005041 3.8356636 9058.3770 -4.4145450 3.9483807 -4.1860833 3.8348270 9059.3770 -4.3768626 3.9648369 -4.1718382 3.8339909 9060.3770 -4.3680540 3.9794414 -4.1577644 3.8331551 9061.3770 -4.3329562 3.9944149 -4.1438579 3.8323197 9062.3770 -4.3251145 4.0106144 -4.1301147 3.8314848 9063.3770 -4.2899290 4.0289145 -4.1165309 3.8306502 9064.3770 -4.2794450 4.0500880 -4.1031027 3.8298160 9065.3770 -4.2383359 4.0744150 -4.0898267 3.8289822 9066.3770 -4.2169680 4.1000583 -4.0766994 3.8281488 9067.3770 -4.1611632 4.1253725 -4.0637173 3.8273158 9068.3770 -4.1226027 4.1445553 -4.0508774 3.8264831 9069.3770 -4.0529872 4.1574651 -4.0381764 3.8256509 9070.3770 -4.0032438 4.1590851 -4.0256113 3.8248191 9071.3770 -3.9304093 4.1510072 -4.0131793 3.8239876 9072.3770 -3.8823384 4.1339510 -4.0008774 3.8231566 9073.3770 -3.8131994 4.1073601 -3.9887030 3.8223259 9074.3770 -3.7732606 4.0685210 -3.9766533 3.8214956 9075.3770 -3.7247823 4.0222993 -3.9647259 3.8206657 9076.3770 -3.7109704 3.9779154 -3.9529182 3.8198362 9077.3770 -3.6822595 3.9359036 -3.9412279 3.8190071 9078.3770 -3.6825057 3.8970818 -3.9296525 3.8181784 9079.3770 -3.6656193 3.8621228 -3.9181898 3.8173501 9080.3770 -3.6740550 3.8312801 -3.9068376 3.8165222 9081.3770 -3.6629883 3.8037930 -3.8955938 3.8156946 9082.3770 -3.6761994 3.7790197 -3.8844562 3.8148675 9083.3770 -3.6714039 3.7595747 -3.8734229 3.8140407 9084.3770 -3.6864173 3.7472205 -3.8624920 3.8132143 9085.3770 -3.6761578 3.7388451 -3.8516614 3.8123883 9086.3770 -3.6807708 3.7320166 -3.8409293 3.8115627 9087.3770 -3.6581608 3.7215049 -3.8302940 3.8107375 9088.3770 -3.6542868 3.7025492 -3.8197537 3.8099127 9089.3770 -3.6340841 3.6768313 -3.8093067 3.8090882 9090.3770 -3.6397315 3.6457312 -3.7989513 3.8082642 9091.3770 -3.6348494 3.6125586 -3.7886859 3.8074405 9092.3770 -3.6576538 3.5805781 -3.7785090 3.8066172 9093.3770 -3.6706180 3.5520925 -3.7684189 3.8057943 9094.3770 -3.7089936 3.5316911 -3.7584143 3.8049718 9095.3770 -3.7326376 3.5185902 -3.7484937 3.8041497 9096.3770 -3.7769185 3.5158922 -3.7386556 3.8033279 9097.3770 -3.8004138 3.5207777 -3.7288987 3.8025066 9098.3770 -3.8404737 3.5333372 -3.7192216 3.8016856 9099.3770 -3.8571384 3.5517064 -3.7096230 3.8008650 9100.3770 -3.8879763 3.5740734 -3.7001017 3.8000448 9101.3770 -3.8964286 3.5997232 -3.6906564 3.7992250 9102.3770 -3.9192569 3.6295189 -3.6812859 3.7984055 9103.3770 -3.9166455 3.6636608 -3.6719889 3.7975865 9104.3770 -3.9232255 3.6966443 -3.6627644 3.7967678 9105.3770 -3.9074174 3.7271126 -3.6536111 3.7959495 9106.3770 -3.9044216 3.7554916 -3.6445281 3.7951316 9107.3770 -3.8805697 3.7813757 -3.6355141 3.7943141 9108.3770 -3.8687249 3.8043616 -3.6265682 3.7934970 9109.3770 -3.8372053 3.8207563 -3.6176894 3.7926802 9110.3770 -3.8219248 3.8327874 -3.6088766 3.7918639 9111.3770 -3.7893161 3.8379594 -3.6001287 3.7910479 9112.3770 -3.7774433 3.8375719 -3.5914450 3.7902323 9113.3770 -3.7526927 3.8337506 -3.5828244 3.7894170 9114.3770 -3.7501233 3.8261462 -3.5742660 3.7886022 9115.3770 -3.7390892 3.8188915 -3.5657689 3.7877877 9116.3770 -3.7493986 3.8137104 -3.5573323 3.7869736 9117.3770 -3.7515700 3.8114528 -3.5489552 3.7861599 9118.3770 -3.7741202 3.8179591 -3.5406369 3.7853466 9119.3770 -3.7843112 3.8303325 -3.5323764 3.7845337 9120.3770 -3.8137278 3.8572693 -3.5241731 3.7837211 9121.3770 -3.8185261 3.8972364 -3.5160260 3.7829089 9122.3770 -3.8307970 3.9441887 -3.5079345 3.7820971 9123.3770 -3.8160463 4.0001925 -3.4998978 3.7812857 9124.3770 -3.7986200 4.0576288 -3.4919150 3.7804746 9125.3770 -3.7535583 4.1085003 -3.4839856 3.7796640 9126.3770 -3.7124350 4.1552449 -3.4761088 3.7788537 9127.3770 -3.6441394 4.1888357 -3.4682839 3.7780438 9128.3770 -3.5904584 4.2092809 -3.4605102 3.7772342 9129.3770 -3.5199152 4.2210632 -3.4527870 3.7764251 9130.3770 -3.4663055 4.2209513 -3.4451137 3.7756163 9131.3770 -3.4031875 4.2148873 -3.4374896 3.7748079 9132.3770 -3.3577764 4.2035221 -3.4299142 3.7739999 9133.3770 -3.3030416 4.1882948 -3.4223867 3.7731923 9134.3770 -3.2661233 4.1720658 -3.4149066 3.7723850 9135.3770 -3.2167798 4.1546016 -3.4074733 3.7715781 9136.3770 -3.1821803 4.1358786 -3.4000862 3.7707716 9137.3770 -3.1340542 4.1140445 -3.3927448 3.7699654 9138.3770 -3.1008116 4.0902722 -3.3854483 3.7691597 9139.3770 -3.0529480 4.0618793 -3.3781964 3.7683543 9140.3770 -3.0220783 4.0285864 -3.3709885 3.7675493 9141.3770 -2.9786625 3.9917353 -3.3638240 3.7667446 9142.3770 -2.9523501 3.9473646 -3.3567024 3.7659404 9143.3770 -2.9207257 3.8985989 -3.3496232 3.7651365 9144.3770 -2.9094322 3.8493570 -3.3425859 3.7643330 9145.3770 -2.8898536 3.7996431 -3.3355900 3.7635298 9146.3770 -2.8884443 3.7493904 -3.3286350 3.7627271 9147.3770 -2.8787432 3.6978095 -3.3217205 3.7619247 9148.3770 -2.8888077 3.6454491 -3.3148459 3.7611226 9149.3770 -2.8923909 3.5936493 -3.3080108 3.7603210 9150.3770 -2.9157710 3.5424446 -3.3012148 3.7595197 9151.3770 -2.9354425 3.4930594 -3.2944574 3.7587188 9152.3770 -2.9757303 3.4506068 -3.2877382 3.7579183 9153.3770 -3.0076507 3.4126953 -3.2810567 3.7571181 9154.3770 -3.0604438 3.3820121 -3.2744125 3.7563184 9155.3770 -3.1018152 3.3609368 -3.2678053 3.7555190 9156.3770 -3.1603100 3.3441558 -3.2612345 3.7547199 9157.3770 -3.2112716 3.3412648 -3.2546998 3.7539213 9158.3770 -3.2694472 3.3489339 -3.2482009 3.7531230 9159.3770 -3.3153505 3.3635156 -3.2417372 3.7523250 9160.3770 -3.3692832 3.3915775 -3.2353085 3.7515275 9161.3770 -3.4009468 3.4260575 -3.2289144 3.7507303 9162.3770 -3.4386167 3.4653452 -3.2225544 3.7499335 9163.3770 -3.4550085 3.5094509 -3.2162283 3.7491370 9164.3770 -3.4750469 3.5545881 -3.2099356 3.7483410 9165.3770 -3.4758306 3.6010753 -3.2036760 3.7475453 9166.3770 -3.4794212 3.6484642 -3.1974492 3.7467499 9167.3770 -3.4610169 3.6921951 -3.1912549 3.7459550 9168.3770 -3.4495627 3.7299627 -3.1850926 3.7451604 9169.3770 -3.4215896 3.7653095 -3.1789621 3.7443661 9170.3770 -3.3989172 3.7940086 -3.1728630 3.7435723 9171.3770 -3.3645590 3.8159235 -3.1667950 3.7427788 9172.3770 -3.3393375 3.8354509 -3.1607579 3.7419857 9173.3770 -3.2995981 3.8471182 -3.1547512 3.7411929 9174.3770 -3.2741480 3.8532065 -3.1487748 3.7404005 9175.3770 -3.2366539 3.8557804 -3.1428282 3.7396085 9176.3770 -3.2123321 3.8510034 -3.1369112 3.7388169 9177.3770 -3.1821035 3.8425587 -3.1310235 3.7380256 9178.3770 -3.1666361 3.8325450 -3.1251648 3.7372347 9179.3770 -3.1436273 3.8204814 -3.1193348 3.7364441 9180.3770 -3.1366778 3.8077927 -3.1135333 3.7356539 9181.3770 -3.1225886 3.7972085 -3.1077599 3.7348641 9182.3770 -3.1206675 3.7885821 -3.1020145 3.7340747 9183.3770 -3.1095537 3.7805193 -3.0962967 3.7332856 9184.3770 -3.1109766 3.7752280 -3.0906062 3.7324969 9185.3770 -3.1000909 3.7719618 -3.0849429 3.7317085 9186.3770 -3.0987917 3.7683946 -3.0793064 3.7309205 9187.3770 -3.0864905 3.7640402 -3.0736965 3.7301329 9188.3770 -3.0846288 3.7592428 -3.0681130 3.7293456 9189.3770 -3.0711546 3.7520645 -3.0625556 3.7285588 9190.3770 -3.0706776 3.7408979 -3.0570241 3.7277722 9191.3770 -3.0646206 3.7280616 -3.0515182 3.7269861 9192.3770 -3.0741525 3.7164586 -3.0460377 3.7262003 9193.3770 -3.0761544 3.7064728 -3.0405824 3.7254148 9194.3770 -3.0948255 3.6969824 -3.0351520 3.7246297 9195.3770 -3.1101582 3.6964411 -3.0297463 3.7238450 9196.3770 -3.1323923 3.7048555 -3.0243651 3.7230607 9197.3770 -3.1443731 3.7145833 -3.0190082 3.7222767 9198.3770 -3.1693751 3.7345207 -3.0136753 3.7214931 9199.3770 -3.1752947 3.7641603 -3.0083663 3.7207098 9200.3770 -3.1839605 3.7950772 -3.0030809 3.7199269 9201.3770 -3.1772265 3.8293423 -2.9978190 3.7191444 9202.3770 -3.1721479 3.8662293 -2.9925802 3.7183622 9203.3770 -3.1462663 3.9023889 -2.9873645 3.7175804 9204.3770 -3.1218378 3.9307586 -2.9821716 3.7167989 9205.3770 -3.0866726 3.9532189 -2.9770013 3.7160178 9206.3770 -3.0564859 3.9735421 -2.9718535 3.7152371 9207.3770 -3.0124206 3.9843247 -2.9667278 3.7144567 9208.3770 -2.9823335 3.9887089 -2.9616243 3.7136767 9209.3770 -2.9433271 3.9920490 -2.9565426 3.7128971 9210.3770 -2.9136189 3.9913209 -2.9514825 3.7121178 9211.3770 -2.8763823 3.9879543 -2.9464440 3.7113389 9212.3770 -2.8484321 3.9834415 -2.9414268 3.7105603 9213.3770 -2.8106126 3.9749449 -2.9364307 3.7097821 9214.3770 -2.7845302 3.9639471 -2.9314556 3.7090042 9215.3770 -2.7486425 3.9515415 -2.9265013 3.7082267 9216.3770 -2.7224988 3.9346929 -2.9215676 3.7074496 9217.3770 -2.6898729 3.9151407 -2.9166543 3.7066728 9218.3770 -2.6667985 3.8938825 -2.9117614 3.7058964 9219.3770 -2.6356972 3.8667944 -2.9068885 3.7051204 9220.3770 -2.6199440 3.8360618 -2.9020356 3.7043446 9221.3770 -2.5993207 3.8050281 -2.8972025 3.7035693 9222.3770 -2.5914353 3.7728799 -2.8923891 3.7027943 9223.3770 -2.5786502 3.7400144 -2.8875951 3.7020197 9224.3770 -2.5794447 3.7073785 -2.8828205 3.7012454 9225.3770 -2.5750509 3.6759724 -2.8780650 3.7004715 9226.3770 -2.5827134 3.6454182 -2.8733286 3.6996979 9227.3770 -2.5862934 3.6154130 -2.8686110 3.6989247 9228.3770 -2.6034913 3.5903846 -2.8639122 3.6981519 9229.3770 -2.6111778 3.5690760 -2.8592320 3.6973794 9230.3770 -2.6299632 3.5481231 -2.8545702 3.6966073 9231.3770 -2.6428569 3.5315831 -2.8499267 3.6958355 9232.3770 -2.6632649 3.5184315 -2.8453013 3.6950641 9233.3770 -2.6763316 3.5052790 -2.8406940 3.6942930 9234.3770 -2.7013285 3.4970565 -2.8361045 3.6935223 9235.3770 -2.7149425 3.4933785 -2.8315328 3.6927519 9236.3770 -2.7371471 3.4901029 -2.8269787 3.6919819 9237.3770 -2.7520439 3.4915174 -2.8224421 3.6912123 9238.3770 -2.7719743 3.4977521 -2.8179228 3.6904430 9239.3770 -2.7796063 3.5047803 -2.8134208 3.6896740 9240.3770 -2.7940455 3.5127932 -2.8089358 3.6889055 9241.3770 -2.7972603 3.5221318 -2.8044678 3.6881372 9242.3770 -2.8057156 3.5318977 -2.8000166 3.6873693 9243.3770 -2.8022144 3.5401857 -2.7955822 3.6866018 9244.3770 -2.8060477 3.5456525 -2.7911643 3.6858346 9245.3770 -2.8019023 3.5498016 -2.7867629 3.6850678 9246.3770 -2.8058356 3.5534885 -2.7823779 3.6843013 9247.3770 -2.8012278 3.5557208 -2.7780091 3.6835352 9248.3770 -2.8061463 3.5570712 -2.7736564 3.6827695 9249.3770 -2.8040023 3.5585895 -2.7693197 3.6820040 9250.3770 -2.8108675 3.5614602 -2.7649989 3.6812390 9251.3770 -2.8086062 3.5653322 -2.7606939 3.6804743 9252.3770 -2.8138537 3.5692071 -2.7564045 3.6797099 9253.3770 -2.8104681 3.5726688 -2.7521307 3.6789459 9254.3770 -2.8155758 3.5757635 -2.7478724 3.6781822 9255.3770 -2.8130474 3.5788384 -2.7436293 3.6774189 9256.3770 -2.8193673 3.5826178 -2.7394015 3.6766560 9257.3770 -2.8173598 3.5872712 -2.7351888 3.6758934 9258.3770 -2.8235152 3.5921693 -2.7309911 3.6751311 9259.3770 -2.8222410 3.5980157 -2.7268083 3.6743692 9260.3770 -2.8287166 3.6059165 -2.7226403 3.6736076 9261.3770 -2.8254059 3.6148690 -2.7184871 3.6728464 9262.3770 -2.8292256 3.6239524 -2.7143484 3.6720856 9263.3770 -2.8241937 3.6338997 -2.7102242 3.6713251 9264.3770 -2.8255524 3.6444726 -2.7061145 3.6705649 9265.3770 -2.8170206 3.6550497 -2.7020190 3.6698051 9266.3770 -2.8147496 3.6645191 -2.6979378 3.6690456 9267.3770 -2.8042089 3.6728934 -2.6938707 3.6682865 9268.3770 -2.8009615 3.6811202 -2.6898176 3.6675277 9269.3770 -2.7886868 3.6884904 -2.6857784 3.6667693 9270.3770 -2.7840214 3.6945102 -2.6817531 3.6660112 9271.3770 -2.7717903 3.7000014 -2.6777415 3.6652535 9272.3770 -2.7668547 3.7051989 -2.6737435 3.6644961 9273.3770 -2.7538052 3.7091885 -2.6697592 3.6637391 9274.3770 -2.7491984 3.7123857 -2.6657883 3.6629824 9275.3770 -2.7370350 3.7155856 -2.6618307 3.6622261 9276.3770 -2.7324432 3.7181414 -2.6578865 3.6614701 9277.3770 -2.7207715 3.7200545 -2.6539555 3.6607144 9278.3770 -2.7174997 3.7218768 -2.6500376 3.6599591 9279.3770 -2.7072313 3.7240890 -2.6461328 3.6592042 9280.3770 -2.7046357 3.7269948 -2.6422409 3.6584496 9281.3770 -2.6941020 3.7302094 -2.6383619 3.6576953 9282.3770 -2.6910628 3.7334894 -2.6344957 3.6569414 9283.3770 -2.6804173 3.7372821 -2.6306422 3.6561878 9284.3770 -2.6766461 3.7414550 -2.6268013 3.6554346 9285.3770 -2.6648792 3.7456307 -2.6229730 3.6546817 9286.3770 -2.6601495 3.7499165 -2.6191572 3.6539291 9287.3770 -2.6474450 3.7543433 -2.6153537 3.6531769 9288.3770 -2.6414972 3.7588144 -2.6115626 3.6524251 9289.3770 -2.6276062 3.7633802 -2.6077837 3.6516736 9290.3770 -2.6201383 3.7682537 -2.6040170 3.6509224 9291.3770 -2.6040745 3.7733188 -2.6002623 3.6501716 9292.3770 -2.5928939 3.7783870 -2.5965197 3.6494211 9293.3770 -2.5719224 3.7808389 -2.5927890 3.6486710 9294.3770 -2.5586508 3.7806469 -2.5890702 3.6479212 9295.3770 -2.5380445 3.7800524 -2.5853632 3.6471717 9296.3770 -2.5225364 3.7777399 -2.5816679 3.6464226 9297.3770 -2.4996000 3.7708053 -2.5779842 3.6456738 9298.3770 -2.4871428 3.7612317 -2.5743121 3.6449254 9299.3770 -2.4691697 3.7516580 -2.5706516 3.6441773 9300.3770 -2.4590543 3.7407686 -2.5670024 3.6434296 9301.3770 -2.4437607 3.7286487 -2.5633647 3.6426822 9302.3770 -2.4374196 3.7164065 -2.5597382 3.6419351 9303.3770 -2.4252318 3.7041560 -2.5561230 3.6411884 9304.3770 -2.4212497 3.6918845 -2.5525190 3.6404420 9305.3770 -2.4112012 3.6796009 -2.5489260 3.6396960 9306.3770 -2.4089309 3.6673166 -2.5453441 3.6389503 9307.3770 -2.4003524 3.6543500 -2.5417732 3.6382049 9308.3770 -2.4004450 3.6407044 -2.5382132 3.6374599 9309.3770 -2.3954983 3.6269613 -2.5346640 3.6367152 9310.3770 -2.3997978 3.6137453 -2.5311256 3.6359709 9311.3770 -2.3988312 3.6021783 -2.5275980 3.6352269 9312.3770 -2.4051700 3.5916105 -2.5240809 3.6344832 9313.3770 -2.4065946 3.5810424 -2.5205745 3.6337399 9314.3770 -2.4175285 3.5735588 -2.5170786 3.6329969 9315.3770 -2.4206489 3.5696470 -2.5135932 3.6322542 9316.3770 -2.4291260 3.5665870 -2.5101182 3.6315119 9317.3770 -2.4312901 3.5639522 -2.5066536 3.6307700 9318.3770 -2.4406336 3.5641277 -2.5031992 3.6300283 9319.3770 -2.4407674 3.5663292 -2.4997551 3.6292870 9320.3770 -2.4461302 3.5685332 -2.4963212 3.6285461 9321.3770 -2.4439666 3.5713427 -2.4928974 3.6278055 9322.3770 -2.4471611 3.5750752 -2.4894837 3.6270652 9323.3770 -2.4417737 3.5791596 -2.4860799 3.6263252 9324.3770 -2.4407734 3.5832469 -2.4826862 3.6255856 9325.3770 -2.4307982 3.5852785 -2.4793023 3.6248464 9326.3770 -2.4277705 3.5854667 -2.4759282 3.6241074 9327.3770 -2.4176094 3.5855314 -2.4725640 3.6233688 9328.3770 -2.4122673 3.5844130 -2.4692095 3.6226305 9329.3770 -2.3996592 3.5797916 -2.4658646 3.6218926 9330.3770 -2.3960449 3.5730898 -2.4625294 3.6211550 9331.3770 -2.3866178 3.5663885 -2.4592038 3.6204178 9332.3770 -2.3838557 3.5581329 -2.4558877 3.6196808 9333.3770 -2.3761460 3.5477901 -2.4525810 3.6189443 9334.3770 -2.3776038 3.5367821 -2.4492838 3.6182080 9335.3770 -2.3744234 3.5257737 -2.4459959 3.6174721 9336.3770 -2.3797632 3.5149579 -2.4427174 3.6167365 9337.3770 -2.3802803 3.5043019 -2.4394481 3.6160012 9338.3770 -2.3899768 3.4936468 -2.4361881 3.6152663 9339.3770 -2.3974094 3.4847440 -2.4329372 3.6145317 9340.3770 -2.4134712 3.4818129 -2.4296954 3.6137975 9341.3770 -2.4198490 3.4826096 -2.4264627 3.6130636 9342.3770 -2.4316183 3.4834085 -2.4232390 3.6123300 9343.3770 -2.4375267 3.4860726 -2.4200243 3.6115968 9344.3770 -2.4485710 3.4920267 -2.4168186 3.6108638 9345.3770 -2.4498921 3.4994275 -2.4136217 3.6101312 9346.3770 -2.4548405 3.5068319 -2.4104336 3.6093990 9347.3770 -2.4508814 3.5124613 -2.4072544 3.6086671 9348.3770 -2.4535522 3.5162945 -2.4040838 3.6079355 9349.3770 -2.4499369 3.5198538 -2.4009220 3.6072042 9350.3770 -2.4524910 3.5233558 -2.3977688 3.6064733 9351.3770 -2.4480346 3.5260130 -2.3946242 3.6057427 9352.3770 -2.4507943 3.5280161 -2.3914882 3.6050125 9353.3770 -2.4475471 3.5300216 -2.3883607 3.6042825 9354.3770 -2.4517130 3.5324620 -2.3852417 3.6035529 9355.3770 -2.4493635 3.5362840 -2.3821311 3.6028237 9356.3770 -2.4525635 3.5409508 -2.3790289 3.6020947 9357.3770 -2.4481709 3.5456207 -2.3759351 3.6013661 9358.3770 -2.4496888 3.5500285 -2.3728495 3.6006378 9359.3770 -2.4442187 3.5539767 -2.3697722 3.5999099 9360.3770 -2.4453402 3.5577264 -2.3667032 3.5991823 9361.3770 -2.4395896 3.5614789 -2.3636423 3.5984550 9362.3770 -2.4401785 3.5650073 -2.3605895 3.5977280 9363.3770 -2.4340771 3.5682720 -2.3575449 3.5970014 9364.3770 -2.4346600 3.5714738 -2.3545083 3.5962751 9365.3770 -2.4285585 3.5746783 -2.3514797 3.5955491 9366.3770 -2.4290882 3.5780066 -2.3484591 3.5948235 9367.3770 -2.4226939 3.5814568 -2.3454464 3.5940981 9368.3770 -2.4227639 3.5849257 -2.3424416 3.5933732 9369.3770 -2.4158093 3.5883973 -2.3394447 3.5926485 9370.3770 -2.4153168 3.5916895 -2.3364556 3.5919242 9371.3770 -2.4079800 3.5948310 -2.3334743 3.5912002 9372.3770 -2.4073133 3.5979723 -2.3305007 3.5904765 9373.3770 -2.3995920 3.6010794 -2.3275349 3.5897531 9374.3770 -2.3985075 3.6040034 -2.3245767 3.5890301 9375.3770 -2.3905070 3.6068021 -2.3216261 3.5883074 9376.3770 -2.3893092 3.6096033 -2.3186832 3.5875850 9377.3770 -2.3809738 3.6123794 -2.3157478 3.5868630 9378.3770 -2.3794369 3.6150719 -2.3128199 3.5861413 9379.3770 -2.3707069 3.6177147 -2.3098995 3.5854199 9380.3770 -2.3687973 3.6203601 -2.3069865 3.5846988 9381.3770 -2.3593093 3.6228213 -2.3040810 3.5839781 9382.3770 -2.3568289 3.6248062 -2.3011828 3.5832577 9383.3770 -2.3471791 3.6265263 -2.2982920 3.5825376 9384.3770 -2.3448405 3.6282486 -2.2954086 3.5818178 9385.3770 -2.3347659 3.6297847 -2.2925323 3.5810984 9386.3770 -2.3322225 3.6309559 -2.2896634 3.5803793 9387.3770 -2.3221049 3.6319551 -2.2868016 3.5796605 9388.3770 -2.3198962 3.6329565 -2.2839470 3.5789420 9389.3770 -2.3096254 3.6340466 -2.2810996 3.5782239 9390.3770 -2.3073577 3.6352883 -2.2782593 3.5775061 9391.3770 -2.2962467 3.6365963 -2.2754260 3.5767886 9392.3770 -2.2933169 3.6379067 -2.2725998 3.5760714 9393.3770 -2.2805847 3.6388229 -2.2697806 3.5753546 9394.3770 -2.2770713 3.6391244 -2.2669685 3.5746381 9395.3770 -2.2633213 3.6391889 -2.2641632 3.5739219 9396.3770 -2.2596180 3.6392554 -2.2613649 3.5732060 9397.3770 -2.2427985 3.6383817 -2.2585735 3.5724904 9398.3770 -2.2389213 3.6360467 -2.2557889 3.5717752 9399.3770 -2.2190472 3.6331472 -2.2530112 3.5710603 9400.3770 -2.2172735 3.6302491 -2.2502403 3.5703457 9401.3770 -2.1753111 3.6273527 -2.2474762 3.5696314 9402.3770 -2.2435490 3.5686142 -2.2435490 3.5686142 9403.3770 -2.2408012 3.5679007 -2.2408012 3.5679007 9404.3770 -2.2380602 3.5671875 -2.2380602 3.5671875 9405.3770 -2.2353258 3.5664747 -2.2353258 3.5664747 9406.3770 -2.2325981 3.5657622 -2.2325981 3.5657622 9407.3770 -2.2298770 3.5650500 -2.2298770 3.5650500 9408.3770 -2.2271627 3.5643381 -2.2271627 3.5643381 9409.3770 -2.2244550 3.5636265 -2.2244550 3.5636265 9410.3770 -2.2217539 3.5629153 -2.2217539 3.5629153 9411.3770 -2.2190596 3.5622044 -2.2190596 3.5622044 9412.3770 -2.2163722 3.5614938 -2.2163722 3.5614938 9413.3770 -2.2136917 3.5607835 -2.2136917 3.5607835 9414.3770 -2.2110183 3.5600735 -2.2110183 3.5600735 9415.3770 -2.2083527 3.5593639 -2.2083527 3.5593639 9416.3770 -2.2056958 3.5586546 -2.2056958 3.5586546 9417.3770 -2.2030499 3.5579456 -2.2030499 3.5579456 9418.3770 -2.2004220 3.5572369 -2.2004220 3.5572369 9419.3770 -2.1978464 3.5565285 -2.1978464 3.5565285 9420.3770 -2.1999126 3.5558205 -2.1999126 3.5558205 9421.3770 -2.2359545 3.5552263 -2.2359545 3.5552263 9422.3770 -2.2333901 3.5546358 -2.2333901 3.5546358 9423.3770 -2.2307864 3.5540454 -2.2307864 3.5540454 9424.3770 -2.2281776 3.5534552 -2.2281776 3.5534552 9425.3770 -2.2255702 3.5528651 -2.2255702 3.5528651 9426.3770 -2.2229664 3.5522752 -2.2229664 3.5522752 9427.3770 -2.2203672 3.5516854 -2.2203672 3.5516854 9428.3770 -2.2177729 3.5510957 -2.2177729 3.5510957 9429.3770 -2.2151837 3.5505062 -2.2151837 3.5505062 9430.3770 -2.2125999 3.5499169 -2.2125999 3.5499169 9431.3770 -2.2100215 3.5493277 -2.2100215 3.5493277 9432.3770 -2.2074485 3.5487386 -2.2074485 3.5487386 9433.3770 -2.2048810 3.5481497 -2.2048810 3.5481497 9434.3770 -2.2023190 3.5475609 -2.2023190 3.5475609 9435.3770 -2.1997624 3.5469723 -2.1997624 3.5469723 9436.3770 -2.1972112 3.5463839 -2.1972112 3.5463839 9437.3770 -2.1946656 3.5457955 -2.1946656 3.5457955 9438.3770 -2.1921253 3.5452074 -2.1921253 3.5452074 9439.3770 -2.1895905 3.5446193 -2.1895905 3.5446193 9440.3770 -2.1870611 3.5440314 -2.1870611 3.5440314 9441.3770 -2.1845371 3.5434437 -2.1845371 3.5434437 9442.3770 -2.1820184 3.5428561 -2.1820184 3.5428561 9443.3770 -2.1795051 3.5422687 -2.1795051 3.5422687 9444.3770 -2.1769971 3.5416814 -2.1769971 3.5416814 9445.3770 -2.1744945 3.5410942 -2.1744945 3.5410942 9446.3770 -2.1719971 3.5405072 -2.1719971 3.5405072 9447.3770 -2.1695050 3.5399203 -2.1695050 3.5399203 9448.3770 -2.1670182 3.5393336 -2.1670182 3.5393336 9449.3770 -2.1645365 3.5387471 -2.1645365 3.5387471 9450.3770 -2.1620602 3.5381606 -2.1620602 3.5381606 9451.3770 -2.1595890 3.5375744 -2.1595890 3.5375744 9452.3770 -2.1571229 3.5369882 -2.1571229 3.5369882 9453.3770 -2.1546620 3.5364022 -2.1546620 3.5364022 9454.3770 -2.1522063 3.5358164 -2.1522063 3.5358164 9455.3770 -2.1497557 3.5352307 -2.1497557 3.5352307 9456.3770 -2.1473101 3.5346452 -2.1473101 3.5346452 9457.3770 -2.1448697 3.5340598 -2.1448697 3.5340598 9458.3770 -2.1424342 3.5334745 -2.1424342 3.5334745 9459.3770 -2.1400039 3.5328894 -2.1400039 3.5328894 9460.3770 -2.1375785 3.5323044 -2.1375785 3.5323044 9461.3770 -2.1351581 3.5317196 -2.1351581 3.5317196 9462.3770 -2.1327427 3.5311349 -2.1327427 3.5311349 9463.3770 -2.1303322 3.5305504 -2.1303322 3.5305504 9464.3770 -2.1279267 3.5299660 -2.1279267 3.5299660 9465.3770 -2.1255261 3.5293818 -2.1255261 3.5293818 9466.3770 -2.1231304 3.5287977 -2.1231304 3.5287977 9467.3770 -2.1207396 3.5282137 -2.1207396 3.5282137 9468.3770 -2.1183536 3.5276299 -2.1183536 3.5276299 9469.3770 -2.1159725 3.5270463 -2.1159725 3.5270463 9470.3770 -2.1135962 3.5264628 -2.1135962 3.5264628 9471.3770 -2.1112246 3.5258794 -2.1112246 3.5258794 9472.3770 -2.1088579 3.5252962 -2.1088579 3.5252962 9473.3770 -2.1064959 3.5247131 -2.1064959 3.5247131 9474.3770 -2.1041387 3.5241302 -2.1041387 3.5241302 9475.3770 -2.1017862 3.5235474 -2.1017862 3.5235474 9476.3770 -2.0994384 3.5229647 -2.0994384 3.5229647 9477.3770 -2.0970953 3.5223822 -2.0970953 3.5223822 9478.3770 -2.0947569 3.5217999 -2.0947569 3.5217999 9479.3770 -2.0924232 3.5212177 -2.0924232 3.5212177 9480.3770 -2.0900940 3.5206356 -2.0900940 3.5206356 9481.3770 -2.0877695 3.5200537 -2.0877695 3.5200537 9482.3770 -2.0854496 3.5194719 -2.0854496 3.5194719 9483.3770 -2.0831343 3.5188903 -2.0831343 3.5188903 9484.3770 -2.0808236 3.5183088 -2.0808236 3.5183088 9485.3770 -2.0785174 3.5177274 -2.0785174 3.5177274 9486.3770 -2.0762157 3.5171462 -2.0762157 3.5171462 9487.3770 -2.0739185 3.5165652 -2.0739185 3.5165652 9488.3770 -2.0716259 3.5159843 -2.0716259 3.5159843 9489.3770 -2.0693377 3.5154035 -2.0693377 3.5154035 9490.3770 -2.0670540 3.5148229 -2.0670540 3.5148229 9491.3770 -2.0647748 3.5142424 -2.0647748 3.5142424 9492.3770 -2.0624999 3.5136621 -2.0624999 3.5136621 9493.3770 -2.0602295 3.5130819 -2.0602295 3.5130819 9494.3770 -2.0579635 3.5125018 -2.0579635 3.5125018 9495.3770 -2.0557019 3.5119219 -2.0557019 3.5119219 9496.3770 -2.0534446 3.5113422 -2.0534446 3.5113422 9497.3770 -2.0511917 3.5107626 -2.0511917 3.5107626 9498.3770 -2.0489432 3.5101831 -2.0489432 3.5101831 9499.3770 -2.0466989 3.5096038 -2.0466989 3.5096038 9500.3770 -2.0444590 3.5090246 -2.0444590 3.5090246 9501.3770 -2.0422233 3.5084455 -2.0422233 3.5084455 9502.3770 -2.0399919 3.5078666 -2.0399919 3.5078666 9503.3770 -2.0377648 3.5072879 -2.0377648 3.5072879 9504.3770 -2.0355419 3.5067093 -2.0355419 3.5067093 9505.3770 -2.0333232 3.5061308 -2.0333232 3.5061308 9506.3770 -2.0311088 3.5055525 -2.0311088 3.5055525 9507.3770 -2.0288985 3.5049743 -2.0288985 3.5049743 9508.3770 -2.0266924 3.5043962 -2.0266924 3.5043962 9509.3770 -2.0244905 3.5038183 -2.0244905 3.5038183 9510.3770 -2.0222927 3.5032406 -2.0222927 3.5032406 9511.3770 -2.0200991 3.5026630 -2.0200991 3.5026630 9512.3770 -2.0179096 3.5020855 -2.0179096 3.5020855 9513.3770 -2.0157241 3.5015082 -2.0157241 3.5015082 9514.3770 -2.0135428 3.5009310 -2.0135428 3.5009310 9515.3770 -2.0113656 3.5003540 -2.0113656 3.5003540 9516.3770 -2.0091924 3.4997771 -2.0091924 3.4997771 9517.3770 -2.0070232 3.4992003 -2.0070232 3.4992003 9518.3770 -2.0048581 3.4986237 -2.0048581 3.4986237 9519.3770 -2.0026970 3.4980472 -2.0026970 3.4980472 9520.3770 -2.0005399 3.4974709 -2.0005399 3.4974709 9521.3770 -1.9983868 3.4968947 -1.9983868 3.4968947 9522.3770 -1.9962377 3.4963187 -1.9962377 3.4963187 9523.3770 -1.9940925 3.4957428 -1.9940925 3.4957428 9524.3770 -1.9919513 3.4951670 -1.9919513 3.4951670 9525.3770 -1.9898140 3.4945914 -1.9898140 3.4945914 9526.3770 -1.9876807 3.4940160 -1.9876807 3.4940160 9527.3770 -1.9855512 3.4934406 -1.9855512 3.4934406 9528.3770 -1.9834257 3.4928654 -1.9834257 3.4928654 9529.3770 -1.9813040 3.4922904 -1.9813040 3.4922904 9530.3770 -1.9791862 3.4917155 -1.9791862 3.4917155 9531.3770 -1.9770722 3.4911407 -1.9770722 3.4911407 9532.3770 -1.9749621 3.4905661 -1.9749621 3.4905661 9533.3770 -1.9728558 3.4899916 -1.9728558 3.4899916 9534.3770 -1.9707533 3.4894173 -1.9707533 3.4894173 9535.3770 -1.9686546 3.4888431 -1.9686546 3.4888431 9536.3770 -1.9665597 3.4882691 -1.9665597 3.4882691 9537.3770 -1.9644685 3.4876952 -1.9644685 3.4876952 9538.3770 -1.9623812 3.4871214 -1.9623812 3.4871214 9539.3770 -1.9602976 3.4865478 -1.9602976 3.4865478 9540.3770 -1.9582177 3.4859743 -1.9582177 3.4859743 9541.3770 -1.9561415 3.4854009 -1.9561415 3.4854009 9542.3770 -1.9540690 3.4848277 -1.9540690 3.4848277 9543.3770 -1.9520003 3.4842547 -1.9520003 3.4842547 9544.3770 -1.9499352 3.4836818 -1.9499352 3.4836818 9545.3770 -1.9478738 3.4831090 -1.9478738 3.4831090 9546.3770 -1.9458161 3.4825363 -1.9458161 3.4825363 9547.3770 -1.9437620 3.4819639 -1.9437620 3.4819639 9548.3770 -1.9417115 3.4813915 -1.9417115 3.4813915 9549.3770 -1.9396647 3.4808193 -1.9396647 3.4808193 9550.3770 -1.9376214 3.4802472 -1.9376214 3.4802472 9551.3770 -1.9355818 3.4796753 -1.9355818 3.4796753 9552.3770 -1.9335458 3.4791035 -1.9335458 3.4791035 9553.3770 -1.9315133 3.4785319 -1.9315133 3.4785319 9554.3770 -1.9294844 3.4779604 -1.9294844 3.4779604 9555.3770 -1.9274590 3.4773890 -1.9274590 3.4773890 9556.3770 -1.9254372 3.4768178 -1.9254372 3.4768178 9557.3770 -1.9234190 3.4762467 -1.9234190 3.4762467 9558.3770 -1.9214042 3.4756757 -1.9214042 3.4756757 9559.3770 -1.9193929 3.4751049 -1.9193929 3.4751049 9560.3770 -1.9173851 3.4745343 -1.9173851 3.4745343 9561.3770 -1.9153809 3.4739638 -1.9153809 3.4739638 9562.3770 -1.9133800 3.4733934 -1.9133800 3.4733934 9563.3770 -1.9113827 3.4728231 -1.9113827 3.4728231 9564.3770 -1.9093888 3.4722530 -1.9093888 3.4722530 9565.3770 -1.9073983 3.4716831 -1.9073983 3.4716831 9566.3770 -1.9054112 3.4711133 -1.9054112 3.4711133 9567.3770 -1.9034276 3.4705436 -1.9034276 3.4705436 9568.3770 -1.9014474 3.4699740 -1.9014474 3.4699740 9569.3770 -1.8994705 3.4694046 -1.8994705 3.4694046 9570.3770 -1.8974970 3.4688354 -1.8974970 3.4688354 9571.3770 -1.8955270 3.4682663 -1.8955270 3.4682663 9572.3770 -1.8935602 3.4676973 -1.8935602 3.4676973 9573.3770 -1.8915968 3.4671285 -1.8915968 3.4671285 9574.3770 -1.8896368 3.4665598 -1.8896368 3.4665598 9575.3770 -1.8876801 3.4659912 -1.8876801 3.4659912 9576.3770 -1.8857267 3.4654228 -1.8857267 3.4654228 9577.3770 -1.8837766 3.4648545 -1.8837766 3.4648545 9578.3770 -1.8818298 3.4642864 -1.8818298 3.4642864 9579.3770 -1.8798862 3.4637184 -1.8798862 3.4637184 9580.3770 -1.8779460 3.4631505 -1.8779460 3.4631505 9581.3770 -1.8760090 3.4625828 -1.8760090 3.4625828 9582.3770 -1.8740753 3.4620152 -1.8740753 3.4620152 9583.3770 -1.8721448 3.4614478 -1.8721448 3.4614478 9584.3770 -1.8702176 3.4608805 -1.8702176 3.4608805 9585.3770 -1.8682935 3.4603133 -1.8682935 3.4603133 9586.3770 -1.8663727 3.4597463 -1.8663727 3.4597463 9587.3770 -1.8644551 3.4591794 -1.8644551 3.4591794 9588.3770 -1.8625407 3.4586127 -1.8625407 3.4586127 9589.3770 -1.8606294 3.4580461 -1.8606294 3.4580461 9590.3770 -1.8587214 3.4574796 -1.8587214 3.4574796 9591.3770 -1.8568165 3.4569133 -1.8568165 3.4569133 9592.3770 -1.8549147 3.4563471 -1.8549147 3.4563471 9593.3770 -1.8530161 3.4557811 -1.8530161 3.4557811 9594.3770 -1.8511207 3.4552151 -1.8511207 3.4552151 9595.3770 -1.8492283 3.4546494 -1.8492283 3.4546494 9596.3770 -1.8473391 3.4540837 -1.8473391 3.4540837 9597.3770 -1.8454530 3.4535183 -1.8454530 3.4535183 9598.3770 -1.8435699 3.4529529 -1.8435699 3.4529529 9599.3770 -1.8416900 3.4523877 -1.8416900 3.4523877 9600.3770 -1.8398131 3.4518226 -1.8398131 3.4518226 9601.3770 -1.8379393 3.4512577 -1.8379393 3.4512577 9602.3770 -1.8360686 3.4506929 -1.8360686 3.4506929 9603.3770 -1.8342009 3.4501282 -1.8342009 3.4501282 9604.3770 -1.8323362 3.4495637 -1.8323362 3.4495637 9605.3770 -1.8304746 3.4489993 -1.8304746 3.4489993 9606.3770 -1.8286159 3.4484351 -1.8286159 3.4484351 9607.3770 -1.8267603 3.4478710 -1.8267603 3.4478710 9608.3770 -1.8249078 3.4473070 -1.8249078 3.4473070 9609.3770 -1.8230581 3.4467432 -1.8230581 3.4467432 9610.3770 -1.8212115 3.4461795 -1.8212115 3.4461795 9611.3770 -1.8193679 3.4456160 -1.8193679 3.4456160 9612.3770 -1.8175272 3.4450526 -1.8175272 3.4450526 9613.3770 -1.8156895 3.4444893 -1.8156895 3.4444893 9614.3770 -1.8138547 3.4439261 -1.8138547 3.4439261 9615.3770 -1.8120229 3.4433631 -1.8120229 3.4433631 9616.3770 -1.8101940 3.4428003 -1.8101940 3.4428003 9617.3770 -1.8083680 3.4422376 -1.8083680 3.4422376 9618.3770 -1.8065449 3.4416750 -1.8065449 3.4416750 9619.3770 -1.8047247 3.4411125 -1.8047247 3.4411125 9620.3770 -1.8029075 3.4405502 -1.8029075 3.4405502 9621.3770 -1.8010931 3.4399881 -1.8010931 3.4399881 9622.3770 -1.7992816 3.4394260 -1.7992816 3.4394260 9623.3770 -1.7974729 3.4388641 -1.7974729 3.4388641 9624.3770 -1.7956672 3.4383024 -1.7956672 3.4383024 9625.3770 -1.7938642 3.4377408 -1.7938642 3.4377408 9626.3770 -1.7920642 3.4371793 -1.7920642 3.4371793 9627.3770 -1.7902669 3.4366179 -1.7902669 3.4366179 9628.3770 -1.7884725 3.4360567 -1.7884725 3.4360567 9629.3770 -1.7866809 3.4354957 -1.7866809 3.4354957 9630.3770 -1.7848922 3.4349347 -1.7848922 3.4349347 9631.3770 -1.7831062 3.4343739 -1.7831062 3.4343739 9632.3770 -1.7813230 3.4338133 -1.7813230 3.4338133 9633.3770 -1.7795426 3.4332528 -1.7795426 3.4332528 9634.3770 -1.7777650 3.4326924 -1.7777650 3.4326924 9635.3770 -1.7759901 3.4321321 -1.7759901 3.4321321 9636.3770 -1.7742181 3.4315720 -1.7742181 3.4315720 9637.3770 -1.7724487 3.4310121 -1.7724487 3.4310121 9638.3770 -1.7706822 3.4304522 -1.7706822 3.4304522 9639.3770 -1.7689183 3.4298925 -1.7689183 3.4298925 9640.3770 -1.7671572 3.4293330 -1.7671572 3.4293330 9641.3770 -1.7653988 3.4287736 -1.7653988 3.4287736 9642.3770 -1.7636432 3.4282143 -1.7636432 3.4282143 9643.3770 -1.7618902 3.4276551 -1.7618902 3.4276551 9644.3770 -1.7601399 3.4270961 -1.7601399 3.4270961 9645.3770 -1.7583924 3.4265372 -1.7583924 3.4265372 9646.3770 -1.7566475 3.4259785 -1.7566475 3.4259785 9647.3770 -1.7549053 3.4254199 -1.7549053 3.4254199 9648.3770 -1.7531657 3.4248614 -1.7531657 3.4248614 9649.3770 -1.7514288 3.4243031 -1.7514288 3.4243031 9650.3770 -1.7496946 3.4237449 -1.7496946 3.4237449 9651.3770 -1.7479630 3.4231869 -1.7479630 3.4231869 9652.3770 -1.7462341 3.4226289 -1.7462341 3.4226289 9653.3770 -1.7445078 3.4220712 -1.7445078 3.4220712 9654.3770 -1.7427841 3.4215135 -1.7427841 3.4215135 9655.3770 -1.7410631 3.4209560 -1.7410631 3.4209560 9656.3770 -1.7393446 3.4203986 -1.7393446 3.4203986 9657.3770 -1.7376287 3.4198414 -1.7376287 3.4198414 9658.3770 -1.7359155 3.4192843 -1.7359155 3.4192843 9659.3770 -1.7342048 3.4187273 -1.7342048 3.4187273 9660.3770 -1.7324967 3.4181705 -1.7324967 3.4181705 9661.3770 -1.7307912 3.4176138 -1.7307912 3.4176138 9662.3770 -1.7290883 3.4170572 -1.7290883 3.4170572 9663.3770 -1.7273879 3.4165008 -1.7273879 3.4165008 9664.3770 -1.7256900 3.4159445 -1.7256900 3.4159445 9665.3770 -1.7239947 3.4153884 -1.7239947 3.4153884 9666.3770 -1.7223020 3.4148324 -1.7223020 3.4148324 9667.3770 -1.7206118 3.4142765 -1.7206118 3.4142765 9668.3770 -1.7189241 3.4137207 -1.7189241 3.4137207 9669.3770 -1.7172389 3.4131651 -1.7172389 3.4131651 9670.3770 -1.7155562 3.4126097 -1.7155562 3.4126097 9671.3770 -1.7138760 3.4120543 -1.7138760 3.4120543 9672.3770 -1.7121984 3.4114991 -1.7121984 3.4114991 9673.3770 -1.7105232 3.4109441 -1.7105232 3.4109441 9674.3770 -1.7088505 3.4103891 -1.7088505 3.4103891 9675.3770 -1.7071802 3.4098343 -1.7071802 3.4098343 9676.3770 -1.7055125 3.4092797 -1.7055125 3.4092797 9677.3770 -1.7038472 3.4087252 -1.7038472 3.4087252 9678.3770 -1.7021843 3.4081708 -1.7021843 3.4081708 9679.3770 -1.7005240 3.4076165 -1.7005240 3.4076165 9680.3770 -1.6988660 3.4070624 -1.6988660 3.4070624 9681.3770 -1.6972105 3.4065084 -1.6972105 3.4065084 9682.3770 -1.6955574 3.4059546 -1.6955574 3.4059546 9683.3770 -1.6939067 3.4054009 -1.6939067 3.4054009 9684.3770 -1.6922585 3.4048473 -1.6922585 3.4048473 9685.3770 -1.6906127 3.4042938 -1.6906127 3.4042938 9686.3770 -1.6889692 3.4037405 -1.6889692 3.4037405 9687.3770 -1.6873282 3.4031874 -1.6873282 3.4031874 9688.3770 -1.6856896 3.4026343 -1.6856896 3.4026343 9689.3770 -1.6840533 3.4020814 -1.6840533 3.4020814 9690.3770 -1.6824194 3.4015286 -1.6824194 3.4015286 9691.3770 -1.6807879 3.4009760 -1.6807879 3.4009760 9692.3770 -1.6791587 3.4004235 -1.6791587 3.4004235 9693.3770 -1.6775320 3.3998711 -1.6775320 3.3998711 9694.3770 -1.6759075 3.3993189 -1.6759075 3.3993189 9695.3770 -1.6742854 3.3987668 -1.6742854 3.3987668 9696.3770 -1.6726657 3.3982149 -1.6726657 3.3982149 9697.3770 -1.6710483 3.3976630 -1.6710483 3.3976630 9698.3770 -1.6694332 3.3971113 -1.6694332 3.3971113 9699.3770 -1.6678204 3.3965598 -1.6678204 3.3965598 9700.3770 -1.6662099 3.3960084 -1.6662099 3.3960084 9701.3770 -1.6646018 3.3954571 -1.6646018 3.3954571 9702.3770 -1.6629960 3.3949059 -1.6629960 3.3949059 9703.3770 -1.6613924 3.3943549 -1.6613924 3.3943549 9704.3770 -1.6597912 3.3938040 -1.6597912 3.3938040 9705.3770 -1.6581922 3.3932532 -1.6581922 3.3932532 9706.3770 -1.6565955 3.3927026 -1.6565955 3.3927026 9707.3770 -1.6550011 3.3921521 -1.6550011 3.3921521 9708.3770 -1.6534089 3.3916018 -1.6534089 3.3916018 9709.3770 -1.6518191 3.3910516 -1.6518191 3.3910516 9710.3770 -1.6502314 3.3905015 -1.6502314 3.3905015 9711.3770 -1.6486460 3.3899515 -1.6486460 3.3899515 9712.3770 -1.6470629 3.3894017 -1.6470629 3.3894017 9713.3770 -1.6454820 3.3888520 -1.6454820 3.3888520 9714.3770 -1.6439033 3.3883025 -1.6439033 3.3883025 9715.3770 -1.6423269 3.3877531 -1.6423269 3.3877531 9716.3770 -1.6407527 3.3872038 -1.6407527 3.3872038 9717.3770 -1.6391807 3.3866546 -1.6391807 3.3866546 9718.3770 -1.6376109 3.3861056 -1.6376109 3.3861056 9719.3770 -1.6360433 3.3855567 -1.6360433 3.3855567 9720.3770 -1.6344779 3.3850080 -1.6344779 3.3850080 9721.3770 -1.6329147 3.3844594 -1.6329147 3.3844594 9722.3770 -1.6313537 3.3839109 -1.6313537 3.3839109 9723.3770 -1.6297948 3.3833625 -1.6297948 3.3833625 9724.3770 -1.6282382 3.3828143 -1.6282382 3.3828143 9725.3770 -1.6266837 3.3822662 -1.6266837 3.3822662 9726.3770 -1.6251314 3.3817183 -1.6251314 3.3817183 9727.3770 -1.6235812 3.3811705 -1.6235812 3.3811705 9728.3770 -1.6220332 3.3806228 -1.6220332 3.3806228 9729.3770 -1.6204873 3.3800752 -1.6204873 3.3800752 9730.3770 -1.6189436 3.3795278 -1.6189436 3.3795278 9731.3770 -1.6174020 3.3789805 -1.6174020 3.3789805 9732.3770 -1.6158626 3.3784334 -1.6158626 3.3784334 9733.3770 -1.6143252 3.3778864 -1.6143252 3.3778864 9734.3770 -1.6127900 3.3773395 -1.6127900 3.3773395 9735.3770 -1.6112570 3.3767927 -1.6112570 3.3767927 9736.3770 -1.6097260 3.3762461 -1.6097260 3.3762461 9737.3770 -1.6081971 3.3756996 -1.6081971 3.3756996 9738.3770 -1.6066703 3.3751533 -1.6066703 3.3751533 9739.3770 -1.6051457 3.3746070 -1.6051457 3.3746070 9740.3770 -1.6036231 3.3740610 -1.6036231 3.3740610 9741.3770 -1.6021026 3.3735150 -1.6021026 3.3735150 9742.3770 -1.6005842 3.3729692 -1.6005842 3.3729692 9743.3770 -1.5990678 3.3724235 -1.5990678 3.3724235 9744.3770 -1.5975535 3.3718779 -1.5975535 3.3718779 9745.3770 -1.5960413 3.3713325 -1.5960413 3.3713325 9746.3770 -1.5945312 3.3707872 -1.5945312 3.3707872 9747.3770 -1.5930231 3.3702420 -1.5930231 3.3702420 9748.3770 -1.5915170 3.3696970 -1.5915170 3.3696970 9749.3770 -1.5900130 3.3691521 -1.5900130 3.3691521 9750.3770 -1.5885110 3.3686073 -1.5885110 3.3686073 9751.3770 -1.5870111 3.3680627 -1.5870111 3.3680627 9752.3770 -1.5855132 3.3675182 -1.5855132 3.3675182 9753.3770 -1.5840173 3.3669738 -1.5840173 3.3669738 9754.3770 -1.5825234 3.3664296 -1.5825234 3.3664296 9755.3770 -1.5810316 3.3658855 -1.5810316 3.3658855 9756.3770 -1.5795418 3.3653415 -1.5795418 3.3653415 9757.3770 -1.5780539 3.3647977 -1.5780539 3.3647977 9758.3770 -1.5765681 3.3642539 -1.5765681 3.3642539 9759.3770 -1.5750842 3.3637104 -1.5750842 3.3637104 9760.3770 -1.5736024 3.3631669 -1.5736024 3.3631669 9761.3770 -1.5721225 3.3626236 -1.5721225 3.3626236 9762.3770 -1.5706446 3.3620804 -1.5706446 3.3620804 9763.3770 -1.5691687 3.3615373 -1.5691687 3.3615373 9764.3770 -1.5676947 3.3609944 -1.5676947 3.3609944 9765.3770 -1.5662228 3.3604516 -1.5662228 3.3604516 9766.3770 -1.5647527 3.3599090 -1.5647527 3.3599090 9767.3770 -1.5632847 3.3593664 -1.5632847 3.3593664 9768.3770 -1.5618186 3.3588240 -1.5618186 3.3588240 9769.3770 -1.5603544 3.3582818 -1.5603544 3.3582818 9770.3770 -1.5588922 3.3577396 -1.5588922 3.3577396 9771.3770 -1.5574319 3.3571976 -1.5574319 3.3571976 9772.3770 -1.5559735 3.3566558 -1.5559735 3.3566558 9773.3770 -1.5545171 3.3561140 -1.5545171 3.3561140 9774.3770 -1.5530626 3.3555724 -1.5530626 3.3555724 9775.3770 -1.5516100 3.3550309 -1.5516100 3.3550309 9776.3770 -1.5501594 3.3544896 -1.5501594 3.3544896 9777.3770 -1.5487106 3.3539484 -1.5487106 3.3539484 9778.3770 -1.5472638 3.3534073 -1.5472638 3.3534073 9779.3770 -1.5458188 3.3528663 -1.5458188 3.3528663 9780.3770 -1.5443758 3.3523255 -1.5443758 3.3523255 9781.3770 -1.5429346 3.3517848 -1.5429346 3.3517848 9782.3770 -1.5414953 3.3512442 -1.5414953 3.3512442 9783.3770 -1.5400579 3.3507038 -1.5400579 3.3507038 9784.3770 -1.5386224 3.3501635 -1.5386224 3.3501635 9785.3770 -1.5371888 3.3496233 -1.5371888 3.3496233 9786.3770 -1.5357570 3.3490833 -1.5357570 3.3490833 9787.3770 -1.5343271 3.3485434 -1.5343271 3.3485434 9788.3770 -1.5328990 3.3480036 -1.5328990 3.3480036 9789.3770 -1.5314729 3.3474639 -1.5314729 3.3474639 9790.3770 -1.5300485 3.3469244 -1.5300485 3.3469244 9791.3770 -1.5286260 3.3463850 -1.5286260 3.3463850 9792.3770 -1.5272054 3.3458458 -1.5272054 3.3458458 9793.3770 -1.5257866 3.3453066 -1.5257866 3.3453066 9794.3770 -1.5243696 3.3447676 -1.5243696 3.3447676 9795.3770 -1.5229545 3.3442288 -1.5229545 3.3442288 9796.3770 -1.5215412 3.3436900 -1.5215412 3.3436900 9797.3770 -1.5201297 3.3431514 -1.5201297 3.3431514 9798.3770 -1.5187200 3.3426129 -1.5187200 3.3426129 9799.3770 -1.5173122 3.3420746 -1.5173122 3.3420746 9800.3770 -1.5159061 3.3415364 -1.5159061 3.3415364 9801.3770 -1.5145019 3.3409983 -1.5145019 3.3409983 9802.3770 -1.5130994 3.3404603 -1.5130994 3.3404603 9803.3770 -1.5116988 3.3399225 -1.5116988 3.3399225 9804.3770 -1.5102999 3.3393848 -1.5102999 3.3393848 9805.3770 -1.5089029 3.3388472 -1.5089029 3.3388472 9806.3770 -1.5075076 3.3383098 -1.5075076 3.3383098 9807.3770 -1.5061141 3.3377724 -1.5061141 3.3377724 9808.3770 -1.5047224 3.3372353 -1.5047224 3.3372353 9809.3770 -1.5033324 3.3366982 -1.5033324 3.3366982 9810.3770 -1.5019443 3.3361613 -1.5019443 3.3361613 9811.3770 -1.5005579 3.3356245 -1.5005579 3.3356245 9812.3770 -1.4991732 3.3350878 -1.4991732 3.3350878 9813.3770 -1.4977903 3.3345513 -1.4977903 3.3345513 9814.3770 -1.4964092 3.3340149 -1.4964092 3.3340149 9815.3770 -1.4950298 3.3334786 -1.4950298 3.3334786 9816.3770 -1.4936521 3.3329425 -1.4936521 3.3329425 9817.3770 -1.4922762 3.3324064 -1.4922762 3.3324064 9818.3770 -1.4909021 3.3318706 -1.4909021 3.3318706 9819.3770 -1.4895296 3.3313348 -1.4895296 3.3313348 9820.3770 -1.4881589 3.3307992 -1.4881589 3.3307992 9821.3770 -1.4867899 3.3302637 -1.4867899 3.3302637 9822.3770 -1.4854227 3.3297283 -1.4854227 3.3297283 9823.3770 -1.4840571 3.3291930 -1.4840571 3.3291930 9824.3770 -1.4826933 3.3286579 -1.4826933 3.3286579 9825.3770 -1.4813312 3.3281229 -1.4813312 3.3281229 9826.3770 -1.4799708 3.3275881 -1.4799708 3.3275881 9827.3770 -1.4786121 3.3270534 -1.4786121 3.3270534 9828.3770 -1.4772551 3.3265188 -1.4772551 3.3265188 9829.3770 -1.4758997 3.3259843 -1.4758997 3.3259843 9830.3770 -1.4745461 3.3254499 -1.4745461 3.3254499 9831.3770 -1.4731942 3.3249157 -1.4731942 3.3249157 9832.3770 -1.4718439 3.3243816 -1.4718439 3.3243816 9833.3770 -1.4704954 3.3238477 -1.4704954 3.3238477 9834.3770 -1.4691485 3.3233139 -1.4691485 3.3233139 9835.3770 -1.4678032 3.3227802 -1.4678032 3.3227802 9836.3770 -1.4664597 3.3222466 -1.4664597 3.3222466 9837.3770 -1.4651178 3.3217131 -1.4651178 3.3217131 9838.3770 -1.4637775 3.3211798 -1.4637775 3.3211798 9839.3770 -1.4624390 3.3206466 -1.4624390 3.3206466 9840.3770 -1.4611021 3.3201136 -1.4611021 3.3201136 9841.3770 -1.4597668 3.3195807 -1.4597668 3.3195807 9842.3770 -1.4584332 3.3190479 -1.4584332 3.3190479 9843.3770 -1.4571012 3.3185152 -1.4571012 3.3185152 9844.3770 -1.4557708 3.3179826 -1.4557708 3.3179826 9845.3770 -1.4544421 3.3174502 -1.4544421 3.3174502 9846.3770 -1.4531151 3.3169179 -1.4531151 3.3169179 9847.3770 -1.4517896 3.3163858 -1.4517896 3.3163858 9848.3770 -1.4504658 3.3158537 -1.4504658 3.3158537 9849.3770 -1.4491436 3.3153218 -1.4491436 3.3153218 9850.3770 -1.4478230 3.3147900 -1.4478230 3.3147900 9851.3770 -1.4465041 3.3142584 -1.4465041 3.3142584 9852.3770 -1.4451867 3.3137269 -1.4451867 3.3137269 9853.3770 -1.4438710 3.3131955 -1.4438710 3.3131955 9854.3770 -1.4425568 3.3126642 -1.4425568 3.3126642 9855.3770 -1.4412443 3.3121331 -1.4412443 3.3121331 9856.3770 -1.4399334 3.3116020 -1.4399334 3.3116020 9857.3770 -1.4386240 3.3110712 -1.4386240 3.3110712 9858.3770 -1.4373163 3.3105404 -1.4373163 3.3105404 9859.3770 -1.4360101 3.3100098 -1.4360101 3.3100098 9860.3770 -1.4347055 3.3094793 -1.4347055 3.3094793 9861.3770 -1.4334025 3.3089489 -1.4334025 3.3089489 9862.3770 -1.4321011 3.3084186 -1.4321011 3.3084186 9863.3770 -1.4308012 3.3078885 -1.4308012 3.3078885 9864.3770 -1.4295029 3.3073585 -1.4295029 3.3073585 9865.3770 -1.4282062 3.3068287 -1.4282062 3.3068287 9866.3770 -1.4269111 3.3062989 -1.4269111 3.3062989 9867.3770 -1.4256175 3.3057693 -1.4256175 3.3057693 9868.3770 -1.4243254 3.3052398 -1.4243254 3.3052398 9869.3770 -1.4230350 3.3047105 -1.4230350 3.3047105 9870.3770 -1.4217460 3.3041812 -1.4217460 3.3041812 9871.3770 -1.4204586 3.3036521 -1.4204586 3.3036521 9872.3770 -1.4191728 3.3031232 -1.4191728 3.3031232 9873.3770 -1.4178885 3.3025943 -1.4178885 3.3025943 9874.3770 -1.4166057 3.3020656 -1.4166057 3.3020656 9875.3770 -1.4153245 3.3015370 -1.4153245 3.3015370 9876.3770 -1.4140448 3.3010085 -1.4140448 3.3010085 9877.3770 -1.4127666 3.3004802 -1.4127666 3.3004802 9878.3770 -1.4114900 3.2999519 -1.4114900 3.2999519 9879.3770 -1.4102148 3.2994239 -1.4102148 3.2994239 9880.3770 -1.4089412 3.2988959 -1.4089412 3.2988959 9881.3770 -1.4076691 3.2983681 -1.4076691 3.2983681 9882.3770 -1.4063986 3.2978403 -1.4063986 3.2978403 9883.3770 -1.4051295 3.2973128 -1.4051295 3.2973128 9884.3770 -1.4038619 3.2967853 -1.4038619 3.2967853 9885.3770 -1.4025959 3.2962580 -1.4025959 3.2962580 9886.3770 -1.4013313 3.2957308 -1.4013313 3.2957308 9887.3770 -1.4000682 3.2952037 -1.4000682 3.2952037 9888.3770 -1.3988066 3.2946767 -1.3988066 3.2946767 9889.3770 -1.3975465 3.2941499 -1.3975465 3.2941499 9890.3770 -1.3962879 3.2936232 -1.3962879 3.2936232 9891.3770 -1.3950308 3.2930966 -1.3950308 3.2930966 9892.3770 -1.3937752 3.2925702 -1.3937752 3.2925702 9893.3770 -1.3925210 3.2920439 -1.3925210 3.2920439 9894.3770 -1.3912683 3.2915177 -1.3912683 3.2915177 9895.3770 -1.3900171 3.2909916 -1.3900171 3.2909916 9896.3770 -1.3887674 3.2904656 -1.3887674 3.2904656 9897.3770 -1.3875191 3.2899398 -1.3875191 3.2899398 9898.3770 -1.3862723 3.2894141 -1.3862723 3.2894141 9899.3770 -1.3850269 3.2888886 -1.3850269 3.2888886 9900.3770 -1.3837830 3.2883631 -1.3837830 3.2883631 9901.3770 -1.3825406 3.2878378 -1.3825406 3.2878378 ifeffit-1.2.11d/examples/diffkk/xmu_feff.dat0000644000175000017500000011302210771740461017723 0ustar segresegre name: yttrium barium copper oxide ( 123 , ybco) Feff 7.023 formula: YBa2Cu3O7 sites: Y1,Ba1,Cu1,Cu2,O1-4 refer1: Sharma, et al, Physica C 174, p.409, (1991) refer2: Cava, et al, Physica C 165, p.419, (1990) notes: high-temperature superconductor Abs Z=29 Rmt= 1.003 Rnm= 1.266 K shell Pot 1 Z= 8 Rmt= 0.960 Rnm= 1.125 Pot 2 Z=56 Rmt= 1.770 Rnm= 1.956 Pot 3 Z=29 Rmt= 1.003 Rnm= 1.266 Pot 4 Z=39 Rmt= 1.474 Rnm= 1.805 Gam_ch=1.761E+00 H-L exch Mu=-5.406E+00 kf=1.838E+00 Vint=-1.828E+01 Rs_int= 1.973 S02 1.000 Temp 30.00 Debye temp 210.00 Global sig2 0.00000 Curved wave amplitude ratio filter 4.000% file sig2 tot cw amp ratio deg nlegs reff inp sig2 1 0.00943 100.00 2.00 2 1.8596 2 0.00982 90.65 2.00 2 1.9406 3 0.01650 15.57 8.00 3 3.2441 4 0.00412 100.00 8.00 2 3.4612 5 0.02249 9.12 2.00 3 3.7193 6 0.02249 8.67 2.00 4 3.7193 7 0.03772 4.01 2.00 4 3.7193 8 0.00567 12.12 2.00 2 3.8120 9 0.00568 11.59 2.00 2 3.8813 10 0.02255 7.75 2.00 3 3.8813 11 0.00568 31.06 4.00 3 3.8813 12 0.02255 7.17 2.00 4 3.8813 14 0.00568 20.69 2.00 4 3.8813 15 0.00760 13.83 16.00 3 4.0277 16 0.00566 9.93 2.00 2 4.1273 17 0.00566 25.99 4.00 3 4.1273 18 0.00566 16.82 2.00 4 4.1273 19 0.00814 10.49 16.00 3 4.1340 20 0.01431 14.71 4.00 2 4.2414 21 0.01430 14.36 4.00 2 4.2775 22 0.01429 14.11 4.00 2 4.3038 23 0.01491 14.04 8.00 3 4.4661 24 0.01968 4.97 8.00 4 4.5942 25 0.01843 5.26 4.00 4 4.6285 26 0.01411 10.30 4.00 2 4.7976 27 0.01411 10.22 4.00 2 4.8104 28 0.01474 12.53 8.00 3 4.9176 29 0.01475 12.18 8.00 3 4.9340 30 0.01748 5.11 4.00 4 5.0377 31 0.01758 4.93 4.00 4 5.0577 32 0.01204 11.86 16.00 3 5.0791 33 0.01196 9.35 16.00 3 5.1133 34 0.01210 10.38 16.00 3 5.2186 35 0.01217 10.55 16.00 3 5.2498 36 0.01219 9.19 16.00 3 5.3024 40 0.00551 9.57 4.00 2 5.4402 41 0.01266 9.14 16.00 3 5.6144 42 0.00553 8.75 4.00 2 5.6183 43 0.01265 8.96 16.00 3 5.6197 44 0.00553 8.55 4.00 2 5.6656 45 0.01409 11.93 8.00 2 5.7492 48 0.01411 6.11 4.00 3 5.8219 49 0.01411 5.18 4.00 3 5.8219 53 0.01411 6.43 4.00 4 5.8219 54 0.01411 5.58 4.00 4 5.8219 60 0.01411 6.94 4.00 5 5.8219 61 0.01411 6.71 4.00 5 5.8219 63 0.01411 4.19 2.00 6 5.8219 66 0.01364 16.83 16.00 3 5.9725 73 0.01423 9.73 8.00 2 6.1376 74 0.01425 9.56 8.00 2 6.1710 75 0.01624 4.20 16.00 3 6.1771 76 0.02204 4.65 8.00 3 6.1781 77 0.01467 6.76 8.00 4 6.1958 78 0.01399 17.77 16.00 3 6.2781 79 0.01401 17.73 16.00 3 6.3064 82 0.00418 19.64 8.00 2 6.4064 83 0.01463 9.21 8.00 4 6.4185 84 0.00487 15.35 8.00 2 6.4244 85 0.01463 9.33 8.00 4 6.4419 86 0.01598 4.34 16.00 3 6.4865 87 0.00419 18.92 8.00 2 6.4892 88 0.01601 4.22 16.00 3 6.5235 89 0.00561 11.21 16.00 3 6.5443 92 0.00503 12.55 16.00 3 6.6273 93 0.01558 4.73 16.00 4 6.6270 95 0.01563 4.66 16.00 4 6.6590 97 0.00585 4.85 16.00 3 6.6912 99 0.00580 4.82 16.00 3 6.7638 100 0.00780 4.51 8.00 4 6.7654 103 0.00487 9.07 16.00 3 6.7827 106 0.00577 10.01 8.00 2 6.8286 107 0.00577 41.66 16.00 3 6.8292 108 0.00577 45.78 8.00 4 6.8297 109 0.00421 9.67 16.00 3 6.8398 111 0.00421 9.41 16.00 3 6.9158 112 0.00268 8.32 8.00 3 6.9225 113 0.00268 6.40 8.00 4 6.9225 78/ 105 paths used xsedge+100, used to normalize mu 2.5363E-04 ----------------------------------------------------------------------- e, e(wrt edge), k, mu=(1+chi)*mu0, mu0, chi @# 8980.718 -10.457 -1.150 3.73357E-02 4.14255E-02 -9.87265E-02 8981.151 -10.024 -1.100 3.99826E-02 4.47741E-02 -1.07013E-01 8981.557 -9.618 -1.050 4.28659E-02 4.84749E-02 -1.15709E-01 8981.944 -9.231 -1.000 4.60743E-02 5.26556E-02 -1.24987E-01 8982.330 -8.845 -0.950 4.98621E-02 5.76719E-02 -1.35417E-01 8982.664 -8.511 -0.900 5.37318E-02 6.28821E-02 -1.45515E-01 8982.997 -8.178 -0.850 5.83316E-02 6.91811E-02 -1.56828E-01 8983.330 -7.845 -0.800 6.38960E-02 7.69447E-02 -1.69585E-01 8983.619 -7.556 -0.750 6.97520E-02 8.52715E-02 -1.82001E-01 8983.898 -7.278 -0.700 7.66581E-02 9.52799E-02 -1.95443E-01 8984.151 -7.025 -0.650 8.43448E-02 1.06635E-01 -2.09030E-01 8984.392 -6.784 -0.600 9.33678E-02 1.20215E-01 -2.23325E-01 8984.603 -6.572 -0.550 1.03125E-01 1.35156E-01 -2.36995E-01 8984.815 -6.360 -0.500 1.15157E-01 1.53868E-01 -2.51586E-01 8984.978 -6.197 -0.450 1.26407E-01 1.71565E-01 -2.63214E-01 8985.137 -6.038 -0.400 1.39450E-01 1.92218E-01 -2.74522E-01 8985.296 -5.879 -0.350 1.54862E-01 2.16649E-01 -2.85196E-01 8985.372 -5.803 -0.300 1.63129E-01 2.29707E-01 -2.89839E-01 8985.426 -5.749 -0.250 1.69323E-01 2.39448E-01 -2.92858E-01 8985.480 -5.696 -0.200 1.75813E-01 2.49601E-01 -2.95625E-01 8985.533 -5.642 -0.150 1.82589E-01 2.60136E-01 -2.98100E-01 8985.587 -5.588 -0.100 1.89637E-01 2.71006E-01 -3.00249E-01 8985.640 -5.535 -0.050 1.96935E-01 2.82159E-01 -3.02043E-01 8985.694 -5.481 0.000 2.04455E-01 2.93528E-01 -3.03456E-01 8985.748 -5.427 0.050 2.12165E-01 3.05041E-01 -3.04471E-01 8985.801 -5.374 0.100 2.20027E-01 3.16621E-01 -3.05078E-01 8985.875 -5.300 0.150 2.31046E-01 3.32558E-01 -3.05244E-01 8985.973 -5.203 0.200 2.45672E-01 3.53133E-01 -3.04306E-01 8986.070 -5.105 0.250 2.60259E-01 3.72933E-01 -3.02131E-01 8986.167 -5.008 0.300 2.74631E-01 3.91672E-01 -2.98825E-01 8986.264 -4.911 0.350 2.88674E-01 4.09177E-01 -2.94501E-01 8986.386 -4.789 0.400 3.05749E-01 4.29307E-01 -2.87808E-01 8986.560 -4.615 0.450 3.28949E-01 4.54531E-01 -2.76290E-01 8986.734 -4.442 0.500 3.50909E-01 4.76187E-01 -2.63086E-01 8986.929 -4.246 0.550 3.74217E-01 4.97050E-01 -2.47124E-01 8987.152 -4.024 0.600 3.98983E-01 5.17279E-01 -2.28690E-01 8987.382 -3.793 0.650 4.22576E-01 5.35240E-01 -2.10492E-01 8987.644 -3.531 0.700 4.46748E-01 5.52962E-01 -1.92082E-01 8987.920 -3.255 0.750 4.68945E-01 5.69350E-01 -1.76350E-01 8988.231 -2.944 0.800 4.89684E-01 5.85751E-01 -1.64006E-01 8988.542 -2.633 0.850 5.05788E-01 6.00557E-01 -1.57802E-01 8988.857 -2.318 0.900 5.17335E-01 6.14336E-01 -1.57896E-01 8989.224 -1.951 0.950 5.24665E-01 6.29212E-01 -1.66155E-01 8989.592 -1.584 1.000 5.25346E-01 6.43081E-01 -1.83079E-01 8989.976 -1.199 1.050 5.19828E-01 6.56732E-01 -2.08463E-01 8990.392 -0.783 1.100 5.10182E-01 6.70689E-01 -2.39317E-01 8990.809 -0.367 1.150 5.03245E-01 6.83935E-01 -2.64191E-01 8991.266 0.091 1.200 5.07641E-01 6.97788E-01 -2.72500E-01 8991.726 0.551 1.250 5.31129E-01 7.11055E-01 -2.53041E-01 8992.217 1.042 1.300 5.77908E-01 7.24558E-01 -2.02399E-01 8992.716 1.541 1.350 6.42597E-01 7.37682E-01 -1.28896E-01 8993.244 2.069 1.400 7.19164E-01 7.50913E-01 -4.22803E-02 8993.781 2.606 1.450 7.94888E-01 7.63726E-01 4.08022E-02 8994.349 3.173 1.500 8.63684E-01 7.76633E-01 1.12088E-01 8994.925 3.749 1.550 9.15982E-01 7.89075E-01 1.60831E-01 8995.528 4.353 1.600 9.49979E-01 8.01427E-01 1.85359E-01 8996.147 4.971 1.650 9.64527E-01 8.13400E-01 1.85797E-01 8996.781 5.606 1.700 9.63191E-01 8.24966E-01 1.67552E-01 8997.442 6.267 1.750 9.51894E-01 8.36291E-01 1.38233E-01 8998.117 6.942 1.800 9.38210E-01 8.47103E-01 1.07551E-01 8998.809 7.634 1.850 9.29431E-01 8.57416E-01 8.39915E-02 8999.527 8.352 1.900 9.31096E-01 8.67325E-01 7.35268E-02 9000.261 9.085 1.950 9.45878E-01 8.76639E-01 7.89813E-02 9001.011 9.836 2.000 9.73318E-01 8.85333E-01 9.93805E-02 9001.781 10.606 2.050 1.01055E+00 8.93347E-01 1.31198E-01 9002.574 11.399 2.100 1.05275E+00 9.00577E-01 1.68974E-01 9003.384 12.209 2.150 1.09298E+00 9.06864E-01 2.05226E-01 9004.212 13.037 2.200 1.12439E+00 9.12424E-01 2.32312E-01 9005.059 13.884 2.250 1.14256E+00 9.17797E-01 2.44897E-01 9005.925 14.750 2.300 1.14882E+00 9.23619E-01 2.43820E-01 9006.810 15.635 2.350 1.14936E+00 9.30314E-01 2.35454E-01 9007.716 16.540 2.400 1.14743E+00 9.37890E-01 2.23413E-01 9008.640 17.465 2.450 1.14273E+00 9.45997E-01 2.07960E-01 9009.583 18.408 2.500 1.13422E+00 9.54282E-01 1.88559E-01 9010.545 19.370 2.550 1.12111E+00 9.62459E-01 1.64840E-01 9011.526 20.351 2.600 1.10312E+00 9.70274E-01 1.36916E-01 9012.526 21.351 2.650 1.08063E+00 9.77488E-01 1.05517E-01 9013.546 22.370 2.700 1.05475E+00 9.83950E-01 7.19505E-02 9014.583 23.408 2.750 1.02733E+00 9.89670E-01 3.80549E-02 9015.640 24.465 2.800 1.00047E+00 9.94725E-01 5.77620E-03 9016.716 25.541 2.850 9.75880E-01 9.99115E-01 -2.32557E-02 9017.839 26.662 2.900 9.54263E-01 1.00290E+00 -4.84947E-02 9018.966 27.788 2.950 9.37223E-01 1.00623E+00 -6.85785E-02 9020.094 28.914 3.000 9.24763E-01 1.00929E+00 -8.37473E-02 9021.221 30.040 3.050 9.16185E-01 1.01199E+00 -9.46689E-02 9022.416 31.234 3.100 9.10085E-01 1.01418E+00 -1.02641E-01 9023.618 32.436 3.150 9.06015E-01 1.01597E+00 -1.08223E-01 9024.821 33.638 3.200 9.03278E-01 1.01753E+00 -1.12283E-01 9026.023 34.840 3.250 9.01402E-01 1.01880E+00 -1.15232E-01 9027.293 36.111 3.300 9.00179E-01 1.01958E+00 -1.17105E-01 9028.570 37.389 3.350 9.00546E-01 1.02001E+00 -1.17125E-01 9029.848 38.668 3.400 9.03580E-01 1.02030E+00 -1.14398E-01 9031.125 39.946 3.450 9.09942E-01 1.02042E+00 -1.08266E-01 9032.472 41.292 3.500 9.20218E-01 1.02024E+00 -9.80348E-02 9033.827 42.647 3.550 9.34344E-01 1.01987E+00 -8.38604E-02 9035.182 44.001 3.600 9.51607E-01 1.01941E+00 -6.65159E-02 9036.537 45.356 3.650 9.70421E-01 1.01884E+00 -4.75262E-02 9037.959 46.779 3.700 9.89604E-01 1.01802E+00 -2.79091E-02 9039.389 48.210 3.750 1.00697E+00 1.01706E+00 -9.91508E-03 9040.819 49.640 3.800 1.02129E+00 1.01604E+00 5.16030E-03 9042.249 51.071 3.850 1.03164E+00 1.01499E+00 1.64123E-02 9043.749 52.570 3.900 1.03779E+00 1.01381E+00 2.36496E-02 9045.256 54.077 3.950 1.03956E+00 1.01259E+00 2.66332E-02 9046.764 55.584 4.000 1.03757E+00 1.01136E+00 2.59178E-02 9048.271 57.091 4.050 1.03260E+00 1.01014E+00 2.22339E-02 9049.846 58.666 4.100 1.02534E+00 1.00892E+00 1.62734E-02 9051.428 60.249 4.150 1.01704E+00 1.00772E+00 9.25243E-03 9053.011 61.832 4.200 1.00893E+00 1.00653E+00 2.38817E-03 9054.593 63.415 4.250 1.00238E+00 1.00538E+00 -2.98247E-03 9056.245 65.067 4.300 9.98742E-01 1.00431E+00 -5.54106E-03 9057.905 66.726 4.350 9.99081E-01 1.00329E+00 -4.19577E-03 9059.565 68.385 4.400 1.00372E+00 1.00230E+00 1.42143E-03 9061.225 70.045 4.450 1.01243E+00 1.00136E+00 1.10517E-02 9062.952 71.772 4.500 1.02479E+00 1.00056E+00 2.42158E-02 9064.687 73.508 4.550 1.03882E+00 9.99842E-01 3.89876E-02 9066.422 75.243 4.600 1.05247E+00 9.99153E-01 5.33665E-02 9068.157 76.979 4.650 1.06387E+00 9.98527E-01 6.54420E-02 9069.961 78.783 4.700 1.07191E+00 9.98069E-01 7.39840E-02 9071.774 80.594 4.750 1.07513E+00 9.97699E-01 7.76114E-02 9073.586 82.406 4.800 1.07324E+00 9.97360E-01 7.60771E-02 9075.399 84.218 4.850 1.06668E+00 9.97077E-01 6.98076E-02 9077.279 86.098 4.900 1.05605E+00 9.96946E-01 5.92842E-02 9079.166 87.986 4.950 1.04216E+00 9.96891E-01 4.54127E-02 9081.054 89.874 5.000 1.02584E+00 9.96863E-01 2.90702E-02 9082.941 91.762 5.050 1.00807E+00 9.96886E-01 1.12148E-02 9084.898 93.718 5.100 9.89412E-01 9.97067E-01 -7.67697E-03 9086.863 95.682 5.150 9.71512E-01 9.97319E-01 -2.58763E-02 9088.828 97.646 5.200 9.55911E-01 9.97595E-01 -4.17840E-02 9090.793 99.610 5.250 9.44325E-01 9.97915E-01 -5.37020E-02 9092.825 101.643 5.300 9.38150E-01 9.98386E-01 -6.03334E-02 9094.865 103.683 5.350 9.38598E-01 9.98921E-01 -6.03878E-02 9096.905 105.723 5.400 9.45524E-01 9.99474E-01 -5.39785E-02 9098.945 107.764 5.450 9.57613E-01 1.00006E+00 -4.24428E-02 9101.052 109.872 5.500 9.73048E-01 1.00077E+00 -2.76959E-02 9103.167 111.989 5.550 9.88793E-01 1.00152E+00 -1.27052E-02 9105.282 114.105 5.600 1.00223E+00 1.00228E+00 -5.26891E-05 9107.397 116.222 5.650 1.01158E+00 1.00306E+00 8.49049E-03 9109.581 118.407 5.700 1.01640E+00 1.00393E+00 1.24195E-02 9111.774 120.599 5.750 1.01702E+00 1.00483E+00 1.21366E-02 9113.966 122.792 5.800 1.01487E+00 1.00572E+00 9.09754E-03 9116.159 124.985 5.850 1.01162E+00 1.00662E+00 4.97312E-03 9118.421 127.246 5.900 1.00849E+00 1.00754E+00 9.42394E-04 9120.691 129.515 5.950 1.00609E+00 1.00845E+00 -2.34440E-03 9122.961 131.784 6.000 1.00424E+00 1.00937E+00 -5.07865E-03 9125.231 134.053 6.050 1.00228E+00 1.01026E+00 -7.89905E-03 9127.568 136.390 6.100 9.99512E-01 1.01112E+00 -1.14836E-02 9129.913 138.735 6.150 9.96025E-01 1.01196E+00 -1.57478E-02 9132.258 141.080 6.200 9.92623E-01 1.01279E+00 -1.99096E-02 9134.603 143.425 6.250 9.90668E-01 1.01358E+00 -2.26092E-02 9137.017 145.838 6.300 9.91634E-01 1.01430E+00 -2.23438E-02 9139.440 148.260 6.350 9.96715E-01 1.01497E+00 -1.79846E-02 9141.862 150.681 6.400 1.00593E+00 1.01562E+00 -9.54536E-03 9144.285 153.103 6.450 1.01800E+00 1.01624E+00 1.72910E-03 9146.774 155.592 6.500 1.03089E+00 1.01673E+00 1.39315E-02 9149.272 158.090 6.550 1.04189E+00 1.01716E+00 2.43116E-02 9151.769 160.587 6.600 1.04885E+00 1.01757E+00 3.07459E-02 9154.267 163.085 6.650 1.05074E+00 1.01793E+00 3.22375E-02 9156.831 165.650 6.700 1.04777E+00 1.01811E+00 2.91248E-02 9159.404 168.224 6.750 1.04146E+00 1.01823E+00 2.28145E-02 9161.976 170.798 6.800 1.03396E+00 1.01831E+00 1.53643E-02 9164.549 173.372 6.850 1.02718E+00 1.01832E+00 8.69667E-03 9167.242 176.065 6.900 1.02188E+00 1.01800E+00 3.81782E-03 9169.949 178.772 6.950 1.01837E+00 1.01755E+00 8.08013E-04 9172.656 181.479 7.000 1.01580E+00 1.01708E+00 -1.25663E-03 9175.363 184.186 7.050 1.01301E+00 1.01660E+00 -3.52424E-03 9178.070 186.893 7.100 1.00926E+00 1.01611E+00 -6.74330E-03 9180.777 189.600 7.150 1.00464E+00 1.01561E+00 -1.08089E-02 9183.484 192.307 7.200 1.00018E+00 1.01511E+00 -1.47036E-02 9186.191 195.014 7.250 9.97474E-01 1.01460E+00 -1.68777E-02 9188.898 197.722 7.300 9.97918E-01 1.01407E+00 -1.59243E-02 9191.605 200.429 7.350 1.00197E+00 1.01345E+00 -1.13272E-02 9194.483 203.306 7.400 1.00886E+00 1.01240E+00 -3.50284E-03 9197.381 206.204 7.450 1.01693E+00 1.01121E+00 5.65837E-03 9200.279 209.101 7.500 1.02385E+00 1.01000E+00 1.37182E-02 9203.177 211.999 7.550 1.02734E+00 1.00877E+00 1.84104E-02 9206.075 214.897 7.600 1.02611E+00 1.00754E+00 1.84350E-02 9208.973 217.794 7.650 1.02032E+00 1.00630E+00 1.39264E-02 9211.871 220.692 7.700 1.01149E+00 1.00506E+00 6.39281E-03 9214.769 223.589 7.750 1.00197E+00 1.00382E+00 -1.84323E-03 9217.667 226.487 7.800 9.94058E-01 1.00257E+00 -8.48812E-03 9220.565 229.385 7.850 9.89194E-01 1.00129E+00 -1.20800E-02 9223.633 232.453 7.900 9.87353E-01 9.99798E-01 -1.24468E-02 9226.721 235.541 7.950 9.87730E-01 9.98250E-01 -1.05391E-02 9229.809 238.629 8.000 9.88613E-01 9.96696E-01 -8.10971E-03 9232.897 241.717 8.050 9.88418E-01 9.95138E-01 -6.75283E-03 9235.985 244.805 8.100 9.86392E-01 9.93579E-01 -7.23320E-03 9239.073 247.893 8.150 9.82928E-01 9.92019E-01 -9.16394E-03 9242.161 250.981 8.200 9.79381E-01 9.90460E-01 -1.11850E-02 9245.249 254.069 8.250 9.77460E-01 9.88902E-01 -1.15703E-02 9248.337 257.157 8.300 9.78449E-01 9.87351E-01 -9.01603E-03 9251.425 260.246 8.350 9.82547E-01 9.85830E-01 -3.33077E-03 9254.683 263.504 8.400 9.88970E-01 9.84400E-01 4.64219E-03 9257.962 266.783 8.450 9.95538E-01 9.83016E-01 1.27388E-02 9261.241 270.061 8.500 9.99997E-01 9.81640E-01 1.87005E-02 9264.520 273.340 8.550 1.00070E+00 9.80268E-01 2.08381E-02 9267.799 276.618 8.600 9.97158E-01 9.78899E-01 1.86523E-02 9271.078 279.897 8.650 9.90261E-01 9.77533E-01 1.30209E-02 9274.357 283.176 8.700 9.81894E-01 9.76170E-01 5.86397E-03 9277.636 286.454 8.750 9.74249E-01 9.74814E-01 -5.79050E-04 9280.915 289.733 8.800 9.69018E-01 9.73471E-01 -4.57464E-03 9284.194 293.011 8.850 9.66843E-01 9.72198E-01 -5.50743E-03 9287.643 296.460 8.900 9.67418E-01 9.71262E-01 -3.95793E-03 9291.112 299.929 8.950 9.68958E-01 9.70444E-01 -1.53102E-03 9294.581 303.398 9.000 9.69589E-01 9.69644E-01 -5.65623E-05 9298.050 306.867 9.050 9.68111E-01 9.68851E-01 -7.64015E-04 9301.519 310.336 9.100 9.64404E-01 9.68064E-01 -3.78101E-03 9304.988 313.805 9.150 9.59479E-01 9.67280E-01 -8.06480E-03 9308.457 317.274 9.200 9.55084E-01 9.66501E-01 -1.18127E-02 9311.926 320.743 9.250 9.52992E-01 9.65728E-01 -1.31878E-02 9315.395 324.212 9.300 9.54282E-01 9.64968E-01 -1.10740E-02 9318.864 327.681 9.350 9.58867E-01 9.64271E-01 -5.60351E-03 9322.503 331.321 9.400 9.65907E-01 9.63924E-01 2.05687E-03 9326.162 334.980 9.450 9.73041E-01 9.63690E-01 9.70336E-03 9329.821 338.640 9.500 9.78134E-01 9.63471E-01 1.52188E-02 9333.480 342.300 9.550 9.79810E-01 9.63259E-01 1.71819E-02 9337.139 345.959 9.600 9.77813E-01 9.63051E-01 1.53280E-02 9340.798 349.619 9.650 9.73030E-01 9.62845E-01 1.05781E-02 9344.457 353.278 9.700 9.67099E-01 9.62642E-01 4.62961E-03 9348.116 356.938 9.750 9.61758E-01 9.62442E-01 -7.10039E-04 9351.775 360.598 9.800 9.58224E-01 9.62247E-01 -4.18022E-03 9355.434 364.257 9.850 9.56819E-01 9.62075E-01 -5.46300E-03 9359.264 368.087 9.900 9.57081E-01 9.62044E-01 -5.15883E-03 9363.114 371.937 9.950 9.57777E-01 9.62056E-01 -4.44796E-03 9366.964 375.787 10.000 9.57738E-01 9.62074E-01 -4.50777E-03 9370.813 379.637 10.050 9.56396E-01 9.62095E-01 -5.92263E-03 9374.663 383.487 10.100 9.54012E-01 9.62116E-01 -8.42273E-03 9378.513 387.336 10.150 9.51564E-01 9.62137E-01 -1.09886E-02 9382.363 391.186 10.200 9.50343E-01 9.62158E-01 -1.22803E-02 9386.212 395.036 10.250 9.51392E-01 9.62178E-01 -1.12106E-02 9390.062 398.886 10.300 9.55049E-01 9.62196E-01 -7.42734E-03 9393.912 402.736 10.350 9.60719E-01 9.62198E-01 -1.53736E-03 9397.933 406.756 10.400 9.67157E-01 9.62098E-01 5.25922E-03 9401.974 410.797 10.450 9.72737E-01 9.61967E-01 1.11958E-02 9406.015 414.838 10.500 9.76146E-01 9.61833E-01 1.48815E-02 9410.056 418.878 10.550 9.76734E-01 9.61697E-01 1.56363E-02 9414.097 422.919 10.600 9.74702E-01 9.61559E-01 1.36686E-02 9418.138 426.959 10.650 9.70954E-01 9.61420E-01 9.91648E-03 9422.179 431.000 10.700 9.66695E-01 9.61279E-01 5.63393E-03 9426.220 435.041 10.750 9.62963E-01 9.61136E-01 1.90076E-03 9430.261 439.081 10.800 9.60274E-01 9.60986E-01 -7.41200E-04 9434.302 443.122 10.850 9.58513E-01 9.60805E-01 -2.38544E-03 9438.513 447.333 10.900 9.56925E-01 9.60391E-01 -3.60872E-03 9442.744 451.564 10.950 9.55063E-01 9.59913E-01 -5.05306E-03 9446.975 455.795 11.000 9.52646E-01 9.59428E-01 -7.06899E-03 9451.206 460.026 11.050 9.49877E-01 9.58939E-01 -9.45034E-03 9455.437 464.257 11.100 9.47456E-01 9.58449E-01 -1.14688E-02 9459.668 468.488 11.150 9.46309E-01 9.57956E-01 -1.21586E-02 9463.899 472.719 11.200 9.47182E-01 9.57461E-01 -1.07366E-02 9468.130 476.950 11.250 9.50282E-01 9.56964E-01 -6.98223E-03 9472.361 481.181 11.300 9.55105E-01 9.56462E-01 -1.41820E-03 9476.592 485.413 11.350 9.60483E-01 9.55933E-01 4.75989E-03 9481.163 489.984 11.400 9.65018E-01 9.55154E-01 1.03266E-02 9485.775 494.596 11.450 9.67477E-01 9.54316E-01 1.37919E-02 9490.387 499.208 11.500 9.67262E-01 9.53470E-01 1.44650E-02 9494.999 503.821 11.550 9.64461E-01 9.52622E-01 1.24271E-02 9499.611 508.433 11.600 9.59844E-01 9.51773E-01 8.48032E-03 9504.223 513.045 11.650 9.54576E-01 9.50923E-01 3.84142E-03 9508.835 517.657 11.700 9.49792E-01 9.50072E-01 -2.94179E-04 9513.447 522.269 11.750 9.46237E-01 9.49220E-01 -3.14228E-03 9518.059 526.881 11.800 9.44070E-01 9.48368E-01 -4.53183E-03 9522.671 531.493 11.850 9.42915E-01 9.47516E-01 -4.85526E-03 9527.283 536.105 11.900 9.42114E-01 9.46663E-01 -4.80505E-03 9531.895 540.717 11.950 9.41066E-01 9.45810E-01 -5.01610E-03 9536.507 545.329 12.000 9.39510E-01 9.44957E-01 -5.76442E-03 9541.119 549.942 12.050 9.37644E-01 9.44104E-01 -6.84276E-03 9545.731 554.554 12.100 9.36028E-01 9.43251E-01 -7.65735E-03 9550.343 559.166 12.150 9.35331E-01 9.42398E-01 -7.49840E-03 9554.955 563.778 12.200 9.36019E-01 9.41544E-01 -5.86860E-03 9559.567 568.390 12.250 9.38120E-01 9.40691E-01 -2.73336E-03 9564.179 573.002 12.300 9.41161E-01 9.39837E-01 1.40836E-03 9568.791 577.614 12.350 9.44299E-01 9.38984E-01 5.66024E-03 9573.403 582.226 12.400 9.46590E-01 9.38131E-01 9.01734E-03 9578.015 586.838 12.450 9.47302E-01 9.37278E-01 1.06956E-02 9582.627 591.450 12.500 9.46143E-01 9.36425E-01 1.03782E-02 9587.239 596.063 12.550 9.43330E-01 9.35572E-01 8.29283E-03 9591.851 600.675 12.600 9.39487E-01 9.34720E-01 5.10016E-03 9596.463 605.287 12.650 9.35407E-01 9.33868E-01 1.64758E-03 9601.075 609.899 12.700 9.31793E-01 9.33018E-01 -1.31260E-03 9605.687 614.511 12.750 9.29061E-01 9.32170E-01 -3.33564E-03 9610.299 619.123 12.800 9.27268E-01 9.31328E-01 -4.35846E-03 9614.911 623.735 12.850 9.26208E-01 9.30515E-01 -4.62891E-03 9619.949 628.773 12.900 9.25670E-01 9.29887E-01 -4.53476E-03 9625.038 633.861 12.950 9.25263E-01 9.29317E-01 -4.36228E-03 9630.126 638.950 13.000 9.24820E-01 9.28753E-01 -4.23512E-03 9635.215 644.038 13.050 9.24424E-01 9.28192E-01 -4.05930E-03 9640.303 649.126 13.100 9.24291E-01 9.27632E-01 -3.60256E-03 9645.392 654.215 13.150 9.24624E-01 9.27074E-01 -2.64184E-03 9650.480 659.303 13.200 9.25490E-01 9.26515E-01 -1.10717E-03 9655.569 664.391 13.250 9.26739E-01 9.25958E-01 8.43663E-04 9660.657 669.480 13.300 9.28039E-01 9.25400E-01 2.85207E-03 9665.746 674.568 13.350 9.28981E-01 9.24843E-01 4.47528E-03 9670.834 679.657 13.400 9.29223E-01 9.24285E-01 5.34261E-03 9675.923 684.745 13.450 9.28611E-01 9.23728E-01 5.28649E-03 9681.011 689.833 13.500 9.27229E-01 9.23171E-01 4.39564E-03 9686.100 694.922 13.550 9.25356E-01 9.22614E-01 2.97167E-03 9691.188 700.010 13.600 9.23358E-01 9.22057E-01 1.41044E-03 9696.277 705.098 13.650 9.21555E-01 9.21501E-01 5.91187E-05 9701.365 710.187 13.700 9.20121E-01 9.20944E-01 -8.93308E-04 9706.454 715.275 13.750 9.19052E-01 9.20387E-01 -1.45105E-03 9711.542 720.363 13.800 9.18208E-01 9.19831E-01 -1.76427E-03 9716.631 725.452 13.850 9.17415E-01 9.19277E-01 -2.02499E-03 9722.060 730.881 13.900 9.16523E-01 9.18703E-01 -2.37247E-03 9727.529 736.350 13.950 9.15564E-01 9.18128E-01 -2.79278E-03 9732.999 741.819 14.000 9.14674E-01 9.17554E-01 -3.13903E-03 9738.468 747.288 14.050 9.14057E-01 9.16980E-01 -3.18788E-03 9743.938 752.758 14.100 9.13890E-01 9.16406E-01 -2.74646E-03 9749.407 758.227 14.150 9.14226E-01 9.15833E-01 -1.75454E-03 9754.877 763.696 14.200 9.14952E-01 9.15259E-01 -3.35490E-04 9760.346 769.166 14.250 9.15807E-01 9.14685E-01 1.22690E-03 9765.816 774.635 14.300 9.16467E-01 9.14111E-01 2.57748E-03 9771.285 780.104 14.350 9.16651E-01 9.13537E-01 3.40948E-03 9776.755 785.574 14.400 9.16219E-01 9.12962E-01 3.56729E-03 9782.224 791.043 14.450 9.15210E-01 9.12388E-01 3.09265E-03 9787.694 796.512 14.500 9.13817E-01 9.11813E-01 2.19784E-03 9793.163 801.981 14.550 9.12313E-01 9.11238E-01 1.17916E-03 9798.633 807.451 14.600 9.10943E-01 9.10663E-01 3.06920E-04 9804.102 812.920 14.650 9.09847E-01 9.10087E-01 -2.64302E-04 9809.572 818.389 14.700 9.09027E-01 9.09511E-01 -5.31929E-04 9815.041 823.859 14.750 9.08371E-01 9.08933E-01 -6.17975E-04 9820.511 829.328 14.800 9.07721E-01 9.08352E-01 -6.94105E-04 9825.980 834.797 14.850 9.06942E-01 9.07752E-01 -8.92068E-04 9831.790 840.607 14.900 9.05792E-01 9.06930E-01 -1.25449E-03 9837.640 846.458 14.950 9.04527E-01 9.06059E-01 -1.69141E-03 9843.490 852.308 15.000 9.03339E-01 9.05185E-01 -2.03906E-03 9849.340 858.158 15.050 9.02391E-01 9.04309E-01 -2.12105E-03 9855.190 864.009 15.100 9.01785E-01 9.03432E-01 -1.82267E-03 9861.040 869.859 15.150 9.01522E-01 9.02554E-01 -1.14332E-03 9866.890 875.709 15.200 9.01492E-01 9.01677E-01 -2.04636E-04 9872.740 881.560 15.250 9.01508E-01 9.00799E-01 7.88133E-04 9878.590 887.410 15.300 9.01373E-01 8.99920E-01 1.61483E-03 9884.440 893.260 15.350 9.00940E-01 8.99042E-01 2.11171E-03 9890.290 899.111 15.400 9.00156E-01 8.98163E-01 2.21821E-03 9896.140 904.961 15.450 8.99064E-01 8.97285E-01 1.98318E-03 9901.990 910.811 15.500 8.97779E-01 8.96406E-01 1.53166E-03 9907.840 916.662 15.550 8.96431E-01 8.95528E-01 1.00887E-03 9913.690 922.512 15.600 8.95120E-01 8.94649E-01 5.25770E-04 9919.540 928.362 15.650 8.93885E-01 8.93771E-01 1.27759E-04 9925.390 934.213 15.700 8.92712E-01 8.92893E-01 -2.03035E-04 9931.240 940.063 15.750 8.91555E-01 8.92016E-01 -5.16803E-04 9937.090 945.914 15.800 8.90380E-01 8.91140E-01 -8.53101E-04 9942.940 951.764 15.850 8.89200E-01 8.90274E-01 -1.20664E-03 9949.131 957.955 15.900 8.88092E-01 8.89457E-01 -1.53485E-03 9955.363 964.186 15.950 8.87125E-01 8.88658E-01 -1.72512E-03 9961.595 970.417 16.000 8.86367E-01 8.87860E-01 -1.68237E-03 9967.827 976.649 16.050 8.85854E-01 8.87063E-01 -1.36347E-03 9974.059 982.880 16.100 8.85556E-01 8.86267E-01 -8.01769E-04 9980.291 989.111 16.150 8.85380E-01 8.85471E-01 -1.03004E-04 9986.523 995.343 16.200 8.85194E-01 8.84675E-01 5.86936E-04 9992.755 1001.574 16.250 8.84877E-01 8.83879E-01 1.12922E-03 9998.987 1007.805 16.300 8.84351E-01 8.83083E-01 1.43523E-03 10005.219 1014.037 16.350 8.83602E-01 8.82288E-01 1.48895E-03 10011.451 1020.268 16.400 8.82675E-01 8.81492E-01 1.34126E-03 10017.683 1026.499 16.450 8.81649E-01 8.80697E-01 1.08055E-03 10023.915 1032.730 16.500 8.80600E-01 8.79902E-01 7.93357E-04 10030.147 1038.962 16.550 8.79575E-01 8.79107E-01 5.32227E-04 10036.379 1045.193 16.600 8.78579E-01 8.78312E-01 3.03275E-04 10042.611 1051.424 16.650 8.77586E-01 8.77518E-01 7.70579E-05 10048.843 1057.656 16.700 8.76563E-01 8.76724E-01 -1.84188E-04 10055.075 1063.887 16.750 8.75497E-01 8.75932E-01 -4.96529E-04 10061.307 1070.118 16.800 8.74411E-01 8.75142E-01 -8.35729E-04 10067.539 1076.350 16.850 8.73374E-01 8.74369E-01 -1.13886E-03 10074.109 1082.922 16.900 8.72574E-01 8.73742E-01 -1.33664E-03 10080.719 1089.534 16.950 8.71975E-01 8.73151E-01 -1.34661E-03 10087.329 1096.147 17.000 8.71575E-01 8.72564E-01 -1.13277E-03 10093.939 1102.759 17.050 8.71353E-01 8.71978E-01 -7.17061E-04 10100.549 1109.372 17.100 8.71238E-01 8.71393E-01 -1.77344E-04 10107.159 1115.984 17.150 8.71134E-01 8.70808E-01 3.74705E-04 10113.769 1122.597 17.200 8.70943E-01 8.70223E-01 8.27491E-04 10120.379 1129.209 17.250 8.70597E-01 8.69639E-01 1.10230E-03 10126.989 1135.822 17.300 8.70074E-01 8.69054E-01 1.17299E-03 10133.599 1142.434 17.350 8.69396E-01 8.68470E-01 1.06633E-03 10140.209 1149.047 17.400 8.68619E-01 8.67886E-01 8.44541E-04 10146.819 1155.659 17.450 8.67804E-01 8.67302E-01 5.78484E-04 10153.429 1162.272 17.500 8.66998E-01 8.66718E-01 3.22798E-04 10160.039 1168.884 17.550 8.66222E-01 8.66134E-01 1.02381E-04 10166.649 1175.497 17.600 8.65475E-01 8.65549E-01 -8.59697E-05 10173.259 1182.109 17.650 8.64740E-01 8.64965E-01 -2.59650E-04 10179.869 1188.722 17.700 8.64007E-01 8.64380E-01 -4.31942E-04 10186.479 1195.334 17.750 8.63279E-01 8.63795E-01 -5.98338E-04 10193.089 1201.947 17.800 8.62576E-01 8.63210E-01 -7.33743E-04 10199.699 1208.559 17.850 8.61928E-01 8.62619E-01 -8.01937E-04 10206.654 1215.512 17.900 8.61277E-01 8.61944E-01 -7.73316E-04 10213.649 1222.505 17.950 8.60712E-01 8.61252E-01 -6.27473E-04 10220.644 1229.498 18.000 8.60235E-01 8.60560E-01 -3.78476E-04 10227.639 1236.491 18.050 8.59808E-01 8.59868E-01 -6.88486E-05 10234.634 1243.484 18.100 8.59383E-01 8.59175E-01 2.42598E-04 10241.629 1250.477 18.150 8.58909E-01 8.58482E-01 4.98175E-04 10248.624 1257.470 18.200 8.58353E-01 8.57788E-01 6.57670E-04 10255.619 1264.463 18.250 8.57702E-01 8.57095E-01 7.07659E-04 10262.614 1271.456 18.300 8.56968E-01 8.56402E-01 6.60855E-04 10269.609 1278.449 18.350 8.56176E-01 8.55708E-01 5.46791E-04 10276.604 1285.442 18.400 8.55355E-01 8.55015E-01 3.98466E-04 10283.599 1292.435 18.450 8.54527E-01 8.54321E-01 2.40825E-04 10290.594 1299.428 18.500 8.53700E-01 8.53627E-01 8.55851E-05 10297.589 1306.421 18.550 8.52877E-01 8.52934E-01 -6.62820E-05 10304.584 1313.414 18.600 8.52055E-01 8.52240E-01 -2.16661E-04 10311.579 1320.407 18.650 8.51238E-01 8.51546E-01 -3.61568E-04 10318.574 1327.400 18.700 8.50438E-01 8.50852E-01 -4.86328E-04 10325.569 1334.393 18.750 8.49675E-01 8.50158E-01 -5.67361E-04 10332.564 1341.386 18.800 8.48971E-01 8.49464E-01 -5.80072E-04 10339.559 1348.379 18.850 8.48338E-01 8.48770E-01 -5.09105E-04 10346.893 1355.713 18.900 8.47754E-01 8.48047E-01 -3.45419E-04 10354.268 1363.087 18.950 8.47231E-01 8.47320E-01 -1.05126E-04 10361.643 1370.462 19.000 8.46724E-01 8.46594E-01 1.53585E-04 10369.018 1377.836 19.050 8.46174E-01 8.45867E-01 3.62956E-04 10376.393 1385.211 19.100 8.45543E-01 8.45141E-01 4.75362E-04 10383.768 1392.585 19.150 8.44821E-01 8.44414E-01 4.81436E-04 10391.143 1399.960 19.200 8.44032E-01 8.43688E-01 4.08635E-04 10398.518 1407.334 19.250 8.43216E-01 8.42961E-01 3.02367E-04 10405.893 1414.709 19.300 8.42403E-01 8.42234E-01 2.01004E-04 10413.268 1422.083 19.350 8.41607E-01 8.41507E-01 1.18660E-04 10420.643 1429.458 19.400 8.40818E-01 8.40780E-01 4.43189E-05 10428.018 1436.832 19.450 8.40017E-01 8.40053E-01 -4.37418E-05 10435.393 1444.207 19.500 8.39194E-01 8.39327E-01 -1.57824E-04 10442.768 1451.581 19.550 8.38359E-01 8.38600E-01 -2.87182E-04 10450.143 1458.956 19.600 8.37539E-01 8.37873E-01 -3.98788E-04 10457.518 1466.330 19.650 8.36768E-01 8.37147E-01 -4.51934E-04 10464.893 1473.705 19.700 8.36071E-01 8.36421E-01 -4.18424E-04 10472.268 1481.079 19.750 8.35447E-01 8.35696E-01 -2.97447E-04 10479.643 1488.454 19.800 8.34875E-01 8.34974E-01 -1.17638E-04 10487.018 1495.828 19.850 8.34328E-01 8.34269E-01 7.10478E-05 10494.733 1503.543 19.900 8.33925E-01 8.33760E-01 1.97860E-04 10502.488 1511.299 19.950 8.33518E-01 8.33294E-01 2.68283E-04 10510.243 1519.054 20.000 8.33070E-01 8.32832E-01 2.86241E-04 10517.998 1526.810 20.050 8.32594E-01 8.32370E-01 2.69143E-04 10525.753 1534.565 20.100 8.32114E-01 8.31910E-01 2.45511E-04 10533.508 1542.321 20.150 8.31649E-01 8.31449E-01 2.40146E-04 10541.263 1550.076 20.200 8.31205E-01 8.30989E-01 2.60899E-04 10549.018 1557.832 20.250 8.30773E-01 8.30528E-01 2.94622E-04 10556.773 1565.587 20.300 8.30328E-01 8.30067E-01 3.14534E-04 10564.528 1573.343 20.350 8.29851E-01 8.29606E-01 2.95097E-04 10572.283 1581.098 20.400 8.29333E-01 8.29145E-01 2.26531E-04 10580.038 1588.854 20.450 8.28784E-01 8.28683E-01 1.21192E-04 10587.793 1596.609 20.500 8.28229E-01 8.28222E-01 8.34537E-06 10595.548 1604.365 20.550 8.27693E-01 8.27760E-01 -7.99715E-05 10603.303 1612.120 20.600 8.27194E-01 8.27297E-01 -1.24566E-04 10611.058 1619.876 20.650 8.26729E-01 8.26834E-01 -1.27891E-04 10618.813 1627.631 20.700 8.26280E-01 8.26372E-01 -1.11369E-04 10626.568 1635.387 20.750 8.25824E-01 8.25909E-01 -1.02678E-04 10634.323 1643.142 20.800 8.25348E-01 8.25447E-01 -1.19908E-04 10642.078 1650.898 20.850 8.24861E-01 8.24994E-01 -1.61197E-04 10650.173 1658.994 20.900 8.24483E-01 8.24654E-01 -2.07094E-04 10658.308 1667.130 20.950 8.24155E-01 8.24338E-01 -2.22374E-04 10666.443 1675.266 21.000 8.23867E-01 8.24023E-01 -1.88977E-04 10674.578 1683.402 21.050 8.23620E-01 8.23707E-01 -1.06346E-04 10682.713 1691.538 21.100 8.23397E-01 8.23391E-01 7.04055E-06 10690.848 1699.674 21.150 8.23172E-01 8.23074E-01 1.19211E-04 10698.983 1707.810 21.200 8.22917E-01 8.22755E-01 1.96919E-04 10707.118 1715.946 21.250 8.22616E-01 8.22436E-01 2.19286E-04 10715.253 1724.082 21.300 8.22268E-01 8.22114E-01 1.86501E-04 10723.388 1732.218 21.350 8.21889E-01 8.21791E-01 1.19251E-04 10731.523 1740.354 21.400 8.21506E-01 8.21466E-01 4.88413E-05 10739.658 1748.490 21.450 8.21141E-01 8.21138E-01 2.44972E-06 10747.793 1756.626 21.500 8.20801E-01 8.20809E-01 -9.46856E-06 10755.928 1764.762 21.550 8.20478E-01 8.20476E-01 2.54669E-06 10764.063 1772.898 21.600 8.20151E-01 8.20140E-01 1.33313E-05 10772.198 1781.034 21.650 8.19799E-01 8.19801E-01 -2.76239E-06 10780.333 1789.170 21.700 8.19411E-01 8.19458E-01 -5.68080E-05 10788.468 1797.306 21.750 8.18998E-01 8.19110E-01 -1.36962E-04 10796.603 1805.442 21.800 8.18584E-01 8.18757E-01 -2.11543E-04 10804.738 1813.578 21.850 8.18197E-01 8.18399E-01 -2.46585E-04 ifeffit-1.2.11d/examples/diffkk/feff.inp0000755000175000017500000001743510771740461017066 0ustar segresegre TITLE Cu(1) edge of yttrium barium copper oxide ( 123 , ybco) TITLE structure from: Sharma, et al, Physica C 174, p.409, (1991) CONTROL 1 1 1 1 PRINT 1 0 0 0 HOLE 1 1.0 RMAX 6.95890 XANES 1 DEBYE 30 210 POTENTIALS 0 29 Cu 1 8 O 2 56 Ba 3 29 Cu 4 39 Y ATOMS 0.00000 0.00000 0.00000 0 Cu1 0.00000 0.00000 0.00000 -1.85965 1 O4 1.85965 0.00000 0.00000 1.85965 1 O4 1.85965 0.00000 1.94065 0.00000 1 O1 1.94065 0.00000 -1.94065 0.00000 1 O1 1.94065 1.90598 -1.94065 -2.14041 2 Ba1 3.46125 -1.90598 1.94065 -2.14041 2 Ba1 3.46125 1.90598 1.94065 -2.14041 2 Ba1 3.46125 -1.90598 1.94065 2.14041 2 Ba1 3.46125 1.90598 -1.94065 2.14041 2 Ba1 3.46125 1.90598 1.94065 2.14041 2 Ba1 3.46125 -1.90598 -1.94065 2.14041 2 Ba1 3.46125 -1.90598 -1.94065 -2.14041 2 Ba1 3.46125 -3.81196 0.00000 0.00000 3 Cu1 3.81196 3.81196 0.00000 0.00000 3 Cu1 3.81196 0.00000 3.88130 0.00000 3 Cu1 3.88130 0.00000 -3.88130 0.00000 3 Cu1 3.88130 0.00000 0.00000 4.12729 3 Cu2 4.12729 0.00000 0.00000 -4.12729 3 Cu2 4.12729 3.81196 0.00000 -1.85965 1 O4 4.24138 -3.81196 0.00000 -1.85965 1 O4 4.24138 -3.81196 0.00000 1.85965 1 O4 4.24138 3.81196 0.00000 1.85965 1 O4 4.24138 -3.81196 -1.94065 0.00000 1 O1 4.27752 -3.81196 1.94065 0.00000 1 O1 4.27752 3.81196 1.94065 0.00000 1 O1 4.27752 3.81196 -1.94065 0.00000 1 O1 4.27752 0.00000 -3.88130 -1.85965 1 O4 4.30381 0.00000 3.88130 1.85965 1 O4 4.30381 0.00000 3.88130 -1.85965 1 O4 4.30381 0.00000 -3.88130 1.85965 1 O4 4.30381 -1.90598 0.00000 -4.40270 1 O2 4.79756 1.90598 0.00000 4.40270 1 O2 4.79756 -1.90598 0.00000 4.40270 1 O2 4.79756 1.90598 0.00000 -4.40270 1 O2 4.79756 0.00000 1.94065 -4.40154 1 O3 4.81037 0.00000 -1.94065 4.40154 1 O3 4.81037 0.00000 1.94065 4.40154 1 O3 4.81037 0.00000 -1.94065 -4.40154 1 O3 4.81037 -3.81196 3.88130 0.00000 3 Cu1 5.44018 3.81196 -3.88130 0.00000 3 Cu1 5.44018 3.81196 3.88130 0.00000 3 Cu1 5.44018 -3.81196 -3.88130 0.00000 3 Cu1 5.44018 3.81196 0.00000 4.12729 3 Cu2 5.61833 -3.81196 0.00000 -4.12729 3 Cu2 5.61833 3.81196 0.00000 -4.12729 3 Cu2 5.61833 -3.81196 0.00000 4.12729 3 Cu2 5.61833 0.00000 3.88130 4.12729 3 Cu2 5.66560 0.00000 -3.88130 -4.12729 3 Cu2 5.66560 0.00000 3.88130 -4.12729 3 Cu2 5.66560 0.00000 -3.88130 4.12729 3 Cu2 5.66560 3.81196 -3.88130 1.85965 1 O4 5.74925 -3.81196 -3.88130 -1.85965 1 O4 5.74925 3.81196 3.88130 -1.85965 1 O4 5.74925 -3.81196 -3.88130 1.85965 1 O4 5.74925 3.81196 -3.88130 -1.85965 1 O4 5.74925 -3.81196 3.88130 -1.85965 1 O4 5.74925 -3.81196 3.88130 1.85965 1 O4 5.74925 3.81196 3.88130 1.85965 1 O4 5.74925 0.00000 -5.82195 0.00000 1 O1 5.82195 0.00000 5.82195 0.00000 1 O1 5.82195 3.81196 1.94065 -4.40154 1 O3 6.13765 -3.81196 -1.94065 -4.40154 1 O3 6.13765 3.81196 -1.94065 -4.40154 1 O3 6.13765 3.81196 1.94065 4.40154 1 O3 6.13765 3.81196 -1.94065 4.40154 1 O3 6.13765 -3.81196 -1.94065 4.40154 1 O3 6.13765 -3.81196 1.94065 4.40154 1 O3 6.13765 -3.81196 1.94065 -4.40154 1 O3 6.13765 1.90598 -3.88130 -4.40270 1 O2 6.17098 -1.90598 3.88130 4.40270 1 O2 6.17098 -1.90598 -3.88130 -4.40270 1 O2 6.17098 1.90598 3.88130 4.40270 1 O2 6.17098 1.90598 3.88130 -4.40270 1 O2 6.17098 -1.90598 -3.88130 4.40270 1 O2 6.17098 -1.90598 3.88130 -4.40270 1 O2 6.17098 1.90598 -3.88130 4.40270 1 O2 6.17098 5.71794 1.94065 2.14041 2 Ba1 6.40643 5.71794 1.94065 -2.14041 2 Ba1 6.40643 5.71794 -1.94065 2.14041 2 Ba1 6.40643 -5.71794 -1.94065 -2.14041 2 Ba1 6.40643 5.71794 -1.94065 -2.14041 2 Ba1 6.40643 -5.71794 -1.94065 2.14041 2 Ba1 6.40643 -5.71794 1.94065 2.14041 2 Ba1 6.40643 -5.71794 1.94065 -2.14041 2 Ba1 6.40643 1.90598 -1.94065 5.82014 4 Y1 6.42440 1.90598 -1.94065 -5.82014 4 Y1 6.42440 -1.90598 1.94065 -5.82014 4 Y1 6.42440 -1.90598 -1.94065 -5.82014 4 Y1 6.42440 1.90598 1.94065 5.82014 4 Y1 6.42440 1.90598 1.94065 -5.82014 4 Y1 6.42440 -1.90598 -1.94065 5.82014 4 Y1 6.42440 -1.90598 1.94065 5.82014 4 Y1 6.42440 1.90598 -5.82195 2.14041 2 Ba1 6.48916 1.90598 -5.82195 -2.14041 2 Ba1 6.48916 -1.90598 5.82195 2.14041 2 Ba1 6.48916 -1.90598 -5.82195 -2.14041 2 Ba1 6.48916 1.90598 5.82195 2.14041 2 Ba1 6.48916 1.90598 5.82195 -2.14041 2 Ba1 6.48916 -1.90598 5.82195 -2.14041 2 Ba1 6.48916 -1.90598 -5.82195 2.14041 2 Ba1 6.48916 3.81196 3.88130 4.12729 3 Cu2 6.82862 3.81196 -3.88130 4.12729 3 Cu2 6.82862 -3.81196 3.88130 4.12729 3 Cu2 6.82862 3.81196 3.88130 -4.12729 3 Cu2 6.82862 3.81196 -3.88130 -4.12729 3 Cu2 6.82862 -3.81196 3.88130 -4.12729 3 Cu2 6.82862 -3.81196 -3.88130 -4.12729 3 Cu2 6.82862 -3.81196 -3.88130 4.12729 3 Cu2 6.82862 -3.81196 -5.82195 0.00000 1 O1 6.95889 3.81196 -5.82195 0.00000 1 O1 6.95889 -3.81196 5.82195 0.00000 1 O1 6.95889 3.81196 5.82195 0.00000 1 O1 6.95889 END ifeffit-1.2.11d/examples/diffkk/fe-xafs.xmu0000644000175000017500000002263710771740461017531 0ustar segresegre# Saved on Fri Apr 29 14:10:05 2005 # Column list of vectors: E FLUO # Energy xmu 7050.0 10178 7051.0 10455 7052.0 10270 7053.0 10269 7054.0 10301 7055.0 10227 7056.0 10557 7057.0 10378 7058.0 10285 7059.0 10293 7060.0 10250 7061.0 10381 7062.0 10437 7063.0 10291 7064.0 10454 7065.0 10073 7066.0 10374 7067.0 10334 7068.0 10409 7069.0 10339 7070.0 10381 7071.0 10437 7072.0 10534 7073.0 10329 7074.0 10427 7075.0 10528 7076.0 10508 7077.0 10320 7078.0 10397 7079.0 10418 7080.0 10570 7081.0 10331 7082.0 10490 7083.0 10479 7084.0 10567 7085.0 10564 7086.0 10548 7087.0 10841 7088.0 10515 7089.0 10684 7090.0 10588 7091.0 10668 7092.0 10790 7093.0 10728 7094.0 10668 7095.0 10827 7096.0 10963 7097.0 10907 7098.0 10820 7099.0 11189 7100.0 11159 7101.0 11297 7102.0 11108 7103.0 11273 7104.0 11332 7105.0 11556 7106.0 11449 7107.0 11857 7108.0 12193 7109.0 12333 7110.0 12911 7111.0 14122 7112.0 17873 7113.0 22219 7114.0 20098 7115.0 18804 7116.0 19457 7117.0 20767 7118.0 23161 7119.0 27709 7120.0 36419 7121.0 49211 7122.0 61392 7123.0 73817 7124.0 86482 7125.0 1.0256e+05 7126.0 1.1705e+05 7127.0 1.2617e+05 7128.0 1.3387e+05 7129.0 1.4644e+05 7130.0 1.6274e+05 7131.0 1.7425e+05 7132.0 1.7243e+05 7133.0 1.6287e+05 7134.0 1.5232e+05 7135.0 1.4712e+05 7136.0 1.4444e+05 7137.0 1.4393e+05 7138.0 1.4438e+05 7139.0 1.4367e+05 7140.0 1.4003e+05 7141.0 1.3649e+05 7142.0 1.3350e+05 7143.0 1.3520e+05 7144.0 1.3582e+05 7145.0 1.3717e+05 7146.0 1.3619e+05 7147.0 1.3415e+05 7148.0 1.2994e+05 7149.0 1.2556e+05 7150.0 1.2258e+05 7151.0 1.2046e+05 7152.0 1.1862e+05 7153.0 1.1755e+05 7154.0 1.1594e+05 7155.0 1.1449e+05 7156.0 1.1276e+05 7157.0 1.1097e+05 7158.0 1.1018e+05 7159.0 1.0855e+05 7160.0 1.0928e+05 7161.0 1.0902e+05 7162.0 1.1016e+05 7163.0 1.1094e+05 7164.0 1.1188e+05 7165.0 1.1205e+05 7166.0 1.1353e+05 7167.0 1.1535e+05 7168.0 1.1586e+05 7169.0 1.1835e+05 7170.0 1.2013e+05 7171.0 1.2192e+05 7172.0 1.2322e+05 7173.0 1.2519e+05 7174.0 1.2601e+05 7175.0 1.2793e+05 7176.0 1.2918e+05 7177.0 1.2973e+05 7178.0 1.3111e+05 7179.0 1.3268e+05 7180.0 1.3306e+05 7181.0 1.3465e+05 7182.0 1.3434e+05 7183.0 1.3412e+05 7184.0 1.3404e+05 7185.0 1.3422e+05 7186.0 1.3460e+05 7187.0 1.3402e+05 7188.0 1.3403e+05 7189.0 1.3360e+05 7190.0 1.3370e+05 7191.0 1.3335e+05 7192.0 1.3285e+05 7193.0 1.3167e+05 7194.0 1.3147e+05 7195.0 1.3078e+05 7196.0 1.3091e+05 7197.0 1.3070e+05 7198.0 1.2953e+05 7199.0 1.2952e+05 7200.0 1.2955e+05 7201.0 1.2866e+05 7202.0 1.2845e+05 7203.0 1.2825e+05 7204.0 1.2798e+05 7205.0 1.2718e+05 7206.0 1.2719e+05 7207.0 1.2650e+05 7208.0 1.2707e+05 7209.0 1.2640e+05 7210.0 1.2701e+05 7211.0 1.2717e+05 7212.0 1.2721e+05 7213.0 1.2830e+05 7214.0 1.2799e+05 7215.0 1.2793e+05 7216.0 1.2817e+05 7217.0 1.2862e+05 7218.0 1.2858e+05 7219.0 1.2845e+05 7220.0 1.2892e+05 7221.0 1.2926e+05 7222.0 1.2920e+05 7223.0 1.2990e+05 7224.0 1.2973e+05 7225.0 1.2940e+05 7226.0 1.2921e+05 7227.0 1.2982e+05 7228.0 1.2967e+05 7229.0 1.2892e+05 7230.0 1.2883e+05 7231.0 1.2911e+05 7232.0 1.2891e+05 7233.0 1.2843e+05 7234.0 1.2741e+05 7235.0 1.2695e+05 7236.0 1.2726e+05 7237.0 1.2641e+05 7238.0 1.2575e+05 7239.0 1.2576e+05 7240.0 1.2534e+05 7241.0 1.2490e+05 7242.0 1.2429e+05 7243.0 1.2390e+05 7244.0 1.2390e+05 7245.0 1.2366e+05 7246.0 1.2377e+05 7247.0 1.2376e+05 7248.0 1.2358e+05 7249.0 1.2464e+05 7250.0 1.2424e+05 7251.0 1.2544e+05 7252.0 1.2638e+05 7253.0 1.2678e+05 7254.0 1.2707e+05 7255.0 1.2722e+05 7256.0 1.2852e+05 7257.0 1.2971e+05 7258.0 1.3012e+05 7259.0 1.3073e+05 7260.0 1.3124e+05 7261.0 1.3193e+05 7262.0 1.3193e+05 7263.0 1.3304e+05 7264.0 1.3318e+05 7265.0 1.3310e+05 7266.0 1.3318e+05 7267.0 1.3441e+05 7268.0 1.3427e+05 7269.0 1.3431e+05 7270.0 1.3439e+05 7271.0 1.3411e+05 7272.0 1.3416e+05 7273.0 1.3454e+05 7274.0 1.3437e+05 7275.0 1.3378e+05 7276.0 1.3417e+05 7277.0 1.3396e+05 7278.0 1.3399e+05 7279.0 1.3403e+05 7280.0 1.3348e+05 7281.0 1.3354e+05 7282.0 1.3303e+05 7283.0 1.3306e+05 7284.0 1.3294e+05 7285.0 1.3216e+05 7286.0 1.3148e+05 7287.0 1.3197e+05 7288.0 1.3166e+05 7289.0 1.3119e+05 7290.0 1.3155e+05 7291.0 1.3078e+05 7292.0 1.3114e+05 7293.0 1.3083e+05 7294.0 1.3092e+05 7295.0 1.3038e+05 7296.0 1.3055e+05 7297.0 1.2958e+05 7298.0 1.3012e+05 7299.0 1.2972e+05 7300.0 1.2994e+05 7301.0 1.2994e+05 7302.0 1.2922e+05 7303.0 1.2933e+05 7304.0 1.3006e+05 7305.0 1.2952e+05 7306.0 1.2923e+05 7307.0 1.2913e+05 7308.0 1.2890e+05 7309.0 1.2936e+05 7310.0 1.2942e+05 7311.0 1.2884e+05 7312.0 1.2950e+05 7313.0 1.3015e+05 7314.0 1.3036e+05 7315.0 1.3036e+05 7316.0 1.2977e+05 7317.0 1.3061e+05 7318.0 1.3045e+05 7319.0 1.3083e+05 7320.0 1.3088e+05 7321.0 1.3173e+05 7322.0 1.3164e+05 7323.0 1.3127e+05 7324.0 1.3096e+05 7325.0 1.3174e+05 7326.0 1.3214e+05 7327.0 1.3252e+05 7328.0 1.3213e+05 7329.0 1.3277e+05 7330.0 1.3267e+05 7331.0 1.3236e+05 7332.0 1.3239e+05 7333.0 1.3285e+05 7334.0 1.3197e+05 7335.0 1.3254e+05 7336.0 1.3224e+05 7337.0 1.3210e+05 7338.0 1.3236e+05 7339.0 1.3250e+05 7340.0 1.3221e+05 7341.0 1.3239e+05 7342.0 1.3162e+05 7343.0 1.3214e+05 7344.0 1.3206e+05 7345.0 1.3188e+05 7346.0 1.3207e+05 7347.0 1.3185e+05 7348.0 1.3143e+05 7349.0 1.3153e+05 7350.0 1.3155e+05 7351.0 1.3155e+05 7352.0 1.3140e+05 7353.0 1.3126e+05 7354.0 1.3128e+05 7355.0 1.3092e+05 7356.0 1.3124e+05 7357.0 1.3168e+05 7358.0 1.3152e+05 7359.0 1.3179e+05 7360.0 1.3157e+05 7361.0 1.3168e+05 7362.0 1.3176e+05 7363.0 1.3242e+05 7364.0 1.3258e+05 7365.0 1.3258e+05 7366.0 1.3232e+05 7367.0 1.3268e+05 7368.0 1.3220e+05 7369.0 1.3213e+05 7370.0 1.3314e+05 7371.0 1.3243e+05 7372.0 1.3222e+05 7373.0 1.3214e+05 7374.0 1.3272e+05 7375.0 1.3243e+05 7376.0 1.3332e+05 7377.0 1.3268e+05 7378.0 1.3309e+05 7379.0 1.3272e+05 7380.0 1.3194e+05 7381.0 1.3294e+05 7382.0 1.3332e+05 7383.0 1.3311e+05 7384.0 1.3283e+05 7385.0 1.3354e+05 7386.0 1.3360e+05 7387.0 1.3367e+05 7388.0 1.3419e+05 7389.0 1.3312e+05 7390.0 1.3439e+05 7391.0 1.3382e+05 7392.0 1.3441e+05 7393.0 1.3388e+05 7394.0 1.3436e+05 7395.0 1.3453e+05 7396.0 1.3477e+05 7397.0 1.3506e+05 7398.0 1.3442e+05 7399.0 1.3430e+05 7400.0 1.3374e+05 7401.0 1.3434e+05 7402.0 1.3423e+05 7403.0 1.3447e+05 7404.0 1.3447e+05 7405.0 1.3428e+05 7406.0 1.3422e+05 7407.0 1.3402e+05 7408.0 1.3447e+05 7409.0 1.3443e+05 7410.0 1.3462e+05 7411.0 1.3424e+05 7412.0 1.3412e+05 7413.0 1.3438e+05 7414.0 1.3428e+05 7415.0 1.3408e+05 7416.0 1.3424e+05 7417.0 1.3419e+05 7418.0 1.3391e+05 7419.0 1.3382e+05 7420.0 1.3381e+05 7421.0 1.3424e+05 7422.0 1.3405e+05 7423.0 1.3446e+05 7424.0 1.3394e+05 7425.0 1.3371e+05 7426.0 1.3462e+05 7427.0 1.3427e+05 7428.0 1.3372e+05 7429.0 1.3396e+05 7430.0 1.3439e+05 7431.0 1.3446e+05 7432.0 1.3419e+05 7433.0 1.3418e+05 7434.0 1.3339e+05 7435.0 1.3396e+05 7436.0 1.3427e+05 7437.0 1.3429e+05 7438.0 1.3404e+05 7439.0 1.3458e+05 7440.0 1.3391e+05 7441.0 1.3428e+05 7442.0 1.3459e+05 7443.0 1.3524e+05 7444.0 1.3466e+05 7445.0 1.3513e+05 7446.0 1.3436e+05 7447.0 1.3553e+05 7448.0 1.3559e+05 7449.0 1.3394e+05 7450.0 1.3476e+05 7451.0 1.3497e+05 7452.0 1.3524e+05 7453.0 1.3488e+05 7454.0 1.3479e+05 7455.0 1.3457e+05 7456.0 1.3506e+05 7457.0 1.3483e+05 7458.0 1.3522e+05 7459.0 1.3515e+05 7460.0 1.3484e+05 7461.0 1.3441e+05 7462.0 1.3509e+05 7463.0 1.3503e+05 7464.0 1.3483e+05 7465.0 1.3430e+05 7466.0 1.3489e+05 7467.0 1.3515e+05 7468.0 1.3489e+05 7469.0 1.3474e+05 7470.0 1.3482e+05 7471.0 1.3568e+05 7472.0 1.3599e+05 7473.0 1.3540e+05 7474.0 1.3507e+05 7475.0 1.3536e+05 7476.0 1.3543e+05 7477.0 1.3560e+05 7478.0 1.3600e+05 7479.0 1.3546e+05 7480.0 1.3607e+05 7481.0 1.3656e+05 7482.0 1.3644e+05 7483.0 1.3657e+05 7484.0 1.3686e+05 7485.0 1.3638e+05 7486.0 1.3652e+05 7487.0 1.3591e+05 7488.0 1.3630e+05 7489.0 1.3634e+05 7490.0 1.3662e+05 7491.0 1.3650e+05 7492.0 1.3627e+05 7493.0 1.3639e+05 7494.0 1.3657e+05 7495.0 1.3676e+05 7496.0 1.3689e+05 7497.0 1.3672e+05 7498.0 1.3717e+05 7499.0 1.3665e+05 7500.0 1.3681e+05 7501.0 1.3660e+05 7502.0 1.3711e+05 7503.0 1.3689e+05 7504.0 1.3647e+05 7505.0 1.3681e+05 7506.0 1.3676e+05 7507.0 1.3715e+05 7508.0 1.3734e+05 7509.0 1.3729e+05 7510.0 1.3774e+05 7511.0 1.3746e+05 7512.0 1.3742e+05 7513.0 1.3710e+05 7514.0 1.3667e+05 7515.0 1.3732e+05 7516.0 1.3718e+05 7517.0 1.3737e+05 7518.0 1.3780e+05 7519.0 1.3765e+05 7520.0 1.3848e+05 7521.0 1.3747e+05 7522.0 1.3781e+05 7523.0 1.3841e+05 7524.0 1.3768e+05 7525.0 1.3785e+05 7526.0 1.3781e+05 7527.0 1.3820e+05 7528.0 1.3967e+05 7529.0 1.3818e+05 7530.0 1.3893e+05 7531.0 1.3885e+05 7532.0 1.3769e+05 7533.0 1.3764e+05 7534.0 1.3750e+05 7535.0 1.3856e+05 7536.0 1.3773e+05 7537.0 1.3842e+05 7538.0 1.3726e+05 7539.0 1.3808e+05 7540.0 1.3733e+05 7541.0 1.3832e+05 7542.0 1.3790e+05 7543.0 1.3897e+05 7544.0 1.3769e+05 7545.0 1.3804e+05 7546.0 1.3761e+05 7547.0 1.3837e+05 7548.0 1.3733e+05 7549.0 1.3781e+05 7550.0 1.3796e+05 7551.0 1.3783e+05 7552.0 1.3836e+05 7553.0 1.3790e+05 7554.0 1.3794e+05 7555.0 1.3814e+05 7556.0 1.3748e+05 7557.0 1.3810e+05 7558.0 1.3849e+05 7559.0 1.3900e+05 7560.0 1.3897e+05 7561.0 1.3820e+05 7562.0 1.3924e+05 7563.0 1.3912e+05 7564.0 1.3897e+05 7565.0 1.3923e+05 7566.0 1.3885e+05 7567.0 1.4308e+05 7568.0 1.4245e+05 7569.0 1.3944e+05 7570.0 1.4013e+05 7571.0 1.3926e+05 7572.0 1.3960e+05 7573.0 1.3877e+05 7574.0 1.3905e+05 7575.0 1.3973e+05 7576.0 1.3988e+05 7577.0 1.3922e+05 7578.0 1.3921e+05 7579.0 1.3952e+05 7580.0 1.3964e+05 7581.0 1.3981e+05 7582.0 1.3930e+05 7583.0 1.3983e+05 7584.0 1.3997e+05 7585.0 1.3855e+05 7586.0 1.3900e+05 7587.0 1.3988e+05 7588.0 1.3976e+05 7589.0 1.3977e+05 7590.0 1.4001e+05 7591.0 1.4037e+05 7592.0 1.4009e+05 7593.0 1.4050e+05 7594.0 1.3985e+05 7595.0 1.4082e+05 7596.0 1.4022e+05 7597.0 1.4006e+05 7598.0 1.4052e+05 7599.0 1.4074e+05 7600.0 1.4054e+05 ifeffit-1.2.11d/examples/diffkk/feff.err0000644000175000017500000000004710771740461017054 0ustar segresegre Fatal Error: XANES card not available ifeffit-1.2.11d/examples/diffkk/f1/0000755000175000017500000000000010771740461015741 5ustar segresegreifeffit-1.2.11d/examples/diffkk/f1/a1.inp0000644000175000017500000000303010771740461016746 0ustar segresegre # -- diffkk version 1.20 -- # program inputs or default values used: title = diffkk: no title lines specified xmu = f1_like.dat out = f1_out.dat isfeff = false % file is not a feff xmu.dat file f1_to_f2 = true % transform f1-like data to f2 encol = 1 % column to read energy from mucol = 2 % column to read mu(E) from iz = 29 % atomic number of core atom e0 = 8977.9700 % edge energy (used as reference) egrid = 1.0000 % energy grid for calculation ewidth = 0.000 % for broadening CL data elow = 200.0000 % how far below data range to calculate ehigh = 500.0000 % how far above data range to calculate end % all remaining lines will be ignored on input -- diffkk program summary -- f''(E) was set to be f''(E) = f''_CL(E) for E > e0+ehigh and E < e0-elow. within the range E = [e0-elow, e0+ehigh], f'' was set to f''(E) = f''_CL(E) + a0 + a1 * mu(E') * ( E' / e0) + a2 * (E' - e0) + a3 * (E' - e0)**2 where mu(E) was read from t.dat, f''_CL(E) was found for Cu, and E' = E + e0_shift. the values of e0_shift, a0, a1, a2, and a3 were determined to be: e0_shift = -0.605967 a0 = 1.39921 a1 = 2.51221 a2 = -0.877579E-03 a3 = 0.125303E-05 so as to best match f''_CL(E) between E = [e0-elow, e0+ehigh] -- end diffkk log file -- ifeffit-1.2.11d/examples/diffkk/f1/f1_out.dat0000644000175000017500000062515710771740461017650 0ustar segresegre# diffkk: no title lines specified #------------------------ # energy f1 f2 f1_cl f2_cl 8774.1040 -3.4251293 0.47827796 -3.3794303 0.50842333 8775.1040 -3.4071342 0.47950830 -3.3814899 0.50752235 8776.1040 -3.4116376 0.48005668 -3.3853208 0.50722379 8777.1040 -3.4096565 0.48121852 -3.3896212 0.50704833 8778.1040 -3.4156445 0.48133196 -3.3941309 0.50691537 8779.1040 -3.4166114 0.48142617 -3.3987635 0.50680168 8780.1040 -3.4226172 0.48108634 -3.4034814 0.50669827 8781.1040 -3.4244942 0.48054841 -3.4082651 0.50660100 8782.1040 -3.4301505 0.48006275 -3.4131037 0.50650772 8783.1040 -3.4323433 0.47931951 -3.4179902 0.50641718 8784.1040 -3.4376713 0.47894709 -3.4229202 0.50632863 8785.1040 -3.4400495 0.47824071 -3.4278906 0.50624161 8786.1040 -3.4451659 0.47810993 -3.4328994 0.50615578 8787.1040 -3.4477373 0.47756415 -3.4379450 0.50607093 8788.1040 -3.4527825 0.47772833 -3.4430264 0.50598690 8789.1040 -3.4556167 0.47738694 -3.4481428 0.50590357 8790.1040 -3.4607418 0.47783094 -3.4532937 0.50582087 8791.1040 -3.4639360 0.47764643 -3.4584787 0.50573872 8792.1040 -3.4692543 0.47824913 -3.4636975 0.50565709 8793.1040 -3.4728132 0.47808886 -3.4689500 0.50557594 8794.1040 -3.4783069 0.47873389 -3.4742361 0.50549523 8795.1040 -3.4821651 0.47852846 -3.4795558 0.50541495 8796.1040 -3.4877931 0.47916352 -3.4849093 0.50533508 8797.1040 -3.4918894 0.47888312 -3.4902965 0.50525561 8798.1040 -3.4976113 0.47948385 -3.4957176 0.50517653 8799.1040 -3.5018898 0.47911947 -3.5011729 0.50509783 8800.1040 -3.5076657 0.47968232 -3.5066624 0.50501950 8801.1040 -3.5120753 0.47924710 -3.5121865 0.50494155 8802.1040 -3.5178756 0.47979635 -3.5177454 0.50486397 8803.1040 -3.5223942 0.47932433 -3.5233393 0.50478676 8804.1040 -3.5282218 0.47988528 -3.5289685 0.50470992 8805.1040 -3.5328492 0.47939565 -3.5346335 0.50463345 8806.1040 -3.5387133 0.47997959 -3.5403343 0.50455736 8807.1040 -3.5434519 0.47948228 -3.5460715 0.50448163 8808.1040 -3.5493619 0.48009492 -3.5518454 0.50440629 8809.1040 -3.5542152 0.47959524 -3.5576562 0.50433133 8810.1040 -3.5601807 0.48023888 -3.5635045 0.50425675 8811.1040 -3.5651532 0.47973869 -3.5693905 0.50418256 8812.1040 -3.5711830 0.48041195 -3.5753148 0.50410876 8813.1040 -3.5762779 0.47990976 -3.5812777 0.50403536 8814.1040 -3.5823781 0.48061018 -3.5872796 0.50396237 8815.1040 -3.5875974 0.48010455 -3.5933210 0.50388978 8816.1040 -3.5937740 0.48082971 -3.5994023 0.50381761 8817.1040 -3.5991201 0.48031838 -3.6055239 0.50374586 8818.1040 -3.6053789 0.48106509 -3.6116865 0.50367453 8819.1040 -3.6108551 0.48054436 -3.6178904 0.50360364 8820.1040 -3.6172018 0.48130734 -3.6241361 0.50353319 8821.1040 -3.6228112 0.48077058 -3.6304242 0.50346318 8822.1040 -3.6292494 0.48154015 -3.6367551 0.50339363 8823.1040 -3.6349891 0.48097675 -3.6431294 0.50332455 8824.1040 -3.6415143 0.48174433 -3.6495477 0.50325593 8825.1040 -3.6473761 0.48114916 -3.6560104 0.50318779 8826.1040 -3.6539817 0.48191187 -3.6625182 0.50312014 8827.1040 -3.6599576 0.48128373 -3.6690717 0.50305299 8828.1040 -3.6666375 0.48204196 -3.6756714 0.50298634 8829.1040 -3.6727197 0.48138280 -3.6823179 0.50292020 8830.1040 -3.6794675 0.48214034 -3.6890118 0.50285458 8831.1040 -3.6856487 0.48145625 -3.6957539 0.50278950 8832.1040 -3.6924604 0.48222262 -3.7025447 0.50272496 8833.1040 -3.6987395 0.48152445 -3.7093849 0.50266098 8834.1040 -3.7056189 0.48230915 -3.7162751 0.50259756 8835.1040 -3.7120000 0.48160410 -3.7232161 0.50253471 8836.1040 -3.7189525 0.48241329 -3.7302086 0.50247245 8837.1040 -3.7254402 0.48170628 -3.7372533 0.50241079 8838.1040 -3.7324715 0.48254476 -3.7443509 0.50234974 8839.1040 -3.7390706 0.48184002 -3.7515021 0.50228931 8840.1040 -3.7461862 0.48271261 -3.7587078 0.50222952 8841.1040 -3.7529021 0.48201509 -3.7659688 0.50217037 8842.1040 -3.7601094 0.48292817 -3.7732858 0.50211189 8843.1040 -3.7669512 0.48224400 -3.7806596 0.50205408 8844.1040 -3.7742626 0.48320230 -3.7880912 0.50199697 8845.1040 -3.7812431 0.48253306 -3.7955813 0.50194056 8846.1040 -3.7886723 0.48353687 -3.8031308 0.50188486 8847.1040 -3.7958050 0.48288038 -3.8107408 0.50182991 8848.1040 -3.8033657 0.48392628 -3.8184120 0.50177571 8849.1040 -3.8106639 0.48327657 -3.8261454 0.50172227 8850.1040 -3.8183702 0.48435680 -3.8339420 0.50166962 8851.1040 -3.8258472 0.48370128 -3.8418027 0.50161778 8852.1040 -3.8337090 0.48479832 -3.8497287 0.50156676 8853.1040 -3.8413663 0.48411647 -3.8577209 0.50151658 8854.1040 -3.8493780 0.48521446 -3.8657804 0.50146726 8855.1040 -3.8572070 0.48449506 -3.8739083 0.50141882 8856.1040 -3.8653599 0.48558759 -3.8821056 0.50137128 8857.1040 -3.8733513 0.48482645 -3.8903736 0.50132467 8858.1040 -3.8816367 0.48591296 -3.8987135 0.50127900 8859.1040 -3.8897821 0.48511078 -3.9071263 0.50123431 8860.1040 -3.8981914 0.48619561 -3.9156134 0.50119060 8861.1040 -3.9064826 0.48535966 -3.9241761 0.50114791 8862.1040 -3.9150108 0.48645589 -3.9328155 0.50110627 8863.1040 -3.9234489 0.48560046 -3.9415331 0.50106569 8864.1040 -3.9321027 0.48672153 -3.9503302 0.50102621 8865.1040 -3.9406967 0.48585556 -3.9592082 0.50098786 8866.1040 -3.9494858 0.48700927 -3.9681686 0.50095066 8867.1040 -3.9582456 0.48613788 -3.9772128 0.50091464 8868.1040 -3.9671798 0.48732975 -3.9863424 0.50087984 8869.1040 -3.9761157 0.48645647 -3.9955589 0.50084629 8870.1040 -3.9852053 0.48769099 -4.0048639 0.50081402 8871.1040 -3.9943278 0.48681882 -4.0142591 0.50078307 8872.1040 -4.0035841 0.48810061 -4.0237461 0.50075347 8873.1040 -4.0129062 0.48723233 -4.0333267 0.50072526 8874.1040 -4.0223433 0.48856449 -4.0430028 0.50069849 8875.1040 -4.0318800 0.48770018 -4.0527760 0.50067318 8876.1040 -4.0415132 0.48908299 -4.0626485 0.50064939 8877.1040 -4.0512802 0.48821967 -4.0726220 0.50062716 8878.1040 -4.0611248 0.48965079 -4.0826986 0.50060652 8879.1040 -4.0711384 0.48878285 -4.0928804 0.50058754 8880.1040 -4.0812105 0.49025648 -4.1031695 0.50057026 8881.1040 -4.0914871 0.48937313 -4.1135682 0.50055473 8882.1040 -4.1018004 0.49087582 -4.1240786 0.50054101 8883.1040 -4.1123474 0.48995923 -4.1347032 0.50052915 8884.1040 -4.1229028 0.49147833 -4.1454443 0.50051920 8885.1040 -4.1337195 0.49051835 -4.1563044 0.50051124 8886.1040 -4.1445155 0.49204942 -4.1672862 0.50050532 8887.1040 -4.1556010 0.49104174 -4.1783922 0.50050151 8888.1040 -4.1666367 0.49258516 -4.1896252 0.50049987 8889.1040 -4.1779911 0.49152966 -4.2009881 0.50050049 8890.1040 -4.1892661 0.49309036 -4.2124837 0.50050343 8891.1040 -4.2008905 0.49199251 -4.2241152 0.50050878 8892.1040 -4.2124081 0.49358290 -4.2358856 0.50051661 8893.1040 -4.2243123 0.49245454 -4.2477981 0.50052701 8894.1040 -4.2360873 0.49408783 -4.2598563 0.50054007 8895.1040 -4.2482898 0.49293537 -4.2720634 0.50055588 8896.1040 -4.2603407 0.49461856 -4.2844232 0.50057454 8897.1040 -4.2728614 0.49344388 -4.2969393 0.50059614 8898.1040 -4.2852075 0.49518090 -4.3096158 0.50062077 8899.1040 -4.2980667 0.49398305 -4.3224564 0.50064850 8900.1040 -4.3107281 0.49577581 -4.3354656 0.50067927 8901.1040 -4.3239484 0.49455054 -4.3486477 0.50071290 8902.1040 -4.3369458 0.49639541 -4.3620072 0.50074989 8903.1040 -4.3505446 0.49513338 -4.3755485 0.50079052 8904.1040 -4.3638896 0.49702780 -4.3892768 0.50083497 8905.1040 -4.3778784 0.49572558 -4.4031968 0.50088343 8906.1040 -4.3915818 0.49767405 -4.4173141 0.50093606 8907.1040 -4.4059734 0.49633360 -4.4316339 0.50099304 8908.1040 -4.4200474 0.49834626 -4.4461621 0.50105456 8909.1040 -4.4348567 0.49697548 -4.4609046 0.50112082 8910.1040 -4.4493158 0.49907023 -4.4758676 0.50119202 8911.1040 -4.4645605 0.49768873 -4.4910577 0.50126839 8912.1040 -4.4794298 0.49990368 -4.5064816 0.50135015 8913.1040 -4.4951586 0.49854813 -4.5221464 0.50143756 8914.1040 -4.5105062 0.50091583 -4.5380595 0.50153087 8915.1040 -4.5267990 0.49959446 -4.5542288 0.50163037 8916.1040 -4.5427058 0.50211622 -4.5706623 0.50173635 8917.1040 -4.5596474 0.50080979 -4.5873685 0.50184913 8918.1040 -4.5761979 0.50346216 -4.6043564 0.50196903 8919.1040 -4.5938766 0.50212385 -4.6216355 0.50209643 8920.1040 -4.6111585 0.50484981 -4.6392155 0.50223171 8921.1040 -4.6296644 0.50337875 -4.6571069 0.50237527 8922.1040 -4.6477325 0.50603346 -4.6753205 0.50252756 8923.1040 -4.6670367 0.50424857 -4.6938679 0.50268904 8924.1040 -4.6857698 0.50670701 -4.7127612 0.50286022 8925.1040 -4.7057144 0.50455170 -4.7320132 0.50304165 8926.1040 -4.7249458 0.50684016 -4.7516374 0.50323390 8927.1040 -4.7453697 0.50439199 -4.7716480 0.50343761 8928.1040 -4.7649380 0.50667197 -4.7920604 0.50365347 8929.1040 -4.7856874 0.50417695 -4.8128904 0.50388219 8930.1040 -4.8054382 0.50691911 -4.8341550 0.50412459 8931.1040 -4.8267558 0.50527463 -4.8558724 0.50438151 8932.1040 -4.8480079 0.50902815 -4.8780618 0.50465391 8933.1040 -4.8710857 0.50725281 -4.9007436 0.50494279 8934.1040 -4.8935687 0.51091708 -4.9239396 0.50524927 8935.1040 -4.9178660 0.50889231 -4.9476731 0.50557456 8936.1040 -4.9415261 0.51258789 -4.9719690 0.50591999 8937.1040 -4.9669787 0.51022410 -4.9968540 0.50628702 8938.1040 -4.9916955 0.51423017 -5.0223567 0.50667723 8939.1040 -5.0188205 0.51162493 -5.0485078 0.50709240 8940.1040 -5.0445068 0.51533267 -5.0753404 0.50753446 8941.1040 -5.0726227 0.51304307 -5.1028902 0.50800557 8942.1040 -5.1002735 0.51733210 -5.1311957 0.50850812 8943.1040 -5.1303029 0.51436399 -5.1602986 0.50904475 8944.1040 -5.1591779 0.51866291 -5.1902443 0.50961843 8945.1040 -5.1909304 0.51568625 -5.2210818 0.51023248 8946.1040 -5.2216837 0.52013991 -5.2528649 0.51089062 8947.1040 -5.2552472 0.51681812 -5.2856521 0.51159705 8948.1040 -5.2878429 0.52176321 -5.3195078 0.51235652 8949.1040 -5.3238367 0.51838372 -5.3545024 0.51317441 8950.1040 -5.3589879 0.52358440 -5.3907138 0.51405688 8951.1040 -5.3976336 0.51959225 -5.4282280 0.51501095 8952.1040 -5.4352039 0.52504685 -5.4671405 0.51604473 8953.1040 -5.4768683 0.52079357 -5.5075575 0.51716760 8954.1040 -5.5177319 0.52643883 -5.5495980 0.51839043 8955.1040 -5.5627329 0.52130260 -5.5933955 0.51972599 8956.1040 -5.6069715 0.52727037 -5.6391006 0.52118928 8957.1040 -5.6559284 0.52131862 -5.6868841 0.52279808 8958.1040 -5.7042672 0.52763106 -5.7369409 0.52457367 8959.1040 -5.7579730 0.52058138 -5.7894944 0.52654163 8960.1040 -5.8112351 0.52714830 -5.8448026 0.52873310 8961.1040 -5.8706593 0.51865506 -5.9031654 0.53118628 8962.1040 -5.9303023 0.52526449 -5.9649345 0.53394860 8963.1040 -5.9966809 0.51379579 -6.0305258 0.53707967 8964.1040 -6.0631425 0.52007592 -6.1004360 0.54065547 8965.1040 -6.1386614 0.50509701 -6.1752648 0.54477430 8966.1040 -6.2144729 0.50835431 -6.2557455 0.54956574 8967.1040 -6.2987582 0.48652235 -6.3427878 0.55520401 8968.1040 -6.3867852 0.48586552 -6.4375386 0.56192900 8969.1040 -6.4837221 0.44676609 -6.5414717 0.57008032 8970.1040 -6.5791525 0.42665029 -6.6565244 0.58015495 8971.1040 -6.6727197 0.35031344 -6.7853112 0.59290967 8972.1040 -6.7441515 0.26480004 -6.9314756 0.60955526 8973.1040 -6.6242710 0.88998143E-01 -7.1002976 0.63215326 8974.1040 -6.3097470 0.31919062 -7.2998064 0.66451071 8975.1040 -6.2583551 0.86704296 -7.5429502 0.71447517 8976.1040 -6.6865263 1.6975603 -7.8520336 0.80096022 8977.1040 -7.6407203 2.0698092 -8.2665617 0.98158235 8978.1040 -8.2342433 2.8593168 -8.8230929 1.5010166 8979.1040 -9.5490809 4.6929246 -9.2563526 2.8855020 8980.1040 -9.6665363 4.5458635 -8.6322009 3.4044914 8981.1040 -9.1858224 4.2027652 -8.0962278 3.5845095 8982.1040 -8.7952462 3.8434741 -7.7205418 3.6703305 8983.1040 -8.3186403 3.5873166 -7.4366290 3.7196008 8984.1040 -7.8765942 3.3949383 -7.2094716 3.7512460 8985.1040 -7.4150916 3.3339604 -7.0204528 3.7731199 8986.1040 -7.0141874 3.3420567 -6.8587091 3.7890332 8987.1040 -6.6476959 3.4819287 -6.7173987 3.8010496 8988.1040 -6.4370530 3.6812441 -6.5919503 3.8103813 8989.1040 -6.3560225 3.8667928 -6.4791647 3.8177861 8990.1040 -6.3580012 3.9537263 -6.3767177 3.8237618 8991.1040 -6.3727533 3.9794591 -6.2828693 3.8286486 8992.1040 -6.3775702 3.9147751 -6.1962836 3.8326868 8993.1040 -6.3212058 3.8244681 -6.1159127 3.8360509 8994.1040 -6.1984202 3.7103103 -6.0409201 3.8388708 8995.1040 -6.0027583 3.6751339 -5.9706271 3.8412450 8996.1040 -5.8159650 3.7017164 -5.9044760 3.8432497 8997.1040 -5.6485670 3.8203970 -5.8420025 3.8449446 8998.1040 -5.5922933 3.9714317 -5.7828163 3.8463773 8999.1040 -5.6070080 4.0861359 -5.7265861 3.8475861 9000.1040 -5.6563531 4.1412103 -5.6730282 3.8486022 9001.1040 -5.7057841 4.1575080 -5.6218981 3.8494514 9002.1040 -5.7466088 4.1309325 -5.5729830 3.8501548 9003.1040 -5.7651714 4.0978271 -5.5260974 3.8507305 9004.1040 -5.7834597 4.0452875 -5.4810778 3.8511933 9005.1040 -5.7848364 3.9794822 -5.4377798 3.8515562 9006.1040 -5.7637680 3.8941928 -5.3960754 3.8518301 9007.1040 -5.7121053 3.8245895 -5.3558500 3.8520244 9008.1040 -5.6566765 3.7604353 -5.3170013 3.8521471 9009.1040 -5.5889158 3.7064899 -5.2794370 3.8522054 9010.1040 -5.5156410 3.6541342 -5.2430739 3.8522055 9011.1040 -5.4305524 3.6146975 -5.2078368 3.8521527 9012.1040 -5.3375462 3.5821252 -5.1736570 3.8520518 9013.1040 -5.2408834 3.5751955 -5.1404722 3.8519071 9014.1040 -5.1536661 3.5708964 -5.1082255 3.8517222 9015.1040 -5.0601327 3.5797210 -5.0768645 3.8515006 9016.1040 -4.9684109 3.5986570 -5.0463412 3.8512452 9017.1040 -4.8795459 3.6410339 -5.0166116 3.8509586 9018.1040 -4.8053316 3.6930338 -4.9876347 3.8506432 9019.1040 -4.7426776 3.7652125 -4.9593730 3.8503013 9020.1040 -4.7077951 3.8441117 -4.9317914 3.8499348 9021.1040 -4.7001466 3.9272216 -4.9048576 3.8495454 9022.1040 -4.7233110 3.9908907 -4.8785414 3.8491347 9023.1040 -4.7589528 4.0326949 -4.8528147 3.8487043 9024.1040 -4.7951992 4.0485239 -4.8276514 3.8482554 9025.1040 -4.8300032 4.0582036 -4.8030269 3.8477893 9026.1040 -4.8685217 4.0428387 -4.7789182 3.8473070 9027.1040 -4.8904921 4.0163331 -4.7553040 3.8468097 9028.1040 -4.9038483 3.9811732 -4.7321640 3.8462982 9029.1040 -4.9064995 3.9457706 -4.7094793 3.8457734 9030.1040 -4.9019537 3.9022439 -4.6872320 3.8452361 9031.1040 -4.8832433 3.8621652 -4.6654054 3.8446871 9032.1040 -4.8560219 3.8219609 -4.6439836 3.8441270 9033.1040 -4.8181501 3.7936147 -4.6229516 3.8435565 9034.1040 -4.7791176 3.7707023 -4.6022953 3.8429762 9035.1040 -4.7369210 3.7610299 -4.5820012 3.8423866 9036.1040 -4.7014402 3.7579883 -4.5620568 3.8417881 9037.1040 -4.6748064 3.7636167 -4.5424500 3.8411814 9038.1040 -4.6608827 3.7611473 -4.5231693 3.8405668 9039.1040 -4.6485959 3.7528222 -4.5042039 3.8399448 9040.1040 -4.6350127 3.7321147 -4.4855436 3.8393156 9041.1040 -4.6119407 3.7106928 -4.4671784 3.8386798 9042.1040 -4.5823089 3.6852855 -4.4490992 3.8380376 9043.1040 -4.5412202 3.6690497 -4.4312969 3.8373893 9044.1040 -4.4993324 3.6612590 -4.4137631 3.8367353 9045.1040 -4.4613509 3.6667266 -4.3964896 3.8360757 9046.1040 -4.4352624 3.6717849 -4.3794688 3.8354110 9047.1040 -4.4153152 3.6762421 -4.3626932 3.8347413 9048.1040 -4.4005710 3.6699241 -4.3461558 3.8340669 9049.1040 -4.3813897 3.6594035 -4.3298498 3.8333879 9050.1040 -4.3577740 3.6416015 -4.3137687 3.8327047 9051.1040 -4.3245922 3.6271798 -4.2979062 3.8320173 9052.1040 -4.2869218 3.6139166 -4.2822565 3.8313260 9053.1040 -4.2437510 3.6108163 -4.2668138 3.8306310 9054.1040 -4.2036909 3.6126886 -4.2515726 3.8299324 9055.1040 -4.1667862 3.6218999 -4.2365276 3.8292304 9056.1040 -4.1359979 3.6284294 -4.2216738 3.8285250 9057.1040 -4.1052630 3.6366504 -4.2070063 3.8278166 9058.1040 -4.0763537 3.6410074 -4.1925205 3.8271051 9059.1040 -4.0445786 3.6479972 -4.1782117 3.8263908 9060.1040 -4.0129251 3.6526934 -4.1640757 3.8256737 9061.1040 -3.9767418 3.6615465 -4.1501083 3.8249540 9062.1040 -3.9389047 3.6715496 -4.1363054 3.8242318 9063.1040 -3.8972377 3.6908944 -4.1226631 3.8235071 9064.1040 -3.8579847 3.7161902 -4.1091778 3.8227801 9065.1040 -3.8215831 3.7529785 -4.0958457 3.8220509 9066.1040 -3.7949356 3.7942815 -4.0826634 3.8213196 9067.1040 -3.7770802 3.8418534 -4.0696275 3.8205862 9068.1040 -3.7707742 3.8864687 -4.0567348 3.8198509 9069.1040 -3.7703256 3.9326534 -4.0439820 3.8191137 9070.1040 -3.7814691 3.9766501 -4.0313661 3.8183746 9071.1040 -3.8050699 4.0172198 -4.0188842 3.8176339 9072.1040 -3.8385673 4.0407666 -4.0065335 3.8168914 9073.1040 -3.8690494 4.0534473 -3.9943111 3.8161474 9074.1040 -3.8973162 4.0562753 -3.9822143 3.8154018 9075.1040 -3.9213242 4.0559369 -3.9702407 3.8146547 9076.1040 -3.9434592 4.0480628 -3.9583876 3.8139063 9077.1040 -3.9596994 4.0393358 -3.9466526 3.8131564 9078.1040 -3.9746084 4.0268345 -3.9350334 3.8124053 9079.1040 -3.9861395 4.0136547 -3.9235277 3.8116529 9080.1040 -3.9944131 3.9943905 -3.9121332 3.8108992 9081.1040 -3.9937147 3.9772014 -3.9008478 3.8101445 9082.1040 -3.9884973 3.9624078 -3.8896694 3.8093886 9083.1040 -3.9798387 3.9573717 -3.8785959 3.8086316 9084.1040 -3.9767841 3.9578271 -3.8676254 3.8078736 9085.1040 -3.9811556 3.9630280 -3.8567559 3.8071147 9086.1040 -3.9952512 3.9626933 -3.8459857 3.8063547 9087.1040 -4.0133903 3.9578335 -3.8353128 3.8055939 9088.1040 -4.0355266 3.9425721 -3.8247354 3.8048322 9089.1040 -4.0558725 3.9202916 -3.8142520 3.8040696 9090.1040 -4.0738520 3.8869371 -3.8038608 3.8033063 9091.1040 -4.0834836 3.8485138 -3.7935601 3.8025421 9092.1040 -4.0858935 3.8037467 -3.7833484 3.8017772 9093.1040 -4.0776879 3.7595389 -3.7732242 3.8010117 9094.1040 -4.0621775 3.7146559 -3.7631859 3.8002454 9095.1040 -4.0379245 3.6751178 -3.7532321 3.7994784 9096.1040 -4.0096843 3.6384460 -3.7433613 3.7987109 9097.1040 -3.9770441 3.6080978 -3.7335723 3.7979427 9098.1040 -3.9426544 3.5786468 -3.7238635 3.7971740 9099.1040 -3.9019501 3.5548515 -3.7142337 3.7964047 9100.1040 -3.8583051 3.5366083 -3.7046816 3.7956349 9101.1040 -3.8135620 3.5290686 -3.6952059 3.7948645 9102.1040 -3.7734625 3.5256562 -3.6858054 3.7940937 9103.1040 -3.7346809 3.5275249 -3.6764790 3.7933224 9104.1040 -3.6988097 3.5315325 -3.6672254 3.7925507 9105.1040 -3.6648838 3.5422943 -3.6580435 3.7917786 9106.1040 -3.6377771 3.5548331 -3.6489322 3.7910060 9107.1040 -3.6155956 3.5702796 -3.6398903 3.7902331 9108.1040 -3.6004532 3.5831978 -3.6309170 3.7894598 9109.1040 -3.5893185 3.5957032 -3.6220110 3.7886861 9110.1040 -3.5841628 3.6026922 -3.6131714 3.7879122 9111.1040 -3.5811639 3.6057012 -3.6043972 3.7871379 9112.1040 -3.5803355 3.6000437 -3.5956874 3.7863633 9113.1040 -3.5766318 3.5891286 -3.5870411 3.7855884 9114.1040 -3.5702958 3.5701321 -3.5784573 3.7848133 9115.1040 -3.5567746 3.5471874 -3.5699352 3.7840379 9116.1040 -3.5357552 3.5181846 -3.5614739 3.7832622 9117.1040 -3.5019252 3.4896898 -3.5530724 3.7824863 9118.1040 -3.4567830 3.4633316 -3.5447299 3.7817103 9119.1040 -3.3991423 3.4472679 -3.5364457 3.7809340 9120.1040 -3.3345368 3.4429897 -3.5282189 3.7801575 9121.1040 -3.2665894 3.4566979 -3.5200486 3.7793809 9122.1040 -3.2040532 3.4841667 -3.5119342 3.7786041 9123.1040 -3.1487232 3.5254561 -3.5038749 3.7778271 9124.1040 -3.1056115 3.5738096 -3.4958698 3.7770500 9125.1040 -3.0735109 3.6281731 -3.4879183 3.7762728 9126.1040 -3.0542387 3.6817527 -3.4800197 3.7754954 9127.1040 -3.0441202 3.7345054 -3.4721732 3.7747180 9128.1040 -3.0428553 3.7811185 -3.4643782 3.7739404 9129.1040 -3.0453013 3.8241461 -3.4566340 3.7731627 9130.1040 -3.0516194 3.8611734 -3.4489399 3.7723850 9131.1040 -3.0581065 3.8963128 -3.4412954 3.7716072 9132.1040 -3.0664346 3.9282128 -3.4336996 3.7708293 9133.1040 -3.0750385 3.9610868 -3.4261521 3.7700514 9134.1040 -3.0870622 3.9922611 -3.4186522 3.7692735 9135.1040 -3.1008814 4.0244707 -3.4111992 3.7684955 9136.1040 -3.1190534 4.0547902 -3.4037928 3.7677174 9137.1040 -3.1403424 4.0861841 -3.3964321 3.7669394 9138.1040 -3.1685931 4.1149136 -3.3891167 3.7661613 9139.1040 -3.2026875 4.1408911 -3.3818461 3.7653832 9140.1040 -3.2426212 4.1579904 -3.3746196 3.7646052 9141.1040 -3.2826179 4.1688685 -3.3674368 3.7638271 9142.1040 -3.3230827 4.1728289 -3.3602971 3.7630491 9143.1040 -3.3626456 4.1742676 -3.3532000 3.7622710 9144.1040 -3.4045487 4.1699758 -3.3461449 3.7614930 9145.1040 -3.4467294 4.1615624 -3.3391315 3.7607151 9146.1040 -3.4906940 4.1451262 -3.3321592 3.7599371 9147.1040 -3.5330680 4.1222965 -3.3252275 3.7591593 9148.1040 -3.5738737 4.0898779 -3.3183359 3.7583814 9149.1040 -3.6089512 4.0512600 -3.3114840 3.7576037 9150.1040 -3.6390825 4.0050140 -3.3046714 3.7568260 9151.1040 -3.6614379 3.9548781 -3.2978975 3.7560483 9152.1040 -3.6773209 3.8991245 -3.2911620 3.7552708 9153.1040 -3.6838950 3.8413849 -3.2844645 3.7544933 9154.1040 -3.6823439 3.7802264 -3.2778043 3.7537159 9155.1040 -3.6697781 3.7197578 -3.2711813 3.7529386 9156.1040 -3.6473067 3.6595623 -3.2645949 3.7521614 9157.1040 -3.6129811 3.6056590 -3.2580448 3.7513843 9158.1040 -3.5713049 3.5586801 -3.2515306 3.7506073 9159.1040 -3.5237716 3.5219157 -3.2450518 3.7498304 9160.1040 -3.4745050 3.4918804 -3.2386081 3.7490536 9161.1040 -3.4219990 3.4703759 -3.2321991 3.7482769 9162.1040 -3.3685175 3.4557136 -3.2258244 3.7475003 9163.1040 -3.3139902 3.4515398 -3.2194837 3.7467239 9164.1040 -3.2631983 3.4551362 -3.2131766 3.7459476 9165.1040 -3.2164163 3.4670315 -3.2069028 3.7451714 9166.1040 -3.1760745 3.4825445 -3.2006619 3.7443954 9167.1040 -3.1400882 3.5027637 -3.1944535 3.7436195 9168.1040 -3.1102317 3.5243511 -3.1882774 3.7428438 9169.1040 -3.0845761 3.5490218 -3.1821331 3.7420682 9170.1040 -3.0650701 3.5737060 -3.1760205 3.7412927 9171.1040 -3.0500406 3.6001177 -3.1699391 3.7405174 9172.1040 -3.0417105 3.6248248 -3.1638886 3.7397423 9173.1040 -3.0381438 3.6485184 -3.1578687 3.7389673 9174.1040 -3.0400177 3.6671864 -3.1518791 3.7381925 9175.1040 -3.0437643 3.6824675 -3.1459196 3.7374179 9176.1040 -3.0496684 3.6920104 -3.1399897 3.7366434 9177.1040 -3.0546184 3.6985370 -3.1340893 3.7358691 9178.1040 -3.0593483 3.7003812 -3.1282180 3.7350950 9179.1040 -3.0613316 3.7008985 -3.1223755 3.7343210 9180.1040 -3.0621530 3.6987396 -3.1165616 3.7335472 9181.1040 -3.0599285 3.6972273 -3.1107760 3.7327737 9182.1040 -3.0569677 3.6951010 -3.1050184 3.7320003 9183.1040 -3.0523008 3.6952386 -3.0992886 3.7312271 9184.1040 -3.0487427 3.6956685 -3.0935862 3.7304540 9185.1040 -3.0457539 3.6984920 -3.0879110 3.7296812 9186.1040 -3.0465205 3.7004911 -3.0822628 3.7289086 9187.1040 -3.0498808 3.7017337 -3.0766414 3.7281362 9188.1040 -3.0565579 3.6978666 -3.0710463 3.7273639 9189.1040 -3.0630338 3.6899794 -3.0654775 3.7265919 9190.1040 -3.0691216 3.6753560 -3.0599347 3.7258201 9191.1040 -3.0708600 3.6563775 -3.0544176 3.7250485 9192.1040 -3.0677955 3.6320172 -3.0489260 3.7242771 9193.1040 -3.0567515 3.6065833 -3.0434596 3.7235059 9194.1040 -3.0389886 3.5800383 -3.0380183 3.7227350 9195.1040 -3.0125866 3.5567627 -3.0326018 3.7219642 9196.1040 -2.9799874 3.5371044 -3.0272099 3.7211937 9197.1040 -2.9410511 3.5251511 -3.0218423 3.7204233 9198.1040 -2.8994203 3.5202034 -3.0164989 3.7196533 9199.1040 -2.8558280 3.5253444 -3.0111794 3.7188834 9200.1040 -2.8148672 3.5384803 -3.0058836 3.7181137 9201.1040 -2.7776143 3.5603889 -3.0006114 3.7173443 9202.1040 -2.7473055 3.5866473 -2.9953624 3.7165751 9203.1040 -2.7228254 3.6173184 -2.9901366 3.7158062 9204.1040 -2.7060157 3.6480520 -2.9849337 3.7150375 9205.1040 -2.6940901 3.6788525 -2.9797535 3.7142690 9206.1040 -2.6869164 3.7066592 -2.9745957 3.7135007 9207.1040 -2.6811210 3.7339584 -2.9694604 3.7127327 9208.1040 -2.6780024 3.7597390 -2.9643471 3.7119649 9209.1040 -2.6762584 3.7864855 -2.9592558 3.7111974 9210.1040 -2.6779870 3.8120260 -2.9541862 3.7104301 9211.1040 -2.6815661 3.8379902 -2.9491382 3.7096630 9212.1040 -2.6884833 3.8621805 -2.9441116 3.7088962 9213.1040 -2.6970129 3.8867519 -2.9391062 3.7081297 9214.1040 -2.7093156 3.9098360 -2.9341219 3.7073633 9215.1040 -2.7245636 3.9329442 -2.9291584 3.7065973 9216.1040 -2.7449590 3.9526727 -2.9242156 3.7058315 9217.1040 -2.7680818 3.9692979 -2.9192934 3.7050659 9218.1040 -2.7940439 3.9801054 -2.9143915 3.7043006 9219.1040 -2.8197541 3.9872828 -2.9095098 3.7035355 9220.1040 -2.8462559 3.9896109 -2.9046481 3.7027707 9221.1040 -2.8718557 3.9892909 -2.8998063 3.7020062 9222.1040 -2.8980734 3.9841745 -2.8949842 3.7012419 9223.1040 -2.9225656 3.9757435 -2.8901816 3.7004778 9224.1040 -2.9457959 3.9622111 -2.8853985 3.6997141 9225.1040 -2.9650670 3.9463292 -2.8806346 3.6989506 9226.1040 -2.9817725 3.9275415 -2.8758897 3.6981873 9227.1040 -2.9947591 3.9085205 -2.8711639 3.6974243 9228.1040 -3.0061361 3.8876298 -2.8664568 3.6966616 9229.1040 -3.0144038 3.8665502 -2.8617684 3.6958991 9230.1040 -3.0208896 3.8434823 -2.8570984 3.6951369 9231.1040 -3.0236939 3.8204811 -2.8524469 3.6943750 9232.1040 -3.0241103 3.7961576 -2.8478135 3.6936133 9233.1040 -3.0203481 3.7728339 -2.8431982 3.6928520 9234.1040 -3.0137833 3.7494801 -2.8386009 3.6920908 9235.1040 -3.0030933 3.7289157 -2.8340214 3.6913300 9236.1040 -2.9905667 3.7101572 -2.8294595 3.6905694 9237.1040 -2.9755337 3.6954343 -2.8249152 3.6898091 9238.1040 -2.9604954 3.6831935 -2.8203883 3.6890490 9239.1040 -2.9449676 3.6751366 -2.8158787 3.6882893 9240.1040 -2.9315806 3.6690031 -2.8113862 3.6875298 9241.1040 -2.9195676 3.6654439 -2.8069108 3.6867706 9242.1040 -2.9103953 3.6614993 -2.8024522 3.6860116 9243.1040 -2.9021240 3.6581682 -2.7980104 3.6852530 9244.1040 -2.8957603 3.6531243 -2.7935853 3.6844946 9245.1040 -2.8890629 3.6477884 -2.7891767 3.6837365 9246.1040 -2.8827153 3.6404530 -2.7847845 3.6829786 9247.1040 -2.8744790 3.6335083 -2.7804085 3.6822211 9248.1040 -2.8659606 3.6261859 -2.7760488 3.6814638 9249.1040 -2.8563366 3.6206529 -2.7717051 3.6807068 9250.1040 -2.8478667 3.6149740 -2.7673773 3.6799501 9251.1040 -2.8392562 3.6101295 -2.7630654 3.6791937 9252.1040 -2.8316512 3.6039295 -2.7587692 3.6784376 9253.1040 -2.8230764 3.5979072 -2.7544886 3.6776817 9254.1040 -2.8146005 3.5905012 -2.7502234 3.6769261 9255.1040 -2.8044513 3.5835970 -2.7459737 3.6761708 9256.1040 -2.7938571 3.5758131 -2.7417392 3.6754158 9257.1040 -2.7811937 3.5692539 -2.7375199 3.6746611 9258.1040 -2.7680568 3.5627405 -2.7333157 3.6739067 9259.1040 -2.7532281 3.5582308 -2.7291264 3.6731525 9260.1040 -2.7384564 3.5543445 -2.7249520 3.6723987 9261.1040 -2.7226754 3.5528961 -2.7207923 3.6716451 9262.1040 -2.7078076 3.5522859 -2.7166473 3.6708918 9263.1040 -2.6928687 3.5539371 -2.7125169 3.6701388 9264.1040 -2.6795627 3.5558334 -2.7084008 3.6693861 9265.1040 -2.6664577 3.5592472 -2.7042992 3.6686337 9266.1040 -2.6549424 3.5623540 -2.7002118 3.6678816 9267.1040 -2.6435215 3.5666075 -2.6961386 3.6671298 9268.1040 -2.6335826 3.5702950 -2.6920794 3.6663782 9269.1040 -2.6236482 3.5749100 -2.6880342 3.6656270 9270.1040 -2.6151059 3.5787833 -2.6840029 3.6648760 9271.1040 -2.6065059 3.5834155 -2.6799854 3.6641254 9272.1040 -2.5992565 3.5871269 -2.6759816 3.6633750 9273.1040 -2.5919175 3.5913166 -2.6719914 3.6626249 9274.1040 -2.5857375 3.5941789 -2.6680147 3.6618752 9275.1040 -2.5789702 3.5971592 -2.6640515 3.6611257 9276.1040 -2.5726449 3.5987808 -2.6601015 3.6603765 9277.1040 -2.5650847 3.6009100 -2.6561649 3.6596276 9278.1040 -2.5576900 3.6023439 -2.6522414 3.6588790 9279.1040 -2.5491670 3.6048342 -2.6483310 3.6581307 9280.1040 -2.5410333 3.6069708 -2.6444336 3.6573827 9281.1040 -2.5320124 3.6103591 -2.6405491 3.6566350 9282.1040 -2.5236088 3.6135039 -2.6366775 3.6558875 9283.1040 -2.5145456 3.6178976 -2.6328186 3.6551404 9284.1040 -2.5062053 3.6219006 -2.6289724 3.6543936 9285.1040 -2.4970263 3.6270044 -2.6251388 3.6536471 9286.1040 -2.4881457 3.6318785 -2.6213177 3.6529009 9287.1040 -2.4780625 3.6385481 -2.6175090 3.6521549 9288.1040 -2.4685327 3.6461102 -2.6137127 3.6514093 9289.1040 -2.4588482 3.6563155 -2.6099287 3.6506640 9290.1040 -2.4510801 3.6676168 -2.6061569 3.6499190 9291.1040 -2.4444616 3.6811774 -2.6023972 3.6491742 9292.1040 -2.4408183 3.6950748 -2.5986496 3.6484298 9293.1040 -2.4392222 3.7102058 -2.5949139 3.6476857 9294.1040 -2.4412636 3.7241498 -2.5911902 3.6469419 9295.1040 -2.4451610 3.7373848 -2.5874783 3.6461983 9296.1040 -2.4515007 3.7479330 -2.5837781 3.6454551 9297.1040 -2.4581379 3.7571585 -2.5800897 3.6447122 9298.1040 -2.4658699 3.7638730 -2.5764129 3.6439696 9299.1040 -2.4730820 3.7697814 -2.5727476 3.6432272 9300.1040 -2.4809072 3.7736780 -2.5690938 3.6424852 9301.1040 -2.4878990 3.7773273 -2.5654515 3.6417435 9302.1040 -2.4955646 3.7796056 -2.5618204 3.6410021 9303.1040 -2.5028964 3.7819845 -2.5582007 3.6402610 9304.1040 -2.5115430 3.7827829 -2.5545922 3.6395202 9305.1040 -2.5201719 3.7828691 -2.5509948 3.6387797 9306.1040 -2.5297111 3.7804348 -2.5474085 3.6380395 9307.1040 -2.5383450 3.7767298 -2.5438332 3.6372996 9308.1040 -2.5468862 3.7703820 -2.5402688 3.6365600 9309.1040 -2.5535555 3.7629462 -2.5367154 3.6358208 9310.1040 -2.5592095 3.7532982 -2.5331728 3.6350818 9311.1040 -2.5621049 3.7432966 -2.5296409 3.6343431 9312.1040 -2.5633714 3.7322713 -2.5261197 3.6336047 9313.1040 -2.5619067 3.7222214 -2.5226092 3.6328667 9314.1040 -2.5593200 3.7121592 -2.5191093 3.6321289 9315.1040 -2.5546291 3.7036798 -2.5156199 3.6313915 9316.1040 -2.5493537 3.6955451 -2.5121409 3.6306543 9317.1040 -2.5423779 3.6892674 -2.5086723 3.6299175 9318.1040 -2.5351494 3.6836822 -2.5052141 3.6291809 9319.1040 -2.5266499 3.6804335 -2.5017662 3.6284447 9320.1040 -2.5186265 3.6783753 -2.4983285 3.6277088 9321.1040 -2.5103445 3.6788772 -2.4949009 3.6269732 9322.1040 -2.5036204 3.6804122 -2.4914835 3.6262379 9323.1040 -2.4975904 3.6839749 -2.4880761 3.6255029 9324.1040 -2.4938008 3.6878517 -2.4846787 3.6247682 9325.1040 -2.4912279 3.6929749 -2.4812913 3.6240338 9326.1040 -2.4912998 3.6974581 -2.4779137 3.6232997 9327.1040 -2.4926281 3.7020373 -2.4745460 3.6225659 9328.1040 -2.4961940 3.7049887 -2.4711881 3.6218325 9329.1040 -2.5004383 3.7073670 -2.4678399 3.6210993 9330.1040 -2.5063706 3.7077193 -2.4645014 3.6203665 9331.1040 -2.5125991 3.7071942 -2.4611725 3.6196339 9332.1040 -2.5202653 3.7042373 -2.4578532 3.6189017 9333.1040 -2.5279686 3.6996457 -2.4545434 3.6181698 9334.1040 -2.5362627 3.6914594 -2.4512431 3.6174382 9335.1040 -2.5427526 3.6807852 -2.4479522 3.6167069 9336.1040 -2.5474051 3.6666977 -2.4446707 3.6159759 9337.1040 -2.5479333 3.6516687 -2.4413985 3.6152452 9338.1040 -2.5454907 3.6358996 -2.4381356 3.6145148 9339.1040 -2.5393014 3.6216929 -2.4348819 3.6137848 9340.1040 -2.5311460 3.6085049 -2.4316374 3.6130550 9341.1040 -2.5204732 3.5982229 -2.4284020 3.6123256 9342.1040 -2.5094404 3.5899698 -2.4251757 3.6115964 9343.1040 -2.4978709 3.5850003 -2.4219584 3.6108676 9344.1040 -2.4880069 3.5815271 -2.4187502 3.6101391 9345.1040 -2.4791040 3.5797757 -2.4155509 3.6094109 9346.1040 -2.4721975 3.5776498 -2.4123605 3.6086830 9347.1040 -2.4657182 3.5759010 -2.4091789 3.6079554 9348.1040 -2.4604882 3.5729914 -2.4060062 3.6072281 9349.1040 -2.4548785 3.5699934 -2.4028422 3.6065012 9350.1040 -2.4496313 3.5656799 -2.3996870 3.6057745 9351.1040 -2.4430831 3.5614785 -2.3965404 3.6050482 9352.1040 -2.4360912 3.5567077 -2.3934026 3.6043222 9353.1040 -2.4276495 3.5532345 -2.3902733 3.6035965 9354.1040 -2.4194132 3.5501348 -2.3871525 3.6028711 9355.1040 -2.4107108 3.5486331 -2.3840403 3.6021460 9356.1040 -2.4030909 3.5471757 -2.3809366 3.6014212 9357.1040 -2.3953833 3.5466041 -2.3778413 3.6006967 9358.1040 -2.3886362 3.5455008 -2.3747544 3.5999726 9359.1040 -2.3815239 3.5449873 -2.3716759 3.5992487 9360.1040 -2.3750996 3.5438527 -2.3686057 3.5985252 9361.1040 -2.3681155 3.5433229 -2.3655438 3.5978020 9362.1040 -2.3616756 3.5422271 -2.3624902 3.5970791 9363.1040 -2.3545562 3.5418254 -2.3594448 3.5963565 9364.1040 -2.3479154 3.5410213 -2.3564075 3.5956343 9365.1040 -2.3406510 3.5410744 -2.3533785 3.5949123 9366.1040 -2.3339933 3.5408203 -2.3503575 3.5941907 9367.1040 -2.3268608 3.5414227 -2.3473446 3.5934694 9368.1040 -2.3204384 3.5416473 -2.3443398 3.5927484 9369.1040 -2.3135790 3.5426313 -2.3413430 3.5920277 9370.1040 -2.3074191 3.5431714 -2.3383542 3.5913073 9371.1040 -2.3008059 3.5444174 -2.3353733 3.5905872 9372.1040 -2.2948518 3.5451796 -2.3324004 3.5898675 9373.1040 -2.2883856 3.5466270 -2.3294354 3.5891481 9374.1040 -2.2825025 3.5476184 -2.3264783 3.5884290 9375.1040 -2.2760515 3.5493800 -2.3235290 3.5877102 9376.1040 -2.2702020 3.5508264 -2.3205876 3.5869917 9377.1040 -2.2639080 3.5531413 -2.3176540 3.5862736 9378.1040 -2.2583728 3.5551622 -2.3147281 3.5855558 9379.1040 -2.2525489 3.5579801 -2.3118101 3.5848383 9380.1040 -2.2475700 3.5603737 -2.3088998 3.5841211 9381.1040 -2.2423231 3.5634280 -2.3059973 3.5834042 9382.1040 -2.2379072 3.5659439 -2.3031025 3.5826877 9383.1040 -2.2331867 3.5689818 -2.3002154 3.5819715 9384.1040 -2.2291633 3.5713462 -2.2973361 3.5812556 9385.1040 -2.2246160 3.5741777 -2.2944645 3.5805400 9386.1040 -2.2205077 3.5764252 -2.2916006 3.5798248 9387.1040 -2.2156835 3.5793977 -2.2887445 3.5791099 9388.1040 -2.2113021 3.5821525 -2.2858961 3.5783953 9389.1040 -2.2064141 3.5859097 -2.2830555 3.5776811 9390.1040 -2.2022343 3.5895978 -2.2802227 3.5769672 9391.1040 -2.1978322 3.5943418 -2.2773978 3.5762536 9392.1040 -2.1944204 3.5990046 -2.2745807 3.5755404 9393.1040 -2.1910830 3.6046327 -2.2717716 3.5748275 9394.1040 -2.1890245 3.6099968 -2.2689704 3.5741149 9395.1040 -2.1872743 3.6159950 -2.2661774 3.5734027 9396.1040 -2.1868358 3.6213279 -2.2633926 3.5726909 9397.1040 -2.1865721 3.6269814 -2.2606162 3.5719793 9398.1040 -2.1874228 3.6318103 -2.2578482 3.5712682 9399.1040 -2.1883030 3.6369345 -2.2550890 3.5705574 9400.1040 -2.1902821 3.6412770 -2.2523387 3.5698469 9401.1040 -2.1924175 3.6458731 -2.2495977 3.5691369 9402.1040 -2.1958069 3.6495062 -2.2468662 3.5684272 9403.1040 -2.1994539 3.6530317 -2.2441449 3.5677179 9404.1040 -2.2042286 3.6551481 -2.2414342 3.5670090 9405.1040 -2.2089486 3.6568066 -2.2387350 3.5663005 9406.1040 -2.2144092 3.6568576 -2.2360481 3.5655924 9407.1040 -2.2194366 3.6563490 -2.2333747 3.5648847 9408.1040 -2.2248172 3.6542136 -2.2307167 3.5641775 9409.1040 -2.2293961 3.6515636 -2.2280760 3.5634708 9410.1040 -2.2339552 3.6474140 -2.2254559 3.5627646 9411.1040 -2.2373845 3.6429779 -2.2228607 3.5620589 9412.1040 -2.2405785 3.6373595 -2.2202966 3.5613539 9413.1040 -2.2425509 3.6317601 -2.2177736 3.5606495 9414.1040 -2.2443050 3.6252563 -2.2153070 3.5599459 9415.1040 -2.2449162 3.6190480 -2.2129234 3.5592432 9416.1040 -2.2458390 3.6121250 -2.2106717 3.5585417 9417.1040 -2.2464015 3.6051297 -2.2086524 3.5578417 9418.1040 -2.2492013 3.5946860 -2.2071073 3.5571441 9419.1040 -2.2449553 3.5766446 -2.2067699 3.5564507 9420.1040 -2.2299183 3.5694911 -2.2107255 3.5557668 9421.1040 -2.2369775 3.5795612 -2.2255593 3.5551091 9422.1040 -2.2442429 3.5805401 -2.2296159 3.5544909 9423.1040 -2.2429038 3.5788542 -2.2293374 3.5538875 9424.1040 -2.2406496 3.5764182 -2.2278381 3.5532896 9425.1040 -2.2358330 3.5749723 -2.2258690 3.5526944 9426.1040 -2.2316470 3.5736918 -2.2236768 3.5521009 9427.1040 -2.2263437 3.5735923 -2.2213635 3.5515086 9428.1040 -2.2221152 3.5735451 -2.2189788 3.5509172 9429.1040 -2.2172736 3.5744672 -2.2165492 3.5503264 9430.1040 -2.2136045 3.5752517 -2.2140907 3.5497362 9431.1040 -2.2095497 3.5768085 -2.2116128 3.5491465 9432.1040 -2.2066738 3.5779991 -2.2091221 3.5485571 9433.1040 -2.2034163 3.5797488 -2.2066230 3.5479681 9434.1040 -2.2011746 3.5810127 -2.2041185 3.5473795 9435.1040 -2.1984457 3.5828279 -2.2016108 3.5467911 9436.1040 -2.1966372 3.5842881 -2.1991017 3.5462031 9437.1040 -2.1944872 3.5864595 -2.1965924 3.5456152 9438.1040 -2.1935040 3.5883148 -2.1940837 3.5450277 9439.1040 -2.1925058 3.5907412 -2.1915766 3.5444403 9440.1040 -2.1929044 3.5925216 -2.1890716 3.5438532 9441.1040 -2.1933468 3.5944204 -2.1865690 3.5432663 9442.1040 -2.1950216 3.5952874 -2.1840694 3.5426796 9443.1040 -2.1965386 3.5959841 -2.1815731 3.5420931 9444.1040 -2.1990356 3.5953967 -2.1790802 3.5415068 9445.1040 -2.2010584 3.5944025 -2.1765911 3.5409207 9446.1040 -2.2036257 3.5919895 -2.1741058 3.5403348 9447.1040 -2.2052629 3.5891675 -2.1716245 3.5397490 9448.1040 -2.2069757 3.5850768 -2.1691473 3.5391634 9449.1040 -2.2073878 3.5808669 -2.1666744 3.5385780 9450.1040 -2.2076140 3.5757406 -2.1642058 3.5379928 9451.1040 -2.2063551 3.5708504 -2.1617416 3.5374077 9452.1040 -2.2047342 3.5654842 -2.1592818 3.5368228 9453.1040 -2.2016180 3.5609421 -2.1568266 3.5362381 9454.1040 -2.1984212 3.5565062 -2.1543758 3.5356535 9455.1040 -2.1942247 3.5532603 -2.1519297 3.5350691 9456.1040 -2.1904807 3.5502643 -2.1494881 3.5344849 9457.1040 -2.1862472 3.5483987 -2.1470511 3.5339008 9458.1040 -2.1828570 3.5465884 -2.1446188 3.5333169 9459.1040 -2.1792751 3.5456653 -2.1421911 3.5327331 9460.1040 -2.1767938 3.5445169 -2.1397681 3.5321495 9461.1040 -2.1743348 3.5438344 -2.1373497 3.5315660 9462.1040 -2.1729517 3.5423870 -2.1349360 3.5309827 9463.1040 -2.1712967 3.5409696 -2.1325270 3.5303996 9464.1040 -2.1703052 3.5385726 -2.1301227 3.5298166 9465.1040 -2.1686287 3.5361879 -2.1277230 3.5292337 9466.1040 -2.1672962 3.5329884 -2.1253281 3.5286510 9467.1040 -2.1651345 3.5300098 -2.1229378 3.5280685 9468.1040 -2.1632610 3.5263754 -2.1205521 3.5274861 9469.1040 -2.1605290 3.5230742 -2.1181711 3.5269038 9470.1040 -2.1580593 3.5192236 -2.1157948 3.5263217 9471.1040 -2.1547330 3.5158014 -2.1134231 3.5257397 9472.1040 -2.1516833 3.5119088 -2.1110560 3.5251579 9473.1040 -2.1478024 3.5084962 -2.1086936 3.5245763 9474.1040 -2.1442119 3.5046436 -2.1063358 3.5239947 9475.1040 -2.1397792 3.5012820 -2.1039826 3.5234134 9476.1040 -2.1355861 3.4975147 -2.1016340 3.5228321 9477.1040 -2.1304917 3.4943069 -2.0992899 3.5222511 9478.1040 -2.1255763 3.4908225 -2.0969505 3.5216701 9479.1040 -2.1197685 3.4880872 -2.0946156 3.5210893 9480.1040 -2.1142548 3.4852581 -2.0922853 3.5205087 9481.1040 -2.1080329 3.4832778 -2.0899594 3.5199282 9482.1040 -2.1022980 3.4812224 -2.0876382 3.5193478 9483.1040 -2.0960257 3.4799435 -2.0853214 3.5187676 9484.1040 -2.0903229 3.4784697 -2.0830091 3.5181875 9485.1040 -2.0840921 3.4776735 -2.0807013 3.5176076 9486.1040 -2.0784119 3.4766305 -2.0783980 3.5170278 9487.1040 -2.0721865 3.4762355 -2.0760991 3.5164482 9488.1040 -2.0664921 3.4755848 -2.0738047 3.5158686 9489.1040 -2.0602400 3.4755801 -2.0715147 3.5152893 9490.1040 -2.0545036 3.4753302 -2.0692291 3.5147101 9491.1040 -2.0481986 3.4757430 -2.0669480 3.5141310 9492.1040 -2.0423997 3.4759444 -2.0646712 3.5135521 9493.1040 -2.0360385 3.4768471 -2.0623988 3.5129733 9494.1040 -2.0301946 3.4775820 -2.0601307 3.5123946 9495.1040 -2.0238055 3.4790639 -2.0578670 3.5118161 9496.1040 -2.0179553 3.4804470 -2.0556076 3.5112377 9497.1040 -2.0116219 3.4826584 -2.0533525 3.5106595 9498.1040 -2.0059285 3.4848365 -2.0511018 3.5100814 9499.1040 -1.9998732 3.4878704 -2.0488553 3.5095035 9500.1040 -1.9945781 3.4908753 -2.0466131 3.5089257 9501.1040 -1.9890432 3.4947149 -2.0443752 3.5083480 9502.1040 -1.9843832 3.4984897 -2.0421415 3.5077705 9503.1040 -1.9795991 3.5030440 -2.0399120 3.5071931 9504.1040 -1.9758014 3.5074629 -2.0376868 3.5066158 9505.1040 -1.9719873 3.5125579 -2.0354657 3.5060387 9506.1040 -1.9692351 3.5173918 -2.0332489 3.5054617 9507.1040 -1.9665124 3.5227734 -2.0310362 3.5048849 9508.1040 -1.9648818 3.5277781 -2.0288277 3.5043082 9509.1040 -1.9633111 3.5332056 -2.0266233 3.5037317 9510.1040 -1.9628394 3.5381180 -2.0244231 3.5031553 9511.1040 -1.9623990 3.5433153 -2.0222270 3.5025790 9512.1040 -1.9630011 3.5478922 -2.0200350 3.5020029 9513.1040 -1.9635753 3.5526804 -2.0178470 3.5014269 9514.1040 -1.9651463 3.5568251 -2.0156632 3.5008510 9515.1040 -1.9667255 3.5611833 -2.0134834 3.5002753 9516.1040 -1.9694268 3.5648393 -2.0113077 3.4996998 9517.1040 -1.9723003 3.5685326 -2.0091360 3.4991243 9518.1040 -1.9764521 3.5711798 -2.0069683 3.4985490 9519.1040 -1.9807481 3.5732942 -2.0048046 3.4979739 9520.1040 -1.9859123 3.5737899 -2.0026450 3.4973988 9521.1040 -1.9905541 3.5734432 -2.0004893 3.4968240 9522.1040 -1.9953316 3.5714694 -1.9983375 3.4962492 9523.1040 -1.9989021 3.5689520 -1.9961898 3.4956746 9524.1040 -2.0021769 3.5653650 -1.9940459 3.4951002 9525.1040 -2.0041318 3.5617759 -1.9919060 3.4945258 9526.1040 -2.0058046 3.5575253 -1.9897700 3.4939516 9527.1040 -2.0061967 3.5536159 -1.9876380 3.4933776 9528.1040 -2.0063950 3.5493976 -1.9855098 3.4928037 9529.1040 -2.0055207 3.5458421 -1.9833854 3.4922299 9530.1040 -2.0047485 3.5421885 -1.9812650 3.4916563 9531.1040 -2.0032268 3.5392797 -1.9791484 3.4910828 9532.1040 -2.0021152 3.5362201 -1.9770356 3.4905094 9533.1040 -2.0004532 3.5337192 -1.9749266 3.4899362 9534.1040 -1.9992349 3.5308806 -1.9728215 3.4893631 9535.1040 -1.9974211 3.5284929 -1.9707201 3.4887902 9536.1040 -1.9959878 3.5257320 -1.9686226 3.4882174 9537.1040 -1.9939099 3.5234386 -1.9665288 3.4876447 9538.1040 -1.9922020 3.5208234 -1.9644387 3.4870722 9539.1040 -1.9898817 3.5187139 -1.9623525 3.4864998 9540.1040 -1.9879741 3.5162995 -1.9602699 3.4859275 9541.1040 -1.9855004 3.5143819 -1.9581911 3.4853554 9542.1040 -1.9834666 3.5121303 -1.9561159 3.4847834 9543.1040 -1.9808653 3.5103413 -1.9540445 3.4842116 9544.1040 -1.9786801 3.5082062 -1.9519768 3.4836399 9545.1040 -1.9759013 3.5065395 -1.9499127 3.4830683 9546.1040 -1.9735122 3.5045567 -1.9478523 3.4824969 9547.1040 -1.9705224 3.5030892 -1.9457955 3.4819256 9548.1040 -1.9679352 3.5013571 -1.9437424 3.4813544 9549.1040 -1.9647723 3.5001830 -1.9416929 3.4807834 9550.1040 -1.9620366 3.4987948 -1.9396470 3.4802125 9551.1040 -1.9587700 3.4980334 -1.9376047 3.4796418 9552.1040 -1.9560283 3.4971343 -1.9355660 3.4790712 9553.1040 -1.9529088 3.4968877 -1.9335309 3.4785007 9554.1040 -1.9504817 3.4964656 -1.9314994 3.4779304 9555.1040 -1.9478436 3.4965729 -1.9294714 3.4773602 9556.1040 -1.9459887 3.4962879 -1.9274469 3.4767901 9557.1040 -1.9438772 3.4963019 -1.9254260 3.4762202 9558.1040 -1.9424127 3.4957769 -1.9234086 3.4756504 9559.1040 -1.9405371 3.4954833 -1.9213947 3.4750807 9560.1040 -1.9391578 3.4946573 -1.9193842 3.4745112 9561.1040 -1.9372633 3.4941255 -1.9173773 3.4739419 9562.1040 -1.9358176 3.4931351 -1.9153739 3.4733726 9563.1040 -1.9338380 3.4924905 -1.9133739 3.4728035 9564.1040 -1.9322906 3.4914329 -1.9113773 3.4722346 9565.1040 -1.9301995 3.4907681 -1.9093842 3.4716657 9566.1040 -1.9285442 3.4897452 -1.9073946 3.4710970 9567.1040 -1.9263678 3.4891603 -1.9054083 3.4705285 9568.1040 -1.9246536 3.4882555 -1.9034255 3.4699601 9569.1040 -1.9224484 3.4878256 -1.9014460 3.4693918 9570.1040 -1.9207504 3.4871269 -1.8994699 3.4688236 9571.1040 -1.9186487 3.4869445 -1.8974972 3.4682556 9572.1040 -1.9171708 3.4864978 -1.8955279 3.4676877 9573.1040 -1.9154164 3.4865214 -1.8935619 3.4671200 9574.1040 -1.9144078 3.4861791 -1.8915993 3.4665524 9575.1040 -1.9131987 3.4861346 -1.8896400 3.4659849 9576.1040 -1.9127222 3.4855399 -1.8876840 3.4654176 9577.1040 -1.9119798 3.4850912 -1.8857313 3.4648504 9578.1040 -1.9118902 3.4839711 -1.8837819 3.4642834 9579.1040 -1.9114466 3.4828596 -1.8818359 3.4637164 9580.1040 -1.9114942 3.4809199 -1.8798931 3.4631496 9581.1040 -1.9109235 3.4788851 -1.8779535 3.4625830 9582.1040 -1.9105257 3.4760379 -1.8760172 3.4620165 9583.1040 -1.9091836 3.4732381 -1.8740842 3.4614501 9584.1040 -1.9077415 3.4699494 -1.8721544 3.4608839 9585.1040 -1.9053034 3.4671557 -1.8702278 3.4603178 9586.1040 -1.9029492 3.4642379 -1.8683045 3.4597518 9587.1040 -1.8998713 3.4620112 -1.8663843 3.4591860 9588.1040 -1.8971597 3.4597282 -1.8644674 3.4586203 9589.1040 -1.8939756 3.4580740 -1.8625536 3.4580547 9590.1040 -1.8913035 3.4562240 -1.8606431 3.4574893 9591.1040 -1.8882086 3.4548745 -1.8587356 3.4569240 9592.1040 -1.8856426 3.4532421 -1.8568314 3.4563588 9593.1040 -1.8826679 3.4520265 -1.8549303 3.4557938 9594.1040 -1.8802092 3.4504308 -1.8530323 3.4552289 9595.1040 -1.8772722 3.4491584 -1.8511375 3.4546642 9596.1040 -1.8747338 3.4474686 -1.8492458 3.4540996 9597.1040 -1.8715898 3.4461252 -1.8473571 3.4535351 9598.1040 -1.8687193 3.4444709 -1.8454716 3.4529707 9599.1040 -1.8652000 3.4433625 -1.8435892 3.4524065 9600.1040 -1.8620597 3.4421477 -1.8417099 3.4518425 9601.1040 -1.8584743 3.4415794 -1.8398336 3.4512785 9602.1040 -1.8554921 3.4409011 -1.8379604 3.4507147 9603.1040 -1.8522819 3.4407455 -1.8360902 3.4501511 9604.1040 -1.8497871 3.4402381 -1.8342231 3.4495875 9605.1040 -1.8470097 3.4400074 -1.8323591 3.4490241 9606.1040 -1.8447969 3.4392798 -1.8304980 3.4484609 9607.1040 -1.8421330 3.4387725 -1.8286400 3.4478977 9608.1040 -1.8398690 3.4377978 -1.8267850 3.4473348 9609.1040 -1.8370493 3.4371459 -1.8249329 3.4467719 9610.1040 -1.8346118 3.4361389 -1.8230839 3.4462092 9611.1040 -1.8316487 3.4355212 -1.8212378 3.4456466 9612.1040 -1.8291049 3.4345803 -1.8193948 3.4450842 9613.1040 -1.8260701 3.4340244 -1.8175546 3.4445218 9614.1040 -1.8234573 3.4331173 -1.8157175 3.4439597 9615.1040 -1.8203172 3.4325743 -1.8138832 3.4433976 9616.1040 -1.8175420 3.4316937 -1.8120520 3.4428357 9617.1040 -1.8141810 3.4312214 -1.8102236 3.4422739 9618.1040 -1.8111349 3.4305043 -1.8083981 3.4417123 9619.1040 -1.8075116 3.4303268 -1.8065756 3.4411508 9620.1040 -1.8042835 3.4300195 -1.8047560 3.4405894 9621.1040 -1.8005914 3.4303143 -1.8029392 3.4400282 9622.1040 -1.7974113 3.4305045 -1.8011254 3.4394671 9623.1040 -1.7938839 3.4312870 -1.7993144 3.4389061 9624.1040 -1.7909724 3.4319291 -1.7975063 3.4383453 9625.1040 -1.7878059 3.4331084 -1.7957010 3.4377846 9626.1040 -1.7853402 3.4340794 -1.7938986 3.4372240 9627.1040 -1.7827053 3.4354908 -1.7920990 3.4366636 9628.1040 -1.7808368 3.4365456 -1.7903023 3.4361033 9629.1040 -1.7787834 3.4378473 -1.7885084 3.4355431 9630.1040 -1.7773825 3.4386406 -1.7867173 3.4349831 9631.1040 -1.7756472 3.4396035 -1.7849290 3.4344232 9632.1040 -1.7744073 3.4400486 -1.7831436 3.4338635 9633.1040 -1.7726937 3.4407277 -1.7813609 3.4333038 9634.1040 -1.7714100 3.4410144 -1.7795810 3.4327443 9635.1040 -1.7696774 3.4416396 -1.7778038 3.4321850 9636.1040 -1.7684327 3.4419246 -1.7760295 3.4316258 9637.1040 -1.7668040 3.4425560 -1.7742579 3.4310667 9638.1040 -1.7657182 3.4428141 -1.7724890 3.4305077 9639.1040 -1.7642649 3.4433506 -1.7707229 3.4299489 9640.1040 -1.7633211 3.4434578 -1.7689596 3.4293902 9641.1040 -1.7619588 3.4438159 -1.7671989 3.4288317 9642.1040 -1.7610503 3.4437434 -1.7654410 3.4282733 9643.1040 -1.7596729 3.4439431 -1.7636858 3.4277150 9644.1040 -1.7587172 3.4437555 -1.7619333 3.4271568 9645.1040 -1.7572862 3.4438809 -1.7601835 3.4265988 9646.1040 -1.7562785 3.4436529 -1.7584364 3.4260409 9647.1040 -1.7548005 3.4437666 -1.7566920 3.4254832 9648.1040 -1.7537532 3.4435647 -1.7549502 3.4249256 9649.1040 -1.7522653 3.4437468 -1.7532111 3.4243681 9650.1040 -1.7512626 3.4436428 -1.7514747 3.4238108 9651.1040 -1.7498865 3.4439230 -1.7497409 3.4232536 9652.1040 -1.7490631 3.4438933 -1.7480098 3.4226965 9653.1040 -1.7479302 3.4441865 -1.7462813 3.4221395 9654.1040 -1.7473750 3.4440754 -1.7445554 3.4215827 9655.1040 -1.7464833 3.4441954 -1.7428322 3.4210260 9656.1040 -1.7461144 3.4438525 -1.7411116 3.4204695 9657.1040 -1.7453505 3.4437051 -1.7393935 3.4199131 9658.1040 -1.7450495 3.4430784 -1.7376781 3.4193568 9659.1040 -1.7442982 3.4426426 -1.7359653 3.4188007 9660.1040 -1.7439572 3.4417347 -1.7342551 3.4182447 9661.1040 -1.7431170 3.4410298 -1.7325474 3.4176888 9662.1040 -1.7426372 3.4398754 -1.7308423 3.4171331 9663.1040 -1.7416113 3.4389591 -1.7291398 3.4165774 9664.1040 -1.7409109 3.4376477 -1.7274398 3.4160220 9665.1040 -1.7396536 3.4366295 -1.7257424 3.4154666 9666.1040 -1.7387228 3.4352644 -1.7240475 3.4149114 9667.1040 -1.7372401 3.4342324 -1.7223552 3.4143563 9668.1040 -1.7360884 3.4328982 -1.7206653 3.4138014 9669.1040 -1.7344034 3.4319479 -1.7189781 3.4132466 9670.1040 -1.7330896 3.4307429 -1.7172933 3.4126919 9671.1040 -1.7312988 3.4299469 -1.7156110 3.4121374 9672.1040 -1.7299375 3.4289023 -1.7139312 3.4115829 9673.1040 -1.7281585 3.4282474 -1.7122540 3.4110287 9674.1040 -1.7268491 3.4272970 -1.7105792 3.4104745 9675.1040 -1.7251237 3.4266786 -1.7089069 3.4099205 9676.1040 -1.7238375 3.4257313 -1.7072370 3.4093666 9677.1040 -1.7220984 3.4251079 -1.7055697 3.4088129 9678.1040 -1.7207598 3.4241752 -1.7039048 3.4082593 9679.1040 -1.7189479 3.4236186 -1.7022423 3.4077058 9680.1040 -1.7175634 3.4228214 -1.7005823 3.4071524 9681.1040 -1.7157778 3.4224384 -1.6989248 3.4065992 9682.1040 -1.7145035 3.4218142 -1.6972696 3.4060461 9683.1040 -1.7129153 3.4215639 -1.6956169 3.4054932 9684.1040 -1.7119079 3.4209829 -1.6939667 3.4049404 9685.1040 -1.7105956 3.4206488 -1.6923188 3.4043877 9686.1040 -1.7098054 3.4198823 -1.6906734 3.4038351 9687.1040 -1.7086292 3.4193047 -1.6890303 3.4032827 9688.1040 -1.7078894 3.4182713 -1.6873896 3.4027304 9689.1040 -1.7066816 3.4174303 -1.6857514 3.4021783 9690.1040 -1.7058416 3.4161644 -1.6841155 3.4016262 9691.1040 -1.7044868 3.4151288 -1.6824820 3.4010744 9692.1040 -1.7034611 3.4137078 -1.6808508 3.4005226 9693.1040 -1.7018848 3.4125598 -1.6792220 3.3999710 9694.1040 -1.7006026 3.4110884 -1.6775956 3.3994195 9695.1040 -1.6987609 3.4099739 -1.6759716 3.3988681 9696.1040 -1.6972456 3.4086189 -1.6743498 3.3983169 9697.1040 -1.6952294 3.4076742 -1.6727304 3.3977658 9698.1040 -1.6936025 3.4065185 -1.6711134 3.3972148 9699.1040 -1.6915392 3.4057802 -1.6694987 3.3966640 9700.1040 -1.6899215 3.4048190 -1.6678862 3.3961133 9701.1040 -1.6879091 3.4042490 -1.6662761 3.3955627 9702.1040 -1.6863693 3.4034324 -1.6646684 3.3950123 9703.1040 -1.6844593 3.4029837 -1.6630629 3.3944620 9704.1040 -1.6830450 3.4022643 -1.6614597 3.3939118 9705.1040 -1.6812816 3.4018793 -1.6598588 3.3933618 9706.1040 -1.6800228 3.4011860 -1.6582602 3.3928118 9707.1040 -1.6784145 3.4007907 -1.6566638 3.3922621 9708.1040 -1.6773056 3.4000568 -1.6550698 3.3917124 9709.1040 -1.6758430 3.3995888 -1.6534779 3.3911629 9710.1040 -1.6748710 3.3987434 -1.6518884 3.3906135 9711.1040 -1.6735187 3.3981152 -1.6503011 3.3900643 9712.1040 -1.6726034 3.3970744 -1.6487161 3.3895151 9713.1040 -1.6712436 3.3962387 -1.6471333 3.3889662 9714.1040 -1.6702533 3.3950030 -1.6455527 3.3884173 9715.1040 -1.6687542 3.3940128 -1.6439744 3.3878686 9716.1040 -1.6675867 3.3927009 -1.6423983 3.3873200 9717.1040 -1.6659259 3.3917151 -1.6408244 3.3867715 9718.1040 -1.6646447 3.3904594 -1.6392527 3.3862232 9719.1040 -1.6629274 3.3895491 -1.6376833 3.3856750 9720.1040 -1.6616458 3.3883639 -1.6361160 3.3851269 9721.1040 -1.6599748 3.3874883 -1.6345509 3.3845790 9722.1040 -1.6587548 3.3862869 -1.6329881 3.3840312 9723.1040 -1.6571345 3.3853516 -1.6314274 3.3834835 9724.1040 -1.6559447 3.3840634 -1.6298689 3.3829360 9725.1040 -1.6543346 3.3830194 -1.6283125 3.3823885 9726.1040 -1.6531311 3.3816022 -1.6267584 3.3818413 9727.1040 -1.6514734 3.3804073 -1.6252064 3.3812941 9728.1040 -1.6501731 3.3788303 -1.6236565 3.3807471 9729.1040 -1.6483645 3.3774831 -1.6221089 3.3802002 9730.1040 -1.6468568 3.3757808 -1.6205633 3.3796534 9731.1040 -1.6447876 3.3743599 -1.6190199 3.3791068 9732.1040 -1.6429914 3.3726696 -1.6174786 3.3785603 9733.1040 -1.6406567 3.3713473 -1.6159395 3.3780140 9734.1040 -1.6386486 3.3698139 -1.6144025 3.3774677 9735.1040 -1.6361641 3.3686746 -1.6128676 3.3769216 9736.1040 -1.6340677 3.3673265 -1.6113348 3.3763756 9737.1040 -1.6315465 3.3663416 -1.6098042 3.3758298 9738.1040 -1.6294279 3.3651008 -1.6082756 3.3752841 9739.1040 -1.6268658 3.3641891 -1.6067492 3.3747385 9740.1040 -1.6246754 3.3630137 -1.6052248 3.3741931 9741.1040 -1.6220103 3.3621778 -1.6037025 3.3736477 9742.1040 -1.6196878 3.3611147 -1.6021823 3.3731026 9743.1040 -1.6168883 3.3604503 -1.6006642 3.3725575 9744.1040 -1.6144671 3.3596157 -1.5991482 3.3720126 9745.1040 -1.6116262 3.3592094 -1.5976342 3.3714678 9746.1040 -1.6092234 3.3586416 -1.5961223 3.3709231 9747.1040 -1.6064618 3.3584885 -1.5946124 3.3703786 9748.1040 -1.6041872 3.3581384 -1.5931046 3.3698342 9749.1040 -1.6015792 3.3581556 -1.5915989 3.3692899 9750.1040 -1.5994636 3.3579382 -1.5900952 3.3687457 9751.1040 -1.5970165 3.3580578 -1.5885935 3.3682017 9752.1040 -1.5950621 3.3579174 -1.5870939 3.3676578 9753.1040 -1.5927755 3.3580851 -1.5855963 3.3671141 9754.1040 -1.5909706 3.3579633 -1.5841007 3.3665705 9755.1040 -1.5888126 3.3581251 -1.5826071 3.3660270 9756.1040 -1.5871095 3.3579859 -1.5811155 3.3654836 9757.1040 -1.5850268 3.3581272 -1.5796260 3.3649404 9758.1040 -1.5833722 3.3579778 -1.5781384 3.3643973 9759.1040 -1.5813218 3.3581320 -1.5766529 3.3638543 9760.1040 -1.5797011 3.3580240 -1.5751693 3.3633114 9761.1040 -1.5777006 3.3582370 -1.5736878 3.3627687 9762.1040 -1.5761476 3.3581973 -1.5722082 3.3622261 9763.1040 -1.5742340 3.3584809 -1.5707306 3.3616837 9764.1040 -1.5727866 3.3585123 -1.5692550 3.3611414 9765.1040 -1.5710008 3.3588626 -1.5677813 3.3605992 9766.1040 -1.5697051 3.3589520 -1.5663096 3.3600571 9767.1040 -1.5680970 3.3593426 -1.5648399 3.3595152 9768.1040 -1.5670038 3.3594476 -1.5633721 3.3589733 9769.1040 -1.5656232 3.3598136 -1.5619062 3.3584317 9770.1040 -1.5647660 3.3598372 -1.5604424 3.3578901 9771.1040 -1.5636028 3.3600621 -1.5589804 3.3573487 9772.1040 -1.5629261 3.3599024 -1.5575204 3.3568074 9773.1040 -1.5619036 3.3599146 -1.5560623 3.3562662 9774.1040 -1.5613263 3.3595235 -1.5546062 3.3557252 9775.1040 -1.5603622 3.3592893 -1.5531520 3.3551843 9776.1040 -1.5597976 3.3586434 -1.5516997 3.3546435 9777.1040 -1.5587975 3.3581530 -1.5502493 3.3541029 9778.1040 -1.5581453 3.3572614 -1.5488008 3.3535624 9779.1040 -1.5570068 3.3565453 -1.5473542 3.3530220 9780.1040 -1.5561653 3.3554651 -1.5459095 3.3524817 9781.1040 -1.5548009 3.3546159 -1.5444667 3.3519416 9782.1040 -1.5537210 3.3534652 -1.5430258 3.3514016 9783.1040 -1.5521237 3.3525962 -1.5415868 3.3508618 9784.1040 -1.5508196 3.3514691 -1.5401497 3.3503220 9785.1040 -1.5490081 3.3506634 -1.5387145 3.3497824 9786.1040 -1.5475028 3.3496472 -1.5372811 3.3492429 9787.1040 -1.5455234 3.3490036 -1.5358496 3.3487036 9788.1040 -1.5439047 3.3481881 -1.5344200 3.3481643 9789.1040 -1.5418763 3.3477598 -1.5329922 3.3476253 9790.1040 -1.5402735 3.3471555 -1.5315663 3.3470863 9791.1040 -1.5383262 3.3469076 -1.5301422 3.3465475 9792.1040 -1.5368489 3.3464214 -1.5287200 3.3460087 9793.1040 -1.5350271 3.3462173 -1.5272996 3.3454702 9794.1040 -1.5336391 3.3457260 -1.5258810 3.3449317 9795.1040 -1.5318622 3.3454955 -1.5244643 3.3443934 9796.1040 -1.5304727 3.3449798 -1.5230495 3.3438552 9797.1040 -1.5286531 3.3447520 -1.5216364 3.3433171 9798.1040 -1.5272056 3.3442925 -1.5202252 3.3427792 9799.1040 -1.5253502 3.3441682 -1.5188158 3.3422414 9800.1040 -1.5239049 3.3438385 -1.5174082 3.3417037 9801.1040 -1.5220939 3.3438512 -1.5160024 3.3411662 9802.1040 -1.5207342 3.3436521 -1.5145984 3.3406287 9803.1040 -1.5190449 3.3437705 -1.5131962 3.3400914 9804.1040 -1.5178247 3.3436433 -1.5117958 3.3395543 9805.1040 -1.5162779 3.3438036 -1.5103972 3.3390172 9806.1040 -1.5151972 3.3436980 -1.5090004 3.3384803 9807.1040 -1.5137873 3.3438630 -1.5076054 3.3379435 9808.1040 -1.5128401 3.3437504 -1.5062121 3.3374069 9809.1040 -1.5115637 3.3438979 -1.5048207 3.3368704 9810.1040 -1.5107529 3.3437580 -1.5034310 3.3363340 9811.1040 -1.5096192 3.3438634 -1.5020431 3.3357977 9812.1040 -1.5089571 3.3436626 -1.5006569 3.3352616 9813.1040 -1.5079791 3.3436796 -1.4992725 3.3347255 9814.1040 -1.5074729 3.3433497 -1.4978898 3.3341897 9815.1040 -1.5066275 3.3431845 -1.4965090 3.3336539 9816.1040 -1.5062011 3.3426342 -1.4951298 3.3331183 9817.1040 -1.5053723 3.3422344 -1.4937524 3.3325828 9818.1040 -1.5048966 3.3414581 -1.4923767 3.3320474 9819.1040 -1.5039542 3.3408649 -1.4910028 3.3315121 9820.1040 -1.5033185 3.3399626 -1.4896306 3.3309770 9821.1040 -1.5022158 3.3393214 -1.4882602 3.3304420 9822.1040 -1.5014537 3.3384280 -1.4868914 3.3299072 9823.1040 -1.5002692 3.3378236 -1.4855244 3.3293724 9824.1040 -1.4994702 3.3369766 -1.4841591 3.3288378 9825.1040 -1.4982924 3.3364055 -1.4827955 3.3283033 9826.1040 -1.4975262 3.3355586 -1.4814336 3.3277690 9827.1040 -1.4963816 3.3349506 -1.4800735 3.3272348 9828.1040 -1.4956326 3.3340442 -1.4787150 3.3267007 9829.1040 -1.4944872 3.3333638 -1.4773582 3.3261667 9830.1040 -1.4937183 3.3323802 -1.4760032 3.3256328 9831.1040 -1.4925348 3.3316218 -1.4746498 3.3250991 9832.1040 -1.4917096 3.3305651 -1.4732981 3.3245655 9833.1040 -1.4904532 3.3297409 -1.4719480 3.3240321 9834.1040 -1.4895380 3.3286306 -1.4705997 3.3234987 9835.1040 -1.4881753 3.3277683 -1.4692530 3.3229655 9836.1040 -1.4871366 3.3266448 -1.4679080 3.3224325 9837.1040 -1.4856412 3.3258068 -1.4665647 3.3218995 9838.1040 -1.4844804 3.3247535 -1.4652231 3.3213667 9839.1040 -1.4828949 3.3240194 -1.4638831 3.3208340 9840.1040 -1.4816816 3.3230892 -1.4625447 3.3203014 9841.1040 -1.4800830 3.3224845 -1.4612080 3.3197690 9842.1040 -1.4788950 3.3216811 -1.4598730 3.3192366 9843.1040 -1.4773588 3.3211901 -1.4585396 3.3187044 9844.1040 -1.4762651 3.3204807 -1.4572078 3.3181724 9845.1040 -1.4748532 3.3200571 -1.4558777 3.3176404 9846.1040 -1.4739126 3.3193819 -1.4545493 3.3171086 9847.1040 -1.4726833 3.3189448 -1.4532224 3.3165769 9848.1040 -1.4719476 3.3181799 -1.4518972 3.3160454 9849.1040 -1.4709001 3.3175428 -1.4505736 3.3155140 9850.1040 -1.4702528 3.3164876 -1.4492516 3.3149826 9851.1040 -1.4691663 3.3155238 -1.4479313 3.3144515 9852.1040 -1.4683449 3.3141595 -1.4466126 3.3139204 9853.1040 -1.4669499 3.3129556 -1.4452954 3.3133895 9854.1040 -1.4657076 3.3115020 -1.4439799 3.3128587 9855.1040 -1.4638852 3.3104231 -1.4426660 3.3123280 9856.1040 -1.4623315 3.3092685 -1.4413537 3.3117975 9857.1040 -1.4603624 3.3085725 -1.4400430 3.3112671 9858.1040 -1.4588332 3.3078158 -1.4387338 3.3107368 9859.1040 -1.4570606 3.3074630 -1.4374263 3.3102066 9860.1040 -1.4558630 3.3069057 -1.4361203 3.3096766 9861.1040 -1.4544479 3.3065557 -1.4348160 3.3091466 9862.1040 -1.4535301 3.3058519 -1.4335132 3.3086168 9863.1040 -1.4522860 3.3052752 -1.4322120 3.3080872 9864.1040 -1.4514258 3.3043140 -1.4309124 3.3075576 9865.1040 -1.4501274 3.3034934 -1.4296143 3.3070282 9866.1040 -1.4491247 3.3023536 -1.4283178 3.3064990 9867.1040 -1.4476516 3.3014398 -1.4270228 3.3059698 9868.1040 -1.4464812 3.3002734 -1.4257295 3.3054408 9869.1040 -1.4448585 3.2993755 -1.4244376 3.3049119 9870.1040 -1.4435570 3.2982576 -1.4231474 3.3043831 9871.1040 -1.4418230 3.2974353 -1.4218587 3.3038544 9872.1040 -1.4404356 3.2964208 -1.4205715 3.3033259 9873.1040 -1.4386535 3.2957218 -1.4192859 3.3027975 9874.1040 -1.4372622 3.2948374 -1.4180018 3.3022692 9875.1040 -1.4355231 3.2942590 -1.4167192 3.3017410 9876.1040 -1.4342210 3.2934712 -1.4154382 3.3012130 9877.1040 -1.4326143 3.2929372 -1.4141587 3.3006851 9878.1040 -1.4314540 3.2921134 -1.4128808 3.3001573 9879.1040 -1.4299489 3.2914688 -1.4116043 3.2996297 9880.1040 -1.4288224 3.2904948 -1.4103294 3.2991022 9881.1040 -1.4272789 3.2896903 -1.4090560 3.2985748 9882.1040 -1.4260405 3.2885740 -1.4077841 3.2980475 9883.1040 -1.4243184 3.2876787 -1.4065137 3.2975203 9884.1040 -1.4228711 3.2865573 -1.4052449 3.2969933 9885.1040 -1.4209600 3.2857346 -1.4039775 3.2964664 9886.1040 -1.4193647 3.2847359 -1.4027117 3.2959397 9887.1040 -1.4173513 3.2840635 -1.4014473 3.2954130 9888.1040 -1.4156990 3.2832285 -1.4001844 3.2948865 9889.1040 -1.4136724 3.2827164 -1.3989231 3.2943601 9890.1040 -1.4120396 3.2820271 -1.3976632 3.2938338 9891.1040 -1.4100541 3.2816430 -1.3964048 3.2933077 9892.1040 -1.4084787 3.2810675 -1.3951479 3.2927816 9893.1040 -1.4065671 3.2807815 -1.3938924 3.2922557 9894.1040 -1.4050809 3.2802855 -1.3926385 3.2917300 9895.1040 -1.4032710 3.2800507 -1.3913860 3.2912043 9896.1040 -1.4018840 3.2795724 -1.3901350 3.2906788 9897.1040 -1.4001557 3.2793280 -1.3888854 3.2901534 9898.1040 -1.3988262 3.2788267 -1.3876374 3.2896281 9899.1040 -1.3971312 3.2785546 -1.3863907 3.2891030 9900.1040 -1.3958102 3.2780319 -1.3851456 3.2885780 9901.1040 -1.3941047 3.2777571 -1.3839019 3.2880531 9902.1040 -1.3927697 3.2772601 -1.3826596 3.2875283 9903.1040 -1.3910645 3.2770316 -1.3814188 3.2870036 9904.1040 -1.3897493 3.2765909 -1.3801795 3.2864791 9905.1040 -1.3880849 3.2764188 -1.3789416 3.2859547 9906.1040 -1.3868304 3.2760274 -1.3777051 3.2854304 9907.1040 -1.3852436 3.2758859 -1.3764701 3.2849063 9908.1040 -1.3840702 3.2755008 -1.3752365 3.2843823 9909.1040 -1.3825563 3.2753452 -1.3740043 3.2838584 9910.1040 -1.3814433 3.2749349 -1.3727736 3.2833346 9911.1040 -1.3799776 3.2747469 -1.3715443 3.2828109 9912.1040 -1.3788996 3.2743027 -1.3703164 3.2822874 9913.1040 -1.3774582 3.2740831 -1.3690899 3.2817640 9914.1040 -1.3763978 3.2736137 -1.3678649 3.2812407 9915.1040 -1.3749725 3.2733732 -1.3666412 3.2807176 9916.1040 -1.3739272 3.2728860 -1.3654190 3.2801945 9917.1040 -1.3725168 3.2726281 -1.3641982 3.2796716 9918.1040 -1.3714854 3.2721244 -1.3629788 3.2791488 9919.1040 -1.3700886 3.2718491 -1.3617608 3.2786262 9920.1040 -1.3690682 3.2713276 -1.3605442 3.2781036 9921.1040 -1.3676797 3.2710336 -1.3593290 3.2775812 9922.1040 -1.3666642 3.2704947 -1.3581152 3.2770589 9923.1040 -1.3652776 3.2701841 -1.3569028 3.2765368 9924.1040 -1.3642603 3.2696313 -1.3556917 3.2760147 9925.1040 -1.3628696 3.2693096 -1.3544821 3.2754928 9926.1040 -1.3618458 3.2687502 -1.3532739 3.2749710 9927.1040 -1.3604478 3.2684257 -1.3520670 3.2744493 9928.1040 -1.3594158 3.2678684 -1.3508615 3.2739278 9929.1040 -1.3580092 3.2675503 -1.3496574 3.2734064 9930.1040 -1.3569674 3.2670072 -1.3484546 3.2728851 9931.1040 -1.3555536 3.2667142 -1.3472533 3.2723639 9932.1040 -1.3545145 3.2662090 -1.3460532 3.2718428 9933.1040 -1.3531212 3.2659601 -1.3448546 3.2713219 9934.1040 -1.3521220 3.2654986 -1.3436573 3.2708011 9935.1040 -1.3507889 3.2652852 -1.3424614 3.2702804 9936.1040 -1.3498694 3.2648436 -1.3412668 3.2697599 9937.1040 -1.3486304 3.2646205 -1.3400736 3.2692394 9938.1040 -1.3478001 3.2641337 -1.3388818 3.2687191 9939.1040 -1.3466292 3.2638383 -1.3376913 3.2681989 9940.1040 -1.3458400 3.2632663 -1.3365021 3.2676789 9941.1040 -1.3446828 3.2628815 -1.3353143 3.2671589 9942.1040 -1.3438795 3.2622273 -1.3341278 3.2666391 9943.1040 -1.3426865 3.2617798 -1.3329427 3.2661194 9944.1040 -1.3418415 3.2610913 -1.3317588 3.2655999 9945.1040 -1.3406182 3.2606296 -1.3305764 3.2650804 9946.1040 -1.3397589 3.2599361 -1.3293952 3.2645611 9947.1040 -1.3385387 3.2594680 -1.3282154 3.2640419 9948.1040 -1.3376993 3.2587578 -1.3270369 3.2635228 9949.1040 -1.3365105 3.2582462 -1.3258598 3.2630038 9950.1040 -1.3356904 3.2574562 -1.3246839 3.2624850 9951.1040 -1.3344851 3.2568397 -1.3235094 3.2619663 9952.1040 -1.3336029 3.2559414 -1.3223362 3.2614477 9953.1040 -1.3322891 3.2552299 -1.3211643 3.2609292 9954.1040 -1.3312514 3.2542701 -1.3199937 3.2604109 9955.1040 -1.3297445 3.2535602 -1.3188244 3.2598927 9956.1040 -1.3285169 3.2526920 -1.3176564 3.2593746 9957.1040 -1.3268744 3.2521462 -1.3164897 3.2588566 9958.1040 -1.3255852 3.2514789 -1.3153244 3.2583387 9959.1040 -1.3239589 3.2511398 -1.3141603 3.2578210 9960.1040 -1.3227634 3.2506596 -1.3129975 3.2573034 9961.1040 -1.3213024 3.2504496 -1.3118360 3.2567859 9962.1040 -1.3203013 3.2500051 -1.3106758 3.2562686 9963.1040 -1.3190078 3.2497450 -1.3095169 3.2557513 9964.1040 -1.3181206 3.2492006 -1.3083592 3.2552342 9965.1040 -1.3168833 3.2488174 -1.3072029 3.2547172 9966.1040 -1.3159933 3.2481489 -1.3060478 3.2542003 9967.1040 -1.3146977 3.2476649 -1.3048940 3.2536836 9968.1040 -1.3137149 3.2469459 -1.3037415 3.2531670 9969.1040 -1.3123263 3.2464625 -1.3025903 3.2526505 9970.1040 -1.3112677 3.2457796 -1.3014403 3.2521341 9971.1040 -1.3098246 3.2453534 -1.3002916 3.2516178 9972.1040 -1.3087324 3.2447420 -1.2991442 3.2511017 9973.1040 -1.3072774 3.2443962 -1.2979980 3.2505856 9974.1040 -1.3061958 3.2438717 -1.2968531 3.2500698 9975.1040 -1.3047776 3.2436134 -1.2957094 3.2495540 9976.1040 -1.3037601 3.2431712 -1.2945670 3.2490383 9977.1040 -1.3024345 3.2429813 -1.2934258 3.2485228 9978.1040 -1.3015373 3.2425857 -1.2922859 3.2480074 9979.1040 -1.3003596 3.2424050 -1.2911473 3.2474921 9980.1040 -1.2996216 3.2419597 -1.2900099 3.2469769 9981.1040 -1.2985786 3.2416640 -1.2888737 3.2464619 9982.1040 -1.2979218 3.2410621 -1.2877388 3.2459470 9983.1040 -1.2969000 3.2405932 -1.2866051 3.2454322 9984.1040 -1.2962030 3.2398223 -1.2854727 3.2449175 9985.1040 -1.2950802 3.2392099 -1.2843415 3.2444029 9986.1040 -1.2942334 3.2383529 -1.2832115 3.2438885 9987.1040 -1.2929516 3.2377291 -1.2820828 3.2433742 9988.1040 -1.2919727 3.2369203 -1.2809552 3.2428600 9989.1040 -1.2905980 3.2363784 -1.2798289 3.2423459 9990.1040 -1.2895662 3.2356695 -1.2787039 3.2418320 9991.1040 -1.2881795 3.2352314 -1.2775800 3.2413181 9992.1040 -1.2871734 3.2346161 -1.2764574 3.2408044 9993.1040 -1.2858383 3.2342478 -1.2753360 3.2402909 9994.1040 -1.2848950 3.2336795 -1.2742158 3.2397774 9995.1040 -1.2836291 3.2333391 -1.2730968 3.2392640 9996.1040 -1.2827597 3.2327820 -1.2719790 3.2387508 9997.1040 -1.2815730 3.2324338 -1.2708624 3.2382377 9998.1040 -1.2807858 3.2318437 -1.2697471 3.2377247 9999.1040 -1.2796719 3.2314283 -1.2686329 3.2372119 10000.104 -1.2789283 3.2307438 -1.2675200 3.2366991 10001.104 -1.2778198 3.2302214 -1.2664082 3.2361865 10002.104 -1.2770408 3.2294332 -1.2652976 3.2356740 10003.104 -1.2758567 3.2288230 -1.2641882 3.2351617 10004.104 -1.2749628 3.2279846 -1.2630801 3.2346494 10005.104 -1.2736471 3.2273877 -1.2619731 3.2341373 10006.104 -1.2726465 3.2266282 -1.2608673 3.2336253 10007.104 -1.2712767 3.2261490 -1.2597626 3.2331134 10008.104 -1.2702803 3.2255201 -1.2586592 3.2326016 10009.104 -1.2689744 3.2251625 -1.2575570 3.2320899 10010.104 -1.2681005 3.2246225 -1.2564559 3.2315784 10011.104 -1.2669594 3.2242851 -1.2553560 3.2310670 10012.104 -1.2662445 3.2236806 -1.2542572 3.2305557 10013.104 -1.2652153 3.2232165 -1.2531597 3.2300446 10014.104 -1.2645525 3.2224553 -1.2520633 3.2295335 10015.104 -1.2635145 3.2218265 -1.2509681 3.2290226 10016.104 -1.2627813 3.2209140 -1.2498740 3.2285118 10017.104 -1.2616177 3.2201744 -1.2487812 3.2280011 10018.104 -1.2607330 3.2192181 -1.2476894 3.2274905 10019.104 -1.2594314 3.2184943 -1.2465989 3.2269801 10020.104 -1.2584379 3.2175920 -1.2455095 3.2264698 10021.104 -1.2570600 3.2169431 -1.2444212 3.2259595 10022.104 -1.2560223 3.2161265 -1.2433341 3.2254495 10023.104 -1.2546323 3.2155623 -1.2422482 3.2249395 10024.104 -1.2536080 3.2148192 -1.2411634 3.2244297 10025.104 -1.2522473 3.2143128 -1.2400797 3.2239199 10026.104 -1.2512621 3.2136145 -1.2389972 3.2234103 10027.104 -1.2499496 3.2131401 -1.2379158 3.2229008 10028.104 -1.2490212 3.2124605 -1.2368356 3.2223915 10029.104 -1.2477744 3.2119854 -1.2357565 3.2218822 10030.104 -1.2469136 3.2112783 -1.2346786 3.2213731 10031.104 -1.2457218 3.2107462 -1.2336017 3.2208641 10032.104 -1.2448904 3.2099629 -1.2325261 3.2203552 10033.104 -1.2436996 3.2093464 -1.2314515 3.2198465 10034.104 -1.2428401 3.2084806 -1.2303781 3.2193378 10035.104 -1.2415924 3.2077916 -1.2293058 3.2188293 10036.104 -1.2406504 3.2068782 -1.2282346 3.2183209 10037.104 -1.2393122 3.2061764 -1.2271646 3.2178126 10038.104 -1.2382892 3.2052804 -1.2260956 3.2173044 10039.104 -1.2368871 3.2046137 -1.2250278 3.2167964 10040.104 -1.2358181 3.2037628 -1.2239611 3.2162885 10041.104 -1.2343881 3.2031440 -1.2228956 3.2157807 10042.104 -1.2333082 3.2023377 -1.2218311 3.2152730 10043.104 -1.2318795 3.2017516 -1.2207677 3.2147654 10044.104 -1.2308029 3.2009654 -1.2197055 3.2142580 10045.104 -1.2293742 3.2003907 -1.2186444 3.2137506 10046.104 -1.2282930 3.1996120 -1.2175843 3.2132434 10047.104 -1.2268553 3.1990419 -1.2165254 3.2127363 10048.104 -1.2257601 3.1982677 -1.2154676 3.2122294 10049.104 -1.2243043 3.1977023 -1.2144108 3.2117225 10050.104 -1.2231859 3.1969352 -1.2133552 3.2112158 10051.104 -1.2217027 3.1963799 -1.2123006 3.2107092 10052.104 -1.2205521 3.1956277 -1.2112472 3.2102027 10053.104 -1.2190325 3.1950933 -1.2101948 3.2096963 10054.104 -1.2178408 3.1943717 -1.2091436 3.2091900 10055.104 -1.2162772 3.1938825 -1.2080934 3.2086839 10056.104 -1.2150469 3.1932271 -1.2070443 3.2081779 10057.104 -1.2134626 3.1928204 -1.2059963 3.2076720 10058.104 -1.2122339 3.1922555 -1.2049493 3.2071662 10059.104 -1.2106753 3.1919389 -1.2039035 3.2066605 10060.104 -1.2094959 3.1914577 -1.2028587 3.2061550 10061.104 -1.2080102 3.1912080 -1.2018150 3.2056496 10062.104 -1.2069188 3.1907657 -1.2007724 3.2051443 10063.104 -1.2055192 3.1905227 -1.1997309 3.2046391 10064.104 -1.2044992 3.1900648 -1.1986904 3.2041340 10065.104 -1.2031537 3.1897932 -1.1976510 3.2036291 10066.104 -1.2021695 3.1893011 -1.1966126 3.2031242 10067.104 -1.2008422 3.1889952 -1.1955753 3.2026195 10068.104 -1.1998602 3.1884775 -1.1945391 3.2021149 10069.104 -1.1985279 3.1881599 -1.1935040 3.2016104 10070.104 -1.1975427 3.1876431 -1.1924699 3.2011061 10071.104 -1.1962134 3.1873328 -1.1914368 3.2006019 10072.104 -1.1952374 3.1868263 -1.1904048 3.2000977 10073.104 -1.1939238 3.1865256 -1.1893739 3.1995937 10074.104 -1.1929694 3.1860254 -1.1883440 3.1990898 10075.104 -1.1916809 3.1857230 -1.1873152 3.1985861 10076.104 -1.1907489 3.1852132 -1.1862874 3.1980824 10077.104 -1.1894769 3.1848954 -1.1852607 3.1975789 10078.104 -1.1885543 3.1843688 -1.1842350 3.1970755 10079.104 -1.1872851 3.1840340 -1.1832104 3.1965722 10080.104 -1.1863581 3.1834929 -1.1821868 3.1960690 10081.104 -1.1850786 3.1831485 -1.1811642 3.1955660 10082.104 -1.1841378 3.1826057 -1.1801427 3.1950630 10083.104 -1.1828445 3.1822662 -1.1791222 3.1945602 10084.104 -1.1818905 3.1817345 -1.1781027 3.1940575 10085.104 -1.1805852 3.1814115 -1.1770843 3.1935549 10086.104 -1.1796200 3.1809033 -1.1760669 3.1930525 10087.104 -1.1783054 3.1806125 -1.1750505 3.1925501 10088.104 -1.1773374 3.1801506 -1.1740352 3.1920479 10089.104 -1.1760375 3.1799178 -1.1730209 3.1915458 10090.104 -1.1751076 3.1795174 -1.1720076 3.1910438 10091.104 -1.1738708 3.1793401 -1.1709953 3.1905419 10092.104 -1.1730289 3.1789815 -1.1699841 3.1900401 10093.104 -1.1719056 3.1788206 -1.1689738 3.1895385 10094.104 -1.1711955 3.1784347 -1.1679646 3.1890370 10095.104 -1.1701947 3.1781871 -1.1669564 3.1885356 10096.104 -1.1695651 3.1776690 -1.1659492 3.1880343 10097.104 -1.1685910 3.1772678 -1.1649431 3.1875331 10098.104 -1.1679318 3.1765954 -1.1639379 3.1870321 10099.104 -1.1668722 3.1760562 -1.1629338 3.1865311 10100.104 -1.1660730 3.1752879 -1.1619306 3.1860303 10101.104 -1.1648438 3.1747252 -1.1609285 3.1855296 10102.104 -1.1638906 3.1740101 -1.1599273 3.1850290 10103.104 -1.1625524 3.1735506 -1.1589272 3.1845286 10104.104 -1.1615414 3.1729642 -1.1579280 3.1840282 10105.104 -1.1601977 3.1726402 -1.1569299 3.1835280 10106.104 -1.1592327 3.1721802 -1.1559327 3.1830279 10107.104 -1.1579820 3.1719492 -1.1549366 3.1825279 10108.104 -1.1571310 3.1715302 -1.1539414 3.1820280 10109.104 -1.1559857 3.1712937 -1.1529473 3.1815282 10110.104 -1.1552193 3.1708407 -1.1519541 3.1810286 10111.104 -1.1541363 3.1705533 -1.1509619 3.1805290 10112.104 -1.1534096 3.1700413 -1.1499707 3.1800296 10113.104 -1.1523441 3.1696939 -1.1489805 3.1795303 10114.104 -1.1516163 3.1691308 -1.1479912 3.1790311 10115.104 -1.1505409 3.1687446 -1.1470030 3.1785321 10116.104 -1.1498010 3.1681529 -1.1460157 3.1780331 10117.104 -1.1487137 3.1677436 -1.1450294 3.1775343 10118.104 -1.1479618 3.1671333 -1.1440441 3.1770356 10119.104 -1.1468630 3.1667080 -1.1430597 3.1765370 10120.104 -1.1460994 3.1660841 -1.1420764 3.1760385 10121.104 -1.1449887 3.1656462 -1.1410940 3.1755402 10122.104 -1.1442118 3.1650116 -1.1401125 3.1750419 10123.104 -1.1430865 3.1645648 -1.1391321 3.1745438 10124.104 -1.1422933 3.1639243 -1.1381526 3.1740458 10125.104 -1.1411503 3.1634745 -1.1371741 3.1735479 10126.104 -1.1403376 3.1628364 -1.1361965 3.1730501 10127.104 -1.1391755 3.1623963 -1.1352199 3.1725524 10128.104 -1.1383483 3.1617769 -1.1342442 3.1720549 10129.104 -1.1371814 3.1613607 -1.1332696 3.1715575 10130.104 -1.1363602 3.1607667 -1.1322958 3.1710601 10131.104 -1.1352106 3.1603730 -1.1313231 3.1705629 10132.104 -1.1344177 3.1597957 -1.1303512 3.1700659 10133.104 -1.1333072 3.1594057 -1.1293804 3.1695689 10134.104 -1.1325566 3.1588120 -1.1284105 3.1690721 10135.104 -1.1314795 3.1583851 -1.1274415 3.1685753 10136.104 -1.1307451 3.1577427 -1.1264735 3.1680787 10137.104 -1.1296656 3.1572623 -1.1255064 3.1675822 10138.104 -1.1289096 3.1565686 -1.1245403 3.1670858 10139.104 -1.1277899 3.1560443 -1.1235751 3.1665895 10140.104 -1.1269768 3.1553241 -1.1226109 3.1660934 10141.104 -1.1257948 3.1547980 -1.1216476 3.1655974 10142.104 -1.1249268 3.1540980 -1.1206852 3.1651014 10143.104 -1.1237028 3.1536052 -1.1197238 3.1646056 10144.104 -1.1228065 3.1529466 -1.1187633 3.1641099 10145.104 -1.1215681 3.1524980 -1.1178038 3.1636144 10146.104 -1.1206708 3.1518831 -1.1168451 3.1631189 10147.104 -1.1194434 3.1514719 -1.1158875 3.1626236 10148.104 -1.1185632 3.1508856 -1.1149307 3.1621283 10149.104 -1.1173549 3.1504952 -1.1139749 3.1616332 10150.104 -1.1164939 3.1499251 -1.1130200 3.1611382 10151.104 -1.1153052 3.1495463 -1.1120660 3.1606434 10152.104 -1.1144639 3.1489846 -1.1111129 3.1601486 10153.104 -1.1132951 3.1486101 -1.1101608 3.1596539 10154.104 -1.1124727 3.1480487 -1.1092096 3.1591594 10155.104 -1.1113208 3.1476705 -1.1082593 3.1586650 10156.104 -1.1105117 3.1471031 -1.1073099 3.1581707 10157.104 -1.1093697 3.1467173 -1.1063615 3.1576765 10158.104 -1.1085669 3.1461424 -1.1054139 3.1571824 10159.104 -1.1074278 3.1457496 -1.1044673 3.1566885 10160.104 -1.1066244 3.1451708 -1.1035216 3.1561946 10161.104 -1.1054838 3.1447780 -1.1025768 3.1557009 10162.104 -1.1046802 3.1442036 -1.1016329 3.1552073 10163.104 -1.1035427 3.1438172 -1.1006899 3.1547138 10164.104 -1.1027452 3.1432502 -1.0997478 3.1542204 10165.104 -1.1016171 3.1428705 -1.0988066 3.1537272 10166.104 -1.1008321 3.1423096 -1.0978663 3.1532340 10167.104 -1.0997196 3.1419333 -1.0969270 3.1527410 10168.104 -1.0989519 3.1413727 -1.0959885 3.1522481 10169.104 -1.0978577 3.1409929 -1.0950509 3.1517552 10170.104 -1.0971086 3.1404262 -1.0941142 3.1512626 10171.104 -1.0960337 3.1400364 -1.0931785 3.1507700 10172.104 -1.0953042 3.1394557 -1.0922436 3.1502775 10173.104 -1.0942495 3.1390455 -1.0913096 3.1497852 10174.104 -1.0935373 3.1384354 -1.0903765 3.1492929 10175.104 -1.0924913 3.1379860 -1.0894443 3.1488008 10176.104 -1.0917736 3.1373324 -1.0885130 3.1483088 10177.104 -1.0907070 3.1368400 -1.0875825 3.1478169 10178.104 -1.0899531 3.1361497 -1.0866530 3.1473252 10179.104 -1.0888352 3.1356317 -1.0857243 3.1468335 10180.104 -1.0880156 3.1349371 -1.0847965 3.1463420 10181.104 -1.0868302 3.1344467 -1.0838696 3.1458505 10182.104 -1.0859608 3.1338105 -1.0829436 3.1453592 10183.104 -1.0847549 3.1333949 -1.0820185 3.1448680 10184.104 -1.0838961 3.1328381 -1.0810942 3.1443769 10185.104 -1.0827326 3.1324957 -1.0801708 3.1438860 10186.104 -1.0819477 3.1319955 -1.0792483 3.1433951 10187.104 -1.0808859 3.1316750 -1.0783267 3.1429044 10188.104 -1.0802083 3.1311457 -1.0774059 3.1424137 10189.104 -1.0792301 3.1307507 -1.0764860 3.1419232 10190.104 -1.0785988 3.1301221 -1.0755670 3.1414328 10191.104 -1.0776278 3.1296179 -1.0746489 3.1409425 10192.104 -1.0769642 3.1288830 -1.0737316 3.1404524 10193.104 -1.0759218 3.1282878 -1.0728152 3.1399623 10194.104 -1.0751532 3.1274979 -1.0718996 3.1394724 10195.104 -1.0739966 3.1268971 -1.0709849 3.1389825 10196.104 -1.0731302 3.1261433 -1.0700711 3.1384928 10197.104 -1.0719017 3.1256029 -1.0691581 3.1380032 10198.104 -1.0709903 3.1249231 -1.0682460 3.1375137 10199.104 -1.0697440 3.1244614 -1.0673348 3.1370244 10200.104 -1.0688417 3.1238569 -1.0664244 3.1365351 10201.104 -1.0676279 3.1234556 -1.0655148 3.1360459 10202.104 -1.0667694 3.1228910 -1.0646061 3.1355569 10203.104 -1.0656012 3.1225114 -1.0636983 3.1350680 10204.104 -1.0647865 3.1219562 -1.0627913 3.1345792 10205.104 -1.0636603 3.1215755 -1.0618852 3.1340905 10206.104 -1.0628858 3.1210099 -1.0609799 3.1336019 10207.104 -1.0617977 3.1206075 -1.0600755 3.1331135 10208.104 -1.0610555 3.1200066 -1.0591719 3.1326251 10209.104 -1.0599865 3.1195550 -1.0582691 3.1321369 10210.104 -1.0592439 3.1188982 -1.0573672 3.1316487 10211.104 -1.0581541 3.1183904 -1.0564662 3.1311607 10212.104 -1.0573695 3.1176839 -1.0555659 3.1306728 10213.104 -1.0562172 3.1171386 -1.0546666 3.1301851 10214.104 -1.0553499 3.1164184 -1.0537680 3.1296974 10215.104 -1.0541070 3.1158968 -1.0528703 3.1292098 10216.104 -1.0531642 3.1152393 -1.0519734 3.1287224 10217.104 -1.0518760 3.1148043 -1.0510774 3.1282351 10218.104 -1.0509213 3.1142436 -1.0501822 3.1277478 10219.104 -1.0496552 3.1139042 -1.0492878 3.1272607 10220.104 -1.0487562 3.1134282 -1.0483943 3.1267737 10221.104 -1.0475781 3.1131457 -1.0475016 3.1262869 10222.104 -1.0467816 3.1126818 -1.0466097 3.1258001 10223.104 -1.0456933 3.1123673 -1.0457186 3.1253135 10224.104 -1.0449587 3.1118442 -1.0448284 3.1248269 10225.104 -1.0439017 3.1114571 -1.0439390 3.1243405 10226.104 -1.0431672 3.1108592 -1.0430504 3.1238542 10227.104 -1.0420796 3.1104042 -1.0421626 3.1233680 10228.104 -1.0412855 3.1097601 -1.0412757 3.1228819 10229.104 -1.0401247 3.1092945 -1.0403895 3.1223959 10230.104 -1.0392658 3.1086740 -1.0395042 3.1219101 10231.104 -1.0380593 3.1082528 -1.0386197 3.1214243 10232.104 -1.0371754 3.1076881 -1.0377361 3.1209387 10233.104 -1.0359654 3.1073258 -1.0368532 3.1204531 10234.104 -1.0350990 3.1068174 -1.0359712 3.1199677 10235.104 -1.0339263 3.1064987 -1.0350899 3.1194824 10236.104 -1.0331071 3.1060128 -1.0342095 3.1189973 10237.104 -1.0319786 3.1056963 -1.0333299 3.1185122 10238.104 -1.0311938 3.1052003 -1.0324511 3.1180272 10239.104 -1.0300891 3.1048668 -1.0315731 3.1175424 10240.104 -1.0293171 3.1043520 -1.0306959 3.1170576 10241.104 -1.0282146 3.1040011 -1.0298195 3.1165730 10242.104 -1.0274351 3.1034767 -1.0289439 3.1160885 10243.104 -1.0263226 3.1031284 -1.0280691 3.1156041 10244.104 -1.0255386 3.1026173 -1.0271951 3.1151198 10245.104 -1.0244306 3.1022868 -1.0263219 3.1146357 10246.104 -1.0236606 3.1017944 -1.0254496 3.1141516 10247.104 -1.0225762 3.1014794 -1.0245780 3.1136676 10248.104 -1.0218391 3.1009963 -1.0237072 3.1131838 10249.104 -1.0207954 3.1006768 -1.0228372 3.1127001 10250.104 -1.0200972 3.1001709 -1.0219680 3.1122165 10251.104 -1.0190809 3.0998137 -1.0210996 3.1117330 10252.104 -1.0183942 3.0992632 -1.0202319 3.1112496 10253.104 -1.0173730 3.0988599 -1.0193651 3.1107663 10254.104 -1.0166650 3.0982674 -1.0184991 3.1102831 10255.104 -1.0156064 3.0978312 -1.0176338 3.1098001 10256.104 -1.0148472 3.0972250 -1.0167694 3.1093172 10257.104 -1.0137364 3.0968009 -1.0159057 3.1088343 10258.104 -1.0129379 3.0962286 -1.0150428 3.1083516 10259.104 -1.0118064 3.0958497 -1.0141807 3.1078690 10260.104 -1.0110064 3.0953268 -1.0133193 3.1073865 10261.104 -1.0098930 3.0949948 -1.0124588 3.1069041 10262.104 -1.0091303 3.0945103 -1.0115990 3.1064219 10263.104 -1.0080707 3.0941972 -1.0107400 3.1059397 10264.104 -1.0073651 3.0937044 -1.0098818 3.1054577 10265.104 -1.0063507 3.0933593 -1.0090244 3.1049757 10266.104 -1.0056720 3.0928218 -1.0081677 3.1044939 10267.104 -1.0046658 3.0924265 -1.0073118 3.1040122 10268.104 -1.0039762 3.0918397 -1.0064567 3.1035306 10269.104 -1.0029402 3.0914013 -1.0056024 3.1030491 10270.104 -1.0022037 3.0907875 -1.0047488 3.1025677 10271.104 -1.0011148 3.0903455 -1.0038960 3.1020865 10272.104 -1.0003320 3.0897489 -1.0030440 3.1016053 10273.104 -0.99920849 3.0893365 -1.0021927 3.1011243 10274.104 -0.99840312 3.0887772 -1.0013422 3.1006433 10275.104 -0.99726968 3.0884053 -1.0004925 3.1001625 10276.104 -0.99646679 3.0878871 -0.99964349 3.0996818 10277.104 -0.99534772 3.0875519 -0.99879528 3.0992012 10278.104 -0.99456736 3.0870631 -0.99794784 3.0987207 10279.104 -0.99347511 3.0867492 -0.99710115 3.0982403 10280.104 -0.99272381 3.0862755 -0.99625522 3.0977601 10281.104 -0.99166281 3.0859706 -0.99541006 3.0972799 10282.104 -0.99094466 3.0855000 -0.99456565 3.0967999 10283.104 -0.98991911 3.0851903 -0.99372199 3.0963199 10284.104 -0.98923711 3.0847043 -0.99287909 3.0958401 10285.104 -0.98824283 3.0843653 -0.99203695 3.0953604 10286.104 -0.98757976 3.0838395 -0.99119555 3.0948808 10287.104 -0.98658936 3.0834560 -0.99035491 3.0944013 10288.104 -0.98591442 3.0828864 -0.98951502 3.0939219 10289.104 -0.98489669 3.0824637 -0.98867588 3.0934427 10290.104 -0.98417858 3.0818653 -0.98783749 3.0929635 10291.104 -0.98310422 3.0814327 -0.98699985 3.0924845 10292.104 -0.98232758 3.0808521 -0.98616295 3.0920055 10293.104 -0.98120813 3.0804607 -0.98532680 3.0915267 10294.104 -0.98040603 3.0799349 -0.98449139 3.0910480 10295.104 -0.97928217 3.0796033 -0.98365672 3.0905694 10296.104 -0.97849648 3.0791367 -0.98282280 3.0900909 10297.104 -0.97741012 3.0788565 -0.98198962 3.0896125 10298.104 -0.97668146 3.0784243 -0.98115718 3.0891343 10299.104 -0.97566097 3.0781503 -0.98032548 3.0886561 10300.104 -0.97498988 3.0776977 -0.97949451 3.0881780 10301.104 -0.97401010 3.0773864 -0.97866428 3.0877001 10302.104 -0.97336088 3.0768888 -0.97783479 3.0872223 10303.104 -0.97238427 3.0765306 -0.97700603 3.0867446 10304.104 -0.97171924 3.0759905 -0.97617801 3.0862670 10305.104 -0.97070892 3.0756022 -0.97535072 3.0857895 10306.104 -0.97000060 3.0750547 -0.97452416 3.0853121 10307.104 -0.96895205 3.0746813 -0.97369833 3.0848348 10308.104 -0.96821850 3.0741633 -0.97287323 3.0843576 10309.104 -0.96715974 3.0738263 -0.97204886 3.0838806 10310.104 -0.96643088 3.0733467 -0.97122522 3.0834036 10311.104 -0.96539196 3.0730451 -0.97040230 3.0829268 10312.104 -0.96469739 3.0725921 -0.96958011 3.0824500 10313.104 -0.96370165 3.0723000 -0.96875865 3.0819734 10314.104 -0.96304817 3.0718388 -0.96793790 3.0814969 10315.104 -0.96208494 3.0715260 -0.96711788 3.0810205 10316.104 -0.96145360 3.0710377 -0.96629858 3.0805442 10317.104 -0.96050228 3.0706942 -0.96548000 3.0800681 10318.104 -0.95987237 3.0701752 -0.96466214 3.0795920 10319.104 -0.95891231 3.0698038 -0.96384500 3.0791160 10320.104 -0.95826533 3.0692647 -0.96302858 3.0786402 10321.104 -0.95728515 3.0688824 -0.96221287 3.0781644 10322.104 -0.95661874 3.0683401 -0.96139787 3.0776888 10323.104 -0.95562118 3.0679597 -0.96058359 3.0772133 10324.104 -0.95493926 3.0674238 -0.95977003 3.0767379 10325.104 -0.95392831 3.0670531 -0.95895717 3.0762626 10326.104 -0.95323493 3.0665308 -0.95814503 3.0757874 10327.104 -0.95221549 3.0661778 -0.95733360 3.0753123 10328.104 -0.95151853 3.0656778 -0.95652288 3.0748373 10329.104 -0.95050264 3.0653493 -0.95571286 3.0743625 10330.104 -0.94981674 3.0648743 -0.95490355 3.0738877 10331.104 -0.94881970 3.0645687 -0.95409495 3.0734131 10332.104 -0.94816019 3.0641130 -0.95328706 3.0729385 10333.104 -0.94719736 3.0638201 -0.95247986 3.0724641 10334.104 -0.94657817 3.0633665 -0.95167338 3.0719898 10335.104 -0.94565603 3.0630612 -0.95086759 3.0715156 10336.104 -0.94507104 3.0625836 -0.95006250 3.0710415 10337.104 -0.94417439 3.0622465 -0.94925812 3.0705675 10338.104 -0.94360558 3.0617332 -0.94845443 3.0700936 10339.104 -0.94271601 3.0613582 -0.94765145 3.0696198 10340.104 -0.94214497 3.0608071 -0.94684916 3.0691462 10341.104 -0.94124423 3.0603962 -0.94604756 3.0686726 10342.104 -0.94065425 3.0598141 -0.94524667 3.0681992 10343.104 -0.93972896 3.0593775 -0.94444646 3.0677259 10344.104 -0.93910953 3.0587754 -0.94364695 3.0672526 10345.104 -0.93815029 3.0583244 -0.94284814 3.0667795 10346.104 -0.93749218 3.0577155 -0.94205001 3.0663065 10347.104 -0.93648977 3.0572668 -0.94125257 3.0658336 10348.104 -0.93578446 3.0566742 -0.94045583 3.0653608 10349.104 -0.93473790 3.0562611 -0.93965977 3.0648881 10350.104 -0.93400253 3.0557224 -0.93886440 3.0644156 10351.104 -0.93294651 3.0553725 -0.93806972 3.0639431 10352.104 -0.93222337 3.0548994 -0.93727573 3.0634707 10353.104 -0.93120160 3.0546108 -0.93648242 3.0629985 10354.104 -0.93053450 3.0541887 -0.93568979 3.0625264 10355.104 -0.92959043 3.0539309 -0.93489785 3.0620543 10356.104 -0.92901324 3.0535058 -0.93410658 3.0615824 10357.104 -0.92815074 3.0532071 -0.93331600 3.0611106 10358.104 -0.92763099 3.0527155 -0.93252610 3.0606389 10359.104 -0.92679796 3.0523369 -0.93173688 3.0601673 10360.104 -0.92627913 3.0517618 -0.93094834 3.0596958 10361.104 -0.92541863 3.0513037 -0.93016048 3.0592244 10362.104 -0.92484376 3.0506633 -0.92937329 3.0587532 10363.104 -0.92390432 3.0501681 -0.92858677 3.0582820 10364.104 -0.92324596 3.0495285 -0.92780094 3.0578109 10365.104 -0.92223722 3.0490643 -0.92701577 3.0573400 10366.104 -0.92152978 3.0484740 -0.92623128 3.0568692 10367.104 -0.92049320 3.0480684 -0.92544746 3.0563984 10368.104 -0.91977900 3.0475403 -0.92466431 3.0559278 10369.104 -0.91875697 3.0471942 -0.92388183 3.0554573 10370.104 -0.91807716 3.0467152 -0.92310002 3.0549869 10371.104 -0.91710189 3.0463998 -0.92231888 3.0545166 10372.104 -0.91647076 3.0459341 -0.92153841 3.0540464 10373.104 -0.91554170 3.0456187 -0.92075860 3.0535763 10374.104 -0.91495328 3.0451436 -0.91997946 3.0531063 10375.104 -0.91406357 3.0448104 -0.91920098 3.0526365 10376.104 -0.91351097 3.0443102 -0.91842317 3.0521667 10377.104 -0.91265351 3.0439429 -0.91764602 3.0516971 10378.104 -0.91212637 3.0433981 -0.91686953 3.0512275 10379.104 -0.91128222 3.0429767 -0.91609371 3.0507581 10380.104 -0.91075257 3.0423735 -0.91531854 3.0502888 10381.104 -0.90988948 3.0418936 -0.91454403 3.0498196 10382.104 -0.90932422 3.0412365 -0.91377018 3.0493504 10383.104 -0.90840901 3.0407113 -0.91299699 3.0488814 10384.104 -0.90777503 3.0400243 -0.91222445 3.0484125 10385.104 -0.90678005 3.0394942 -0.91145258 3.0479438 10386.104 -0.90606967 3.0388324 -0.91068135 3.0474751 10387.104 -0.90501462 3.0383498 -0.90991078 3.0470065 10388.104 -0.90426412 3.0377484 -0.90914086 3.0465380 10389.104 -0.90318949 3.0373318 -0.90837160 3.0460697 10390.104 -0.90243981 3.0367969 -0.90760298 3.0456014 10391.104 -0.90138657 3.0364410 -0.90683502 3.0451333 10392.104 -0.90067663 3.0359527 -0.90606770 3.0446652 10393.104 -0.89967175 3.0356212 -0.90530104 3.0441973 10394.104 -0.89900664 3.0351382 -0.90453502 3.0437295 10395.104 -0.89803841 3.0347994 -0.90376965 3.0432618 10396.104 -0.89740081 3.0343016 -0.90300493 3.0427942 10397.104 -0.89645110 3.0339434 -0.90224085 3.0423267 10398.104 -0.89582286 3.0334248 -0.90147741 3.0418593 10399.104 -0.89487364 3.0330467 -0.90071462 3.0413920 10400.104 -0.89423870 3.0325129 -0.89995247 3.0409248 10401.104 -0.89327913 3.0321250 -0.89919097 3.0404577 10402.104 -0.89263212 3.0315863 -0.89843010 3.0399908 10403.104 -0.89165938 3.0311972 -0.89766987 3.0395239 10404.104 -0.89099797 3.0306616 -0.89691029 3.0390572 10405.104 -0.89000977 3.0302799 -0.89615134 3.0385905 10406.104 -0.88933172 3.0297583 -0.89539303 3.0381240 10407.104 -0.88832812 3.0294002 -0.89463535 3.0376576 10408.104 -0.88764220 3.0289132 -0.89387832 3.0371912 10409.104 -0.88664415 3.0285958 -0.89312191 3.0367250 10410.104 -0.88597878 3.0281505 -0.89236614 3.0362589 10411.104 -0.88501664 3.0278708 -0.89161101 3.0357929 10412.104 -0.88440238 3.0274548 -0.89085651 3.0353270 10413.104 -0.88350674 3.0271899 -0.89010263 3.0348612 10414.104 -0.88297182 3.0267639 -0.88934939 3.0343955 10415.104 -0.88215369 3.0264532 -0.88859678 3.0339300 10416.104 -0.88167429 3.0259510 -0.88784480 3.0334645 10417.104 -0.88088072 3.0255476 -0.88709345 3.0329991 10418.104 -0.88039314 3.0249482 -0.88634272 3.0325339 10419.104 -0.87955868 3.0244520 -0.88559263 3.0320687 10420.104 -0.87899736 3.0237743 -0.88484315 3.0316037 10421.104 -0.87805708 3.0232282 -0.88409430 3.0311388 10422.104 -0.87737171 3.0225498 -0.88334608 3.0306739 10423.104 -0.87631951 3.0220562 -0.88259848 3.0302092 10424.104 -0.87555614 3.0214671 -0.88185150 3.0297446 10425.104 -0.87446557 3.0210806 -0.88110515 3.0292801 10426.104 -0.87370383 3.0206037 -0.88035941 3.0288157 10427.104 -0.87265506 3.0203226 -0.87961430 3.0283514 10428.104 -0.87197516 3.0199312 -0.87886980 3.0278872 10429.104 -0.87104213 3.0196936 -0.87812592 3.0274231 10430.104 -0.87048427 3.0192875 -0.87738266 3.0269591 10431.104 -0.86964828 3.0189864 -0.87664002 3.0264952 10432.104 -0.86915035 3.0184895 -0.87589799 3.0260315 10433.104 -0.86833546 3.0180850 -0.87515658 3.0255678 10434.104 -0.86781956 3.0174844 -0.87441579 3.0251042 10435.104 -0.86694774 3.0169867 -0.87367560 3.0246408 10436.104 -0.86633676 3.0163206 -0.87293603 3.0241774 10437.104 -0.86534738 3.0158054 -0.87219708 3.0237142 10438.104 -0.86462647 3.0151740 -0.87145873 3.0232511 10439.104 -0.86355498 3.0147291 -0.87072099 3.0227880 10440.104 -0.86278443 3.0141873 -0.86998387 3.0223251 10441.104 -0.86169629 3.0138397 -0.86924735 3.0218623 10442.104 -0.86094196 3.0133943 -0.86851144 3.0213996 10443.104 -0.85990305 3.0131311 -0.86777614 3.0209370 10444.104 -0.85922592 3.0127430 -0.86704144 3.0204745 10445.104 -0.85827349 3.0124983 -0.86630735 3.0200121 10446.104 -0.85767204 3.0120968 -0.86557387 3.0195498 10447.104 -0.85677752 3.0118189 -0.86484098 3.0190876 10448.104 -0.85621507 3.0113734 -0.86410871 3.0186256 10449.104 -0.85534070 3.0110462 -0.86337703 3.0181636 10450.104 -0.85477944 3.0105519 -0.86264596 3.0177017 10451.104 -0.85388792 3.0101831 -0.86191549 3.0172400 10452.104 -0.85329693 3.0096627 -0.86118562 3.0167783 10453.104 -0.85237342 3.0092842 -0.86045634 3.0163168 10454.104 -0.85175415 3.0087661 -0.85972767 3.0158553 10455.104 -0.85080748 3.0083974 -0.85899959 3.0153940 10456.104 -0.85017013 3.0078946 -0.85827212 3.0149327 10457.104 -0.84921060 3.0075447 -0.85754524 3.0144716 10458.104 -0.84856550 3.0070637 -0.85681895 3.0140106 10459.104 -0.84760348 3.0067370 -0.85609326 3.0135497 10460.104 -0.84696124 3.0062802 -0.85536816 3.0130889 10461.104 -0.84600771 3.0059775 -0.85464366 3.0126281 10462.104 -0.84537956 3.0055438 -0.85391975 3.0121675 10463.104 -0.84444583 3.0052618 -0.85319643 3.0117070 10464.104 -0.84384310 3.0048454 -0.85247370 3.0112467 10465.104 -0.84294050 3.0045753 -0.85175156 3.0107864 10466.104 -0.84237433 3.0041630 -0.85103001 3.0103262 10467.104 -0.84151047 3.0038847 -0.85030906 3.0098661 10468.104 -0.84097844 3.0034518 -0.84958869 3.0094061 10469.104 -0.84013968 3.0031441 -0.84886890 3.0089463 10470.104 -0.83962251 3.0026777 -0.84814970 3.0084865 10471.104 -0.83878840 3.0023346 -0.84743109 3.0080268 10472.104 -0.83826555 3.0018343 -0.84671307 3.0075673 10473.104 -0.83741551 3.0014613 -0.84599563 3.0071078 10474.104 -0.83686767 3.0009399 -0.84527877 3.0066485 10475.104 -0.83598915 3.0005580 -0.84456249 3.0061893 10476.104 -0.83541558 3.0000388 -0.84384680 3.0057301 10477.104 -0.83451657 2.9996657 -0.84313169 3.0052711 10478.104 -0.83392803 2.9991596 -0.84241716 3.0048122 10479.104 -0.83301965 2.9988020 -0.84170321 3.0043534 10480.104 -0.83242729 2.9983126 -0.84098984 3.0038946 10481.104 -0.83152068 2.9979706 -0.84027704 3.0034360 10482.104 -0.83093450 2.9974944 -0.83956483 3.0029775 10483.104 -0.83003636 2.9971616 -0.83885319 3.0025191 10484.104 -0.82945929 2.9966920 -0.83814213 3.0020608 10485.104 -0.82857056 2.9963634 -0.83743164 3.0016026 10486.104 -0.82800312 2.9958964 -0.83672173 3.0011445 10487.104 -0.82712428 2.9955685 -0.83601239 3.0006865 10488.104 -0.82656693 2.9951003 -0.83530363 3.0002287 10489.104 -0.82569825 2.9947684 -0.83459544 2.9997709 10490.104 -0.82514976 2.9942932 -0.83388782 2.9993132 10491.104 -0.82428709 2.9939515 -0.83318077 2.9988556 10492.104 -0.82374101 2.9934655 -0.83247429 2.9983982 10493.104 -0.82287707 2.9931126 -0.83176838 2.9979408 10494.104 -0.82232595 2.9926165 -0.83106304 2.9974836 10495.104 -0.82145329 2.9922551 -0.83035827 2.9970264 10496.104 -0.82088973 2.9917540 -0.82965407 2.9965694 10497.104 -0.82000224 2.9913931 -0.82895043 2.9961124 10498.104 -0.81942468 2.9908993 -0.82824736 2.9956556 10499.104 -0.81852682 2.9905503 -0.82754486 2.9951988 10500.104 -0.81794327 2.9900714 -0.82684292 2.9947422 10501.104 -0.81704395 2.9897386 -0.82614154 2.9942857 10502.104 -0.81646339 2.9892763 -0.82544073 2.9938293 10503.104 -0.81557155 2.9889591 -0.82474048 2.9933729 10504.104 -0.81500282 2.9885104 -0.82404080 2.9929167 10505.104 -0.81412590 2.9882024 -0.82334167 2.9924606 10506.104 -0.81357293 2.9877589 -0.82264311 2.9920046 10507.104 -0.81271143 2.9874526 -0.82194510 2.9915487 10508.104 -0.81217325 2.9870085 -0.82124765 2.9910929 10509.104 -0.81132592 2.9866992 -0.82055077 2.9906372 10510.104 -0.81080127 2.9862503 -0.81985444 2.9901816 10511.104 -0.80996686 2.9859337 -0.81915866 2.9897261 10512.104 -0.80945412 2.9854748 -0.81846345 2.9892707 10513.104 -0.80862930 2.9851448 -0.81776879 2.9888154 10514.104 -0.80812229 2.9846704 -0.81707468 2.9883602 10515.104 -0.80729884 2.9843239 -0.81638113 2.9879052 10516.104 -0.80678869 2.9838333 -0.81568813 2.9874502 10517.104 -0.80595765 2.9834717 -0.81499569 2.9869953 10518.104 -0.80543541 2.9829687 -0.81430380 2.9865406 10519.104 -0.80458786 2.9825986 -0.81361246 2.9860859 10520.104 -0.80404626 2.9820941 -0.81292167 2.9856313 10521.104 -0.80318027 2.9817299 -0.81223143 2.9851769 10522.104 -0.80262403 2.9812373 -0.81154174 2.9847225 10523.104 -0.80174798 2.9808881 -0.81085260 2.9842683 10524.104 -0.80118633 2.9804127 -0.81016401 2.9838141 10525.104 -0.80030953 2.9800814 -0.80947596 2.9833601 10526.104 -0.79975179 2.9796240 -0.80878846 2.9829061 10527.104 -0.79888345 2.9793088 -0.80810151 2.9824523 10528.104 -0.79833759 2.9788647 -0.80741511 2.9819986 10529.104 -0.79748285 2.9785593 -0.80672925 2.9815449 10530.104 -0.79695130 2.9781225 -0.80604393 2.9810914 10531.104 -0.79611140 2.9778221 -0.80535916 2.9806380 10532.104 -0.79559520 2.9773885 -0.80467493 2.9801846 10533.104 -0.79477118 2.9770891 -0.80399124 2.9797314 10534.104 -0.79427137 2.9766544 -0.80330809 2.9792783 10535.104 -0.79346402 2.9763507 -0.80262548 2.9788253 10536.104 -0.79298008 2.9759087 -0.80194342 2.9783724 10537.104 -0.79218660 2.9755946 -0.80126189 2.9779196 10538.104 -0.79171401 2.9751404 -0.80058091 2.9774668 10539.104 -0.79092932 2.9748128 -0.79990046 2.9770142 10540.104 -0.79046295 2.9743445 -0.79922055 2.9765617 10541.104 -0.78968190 2.9740023 -0.79854117 2.9761093 10542.104 -0.78921659 2.9735199 -0.79786233 2.9756570 10543.104 -0.78843421 2.9731641 -0.79718403 2.9752048 10544.104 -0.78796566 2.9726695 -0.79650626 2.9747528 10545.104 -0.78717854 2.9723026 -0.79582903 2.9743008 10546.104 -0.78670388 2.9717983 -0.79515233 2.9738489 10547.104 -0.78590929 2.9714228 -0.79447617 2.9733971 10548.104 -0.78542580 2.9709117 -0.79380053 2.9729454 10549.104 -0.78462100 2.9705312 -0.79312543 2.9724938 10550.104 -0.78412601 2.9700181 -0.79245086 2.9720424 10551.104 -0.78330958 2.9696394 -0.79177682 2.9715910 10552.104 -0.78280485 2.9691322 -0.79110331 2.9711397 10553.104 -0.78198185 2.9687617 -0.79043033 2.9706885 10554.104 -0.78147406 2.9682642 -0.78975787 2.9702375 10555.104 -0.78065150 2.9679034 -0.78908595 2.9697865 10556.104 -0.78014767 2.9674154 -0.78841455 2.9693356 10557.104 -0.77933257 2.9670623 -0.78774368 2.9688849 10558.104 -0.77883946 2.9665789 -0.78707334 2.9684342 10559.104 -0.77803655 2.9662254 -0.78640352 2.9679836 10560.104 -0.77755447 2.9657372 -0.78573422 2.9675332 10561.104 -0.77676009 2.9653757 -0.78506545 2.9670828 10562.104 -0.77628384 2.9648778 -0.78439720 2.9666326 10563.104 -0.77549254 2.9645054 -0.78372948 2.9661824 10564.104 -0.77501664 2.9639965 -0.78306228 2.9657324 10565.104 -0.77422296 2.9636129 -0.78239560 2.9652824 10566.104 -0.77374212 2.9630941 -0.78172944 2.9648326 10567.104 -0.77294158 2.9627021 -0.78106380 2.9643829 10568.104 -0.77245281 2.9621769 -0.78039868 2.9639332 10569.104 -0.77164351 2.9617797 -0.77973408 2.9634837 10570.104 -0.77114520 2.9612508 -0.77906999 2.9630342 10571.104 -0.77032558 2.9608512 -0.77840643 2.9625849 10572.104 -0.76981620 2.9603219 -0.77774338 2.9621357 10573.104 -0.76898473 2.9599240 -0.77708085 2.9616865 10574.104 -0.76846332 2.9593997 -0.77641884 2.9612375 10575.104 -0.76762136 2.9590103 -0.77575734 2.9607886 10576.104 -0.76709260 2.9584973 -0.77509635 2.9603397 10577.104 -0.76624691 2.9581201 -0.77443588 2.9598910 10578.104 -0.76571814 2.9576195 -0.77377593 2.9594424 10579.104 -0.76487610 2.9572535 -0.77311648 2.9589939 10580.104 -0.76435471 2.9567621 -0.77245755 2.9585454 10581.104 -0.76352361 2.9564008 -0.77179913 2.9580971 10582.104 -0.76301444 2.9559071 -0.77114122 2.9576489 10583.104 -0.76219183 2.9555356 -0.77048383 2.9572008 10584.104 -0.76168392 2.9550275 -0.76982694 2.9567528 10585.104 -0.76085440 2.9546403 -0.76917056 2.9563048 10586.104 -0.76033137 2.9541182 -0.76851469 2.9558570 10587.104 -0.75947844 2.9537210 -0.76785933 2.9554093 10588.104 -0.75892377 2.9531963 -0.76720447 2.9549617 10589.104 -0.75803152 2.9528088 -0.76655012 2.9545142 10590.104 -0.75743646 2.9523133 -0.76589628 2.9540668 10591.104 -0.75651429 2.9519738 -0.76524294 2.9536195 10592.104 -0.75590681 2.9515379 -0.76459011 2.9531723 10593.104 -0.75499117 2.9512620 -0.76393779 2.9527252 10594.104 -0.75440937 2.9508891 -0.76328597 2.9522782 10595.104 -0.75353847 2.9506701 -0.76263465 2.9518313 10596.104 -0.75302057 2.9503427 -0.76198383 2.9513845 10597.104 -0.75223120 2.9501481 -0.76133351 2.9509377 10598.104 -0.75180114 2.9498140 -0.76068370 2.9504911 10599.104 -0.75108896 2.9495830 -0.76003439 2.9500446 10600.104 -0.75071697 2.9491936 -0.75938558 2.9495982 10601.104 -0.75004205 2.9488967 -0.75873727 2.9491519 10602.104 -0.74968645 2.9484371 -0.75808945 2.9487057 10603.104 -0.74900697 2.9480707 -0.75744214 2.9482596 10604.104 -0.74862595 2.9475484 -0.75679532 2.9478137 10605.104 -0.74790187 2.9471343 -0.75614900 2.9473678 10606.104 -0.74746708 2.9465880 -0.75550318 2.9469220 10607.104 -0.74669272 2.9461712 -0.75485786 2.9464763 10608.104 -0.74621666 2.9456365 -0.75421303 2.9460307 10609.104 -0.74541092 2.9452397 -0.75356869 2.9455852 10610.104 -0.74491351 2.9447307 -0.75292485 2.9451398 10611.104 -0.74409634 2.9443621 -0.75228150 2.9446945 10612.104 -0.74359753 2.9438815 -0.75163865 2.9442493 10613.104 -0.74278827 2.9435378 -0.75099629 2.9438042 10614.104 -0.74230359 2.9430759 -0.75035442 2.9433592 10615.104 -0.74151079 2.9427445 -0.74971305 2.9429143 10616.104 -0.74104349 2.9422904 -0.74907216 2.9424695 10617.104 -0.74026864 2.9419629 -0.74843176 2.9420248 10618.104 -0.73981994 2.9415094 -0.74779186 2.9415802 10619.104 -0.73906424 2.9411787 -0.74715244 2.9411357 10620.104 -0.73863533 2.9407179 -0.74651352 2.9406914 10621.104 -0.73789919 2.9403737 -0.74587508 2.9402471 10622.104 -0.73748671 2.9398926 -0.74523713 2.9398029 10623.104 -0.73676059 2.9395227 -0.74459966 2.9393588 10624.104 -0.73635070 2.9390136 -0.74396268 2.9389148 10625.104 -0.73561943 2.9386150 -0.74332619 2.9384709 10626.104 -0.73519677 2.9380788 -0.74269019 2.9380271 10627.104 -0.73444502 2.9376561 -0.74205466 2.9375834 10628.104 -0.73399426 2.9371018 -0.74141963 2.9371398 10629.104 -0.73320844 2.9366706 -0.74078507 2.9366963 10630.104 -0.73272328 2.9361204 -0.74015100 2.9362530 10631.104 -0.73190790 2.9357030 -0.73951741 2.9358097 10632.104 -0.73139987 2.9351729 -0.73888431 2.9353665 10633.104 -0.73056841 2.9347792 -0.73825168 2.9349234 10634.104 -0.73005120 2.9342751 -0.73761954 2.9344804 10635.104 -0.72921735 2.9339078 -0.73698788 2.9340375 10636.104 -0.72870466 2.9334289 -0.73635669 2.9335947 10637.104 -0.72788131 2.9330830 -0.73572599 2.9331520 10638.104 -0.72738280 2.9326208 -0.73509576 2.9327094 10639.104 -0.72657493 2.9322868 -0.73446602 2.9322669 10640.104 -0.72609262 2.9318332 -0.73383675 2.9318245 10641.104 -0.72530145 2.9315046 -0.73320795 2.9313823 10642.104 -0.72483646 2.9310537 -0.73257964 2.9309401 10643.104 -0.72406313 2.9307244 -0.73195180 2.9304980 10644.104 -0.72361659 2.9302689 -0.73132443 2.9300560 10645.104 -0.72286107 2.9299294 -0.73069754 2.9296141 10646.104 -0.72242896 2.9294580 -0.73007112 2.9291723 10647.104 -0.72168182 2.9290983 -0.72944518 2.9287306 10648.104 -0.72125146 2.9286053 -0.72881971 2.9282890 10649.104 -0.72049924 2.9282240 -0.72819472 2.9278475 10650.104 -0.72005709 2.9277114 -0.72757019 2.9274061 10651.104 -0.71928622 2.9273139 -0.72694614 2.9269648 10652.104 -0.71881876 2.9267918 -0.72632256 2.9265236 10653.104 -0.71801815 2.9263954 -0.72569945 2.9260825 10654.104 -0.71752301 2.9258871 -0.72507681 2.9256415 10655.104 -0.71670204 2.9255138 -0.72445464 2.9252006 10656.104 -0.71619556 2.9250338 -0.72383293 2.9247598 10657.104 -0.71537231 2.9246908 -0.72321170 2.9243191 10658.104 -0.71487279 2.9242413 -0.72259093 2.9238785 10659.104 -0.71406555 2.9239263 -0.72197064 2.9234380 10660.104 -0.71359122 2.9234997 -0.72135080 2.9229976 10661.104 -0.71281608 2.9231974 -0.72073144 2.9225573 10662.104 -0.71237509 2.9227718 -0.72011254 2.9221170 10663.104 -0.71162934 2.9224609 -0.71949410 2.9216769 10664.104 -0.71121253 2.9220208 -0.71887613 2.9212369 10665.104 -0.71048542 2.9216912 -0.71825863 2.9207970 10666.104 -0.71008183 2.9212300 -0.71764158 2.9203572 10667.104 -0.70936237 2.9208779 -0.71702501 2.9199175 10668.104 -0.70896105 2.9203944 -0.71640889 2.9194779 10669.104 -0.70823883 2.9200215 -0.71579323 2.9190384 10670.104 -0.70783142 2.9195200 -0.71517804 2.9185989 10671.104 -0.70710097 2.9191313 -0.71456331 2.9181596 10672.104 -0.70668377 2.9186160 -0.71394904 2.9177204 10673.104 -0.70594180 2.9182149 -0.71333523 2.9172813 10674.104 -0.70551156 2.9176890 -0.71272187 2.9168423 10675.104 -0.70475484 2.9172790 -0.71210898 2.9164033 10676.104 -0.70430832 2.9167464 -0.71149655 2.9159645 10677.104 -0.70353372 2.9163317 -0.71088457 2.9155258 10678.104 -0.70306815 2.9157972 -0.71027305 2.9150871 10679.104 -0.70227339 2.9153832 -0.70966199 2.9146486 10680.104 -0.70178684 2.9148526 -0.70905138 2.9142102 10681.104 -0.70097009 2.9144455 -0.70844123 2.9137718 10682.104 -0.70046074 2.9139258 -0.70783153 2.9133336 10683.104 -0.69962016 2.9135340 -0.70722229 2.9128955 10684.104 -0.69908618 2.9130361 -0.70661351 2.9124574 10685.104 -0.69822180 2.9126756 -0.70600518 2.9120195 10686.104 -0.69767085 2.9122206 -0.70539730 2.9115817 10687.104 -0.69680171 2.9119105 -0.70478987 2.9111439 10688.104 -0.69626018 2.9115087 -0.70418290 2.9107063 10689.104 -0.69541469 2.9112505 -0.70357638 2.9102687 10690.104 -0.69491127 2.9108964 -0.70297030 2.9098313 10691.104 -0.69411811 2.9106776 -0.70236468 2.9093939 10692.104 -0.69368145 2.9103495 -0.70175952 2.9089567 10693.104 -0.69296566 2.9101340 -0.70115480 2.9085195 10694.104 -0.69260455 2.9097814 -0.70055052 2.9080824 10695.104 -0.69194952 2.9095189 -0.69994670 2.9076455 10696.104 -0.69163032 2.9091062 -0.69934333 2.9072086 10697.104 -0.69099752 2.9087768 -0.69874040 2.9067719 10698.104 -0.69068107 2.9082956 -0.69813792 2.9063352 10699.104 -0.69003131 2.9079003 -0.69753589 2.9058986 10700.104 -0.68967841 2.9073616 -0.69693431 2.9054622 10701.104 -0.68897439 2.9069254 -0.69633317 2.9050258 10702.104 -0.68855964 2.9063703 -0.69573247 2.9045895 10703.104 -0.68779836 2.9059394 -0.69513222 2.9041533 10704.104 -0.68733634 2.9054045 -0.69453242 2.9037173 10705.104 -0.68653838 2.9050028 -0.69393306 2.9032813 10706.104 -0.68605058 2.9045033 -0.69333414 2.9028454 10707.104 -0.68523749 2.9041403 -0.69273566 2.9024096 10708.104 -0.68474544 2.9036807 -0.69213763 2.9019739 10709.104 -0.68393836 2.9033554 -0.69154004 2.9015383 10710.104 -0.68346051 2.9029287 -0.69094289 2.9011028 10711.104 -0.68267266 2.9026309 -0.69034618 2.9006674 10712.104 -0.68221812 2.9022275 -0.68974991 2.9002322 10713.104 -0.68145717 2.9019485 -0.68915408 2.8997970 10714.104 -0.68103336 2.9015596 -0.68855869 2.8993618 10715.104 -0.68030675 2.9012894 -0.68796374 2.8989268 10716.104 -0.67992113 2.9009027 -0.68736923 2.8984919 10717.104 -0.67923575 2.9006250 -0.68677515 2.8980571 10718.104 -0.67889038 2.9002180 -0.68618152 2.8976224 10719.104 -0.67823769 2.8999080 -0.68558832 2.8971878 10720.104 -0.67791452 2.8994615 -0.68499555 2.8967533 10721.104 -0.67727262 2.8991082 -0.68440323 2.8963189 10722.104 -0.67694907 2.8986177 -0.68381134 2.8958845 10723.104 -0.67629537 2.8982218 -0.68321988 2.8954503 10724.104 -0.67594887 2.8976931 -0.68262886 2.8950162 10725.104 -0.67526099 2.8972672 -0.68203827 2.8945821 10726.104 -0.67487326 2.8967224 -0.68144811 2.8941482 10727.104 -0.67414441 2.8962951 -0.68085839 2.8937144 10728.104 -0.67372129 2.8957600 -0.68026911 2.8932806 10729.104 -0.67296352 2.8953493 -0.67968025 2.8928470 10730.104 -0.67251834 2.8948357 -0.67909182 2.8924134 10731.104 -0.67174509 2.8944494 -0.67850383 2.8919800 10732.104 -0.67129129 2.8939619 -0.67791627 2.8915466 10733.104 -0.67051598 2.8936016 -0.67732914 2.8911134 10734.104 -0.67006626 2.8931386 -0.67674244 2.8906802 10735.104 -0.66929931 2.8927995 -0.67615616 2.8902472 10736.104 -0.66886130 2.8923554 -0.67557032 2.8898142 10737.104 -0.66810878 2.8920326 -0.67498490 2.8893813 10738.104 -0.66768823 2.8916023 -0.67439992 2.8889485 10739.104 -0.66695587 2.8912901 -0.67381536 2.8885159 10740.104 -0.66655850 2.8908668 -0.67323122 2.8880833 10741.104 -0.66585200 2.8905566 -0.67264752 2.8876508 10742.104 -0.66548219 2.8901283 -0.67206424 2.8872184 10743.104 -0.66480112 2.8898045 -0.67148138 2.8867861 10744.104 -0.66445180 2.8893567 -0.67089895 2.8863539 10745.104 -0.66378507 2.8890095 -0.67031695 2.8859218 10746.104 -0.66344414 2.8885363 -0.66973537 2.8854898 10747.104 -0.66277953 2.8881628 -0.66915421 2.8850579 10748.104 -0.66243480 2.8876640 -0.66857348 2.8846261 10749.104 -0.66176010 2.8872668 -0.66799317 2.8841944 10750.104 -0.66139992 2.8867486 -0.66741328 2.8837628 10751.104 -0.66070646 2.8863376 -0.66683382 2.8833313 10752.104 -0.66032711 2.8858111 -0.66625477 2.8828999 10753.104 -0.65961467 2.8853956 -0.66567615 2.8824686 10754.104 -0.65921698 2.8848679 -0.66509795 2.8820373 10755.104 -0.65848651 2.8844540 -0.66452017 2.8816062 10756.104 -0.65807146 2.8839311 -0.66394280 2.8811752 10757.104 -0.65732396 2.8835248 -0.66336586 2.8807442 10758.104 -0.65689276 2.8830136 -0.66278934 2.8803134 10759.104 -0.65613137 2.8826239 -0.66221323 2.8798826 10760.104 -0.65569140 2.8821336 -0.66163754 2.8794520 10761.104 -0.65492720 2.8817667 -0.66106227 2.8790214 10762.104 -0.65449098 2.8812997 -0.66048742 2.8785910 10763.104 -0.65373676 2.8809546 -0.65991298 2.8781606 10764.104 -0.65331709 2.8805069 -0.65933896 2.8777303 10765.104 -0.65258566 2.8801764 -0.65876535 2.8773002 10766.104 -0.65219512 2.8797357 -0.65819216 2.8768701 10767.104 -0.65149514 2.8794000 -0.65761939 2.8764401 10768.104 -0.65113190 2.8789419 -0.65704703 2.8760102 10769.104 -0.65045027 2.8785804 -0.65647508 2.8755805 10770.104 -0.65009581 2.8780926 -0.65590355 2.8751508 10771.104 -0.64941296 2.8776999 -0.65533243 2.8747212 10772.104 -0.64904760 2.8771823 -0.65476172 2.8742917 10773.104 -0.64834380 2.8767633 -0.65419142 2.8738623 10774.104 -0.64794791 2.8762270 -0.65362154 2.8734330 10775.104 -0.64720654 2.8758021 -0.65305207 2.8730037 10776.104 -0.64677420 2.8752753 -0.65248301 2.8725746 10777.104 -0.64600367 2.8748713 -0.65191435 2.8721456 10778.104 -0.64555170 2.8743722 -0.65134611 2.8717167 10779.104 -0.64477090 2.8739991 -0.65077828 2.8712879 10780.104 -0.64431843 2.8735320 -0.65021086 2.8708591 10781.104 -0.64354650 2.8731892 -0.64964384 2.8704305 10782.104 -0.64311268 2.8727482 -0.64907724 2.8700019 10783.104 -0.64236753 2.8724223 -0.64851104 2.8695735 10784.104 -0.64196332 2.8719857 -0.64794525 2.8691452 10785.104 -0.64124341 2.8716528 -0.64737986 2.8687169 10786.104 -0.64085779 2.8712027 -0.64681488 2.8682887 10787.104 -0.64014902 2.8708526 -0.64625031 2.8678607 10788.104 -0.63976746 2.8703841 -0.64568615 2.8674327 10789.104 -0.63905525 2.8700161 -0.64512239 2.8670048 10790.104 -0.63866318 2.8695325 -0.64455903 2.8665770 10791.104 -0.63793338 2.8691555 -0.64399608 2.8661494 10792.104 -0.63752093 2.8686731 -0.64343353 2.8657218 10793.104 -0.63677355 2.8683068 -0.64287138 2.8652943 10794.104 -0.63634998 2.8678416 -0.64230964 2.8648669 10795.104 -0.63559817 2.8674953 -0.64174830 2.8644396 10796.104 -0.63517731 2.8670512 -0.64118737 2.8640124 10797.104 -0.63443493 2.8667249 -0.64062683 2.8635853 10798.104 -0.63403068 2.8662983 -0.64006670 2.8631582 10799.104 -0.63331154 2.8659838 -0.63950697 2.8627313 10800.104 -0.63293521 2.8655594 -0.63894763 2.8623045 10801.104 -0.63224238 2.8652358 -0.63838870 2.8618778 10802.104 -0.63188659 2.8647945 -0.63783017 2.8614511 10803.104 -0.63120682 2.8644492 -0.63727204 2.8610246 10804.104 -0.63085693 2.8639841 -0.63671430 2.8605981 10805.104 -0.63017545 2.8636145 -0.63615696 2.8601718 10806.104 -0.62981668 2.8631268 -0.63560003 2.8597455 10807.104 -0.62911871 2.8627380 -0.63504349 2.8593194 10808.104 -0.62873736 2.8622384 -0.63448734 2.8588933 10809.104 -0.62801450 2.8618472 -0.63393159 2.8584673 10810.104 -0.62761107 2.8613535 -0.63337624 2.8580414 10811.104 -0.62687011 2.8609734 -0.63282129 2.8576157 10812.104 -0.62645329 2.8604944 -0.63226673 2.8571900 10813.104 -0.62570318 2.8601309 -0.63171257 2.8567644 10814.104 -0.62528196 2.8596697 -0.63115880 2.8563389 10815.104 -0.62453170 2.8593237 -0.63060542 2.8559135 10816.104 -0.62411491 2.8588787 -0.63005244 2.8554882 10817.104 -0.62337190 2.8585456 -0.62949985 2.8550630 10818.104 -0.62296363 2.8581105 -0.62894766 2.8546378 10819.104 -0.62222877 2.8577848 -0.62839585 2.8542128 10820.104 -0.62182855 2.8573558 -0.62784444 2.8537879 10821.104 -0.62110113 2.8570351 -0.62729343 2.8533630 10822.104 -0.62070824 2.8566104 -0.62674280 2.8529383 10823.104 -0.61998751 2.8562934 -0.62619256 2.8525136 10824.104 -0.61960122 2.8558725 -0.62564272 2.8520891 10825.104 -0.61888673 2.8555594 -0.62509326 2.8516646 10826.104 -0.61850746 2.8551431 -0.62454419 2.8512403 10827.104 -0.61780077 2.8548346 -0.62399552 2.8508160 10828.104 -0.61743079 2.8544228 -0.62344723 2.8503918 10829.104 -0.61673436 2.8541179 -0.62289933 2.8499677 10830.104 -0.61637613 2.8537090 -0.62235182 2.8495437 10831.104 -0.61569244 2.8534055 -0.62180470 2.8491199 10832.104 -0.61534844 2.8529963 -0.62125796 2.8486961 10833.104 -0.61467973 2.8526897 -0.62071161 2.8482723 10834.104 -0.61435085 2.8522742 -0.62016565 2.8478487 10835.104 -0.61369531 2.8519580 -0.61962007 2.8474252 10836.104 -0.61337758 2.8515310 -0.61907488 2.8470018 10837.104 -0.61273049 2.8512019 -0.61853008 2.8465785 10838.104 -0.61241906 2.8507613 -0.61798566 2.8461552 10839.104 -0.61177559 2.8504181 -0.61744162 2.8457321 10840.104 -0.61146562 2.8499637 -0.61689797 2.8453090 10841.104 -0.61082091 2.8496071 -0.61635470 2.8448861 10842.104 -0.61050807 2.8491411 -0.61581182 2.8444632 10843.104 -0.60985921 2.8487745 -0.61526931 2.8440405 10844.104 -0.60954216 2.8482998 -0.61472719 2.8436178 10845.104 -0.60888862 2.8479253 -0.61418546 2.8431952 10846.104 -0.60856701 2.8474437 -0.61364410 2.8427727 10847.104 -0.60790844 2.8470625 -0.61310313 2.8423503 10848.104 -0.60758192 2.8465748 -0.61256253 2.8419280 10849.104 -0.60691796 2.8461877 -0.61202232 2.8415058 10850.104 -0.60658609 2.8456943 -0.61148249 2.8410837 10851.104 -0.60591588 2.8453011 -0.61094304 2.8406617 10852.104 -0.60557706 2.8448018 -0.61040396 2.8402398 10853.104 -0.60489845 2.8444031 -0.60986527 2.8398180 10854.104 -0.60455039 2.8438992 -0.60932695 2.8393962 10855.104 -0.60386106 2.8434966 -0.60878902 2.8389746 10856.104 -0.60350143 2.8429901 -0.60825146 2.8385530 10857.104 -0.60279907 2.8425862 -0.60771427 2.8381316 10858.104 -0.60242560 2.8420808 -0.60717747 2.8377102 10859.104 -0.60170852 2.8416804 -0.60664104 2.8372890 10860.104 -0.60132112 2.8411816 -0.60610499 2.8368678 10861.104 -0.60059094 2.8407900 -0.60556931 2.8364467 10862.104 -0.60019207 2.8403021 -0.60503401 2.8360257 10863.104 -0.59945142 2.8399229 -0.60449909 2.8356048 10864.104 -0.59904372 2.8394490 -0.60396454 2.8351840 10865.104 -0.59829523 2.8390853 -0.60343036 2.8347633 10866.104 -0.59788134 2.8386289 -0.60289656 2.8343427 10867.104 -0.59712811 2.8382852 -0.60236313 2.8339222 10868.104 -0.59671322 2.8378520 -0.60183007 2.8335018 10869.104 -0.59596377 2.8375331 -0.60129739 2.8330814 10870.104 -0.59555872 2.8371252 -0.60076508 2.8326612 10871.104 -0.59482458 2.8368302 -0.60023314 2.8322410 10872.104 -0.59444099 2.8364440 -0.59970158 2.8318210 10873.104 -0.59373378 2.8361666 -0.59917038 2.8314010 10874.104 -0.59338327 2.8357924 -0.59863956 2.8309811 10875.104 -0.59271424 2.8355179 -0.59810911 2.8305614 10876.104 -0.59240362 2.8351338 -0.59757902 2.8301417 10877.104 -0.59176849 2.8348363 -0.59704931 2.8297221 10878.104 -0.59148237 2.8344209 -0.59651997 2.8293026 10879.104 -0.59086075 2.8340875 -0.59599099 2.8288832 10880.104 -0.59057777 2.8336349 -0.59546239 2.8284639 10881.104 -0.58994821 2.8332651 -0.59493415 2.8280447 10882.104 -0.58964695 2.8327798 -0.59440628 2.8276255 10883.104 -0.58898802 2.8323837 -0.59387878 2.8272065 10884.104 -0.58864867 2.8318844 -0.59335164 2.8267876 10885.104 -0.58794919 2.8314906 -0.59282488 2.8263687 10886.104 -0.58757546 2.8310076 -0.59229847 2.8259500 10887.104 -0.58685006 2.8306389 -0.59177244 2.8255313 10888.104 -0.58646003 2.8301864 -0.59124677 2.8251127 10889.104 -0.58572724 2.8298507 -0.59072147 2.8246943 10890.104 -0.58533951 2.8294320 -0.59019653 2.8242759 10891.104 -0.58461794 2.8291283 -0.58967195 2.8238576 10892.104 -0.58425093 2.8287375 -0.58914774 2.8234394 10893.104 -0.58355642 2.8284533 -0.58862390 2.8230213 10894.104 -0.58321888 2.8280730 -0.58810041 2.8226033 10895.104 -0.58255239 2.8277922 -0.58757729 2.8221854 10896.104 -0.58224150 2.8274103 -0.58705454 2.8217675 10897.104 -0.58159944 2.8271238 -0.58653214 2.8213498 10898.104 -0.58131153 2.8267331 -0.58601011 2.8209322 10899.104 -0.58069022 2.8264343 -0.58548844 2.8205146 10900.104 -0.58042164 2.8260286 -0.58496713 2.8200971 10901.104 -0.57981714 2.8257113 -0.58444619 2.8196798 10902.104 -0.57956248 2.8252837 -0.58392560 2.8192625 10903.104 -0.57896688 2.8249416 -0.58340537 2.8188453 10904.104 -0.57871638 2.8244879 -0.58288551 2.8184282 10905.104 -0.57811933 2.8241193 -0.58236600 2.8180112 10906.104 -0.57786256 2.8236399 -0.58184685 2.8175943 10907.104 -0.57725362 2.8232469 -0.58132806 2.8171775 10908.104 -0.57698017 2.8227461 -0.58080963 2.8167608 10909.104 -0.57634897 2.8223360 -0.58029156 2.8163442 10910.104 -0.57605007 2.8218250 -0.57977384 2.8159276 10911.104 -0.57539278 2.8214120 -0.57925649 2.8155112 10912.104 -0.57507049 2.8209042 -0.57873949 2.8150949 10913.104 -0.57439230 2.8204984 -0.57822284 2.8146786 10914.104 -0.57405250 2.8200010 -0.57770655 2.8142624 10915.104 -0.57335935 2.8196077 -0.57719062 2.8138464 10916.104 -0.57300798 2.8191248 -0.57667505 2.8134304 10917.104 -0.57230580 2.8187470 -0.57615983 2.8130145 10918.104 -0.57194884 2.8182808 -0.57564496 2.8125987 10919.104 -0.57124367 2.8179200 -0.57513045 2.8121830 10920.104 -0.57088729 2.8174711 -0.57461630 2.8117674 10921.104 -0.57018543 2.8171272 -0.57410249 2.8113518 10922.104 -0.56983602 2.8166946 -0.57358904 2.8109364 10923.104 -0.56914386 2.8163654 -0.57307595 2.8105211 10924.104 -0.56880779 2.8159456 -0.57256321 2.8101058 10925.104 -0.56813172 2.8156264 -0.57205082 2.8096907 10926.104 -0.56781538 2.8152129 -0.57153878 2.8092756 10927.104 -0.56716076 2.8148935 -0.57102709 2.8088606 10928.104 -0.56686514 2.8144725 -0.57051576 2.8084457 10929.104 -0.56622626 2.8141395 -0.57000477 2.8080309 10930.104 -0.56594120 2.8137017 -0.56949414 2.8076162 10931.104 -0.56530663 2.8133503 -0.56898386 2.8072016 10932.104 -0.56502057 2.8128943 -0.56847393 2.8067871 10933.104 -0.56437873 2.8125258 -0.56796434 2.8063727 10934.104 -0.56408009 2.8120559 -0.56745511 2.8059584 10935.104 -0.56341962 2.8116788 -0.56694622 2.8055441 10936.104 -0.56310017 2.8112094 -0.56643769 2.8051300 10937.104 -0.56242090 2.8108418 -0.56592950 2.8047159 10938.104 -0.56208884 2.8103881 -0.56542166 2.8043020 10939.104 -0.56140288 2.8100393 -0.56491417 2.8038881 10940.104 -0.56107108 2.8096058 -0.56440703 2.8034743 10941.104 -0.56039134 2.8092766 -0.56390023 2.8030606 10942.104 -0.56007273 2.8088610 -0.56339378 2.8026470 10943.104 -0.55941215 2.8085455 -0.56288767 2.8022335 10944.104 -0.55911878 2.8081363 -0.56238192 2.8018201 10945.104 -0.55848412 2.8078167 -0.56187650 2.8014068 10946.104 -0.55821306 2.8073946 -0.56137144 2.8009935 10947.104 -0.55759389 2.8070563 -0.56086671 2.8005804 10948.104 -0.55733216 2.8066127 -0.56036234 2.8001673 10949.104 -0.55671511 2.8062515 -0.55985830 2.7997544 10950.104 -0.55644934 2.8057856 -0.55935461 2.7993415 10951.104 -0.55582101 2.8054039 -0.55885127 2.7989287 10952.104 -0.55553783 2.8049218 -0.55834826 2.7985160 10953.104 -0.55488639 2.8045311 -0.55784561 2.7981034 10954.104 -0.55457986 2.8040497 -0.55734329 2.7976909 10955.104 -0.55390776 2.8036669 -0.55684131 2.7972785 10956.104 -0.55358557 2.8031982 -0.55633968 2.7968662 10957.104 -0.55290189 2.8028310 -0.55583839 2.7964540 10958.104 -0.55257326 2.8023798 -0.55533744 2.7960418 10959.104 -0.55188721 2.8020306 -0.55483683 2.7956298 10960.104 -0.55156140 2.8015975 -0.55433656 2.7952178 10961.104 -0.55088212 2.8012646 -0.55383663 2.7948059 10962.104 -0.55056715 2.8008449 -0.55333705 2.7943942 10963.104 -0.54989988 2.8005218 -0.55283780 2.7939825 10964.104 -0.54959818 2.8001093 -0.55233889 2.7935709 10965.104 -0.54894409 2.7997911 -0.55184032 2.7931594 10966.104 -0.54865660 2.7993816 -0.55134209 2.7927479 10967.104 -0.54801660 2.7990642 -0.55084419 2.7923366 10968.104 -0.54774426 2.7986535 -0.55034664 2.7919254 10969.104 -0.54711928 2.7983320 -0.54984942 2.7915142 10970.104 -0.54686272 2.7979139 -0.54935254 2.7911032 10971.104 -0.54625152 2.7975803 -0.54885600 2.7906922 10972.104 -0.54600578 2.7971466 -0.54835979 2.7902814 10973.104 -0.54540031 2.7967950 -0.54786392 2.7898706 10974.104 -0.54515628 2.7963426 -0.54736839 2.7894599 10975.104 -0.54454728 2.7959725 -0.54687319 2.7890493 10976.104 -0.54429568 2.7955029 -0.54637833 2.7886388 10977.104 -0.54367383 2.7951177 -0.54588380 2.7882284 10978.104 -0.54340535 2.7946372 -0.54538960 2.7878180 10979.104 -0.54276255 2.7942473 -0.54489575 2.7874078 10980.104 -0.54247402 2.7937706 -0.54440222 2.7869976 10981.104 -0.54181438 2.7933906 -0.54390903 2.7865876 10982.104 -0.54151464 2.7929277 -0.54341617 2.7861776 10983.104 -0.54084829 2.7925635 -0.54292365 2.7857677 10984.104 -0.54054763 2.7921172 -0.54243146 2.7853580 10985.104 -0.53988490 2.7917688 -0.54193960 2.7849483 10986.104 -0.53959367 2.7913366 -0.54144807 2.7845387 10987.104 -0.53894475 2.7909980 -0.54095688 2.7841291 10988.104 -0.53867104 2.7905691 -0.54046601 2.7837197 10989.104 -0.53803787 2.7902261 -0.53997548 2.7833104 10990.104 -0.53777649 2.7897876 -0.53948528 2.7829011 10991.104 -0.53715019 2.7894320 -0.53899541 2.7824920 10992.104 -0.53689151 2.7889798 -0.53850587 2.7820829 10993.104 -0.53626239 2.7886102 -0.53801666 2.7816739 10994.104 -0.53599671 2.7881455 -0.53752778 2.7812651 10995.104 -0.53535504 2.7877656 -0.53703923 2.7808563 10996.104 -0.53507290 2.7872955 -0.53655101 2.7804476 10997.104 -0.53441195 2.7869175 -0.53606311 2.7800390 10998.104 -0.53411311 2.7864567 -0.53557555 2.7796304 10999.104 -0.53343886 2.7860927 -0.53508831 2.7792220 11000.104 -0.53313197 2.7856493 -0.53460140 2.7788137 11001.104 -0.53245356 2.7853041 -0.53411482 2.7784054 11002.104 -0.53214780 2.7848804 -0.53362856 2.7779972 11003.104 -0.53147439 2.7845547 -0.53314264 2.7775892 11004.104 -0.53117896 2.7841496 -0.53265704 2.7771812 11005.104 -0.53051952 2.7838396 -0.53217176 2.7767733 11006.104 -0.53024188 2.7834467 -0.53168681 2.7763655 11007.104 -0.52960087 2.7831449 -0.53120219 2.7759578 11008.104 -0.52934303 2.7827571 -0.53071789 2.7755501 11009.104 -0.52872157 2.7824575 -0.53023392 2.7751426 11010.104 -0.52848450 2.7820696 -0.52975027 2.7747352 11011.104 -0.52788354 2.7817667 -0.52926695 2.7743278 11012.104 -0.52766821 2.7813726 -0.52878395 2.7739205 11013.104 -0.52708871 2.7810596 -0.52830127 2.7735134 11014.104 -0.52689534 2.7806502 -0.52781892 2.7731063 11015.104 -0.52633418 2.7803154 -0.52733689 2.7726993 11016.104 -0.52615442 2.7798799 -0.52685518 2.7722924 11017.104 -0.52559966 2.7795162 -0.52637380 2.7718856 11018.104 -0.52542054 2.7790510 -0.52589274 2.7714788 11019.104 -0.52485908 2.7786580 -0.52541200 2.7710722 11020.104 -0.52466751 2.7781656 -0.52493158 2.7706656 11021.104 -0.52408624 2.7777484 -0.52445148 2.7702592 11022.104 -0.52386914 2.7772376 -0.52397171 2.7698528 11023.104 -0.52325689 2.7768111 -0.52349225 2.7694465 11024.104 -0.52301007 2.7763021 -0.52301312 2.7690403 11025.104 -0.52237208 2.7758854 -0.52253430 2.7686342 11026.104 -0.52210645 2.7753915 -0.52205581 2.7682282 11027.104 -0.52145509 2.7749927 -0.52157763 2.7678223 11028.104 -0.52118316 2.7745182 -0.52109978 2.7674165 11029.104 -0.52053091 2.7741385 -0.52062224 2.7670107 11030.104 -0.52026522 2.7736817 -0.52014502 2.7666051 11031.104 -0.51962451 2.7733154 -0.51966812 2.7661995 11032.104 -0.51937534 2.7728652 -0.51919154 2.7657940 11033.104 -0.51875001 2.7724972 -0.51871528 2.7653886 11034.104 -0.51851360 2.7720396 -0.51823933 2.7649833 11035.104 -0.51789585 2.7716607 -0.51776370 2.7645781 11036.104 -0.51766351 2.7711906 -0.51728839 2.7641730 11037.104 -0.51704459 2.7707981 -0.51681339 2.7637680 11038.104 -0.51680759 2.7703150 -0.51633871 2.7633630 11039.104 -0.51617872 2.7699106 -0.51586435 2.7629582 11040.104 -0.51592840 2.7694188 -0.51539030 2.7625534 11041.104 -0.51528245 2.7690106 -0.51491657 2.7621487 11042.104 -0.51501574 2.7685204 -0.51444315 2.7617442 11043.104 -0.51435389 2.7681176 -0.51397005 2.7613397 11044.104 -0.51407400 2.7676360 -0.51349726 2.7609353 11045.104 -0.51339984 2.7672439 -0.51302479 2.7605309 11046.104 -0.51311041 2.7667753 -0.51255263 2.7601267 11047.104 -0.51242757 2.7663978 -0.51208078 2.7597226 11048.104 -0.51213223 2.7659460 -0.51160925 2.7593185 11049.104 -0.51144450 2.7655875 -0.51113803 2.7589146 11050.104 -0.51114850 2.7651580 -0.51066712 2.7585107 11051.104 -0.51046448 2.7648241 -0.51019653 2.7581069 11052.104 -0.51017969 2.7644200 -0.50972625 2.7577032 11053.104 -0.50951266 2.7641101 -0.50925628 2.7572996 11054.104 -0.50925260 2.7637276 -0.50878662 2.7568961 11055.104 -0.50861607 2.7634347 -0.50831727 2.7564926 11056.104 -0.50839430 2.7630631 -0.50784824 2.7560893 11057.104 -0.50780182 2.7627719 -0.50737951 2.7556861 11058.104 -0.50763083 2.7623881 -0.50691110 2.7552829 11059.104 -0.50708640 2.7620646 -0.50644299 2.7548798 11060.104 -0.50695222 2.7616312 -0.50597520 2.7544768 11061.104 -0.50642620 2.7612475 -0.50550771 2.7540739 11062.104 -0.50629316 2.7607499 -0.50504054 2.7536711 11063.104 -0.50574883 2.7603022 -0.50457367 2.7532684 11064.104 -0.50558017 2.7597452 -0.50410711 2.7528658 11065.104 -0.50498076 2.7592469 -0.50364087 2.7524632 11066.104 -0.50473969 2.7586544 -0.50317493 2.7520608 11067.104 -0.50405084 2.7581456 -0.50270929 2.7516584 11068.104 -0.50371915 2.7575778 -0.50224397 2.7512561 11069.104 -0.50295380 2.7571241 -0.50177895 2.7508539 11070.104 -0.50256949 2.7566308 -0.50131424 2.7504518 11071.104 -0.50177445 2.7562619 -0.50084984 2.7500498 11072.104 -0.50138569 2.7558580 -0.50038574 2.7496479 11073.104 -0.50060920 2.7555775 -0.49992195 2.7492461 11074.104 -0.50026428 2.7552561 -0.49945846 2.7488443 11075.104 -0.49955464 2.7550448 -0.49899528 2.7484427 11076.104 -0.49929908 2.7547692 -0.49853241 2.7480411 11077.104 -0.49868606 2.7545709 -0.49806984 2.7476396 11078.104 -0.49852139 2.7542796 -0.49760758 2.7472382 11079.104 -0.49798514 2.7540453 -0.49714562 2.7468369 11080.104 -0.49788457 2.7537047 -0.49668396 2.7464357 11081.104 -0.49739729 2.7534110 -0.49622261 2.7460346 11082.104 -0.49733297 2.7530042 -0.49576157 2.7456335 11083.104 -0.49686678 2.7526393 -0.49530082 2.7452326 11084.104 -0.49681082 2.7521587 -0.49484038 2.7448317 11085.104 -0.49633770 2.7517186 -0.49438025 2.7444310 11086.104 -0.49626146 2.7511636 -0.49392041 2.7440303 11087.104 -0.49575167 2.7506517 -0.49346088 2.7436297 11088.104 -0.49562467 2.7500305 -0.49300165 2.7432292 11089.104 -0.49504745 2.7494599 -0.49254273 2.7428287 11090.104 -0.49483891 2.7487912 -0.49208410 2.7424284 11091.104 -0.49416345 2.7481874 -0.49162577 2.7420282 11092.104 -0.49384257 2.7475049 -0.49116775 2.7416280 11093.104 -0.49303805 2.7469135 -0.49071003 2.7412279 11094.104 -0.49257910 2.7462846 -0.49025261 2.7408279 11095.104 -0.49164663 2.7457984 -0.48979548 2.7404281 11096.104 -0.49109717 2.7453166 -0.48933866 2.7400283 11097.104 -0.49011826 2.7450005 -0.48888214 2.7396285 11098.104 -0.48957054 2.7446988 -0.48842592 2.7392289 11099.104 -0.48863894 2.7445611 -0.48797000 2.7388294 11100.104 -0.48818686 2.7444271 -0.48751437 2.7384299 11101.104 -0.48739646 2.7444346 -0.48705905 2.7380305 11102.104 -0.48713394 2.7444085 -0.48660402 2.7376313 11103.104 -0.48656992 2.7444606 -0.48614929 2.7372321 11104.104 -0.48653894 2.7443977 -0.48569486 2.7368330 11105.104 -0.48617124 2.7443444 -0.48524072 2.7364340 11106.104 -0.48629066 2.7441335 -0.48478689 2.7360350 11107.104 -0.48602256 2.7439065 -0.48433335 2.7356362 11108.104 -0.48619356 2.7435094 -0.48388011 2.7352374 11109.104 -0.48592608 2.7430937 -0.48342716 2.7348388 11110.104 -0.48604970 2.7425172 -0.48297451 2.7344402 11111.104 -0.48568382 2.7419440 -0.48252216 2.7340417 11112.104 -0.48566700 2.7412541 -0.48207010 2.7336433 11113.104 -0.48514171 2.7406283 -0.48161834 2.7332450 11114.104 -0.48497946 2.7399392 -0.48116687 2.7328468 11115.104 -0.48433101 2.7393486 -0.48071570 2.7324487 11116.104 -0.48407275 2.7387178 -0.48026483 2.7320506 11117.104 -0.48335240 2.7381996 -0.47981424 2.7316526 11118.104 -0.48304952 2.7376496 -0.47936396 2.7312548 11119.104 -0.48230864 2.7372140 -0.47891396 2.7308570 11120.104 -0.48201255 2.7367421 -0.47846426 2.7304593 11121.104 -0.48129998 2.7363697 -0.47801486 2.7300617 11122.104 -0.48104594 2.7359388 -0.47756574 2.7296642 11123.104 -0.48037342 2.7355869 -0.47711692 2.7292667 11124.104 -0.48015603 2.7351638 -0.47666839 2.7288694 11125.104 -0.47951267 2.7348109 -0.47622016 2.7284721 11126.104 -0.47932032 2.7343811 -0.47577222 2.7280749 11127.104 -0.47869448 2.7340171 -0.47532457 2.7276779 11128.104 -0.47851553 2.7335743 -0.47487721 2.7272809 11129.104 -0.47789551 2.7331961 -0.47443014 2.7268840 11130.104 -0.47771869 2.7327407 -0.47398336 2.7264871 11131.104 -0.47709541 2.7323527 -0.47353688 2.7260904 11132.104 -0.47691576 2.7318908 -0.47309068 2.7256938 11133.104 -0.47628746 2.7314979 -0.47264478 2.7252972 11134.104 -0.47610437 2.7310330 -0.47219916 2.7249007 11135.104 -0.47547055 2.7306380 -0.47175384 2.7245043 11136.104 -0.47528355 2.7301724 -0.47130880 2.7241081 11137.104 -0.47464372 2.7297774 -0.47086406 2.7237118 11138.104 -0.47445235 2.7293136 -0.47041960 2.7233157 11139.104 -0.47380615 2.7289217 -0.46997544 2.7229197 11140.104 -0.47361104 2.7284636 -0.46953156 2.7225237 11141.104 -0.47296093 2.7280789 -0.46908797 2.7221279 11142.104 -0.47276599 2.7276292 -0.46864467 2.7217321 11143.104 -0.47211632 2.7272530 -0.46820166 2.7213364 11144.104 -0.47192607 2.7268120 -0.46775893 2.7209408 11145.104 -0.47128131 2.7264437 -0.46731649 2.7205453 11146.104 -0.47110023 2.7260100 -0.46687434 2.7201499 11147.104 -0.47046486 2.7256468 -0.46643248 2.7197546 11148.104 -0.47029732 2.7252159 -0.46599090 2.7193593 11149.104 -0.46967422 2.7248512 -0.46554961 2.7189642 11150.104 -0.46951992 2.7244154 -0.46510861 2.7185691 11151.104 -0.46890585 2.7240428 -0.46466789 2.7181741 11152.104 -0.46876039 2.7235980 -0.46422746 2.7177792 11153.104 -0.46815068 2.7232150 -0.46378731 2.7173844 11154.104 -0.46800943 2.7227595 -0.46334745 2.7169897 11155.104 -0.46739941 2.7223655 -0.46290788 2.7165950 11156.104 -0.46725773 2.7218999 -0.46246858 2.7162005 11157.104 -0.46664280 2.7214965 -0.46202958 2.7158060 11158.104 -0.46649698 2.7210240 -0.46159086 2.7154117 11159.104 -0.46587539 2.7206155 -0.46115242 2.7150174 11160.104 -0.46572563 2.7201399 -0.46071427 2.7146232 11161.104 -0.46509835 2.7197287 -0.46027640 2.7142291 11162.104 -0.46494583 2.7192514 -0.45983881 2.7138350 11163.104 -0.46431400 2.7188386 -0.45940151 2.7134411 11164.104 -0.46415989 2.7183601 -0.45896449 2.7130473 11165.104 -0.46352466 2.7179455 -0.45852775 2.7126535 11166.104 -0.46337011 2.7174651 -0.45809129 2.7122598 11167.104 -0.46273192 2.7170468 -0.45765512 2.7118662 11168.104 -0.46257581 2.7165620 -0.45721923 2.7114727 11169.104 -0.46193185 2.7161384 -0.45678362 2.7110793 11170.104 -0.46177066 2.7156488 -0.45634830 2.7106860 11171.104 -0.46111721 2.7152207 -0.45591325 2.7102928 11172.104 -0.46094724 2.7147282 -0.45547849 2.7098996 11173.104 -0.46028056 2.7142984 -0.45504401 2.7095065 11174.104 -0.46009816 2.7138070 -0.45460980 2.7091136 11175.104 -0.45941458 2.7133815 -0.45417588 2.7087207 11176.104 -0.45921757 2.7129002 -0.45374224 2.7083279 11177.104 -0.45851917 2.7124898 -0.45330888 2.7079352 11178.104 -0.45831466 2.7120281 -0.45287580 2.7075425 11179.104 -0.45761108 2.7116389 -0.45244300 2.7071500 11180.104 -0.45740933 2.7111996 -0.45201047 2.7067575 11181.104 -0.45671081 2.7108321 -0.45157823 2.7063652 11182.104 -0.45652212 2.7104136 -0.45114627 2.7059729 11183.104 -0.45583891 2.7100640 -0.45071458 2.7055807 11184.104 -0.45567359 2.7096598 -0.45028317 2.7051886 11185.104 -0.45501472 2.7093172 -0.44985205 2.7047966 11186.104 -0.45487713 2.7089125 -0.44942120 2.7044047 11187.104 -0.45424016 2.7085624 -0.44899062 2.7040128 11188.104 -0.45412373 2.7081465 -0.44856033 2.7036211 11189.104 -0.45350095 2.7077816 -0.44813031 2.7032294 11190.104 -0.45339792 2.7073494 -0.44770057 2.7028378 11191.104 -0.45278146 2.7069666 -0.44727111 2.7024463 11192.104 -0.45268405 2.7065166 -0.44684192 2.7020549 11193.104 -0.45206606 2.7061157 -0.44641301 2.7016636 11194.104 -0.45196677 2.7056498 -0.44598438 2.7012724 11195.104 -0.45134105 2.7052348 -0.44555603 2.7008812 11196.104 -0.45123589 2.7047573 -0.44512794 2.7004902 11197.104 -0.45059984 2.7043320 -0.44470014 2.7000992 11198.104 -0.45048674 2.7038464 -0.44427261 2.6997083 11199.104 -0.44983828 2.7034140 -0.44384536 2.6993175 11200.104 -0.44971523 2.7029235 -0.44341838 2.6989268 11201.104 -0.44905223 2.7024876 -0.44299168 2.6985362 11202.104 -0.44891720 2.7019966 -0.44256525 2.6981457 11203.104 -0.44823782 2.7015628 -0.44213909 2.6977553 11204.104 -0.44809066 2.7010786 -0.44171321 2.6973649 11205.104 -0.44739778 2.7006545 -0.44128761 2.6969746 11206.104 -0.44724394 2.7001830 -0.44086228 2.6965844 11207.104 -0.44654377 2.6997725 -0.44043722 2.6961944 11208.104 -0.44638968 2.6993158 -0.44001244 2.6958044 11209.104 -0.44568858 2.6989196 -0.43958793 2.6954144 11210.104 -0.44554071 2.6984775 -0.43916369 2.6950246 11211.104 -0.44484502 2.6980941 -0.43873973 2.6946349 11212.104 -0.44470974 2.6976636 -0.43831603 2.6942452 11213.104 -0.44402484 2.6972880 -0.43789262 2.6938556 11214.104 -0.44390532 2.6968626 -0.43746947 2.6934662 11215.104 -0.44323194 2.6964888 -0.43704660 2.6930768 11216.104 -0.44312799 2.6960638 -0.43662400 2.6926875 11217.104 -0.44246565 2.6956879 -0.43620167 2.6922983 11218.104 -0.44237687 2.6952596 -0.43577961 2.6919091 11219.104 -0.44172507 2.6948777 -0.43535782 2.6915201 11220.104 -0.44165108 2.6944423 -0.43493631 2.6911311 11221.104 -0.44100925 2.6940500 -0.43451507 2.6907423 11222.104 -0.44094877 2.6936014 -0.43409409 2.6903535 11223.104 -0.44031298 2.6931919 -0.43367339 2.6899648 11224.104 -0.44025927 2.6927247 -0.43325296 2.6895762 11225.104 -0.43962117 2.6922949 -0.43283280 2.6891877 11226.104 -0.43956569 2.6918081 -0.43241291 2.6887993 11227.104 -0.43891659 2.6913587 -0.43199329 2.6884110 11228.104 -0.43885079 2.6908549 -0.43157394 2.6880227 11229.104 -0.43818197 2.6903903 -0.43115486 2.6876346 11230.104 -0.43809725 2.6898763 -0.43073606 2.6872465 11231.104 -0.43740106 2.6894073 -0.43031752 2.6868585 11232.104 -0.43729442 2.6888978 -0.42989925 2.6864706 11233.104 -0.43657449 2.6884390 -0.42948124 2.6860828 11234.104 -0.43645419 2.6879447 -0.42906351 2.6856951 11235.104 -0.43571986 2.6875030 -0.42864605 2.6853075 11236.104 -0.43559556 2.6870281 -0.42822885 2.6849199 11237.104 -0.43485633 2.6866054 -0.42781193 2.6845325 11238.104 -0.43473770 2.6861501 -0.42739527 2.6841451 11239.104 -0.43400309 2.6857445 -0.42697888 2.6837579 11240.104 -0.43389951 2.6853041 -0.42656276 2.6833707 11241.104 -0.43317667 2.6849078 -0.42614691 2.6829836 11242.104 -0.43309150 2.6844732 -0.42573133 2.6825966 11243.104 -0.43238041 2.6840785 -0.42531601 2.6822097 11244.104 -0.43231273 2.6836439 -0.42490096 2.6818228 11245.104 -0.43161209 2.6832458 -0.42448618 2.6814361 11246.104 -0.43156078 2.6828069 -0.42407167 2.6810495 11247.104 -0.43086928 2.6824014 -0.42365742 2.6806629 11248.104 -0.43083325 2.6819539 -0.42324345 2.6802764 11249.104 -0.43014949 2.6815361 -0.42282973 2.6798901 11250.104 -0.43012651 2.6810739 -0.42241629 2.6795038 11251.104 -0.42944527 2.6806369 -0.42200311 2.6791176 11252.104 -0.42942738 2.6801548 -0.42159020 2.6787315 11253.104 -0.42873900 2.6796962 -0.42117756 2.6783454 11254.104 -0.42871648 2.6791941 -0.42076518 2.6779595 11255.104 -0.42801096 2.6787159 -0.42035307 2.6775737 11256.104 -0.42797410 2.6781980 -0.41994123 2.6771879 11257.104 -0.42724144 2.6777066 -0.41952965 2.6768023 11258.104 -0.42718053 2.6771829 -0.41911834 2.6764167 11259.104 -0.42641287 2.6766939 -0.41870729 2.6760312 11260.104 -0.42632756 2.6761844 -0.41829651 2.6756458 11261.104 -0.42553360 2.6757163 -0.41788600 2.6752606 11262.104 -0.42543825 2.6752336 -0.41747575 2.6748754 11263.104 -0.42463334 2.6747932 -0.41706577 2.6744902 11264.104 -0.42454378 2.6743401 -0.41665606 2.6741052 11265.104 -0.42374342 2.6739268 -0.41624661 2.6737203 11266.104 -0.42367550 2.6734992 -0.41583743 2.6733355 11267.104 -0.42289519 2.6731047 -0.41542851 2.6729507 11268.104 -0.42286369 2.6726880 -0.41501986 2.6725661 11269.104 -0.42211153 2.6722901 -0.41461147 2.6721815 11270.104 -0.42211341 2.6718606 -0.41420335 2.6717970 11271.104 -0.42137712 2.6714412 -0.41379550 2.6714127 11272.104 -0.42139755 2.6709880 -0.41338791 2.6710284 11273.104 -0.42066146 2.6705415 -0.41298059 2.6706442 11274.104 -0.42068517 2.6700626 -0.41257353 2.6702601 11275.104 -0.41993355 2.6695904 -0.41216674 2.6698761 11276.104 -0.41994528 2.6690914 -0.41176022 2.6694922 11277.104 -0.41916270 2.6686045 -0.41135396 2.6691084 11278.104 -0.41915168 2.6681042 -0.41094797 2.6687247 11279.104 -0.41833722 2.6676256 -0.41054224 2.6683410 11280.104 -0.41831339 2.6671432 -0.41013678 2.6679575 11281.104 -0.41748111 2.6666850 -0.40973158 2.6675741 11282.104 -0.41745998 2.6662269 -0.40932666 2.6671907 11283.104 -0.41662487 2.6657912 -0.40892199 2.6668075 11284.104 -0.41662204 2.6653563 -0.40851760 2.6664243 11285.104 -0.41579905 2.6649381 -0.40811347 2.6660413 11286.104 -0.41583011 2.6645166 -0.40770961 2.6656583 11287.104 -0.41503202 2.6640990 -0.40730602 2.6652755 11288.104 -0.41510208 2.6636673 -0.40690269 2.6648927 11289.104 -0.41432139 2.6632271 -0.40649963 2.6645100 11290.104 -0.41441630 2.6627693 -0.40609684 2.6641275 11291.104 -0.41363614 2.6622972 -0.40569431 2.6637450 11292.104 -0.41373961 2.6618091 -0.40529205 2.6633626 11293.104 -0.41294282 2.6613047 -0.40489007 2.6629804 11294.104 -0.41303858 2.6607896 -0.40448835 2.6625982 11295.104 -0.41220797 2.6602604 -0.40408690 2.6622161 11296.104 -0.41228062 2.6597327 -0.40368571 2.6618341 11297.104 -0.41140592 2.6592013 -0.40328480 2.6614523 11298.104 -0.41145835 2.6586862 -0.40288416 2.6610705 11299.104 -0.41055132 2.6581718 -0.40248379 2.6606888 11300.104 -0.41060002 2.6576813 -0.40208369 2.6603073 11301.104 -0.40967656 2.6571900 -0.40168386 2.6599258 11302.104 -0.40973868 2.6567262 -0.40128430 2.6595445 11303.104 -0.40881465 2.6562563 -0.40088502 2.6591632 11304.104 -0.40890739 2.6558135 -0.40048601 2.6587821 11305.104 -0.40799848 2.6553537 -0.40008727 2.6584010 11306.104 -0.40813577 2.6549130 -0.39968881 2.6580201 11307.104 -0.40724454 2.6544382 -0.39929062 2.6576393 11308.104 -0.40741891 2.6539771 -0.39889270 2.6572586 11309.104 -0.40652999 2.6534719 -0.39849507 2.6568780 11310.104 -0.40672643 2.6529814 -0.39809771 2.6564975 11311.104 -0.40582283 2.6524409 -0.39770063 2.6561171 11312.104 -0.40602631 2.6519203 -0.39730383 2.6557369 11313.104 -0.40509087 2.6513467 -0.39690731 2.6553567 11314.104 -0.40528644 2.6508026 -0.39651107 2.6549767 11315.104 -0.40430290 2.6502084 -0.39611511 2.6545968 11316.104 -0.40448243 2.6496604 -0.39571944 2.6542170 11317.104 -0.40345030 2.6490663 -0.39532406 2.6538373 11318.104 -0.40362381 2.6485309 -0.39492896 2.6534578 11319.104 -0.40255271 2.6479470 -0.39453415 2.6530783 11320.104 -0.40273326 2.6474305 -0.39413963 2.6526990 11321.104 -0.40163296 2.6468596 -0.39374540 2.6523199 11322.104 -0.40183380 2.6463630 -0.39335147 2.6519408 11323.104 -0.40071380 2.6458028 -0.39295784 2.6515619 11324.104 -0.40094833 2.6453212 -0.39256450 2.6511831 11325.104 -0.39981594 2.6447617 -0.39217147 2.6508045 11326.104 -0.40009111 2.6442829 -0.39177874 2.6504260 11327.104 -0.39894292 2.6437118 -0.39138632 2.6500476 11328.104 -0.39925780 2.6432275 -0.39099421 2.6496694 11329.104 -0.39808660 2.6426377 -0.39060241 2.6492914 11330.104 -0.39844008 2.6421432 -0.39021094 2.6489135 11331.104 -0.39723803 2.6415300 -0.38981978 2.6485357 11332.104 -0.39762940 2.6410224 -0.38942896 2.6481581 11333.104 -0.39638796 2.6403818 -0.38903847 2.6477807 11334.104 -0.39681708 2.6398594 -0.38864832 2.6474035 11335.104 -0.39552675 2.6391883 -0.38825851 2.6470264 11336.104 -0.39599417 2.6386502 -0.38786906 2.6466496 11337.104 -0.39464426 2.6379459 -0.38747997 2.6462729 11338.104 -0.39515141 2.6373922 -0.38709125 2.6458964 11339.104 -0.39372972 2.6366523 -0.38670291 2.6455202 11340.104 -0.39427923 2.6360839 -0.38631496 2.6451442 11341.104 -0.39277164 2.6353067 -0.38592742 2.6447684 11342.104 -0.39336780 2.6347260 -0.38554029 2.6443929 11343.104 -0.39175763 2.6339106 -0.38515360 2.6440176 11344.104 -0.39240819 2.6333235 -0.38476736 2.6436426 11345.104 -0.39067955 2.6324709 -0.38438160 2.6432679 11346.104 -0.39140185 2.6318829 -0.38399635 2.6428936 11347.104 -0.38953863 2.6309878 -0.38361163 2.6425196 11348.104 -0.39035637 2.6303998 -0.38322747 2.6421460 11349.104 -0.38833555 2.6294501 -0.38284393 2.6417729 11350.104 -0.38927939 2.6288597 -0.38246105 2.6414002 11351.104 -0.38706704 2.6278342 -0.38207890 2.6410281 11352.104 -0.38817872 2.6272353 -0.38169756 2.6406565 11353.104 -0.38572340 2.6260990 -0.38131713 2.6402857 11354.104 -0.38706140 2.6254793 -0.38093772 2.6399158 11355.104 -0.38427864 2.6241735 -0.38055953 2.6395468 11356.104 -0.38593166 2.6235175 -0.38018276 2.6391789 11357.104 -0.38268414 2.6219415 -0.37980774 2.6388126 11358.104 -0.38481465 2.6212269 -0.37943493 2.6384481 11359.104 -0.38087130 2.6191640 -0.37906502 2.6380862 11360.104 -0.38383339 2.6183452 -0.37869912 2.6377277 11361.104 -0.37880268 2.6151435 -0.37833922 2.6373745 11362.104 -0.38365611 2.6140745 -0.37798919 2.6370299 11363.104 -0.37801803 2.6049940 -0.37765812 2.6367017 11364.104 -0.37767172 2.5940717 -0.37737413 2.6364139 11365.104 -0.33671117 2.5835059 -0.37728423 2.6362885 ifeffit-1.2.11d/examples/diffkk/f1/diffkk_f2tof1.inp0000644000175000017500000000310610771740461021070 0ustar segresegre # -- diffkk version 1.20 -- # program inputs or default values used: title = diffkk: no title lines specified xmu = cu_exp.xmu % file name for xmu data out = test.out % output file name isfeff = false % file is not a feff xmu.dat file f2_to_f1 = true % transform f1-like data to f2 encol = 1 % column to read energy from mucol = 2 % column to read mu(E) from iz = 29 % atomic number of core atom e0 = 8977.9700 % edge energy (used as reference) egrid = 1.0000 % energy grid for calculation ewidth = 0.000 % for broadening CL data elow = 200.0000 % how far below data range to calculate ehigh = 500.0000 % how far above data range to calculate end % all remaining lines will be ignored on input -- diffkk program summary -- f''(E) was set to be f''(E) = f''_CL(E) for E > e0+ehigh and E < e0-elow. within the range E = [e0-elow, e0+ehigh], f'' was set to f''(E) = f''_CL(E) + a0 + a1 * mu(E') * ( E' / e0) + a2 * (E' - e0) + a3 * (E' - e0)**2 where mu(E) was read from t.dat, f''_CL(E) was found for Cu, and E' = E + e0_shift. the values of e0_shift, a0, a1, a2, and a3 were determined to be: e0_shift = -0.605967 a0 = 1.39921 a1 = 2.51221 a2 = -0.877579E-03 a3 = 0.125303E-05 so as to best match f''_CL(E) between E = [e0-elow, e0+ehigh] -- end diffkk log file -- ifeffit-1.2.11d/examples/diffkk/f1/diffkk.sav0000644000175000017500000064062010771740461017722 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.2.4 Copyright (c) 2003 Matt Newville, Univ of Chicago #:strings #= plot_device= /xserve #= group= dat #= commentchar= # #= column_label= 1 2 #= column_label1= 1 2 #= dat_title_01= data from ifeffit #= filename= f1_like.dat #= doc= diffkk: no title lines specified #:system #:scalars (nopad) #% pi 3.141592653590 #% etok 0.2624682917000 #% correl_min 0.5000000000000E-01 #% ncolumn_label 1.000000000000 #% egrid 1.000000000000 #% elow 8774.104000000 #% ehigh 11365.10400000 #% iz 29.00000000000 #% core_width 1.549999952316 #:arrays #% [ 2592] dat.1 !VtPS-4P7VtPwUaP7VtQA~4P7VtQfLaP7VtR0u4P7VtRUCaP7VtRyl4P7VtSD:aP7VtShc4P7VtT31aP7 !VtTWZ4P7VtT|(aP7VtUFQ4P7VtUjyaP7VtV5H4P7VtVYpaP7VtV~?4P7VtWHgaP7VtWm64P7VtX7^aP7 !VtX\-4P7VtY&UaP7VtYJ~4P7VtYoLaP7VtZ9u4P7VtZ^CaP7Vt[(l4P7Vt[M:aP7Vt[qc4P7Vt\<1aP7 !Vt\`Z4P7Vt]+(aP7Vt]OQ4P7Vt]syaP7Vt^>H4P7Vt^bpaP7Vt_-?4P7Vt_QgaP7Vt_v64P7Vt`@^aP7 !Vt`e-4P7Vta/UaP7VtaS~4P7VtaxLaP7VtbBu4P7VtbgCaP7Vtc1l4P7VtcV:aP7Vtczc4P7VtdE1aP7 !VtdiZ4P7Vte4(aP7VteXQ4P7Vte|yaP7VtfGH4P7VtfkpaP7Vtg6?4P7VtgZgaP7Vth%64P7VthI^aP7 !Vthn-4P7Vti8UaP7Vti\~4P7Vtj'LaP7VtjKu4P7VtjpCaP7Vtk:l4P7Vtk_:aP7Vtl)c4P7VtlN1aP7 !VtlrZ4P7Vtm=(aP7VtmaQ4P7Vtn+yaP7VtnPH4P7VtntpaP7Vto??4P7VtocgaP7Vtp.64P7VtpR^aP7 !Vtpw-4P7VtqAUaP7Vtqe~4P7Vtr0LaP7VtrTu4P7VtryCaP7VtsCl4P7Vtsh:aP7Vtt2c4P7VttW1aP7 !Vtt{Z4P7VtuF(aP7VtujQ4P7Vtv4yaP7VtvYH4P7Vtv}paP7VtwH?4P7VtwlgaP7Vtx764P7Vtx[^aP7 !Vty&-4P7VtyJUaP7Vtyn~4P7Vtz9LaP7Vtz]u4P7Vt{(CaP7Vt{Ll4P7Vt{q:aP7Vt|;c4P7Vt|`1aP7 !Vt}*Z4P7Vt}O(aP7Vt}sQ4P7Vt~=yaP7Vt~bH4P7Vv%,paP7Vv%Q?4P7Vv%ugaP7Vv&@64P7Vv&d^aP7 !Vv'/-4P7Vv'SUaP7Vv'w~4P7Vv(BLaP7Vv(fu4P7Vv)1CaP7Vv)Ul4P7Vv)z:aP7Vv*Dc4P7Vv*i1aP7 !Vv+3Z4P7Vv+X(aP7Vv+|Q4P7Vv,FyaP7Vv,kH4P7Vv-5paP7Vv-Z?4P7Vv-~gaP7Vv.I64P7Vv.m^aP7 !Vv/8-4P7Vv/\UaP7Vv0&~4P7Vv0KLaP7Vv0ou4P7Vv1:CaP7Vv1^l4P7Vv2):aP7Vv2Mc4P7Vv2r1aP7 !Vv3paP7Vv5c?4P7Vv6-gaP7Vv6R64P7Vv6v^aP7 !Vv7A-4P7Vv7eUaP7Vv8/~4P7Vv8TLaP7Vv8xu4P7Vv9CCaP7Vv9gl4P7Vv:2:aP7Vv:Vc4P7Vv:{1aP7 !Vv;EZ4P7Vv;j(aP7Vv<4Q4P7Vv6gaP7Vv>[64P7Vv?%^aP7 !Vv?J-4P7Vv?nUaP7Vv@8~4P7Vv@]LaP7VvA'u4P7VvALCaP7VvApl4P7VvB;:aP7VvB_c4P7VvC*1aP7 !VvCNZ4P7VvCs(aP7VvD=Q4P7VvDayaP7VvE,H4P7VvEPpaP7VvEu?4P7VvF?gaP7VvFd64P7VvG.^aP7 !VvGS-4P7VvGwUaP7VvHA~4P7VvHfLaP7VvI0u4P7VvIUCaP7VvIyl4P7VvJD:aP7VvJhc4P7VvK31aP7 !VvKWZ4P7VvK|(aP7VvLFQ4P7VvLjyaP7VvM5H4P7VvMYpaP7VvM~?4P7VvNHgaP7VvNm64P7VvO7^aP7 !VvO\-4P7VvP&UaP7VvPJ~4P7VvPoLaP7VvQ9u4P7VvQ^CaP7VvR(l4P7VvRM:aP7VvRqc4P7VvS<1aP7 !VvS`Z4P7VvT+(aP7VvTOQ4P7VvTsyaP7VvU>H4P7VvUbpaP7VvV-?4P7VvVQgaP7VvVv64P7VvW@^aP7 !VvWe-4P7VvX/UaP7VvXS~4P7VvXxLaP7VvYBu4P7VvYgCaP7VvZ1l4P7VvZV:aP7VvZzc4P7Vv[E1aP7 !Vv[iZ4P7Vv\4(aP7Vv\XQ4P7Vv\|yaP7Vv]GH4P7Vv]kpaP7Vv^6?4P7Vv^ZgaP7Vv_%64P7Vv_I^aP7 !Vv_n-4P7Vv`8UaP7Vv`\~4P7Vva'LaP7VvaKu4P7VvapCaP7Vvb:l4P7Vvb_:aP7Vvc)c4P7VvcN1aP7 !VvcrZ4P7Vvd=(aP7VvdaQ4P7Vve+yaP7VvePH4P7VvetpaP7Vvf??4P7VvfcgaP7Vvg.64P7VvgR^aP7 !Vvgw-4P7VvhAUaP7Vvhe~4P7Vvi0LaP7VviTu4P7VviyCaP7VvjCl4P7Vvjh:aP7Vvk2c4P7VvkW1aP7 !Vvk{Z4P7VvlF(aP7VvljQ4P7Vvm4yaP7VvmYH4P7Vvm}paP7VvnH?4P7VvnlgaP7Vvo764P7Vvo[^aP7 !Vvp&-4P7VvpJUaP7Vvpn~4P7Vvq9LaP7Vvq]u4P7Vvr(CaP7VvrLl4P7Vvrq:aP7Vvs;c4P7Vvs`1aP7 !Vvt*Z4P7VvtO(aP7VvtsQ4P7Vvu=yaP7VvubH4P7Vvv,paP7VvvQ?4P7VvvugaP7Vvw@64P7Vvwd^aP7 !Vvx/-4P7VvxSUaP7Vvxw~4P7VvyBLaP7Vvyfu4P7Vvz1CaP7VvzUl4P7Vvzz:aP7Vv{Dc4P7Vv{i1aP7 !Vv|3Z4P7Vv|X(aP7Vv||Q4P7Vv}FyaP7Vv}kH4P7Vv~5paP7Vv~Z?4P7Vv~~gaP7Vx%I64P7Vx%m^aP7 !Vx&8-4P7Vx&\UaP7Vx'&~4P7Vx'KLaP7Vx'ou4P7Vx(:CaP7Vx(^l4P7Vx)):aP7Vx)Mc4P7Vx)r1aP7 !Vx*paP7Vx,c?4P7Vx--gaP7Vx-R64P7Vx-v^aP7 !Vx.A-4P7Vx.eUaP7Vx//~4P7Vx/TLaP7Vx/xu4P7Vx0CCaP7Vx0gl4P7Vx12:aP7Vx1Vc4P7Vx1{1aP7 !Vx2EZ4P7Vx2j(aP7Vx34Q4P7Vx3XyaP7Vx3}H4P7Vx4GpaP7Vx4l?4P7Vx56gaP7Vx5[64P7Vx6%^aP7 !Vx6J-4P7Vx6nUaP7Vx78~4P7Vx7]LaP7Vx8'u4P7Vx8LCaP7Vx8pl4P7Vx9;:aP7Vx9_c4P7Vx:*1aP7 !Vx:NZ4P7Vx:s(aP7Vx;=Q4P7Vx;ayaP7Vx<,H4P7Vx.^aP7 !Vx>S-4P7Vx>wUaP7Vx?A~4P7Vx?fLaP7Vx@0u4P7Vx@UCaP7Vx@yl4P7VxAD:aP7VxAhc4P7VxB31aP7 !VxBWZ4P7VxB|(aP7VxCFQ4P7VxCjyaP7VxD5H4P7VxDYpaP7VxD~?4P7VxEHgaP7VxEm64P7VxF7^aP7 !VxF\-4P7VxG&UaP7VxGJ~4P7VxGoLaP7VxH9u4P7VxH^CaP7VxI(l4P7VxIM:aP7VxIqc4P7VxJ<1aP7 !VxJ`Z4P7VxK+(aP7VxKOQ4P7VxKsyaP7VxL>H4P7VxLbpaP7VxM-?4P7VxMQgaP7VxMv64P7VxN@^aP7 !VxNe-4P7VxO/UaP7VxOS~4P7VxOxLaP7VxPBu4P7VxPgCaP7VxQ1l4P7VxQV:aP7VxQzc4P7VxRE1aP7 !VxRiZ4P7VxS4(aP7VxSXQ4P7VxS|yaP7VxTGH4P7VxTkpaP7VxU6?4P7VxUZgaP7VxV%64P7VxVI^aP7 !VxVn-4P7VxW8UaP7VxW\~4P7VxX'LaP7VxXKu4P7VxXpCaP7VxY:l4P7VxY_:aP7VxZ)c4P7VxZN1aP7 !VxZrZ4P7Vx[=(aP7Vx[aQ4P7Vx\+yaP7Vx\PH4P7Vx\tpaP7Vx]??4P7Vx]cgaP7Vx^.64P7Vx^R^aP7 !Vx^w-4P7Vx_AUaP7Vx_e~4P7Vx`0LaP7Vx`Tu4P7Vx`yCaP7VxaCl4P7Vxah:aP7Vxb2c4P7VxbW1aP7 !Vxb{Z4P7VxcF(aP7VxcjQ4P7Vxd4yaP7VxdYH4P7Vxd}paP7VxeH?4P7VxelgaP7Vxf764P7Vxf[^aP7 !Vxg&-4P7VxgJUaP7Vxgn~4P7Vxh9LaP7Vxh]u4P7Vxi(CaP7VxiLl4P7Vxiq:aP7Vxj;c4P7Vxj`1aP7 !Vxk*Z4P7VxkO(aP7VxksQ4P7Vxl=yaP7VxlbH4P7Vxm,paP7VxmQ?4P7VxmugaP7Vxn@64P7Vxnd^aP7 !Vxo/-4P7VxoSUaP7Vxow~4P7VxpBLaP7Vxpfu4P7Vxq1CaP7VxqUl4P7Vxqz:aP7VxrDc4P7Vxri1aP7 !Vxs3Z4P7VxsX(aP7Vxs|Q4P7VxtFyaP7VxtkH4P7Vxu5paP7VxuZ?4P7Vxu~gaP7VxvI64P7Vxvm^aP7 !Vxw8-4P7Vxw\UaP7Vxx&~4P7VxxKLaP7Vxxou4P7Vxy:CaP7Vxy^l4P7Vxz):aP7VxzMc4P7Vxzr1aP7 !Vx{paP7Vx}c?4P7Vx~-gaP7Vx~R64P7Vx~v^aP7 !Vz%A-4P7Vz%eUaP7Vz&/~4P7Vz&TLaP7Vz&xu4P7Vz'CCaP7Vz'gl4P7Vz(2:aP7Vz(Vc4P7Vz({1aP7 !Vz)EZ4P7Vz)j(aP7Vz*4Q4P7Vz*XyaP7Vz*}H4P7Vz+GpaP7Vz+l?4P7Vz,6gaP7Vz,[64P7Vz-%^aP7 !Vz-J-4P7Vz-nUaP7Vz.8~4P7Vz.]LaP7Vz/'u4P7Vz/LCaP7Vz/pl4P7Vz0;:aP7Vz0_c4P7Vz1*1aP7 !Vz1NZ4P7Vz1s(aP7Vz2=Q4P7Vz2ayaP7Vz3,H4P7Vz3PpaP7Vz3u?4P7Vz4?gaP7Vz4d64P7Vz5.^aP7 !Vz5S-4P7Vz5wUaP7Vz6A~4P7Vz6fLaP7Vz70u4P7Vz7UCaP7Vz7yl4P7Vz8D:aP7Vz8hc4P7Vz931aP7 !Vz9WZ4P7Vz9|(aP7Vz:FQ4P7Vz:jyaP7Vz;5H4P7Vz;YpaP7Vz;~?4P7Vz&UaP7Vz>J~4P7Vz>oLaP7Vz?9u4P7Vz?^CaP7Vz@(l4P7Vz@M:aP7Vz@qc4P7VzA<1aP7 !VzA`Z4P7VzB+(aP7VzBOQ4P7VzBsyaP7VzC>H4P7VzCbpaP7VzD-?4P7VzDQgaP7VzDv64P7VzE@^aP7 !VzEe-4P7VzF/UaP7VzFS~4P7VzFxLaP7VzGBu4P7VzGgCaP7VzH1l4P7VzHV:aP7VzHzc4P7VzIE1aP7 !VzIiZ4P7VzJ4(aP7VzJXQ4P7VzJ|yaP7VzKGH4P7VzKkpaP7VzL6?4P7VzLZgaP7VzM%64P7VzMI^aP7 !VzMn-4P7VzN8UaP7VzN\~4P7VzO'LaP7VzOKu4P7VzOpCaP7VzP:l4P7VzP_:aP7VzQ)c4P7VzQN1aP7 !VzQrZ4P7VzR=(aP7VzRaQ4P7VzS+yaP7VzSPH4P7VzStpaP7VzT??4P7VzTcgaP7VzU.64P7VzUR^aP7 !VzUw-4P7VzVAUaP7VzVe~4P7VzW0LaP7VzWTu4P7VzWyCaP7VzXCl4P7VzXh:aP7VzY2c4P7VzYW1aP7 !VzY{Z4P7VzZF(aP7VzZjQ4P7Vz[4yaP7Vz[YH4P7Vz[}paP7Vz\H?4P7Vz\lgaP7Vz]764P7Vz][^aP7 !Vz^&-4P7Vz^JUaP7Vz^n~4P7Vz_9LaP7Vz_]u4P7Vz`(CaP7Vz`Ll4P7Vz`q:aP7Vza;c4P7Vza`1aP7 !Vzb*Z4P7VzbO(aP7VzbsQ4P7Vzc=yaP7VzcbH4P7Vzd,paP7VzdQ?4P7VzdugaP7Vze@64P7Vzed^aP7 !Vzf/-4P7VzfSUaP7Vzfw~4P7VzgBLaP7Vzgfu4P7Vzh1CaP7VzhUl4P7Vzhz:aP7VziDc4P7Vzii1aP7 !Vzj3Z4P7VzjX(aP7Vzj|Q4P7VzkFyaP7VzkkH4P7Vzl5paP7VzlZ?4P7Vzl~gaP7VzmI64P7Vzmm^aP7 !Vzn8-4P7Vzn\UaP7Vzo&~4P7VzoKLaP7Vzoou4P7Vzp:CaP7Vzp^l4P7Vzq):aP7VzqMc4P7Vzqr1aP7 !VzrpaP7Vztc?4P7Vzu-gaP7VzuR64P7Vzuv^aP7 !VzvA-4P7VzveUaP7Vzw/~4P7VzwTLaP7Vzwxu4P7VzxCCaP7Vzxgl4P7Vzy2:aP7VzyVc4P7Vzy{1aP7 !VzzEZ4P7Vzzj(aP7Vz{4Q4P7Vz{XyaP7Vz{}H4P7Vz|GpaP7Vz|l?4P7Vz}6gaP7Vz}[64P7Vz~%^aP7 !Vz~J-4P7Vz~nUaP7V|%8~4P7V|%]LaP7V|&'u4P7V|&LCaP7V|&pl4P7V|';:aP7V|'_c4P7V|(*1aP7 !V|(NZ4P7V|(s(aP7V|)=Q4P7V|)ayaP7V|*,H4P7V|*PpaP7V|*u?4P7V|+?gaP7V|+d64P7V|,.^aP7 !V|,S-4P7V|,wUaP7V|-A~4P7V|-fLaP7V|.0u4P7V|.UCaP7V|.yl4P7V|/D:aP7V|/hc4P7V|031aP7 !V|0WZ4P7V|0|(aP7V|1FQ4P7V|1jyaP7V|25H4P7V|2YpaP7V|2~?4P7V|3HgaP7V|3m64P7V|47^aP7 !V|4\-4P7V|5&UaP7V|5J~4P7V|5oLaP7V|69u4P7V|6^CaP7V|7(l4P7V|7M:aP7V|7qc4P7V|8<1aP7 !V|8`Z4P7V|9+(aP7V|9OQ4P7V|9syaP7V|:>H4P7V|:bpaP7V|;-?4P7V|;QgaP7V|;v64P7V|<@^aP7 !V|Bu4P7V|>gCaP7V|?1l4P7V|?V:aP7V|?zc4P7V|@E1aP7 !V|@iZ4P7V|A4(aP7V|AXQ4P7V|A|yaP7V|BGH4P7V|BkpaP7V|C6?4P7V|CZgaP7V|D%64P7V|DI^aP7 !V|Dn-4P7V|E8UaP7V|E\~4P7V|F'LaP7V|FKu4P7V|FpCaP7V|G:l4P7V|G_:aP7V|H)c4P7V|HN1aP7 !V|HrZ4P7V|I=(aP7V|IaQ4P7V|J+yaP7V|JPH4P7V|JtpaP7V|K??4P7V|KcgaP7V|L.64P7V|LR^aP7 !V|Lw-4P7V|MAUaP7V|Me~4P7V|N0LaP7V|NTu4P7V|NyCaP7V|OCl4P7V|Oh:aP7V|P2c4P7V|PW1aP7 !V|P{Z4P7V|QF(aP7V|QjQ4P7V|R4yaP7V|RYH4P7V|R}paP7V|SH?4P7V|SlgaP7V|T764P7V|T[^aP7 !V|U&-4P7V|UJUaP7V|Un~4P7V|V9LaP7V|V]u4P7V|W(CaP7V|WLl4P7V|Wq:aP7V|X;c4P7V|X`1aP7 !V|Y*Z4P7V|YO(aP7V|YsQ4P7V|Z=yaP7V|ZbH4P7V|[,paP7V|[Q?4P7V|[ugaP7V|\@64P7V|\d^aP7 !V|]/-4P7V|]SUaP7V|]w~4P7V|^BLaP7V|^fu4P7V|_1CaP7V|_Ul4P7V|_z:aP7V|`Dc4P7V|`i1aP7 !V|a3Z4P7V|aX(aP7V|a|Q4P7V|bFyaP7V|bkH4P7V|c5paP7V|cZ?4P7V|c~gaP7V|dI64P7V|dm^aP7 !V|e8-4P7V|e\UaP7V|f&~4P7V|fKLaP7V|fou4P7V|g:CaP7V|g^l4P7V|h):aP7V|hMc4P7V|hr1aP7 !V|ipaP7V|kc?4P7V|l-gaP7V|lR64P7V|lv^aP7 !V|mA-4P7V|meUaP7V|n/~4P7V|nTLaP7V|nxu4P7V|oCCaP7V|ogl4P7V|p2:aP7V|pVc4P7V|p{1aP7 !V|qEZ4P7V|qj(aP7V|r4Q4P7V|rXyaP7V|r}H4P7V|sGpaP7V|sl?4P7V|t6gaP7V|t[64P7V|u%^aP7 !V|uJ-4P7V|unUaP7V|v8~4P7V|v]LaP7V|w'u4P7V|wLCaP7V|wpl4P7V|x;:aP7V|x_c4P7V|y*1aP7 !V|yNZ4P7V|ys(aP7V|z=Q4P7V|zayaP7V|{,H4P7V|{PpaP7V|{u?4P7V||?gaP7V||d64P7V|}.^aP7 !V|}S-4P7V|}wUaP7V|~A~4P7V|~fLaP7V~%0u4P7V~%UCaP7V~%yl4P7V~&D:aP7V~&hc4P7V~'31aP7 !V~'WZ4P7V~'|(aP7V~(FQ4P7V~(jyaP7V~)5H4P7V~)YpaP7V~)~?4P7V~*HgaP7V~*m64P7V~+7^aP7 !V~+\-4P7V~,&UaP7V~,J~4P7V~,oLaP7V~-9u4P7V~-^CaP7V~.(l4P7V~.M:aP7V~.qc4P7V~/<1aP7 !V~/`Z4P7V~0+(aP7V~0OQ4P7V~0syaP7V~1>H4P7V~1bpaP7V~2-?4P7V~2QgaP7V~2v64P7V~3@^aP7 !V~3e-4P7V~4/UaP7V~4S~4P7V~4xLaP7V~5Bu4P7V~5gCaP7V~61l4P7V~6V:aP7V~6zc4P7V~7E1aP7 !V~7iZ4P7V~84(aP7V~8XQ4P7V~8|yaP7V~9GH4P7V~9kpaP7V~:6?4P7V~:ZgaP7V~;%64P7V~;I^aP7 !V~;n-4P7V~<8UaP7V~<\~4P7V~='LaP7V~=Ku4P7V~=pCaP7V~>:l4P7V~>_:aP7V~?)c4P7V~?N1aP7 !V~?rZ4P7V~@=(aP7V~@aQ4P7V~A+yaP7V~APH4P7V~AtpaP7V~B??4P7V~BcgaP7V~C.64P7V~CR^aP7 !V~Cw-4P7V~DAUaP7V~De~4P7V~E0LaP7V~ETu4P7V~EyCaP7V~FCl4P7V~Fh:aP7V~G2c4P7V~GW1aP7 !V~G{Z4P7V~HF(aP7V~HjQ4P7V~I4yaP7V~IYH4P7V~I}paP7V~JH?4P7V~JlgaP7V~K764P7V~K[^aP7 !V~L&-4P7V~LJUaP7V~Ln~4P7V~M9LaP7V~M]u4P7V~N(CaP7V~NLl4P7V~Nq:aP7V~O;c4P7V~O`1aP7 !V~P*Z4P7V~PO(aP7V~PsQ4P7V~Q=yaP7V~QbH4P7V~R,paP7V~RQ?4P7V~RugaP7V~S@64P7V~Sd^aP7 !V~T/-4P7V~TSUaP7V~Tw~4P7V~UBLaP7V~Ufu4P7V~V1CaP7V~VUl4P7V~Vz:aP7V~WDc4P7V~Wi1aP7 !V~X3Z4P7V~XX(aP7V~X|Q4P7V~YFyaP7V~YkH4P7V~Z5paP7V~ZZ?4P7V~Z~gaP7V~[I64P7V~[m^aP7 !V~\8-4P7V~\\UaP7V~]&~4P7V~]KLaP7V~]ou4P7V~^:CaP7V~^^l4P7V~_):aP7V~_Mc4P7V~_r1aP7 !V~`paP7V~bc?4P7V~c-gaP7V~cR64P7V~cv^aP7 !V~dA-4P7V~deUaP7V~e/~4P7V~eTLaP7V~exu4P7V~fCCaP7V~fgl4P7V~g2:aP7V~gVc4P7V~g{1aP7 !V~hEZ4P7V~hj(aP7V~i4Q4P7V~iXyaP7V~i}H4P7V~jGpaP7V~jl?4P7V~k6gaP7V~k[64P7V~l%^aP7 !V~lJ-4P7V~lnUaP7V~m8~4P7V~m]LaP7V~n'u4P7V~nLCaP7V~npl4P7V~o;:aP7V~o_c4P7V~p*1aP7 !V~pNZ4P7V~ps(aP7V~q=Q4P7V~qayaP7V~r,H4P7V~rPpaP7V~ru?4P7V~s?gaP7V~sd64P7V~t.^aP7 !V~tS-4P7V~twUaP7V~uA~4P7V~ufLaP7V~v0u4P7V~vUCaP7V~vyl4P7V~wD:aP7V~whc4P7V~x31aP7 !V~xWZ4P7V~x|(aP7V~yFQ4P7V~yjyaP7V~z5H4P7V~zYpaP7V~z~?4P7V~{HgaP7V~{m64P7V~|7^aP7 !V~|\-4P7V~}&UaP7V~}J~4P7V~}oLaP7V~~9u4P7V~~^CaP7W.R%G/VBW.R)'4)BW.R,a8VBW.R0A=)B !W.R3{AVBW.R7[F)BW.R;;JVBW.R>uO)BW.RBUSVBW.RF5X)BW.RIo\VBW.RMOa)BW.RQ/eVBW.RTij)B !W.RXInVBW.R\)s)BW.R_cwVBW.RcC|)BW.Rf~&VBW.Rj^+)BW.Rn>/VBW.Rqx4)BW.RuX8VBW.Ry8=)B !W.R|rAVBW.S&RF)BW.S*2JVBW.S-lO)BW.S1LSVBW.S5,X)BW.S8f\VBW.S]4)BW.UB=8VBW.UEw=)B !W.UIWAVBW.UM7F)BW.UPqJVBW.UTQO)BW.UX1SVBW.U[kX)BW.U_K\VBW.Uc+a)BW.UfeeVBW.UjEj)B !W.Un%nVBW.Uq_s)BW.Uu?wVBW.Uxy|)BW.U|Z&VBW.V&:+)BW.V)t/VBW.V-T4)BW.V148VBW.V4n=)B !W.V8NAVBW.V<.F)BW.V?hJVBW.VCHO)BW.VG(SVBW.VJbX)BW.VNB\VBW.VQ|a)BW.VU\eVBW.VYDs)BW.XA~wVBW.XE^|)BW.XI?&VBW.XLy+)BW.XPY/VBW.XT94)BW.XWs8VBW.X[S=)B !W.X_3AVBW.XbmF)BW.XfMJVBW.Xj-O)BW.XmgSVBW.XqGX)BW.Xu'\VBW.Xxaa)BW.X|AeVBW.Y%{j)B !W.Y)[nVBW.Y-;s)BW.Y0uwVBW.Y4U|)BW.Y86&VBW.Y;p+)BW.Y?P/VBW.YC04)BW.YFj8VBW.YJJ=)B !W.YN*AVBW.YQdF)BW.YUDJVBW.YX~O)BW.Y\^SVBW.Y`>X)BW.Ycx\VBW.YgXa)BW.Yk8eVBW.Ynrj)B !W.YrRnVBW.Yv2s)BW.YylwVBW.Y}L|)BW.Z'-&VBW.Z*g+)BW.Z.G/VBW.Z2'4)BW.Z5a8VBW.Z9A=)B !W.Z<{AVBW.Z@[F)BW.ZD;JVBW.ZGuO)BW.ZKUSVBW.ZO5X)BW.ZRo\VBW.ZVOa)BW.ZZ/eVBW.Z]ij)B !W.ZaInVBW.Ze)s)BW.ZhcwVBW.ZlC|)BW.Zo~&VBW.Zs^+)BW.Zw>/VBW.Zzx4)BW.Z~X8VBW.[(8=)B !W.[+rAVBW.[/RF)BW.[32JVBW.[6lO)BW.[:LSVBW.[>,X)BW.[Af\VBW.[EFa)BW.[I&eVBW.[L`j)B !W.[P@nVBW.[Szs)BW.[WZwVBW.[[:|)BW.[^u&VBW.[bU+)BW.[f5/VBW.[io4)BW.[mO8VBW.[q/=)B !W.[tiAVBW.[xIF)BW.[|)JVBW.\%cO)BW.\)CSVBW.\,}X)BW.\0]\VBW.\4=a)BW.\7weVBW.\;Wj)B !W.\?7nVBW.\Bqs)BW.\FQwVBW.\J1|)BW.\Ml&VBW.\QL+)BW.\U,/VBW.\Xf4)BW.\\F8VBW.\`&=)B !W.\c`AVBW.\g@F)BW.\jzJVBW.\nZO)BW.\r:SVBW.\utX)BW.\yT\VBW.\}4a)BW.]&neVBW.]*Nj)B !W.]..nVBW.]1hs)BW.]5HwVBW.]9(|)BW.]ySVBW._BYX)BW._F9\VBW._Isa)BW._MSeVBW._Q3j)B !W._TmnVBW._XMs)BW._\-wVBW.__g|)BW._cH&VBW._g(+)BW._jb/VBW._nB4)BW._q|8VBW._u\=)B !W._yX)BW.alx\VBW.apXa)BW.at8eVBW.awrj)B !W.a{RnVBW.b%2s)BW.b(lwVBW.b,L|)BW.b0-&VBW.b3g+)BW.b7G/VBW.b;'4)BW.b>a8VBW.bBA=)B !W.bE{AVBW.bI[F)BW.bM;JVBW.bPuO)BW.bTUSVBW.bX5X)BW.b[o\VBW.b_Oa)BW.bc/eVBW.bfij)B !W.bjInVBW.bn)s)BW.bqcwVBW.buC|)BW.bx~&VBW.b|^+)BW.c&>/VBW.c)x4)BW.c-X8VBW.c18=)B !W.c4rAVBW.c8RF)BW.c<2JVBW.c?lO)BW.cCLSVBW.cG,X)BW.cJf\VBW.cNFa)BW.cR&eVBW.cU`j)B !W.cY@nVBW.c\zs)BW.c`ZwVBW.cd:|)BW.cgu&VBW.ckU+)BW.co5/VBW.cro4)BW.cvO8VBW.cz/=)B !W.c}iAVBW.d'IF)BW.d+)JVBW.d.cO)BW.d2CSVBW.d5}X)BW.d9]\VBW.d==a)BW.d@weVBW.dDWj)B !W.dH7nVBW.dKqs)BW.dOQwVBW.dS1|)BW.dVl&VBW.dZL+)BW.d^,/VBW.daf4)BW.deF8VBW.di&=)B !W.dl`AVBW.dp@F)BW.dszJVBW.dwZO)BW.d{:SVBW.d~tX)BW.e(T\VBW.e,4a)BW.e/neVBW.e3Nj)B !W.e7.nVBW.e:hs)BW.e>HwVBW.eB(|)BW.eEc&VBW.eIC+)BW.eL}/VBW.eP]4)BW.eT=8VBW.eWw=)B !W.e[WAVBW.e_7F)BW.ebqJVBW.efQO)BW.ej1SVBW.emkX)BW.eqK\VBW.eu+a)BW.exeeVBW.e|Ej)B !W.f&%nVBW.f)_s)BW.f-?wVBW.f0y|)BW.f4Z&VBW.f8:+)BW.f;t/VBW.f?T4)BW.fC48VBW.fFn=)B !W.fJNAVBW.fN.F)BW.fQhJVBW.fUHO)BW.fY(SVBW.f\bX)BW.f`B\VBW.fc|a)BW.fg\eVBW.fk0\VBW.hAja)BW.hEJeVBW.hI*j)B !W.hLdnVBW.hPDs)BW.hS~wVBW.hW^|)BW.h[?&VBW.h^y+)BW.hbY/VBW.hf94)BW.his8VBW.hmS=)B !W.hq3AVBW.htmF)BW.hxMJVBW.h|-O)BW.i%gSVBW.i)GX)BW.i-'\VBW.i0aa)BW.i4AeVBW.i7{j)B !W.i;[nVBW.i?;s)BW.iBuwVBW.iFU|)BW.iJ6&VBW.iMp+)BW.iQP/VBW.iU04)BW.iXj8VBW.i\J=)B !W.i`*AVBW.icdF)BW.igDJVBW.ij~O)BW.in^SVBW.ir>X)BW.iux\VBW.iyXa)BW.i}8eVBW.j&rj)B !W.j*RnVBW.j.2s)BW.j1lwVBW.j5L|)BW.j9-&VBW.j/VBW.k2x4)BW.k6X8VBW.k:8=)B !W.k=rAVBW.kARF)BW.kE2JVBW.kHlO)BW.kLLSVBW.kP,X)BW.kSf\VBW.kWFa)BW.k[&eVBW.k^`j)B !W.kb@nVBW.kezs)BW.kiZwVBW.km:|)BW.kpu&VBW.ktU+)BW.kx5/VBW.k{o4)BW.l%O8VBW.l)/=)B !W.l,iAVBW.l0IF)BW.l4)JVBW.l7cO)BW.l;CSVBW.l>}X)BW.lB]\VBW.lF=a)BW.lIweVBW.lMWj)B !W.lQ7nVBW.lTqs)BW.lXQwVBW.l\1|)BW.l_l&VBW.lcL+)BW.lg,/VBW.ljf4)BW.lnF8VBW.lr&=)B !W.lu`AVBW.ly@F)BW.l|zJVBW.m&ZO)BW.m*:SVBW.m-tX)BW.m1T\VBW.m54a)BW.m8neVBW.me=)B !W.oBEAVBW.oF%F)BW.oI_JVBW.oM?O)BW.oPySVBW.oTYX)BW.oX9\VBW.o[sa)BW.o_SeVBW.oc3j)B !W.ofmnVBW.ojMs)BW.on-wVBW.oqg|)BW.ouH&VBW.oy(+)BW.o|b/VBW.p&B4)BW.p)|8VBW.p-\=)B !W.p1X)BW.q~x\VBW.r(Xa)BW.r,8eVBW.r/rj)B !W.r3RnVBW.r72s)BW.r:lwVBW.r>L|)BW.rB-&VBW.rEg+)BW.rIG/VBW.rM'4)BW.rPa8VBW.rTA=)B !W.rW{AVBW.r[[F)BW.r_;JVBW.rbuO)BW.rfUSVBW.rj5X)BW.rmo\VBW.rqOa)BW.ru/eVBW.rxij)B !W.r|InVBW.s&)s)BW.s)cwVBW.s-C|)BW.s0~&VBW.s4^+)BW.s8>/VBW.s;x4)BW.s?X8VBW.sC8=)B !W.sFrAVBW.sJRF)BW.sN2JVBW.sQlO)BW.sULSVBW.sY,X)BW.s\f\VBW.s`Fa)BW.sd&eVBW.sg`j)B !W.sk@nVBW.snzs)BW.srZwVBW.sv:|)BW.syu&VBW.s}U+)BW.t'5/VBW.t*o4)BW.t.O8VBW.t2/=)B !W.t5iAVBW.t9IF)BW.t=)JVBW.t@cO)BW.tDCSVBW.tG}X)BW.tK]\VBW.tO=a)BW.tRweVBW.tVWj)B !W.tZ7nVBW.t]qs)BW.taQwVBW.te1|)BW.thl&VBW.tlL+)BW.tp,/VBW.tsf4)BW.twF8VBW.t{&=)B !W.t~`AVBW.u(@F)BW.u+zJVBW.u/ZO)BW.u3:SVBW.u6tX)BW.u:T\VBW.u>4a)BW.uAneVBW.uENj)B !W.uI.nVBW.uLhs)BW.uPHwVBW.uT(|)BW.uWc&VBW.u[C+)BW.u^}/VBW.ub]4)BW.uf=8VBW.uiw=)B !W.umWAVBW.uq7F)BW.utqJVBW.uxQO)BW.u|1SVBW.v%kX)BW.v)K\VBW.v-+a)BW.v0eeVBW.v4Ej)B !W.v8%nVBW.v;_s)BW.v??wVBW.vBy|)BW.vFZ&VBW.vJ:+)BW.vMt/VBW.vQT4)BW.vU48VBW.vXn=)B !W.v\NAVBW.v`.F)BW.vchJVBW.vgHO)BW.vk(SVBW.vnbX)BW.vrB\VBW.vu|a)BW.vy\eVBW.v}X)BW.z-x\VBW.z1Xa)BW.z58eVBW.z8rj)B !W.z/VBW.{Dx4)BW.{HX8VBW.{L8=)B !W.{OrAVBW.{SRF)BW.{W2JVBW.{ZlO)BW.{^LSVBW.{b,X)BW.{ef\VBW.{iFa)BW.{m&eVBW.{p`j)B !W.{t@nVBW.{wzs)BW.{{ZwVBW.|%:|)BW.|(u&VBW.|,U+)BW.|05/VBW.|3o4)BW.|7O8VBW.|;/=)B !W.|>iAVBW.|BIF)BW.|F)JVBW.|IcO)BW.|MCSVBW.|P}X)BW.|T]\VBW.|X=a)BW.|[weVBW.|_Wj)B !W.|c7nVBW.|fqs)BW.|jQwVBW.|n1|)BW.|ql&VBW.|uL+)BW.|y,/VBW.||f4)BW.}&F8VBW.}*&=)B !W.}-`AVBW.}1@F)BW.}4zJVBW.}8ZO)BW.}<:SVBW.}?tX)BW.}CT\VBW.}G4a)BW.}JneVBW.}NNj)B !W.}R.nVBW.}Uhs)BW.}YHwVBW.}](|)BW.}`c&VBW.}dC+)BW.}g}/VBW.}k]4)BW.}o=8VBW.}rw=)B !W.}vWAVBW.}z7F)BW.}}qJVBW.~'QO)BW.~+1SVBW.~.kX)BW.~2K\VBW.~6+a)BW.~9eeVBW.~=Ej)B !W.~A%nVBW.~D_s)BW.~H?wVBW.~Ky|)BW.~OZ&VBW.~S:+)BW.~Vt/VBW.~ZT4)BW.~^48VBW.~an=)B !W.~eNAVBW.~i.F)BW.~lhJVBW.~pHO)BW.~t(SVBW.~wbX)BW.~{B\VBW.~~|a)BW0%(\eVBW0%,Q&VBW0%B1+)BW0%Ek/VBW0%IK4)BW0%M+8VBW0%Pe=)B !W0%TEAVBW0%X%F)BW0%[_JVBW0%_?O)BW0%bySVBW0%fYX)BW0%j9\VBW0%msa)BW0%qSeVBW0%u3j)B !W0%xmnVBW0%|Ms)BW0&&-wVBW0&)g|)BW0&-H&VBW0&1(+)BW0&4b/VBW0&8B4)BW0&;|8VBW0&?\=)B !W0&CX)BW0(6x\VBW0(:Xa)BW0(>8eVBW0(Arj)B !W0(ERnVBW0(I2s)BW0(LlwVBW0(PL|)BW0(T-&VBW0(Wg+)BW0([G/VBW0(_'4)BW0(ba8VBW0(fA=)B !W0(i{AVBW0(m[F)BW0(q;JVBW0(tuO)BW0(xUSVBW0(|5X)BW0)%o\VBW0))Oa)BW0)-/eVBW0)0ij)B !W0)4InVBW0)8)s)BW0);cwVBW0)?C|)BW0)B~&VBW0)F^+)BW0)J>/VBW0)Mx4)BW0)QX8VBW0)U8=)B !W0)XrAVBW0)\RF)BW0)`2JVBW0)clO)BW0)gLSVBW0)k,X)BW0)nf\VBW0)rFa)BW0)v&eVBW0)y`j)B !W0)}@nVBW0*&zs)BW0**ZwVBW0*.:|)BW0*1u&VBW0*5U+)BW0*95/VBW0*mF)B #% [ 2592] dat.2 !SCEEY54}SC?7Oag?SC@(~sFuSC?od4a\SCAF&'oDSCBR<3XmSCDF\15CSCF3LbcWSCH9Zq{ASCJF4es, !SCLQ[v[bSCNk+.-wSCPrs8w0SCS5H^'|SCU5EM4LSCWOwGUGSCYFO4JUSC[]8zf`SC]K>e)FSC_`(HIz !SCaJU_?FSCcb*_=hSCeM.MkSSCgiW{NaSCiV~^SeSCkyA}/eSCmj(9hNSCp8Mgl&SCr,Z'x;SCtZS9PW !SCvQ38OqSCy)A[RESCz{aMPlSC}WL[jM'tSE,gPyYGSE.cl*ZoSE1I0DcJ !SE3Fp.3~SE6/J'UoSE8.bpVVSE:t[wJYSE_RSEn_~<\qSEp|aMj@SEt>B&L[SEv]RXwuSEy}A/SuSE|DxnF0SG%hoKN1 !SG(2hkA0SG+Z^[f\SG.&p%o/SG1Rm;b7SG3{Gqq6SG7Qa55lSG9|vxe8SG=Wt0WMSG@,8*reSGCfRsT` !SGF>hm\uSGJ%?u>7SGL\22nDSGPIP+-FSGS+?NSySGVyf-%-SGY`aFx@SG]\CpYlSG`HJE{9SGdK9m^S !SGg<-efTSGkEf\93SGn;.B/iSGrKNlpoSGuE=h)vSGy\JHD>SG|ZaWMNSI&xdt-cSI){OSP;SI.FV]NU !SI1MtA({SI5z4^%zSI9,83;:SI=`%y3ASI@q&Z?&SIERgs}|SIHi,l}lSIMS=nXiSIPoOYwmSIUbtXQJ !SIY+jA?_SI^)KM:SSIaSj)^{SIf\H\BtSIj4bF2:SIoHp9@ESIs)J?E-SIxIT2s\SI|2ZvU7SK'^w,,+ !SK+PKZPKSK1/%BLwSK5(zzU_SK:n0-_JSK>piN]`SKDi(xu&SKHtiOHwSKNzn|=4SKS6/?^[SKYJj{`- !SK]jI^RvSKd4iu'/SKh_PnxhSKo:KcweSKspk.}?SKz]+RZ*SM%ELQxTSM,CcqlgSM18;6&@SM8Hdo:? !SM=Ht^[nSMDk?Yh`reSOE8;H:WSON~0Es0SOUx26gwSO`+c(_rSOg0nLb?SOq>k~PK !SOxA>sD)SQ)(5yNMSQ0Qm/fxSQ;kev=dSQCaKU-_SQO]?.(_SQWo`q)vSQdP\]X9LSSAcC<~*SSPY]V@~SS[3Tl*ESSk,>GqBSSv9xU&SUKaPDqZ !SUXc`|9xSUlT>8Y3SUzkSSvAuJKlSU/n^zVNSU:2vtrzSUDOsGJ(SUJCa'&(SUP|xA%fSUQW]w>' !SUPZ8\eeSUCe<49/SU8]i&}7SU'*)%MRSSl@rj0\SSM&L.u[SS+`1qtKSQ[,lzs8SQ/WG2kxSO\N~D6N !SO9`y5N-SMydG\h2SMjx{w%fSM\|~,JqSM[SS|hvSM](Fy]pSMbJQ9]/SMg=kGt|SMpQB_8uSMw9e)(c !SM~k'f.VSO&MK*|qSO&wEyHkSM{;wF[VSMspM5c2SMhabW^sSMbS}OJySM^A'-fdSM_{M?F@SM`m.]JQ !SMcyO&mnSMb2:*+qSM]HKPWISMRq>;C&SMIwa*naSMA)6KqFSM=];0NzSM;5l8uRSM<;`wn]SM:{rjMj !SM9foe1*SM3Uv];vSM,-0X-FSK{FWb9pSKrm_.PCSKi&7+A]SKaQyzo|SKX<2>tWSKP])9&(SKF_M=5R1SE\aBm:*SEXeu``vSEVD/78MSEXoVCUgSE]i4AraSEgbG{3USEs)kXMj !SG'?L5\aSG4`J3|qSGBZuQSaSGMlwe~JSGX9Us}|SG_fof{-SGgP@KW)SGlIgD[ASGo;=]7)SGm>(Sw0 !SGjF=>JqSGe,iSjXSG_@[2%)SGVAwAGCSGM7AJccSGBdYk3iSG9mQ>,+SG0kmlAqSG*Wn3>tSG%fF|~F !SE~w.SQNSG%ph>6[SG*K0sVbSG05AM).SG8e5jA8SG@IGMLCSGG;^r_bSGI7^i1.SGFK{`InSG;nF.Ck !SG,2'bdESEpj:ouoSEY5nuNmSE?1^HMZSE&*<+t;SCg6k:[ISCQEFGT|SC<_ecxTSC*c[sc:SAs,pz]h !SAc'z\fxSAR4U+r9SABEAB^CSA1n{%+uS?|I[w}[S?l9mIg&S?]X>E&4S?O{>zamS?FUePc2S???o){e !S?;'6WadS?7ETIlcS?6KKA%fS?6zTFZgS?;2UMwaS?Af2ZNmS?LV8G4XS?YSb4BLS?inP,O@S?{B'(V2 !SA5Ez?cNSAIqD~9DSA_zCaieSAuEe}fHSC0n>'T\SCC2fJ,7SCRizvF8SC]y9Mq6SCfjbNThSCkwN&Xh !SCnRC0t7SClOU-b;SCg]rZ?JSC_AHOySSCU~Vc0pSCJY/x8aSC>|+(DBSC1t`_tKSC%1X`bSSAqO|xv9 !SAdt>qivSAXWrPyKSANc\|.ZSAE|w)_FSA?rh46>SA:bC8ccSA7]b}22SA4jrXsqSA38s3IISA1+94nY !SA/F8\t?SA,N?[EISA)bo7TlSA%dvC;nS?|K5|-FS?yFZAtdS?xncAP;S?yeKzb7S?}_,D:wSA)+W^Yl !SA0qRK=TSA8_HeWzSAA%[J*5SAG]cf8GSANYVuLGSAM]HM@ZSAH=XohNSA?yz+,3SA3yl !S;fu|H]HS;h>/k-cS;ky^PO@S;p=5S@rS;uu~:pOS;{EyR}?S='mW(HkS=.0w.D6S=5P6Z5dS=hz@RES=;Zp/oLS=94GKQFS=6C9=L{S=3yw'dIS=0y06Z{S=.;-al{S=*sC{/Q !S='jn&MJS;~%NWQwS;zYc`CgS;vV@Gl*S;rj1MD^S;n)4hz.S;i-m{w4S;buRsjTS;\K~.X(S;Tw??\Y !S;MOAgFDS;EI@,J(S;>+C&wUS;6xq\MJS;1-%m}?S;+\jzxPS;'Ag?JiS9}3janYS9y}>=^kS9vdqd]d !S9t1zH[ES9qFvd`zS9oM&-nmS9mbbw^KS9m1|74HS9l|,9smS9n'If03S9oE(_gOS9qfVRqVS9t)K,ls !S9vuUSl6S9y2)_PlS9{UV?MZS9}/yuX0S9~ee4JyS;%Heg}'S;%yeeopS;%ESGyoS9~M4,LOS9|Ca-7f !S9y~FEO,S9vcpRneS9sNg02ZS9o[85=PS9l7@<,_S9h`>`l_S9e{COn}S9cEPLzZS9ahTV^2S9`EGyR- !S9`0t`5|S9`NRem%S9bMy@pCS9eAT[;bS9ibXu1;S9n5vdY_S9s'}]6:S9w'qaVbS9ze^-^[S9}(@]g_ !S9~`90T7S9~mu^x3S9~V]d(_S9}U/&uRS9|sykbhS9{{0nXDS9{apP*rS9{@,,22S9{[ErVjS9{dLG(& !S9|1I9yOS9{r24b'S9{Vw|5tS9zO3CXXS9yUTt|Q(gS9L~NxG_ !S9JX{TJuS9Go@4=4S9EPm>HJS9BoSkUkS9@U-BU&S9=mAv+PS9;>IOqJS988t4uNS95A^4xdS91rJ>V6 !S9.XBMtpS9*j/mf\S9'8E?LkS7}?_U6{S7ylGp2.S7v(pio+S7riPsYxS7o9yn6gS7l2adTlS7hqTgi~ !S7f,=ctOS7c;\33zS7a1YxIbS7_.0ploS7]qX`:KS7\dp:b?S7\ERVS7\X/&_^S7]'lZp& !S7^-t}9LS7_(rPFHS7`QO&Q !S7XV99e]S7W%{{vjS7V/y?}lS7U?=T0XS7U2{(psS7U+6zd^S7U[>(4yS7W/B+@%S7V0KYlN !S7UYO8dvS7TxPGfHS7TkcYk;S7TT>6HBS7Tcp@{=S7Ta*C?*S7U%sCtxS7U.TNXmS7UTsVAIS7UabAIj !S7V/Ify*S7V;v\M%S7VbC;;BS7Vm=HhBS7W6`i^sS7W;o>C3S7WT?P@AS7WG7kDFS7WFuX:gS7Vx'm+P !S7V[j.-wS7Ut9L*mS7UCv2:wS7TKb}22S7Sf;ZhBS7R_uZZ2S7QlR.tGS7PX9\5SS7OVL}hJS7N31\&0 !S7Lz{,qfS7KEosp7S7Iz5uF@S7H/x|oHS7FLMs`%S7DABXQoS7B@fDXPS7?qh_>WS7=S=+R^S7:gE{kp !S78-CAEeS75((bMbS721?]D%S7.s@K=TS7+nX|5OS7(M>w/(S7%CGzi-S5{{YA7VS5xv@AwUS5u^0e\m !S5rf*Y/eS5o]ZUuBS5lud\_:S5i}8-k3S5gM|2D^S5doGI]dS5bglA:GS5`m;|,3S5_^?LX}S5^e]>4uNS5_|cdKtS5`JxHCOS5a,,AMJS5aEZ`zJS5ak3s|DS5al{[VJ !S5a}_-5dS5ar9{|qS5a|C_J@S5ambtx7S5auI(i~S5acJjIfS5aee/AaS5aM+QcsS5aH9S^KS5a(zSvA !S5`x`.eIS5`U6Rq{S5`F|kk;S5_y=%s}S5_eT?5dS5_6Q1(GS5^sSlA(S5^9jQ`9S5]j41&ES5\{1_`5 !S5\?KU?sS5[=jeh2S5ZK:_niS5Y=rQzVS5XH2)17S5W?|&fTS5VT1WtCS5UWo&6gS5Tw/L[%S5T)>hS5Q<}f*QS5Pc,z9dS5Oq*mg&S5O8r=ywS5NA5}~cS5M[DqKTS5LZ^a6c !S5Kksm[=S5Jd<{&YS5IrbpRvS5Ho)u2rS5H.4[)rS5G:S4*1S5Fgpw@rS5F3Y`VjS5F&3kC{S5EnPI~R !S5F(5qLgS5F1Z8_^S5FS>*,;S5FYZ:S@S5Fkc~9hS5F\NgnqS5FWArhZS5F3~I?gS5Ez>^B@S5ELu.79 !S5E2%IQ2S5DZSlt+S5D?6g9HS5Cj^VkxS5CS2xL.S5C'7@&8S5BgpfUoS5B2-{A@S5AaY<&}S5@qo3im !S5@4,}@fS5?6OAFyS5>NO|@IS5=UL~6RS51CS5:nPeccS5:?7;tKS59T/f(* !S58|ObC{S585LAEeS57\~.>SS56ooYO@S56gpsS3tW+2=DS3sL\h-{ !S3rY2FFuS3qTTSt?S3pe2V4LS3oc5q(?S3nu=h4qS3msi+'dS3m*oLp*S3l&for~S3k4<&BtS3j,nYHo !S3i8&O9xS3h0iLT/S3g?m-5?S3f?aHs>7nS3Qdmgk[ !S3QM'8J}S3P~V8qNS3PhD+/mS3P>:i\qS3O}K?s`S3OL}S=8S3O*uwa !S3Ff)wCcS3F4Mmz*S3EqwR^.S3EEo,i9S3E+a_~WS3DY*B/DS3DB.-RS3A)<]U&S3@_tv_`OE=S3>Gl+IfS3=v`w)FS3=[F2+0S3=-y`97S3[S33/gXy.S326d=@%S31NqH3=S30VfhcoS3/oAX&uS3.ve?m5S3.3hEbxS3-9)lIV !S3,McBc[S3+PWzXPS3*bi(HkS3)cGY5GS3(saK8aS3's/'&MS3')2WGlS3&)xVamS3%=QA:GS1~C|Fq% !S1}^^50xS1|m7p_rS1|6Z&&yS1{NIy6{S1z{?%J1CS1gZ]yYlS1ffA0_{S1f(=e`qS1e5gB8< !S1dT5|N5S1ce7hwaS1c.m>9pS1bF}bC2S1ar~&a_ !S1^{~_u_S1^Iuy40S1^&AR~wS1]M;r>+S1]*(u[jS1\RdgR-S1\1y:eyS1[]Mz?kS1[?_m}dS1Zn2r[9 !S1ZS/*CCS1Z*-p`aS1Yk*NsTS1YCNTdIS1Y*qrmMS1X\:I@1S1X@tGx\S1WnH7tGS1WNWazBS1VwMTp2 !S1VS1o?2S1Ux/'C[S1UP^;%NS1TsMuZ{S1TK-+>lS1Snr~o7S1SJMMV)S1RvL2<1S1R]@ut+S1R;Ssie !S1R-^%JaS1Qn8p[IS1Qb[D'+S1QC;klsS1Q+iowqS1PX/C,KS1P25|`IS1ORYONYS1O&X=07S1NHD-e, !S1M|e{o+S1MMD]JuS1M1I1V{S1LdwYtWS1LO.rm)S1L+XFx@S1KpMBMBS1KL68;6S1K585lsS1Jh227b !S1JMB'J,S1I{hq*eS1I\=2KxS1I,R)rIS1Hcl()6S1H2v9MfS1Gl6^/b~)kxS1>)|F(.S1=Y7E+qS1 !S16V%QRrS15uvdRES15I|*`-S14jf(GWS14?T_*AS13a'Uk[S136UNbxS12XlZRrS12/+IW9S11R0)eq !S11)10e]S10Lv+bKS1/~R]4\S1/Hj5O@S1.zc=ZBS1.E28btS1-w*}>dS1-AEnoLS1,rnwn8S1,<:FKD !S1+lBMfOS1%{1(\]S1%Xf;CKS1%)9.)rS/~a*>wIS/~1w\W1S/}jU~:3S/}=?v\QS/|y6UjHS/|P'sZB !S/|5}]SIS/{j>y1?S/{RC|c_S/{,:8)FS/zjJ7U[S/z={{kpS/yteHD>S/y@n\SQS/xp~XIAS/x8x5&m !S/whWY>?S/w2|S/k3b}]tS/jmp3'HS/j?W9|d !S/ivOK1GS/iEwO=XS/h{E0UKS/hJ%BmfS/h%:\d-S/gNHhI-S/g+.ueQS/fW)}`AS/f7PJL[S/egQ[f7 !S/eKimBXS/d~{GR1S/ddsr53S/d=9`6FS/cyx184S/cMr&%fS/c+nb9LS/bUQ*tCS/b0V>+`S/aZ+s=X !S/a83Em)S/`fl9?{S/`JqHPKS/`%\c:WS/_i58JYS/_Gk\zFS/_2We@rS/^j@FU*S/^R}5<=S/^-zqGt !S/]mTn>pS/]ETNu{S/](ZfysS/\XbPeYS/\:>sw,S/[iGI''S/[JQ4t`S/ZypC5hS/Z\9<2BS/Z3z@K+ !S/YsAXKDS/YN;{@vS/Y6di([S/Xn@\mnS/XXI(WiS/X6A/L[S/Wya=;2S/WV?8MJS/W>((v1S/Vr}JEA !S/VY8.1{S/V32[AES/UrnLm9S/ULP&/(S/U1}JSuS/TeYIw8S/TK%ZkWS/S~SeY|S/Schq5_S/S<|HRN !S/R{e:?NS/RT7oiaS/R7q[2jS/Qhb[MRS/QIq@57S/Pw`'1kS/PUW/M%S/P&4Nz%S/O[3/_:S/O)UF]X !S/N]H%8(S/N+op.rS/M`N~NIS/M0/gQ>S/Lf/Z%RS/L7.+P7S/Kn)sJ0S/K?MK3%S/JvFZu>S/JGW08< !S/I~4JF0S/IO-||hS/I+Z/?_S/HVfFl{S/H3dOIAS/G_ShNiS/G=73?cS/FifI^.S/FG~{L;S/Etw{z% !S/ES>er=S/E&+S/Bn&~;jS/B<~*b/S/Ap>4Q&S/A=EA93 !S/@o@FQJS/@<)B|dS/?oHE_bS/??lbflS/>xBTjPS/>NULG3S/>2icc*S/=g|'rYS/=ONt4XS/=+,y`a !S//hVS/5/0Fl{S/4a5xqj !S/4DPry[S/3vz53iS/3ZSeY|S/331lJDS/2p`gQcS/2H{z4(S/2+nrn_:S/.Uc^P+S/.;sfwqS/-qvrb/S/-X~|;2S/-5%Omj !S/,u?I}dS/,P,DErS/,4u-ZVS/+h0>UGS/+KJWXmS/*}JUe0S/*_lm]@S/*73dQ{S/)s*C_rS/)J.FFP !S/)+k}.RS/(\kJP;S/(>VX=}S/'ok`=S-}\id`US-}4FYayS-|p[I,dS-|HL?-[S-|*}_17S-{]>T>C !S-{@LCG|S-zs[?EvS-zW|&[ZS-z2dE^sS-yrh_7=S-yO/{8IS-y6T[JlS-tF}Dmz !S-t0f[gKS-skWk2`~S-p/T3thS-obh(fhS-oFQ}G7S-nz`QV.S-n_sBODS-n;~%?BS-m}Cf]/S-m[Y%57 !S-mDigC.S-l~DG{)S-lgxt>?S-lFMghFS-l-W3J8S-kbqF4`S-kFKW_>S-jxAd)NS-jX{PjqS-j/):VV !S-ii^.IrS-iA;@zNS-h~8eopS-hX]81OS-h>HuEQS-gu?jKDS-g\`PBhS-g9iI:sS-fz.<>tS-fUT[Mv !S-f9pgDfS-em40IbS-eOSL[%S-e'JWXmS-dc3-4uS-d;5(NMS-cwK3|(S-cP4H]HS-c34i9\S-bf[~&e !S-bI|R''S-a}?WVjS-a`4/=\S-a8tegCS-`u1R?BS-`MG1)6S-`/IY,OS-_a}H-6S-_E'b}tS-^y1[mv !S-^]wIAiS-^9kLzZS-]z/|OHS-]W5y`aS-]=zqVNS-\tN]QFS-\YwLWES-\4kOS-Y8nLiYS-XyIx~gS-XW+)39S-X>Z61_S-Wv><&} !S-W].J@)S-W9det?S-Vy5o\eS-VTDtV6S-V8Hg]pS-UlAxdIS-UOIRq2S-U(aA}[S-Te@9,xS-T>D'9t !S-Sz{yiYS-ST?}rzS-S7\u.%S-Rl5nP`S-RQ,L@=S-R-EV7=R}}.,g6WR}y?OD?FR}vYAXdrR}rmWdU[ !R}p%VB[vR}l)vnav~R}aYZDE)R}]6ukHoR}Yo2eiiR}ULqYMbR}R4t'%9R}M{lQP' !R}Ju=@mvR}Fs~]~BR}C}9>88R}@,^/dRR}=7Ua6cR}9:`?I1R}6:RUWER}20[(fDR}.|wuNmR}*f{7Y` !R}'Ppz]hR{}9<[sXR{z'uOnYR{us98N]R{rlg|,|R{nj+AraR{koDETDR{gw9JfTR{e)tK}/R{a5h)NE !R{^C]>yoR{ZO,Q7AR{WZz_3]R{ScNX:}' !R{;?2?%RR{7-b,p.R{3xo^7jR{/mPW6kR{,he3nRyVLvTsH !RySGia}|RyO92~VRRyK|`?T+RyGdu9&MRyDRN]BlRy@Lg+XdRy=Th2\0Ry9mQK7)Ry7:a%6&Ry3p_:=( !Ry1U4]fLRy.=;%XLRy+yFsL2Ry(TnVtpRy%~O7U7Rw|DUrF4RwyWr8t?Rwuc(Q>7Rwreg=ZgRwngZHB< !Rwkg4(2.RwgjGSS,RwdnS8{5Rw`yAdB|Rw^-b;)RRwZF/{Y7RwWf%j-FRwT9I/MJRwQoIT]TRwNX`6Iz !RwLHSQUcRwIB>Vo|RwGA({Rw>hM8T@RwGRuoPY(]'Rukv?pvV !Rui>T<2BRued|~r)Ruc,B'48Ru_P?c8URu\lZF-kRuY-qCUgRuV=@z`5RuRIt7u6RuOJ^O4`RuKJBHo7 !RuHAQW2BRuD=DdVJRuA:QUTTRu=J2`&4Ru:eU_?FRu7>RY[rRu4~-LcwRu1y*KV^Ru/zd\:kRu-,DKbG !Ru++n>KRs|%5l8URsy3/](sRsu5be)FRsr&HW{9Rsmv\t%ZRsjq>^B@Rsg(B,Z_ !RsdF9.<-Rs`~:H%RRs^hE~\}Rs[h,iK'RsYh^7:ORsVkm@8MRsT\b0bGRsQD\c_%RsNn5OdNRsK2b,K` !RsH9ftT3RsD:rHDbRsA/Q9]/Rs=--pk[Rs:)0zAIRs64Sw[~Rs3Ajft7Rs/_{0QkRs-%JV^{Rs)Rj\h{ !Rs&{2kDjRq}QPUN)Rqzxh|[VRqwKXn\IRqtmIm8(Rqq9^rMNRqnSsTyORqjr*Y[MRqh)q3oPRqd?nl=H !RqaIhK6_Rq]Xt]a}RqZ]8dQVRqVhs?VvRqSlg)e(RqO|k=A]RqM/PVGtRqIK@([IRqFd}4uNRqC4\aRq4mHNWYRq1G^sR9Rq.o~,G7Rq+D|0uJRq(g^u_JRq%7PH\Y !Ro|V)M*bxRov@-}-cRorfL9&qRop(tDIRRolO]%VJRoim+D4LRof;zueuRoc\^s]3Ro`/kYl* !Ro]T{HDbRoZ,cjw,RoWU|A&0RoT15}O@RoQ\P<1wRoN7]c^7RoK`>NXHRoH7=Z[jRoEZi5m=RoB,>;-2 !Ro?J2A'hRo;pV0sHRo90.jFuRo5Sw&jXRo2l@DwRo&6]YsiRm|_XGnQ !Rmz%LVd^RmvS}WmNRmsz-b3iRmpU;/`)Rmn'b+QoRmjbf]3%Rmh9}3Rm_2:9G_ !Rm\_kWf3RmY3\:gWRk;q0iw4Rk8e_Kx[)Rk1/6rEiRk.)J=4hRi=60kjqRi9FRr/,Ri6K{AKHRi2l%D*eRi0-3a@%Ri,fA^8Y !Ri*AfXv=Ri':\;sZ>[ReH.6NEEReE`2gCwReBKxg[I !Re?~fO9/Re|Re/ui)IvRe,}oFp[Re*t3?PKRe((>5YK !Re%}x+JyRc}6s{%jRc{6]tPSRcxM2xW)RcvO]voxRcsh//WURcqkNoe]Rco)wJ;ZRcm,)W97RcjB5R4m !Rch@O9=yRceQ.O>GRccGBse3{]RcNz{sWv !RcL5/be4RcHbZ;[fRcF(&*}_RcBhOjT;Rc@DyqAIRc=D]`H[Rc;:W3naRc8RNs7-Rc6]0_RIRc4)55z: !Rc28PXySRc/[Zd^.Rc-c,.)NRc*{D>E5Rc(ut/93Rc&&8nJYRa}lT=3MRaziddvnRaxJc:V{Rau>Wpfh !Rarqd,0TRao_H@h^Ram3y7>/Raiy5@{aRagMes{zRad1N+SMRa;~>,*qRa9,6?ygRa6r`5i]Ra3u6rTDRa1]1{|(Ra.\J)f`Ra,BFcpoRa)Abeuw !Ra'*G+r]R_~/VxpWR_{z/V6sR_y.OiH6R_w(j=3qR_tA2?7fR_rE,3iIR_ofFx;vR_mqN.DZR_k=jZ,G !R_iKuc1;R_ft&9|@R_e(bUcwR_bPI_tpR_`]SW0dR_^(^jDNR_\1Tl8yR_YP_dZ*R_WR%Al[R_Ti+v+, !R_Rb=`|(R_Oqp1;%R_MdT%GpR_JoOQ4PR_H`T*ndER]o?aL2RR]l]oJT@R]jc)h=hR]h*KHkW !R]f.nxz>R]cL%_mVR]aJ1Zt+R]^`:%I|uR]DGeuvvR]ApkIZ*R]?~`r'HR]=NA52VR];Yof5pR]9%P4y. !R]7+i|A8R]4K[pTxR]2Kb@^SR]/eRuK|R]-`.{SR[v4GFH.R[t'om2jR[q7vTG`R[o){|A8R[l8fZf@R[j)RuVvR[g7ERpgR[e'Q,k`R[b5@-@9 !R[`%{uD>R[]5LnWUR[[(}j{UR[X'MBR[8`-,R1R[6rWsmjR[4JzU3A !R[2_po7rR[0:Y+r]R[.QM46>R[,-vwN9R[*EzA2bR['}/F_6R[&:{e*~RY}p~hLgRY|,VJKHRYy_Xn-& !RYwqD\c>RYuF/qgORYsR|18YRYp|BUvVRYo({4YxRYlK6:t/RYjIN_tKRYgbr7RYS\/(2RRYQWO%VnRYNy~_B\RYM)@f(sRYJYJDY? !RYHniAa.(}@ARY<68dF\RY9X}CeURY7U-sgcRY4l\P%5 !RY2_8OW-RY/pW'l.RY-`8z/}RY*q0Ny[RY(a|&3QRY%uW@U7RW}j4e1ORW{(hk'\RWx}Cr>tRWvCodRWqox2'+RWo|{PjqRWmVS/{~RWkm5oQkRWiOozAIRWgnLQ3=RWeWHNthRWcyUsUsRWacF;]D !RW`*=uRWSs]ERWFY4Yi9RWC|x0:cRWA}[dNeRW?H8%b3RW=LNJraRW:vfS2bRW9'X(]pRW6X|0F( !RW4ji;+0RW2H]\l6RW0_ZX>GRW.@T5*MRW,VyZDbRW*42<\MRW(DiJvARW%u=l5dRU}~g^xXRU{NM8M% !RUyQnX9/RUvw2PCWRUtx~ds}RUrFvVnDRUpND%y;RUm}fb]+RUl3Oj,3RUik[L(kRUh)h~~[RUeiX6[E !RUd-[u2NRUapN'1kRU`3wW?>RU]sj(2.RU\2X}(&RUYlvN=iK'RULmjhJeRUJsSC0+RUHCdrw}RUFHj.V%RUCs1e({RUAy,~_%RU?KLfz>RU=T\~k3RU;,'J(W !RU9;L|?6RU6srt88RU50I/n8RU2owJJ4RU12x=T*kZWARS<7742:RS9pMV0lRS8,~j@IRS5q=oK@RS48y[B3RS2.6h:SRS0YzuP'RS.X/18} !RS-0Jk}tRS+1^wp;RS)brPjqRS'`@Ke]RS&1{H=HRQ~)&Z?&RQ|Mj9LSRQz>6)CoRQx\tNj\RQvI%5j( !RQtf,[F8RQrSc4E=RQpt*Q*ERQnf4qr%RQm1S@MRRQk(w~nmRQiS:uIVRQgO6%k+RQe|dxsmRQcz*D5; !RQbLvY;*RQ`HB0WqRQ^r.2%)RQ\iiOWQRQ[4xRRERQY'L]ODRQWF]%5[RQU2DzY?RQSIJ.5[RQQ,Api~ !RQO:C.,dRQLnt?NmRQJuQ\)FRQHJMvF8RQFMj~B`RQC}'r1.RQB,-zd^RQ?hrX@nRQ>+MFY/RQ<%+Sq* !RQ:YWDtRQ7ZtMpkRQ5~?RQ(E|96_RQ&6z:DBRO}If):.RO{+v4wQROx+_vRO\iHgaPRO[:['5pROXr}BC[ROV\5y<9ROSStC.rROPZzM@5ROLyZp*% !ROI\3TG;ROEoBtPSROBeKRMs[m.x'RMr-Jl9hRMp1OQ-6 !RMn_QE)%RMleP;J@RMk:g}9'RMiAiGR1RMgqLS.9RMex`>hnRMdMq0V:RMbT.?fdRMa'?(XXRM_+1cYh !RM]UI&<%RM[VKKk?RMY}eeRbRMW|9M[ARMVG7-hBRMTD;yX4RMRh]0_2RMPfm~YhRMO3Jy9lRMM4x_~2 !RMK_4~,lRMIds|&uRMH9;BBHRMFC>Du:RMDuVfJ,RMC)83qvRMA^)P]+RM?mg_8,RM>Ishd9RM|RKh@:jwQRKfj59KdRKduzI`1 !RKcL\iw}RKa_:b7nRK`;ollRIg9Z[EIRIe[dfjPRId;vy[IRIbeZhxP !RIaMBGqfRI`%@SJ4RI^nINsyRI]Mn3F4RI\B]njXRI[&zHizRIYwZIz)RIXZj@jRIS9T-[jRIQod1HFRIP7wMQ6RINe-rmrRIM';]`iRIKQ8FqJRIIovNi%RIHEDxA4RIFlap:7 !RIEK.\3QRIC|ubM>RIBdik@ARIAF8pWiRI@59wL[RI>u{%[=RI=ddNeDRIg^_* !RI**RheMRI(vCgVzRI'kgWDzRI&fk7,?RI%`,(-_RG~[Y`{9RG}ON'~BRG|Dt2NiRG{/P>cVRGyvz=5O !RGxWg?NIRGw>6LC.RGuqO'-BRGtUJO.~RGs.]OzfRGqs](o`RGpTf[gKRGoKw4UsRGn7fVKxRGm<]:IZ !RGl38%6JRGkDl@KPRGjCG1Q>RGi\jMf`RGh[bPOdRGgu=pWERGfnv6k3RGf+Rt?wRGdwd&USRGd0Sr.= !RGbu(jlVRGb+3TdIRG`iyj@nRG_{I;:.RG^_(2\yRG]vAqcoRG\[VLnMRG[{7D2%RGZcS1NqRGZ3Ir^O !RGXybX\ERGXUCYo@RGWF*Sc>RGW.mWGGRGU~-r|LRGUu0rd1RGTngvo/RGTu5X\ERGSrMB>hRGT/B4)B !RGS.|NgkRGSV}1_rRGRVA9:cRGS5d(|8RGR2tRI9]U`@R #% [ 2592] dat.energy !VtPS-4P7VtPwUaP7VtQA~4P7VtQfLaP7VtR0u4P7VtRUCaP7VtRyl4P7VtSD:aP7VtShc4P7VtT31aP7 !VtTWZ4P7VtT|(aP7VtUFQ4P7VtUjyaP7VtV5H4P7VtVYpaP7VtV~?4P7VtWHgaP7VtWm64P7VtX7^aP7 !VtX\-4P7VtY&UaP7VtYJ~4P7VtYoLaP7VtZ9u4P7VtZ^CaP7Vt[(l4P7Vt[M:aP7Vt[qc4P7Vt\<1aP7 !Vt\`Z4P7Vt]+(aP7Vt]OQ4P7Vt]syaP7Vt^>H4P7Vt^bpaP7Vt_-?4P7Vt_QgaP7Vt_v64P7Vt`@^aP7 !Vt`e-4P7Vta/UaP7VtaS~4P7VtaxLaP7VtbBu4P7VtbgCaP7Vtc1l4P7VtcV:aP7Vtczc4P7VtdE1aP7 !VtdiZ4P7Vte4(aP7VteXQ4P7Vte|yaP7VtfGH4P7VtfkpaP7Vtg6?4P7VtgZgaP7Vth%64P7VthI^aP7 !Vthn-4P7Vti8UaP7Vti\~4P7Vtj'LaP7VtjKu4P7VtjpCaP7Vtk:l4P7Vtk_:aP7Vtl)c4P7VtlN1aP7 !VtlrZ4P7Vtm=(aP7VtmaQ4P7Vtn+yaP7VtnPH4P7VtntpaP7Vto??4P7VtocgaP7Vtp.64P7VtpR^aP7 !Vtpw-4P7VtqAUaP7Vtqe~4P7Vtr0LaP7VtrTu4P7VtryCaP7VtsCl4P7Vtsh:aP7Vtt2c4P7VttW1aP7 !Vtt{Z4P7VtuF(aP7VtujQ4P7Vtv4yaP7VtvYH4P7Vtv}paP7VtwH?4P7VtwlgaP7Vtx764P7Vtx[^aP7 !Vty&-4P7VtyJUaP7Vtyn~4P7Vtz9LaP7Vtz]u4P7Vt{(CaP7Vt{Ll4P7Vt{q:aP7Vt|;c4P7Vt|`1aP7 !Vt}*Z4P7Vt}O(aP7Vt}sQ4P7Vt~=yaP7Vt~bH4P7Vv%,paP7Vv%Q?4P7Vv%ugaP7Vv&@64P7Vv&d^aP7 !Vv'/-4P7Vv'SUaP7Vv'w~4P7Vv(BLaP7Vv(fu4P7Vv)1CaP7Vv)Ul4P7Vv)z:aP7Vv*Dc4P7Vv*i1aP7 !Vv+3Z4P7Vv+X(aP7Vv+|Q4P7Vv,FyaP7Vv,kH4P7Vv-5paP7Vv-Z?4P7Vv-~gaP7Vv.I64P7Vv.m^aP7 !Vv/8-4P7Vv/\UaP7Vv0&~4P7Vv0KLaP7Vv0ou4P7Vv1:CaP7Vv1^l4P7Vv2):aP7Vv2Mc4P7Vv2r1aP7 !Vv3paP7Vv5c?4P7Vv6-gaP7Vv6R64P7Vv6v^aP7 !Vv7A-4P7Vv7eUaP7Vv8/~4P7Vv8TLaP7Vv8xu4P7Vv9CCaP7Vv9gl4P7Vv:2:aP7Vv:Vc4P7Vv:{1aP7 !Vv;EZ4P7Vv;j(aP7Vv<4Q4P7Vv6gaP7Vv>[64P7Vv?%^aP7 !Vv?J-4P7Vv?nUaP7Vv@8~4P7Vv@]LaP7VvA'u4P7VvALCaP7VvApl4P7VvB;:aP7VvB_c4P7VvC*1aP7 !VvCNZ4P7VvCs(aP7VvD=Q4P7VvDayaP7VvE,H4P7VvEPpaP7VvEu?4P7VvF?gaP7VvFd64P7VvG.^aP7 !VvGS-4P7VvGwUaP7VvHA~4P7VvHfLaP7VvI0u4P7VvIUCaP7VvIyl4P7VvJD:aP7VvJhc4P7VvK31aP7 !VvKWZ4P7VvK|(aP7VvLFQ4P7VvLjyaP7VvM5H4P7VvMYpaP7VvM~?4P7VvNHgaP7VvNm64P7VvO7^aP7 !VvO\-4P7VvP&UaP7VvPJ~4P7VvPoLaP7VvQ9u4P7VvQ^CaP7VvR(l4P7VvRM:aP7VvRqc4P7VvS<1aP7 !VvS`Z4P7VvT+(aP7VvTOQ4P7VvTsyaP7VvU>H4P7VvUbpaP7VvV-?4P7VvVQgaP7VvVv64P7VvW@^aP7 !VvWe-4P7VvX/UaP7VvXS~4P7VvXxLaP7VvYBu4P7VvYgCaP7VvZ1l4P7VvZV:aP7VvZzc4P7Vv[E1aP7 !Vv[iZ4P7Vv\4(aP7Vv\XQ4P7Vv\|yaP7Vv]GH4P7Vv]kpaP7Vv^6?4P7Vv^ZgaP7Vv_%64P7Vv_I^aP7 !Vv_n-4P7Vv`8UaP7Vv`\~4P7Vva'LaP7VvaKu4P7VvapCaP7Vvb:l4P7Vvb_:aP7Vvc)c4P7VvcN1aP7 !VvcrZ4P7Vvd=(aP7VvdaQ4P7Vve+yaP7VvePH4P7VvetpaP7Vvf??4P7VvfcgaP7Vvg.64P7VvgR^aP7 !Vvgw-4P7VvhAUaP7Vvhe~4P7Vvi0LaP7VviTu4P7VviyCaP7VvjCl4P7Vvjh:aP7Vvk2c4P7VvkW1aP7 !Vvk{Z4P7VvlF(aP7VvljQ4P7Vvm4yaP7VvmYH4P7Vvm}paP7VvnH?4P7VvnlgaP7Vvo764P7Vvo[^aP7 !Vvp&-4P7VvpJUaP7Vvpn~4P7Vvq9LaP7Vvq]u4P7Vvr(CaP7VvrLl4P7Vvrq:aP7Vvs;c4P7Vvs`1aP7 !Vvt*Z4P7VvtO(aP7VvtsQ4P7Vvu=yaP7VvubH4P7Vvv,paP7VvvQ?4P7VvvugaP7Vvw@64P7Vvwd^aP7 !Vvx/-4P7VvxSUaP7Vvxw~4P7VvyBLaP7Vvyfu4P7Vvz1CaP7VvzUl4P7Vvzz:aP7Vv{Dc4P7Vv{i1aP7 !Vv|3Z4P7Vv|X(aP7Vv||Q4P7Vv}FyaP7Vv}kH4P7Vv~5paP7Vv~Z?4P7Vv~~gaP7Vx%I64P7Vx%m^aP7 !Vx&8-4P7Vx&\UaP7Vx'&~4P7Vx'KLaP7Vx'ou4P7Vx(:CaP7Vx(^l4P7Vx)):aP7Vx)Mc4P7Vx)r1aP7 !Vx*paP7Vx,c?4P7Vx--gaP7Vx-R64P7Vx-v^aP7 !Vx.A-4P7Vx.eUaP7Vx//~4P7Vx/TLaP7Vx/xu4P7Vx0CCaP7Vx0gl4P7Vx12:aP7Vx1Vc4P7Vx1{1aP7 !Vx2EZ4P7Vx2j(aP7Vx34Q4P7Vx3XyaP7Vx3}H4P7Vx4GpaP7Vx4l?4P7Vx56gaP7Vx5[64P7Vx6%^aP7 !Vx6J-4P7Vx6nUaP7Vx78~4P7Vx7]LaP7Vx8'u4P7Vx8LCaP7Vx8pl4P7Vx9;:aP7Vx9_c4P7Vx:*1aP7 !Vx:NZ4P7Vx:s(aP7Vx;=Q4P7Vx;ayaP7Vx<,H4P7Vx.^aP7 !Vx>S-4P7Vx>wUaP7Vx?A~4P7Vx?fLaP7Vx@0u4P7Vx@UCaP7Vx@yl4P7VxAD:aP7VxAhc4P7VxB31aP7 !VxBWZ4P7VxB|(aP7VxCFQ4P7VxCjyaP7VxD5H4P7VxDYpaP7VxD~?4P7VxEHgaP7VxEm64P7VxF7^aP7 !VxF\-4P7VxG&UaP7VxGJ~4P7VxGoLaP7VxH9u4P7VxH^CaP7VxI(l4P7VxIM:aP7VxIqc4P7VxJ<1aP7 !VxJ`Z4P7VxK+(aP7VxKOQ4P7VxKsyaP7VxL>H4P7VxLbpaP7VxM-?4P7VxMQgaP7VxMv64P7VxN@^aP7 !VxNe-4P7VxO/UaP7VxOS~4P7VxOxLaP7VxPBu4P7VxPgCaP7VxQ1l4P7VxQV:aP7VxQzc4P7VxRE1aP7 !VxRiZ4P7VxS4(aP7VxSXQ4P7VxS|yaP7VxTGH4P7VxTkpaP7VxU6?4P7VxUZgaP7VxV%64P7VxVI^aP7 !VxVn-4P7VxW8UaP7VxW\~4P7VxX'LaP7VxXKu4P7VxXpCaP7VxY:l4P7VxY_:aP7VxZ)c4P7VxZN1aP7 !VxZrZ4P7Vx[=(aP7Vx[aQ4P7Vx\+yaP7Vx\PH4P7Vx\tpaP7Vx]??4P7Vx]cgaP7Vx^.64P7Vx^R^aP7 !Vx^w-4P7Vx_AUaP7Vx_e~4P7Vx`0LaP7Vx`Tu4P7Vx`yCaP7VxaCl4P7Vxah:aP7Vxb2c4P7VxbW1aP7 !Vxb{Z4P7VxcF(aP7VxcjQ4P7Vxd4yaP7VxdYH4P7Vxd}paP7VxeH?4P7VxelgaP7Vxf764P7Vxf[^aP7 !Vxg&-4P7VxgJUaP7Vxgn~4P7Vxh9LaP7Vxh]u4P7Vxi(CaP7VxiLl4P7Vxiq:aP7Vxj;c4P7Vxj`1aP7 !Vxk*Z4P7VxkO(aP7VxksQ4P7Vxl=yaP7VxlbH4P7Vxm,paP7VxmQ?4P7VxmugaP7Vxn@64P7Vxnd^aP7 !Vxo/-4P7VxoSUaP7Vxow~4P7VxpBLaP7Vxpfu4P7Vxq1CaP7VxqUl4P7Vxqz:aP7VxrDc4P7Vxri1aP7 !Vxs3Z4P7VxsX(aP7Vxs|Q4P7VxtFyaP7VxtkH4P7Vxu5paP7VxuZ?4P7Vxu~gaP7VxvI64P7Vxvm^aP7 !Vxw8-4P7Vxw\UaP7Vxx&~4P7VxxKLaP7Vxxou4P7Vxy:CaP7Vxy^l4P7Vxz):aP7VxzMc4P7Vxzr1aP7 !Vx{paP7Vx}c?4P7Vx~-gaP7Vx~R64P7Vx~v^aP7 !Vz%A-4P7Vz%eUaP7Vz&/~4P7Vz&TLaP7Vz&xu4P7Vz'CCaP7Vz'gl4P7Vz(2:aP7Vz(Vc4P7Vz({1aP7 !Vz)EZ4P7Vz)j(aP7Vz*4Q4P7Vz*XyaP7Vz*}H4P7Vz+GpaP7Vz+l?4P7Vz,6gaP7Vz,[64P7Vz-%^aP7 !Vz-J-4P7Vz-nUaP7Vz.8~4P7Vz.]LaP7Vz/'u4P7Vz/LCaP7Vz/pl4P7Vz0;:aP7Vz0_c4P7Vz1*1aP7 !Vz1NZ4P7Vz1s(aP7Vz2=Q4P7Vz2ayaP7Vz3,H4P7Vz3PpaP7Vz3u?4P7Vz4?gaP7Vz4d64P7Vz5.^aP7 !Vz5S-4P7Vz5wUaP7Vz6A~4P7Vz6fLaP7Vz70u4P7Vz7UCaP7Vz7yl4P7Vz8D:aP7Vz8hc4P7Vz931aP7 !Vz9WZ4P7Vz9|(aP7Vz:FQ4P7Vz:jyaP7Vz;5H4P7Vz;YpaP7Vz;~?4P7Vz&UaP7Vz>J~4P7Vz>oLaP7Vz?9u4P7Vz?^CaP7Vz@(l4P7Vz@M:aP7Vz@qc4P7VzA<1aP7 !VzA`Z4P7VzB+(aP7VzBOQ4P7VzBsyaP7VzC>H4P7VzCbpaP7VzD-?4P7VzDQgaP7VzDv64P7VzE@^aP7 !VzEe-4P7VzF/UaP7VzFS~4P7VzFxLaP7VzGBu4P7VzGgCaP7VzH1l4P7VzHV:aP7VzHzc4P7VzIE1aP7 !VzIiZ4P7VzJ4(aP7VzJXQ4P7VzJ|yaP7VzKGH4P7VzKkpaP7VzL6?4P7VzLZgaP7VzM%64P7VzMI^aP7 !VzMn-4P7VzN8UaP7VzN\~4P7VzO'LaP7VzOKu4P7VzOpCaP7VzP:l4P7VzP_:aP7VzQ)c4P7VzQN1aP7 !VzQrZ4P7VzR=(aP7VzRaQ4P7VzS+yaP7VzSPH4P7VzStpaP7VzT??4P7VzTcgaP7VzU.64P7VzUR^aP7 !VzUw-4P7VzVAUaP7VzVe~4P7VzW0LaP7VzWTu4P7VzWyCaP7VzXCl4P7VzXh:aP7VzY2c4P7VzYW1aP7 !VzY{Z4P7VzZF(aP7VzZjQ4P7Vz[4yaP7Vz[YH4P7Vz[}paP7Vz\H?4P7Vz\lgaP7Vz]764P7Vz][^aP7 !Vz^&-4P7Vz^JUaP7Vz^n~4P7Vz_9LaP7Vz_]u4P7Vz`(CaP7Vz`Ll4P7Vz`q:aP7Vza;c4P7Vza`1aP7 !Vzb*Z4P7VzbO(aP7VzbsQ4P7Vzc=yaP7VzcbH4P7Vzd,paP7VzdQ?4P7VzdugaP7Vze@64P7Vzed^aP7 !Vzf/-4P7VzfSUaP7Vzfw~4P7VzgBLaP7Vzgfu4P7Vzh1CaP7VzhUl4P7Vzhz:aP7VziDc4P7Vzii1aP7 !Vzj3Z4P7VzjX(aP7Vzj|Q4P7VzkFyaP7VzkkH4P7Vzl5paP7VzlZ?4P7Vzl~gaP7VzmI64P7Vzmm^aP7 !Vzn8-4P7Vzn\UaP7Vzo&~4P7VzoKLaP7Vzoou4P7Vzp:CaP7Vzp^l4P7Vzq):aP7VzqMc4P7Vzqr1aP7 !VzrpaP7Vztc?4P7Vzu-gaP7VzuR64P7Vzuv^aP7 !VzvA-4P7VzveUaP7Vzw/~4P7VzwTLaP7Vzwxu4P7VzxCCaP7Vzxgl4P7Vzy2:aP7VzyVc4P7Vzy{1aP7 !VzzEZ4P7Vzzj(aP7Vz{4Q4P7Vz{XyaP7Vz{}H4P7Vz|GpaP7Vz|l?4P7Vz}6gaP7Vz}[64P7Vz~%^aP7 !Vz~J-4P7Vz~nUaP7V|%8~4P7V|%]LaP7V|&'u4P7V|&LCaP7V|&pl4P7V|';:aP7V|'_c4P7V|(*1aP7 !V|(NZ4P7V|(s(aP7V|)=Q4P7V|)ayaP7V|*,H4P7V|*PpaP7V|*u?4P7V|+?gaP7V|+d64P7V|,.^aP7 !V|,S-4P7V|,wUaP7V|-A~4P7V|-fLaP7V|.0u4P7V|.UCaP7V|.yl4P7V|/D:aP7V|/hc4P7V|031aP7 !V|0WZ4P7V|0|(aP7V|1FQ4P7V|1jyaP7V|25H4P7V|2YpaP7V|2~?4P7V|3HgaP7V|3m64P7V|47^aP7 !V|4\-4P7V|5&UaP7V|5J~4P7V|5oLaP7V|69u4P7V|6^CaP7V|7(l4P7V|7M:aP7V|7qc4P7V|8<1aP7 !V|8`Z4P7V|9+(aP7V|9OQ4P7V|9syaP7V|:>H4P7V|:bpaP7V|;-?4P7V|;QgaP7V|;v64P7V|<@^aP7 !V|Bu4P7V|>gCaP7V|?1l4P7V|?V:aP7V|?zc4P7V|@E1aP7 !V|@iZ4P7V|A4(aP7V|AXQ4P7V|A|yaP7V|BGH4P7V|BkpaP7V|C6?4P7V|CZgaP7V|D%64P7V|DI^aP7 !V|Dn-4P7V|E8UaP7V|E\~4P7V|F'LaP7V|FKu4P7V|FpCaP7V|G:l4P7V|G_:aP7V|H)c4P7V|HN1aP7 !V|HrZ4P7V|I=(aP7V|IaQ4P7V|J+yaP7V|JPH4P7V|JtpaP7V|K??4P7V|KcgaP7V|L.64P7V|LR^aP7 !V|Lw-4P7V|MAUaP7V|Me~4P7V|N0LaP7V|NTu4P7V|NyCaP7V|OCl4P7V|Oh:aP7V|P2c4P7V|PW1aP7 !V|P{Z4P7V|QF(aP7V|QjQ4P7V|R4yaP7V|RYH4P7V|R}paP7V|SH?4P7V|SlgaP7V|T764P7V|T[^aP7 !V|U&-4P7V|UJUaP7V|Un~4P7V|V9LaP7V|V]u4P7V|W(CaP7V|WLl4P7V|Wq:aP7V|X;c4P7V|X`1aP7 !V|Y*Z4P7V|YO(aP7V|YsQ4P7V|Z=yaP7V|ZbH4P7V|[,paP7V|[Q?4P7V|[ugaP7V|\@64P7V|\d^aP7 !V|]/-4P7V|]SUaP7V|]w~4P7V|^BLaP7V|^fu4P7V|_1CaP7V|_Ul4P7V|_z:aP7V|`Dc4P7V|`i1aP7 !V|a3Z4P7V|aX(aP7V|a|Q4P7V|bFyaP7V|bkH4P7V|c5paP7V|cZ?4P7V|c~gaP7V|dI64P7V|dm^aP7 !V|e8-4P7V|e\UaP7V|f&~4P7V|fKLaP7V|fou4P7V|g:CaP7V|g^l4P7V|h):aP7V|hMc4P7V|hr1aP7 !V|ipaP7V|kc?4P7V|l-gaP7V|lR64P7V|lv^aP7 !V|mA-4P7V|meUaP7V|n/~4P7V|nTLaP7V|nxu4P7V|oCCaP7V|ogl4P7V|p2:aP7V|pVc4P7V|p{1aP7 !V|qEZ4P7V|qj(aP7V|r4Q4P7V|rXyaP7V|r}H4P7V|sGpaP7V|sl?4P7V|t6gaP7V|t[64P7V|u%^aP7 !V|uJ-4P7V|unUaP7V|v8~4P7V|v]LaP7V|w'u4P7V|wLCaP7V|wpl4P7V|x;:aP7V|x_c4P7V|y*1aP7 !V|yNZ4P7V|ys(aP7V|z=Q4P7V|zayaP7V|{,H4P7V|{PpaP7V|{u?4P7V||?gaP7V||d64P7V|}.^aP7 !V|}S-4P7V|}wUaP7V|~A~4P7V|~fLaP7V~%0u4P7V~%UCaP7V~%yl4P7V~&D:aP7V~&hc4P7V~'31aP7 !V~'WZ4P7V~'|(aP7V~(FQ4P7V~(jyaP7V~)5H4P7V~)YpaP7V~)~?4P7V~*HgaP7V~*m64P7V~+7^aP7 !V~+\-4P7V~,&UaP7V~,J~4P7V~,oLaP7V~-9u4P7V~-^CaP7V~.(l4P7V~.M:aP7V~.qc4P7V~/<1aP7 !V~/`Z4P7V~0+(aP7V~0OQ4P7V~0syaP7V~1>H4P7V~1bpaP7V~2-?4P7V~2QgaP7V~2v64P7V~3@^aP7 !V~3e-4P7V~4/UaP7V~4S~4P7V~4xLaP7V~5Bu4P7V~5gCaP7V~61l4P7V~6V:aP7V~6zc4P7V~7E1aP7 !V~7iZ4P7V~84(aP7V~8XQ4P7V~8|yaP7V~9GH4P7V~9kpaP7V~:6?4P7V~:ZgaP7V~;%64P7V~;I^aP7 !V~;n-4P7V~<8UaP7V~<\~4P7V~='LaP7V~=Ku4P7V~=pCaP7V~>:l4P7V~>_:aP7V~?)c4P7V~?N1aP7 !V~?rZ4P7V~@=(aP7V~@aQ4P7V~A+yaP7V~APH4P7V~AtpaP7V~B??4P7V~BcgaP7V~C.64P7V~CR^aP7 !V~Cw-4P7V~DAUaP7V~De~4P7V~E0LaP7V~ETu4P7V~EyCaP7V~FCl4P7V~Fh:aP7V~G2c4P7V~GW1aP7 !V~G{Z4P7V~HF(aP7V~HjQ4P7V~I4yaP7V~IYH4P7V~I}paP7V~JH?4P7V~JlgaP7V~K764P7V~K[^aP7 !V~L&-4P7V~LJUaP7V~Ln~4P7V~M9LaP7V~M]u4P7V~N(CaP7V~NLl4P7V~Nq:aP7V~O;c4P7V~O`1aP7 !V~P*Z4P7V~PO(aP7V~PsQ4P7V~Q=yaP7V~QbH4P7V~R,paP7V~RQ?4P7V~RugaP7V~S@64P7V~Sd^aP7 !V~T/-4P7V~TSUaP7V~Tw~4P7V~UBLaP7V~Ufu4P7V~V1CaP7V~VUl4P7V~Vz:aP7V~WDc4P7V~Wi1aP7 !V~X3Z4P7V~XX(aP7V~X|Q4P7V~YFyaP7V~YkH4P7V~Z5paP7V~ZZ?4P7V~Z~gaP7V~[I64P7V~[m^aP7 !V~\8-4P7V~\\UaP7V~]&~4P7V~]KLaP7V~]ou4P7V~^:CaP7V~^^l4P7V~_):aP7V~_Mc4P7V~_r1aP7 !V~`paP7V~bc?4P7V~c-gaP7V~cR64P7V~cv^aP7 !V~dA-4P7V~deUaP7V~e/~4P7V~eTLaP7V~exu4P7V~fCCaP7V~fgl4P7V~g2:aP7V~gVc4P7V~g{1aP7 !V~hEZ4P7V~hj(aP7V~i4Q4P7V~iXyaP7V~i}H4P7V~jGpaP7V~jl?4P7V~k6gaP7V~k[64P7V~l%^aP7 !V~lJ-4P7V~lnUaP7V~m8~4P7V~m]LaP7V~n'u4P7V~nLCaP7V~npl4P7V~o;:aP7V~o_c4P7V~p*1aP7 !V~pNZ4P7V~ps(aP7V~q=Q4P7V~qayaP7V~r,H4P7V~rPpaP7V~ru?4P7V~s?gaP7V~sd64P7V~t.^aP7 !V~tS-4P7V~twUaP7V~uA~4P7V~ufLaP7V~v0u4P7V~vUCaP7V~vyl4P7V~wD:aP7V~whc4P7V~x31aP7 !V~xWZ4P7V~x|(aP7V~yFQ4P7V~yjyaP7V~z5H4P7V~zYpaP7V~z~?4P7V~{HgaP7V~{m64P7V~|7^aP7 !V~|\-4P7V~}&UaP7V~}J~4P7V~}oLaP7V~~9u4P7V~~^CaP7W.R%G/VBW.R)'4)BW.R,a8VBW.R0A=)B !W.R3{AVBW.R7[F)BW.R;;JVBW.R>uO)BW.RBUSVBW.RF5X)BW.RIo\VBW.RMOa)BW.RQ/eVBW.RTij)B !W.RXInVBW.R\)s)BW.R_cwVBW.RcC|)BW.Rf~&VBW.Rj^+)BW.Rn>/VBW.Rqx4)BW.RuX8VBW.Ry8=)B !W.R|rAVBW.S&RF)BW.S*2JVBW.S-lO)BW.S1LSVBW.S5,X)BW.S8f\VBW.S]4)BW.UB=8VBW.UEw=)B !W.UIWAVBW.UM7F)BW.UPqJVBW.UTQO)BW.UX1SVBW.U[kX)BW.U_K\VBW.Uc+a)BW.UfeeVBW.UjEj)B !W.Un%nVBW.Uq_s)BW.Uu?wVBW.Uxy|)BW.U|Z&VBW.V&:+)BW.V)t/VBW.V-T4)BW.V148VBW.V4n=)B !W.V8NAVBW.V<.F)BW.V?hJVBW.VCHO)BW.VG(SVBW.VJbX)BW.VNB\VBW.VQ|a)BW.VU\eVBW.VYDs)BW.XA~wVBW.XE^|)BW.XI?&VBW.XLy+)BW.XPY/VBW.XT94)BW.XWs8VBW.X[S=)B !W.X_3AVBW.XbmF)BW.XfMJVBW.Xj-O)BW.XmgSVBW.XqGX)BW.Xu'\VBW.Xxaa)BW.X|AeVBW.Y%{j)B !W.Y)[nVBW.Y-;s)BW.Y0uwVBW.Y4U|)BW.Y86&VBW.Y;p+)BW.Y?P/VBW.YC04)BW.YFj8VBW.YJJ=)B !W.YN*AVBW.YQdF)BW.YUDJVBW.YX~O)BW.Y\^SVBW.Y`>X)BW.Ycx\VBW.YgXa)BW.Yk8eVBW.Ynrj)B !W.YrRnVBW.Yv2s)BW.YylwVBW.Y}L|)BW.Z'-&VBW.Z*g+)BW.Z.G/VBW.Z2'4)BW.Z5a8VBW.Z9A=)B !W.Z<{AVBW.Z@[F)BW.ZD;JVBW.ZGuO)BW.ZKUSVBW.ZO5X)BW.ZRo\VBW.ZVOa)BW.ZZ/eVBW.Z]ij)B !W.ZaInVBW.Ze)s)BW.ZhcwVBW.ZlC|)BW.Zo~&VBW.Zs^+)BW.Zw>/VBW.Zzx4)BW.Z~X8VBW.[(8=)B !W.[+rAVBW.[/RF)BW.[32JVBW.[6lO)BW.[:LSVBW.[>,X)BW.[Af\VBW.[EFa)BW.[I&eVBW.[L`j)B !W.[P@nVBW.[Szs)BW.[WZwVBW.[[:|)BW.[^u&VBW.[bU+)BW.[f5/VBW.[io4)BW.[mO8VBW.[q/=)B !W.[tiAVBW.[xIF)BW.[|)JVBW.\%cO)BW.\)CSVBW.\,}X)BW.\0]\VBW.\4=a)BW.\7weVBW.\;Wj)B !W.\?7nVBW.\Bqs)BW.\FQwVBW.\J1|)BW.\Ml&VBW.\QL+)BW.\U,/VBW.\Xf4)BW.\\F8VBW.\`&=)B !W.\c`AVBW.\g@F)BW.\jzJVBW.\nZO)BW.\r:SVBW.\utX)BW.\yT\VBW.\}4a)BW.]&neVBW.]*Nj)B !W.]..nVBW.]1hs)BW.]5HwVBW.]9(|)BW.]ySVBW._BYX)BW._F9\VBW._Isa)BW._MSeVBW._Q3j)B !W._TmnVBW._XMs)BW._\-wVBW.__g|)BW._cH&VBW._g(+)BW._jb/VBW._nB4)BW._q|8VBW._u\=)B !W._yX)BW.alx\VBW.apXa)BW.at8eVBW.awrj)B !W.a{RnVBW.b%2s)BW.b(lwVBW.b,L|)BW.b0-&VBW.b3g+)BW.b7G/VBW.b;'4)BW.b>a8VBW.bBA=)B !W.bE{AVBW.bI[F)BW.bM;JVBW.bPuO)BW.bTUSVBW.bX5X)BW.b[o\VBW.b_Oa)BW.bc/eVBW.bfij)B !W.bjInVBW.bn)s)BW.bqcwVBW.buC|)BW.bx~&VBW.b|^+)BW.c&>/VBW.c)x4)BW.c-X8VBW.c18=)B !W.c4rAVBW.c8RF)BW.c<2JVBW.c?lO)BW.cCLSVBW.cG,X)BW.cJf\VBW.cNFa)BW.cR&eVBW.cU`j)B !W.cY@nVBW.c\zs)BW.c`ZwVBW.cd:|)BW.cgu&VBW.ckU+)BW.co5/VBW.cro4)BW.cvO8VBW.cz/=)B !W.c}iAVBW.d'IF)BW.d+)JVBW.d.cO)BW.d2CSVBW.d5}X)BW.d9]\VBW.d==a)BW.d@weVBW.dDWj)B !W.dH7nVBW.dKqs)BW.dOQwVBW.dS1|)BW.dVl&VBW.dZL+)BW.d^,/VBW.daf4)BW.deF8VBW.di&=)B !W.dl`AVBW.dp@F)BW.dszJVBW.dwZO)BW.d{:SVBW.d~tX)BW.e(T\VBW.e,4a)BW.e/neVBW.e3Nj)B !W.e7.nVBW.e:hs)BW.e>HwVBW.eB(|)BW.eEc&VBW.eIC+)BW.eL}/VBW.eP]4)BW.eT=8VBW.eWw=)B !W.e[WAVBW.e_7F)BW.ebqJVBW.efQO)BW.ej1SVBW.emkX)BW.eqK\VBW.eu+a)BW.exeeVBW.e|Ej)B !W.f&%nVBW.f)_s)BW.f-?wVBW.f0y|)BW.f4Z&VBW.f8:+)BW.f;t/VBW.f?T4)BW.fC48VBW.fFn=)B !W.fJNAVBW.fN.F)BW.fQhJVBW.fUHO)BW.fY(SVBW.f\bX)BW.f`B\VBW.fc|a)BW.fg\eVBW.fk0\VBW.hAja)BW.hEJeVBW.hI*j)B !W.hLdnVBW.hPDs)BW.hS~wVBW.hW^|)BW.h[?&VBW.h^y+)BW.hbY/VBW.hf94)BW.his8VBW.hmS=)B !W.hq3AVBW.htmF)BW.hxMJVBW.h|-O)BW.i%gSVBW.i)GX)BW.i-'\VBW.i0aa)BW.i4AeVBW.i7{j)B !W.i;[nVBW.i?;s)BW.iBuwVBW.iFU|)BW.iJ6&VBW.iMp+)BW.iQP/VBW.iU04)BW.iXj8VBW.i\J=)B !W.i`*AVBW.icdF)BW.igDJVBW.ij~O)BW.in^SVBW.ir>X)BW.iux\VBW.iyXa)BW.i}8eVBW.j&rj)B !W.j*RnVBW.j.2s)BW.j1lwVBW.j5L|)BW.j9-&VBW.j/VBW.k2x4)BW.k6X8VBW.k:8=)B !W.k=rAVBW.kARF)BW.kE2JVBW.kHlO)BW.kLLSVBW.kP,X)BW.kSf\VBW.kWFa)BW.k[&eVBW.k^`j)B !W.kb@nVBW.kezs)BW.kiZwVBW.km:|)BW.kpu&VBW.ktU+)BW.kx5/VBW.k{o4)BW.l%O8VBW.l)/=)B !W.l,iAVBW.l0IF)BW.l4)JVBW.l7cO)BW.l;CSVBW.l>}X)BW.lB]\VBW.lF=a)BW.lIweVBW.lMWj)B !W.lQ7nVBW.lTqs)BW.lXQwVBW.l\1|)BW.l_l&VBW.lcL+)BW.lg,/VBW.ljf4)BW.lnF8VBW.lr&=)B !W.lu`AVBW.ly@F)BW.l|zJVBW.m&ZO)BW.m*:SVBW.m-tX)BW.m1T\VBW.m54a)BW.m8neVBW.me=)B !W.oBEAVBW.oF%F)BW.oI_JVBW.oM?O)BW.oPySVBW.oTYX)BW.oX9\VBW.o[sa)BW.o_SeVBW.oc3j)B !W.ofmnVBW.ojMs)BW.on-wVBW.oqg|)BW.ouH&VBW.oy(+)BW.o|b/VBW.p&B4)BW.p)|8VBW.p-\=)B !W.p1X)BW.q~x\VBW.r(Xa)BW.r,8eVBW.r/rj)B !W.r3RnVBW.r72s)BW.r:lwVBW.r>L|)BW.rB-&VBW.rEg+)BW.rIG/VBW.rM'4)BW.rPa8VBW.rTA=)B !W.rW{AVBW.r[[F)BW.r_;JVBW.rbuO)BW.rfUSVBW.rj5X)BW.rmo\VBW.rqOa)BW.ru/eVBW.rxij)B !W.r|InVBW.s&)s)BW.s)cwVBW.s-C|)BW.s0~&VBW.s4^+)BW.s8>/VBW.s;x4)BW.s?X8VBW.sC8=)B !W.sFrAVBW.sJRF)BW.sN2JVBW.sQlO)BW.sULSVBW.sY,X)BW.s\f\VBW.s`Fa)BW.sd&eVBW.sg`j)B !W.sk@nVBW.snzs)BW.srZwVBW.sv:|)BW.syu&VBW.s}U+)BW.t'5/VBW.t*o4)BW.t.O8VBW.t2/=)B !W.t5iAVBW.t9IF)BW.t=)JVBW.t@cO)BW.tDCSVBW.tG}X)BW.tK]\VBW.tO=a)BW.tRweVBW.tVWj)B !W.tZ7nVBW.t]qs)BW.taQwVBW.te1|)BW.thl&VBW.tlL+)BW.tp,/VBW.tsf4)BW.twF8VBW.t{&=)B !W.t~`AVBW.u(@F)BW.u+zJVBW.u/ZO)BW.u3:SVBW.u6tX)BW.u:T\VBW.u>4a)BW.uAneVBW.uENj)B !W.uI.nVBW.uLhs)BW.uPHwVBW.uT(|)BW.uWc&VBW.u[C+)BW.u^}/VBW.ub]4)BW.uf=8VBW.uiw=)B !W.umWAVBW.uq7F)BW.utqJVBW.uxQO)BW.u|1SVBW.v%kX)BW.v)K\VBW.v-+a)BW.v0eeVBW.v4Ej)B !W.v8%nVBW.v;_s)BW.v??wVBW.vBy|)BW.vFZ&VBW.vJ:+)BW.vMt/VBW.vQT4)BW.vU48VBW.vXn=)B !W.v\NAVBW.v`.F)BW.vchJVBW.vgHO)BW.vk(SVBW.vnbX)BW.vrB\VBW.vu|a)BW.vy\eVBW.v}X)BW.z-x\VBW.z1Xa)BW.z58eVBW.z8rj)B !W.z/VBW.{Dx4)BW.{HX8VBW.{L8=)B !W.{OrAVBW.{SRF)BW.{W2JVBW.{ZlO)BW.{^LSVBW.{b,X)BW.{ef\VBW.{iFa)BW.{m&eVBW.{p`j)B !W.{t@nVBW.{wzs)BW.{{ZwVBW.|%:|)BW.|(u&VBW.|,U+)BW.|05/VBW.|3o4)BW.|7O8VBW.|;/=)B !W.|>iAVBW.|BIF)BW.|F)JVBW.|IcO)BW.|MCSVBW.|P}X)BW.|T]\VBW.|X=a)BW.|[weVBW.|_Wj)B !W.|c7nVBW.|fqs)BW.|jQwVBW.|n1|)BW.|ql&VBW.|uL+)BW.|y,/VBW.||f4)BW.}&F8VBW.}*&=)B !W.}-`AVBW.}1@F)BW.}4zJVBW.}8ZO)BW.}<:SVBW.}?tX)BW.}CT\VBW.}G4a)BW.}JneVBW.}NNj)B !W.}R.nVBW.}Uhs)BW.}YHwVBW.}](|)BW.}`c&VBW.}dC+)BW.}g}/VBW.}k]4)BW.}o=8VBW.}rw=)B !W.}vWAVBW.}z7F)BW.}}qJVBW.~'QO)BW.~+1SVBW.~.kX)BW.~2K\VBW.~6+a)BW.~9eeVBW.~=Ej)B !W.~A%nVBW.~D_s)BW.~H?wVBW.~Ky|)BW.~OZ&VBW.~S:+)BW.~Vt/VBW.~ZT4)BW.~^48VBW.~an=)B !W.~eNAVBW.~i.F)BW.~lhJVBW.~pHO)BW.~t(SVBW.~wbX)BW.~{B\VBW.~~|a)BW0%(\eVBW0%,Q&VBW0%B1+)BW0%Ek/VBW0%IK4)BW0%M+8VBW0%Pe=)B !W0%TEAVBW0%X%F)BW0%[_JVBW0%_?O)BW0%bySVBW0%fYX)BW0%j9\VBW0%msa)BW0%qSeVBW0%u3j)B !W0%xmnVBW0%|Ms)BW0&&-wVBW0&)g|)BW0&-H&VBW0&1(+)BW0&4b/VBW0&8B4)BW0&;|8VBW0&?\=)B !W0&CX)BW0(6x\VBW0(:Xa)BW0(>8eVBW0(Arj)B !W0(ERnVBW0(I2s)BW0(LlwVBW0(PL|)BW0(T-&VBW0(Wg+)BW0([G/VBW0(_'4)BW0(ba8VBW0(fA=)B !W0(i{AVBW0(m[F)BW0(q;JVBW0(tuO)BW0(xUSVBW0(|5X)BW0)%o\VBW0))Oa)BW0)-/eVBW0)0ij)B !W0)4InVBW0)8)s)BW0);cwVBW0)?C|)BW0)B~&VBW0)F^+)BW0)J>/VBW0)Mx4)BW0)QX8VBW0)U8=)B !W0)XrAVBW0)\RF)BW0)`2JVBW0)clO)BW0)gLSVBW0)k,X)BW0)nf\VBW0)rFa)BW0)v&eVBW0)y`j)B !W0)}@nVBW0*&zs)BW0**ZwVBW0*.:|)BW0*1u&VBW0*5U+)BW0*95/VBW0*mF)B #% [ 2592] dat.expdat !SCEEY54}SC?7Oag?SC@(~sFuSC?od4a\SCAF&'oDSCBR<3XmSCDF\15CSCF3LbcWSCH9Zq{ASCJF4es, !SCLQ[v[bSCNk+.-wSCPrs8w0SCS5H^'|SCU5EM4LSCWOwGUGSCYFO4JUSC[]8zf`SC]K>e)FSC_`(HIz !SCaJU_?FSCcb*_=hSCeM.MkSSCgiW{NaSCiV~^SeSCkyA}/eSCmj(9hNSCp8Mgl&SCr,Z'x;SCtZS9PW !SCvQ38OqSCy)A[RESCz{aMPlSC}WL[jM'tSE,gPyYGSE.cl*ZoSE1I0DcJ !SE3Fp.3~SE6/J'UoSE8.bpVVSE:t[wJYSE_RSEn_~<\qSEp|aMj@SEt>B&L[SEv]RXwuSEy}A/SuSE|DxnF0SG%hoKN1 !SG(2hkA0SG+Z^[f\SG.&p%o/SG1Rm;b7SG3{Gqq6SG7Qa55lSG9|vxe8SG=Wt0WMSG@,8*reSGCfRsT` !SGF>hm\uSGJ%?u>7SGL\22nDSGPIP+-FSGS+?NSySGVyf-%-SGY`aFx@SG]\CpYlSG`HJE{9SGdK9m^S !SGg<-efTSGkEf\93SGn;.B/iSGrKNlpoSGuE=h)vSGy\JHD>SG|ZaWMNSI&xdt-cSI){OSP;SI.FV]NU !SI1MtA({SI5z4^%zSI9,83;:SI=`%y3ASI@q&Z?&SIERgs}|SIHi,l}lSIMS=nXiSIPoOYwmSIUbtXQJ !SIY+jA?_SI^)KM:SSIaSj)^{SIf\H\BtSIj4bF2:SIoHp9@ESIs)J?E-SIxIT2s\SI|2ZvU7SK'^w,,+ !SK+PKZPKSK1/%BLwSK5(zzU_SK:n0-_JSK>piN]`SKDi(xu&SKHtiOHwSKNzn|=4SKS6/?^[SKYJj{`- !SK]jI^RvSKd4iu'/SKh_PnxhSKo:KcweSKspk.}?SKz]+RZ*SM%ELQxTSM,CcqlgSM18;6&@SM8Hdo:? !SM=Ht^[nSMDk?Yh`reSOE8;H:WSON~0Es0SOUx26gwSO`+c(_rSOg0nLb?SOq>k~PK !SOxA>sD)SQ)(5yNMSQ0Qm/fxSQ;kev=dSQCaKU-_SQO]?.(_SQWo`q)vSQdP\]X9LSSAcC<~*SSPY]V@~SS[3Tl*ESSk,>GqBSSv9xU&SUKaPDqZ !SUXc`|9xSUlT>8Y3SUzkSSvAuJKlSU/n^zVNSU:2vtrzSUDOsGJ(SUJCa'&(SUP|xA%fSUQW]w>' !SUPZ8\eeSUCe<49/SU8]i&}7SU'*)%MRSSl@rj0\SSM&L.u[SS+`1qtKSQ[,lzs8SQ/WG2kxSO\N~D6N !SO9`y5N-SMydG\h2SMjx{w%fSM\|~,JqSM[SS|hvSM](Fy]pSMbJQ9]/SMg=kGt|SMpQB_8uSMw9e)(c !SM~k'f.VSO&MK*|qSO&wEyHkSM{;wF[VSMspM5c2SMhabW^sSMbS}OJySM^A'-fdSM_{M?F@SM`m.]JQ !SMcyO&mnSMb2:*+qSM]HKPWISMRq>;C&SMIwa*naSMA)6KqFSM=];0NzSM;5l8uRSM<;`wn]SM:{rjMj !SM9foe1*SM3Uv];vSM,-0X-FSK{FWb9pSKrm_.PCSKi&7+A]SKaQyzo|SKX<2>tWSKP])9&(SKF_M=5R1SE\aBm:*SEXeu``vSEVD/78MSEXoVCUgSE]i4AraSEgbG{3USEs)kXMj !SG'?L5\aSG4`J3|qSGBZuQSaSGMlwe~JSGX9Us}|SG_fof{-SGgP@KW)SGlIgD[ASGo;=]7)SGm>(Sw0 !SGjF=>JqSGe,iSjXSG_@[2%)SGVAwAGCSGM7AJccSGBdYk3iSG9mQ>,+SG0kmlAqSG*Wn3>tSG%fF|~F !SE~w.SQNSG%ph>6[SG*K0sVbSG05AM).SG8e5jA8SG@IGMLCSGG;^r_bSGI7^i1.SGFK{`InSG;nF.Ck !SG,2'bdESEpj:ouoSEY5nuNmSE?1^HMZSE&*<+t;SCg6k:[ISCQEFGT|SC<_ecxTSC*c[sc:SAs,pz]h !SAc'z\fxSAR4U+r9SABEAB^CSA1n{%+uS?|I[w}[S?l9mIg&S?]X>E&4S?O{>zamS?FUePc2S???o){e !S?;'6WadS?7ETIlcS?6KKA%fS?6zTFZgS?;2UMwaS?Af2ZNmS?LV8G4XS?YSb4BLS?inP,O@S?{B'(V2 !SA5Ez?cNSAIqD~9DSA_zCaieSAuEe}fHSC0n>'T\SCC2fJ,7SCRizvF8SC]y9Mq6SCfjbNThSCkwN&Xh !SCnRC0t7SClOU-b;SCg]rZ?JSC_AHOySSCU~Vc0pSCJY/x8aSC>|+(DBSC1t`_tKSC%1X`bSSAqO|xv9 !SAdt>qivSAXWrPyKSANc\|.ZSAE|w)_FSA?rh46>SA:bC8ccSA7]b}22SA4jrXsqSA38s3IISA1+94nY !SA/F8\t?SA,N?[EISA)bo7TlSA%dvC;nS?|K5|-FS?yFZAtdS?xncAP;S?yeKzb7S?}_,D:wSA)+W^Yl !SA0qRK=TSA8_HeWzSAA%[J*5SAG]cf8GSANYVuLGSAM]HM@ZSAH=XohNSA?yz+,3SA3yl !S;fu|H]HS;h>/k-cS;ky^PO@S;p=5S@rS;uu~:pOS;{EyR}?S='mW(HkS=.0w.D6S=5P6Z5dS=hz@RES=;Zp/oLS=94GKQFS=6C9=L{S=3yw'dIS=0y06Z{S=.;-al{S=*sC{/Q !S='jn&MJS;~%NWQwS;zYc`CgS;vV@Gl*S;rj1MD^S;n)4hz.S;i-m{w4S;buRsjTS;\K~.X(S;Tw??\Y !S;MOAgFDS;EI@,J(S;>+C&wUS;6xq\MJS;1-%m}?S;+\jzxPS;'Ag?JiS9}3janYS9y}>=^kS9vdqd]d !S9t1zH[ES9qFvd`zS9oM&-nmS9mbbw^KS9m1|74HS9l|,9smS9n'If03S9oE(_gOS9qfVRqVS9t)K,ls !S9vuUSl6S9y2)_PlS9{UV?MZS9}/yuX0S9~ee4JyS;%Heg}'S;%yeeopS;%ESGyoS9~M4,LOS9|Ca-7f !S9y~FEO,S9vcpRneS9sNg02ZS9o[85=PS9l7@<,_S9h`>`l_S9e{COn}S9cEPLzZS9ahTV^2S9`EGyR- !S9`0t`5|S9`NRem%S9bMy@pCS9eAT[;bS9ibXu1;S9n5vdY_S9s'}]6:S9w'qaVbS9ze^-^[S9}(@]g_ !S9~`90T7S9~mu^x3S9~V]d(_S9}U/&uRS9|sykbhS9{{0nXDS9{apP*rS9{@,,22S9{[ErVjS9{dLG(& !S9|1I9yOS9{r24b'S9{Vw|5tS9zO3CXXS9yUTt|Q(gS9L~NxG_ !S9JX{TJuS9Go@4=4S9EPm>HJS9BoSkUkS9@U-BU&S9=mAv+PS9;>IOqJS988t4uNS95A^4xdS91rJ>V6 !S9.XBMtpS9*j/mf\S9'8E?LkS7}?_U6{S7ylGp2.S7v(pio+S7riPsYxS7o9yn6gS7l2adTlS7hqTgi~ !S7f,=ctOS7c;\33zS7a1YxIbS7_.0ploS7]qX`:KS7\dp:b?S7\ERVS7\X/&_^S7]'lZp& !S7^-t}9LS7_(rPFHS7`QO&Q !S7XV99e]S7W%{{vjS7V/y?}lS7U?=T0XS7U2{(psS7U+6zd^S7U[>(4yS7W/B+@%S7V0KYlN !S7UYO8dvS7TxPGfHS7TkcYk;S7TT>6HBS7Tcp@{=S7Ta*C?*S7U%sCtxS7U.TNXmS7UTsVAIS7UabAIj !S7V/Ify*S7V;v\M%S7VbC;;BS7Vm=HhBS7W6`i^sS7W;o>C3S7WT?P@AS7WG7kDFS7WFuX:gS7Vx'm+P !S7V[j.-wS7Ut9L*mS7UCv2:wS7TKb}22S7Sf;ZhBS7R_uZZ2S7QlR.tGS7PX9\5SS7OVL}hJS7N31\&0 !S7Lz{,qfS7KEosp7S7Iz5uF@S7H/x|oHS7FLMs`%S7DABXQoS7B@fDXPS7?qh_>WS7=S=+R^S7:gE{kp !S78-CAEeS75((bMbS721?]D%S7.s@K=TS7+nX|5OS7(M>w/(S7%CGzi-S5{{YA7VS5xv@AwUS5u^0e\m !S5rf*Y/eS5o]ZUuBS5lud\_:S5i}8-k3S5gM|2D^S5doGI]dS5bglA:GS5`m;|,3S5_^?LX}S5^e]>4uNS5_|cdKtS5`JxHCOS5a,,AMJS5aEZ`zJS5ak3s|DS5al{[VJ !S5a}_-5dS5ar9{|qS5a|C_J@S5ambtx7S5auI(i~S5acJjIfS5aee/AaS5aM+QcsS5aH9S^KS5a(zSvA !S5`x`.eIS5`U6Rq{S5`F|kk;S5_y=%s}S5_eT?5dS5_6Q1(GS5^sSlA(S5^9jQ`9S5]j41&ES5\{1_`5 !S5\?KU?sS5[=jeh2S5ZK:_niS5Y=rQzVS5XH2)17S5W?|&fTS5VT1WtCS5UWo&6gS5Tw/L[%S5T)>hS5Q<}f*QS5Pc,z9dS5Oq*mg&S5O8r=ywS5NA5}~cS5M[DqKTS5LZ^a6c !S5Kksm[=S5Jd<{&YS5IrbpRvS5Ho)u2rS5H.4[)rS5G:S4*1S5Fgpw@rS5F3Y`VjS5F&3kC{S5EnPI~R !S5F(5qLgS5F1Z8_^S5FS>*,;S5FYZ:S@S5Fkc~9hS5F\NgnqS5FWArhZS5F3~I?gS5Ez>^B@S5ELu.79 !S5E2%IQ2S5DZSlt+S5D?6g9HS5Cj^VkxS5CS2xL.S5C'7@&8S5BgpfUoS5B2-{A@S5AaY<&}S5@qo3im !S5@4,}@fS5?6OAFyS5>NO|@IS5=UL~6RS51CS5:nPeccS5:?7;tKS59T/f(* !S58|ObC{S585LAEeS57\~.>SS56ooYO@S56gpsS3tW+2=DS3sL\h-{ !S3rY2FFuS3qTTSt?S3pe2V4LS3oc5q(?S3nu=h4qS3msi+'dS3m*oLp*S3l&for~S3k4<&BtS3j,nYHo !S3i8&O9xS3h0iLT/S3g?m-5?S3f?aHs>7nS3Qdmgk[ !S3QM'8J}S3P~V8qNS3PhD+/mS3P>:i\qS3O}K?s`S3OL}S=8S3O*uwa !S3Ff)wCcS3F4Mmz*S3EqwR^.S3EEo,i9S3E+a_~WS3DY*B/DS3DB.-RS3A)<]U&S3@_tv_`OE=S3>Gl+IfS3=v`w)FS3=[F2+0S3=-y`97S3[S33/gXy.S326d=@%S31NqH3=S30VfhcoS3/oAX&uS3.ve?m5S3.3hEbxS3-9)lIV !S3,McBc[S3+PWzXPS3*bi(HkS3)cGY5GS3(saK8aS3's/'&MS3')2WGlS3&)xVamS3%=QA:GS1~C|Fq% !S1}^^50xS1|m7p_rS1|6Z&&yS1{NIy6{S1z{?%J1CS1gZ]yYlS1ffA0_{S1f(=e`qS1e5gB8< !S1dT5|N5S1ce7hwaS1c.m>9pS1bF}bC2S1ar~&a_ !S1^{~_u_S1^Iuy40S1^&AR~wS1]M;r>+S1]*(u[jS1\RdgR-S1\1y:eyS1[]Mz?kS1[?_m}dS1Zn2r[9 !S1ZS/*CCS1Z*-p`aS1Yk*NsTS1YCNTdIS1Y*qrmMS1X\:I@1S1X@tGx\S1WnH7tGS1WNWazBS1VwMTp2 !S1VS1o?2S1Ux/'C[S1UP^;%NS1TsMuZ{S1TK-+>lS1Snr~o7S1SJMMV)S1RvL2<1S1R]@ut+S1R;Ssie !S1R-^%JaS1Qn8p[IS1Qb[D'+S1QC;klsS1Q+iowqS1PX/C,KS1P25|`IS1ORYONYS1O&X=07S1NHD-e, !S1M|e{o+S1MMD]JuS1M1I1V{S1LdwYtWS1LO.rm)S1L+XFx@S1KpMBMBS1KL68;6S1K585lsS1Jh227b !S1JMB'J,S1I{hq*eS1I\=2KxS1I,R)rIS1Hcl()6S1H2v9MfS1Gl6^/b~)kxS1>)|F(.S1=Y7E+qS1 !S16V%QRrS15uvdRES15I|*`-S14jf(GWS14?T_*AS13a'Uk[S136UNbxS12XlZRrS12/+IW9S11R0)eq !S11)10e]S10Lv+bKS1/~R]4\S1/Hj5O@S1.zc=ZBS1.E28btS1-w*}>dS1-AEnoLS1,rnwn8S1,<:FKD !S1+lBMfOS1%{1(\]S1%Xf;CKS1%)9.)rS/~a*>wIS/~1w\W1S/}jU~:3S/}=?v\QS/|y6UjHS/|P'sZB !S/|5}]SIS/{j>y1?S/{RC|c_S/{,:8)FS/zjJ7U[S/z={{kpS/yteHD>S/y@n\SQS/xp~XIAS/x8x5&m !S/whWY>?S/w2|S/k3b}]tS/jmp3'HS/j?W9|d !S/ivOK1GS/iEwO=XS/h{E0UKS/hJ%BmfS/h%:\d-S/gNHhI-S/g+.ueQS/fW)}`AS/f7PJL[S/egQ[f7 !S/eKimBXS/d~{GR1S/ddsr53S/d=9`6FS/cyx184S/cMr&%fS/c+nb9LS/bUQ*tCS/b0V>+`S/aZ+s=X !S/a83Em)S/`fl9?{S/`JqHPKS/`%\c:WS/_i58JYS/_Gk\zFS/_2We@rS/^j@FU*S/^R}5<=S/^-zqGt !S/]mTn>pS/]ETNu{S/](ZfysS/\XbPeYS/\:>sw,S/[iGI''S/[JQ4t`S/ZypC5hS/Z\9<2BS/Z3z@K+ !S/YsAXKDS/YN;{@vS/Y6di([S/Xn@\mnS/XXI(WiS/X6A/L[S/Wya=;2S/WV?8MJS/W>((v1S/Vr}JEA !S/VY8.1{S/V32[AES/UrnLm9S/ULP&/(S/U1}JSuS/TeYIw8S/TK%ZkWS/S~SeY|S/Schq5_S/S<|HRN !S/R{e:?NS/RT7oiaS/R7q[2jS/Qhb[MRS/QIq@57S/Pw`'1kS/PUW/M%S/P&4Nz%S/O[3/_:S/O)UF]X !S/N]H%8(S/N+op.rS/M`N~NIS/M0/gQ>S/Lf/Z%RS/L7.+P7S/Kn)sJ0S/K?MK3%S/JvFZu>S/JGW08< !S/I~4JF0S/IO-||hS/I+Z/?_S/HVfFl{S/H3dOIAS/G_ShNiS/G=73?cS/FifI^.S/FG~{L;S/Etw{z% !S/ES>er=S/E&+S/Bn&~;jS/B<~*b/S/Ap>4Q&S/A=EA93 !S/@o@FQJS/@<)B|dS/?oHE_bS/??lbflS/>xBTjPS/>NULG3S/>2icc*S/=g|'rYS/=ONt4XS/=+,y`a !S//hVS/5/0Fl{S/4a5xqj !S/4DPry[S/3vz53iS/3ZSeY|S/331lJDS/2p`gQcS/2H{z4(S/2+nrn_:S/.Uc^P+S/.;sfwqS/-qvrb/S/-X~|;2S/-5%Omj !S/,u?I}dS/,P,DErS/,4u-ZVS/+h0>UGS/+KJWXmS/*}JUe0S/*_lm]@S/*73dQ{S/)s*C_rS/)J.FFP !S/)+k}.RS/(\kJP;S/(>VX=}S/'ok`=S-}\id`US-}4FYayS-|p[I,dS-|HL?-[S-|*}_17S-{]>T>C !S-{@LCG|S-zs[?EvS-zW|&[ZS-z2dE^sS-yrh_7=S-yO/{8IS-y6T[JlS-tF}Dmz !S-t0f[gKS-skWk2`~S-p/T3thS-obh(fhS-oFQ}G7S-nz`QV.S-n_sBODS-n;~%?BS-m}Cf]/S-m[Y%57 !S-mDigC.S-l~DG{)S-lgxt>?S-lFMghFS-l-W3J8S-kbqF4`S-kFKW_>S-jxAd)NS-jX{PjqS-j/):VV !S-ii^.IrS-iA;@zNS-h~8eopS-hX]81OS-h>HuEQS-gu?jKDS-g\`PBhS-g9iI:sS-fz.<>tS-fUT[Mv !S-f9pgDfS-em40IbS-eOSL[%S-e'JWXmS-dc3-4uS-d;5(NMS-cwK3|(S-cP4H]HS-c34i9\S-bf[~&e !S-bI|R''S-a}?WVjS-a`4/=\S-a8tegCS-`u1R?BS-`MG1)6S-`/IY,OS-_a}H-6S-_E'b}tS-^y1[mv !S-^]wIAiS-^9kLzZS-]z/|OHS-]W5y`aS-]=zqVNS-\tN]QFS-\YwLWES-\4kOS-Y8nLiYS-XyIx~gS-XW+)39S-X>Z61_S-Wv><&} !S-W].J@)S-W9det?S-Vy5o\eS-VTDtV6S-V8Hg]pS-UlAxdIS-UOIRq2S-U(aA}[S-Te@9,xS-T>D'9t !S-Sz{yiYS-ST?}rzS-S7\u.%S-Rl5nP`S-RQ,L@=S-R-EV7=R}}.,g6WR}y?OD?FR}vYAXdrR}rmWdU[ !R}p%VB[vR}l)vnav~R}aYZDE)R}]6ukHoR}Yo2eiiR}ULqYMbR}R4t'%9R}M{lQP' !R}Ju=@mvR}Fs~]~BR}C}9>88R}@,^/dRR}=7Ua6cR}9:`?I1R}6:RUWER}20[(fDR}.|wuNmR}*f{7Y` !R}'Ppz]hR{}9<[sXR{z'uOnYR{us98N]R{rlg|,|R{nj+AraR{koDETDR{gw9JfTR{e)tK}/R{a5h)NE !R{^C]>yoR{ZO,Q7AR{WZz_3]R{ScNX:}' !R{;?2?%RR{7-b,p.R{3xo^7jR{/mPW6kR{,he3nRyVLvTsH !RySGia}|RyO92~VRRyK|`?T+RyGdu9&MRyDRN]BlRy@Lg+XdRy=Th2\0Ry9mQK7)Ry7:a%6&Ry3p_:=( !Ry1U4]fLRy.=;%XLRy+yFsL2Ry(TnVtpRy%~O7U7Rw|DUrF4RwyWr8t?Rwuc(Q>7Rwreg=ZgRwngZHB< !Rwkg4(2.RwgjGSS,RwdnS8{5Rw`yAdB|Rw^-b;)RRwZF/{Y7RwWf%j-FRwT9I/MJRwQoIT]TRwNX`6Iz !RwLHSQUcRwIB>Vo|RwGA({Rw>hM8T@RwGRuoPY(]'Rukv?pvV !Rui>T<2BRued|~r)Ruc,B'48Ru_P?c8URu\lZF-kRuY-qCUgRuV=@z`5RuRIt7u6RuOJ^O4`RuKJBHo7 !RuHAQW2BRuD=DdVJRuA:QUTTRu=J2`&4Ru:eU_?FRu7>RY[rRu4~-LcwRu1y*KV^Ru/zd\:kRu-,DKbG !Ru++n>KRs|%5l8URsy3/](sRsu5be)FRsr&HW{9Rsmv\t%ZRsjq>^B@Rsg(B,Z_ !RsdF9.<-Rs`~:H%RRs^hE~\}Rs[h,iK'RsYh^7:ORsVkm@8MRsT\b0bGRsQD\c_%RsNn5OdNRsK2b,K` !RsH9ftT3RsD:rHDbRsA/Q9]/Rs=--pk[Rs:)0zAIRs64Sw[~Rs3Ajft7Rs/_{0QkRs-%JV^{Rs)Rj\h{ !Rs&{2kDjRq}QPUN)Rqzxh|[VRqwKXn\IRqtmIm8(Rqq9^rMNRqnSsTyORqjr*Y[MRqh)q3oPRqd?nl=H !RqaIhK6_Rq]Xt]a}RqZ]8dQVRqVhs?VvRqSlg)e(RqO|k=A]RqM/PVGtRqIK@([IRqFd}4uNRqC4\aRq4mHNWYRq1G^sR9Rq.o~,G7Rq+D|0uJRq(g^u_JRq%7PH\Y !Ro|V)M*bxRov@-}-cRorfL9&qRop(tDIRRolO]%VJRoim+D4LRof;zueuRoc\^s]3Ro`/kYl* !Ro]T{HDbRoZ,cjw,RoWU|A&0RoT15}O@RoQ\P<1wRoN7]c^7RoK`>NXHRoH7=Z[jRoEZi5m=RoB,>;-2 !Ro?J2A'hRo;pV0sHRo90.jFuRo5Sw&jXRo2l@DwRo&6]YsiRm|_XGnQ !Rmz%LVd^RmvS}WmNRmsz-b3iRmpU;/`)Rmn'b+QoRmjbf]3%Rmh9}3Rm_2:9G_ !Rm\_kWf3RmY3\:gWRk;q0iw4Rk8e_Kx[)Rk1/6rEiRk.)J=4hRi=60kjqRi9FRr/,Ri6K{AKHRi2l%D*eRi0-3a@%Ri,fA^8Y !Ri*AfXv=Ri':\;sZ>[ReH.6NEEReE`2gCwReBKxg[I !Re?~fO9/Re|Re/ui)IvRe,}oFp[Re*t3?PKRe((>5YK !Re%}x+JyRc}6s{%jRc{6]tPSRcxM2xW)RcvO]voxRcsh//WURcqkNoe]Rco)wJ;ZRcm,)W97RcjB5R4m !Rch@O9=yRceQ.O>GRccGBse3{]RcNz{sWv !RcL5/be4RcHbZ;[fRcF(&*}_RcBhOjT;Rc@DyqAIRc=D]`H[Rc;:W3naRc8RNs7-Rc6]0_RIRc4)55z: !Rc28PXySRc/[Zd^.Rc-c,.)NRc*{D>E5Rc(ut/93Rc&&8nJYRa}lT=3MRaziddvnRaxJc:V{Rau>Wpfh !Rarqd,0TRao_H@h^Ram3y7>/Raiy5@{aRagMes{zRad1N+SMRa;~>,*qRa9,6?ygRa6r`5i]Ra3u6rTDRa1]1{|(Ra.\J)f`Ra,BFcpoRa)Abeuw !Ra'*G+r]R_~/VxpWR_{z/V6sR_y.OiH6R_w(j=3qR_tA2?7fR_rE,3iIR_ofFx;vR_mqN.DZR_k=jZ,G !R_iKuc1;R_ft&9|@R_e(bUcwR_bPI_tpR_`]SW0dR_^(^jDNR_\1Tl8yR_YP_dZ*R_WR%Al[R_Ti+v+, !R_Rb=`|(R_Oqp1;%R_MdT%GpR_JoOQ4PR_H`T*ndER]o?aL2RR]l]oJT@R]jc)h=hR]h*KHkW !R]f.nxz>R]cL%_mVR]aJ1Zt+R]^`:%I|uR]DGeuvvR]ApkIZ*R]?~`r'HR]=NA52VR];Yof5pR]9%P4y. !R]7+i|A8R]4K[pTxR]2Kb@^SR]/eRuK|R]-`.{SR[v4GFH.R[t'om2jR[q7vTG`R[o){|A8R[l8fZf@R[j)RuVvR[g7ERpgR[e'Q,k`R[b5@-@9 !R[`%{uD>R[]5LnWUR[[(}j{UR[X'MBR[8`-,R1R[6rWsmjR[4JzU3A !R[2_po7rR[0:Y+r]R[.QM46>R[,-vwN9R[*EzA2bR['}/F_6R[&:{e*~RY}p~hLgRY|,VJKHRYy_Xn-& !RYwqD\c>RYuF/qgORYsR|18YRYp|BUvVRYo({4YxRYlK6:t/RYjIN_tKRYgbr7RYS\/(2RRYQWO%VnRYNy~_B\RYM)@f(sRYJYJDY? !RYHniAa.(}@ARY<68dF\RY9X}CeURY7U-sgcRY4l\P%5 !RY2_8OW-RY/pW'l.RY-`8z/}RY*q0Ny[RY(a|&3QRY%uW@U7RW}j4e1ORW{(hk'\RWx}Cr>tRWvCodRWqox2'+RWo|{PjqRWmVS/{~RWkm5oQkRWiOozAIRWgnLQ3=RWeWHNthRWcyUsUsRWacF;]D !RW`*=uRWSs]ERWFY4Yi9RWC|x0:cRWA}[dNeRW?H8%b3RW=LNJraRW:vfS2bRW9'X(]pRW6X|0F( !RW4ji;+0RW2H]\l6RW0_ZX>GRW.@T5*MRW,VyZDbRW*42<\MRW(DiJvARW%u=l5dRU}~g^xXRU{NM8M% !RUyQnX9/RUvw2PCWRUtx~ds}RUrFvVnDRUpND%y;RUm}fb]+RUl3Oj,3RUik[L(kRUh)h~~[RUeiX6[E !RUd-[u2NRUapN'1kRU`3wW?>RU]sj(2.RU\2X}(&RUYlvN=iK'RULmjhJeRUJsSC0+RUHCdrw}RUFHj.V%RUCs1e({RUAy,~_%RU?KLfz>RU=T\~k3RU;,'J(W !RU9;L|?6RU6srt88RU50I/n8RU2owJJ4RU12x=T*kZWARS<7742:RS9pMV0lRS8,~j@IRS5q=oK@RS48y[B3RS2.6h:SRS0YzuP'RS.X/18} !RS-0Jk}tRS+1^wp;RS)brPjqRS'`@Ke]RS&1{H=HRQ~)&Z?&RQ|Mj9LSRQz>6)CoRQx\tNj\RQvI%5j( !RQtf,[F8RQrSc4E=RQpt*Q*ERQnf4qr%RQm1S@MRRQk(w~nmRQiS:uIVRQgO6%k+RQe|dxsmRQcz*D5; !RQbLvY;*RQ`HB0WqRQ^r.2%)RQ\iiOWQRQ[4xRRERQY'L]ODRQWF]%5[RQU2DzY?RQSIJ.5[RQQ,Api~ !RQO:C.,dRQLnt?NmRQJuQ\)FRQHJMvF8RQFMj~B`RQC}'r1.RQB,-zd^RQ?hrX@nRQ>+MFY/RQ<%+Sq* !RQ:YWDtRQ7ZtMpkRQ5~?RQ(E|96_RQ&6z:DBRO}If):.RO{+v4wQROx+_vRO\iHgaPRO[:['5pROXr}BC[ROV\5y<9ROSStC.rROPZzM@5ROLyZp*% !ROI\3TG;ROEoBtPSROBeKRMs[m.x'RMr-Jl9hRMp1OQ-6 !RMn_QE)%RMleP;J@RMk:g}9'RMiAiGR1RMgqLS.9RMex`>hnRMdMq0V:RMbT.?fdRMa'?(XXRM_+1cYh !RM]UI&<%RM[VKKk?RMY}eeRbRMW|9M[ARMVG7-hBRMTD;yX4RMRh]0_2RMPfm~YhRMO3Jy9lRMM4x_~2 !RMK_4~,lRMIds|&uRMH9;BBHRMFC>Du:RMDuVfJ,RMC)83qvRMA^)P]+RM?mg_8,RM>Ishd9RM|RKh@:jwQRKfj59KdRKduzI`1 !RKcL\iw}RKa_:b7nRK`;ollRIg9Z[EIRIe[dfjPRId;vy[IRIbeZhxP !RIaMBGqfRI`%@SJ4RI^nINsyRI]Mn3F4RI\B]njXRI[&zHizRIYwZIz)RIXZj@jRIS9T-[jRIQod1HFRIP7wMQ6RINe-rmrRIM';]`iRIKQ8FqJRIIovNi%RIHEDxA4RIFlap:7 !RIEK.\3QRIC|ubM>RIBdik@ARIAF8pWiRI@59wL[RI>u{%[=RI=ddNeDRIg^_* !RI**RheMRI(vCgVzRI'kgWDzRI&fk7,?RI%`,(-_RG~[Y`{9RG}ON'~BRG|Dt2NiRG{/P>cVRGyvz=5O !RGxWg?NIRGw>6LC.RGuqO'-BRGtUJO.~RGs.]OzfRGqs](o`RGpTf[gKRGoKw4UsRGn7fVKxRGm<]:IZ !RGl38%6JRGkDl@KPRGjCG1Q>RGi\jMf`RGh[bPOdRGgu=pWERGfnv6k3RGf+Rt?wRGdwd&USRGd0Sr.= !RGbu(jlVRGb+3TdIRG`iyj@nRG_{I;:.RG^_(2\yRG]vAqcoRG\[VLnMRG[{7D2%RGZcS1NqRGZ3Ir^O !RGXybX\ERGXUCYo@RGWF*Sc>RGW.mWGGRGU~-r|LRGUu0rd1RGTngvo/RGTu5X\ERGSrMB>hRGT/B4)B !RGS.|NgkRGSV}1_rRGRVA9:cRGS5d(|8RGR2tRI9]U`@R #% [ 2592] d.energy !VtPS-4P7VtPwUaP7VtQA~4P7VtQfLaP7VtR0u4P7VtRUCaP7VtRyl4P7VtSD:aP7VtShc4P7VtT31aP7 !VtTWZ4P7VtT|(aP7VtUFQ4P7VtUjyaP7VtV5H4P7VtVYpaP7VtV~?4P7VtWHgaP7VtWm64P7VtX7^aP7 !VtX\-4P7VtY&UaP7VtYJ~4P7VtYoLaP7VtZ9u4P7VtZ^CaP7Vt[(l4P7Vt[M:aP7Vt[qc4P7Vt\<1aP7 !Vt\`Z4P7Vt]+(aP7Vt]OQ4P7Vt]syaP7Vt^>H4P7Vt^bpaP7Vt_-?4P7Vt_QgaP7Vt_v64P7Vt`@^aP7 !Vt`e-4P7Vta/UaP7VtaS~4P7VtaxLaP7VtbBu4P7VtbgCaP7Vtc1l4P7VtcV:aP7Vtczc4P7VtdE1aP7 !VtdiZ4P7Vte4(aP7VteXQ4P7Vte|yaP7VtfGH4P7VtfkpaP7Vtg6?4P7VtgZgaP7Vth%64P7VthI^aP7 !Vthn-4P7Vti8UaP7Vti\~4P7Vtj'LaP7VtjKu4P7VtjpCaP7Vtk:l4P7Vtk_:aP7Vtl)c4P7VtlN1aP7 !VtlrZ4P7Vtm=(aP7VtmaQ4P7Vtn+yaP7VtnPH4P7VtntpaP7Vto??4P7VtocgaP7Vtp.64P7VtpR^aP7 !Vtpw-4P7VtqAUaP7Vtqe~4P7Vtr0LaP7VtrTu4P7VtryCaP7VtsCl4P7Vtsh:aP7Vtt2c4P7VttW1aP7 !Vtt{Z4P7VtuF(aP7VtujQ4P7Vtv4yaP7VtvYH4P7Vtv}paP7VtwH?4P7VtwlgaP7Vtx764P7Vtx[^aP7 !Vty&-4P7VtyJUaP7Vtyn~4P7Vtz9LaP7Vtz]u4P7Vt{(CaP7Vt{Ll4P7Vt{q:aP7Vt|;c4P7Vt|`1aP7 !Vt}*Z4P7Vt}O(aP7Vt}sQ4P7Vt~=yaP7Vt~bH4P7Vv%,paP7Vv%Q?4P7Vv%ugaP7Vv&@64P7Vv&d^aP7 !Vv'/-4P7Vv'SUaP7Vv'w~4P7Vv(BLaP7Vv(fu4P7Vv)1CaP7Vv)Ul4P7Vv)z:aP7Vv*Dc4P7Vv*i1aP7 !Vv+3Z4P7Vv+X(aP7Vv+|Q4P7Vv,FyaP7Vv,kH4P7Vv-5paP7Vv-Z?4P7Vv-~gaP7Vv.I64P7Vv.m^aP7 !Vv/8-4P7Vv/\UaP7Vv0&~4P7Vv0KLaP7Vv0ou4P7Vv1:CaP7Vv1^l4P7Vv2):aP7Vv2Mc4P7Vv2r1aP7 !Vv3paP7Vv5c?4P7Vv6-gaP7Vv6R64P7Vv6v^aP7 !Vv7A-4P7Vv7eUaP7Vv8/~4P7Vv8TLaP7Vv8xu4P7Vv9CCaP7Vv9gl4P7Vv:2:aP7Vv:Vc4P7Vv:{1aP7 !Vv;EZ4P7Vv;j(aP7Vv<4Q4P7Vv6gaP7Vv>[64P7Vv?%^aP7 !Vv?J-4P7Vv?nUaP7Vv@8~4P7Vv@]LaP7VvA'u4P7VvALCaP7VvApl4P7VvB;:aP7VvB_c4P7VvC*1aP7 !VvCNZ4P7VvCs(aP7VvD=Q4P7VvDayaP7VvE,H4P7VvEPpaP7VvEu?4P7VvF?gaP7VvFd64P7VvG.^aP7 !VvGS-4P7VvGwUaP7VvHA~4P7VvHfLaP7VvI0u4P7VvIUCaP7VvIyl4P7VvJD:aP7VvJhc4P7VvK31aP7 !VvKWZ4P7VvK|(aP7VvLFQ4P7VvLjyaP7VvM5H4P7VvMYpaP7VvM~?4P7VvNHgaP7VvNm64P7VvO7^aP7 !VvO\-4P7VvP&UaP7VvPJ~4P7VvPoLaP7VvQ9u4P7VvQ^CaP7VvR(l4P7VvRM:aP7VvRqc4P7VvS<1aP7 !VvS`Z4P7VvT+(aP7VvTOQ4P7VvTsyaP7VvU>H4P7VvUbpaP7VvV-?4P7VvVQgaP7VvVv64P7VvW@^aP7 !VvWe-4P7VvX/UaP7VvXS~4P7VvXxLaP7VvYBu4P7VvYgCaP7VvZ1l4P7VvZV:aP7VvZzc4P7Vv[E1aP7 !Vv[iZ4P7Vv\4(aP7Vv\XQ4P7Vv\|yaP7Vv]GH4P7Vv]kpaP7Vv^6?4P7Vv^ZgaP7Vv_%64P7Vv_I^aP7 !Vv_n-4P7Vv`8UaP7Vv`\~4P7Vva'LaP7VvaKu4P7VvapCaP7Vvb:l4P7Vvb_:aP7Vvc)c4P7VvcN1aP7 !VvcrZ4P7Vvd=(aP7VvdaQ4P7Vve+yaP7VvePH4P7VvetpaP7Vvf??4P7VvfcgaP7Vvg.64P7VvgR^aP7 !Vvgw-4P7VvhAUaP7Vvhe~4P7Vvi0LaP7VviTu4P7VviyCaP7VvjCl4P7Vvjh:aP7Vvk2c4P7VvkW1aP7 !Vvk{Z4P7VvlF(aP7VvljQ4P7Vvm4yaP7VvmYH4P7Vvm}paP7VvnH?4P7VvnlgaP7Vvo764P7Vvo[^aP7 !Vvp&-4P7VvpJUaP7Vvpn~4P7Vvq9LaP7Vvq]u4P7Vvr(CaP7VvrLl4P7Vvrq:aP7Vvs;c4P7Vvs`1aP7 !Vvt*Z4P7VvtO(aP7VvtsQ4P7Vvu=yaP7VvubH4P7Vvv,paP7VvvQ?4P7VvvugaP7Vvw@64P7Vvwd^aP7 !Vvx/-4P7VvxSUaP7Vvxw~4P7VvyBLaP7Vvyfu4P7Vvz1CaP7VvzUl4P7Vvzz:aP7Vv{Dc4P7Vv{i1aP7 !Vv|3Z4P7Vv|X(aP7Vv||Q4P7Vv}FyaP7Vv}kH4P7Vv~5paP7Vv~Z?4P7Vv~~gaP7Vx%I64P7Vx%m^aP7 !Vx&8-4P7Vx&\UaP7Vx'&~4P7Vx'KLaP7Vx'ou4P7Vx(:CaP7Vx(^l4P7Vx)):aP7Vx)Mc4P7Vx)r1aP7 !Vx*paP7Vx,c?4P7Vx--gaP7Vx-R64P7Vx-v^aP7 !Vx.A-4P7Vx.eUaP7Vx//~4P7Vx/TLaP7Vx/xu4P7Vx0CCaP7Vx0gl4P7Vx12:aP7Vx1Vc4P7Vx1{1aP7 !Vx2EZ4P7Vx2j(aP7Vx34Q4P7Vx3XyaP7Vx3}H4P7Vx4GpaP7Vx4l?4P7Vx56gaP7Vx5[64P7Vx6%^aP7 !Vx6J-4P7Vx6nUaP7Vx78~4P7Vx7]LaP7Vx8'u4P7Vx8LCaP7Vx8pl4P7Vx9;:aP7Vx9_c4P7Vx:*1aP7 !Vx:NZ4P7Vx:s(aP7Vx;=Q4P7Vx;ayaP7Vx<,H4P7Vx.^aP7 !Vx>S-4P7Vx>wUaP7Vx?A~4P7Vx?fLaP7Vx@0u4P7Vx@UCaP7Vx@yl4P7VxAD:aP7VxAhc4P7VxB31aP7 !VxBWZ4P7VxB|(aP7VxCFQ4P7VxCjyaP7VxD5H4P7VxDYpaP7VxD~?4P7VxEHgaP7VxEm64P7VxF7^aP7 !VxF\-4P7VxG&UaP7VxGJ~4P7VxGoLaP7VxH9u4P7VxH^CaP7VxI(l4P7VxIM:aP7VxIqc4P7VxJ<1aP7 !VxJ`Z4P7VxK+(aP7VxKOQ4P7VxKsyaP7VxL>H4P7VxLbpaP7VxM-?4P7VxMQgaP7VxMv64P7VxN@^aP7 !VxNe-4P7VxO/UaP7VxOS~4P7VxOxLaP7VxPBu4P7VxPgCaP7VxQ1l4P7VxQV:aP7VxQzc4P7VxRE1aP7 !VxRiZ4P7VxS4(aP7VxSXQ4P7VxS|yaP7VxTGH4P7VxTkpaP7VxU6?4P7VxUZgaP7VxV%64P7VxVI^aP7 !VxVn-4P7VxW8UaP7VxW\~4P7VxX'LaP7VxXKu4P7VxXpCaP7VxY:l4P7VxY_:aP7VxZ)c4P7VxZN1aP7 !VxZrZ4P7Vx[=(aP7Vx[aQ4P7Vx\+yaP7Vx\PH4P7Vx\tpaP7Vx]??4P7Vx]cgaP7Vx^.64P7Vx^R^aP7 !Vx^w-4P7Vx_AUaP7Vx_e~4P7Vx`0LaP7Vx`Tu4P7Vx`yCaP7VxaCl4P7Vxah:aP7Vxb2c4P7VxbW1aP7 !Vxb{Z4P7VxcF(aP7VxcjQ4P7Vxd4yaP7VxdYH4P7Vxd}paP7VxeH?4P7VxelgaP7Vxf764P7Vxf[^aP7 !Vxg&-4P7VxgJUaP7Vxgn~4P7Vxh9LaP7Vxh]u4P7Vxi(CaP7VxiLl4P7Vxiq:aP7Vxj;c4P7Vxj`1aP7 !Vxk*Z4P7VxkO(aP7VxksQ4P7Vxl=yaP7VxlbH4P7Vxm,paP7VxmQ?4P7VxmugaP7Vxn@64P7Vxnd^aP7 !Vxo/-4P7VxoSUaP7Vxow~4P7VxpBLaP7Vxpfu4P7Vxq1CaP7VxqUl4P7Vxqz:aP7VxrDc4P7Vxri1aP7 !Vxs3Z4P7VxsX(aP7Vxs|Q4P7VxtFyaP7VxtkH4P7Vxu5paP7VxuZ?4P7Vxu~gaP7VxvI64P7Vxvm^aP7 !Vxw8-4P7Vxw\UaP7Vxx&~4P7VxxKLaP7Vxxou4P7Vxy:CaP7Vxy^l4P7Vxz):aP7VxzMc4P7Vxzr1aP7 !Vx{paP7Vx}c?4P7Vx~-gaP7Vx~R64P7Vx~v^aP7 !Vz%A-4P7Vz%eUaP7Vz&/~4P7Vz&TLaP7Vz&xu4P7Vz'CCaP7Vz'gl4P7Vz(2:aP7Vz(Vc4P7Vz({1aP7 !Vz)EZ4P7Vz)j(aP7Vz*4Q4P7Vz*XyaP7Vz*}H4P7Vz+GpaP7Vz+l?4P7Vz,6gaP7Vz,[64P7Vz-%^aP7 !Vz-J-4P7Vz-nUaP7Vz.8~4P7Vz.]LaP7Vz/'u4P7Vz/LCaP7Vz/pl4P7Vz0;:aP7Vz0_c4P7Vz1*1aP7 !Vz1NZ4P7Vz1s(aP7Vz2=Q4P7Vz2ayaP7Vz3,H4P7Vz3PpaP7Vz3u?4P7Vz4?gaP7Vz4d64P7Vz5.^aP7 !Vz5S-4P7Vz5wUaP7Vz6A~4P7Vz6fLaP7Vz70u4P7Vz7UCaP7Vz7yl4P7Vz8D:aP7Vz8hc4P7Vz931aP7 !Vz9WZ4P7Vz9|(aP7Vz:FQ4P7Vz:jyaP7Vz;5H4P7Vz;YpaP7Vz;~?4P7Vz&UaP7Vz>J~4P7Vz>oLaP7Vz?9u4P7Vz?^CaP7Vz@(l4P7Vz@M:aP7Vz@qc4P7VzA<1aP7 !VzA`Z4P7VzB+(aP7VzBOQ4P7VzBsyaP7VzC>H4P7VzCbpaP7VzD-?4P7VzDQgaP7VzDv64P7VzE@^aP7 !VzEe-4P7VzF/UaP7VzFS~4P7VzFxLaP7VzGBu4P7VzGgCaP7VzH1l4P7VzHV:aP7VzHzc4P7VzIE1aP7 !VzIiZ4P7VzJ4(aP7VzJXQ4P7VzJ|yaP7VzKGH4P7VzKkpaP7VzL6?4P7VzLZgaP7VzM%64P7VzMI^aP7 !VzMn-4P7VzN8UaP7VzN\~4P7VzO'LaP7VzOKu4P7VzOpCaP7VzP:l4P7VzP_:aP7VzQ)c4P7VzQN1aP7 !VzQrZ4P7VzR=(aP7VzRaQ4P7VzS+yaP7VzSPH4P7VzStpaP7VzT??4P7VzTcgaP7VzU.64P7VzUR^aP7 !VzUw-4P7VzVAUaP7VzVe~4P7VzW0LaP7VzWTu4P7VzWyCaP7VzXCl4P7VzXh:aP7VzY2c4P7VzYW1aP7 !VzY{Z4P7VzZF(aP7VzZjQ4P7Vz[4yaP7Vz[YH4P7Vz[}paP7Vz\H?4P7Vz\lgaP7Vz]764P7Vz][^aP7 !Vz^&-4P7Vz^JUaP7Vz^n~4P7Vz_9LaP7Vz_]u4P7Vz`(CaP7Vz`Ll4P7Vz`q:aP7Vza;c4P7Vza`1aP7 !Vzb*Z4P7VzbO(aP7VzbsQ4P7Vzc=yaP7VzcbH4P7Vzd,paP7VzdQ?4P7VzdugaP7Vze@64P7Vzed^aP7 !Vzf/-4P7VzfSUaP7Vzfw~4P7VzgBLaP7Vzgfu4P7Vzh1CaP7VzhUl4P7Vzhz:aP7VziDc4P7Vzii1aP7 !Vzj3Z4P7VzjX(aP7Vzj|Q4P7VzkFyaP7VzkkH4P7Vzl5paP7VzlZ?4P7Vzl~gaP7VzmI64P7Vzmm^aP7 !Vzn8-4P7Vzn\UaP7Vzo&~4P7VzoKLaP7Vzoou4P7Vzp:CaP7Vzp^l4P7Vzq):aP7VzqMc4P7Vzqr1aP7 !VzrpaP7Vztc?4P7Vzu-gaP7VzuR64P7Vzuv^aP7 !VzvA-4P7VzveUaP7Vzw/~4P7VzwTLaP7Vzwxu4P7VzxCCaP7Vzxgl4P7Vzy2:aP7VzyVc4P7Vzy{1aP7 !VzzEZ4P7Vzzj(aP7Vz{4Q4P7Vz{XyaP7Vz{}H4P7Vz|GpaP7Vz|l?4P7Vz}6gaP7Vz}[64P7Vz~%^aP7 !Vz~J-4P7Vz~nUaP7V|%8~4P7V|%]LaP7V|&'u4P7V|&LCaP7V|&pl4P7V|';:aP7V|'_c4P7V|(*1aP7 !V|(NZ4P7V|(s(aP7V|)=Q4P7V|)ayaP7V|*,H4P7V|*PpaP7V|*u?4P7V|+?gaP7V|+d64P7V|,.^aP7 !V|,S-4P7V|,wUaP7V|-A~4P7V|-fLaP7V|.0u4P7V|.UCaP7V|.yl4P7V|/D:aP7V|/hc4P7V|031aP7 !V|0WZ4P7V|0|(aP7V|1FQ4P7V|1jyaP7V|25H4P7V|2YpaP7V|2~?4P7V|3HgaP7V|3m64P7V|47^aP7 !V|4\-4P7V|5&UaP7V|5J~4P7V|5oLaP7V|69u4P7V|6^CaP7V|7(l4P7V|7M:aP7V|7qc4P7V|8<1aP7 !V|8`Z4P7V|9+(aP7V|9OQ4P7V|9syaP7V|:>H4P7V|:bpaP7V|;-?4P7V|;QgaP7V|;v64P7V|<@^aP7 !V|Bu4P7V|>gCaP7V|?1l4P7V|?V:aP7V|?zc4P7V|@E1aP7 !V|@iZ4P7V|A4(aP7V|AXQ4P7V|A|yaP7V|BGH4P7V|BkpaP7V|C6?4P7V|CZgaP7V|D%64P7V|DI^aP7 !V|Dn-4P7V|E8UaP7V|E\~4P7V|F'LaP7V|FKu4P7V|FpCaP7V|G:l4P7V|G_:aP7V|H)c4P7V|HN1aP7 !V|HrZ4P7V|I=(aP7V|IaQ4P7V|J+yaP7V|JPH4P7V|JtpaP7V|K??4P7V|KcgaP7V|L.64P7V|LR^aP7 !V|Lw-4P7V|MAUaP7V|Me~4P7V|N0LaP7V|NTu4P7V|NyCaP7V|OCl4P7V|Oh:aP7V|P2c4P7V|PW1aP7 !V|P{Z4P7V|QF(aP7V|QjQ4P7V|R4yaP7V|RYH4P7V|R}paP7V|SH?4P7V|SlgaP7V|T764P7V|T[^aP7 !V|U&-4P7V|UJUaP7V|Un~4P7V|V9LaP7V|V]u4P7V|W(CaP7V|WLl4P7V|Wq:aP7V|X;c4P7V|X`1aP7 !V|Y*Z4P7V|YO(aP7V|YsQ4P7V|Z=yaP7V|ZbH4P7V|[,paP7V|[Q?4P7V|[ugaP7V|\@64P7V|\d^aP7 !V|]/-4P7V|]SUaP7V|]w~4P7V|^BLaP7V|^fu4P7V|_1CaP7V|_Ul4P7V|_z:aP7V|`Dc4P7V|`i1aP7 !V|a3Z4P7V|aX(aP7V|a|Q4P7V|bFyaP7V|bkH4P7V|c5paP7V|cZ?4P7V|c~gaP7V|dI64P7V|dm^aP7 !V|e8-4P7V|e\UaP7V|f&~4P7V|fKLaP7V|fou4P7V|g:CaP7V|g^l4P7V|h):aP7V|hMc4P7V|hr1aP7 !V|ipaP7V|kc?4P7V|l-gaP7V|lR64P7V|lv^aP7 !V|mA-4P7V|meUaP7V|n/~4P7V|nTLaP7V|nxu4P7V|oCCaP7V|ogl4P7V|p2:aP7V|pVc4P7V|p{1aP7 !V|qEZ4P7V|qj(aP7V|r4Q4P7V|rXyaP7V|r}H4P7V|sGpaP7V|sl?4P7V|t6gaP7V|t[64P7V|u%^aP7 !V|uJ-4P7V|unUaP7V|v8~4P7V|v]LaP7V|w'u4P7V|wLCaP7V|wpl4P7V|x;:aP7V|x_c4P7V|y*1aP7 !V|yNZ4P7V|ys(aP7V|z=Q4P7V|zayaP7V|{,H4P7V|{PpaP7V|{u?4P7V||?gaP7V||d64P7V|}.^aP7 !V|}S-4P7V|}wUaP7V|~A~4P7V|~fLaP7V~%0u4P7V~%UCaP7V~%yl4P7V~&D:aP7V~&hc4P7V~'31aP7 !V~'WZ4P7V~'|(aP7V~(FQ4P7V~(jyaP7V~)5H4P7V~)YpaP7V~)~?4P7V~*HgaP7V~*m64P7V~+7^aP7 !V~+\-4P7V~,&UaP7V~,J~4P7V~,oLaP7V~-9u4P7V~-^CaP7V~.(l4P7V~.M:aP7V~.qc4P7V~/<1aP7 !V~/`Z4P7V~0+(aP7V~0OQ4P7V~0syaP7V~1>H4P7V~1bpaP7V~2-?4P7V~2QgaP7V~2v64P7V~3@^aP7 !V~3e-4P7V~4/UaP7V~4S~4P7V~4xLaP7V~5Bu4P7V~5gCaP7V~61l4P7V~6V:aP7V~6zc4P7V~7E1aP7 !V~7iZ4P7V~84(aP7V~8XQ4P7V~8|yaP7V~9GH4P7V~9kpaP7V~:6?4P7V~:ZgaP7V~;%64P7V~;I^aP7 !V~;n-4P7V~<8UaP7V~<\~4P7V~='LaP7V~=Ku4P7V~=pCaP7V~>:l4P7V~>_:aP7V~?)c4P7V~?N1aP7 !V~?rZ4P7V~@=(aP7V~@aQ4P7V~A+yaP7V~APH4P7V~AtpaP7V~B??4P7V~BcgaP7V~C.64P7V~CR^aP7 !V~Cw-4P7V~DAUaP7V~De~4P7V~E0LaP7V~ETu4P7V~EyCaP7V~FCl4P7V~Fh:aP7V~G2c4P7V~GW1aP7 !V~G{Z4P7V~HF(aP7V~HjQ4P7V~I4yaP7V~IYH4P7V~I}paP7V~JH?4P7V~JlgaP7V~K764P7V~K[^aP7 !V~L&-4P7V~LJUaP7V~Ln~4P7V~M9LaP7V~M]u4P7V~N(CaP7V~NLl4P7V~Nq:aP7V~O;c4P7V~O`1aP7 !V~P*Z4P7V~PO(aP7V~PsQ4P7V~Q=yaP7V~QbH4P7V~R,paP7V~RQ?4P7V~RugaP7V~S@64P7V~Sd^aP7 !V~T/-4P7V~TSUaP7V~Tw~4P7V~UBLaP7V~Ufu4P7V~V1CaP7V~VUl4P7V~Vz:aP7V~WDc4P7V~Wi1aP7 !V~X3Z4P7V~XX(aP7V~X|Q4P7V~YFyaP7V~YkH4P7V~Z5paP7V~ZZ?4P7V~Z~gaP7V~[I64P7V~[m^aP7 !V~\8-4P7V~\\UaP7V~]&~4P7V~]KLaP7V~]ou4P7V~^:CaP7V~^^l4P7V~_):aP7V~_Mc4P7V~_r1aP7 !V~`paP7V~bc?4P7V~c-gaP7V~cR64P7V~cv^aP7 !V~dA-4P7V~deUaP7V~e/~4P7V~eTLaP7V~exu4P7V~fCCaP7V~fgl4P7V~g2:aP7V~gVc4P7V~g{1aP7 !V~hEZ4P7V~hj(aP7V~i4Q4P7V~iXyaP7V~i}H4P7V~jGpaP7V~jl?4P7V~k6gaP7V~k[64P7V~l%^aP7 !V~lJ-4P7V~lnUaP7V~m8~4P7V~m]LaP7V~n'u4P7V~nLCaP7V~npl4P7V~o;:aP7V~o_c4P7V~p*1aP7 !V~pNZ4P7V~ps(aP7V~q=Q4P7V~qayaP7V~r,H4P7V~rPpaP7V~ru?4P7V~s?gaP7V~sd64P7V~t.^aP7 !V~tS-4P7V~twUaP7V~uA~4P7V~ufLaP7V~v0u4P7V~vUCaP7V~vyl4P7V~wD:aP7V~whc4P7V~x31aP7 !V~xWZ4P7V~x|(aP7V~yFQ4P7V~yjyaP7V~z5H4P7V~zYpaP7V~z~?4P7V~{HgaP7V~{m64P7V~|7^aP7 !V~|\-4P7V~}&UaP7V~}J~4P7V~}oLaP7V~~9u4P7V~~^CaP7W.R%G/VBW.R)'4)BW.R,a8VBW.R0A=)B !W.R3{AVBW.R7[F)BW.R;;JVBW.R>uO)BW.RBUSVBW.RF5X)BW.RIo\VBW.RMOa)BW.RQ/eVBW.RTij)B !W.RXInVBW.R\)s)BW.R_cwVBW.RcC|)BW.Rf~&VBW.Rj^+)BW.Rn>/VBW.Rqx4)BW.RuX8VBW.Ry8=)B !W.R|rAVBW.S&RF)BW.S*2JVBW.S-lO)BW.S1LSVBW.S5,X)BW.S8f\VBW.S]4)BW.UB=8VBW.UEw=)B !W.UIWAVBW.UM7F)BW.UPqJVBW.UTQO)BW.UX1SVBW.U[kX)BW.U_K\VBW.Uc+a)BW.UfeeVBW.UjEj)B !W.Un%nVBW.Uq_s)BW.Uu?wVBW.Uxy|)BW.U|Z&VBW.V&:+)BW.V)t/VBW.V-T4)BW.V148VBW.V4n=)B !W.V8NAVBW.V<.F)BW.V?hJVBW.VCHO)BW.VG(SVBW.VJbX)BW.VNB\VBW.VQ|a)BW.VU\eVBW.VYDs)BW.XA~wVBW.XE^|)BW.XI?&VBW.XLy+)BW.XPY/VBW.XT94)BW.XWs8VBW.X[S=)B !W.X_3AVBW.XbmF)BW.XfMJVBW.Xj-O)BW.XmgSVBW.XqGX)BW.Xu'\VBW.Xxaa)BW.X|AeVBW.Y%{j)B !W.Y)[nVBW.Y-;s)BW.Y0uwVBW.Y4U|)BW.Y86&VBW.Y;p+)BW.Y?P/VBW.YC04)BW.YFj8VBW.YJJ=)B !W.YN*AVBW.YQdF)BW.YUDJVBW.YX~O)BW.Y\^SVBW.Y`>X)BW.Ycx\VBW.YgXa)BW.Yk8eVBW.Ynrj)B !W.YrRnVBW.Yv2s)BW.YylwVBW.Y}L|)BW.Z'-&VBW.Z*g+)BW.Z.G/VBW.Z2'4)BW.Z5a8VBW.Z9A=)B !W.Z<{AVBW.Z@[F)BW.ZD;JVBW.ZGuO)BW.ZKUSVBW.ZO5X)BW.ZRo\VBW.ZVOa)BW.ZZ/eVBW.Z]ij)B !W.ZaInVBW.Ze)s)BW.ZhcwVBW.ZlC|)BW.Zo~&VBW.Zs^+)BW.Zw>/VBW.Zzx4)BW.Z~X8VBW.[(8=)B !W.[+rAVBW.[/RF)BW.[32JVBW.[6lO)BW.[:LSVBW.[>,X)BW.[Af\VBW.[EFa)BW.[I&eVBW.[L`j)B !W.[P@nVBW.[Szs)BW.[WZwVBW.[[:|)BW.[^u&VBW.[bU+)BW.[f5/VBW.[io4)BW.[mO8VBW.[q/=)B !W.[tiAVBW.[xIF)BW.[|)JVBW.\%cO)BW.\)CSVBW.\,}X)BW.\0]\VBW.\4=a)BW.\7weVBW.\;Wj)B !W.\?7nVBW.\Bqs)BW.\FQwVBW.\J1|)BW.\Ml&VBW.\QL+)BW.\U,/VBW.\Xf4)BW.\\F8VBW.\`&=)B !W.\c`AVBW.\g@F)BW.\jzJVBW.\nZO)BW.\r:SVBW.\utX)BW.\yT\VBW.\}4a)BW.]&neVBW.]*Nj)B !W.]..nVBW.]1hs)BW.]5HwVBW.]9(|)BW.]ySVBW._BYX)BW._F9\VBW._Isa)BW._MSeVBW._Q3j)B !W._TmnVBW._XMs)BW._\-wVBW.__g|)BW._cH&VBW._g(+)BW._jb/VBW._nB4)BW._q|8VBW._u\=)B !W._yX)BW.alx\VBW.apXa)BW.at8eVBW.awrj)B !W.a{RnVBW.b%2s)BW.b(lwVBW.b,L|)BW.b0-&VBW.b3g+)BW.b7G/VBW.b;'4)BW.b>a8VBW.bBA=)B !W.bE{AVBW.bI[F)BW.bM;JVBW.bPuO)BW.bTUSVBW.bX5X)BW.b[o\VBW.b_Oa)BW.bc/eVBW.bfij)B !W.bjInVBW.bn)s)BW.bqcwVBW.buC|)BW.bx~&VBW.b|^+)BW.c&>/VBW.c)x4)BW.c-X8VBW.c18=)B !W.c4rAVBW.c8RF)BW.c<2JVBW.c?lO)BW.cCLSVBW.cG,X)BW.cJf\VBW.cNFa)BW.cR&eVBW.cU`j)B !W.cY@nVBW.c\zs)BW.c`ZwVBW.cd:|)BW.cgu&VBW.ckU+)BW.co5/VBW.cro4)BW.cvO8VBW.cz/=)B !W.c}iAVBW.d'IF)BW.d+)JVBW.d.cO)BW.d2CSVBW.d5}X)BW.d9]\VBW.d==a)BW.d@weVBW.dDWj)B !W.dH7nVBW.dKqs)BW.dOQwVBW.dS1|)BW.dVl&VBW.dZL+)BW.d^,/VBW.daf4)BW.deF8VBW.di&=)B !W.dl`AVBW.dp@F)BW.dszJVBW.dwZO)BW.d{:SVBW.d~tX)BW.e(T\VBW.e,4a)BW.e/neVBW.e3Nj)B !W.e7.nVBW.e:hs)BW.e>HwVBW.eB(|)BW.eEc&VBW.eIC+)BW.eL}/VBW.eP]4)BW.eT=8VBW.eWw=)B !W.e[WAVBW.e_7F)BW.ebqJVBW.efQO)BW.ej1SVBW.emkX)BW.eqK\VBW.eu+a)BW.exeeVBW.e|Ej)B !W.f&%nVBW.f)_s)BW.f-?wVBW.f0y|)BW.f4Z&VBW.f8:+)BW.f;t/VBW.f?T4)BW.fC48VBW.fFn=)B !W.fJNAVBW.fN.F)BW.fQhJVBW.fUHO)BW.fY(SVBW.f\bX)BW.f`B\VBW.fc|a)BW.fg\eVBW.fk0\VBW.hAja)BW.hEJeVBW.hI*j)B !W.hLdnVBW.hPDs)BW.hS~wVBW.hW^|)BW.h[?&VBW.h^y+)BW.hbY/VBW.hf94)BW.his8VBW.hmS=)B !W.hq3AVBW.htmF)BW.hxMJVBW.h|-O)BW.i%gSVBW.i)GX)BW.i-'\VBW.i0aa)BW.i4AeVBW.i7{j)B !W.i;[nVBW.i?;s)BW.iBuwVBW.iFU|)BW.iJ6&VBW.iMp+)BW.iQP/VBW.iU04)BW.iXj8VBW.i\J=)B !W.i`*AVBW.icdF)BW.igDJVBW.ij~O)BW.in^SVBW.ir>X)BW.iux\VBW.iyXa)BW.i}8eVBW.j&rj)B !W.j*RnVBW.j.2s)BW.j1lwVBW.j5L|)BW.j9-&VBW.j/VBW.k2x4)BW.k6X8VBW.k:8=)B !W.k=rAVBW.kARF)BW.kE2JVBW.kHlO)BW.kLLSVBW.kP,X)BW.kSf\VBW.kWFa)BW.k[&eVBW.k^`j)B !W.kb@nVBW.kezs)BW.kiZwVBW.km:|)BW.kpu&VBW.ktU+)BW.kx5/VBW.k{o4)BW.l%O8VBW.l)/=)B !W.l,iAVBW.l0IF)BW.l4)JVBW.l7cO)BW.l;CSVBW.l>}X)BW.lB]\VBW.lF=a)BW.lIweVBW.lMWj)B !W.lQ7nVBW.lTqs)BW.lXQwVBW.l\1|)BW.l_l&VBW.lcL+)BW.lg,/VBW.ljf4)BW.lnF8VBW.lr&=)B !W.lu`AVBW.ly@F)BW.l|zJVBW.m&ZO)BW.m*:SVBW.m-tX)BW.m1T\VBW.m54a)BW.m8neVBW.me=)B !W.oBEAVBW.oF%F)BW.oI_JVBW.oM?O)BW.oPySVBW.oTYX)BW.oX9\VBW.o[sa)BW.o_SeVBW.oc3j)B !W.ofmnVBW.ojMs)BW.on-wVBW.oqg|)BW.ouH&VBW.oy(+)BW.o|b/VBW.p&B4)BW.p)|8VBW.p-\=)B !W.p1X)BW.q~x\VBW.r(Xa)BW.r,8eVBW.r/rj)B !W.r3RnVBW.r72s)BW.r:lwVBW.r>L|)BW.rB-&VBW.rEg+)BW.rIG/VBW.rM'4)BW.rPa8VBW.rTA=)B !W.rW{AVBW.r[[F)BW.r_;JVBW.rbuO)BW.rfUSVBW.rj5X)BW.rmo\VBW.rqOa)BW.ru/eVBW.rxij)B !W.r|InVBW.s&)s)BW.s)cwVBW.s-C|)BW.s0~&VBW.s4^+)BW.s8>/VBW.s;x4)BW.s?X8VBW.sC8=)B !W.sFrAVBW.sJRF)BW.sN2JVBW.sQlO)BW.sULSVBW.sY,X)BW.s\f\VBW.s`Fa)BW.sd&eVBW.sg`j)B !W.sk@nVBW.snzs)BW.srZwVBW.sv:|)BW.syu&VBW.s}U+)BW.t'5/VBW.t*o4)BW.t.O8VBW.t2/=)B !W.t5iAVBW.t9IF)BW.t=)JVBW.t@cO)BW.tDCSVBW.tG}X)BW.tK]\VBW.tO=a)BW.tRweVBW.tVWj)B !W.tZ7nVBW.t]qs)BW.taQwVBW.te1|)BW.thl&VBW.tlL+)BW.tp,/VBW.tsf4)BW.twF8VBW.t{&=)B !W.t~`AVBW.u(@F)BW.u+zJVBW.u/ZO)BW.u3:SVBW.u6tX)BW.u:T\VBW.u>4a)BW.uAneVBW.uENj)B !W.uI.nVBW.uLhs)BW.uPHwVBW.uT(|)BW.uWc&VBW.u[C+)BW.u^}/VBW.ub]4)BW.uf=8VBW.uiw=)B !W.umWAVBW.uq7F)BW.utqJVBW.uxQO)BW.u|1SVBW.v%kX)BW.v)K\VBW.v-+a)BW.v0eeVBW.v4Ej)B !W.v8%nVBW.v;_s)BW.v??wVBW.vBy|)BW.vFZ&VBW.vJ:+)BW.vMt/VBW.vQT4)BW.vU48VBW.vXn=)B !W.v\NAVBW.v`.F)BW.vchJVBW.vgHO)BW.vk(SVBW.vnbX)BW.vrB\VBW.vu|a)BW.vy\eVBW.v}X)BW.z-x\VBW.z1Xa)BW.z58eVBW.z8rj)B !W.z/VBW.{Dx4)BW.{HX8VBW.{L8=)B !W.{OrAVBW.{SRF)BW.{W2JVBW.{ZlO)BW.{^LSVBW.{b,X)BW.{ef\VBW.{iFa)BW.{m&eVBW.{p`j)B !W.{t@nVBW.{wzs)BW.{{ZwVBW.|%:|)BW.|(u&VBW.|,U+)BW.|05/VBW.|3o4)BW.|7O8VBW.|;/=)B !W.|>iAVBW.|BIF)BW.|F)JVBW.|IcO)BW.|MCSVBW.|P}X)BW.|T]\VBW.|X=a)BW.|[weVBW.|_Wj)B !W.|c7nVBW.|fqs)BW.|jQwVBW.|n1|)BW.|ql&VBW.|uL+)BW.|y,/VBW.||f4)BW.}&F8VBW.}*&=)B !W.}-`AVBW.}1@F)BW.}4zJVBW.}8ZO)BW.}<:SVBW.}?tX)BW.}CT\VBW.}G4a)BW.}JneVBW.}NNj)B !W.}R.nVBW.}Uhs)BW.}YHwVBW.}](|)BW.}`c&VBW.}dC+)BW.}g}/VBW.}k]4)BW.}o=8VBW.}rw=)B !W.}vWAVBW.}z7F)BW.}}qJVBW.~'QO)BW.~+1SVBW.~.kX)BW.~2K\VBW.~6+a)BW.~9eeVBW.~=Ej)B !W.~A%nVBW.~D_s)BW.~H?wVBW.~Ky|)BW.~OZ&VBW.~S:+)BW.~Vt/VBW.~ZT4)BW.~^48VBW.~an=)B !W.~eNAVBW.~i.F)BW.~lhJVBW.~pHO)BW.~t(SVBW.~wbX)BW.~{B\VBW.~~|a)BW0%(\eVBW0%,Q&VBW0%B1+)BW0%Ek/VBW0%IK4)BW0%M+8VBW0%Pe=)B !W0%TEAVBW0%X%F)BW0%[_JVBW0%_?O)BW0%bySVBW0%fYX)BW0%j9\VBW0%msa)BW0%qSeVBW0%u3j)B !W0%xmnVBW0%|Ms)BW0&&-wVBW0&)g|)BW0&-H&VBW0&1(+)BW0&4b/VBW0&8B4)BW0&;|8VBW0&?\=)B !W0&CX)BW0(6x\VBW0(:Xa)BW0(>8eVBW0(Arj)B !W0(ERnVBW0(I2s)BW0(LlwVBW0(PL|)BW0(T-&VBW0(Wg+)BW0([G/VBW0(_'4)BW0(ba8VBW0(fA=)B !W0(i{AVBW0(m[F)BW0(q;JVBW0(tuO)BW0(xUSVBW0(|5X)BW0)%o\VBW0))Oa)BW0)-/eVBW0)0ij)B !W0)4InVBW0)8)s)BW0);cwVBW0)?C|)BW0)B~&VBW0)F^+)BW0)J>/VBW0)Mx4)BW0)QX8VBW0)U8=)B !W0)XrAVBW0)\RF)BW0)`2JVBW0)clO)BW0)gLSVBW0)k,X)BW0)nf\VBW0)rFa)BW0)v&eVBW0)y`j)B !W0)}@nVBW0*&zs)BW0**ZwVBW0*.:|)BW0*1u&VBW0*5U+)BW0*95/VBW0*mF)B #% [ 2592] d.expdat !SCEEY54}SC?7Oag?SC@(~sFuSC?od4a\SCAF&'oDSCBR<3XmSCDF\15CSCF3LbcWSCH9Zq{ASCJF4es, !SCLQ[v[bSCNk+.-wSCPrs8w0SCS5H^'|SCU5EM4LSCWOwGUGSCYFO4JUSC[]8zf`SC]K>e)FSC_`(HIz !SCaJU_?FSCcb*_=hSCeM.MkSSCgiW{NaSCiV~^SeSCkyA}/eSCmj(9hNSCp8Mgl&SCr,Z'x;SCtZS9PW !SCvQ38OqSCy)A[RESCz{aMPlSC}WL[jM'tSE,gPyYGSE.cl*ZoSE1I0DcJ !SE3Fp.3~SE6/J'UoSE8.bpVVSE:t[wJYSE_RSEn_~<\qSEp|aMj@SEt>B&L[SEv]RXwuSEy}A/SuSE|DxnF0SG%hoKN1 !SG(2hkA0SG+Z^[f\SG.&p%o/SG1Rm;b7SG3{Gqq6SG7Qa55lSG9|vxe8SG=Wt0WMSG@,8*reSGCfRsT` !SGF>hm\uSGJ%?u>7SGL\22nDSGPIP+-FSGS+?NSySGVyf-%-SGY`aFx@SG]\CpYlSG`HJE{9SGdK9m^S !SGg<-efTSGkEf\93SGn;.B/iSGrKNlpoSGuE=h)vSGy\JHD>SG|ZaWMNSI&xdt-cSI){OSP;SI.FV]NU !SI1MtA({SI5z4^%zSI9,83;:SI=`%y3ASI@q&Z?&SIERgs}|SIHi,l}lSIMS=nXiSIPoOYwmSIUbtXQJ !SIY+jA?_SI^)KM:SSIaSj)^{SIf\H\BtSIj4bF2:SIoHp9@ESIs)J?E-SIxIT2s\SI|2ZvU7SK'^w,,+ !SK+PKZPKSK1/%BLwSK5(zzU_SK:n0-_JSK>piN]`SKDi(xu&SKHtiOHwSKNzn|=4SKS6/?^[SKYJj{`- !SK]jI^RvSKd4iu'/SKh_PnxhSKo:KcweSKspk.}?SKz]+RZ*SM%ELQxTSM,CcqlgSM18;6&@SM8Hdo:? !SM=Ht^[nSMDk?Yh`reSOE8;H:WSON~0Es0SOUx26gwSO`+c(_rSOg0nLb?SOq>k~PK !SOxA>sD)SQ)(5yNMSQ0Qm/fxSQ;kev=dSQCaKU-_SQO]?.(_SQWo`q)vSQdP\]X9LSSAcC<~*SSPY]V@~SS[3Tl*ESSk,>GqBSSv9xU&SUKaPDqZ !SUXc`|9xSUlT>8Y3SUzkSSvAuJKlSU/n^zVNSU:2vtrzSUDOsGJ(SUJCa'&(SUP|xA%fSUQW]w>' !SUPZ8\eeSUCe<49/SU8]i&}7SU'*)%MRSSl@rj0\SSM&L.u[SS+`1qtKSQ[,lzs8SQ/WG2kxSO\N~D6N !SO9`y5N-SMydG\h2SMjx{w%fSM\|~,JqSM[SS|hvSM](Fy]pSMbJQ9]/SMg=kGt|SMpQB_8uSMw9e)(c !SM~k'f.VSO&MK*|qSO&wEyHkSM{;wF[VSMspM5c2SMhabW^sSMbS}OJySM^A'-fdSM_{M?F@SM`m.]JQ !SMcyO&mnSMb2:*+qSM]HKPWISMRq>;C&SMIwa*naSMA)6KqFSM=];0NzSM;5l8uRSM<;`wn]SM:{rjMj !SM9foe1*SM3Uv];vSM,-0X-FSK{FWb9pSKrm_.PCSKi&7+A]SKaQyzo|SKX<2>tWSKP])9&(SKF_M=5R1SE\aBm:*SEXeu``vSEVD/78MSEXoVCUgSE]i4AraSEgbG{3USEs)kXMj !SG'?L5\aSG4`J3|qSGBZuQSaSGMlwe~JSGX9Us}|SG_fof{-SGgP@KW)SGlIgD[ASGo;=]7)SGm>(Sw0 !SGjF=>JqSGe,iSjXSG_@[2%)SGVAwAGCSGM7AJccSGBdYk3iSG9mQ>,+SG0kmlAqSG*Wn3>tSG%fF|~F !SE~w.SQNSG%ph>6[SG*K0sVbSG05AM).SG8e5jA8SG@IGMLCSGG;^r_bSGI7^i1.SGFK{`InSG;nF.Ck !SG,2'bdESEpj:ouoSEY5nuNmSE?1^HMZSE&*<+t;SCg6k:[ISCQEFGT|SC<_ecxTSC*c[sc:SAs,pz]h !SAc'z\fxSAR4U+r9SABEAB^CSA1n{%+uS?|I[w}[S?l9mIg&S?]X>E&4S?O{>zamS?FUePc2S???o){e !S?;'6WadS?7ETIlcS?6KKA%fS?6zTFZgS?;2UMwaS?Af2ZNmS?LV8G4XS?YSb4BLS?inP,O@S?{B'(V2 !SA5Ez?cNSAIqD~9DSA_zCaieSAuEe}fHSC0n>'T\SCC2fJ,7SCRizvF8SC]y9Mq6SCfjbNThSCkwN&Xh !SCnRC0t7SClOU-b;SCg]rZ?JSC_AHOySSCU~Vc0pSCJY/x8aSC>|+(DBSC1t`_tKSC%1X`bSSAqO|xv9 !SAdt>qivSAXWrPyKSANc\|.ZSAE|w)_FSA?rh46>SA:bC8ccSA7]b}22SA4jrXsqSA38s3IISA1+94nY !SA/F8\t?SA,N?[EISA)bo7TlSA%dvC;nS?|K5|-FS?yFZAtdS?xncAP;S?yeKzb7S?}_,D:wSA)+W^Yl !SA0qRK=TSA8_HeWzSAA%[J*5SAG]cf8GSANYVuLGSAM]HM@ZSAH=XohNSA?yz+,3SA3yl !S;fu|H]HS;h>/k-cS;ky^PO@S;p=5S@rS;uu~:pOS;{EyR}?S='mW(HkS=.0w.D6S=5P6Z5dS=hz@RES=;Zp/oLS=94GKQFS=6C9=L{S=3yw'dIS=0y06Z{S=.;-al{S=*sC{/Q !S='jn&MJS;~%NWQwS;zYc`CgS;vV@Gl*S;rj1MD^S;n)4hz.S;i-m{w4S;buRsjTS;\K~.X(S;Tw??\Y !S;MOAgFDS;EI@,J(S;>+C&wUS;6xq\MJS;1-%m}?S;+\jzxPS;'Ag?JiS9}3janYS9y}>=^kS9vdqd]d !S9t1zH[ES9qFvd`zS9oM&-nmS9mbbw^KS9m1|74HS9l|,9smS9n'If03S9oE(_gOS9qfVRqVS9t)K,ls !S9vuUSl6S9y2)_PlS9{UV?MZS9}/yuX0S9~ee4JyS;%Heg}'S;%yeeopS;%ESGyoS9~M4,LOS9|Ca-7f !S9y~FEO,S9vcpRneS9sNg02ZS9o[85=PS9l7@<,_S9h`>`l_S9e{COn}S9cEPLzZS9ahTV^2S9`EGyR- !S9`0t`5|S9`NRem%S9bMy@pCS9eAT[;bS9ibXu1;S9n5vdY_S9s'}]6:S9w'qaVbS9ze^-^[S9}(@]g_ !S9~`90T7S9~mu^x3S9~V]d(_S9}U/&uRS9|sykbhS9{{0nXDS9{apP*rS9{@,,22S9{[ErVjS9{dLG(& !S9|1I9yOS9{r24b'S9{Vw|5tS9zO3CXXS9yUTt|Q(gS9L~NxG_ !S9JX{TJuS9Go@4=4S9EPm>HJS9BoSkUkS9@U-BU&S9=mAv+PS9;>IOqJS988t4uNS95A^4xdS91rJ>V6 !S9.XBMtpS9*j/mf\S9'8E?LkS7}?_U6{S7ylGp2.S7v(pio+S7riPsYxS7o9yn6gS7l2adTlS7hqTgi~ !S7f,=ctOS7c;\33zS7a1YxIbS7_.0ploS7]qX`:KS7\dp:b?S7\ERVS7\X/&_^S7]'lZp& !S7^-t}9LS7_(rPFHS7`QO&Q !S7XV99e]S7W%{{vjS7V/y?}lS7U?=T0XS7U2{(psS7U+6zd^S7U[>(4yS7W/B+@%S7V0KYlN !S7UYO8dvS7TxPGfHS7TkcYk;S7TT>6HBS7Tcp@{=S7Ta*C?*S7U%sCtxS7U.TNXmS7UTsVAIS7UabAIj !S7V/Ify*S7V;v\M%S7VbC;;BS7Vm=HhBS7W6`i^sS7W;o>C3S7WT?P@AS7WG7kDFS7WFuX:gS7Vx'm+P !S7V[j.-wS7Ut9L*mS7UCv2:wS7TKb}22S7Sf;ZhBS7R_uZZ2S7QlR.tGS7PX9\5SS7OVL}hJS7N31\&0 !S7Lz{,qfS7KEosp7S7Iz5uF@S7H/x|oHS7FLMs`%S7DABXQoS7B@fDXPS7?qh_>WS7=S=+R^S7:gE{kp !S78-CAEeS75((bMbS721?]D%S7.s@K=TS7+nX|5OS7(M>w/(S7%CGzi-S5{{YA7VS5xv@AwUS5u^0e\m !S5rf*Y/eS5o]ZUuBS5lud\_:S5i}8-k3S5gM|2D^S5doGI]dS5bglA:GS5`m;|,3S5_^?LX}S5^e]>4uNS5_|cdKtS5`JxHCOS5a,,AMJS5aEZ`zJS5ak3s|DS5al{[VJ !S5a}_-5dS5ar9{|qS5a|C_J@S5ambtx7S5auI(i~S5acJjIfS5aee/AaS5aM+QcsS5aH9S^KS5a(zSvA !S5`x`.eIS5`U6Rq{S5`F|kk;S5_y=%s}S5_eT?5dS5_6Q1(GS5^sSlA(S5^9jQ`9S5]j41&ES5\{1_`5 !S5\?KU?sS5[=jeh2S5ZK:_niS5Y=rQzVS5XH2)17S5W?|&fTS5VT1WtCS5UWo&6gS5Tw/L[%S5T)>hS5Q<}f*QS5Pc,z9dS5Oq*mg&S5O8r=ywS5NA5}~cS5M[DqKTS5LZ^a6c !S5Kksm[=S5Jd<{&YS5IrbpRvS5Ho)u2rS5H.4[)rS5G:S4*1S5Fgpw@rS5F3Y`VjS5F&3kC{S5EnPI~R !S5F(5qLgS5F1Z8_^S5FS>*,;S5FYZ:S@S5Fkc~9hS5F\NgnqS5FWArhZS5F3~I?gS5Ez>^B@S5ELu.79 !S5E2%IQ2S5DZSlt+S5D?6g9HS5Cj^VkxS5CS2xL.S5C'7@&8S5BgpfUoS5B2-{A@S5AaY<&}S5@qo3im !S5@4,}@fS5?6OAFyS5>NO|@IS5=UL~6RS51CS5:nPeccS5:?7;tKS59T/f(* !S58|ObC{S585LAEeS57\~.>SS56ooYO@S56gpsS3tW+2=DS3sL\h-{ !S3rY2FFuS3qTTSt?S3pe2V4LS3oc5q(?S3nu=h4qS3msi+'dS3m*oLp*S3l&for~S3k4<&BtS3j,nYHo !S3i8&O9xS3h0iLT/S3g?m-5?S3f?aHs>7nS3Qdmgk[ !S3QM'8J}S3P~V8qNS3PhD+/mS3P>:i\qS3O}K?s`S3OL}S=8S3O*uwa !S3Ff)wCcS3F4Mmz*S3EqwR^.S3EEo,i9S3E+a_~WS3DY*B/DS3DB.-RS3A)<]U&S3@_tv_`OE=S3>Gl+IfS3=v`w)FS3=[F2+0S3=-y`97S3[S33/gXy.S326d=@%S31NqH3=S30VfhcoS3/oAX&uS3.ve?m5S3.3hEbxS3-9)lIV !S3,McBc[S3+PWzXPS3*bi(HkS3)cGY5GS3(saK8aS3's/'&MS3')2WGlS3&)xVamS3%=QA:GS1~C|Fq% !S1}^^50xS1|m7p_rS1|6Z&&yS1{NIy6{S1z{?%J1CS1gZ]yYlS1ffA0_{S1f(=e`qS1e5gB8< !S1dT5|N5S1ce7hwaS1c.m>9pS1bF}bC2S1ar~&a_ !S1^{~_u_S1^Iuy40S1^&AR~wS1]M;r>+S1]*(u[jS1\RdgR-S1\1y:eyS1[]Mz?kS1[?_m}dS1Zn2r[9 !S1ZS/*CCS1Z*-p`aS1Yk*NsTS1YCNTdIS1Y*qrmMS1X\:I@1S1X@tGx\S1WnH7tGS1WNWazBS1VwMTp2 !S1VS1o?2S1Ux/'C[S1UP^;%NS1TsMuZ{S1TK-+>lS1Snr~o7S1SJMMV)S1RvL2<1S1R]@ut+S1R;Ssie !S1R-^%JaS1Qn8p[IS1Qb[D'+S1QC;klsS1Q+iowqS1PX/C,KS1P25|`IS1ORYONYS1O&X=07S1NHD-e, !S1M|e{o+S1MMD]JuS1M1I1V{S1LdwYtWS1LO.rm)S1L+XFx@S1KpMBMBS1KL68;6S1K585lsS1Jh227b !S1JMB'J,S1I{hq*eS1I\=2KxS1I,R)rIS1Hcl()6S1H2v9MfS1Gl6^/b~)kxS1>)|F(.S1=Y7E+qS1 !S16V%QRrS15uvdRES15I|*`-S14jf(GWS14?T_*AS13a'Uk[S136UNbxS12XlZRrS12/+IW9S11R0)eq !S11)10e]S10Lv+bKS1/~R]4\S1/Hj5O@S1.zc=ZBS1.E28btS1-w*}>dS1-AEnoLS1,rnwn8S1,<:FKD !S1+lBMfOS1%{1(\]S1%Xf;CKS1%)9.)rS/~a*>wIS/~1w\W1S/}jU~:3S/}=?v\QS/|y6UjHS/|P'sZB !S/|5}]SIS/{j>y1?S/{RC|c_S/{,:8)FS/zjJ7U[S/z={{kpS/yteHD>S/y@n\SQS/xp~XIAS/x8x5&m !S/whWY>?S/w2|S/k3b}]tS/jmp3'HS/j?W9|d !S/ivOK1GS/iEwO=XS/h{E0UKS/hJ%BmfS/h%:\d-S/gNHhI-S/g+.ueQS/fW)}`AS/f7PJL[S/egQ[f7 !S/eKimBXS/d~{GR1S/ddsr53S/d=9`6FS/cyx184S/cMr&%fS/c+nb9LS/bUQ*tCS/b0V>+`S/aZ+s=X !S/a83Em)S/`fl9?{S/`JqHPKS/`%\c:WS/_i58JYS/_Gk\zFS/_2We@rS/^j@FU*S/^R}5<=S/^-zqGt !S/]mTn>pS/]ETNu{S/](ZfysS/\XbPeYS/\:>sw,S/[iGI''S/[JQ4t`S/ZypC5hS/Z\9<2BS/Z3z@K+ !S/YsAXKDS/YN;{@vS/Y6di([S/Xn@\mnS/XXI(WiS/X6A/L[S/Wya=;2S/WV?8MJS/W>((v1S/Vr}JEA !S/VY8.1{S/V32[AES/UrnLm9S/ULP&/(S/U1}JSuS/TeYIw8S/TK%ZkWS/S~SeY|S/Schq5_S/S<|HRN !S/R{e:?NS/RT7oiaS/R7q[2jS/Qhb[MRS/QIq@57S/Pw`'1kS/PUW/M%S/P&4Nz%S/O[3/_:S/O)UF]X !S/N]H%8(S/N+op.rS/M`N~NIS/M0/gQ>S/Lf/Z%RS/L7.+P7S/Kn)sJ0S/K?MK3%S/JvFZu>S/JGW08< !S/I~4JF0S/IO-||hS/I+Z/?_S/HVfFl{S/H3dOIAS/G_ShNiS/G=73?cS/FifI^.S/FG~{L;S/Etw{z% !S/ES>er=S/E&+S/Bn&~;jS/B<~*b/S/Ap>4Q&S/A=EA93 !S/@o@FQJS/@<)B|dS/?oHE_bS/??lbflS/>xBTjPS/>NULG3S/>2icc*S/=g|'rYS/=ONt4XS/=+,y`a !S//hVS/5/0Fl{S/4a5xqj !S/4DPry[S/3vz53iS/3ZSeY|S/331lJDS/2p`gQcS/2H{z4(S/2+nrn_:S/.Uc^P+S/.;sfwqS/-qvrb/S/-X~|;2S/-5%Omj !S/,u?I}dS/,P,DErS/,4u-ZVS/+h0>UGS/+KJWXmS/*}JUe0S/*_lm]@S/*73dQ{S/)s*C_rS/)J.FFP !S/)+k}.RS/(\kJP;S/(>VX=}S/'ok`=S-}\id`US-}4FYayS-|p[I,dS-|HL?-[S-|*}_17S-{]>T>C !S-{@LCG|S-zs[?EvS-zW|&[ZS-z2dE^sS-yrh_7=S-yO/{8IS-y6T[JlS-tF}Dmz !S-t0f[gKS-skWk2`~S-p/T3thS-obh(fhS-oFQ}G7S-nz`QV.S-n_sBODS-n;~%?BS-m}Cf]/S-m[Y%57 !S-mDigC.S-l~DG{)S-lgxt>?S-lFMghFS-l-W3J8S-kbqF4`S-kFKW_>S-jxAd)NS-jX{PjqS-j/):VV !S-ii^.IrS-iA;@zNS-h~8eopS-hX]81OS-h>HuEQS-gu?jKDS-g\`PBhS-g9iI:sS-fz.<>tS-fUT[Mv !S-f9pgDfS-em40IbS-eOSL[%S-e'JWXmS-dc3-4uS-d;5(NMS-cwK3|(S-cP4H]HS-c34i9\S-bf[~&e !S-bI|R''S-a}?WVjS-a`4/=\S-a8tegCS-`u1R?BS-`MG1)6S-`/IY,OS-_a}H-6S-_E'b}tS-^y1[mv !S-^]wIAiS-^9kLzZS-]z/|OHS-]W5y`aS-]=zqVNS-\tN]QFS-\YwLWES-\4kOS-Y8nLiYS-XyIx~gS-XW+)39S-X>Z61_S-Wv><&} !S-W].J@)S-W9det?S-Vy5o\eS-VTDtV6S-V8Hg]pS-UlAxdIS-UOIRq2S-U(aA}[S-Te@9,xS-T>D'9t !S-Sz{yiYS-ST?}rzS-S7\u.%S-Rl5nP`S-RQ,L@=S-R-EV7=R}}.,g6WR}y?OD?FR}vYAXdrR}rmWdU[ !R}p%VB[vR}l)vnav~R}aYZDE)R}]6ukHoR}Yo2eiiR}ULqYMbR}R4t'%9R}M{lQP' !R}Ju=@mvR}Fs~]~BR}C}9>88R}@,^/dRR}=7Ua6cR}9:`?I1R}6:RUWER}20[(fDR}.|wuNmR}*f{7Y` !R}'Ppz]hR{}9<[sXR{z'uOnYR{us98N]R{rlg|,|R{nj+AraR{koDETDR{gw9JfTR{e)tK}/R{a5h)NE !R{^C]>yoR{ZO,Q7AR{WZz_3]R{ScNX:}' !R{;?2?%RR{7-b,p.R{3xo^7jR{/mPW6kR{,he3nRyVLvTsH !RySGia}|RyO92~VRRyK|`?T+RyGdu9&MRyDRN]BlRy@Lg+XdRy=Th2\0Ry9mQK7)Ry7:a%6&Ry3p_:=( !Ry1U4]fLRy.=;%XLRy+yFsL2Ry(TnVtpRy%~O7U7Rw|DUrF4RwyWr8t?Rwuc(Q>7Rwreg=ZgRwngZHB< !Rwkg4(2.RwgjGSS,RwdnS8{5Rw`yAdB|Rw^-b;)RRwZF/{Y7RwWf%j-FRwT9I/MJRwQoIT]TRwNX`6Iz !RwLHSQUcRwIB>Vo|RwGA({Rw>hM8T@RwGRuoPY(]'Rukv?pvV !Rui>T<2BRued|~r)Ruc,B'48Ru_P?c8URu\lZF-kRuY-qCUgRuV=@z`5RuRIt7u6RuOJ^O4`RuKJBHo7 !RuHAQW2BRuD=DdVJRuA:QUTTRu=J2`&4Ru:eU_?FRu7>RY[rRu4~-LcwRu1y*KV^Ru/zd\:kRu-,DKbG !Ru++n>KRs|%5l8URsy3/](sRsu5be)FRsr&HW{9Rsmv\t%ZRsjq>^B@Rsg(B,Z_ !RsdF9.<-Rs`~:H%RRs^hE~\}Rs[h,iK'RsYh^7:ORsVkm@8MRsT\b0bGRsQD\c_%RsNn5OdNRsK2b,K` !RsH9ftT3RsD:rHDbRsA/Q9]/Rs=--pk[Rs:)0zAIRs64Sw[~Rs3Ajft7Rs/_{0QkRs-%JV^{Rs)Rj\h{ !Rs&{2kDjRq}QPUN)Rqzxh|[VRqwKXn\IRqtmIm8(Rqq9^rMNRqnSsTyORqjr*Y[MRqh)q3oPRqd?nl=H !RqaIhK6_Rq]Xt]a}RqZ]8dQVRqVhs?VvRqSlg)e(RqO|k=A]RqM/PVGtRqIK@([IRqFd}4uNRqC4\aRq4mHNWYRq1G^sR9Rq.o~,G7Rq+D|0uJRq(g^u_JRq%7PH\Y !Ro|V)M*bxRov@-}-cRorfL9&qRop(tDIRRolO]%VJRoim+D4LRof;zueuRoc\^s]3Ro`/kYl* !Ro]T{HDbRoZ,cjw,RoWU|A&0RoT15}O@RoQ\P<1wRoN7]c^7RoK`>NXHRoH7=Z[jRoEZi5m=RoB,>;-2 !Ro?J2A'hRo;pV0sHRo90.jFuRo5Sw&jXRo2l@DwRo&6]YsiRm|_XGnQ !Rmz%LVd^RmvS}WmNRmsz-b3iRmpU;/`)Rmn'b+QoRmjbf]3%Rmh9}3Rm_2:9G_ !Rm\_kWf3RmY3\:gWRk;q0iw4Rk8e_Kx[)Rk1/6rEiRk.)J=4hRi=60kjqRi9FRr/,Ri6K{AKHRi2l%D*eRi0-3a@%Ri,fA^8Y !Ri*AfXv=Ri':\;sZ>[ReH.6NEEReE`2gCwReBKxg[I !Re?~fO9/Re|Re/ui)IvRe,}oFp[Re*t3?PKRe((>5YK !Re%}x+JyRc}6s{%jRc{6]tPSRcxM2xW)RcvO]voxRcsh//WURcqkNoe]Rco)wJ;ZRcm,)W97RcjB5R4m !Rch@O9=yRceQ.O>GRccGBse3{]RcNz{sWv !RcL5/be4RcHbZ;[fRcF(&*}_RcBhOjT;Rc@DyqAIRc=D]`H[Rc;:W3naRc8RNs7-Rc6]0_RIRc4)55z: !Rc28PXySRc/[Zd^.Rc-c,.)NRc*{D>E5Rc(ut/93Rc&&8nJYRa}lT=3MRaziddvnRaxJc:V{Rau>Wpfh !Rarqd,0TRao_H@h^Ram3y7>/Raiy5@{aRagMes{zRad1N+SMRa;~>,*qRa9,6?ygRa6r`5i]Ra3u6rTDRa1]1{|(Ra.\J)f`Ra,BFcpoRa)Abeuw !Ra'*G+r]R_~/VxpWR_{z/V6sR_y.OiH6R_w(j=3qR_tA2?7fR_rE,3iIR_ofFx;vR_mqN.DZR_k=jZ,G !R_iKuc1;R_ft&9|@R_e(bUcwR_bPI_tpR_`]SW0dR_^(^jDNR_\1Tl8yR_YP_dZ*R_WR%Al[R_Ti+v+, !R_Rb=`|(R_Oqp1;%R_MdT%GpR_JoOQ4PR_H`T*ndER]o?aL2RR]l]oJT@R]jc)h=hR]h*KHkW !R]f.nxz>R]cL%_mVR]aJ1Zt+R]^`:%I|uR]DGeuvvR]ApkIZ*R]?~`r'HR]=NA52VR];Yof5pR]9%P4y. !R]7+i|A8R]4K[pTxR]2Kb@^SR]/eRuK|R]-`.{SR[v4GFH.R[t'om2jR[q7vTG`R[o){|A8R[l8fZf@R[j)RuVvR[g7ERpgR[e'Q,k`R[b5@-@9 !R[`%{uD>R[]5LnWUR[[(}j{UR[X'MBR[8`-,R1R[6rWsmjR[4JzU3A !R[2_po7rR[0:Y+r]R[.QM46>R[,-vwN9R[*EzA2bR['}/F_6R[&:{e*~RY}p~hLgRY|,VJKHRYy_Xn-& !RYwqD\c>RYuF/qgORYsR|18YRYp|BUvVRYo({4YxRYlK6:t/RYjIN_tKRYgbr7RYS\/(2RRYQWO%VnRYNy~_B\RYM)@f(sRYJYJDY? !RYHniAa.(}@ARY<68dF\RY9X}CeURY7U-sgcRY4l\P%5 !RY2_8OW-RY/pW'l.RY-`8z/}RY*q0Ny[RY(a|&3QRY%uW@U7RW}j4e1ORW{(hk'\RWx}Cr>tRWvCodRWqox2'+RWo|{PjqRWmVS/{~RWkm5oQkRWiOozAIRWgnLQ3=RWeWHNthRWcyUsUsRWacF;]D !RW`*=uRWSs]ERWFY4Yi9RWC|x0:cRWA}[dNeRW?H8%b3RW=LNJraRW:vfS2bRW9'X(]pRW6X|0F( !RW4ji;+0RW2H]\l6RW0_ZX>GRW.@T5*MRW,VyZDbRW*42<\MRW(DiJvARW%u=l5dRU}~g^xXRU{NM8M% !RUyQnX9/RUvw2PCWRUtx~ds}RUrFvVnDRUpND%y;RUm}fb]+RUl3Oj,3RUik[L(kRUh)h~~[RUeiX6[E !RUd-[u2NRUapN'1kRU`3wW?>RU]sj(2.RU\2X}(&RUYlvN=iK'RULmjhJeRUJsSC0+RUHCdrw}RUFHj.V%RUCs1e({RUAy,~_%RU?KLfz>RU=T\~k3RU;,'J(W !RU9;L|?6RU6srt88RU50I/n8RU2owJJ4RU12x=T*kZWARS<7742:RS9pMV0lRS8,~j@IRS5q=oK@RS48y[B3RS2.6h:SRS0YzuP'RS.X/18} !RS-0Jk}tRS+1^wp;RS)brPjqRS'`@Ke]RS&1{H=HRQ~)&Z?&RQ|Mj9LSRQz>6)CoRQx\tNj\RQvI%5j( !RQtf,[F8RQrSc4E=RQpt*Q*ERQnf4qr%RQm1S@MRRQk(w~nmRQiS:uIVRQgO6%k+RQe|dxsmRQcz*D5; !RQbLvY;*RQ`HB0WqRQ^r.2%)RQ\iiOWQRQ[4xRRERQY'L]ODRQWF]%5[RQU2DzY?RQSIJ.5[RQQ,Api~ !RQO:C.,dRQLnt?NmRQJuQ\)FRQHJMvF8RQFMj~B`RQC}'r1.RQB,-zd^RQ?hrX@nRQ>+MFY/RQ<%+Sq* !RQ:YWDtRQ7ZtMpkRQ5~?RQ(E|96_RQ&6z:DBRO}If):.RO{+v4wQROx+_vRO\iHgaPRO[:['5pROXr}BC[ROV\5y<9ROSStC.rROPZzM@5ROLyZp*% !ROI\3TG;ROEoBtPSROBeKRMs[m.x'RMr-Jl9hRMp1OQ-6 !RMn_QE)%RMleP;J@RMk:g}9'RMiAiGR1RMgqLS.9RMex`>hnRMdMq0V:RMbT.?fdRMa'?(XXRM_+1cYh !RM]UI&<%RM[VKKk?RMY}eeRbRMW|9M[ARMVG7-hBRMTD;yX4RMRh]0_2RMPfm~YhRMO3Jy9lRMM4x_~2 !RMK_4~,lRMIds|&uRMH9;BBHRMFC>Du:RMDuVfJ,RMC)83qvRMA^)P]+RM?mg_8,RM>Ishd9RM|RKh@:jwQRKfj59KdRKduzI`1 !RKcL\iw}RKa_:b7nRK`;ollRIg9Z[EIRIe[dfjPRId;vy[IRIbeZhxP !RIaMBGqfRI`%@SJ4RI^nINsyRI]Mn3F4RI\B]njXRI[&zHizRIYwZIz)RIXZj@jRIS9T-[jRIQod1HFRIP7wMQ6RINe-rmrRIM';]`iRIKQ8FqJRIIovNi%RIHEDxA4RIFlap:7 !RIEK.\3QRIC|ubM>RIBdik@ARIAF8pWiRI@59wL[RI>u{%[=RI=ddNeDRIg^_* !RI**RheMRI(vCgVzRI'kgWDzRI&fk7,?RI%`,(-_RG~[Y`{9RG}ON'~BRG|Dt2NiRG{/P>cVRGyvz=5O !RGxWg?NIRGw>6LC.RGuqO'-BRGtUJO.~RGs.]OzfRGqs](o`RGpTf[gKRGoKw4UsRGn7fVKxRGm<]:IZ !RGl38%6JRGkDl@KPRGjCG1Q>RGi\jMf`RGh[bPOdRGgu=pWERGfnv6k3RGf+Rt?wRGdwd&USRGd0Sr.= !RGbu(jlVRGb+3TdIRG`iyj@nRG_{I;:.RG^_(2\yRG]vAqcoRG\[VLnMRG[{7D2%RGZcS1NqRGZ3Ir^O !RGXybX\ERGXUCYo@RGWF*Sc>RGW.mWGGRGU~-r|LRGUu0rd1RGTngvo/RGTu5X\ERGSrMB>hRGT/B4)B !RGS.|NgkRGSV}1_rRGRVA9:cRGS5d(|8RGR2tRI9]U`@R #% [ 2592] d.f1_cl !SC7a:+joSC8R@i[RSC:)z&R4SC;lcGTtSC=]+L[*SC?Qxf:@SCAIua9zSCCDgmIG !SCI>L\[,SCK?\1naSCMB5N*wSCOF-_?bSCQKA6tBSCSQmYxJSCUYW'TeSCWbV>QxSCYljUutSC[x9Bn* !SC^*vL?[SC`8mrsOSCbGym.zSCdX@Y%QSCfiv_yHSCh|h[+gSCk6q,.CSCmL6p8\SCobnc@FSCqzeU>T !SCt9vAX}SCvTH(aLSCxp5ii@SC{3@ZMUSC}QibU9SE%qX9l3SE(8gOnjSE*[>cxgSE-%99(-SE/JXIX4 !SE1qC_LKSE4?VG|_SE6i8-vSSE9:D?D?SE;f|SlSSE>;.F0\SE@jiN^ASECA{O'lSEEtf,PSSEHO+)`f !SEK+&2kNSEMbY7_.SEPAl+dZSER|``0{SEU_8usJSEXCPkexSE[)PDJ:SE]k9`c=SE`ThqI*SEc@,+Y, !SEf-9VW(SEhv9V**SEkg.F@GSEnYtH1PSEqNZ'0`SEtE;gd,SEw=v+xdr{lSGB1[~N{SGEFxGw] !SGH^cUJ:SGKx{&gKSGO;hQ\5SGR[/ezvSGU}.V1JSGYGhw>&SG\o.sS[SG`?8XBxSGcl0SG}7/u=-SI&|>{6ASI*jgnV1SI.\V'd1SI2QiA:X !SI6JMVPwSI:Fbl,ZSI>FUySIqlpLbgSIvI&C'tSI{*'lc)SK%i~jTUSK*U'V>OSK/E:i~E !SK4:iMTwSK95e&;ASK>69>fKSKC0;wdDSMDO:@;U !SMJw=Ce,SMQN^SGPSMX/^SHkSM^tYAeESMeil=b,SMli\66bSMstIL\LSM{0V*E1SO(RKsGhSO0&P[\j !SO7a2)E;SO?Nt4rrSOGJ5C8PSOOSXJXNSOWk[*'NSO`8qq:wSOhozZ*MSOq]VVDLSOz\DhG=SQ)m.@(U !SQ36Zi<2SQSQ[)v0GASQe_.ra+SQpS3=EdSQ{aDEbpSS-1,WCoSS8wte^h !SSE)IAkZSSQUKnZlSU<:S]rBSUKKv~l0SU[6=CbbSUkWOKce !SU|Yq=MLSW4B:_dS_L?_%VZS_zuAL`fSaU)ZF6nSc6;>VDtScz\qFI3 !SeqJykFoSgyuU;|NSkC+]9n{So6{4mMJSsdDg/(tSw_o)lPhSqq(f%*ESmK|R;9sSignh<>^SgNp0Vo1 !SeLp:TElScZ>RX&eSarjz1c'Sa9V5?EMS_`gZ*QvS_3*ViHiS]cXENY=S]=WYux;S[tQU@t%S[Sz&^)- !S[5XUA2BSYs.EBeQSYXA2V:tSY?%~9/eSY'(_w=eSWj=*d~7SWTXt2E~SW?s5Y:%SW,*9mw-SUs+;IVR !SU`p>XM\SUO@+h;+SU>IzC'9SU./g,DaSSxGcl}fSSi4P/P>SSZM)-7}SSL4_SK3SS>Blj~rSS0u85w: !SQ}onc;ZSQq0duz,SQdj1G[?SQXfQ7XXSQL~>]14SQAV1|:SSM&t`seGSKyajLO? !SKrX`gwhSKkY)7T/SKdb^L%5SK]u43%uSKW6G3=WSKPZ'91pSKJ+s+U:SKC_bA9LSK=A;HN^SK7*EVsa !SK0tnk``SK*lKl(ISI~k%ytRSIxpG<^sSIr|FFHySIm4nO1MSIgMW@5@SIalM1jfSI\7BhoCSIVb+FjW !SIQ8TcY2SIKnXoqISIFP,A(~SIA6x)n*SI;|}DH`SI6n1q2;SI1d?U.VSI,_Bfa>SI'_2*BNSG|c^MNb !SGwle/9.SGrz=ULkSGn29O\ySGiHPw{{SGdb|0NnSG`'YX&SSG[J;y[[SGVpv3S3SGRAMDWFSGMonoI= !SGIGz-q\SGD}hr8WSG@]4|d0SG<@2Pm:SG8&[Zi3SG3jPa%;SG/Wf7`vSG+H^SE}3&z_: !SEy-0EEoSEu*@v-@SEq*SuUqSEm-dk/3SEi3o.T/SEe>ySE*o1OlCSE'He|jJSC}~Py-)SCz\IX/hSCwSCj+:N0@ !SCfoMsSGSCc[](t{SC`Ie\MqSC]9e>cWSCZ+Yl;~SCVy@woLSCSnrR(~SCPf8IG3SCM_DV(tSCJZ:sto !SCGVsH@tSCDU804&SCAU;1bGSC>VzVE]SC;Z@PwNSC8_?14PSC5etd%:SC2n+K;ISC/woY_?SC-)1PiP !SC*5}NvcSC'DCu-jSA~T72{xSA{eUbe0SAxxCy(]SAv2ZG-aSAsH=TJGSAp_EvrhSAmwr,YmSAk7f]zu !SAhR|3S2SAeoW?x}SAc3Pc{pSA`Rg(G|SA]s?%|FSA[;1CJjSAX^|SAPu5?_c !SANC>v-SSAKl[[/MSAI=0;tLSAFhog61SAD;dyKlSAAihjW?SA?>z4*3SA*vhSA:FgKWJSA7yA9un !SA5R~O8=SA3-j257SA0c]>nWSA.@VxOLSA+xV/k`SA)WYxaMSA'7aL?2S?~rkg')S?|TwxM3S?z8+1A5 !S?wv8QTIS?u[E2/aS?sAP;9SS?q(X|,3S?nj^P{bS?lS`%8:S?j=\e66S?h(Sp`?tS?P/{S76S?N%P3[d !S?KuozHFS?Im&983S?Ge&DPqS?E]ocGoS?CWM]nwS?AQsVK6S??M,pUxS?=I,v9GS?;Es27qS?9CJ}vQ !S?7AgqHIS?5@o3IRS?3@`EA_S?1A:u1VS?/BX7QzS?-D]i^ZS?+GK'IFS?)JyO9HS?'O4X04S?%T/mbd !S=}Yjb*cS={`0a{_S=yg5@^7S=wnx+s7S=uwDQ}%S=t&N-leS=r0:HaKS=p:bxMSS=nEm9OwS=lQXpYJ !S=j^%A,%S=hk,6h3S=fxm)p8S=e-3M)fS=c<2yVmS=aKk.ySS=_\'U;?S=]lulz?S=[~GPxqS=Z6P6Ru !S=XI5SIES=V\Q)gbS=TpHJ)8S=S*u7:dS=Q?}(]kS=OU_UvMS=MkvC0XS=L(g(gES=J@1?TyS=HX.fao !S=Fp^}bOS=E/gdJnS=CIHU-qS=Ac[0=/S=?~E0nES=>?`7{&S=<[R'9qS=:wt:RUS=9:lS{9S=7X:V,5 !S=5v7}aGS=4:dSp0S=2Yeo|aS=0y;[kqS=/??U7 !S;'hm|UVS;&Jr6w[S;%-;4jyS9}i|g\hS9|M(g,kS9{0L~{FS9yn5G3ES9xR;eh2S9w6_rw^S9uuGa&B !S9tZL|S=S9s?o^(1S9r%URC?S9peXLAnS9oKx?'_S9n2Zw__S9lsZ5SdS9kZuz.xS9jBT+)lS9i*NJ0? !S9gldq<9S9fU=:UHS9e>1N7tS9d'AFbKS9bjlrTeS9aTYlQoS9`>b)RbS9_)+R`VS9]mj);]S9\XiVic !S9[D)vtmS9Z/_%T2S9XuTflyS9Wad}+JS9VN5^z(S9U:z]>lS9T(%o:ZS9RoE2;%S9Q\~R*,S9PJwljO !S9O90zqoS9N']u3TS9LpJT}lS9K_Pn-7S9JNp`hjS9I>P'nXS9H.Hri/S9Fx[/gSS9Ei,id[S9DYqjO= !S9CJv0n.S9B<9p\gS9A-pw'.S9?ygFY3S9>kw=OMS9=^FaiS7zd>rqOS7ycR5GZS7xbIhw. !S7wa/dsLS7v_eG5CS7u^<6h}S7t\l<}@S7s[Dgb@S7rY|,0WS7qX`9&xS7pWLem_S7oVBnr;S7nUCUP, !S7mTOdG?S7lSh%+SS7kS2~L}S7jRe2k*S7iRJsARS7hR>OR%S7gR@9{-S7fRPG?YS7eRo.hPS7dSBXd2 !S7cS~w/*S7bTp9slS7aUp]/dS7`W&3M,S7_XDv1uS7^YruETS7][V4<0S7\]Hi0(S7[_JaQVS7Za[x;4 !S7Yc|S`yS7XfRMTZS7Wi7e3%S7Vl,?NtS7Uo05&qS7TrCD+.S7SuejXTS7Ry=L;QS7Q|~@ZAS7Q&tDuK !S7P*yV==S7O/3qb,S7N3W9yCS7M8/_g5S7L=L/F@ !S7=DiiBWS7S7'n~QwJS5}N/TIQ !S5|Y|cHyS5{e|g{RS5zr/^4ES5y~IB0-S5y0oixiS5x=HwepS5wJ.g^=S5vV{5pNS5ucz8R>S5tq+ko/ !S5s~Cr%kS5s1hG>]S5r??AuMS5qL|^-XS5pZl>3lS5ohh8HIS5nvpI-7S5n+*lYPS5m9KE8'S5lGx)C. !S5kVVoBPS5jeA_YKS5it8PRbS5i);>TPS5h8J&,US5gGd]^)S5fW1-_aS5efcF]XS5dvGK+CS5d,77R) !S5c<2bN9S5bL9nQsS5a\LX6HS5`ljv0cS5_}:jw+S5_3p33=S5^DW%RPS5]UI>[>S5\fF{/dS5[wO}g2 !S5[.dC2NS5Z@)|+qS5YQTq:yS5Xc0yHeS5Wtr7?XS5W,d[e;S5V>b/LsS5UPjc>vS5Tb~@+4S5SuBv\r !S5S-lOlOS5R@F|MrS5QS,EP5S5Pev[iyS5Oxqb8xS5O1wUjA_S5GC,6eZS5FWLU@;S5Ekw=3sS5E&REIwS5D;7k3( !S5CP'QU/S5Bd{Oc8S5Az%bkZS5A54-}bS5@JLbP.S5?_oIN^S5>uB:2:S5>0y1i%S5=F`-T6S5<\Q*d8 !S5;rL&VYS5;.PxC~S5:D_iF7S59ZxPx2S58qA,ApS58-mRtHS57DIgz)S56[/hr.S55qyR||S55.r}b1 !S54Ev2D2S53](|F]S52t?K4;S521_P2jS51I/.h|S50`b>JcS5/xD|ZkS5/612i3S5.N&lFfS5-f%ryM !S5,~.Cz>S5,<@6w4S5+T[IE.S5*m%xn'S5*+ShnvS5)D0py`S5(\q4g9S5'u`ekPS5'4YMa?S5&M[C~N !S5%ffFEjS5%%zRHzS3~?=efaS3}Xc}~US3|r9>q/S3|1qYyqS3{KXr{4S3zeI-XGS3z%B;OeS3y?D@FA !S3xYO9|9S3wsc%~GS3w4%\4]S3vNK&;bS3uhy5}1S3u)V//QS3tD;iL-S3s_*.e4S3ry{0glS3r:zmAw !S3qV).~S3FuiY:SS3F=~8S3?zs,RvS3?BTx{CS3>d=mg\S3>,-cZ.6sS1tdbL;?S1t0pob|S1sW+=;f !S1r}EgagS1rIf9c]S1qp2f*IS1q<_7SQS1pc7`ndS1p/p,fiI7S1nJ.}e&S1mq%/c| !S1m={22;S1ld})pIS1l2*oWJS1kY8N.YS1k&Kx=_S1jMe8rdS1iu*Bb7S1iBO:U'S1hiyy:GS1h7PI[r !S1g_,^OMS1g,h\_OS1fTPB|]S1e|=j>%S1eJ0wI'S1dr)i5PS1d@(>OVS1ch,P/gS1c66B|wS1b^Eov@ !S1b,Z{iSS1aTueJNS1`}<+gKS1`Kb'[*S1_t3WtCS1_BdaNYS1^kAC9PS1^9}V+(S1]be>s\S1]1RVUv !S1\ZEA|yS1\)=Z,-S1[R;Ci,S1Z{>WwxS1ZJG;P~S1YsUGG%S1YBhzR|S1Xl'yn4k.@S1PhCfT1S1P8WwJ?S1ObqBiPS1O35{VcS1N]Ylk:S1N.(oLdS1MXW(T~S1M)0K*? !S1LSh|'-S1K~L`L5S1KO5Q@]S1Jy}M_lS1JJpTQCS1Iuhdq6S1IFe}g[S1HqhD7,S1HBokUzu4eS1>(1YQ0S1=TG0ip !S1=&aT-[S1}S13}'qOqS13PBL-u !S12}aa@pS12Q+V<[S11~T*/HS11R'6'ZS11%Xy3tS10S5>c/S10&p9jKS1/TUiY1S1/(?s>oS1.V.V+@ !S1.){k.ZS1-WsWXzS1-+ot`qS1,YpgV~S1,-v/LCS1+\&%R&S1+04HyIS1*^G>z.S1*2^`eyS1)`zSNy !S1)5@pGDS1(ce\a`S1(84qVWS1'fbT8zS1';:]uzS1&iq3luS1&>R/1CS1%m7O1(S1%A{9%{S/~piE~? !S/~E[u@KS/}tRl4|S/}IN)pfS/|xMaTdS/|MQ^P2S/{|YyxOS/{QfY/@S/{&wU>QS/zV2mb+S/z+LGV> !S/yZj<1YS/y02Jd[S/x_XrR6S/x5)XkHS/wdXVmMS/w:1kolS/vii=0+S/v?J}z.S/uo0yWxS/uDu/;i !S/ttcR>&S/tJV-w@S/szLuLJS/sPGt0CS/s&G)<=S/rVJH/XS/r,Qu}mS/q\]X2eS/q2mGv:S/pc'DTQ !S/p9?MAlS/oi[aX]S/o?|&Y`S/npFO_kS/nFo(,&S/mwAc3ZS/mMrL7xS/l~MMbS/g{sQV'S/gR~cg_ !S/g*3tFIS/f[G(jFS/f2^4=gS/ecy<8wS/e;>?zMS/dla>m+S/dD.8/bS/cuY+;CS/cM-qU>S/b~`VBu !S/bV=2}gS/b-w`qUS/a_\+>7S/a7DE]iS/`i0U3yzS/[sTWk=S/[KniBlS/Z~2g|nS/ZVTS-hS/Z.z*,6 !S/YaIF@vS/Y9vM4hS/XlM>*lS/XE'rF8S/Ww`5PHS/WPB:lmS/W)('e-S/V[kU],S/V4XixdS/UgId(* !S/U@>CCGS/Ts6a;,S/TL2c3aS/T%2HQrS/SX5j`MS/S1OlqS/L>%E3mS/Kqil~GS/KKWlf,S/K%IClSS/JY>K_OS/J37)fpS/Ig37P_S/IA2tE*S/Hu6+lG !S/HO1\MfS/Cr^V0wS/CM4wBjS/C'heSGS/B\Ez2~S/B7&Ze|S/Akd`blS/AFL1T*S/@{7&dTS/@V%?e& !S/@0p|&US/?ef'.5S/?@^NM4S/>uZ=TrS/>PYMpeS/>+[~rAS/=`av+FS/=;k2{fS/=/~S/3UIS/&3GW*@>S-v}:-Y\ !S-v[9*6XS-v9:yefS-uq?gghS-uOGMqHS-u-R+]SS-te_Za)S-tCp&W%S-s|)BtRS-sZ?U:iS-s8X]9( !S-rptZJfS-rO9LK?S-r-[2p>S-qf%g;CS-qDM5<5S-p|wPN\S-p[J^NVS-p9z^qzS-orSQ:vS-oQ/59V !S-o/gdJ1S-nhI*H}S-nG-:lPS-n%n;71S-m^X+9TS-m=DdP@S-lv42X7S-lU&I.+S-l3uMbkS-klm?yD !S-kKgyNpS-k*eEtIS-jceXm>S-jBhWpkS-i{nB\@S-iZvrgCS-i:(3oKS-hs69R9S-hRG)GLS-h1Z],t !S-gjpz:KS-gJ0&N'S-g)KoEgS-fbjFY`S-fB1_g~S-e{U`O%S-eZ|HG*S-e:Kq.YS-dsx&>,S-dSLuT1 !S-d2~POJS-clXjh_S-cL5i~`S-c+oMpDS-beQov`S-bE6up`S-a~x_=NS-a^c+p;S-a>P54AS-`x?zv} !S-`X2HccS-`8'R3xS-_qy<{;S-_QsbeAS-_1pi+pS-^kpOb[S-^Krp5QS-^+wp8KS-]f%OKJS-]F/gNU !S-]&<]{|S-\`L2YxS-\@^>|dS-[zs(jbS-[[0I^?S-[;JG8*S-Zuf{2XS-ZV,1.OS-Z6MvfRS-Ypr=aM !S-YQ?9Z6S-Y1hj1`S-Xl:t|rS-XLiYhsS-X-@r0qS-Wgtcj%S-WHQ.A\S-W)0+M)S-VckZmfS-VDOb+0 !S-V%6@tnS-U_yPxJS-U@e7q^S-T{SOB9S-T\D=&'S-T=7ZXxS-Sx-MbuS-SY%p%zS-S9zg87S-Rtx2{n !S-RUx,y&S-R6zTl-R}}W)m),R}z/tAQ&R}vb}nzYR}s3DR}op'_qVR}lI{vj)R}h~5%`FR}eX`w>` !R}b3KZIhR}^hO%m)R}[Ck0:`R}WyEvS>R}TU9AJ>R}Q1EAg_R}Mgit?|R}JDL{vSR}F{HUG0R}CX\WVB !R}@6/%;7R}Ry>\}rwJRy;I+lyeRy85Jp*cRumbEk_JRujXb)-RnRsMH>uJaRsJGne>?RsGGXef+ !RsDGVtFqRsAGi4srRs>H5XrkRs;Hp)}aRs8IdYu(Rs5Jm29kRs2L/da:Rs/M`:s1Rs,OJfQ\Rs)QI199 !Rs&S[LfzRq}V'\d2RqzXa^nZRqw[UPjORqt^]0Rq?aL^_xRqIS[u !Rq(G.~RtRq%P'ZFoRo|Y3?':RoybR*=|Rovl)s{Rm\0gaz%RmYBzB{[RmVUE(`VRmSg{k([RmPzjT-t !RmN3k;pnRmKF}z>6RmHZHYK/RmEn%1?&RmC'mYu`Rm@;mw=1Rm=P&-KsRm:dJ.J[Rm7y%xRkGy,D6TRkE900?|RkBSE-klRk?mk:lORk=.HUNk !Rk:I6{yoRk7d6RF~Rk5%G0wzRk2@hofcRk/\AX{RRk,x+Dj|Rk*:&1C{Rk'V1vo_Ri~rN_IRRi|4|C;? !RiyQ`zU*RivnVOM4Rit1\t4/RiYP[A~7RiVof3iLRiT5'_mwRiQTSjF'RiNt6Q`KRiL:)mx*RiIZ-cH4RiFzB0@; !RiD@g,v-RiAaBWKiRi?(.T1[Ri;Ri9j7q.ZRi71U3snRi4S(uqFRi1tg'>~Ri/<[TNaRi,^`G^d !Ri*&uY-]Ri'IA-.=Rg~kvuygRg|4b}uHRgyW_C:rRgvzkx>+RgtD.g?7Rgqg[hXbRgo1>zK;RglU2A1s !Rgiy5o'nRggCINHYRgdgm7U{Rgb2G(l%Rg_W0zM&Rg\|*voYRgZG4v)-illRg;PBer{Rg8wgOJ. !Rg6EA~leRg3m,>GPRg1;&@UHRg.c0)]aRg,1IR'kRg)Yr^/NRg'(QLRetB;oB^Reqkx;x^Reo;j9A'RelekesiRej5|f')Reg`C83ERee0s4cHReb[XZ(-Re`,MLZ` !Re]WQdlTRe[(eG)FReXT.Kk/ReV%`qIwReSQH\F5ReP}?e,WReNOF/}xReK{[oSIReIN&n.EReFz[*6I !ReDMDV9DReAz=<_?Re?ME5vUReBRcVax)u' !RcT9`zwfRcQkXXuERcOC^vC/RcLuswjERcJN=[feRcH&ozh%RcEYVyD?RcC2LV+pRc@ePiO/Rc>>cX*q !Rc;r*zIyRc9KZu)VRc7%?FU&Rc4Y2GIvRc233v:&Rc/gCwWDRc-AbIz.Rc*v5EzfRc(Ppj1qRc&+`[,C !Ra}`^qC;Ra{;kQOrRaxq,T+bRavLUwdHRat(3`yxRaq]yhFIRao9t2X2Ralo|r/dRajL9q[oRah(_/]P !Rae_8^ipRac;zI\;Ra`rpHjBRa^OtZopRa\-,~HlRaYdMX+HRaWA|@N'RaTy_63ARaRWP7l,RaP5OC{C !RaMm\Y>@RaKKwvFJRaI*G?q>RaFb~hBhRaDAj:LqRaAzchmnRa?Yk>*+Ra=9&lnC.H !R_aB)YBcR_^~|No3R_\b(|=AR_ZE=,DqR_X(^ki_R_Uf4+5lR_SIpwAUR_Q-a@qDR_Nk_:OpR_LOjbur !R_J4)^nJR_GrP,xcR_EW*%z.R_C;kHX6R_@z`9RfR_>_bQO_R_%>~h'R];j?}=lR]9UMnOKR]7@hQ0LR]5,5~(W !R]2qj@%_R]0]QIoiR].IE@A.R],5E|<*R]){SHO4R]'gmWi3R]%T:NxuR[}@n,mKR[{-TJ5|R[xtGKuv !R[vaG0hjR[tNSQX>R[r;lS4?R[p)84FrR[mpjN&5R[k^ODv\R[iL@qtbR[g:>yk-R[e(I[JbR[bp`o^P !R[`_*[=`R[^MZw3VR[\<=h1aR[Z+--)`R[Wt(xgER[Uc1<(hR[SRF)m{R[QAg@u@R[O1;&1;R[Lzu2HI !R[JjadSWR[HZZaE`R[FJ`'kkR[D:qj_6R[B+5tm@R[?u`E/cR[=f=4N+R[;W&AbCR[9Guk`TR[78wW

.waFRY/5=VSFRY-,Wwe[RY*}~&9JRY(uUn~BRY&m9B{{ !RW~e(U.0RW|\}JDgRWzU){asRWxM<4'gRWvEZ&FdRWt>)Qa;RWr6^Zt%RWp/E@{jRWn(7\uLRWk{5S^, !RWit>~2uRWgmT'K7RWeft\JQRWc`Fh.FRWaY~INZRW_SgYO)RW]M\=-kRW[G\MBzRWYAh/2rRWW<%;Uz !RWU6GqPnRWS0uu|4RWQ+UG|rRWO&@@QuRWL{6^THRWJv8G)\RWHqES*}RWFl^'X&RWDh'wVHRWBcW4%y !RW@_7izXRW>Z}dFGRWo7MRW0@yo1)RW.=f+[? !RW,:]W]PRW*7`>9(RW(4n8IQRW&2-E6URU~/Qc\%RU|-'8aoRUz*awJ,RUx(Mjp~RUv&Dk~vRUs~Fyv> !RUq|T9YhRUozl^,'RUmy62I~RUkwdi\_RUivDNg/RUgu/:l`RUet%,paRUcs%}vaRUar1y(@RU_qHw=D !RU]pjw_fRU[p=y9ORUYou{(gRUWo^|1pRUUoR{Y6RUSoQxIDRUQo[q`}RUOopfJxRUMp6Uf.RUKpa>]X !RUIqo7oRU,.c&XiRU*17{eSRU(3q_eLRU&6\+`%RS~9Q8\k !RS|RS\|WK7WRS['Wq[uRSY,bmv:RSW1x?6^ !RSU7>>[?RSS&\[JjRS<-PF9.RS:4NRs-RS8;W&PiRS6Bit89RS4J--5jRS2QT^UhRS0Y,SJa !RS.`hd{2RS,hU8?yRS*pL&YuRS(xM.|%RS'&XPYERS%.n0Y7RQ}74(.rRQ{?^6AoRQyH8ZEaRQwPw9H/ !RQuYf,V}RQsb_3&9RQqkbKwwRQotovLFfRQL**e5BRQJ5N3'vRQH@{[/9RQFLY(\1RQDX@Ne^RQBd1r\oRQ@p-9RzRQ>|2VYE !RQ=.Ao'URQ;:[(),RQ9F~4oeRQ7SQ:Y?RQ5`.8QkRQ3lo-k?RQ1y_s^'RQ0,ZU*c%bROyK}x~3ROwZ&|rQROuh3mpLROsvJK1n !ROr*jm~[ROp9:{\wROnGns:|ROlVRT-1ROje?wGuROht7(EqROg)7t;iROe8BL>RROcGVcc*ROaVt_dY !RO_fB?XARO]us\SaRO\+T[l4ROZ;?<]NROXK3X=CROV[1S{fROTk9.zbROR{JBPGROQ1e3m2ROOB/\3N !ROMR]`mtROKc;A%2ROIs|U~0ROH*mE'oROF;ggGFRODLkb@(ROB]y5):RO@o68tURO?&Vm+\RO=8&vt@ !RO;IZUXYRO9[=bJXRO7m*BbSRO5~zO^pRO46z.X*RO2I)8ftRO0[;mJ2RO.mWqtoRO-%}EL*RO+8RAC0 !RO)K0dsLRO']rUBZRO%pck~@RM~)^N2MRM|RMe/h4DeRMcD;2[kRMaXqK6z !RM_mV}LsRM^(En`ERM\==x4IRMZR??@4RMXgIwG'RMV|]kfRRMU7zubARMSMG:XERMQbvmfgRMOxUZQe !RMN4=Z7kRMLJ.l7ZRMJ`)5p&RMHv,jL.RMG29UE/RMEHOOzRRMC^nYW{RMAuhRM>HNp.O !RM<_8UG&RM:v+FO/RM93'BgfRM7J,IX(RM5a:ZALRM3xQtEXRM25r=,?RM0MAgqgRM.dt@*9RM,|Uy,F !RM+:@^@}RM)R4I15RM'j18z@RM&(7-1yRK~@F%/}RK|X]z>WRKzp~x(+RKy/Nwk9RKwH'xx}RKu`czvY !RKsyN}/ZRKr8B~}rRKpQ@%yRRKnjF%I&RKm)T|m0RKkBlwXzRKi\3o3tRKgu]c%aRKf56RVIRKdNr=:S !RKbh\|TiRKa(P[t?RK_BM4h]RK]\R`[]RK[va*wVRKZ6xG3+RKXQ>Zm8RKVkgeCORKU,?f;bRKSFz](5 !RKQadI5cRKO|W*7JRKN=RYZ}RKLXV|tRRKJsd9XZRKI4zC6ARKGP??=bRIT]ZyM3RIR}S\jDRIQCU'JvRIOc_3Z/RIN)r'R+RILJ3]IjRIJjW{[:RII1+(Ic !RIGQ`r5fRIErEKCLRID92h@YRIBZ(oXrRI@{'aa~RI?B/?6'RI=c?bgURI<*Xs%rRI:KzpgCRI8mK\e_ !RI75%7n,RI5Va\ypRI3xLs.IRI2@@{EuRI0b=vsQRI/*CfqpRI-LRL]RRI+nj)[RRI*70Y?nRI(YZ)B% !RI&|2OIlRI%DmsIkRG}gX=@9RG|0Kc7jRGzSH3HIRGxvMd>FRGw?\DO\opRGo<{?F`RGm`g?4gRGl*\`NCRGjN[MjRGg5a8,eRG<]LGFiRG;+J8x5RG9S\1hvRG7|)qO{RG6JiL3fRG4siQBGRG3C-?\7 !RG1lm)o;RG04.RRpNunbCRRo<+RGPRRnV/EVTRRn%_gy6RRmV7~^XRRm0Sf5ORRlg*xQFRRlE*_d.RRk~*Pqe !RRk]kq18RRk>*};xRRjxkGW%RRjYqmrXRRj;90+fRRivq[KkRRiXdR|RRRi:iknxRRhw%s|?RRhYKZOm !RRh<&'6QRRgxhNsoRRg[^FsgRRg>aC}zRRf{q*-,RRf_3>CVRRfB[qn0RRf&6`LURRecw^4wRReGjhE4 !RRe+j%4PRRdiuK<5RRdN3+EtRRd2W&-PRRcq-Ca\RRcUj3kjRRc:Y[KIRRbyUlkFRRb^^u1=RRbCu(lP !RRb)>K&HRRaho7{pRRaNSZaFRRa4Ej~GRR`tE{ZnRR`ZTEyNRR`@q8:kRR`'BgR.RR_g}5O9RR_Nll`= !RR_5kpC|RR^vzXX*RR^^?>2'RR^En:b&RR^-ShWzRR]oJ/&rRR]WQ^,FRR]?j^^HRR](;NLwRR\jxL2( !RR\Smw@0RR\QRT=TZ'04 !RTBPA4\YRTGu0/.wRTMnQ4IVRTTBv*j6RT[T..8;RTcQK8?cRTlF8BtORTv@Hs)RRV'Qn/g9XRX_o>)BIRZ.]P*)pRZb>Xk],R\KcuCaxR^M8riq: !R`v=2}d0Rf2]7.S^Rn(t~vYoR~4Ij%t2S2hw*,+BS>}]VL'.SDAne6&MSF0fFJ%zSFSPVDRHSFgLMARI !SFt;wNkVSF}/8|lNSH)WdG0},SH?SMR4cSH@79b9wSH@kMb:WSHA=S6TTSHAbV\RLSHB'R6k=SHBA1u@ASHBV0=** !SHBf~fI7SHBt9:8vSHB~7a@3SHC+>t;pSHC/iU{jSHC1tq)`SHC1u'_*SHC/{q~*SHC,>{lySHC'&5nd !SHBz=lgCSHBr6fC\SHBhtg[TSHB^LZ?RSHBRz2P%SHBFPREdSHB90*c}SHB*x]~pSHAu{Pi7SHAf=Jqw !SHAUvn8bSHADw`vwSHA3C^bx5%r2SH>b*]UFSH>K`KU*SH>4}i[=SH=x)uXTSH=`t%|zSH=IO8]mSH=1pW2O !SHB !SH:0(8`kSH9pM3fDSH9VgEXSSH9)jSH8|}Dv=SH8bz%scSH8Hm^r7SH8.X]~\SH7n;CkjSH7Sp/5B !SH79C=axSH6xi1HcSH6^.%4HSH6CF2[wSH6(Wr4RSH5gcG9ISH5Lh|/>SH51hr77SH4pc=yCSH4UXLuA !SH4:HWnGSH3y3pa(yFNSH%{gfiiSH%_Kz@ZSH%C/]Q5SH%&lmde !SF~dOT;fSF~H1nBHSF~+me(jSF}iO;K.SF}M0NJ*SF}0kFs)SF|nL'XGSF|R,M9WSF|5f`OOSF{sFcr] !SF{W&YuCSF{:`D}zSFzx@'S%SFz[y]iNSFz?Y5|nSFy}8fCCSFy`r<|4SFyDQoyVSFy(1M=<~ !SFu;z&mrSFty\*h+SFt]>JQESFt@{-LESFs~^.xiSFsbAP?FSFsF%8n4SFs)cChLSFrgGrBkSFrK,ki: !SFr.l17BSFqlQwn1SFqP82dGSFq3xp|NSFpq`%bTSFpUG_tTSFp9/lZ@SFovrLm\SFoZ[[R6SFo>E?]l !SFn|/T0=SFn_t?u\SFnC_]o|SFn'KTmhSFme8%aZSFmI%+.DtwSFd|.-euSFd`.\ZmSFdD/w|0SFd(2&=TSFcf4uyrSFcJ8YI6SFc.=+*pSFblBECC !SFbPHN\TSFb4OG?QSFarW/h_SFaV_bEdSFa:i+QcSF`xs?R~SF`\~DiESF`A0;YtSF`%<~C*SF_cJYBj !SF_GY&vBSF_+hAFKSF^ixO):SF^N/P:CSF^2AE:lSF]pT.E/SF]Tges@SF]8|8*qSF\w7Y8hSF\[Mo[P !SF\?d{Q-SF[}|}10SF[b;tl`SF[FUbfCSF[*pG4FSFZi1|FRSFZMNNX.SFZ1kq~+SFYp02rxSFYTOEJm !SFY8oOsJSFXw6RL.SFX[XMArSFX?{@gSFSIWQC< !SFS.0;j2SFRlc{p(SFRQ>]afSFR5t;KkSFQtPo:USFQY.E:+SFQ=fqV9SFP|F@@]SFPa&e^`SFPEb-aR !SFP*DLT.SFOi'hA8SFOMf'3DSFO2K=4qSFNq1POoSFNUra49SFN:ZoEkSFMyC{4'SFM^.*bDSFMBs2%v !SFM'_7;eSFLfL:RZSFLK:;s8SFL0);L)SFKns9?LSFKSd5UVSFK8V0L0SFBn_,Y_SFBSmu5kSFB8}d?:SFAx4SzcSFA]FD8gSFABY51x !SFA'm&jhSF@g's3_SF@L=fE'SF@1TZI;SF?plOD\SF?V+E;KSF?;E<1wSF>z`4,CSF>_|-.sSF>E?'=d !SF>*\|]'SF=i{y6}SF=OAw)gSF=4bv9MSFq|1~SF;~='+>SF;cc-VSSF;I05]z !SF;.X?EwSF:n'JlkSF:SQW|zSF:8|fzxSF9xNwk;SF9]|0RYSF9CPE5^SF9)%[s;SF8hUt\DSF8N-5P& !SF83_RSMSF7s8qk}SF7Xm9E0SF7>H]>XSF6~%)^5SF6c\RP)SF6I:}tQSF6.tQx)SF5nU(aWSF5T6\82 !SF59s8]:SF4yVq~]SF4_;TJNSF4D{9}?SF4*a|l2SF3jIhzRSF3P2XXFSF35vKjASF2uaBaWSF2[M=I{ !SF2A:<02SF2'(>{WSF1fqF,PSF1LaQ`9SF12Ras0SF0rDvvfSF0X86}oSF0>,VBaSF/}{{5-SF/crKl_ !SF/Ii|NsSF//bYQJSF.o\=8FSF.UW'~TSF.;Rt9fSF-{OnE6SF-aMpr)SF-GL|;jSF--M70pSF,mNV1M !SF,SQ%~@SF,9T[QfSF+yYCViSF+__94bSF+Ef=RjSF++nQrOSF*kwwf,SF*R(Vn-SF*84K/GSF)xAVz` !SF)^O})?SF)D_f^QSF)*pq[rOSDzQqS[iSDzr !SDy@x+'FSDy+W@P0SDxp72GGSDxZqY\^SDxER[6aSDx0469tSDwtpCy&SDw_S)Y~SDwJ6@W(SDw4t.;k !SDvyXL2gSDvd=?j[SDvN|baqSDv9bZN=SDu~I&h`SDui/{8KSDuSqIUFSDu>YEKLSDu)An\SSDtn*jr9 !SDtXn9whSDtCX5YgSDt.B]`1SDss-Wz-SDs]r~=mSDsH^vPSSDs3K@JESDrx85xBSDrc%Vt3SDrMmI2B !SDr8[f[{SDq}JU2mSDqh9na2SDqS)Y)nSDq=sn80SDq(dT)pSDpmUdQ0SDpXGELXSDpC9Po.SDp.,,X& !SDory2ZuSDo]lbq^SDoH`cSDn9+eXRSDm}|SdlSDmhsk\q !SDmSkScdYwSDm)\EW2SDlnUP0ZSDlYO*WaSSDk_9}cHSDkJ5s.) !SDk527r^SDjz/%zFSDje,=BZSDjP)}|bSDj;(3r0SDj&&lzQSDik%u9ISDiV%L`VSDiA%M9eSDi,%vvc !SDhq&oaHSDh\(7QfSDhG*(EeSDh2,B;FSDgw/+0nSDgb2<~3SDgM5wmZSDg8:'WDSDf}>Z9aSDfhC[lt !SDfSI,;@SDf>O%WASDf)UGeCSDen\8ckSDeYcRQ1SDeDk;+vSDe/sLLZSDdt|,WjSDd`+5L&SDdK4g'w !SDd6>gD/SDc{I6E;SDcfT.*%SDcQ_NK*SDcPUfZSDW)t.K/SDVo>/3wSDVZbWz0 !SDVF-NhqSDV1RmY7SDUvxZJ?SDUbDo;:SDUMkR+2SDU98\s2SDT~`5^ESDTj.6EuSDTUV_(tSDTA%U`K !SDT,Nt7`SDSqx`adSDS]Hu)aSDSHsWBdSDS4DaQvSDRyp9VISDReB9OBSDRPna;mSDR@SDI^v9*rSDIJZ?AjSDI6>m(2SDH{}h7. !SDHgc0mhSDHSHzq5SDH?/8@TSDH*ow4sSDGpW)MCSDG\>]/&SDGH&^3'SDG3i,XOSDFyQ|DLSDFe;?P) !SDFQ%)zHSDF{@rSDEZ*O)3SDEEpJ+dSDE1\lGXSDDwI[{sSDDc6rmdSDDN~Vv2 !SDD:lb:ASDD&[:m?SDClJ:Z5SDCX9aZ*SDCD)Ul'SDC/sq53SDBudYhYSDBaUiQDSDBMGFHWSDB99JMA !SDB%+u^bSDAjxm{jSDAVl3I_SDAB_y{HSDA.T3\/SD@tHnDtSD@`=v4jSD@L3K*tSD@8)G&>SD?}yj&) !SD?ipZ)>SD?Ugq/(SD?A_U6ISD?-W`>OSD>sP8F?SD>_I7L{SD>KB]QVSD>7SD:6qlDkSD9|sqjXSD9hvCzeSD9Ty6\3SD1EP{r_SD11d3NMSD0wwkH\SD0d1o`4SD0PF@:4 !SD0<[7/^SD0(pT?\SD/o,=i2SD/[BMQ=SD/GY)Q'SD/3p+gLSD.z-T9VSD.fEHzHSD.R]cu&SD.>vK(L !SD.+5XGdSD-qO1wqSD-]i1]uSD-J)WRuSD-6DIUrSD,|_aepSD,h{F'rSD,U=PNzSD,AZ'&2SD,-v}`Q !SD+t:FH~SD+`X58cSD+LvJ.]SD+9;+)nSD+%Z2)@SD*ky_,-SD*X?X1:SD*D_w7iSD*1&b>bSD)wGsE) !SD)ciPIrSD)P1SL3SD)T/(SD%Wh0kO !SD%D838rSD%0b[J9SB~w3ODYSB~c^i&|SB~P0NJHSB~<\YStSB~)/0BMSB}o\,o0SB}\/N~xSB}H][SByyHrCNSBye}hskSByRY*tYSBy?4lDtSBy+jy=c !SBxrGQ^'SBx^~OJwSBxK[r]DSBx89a:FSBw~qu:~SBwkPT^8SBwX/YI+SBwDi)TWSBw1Hy%eSBvx)9oU !SBvdcy})SBvQE+M&\96SBv*bX?sSBuqDy`>SBu^'f?OSBuJdx6KSBu7HUD5SBt~,WghSBtjk%F1 !SBtWOr8ESBtD50=LSBt0tmTGSBswZu|7SBsdAIYxSBsQ(BFWSBs=i`A.SBs*QIHZSBrq9W\(SBr]|0zL !SBrJe/HoSBr7NRz7SBq~8AYYSBqj|U?~SBqWg4,KSBqDR7wwSBq1=`mNSBpx)Tf,SBpdom`lSBpQ\Q\Z !SBp>IZXTSBp+7.SYSBor%'LjSBo^mEC0SBoK\.5^SBo8K;}CSBo%:ne:SBnl*lFCSBnXu4yaSBnEe|J9 !SBn2W4k(SBmyHl'.SBmf:n1MSBmS-;/,SBm?z,y&SBm,mCZ=SBlsa%+pSBl`U+FiSBlMIVP'SBl:>LFa !SBl'3g)bSBkn)LR.SBkZyVdwSBkGp+a3SBk4g%EpSBj{^Ck{SBjhV,xVSBjUN:j[SBjBFmA2SBj/?jU7 !SBiv92KiSBic2x}rSBiP-06QSBi='f(bSBi)|fSLSBhpx1[kSBh]s{@fSBhJp5[>SBh7lnPNSBg~iqy= !SBgkg?zhSBgXe2StSBgEcI]dSBg2b+=8SBfya1KLSBff`\-HSBfS`Q<,SBf@`jvSSBf-aO'fSBetbW\e !SBead*`RSBeNe|2-SBe;h>*TSBe(j~HlSBdon/1vSBd\q^>vSBdIuWnkSBd6yufWSBc}~^%nLlSB_3Ln/'SB^z[7tYSB^gj%hNSB^Ty7ccSB^B.me@SB^/>ml?SB]vO7wbSB]c`&,RSB]Pq8=i !SB]>(nPQSB]+:nccSB\rM8vHSB\_`'-]SB\Ls9| !SB[6:o*GSBZ}PnfOSBZjg8>=SBXv4cAASBXcO+0+&'~SBX+FY.nSBWrbUw_SBW_~vMRSBWMA`cJSBW:^n^H !SBW'|F=OSBVo@AYaSBV\^`X&SBVI}I7USBV7BUQ:SBU~b+J3SBUl'~{BSBUYHB/iSBUFi(tPSBU403:T !SBT{Qa4vSBThsXb_SBTV;shlSBTC^XFDSBT1'`TESBSxK27pSBSeo'ImSBSS9@/@SBS@]|ADSBS.)'~| !SBRuNQ37SBRbtCk+SBRP@YqYSBR=g9ElSBR+4<@eSBQr[baGSBQ`)RLoSBQMQe\*SBQ:zB40SBQ(IB.* !SBPoreHsSBP]BR)ZSBPJlb)=SBP8=;FwSBP%h8'XSBOm9W~aGtSBMUnC+%SBMCDGxVSBM0to{USBLxKa2~ !SBLe|uQ|SBLSTR}RSBLA,SZ[SBL.^wBBSBKv7d3bSBKcjt-gSBKQDM/RSBK>xI8&SBK,RhFBSBJt-PYM !SBJab[pKSBJO>00@SBJ\ !SBBToTQfSBBBZSAESBB0EtfVSBAx1^fDSBAewk?mSBASd@K{SBAAQ8/sSBA/>RDXSB@w,5//SB@dt:HU !SB@Rbb5wSB@@QRP=SB@.@e<`SB?v0@T0SB?cz>;fSB?Qj^LRSB??[G+SSB?-LR1mSB>u>%^JSB>c/uVI !SB>P|3roSB>>nnXfSB>,aqa3SB=tU=14SB=bI*{nSB=P=;21SB=>1ma6SB=,&hT)SB&tNSB;O6&%SSB;=.GEpSB;+'0zPSB:rztSB8`Giij !SB8NEMBgSB8DSB7N?V1QSB7ZSB3+;aB;SB2sCw3eSB2aLTl* !SB2OUT6CSB2=^uE]SB2+h^>~SB1srh{RSB1a};F8SB1P./R8SB1>9EDWSB1,D|vBSB0tP|2XSB0b]C,F !SB0Pj+blSB0>w5zwSB0-*aslSB/u8ULSSB/cFj^1SB/QUGMgSB/?dEtHSB/-sew3SB.v)MU0SB.d9VgD !SB.RJ'RwSB.@ZspuSB..l-fDSB-v}c2ESB-e5`.%SB-SG~XDSB-AZdVOSB-/ml'MSB,x':~ESB,f;+L= !SB,TO=DSB&KO]`S@ykrJ*,S@yZDv>8S@yHqi?5S@y7D},*S@y%rW]{ !S@xnFRy|S@x\to%5S@xKIQldS@x9xUA]S@x(MyW*S@wp}dR,S@w_Sp1nS@wN*BOCS@w<[5OhS@w+2I24 !S@vsc}ObS@vb;xMGS@vPn:*GS@v?Fv?kS@v-yy2bS@uvSB\5S@ue-,aFS@uSa7AFS@uB;bU>S@u0pTB6 !S@tyKfa8S@th'?WNS@tV]8~&S@tE9Ry~S@t3p3JQS@s|M4H]S@sk*UsRS@sYb=p7S@sH@F=rS@s6xo5X !S@s%W^VLS@rn6nEWS@r\pD\*S@rKP;?'S@r:0RGZS@r(k/tpS@qqL-kuS@q`-L+qS@qNi0goS@q=K5jy !S@q,-[4=S@ptjFv{S@pcMR~-S@pR1%HlS@p@nr04S@p/S+3CS@ox7^QHS@ofvX/NS@oU[r&_S@oDAR6+ !S@o3'R\oS@n{gs@)S@njNZ8pS@nY5aFAS@nGw.gZS@n6^vAjS@n%G*-}S@mn/X+BS@m\rL8xS@mK[`Uu !S@m:E;'DS@m)/5`IS@lqsPL5S@l`^1ClS@lOI2FDS@l>4SR|S@l,z:hkS@kufB,uS@kdRiRKS@kS?V~R !S@kB,dV9S@k0t82gS@jyb+m1S@jhP?PWS@jW>s6.S@jF-lvwS@j4w,^.S@i}ffDkS@ilVf*,S@i[G+g0 !S@iJ7kG'S@i9(p|wS@i't.g&8S@d-)Cg'S@cu~@1F !S@cdy\8FS@cSu={5S@cBq?DwS@c1m`HdS@bzjG+dS@bigMG&S@bXds?mS@bGb^o5S@b6`iz>S@b%_:`; !S@an^*z9S@a]]:mBS@aL\j8cS@a;\_5OS@a*\sbkS@`s]MejS@`b^G=XS@`Q_`CBS@`@a>v4S@`/c<{: !S@_xeZQ`S@_gh=RZS@_Vk?}3S@_EnavRS@_4rI=jS@^}vP,,S@^lzv@[S@^\%azNS@^K*l~kS@^:0=Lg !S@^)6-=LS@]r<'8w9S@R-C1jqS@Qv_IJ,S@Qe|%n/S@QU>z|.S@QD\:s6S@Q3ysRX !S@P}=psHS@Pl\2znS@P[zmh&S@PK?m:2S@P:_1JGS@P)~n=tS@OsDomnS@Obe6%DS@OR+tq_S@OALxCs !S@O0n@O7S@Nz6'8mS@NiX,YoS@NXzPWNS@NHC90sS@N7f@?7S@N'/f'`S@MpSPCHS@M_wY7XS@MOB&]F !S@M>flYzS@M.1w,RS@LwWF.4S@Lf}3^2S@LVI?a[S@LEoj7dS@L5T|jS@EHqmY2S@E8KJB2S@E(%E6zS@DqY^6gS@Da4;@cS@DPi6T%S@D@DOor !S@D/z-9MS@CyV(czS@Ci2B:WS@CXhypNS@CHEuPpS@C7}54uS@C'ZlumS@Bq8h^iS@B`q(H{S@BPO`3Y !S@B@.[woS@B/gu`sS@AyGSGxS@Ai'O,4S@AXahflS@AHBFB~S@A7}As{S@A'^[DtS@@q@8h{S@@`|4+G !S@@P^M?DS@@@A*J(S@@/~%J`S@?ya>@IS@?iDu*OS@?Y(ob)S@?Hg.2BS@?8KdNSS@?(0^[mS@>qovYG !S@>aURFNS@>Q;K|:S@>@{cEuS@>0b>V^S@=zI7SaS@=j0N<5S@=Yr(iGS@=IY{&NS@=9B7&]S@=)*ji+ !S@a(:kS@7.TNA{S@6xH7pKS@6h<>kGS@6X0c2)S@6H%Jw^S@67tP-DS@6'ir`KS@5q_X\) !S@5aU[yNS@5QK|]qS@5AB`bMS@519b,NS@4{1&o/S@4k(bu\S@4Zzb?5S@4Js%%(S@4:k_&GS@4*d\BM !S@3t]vxMS@3dWTm[S@3TQO{0S@3DKhF:S@34FD(3S@2~AS@2>06rU !S@2.,grvS@1x)\*]S@1h&mLxS@1W~B%&S@1G|3f/S@17zB[MS@1'xn^;S@0qw]mgS@0avj/0S@0Qv9U_ !S@0Av&,TS@01v/f}S@/{vVP;S@/kw@AUS@/[xG:-S@/Kyk90S@/;{R=sS@/+}VGVS@.v%wUHS@.f([f^ !S@.V+\zQS@.F.{66S@.62\L|S@.&6Zd*S@-p:uzbS@-`?T6+S@-PDOIMS@-@IgZ)S@-0OBg/S@,zU:or !S@,j[OsTS@,Zb'qDS@,JhvhUS@,:p.XES@,*w]@&S@+u%NxiS@+e-]MnS@+U6.rKS@+E>w1nS@+5H(?9 !S@+%QP?uS@*o[;3(S@*_eBqwS@*OogGhS@*?zNgkS@*0+Rw;S@)z6suHS@)jBWaLS@)ZNX:^S@)JZuZ8 !S@):gUeJS@)*tR[PS@(u'l;`S@(e5H_4S@(UCAkS@'`3f;v !S@'PCW_WS@'@SefQS@'0d6OyS@&zt}u2S@&k,-{ES@&[=TanS@&KO>'jS@&;aD&NS@&+sf]1S@%v,Kq) !S@%f?MaKS@%VRl-TS@%FfM.[S@%6zJctS@%'4dr^S>~qIAZ.S>~a^:sTS>~QsPd2S>~B/)+:S>~2Dw|( !S>}|[/GlS>}lq]AhS>}].Mi4S>}MEZc?S>}=]*/GS>}-tp&bS>|x2xHMS>|hKC9xS>|Xd*TFS>|H}.=) !S>|9|)V1*+S>{sp0,yS>{d0KU(S>{TK)G]S>{De}]}S>{5':=BS>{%Bm>zS>zo^bb,S>z_ztK~ !S>zP=HUyS>z@Z9%4S>z0wEl{S>y{:nxWS>ykXZG8S>y[vb27S>yL;,8kS>yy,xo;hS>xw>46_ !S>xg]oJ5S>xW}lu[S>xHD,^5S>x8db]5S>x)+ZqqS>wsLoAOS>wcnF%@S>wT68vZS>wDXH&^S>w4zsBa !S>w%C`o|S>vofjSmS>v`06GLS>vPSxJ1S>v@w|[4S>v1BBylS>u{g%K?S>ul1~(xS>u\W>k{S>uL|u_a !S>u=Hn]BS>u-o)d6S>tx;ZsVS>thbN0_S>tY/]NkS>tIW.s7S>t9~vC6S>t*M%r(S>stuKJ}S>seD3'A !S>sUm6`AS>sFs6f7}GS>s'65`%S>rq`OBGS>rb1*}mS>rR[|]TS>rC-6:qS>r3Xeo'S>q~*WED !S>qnVdq-S>q_)4=US>qOUy]zS>q@)&w]S>q0VJ/pS>p{*/9rS>pkX0:}S>p\,M2PS>pL[+y^S>p=0&[g !S>p-_=2*S>ox4oUtS>ohdclRS>oY:su5S>oIkEo9S>o:B3YvS>o*s=4SS>nuJbXBS>ne|Ij^S>nVTLjg !S>nG,kWvS>n7_L1JS>n(8HPYS>mrk`ZbS>mcE:N~S>mSy0,nS>mDSAMLS>m5-nV2S>m%b]F:S>lp=gv~ !S>l`s43eS>lQNv/bS>lB*yj6S>l2a?.VS>k}=z0'S>kmtvmyS>k^R53WS>kO/i46S>k?g^o1S>k0Ep/b !S>jz~C)0S>jk]1ZjS>j\<;ivS>jLuaUoS>j=UHwoS>j.5Ku9S>ixojM@S>iiPJYES>iZ1F>dS>iJl]V^ !S>i;N6FMS>i,0*gMS>hvl:^yS>hgNf,8S>hX1S(ZS>hHn[SES>h9R%QoS>h*5d}?S>gtse{,S>geX(JO !S>gV<`DkS>gF{YiBS>g7`n]IS>g(FDzBS>fs,6eHS>fclCwwS>fTRlW7S>fE9V\XS>f5z\-AS>f&a||i !S>eqI_<8S>eb1\x~S>eRsu~HS>eC\PKhS>e4EF:DS>e%.WITS>dor)xYS>d`[qlqS>dQE{%\S>dB0EV9 !S>d2u+I}S>c}`,Z7S>cnKI,7S>c_7&s@S>cO|yzoS>c@i4B,S>c1Uc|IS>b|BTu-S>bm/a+QS>b]w.Rw !S>bNdq6aS>b?Ru0.S>b0A:>SS>a{/ta;S>akxp=\S>a\h-,zS>aMW_.XS>a>GRAmS>a/7`e}S>`z(0@K !S>`jru*OS>`[cz}LS>`LUB*`S>`=F~?OS>`.8{a7S>_y+:54S>_iwmnfS>_ZjbY5S>_K]rMuS>__-E/SGS>^x96boS>^i-XyqS>^Y|<=lS>^Jq:a~S>^;fT1lS>^,\.`SS>]wQ~9SS>]hH4p0S>]Y>`Ob !S>]J5M1TS>];,To%S>]+}wSNS>\vu[89S>\gmYv`S>\XesZ.S>\I^N;uS>\:WCuFS>\+PTQvS>[vJ&*n !S>[gClYOS>[X=t)8S>[I8[:2ykCS>[+-x(LS>Zv)78&S>Zf~k?LS>ZWz`>(S>ZHvp36S>Z9s@x; !S>Z*p,XWS>Yum3-PS>YfjTPFS>YWh6fYS>YHf3oOS>Y9dKjJS>Y*b~VhS>Xuar3qS>Xfa&[+S>XW`Oqj !S>XH`9wBS>X9`>k-S>X*`^LLS>Wua>tfS>Wfb:/BS>WWcP/ZS>WHe&tvS>W9frJ]S>W*h~d0S>VukKfk !S>Vfn3Q{S>VWq6%(S>VHtS9FS>V9x14ES>V*|)oDS>Uv&=5gS>Ug*k:vS>UX/Y~7S>UI4cK(S>U::-Tj !S>U+?l@kS>TvEkhOS>TgL+q6S>TXR`ZES>TIYU}BS>T:`f%RS>T+h6`Svo{x}S>Sgx'o+S>SY&HAw !S>SJ/)JuS>S;8%/HS>S,A;HnS>RwJlRhT]d%S>RY^idWS>RJi6=[S>R;swHWS>R,~y*lS>Qx0;=f !S>Qi;r&iS>QZGi?>S>QKS{,dS>Q<`MHKS>Q-m:7qS>PxzATHS>Pj-cCMS>P[;E^LS>PLIBJiS>P=WYao !S>P.f1I)S>Oyt}YqS>Ok*09^S>O\9WAnS>OMI>qnS>O>Y@o*S>O/i]8zS>Nzz:(wS>Nl11>FS>N]BBxi !S>NNSn}PS>N?e[K|S>N0wb=_S>M|0)Q{S>MmBe.AS>M^Ua,3S>MOhwJwS>M@|N0'S>M26?4wS>L}JJY' !S>Ln^pAlS>L_sVH`S>LQ.Vm*S>LBCqTLS>L3YLX:S>K~oAwwS>Kp+QXuS>KaA{T_S>KRXej[S>KCoj@9 !S>K5-/.|S>K&Dh6>S>Jq\aU]S>Jbtu2MS>JT3I&8S>JEL70GS>J6e?PJS>J'~b+lS>Is>Du{S>IdXAzH !S>IUrY8WS>IG30cxS>I8M|G}S>I)i.>6S>Hu*TF'S>HfF:^|S>HWb;.SS>HH~Uh0S>H:A0W?S>H+^%UQ !S>Gv{4b:S>Gh>]|~S>GY\GK=S>GJzK&VS>G<>hhCS>G-]F\0S>Fx|>[JS>FjAPedS>F[`|zSS>FM&i?C !S>F>FogbS>F/g6?*S>E{-py%S>ElNka%S>E]p&PZS>EO7UG>S>E@YDD[S>E1{MH,S>D}CpQ:S>DnfS_[ !S>D`/PrfS>DQRh0/S>DBv?KBS>D4@0ivS>D%d<1GS>Cq.aU@S>CbSF{8S>CSxFHbS>CEC_q;S>C6i9@P !S>C(5,ixS>Bs[:92S>Be'aaeS>BVNI/7S>BGuJU5S>B9Bey8S>B*jA@tS>Av86_kS>Ag`E{OS>AY.o9W !S>AJWXM]S>A<&[]=S>A-Oxh,S>@xyUmaS>@jILm^S>@[s]gZS>@MD.[1S>@>nsGuS>@0?x-PS>?{k?m?^hmcMS>?P;&(\S>?AgR>iS>?3:>KSS>>~gDNVS>>p:dGQS>>ahD6%S>>S<=shS>>DjQLG !S>>6>~sYS>>'ml5%S>=sBsDCS>=dr:G=VGu=MS>=Gwp&[S>=9N*\KS>=*~Y*[S><<.?dG'S>;yr9ahS>;kK(l\S>;\~1gGS>;NWTQmS>;@17+]S>;1e3N] !S>:}?I`XS>:nsya;S>:`NiPLS>:R)s-xS>:C_:5:yg&S>:&pvh:S>9rM3V}S>9d)d3-S>9U`TVH !S>9G=^fgS>98u(czS>9*RfMvS>8v0c~NS>8gh{APS>8YGRJqS>8K&C@MS>8<_M|5S>8.>rIzS>7yxV]` !S>7kXT]:S>7]8lH[S>7NsCyeS>7@T5725@D{S>6}pe9%S>6oRIr_S>6a4H=sS>6Rp`N`S>6DS8K) !S>666*3(S>6's5``S>5sVZy{S>5e:?~~S>5Vx>ooS>5H\WLUS>5:A/o7S>5,%{}yS>4we-xrS>4iJS`, !S>4[093iS>4Lp8N(S>4>VQU-S>40=*I.S>3{}w*3me)RkS>3_LOhvS>3Q45lqS>3Bv5^vS>34^O?A !S>3&G(hGS>2r/v&KS>2cs)-iS>2U\O~gS>2GF6edS>2907=*S>2*tQ_6S>1v_+rTS>1hIywRS>1Z5-nX !S>1KzUX9S>1=f=4{S>1/R>_@S>0{>Y}mS>0m+57(S>0^r*?YS>0P_9>+S>0BLb31S>04:JyNS>0&(M]g !S>/qpj:cS>/c_Fk+S>/UN=;_S>/G=Ma;S>/9,x(cS>/*vbFsS>.vffbaS>.hW*}(S>.ZGc.L8[WE !S>.>)msES>./u@8&S>-{g,ZKS>-mY3'hS>-_KSU5S>-Q>4/zS>-C1.mBS>-4~CZ]S>-&qrS9S>,reaXU !S>,dYjl%S>,VN450S>,HBqiPS>,:7oV`S>,,--XBS>+w|_p8S>+irRF,S>+[h_5jS>+M_,A4S>+?Umj: !S>+1LoY&S>*}D1iXS>*o;hD+S>*a3_DhS>*S+pmxS>*D~Bg{S>*6w/5BS>*(p62YS>)tiWbCS>)fc9mA !S>)X]6VCS>)JWMzAS>)).Lrq8S>(zH&JNS>(lCNk?S>(^?7}4S>(P;<)\S>(B7[(CS>(44:}0 !S>(&15wxS>'r.KvmS>'d+|~%S>'V)o7uS>'H'|\}S>':&K=}S>',%59iS>&w~:UBS>&i}[;yS>&[}=L} !S>&M};4-S>&?}TQ-S>&1~/P'S>%~%&74S>%p&8g*S>%b'g2LS>%T)WTDS>%F+cz-S>%8.2Q>S>%*0w;n !S<~v3~AvS<~h7Gl/S<~Z;-iDS<~L?0BtS<~>CO\HS<~0H1ezS<}|M0j*S<}nRLscS<}`X,4@S<}R^(ko !S<}DdBrkS<}6jzV7S<}(qu}iS<|ty5CgS<|g&lk0S<|Y.hOZS<|K7([[S<|=?aFHS<|/H^|-S<{{Q{[f !S<{m[]S?S<{_e^wqS<{Qp&+XS<{Czg9lS<{6+na2S<{(7mzSROB{S4ko@Sf0lSw>7SCa=wW&sSCcW*/`_SCe8F2H(SCgTxj;8SCiM~gOSEQ}y:CLSETM]q4=SEW5Z+wLSEYbuIGHSE\M56BDSE^~)xGH !SEajm_WRSEdEHx.mSEg4n[2oSEim?`SNSEl_Y\dOSEoB0/4:SEr7P}65SEtx>@b4SEwp}mdASEz\F>8M !SE}XsN_eSG&IA2O1SG)J.Z]uSG,@-=1BSG/EbySG>hm*`6 !SGA~o`<%SGE46L^iSGHOE~rzSGKd_wmfSGO*`*IISGREW.6@SGUj+nc(SGY0?5o-SG\Y1wo;SG_~e1l: !SGcR1oJMSGf}Hat|SGjUi,puSGn-)oi~SGqddPVySGuBJZcsSGy%g),=SG|d;M28SI&M^dbQSI*9Kz-; !SI.)J3]XSI1w'NqRSI5n2vC:SI9j3jvISI=h~{k9SIAm~OzqSIEu06)RSIJ)dFwQSIN9]>-Rn1+8SKCeTk4PSKHq(Gv)SKN6w[X{SKSNabtHSKX|DZ09 !SK^Fjvs_SKd(a)ZLSKiZ3)E]SKoJfe=JSKu/f\DeSK{/TV:ISM&|WL[2SM-29bZGSM348Lfy-SSO<[=dn;SODsfFozSOLl~9,;SOU7@KftSO]793kTSOep;???SOnLthu'SOwl+Z20 !SQ&uY=rvSQ0g8UY(SQ:A]8M2SQD]FkyFSQN^?{)YSQY]%kJuSQd'=HO5SQoJ-tD4SQz[|6U`SS,jURPB !SS8O()'GSSEBJ,E[SSQkFF3'SS_FiGNSSSlXsbTxSS{2q2)iSU/H.`;USU?(gw['SUN<5QXUnE*S[]37mAPS[{rU9[+S]C~g?w7S]g_A{9jS_4vaCSCS_[W.bTtSa'M^-+:SaDGB23_S_mob.Wr !S]HM>1C?S]3^(zx,Sa-(tIM{SiGQ;vQISo)s4%^XSy|F~u9,S{Qz;O:ESwC<9S8mSsY+f;GXSoL)LSBT !SkM&r<)zSgF/,t'TScWh0iA`S_wASLvwS]|%YCh}S][6&e@]S][~1w+JS]a{rB(WS]cwL*hSS]M,z[Q2 !S[uEJP=uS[&/UiP*SY4Nx+H3SWJa=*lGSW3t-1XrSW9pLaECSWMo+Hg~SWapo^h2SWrFui'XSWyBCnZOSWdI:O)YSWMzrEp?SW2R};{xSUnp/:/VSULF^0fhSU&dWJeuSSYW6z(| !SS6:0[`ESQjDpBYeSQE7XpHzSO{8M8*NSO]3C2g.SOCkZz[gSO5`0iSdSO2WCipxSO;ybjscSOJFonoS !SOY*&-K;SOg2\S^iSOvh\EB3SQ*?89mRSO|e8_cA9hQSKs7:E4bSKm9n9zNSKeN_u-YSK[urc?XSKNNGm&lSK?7?}uUSK-ef@We !SIwQT|fBSIhVE19 !SI>5FF*3SI4EDKl]SI(w~R9GSGud<([vSGgjhwgbSGW?,2uaSGE\8yOoSG3QC5/BSE};d[){SEmV/c-= !SE_&\>7'SEQ>&CLNSEF?|i=pSE=AN:ysSE75SndESE2a`8r.SE0Yg6+VSE/FK=XISE/(9\@d7SE%QL9)/SCv}=pYLSCi>4etoSCV~gfN;SC?_g@X8SC%Pr~V{SAc|5W.QSAJ^gNPESA49{X.) !S?|jURBYS?ojOLS@S?g|%%?CS?cs5H=JS?cE+x]/S?dD:)yqS?fvTBP0S?iT}J-(S?lvU^kfS?pH2ry4 !S?u[VSA(8Qh,uSA0pP;`rSA<>8RQwSAJ,{F@OSAZ_u3SCdflUiLSCuuBOo&SE,Jc_]KSE:]=Nn,SEFoW9A\SEOtJ./eSEVAD;],SEX||Uob !SEXDL/>8SESTS?f72|t3S?hvU\GPS=;g}[~c !S=4y=Ej;S=0.Yft]S=-7.2\-S=*qrT8nS=)Z6%lKS=(t\^U2S=)Y]M}HS=+(,g|IS=-p8LcwS=1?/nrM !S=6=VmpjS=S=x.1U%*S?(ejm/YS?2^SMm3 !S?<) !S;>&5Xq;S;:?[x6ES;6cv~P}S;2\G6UsS;.i&Z;sS;*p&Yc3S;'bs=h.S;%%]7i7S9}ToNZES9|t_T/@ !S9}e*-i8S;%?/SWLS;'r77-%S;*V0ATTS;-a{EQ8S;0ZpR1=S;3j+4^%S;6ZwgimS;9dBVfSS;_8S;?c*7[BS;<{{sg=S;:T48za !S;8~(Q51S;7z<,M*S;7|sr3VS;8S?M7C;S;;a|iaiS;>,7s(qS;@[:9=qS;CdaA30S;FoN2+3 !S;J5jrc(S;LnBvl&S;Ncw=Z;S;Nw4;>-S;Mx158-S;KJU?zeS;H/=Rx9S;Cl;IF*S;?B.,N+S;:^HWog !S;6^qUpNS;3(CbL'S;0:ZzBfS;-\KH\OS;+QlT(?S;)9A~5JS;'.*R,}S9~MG*fFS9{\T389S9x6o4FH !S9tr[yK{S9qCIa>8S9n;`UG%S9k0f+kyS9hHl-lXS9eSV?'YS9bwG.^US9`,mm^CS9]P+eT9S9ZZXW]' !S9WvSN3lS9T{fUmGS9R=)tT_S9OG+nUdS9Lj}5jGS9I~zngnS9GRKKSeS9DoFb,@S9BJDL)YS9?l`-%Z !S9=J8NkHS9:m+o0dS98Kr^OrS95tM;F=S93^bw}.S91>IV*\S9/ !S7vOn:v1S7uFC}<+S7t^K59qS7sj*2\vS7sF9(+[S7r{p0A,S7s0EftYS7s@Q5<9S7s}U6oLS7tZotuf !S7u[q8DkS7vKY65?S7wO34-mS7x0p&MWzGS7y,TlKIS7xX^m7kS7wwWRTWS7v_|h21 !S7uEMum[S7s`Q(1;S7r2&qY]S7pKd|sVS7o*1@kwS7m[Y%zPS7l[10s'S7k[RJR)S7k)-%8fS7jFivu% !S7i|])QqS7i?S@gTS7hhz92mS7gt2dP)S7g/rlv2S7f&>AkuS7e&<]PoS7ca&V~MS7bKr5y*S7`rHm'6 !S7_IT+O'S7][zZq7S7[w/1a0S7YqJrlRS7Wr;yHCS7URWd>rS7S=Yq3uS7Phlqi\S7NKiVs=S7Ku1@d7 !S7IY==.zS7G*3;]oS7Di/6F%S7B:6sg1S7?x^HxFS7=Hh7BTS7;+_v`GS78SpW1QS764OA=QS73Z[IDC !S719ZK8sS7.^dzzlS7,=OAoFS7)d\VNuS7'I-M?DS5~zF}7HS5|mF?b&S5zW]**;S5xaj+|7S5vgGffl !S5u6{GS,S5s_yIl4S5rU\jClS5qLF~KHS5pjygj1S5p1bxL?S5ozQSBYS5ojL|(uS5p&H<@uS5p;Asp: !S5ptY>0QS5qT2+LTS5r\[X8lS5skD:>7S5uNb8^IS5w7=;KXS5y?R6[*S5{4cj8~S5}.p6QqS5~V}HZ0 !S7%tDOToS7&a[IS/S7'DY%]AS7'RsAzHS7'Z-bN`S7':9S5|S7&x,YC3S7&@\]PdS7%r-hsxS7%5Sq>y !S5~c.{sPS5}z~sU*S5}Fhsa@S5|U&Z40S5{pib3eS5zv6'I,S5z0`*lWS5y0Q+H(S5x@E6xzS5w;U_a? !S5vEtw4jS5u:[*3MS5t=SfGfS5s*UjaoS5r&:I/_S5pfzIbOS5o]9{|IS5n@3vavS5m69vWQS5kxT9jl !S5jz*0?BS5isuuq0S5i0?':uS5h=B=@ZS5gayeJSS5fwY*kfS5fE@+(rS5eZ;G8'S5e%Vex3S5d7H^DU !S5cX~Km7S5bfjZEYS5b*L@(-S5a5.T|{S5`P],%FS5_Z:urhS5^vDc2fS5^)h.bcS5]Ms{+yS5\gxM7/ !S5\C3bNSS5[q-8)FS5[_fA}3S5[D`oTJS5[AHt[2S5[19`]rS5[2{fV>S5Zx3QxcS5Zi`J9,S5Z8gv=7 !S5Y^4}N\S5X_@_r&S5WcQz(yS5VM@hTQS5UDOCcNS5T*Ivj%S5R}&'nYS5Qf7HFvS5PbaKlMS5OP;2`` !S5NP]:xMS5M?XI]PS5L=)HN5S5J~MBR5S5IonW3SS5HIULH^S5G1+r/NS5EbGypyS5DObg>WS5C4av;^ !S5B3gUS0S5A(RK\eS5@1q+_QS5?*h3ukS5>29:(1S5=%M>1RS5<&[3HAS5:nZSW2S59ksUWpS58W<+Q8 !S57R&\xBS569WM'lS55.IRzgS53gud9WS52Rrzt]S51(l{^cS5/g0x,;S5.:W,x4S5,z^i.rS5+T+7`c !S5*Cz%tXS5)*T3K.S5(*_SCIS5&~[mvhS5&:R:aaS5%I_{]:S3~pZ8ppS3~1CVI}S3}^2&]@S3|yb^sa !S3|JuXy'S3{egq|@S3{8FNtxS3zW%PU5S3z/KQi>S3yTN(:xS3y2)v/FS3xZHo+3S3x9>Ph`S3wa,(2D !S3w>:u(YS3vd,OVrS3v?Dj&8S3ucP&TNS3u=@9Z]S3ta+:@~S3tS3hMPy*uS3gvcXySS3g4_aLlS3f\5bUeS3eu.*4yS3eF_o\XS3dfiS9` !S3dB(|*8S3cl7xD,S3cOIc^gS3b~U-VUS3bcX:e0S3b7Ur+'S3arx=*kS3aAUwa+S3`v35BiS3`an0S3Y}3IBeS3Y7Uk1E !S3X]~:VMS3Wwe@WuS3WIofGfS3Vi7praS3V@l,\hS3UeO{K5S3UB)<+SS3Tji7^\S3TIH@.qS3SqoSvN !S3SMfyK`S3Rq-@YLS3RFU&,wS3Qd%)&}S3Q5@-y\S3PPdHzIS3O{}|e_S3O?,M3VS3Nl\%0bS3N1Vq>T !S3M`5Y6:S3M%Q[PRS3LS]c%.S3Kq7]&CS3KAmh=OS3JYt\3IS3I|x^E'S3I1Rji1S3HJ(=(dS3GNy5go !S3F_gfgXS3E_5@(^S3Dlj6=ES3Cjs|\l,dS3=pY2{+ !S3WsS3+;}zuQS3)+{sYnS3(fek1sS3(+3S1~<0`utS1}[vjVd !S1},FY`kS1|DD-}VS1{gOlyZS1zyBF5wS1z>BF%lS1yNH/1SS1xm|-r*S1x&~2\?S1wK1m@mS1vbgVv\ !S1v027Z8S1uIFs~HS1tpfnC[S1t.I[VpS1sS^u8TS1rj&8h~S1r5Bu:rS1qMAuA&S1puiJ,0S1p85qUM !S1oedwhKS1o-BiLKS1n_yO\byG+S1gmiEEiS1gQor4uS1g(.eL'S1ffmf4US1f=*3-gS1e{'hE;S1eOuNRcS1e1n5~iS1d^&t1u !S1d<`lS1c?0Sr]S1bb\s+\S1b8@m/wS1aXS\9*S1a,?N3IS1`L'FU)S1_zf49NS1_BfI@/ !S1^trXEoS1^AI(E,S1]y/3UGS1]L@Ky4S1]1Q8L)S1\e@l(DS1\MeH1>S1\&.zwyS1[b4[0LS1[/B&|< !S1Z\(k[zS1Ys\RX2S1Y:}YF/S1XM7l5@S1WoO8XqS1W.rHErS1V]7fWsS1V)]D*=S1Ub4CRkS1U4o9r: !S1ToO9/OS1T@1z3ZS1SuZeENS1S?v)psS1Ro:YM5S1R4-E0ES1Q^_i~XS1PyMPGES1PFsou9S1O_wl[[ !S1O-7coGS1NGnXjWS1MrDuNqS1M7l:oS1JV4oA^S1IqIJR< !S1I<_e3bS1HP~He~S1Gppy&DS1G'MyFMS1FE9_BGS1EUED5bS1DsppudS1D+O[KXS1CL)K1aS1B`FC}s !S1B*6lE+S1AB9]3DS1@iaM_TS1@*ao0(S1?T8<0%S1>pL%j}S1>@>@SvS1=\/AVHS1=+MrV?S1{^kS10{Z[cLS10V>5|JS1/}B*;4S1/WdHSvS1.~L;MHS1.XNU\zS1-~x`w&S1-Y)q0~S1-&=5Jg !S1,[q26PS1,+S1'zT{b*S1'[8-*:S1'.g?%/S1&j1O^DS1&>mn-AS1%zwS%yS1%N}D},S1%.o6gPS/~Xy=B5 !S/~3/G'yS/}V5{uWS/})LoQZS/|GXMTmS/{rY-RBS/{7@2>gS/zef4lMS/z0OJoLS/ye}ACeS/y6p9eL !S/xpQ]GbS/xCHW05S/w|{%,=S/wMft?(S/w)vh=JS/vQ?Yt.S/v*dk2FS/uP.eWtS/u(?a7xS/tMS/rPgKX1S/r0((s%S/q_._7dS/qD7eW4S/px5|q&S/p`;RZ`S/p;%?P{ !S/o{[(nES/oRa`zwS/o3mm/NS/n_,g^gS/n;IE1zS/mc?Z.pS/m=btHRS/le1o\dS/l@O?lnS/kimL`> !S/kGJwTOS/js>57\S/jSZ+JZS/j(C:%OS/ie^yC]S/i=(e14S/h{yDZ;S/hSTfTdS/h71Hw;S/ge|w-0 !S/gEHBPcS/foLF)8S/fJ{gyiS/eNe\zzS/dy/Vr-S/dY !S/ZDStJLS/Yq(nU.S/YNdkgGS/XwxVz[S/XR^qxFS/WyU>PzS/WRX<,7S/VxM&VxS/VQ,]>^S/Uw%nO9 !S/UOilLhS/Tuc1K)S/TN>*cnS/Sssw&YS/SKz}-hS/Rpu/zOS/RH08m}S/Ql*\:ES/QB0>J@S/Pdg34+ !S/P9?rZfS/OZ@AC^S/O-NF(1S/NMdugiS/MzxNR*S/MB/6&2S/Lq0N_QS/L:|Bn|S/Km6529S/K:4kCc !S/Jn~b[jS/J=zk5OS/It,0N`S/ICcw*+S/HyvwaD^kS/>JZ+vC})S/=\{H0F !S/=C+jU'S/1avdS/<&/5^+S/;YQ?[9S/;k]S/74b':,S/6rgu65S/6K=6[ZS/60k:vlS/5cyx:< !S/5IJ>{iS/4|8GBXS/4a;[m !S/1]Z8bkS/13xSQAS/0p@]=FS/0Ez?9/S/0'l\`;S//WH8S/,S@{afS/,7h|B,S/+hyd4oS/+K@T]AS/*z8k:TS/*ZYDslS/*-|1?3 !S/)g?`Z[S/):3*1\S/(sMOl`S/(Fe)8CS/(&]_58S/'TY\F`S/'576{tS/&cseL+S/&E7j0^S/%t[_&Z !S/%V]cEpS/%,^m{gS-~i2^61S-~?TIEGS-}|S-tBA@i[ !S-s}&=\wS-sR[9v)S-s5~NigS-ri?BvuS-rPZKNlS-r,yEm0S-qoxB35S-qLU,{qS-q4D5W[S-phDJIe !S-pLC+lXS-o|4gW@S-o\Z\ibS-o/nT[yS-nhZ_N8S-n;4C<^S-mt>>v)S-mH(?{;S-m(h,l~S-lX3\De !S-l:O)_'S-kkJhwMS-kO5g+[S-k'TNtvS-jfOSxGS-j?RqWAS-i~Lc8?S-iVeQ}TS-i:/m\kS-hj/Q&Q !S-hJRGHKS-gw7'OsS-gTp/g0S-g%t4^}S-f],3h;S-f.xhQFS-eh3iohS-e=9(BcS-dz6(]zS-dRSv`e !S-d7g}ZgS-ck8W@zS-cPM0RaS-c(m*D`S-beq};/S-b;V8~4S-av:E9yS-aJ<`=PS-a*)&3:S-`WyS\P !S-`8E<82S-_g\=exS-_Ihj5tS-^z\kT&S-^^&A9ZS-^5h:Q*S-]s[dj`S-]KJxk7S-]/%|ZTS-\`N5f} !S-\Ct>5[S-[uQeW-S-[YKX\FS-[1v3Z9S-Zq(459S-ZJ~<^RS-Z1U|N@S-YfQo9+S-YMO8&gS-Y(;8?5 !S-XhL[%4S-XAqlXS-V%[0{IS-Ucm,('S-U=5(X< !S-T}N*X(S-TXPSAIS-T?h+2JS-Su+9LSS-S[xx,*S-S64F5nS-RuBG'(S-RM^:||S-R1.7iFR}{lQE4w !R}xTyJX5R}sylu@8R}pc2,(iR}l3;&GhR}h~mCQJR}dXb1CxR}aTod/{R}]:-^;gR}ZBB]CYR}V4SJ^F !R}SIxLjGR}OGS6UCR}Lcn~AKR}HbnrQ5R}Ezm_GXR}Aopp6fR}>x-;;?R}:XQ&ZqR}7KI86ER}2uE\JC !R}/^~|,0R}+-DO+>R}'v{wM+R{}R}v~LR{zWHKvWR{vKK,_%;|R{S~fC2BR{Q)*%<,R{LpF8RMR{J'6pTrR{E~;bvg !R{CD*FGR{9(,BRrR{6PP296R{2ZUOxvR{/|e/`~R{,%LJ6>R{)@Twg9R{%v7]-} !RyRwope8ONRwmRBQIRuGOZdMuRuC]KPp/RuA,K{b}Ru=:L^GTRu:a%W8WRu6k:di1Ru43I^QIRu08psZS !Ru-UiDhcRu)UW^;URu&lJ22\{Rs^X&uq|Rs\Z@%jMRsY81OwiRsVyULTdRsS0m[:iRsPD}w:9RsL-N^/4 !RsI%8._jRsDYd,oJRsAR):l4Rs=;j,aHRs:Qz*9DRs6eqyTPRs4NSF8-Rs1+ljA2Rs/*@>SdRs+i=n{r !Rs)a9WEuRs&1MPNtRq}`hTbxRqy`/kU=RqvgDGn]RqrHk|0WRqo=x2P*Rqjs?^l(RqgnD1l2Rqc[`ZF7 !Rq`rq7:dRq]%bw,jRqZXN1JVRqVzINpxRqTaHD7`RqQ0b]LFRqNr.S7%RqK;28'ARqHqfkA}RqE//0H1 !RqB[G{1wRq>jBXkRq1lO7[ERq/6FOIYRq+Bn&)oRq(kqV\6Rq%%RZ|N !Ro|Wn(`URoxvn5agRov\Llm_Ros/X&YbRop{^eksRomWw2a-RokOIU`{Roh-FE7mRoe|lMF]RobTzgv> !Ro`ARoJ`>qdBRoH>]K+/RoD_;x|N !RoB@w'nLRo>d|Bd^RobYRk@eDu_HRk>dxwk*Rk;ICaQ?Rk9EF7OlRk6'G\5o !Rk3|?b~&Rk0^OL:fRk.Zo<6=Rk+?en'FRk)?}Z^@Rk&)Ax\HRi~-[EGRRizt)r;7RixzN=MHRiuh'e@\ !RisnX%4GRip[=)RiN3Ri8CkN~ZRi4tu5nJRi2^eL?MRi/'P|j9Ri,\Z.:&Ri(tN0&hRi&K'{YARg|e>LVb !RgzE8=PsRgvojSOJRgtf~eRPRgqU=I7@RgolS;F,Rglvx?u_RgkICw~Rg`%9q:jRg^:hc;&Rg[.QV%ORgY4|b`)RgUw>=;hRgSu|kBuRgPZ/Qu(RgNX@0q]RgK?B0]9 !RgIB`.}GRgF/bDP~RgD9D])7RgA,w`D'Rg?=F'd,Rg<7w;/2Rg:OY'4MRg7Q<'|gRg5nva.;Rg2t::C^ !Rg18oYC5Rg.<>TwYRg,V9+5{Rg)R7k@3Rg'avgEhRe~QOgJZRe|T^+\cRey9KeCVRew4;b9rResm5mW} !Reqd`[-|RenBf1\cRel;q9?9RehwgI''Refv'o{KRec]WW[UReaai>5wRe^OFw4lRe\Yu+mcReYN%nxw !ReW_;6MtReTYrIrjReRpDv(-ReOn'*L5ReN+3%t8ReK&|M?dReI9mf3~ReF.o>nfReD8LF>XRe@|\D[) !Re>|1CW9Re;^u=HSRe9Z>DnbRe6<7Z<:Re4:0h6VRe0{uCN&Re/)%0`8Re+vNM7JRe*/erz0Re'-u]ck !Re%I|4:tRc|Ny2U{RczooXNERcwwYK0xRcv?@3s}RcsF)aA*RcqeVg1=Rcni@6N@Rcm+:%DKRcj*kn/f !RchA{WjKRce<1\1-RccMGO*NRc`A(Ta{Rc^KCWnjRc[7_P**RcY:@=j}RcUxZoLSRcSryZ?{RcPNVHMB !RcN?w18LRcJlq)dtRcHX'7KcRcE)8~ldRcBqpD]?Rc?K_xRLRc=H37pdRc:5)T*VRc8Iu*xYRc5R}E%F !Rc4)EHMTRc1H['8jRc0.;W@jRc-UZ^*eRc,<;Z[NRc)]J'CURc(6k5[IRc%D3x|lRa}`}w7^RazYRB3d !Raxe-[VURauP:e0WRasRL5JFRap8*mgcRan8e=6eRajzTlP^Rai&D}L>Raeo5d?eRac}RI&vRa`v1KIj !Ra_5`M9>Ra\:n'VzRaZb;a@HRaWvK]vURaVRV+'TRaSr^IxQRaRVpi9ZRaOzs64WRaN^yHk^T>iRaAXInG*Ra>R7Kt2RaV\R_wM%qG: !R_v'bA8JR_sB`.HdR_qzH/B0R_o<1]^'R_mrPTkYR_k0W6KmR_ia=Sy;R_frRQ/?R_eB9u?ZR_bLV,sW !R_`oYw:pR_]sB~OuR_\6):P?R_Y3YQctR_WJI~.oR_TBtgJpR_RVSDpmR_OM{p*xR_Mb{P;SR_J^)@z5 !R_Hy,4;qR_E|OWMRR_DH/{hRR_AV}28OR_@,Xnz2R_=B0*uhR_;tx+/>R_90')'kR_7^qOuuR_4lA=x6 !R_36&'ZbR_05k[1IR_.L6d2(R_+AC=~rR_)PZOu=R_&A~8R5R]~Q*~u0R]{EcolvR]y[XHzsR]vY{tP5 !R]tz]gr7R]r(9.1dR]pO`wtNR]m[AbD.R]l*:]BaR]i4^ShYR]gYf`g8R]d]eT48R]b{G'8%R]_x{Ci5 !R]^8X:3jR][4Tr6pR]YO0ennR]VNTiRXR]To5M-OR]Qw*9_vR]PGtO%jR]MYDBo4R]L1`YM[R]IGt_?u !R]G|DU)JR]E7z]ApR]Ci5B}bR]@xj/jnR]?Gj5UhR]c6CR]:o:0~UR]7o2w]NR]61955PR]3-ms5l !R]1H=\}&R].Dm=%.R],`tVFnR])`*/ihR](%:sMLR]%'Gd3HR[}IRak6R[zNEY'~R[xs2cXMR[uzMFlR !R[tG_(;1R[qQ8>?`R[oz|/;RR[m-G?vnR[kZS{Y.R[hja]x[ !R[K_/aP}R[Cd[hISR[A&ZhH@R[?a]q/\R[<{CJ+}R[;YpT,@R[8pPj@{ !R[7K\QYaR[4^E8mmR[35=VCyR[0C:~'RY8CD)yJRY7,'HWjRY4O~ZBQRY3A)aEDRY0lYmAnRY/dbm+BRY-RWq>~K,w !RWow1A\7RWm.PBU}RWkbIsxrRWhpNjxbRWgHDe.\RWdUAMMKRWc-JI+_RW`;Z&O-RW^p9ZE{RW\'yB%] !RWZaLUP_RWWy&3ZIRWV_dbv>RWT%-jT*RWRmD&gORWP8ODxMRWO*X4zJRWLQ<}%TRWKB~uYeRWHg).:O !RWGT6LcMRWDqMeudRWCW%}scRW@mJjRiRW?NGLKcRWcIRUd9/p2:RUc*B\{IRU`O)eQXRU_EkC4\RU\o||pjRU[lN]NfRUYAa}b@RUXB.SqoRUUsJ:ZF !RUTtNqUGRURJPZ5:RUQHj\`>RUNt/%2{RUMl;^}gRUK5z[|pRUJ&k<}FRUGDC_MNRUF1,\PdRUCL7.lM !RUB8\2H9RU?U)/gmRU>DuFNkRU;fEZG[RU:\ZPV6RU8)m9PTRU6~Tj4SRU4N:sc3RU3I{(q7RU0r^YAs !RU/klylqRU-5w2MBRU,)+R5qRU)F32^&RU(39Y6IRU%KNoHQRS~5[KDjRS{LAyY=RSz6sa0zRSwOJJXa !RSv=ffV1RSs[EtH^RSrP3o:jRSotSa-&RSnpU505RSlB&:QKRSkE[&*yRShxV_IcRSh**OWkRSedp-ZC !RSdxDfkaRSb_mdR%RSax>YhmRS_b+cpyRS^zkfUJRS\b12]RRS[v@[w2RSYVL54*RSXa@-F_RSV61=5& !RSU645U;RSR[]63JRSQTm-|kRSNuG2={RSMlMGS5 !RQhZ|TsARQf4PxRoRQe6\`X{RQbIT{}fRQa*]aL2RQ]{`X,*RQ\IY/&(RQY5kl^1RQW\,R~yRQTO)vXW !RQS+BcK5RQP6a'r4RQO3SP4KRQLb+.wpRQL&)+_+RQIpYLzcRQIKxEoHRQGNA8hSRQG6s-)iRQE@ypKp !RQE,V)?NRQC4-39nRQBr@3^eRQ@lPLI9RQ@>67GsRQ=ylXB7RQ=-k?P^RQ:EY+YQRQ9*\NjpRQ5mFA]k !RQ3z,A0wRQ046huERQ-yw[fMRQ)}.JnvRQ'iN`h5RO}}uNFCRO|3.rRHROx{%j/JROwuAy~xROu[gFxk !ROuPM&g6ROs~J]?7ROtOz,gJROsH8xa@ROt,VnS7ROs%*6Y'ROsR/J>|ROr&h]{_ROqz\|`OROoo2v/0 !ROo4&*L*ROlU_p,rROkQSZN\ROhXzPx`ROgDVD~,ROdDR,tTROc2XnE.RO`Q<6uPRO=d7G{FRO;+Hv^Y !RO:@)[]zRO7c(LttRO6{(6~_RO4GLk&7RO3dFR^IRO15;u;PRO0W&&5>RO.+5K9RRO-P3Pa?RO+%x-ax !RO*LL7m=RO'|,\05RO'HLc\KRM~v@.;4RM~A2Q,*RM{lY7RhRM{5~KPuRMx_DHHWRMx'hn~cRMuOMk+~ !RMtq>='RRMr=gXE[RMq_IPEVRMo*k[w`RMnKtUy8RMko3M;ARMk4IXLjRMhT9*,KRMgp=F)ERMe1SVH !RMRP'.GDRMOms&B&RMO;e/6ORMLaUCJTRML7./wGRMIb-\DDRMI>RM*(Pv+=RM)LZ-wARM&]%v`%RM&+d1tqRK}@)yGv !RK|nPz:6RKz-(uMsRKya2_ohRKv}f[Y0RKv]F8?1RKs}kjh-RKsbn^3\RKq,s[*;RKppo>n/RKn=,A+r !RKn)RRKk:c]69RKh\-s5tRKhD/')jRKe^BSW^RKe?MJm*RKbOboRcRKb(nY58RK_0I)s{ !RK^^Vm)iRK[`u'1ORK[3Y7iDRKX40~PBRKWbuC%(RKTe0?TJRKT?FSK8RKQEuSV}RKQ&qn4kRKN1`K/R !RKMr~1&.RKK'[U30RKJnvL22RKH&ql6WRKGse^d]RKE.Pv5oRKE&/5M{RKB;m.N,RKB5>;LjRK?HEkhH !RK?@3=8LRKvRI\9FM8MRI\_,xL(RIYJ`7\\ !RIYmWMr-RIVLmT2-RIVg>u?,RIS6N@WrRISIXgTRI?M5:aHRI@:kcbLRIRI6KIS\{RI72q3=WRI2|^0vbRI3at5\FRI/CNcN*RI0+=]-wRI+\8/_JRI,KJz?zRI'u5:fE !RI(p`nE+RG~;w&L8RI%F7da)RGzecC[DRG{~OMRGaf<\v2RGd1WW>qRG]\_z@Y !RG`;kbxZRGY;cfX6RG\4|Z]WRGT]obb2RGWyub.?RGOi@]5URGSYCOX3RGJ\y;JDRGO01kdGRGE55?/V !RGJZt}6RG)2Y(u?RGx !RPVg8G/YRPSsgFO>RPSD+4thRPQ10z@.RPQl|~,6RPPJUJdQRPR8G0FwRPQO0+.NRPSvmq)|RPSRPU(]2CaRPW\.4TBRPVOuc60RPXvrpRP^/sk-cRPa:GbS6RP^{';LZ !RPb*mvL8RP__s,YBRPbgssalRP`6wtPvRPc=?JRGRP`['c9TRPca2|]7RP`um8jGRPd%1tiLRPa4`R?W !RPdDbierRPaQc^OQRPdj_(CgRPavyR9gRPe@Wl+jRPbMbx/=RPe}h'GXRPc3R/P6RPfrAWr@RPd,y<,F !RPg|:U]/RPeRPh=@jnXRPl_)sdiRPi~/ThzRPnK~(KcRPkaMa<` !RPp/aA3.RPm7MPv3RPq]aw/4RPnV:cd)RPrz=h)ARPoct-P~RPt-@17,RPpdZTxFRPu24XE*RPqbEy9Y !RPv8~egqRPreDjvdRPwGs|>0RPsr<&MpRPxbc@?IRPu2GE^:RPz2Ew':RPv\NRP|?+I&~RR(,e%ZCRP~XDPb2RR*UP|2;RR&{RIy)RR-):>mcRR)C1b{+ !RR/Pq]FkRR+ZyQ~yRR1m&Fb5RR-ee4t^RR3|?>HXRR/cW]GeRR6&L;a+A !RR:*&GBPRR5Gyr%(RR<7O%}PLR6CRR9]o(xMRR@u>[s=RR;xaI`(RRCI0KezRR>?/X-| !RRE{]~WqRR@b|Y[TRRHY6>HbRRC2Zi{URRK@7y\lRREhWS5NRRN:-id]RRH^UurhRRQ[u=u&RRL/lP-a !RRUdnu\ORRPE5JM6RRZXEdr4RRU>41MwRR`&{82HRRZ[1j9aRRe^i3|;RR_bVy+*RRjL6b**RRc7[EeW !RRm3dN6QRRdL-L:zRRmd:MI9RRckt6TTRRm&xrxXRRbwQz+%RRn'&=*,RRgE[8@QRRvWiSySRRoF_>s@ !RR~8=`1/RRv&;GjfRT*}>ZN`RR{Ibg&-RT1]ut1+RT',>n/+RT6-i>;cRT,o6x%DRT>6VO:]RT24aVXW !RTCY]^7cRT7T^EJ,RTIW~bAnRTW>RTgvSz?3RTKDw*CqRTezW0TmRTCVj:Y.RT^AvVe|RT/sX%v: !RTI@aW'>RRf^r?YZRRsp2(qyRPuJHhhZRPrh}FzVRN.I:Z%URL6y'bo:RDij;G%4Rs'-oH_SP/^.9vsSNN+f7p6SJw/l79LSH?[]k_*SF1rc-qc !SD=zR%\~SD%;q}qDSD(T|&X|SDa5@2S,SFWvDKlESHI)ZyNKSHlfZTSH\PV\w,SH7vre@I !SFcamvosSFUK][,lSF`6WV6kSH6lM^SFw|s1tfSFb0W%f.SFLx6>=xSF4QSFcohprGSFYU`:?iSFR{rNTZ !SFOmu8KRSFR'5Rl:SFT+WG9)SFUt'601SFSAf}x4SFO*<(f,SFGqFaFRSFB%dA?0SF<^zW:I8SHQ&kUFTSHcf8YEbSHuUujxySJ+|`d{/SJ5Rys)CSJ:_3'G* !SJ;l:-;WSJ;_v&fISJ8Nt{'NSJ4xl:S]SJ/s/TcKSJ*Te8]vSH|fU-bfSHui~,@gSHoji]AgSHmg6jk' !SHmwldgOSHp'F@KqSHou4>mfSHmx'k_1SHgghhm'SH^e]a0JSHQ7r1buSHA_BXsOSH/SX)kKSFw\6LNw !SFeL7VOaSFUK(q*-SFFXE/f5SF:>3qShSF.DarwoSD~eCR6-SDwBF_4*SDt=VWtpSDru48CFSDs_>PBq !SDu=E@mmSDy]]Y-WSD~d`r,kSF*{cE@jSF06WB0HSF5qSF9@mc*(SF7&ZK3mSF2ZgS:3 !SF*vAH'kSD{[}:ahSDorodj]SDdB69v]SDY_L;2lSDS1wG(CSDQI|a&uSDV{^VwHSDb,sit_SDrmsY9A !SF,HE>rtSFBIw%R>SFX.ti{@SFmOf&?XSH&Dj@p*SH7k0E>+SHFjj@.RSHU%[;RqSHaxE8M)SHo:\/(< !SH{rwQPHSJ.v{>FASJ;6.2e|SJGvI{AtSJSUZ|;'SJ^*P-;wSJd}hOS4SJiH;~S,SJj~\B@SSJkY)r9: !SJip\X7tSJfKzIJbSJ_jqE5:SJVTdggWSJII)J?+SH>iP:a@ !SH%~;dwXSFgR4PsVSFO0)8C_SF9?=CAMSF&SD|Dq3RsSF,DY_X8SF7)?,{vSFA)rqNESFJ_QcR0 !SFR7yv;eSFXHylR8SF\&<,y3 !SFJNQ\W?SFVy4`roSFb6fRq`SFm;kHw_SFwcP`k[SH(THb08SH2sD6TMSH=GgdI_SHG5P2>_SHQ1.i1K !SHZPT0rYSHcpnV;nSHkowpmXSHrWvf>=SHvype[gSHyqN*}8SHzlAc[eSHz`_nGPSHxZ3I@eSHu4qW+M !SHocZI=|SHiSH?[xk)9SH6?U4@MSH,Ly}y7SF|~lY]x !SFsUVUU-SFk7|rS5SFc\9mKjSF]_Y>rMSFXcIE9wSFUKf`R]SFRz3b/RSFQRKZ&>SFOv_RFjSFNW9kl? !SFLSG?8;SFJDtk)0SFGGS,FeSFDXG/l*SFA[OfOnSF?ElvctSF=*m5k:SF;.8iWDSF8Z9XN7SF62eO2( !SF32j?tkSF0E.zuzSF-7G}z*SF*V@U\?SF'vu/NgSF&,S=NySD~Rr*c{SD}x*_`hSD}anonpSD~D%^5, !SF%/0YW-SF&QWQgNSF'hmCkaSF)OpoNVSF*|;j|ZSF,pOGX^SF.I_[+mSF0>QRq)SF1kj_E`SF3PQ,z; !SF4^n}t4SF5qMhz1SF6RWF>LSF7F4J;F4dP !SF?s>%{ZSFAy@n8%SFCv|G^KSFF\+t6cSFIaea_}SFMmd'M3SFRG]p`ZSFWswOc~SF]ROyZzSFc^%34= !SFi>&SF}CWT:^SF~nYSFhQ|LOR !SFdK7Ev1SF`~0Qb+SF]c\lseSF[2lg=,SFXu8Q`&SFWXm'2~SFVgk/n%SFVz+Q_4SFWX'EfVSFY%t]eY !SFZY6SmrSF\_y*.fSF^OD@pbSF`B<>t9SFaSpL]4SFbPTAI[SFb]F5HhSFbJ9dk4SFa8MT~CSF_E,]:s !SF\(ce>MSFWe\qs+SFR&0ay9SFKxB.GwSFEUUU]\SF?kdT:MSF:M%5i}SF6>91TVSF2yH{ZsSF0xt[SF*qSDz|SDy13cFFSDy'uz.QSDy=r.V)SDyF(mrjSDyivoQ}SDy}Zm<4SDzQ&9:[SDzlld7cSD{GVl^h !SD{kc.**SD|Qu{d%SD},]0h}SD~'%0S{SD~p`LvqSF%}Fsp`SF&z\j>7SF(5zX97SF)7`-)USF*LGtq4 !SF+HX>e-SF,UjwSjSF-McwNQSF.`)>d;SF/jNCA-SF1?Ia(mSF2kpV9/SF4di8tQSF6ZeN?bSF8sr]Fq !SF;)GZr@SF=P&iQDSF?^I&]~SFAxOC)tSFCtPULASFE{<\atSFGeV1%GSFIY+`j&SFK)Q{:kSFLP%WaK !SFMC2>P2SFN%[%pRSFN'NOmYSFMnwthESFL{,oH/SFKtQF|=SFJ7:`e@,/?SF;vzw4TSF9+|w>eedgSF,`BlTYSF,|x7y[SF-[a96,SF.-+%'oSF.lpm{y !SF/@w40;SF0)+{NgSF0^@*(}SF1SMd*%/SDnu{XxzSDmB+b%OSDkyb]%& !SDjG0svwSF(iH;L&SF*<&C0jSF+BR5?/SF,5XbN[SF,G^[AuSF,;%NSuSF+M*B@cSF*K?}4( !SF(|VvGxSF'Sf~htSF%ll][MSD~8@+Z=^SDk2Eb=-SDjD-7{ASDihZ|(&SDi)O+2pSDhXaL*^SDh&+M=(SDgdAO+oSDgCV1]3vq !SDe'fj9dSDdiQu{8SDdD8/@>SDd.u7gNSDcgw;t)SDcX:gm3SDc>j`.BSDc80>^WSDc'q0/oSDc(dE^G !SDbv9YfoSDbt[T(VSDb^xRCNSDbNXb>zSDb%h/.;SDaW:&sPSD`jTcneSD_zE]COSD^lYB@TSD]`TYk= !SD\B_ww2SD[6oBi6SDZ&OS7qSDY/@cn;SDX6-FBVSDWSlfMiSDVjEu.]SDV94o9jSDUWaVTFSDU+EuG[ !SDTK72b|SDSvo)v}SDS99lZ/SDRb7SDQWWeJ'SDQ+>K1bSDPpX@mpSDPWq/I1SDPR4ai/ !SDP?a{itSDP7=5hYSDOvhGuKSDOdJ48LSDL37{FGSDL=zwZjSDLDu-x*SDLaIqoX !SDLxnX=9SDMIl}T8SDMm6GrOSDNF^YPrSDNm,gBBSDOBU%)aSDO_MERlSDP(VKU}SDP8jSIuSDPQTG0o !SDP[|YQUSDPri]\gSDP}2Xo9SDQ:4-1^SDQCX[_NSDQW0ca3SDQ[(:;uSDQh--aGSDQeM=>1SDQlf7l+ !SDQettr7SDQjN4O)SDQb27OTSDQf?=TrSDQ^y._TSDQeXL|>SDQak<)9SDQk~I4`SDQjvy4=SDQuZvU- !SDQqVE5wSDQux*=xSDQiK=h)SDQd)K&KSDQM7iFxSDQ=B4TxSDPv9h<)SDP\U.qlSDP2N30dSDOk*<\- !SDO;<7=oSDNp2+%jSDN>Gs-6SDMrjCggSDMB1Y>0SDLyR'ZbSDLMXxg@SDL0Wc%ESDKdPqnwSDKL\R9I !SDK)|l?(SDJmLHnEcm|SD>Ov),> !SD=|r?XPSD=Xj)v0SD=(z5gQSD<_&SmSSD<1;3b)SD;j*q]~SD;>rwr-SD:xzRhESD:M3=HCSD:+*}pW !SD9V.t8USD90*+\TSD8VI-3ZSD8*q6iQSD7KEs1kSD6t<5OxSD668&pQSD5\J^EQSD4xmeqaSD4H[rs) !SD3jeV4oSD3A6,B|SD2j)OXJSD2F2h5,SD1rx*)|SD1Qc8/iSD1&qWlLSD0bGF4>SD0;]lS6SD/}JA9SD/P5U4DSD/;Pi&@SD/5vJaqSD/)2/CdSD/)jRnUSD.{q5IfSD/&7[L?SD.{-)24SD/'77I5 !SD.|iNvSSD/(`KA:SD.}Yf.(SD/(g?(TSD.}?-w[SD/(v{w[SD.~|_66SD/,gNUDSD/+?//mSD/5]Q`U !SD/6j\k/SD/CUhSnSD/Fm,;oSD/U(@6@SD/XrwznSD/f7Uq%SD/g*y*zSD/o<`&VSD/iLbG4SD/iu%5I !SD/[]l18SD/S-[k3SD/;Vb-cSD/)aoR]SD.c5-?CSD.I+k\_SD-{dE>gSD-\hA,eSD-2mUowSD,m0qz- !SD,D)F7uSD,&b0XxSD+[^SG'SD+D56L)SD+&N4@]SD*pq%~jSD*ZncGYSD*Qk,+wGSD)8}.U,SD)@SD)5R/q@SD)60*5a !SD)*-dcnSD(~+^?lSD(j&]S\SD([L{1{SD(?2JN+SD()TEQlSD'b^GhSD%v.~kkSD%_z[XKSD%>vsV-SD%&.qJ,SB~\<,s&SB~@\?msSB}t-un`SB}V*3t, !SB}-Y\8USB|h2zpESB|?7IK8SB{z`06-SB{T=y6QSBz,F}l% !SBylSx>QSBy],BRrSByDO@y9SBy4UD3KSBxr`2&oSBx[L*`ESBx4|NC`SBtT'ChcSBt?e<>tSBt2{.TvSBss@8L5SBs^>;gu !SBs;:zL-SBrwBzdTSBrMl,MjSBr,P9xHSBq[{nNRSBq;:OSuSBplQ)?wSBpNSLIhSBp)UH[DSBoj*>f= !SBoIo:{2SBo4ggDsSBnr'8?VSBn^WT5TSBn@TrFrSBn)(?ZlSBm_U/2DSBmB7tJfSBlsSx%qSBlRt~3G !SBl*&?6)SBkf'9NdSBkA].FqSBk)/G*7SBjdb&YgSBjR&1:zSBj8tn.mSBj*t|8ZSBiow)/DSBiePb(U !SBiSIVxRSBiJq:PXSBi9J4^?SBi0R\q>SBhx:)6GSBhnAJPXSBh[HSBgDFyv0SBg=T.POSBg-Bw.JSBg%BM]% !SBfn8u6RSBfeMjFPSBfScG_MSBfJ?Jb^ !SBe7*EBgSBe+CSBcnANZ|SBce;+hZ !SBcTK:imSBcL_8UySBc2IASB`&mj0FSB_`*rOXSB_F0ml. !SB^}2&)%SB^c=.K_SB^C]9,3SB^/fb]VSB]qIPulSB]e)+);SB]SUm[sSB]Kti=CSB];b`PQSB]27YCh !SB\xEL95SB\jHJUzSB\R'H^cSB\@GijvSB\&5'?jSB[nWG|^SB[U`qyPSB[F0bx0SB[/q5/=SBZ}:hb| !SBZj03SZSBZ`dferSBZPZ3Z\SBZIa%J6SBZ;;P3hSBZ4`ZqVSBY~KpawSBYs_od@SBY]e7ZHSBYL\xZl !SBY0T3N9:\USBWzg~q6SBWf~:zzSBWM2p}|SBW=5d^RSBW&i2CZSBVsB~I- !SBV^\ZpxSBVR7s]iSBV=v8:zSBV18%`,SBUud7S[SBUfW_0fSBUM[~(SSBU:XKsmSBTwpX].SBTaZ{=I !SBTC(UtoSBT->CThSBSkZvZASBSZ0f(^SBSC7bi`SBS64Jj.SBR|P~C]SBRp65NGSBRZ3@]+SBRI:X8O !SBR-Qh>vSBQpXgV\SBQOATzbSBQ4E0YwSBPkR+[RSBPQ/TR*SBP09JnMSBOrXo<]SBOTmt,7SBO@;'Fj !SBO%3@8iSBNld)j,SBNS;O0=SBNA{< !SBFeqQ`PSBFT&YvKSBF<0WKKSBF-@=~YSBEre8VmSBEg4bA8SBEU]s\ESBELT|wrSBE8P[SBC`n`-/SBCUr-~I !SBCC]LV]SBC8[<<^SBC&&wK0SBBtLT/`SBBa:}8sSBBU(J}uSBBAAJQ\SBB4iUuxSBAz|r`BSBAn[5K8 !SBA[9(jaSBAOMS'zSBAfSB@3wls2SB?{((n=SB?lIsZNSB?Sv6[wSB?@;D>PSB>~:mR/SB>ift=pSB>Oa*:7SB>>w]'> !SB>)V3/jSB=wg=0^SB=f|'qbSB=^VI>1SB=O=b[:SB=F_tjgSB=61wBaSB=+a-/jSBSB:7_-UySB9zGzEfSB9jCyjJSB9Sj)]vSB8zZduBSB8eVr@wSB8WC?&z !SB8AchmFSB8213KxSB7tew*NSB7c8)L9SB7Ix7b)SB76n7%^SB6vWc4,SB6cGjqdSB6IsRIxSB67v~.Y !SB5yv5xBSB5iVkYfSB5S1ZwXSB5D2Z.gSB5.kE~8SB4zV_V@SB4ej6kC]SB2I9%5TSB2;188N !SB2&OA/5SB1r]n,/SB1^5e`@SB1PO'kOSB1<(+&(SB1.6BL(SB0sU&2+SB0eBG]?SB0P3VcVSB0A7qcs !SB0*|OgySB/tZ.URSB/\ippLSB/JnOsxSB/1`/y*SB.xje}VSB._N&D*SB.MYS;SSB.6HEl8SB.':x'{ !SB-lz<,iSB-`O%V}SB-N:F%-SB-BVmtiSB-/2| !SB'2MM=mSB&yLWYWSB&aOFn_SB&Q\L,:SB&=53_^SB&0mr=rSB%yN5c/SB%o3]W'SB%^;]7LSB%Rku%o !SB%?etGdSB%1\0>=S@~un[32S@~e9um]S@~MhtwKS@~1S@t4/:o:S@szzR\6S@sl|DtjS@sX7t=9S@sHm,7pS@s2~*|=S@r}8oW%S@rh*Le/S@rYl@[^ !S@rF]YGVS@r:Uh:5S@r)TmIlS@qyAg~tS@qiWs5]S@q_X}eDS@qO,6<~S@qCg'c\S@q1Z_L6S@p~UZ3g !S@pjqnG=S@p\c{WeS@pHgpe5S@p;0v_,S@p(;icwS@ou|(4VS@odQ%2ES@oYQI};S@oH}Q1:S@o>C%ji !S@o-T>`.S@n|/|RSS@njB,-PS@n]m8JSS@nJtc75S@n=DLXnS@n)cn?`S@muiY-US@ma~kcLS@mT0rIg !S@m@Zq%NS@m3,_C;S@lz)=/}S@lm56Z+S@lZ{'QjS@lN}HWpS@l=a+^XS@l2TQ[WS@k{waj5S@kq:dfr !S@k`dk(%S@kUY3;]S@kD4Kq%S@k7tlAdS@k%4pYbS@jqRQYsS@j]JUdjS@jNLhKvS@j998`xqOS@gVHyN|S@gDP+h]S@g6b)XNS@f{eRxgS@fk&pyHS@fSa~_yS@fA]FAo !S@f*AHC(S@esHT5@S@e]t'A:S@eO-J02S@e;q%}-S@e/9O^&S@dwjFa\S@dl=WJcS@d[?c[sS@dOm'Zh !S@d>PPa.S@d2C]6oS@cz.RO,S@cleff?S@cXrVTWS@cIR4d^S@c3S7{(S@b|'(:mS@bd+JLyS@bPxGcT !S@b7t^r7S@a~W_>WS@afLk?6S@aTqUD6S@a>x^cxS@a/gssGS@`v;9V{S@`i=\5tS@`WOp6KS@`KHONf !S@`9k}SDS@`-LE39S@_u?Qw>S@_h:Kd3S@_UC,0.S@_GVcE`S@_4-OSxS@_%zu|{S@^lAeE}S@^^1Cu-bDS@]/fQ~2S@]&+RrA !S@\pV,;JS@\e8_M[S@\RwIa\S@\D7s%~S@\.EbvHS@[v=uA[S@[]Xc9PS@[Ia7`kS@[0ySB{S@ZxzJ1F !S@ZcOqiVS@ZUG|@%i,S@N4W1m{S@M}.>LrS@Mp|E94S@M`0&}IS@MTW;5i !S@MD79=nS@M8|rMQS@M(m}(|S@Lw_7I(S@LgNC\YS@L\5gEvS@LKn{LYS@L@>FT/S@L/V~UBS@K}TS7j !S@Kl:ECES@K_[H];S@KMf;efS@K@UpUhS@K.7t2kS@Jze`[9S@JhBoQ?S@J[*&M7S@JI-uGZS@JTS@EQs.L3S@EDE[@h !S@E29_^LS@E%,:gMS@Dm?2o`S@D`Jg=7S@DNl|wDS@DAwA&|S@D0/w/,S@C|yt:)S@CjlisJS@C]8yJF !S@CJaF;`S@Ctt2P)S@>bnf`rS@>VLx1HS@>FVywsS@>.vV|wS@>&x96VS@=t~FuwS@=mu}2FS@=aepQIS@=Y?u_vS@=K.TU>S@=@>P;PS@=/U*&eS@<|4ve* !S@mS@;n}q~vS@;\Ky?3S@;N~uAcS@;=PD0oS@;0ztWr !S@:z/V^hS@:n(?%*S@:]PcS8S@:QV:o3S@:A&ceSS@:4{_ibS@9~4)}-S@9q\lN0S@9`,eZWS@9R[341 !S@9@)/+uS@91SMueS@8w|M%8S@8hWh1jS@8TEELES@8D^~bhS@80Yy1/S@7{F^FhS@7h)d/DS@7YdBUI !S@7GBZhsS@79yOt^1BrS@5,`dxES@4xipT\S@4f,.cVS@4WZ?`5S@4DWKF5S@46//vI !S@3}YicYS@3o|tmPS@3^PI+nS@3Q}4eRS@3AZgp_S@36/?JpS@3&W`TXS@2uV:+SS@2f'tlaS@2Zd+?M !S@2J`,>1S@2>^wS*S@2-o{IIS@1z~}pBS@1iFzjjS@1[kYKHS@1IRO)LS@1;C4f@S@1(VhT}S@0sxrhd !S@0`ix9jS@0Qnc3|S@0>IR,NS@0/?&h=S@/umkQ}S@/fe`izS@/SF~SBS@/DUO:?S@/1ZLCIS@.}A2lD !S@.k3s~QS@.^'MJ>S@.ML\AuS@.B1;}4S@.3Q1B;S@.*,Gf+S@-w4gekS@-o6uK@S@-c:O5bS@-[Gd\Z !S@-NTiuOS@-D{ZTpS@-5wliLS@-)w1h5S@,rFVh2S@,c{nThS@,PBj4*S@,@Kd]lS@,,6w{9S@+vQCP' !S@+b~@}-S@+TDaZNS@+B2%r8S@+4wE0mS@*~3O=KS@*r@:3)S@*bhSnPS@*Wua2(S@*I6@:8S@*?'42> !S@*0q/QxS@*&~w{zS@)rvDn[S@)hkF1=S@)Yz(p7S@)N_33*S@)>FKg5S@)1QRweS@(y\DTYS@(k5Z*F !S@(Ww4z,S@(HH%feS@(4Tx&ZS@'~{+:4S@'kMhG-S@'\PA%'S@'IiXoUS@';b-J1S@')w47,S@&vj|Zw !S@&ev&__S@&YUsFtS@&IDkgcS@&=Yu?qS@&-v5DZS@%|T.W'S@%m-c?TS@%akw)KS@%R4gY-S@%FFjjm !S@%6)W@&S@%)H]EJS>~r2;~dU0zvS>~RDvjaS>~Csq4gS>~0}r=1S>}|%WrvS>}hnCS3S>}Ya41o !S>}FL@X_S>}7DN0]S>|~?&ohS>|oP0{yS>|\q=?&S>|N^d(zS>||/HU-IS>{xFV4vS>{klX+u !S>{[O~?VS>{OKo|6S>{?F/`)S>{30^(yS>z|Koz{S>zo;tX^S>z]Oh+lS>zO3X2mS>zz-'2uf !S>ysOnVyc}lVbS>yPkk1%S>yB*9`FS>y/s-FCS>x|<|ptS>xk:o)VS>x^h1>rS>xNa]9sS>xBlQL6 !S>x2s|XcS>x&h*V;S>wpCNuwcY/>AS>wRR0h0S>wE,mX_S>w3NO2uS>w%eRuiS>vn18]7S>v`kZ3F !S>vOoE/4S>vC7<5KS>v3&A5QS>v'0+i1S>uqXT[*S>uf.fY|S>uV^X(zS>uJq.ouS>u:i:XGS>u.4P/3 !S>tw8g@^S>tihCp&S>tW|AC]S>tIm(fHS>t7Yz\pS>t)Bdb'S>sqC62NS>scPD)^S>sR&z2zS>sDjNar !S>s3{Es?S>s'DFqTS>rq0Mb2S>rd}wd/S>rU0Gl*S>rI<1pfS>r9\aI\S>r-xPb0S>qxMBG:S>qluGH| !S>q]V`z`S>qR1\p)S>qB|&7;S>q7e~&5S>q(e(-2S>pwZv3&S>phcBvkS>p]]`N+S>pNeAQaS>pCU];t !S>p4HQFAS>p(sA~ES>os@WrvS>og@n:=S>oW;R`ES>oJgNv~S>o:4nV1S>o-56*uS>nv6HP]S>nho^Ru !S>nWT_AXS>nIt+_5S>n8B.VDS>n*Kan'S>mr_lTZS>mdUh;'S>mRV~ufS>mD90anS>m2'N6nS>l}QI+0 !S>lk0I>~S>l\MMkPS>lI~*X2S>l;=)}FS>l(pxTuS>kt;Y0lS>kb+6G5S>kSld]nS>kB%~L_S>k45|Hv !S>j|wKxXS>jo`8;kS>j_'7fES>jRQR|3S>jBdW>hS>j7,NfxS>j(8G>QS>iwN]UIS>iiGRamS>i_=Gg, !S>iQ]|}OS>iG]Ti9]@(FS>i.kAg%S>hy^[odS>hmQ,liS>h\~K@)S>hOS>hXS>h=n}&-S>h/Gab: !S>gw5\vvS>ghoj}(S>gW9XbYS>gIkp9[S>g9?U3MS>g-*+ElS>fwlcBrS>flfR%}S>f^PFAgS>fT0+FB !S>fFf<'2p`S>f..]|0S>e}`SYES>eoJk:4S>edTjYAS>eUgvKyS>eJ5,70S>e:Z9wTS>e./t|a !S>dwY\?cS>dj28zjS>dXa\VTS>dJDUucS>d8-b]~S>d)24P/S>cpSqDWS>caO&{|S>cN{Eq(S>c@3~uS !S>c.(H0kS>byd'SQS>bh-o*?S>bZBTK-S>bIC&jAS>b<5YqtS>b+o(ShS>ay>tQLS>aiSVd{S>a]SWY3 !S>aN8c8HS>aBYVj>S>a3S)9;S>a's;ikS>`rT%weS>`fG\L3S>`VKTznS>`I\l41S>`8~m\YS>`+W~NS !S>_tL9[~S>_fc@WAS>_UYI.uS>_H5U>:S>_7_3{|S>_*xja3S>^u0awIS>^i0n%~S>^Y}L85S>^NPPN~ !S>^?X^3wb=6S>]~T|a1S>]r70&/S>]b'{)1S>]Ts+7]S>]Ct^PGS>]5|Ce=S>\~HqcWS>\p3Jio !S>\^\%B>S>\P`@WKS>\?Xg.eS>\25}p}S>[{gqMwS>[o&LKqS>[_9Pg+S>[S-PS2S>[ClYAnS>[8&i6t !S>[(}`3TS>ZwGb:eS>ZhNN<~S>Z\u(AZMwgPCS>ZB7+=XS>Z2{TQwS>Z&m7&4S>Yp~A^RS>Yd4}23 !S>YSc*2vS>YF6ca'S>Y5,CrJS>Y'(P4LS>XoT7:.S>XaAB?2S>XOy?a2S>XB,ta.S>X18Je,S>W}yQ&I !S>WmaMdrS>W`|K&uS>WQ8`ZqS>WDt's@S>W5:uM{S>W(gX+vS>Vri6W,S>VelV\kS>VUABEIS>VGpscc !S>V6vB82S>V)*,'YS>Uqx&:/S>Ud1gutS>USD9uUF,0CjS>U5wFMWS>U)C&?]S>Tsu:&IS>Th&^fn !S>TY;`EBS>TMzyL{S>T?]x,vS>T4]n\NS>T&QnaPS>SuXz9CS>SgL42tS>S\H_PuS>SN'hpJS>SB\ttL !S>S3ct6kS>S'QoEIS>Rq\s^hS>RdErRSS>RSIomPS>RE,\44S>R31.deS>Q}x\W@S>QkA*6+S>Q[izvI !S>QI8%W~S>Q:'+`fS>Q(&l4,S>PsPQ/MS>Pb5}o*S>PTDE2{S>PCcof_S>P6DAy;S>P%y>*jS>OrT-1C !S>Oaq+-CS>OT'}>5S>OBub]tS>O4Z5vMS>N|}94/S>Nn:ok_S>N\AT(XS>NML4Q%S>N;X.]DS>N,t^8@ !S>MuBrGhS>Mg(ZmIS>MU{J|?S>MH7-,VS>M7fsw3S>M*`eB+S>Lu%qP.S>LhpFr.S>LZ.zQOS>LNnL@sL_&S>L66O^(S>L(_U%BS>Kx(C|]S>Kj)>DyS>K^<&ppS>KNN'67S>K@OL:-S>K.C%eoS>Jx&D5n !S>Jce5}zS>JQVStrS>J;zq-@S>J)I`KQS>Indz;XS>I^4SLQS>IL69rtS>I>h+AhS>I0'@Y5S>I%m,c; !S>Ht,V.qS>HlGIVBS>HbCK]=S>H[.mS@S>HPQ,WFS>HGzihyS>H;U9|-S>H0ozLnS>G|%:`aS>Gnd<+U !S>G]5V.~S>GM1u@FS>G8w=fnS>G&;u+xS>Fi[u>{S>FTn89%S>FF&KmvuS>EgVx7bS>EQ~o\h !S>E;+jjRS>E)DS-JS>Dql8v|S>Df='C}S>D[=B`kS>DV;m&vS>DQF82mS>DQ^V&OS>DPc0e4S>DRZ%PL !S>DP?[VvS>DND_[FS>DF`z/TS>D>H1s?S>D/w_H=S>Cziv-cS>Cehf2NS>CPrGu{S>C7e/fRS>Bzv*}E !S>BakIk{S>BL<9N6S>B5A|Fu/oS>AhBRwCS>AXMQIaS>AG;\[>S>A9az@GS>A)|3C0S>@w1w\0 !S>@geuklS>@Zr)=fS>@K6:EdS>@=x81tS>@-kT%vS>?y~t3CS>?iHtj.S>?[;wsUS>?JJb:@S>?<-}DP !S>?+2r0zS>>vh}f1S>>ekUBHS>>WGuXLS>>FP1)qS>>86jM*S>>'QbxvS>=sOad}S>=c,K\mS>=UFE%f !S>=E?xA+S>=7s[SYS>=(*evgS><:EU/}S><*23R;v5f[m !S>;eYZKMS>;W8{>%S>;F;N>TS>;7V4mzS>;&B:qL:ciS>:`-q63S>:Q/+X?S>:?eCUGS>:0`|3S !S>9y9Ha9j/:~1S>9X[4H1S>9IE(W~S>97bUnLS>9(:sYmS>8pHqvxS>8`lGpcS>8Npng^S>8?4r,4 !S>8-<|v{S>7whvD1S>7f8'mUS>7W;t'eS>7FK=0zS>78:SyBS>7(9K_^S>6toa)_S>6eXwW2S>6Xop69 !S>6J-y&mS>6=\.4+S>6.rZUlS>5|..*DS>5lyNW}S>5_^O`wS>5Ot__GS>5Axq1CS>51TVISS>4|we,r !S>4ky(V{S>4\m[y;S>4KIB;qS>4;v3M'S>4*76.HS>3tL]R'S>3bWdQ1S>3Ra]5eS>3@juanS>30{f9Q !S>2yAD/vS>2ir61QS>2XaP@ZS>2IdUvJS>29*S~8S>2*\`WZS>1tRI7zS>1fTh7MS>1VpH9-S>1I2:z] !S>19^k\vS>1,&[||S>0vTJYoS>0ho(J0S>0Y8'd-S>0K?J[3S>0;Jv7'S>0-0)h/S>/vjVcrS>/gq4Jv !S>/VnPmiS>/G2D)3S>/5IOb9S>/%'>-yS>.l`QpnS>.[fQwpS>.H~9gVS>.7uc`kS>.%B6%OS>-n[3B) !S>-\YfjXS>-LPRVwS>-;4ddQS>-+i{|,S>,u4<9,S>,fGexmS>,VC)GjS>,Gu(x=S>,8)Q5*S>,)`Q}b !S>+snfYWS>+e@v@0S>+U@v9LS>+FTe'QS>+68ce?S>+&~2E|S>*p1l_-S>*`8MHhS>*N^bcpS>*=xGM= !S>*+]5Y0S>)t6TR&S>)aAL@WS>)OI]gRS>))*Q9>-S>(qww@PS>(`rBNIS>(O-S>(?88'H !S>(.coZ)S>'y]uh%S>'j)9s0S>'[`p('S>'LP&L/S>'=|UCoS>'.AW53S>&y'}aMS>&hS6FzS>&X:A6| !S>&FkE1IS>&5XAT_S>%}GDioS>%k^97US>%YHrWuS>%Gzxy&S>%6FIhDS>%%a-vuS<~n|NGfS<~_--R9 !S<~O:ArdS<~?~J09S<~0]o~vS<}{I^u1S<}kae/sS<}[]Fn=S<}JymcTS<}9g.?US<}'ym(1S<|oVy+? !S<|\k0asS<|IQ9-1S<|6<*5TS<{|tdJ:S<{j/&++S<{WE[^HS<{EPCs_S<{3Xz_kSShSS e0+ehigh and E < e0-elow. within the range E = [e0-elow, e0+ehigh], f'' was set to f''(E) = f''_CL(E) + a0 + a1 * mu(E') * ( E' / e0) + a2 * (E' - e0) + a3 * (E' - e0)**2 where mu(E) was read from f1_like.dat, f''_CL(E) was found for Cu, and E' = E + e0_shift. the values of e0_shift, a0, a1, a2, and a3 were determined to be: e0_shift = 1.81773 a0 = -0.543491 a1 = 0.998036 a2 = 0.103562E-03 a3 = -0.495842E-08 so as to best match f''_CL(E) between E = [e0-elow, e0+ehigh] -- end diffkk log file -- ifeffit-1.2.11d/examples/diffkk/f1/diffkk.inp0000644000175000017500000000303010771740461017703 0ustar segresegre # -- diffkk version 1.20 -- # program inputs or default values used: title = diffkk: no title lines specified xmu = f1_like.dat out = f1_out.dat isfeff = false % file is not a feff xmu.dat file f1_to_f2 = true % transform f1-like data to f2 encol = 1 % column to read energy from mucol = 2 % column to read mu(E) from iz = 29 % atomic number of core atom e0 = 8977.9700 % edge energy (used as reference) egrid = 1.0000 % energy grid for calculation ewidth = 0.000 % for broadening CL data elow = 200.0000 % how far below data range to calculate ehigh = 500.0000 % how far above data range to calculate end % all remaining lines will be ignored on input -- diffkk program summary -- f''(E) was set to be f''(E) = f''_CL(E) for E > e0+ehigh and E < e0-elow. within the range E = [e0-elow, e0+ehigh], f'' was set to f''(E) = f''_CL(E) + a0 + a1 * mu(E') * ( E' / e0) + a2 * (E' - e0) + a3 * (E' - e0)**2 where mu(E) was read from t.dat, f''_CL(E) was found for Cu, and E' = E + e0_shift. the values of e0_shift, a0, a1, a2, and a3 were determined to be: e0_shift = -0.605967 a0 = 1.39921 a1 = 2.51221 a2 = -0.877579E-03 a3 = 0.125303E-05 so as to best match f''_CL(E) between E = [e0-elow, e0+ehigh] -- end diffkk log file -- ifeffit-1.2.11d/examples/diffkk/f1/cu_exp.xmu0000644000175000017500000005025010771740461017761 0ustar segresegre# data : cu foil 150k, foil rolled and annealled by matt # xmu: from skey ASCII of ../xmu/cu150k_new.xmu # using skey ASCII of cu_chi.fit # e0 = 8984.73; pre-edge range =[ -50.0 -200.0]; edge step = 2.268 # k range=[ 0.00 24.95]; k weight= 0.00; sills dk1, dk2 = 0.00 0.00 # bkg r =[ 0.00 1.17]; 1st shell r =[ 1.17 2.95]; 19 knots in spline # cu foil 150k, foil rolled and annealled by matt # 2-SI111 HC/2D= 1977.260 STPDEG=6400. STPMMZ= 40. FOCUS=F TRANSLT=F # E0= 8980.0 NREG= 3 NPTS= 636 NSCLRS= 3 EF= .0 # SRB= -205.8 -55.6 30.0 2381.3 # DEL= 10.020 .483 .050K # SEC= 1.000 1.000 1.000 # DETECTORSI0 I If # GAINS 8 7 10 # OFFSETS 51284 50016 48319 # ---------------------------------------------------------------------- # energy xmu 0.8774104E+04 0.6741972E-02 0.8784130E+04 0.4046697E-03 0.8794138E+04 0.3044748E-03 0.8804168E+04 0.2200503E-03 0.8814182E+04 0.7927279E-04 0.8824217E+04 -.2765085E-04 0.8834234E+04 -.2706209E-03 0.8844233E+04 -.2680976E-03 0.8854256E+04 -.1683232E-03 0.8864259E+04 -.3567275E-03 0.8874286E+04 -.3300229E-03 0.8884336E+04 -.2262534E-03 0.8894323E+04 -.3547299E-03 0.8904377E+04 -.2850246E-03 0.8914368E+04 0.8726314E-05 0.8924426E+04 0.3105727E-03 0.8934421E+04 0.9585278E-03 0.8934894E+04 0.1138101E-02 0.8935366E+04 0.1139678E-02 0.8935882E+04 0.1204547E-02 0.8936354E+04 0.1243973E-02 0.8936826E+04 0.1244288E-02 0.8937299E+04 0.1433218E-02 0.8937858E+04 0.1431852E-02 0.8938288E+04 0.1430590E-02 0.8938761E+04 0.1463603E-02 0.8939233E+04 0.1536672E-02 0.8939792E+04 0.1537934E-02 0.8940266E+04 0.1613948E-02 0.8940696E+04 0.1778696E-02 0.8941169E+04 0.1691854E-02 0.8941728E+04 0.1742529E-02 0.8942201E+04 0.1803088E-02 0.8942675E+04 0.1754305E-02 0.8943147E+04 0.1813391E-02 0.8943621E+04 0.2153823E-02 0.8944095E+04 0.2086115E-02 0.8944568E+04 0.2262218E-02 0.8945042E+04 0.2225105E-02 0.8945516E+04 0.2308583E-02 0.8946032E+04 0.2266003E-02 0.8946506E+04 0.2319833E-02 0.8946979E+04 0.2391536E-02 0.8947453E+04 0.2399316E-02 0.8947970E+04 0.2573316E-02 0.8948444E+04 0.2679399E-02 0.8948918E+04 0.2665626E-02 0.8949392E+04 0.2895244E-02 0.8949866E+04 0.2943817E-02 0.8950383E+04 0.3010473E-02 0.8950857E+04 0.3140422E-02 0.8951332E+04 0.3273945E-02 0.8951806E+04 0.3380553E-02 0.8952280E+04 0.3578315E-02 0.8952798E+04 0.3737912E-02 0.8953272E+04 0.3699432E-02 0.8953747E+04 0.3831062E-02 0.8954222E+04 0.3965847E-02 0.8954738E+04 0.4059734E-02 0.8955213E+04 0.4254446E-02 0.8955688E+04 0.4443061E-02 0.8956163E+04 0.4578371E-02 0.8956638E+04 0.4658591E-02 0.8957155E+04 0.4873594E-02 0.8957631E+04 0.5111307E-02 0.8958105E+04 0.5169132E-02 0.8958581E+04 0.5523126E-02 0.8959056E+04 0.5579900E-02 0.8959531E+04 0.5976894E-02 0.8960049E+04 0.6028727E-02 0.8960524E+04 0.6403748E-02 0.8961000E+04 0.6567866E-02 0.8961475E+04 0.6865086E-02 0.8961950E+04 0.7091970E-02 0.8962469E+04 0.7537223E-02 0.8962944E+04 0.7831289E-02 0.8963420E+04 0.8178869E-02 0.8963896E+04 0.8585642E-02 0.8964371E+04 0.8932592E-02 0.8964890E+04 0.9527558E-02 0.8965365E+04 0.9840338E-02 0.8965842E+04 0.1037170E-01 0.8966317E+04 0.1080349E-01 0.8966793E+04 0.1155007E-01 0.8967270E+04 0.1217216E-01 0.8967788E+04 0.1308485E-01 0.8968265E+04 0.1374857E-01 0.8968741E+04 0.1433471E-01 0.8969217E+04 0.1547544E-01 0.8969693E+04 0.1660061E-01 0.8970170E+04 0.1779653E-01 0.8970688E+04 0.1914112E-01 0.8971165E+04 0.2136223E-01 0.8971642E+04 0.2265320E-01 0.8972118E+04 0.2461567E-01 0.8972595E+04 0.2689829E-01 0.8973071E+04 0.3024109E-01 0.8973592E+04 0.3485101E-01 0.8974068E+04 0.3948573E-01 0.8974545E+04 0.4651914E-01 0.8975021E+04 0.5583674E-01 0.8975499E+04 0.6572565E-01 0.8975976E+04 0.8132894E-01 0.8976452E+04 0.1188066E+00 0.8977016E+04 0.1940368E+00 0.8977493E+04 0.2822425E+00 0.8977970E+04 0.3760500E+00 0.8978404E+04 0.4338930E+00 0.8978881E+04 0.4705176E+00 0.8979358E+04 0.4842958E+00 0.8979836E+04 0.4851528E+00 0.8980399E+04 0.4720119E+00 0.8980834E+04 0.4650247E+00 0.8981312E+04 0.4573942E+00 0.8981789E+04 0.4628778E+00 0.8982267E+04 0.4743689E+00 0.8982744E+04 0.4909787E+00 0.8983222E+04 0.5163265E+00 0.8983699E+04 0.5342217E+00 0.8984221E+04 0.5537962E+00 0.8984698E+04 0.5685183E+00 0.8985177E+04 0.5955791E+00 0.8985654E+04 0.6142486E+00 0.8986133E+04 0.6418195E+00 0.8986610E+04 0.6696226E+00 0.8987089E+04 0.7150658E+00 0.8987567E+04 0.7543312E+00 0.8988089E+04 0.7991073E+00 0.8988566E+04 0.8480088E+00 0.8989045E+04 0.8836795E+00 0.8989523E+04 0.9157425E+00 0.8990002E+04 0.9581174E+00 0.8990480E+04 0.9957231E+00 0.8990959E+04 0.1024997E+01 0.8991438E+04 0.1045592E+01 0.8992003E+04 0.1051450E+01 0.8992481E+04 0.1046245E+01 0.8992917E+04 0.1037152E+01 0.8993396E+04 0.1018508E+01 0.8993875E+04 0.1009742E+01 0.8994354E+04 0.9837348E+00 0.8994833E+04 0.9707072E+00 0.8995312E+04 0.9574713E+00 0.8995791E+04 0.9458168E+00 0.8996270E+04 0.9404431E+00 0.8996792E+04 0.9374447E+00 0.8997271E+04 0.9411120E+00 0.8997751E+04 0.9490407E+00 0.8998230E+04 0.9676145E+00 0.8998710E+04 0.9766868E+00 0.8999189E+04 0.1012650E+01 0.8999669E+04 0.1027472E+01 0.9000148E+04 0.1045820E+01 0.9000628E+04 0.1063003E+01 0.9001107E+04 0.1072831E+01 0.9001587E+04 0.1071998E+01 0.9002154E+04 0.1061513E+01 0.9002591E+04 0.1050908E+01 0.9003070E+04 0.1035810E+01 0.9003550E+04 0.1021879E+01 0.9004030E+04 0.1006236E+01 0.9004510E+04 0.9869754E+00 0.9004990E+04 0.9745494E+00 0.9005471E+04 0.9627140E+00 0.9005950E+04 0.9507703E+00 0.9006431E+04 0.9412103E+00 0.9006911E+04 0.9326335E+00 0.9007391E+04 0.9224309E+00 0.9007871E+04 0.9157560E+00 0.9008439E+04 0.9025328E+00 0.9008920E+04 0.8987371E+00 0.9009400E+04 0.8950848E+00 0.9009838E+04 0.8944842E+00 0.9010317E+04 0.8949685E+00 0.9011454E+04 0.9020438E+00 0.9012503E+04 0.9084551E+00 0.9013640E+04 0.9218667E+00 0.9014777E+04 0.9371113E+00 0.9015915E+04 0.9586273E+00 0.9017096E+04 0.9804545E+00 0.9018321E+04 0.1000979E+01 0.9019504E+04 0.1023643E+01 0.9020774E+04 0.1046339E+01 0.9022001E+04 0.1063258E+01 0.9023271E+04 0.1073492E+01 0.9024586E+04 0.1069635E+01 0.9025901E+04 0.1050523E+01 0.9027218E+04 0.1024006E+01 0.9028578E+04 0.9998387E+00 0.9029938E+04 0.9732829E+00 0.9031343E+04 0.9550736E+00 0.9032748E+04 0.9422832E+00 0.9034154E+04 0.9354880E+00 0.9035604E+04 0.9360862E+00 0.9037099E+04 0.9429586E+00 0.9038594E+04 0.9518635E+00 0.9040089E+04 0.9591606E+00 0.9041585E+04 0.9586281E+00 0.9043126E+04 0.9542525E+00 0.9044755E+04 0.9539353E+00 0.9046297E+04 0.9602759E+00 0.9047883E+04 0.9723247E+00 0.9049514E+04 0.9798746E+00 0.9051146E+04 0.9802323E+00 0.9052777E+04 0.9797023E+00 0.9054454E+04 0.9846100E+00 0.9056176E+04 0.9960462E+00 0.9057898E+04 0.1009416E+01 0.9059622E+04 0.1018625E+01 0.9061346E+04 0.1025833E+01 0.9063114E+04 0.1033986E+01 0.9064928E+04 0.1044479E+01 0.9066742E+04 0.1058282E+01 0.9068557E+04 0.1071725E+01 0.9070417E+04 0.1078210E+01 0.9072277E+04 0.1074147E+01 0.9074140E+04 0.1061350E+01 0.9076047E+04 0.1035255E+01 0.9077998E+04 0.1010597E+01 0.9079906E+04 0.9899678E+00 0.9081904E+04 0.9731535E+00 0.9083859E+04 0.9597905E+00 0.9085859E+04 0.9544396E+00 0.9087904E+04 0.9508229E+00 0.9089906E+04 0.9374591E+00 0.9091998E+04 0.9169598E+00 0.9094046E+04 0.8982905E+00 0.9096140E+04 0.8887743E+00 0.9098279E+04 0.8914091E+00 0.9100374E+04 0.9026864E+00 0.9102561E+04 0.9191025E+00 0.9104702E+04 0.9409444E+00 0.9106891E+04 0.9599401E+00 0.9109124E+04 0.9760680E+00 0.9111359E+04 0.9840099E+00 0.9113595E+04 0.9837798E+00 0.9115877E+04 0.9782224E+00 0.9118159E+04 0.9754200E+00 0.9120444E+04 0.9836646E+00 0.9122773E+04 0.1011346E+01 0.9125105E+04 0.1051583E+01 0.9127527E+04 0.1084496E+01 0.9129861E+04 0.1097050E+01 0.9132241E+04 0.1093333E+01 0.9134668E+04 0.1082557E+01 0.9137096E+04 0.1069962E+01 0.9139569E+04 0.1052849E+01 0.9142045E+04 0.1028225E+01 0.9144521E+04 0.9931400E+00 0.9147045E+04 0.9566454E+00 0.9149569E+04 0.9182795E+00 0.9152140E+04 0.8801582E+00 0.9154713E+04 0.8518628E+00 0.9157286E+04 0.8383830E+00 0.9159907E+04 0.8442038E+00 0.9162529E+04 0.8703850E+00 0.9165153E+04 0.9044260E+00 0.9167823E+04 0.9410277E+00 0.9170542E+04 0.9687940E+00 0.9173215E+04 0.9848469E+00 0.9175936E+04 0.9895651E+00 0.9178703E+04 0.9827247E+00 0.9181474E+04 0.9724739E+00 0.9184244E+04 0.9656297E+00 0.9187018E+04 0.9629228E+00 0.9189837E+04 0.9589218E+00 0.9192705E+04 0.9481909E+00 0.9195528E+04 0.9403569E+00 0.9198490E+04 0.9485641E+00 0.9201318E+04 0.9735138E+00 0.9204284E+04 0.1004944E+01 0.9207161E+04 0.1023438E+01 0.9210131E+04 0.1027037E+01 0.9213103E+04 0.1023993E+01 0.9216077E+04 0.1014406E+01 0.9219099E+04 0.9972209E+00 0.9222122E+04 0.9703062E+00 0.9225193E+04 0.9410914E+00 0.9228268E+04 0.9138968E+00 0.9231297E+04 0.8951751E+00 0.9234467E+04 0.8830231E+00 0.9237547E+04 0.8799598E+00 0.9240721E+04 0.8861941E+00 0.9243897E+04 0.8949196E+00 0.9247075E+04 0.8985146E+00 0.9250257E+04 0.8995503E+00 0.9253439E+04 0.9028817E+00 0.9256672E+04 0.9055168E+00 0.9259951E+04 0.9098957E+00 0.9263233E+04 0.9180834E+00 0.9266519E+04 0.9277955E+00 0.9269806E+04 0.9352860E+00 0.9273142E+04 0.9402648E+00 0.9276526E+04 0.9430841E+00 0.9279867E+04 0.9445433E+00 0.9283257E+04 0.9473667E+00 0.9286696E+04 0.9511650E+00 0.9290091E+04 0.9551927E+00 0.9293535E+04 0.9598542E+00 0.9297028E+04 0.9589250E+00 0.9300478E+04 0.9491588E+00 0.9304022E+04 0.9364284E+00 0.9307524E+04 0.9238093E+00 0.9311074E+04 0.9095426E+00 0.9314628E+04 0.8984793E+00 0.9318230E+04 0.8949720E+00 0.9321790E+04 0.8968365E+00 0.9325446E+04 0.9007007E+00 0.9329058E+04 0.9003751E+00 0.9332719E+04 0.8929917E+00 0.9336384E+04 0.8811103E+00 0.9340098E+04 0.8694440E+00 0.9343862E+04 0.8698696E+00 0.9347536E+04 0.8771672E+00 0.9351307E+04 0.8805297E+00 0.9355080E+04 0.8822187E+00 0.9358857E+04 0.8867533E+00 0.9362637E+04 0.8902957E+00 0.9366515E+04 0.8933154E+00 0.9370396E+04 0.8966194E+00 0.9374186E+04 0.8994826E+00 0.9378073E+04 0.9020333E+00 0.9382012E+04 0.9044330E+00 0.9385906E+04 0.9057776E+00 0.9389851E+04 0.9063253E+00 0.9393800E+04 0.9072086E+00 0.9397799E+04 0.9066880E+00 0.9401802E+04 0.9028075E+00 0.9405809E+04 0.8960993E+00 0.9409865E+04 0.8863477E+00 0.9413927E+04 0.8765295E+00 0.9417992E+04 0.8700193E+00 0.9422061E+04 0.8677934E+00 0.9426181E+04 0.8684586E+00 0.9430304E+04 0.8711557E+00 0.9434479E+04 0.8728519E+00 0.9438658E+04 0.8724337E+00 0.9442842E+04 0.8703241E+00 0.9447028E+04 0.8650271E+00 0.9451268E+04 0.8583546E+00 0.9455510E+04 0.8545701E+00 0.9459805E+04 0.8548734E+00 0.9464056E+04 0.8550488E+00 0.9468358E+04 0.8529346E+00 0.9472714E+04 0.8513590E+00 0.9477024E+04 0.8513824E+00 0.9481388E+04 0.8530164E+00 0.9485804E+04 0.8563838E+00 0.9490175E+04 0.8599797E+00 0.9494600E+04 0.8636668E+00 0.9499028E+04 0.8675203E+00 0.9503559E+04 0.8712541E+00 0.9507995E+04 0.8733839E+00 0.9512485E+04 0.8727015E+00 0.9517029E+04 0.8687358E+00 0.9521528E+04 0.8616780E+00 0.9526080E+04 0.8516719E+00 0.9530637E+04 0.8449670E+00 0.9535248E+04 0.8421411E+00 0.9539862E+04 0.8403164E+00 0.9544481E+04 0.8392144E+00 0.9549155E+04 0.8386131E+00 0.9553833E+04 0.8386256E+00 0.9558466E+04 0.8386563E+00 0.9563153E+04 0.8373731E+00 0.9567943E+04 0.8359069E+00 0.9572641E+04 0.8347866E+00 0.9577441E+04 0.8333808E+00 0.9582246E+04 0.8305126E+00 0.9586958E+04 0.8275877E+00 0.9591823E+04 0.8273325E+00 0.9596643E+04 0.8275981E+00 0.9601468E+04 0.8278092E+00 0.9606348E+04 0.8287137E+00 0.9611282E+04 0.8286341E+00 0.9616173E+04 0.8287517E+00 0.9621118E+04 0.8292912E+00 0.9626068E+04 0.8304889E+00 0.9631023E+04 0.8309134E+00 0.9636035E+04 0.8296790E+00 0.9641051E+04 0.8281937E+00 0.9646072E+04 0.8263185E+00 0.9651100E+04 0.8245063E+00 0.9656232E+04 0.8226239E+00 0.9661271E+04 0.8200655E+00 0.9666364E+04 0.8174354E+00 0.9671463E+04 0.8155388E+00 0.9676618E+04 0.8142766E+00 0.9681778E+04 0.8130158E+00 0.9686945E+04 0.8117805E+00 0.9692168E+04 0.8098293E+00 0.9697396E+04 0.8081500E+00 0.9702682E+04 0.8072974E+00 0.9707871E+04 0.8064693E+00 0.9713168E+04 0.8051064E+00 0.9718471E+04 0.8034429E+00 0.9723779E+04 0.8022345E+00 0.9729094E+04 0.8009887E+00 0.9734466E+04 0.7999908E+00 0.9739844E+04 0.7999132E+00 0.9745278E+04 0.8001745E+00 0.9750617E+04 0.8007867E+00 0.9756065E+04 0.8009951E+00 0.9761519E+04 0.8006505E+00 0.9766979E+04 0.8000871E+00 0.9772444E+04 0.7990254E+00 0.9778021E+04 0.7971187E+00 0.9783499E+04 0.7951744E+00 0.9789036E+04 0.7940637E+00 0.9794631E+04 0.7935966E+00 0.9800181E+04 0.7928761E+00 0.9805788E+04 0.7921921E+00 0.9811403E+04 0.7910633E+00 0.9817024E+04 0.7893413E+00 0.9822652E+04 0.7872020E+00 0.9828339E+04 0.7855012E+00 0.9834084E+04 0.7838321E+00 0.9839837E+04 0.7824159E+00 0.9845491E+04 0.7814756E+00 0.9851258E+04 0.7802473E+00 0.9857030E+04 0.7786638E+00 0.9862811E+04 0.7782331E+00 0.9868598E+04 0.7769879E+00 0.9874444E+04 0.7760979E+00 0.9880297E+04 0.7755287E+00 0.9886158E+04 0.7746693E+00 0.9892025E+04 0.7744495E+00 0.9897953E+04 0.7742818E+00 0.9903889E+04 0.7737645E+00 0.9909831E+04 0.7731938E+00 0.9915780E+04 0.7723519E+00 0.9921737E+04 0.7713878E+00 0.9927755E+04 0.7703801E+00 0.9933779E+04 0.7694091E+00 0.9939813E+04 0.7684044E+00 0.9945853E+04 0.7671056E+00 0.9951953E+04 0.7658703E+00 0.9958063E+04 0.7647384E+00 0.9964179E+04 0.7641895E+00 0.9970302E+04 0.7631434E+00 0.9976434E+04 0.7623070E+00 0.9982627E+04 0.7613813E+00 0.9988827E+04 0.7599826E+00 0.9995037E+04 0.7590688E+00 0.1000125E+05 0.7580626E+00 0.1000748E+05 0.7568517E+00 0.1001376E+05 0.7559683E+00 0.1002011E+05 0.7546455E+00 0.1002636E+05 0.7537997E+00 0.1003267E+05 0.7529752E+00 0.1003899E+05 0.7519615E+00 0.1004538E+05 0.7512653E+00 0.1005177E+05 0.7506705E+00 0.1005816E+05 0.7502066E+00 0.1006457E+05 0.7498655E+00 0.1007099E+05 0.7492135E+00 0.1007746E+05 0.7484943E+00 0.1008395E+05 0.7477051E+00 0.1009045E+05 0.7469721E+00 0.1009701E+05 0.7461475E+00 0.1010346E+05 0.7449650E+00 0.1011004E+05 0.7442915E+00 0.1011663E+05 0.7433155E+00 0.1012322E+05 0.7422836E+00 0.1012982E+05 0.7413458E+00 0.1013643E+05 0.7404694E+00 0.1014305E+05 0.7394975E+00 0.1014974E+05 0.7387549E+00 0.1015643E+05 0.7380071E+00 0.1016319E+05 0.7371714E+00 0.1016985E+05 0.7363428E+00 0.1017662E+05 0.7354286E+00 0.1018335E+05 0.7345183E+00 0.1019015E+05 0.7337989E+00 0.1019695E+05 0.7327770E+00 0.1020377E+05 0.7321473E+00 0.1021059E+05 0.7314357E+00 0.1021748E+05 0.7306455E+00 0.1022432E+05 0.7301625E+00 0.1023123E+05 0.7293754E+00 0.1023820E+05 0.7287913E+00 0.1024507E+05 0.7281024E+00 0.1025201E+05 0.7273813E+00 0.1025901E+05 0.7265462E+00 0.1026603E+05 0.7258803E+00 0.1027305E+05 0.7250623E+00 0.1028008E+05 0.7244315E+00 0.1028707E+05 0.7237403E+00 0.1029412E+05 0.7229400E+00 0.1030129E+05 0.7223318E+00 0.1030837E+05 0.7215357E+00 0.1031545E+05 0.7208523E+00 0.1032266E+05 0.7200241E+00 0.1032976E+05 0.7192778E+00 0.1033698E+05 0.7185457E+00 0.1034422E+05 0.7176436E+00 0.1035135E+05 0.7168659E+00 0.1035861E+05 0.7162313E+00 0.1036588E+05 0.7152950E+00 0.1037316E+05 0.7146561E+00 0.1038045E+05 0.7138659E+00 0.1038775E+05 0.7130027E+00 0.1039506E+05 0.7124880E+00 0.1040244E+05 0.7118338E+00 0.1040977E+05 0.7112003E+00 0.1041717E+05 0.7105619E+00 0.1042458E+05 0.7096823E+00 0.1043201E+05 0.7092349E+00 0.1043950E+05 0.7084215E+00 0.1044694E+05 0.7080128E+00 0.1045440E+05 0.7073382E+00 0.1046192E+05 0.7067350E+00 0.1046952E+05 0.7061310E+00 0.1047701E+05 0.7053764E+00 0.1048456E+05 0.7047317E+00 0.1049213E+05 0.7040855E+00 0.1049971E+05 0.7034122E+00 0.1050736E+05 0.7028030E+00 0.1051497E+05 0.7021356E+00 0.1052264E+05 0.7014256E+00 0.1053033E+05 0.7008122E+00 0.1053802E+05 0.7001526E+00 0.1054573E+05 0.6994040E+00 0.1055345E+05 0.6986777E+00 0.1056124E+05 0.6980134E+00 0.1056899E+05 0.6973198E+00 0.1057680E+05 0.6966711E+00 0.1058457E+05 0.6960973E+00 0.1059241E+05 0.6955323E+00 0.1060026E+05 0.6950861E+00 0.1060812E+05 0.6942660E+00 0.1061606E+05 0.6936365E+00 0.1062394E+05 0.6929983E+00 0.1063184E+05 0.6922942E+00 0.1063981E+05 0.6917670E+00 0.1064773E+05 0.6912063E+00 0.1065573E+05 0.6905777E+00 0.1066374E+05 0.6900764E+00 0.1067176E+05 0.6894348E+00 0.1067979E+05 0.6888118E+00 0.1068784E+05 0.6883494E+00 0.1069589E+05 0.6879482E+00 0.1070409E+05 0.6871855E+00 0.1071211E+05 0.6867037E+00 0.1072026E+05 0.6861793E+00 0.1072850E+05 0.6854507E+00 0.1073662E+05 0.6849430E+00 0.1074475E+05 0.6844355E+00 0.1075296E+05 0.6837852E+00 0.1076124E+05 0.6832402E+00 0.1076947E+05 0.6827815E+00 0.1077772E+05 0.6822119E+00 0.1078604E+05 0.6818072E+00 0.1079431E+05 0.6813168E+00 0.1080266E+05 0.6808841E+00 0.1081096E+05 0.6803552E+00 0.1081933E+05 0.6799428E+00 0.1082772E+05 0.6795236E+00 0.1083612E+05 0.6790450E+00 0.1084453E+05 0.6784800E+00 0.1085296E+05 0.6779360E+00 0.1086147E+05 0.6774641E+00 0.1086992E+05 0.6771168E+00 0.1087839E+05 0.6767634E+00 0.1088700E+05 0.6762208E+00 0.1089549E+05 0.6758706E+00 0.1090400E+05 0.6753890E+00 0.1091259E+05 0.6748144E+00 0.1092119E+05 0.6744113E+00 0.1092987E+05 0.6740451E+00 0.1093843E+05 0.6735902E+00 0.1094707E+05 0.6732146E+00 0.1095579E+05 0.6727384E+00 0.1096439E+05 0.6723867E+00 0.1097314E+05 0.6719835E+00 0.1098184E+05 0.6715133E+00 0.1099055E+05 0.6711512E+00 0.1099934E+05 0.6707416E+00 0.1100815E+05 0.6704237E+00 0.1101690E+05 0.6700036E+00 0.1102574E+05 0.6694748E+00 0.1103458E+05 0.6691191E+00 0.1104345E+05 0.6687337E+00 0.1105233E+05 0.6684558E+00 0.1106122E+05 0.6681455E+00 0.1107012E+05 0.6676505E+00 0.1107904E+05 0.6675902E+00 0.1108798E+05 0.6670252E+00 0.1109700E+05 0.6666487E+00 0.1110596E+05 0.6668967E+00 0.1111501E+05 0.6659402E+00 0.1112400E+05 0.6656858E+00 0.1113308E+05 0.6654199E+00 0.1114211E+05 0.6651186E+00 0.1115128E+05 0.6648450E+00 0.1116034E+05 0.6645070E+00 0.1116941E+05 0.6641994E+00 0.1117856E+05 0.6639489E+00 0.1118779E+05 0.6637826E+00 0.1119691E+05 0.6634695E+00 0.1120611E+05 0.6631836E+00 0.1121539E+05 0.6630014E+00 0.1122455E+05 0.6627417E+00 0.1123386E+05 0.6624290E+00 0.1124312E+05 0.6622750E+00 0.1125247E+05 0.6620446E+00 0.1126169E+05 0.6617838E+00 0.1127106E+05 0.6616852E+00 0.1128039E+05 0.6614420E+00 0.1128979E+05 0.6613051E+00 0.1129915E+05 0.6610311E+00 0.1130859E+05 0.6609043E+00 0.1131804E+05 0.6606375E+00 0.1132751E+05 0.6605294E+00 0.1133700E+05 0.6603453E+00 0.1134644E+05 0.6601484E+00 0.1135596E+05 0.6600524E+00 0.1136549E+05 0.6599142E+00 ifeffit-1.2.11d/examples/diffkk/f1/f1_like.dat0000644000175000017500000022273710771740461017762 0ustar segresegre# data from ifeffit #------------------------ # energy f1 8774.1040 -3.4132395 8775.1040 -3.3980377 8776.1040 -3.4001097 8777.1040 -3.3995803 8778.1040 -3.4033748 8779.1040 -3.4061799 8780.1040 -3.4107987 8781.1040 -3.4152110 8782.1040 -3.4203182 8783.1040 -3.4256015 8784.1040 -3.4308535 8785.1040 -3.4364902 8786.1040 -3.4416425 8787.1040 -3.4473634 8788.1040 -3.4523007 8789.1040 -3.4579675 8790.1040 -3.4626466 8791.1040 -3.4682091 8792.1040 -3.4726553 8793.1040 -3.4781629 8794.1040 -3.4825114 8795.1040 -3.4880950 8796.1040 -3.4924583 8797.1040 -3.4981774 8798.1040 -3.5026062 8799.1040 -3.5084862 8800.1040 -3.5130051 8801.1040 -3.5190522 8802.1040 -3.5236650 8803.1040 -3.5298632 8804.1040 -3.5345448 8805.1040 -3.5408592 8806.1040 -3.5455877 8807.1040 -3.5520011 8808.1040 -3.5567680 8809.1040 -3.5632717 8810.1040 -3.5680736 8811.1040 -3.5746636 8812.1040 -3.5795004 8813.1040 -3.5861763 8814.1040 -3.5910517 8815.1040 -3.5978165 8816.1040 -3.6027349 8817.1040 -3.6095915 8818.1040 -3.6145574 8819.1040 -3.6215098 8820.1040 -3.6265285 8821.1040 -3.6335824 8822.1040 -3.6386615 8823.1040 -3.6458258 8824.1040 -3.6509777 8825.1040 -3.6582652 8826.1040 -3.6635002 8827.1040 -3.6709176 8828.1040 -3.6762405 8829.1040 -3.6837910 8830.1040 -3.6892035 8831.1040 -3.6968873 8832.1040 -3.7023877 8833.1040 -3.7102008 8834.1040 -3.7157815 8835.1040 -3.7237155 8836.1040 -3.7293700 8837.1040 -3.7374209 8838.1040 -3.7431460 8839.1040 -3.7513120 8840.1040 -3.7571058 8841.1040 -3.7653858 8842.1040 -3.7712464 8843.1040 -3.7796386 8844.1040 -3.7855625 8845.1040 -3.7940642 8846.1040 -3.8000503 8847.1040 -3.8086640 8848.1040 -3.8147157 8849.1040 -3.8234477 8850.1040 -3.8295723 8851.1040 -3.8384329 8852.1040 -3.8446423 8853.1040 -3.8536491 8854.1040 -3.8599658 8855.1040 -3.8691440 8856.1040 -3.8755870 8857.1040 -3.8849514 8858.1040 -3.8915307 8859.1040 -3.9010898 8860.1040 -3.9078099 8861.1040 -3.9175677 8862.1040 -3.9244284 8863.1040 -3.9343822 8864.1040 -3.9413744 8865.1040 -3.9515152 8866.1040 -3.9586311 8867.1040 -3.9689565 8868.1040 -3.9761941 8869.1040 -3.9867055 8870.1040 -3.9940651 8871.1040 -4.0047657 8872.1040 -4.0122489 8873.1040 -4.0231427 8874.1040 -4.0307512 8875.1040 -4.0418429 8876.1040 -4.0495806 8877.1040 -4.0608782 8878.1040 -4.0687522 8879.1040 -4.0802673 8880.1040 -4.0882877 8881.1040 -4.1000350 8882.1040 -4.1082160 8883.1040 -4.1202163 8884.1040 -4.1285808 8885.1040 -4.1408622 8886.1040 -4.1494312 8887.1040 -4.1620136 8888.1040 -4.1708006 8889.1040 -4.1836992 8890.1040 -4.1927137 8891.1040 -4.2059403 8892.1040 -4.2151879 8893.1040 -4.2287493 8894.1040 -4.2382285 8895.1040 -4.2521263 8896.1040 -4.2618369 8897.1040 -4.2760802 8898.1040 -4.2860291 8899.1040 -4.3006322 8900.1040 -4.3108302 8901.1040 -4.3258113 8902.1040 -4.3362720 8903.1040 -4.3516537 8904.1040 -4.3623980 8905.1040 -4.3782103 8906.1040 -4.3892589 8907.1040 -4.4055262 8908.1040 -4.4168938 8909.1040 -4.4336371 8910.1040 -4.4453344 8911.1040 -4.4625706 8912.1040 -4.4746021 8913.1040 -4.4923377 8914.1040 -4.5046882 8915.1040 -4.5229161 8916.1040 -4.5355833 8917.1040 -4.5543316 8918.1040 -4.5673471 8919.1040 -4.5866737 8920.1040 -4.6000967 8921.1040 -4.6200913 8922.1040 -4.6340195 8923.1040 -4.6548342 8924.1040 -4.6694641 8925.1040 -4.6913327 8926.1040 -4.7068241 8927.1040 -4.7298423 8928.1040 -4.7462071 8929.1040 -4.7703464 8930.1040 -4.7874663 8931.1040 -4.8125292 8932.1040 -4.8299538 8933.1040 -4.8550285 8934.1040 -4.8723810 8935.1040 -4.8988529 8936.1040 -4.9172785 8937.1040 -4.9451501 8938.1040 -4.9646208 8939.1040 -4.9941369 8940.1040 -5.0143941 8941.1040 -5.0456411 8942.1040 -5.0675711 8943.1040 -5.0998408 8944.1040 -5.1227094 8945.1040 -5.1575846 8946.1040 -5.1819571 8947.1040 -5.2187278 8948.1040 -5.2448431 8949.1040 -5.2841504 8950.1040 -5.3117618 8951.1040 -5.3536476 8952.1040 -5.3834083 8953.1040 -5.4288198 8954.1040 -5.4609785 8955.1040 -5.5099391 8956.1040 -5.5451375 8957.1040 -5.5989051 8958.1040 -5.6374217 8959.1040 -5.6966679 8960.1040 -5.7392558 8961.1040 -5.8052245 8962.1040 -5.8529462 8963.1040 -5.9272521 8964.1040 -5.9816795 8965.1040 -6.0678243 8966.1040 -6.1309883 8967.1040 -6.2320158 8968.1040 -6.3100080 8969.1040 -6.4329544 8970.1040 -6.5307112 8971.1040 -6.6941858 8972.1040 -6.8357325 8973.1040 -7.0711674 8974.1040 -7.3229790 8975.1040 -7.7168276 8976.1040 -7.6311068 8977.1040 -7.3380921 8978.1040 -6.8704770 8979.1040 -7.2478497 8980.1040 -7.5147495 8981.1040 -7.4358383 8982.1040 -7.5047844 8983.1040 -7.4736805 8984.1040 -7.5656997 8985.1040 -7.5715687 8986.1040 -7.5664382 8987.1040 -7.4375124 8988.1040 -7.2776601 8989.1040 -6.9834978 8990.1040 -6.6625833 8991.1040 -6.3776551 8992.1040 -6.2164565 8993.1040 -6.1118695 8994.1040 -6.1133114 8995.1040 -6.1293044 8996.1040 -6.1772018 8997.1040 -6.1264236 8998.1040 -6.0265888 8999.1040 -5.8289669 9000.1040 -5.6172049 9001.1040 -5.4564584 9002.1040 -5.3604436 9003.1040 -5.3002835 9004.1040 -5.2871999 9005.1040 -5.2739541 9006.1040 -5.2867055 9007.1040 -5.3119038 9008.1040 -5.3600451 9009.1040 -5.3855668 9010.1040 -5.4110527 9011.1040 -5.4255327 9012.1040 -5.4419184 9013.1040 -5.4433644 9014.1040 -5.4409662 9015.1040 -5.4091703 9016.1040 -5.3818040 9017.1040 -5.3384100 9018.1040 -5.2871842 9019.1040 -5.2099159 9020.1040 -5.1275485 9021.1040 -5.0224362 9022.1040 -4.9149624 9023.1040 -4.8036212 9024.1040 -4.7176937 9025.1040 -4.6535908 9026.1040 -4.6171184 9027.1040 -4.5826609 9028.1040 -4.5790541 9029.1040 -4.5828087 9030.1040 -4.5960903 9031.1040 -4.6080873 9032.1040 -4.6308458 9033.1040 -4.6474818 9034.1040 -4.6661188 9035.1040 -4.6702448 9036.1040 -4.6713955 9037.1040 -4.6574188 9038.1040 -4.6391069 9039.1040 -4.6115414 9040.1040 -4.5963507 9041.1040 -4.5859540 9042.1040 -4.5900260 9043.1040 -4.5921017 9044.1040 -4.5998482 9045.1040 -4.5954248 9046.1040 -4.5836880 9047.1040 -4.5576483 9048.1040 -4.5356013 9049.1040 -4.5136953 9050.1040 -4.5052468 9051.1040 -4.4992261 9052.1040 -4.5018564 9053.1040 -4.4986794 9054.1040 -4.4956332 9055.1040 -4.4803541 9056.1040 -4.4619514 9057.1040 -4.4354887 9058.1040 -4.4143387 9059.1040 -4.3901564 9060.1040 -4.3716034 9061.1040 -4.3487832 9062.1040 -4.3299327 9063.1040 -4.3053072 9064.1040 -4.2807584 9065.1040 -4.2449399 9066.1040 -4.2045311 9067.1040 -4.1512486 9068.1040 -4.0954847 9069.1040 -4.0327694 9070.1040 -3.9753994 9071.1040 -3.9150840 9072.1040 -3.8582717 9073.1040 -3.8050397 9074.1040 -3.7720266 9075.1040 -3.7479762 9076.1040 -3.7341528 9077.1040 -3.7220785 9078.1040 -3.7189939 9079.1040 -3.7150935 9080.1040 -3.7161400 9081.1040 -3.7170526 9082.1040 -3.7255851 9083.1040 -3.7300088 9084.1040 -3.7325428 9085.1040 -3.7236693 9086.1040 -3.7107347 9087.1040 -3.6930132 9088.1040 -3.6832619 9089.1040 -3.6773968 9090.1040 -3.6835267 9091.1040 -3.6956974 9092.1040 -3.7202027 9093.1040 -3.7482794 9094.1040 -3.7834413 9095.1040 -3.8164448 9096.1040 -3.8508613 9097.1040 -3.8785163 9098.1040 -3.9042673 9099.1040 -3.9227937 9100.1040 -3.9419288 9101.1040 -3.9540943 9102.1040 -3.9611049 9103.1040 -3.9562425 9104.1040 -3.9490609 9105.1040 -3.9360154 9106.1040 -3.9217449 9107.1040 -3.8995587 9108.1040 -3.8770457 9109.1040 -3.8511272 9110.1040 -3.8291493 9111.1040 -3.8068809 9112.1040 -3.7915175 9113.1040 -3.7795714 9114.1040 -3.7775612 9115.1040 -3.7798559 9116.1040 -3.7911696 9117.1040 -3.8053859 9118.1040 -3.8264523 9119.1040 -3.8454426 9120.1040 -3.8623496 9121.1040 -3.8671781 9122.1040 -3.8603282 9123.1040 -3.8341116 9124.1040 -3.7954192 9125.1040 -3.7426404 9126.1040 -3.6844121 9127.1040 -3.6200998 9128.1040 -3.5581689 9129.1040 -3.4967841 9130.1040 -3.4428634 9131.1040 -3.3917344 9132.1040 -3.3473967 9133.1040 -3.3039189 9134.1040 -3.2642785 9135.1040 -3.2226484 9136.1040 -3.1836026 9137.1040 -3.1427697 9138.1040 -3.1047081 9139.1040 -3.0647683 9140.1040 -3.0285674 9141.1040 -2.9949599 9142.1040 -2.9717069 9143.1040 -2.9538223 9144.1040 -2.9432701 9145.1040 -2.9342257 9146.1040 -2.9319184 9147.1040 -2.9332106 9148.1040 -2.9435813 9149.1040 -2.9598121 9150.1040 -2.9865354 9151.1040 -3.0185646 9152.1040 -3.0588060 9153.1040 -3.1020308 9154.1040 -3.1515212 9155.1040 -3.2020948 9156.1040 -3.2566623 9157.1040 -3.3095397 9158.1040 -3.3625042 9159.1040 -3.4077840 9160.1040 -3.4463362 9161.1040 -3.4739157 9162.1040 -3.4957389 9163.1040 -3.5084350 9164.1040 -3.5148240 9165.1040 -3.5098089 9166.1040 -3.4978563 9167.1040 -3.4773222 9168.1040 -3.4543087 9169.1040 -3.4261213 9170.1040 -3.3974504 9171.1040 -3.3651485 9172.1040 -3.3336783 9173.1040 -3.2999445 9174.1040 -3.2688419 9175.1040 -3.2384324 9176.1040 -3.2140637 9177.1040 -3.1925353 9178.1040 -3.1774416 9179.1040 -3.1646457 9180.1040 -3.1571108 9181.1040 -3.1500648 9182.1040 -3.1462241 9183.1040 -3.1409115 9184.1040 -3.1367138 9185.1040 -3.1295280 9186.1040 -3.1226838 9187.1040 -3.1128643 9188.1040 -3.1047514 9189.1040 -3.0972179 9190.1040 -3.0958489 9191.1040 -3.0980640 9192.1040 -3.1077663 9193.1040 -3.1211677 9194.1040 -3.1403705 9195.1040 -3.1596268 9196.1040 -3.1802635 9197.1040 -3.1966172 9198.1040 -3.2095236 9199.1040 -3.2137875 9200.1040 -3.2114237 9201.1040 -3.1982051 9202.1040 -3.1776391 9203.1040 -3.1479907 9204.1040 -3.1150658 9205.1040 -3.0774928 9206.1040 -3.0409077 9207.1040 -3.0040485 9208.1040 -2.9709466 9209.1040 -2.9376567 9210.1040 -2.9062968 9211.1040 -2.8733503 9212.1040 -2.8422622 9213.1040 -2.8102674 9214.1040 -2.7806747 9215.1040 -2.7501059 9216.1040 -2.7216032 9217.1040 -2.6926363 9218.1040 -2.6679397 9219.1040 -2.6461192 9220.1040 -2.6308113 9221.1040 -2.6185248 9222.1040 -2.6115314 9223.1040 -2.6066277 9224.1040 -2.6071597 9225.1040 -2.6105657 9226.1040 -2.6196060 9227.1040 -2.6302931 9228.1040 -2.6441973 9229.1040 -2.6576938 9230.1040 -2.6735955 9231.1040 -2.6892157 9232.1040 -2.7073579 9233.1040 -2.7248791 9234.1040 -2.7441815 9235.1040 -2.7618843 9236.1040 -2.7800028 9237.1040 -2.7946330 9238.1040 -2.8078498 9239.1040 -2.8164587 9240.1040 -2.8230750 9241.1040 -2.8250304 9242.1040 -2.8256893 9243.1040 -2.8235041 9244.1040 -2.8224460 9245.1040 -2.8204059 9246.1040 -2.8207041 9247.1040 -2.8208595 9248.1040 -2.8235171 9249.1040 -2.8251585 9250.1040 -2.8275095 9251.1040 -2.8275296 9252.1040 -2.8282680 9253.1040 -2.8278436 9254.1040 -2.8293589 9255.1040 -2.8302435 9256.1040 -2.8329834 9257.1040 -2.8347142 9258.1040 -2.8377668 9259.1040 -2.8390431 9260.1040 -2.8406781 9261.1040 -2.8397965 9262.1040 -2.8387307 9263.1040 -2.8347371 9264.1040 -2.8303874 9265.1040 -2.8233643 9266.1040 -2.8166548 9267.1040 -2.8080340 9268.1040 -2.8002332 9269.1040 -2.7908623 9270.1040 -2.7825524 9271.1040 -2.7728870 9272.1040 -2.7644500 9273.1040 -2.7548265 9274.1040 -2.7466129 9275.1040 -2.7375159 9276.1040 -2.7302592 9277.1040 -2.7224646 9278.1040 -2.7164714 9279.1040 -2.7094712 9280.1040 -2.7035641 9281.1040 -2.6961351 9282.1040 -2.6894951 9283.1040 -2.6811617 9284.1040 -2.6735202 9285.1040 -2.6642102 9286.1040 -2.6557667 9287.1040 -2.6457971 9288.1040 -2.6364647 9289.1040 -2.6248059 9290.1040 -2.6125874 9291.1040 -2.5972705 9292.1040 -2.5813166 9293.1040 -2.5627515 9294.1040 -2.5443709 9295.1040 -2.5244527 9296.1040 -2.5063466 9297.1040 -2.4887202 9298.1040 -2.4742938 9299.1040 -2.4607895 9300.1040 -2.4501711 9301.1040 -2.4399115 9302.1040 -2.4320516 9303.1040 -2.4239740 9304.1040 -2.4176392 9305.1040 -2.4108068 9306.1040 -2.4060360 9307.1040 -2.4016924 9308.1040 -2.4003558 9309.1040 -2.3999199 9310.1040 -2.4025352 9311.1040 -2.4058173 9312.1040 -2.4116749 9313.1040 -2.4174053 9314.1040 -2.4244318 9315.1040 -2.4299877 9316.1040 -2.4358998 9317.1040 -2.4398064 9318.1040 -2.4437507 9319.1040 -2.4454244 9320.1040 -2.4467687 9321.1040 -2.4453365 9322.1040 -2.4430773 9323.1040 -2.4378784 9324.1040 -2.4320815 9325.1040 -2.4239462 9326.1040 -2.4159598 9327.1040 -2.4064256 9328.1040 -2.3980330 9329.1040 -2.3892808 9330.1040 -2.3826156 9331.1040 -2.3761998 9332.1040 -2.3722230 9333.1040 -2.3687898 9334.1040 -2.3682273 9335.1040 -2.3690400 9336.1040 -2.3739626 9337.1040 -2.3810296 9338.1040 -2.3918128 9339.1040 -2.4029330 9340.1040 -2.4148967 9341.1040 -2.4247696 9342.1040 -2.4338720 9343.1040 -2.4395969 9344.1040 -2.4436001 9345.1040 -2.4439752 9346.1040 -2.4433369 9347.1040 -2.4408261 9348.1040 -2.4392028 9349.1040 -2.4369309 9350.1040 -2.4362370 9351.1040 -2.4353108 9352.1040 -2.4360594 9353.1040 -2.4363083 9354.1040 -2.4373773 9355.1040 -2.4366844 9356.1040 -2.4359375 9357.1040 -2.4332554 9358.1040 -2.4309611 9359.1040 -2.4275056 9360.1040 -2.4249713 9361.1040 -2.4215195 9362.1040 -2.4190438 9363.1040 -2.4156200 9364.1040 -2.4131116 9365.1040 -2.4095591 9366.1040 -2.4067427 9367.1040 -2.4027223 9368.1040 -2.3993571 9369.1040 -2.3948066 9370.1040 -2.3909935 9371.1040 -2.3860957 9372.1040 -2.3819937 9373.1040 -2.3768596 9374.1040 -2.3725584 9375.1040 -2.3672421 9376.1040 -2.3627208 9377.1040 -2.3570886 9378.1040 -2.3521001 9379.1040 -2.3459140 9380.1040 -2.3403651 9381.1040 -2.3337073 9382.1040 -2.3278267 9383.1040 -2.3209730 9384.1040 -2.3150058 9385.1040 -2.3082113 9386.1040 -2.3024363 9387.1040 -2.2958716 9388.1040 -2.2902083 9389.1040 -2.2834656 9390.1040 -2.2772402 9391.1040 -2.2696812 9392.1040 -2.2625140 9393.1040 -2.2539757 9394.1040 -2.2458526 9395.1040 -2.2364642 9396.1040 -2.2276916 9397.1040 -2.2180151 9398.1040 -2.2093659 9399.1040 -2.2001054 9400.1040 -2.1920024 9401.1040 -2.1832906 9402.1040 -2.1756838 9403.1040 -2.1675317 9404.1040 -2.1606934 9405.1040 -2.1537068 9406.1040 -2.1484935 9407.1040 -2.1434604 9408.1040 -2.1403724 9409.1040 -2.1375538 9410.1040 -2.1366876 9411.1040 -2.1360388 9412.1040 -2.1372047 9413.1040 -2.1383483 9414.1040 -2.1409846 9415.1040 -2.1433158 9416.1040 -2.1468934 9417.1040 -2.1499338 9418.1040 -2.1541328 9419.1040 -2.1584487 9420.1040 -2.1675479 9421.1040 -2.1863753 9422.1040 -2.1949651 9423.1040 -2.1980940 9424.1040 -2.2004225 9425.1040 -2.2009010 9426.1040 -2.2012218 9427.1040 -2.1997924 9428.1040 -2.1982790 9429.1040 -2.1951904 9430.1040 -2.1923022 9431.1040 -2.1881276 9432.1040 -2.1843735 9433.1040 -2.1795563 9434.1040 -2.1754095 9435.1040 -2.1704183 9436.1040 -2.1662043 9437.1040 -2.1611381 9438.1040 -2.1566954 9439.1040 -2.1512423 9440.1040 -2.1464029 9441.1040 -2.1407290 9442.1040 -2.1360354 9443.1040 -2.1309817 9444.1040 -2.1272764 9445.1040 -2.1234833 9446.1040 -2.1212877 9447.1040 -2.1192393 9448.1040 -2.1189014 9449.1040 -2.1186886 9450.1040 -2.1200077 9451.1040 -2.1211368 9452.1040 -2.1234365 9453.1040 -2.1251916 9454.1040 -2.1276571 9455.1040 -2.1289601 9456.1040 -2.1303977 9457.1040 -2.1303531 9458.1040 -2.1303385 9459.1040 -2.1289380 9460.1040 -2.1277844 9461.1040 -2.1254946 9462.1040 -2.1237400 9463.1040 -2.1213012 9464.1040 -2.1199580 9465.1040 -2.1183397 9466.1040 -2.1179889 9467.1040 -2.1173465 9468.1040 -2.1177733 9469.1040 -2.1176971 9470.1040 -2.1185424 9471.1040 -2.1187799 9472.1040 -2.1198319 9473.1040 -2.1201833 9474.1040 -2.1212732 9475.1040 -2.1216161 9476.1040 -2.1226704 9477.1040 -2.1229704 9478.1040 -2.1239414 9479.1040 -2.1240830 9480.1040 -2.1247543 9481.1040 -2.1243953 9482.1040 -2.1243867 9483.1040 -2.1232656 9484.1040 -2.1224902 9485.1040 -2.1206921 9486.1040 -2.1193663 9487.1040 -2.1171108 9488.1040 -2.1153704 9489.1040 -2.1127269 9490.1040 -2.1106036 9491.1040 -2.1075783 9492.1040 -2.1050602 9493.1040 -2.1016225 9494.1040 -2.0986545 9495.1040 -2.0947279 9496.1040 -2.0912260 9497.1040 -2.0867197 9498.1040 -2.0825639 9499.1040 -2.0773204 9500.1040 -2.0723656 9501.1040 -2.0663032 9502.1040 -2.0605286 9503.1040 -2.0536726 9504.1040 -2.0471423 9505.1040 -2.0395896 9506.1040 -2.0324361 9507.1040 -2.0243705 9508.1040 -2.0168334 9509.1040 -2.0085127 9510.1040 -2.0008337 9511.1040 -1.9924988 9512.1040 -1.9849466 9513.1040 -1.9768760 9514.1040 -1.9696862 9515.1040 -1.9620465 9516.1040 -1.9553006 9517.1040 -1.9480991 9518.1040 -1.9418647 9519.1040 -1.9353740 9520.1040 -1.9302275 9521.1040 -1.9254391 9522.1040 -1.9225595 9523.1040 -1.9202915 9524.1040 -1.9198860 9525.1040 -1.9197364 9526.1040 -1.9208453 9527.1040 -1.9216812 9528.1040 -1.9233936 9529.1040 -1.9244973 9530.1040 -1.9261202 9531.1040 -1.9268202 9532.1040 -1.9278509 9533.1040 -1.9279002 9534.1040 -1.9283579 9535.1040 -1.9280448 9536.1040 -1.9283221 9537.1040 -1.9279201 9538.1040 -1.9281317 9539.1040 -1.9276384 9540.1040 -1.9277013 9541.1040 -1.9270253 9542.1040 -1.9268924 9543.1040 -1.9260343 9544.1040 -1.9257519 9545.1040 -1.9247790 9546.1040 -1.9243889 9547.1040 -1.9232995 9548.1040 -1.9227579 9549.1040 -1.9214675 9550.1040 -1.9206727 9551.1040 -1.9190884 9552.1040 -1.9179470 9553.1040 -1.9159435 9554.1040 -1.9143053 9555.1040 -1.9117908 9556.1040 -1.9096911 9557.1040 -1.9068549 9558.1040 -1.9046679 9559.1040 -1.9019744 9560.1040 -1.9000587 9561.1040 -1.8976906 9562.1040 -1.8960800 9563.1040 -1.8939446 9564.1040 -1.8924925 9565.1040 -1.8904687 9566.1040 -1.8890828 9567.1040 -1.8870778 9568.1040 -1.8856540 9569.1040 -1.8835683 9570.1040 -1.8820263 9571.1040 -1.8797857 9572.1040 -1.8780344 9573.1040 -1.8755457 9574.1040 -1.8735494 9575.1040 -1.8708715 9576.1040 -1.8687980 9577.1040 -1.8662292 9578.1040 -1.8644492 9579.1040 -1.8623186 9580.1040 -1.8610931 9581.1040 -1.8596594 9582.1040 -1.8592912 9583.1040 -1.8588061 9584.1040 -1.8593467 9585.1040 -1.8596047 9586.1040 -1.8605289 9587.1040 -1.8607021 9588.1040 -1.8611989 9589.1040 -1.8607809 9590.1040 -1.8606398 9591.1040 -1.8596706 9592.1040 -1.8591299 9593.1040 -1.8578845 9594.1040 -1.8571469 9595.1040 -1.8557893 9596.1040 -1.8550397 9597.1040 -1.8537624 9598.1040 -1.8531181 9599.1040 -1.8519123 9600.1040 -1.8512165 9601.1040 -1.8497421 9602.1040 -1.8485756 9603.1040 -1.8465521 9604.1040 -1.8448584 9605.1040 -1.8424546 9606.1040 -1.8406441 9607.1040 -1.8383661 9608.1040 -1.8368050 9609.1040 -1.8348180 9610.1040 -1.8335026 9611.1040 -1.8316457 9612.1040 -1.8303485 9613.1040 -1.8284532 9614.1040 -1.8270912 9615.1040 -1.8251423 9616.1040 -1.8237583 9617.1040 -1.8218060 9618.1040 -1.8203978 9619.1040 -1.8183718 9620.1040 -1.8167871 9621.1040 -1.8144466 9622.1040 -1.8124374 9623.1040 -1.8096203 9624.1040 -1.8071150 9625.1040 -1.8038183 9626.1040 -1.8008735 9627.1040 -1.7971959 9628.1040 -1.7939404 9629.1040 -1.7900548 9630.1040 -1.7867503 9631.1040 -1.7830173 9632.1040 -1.7800064 9633.1040 -1.7766302 9634.1040 -1.7739736 9635.1040 -1.7708734 9636.1040 -1.7683566 9637.1040 -1.7652984 9638.1040 -1.7627813 9639.1040 -1.7597226 9640.1040 -1.7572457 9641.1040 -1.7543014 9642.1040 -1.7519909 9643.1040 -1.7492351 9644.1040 -1.7471097 9645.1040 -1.7445138 9646.1040 -1.7425007 9647.1040 -1.7399777 9648.1040 -1.7380048 9649.1040 -1.7354940 9650.1040 -1.7334932 9651.1040 -1.7309117 9652.1040 -1.7288136 9653.1040 -1.7261404 9654.1040 -1.7239785 9655.1040 -1.7213103 9656.1040 -1.7192538 9657.1040 -1.7167811 9658.1040 -1.7149717 9659.1040 -1.7127784 9660.1040 -1.7112611 9661.1040 -1.7093626 9662.1040 -1.7081309 9663.1040 -1.7065052 9664.1040 -1.7055213 9665.1040 -1.7041059 9666.1040 -1.7032741 9667.1040 -1.7019562 9668.1040 -1.7011750 9669.1040 -1.6998693 9670.1040 -1.6990540 9671.1040 -1.6976623 9672.1040 -1.6967144 9673.1040 -1.6951696 9674.1040 -1.6940657 9675.1040 -1.6923892 9676.1040 -1.6912056 9677.1040 -1.6895085 9678.1040 -1.6883321 9679.1040 -1.6866460 9680.1040 -1.6854555 9681.1040 -1.6836970 9682.1040 -1.6823630 9683.1040 -1.6804300 9684.1040 -1.6789292 9685.1040 -1.6768770 9686.1040 -1.6753561 9687.1040 -1.6734174 9688.1040 -1.6721046 9689.1040 -1.6704240 9690.1040 -1.6693870 9691.1040 -1.6679738 9692.1040 -1.6671682 9693.1040 -1.6659481 9694.1040 -1.6652956 9695.1040 -1.6641851 9696.1040 -1.6635760 9697.1040 -1.6624209 9698.1040 -1.6616852 9699.1040 -1.6603562 9700.1040 -1.6594211 9701.1040 -1.6578897 9702.1040 -1.6567674 9703.1040 -1.6550775 9704.1040 -1.6538193 9705.1040 -1.6520169 9706.1040 -1.6506706 9707.1040 -1.6488158 9708.1040 -1.6474551 9709.1040 -1.6456220 9710.1040 -1.6443121 9711.1040 -1.6425627 9712.1040 -1.6413765 9713.1040 -1.6398016 9714.1040 -1.6388218 9715.1040 -1.6374610 9716.1040 -1.6366781 9717.1040 -1.6354684 9718.1040 -1.6347510 9719.1040 -1.6335270 9720.1040 -1.6327496 9721.1040 -1.6314523 9722.1040 -1.6306105 9723.1040 -1.6292907 9724.1040 -1.6284795 9725.1040 -1.6272317 9726.1040 -1.6265165 9727.1040 -1.6253861 9728.1040 -1.6248083 9729.1040 -1.6238378 9730.1040 -1.6234258 9731.1040 -1.6226106 9732.1040 -1.6223230 9733.1040 -1.6215759 9734.1040 -1.6212640 9735.1040 -1.6204070 9736.1040 -1.6199329 9737.1040 -1.6188933 9738.1040 -1.6182384 9739.1040 -1.6170553 9740.1040 -1.6163064 9741.1040 -1.6150601 9742.1040 -1.6142504 9743.1040 -1.6129302 9744.1040 -1.6120049 9745.1040 -1.6105057 9746.1040 -1.6093457 9747.1040 -1.6075879 9748.1040 -1.6061640 9749.1040 -1.6041602 9750.1040 -1.6025296 9751.1040 -1.6003685 9752.1040 -1.5986158 9753.1040 -1.5963617 9754.1040 -1.5945406 9755.1040 -1.5922481 9756.1040 -1.5904181 9757.1040 -1.5881400 9758.1040 -1.5863333 9759.1040 -1.5840804 9760.1040 -1.5822858 9761.1040 -1.5800196 9762.1040 -1.5781824 9763.1040 -1.5758588 9764.1040 -1.5739559 9765.1040 -1.5715656 9766.1040 -1.5695955 9767.1040 -1.5671436 9768.1040 -1.5651213 9769.1040 -1.5626368 9770.1040 -1.5606077 9771.1040 -1.5581599 9772.1040 -1.5562275 9773.1040 -1.5539361 9774.1040 -1.5521985 9775.1040 -1.5501292 9776.1040 -1.5486307 9777.1040 -1.5468151 9778.1040 -1.5455772 9779.1040 -1.5440225 9780.1040 -1.5430324 9781.1040 -1.5417040 9782.1040 -1.5408995 9783.1040 -1.5396978 9784.1040 -1.5389564 9785.1040 -1.5377697 9786.1040 -1.5370010 9787.1040 -1.5357478 9788.1040 -1.5348629 9789.1040 -1.5334418 9790.1040 -1.5323532 9791.1040 -1.5307186 9792.1040 -1.5294237 9793.1040 -1.5276189 9794.1040 -1.5262220 9795.1040 -1.5243910 9796.1040 -1.5230111 9797.1040 -1.5212135 9798.1040 -1.5198608 9799.1040 -1.5180585 9800.1040 -1.5166428 9801.1040 -1.5147326 9802.1040 -1.5131866 9803.1040 -1.5111422 9804.1040 -1.5094708 9805.1040 -1.5073296 9806.1040 -1.5055963 9807.1040 -1.5034223 9808.1040 -1.5016746 9809.1040 -1.4995026 9810.1040 -1.4977677 9811.1040 -1.4956190 9812.1040 -1.4939170 9813.1040 -1.4918172 9814.1040 -1.4901835 9815.1040 -1.4881813 9816.1040 -1.4866887 9817.1040 -1.4848830 9818.1040 -1.4836211 9819.1040 -1.4820560 9820.1040 -1.4810220 9821.1040 -1.4796476 9822.1040 -1.4787301 9823.1040 -1.4773930 9824.1040 -1.4764608 9825.1040 -1.4750864 9826.1040 -1.4741102 9827.1040 -1.4727093 9828.1040 -1.4717433 9829.1040 -1.4703898 9830.1040 -1.4694907 9831.1040 -1.4682155 9832.1040 -1.4673979 9833.1040 -1.4662045 9834.1040 -1.4654626 9835.1040 -1.4643374 9836.1040 -1.4636505 9837.1040 -1.4625641 9838.1040 -1.4618890 9839.1040 -1.4607747 9840.1040 -1.4600242 9841.1040 -1.4588036 9842.1040 -1.4579304 9843.1040 -1.4565830 9844.1040 -1.4555869 9845.1040 -1.4541320 9846.1040 -1.4530490 9847.1040 -1.4515351 9848.1040 -1.4504277 9849.1040 -1.4489401 9850.1040 -1.4479410 9851.1040 -1.4466786 9852.1040 -1.4459893 9853.1040 -1.4450623 9854.1040 -1.4446813 9855.1040 -1.4439841 9856.1040 -1.4436654 9857.1040 -1.4428053 9858.1040 -1.4421609 9859.1040 -1.4409085 9860.1040 -1.4398680 9861.1040 -1.4382876 9862.1040 -1.4370801 9863.1040 -1.4355376 9864.1040 -1.4345054 9865.1040 -1.4332058 9866.1040 -1.4324390 9867.1040 -1.4313832 9868.1040 -1.4307849 9869.1040 -1.4298099 9870.1040 -1.4292304 9871.1040 -1.4282357 9872.1040 -1.4276053 9873.1040 -1.4265335 9874.1040 -1.4257976 9875.1040 -1.4246023 9876.1040 -1.4237385 9877.1040 -1.4224280 9878.1040 -1.4214757 9879.1040 -1.4201345 9880.1040 -1.4192372 9881.1040 -1.4180233 9882.1040 -1.4172856 9883.1040 -1.4162361 9884.1040 -1.4156401 9885.1040 -1.4146742 9886.1040 -1.4140698 9887.1040 -1.4130209 9888.1040 -1.4122886 9889.1040 -1.4110879 9890.1040 -1.4101929 9891.1040 -1.4088360 9892.1040 -1.4078012 9893.1040 -1.4063225 9894.1040 -1.4051793 9895.1040 -1.4036086 9896.1040 -1.4023924 9897.1040 -1.4007791 9898.1040 -1.3995546 9899.1040 -1.3979587 9900.1040 -1.3967624 9901.1040 -1.3951981 9902.1040 -1.3940248 9903.1040 -1.3924626 9904.1040 -1.3912612 9905.1040 -1.3896523 9906.1040 -1.3883961 9907.1040 -1.3867342 9908.1040 -1.3854332 9909.1040 -1.3837476 9910.1040 -1.3824480 9911.1040 -1.3807831 9912.1040 -1.3795136 9913.1040 -1.3778855 9914.1040 -1.3766531 9915.1040 -1.3750592 9916.1040 -1.3738537 9917.1040 -1.3722832 9918.1040 -1.3710982 9919.1040 -1.3695481 9920.1040 -1.3683824 9921.1040 -1.3668531 9922.1040 -1.3657084 9923.1040 -1.3642009 9924.1040 -1.3630764 9925.1040 -1.3615885 9926.1040 -1.3604803 9927.1040 -1.3590060 9928.1040 -1.3579065 9929.1040 -1.3564375 9930.1040 -1.3553379 9931.1040 -1.3538646 9932.1040 -1.3527523 9933.1040 -1.3512548 9934.1040 -1.3501050 9935.1040 -1.3485654 9936.1040 -1.3473750 9937.1040 -1.3458046 9938.1040 -1.3446004 9939.1040 -1.3430486 9940.1040 -1.3418991 9941.1040 -1.3404273 9942.1040 -1.3393680 9943.1040 -1.3379891 9944.1040 -1.3370134 9945.1040 -1.3356964 9946.1040 -1.3347524 9947.1040 -1.3334492 9948.1040 -1.3325119 9949.1040 -1.3312186 9950.1040 -1.3303030 9951.1040 -1.3290617 9952.1040 -1.3282358 9953.1040 -1.3271065 9954.1040 -1.3263919 9955.1040 -1.3253577 9956.1040 -1.3247008 9957.1040 -1.3236553 9958.1040 -1.3228920 9959.1040 -1.3216726 9960.1040 -1.3207055 9961.1040 -1.3192817 9962.1040 -1.3181343 9963.1040 -1.3165960 9964.1040 -1.3154338 9965.1040 -1.3139635 9966.1040 -1.3129121 9967.1040 -1.3115714 9968.1040 -1.3106465 9969.1040 -1.3094045 9970.1040 -1.3085229 9971.1040 -1.3072739 9972.1040 -1.3063531 9973.1040 -1.3050462 9974.1040 -1.3040539 9975.1040 -1.3026678 9976.1040 -1.3015901 9977.1040 -1.3001192 9978.1040 -1.2989629 9979.1040 -1.2974291 9980.1040 -1.2962330 9981.1040 -1.2947001 9982.1040 -1.2935681 9983.1040 -1.2921651 9984.1040 -1.2911994 9985.1040 -1.2899749 9986.1040 -1.2891797 9987.1040 -1.2880964 9988.1040 -1.2873785 9989.1040 -1.2862952 9990.1040 -1.2855216 9991.1040 -1.2843536 9992.1040 -1.2834797 9993.1040 -1.2822101 9994.1040 -1.2812475 9995.1040 -1.2799154 9996.1040 -1.2789124 9997.1040 -1.2775584 9998.1040 -1.2765498 9999.1040 -1.2752098 10000.104 -1.2742417 10001.104 -1.2729782 10002.104 -1.2721120 10003.104 -1.2709601 10004.104 -1.2701993 10005.104 -1.2691347 10006.104 -1.2684191 10007.104 -1.2673314 10008.104 -1.2665274 10009.104 -1.2653184 10010.104 -1.2643846 10011.104 -1.2630587 10012.104 -1.2620452 10013.104 -1.2607154 10014.104 -1.2597849 10015.104 -1.2585951 10016.104 -1.2578285 10017.104 -1.2568071 10018.104 -1.2561915 10019.104 -1.2552753 10020.104 -1.2546931 10021.104 -1.2537532 10022.104 -1.2531133 10023.104 -1.2520975 10024.104 -1.2513726 10025.104 -1.2502751 10026.104 -1.2494814 10027.104 -1.2483315 10028.104 -1.2474976 10029.104 -1.2463205 10030.104 -1.2454730 10031.104 -1.2443028 10032.104 -1.2434904 10033.104 -1.2423854 10034.104 -1.2416548 10035.104 -1.2406380 10036.104 -1.2399920 10037.104 -1.2390482 10038.104 -1.2384472 10039.104 -1.2375120 10040.104 -1.2368908 10041.104 -1.2359202 10042.104 -1.2352547 10043.104 -1.2342382 10044.104 -1.2335312 10045.104 -1.2324870 10046.104 -1.2317645 10047.104 -1.2307127 10048.104 -1.2299858 10049.104 -1.2289323 10050.104 -1.2282032 10051.104 -1.2271473 10052.104 -1.2264130 10053.104 -1.2253490 10054.104 -1.2246012 10055.104 -1.2235174 10056.104 -1.2227394 10057.104 -1.2216100 10058.104 -1.2207640 10059.104 -1.2195516 10060.104 -1.2186161 10061.104 -1.2173161 10062.104 -1.2163006 10063.104 -1.2149393 10064.104 -1.2138927 10065.104 -1.2125331 10066.104 -1.2115080 10067.104 -1.2101816 10068.104 -1.2091939 10069.104 -1.2079040 10070.104 -1.2069425 10071.104 -1.2056639 10072.104 -1.2047016 10073.104 -1.2034172 10074.104 -1.2024464 10075.104 -1.2011550 10076.104 -1.2001808 10077.104 -1.1988951 10078.104 -1.1979343 10079.104 -1.1966672 10080.104 -1.1957257 10081.104 -1.1944781 10082.104 -1.1935528 10083.104 -1.1923161 10084.104 -1.1913933 10085.104 -1.1901528 10086.104 -1.1892200 10087.104 -1.1879643 10088.104 -1.1870090 10089.104 -1.1857216 10090.104 -1.1847194 10091.104 -1.1833742 10092.104 -1.1823122 10093.104 -1.1809152 10094.104 -1.1798163 10095.104 -1.1784101 10096.104 -1.1773496 10097.104 -1.1760438 10098.104 -1.1751256 10099.104 -1.1739791 10100.104 -1.1732171 10101.104 -1.1722076 10102.104 -1.1715354 10103.104 -1.1705374 10104.104 -1.1698001 10105.104 -1.1686929 10106.104 -1.1678249 10107.104 -1.1665835 10108.104 -1.1655934 10109.104 -1.1642679 10110.104 -1.1632490 10111.104 -1.1619394 10112.104 -1.1609612 10113.104 -1.1597076 10114.104 -1.1587919 10115.104 -1.1576006 10116.104 -1.1567363 10117.104 -1.1555837 10118.104 -1.1547485 10119.104 -1.1536204 10120.104 -1.1528052 10121.104 -1.1516949 10122.104 -1.1508951 10123.104 -1.1497994 10124.104 -1.1490120 10125.104 -1.1479272 10126.104 -1.1471473 10127.104 -1.1460670 10128.104 -1.1452857 10129.104 -1.1441966 10130.104 -1.1433970 10131.104 -1.1422852 10132.104 -1.1414621 10133.104 -1.1403306 10134.104 -1.1394941 10135.104 -1.1383637 10136.104 -1.1375496 10137.104 -1.1364620 10138.104 -1.1357006 10139.104 -1.1346693 10140.104 -1.1339609 10141.104 -1.1329742 10142.104 -1.1322908 10143.104 -1.1313033 10144.104 -1.1305979 10145.104 -1.1295770 10146.104 -1.1288310 10147.104 -1.1277675 10148.104 -1.1269799 10149.104 -1.1258825 10150.104 -1.1250699 10151.104 -1.1239551 10152.104 -1.1231292 10153.104 -1.1220056 10154.104 -1.1211739 10155.104 -1.1200489 10156.104 -1.1192195 10157.104 -1.1181011 10158.104 -1.1172801 10159.104 -1.1161717 10160.104 -1.1153601 10161.104 -1.1142607 10162.104 -1.1134544 10163.104 -1.1123562 10164.104 -1.1115468 10165.104 -1.1104440 10166.104 -1.1096290 10167.104 -1.1085216 10168.104 -1.1077027 10169.104 -1.1065946 10170.104 -1.1057779 10171.104 -1.1046759 10172.104 -1.1038679 10173.104 -1.1027787 10174.104 -1.1019873 10175.104 -1.1009219 10176.104 -1.1001637 10177.104 -1.0991414 10178.104 -1.0984294 10179.104 -1.0974519 10180.104 -1.0967772 10181.104 -1.0958252 10182.104 -1.0951526 10183.104 -1.0941686 10184.104 -1.0934340 10185.104 -1.0923747 10186.104 -1.0915620 10187.104 -1.0904328 10188.104 -1.0895686 10189.104 -1.0884265 10190.104 -1.0876033 10191.104 -1.0865457 10192.104 -1.0858277 10193.104 -1.0848829 10194.104 -1.0842724 10195.104 -1.0834174 10196.104 -1.0828568 10197.104 -1.0819999 10198.104 -1.0813978 10199.104 -1.0804785 10200.104 -1.0798019 10201.104 -1.0788053 10202.104 -1.0780560 10203.104 -1.0770039 10204.104 -1.0762205 10205.104 -1.0751517 10206.104 -1.0743628 10207.104 -1.0732989 10208.104 -1.0725240 10209.104 -1.0714859 10210.104 -1.0707509 10211.104 -1.0697665 10212.104 -1.0690903 10213.104 -1.0681640 10214.104 -1.0675381 10215.104 -1.0666488 10216.104 -1.0660338 10217.104 -1.0651153 10218.104 -1.0644323 10219.104 -1.0634252 10220.104 -1.0626455 10221.104 -1.0615451 10222.104 -1.0606848 10223.104 -1.0595349 10224.104 -1.0586731 10225.104 -1.0575651 10226.104 -1.0567687 10227.104 -1.0557373 10228.104 -1.0550178 10229.104 -1.0540548 10230.104 -1.0533789 10231.104 -1.0524214 10232.104 -1.0517175 10233.104 -1.0507141 10234.104 -1.0499545 10235.104 -1.0488935 10236.104 -1.0480800 10237.104 -1.0469799 10238.104 -1.0461497 10239.104 -1.0450529 10240.104 -1.0442366 10241.104 -1.0431597 10242.104 -1.0423642 10243.104 -1.0413062 10244.104 -1.0405205 10245.104 -1.0394594 10246.104 -1.0386603 10247.104 -1.0375826 10248.104 -1.0367665 10249.104 -1.0356757 10250.104 -1.0348534 10251.104 -1.0337718 10252.104 -1.0329775 10253.104 -1.0319380 10254.104 -1.0311911 10255.104 -1.0301998 10256.104 -1.0294958 10257.104 -1.0285374 10258.104 -1.0278451 10259.104 -1.0268714 10260.104 -1.0261431 10261.104 -1.0251243 10262.104 -1.0243477 10263.104 -1.0232843 10264.104 -1.0224727 10265.104 -1.0213961 10266.104 -1.0205999 10267.104 -1.0195612 10268.104 -1.0188134 10269.104 -1.0178276 10270.104 -1.0171306 10271.104 -1.0161884 10272.104 -1.0155169 10273.104 -1.0145756 10274.104 -1.0138849 10275.104 -1.0129138 10276.104 -1.0121862 10277.104 -1.0111757 10278.104 -1.0104087 10279.104 -1.0093641 10280.104 -1.0085708 10281.104 -1.0075081 10282.104 -1.0067024 10283.104 -1.0056336 10284.104 -1.0048276 10285.104 -1.0037668 10286.104 -1.0029800 10287.104 -1.0019530 10288.104 -1.0012094 10289.104 -1.0002294 10290.104 -0.99953110 10291.104 -0.99859114 10292.104 -0.99792131 10293.104 -0.99698920 10294.104 -0.99629780 10295.104 -0.99532211 10296.104 -0.99457539 10297.104 -0.99354078 10298.104 -0.99273688 10299.104 -0.99165404 10300.104 -0.99082072 10301.104 -0.98973896 10302.104 -0.98893245 10303.104 -0.98789244 10304.104 -0.98713380 10305.104 -0.98614265 10306.104 -0.98542723 10307.104 -0.98446539 10308.104 -0.98375457 10309.104 -0.98277547 10310.104 -0.98203431 10311.104 -0.98101948 10312.104 -0.98024121 10313.104 -0.97919330 10314.104 -0.97839189 10315.104 -0.97733954 10316.104 -0.97655115 10317.104 -0.97552325 10318.104 -0.97476473 10319.104 -0.97376974 10320.104 -0.97304348 10321.104 -0.97207744 10322.104 -0.97137142 10323.104 -0.97041631 10324.104 -0.96971365 10325.104 -0.96875743 10326.104 -0.96804925 10327.104 -0.96708440 10328.104 -0.96636346 10329.104 -0.96538173 10330.104 -0.96463919 10331.104 -0.96363421 10332.104 -0.96286826 10333.104 -0.96184244 10334.104 -0.96105939 10335.104 -0.96002381 10336.104 -0.95924233 10337.104 -0.95822355 10338.104 -0.95746972 10339.104 -0.95648559 10340.104 -0.95576978 10341.104 -0.95482571 10342.104 -0.95414924 10343.104 -0.95324222 10344.104 -0.95259738 10345.104 -0.95171686 10346.104 -0.95109258 10347.104 -0.95022693 10348.104 -0.94960960 10349.104 -0.94874168 10350.104 -0.94810681 10351.104 -0.94720100 10352.104 -0.94651055 10353.104 -0.94554158 10354.104 -0.94478673 10355.104 -0.94375900 10356.104 -0.94295654 10357.104 -0.94190368 10358.104 -0.94111238 10359.104 -0.94010901 10360.104 -0.93939025 10361.104 -0.93847049 10362.104 -0.93783722 10363.104 -0.93699766 10364.104 -0.93642846 10365.104 -0.93562207 10366.104 -0.93504630 10367.104 -0.93420526 10368.104 -0.93357879 10369.104 -0.93267913 10370.104 -0.93199138 10371.104 -0.93103440 10372.104 -0.93030106 10373.104 -0.92931850 10374.104 -0.92857659 10375.104 -0.92759776 10376.104 -0.92686835 10377.104 -0.92591034 10378.104 -0.92520900 10379.104 -0.92428840 10380.104 -0.92363514 10381.104 -0.92277202 10382.104 -0.92217944 10383.104 -0.92137629 10384.104 -0.92083818 10385.104 -0.92008034 10386.104 -0.91957063 10387.104 -0.91881427 10388.104 -0.91827512 10389.104 -0.91746899 10390.104 -0.91686883 10391.104 -0.91599728 10392.104 -0.91533202 10393.104 -0.91440243 10394.104 -0.91369484 10395.104 -0.91274654 10396.104 -0.91203849 10397.104 -0.91110118 10398.104 -0.91041057 10399.104 -0.90949489 10400.104 -0.90882686 10401.104 -0.90793236 10402.104 -0.90728005 10403.104 -0.90639588 10404.104 -0.90574904 10405.104 -0.90486688 10406.104 -0.90421762 10407.104 -0.90332866 10408.104 -0.90266555 10409.104 -0.90175267 10410.104 -0.90105435 10411.104 -0.90010118 10412.104 -0.89936252 10413.104 -0.89837401 10414.104 -0.89760904 10415.104 -0.89661002 10416.104 -0.89586144 10417.104 -0.89491674 10418.104 -0.89425114 10419.104 -0.89340331 10420.104 -0.89283702 10421.104 -0.89208247 10422.104 -0.89159316 10423.104 -0.89088436 10424.104 -0.89038755 10425.104 -0.88961780 10426.104 -0.88902685 10427.104 -0.88814866 10428.104 -0.88744614 10429.104 -0.88646553 10430.104 -0.88568284 10431.104 -0.88466837 10432.104 -0.88391299 10433.104 -0.88297208 10434.104 -0.88231337 10435.104 -0.88147939 10436.104 -0.88092556 10437.104 -0.88018405 10438.104 -0.87969173 10439.104 -0.87895968 10440.104 -0.87842436 10441.104 -0.87761761 10442.104 -0.87699090 10443.104 -0.87608691 10444.104 -0.87536552 10445.104 -0.87438096 10446.104 -0.87360903 10447.104 -0.87261481 10448.104 -0.87186319 10449.104 -0.87090678 10450.104 -0.87020240 10451.104 -0.86929755 10452.104 -0.86864312 10453.104 -0.86777990 10454.104 -0.86714994 10455.104 -0.86629488 10456.104 -0.86566188 10457.104 -0.86479719 10458.104 -0.86414927 10459.104 -0.86326651 10460.104 -0.86259773 10461.104 -0.86169290 10462.104 -0.86100095 10463.104 -0.86007358 10464.104 -0.85936008 10465.104 -0.85841395 10466.104 -0.85768510 10467.104 -0.85672941 10468.104 -0.85599927 10469.104 -0.85505564 10470.104 -0.85434975 10471.104 -0.85343841 10472.104 -0.85276812 10473.104 -0.85189372 10474.104 -0.85125840 10475.104 -0.85041464 10476.104 -0.84979996 10477.104 -0.84896413 10478.104 -0.84834676 10479.104 -0.84750245 10480.104 -0.84687240 10481.104 -0.84601363 10482.104 -0.84536802 10483.104 -0.84449515 10484.104 -0.84383827 10485.104 -0.84295824 10486.104 -0.84229657 10487.104 -0.84141409 10488.104 -0.84075139 10489.104 -0.83987002 10490.104 -0.83921007 10491.104 -0.83833458 10492.104 -0.83768352 10493.104 -0.83681971 10494.104 -0.83618096 10495.104 -0.83532976 10496.104 -0.83470225 10497.104 -0.83386060 10498.104 -0.83323863 10499.104 -0.83239679 10500.104 -0.83176758 10501.104 -0.83091433 10502.104 -0.83027094 10503.104 -0.82940269 10504.104 -0.82874389 10505.104 -0.82786158 10506.104 -0.82719097 10507.104 -0.82630154 10508.104 -0.82562772 10509.104 -0.82473852 10510.104 -0.82406699 10511.104 -0.82318255 10512.104 -0.82251750 10513.104 -0.82164217 10514.104 -0.82098886 10515.104 -0.82012890 10516.104 -0.81949272 10517.104 -0.81865088 10518.104 -0.81803204 10519.104 -0.81720639 10520.104 -0.81660077 10521.104 -0.81578414 10522.104 -0.81517991 10523.104 -0.81435730 10524.104 -0.81374152 10525.104 -0.81290464 10526.104 -0.81227247 10527.104 -0.81141888 10528.104 -0.81077003 10529.104 -0.80990194 10530.104 -0.80924156 10531.104 -0.80836563 10532.104 -0.80769959 10533.104 -0.80682040 10534.104 -0.80615273 10535.104 -0.80527431 10536.104 -0.80460936 10537.104 -0.80373702 10538.104 -0.80308127 10539.104 -0.80222119 10540.104 -0.80157912 10541.104 -0.80073417 10542.104 -0.80010753 10543.104 -0.79927856 10544.104 -0.79866725 10545.104 -0.79785303 10546.104 -0.79725485 10547.104 -0.79645287 10548.104 -0.79586539 10549.104 -0.79507308 10550.104 -0.79449330 10551.104 -0.79370698 10552.104 -0.79312984 10553.104 -0.79234228 10554.104 -0.79175973 10555.104 -0.79096480 10556.104 -0.79037352 10557.104 -0.78957007 10558.104 -0.78897068 10559.104 -0.78816122 10560.104 -0.78755896 10561.104 -0.78675212 10562.104 -0.78615663 10563.104 -0.78535964 10564.104 -0.78477531 10565.104 -0.78399071 10566.104 -0.78341874 10567.104 -0.78264650 10568.104 -0.78208538 10569.104 -0.78132249 10570.104 -0.78076872 10571.104 -0.78001211 10572.104 -0.77946288 10573.104 -0.77870963 10574.104 -0.77816165 10575.104 -0.77740763 10576.104 -0.77685512 10577.104 -0.77609320 10578.104 -0.77553013 10579.104 -0.77475709 10580.104 -0.77418275 10581.104 -0.77339998 10582.104 -0.77281801 10583.104 -0.77203264 10584.104 -0.77145558 10585.104 -0.77068306 10586.104 -0.77012234 10587.104 -0.76936691 10588.104 -0.76882093 10589.104 -0.76807592 10590.104 -0.76753232 10591.104 -0.76677638 10592.104 -0.76620082 10593.104 -0.76539469 10594.104 -0.76475878 10595.104 -0.76388955 10596.104 -0.76319202 10597.104 -0.76226828 10598.104 -0.76152848 10599.104 -0.76058576 10600.104 -0.75985997 10601.104 -0.75896023 10602.104 -0.75829400 10603.104 -0.75746315 10604.104 -0.75686894 10605.104 -0.75610868 10606.104 -0.75557711 10607.104 -0.75486272 10608.104 -0.75435171 10609.104 -0.75363755 10610.104 -0.75311382 10611.104 -0.75237929 10612.104 -0.75183006 10613.104 -0.75106810 10614.104 -0.75049154 10615.104 -0.74970663 10616.104 -0.74911375 10617.104 -0.74831889 10618.104 -0.74772004 10619.104 -0.74692315 10620.104 -0.74632541 10621.104 -0.74553365 10622.104 -0.74494517 10623.104 -0.74416928 10624.104 -0.74360351 10625.104 -0.74285546 10626.104 -0.74231925 10627.104 -0.74160117 10628.104 -0.74109292 10629.104 -0.74039954 10630.104 -0.73990937 10631.104 -0.73922370 10632.104 -0.73872824 10633.104 -0.73802832 10634.104 -0.73751274 10635.104 -0.73678960 10636.104 -0.73624877 10637.104 -0.73550044 10638.104 -0.73493569 10639.104 -0.73416777 10640.104 -0.73358845 10641.104 -0.73281059 10642.104 -0.73222428 10643.104 -0.73144271 10644.104 -0.73085534 10645.104 -0.73007627 10646.104 -0.72949525 10647.104 -0.72872867 10648.104 -0.72816581 10649.104 -0.72742130 10650.104 -0.72688139 10651.104 -0.72615965 10652.104 -0.72564006 10653.104 -0.72493494 10654.104 -0.72442465 10655.104 -0.72371752 10656.104 -0.72319205 10657.104 -0.72246150 10658.104 -0.72190793 10659.104 -0.72114779 10660.104 -0.72056481 10661.104 -0.71977831 10662.104 -0.71917463 10663.104 -0.71837841 10664.104 -0.71777703 10665.104 -0.71699226 10666.104 -0.71640748 10667.104 -0.71564328 10668.104 -0.71508103 10669.104 -0.71434073 10670.104 -0.71380180 10671.104 -0.71308320 10672.104 -0.71256285 10673.104 -0.71186085 10674.104 -0.71135507 10675.104 -0.71066633 10676.104 -0.71017183 10677.104 -0.70949288 10678.104 -0.70900585 10679.104 -0.70833227 10680.104 -0.70784764 10681.104 -0.70717398 10682.104 -0.70668601 10683.104 -0.70600599 10684.104 -0.70550746 10685.104 -0.70481236 10686.104 -0.70429172 10687.104 -0.70356446 10688.104 -0.70299986 10689.104 -0.70222207 10690.104 -0.70160480 10691.104 -0.70077635 10692.104 -0.70011325 10693.104 -0.69924819 10694.104 -0.69856274 10695.104 -0.69769984 10696.104 -0.69704530 10697.104 -0.69623450 10698.104 -0.69564319 10699.104 -0.69490159 10700.104 -0.69438013 10701.104 -0.69370498 10702.104 -0.69324041 10703.104 -0.69260406 10704.104 -0.69215222 10705.104 -0.69150781 10706.104 -0.69103451 10707.104 -0.69036035 10708.104 -0.68985152 10709.104 -0.68913915 10710.104 -0.68859129 10711.104 -0.68784282 10712.104 -0.68726390 10713.104 -0.68648989 10714.104 -0.68588944 10715.104 -0.68509847 10716.104 -0.68448542 10717.104 -0.68368774 10718.104 -0.68307468 10719.104 -0.68228755 10720.104 -0.68169836 10721.104 -0.68094675 10722.104 -0.68039926 10723.104 -0.67969269 10724.104 -0.67919039 10725.104 -0.67852726 10726.104 -0.67806334 10727.104 -0.67742969 10728.104 -0.67698015 10729.104 -0.67634632 10730.104 -0.67588623 10731.104 -0.67523570 10732.104 -0.67475424 10733.104 -0.67407988 10734.104 -0.67357295 10735.104 -0.67287368 10736.104 -0.67234370 10737.104 -0.67162467 10738.104 -0.67107725 10739.104 -0.67034348 10740.104 -0.66978366 10741.104 -0.66904091 10742.104 -0.66847565 10743.104 -0.66773302 10744.104 -0.66717525 10745.104 -0.66644871 10746.104 -0.66591253 10747.104 -0.66521118 10748.104 -0.66470170 10749.104 -0.66402784 10750.104 -0.66354480 10751.104 -0.66289541 10752.104 -0.66243198 10753.104 -0.66179636 10754.104 -0.66134128 10755.104 -0.66071060 10756.104 -0.66025702 10757.104 -0.65962526 10758.104 -0.65916740 10759.104 -0.65852851 10760.104 -0.65805907 10761.104 -0.65740371 10762.104 -0.65691359 10763.104 -0.65623615 10764.104 -0.65572366 10765.104 -0.65502561 10766.104 -0.65449526 10767.104 -0.65378456 10768.104 -0.65324972 10769.104 -0.65254772 10770.104 -0.65203349 10771.104 -0.65135967 10772.104 -0.65087674 10773.104 -0.65023535 10774.104 -0.64978296 10775.104 -0.64916820 10776.104 -0.64873401 10777.104 -0.64812373 10778.104 -0.64767806 10779.104 -0.64704598 10780.104 -0.64657244 10781.104 -0.64590990 10782.104 -0.64540515 10783.104 -0.64471364 10784.104 -0.64418457 10785.104 -0.64347894 10786.104 -0.64294900 10787.104 -0.64225328 10788.104 -0.64173880 10789.104 -0.64106192 10790.104 -0.64056700 10791.104 -0.63990899 10792.104 -0.63942950 10793.104 -0.63878032 10794.104 -0.63829855 10795.104 -0.63763788 10796.104 -0.63713893 10797.104 -0.63645881 10798.104 -0.63593951 10799.104 -0.63524052 10800.104 -0.63470518 10801.104 -0.63399660 10802.104 -0.63346183 10803.104 -0.63276539 10804.104 -0.63224991 10805.104 -0.63157699 10806.104 -0.63108654 10807.104 -0.63043897 10808.104 -0.62997180 10809.104 -0.62934371 10810.104 -0.62888797 10811.104 -0.62826149 10812.104 -0.62779926 10813.104 -0.62716181 10814.104 -0.62668523 10815.104 -0.62603185 10816.104 -0.62553822 10817.104 -0.62486834 10818.104 -0.62435970 10819.104 -0.62367848 10820.104 -0.62316144 10821.104 -0.62247419 10822.104 -0.62195217 10823.104 -0.62126120 10824.104 -0.62073583 10825.104 -0.62004220 10826.104 -0.61951394 10827.104 -0.61881730 10828.104 -0.61828523 10829.104 -0.61758499 10830.104 -0.61704941 10831.104 -0.61634667 10832.104 -0.61580930 10833.104 -0.61510645 10834.104 -0.61457055 10835.104 -0.61387227 10836.104 -0.61334427 10837.104 -0.61265714 10838.104 -0.61214186 10839.104 -0.61146895 10840.104 -0.61096829 10841.104 -0.61031056 10842.104 -0.60982460 10843.104 -0.60918102 10844.104 -0.60870730 10845.104 -0.60807451 10846.104 -0.60761006 10847.104 -0.60698599 10848.104 -0.60652932 10849.104 -0.60591282 10850.104 -0.60546304 10851.104 -0.60485347 10852.104 -0.60441033 10853.104 -0.60380782 10854.104 -0.60337131 10855.104 -0.60277525 10856.104 -0.60234416 10857.104 -0.60175284 10858.104 -0.60132496 10859.104 -0.60073557 10860.104 -0.60030717 10861.104 -0.59971467 10862.104 -0.59927997 10863.104 -0.59867922 10864.104 -0.59823416 10865.104 -0.59762173 10866.104 -0.59716315 10867.104 -0.59653588 10868.104 -0.59606024 10869.104 -0.59541342 10870.104 -0.59491485 10871.104 -0.59424378 10872.104 -0.59372078 10873.104 -0.59302701 10874.104 -0.59248368 10875.104 -0.59177403 10876.104 -0.59122052 10877.104 -0.59051064 10878.104 -0.58997055 10879.104 -0.58928700 10880.104 -0.58878043 10881.104 -0.58813442 10882.104 -0.58766614 10883.104 -0.58705738 10884.104 -0.58662211 10885.104 -0.58603928 10886.104 -0.58561642 10887.104 -0.58502914 10888.104 -0.58458826 10889.104 -0.58397543 10890.104 -0.58350403 10891.104 -0.58285866 10892.104 -0.58235418 10893.104 -0.58167796 10894.104 -0.58114737 10895.104 -0.58045420 10896.104 -0.57991556 10897.104 -0.57922120 10898.104 -0.57868578 10899.104 -0.57799879 10900.104 -0.57747373 10901.104 -0.57680042 10902.104 -0.57629175 10903.104 -0.57563859 10904.104 -0.57515340 10905.104 -0.57452654 10906.104 -0.57406848 10907.104 -0.57346917 10908.104 -0.57303755 10909.104 -0.57246319 10910.104 -0.57205333 10911.104 -0.57149628 10912.104 -0.57109614 10913.104 -0.57054148 10914.104 -0.57013790 10915.104 -0.56957632 10916.104 -0.56916264 10917.104 -0.56858907 10918.104 -0.56816143 10919.104 -0.56757297 10920.104 -0.56712929 10921.104 -0.56652461 10922.104 -0.56606434 10923.104 -0.56544378 10924.104 -0.56496824 10925.104 -0.56433416 10926.104 -0.56384684 10927.104 -0.56320418 10928.104 -0.56271223 10929.104 -0.56207191 10930.104 -0.56158974 10931.104 -0.56096496 10932.104 -0.56050087 10933.104 -0.55989566 10934.104 -0.55945064 10935.104 -0.55886318 10936.104 -0.55843236 10937.104 -0.55785329 10938.104 -0.55742096 10939.104 -0.55683168 10940.104 -0.55638343 10941.104 -0.55577579 10942.104 -0.55530793 10943.104 -0.55468161 10944.104 -0.55419703 10945.104 -0.55355871 10946.104 -0.55306995 10947.104 -0.55243870 10948.104 -0.55196528 10949.104 -0.55135454 10950.104 -0.55090391 10951.104 -0.55031716 10952.104 -0.54988959 10953.104 -0.54932392 10954.104 -0.54891251 10955.104 -0.54835516 10956.104 -0.54794216 10957.104 -0.54737659 10958.104 -0.54695083 10959.104 -0.54637011 10960.104 -0.54592731 10961.104 -0.54532926 10962.104 -0.54486925 10963.104 -0.54425612 10964.104 -0.54378405 10965.104 -0.54316262 10966.104 -0.54268454 10967.104 -0.54205956 10968.104 -0.54157961 10969.104 -0.54095512 10970.104 -0.54047761 10971.104 -0.53985855 10972.104 -0.53938991 10973.104 -0.53878471 10974.104 -0.53833318 10975.104 -0.53774723 10976.104 -0.53731523 10977.104 -0.53674874 10978.104 -0.53633450 10979.104 -0.53578356 10980.104 -0.53538029 10981.104 -0.53483353 10982.104 -0.53442577 10983.104 -0.53386890 10984.104 -0.53344739 10985.104 -0.53287537 10986.104 -0.53243792 10987.104 -0.53185108 10988.104 -0.53140066 10989.104 -0.53080562 10990.104 -0.53035407 10991.104 -0.52976578 10992.104 -0.52932540 10993.104 -0.52875106 10994.104 -0.52832533 10995.104 -0.52776584 10996.104 -0.52735324 10997.104 -0.52680445 10998.104 -0.52639701 10999.104 -0.52584584 11000.104 -0.52542852 11001.104 -0.52486331 11002.104 -0.52442892 11003.104 -0.52384545 11004.104 -0.52339186 11005.104 -0.52278985 11006.104 -0.52231868 11007.104 -0.52170221 11008.104 -0.52122033 11009.104 -0.52059730 11010.104 -0.52011152 11011.104 -0.51948765 11012.104 -0.51900334 11013.104 -0.51838411 11014.104 -0.51790727 11015.104 -0.51729982 11016.104 -0.51684006 11017.104 -0.51625638 11018.104 -0.51582441 11019.104 -0.51527099 11020.104 -0.51486952 11021.104 -0.51434622 11022.104 -0.51397244 11023.104 -0.51347356 11024.104 -0.51311775 11025.104 -0.51262728 11026.104 -0.51226848 11027.104 -0.51176764 11028.104 -0.51139358 11029.104 -0.51087522 11030.104 -0.51048222 11031.104 -0.50994565 11032.104 -0.50953603 11033.104 -0.50898766 11034.104 -0.50857362 11035.104 -0.50802933 11036.104 -0.50762431 11037.104 -0.50709239 11038.104 -0.50670100 11039.104 -0.50618360 11040.104 -0.50580588 11041.104 -0.50530093 11042.104 -0.50493199 11043.104 -0.50443089 11044.104 -0.50406010 11045.104 -0.50355370 11046.104 -0.50317449 11047.104 -0.50265778 11048.104 -0.50226592 11049.104 -0.50173509 11050.104 -0.50132681 11051.104 -0.50077738 11052.104 -0.50034681 11053.104 -0.49977317 11054.104 -0.49931779 11055.104 -0.49872121 11056.104 -0.49824553 11057.104 -0.49763362 11058.104 -0.49714891 11059.104 -0.49653781 11060.104 -0.49606886 11061.104 -0.49549482 11062.104 -0.49507942 11063.104 -0.49456810 11064.104 -0.49421827 11065.104 -0.49377175 11066.104 -0.49348116 11067.104 -0.49308439 11068.104 -0.49282718 11069.104 -0.49243681 11070.104 -0.49214888 11071.104 -0.49169879 11072.104 -0.49133382 11073.104 -0.49079791 11074.104 -0.49034338 11075.104 -0.48972008 11076.104 -0.48918504 11077.104 -0.48849581 11078.104 -0.48792017 11079.104 -0.48722505 11080.104 -0.48667099 11081.104 -0.48601596 11082.104 -0.48551434 11083.104 -0.48492138 11084.104 -0.48448798 11085.104 -0.48396804 11086.104 -0.48360969 11087.104 -0.48316609 11088.104 -0.48288276 11089.104 -0.48251142 11090.104 -0.48229411 11091.104 -0.48198081 11092.104 -0.48180959 11093.104 -0.48152773 11094.104 -0.48136737 11095.104 -0.48106879 11096.104 -0.48084741 11097.104 -0.48043456 11098.104 -0.48005926 11099.104 -0.47947320 11100.104 -0.47891684 11101.104 -0.47815331 11102.104 -0.47743196 11103.104 -0.47652839 11104.104 -0.47570689 11105.104 -0.47477183 11106.104 -0.47400346 11107.104 -0.47318665 11108.104 -0.47257411 11109.104 -0.47193633 11110.104 -0.47151294 11111.104 -0.47106510 11112.104 -0.47082017 11113.104 -0.47052642 11114.104 -0.47038704 11115.104 -0.47013519 11116.104 -0.46998641 11117.104 -0.46969429 11118.104 -0.46948401 11119.104 -0.46911785 11120.104 -0.46882595 11121.104 -0.46837775 11122.104 -0.46800924 11123.104 -0.46750158 11124.104 -0.46709715 11125.104 -0.46657322 11126.104 -0.46616370 11127.104 -0.46564316 11128.104 -0.46524193 11129.104 -0.46473396 11130.104 -0.46434685 11131.104 -0.46385405 11132.104 -0.46347989 11133.104 -0.46299718 11134.104 -0.46262961 11135.104 -0.46215221 11136.104 -0.46178805 11137.104 -0.46131347 11138.104 -0.46095045 11139.104 -0.46047643 11140.104 -0.46011206 11141.104 -0.45963540 11142.104 -0.45926554 11143.104 -0.45878228 11144.104 -0.45840439 11145.104 -0.45791338 11146.104 -0.45752735 11147.104 -0.45702943 11148.104 -0.45663704 11149.104 -0.45613513 11150.104 -0.45574108 11151.104 -0.45524228 11152.104 -0.45485438 11153.104 -0.45436469 11154.104 -0.45398677 11155.104 -0.45350858 11156.104 -0.45314197 11157.104 -0.45267567 11158.104 -0.45231976 11159.104 -0.45186341 11160.104 -0.45151454 11161.104 -0.45106376 11162.104 -0.45071845 11163.104 -0.45027103 11164.104 -0.44992785 11165.104 -0.44948293 11166.104 -0.44914151 11167.104 -0.44869924 11168.104 -0.44836054 11169.104 -0.44792302 11170.104 -0.44758953 11171.104 -0.44715828 11172.104 -0.44683007 11173.104 -0.44640405 11174.104 -0.44607912 11175.104 -0.44565530 11176.104 -0.44532938 11177.104 -0.44490147 11178.104 -0.44456501 11179.104 -0.44412168 11180.104 -0.44376553 11181.104 -0.44330154 11182.104 -0.44292341 11183.104 -0.44243868 11184.104 -0.44204052 11185.104 -0.44153921 11186.104 -0.44112812 11187.104 -0.44062188 11188.104 -0.44021336 11189.104 -0.43971663 11190.104 -0.43932073 11191.104 -0.43884017 11192.104 -0.43846140 11193.104 -0.43799986 11194.104 -0.43763956 11195.104 -0.43719682 11196.104 -0.43685276 11197.104 -0.43642467 11198.104 -0.43609226 11199.104 -0.43567504 11200.104 -0.43535104 11201.104 -0.43494155 11202.104 -0.43462265 11203.104 -0.43421719 11204.104 -0.43389893 11205.104 -0.43349161 11206.104 -0.43316628 11207.104 -0.43274944 11208.104 -0.43241153 11209.104 -0.43198184 11210.104 -0.43162947 11211.104 -0.43118628 11212.104 -0.43081994 11213.104 -0.43036496 11214.104 -0.42998795 11215.104 -0.42952668 11216.104 -0.42914562 11217.104 -0.42868388 11218.104 -0.42830331 11219.104 -0.42784501 11220.104 -0.42746857 11221.104 -0.42701739 11222.104 -0.42664900 11223.104 -0.42620967 11224.104 -0.42585555 11225.104 -0.42543501 11226.104 -0.42510041 11227.104 -0.42470131 11228.104 -0.42438676 11229.104 -0.42400797 11230.104 -0.42371063 11231.104 -0.42334746 11232.104 -0.42306000 11233.104 -0.42270091 11234.104 -0.42240788 11235.104 -0.42203837 11236.104 -0.42172981 11237.104 -0.42134377 11238.104 -0.42101598 11239.104 -0.42061174 11240.104 -0.42026492 11241.104 -0.41984478 11242.104 -0.41948404 11243.104 -0.41905645 11244.104 -0.41869108 11245.104 -0.41826350 11246.104 -0.41789906 11247.104 -0.41747617 11248.104 -0.41711685 11249.104 -0.41670277 11250.104 -0.41635280 11251.104 -0.41595256 11252.104 -0.41561841 11253.104 -0.41523895 11254.104 -0.41492545 11255.104 -0.41456874 11256.104 -0.41427546 11257.104 -0.41393913 11258.104 -0.41366154 11259.104 -0.41333868 11260.104 -0.41306610 11261.104 -0.41274011 11262.104 -0.41245154 11263.104 -0.41210436 11264.104 -0.41178855 11265.104 -0.41141433 11266.104 -0.41106914 11267.104 -0.41066918 11268.104 -0.41029931 11269.104 -0.40988272 11270.104 -0.40950402 11271.104 -0.40909439 11272.104 -0.40873074 11273.104 -0.40834479 11274.104 -0.40800578 11275.104 -0.40764855 11276.104 -0.40733543 11277.104 -0.40700472 11278.104 -0.40671120 11279.104 -0.40639494 11280.104 -0.40610070 11281.104 -0.40577530 11282.104 -0.40546198 11283.104 -0.40511681 11284.104 -0.40477892 11285.104 -0.40441247 11286.104 -0.40405185 11287.104 -0.40366987 11288.104 -0.40329707 11289.104 -0.40291803 11290.104 -0.40255790 11291.104 -0.40220460 11292.104 -0.40187159 11293.104 -0.40155210 11294.104 -0.40124968 11295.104 -0.40096390 11296.104 -0.40068790 11297.104 -0.40042738 11298.104 -0.40016208 11299.104 -0.39990284 11300.104 -0.39962265 11301.104 -0.39934672 11302.104 -0.39904110 11303.104 -0.39874334 11304.104 -0.39841080 11305.104 -0.39809381 11306.104 -0.39774065 11307.104 -0.39741678 11308.104 -0.39706345 11309.104 -0.39675891 11310.104 -0.39642724 11311.104 -0.39615614 11312.104 -0.39585385 11313.104 -0.39562037 11314.104 -0.39534763 11315.104 -0.39514895 11316.104 -0.39489816 11317.104 -0.39472091 11318.104 -0.39447101 11319.104 -0.39429431 11320.104 -0.39402991 11321.104 -0.39384502 11322.104 -0.39356022 11323.104 -0.39336494 11324.104 -0.39305910 11325.104 -0.39285641 11326.104 -0.39253482 11327.104 -0.39233581 11328.104 -0.39201107 11329.104 -0.39182804 11330.104 -0.39150768 11331.104 -0.39134761 11332.104 -0.39103570 11333.104 -0.39090373 11334.104 -0.39060270 11335.104 -0.39050299 11336.104 -0.39021416 11337.104 -0.39015036 11338.104 -0.38987407 11339.104 -0.38984947 11340.104 -0.38958503 11341.104 -0.38960270 11342.104 -0.38934828 11343.104 -0.38941104 11344.104 -0.38916316 11345.104 -0.38927292 11346.104 -0.38902418 11347.104 -0.38918162 11348.104 -0.38892527 11349.104 -0.38913846 11350.104 -0.38887193 11351.104 -0.38915688 11352.104 -0.38887997 11353.104 -0.38926290 11354.104 -0.38897788 11355.104 -0.38950217 11356.104 -0.38921532 11357.104 -0.38995258 11358.104 -0.38966861 11359.104 -0.39074342 11360.104 -0.39046493 11361.104 -0.39214677 11362.104 -0.39187647 11363.104 -0.39497485 11364.104 -0.39473175 11365.104 -0.40509339 ifeffit-1.2.11d/examples/diffkk/dk-feff.inp0000755000175000017500000000125210771740461017450 0ustar segresegre%------------------------% title = Cu(1) of YBCO out = feff.fpp % output file name xmu = xmu.dat % xmu file name isfeff = true % is the a feff xmu.dat? encol = 1 % energy column mucol = 4 % mu(E) column iz = 29 % Z of central atom e0 = 8986.0700 % edge energy egrid = 1.0000 % energy grid ewidth = 1.5000 % for broadening CL data elow = 200.0000 % \ how far below and above ehigh = 500.0000 % / the data range to go epad = 5.0000 % \ energy grid & # of points npad = 20 % / for pre-padding feff mu(E) %------------------------% ifeffit-1.2.11d/examples/diffkk/README0000644000175000017500000000037610771740461016321 0ustar segresegre# # This shows a simple example of running the diffkk program. # # The input file is diffkk.inp. # Outputs are written to # test.out ascii column # diffkk.log summary # diffkk.sav ifeffit save file of all input, output, work arrays # ifeffit-1.2.11d/examples/Lytle/0000755000175000017500000000000010771740460015265 5ustar segresegreifeffit-1.2.11d/examples/Lytle/calco.dat0000644000175000017500000005400010771740460017037 0ustar segresegre# NPTS NS CUEDGE CUHITE DSPACE STPDEG STEPMM START STOP SCALE # 468 3 84294. 200000. 1.92017 4000. 3150. 85290. 75506. 2.000 # DELTA: 50. 5. 22. 36. 48. #DELEND: 84788. 83804. 81216. 76752. 71076. # SEC: 2.000 2.000 2.000 2.000 2.000 #OFFSET: 1140. 1608. 401. 4. 4. 6. 137. 4. 6. 18. 641. 3. 2. 5. 61. 20. 93. 232. 0. 0. 0. 0. 0. 0. #SINGLE XTAL CUINSE2 CHALCOPYRITE 7 7 5-30-83 85290. 2.62740E+05 2.69329E+05 1.37453E+04 85240. 2.63329E+05 2.69903E+05 1.32863E+04 85190. 2.62699E+05 2.69422E+05 1.31963E+04 85140. 2.61994E+05 2.68895E+05 1.31268E+04 85090. 2.61453E+05 2.68538E+05 1.30418E+04 85040. 2.60785E+05 2.68062E+05 1.29858E+04 84990. 2.60028E+05 2.67461E+05 1.28778E+04 84940. 2.59236E+05 2.66832E+05 1.28148E+04 84890. 2.58560E+05 2.66316E+05 1.27378E+04 84840. 2.57993E+05 2.65934E+05 1.26993E+04 84790. 2.57192E+05 2.65293E+05 1.27238E+04 84740. 2.56507E+05 2.64779E+05 1.26123E+04 84735. 2.56674E+05 2.65012E+05 1.27078E+04 84730. 2.56887E+05 2.65249E+05 1.27523E+04 84725. 2.56154E+05 2.64440E+05 1.26368E+04 84720. 2.56329E+05 2.64673E+05 1.26843E+04 84715. 2.56113E+05 2.64444E+05 1.27128E+04 84710. 2.56446E+05 2.64826E+05 1.27273E+04 84705. 2.55947E+05 2.64302E+05 1.27208E+04 84700. 2.56291E+05 2.64673E+05 1.27248E+04 84695. 2.55780E+05 2.64124E+05 1.26613E+04 84690. 2.55990E+05 2.64383E+05 1.27108E+04 84685. 2.55605E+05 2.63968E+05 1.26723E+04 84680. 2.55894E+05 2.64312E+05 1.27218E+04 84675. 2.55058E+05 2.63409E+05 1.25503E+04 84670. 2.55303E+05 2.63702E+05 1.26383E+04 84665. 2.55216E+05 2.63629E+05 1.26903E+04 84660. 2.55511E+05 2.63924E+05 1.27068E+04 84655. 2.55611E+05 2.64066E+05 1.27208E+04 84650. 2.55898E+05 2.64388E+05 1.28578E+04 84645. 2.55825E+05 2.64331E+05 1.28178E+04 84640. 2.55234E+05 2.63691E+05 1.27803E+04 84635. 2.55268E+05 2.63751E+05 1.27593E+04 84630. 2.54961E+05 2.63442E+05 1.27658E+04 84625. 2.55098E+05 2.63587E+05 1.27638E+04 84620. 2.54470E+05 2.62934E+05 1.27748E+04 84615. 2.54588E+05 2.63084E+05 1.27443E+04 84610. 2.53954E+05 2.62417E+05 1.26758E+04 84605. 2.54124E+05 2.62623E+05 1.26988E+04 84600. 2.53850E+05 2.62341E+05 1.26843E+04 84595. 2.53891E+05 2.62446E+05 1.27378E+04 84590. 2.54576E+05 2.63216E+05 1.29453E+04 84585. 2.54663E+05 2.63329E+05 1.29638E+04 84580. 2.54231E+05 2.62850E+05 1.28738E+04 84575. 2.54398E+05 2.63065E+05 1.29358E+04 84570. 2.54572E+05 2.63252E+05 1.30038E+04 84565. 2.54527E+05 2.63225E+05 1.30218E+04 84560. 2.54183E+05 2.62889E+05 1.30558E+04 84555. 2.54387E+05 2.63124E+05 1.30938E+04 84550. 2.53632E+05 2.62309E+05 1.29698E+04 84545. 2.53779E+05 2.62504E+05 1.30058E+04 84540. 2.53711E+05 2.62423E+05 1.30578E+04 84535. 2.53806E+05 2.62573E+05 1.30878E+04 84530. 2.53443E+05 2.62177E+05 1.31223E+04 84525. 2.53673E+05 2.62465E+05 1.31653E+04 84520. 2.53002E+05 2.61739E+05 1.30518E+04 84515. 2.53242E+05 2.62024E+05 1.30948E+04 84510. 2.52940E+05 2.61718E+05 1.31593E+04 84505. 2.53206E+05 2.62026E+05 1.32078E+04 84500. 2.54107E+05 2.63049E+05 1.34943E+04 84495. 2.54317E+05 2.63286E+05 1.35813E+04 84490. 2.52789E+05 2.61595E+05 1.32793E+04 84485. 2.52997E+05 2.61858E+05 1.33278E+04 84480. 2.50979E+05 2.59652E+05 1.29903E+04 84475. 2.51198E+05 2.59921E+05 1.30453E+04 84470. 2.51339E+05 2.60108E+05 1.32198E+04 84465. 2.51797E+05 2.60612E+05 1.32753E+04 84460. 2.51716E+05 2.60529E+05 1.34003E+04 84455. 2.51748E+05 2.60576E+05 1.34403E+04 84450. 2.52445E+05 2.61346E+05 1.36928E+04 84445. 2.52573E+05 2.61517E+05 1.37278E+04 84440. 2.51574E+05 2.60421E+05 1.36693E+04 84435. 2.51689E+05 2.60599E+05 1.36873E+04 84430. 2.51963E+05 2.60922E+05 1.38693E+04 84425. 2.52106E+05 2.61099E+05 1.39708E+04 84420. 2.50991E+05 2.59896E+05 1.39283E+04 84415. 2.51205E+05 2.60151E+05 1.39608E+04 84410. 2.51709E+05 2.60726E+05 1.41528E+04 84405. 2.51660E+05 2.60700E+05 1.42468E+04 84400. 2.51470E+05 2.60489E+05 1.43853E+04 84395. 2.51864E+05 2.60887E+05 1.45548E+04 84390. 2.49928E+05 2.58771E+05 1.42703E+04 84385. 2.50040E+05 2.58935E+05 1.44408E+04 84380. 2.50029E+05 2.58943E+05 1.46093E+04 84375. 2.50348E+05 2.59314E+05 1.47668E+04 84370. 2.51470E+05 2.60558E+05 1.52528E+04 84365. 2.51704E+05 2.60858E+05 1.54398E+04 84360. 2.50432E+05 2.59461E+05 1.54388E+04 84355. 2.50551E+05 2.59619E+05 1.56348E+04 84350. 2.50747E+05 2.59853E+05 1.60613E+04 84345. 2.50891E+05 2.60029E+05 1.63008E+04 84340. 2.50463E+05 2.59563E+05 1.66128E+04 84335. 2.50609E+05 2.59757E+05 1.68973E+04 84330. 2.49165E+05 2.58212E+05 1.71793E+04 84325. 2.49428E+05 2.58521E+05 1.75208E+04 84320. 2.49664E+05 2.58802E+05 1.83013E+04 84315. 2.49780E+05 2.58969E+05 1.88503E+04 84310. 2.49104E+05 2.58223E+05 1.96293E+04 84305. 2.49514E+05 2.58715E+05 2.05448E+04 84300. 2.50507E+05 2.59815E+05 2.21398E+04 84295. 2.50668E+05 2.60028E+05 2.35713E+04 84290. 2.49512E+05 2.58776E+05 2.58373E+04 84285. 2.49699E+05 2.58998E+05 2.85503E+04 84280. 2.50206E+05 2.59571E+05 3.43628E+04 84275. 2.50372E+05 2.59772E+05 4.22278E+04 84270. 2.48729E+05 2.57983E+05 5.60163E+04 84265. 2.48859E+05 2.58139E+05 6.90043E+04 84260. 2.50532E+05 2.60006E+05 8.37428E+04 84255. 2.50905E+05 2.60426E+05 9.30623E+04 84250. 2.49640E+05 2.59061E+05 1.02885E+05 84245. 2.49756E+05 2.59231E+05 1.13400E+05 84240. 2.47923E+05 2.57273E+05 1.30315E+05 84235. 2.48177E+05 2.57631E+05 1.48519E+05 84230. 2.47706E+05 2.57351E+05 1.69783E+05 84225. 2.47486E+05 2.57321E+05 1.81379E+05 84220. 2.46507E+05 2.56325E+05 1.85952E+05 84215. 2.46653E+05 2.56361E+05 1.83662E+05 84210. 2.45808E+05 2.55068E+05 1.75544E+05 84205. 2.45510E+05 2.54460E+05 1.69388E+05 84200. 2.47379E+05 2.56409E+05 1.68255E+05 84195. 2.47851E+05 2.56966E+05 1.67940E+05 84190. 2.46780E+05 2.55954E+05 1.67538E+05 84185. 2.47243E+05 2.56553E+05 1.68100E+05 84180. 2.47468E+05 2.56890E+05 1.67826E+05 84175. 2.47473E+05 2.56958E+05 1.68112E+05 84170. 2.47751E+05 2.57292E+05 1.71370E+05 84165. 2.47675E+05 2.57238E+05 1.78118E+05 84160. 2.47903E+05 2.57499E+05 1.83812E+05 84155. 2.47337E+05 2.56896E+05 1.89260E+05 84150. 2.46936E+05 2.56478E+05 1.91718E+05 84145. 2.47393E+05 2.56977E+05 1.92195E+05 84140. 2.47461E+05 2.57083E+05 1.90046E+05 84135. 2.47259E+05 2.56882E+05 1.85391E+05 84130. 2.47694E+05 2.57360E+05 1.82660E+05 84125. 2.47580E+05 2.57262E+05 1.79064E+05 84120. 2.47646E+05 2.57374E+05 1.78275E+05 84115. 2.46353E+05 2.55949E+05 1.76955E+05 84110. 2.46485E+05 2.56134E+05 1.77123E+05 84105. 2.45995E+05 2.55645E+05 1.76134E+05 84100. 2.46045E+05 2.55809E+05 1.75237E+05 84095. 2.45237E+05 2.55115E+05 1.72985E+05 84090. 2.45312E+05 2.55451E+05 1.71555E+05 84085. 2.45391E+05 2.55743E+05 1.70577E+05 84080. 2.45339E+05 2.55614E+05 1.71091E+05 84075. 2.44076E+05 2.53767E+05 1.71775E+05 84070. 2.44261E+05 2.53574E+05 1.73692E+05 84065. 2.43646E+05 2.52555E+05 1.74442E+05 84060. 2.44319E+05 2.53287E+05 1.75594E+05 84055. 2.46247E+05 2.55592E+05 1.77957E+05 84050. 2.47067E+05 2.56717E+05 1.79167E+05 84045. 2.47696E+05 2.57614E+05 1.80541E+05 84040. 2.47709E+05 2.57750E+05 1.81363E+05 84035. 2.47335E+05 2.57378E+05 1.82033E+05 84030. 2.47469E+05 2.57557E+05 1.83158E+05 84025. 2.47566E+05 2.57681E+05 1.83738E+05 84020. 2.47878E+05 2.58023E+05 1.84556E+05 84015. 2.47394E+05 2.57494E+05 1.84455E+05 84010. 2.47595E+05 2.57740E+05 1.84722E+05 84005. 2.46876E+05 2.56966E+05 1.83930E+05 84000. 2.47219E+05 2.57348E+05 1.84321E+05 83995. 2.47276E+05 2.57443E+05 1.84005E+05 83990. 2.47906E+05 2.58148E+05 1.84400E+05 83985. 2.46869E+05 2.57023E+05 1.83201E+05 83980. 2.46859E+05 2.57051E+05 1.82839E+05 83975. 2.46800E+05 2.57009E+05 1.81931E+05 83970. 2.47216E+05 2.57474E+05 1.81803E+05 83965. 2.45767E+05 2.55881E+05 1.80135E+05 83960. 2.45948E+05 2.56104E+05 1.79883E+05 83955. 2.45582E+05 2.55711E+05 1.78844E+05 83950. 2.46023E+05 2.56224E+05 1.79040E+05 83945. 2.45576E+05 2.55763E+05 1.78077E+05 83940. 2.45835E+05 2.56065E+05 1.78001E+05 83935. 2.44861E+05 2.55009E+05 1.76816E+05 83930. 2.45299E+05 2.55520E+05 1.76946E+05 83925. 2.45972E+05 2.56291E+05 1.77272E+05 83920. 2.46257E+05 2.56623E+05 1.77411E+05 83915. 2.46423E+05 2.56833E+05 1.77470E+05 83910. 2.46534E+05 2.56981E+05 1.77849E+05 83905. 2.45887E+05 2.56292E+05 1.77835E+05 83900. 2.46247E+05 2.56688E+05 1.78711E+05 83895. 2.45632E+05 2.56034E+05 1.78878E+05 83890. 2.45718E+05 2.56158E+05 1.79737E+05 83885. 2.45955E+05 2.56417E+05 1.80646E+05 83880. 2.45795E+05 2.56294E+05 1.81449E+05 83875. 2.45481E+05 2.55941E+05 1.81926E+05 83870. 2.45613E+05 2.56119E+05 1.82970E+05 83865. 2.45547E+05 2.56056E+05 1.83525E+05 83860. 2.45789E+05 2.56318E+05 1.84172E+05 83855. 2.45135E+05 2.55611E+05 1.84183E+05 83850. 2.45256E+05 2.55754E+05 1.84720E+05 83845. 2.45170E+05 2.55674E+05 1.85042E+05 83840. 2.45183E+05 2.55709E+05 1.85400E+05 83835. 2.45055E+05 2.55615E+05 1.85721E+05 83830. 2.45195E+05 2.55779E+05 1.86548E+05 83825. 2.45130E+05 2.55742E+05 1.86865E+05 83820. 2.44718E+05 2.55298E+05 1.86903E+05 83815. 2.44799E+05 2.55433E+05 1.87287E+05 83810. 2.44433E+05 2.55030E+05 1.87335E+05 83805. 2.44462E+05 2.55095E+05 1.87580E+05 83800. 2.44097E+05 2.54730E+05 1.86960E+05 83778. 2.44319E+05 2.55098E+05 1.86321E+05 83756. 2.43984E+05 2.54819E+05 1.84644E+05 83734. 2.43619E+05 2.54525E+05 1.83329E+05 83712. 2.43231E+05 2.54224E+05 1.82312E+05 83690. 2.42878E+05 2.53914E+05 1.81590E+05 83668. 2.42667E+05 2.53759E+05 1.81707E+05 83646. 2.42372E+05 2.53577E+05 1.82622E+05 83624. 2.41911E+05 2.53175E+05 1.83646E+05 83602. 2.41642E+05 2.52966E+05 1.84032E+05 83580. 2.41355E+05 2.52736E+05 1.84099E+05 83558. 2.41007E+05 2.52459E+05 1.84168E+05 83536. 2.40741E+05 2.52245E+05 1.83952E+05 83514. 2.40399E+05 2.51967E+05 1.82941E+05 83492. 2.40132E+05 2.51786E+05 1.82610E+05 83470. 2.39532E+05 2.51218E+05 1.82789E+05 83448. 2.39276E+05 2.51038E+05 1.82953E+05 83426. 2.39034E+05 2.50842E+05 1.83406E+05 83404. 2.38746E+05 2.50618E+05 1.83822E+05 83382. 2.38267E+05 2.50186E+05 1.84151E+05 83360. 2.38034E+05 2.50027E+05 1.84316E+05 83338. 2.37639E+05 2.49676E+05 1.84306E+05 83316. 2.37393E+05 2.49502E+05 1.84036E+05 83294. 2.37003E+05 2.49169E+05 1.83151E+05 83272. 2.36724E+05 2.48973E+05 1.81989E+05 83250. 2.36353E+05 2.48652E+05 1.80385E+05 83228. 2.35873E+05 2.48195E+05 1.79225E+05 83206. 2.35663E+05 2.48063E+05 1.78529E+05 83184. 2.35297E+05 2.47761E+05 1.77512E+05 83162. 2.35101E+05 2.47605E+05 1.77094E+05 83140. 2.34682E+05 2.47246E+05 1.76423E+05 83118. 2.34277E+05 2.46897E+05 1.76289E+05 83096. 2.34060E+05 2.46745E+05 1.76403E+05 83074. 2.33688E+05 2.46426E+05 1.76629E+05 83052. 2.33592E+05 2.46396E+05 1.77241E+05 83030. 2.33166E+05 2.46022E+05 1.77580E+05 83008. 2.32892E+05 2.45807E+05 1.77741E+05 82986. 2.32373E+05 2.45323E+05 1.77726E+05 82964. 2.32106E+05 2.45093E+05 1.78109E+05 82942. 2.31798E+05 2.44850E+05 1.78188E+05 82920. 2.31269E+05 2.44299E+05 1.78637E+05 82898. 2.31020E+05 2.44333E+05 1.78739E+05 82876. 2.30850E+05 2.44051E+05 1.79527E+05 82854. 2.30671E+05 2.43949E+05 1.80006E+05 82832. 2.30195E+05 2.43524E+05 1.80048E+05 82810. 2.29404E+05 2.42831E+05 1.79607E+05 82788. 2.29610E+05 2.43059E+05 1.79792E+05 82766. 2.29046E+05 2.42523E+05 1.79352E+05 82744. 2.28818E+05 2.42419E+05 1.78936E+05 82722. 2.27989E+05 2.41628E+05 1.77991E+05 82700. 2.28273E+05 2.41956E+05 1.78003E+05 82678. 2.27976E+05 2.41750E+05 1.77312E+05 82656. 2.27620E+05 2.41416E+05 1.76795E+05 82634. 2.27319E+05 2.41176E+05 1.76187E+05 82612. 2.27001E+05 2.40912E+05 1.75491E+05 82590. 2.26667E+05 2.40638E+05 1.74692E+05 82568. 2.26414E+05 2.40453E+05 1.74048E+05 82546. 2.25939E+05 2.40014E+05 1.73244E+05 82524. 2.25499E+05 2.39613E+05 1.72645E+05 82502. 2.25291E+05 2.39460E+05 1.72237E+05 82480. 2.24989E+05 2.39198E+05 1.71634E+05 82458. 2.24535E+05 2.38773E+05 1.71083E+05 82436. 2.24229E+05 2.38520E+05 1.70710E+05 82414. 2.23975E+05 2.38330E+05 1.70557E+05 82392. 2.23501E+05 2.37880E+05 1.70149E+05 82370. 2.23106E+05 2.37528E+05 1.70135E+05 82348. 2.22875E+05 2.37352E+05 1.70274E+05 82326. 2.22572E+05 2.37097E+05 1.70402E+05 82304. 2.22224E+05 2.36792E+05 1.70474E+05 82282. 2.21727E+05 2.36326E+05 1.70380E+05 82260. 2.21682E+05 2.36362E+05 1.70661E+05 82238. 2.21263E+05 2.36018E+05 1.70697E+05 82216. 2.20681E+05 2.35453E+05 1.70635E+05 82194. 2.20406E+05 2.35255E+05 1.70712E+05 82172. 2.20042E+05 2.34944E+05 1.70797E+05 82150. 2.19719E+05 2.34673E+05 1.70905E+05 82128. 2.19375E+05 2.34353E+05 1.70846E+05 82106. 2.19015E+05 2.34032E+05 1.70920E+05 82084. 2.18675E+05 2.33721E+05 1.71005E+05 82062. 2.18137E+05 2.33171E+05 1.70816E+05 82040. 2.17481E+05 2.32405E+05 1.70587E+05 82018. 2.16457E+05 2.31192E+05 1.70132E+05 81996. 2.15949E+05 2.31136E+05 1.69401E+05 81974. 2.16635E+05 2.32460E+05 1.67716E+05 81952. 2.16952E+05 2.32506E+05 1.68900E+05 81930. 2.16681E+05 2.32063E+05 1.69255E+05 81908. 2.16359E+05 2.31775E+05 1.68850E+05 81886. 2.15880E+05 2.31315E+05 1.68156E+05 81864. 2.15566E+05 2.31086E+05 1.67771E+05 81842. 2.15183E+05 2.30717E+05 1.67087E+05 81820. 2.14857E+05 2.30433E+05 1.66573E+05 81798. 2.14304E+05 2.29897E+05 1.65925E+05 81776. 2.13946E+05 2.29540E+05 1.65592E+05 81754. 2.13293E+05 2.28772E+05 1.65091E+05 81732. 2.12729E+05 2.28333E+05 1.64626E+05 81710. 2.12521E+05 2.28548E+05 1.63319E+05 81688. 2.12659E+05 2.28662E+05 1.63112E+05 81666. 2.12588E+05 2.28539E+05 1.63621E+05 81644. 2.12032E+05 2.28009E+05 1.63054E+05 81622. 2.11772E+05 2.27782E+05 1.62803E+05 81600. 2.11349E+05 2.27394E+05 1.62338E+05 81578. 2.11080E+05 2.27156E+05 1.62103E+05 81556. 2.10821E+05 2.26942E+05 1.61851E+05 81534. 2.10350E+05 2.26514E+05 1.61400E+05 81512. 2.10057E+05 2.26252E+05 1.61217E+05 81490. 2.09700E+05 2.25937E+05 1.61160E+05 81468. 2.09348E+05 2.25620E+05 1.60935E+05 81446. 2.09096E+05 2.25449E+05 1.61002E+05 81424. 2.08753E+05 2.25136E+05 1.60948E+05 81402. 2.08467E+05 2.24887E+05 1.60965E+05 81380. 2.08070E+05 2.24532E+05 1.60937E+05 81358. 2.07375E+05 2.23822E+05 1.60493E+05 81336. 2.07341E+05 2.23872E+05 1.60398E+05 81314. 2.07026E+05 2.23574E+05 1.60432E+05 81292. 2.06654E+05 2.23237E+05 1.60274E+05 81270. 2.06290E+05 2.22903E+05 1.60171E+05 81248. 2.05974E+05 2.22622E+05 1.60197E+05 81226. 2.05742E+05 2.22481E+05 1.60097E+05 81204. 2.05216E+05 2.21935E+05 1.59826E+05 81168. 2.04522E+05 2.21295E+05 1.59160E+05 81132. 2.04077E+05 2.20920E+05 1.59032E+05 81096. 2.03414E+05 2.20299E+05 1.58598E+05 81060. 2.02797E+05 2.19726E+05 1.58072E+05 81024. 2.02320E+05 2.19333E+05 1.57569E+05 80988. 2.01703E+05 2.18756E+05 1.57082E+05 80952. 2.01195E+05 2.18312E+05 1.56551E+05 80916. 2.00323E+05 2.17450E+05 1.55933E+05 80880. 1.99037E+05 2.15860E+05 1.55442E+05 80844. 1.97844E+05 2.15796E+05 1.52437E+05 80808. 1.99248E+05 2.16574E+05 1.54726E+05 80772. 1.98536E+05 2.15924E+05 1.53862E+05 80736. 1.97852E+05 2.15241E+05 1.53535E+05 80700. 1.96299E+05 2.13698E+05 1.53553E+05 80664. 1.96720E+05 2.14251E+05 1.53478E+05 80628. 1.96333E+05 2.13907E+05 1.52145E+05 80592. 1.95850E+05 2.13500E+05 1.51696E+05 80556. 1.95356E+05 2.13046E+05 1.51542E+05 80520. 1.94761E+05 2.12532E+05 1.50869E+05 80484. 1.93987E+05 2.11754E+05 1.50626E+05 80448. 1.93334E+05 2.11136E+05 1.50205E+05 80412. 1.92932E+05 2.10826E+05 1.49977E+05 80376. 1.92261E+05 2.10160E+05 1.49617E+05 80340. 1.91775E+05 2.09750E+05 1.49527E+05 80304. 1.91094E+05 2.09075E+05 1.49522E+05 80268. 1.90584E+05 2.08618E+05 1.49275E+05 80232. 1.89967E+05 2.08050E+05 1.48856E+05 80196. 1.89296E+05 2.07421E+05 1.48193E+05 80160. 1.88964E+05 2.07158E+05 1.47925E+05 80124. 1.88097E+05 2.06303E+05 1.47217E+05 80088. 1.87690E+05 2.05934E+05 1.46979E+05 80052. 1.87054E+05 2.05344E+05 1.46544E+05 80016. 1.86337E+05 2.04656E+05 1.45907E+05 79980. 1.85945E+05 2.04317E+05 1.45526E+05 79944. 1.85373E+05 2.03764E+05 1.45081E+05 79908. 1.84643E+05 2.03039E+05 1.44417E+05 79872. 1.84144E+05 2.02576E+05 1.44078E+05 79836. 1.82968E+05 2.01199E+05 1.43513E+05 79800. 1.82981E+05 2.01554E+05 1.42665E+05 79764. 1.82490E+05 2.01021E+05 1.42563E+05 79728. 1.81860E+05 2.00429E+05 1.41946E+05 79692. 1.81343E+05 1.99921E+05 1.41703E+05 79656. 1.80452E+05 1.99116E+05 1.40994E+05 79620. 1.80062E+05 1.98672E+05 1.40816E+05 79584. 1.79661E+05 1.98314E+05 1.40764E+05 79548. 1.79052E+05 1.97718E+05 1.40167E+05 79512. 1.78345E+05 1.97025E+05 1.39582E+05 79476. 1.77781E+05 1.96496E+05 1.39175E+05 79440. 1.77183E+05 1.95899E+05 1.38802E+05 79404. 1.76662E+05 1.95400E+05 1.38642E+05 79368. 1.76102E+05 1.94896E+05 1.38392E+05 79332. 1.75535E+05 1.94336E+05 1.38030E+05 79296. 1.74929E+05 1.93775E+05 1.37570E+05 79260. 1.74417E+05 1.93273E+05 1.37286E+05 79224. 1.73786E+05 1.92665E+05 1.36826E+05 79188. 1.73191E+05 1.92098E+05 1.36439E+05 79152. 1.72725E+05 1.91661E+05 1.36250E+05 79116. 1.72153E+05 1.91097E+05 1.35740E+05 79080. 1.71592E+05 1.90581E+05 1.35264E+05 79044. 1.70936E+05 1.89940E+05 1.34958E+05 79008. 1.70556E+05 1.89580E+05 1.34610E+05 78972. 1.69848E+05 1.88851E+05 1.34358E+05 78936. 1.69381E+05 1.88409E+05 1.34062E+05 78900. 1.68714E+05 1.87735E+05 1.33675E+05 78864. 1.68232E+05 1.87303E+05 1.33096E+05 78828. 1.67591E+05 1.86655E+05 1.32688E+05 78792. 1.67009E+05 1.86092E+05 1.32304E+05 78756. 1.66468E+05 1.85571E+05 1.31849E+05 78720. 1.65843E+05 1.84933E+05 1.31464E+05 78684. 1.65256E+05 1.84333E+05 1.31162E+05 78648. 1.64679E+05 1.83791E+05 1.30724E+05 78612. 1.64108E+05 1.83218E+05 1.30542E+05 78576. 1.63457E+05 1.82561E+05 1.30038E+05 78540. 1.62998E+05 1.82143E+05 1.29823E+05 78504. 1.62267E+05 1.81398E+05 1.29342E+05 78468. 1.61656E+05 1.80777E+05 1.28823E+05 78432. 1.61207E+05 1.80377E+05 1.28431E+05 78396. 1.60602E+05 1.79780E+05 1.27850E+05 78360. 1.60101E+05 1.79301E+05 1.27608E+05 78324. 1.59432E+05 1.78618E+05 1.27387E+05 78288. 1.58852E+05 1.78033E+05 1.27338E+05 78252. 1.58309E+05 1.77487E+05 1.27046E+05 78216. 1.57749E+05 1.76952E+05 1.26620E+05 78180. 1.57208E+05 1.76420E+05 1.25847E+05 78144. 1.56563E+05 1.75764E+05 1.25336E+05 78108. 1.56020E+05 1.75213E+05 1.24920E+05 78072. 1.55608E+05 1.74843E+05 1.24579E+05 78036. 1.54926E+05 1.74125E+05 1.24260E+05 78000. 1.54342E+05 1.73523E+05 1.23841E+05 77964. 1.53834E+05 1.73041E+05 1.23851E+05 77928. 1.53146E+05 1.72348E+05 1.23489E+05 77892. 1.52640E+05 1.71831E+05 1.23105E+05 77856. 1.52098E+05 1.71299E+05 1.22492E+05 77820. 1.51536E+05 1.70719E+05 1.22176E+05 77784. 1.50779E+05 1.69905E+05 1.21576E+05 77748. 1.50207E+05 1.69330E+05 1.20988E+05 77712. 1.49757E+05 1.68904E+05 1.20786E+05 77676. 1.49023E+05 1.68134E+05 1.20155E+05 77640. 1.48445E+05 1.67534E+05 1.19683E+05 77604. 1.47828E+05 1.66897E+05 1.19191E+05 77568. 1.47191E+05 1.66240E+05 1.18729E+05 77532. 1.46739E+05 1.65780E+05 1.18462E+05 77496. 1.46078E+05 1.65076E+05 1.18039E+05 77460. 1.45398E+05 1.64373E+05 1.17454E+05 77424. 1.44840E+05 1.63808E+05 1.17131E+05 77388. 1.44336E+05 1.63294E+05 1.16854E+05 77352. 1.43797E+05 1.62758E+05 1.16455E+05 77316. 1.43071E+05 1.61995E+05 1.15790E+05 77280. 1.42630E+05 1.61558E+05 1.15542E+05 77244. 1.42138E+05 1.61044E+05 1.15318E+05 77208. 1.41534E+05 1.60433E+05 1.14845E+05 77172. 1.40928E+05 1.59789E+05 1.14459E+05 77136. 1.40487E+05 1.59354E+05 1.14098E+05 77100. 1.39926E+05 1.58780E+05 1.13720E+05 77064. 1.39343E+05 1.58191E+05 1.13325E+05 77028. 1.38646E+05 1.57467E+05 1.12862E+05 76992. 1.38118E+05 1.56907E+05 1.12477E+05 76956. 1.37585E+05 1.56370E+05 1.12074E+05 76920. 1.36913E+05 1.55668E+05 1.11615E+05 76884. 1.36376E+05 1.55096E+05 1.11401E+05 76848. 1.35870E+05 1.54577E+05 1.11096E+05 76812. 1.35237E+05 1.53908E+05 1.10630E+05 76776. 1.34708E+05 1.53342E+05 1.10248E+05 76740. 1.33938E+05 1.52529E+05 1.09595E+05 76692. 1.33143E+05 1.51680E+05 1.08905E+05 76644. 1.32382E+05 1.50891E+05 1.08507E+05 76596. 1.31555E+05 1.49999E+05 1.07924E+05 76548. 1.30732E+05 1.49116E+05 1.07448E+05 76500. 1.29723E+05 1.48033E+05 1.06808E+05 76452. 1.27925E+05 1.45934E+05 1.05617E+05 76404. 1.30393E+05 1.49073E+05 1.07362E+05 76356. 1.28389E+05 1.46768E+05 1.05854E+05 76308. 1.27369E+05 1.45630E+05 1.05225E+05 76260. 1.26271E+05 1.44392E+05 1.04508E+05 76212. 1.25581E+05 1.43684E+05 1.04004E+05 76164. 1.24769E+05 1.42833E+05 1.03572E+05 76116. 1.23777E+05 1.41685E+05 1.02998E+05 76068. 1.23128E+05 1.41061E+05 1.02475E+05 76020. 1.22353E+05 1.40247E+05 1.02013E+05 75972. 1.21587E+05 1.39483E+05 1.01160E+05 75924. 1.20602E+05 1.38305E+05 1.00927E+05 75876. 1.20118E+05 1.37814E+05 1.00571E+05 75828. 1.19033E+05 1.36588E+05 9.98553E+04 75780. 1.18166E+05 1.35655E+05 9.93158E+04 75732. 1.16845E+05 1.33990E+05 9.89728E+04 75684. 1.16519E+05 1.33847E+05 9.80803E+04 75636. 1.14068E+05 1.30614E+05 9.71368E+04 75588. 1.16220E+05 1.33612E+05 9.80908E+04 75540. 1.14880E+05 1.32535E+05 9.57318E+04 75492. 1.14183E+05 1.31423E+05 9.64503E+04 ifeffit-1.2.11d/examples/Lytle/Lytle.iff0000644000175000017500000000050310771740460017042 0ustar segresegre# # read data file from Farrel Lytle database, convert to mu(E) read_data( calco.dat, group=calco, label='steps i0 i1 i2') set (dspace = 1.92017, stpdeg = 4000) set (r2d = 57.29577951, hc = 12398.61) set calco.en = hc / (2 * dspace) / sin(calco.steps / (r2d * stpdeg)) plot calco.en, {calco.i2/calco.i0} ifeffit-1.2.11d/examples/Data_Processing/0000755000175000017500000000000010771740461017242 5ustar segresegreifeffit-1.2.11d/examples/Data_Processing/a.xmu0000644000175000017500000004756110771740461020232 0ustar segresegre# Cu foil at 10K ## cu10k.dat : this file is part of the uwxafs 3.0 distribution # data taken at NSLS beamline X-11A Sept 1992 # by M Newville, B Ravel, and Y Zhang # foil of 99.999% Cu rolled and annealled to ~12 microns # sample prepared by M Newville # From X-11A : # 2-SI111 HC/2D= 1977.260 STPDEG=6400. STPMMZ= 40. # FOCUS=F TRANSLT=F E0= 8980.0 NREG= 3 NPTS= 611 NSCLRS= 3 EF= .0 # SRB= -193.7 -43.5 30.0 2381.3 # DEL= 10.020 .483 .050K # SEC= 1.000 1.000 1.000 # DETECTORSI0 I If # GAINS 8 7 10 # OFFSETS 51284 50016 48319 #--------------------------------------------------------------------- # energy xmu .8786204E+04 .1013661E+01 .8796258E+04 .9949864E+00 .8806253E+04 .9900679E+00 .8816270E+04 .9850345E+00 .8826270E+04 .9801005E+00 .8836292E+04 .9751812E+00 .8846337E+04 .9703809E+00 .8856322E+04 .9656931E+00 .8866372E+04 .9609839E+00 .8876361E+04 .9562312E+00 .8886416E+04 .9515597E+00 .8896409E+04 .9472797E+00 .8906425E+04 .9427789E+00 .8916464E+04 .9387816E+00 .8926483E+04 .9347627E+00 .8936483E+04 .9319326E+00 .8936998E+04 .9318979E+00 .8937471E+04 .9319605E+00 .8937944E+04 .9317057E+00 .8938417E+04 .9314675E+00 .8938976E+04 .9315093E+00 .8939406E+04 .9315045E+00 .8939878E+04 .9313901E+00 .8940352E+04 .9313291E+00 .8940824E+04 .9312409E+00 .8941384E+04 .9311222E+00 .8941814E+04 .9310213E+00 .8942287E+04 .9309021E+00 .8942761E+04 .9307298E+00 .8943319E+04 .9306122E+00 .8943793E+04 .9304990E+00 .8944224E+04 .9306326E+00 .8944697E+04 .9305469E+00 .8945257E+04 .9303982E+00 .8945730E+04 .9303880E+00 .8946204E+04 .9303346E+00 .8946635E+04 .9303558E+00 .8947108E+04 .9302956E+00 .8947668E+04 .9302498E+00 .8948143E+04 .9302464E+00 .8948616E+04 .9301887E+00 .8949048E+04 .9302589E+00 .8949564E+04 .9302350E+00 .8950038E+04 .9301157E+00 .8950513E+04 .9302852E+00 .8950987E+04 .9301982E+00 .8951461E+04 .9303481E+00 .8951979E+04 .9303330E+00 .8952453E+04 .9302519E+00 .8952927E+04 .9303452E+00 .8953401E+04 .9304274E+00 .8953876E+04 .9305623E+00 .8954394E+04 .9306202E+00 .8954868E+04 .9307082E+00 .8955343E+04 .9309137E+00 .8955817E+04 .9310440E+00 .8956336E+04 .9311512E+00 .8956811E+04 .9312306E+00 .8957285E+04 .9314795E+00 .8957761E+04 .9315805E+00 .8958235E+04 .9318467E+00 .8958710E+04 .9322639E+00 .8959229E+04 .9325585E+00 .8959703E+04 .9327140E+00 .8960179E+04 .9331298E+00 .8960654E+04 .9333592E+00 .8961130E+04 .9338366E+00 .8961647E+04 .9340628E+00 .8962123E+04 .9345798E+00 .8962599E+04 .9350846E+00 .8963074E+04 .9357670E+00 .8963550E+04 .9363439E+00 .8964068E+04 .9371685E+00 .8964544E+04 .9378253E+00 .8965020E+04 .9386100E+00 .8965496E+04 .9393651E+00 .8965972E+04 .9404053E+00 .8966447E+04 .9413668E+00 .8966967E+04 .9426652E+00 .8967442E+04 .9440842E+00 .8967919E+04 .9458520E+00 .8968395E+04 .9469061E+00 .8968871E+04 .9484839E+00 .8969347E+04 .9510049E+00 .8969909E+04 .9537250E+00 .8970386E+04 .9559226E+00 .8970862E+04 .9591411E+00 .8971339E+04 .9638383E+00 .8971772E+04 .9658701E+00 .8972248E+04 .9704646E+00 .8972812E+04 .9777987E+00 .8973288E+04 .9857215E+00 .8973765E+04 .9959283E+00 .8974198E+04 .1004012E+01 .8974675E+04 .1025727E+01 .8975151E+04 .1041380E+01 .8975628E+04 .1065133E+01 .8976192E+04 .1129467E+01 .8976626E+04 .1208882E+01 .8977103E+04 .1347811E+01 .8977580E+04 .1576825E+01 .8978057E+04 .1781245E+01 .8978534E+04 .1922731E+01 .8979055E+04 .1990812E+01 .8979531E+04 .2014387E+01 .8980009E+04 .2006267E+01 .8980486E+04 .1985342E+01 .8980964E+04 .1960698E+01 .8981441E+04 .1948155E+01 .8981919E+04 .1962577E+01 .8982396E+04 .1988741E+01 .8982918E+04 .2034157E+01 .8983396E+04 .2087115E+01 .8983873E+04 .2129985E+01 .8984352E+04 .2166079E+01 .8984829E+04 .2204677E+01 .8985307E+04 .2266785E+01 .8985785E+04 .2305345E+01 .8986307E+04 .2377522E+01 .8986784E+04 .2447587E+01 .8987263E+04 .2550736E+01 .8987741E+04 .2628802E+01 .8988219E+04 .2739306E+01 .8988697E+04 .2846921E+01 .8989176E+04 .2926129E+01 .8989653E+04 .3004384E+01 .8990132E+04 .3103122E+01 .8990698E+04 .3211040E+01 .8991133E+04 .3253994E+01 .8991611E+04 .3299688E+01 .8992090E+04 .3307443E+01 .8992568E+04 .3292812E+01 .8993048E+04 .3270622E+01 .8993526E+04 .3232157E+01 .8994006E+04 .3193880E+01 .8994484E+04 .3153873E+01 .8995007E+04 .3110148E+01 .8995485E+04 .3076609E+01 .8995965E+04 .3057663E+01 .8996444E+04 .3044436E+01 .8996924E+04 .3038896E+01 .8997402E+04 .3047299E+01 .8997882E+04 .3067514E+01 .8998361E+04 .3100560E+01 .8998840E+04 .3164385E+01 .8999319E+04 .3198286E+01 .8999799E+04 .3253436E+01 .9000366E+04 .3303922E+01 .9000803E+04 .3341708E+01 .9001281E+04 .3359158E+01 .9001762E+04 .3356086E+01 .9002241E+04 .3337021E+01 .9002721E+04 .3294590E+01 .9003201E+04 .3271427E+01 .9003681E+04 .3230007E+01 .9004161E+04 .3208134E+01 .9004642E+04 .3151590E+01 .9005121E+04 .3126171E+01 .9005602E+04 .3094709E+01 .9006125E+04 .3063252E+01 .9006605E+04 .3043238E+01 .9007086E+04 .3022431E+01 .9007566E+04 .2994922E+01 .9008047E+04 .2975828E+01 .9008526E+04 .2955377E+01 .9009007E+04 .2941575E+01 .9009487E+04 .2933227E+01 .9009969E+04 .2931259E+01 .9011062E+04 .2941681E+01 .9012153E+04 .2955967E+01 .9013246E+04 .2980734E+01 .9014384E+04 .3008692E+01 .9015565E+04 .3061603E+01 .9016746E+04 .3111765E+01 .9017928E+04 .3151268E+01 .9019154E+04 .3209008E+01 .9020380E+04 .3265456E+01 .9021606E+04 .3309451E+01 .9022877E+04 .3344066E+01 .9024191E+04 .3347933E+01 .9025464E+04 .3317408E+01 .9026822E+04 .3256685E+01 .9028140E+04 .3197553E+01 .9029499E+04 .3127461E+01 .9030903E+04 .3074151E+01 .9032309E+04 .3038878E+01 .9033759E+04 .3014589E+01 .9035164E+04 .3009469E+01 .9036615E+04 .3019048E+01 .9038109E+04 .3042527E+01 .9039604E+04 .3064316E+01 .9041145E+04 .3070378E+01 .9042642E+04 .3060592E+01 .9044271E+04 .3049929E+01 .9045768E+04 .3056479E+01 .9047397E+04 .3083377E+01 .9049029E+04 .3111159E+01 .9050616E+04 .3117680E+01 .9052336E+04 .3112090E+01 .9053969E+04 .3114585E+01 .9055646E+04 .3135969E+01 .9057324E+04 .3166758E+01 .9059047E+04 .3194733E+01 .9060814E+04 .3212787E+01 .9062627E+04 .3230845E+01 .9064353E+04 .3252570E+01 .9066166E+04 .3285908E+01 .9067981E+04 .3320478E+01 .9069842E+04 .3347080E+01 .9071702E+04 .3347973E+01 .9073563E+04 .3322422E+01 .9075470E+04 .3270037E+01 .9077377E+04 .3199704E+01 .9079329E+04 .3141443E+01 .9081283E+04 .3096301E+01 .9083237E+04 .3056642E+01 .9085281E+04 .3035020E+01 .9087237E+04 .3030587E+01 .9089283E+04 .3008554E+01 .9091330E+04 .2954597E+01 .9093378E+04 .2905036E+01 .9095472E+04 .2869176E+01 .9097610E+04 .2861018E+01 .9099705E+04 .2881511E+01 .9101847E+04 .2917772E+01 .9104033E+04 .2965204E+01 .9106221E+04 .3017964E+01 .9108409E+04 .3067991E+01 .9110644E+04 .3100566E+01 .9112879E+04 .3107379E+01 .9115160E+04 .3090957E+01 .9117398E+04 .3071216E+01 .9119728E+04 .3065036E+01 .9122057E+04 .3105295E+01 .9124389E+04 .3203622E+01 .9126721E+04 .3327629E+01 .9129099E+04 .3390544E+01 .9131478E+04 .3393080E+01 .9133904E+04 .3363564E+01 .9136331E+04 .3334324E+01 .9138805E+04 .3300580E+01 .9141279E+04 .3238897E+01 .9143756E+04 .3156461E+01 .9146233E+04 .3055825E+01 .9148803E+04 .2946566E+01 .9151328E+04 .2839257E+01 .9153899E+04 .2747080E+01 .9156474E+04 .2689709E+01 .9159094E+04 .2682628E+01 .9161716E+04 .2730871E+01 .9164339E+04 .2816572E+01 .9167009E+04 .2917572E+01 .9169681E+04 .3016081E+01 .9172399E+04 .3080977E+01 .9175074E+04 .3115732E+01 .9177842E+04 .3108910E+01 .9180564E+04 .3070012E+01 .9183381E+04 .3033550E+01 .9186153E+04 .3015555E+01 .9188973E+04 .3007977E+01 .9191794E+04 .2979829E+01 .9194663E+04 .2938781E+01 .9197533E+04 .2929960E+01 .9200406E+04 .2976179E+01 .9203326E+04 .3073268E+01 .9206247E+04 .3170151E+01 .9209217E+04 .3203155E+01 .9212143E+04 .3206142E+01 .9215115E+04 .3190300E+01 .9218183E+04 .3147204E+01 .9221160E+04 .3071421E+01 .9224185E+04 .2977321E+01 .9227258E+04 .2889161E+01 .9230333E+04 .2822056E+01 .9233502E+04 .2781351E+01 .9236581E+04 .2763039E+01 .9239755E+04 .2769146E+01 .9242838E+04 .2800158E+01 .9246016E+04 .2822845E+01 .9249196E+04 .2821907E+01 .9252425E+04 .2826751E+01 .9255655E+04 .2834598E+01 .9258889E+04 .2837595E+01 .9262171E+04 .2852731E+01 .9265454E+04 .2884891E+01 .9268787E+04 .2914335E+01 .9272122E+04 .2934046E+01 .9275459E+04 .2943820E+01 .9278800E+04 .2944769E+01 .9282188E+04 .2942882E+01 .9285580E+04 .2952354E+01 .9289021E+04 .2967295E+01 .9292465E+04 .2986871E+01 .9295910E+04 .3003432E+01 .9299404E+04 .2981879E+01 .9302949E+04 .2933500E+01 .9306403E+04 .2889045E+01 .9309953E+04 .2840568E+01 .9313506E+04 .2796097E+01 .9317061E+04 .2775838E+01 .9320666E+04 .2781760E+01 .9324320E+04 .2801508E+01 .9327932E+04 .2816890E+01 .9331592E+04 .2803144E+01 .9335256E+04 .2763032E+01 .9338922E+04 .2711823E+01 .9342639E+04 .2687955E+01 .9346358E+04 .2711813E+01 .9350128E+04 .2737134E+01 .9353900E+04 .2737934E+01 .9357677E+04 .2748922E+01 .9361455E+04 .2765675E+01 .9365285E+04 .2773098E+01 .9369165E+04 .2781047E+01 .9373048E+04 .2789819E+01 .9376840E+04 .2797477E+01 .9380777E+04 .2804734E+01 .9384671E+04 .2809786E+01 .9388614E+04 .2812114E+01 .9392563E+04 .2813700E+01 .9396561E+04 .2814358E+01 .9400515E+04 .2809979E+01 .9404567E+04 .2793399E+01 .9408576E+04 .2760490E+01 .9412637E+04 .2718249E+01 .9416700E+04 .2683656E+01 .9420768E+04 .2671065E+01 .9424935E+04 .2671632E+01 .9429010E+04 .2681260E+01 .9433184E+04 .2696438E+01 .9437313E+04 .2704987E+01 .9441495E+04 .2701200E+01 .9445729E+04 .2686653E+01 .9449966E+04 .2657398E+01 .9454208E+04 .2628573E+01 .9458453E+04 .2623585E+01 .9462702E+04 .2633209E+01 .9467004E+04 .2630277E+01 .9471358E+04 .2616724E+01 .9475668E+04 .2610234E+01 .9480029E+04 .2609877E+01 .9484396E+04 .2618066E+01 .9488814E+04 .2632820E+01 .9493189E+04 .2645850E+01 .9497665E+04 .2661480E+01 .9502097E+04 .2680759E+01 .9506581E+04 .2696983E+01 .9511118E+04 .2702235E+01 .9515563E+04 .2694176E+01 .9520109E+04 .2669260E+01 .9524611E+04 .2625398E+01 .9529265E+04 .2580381E+01 .9533775E+04 .2561563E+01 .9538438E+04 .2556394E+01 .9543007E+04 .2555007E+01 .9547679E+04 .2552842E+01 .9552306E+04 .2553917E+01 .9556986E+04 .2558074E+01 .9561673E+04 .2558972E+01 .9566462E+04 .2552003E+01 .9571157E+04 .2546721E+01 .9575956E+04 .2543460E+01 .9580661E+04 .2535349E+01 .9585470E+04 .2517931E+01 .9590283E+04 .2509453E+01 .9595102E+04 .2508878E+01 .9599976E+04 .2507338E+01 .9604854E+04 .2511822E+01 .9609737E+04 .2515893E+01 .9614625E+04 .2514758E+01 .9619568E+04 .2514053E+01 .9624518E+04 .2518860E+01 .9629471E+04 .2526326E+01 .9634431E+04 .2524162E+01 .9639445E+04 .2515393E+01 .9644466E+04 .2505588E+01 .9649541E+04 .2495945E+01 .9654571E+04 .2489619E+01 .9659708E+04 .2480515E+01 .9664750E+04 .2465866E+01 .9669847E+04 .2454911E+01 .9675001E+04 .2448600E+01 .9680159E+04 .2444625E+01 .9685324E+04 .2444391E+01 .9690545E+04 .2438542E+01 .9695722E+04 .2425891E+01 .9700953E+04 .2421363E+01 .9706243E+04 .2420298E+01 .9711486E+04 .2415727E+01 .9716788E+04 .2406582E+01 .9722094E+04 .2399528E+01 .9727407E+04 .2394548E+01 .9732776E+04 .2385773E+01 .9738204E+04 .2384001E+01 .9743535E+04 .2385557E+01 .9748923E+04 .2387176E+01 .9754317E+04 .2393320E+01 .9759769E+04 .2393286E+01 .9765227E+04 .2390265E+01 .9770742E+04 .2386799E+01 .9776212E+04 .2377775E+01 .9781793E+04 .2363987E+01 .9787275E+04 .2354141E+01 .9792816E+04 .2352211E+01 .9798416E+04 .2352589E+01 .9804022E+04 .2351565E+01 .9809584E+04 .2349586E+01 .9815254E+04 .2343184E+01 .9820880E+04 .2331066E+01 .9826564E+04 .2319885E+01 .9832308E+04 .2309800E+01 .9837953E+04 .2302536E+01 .9843659E+04 .2298680E+01 .9849422E+04 .2294200E+01 .9855192E+04 .2287658E+01 .9860971E+04 .2282896E+01 .9866755E+04 .2277700E+01 .9872600E+04 .2273120E+01 .9878450E+04 .2271066E+01 .9884310E+04 .2266972E+01 .9890175E+04 .2263576E+01 .9896100E+04 .2263998E+01 .9901980E+04 .2264150E+01 .9907920E+04 .2261573E+01 .9913867E+04 .2257439E+01 .9919876E+04 .2252447E+01 .9925838E+04 .2245956E+01 .9931859E+04 .2240462E+01 .9937890E+04 .2235462E+01 .9943980E+04 .2228760E+01 .9950025E+04 .2219993E+01 .9956132E+04 .2213546E+01 .9962300E+04 .2207783E+01 .9968367E+04 .2204902E+01 .9974497E+04 .2202134E+01 .9980687E+04 .2199268E+01 .9986832E+04 .2191243E+01 .9993038E+04 .2184893E+01 .9999253E+04 .2181988E+01 .1000553E+05 .2175889E+01 .1001176E+05 .2168400E+01 .1001805E+05 .2161425E+01 .1002435E+05 .2155688E+01 .1003066E+05 .2151178E+01 .1003703E+05 .2145570E+01 .1004336E+05 .2139351E+01 .1004974E+05 .2135055E+01 .1005614E+05 .2131782E+01 .1006254E+05 .2131762E+01 .1006896E+05 .2132080E+01 .1007543E+05 .2127986E+01 .1008192E+05 .2122787E+01 .1008846E+05 .2116560E+01 .1009491E+05 .2112059E+01 .1010142E+05 .2107203E+01 .1010794E+05 .2101453E+01 .1011452E+05 .2094787E+01 .1012111E+05 .2089134E+01 .1012771E+05 .2082759E+01 .1013432E+05 .2078182E+01 .1014105E+05 .2073463E+01 .1014768E+05 .2068076E+01 .1015431E+05 .2063473E+01 .1016101E+05 .2061048E+01 .1016778E+05 .2055853E+01 .1017449E+05 .2049533E+01 .1018128E+05 .2042940E+01 .1018807E+05 .2036571E+01 .1019482E+05 .2031228E+01 .1020163E+05 .2026054E+01 .1020845E+05 .2021201E+01 .1021528E+05 .2017216E+01 .1022217E+05 .2014019E+01 .1022913E+05 .2011350E+01 .1023599E+05 .2007960E+01 .1024286E+05 .2003555E+01 .1024985E+05 .1997455E+01 .1025679E+05 .1991910E+01 .1026380E+05 .1988298E+01 .1027082E+05 .1983455E+01 .1027785E+05 .1978791E+01 .1028489E+05 .1974810E+01 .1029188E+05 .1969660E+01 .1029905E+05 .1964434E+01 .1030612E+05 .1960277E+01 .1031320E+05 .1955222E+01 .1032041E+05 .1949610E+01 .1032750E+05 .1943582E+01 .1033473E+05 .1937461E+01 .1034185E+05 .1931902E+01 .1034909E+05 .1926781E+01 .1035635E+05 .1922293E+01 .1036361E+05 .1918179E+01 .1037089E+05 .1913225E+01 .1037817E+05 .1908101E+01 .1038547E+05 .1902590E+01 .1039278E+05 .1897350E+01 .1040010E+05 .1892302E+01 .1040748E+05 .1888240E+01 .1041482E+05 .1884945E+01 .1042223E+05 .1880880E+01 .1042965E+05 .1875209E+01 .1043714E+05 .1869117E+01 .1044458E+05 .1864810E+01 .1045203E+05 .1859730E+01 .1045955E+05 .1854703E+01 .1046708E+05 .1850927E+01 .1047463E+05 .1846062E+01 .1048218E+05 .1841454E+01 .1048975E+05 .1836949E+01 .1049732E+05 .1832029E+01 .1050497E+05 .1827266E+01 .1051257E+05 .1822091E+01 .1052024E+05 .1816615E+01 .1052792E+05 .1811286E+01 .1053562E+05 .1806091E+01 .1054332E+05 .1801056E+01 .1055104E+05 .1795975E+01 .1055877E+05 .1790457E+01 .1056650E+05 .1784985E+01 .1057432E+05 .1779817E+01 .1058220E+05 .1774830E+01 .1058991E+05 .1770077E+01 .1059776E+05 .1765584E+01 .1060562E+05 .1761346E+01 .1061355E+05 .1756188E+01 .1062143E+05 .1751146E+01 .1062933E+05 .1745866E+01 .1063730E+05 .1741325E+01 .1064521E+05 .1736995E+01 .1065321E+05 .1732137E+01 .1066121E+05 .1727265E+01 .1066923E+05 .1722011E+01 .1067726E+05 .1716960E+01 .1068530E+05 .1711949E+01 .1069335E+05 .1707255E+01 .1070154E+05 .1702657E+01 .1070956E+05 .1698036E+01 .1071771E+05 .1692923E+01 .1072581E+05 .1688424E+01 .1073399E+05 .1683495E+01 .1074224E+05 .1678441E+01 .1075038E+05 .1673326E+01 .1075860E+05 .1668216E+01 .1076683E+05 .1662904E+01 .1077514E+05 .1657390E+01 .1078339E+05 .1652672E+01 .1079172E+05 .1647545E+01 .1080000E+05 .1642962E+01 .1080836E+05 .1638716E+01 .1081673E+05 .1634322E+01 .1082505E+05 .1629474E+01 .1083345E+05 .1624254E+01 .1084186E+05 .1619885E+01 .1085041E+05 .1614815E+01 .1085878E+05 .1610030E+01 .1086723E+05 .1605274E+01 .1087576E+05 .1600137E+01 .1088423E+05 .1595601E+01 .1089285E+05 .1590329E+01 .1090129E+05 .1585683E+01 .1090994E+05 .1580797E+01 .1091847E+05 .1576162E+01 .1092708E+05 .1571243E+01 .1093570E+05 .1566459E+01 .1094440E+05 .1561783E+01 .1095299E+05 .1556788E+01 .1096165E+05 .1551967E+01 .1097040E+05 .1546871E+01 .1097909E+05 .1541756E+01 .1098786E+05 .1536987E+01 .1099665E+05 .1531856E+01 .1100532E+05 .1527318E+01 .1101414E+05 .1522359E+01 .1102297E+05 .1517451E+01 .1103181E+05 .1512805E+01 .1104067E+05 .1507971E+01 .1104954E+05 .1503313E+01 .1105843E+05 .1498878E+01 .1106733E+05 .1493591E+01 .1107625E+05 .1489248E+01 .1108518E+05 .1484389E+01 .1109412E+05 .1479586E+01 .1110315E+05 .1475953E+01 .1111213E+05 .1470389E+01 .1112125E+05 .1465458E+01 .1113019E+05 .1460824E+01 .1113934E+05 .1456106E+01 .1114838E+05 .1451418E+01 .1115743E+05 .1446648E+01 .1116656E+05 .1441941E+01 .1117578E+05 .1437189E+01 .1118487E+05 .1432610E+01 .1119405E+05 .1427790E+01 .1120331E+05 .1422876E+01 .1121245E+05 .1418740E+01 .1122168E+05 .1413546E+01 .1123098E+05 .1408856E+01 .1124017E+05 .1404290E+01 .1124951E+05 .1399685E+01 .1125880E+05 .1395006E+01 .1126817E+05 .1390236E+01 .1127755E+05 .1385646E+01 .1128682E+05 .1381390E+01 .1129624E+05 .1376596E+01 .1130560E+05 .1371654E+01 .1131505E+05 .1367242E+01 .1132452E+05 .1362544E+01 .1133393E+05 .1358360E+01 .1134343E+05 .1353479E+01 .1135294E+05 .1349326E+01 .1136247E+05 .1344309E+01 ifeffit-1.2.11d/examples/Data_Processing/oya.dat0000644000175000017500000002376310771740461020537 0ustar segresegre#GaAs-6K #363 #-------------------------- # E mu 1.162679e+01 1.092291e+00 1.162091e+01 1.094805e+00 1.161504e+01 1.097666e+00 1.160917e+01 1.099533e+00 1.160331e+01 1.103689e+00 1.159746e+01 1.104972e+00 1.159161e+01 1.106981e+00 1.158577e+01 1.107767e+00 1.157994e+01 1.109478e+00 1.157411e+01 1.112638e+00 1.156828e+01 1.115207e+00 1.156247e+01 1.117180e+00 1.155666e+01 1.119313e+00 1.155085e+01 1.120659e+00 1.154505e+01 1.122348e+00 1.153926e+01 1.125193e+00 1.153347e+01 1.126062e+00 1.152769e+01 1.127657e+00 1.152191e+01 1.129907e+00 1.151614e+01 1.132216e+00 1.151038e+01 1.134776e+00 1.150462e+01 1.137562e+00 1.149887e+01 1.140624e+00 1.149312e+01 1.142619e+00 1.148738e+01 1.143558e+00 1.148164e+01 1.144009e+00 1.147592e+01 1.145493e+00 1.147019e+01 1.147167e+00 1.146447e+01 1.149166e+00 1.145876e+01 1.150733e+00 1.145306e+01 1.154369e+00 1.144736e+01 1.157975e+00 1.144166e+01 1.160482e+00 1.143597e+01 1.163244e+00 1.143029e+01 1.165921e+00 1.142461e+01 1.167708e+00 1.141894e+01 1.170229e+00 1.141327e+01 1.175910e+00 1.140761e+01 1.177159e+00 1.140196e+01 1.178191e+00 1.139631e+01 1.180093e+00 1.139067e+01 1.183309e+00 1.138503e+01 1.186058e+00 1.137940e+01 1.188415e+00 1.137377e+01 1.190718e+00 1.136815e+01 1.192130e+00 1.136254e+01 1.193542e+00 1.135693e+01 1.193602e+00 1.135132e+01 1.197578e+00 1.134573e+01 1.196639e+00 1.134013e+01 1.197863e+00 1.133455e+01 1.200520e+00 1.132897e+01 1.203280e+00 1.132339e+01 1.204678e+00 1.131782e+01 1.205343e+00 1.131226e+01 1.208166e+00 1.130670e+01 1.210218e+00 1.130114e+01 1.211841e+00 1.129560e+01 1.211315e+00 1.129005e+01 1.216038e+00 1.128452e+01 1.220762e+00 1.127899e+01 1.222227e+00 1.127346e+01 1.226133e+00 1.126794e+01 1.229049e+00 1.126243e+01 1.231633e+00 1.125692e+01 1.234576e+00 1.125141e+01 1.236867e+00 1.124591e+01 1.238785e+00 1.124042e+01 1.241276e+00 1.123493e+01 1.242918e+00 1.122945e+01 1.245784e+00 1.122398e+01 1.249550e+00 1.121850e+01 1.251619e+00 1.121304e+01 1.254869e+00 1.120758e+01 1.258777e+00 1.120212e+01 1.260850e+00 1.119667e+01 1.262702e+00 1.119123e+01 1.263849e+00 1.118579e+01 1.265496e+00 1.118036e+01 1.267050e+00 1.117493e+01 1.268904e+00 1.116951e+01 1.270228e+00 1.116409e+01 1.271581e+00 1.115868e+01 1.271166e+00 1.115327e+01 1.270518e+00 1.114787e+01 1.269523e+00 1.114247e+01 1.269718e+00 1.113708e+01 1.274815e+00 1.113170e+01 1.278943e+00 1.112632e+01 1.281009e+00 1.112094e+01 1.287511e+00 1.111557e+01 1.294970e+00 1.111021e+01 1.301877e+00 1.110485e+01 1.305781e+00 1.109950e+01 1.306900e+00 1.109415e+01 1.307941e+00 1.108880e+01 1.307499e+00 1.108347e+01 1.309909e+00 1.107813e+01 1.313845e+00 1.107280e+01 1.318271e+00 1.106748e+01 1.320775e+00 1.106217e+01 1.320596e+00 1.105685e+01 1.318790e+00 1.105155e+01 1.320984e+00 1.104624e+01 1.325828e+00 1.104095e+01 1.328280e+00 1.103566e+01 1.331541e+00 1.103037e+01 1.335955e+00 1.102509e+01 1.340120e+00 1.101981e+01 1.345787e+00 1.101454e+01 1.346745e+00 1.100928e+01 1.344800e+00 1.100402e+01 1.339114e+00 1.099876e+01 1.333900e+00 1.099351e+01 1.326771e+00 1.098827e+01 1.329153e+00 1.098303e+01 1.338770e+00 1.097779e+01 1.351353e+00 1.097256e+01 1.357146e+00 1.096838e+01 1.357391e+00 1.096420e+01 1.357979e+00 1.096003e+01 1.362417e+00 1.095586e+01 1.370057e+00 1.095169e+01 1.378515e+00 1.094753e+01 1.384068e+00 1.094337e+01 1.385024e+00 1.093921e+01 1.386876e+00 1.093505e+01 1.387624e+00 1.093090e+01 1.391362e+00 1.092675e+01 1.394859e+00 1.092261e+01 1.395079e+00 1.091847e+01 1.392746e+00 1.091433e+01 1.390854e+00 1.091019e+01 1.390967e+00 1.090606e+01 1.392009e+00 1.090193e+01 1.395063e+00 1.089781e+01 1.397819e+00 1.089368e+01 1.397717e+00 1.088956e+01 1.389909e+00 1.088545e+01 1.384163e+00 1.088133e+01 1.393617e+00 1.087722e+01 1.405812e+00 1.087312e+01 1.412498e+00 1.086901e+01 1.413679e+00 1.086491e+01 1.407610e+00 1.086082e+01 1.402442e+00 1.085672e+01 1.395785e+00 1.085263e+01 1.399775e+00 1.084854e+01 1.408147e+00 1.084446e+01 1.415262e+00 1.084038e+01 1.421705e+00 1.083630e+01 1.425502e+00 1.083222e+01 1.427508e+00 1.082815e+01 1.429137e+00 1.082408e+01 1.432767e+00 1.082001e+01 1.439674e+00 1.081595e+01 1.447615e+00 1.081189e+01 1.453205e+00 1.080783e+01 1.453109e+00 1.080378e+01 1.457286e+00 1.079973e+01 1.465893e+00 1.079568e+01 1.469686e+00 1.079164e+01 1.466323e+00 1.078760e+01 1.465420e+00 1.078356e+01 1.461955e+00 1.077952e+01 1.465696e+00 1.077549e+01 1.478954e+00 1.077146e+01 1.483372e+00 1.076744e+01 1.471528e+00 1.076341e+01 1.446410e+00 1.075939e+01 1.424252e+00 1.075538e+01 1.417265e+00 1.075136e+01 1.431092e+00 1.074735e+01 1.449899e+00 1.074334e+01 1.458155e+00 1.073934e+01 1.457568e+00 1.073534e+01 1.464034e+00 1.073134e+01 1.482544e+00 1.072734e+01 1.501407e+00 1.072335e+01 1.510990e+00 1.071936e+01 1.510499e+00 1.071537e+01 1.501883e+00 1.071139e+01 1.497122e+00 1.070741e+01 1.498150e+00 1.070343e+01 1.504892e+00 1.069946e+01 1.508993e+00 1.069549e+01 1.504341e+00 1.069152e+01 1.501999e+00 1.068755e+01 1.514052e+00 1.068359e+01 1.526299e+00 1.067963e+01 1.539018e+00 1.067568e+01 1.538367e+00 1.067172e+01 1.546543e+00 1.066777e+01 1.553998e+00 1.066382e+01 1.543679e+00 1.065988e+01 1.525911e+00 1.065594e+01 1.510644e+00 1.065200e+01 1.488858e+00 1.064806e+01 1.464349e+00 1.064413e+01 1.458362e+00 1.064020e+01 1.469224e+00 1.063627e+01 1.492863e+00 1.063235e+01 1.519784e+00 1.062843e+01 1.540649e+00 1.062451e+01 1.560523e+00 1.062060e+01 1.574481e+00 1.061668e+01 1.570054e+00 1.061277e+01 1.565798e+00 1.060887e+01 1.584291e+00 1.060497e+01 1.605644e+00 1.060106e+01 1.602247e+00 1.059717e+01 1.575219e+00 1.059327e+01 1.560777e+00 1.058938e+01 1.560611e+00 1.058549e+01 1.561179e+00 1.058161e+01 1.564959e+00 1.057772e+01 1.584617e+00 1.057384e+01 1.598126e+00 1.056997e+01 1.584569e+00 1.056609e+01 1.556902e+00 1.056222e+01 1.526979e+00 1.055835e+01 1.530475e+00 1.055449e+01 1.542754e+00 1.055062e+01 1.545806e+00 1.054676e+01 1.546300e+00 1.054291e+01 1.556529e+00 1.053905e+01 1.576095e+00 1.053520e+01 1.594126e+00 1.053135e+01 1.619617e+00 1.052751e+01 1.633111e+00 1.052367e+01 1.645624e+00 1.051983e+01 1.651812e+00 1.051599e+01 1.647008e+00 1.051216e+01 1.647727e+00 1.050832e+01 1.634509e+00 1.050450e+01 1.606943e+00 1.050067e+01 1.580833e+00 1.049685e+01 1.559462e+00 1.049303e+01 1.555563e+00 1.048921e+01 1.557352e+00 1.048540e+01 1.570469e+00 1.048158e+01 1.615294e+00 1.047778e+01 1.643730e+00 1.047397e+01 1.618163e+00 1.047207e+01 1.604037e+00 1.047017e+01 1.596178e+00 1.046827e+01 1.597290e+00 1.046637e+01 1.607444e+00 1.046447e+01 1.622601e+00 1.046257e+01 1.633783e+00 1.046067e+01 1.639488e+00 1.045878e+01 1.642875e+00 1.045688e+01 1.647032e+00 1.045498e+01 1.651859e+00 1.045309e+01 1.657433e+00 1.045120e+01 1.664703e+00 1.044930e+01 1.671292e+00 1.044741e+01 1.671111e+00 1.044552e+01 1.660411e+00 1.044363e+01 1.640661e+00 1.044174e+01 1.617939e+00 1.043985e+01 1.600554e+00 1.043796e+01 1.593912e+00 1.043607e+01 1.598809e+00 1.043418e+01 1.610932e+00 1.043229e+01 1.623343e+00 1.043041e+01 1.636051e+00 1.042852e+01 1.652616e+00 1.042664e+01 1.669474e+00 1.042475e+01 1.668637e+00 1.042287e+01 1.651547e+00 1.042098e+01 1.638196e+00 1.041910e+01 1.632956e+00 1.041722e+01 1.631930e+00 1.041534e+01 1.629415e+00 1.041346e+01 1.624491e+00 1.041158e+01 1.619485e+00 1.040970e+01 1.614676e+00 1.040782e+01 1.606909e+00 1.040595e+01 1.593005e+00 1.040407e+01 1.586628e+00 1.040219e+01 1.599426e+00 1.040032e+01 1.612311e+00 1.039844e+01 1.610514e+00 1.039657e+01 1.602031e+00 1.039470e+01 1.587954e+00 1.039282e+01 1.583349e+00 1.039095e+01 1.584034e+00 1.038908e+01 1.595728e+00 1.038721e+01 1.709182e+00 1.038534e+01 1.899165e+00 1.038347e+01 1.891126e+00 1.038160e+01 1.850398e+00 1.037973e+01 1.914921e+00 1.037787e+01 2.110972e+00 1.037600e+01 2.113538e+00 1.037413e+01 1.405909e+00 1.037227e+01 7.570927e-01 1.037041e+01 5.451639e-01 1.036854e+01 4.775383e-01 1.036668e+01 4.462338e-01 1.036482e+01 4.291643e-01 1.036295e+01 4.181242e-01 1.036109e+01 4.108901e-01 1.035923e+01 4.057918e-01 1.035737e+01 4.022800e-01 1.035551e+01 3.996651e-01 1.035366e+01 3.976485e-01 1.035180e+01 3.961999e-01 1.034994e+01 3.950900e-01 1.034809e+01 3.940787e-01 1.034623e+01 3.933929e-01 1.034438e+01 3.929106e-01 1.034252e+01 3.926076e-01 1.034067e+01 3.924045e-01 1.033881e+01 3.922960e-01 1.033696e+01 3.923268e-01 1.033511e+01 3.923335e-01 1.033326e+01 3.924153e-01 1.033141e+01 3.925825e-01 1.032956e+01 3.926606e-01 1.032771e+01 3.927477e-01 1.032586e+01 3.929900e-01 1.032402e+01 3.933004e-01 1.031663e+01 3.947377e-01 1.030926e+01 3.964354e-01 1.030190e+01 3.978806e-01 1.029455e+01 3.994884e-01 1.028721e+01 4.010445e-01 1.027988e+01 4.032563e-01 1.027256e+01 4.050259e-01 1.026525e+01 4.072448e-01 1.025795e+01 4.093092e-01 1.025067e+01 4.110208e-01 1.024339e+01 4.132557e-01 1.023613e+01 4.151786e-01 1.022887e+01 4.175839e-01 1.022162e+01 4.195596e-01 1.021439e+01 4.217446e-01 1.020717e+01 4.239303e-01 1.019995e+01 4.259643e-01 1.019275e+01 4.281892e-01 1.018556e+01 4.300917e-01 1.017837e+01 4.321097e-01 1.017120e+01 4.343432e-01 1.016404e+01 4.365623e-01 1.015689e+01 4.389698e-01 1.014975e+01 4.411247e-01 1.014262e+01 4.432704e-01 1.013549e+01 4.454180e-01 1.012838e+01 4.475753e-01 1.012128e+01 4.497696e-01 1.011419e+01 4.520779e-01 1.010711e+01 4.542389e-01 1.010004e+01 4.564527e-01 1.009298e+01 4.588306e-01 1.008593e+01 4.609618e-01 1.007889e+01 4.632910e-01 1.007186e+01 4.654988e-01 1.006484e+01 4.676870e-01 1.005783e+01 4.697429e-01 1.005083e+01 4.721647e-01 1.004384e+01 4.747286e-01 ifeffit-1.2.11d/examples/Data_Processing/xmu.dat0000644000175000017500000001246610771740461020556 0ustar segresegreCavansite Feff 8.00 Evans H T American Mineralogist 58 (1973) 412-424 The crystal structures of cavansite and pentagonite Abs Z=23 Rmt= 1.142 Rnm= 1.322 K shell Pot 1 Z=20 Rmt= 1.655 Rnm= 1.728 Pot 2 Z=23 Rmt= 1.147 Rnm= 1.333 Pot 3 Z=14 Rmt= 0.980 Rnm= 1.202 Pot 4 Z= 8 Rmt= 0.828 Rnm= 1.082 Gam_ch=9.908E-01 H-L exch Mu=-5.272E+00 kf=2.321E+00 Vint=-1.595E+01 Rs_int= 1.563 S02 1.000 Global sig2 0.00000 Curved wave amplitude ratio filter 4.000% file sig2 tot cw amp ratio deg nlegs reff inp sig2 0/ 0 paths used xsedge+ 50, used to normalize mu 4.2721E-04 ----------------------------------------------------------------------- e, e(wrt edge), k, mu=(1+chi)*mu0, mu0, chi @# 5460.850 -12.740 -1.400 1.45815E-02 1.81901E-02 -3.60858E-03 5462.269 -11.321 -1.260 1.73989E-02 2.20878E-02 -4.68892E-03 5463.539 -10.051 -1.120 2.12200E-02 2.73858E-02 -6.16584E-03 5464.659 -8.931 -0.980 2.66198E-02 3.48672E-02 -8.24743E-03 5465.629 -7.960 -0.840 3.46098E-02 4.59520E-02 -1.13422E-02 5466.451 -7.139 -0.700 4.70175E-02 6.33932E-02 -1.63757E-02 5467.123 -6.467 -0.560 6.71502E-02 9.28068E-02 -2.56567E-02 5467.646 -5.944 -0.420 1.00364E-01 1.44887E-01 -4.45224E-02 5468.019 -5.571 -0.280 1.49883E-01 2.28129E-01 -7.82465E-02 5468.243 -5.347 -0.140 1.99325E-01 3.10861E-01 -1.11537E-01 5468.318 -5.272 0.000 2.19697E-01 3.42411E-01 -1.22714E-01 5468.565 -5.024 0.255 2.93154E-01 4.41786E-01 -1.48633E-01 5468.813 -4.777 0.361 3.73451E-01 5.14259E-01 -1.40808E-01 5469.061 -4.529 0.442 4.62446E-01 5.62492E-01 -1.00045E-01 5469.233 -4.357 0.490 5.30046E-01 5.87090E-01 -5.70436E-02 5469.513 -4.077 0.560 6.41627E-01 6.18094E-01 2.35329E-02 5469.830 -3.760 0.630 7.31353E-01 6.45238E-01 8.61150E-02 5470.185 -3.405 0.700 7.30080E-01 6.69864E-01 6.02157E-02 5470.577 -3.013 0.770 6.29967E-01 6.92953E-01 -6.29860E-02 5471.006 -2.584 0.840 5.03039E-01 7.15171E-01 -2.12132E-01 5471.473 -2.117 0.910 4.01355E-01 7.36874E-01 -3.35519E-01 5471.977 -1.613 0.980 3.33421E-01 7.58280E-01 -4.24859E-01 5472.518 -1.072 1.050 2.91946E-01 7.79497E-01 -4.87551E-01 5473.097 -0.493 1.120 2.69386E-01 8.00515E-01 -5.31130E-01 5473.713 0.123 1.190 2.62441E-01 8.21344E-01 -5.58903E-01 5474.367 0.777 1.260 2.72406E-01 8.41865E-01 -5.69459E-01 5475.057 1.467 1.330 3.03180E-01 8.62006E-01 -5.58825E-01 5475.785 2.196 1.400 3.56148E-01 8.81676E-01 -5.25528E-01 5476.551 2.961 1.470 4.22801E-01 9.00751E-01 -4.77951E-01 5477.354 3.764 1.540 4.88602E-01 9.19096E-01 -4.30495E-01 5478.194 4.604 1.610 5.51576E-01 9.36593E-01 -3.85017E-01 5479.071 5.481 1.680 6.18744E-01 9.53166E-01 -3.34422E-01 5479.986 6.396 1.750 6.92114E-01 9.68711E-01 -2.76597E-01 5480.938 7.348 1.820 7.68299E-01 9.83123E-01 -2.14824E-01 5481.927 8.338 1.890 8.43908E-01 9.96316E-01 -1.52407E-01 5482.954 9.364 1.960 9.19603E-01 1.00827E+00 -8.86701E-02 5484.018 10.429 2.030 9.98810E-01 1.01891E+00 -2.00979E-02 5485.120 11.530 2.100 1.08305E+00 1.02822E+00 5.48290E-02 5486.259 12.669 2.170 1.16850E+00 1.03620E+00 1.32296E-01 5487.435 13.845 2.240 1.24513E+00 1.04284E+00 2.02292E-01 5488.648 15.058 2.310 1.30094E+00 1.04817E+00 2.52766E-01 5489.899 16.309 2.380 1.33023E+00 1.05222E+00 2.78011E-01 5491.187 17.597 2.450 1.33630E+00 1.05506E+00 2.81247E-01 5492.513 18.923 2.520 1.32465E+00 1.05673E+00 2.67917E-01 5493.876 20.286 2.590 1.29673E+00 1.05731E+00 2.39419E-01 5495.276 21.686 2.660 1.25428E+00 1.05687E+00 1.97410E-01 5496.713 23.123 2.730 1.19966E+00 1.05553E+00 1.44131E-01 5498.188 24.598 2.800 1.14937E+00 1.05333E+00 9.60379E-02 5499.700 26.110 2.870 1.11256E+00 1.05042E+00 6.21438E-02 5501.250 27.660 2.940 1.08443E+00 1.04684E+00 3.75880E-02 5502.837 29.247 3.010 1.06213E+00 1.04274E+00 1.93892E-02 5504.461 30.871 3.080 1.04429E+00 1.03818E+00 6.10472E-03 5506.122 32.533 3.150 1.02968E+00 1.03324E+00 -3.56318E-03 5507.821 34.231 3.220 1.01729E+00 1.02804E+00 -1.07472E-02 5509.557 35.968 3.290 1.00622E+00 1.02266E+00 -1.64338E-02 5511.331 37.741 3.360 9.95826E-01 1.01713E+00 -2.13044E-02 5513.142 39.552 3.430 9.85469E-01 1.01157E+00 -2.61044E-02 5514.990 41.400 3.500 9.74910E-01 1.00606E+00 -3.11462E-02 5516.876 43.286 3.570 9.64244E-01 1.00060E+00 -3.63586E-02 5518.799 45.209 3.640 9.53955E-01 9.95284E-01 -4.13293E-02 5520.759 47.169 3.710 9.44672E-01 9.90170E-01 -4.54977E-02 5522.756 49.167 3.780 9.36921E-01 9.85284E-01 -4.83626E-02 5524.791 51.201 3.850 9.31201E-01 9.80674E-01 -4.94731E-02 5526.864 53.274 3.920 9.27792E-01 9.76363E-01 -4.85709E-02 5528.973 55.383 3.990 9.26860E-01 9.72375E-01 -4.55142E-02 ifeffit-1.2.11d/examples/Data_Processing/interpolote.iff0000644000175000017500000000104310771740461022272 0ustar segresegre# # simple example of using interpolation to a grid of 0.025 # read_data(file = "../data/cu.xmu", group = my, type = xmu) spline( energy = my.energy, xmu = my.xmu, kweight = 1, kmin = 0, kmax = 0, rbkg = 1.1 ) % newplot( my.k, my.chi) grid_size = 0.025 set new.k = grid_size * (indarr( (ceil(my.k) / grid_size) + 1) - 1 ) set new.chi = splint(my.k, my.chi, new.k) set new.lin = interp(my.k, my.chi, new.k) # pause -- hit return to overplot chi interpolated onto 0.025 Ang grid -- plot( new.k, new.chi ) show @arrays ifeffit-1.2.11d/examples/Data_Processing/ifeffit.sav0000644000175000017500000023010010771740461021365 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0054 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #= group= data #= commentchar= # #= column_label= k chi #= data_title_01= data : cu 10k, e0=8980, with standard #= data_title_02= chi: skey ASCII of cu_010k.dat using skey ASCII of chi.dat #= data_title_03= e0 = 8982.61; pre-edge range =[ -50.0 -200.0]; edge step = 2.257 #= data_title_04= k range=[ .05 24.95]; k weight= 1.00; sills: dk1, dk2=[ .00 .00] #= data_title_05= bkg r =[ .00 .98]; 1st shell r =[ .98 3.93]; 15 knots in spline #= data_title_06= Cu foil, 10K, foil rolled and annealled by matt #= data_title_07= 2-SI111 HC/2D= 1977.260 STPDEG=6400. STPMMZ= 40. FOCUS=F TRANSLT=F #= data_title_08= E0= 8980.0 NREG= 3 NPTS= 611 NSCLRS= 3 EF= .0 #= data_title_09= SRB= -193.7 -43.5 30.0 2381.3 #= data_title_10= DEL= 10.020 .483 .050K #= data_title_11= SEC= 1.000 1.000 1.000 #= data_title_12= DETECTORSI0 I If #= data_title_13= GAINS 8 7 10 #= data_title_14= OFFSETS 51284 50016 48319 #= filename= cu_chi.dat #= filetype= chi #:system #:scalars (nopad) #? s02 0.9310519317979 #? e0 2.075863525188 #? e0_1 0.3842669768067 #? ss2 0.3466530492686E-02 #? ss2_2 0.5250318371932E-02 #? ss2_3 0.7625546485751E-02 #? ss2_4 -.1108879937851E-02 #? ss2_5 0.4150028721964E-02 #? ss2_6 -.8092275015384E-03 #? dr 0.3199937876696E-04 #? dr_2 0.1413593634494E-01 #? dr_3 0.5567267113957E-01 #? dr_4 -.7211808939263E-02 #? dr_5 0.3595893936619E-01 #? dr_6 0.6628287342847E-01 #% pi 3.141592653590 #% etok 0.2624682917000 #% data_set 0.000000000000 #% path_index 6.000000000000 #% reff 4.754300000000 #% degen 48.00000000000 #% kweight 2.000000000000 #% dk1 1.000000000000 #% dk2 1.000000000000 #% rmax_out 10.00000000000 #% kmin 2.000000000000 #% kmax 17.00000000000 #% data_total 0.000000000000 #% epsilon_k 0.7884478359863E-03 #% epsilon_r 0.3748007409530E-01 #% chi_square 196.5284827221 #% chi_reduced 15.78888798898 #% r_factor 0.2197484361926E-02 #% n_idp 27.44726562500 #% n_varys 15.00000000000 #% delta_s02 0.2826826847786E-01 #% delta_e0 0.6904868091704 #% delta_e0_1 0.4008377489552 #% delta_ss2 0.1718503101456E-03 #% delta_ss2_2 0.6253309385043E-03 #% delta_ss2_3 0.6288557366141E-02 #% delta_ss2_4 0.1060038543180E-02 #% delta_ss2_5 0.3837586276320E-03 #% delta_ss2_6 0.8213812266616E-03 #% delta_dr 0.1748803847853E-02 #% delta_dr_2 0.7981469537281E-02 #% delta_dr_3 0.3424014288597E-01 #% delta_dr_4 0.1182932148833E-01 #% delta_dr_5 0.7340888381008E-02 #% delta_dr_6 0.1368900682323E-01 #% rmax 4.400000000000 #% rmin 1.500000000000 #:arrays #% [ 499] data.k !R*;R%%%%S&MR%%%%S&ahQ~~~S&v%%%%%S(0;R%%%S(DQ~~~~S(XhQ~~~S(m%%%%%S*';R%%%S*;R%%%% !S*OhR%%%S*c~~~~~S*x;R%%%S,2Q~~~~S,FhR%%%S,[%%%%%S,o;Q~~~S.)R%%%%S.=hQ~~~S.R%%%%% !S.f;R%%%S.zR%%%%S04hQ~~~S0H~~~~~S0];R%%%S0qR%%%%S2+hR%%%S2?~~~~~S2T;Q~~~S2hR%%%% !S2|hR%%%S47%%%%%S4K;Q~~~S4_Q~~~~S4shR%%%S6.%%%%%S6B;R%%%S6VQ~~~~S6jhQ~~~S8%%%%%% !S89;Q~~~S8MR%%%%S8ahQ~~~S8v%%%%%S:0;R%%%S:DQ~~~~S:XhR%%%S:l~~~~~S<';R%%%S<;R%%%% !S2R%%%%S>FhR%%%S>Z~~~~~S>o;R%%%S@)Q~~~~S@=hR%%%S@R%%%%% !S@f;Q~~~S@zR%%%%SB4hQ~~~SBI%%%%%SB];Q~~~SBqQ~~~~SD+hR%%%SD?~~~~~SDT;R%%%SDhR%%%% !SD|hQ~~~SF7%%%%%SFK;Q~~~SF_R%%%%SFshR%%%SH-~~~~~SHB;R%%%SHVQ~~~~SHjhR%%%SJ%%%%%% !SJ9;Q~~~SJMQ~~~~SJahR%%%SJv%%%%%SL0;R%%%SLDQ~~~~SLXhQ~~~SLm%%%%%SN';R%%%SN;R%%%% !SNOhQ~~~SNc~~~~~SNx;R%%%SP2R%%%%SPFhR%%%SPZ~~~~~SPo;Q~~~SR)R%%%%SR=hR%%%SRR%%%%% !SRf;Q~~~SRzQ~~~~ST4hR%%%STI%%%%%ST];Q~~~STqQ~~~~SV+hQ~~~SV@%%%%%SVT;R%%%SVhR%%%% !SV|hQ~~~SX6~~~~~SXK;R%%%SX_R%%%%SXshR%%%SZ-~~~~~SZB;Q~~~SZVR%%%%SZjhR%%%S\%%%%%% !S\9;Q~~~S\MQ~~~~S\ahR%%%S\v%%%%%S^0;R%%%S^DQ~~~~S^XhQ~~~S^m%%%%%S`';R%%%S`;Q~~~~ !S`OhQ~~~S`c~~~~~S`x;R%%%Sb2R%%%%SbFhR%%%SbZ~~~~~Sbo;Q~~~Sd)R%%%%Sd=hR%%%SdR%%%%% !Sdf;Q~~~SdzQ~~~~Sf4hR%%%SfI%%%%%Sf];R%%%SfqQ~~~~Sh+hQ~~~Sh@%%%%%ShT;R%%%ShhR%%%% !Sh|hQ~~~Sj6~~~~~SjK;R%%%Sj_R%%%%SjshR%%%Sl-~~~~~SlB;Q~~~SlVR%%%%SljhR%%%Sn%%%%%% !Sn9;R%%%SnMQ~~~~SnahU>;)Snu~~~~~Sp0;R%%%SpDR%%%%SpXhQ~~~Spm%(>;)Sr';Q~~~Sr;R%%%% !SrOhR%%%Src~~~~~Srx;U>;)St2Q~~~~StFhR%%%St[%%%%%Sto;Q~~~Sv)R(>;)Sv=hQ~~~SvR%%%%% !Svf;R%%%SvzQ~~~~Sx4hU>;)SxH~~~~~Sx];R%%%SxqR%%%%Sz+hQ~~~Sz@%(>;)SzT;Q~~~SzhR%%%% !Sz|hR%%%S|6~~~~~S|K;U>;)S|_Q~~~~S|shR%%%S~.%%%%%S~B;Q~~~S~VR(>;)S~jhQ~~~T.R%%%%% !T.T';R%%T.V)Q~~~T.X+hR%%T.Z-~~~~T.\0;R%%T.^2R%%%T.`4hQ~~T.b7%%%%T.d9;Q~~T.f;Q~~~ !T.h=hR%%T.j?~~~~T.lB;R%%T.nDQ~~~T.pFhR%%T.rI%%%%T.tK;Q~~T.vMR%%%T.xOhQ~~T.zQ~~~~ !T.|T;R%%T.~VQ~~~T0&XhR%%T0(Z~~~~T0*];R%%T0,_R%%%T0.ahQ~~T00d%%%%T02f;Q~~T04hR%%% !T06jhR%%T08l~~~~T0:o;R%%T0shQ~~T0@v%%%%T0Bx;Q~~T0DzR%%%T0F|hQ~~T0I%%%%% !T0K';R%%T0M)Q~~~T0O+hR%%T0Q-~~~~T0S0;R%%T0U2R%%%T0W4hQ~~T0Y7%%%%T0[9;Q~~T0];R%%% !T0_=hR%%T0a?~~~~T0cB;R%%T0eDQ~~~T0gFhQ~~T0iI%%%%T0kK;Q~~T0mMR%%%T0oOhQ~~T0qQ~~~~ !T0sT;R%%T0uVQ~~~T0wXhR%%T0yZ~~~~T0{];Q~~T0}_R%%%T2%ahQ~~T2'd%%%%T2)f;Q~~T2+hR%%% !T2-jhR%%T2/l~~~~T21o;R%%T23qQ~~~T25shR%%T27v%%%%T29x;Q~~T2;zR%%%T2=|hQ~~T2@%%%%% !T2B';R%%T2D)Q~~~T2F+hR%%T2H-~~~~T2J0;Q~~T2L2R%%%T2N4hQ~~T2P7%%%%T2R9;Q~~T2T;Q~~~ !T2V=hR%%T2X?~~~~T2ZB;R%%T2\DQ~~~T2^FhQ~~T2`I%%%%T2bK;Q~~T2dMR%%%T2fOhQ~~T2hR%%%% !T2jT;R%%T2lVQ~~~T2nXhR%%T2pZ~~~~T2r];R%%T2t_R%%%T2vahQ~~T2xd%%%%T2zf;Q~~T2|hQ~~~ !T2~jhR%%T4&l~~~~T4(o;R%%T4*qQ~~~T4,shR%%T4.v%%%%T40x;Q~~T42zR%%%T44|hQ~~T46~~~~~ !T49';R%%T4;)R%%%T4=+hQ~~T4?-~~~~T4A0;Q~~T4C2R%%%T4E4hR%%T4G6~~~~T4I9;Q~~T4K;R%%% !T4M=hR%%T4O@%%%%T4QB;Q~~T4SDQ~~~T4UFhR%%T4WI%%%%T4YK;R%%T4[MQ~~~T4]OhQ~~T4_R%%%% !T4aT;R%%T4cVR%%%T4eXhQ~~T4gZ~~~~T4i];Q~~T4k_R%%%T4mahR%%T4oc~~~~T4qf;Q~~T4shR%%% !T4ujhR%%T4wm%%%%T4yo;Q~~T4{qQ~~~T4}shQ~~T6%v%%%%T6'x;R%%T6)zQ~~~T6+|hQ~~T6.%%%%% !T60';R%%T62)R%%%T64+hQ~~T66-~~~~T680;R%%T6:2R%%%T6<4hR%%T6>6~~~~T6@9;Q~~T6B;Q~~~ !T6D=hR%%T6F@%%%%T6HB;Q~~T6JDQ~~~T6LFhR%%T6NI%%%%T6PK;R%%T6RMQ~~~T6TOhQ~~T6VR%%%% !T6XT;R%%T6ZVR%%%T6\XhQ~~T6^Z~~~~T6`];Q~~T6b_R%%%T6dahR%%T6fc~~~~T6hf;Q~~T6jhQ~~~ !T6ljhR%%T6nm%%%%T6po;Q~~T6rqQ~~~T6tshQ~~T6vv%%%%T6xx;R%%T6zzQ~~~T6||hQ~~T8%%%%%% !T8'';R%%T8))R%%%T8++hQ~~T8--~~~~T8/0;R%%T812R%%%T834hR%%T856~~~~T879;Q~~T89;R%%% !T8;=hR%%T8=@%%%%T8?B;Q~~T8ADQ~~~T8CFhQ~~T8EI%%%%T8GK;R%%T8IMQ~~~T8KOhQ~~T8MQ~~~~ !T8OT;R%%T8QVR%%%T8SXhQ~~T8UZ~~~~T8W];R%%T8Y_R%%%T8[ahR%%T8]c~~~~T8_f;Q~~T8ahR%%% !T8cjhR%%T8em%%%%T8go;Q~~T8iqQ~~~T8kshR%%T8mv%%%%T8ox;R%%T8qzQ~~~T8s|hQ~~T8u~~~~~ !T8x';R%%T8z)R%%%T8|+hQ~~T8~-~~~~T:&0;Q~~T:(2R%%%T:*4hR%%T:,6~~~~T:.9;Q~~T:0;R%%% !T:2=hR%%T:4@%%%%T:6B;Q~~T:8DQ~~~T::FhR%%T:K;R%%T:@MQ~~~T:BOhQ~~T:DR%%%% !T:FT;R%%T:HVR%%%T:JXhQ~~T:LZ~~~~T:N];Q~~T:P_R%%%T:RahR%%T:Tc~~~~T:Vf;Q~~T:XhQ~~~ !T:ZjhR%%T:\m%%%%T:^o;Q~~T:`qQ~~~T:bshR%%T:dv%%%%T:fx;R%%T:hzQ~~~T:j|hQ~~T:m%%%%% !T:o';R%%T:q)R%%%T:s+hQ~~T:u-~~~~T:w0;R%%T:y2R%%%T:{4hR%%T:}6~~~~T<%9;Q~~T<';R%%% !T<)=hR%%T<+@%%%%T<-B;Q~~T\CcQ)|A^zVMR&s('{XHR*Wp|.K+R.C@E1@aS&SzsdF7 !S&Y>`=;zS&V9:n(2S&Ol1UXXR,Y|)Hf?R*G3m`n`R(0uwB^BQ(P,*tk;Q+|.\k]+R%YRDf0WQ'WW;N/, !R(9Z33%iR*X-F]T7R./_&J\HS&TYlrPcS&SxcTe\R,zg3+i@R*`w;w]7R(2j`IEmQ%O_,lCNR'1G.HLF !R)0MS2S\R+(`WhRmR+]p)AA?RR%p5BG[qR%RlJ/f/R%T`w8@qR%X^:>X7Q+6~PdiqQ*D[Kwq)R&r2l2ycR(Ai'|R9 !R(aoUH;ER**oy{AdR*]/@WdUR,BeqAwyR.&n]7,cR.J3_G{(R.@J\?LFR,`r2;:RR*S*G9e8R(8QpC2- !Q(om42{@R%a`<[]dR'D4]XY.R'\X1:iYR'e/\uGSR)=M^JW0R+@%Sm3YR-8ve}I9S%P2>e}Q,B=)0a3Q&R9re{4Q+%F\e@MQ+O`0+1J !R&RY)SY2R*R9uTW(S&R<|st;S&^%sZq^S&_+WX'?S&ZHSTN0S&UcLigkS&PI-s}WR,c?M)<0R*1V%*Re !Q*&/?P&lR'rG|dj`R+zcLl?JS%XneHp&S%c>iwr?lcN !R*gw9N%iR*_j)5I]R(wg\vb2R(.2~uPKQ*FS`ySdR%^6KR'.cG.4HR%cY_\XDQ)+4j[UZ !Q'Z~rb66R%bz/ar]R']&%MgsR)>J4B5oR)%0+1k[R'EA?./yR'0a.nl6R%up>C+7R%Pi?sJTQ'veQ(vW}(-^Q.@|^k7% !R&Z,4>JqR&Xh5rMrR&PTosDMQ,jh6mh9Q,7*0r8HQ*hd0bYKQ(:W5DM1Q%Q+Y8&0Q'@yXk;rQ'OCsoG_ !Q%mtA/3,P)~6~2nhQ'G-cxAXQ):)6xAXQ'i<.B(NQ'<1Jq%qQ'ddHS`qQ)JiLu_IQ)Ym6~O\Q+2ExoG; !Q+D=W2PGQ)L4)*.aQ'<~D~]lQ&Y:e|lVQ*;?E'5KQ*xD.qs7Q,FPqyX3Q,9PMJ1sQ(sixFwuP*jSzu:2 !P%`E4`/PQ&hbGEz%Q(bOuOQJQ*MLvX2^Q*hW~=~jQ(vFly0OQ&RsEdz)Q%d>]%oxQ'XY0>`@Q'hf(_}C !Q'Wt(f1FQ'd}KWxlQ'tIv&-JQ'wcEh*eQ'~(/kJqQ'a:4J({Q'@0d+x?Q'4\Dv,cQ%Vb?|%=Q&U,G:_) !Q(C*;funQ(a[}+kCQ(k>X4}WQ([d:n6fQ(DjDF`HQ(@GNhKSQ(5]~,&HQ&[7B}HJN+||``cBP+4NX+@I !P)a~hxOhP(BWFMf_Q&_[b2zQQ&Zxg{/PO*SZi.s|P&cF4S^oP*E/crB/P'AG&[s3Q%_%f'jtQ%~I7:Cw !Q')e9Du^Q')yh=olQ'?3[A~nQ'LW\uk{Q'ATW|L2Q%i_7q*@P,/Pt|8@Q('?MD9P(Wax^ufP'^?;IrDQ%S&fa>kQ%hUJno'Q%qS-M]hQ%w+=0X;Q%sIXb&lQ%`.C-Zz !P)h%aV=hP(A'on;5P,j?S/>&P,F(3Z)VP&y-32^{P(-SMA2bP*gFH:i4P*kwPy&DP,s,}:3@Q&PHpYh% !P.%i,Du:P.;a0w[5Q&SG8vb2Q&Mxyti8P*tGnzX+O.F~S&uRP'cgJwXDP)uRU]V^P)x|IYjLP'aS,{TC !P%W34ncbP%`,gIs3P'DfFlzzP)H?P\h1P+-2\hGOP)pzSyZZP%Q(KMAlP*W>`'hMP,D{dffpP(E%aN}_ !O,Z|a)AlP(/By&'CP&_UPO?~P(PPsU5CP,0UZEj\P,MC[A*}P.P*KXh{wXP(t9'O5OP&a:)BjPO)aGm;/4P%Y_I;bO'3R-9`iO&kOi%W]O*1*8T8;QZO'}YMfX`P%iCXuo7P'0.D+,2P'7QYnT?P'No0<2A !P'3)X]A}P'GNspAPP'DsEA93P'+{khIuP'&=TYhnO-K,0or}O'pAvJ-nP%ZoKNQRO&|iw*o+O'P0;PvY !P&bZBK4\P*(`P>%YP&jhJ)qZP&aOkQEuP&r;lLN(P((3*SjXP(+;qK2~P(%&xlK3P('q88ZFP(.9Cd/0 !P(5U2R%%%%S>FhR%%%S>[%%%%%S>o;R%%%S@)R%%%%S@=hR%%% !S@R%%%%%S@f;R%%%S@zR%%%%SB4hR%%%SBI%%%%%SB];Q~~~SBqR%%%%SD+hR%%%SD@%%%%%SDT;R%%% !SDhR%%%%SD|hR%%%SF7%%%%%SFK;R%%%SF_R%%%%SFshR%%%SH.%%%%%SHB;R%%%SHVR%%%%SHjhR%%% !SJ%%%%%%SJ9;Q~~~SJMR%%%%SJahR%%%SJv%%%%%SL0;R%%%SLDQ~~~~SLXhR%%%SLm%%%%%SN';R%%% !SN;R%%%%SNOhQ~~~SNd%%%%%SNx;R%%%SP2R%%%%SPFhR%%%SP[%%%%%SPo;R%%%SR)R%%%%SR=hR%%% !SRR%%%%%SRf;R%%%SRzR%%%%ST4hR%%%STI%%%%%ST];Q~~~STqR%%%%SV+hR%%%SV@%%%%%SVT;R%%% !SVhR%%%%SV|hR%%%SX7%%%%%SXK;R%%%SX_R%%%%SXshR%%%SZ.%%%%%SZB;R%%%SZVR%%%%SZjhR%%% !S\%%%%%%S\9;R%%%S\MR%%%%S\ahR%%%S\v%%%%%S^0;R%%%S^DR%%%%S^XhR%%%S^m%%%%%S`';R%%% !S`;Q~~~~S`OhR%%%S`d%%%%%S`x;R%%%Sb2R%%%%SbFhR%%%Sb[%%%%%Sbo;R%%%Sd)R%%%%Sd=hR%%% !SdR%%%%%Sdf;R%%%SdzR%%%%Sf4hR%%%SfI%%%%%Sf];R%%%SfqR%%%%Sh+hR%%%Sh@%%%%%ShT;R%%% !ShhR%%%%Sh|hR%%%Sj7%%%%%SjK;R%%%Sj_R%%%%SjshR%%%Sl.%%%%%SlB;R%%%SlVR%%%%SljhR%%% !Sn%%%%%%Sn9;R%%%SnMQ~~~~SnahR%%%Snv%%%%%Sp0;R%%%SpDR%%%%SpXhQ~~~Spm%%%%%Sr';R%%% !Sr;R%%%%SrOhR%%%Src~~~~~Srx;R%%%St2R%%%%StFhR%%%St[%%%%%Sto;Q~~~Sv)R%%%%Sv=hR%%% !SvR%%%%%Svf;R%%%SvzQ~~~~Sx4hR%%%SxI%%%%%Sx];R%%%SxqR%%%%Sz+hQ~~~Sz@%%%%%SzT;R%%% !SzhR%%%%Sz|hR%%%S|7%%%%%S|K;R%%%S|_R%%%%S|shR%%%S~.%%%%%S~B;R%%%S~VR%%%%S~jhR%%% !T.R%%%%%T.T';R%%T.V)R%%%T.X+hR%%T.Z.%%%%T.\0;R%%T.^2R%%%T.`4hR%%T.b7%%%%T.d9;R%% !T.f;Q~~~T.h=hR%%T.j@%%%%T.lB;R%%T.nDR%%%T.pFhR%%T.rI%%%%T.tK;R%%T.vMR%%%T.xOhR%% !T.zQ~~~~T.|T;R%%T.~VR%%%T0&XhR%%T0([%%%%T0*];R%%T0,_R%%%T0.ahR%%T00d%%%%T02f;R%% !T04hR%%%T06jhR%%T08m%%%%T0:o;R%%T0shQ~~T0@v%%%%T0Bx;R%%T0DzR%%%T0F|hR%% !T0I%%%%%T0K';R%%T0M)R%%%T0O+hR%%T0Q.%%%%T0S0;R%%T0U2R%%%T0W4hR%%T0Y7%%%%T0[9;R%% !T0];R%%%T0_=hR%%T0a@%%%%T0cB;R%%T0eDR%%%T0gFhQ~~T0iI%%%%T0kK;R%%T0mMR%%%T0oOhR%% !T0qQ~~~~T0sT;R%%T0uVR%%%T0wXhR%%T0y[%%%%T0{];Q~~T0}_R%%%T2%ahR%%T2'd%%%%T2)f;R%% !T2+hR%%%T2-jhR%%T2/m%%%%T21o;R%%T23qR%%%T25shR%%T27v%%%%T29x;R%%T2;zR%%%T2=|hR%% !T2@%%%%%T2B';R%%T2D)R%%%T2F+hR%%T2H.%%%%T2J0;Q~~T2L2R%%%T2N4hR%%T2P7%%%%T2R9;R%% !T2T;Q~~~T2V=hR%%T2X@%%%%T2ZB;R%%T2\DR%%%T2^FhQ~~T2`I%%%%T2bK;R%%T2dMR%%%T2fOhR%% !T2hR%%%%T2jT;R%%T2lVR%%%T2nXhR%%T2p[%%%%T2r];R%%T2t_R%%%T2vahR%%T2xd%%%%T2zf;R%% !T2|hQ~~~T2~jhR%%T4&m%%%%T4(o;R%%T4*qR%%%T4,shR%%T4.v%%%%T40x;R%%T42zR%%%T44|hR%% !T46~~~~~T49';R%%T4;)R%%%T4=+hR%%T4?-~~~~T4A0;Q~~T4C2R%%%T4E4hR%%T4G7%%%%T4I9;Q~~ !T4K;R%%%T4M=hR%%T4O@%%%%T4QB;R%%T4SDQ~~~T4UFhR%%T4WI%%%%T4YK;R%%T4[MR%%%T4]OhQ~~ !T4_R%%%%T4aT;R%%T4cVR%%%T4eXhR%%T4gZ~~~~T4i];Q~~T4k_R%%%T4mahR%%T4od%%%%T4qf;Q~~ !T4shR%%%T4ujhR%%T4wm%%%%T4yo;R%%T4{qQ~~~T4}shQ~~T6%v%%%%T6'x;R%%T6)zR%%%T6+|hQ~~ !T6.%%%%%T60';R%%T62)R%%%T64+hR%%T66-~~~~T680;R%%T6:2R%%%T6<4hR%%T6>7%%%%T6@9;Q~~ !T6B;Q~~~T6D=hR%%T6F@%%%%T6HB;R%%T6JDQ~~~T6LFhR%%T6NI%%%%T6PK;R%%T6RMR%%%T6TOhQ~~ !T6VR%%%%T6XT;R%%T6ZVR%%%T6\XhR%%T6^[%%%%T6`];Q~~T6b_R%%%T6dahR%%T6fd%%%%T6hf;R%% !T6jhQ~~~T6ljhR%%T6nm%%%%T6po;R%%T6rqR%%%T6tshQ~~T6vv%%%%T6xx;R%%T6zzR%%%T6||hR%% #% [ 400] init.chi !S*lR|/vbS*lVWR&:S*laJYaxS*lsk=L5*JS)dYb[C`r3S&VkX:0FS&N+=cmNR,^LK]flR*vlrd42R*RHx7DUR*RV9>sCR*xb&Ir6R,g.^OVN !S&PGiTD+S&[2qG]8S&e?G.noS&la}H|MS&oY2*:@S&l{pu:CS&bPvRJMS&PyboN-R*N`GCS&P(q`B=Y^ !R'k]}n2LR+>?ypV:R-H{ew;TS%ReQI?]S%V5jvcUS%UeWOztS%QfVp+BR-814;gcR+7:~8u}R)&-wT6- !R%jGprV1Q./ME*?sR(Tj~ro=R*I;/8_'R*z@E&4xR,3D<0|YR,1]u9n4R*jmhQ'ojXTy[Q%w%1F?@P(P5nk|RQ(zcj71}R&QZ;,bU !R&xq{4[gR(RTpuFQR*5c/dm=R*v6OfSTR,XEhexTR..LeRwqR.JA9J+yR.Jv?1C%R.-*/|>DR,KjI2D2 !R*PdGa(uR(C&.zcLQ&j(mAWfR'4rN'8\R)ATfj,SR+<6cG&^R+y-R69*R-Acn~enR-K6khmZR-?=tQR)iiydq~R)F[y1AhR'}vQbW_R'WmXzQQR')*obPR-J5(*HKS%ZtvGXHS%cckMYdS%fFSx9~S%bveaYrS%Z*[vrhR-OFD}W- !R)m^bp]NR'/X&qRHQ,pRif{rR(TVD5wNR*8{vrroR*MO'/:VR*=]-W|kR(nZ54;eR(:whMB9R&eryq_p !Q,{^wIAPQ,cHO1>>R&aX=K{bR(=+rX>9R*)C(6~|R*rfWz:l?WR(*M\n\7R&mcbp;.R&bcGJ\bR&_PWsZfR&^5{gw&R&XL6eL*Q,}Buv@rQ&m&5*'P !Q+qS{VSyR%{e~^%5R'ZC%U@`R)5z>FkTR)`Ou4_QR)xdUPX4R)yX^,|LR)a-m}y)*>R([UvlH1R(+2x8|Z !R&Uk@|P=Q&|f[EqyQ)4:my}uQ+n50,@uQ-)^E<9IQ+:+B&|/Q'tS=9eCQ%YwR82EP(0bAT}.P'cQ2T'= !Q'[,GIGwQ-.dKo.,R%gBGEt^R',l:orWR'Hj>%L9R'[d%2+RR'a'H^SAR'V%z^/+R':;Nk/mR%io/[v} !Q'kL~D(NR&N2&rjyR(+'.IcDR(Y*ZeOjR(xqkLe>R*,rIplYR*'t&r~NR(k1TqQ|R(F*YYlSR&qc:)LH !Q*~?4SidQ)>3|i<\R%aWz3ARR%~JOP[KR'41>X=)R'6iit9qR'.04CKaR%wGy_z0R%bN3v8=Q-Oismr& !Q)Nyb:0@Q')a|oGqP+Aqs][eP)RbTeQiQ%]%VDvyQ'4r{7^>Q'\M\f^IQ'b0ZQ.XQ'5~Y~u/P%tx-f`p !Q(V'<'3fQ,Tj{OUGR&W7voW:R&g:dU}xR&r-cD4}R&u^~9EeR&pj`F+9R&c[A+POR&OP9|bbQ(|le&EG !Q%y_}?.%Q+aEX,loTQ(+TeYhTQ(X?]s*NQ(hB;,W=Q(TNtq3@Q&vVvoTcO+wV}L55Q'4*a3zL !Q)?iqo~}Q+:]LzAaQ+ov]JW*Q+{bAQE% !Q,+om0M}Q,OOe0A[Q,Jp/pW]Q*{~RmX-Q*8H[P&^Q(@t3]*UP.(EN?{lP+^3d_'%Q%u6(X8pQ'0jlqI/ !Q'-G,.7PQ%pYF>3aQ%O>oT?fP%}%jI[YP(c\g/T=P*Ud2y`GP(854^U5P)13K=x%Q&NcVv^]Q(B9zMlTQ*)Cb0z`Q*TClch4 !Q*bybP5NQ*S;SyEiQ*(*??ctQ(B@;1*@Q&QqH_VtP+:r|MB4Q''>Ub+FQ'S7c/6DQ'g;t+pFQ'bqfQM+ !Q'ILb:d4Q%{yD)9QQ%NXAnf(O(,i%@EpP,bw`NQ8Q&W(0Q/jQ&Ven(tpP,ilhGC%P&l/^JuXP)`s^ !Q%Y/^\RYQ%k`yg+AQ%owk|;UQ%cx2+(:P+}.d0@6O*cFW<^0Q&R_plh3Q&{en6cmQ(Ac-9ybQ(S)z{PV #% [ 499] data.win !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !4&j>\oitQ*j@|/0ER(..yFw7R*Me('i'R.?g[RpvS&`@|NmSS&xO[Em5S(9X%{83S(Vx2R;BS(un{iu] !S*;Q}6b5KrkgS.J[dCy]S.W'|o-TS.cN;@;JS.otSkIAS.|@lc\^OS2+d|-lFS281:XzSAj%~`eKpS>2Jy6YgS>>q7ag] !S>K=P2uTS>Wch^)JS>d0'/7AS>pV?ZE7S>||X+S.S@/HpV`~S@;o/'nuS@H;GR|lS@Ta_~0bS@a-xO>Y !S@mT6zLOS@yzOKZFSB,Fgvhs*)SBQ_WD7zSB^+ooEpSBjR.@SgSBvxFka]SD)D_1huSF&BV\vlSF2ho.*bSF?5-Y8YSFK[F*FO !SFX'^UTFSFdMw&bEC+ASJ,d]n97SJ90v?G.SJEW4jT~SJQ}M;buSJ^IefplSJjo~7~bSJw<:OSPn5|iHFSPz\;:V< !SR-(Sed3SR9Nl6r)SREu*b%zSRRAC33pSR^g[^AgSRk3t/O]SRwZ2Z]TST*&K+kJST6LcVyASTBr|(-7 !STO?:S;.ST[eR~H~STh1kOVuSTtX)zdkSV&~BKrbSV3JZw&YSV?psH4OSVL=1sBFSVXcJDP')R3Sb-d?T`)Sb:0X%mz !SbFVpP{pSbR}.|/gSb_IGM=]Sbko_xKTSbx;xIYJSd*b6tgASd7.OEu7SdCTgq).SdO{&B6~Sd\G>mDu !SdhmW>RkSdu9oi`bSf'`.:nYSf4,Fe|OSf@R_70FSfLxwb>,)gSh=PVW7]ShIvo(ETShVC-SSJShbiE~aASho5^Oo7Sh{[vz}.Sj.(5L0~Sj:NMw>uSjFtfHLk !SjS@~sZbSj_g=DhYSjl3UovOSjxYnA*FSl+&,l8v9azSl\e4dopSli1M5}g !SluWea1]Sn'}~2?TSn4J<]MJSn@pU.[ASnM2BF3T !SxJXZqAJSxV~sBOASxcK1m]7SxoqJ>k.Sx|=bix~Sz.c{;,uSz;09f:kSzGVR7HbSzS|jbVYSz`I)3dO !SzloA^rFSzy;Z0&4Q*?]'cJKQ,_xPRK4R&\@S4|bR&u(={>PR(/f?2moR(:RQJWLR(6YB[ewR&{R;R>h !R&WA105fQ*}+SzE\R&l_FK/sR(F0CR/VR(k?.t\TR(wT*4_lR(dV2W[yR(1lzNydQ,:MZ'BDR&lFm%A' !R(m7Pp=yR*](joX?R,-*zwkER,1_45uO*/c !S&`{gAMYS&Zb2U,GS&O+`{(;R,QY=]x^R,i/~1l`S&TRJEp{S&aRlVi]S&g3_`^(H_S(A}q*^{S(\IK7;8S(jt&4oQS(kqK/&PS(bHHPdFS(X9+L-wS(\QA/JG !S(vsFc=:S*D^jGXFS*l'2N9wS,.l9&dBS,<6dQ;:S,/S./JpY+VS0/|P+g' !S2B|X*swS4YlW2QWS6lw3(JJS:%K0\GcSq/hSZOt]jcZ !SbE?{U+CShguN6wISn=\Lxr3Spa8^Tr+Spi,[JiCSnP|)8IgShzIyS6-8Fq73S0<,*g=-S,b*>n/zS,>iz129S,FtD<\^S,H`A.rGS,7=mEZnS*nquHU, !S*@No\]%S(eH<2c0S(1fHHb,S&mynI0VS&}4WPkiS(C~,]02S([uPI~|S(c1DW[H&xc !SB&|Wy&;SD;6<'%6SF+h53:nSFG~d:HUSF0XmBO7SD?v=0?=S@{xotweS>;B=QLbS:@F||2wS6B-g+hd !S2S|x%m\S02=T7^IS.L/UN3dS.KIHzu{S.u|*Jb4S0]/X]\NS2Sr>V)VS4[e-ewMS6vS&4~sS:GdD2J} !S<{a7-DlS@SEuyx`SBvTck>9SF%Wmk5jSFdxg{_{SFz*gYBS83h5)*,S40DiWV)S0=@o^YaS,r2;qz1S,9>Czp,S,KNy9G[S.&yTh3aS.]]I/x@S0.WnYQh !S0KVI>.tS0\F?B?@S0c]'UjhS0c:9{E&S0\/U5-sS0NSa~VfS0:^FzKvS.{%mAq\S.\TA9D9S.:7LG7S !S,n}d{mUS,Gmg3Y-S*z&pTE]S*SwrTglS*3(.gGkS(uOU,;jS(ih9'?8S(hL&pA)S(m0NP|`S(sodV\D !S(zZ:*zWS*&cT^@wS*+(X./LS*+7n)|,S(}mH>y|S(k_Z:\bS(M:ytOnS&~iIfW[S&[*U1lXS&l4J\N~ !S(I&^AsMS*(1e.G'S*W_|w8US*vsBj|:S,'SPw~9S*uY(W]vS*SDD;()S(wWnhBXS(4s}>D~S&\p*:vV !S(3?f;.+S*/GxQeWS,,LDU*~S,{w[sMYS.e&n'',S0>TJ1@S.b(>p'9S,p0MN`hS,%Oz3ziS*?_|C|1S(qzf/^PS(lfb>XmS*'o(V5+S*E3VAN, !S*_,lCp7S*pRz\3tS*wgEm(gS*tjJc?.S*hVH\deS*TWMdpJS*:`4j]yS(v{F?*|S(Wnd/2)S(9kiHIg !S&yR)>,xS&e>7B=vS&X(jEjyS&P6dNc(R.*<]S*4T4']fS*TGk3UDS*piSQosS,.D{c*:S,?wl*/}S,J=C{OUS,LLCW7,S,ExX^)eS,7)a2Z) !S*{9^-pGS*a=8cJ]S*GQ}+9S*?tT>ypS*,Mt^BYS(oyhop1S(XNxiiVS(B+/3=AS(.KXVrMS&xdo>wHS&mdo:DY !S&h@=6Y0S&iIvrwqS&pvi9>.S&|y_Z9eS(0ce7?4S(=IM'4*S(Fnaai0S(KKuS`mS(JY[yI|S(DNr+qD !S(:&KzssS(,it3i*S&xbqD^.S&l:bp>LS&dY)-@{S&dzf;|ES&nCVYinS&~\W.\6S(8f>M\@S(MxT-Jx !S(aq=^L{S(rI@aqLS(}u[k6CS*)1^fT,S*'Y1T%gS(yB5B]. #% [ 326] data.chir_pha !SB1D)d%nS@AF.FE:S@}C.tGbSBMNLeh2S@0zKa`.S<)P`4PRS6d/d%9wS2=QeujKS,rxd}oYS(]9KC6m !R(5B,PWIS,l||17AS02h:TXmS,?6TO{cS&|_w)SRS'NuD^PWS+wxtKI;S1;7U;ZAS1lM}KWtS&g36jfg !S'HN|>t`S-,r4)v>S3)*8Js/S9E&OX14SA?0fkudSK+bNvq\SSy.rvrcS[z1=4-{Sc;a?2riSi1?)\G8 !Sme1n.KXSqyZSkb5SuV+8cUfSum;EM+RSs~.c-39SuOjHS(-Sw}%,9h%S{l.^6mcT-V^v=BAT-`^yZlm !T-[53j+TS}wTo1L4T-XH,`f0T-gS6fKNT-y,s[W=T/0w9^eQT/AS4\mqT/O8pXp}T/X>v*;~T/]TM~g| !T/d7>X5kT/oFeaRCT/}oRWsIT13Y5ZMtT1Bz]/ZBT1PHM;uyT1Z`DTkkT1b8IkzaT1j2O{-FT1tzUA41 !T3(L,Sg)T37D]LrvT3FXD8f>T3UD0?,3T3cLro~-T3q<4zm*T5%]Kk^AT55>p4rnT5FR[SV0T5Y4.]W+ !T5l~n5nwT7'egM,wT7=.0ddnT7R{sFFV6w%T;%Rj}9? !T;;1__/0T;OYL60?T;a[^H,xT;nl\FQwT;tr5rB0T;y[jp.^T=+hb/KsT=>L.3C1T=TXg0mET=l,2]z< !T?)<-)ZxT?=wv;9kT?KOGcM2T?Hn:7S1T?BYAtowT?Jp4U04T?Xj`u9&T?fN{;F|T?p0=VVgT?s;`3>5 !T?tNcmzmT?{I@&RoTA-xI}-|TA=T2/;]TAN``+l]TA`[i}FyTAs(WTF9TC+q=v1{TC?'m|m'TCR]v:9b !TCfc/Z6~TC{7svI^TE60c7M*TEK>=c~vTE`@hg3DTEtViT(xTG,y9v;dTG<7FffeTGHCC'WUTGS|LyfG !TGailda4TGql5:YDTI(x-6'HTI:4(]i-TIJzqF,jTI[3e3*+TIk.7,}&TI{C3P[{TK2G@h=]TKDQk39R !TKWb1CWETKkjObbwTM&X6N3+TM;r8;(7TMQKk`VrTMg+J%7=TM|TPbvqTO7OJ(G7TOKK3xs7TO]^l.:. !TOl|y4SzTOx)C*NpTO~pmo-lTQ*nBDSoTQ3UtJNLTQ??Z>D1TQM1{;O0TQ\YcDs/TQmV32]rwCvXTWVIRg~p !TWmBc6Q2TY)5GTHaTY=2oc6`TYMdNiySTYX:VO4mTY[w|jV\TY`7D*{&TYjz);m2TYzIzR'JT[2=g:w= !T[ED(Sc^T[Y1_`AqT[mV[Y<\T](^e_gmT]>TBfY(T]U>}@^qT]lyKol}T_+H)WF^T_DNI8L2T_]sNov\ !T_wTc1LR3:eTcC.g9I0TcV)-^8BTckbOZ7/Te*6<-RU !TeD|*?:TTea-w:OVTe}\t}=DTg?dhV.bTgZi5G8sTgt:ea@'Ti18JBe}TiBX&:r%TiA'L6sjTi/2s{kV !Ti7p?BO>TiJTCsqRTi`,C1}KTivj[H7bTk4-u8,rTkK}oF\nTkdd6[L&Tm%8YG.@TmEVn0yKTo(iBG?A !Tok}P}k&Tq4(pQZQTqOH)e&. !T{W>Knf|T{o~3Ou5T}.^ifi{T}G?Aa5eT}_zMvBCT}xZG)XVU-Sncil-U-V=7o !U/ppejU/x'8;D8U/zIKdKEU/|iL/dHU1%.+Y>HU1'NfnM=U1)xF}+GU1,Z]r@V !U1/UlppGU12c/y&:U15o{LuUU18n^;:IU1;]Gn?sS}+U1@s}`g}U1CH[4g~U1EsqfSnU1HCdkO) !U1Jnd*A3U1MDs~[bU1P'*z}aU1RyN;/dU1V6Ti%%U1Ya}pLYU1](8lwvU1`+NH/7U1bpORd7U1eLvd^r !U1g{T2*GU1jL'AxfU1lt2p>SU1o@N%}eU1qdb/q^U1t+u,E- #% [ 326] data.chir_re !Q)^9u16(Q)E25g:lQ)?QvD0IQ+_15,]NR%Zy(kB2R%bxN6E?Q+|QdHaVQ*5@xdbPR&kvUz(NR(&^YN>-R(gVVQ2.R(nMz/~KR(-pj%s2Q*+dG/wCP(|iZH/.R&kK>WV1 !R(ePVJ1ER(\5yXv:P(\5BF-sR)-Z&9LdR)vH19,wR'?W*ynXR(|f9(Q+S&N\Nuf}S&NC4ZV&R(h'd5}< !R'~ere/lR-=o>2@cR->+Rlj9R+=c:Y]SR+9Cf.NxS%P4dEQOS%a9StlKS%d,IWeZS%Tca3o&R+9Mz5U- !R+&%*T4tS%RGUz\xS%dUx=BUS%Z?4IstR%Q=E}\MS&db_c^,S(@W)xC)S(Ua}}QpS(Ud~/\uS(\:/|AH !S(uward*S*5MpsNDS**de(V.S(C2(2N}R*-FvOyRS%r`6L)2S'],|q|+S)S+9}6=CTS-ePajj\ !S1AaEnnoS3;2ycfHS1rS*lVPS/)l,mhkS))a,vr0S*-Kx:9tS4bFNu,eSBe7*ktRSPn`51x}SXrDVtVL !ST.=F.kiS3+dSSX9V\k0S1@WIWk:S6n:'\:*SFTYE[hV !SF7mJ0ouS<0*'/-YS0Z*t0A\S*97ccyvS((mupm`S&W(9YahR-FO'rE?S'uD4HKjS)va[:Y6S)l.7}Kj !S'g&p1tiS%X\g82(Q%f1ihYcR%YLK(`\R)6LU_zTQ){[|V-AS&RsNcoPS((@nS3lpH19< !S3&:a?d5S-KV,mWpS%|kK_s?S*.-%-;LS,qL?W82S.+86Z.6S,?tvz3jS*BT?YdwS([)r}u8S&|;md+j !Q)t?R]J_S'`*+f+GS+aZT=9VS/Pec<^~S1U(gnPGS1Sjb(FVS/?an}=;3@?M+SD;,J}NbSB.'D(BsS6PfBz@UR(s8=>9@S3^KHCcbS=0s2'RwS=;B7`F7S7,Z;KZ+S-u~ER1y !S'\b6q}|R(3O=7unS&pQokQJS(O'MfeIS*Xf7kCvS.7)B19(S2(nDd:_S4[dXnT1S62YK;7oS2b{UrHu !S*O]va6cS-3dj_Q7S;>KO&=MSCoeCj@NSC6x*@P(S5z9jih,S&Y8(.GaS8C../keS@jPjn-*S>h.BA`} !S4rDE__vS*3kQDG1S'lZAiMXS+;+LE3^PuS-Pe2a3aS)`\B<]mS%x,R,.AG9s~R./SB[kGS&N+_jnRR.(j*=}jR(P'C~hDR+0@+Hi}S%gd>nv9S%h>jby3R%k*c3I/ !S(-2t83>S*/hGpq.S*;h}N(KS(1q=aU%S%o*EQqWS)aBa{1@S+J*R*.zS)`,l-TpS%oy)zPCS(0LP*HM !S*Gq-x&,S*`9->)lS*72eCp8S(OCb\]tS&f7FSDxR%\.XiB,S%}%X&otS'v\9r'{S)Ob]FbZS)?c5]E, !S'@^;0x?R(94NhL?S(G%Hp&aS({}2mHpS(jgWPctS(*/%1A_R*.*qX<=S%Mv8U0vS%lq`DZS%W&HBL4S'9[&vY,S'J5Z*ezS'(poR[0 !R+@BIys{R,jd+T'>S&l(Ns%HS&k?n'D.R.&&F>VAR'l~d}7ZS%erel)6S%{Rv.fjS%e+:\JgQ*r-~]A] !S(%;L_%;S(i{3([7S(vbW.v1S(?kON #% [ 326] data.chir_im !R&%%%%%%P.DsbUm|P&lNkIKNP)U3P6qB-WR)72uneOR%_9XVhS(8khiVJS&afws]MR*z5-j*_R&{VaD() !R)%a%+UwS%sfXeJpS'suWTCJS)mbJvX_S+;Z5bA1S+28`ZqIS)oRK:tbS)_@*}N(S)V8p@sWS'~gpG|[ !R->+M3sCS*;;*pQ|S0RkrUP^S6^0Y0E@S<5mR}dvS>~tUEs>S@Z*5(HDS<_@>YmlS0LnA6KHS/bMA|n7 !SKcZXu]VSc`JgF4lSkeuu:g.S]MpKc}LS;Ljm5_]S6u3}wMOSVL+Z+tkS`b2YR(+?S'HmEaoOS+iU&~8RS/}UVAxvS32E7WlNS1\Ol9LnS-@;i0dsS%i\uNfn !S*z;&Vz)S0]q/vxgS2N[|63+S0G%&JG+S,.`mTa=S&gF?_aFS%x^rl&9S'jnA(bjS):zCoGcS)mmYu0E !S+R9g\;GS+se8QR+S+G6Y?~PS'mVWWv`S&]t8J6,S,U&mxS7S2Ui[?m)S8<-~FJ&S:y:?hr3S:MM2:u} !S2oaNeDNR(x3X};uS3efZM/kSA&t,qrISE0P'o(6S?<'47Q{S1w`'tZeQ'I&4YcaS.rc1vi.S2fU+sfz !S2A\)ZkiS022w|gmS.Dw&h3SS.4u?D+dS.44dc]US,gRA0QVS*M[nQH7Q,0Z|_p?S+Ywi(U'S3z*XJcC !S;dH{~DpS=r8(d@1S7gdE0`0S)F.K9]rS2y|iYv]SBH2ndGISF`zY(c^S>tIA.3WS0-e-A2~S)ycM+.< !S3|w>alZS5vJE;J_S1u`Y|olS-2eJR8'S)BD)Mt'S'd@A]odS'QD|@N@S%ggS(yerM&GS&k~=ge2R'TvKZ]4S%sR*zV&S'N4P8.-S'lv|l/IS'Z]:ntJ !S%b9t2<\S&aAlD4mS(kc3&/OS*(a4vazS(C:aKyLR(xa3hfYS%^czZkKS%j[1t;dS%MZAdcjR+1K2MF, !S%nOBBH2S'lr;JF%S)WJ_*4KS)H?U+N7S'2J69b(S&Xx)5RHS(o+dDuxS(v[uCk1S&vLtK6qR+aY4,*9 !S%s9BG4RQ'RnE>pSS(v3*C@pS,n)7EbBS.N(zC0uS,0{OCg{R(`MD7T4S+6OMGumS/IqvGkBS/OuN2YG !S+Mg1{OaR+k'(e7%S*C8zMlMS,_Np(IkS,B5H;S&S(omVM\wR%h^=3?ZS'i*.QvQS)ml`0F\S){I\9/. !S'~rMVN9R&fvQSd/S*j5Za^IS0)tPYx1S0f4yeB7S.-L`eBmS&Vv=;-%S+NgdAaxS16vh4IXS1Syo}bw !S-U*mIitS'Jj|z^)S(BTnN\PS*iH-m~IS*rCu;:~S*?SHRwBS(m/?p<\S(aKWX9~S(a)jugMS(B}m>U. !R.3@.dKQS%wIl;);S)3}wt*BS)ncMeEYS)]5,(kMS'eYfn0%S%SJ_^)zS&S?lo5WS(,/uOw@S(321e,E !S&y=GB`yS&^uQ(auR,v*m~~vR(PhOT%?R'C{6KP`R+w9w8,LR-/v5Bp>Q%x+5=GaS&gjzm(jS(J0q-?Z !S(KG3C1lS&OzFTWGS'1xn]?RS)[4K3W\S)~ED&{`S'yEn]UpR(hiwS*~Z}mTD !S(h944t,R*PyD[:AS%w0yl[,S'YILWfMS'x),KT.S),By4j:S'|q,.voS'GuG3a>R)VobnOVS(0((fME !S*5n5LZpcDrR(/}*YawS&r/e(9r !S(5{K@4^S(&a_/:AS&Q:R%:VR'>U&|z7S%YC,j=dS%bs%Uw?R+m<,SFOR*ZyX*:MS&~+{[[+S(Mv;[PW !S(CsOVDsS&YR7+L>S%W>FPw{S'YFFG8kS)&jycWjS'deOSCl #% [ 499] fit.k !R&%%%%%%R*;R%%%%S&MR%%%%S&ahR%%%S&v%%%%%S(0;R%%%S(DR%%%%S(XhR%%%S(m%%%%%S*';R%%% !S*;R%%%%S*OhR%%%S*d%%%%%S*x;R%%%S,2R%%%%S,FhR%%%S,[%%%%%S,o;R%%%S.)R%%%%S.=hR%%% !S.R%%%%%S.f;R%%%S.zR%%%%S04hR%%%S0I%%%%%S0];R%%%S0qR%%%%S2+hR%%%S2@%%%%%S2T;R%%% !S2hR%%%%S2|hR%%%S47%%%%%S4K;R%%%S4_R%%%%S4shR%%%S6.%%%%%S6B;R%%%S6VR%%%%S6jhR%%% !S8%%%%%%S89;R%%%S8MR%%%%S8ahQ~~~S8v%%%%%S:0;R%%%S:DR%%%%S:XhR%%%S:m%%%%%S<';R%%% !S<;R%%%%S2R%%%%S>FhR%%%S>[%%%%%S>o;R%%%S@)R%%%%S@=hR%%% !S@R%%%%%S@f;R%%%S@zR%%%%SB4hR%%%SBI%%%%%SB];Q~~~SBqR%%%%SD+hR%%%SD@%%%%%SDT;R%%% !SDhR%%%%SD|hR%%%SF7%%%%%SFK;R%%%SF_R%%%%SFshR%%%SH.%%%%%SHB;R%%%SHVR%%%%SHjhR%%% !SJ%%%%%%SJ9;Q~~~SJMR%%%%SJahR%%%SJv%%%%%SL0;R%%%SLDQ~~~~SLXhR%%%SLm%%%%%SN';R%%% !SN;R%%%%SNOhQ~~~SNd%%%%%SNx;R%%%SP2R%%%%SPFhR%%%SP[%%%%%SPo;R%%%SR)R%%%%SR=hR%%% !SRR%%%%%SRf;R%%%SRzR%%%%ST4hR%%%STI%%%%%ST];Q~~~STqR%%%%SV+hR%%%SV@%%%%%SVT;R%%% !SVhR%%%%SV|hR%%%SX7%%%%%SXK;R%%%SX_R%%%%SXshR%%%SZ.%%%%%SZB;R%%%SZVR%%%%SZjhR%%% !S\%%%%%%S\9;R%%%S\MR%%%%S\ahR%%%S\v%%%%%S^0;R%%%S^DR%%%%S^XhR%%%S^m%%%%%S`';R%%% !S`;Q~~~~S`OhR%%%S`d%%%%%S`x;R%%%Sb2R%%%%SbFhR%%%Sb[%%%%%Sbo;R%%%Sd)R%%%%Sd=hR%%% !SdR%%%%%Sdf;R%%%SdzR%%%%Sf4hR%%%SfI%%%%%Sf];R%%%SfqR%%%%Sh+hR%%%Sh@%%%%%ShT;R%%% !ShhR%%%%Sh|hR%%%Sj7%%%%%SjK;R%%%Sj_R%%%%SjshR%%%Sl.%%%%%SlB;R%%%SlVR%%%%SljhR%%% !Sn%%%%%%Sn9;R%%%SnMQ~~~~SnahR%%%Snv%%%%%Sp0;R%%%SpDR%%%%SpXhQ~~~Spm%%%%%Sr';R%%% !Sr;R%%%%SrOhR%%%Src~~~~~Srx;R%%%St2R%%%%StFhR%%%St[%%%%%Sto;Q~~~Sv)R%%%%Sv=hR%%% !SvR%%%%%Svf;R%%%SvzQ~~~~Sx4hR%%%SxI%%%%%Sx];R%%%SxqR%%%%Sz+hQ~~~Sz@%%%%%SzT;R%%% !SzhR%%%%Sz|hR%%%S|7%%%%%S|K;R%%%S|_R%%%%S|shR%%%S~.%%%%%S~B;R%%%S~VR%%%%S~jhR%%% !T.R%%%%%T.T';R%%T.V)R%%%T.X+hR%%T.Z.%%%%T.\0;R%%T.^2R%%%T.`4hR%%T.b7%%%%T.d9;R%% !T.f;Q~~~T.h=hR%%T.j@%%%%T.lB;R%%T.nDR%%%T.pFhR%%T.rI%%%%T.tK;R%%T.vMR%%%T.xOhR%% !T.zQ~~~~T.|T;R%%T.~VR%%%T0&XhR%%T0([%%%%T0*];R%%T0,_R%%%T0.ahR%%T00d%%%%T02f;R%% !T04hR%%%T06jhR%%T08m%%%%T0:o;R%%T0shQ~~T0@v%%%%T0Bx;R%%T0DzR%%%T0F|hR%% !T0I%%%%%T0K';R%%T0M)R%%%T0O+hR%%T0Q.%%%%T0S0;R%%T0U2R%%%T0W4hR%%T0Y7%%%%T0[9;R%% !T0];R%%%T0_=hR%%T0a@%%%%T0cB;R%%T0eDR%%%T0gFhQ~~T0iI%%%%T0kK;R%%T0mMR%%%T0oOhR%% !T0qQ~~~~T0sT;R%%T0uVR%%%T0wXhR%%T0y[%%%%T0{];Q~~T0}_R%%%T2%ahR%%T2'd%%%%T2)f;R%% !T2+hR%%%T2-jhR%%T2/m%%%%T21o;R%%T23qR%%%T25shR%%T27v%%%%T29x;R%%T2;zR%%%T2=|hR%% !T2@%%%%%T2B';R%%T2D)R%%%T2F+hR%%T2H.%%%%T2J0;Q~~T2L2R%%%T2N4hR%%T2P7%%%%T2R9;R%% !T2T;Q~~~T2V=hR%%T2X@%%%%T2ZB;R%%T2\DR%%%T2^FhQ~~T2`I%%%%T2bK;R%%T2dMR%%%T2fOhR%% !T2hR%%%%T2jT;R%%T2lVR%%%T2nXhR%%T2p[%%%%T2r];R%%T2t_R%%%T2vahR%%T2xd%%%%T2zf;R%% !T2|hQ~~~T2~jhR%%T4&m%%%%T4(o;R%%T4*qR%%%T4,shR%%T4.v%%%%T40x;R%%T42zR%%%T44|hR%% !T46~~~~~T49';R%%T4;)R%%%T4=+hR%%T4?-~~~~T4A0;Q~~T4C2R%%%T4E4hR%%T4G7%%%%T4I9;Q~~ !T4K;R%%%T4M=hR%%T4O@%%%%T4QB;R%%T4SDQ~~~T4UFhR%%T4WI%%%%T4YK;R%%T4[MR%%%T4]OhQ~~ !T4_R%%%%T4aT;R%%T4cVR%%%T4eXhR%%T4gZ~~~~T4i];Q~~T4k_R%%%T4mahR%%T4od%%%%T4qf;Q~~ !T4shR%%%T4ujhR%%T4wm%%%%T4yo;R%%T4{qQ~~~T4}shQ~~T6%v%%%%T6'x;R%%T6)zR%%%T6+|hQ~~ !T6.%%%%%T60';R%%T62)R%%%T64+hR%%T66-~~~~T680;R%%T6:2R%%%T6<4hR%%T6>7%%%%T6@9;Q~~ !T6B;Q~~~T6D=hR%%T6F@%%%%T6HB;R%%T6JDQ~~~T6LFhR%%T6NI%%%%T6PK;R%%T6RMR%%%T6TOhQ~~ !T6VR%%%%T6XT;R%%T6ZVR%%%T6\XhR%%T6^[%%%%T6`];Q~~T6b_R%%%T6dahR%%T6fd%%%%T6hf;R%% !T6jhQ~~~T6ljhR%%T6nm%%%%T6po;R%%T6rqR%%%T6tshQ~~T6vv%%%%T6xx;R%%T6zzR%%%T6||hR%% !T8%%%%%%T8'';R%%T8))R%%%T8++hR%%T8-.%%%%T8/0;R%%T812R%%%T834hR%%T857%%%%T879;R%% !T89;R%%%T8;=hR%%T8=@%%%%T8?B;R%%T8ADR%%%T8CFhQ~~T8EI%%%%T8GK;R%%T8IMR%%%T8KOhR%% !T8MQ~~~~T8OT;R%%T8QVR%%%T8SXhR%%T8U[%%%%T8W];R%%T8Y_R%%%T8[ahR%%T8]d%%%%T8_f;R%% !T8ahR%%%T8cjhR%%T8em%%%%T8go;R%%T8iqR%%%T8kshR%%T8mv%%%%T8ox;R%%T8qzR%%%T8s|hR%% !T8u~~~~~T8x';R%%T8z)R%%%T8|+hR%%T8~.%%%%T:&0;Q~~T:(2R%%%T:*4hR%%T:,7%%%%T:.9;R%% !T:0;R%%%T:2=hR%%T:4@%%%%T:6B;R%%T:8DR%%%T::FhR%%T:K;R%%T:@MR%%%T:BOhR%% !T:DR%%%%T:FT;R%%T:HVR%%%T:JXhR%%T:L[%%%%T:N];Q~~T:P_R%%%T:RahR%%T:Td%%%%T:Vf;R%% !T:XhQ~~~T:ZjhR%%T:\m%%%%T:^o;R%%T:`qR%%%T:bshR%%T:dv%%%%T:fx;R%%T:hzR%%%T:j|hR%% !T:m%%%%%T:o';R%%T:q)R%%%T:s+hR%%T:u.%%%%T:w0;R%%T:y2R%%%T:{4hR%%T:}7%%%%T<%9;R%% !T<';R%%%T<)=hR%%T<+@%%%%T<-B;R%%Tg2eS*`Bo.g[S*`\6iSWS*a&OLqeS%|spk(]S%zH|[EQS%wZ{=ev !S%t4gqhOS%ov?O@wS%kK]/X)S%ejl-&%S%_O?CD|S)FFOSPVS)>pgMg.S)2D|KO*S'zlwcR9S'epR%k:|8*NR*?}rGmpS&R7fwFsS&eV|R/`S&sR&kl~S&{0Tm76 !S&}(@Gz;S&y(DDyJS&pc\0%5S&e,V}?OS&W~6@|wR.;%K{pzR,'&[`RbR*2]`]+JR(f@J;}3R(iiQ1sM !R*_^O{R&V.:}l.R%UOLi[YR'U>V&L'R)F1me)TR)}SnGIiR+D`a2NPR+Pqw*\SR+Ku'YTJR+:Wp't5 !R)}y+%V6R)g%9EklR)S%aGkXR)Au&}WsR)2Qkse+R'z0fH%qR'_2UXKhR'6+@;62R%TZljb(Q,Qb]zlE !R(Jd*M7(R*[R69(_R,mB2PYWS&Pp=QP7S&W|n]59S&[RutKtS&Z^8QzAS&U(Nr&jR.8j7*P.R*coj1?G !R&wi4bS%P[mu4MR+uqbn7IR)gp{4Jl !R'V@\_d+R%NSU^/{Q,rzaMu\R&x6s=IyR(1|9(eTR(-Sph6{R&s:Fo8lR&YbfK6,Q,\7WVNqQ*y\}|?) !Q.Ip}@.>R&mbwl0;R(DZwC\WR(}]l\f+R*ZSVCFrR,*FH=NiR,=]r^~{R,3jE`mER*dOL-h5R(x-kI2- !R&uGN46rQ)j3n\BDR'MQ-QGHR)Q?Rk~9R+?(8OwPR+iWHSFuR+sf,v*}R+^[*D;uR+/(a39UR)Fava5\ !R'TZ;|H[R'`Hi|r/R'tW(vatR'{W5_X;R'teu>[+R'`{;XYyR'B[bpOMR%w*bbwcR%N=akgv !P'B}E.p2Q,sI{xe9R&e5I=U+R&z9yVZ[R(,Y7tIYR(0o&Gt:R(.A1a%*R(&ozuh4R&v<)}0&R&j;z0,' !R&^-H)DAR&RTC4hJQ,s)BkhOQ*hfYYjR%rLl3zHR%nP@DLSR%e]2CjnR%X.r&MQQ+g-}o`IQ'O%@iU] !Q&|/u{:yQ,G{kgiRR&WLG)}UR&gu]mQgR&sOVe^BR&y3e}?`R&xP4H^vR&qSyfTlR&d}{VSkR&T/\`3M !Q,*YG5=IQ&l?}O_[Q'FEhF7|Q+9g?hpyR%Nhu@+/R%V[M`%BR%YOumz,R%Wo2Vk8R%RZ``]GQ-9Z&=8+ !Q+>fz[)&Q)Fgt6rqQ'Znxj?dQ'%m&iK.Q%[kE38yP+Slq6o}P'\It5OlP&S7P1/uP,_Cv]{>Q&oJliN7 !Q(LmlG1;Q*4gTGiSQ*yB~T&TQ,\qufvuQ..IQVUkQ.>A_l3XQ.,.{)opQ,Oy'a1SQ*S9AkF4Q(>KonNk !P%ljb*7?Q'JFdLiTQ)X8'_fRQ+J7irg0Q+s.wS~fQ+vuZ@'%Q+XsT_j-Q)zrB],EQ)3\c\^+Q'Br04+f !Q%Y39.(UO()=fdX2P,~nh[[LQ&Z%YUVkQ&\y\:zYQ&X>|XMAQ&SSShBTQ&U?bZ3|Q&a|XlXsQ&zW2J^P !Q(BK|LmhQ(gp2vf3Q*.~HFkVQ*CeBot&Q*E,{XULQ*.|ooavQ(Z~k<`3Q&rnv|3jO'MG87R.Q%xb2hsI !Q'ih/m.oQ)JAwOO~Q)l\+R&/Q)rib]}=Q)]8JhbSQ)0H&5yMQ'MmNqL}Q%deXsr6O&V?L+2WQ&Zqz2Km !Q(&%F.[;Q(8pXPvaQ(:V`|ZcQ(/)TJH5Q&uyO|-,Q&a<(p%LQ&P:e_qQP,dWu-,wP,TLEQD-P.0z8{l) !Q&S[i5+eQ&],@ec{Q&b@Q<.hQ&_\kIsCQ&S.+v`qP*`7w}F+P%]W,x'ZP-@.4A2RQ%kL41elQ'+*wQo, !Q':kBR;lQ'>H~@'8Q'5fj>BOQ%|Tw[nXQ%b-lM)TP+Rb*?1mO+OSxc/GP*@`[+zgP.88p0WNQ&TcfdLk !Q&Wvf{3sQ&V[r(:TQ&Rwz;%@Q&O,T>)UP.Jc(Gs9P.IN+T`YQ&N<&q{(Q&P5/1OmQ&PL@]AjP.MH}yg: !P,RU2Q%zP(zMV?HTO'AP\@QiP)SQQ?yyQ%P~Q:OwQ%c'9[{YQ%noo_h*Q%rGS]=^Q%l{XAjHQ%_CR8Wg !P-?^Q?yuP'k+tOF*P&aA~~JNP*bZSH,\P,~YBZy{P.P2f}mbP.4ubhN\P,=p^,g0P*+Omh~_P&uwK=ad !O&Z|On1MO)HB.<*nO&aaqYGWP-Ivh(5?Q%\t7l2QQ%ew>glOQ%eo]fq7Q%\<:4\OP-4Ta-KfP'\c.x&;P(-PP_/T !P,Rk/ynRQ&S~uz:yQ&ZaoL)DQ&Wn_K^tP.G9M&{8P*MbP[WGO*a^@RZvP'fY%Z&*P+1P}|rgP+c5j,<) !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% #% [ 499] fit.win !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !4&j>\oitQ*j@|/0ER(..yFw7R*Me('i'R.?g[RpvS&`@|NmSS&xO[Em5S(9X%{83S(Vx2R;BS(un{iu] !S*;Q}6b5KrkgS.J[dCy]S.W'|o-TS.cN;@;JS.otSkIAS.|@lc\^OS2+d|-lFS281:XzSAj%~`eKpS>2Jy6YgS>>q7ag] !S>K=P2uTS>Wch^)JS>d0'/7AS>pV?ZE7S>||X+S.S@/HpV`~S@;o/'nuS@H;GR|lS@Ta_~0bS@a-xO>Y !S@mT6zLOS@yzOKZFSB,Fgvhs*)SBQ_WD7zSB^+ooEpSBjR.@SgSBvxFka]SD)D_1huSF&BV\vlSF2ho.*bSF?5-Y8YSFK[F*FO !SFX'^UTFSFdMw&bEC+ASJ,d]n97SJ90v?G.SJEW4jT~SJQ}M;buSJ^IefplSJjo~7~bSJw<:OSPn5|iHFSPz\;:V< !SR-(Sed3SR9Nl6r)SREu*b%zSRRAC33pSR^g[^AgSRk3t/O]SRwZ2Z]TST*&K+kJST6LcVyASTBr|(-7 !STO?:S;.ST[eR~H~STh1kOVuSTtX)zdkSV&~BKrbSV3JZw&YSV?psH4OSVL=1sBFSVXcJDP')R3Sb-d?T`)Sb:0X%mz !SbFVpP{pSbR}.|/gSb_IGM=]Sbko_xKTSbx;xIYJSd*b6tgASd7.OEu7SdCTgq).SdO{&B6~Sd\G>mDu !SdhmW>RkSdu9oi`bSf'`.:nYSf4,Fe|OSf@R_70FSfLxwb>,)gSh=PVW7]ShIvo(ETShVC-SSJShbiE~aASho5^Oo7Sh{[vz}.Sj.(5L0~Sj:NMw>uSjFtfHLk !SjS@~sZbSj_g=DhYSjl3UovOSjxYnA*FSl+&,l8v9azSl\e4dopSli1M5}g !SluWea1]Sn'}~2?TSn4J<]MJSn@pU.[ASnM2BF3T !SxJXZqAJSxV~sBOASxcK1m]7SxoqJ>k.Sx|=bix~Sz.c{;,uSz;09f:kSzGVR7HbSzS|jbVYSz`I)3dO !SzloA^rFSzy;Z0&++6Q.N'nQ@+R(f=(^WXR*xv.|tXR,dvHgzbR,rRXx4xR,B&zxO9R*<8?[K}R(W3Az}i !R*^Q|iE[R.9-]*m:S&UVX(v0S&Y-YDp[S&T]zB*BR.0bd~taR,;[_CK6R.3t>)/*S&\VUJ[&S&laj8z| !S&u+kV_,S&sRb8dmS&i8-'z?S&\\58]FS&Z\o:5XS&hX,5B>S&zxM-GDS(-.h54:S(.5?jGhS&~=s^o% !S&p8xY[@S&mcsyS1S(&Nor>iS(B`>:NfS(ZJL^p%S(f;&VuhS(dT.Ea'S(ZMm'%VS(ULM2_+S(dWtKgs !S*-iFrF~S*W[*d9qS*{F\9reS,7w(s^+S,@f_+MXS,CU-=l@S,PJr%q]S,xb:d}*S.gKX'~LS0mW)]sI !S2}K;bxqS62@NO)cS8<3OdLHS:FRWZq;S9*q^))S6@T)|G)S0>%b>:8S,CijDp5S*Tl?'<.S*Fg5{gHS*?uHF&HS*/XkD}OS(q@.07i !S(Si]N-PS(0::~RrS&^}m*PHR&v=5I>TS&QnOo6{S('Kz>E[S(K.6,MnS(^|%?r~S(fZ8ZE5S(q4OO?( !S*:5Og5fS*|Dy~+]S,xaJwuS,lz&o}zS,q`2D:O !S.2q)V~1S._n5JJkS0>4B6P~S0}2wd3qS2gfZ_mqS4ZvXwp~S6[q^;%cS8n/RwOOS<6*UkhoS>_brC}l !SB*32?O?SD:^tQmcSF)71iqSSFE*\:QGSF.1y''GSD=j[M)/S@xd9>\_S>4]dYWFS:3`4(Z5eS0+?)jzIS.m`4EeUS0B{Vl~p7<: !S0FioZx|S.@+T^&OS,4[g-J^S*-ztZEnS(4Z3M(HS&P+nyoDR*C0v.*GR,vR.CcPR.H7y&R]R,u[~gU. !R,\Rsm6RR.H%Gs\cS&VI7]0qS&[RB>.oS&XVKOu]S&MRPe0PR*\+SjD&R&P{5]AnR(_a2fYWR,5L;('Z !R,zvWp,;R,r}~w|DR*~G9p8mR(V{~c^FQ(ES,{?pR(f@zjJVR*wr7j[ER,Rw|4UKR,JY+PH8R*dK>U4Y !R(WL())*Q.:4Gh+AR(6GC.[+R*.wrZ;4R*W0Eb~JR*N@d\CJR(sXW|b5R&}f5vBXR&W9Um)_R(DtKxE3 !R*)+|OjmR*Cq-HhVR*6,0PxcR(^sPnFOR&ths|RJR&\JJ`*jR( !R(KDoIA?R(1XtB({R&gU?J8wR&P~sj-\R&bC&nNuR&{K5'RrR(--l*`=R(&m*0e\R&jx+*17R&OQYA3o !Q.AK)ZEpR&e:iM&jR&|6euh,R(+UIcs8R&~\pa48R&iO8'FdQ.O7As0nQ,0T=JRNR&VbL*zbR&les&?( !R&w9hw`YR&sho>jfR&d3a/VsR&OR&qhbu2rR&fyEmwG !R&VYTkF0Q.0m_fs-Q.H,?y.FR&W4arWkR&^WYqk@R&^1Wd[zR&Utr=bcQ.&4jh`9Q*z~Yh?%Q,=cN3zB !Q.=tbbz(R&Q4y89QR&P3Ie;JQ,{HE9fWQ*juV0PRQ*SU@Q*E[GU6`Q*2w~S>dQ*2T[-_nQ*7dZl]BQ*5|jnd8Q*(jH.M+Q(m(6}n5Q(Vt3D|bQ(IfTH;e !Q(IIfo-*Q(Q8a=wCQ([3j^hKQ(epe5b(Q(sY4K;,Q*,TjMdfQ*C]\EuQQ*Zkm.MKQ*m*:SX=Q*vWsZO< !Q*u\z3obQ*kBe-CmQ*[ggV;NQ*M.@[7*Q*E8\g5fQ*ECuyxi #% [ 326] fit.chir_pha !SB1D)d%nS:O>K`d5S2g}pT:2S*aBo'ADS+O0Go/oS=3?]MeqSEhBGVSa7g_55wSe3+{6joSgVSSys}5-1_SyuwK\>_S{uHSbq.T-U5Ne~3T-c%U1F~T-nTZFUm !T-sa.4*ZT-pdRrM9T-pOKs:DT-xjOXZ\T/+eWKv.T/9z3N`hT/G/PbWPT/PzD7'(T/V&eM0rT/YR-xeO !T/`w+WFxT/ltKH5tT/{G9|kxT10RoTAoT1>ffg}/T1JlM:^fT1TKDM_oT1]HQdx&T1h:ex0nT1uh|ycQ !T3+5Z9o9T3;NIn_2T3Kc<4JaT3[?6FUmT3j/2,OkT3xYXmiyT5-TO{8aT5=_m?]UT5O9JNxLT5b1{K._ !T5v2W_U`T70}_z]/T7FKZ{_jT7\A6aY%T7rRnZH.T9.w>ZJ?T9ELj-h+T9\%`94jT9rS19]:T;.nuJC_ !T;Ddk*y5T;YiJQnNT;m0j6{4T;})g*5@T=,eVcupT=1Of>I8T=;L{xX(T=N+Dc|FT=fVHMgET?(DModX !T?ESP2jRT?bUEX=ZT?~lcWw5TAIJ[)qHT?-e(?%`T?E4YSpwT?YUA2d%T?jX@Dp>T?vw*uV4T?}mTMM( !TA(m&TSdTA1BKtoDTA>6W\\*TAMpR8M%TA^|KEp:TApr^z5UTC)1Vgg-TC;^H'fZTCNAlRi5TCa8~k|7 !TCtIqWD=TE-y5v`_TEAmNE,YTEUyM0VKTEj0a6MOTE~%rxe4TG7(r5N|TGH`_}_:TGX^y:HPTGgQJM{` !TGv7y;oOTI+Nhlo/TI;TIzT;]tBTK0c='TdTKAd@2J*TKSjM*BC !TKfv|8W*TK{%mI0@TM5v0raDTMKI~*MvTMaE1lqLTMwV(aB4TO3g.F{fTOIYV|WbTO^UXNA,TOq]z2iw !TQ'9dk`nTQ1bbrDOTQ98p[8zTQD9IA&OTQTdDsC[TQh{u?9}TS%JZ1P(TS=1`MiPTSU^q(v|TSnaDFlz !TU./YRU-TUG~Tz{.TUbNA}wwTU}{s8sDTWAx53uzTWi/wC]-TYc9(sr;T[CF3.ZPT[j'(ztYT]9R90,s !T]kQ}6}7T_A9majzT_fV(l}[Ta+W'?NmTaGL[4kTTaaLhm7PTayI%BV]Tc&9@ApzTa6).>qMTaKA]h`u !Tab_F{uZTazoHTc..up~wTcD[xGVzTcZ5ZMdJ !TclY._SuTc\h|s+STc2f;'X1TcBqk|G:TcW)pVcKTckW>s,rTc~W7@;4Te/vj7RITcc7=@kITc[E1M*2 !TckN|128Tc~kf~X;Te8>5:DcTeIluz<4TeQm{mV.Te0wNd)PTe+:G_fhTe:4Dg(bTeL^LZB1Te_DWR|: !Teor/E}|Tev&o]FCTeXd;_}Tg+`Y,F|Tg:P2*Ud_ATiMUC\IjTi^^5K_GTip?9{UXTk&'nS*CTk,rv`R:TiniEC]\Tiej%(r|Tiqo_%qE !Tk(D1-+kTk98`erMTkGa%lv6TkML3kP@Tk?_(|K%Tk9+'~;*TkB{{]^oTkR1I&N)Tkb@3w`jTkp~)Iwh !TkzZ=.lDTkx}@pZ=Tkr1%yAHTkvP|'YPTm(Y\&10dATme&ZV+5Tm]oq\B@Tme~nh2=TmsU)j+uTo'zzgLw !To4e0v/%To=3G2x6To?f-H7`ToA@f}8&ToHBt(dvToT?'W5sTobVCVE+Topk(F>yTo{hHB6KTo{DrTCB !Toj}jzPITohf\Q1aToraMVnHTq%vlY})Tq2]1uD.Tq;S\kk=Tq6+ !TqMeeGzuTqY[-hN-TqczbZYSTqk\BS3TATsS`@X'STsVDZS*pTs[vPz4kTsc\Qli'Tskb;|X^Tsr6J5nwTsuOot5+TsuC4R1` !TstH\@uWTsu?[SViTsw}a_,+Ts{I0d9YTu%7Hfn^Tu)|L\J-Tu0G0c9JTu8TTXf5TuB%TBBZTuL6nR&{a)+W_Q*_@CoTCR&thChB~R*P&%G?0R,d@,2'IR,Rv]poTR*3PVc?sR(%RBQ8PR(4g)J^l !R*LsUi;_R,Gw.r2_R*gyM8XFR&`\S%|kR'FJI@{bR'zVLqP?R'2UaxwRR%TcJV0CR'_qg27S%[R4f;bS%ZB|%<9S%h4Jv;3S%v@{Y=1S%rslA^~S%Z~PInWR)q>14xY !R'F&){'UR'u|x'>bR)M;LtT3R%RhO|wCR.KS(b]bsdU !S*-dNmnrS*Kw}w<8S*@TSUnzS(ZO0nwbS&Vy4.Saj,hp*rSq%DavyGSencsZ^S%b%~s\}S'4d'uwlS'vR=-%US)/Wj{DxS'JPr_6% !R)AxF;]@S&[)LevRS&\9?nl.R&hBfvWSR+EX:h<9R'_yujY|S&Op@xl5S(1.6{m;S(S7Py=VS(g|UL7p !S*5e|G}0S*|DyjnqS,g&\g.?S,j}QQi4S*Uq\A/tQ(_zv.CFS+6(0t+tS1-u[z4RS3jZN8y.S3_G(c:_ !S/eS_cEuS)U/qW9;S&z'h~<&S,dWbfG6S0+FP9+%S.z}e(dMS,nPl^VMS*?`q^}YS&n\5\a5S%Xc\T/. !S)(R2f>uS+\F+1B(S/*52=jyS/zR*vSN;NuR(<8\Ih. !Q&NS(m@3Q(fSuhfcR(5c}Rj\R(p`]SYrR(EM&5iHQ(D/G{q9R%hs/*RHR%]l>kmVQ(L_1V^CR&ZU^;,> !Q(3y3282R%z|UHVtR'eUSIDeR'Zgiy3VR%tcH`sjQ-*6doifR%c;i(,?R'Pse|)vR)(2M_diR'o]GsE& !R'-9*xBiR%Skl6BnR%ZY5O`ZR'0s<\9=R'QIJ8^vR':)0'=RR%T-SM[UP.?bIC)aP.*@0{4;Q+hf.6T( !R%^N4n,%Q+DBy7rRQ,{<7dGoR(%,>\NnR()7BjtOR&\~KAjKQ*E@&uUQQ,:j^CAUR&qI;roHR(E7?_6K !R(KCZ6)eR((|Kj>.R&ZNbL(kR&N](mv|R&bAE1;'R&xtt\HwR&tc:q~XR&TIU|E^Q(Urc&GuQ&ccs{jJ !Q*i^B>pFR&P@ayFXQ,t\([vWP''|YK2CQ-?;YUx\R%WemWzRQ+j,mrYRQ':^XK]nQ'&gF&O{Q+dMePIi !R%d|@tXoR%q)Ly^JR%ct[i9Q(2sk09PQ(/sLtS}Q((l*&(hQ&p>~H`IP.;M8vE/P'zS}A83Q%wXy]@Q !Q'XKZYg8Q)&>nLIXQ)8?R}.IQ)G)AR{Q)D+HZ0S #% [ 326] fit.chir_im !R&%%%%%%R(?=[M2ER(R5^{LbR&Z47;8?Q+}uJ.BrQ+NH;?msR&q}>w0SR*4F}6KTR*I&kBQ_R(BaV2Tm !Q%OVUg%(R%OV7|O`Q,YVD.QRR(P8}''Q*9a4iK.R'[ktvXuR)T1,y^3R)&zD5/ZR''%Mt?. !R%~l(K1YR)SyRb*ES%Nm3RQ-S%Xhk48jS%S%VjNqR+^\QmW^R+(alDgUR-0p/TP8S%ZSdT,hS%`&q/6{ !S%Q(J|BbR'n'mAL%R&`'h?SAR(9\DKnuR&\L(O6GR&n*o72GR,,r8u1'S&`aINAOS&x6[G^sS&zSd%lZ !S&o7l7woS&k`Dc'SS&}j[@/pS(BXIWeES(TjjDf0S(H6>0~rS&}@wGjYS&Xu2-XDR,faW0NCR*d(~_7nP;qS>%1p{vUS6N4ifP7S&`A2=oSS;=m'_Na !SUNi/2Q7Sg]Y-j^YSgTN'Av7SQ8Pv'zfS)z+Sr,7SFw<3C`tS`V~KdMZSbpc.]jWSR8eNCW7S8BuCTVs !S'Y_e:e|+6%Q*?:^K*'S(5k_Sl, !S(R32q56S&z['2k-R({mAT@aR%RR{[/lR,a[s4K]S(&9:;%]S(CfPlgKS(6-TEQ?S&p8&J,iS&[T&KEL !S&O0u1z9P(Ap3SWUS'9Cj=VSS+7L2iUUS/Cp6|3(S1fu5;p{S1]%79BzS-k\pqLHS'[bon{5S**4lclU !S05VDxrXS2uoDTa5S2k.z1+RS0'3.4V,S*E}oa0%R)c&HLq_S)7XYtw+S+=dg*:@S+dxKxT(S+mk>Ui~ !S+\dx_V3S)xdOvDbS'SFrfBFS&\h(;]=S,7[E9GTS0sI,Ya,S69?_NZuS/NQn^s.S3808}sPS14`UF&RS)toRf,[ !S&mzy5yAS,*)=\KrS,2@]2/qS(ksy&h7R,9f24>,R+(oD*OWR%r5[l}&R,IWRnYoR,|'>~@GQ.&se+;; !R+=VC3nYR+;%/Jf?R&Q.;4SYS&N0eS%LS&XTd|nFR,at@NHUR&xkCri(Q&zW8iXNR(PKsr,oR,4icg}] !R,3Pr_dvR(@,8Ke[R%dgH:4`R'0ZwbRbQ(E28wR%R(WZX>ZdR(W~7;-;O.;m&+6=R'lv]7THR)HQME(N !R'WFR|l>Q+s%*e_@Q'Cm@k(UR''sifJUR)3q;&MCR)M|r1`%R'e@aEO8R%i3}3d^R%UTEUsyR'8QH}ch !R)(k'o>-R)1Sy&y1R'E@8lWzQ+r)MRhxP+N\jwZ)R%Nb6g&QR'*3r:0&R'+1Tm&tQ+KD}M|'R&W+).b8 !R&x7;awwR&ZleUPTQ&k^|oP9P(OfqZ1SR&Wxyw%rR(=Qpp>cR(TaO\P4R(5Z6KoqR&`o[Ae*R&Ut{:E` !R&|Fo'NAR(UIaznbR(b7;;NhR(94\N?'R&V0r/FVQ*'5U;6.Q.*ls{r@R&p~o66VR&~Qq2xcR&\z[9~U !P),g0a20R%N0>Qs(Q-I,Hj0.Q'Y]YH-CP'aV6m4&Q)@qI]fkR%^7LmfJR%s\5?atR%iTeoMbR%O'f3bM !Q+AJJ5<&+R'+U%L*?R%us>U`:R%R~Q=0cQ)I@Mir(Q)sLw@t2R%UoVQ6lQ&`:n=uzQ(-|/B/uP+t>@;AnQ'K(VvCcP'_Ho5zxQ*|I=ZG+R&YIWfn3R&`5Vizm !R&UHR6L1Q,~G]w].Q,~HLdezR&T\CcZUR&^VAz;}R&Zxb/x*Q.:V*jT`Q*T[S8mNQ*+SE:9}Q*h/;_+] !Q,@gW|85Q*d%s]l3Q(->o}.dP+=0A%6=Q%W1wM,ZWAv)Q,0vGScjQ,L[N5dOQ,G'[iHgQ,@cW?:~Q,H3..cbQ,MVR'B,Q,5rM:,iQ*R2>oWQQ(\%yJiK !Q&s(qqiCQ&Ni04x.P,0pogk2P(dO0FQ)W^D|];Q)lM4EcoQ)i5yk5P !Q)Kvt_|(Q'w]OnL.Q'G(EiI7Q%y1hMGPQ%ZLxdnrP)Y-p>0B #% [ 400] init.win !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%%R&%%%%%% !4&j>\oitQ*j@|/0ER(..yFw7R*Me('i'R.?g[RpvS&`@|NmSS&xO[Em5S(9X%{83S(Vx2R;BS(un{iu] !S*;Q}6b5KrkgS.J[dCy]S.W'|o-TS.cN;@;JS.otSkIAS.|@lc\^OS2+d|-lFS281:XzSAj%~`eKpS>2Jy6YgS>>q7ag] !S>K=P2uTS>Wch^)JS>d0'/7AS>pV?ZE7S>||X+S.S@/HpV`~S@;o/'nuS@H;GR|lS@Ta_~0bS@a-xO>Y !S@mT6zLOS@yzOKZFSB,Fgvhs*)SBQ_WD7zSB^+ooEpSBjR.@SgSBvxFka]SD)D_1huSF&BV\vlSF2ho.*bSF?5-Y8YSFK[F*FO !SFX'^UTFSFdMw&bEC+ASJ,d]n97SJ90v?G.SJEW4jT~SJQ}M;buSJ^IefplSJjo~7~bSJw<:OSPn5|iHFSPz\;:V< !SR-(Sed3SR9Nl6r)SREu*b%zSRRAC33pSR^g[^AgSRk3t/O]SRwZ2Z]TST*&K+kJST6LcVyASTBr|(-7 !STO?:S;.ST[eR~H~STh1kOVuSTtX)zdkSV&~BKrbSV3JZw&YSV?psH4OSVL=1sBFSVXcJDP')R3Sb-d?T`)Sb:0X%mz !SbFVpP{pSbR}.|/gSb_IGM=]Sbko_xKTSbx;xIYJSd*b6tgASd7.OEu7SdCTgq).SdO{&B6~Sd\G>mDu !SdhmW>RkSdu9oi`bSf'`.:nYSf4,Fe|OSf@R_70FSfLxwb>,)gSh=PVW7]ShIvo(ETShVC-SSJShbiE~aASho5^Oo7Sh{[vz}.Sj.(5L0~Sj:NMw>uSjFtfHLk !SjS@~sZbSj_g=DhYSjl3UovOSjxYnA*FSl+&,l8v9azSl\e4dopSli1M5}g !SluWea1]Sn'}~2?TSn4J<]MJSn@pU.[ASnM2BF3T !SxJXZqAJSxV~sBOASxcK1m]7SxoqJ>k.Sx|=bix~Sz.c{;,uSz;09f:kSzGVR7HbSzS|jbVYSz`I)3dO !SzloA^rFSzy;Z0&NDBZ4R,IbNEI]R,A/w&hgR*w=QMIpR*PpPs*lR*_sTWDoR,PJCtoER.B_c8WZS&O)3S&i !R.:`mT~hR,'Mng\iR(WNCJq+R*=0[:iiR.A3mV`'S&ZZ&^S]S&`Z}>fqS&[?`w^wR.3h-B+SR(>sPRig !R*:vc&P)S&W7sX]qS&n3i+3%S&xZ;o(QS&s4T?hIS&]ZNF@?R*U~e'HOR*urHPwyS&i*ad+cS(2-(}NZ !S(E_l7Y,S(Dj\ztwS(.Sh0BCS&af`z'yR,YkpPBqS&jKWjxoS(>{V8kCS(]^r|\>S(cd%&BjS(NE9s/R !S&|7m;3NS&TlRs&1S&{WVZ3vS(b2sF=aS*:Ubdx7S*Q+?NI9S*F'+k,}S(vpcdX/S(EixNDpS(Kp8(6) !S*<{-(;aS,9Z;4z4S,|VkuP~S.BVa2S^S.:?%k@lS,ke&]DZS,C/MG]DS,Y/-/dNS.o@ffSDS2]8xAyz !S6R(S9oyS:1diZt^S9hI36?S@'3~bF)SBKSU\j8SH5gi0skSPZ9%>viS\DbEyLnShrW>SOM !SvJy3bIrT.^)^:H|T0-wfa5bT0Gw[-(^T0O2ty?NS6h]RzA9S:F9SDgLShR.+mZ.7MS&S'Y0cIS&V?V-y`S&R-o^d;R,t@p]+vR*]7AG=@ !R*FXY+]LR,?[?(FOR.51\M>wR.MdVijSR,~\)F%_R*zrm:8lR(m:b.s/R(gKR;A.pR*RQOE;oR(TM0/;bR(QC8PIkR*C>eTRrR,'F9*h:R,8{BTXRR*s,_hRDR*+5jj09 !R(/*aGK)R&w;?gPdR(_i[gnoR*9~5gKkR*G;RA{GR*+&3[rMR(I+Jq.?R&frf?EpR(%xa4biR(eu^YI2 !R*7=d0y(R*@@6:`eR(2y2u8CR(XOoh}gR(a7i}M(R(K~\7M2 !R&xL4H_8Q*g)ehR2Q.M|F?V_R(&=4gqqR(F;\W9|R(MWrrsZR(<1L3;mR&pjf*RlQ,*\B<;HQ,&j@%/k !R&j8v_jXR(+`1lHaR(3]>rh}R('~@zBNR&fQFe28Q,8GSk8bQ(L.kyr=R&Q&~;N.R&eiX2cnR&kf{_*c !R&bw;tM?R&NU\:.nQ(|hd5)gQ*_RXbX;R&SR4FszR&c8*y4}R&h@bJI7R&bz0JH_R&VB>9GvQ.*9=rGB !Q,ow6?ArR&P\f-rUR&Y|gM-OR&]P1v:dR&YXQ(}}l~yoQ,:rOg%3 !Q.=|u2d.R&PVs>@UR&Q08I0/R&Mw5HHnQ,yz%dteQ,I9m_-xQ,A>Xb<1Q,k[{?9}Q.O`|KjoR&R%ZZUY !R&S8'&|JR&P8ceQYQ.--&OKtQ,=iJqUnQ*oQDhW2Q,&VC{t@Q,MjHTm6Q,^TPRT1Q,C{(L+cQ*XO@*'Z !Q(YkFZyFQ(?GeVSDQ*/X(9,?Q*xhE|d8o^ #% [ 326] init.chir_pha !SB1D)d%nS8Q:56?rS0/d4cFvS&xL_lmiS+Nf5{AYS5]`K@xpSAJ,C.cTSKCA|iVtSS?ob_Z:SYmW1*kf !Sa7F)e_FSgwGWNM&SsnPXR^qT-r<,hVKT/?U\W=fT/\eg?GeT/w@f~)&T17%}'iXT1Pr.X:+T1pv%)NH !T/RG@Q:HT/m|>fb:T1,CgryIT1Cp{dY2T1ZT}~~PT1oLxj}\T1ys4V/5T18c|smlT1D:joZ+T1XX6k4~ !T1m}I|>HT3)0NnB>T3<_n,ijT3IkOx;*T32a9,xuT1{NAkHuT3/TeK&bT3Be6D-uT3Vh{d/aT3ic+&m2 !T3w6?e&ZT3hsjAnbT3SHNvm4T3^u/*NXT3q4^'gaT5*enNR)T5=I/rwWT5L=>QR'T5OHZ/ZyT5CHw&:r !T5EsB !T7oNdee:T9(?FxdoT9:oPnK.T9Ks:2M=T9ZW:H?YT9g.CB1lT9sN7{b)T;'r|w*}T;9&K*%FT;LKai^G !T;aKhwo?T;wQ_,,9T=4>+6d'T=KVxz8BT=c5>V&qT={*YO-.T?90x.N6T?QCgI7nT?i^Wk+[TA'{>B-0 !TA@4UZkATAW~aH?mTAnaP)2fTC'go~R;TC-]8I^QTAzFnPHXTC)2Uy4%TC?YjvjFTCZ@Fj5CTCvGAU~0 !TE8MFo~8TESc%rsZTEmC,WrGTExSKYM@TC}Gr5HDTE8LjM}4TEL8uY7rTE\}fA7ZTEhX%cD|TEl{l>P= !TEnK8B4]TEtx(0^sTG&|:A=YTG6;e&aVTGGDg2|.TGY_sOK,TGlx\?0WTI'.XW%=TI<3\hOxTIR+hTtA !TIhmRI])TK&>nDKzTK>H_6mhTKVuYChLTKo?{yzjTM,XTCCqTM@C.E('TMK<9z)|TMK/qy~rTMQ*A9@G !TM`sAB}(TMtTuBp/TO.nrlHATOA~=8dTTORdwlW?TO`;p/UTOy%b/)%TQ/QDE4(TQC.dn5Q !TQXzj.2-TQp@S5%:TS.c{o_QTSGpp)AwTSaV&Lc(TS{aLs9/TUU12%m0KfU15C>FeqU18B\.uPU1;B}|E-U1>gVj.7U1D9S`8-U1K`67*;U1O_{Qly !U1Rdl^.bU1UUIN8hU1XD[zbSU1[FKXQmU1_Y4k<&U1h8Q08gU1ll]eE5U1rJy6MsU1tw@aqh !U1w:rrTzU1x\/vf5U1pi*M2}U1r^Y92HU1tvi,W9U1w8zk0&U1yS.)(TU3%668D.U3&sQ{{:U3(`Egk9U3*AYXPLU3+XSWpZU3+u8Q_] !U3+9|,8bU3+BzPXPU3,IIR?2U3-tU4MYU3/OB87%U30{UDX>U32%14Y(U31+ !U38'Y_?DU39DJcW}U3:Or6IdU3;/9hy]U3;+]*vyU3;(m=WUU3;f1@EIU3B}@wiU3?Z@^1e !U3?v5odtU3=f32U]U3=0q.\3U3>?bmt-U3?wcgwpU3A[KJijU3C&)lVDU3Bhn2OYU3??'=yKU3?`?ih7 !U3A4*V.ZU3BrG_~:U3DMW0h'U3E\u?Y-U3Eiwhb\U3E(SEU3MLNDPz #% [ 326] init.chir_re !R+6?HDSBR'bRa:`WR(Kh}ucWR,:nP6-GR*-D&Pp~R%q-okA3R)_KLbPxR'IM[6ssR(ye\YO`R.K>M9@j !R,r.QAdZR&y}zIM}R'@h':IjQ-PjjUYrR,%M`kqfS&ZJlS}lS&VzMR0hR*/o;J=ZR'28p:m|R'0`+kv& !R*/d.:fHS&T9E0ZGS&O`b>j_Q,x-/BRER-@)ERWxS%U^mS%AR)M11^sOR&vJc'zcQ*MaM8YUS%S^TPuG !S'2-+7/KS'D\_]sIS'%H>U~KS%Q6KbCUR+T=Xw)eS%hLdr4US'>?6FO8S'EWMc/oS%mQS.jUQ+{j_w@` !R*wvbawaS(EfP?`XS(E;;x9; !S*6-E&>=S,8.YqQ9S,F3Ct{cS*7M0XdUR,X`LP5=S'(GP= !S5I2zT.rS7_U?UiAS54,'^RtS-U=|D+PR);hc;7vS.3GYlo>S8a4_2R_SH[C_]PKSZpNtb`ySfQGxH+m !S^)ZP>HAS:7u>jI0SG'+-:i8SydXMx^CT/Ms)H=~T-]sJ=~|SQ,%Y6C^S23=RswsSX[s|XUHS`|]83Pb !SPuOb:QJS8X=_)]6S&Zi=>i`S)DdtGm+S'PbyzaOS%TfmzmAS'CziE+;S+)1wd@5S+cS+(i-+p1S&]mW@jjS4Z6t})*SHMLX41) !SXv`8C0OSZUIk<2}SDL6CwLoS-e{SBq;SUsM_&E+SiaU|*k=S_5;]zgZS=5I'|S1S2I?KSjgrAMR'f?nR'LS&u@I-6pS*0&}%K>S&cD48MES)tj-OFnS/`U)[EDS/:U(XK` !S'}:DzTsS(OU0s{1S*^LF=uNS(;C6L~uS%qNDBMNS'[D;FOnS%YIlbm5S&vGV4m5S(=Pn3hmR({Mbx~} !S'853`9kS'[8CwI{S%bSYabCS&Y^`RnGS(%o03.IR,*u.YmSS%deP'fuS%~8kByuR)tEfdbOS&bU1.CZ !S&~9tiQ1R,|3c]ZQS%NKG{NrS%f_iA]ER'g5|DGuS&_0|>x5S&zv\^<]/aR,wqT\@iS&W?yligR*I-BYKv !R)SC?_uGS%M`rM(\R)&azyu)R*2`.=6=R,dAi<7jR(.0gq38R+.G\1t*S%QSg~V3R)w~HapaR&e.0hT, !R*A}\@olR&M~bm];R)v@2T]0R-MdQK<~R)n{e1(vQ*ATY+DgR(e27=>AQ,SC}>FnR)=T;QR4R+J}DcWV !R'wG{0MSR&n&i)M5Q&`G@DMTP+W'U6R~P(2JZe5+Q(@1lWXGQ*+9yISo !Q(h.8ukJQ&N=[vL7Q'.geB{zQ):BVIzpQ)[{qoGTQ)My0ZTMQ)Cub17@Q)je?]|,Q+j2CT4LR%P/%@5b !R%S5ky-wQ-Q`}>1=Q+>t7I=eQ)?S}BmsQ)%-iX=aQ)2_.)2wQ)&~wBPGQ'4C|pO{P&])s(w7Q&ovG%}f !Q&]HE@pUP'cxvpMFQ%Y@R){kO*mtH3vYQ(@%IaipQ*6'N(&_Q(|M9)<+Q&}FMTY~P,AYXPCgQ&qvjC'6 !Q*?_O{.zQ,V[I{W?Q,ez4Ns/Q*{BgXq\Q*_0,iR(Qi0kLa !R'ic|MReR)sr?zJ[R%qYQXI|R*9-[m-,R,-LGYc]R&OV'wzWR+\1}BgeS%WoxHy2R-%;N03qR%\[i{vO !R&gBjXUWR'uQ{eR3.\x2S0=j-y~|S7T_iCAk !S_.DTXl0T-Sm9sBxT-mZ1~kSSeqZ}eq/S+zc?x~oSZE(`aV%S~`4\VaPS~2.y}FcS^0V{6-RS4+_-N%/ !S5HP4{]{S?RU\^dLS9V\J;1:S/DH7V*%DQ(0r7(-xS&fdepYdS(enAVr{S*-.H4RlS(cnYKe{S(.(hnuJS&rECwDn !S&y,f*nVS&aDxo?KS%b~f_S\S+J\IEjtS1~vPLoVS95+ch_8S;DLB0:OS79:'dNLS+`o3~U5S,l_jp4L !S:?*`>2fS>}\n\*BS:lmrPO6S07\wQpQS%^(]RAyS+~rdm;^S-DURoS;S+D2;J2ZS+-~c,-IS-:%G'yH !S/K;HUTlS-mD_.+FS'm@9XorS*C9=Bj0S0t>&xVdS6ClySk)S:cdE~lFS@^[iTzJSDYVh}K|S>mehrTX !S*LE_7<3S?v{fVUOS_:ph}>JSifDsgo[SW`XcSH(;R !R(]/knXoS30-H_YKS3,_+1~ZS+^gwjo|S'_c0')bS)p%R/v0S/-V;3kaS/;2M}ITS):\YRjNS(yiOESl !S.;oZf|hS,Bu.j8wS&S-)x>qS'[Q%siNS'Rl'2)TR(6}gQ9]S(FH54ILS(';jWgiR-6`DbS%SO{dnlQ+um+ih@R,WeJZksR*eW{WUrR'~kQ'f4S%Z2ZtR& !S%Tr]Q&-R')|XR[;R*Y3T2l_R*1,r)(`R,@BLK}.R(3)4_UkR%|aSArjR')G-6L2R&tD,,&qR*qIe;0KR*{<&Ca,R(5;jYC^R%hJlFzb !R'.A3^>(Q(}BkY6AR(^lupl*R(ce`tEJQ*z?e8FsR'6erjSpR'H>5kReQ)E%_:R}R(%gv'Z;R((O;(\F !Q)C5M^ttR'`H+rJ/R)%;.A-fR'-AiIDRQ&zjp@myQ.D+)4*{Q+&P3LUhR'B,p/^rR'`cjdy?R'-nxH'4 !Q)endW*iP(.:j~)]Q-8ReH,+R'%Jse'5R')U]}/^Q-B__>yKQ,E~fQ%U]?A7DQ%eP2r-= !P%XP|22SP'wWSB=WQ'ia]^N8Q+uP-{v?R%Ru*3/BR%Ne*5/hQ++2Z3iFQ'c}`a5>Q'RB[xh5Q)Qf&=@E !Q+vN[ucMR%PE9`mrR%O}KWmyQ+{4,`AYQ){(WP]FQ)E)U:;,Q)Cyc[vwQ)X^pl;|Q)J+2o7.Q'L:J:-Q !P(bMs7w[Q(bi`x5/Q*K{\z8+Q*CAA[noQ(~msaBwQ*/F-@D=Q*lv;96DQ,M03p+|Q,CvCX&*Q*L&GEf? !Q(N4]J\PQ(>FuL5lQ*(;D/DPQ*xg=j=>Q*~,K'58Q*&Phu1nQ&oH)C.vQ&PreAytQ(=c,hMaQ*FE> /usr/people/newville/bin/XMU -e4 -05 -t6 -r7 -f8 ascii/sr016_002.dat # ---------------------------------------------------------------------- # k chi(k) 0.5000000E-01 0.1095355E+00 0.1000000E+00 0.1069954E+00 0.1500000E+00 0.1044553E+00 0.2000000E+00 0.1019151E+00 0.2500000E+00 0.9937499E-01 0.3000000E+00 0.9683486E-01 0.3500000E+00 0.9429473E-01 0.4000000E+00 0.9175459E-01 0.4500000E+00 0.8921446E-01 0.5000000E+00 0.8667433E-01 0.5500000E+00 0.8413419E-01 0.6000000E+00 0.1036340E+00 0.6500000E+00 0.1261702E+00 0.7000000E+00 0.1487065E+00 0.7500000E+00 0.1693243E+00 0.8000000E+00 0.1769185E+00 0.8500000E+00 0.1845128E+00 0.9000000E+00 0.1921071E+00 0.9500000E+00 0.1992324E+00 0.1000000E+01 0.1892861E+00 0.1050000E+01 0.1793399E+00 0.1100000E+01 0.1693937E+00 0.1150000E+01 0.1545492E+00 0.1200000E+01 0.1368810E+00 0.1250000E+01 0.1196792E+00 0.1300000E+01 0.1029699E+00 0.1350000E+01 0.8626056E-01 0.1400000E+01 0.7337552E-01 0.1450000E+01 0.6174133E-01 0.1500000E+01 0.5063396E-01 0.1550000E+01 0.4101825E-01 0.1600000E+01 0.3159899E-01 0.1650000E+01 0.2231159E-01 0.1700000E+01 0.1367821E-01 0.1750000E+01 0.5819267E-02 0.1800000E+01 -.2428305E-02 0.1850000E+01 -.1052786E-01 0.1900000E+01 -.1868292E-01 0.1950000E+01 -.2675180E-01 0.2000000E+01 -.3442618E-01 0.2050000E+01 -.4257021E-01 0.2100000E+01 -.5224095E-01 0.2150000E+01 -.6387687E-01 0.2200000E+01 -.7576828E-01 0.2250000E+01 -.8606879E-01 0.2300000E+01 -.9425925E-01 0.2350000E+01 -.9875587E-01 0.2400000E+01 -.9866628E-01 0.2450000E+01 -.9520207E-01 0.2500000E+01 -.8933593E-01 0.2550000E+01 -.8264226E-01 0.2600000E+01 -.7469952E-01 0.2650000E+01 -.6549146E-01 0.2700000E+01 -.5581484E-01 0.2750000E+01 -.4370813E-01 0.2800000E+01 -.2893397E-01 0.2850000E+01 -.1116197E-01 0.2900000E+01 0.8369662E-02 0.2950000E+01 0.2786265E-01 0.3000000E+01 0.4568594E-01 0.3050000E+01 0.6360021E-01 0.3100000E+01 0.7888483E-01 0.3150000E+01 0.8972627E-01 0.3200000E+01 0.9594481E-01 0.3250000E+01 0.9547031E-01 0.3300000E+01 0.8752042E-01 0.3350000E+01 0.7278342E-01 0.3400000E+01 0.5686835E-01 0.3450000E+01 0.4261157E-01 0.3500000E+01 0.3256558E-01 0.3550000E+01 0.2648905E-01 0.3600000E+01 0.2333796E-01 0.3650000E+01 0.2070465E-01 0.3700000E+01 0.1755333E-01 0.3750000E+01 0.1300682E-01 0.3800000E+01 0.6118944E-02 0.3850000E+01 -.2036300E-02 0.3900000E+01 -.1174895E-01 0.3950000E+01 -.2250603E-01 0.4000000E+01 -.3112309E-01 0.4050000E+01 -.3740213E-01 0.4100000E+01 -.4057436E-01 0.4150000E+01 -.4111594E-01 0.4200000E+01 -.3891221E-01 0.4250000E+01 -.3608498E-01 0.4300000E+01 -.3389830E-01 0.4350000E+01 -.3270171E-01 0.4400000E+01 -.3130938E-01 0.4450000E+01 -.2813224E-01 0.4500000E+01 -.2226327E-01 0.4550000E+01 -.1383453E-01 0.4600000E+01 -.3883668E-02 0.4650000E+01 0.5994573E-02 0.4700000E+01 0.1373007E-01 0.4750000E+01 0.1796561E-01 0.4800000E+01 0.1741955E-01 0.4850000E+01 0.1424922E-01 0.4900000E+01 0.1123680E-01 0.4950000E+01 0.1143872E-01 0.5000000E+01 0.1532667E-01 0.5050000E+01 0.2148371E-01 0.5100000E+01 0.2633631E-01 0.5150000E+01 0.2817763E-01 0.5200000E+01 0.2587143E-01 0.5250000E+01 0.1963387E-01 0.5300000E+01 0.1120257E-01 0.5350000E+01 0.2717038E-02 0.5400000E+01 -.4799447E-02 0.5450000E+01 -.1126074E-01 0.5500000E+01 -.1641136E-01 0.5550000E+01 -.1976413E-01 0.5600000E+01 -.2087382E-01 0.5650000E+01 -.2040923E-01 0.5700000E+01 -.1836717E-01 0.5750000E+01 -.1560709E-01 0.5800000E+01 -.1307025E-01 0.5850000E+01 -.1124063E-01 0.5900000E+01 -.9979338E-02 0.5950000E+01 -.8387668E-02 0.6000000E+01 -.6143631E-02 0.6050000E+01 -.3423606E-02 0.6100000E+01 -.2738123E-03 0.6150000E+01 0.2027699E-02 0.6200000E+01 0.2192213E-02 0.6250000E+01 0.7743672E-03 0.6300000E+01 0.6612235E-03 0.6350000E+01 0.3905515E-02 0.6400000E+01 0.9584642E-02 0.6450000E+01 0.1350598E-01 0.6500000E+01 0.1318381E-01 0.6550000E+01 0.9461661E-02 0.6600000E+01 0.3937942E-02 0.6650000E+01 -.1647093E-02 0.6700000E+01 -.5840468E-02 0.6750000E+01 -.6608285E-02 0.6800000E+01 -.3819030E-02 0.6850000E+01 0.2025717E-02 0.6900000E+01 0.8250489E-02 0.6950000E+01 0.1266222E-01 0.7000000E+01 0.1410859E-01 0.7050000E+01 0.1358894E-01 0.7100000E+01 0.1153799E-01 0.7150000E+01 0.8218643E-02 0.7200000E+01 0.4102208E-02 0.7250000E+01 -.1231174E-03 0.7300000E+01 -.3703557E-02 0.7350000E+01 -.6652551E-02 0.7400000E+01 -.9799071E-02 0.7450000E+01 -.1311267E-01 0.7500000E+01 -.1595615E-01 0.7550000E+01 -.1711900E-01 0.7600000E+01 -.1513167E-01 0.7650000E+01 -.9926587E-02 0.7700000E+01 -.3524886E-02 0.7750000E+01 0.2029869E-02 0.7800000E+01 0.6307843E-02 0.7850000E+01 0.1002338E-01 0.7900000E+01 0.1310629E-01 0.7950000E+01 0.1565631E-01 0.8000000E+01 0.1682506E-01 0.8050000E+01 0.1486664E-01 0.8100000E+01 0.8837403E-02 0.8150001E+01 0.1833058E-02 0.8200000E+01 -.3073461E-02 0.8250000E+01 -.4816797E-02 0.8300000E+01 -.4536452E-02 0.8350000E+01 -.3470849E-02 0.8400001E+01 -.3308690E-02 0.8450000E+01 -.4577390E-02 0.8500000E+01 -.7157634E-02 0.8550000E+01 -.9999945E-02 0.8600000E+01 -.1075159E-01 0.8650001E+01 -.8495539E-02 0.8700000E+01 -.5398340E-02 0.8750000E+01 -.2290333E-02 0.8800000E+01 0.7217229E-03 0.8850000E+01 0.3839411E-02 0.8900001E+01 0.6238585E-02 0.8950000E+01 0.7085177E-02 0.9000000E+01 0.6898451E-02 0.9050000E+01 0.6844740E-02 0.9100000E+01 0.6573103E-02 0.9150001E+01 0.4554484E-02 0.9200000E+01 0.3817070E-03 0.9250000E+01 -.3918004E-02 0.9300000E+01 -.6402232E-02 0.9350000E+01 -.7210661E-02 0.9400001E+01 -.6844061E-02 0.9450000E+01 -.6661248E-02 0.9500000E+01 -.7208294E-02 0.9550000E+01 -.7009259E-02 0.9600000E+01 -.4936737E-02 0.9650001E+01 -.9168765E-03 0.9700000E+01 0.4302424E-02 0.9750000E+01 0.9546191E-02 0.9800000E+01 0.1236071E-01 0.9850000E+01 0.1069818E-01 0.9900001E+01 0.6970373E-02 0.9950000E+01 0.3909738E-02 0.1000000E+02 0.1866206E-02 0.1005000E+02 0.7192576E-03 0.1010000E+02 0.3087604E-03 0.1015000E+02 -.2889026E-03 0.1020000E+02 -.3377699E-02 0.1025000E+02 -.6774924E-02 0.1030000E+02 -.8117777E-02 0.1035000E+02 -.7409093E-02 0.1040000E+02 -.5498887E-02 0.1045000E+02 -.4486432E-02 0.1050000E+02 -.3522243E-02 0.1055000E+02 -.1986857E-02 0.1060000E+02 0.6210066E-03 0.1065000E+02 0.4283003E-02 0.1070000E+02 0.7147471E-02 0.1075000E+02 0.7521267E-02 0.1080000E+02 0.6076628E-02 0.1085000E+02 0.3206020E-02 0.1090000E+02 0.4701328E-03 0.1095000E+02 -.9409814E-03 0.1100000E+02 -.1068599E-02 0.1105000E+02 0.3700311E-03 0.1110000E+02 0.1897992E-02 0.1115000E+02 0.2301604E-02 0.1120000E+02 0.1291839E-02 0.1125000E+02 -.6755504E-03 0.1130000E+02 -.3491007E-02 0.1135000E+02 -.5152704E-02 0.1140000E+02 -.5594411E-02 0.1145000E+02 -.5548870E-02 0.1150000E+02 -.4825286E-02 0.1155000E+02 -.2789374E-02 0.1160000E+02 0.5603549E-03 0.1165000E+02 0.3975984E-02 0.1170000E+02 0.5890186E-02 0.1175000E+02 0.6213336E-02 0.1180000E+02 0.5481412E-02 0.1185000E+02 0.3382888E-02 0.1190000E+02 0.3357902E-03 0.1195000E+02 -.1626816E-02 0.1200000E+02 -.1999436E-02 0.1205000E+02 -.1907986E-02 0.1210000E+02 -.1481728E-02 0.1215000E+02 -.8123760E-03 0.1220000E+02 -.5247087E-03 0.1225000E+02 -.2734763E-02 0.1230000E+02 -.3504512E-02 0.1235000E+02 -.2676369E-02 0.1240000E+02 -.9809593E-03 0.1245000E+02 0.1388566E-02 0.1250000E+02 0.2939182E-02 0.1255000E+02 0.3240629E-02 0.1260000E+02 0.1944648E-02 0.1265000E+02 0.9288795E-03 0.1270000E+02 0.1022591E-02 0.1275000E+02 0.1651199E-02 0.1280000E+02 0.2029809E-02 0.1285000E+02 0.1220536E-02 0.1290000E+02 0.3141769E-03 0.1295000E+02 -.4569719E-03 0.1300000E+02 -.1375641E-02 0.1305000E+02 -.2106114E-02 0.1310000E+02 -.2238453E-02 0.1315000E+02 -.1472720E-02 0.1320000E+02 -.9016598E-03 0.1325000E+02 -.1443536E-02 0.1330000E+02 -.1716341E-02 0.1335000E+02 -.1000265E-02 0.1340000E+02 0.3435071E-03 0.1345000E+02 0.8998289E-03 0.1350000E+02 0.3314834E-03 0.1355000E+02 -.6324931E-03 0.1360000E+02 -.8193041E-03 0.1365000E+02 0.3057924E-03 0.1370000E+02 0.1946148E-02 0.1375000E+02 0.3112783E-02 0.1380000E+02 0.3131789E-02 0.1385000E+02 0.1756297E-02 0.1390000E+02 0.2062137E-03 0.1395000E+02 -.6856614E-03 0.1400000E+02 -.1541802E-02 0.1405000E+02 -.2948725E-02 0.1410000E+02 -.3849131E-02 0.1415000E+02 -.3369786E-02 0.1420000E+02 -.2110803E-02 0.1425000E+02 0.3676330E-04 0.1430000E+02 0.1470877E-02 0.1435000E+02 0.1606900E-02 0.1440000E+02 0.1194637E-02 0.1445000E+02 0.1516864E-02 0.1450000E+02 0.2006741E-02 0.1455000E+02 0.1695033E-02 0.1460000E+02 0.9709552E-03 0.1465000E+02 0.2272290E-03 0.1470000E+02 0.3285513E-03 0.1475000E+02 0.7283891E-03 0.1480000E+02 0.1261087E-03 0.1485000E+02 -.6284324E-03 0.1490000E+02 -.4952581E-03 0.1495000E+02 0.0000000E+00 ifeffit-1.2.11d/examples/Data_Processing/stats.iff0000644000175000017500000000043410771740461021067 0ustar segresegre# generate statistics on an array. # macro stats m.x "simple statistics for an array" mean = vsum($1)/npts($1) variance = vsum($1*$1)/npts($1) - mean*mean std_dev = sqrt(variance) print ' stats for $1 :' print ' mean +/- std_dev = ', mean, ' +/-', std_dev end macro ifeffit-1.2.11d/examples/Data_Processing/GG.xmu0000644000175000017500000003345710771740461020306 0ustar segresegre#%name: K2Cr2O7 Potassium Chromate #%atom: Cr #%edge: K #%xtal: K2Cr2O7.inp #%prep: powder, mixed 1:20 with B(OH)3 by wt #%ref: none #%misc: exafs to K15 #%det: I0=N2 15cm; I1=N2 30cm; I2=N2 15cm #%temp: room temperature #%beam: ssrl 4-1 #%mono: si(111) unfocused, detuned 30%,counter clockwise at E=6200eV #%date: Mon Jan 20 21:40:39 1997 #%cols: 381 E XMU I0 #--------------- # energy log(i0/it) i0 5788.999 4.762925 502611.31 5799.625 4.733658 504716.31 5810.250 4.704591 506162.31 5820.875 4.673715 508443.31 5831.499 4.640522 510491.31 5842.125 4.611078 511875.31 5852.749 4.580097 513619.31 5863.374 4.548285 515486.31 5874.000 4.518008 516610.31 5884.625 4.485636 518433.31 5895.250 4.454047 519679.31 5905.875 4.421215 521281.31 5916.500 4.389758 522633.31 5927.124 4.356473 524629.31 5937.749 4.3254 525738.31 5948.375 4.293167 527215.31 5959.002 4.261169 529115.31 5959.758 4.259874 529280.31 5960.516 4.25739 529309.31 5961.273 4.254485 529534.31 5962.031 4.253096 529291.31 5962.789 4.250308 529571.31 5963.544 4.248092 529798.31 5964.303 4.245694 529716.31 5965.062 4.243665 529896.31 5965.817 4.241297 529963.31 5966.576 4.23914 530416.31 5967.333 4.237209 530085.31 5968.092 4.233869 530801.31 5968.848 4.232374 530766.31 5969.605 4.230308 530770.31 5970.365 4.228243 530773.31 5971.120 4.226648 530406.31 5971.880 4.224277 530175.31 5972.638 4.221322 529224.31 5973.392 4.218913 527407.31 5974.150 4.216075 525980.31 5974.909 4.213279 526133.31 5975.667 4.211238 526544.31 5976.423 4.209172 526063.31 5977.182 4.208346 526234.31 5977.941 4.206269 528833.31 5978.697 4.204744 530908.31 5979.453 4.203351 531842.31 5980.210 4.201748 532059.31 5980.970 4.199662 532350.31 5981.728 4.198063 532631.31 5982.485 4.196946 532635.31 5983.242 4.195484 532056.31 5984.000 4.194236 529138.31 5984.757 4.19124 516846.31 5985.516 4.185336 488766.31 5986.274 4.183379 487417.31 5987.030 4.189623 511919.31 5987.789 4.196505 523761.31 5988.544 4.202883 527848.31 5989.304 4.21541 529626.31 5990.060 4.239992 530938.31 5990.820 4.297915 531342.31 5991.576 4.412288 531738.31 5992.333 4.595813 532652.31 5993.090 4.814609 532107.31 5993.848 4.812059 530998.31 5994.605 4.574049 528649.31 5995.363 4.405353 525197.31 5996.122 4.329163 523167.31 5996.879 4.295914 523821.31 5997.635 4.287519 526575.31 5998.394 4.298631 529515.31 5999.153 4.319718 531779.31 5999.909 4.347102 532946.31 6000.667 4.374292 533029.31 6001.424 4.395899 533315.31 6002.181 4.411332 533454.31 6002.940 4.424647 533842.31 6003.697 4.448021 534076.31 6004.455 4.486679 533897.31 6005.212 4.532505 534011.31 6005.970 4.587946 534474.31 6006.727 4.654901 534175.31 6007.486 4.728974 534161.31 6008.240 4.805284 534009.31 6009.000 4.869361 534443.31 6009.012 4.872556 534323.31 6009.039 4.87335 534744.31 6009.086 4.878629 534283.25 6009.155 4.882607 534557.25 6009.240 4.889311 534423.19 6009.348 4.894776 534935.12 6009.472 4.901971 535150.06 6009.616 4.911588 535278 6009.782 4.919951 535643.94 6009.966 4.929065 535687.87 6010.167 4.93929 536140.75 6010.390 4.946698 536441.62 6010.631 4.956471 536707.56 6010.893 4.964579 537320.44 6011.170 4.972505 537374.31 6011.471 4.980111 537802.12 6011.791 4.985129 538567 6012.129 4.992875 538585.81 6012.484 4.998578 539397.69 6012.861 5.006177 539730.5 6013.255 5.012015 540286.31 6013.671 5.016026 541348.12 6014.105 5.021469 541819.94 6014.561 5.026991 542168.69 6015.035 5.033114 542521.5 6015.527 5.03408 543441.25 6016.037 5.036796 544082 6016.568 5.038854 544977.75 6017.117 5.038905 545858.5 6017.688 5.038965 546433.25 6018.276 5.037436 547215 6018.883 5.03823 547877.69 6019.512 5.03627 548876.37 6020.158 5.039083 550028.12 6020.826 5.044007 550482.81 6021.509 5.048728 551905.5 6022.214 5.057012 552630.12 6022.940 5.065358 553518.81 6023.685 5.073089 554679.44 6024.444 5.080825 556146.12 6025.227 5.088045 556987.75 6026.027 5.095598 557995.37 6026.852 5.101467 559357 6027.690 5.108698 560318.56 6028.548 5.113958 561654.19 6029.427 5.120481 562524.81 6030.324 5.124854 563851.37 6031.240 5.127783 565203.94 6032.178 5.1291 566319.5 6033.135 5.131089 567477.06 6034.109 5.128023 569646.62 6035.102 5.128017 570680.12 6036.116 5.125812 572137.69 6037.147 5.120663 573739.19 6038.202 5.119491 574588.69 6039.273 5.110509 576425.19 6040.362 5.099263 578020.69 6041.473 5.089759 579379.19 6042.604 5.076604 581265.62 6043.752 5.062654 582854.12 6044.919 5.047845 584249.56 6046.108 5.03019 585953 6047.313 5.017863 587531.44 6048.540 5.00664 589631.87 6049.786 4.994165 590869.31 6051.050 4.977092 592748.69 6052.333 4.958952 594471.12 6053.635 4.942637 596185.5 6054.959 4.926602 597853.87 6056.300 4.913935 599159.25 6057.663 4.900752 600965.62 6059.044 4.891151 602120 6060.444 4.883668 603285.31 6061.860 4.875895 605008.69 6063.299 4.868753 606790 6064.757 4.861704 608957.31 6066.234 4.856352 611328.62 6067.729 4.851066 613567.94 6069.245 4.843417 615326.25 6070.783 4.838971 617483.5 6072.336 4.83438 619768.81 6073.910 4.830777 621756.06 6075.502 4.827178 623846.31 6077.114 4.823434 626069.56 6078.745 4.821188 628586.81 6080.396 4.820199 630641.06 6082.066 4.819574 632795.25 6083.756 4.817667 635615.5 6085.465 4.818143 637715.69 6087.191 4.817164 639874.87 6088.940 4.814031 643110.06 6090.705 4.812888 645266.25 6092.489 4.810765 647516.37 6094.296 4.809075 649911.56 6096.121 4.806963 652141.69 6097.965 4.803828 655029.87 6099.826 4.801344 657347 6101.709 4.799287 659928.12 6103.613 4.797386 662597.25 6105.533 4.795263 665709.31 6107.474 4.792657 668117.44 6109.431 4.790252 670882.5 6111.412 4.78766 673742.56 6113.409 4.785548 676546.62 6115.426 4.783642 678876.69 6117.464 4.778926 682136.75 6119.519 4.774794 685512.81 6121.597 4.772043 687790.81 6123.693 4.768761 690624.87 6125.805 4.763875 693608.87 6127.938 4.758408 696723.87 6130.091 4.751328 699811.87 6132.261 4.745073 702939.87 6134.453 4.737181 706327.87 6136.664 4.728947 709374.81 6138.893 4.72108 712022.75 6141.143 4.711417 715080.75 6143.414 4.701899 718336.69 6145.701 4.691255 721851.62 6148.007 4.680805 724919.56 6150.333 4.670039 728040.44 6152.680 4.660845 730996.37 6155.045 4.650513 734571.25 6157.428 4.639641 738009.12 6159.832 4.630181 741307 6162.256 4.619829 745130.87 6164.699 4.611208 748382.75 6167.160 4.601661 751823.62 6169.641 4.593217 754875.44 6172.141 4.585151 758304.31 6174.659 4.576066 762503.12 6177.198 4.567525 766401.94 6179.755 4.559532 769357.75 6182.334 4.55184 773017.56 6184.931 4.544181 776506.31 6187.547 4.535994 780323.12 6190.184 4.528426 783583.87 6192.840 4.520289 787772.62 6195.510 4.513028 791074.37 6198.205 4.505384 794887.12 6200.916 4.497014 799180.87 6203.648 4.489088 802813.62 6206.401 4.47993 807197.31 6209.170 4.471967 810827.06 6211.959 4.464381 814654.75 6214.771 4.456139 818098.44 6217.597 4.448093 822530.12 6220.446 4.440316 826211.81 6223.313 4.432464 830564.44 6226.200 4.425125 834474.12 6229.105 4.416712 838871.75 6232.031 4.40908 842890.37 6234.974 4.400963 845001 6237.938 4.392931 841755.62 6240.920 4.38536 854304.25 6243.922 4.374706 840280.87 6246.944 4.36889 861653.44 6249.984 4.361522 867036 6253.044 4.352052 872013.62 6256.125 4.343526 876107.19 6259.224 4.334809 880357.75 6262.339 4.325404 885067.25 6265.478 4.316502 888934.81 6268.634 4.307076 893531.31 6271.812 4.296515 897750.87 6275.007 4.286599 902873.37 6278.222 4.276159 907186.87 6281.454 4.265727 912102.37 6284.709 4.255256 916146.87 6287.981 4.244762 921102.31 6291.272 4.234115 925779.81 6294.584 4.223625 929718.25 6297.914 4.212451 934926.69 6301.263 4.202256 939821.12 6304.633 4.191649 943535.56 6308.021 4.181129 948456 6311.429 4.170277 953501.37 6314.854 4.159654 958288.81 6318.302 4.149402 962971.19 6321.765 4.13913 967626.56 6325.252 4.128019 973627.94 6328.757 4.118029 977649.31 6332.279 4.107425 982471.69 6335.822 4.096541 987228 6339.383 4.086404 991732.37 6342.965 4.076044 996528.69 6346.564 4.064493 1002840 6350.186 4.053698 1007678.3 6353.825 4.042641 1012715.6 6357.485 4.032131 1017736.9 6361.163 4.021318 1022622.3 6364.859 4.010274 1027819.5 6368.574 3.999397 1033331.8 6372.310 3.989118 1038415 6376.067 3.978321 1043440.3 6379.840 3.96742 1049025.5 6383.634 3.956851 1053984.8 6387.447 3.946189 1059038 6391.279 3.935867 1064124.3 6395.132 3.924685 1070201.4 6399.003 3.914431 1075205.6 6402.892 3.90377 1081192.8 6406.801 3.892838 1086391 6410.732 3.882514 1091234.1 6414.680 3.871383 1096276.3 6418.646 3.860066 1102669.5 6422.634 3.849364 1107395.6 6426.639 3.837846 1114424.8 6430.667 3.827029 1118395.9 6434.708 3.815395 1124140 6438.774 3.803963 1130459.1 6442.859 3.792347 1134725.1 6446.960 3.780582 1140896.3 6451.083 3.768634 1146600.4 6455.224 3.757113 1151942.4 6459.383 3.744958 1157250.5 6463.562 3.733255 1163623.5 6467.761 3.72157 1168761.5 6471.983 3.709371 1174244.6 6476.218 3.697445 1180913.6 6480.477 3.685486 1186262.6 6484.751 3.673406 1191094.6 6489.047 3.661319 1197185.6 6493.363 3.648948 1203463.6 6497.698 3.63659 1208850.6 6502.050 3.624357 1214637.6 6506.422 3.611994 1220502.5 6510.816 3.599474 1226101.5 6515.229 3.587169 1232143.5 6519.660 3.574739 1237448.4 6524.107 3.562299 1243620.3 6528.581 3.549677 1249987.3 6533.069 3.537525 1255523.1 6537.576 3.525058 1262451 6542.103 3.512533 1268570.9 6546.648 3.500271 1273550.8 6551.214 3.487591 1279486.6 6555.801 3.47561 1286290.5 6560.406 3.463063 1292338.4 6565.029 3.450993 1298591.3 6569.672 3.438581 1304279.1 6574.334 3.426071 1310577.9 6579.018 3.413813 1317274.8 6583.718 3.401638 1323302.5 6588.438 3.389478 1329129.4 6593.179 3.377185 1334649.1 6597.937 3.364678 1342383.9 6602.715 3.352572 1347659.6 6607.515 3.340124 1354154.5 6612.332 3.327652 1360111.3 6617.168 3.315317 1367192 6622.022 3.302627 1372319.8 6626.896 3.290328 1378525.4 6631.792 3.277792 1384602.1 6636.706 3.265362 1390904.9 6641.639 3.252738 1398665.5 6646.591 3.240219 1402711.3 6651.562 3.227062 1409801.9 6656.551 3.214874 1416420.6 6661.564 3.202378 1422013.3 6666.592 3.189543 1428487.9 6671.640 3.177043 1434230.6 6676.710 3.164066 1441291.3 6681.795 3.15141 1446805.9 6686.901 3.138583 1452373.5 6692.030 3.12582 1459276.1 6697.175 3.113148 1464124.6 6702.338 3.100192 1468025.3 6707.522 3.087311 1470618.9 6712.727 3.074605 1441177.4 6717.946 3.059605 1447916 6723.190 3.048762 1488915.5 6728.450 3.035509 1510259.1 6733.730 3.022467 1514220.6 6739.030 3.009383 1505251.1 6744.350 2.996035 1524752.8 6749.687 2.982841 1526672.3 6755.044 2.969575 1544494.8 6760.422 2.956529 1545637.3 6765.816 2.94294 1522221.8 6771.236 2.930037 1560584.1 6776.667 2.917005 1562419.6 6782.124 2.904015 1550873.1 6787.598 2.889794 1508040.5 6793.088 2.878305 1567556 6798.600 2.864951 1604430.4 6804.133 2.851785 1606223.9 6809.683 2.838811 1609901.3 6815.254 2.825801 1615401.6 6820.842 2.812687 1621557 6826.448 2.799592 1628079.5 6832.076 2.786453 1632869.9 6837.726 2.773328 1639328.3 6843.393 2.76024 1645529.5 6849.077 2.74707 1651529.9 6854.784 2.733934 1657964.3 6860.508 2.72082 1662921.6 6866.250 2.707732 1669100.9 ifeffit-1.2.11d/examples/Data_Processing/random.iff0000644000175000017500000000124610771740461021213 0ustar segresegre# # tests of random() command and distributions macro stats m.x "simple statistics for an array" mean = vsum($1)/npts($1) variance = vsum($1*$1)/npts($1) - mean*mean std_dev = sqrt(variance) print ' npts, max, min, mean, std_dev' print npts($1), ceil($1), floor($1), mean, std_dev end macro random(npts=4000, output=my.x, dist=normal,sigma=2.) echo 'my.x : normal-distribution of random numbers, sigma=2:' stats my.x random(npts=4000,output=my.x, dist=gauss,sigma=2.) echo 'my.x : gaussian-distribution of random numbers, sigma=2:' stats my.x random(npts=4000,output=my.x, dist=uniform) echo 'my.x : uniform-distribution of random numbers:' stats my.x ifeffit-1.2.11d/examples/Data_Processing/cu10k.dat0000644000175000017500000004756110771740461020674 0ustar segresegre# Cu foil at 10K ## cu10k.dat : this file is part of the uwxafs 3.0 distribution # data taken at NSLS beamline X-11A Sept 1992 # by M Newville, B Ravel, and Y Zhang # foil of 99.999% Cu rolled and annealled to ~12 microns # sample prepared by M Newville # From X-11A : # 2-SI111 HC/2D= 1977.260 STPDEG=6400. STPMMZ= 40. # FOCUS=F TRANSLT=F E0= 8980.0 NREG= 3 NPTS= 611 NSCLRS= 3 EF= .0 # SRB= -193.7 -43.5 30.0 2381.3 # DEL= 10.020 .483 .050K # SEC= 1.000 1.000 1.000 # DETECTORSI0 I If # GAINS 8 7 10 # OFFSETS 51284 50016 48319 #--------------------------------------------------------------------- # energy xmu .8786204E+04 .1013661E+01 .8796258E+04 .9949864E+00 .8806253E+04 .9900679E+00 .8816270E+04 .9850345E+00 .8826270E+04 .9801005E+00 .8836292E+04 .9751812E+00 .8846337E+04 .9703809E+00 .8856322E+04 .9656931E+00 .8866372E+04 .9609839E+00 .8876361E+04 .9562312E+00 .8886416E+04 .9515597E+00 .8896409E+04 .9472797E+00 .8906425E+04 .9427789E+00 .8916464E+04 .9387816E+00 .8926483E+04 .9347627E+00 .8936483E+04 .9319326E+00 .8936998E+04 .9318979E+00 .8937471E+04 .9319605E+00 .8937944E+04 .9317057E+00 .8938417E+04 .9314675E+00 .8938976E+04 .9315093E+00 .8939406E+04 .9315045E+00 .8939878E+04 .9313901E+00 .8940352E+04 .9313291E+00 .8940824E+04 .9312409E+00 .8941384E+04 .9311222E+00 .8941814E+04 .9310213E+00 .8942287E+04 .9309021E+00 .8942761E+04 .9307298E+00 .8943319E+04 .9306122E+00 .8943793E+04 .9304990E+00 .8944224E+04 .9306326E+00 .8944697E+04 .9305469E+00 .8945257E+04 .9303982E+00 .8945730E+04 .9303880E+00 .8946204E+04 .9303346E+00 .8946635E+04 .9303558E+00 .8947108E+04 .9302956E+00 .8947668E+04 .9302498E+00 .8948143E+04 .9302464E+00 .8948616E+04 .9301887E+00 .8949048E+04 .9302589E+00 .8949564E+04 .9302350E+00 .8950038E+04 .9301157E+00 .8950513E+04 .9302852E+00 .8950987E+04 .9301982E+00 .8951461E+04 .9303481E+00 .8951979E+04 .9303330E+00 .8952453E+04 .9302519E+00 .8952927E+04 .9303452E+00 .8953401E+04 .9304274E+00 .8953876E+04 .9305623E+00 .8954394E+04 .9306202E+00 .8954868E+04 .9307082E+00 .8955343E+04 .9309137E+00 .8955817E+04 .9310440E+00 .8956336E+04 .9311512E+00 .8956811E+04 .9312306E+00 .8957285E+04 .9314795E+00 .8957761E+04 .9315805E+00 .8958235E+04 .9318467E+00 .8958710E+04 .9322639E+00 .8959229E+04 .9325585E+00 .8959703E+04 .9327140E+00 .8960179E+04 .9331298E+00 .8960654E+04 .9333592E+00 .8961130E+04 .9338366E+00 .8961647E+04 .9340628E+00 .8962123E+04 .9345798E+00 .8962599E+04 .9350846E+00 .8963074E+04 .9357670E+00 .8963550E+04 .9363439E+00 .8964068E+04 .9371685E+00 .8964544E+04 .9378253E+00 .8965020E+04 .9386100E+00 .8965496E+04 .9393651E+00 .8965972E+04 .9404053E+00 .8966447E+04 .9413668E+00 .8966967E+04 .9426652E+00 .8967442E+04 .9440842E+00 .8967919E+04 .9458520E+00 .8968395E+04 .9469061E+00 .8968871E+04 .9484839E+00 .8969347E+04 .9510049E+00 .8969909E+04 .9537250E+00 .8970386E+04 .9559226E+00 .8970862E+04 .9591411E+00 .8971339E+04 .9638383E+00 .8971772E+04 .9658701E+00 .8972248E+04 .9704646E+00 .8972812E+04 .9777987E+00 .8973288E+04 .9857215E+00 .8973765E+04 .9959283E+00 .8974198E+04 .1004012E+01 .8974675E+04 .1025727E+01 .8975151E+04 .1041380E+01 .8975628E+04 .1065133E+01 .8976192E+04 .1129467E+01 .8976626E+04 .1208882E+01 .8977103E+04 .1347811E+01 .8977580E+04 .1576825E+01 .8978057E+04 .1781245E+01 .8978534E+04 .1922731E+01 .8979055E+04 .1990812E+01 .8979531E+04 .2014387E+01 .8980009E+04 .2006267E+01 .8980486E+04 .1985342E+01 .8980964E+04 .1960698E+01 .8981441E+04 .1948155E+01 .8981919E+04 .1962577E+01 .8982396E+04 .1988741E+01 .8982918E+04 .2034157E+01 .8983396E+04 .2087115E+01 .8983873E+04 .2129985E+01 .8984352E+04 .2166079E+01 .8984829E+04 .2204677E+01 .8985307E+04 .2266785E+01 .8985785E+04 .2305345E+01 .8986307E+04 .2377522E+01 .8986784E+04 .2447587E+01 .8987263E+04 .2550736E+01 .8987741E+04 .2628802E+01 .8988219E+04 .2739306E+01 .8988697E+04 .2846921E+01 .8989176E+04 .2926129E+01 .8989653E+04 .3004384E+01 .8990132E+04 .3103122E+01 .8990698E+04 .3211040E+01 .8991133E+04 .3253994E+01 .8991611E+04 .3299688E+01 .8992090E+04 .3307443E+01 .8992568E+04 .3292812E+01 .8993048E+04 .3270622E+01 .8993526E+04 .3232157E+01 .8994006E+04 .3193880E+01 .8994484E+04 .3153873E+01 .8995007E+04 .3110148E+01 .8995485E+04 .3076609E+01 .8995965E+04 .3057663E+01 .8996444E+04 .3044436E+01 .8996924E+04 .3038896E+01 .8997402E+04 .3047299E+01 .8997882E+04 .3067514E+01 .8998361E+04 .3100560E+01 .8998840E+04 .3164385E+01 .8999319E+04 .3198286E+01 .8999799E+04 .3253436E+01 .9000366E+04 .3303922E+01 .9000803E+04 .3341708E+01 .9001281E+04 .3359158E+01 .9001762E+04 .3356086E+01 .9002241E+04 .3337021E+01 .9002721E+04 .3294590E+01 .9003201E+04 .3271427E+01 .9003681E+04 .3230007E+01 .9004161E+04 .3208134E+01 .9004642E+04 .3151590E+01 .9005121E+04 .3126171E+01 .9005602E+04 .3094709E+01 .9006125E+04 .3063252E+01 .9006605E+04 .3043238E+01 .9007086E+04 .3022431E+01 .9007566E+04 .2994922E+01 .9008047E+04 .2975828E+01 .9008526E+04 .2955377E+01 .9009007E+04 .2941575E+01 .9009487E+04 .2933227E+01 .9009969E+04 .2931259E+01 .9011062E+04 .2941681E+01 .9012153E+04 .2955967E+01 .9013246E+04 .2980734E+01 .9014384E+04 .3008692E+01 .9015565E+04 .3061603E+01 .9016746E+04 .3111765E+01 .9017928E+04 .3151268E+01 .9019154E+04 .3209008E+01 .9020380E+04 .3265456E+01 .9021606E+04 .3309451E+01 .9022877E+04 .3344066E+01 .9024191E+04 .3347933E+01 .9025464E+04 .3317408E+01 .9026822E+04 .3256685E+01 .9028140E+04 .3197553E+01 .9029499E+04 .3127461E+01 .9030903E+04 .3074151E+01 .9032309E+04 .3038878E+01 .9033759E+04 .3014589E+01 .9035164E+04 .3009469E+01 .9036615E+04 .3019048E+01 .9038109E+04 .3042527E+01 .9039604E+04 .3064316E+01 .9041145E+04 .3070378E+01 .9042642E+04 .3060592E+01 .9044271E+04 .3049929E+01 .9045768E+04 .3056479E+01 .9047397E+04 .3083377E+01 .9049029E+04 .3111159E+01 .9050616E+04 .3117680E+01 .9052336E+04 .3112090E+01 .9053969E+04 .3114585E+01 .9055646E+04 .3135969E+01 .9057324E+04 .3166758E+01 .9059047E+04 .3194733E+01 .9060814E+04 .3212787E+01 .9062627E+04 .3230845E+01 .9064353E+04 .3252570E+01 .9066166E+04 .3285908E+01 .9067981E+04 .3320478E+01 .9069842E+04 .3347080E+01 .9071702E+04 .3347973E+01 .9073563E+04 .3322422E+01 .9075470E+04 .3270037E+01 .9077377E+04 .3199704E+01 .9079329E+04 .3141443E+01 .9081283E+04 .3096301E+01 .9083237E+04 .3056642E+01 .9085281E+04 .3035020E+01 .9087237E+04 .3030587E+01 .9089283E+04 .3008554E+01 .9091330E+04 .2954597E+01 .9093378E+04 .2905036E+01 .9095472E+04 .2869176E+01 .9097610E+04 .2861018E+01 .9099705E+04 .2881511E+01 .9101847E+04 .2917772E+01 .9104033E+04 .2965204E+01 .9106221E+04 .3017964E+01 .9108409E+04 .3067991E+01 .9110644E+04 .3100566E+01 .9112879E+04 .3107379E+01 .9115160E+04 .3090957E+01 .9117398E+04 .3071216E+01 .9119728E+04 .3065036E+01 .9122057E+04 .3105295E+01 .9124389E+04 .3203622E+01 .9126721E+04 .3327629E+01 .9129099E+04 .3390544E+01 .9131478E+04 .3393080E+01 .9133904E+04 .3363564E+01 .9136331E+04 .3334324E+01 .9138805E+04 .3300580E+01 .9141279E+04 .3238897E+01 .9143756E+04 .3156461E+01 .9146233E+04 .3055825E+01 .9148803E+04 .2946566E+01 .9151328E+04 .2839257E+01 .9153899E+04 .2747080E+01 .9156474E+04 .2689709E+01 .9159094E+04 .2682628E+01 .9161716E+04 .2730871E+01 .9164339E+04 .2816572E+01 .9167009E+04 .2917572E+01 .9169681E+04 .3016081E+01 .9172399E+04 .3080977E+01 .9175074E+04 .3115732E+01 .9177842E+04 .3108910E+01 .9180564E+04 .3070012E+01 .9183381E+04 .3033550E+01 .9186153E+04 .3015555E+01 .9188973E+04 .3007977E+01 .9191794E+04 .2979829E+01 .9194663E+04 .2938781E+01 .9197533E+04 .2929960E+01 .9200406E+04 .2976179E+01 .9203326E+04 .3073268E+01 .9206247E+04 .3170151E+01 .9209217E+04 .3203155E+01 .9212143E+04 .3206142E+01 .9215115E+04 .3190300E+01 .9218183E+04 .3147204E+01 .9221160E+04 .3071421E+01 .9224185E+04 .2977321E+01 .9227258E+04 .2889161E+01 .9230333E+04 .2822056E+01 .9233502E+04 .2781351E+01 .9236581E+04 .2763039E+01 .9239755E+04 .2769146E+01 .9242838E+04 .2800158E+01 .9246016E+04 .2822845E+01 .9249196E+04 .2821907E+01 .9252425E+04 .2826751E+01 .9255655E+04 .2834598E+01 .9258889E+04 .2837595E+01 .9262171E+04 .2852731E+01 .9265454E+04 .2884891E+01 .9268787E+04 .2914335E+01 .9272122E+04 .2934046E+01 .9275459E+04 .2943820E+01 .9278800E+04 .2944769E+01 .9282188E+04 .2942882E+01 .9285580E+04 .2952354E+01 .9289021E+04 .2967295E+01 .9292465E+04 .2986871E+01 .9295910E+04 .3003432E+01 .9299404E+04 .2981879E+01 .9302949E+04 .2933500E+01 .9306403E+04 .2889045E+01 .9309953E+04 .2840568E+01 .9313506E+04 .2796097E+01 .9317061E+04 .2775838E+01 .9320666E+04 .2781760E+01 .9324320E+04 .2801508E+01 .9327932E+04 .2816890E+01 .9331592E+04 .2803144E+01 .9335256E+04 .2763032E+01 .9338922E+04 .2711823E+01 .9342639E+04 .2687955E+01 .9346358E+04 .2711813E+01 .9350128E+04 .2737134E+01 .9353900E+04 .2737934E+01 .9357677E+04 .2748922E+01 .9361455E+04 .2765675E+01 .9365285E+04 .2773098E+01 .9369165E+04 .2781047E+01 .9373048E+04 .2789819E+01 .9376840E+04 .2797477E+01 .9380777E+04 .2804734E+01 .9384671E+04 .2809786E+01 .9388614E+04 .2812114E+01 .9392563E+04 .2813700E+01 .9396561E+04 .2814358E+01 .9400515E+04 .2809979E+01 .9404567E+04 .2793399E+01 .9408576E+04 .2760490E+01 .9412637E+04 .2718249E+01 .9416700E+04 .2683656E+01 .9420768E+04 .2671065E+01 .9424935E+04 .2671632E+01 .9429010E+04 .2681260E+01 .9433184E+04 .2696438E+01 .9437313E+04 .2704987E+01 .9441495E+04 .2701200E+01 .9445729E+04 .2686653E+01 .9449966E+04 .2657398E+01 .9454208E+04 .2628573E+01 .9458453E+04 .2623585E+01 .9462702E+04 .2633209E+01 .9467004E+04 .2630277E+01 .9471358E+04 .2616724E+01 .9475668E+04 .2610234E+01 .9480029E+04 .2609877E+01 .9484396E+04 .2618066E+01 .9488814E+04 .2632820E+01 .9493189E+04 .2645850E+01 .9497665E+04 .2661480E+01 .9502097E+04 .2680759E+01 .9506581E+04 .2696983E+01 .9511118E+04 .2702235E+01 .9515563E+04 .2694176E+01 .9520109E+04 .2669260E+01 .9524611E+04 .2625398E+01 .9529265E+04 .2580381E+01 .9533775E+04 .2561563E+01 .9538438E+04 .2556394E+01 .9543007E+04 .2555007E+01 .9547679E+04 .2552842E+01 .9552306E+04 .2553917E+01 .9556986E+04 .2558074E+01 .9561673E+04 .2558972E+01 .9566462E+04 .2552003E+01 .9571157E+04 .2546721E+01 .9575956E+04 .2543460E+01 .9580661E+04 .2535349E+01 .9585470E+04 .2517931E+01 .9590283E+04 .2509453E+01 .9595102E+04 .2508878E+01 .9599976E+04 .2507338E+01 .9604854E+04 .2511822E+01 .9609737E+04 .2515893E+01 .9614625E+04 .2514758E+01 .9619568E+04 .2514053E+01 .9624518E+04 .2518860E+01 .9629471E+04 .2526326E+01 .9634431E+04 .2524162E+01 .9639445E+04 .2515393E+01 .9644466E+04 .2505588E+01 .9649541E+04 .2495945E+01 .9654571E+04 .2489619E+01 .9659708E+04 .2480515E+01 .9664750E+04 .2465866E+01 .9669847E+04 .2454911E+01 .9675001E+04 .2448600E+01 .9680159E+04 .2444625E+01 .9685324E+04 .2444391E+01 .9690545E+04 .2438542E+01 .9695722E+04 .2425891E+01 .9700953E+04 .2421363E+01 .9706243E+04 .2420298E+01 .9711486E+04 .2415727E+01 .9716788E+04 .2406582E+01 .9722094E+04 .2399528E+01 .9727407E+04 .2394548E+01 .9732776E+04 .2385773E+01 .9738204E+04 .2384001E+01 .9743535E+04 .2385557E+01 .9748923E+04 .2387176E+01 .9754317E+04 .2393320E+01 .9759769E+04 .2393286E+01 .9765227E+04 .2390265E+01 .9770742E+04 .2386799E+01 .9776212E+04 .2377775E+01 .9781793E+04 .2363987E+01 .9787275E+04 .2354141E+01 .9792816E+04 .2352211E+01 .9798416E+04 .2352589E+01 .9804022E+04 .2351565E+01 .9809584E+04 .2349586E+01 .9815254E+04 .2343184E+01 .9820880E+04 .2331066E+01 .9826564E+04 .2319885E+01 .9832308E+04 .2309800E+01 .9837953E+04 .2302536E+01 .9843659E+04 .2298680E+01 .9849422E+04 .2294200E+01 .9855192E+04 .2287658E+01 .9860971E+04 .2282896E+01 .9866755E+04 .2277700E+01 .9872600E+04 .2273120E+01 .9878450E+04 .2271066E+01 .9884310E+04 .2266972E+01 .9890175E+04 .2263576E+01 .9896100E+04 .2263998E+01 .9901980E+04 .2264150E+01 .9907920E+04 .2261573E+01 .9913867E+04 .2257439E+01 .9919876E+04 .2252447E+01 .9925838E+04 .2245956E+01 .9931859E+04 .2240462E+01 .9937890E+04 .2235462E+01 .9943980E+04 .2228760E+01 .9950025E+04 .2219993E+01 .9956132E+04 .2213546E+01 .9962300E+04 .2207783E+01 .9968367E+04 .2204902E+01 .9974497E+04 .2202134E+01 .9980687E+04 .2199268E+01 .9986832E+04 .2191243E+01 .9993038E+04 .2184893E+01 .9999253E+04 .2181988E+01 .1000553E+05 .2175889E+01 .1001176E+05 .2168400E+01 .1001805E+05 .2161425E+01 .1002435E+05 .2155688E+01 .1003066E+05 .2151178E+01 .1003703E+05 .2145570E+01 .1004336E+05 .2139351E+01 .1004974E+05 .2135055E+01 .1005614E+05 .2131782E+01 .1006254E+05 .2131762E+01 .1006896E+05 .2132080E+01 .1007543E+05 .2127986E+01 .1008192E+05 .2122787E+01 .1008846E+05 .2116560E+01 .1009491E+05 .2112059E+01 .1010142E+05 .2107203E+01 .1010794E+05 .2101453E+01 .1011452E+05 .2094787E+01 .1012111E+05 .2089134E+01 .1012771E+05 .2082759E+01 .1013432E+05 .2078182E+01 .1014105E+05 .2073463E+01 .1014768E+05 .2068076E+01 .1015431E+05 .2063473E+01 .1016101E+05 .2061048E+01 .1016778E+05 .2055853E+01 .1017449E+05 .2049533E+01 .1018128E+05 .2042940E+01 .1018807E+05 .2036571E+01 .1019482E+05 .2031228E+01 .1020163E+05 .2026054E+01 .1020845E+05 .2021201E+01 .1021528E+05 .2017216E+01 .1022217E+05 .2014019E+01 .1022913E+05 .2011350E+01 .1023599E+05 .2007960E+01 .1024286E+05 .2003555E+01 .1024985E+05 .1997455E+01 .1025679E+05 .1991910E+01 .1026380E+05 .1988298E+01 .1027082E+05 .1983455E+01 .1027785E+05 .1978791E+01 .1028489E+05 .1974810E+01 .1029188E+05 .1969660E+01 .1029905E+05 .1964434E+01 .1030612E+05 .1960277E+01 .1031320E+05 .1955222E+01 .1032041E+05 .1949610E+01 .1032750E+05 .1943582E+01 .1033473E+05 .1937461E+01 .1034185E+05 .1931902E+01 .1034909E+05 .1926781E+01 .1035635E+05 .1922293E+01 .1036361E+05 .1918179E+01 .1037089E+05 .1913225E+01 .1037817E+05 .1908101E+01 .1038547E+05 .1902590E+01 .1039278E+05 .1897350E+01 .1040010E+05 .1892302E+01 .1040748E+05 .1888240E+01 .1041482E+05 .1884945E+01 .1042223E+05 .1880880E+01 .1042965E+05 .1875209E+01 .1043714E+05 .1869117E+01 .1044458E+05 .1864810E+01 .1045203E+05 .1859730E+01 .1045955E+05 .1854703E+01 .1046708E+05 .1850927E+01 .1047463E+05 .1846062E+01 .1048218E+05 .1841454E+01 .1048975E+05 .1836949E+01 .1049732E+05 .1832029E+01 .1050497E+05 .1827266E+01 .1051257E+05 .1822091E+01 .1052024E+05 .1816615E+01 .1052792E+05 .1811286E+01 .1053562E+05 .1806091E+01 .1054332E+05 .1801056E+01 .1055104E+05 .1795975E+01 .1055877E+05 .1790457E+01 .1056650E+05 .1784985E+01 .1057432E+05 .1779817E+01 .1058220E+05 .1774830E+01 .1058991E+05 .1770077E+01 .1059776E+05 .1765584E+01 .1060562E+05 .1761346E+01 .1061355E+05 .1756188E+01 .1062143E+05 .1751146E+01 .1062933E+05 .1745866E+01 .1063730E+05 .1741325E+01 .1064521E+05 .1736995E+01 .1065321E+05 .1732137E+01 .1066121E+05 .1727265E+01 .1066923E+05 .1722011E+01 .1067726E+05 .1716960E+01 .1068530E+05 .1711949E+01 .1069335E+05 .1707255E+01 .1070154E+05 .1702657E+01 .1070956E+05 .1698036E+01 .1071771E+05 .1692923E+01 .1072581E+05 .1688424E+01 .1073399E+05 .1683495E+01 .1074224E+05 .1678441E+01 .1075038E+05 .1673326E+01 .1075860E+05 .1668216E+01 .1076683E+05 .1662904E+01 .1077514E+05 .1657390E+01 .1078339E+05 .1652672E+01 .1079172E+05 .1647545E+01 .1080000E+05 .1642962E+01 .1080836E+05 .1638716E+01 .1081673E+05 .1634322E+01 .1082505E+05 .1629474E+01 .1083345E+05 .1624254E+01 .1084186E+05 .1619885E+01 .1085041E+05 .1614815E+01 .1085878E+05 .1610030E+01 .1086723E+05 .1605274E+01 .1087576E+05 .1600137E+01 .1088423E+05 .1595601E+01 .1089285E+05 .1590329E+01 .1090129E+05 .1585683E+01 .1090994E+05 .1580797E+01 .1091847E+05 .1576162E+01 .1092708E+05 .1571243E+01 .1093570E+05 .1566459E+01 .1094440E+05 .1561783E+01 .1095299E+05 .1556788E+01 .1096165E+05 .1551967E+01 .1097040E+05 .1546871E+01 .1097909E+05 .1541756E+01 .1098786E+05 .1536987E+01 .1099665E+05 .1531856E+01 .1100532E+05 .1527318E+01 .1101414E+05 .1522359E+01 .1102297E+05 .1517451E+01 .1103181E+05 .1512805E+01 .1104067E+05 .1507971E+01 .1104954E+05 .1503313E+01 .1105843E+05 .1498878E+01 .1106733E+05 .1493591E+01 .1107625E+05 .1489248E+01 .1108518E+05 .1484389E+01 .1109412E+05 .1479586E+01 .1110315E+05 .1475953E+01 .1111213E+05 .1470389E+01 .1112125E+05 .1465458E+01 .1113019E+05 .1460824E+01 .1113934E+05 .1456106E+01 .1114838E+05 .1451418E+01 .1115743E+05 .1446648E+01 .1116656E+05 .1441941E+01 .1117578E+05 .1437189E+01 .1118487E+05 .1432610E+01 .1119405E+05 .1427790E+01 .1120331E+05 .1422876E+01 .1121245E+05 .1418740E+01 .1122168E+05 .1413546E+01 .1123098E+05 .1408856E+01 .1124017E+05 .1404290E+01 .1124951E+05 .1399685E+01 .1125880E+05 .1395006E+01 .1126817E+05 .1390236E+01 .1127755E+05 .1385646E+01 .1128682E+05 .1381390E+01 .1129624E+05 .1376596E+01 .1130560E+05 .1371654E+01 .1131505E+05 .1367242E+01 .1132452E+05 .1362544E+01 .1133393E+05 .1358360E+01 .1134343E+05 .1353479E+01 .1135294E+05 .1349326E+01 .1136247E+05 .1344309E+01 ifeffit-1.2.11d/examples/help.iff0000644000175000017500000000072510771740461015617 0ustar segresegreecho " " echo " This is the Help File in the Ifeffit Example Directory" echo " " echo " To run any of the example scripts in this directory or one of " echo " the subdirectories, either run the script from the system prompt:" echo " ~> ifeffit script.iff " echo " " echo " or from within the Ifeffit environment: " echo " ~> ifeffit" echo " Ifeffit> load script.iff" echo " " echo " A brief description of each example script is given in the README file" exit ifeffit-1.2.11d/examples/feff/0000755000175000017500000000000010771740461015103 5ustar segresegreifeffit-1.2.11d/examples/feff/feff0007.dat0000644000175000017500000001235510771740461017020 0ustar segresegre Cu metal fcc a=3.603 Feff XX 6.10 Abs Z=29 Rmt= 1.289 Rnm= 1.424 K shell Pot 1 Z=29 Rmt= 1.272 Rnm= 1.392 Gam_ch=1.761E+00 H-L exch Mu=-5.535E+00 kf=1.806E+00 Vint=-1.796E+01 Rs_int= 2.008 Path 7 icalc 2 ----------------------------------------------------------------------- 3 96.000 4.7543 2.6300 -5.53502 nleg, deg, reff, rnrmav(bohr), edge x y z pot at# .0000 .0000 .0000 0 29 Cu absorbing atom 1.8016 3.6032 -1.8016 1 29 Cu 1.8016 1.8016 .0000 1 29 Cu k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# .000 3.5015E+00 0.0000E+00 -1.8125E+00 9.872E-01 1.5637E+01 1.8071E+00 .100 3.5020E+00 1.4331E-02 -2.7372E+00 9.873E-01 1.5660E+01 1.8098E+00 .200 3.5035E+00 2.7880E-02 -3.6102E+00 9.877E-01 1.5726E+01 1.8177E+00 .300 3.5060E+00 4.0009E-02 -4.4333E+00 9.882E-01 1.5831E+01 1.8309E+00 .400 3.5093E+00 5.0315E-02 -5.2086E+00 9.890E-01 1.5963E+01 1.8491E+00 .500 3.5132E+00 5.8657E-02 -5.9389E+00 9.901E-01 1.6111E+01 1.8724E+00 .600 3.5175E+00 6.5112E-02 -6.6268E+00 9.915E-01 1.6258E+01 1.9005E+00 .700 3.5218E+00 6.9907E-02 -7.2748E+00 9.932E-01 1.6388E+01 1.9332E+00 .800 3.5258E+00 7.3331E-02 -7.8846E+00 9.953E-01 1.6481E+01 1.9704E+00 .900 3.5291E+00 7.5679E-02 -8.4579E+00 9.978E-01 1.6522E+01 2.0119E+00 1.000 3.5311E+00 7.7212E-02 -8.9957E+00 1.001E+00 1.6496E+01 2.0575E+00 1.100 3.5315E+00 7.8143E-02 -9.4988E+00 1.004E+00 1.6396E+01 2.1070E+00 1.200 3.5296E+00 7.8632E-02 -9.9679E+00 1.008E+00 1.6217E+01 2.1605E+00 1.300 3.5247E+00 7.8794E-02 -1.0403E+01 1.013E+00 1.5965E+01 2.2177E+00 1.400 3.5164E+00 7.8706E-02 -1.0805E+01 1.018E+00 1.5649E+01 2.2786E+00 1.500 3.5039E+00 7.8414E-02 -1.1174E+01 1.024E+00 1.5286E+01 2.3431E+00 1.600 3.4866E+00 7.7943E-02 -1.1510E+01 1.030E+00 1.4895E+01 2.4113E+00 1.700 3.4640E+00 7.7295E-02 -1.1813E+01 1.036E+00 1.4497E+01 2.4830E+00 1.800 3.4354E+00 7.6459E-02 -1.2084E+01 1.043E+00 1.4117E+01 2.5584E+00 1.900 3.4002E+00 7.5404E-02 -1.2323E+01 1.048E+00 1.3776E+01 2.6374E+00 2.000 3.3581E+00 7.4088E-02 -1.2529E+01 1.053E+00 1.3497E+01 2.7201E+00 2.200 3.2511E+00 7.0460E-02 -1.2846E+01 1.059E+00 1.3207E+01 2.8970E+00 2.400 3.1362E+00 7.3011E-02 -1.2888E+01 1.230E+00 7.5606E+00 3.0883E+00 2.600 3.1585E+00 6.1728E-02 -1.3391E+01 1.303E+00 6.1535E+00 3.2191E+00 2.800 3.1545E+00 4.9840E-02 -1.3869E+01 1.326E+00 5.6163E+00 3.3579E+00 3.000 3.1151E+00 3.7170E-02 -1.4225E+01 1.321E+00 5.3982E+00 3.5040E+00 3.200 3.0550E+00 2.5188E-02 -1.4539E+01 1.304E+00 5.3389E+00 3.6566E+00 3.400 2.9887E+00 1.4730E-02 -1.4717E+01 1.281E+00 5.3735E+00 3.8150E+00 3.600 2.9054E+00 5.7665E-03 -1.4466E+01 1.256E+00 5.4705E+00 3.9784E+00 3.800 2.8228E+00 6.7265E-03 -1.3022E+01 1.229E+00 5.6121E+00 4.1461E+00 4.000 2.7282E+00 1.4551E-02 -1.2815E+01 1.206E+00 5.7879E+00 4.3177E+00 4.200 2.6390E+00 2.2098E-02 -1.2886E+01 1.179E+00 5.9908E+00 4.4926E+00 4.400 2.5352E+00 2.9714E-02 -1.2989E+01 1.157E+00 6.2162E+00 4.6704E+00 4.600 2.4376E+00 3.7047E-02 -1.3112E+01 1.135E+00 6.4607E+00 4.8506E+00 4.800 2.3422E+00 4.3732E-02 -1.3230E+01 1.115E+00 6.7219E+00 5.0329E+00 5.000 2.2460E+00 4.9608E-02 -1.3367E+01 1.096E+00 6.9979E+00 5.2171E+00 5.200 2.1454E+00 5.5512E-02 -1.3495E+01 1.079E+00 7.2872E+00 5.4030E+00 5.400 2.0492E+00 6.0440E-02 -1.3614E+01 1.064E+00 7.5888E+00 5.5902E+00 5.600 1.9507E+00 6.4515E-02 -1.3744E+01 1.050E+00 7.9017E+00 5.7787E+00 5.800 1.8576E+00 6.8275E-02 -1.3861E+01 1.038E+00 8.2251E+00 5.9682E+00 6.000 1.7615E+00 7.0772E-02 -1.3973E+01 1.027E+00 8.5584E+00 6.1587E+00 6.500 1.5272E+00 7.3261E-02 -1.4249E+01 1.004E+00 9.4317E+00 6.6385E+00 7.000 1.2998E+00 7.0644E-02 -1.4502E+01 9.857E-01 1.0357E+01 7.1222E+00 7.500 1.0824E+00 6.3968E-02 -1.4739E+01 9.708E-01 1.1331E+01 7.6088E+00 8.000 8.7724E-01 5.4643E-02 -1.4961E+01 9.579E-01 1.2348E+01 8.0978E+00 8.500 6.8313E-01 4.3841E-02 -1.5158E+01 9.470E-01 1.3407E+01 8.5885E+00 9.000 4.9775E-01 3.2787E-02 -1.5319E+01 9.381E-01 1.4505E+01 9.0807E+00 9.500 3.2222E-01 2.2589E-02 -1.5396E+01 9.304E-01 1.5641E+01 9.5740E+00 10.000 1.4825E-01 1.4611E-02 -1.5288E+01 9.222E-01 1.6812E+01 1.0068E+01 11.000 -1.7917E-01 1.2558E-02 -1.4516E+01 9.056E-01 1.9258E+01 1.1059E+01 12.000 -4.8336E-01 1.9242E-02 -1.4489E+01 8.938E-01 2.1832E+01 1.2051E+01 13.000 -7.6646E-01 2.2992E-02 -1.4776E+01 8.879E-01 2.4527E+01 1.3045E+01 14.000 -1.0250E+00 2.2955E-02 -1.5133E+01 8.831E-01 2.7338E+01 1.4041E+01 15.000 -1.2653E+00 2.0330E-02 -1.5497E+01 8.801E-01 3.0257E+01 1.5037E+01 16.000 -1.4894E+00 1.6638E-02 -1.5833E+01 8.793E-01 3.3281E+01 1.6034E+01 17.000 -1.6950E+00 1.2525E-02 -1.6120E+01 8.776E-01 3.6404E+01 1.7031E+01 18.000 -1.8893E+00 8.7669E-03 -1.6271E+01 8.772E-01 3.9623E+01 1.8028E+01 19.000 -2.0688E+00 6.9705E-03 -1.6318E+01 8.769E-01 4.2933E+01 1.9026E+01 20.000 -2.2337E+00 7.0175E-03 -1.6359E+01 8.754E-01 4.6332E+01 2.0025E+01 ifeffit-1.2.11d/examples/feff/feff0009.dat0000644000175000017500000001235510771740461017022 0ustar segresegre Cu metal fcc a=3.603 Feff XX 6.10 Abs Z=29 Rmt= 1.289 Rnm= 1.424 K shell Pot 1 Z=29 Rmt= 1.272 Rnm= 1.392 Gam_ch=1.761E+00 H-L exch Mu=-5.535E+00 kf=1.806E+00 Vint=-1.796E+01 Rs_int= 2.008 Path 9 icalc 2 ----------------------------------------------------------------------- 3 12.000 5.0957 2.6300 -5.53502 nleg, deg, reff, rnrmav(bohr), edge x y z pot at# .0000 .0000 .0000 0 29 Cu absorbing atom .0000 -1.8016 1.8016 1 29 Cu .0000 1.8016 -1.8016 1 29 Cu k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# .000 3.5015E+00 0.0000E+00 -2.0976E+00 9.872E-01 1.5637E+01 1.8071E+00 .100 3.5020E+00 3.5177E-02 -3.0915E+00 9.873E-01 1.5660E+01 1.8098E+00 .200 3.5035E+00 6.8577E-02 -4.0355E+00 9.877E-01 1.5726E+01 1.8177E+00 .300 3.5060E+00 9.8747E-02 -4.9311E+00 9.882E-01 1.5831E+01 1.8309E+00 .400 3.5093E+00 1.2477E-01 -5.7800E+00 9.890E-01 1.5963E+01 1.8491E+00 .500 3.5132E+00 1.4630E-01 -6.5846E+00 9.901E-01 1.6111E+01 1.8724E+00 .600 3.5175E+00 1.6348E-01 -7.3469E+00 9.915E-01 1.6258E+01 1.9005E+00 .700 3.5218E+00 1.7679E-01 -8.0688E+00 9.932E-01 1.6388E+01 1.9332E+00 .800 3.5258E+00 1.8678E-01 -8.7517E+00 9.953E-01 1.6481E+01 1.9704E+00 .900 3.5291E+00 1.9404E-01 -9.3970E+00 9.978E-01 1.6522E+01 2.0119E+00 1.000 3.5311E+00 1.9903E-01 -1.0005E+01 1.001E+00 1.6496E+01 2.0575E+00 1.100 3.5315E+00 2.0209E-01 -1.0578E+01 1.004E+00 1.6396E+01 2.1070E+00 1.200 3.5296E+00 2.0341E-01 -1.1115E+01 1.008E+00 1.6217E+01 2.1605E+00 1.300 3.5247E+00 2.0309E-01 -1.1616E+01 1.013E+00 1.5965E+01 2.2177E+00 1.400 3.5164E+00 2.0114E-01 -1.2082E+01 1.018E+00 1.5649E+01 2.2786E+00 1.500 3.5039E+00 1.9751E-01 -1.2514E+01 1.024E+00 1.5286E+01 2.3431E+00 1.600 3.4866E+00 1.9216E-01 -1.2909E+01 1.030E+00 1.4895E+01 2.4113E+00 1.700 3.4640E+00 1.8502E-01 -1.3269E+01 1.036E+00 1.4497E+01 2.4830E+00 1.800 3.4354E+00 1.7610E-01 -1.3592E+01 1.043E+00 1.4117E+01 2.5584E+00 1.900 3.4002E+00 1.6545E-01 -1.3876E+01 1.048E+00 1.3776E+01 2.6374E+00 2.000 3.3581E+00 1.5322E-01 -1.4120E+01 1.053E+00 1.3497E+01 2.7201E+00 2.200 3.2511E+00 1.2507E-01 -1.4477E+01 1.059E+00 1.3207E+01 2.8970E+00 2.400 3.1362E+00 1.0739E-01 -1.4765E+01 1.230E+00 7.5606E+00 3.0883E+00 2.600 3.1585E+00 9.6432E-02 -1.5421E+01 1.303E+00 6.1535E+00 3.2191E+00 2.800 3.1545E+00 7.7058E-02 -1.5931E+01 1.326E+00 5.6163E+00 3.3579E+00 3.000 3.1151E+00 5.8087E-02 -1.6222E+01 1.321E+00 5.3982E+00 3.5040E+00 3.200 3.0550E+00 4.0299E-02 -1.6283E+01 1.304E+00 5.3389E+00 3.6566E+00 3.400 2.9887E+00 3.2183E-02 -1.6016E+01 1.281E+00 5.3735E+00 3.8150E+00 3.600 2.9054E+00 3.6706E-02 -1.5595E+01 1.256E+00 5.4705E+00 3.9784E+00 3.800 2.8228E+00 5.4747E-02 -1.5369E+01 1.229E+00 5.6121E+00 4.1461E+00 4.000 2.7282E+00 8.1501E-02 -1.5313E+01 1.206E+00 5.7879E+00 4.3177E+00 4.200 2.6390E+00 1.1394E-01 -1.5346E+01 1.179E+00 5.9908E+00 4.4926E+00 4.400 2.5352E+00 1.5246E-01 -1.5424E+01 1.157E+00 6.2162E+00 4.6704E+00 4.600 2.4376E+00 1.9320E-01 -1.5526E+01 1.135E+00 6.4607E+00 4.8506E+00 4.800 2.3422E+00 2.3516E-01 -1.5627E+01 1.115E+00 6.7219E+00 5.0329E+00 5.000 2.2460E+00 2.7380E-01 -1.5741E+01 1.096E+00 6.9979E+00 5.2171E+00 5.200 2.1454E+00 3.1294E-01 -1.5851E+01 1.079E+00 7.2872E+00 5.4030E+00 5.400 2.0492E+00 3.4940E-01 -1.5952E+01 1.064E+00 7.5888E+00 5.5902E+00 5.600 1.9507E+00 3.8057E-01 -1.6060E+01 1.050E+00 7.9017E+00 5.7787E+00 5.800 1.8576E+00 4.1159E-01 -1.6158E+01 1.038E+00 8.2251E+00 5.9682E+00 6.000 1.7615E+00 4.3677E-01 -1.6250E+01 1.027E+00 8.5584E+00 6.1587E+00 6.500 1.5272E+00 4.7717E-01 -1.6476E+01 1.004E+00 9.4317E+00 6.6385E+00 7.000 1.2998E+00 4.8519E-01 -1.6684E+01 9.857E-01 1.0357E+01 7.1222E+00 7.500 1.0824E+00 4.6421E-01 -1.6884E+01 9.708E-01 1.1331E+01 7.6088E+00 8.000 8.7724E-01 4.2551E-01 -1.7075E+01 9.579E-01 1.2348E+01 8.0978E+00 8.500 6.8313E-01 3.7904E-01 -1.7255E+01 9.470E-01 1.3407E+01 8.5885E+00 9.000 4.9775E-01 3.2904E-01 -1.7437E+01 9.381E-01 1.4505E+01 9.0807E+00 9.500 3.2222E-01 2.7942E-01 -1.7627E+01 9.304E-01 1.5641E+01 9.5740E+00 10.000 1.4825E-01 2.3373E-01 -1.7830E+01 9.222E-01 1.6812E+01 1.0068E+01 11.000 -1.7917E-01 1.6156E-01 -1.8236E+01 9.056E-01 1.9258E+01 1.1059E+01 12.000 -4.8336E-01 1.1083E-01 -1.8647E+01 8.938E-01 2.1832E+01 1.2051E+01 13.000 -7.6646E-01 7.6808E-02 -1.9076E+01 8.879E-01 2.4527E+01 1.3045E+01 14.000 -1.0250E+00 5.3988E-02 -1.9477E+01 8.831E-01 2.7338E+01 1.4041E+01 15.000 -1.2653E+00 3.8459E-02 -1.9897E+01 8.801E-01 3.0257E+01 1.5037E+01 16.000 -1.4894E+00 2.8110E-02 -2.0286E+01 8.793E-01 3.3281E+01 1.6034E+01 17.000 -1.6950E+00 2.0556E-02 -2.0671E+01 8.776E-01 3.6404E+01 1.7031E+01 18.000 -1.8893E+00 1.5663E-02 -2.1061E+01 8.772E-01 3.9623E+01 1.8028E+01 19.000 -2.0688E+00 1.1815E-02 -2.1383E+01 8.769E-01 4.2933E+01 1.9026E+01 20.000 -2.2337E+00 9.6635E-03 -2.1772E+01 8.754E-01 4.6332E+01 2.0025E+01 ifeffit-1.2.11d/examples/feff/feff0004.dat0000644000175000017500000001235510771740461017015 0ustar segresegre Cu metal fcc a=3.603 Feff XX 6.10 Abs Z=29 Rmt= 1.289 Rnm= 1.424 K shell Pot 1 Z=29 Rmt= 1.272 Rnm= 1.392 Gam_ch=1.761E+00 H-L exch Mu=-5.535E+00 kf=1.806E+00 Vint=-1.796E+01 Rs_int= 2.008 Path 4 icalc 2 ----------------------------------------------------------------------- 3 48.000 4.3494 2.6300 -5.53502 nleg, deg, reff, rnrmav(bohr), edge x y z pot at# .0000 .0000 .0000 0 29 Cu absorbing atom .0000 .0000 -3.6032 1 29 Cu .0000 1.8016 -1.8016 1 29 Cu k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# .000 3.5015E+00 0.0000E+00 -4.4874E+00 9.872E-01 1.5637E+01 1.8071E+00 .100 3.5020E+00 6.0894E-03 -5.3316E+00 9.873E-01 1.5660E+01 1.8098E+00 .200 3.5035E+00 1.1799E-02 -6.1250E+00 9.877E-01 1.5726E+01 1.8177E+00 .300 3.5060E+00 1.6822E-02 -6.8693E+00 9.882E-01 1.5831E+01 1.8309E+00 .400 3.5093E+00 2.0976E-02 -7.5667E+00 9.890E-01 1.5963E+01 1.8491E+00 .500 3.5132E+00 2.4209E-02 -8.2200E+00 9.901E-01 1.6111E+01 1.8724E+00 .600 3.5175E+00 2.6581E-02 -8.8316E+00 9.915E-01 1.6258E+01 1.9005E+00 .700 3.5218E+00 2.8221E-02 -9.4041E+00 9.932E-01 1.6388E+01 1.9332E+00 .800 3.5258E+00 2.9291E-02 -9.9395E+00 9.953E-01 1.6481E+01 1.9704E+00 .900 3.5291E+00 2.9952E-02 -1.0439E+01 9.978E-01 1.6522E+01 2.0119E+00 1.000 3.5311E+00 3.0348E-02 -1.0905E+01 1.001E+00 1.6496E+01 2.0575E+00 1.100 3.5315E+00 3.0597E-02 -1.1339E+01 1.004E+00 1.6396E+01 2.1070E+00 1.200 3.5296E+00 3.0790E-02 -1.1741E+01 1.008E+00 1.6217E+01 2.1605E+00 1.300 3.5247E+00 3.0992E-02 -1.2115E+01 1.013E+00 1.5965E+01 2.2177E+00 1.400 3.5164E+00 3.1240E-02 -1.2461E+01 1.018E+00 1.5649E+01 2.2786E+00 1.500 3.5039E+00 3.1546E-02 -1.2782E+01 1.024E+00 1.5286E+01 2.3431E+00 1.600 3.4866E+00 3.1892E-02 -1.3080E+01 1.030E+00 1.4895E+01 2.4113E+00 1.700 3.4640E+00 3.2233E-02 -1.3357E+01 1.036E+00 1.4497E+01 2.4830E+00 1.800 3.4354E+00 3.2495E-02 -1.3616E+01 1.043E+00 1.4117E+01 2.5584E+00 1.900 3.4002E+00 3.2584E-02 -1.3859E+01 1.048E+00 1.3776E+01 2.6374E+00 2.000 3.3581E+00 3.2390E-02 -1.4087E+01 1.053E+00 1.3497E+01 2.7201E+00 2.200 3.2511E+00 3.0747E-02 -1.4506E+01 1.059E+00 1.3207E+01 2.8970E+00 2.400 3.1362E+00 3.5902E-02 -1.4837E+01 1.230E+00 7.5606E+00 3.0883E+00 2.600 3.1585E+00 3.5215E-02 -1.5478E+01 1.303E+00 6.1535E+00 3.2191E+00 2.800 3.1545E+00 3.1800E-02 -1.6200E+01 1.326E+00 5.6163E+00 3.3579E+00 3.000 3.1151E+00 2.7535E-02 -1.6997E+01 1.321E+00 5.3982E+00 3.5040E+00 3.200 3.0550E+00 2.8275E-02 -1.7936E+01 1.304E+00 5.3389E+00 3.6566E+00 3.400 2.9887E+00 3.5218E-02 -1.8761E+01 1.281E+00 5.3735E+00 3.8150E+00 3.600 2.9054E+00 4.7247E-02 -1.9383E+01 1.256E+00 5.4705E+00 3.9784E+00 3.800 2.8228E+00 6.0477E-02 -1.9864E+01 1.229E+00 5.6121E+00 4.1461E+00 4.000 2.7282E+00 7.3802E-02 -2.0248E+01 1.206E+00 5.7879E+00 4.3177E+00 4.200 2.6390E+00 8.5219E-02 -2.0581E+01 1.179E+00 5.9908E+00 4.4926E+00 4.400 2.5352E+00 9.4534E-02 -2.0862E+01 1.157E+00 6.2162E+00 4.6704E+00 4.600 2.4376E+00 1.0127E-01 -2.1115E+01 1.135E+00 6.4607E+00 4.8506E+00 4.800 2.3422E+00 1.0499E-01 -2.1341E+01 1.115E+00 6.7219E+00 5.0329E+00 5.000 2.2460E+00 1.0600E-01 -2.1560E+01 1.096E+00 6.9979E+00 5.2171E+00 5.200 2.1454E+00 1.0511E-01 -2.1756E+01 1.079E+00 7.2872E+00 5.4030E+00 5.400 2.0492E+00 1.0204E-01 -2.1936E+01 1.064E+00 7.5888E+00 5.5902E+00 5.600 1.9507E+00 9.7311E-02 -2.2116E+01 1.050E+00 7.9017E+00 5.7787E+00 5.800 1.8576E+00 9.1559E-02 -2.2280E+01 1.038E+00 8.2251E+00 5.9682E+00 6.000 1.7615E+00 8.4669E-02 -2.2438E+01 1.027E+00 8.5584E+00 6.1587E+00 6.500 1.5272E+00 6.5499E-02 -2.2826E+01 1.004E+00 9.4317E+00 6.6385E+00 7.000 1.2998E+00 4.6707E-02 -2.3206E+01 9.857E-01 1.0357E+01 7.1222E+00 7.500 1.0824E+00 3.1189E-02 -2.3603E+01 9.708E-01 1.1331E+01 7.6088E+00 8.000 8.7724E-01 2.0195E-02 -2.4035E+01 9.579E-01 1.2348E+01 8.0978E+00 8.500 6.8313E-01 1.3589E-02 -2.4496E+01 9.470E-01 1.3407E+01 8.5885E+00 9.000 4.9775E-01 1.0563E-02 -2.4904E+01 9.381E-01 1.4505E+01 9.0807E+00 9.500 3.2222E-01 9.6292E-03 -2.5178E+01 9.304E-01 1.5641E+01 9.5740E+00 10.000 1.4825E-01 9.8478E-03 -2.5366E+01 9.222E-01 1.6812E+01 1.0068E+01 11.000 -1.7917E-01 1.1129E-02 -2.5721E+01 9.056E-01 1.9258E+01 1.1059E+01 12.000 -4.8336E-01 1.0938E-02 -2.6096E+01 8.938E-01 2.1832E+01 1.2051E+01 13.000 -7.6646E-01 8.8742E-03 -2.6387E+01 8.879E-01 2.4527E+01 1.3045E+01 14.000 -1.0250E+00 7.1754E-03 -2.6474E+01 8.831E-01 2.7338E+01 1.4041E+01 15.000 -1.2653E+00 6.8406E-03 -2.6551E+01 8.801E-01 3.0257E+01 1.5037E+01 16.000 -1.4894E+00 6.5818E-03 -2.6779E+01 8.793E-01 3.3281E+01 1.6034E+01 17.000 -1.6950E+00 5.8112E-03 -2.7028E+01 8.776E-01 3.6404E+01 1.7031E+01 18.000 -1.8893E+00 4.8646E-03 -2.7241E+01 8.772E-01 3.9623E+01 1.8028E+01 19.000 -2.0688E+00 4.1940E-03 -2.7353E+01 8.769E-01 4.2933E+01 1.9026E+01 20.000 -2.2337E+00 4.1983E-03 -2.7586E+01 8.754E-01 4.6332E+01 2.0025E+01 ifeffit-1.2.11d/examples/feff/feff0003.dat0000644000175000017500000001235510771740461017014 0ustar segresegre Cu metal fcc a=3.603 Feff XX 6.10 Abs Z=29 Rmt= 1.289 Rnm= 1.424 K shell Pot 1 Z=29 Rmt= 1.272 Rnm= 1.392 Gam_ch=1.761E+00 H-L exch Mu=-5.535E+00 kf=1.806E+00 Vint=-1.796E+01 Rs_int= 2.008 Path 3 icalc 2 ----------------------------------------------------------------------- 3 48.000 3.8218 2.6300 -5.53502 nleg, deg, reff, rnrmav(bohr), edge x y z pot at# .0000 .0000 .0000 0 29 Cu absorbing atom 1.8016 -1.8016 .0000 1 29 Cu 1.8016 .0000 -1.8016 1 29 Cu k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# .000 3.5015E+00 0.0000E+00 -1.2678E+00 9.872E-01 1.5637E+01 1.8071E+00 .100 3.5020E+00 7.5323E-03 -2.0135E+00 9.873E-01 1.5660E+01 1.8098E+00 .200 3.5035E+00 1.4465E-02 -2.7224E+00 9.877E-01 1.5726E+01 1.8177E+00 .300 3.5060E+00 2.0316E-02 -3.3956E+00 9.882E-01 1.5831E+01 1.8309E+00 .400 3.5093E+00 2.4802E-02 -4.0347E+00 9.890E-01 1.5963E+01 1.8491E+00 .500 3.5132E+00 2.7845E-02 -4.6414E+00 9.901E-01 1.6111E+01 1.8724E+00 .600 3.5175E+00 2.9533E-02 -5.2169E+00 9.915E-01 1.6258E+01 1.9005E+00 .700 3.5218E+00 3.0057E-02 -5.7618E+00 9.932E-01 1.6388E+01 1.9332E+00 .800 3.5258E+00 2.9641E-02 -6.2760E+00 9.953E-01 1.6481E+01 1.9704E+00 .900 3.5291E+00 2.8504E-02 -6.7584E+00 9.978E-01 1.6522E+01 2.0119E+00 1.000 3.5311E+00 2.6838E-02 -7.2068E+00 1.001E+00 1.6496E+01 2.0575E+00 1.100 3.5315E+00 2.4809E-02 -7.6175E+00 1.004E+00 1.6396E+01 2.1070E+00 1.200 3.5296E+00 2.2568E-02 -7.9849E+00 1.008E+00 1.6217E+01 2.1605E+00 1.300 3.5247E+00 2.0281E-02 -8.3010E+00 1.013E+00 1.5965E+01 2.2177E+00 1.400 3.5164E+00 1.8160E-02 -8.5559E+00 1.018E+00 1.5649E+01 2.2786E+00 1.500 3.5039E+00 1.6487E-02 -8.7410E+00 1.024E+00 1.5286E+01 2.3431E+00 1.600 3.4866E+00 1.5606E-02 -8.8598E+00 1.030E+00 1.4895E+01 2.4113E+00 1.700 3.4640E+00 1.5787E-02 -8.9391E+00 1.036E+00 1.4497E+01 2.4830E+00 1.800 3.4354E+00 1.7049E-02 -9.0199E+00 1.043E+00 1.4117E+01 2.5584E+00 1.900 3.4002E+00 1.9133E-02 -9.1286E+00 1.048E+00 1.3776E+01 2.6374E+00 2.000 3.3581E+00 2.1672E-02 -9.2686E+00 1.053E+00 1.3497E+01 2.7201E+00 2.200 3.2511E+00 2.6807E-02 -9.6068E+00 1.059E+00 1.3207E+01 2.8970E+00 2.400 3.1362E+00 4.7746E-02 -9.9257E+00 1.230E+00 7.5606E+00 3.0883E+00 2.600 3.1585E+00 6.3102E-02 -1.0391E+01 1.303E+00 6.1535E+00 3.2191E+00 2.800 3.1545E+00 7.2888E-02 -1.0917E+01 1.326E+00 5.6163E+00 3.3579E+00 3.000 3.1151E+00 8.0560E-02 -1.1422E+01 1.321E+00 5.3982E+00 3.5040E+00 3.200 3.0550E+00 8.5362E-02 -1.1938E+01 1.304E+00 5.3389E+00 3.6566E+00 3.400 2.9887E+00 8.8480E-02 -1.2432E+01 1.281E+00 5.3735E+00 3.8150E+00 3.600 2.9054E+00 9.1415E-02 -1.2896E+01 1.256E+00 5.4705E+00 3.9784E+00 3.800 2.8228E+00 9.3018E-02 -1.3324E+01 1.229E+00 5.6121E+00 4.1461E+00 4.000 2.7282E+00 9.4162E-02 -1.3713E+01 1.206E+00 5.7879E+00 4.3177E+00 4.200 2.6390E+00 9.3341E-02 -1.4085E+01 1.179E+00 5.9908E+00 4.4926E+00 4.400 2.5352E+00 9.1584E-02 -1.4399E+01 1.157E+00 6.2162E+00 4.6704E+00 4.600 2.4376E+00 8.8501E-02 -1.4686E+01 1.135E+00 6.4607E+00 4.8506E+00 4.800 2.3422E+00 8.3407E-02 -1.4941E+01 1.115E+00 6.7219E+00 5.0329E+00 5.000 2.2460E+00 7.7451E-02 -1.5189E+01 1.096E+00 6.9979E+00 5.2171E+00 5.200 2.1454E+00 7.1005E-02 -1.5401E+01 1.079E+00 7.2872E+00 5.4030E+00 5.400 2.0492E+00 6.3853E-02 -1.5592E+01 1.064E+00 7.5888E+00 5.5902E+00 5.600 1.9507E+00 5.6736E-02 -1.5780E+01 1.050E+00 7.9017E+00 5.7787E+00 5.800 1.8576E+00 4.9805E-02 -1.5941E+01 1.038E+00 8.2251E+00 5.9682E+00 6.000 1.7615E+00 4.3070E-02 -1.6096E+01 1.027E+00 8.5584E+00 6.1587E+00 6.500 1.5272E+00 2.8587E-02 -1.6480E+01 1.004E+00 9.4317E+00 6.6385E+00 7.000 1.2998E+00 1.7707E-02 -1.6929E+01 9.857E-01 1.0357E+01 7.1222E+00 7.500 1.0824E+00 1.0833E-02 -1.7594E+01 9.708E-01 1.1331E+01 7.6088E+00 8.000 8.7724E-01 8.1835E-03 -1.8476E+01 9.579E-01 1.2348E+01 8.0978E+00 8.500 6.8313E-01 7.8310E-03 -1.9231E+01 9.470E-01 1.3407E+01 8.5885E+00 9.000 4.9775E-01 7.2695E-03 -1.9762E+01 9.381E-01 1.4505E+01 9.0807E+00 9.500 3.2222E-01 5.8733E-03 -2.0152E+01 9.304E-01 1.5641E+01 9.5740E+00 10.000 1.4825E-01 4.0262E-03 -2.0423E+01 9.222E-01 1.6812E+01 1.0068E+01 11.000 -1.7917E-01 1.3315E-03 -2.0381E+01 9.056E-01 1.9258E+01 1.1059E+01 12.000 -4.8336E-01 3.0702E-04 -1.8302E+01 8.938E-01 2.1832E+01 1.2051E+01 13.000 -7.6646E-01 2.3913E-03 -1.8147E+01 8.879E-01 2.4527E+01 1.3045E+01 14.000 -1.0250E+00 3.6319E-03 -1.8668E+01 8.831E-01 2.7338E+01 1.4041E+01 15.000 -1.2653E+00 3.5305E-03 -1.9051E+01 8.801E-01 3.0257E+01 1.5037E+01 16.000 -1.4894E+00 3.6558E-03 -1.9245E+01 8.793E-01 3.3281E+01 1.6034E+01 17.000 -1.6950E+00 3.7914E-03 -1.9583E+01 8.776E-01 3.6404E+01 1.7031E+01 18.000 -1.8893E+00 3.3486E-03 -1.9983E+01 8.772E-01 3.9623E+01 1.8028E+01 19.000 -2.0688E+00 2.8699E-03 -2.0149E+01 8.769E-01 4.2933E+01 1.9026E+01 20.000 -2.2337E+00 2.8370E-03 -2.0407E+01 8.754E-01 4.6332E+01 2.0025E+01 ifeffit-1.2.11d/examples/feff/feff0005.dat0000644000175000017500000001227710771740461017021 0ustar segresegre Cu metal fcc a=3.603 Feff XX 6.10 Abs Z=29 Rmt= 1.289 Rnm= 1.424 K shell Pot 1 Z=29 Rmt= 1.272 Rnm= 1.392 Gam_ch=1.761E+00 H-L exch Mu=-5.535E+00 kf=1.806E+00 Vint=-1.796E+01 Rs_int= 2.008 Path 5 icalc 2 ----------------------------------------------------------------------- 2 24.000 4.4130 2.6300 -5.53502 nleg, deg, reff, rnrmav(bohr), edge x y z pot at# .0000 .0000 .0000 0 29 Cu absorbing atom -3.6032 1.8016 1.8016 1 29 Cu k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# .000 3.5015E+00 0.0000E+00 -5.5180E+00 9.872E-01 1.5637E+01 1.8071E+00 .100 3.5020E+00 4.7332E-02 -6.3775E+00 9.873E-01 1.5660E+01 1.8098E+00 .200 3.5035E+00 9.3454E-02 -7.1913E+00 9.877E-01 1.5726E+01 1.8177E+00 .300 3.5060E+00 1.3731E-01 -7.9602E+00 9.882E-01 1.5831E+01 1.8309E+00 .400 3.5093E+00 1.7812E-01 -8.6858E+00 9.890E-01 1.5963E+01 1.8491E+00 .500 3.5132E+00 2.1542E-01 -9.3697E+00 9.901E-01 1.6111E+01 1.8724E+00 .600 3.5175E+00 2.4904E-01 -1.0014E+01 9.915E-01 1.6258E+01 1.9005E+00 .700 3.5218E+00 2.7903E-01 -1.0620E+01 9.932E-01 1.6388E+01 1.9332E+00 .800 3.5258E+00 3.0559E-01 -1.1189E+01 9.953E-01 1.6481E+01 1.9704E+00 .900 3.5291E+00 3.2895E-01 -1.1724E+01 9.978E-01 1.6522E+01 2.0119E+00 1.000 3.5311E+00 3.4937E-01 -1.2224E+01 1.001E+00 1.6496E+01 2.0575E+00 1.100 3.5315E+00 3.6701E-01 -1.2692E+01 1.004E+00 1.6396E+01 2.1070E+00 1.200 3.5296E+00 3.8200E-01 -1.3128E+01 1.008E+00 1.6217E+01 2.1605E+00 1.300 3.5247E+00 3.9436E-01 -1.3533E+01 1.013E+00 1.5965E+01 2.2177E+00 1.400 3.5164E+00 4.0408E-01 -1.3907E+01 1.018E+00 1.5649E+01 2.2786E+00 1.500 3.5039E+00 4.1108E-01 -1.4250E+01 1.024E+00 1.5286E+01 2.3431E+00 1.600 3.4866E+00 4.1523E-01 -1.4563E+01 1.030E+00 1.4895E+01 2.4113E+00 1.700 3.4640E+00 4.1640E-01 -1.4845E+01 1.036E+00 1.4497E+01 2.4830E+00 1.800 3.4354E+00 4.1446E-01 -1.5096E+01 1.043E+00 1.4117E+01 2.5584E+00 1.900 3.4002E+00 4.0930E-01 -1.5314E+01 1.048E+00 1.3776E+01 2.6374E+00 2.000 3.3581E+00 4.0084E-01 -1.5500E+01 1.053E+00 1.3497E+01 2.7201E+00 2.200 3.2511E+00 3.7420E-01 -1.5765E+01 1.059E+00 1.3207E+01 2.8970E+00 2.400 3.1362E+00 3.6107E-01 -1.5952E+01 1.230E+00 7.5606E+00 3.0883E+00 2.600 3.1585E+00 3.5653E-01 -1.6542E+01 1.303E+00 6.1535E+00 3.2191E+00 2.800 3.1545E+00 3.3217E-01 -1.7035E+01 1.326E+00 5.6163E+00 3.3579E+00 3.000 3.1151E+00 3.0183E-01 -1.7406E+01 1.321E+00 5.3982E+00 3.5040E+00 3.200 3.0550E+00 2.6475E-01 -1.7667E+01 1.304E+00 5.3389E+00 3.6566E+00 3.400 2.9887E+00 2.3884E-01 -1.7800E+01 1.281E+00 5.3735E+00 3.8150E+00 3.600 2.9054E+00 2.2997E-01 -1.7821E+01 1.256E+00 5.4705E+00 3.9784E+00 3.800 2.8228E+00 2.4812E-01 -1.7800E+01 1.229E+00 5.6121E+00 4.1461E+00 4.000 2.7282E+00 2.8581E-01 -1.7804E+01 1.206E+00 5.7879E+00 4.3177E+00 4.200 2.6390E+00 3.3345E-01 -1.7847E+01 1.179E+00 5.9908E+00 4.4926E+00 4.400 2.5352E+00 3.8891E-01 -1.7919E+01 1.157E+00 6.2162E+00 4.6704E+00 4.600 2.4376E+00 4.4371E-01 -1.8010E+01 1.135E+00 6.4607E+00 4.8506E+00 4.800 2.3422E+00 4.9658E-01 -1.8101E+01 1.115E+00 6.7219E+00 5.0329E+00 5.000 2.2460E+00 5.4253E-01 -1.8198E+01 1.096E+00 6.9979E+00 5.2171E+00 5.200 2.1454E+00 5.8663E-01 -1.8292E+01 1.079E+00 7.2872E+00 5.4030E+00 5.400 2.0492E+00 6.2601E-01 -1.8378E+01 1.064E+00 7.5888E+00 5.5902E+00 5.600 1.9507E+00 6.5876E-01 -1.8466E+01 1.050E+00 7.9017E+00 5.7787E+00 5.800 1.8576E+00 6.9021E-01 -1.8546E+01 1.038E+00 8.2251E+00 5.9682E+00 6.000 1.7615E+00 7.1562E-01 -1.8621E+01 1.027E+00 8.5584E+00 6.1587E+00 6.500 1.5272E+00 7.5785E-01 -1.8796E+01 1.004E+00 9.4317E+00 6.6385E+00 7.000 1.2998E+00 7.7197E-01 -1.8950E+01 9.857E-01 1.0357E+01 7.1222E+00 7.500 1.0824E+00 7.6099E-01 -1.9091E+01 9.708E-01 1.1331E+01 7.6088E+00 8.000 8.7724E-01 7.3295E-01 -1.9220E+01 9.579E-01 1.2348E+01 8.0978E+00 8.500 6.8313E-01 6.9500E-01 -1.9339E+01 9.470E-01 1.3407E+01 8.5885E+00 9.000 4.9775E-01 6.4982E-01 -1.9454E+01 9.381E-01 1.4505E+01 9.0807E+00 9.500 3.2222E-01 6.0041E-01 -1.9570E+01 9.304E-01 1.5641E+01 9.5740E+00 10.000 1.4825E-01 5.5025E-01 -1.9688E+01 9.222E-01 1.6812E+01 1.0068E+01 11.000 -1.7917E-01 4.5882E-01 -1.9920E+01 9.056E-01 1.9258E+01 1.1059E+01 12.000 -4.8336E-01 3.8046E-01 -2.0147E+01 8.938E-01 2.1832E+01 1.2051E+01 13.000 -7.6646E-01 3.1677E-01 -2.0379E+01 8.879E-01 2.4527E+01 1.3045E+01 14.000 -1.0250E+00 2.6568E-01 -2.0594E+01 8.831E-01 2.7338E+01 1.4041E+01 15.000 -1.2653E+00 2.2392E-01 -2.0815E+01 8.801E-01 3.0257E+01 1.5037E+01 16.000 -1.4894E+00 1.9155E-01 -2.1020E+01 8.793E-01 3.3281E+01 1.6034E+01 17.000 -1.6950E+00 1.6357E-01 -2.1221E+01 8.776E-01 3.6404E+01 1.7031E+01 18.000 -1.8893E+00 1.4261E-01 -2.1426E+01 8.772E-01 3.9623E+01 1.8028E+01 19.000 -2.0688E+00 1.2309E-01 -2.1603E+01 8.769E-01 4.2933E+01 1.9026E+01 20.000 -2.2337E+00 1.0770E-01 -2.1826E+01 8.754E-01 4.6332E+01 2.0025E+01 ifeffit-1.2.11d/examples/feff/feffcu03.dat0000644000175000017500000001235510771740461017204 0ustar segresegre Cu metal fcc a=3.603 Feff XX 6.10 Abs Z=29 Rmt= 1.289 Rnm= 1.424 K shell Pot 1 Z=29 Rmt= 1.272 Rnm= 1.392 Gam_ch=1.761E+00 H-L exch Mu=-5.535E+00 kf=1.806E+00 Vint=-1.796E+01 Rs_int= 2.008 Path 3 icalc 2 ----------------------------------------------------------------------- 3 48.000 3.8218 2.6300 -5.53502 nleg, deg, reff, rnrmav(bohr), edge x y z pot at# .0000 .0000 .0000 0 29 Cu absorbing atom 1.8016 -1.8016 .0000 1 29 Cu 1.8016 .0000 -1.8016 1 29 Cu k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# .000 3.5015E+00 0.0000E+00 -1.2678E+00 9.872E-01 1.5637E+01 1.8071E+00 .100 3.5020E+00 7.5323E-03 -2.0135E+00 9.873E-01 1.5660E+01 1.8098E+00 .200 3.5035E+00 1.4465E-02 -2.7224E+00 9.877E-01 1.5726E+01 1.8177E+00 .300 3.5060E+00 2.0316E-02 -3.3956E+00 9.882E-01 1.5831E+01 1.8309E+00 .400 3.5093E+00 2.4802E-02 -4.0347E+00 9.890E-01 1.5963E+01 1.8491E+00 .500 3.5132E+00 2.7845E-02 -4.6414E+00 9.901E-01 1.6111E+01 1.8724E+00 .600 3.5175E+00 2.9533E-02 -5.2169E+00 9.915E-01 1.6258E+01 1.9005E+00 .700 3.5218E+00 3.0057E-02 -5.7618E+00 9.932E-01 1.6388E+01 1.9332E+00 .800 3.5258E+00 2.9641E-02 -6.2760E+00 9.953E-01 1.6481E+01 1.9704E+00 .900 3.5291E+00 2.8504E-02 -6.7584E+00 9.978E-01 1.6522E+01 2.0119E+00 1.000 3.5311E+00 2.6838E-02 -7.2068E+00 1.001E+00 1.6496E+01 2.0575E+00 1.100 3.5315E+00 2.4809E-02 -7.6175E+00 1.004E+00 1.6396E+01 2.1070E+00 1.200 3.5296E+00 2.2568E-02 -7.9849E+00 1.008E+00 1.6217E+01 2.1605E+00 1.300 3.5247E+00 2.0281E-02 -8.3010E+00 1.013E+00 1.5965E+01 2.2177E+00 1.400 3.5164E+00 1.8160E-02 -8.5559E+00 1.018E+00 1.5649E+01 2.2786E+00 1.500 3.5039E+00 1.6487E-02 -8.7410E+00 1.024E+00 1.5286E+01 2.3431E+00 1.600 3.4866E+00 1.5606E-02 -8.8598E+00 1.030E+00 1.4895E+01 2.4113E+00 1.700 3.4640E+00 1.5787E-02 -8.9391E+00 1.036E+00 1.4497E+01 2.4830E+00 1.800 3.4354E+00 1.7049E-02 -9.0199E+00 1.043E+00 1.4117E+01 2.5584E+00 1.900 3.4002E+00 1.9133E-02 -9.1286E+00 1.048E+00 1.3776E+01 2.6374E+00 2.000 3.3581E+00 2.1672E-02 -9.2686E+00 1.053E+00 1.3497E+01 2.7201E+00 2.200 3.2511E+00 2.6807E-02 -9.6068E+00 1.059E+00 1.3207E+01 2.8970E+00 2.400 3.1362E+00 4.7746E-02 -9.9257E+00 1.230E+00 7.5606E+00 3.0883E+00 2.600 3.1585E+00 6.3102E-02 -1.0391E+01 1.303E+00 6.1535E+00 3.2191E+00 2.800 3.1545E+00 7.2888E-02 -1.0917E+01 1.326E+00 5.6163E+00 3.3579E+00 3.000 3.1151E+00 8.0560E-02 -1.1422E+01 1.321E+00 5.3982E+00 3.5040E+00 3.200 3.0550E+00 8.5362E-02 -1.1938E+01 1.304E+00 5.3389E+00 3.6566E+00 3.400 2.9887E+00 8.8480E-02 -1.2432E+01 1.281E+00 5.3735E+00 3.8150E+00 3.600 2.9054E+00 9.1415E-02 -1.2896E+01 1.256E+00 5.4705E+00 3.9784E+00 3.800 2.8228E+00 9.3018E-02 -1.3324E+01 1.229E+00 5.6121E+00 4.1461E+00 4.000 2.7282E+00 9.4162E-02 -1.3713E+01 1.206E+00 5.7879E+00 4.3177E+00 4.200 2.6390E+00 9.3341E-02 -1.4085E+01 1.179E+00 5.9908E+00 4.4926E+00 4.400 2.5352E+00 9.1584E-02 -1.4399E+01 1.157E+00 6.2162E+00 4.6704E+00 4.600 2.4376E+00 8.8501E-02 -1.4686E+01 1.135E+00 6.4607E+00 4.8506E+00 4.800 2.3422E+00 8.3407E-02 -1.4941E+01 1.115E+00 6.7219E+00 5.0329E+00 5.000 2.2460E+00 7.7451E-02 -1.5189E+01 1.096E+00 6.9979E+00 5.2171E+00 5.200 2.1454E+00 7.1005E-02 -1.5401E+01 1.079E+00 7.2872E+00 5.4030E+00 5.400 2.0492E+00 6.3853E-02 -1.5592E+01 1.064E+00 7.5888E+00 5.5902E+00 5.600 1.9507E+00 5.6736E-02 -1.5780E+01 1.050E+00 7.9017E+00 5.7787E+00 5.800 1.8576E+00 4.9805E-02 -1.5941E+01 1.038E+00 8.2251E+00 5.9682E+00 6.000 1.7615E+00 4.3070E-02 -1.6096E+01 1.027E+00 8.5584E+00 6.1587E+00 6.500 1.5272E+00 2.8587E-02 -1.6480E+01 1.004E+00 9.4317E+00 6.6385E+00 7.000 1.2998E+00 1.7707E-02 -1.6929E+01 9.857E-01 1.0357E+01 7.1222E+00 7.500 1.0824E+00 1.0833E-02 -1.7594E+01 9.708E-01 1.1331E+01 7.6088E+00 8.000 8.7724E-01 8.1835E-03 -1.8476E+01 9.579E-01 1.2348E+01 8.0978E+00 8.500 6.8313E-01 7.8310E-03 -1.9231E+01 9.470E-01 1.3407E+01 8.5885E+00 9.000 4.9775E-01 7.2695E-03 -1.9762E+01 9.381E-01 1.4505E+01 9.0807E+00 9.500 3.2222E-01 5.8733E-03 -2.0152E+01 9.304E-01 1.5641E+01 9.5740E+00 10.000 1.4825E-01 4.0262E-03 -2.0423E+01 9.222E-01 1.6812E+01 1.0068E+01 11.000 -1.7917E-01 1.3315E-03 -2.0381E+01 9.056E-01 1.9258E+01 1.1059E+01 12.000 -4.8336E-01 3.0702E-04 -1.8302E+01 8.938E-01 2.1832E+01 1.2051E+01 13.000 -7.6646E-01 2.3913E-03 -1.8147E+01 8.879E-01 2.4527E+01 1.3045E+01 14.000 -1.0250E+00 3.6319E-03 -1.8668E+01 8.831E-01 2.7338E+01 1.4041E+01 15.000 -1.2653E+00 3.5305E-03 -1.9051E+01 8.801E-01 3.0257E+01 1.5037E+01 16.000 -1.4894E+00 3.6558E-03 -1.9245E+01 8.793E-01 3.3281E+01 1.6034E+01 17.000 -1.6950E+00 3.7914E-03 -1.9583E+01 8.776E-01 3.6404E+01 1.7031E+01 18.000 -1.8893E+00 3.3486E-03 -1.9983E+01 8.772E-01 3.9623E+01 1.8028E+01 19.000 -2.0688E+00 2.8699E-03 -2.0149E+01 8.769E-01 4.2933E+01 1.9026E+01 20.000 -2.2337E+00 2.8370E-03 -2.0407E+01 8.754E-01 4.6332E+01 2.0025E+01 ifeffit-1.2.11d/examples/feff/feff0010.dat0000644000175000017500000001235510771740461017012 0ustar segresegre Cu metal fcc a=3.603 Feff XX 6.10 Abs Z=29 Rmt= 1.289 Rnm= 1.424 K shell Pot 1 Z=29 Rmt= 1.272 Rnm= 1.392 Gam_ch=1.761E+00 H-L exch Mu=-5.535E+00 kf=1.806E+00 Vint=-1.796E+01 Rs_int= 2.008 Path 10 icalc 2 ----------------------------------------------------------------------- 3 24.000 5.0957 2.6300 -5.53502 nleg, deg, reff, rnrmav(bohr), edge x y z pot at# .0000 .0000 .0000 0 29 Cu absorbing atom 3.6032 3.6032 .0000 1 29 Cu 1.8016 1.8016 .0000 1 29 Cu k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# .000 3.5015E+00 0.0000E+00 -4.9291E+00 9.872E-01 1.5637E+01 1.8071E+00 .100 3.5020E+00 2.4675E-02 -5.9252E+00 9.873E-01 1.5660E+01 1.8098E+00 .200 3.5035E+00 4.8042E-02 -6.8757E+00 9.877E-01 1.5726E+01 1.8177E+00 .300 3.5060E+00 6.9064E-02 -7.7820E+00 9.882E-01 1.5831E+01 1.8309E+00 .400 3.5093E+00 8.7141E-02 -8.6458E+00 9.890E-01 1.5963E+01 1.8491E+00 .500 3.5132E+00 1.0215E-01 -9.4688E+00 9.901E-01 1.6111E+01 1.8724E+00 .600 3.5175E+00 1.1434E-01 -1.0253E+01 9.915E-01 1.6258E+01 1.9005E+00 .700 3.5218E+00 1.2419E-01 -1.0999E+01 9.932E-01 1.6388E+01 1.9332E+00 .800 3.5258E+00 1.3225E-01 -1.1708E+01 9.953E-01 1.6481E+01 1.9704E+00 .900 3.5291E+00 1.3903E-01 -1.2381E+01 9.978E-01 1.6522E+01 2.0119E+00 1.000 3.5311E+00 1.4494E-01 -1.3017E+01 1.001E+00 1.6496E+01 2.0575E+00 1.100 3.5315E+00 1.5029E-01 -1.3617E+01 1.004E+00 1.6396E+01 2.1070E+00 1.200 3.5296E+00 1.5525E-01 -1.4181E+01 1.008E+00 1.6217E+01 2.1605E+00 1.300 3.5247E+00 1.5990E-01 -1.4709E+01 1.013E+00 1.5965E+01 2.2177E+00 1.400 3.5164E+00 1.6425E-01 -1.5201E+01 1.018E+00 1.5649E+01 2.2786E+00 1.500 3.5039E+00 1.6825E-01 -1.5658E+01 1.024E+00 1.5286E+01 2.3431E+00 1.600 3.4866E+00 1.7178E-01 -1.6078E+01 1.030E+00 1.4895E+01 2.4113E+00 1.700 3.4640E+00 1.7473E-01 -1.6462E+01 1.036E+00 1.4497E+01 2.4830E+00 1.800 3.4354E+00 1.7694E-01 -1.6809E+01 1.043E+00 1.4117E+01 2.5584E+00 1.900 3.4002E+00 1.7825E-01 -1.7119E+01 1.048E+00 1.3776E+01 2.6374E+00 2.000 3.3581E+00 1.7851E-01 -1.7390E+01 1.053E+00 1.3497E+01 2.7201E+00 2.200 3.2511E+00 1.7535E-01 -1.7808E+01 1.059E+00 1.3207E+01 2.8970E+00 2.400 3.1362E+00 1.6994E-01 -1.7987E+01 1.230E+00 7.5606E+00 3.0883E+00 2.600 3.1585E+00 1.4292E-01 -1.8754E+01 1.303E+00 6.1535E+00 3.2191E+00 2.800 3.1545E+00 1.1906E-01 -1.9461E+01 1.326E+00 5.6163E+00 3.3579E+00 3.000 3.1151E+00 9.8817E-02 -2.0046E+01 1.321E+00 5.3982E+00 3.5040E+00 3.200 3.0550E+00 8.7011E-02 -2.0430E+01 1.304E+00 5.3389E+00 3.6566E+00 3.400 2.9887E+00 9.0573E-02 -2.0594E+01 1.281E+00 5.3735E+00 3.8150E+00 3.600 2.9054E+00 1.1680E-01 -2.0675E+01 1.256E+00 5.4705E+00 3.9784E+00 3.800 2.8228E+00 1.6793E-01 -2.0827E+01 1.229E+00 5.6121E+00 4.1461E+00 4.000 2.7282E+00 2.3693E-01 -2.1019E+01 1.206E+00 5.7879E+00 4.3177E+00 4.200 2.6390E+00 3.1701E-01 -2.1225E+01 1.179E+00 5.9908E+00 4.4926E+00 4.400 2.5352E+00 4.0715E-01 -2.1427E+01 1.157E+00 6.2162E+00 4.6704E+00 4.600 2.4376E+00 5.0055E-01 -2.1617E+01 1.135E+00 6.4607E+00 4.8506E+00 4.800 2.3422E+00 5.9630E-01 -2.1787E+01 1.115E+00 6.7219E+00 5.0329E+00 5.000 2.2460E+00 6.8546E-01 -2.1949E+01 1.096E+00 6.9979E+00 5.2171E+00 5.200 2.1454E+00 7.7499E-01 -2.2095E+01 1.079E+00 7.2872E+00 5.4030E+00 5.400 2.0492E+00 8.6036E-01 -2.2225E+01 1.064E+00 7.5888E+00 5.5902E+00 5.600 1.9507E+00 9.3560E-01 -2.2351E+01 1.050E+00 7.9017E+00 5.7787E+00 5.800 1.8576E+00 1.0100E+00 -2.2463E+01 1.038E+00 8.2251E+00 5.9682E+00 6.000 1.7615E+00 1.0753E+00 -2.2566E+01 1.027E+00 8.5584E+00 6.1587E+00 6.500 1.5272E+00 1.1984E+00 -2.2798E+01 1.004E+00 9.4317E+00 6.6385E+00 7.000 1.2998E+00 1.2675E+00 -2.2995E+01 9.857E-01 1.0357E+01 7.1222E+00 7.500 1.0824E+00 1.2832E+00 -2.3170E+01 9.708E-01 1.1331E+01 7.6088E+00 8.000 8.7724E-01 1.2592E+00 -2.3328E+01 9.579E-01 1.2348E+01 8.0978E+00 8.500 6.8313E-01 1.2096E+00 -2.3470E+01 9.470E-01 1.3407E+01 8.5885E+00 9.000 4.9775E-01 1.1411E+00 -2.3605E+01 9.381E-01 1.4505E+01 9.0807E+00 9.500 3.2222E-01 1.0613E+00 -2.3739E+01 9.304E-01 1.5641E+01 9.5740E+00 10.000 1.4825E-01 9.7755E-01 -2.3874E+01 9.222E-01 1.6812E+01 1.0068E+01 11.000 -1.7917E-01 8.1972E-01 -2.4133E+01 9.056E-01 1.9258E+01 1.1059E+01 12.000 -4.8336E-01 6.8234E-01 -2.4383E+01 8.938E-01 2.1832E+01 1.2051E+01 13.000 -7.6646E-01 5.6948E-01 -2.4634E+01 8.879E-01 2.4527E+01 1.3045E+01 14.000 -1.0250E+00 4.7810E-01 -2.4866E+01 8.831E-01 2.7338E+01 1.4041E+01 15.000 -1.2653E+00 4.0407E-01 -2.5102E+01 8.801E-01 3.0257E+01 1.5037E+01 16.000 -1.4894E+00 3.4572E-01 -2.5319E+01 8.793E-01 3.3281E+01 1.6034E+01 17.000 -1.6950E+00 2.9599E-01 -2.5529E+01 8.776E-01 3.6404E+01 1.7031E+01 18.000 -1.8893E+00 2.5792E-01 -2.5743E+01 8.772E-01 3.9623E+01 1.8028E+01 19.000 -2.0688E+00 2.2167E-01 -2.5933E+01 8.769E-01 4.2933E+01 1.9026E+01 20.000 -2.2337E+00 1.9189E-01 -2.6176E+01 8.754E-01 4.6332E+01 2.0025E+01 ifeffit-1.2.11d/examples/feff/feff0001.dat0000644000175000017500000001227510771740461017013 0ustar segresegre#Cu metal fcc a=3.603 Feff XX 6.10 #Abs Z=29 Rmt= 1.289 Rnm= 1.424 K shell #Pot 1 Z=29 Rmt= 1.272 Rnm= 1.392 #Gam_ch=1.761E+00 H-L exch #Mu=-5.535E+00 kf=1.806E+00 Vint=-1.796E+01 Rs_int= 2.008 #Path 1 icalc 2 #----------------------------------------------------------------------- # 2 12.000 2.5478 2.6300 -5.53502 nleg, deg, reff, rnrmav(bohr), edge # x y z pot at# # .0000 .0000 .0000 0 29 Cu absorbing atom # .0000 -1.8016 1.8016 1 29 Cu # k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# .000 3.5015E+00 0.0000E+00 -5.1320E+00 9.872E-01 1.5637E+01 1.8071E+00 .100 3.5020E+00 3.3976E-02 -5.6318E+00 9.873E-01 1.5660E+01 1.8098E+00 .200 3.5035E+00 6.7038E-02 -6.1121E+00 9.877E-01 1.5726E+01 1.8177E+00 .300 3.5060E+00 9.8421E-02 -6.5731E+00 9.882E-01 1.5831E+01 1.8309E+00 .400 3.5093E+00 1.2760E-01 -7.0153E+00 9.890E-01 1.5963E+01 1.8491E+00 .500 3.5132E+00 1.5432E-01 -7.4387E+00 9.901E-01 1.6111E+01 1.8724E+00 .600 3.5175E+00 1.7856E-01 -7.8435E+00 9.915E-01 1.6258E+01 1.9005E+00 .700 3.5218E+00 2.0044E-01 -8.2297E+00 9.932E-01 1.6388E+01 1.9332E+00 .800 3.5258E+00 2.2014E-01 -8.5973E+00 9.953E-01 1.6481E+01 1.9704E+00 .900 3.5291E+00 2.3782E-01 -8.9459E+00 9.978E-01 1.6522E+01 2.0119E+00 1.000 3.5311E+00 2.5358E-01 -9.2756E+00 1.001E+00 1.6496E+01 2.0575E+00 1.100 3.5315E+00 2.6742E-01 -9.5864E+00 1.004E+00 1.6396E+01 2.1070E+00 1.200 3.5296E+00 2.7930E-01 -9.8781E+00 1.008E+00 1.6217E+01 2.1605E+00 1.300 3.5247E+00 2.8908E-01 -1.0151E+01 1.013E+00 1.5965E+01 2.2177E+00 1.400 3.5164E+00 2.9658E-01 -1.0405E+01 1.018E+00 1.5649E+01 2.2786E+00 1.500 3.5039E+00 3.0158E-01 -1.0639E+01 1.024E+00 1.5286E+01 2.3431E+00 1.600 3.4866E+00 3.0387E-01 -1.0855E+01 1.030E+00 1.4895E+01 2.4113E+00 1.700 3.4640E+00 3.0324E-01 -1.1051E+01 1.036E+00 1.4497E+01 2.4830E+00 1.800 3.4354E+00 2.9952E-01 -1.1226E+01 1.043E+00 1.4117E+01 2.5584E+00 1.900 3.4002E+00 2.9262E-01 -1.1381E+01 1.048E+00 1.3776E+01 2.6374E+00 2.000 3.3581E+00 2.8254E-01 -1.1513E+01 1.053E+00 1.3497E+01 2.7201E+00 2.200 3.2511E+00 2.5343E-01 -1.1702E+01 1.059E+00 1.3207E+01 2.8970E+00 2.400 3.1362E+00 2.2097E-01 -1.1853E+01 1.230E+00 7.5606E+00 3.0883E+00 2.600 3.1585E+00 2.0024E-01 -1.2187E+01 1.303E+00 6.1535E+00 3.2191E+00 2.800 3.1545E+00 1.6820E-01 -1.2400E+01 1.326E+00 5.6163E+00 3.3579E+00 3.000 3.1151E+00 1.3806E-01 -1.2407E+01 1.321E+00 5.3982E+00 3.5040E+00 3.200 3.0550E+00 1.2236E-01 -1.2189E+01 1.304E+00 5.3389E+00 3.6566E+00 3.400 2.9887E+00 1.4499E-01 -1.1933E+01 1.281E+00 5.3735E+00 3.8150E+00 3.600 2.9054E+00 1.9428E-01 -1.1822E+01 1.256E+00 5.4705E+00 3.9784E+00 3.800 2.8228E+00 2.5740E-01 -1.1838E+01 1.229E+00 5.6121E+00 4.1461E+00 4.000 2.7282E+00 3.2303E-01 -1.1902E+01 1.206E+00 5.7879E+00 4.3177E+00 4.200 2.6390E+00 3.8574E-01 -1.1985E+01 1.179E+00 5.9908E+00 4.4926E+00 4.400 2.5352E+00 4.4624E-01 -1.2073E+01 1.157E+00 6.2162E+00 4.6704E+00 4.600 2.4376E+00 5.0095E-01 -1.2161E+01 1.135E+00 6.4607E+00 4.8506E+00 4.800 2.3422E+00 5.5041E-01 -1.2241E+01 1.115E+00 6.7219E+00 5.0329E+00 5.000 2.2460E+00 5.9187E-01 -1.2322E+01 1.096E+00 6.9979E+00 5.2171E+00 5.200 2.1454E+00 6.3037E-01 -1.2396E+01 1.079E+00 7.2872E+00 5.4030E+00 5.400 2.0492E+00 6.6383E-01 -1.2463E+01 1.064E+00 7.5888E+00 5.5902E+00 5.600 1.9507E+00 6.9100E-01 -1.2531E+01 1.050E+00 7.9017E+00 5.7787E+00 5.800 1.8576E+00 7.1670E-01 -1.2591E+01 1.038E+00 8.2251E+00 5.9682E+00 6.000 1.7615E+00 7.3666E-01 -1.2649E+01 1.027E+00 8.5584E+00 6.1587E+00 6.500 1.5272E+00 7.6643E-01 -1.2784E+01 1.004E+00 9.4317E+00 6.6385E+00 7.000 1.2998E+00 7.6974E-01 -1.2906E+01 9.857E-01 1.0357E+01 7.1222E+00 7.500 1.0824E+00 7.5036E-01 -1.3022E+01 9.708E-01 1.1331E+01 7.6088E+00 8.000 8.7724E-01 7.1645E-01 -1.3130E+01 9.579E-01 1.2348E+01 8.0978E+00 8.500 6.8313E-01 6.7486E-01 -1.3230E+01 9.470E-01 1.3407E+01 8.5885E+00 9.000 4.9775E-01 6.2811E-01 -1.3331E+01 9.381E-01 1.4505E+01 9.0807E+00 9.500 3.2222E-01 5.7859E-01 -1.3435E+01 9.304E-01 1.5641E+01 9.5740E+00 10.000 1.4825E-01 5.2908E-01 -1.3544E+01 9.222E-01 1.6812E+01 1.0068E+01 11.000 -1.7917E-01 4.3980E-01 -1.3760E+01 9.056E-01 1.9258E+01 1.1059E+01 12.000 -4.8336E-01 3.6492E-01 -1.3977E+01 8.938E-01 2.1832E+01 1.2051E+01 13.000 -7.6646E-01 3.0439E-01 -1.4200E+01 8.879E-01 2.4527E+01 1.3045E+01 14.000 -1.0250E+00 2.5553E-01 -1.4407E+01 8.831E-01 2.7338E+01 1.4041E+01 15.000 -1.2653E+00 2.1646E-01 -1.4623E+01 8.801E-01 3.0257E+01 1.5037E+01 16.000 -1.4894E+00 1.8503E-01 -1.4821E+01 8.793E-01 3.3281E+01 1.6034E+01 17.000 -1.6950E+00 1.5883E-01 -1.5018E+01 8.776E-01 3.6404E+01 1.7031E+01 18.000 -1.8893E+00 1.3866E-01 -1.5217E+01 8.772E-01 3.9623E+01 1.8028E+01 19.000 -2.0688E+00 1.1937E-01 -1.5388E+01 8.769E-01 4.2933E+01 1.9026E+01 20.000 -2.2337E+00 1.0466E-01 -1.5591E+01 8.754E-01 4.6332E+01 2.0025E+01 ifeffit-1.2.11d/examples/feff/feffcu01.dat0000644000175000017500000001227710771740461017205 0ustar segresegre Cu metal fcc a=3.603 Feff XX 6.10 Abs Z=29 Rmt= 1.289 Rnm= 1.424 K shell Pot 1 Z=29 Rmt= 1.272 Rnm= 1.392 Gam_ch=1.761E+00 H-L exch Mu=-5.535E+00 kf=1.806E+00 Vint=-1.796E+01 Rs_int= 2.008 Path 1 icalc 2 ----------------------------------------------------------------------- 2 12.000 2.5478 2.6300 -5.53502 nleg, deg, reff, rnrmav(bohr), edge x y z pot at# .0000 .0000 .0000 0 29 Cu absorbing atom .0000 -1.8016 1.8016 1 29 Cu k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# .000 3.5015E+00 0.0000E+00 -5.1320E+00 9.872E-01 1.5637E+01 1.8071E+00 .100 3.5020E+00 3.3976E-02 -5.6318E+00 9.873E-01 1.5660E+01 1.8098E+00 .200 3.5035E+00 6.7038E-02 -6.1121E+00 9.877E-01 1.5726E+01 1.8177E+00 .300 3.5060E+00 9.8421E-02 -6.5731E+00 9.882E-01 1.5831E+01 1.8309E+00 .400 3.5093E+00 1.2760E-01 -7.0153E+00 9.890E-01 1.5963E+01 1.8491E+00 .500 3.5132E+00 1.5432E-01 -7.4387E+00 9.901E-01 1.6111E+01 1.8724E+00 .600 3.5175E+00 1.7856E-01 -7.8435E+00 9.915E-01 1.6258E+01 1.9005E+00 .700 3.5218E+00 2.0044E-01 -8.2297E+00 9.932E-01 1.6388E+01 1.9332E+00 .800 3.5258E+00 2.2014E-01 -8.5973E+00 9.953E-01 1.6481E+01 1.9704E+00 .900 3.5291E+00 2.3782E-01 -8.9459E+00 9.978E-01 1.6522E+01 2.0119E+00 1.000 3.5311E+00 2.5358E-01 -9.2756E+00 1.001E+00 1.6496E+01 2.0575E+00 1.100 3.5315E+00 2.6742E-01 -9.5864E+00 1.004E+00 1.6396E+01 2.1070E+00 1.200 3.5296E+00 2.7930E-01 -9.8781E+00 1.008E+00 1.6217E+01 2.1605E+00 1.300 3.5247E+00 2.8908E-01 -1.0151E+01 1.013E+00 1.5965E+01 2.2177E+00 1.400 3.5164E+00 2.9658E-01 -1.0405E+01 1.018E+00 1.5649E+01 2.2786E+00 1.500 3.5039E+00 3.0158E-01 -1.0639E+01 1.024E+00 1.5286E+01 2.3431E+00 1.600 3.4866E+00 3.0387E-01 -1.0855E+01 1.030E+00 1.4895E+01 2.4113E+00 1.700 3.4640E+00 3.0324E-01 -1.1051E+01 1.036E+00 1.4497E+01 2.4830E+00 1.800 3.4354E+00 2.9952E-01 -1.1226E+01 1.043E+00 1.4117E+01 2.5584E+00 1.900 3.4002E+00 2.9262E-01 -1.1381E+01 1.048E+00 1.3776E+01 2.6374E+00 2.000 3.3581E+00 2.8254E-01 -1.1513E+01 1.053E+00 1.3497E+01 2.7201E+00 2.200 3.2511E+00 2.5343E-01 -1.1702E+01 1.059E+00 1.3207E+01 2.8970E+00 2.400 3.1362E+00 2.2097E-01 -1.1853E+01 1.230E+00 7.5606E+00 3.0883E+00 2.600 3.1585E+00 2.0024E-01 -1.2187E+01 1.303E+00 6.1535E+00 3.2191E+00 2.800 3.1545E+00 1.6820E-01 -1.2400E+01 1.326E+00 5.6163E+00 3.3579E+00 3.000 3.1151E+00 1.3806E-01 -1.2407E+01 1.321E+00 5.3982E+00 3.5040E+00 3.200 3.0550E+00 1.2236E-01 -1.2189E+01 1.304E+00 5.3389E+00 3.6566E+00 3.400 2.9887E+00 1.4499E-01 -1.1933E+01 1.281E+00 5.3735E+00 3.8150E+00 3.600 2.9054E+00 1.9428E-01 -1.1822E+01 1.256E+00 5.4705E+00 3.9784E+00 3.800 2.8228E+00 2.5740E-01 -1.1838E+01 1.229E+00 5.6121E+00 4.1461E+00 4.000 2.7282E+00 3.2303E-01 -1.1902E+01 1.206E+00 5.7879E+00 4.3177E+00 4.200 2.6390E+00 3.8574E-01 -1.1985E+01 1.179E+00 5.9908E+00 4.4926E+00 4.400 2.5352E+00 4.4624E-01 -1.2073E+01 1.157E+00 6.2162E+00 4.6704E+00 4.600 2.4376E+00 5.0095E-01 -1.2161E+01 1.135E+00 6.4607E+00 4.8506E+00 4.800 2.3422E+00 5.5041E-01 -1.2241E+01 1.115E+00 6.7219E+00 5.0329E+00 5.000 2.2460E+00 5.9187E-01 -1.2322E+01 1.096E+00 6.9979E+00 5.2171E+00 5.200 2.1454E+00 6.3037E-01 -1.2396E+01 1.079E+00 7.2872E+00 5.4030E+00 5.400 2.0492E+00 6.6383E-01 -1.2463E+01 1.064E+00 7.5888E+00 5.5902E+00 5.600 1.9507E+00 6.9100E-01 -1.2531E+01 1.050E+00 7.9017E+00 5.7787E+00 5.800 1.8576E+00 7.1670E-01 -1.2591E+01 1.038E+00 8.2251E+00 5.9682E+00 6.000 1.7615E+00 7.3666E-01 -1.2649E+01 1.027E+00 8.5584E+00 6.1587E+00 6.500 1.5272E+00 7.6643E-01 -1.2784E+01 1.004E+00 9.4317E+00 6.6385E+00 7.000 1.2998E+00 7.6974E-01 -1.2906E+01 9.857E-01 1.0357E+01 7.1222E+00 7.500 1.0824E+00 7.5036E-01 -1.3022E+01 9.708E-01 1.1331E+01 7.6088E+00 8.000 8.7724E-01 7.1645E-01 -1.3130E+01 9.579E-01 1.2348E+01 8.0978E+00 8.500 6.8313E-01 6.7486E-01 -1.3230E+01 9.470E-01 1.3407E+01 8.5885E+00 9.000 4.9775E-01 6.2811E-01 -1.3331E+01 9.381E-01 1.4505E+01 9.0807E+00 9.500 3.2222E-01 5.7859E-01 -1.3435E+01 9.304E-01 1.5641E+01 9.5740E+00 10.000 1.4825E-01 5.2908E-01 -1.3544E+01 9.222E-01 1.6812E+01 1.0068E+01 11.000 -1.7917E-01 4.3980E-01 -1.3760E+01 9.056E-01 1.9258E+01 1.1059E+01 12.000 -4.8336E-01 3.6492E-01 -1.3977E+01 8.938E-01 2.1832E+01 1.2051E+01 13.000 -7.6646E-01 3.0439E-01 -1.4200E+01 8.879E-01 2.4527E+01 1.3045E+01 14.000 -1.0250E+00 2.5553E-01 -1.4407E+01 8.831E-01 2.7338E+01 1.4041E+01 15.000 -1.2653E+00 2.1646E-01 -1.4623E+01 8.801E-01 3.0257E+01 1.5037E+01 16.000 -1.4894E+00 1.8503E-01 -1.4821E+01 8.793E-01 3.3281E+01 1.6034E+01 17.000 -1.6950E+00 1.5883E-01 -1.5018E+01 8.776E-01 3.6404E+01 1.7031E+01 18.000 -1.8893E+00 1.3866E-01 -1.5217E+01 8.772E-01 3.9623E+01 1.8028E+01 19.000 -2.0688E+00 1.1937E-01 -1.5388E+01 8.769E-01 4.2933E+01 1.9026E+01 20.000 -2.2337E+00 1.0466E-01 -1.5591E+01 8.754E-01 4.6332E+01 2.0025E+01 ifeffit-1.2.11d/examples/feff/feff0011.dat0000644000175000017500000001243310771740461017010 0ustar segresegre Cu metal fcc a=3.603 Feff XX 6.10 Abs Z=29 Rmt= 1.289 Rnm= 1.424 K shell Pot 1 Z=29 Rmt= 1.272 Rnm= 1.392 Gam_ch=1.761E+00 H-L exch Mu=-5.535E+00 kf=1.806E+00 Vint=-1.796E+01 Rs_int= 2.008 Path 11 icalc 2 ----------------------------------------------------------------------- 4 12.000 5.0957 2.6300 -5.53502 nleg, deg, reff, rnrmav(bohr), edge x y z pot at# .0000 .0000 .0000 0 29 Cu absorbing atom -1.8016 1.8016 .0000 1 29 Cu .0000 .0000 .0000 0 29 Cu 1.8016 -1.8016 .0000 1 29 Cu k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# .000 3.5015E+00 0.0000E+00 -1.6264E+00 9.872E-01 1.5637E+01 1.8071E+00 .100 3.5020E+00 3.0644E-03 -2.6212E+00 9.873E-01 1.5660E+01 1.8098E+00 .200 3.5035E+00 5.8047E-03 -3.5676E+00 9.877E-01 1.5726E+01 1.8177E+00 .300 3.5060E+00 7.9581E-03 -4.4665E+00 9.882E-01 1.5831E+01 1.8309E+00 .400 3.5093E+00 9.3620E-03 -5.3185E+00 9.890E-01 1.5963E+01 1.8491E+00 .500 3.5132E+00 9.9614E-03 -6.1244E+00 9.901E-01 1.6111E+01 1.8724E+00 .600 3.5175E+00 9.7898E-03 -6.8834E+00 9.915E-01 1.6258E+01 1.9005E+00 .700 3.5218E+00 8.9380E-03 -7.5925E+00 9.932E-01 1.6388E+01 1.9332E+00 .800 3.5258E+00 7.5263E-03 -8.2434E+00 9.953E-01 1.6481E+01 1.9704E+00 .900 3.5291E+00 5.6947E-03 -8.8119E+00 9.978E-01 1.6522E+01 2.0119E+00 1.000 3.5311E+00 3.6479E-03 -9.2108E+00 1.001E+00 1.6496E+01 2.0575E+00 1.100 3.5315E+00 2.0869E-03 -9.0489E+00 1.004E+00 1.6396E+01 2.1070E+00 1.200 3.5296E+00 3.0437E-03 -8.5360E+00 1.008E+00 1.6217E+01 2.1605E+00 1.300 3.5247E+00 5.4840E-03 -8.7046E+00 1.013E+00 1.5965E+01 2.2177E+00 1.400 3.5164E+00 8.1816E-03 -9.0608E+00 1.018E+00 1.5649E+01 2.2786E+00 1.500 3.5039E+00 1.0860E-02 -9.4472E+00 1.024E+00 1.5286E+01 2.3431E+00 1.600 3.4866E+00 1.3383E-02 -9.8244E+00 1.030E+00 1.4895E+01 2.4113E+00 1.700 3.4640E+00 1.5636E-02 -1.0178E+01 1.036E+00 1.4497E+01 2.4830E+00 1.800 3.4354E+00 1.7520E-02 -1.0501E+01 1.043E+00 1.4117E+01 2.5584E+00 1.900 3.4002E+00 1.8945E-02 -1.0787E+01 1.048E+00 1.3776E+01 2.6374E+00 2.000 3.3581E+00 1.9844E-02 -1.1033E+01 1.053E+00 1.3497E+01 2.7201E+00 2.200 3.2511E+00 1.9963E-02 -1.1382E+01 1.059E+00 1.3207E+01 2.8970E+00 2.400 3.1362E+00 1.3851E-02 -1.1333E+01 1.230E+00 7.5606E+00 3.0883E+00 2.600 3.1585E+00 7.9496E-03 -1.2044E+01 1.303E+00 6.1535E+00 3.2191E+00 2.800 3.1545E+00 5.6820E-03 -1.2583E+01 1.326E+00 5.6163E+00 3.3579E+00 3.000 3.1151E+00 7.0976E-03 -1.2765E+01 1.321E+00 5.3982E+00 3.5040E+00 3.200 3.0550E+00 9.4710E-03 -1.2883E+01 1.304E+00 5.3389E+00 3.6566E+00 3.400 2.9887E+00 1.1872E-02 -1.2818E+01 1.281E+00 5.3735E+00 3.8150E+00 3.600 2.9054E+00 1.8500E-02 -1.2513E+01 1.256E+00 5.4705E+00 3.9784E+00 3.800 2.8228E+00 3.6570E-02 -1.2407E+01 1.229E+00 5.6121E+00 4.1461E+00 4.000 2.7282E+00 6.7215E-02 -1.2484E+01 1.206E+00 5.7879E+00 4.3177E+00 4.200 2.6390E+00 1.0871E-01 -1.2642E+01 1.179E+00 5.9908E+00 4.4926E+00 4.400 2.5352E+00 1.6036E-01 -1.2816E+01 1.157E+00 6.2162E+00 4.6704E+00 4.600 2.4376E+00 2.1878E-01 -1.2995E+01 1.135E+00 6.4607E+00 4.8506E+00 4.800 2.3422E+00 2.8283E-01 -1.3159E+01 1.115E+00 6.7219E+00 5.0329E+00 5.000 2.2460E+00 3.4565E-01 -1.3323E+01 1.096E+00 6.9979E+00 5.2171E+00 5.200 2.1454E+00 4.1086E-01 -1.3474E+01 1.079E+00 7.2872E+00 5.4030E+00 5.400 2.0492E+00 4.7603E-01 -1.3608E+01 1.064E+00 7.5888E+00 5.5902E+00 5.600 1.9507E+00 5.3438E-01 -1.3745E+01 1.050E+00 7.9017E+00 5.7787E+00 5.800 1.8576E+00 5.9324E-01 -1.3866E+01 1.038E+00 8.2251E+00 5.9682E+00 6.000 1.7615E+00 6.4546E-01 -1.3980E+01 1.027E+00 8.5584E+00 6.1587E+00 6.500 1.5272E+00 7.3902E-01 -1.4250E+01 1.004E+00 9.4317E+00 6.6385E+00 7.000 1.2998E+00 7.7840E-01 -1.4493E+01 9.857E-01 1.0357E+01 7.1222E+00 7.500 1.0824E+00 7.6376E-01 -1.4722E+01 9.708E-01 1.1331E+01 7.6088E+00 8.000 8.7724E-01 7.1236E-01 -1.4937E+01 9.579E-01 1.2348E+01 8.0978E+00 8.500 6.8313E-01 6.4215E-01 -1.5136E+01 9.470E-01 1.3407E+01 8.5885E+00 9.000 4.9775E-01 5.6283E-01 -1.5335E+01 9.381E-01 1.4505E+01 9.0807E+00 9.500 3.2222E-01 4.8199E-01 -1.5542E+01 9.304E-01 1.5641E+01 9.5740E+00 10.000 1.4825E-01 4.0572E-01 -1.5759E+01 9.222E-01 1.6812E+01 1.0068E+01 11.000 -1.7917E-01 2.8214E-01 -1.6190E+01 9.056E-01 1.9258E+01 1.1059E+01 12.000 -4.8336E-01 1.9482E-01 -1.6621E+01 8.938E-01 2.1832E+01 1.2051E+01 13.000 -7.6646E-01 1.3565E-01 -1.7066E+01 8.879E-01 2.4527E+01 1.3045E+01 14.000 -1.0250E+00 9.5496E-02 -1.7481E+01 8.831E-01 2.7338E+01 1.4041E+01 15.000 -1.2653E+00 6.8454E-02 -1.7910E+01 8.801E-01 3.0257E+01 1.5037E+01 16.000 -1.4894E+00 4.9930E-02 -1.8307E+01 8.793E-01 3.3281E+01 1.6034E+01 17.000 -1.6950E+00 3.6619E-02 -1.8695E+01 8.776E-01 3.6404E+01 1.7031E+01 18.000 -1.8893E+00 2.7679E-02 -1.9084E+01 8.772E-01 3.9623E+01 1.8028E+01 19.000 -2.0688E+00 2.0414E-02 -1.9385E+01 8.769E-01 4.2933E+01 1.9026E+01 20.000 -2.2337E+00 1.6060E-02 -1.9660E+01 8.754E-01 4.6332E+01 2.0025E+01 ifeffit-1.2.11d/examples/feff/feff0008.dat0000644000175000017500000001227710771740461017024 0ustar segresegre Cu metal fcc a=3.603 Feff XX 6.10 Abs Z=29 Rmt= 1.289 Rnm= 1.424 K shell Pot 1 Z=29 Rmt= 1.272 Rnm= 1.392 Gam_ch=1.761E+00 H-L exch Mu=-5.535E+00 kf=1.806E+00 Vint=-1.796E+01 Rs_int= 2.008 Path 8 icalc 2 ----------------------------------------------------------------------- 2 12.000 5.0957 2.6300 -5.53502 nleg, deg, reff, rnrmav(bohr), edge x y z pot at# .0000 .0000 .0000 0 29 Cu absorbing atom .0000 3.6032 -3.6032 1 29 Cu k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# .000 3.5015E+00 0.0000E+00 -3.1774E+00 9.872E-01 1.5637E+01 1.8071E+00 .100 3.5020E+00 4.8935E-02 -4.1695E+00 9.873E-01 1.5660E+01 1.8098E+00 .200 3.5035E+00 9.6620E-02 -5.1079E+00 9.877E-01 1.5726E+01 1.8177E+00 .300 3.5060E+00 1.4196E-01 -5.9937E+00 9.882E-01 1.5831E+01 1.8309E+00 .400 3.5093E+00 1.8416E-01 -6.8286E+00 9.890E-01 1.5963E+01 1.8491E+00 .500 3.5132E+00 2.2272E-01 -7.6145E+00 9.901E-01 1.6111E+01 1.8724E+00 .600 3.5175E+00 2.5746E-01 -8.3537E+00 9.915E-01 1.6258E+01 1.9005E+00 .700 3.5218E+00 2.8843E-01 -9.0482E+00 9.932E-01 1.6388E+01 1.9332E+00 .800 3.5258E+00 3.1585E-01 -9.7000E+00 9.953E-01 1.6481E+01 1.9704E+00 .900 3.5291E+00 3.3997E-01 -1.0311E+01 9.978E-01 1.6522E+01 2.0119E+00 1.000 3.5311E+00 3.6103E-01 -1.0882E+01 1.001E+00 1.6496E+01 2.0575E+00 1.100 3.5315E+00 3.7925E-01 -1.1415E+01 1.004E+00 1.6396E+01 2.1070E+00 1.200 3.5296E+00 3.9475E-01 -1.1911E+01 1.008E+00 1.6217E+01 2.1605E+00 1.300 3.5247E+00 4.0759E-01 -1.2371E+01 1.013E+00 1.5965E+01 2.2177E+00 1.400 3.5164E+00 4.1777E-01 -1.2795E+01 1.018E+00 1.5649E+01 2.2786E+00 1.500 3.5039E+00 4.2522E-01 -1.3184E+01 1.024E+00 1.5286E+01 2.3431E+00 1.600 3.4866E+00 4.2983E-01 -1.3538E+01 1.030E+00 1.4895E+01 2.4113E+00 1.700 3.4640E+00 4.3148E-01 -1.3856E+01 1.036E+00 1.4497E+01 2.4830E+00 1.800 3.4354E+00 4.3002E-01 -1.4138E+01 1.043E+00 1.4117E+01 2.5584E+00 1.900 3.4002E+00 4.2534E-01 -1.4383E+01 1.048E+00 1.3776E+01 2.6374E+00 2.000 3.3581E+00 4.1738E-01 -1.4591E+01 1.053E+00 1.3497E+01 2.7201E+00 2.200 3.2511E+00 3.9162E-01 -1.4886E+01 1.059E+00 1.3207E+01 2.8970E+00 2.400 3.1362E+00 3.8161E-01 -1.5084E+01 1.230E+00 7.5606E+00 3.0883E+00 2.600 3.1585E+00 3.7967E-01 -1.5768E+01 1.303E+00 6.1535E+00 3.2191E+00 2.800 3.1545E+00 3.5687E-01 -1.6348E+01 1.326E+00 5.6163E+00 3.3579E+00 3.000 3.1151E+00 3.2738E-01 -1.6802E+01 1.321E+00 5.3982E+00 3.5040E+00 3.200 3.0550E+00 2.8961E-01 -1.7148E+01 1.304E+00 5.3389E+00 3.6566E+00 3.400 2.9887E+00 2.6047E-01 -1.7364E+01 1.281E+00 5.3735E+00 3.8150E+00 3.600 2.9054E+00 2.4518E-01 -1.7463E+01 1.256E+00 5.4705E+00 3.9784E+00 3.800 2.8228E+00 2.5504E-01 -1.7492E+01 1.229E+00 5.6121E+00 4.1461E+00 4.000 2.7282E+00 2.8545E-01 -1.7520E+01 1.206E+00 5.7879E+00 4.3177E+00 4.200 2.6390E+00 3.2799E-01 -1.7576E+01 1.179E+00 5.9908E+00 4.4926E+00 4.400 2.5352E+00 3.8077E-01 -1.7661E+01 1.157E+00 6.2162E+00 4.6704E+00 4.600 2.4376E+00 4.3435E-01 -1.7764E+01 1.135E+00 6.4607E+00 4.8506E+00 4.800 2.3422E+00 4.8695E-01 -1.7868E+01 1.115E+00 6.7219E+00 5.0329E+00 5.000 2.2460E+00 5.3313E-01 -1.7978E+01 1.096E+00 6.9979E+00 5.2171E+00 5.200 2.1454E+00 5.7785E-01 -1.8084E+01 1.079E+00 7.2872E+00 5.4030E+00 5.400 2.0492E+00 6.1805E-01 -1.8183E+01 1.064E+00 7.5888E+00 5.5902E+00 5.600 1.9507E+00 6.5167E-01 -1.8281E+01 1.050E+00 7.9017E+00 5.7787E+00 5.800 1.8576E+00 6.8408E-01 -1.8372E+01 1.038E+00 8.2251E+00 5.9682E+00 6.000 1.7615E+00 7.1045E-01 -1.8457E+01 1.027E+00 8.5584E+00 6.1587E+00 6.500 1.5272E+00 7.5505E-01 -1.8652E+01 1.004E+00 9.4317E+00 6.6385E+00 7.000 1.2998E+00 7.7133E-01 -1.8823E+01 9.857E-01 1.0357E+01 7.1222E+00 7.500 1.0824E+00 7.6206E-01 -1.8978E+01 9.708E-01 1.1331E+01 7.6088E+00 8.000 8.7724E-01 7.3525E-01 -1.9119E+01 9.579E-01 1.2348E+01 8.0978E+00 8.500 6.8313E-01 6.9813E-01 -1.9248E+01 9.470E-01 1.3407E+01 8.5885E+00 9.000 4.9775E-01 6.5341E-01 -1.9370E+01 9.381E-01 1.4505E+01 9.0807E+00 9.500 3.2222E-01 6.0416E-01 -1.9492E+01 9.304E-01 1.5641E+01 9.5740E+00 10.000 1.4825E-01 5.5396E-01 -1.9617E+01 9.222E-01 1.6812E+01 1.0068E+01 11.000 -1.7917E-01 4.6223E-01 -1.9857E+01 9.056E-01 1.9258E+01 1.1059E+01 12.000 -4.8336E-01 3.8332E-01 -2.0091E+01 8.938E-01 2.1832E+01 1.2051E+01 13.000 -7.6646E-01 3.1905E-01 -2.0329E+01 8.879E-01 2.4527E+01 1.3045E+01 14.000 -1.0250E+00 2.6757E-01 -2.0548E+01 8.831E-01 2.7338E+01 1.4041E+01 15.000 -1.2653E+00 2.2532E-01 -2.0773E+01 8.801E-01 3.0257E+01 1.5037E+01 16.000 -1.4894E+00 1.9275E-01 -2.0982E+01 8.793E-01 3.3281E+01 1.6034E+01 17.000 -1.6950E+00 1.6443E-01 -2.1185E+01 8.776E-01 3.6404E+01 1.7031E+01 18.000 -1.8893E+00 1.4314E-01 -2.1393E+01 8.772E-01 3.9623E+01 1.8028E+01 19.000 -2.0688E+00 1.2302E-01 -2.1567E+01 8.769E-01 4.2933E+01 1.9026E+01 20.000 -2.2337E+00 1.0597E-01 -2.1776E+01 8.754E-01 4.6332E+01 2.0025E+01 ifeffit-1.2.11d/examples/feff/feff0012.dat0000644000175000017500000001243310771740461017011 0ustar segresegre Cu metal fcc a=3.603 Feff XX 6.10 Abs Z=29 Rmt= 1.289 Rnm= 1.424 K shell Pot 1 Z=29 Rmt= 1.272 Rnm= 1.392 Gam_ch=1.761E+00 H-L exch Mu=-5.535E+00 kf=1.806E+00 Vint=-1.796E+01 Rs_int= 2.008 Path 12 icalc 2 ----------------------------------------------------------------------- 4 12.000 5.0957 2.6300 -5.53502 nleg, deg, reff, rnrmav(bohr), edge x y z pot at# .0000 .0000 .0000 0 29 Cu absorbing atom 1.8016 1.8016 .0000 1 29 Cu .0000 .0000 .0000 0 29 Cu 1.8016 1.8016 .0000 1 29 Cu k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# .000 3.5015E+00 0.0000E+00 -7.8986E-01 9.872E-01 1.5637E+01 1.8071E+00 .100 3.5020E+00 1.2267E-02 -1.7869E+00 9.873E-01 1.5660E+01 1.8098E+00 .200 3.5035E+00 2.3969E-02 -2.7401E+00 9.877E-01 1.5726E+01 1.8177E+00 .300 3.5060E+00 3.4637E-02 -3.6507E+00 9.882E-01 1.5831E+01 1.8309E+00 .400 3.5093E+00 4.3958E-02 -4.5202E+00 9.890E-01 1.5963E+01 1.8491E+00 .500 3.5132E+00 5.1797E-02 -5.3504E+00 9.901E-01 1.6111E+01 1.8724E+00 .600 3.5175E+00 5.8164E-02 -6.1429E+00 9.915E-01 1.6258E+01 1.9005E+00 .700 3.5218E+00 6.3164E-02 -6.8989E+00 9.932E-01 1.6388E+01 1.9332E+00 .800 3.5258E+00 6.6941E-02 -7.6194E+00 9.953E-01 1.6481E+01 1.9704E+00 .900 3.5291E+00 6.9634E-02 -8.3051E+00 9.978E-01 1.6522E+01 2.0119E+00 1.000 3.5311E+00 7.1345E-02 -8.9564E+00 1.001E+00 1.6496E+01 2.0575E+00 1.100 3.5315E+00 7.2136E-02 -9.5736E+00 1.004E+00 1.6396E+01 2.1070E+00 1.200 3.5296E+00 7.2029E-02 -1.0157E+01 1.008E+00 1.6217E+01 2.1605E+00 1.300 3.5247E+00 7.1026E-02 -1.0706E+01 1.013E+00 1.5965E+01 2.2177E+00 1.400 3.5164E+00 6.9111E-02 -1.1222E+01 1.018E+00 1.5649E+01 2.2786E+00 1.500 3.5039E+00 6.6281E-02 -1.1703E+01 1.024E+00 1.5286E+01 2.3431E+00 1.600 3.4866E+00 6.2558E-02 -1.2150E+01 1.030E+00 1.4895E+01 2.4113E+00 1.700 3.4640E+00 5.8004E-02 -1.2562E+01 1.036E+00 1.4497E+01 2.4830E+00 1.800 3.4354E+00 5.2729E-02 -1.2938E+01 1.043E+00 1.4117E+01 2.5584E+00 1.900 3.4002E+00 4.6898E-02 -1.3277E+01 1.048E+00 1.3776E+01 2.6374E+00 2.000 3.3581E+00 4.0719E-02 -1.3575E+01 1.053E+00 1.3497E+01 2.7201E+00 2.200 3.2511E+00 2.8301E-02 -1.4042E+01 1.059E+00 1.3207E+01 2.8970E+00 2.400 3.1362E+00 2.0801E-02 -1.4514E+01 1.230E+00 7.5606E+00 3.0883E+00 2.600 3.1585E+00 1.7014E-02 -1.5231E+01 1.303E+00 6.1535E+00 3.2191E+00 2.800 3.1545E+00 1.1793E-02 -1.5771E+01 1.326E+00 5.6163E+00 3.3579E+00 3.000 3.1151E+00 7.7715E-03 -1.6064E+01 1.321E+00 5.3982E+00 3.5040E+00 3.200 3.0550E+00 5.7045E-03 -1.6216E+01 1.304E+00 5.3389E+00 3.6566E+00 3.400 2.9887E+00 6.2393E-03 -1.6523E+01 1.281E+00 5.3735E+00 3.8150E+00 3.600 2.9054E+00 9.3794E-03 -1.7088E+01 1.256E+00 5.4705E+00 3.9784E+00 3.800 2.8228E+00 1.6451E-02 -1.7612E+01 1.229E+00 5.6121E+00 4.1461E+00 4.000 2.7282E+00 2.8284E-02 -1.8016E+01 1.206E+00 5.7879E+00 4.3177E+00 4.200 2.6390E+00 4.4340E-02 -1.8327E+01 1.179E+00 5.9908E+00 4.4926E+00 4.400 2.5352E+00 6.4571E-02 -1.8586E+01 1.157E+00 6.2162E+00 4.6704E+00 4.600 2.4376E+00 8.7303E-02 -1.8815E+01 1.135E+00 6.4607E+00 4.8506E+00 4.800 2.3422E+00 1.1310E-01 -1.9003E+01 1.115E+00 6.7219E+00 5.0329E+00 5.000 2.2460E+00 1.3796E-01 -1.9190E+01 1.096E+00 6.9979E+00 5.2171E+00 5.200 2.1454E+00 1.6447E-01 -1.9357E+01 1.079E+00 7.2872E+00 5.4030E+00 5.400 2.0492E+00 1.9148E-01 -1.9501E+01 1.064E+00 7.5888E+00 5.5902E+00 5.600 1.9507E+00 2.1513E-01 -1.9653E+01 1.050E+00 7.9017E+00 5.7787E+00 5.800 1.8576E+00 2.3923E-01 -1.9786E+01 1.038E+00 8.2251E+00 5.9682E+00 6.000 1.7615E+00 2.5942E-01 -1.9913E+01 1.027E+00 8.5584E+00 6.1587E+00 6.500 1.5272E+00 2.9118E-01 -2.0220E+01 1.004E+00 9.4317E+00 6.6385E+00 7.000 1.2998E+00 2.9364E-01 -2.0506E+01 9.857E-01 1.0357E+01 7.1222E+00 7.500 1.0824E+00 2.7166E-01 -2.0782E+01 9.708E-01 1.1331E+01 7.6088E+00 8.000 8.7724E-01 2.3725E-01 -2.1043E+01 9.579E-01 1.2348E+01 8.0978E+00 8.500 6.8313E-01 1.9925E-01 -2.1290E+01 9.470E-01 1.3407E+01 8.5885E+00 9.000 4.9775E-01 1.6126E-01 -2.1543E+01 9.381E-01 1.4505E+01 9.0807E+00 9.500 3.2222E-01 1.2635E-01 -2.1811E+01 9.304E-01 1.5641E+01 9.5740E+00 10.000 1.4825E-01 9.6726E-02 -2.2101E+01 9.222E-01 1.6812E+01 1.0068E+01 11.000 -1.7917E-01 5.5691E-02 -2.2677E+01 9.056E-01 1.9258E+01 1.1059E+01 12.000 -4.8336E-01 3.1665E-02 -2.3274E+01 8.938E-01 2.1832E+01 1.2051E+01 13.000 -7.6646E-01 1.8310E-02 -2.3901E+01 8.879E-01 2.4527E+01 1.3045E+01 14.000 -1.0250E+00 1.0760E-02 -2.4481E+01 8.831E-01 2.7338E+01 1.4041E+01 15.000 -1.2653E+00 6.5042E-03 -2.5106E+01 8.801E-01 3.0257E+01 1.5037E+01 16.000 -1.4894E+00 4.0410E-03 -2.5671E+01 8.793E-01 3.3281E+01 1.6034E+01 17.000 -1.6950E+00 2.5370E-03 -2.6249E+01 8.776E-01 3.6404E+01 1.7031E+01 18.000 -1.8893E+00 1.6812E-03 -2.6828E+01 8.772E-01 3.9623E+01 1.8028E+01 19.000 -2.0688E+00 1.0469E-03 -2.7345E+01 8.769E-01 4.2933E+01 1.9026E+01 20.000 -2.2337E+00 4.8400E-04 -2.8273E+01 8.754E-01 4.6332E+01 2.0025E+01 ifeffit-1.2.11d/examples/feff/feff0006.dat0000644000175000017500000001235510771740461017017 0ustar segresegre Cu metal fcc a=3.603 Feff XX 6.10 Abs Z=29 Rmt= 1.289 Rnm= 1.424 K shell Pot 1 Z=29 Rmt= 1.272 Rnm= 1.392 Gam_ch=1.761E+00 H-L exch Mu=-5.535E+00 kf=1.806E+00 Vint=-1.796E+01 Rs_int= 2.008 Path 6 icalc 2 ----------------------------------------------------------------------- 3 48.000 4.7543 2.6300 -5.53502 nleg, deg, reff, rnrmav(bohr), edge x y z pot at# .0000 .0000 .0000 0 29 Cu absorbing atom 1.8016 -1.8016 .0000 1 29 Cu .0000 1.8016 1.8016 1 29 Cu k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# .000 3.5015E+00 0.0000E+00 -4.3839E+00 9.872E-01 1.5637E+01 1.8071E+00 .100 3.5020E+00 8.5093E-03 -5.3106E+00 9.873E-01 1.5660E+01 1.8098E+00 .200 3.5035E+00 1.6738E-02 -6.1893E+00 9.877E-01 1.5726E+01 1.8177E+00 .300 3.5060E+00 2.4451E-02 -7.0213E+00 9.882E-01 1.5831E+01 1.8309E+00 .400 3.5093E+00 3.1486E-02 -7.8083E+00 9.890E-01 1.5963E+01 1.8491E+00 .500 3.5132E+00 3.7764E-02 -8.5522E+00 9.901E-01 1.6111E+01 1.8724E+00 .600 3.5175E+00 4.3278E-02 -9.2552E+00 9.915E-01 1.6258E+01 1.9005E+00 .700 3.5218E+00 4.8068E-02 -9.9192E+00 9.932E-01 1.6388E+01 1.9332E+00 .800 3.5258E+00 5.2198E-02 -1.0546E+01 9.953E-01 1.6481E+01 1.9704E+00 .900 3.5291E+00 5.5732E-02 -1.1138E+01 9.978E-01 1.6522E+01 2.0119E+00 1.000 3.5311E+00 5.8722E-02 -1.1696E+01 1.001E+00 1.6496E+01 2.0575E+00 1.100 3.5315E+00 6.1199E-02 -1.2222E+01 1.004E+00 1.6396E+01 2.1070E+00 1.200 3.5296E+00 6.3174E-02 -1.2717E+01 1.008E+00 1.6217E+01 2.1605E+00 1.300 3.5247E+00 6.4636E-02 -1.3183E+01 1.013E+00 1.5965E+01 2.2177E+00 1.400 3.5164E+00 6.5560E-02 -1.3620E+01 1.018E+00 1.5649E+01 2.2786E+00 1.500 3.5039E+00 6.5905E-02 -1.4029E+01 1.024E+00 1.5286E+01 2.3431E+00 1.600 3.4866E+00 6.5629E-02 -1.4411E+01 1.030E+00 1.4895E+01 2.4113E+00 1.700 3.4640E+00 6.4689E-02 -1.4767E+01 1.036E+00 1.4497E+01 2.4830E+00 1.800 3.4354E+00 6.3054E-02 -1.5096E+01 1.043E+00 1.4117E+01 2.5584E+00 1.900 3.4002E+00 6.0709E-02 -1.5400E+01 1.048E+00 1.3776E+01 2.6374E+00 2.000 3.3581E+00 5.7667E-02 -1.5679E+01 1.053E+00 1.3497E+01 2.7201E+00 2.200 3.2511E+00 4.9724E-02 -1.6159E+01 1.059E+00 1.3207E+01 2.8970E+00 2.400 3.1362E+00 5.2263E-02 -1.6693E+01 1.230E+00 7.5606E+00 3.0883E+00 2.600 3.1585E+00 5.6137E-02 -1.7450E+01 1.303E+00 6.1535E+00 3.2191E+00 2.800 3.1545E+00 5.3448E-02 -1.8151E+01 1.326E+00 5.6163E+00 3.3579E+00 3.000 3.1151E+00 4.8619E-02 -1.8782E+01 1.321E+00 5.3982E+00 3.5040E+00 3.200 3.0550E+00 4.2552E-02 -1.9392E+01 1.304E+00 5.3389E+00 3.6566E+00 3.400 2.9887E+00 3.7165E-02 -1.9942E+01 1.281E+00 5.3735E+00 3.8150E+00 3.600 2.9054E+00 3.3059E-02 -2.0427E+01 1.256E+00 5.4705E+00 3.9784E+00 3.800 2.8228E+00 3.0058E-02 -2.0818E+01 1.229E+00 5.6121E+00 4.1461E+00 4.000 2.7282E+00 2.8319E-02 -2.1114E+01 1.206E+00 5.7879E+00 4.3177E+00 4.200 2.6390E+00 2.7550E-02 -2.1334E+01 1.179E+00 5.9908E+00 4.4926E+00 4.400 2.5352E+00 2.8694E-02 -2.1478E+01 1.157E+00 6.2162E+00 4.6704E+00 4.600 2.4376E+00 3.1286E-02 -2.1603E+01 1.135E+00 6.4607E+00 4.8506E+00 4.800 2.3422E+00 3.5117E-02 -2.1718E+01 1.115E+00 6.7219E+00 5.0329E+00 5.000 2.2460E+00 3.9534E-02 -2.1852E+01 1.096E+00 6.9979E+00 5.2171E+00 5.200 2.1454E+00 4.4693E-02 -2.1988E+01 1.079E+00 7.2872E+00 5.4030E+00 5.400 2.0492E+00 5.0051E-02 -2.2121E+01 1.064E+00 7.5888E+00 5.5902E+00 5.600 1.9507E+00 5.5140E-02 -2.2261E+01 1.050E+00 7.9017E+00 5.7787E+00 5.800 1.8576E+00 6.0369E-02 -2.2395E+01 1.038E+00 8.2251E+00 5.9682E+00 6.000 1.7615E+00 6.5133E-02 -2.2523E+01 1.027E+00 8.5584E+00 6.1587E+00 6.500 1.5272E+00 7.4721E-02 -2.2837E+01 1.004E+00 9.4317E+00 6.6385E+00 7.000 1.2998E+00 8.0583E-02 -2.3129E+01 9.857E-01 1.0357E+01 7.1222E+00 7.500 1.0824E+00 8.2225E-02 -2.3408E+01 9.708E-01 1.1331E+01 7.6088E+00 8.000 8.7724E-01 8.0234E-02 -2.3671E+01 9.579E-01 1.2348E+01 8.0978E+00 8.500 6.8313E-01 7.5746E-02 -2.3916E+01 9.470E-01 1.3407E+01 8.5885E+00 9.000 4.9775E-01 6.9804E-02 -2.4149E+01 9.381E-01 1.4505E+01 9.0807E+00 9.500 3.2222E-01 6.3261E-02 -2.4377E+01 9.304E-01 1.5641E+01 9.5740E+00 10.000 1.4825E-01 5.6560E-02 -2.4607E+01 9.222E-01 1.6812E+01 1.0068E+01 11.000 -1.7917E-01 4.3954E-02 -2.5060E+01 9.056E-01 1.9258E+01 1.1059E+01 12.000 -4.8336E-01 3.3491E-02 -2.5490E+01 8.938E-01 2.1832E+01 1.2051E+01 13.000 -7.6646E-01 2.5387E-02 -2.5909E+01 8.879E-01 2.4527E+01 1.3045E+01 14.000 -1.0250E+00 1.9229E-02 -2.6320E+01 8.831E-01 2.7338E+01 1.4041E+01 15.000 -1.2653E+00 1.4570E-02 -2.6704E+01 8.801E-01 3.0257E+01 1.5037E+01 16.000 -1.4894E+00 1.1161E-02 -2.7093E+01 8.793E-01 3.3281E+01 1.6034E+01 17.000 -1.6950E+00 8.6189E-03 -2.7461E+01 8.776E-01 3.6404E+01 1.7031E+01 18.000 -1.8893E+00 6.6525E-03 -2.7809E+01 8.772E-01 3.9623E+01 1.8028E+01 19.000 -2.0688E+00 5.3108E-03 -2.8172E+01 8.769E-01 4.2933E+01 1.9026E+01 20.000 -2.2337E+00 4.1658E-03 -2.8477E+01 8.754E-01 4.6332E+01 2.0025E+01 ifeffit-1.2.11d/examples/feff/feffcu02.dat0000644000175000017500000001227710771740461017206 0ustar segresegre Cu metal fcc a=3.603 Feff XX 6.10 Abs Z=29 Rmt= 1.289 Rnm= 1.424 K shell Pot 1 Z=29 Rmt= 1.272 Rnm= 1.392 Gam_ch=1.761E+00 H-L exch Mu=-5.535E+00 kf=1.806E+00 Vint=-1.796E+01 Rs_int= 2.008 Path 2 icalc 2 ----------------------------------------------------------------------- 2 6.000 3.6032 2.6300 -5.53502 nleg, deg, reff, rnrmav(bohr), edge x y z pot at# .0000 .0000 .0000 0 29 Cu absorbing atom -3.6032 .0000 .0000 1 29 Cu k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# .000 3.5015E+00 0.0000E+00 -1.9368E+00 9.872E-01 1.5637E+01 1.8071E+00 .100 3.5020E+00 4.4009E-02 -2.6394E+00 9.873E-01 1.5660E+01 1.8098E+00 .200 3.5035E+00 8.6894E-02 -3.3061E+00 9.877E-01 1.5726E+01 1.8177E+00 .300 3.5060E+00 1.2768E-01 -3.9377E+00 9.882E-01 1.5831E+01 1.8309E+00 .400 3.5093E+00 1.6565E-01 -4.5354E+00 9.890E-01 1.5963E+01 1.8491E+00 .500 3.5132E+00 2.0037E-01 -5.1005E+00 9.901E-01 1.6111E+01 1.8724E+00 .600 3.5175E+00 2.3172E-01 -5.6342E+00 9.915E-01 1.6258E+01 1.9005E+00 .700 3.5218E+00 2.5974E-01 -6.1379E+00 9.932E-01 1.6388E+01 1.9332E+00 .800 3.5258E+00 2.8462E-01 -6.6126E+00 9.953E-01 1.6481E+01 1.9704E+00 .900 3.5291E+00 3.0656E-01 -7.0593E+00 9.978E-01 1.6522E+01 2.0119E+00 1.000 3.5311E+00 3.2577E-01 -7.4789E+00 1.001E+00 1.6496E+01 2.0575E+00 1.100 3.5315E+00 3.4238E-01 -7.8721E+00 1.004E+00 1.6396E+01 2.1070E+00 1.200 3.5296E+00 3.5648E-01 -8.2394E+00 1.008E+00 1.6217E+01 2.1605E+00 1.300 3.5247E+00 3.6805E-01 -8.5812E+00 1.013E+00 1.5965E+01 2.2177E+00 1.400 3.5164E+00 3.7703E-01 -8.8978E+00 1.018E+00 1.5649E+01 2.2786E+00 1.500 3.5039E+00 3.8333E-01 -9.1894E+00 1.024E+00 1.5286E+01 2.3431E+00 1.600 3.4866E+00 3.8679E-01 -9.4557E+00 1.030E+00 1.4895E+01 2.4113E+00 1.700 3.4640E+00 3.8727E-01 -9.6966E+00 1.036E+00 1.4497E+01 2.4830E+00 1.800 3.4354E+00 3.8462E-01 -9.9115E+00 1.043E+00 1.4117E+01 2.5584E+00 1.900 3.4002E+00 3.7875E-01 -1.0100E+01 1.048E+00 1.3776E+01 2.6374E+00 2.000 3.3581E+00 3.6961E-01 -1.0260E+01 1.053E+00 1.3497E+01 2.7201E+00 2.200 3.2511E+00 3.4179E-01 -1.0490E+01 1.059E+00 1.3207E+01 2.8970E+00 2.400 3.1362E+00 3.2322E-01 -1.0664E+01 1.230E+00 7.5606E+00 3.0883E+00 2.600 3.1585E+00 3.1411E-01 -1.1143E+01 1.303E+00 6.1535E+00 3.2191E+00 2.800 3.1545E+00 2.8725E-01 -1.1528E+01 1.326E+00 5.6163E+00 3.3579E+00 3.000 3.1151E+00 2.5588E-01 -1.1788E+01 1.321E+00 5.3982E+00 3.5040E+00 3.200 3.0550E+00 2.2122E-01 -1.1928E+01 1.304E+00 5.3389E+00 3.6566E+00 3.400 2.9887E+00 2.0330E-01 -1.1932E+01 1.281E+00 5.3735E+00 3.8150E+00 3.600 2.9054E+00 2.0843E-01 -1.1850E+01 1.256E+00 5.4705E+00 3.9784E+00 3.800 2.8228E+00 2.4172E-01 -1.1788E+01 1.229E+00 5.6121E+00 4.1461E+00 4.000 2.7282E+00 2.9080E-01 -1.1783E+01 1.206E+00 5.7879E+00 4.3177E+00 4.200 2.6390E+00 3.4555E-01 -1.1825E+01 1.179E+00 5.9908E+00 4.4926E+00 4.400 2.5352E+00 4.0431E-01 -1.1893E+01 1.157E+00 6.2162E+00 4.6704E+00 4.600 2.4376E+00 4.6028E-01 -1.1975E+01 1.135E+00 6.4607E+00 4.8506E+00 4.800 2.3422E+00 5.1294E-01 -1.2055E+01 1.115E+00 6.7219E+00 5.0329E+00 5.000 2.2460E+00 5.5809E-01 -1.2140E+01 1.096E+00 6.9979E+00 5.2171E+00 5.200 2.1454E+00 6.0085E-01 -1.2222E+01 1.079E+00 7.2872E+00 5.4030E+00 5.400 2.0492E+00 6.3867E-01 -1.2297E+01 1.064E+00 7.5888E+00 5.5902E+00 5.600 1.9507E+00 6.6986E-01 -1.2373E+01 1.050E+00 7.9017E+00 5.7787E+00 5.800 1.8576E+00 6.9963E-01 -1.2443E+01 1.038E+00 8.2251E+00 5.9682E+00 6.000 1.7615E+00 7.2338E-01 -1.2508E+01 1.027E+00 8.5584E+00 6.1587E+00 6.500 1.5272E+00 7.6169E-01 -1.2661E+01 1.004E+00 9.4317E+00 6.6385E+00 7.000 1.2998E+00 7.7231E-01 -1.2797E+01 9.857E-01 1.0357E+01 7.1222E+00 7.500 1.0824E+00 7.5858E-01 -1.2924E+01 9.708E-01 1.1331E+01 7.6088E+00 8.000 8.7724E-01 7.2858E-01 -1.3042E+01 9.579E-01 1.2348E+01 8.0978E+00 8.500 6.8313E-01 6.8936E-01 -1.3151E+01 9.470E-01 1.3407E+01 8.5885E+00 9.000 4.9775E-01 6.4353E-01 -1.3258E+01 9.381E-01 1.4505E+01 9.0807E+00 9.500 3.2222E-01 5.9395E-01 -1.3367E+01 9.304E-01 1.5641E+01 9.5740E+00 10.000 1.4825E-01 5.4390E-01 -1.3480E+01 9.222E-01 1.6812E+01 1.0068E+01 11.000 -1.7917E-01 4.5305E-01 -1.3702E+01 9.056E-01 1.9258E+01 1.1059E+01 12.000 -4.8336E-01 3.7567E-01 -1.3922E+01 8.938E-01 2.1832E+01 1.2051E+01 13.000 -7.6646E-01 3.1296E-01 -1.4149E+01 8.879E-01 2.4527E+01 1.3045E+01 14.000 -1.0250E+00 2.6253E-01 -1.4359E+01 8.831E-01 2.7338E+01 1.4041E+01 15.000 -1.2653E+00 2.2160E-01 -1.4577E+01 8.801E-01 3.0257E+01 1.5037E+01 16.000 -1.4894E+00 1.8953E-01 -1.4778E+01 8.793E-01 3.3281E+01 1.6034E+01 17.000 -1.6950E+00 1.6208E-01 -1.4977E+01 8.776E-01 3.6404E+01 1.7031E+01 18.000 -1.8893E+00 1.4153E-01 -1.5177E+01 8.772E-01 3.9623E+01 1.8028E+01 19.000 -2.0688E+00 1.2296E-01 -1.5346E+01 8.769E-01 4.2933E+01 1.9026E+01 20.000 -2.2337E+00 1.1112E-01 -1.5554E+01 8.754E-01 4.6332E+01 2.0025E+01 ifeffit-1.2.11d/examples/feff/feff0002.dat0000644000175000017500000001227710771740461017016 0ustar segresegre Cu metal fcc a=3.603 Feff XX 6.10 Abs Z=29 Rmt= 1.289 Rnm= 1.424 K shell Pot 1 Z=29 Rmt= 1.272 Rnm= 1.392 Gam_ch=1.761E+00 H-L exch Mu=-5.535E+00 kf=1.806E+00 Vint=-1.796E+01 Rs_int= 2.008 Path 2 icalc 2 ----------------------------------------------------------------------- 2 6.000 3.6032 2.6300 -5.53502 nleg, deg, reff, rnrmav(bohr), edge x y z pot at# .0000 .0000 .0000 0 29 Cu absorbing atom -3.6032 .0000 .0000 1 29 Cu k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# .000 3.5015E+00 0.0000E+00 -1.9368E+00 9.872E-01 1.5637E+01 1.8071E+00 .100 3.5020E+00 4.4009E-02 -2.6394E+00 9.873E-01 1.5660E+01 1.8098E+00 .200 3.5035E+00 8.6894E-02 -3.3061E+00 9.877E-01 1.5726E+01 1.8177E+00 .300 3.5060E+00 1.2768E-01 -3.9377E+00 9.882E-01 1.5831E+01 1.8309E+00 .400 3.5093E+00 1.6565E-01 -4.5354E+00 9.890E-01 1.5963E+01 1.8491E+00 .500 3.5132E+00 2.0037E-01 -5.1005E+00 9.901E-01 1.6111E+01 1.8724E+00 .600 3.5175E+00 2.3172E-01 -5.6342E+00 9.915E-01 1.6258E+01 1.9005E+00 .700 3.5218E+00 2.5974E-01 -6.1379E+00 9.932E-01 1.6388E+01 1.9332E+00 .800 3.5258E+00 2.8462E-01 -6.6126E+00 9.953E-01 1.6481E+01 1.9704E+00 .900 3.5291E+00 3.0656E-01 -7.0593E+00 9.978E-01 1.6522E+01 2.0119E+00 1.000 3.5311E+00 3.2577E-01 -7.4789E+00 1.001E+00 1.6496E+01 2.0575E+00 1.100 3.5315E+00 3.4238E-01 -7.8721E+00 1.004E+00 1.6396E+01 2.1070E+00 1.200 3.5296E+00 3.5648E-01 -8.2394E+00 1.008E+00 1.6217E+01 2.1605E+00 1.300 3.5247E+00 3.6805E-01 -8.5812E+00 1.013E+00 1.5965E+01 2.2177E+00 1.400 3.5164E+00 3.7703E-01 -8.8978E+00 1.018E+00 1.5649E+01 2.2786E+00 1.500 3.5039E+00 3.8333E-01 -9.1894E+00 1.024E+00 1.5286E+01 2.3431E+00 1.600 3.4866E+00 3.8679E-01 -9.4557E+00 1.030E+00 1.4895E+01 2.4113E+00 1.700 3.4640E+00 3.8727E-01 -9.6966E+00 1.036E+00 1.4497E+01 2.4830E+00 1.800 3.4354E+00 3.8462E-01 -9.9115E+00 1.043E+00 1.4117E+01 2.5584E+00 1.900 3.4002E+00 3.7875E-01 -1.0100E+01 1.048E+00 1.3776E+01 2.6374E+00 2.000 3.3581E+00 3.6961E-01 -1.0260E+01 1.053E+00 1.3497E+01 2.7201E+00 2.200 3.2511E+00 3.4179E-01 -1.0490E+01 1.059E+00 1.3207E+01 2.8970E+00 2.400 3.1362E+00 3.2322E-01 -1.0664E+01 1.230E+00 7.5606E+00 3.0883E+00 2.600 3.1585E+00 3.1411E-01 -1.1143E+01 1.303E+00 6.1535E+00 3.2191E+00 2.800 3.1545E+00 2.8725E-01 -1.1528E+01 1.326E+00 5.6163E+00 3.3579E+00 3.000 3.1151E+00 2.5588E-01 -1.1788E+01 1.321E+00 5.3982E+00 3.5040E+00 3.200 3.0550E+00 2.2122E-01 -1.1928E+01 1.304E+00 5.3389E+00 3.6566E+00 3.400 2.9887E+00 2.0330E-01 -1.1932E+01 1.281E+00 5.3735E+00 3.8150E+00 3.600 2.9054E+00 2.0843E-01 -1.1850E+01 1.256E+00 5.4705E+00 3.9784E+00 3.800 2.8228E+00 2.4172E-01 -1.1788E+01 1.229E+00 5.6121E+00 4.1461E+00 4.000 2.7282E+00 2.9080E-01 -1.1783E+01 1.206E+00 5.7879E+00 4.3177E+00 4.200 2.6390E+00 3.4555E-01 -1.1825E+01 1.179E+00 5.9908E+00 4.4926E+00 4.400 2.5352E+00 4.0431E-01 -1.1893E+01 1.157E+00 6.2162E+00 4.6704E+00 4.600 2.4376E+00 4.6028E-01 -1.1975E+01 1.135E+00 6.4607E+00 4.8506E+00 4.800 2.3422E+00 5.1294E-01 -1.2055E+01 1.115E+00 6.7219E+00 5.0329E+00 5.000 2.2460E+00 5.5809E-01 -1.2140E+01 1.096E+00 6.9979E+00 5.2171E+00 5.200 2.1454E+00 6.0085E-01 -1.2222E+01 1.079E+00 7.2872E+00 5.4030E+00 5.400 2.0492E+00 6.3867E-01 -1.2297E+01 1.064E+00 7.5888E+00 5.5902E+00 5.600 1.9507E+00 6.6986E-01 -1.2373E+01 1.050E+00 7.9017E+00 5.7787E+00 5.800 1.8576E+00 6.9963E-01 -1.2443E+01 1.038E+00 8.2251E+00 5.9682E+00 6.000 1.7615E+00 7.2338E-01 -1.2508E+01 1.027E+00 8.5584E+00 6.1587E+00 6.500 1.5272E+00 7.6169E-01 -1.2661E+01 1.004E+00 9.4317E+00 6.6385E+00 7.000 1.2998E+00 7.7231E-01 -1.2797E+01 9.857E-01 1.0357E+01 7.1222E+00 7.500 1.0824E+00 7.5858E-01 -1.2924E+01 9.708E-01 1.1331E+01 7.6088E+00 8.000 8.7724E-01 7.2858E-01 -1.3042E+01 9.579E-01 1.2348E+01 8.0978E+00 8.500 6.8313E-01 6.8936E-01 -1.3151E+01 9.470E-01 1.3407E+01 8.5885E+00 9.000 4.9775E-01 6.4353E-01 -1.3258E+01 9.381E-01 1.4505E+01 9.0807E+00 9.500 3.2222E-01 5.9395E-01 -1.3367E+01 9.304E-01 1.5641E+01 9.5740E+00 10.000 1.4825E-01 5.4390E-01 -1.3480E+01 9.222E-01 1.6812E+01 1.0068E+01 11.000 -1.7917E-01 4.5305E-01 -1.3702E+01 9.056E-01 1.9258E+01 1.1059E+01 12.000 -4.8336E-01 3.7567E-01 -1.3922E+01 8.938E-01 2.1832E+01 1.2051E+01 13.000 -7.6646E-01 3.1296E-01 -1.4149E+01 8.879E-01 2.4527E+01 1.3045E+01 14.000 -1.0250E+00 2.6253E-01 -1.4359E+01 8.831E-01 2.7338E+01 1.4041E+01 15.000 -1.2653E+00 2.2160E-01 -1.4577E+01 8.801E-01 3.0257E+01 1.5037E+01 16.000 -1.4894E+00 1.8953E-01 -1.4778E+01 8.793E-01 3.3281E+01 1.6034E+01 17.000 -1.6950E+00 1.6208E-01 -1.4977E+01 8.776E-01 3.6404E+01 1.7031E+01 18.000 -1.8893E+00 1.4153E-01 -1.5177E+01 8.772E-01 3.9623E+01 1.8028E+01 19.000 -2.0688E+00 1.2296E-01 -1.5346E+01 8.769E-01 4.2933E+01 1.9026E+01 20.000 -2.2337E+00 1.1112E-01 -1.5554E+01 8.754E-01 4.6332E+01 2.0025E+01 ifeffit-1.2.11d/examples/feff/feff0013.dat0000644000175000017500000001243310771740461017012 0ustar segresegre Cu metal fcc a=3.603 Feff XX 6.10 Abs Z=29 Rmt= 1.289 Rnm= 1.424 K shell Pot 1 Z=29 Rmt= 1.272 Rnm= 1.392 Gam_ch=1.761E+00 H-L exch Mu=-5.535E+00 kf=1.806E+00 Vint=-1.796E+01 Rs_int= 2.008 Path 13 icalc 2 ----------------------------------------------------------------------- 4 12.000 5.0957 2.6300 -5.53502 nleg, deg, reff, rnrmav(bohr), edge x y z pot at# .0000 .0000 .0000 0 29 Cu absorbing atom -1.8016 .0000 1.8016 1 29 Cu -3.6032 .0000 3.6032 1 29 Cu -1.8016 .0000 1.8016 1 29 Cu k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# .000 3.5015E+00 0.0000E+00 -8.5281E-01 9.872E-01 1.5637E+01 1.8071E+00 .100 3.5020E+00 1.1361E-02 -1.8493E+00 9.873E-01 1.5660E+01 1.8098E+00 .200 3.5035E+00 2.1987E-02 -2.8014E+00 9.877E-01 1.5726E+01 1.8177E+00 .300 3.5060E+00 3.1302E-02 -3.7109E+00 9.882E-01 1.5831E+01 1.8309E+00 .400 3.5093E+00 3.8981E-02 -4.5804E+00 9.890E-01 1.5963E+01 1.8491E+00 .500 3.5132E+00 4.4977E-02 -5.4126E+00 9.901E-01 1.6111E+01 1.8724E+00 .600 3.5175E+00 4.9456E-02 -6.2102E+00 9.915E-01 1.6258E+01 1.9005E+00 .700 3.5218E+00 5.2717E-02 -6.9751E+00 9.932E-01 1.6388E+01 1.9332E+00 .800 3.5258E+00 5.5098E-02 -7.7087E+00 9.953E-01 1.6481E+01 1.9704E+00 .900 3.5291E+00 5.6915E-02 -8.4115E+00 9.978E-01 1.6522E+01 2.0119E+00 1.000 3.5311E+00 5.8427E-02 -9.0836E+00 1.001E+00 1.6496E+01 2.0575E+00 1.100 3.5315E+00 5.9827E-02 -9.7246E+00 1.004E+00 1.6396E+01 2.1070E+00 1.200 3.5296E+00 6.1241E-02 -1.0334E+01 1.008E+00 1.6217E+01 2.1605E+00 1.300 3.5247E+00 6.2738E-02 -1.0911E+01 1.013E+00 1.5965E+01 2.2177E+00 1.400 3.5164E+00 6.4341E-02 -1.1456E+01 1.018E+00 1.5649E+01 2.2786E+00 1.500 3.5039E+00 6.6035E-02 -1.1967E+01 1.024E+00 1.5286E+01 2.3431E+00 1.600 3.4866E+00 6.7775E-02 -1.2444E+01 1.030E+00 1.4895E+01 2.4113E+00 1.700 3.4640E+00 6.9492E-02 -1.2886E+01 1.036E+00 1.4497E+01 2.4830E+00 1.800 3.4354E+00 7.1103E-02 -1.3292E+01 1.043E+00 1.4117E+01 2.5584E+00 1.900 3.4002E+00 7.2507E-02 -1.3662E+01 1.048E+00 1.3776E+01 2.6374E+00 2.000 3.3581E+00 7.3602E-02 -1.3993E+01 1.053E+00 1.3497E+01 2.7201E+00 2.200 3.2511E+00 7.4460E-02 -1.4528E+01 1.059E+00 1.3207E+01 2.8970E+00 2.400 3.1362E+00 6.7430E-02 -1.4671E+01 1.230E+00 7.5606E+00 3.0883E+00 2.600 3.1585E+00 4.3083E-02 -1.5526E+01 1.303E+00 6.1535E+00 3.2191E+00 2.800 3.1545E+00 2.6571E-02 -1.6331E+01 1.326E+00 5.6163E+00 3.3579E+00 3.000 3.1151E+00 1.4507E-02 -1.6784E+01 1.321E+00 5.3982E+00 3.5040E+00 3.200 3.0550E+00 1.7884E-02 -1.6591E+01 1.304E+00 5.3389E+00 3.6566E+00 3.400 2.9887E+00 4.0514E-02 -1.6947E+01 1.281E+00 5.3735E+00 3.8150E+00 3.600 2.9054E+00 8.0493E-02 -1.7449E+01 1.256E+00 5.4705E+00 3.9784E+00 3.800 2.8228E+00 1.4073E-01 -1.7940E+01 1.229E+00 5.6121E+00 4.1461E+00 4.000 2.7282E+00 2.2366E-01 -1.8349E+01 1.206E+00 5.7879E+00 4.3177E+00 4.200 2.6390E+00 3.2665E-01 -1.8699E+01 1.179E+00 5.9908E+00 4.4926E+00 4.400 2.5352E+00 4.5015E-01 -1.9001E+01 1.157E+00 6.2162E+00 4.6704E+00 4.600 2.4376E+00 5.8777E-01 -1.9261E+01 1.135E+00 6.4607E+00 4.8506E+00 4.800 2.3422E+00 7.3845E-01 -1.9485E+01 1.115E+00 6.7219E+00 5.0329E+00 5.000 2.2460E+00 8.8761E-01 -1.9688E+01 1.096E+00 6.9979E+00 5.2171E+00 5.200 2.1454E+00 1.0446E+00 -1.9866E+01 1.079E+00 7.2872E+00 5.4030E+00 5.400 2.0492E+00 1.2023E+00 -2.0021E+01 1.064E+00 7.5888E+00 5.5902E+00 5.600 1.9507E+00 1.3475E+00 -2.0169E+01 1.050E+00 7.9017E+00 5.7787E+00 5.800 1.8576E+00 1.4956E+00 -2.0299E+01 1.038E+00 8.2251E+00 5.9682E+00 6.000 1.7615E+00 1.6322E+00 -2.0415E+01 1.027E+00 8.5584E+00 6.1587E+00 6.500 1.5272E+00 1.9084E+00 -2.0677E+01 1.004E+00 9.4317E+00 6.6385E+00 7.000 1.2998E+00 2.0907E+00 -2.0897E+01 9.857E-01 1.0357E+01 7.1222E+00 7.500 1.0824E+00 2.1695E+00 -2.1090E+01 9.708E-01 1.1331E+01 7.6088E+00 8.000 8.7724E-01 2.1649E+00 -2.1262E+01 9.579E-01 1.2348E+01 8.0978E+00 8.500 6.8313E-01 2.1029E+00 -2.1415E+01 9.470E-01 1.3407E+01 8.5885E+00 9.000 4.9775E-01 1.9989E+00 -2.1561E+01 9.381E-01 1.4505E+01 9.0807E+00 9.500 3.2222E-01 1.8699E+00 -2.1705E+01 9.304E-01 1.5641E+01 9.5740E+00 10.000 1.4825E-01 1.7297E+00 -2.1850E+01 9.222E-01 1.6812E+01 1.0068E+01 11.000 -1.7917E-01 1.4568E+00 -2.2127E+01 9.056E-01 1.9258E+01 1.1059E+01 12.000 -4.8336E-01 1.2165E+00 -2.2392E+01 8.938E-01 2.1832E+01 1.2051E+01 13.000 -7.6646E-01 1.0179E+00 -2.2657E+01 8.879E-01 2.4527E+01 1.3045E+01 14.000 -1.0250E+00 8.5513E-01 -2.2901E+01 8.831E-01 2.7338E+01 1.4041E+01 15.000 -1.2653E+00 7.2515E-01 -2.3147E+01 8.801E-01 3.0257E+01 1.5037E+01 16.000 -1.4894E+00 6.2065E-01 -2.3374E+01 8.793E-01 3.3281E+01 1.6034E+01 17.000 -1.6950E+00 5.3331E-01 -2.3589E+01 8.776E-01 3.6404E+01 1.7031E+01 18.000 -1.8893E+00 4.6823E-01 -2.3805E+01 8.772E-01 3.9623E+01 1.8028E+01 19.000 -2.0688E+00 4.1147E-01 -2.4006E+01 8.769E-01 4.2933E+01 1.9026E+01 20.000 -2.2337E+00 3.8149E-01 -2.4271E+01 8.754E-01 4.6332E+01 2.0025E+01 ifeffit-1.2.11d/examples/exp2feff/0000755000175000017500000000000010771740461015702 5ustar segresegreifeffit-1.2.11d/examples/exp2feff/fff20000644000175000017500000000627610771740461016463 0ustar segresegreFrom newville@cars1.uchicago.edu Tue Nov 20 15:07:22 2001 Date: Mon, 19 Jul 1999 10:34:17 -0500 (CDT) From: Matt Newville To: Anatoly Frenkel Cc: Alex Ankudinov Subject: Re: using FEFFIT to fit experimental standards Hi Anatoly, Yes, I have seen cases where including H in Feff calculations screws up the fit results. My recollection was that both the phase and amplitude were altered, but that the amplitude change was more significant. It's possible that such problems have been fixed with Feff8, but I haven't tried. > Since I am analyzing some Cd in solutions data, with a mixture of Cd-O and > Cd-S paths in the first shell, it would be odd to use for this purpose the > Cd-O path obtained from FEFF for the bulk crystal model. The most > appropriate theoretical model, which would better describe Cd-O in a > molecule is therefore ambiguous, since depending on whether I include > hydrogens in FEFF or not, I am getting the FEFF amplitude differed by ca. a > factor of two. I decided to bypass this ambiguity rather than dealing with > it by simply extracting Ampl(k) and Phase(k) for Cd-O path from its > experimental solution Chi(k) data, and prepare a feff0001.dat. It then can > be used in FEFFIT in the same way as the feff0001.dat calculated with FEFF. > > Have you done that before? I tried a simple test, by preparing a > theoretical Chi(k) using FEFF and FEFFIT, back fourier transformed it, > subtracted the 2kReff from its phase, and compared the result with the > Phase(k) produced by FEFF for the same theory. The results were very > different. According to your feffit manual, they should be the same. Have > you done anything similar to what I am trying to achieve, so that I won't > reinvent the wheel? No, I've never tried that before. It seems doable, but may not be completely straightforward. You probably got most of this, but I think the way I'd do it would be: 1. Make sure there's no k-weighting in the FT when extracting the amplitude and phase from the data (or, un-k-weight the amplitude). 2. The columns of feff0001.dat are: k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# I'd set them up like this: real[2*phc] = 0. mag[feff] = extracted amplitude phase[feff] = extracted phase-2kR red factor = 1. lambda = 10.e7 (ie, something huge) real[p] = k 3. Just to be safe, I'd use the 'normal feff0001.dat' k-grid. 4. Setting up to 'nleg, deg, reff' line and the atoms list should be fairly straightforward. The degeneracy and reff are really used, but the rest of the numbers are only used in the Debye function. If you want to send me what you have for the feff->feffit->feff0001.dat, I'll try it here and see what happens. --Matt |= Matthew Newville email: newville@cars.uchicago.edu =| |= GSECARS, Bldg 434A voice: (630) 252-0431 =| |= Argonne Natl Lab fax: (630) 252-0443 =| |= 9700 South Cass Ave www: http://cars.uchicago.edu/~newville/ =| |= Argonne, IL 60439 USA =| ifeffit-1.2.11d/examples/exp2feff/feff_exp.dat0000644000175000017500000001220310771740461020154 0ustar segresegre dummy Feff.dat file by exp2feff Feff XX 6.10 ALL FAKE: r = 2.5000, kw = 2.0000 Gam_ch=1.761E+00 H-L exch Mu=-5.000+00 kf=2.000E+00 Vint=-0.000E+01 Rs_int= 2.000 Path 1 icalc 2 ----------------------------------------------------------------------- 2 1.000 2.5000 2.000 -5.0 nleg, deg, reff, rnrmav(bohr), edge x y z pot at# .0000 .0000 .0000 0 29 XX absorbing atom .0000 .0000 2.5000 1 29 k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# 0.000 0.0000e+00 0.0000e+00 1.0472e+00 1.000e+00 1.0000e+08 0.0000e+00 0.100 0.0000e+00 2.1148e-01 9.8976e-01 1.000e+00 1.0000e+08 1.0000e-01 0.200 0.0000e+00 7.1032e-02 9.4910e-01 1.000e+00 1.0000e+08 2.0000e-01 0.300 0.0000e+00 2.1628e-02 9.9078e-01 1.000e+00 1.0000e+08 3.0000e-01 0.400 0.0000e+00 6.3279e-03 3.2942e+00 1.000e+00 1.0000e+08 4.0000e-01 0.500 0.0000e+00 2.2550e-02 3.6610e+00 1.000e+00 1.0000e+08 5.0000e-01 0.600 0.0000e+00 3.4461e-02 3.6433e+00 1.000e+00 1.0000e+08 6.0000e-01 0.700 0.0000e+00 4.3312e-02 3.5920e+00 1.000e+00 1.0000e+08 7.0000e-01 0.800 0.0000e+00 5.0010e-02 3.5310e+00 1.000e+00 1.0000e+08 8.0000e-01 0.900 0.0000e+00 5.5070e-02 3.4662e+00 1.000e+00 1.0000e+08 9.0000e-01 1.000 0.0000e+00 5.8809e-02 3.3996e+00 1.000e+00 1.0000e+08 1.0000e+00 1.100 0.0000e+00 6.1436e-02 3.3326e+00 1.000e+00 1.0000e+08 1.1000e+00 1.200 0.0000e+00 6.3104e-02 3.2656e+00 1.000e+00 1.0000e+08 1.2000e+00 1.300 0.0000e+00 6.3933e-02 3.1993e+00 1.000e+00 1.0000e+08 1.3000e+00 1.400 0.0000e+00 6.4025e-02 3.1343e+00 1.000e+00 1.0000e+08 1.4000e+00 1.500 0.0000e+00 6.3474e-02 3.0712e+00 1.000e+00 1.0000e+08 1.5000e+00 1.600 0.0000e+00 6.2372e-02 3.0105e+00 1.000e+00 1.0000e+08 1.6000e+00 1.700 0.0000e+00 6.0810e-02 2.9530e+00 1.000e+00 1.0000e+08 1.7000e+00 1.800 0.0000e+00 5.8884e-02 2.8996e+00 1.000e+00 1.0000e+08 1.8000e+00 1.900 0.0000e+00 5.6695e-02 2.8514e+00 1.000e+00 1.0000e+08 1.9000e+00 2.000 0.0000e+00 5.4352e-02 2.8097e+00 1.000e+00 1.0000e+08 2.0000e+00 2.200 0.0000e+00 4.9685e-02 2.7505e+00 1.000e+00 1.0000e+08 2.2000e+00 2.400 0.0000e+00 4.5962e-02 2.7306e+00 1.000e+00 1.0000e+08 2.4000e+00 2.600 0.0000e+00 4.4380e-02 2.7471e+00 1.000e+00 1.0000e+08 2.6000e+00 2.800 0.0000e+00 4.5960e-02 2.7762e+00 1.000e+00 1.0000e+08 2.8000e+00 3.000 0.0000e+00 5.1144e-02 2.7819e+00 1.000e+00 1.0000e+08 3.0000e+00 3.200 0.0000e+00 5.9754e-02 2.7425e+00 1.000e+00 1.0000e+08 3.2000e+00 3.400 0.0000e+00 7.1359e-02 2.6584e+00 1.000e+00 1.0000e+08 3.4000e+00 3.600 0.0000e+00 8.5547e-02 2.5410e+00 1.000e+00 1.0000e+08 3.6000e+00 3.800 0.0000e+00 1.0196e-01 2.4023e+00 1.000e+00 1.0000e+08 3.8000e+00 4.000 0.0000e+00 1.2023e-01 2.2519e+00 1.000e+00 1.0000e+08 4.0000e+00 4.200 0.0000e+00 1.3993e-01 2.0960e+00 1.000e+00 1.0000e+08 4.2000e+00 4.400 0.0000e+00 1.6052e-01 1.9388e+00 1.000e+00 1.0000e+08 4.4000e+00 4.600 0.0000e+00 1.8140e-01 1.7826e+00 1.000e+00 1.0000e+08 4.6000e+00 4.800 0.0000e+00 2.0195e-01 1.6288e+00 1.000e+00 1.0000e+08 4.8000e+00 5.000 0.0000e+00 2.2150e-01 1.4783e+00 1.000e+00 1.0000e+08 5.0000e+00 5.200 0.0000e+00 2.3945e-01 1.3314e+00 1.000e+00 1.0000e+08 5.2000e+00 5.400 0.0000e+00 2.5525e-01 1.1884e+00 1.000e+00 1.0000e+08 5.4000e+00 5.600 0.0000e+00 2.6846e-01 1.0494e+00 1.000e+00 1.0000e+08 5.6000e+00 5.800 0.0000e+00 2.7878e-01 9.1448e-01 1.000e+00 1.0000e+08 5.8000e+00 6.000 0.0000e+00 2.8604e-01 7.8371e-01 1.000e+00 1.0000e+08 6.0000e+00 6.500 0.0000e+00 2.9100e-01 4.7512e-01 1.000e+00 1.0000e+08 6.5000e+00 7.000 0.0000e+00 2.8009e-01 1.9250e-01 1.000e+00 1.0000e+08 7.0000e+00 7.500 0.0000e+00 2.5941e-01 -6.6788e-02 1.000e+00 1.0000e+08 7.5000e+00 8.000 0.0000e+00 2.3516e-01 -3.0991e-01 1.000e+00 1.0000e+08 8.0000e+00 8.500 0.0000e+00 2.1129e-01 -5.4790e-01 1.000e+00 1.0000e+08 8.5000e+00 9.000 0.0000e+00 1.8903e-01 -7.9078e-01 1.000e+00 1.0000e+08 9.0000e+00 9.500 0.0000e+00 1.6798e-01 -1.0418e+00 1.000e+00 1.0000e+08 9.5000e+00 10.000 0.0000e+00 1.4759e-01 -1.2960e+00 1.000e+00 1.0000e+08 1.0000e+01 11.000 0.0000e+00 1.0950e-01 -1.7767e+00 1.000e+00 1.0000e+08 1.1000e+01 12.000 0.0000e+00 7.9117e-02 -2.1984e+00 1.000e+00 1.0000e+08 1.2000e+01 13.000 0.0000e+00 5.6740e-02 -2.6116e+00 1.000e+00 1.0000e+08 1.3000e+01 14.000 0.0000e+00 3.9720e-02 -3.0201e+00 1.000e+00 1.0000e+08 1.4000e+01 15.000 0.0000e+00 2.8070e-02 -3.3496e+00 1.000e+00 1.0000e+08 1.5000e+01 16.000 0.0000e+00 2.0221e-02 -3.6021e+00 1.000e+00 1.0000e+08 1.6000e+01 17.000 0.0000e+00 1.3481e-02 -3.8184e+00 1.000e+00 1.0000e+08 1.7000e+01 18.000 0.0000e+00 7.5470e-03 -4.0748e+00 1.000e+00 1.0000e+08 1.8000e+01 19.000 0.0000e+00 2.4959e-03 -4.5968e+00 1.000e+00 1.0000e+08 1.9000e+01 20.000 0.0000e+00 5.1967e-04 -7.5191e+00 1.000e+00 1.0000e+08 2.0000e+01 ifeffit-1.2.11d/examples/exp2feff/feff0001.dat0000644000175000017500000001227310771740461017610 0ustar segresegre#Cu metal fcc a=3.603 Feff XX 6.10 #Abs Z=29 Rmt= 1.289 Rnm= 1.424 K shell #Pot 1 Z=29 Rmt= 1.272 Rnm= 1.392 #Gam_ch=1.761E+00 H-L exch #Mu=-5.535E+00 kf=1.806E+00 Vint=-1.796E+01 Rs_int= 2.008 #Path 1 icalc 2 #----------------------------------------------------------------------- # 2 12.000 2.5478 2.6300 -5.53502 nleg, deg, reff, rnrmav(bohr), edge # x y z pot at# # .0000 .0000 .0000 0 29 Cu absorbing atom # .0000 -1.8016 1.8016 1 29 Cu # k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# .000 3.5015E+00 0.0000E+00 -5.1320E+00 9.872E-01 1.5637E+01 1.8071E+00 .100 3.5020E+00 3.3976E-02 -5.6318E+00 9.873E-01 1.5660E+01 1.8098E+00 .200 3.5035E+00 6.7038E-02 -6.1121E+00 9.877E-01 1.5726E+01 1.8177E+00 .300 3.5060E+00 9.8421E-02 -6.5731E+00 9.882E-01 1.5831E+01 1.8309E+00 .400 3.5093E+00 1.2760E-01 -7.0153E+00 9.890E-01 1.5963E+01 1.8491E+00 .500 3.5132E+00 1.5432E-01 -7.4387E+00 9.901E-01 1.6111E+01 1.8724E+00 .600 3.5175E+00 1.7856E-01 -7.8435E+00 9.915E-01 1.6258E+01 1.9005E+00 .700 3.5218E+00 2.0044E-01 -8.2297E+00 9.932E-01 1.6388E+01 1.9332E+00 .800 3.5258E+00 2.2014E-01 -8.5973E+00 9.953E-01 1.6481E+01 1.9704E+00 .900 3.5291E+00 2.3782E-01 -8.9459E+00 9.978E-01 1.6522E+01 2.0119E+00 1.000 3.5311E+00 2.5358E-01 -9.2756E+00 1.001E+00 1.6496E+01 2.0575E+00 1.100 3.5315E+00 2.6742E-01 -9.5864E+00 1.004E+00 1.6396E+01 2.1070E+00 1.200 3.5296E+00 2.7930E-01 -9.8781E+00 1.008E+00 1.6217E+01 2.1605E+00 1.300 3.5247E+00 2.8908E-01 -1.0151E+01 1.013E+00 1.5965E+01 2.2177E+00 1.400 3.5164E+00 2.9658E-01 -1.0405E+01 1.018E+00 1.5649E+01 2.2786E+00 1.500 3.5039E+00 3.0158E-01 -1.0639E+01 1.024E+00 1.5286E+01 2.3431E+00 1.600 3.4866E+00 3.0387E-01 -1.0855E+01 1.030E+00 1.4895E+01 2.4113E+00 1.700 3.4640E+00 3.0324E-01 -1.1051E+01 1.036E+00 1.4497E+01 2.4830E+00 1.800 3.4354E+00 2.9952E-01 -1.1226E+01 1.043E+00 1.4117E+01 2.5584E+00 1.900 3.4002E+00 2.9262E-01 -1.1381E+01 1.048E+00 1.3776E+01 2.6374E+00 2.000 3.3581E+00 2.8254E-01 -1.1513E+01 1.053E+00 1.3497E+01 2.7201E+00 2.200 3.2511E+00 2.5343E-01 -1.1702E+01 1.059E+00 1.3207E+01 2.8970E+00 2.400 3.1362E+00 2.2097E-01 -1.1853E+01 1.230E+00 7.5606E+00 3.0883E+00 2.600 3.1585E+00 2.0024E-01 -1.2187E+01 1.303E+00 6.1535E+00 3.2191E+00 2.800 3.1545E+00 1.6820E-01 -1.2400E+01 1.326E+00 5.6163E+00 3.3579E+00 3.000 3.1151E+00 1.3806E-01 -1.2407E+01 1.321E+00 5.3982E+00 3.5040E+00 3.200 3.0550E+00 1.2236E-01 -1.2189E+01 1.304E+00 5.3389E+00 3.6566E+00 3.400 2.9887E+00 1.4499E-01 -1.1933E+01 1.281E+00 5.3735E+00 3.8150E+00 3.600 2.9054E+00 1.9428E-01 -1.1822E+01 1.256E+00 5.4705E+00 3.9784E+00 3.800 2.8228E+00 2.5740E-01 -1.1838E+01 1.229E+00 5.6121E+00 4.1461E+00 4.000 2.7282E+00 3.2303E-01 -1.1902E+01 1.206E+00 5.7879E+00 4.3177E+00 4.200 2.6390E+00 3.8574E-01 -1.1985E+01 1.179E+00 5.9908E+00 4.4926E+00 4.400 2.5352E+00 4.4624E-01 -1.2073E+01 1.157E+00 6.2162E+00 4.6704E+00 4.600 2.4376E+00 5.0095E-01 -1.2161E+01 1.135E+00 6.4607E+00 4.8506E+00 4.800 2.3422E+00 5.5041E-01 -1.2241E+01 1.115E+00 6.7219E+00 5.0329E+00 5.000 2.2460E+00 5.9187E-01 -1.2322E+01 1.096E+00 6.9979E+00 5.2171E+00 5.200 2.1454E+00 6.3037E-01 -1.2396E+01 1.079E+00 7.2872E+00 5.4030E+00 5.400 2.0492E+00 6.6383E-01 -1.2463E+01 1.064E+00 7.5888E+00 5.5902E+00 5.600 1.9507E+00 6.9100E-01 -1.2531E+01 1.050E+00 7.9017E+00 5.7787E+00 5.800 1.8576E+00 7.1670E-01 -1.2591E+01 1.038E+00 8.2251E+00 5.9682E+00 6.000 1.7615E+00 7.3666E-01 -1.2649E+01 1.027E+00 8.5584E+00 6.1587E+00 6.500 1.5272E+00 7.6643E-01 -1.2784E+01 1.004E+00 9.4317E+00 6.6385E+00 7.000 1.2998E+00 7.6974E-01 -1.2906E+01 9.857E-01 1.0357E+01 7.1222E+00 7.500 1.0824E+00 7.5036E-01 -1.3022E+01 9.708E-01 1.1331E+01 7.6088E+00 8.000 8.7724E-01 7.1645E-01 -1.3130E+01 9.579E-01 1.2348E+01 8.0978E+00 8.500 6.8313E-01 6.7486E-01 -1.3230E+01 9.470E-01 1.3407E+01 8.5885E+00 9.000 4.9775E-01 6.2811E-01 -1.3331E+01 9.381E-01 1.4505E+01 9.0807E+00 9.500 3.2222E-01 5.7859E-01 -1.3435E+01 9.304E-01 1.5641E+01 9.5740E+00 10.000 1.4825E-01 5.2908E-01 -1.3544E+01 9.222E-01 1.6812E+01 1.0068E+01 11.000 -1.7917E-01 4.3980E-01 -1.3760E+01 9.056E-01 1.9258E+01 1.1059E+01 12.000 -4.8336E-01 3.6492E-01 -1.3977E+01 8.938E-01 2.1832E+01 1.2051E+01 13.000 -7.6646E-01 3.0439E-01 -1.4200E+01 8.879E-01 2.4527E+01 1.3045E+01 14.000 -1.0250E+00 2.5553E-01 -1.4407E+01 8.831E-01 2.7338E+01 1.4041E+01 15.000 -1.2653E+00 2.1646E-01 -1.4623E+01 8.801E-01 3.0257E+01 1.5037E+01 16.000 -1.4894E+00 1.8503E-01 -1.4821E+01 8.793E-01 3.3281E+01 1.6034E+01 17.000 -1.6950E+00 1.5883E-01 -1.5018E+01 8.776E-01 3.6404E+01 1.7031E+01 18.000 -1.8893E+00 1.3866E-01 -1.5217E+01 8.772E-01 3.9623E+01 1.8028E+01 19.000 -2.0688E+00 1.1937E-01 -1.5388E+01 8.769E-01 4.2933E+01 1.9026E+01 20.000 -2.2337E+00 1.0466E-01 -1.5591E+01 8.754E-01 4.6332E+01 2.0025E+01 ifeffit-1.2.11d/examples/exp2feff/Fourier.iff0000644000175000017500000000047010771740461020004 0ustar segresegre # # Read chi(k) data read_data (file = ../data/cu50k.chi, group=cu, type=chi) # # Fourier filter fftf(cu.chi, kmin = 1.5, kmax = 18.5, dk = 1.0, kweight = 2) fftr(real=cu.chir_re, imag=cu.chir_im, rmin = 1.3, rmax = 3.0) newplot cu.q, cu.chiq_im write_data(file=filter.chi, cu.q, cu.chiq_mag, cu.chiq_pha) ifeffit-1.2.11d/examples/exp2feff/exp2feff.py0000755000175000017500000001000510771740461017760 0ustar segresegre#!/usr/bin/python # # converts experimental chi(q) data into a feffNNNN.dat # file for use as an 'experimental standard' # # import sys, getopt, string doc = """ exp2feff Syntax: exp2feff datafile You will be prompted for information about the input file colums, an approximate R, the k-weighting used to make this data, and the name of an output file """ def show_usage(): print doc sys.exit(1) try: import Ifeffit iff = Ifeffit.Ifeffit() iff.ifeffit(" " ) except: print "Cannot import Ifeffit python extension" sys.exit(1) # get file if (len(sys.argv) > 1): file = sys.argv[1] else: file = raw_input(" Enter filename for filtered chi(k) data:") try: f = open(file,'r') f.close() except: print "Error: cannot open file ", file iff.ifeffit(" read_data(file=%s, group=c)"% (file)) lab = iff.get_string('column_label') print " Columns read from file: ", file print " ' %s '" % lab (ik, im, ip) = (-1,-1,-1) print """ Please enter column **NUMBERS** for the columns containing k, |chi(k)|, and phase[chi(k)], separated by spaces. For example: 1 2 3""" s = raw_input(' Column numbers for k, amp, phase [1 2 3]') if (len(s) < 4): s = '1 2 3' try: s1 = string.split(s) (ik, im, ip) = (int(s1[0]), int(s1[1]), int(s1[2])) except: print "Error: can't read column numbers from: ", s print " using columns ", ik, im, ip , " for k, amp, phase" iff.ifeffit(" read_data(file=%s, group=c, type=raw)"% (file)) iff.ifeffit(" set c.k = c.%i"% (ik)) iff.ifeffit(" set c.xmag = c.%i"% (im)) iff.ifeffit(" set c.xpha = c.%i"% (ip)) kk = [.000 , .100 , .200 , .300 , .400 , .500 , .600 , .700 , .800 , .900 , 1.000 , 1.100 , 1.200 , 1.300 , 1.400 , 1.500 , 1.600 , 1.700 , 1.800 , 1.900 , 2.000 , 2.200 , 2.400 , 2.600 , 2.800 , 3.000 , 3.200 , 3.400 , 3.600 , 3.800 , 4.000 , 4.200 , 4.400 , 4.600 , 4.800 , 5.000 , 5.200 , 5.400 , 5.600 , 5.800 , 6.000 , 6.500 , 7.000 , 7.500 , 8.000 , 8.500 , 9.000 , 9.500 , 10.000 , 11.000 , 12.000 , 13.000 , 14.000 , 15.000 , 16.000 , 17.000 , 18.000 , 19.000 , 20.000 ] s = raw_input(' Enter k-weight used to make this chi(k) [2]:') try: kw = float(s) except: kw = 2 iff.ifeffit(" set kw = %14.5f" % kw) s = raw_input(' Enter Atomic Number for Central Atom [29]:') try: iz0 = int(s) except: iz0 = 29 s = raw_input(' Enter Atomic Number for Scattering Atom [%i]:' % iz0) try: iz1 = int(s) except: iz1 = iz0 s = raw_input(' Enter approximate first shell R [2.5]:') try: r1 = float(s) except: r1 = 2.5 iff.ifeffit(" set r1 = %14.5f" % r1) iff.ifeffit(" set c.pha = c.xpha - 2*r1*c.k") iff.ifeffit(" set tiny = 1.e-6") iff.ifeffit(" set c.mag = 0.5*c.xmag/(c.k+tiny)**(kw-1)") outf = raw_input(' Enter name of output file [feff_exp.dat]:') if (len(outf) < 1): outf = 'feff_exp.dat' o = open(outf, 'w') header=""" dummy Feff.dat file by exp2feff Feff XX 6.10 ALL FAKE: r = %7.4f, kw = %7.4f Gam_ch=1.761E+00 H-L exch Mu=-5.000+00 kf=2.000E+00 Vint=-0.000E+01 Rs_int= 2.000 Path 1 icalc 2 ----------------------------------------------------------------------- 2 1.000 %7.4f 2.000 -5.0 nleg, deg, reff, rnrmav(bohr), edge x y z pot at# .0000 .0000 .0000 0 %2i XX absorbing atom .0000 .0000 %7.4f 1 %2i k real[2*phc] mag[feff] phase[feff] red factor lambda real[p]@# """ % (r1, kw, r1, iz0, r1, iz1) o.write(header) iff.put_array("out.k", kk) iff.ifeffit(" set out.magf = splint(c.k,c.mag,out.k)") iff.ifeffit(" set out.phaf = splint(c.k,c.pha,out.k)") iff.ifeffit(" save exp2feff.sav") k = iff.get_array("out.k") mag = iff.get_array("out.magf") pha = iff.get_array("out.phaf") n = len(k) for i in range(len(k)): if (i == 0): mag[i] = 0. s = "%7.3f %11.4e %11.4e %11.4e %10.3e %11.4e %11.4e\n" % (k[i],0.0,mag[i], pha[i],1.0,1.e8,k[i]) o.write(s) o.close() print "out = ", outf ifeffit-1.2.11d/examples/exp2feff/exp2feff.sav0000644000175000017500000015572010771740461020134 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0064 Copyright (c) 2001 Matt Newville, Univ of Chicago #:strings #= group= c #= commentchar= # #= column_label= 1 2 3 #= c_title_01= data from ifeffit #= filename= filter.chi #:system #:scalars (nopad) #% pi 3.141592653590 #% etok 0.2624682917000 #% correl_min 0.5000000000000E-01 #% kw 2.000000000000 #% r1 2.500000000000 #% tiny 0.1000000000000E-05 #:arrays #% [ 600] c.q !Q%%%%%%%QRR%%%%%R.R%%%%%R2hR%%%%R8%%%%%%R<;R%%%%R@R%%%%%RDhR%%%%RJ%%%%%%RN;R%%%% !RRR%%%%%RVhR%%%%RZ%%%%%R`;R%%%%RdR%%%%%RhhR%%%%Rn%%%%%%Rr;R%%%%RvR%%%%%RzhR%%%% !S.R%%%%%S.f;R%%%S.zR%%%%S04hQ~~~S0I%%%%%S0];R%%%S0qR%%%%S2+hR%%%S2@%%%%%S2T;Q~~~ !S2hR%%%%S2|hR%%%S47%%%%%S4K;Q~~~S4_R%%%%S4shR%%%S6.%%%%%S6B;R%%%S6VR%%%%S6jhQ~~~ !S8%%%%%%S89;Q~~~S8MR%%%%S8ahQ~~~S8v%%%%%S:0;R%%%S:DR%%%%S:XhR%%%S:m%%%%%S<';R%%% !S<;R%%%%S2R%%%%S>FhR%%%S>[%%%%%S>o;R%%%S@)R%%%%S@=hR%%% !S@R%%%%%S@f;Q~~~S@zR%%%%SB4hQ~~~SBI%%%%%SB];R%%%SBqR%%%%SD+hR%%%SD@%%%%%SDT;R%%% !SDhR%%%%SD|hQ~~~SF7%%%%%SFK;Q~~~SF_R%%%%SFshR%%%SH.%%%%%SHB;R%%%SHVR%%%%SHjhR%%% !SJ%%%%%%SJ9;Q~~~SJMR%%%%SJahR%%%SJv%%%%%SL0;R%%%SLDR%%%%SLXhQ~~~SLm%%%%%SN';R%%% !SN;R%%%%SNOhQ~~~SNd%%%%%SNx;R%%%SP2R%%%%SPFhR%%%SP[%%%%%SPo;Q~~~SR)R%%%%SR=hR%%% !SRR%%%%%SRf;Q~~~SRzR%%%%ST4hR%%%STI%%%%%ST];R%%%STqR%%%%SV+hQ~~~SV@%%%%%SVT;R%%% !SVhR%%%%SV|hQ~~~SX7%%%%%SXK;R%%%SX_R%%%%SXshR%%%SZ.%%%%%SZB;Q~~~SZVR%%%%SZjhR%%% !S\%%%%%%S\9;Q~~~S\MR%%%%S\ahR%%%S\v%%%%%S^0;R%%%S^DR%%%%S^XhQ~~~S^m%%%%%S`';R%%% !S`;R%%%%S`OhQ~~~S`d%%%%%S`x;R%%%Sb2R%%%%SbFhR%%%Sb[%%%%%Sbo;Q~~~Sd)R%%%%Sd=hR%%% !SdR%%%%%Sdf;Q~~~SdzR%%%%Sf4hR%%%SfI%%%%%Sf];R%%%SfqR%%%%Sh+hQ~~~Sh@%%%%%ShT;R%%% !ShhR%%%%Sh|hQ~~~Sj7%%%%%SjK;R%%%Sj_R%%%%SjshR%%%Sl.%%%%%SlB;Q~~~SlVR%%%%SljhR%%% !Sn%%%%%%Sn9;R%%%SnMR%%%%SnahR%%%Snv%%%%%Sp0;R%%%SpDR%%%%SpXhQ~~~Spm%%%%%Sr';Q~~~ !Sr;R%%%%SrOhR%%%Srd%%%%%Srx;R%%%St2R%%%%StFhR%%%St[%%%%%Sto;Q~~~Sv)R%%%%Sv=hQ~~~ !SvR%%%%%Svf;R%%%SvzR%%%%Sx4hR%%%SxI%%%%%Sx];R%%%SxqR%%%%Sz+hQ~~~Sz@%%%%%SzT;Q~~~ !SzhR%%%%Sz|hR%%%S|7%%%%%S|K;R%%%S|_R%%%%S|shR%%%S~.%%%%%S~B;Q~~~S~VR%%%%S~jhQ~~~ !T.R%%%%%T.T';R%%T.V)Q~~~T.X+hR%%T.Z.%%%%T.\0;R%%T.^2R%%%T.`4hQ~~T.b7%%%%T.d9;Q~~ !T.f;R%%%T.h=hR%%T.j@%%%%T.lB;R%%T.nDQ~~~T.pFhR%%T.rI%%%%T.tK;Q~~T.vMR%%%T.xOhQ~~ !T.zR%%%%T.|T;R%%T.~VQ~~~T0&XhR%%T0([%%%%T0*];R%%T0,_R%%%T0.ahQ~~T00d%%%%T02f;Q~~ !T04hR%%%T06jhR%%T08m%%%%T0:o;R%%T0shR%%T0@v%%%%T0Bx;Q~~T0DzR%%%T0F|hQ~~ !T0I%%%%%T0K';R%%T0M)Q~~~T0O+hR%%T0Q.%%%%T0S0;R%%T0U2R%%%T0W4hQ~~T0Y7%%%%T0[9;Q~~ !T0];R%%%T0_=hR%%T0a@%%%%T0cB;R%%T0eDQ~~~T0gFhR%%T0iI%%%%T0kK;Q~~T0mMR%%%T0oOhQ~~ !T0qR%%%%T0sT;R%%T0uVQ~~~T0wXhR%%T0y[%%%%T0{];R%%T0}_R%%%T2%ahQ~~T2'd%%%%T2)f;Q~~ !T2+hR%%%T2-jhR%%T2/m%%%%T21o;R%%T23qQ~~~T25shR%%T27v%%%%T29x;Q~~T2;zR%%%T2=|hQ~~ !T2@%%%%%T2B';R%%T2D)Q~~~T2F+hR%%T2H.%%%%T2J0;R%%T2L2R%%%T2N4hQ~~T2P7%%%%T2R9;Q~~ !T2T;R%%%T2V=hR%%T2X@%%%%T2ZB;R%%T2\DQ~~~T2^FhR%%T2`I%%%%T2bK;Q~~T2dMR%%%T2fOhQ~~ !T2hR%%%%T2jT;R%%T2lVQ~~~T2nXhR%%T2p[%%%%T2r];R%%T2t_R%%%T2vahQ~~T2xd%%%%T2zf;Q~~ !T2|hR%%%T2~jhR%%T4&m%%%%T4(o;R%%T4*qQ~~~T4,shR%%T4.v%%%%T40x;Q~~T42zR%%%T44|hQ~~ !T47%%%%%T49';R%%T4;)R%%%T4=+hQ~~T4?.%%%%T4A0;R%%T4C2R%%%T4E4hR%%T4G7%%%%T4I9;Q~~ !T4K;R%%%T4M=hR%%T4O@%%%%T4QB;Q~~T4SDQ~~~T4UFhR%%T4WI%%%%T4YK;R%%T4[MQ~~~T4]OhQ~~ !T4_R%%%%T4aT;R%%T4cVR%%%T4eXhQ~~T4g[%%%%T4i];R%%T4k_R%%%T4mahR%%T4od%%%%T4qf;Q~~ !T4shR%%%T4ujhR%%T4wm%%%%T4yo;Q~~T4{qQ~~~T4}shR%%T6%v%%%%T6'x;R%%T6)zQ~~~T6+|hQ~~ !T6.%%%%%T60';R%%T62)R%%%T64+hQ~~T66.%%%%T680;R%%T6:2R%%%T6<4hR%%T6>7%%%%T6@9;Q~~ !T6B;R%%%T6D=hR%%T6F@%%%%T6HB;Q~~T6JDQ~~~T6LFhR%%T6NI%%%%T6PK;R%%T6RMQ~~~T6TOhQ~~ !T6VR%%%%T6XT;R%%T6ZVR%%%T6\XhQ~~T6^[%%%%T6`];R%%T6b_R%%%T6dahR%%T6fd%%%%T6hf;Q~~ !T6jhR%%%T6ljhR%%T6nm%%%%T6po;Q~~T6rqQ~~~T6tshR%%T6vv%%%%T6xx;R%%T6zzQ~~~T6||hQ~~ !T8%%%%%%T8'';R%%T8))R%%%T8++hQ~~T8-.%%%%T8/0;R%%T812R%%%T834hR%%T857%%%%T879;Q~~ !T89;R%%%T8;=hR%%T8=@%%%%T8?B;Q~~T8ADQ~~~T8CFhR%%T8EI%%%%T8GK;R%%T8IMQ~~~T8KOhQ~~ !T8MR%%%%T8OT;R%%T8QVR%%%T8SXhQ~~T8U[%%%%T8W];R%%T8Y_R%%%T8[ahR%%T8]d%%%%T8_f;Q~~ !T8ahR%%%T8cjhR%%T8em%%%%T8go;Q~~T8iqQ~~~T8kshR%%T8mv%%%%T8ox;R%%T8qzQ~~~T8s|hQ~~ !T8v%%%%%T8x';R%%T8z)R%%%T8|+hQ~~T8~.%%%%T:&0;R%%T:(2R%%%T:*4hR%%T:,7%%%%T:.9;Q~~ !T:0;R%%%T:2=hR%%T:4@%%%%T:6B;Q~~T:8DQ~~~T::FhR%%T:K;R%%T:@MQ~~~T:BOhQ~~ !T:DR%%%%T:FT;R%%T:HVR%%%T:JXhQ~~T:L[%%%%T:N];R%%T:P_R%%%T:RahR%%T:Td%%%%T:Vf;Q~~ !T:XhR%%%T:ZjhR%%T:\m%%%%T:^o;Q~~T:`qQ~~~T:bshR%%T:dv%%%%T:fx;R%%T:hzQ~~~T:j|hQ~~ !T:m%%%%%T:o';R%%T:q)R%%%T:s+hQ~~T:u.%%%%T:w0;R%%T:y2R%%%T:{4hR%%T:}7%%%%T<%9;Q~~ !T<';R%%%T<)=hR%%T<+@%%%%T<-B;Q~~T&DQ~~~T>(FhR%%T>*I%%%%T>,K;R%%T>.MQ~~~T>0OhQ~~ !T>2R%%%%T>4T;R%%T>6VR%%%T>8XhQ~~T>:[%%%%T><];R%%T>>_R%%%T>@ahR%%T>Bd%%%%T>Df;Q~~ !T>FhR%%%T>HjhR%%T>Jm%%%%T>Lo;Q~~T>NqQ~~~T>PshR%%T>Rv%%%%T>Tx;R%%T>VzQ~~~T>X|hQ~~ !T>[%%%%%T>]';R%%T>_)R%%%T>a+hQ~~T>c.%%%%T>e0;R%%T>g2R%%%T>i4hR%%T>k7%%%%T>m9;Q~~ !T>o;R%%%T>q=hR%%T>s@%%%%T>uB;Q~~T>wDQ~~~T>yFhR%%T>{I%%%%T>}K;R%%T@%MQ~~~T@'OhQ~~ !T@)R%%%%T@+T;R%%T@-VR%%%T@/XhQ~~T@1[%%%%T@3];R%%T@5_R%%%T@7ahR%%T@9d%%%%T@;f;Q~~ !T@=hR%%%T@?jhR%%T@Am%%%%T@Co;Q~~T@EqQ~~~T@GshR%%T@Iv%%%%T@Kx;R%%T@MzQ~~~T@O|hQ~~ #% [ 600] c.chiq_mag !QVLel_>|QPqBI-{MQF%b\R=@Q>keuEcBQ8Ge,e`)Q0pW`;ZRPT'M}}.RPRkmlojPQd_b]kMbQn%`:O4`QvBvA)TLQ~[]BAn]R.t@]W[^ !R0?DiQ.%R0cL8eRbR2,Hq-aLR2N-:H%RR2nFrKhrR4302Ab+R4P8\vpgR4kV}D:wR6+)8Y(&R6B\fRCk !R6X8Hs?[R6klgIK+R6}C|&j4R82r2?;FR8@E>|r]R8KuQ0aXR8UU+<^OR8]FdNZJR8cU\1K7R8h5dkaT !R8kQl*:&R8mcgO;{R8o(d1A,R8oo>47RR8pG`Oq%R8q-e]IbR8rF}t6[R8tbUd=dR8xR]zZwR8~F4]PW !R:,mxGc2R:8GOb~>R:G^%:~:R:[,z?TtR:s:dnVBR<6URSFTR(+\o26R>Vw'F2^R@2-~MKT !R@mm?}?wRBV2+R*aRDE8`:o;RF;-I&8ERH7oBT(sRJ;Nb?@9RLF)mVnR`Gj,%-wRd12_3Yy.F8S.W7A6>[S.lRi:NMS0(N-Fh.S0?'WPBhS0V75-ttS0mzi+6>S2,;rYI9S2E+sLt/S2^Gy/N] !S2x3%DaHS48Cq4=XS4Rw(r>tS4mn~^'|S6/'{/cLk7S:Z+goQFS:uvP=bKS<7WM;EMS.}_s4IMif[RS>cRX_o| !S>}.)nh{S@<6?9YOS@TgUA[ZS@ld5|\iSB*(oP^cSB@f88H2SBVe@u{ESBk}>|C;SD&QV7'LSD:9dFU* !SDM3\w|mSD_=I<\(SDpUHkpwSF&z85A0SF6PdiqRSFE2%2TLSFRwNw0`SF_lfwbOSFkkbCt/SFvtMB03 !SH'-I_LgSH0K4Kz>SH8tZ.qVSH@Pen<%SHG:q&klSHM4LYrzSHR?4L62SHV\t9]xSHZ5X+1oSH]%God% !SH_.\V/YSH`S`+SMSHa=%k9LSHaG;=V>SH`u'cpKSH_o)n9XSH^8)%))SH\,hy>`SHYOx|JySHVJ@Pk; !SHRxXX&QSHO)H'{vSHJmCm''SHF8z9-BSHAB^LUgSH<2gJOqSH6eOwu.SH1(zvu[SH+32pnqSH%+we*Y !SFxn|'`ESFrIrT]/SFkr(l0pSFe4k]i=SF^G:*6kSFWPH\7zSFPQ0H){SFIJ2~]lSFB<,WP?SF;'G+gc !SF3fI&C?SF,EHEInSD~xR9yOSDwKjX8eSDos5+Y/SDh:[;:.SD`UsaU*SDXji'G`SDPx|)I-SDI&66zV !SDA&+}bCSD8x<=\iSD0hD?4,SD(O{/SBq^:Odn@NS@4.i.KtS@)^7A'DS>y*R/0nH1O&,S>c]`YEYS>Xk`[1{S>Mrj>-cS>Bs_Ab+S>7o%(/a !S>,eWEpcS<{X,UykSSES8sY]Iw]S8i*Xm>/ !S8^^5ABPS8T@duDbS8J,G8o'S8?{E*CgS85yfyV2S8,'WMk/S6|8p[(_S6rSSNNaS6hwQRIrS6_J^|V~]lS279r4hRS2/V?R~[_UM6*R|}JT;vM !R|F@HofpRzj@][\QRz5J?wGhRx[\/]F(Rx(tIp?*RvQ7/qrIRtzUpRrERtJsl31wRrv3sztpRrHFa7U7 !RpuNN\6gRpIG>=^kRnx,w\ZkRnMT|'ysRl}`sN)nRlTKyEFXRl+kH_r%Rj]`K`/,Rj6&9&>'Rhhl%@kO !RhAy+'QkRfuHpO4`RfO0u)V*Rf),~WeERd]9143MRd7QV_/}Rbkridd5RbF?Y@{aR`zi1[_BR`U8u\`) !R`/`_76&R^d*Tf9PR^>I'H){R\r`zvg&R\LqMT{-R\&y}F2:RZZz@.^SRZ4rM'a}RXhbcH_JRXBKWNRf !RVv-i6TtRVOd3B[-RV);jg%1RT\idm`1RT6;1R}?RRie=i.bRRC5BN4DRPv`OXYSRPP3onF0RP)dLb%Z !RN]?9n;6RN6x~gK\RLj^I3&4RLDIzCG3RJx;|l@^RJR4a;V*RJ,4)b:_RH`9~=S(RH:F8K&qRFnXCbcV !RFHorl2rRD}28u.%RDWRktpwRD1vweVBRBfC}]OiRB@mIN9\R@u>`]BlR@OkEd13R@*?^n=LA, !R>9DTc'TR3IRW]Q<:vioa}Q8P}8`mrQ6,uBm+PQ40R':X4Q2ahuAmIQ2eE2Am%Q41GV^.rQ4lVO]j,Q6W[Mp}K !Q8Drc'=yQ:/Tc=H.Q:neHUjHQIf5`i%Q>h)Rw&0Q>}W:k[NQ@0L[_AmQ@5%m]8< !Q@1ajSSuQ@&x_CNMQ>oBg50xQ>WQl8n8Q>:.TNXmQ?lcNQ4=J}t{rQ2}DFv^.Q2ic&8l[Q2\fV^t/Q2VDKPtW !Q2V('}'\Q2ZxmheMQ2c|OF=}Q2o~=%.fQ2}p\/{~Q42MrFMFQ4@v*KlRQ4NHSLm9Q4Z?n\ZkQ4d/0yo` !Q4kO3D`~Q4p/&&jXQ4qu7Q'/Q4phh%BXQ4lfGX7vQ4ew~sUOQ4\T-}?wQ4PkJyloQ4C&V}88Q43[^>Px !Q2|}|8@MQ2k_Tci1Q2Z0?6k|Q2H}4v6&Q28lW9|dQ2*22u=mQ0wX@mU7Q0mTh3dVQ0fG5_}hQ0bB@r{] !Q0aIlOBpQ0cQs6PKQ0h@YA|mQ0oJLrBTQ0xAxl*EQ2(O0O1oQ23>|XG?Q2>9q'9tQ2HkHD2nQ2ROguc* !Q2Zv2xt7Q2aeCOJUQ2f]V49xQ2iJTG7IQ2iwJAJ}Q2h&]T|dQ2cagMZRQ2\uJ.Pl>EYQ.V~Y&DvQ.d|SC0+Q.tkEzFX%bQ0b|WiSyQ0PDD*i%Q0;z&Lm9Q0&0s{QR !Q.iE)1P+Q.R2RK=TPzNP(>I^Pv%z7rSUPpiQ4003Pln\\,qBPj?2~i-*Ph>/HRQ2Pfr0:n(2Ph)w+0(s !PhqXYe7zPl5)>?CsPnyS|W)%Pt'*8|@nPxAr9b-cP|f}k(ot^B@Q0^}OwIEQ0O'lWwYQ0<]hzkSQ0('^M=DQ.kTc9&MQ.SR&]T\PzFs^@6&PtTFpkI9Pnc8{`qv !Ph{b?MD:PdMqi~?oP`?bnP>dP\^C3mg&PZ\Ca*?>PZB^d{a@PZmZ|;s8P\~*k%CkP`i8`us`Pd{m)a=4 !PjNjYf@EPp0cXvs}Ptr+ZcJiPzW7QMGtQ.SPpCZ6Q.i[8~U?Q.}zzz-VQ067e1zZQ0F,bVo|Q0SEj@_B !Q0]r}XySQ0eN*m>xQ0j(8I+uQ0kUuIU[Q0ize[57Q0e=H@97T6h(WvtlT6q3z%n@T6z7f03I !T8)4`3QRT82+O+a8T8:vqqGtT8CcNt%~T8LKw=`%T8U0hv)*T8]lR&1*T8fK\[*=T8o(T*\(T8w]ZSCc !T:&74O'@T:.iWOf+T:7A&oaXT:?qlpUgT:HH-sd)T:Px.~K3T:YM~{A@T:a}v:@=T:jSz^=LT:s*;aKh !T:{Zv6ygT<*1}is0T<2cX=_ZT<;;e{<)T%~Nj4.]Jx&MT>7=;2cJT>?wzLjmT>HYUM@~T>Q<&oDJT>YyI9yOT>b]c__jT>kBv,QB !T>t)'5RVT>|j+[goT@+R)E75T@4:{,y&T@<~lOJ0T@EiXQ80T@NU?2C&T@WAzLjmT@`/W'YtT@hx.vj< !T@qg\Iq2T@zX+rCgTB)IPxfpTB2;r>*qTB;/5XnYTBC}OP(KTBLre`75TBUhx/@rTB^`,qEMTBgX85t3 !TBpQ?OnYTByKBG_RTD(FA:v1TD1B;*~sTD:?/qycTDC !TFq)*6cNTFz3]1`=TH)>iWTH;VXwxhTHDc4wWzTHMp5BJuTHV}V871TH`19|1KTHi?6BJ, !THrMGDf`TH{[i.lcTJ*j=BlRTJ3xt,K`TJ=-UhxtTJF<8gTxTJOJrjJ0TJXYLuq^TJagwS,7TJjv;}v5 !TJt*JeVBTJ}8GID6TL,F/K.1TL5SZm`zTL>`mwJYTLGmfk7nTLPzDJO(TLZ,_S-JTLc8]gWiTLlD>Lo` !TLuO[zJ@TL~Z\YpwTN-e@E/QTN6obXBpTN?yitUGTNI)XZIVTNR3/bRzTN[hnTTUg+NreTT^xBG>dTTh09c+4TTqBk*bx !TTzU|4\iTV)im&raTV2~;{l_TV<9BDFtmP}OTXH4zq5_TXQOE4.5TXZi|SL[TXd*iyP+TXmEcQx/TXv`ewTd !TZ%{mw)jTZ/TZ8X'Rs4TZAs-7emTZK4,a[VTZTN}>BhTZ]ii*h6TZg*H)d^TZpDr[Z*TZy_3gnq !T\(y>2@5T\297QRrT\;RyMwaT\DlP'T\T\N+osH.T\WE%^VVT\`^&AYWT\ivsV/4T\s5[?>[T\|N96eu !T^+fj81sT^5%<@ckT^>=gJb+T^GV9pi5T^PnkphjT^Z-LcvvT^cF:&~oT^l_8IEIT^uxKMivT`%7x-,G !T`.Qgx,/T`7kys]3T`A,Wt%~T`JG`r.bT`Sc>h7bT`]%P1_rT`fB>|gcT`o_iS>pT`x}yF*UTb(Bqn@r !Tb1bW/qNTb;)+vs}TbDJLmZ*TbMlbidVTbW5ohF`Tb`Yufg_Tbi~v&vATbsJqx{QTb|qilLGTd,?^S !TlMs'7TlTlWWDkwmTla;vG@ATljz_'{QTlt_VM8uTl~DY&A]a1?sTpH>QN^sTpQxG2`~ !Tp[W9&bOTpe4wVPGTpnkDXmETpxFJ;wCW !Tr`|3J&Q* !TzELgO?[TzLd?neeTzSw|O'@Tz[+e)M2Tzb1N8^KTzi-+,6[TzovN)%T|{y74=4T~'c-oBHT~-[dnl6 !T~3_v'Z>T~9ld-CU.XjG){AU.YBu4P7U.YvxJ:k !U.ZR@G&mU.[.o&{~U.[f=|drU.\DO6I1U.\}6@aDU.]\;=a8U.^;Kf'}tU.c[zB>hU.d/(@DZU.dYHv-.U.e&v@\uU.eKYm6& !U.eme`[^U.f3r,0/U.fRmt4}U.fqXzPGU.g76M~WU.gXYHJEU.g|KisTU.hI3?b`U.hrw.oxU.iE_=&u !U.iu4d|uU.jM:2NEU.k'U%}dU.k]jHV.U.l;`e9XU.ltyc8yU.mUE&r=U.n6bE\qU.nrdEWYU.oU9@EI !U.p8*NyoU.xs{avbU.y4S6EvU.yK7@G'U.y_Z,vZU.ysh7H: !U.z/nV:SU.zIT>UGU.zgu=2:U.{1;bAyU.{YKjt`U.|+}7B3U.|\CLrvU.}5xC/}]SIU03MDOX@U03bAJQNU03~aAY3 !U04H,_\yU04qbbg[U05FN903U05yMADvU06Up2JeU074yG:;U07p8N53U08S9bk_U097\Z0LU09w-;j@ !U0:]IcXTU0;DDu/8U0<+hL40U0=%q*AU0>~Zjw,U0?eoWEiU0@LSl6.U0A2M0sH !U0AqD\c>U0BTwe&yU0C6h_c&U0CpD4A8U0DM(WL;U0E%~(ugU0ET-sn}U0E|%(T/U0FB.4lWU0FXu1|8 #% [ 600] c.1 !Q%%%%%%%QRR%%%%%R.R%%%%%R2hR%%%%R8%%%%%%R<;R%%%%R@R%%%%%RDhR%%%%RJ%%%%%%RN;R%%%% !RRR%%%%%RVhR%%%%RZ%%%%%R`;R%%%%RdR%%%%%RhhR%%%%Rn%%%%%%Rr;R%%%%RvR%%%%%RzhR%%%% !S.R%%%%%S.f;R%%%S.zR%%%%S04hQ~~~S0I%%%%%S0];R%%%S0qR%%%%S2+hR%%%S2@%%%%%S2T;Q~~~ !S2hR%%%%S2|hR%%%S47%%%%%S4K;Q~~~S4_R%%%%S4shR%%%S6.%%%%%S6B;R%%%S6VR%%%%S6jhQ~~~ !S8%%%%%%S89;Q~~~S8MR%%%%S8ahQ~~~S8v%%%%%S:0;R%%%S:DR%%%%S:XhR%%%S:m%%%%%S<';R%%% !S<;R%%%%S2R%%%%S>FhR%%%S>[%%%%%S>o;R%%%S@)R%%%%S@=hR%%% !S@R%%%%%S@f;Q~~~S@zR%%%%SB4hQ~~~SBI%%%%%SB];R%%%SBqR%%%%SD+hR%%%SD@%%%%%SDT;R%%% !SDhR%%%%SD|hQ~~~SF7%%%%%SFK;Q~~~SF_R%%%%SFshR%%%SH.%%%%%SHB;R%%%SHVR%%%%SHjhR%%% !SJ%%%%%%SJ9;Q~~~SJMR%%%%SJahR%%%SJv%%%%%SL0;R%%%SLDR%%%%SLXhQ~~~SLm%%%%%SN';R%%% !SN;R%%%%SNOhQ~~~SNd%%%%%SNx;R%%%SP2R%%%%SPFhR%%%SP[%%%%%SPo;Q~~~SR)R%%%%SR=hR%%% !SRR%%%%%SRf;Q~~~SRzR%%%%ST4hR%%%STI%%%%%ST];R%%%STqR%%%%SV+hQ~~~SV@%%%%%SVT;R%%% !SVhR%%%%SV|hQ~~~SX7%%%%%SXK;R%%%SX_R%%%%SXshR%%%SZ.%%%%%SZB;Q~~~SZVR%%%%SZjhR%%% !S\%%%%%%S\9;Q~~~S\MR%%%%S\ahR%%%S\v%%%%%S^0;R%%%S^DR%%%%S^XhQ~~~S^m%%%%%S`';R%%% !S`;R%%%%S`OhQ~~~S`d%%%%%S`x;R%%%Sb2R%%%%SbFhR%%%Sb[%%%%%Sbo;Q~~~Sd)R%%%%Sd=hR%%% !SdR%%%%%Sdf;Q~~~SdzR%%%%Sf4hR%%%SfI%%%%%Sf];R%%%SfqR%%%%Sh+hQ~~~Sh@%%%%%ShT;R%%% !ShhR%%%%Sh|hQ~~~Sj7%%%%%SjK;R%%%Sj_R%%%%SjshR%%%Sl.%%%%%SlB;Q~~~SlVR%%%%SljhR%%% !Sn%%%%%%Sn9;R%%%SnMR%%%%SnahR%%%Snv%%%%%Sp0;R%%%SpDR%%%%SpXhQ~~~Spm%%%%%Sr';Q~~~ !Sr;R%%%%SrOhR%%%Srd%%%%%Srx;R%%%St2R%%%%StFhR%%%St[%%%%%Sto;Q~~~Sv)R%%%%Sv=hQ~~~ !SvR%%%%%Svf;R%%%SvzR%%%%Sx4hR%%%SxI%%%%%Sx];R%%%SxqR%%%%Sz+hQ~~~Sz@%%%%%SzT;Q~~~ !SzhR%%%%Sz|hR%%%S|7%%%%%S|K;R%%%S|_R%%%%S|shR%%%S~.%%%%%S~B;Q~~~S~VR%%%%S~jhQ~~~ !T.R%%%%%T.T';R%%T.V)Q~~~T.X+hR%%T.Z.%%%%T.\0;R%%T.^2R%%%T.`4hQ~~T.b7%%%%T.d9;Q~~ !T.f;R%%%T.h=hR%%T.j@%%%%T.lB;R%%T.nDQ~~~T.pFhR%%T.rI%%%%T.tK;Q~~T.vMR%%%T.xOhQ~~ !T.zR%%%%T.|T;R%%T.~VQ~~~T0&XhR%%T0([%%%%T0*];R%%T0,_R%%%T0.ahQ~~T00d%%%%T02f;Q~~ !T04hR%%%T06jhR%%T08m%%%%T0:o;R%%T0shR%%T0@v%%%%T0Bx;Q~~T0DzR%%%T0F|hQ~~ !T0I%%%%%T0K';R%%T0M)Q~~~T0O+hR%%T0Q.%%%%T0S0;R%%T0U2R%%%T0W4hQ~~T0Y7%%%%T0[9;Q~~ !T0];R%%%T0_=hR%%T0a@%%%%T0cB;R%%T0eDQ~~~T0gFhR%%T0iI%%%%T0kK;Q~~T0mMR%%%T0oOhQ~~ !T0qR%%%%T0sT;R%%T0uVQ~~~T0wXhR%%T0y[%%%%T0{];R%%T0}_R%%%T2%ahQ~~T2'd%%%%T2)f;Q~~ !T2+hR%%%T2-jhR%%T2/m%%%%T21o;R%%T23qQ~~~T25shR%%T27v%%%%T29x;Q~~T2;zR%%%T2=|hQ~~ !T2@%%%%%T2B';R%%T2D)Q~~~T2F+hR%%T2H.%%%%T2J0;R%%T2L2R%%%T2N4hQ~~T2P7%%%%T2R9;Q~~ !T2T;R%%%T2V=hR%%T2X@%%%%T2ZB;R%%T2\DQ~~~T2^FhR%%T2`I%%%%T2bK;Q~~T2dMR%%%T2fOhQ~~ !T2hR%%%%T2jT;R%%T2lVQ~~~T2nXhR%%T2p[%%%%T2r];R%%T2t_R%%%T2vahQ~~T2xd%%%%T2zf;Q~~ !T2|hR%%%T2~jhR%%T4&m%%%%T4(o;R%%T4*qQ~~~T4,shR%%T4.v%%%%T40x;Q~~T42zR%%%T44|hQ~~ !T47%%%%%T49';R%%T4;)R%%%T4=+hQ~~T4?.%%%%T4A0;R%%T4C2R%%%T4E4hR%%T4G7%%%%T4I9;Q~~ !T4K;R%%%T4M=hR%%T4O@%%%%T4QB;Q~~T4SDQ~~~T4UFhR%%T4WI%%%%T4YK;R%%T4[MQ~~~T4]OhQ~~ !T4_R%%%%T4aT;R%%T4cVR%%%T4eXhQ~~T4g[%%%%T4i];R%%T4k_R%%%T4mahR%%T4od%%%%T4qf;Q~~ !T4shR%%%T4ujhR%%T4wm%%%%T4yo;Q~~T4{qQ~~~T4}shR%%T6%v%%%%T6'x;R%%T6)zQ~~~T6+|hQ~~ !T6.%%%%%T60';R%%T62)R%%%T64+hQ~~T66.%%%%T680;R%%T6:2R%%%T6<4hR%%T6>7%%%%T6@9;Q~~ !T6B;R%%%T6D=hR%%T6F@%%%%T6HB;Q~~T6JDQ~~~T6LFhR%%T6NI%%%%T6PK;R%%T6RMQ~~~T6TOhQ~~ !T6VR%%%%T6XT;R%%T6ZVR%%%T6\XhQ~~T6^[%%%%T6`];R%%T6b_R%%%T6dahR%%T6fd%%%%T6hf;Q~~ !T6jhR%%%T6ljhR%%T6nm%%%%T6po;Q~~T6rqQ~~~T6tshR%%T6vv%%%%T6xx;R%%T6zzQ~~~T6||hQ~~ !T8%%%%%%T8'';R%%T8))R%%%T8++hQ~~T8-.%%%%T8/0;R%%T812R%%%T834hR%%T857%%%%T879;Q~~ !T89;R%%%T8;=hR%%T8=@%%%%T8?B;Q~~T8ADQ~~~T8CFhR%%T8EI%%%%T8GK;R%%T8IMQ~~~T8KOhQ~~ !T8MR%%%%T8OT;R%%T8QVR%%%T8SXhQ~~T8U[%%%%T8W];R%%T8Y_R%%%T8[ahR%%T8]d%%%%T8_f;Q~~ !T8ahR%%%T8cjhR%%T8em%%%%T8go;Q~~T8iqQ~~~T8kshR%%T8mv%%%%T8ox;R%%T8qzQ~~~T8s|hQ~~ !T8v%%%%%T8x';R%%T8z)R%%%T8|+hQ~~T8~.%%%%T:&0;R%%T:(2R%%%T:*4hR%%T:,7%%%%T:.9;Q~~ !T:0;R%%%T:2=hR%%T:4@%%%%T:6B;Q~~T:8DQ~~~T::FhR%%T:K;R%%T:@MQ~~~T:BOhQ~~ !T:DR%%%%T:FT;R%%T:HVR%%%T:JXhQ~~T:L[%%%%T:N];R%%T:P_R%%%T:RahR%%T:Td%%%%T:Vf;Q~~ !T:XhR%%%T:ZjhR%%T:\m%%%%T:^o;Q~~T:`qQ~~~T:bshR%%T:dv%%%%T:fx;R%%T:hzQ~~~T:j|hQ~~ !T:m%%%%%T:o';R%%T:q)R%%%T:s+hQ~~T:u.%%%%T:w0;R%%T:y2R%%%T:{4hR%%T:}7%%%%T<%9;Q~~ !T<';R%%%T<)=hR%%T<+@%%%%T<-B;Q~~T&DQ~~~T>(FhR%%T>*I%%%%T>,K;R%%T>.MQ~~~T>0OhQ~~ !T>2R%%%%T>4T;R%%T>6VR%%%T>8XhQ~~T>:[%%%%T><];R%%T>>_R%%%T>@ahR%%T>Bd%%%%T>Df;Q~~ !T>FhR%%%T>HjhR%%T>Jm%%%%T>Lo;Q~~T>NqQ~~~T>PshR%%T>Rv%%%%T>Tx;R%%T>VzQ~~~T>X|hQ~~ !T>[%%%%%T>]';R%%T>_)R%%%T>a+hQ~~T>c.%%%%T>e0;R%%T>g2R%%%T>i4hR%%T>k7%%%%T>m9;Q~~ !T>o;R%%%T>q=hR%%T>s@%%%%T>uB;Q~~T>wDQ~~~T>yFhR%%T>{I%%%%T>}K;R%%T@%MQ~~~T@'OhQ~~ !T@)R%%%%T@+T;R%%T@-VR%%%T@/XhQ~~T@1[%%%%T@3];R%%T@5_R%%%T@7ahR%%T@9d%%%%T@;f;Q~~ !T@=hR%%%T@?jhR%%T@Am%%%%T@Co;Q~~T@EqQ~~~T@GshR%%T@Iv%%%%T@Kx;R%%T@MzQ~~~T@O|hQ~~ #% [ 600] c.2 !QVLel_>|QPqBI-{MQF%b\R=@Q>keuEcBQ8Ge,e`)Q0pW`;ZRPT'M}}.RPRkmlojPQd_b]kMbQn%`:O4`QvBvA)TLQ~[]BAn]R.t@]W[^ !R0?DiQ.%R0cL8eRbR2,Hq-aLR2N-:H%RR2nFrKhrR4302Ab+R4P8\vpgR4kV}D:wR6+)8Y(&R6B\fRCk !R6X8Hs?[R6klgIK+R6}C|&j4R82r2?;FR8@E>|r]R8KuQ0aXR8UU+<^OR8]FdNZJR8cU\1K7R8h5dkaT !R8kQl*:&R8mcgO;{R8o(d1A,R8oo>47RR8pG`Oq%R8q-e]IbR8rF}t6[R8tbUd=dR8xR]zZwR8~F4]PW !R:,mxGc2R:8GOb~>R:G^%:~:R:[,z?TtR:s:dnVBR<6URSFTR(+\o26R>Vw'F2^R@2-~MKT !R@mm?}?wRBV2+R*aRDE8`:o;RF;-I&8ERH7oBT(sRJ;Nb?@9RLF)mVnR`Gj,%-wRd12_3Yy.F8S.W7A6>[S.lRi:NMS0(N-Fh.S0?'WPBhS0V75-ttS0mzi+6>S2,;rYI9S2E+sLt/S2^Gy/N] !S2x3%DaHS48Cq4=XS4Rw(r>tS4mn~^'|S6/'{/cLk7S:Z+goQFS:uvP=bKS<7WM;EMS.}_s4IMif[RS>cRX_o| !S>}.)nh{S@<6?9YOS@TgUA[ZS@ld5|\iSB*(oP^cSB@f88H2SBVe@u{ESBk}>|C;SD&QV7'LSD:9dFU* !SDM3\w|mSD_=I<\(SDpUHkpwSF&z85A0SF6PdiqRSFE2%2TLSFRwNw0`SF_lfwbOSFkkbCt/SFvtMB03 !SH'-I_LgSH0K4Kz>SH8tZ.qVSH@Pen<%SHG:q&klSHM4LYrzSHR?4L62SHV\t9]xSHZ5X+1oSH]%God% !SH_.\V/YSH`S`+SMSHa=%k9LSHaG;=V>SH`u'cpKSH_o)n9XSH^8)%))SH\,hy>`SHYOx|JySHVJ@Pk; !SHRxXX&QSHO)H'{vSHJmCm''SHF8z9-BSHAB^LUgSH<2gJOqSH6eOwu.SH1(zvu[SH+32pnqSH%+we*Y !SFxn|'`ESFrIrT]/SFkr(l0pSFe4k]i=SF^G:*6kSFWPH\7zSFPQ0H){SFIJ2~]lSFB<,WP?SF;'G+gc !SF3fI&C?SF,EHEInSD~xR9yOSDwKjX8eSDos5+Y/SDh:[;:.SD`UsaU*SDXji'G`SDPx|)I-SDI&66zV !SDA&+}bCSD8x<=\iSD0hD?4,SD(O{/SBq^:Odn@NS@4.i.KtS@)^7A'DS>y*R/0nH1O&,S>c]`YEYS>Xk`[1{S>Mrj>-cS>Bs_Ab+S>7o%(/a !S>,eWEpcS<{X,UykSSES8sY]Iw]S8i*Xm>/ !S8^^5ABPS8T@duDbS8J,G8o'S8?{E*CgS85yfyV2S8,'WMk/S6|8p[(_S6rSSNNaS6hwQRIrS6_J^|V~]lS279r4hRS2/V?R~[_UM6*R|}JT;vM !R|F@HofpRzj@][\QRz5J?wGhRx[\/]F(Rx(tIp?*RvQ7/qrIRtzUpRrERtJsl31wRrv3sztpRrHFa7U7 !RpuNN\6gRpIG>=^kRnx,w\ZkRnMT|'ysRl}`sN)nRlTKyEFXRl+kH_r%Rj]`K`/,Rj6&9&>'Rhhl%@kO !RhAy+'QkRfuHpO4`RfO0u)V*Rf),~WeERd]9143MRd7QV_/}Rbkridd5RbF?Y@{aR`zi1[_BR`U8u\`) !R`/`_76&R^d*Tf9PR^>I'H){R\r`zvg&R\LqMT{-R\&y}F2:RZZz@.^SRZ4rM'a}RXhbcH_JRXBKWNRf !RVv-i6TtRVOd3B[-RV);jg%1RT\idm`1RT6;1R}?RRie=i.bRRC5BN4DRPv`OXYSRPP3onF0RP)dLb%Z !RN]?9n;6RN6x~gK\RLj^I3&4RLDIzCG3RJx;|l@^RJR4a;V*RJ,4)b:_RH`9~=S(RH:F8K&qRFnXCbcV !RFHorl2rRD}28u.%RDWRktpwRD1vweVBRBfC}]OiRB@mIN9\R@u>`]BlR@OkEd13R@*?^n=LA, !R>9DTc'TR3IRW]Q<:vioa}Q8P}8`mrQ6,uBm+PQ40R':X4Q2ahuAmIQ2eE2Am%Q41GV^.rQ4lVO]j,Q6W[Mp}K !Q8Drc'=yQ:/Tc=H.Q:neHUjHQIf5`i%Q>h)Rw&0Q>}W:k[NQ@0L[_AmQ@5%m]8< !Q@1ajSSuQ@&x_CNMQ>oBg50xQ>WQl8n8Q>:.TNXmQ?lcNQ4=J}t{rQ2}DFv^.Q2ic&8l[Q2\fV^t/Q2VDKPtW !Q2V('}'\Q2ZxmheMQ2c|OF=}Q2o~=%.fQ2}p\/{~Q42MrFMFQ4@v*KlRQ4NHSLm9Q4Z?n\ZkQ4d/0yo` !Q4kO3D`~Q4p/&&jXQ4qu7Q'/Q4phh%BXQ4lfGX7vQ4ew~sUOQ4\T-}?wQ4PkJyloQ4C&V}88Q43[^>Px !Q2|}|8@MQ2k_Tci1Q2Z0?6k|Q2H}4v6&Q28lW9|dQ2*22u=mQ0wX@mU7Q0mTh3dVQ0fG5_}hQ0bB@r{] !Q0aIlOBpQ0cQs6PKQ0h@YA|mQ0oJLrBTQ0xAxl*EQ2(O0O1oQ23>|XG?Q2>9q'9tQ2HkHD2nQ2ROguc* !Q2Zv2xt7Q2aeCOJUQ2f]V49xQ2iJTG7IQ2iwJAJ}Q2h&]T|dQ2cagMZRQ2\uJ.Pl>EYQ.V~Y&DvQ.d|SC0+Q.tkEzFX%bQ0b|WiSyQ0PDD*i%Q0;z&Lm9Q0&0s{QR !Q.iE)1P+Q.R2RK=TPzNP(>I^Pv%z7rSUPpiQ4003Pln\\,qBPj?2~i-*Ph>/HRQ2Pfr0:n(2Ph)w+0(s !PhqXYe7zPl5)>?CsPnyS|W)%Pt'*8|@nPxAr9b-cP|f}k(ot^B@Q0^}OwIEQ0O'lWwYQ0<]hzkSQ0('^M=DQ.kTc9&MQ.SR&]T\PzFs^@6&PtTFpkI9Pnc8{`qv !Ph{b?MD:PdMqi~?oP`?bnP>dP\^C3mg&PZ\Ca*?>PZB^d{a@PZmZ|;s8P\~*k%CkP`i8`us`Pd{m)a=4 !PjNjYf@EPp0cXvs}Ptr+ZcJiPzW7QMGtQ.SPpCZ6Q.i[8~U?Q.}zzz-VQ067e1zZQ0F,bVo|Q0SEj@_B !Q0]r}XySQ0eN*m>xQ0j(8I+uQ0kUuIU[Q0ize[57Q0e=H@97T6h(WvtlT6q3z%n@T6z7f03I !T8)4`3QRT82+O+a8T8:vqqGtT8CcNt%~T8LKw=`%T8U0hv)*T8]lR&1*T8fK\[*=T8o(T*\(T8w]ZSCc !T:&74O'@T:.iWOf+T:7A&oaXT:?qlpUgT:HH-sd)T:Px.~K3T:YM~{A@T:a}v:@=T:jSz^=LT:s*;aKh !T:{Zv6ygT<*1}is0T<2cX=_ZT<;;e{<)T%~Nj4.]Jx&MT>7=;2cJT>?wzLjmT>HYUM@~T>Q<&oDJT>YyI9yOT>b]c__jT>kBv,QB !T>t)'5RVT>|j+[goT@+R)E75T@4:{,y&T@<~lOJ0T@EiXQ80T@NU?2C&T@WAzLjmT@`/W'YtT@hx.vj< !T@qg\Iq2T@zX+rCgTB)IPxfpTB2;r>*qTB;/5XnYTBC}OP(KTBLre`75TBUhx/@rTB^`,qEMTBgX85t3 !TBpQ?OnYTByKBG_RTD(FA:v1TD1B;*~sTD:?/qycTDC !TFq)*6cNTFz3]1`=TH)>iWTH;VXwxhTHDc4wWzTHMp5BJuTHV}V871TH`19|1KTHi?6BJ, !THrMGDf`TH{[i.lcTJ*j=BlRTJ3xt,K`TJ=-UhxtTJF<8gTxTJOJrjJ0TJXYLuq^TJagwS,7TJjv;}v5 !TJt*JeVBTJ}8GID6TL,F/K.1TL5SZm`zTL>`mwJYTLGmfk7nTLPzDJO(TLZ,_S-JTLc8]gWiTLlD>Lo` !TLuO[zJ@TL~Z\YpwTN-e@E/QTN6obXBpTN?yitUGTNI)XZIVTNR3/bRzTN[hnTTUg+NreTT^xBG>dTTh09c+4TTqBk*bx !TTzU|4\iTV)im&raTV2~;{l_TV<9BDFtmP}OTXH4zq5_TXQOE4.5TXZi|SL[TXd*iyP+TXmEcQx/TXv`ewTd !TZ%{mw)jTZ/TZ8X'Rs4TZAs-7emTZK4,a[VTZTN}>BhTZ]ii*h6TZg*H)d^TZpDr[Z*TZy_3gnq !T\(y>2@5T\297QRrT\;RyMwaT\DlP'T\T\N+osH.T\WE%^VVT\`^&AYWT\ivsV/4T\s5[?>[T\|N96eu !T^+fj81sT^5%<@ckT^>=gJb+T^GV9pi5T^PnkphjT^Z-LcvvT^cF:&~oT^l_8IEIT^uxKMivT`%7x-,G !T`.Qgx,/T`7kys]3T`A,Wt%~T`JG`r.bT`Sc>h7bT`]%P1_rT`fB>|gcT`o_iS>pT`x}yF*UTb(Bqn@r !Tb1bW/qNTb;)+vs}TbDJLmZ*TbMlbidVTbW5ohF`Tb`Yufg_Tbi~v&vATbsJqx{QTb|qilLGTd,?^S !TlMs'7TlTlWWDkwmTla;vG@ATljz_'{QTlt_VM8uTl~DY&A]a1?sTpH>QN^sTpQxG2`~ !Tp[W9&bOTpe4wVPGTpnkDXmETpxFJ;wCW !Tr`|3J&Q* !TzELgO?[TzLd?neeTzSw|O'@Tz[+e)M2Tzb1N8^KTzi-+,6[TzovN)%T|{y74=4T~'c-oBHT~-[dnl6 !T~3_v'Z>T~9ld-CU.XjG){AU.YBu4P7U.YvxJ:k !U.ZR@G&mU.[.o&{~U.[f=|drU.\DO6I1U.\}6@aDU.]\;=a8U.^;Kf'}tU.c[zB>hU.d/(@DZU.dYHv-.U.e&v@\uU.eKYm6& !U.eme`[^U.f3r,0/U.fRmt4}U.fqXzPGU.g76M~WU.gXYHJEU.g|KisTU.hI3?b`U.hrw.oxU.iE_=&u !U.iu4d|uU.jM:2NEU.k'U%}dU.k]jHV.U.l;`e9XU.ltyc8yU.mUE&r=U.n6bE\qU.nrdEWYU.oU9@EI !U.p8*NyoU.xs{avbU.y4S6EvU.yK7@G'U.y_Z,vZU.ysh7H: !U.z/nV:SU.zIT>UGU.zgu=2:U.{1;bAyU.{YKjt`U.|+}7B3U.|\CLrvU.}5xC/}]SIU03MDOX@U03bAJQNU03~aAY3 !U04H,_\yU04qbbg[U05FN903U05yMADvU06Up2JeU074yG:;U07p8N53U08S9bk_U097\Z0LU09w-;j@ !U0:]IcXTU0;DDu/8U0<+hL40U0=%q*AU0>~Zjw,U0?eoWEiU0@LSl6.U0A2M0sH !U0AqD\c>U0BTwe&yU0C6h_c&U0CpD4A8U0DM(WL;U0E%~(ugU0ET-sn}U0E|%(T/U0FB.4lWU0FXu1|8 #% [ 600] c.k !Q%%%%%%%QRR%%%%%R.R%%%%%R2hR%%%%R8%%%%%%R<;R%%%%R@R%%%%%RDhR%%%%RJ%%%%%%RN;R%%%% !RRR%%%%%RVhR%%%%RZ%%%%%R`;R%%%%RdR%%%%%RhhR%%%%Rn%%%%%%Rr;R%%%%RvR%%%%%RzhR%%%% !S.R%%%%%S.f;R%%%S.zR%%%%S04hQ~~~S0I%%%%%S0];R%%%S0qR%%%%S2+hR%%%S2@%%%%%S2T;Q~~~ !S2hR%%%%S2|hR%%%S47%%%%%S4K;Q~~~S4_R%%%%S4shR%%%S6.%%%%%S6B;R%%%S6VR%%%%S6jhQ~~~ !S8%%%%%%S89;Q~~~S8MR%%%%S8ahQ~~~S8v%%%%%S:0;R%%%S:DR%%%%S:XhR%%%S:m%%%%%S<';R%%% !S<;R%%%%S2R%%%%S>FhR%%%S>[%%%%%S>o;R%%%S@)R%%%%S@=hR%%% !S@R%%%%%S@f;Q~~~S@zR%%%%SB4hQ~~~SBI%%%%%SB];R%%%SBqR%%%%SD+hR%%%SD@%%%%%SDT;R%%% !SDhR%%%%SD|hQ~~~SF7%%%%%SFK;Q~~~SF_R%%%%SFshR%%%SH.%%%%%SHB;R%%%SHVR%%%%SHjhR%%% !SJ%%%%%%SJ9;Q~~~SJMR%%%%SJahR%%%SJv%%%%%SL0;R%%%SLDR%%%%SLXhQ~~~SLm%%%%%SN';R%%% !SN;R%%%%SNOhQ~~~SNd%%%%%SNx;R%%%SP2R%%%%SPFhR%%%SP[%%%%%SPo;Q~~~SR)R%%%%SR=hR%%% !SRR%%%%%SRf;Q~~~SRzR%%%%ST4hR%%%STI%%%%%ST];R%%%STqR%%%%SV+hQ~~~SV@%%%%%SVT;R%%% !SVhR%%%%SV|hQ~~~SX7%%%%%SXK;R%%%SX_R%%%%SXshR%%%SZ.%%%%%SZB;Q~~~SZVR%%%%SZjhR%%% !S\%%%%%%S\9;Q~~~S\MR%%%%S\ahR%%%S\v%%%%%S^0;R%%%S^DR%%%%S^XhQ~~~S^m%%%%%S`';R%%% !S`;R%%%%S`OhQ~~~S`d%%%%%S`x;R%%%Sb2R%%%%SbFhR%%%Sb[%%%%%Sbo;Q~~~Sd)R%%%%Sd=hR%%% !SdR%%%%%Sdf;Q~~~SdzR%%%%Sf4hR%%%SfI%%%%%Sf];R%%%SfqR%%%%Sh+hQ~~~Sh@%%%%%ShT;R%%% !ShhR%%%%Sh|hQ~~~Sj7%%%%%SjK;R%%%Sj_R%%%%SjshR%%%Sl.%%%%%SlB;Q~~~SlVR%%%%SljhR%%% !Sn%%%%%%Sn9;R%%%SnMR%%%%SnahR%%%Snv%%%%%Sp0;R%%%SpDR%%%%SpXhQ~~~Spm%%%%%Sr';Q~~~ !Sr;R%%%%SrOhR%%%Srd%%%%%Srx;R%%%St2R%%%%StFhR%%%St[%%%%%Sto;Q~~~Sv)R%%%%Sv=hQ~~~ !SvR%%%%%Svf;R%%%SvzR%%%%Sx4hR%%%SxI%%%%%Sx];R%%%SxqR%%%%Sz+hQ~~~Sz@%%%%%SzT;Q~~~ !SzhR%%%%Sz|hR%%%S|7%%%%%S|K;R%%%S|_R%%%%S|shR%%%S~.%%%%%S~B;Q~~~S~VR%%%%S~jhQ~~~ !T.R%%%%%T.T';R%%T.V)Q~~~T.X+hR%%T.Z.%%%%T.\0;R%%T.^2R%%%T.`4hQ~~T.b7%%%%T.d9;Q~~ !T.f;R%%%T.h=hR%%T.j@%%%%T.lB;R%%T.nDQ~~~T.pFhR%%T.rI%%%%T.tK;Q~~T.vMR%%%T.xOhQ~~ !T.zR%%%%T.|T;R%%T.~VQ~~~T0&XhR%%T0([%%%%T0*];R%%T0,_R%%%T0.ahQ~~T00d%%%%T02f;Q~~ !T04hR%%%T06jhR%%T08m%%%%T0:o;R%%T0shR%%T0@v%%%%T0Bx;Q~~T0DzR%%%T0F|hQ~~ !T0I%%%%%T0K';R%%T0M)Q~~~T0O+hR%%T0Q.%%%%T0S0;R%%T0U2R%%%T0W4hQ~~T0Y7%%%%T0[9;Q~~ !T0];R%%%T0_=hR%%T0a@%%%%T0cB;R%%T0eDQ~~~T0gFhR%%T0iI%%%%T0kK;Q~~T0mMR%%%T0oOhQ~~ !T0qR%%%%T0sT;R%%T0uVQ~~~T0wXhR%%T0y[%%%%T0{];R%%T0}_R%%%T2%ahQ~~T2'd%%%%T2)f;Q~~ !T2+hR%%%T2-jhR%%T2/m%%%%T21o;R%%T23qQ~~~T25shR%%T27v%%%%T29x;Q~~T2;zR%%%T2=|hQ~~ !T2@%%%%%T2B';R%%T2D)Q~~~T2F+hR%%T2H.%%%%T2J0;R%%T2L2R%%%T2N4hQ~~T2P7%%%%T2R9;Q~~ !T2T;R%%%T2V=hR%%T2X@%%%%T2ZB;R%%T2\DQ~~~T2^FhR%%T2`I%%%%T2bK;Q~~T2dMR%%%T2fOhQ~~ !T2hR%%%%T2jT;R%%T2lVQ~~~T2nXhR%%T2p[%%%%T2r];R%%T2t_R%%%T2vahQ~~T2xd%%%%T2zf;Q~~ !T2|hR%%%T2~jhR%%T4&m%%%%T4(o;R%%T4*qQ~~~T4,shR%%T4.v%%%%T40x;Q~~T42zR%%%T44|hQ~~ !T47%%%%%T49';R%%T4;)R%%%T4=+hQ~~T4?.%%%%T4A0;R%%T4C2R%%%T4E4hR%%T4G7%%%%T4I9;Q~~ !T4K;R%%%T4M=hR%%T4O@%%%%T4QB;Q~~T4SDQ~~~T4UFhR%%T4WI%%%%T4YK;R%%T4[MQ~~~T4]OhQ~~ !T4_R%%%%T4aT;R%%T4cVR%%%T4eXhQ~~T4g[%%%%T4i];R%%T4k_R%%%T4mahR%%T4od%%%%T4qf;Q~~ !T4shR%%%T4ujhR%%T4wm%%%%T4yo;Q~~T4{qQ~~~T4}shR%%T6%v%%%%T6'x;R%%T6)zQ~~~T6+|hQ~~ !T6.%%%%%T60';R%%T62)R%%%T64+hQ~~T66.%%%%T680;R%%T6:2R%%%T6<4hR%%T6>7%%%%T6@9;Q~~ !T6B;R%%%T6D=hR%%T6F@%%%%T6HB;Q~~T6JDQ~~~T6LFhR%%T6NI%%%%T6PK;R%%T6RMQ~~~T6TOhQ~~ !T6VR%%%%T6XT;R%%T6ZVR%%%T6\XhQ~~T6^[%%%%T6`];R%%T6b_R%%%T6dahR%%T6fd%%%%T6hf;Q~~ !T6jhR%%%T6ljhR%%T6nm%%%%T6po;Q~~T6rqQ~~~T6tshR%%T6vv%%%%T6xx;R%%T6zzQ~~~T6||hQ~~ !T8%%%%%%T8'';R%%T8))R%%%T8++hQ~~T8-.%%%%T8/0;R%%T812R%%%T834hR%%T857%%%%T879;Q~~ !T89;R%%%T8;=hR%%T8=@%%%%T8?B;Q~~T8ADQ~~~T8CFhR%%T8EI%%%%T8GK;R%%T8IMQ~~~T8KOhQ~~ !T8MR%%%%T8OT;R%%T8QVR%%%T8SXhQ~~T8U[%%%%T8W];R%%T8Y_R%%%T8[ahR%%T8]d%%%%T8_f;Q~~ !T8ahR%%%T8cjhR%%T8em%%%%T8go;Q~~T8iqQ~~~T8kshR%%T8mv%%%%T8ox;R%%T8qzQ~~~T8s|hQ~~ !T8v%%%%%T8x';R%%T8z)R%%%T8|+hQ~~T8~.%%%%T:&0;R%%T:(2R%%%T:*4hR%%T:,7%%%%T:.9;Q~~ !T:0;R%%%T:2=hR%%T:4@%%%%T:6B;Q~~T:8DQ~~~T::FhR%%T:K;R%%T:@MQ~~~T:BOhQ~~ !T:DR%%%%T:FT;R%%T:HVR%%%T:JXhQ~~T:L[%%%%T:N];R%%T:P_R%%%T:RahR%%T:Td%%%%T:Vf;Q~~ !T:XhR%%%T:ZjhR%%T:\m%%%%T:^o;Q~~T:`qQ~~~T:bshR%%T:dv%%%%T:fx;R%%T:hzQ~~~T:j|hQ~~ !T:m%%%%%T:o';R%%T:q)R%%%T:s+hQ~~T:u.%%%%T:w0;R%%T:y2R%%%T:{4hR%%T:}7%%%%T<%9;Q~~ !T<';R%%%T<)=hR%%T<+@%%%%T<-B;Q~~T&DQ~~~T>(FhR%%T>*I%%%%T>,K;R%%T>.MQ~~~T>0OhQ~~ !T>2R%%%%T>4T;R%%T>6VR%%%T>8XhQ~~T>:[%%%%T><];R%%T>>_R%%%T>@ahR%%T>Bd%%%%T>Df;Q~~ !T>FhR%%%T>HjhR%%T>Jm%%%%T>Lo;Q~~T>NqQ~~~T>PshR%%T>Rv%%%%T>Tx;R%%T>VzQ~~~T>X|hQ~~ !T>[%%%%%T>]';R%%T>_)R%%%T>a+hQ~~T>c.%%%%T>e0;R%%T>g2R%%%T>i4hR%%T>k7%%%%T>m9;Q~~ !T>o;R%%%T>q=hR%%T>s@%%%%T>uB;Q~~T>wDQ~~~T>yFhR%%T>{I%%%%T>}K;R%%T@%MQ~~~T@'OhQ~~ !T@)R%%%%T@+T;R%%T@-VR%%%T@/XhQ~~T@1[%%%%T@3];R%%T@5_R%%%T@7ahR%%T@9d%%%%T@;f;Q~~ !T@=hR%%%T@?jhR%%T@Am%%%%T@Co;Q~~T@EqQ~~~T@GshR%%T@Iv%%%%T@Kx;R%%T@MzQ~~~T@O|hQ~~ #% [ 600] c.xmag !QVLel_>|QPqBI-{MQF%b\R=@Q>keuEcBQ8Ge,e`)Q0pW`;ZRPT'M}}.RPRkmlojPQd_b]kMbQn%`:O4`QvBvA)TLQ~[]BAn]R.t@]W[^ !R0?DiQ.%R0cL8eRbR2,Hq-aLR2N-:H%RR2nFrKhrR4302Ab+R4P8\vpgR4kV}D:wR6+)8Y(&R6B\fRCk !R6X8Hs?[R6klgIK+R6}C|&j4R82r2?;FR8@E>|r]R8KuQ0aXR8UU+<^OR8]FdNZJR8cU\1K7R8h5dkaT !R8kQl*:&R8mcgO;{R8o(d1A,R8oo>47RR8pG`Oq%R8q-e]IbR8rF}t6[R8tbUd=dR8xR]zZwR8~F4]PW !R:,mxGc2R:8GOb~>R:G^%:~:R:[,z?TtR:s:dnVBR<6URSFTR(+\o26R>Vw'F2^R@2-~MKT !R@mm?}?wRBV2+R*aRDE8`:o;RF;-I&8ERH7oBT(sRJ;Nb?@9RLF)mVnR`Gj,%-wRd12_3Yy.F8S.W7A6>[S.lRi:NMS0(N-Fh.S0?'WPBhS0V75-ttS0mzi+6>S2,;rYI9S2E+sLt/S2^Gy/N] !S2x3%DaHS48Cq4=XS4Rw(r>tS4mn~^'|S6/'{/cLk7S:Z+goQFS:uvP=bKS<7WM;EMS.}_s4IMif[RS>cRX_o| !S>}.)nh{S@<6?9YOS@TgUA[ZS@ld5|\iSB*(oP^cSB@f88H2SBVe@u{ESBk}>|C;SD&QV7'LSD:9dFU* !SDM3\w|mSD_=I<\(SDpUHkpwSF&z85A0SF6PdiqRSFE2%2TLSFRwNw0`SF_lfwbOSFkkbCt/SFvtMB03 !SH'-I_LgSH0K4Kz>SH8tZ.qVSH@Pen<%SHG:q&klSHM4LYrzSHR?4L62SHV\t9]xSHZ5X+1oSH]%God% !SH_.\V/YSH`S`+SMSHa=%k9LSHaG;=V>SH`u'cpKSH_o)n9XSH^8)%))SH\,hy>`SHYOx|JySHVJ@Pk; !SHRxXX&QSHO)H'{vSHJmCm''SHF8z9-BSHAB^LUgSH<2gJOqSH6eOwu.SH1(zvu[SH+32pnqSH%+we*Y !SFxn|'`ESFrIrT]/SFkr(l0pSFe4k]i=SF^G:*6kSFWPH\7zSFPQ0H){SFIJ2~]lSFB<,WP?SF;'G+gc !SF3fI&C?SF,EHEInSD~xR9yOSDwKjX8eSDos5+Y/SDh:[;:.SD`UsaU*SDXji'G`SDPx|)I-SDI&66zV !SDA&+}bCSD8x<=\iSD0hD?4,SD(O{/SBq^:Odn@NS@4.i.KtS@)^7A'DS>y*R/0nH1O&,S>c]`YEYS>Xk`[1{S>Mrj>-cS>Bs_Ab+S>7o%(/a !S>,eWEpcS<{X,UykSSES8sY]Iw]S8i*Xm>/ !S8^^5ABPS8T@duDbS8J,G8o'S8?{E*CgS85yfyV2S8,'WMk/S6|8p[(_S6rSSNNaS6hwQRIrS6_J^|V~]lS279r4hRS2/V?R~[_UM6*R|}JT;vM !R|F@HofpRzj@][\QRz5J?wGhRx[\/]F(Rx(tIp?*RvQ7/qrIRtzUpRrERtJsl31wRrv3sztpRrHFa7U7 !RpuNN\6gRpIG>=^kRnx,w\ZkRnMT|'ysRl}`sN)nRlTKyEFXRl+kH_r%Rj]`K`/,Rj6&9&>'Rhhl%@kO !RhAy+'QkRfuHpO4`RfO0u)V*Rf),~WeERd]9143MRd7QV_/}Rbkridd5RbF?Y@{aR`zi1[_BR`U8u\`) !R`/`_76&R^d*Tf9PR^>I'H){R\r`zvg&R\LqMT{-R\&y}F2:RZZz@.^SRZ4rM'a}RXhbcH_JRXBKWNRf !RVv-i6TtRVOd3B[-RV);jg%1RT\idm`1RT6;1R}?RRie=i.bRRC5BN4DRPv`OXYSRPP3onF0RP)dLb%Z !RN]?9n;6RN6x~gK\RLj^I3&4RLDIzCG3RJx;|l@^RJR4a;V*RJ,4)b:_RH`9~=S(RH:F8K&qRFnXCbcV !RFHorl2rRD}28u.%RDWRktpwRD1vweVBRBfC}]OiRB@mIN9\R@u>`]BlR@OkEd13R@*?^n=LA, !R>9DTc'TR3IRW]Q<:vioa}Q8P}8`mrQ6,uBm+PQ40R':X4Q2ahuAmIQ2eE2Am%Q41GV^.rQ4lVO]j,Q6W[Mp}K !Q8Drc'=yQ:/Tc=H.Q:neHUjHQIf5`i%Q>h)Rw&0Q>}W:k[NQ@0L[_AmQ@5%m]8< !Q@1ajSSuQ@&x_CNMQ>oBg50xQ>WQl8n8Q>:.TNXmQ?lcNQ4=J}t{rQ2}DFv^.Q2ic&8l[Q2\fV^t/Q2VDKPtW !Q2V('}'\Q2ZxmheMQ2c|OF=}Q2o~=%.fQ2}p\/{~Q42MrFMFQ4@v*KlRQ4NHSLm9Q4Z?n\ZkQ4d/0yo` !Q4kO3D`~Q4p/&&jXQ4qu7Q'/Q4phh%BXQ4lfGX7vQ4ew~sUOQ4\T-}?wQ4PkJyloQ4C&V}88Q43[^>Px !Q2|}|8@MQ2k_Tci1Q2Z0?6k|Q2H}4v6&Q28lW9|dQ2*22u=mQ0wX@mU7Q0mTh3dVQ0fG5_}hQ0bB@r{] !Q0aIlOBpQ0cQs6PKQ0h@YA|mQ0oJLrBTQ0xAxl*EQ2(O0O1oQ23>|XG?Q2>9q'9tQ2HkHD2nQ2ROguc* !Q2Zv2xt7Q2aeCOJUQ2f]V49xQ2iJTG7IQ2iwJAJ}Q2h&]T|dQ2cagMZRQ2\uJ.Pl>EYQ.V~Y&DvQ.d|SC0+Q.tkEzFX%bQ0b|WiSyQ0PDD*i%Q0;z&Lm9Q0&0s{QR !Q.iE)1P+Q.R2RK=TPzNP(>I^Pv%z7rSUPpiQ4003Pln\\,qBPj?2~i-*Ph>/HRQ2Pfr0:n(2Ph)w+0(s !PhqXYe7zPl5)>?CsPnyS|W)%Pt'*8|@nPxAr9b-cP|f}k(ot^B@Q0^}OwIEQ0O'lWwYQ0<]hzkSQ0('^M=DQ.kTc9&MQ.SR&]T\PzFs^@6&PtTFpkI9Pnc8{`qv !Ph{b?MD:PdMqi~?oP`?bnP>dP\^C3mg&PZ\Ca*?>PZB^d{a@PZmZ|;s8P\~*k%CkP`i8`us`Pd{m)a=4 !PjNjYf@EPp0cXvs}Ptr+ZcJiPzW7QMGtQ.SPpCZ6Q.i[8~U?Q.}zzz-VQ067e1zZQ0F,bVo|Q0SEj@_B !Q0]r}XySQ0eN*m>xQ0j(8I+uQ0kUuIU[Q0ize[57Q0e=H@97T6h(WvtlT6q3z%n@T6z7f03I !T8)4`3QRT82+O+a8T8:vqqGtT8CcNt%~T8LKw=`%T8U0hv)*T8]lR&1*T8fK\[*=T8o(T*\(T8w]ZSCc !T:&74O'@T:.iWOf+T:7A&oaXT:?qlpUgT:HH-sd)T:Px.~K3T:YM~{A@T:a}v:@=T:jSz^=LT:s*;aKh !T:{Zv6ygT<*1}is0T<2cX=_ZT<;;e{<)T%~Nj4.]Jx&MT>7=;2cJT>?wzLjmT>HYUM@~T>Q<&oDJT>YyI9yOT>b]c__jT>kBv,QB !T>t)'5RVT>|j+[goT@+R)E75T@4:{,y&T@<~lOJ0T@EiXQ80T@NU?2C&T@WAzLjmT@`/W'YtT@hx.vj< !T@qg\Iq2T@zX+rCgTB)IPxfpTB2;r>*qTB;/5XnYTBC}OP(KTBLre`75TBUhx/@rTB^`,qEMTBgX85t3 !TBpQ?OnYTByKBG_RTD(FA:v1TD1B;*~sTD:?/qycTDC !TFq)*6cNTFz3]1`=TH)>iWTH;VXwxhTHDc4wWzTHMp5BJuTHV}V871TH`19|1KTHi?6BJ, !THrMGDf`TH{[i.lcTJ*j=BlRTJ3xt,K`TJ=-UhxtTJF<8gTxTJOJrjJ0TJXYLuq^TJagwS,7TJjv;}v5 !TJt*JeVBTJ}8GID6TL,F/K.1TL5SZm`zTL>`mwJYTLGmfk7nTLPzDJO(TLZ,_S-JTLc8]gWiTLlD>Lo` !TLuO[zJ@TL~Z\YpwTN-e@E/QTN6obXBpTN?yitUGTNI)XZIVTNR3/bRzTN[hnTTUg+NreTT^xBG>dTTh09c+4TTqBk*bx !TTzU|4\iTV)im&raTV2~;{l_TV<9BDFtmP}OTXH4zq5_TXQOE4.5TXZi|SL[TXd*iyP+TXmEcQx/TXv`ewTd !TZ%{mw)jTZ/TZ8X'Rs4TZAs-7emTZK4,a[VTZTN}>BhTZ]ii*h6TZg*H)d^TZpDr[Z*TZy_3gnq !T\(y>2@5T\297QRrT\;RyMwaT\DlP'T\T\N+osH.T\WE%^VVT\`^&AYWT\ivsV/4T\s5[?>[T\|N96eu !T^+fj81sT^5%<@ckT^>=gJb+T^GV9pi5T^PnkphjT^Z-LcvvT^cF:&~oT^l_8IEIT^uxKMivT`%7x-,G !T`.Qgx,/T`7kys]3T`A,Wt%~T`JG`r.bT`Sc>h7bT`]%P1_rT`fB>|gcT`o_iS>pT`x}yF*UTb(Bqn@r !Tb1bW/qNTb;)+vs}TbDJLmZ*TbMlbidVTbW5ohF`Tb`Yufg_Tbi~v&vATbsJqx{QTb|qilLGTd,?^S !TlMs'7TlTlWWDkwmTla;vG@ATljz_'{QTlt_VM8uTl~DY&A]a1?sTpH>QN^sTpQxG2`~ !Tp[W9&bOTpe4wVPGTpnkDXmETpxFJ;wCW !Tr`|3J&Q* !TzELgO?[TzLd?neeTzSw|O'@Tz[+e)M2Tzb1N8^KTzi-+,6[TzovN)%T|{y74=4T~'c-oBHT~-[dnl6 !T~3_v'Z>T~9ld-CU.XjG){AU.YBu4P7U.YvxJ:k !U.ZR@G&mU.[.o&{~U.[f=|drU.\DO6I1U.\}6@aDU.]\;=a8U.^;Kf'}tU.c[zB>hU.d/(@DZU.dYHv-.U.e&v@\uU.eKYm6& !U.eme`[^U.f3r,0/U.fRmt4}U.fqXzPGU.g76M~WU.gXYHJEU.g|KisTU.hI3?b`U.hrw.oxU.iE_=&u !U.iu4d|uU.jM:2NEU.k'U%}dU.k]jHV.U.l;`e9XU.ltyc8yU.mUE&r=U.n6bE\qU.nrdEWYU.oU9@EI !U.p8*NyoU.xs{avbU.y4S6EvU.yK7@G'U.y_Z,vZU.ysh7H: !U.z/nV:SU.zIT>UGU.zgu=2:U.{1;bAyU.{YKjt`U.|+}7B3U.|\CLrvU.}5xC/}]SIU03MDOX@U03bAJQNU03~aAY3 !U04H,_\yU04qbbg[U05FN903U05yMADvU06Up2JeU074yG:;U07p8N53U08S9bk_U097\Z0LU09w-;j@ !U0:]IcXTU0;DDu/8U0<+hL40U0=%q*AU0>~Zjw,U0?eoWEiU0@LSl6.U0A2M0sH !U0AqD\c>U0BTwe&yU0C6h_c&U0CpD4A8U0DM(WL;U0E%~(ugU0ET-sn}U0E|%(T/U0FB.4lWU0FXu1|8 #% [ 600] c.pha !S.e.Eo=TS.Y'6AmIR~USXR]dR|O';U_*RzdrGry[Rz^\cEQ.R~Y_Rf[vS0pfe-k3SBo1G5rzSF=WCA|H !SFOdapSeSFO<`p,KSFHS\fmASF>vGU-:SF3hwcizSF'c`h5_SDu*p8MnSDh*9A`)SDZm1~AMSDMG>K0X !SD?r5Xr9SD2>-]V:SB~bM[=dSBq.4x8k` !S@no(CwES@bG\vemS@V9yRQVS@JIZvQWS@>zUI57S@3w&n8DS@)CaieDS>y?T{Q.S>ooz^VzS>g&\W0d !S>^wHs`IS>WZGL*IS>Q/YShzS>KVbt{qS>FzsFP7S>CF;`}_S>@oTT[vS>?CH?%vS>>sslzzS>?Gsl2* !S>@jl*iIS>Bv9;R%S>EZ+F+iS>H],A0Kie@qzS>Ni?tshS>QEC}&mS>SB{qvMS>TO|V=iS>T]X4`I !S>S`u2)RS>QS,fG_S>N0pHF@S>IT%'';S>Ce,|;zS>4d>wm%S>+_3-rrS<{`M-2*Sc2k.vS<0o1gVzS:|W)%MRS:mz%0C[S:_(b%Y_S:Ou9]/DS:@UM2Iv !S:1&ea;{S8{F.h9dS8k\7?fdS8[kPHJDS8Ku}h%NS8;}[y:[S8,)~Z2)S6v0TF'dS6f8SEeES6VC&e@M !S6FQ&~JDS66cE_b7S6&zcgRvS4q=eYWIS4a`y/E?_%MRR7%RWf{j\DRRYn7J`qRR[uf8_RRonV[ADRRqySY{qRRu*nN];RRw6Ja`I%RyBA0_zRR{NO^k7%R}Zs?ZVRS-X_?0Kd !S-bxDy>_S-m8fp{IS-wT*)%NS/'p%&8ES/22:9G`S/U02Z.S1H[W];RS1R]mpg2S1\[U=p[S1fTP{qRS1pHF`mN !S1z6v0h)S3)ynHz{S33\|DMzS3=:/&TdS3Fk0WM*S3P;w1NrS3Y`>DErS3b~:62*S3l;d.AES3uLeF/m !S3~WAod% !S7uDutO@S7}Z;|T;S9+oevADS94+Ywm%S96K[QVS;F`qo3IS;O2jUs@S;W_|,2zS;`4<'l. !S;hc@sX@S;q8vx';S;yh\n8DS=(>5YKC{I%S=RffOD)S=[2=.57 !S=cTWj7vS=ks+e4@SCkcVSG9gbcVRSG>*:o;RSGBJM%MRSGFo7;=hSGK?H>[MSGOox0WrSGTMn^&ESGY4*FX@SG]}dPC2 !SGbwjn4@SGg}BR57SGm5Q:{ISGrUEMrISGx)~<}`SG}hSFxdSI)^*P?.SI/ee~JDSI6&ZB_zSI=+h !SK<{ZC*ISKG=v.emSKR'R;%qzRSk`tB*,`Sm'37REISmEl'WM*SmcACqb7So&2v|t_SoB_Gp.M !So_,\@))So{eSmmvSq>k>Bh)Sq\RGRU[Sq{/Jn\mSs@qo7))Ssa|CbcWSu*gUBd%SuON*52zSuvLP21[ !SwF&}PSDSwrUe3uWSyH@VjdMSy{Vy;%NS{XH%}?.S}8crbwmS}v--~~~T-WP^n(2T-]~ksolT-dTf&3- !T-j|%EAeT-q7l*tCT-w5u.:sT-|r~xbGT/(:F]7)T/-A3T&MT/2/eU{%T/6c)BfpT/;*I4a\T/?=(b7n !T/CD-|IfT/GBVIgKT/K;3^CwT/O0X5H&T/S%;jYST/Vu\ZXTT/Zo}>yKT/^p^T/ET/byp)aHT/g3kBR5 !T/kTZzCoT/p*=(~_T/tjPPt3T/ybRkO@T/~l}CVzT1*/X@IMT1/\x?z{T15>GqAmT1;*-8TdT1@u/URv !T1Ff.Y;)T1LQV}g[T1R2\MIvT1W_K:>_T1\{E2f7%T1tS}EY7 !T1xeN8m%T1|kT>C2T3&h9;vNT3*]WW}`T3.MXx?WT32:=i@vT36%cjhRT39kw{Y7T3=[*Z%vT3AOJBOh !T3EK=qIvT3IQ=DM{T3Md0r}_T3R,jp[%T3Vb@/0cD=iT5K.`U2RT5PZFvaiT5Uh=ol. !T5ZZ;u:2T5_2v%IMT5cO3u2*T5gX(VV)T5kPEreDT5o:pYk_T5rsylJET5vIxslVT5yr{GG7T5}<~NI% !T7&]uJDRT7)}Vo|@T7-Cp&hzT70fd/y3T744:0OhT77bcKWrT7;@`y[%T7?++.57T7C%;eq)T7G39_V* !T7KYSa`IT7PCF5O@T7UPK_zRT7[,X;V)T7a6h/XiT7gq\fx;T7o'F+D)T7v]eN8mT7~Q./y3T9,FkN,` !T94)BT[vT9;AQ`]`T9n^F*U3T9qs[<,_T9u'Y]t7T9x0>C2RT9{5SH2*T9~9(<]I^K[vT;BEv(:[T;F^PZ:3T;K@XDrIT;PNv^wD !T;V9M(>`T;\d4H.%T;c|W7Y`T;l)%XL2T;tjvKt7T;}r5m=@T=,r_eq*T=5H;j@%T==5pp*IT=D3VB7M !T=JD_Pk`T=Oqu^[%T=TkJiiIT=Y:jDM{T=]B2RmvT=a.Fc^[T=d^pK7MT=g}z^2RT=k5B-fdT=n;o|@% !T=q9x)=iT=t1dZrqT=w%%_AmT=yoNn`rT=|^bMb7T?%N3)IvT?(?T9t7T?+4NvEIT?..m-.%T?10l5?. !T?4<}n,7T?7VWGk`T?;'PP.vT?>hklrrT?Bm.H^[T?G8rHo1}RPq>rVlAR8SOoj=HR0C9;X6bQd{kyHpMQJjJWc|HQ8fy4.12Pfu^lMcvP^OnY/5FQ2h4{UaV !Q:2=oE*PQ@(6t4rAQDR`^FhzQH^['K'JQLQ272f|QP./rD')QRRIl`MzQTf:1(2PQVkD+8KgQXc1W\;? !QZNiZ36ZQ\/4/k2?Q\_4N7\`Q^+PL}MoQ^HfuFs.Q^]QIY.>Q^j?o>qlQ^o_=|y^Q^n'(Q5BQ^eu>9X1 !Q^WeRb\RQ^C{.}~0QP'yvk4{QNbOQrvnQNHM,N4n !QN4\ktz4QN'e%BeeQL|FIIllQN%3y.yUQN0W1h,4QNDtzUcdQNbG1\FuQP/0VvJVQP_0&h-YQR>;mtKM !QT&CLFocQTq1S=6.QVjGV,G{QXkkIv|qQZu(X;n@Q^+rv+h9Q`C}75D`Qbc/Pp~AQf/&}zU2Qh[N,Po0 !Ql46*/WSQnl~qC(zQrQ`i)4cQv;|1_5*Qz+c0x63Q|z[GGfhR.Yz>T%LR.kmVzxnR.~.zv8&R06p+(&1 !R0IzE'K:R0]K2l?LR0q9a9IvR2+B}5;lR2?d(?,'R2T?a4Z|R2i,[}?RR2~'OPkGR49,lY2zR4N9'>3~ !R4cHV2&}R4xWc_eoR63bjK&%R6Hf(0W6R6]]hM@qR6rF5h^vR8,u]h])R8A4INI/R8U2tEX]R8hmQp{j !R8|,jUbrR:4{A=kbR:GGo\y`R:YC3@8IR:jj,='~eTR>7q[rTVR>BbiQk4R>LiK[uXR>V*j'EgR>^Z13K.R>fC.\>fR>m?N-il !R>sO4(HAR>xrK,7_R>}O[CW4R@'A>i79R@*H9q~qR@,eGZMiR@.?rNX~R@/2z0/GR@/@,)~GR@.hqSw( !R@-T~'k'R@+`D]-|R@)2wKb>R@&(i>R5R>|D*\`\R>x-,xV4R>s@4n%d(FjR>h:/suZR>b%w%./ !R>[EX8mQR>TA[^pSR>LvUdihR>E2rtF+R>=-*]qER>4gXhWtR>,0lmc{R<}?,+.7R]~ !R:YG|50BR:OQ0Kd,R:E]L5^OR:;m\`z8R:2(@@EhR:(B&[VKR8xa5owAR8o,2M\^R8eW3FL1R8\.Gjz2 !R8Rexux;R8IIo\7WR8@4)Y1UR86~S7-6R8-u-OhQR6~q\{`XR6usukA{R6l{c/DER6d.hIJ\R6[@mi^1 !R6RWZ6<0R6IrnCd,R6A86SJQR68[MYI.R60(AP{jR6'RTD@&R4y%pFcgR4pV&zUBR4h.s?AhR4_d6hU9 !R4WAph\YR4N{a,{3R4F]WrEfR4>AMX}_R46'=M22R4-i%/~fR4%R^~%_R2w>9Yk(R2o+n8kjR2fuPH\n !R2^gDK+|R2V[VTM6R2NR:{qjR2FK\NG}R2>Gs&EYR26G8pv)R2.Iwal`R2&P8WyfR0xZGV+zR0phcvz% !R0h{MfH;R0a8y_h)R0YUNj\mR0QwB>@,R0JDoOSR.c^k(LwR.\sVVwGR.V6\;A^Q~g/y*EeQ~&9~\'+Q|@@.G>&Qz[Bnihk !QxwBMtbKQx:?'nr@QvX8F9NnQtw.)x86Qt/),QpH)OZi6QnkX]x>OQn5}3ODf !Ql[;?9u>Ql'E9I@QQjN>}saSQhv&\/LRQhDT)gPoQfmk8a-mQf=j)tk\QdhNT)5pQd9pZ.~]QbetBXHL !Qb8WpcJTQ`esC%/EQ`9k0H5SQ^h=]C/SQ^=CH5}+Q\l{.DC4Q\C/VhSyQZsmeD8uQZK&a24TQX|ga^I) !QXT|,vE+QX-cL~o9QV`wGG)SQV:]bOK=QTnp=KGfQTIU0MBNQR~fHX%^QRZJ>iR\QR6[+q:~QPm?3;:5 !QPJPz>{wQP(6wm+(QN`K\&8FQN?5VMPiQLxO>C'7QLX?Gh\wQL8`I`5QQJsXqxnpQJU)8\'WQJ7+{x_} !QHsaN1cVQHVp*7tiQH:W}p9%QFxsM>@nQF]hQq)IQFC70~ayQF)9;(:@QDinYoC@QDP|nUG]QD8cQ:(U !QBz|'?FnQBckf.dqQBM1iv_fQB7'8R^kQ@{K'(djQ@fB&OldQ@Qdx9/lQ@=XF@^0Q@)tt\?pQ>p^vnWD !Q>]nn<2NQ>KHv)V'Q>9EJQW8Q>'bX&MBQ6tjp9Q<.'fYO_Q:x.>R\; !Q:hHo&i/IVQ6kQf6&cQ6]F)6W|Q6O?x:[nQ6A?1|HvQ63CY/|YQ6%M6H'GQ4q\'7|IQ4cp5ElO !Q4V/osy~Q4HO6)wVQ4:tR]A/Q4-F*[b4Q2yx2bHiQ2lW,-Q1Q2_=1ilCQ2R*]JTqQ2DylwjgQ27vuf^V !Q2*|03&5Q0x/^g-}Q0kEXG&cQ0^c}`c^Q0R0vlzgQ0E`A|ssQ09>31MJQ0,~@BY(Q.zl\'ZFQ.nbv)|j !Q.b`{AP,Q.VfWDLlP~7e[B@)Pzuy4BiPPxZvwFmwPv@\]azkPt'(@DY|Pph2?kFyPnOyH`;+Pl8Hrwnh !Ph{TX-R{PfeC&%KVPdOoII=8Pb;'dTA8P`&|aX`yP\mcsT@kPZ[;co]HPXIcH{toPV9-(fDsPT)SPBsV !PPu*G:YwPNgn1hJyPL[ssN/APJQEB&-:PHHFpopiPFA)BtOBPD;R4lUg*XP>6tn`lA !P<9nuz9AP:?:)a0wP8G=|;Q-P6R.wv|,P4_v%w)uP2poZr\cP2+.&[ekP0Bzf`STP.^b9RN2Ot{bsY]s !Oj)S2sJFO^i%.:*IOV7Ss_c2ONY1z1j.OJ-4Y}[@OFuug%p2OF{2v6M3OH}-YfG\OLYbte(SOPNCa}>4 !OTG`87}%OX9_B12vOZw4~akaO^H/]0`[O`^7.AMZOb^CyPp8OdH;566GOdv2TgJ{Of4bjJDhiO`VaoOIpO^Wlt{EcO\OZ|{,EOZ@0^Ow+OX+UaZ[yOTn-B0Kn !ORV2AX'OOP@4I%`(ON.dWPo%OJ~C)h,LOH}YrrjJOH.nQM(+OFG~dHyAODpR.cHDODNt|dK/OD5OFiz5'5zOH+FPeBdOHC(btT>OHUp|-|g !OHb|]Xy~OHiu;0|lOHj@.tosOHd/vZCpOHWNqOE6OHD]*823OH,)?puQOFhCu@krOFF;h^D^ODz_UPo& !ODRTd@b^OD(~<_rHOBY96`z>OB0P*)6`O@d'Z/4|wSDfGO>dHDDg^O>R>RlDeO>F~x_Y] !O>BYZ:^PO>DdycR;O>Ld}A3LO>Y_AUxZO>jH|+r*O>}hE{tjO@8NLX'MO@MD1]lwO@a@BeHBO@sDY3O@^PW_m+O@D-z3ci !O@%Qd9^ZO>]6I2VoO>7oasd|O6UO:I/GW`~O8|[I.1>O8YVSb~oO8;C_V%N !O6}>z72=O6lR8nPBO6ch@-kXO6cBOiHAO6k'UB:[O6z2H)18O85[@`f,O8P*b5%Z3 !O:U=lyUnO:usATC4O<:~D7ZFO,zlgj=O>>=R9-oO>Jk~dF)O>R5N[XDO>T9v0zX !O>Pme;ehO>GsC=4MO>9O*k]~O>%f{TwMO1O0[[h`L,O083Su,eO.vm&Uz~O.edSvsaO.`IQ_arO.g;u4A{O.y>2&4nO0:SWC`*O0\Y~X<3 !O2)4Ek49O2R:7971O2|.{\|vO4KM?JOcO4s3vR_zO6>H[0ZlO6`L9:hzO6~eeN?kvD6&O8T>(`=V !O8dvcOhtO8pO&bj9O8vn;t:&O8ws@M6>O8s\Uf`5O8j-\PrEO8[IE:C5O8Gcl~LiO8/68UWbO6l3B1[~ !O6Jy^_OMO6%z'n~^O4W``A1AO4,bI5W5O2Ye+{o6O2+\l/y,O0WPu/etO0*brw[%%%%%S@R%%%%%SBI%%%%%SD@%%%%%SF7%%%%%SH.%%%%% !SJ%%%%%%SJv%%%%%SLm%%%%%SNd%%%%%SP[%%%%%SRR%%%%%STI%%%%%SV@%%%%%SX7%%%%%SZ.%%%%% !S\%%%%%%S`;R%%%%SdR%%%%%ShhR%%%%Sn%%%%%%Sr;R%%%%SvR%%%%%SzhR%%%%T.R%%%%%T.zR%%%% !T0I%%%%%T0qR%%%%T2@%%%%%T2hR%%%%T47%%%%%T4_R%%%%T6.%%%%%T6VR%%%%T8%%%%%% #% [ 59] out.magf !W>8rHo1}R8SOoj=HQd{kyHpMQ8fy4.12P^OnY/5FQ:2=oE*PQDR`^FhzQLQ272f|QRRIl`MzQVkD+8Kg !QZNiZ36ZQ\_4N7\`Q^HfuFs.Q^j?o>qlQ^n'(Q5BQ^WeRb\RQ^++]_C,Q\En`FP@QZQnI`n.QXS312m6 !QVN:sffiQRE:JijZQNbOQrvnQL|FIIllQNbG1\FuQT&CLFocQZu(X;n@Qf/&}zU2QrQ`i)4cR.Yz>T%L !R0IzE'K:R2?d(?,'R49,lY2zR63bjK&%R8,u]h])R8|,jUbrR:jj,='~eTR>V*j'Eg !R>sO4(HAR@-T~'k'R>[EX8mQRQXT|,vE+QHsaN1cVQ>]nn<2NQ8-{12FCQ2*|03&5Ph{TX-R{P<9nuz9AOTG`87}% #% [ 59] out.phaf !S.e.Eo=TR~USXR]dRzdrGry[R~Y_Rf[vSBo1G5rzSFOdapSeSFHS\fmASF3hwcizSDu*p8MnSDZm1~AM !SD?r5Xr9SB~bM[=dSBcWw..ASBHg;KE9SB.J&uRNS@no(CwES@V9yRQVS@>zUI57S@)CaieDS>ooz^Vz !S>^wHs`IS>FzsFP7S>>sslzzS>EZ+F+iS>QEC}&mS>S`u2)RS>Ce,|;zS<{`M-2*S7%RkY_z-VRS-bxDy>_S/orZ`8mS3~WAcVSIC@IcF@SMbc31wDSgp:T+dN ifeffit-1.2.11d/examples/exp2feff/filter.chi0000644000175000017500000006614310771740461017666 0ustar segresegre# data from ifeffit #------------------------ # q chiq_mag chiq_pha 0.0000000 0.54314073E-01 1.0471705 0.50000000E-01 0.48551276E-01 1.2673441 0.10000000 0.42295529E-01 1.4897574 0.15000000 0.35572460E-01 1.7159321 0.20000000 0.28412865E-01 1.9491012 0.25000000 0.20857088E-01 2.1975602 0.30000000 0.12976861E-01 2.4907778 0.35000000 0.51171739E-02 3.0480991 0.40000000 0.50623683E-02 5.2941668 0.45000000 0.13492860E-01 5.8661958 0.50000000 0.22550066E-01 6.1610062 0.55000000 0.31864713E-01 6.4099085 0.60000000 0.41353036E-01 6.6432543 0.65000000 0.50960088E-01 6.8695167 0.70000000 0.60637256E-01 7.0919868 0.75000000 0.70337896E-01 7.3122130 0.80000000 0.80016252E-01 7.5310243 0.85000000 0.89627246E-01 7.7489088 0.90000000 0.99126564E-01 7.9661768 0.95000000 0.10847086 8.1830393 1.0000000 0.11761800 8.3996484 1.0500000 0.12652735 8.6161206 1.1000000 0.13516007 8.8325501 1.1500000 0.14347939 9.0490172 1.2000000 0.15145092 9.2655943 1.2500000 0.15904293 9.4823493 1.3000000 0.16622667 9.6993484 1.3500000 0.17297663 9.9166586 1.4000000 0.17927083 10.134349 1.4500000 0.18509116 10.352493 1.5000000 0.19042359 10.571167 1.5500000 0.19525854 10.790456 1.6000000 0.19959113 11.010451 1.6500000 0.20342153 11.231251 1.7000000 0.20675525 11.452964 1.7500000 0.20960354 11.675707 1.8000000 0.21198373 11.899607 1.8500000 0.21391963 12.124802 1.9000000 0.21544201 12.351439 1.9500000 0.21658905 12.579674 2.0000000 0.21740683 12.809668 2.0500000 0.21794990 13.041588 2.1000000 0.21828176 13.275599 2.1500000 0.21847539 13.511857 2.2000000 0.21861361 13.750504 2.2500000 0.21878935 13.991653 2.3000000 0.21910559 14.235378 2.3500000 0.21967501 14.481698 2.4000000 0.22061902 14.730559 2.4500000 0.22206632 14.981821 2.5000000 0.22415069 15.235248 2.5500000 0.22700816 15.490500 2.6000000 0.23077367 15.747135 2.6500000 0.23557736 16.004625 2.7000000 0.24154104 16.262379 2.7500000 0.24877505 16.519775 2.8000000 0.25737600 16.776196 2.8500000 0.26742557 17.031069 2.9000000 0.27899047 17.283895 2.9500000 0.29212344 17.534268 3.0000000 0.30686502 17.781890 3.0500000 0.32324574 18.026573 3.1000000 0.34128850 18.268226 3.1500000 0.36101070 18.506845 3.2000000 0.38242614 18.742499 3.2500000 0.40554645 18.975310 3.3000000 0.43038206 19.205440 3.3500000 0.45694287 19.433077 3.4000000 0.48523842 19.658421 3.4500000 0.51527792 19.881680 3.5000000 0.54706995 20.103061 3.5500000 0.58062209 20.322762 3.6000000 0.61594043 20.540975 3.6500000 0.65302902 20.757878 3.7000000 0.69188929 20.973639 3.7500000 0.73251950 21.188410 3.8000000 0.77491421 21.402332 3.8500000 0.81906379 21.615533 3.9000000 0.86495398 21.828127 3.9500000 0.91256547 22.040218 4.0000000 0.96187362 22.251899 4.0500000 1.0128481 22.463254 4.1000000 1.0654529 22.674354 4.1500000 1.1196459 22.885267 4.2000000 1.1753789 23.096049 4.2500000 1.2325975 23.306752 4.3000000 1.2912416 23.517421 4.3500000 1.3512445 23.728094 4.4000000 1.4125342 23.938807 4.4500000 1.4750325 24.149589 4.5000000 1.5386558 24.360467 4.5500000 1.6033154 24.571464 4.6000000 1.6689175 24.782598 4.6500000 1.7353634 24.993888 4.7000000 1.8025503 25.205348 4.7500000 1.8703715 25.416992 4.8000000 1.9387166 25.628829 4.8500000 2.0074721 25.840869 4.9000000 2.0765218 26.053122 4.9500000 2.1457473 26.265592 5.0000000 2.2150285 26.478287 5.0500000 2.2842440 26.691211 5.1000000 2.3532714 26.904368 5.1500000 2.4219885 27.117763 5.2000000 2.4902729 27.331399 5.2500000 2.5580030 27.545278 5.3000000 2.6250586 27.759402 5.3500000 2.6913211 27.973773 5.4000000 2.7566739 28.188394 5.4500000 2.8210034 28.403265 5.5000000 2.8841990 28.618388 5.5500000 2.9461534 28.833765 5.6000000 3.0067637 29.049396 5.6500000 3.0659311 29.265283 5.7000000 3.1235618 29.481425 5.7500000 3.1795669 29.697825 5.8000000 3.2338631 29.914483 5.8500000 3.2863728 30.131399 5.9000000 3.3370246 30.348575 5.9500000 3.3857532 30.566011 6.0000000 3.4324999 30.783708 6.0500000 3.4772127 31.001667 6.1000000 3.5198463 31.219887 6.1500000 3.5603625 31.438370 6.2000000 3.5987300 31.657115 6.2500000 3.6349246 31.876124 6.3000000 3.6689291 32.095396 6.3500000 3.7007334 32.314931 6.4000000 3.7303342 32.534729 6.4500000 3.7577352 32.754791 6.5000000 3.7829467 32.975115 6.5500000 3.8059855 33.195700 6.6000000 3.8268749 33.416547 6.6500000 3.8456439 33.637653 6.7000000 3.8623277 33.859018 6.7500000 3.8769668 34.080639 6.8000000 3.8896069 34.302514 6.8500000 3.9002985 34.524641 6.9000000 3.9090965 34.747017 6.9500000 3.9160600 34.969638 7.0000000 3.9212515 35.192500 7.0500000 3.9247368 35.415600 7.1000000 3.9265846 35.638932 7.1500000 3.9268655 35.862492 7.2000000 3.9256524 36.086273 7.2500000 3.9230193 36.310269 7.3000000 3.9190410 36.534472 7.3500000 3.9137930 36.758877 7.4000000 3.9073507 36.983474 7.4500000 3.8997889 37.208255 7.5000000 3.8911817 37.433212 7.5500000 3.8816019 37.658333 7.6000000 3.8711205 37.883610 7.6500000 3.8598065 38.109032 7.7000000 3.8477267 38.334589 7.7500000 3.8349448 38.560268 7.8000000 3.8215220 38.786058 7.8500000 3.8075159 39.011947 7.9000000 3.7929809 39.237924 7.9500000 3.7779676 39.463976 8.0000000 3.7625231 39.690091 8.0500000 3.7466903 39.916257 8.1000000 3.7305087 40.142461 8.1500000 3.7140133 40.368691 8.2000000 3.6972355 40.594936 8.2500000 3.6802029 40.821185 8.3000000 3.6629390 41.047425 8.3500000 3.6454638 41.273647 8.4000000 3.6277938 41.499840 8.4500000 3.6099418 41.725996 8.5000000 3.5919177 41.952104 8.5500000 3.5737282 42.178157 8.6000000 3.5553773 42.404147 8.6500000 3.5368662 42.630068 8.7000000 3.5181942 42.855915 8.7500000 3.4993581 43.081682 8.8000000 3.4803532 43.307366 8.8500000 3.4611730 43.532963 8.9000000 3.4418098 43.758472 8.9500000 3.4222549 43.983891 9.0000000 3.4024987 44.209221 9.0500000 3.3825311 44.434463 9.1000000 3.3623415 44.659617 9.1500000 3.3419193 44.884687 9.2000000 3.3212542 45.109675 9.2500000 3.3003357 45.334588 9.3000000 3.2791542 45.559429 9.3500000 3.2577005 45.784204 9.4000000 3.2359662 46.008921 9.4500000 3.2139439 46.233586 9.5000000 3.1916272 46.458207 9.5500000 3.1690109 46.682792 9.6000000 3.1460910 46.907351 9.6500000 3.1228648 47.131893 9.7000000 3.0993311 47.356427 9.7500000 3.0754901 47.580963 9.8000000 3.0513436 47.805512 9.8500000 3.0268947 48.030084 9.9000000 3.0021482 48.254690 9.9500000 2.9771103 48.479340 10.000000 2.9517890 48.704044 10.050000 2.9261936 48.928814 10.100000 2.9003348 49.153660 10.150000 2.8742250 49.378591 10.200000 2.8478776 49.603618 10.250000 2.8213076 49.828750 10.300000 2.7945312 50.053997 10.350000 2.7675657 50.279368 10.400000 2.7404293 50.504870 10.450000 2.7131413 50.730511 10.500000 2.6857218 50.956299 10.550000 2.6581916 51.182241 10.600000 2.6305721 51.408341 10.650000 2.6028851 51.634606 10.700000 2.5751528 51.861039 10.750000 2.5473975 52.087643 10.800000 2.5196414 52.314423 10.850000 2.4919067 52.541379 10.900000 2.4642155 52.768513 10.950000 2.4365892 52.995824 11.000000 2.4090486 53.223311 11.050000 2.3816142 53.450974 11.100000 2.3543051 53.678808 11.150000 2.3271400 53.906811 11.200000 2.3001361 54.134978 11.250000 2.2733097 54.363304 11.300000 2.2466754 54.591782 11.350000 2.2202470 54.820406 11.400000 2.1940364 55.049168 11.450000 2.1680542 55.278059 11.500000 2.1423095 55.507071 11.550000 2.1168096 55.736194 11.600000 2.0915605 55.965418 11.650000 2.0665667 56.194734 11.700000 2.0418308 56.424130 11.750000 2.0173542 56.653596 11.800000 1.9931369 56.883120 11.850000 1.9691774 57.112693 11.900000 1.9454731 57.342303 11.950000 1.9220202 57.571940 12.000000 1.8988136 57.801594 12.050000 1.8758478 58.031255 12.100000 1.8531159 58.260913 12.150000 1.8306109 58.490560 12.200000 1.8083250 58.720188 12.250000 1.7862499 58.949789 12.300000 1.7643773 59.179357 12.350000 1.7426988 59.408886 12.400000 1.7212058 59.638371 12.450000 1.6998902 59.867809 12.500000 1.6787439 60.097196 12.550000 1.6577593 60.326531 12.600000 1.6369294 60.555813 12.650000 1.6162476 60.785042 12.700000 1.5957082 61.014220 12.750000 1.5753062 61.243349 12.800000 1.5550372 61.472432 12.850000 1.5348980 61.701474 12.900000 1.5148860 61.930481 12.950000 1.4949998 62.159458 13.000000 1.4752386 62.388414 13.050000 1.4556028 62.617355 13.100000 1.4360935 62.846293 13.150000 1.4167128 63.075235 13.200000 1.3974638 63.304194 13.250000 1.3783500 63.533180 13.300000 1.3593761 63.762204 13.350000 1.3405473 63.991280 13.400000 1.3218693 64.220419 13.450000 1.3033487 64.449636 13.500000 1.2849923 64.678942 13.550000 1.2668074 64.908352 13.600000 1.2488018 65.137878 13.650000 1.2309833 65.367535 13.700000 1.2133599 65.597335 13.750000 1.1959399 65.827292 13.800000 1.1787314 66.057418 13.850000 1.1617423 66.287726 13.900000 1.1449804 66.518227 13.950000 1.1284534 66.748931 14.000000 1.1121682 66.979851 14.050000 1.0961318 67.210995 14.100000 1.0803501 67.442371 14.150000 1.0648289 67.673988 14.200000 1.0495729 67.905852 14.250000 1.0345863 68.137969 14.300000 1.0198725 68.370343 14.350000 1.0054338 68.602978 14.400000 0.99127171 68.835875 14.450000 0.97738690 69.069036 14.500000 0.96377887 69.302460 14.550000 0.95044617 69.536146 14.600000 0.93738628 69.770092 14.650000 0.92459566 70.004294 14.700000 0.91206971 70.238747 14.750000 0.89980280 70.473445 14.800000 0.88778831 70.708383 14.850000 0.87601863 70.943553 14.900000 0.86448526 71.178948 14.950000 0.85317879 71.414559 15.000000 0.84208906 71.650377 15.050000 0.83120516 71.886394 15.100000 0.82051555 72.122600 15.150000 0.81000814 72.358986 15.200000 0.79967043 72.595544 15.250000 0.78948954 72.832263 15.300000 0.77945239 73.069136 15.350000 0.76954576 73.306154 15.400000 0.75975644 73.543310 15.450000 0.75007134 73.780597 15.500000 0.74047755 74.018006 15.550000 0.73096252 74.255534 15.600000 0.72151410 74.493174 15.650000 0.71212070 74.730921 15.700000 0.70277129 74.968772 15.750000 0.69345556 75.206724 15.800000 0.68416396 75.444772 15.850000 0.67488774 75.682915 15.900000 0.66561904 75.921152 15.950000 0.65635088 76.159480 16.000000 0.64707722 76.397899 16.050000 0.63779295 76.636408 16.100000 0.62849390 76.875005 16.150000 0.61917683 77.113691 16.200000 0.60983937 77.352464 16.250000 0.60048006 77.591323 16.300000 0.59109822 77.830267 16.350000 0.58169395 78.069294 16.400000 0.57226802 78.308400 16.450000 0.56282184 78.547583 16.500000 0.55335736 78.786838 16.550000 0.54387698 79.026160 16.600000 0.53438347 79.265543 16.650000 0.52487986 79.504978 16.700000 0.51536938 79.744458 16.750000 0.50585535 79.983972 16.800000 0.49634109 80.223508 16.850000 0.48682983 80.463053 16.900000 0.47732464 80.702593 16.950000 0.46782837 80.942111 17.000000 0.45834357 81.181589 17.050000 0.44887242 81.421010 17.100000 0.43941674 81.660350 17.150000 0.42997791 81.899590 17.200000 0.42055686 82.138705 17.250000 0.41115410 82.377671 17.300000 0.40176969 82.616463 17.350000 0.39240327 82.855053 17.400000 0.38305409 83.093414 17.450000 0.37372110 83.331517 17.500000 0.36440292 83.569334 17.550000 0.35509800 83.806836 17.600000 0.34580463 84.043992 17.650000 0.33652104 84.280772 17.700000 0.32724550 84.517147 17.750000 0.31797642 84.753086 17.800000 0.30871238 84.988558 17.850000 0.29945230 85.223533 17.900000 0.29019550 85.457981 17.950000 0.28094176 85.691871 18.000000 0.27169144 85.925174 18.050000 0.26244554 86.157857 18.100000 0.25320576 86.389890 18.150000 0.24397456 86.621241 18.200000 0.23475522 86.851877 18.250000 0.22555186 87.081764 18.300000 0.21636947 87.310866 18.350000 0.20721395 87.539145 18.400000 0.19809208 87.766559 18.450000 0.18901151 87.993065 18.500000 0.17998078 88.218612 18.550000 0.17100927 88.443144 18.600000 0.16210717 88.666598 18.650000 0.15328543 88.888902 18.700000 0.14455572 89.109970 18.750000 0.13593039 89.329704 18.800000 0.12742241 89.547985 18.850000 0.11904531 89.764672 18.900000 0.11081316 89.979592 18.950000 0.10274053 90.192533 19.000000 0.94842479E-01 90.403233 19.050000 0.87134602E-01 90.611361 19.100000 0.79633086E-01 90.816494 19.150000 0.72354873E-01 91.018088 19.200000 0.65317940E-01 91.215428 19.250000 0.58541760E-01 91.407557 19.300000 0.52048071E-01 91.593181 19.350000 0.45862135E-01 91.770508 19.400000 0.40014807E-01 91.937019 19.450000 0.34545963E-01 92.089126 19.500000 0.29510125E-01 92.221694 19.550000 0.24985395E-01 92.327517 19.600000 0.21085931E-01 92.397234 19.650000 0.17972656E-01 92.421316 19.700000 0.15839513E-01 92.397234 19.750000 0.14833441E-01 92.341187 19.800000 0.14922400E-01 92.288723 19.850000 0.15861331E-01 92.272312 19.900000 0.17322215E-01 92.303075 19.950000 0.19027285E-01 92.375905 20.000000 0.20786746E-01 92.480891 20.050000 0.22482220E-01 92.609059 20.100000 0.24042358E-01 92.753659 20.150000 0.25425003E-01 92.909890 20.200000 0.26606156E-01 93.074367 20.250000 0.27573439E-01 93.244672 20.300000 0.28322225E-01 93.419039 20.350000 0.28853290E-01 93.596136 20.400000 0.29171360E-01 93.774927 20.450000 0.29284172E-01 93.954571 20.500000 0.29201858E-01 94.134359 20.550000 0.28936529E-01 94.313662 20.600000 0.28501985E-01 94.491899 20.650000 0.27913523E-01 94.668508 20.700000 0.27187799E-01 94.842924 20.750000 0.26342754E-01 95.014559 20.800000 0.25397569E-01 95.182789 20.850000 0.24372666E-01 95.346940 20.900000 0.23289731E-01 95.506281 20.950000 0.22171748E-01 95.660028 21.000000 0.21043017E-01 95.807353 21.050000 0.19929113E-01 95.947429 21.100000 0.18856693E-01 96.079491 21.150000 0.17853044E-01 96.202951 21.200000 0.16945212E-01 96.317558 21.250000 0.16158570E-01 96.423584 21.300000 0.15514781E-01 96.522000 21.350000 0.15029359E-01 96.614570 21.400000 0.14709342E-01 96.703762 21.450000 0.14551832E-01 96.792463 21.500000 0.14544042E-01 96.883538 21.550000 0.14664968E-01 96.979413 21.600000 0.14888195E-01 97.081786 21.650000 0.15184984E-01 97.191564 21.700000 0.15526917E-01 97.308951 21.750000 0.15887753E-01 97.433632 21.800000 0.16244461E-01 97.564961 21.850000 0.16577645E-01 97.702113 21.900000 0.16871555E-01 97.844197 21.950000 0.17113891E-01 97.990318 22.000000 0.17295517E-01 98.139616 22.050000 0.17410154E-01 98.291276 22.100000 0.17454103E-01 98.444537 22.150000 0.17425993E-01 98.598678 22.200000 0.17326580E-01 98.753017 22.250000 0.17158573E-01 98.906895 22.300000 0.16926502E-01 99.059676 22.350000 0.16636604E-01 99.210730 22.400000 0.16296723E-01 99.359442 22.450000 0.15916224E-01 99.505204 22.500000 0.15505890E-01 99.647435 22.550000 0.15077786E-01 99.785592 22.600000 0.14645073E-01 99.919209 22.650000 0.14221722E-01 100.04794 22.700000 0.13822101E-01 100.17161 22.750000 0.13460399E-01 100.29031 22.800000 0.13149879E-01 100.40441 22.850000 0.12901988E-01 100.51464 22.900000 0.12725428E-01 100.62206 22.950000 0.12625325E-01 100.72802 23.000000 0.12602687E-01 100.83399 23.050000 0.12654285E-01 100.94148 23.100000 0.12772999E-01 101.05182 23.150000 0.12948544E-01 101.16607 23.200000 0.13168431E-01 101.28495 23.250000 0.13418965E-01 101.40886 23.300000 0.13686138E-01 101.53787 23.350000 0.13956336E-01 101.67182 23.400000 0.14216843E-01 101.81040 23.450000 0.14456171E-01 101.95316 23.500000 0.14664240E-01 102.09960 23.550000 0.14832466E-01 102.24917 23.600000 0.14953785E-01 102.40131 23.650000 0.15022641E-01 102.55547 23.700000 0.15034956E-01 102.71109 23.750000 0.14988101E-01 102.86762 23.800000 0.14880861E-01 103.02450 23.850000 0.14713419E-01 103.18116 23.900000 0.14487343E-01 103.33702 23.950000 0.14205596E-01 103.49145 24.000000 0.13872554E-01 103.64382 24.050000 0.13494050E-01 103.79341 24.100000 0.13077431E-01 103.93947 24.150000 0.12631625E-01 104.08120 24.200000 0.12167214E-01 104.21775 24.250000 0.11696480E-01 104.34828 24.300000 0.11233385E-01 104.47198 24.350000 0.10793417E-01 104.58820 24.400000 0.10393198E-01 104.69658 24.450000 0.10049742E-01 104.79722 24.500000 0.97792909E-02 104.89086 24.550000 0.95957461E-02 104.97903 24.600000 0.95089365E-02 105.06395 24.650000 0.95231475E-02 105.14836 24.700000 0.96363936E-02 105.23510 24.750000 0.98407076E-02 105.32670 24.800000 0.10123341E-01 105.42505 24.850000 0.10468454E-01 105.53130 24.900000 0.10858811E-01 105.64585 24.950000 0.11277151E-01 105.76858 25.000000 0.11707106E-01 105.89897 25.050000 0.12133728E-01 106.03631 25.100000 0.12543713E-01 106.17979 25.150000 0.12925450E-01 106.32859 25.200000 0.13268967E-01 106.48193 25.250000 0.13565838E-01 106.63907 25.300000 0.13809081E-01 106.79933 25.350000 0.13993061E-01 106.96209 25.400000 0.14113406E-01 107.12676 25.450000 0.14166944E-01 107.29280 25.500000 0.14151656E-01 107.45970 25.550000 0.14066637E-01 107.62694 25.600000 0.13912082E-01 107.79401 25.650000 0.13689284E-01 107.96037 25.700000 0.13400650E-01 108.12545 25.750000 0.13049735E-01 108.28863 25.800000 0.12641307E-01 108.44920 25.850000 0.12181439E-01 108.60636 25.900000 0.11677645E-01 108.75919 25.950000 0.11139061E-01 108.90659 26.000000 0.10576693E-01 109.04732 26.050000 0.10003705E-01 109.17994 26.100000 0.94357486E-02 109.30290 26.150000 0.88912266E-02 109.41459 26.200000 0.83913352E-02 109.51365 26.250000 0.79595504E-02 109.59935 26.300000 0.76201371E-02 109.67219 26.350000 0.73953469E-02 109.73444 26.400000 0.73015430E-02 109.79037 26.450000 0.73454614E-02 109.84567 26.500000 0.75224029E-02 109.90622 26.550000 0.78174014E-02 109.97675 26.600000 0.82086961E-02 110.06006 26.650000 0.86717482E-02 110.15707 26.700000 0.91823657E-02 110.26730 26.750000 0.97184850E-02 110.38952 26.800000 0.10260859E-01 110.52219 26.850000 0.10793095E-01 110.66372 26.900000 0.11301398E-01 110.81267 26.950000 0.11774229E-01 110.96775 27.000000 0.12201980E-01 111.12786 27.050000 0.12576703E-01 111.29207 27.100000 0.12891897E-01 111.45957 27.150000 0.13142340E-01 111.62967 27.200000 0.13323978E-01 111.80176 27.250000 0.13433830E-01 111.97530 27.300000 0.13469932E-01 112.14979 27.350000 0.13431297E-01 112.32475 27.400000 0.13317886E-01 112.49973 27.450000 0.13130603E-01 112.67424 27.500000 0.12871299E-01 112.84777 27.550000 0.12542792E-01 113.01979 27.600000 0.12148915E-01 113.18965 27.650000 0.11694583E-01 113.35662 27.700000 0.11185909E-01 113.51984 27.750000 0.10630368E-01 113.67822 27.800000 0.10037042E-01 113.83048 27.850000 0.94169722E-02 113.97497 27.900000 0.87836445E-02 114.10972 27.950000 0.81536341E-02 114.23233 28.000000 0.75473606E-02 114.34007 28.050000 0.69897604E-02 114.43020 28.100000 0.65103379E-02 114.50067 28.150000 0.61415683E-02 114.55137 28.200000 0.59144216E-02 114.58576 28.250000 0.58509660E-02 114.61154 28.300000 0.59570362E-02 114.63919 28.350000 0.62199116E-02 114.67860 28.400000 0.66128852E-02 114.73612 28.450000 0.71032113E-02 114.81391 28.500000 0.76586992E-02 114.91107 28.550000 0.82510995E-02 115.02520 28.600000 0.88569711E-02 115.15352 28.650000 0.94572975E-02 115.29341 28.700000 0.10036718E-01 115.44262 28.750000 0.10582777E-01 115.59928 28.800000 0.11085310E-01 115.76191 28.850000 0.11535998E-01 115.92930 28.900000 0.11928034E-01 116.10046 28.950000 0.12255904E-01 116.27460 29.000000 0.12515222E-01 116.45105 29.050000 0.12702624E-01 116.62923 29.100000 0.12815697E-01 116.80864 29.150000 0.12852920E-01 116.98883 29.200000 0.12813640E-01 117.16936 29.250000 0.12698050E-01 117.34982 29.300000 0.12507179E-01 117.52976 29.350000 0.12242904E-01 117.70872 29.400000 0.11907963E-01 117.88620 29.450000 0.11505994E-01 118.06158 29.500000 0.11041602E-01 118.23416 29.550000 0.10520454E-01 118.40307 29.600000 0.99494429E-02 118.56722 29.650000 0.93369280E-02 118.72523 29.700000 0.86931092E-02 118.87528 29.750000 0.80305888E-02 119.01506 29.800000 0.73652015E-02 119.14156 29.850000 0.67171700E-02 119.25103 29.900000 0.61125244E-02 119.33910 29.950000 0.55842850E-02 119.40162 30.000000 0.51719293E-02 119.43654 ifeffit-1.2.11d/examples/exp2feff/Comp.iff0000644000175000017500000000066510771740461017275 0ustar segresegre# # Compares result from Fourier Filter with Path from exp2feff # Read chi(k) data read_data (file = ../data/cu50k.chi, group=cu, type=chi) # Fourier filter fftf(cu.chi, kmin = 1.5, kmax = 18.5, dk = 1.0, kweight = 2) fftr(real=cu.chir_re, imag=cu.chir_im, rmin = 1.3, rmax = 3.0) newplot cu.q, cu.chiq_im, color=blue path(1, file=feff_exp.dat, degen=12, s02=1.0) ff2chi(1, group=fexp) plot fexp.k, fexp.chi*fexp.k^2 , color=red ifeffit-1.2.11d/examples/FFT/0000755000175000017500000000000010771740460014613 5ustar segresegreifeffit-1.2.11d/examples/FFT/windows.iff0000644000175000017500000001272110771740460016776 0ustar segresegre# # plot some typical window functions # as in Reference Manual read_data(../data/cu150k.chi , group=dat, type=chi) macro make_hardcopy f x plot(file = $1, device=$2) end macro macro kaiser window(dat.k, kmin=2,kmax=17,dk=3.0,kwindow='kaiser') newplot(dat.k, dat.win,xlabel="k (\A\u-1\d)",xmax=20,ymin=0,ymax=1.10, title= "window(kmin=2,kmax=17,kwindow='kaiser')",color=black) window(dat.k, kmin=2,kmax=17,dk=6.0,kwindow='kaiser') plot(dat.k, dat.win,color=black,style=solid) plot_text (x=13,y=0.88, text='dk=3.0') plot_text (x=13,y=0.34, text='dk=6.0') make_hardcopy kaiser01.ps '/cps' end macro macro msine window(dat.k, kmin=2, kmax=17, dk=1,kwindow='sine') newplot(dat.k, dat.win,xlabel="k (\A\u-1\d)",xmax=20,ymin=0,ymax=1.10, title= "window(kmin=2,kmax=17,dk=2,kwindow='sine')",color=black) my.y = range(0,1,0.1) my.x = ones(npts(my.y))*kmin my.x = ones(npts(my.y))*(kmin-dk1) plot(my.x ,my.y, color=black,style=dashed) plot_text (x=kmin-dk1+0.2,y=0.70, text='kmin-dk=1.0') my.x = ones(npts(my.y))*(kmax+dk1) plot(my.x ,my.y, color=black,style=dashed) plot_text (x=kmax+dk1-4,y=0.70, text='kmax+dk=18.0') make_hardcopy sine01.ps '/cps' end macro macro mgauss window(dat.k, dk1=3.0,dk2=10.5,kwindow='gauss') newplot(dat.k, dat.win,xlabel="k (\A\u-1\d)",xmax=20,ymin=0,ymax=1.10, title= "window(dk1=3.00,dk2=10.5,kwindow='gauss')",color=black) my.y = range(0,1,0.1) my.x = ones(npts(my.y))*dk2 plot(my.x ,my.y/2, color=black,style=dashed) plot_text (x=dk2+0.25,y=0.25, text='dk2=10.5') plot_text (x=11.5,y=1.02, text='\gW(k)=exp[-(k-dk2)\u2\d/(2dk1\u2\d)]') set qfac = sqrt(2*log(2))*dk1 set q.x = range(-qfac,qfac,0.04)+dk2 set q.y = 0.5*ones(npts(q.x)) plot(q.x,q.y,color=black,style=dashed) qmax = qfac+dk2 qmin = dk2-qfac plot_arrow(x1=qmax-0.2,y1=0.5,x2=qmax,y2=0.5,angle=30,barb=0,size=1.5) plot_arrow(x1=qmin+0.2,y1=0.5,x2=qmin,y2=0.5,angle=30,barb=0,size=1.5) plot_text(x=qmin+1.,y=0.58, text='FWHM=2*sqrt(2*log(2))*dk1') make_hardcopy gauss01.ps '/cps' end macro macro welch window(dat.k, kmin=2, kmax=17,dk=2,kwindow='welch') newplot(dat.k, dat.win,xlabel="k (\A\u-1\d)",xmax=20,ymin=0,ymax=1.10, title= "window(kmin=2,kmax=17,dk=2.,kwindow='welch')",color=black) my.y = range(0,1,0.1) my.x = ones(npts(my.y))*kmin plot(my.x-dk1/2,my.y, color=black,style=dashed) plot(my.x ,my.y/2, color=black,style=dashed) plot(my.x+dk1/2,my.y, color=black,style=dashed) my.x = ones(npts(my.y))*kmax plot(my.x-dk2/2,my.y, color=black,style=dashed) plot(my.x ,my.y/2, color=black,style=dashed) plot(my.x+dk2/2,my.y, color=black,style=dashed) plot_arrow(x1=kmin,y1=0.98,x2=kmin-dk1/2,y2=0.98,angle=30,barb=0,size=1.5) plot_arrow(x1=kmin,y1=0.98,x2=kmin+dk1/2,y2=0.98,angle=30,barb=0,size=1.5) plot_arrow(x1=kmax,y1=0.98,x2=kmax-dk2/2,y2=0.98,angle=30,barb=0,size=1.5) plot_arrow(x1=kmax,y1=0.98,x2=kmax+dk2/2,y2=0.98,angle=30,barb=0,size=1.5) plot_text (x=2.2, y=0.52, text='kmin=2.0') plot_text (x=16.5,y=0.52, text='kmax=17.0') plot_text (x=kmin-dk1/2,y=1.02, text='dk1=2.0') plot_text (x=kmax-dk2/2,y=1.02, text='dk2=2.0') make_hardcopy welch01.ps '/cps' end macro macro parzen window(dat.k, kmin=2, kmax=17,dk=2,kwindow='parzen') newplot(dat.k, dat.win,xlabel="k (\A\u-1\d)",xmax=20,ymin=0,ymax=1.10, title= "window(kmin=2,kmax=17,dk=2.,kwindow='parzen')",color=black) my.y = range(0,1,0.1) my.x = ones(npts(my.y))*kmin plot(my.x-dk1/2,my.y, color=black,style=dashed) plot(my.x ,my.y/2, color=black,style=dashed) plot(my.x+dk1/2,my.y, color=black,style=dashed) my.x = ones(npts(my.y))*kmax plot(my.x-dk2/2,my.y, color=black,style=dashed) plot(my.x ,my.y/2, color=black,style=dashed) plot(my.x+dk2/2,my.y, color=black,style=dashed) plot_arrow(x1=kmin,y1=0.98,x2=kmin-dk1/2,y2=0.98,angle=30,barb=0,size=1.5) plot_arrow(x1=kmin,y1=0.98,x2=kmin+dk1/2,y2=0.98,angle=30,barb=0,size=1.5) plot_arrow(x1=kmax,y1=0.98,x2=kmax-dk2/2,y2=0.98,angle=30,barb=0,size=1.5) plot_arrow(x1=kmax,y1=0.98,x2=kmax+dk2/2,y2=0.98,angle=30,barb=0,size=1.5) plot_text (x=2.2, y=0.52, text='kmin=2.0') plot_text (x=16.5,y=0.52, text='kmax=17.0') plot_text (x=kmin-dk1/2,y=1.02, text='dk1=2.0') plot_text (x=kmax-dk2/2,y=1.02, text='dk2=2.0') make_hardcopy parzen01.ps '/cps' end macro macro hanning window(dat.k, kmin=2, kmax=17,dk=2,kwindow='hanning') newplot(dat.k, dat.win,xlabel="k (\A\u-1\d)",xmax=20,ymin=0,ymax=1.10, title= "window(kmin=2,kmax=17,dk=2,kwindow='hanning')",color=black) my.y = range(0,1,0.1) my.x = ones(npts(my.y))*kmin plot(my.x-dk1/2,my.y, color=black,style=dashed) plot(my.x ,my.y/2, color=black,style=dashed) plot(my.x+dk1/2,my.y, color=black,style=dashed) my.x = ones(npts(my.y))*kmax plot(my.x-dk2/2,my.y, color=black,style=dashed) plot(my.x ,my.y/2, color=black,style=dashed) plot(my.x+dk2/2,my.y, color=black,style=dashed) plot_arrow(x1=kmin,y1=0.98,x2=kmin-dk1/2,y2=0.98,angle=30,barb=0,size=1.5) plot_arrow(x1=kmin,y1=0.98,x2=kmin+dk1/2,y2=0.98,angle=30,barb=0,size=1.5) plot_arrow(x1=kmax,y1=0.98,x2=kmax-dk2/2,y2=0.98,angle=30,barb=0,size=1.5) plot_arrow(x1=kmax,y1=0.98,x2=kmax+dk2/2,y2=0.98,angle=30,barb=0,size=1.5) plot_text (x=2.2, y=0.52, text='kmin=2.0') plot_text (x=16.5,y=0.52, text='kmax=17.0') plot_text (x=kmin-dk1/2,y=1.02, text='dk1=2.0') plot_text (x=kmax-dk2/2,y=1.02, text='dk2=2.0') make_hardcopy hanning01.ps '/cps' end macro # hanning # pause # parzen # pause # welch # pause msine pause mgauss pause kaiser ifeffit-1.2.11d/examples/FFT/t_1.iff0000644000175000017500000000067610771740460015775 0ustar segresegre read_data(../data/cu150k.chi , group=a, type=chi) set b.chi = a.chi set a.chik = a.chi * a.k^2 fftf(a.chi, kweight=2, kmin=1, kmax=24, dk=2, kwindow='hanning',rmax_out=16) plot(a.r, a.chir_re, new=1) plot(a.r, a.chir_im) plot(a.r, a.chir_mag) fftr(real=a.chir_re, imag=a.chir_im, rmin=0, rmax=15, dr=0) pause plot( a.k, (a.chiq_re)*1, new=1) plot( a.k, a.chik+2) pause plot( a.k, (a.chik-a.chiq_re)*10, new=1) plot( a.k, a.chik) ifeffit-1.2.11d/examples/FFT/t2.iff0000644000175000017500000000051310771740460015625 0ustar segresegre read_data(../data/cu150k.chi , group=a, type=chi) set( b.chi = a.chi) set( kweight=2, kmin=2, kmax=18, dk=2 ) fftf(b.chi) fftf(a.chi, pc_edge='Cu k',pc_caps=1) # fftf(a.chi, k=a.k, pc_edge='Cu k',pc_caps=1) fftf(a.chi, pc_edge='Cu k',pc_caps=1) newplot(a.r, a.chir_re) plot(b.r, b.chir_re,color='black', key='no pc') ifeffit-1.2.11d/examples/FFT/test.c0000644000175000017500000000035110771740460015735 0ustar segresegre read_data(../data/cu150k.chi , group=a, type=chi) set b.chi = a.chi kweight=2, kmin=2, kmax=18, dk=2 fftf(a.chi) fftf(b.chi, pc_edge='Cu k') newplot(a.r, a.chir_mag, key="no pc") plot(b.r, b.chir_mag, key="with pc") ifeffit-1.2.11d/examples/FFT/fft_phase_corrections.iff0000644000175000017500000000137310771740460021656 0ustar segresegre# # example of phase-corrected FTs using phase-shifts # from FEFF calculations # read_data(../data/cu150k.chi , group=no_pc, type=chi) set caps.chi = no_pc.chi set full.chi = no_pc.chi kmin=2, kmax=18, dk=1,kweight=2 # no phase-correction fftf(no_pc.chi) # read path path(1, ../feff/feff0001.dat, label ='Path 1') # phase-shifted FT with central-atom phase-shift only fftf(caps.chi,pc_feff_path=1, pc_caps) # phase-shifted FT with full phase-shift fftf(full.chi,pc_feff_path=1) newplot(no_pc.r, no_pc.chir_mag, xmax=8, key='No Phase-Shift',key_x=0.7, title= 'Comparison of Phase-Corrected FTs using data from a FEFF path') plot(caps.r, caps.chir_mag, key='Central Atom Phase-Shift') plot(full.r, full.chir_mag, key='Full Phase-Shift') ifeffit-1.2.11d/examples/FFT/ft_pc.iff0000644000175000017500000000150110771740460016371 0ustar segresegre# # example of phase-corrected FTs using phase-shifts # from FEFF calculations # # read path # path(1, ../feff/feff0001.dat, label ='Path 1') read_data(../data/cu150k.chi , group=no_pc, type=chi) set pad.chi = no_pc.chi set caps.chi = no_pc.chi set full.chi = no_pc.chi kmin=2, kmax=18, dk=1,kweight=2 # no phase-correction fftf(no_pc.chi) # phase-shifted FT with central-atom phase-shift only # fftf(caps.chi,pc_feff_path=1,pc_caps) # fftf(full.chi,pc_feff_path=1) # pad fftf(pad.chi,pc_edge = 'cu k') newplot(no_pc.r, no_pc.chir_mag, xmax=8, key='No Phase-Shift',key_x=0.7, title= 'Comparison of Phase-Corrected FTs using data from a FEFF path') plot(pad.r, pad.chir_mag, key='Feff Table') # plot(caps.r, caps.chir_mag, key='CAPS Feff.dat') # plot(full.r, full.chir_mag, key='FULL Feff.dat') ifeffit-1.2.11d/examples/FFT/test.iff0000644000175000017500000000035510771740460016263 0ustar segresegre read_data(../data/cu150k.chi , group=a, type=chi) set( b.chi = a.chi) set( kweight=2, kmin=2, kmax=18, dk=2 ) fftf(a.chi) fftf(b.chi, pc_edge='Cu k') newplot(a.r, a.chir_mag, key="no pc") plot(b.r, b.chir_mag, key="with pc") ifeffit-1.2.11d/examples/FFT/test.py0000644000175000017500000000035110771740460016143 0ustar segresegre read_data(../data/cu150k.chi , group=a, type=chi) set b.chi = a.chi kweight=2, kmin=2, kmax=18, dk=2 fftf(a.chi) fftf(b.chi, pc_edge='Cu k') newplot(a.r, a.chir_mag, key="no pc") plot(b.r, b.chir_mag, key="with pc") ifeffit-1.2.11d/examples/FFT/test2.iff0000644000175000017500000000077210771740460016350 0ustar segresegre read_data(file="../data/cu_150k.xmu", group=a) read_data(file="../data/cu_150k.xmu", group=b) spline(a.energy, a.xmu) fftf(a.chi, kweight=1, kmin=2, kmax=25.019, dk=2, kwindow=kaiser-bessel) spline(b.energy, b.xmu) fftf(b.chi, kweight=1, kmin=2, kmax=25.019, dk=2, kwindow=kaiser-bessel, pc_caps=1, pc_edge="cu k") newplot(a.r, a.chir_mag, xmin=0,xmax=6, style=lines, key="no pc") plot(b.r, b.chir_mag, style=lines, key=cu010k_1, key="with pc") ifeffit-1.2.11d/examples/FFT/w.iff0000644000175000017500000000064210771740460015551 0ustar segresegreread_data(../data/cu150k.chi , group=a, type=chi) set( b.chi = a.chi) set( kweight=2, kmin=2, kmax=18, dk=2 ) window(a.k) show @arrays newplot(a.k, a.chi) plot(a.k, a.win) set m.x1 = range(1.2,8.5,0.25) set m.x2 = range(8.6,12.5,0.05) set m.x3 = range(12.6,18.50,0.1) set m.k = join(join(m.x1,m.x2),m.x3) window(m.k) show @arrays pause newplot a.k, a.win, style=points1 plot m.k, m.win, style=points2 ifeffit-1.2.11d/examples/Feffit/0000755000175000017500000000000011012372142015362 5ustar segresegreifeffit-1.2.11d/examples/Feffit/Fit_ksp.iff0000644000175000017500000000223010771740461017462 0ustar segresegre read_data(../data/cu_chi.dat, group = data, type=chi) guess s02 = 1. guess e0 = 1. guess ss2 = 0.002 guess dr = 0.001 path(index = 1, feff = ../feff/feffcu01.dat, s02 = s02, sigma2 = ss2, delr = dr, e0 = e0 ) kmin = 2, kmax=25., kweight=2 dk1 = 1, dk2=1 rmin = 1.5, rmax =4.4 feffit(chi = data.chi, k=data.k,group = fit, 1, fit_space=k) show @variables print 'fit took ', &fit_iteration, ' iterations' set data.chik = data.chi* data.k^kweight * data.win set fit.chik = fit.chi* fit.k^kweight * data.win newplot( data.k, data.chik) plot( fit.k, fit.chik) # test r-factor and chi-square calculations set fit.resid = data.chik-fit.chik set fitfun.k = range(kmin,kmax,0.025)-2*0.025 nkmin = nofx(data.k,kmin) nkmax = nofx(data.k,kmax) set my.dat = slice(data.chik, nkmin,nkmax) set my.fit = slice( fit.chik, nkmin,nkmax) set my.resid = (my.dat - my.fit) set my_varia = vsum(my.resid**2) set my_data2 = vsum(my.dat**2) set my_chi2 = my_varia / (epsilon_k*epsilon_k) set my_rfact = my_varia / my_data2 show epsilon_k, my_varia, my_data2, my_chi2, my_rfact, chi_square, r_factor show my_varia, my_data2 ifeffit-1.2.11d/examples/Feffit/A.iff0000644000175000017500000000044110771740461016245 0ustar segresegre macro m1 echo " m1 start" echo " First arg: " , $1 echo " m1 done " end macro macro m2 echo " m2 start" echo " A is " , $1 echo " B is " , $2 m1 $1 echo " m2 done " end macro macro m3 echo " m3 start" m2 A B echo " m3 done " end macro ifeffit-1.2.11d/examples/Feffit/Multi-kweight_bkg.iff0000644000175000017500000000073710771740461021452 0ustar segresegreread_data (file=../data/cu10k.chi, group=a,label='k chi') guess(a=0.9, e=0, d=0, s=0) path(1, feff=../feff/feff0001.dat, s02=a, e0=e, delr=d, sigma2=s) feffit(1, chi=a.chi, k=a.k, kmin = 2, kmax=18, dk=5, kwindow='kaiser', rmin = 1, rmax=3, do_bkg=true, kweight=2, kweight=4, kweight=1, group=b) newplot a.r, a.chir_mag plot b.r, b.chir_mag set correl_min =0.5 show @correlations show @variables show chi_square,r_factor,n_idp, n_varys, epsilon_k ifeffit-1.2.11d/examples/Feffit/Cu3t_bkg.iff0000644000175000017500000000304710771740461017533 0ustar segresegre# # # simultaneous fit to 1st shell XAFS for Cu at 10K, 50K, and 150K # using einstein model for sigma^2 # guess s02 = 0.93 guess theta = 240 guess e0 = 3.5 guess alpha = 0.0 guess a_t = 0.00 set rmin = 1.60 set rmax = 2.75 set kmin = 1.5 set kmax = 18.5 set dk = 1.0 set kweight = 2 read_data(file = ../data/cu10k.chi, group=dat_10, type=chi) read_data(file = ../data/cu50k.chi, group=dat_50, type=chi) read_data(file = ../data/cu150k.chi, group=dat_150, type=chi) path(index = 101, feff = ../feff/feffcu01.dat, label = "Cu metal first shell, for 10K", s02 = s02, sigma2 = eins(10, theta), delr = reff * (alpha + 10.0 * a_t) , e0 = e0 ) path(index = 201, feff = ../feff/feffcu01.dat, label = "Cu metal first shell, for 50K", s02 = s02, sigma2 = eins(50, theta), delr = reff * (alpha + 50.0 * a_t) , e0 = e0 ) path(index = 301, feff = ../feff/feffcu01.dat, label = "Cu metal first shell, for 150K", s02 = s02, sigma2 = eins(150, theta), delr = reff * (alpha + 150.0 * a_t) , e0 = e0 ) feffit(chi = dat_10.chi, k=dat_10.k, group = fit_10, 101, data_set=1, data_total=3, do_bkg=true) feffit(chi = dat_50.chi, k=dat_50.k, group = fit_50, 201, data_set=2, data_total=3, do_bkg=true) feffit(chi = dat_150.chi, k=dat_150.k,group = fit_150, 301, data_set=3, data_total=3, do_bkg=true) show @variables, r_factor, chi_square # ifeffit-1.2.11d/examples/Feffit/Fit_restrain.iff0000644000175000017500000000221410771740461020516 0ustar segresegre log(my_feffit.log, screen_echo = 3) macro plot_path 1 "color=black" ff2chi($1, group=p$1) fftf(real = p$1.chi) plot( p$1.r, -p$1.chir_mag, $2) end macro macro plot_fit newplot( data.r, data.chir_mag,xmin=0.,xmax=7) ff2chi(1-6, group=fit) fftf(real = fit.chi) plot(fit.r, fit.chir_mag) # plot(fit.r, abs(data.chir_mag-fit.chir_mag),xmax=6) end macro macro show_fit feffit(chi = data.chi, k=data.k,group = fit, 1, restraint = restr, do_bkg=false) print 'fit took ', &fit_iteration, ' iterations' show s02, e0, dr, rf, rc, restr, chi_square, r_factor, n_idp end macro read_data(../data/cu_chi.dat, group = data, type=chi) guess s02 = 1. guess e0 = 1. guess ss2 = 0.002 guess dr = 0.001 path(index = 1, feff = ../feff/feffcu01.dat, label = "Cu metal first neighbor", s02 = s02, sigma2 = ss2, delr = dr, e0 = e0) kmin = 2, kmax=18, kweight=2, dk1 = 1, dk2=1 rmin = 1.5, rmax =3.4 rmax_out = 10 ff2chi(1, group=init) fftf(real = data.chi) rf = 2.55+ dr dx = 1.d-5 rc = 2.53 restr = (rc - rf)/dx rc = 2.52 show_fit ## rc = 2.55 show_fit ## rc = 2.58 show_fit ifeffit-1.2.11d/examples/Feffit/F1_so2.iff0000644000175000017500000000221010771740461017112 0ustar segresegre# &print_level = 10 macro plot_path 1 "color=black" ff2chi($1, group=p$1) fftf(real = p$1.chi) plot( p$1.r, -p$1.chir_mag, $2) end macro macro plot_fit newplot( data.r, data.chir_mag,xmin=0.,xmax=7) ff2chi(1-6, group=fit) fftf(real = fit.chi) plot(fit.r, fit.chir_mag) # plot(fit.r, abs(data.chir_mag-fit.chir_mag),xmax=6) end macro read_data(../data/cu_chi.dat, group = data, type=chi) guess S02 = 0.1 guess e0 = 1. guess ss2 = 0.002 guess dr = 0.001 path(index = 1, feff = ../feff/feffcu01.dat, label = "Cu metal first neighbor", S02 = S02, sigma2 = ss2, delr = dr, e0 = e0 ) kmin = 2, kmax=17, kweight=2, dk1 = 1, dk2=1 rmin = 1.5, rmax =2.9 rmax_out = 10 fftf(real = data.chi,k=data.k) feffit(chi = data.chi, k=data.k,group = fit, 1) show @variables, chi_square, r_factor newplot(data.r, data.chir_mag, color = blue, style=solid, xmax = 6) plot( fit.r, fit.chir_mag, color = red, style = dashed) pause plot_path "1" "color=black" plot_path "2" "color=blue" plot_path "4" "color=blue" plot_path "5" "color=red" print 'fit took ', &fit_iteration, ' iterations' ifeffit-1.2.11d/examples/Feffit/t2.iff0000644000175000017500000000012110771740461016405 0ustar segresegre my.f = range(0,10,0.1) my.g = sin(my.f) macro mm echo ' macro mm' end macro ifeffit-1.2.11d/examples/Feffit/F12.iff0000644000175000017500000000507110771740461016421 0ustar segresegre macro plot_path 1 "color=black" ff2chi($1, group=p$1) fftf(real = p$1.chi) plot( p$1.r, -p$1.chir_mag, $2) end macro macro plot_fit newplot( data.r, data.chir_mag,xmin=0.,xmax=7) ff2chi(1-6, group=fit) fftf(real = fit.chi) plot(fit.r, fit.chir_mag) # plot(fit.r, abs(data.chir_mag-fit.chir_mag),xmax=6) end macro read_data(../data/cu_chi.dat, group = data, type=chi) guess s02 = 1. guess e0 = 1. guess e0_1 = 1. guess ss2 = 0.002 guess ss2_2 = 0.002 guess ss2_3 = 0.001 guess ss2_4 = 0.001 guess ss2_5 = 0.001 guess ss2_6 = 0.001 guess dr = 0.001 guess dr_2 = 0.001 guess dr_3 = 0.001 guess dr_4 = 0.001 guess dr_5 = 0.001 guess dr_6 = 0.001 path(index = 1, feff = ../feff/feffcu01.dat, label = "Cu metal first neighbor", s02 = s02, sigma2 = ss2, delr = dr, e0 = e0_1 ) path(2, ../feff/feffcu02.dat, s02 = s02, e0 = e0, sigma2 = ss2_2, delr=dr_2) path(3, ../feff/feffcu03.dat, s02 = s02, e0 = e0, sigma2 = ss2_3, delr=dr_3) path(4, ../feff/feff0004.dat, s02 = s02, e0 = e0, sigma2 = ss2_4, delr=dr_4) path(5, ../feff/feff0005.dat, s02 = s02, e0 = e0, sigma2 = ss2_5, delr=dr_5) path(6, ../feff/feff0006.dat, s02 = s02, e0 = e0, sigma2 = ss2_6, delr=dr_6) path(7, ../feff/feff0007.dat, s02 = s02, e0 = e0, sigma2 = ss2_5, delr=dr_5) path(8, ../feff/feff0008.dat, s02 = s02, e0 = e0, sigma2 = ss2_5, delr=dr_5) path(9, ../feff/feff0009.dat, s02 = s02, e0 = e0, sigma2 = ss2_5, delr=dr_5) path(10, ../feff/feff0010.dat, s02 = s02, e0 = e0, sigma2 = ss2_5, delr=dr_5) path(11, ../feff/feff0011.dat, s02 = s02, e0 = e0, sigma2 = ss2_5, delr=dr_5) path(12, ../feff/feff0012.dat, s02 = s02, e0 = e0, sigma2 = ss2_5, delr=dr_5) path(13, ../feff/feff0013.dat, s02 = s02, e0 = e0, sigma2 = ss2_5, delr=dr_5) kmin = 2, kmax=17, kweight=2, dk1 = 1, dk2=1 rmin = 1.5, rmax =4.4 rmax_out = 10 ff2chi(1-13, group=init) fftf(real = data.chi) feffit(chi = data.chi, k=data.k,group = fit, 1-13, macro = plot_fit) show @variables, chi_square, r_factor fftf(real = init.chi) fftf(real = fit.chi) # newplot(data.r, data.chir_mag, color = blue, style=solid, xmax = 6) # plot( fit.r, fit.chir_mag, color = red, style = dashed) # plot_path "1" "color=black" # plot_path "2" "color=blue" # plot_path "4" "color=blue" # plot_path "5" "color=red" print 'fit took ', &fit_iteration, ' iterations' log(close) ifeffit-1.2.11d/examples/Feffit/F1_ei.iff0000644000175000017500000000225210771740461017012 0ustar segresegre# &print_level = 10 macro plot_path 1 "color=black" ff2chi($1, group=p$1) fftf(real = p$1.chi) plot( p$1.r, -p$1.chir_mag, $2) end macro macro plot_fit newplot( data.r, data.chir_mag,xmin=0.,xmax=7) ff2chi(1-6, group=fit) fftf(real = fit.chi) plot(fit.r, fit.chir_mag) # plot(fit.r, abs(data.chir_mag-fit.chir_mag),xmax=6) end macro read_data(../data/cu_chi.dat, group = data, type=chi) guess ei = 0.1 guess e0 = 1. guess ss2 = 0.002 guess dr = 0.001 guess s02 =0.9 path(index = 1, feff = ../feff/feffcu01.dat, label = "Cu metal first neighbor", ei = ei, s02 = s02, sigma2 = ss2, delr = dr, e0 = e0 ) kmin = 2, kmax=17, kweight=2, dk1 = 1, dk2=1 rmin = 1.5, rmax =2.9 rmax_out = 10 fftf(real = data.chi,k=data.k) feffit(chi = data.chi, k=data.k,group = fit, 1) show @variables, chi_square, r_factor newplot(data.r, data.chir_mag, color = blue, style=solid, xmax = 6) plot( fit.r, fit.chir_mag, color = red, style = dashed) # pause plot_path "1" "color=black" plot_path "2" "color=blue" plot_path "4" "color=blue" plot_path "5" "color=red" print 'fit took ', &fit_iteration, ' iterations' ifeffit-1.2.11d/examples/Feffit/my_feffit.log0000644000175000017500000000411110771740461020050 0ustar segresegre reading ../feff/feffcu01.dat *** read_data: no file name given!! feffit fitting 1 data sets fitting ... estimating uncertainties ... done. fit took 2.00000000 iterations s02 = 0.929147082 e0 = 0.618778703 dr = 0.000889316 macro rf "A.dat", "group" "simple raw read of a data file" read_data($1, group=$2, type='raw') end macro rc = 2.520000000 restr = 252000.000 := (rc-rf)/dx chi_square = 0.635040023E+11 r_factor = 0.030390588 n_idp = 19.002929688 feffit fitting 1 data sets fitting ... estimating uncertainties ... done. fit took 1.00000000 iterations s02 = 0.935383592 e0 = 0.637108973 dr = 0.001016166 macro rf "A.dat", "group" "simple raw read of a data file" read_data($1, group=$2, type='raw') end macro rc = 2.550000000 restr = 255000.000 := (rc-rf)/dx chi_square = 0.650250023E+11 r_factor = 0.030370933 n_idp = 19.002929688 feffit fitting 1 data sets fitting ... estimating uncertainties ... done. fit took 1.00000000 iterations s02 = 0.935574283 e0 = 0.639269730 dr = 0.001028091 macro rf "A.dat", "group" "simple raw read of a data file" read_data($1, group=$2, type='raw') end macro rc = 2.580000000 restr = 258000.000 := (rc-rf)/dx chi_square = 0.665640023E+11 r_factor = 0.030370913 n_idp = 19.002929688 feffit fitting 1 data sets fitting ... estimating uncertainties ... done. s02 = 0.93252402 +/- 0.20022458 e0 = 0.53669091 +/- 2.70036681 ss2 = 0.00348015 +/- 0.00120917 dr = 0.00056782 +/- 0.01188029 chi_square = 17181.613769286 r_factor = 0.195714512 fit took 4.00000000 iterations ifeffit-1.2.11d/examples/Feffit/Fit_bkg.iff0000644000175000017500000000117610771740461017440 0ustar segresegre read_data(../data/cu_chi.dat, group = data, type=chi) guess s02 = 1. guess e0 = 1. guess ss2 = 0.002 guess dr = 0.001 path(index = 1, feff = ../feff/feffcu01.dat, label = "Cu metal first neighbor", s02 = s02, sigma2 = ss2, delr = dr, e0 = e0 ) fftf(real = data.chi) feffit(chi = data.chi, k=data.k,group = fit, 1, kmin=2,kmax=17,rmin=1,rmax=2.9,dk=2,kweight=2, do_bkg=true) show @arrays show @variables newplot fit.k, fit.kbkg write_data(file = 'bkg.dat ', fit.k, fit.kbkg, bkg01_01, , bkg01_02, bkg01_03, bkg01_04, bkg01_05) save(bkg.sav)ifeffit-1.2.11d/examples/Feffit/Multi-kweight.iff0000644000175000017500000000303210771740461020616 0ustar segresegre macro plot_path 1 "color=black" ff2chi($1, group=p$1) fftf(real = p$1.chi) plot( p$1.r, -p$1.chir_mag, $2) end macro macro plot_fit newplot( data.r, data.chir_mag,xmin=0.,xmax=5) ff2chi(1-3, group=fit) fftf(real = fit.chi) plot(fit.r, fit.chir_mag) end macro read_data(../data/cu_chi.dat, group = data, type=chi) path(index = 1, feff = ../feff/feffcu01.dat, label = "Cu metal first neighbor", s02 = s02, sigma2 = ss2, delr = dr, e0 = e0 ) kmin = 2, kmax=17 dk1 = 1, dk2=1 rmin = 1.5, rmax =2.9 rmax_out = 10 macro guess_vars unguess guess s02 = 1. guess e0 = 1. guess ss2 = 0.002 guess dr = 0.001 end macro macro fit_old guess_vars feffit(1-3, chi = data.chi, k=data.k, group = fit, kweight=4, data_set = 1 , data_total=3) set dx.chi = join(slice(data.chi,1,nofx(data.k,kmax)+3),0.00) feffit(1-3, chi = dx.chi, k=data.k, group = fit, kweight=0, data_set = 2 , data_total=3) feffit(1-3, chi = data.chi, k=data.k, group = fit, kweight=2, data_set = 3 , data_total=3) end macro macro fit_new guess_vars data_total=1 data_set =1 feffit(1-3, chi = data.chi, k=data.k, group = fit, kweight=2, kweight=0, kweight=4) end macro macro show_fit print 'fit took ', &fit_iteration, ' iterations' show @variables, chi_square, r_factor, epsilon_k, epsilon_k, n_idp correl(e0,dr,print) correl(s02,ss2,print) plot_fit end macro # echo ' OLD ' fit_old show_fit pause echo ' NEW ' fit_new show_fit ifeffit-1.2.11d/examples/Feffit/F_changepath.iff0000644000175000017500000000226510771740461020442 0ustar segresegre macro plot_fit data fit '' newplot( $1.r, $1.chir_mag,xmin=0.,xmax=7,$3) plot($2.r, $2.chir_mag,key='fit') show @variables, r_factor, chi_square pause end macro read_data(../data/cu_chi.dat, group = data, type=chi) guess s02 = 1. guess e0 = 1. guess ss2_1 = 0.002 guess ss2_2 = 0.002 guess ss2_3 = 0.002 guess dr_1 = 0.001 guess dr_2 = 0.01 guess dr_3 = 0.01 path(index = 1, feff = ../feff/feffcu01.dat, label = "Cu metal first neighbor", s02 = s02, e0=e0, sigma2 = ss2_1, delr = dr_1) path(2, ../feff/feffcu02.dat, s02 = s02, e0 = e0, sigma2 = ss2_2, delr=dr_2) path(3, ../feff/feffcu03.dat, s02 = s02, e0 = e0, sigma2 = ss2_3, delr=dr_3) kmin = 2, kmax=17, kweight=2, dk1 = 3, dk2 = 3 $kwindow = kaiser rmin = 1.6, rmax =4 ff2chi(1,2,3, group=x3) fftf(x3.chi) ff2chi(1, group=x1) fftf(x1.chi) feffit(chi = data.chi, k=data.k,group = fit, 1-99, data_set=1, data_total=1, kweight =2 ) plot_fit set ss2_2 = 0.002 set dr_2 = 0.01 set ss2_3 = 0.002 set dr_3 = 0.01 set rmax = 3.0 feffit(chi = data.chi, k=data.k,group = fit, 1, data_set=1, data_total=1, kweight =2 ) plot_fit ifeffit-1.2.11d/examples/Feffit/AA0000644000175000017500000002036210771740461015607 0ustar segresegre Ifeffit 1.0077 Copyright (c) 2003 Matt Newville, Univ of Chicago command-line shell version 1.1 with GNU Readline OLD FIT WEIGHT: 1 1 1.11221603 feffit: not fitting until all data sets defined FIT WEIGHT: 1 2 0.0100568445 feffit: not fitting until all data sets defined FIT WEIGHT: 1 3 0.100099492 reading ../feff/feffcu01.dat feffit fitting 3 data sets Feffit 276 92 1 3 fitting ... fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 estimating uncertainties ... fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 done. fitfun 0 0 1 1 1.11221603 92 fitfun 92 92 1 2 0.0100568445 92 fitfun 184 184 1 3 0.100099492 92 fit took 5.00000000 iterations s02 = 0.92888570 +/- 0.02945143 e0 = 0.46019196 +/- 0.34780805 ss2 = 0.00345213 +/- 0.00018786 dr = 0.00016756 +/- 0.00172474 chi_square = 557.331493529 r_factor = 0.002034423 epsilon_k = 0.000795797 epsilon_k = 0.000795797 correl_e0_dr = 0.829647 correl_s02_ss2 = 0.860611 NEW FIT WEIGHT: 1 1 0.100099492 FIT WEIGHT: 2 1 0.100099492 FIT WEIGHT: 3 1 0.100099492 feffit fitting 1 data sets Feffit 276 92 3 1 fitting ... fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 estimating uncertainties ... fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 done. fitfun 0 0 1 1 0.100099492 92 fitfun 0 92 2 1 0.100099492 92 fitfun 0 184 3 1 0.100099492 92 fit took 5.00000000 iterations s02 = 0.91326081 +/- 0.02290557 e0 = 0.24997399 +/- 0.35993999 ss2 = 0.00337393 +/- 0.00010938 dr = -0.00055241 +/- 0.00119422 chi_square = 6302.546222611 r_factor = 60.676998455 epsilon_k = 0.000795797 epsilon_k = 0.000795797 correl_e0_dr = 0.880517 correl_s02_ss2 = 0.892612 ifeffit-1.2.11d/examples/Feffit/u0.sav0000644000175000017500000023007410771740461016445 0ustar segresegre#:IFEFFIT SAVE File: v1.02 npad = 8 #:build 1.0070 Copyright (c) 2002 Matt Newville, Univ of Chicago #:strings #= group= data #= commentchar= # #= column_label= k chi #= data_title_01= data : cu 10k, e0=8980, with standard #= data_title_02= chi: skey ASCII of cu_010k.dat using skey ASCII of chi.dat #= data_title_03= e0 = 8982.61; pre-edge range =[ -50.0 -200.0]; edge step = 2.257 #= data_title_04= k range=[ .05 24.95]; k weight= 1.00; sills: dk1, dk2=[ .00 .00] #= data_title_05= bkg r =[ .00 .98]; 1st shell r =[ .98 3.93]; 15 knots in spline #= data_title_06= Cu foil, 10K, foil rolled and annealled by matt #= data_title_07= 2-SI111 HC/2D= 1977.260 STPDEG=6400. STPMMZ= 40. FOCUS=F TRANSLT=F #= data_title_08= E0= 8980.0 NREG= 3 NPTS= 611 NSCLRS= 3 EF= .0 #= data_title_09= SRB= -193.7 -43.5 30.0 2381.3 #= data_title_10= DEL= 10.020 .483 .050K #= data_title_11= SEC= 1.000 1.000 1.000 #= data_title_12= DETECTORSI0 I If #= data_title_13= GAINS 8 7 10 #= data_title_14= OFFSETS 51284 50016 48319 #= filename= ../data/cu_chi.dat #:system #:scalars (nopad) #? s02 0.9310565163609 #? e0 2.075800995284 #? e0_1 0.3842993660187 #? ss2 0.3466556047351E-02 #? ss2_2 0.5250353571753E-02 #? ss2_3 0.7629668802472E-02 #? ss2_4 -.1108814184583E-02 #? ss2_5 0.4150099561250E-02 #? ss2_6 -.8090730265522E-03 #? dr 0.3213126441265E-04 #? dr_2 0.1413410944715E-01 #? dr_3 0.5566796239633E-01 #? dr_4 -.7209537141516E-02 #? dr_5 0.3595862878973E-01 #? dr_6 0.6628251103906E-01 #% pi 3.141592653590 #% etok 0.2624682917000 #% correl_min 0.5000000000000E-01 #% path_index 6.000000000000 #% kmin 2.000000000000 #% kmax 17.00000000000 #% kweight 2.000000000000 #% dk1 1.000000000000 #% dk2 1.000000000000 #% rmin 1.500000000000 #% rmax 4.400000000000 #% rmax_out 10.00000000000 #% data_set 0.000000000000 #% reff 4.754300000000 #% data_total 0.000000000000 #% epsilon_k 0.7884478359863E-03 #% epsilon_r 0.3748007409530E-01 #% chi_square 196.5284581662 #% chi_reduced 15.78888601617 #% r_factor 0.2197484087353E-02 #% n_idp 27.44726562500 #% n_varys 15.00000000000 #% delta_s02 0.2826842350924E-01 #% delta_e0 0.6904898767322 #% delta_e0_1 0.4008391047687 #% delta_ss2 0.1718509530413E-03 #% delta_ss2_2 0.6253275707408E-03 #% delta_ss2_3 0.6290243149495E-02 #% delta_ss2_4 0.1060053788240E-02 #% delta_ss2_5 0.3837621489619E-03 #% delta_ss2_6 0.8214001664285E-03 #% delta_dr 0.1748811037380E-02 #% delta_dr_2 0.7981371387397E-02 #% delta_dr_3 0.3424674571277E-01 #% delta_dr_4 0.1182943928113E-01 #% delta_dr_5 0.7341006688084E-02 #% delta_dr_6 0.1368962504446E-01 #:arrays #% [ 499] data.k !QRR%%%%%R.R%%%%%R2hR%%%%R8%%%%%%R<;R%%%%R@R%%%%%RDhR%%%%RJ%%%%%%RN;R%%%%RRR%%%%% !RVhR%%%%RZ%%%%%R`;R%%%%RdR%%%%%RhhR%%%%Rn%%%%%%Rr;R%%%%RvR%%%%%RzhR%%%%S.R%%%%% !S.f;R%%%S.zR%%%%S04hQ~~~S0I%%%%%S0];R%%%S0qR%%%%S2+hR%%%S2@%%%%%S2T;Q~~~S2hR%%%% !S2|hR%%%S47%%%%%S4K;Q~~~S4_R%%%%S4shR%%%S6.%%%%%S6B;R%%%S6VR%%%%S6jhQ~~~S8%%%%%% !S89;Q~~~S8MR%%%%S8ahQ~~~S8v%%%%%S:0;R%%%S:DR%%%%S:XhR%%%S:m%%%%%S<';R%%%S<;R%%%% !S2R%%%%S>FhR%%%S>[%%%%%S>o;R%%%S@)R%%%%S@=hR%%%S@R%%%%% !S@f;Q~~~S@zR%%%%SB4hQ~~~SBI%%%%%SB];R%%%SBqR%%%%SD+hR%%%SD@%%%%%SDT;R%%%SDhR%%%% !SD|hQ~~~SF7%%%%%SFK;Q~~~SF_R%%%%SFshR%%%SH.%%%%%SHB;R%%%SHVR%%%%SHjhR%%%SJ%%%%%% !SJ9;Q~~~SJMR%%%%SJahR%%%SJv%%%%%SL0;R%%%SLDR%%%%SLXhQ~~~SLm%%%%%SN';R%%%SN;R%%%% !SNOhQ~~~SNd%%%%%SNx;R%%%SP2R%%%%SPFhR%%%SP[%%%%%SPo;Q~~~SR)R%%%%SR=hR%%%SRR%%%%% !SRf;Q~~~SRzR%%%%ST4hR%%%STI%%%%%ST];R%%%STqR%%%%SV+hQ~~~SV@%%%%%SVT;R%%%SVhR%%%% !SV|hQ~~~SX7%%%%%SXK;R%%%SX_R%%%%SXshR%%%SZ.%%%%%SZB;Q~~~SZVR%%%%SZjhR%%%S\%%%%%% !S\9;Q~~~S\MR%%%%S\ahR%%%S\v%%%%%S^0;R%%%S^DR%%%%S^XhQ~~~S^m%%%%%S`';R%%%S`;R%%%% !S`OhQ~~~S`d%%%%%S`x;R%%%Sb2R%%%%SbFhR%%%Sb[%%%%%Sbo;Q~~~Sd)R%%%%Sd=hR%%%SdR%%%%% !Sdf;Q~~~SdzR%%%%Sf4hR%%%SfI%%%%%Sf];R%%%SfqR%%%%Sh+hQ~~~Sh@%%%%%ShT;R%%%ShhR%%%% !Sh|hQ~~~Sj7%%%%%SjK;R%%%Sj_R%%%%SjshR%%%Sl.%%%%%SlB;Q~~~SlVR%%%%SljhR%%%Sn%%%%%% !Sn9;R%%%SnMR%%%%SnahU>;)Snv%%%%%Sp0;R%%%SpDR%%%%SpXhQ~~~Spm%(>;)Sr';Q~~~Sr;R%%%% !SrOhR%%%Srd%%%%%Srx;U>;)St2R%%%%StFhR%%%St[%%%%%Sto;Q~~~Sv)R(>;)Sv=hQ~~~SvR%%%%% !Svf;R%%%SvzR%%%%Sx4hU>;)SxI%%%%%Sx];R%%%SxqR%%%%Sz+hQ~~~Sz@%(>;)SzT;Q~~~SzhR%%%% !Sz|hR%%%S|7%%%%%S|K;U>;)S|_R%%%%S|shR%%%S~.%%%%%S~B;Q~~~S~VR(>;)S~jhQ~~~T.R%%%%% !T.T';R%%T.V)Q~~~T.X+hR%%T.Z.%%%%T.\0;R%%T.^2R%%%T.`4hQ~~T.b7%%%%T.d9;Q~~T.f;R%%% !T.h=hR%%T.j@%%%%T.lB;R%%T.nDQ~~~T.pFhR%%T.rI%%%%T.tK;Q~~T.vMR%%%T.xOhQ~~T.zR%%%% !T.|T;R%%T.~VQ~~~T0&XhR%%T0([%%%%T0*];R%%T0,_R%%%T0.ahQ~~T00d%%%%T02f;Q~~T04hR%%% !T06jhR%%T08m%%%%T0:o;R%%T0shR%%T0@v%%%%T0Bx;Q~~T0DzR%%%T0F|hQ~~T0I%%%%% !T0K';R%%T0M)Q~~~T0O+hR%%T0Q.%%%%T0S0;R%%T0U2R%%%T0W4hQ~~T0Y7%%%%T0[9;Q~~T0];R%%% !T0_=hR%%T0a@%%%%T0cB;R%%T0eDQ~~~T0gFhR%%T0iI%%%%T0kK;Q~~T0mMR%%%T0oOhQ~~T0qR%%%% !T0sT;R%%T0uVQ~~~T0wXhR%%T0y[%%%%T0{];R%%T0}_R%%%T2%ahQ~~T2'd%%%%T2)f;Q~~T2+hR%%% !T2-jhR%%T2/m%%%%T21o;R%%T23qQ~~~T25shR%%T27v%%%%T29x;Q~~T2;zR%%%T2=|hQ~~T2@%%%%% !T2B';R%%T2D)Q~~~T2F+hR%%T2H.%%%%T2J0;R%%T2L2R%%%T2N4hQ~~T2P7%%%%T2R9;Q~~T2T;R%%% !T2V=hR%%T2X@%%%%T2ZB;R%%T2\DQ~~~T2^FhR%%T2`I%%%%T2bK;Q~~T2dMR%%%T2fOhQ~~T2hR%%%% !T2jT;R%%T2lVQ~~~T2nXhR%%T2p[%%%%T2r];R%%T2t_R%%%T2vahQ~~T2xd%%%%T2zf;Q~~T2|hR%%% !T2~jhR%%T4&m%%%%T4(o;R%%T4*qQ~~~T4,shR%%T4.v%%%%T40x;Q~~T42zR%%%T44|hQ~~T47%%%%% !T49';R%%T4;)R%%%T4=+hQ~~T4?.%%%%T4A0;R%%T4C2R%%%T4E4hR%%T4G7%%%%T4I9;Q~~T4K;R%%% !T4M=hR%%T4O@%%%%T4QB;Q~~T4SDQ~~~T4UFhR%%T4WI%%%%T4YK;R%%T4[MQ~~~T4]OhQ~~T4_R%%%% !T4aT;R%%T4cVR%%%T4eXhQ~~T4g[%%%%T4i];R%%T4k_R%%%T4mahR%%T4od%%%%T4qf;Q~~T4shR%%% !T4ujhR%%T4wm%%%%T4yo;Q~~T4{qQ~~~T4}shR%%T6%v%%%%T6'x;R%%T6)zQ~~~T6+|hQ~~T6.%%%%% !T60';R%%T62)R%%%T64+hQ~~T66.%%%%T680;R%%T6:2R%%%T6<4hR%%T6>7%%%%T6@9;Q~~T6B;R%%% !T6D=hR%%T6F@%%%%T6HB;Q~~T6JDQ~~~T6LFhR%%T6NI%%%%T6PK;R%%T6RMQ~~~T6TOhQ~~T6VR%%%% !T6XT;R%%T6ZVR%%%T6\XhQ~~T6^[%%%%T6`];R%%T6b_R%%%T6dahR%%T6fd%%%%T6hf;Q~~T6jhR%%% !T6ljhR%%T6nm%%%%T6po;Q~~T6rqQ~~~T6tshR%%T6vv%%%%T6xx;R%%T6zzQ~~~T6||hQ~~T8%%%%%% !T8'';R%%T8))R%%%T8++hQ~~T8-.%%%%T8/0;R%%T812R%%%T834hR%%T857%%%%T879;Q~~T89;R%%% !T8;=hR%%T8=@%%%%T8?B;Q~~T8ADQ~~~T8CFhR%%T8EI%%%%T8GK;R%%T8IMQ~~~T8KOhQ~~T8MR%%%% !T8OT;R%%T8QVR%%%T8SXhQ~~T8U[%%%%T8W];R%%T8Y_R%%%T8[ahR%%T8]d%%%%T8_f;Q~~T8ahR%%% !T8cjhR%%T8em%%%%T8go;Q~~T8iqQ~~~T8kshR%%T8mv%%%%T8ox;R%%T8qzQ~~~T8s|hQ~~T8v%%%%% !T8x';R%%T8z)R%%%T8|+hQ~~T8~.%%%%T:&0;R%%T:(2R%%%T:*4hR%%T:,7%%%%T:.9;Q~~T:0;R%%% !T:2=hR%%T:4@%%%%T:6B;Q~~T:8DQ~~~T::FhR%%T:K;R%%T:@MQ~~~T:BOhQ~~T:DR%%%% !T:FT;R%%T:HVR%%%T:JXhQ~~T:L[%%%%T:N];R%%T:P_R%%%T:RahR%%T:Td%%%%T:Vf;Q~~T:XhR%%% !T:ZjhR%%T:\m%%%%T:^o;Q~~T:`qQ~~~T:bshR%%T:dv%%%%T:fx;R%%T:hzQ~~~T:j|hQ~~T:m%%%%% !T:o';R%%T:q)R%%%T:s+hQ~~T:u.%%%%T:w0;R%%T:y2R%%%T:{4hR%%T:}7%%%%T<%9;Q~~T<';R%%% !T<)=hR%%T<+@%%%%T<-B;Q~~T[NR3W9.d57R36Sciy[ !R1V~9dIMR/Geu5?.R-Z|cZzzQcUCuTOhQC0cq2IvP_d5LRQVQ6aCB\dvQX_Lb)9dQ|F(XF+hR08Uh(c. !R0mqYcVRR0O;K/DRR.hvHHfdQltaP|;{QTl_+_5_Q`PC\YQX/m !Q>>vXW,`QXaxg>;*Qx5M352zR0>r}[q{R08?z@57QtTDWhZ.QZ`1V5;*Q7QC~d,43qQIAxj:Bd !QIEar@-.QAAQ;mz*Q5DnFwP`QN_BLZ6.QZ:2*^*IQh@7P88EQv75;%q{Q~0]PtWIQ|)51yFiQn_XOOH.QX/Zm@13Q>3}FDMz !PJA&bVZ.Q1gY]+@%Q?Ng>fl.QE4bEJ\mQG057xp2QQeSG4X@Qg%*7&\mQy8,8o';R-m[},shR-pE?>7% !Q{LV.AhzQkWo6:2RQWc\]03IQAlY[XL2Q-^;'^BdPJYlOr8mPh;aN?b_P0'A^8XhPa(g62)RPigX9bG7 !Q0*kR4lWQX'Az>WIR0'`iimNR2C-f}SDR2Mf\a;zR0xz4=X@R0IyJ^JmR.o%}jp[QnwyMOX@QPHM%\,7 !PN01yk7%QIZth,g[QsSyJwy3R/i62}C2R1wr`7Y_R3/AHlF@R18/X]WrR-R{X5shQUfXXG?.Puj~+c:3 !Q:>Msc^[QJ}_4p[%QLR\UG{rQ>|nXhR%Q28e%pg3P\u/>V5_PNtdxKd%POBIlAq)Q7fR|=|hQ=O9+C_* !Q-kv^'3IQ@lkcKWrQju?~O\EQ~PTBD%NR.dTj=|iR.X4r];RQtVoWqR%QZV7UE0dQ8%XvKt7Q59rw-%v !QO|{}|`IQaNf{y6WQi^J41JmQi/LBys@Q[pu5QB2zQ/UE)jdMPBHzVk.vQ2oX=IemQ:<|RD5_Q02q*eDQB8].d57QHa)a29dQR;m|{y[ !Q\L1=W,_QZTaNo+@QL6I8+lWQ<&V}yo7Q;JE41o;Q;+xl&dvQ1zqS4dMPMbhg*I% !PC~}]lvvQ1tN5i];QE9/)TKdQQo0d:s@QM&9bJq)Q?Z1v&8DQ;?b-6vvQ5}EnCc.Q-rY}e4@PK,1X7QV !P01`Pd9\du~~Q0`oN`,`Q6-s2pFhQ:9HO0[vQ7QBCG(G2zQD&)\,[MQ@uuu:Vz !Q8\YfD%NPZ%}8URvP}Jsn-%vQ3wgb)9dQ5*JQ1:[Q1%S:rQ.PS17Q3oR*~NIQ17Q6~D>/@NP.r2(>_RQ-vM16VR !Q1?F4d))Q/z\~}G7Q/N|a_~WQ-bCeuRMPc2m+bK;PCAqRB3IP?7A{vEIPEGU?-ZVPA2vB7))PAKc>PSD !PgS>QM5_Q/.EelZVQ-}ZVY?.P}/R9_zRPcBG,p.MP=7z\Td%N]gz.EI%P0|&rVErPL*`kC{IP|.gJm%% !Q0ulco7NQ0hNs[U[Q.pAAdQVPphN},O@Pf%XAY2zP\T&?po;P>HXnQNIP-ufm/0;P?.HhmU[PAdKi`@vPIo.%/y2PK5x^M^2PKuD6o7MPEcDe/L[P?&@%j;zP;g2V%q{P/Sm~a'dP0CnmIMR !P@CYTA}7PFg.khnDPHmpbjp[PF,'K0|@P@TdPg[%P@(o^Q>7PZeT?VP2S+lVR%P0~@LX3qNX4|X-jhO2xbf5K;OTX5}Z:2O?2k5-b_P1M,9@iqP7y''FL2 !P9T1`eDRP3]O-MZ.Od3stc2)P:;^O`I%P<0@Wbg[P05_[/0;OVX|.V%MN/^bo8cVP5e*gk7%P1X(Cz~V !O[M+fOhRO@/AA1NqOpcz01k7OhaD\uRMO8CvXSL[O:z3P0SmO\FdwJXhO\t3tC2ROratmDZ.P.n}HrM) !Ov,WnUwDOzSbB5&mP02m8+lVP.VBKrY7O^ns8RahN|jz/7z)OE|G84dMO]z*I>SDO_Be*reDOEf/t\Hx^g2OjPI(/`qOz\hV`4hOJm9=bodO2cCP@emNYds'N0dO/m^)D9dO/l.x.U[ !NOB[\P_RO8S`%AhzOHq4{U2ROBQ|VO|hO8.9zWDq/-%vO:zboQjhODC>-xSmOPf8PM=hOR<9a%=@OP54og[O3ZHi};)O;:(MalVO=)zs4;zOA_:;XP7 !O;WRg<8mO?o_iF3qO?UdZ1:[O9j^rQ.%O91f>rU2N}9lAA`qNIF8)/}7O/}==[z)N8h`/_9dNAl;Qt*q !O2px=:g2ONI[mk*qO4hQ/URvO2ehox_zO6YTyGWIO:DW\6fdO:cUQ:VzO:%8@y:[O:AO14xdO<'_O>)rtg[%N^o}MtK;NJAg0OhRNDY@\B+@N2|usywDN]p~lnHVO3>*.Kt7 !O3H8{d12O1,X-B_zOAWIqvqzOS*52R%%%%S>FhR%%%S>[%%%%%S>o;R%%%S@)R%%%%S@=hR%%% !S@R%%%%%S@f;R%%%S@zR%%%%SB4hR%%%SBI%%%%%SB];R%%%SBqR%%%%SD+hR%%%SD@%%%%%SDT;R%%% !SDhR%%%%SD|hR%%%SF7%%%%%SFK;R%%%SF_R%%%%SFshR%%%SH.%%%%%SHB;R%%%SHVR%%%%SHjhR%%% !SJ%%%%%%SJ9;Q~~~SJMR%%%%SJahR%%%SJv%%%%%SL0;R%%%SLDR%%%%SLXhR%%%SLm%%%%%SN';R%%% !SN;R%%%%SNOhQ~~~SNd%%%%%SNx;R%%%SP2R%%%%SPFhR%%%SP[%%%%%SPo;R%%%SR)R%%%%SR=hR%%% !SRR%%%%%SRf;R%%%SRzR%%%%ST4hR%%%STI%%%%%ST];R%%%STqR%%%%SV+hR%%%SV@%%%%%SVT;R%%% !SVhR%%%%SV|hR%%%SX7%%%%%SXK;R%%%SX_R%%%%SXshR%%%SZ.%%%%%SZB;R%%%SZVR%%%%SZjhR%%% !S\%%%%%%S\9;R%%%S\MR%%%%S\ahR%%%S\v%%%%%S^0;R%%%S^DR%%%%S^XhR%%%S^m%%%%%S`';R%%% !S`;R%%%%S`OhR%%%S`d%%%%%S`x;R%%%Sb2R%%%%SbFhR%%%Sb[%%%%%Sbo;R%%%Sd)R%%%%Sd=hR%%% !SdR%%%%%Sdf;R%%%SdzR%%%%Sf4hR%%%SfI%%%%%Sf];R%%%SfqR%%%%Sh+hR%%%Sh@%%%%%ShT;R%%% !ShhR%%%%Sh|hR%%%Sj7%%%%%SjK;R%%%Sj_R%%%%SjshR%%%Sl.%%%%%SlB;R%%%SlVR%%%%SljhR%%% !Sn%%%%%%Sn9;R%%%SnMR%%%%SnahR%%%Snv%%%%%Sp0;R%%%SpDR%%%%SpXhQ~~~Spm%%%%%Sr';R%%% !Sr;R%%%%SrOhR%%%Srd%%%%%Srx;R%%%St2R%%%%StFhR%%%St[%%%%%Sto;Q~~~Sv)R%%%%Sv=hR%%% !SvR%%%%%Svf;R%%%SvzR%%%%Sx4hR%%%SxI%%%%%Sx];R%%%SxqR%%%%Sz+hQ~~~Sz@%%%%%SzT;R%%% !SzhR%%%%Sz|hR%%%S|7%%%%%S|K;R%%%S|_R%%%%S|shR%%%S~.%%%%%S~B;R%%%S~VR%%%%S~jhR%%% !T.R%%%%%T.T';R%%T.V)R%%%T.X+hR%%T.Z.%%%%T.\0;R%%T.^2R%%%T.`4hR%%T.b7%%%%T.d9;R%% !T.f;R%%%T.h=hR%%T.j@%%%%T.lB;R%%T.nDR%%%T.pFhR%%T.rI%%%%T.tK;R%%T.vMR%%%T.xOhR%% !T.zR%%%%T.|T;R%%T.~VR%%%T0&XhR%%T0([%%%%T0*];R%%T0,_R%%%T0.ahR%%T00d%%%%T02f;R%% !T04hR%%%T06jhR%%T08m%%%%T0:o;R%%T0shR%%T0@v%%%%T0Bx;R%%T0DzR%%%T0F|hR%% !T0I%%%%%T0K';R%%T0M)R%%%T0O+hR%%T0Q.%%%%T0S0;R%%T0U2R%%%T0W4hR%%T0Y7%%%%T0[9;R%% !T0];R%%%T0_=hR%%T0a@%%%%T0cB;R%%T0eDR%%%T0gFhR%%T0iI%%%%T0kK;R%%T0mMR%%%T0oOhR%% !T0qR%%%%T0sT;R%%T0uVR%%%T0wXhR%%T0y[%%%%T0{];R%%T0}_R%%%T2%ahR%%T2'd%%%%T2)f;R%% !T2+hR%%%T2-jhR%%T2/m%%%%T21o;R%%T23qR%%%T25shR%%T27v%%%%T29x;R%%T2;zR%%%T2=|hR%% !T2@%%%%%T2B';R%%T2D)R%%%T2F+hR%%T2H.%%%%T2J0;R%%T2L2R%%%T2N4hR%%T2P7%%%%T2R9;R%% !T2T;R%%%T2V=hR%%T2X@%%%%T2ZB;R%%T2\DR%%%T2^FhR%%T2`I%%%%T2bK;R%%T2dMR%%%T2fOhR%% !T2hR%%%%T2jT;R%%T2lVR%%%T2nXhR%%T2p[%%%%T2r];R%%T2t_R%%%T2vahR%%T2xd%%%%T2zf;R%% !T2|hR%%%T2~jhR%%T4&m%%%%T4(o;R%%T4*qR%%%T4,shR%%T4.v%%%%T40x;R%%T42zR%%%T44|hR%% !T47%%%%%T49';R%%T4;)R%%%T4=+hR%%T4?.%%%%T4A0;R%%T4C2R%%%T4E4hR%%T4G7%%%%T4I9;Q~~ !T4K;R%%%T4M=hR%%T4O@%%%%T4QB;R%%T4SDQ~~~T4UFhR%%T4WI%%%%T4YK;R%%T4[MR%%%T4]OhQ~~ !T4_R%%%%T4aT;R%%T4cVR%%%T4eXhR%%T4g[%%%%T4i];R%%T4k_R%%%T4mahR%%T4od%%%%T4qf;Q~~ !T4shR%%%T4ujhR%%T4wm%%%%T4yo;R%%T4{qQ~~~T4}shR%%T6%v%%%%T6'x;R%%T6)zR%%%T6+|hQ~~ !T6.%%%%%T60';R%%T62)R%%%T64+hR%%T66.%%%%T680;R%%T6:2R%%%T6<4hR%%T6>7%%%%T6@9;Q~~ !T6B;R%%%T6D=hR%%T6F@%%%%T6HB;R%%T6JDQ~~~T6LFhR%%T6NI%%%%T6PK;R%%T6RMR%%%T6TOhQ~~ !T6VR%%%%T6XT;R%%T6ZVR%%%T6\XhR%%T6^[%%%%T6`];R%%T6b_R%%%T6dahR%%T6fd%%%%T6hf;R%% !T6jhR%%%T6ljhR%%T6nm%%%%T6po;R%%T6rqR%%%T6tshR%%T6vv%%%%T6xx;R%%T6zzR%%%T6||hR%% #% [ 400] init.chi !R\z.b8+oR\zR\%1HR\{e4qjBR\}hmeEaR^&a~O-YR^*X/6CVR^/W1h^2R^5sI:`RR^=y9\omR^HhN}^8 !R^Zd7H,eR]u&<>VPR]^>2DUNR],Ylk[0R[*qq'`7RW`+.TV&RStz]]/MRO`=VqUZRK)Pi|yURE9-iv-t !R?&r:l&QR7lFy6?~R1R5ETHgQgK].i9PP}q4HOTtQP/fuDz5Qx]jXElMYF&R4~_KwFDR2ot*)3TR.tIs=WxQV]ZnH/4OJSZ;fqH !QGqBs0QHQem~KHOEQ{~^81R>R/,3y'{>R/Nrj+zHR/J4[jUrR-|>UCdBQy0DcTI~Qe'Lw7~tQM/~4:uz !Q3dsK\NHPx3PWY}eQD@j}_;dQV'N15M:Q`P(W0j;QdZOXBfmQdIAwA0cQ\i'_hiNQP0Th`<^Q>Ukx{J] !Ph9,[(9@Q1A%8gxnQCD.4vuNQQrO[Q_yFe`y7QYQiy0ccQOyfWI+E !QG%R+V[WQ=>2k17+Q5449Qld^T8>AQx)J4.7UQ~21=/jDQ~8'vFC/QvuX8cnNQj@e&PNW !QVr(qaK{Q@C0.SyIP4aK(4^9Q;i[W;57QS4@@ap6QeX{xk5HQsCz&w9]Q{5}8|71Q}:|rU*{Qywiow[Q !Qsv[P)]TQk|fon6cQch~ZCEtQ[^`J-V|QSg.DF6SQKt){p]OQC_*jQyyQ9O`@'eQPq1i+t=PNt3`QR8`-__BQVQa:1HSQRg9z`hqQJ4vlcT2Q>L6QP;AQ47`KSUL !Pt]L3(3pPnxybEmpQ2fceB]tQ>ai\cm`OE[QlKPtkaMQt:uCYd9Qrr3q?%eQh_bi_\- !QTg^Y;j`Q8vZ3JbaNs0SwQTHlDhykQbK2~Sl*QhUb:2/:Qh.:xFQcQ`vp{.h-QX'J2Iy^ !QLY/bzI?QBUcrwzYQ:[S751*Q6+{sEN+Q2qxo55rQ2Qp_f|;Q2Dt^L/2Q0eD|3CYPtnA~(-\P6%0kW=m !PqR8\R8EQ7^8{C&lQCxC*F+\QOtOnhp;QY[ivgQ|Q_@*GpbeQ_HgCteKQYa}.tE[QO@}Z(EfQ?pMY.1. !Q/-^K'izPtK:[FO]Q>:P^q~HQJr{z'GWQT3cKKDyQVm|*@kGQTrjU.qmQNf;kMYlQF*L,xvKQ:bV;8fw !Q0Jn.emdP8h?(_VEPOcK.Ls~Pq0l9n-vPuSFYY=.PeCd98b4PIp1c@2DP/t4'0P]Oyv*hP;tzt}v4O5t9|?_K !PDM;W:^?Pl@j[fFpQ0Y.->YIQ4EJ*Lt>Q6W{xNjlQ6{Lw<^7Q6JgZac:Q2{(/eoiQ.emBgqoPLh|/2Zp !P7IVmv%.Pmd\arw]Q/u8M7BFQ3EUGJoKQ3{.JR6] !OE(:Z+NBP6\z6FlPP@sP}>F3PBU+vVhPPL7r0NP0SHFICDP+Q02+~O=lPxzEfMJFPZBOyl8rP23}]pzNPE2?YyL7 !PojeFIeOQ/Zy0C@~Q1oFV;{,Q3?3[D+wQ1y-V{qXQ/nLQNF]Pw%Xc2LUPMC,L\~XO8|/q_~TPN3y?RRA !Pjn|.HvKP|K=p+NcQ.V)/0vJPxImQ7hOPfeM,kgSPPH_CbJZP8e+i3&:NSIz@SxeP1ql1M=cP7A_pHo[ !P3a6`u7WO[S2aDquOtmxEs>@P:f@4rR;PDc{Aa[]PHP;MpYgPD=_sNZ(P8*V->?}Ns4VoDlmP;a]b`QE !PQ|_UB~mPeI=LP5cPqB+=4WYPs]m[Cn7PkzK9k.pP[ba;Q~*PC{YPiSXOU;Gx;|@O7k,e+*lOF{6D4;kOXJ&VIZmO>0lgHDoOOD[;ZEWP1tjfa?AP=,Giy<' !PE[im\2]PKKMR`HYPKeO)apIPG-0~jY_P;adpemIOux1mj9,P.]zV+I@P@;BQTz;PNPIlBS\PX>a.Y0_RDV:R'P;RJ}8^_{; !RRQ~l{m_RZ&j{e]6R`Mi/a'+RfeBU>AgRlf<^4ZkRrIt~qH|Rvd<3>|zRzV>kZJ9R|utyOu[R~f+1_1G !S.Q~~~~|S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.Q~~~~|R~f+1_1GR|utyOuZRzV>kZJ8Rvd<3>|yRrIt~qHzRlf<^4ZiRfeBU>AeR`Mi/a')RZ&j{e]3 !RRQ~l{m\RJ}8^_{9RDV:R'P9R>>a.Y0]R8=g(_&nR2Z.e_*5Qz|I*-KxQVT/C@W2Q<&.Fj0{P\d.b0<2 !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% #% [ 326] data.r !Q%%%%%%%Q@mT6zLPQ\\)HuszQxJXZqAKR0T%t54lR2vSAjK=P2uT !R@mT6zLPRD5jwg}KRFX'^UTFRHz>EC+ARLBU,0\=RNdklx38RR-(Sed3RTO?:S;.RVqU{@l*RZ9lb.C% !R\\)HuszR^~@/cJuRbFVpP{qRdhmW>RlRh1*>,)gRjS@~sZbRluWea1^Rp=nLNbYRr`+3<9TRv(At)jP !RxJXZqAKRzloA^rFR~5,(LIAS.W'|o-TS.cN;@;KS.otSkIAS.|@lc\^PS2+d|-lFS281:Xz=S2DWS*.3S2P}kU<*S2]J*&IzS2ipBQWq !S2vSAj%~`eKqS>2Jy6YgS>>q7ag^ !S>K=P2uTS>Wch^)KS>d0'/7AS>pV?ZE8S>||X+S.S@/HpVa%S@;o/'nuS@H;GR|lS@Ta_~0cS@a-xO>Y !S@mT6zLPS@yzOKZFSB,Fgvh=SB8m&Gv3SBE9>s**SBQ_WD7zSB^+ooEqSBjR.@SgSBvxFka^SD)D_1huSF&BV\vlSF2ho.*cSF?5-Y8YSFK[F*FP !SFX'^UTFSFdMw&b=SFpt5Qp3SF}@M|~*SH/ffN1zSH<2~y?qSHHY=JMgSHU%Uu[^SHaKnFiTSHmr,qwK !SHz>EC+ASJ,d]n98SJ90v?G.SJEW4jU%SJQ}M;buSJ^IefplSJjo~7~cSJw<:PSPn5|iHFSPz\;:V= !SR-(Sed3SR9Nl6r*SREu*b%zSRRAC33qSR^g[^AgSRk3t/O^SRwZ2Z]TST*&K+kKST6LcVyASTBr|(-8 !STO?:S;.ST[eR~I%STh1kOVuSTtX)zdlSV&~BKrcSV3JZw&YSV?psH4PSVL=1sBFSVXcJDP=SVe/bo^3 !SVqU{@l*SV}|9kyzSX0HR=-qSX')R3Sb-d?T`*Sb:0X%mz !SbFVpP{qSbR}.|/gSb_IGM=^Sbko_xKTSbx;xIYKSd*b6tgASd7.OEu8SdCTgq).SdO{&B7%Sd\G>mDu !SdhmW>RlSdu9oi`cSf'`.:nYSf4,Fe|PSf@R_70FSfLxwb>=SfYE63L3SfekN^Z*Sfr7g/gzSf~^%Zuq !Sh1*>,)gSh=PVW7^ShIvo(ETShVC-SSKShbiE~aASho5^Oo8Sh{[vz}.Sj.(5L1%Sj:NMw>uSjFtfHLl !SjS@~sZbSj_g=DhYSjl3UovPSjxYnA*FSl+&,l8=Sl7LE=F3SlCr]hT*SlP>v9azSl\e4doqSli1M5}g !SluWea1^Sn'}~2?TSn4J<]MKSn@pU.[ASnM2BF3T !SxJXZqAKSxV~sBOASxcK1m]8SxoqJ>k.Sx|=biy%Sz.c{;,uSz;09f:lSzGVR7HbSzS|jbVYSz`I)3dP !SzloA^rFSzy;Z0&=S|+ar[43S|8.1,B*S|DTIWOzS|Pzb(]qS|]FzSkgS|im8~y^S|v9QP-TS~(_i{;K !S~5,(LIAS~AR@wW8S~MxYHe.S~ZDqss%S~fk0E&uS~s7Hp4l #% [ 326] data.chir_mag !PZEAvDuHPT|DxcliPR{9?y3@PnV=p):bQ22*0jgkQ6uEjYomQ<6;vU->Q>H)y4[FQd%Qbu`V6n`QdINbswaQ`*Jd4pwQ^H7zXSTQj_MbpE'R.^=ZuXmR0nwiOg\R2YoaX5} !R2`^F3RoR0{lRCnuR.ag`WESQjzmgB?GQpX8vJ{]R0>)2_L[R2f,zT]=R4D]S]E^R2sF(~}>R0MB?9*w !Q|@>]%UXR0yY?,jzR8R'kF{VR@8sM]LaRF3);'O3RHik0i=|RHsQ:/3rRFnxyr(gRDc9eC~3RF3x032l !RL-dgwcDRTSJdpdgR\u:QYB3Rd,w96(=RfX|)wOKRf]f+KjRRf[TRur)Rjq&tEl6Rx37HkfUS0/|P+g( !S2B|X*swS4YlW2QWS6lw3(JJS:%K0\GcSq/iSZOt]jc[ !SbE?{U+DShguN6wISn=\Lxr4Spa8^Tr+Spi,[JiDSnP|)8IhShzIyRR8lf[rr`R@Luq::URF-yo.~cRFvFOZvgRF?V\RwkRF@}2r{g !RLq*Q]5)R\B\'/EWRn~XIU4AS.efJE\=S0b1dKbTS2R^R'0HS437MsbUS4[Q,oa6S4p,lHZBS4p5Z8UF !S4[dEmQ%S43jQ;8DS2U6nZHnS0j]@QKFS.z9kG:URxDl&W*.Rj=Mr25'Gb0R\W\_:e_R`eI;>.X !Rl'I~x:3Rz1D6*E*S.~;e-:mS0jl(mF[S2Wkhc*dS4JJ88W[H&xc !SB&|Wy&S@{xotweS>;B=QLcS:@F||2wS6B-g+he !S2S|x%m\S02=T7^IR~D4GX^-R~=(~U~]S.u|*Jb4S0]/X]\NS2Sr>V)VS4[e-ewNS6vS&4~tS:GdD2J} !S<{a7-DlS@SEuyxaSBvTck>:SF%Wmk5jSFdxg{_{SFz*gYBS83h5)*-S40DiWV)S0=@o^YbRrXOUVNJRf;nLUCqRj=`E.tS0\F?B?@S0c]'UjhS0c:9{E&S0\/U5-tS0NSa~VgS0:^FzKwS.{%mAq]S.\TA9D9RzE)Fm*7 !Rr8r._*LRhs,D\kwR`M7H<]@RX87\@JwRPWD,FrqRJyfCmTcRH^O9;w0RHQC7F/QRJ&=[tgXRJi@*S2U !RLRwC`R\RN5z?F.7RNaHb&3DRNc-/VanRLs(wtLgRHqRwI5mRBOLKoi8R8|[,>]-R2%\DJziR4ve53`y !RB%5F7eURNDJ0(k9RX]Vj14CR`-d@jcKRb>3t8w=R^zkH]B*RX2POMCQRL4_6P>bRTJ1@=S0`WA|T\S0pU\BS8S0o2edbOS0^:fkXO !S0@`1y'~S.t(eckjR|zi:HPhRt,)?5;kRj_F*-9~Rd/R,& !Rllt4y-)Rx0fKe>NS.f&T-1yS0Dj?6@1S0z&0bV]S2LIwZoXS2k=+sLoS2y&<`t>S2sWQ,iwS2ZQDU]: !S2/,l&fPS0N62}\?S.b(>p'9RrD=Q]^SRb)jN`TXRR{VdLbERJVT:5GlRH|?mpi.RNA9HNkkRTX\P3Wn !RZMrxKE,R^H.S0_tR`6F_%JIR^re5wv*R\RP{6,1RX>[T-G1RRIXhgBGRL.Zcu`fRD_6&0MPR>@rZy,H !R8H%Okt@R41m(;j+R0aJd^jHR.l|)]uDQzZR:kkpQxp2U(k;R04Rl;ybR4J,T3sCR:T}6KP{RB2;,,dS !RH{'kY]gCT1Rf%SbRuU !R`Y?C}FtRZcc5y5>RTo~kc_fRP[)L,emRNV9/[XERNo1>Q_QRR)?-pqvRTYPv@<_RVsaq}<8RXW]b&rE !RXOuS:4TRVZ1LEm@RR}p;tKKRNoUqF>nRJBJUADMRDe`@^\NR@9b0Yd9R<)>fU[MR8@-;t2yR6,-;FRs !R4P'bzl:R4[.-`7VR6L,Y;l(R8jIRw@7Re)M:a[R@i5ghXARB=Az5_-RB4q.G.gR@Q_WiPM !R>C3BUihR:r_l^W^R8?sPSD)R4wIsEoMR4*kMx.`R4.T;Vd_R62HRr_0R8{4X+0yR>6;oS2,RBV>9y8= !RFiOgGLaRJ[(+iQDRLs{,lxDRNNIJ>9qRN>lH9,DRLF:n?:+ #% [ 326] data.chir_pha !SB1D)d%oS@AF.FE;S@}C.tGbSBMNLeh3S@0zKa`.S<)P`4PSS6d/d%9xS2=QeujLRr`@.s>pRF;=v*;~T/]TM~g| !T/d7>X5kT/oFeaRCT/}oRWsIT13Y5ZMuT1Bz]/ZCT1PHM;uyT1Z`DTkkT1b8IkzaT1j2O{-FT1tzUA41 !T3(L,Sg)T37D]LrvT3FXD8f?T3UD0?,4T3cLro~-T3q<4zm+T5%]Kk^BT55>p4rnT5FR[SV1T5Y4.]W, !T5l~n5nxT7'egM,xT7=.0ddoT7R{sFFV6w%T;%Rj}9@ !T;;1__/0T;OYL60?T;a[^H,yT;nl\FQwT;tr5rB0T;y[jp.^T=+hb/KsT=>L.3C2T=TXg0mFT=l,2]z< !T?)<-)ZxT?=wv;9kT?KOGcM2T?Hn:7S2T?BYAtowT?Jp4U05T?Xj`u9&T?fN{;F|T?p0=VVhT?s;`3>5 !T?tNcmzmT?{I@&RpTA-xI}-}TA=T2/;]TAN``+l]TA`[i}FzTAs(WTF9TC+q=v1{TC?'m|m'TCR]v:9c !TCfc/Z7%TC{7svI^TE60c7M+TEK>=c~wTE`@hg3DTEtViT(xTG,y9v;dTG<7FffeTGHCC'WUTGS|LyfH !TGailda5TGql5:YETI(x-6'HTI:4(]i.TIJzqF,kTI[3e3*+TIk.7,}&TI{C3P[|TK2G@h=^TKDQk39R !TKWb1CWETKkjObbwTM&X6N3,TM;r8;(8TMQKk`VsTMg+J%7>TM|TPbvrTO7OJ(G7TOKK3xs8TO]^l.:/ !TOl|y4SzTOx)C*NpTO~pmo-lTQ*nBDSpTQ3UtJNLTQ??Z>D2TQM1{;O0TQ\YcDs0TQmV32]rwCvXTWVIRg~q !TWmBc6Q2TY)5GTHbTY=2oc6aTYMdNiySTYX:VO4nTY[w|jV]TY`7D*{&TYjz);m2TYzIzR'JT[2=g:w= !T[ED(Sc^T[Y1_`AqT[mV[Y<]T](^e_gnT]>TBfY)T]U>}@^qT]lyKol}T_+H)WF_T_DNI8L2T_]sNov] !T_wTiJTCsqSTi`,C1}LTivj[H7bTk4-u8,sTkK}oF\nTkdd6[L'Tm%8YG.ATmEVn0yLTo(iBG?B !Tok}P}k&Tq4(pQZRTqOH)e&. !T{W>Knf}T{o~3Ou5T}.^ifi{T}G?Aa5eT}_zMvBCT}xZG)XVU-Sncil-U-V=7oIU1'NfnM>U1)xF}+HU1,Z]r@V !U1/UlppHU12c/y&;U15o{LuUU18n^;:JU1;]Gn?sS}+U1@s}`g}U1CH[4h%U1EsqfSnU1HCdkO* !U1Jnd*A3U1MDs~[bU1P'*z}aU1RyN;/eU1V6Ti%&U1Ya}pLZU1](8lwwU1`+NH/8U1bpORd7U1eLvd^s !U1g{T2*HU1jL'AxfU1lt2p>TU1o@N%}fU1qdb/q^U1t+u,E. #% [ 326] data.chir_re !PYEAvDuHPSXNrEJyPQy~(N=.PmNDkq=WQ/~CJn:RQ1t=XxY|Pse|({fSPPn.@+opQ4m_0]_tQ6~;z{hH !Q0Yzg|%wPLkRW*02Pft*LMG]Q:5HoYkwQHHRQvN/QJ3VN8y9Q:}Ja-bMPNh(l82LOLh\xv0/Q4o;p\NG !QH3pQ0F`QF0tHj'DOF0n4Qe7ry?R3%o*^4|R/?{b_97Qe=VNpCz !Qa/%\:irR/(pLS8?R3*L;d>IR/wve-itQ-wd`q3RR4+qS{CmR@*WVkmlReBlwdH9S-ePajj] !S1AaEnnpS3;2ycfIS1rS*lVPS/)l,mhlRMSat-X;RNyB;EAsS4bFNu,fSBe7*ktSSPn`51x~SXrDVtVM !ST.=F.kiS3+eSSX9V\k1S1@WIWk:S6n:'\:*SFTYE[hV !SF7mJ0ovS<0*'/-YS0Z*t0A\RR;+{~L,R:K-}K+[R0WE>qhVQ{eaAZY|RIxNdy@gR_+g'HlvR[v'.o@c !RGC7DKrXR/g6E0MEP3:J^RqyQ/oG9I]/QOyHIVR@P_].fMx0R0-e]}=nR:F'[8*VR>h[U.xmR@Rl4TZ| !RFiRPGJXkpRXX)>oinQmci@Yg0RoRKkJYaS1V8{X>oS3lpH19= !S3&:a?d6R}>Ms*_GR7ho?UcxRP%u%wQFRrQEzY0PRvc0zv&|Rf}t.N^jRT>;zr.5RF%U`sw1R8cU,%hk !P]mz+=5PREWWh9dsRmfz;c>WS/Pec<_%S1U(gnPGS1Sjb(FVS/?an}=;3@?M,SD;,J}NbSB.'D(BtS6PfBz@UQJc1cm<&S3^KHCcbS=0s2'RwS=;B7`F8S7,Z;KZ+S-u~ER1z !RE5l}VthQ<[cc-}9R6G}@oy6RBa=T@3-RXh;,nL*Rz%P:E9HS2(nDd:_S4[dXnT2S62YK;7oS2b{UrHv !RVgB+b{{Rw^,gQw-S;>KO&=NSCoeCj@NSC6x*@P(S5z9jih,R0m/D(qhS8C../keS@jPjn-+S>h.BA`} !S4rDE__wRP^oxPlMRGzx6[RcReMeFY[NRaj8|2G,R[G}Rk5MRaqbqKLJRsTC-:?AS-U\I?;gRw'{RbwO !RU8PBuOEQBm;6OV=R^myV77rS.yZvI+jS0\%qsQvS.WJ4G6yRN[jUOcdR7o3,00JRge,o7@)Ry'Jp6d7 !RgR<`(f|RAoc}D,VQvXz}T.SRF,zkLl,RN*n&]QORJt1RAdYRDBl2)A6R8aYvR,dQ8@ZFAoVR7rLPs<] !RI>c|`.tz|R2?k|.&,QtaXbTBAR4<>'gK* !R, !R3`o1xJ0RO2owY3ERU !Ru}tO)}=S/=>3^PuR}r0Sb]gRY]2;]A.R7;[fIscQ6Lo<%EFQ~C(}.hXR2Zzi}LLR<[K-_k0RLLg95kZ !RZ0R:e^QExR@k(}C5jRL`lU(}DRHhH[q}pR:X/&F5TQP%_RcYhR-V'4DB*R3}SYZbQR5&o`E;{ !R-z=1|(^Px?r1T`~R29AY1DcR8jI*W[cR6e?x<.nQ\rVYnRzR/W2x=DhR=?%8*kmRA0pu^8VR9KK>+&? !Qg(=.Kj[Qph%f9;rR4uG_a(yR4m}/|ocZIJQJ~^_(CUR717ROo] #% [ 326] data.chir_im !Q%%%%%%%O|UgpK.fO4y^o)=XOWD[lwZIP@[6d7@KQ0^(+WJOQ:Nb()lMQ>6^L1%sQ8)`,l?\Phzmui@@@h !Q/QR9/-'QMb,6LF:Qau]17:7QSH@R51xP8u*Gg)gQX}jQIpD>0'}Q=9nTF+zQK;sP9z_QQ&U}63iQ1O>fTO[QR4D+p@-Q|fTp>?_Q|uG1xvP !Qd/pG66rT\Q2R2hB7g=SQ`Nk|a]TQ8\SdMCU !QM+a%fL2R5h>h37HRIiz\);KqlRYP%`oWMRWO7F-fXRK|KFtg( !QykeN_dLRROM_G~cS0RkrUP^S6^0Y0E@S<5mR}dwS>~tUEs>S@Z*5(HES<_@>YmmS0LnA6KHS/bMA|n7 !SKcZXu]VSc`JgF4mSkeuu:g/S]MpKc}MS;Ljm5_]S6u3}wMPSVL+Z+tlS`b2YR(=SVK@5+BZS@;QyKLG !RT.o&(q9Ry1)S2Ui[?m)S8<-~FJ'S:y:?hr4S:MM2:u} !S2oaNeDOQL:\jmUwS3efZM/lSA&t,qrISE0P'o(7S?<'47Q|S1w`'tZfPA%0fq{jS.rc1vi/S2fU+sfz !S2A\)ZkiS022w|gmR|V/6N\5RxiwxMh-Rxbh+{>DRpH(0=zTRVS-3xw.Pd>~gUE~Rkt6WHC@S3z*XJcD !S;dH{~DqS=r8(d@2S7gdE0`0RSb);?AYS2y|iYv]SBH2ndGISF`zY(c^S>tIA.3XS0-e-A3%R_IyMb'X !S3|w>al[S5vJE;J`S1u`Y|olRwT34'/@RS{:bR5f%`RM1RAXem0%wRG~.hv3,RC{;K7o6 !R1mAlO]5R2d6xNi'RHqvW03aRNIbj+jUR@EIeBGFQL?b^T>oR1I~R|o=R3g&KmT&R-Rx6+|cQcG:QPar !R53d<A3]3tR\Zu}.y'R^ZKwOLxRRz2z.2BRJ&1}E]7RFe>\cB{RFaTi|GNR@Bs'pD- !QxZ&,)=~R73,wMOQRO`t7kZCR]5yT2\pRY:kkJoVRG4rA09.R/35SCVOR01|}:paR:l7yj2.RZoR;LA5;z)RY&e:\]4R_xZM8]ZRKF_5>KMQ>[/xWiURPoI\>wERf\1rT`7R`z~s*:)RMnBDhcERKiMl.-2R%%%%S>FhR%%%S>[%%%%%S>o;R%%%S@)R%%%%S@=hR%%% !S@R%%%%%S@f;R%%%S@zR%%%%SB4hR%%%SBI%%%%%SB];R%%%SBqR%%%%SD+hR%%%SD@%%%%%SDT;R%%% !SDhR%%%%SD|hR%%%SF7%%%%%SFK;R%%%SF_R%%%%SFshR%%%SH.%%%%%SHB;R%%%SHVR%%%%SHjhR%%% !SJ%%%%%%SJ9;Q~~~SJMR%%%%SJahR%%%SJv%%%%%SL0;R%%%SLDR%%%%SLXhR%%%SLm%%%%%SN';R%%% !SN;R%%%%SNOhQ~~~SNd%%%%%SNx;R%%%SP2R%%%%SPFhR%%%SP[%%%%%SPo;R%%%SR)R%%%%SR=hR%%% !SRR%%%%%SRf;R%%%SRzR%%%%ST4hR%%%STI%%%%%ST];R%%%STqR%%%%SV+hR%%%SV@%%%%%SVT;R%%% !SVhR%%%%SV|hR%%%SX7%%%%%SXK;R%%%SX_R%%%%SXshR%%%SZ.%%%%%SZB;R%%%SZVR%%%%SZjhR%%% !S\%%%%%%S\9;R%%%S\MR%%%%S\ahR%%%S\v%%%%%S^0;R%%%S^DR%%%%S^XhR%%%S^m%%%%%S`';R%%% !S`;R%%%%S`OhR%%%S`d%%%%%S`x;R%%%Sb2R%%%%SbFhR%%%Sb[%%%%%Sbo;R%%%Sd)R%%%%Sd=hR%%% !SdR%%%%%Sdf;R%%%SdzR%%%%Sf4hR%%%SfI%%%%%Sf];R%%%SfqR%%%%Sh+hR%%%Sh@%%%%%ShT;R%%% !ShhR%%%%Sh|hR%%%Sj7%%%%%SjK;R%%%Sj_R%%%%SjshR%%%Sl.%%%%%SlB;R%%%SlVR%%%%SljhR%%% !Sn%%%%%%Sn9;R%%%SnMR%%%%SnahR%%%Snv%%%%%Sp0;R%%%SpDR%%%%SpXhQ~~~Spm%%%%%Sr';R%%% !Sr;R%%%%SrOhR%%%Srd%%%%%Srx;R%%%St2R%%%%StFhR%%%St[%%%%%Sto;Q~~~Sv)R%%%%Sv=hR%%% !SvR%%%%%Svf;R%%%SvzR%%%%Sx4hR%%%SxI%%%%%Sx];R%%%SxqR%%%%Sz+hQ~~~Sz@%%%%%SzT;R%%% !SzhR%%%%Sz|hR%%%S|7%%%%%S|K;R%%%S|_R%%%%S|shR%%%S~.%%%%%S~B;R%%%S~VR%%%%S~jhR%%% !T.R%%%%%T.T';R%%T.V)R%%%T.X+hR%%T.Z.%%%%T.\0;R%%T.^2R%%%T.`4hR%%T.b7%%%%T.d9;R%% !T.f;R%%%T.h=hR%%T.j@%%%%T.lB;R%%T.nDR%%%T.pFhR%%T.rI%%%%T.tK;R%%T.vMR%%%T.xOhR%% !T.zR%%%%T.|T;R%%T.~VR%%%T0&XhR%%T0([%%%%T0*];R%%T0,_R%%%T0.ahR%%T00d%%%%T02f;R%% !T04hR%%%T06jhR%%T08m%%%%T0:o;R%%T0shR%%T0@v%%%%T0Bx;R%%T0DzR%%%T0F|hR%% !T0I%%%%%T0K';R%%T0M)R%%%T0O+hR%%T0Q.%%%%T0S0;R%%T0U2R%%%T0W4hR%%T0Y7%%%%T0[9;R%% !T0];R%%%T0_=hR%%T0a@%%%%T0cB;R%%T0eDR%%%T0gFhR%%T0iI%%%%T0kK;R%%T0mMR%%%T0oOhR%% !T0qR%%%%T0sT;R%%T0uVR%%%T0wXhR%%T0y[%%%%T0{];R%%T0}_R%%%T2%ahR%%T2'd%%%%T2)f;R%% !T2+hR%%%T2-jhR%%T2/m%%%%T21o;R%%T23qR%%%T25shR%%T27v%%%%T29x;R%%T2;zR%%%T2=|hR%% !T2@%%%%%T2B';R%%T2D)R%%%T2F+hR%%T2H.%%%%T2J0;R%%T2L2R%%%T2N4hR%%T2P7%%%%T2R9;R%% !T2T;R%%%T2V=hR%%T2X@%%%%T2ZB;R%%T2\DR%%%T2^FhR%%T2`I%%%%T2bK;R%%T2dMR%%%T2fOhR%% !T2hR%%%%T2jT;R%%T2lVR%%%T2nXhR%%T2p[%%%%T2r];R%%T2t_R%%%T2vahR%%T2xd%%%%T2zf;R%% !T2|hR%%%T2~jhR%%T4&m%%%%T4(o;R%%T4*qR%%%T4,shR%%T4.v%%%%T40x;R%%T42zR%%%T44|hR%% !T47%%%%%T49';R%%T4;)R%%%T4=+hR%%T4?.%%%%T4A0;R%%T4C2R%%%T4E4hR%%T4G7%%%%T4I9;Q~~ !T4K;R%%%T4M=hR%%T4O@%%%%T4QB;R%%T4SDQ~~~T4UFhR%%T4WI%%%%T4YK;R%%T4[MR%%%T4]OhQ~~ !T4_R%%%%T4aT;R%%T4cVR%%%T4eXhR%%T4g[%%%%T4i];R%%T4k_R%%%T4mahR%%T4od%%%%T4qf;Q~~ !T4shR%%%T4ujhR%%T4wm%%%%T4yo;R%%T4{qQ~~~T4}shR%%T6%v%%%%T6'x;R%%T6)zR%%%T6+|hQ~~ !T6.%%%%%T60';R%%T62)R%%%T64+hR%%T66.%%%%T680;R%%T6:2R%%%T6<4hR%%T6>7%%%%T6@9;Q~~ !T6B;R%%%T6D=hR%%T6F@%%%%T6HB;R%%T6JDQ~~~T6LFhR%%T6NI%%%%T6PK;R%%T6RMR%%%T6TOhQ~~ !T6VR%%%%T6XT;R%%T6ZVR%%%T6\XhR%%T6^[%%%%T6`];R%%T6b_R%%%T6dahR%%T6fd%%%%T6hf;R%% !T6jhR%%%T6ljhR%%T6nm%%%%T6po;R%%T6rqR%%%T6tshR%%T6vv%%%%T6xx;R%%T6zzR%%%T6||hR%% !T8%%%%%%T8'';R%%T8))R%%%T8++hR%%T8-.%%%%T8/0;R%%T812R%%%T834hR%%T857%%%%T879;R%% !T89;R%%%T8;=hR%%T8=@%%%%T8?B;R%%T8ADR%%%T8CFhR%%T8EI%%%%T8GK;R%%T8IMR%%%T8KOhR%% !T8MR%%%%T8OT;R%%T8QVR%%%T8SXhR%%T8U[%%%%T8W];R%%T8Y_R%%%T8[ahR%%T8]d%%%%T8_f;R%% !T8ahR%%%T8cjhR%%T8em%%%%T8go;R%%T8iqR%%%T8kshR%%T8mv%%%%T8ox;R%%T8qzR%%%T8s|hR%% !T8v%%%%%T8x';R%%T8z)R%%%T8|+hR%%T8~.%%%%T:&0;R%%T:(2R%%%T:*4hR%%T:,7%%%%T:.9;R%% !T:0;R%%%T:2=hR%%T:4@%%%%T:6B;R%%T:8DR%%%T::FhR%%T:K;R%%T:@MR%%%T:BOhR%% !T:DR%%%%T:FT;R%%T:HVR%%%T:JXhR%%T:L[%%%%T:N];R%%T:P_R%%%T:RahR%%T:Td%%%%T:Vf;R%% !T:XhR%%%T:ZjhR%%T:\m%%%%T:^o;R%%T:`qR%%%T:bshR%%T:dv%%%%T:fx;R%%T:hzR%%%T:j|hR%% !T:m%%%%%T:o';R%%T:q)R%%%T:s+hR%%T:u.%%%%T:w0;R%%T:y2R%%%T:{4hR%%T:}7%%%%T<%9;R%% !T<';R%%%T<)=hR%%T<+@%%%%T<-B;R%%T}TRQsJX92%ROPU~H5yRKT|iM[ORG1ZJnH8 !RA8\GbowR;(kjqbXR3]-{xEzQwp(-{>CQ3m7o}'WQT%)r-lyR0'-Ek5%R44W/,B,R6e~|zGPR8X=Kzc7 !R8kD\hJSR8CDbQ+RR6Iy*RwWR4/nO:0NR0`t{EazQzLs/{n`Qb9)Re4KQPS9{a1=QH<)s88cQH^c=sbh !QR_vGK.qQbRz'Jf~Qt{k,TSeR.y/1GcmR0bj,`=rR0zEnHMJR0^&bTQ{R.aA{;@EQbh}iq4%Q<,o{F]: !Q7LYw74ZQUA'\REAQkL-=,O7Q{4GxdFKR-cCn^G-R-huF083Q}\',YnrQqW.BDFfQ_}V[XCXQKogCG6H !Q7(HS4n7PHj\`_tJQ<[&v'J4QLQb)%wdQVVS[_zVQ\.yg?)NQ\-%*RO4QV>&9Q{tQJhcl))NQRThjQENQXZa(Q;ud-tGcQ/>}oVLdPj{b\P18 !QB5}e5M:QZ)~n}:DQr(8Cn@oR.sESRJwR0`i%85hR2*-qR^~R0{E,QF0R0CG]dv]Qz6cPF0IQZ}ApGy< !Q86ZS\)7Q7J.U-UwQYmzn9k3Qw-:cA-ER/,\s%:XR/TOFZZZR/KQ}dj3R-q-(+[2Qq}T;(=^Q[KM|\Vf !QCP-OR%wQ-\7D>&kPr`2]I+,Q8:zFYeJQwjY~.Q1h6hjkKP:+vgg4SQ4D|oEv+Q<}0U3JkCZhQ:Q+h^82Q4}n)V^NQ.[cf)DFP.eE+j,rPwM&x@Tt !Q5pUM?w>Q?1m9}='QEZ|EMIAQIpW9=~kQK\Xl?(1QIr8(-MgeQ40o@XiLQ8OBr9K=Q:pmb@?;Q\KQ<(0x(o2Q:7Bs/s.Q8'W\.(4Q4cV9(7^ !Q2CxGeQ8Q0*;^g1_PraH;&:kP\T7,{i2PFbjxFkoP0\;qdS1P1133;@qPIi.We\LPe/MNokDQ-XWE-+C !Q/t:t`FgQ3*+d;PRQ3|`\qZ1Q5Ss_UsFQnU !PerA~um6PShLXI8pPC}:-lbzP9-'RR3BP1,pk:pdOk72K1.COE31)Jo{O014>(uVOnPc:9X~P6=:3'ts !PBK0E,DkPPhK<0_SP`FDtBN{Pn7V@tfZPx)(J[Z'Pzn25J@7Pvl)khM\Pjj=j(m*PX16h]7sP>o7I3(j'P>HT}5UPPP6~J,>qvP2cYSaQaP.mKTeDSOp*aYv5cOl=:B/Hz.O{%[cPE0P3o@+S1MP9a[M=e^ !P=Jj>xTtP=n|Ftr5P;r@)DlaP7fCSt7~P1l%}gd,Ok,:y=@ONik-&,|HOT+7SfPMOz0yzU2kP0?{s&`A !P0`-wn{1P0S0tVQHP0.OZpK-y20Otz5}H`nO~kw](AQOxiQ6-jIOfi2gct)ONej^O(GO6~LC3A] !N2)Unk(PNSrD>a[UN2mTy/5FO6x[qj9;,K{-GOO_B\@V+O}.-bO/`)OcGVkh{JOmvE8=h} !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% #% [ 499] fit.win !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !34cq7@_qP\d.b0>a.Y0_RDV:R'P;RJ}8^_{; !RRQ~l{m_RZ&j{e]6R`Mi/a'+RfeBU>AgRlf<^4ZkRrIt~qH|Rvd<3>|zRzV>kZJ9R|utyOu[R~f+1_1G !S.Q~~~~|S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.Q~~~~|R~f+1_1GR|utyOuZRzV>kZJ8Rvd<3>|yRrIt~qHzRlf<^4ZiRfeBU>AeR`Mi/a')RZ&j{e]3 !RRQ~l{m\RJ}8^_{9RDV:R'P9R>>a.Y0]R8=g(_&nR2Z.e_*5Qz|I*-KxQVT/C@W2Q<&.Fj0{P\d.b0<2 !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% #% [ 326] fit.r !Q%%%%%%%Q@mT6zLPQ\\)HuszQxJXZqAKR0T%t54lR2vSAjK=P2uT !R@mT6zLPRD5jwg}KRFX'^UTFRHz>EC+ARLBU,0\=RNdklx38RR-(Sed3RTO?:S;.RVqU{@l*RZ9lb.C% !R\\)HuszR^~@/cJuRbFVpP{qRdhmW>RlRh1*>,)gRjS@~sZbRluWea1^Rp=nLNbYRr`+3<9TRv(At)jP !RxJXZqAKRzloA^rFR~5,(LIAS.W'|o-TS.cN;@;KS.otSkIAS.|@lc\^PS2+d|-lFS281:Xz=S2DWS*.3S2P}kU<*S2]J*&IzS2ipBQWq !S2vSAj%~`eKqS>2Jy6YgS>>q7ag^ !S>K=P2uTS>Wch^)KS>d0'/7AS>pV?ZE8S>||X+S.S@/HpVa%S@;o/'nuS@H;GR|lS@Ta_~0cS@a-xO>Y !S@mT6zLPS@yzOKZFSB,Fgvh=SB8m&Gv3SBE9>s**SBQ_WD7zSB^+ooEqSBjR.@SgSBvxFka^SD)D_1huSF&BV\vlSF2ho.*cSF?5-Y8YSFK[F*FP !SFX'^UTFSFdMw&b=SFpt5Qp3SF}@M|~*SH/ffN1zSH<2~y?qSHHY=JMgSHU%Uu[^SHaKnFiTSHmr,qwK !SHz>EC+ASJ,d]n98SJ90v?G.SJEW4jU%SJQ}M;buSJ^IefplSJjo~7~cSJw<:PSPn5|iHFSPz\;:V= !SR-(Sed3SR9Nl6r*SREu*b%zSRRAC33qSR^g[^AgSRk3t/O^SRwZ2Z]TST*&K+kKST6LcVyASTBr|(-8 !STO?:S;.ST[eR~I%STh1kOVuSTtX)zdlSV&~BKrcSV3JZw&YSV?psH4PSVL=1sBFSVXcJDP=SVe/bo^3 !SVqU{@l*SV}|9kyzSX0HR=-qSX')R3Sb-d?T`*Sb:0X%mz !SbFVpP{qSbR}.|/gSb_IGM=^Sbko_xKTSbx;xIYKSd*b6tgASd7.OEu8SdCTgq).SdO{&B7%Sd\G>mDu !SdhmW>RlSdu9oi`cSf'`.:nYSf4,Fe|PSf@R_70FSfLxwb>=SfYE63L3SfekN^Z*Sfr7g/gzSf~^%Zuq !Sh1*>,)gSh=PVW7^ShIvo(ETShVC-SSKShbiE~aASho5^Oo8Sh{[vz}.Sj.(5L1%Sj:NMw>uSjFtfHLl !SjS@~sZbSj_g=DhYSjl3UovPSjxYnA*FSl+&,l8=Sl7LE=F3SlCr]hT*SlP>v9azSl\e4doqSli1M5}g !SluWea1^Sn'}~2?TSn4J<]MKSn@pU.[ASnM2BF3T !SxJXZqAKSxV~sBOASxcK1m]8SxoqJ>k.Sx|=biy%Sz.c{;,uSz;09f:lSzGVR7HbSzS|jbVYSz`I)3dP !SzloA^rFSzy;Z0&=S|+ar[43S|8.1,B*S|DTIWOzS|Pzb(]qS|]FzSkgS|im8~y^S|v9QP-TS~(_i{;K !S~5,(LIAS~AR@wW8S~MxYHe.S~ZDqss%S~fk0E&uS~s7Hp4l #% [ 326] fit.chir_mag !QJ]B^mRjQHhkX\,`QD*ES}G/Q:Wp8_2>Q0f85>lJQ60\pS}IQD[:A=d4QRFouI,JQZ:5F*UDQXk-F?<* !QNKXmkf8Q:fSjN}iP~W8.P'9QH;^6D13Q`A}`<0,Qp.'z-m?Qr\+HwTKQh9:f[wvQRY5Ab)EQDX\xTd, !QZH%2nR251VeT)R0{7yKlCR4RbGy_)`HFR:v-0*HCR<&nbnM7R8wjO67I !R6E8~Y+SR6+~I-p\R:3_te}`R@?ZIAbuRDy4+w(8Snwu[y]+SjKqKJ>.Sbq3rPJ\SZN],L-XSP^tOUeK !SFjb'BUNS>9*Nt7^S6@Sd7LRS0>%EPamRhJZU`eQRX@piCh?RTh;//hERR}n_}>xRP4`kCXwRJO}'0Vf !RD6a/SD]R<;P/).|R2M)'}G|Q8)jp=`%R.|y3'C(R:=-tq8HRB9m>@bFRFLN_Sf\RH>e^5AbRJNTM92H !RRD^eL@dR`dE_q|hRt?TWC?VS.zo}|j>S0wR.V5:S2fszrjVS4DRTUpeS4h^nI-[S4yH,'i|S4wpeJ8n !S4eUVW?cS4DI1mleS2p~f53oS2:s83p4S0Z\3c_7S.{]ZN0BR~,KBn21Rt~H+BY/Rp~G;-7?RrSVHvpU !RxUO%PZ@S._nWiMkS0>4jO>QS0}3>^QdS2gflH}+S4Zv[=ZVS6[qX6E.S8n/Nj48S<6*[m}bS>_c+=)o !SB*3O'[RSD:_:-F`SF)7L(>jSFE*j0F>SF.1v;;9SD=jGCKPS@xcpn*eS>4]9c,5S:3_kAfmS6.L+YfJ !S2>3k4zES0+>vn`rS.m_|F9,S0B{/)IXS20y9]jNS2oLb-}}S49n:=';S4=V}Oo2S2z.;YD[S2>}5Qog !S0Fh:@I:R|%WoUn]Rdfz(<)mRN~L/VYTRQZ/IckPYQ.tQA9]vQFSp}|riQdoESKxc !QtUxT6{gQr``+cnuQ`xT?;?FQDVI,w3%P@^X,Ow)QH<8TNE~Q`7X_NySQl..^.hQQj4Zfim)Q\)((ck9 !QD[29i59PzE?[mW5Q*4QVYyaMkdQJfX_El~Q8r1spFdQ0YK{^WyQ@Uw7[%s !QNMj;*5IQTKFK]RGQPu`@CBDQFKY?g_pQ6rOT(ysQ23?j|.MQ>^=4i^AQJA6&)L~QN^72vUoQL/Zzs-G !QB@1K)tbQ4wu=J4sQ2%UehNjQ4wbQ2nGk[/TQ8[;a3CiQ:uziz;9Q:6{oo'bQ4j6eV}jtQ0Sqms=9Q4|7VQoX !Q81>VkIPxA>Ob71P|v**7z+Q0XhO'VmQ2H\5`wTQ2DG5I('Q0Kr3dO9Pv0d5o,uP`W-v6?wPfh0_[Eq !Pzixoy~jQ.vj.3&3Q.lZA,OHPtZqm/uFP\i|`0>.PR[38nfCPdRBjbiAP|VHA\GrQ00z(,3VQ0=/7{T* !Q.o0m+&vPx.hKKTcPnZ_c_[?PrQ_l5`BP|zb4cUkQ.ixyY2mQ._p6OGUPt{Dow.hP`Fd3G-8PJ}ymyK7 !PHi@W\LlPXOKf{|iPfVZZY~@Pl?AVRU.Ph8nDDB`P\q]6..xPRys{/TMPTNp9\UsP`0iZ7NXPl=90|H0 !Pryr`nRFPtE^zGX8Pp=AqhKNPjRnOk.APh3ib8OrPh}@U`7EPlf+nX1'PnV@zmCsPlD%RSx>Pf+2So}w !P\]u\cJ9PT](\eLqPPV;QmZwPPRC~/ThPR,1/]=uPPtndY3\PNJiZ3FwPJ%G{m;?PDUnKfQ2PB,@ZT\S !PB)01vtFPBw9t|>kPF&`yS&aPH7H_,]%PJfg}\m5PNp;B3>TPTI;~,{fPX|sUbOMP^%]@EtOP`*e\>xS !P^{>f3auP\nEn78`PZ,O]vqBPVN-j`\=PTY<'El4PTZS=h{f #% [ 326] fit.chir_pha !SB1D)d%oS:O>%EY5S2g}/6aBRZd:GxbGRib/Ph/8S=3>J+WQSEhB@g~YSM.CM9ckSS+pW0%fSWp74j3^ !S]G*|Cb6SaBSNwiYSU+=uXWgSS]}k^D)SWg9CWqiS]%Ce4,0Sa7h%.%.Se3,7w-YSg+SmT%zi79SoW,p.3uSm|Dsr[BSkwU0o3bSmWfz95=Sq*8a,B0 !Ssl6{LA+SwOAGyc?Sym0Oj{[S{A0o{L9Sys}K_(CSyuwcT/ltK+f`T/{G9`G/T10Ro@^ZT1>fffi5T1JlMTv\T1TKE+liT1]HRX)nT1h:fvMXT1uh~'4U !T3+5[LJ(T3;NK4V^T3Kc=cG9T3[?8+]^T3j/3zaqT3xYZkd2T5-TQy2}T5=_o3&pT5O9L/]1T5b1|mnd !T5v2XfvkT70}`dBAT7FK[EugT7\A6du+T7rRn;Y;T9.w=raqT9ELh|u5T9\%^f-8T9rS/G/_T;.ns>i< !T;DdhmMRT;YiHIZvT;m0hwziT;})g}L(T=,e\({AT=1Oo]QDT=;M,{VQT=N+ST:mT=fV^C+sT?(Dl@g( !T?ESuh-oT?bUnnY;T?~m2vWUTAIHe~pTT?-e5*khT?E4pI~sT?YUX=)?T?jXUe=*T?vw<7i;T?}m^4X= !TA(m(h6VTt@TAMpQJ1zTA^|JxisTApr^{={TC)1WFBhTC;^IS}0TCNAo0JqTCa9(h.o !TCtIvzq*TE-y?&]TKSjK(TN !TKfvzFDfTK{%kv;STM5v/jKeTMKI}EvzTMaE1MaLTMwV([AiTO3g.RdGTOIYW7]7TO^UXd)mTOq]zD_k !TQ'9e0XPTQ1bd2PCTQ98sXYxTQD9M/TKTQTdHQ`tTQh{x?X1TS%J\A`]TS=1a_d4TSU^q,gFTSnaC'x: !TU./VN,}TUG~Oe->TUbN9g'XTU}{fGZ+TWAwz023TWi/Q`H\TYc9Hs]XT[CFPKV;T[j'=^KqT]9RR+lm !T]kRH7|3T_A:2y2@T_fV;ty4Ta+W0}IFTaGL\Wa9TaaL_pNATayH`M&,Tc&6P[%yTa6)aQ9PTaKAv8XL !Tab_T*?kTaz<[eEITc7oy.]OTcO)oamHTaKeC(EFTaZAhCTETaq9}D-kTc./(%\5TcD[|6|ETcZ5SDc( !TclXh=?9Tc\g'|'~Tc2fXkaJTcBq~LQ0TcW)yrgJTckW>rS[Tc~W(h2jTe/v2'JnTcc6pq=ETc[EGZ;8 !TckO0{16Tc~kmhD*Te8>2F\lTeIlbh:0TeQm;u*lTe0w.?kUTe+:\(w&Te:4TB'\TeL^Tt7RTe_DVa|` !TeoqxjHGTev&4LRzTeXcmL:CTeSx']C(Teb*rEomTeso(H?TTg+`UX}wTg:OyeybTg;O`NgxTezT?s[m !Te{Mk>YhTg0B_B0LTgBGH\NDTgTj1l}ZTge2|ni2Tgkt@zfCTgN@V4soTgGrA1nyTgU]gSy=Tgg:S?=d !Tgy8iw6,Ti/B{VrlTi8M4erKTi+~EPH%Tgy]+Ek-Ti(Nw./&Ti7pu2K>TiH=*)J,TiV2.c+`TiX:k<}G !TiB.xoGlTi@>_PfQTiMUICB[Ti^^4L=qTip?0P[HTk&'WcAWTk,rDSf[Tini+NrJTiej0sk2TiqoeW(- !Tk(D03aeTk98WDniTkG`jk]%TkMKgeGfTk?^k6;+Tk9+*X}QTkB{|y`xTkR1DZUZTkb@(W*}Tkp}oK/b !TkzYxzdqTkx|~7TSTkr0{5<1=@TmI\yG:rTm@nA+yx !TmE=nUKXTmQRZo3eTm_l5YtRTmlL_F2VTmq=h[`GTme&C}F?Tm]ooyIHTme~l.m}TmsT|E[4To'zn*0Z !To4dxz4hTo=31q_;To?ev'w0ToA@^=hnToHBn654ToT>yl7|TobV7o>6Topjq(T%To{h.PkUTo{DN~4g !Toj}Z&c^TohfVU\0ToraFCB)Tq%vb[)9Tq2]%-RcTq;SMQD=Tq0Tqq&A/gdTqv^\|8ATq~VdmwBTs.`&}/tTs9eOH8sTsD:y?x/ !TsL^2?4RTsQW('VWTsS_|H?0TsVD>~O{Ts[v9SC[Tsc\>*,ZTskb*w0]Tsr6:,CyTsuO^36BTsuBzL3W !TstHJR?kTsu?PL=dTsw}\3hzTs{I+,e@Tu%7%Tu)|75KATu0Fo.(UTu8T7IBmTuB%8mv.TuL5~GHH !TuVJ'[V*Tu_}8CI>Tuh;[B|,Tunw'.DGTutPxI/ZTuzEc;PIqP:q1/V`rQ6i?'Tm.NRDybVhxsR0VDemT[Q{+VC6.VR=R1c/53ROnc-pvkRklhd9sES/H2H1*k !S1}K4.vqS3QlmiPAS1KdCvm_Rqfk^b9;QKR]\^:NR~o*P5Saj-?CK.Sq%E8{qCSendXcs[SG`hk643R0czP5[FSBFUE;{|SLTR1Bkk !SFcx58QBS8}s?k-gRr88flK@Q~kIA0&VR//L'l\0R1k2d8g8R;h&/,XcRK)}ryxRRO4V\;7LRA3hIT:Z !QS6k4+7fR2%`lb:jR21M;GRvQ4R=;'BSQg[&gdxtQEUKT0KhR.iG6pr\R]PFVPXK&;Rcu@1^F'S1-t~o-&S3jYgReBS3_F/QOr !S/eRIxj&RWD)1zIKR8MLV]6SRp*bBym4S0+EzVV5S.z|Ps5JRr3f3{urRR{Wr/W7R65/Zc`=R/gyC|08 !RMH&;).YRm2dyni/S/*5^zy%&^JQQnz*x=jmQOd|>g]cQK.7'&`/QJopSZhfQrgz=<;8 !QDH,j95>Q_W=.no8R/O'7u:GQsfxGDwAPCXtE\?2QX{+E&^>QVH}/%@_Q.l&t>s>Q3>O5fG-PPo1dogr !QTi^55WEQnInB:lsQ`,*)jhIQ:c^YY0XO:aj+w>cQ4C.R;^>QV_Vl2uAQl..LN%2Q`)}LuQwQ>Y025Ak !P.]M)CgvPH@@PSfqQw !Q3.bJN*9Q5MN1GhJQ1}n{7gxQ-Wuk1>oPo12;keNQ/7yU^/CQ3MKoeT~Q5+zoF?|Q19i1d(wPe@43D@^ !P;~rx30cP9ZK@>9NPI:(v4]gPGX~tb,,OA1no'*wPN|yJUF{Ph{2]YbIPd3,X?AVPP+G878jPHp^@SRN !P\.),yFHPv~7iH:YQ.a;F%/^PtNeKEFuP\77+H,:PRPp)~BHPb?D*QR*P|Jwt?])Q.{cIus^P|*t?|hw !P^to1MCxPH=/7+M>P@:`2S/DUn7P2ur\kdmP1UO9X7/POu%?VO(P_kOS{mwPYC4EY4wPEy_^2M] !P;J:`GurPCm5*NPQPHK;w@PSFbv|FjP]uY6,wfNDBDQD&phs_5Q0vb^_:QPss|7M|/Pi[&H6u@Q6Vl'Tr^QPdhI82AQV%4i6/fQ@?e7Mt> !P-f\RCDCQ-fQ*T,8Plp+d9AwQBm3j2@pQDa|*l~LPR?:%QSOQE,vv`JgQW:Fh\S8QM8T+4d3Q99-~Ra9 !Q7|z*f{qQW8LFtP`R-_'%1fHR/hU5s>{R//*yO9QQmI7gLuCQaIkVaVCQwAEA2ObR/z6+q6jR1W7OP\< !R-uG={`yQI/AXKrzQ2WA').]Q>?4p(2`Q23GHt4VQ6/d:^DRQbs^^1&bR2]e^%}^R8:{bvdIR8R6d8\g !R6;-\]?3R4q[4q0HR8rg^2EJR@>e`r%_RD@iEb[+R@vxQABzR8n.my,qR0iv|??TQp?ix]?_Q\%Nt6*m !Q/(r/_DrR5)VvL>vRIVyUY6QR[rf:eAYRe\/opg1Rg/:@+,KReR>[Z./RebXoF/&Rc(]dGmvROXRee}i !ON`qJEV@Rdu;X)RBS2`GG`spS8\}W8N1S_7j4NsS>%1SNbVS6N4/:B5R2Z'E&@}S;=n(e,Y !SUNj'A?]Sg]Yk+`QSgTNP0r{SQ8Q;9XmR_MirKA|SFw;jM%7S`V~4v.sSbpc7a\iSR8f',RMS8Bv;Zy5 !RCqJO\`1S3)3xc&wS3Fd@hVaS/.U4|YvRM>(h6s9S/NQ,cSxS38.i?eXS14_-Cu*R]s8DB]U !R6.Oze^eRbWAUX,RRdOx7zyBRHseU}Q>Qf@aBXbzQaJPKdG5Q5XLkLJMQj*GV\zTQt`eZx)3Pv4[vn`Q !QefB&vd.QeLZ/V9)Q.v?D7}uR.X?-MRhR0fOZVQ3,<10cdQ;>d)aaqP@Zm5Wf)QD\|(h|oQD`iF+?4Nx9gr]>'QG~%(V@rQSyehr~* !QCZT^Q[EPq`e/2THP?L2e|C1KxQD?_%kULQ:dGcRaQ0NDm*7]PN;h|IA_Pv_pNs,JQ6M%Mrz+Q8yzbpQ{Q28PMbd} !OMo\\VMkQ-X4GEj6P{~z`7~,PCpu5ZmDOEgfxK|'PS-f.[@JQ1E(VH6vQ5g,]c\lQ3\<%[=6Q-a?I)n@ !Pg3Lv/8rQ/=TNaQbQ5sn+pw|Q9f@2;[6Q5}a8%UtQ/.z^-TFPU(Rk*p0P]ezPOrCQ/K@[9=-Q3)|:[lA !Q/gb/Y7mPQg3v|k{P2X~WjhkP:~6MjBZOqpW]/.;PA9J^J+BOEPeH7f~P`dt<.v}Q0o'R_Y?Q2XmHg`. !Q0FxqgvIPtx|2Z/yW8CPzHR[;,zPX??cf;PF/uOdC9q:q^OH+Cr>X)O=fh\CINP/Fe[YSYP5oiP@90P9>`+pI:P7tI>FaeP5wFx^NO !P5^N*tkYP7KoG]@[P9xoVPq_P=i>a.Y0_RDV:R'P;RJ}8^_{; !RRQ~l{m_RZ&j{e]6R`Mi/a'+RfeBU>AgRlf<^4ZkRrIt~qH|Rvd<3>|zRzV>kZJ9R|utyOu[R~f+1_1G !S.Q~~~~|S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.Q~~~~|R~f+1_1GR|utyOuZRzV>kZJ8Rvd<3>|yRrIt~qHzRlf<^4ZiRfeBU>AeR`Mi/a')RZ&j{e]3 !RRQ~l{m\RJ}8^_{9RDV:R'P9R>>a.Y0]R8=g(_&nR2Z.e_*5Qz|I*-KxQVT/C@W2Q<&.Fj0{P\d.b0<2 !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% #% [ 326] init.r !Q%%%%%%%Q@mT6zLPQ\\)HuszQxJXZqAKR0T%t54lR2vSAjK=P2uT !R@mT6zLPRD5jwg}KRFX'^UTFRHz>EC+ARLBU,0\=RNdklx38RR-(Sed3RTO?:S;.RVqU{@l*RZ9lb.C% !R\\)HuszR^~@/cJuRbFVpP{qRdhmW>RlRh1*>,)gRjS@~sZbRluWea1^Rp=nLNbYRr`+3<9TRv(At)jP !RxJXZqAKRzloA^rFR~5,(LIAS.W'|o-TS.cN;@;KS.otSkIAS.|@lc\^PS2+d|-lFS281:Xz=S2DWS*.3S2P}kU<*S2]J*&IzS2ipBQWq !S2vSAj%~`eKqS>2Jy6YgS>>q7ag^ !S>K=P2uTS>Wch^)KS>d0'/7AS>pV?ZE8S>||X+S.S@/HpVa%S@;o/'nuS@H;GR|lS@Ta_~0cS@a-xO>Y !S@mT6zLPS@yzOKZFSB,Fgvh=SB8m&Gv3SBE9>s**SBQ_WD7zSB^+ooEqSBjR.@SgSBvxFka^SD)D_1huSF&BV\vlSF2ho.*cSF?5-Y8YSFK[F*FP !SFX'^UTFSFdMw&b=SFpt5Qp3SF}@M|~*SH/ffN1zSH<2~y?qSHHY=JMgSHU%Uu[^SHaKnFiTSHmr,qwK !SHz>EC+ASJ,d]n98SJ90v?G.SJEW4jU%SJQ}M;buSJ^IefplSJjo~7~cSJw<:PSPn5|iHFSPz\;:V= !SR-(Sed3SR9Nl6r*SREu*b%zSRRAC33qSR^g[^AgSRk3t/O^SRwZ2Z]TST*&K+kKST6LcVyASTBr|(-8 !STO?:S;.ST[eR~I%STh1kOVuSTtX)zdlSV&~BKrcSV3JZw&YSV?psH4PSVL=1sBFSVXcJDP=SVe/bo^3 !SVqU{@l*SV}|9kyzSX0HR=-qSX')R3Sb-d?T`*Sb:0X%mz !SbFVpP{qSbR}.|/gSb_IGM=^Sbko_xKTSbx;xIYKSd*b6tgASd7.OEu8SdCTgq).SdO{&B7%Sd\G>mDu !SdhmW>RlSdu9oi`cSf'`.:nYSf4,Fe|PSf@R_70FSfLxwb>=SfYE63L3SfekN^Z*Sfr7g/gzSf~^%Zuq !Sh1*>,)gSh=PVW7^ShIvo(ETShVC-SSKShbiE~aASho5^Oo8Sh{[vz}.Sj.(5L1%Sj:NMw>uSjFtfHLl !SjS@~sZbSj_g=DhYSjl3UovPSjxYnA*FSl+&,l8=Sl7LE=F3SlCr]hT*SlP>v9azSl\e4doqSli1M5}g !SluWea1^Sn'}~2?TSn4J<]MKSn@pU.[ASnM2BF3T !SxJXZqAKSxV~sBOASxcK1m]8SxoqJ>k.Sx|=biy%Sz.c{;,uSz;09f:lSzGVR7HbSzS|jbVYSz`I)3dP !SzloA^rFSzy;Z0&=S|+ar[43S|8.1,B*S|DTIWOzS|Pzb(]qS|]FzSkgS|im8~y^S|v9QP-TS~(_i{;K !S~5,(LIAS~AR@wW8S~MxYHe.S~ZDqss%S~fk0E&uS~s7Hp4l #% [ 326] init.chir_mag !QdwxxR2;QfoZP>veQj+oZ[+?Qh08/6TGQ`1eyQ-JQVsGsa^~QZUf>ZU>Qjo2Ks<]Q|?Sw4\xR.aN\/6X !QzI_*B|NQb=U6I6ZQD[ZG7MjQRb?'J^[Q|0_*SW@R0zu5H5=R2\~mrAUR2'{`5L8Qx^Mx9f2Q>sep,^J !QRL+u3kSR0Y-fgAUR60^WbW*R8>wU9GvR6bf;|Q*R2>yZd'vQXL|/^jAAR>t\O6nHRF?K`g1pRF|%%2@iRBZYAb4+ !R8c-'N[WR0@z-a0HR8\\Rv`.RFlUdcghRRHIr.;/RVucy['?RTa9hktkRL-I|*b1R@^`=ZUHRBAE/DuU !RR`WuESdRf>wNjNfRtfTsyt{R|>SbR5JRzEu,n,|Rpr/59hI36@S@'3~bF*SBKSU\j9SH5gi0skSPZ9%>viS\DbEyLoShrW>SOM !SvJy3bIrT.^)^:H}T0-wfa5cT0Gw[-(^T0O2tRT'4L]rARbz}lt85Rn0T8~hiRp+g&avGRjZ_]N_3 !R`??M~_[RPU^y?e=Ry?OS6h]RzA9S:F9SDgMS>l_RhwKl[j{RdLS^LzVRzCrj3mp !S0n\/UwIS4Ay/1rTS6N`]Me]S80}vjiXS8Ml.hh)S8t&xIpKS*S>001bXXS4Va=cGjRnN/2TTsRJjuy8Q,RlI4xGT^S01i{LYzS0}uq1=pRnKe.OGcRZscJ%*,RNC7'UCxRHAE)P|bRF,RRaIWRBuZe6%pR@a7/c):R@HKA{:gRBNDGL/0 !RDtEPRmKRFJnT>zkRDLN3?GaR@(pfFCvR:.spi=GR6Di_XZ`R8')D|w_R:i.0OwURhR2)fqTx)R.ts6TxQ !R0LN~Z)FR2[v1~J;R461RW|WR2jAku4^R0Q+}V.5Qv:NC%aGQns2Kbx>R.jAp33gR0y37,I.R2FiDNIE !R0tLwRl~R.^ZQ?-YQfh|d^T=QbAv*crQQvi*v')PR0/>l?y.R0OzM~IYR0%}?J'OQrn-I9j,QZ;(2md/ !QTffkg=DQf{'uFehQxlI3Ot1Q~T*T^f9Qt{/Pa+PQ`U_'E6xQJ'Il-b3QHG>'P1[Q\>bB93;QlS0`J&c !Qp|SZIH.Qj&\wl-HQX)ydYU@QD=N:1SqQBxE3o,kQTEr4>-]Qb>f-Q^aqTR(TQNbrhb;B !QXGDYU,Q6Jh9\,zPb]2;YPxPb6d%&6r !Q4c8+TfgQ:gXJx{aQ<];s^VmQ:Bx.P=YQ4=xh0O6Pf2p6m5kPBD,tKYgQ.u8wQX/Q46\bS}1Q4rB]M]y !Q2t1UoO{Q.\I1D-4PLhT&kTHPZR*gpcRQ04&dijMQ2w/`DjoQ4P+o3'*Q2tN=2{VQ0P;mo(;PH(Cs*mqPLtr~~K@PfK[hC&] !PzjivT&,Q.pUcn*LQ.v;3&:1Q.V0nx}7PtLM,-r2Pj'A+M~:Ph1pgmXLPpq.YwBsP~g`e@i>Q0%*zzHp !Q01/98e/Q.m5|3zmPvuu3eAoPfh[7RK2P^=xTRXUPb4PL_n)PjTdzA&|PnH=p*:DPhLWGCgvPXed%W>w !PDrnf~FfP>xr4R2VPP4aE9mvP`@P`c_&Pf[78A>kP`ihLDlfb:T1,CgryIT1Cp{dY3T1ZT}~~PT1oLxj}]T1ys4V/5T18c|smmT1D:joZ,T1XX6k5% !T1m}I|>IT3)0NnB?T3<_n,ijT3IkOx;*T32a9,xvT1{NAkHvT3/TeK&bT3Be6D-vT3Vh{d/bT3ic+&m3 !T3w6?e&ZT3hsjAnbT3SHNvm4T3^u/*NYT3q4^'gaT5*enNR*T5=I/rwWT5L=>QR'T5OHZ/ZyT5CHw&:r !T5EsBT9ZW:H?YT9g.CB1lT9sN7{b)T;'r|w*}T;9&K*%FT;LKai^H !T;aKhwo@T;wQ_,,9T=4>+6d(T=KVxz8CT=c5>V&qT={*YO-/T?90x.N6T?QCgI7oT?i^Wk+\TA'{>B-1 !TA@4UZkBTAW~aH?nTAnaP)2gTC'go~R;TC-]8I^RTAzFnPHXTC)2Uy4&TC?YjvjGTCZ@Fj5DTCvGAU~1 !TE8MFo~9TESc%rs[TEmC,WrHTExSKYM@TC}Gr5HDTE8LjM}5TEL8uY7rTE\}fA7ZTEhX%cD}TEl{l>P= !TEnK8B4^TEtx(0^tTG&|:A=ZTG6;e&aWTGGDg2|.TGY_sOK,TGlx\?0WTI'.XW%=TI<3\hOyTIR+hTtB !TIhmRI]*TK&>nDK{TK>H_6miTKVuYChMTKo?{yzjTM,XTCCrTM@C.E((TMK<9z)|TMK/qy~rTMQ*A9@H !TM`sAB})TMtTuBp0TO.nrlHBTOA~=8dUTORdwlW@TO`;p/VTOy%b/)&TQ/QDE4(TQC.dn5Q !TQXzj.2.TQp@S5%;TS.c{o_RTSGpp)AxTSaV&Lc)TS{aLs9/TUT{kC]E@,T}JGGu]6T}{{3vS/U-UU`MxxU-XzCZ?a !U-\@.)U&U-_z&YXYU-dV4LH,U-jKlN3RU-oCefQ'U-s,6=TkU-vHzMtTU-yaJ)@oU-}9dQ]?U/'lZtF{ !U/-taM9'U/2p~6B6U/6SO(o=U/9iKUGAU/U12%m0KgU15C>FerU18B\.uPU1;B}|E-U1>gVj.8U1D9S`8-U1K`67*;U1O_{Qlz !U1Rdl^.bU1UUIN8iU1XD[zbTU1[FKXQnU1_Y4k<&U1h8Q08hU1ll]eE6U1rJy6MtU1tw@aqh !U1w:rrT{U1x\/vf5U1pi*M2}U1r^Y92IU1tvi,W9U1w8zk0'U1yS.)(TU3%668D/U3&sQ{{:U3(`Egk9U3*AYXPMU3+XSWp[U3+u8Q_^ !U3+9|,8cU3+BzPXPU3,IIR?3U3-tU4MZU3/OB87&U30{UDX?U32%14Y(U31+ !U38'Y_?DU39DJcW~U3:Or6IdU3;/9hy^U3;+]*vzU3;(m=WVU3;f1@EJU3B}@wjU3?Z@^1e !U3?v5oduU3=f32U^U3=0q.\4U3>?bmt.U3?wcgwpU3A[KJijU3C&)lVEU3Bhn2OZU3??'=yLU3?`?ih8 !U3A4*V.[U3BrG_~:U3DMW0h'U3E\u?Y-U3Eiwhb]U3E(SEU3MLNDPz #% [ 326] init.chir_re !QcwxxR2;QEp+cI\XQB@Vs{zYQfK3luxsQNxM3sL{Q5M}@n0ZQYQ=IotCQA)S&}idQLJ54ogWQ~;oO<,h !QrX)x6*xQ8LtQ)VoQ?,M;G,cP}rhfHsYQb)S^sT:R0y6z8rvR0VQR&@RQP7;Q1f{Q;O7EK.iQ;?Wht%8 !QP6&'JxoR.g]mrgVPt9v2>(^Q{%P\*`=R/IK*/(0QUNDIKebQ8)5uBSyPVSeO4pFR/5H=sxq !R;Muc&3?R?S5SAe)R9(wpLy>R-vy?nHDQk;fj/T0R3QJ-XfFR=mvxec2R?\[Sv7CR5)z0,fDPs^gV2+^ !Q`8+qj1[PW-T`w2NR/;c:Zq[R-ri%UDeQl2eFZm0RBsZkxv:RP.y|P}.RJ~MfEqiR@^=m{\bR@YOV;;P !RPuxW1mcRf0*sQwh*JQlg[GlmhR9Fm[W={RAsPr[b.RG%zaT;[R_//XM<]S/So8>P> !S5I2zT.sS7_U?UiAS54,'^RtS-U=|D+PQQTSwO./RxZpr};sS8a4_2R`SH[C_]PLSZpNtb`ySfQGxH+m !S^)ZP>HAS:7u>jI1SG'+-:i8SydXMx^CT/Ms)H=~T-]sJ=~}SQ,%Y6C^S23=RswtSX[s|XUHS`|]83Pb !SPuOb:QJS8X=_)]7R0|Ycr]ZRST-ns%gRAqtLSehR/@A.U(7R?LTZWcORaNL6(&oRmw]z']uRUO*,1|O !Q[+Bs\.QRPDyL}}R5QZP=Q^RE(OPei0R/o,{s&oR8(pNi&tR>es0^U/QL[StB~t !R=0l]Y@nRE'2L3.]R1p4qgnKR0qI\-2sR:-::X)%Qb_v*s*5R3,3k@AuR7w6nBKyQ]n^@+odR2pDD(Hw !R8wAr[vMQtb]{>yzR-[y9a !Q=Fb+t\~R.m1X2'gR40(L^v~QncyjsVmQI];@6~5Qu)KY0C~Q7N'q:5kQt7R?2,YR0Y~J|^FQV%x>oB+ !QW2E{UxqR-S_[MI1QM5jVKuRQPSX'bwhQp(6YY,jQ<&@KNY/Qc(q0KkZR-z6LzNaQ_8x{iIgQ40&@R9t !QT8q2-@wQ.V{s+;UQ_(&R?:>Q}T)y;`yQ]8^0CL%PT4>kdTEQH0O'cn1Pl2Lmni7QQf;Qz&aQi8nSz\O !QK2tX=R9Q6/6Y_^1QR9VG)*iQi9CT`1QZ0}D5PRpU\5 !P@Yvbu%iQ5ww)~0~PIkBDS`bQBSc8tb(QT]&)HP:QFqP&+[yPDaO(Ic>Q1xYGLpGP1NlCJbhQ@f3VZ3( !QPvXVni0QD|;R|QbPBBA>:u=Q5fssyOwQ1^H[oJyPnx67/,qQ<2=6:S;Q6PknAQJP?h|m1QJQ78.ov*4 !Q5r]D|hIP[AS~Z3)PBG=*k89P?l.&fD2Q5kiC@vlQ?q2lBFMQ=1]&C{CQ/rs6)pNP=XQ\yn9PSGta0oh !Q3,v|+PJ[i|UY>PN9Wh_CDz.xOQ.UIPY._Uz=NPSK{lE(,P[h1{BapPobPH:eEQ-l/(&qp !Q/0rtC~4P}{`mlEiPesm)'h7PQz8nA-ePM%|\cgdPOSN%NV9PM8~2=nlP;dLiGjWO29UaL1'P6B(k.r< !P2t~Oh4penJIP6V,dC:x !PR{QjX.VPlS).\YzPp8Ne_b7P`Z@HiS8PR^m1<`)PVOV9KU(Pfy6^SF~Pp_uHt:bPbK%CU8?P@YPmh&R !OKnip[]SP3>*K]?8Omgt1=%HO9Mt`p10P3R\h_XbPM}|*=m' #% [ 326] init.chir_im !Q%%%%%%%Q^5X/'([QbxN?wfWQ2jsN.ZpQM>5[@kdQSH*YMT%PF7+MS7bQdrg0DT|QrcqN9rWQB|X@oIh !QG]~eR,5Q]iY~Q5)Q5Roze.cQR9{-%uoQbyFpq{>Q.fMB8R]Qm0Ln@J8R/_B<~DUQu'QX:_RQ15,``)g !Q4F@ffH[QIy~^1_MR1[Fl{)(R7>4H3|VR3V5CLK.Qe1ikDg]Q3%t`,n}Q[U>S=a@R3W=U`<0R98E?4ZZ !R3GV~(B3Q1o`;\^RF+ikN+ARR/K-*pIRL{w%bXvR:dFv9zzQLOE,C~R.Sf,NN' !R0o`L43GQe[0W:]yRO*hS*@uRo;3XS8RRy8?l~ikRmI_E-lAR_q2kT+vRcQ(~Ud.RqPeX)A&Rm]1L=9U !R=wS-afbRd4&)h|NS4wnvcmpSR3.\x2S0=j-y~}S7T_iCAk !S_.DTXl0T-Sm9sBxT-mZ1~kSSeqZ}eq/RsSw~B}CSZE(`aV&S~`4\VaPS~2.y}FdS^0V{6-SS4+_-N%0 !S5HP4{]|S?RU\^dLS9V\J;1;S/DH7V*=RSeKTH?/RQIMLam*R[tg%DWbRKKJ,@*lQj)Dat{BRVNA(]d2 !R`4&-8OwRJ&V(ky:Qx\*;k(PP2fS>}\n\*CS:lmrPO7S07\wQpRR1CI>(8IRs}^-'SLR{RH->1NRgNOQ0RyRa~{uky.RyC(kBF} !S/K;HUTmS-mD_.+GRI('>iAYRTE;d@bBS0t>&xVeS6ClySk*S:cdE~lFS@^[iTzKSDYVh}K|S>mehrTY !RVF]O'XWS?v{fVUPS_:ph}>KSifDsgo[SW`XcSH=S/MVc&ASSDoa|nD|S\]:r]X]SXS439O`S@L[>(;R !QF:6s4iBS30-H_YKS3,_+1~ZRmJL6iBgRESv99SrR]C*&8&?S/-V;3kbS/;2M}ITRQI4p,eYRLJ[d\6x !RzU>|BhVRhAv,c87R0/uV;sVRE)u-h[]RC,u:MRAQ<~rGw??R@dvle)KR:;Tf^J^Qww^v.5wRABBgu/] !R9;TDS8&Qlr7=POyR@pqk2j3R<`6-O|9Q2+)p1}GR3j@gI:@R/ZKx]K5Qxhd/+nQRwMQ:GcMI2d !PSDoSKsnQEZui[03QM'N(/|?Q9x6[(R&P8TiF-.LP|MaNa``Pa3l[HJMQ?9sD5KXQE]|h.F%Q9}8Pf\~k0zSQ2(]o(iIP\x5(c+.PK./97:I !PW@Tk>x?PNg52Ce&Q4uKAa?LQ8zS2f&,Q4(2|G[|PV~I\JqUP41W`?j&P`H6}?ukQ2T2j^n4Q4p0[Pfv !Q0jX`U,DPX=GD_.JPsXaqZ4nP_WH[qniyDryPNEPN2QmP`@EhcclP`uo9:m0PN3rUvK0P6gurQSbPTdY]a4y !PZXODS`Y<.]P3OKm.*aP1YeWPb[OW=nuz_\P/^t;42R%%%%S>FhR%%%S>[%%%%%S>o;R%%%S@)R%%%%S@=hR%%%S@R%%%%% !S@f;Q~~~S@zR%%%%SB4hQ~~~SBI%%%%%SB];R%%%SBqR%%%%SD+hR%%%SD@%%%%%SDT;R%%%SDhR%%%% !SD|hQ~~~SF7%%%%%SFK;Q~~~SF_R%%%%SFshR%%%SH.%%%%%SHB;R%%%SHVR%%%%SHjhR%%%SJ%%%%%% !SJ9;Q~~~SJMR%%%%SJahR%%%SJv%%%%%SL0;R%%%SLDR%%%%SLXhQ~~~SLm%%%%%SN';R%%%SN;R%%%% !SNOhQ~~~SNd%%%%%SNx;R%%%SP2R%%%%SPFhR%%%SP[%%%%%SPo;Q~~~SR)R%%%%SR=hR%%%SRR%%%%% !SRf;Q~~~SRzR%%%%ST4hR%%%STI%%%%%ST];R%%%STqR%%%%SV+hQ~~~SV@%%%%%SVT;R%%%SVhR%%%% !SV|hQ~~~SX7%%%%%SXK;R%%%SX_R%%%%SXshR%%%SZ.%%%%%SZB;Q~~~SZVR%%%%SZjhR%%%S\%%%%%% !S\9;Q~~~S\MR%%%%S\ahR%%%S\v%%%%%S^0;R%%%S^DR%%%%S^XhQ~~~S^m%%%%%S`';R%%%S`;R%%%% !S`OhQ~~~S`d%%%%%S`x;R%%%Sb2R%%%%SbFhR%%%Sb[%%%%%Sbo;Q~~~Sd)R%%%%Sd=hR%%%SdR%%%%% !Sdf;Q~~~SdzR%%%%Sf4hR%%%SfI%%%%%Sf];R%%%SfqR%%%%Sh+hQ~~~Sh@%%%%%ShT;R%%%ShhR%%%% !Sh|hQ~~~Sj7%%%%%SjK;R%%%Sj_R%%%%SjshR%%%Sl.%%%%%SlB;Q~~~SlVR%%%%SljhR%%%Sn%%%%%% !Sn9;R%%%SnMR%%%%SnahU>;)Snv%%%%%Sp0;R%%%SpDR%%%%SpXhQ~~~Spm%(>;)Sr';Q~~~Sr;R%%%% !SrOhR%%%Srd%%%%%Srx;U>;)St2R%%%%StFhR%%%St[%%%%%Sto;Q~~~Sv)R(>;)Sv=hQ~~~SvR%%%%% !Svf;R%%%SvzR%%%%Sx4hU>;)SxI%%%%%Sx];R%%%SxqR%%%%Sz+hQ~~~Sz@%(>;)SzT;Q~~~SzhR%%%% !Sz|hR%%%S|7%%%%%S|K;U>;)S|_R%%%%S|shR%%%S~.%%%%%S~B;Q~~~S~VR(>;)S~jhQ~~~T.R%%%%% !T.T';R%%T.V)Q~~~T.X+hR%%T.Z.%%%%T.\0;R%%T.^2R%%%T.`4hQ~~T.b7%%%%T.d9;Q~~T.f;R%%% !T.h=hR%%T.j@%%%%T.lB;R%%T.nDQ~~~T.pFhR%%T.rI%%%%T.tK;Q~~T.vMR%%%T.xOhQ~~T.zR%%%% !T.|T;R%%T.~VQ~~~T0&XhR%%T0([%%%%T0*];R%%T0,_R%%%T0.ahQ~~T00d%%%%T02f;Q~~T04hR%%% !T06jhR%%T08m%%%%T0:o;R%%T0shR%%T0@v%%%%T0Bx;Q~~T0DzR%%%T0F|hQ~~T0I%%%%% !T0K';R%%T0M)Q~~~T0O+hR%%T0Q.%%%%T0S0;R%%T0U2R%%%T0W4hQ~~T0Y7%%%%T0[9;Q~~T0];R%%% !T0_=hR%%T0a@%%%%T0cB;R%%T0eDQ~~~T0gFhR%%T0iI%%%%T0kK;Q~~T0mMR%%%T0oOhQ~~T0qR%%%% !T0sT;R%%T0uVQ~~~T0wXhR%%T0y[%%%%T0{];R%%T0}_R%%%T2%ahQ~~T2'd%%%%T2)f;Q~~T2+hR%%% !T2-jhR%%T2/m%%%%T21o;R%%T23qQ~~~T25shR%%T27v%%%%T29x;Q~~T2;zR%%%T2=|hQ~~T2@%%%%% !T2B';R%%T2D)Q~~~T2F+hR%%T2H.%%%%T2J0;R%%T2L2R%%%T2N4hQ~~T2P7%%%%T2R9;Q~~T2T;R%%% !T2V=hR%%T2X@%%%%T2ZB;R%%T2\DQ~~~T2^FhR%%T2`I%%%%T2bK;Q~~T2dMR%%%T2fOhQ~~T2hR%%%% !T2jT;R%%T2lVQ~~~T2nXhR%%T2p[%%%%T2r];R%%T2t_R%%%T2vahQ~~T2xd%%%%T2zf;Q~~T2|hR%%% !T2~jhR%%T4&m%%%%T4(o;R%%T4*qQ~~~T4,shR%%T4.v%%%%T40x;Q~~T42zR%%%T44|hQ~~T47%%%%% !T49';R%%T4;)R%%%T4=+hQ~~T4?.%%%%T4A0;R%%T4C2R%%%T4E4hR%%T4G7%%%%T4I9;Q~~T4K;R%%% !T4M=hR%%T4O@%%%%T4QB;Q~~T4SDQ~~~T4UFhR%%T4WI%%%%T4YK;R%%T4[MQ~~~T4]OhQ~~T4_R%%%% !T4aT;R%%T4cVR%%%T4eXhQ~~T4g[%%%%T4i];R%%T4k_R%%%T4mahR%%T4od%%%%T4qf;Q~~T4shR%%% !T4ujhR%%T4wm%%%%T4yo;Q~~T4{qQ~~~T4}shR%%T6%v%%%%T6'x;R%%T6)zQ~~~T6+|hQ~~T6.%%%%% !T60';R%%T62)R%%%T64+hQ~~T66.%%%%T680;R%%T6:2R%%%T6<4hR%%T6>7%%%%T6@9;Q~~T6B;R%%% !T6D=hR%%T6F@%%%%T6HB;Q~~T6JDQ~~~T6LFhR%%T6NI%%%%T6PK;R%%T6RMQ~~~T6TOhQ~~T6VR%%%% !T6XT;R%%T6ZVR%%%T6\XhQ~~T6^[%%%%T6`];R%%T6b_R%%%T6dahR%%T6fd%%%%T6hf;Q~~T6jhR%%% !T6ljhR%%T6nm%%%%T6po;Q~~T6rqQ~~~T6tshR%%T6vv%%%%T6xx;R%%T6zzQ~~~T6||hQ~~T8%%%%%% !T8'';R%%T8))R%%%T8++hQ~~T8-.%%%%T8/0;R%%T812R%%%T834hR%%T857%%%%T879;Q~~T89;R%%% !T8;=hR%%T8=@%%%%T8?B;Q~~T8ADQ~~~T8CFhR%%T8EI%%%%T8GK;R%%T8IMQ~~~T8KOhQ~~T8MR%%%% !T8OT;R%%T8QVR%%%T8SXhQ~~T8U[%%%%T8W];R%%T8Y_R%%%T8[ahR%%T8]d%%%%T8_f;Q~~T8ahR%%% !T8cjhR%%T8em%%%%T8go;Q~~T8iqQ~~~T8kshR%%T8mv%%%%T8ox;R%%T8qzQ~~~T8s|hQ~~T8v%%%%% !T8x';R%%T8z)R%%%T8|+hQ~~T8~.%%%%T:&0;R%%T:(2R%%%T:*4hR%%T:,7%%%%T:.9;Q~~T:0;R%%% !T:2=hR%%T:4@%%%%T:6B;Q~~T:8DQ~~~T::FhR%%T:K;R%%T:@MQ~~~T:BOhQ~~T:DR%%%% !T:FT;R%%T:HVR%%%T:JXhQ~~T:L[%%%%T:N];R%%T:P_R%%%T:RahR%%T:Td%%%%T:Vf;Q~~T:XhR%%% !T:ZjhR%%T:\m%%%%T:^o;Q~~T:`qQ~~~T:bshR%%T:dv%%%%T:fx;R%%T:hzQ~~~T:j|hQ~~T:m%%%%% !T:o';R%%T:q)R%%%T:s+hQ~~T:u.%%%%T:w0;R%%T:y2R%%%T:{4hR%%T:}7%%%%T<%9;Q~~T<';R%%% !T<)=hR%%T<+@%%%%T<-B;Q~~T[NR3W9.d57R36Sciy[ !R1V~9dIMR/Geu5?.R-Z|cZzzQcUCuTOhQC0cq2IvP_d5LRQVQ6aCB\dvQX_Lb)9dQ|F(XF+hR08Uh(c. !R0mqYcVRR0O;K/DRR.hvHHfdQltaP|;{QTl_+_5_Q`PC\YQX/m !Q>>vXW,`QXaxg>;*Qx5M352zR0>r}[q{R08?z@57QtTDWhZ.QZ`1V5;*Q7QC~d,43qQIAxj:Bd !QIEar@-.QAAQ;mz*Q5DnFwP`QN_BLZ6.QZ:2*^*IQh@7P88EQv75;%q{Q~0]PtWIQ|)51yFiQn_XOOH.QX/Zm@13Q>3}FDMz !PJA&bVZ.Q1gY]+@%Q?Ng>fl.QE4bEJ\mQG057xp2QQeSG4X@Qg%*7&\mQy8,8o';R-m[},shR-pE?>7% !Q{LV.AhzQkWo6:2RQWc\]03IQAlY[XL2Q-^;'^BdPJYlOr8mPh;aN?b_P0'A^8XhPa(g62)RPigX9bG7 !Q0*kR4lWQX'Az>WIR0'`iimNR2C-f}SDR2Mf\a;zR0xz4=X@R0IyJ^JmR.o%}jp[QnwyMOX@QPHM%\,7 !PN01yk7%QIZth,g[QsSyJwy3R/i62}C2R1wr`7Y_R3/AHlF@R18/X]WrR-R{X5shQUfXXG?.Puj~+c:3 !Q:>Msc^[QJ}_4p[%QLR\UG{rQ>|nXhR%Q28e%pg3P\u/>V5_PNtdxKd%POBIlAq)Q7fR|=|hQ=O9+C_* !Q-kv^'3IQ@lkcKWrQju?~O\EQ~PTBD%NR.dTj=|iR.X4r];RQtVoWqR%QZV7UE0dQ8%XvKt7Q59rw-%v !QO|{}|`IQaNf{y6WQi^J41JmQi/LBys@Q[pu5QB2zQ/UE)jdMPBHzVk.vQ2oX=IemQ:<|RD5_Q02q*eDQB8].d57QHa)a29dQR;m|{y[ !Q\L1=W,_QZTaNo+@QL6I8+lWQ<&V}yo7Q;JE41o;Q;+xl&dvQ1zqS4dMPMbhg*I% !PC~}]lvvQ1tN5i];QE9/)TKdQQo0d:s@QM&9bJq)Q?Z1v&8DQ;?b-6vvQ5}EnCc.Q-rY}e4@PK,1X7QV !P01`Pd9\du~~Q0`oN`,`Q6-s2pFhQ:9HO0[vQ7QBCG(G2zQD&)\,[MQ@uuu:Vz !Q8\YfD%NPZ%}8URvP}Jsn-%vQ3wgb)9dQ5*JQ1:[Q1%S:rQ.PS17Q3oR*~NIQ17Q6~D>/@NP.r2(>_RQ-vM16VR !Q1?F4d))Q/z\~}G7Q/N|a_~WQ-bCeuRMPc2m+bK;PCAqRB3IP?7A{vEIPEGU?-ZVPA2vB7))PAKc>PSD !PgS>QM5_Q/.EelZVQ-}ZVY?.P}/R9_zRPcBG,p.MP=7z\Td%N]gz.EI%P0|&rVErPL*`kC{IP|.gJm%% !Q0ulco7NQ0hNs[U[Q.pAAdQVPphN},O@Pf%XAY2zP\T&?po;P>HXnQNIP-ufm/0;P?.HhmU[PAdKi`@vPIo.%/y2PK5x^M^2PKuD6o7MPEcDe/L[P?&@%j;zP;g2V%q{P/Sm~a'dP0CnmIMR !P@CYTA}7PFg.khnDPHmpbjp[PF,'K0|@P@TdPg[%P@(o^Q>7PZeT?VP2S+lVR%P0~@LX3qNX4|X-jhO2xbf5K;OTX5}Z:2O?2k5-b_P1M,9@iqP7y''FL2 !P9T1`eDRP3]O-MZ.Od3stc2)P:;^O`I%P<0@Wbg[P05_[/0;OVX|.V%MN/^bo8cVP5e*gk7%P1X(Cz~V !O[M+fOhRO@/AA1NqOpcz01k7OhaD\uRMO8CvXSL[O:z3P0SmO\FdwJXhO\t3tC2ROratmDZ.P.n}HrM) !Ov,WnUwDOzSbB5&mP02m8+lVP.VBKrY7O^ns8RahN|jz/7z)OE|G84dMO]z*I>SDO_Be*reDOEf/t\Hx^g2OjPI(/`qOz\hV`4hOJm9=bodO2cCP@emNYds'N0dO/m^)D9dO/l.x.U[ !NOB[\P_RO8S`%AhzOHq4{U2ROBQ|VO|hO8.9zWDq/-%vO:zboQjhODC>-xSmOPf8PM=hOR<9a%=@OP54og[O3ZHi};)O;:(MalVO=)zs4;zOA_:;XP7 !O;WRg<8mO?o_iF3qO?UdZ1:[O9j^rQ.%O91f>rU2N}9lAA`qNIF8)/}7O/}==[z)N8h`/_9dNAl;Qt*q !O2px=:g2ONI[mk*qO4hQ/URvO2ehox_zO6YTyGWIO:DW\6fdO:cUQ:VzO:%8@y:[O:AO14xdO<'_O>)rtg[%N^o}MtK;NJAg0OhRNDY@\B+@N2|usywDN]p~lnHVO3>*.Kt7 !O3H8{d12O1,X-B_zOAWIqvqzOS*5>a.Y0_RDV:R'P;RJ}8^_{; !RRQ~l{m_RZ&j{e]6R`Mi/a'+RfeBU>AgRlf<^4ZkRrIt~qH|Rvd<3>|zRzV>kZJ9R|utyOu[R~f+1_1G !S.Q~~~~|S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.Q~~~~|R~f+1_1GR|utyOuZRzV>kZJ8Rvd<3>|yRrIt~qHzRlf<^4ZiRfeBU>AeR`Mi/a')RZ&j{e]3 !RRQ~l{m\RJ}8^_{9RDV:R'P9R>>a.Y0]R8=g(_&nR2Z.e_*5Qz|I*-KxQVT/C@W2Q<&.Fj0{P\d.b0<2 !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% #% [ 326] data.r !Q%%%%%%%Q@mT6zLPQ\\)HuszQxJXZqAKR0T%t54lR2vSAjK=P2uT !R@mT6zLPRD5jwg}KRFX'^UTFRHz>EC+ARLBU,0\=RNdklx38RR-(Sed3RTO?:S;.RVqU{@l*RZ9lb.C% !R\\)HuszR^~@/cJuRbFVpP{qRdhmW>RlRh1*>,)gRjS@~sZbRluWea1^Rp=nLNbYRr`+3<9TRv(At)jP !RxJXZqAKRzloA^rFR~5,(LIAS.W'|o-TS.cN;@;KS.otSkIAS.|@lc\^PS2+d|-lFS281:Xz=S2DWS*.3S2P}kU<*S2]J*&IzS2ipBQWq !S2vSAj%~`eKqS>2Jy6YgS>>q7ag^ !S>K=P2uTS>Wch^)KS>d0'/7AS>pV?ZE8S>||X+S.S@/HpVa%S@;o/'nuS@H;GR|lS@Ta_~0cS@a-xO>Y !S@mT6zLPS@yzOKZFSB,Fgvh=SB8m&Gv3SBE9>s**SBQ_WD7zSB^+ooEqSBjR.@SgSBvxFka^SD)D_1huSF&BV\vlSF2ho.*cSF?5-Y8YSFK[F*FP !SFX'^UTFSFdMw&b=SFpt5Qp3SF}@M|~*SH/ffN1zSH<2~y?qSHHY=JMgSHU%Uu[^SHaKnFiTSHmr,qwK !SHz>EC+ASJ,d]n98SJ90v?G.SJEW4jU%SJQ}M;buSJ^IefplSJjo~7~cSJw<:PSPn5|iHFSPz\;:V= !SR-(Sed3SR9Nl6r*SREu*b%zSRRAC33qSR^g[^AgSRk3t/O^SRwZ2Z]TST*&K+kKST6LcVyASTBr|(-8 !STO?:S;.ST[eR~I%STh1kOVuSTtX)zdlSV&~BKrcSV3JZw&YSV?psH4PSVL=1sBFSVXcJDP=SVe/bo^3 !SVqU{@l*SV}|9kyzSX0HR=-qSX')R3Sb-d?T`*Sb:0X%mz !SbFVpP{qSbR}.|/gSb_IGM=^Sbko_xKTSbx;xIYKSd*b6tgASd7.OEu8SdCTgq).SdO{&B7%Sd\G>mDu !SdhmW>RlSdu9oi`cSf'`.:nYSf4,Fe|PSf@R_70FSfLxwb>=SfYE63L3SfekN^Z*Sfr7g/gzSf~^%Zuq !Sh1*>,)gSh=PVW7^ShIvo(ETShVC-SSKShbiE~aASho5^Oo8Sh{[vz}.Sj.(5L1%Sj:NMw>uSjFtfHLl !SjS@~sZbSj_g=DhYSjl3UovPSjxYnA*FSl+&,l8=Sl7LE=F3SlCr]hT*SlP>v9azSl\e4doqSli1M5}g !SluWea1^Sn'}~2?TSn4J<]MKSn@pU.[ASnM2BF3T !SxJXZqAKSxV~sBOASxcK1m]8SxoqJ>k.Sx|=biy%Sz.c{;,uSz;09f:lSzGVR7HbSzS|jbVYSz`I)3dP !SzloA^rFSzy;Z0&=S|+ar[43S|8.1,B*S|DTIWOzS|Pzb(]qS|]FzSkgS|im8~y^S|v9QP-TS~(_i{;K !S~5,(LIAS~AR@wW8S~MxYHe.S~ZDqss%S~fk0E&uS~s7Hp4l #% [ 326] data.chir_mag !PZEAvDuHPT|DxcliPR{9?y3@PnV=p):bQ22*0jgkQ6uEjYomQ<6;vU->Q>H)y4[FQd%Qbu`V6n`QdINbswaQ`*Jd4pwQ^H7zXSTQj_MbpE'R.^=ZuXmR0nwiOg\R2YoaX5} !R2`^F3RoR0{lRCnuR.ag`WESQjzmgB?GQpX8vJ{]R0>)2_L[R2f,zT]=R4D]S]E^R2sF(~}>R0MB?9*w !Q|@>]%UXR0yY?,jzR8R'kF{VR@8sM]LaRF3);'O3RHik0i=|RHsQ:/3rRFnxyr(gRDc9eC~3RF3x032l !RL-dgwcDRTSJdpdgR\u:QYB3Rd,w96(=RfX|)wOKRf]f+KjRRf[TRur)Rjq&tEl6Rx37HkfUS0/|P+g( !S2B|X*swS4YlW2QWS6lw3(JJS:%K0\GcSq/iSZOt]jc[ !SbE?{U+DShguN6wISn=\Lxr4Spa8^Tr+Spi,[JiDSnP|)8IhShzIyRR8lf[rr`R@Luq::URF-yo.~cRFvFOZvgRF?V\RwkRF@}2r{g !RLq*Q]5)R\B\'/EWRn~XIU4AS.efJE\=S0b1dKbTS2R^R'0HS437MsbUS4[Q,oa6S4p,lHZBS4p5Z8UF !S4[dEmQ%S43jQ;8DS2U6nZHnS0j]@QKFS.z9kG:URxDl&W*.Rj=Mr25'Gb0R\W\_:e_R`eI;>.X !Rl'I~x:3Rz1D6*E*S.~;e-:mS0jl(mF[S2Wkhc*dS4JJ88W[H&xc !SB&|Wy&S@{xotweS>;B=QLcS:@F||2wS6B-g+he !S2S|x%m\S02=T7^IR~D4GX^-R~=(~U~]S.u|*Jb4S0]/X]\NS2Sr>V)VS4[e-ewNS6vS&4~tS:GdD2J} !S<{a7-DlS@SEuyxaSBvTck>:SF%Wmk5jSFdxg{_{SFz*gYBS83h5)*-S40DiWV)S0=@o^YbRrXOUVNJRf;nLUCqRj=`E.tS0\F?B?@S0c]'UjhS0c:9{E&S0\/U5-tS0NSa~VgS0:^FzKwS.{%mAq]S.\TA9D9RzE)Fm*7 !Rr8r._*LRhs,D\kwR`M7H<]@RX87\@JwRPWD,FrqRJyfCmTcRH^O9;w0RHQC7F/QRJ&=[tgXRJi@*S2U !RLRwC`R\RN5z?F.7RNaHb&3DRNc-/VanRLs(wtLgRHqRwI5mRBOLKoi8R8|[,>]-R2%\DJziR4ve53`y !RB%5F7eURNDJ0(k9RX]Vj14CR`-d@jcKRb>3t8w=R^zkH]B*RX2POMCQRL4_6P>bRTJ1@=S0`WA|T\S0pU\BS8S0o2edbOS0^:fkXO !S0@`1y'~S.t(eckjR|zi:HPhRt,)?5;kRj_F*-9~Rd/R,& !Rllt4y-)Rx0fKe>NS.f&T-1yS0Dj?6@1S0z&0bV]S2LIwZoXS2k=+sLoS2y&<`t>S2sWQ,iwS2ZQDU]: !S2/,l&fPS0N62}\?S.b(>p'9RrD=Q]^SRb)jN`TXRR{VdLbERJVT:5GlRH|?mpi.RNA9HNkkRTX\P3Wn !RZMrxKE,R^H.S0_tR`6F_%JIR^re5wv*R\RP{6,1RX>[T-G1RRIXhgBGRL.Zcu`fRD_6&0MPR>@rZy,H !R8H%Okt@R41m(;j+R0aJd^jHR.l|)]uDQzZR:kkpQxp2U(k;R04Rl;ybR4J,T3sCR:T}6KP{RB2;,,dS !RH{'kY]gCT1Rf%SbRuU !R`Y?C}FtRZcc5y5>RTo~kc_fRP[)L,emRNV9/[XERNo1>Q_QRR)?-pqvRTYPv@<_RVsaq}<8RXW]b&rE !RXOuS:4TRVZ1LEm@RR}p;tKKRNoUqF>nRJBJUADMRDe`@^\NR@9b0Yd9R<)>fU[MR8@-;t2yR6,-;FRs !R4P'bzl:R4[.-`7VR6L,Y;l(R8jIRw@7Re)M:a[R@i5ghXARB=Az5_-RB4q.G.gR@Q_WiPM !R>C3BUihR:r_l^W^R8?sPSD)R4wIsEoMR4*kMx.`R4.T;Vd_R62HRr_0R8{4X+0yR>6;oS2,RBV>9y8= !RFiOgGLaRJ[(+iQDRLs{,lxDRNNIJ>9qRN>lH9,DRLF:n?:+ #% [ 326] data.chir_pha !SB1D)d%oS@AF.FE;S@}C.tGbSBMNLeh3S@0zKa`.S<)P`4PSS6d/d%9xS2=QeujLRr`@.s>pRF;=v*;~T/]TM~g| !T/d7>X5kT/oFeaRCT/}oRWsIT13Y5ZMuT1Bz]/ZCT1PHM;uyT1Z`DTkkT1b8IkzaT1j2O{-FT1tzUA41 !T3(L,Sg)T37D]LrvT3FXD8f?T3UD0?,4T3cLro~-T3q<4zm+T5%]Kk^BT55>p4rnT5FR[SV1T5Y4.]W, !T5l~n5nxT7'egM,xT7=.0ddoT7R{sFFV6w%T;%Rj}9@ !T;;1__/0T;OYL60?T;a[^H,yT;nl\FQwT;tr5rB0T;y[jp.^T=+hb/KsT=>L.3C2T=TXg0mFT=l,2]z< !T?)<-)ZxT?=wv;9kT?KOGcM2T?Hn:7S2T?BYAtowT?Jp4U05T?Xj`u9&T?fN{;F|T?p0=VVhT?s;`3>5 !T?tNcmzmT?{I@&RpTA-xI}-}TA=T2/;]TAN``+l]TA`[i}FzTAs(WTF9TC+q=v1{TC?'m|m'TCR]v:9c !TCfc/Z7%TC{7svI^TE60c7M+TEK>=c~wTE`@hg3DTEtViT(xTG,y9v;dTG<7FffeTGHCC'WUTGS|LyfH !TGailda5TGql5:YETI(x-6'HTI:4(]i.TIJzqF,kTI[3e3*+TIk.7,}&TI{C3P[|TK2G@h=^TKDQk39R !TKWb1CWETKkjObbwTM&X6N3,TM;r8;(8TMQKk`VsTMg+J%7>TM|TPbvrTO7OJ(G7TOKK3xs8TO]^l.:/ !TOl|y4SzTOx)C*NpTO~pmo-lTQ*nBDSpTQ3UtJNLTQ??Z>D2TQM1{;O0TQ\YcDs0TQmV32]rwCvXTWVIRg~q !TWmBc6Q2TY)5GTHbTY=2oc6aTYMdNiySTYX:VO4nTY[w|jV]TY`7D*{&TYjz);m2TYzIzR'JT[2=g:w= !T[ED(Sc^T[Y1_`AqT[mV[Y<]T](^e_gnT]>TBfY)T]U>}@^qT]lyKol}T_+H)WF_T_DNI8L2T_]sNov] !T_wTiJTCsqSTi`,C1}LTivj[H7bTk4-u8,sTkK}oF\nTkdd6[L'Tm%8YG.ATmEVn0yLTo(iBG?B !Tok}P}k&Tq4(pQZRTqOH)e&. !T{W>Knf}T{o~3Ou5T}.^ifi{T}G?Aa5eT}_zMvBCT}xZG)XVU-Sncil-U-V=7oIU1'NfnM>U1)xF}+HU1,Z]r@V !U1/UlppHU12c/y&;U15o{LuUU18n^;:JU1;]Gn?sS}+U1@s}`g}U1CH[4h%U1EsqfSnU1HCdkO* !U1Jnd*A3U1MDs~[bU1P'*z}aU1RyN;/eU1V6Ti%&U1Ya}pLZU1](8lwwU1`+NH/8U1bpORd7U1eLvd^s !U1g{T2*HU1jL'AxfU1lt2p>TU1o@N%}fU1qdb/q^U1t+u,E. #% [ 326] data.chir_re !PYEAvDuHPSXNrEJyPQy~(N=.PmNDkq=WQ/~CJn:RQ1t=XxY|Pse|({fSPPn.@+opQ4m_0]_tQ6~;z{hH !Q0Yzg|%wPLkRW*02Pft*LMG]Q:5HoYkwQHHRQvN/QJ3VN8y9Q:}Ja-bMPNh(l82LOLh\xv0/Q4o;p\NG !QH3pQ0F`QF0tHj'DOF0n4Qe7ry?R3%o*^4|R/?{b_97Qe=VNpCz !Qa/%\:irR/(pLS8?R3*L;d>IR/wve-itQ-wd`q3RR4+qS{CmR@*WVkmlReBlwdH9S-ePajj] !S1AaEnnpS3;2ycfIS1rS*lVPS/)l,mhlRMSat-X;RNyB;EAsS4bFNu,fSBe7*ktSSPn`51x~SXrDVtVM !ST.=F.kiS3+eSSX9V\k1S1@WIWk:S6n:'\:*SFTYE[hV !SF7mJ0ovS<0*'/-YS0Z*t0A\RR;+{~L,R:K-}K+[R0WE>qhVQ{eaAZY|RIxNdy@gR_+g'HlvR[v'.o@c !RGC7DKrXR/g6E0MEP3:J^RqyQ/oG9I]/QOyHIVR@P_].fMx0R0-e]}=nR:F'[8*VR>h[U.xmR@Rl4TZ| !RFiRPGJXkpRXX)>oinQmci@Yg0RoRKkJYaS1V8{X>oS3lpH19= !S3&:a?d6R}>Ms*_GR7ho?UcxRP%u%wQFRrQEzY0PRvc0zv&|Rf}t.N^jRT>;zr.5RF%U`sw1R8cU,%hk !P]mz+=5PREWWh9dsRmfz;c>WS/Pec<_%S1U(gnPGS1Sjb(FVS/?an}=;3@?M,SD;,J}NbSB.'D(BtS6PfBz@UQJc1cm<&S3^KHCcbS=0s2'RwS=;B7`F8S7,Z;KZ+S-u~ER1z !RE5l}VthQ<[cc-}9R6G}@oy6RBa=T@3-RXh;,nL*Rz%P:E9HS2(nDd:_S4[dXnT2S62YK;7oS2b{UrHv !RVgB+b{{Rw^,gQw-S;>KO&=NSCoeCj@NSC6x*@P(S5z9jih,R0m/D(qhS8C../keS@jPjn-+S>h.BA`} !S4rDE__wRP^oxPlMRGzx6[RcReMeFY[NRaj8|2G,R[G}Rk5MRaqbqKLJRsTC-:?AS-U\I?;gRw'{RbwO !RU8PBuOEQBm;6OV=R^myV77rS.yZvI+jS0\%qsQvS.WJ4G6yRN[jUOcdR7o3,00JRge,o7@)Ry'Jp6d7 !RgR<`(f|RAoc}D,VQvXz}T.SRF,zkLl,RN*n&]QORJt1RAdYRDBl2)A6R8aYvR,dQ8@ZFAoVR7rLPs<] !RI>c|`.tz|R2?k|.&,QtaXbTBAR4<>'gK* !R, !R3`o1xJ0RO2owY3ERU !Ru}tO)}=S/=>3^PuR}r0Sb]gRY]2;]A.R7;[fIscQ6Lo<%EFQ~C(}.hXR2Zzi}LLR<[K-_k0RLLg95kZ !RZ0R:e^QExR@k(}C5jRL`lU(}DRHhH[q}pR:X/&F5TQP%_RcYhR-V'4DB*R3}SYZbQR5&o`E;{ !R-z=1|(^Px?r1T`~R29AY1DcR8jI*W[cR6e?x<.nQ\rVYnRzR/W2x=DhR=?%8*kmRA0pu^8VR9KK>+&? !Qg(=.Kj[Qph%f9;rR4uG_a(yR4m}/|ocZIJQJ~^_(CUR717ROo] #% [ 326] data.chir_im !Q%%%%%%%O|UgpK.fO4y^o)=XOWD[lwZIP@[6d7@KQ0^(+WJOQ:Nb()lMQ>6^L1%sQ8)`,l?\Phzmui@@@h !Q/QR9/-'QMb,6LF:Qau]17:7QSH@R51xP8u*Gg)gQX}jQIpD>0'}Q=9nTF+zQK;sP9z_QQ&U}63iQ1O>fTO[QR4D+p@-Q|fTp>?_Q|uG1xvP !Qd/pG66rT\Q2R2hB7g=SQ`Nk|a]TQ8\SdMCU !QM+a%fL2R5h>h37HRIiz\);KqlRYP%`oWMRWO7F-fXRK|KFtg( !QykeN_dLRROM_G~cS0RkrUP^S6^0Y0E@S<5mR}dwS>~tUEs>S@Z*5(HES<_@>YmmS0LnA6KHS/bMA|n7 !SKcZXu]VSc`JgF4mSkeuu:g/S]MpKc}MS;Ljm5_]S6u3}wMPSVL+Z+tlS`b2YR(=SVK@5+BZS@;QyKLG !RT.o&(q9Ry1)S2Ui[?m)S8<-~FJ'S:y:?hr4S:MM2:u} !S2oaNeDOQL:\jmUwS3efZM/lSA&t,qrISE0P'o(7S?<'47Q|S1w`'tZfPA%0fq{jS.rc1vi/S2fU+sfz !S2A\)ZkiS022w|gmR|V/6N\5RxiwxMh-Rxbh+{>DRpH(0=zTRVS-3xw.Pd>~gUE~Rkt6WHC@S3z*XJcD !S;dH{~DqS=r8(d@2S7gdE0`0RSb);?AYS2y|iYv]SBH2ndGISF`zY(c^S>tIA.3XS0-e-A3%R_IyMb'X !S3|w>al[S5vJE;J`S1u`Y|olRwT34'/@RS{:bR5f%`RM1RAXem0%wRG~.hv3,RC{;K7o6 !R1mAlO]5R2d6xNi'RHqvW03aRNIbj+jUR@EIeBGFQL?b^T>oR1I~R|o=R3g&KmT&R-Rx6+|cQcG:QPar !R53d<A3]3tR\Zu}.y'R^ZKwOLxRRz2z.2BRJ&1}E]7RFe>\cB{RFaTi|GNR@Bs'pD- !QxZ&,)=~R73,wMOQRO`t7kZCR]5yT2\pRY:kkJoVRG4rA09.R/35SCVOR01|}:paR:l7yj2.RZoR;LA5;z)RY&e:\]4R_xZM8]ZRKF_5>KMQ>[/xWiURPoI\>wERf\1rT`7R`z~s*:)RMnBDhcERKiMl.-2R%%%%S>FhR%%%S>[%%%%%S>o;R%%%S@)R%%%%S@=hR%%%S@R%%%%% !S@f;Q~~~S@zR%%%%SB4hQ~~~SBI%%%%%SB];R%%%SBqR%%%%SD+hR%%%SD@%%%%%SDT;R%%%SDhR%%%% !SD|hQ~~~SF7%%%%%SFK;Q~~~SF_R%%%%SFshR%%%SH.%%%%%SHB;R%%%SHVR%%%%SHjhR%%%SJ%%%%%% !SJ9;Q~~~SJMR%%%%SJahR%%%SJv%%%%%SL0;R%%%SLDR%%%%SLXhQ~~~SLm%%%%%SN';R%%%SN;R%%%% !SNOhQ~~~SNd%%%%%SNx;R%%%SP2R%%%%SPFhR%%%SP[%%%%%SPo;Q~~~SR)R%%%%SR=hR%%%SRR%%%%% !SRf;Q~~~SRzR%%%%ST4hR%%%STI%%%%%ST];R%%%STqR%%%%SV+hQ~~~SV@%%%%%SVT;R%%%SVhR%%%% !SV|hQ~~~SX7%%%%%SXK;R%%%SX_R%%%%SXshR%%%SZ.%%%%%SZB;Q~~~SZVR%%%%SZjhR%%%S\%%%%%% !S\9;Q~~~S\MR%%%%S\ahR%%%S\v%%%%%S^0;R%%%S^DR%%%%S^XhQ~~~S^m%%%%%S`';R%%%S`;R%%%% !S`OhQ~~~S`d%%%%%S`x;R%%%Sb2R%%%%SbFhR%%%Sb[%%%%%Sbo;Q~~~Sd)R%%%%Sd=hR%%%SdR%%%%% !Sdf;Q~~~SdzR%%%%Sf4hR%%%SfI%%%%%Sf];R%%%SfqR%%%%Sh+hQ~~~Sh@%%%%%ShT;R%%%ShhR%%%% !Sh|hQ~~~Sj7%%%%%SjK;R%%%Sj_R%%%%SjshR%%%Sl.%%%%%SlB;Q~~~SlVR%%%%SljhR%%%Sn%%%%%% !Sn9;R%%%SnMR%%%%SnahU>;)Snv%%%%%Sp0;R%%%SpDR%%%%SpXhQ~~~Spm%(>;)Sr';Q~~~Sr;R%%%% !SrOhR%%%Srd%%%%%Srx;U>;)St2R%%%%StFhR%%%St[%%%%%Sto;Q~~~Sv)R(>;)Sv=hQ~~~SvR%%%%% !Svf;R%%%SvzR%%%%Sx4hU>;)SxI%%%%%Sx];R%%%SxqR%%%%Sz+hQ~~~Sz@%(>;)SzT;Q~~~SzhR%%%% !Sz|hR%%%S|7%%%%%S|K;U>;)S|_R%%%%S|shR%%%S~.%%%%%S~B;Q~~~S~VR(>;)S~jhQ~~~T.R%%%%% !T.T';R%%T.V)Q~~~T.X+hR%%T.Z.%%%%T.\0;R%%T.^2R%%%T.`4hQ~~T.b7%%%%T.d9;Q~~T.f;R%%% !T.h=hR%%T.j@%%%%T.lB;R%%T.nDQ~~~T.pFhR%%T.rI%%%%T.tK;Q~~T.vMR%%%T.xOhQ~~T.zR%%%% !T.|T;R%%T.~VQ~~~T0&XhR%%T0([%%%%T0*];R%%T0,_R%%%T0.ahQ~~T00d%%%%T02f;Q~~T04hR%%% !T06jhR%%T08m%%%%T0:o;R%%T0shR%%T0@v%%%%T0Bx;Q~~T0DzR%%%T0F|hQ~~T0I%%%%% !T0K';R%%T0M)Q~~~T0O+hR%%T0Q.%%%%T0S0;R%%T0U2R%%%T0W4hQ~~T0Y7%%%%T0[9;Q~~T0];R%%% !T0_=hR%%T0a@%%%%T0cB;R%%T0eDQ~~~T0gFhR%%T0iI%%%%T0kK;Q~~T0mMR%%%T0oOhQ~~T0qR%%%% !T0sT;R%%T0uVQ~~~T0wXhR%%T0y[%%%%T0{];R%%T0}_R%%%T2%ahQ~~T2'd%%%%T2)f;Q~~T2+hR%%% !T2-jhR%%T2/m%%%%T21o;R%%T23qQ~~~T25shR%%T27v%%%%T29x;Q~~T2;zR%%%T2=|hQ~~T2@%%%%% !T2B';R%%T2D)Q~~~T2F+hR%%T2H.%%%%T2J0;R%%T2L2R%%%T2N4hQ~~T2P7%%%%T2R9;Q~~T2T;R%%% !T2V=hR%%T2X@%%%%T2ZB;R%%T2\DQ~~~T2^FhR%%T2`I%%%%T2bK;Q~~T2dMR%%%T2fOhQ~~T2hR%%%% !T2jT;R%%T2lVQ~~~T2nXhR%%T2p[%%%%T2r];R%%T2t_R%%%T2vahQ~~T2xd%%%%T2zf;Q~~T2|hR%%% !T2~jhR%%T4&m%%%%T4(o;R%%T4*qQ~~~T4,shR%%T4.v%%%%T40x;Q~~T42zR%%%T44|hQ~~T47%%%%% !T49';R%%T4;)R%%%T4=+hQ~~T4?.%%%%T4A0;R%%T4C2R%%%T4E4hR%%T4G7%%%%T4I9;Q~~T4K;R%%% !T4M=hR%%T4O@%%%%T4QB;Q~~T4SDQ~~~T4UFhR%%T4WI%%%%T4YK;R%%T4[MQ~~~T4]OhQ~~T4_R%%%% !T4aT;R%%T4cVR%%%T4eXhQ~~T4g[%%%%T4i];R%%T4k_R%%%T4mahR%%T4od%%%%T4qf;Q~~T4shR%%% !T4ujhR%%T4wm%%%%T4yo;Q~~T4{qQ~~~T4}shR%%T6%v%%%%T6'x;R%%T6)zQ~~~T6+|hQ~~T6.%%%%% !T60';R%%T62)R%%%T64+hQ~~T66.%%%%T680;R%%T6:2R%%%T6<4hR%%T6>7%%%%T6@9;Q~~T6B;R%%% !T6D=hR%%T6F@%%%%T6HB;Q~~T6JDQ~~~T6LFhR%%T6NI%%%%T6PK;R%%T6RMQ~~~T6TOhQ~~T6VR%%%% !T6XT;R%%T6ZVR%%%T6\XhQ~~T6^[%%%%T6`];R%%T6b_R%%%T6dahR%%T6fd%%%%T6hf;Q~~T6jhR%%% !T6ljhR%%T6nm%%%%T6po;Q~~T6rqQ~~~T6tshR%%T6vv%%%%T6xx;R%%T6zzQ~~~T6||hQ~~T8%%%%%% !T8'';R%%T8))R%%%T8++hQ~~T8-.%%%%T8/0;R%%T812R%%%T834hR%%T857%%%%T879;Q~~T89;R%%% !T8;=hR%%T8=@%%%%T8?B;Q~~T8ADQ~~~T8CFhR%%T8EI%%%%T8GK;R%%T8IMQ~~~T8KOhQ~~T8MR%%%% !T8OT;R%%T8QVR%%%T8SXhQ~~T8U[%%%%T8W];R%%T8Y_R%%%T8[ahR%%T8]d%%%%T8_f;Q~~T8ahR%%% !T8cjhR%%T8em%%%%T8go;Q~~T8iqQ~~~T8kshR%%T8mv%%%%T8ox;R%%T8qzQ~~~T8s|hQ~~T8v%%%%% !T8x';R%%T8z)R%%%T8|+hQ~~T8~.%%%%T:&0;R%%T:(2R%%%T:*4hR%%T:,7%%%%T:.9;Q~~T:0;R%%% !T:2=hR%%T:4@%%%%T:6B;Q~~T:8DQ~~~T::FhR%%T:K;R%%T:@MQ~~~T:BOhQ~~T:DR%%%% !T:FT;R%%T:HVR%%%T:JXhQ~~T:L[%%%%T:N];R%%T:P_R%%%T:RahR%%T:Td%%%%T:Vf;Q~~T:XhR%%% !T:ZjhR%%T:\m%%%%T:^o;Q~~T:`qQ~~~T:bshR%%T:dv%%%%T:fx;R%%T:hzQ~~~T:j|hQ~~T:m%%%%% !T:o';R%%T:q)R%%%T:s+hQ~~T:u.%%%%T:w0;R%%T:y2R%%%T:{4hR%%T:}7%%%%T<%9;Q~~T<';R%%% !T<)=hR%%T<+@%%%%T<-B;Q~~T[NR3W9.d57R36Sciy[ !R1V~9dIMR/Geu5?.R-Z|cZzzQcUCuTOhQC0cq2IvP_d5LRQVQ6aCB\dvQX_Lb)9dQ|F(XF+hR08Uh(c. !R0mqYcVRR0O;K/DRR.hvHHfdQltaP|;{QTl_+_5_Q`PC\YQX/m !Q>>vXW,`QXaxg>;*Qx5M352zR0>r}[q{R08?z@57QtTDWhZ.QZ`1V5;*Q7QC~d,43qQIAxj:Bd !QIEar@-.QAAQ;mz*Q5DnFwP`QN_BLZ6.QZ:2*^*IQh@7P88EQv75;%q{Q~0]PtWIQ|)51yFiQn_XOOH.QX/Zm@13Q>3}FDMz !PJA&bVZ.Q1gY]+@%Q?Ng>fl.QE4bEJ\mQG057xp2QQeSG4X@Qg%*7&\mQy8,8o';R-m[},shR-pE?>7% !Q{LV.AhzQkWo6:2RQWc\]03IQAlY[XL2Q-^;'^BdPJYlOr8mPh;aN?b_P0'A^8XhPa(g62)RPigX9bG7 !Q0*kR4lWQX'Az>WIR0'`iimNR2C-f}SDR2Mf\a;zR0xz4=X@R0IyJ^JmR.o%}jp[QnwyMOX@QPHM%\,7 !PN01yk7%QIZth,g[QsSyJwy3R/i62}C2R1wr`7Y_R3/AHlF@R18/X]WrR-R{X5shQUfXXG?.Puj~+c:3 !Q:>Msc^[QJ}_4p[%QLR\UG{rQ>|nXhR%Q28e%pg3P\u/>V5_PNtdxKd%POBIlAq)Q7fR|=|hQ=O9+C_* !Q-kv^'3IQ@lkcKWrQju?~O\EQ~PTBD%NR.dTj=|iR.X4r];RQtVoWqR%QZV7UE0dQ8%XvKt7Q59rw-%v !QO|{}|`IQaNf{y6WQi^J41JmQi/LBys@Q[pu5QB2zQ/UE)jdMPBHzVk.vQ2oX=IemQ:<|RD5_Q02q*eDQB8].d57QHa)a29dQR;m|{y[ !Q\L1=W,_QZTaNo+@QL6I8+lWQ<&V}yo7Q;JE41o;Q;+xl&dvQ1zqS4dMPMbhg*I% !PC~}]lvvQ1tN5i];QE9/)TKdQQo0d:s@QM&9bJq)Q?Z1v&8DQ;?b-6vvQ5}EnCc.Q-rY}e4@PK,1X7QV !P01`Pd9\du~~Q0`oN`,`Q6-s2pFhQ:9HO0[vQ7QBCG(G2zQD&)\,[MQ@uuu:Vz !Q8\YfD%NPZ%}8URvP}Jsn-%vQ3wgb)9dQ5*JQ1:[Q1%S:rQ.PS17Q3oR*~NIQ17Q6~D>/@NP.r2(>_RQ-vM16VR !Q1?F4d))Q/z\~}G7Q/N|a_~WQ-bCeuRMPc2m+bK;PCAqRB3IP?7A{vEIPEGU?-ZVPA2vB7))PAKc>PSD !PgS>QM5_Q/.EelZVQ-}ZVY?.P}/R9_zRPcBG,p.MP=7z\Td%N]gz.EI%P0|&rVErPL*`kC{IP|.gJm%% !Q0ulco7NQ0hNs[U[Q.pAAdQVPphN},O@Pf%XAY2zP\T&?po;P>HXnQNIP-ufm/0;P?.HhmU[PAdKi`@vPIo.%/y2PK5x^M^2PKuD6o7MPEcDe/L[P?&@%j;zP;g2V%q{P/Sm~a'dP0CnmIMR !P@CYTA}7PFg.khnDPHmpbjp[PF,'K0|@P@TdPg[%P@(o^Q>7PZeT?VP2S+lVR%P0~@LX3qNX4|X-jhO2xbf5K;OTX5}Z:2O?2k5-b_P1M,9@iqP7y''FL2 !P9T1`eDRP3]O-MZ.Od3stc2)P:;^O`I%P<0@Wbg[P05_[/0;OVX|.V%MN/^bo8cVP5e*gk7%P1X(Cz~V !O[M+fOhRO@/AA1NqOpcz01k7OhaD\uRMO8CvXSL[O:z3P0SmO\FdwJXhO\t3tC2ROratmDZ.P.n}HrM) !Ov,WnUwDOzSbB5&mP02m8+lVP.VBKrY7O^ns8RahN|jz/7z)OE|G84dMO]z*I>SDO_Be*reDOEf/t\Hx^g2OjPI(/`qOz\hV`4hOJm9=bodO2cCP@emNYds'N0dO/m^)D9dO/l.x.U[ !NOB[\P_RO8S`%AhzOHq4{U2ROBQ|VO|hO8.9zWDq/-%vO:zboQjhODC>-xSmOPf8PM=hOR<9a%=@OP54og[O3ZHi};)O;:(MalVO=)zs4;zOA_:;XP7 !O;WRg<8mO?o_iF3qO?UdZ1:[O9j^rQ.%O91f>rU2N}9lAA`qNIF8)/}7O/}==[z)N8h`/_9dNAl;Qt*q !O2px=:g2ONI[mk*qO4hQ/URvO2ehox_zO6YTyGWIO:DW\6fdO:cUQ:VzO:%8@y:[O:AO14xdO<'_O>)rtg[%N^o}MtK;NJAg0OhRNDY@\B+@N2|usywDN]p~lnHVO3>*.Kt7 !O3H8{d12O1,X-B_zOAWIqvqzOS*52R%%%%S>FhR%%%S>[%%%%%S>o;R%%%S@)R%%%%S@=hR%%% !S@R%%%%%S@f;R%%%S@zR%%%%SB4hR%%%SBI%%%%%SB];R%%%SBqR%%%%SD+hR%%%SD@%%%%%SDT;R%%% !SDhR%%%%SD|hR%%%SF7%%%%%SFK;R%%%SF_R%%%%SFshR%%%SH.%%%%%SHB;R%%%SHVR%%%%SHjhR%%% !SJ%%%%%%SJ9;Q~~~SJMR%%%%SJahR%%%SJv%%%%%SL0;R%%%SLDR%%%%SLXhR%%%SLm%%%%%SN';R%%% !SN;R%%%%SNOhQ~~~SNd%%%%%SNx;R%%%SP2R%%%%SPFhR%%%SP[%%%%%SPo;R%%%SR)R%%%%SR=hR%%% !SRR%%%%%SRf;R%%%SRzR%%%%ST4hR%%%STI%%%%%ST];R%%%STqR%%%%SV+hR%%%SV@%%%%%SVT;R%%% !SVhR%%%%SV|hR%%%SX7%%%%%SXK;R%%%SX_R%%%%SXshR%%%SZ.%%%%%SZB;R%%%SZVR%%%%SZjhR%%% !S\%%%%%%S\9;R%%%S\MR%%%%S\ahR%%%S\v%%%%%S^0;R%%%S^DR%%%%S^XhR%%%S^m%%%%%S`';R%%% !S`;R%%%%S`OhR%%%S`d%%%%%S`x;R%%%Sb2R%%%%SbFhR%%%Sb[%%%%%Sbo;R%%%Sd)R%%%%Sd=hR%%% !SdR%%%%%Sdf;R%%%SdzR%%%%Sf4hR%%%SfI%%%%%Sf];R%%%SfqR%%%%Sh+hR%%%Sh@%%%%%ShT;R%%% !ShhR%%%%Sh|hR%%%Sj7%%%%%SjK;R%%%Sj_R%%%%SjshR%%%Sl.%%%%%SlB;R%%%SlVR%%%%SljhR%%% !Sn%%%%%%Sn9;R%%%SnMR%%%%SnahR%%%Snv%%%%%Sp0;R%%%SpDR%%%%SpXhQ~~~Spm%%%%%Sr';R%%% !Sr;R%%%%SrOhR%%%Srd%%%%%Srx;R%%%St2R%%%%StFhR%%%St[%%%%%Sto;Q~~~Sv)R%%%%Sv=hR%%% !SvR%%%%%Svf;R%%%SvzR%%%%Sx4hR%%%SxI%%%%%Sx];R%%%SxqR%%%%Sz+hQ~~~Sz@%%%%%SzT;R%%% !SzhR%%%%Sz|hR%%%S|7%%%%%S|K;R%%%S|_R%%%%S|shR%%%S~.%%%%%S~B;R%%%S~VR%%%%S~jhR%%% !T.R%%%%%T.T';R%%T.V)R%%%T.X+hR%%T.Z.%%%%T.\0;R%%T.^2R%%%T.`4hR%%T.b7%%%%T.d9;R%% !T.f;R%%%T.h=hR%%T.j@%%%%T.lB;R%%T.nDR%%%T.pFhR%%T.rI%%%%T.tK;R%%T.vMR%%%T.xOhR%% !T.zR%%%%T.|T;R%%T.~VR%%%T0&XhR%%T0([%%%%T0*];R%%T0,_R%%%T0.ahR%%T00d%%%%T02f;R%% !T04hR%%%T06jhR%%T08m%%%%T0:o;R%%T0shR%%T0@v%%%%T0Bx;R%%T0DzR%%%T0F|hR%% !T0I%%%%%T0K';R%%T0M)R%%%T0O+hR%%T0Q.%%%%T0S0;R%%T0U2R%%%T0W4hR%%T0Y7%%%%T0[9;R%% !T0];R%%%T0_=hR%%T0a@%%%%T0cB;R%%T0eDR%%%T0gFhR%%T0iI%%%%T0kK;R%%T0mMR%%%T0oOhR%% !T0qR%%%%T0sT;R%%T0uVR%%%T0wXhR%%T0y[%%%%T0{];R%%T0}_R%%%T2%ahR%%T2'd%%%%T2)f;R%% !T2+hR%%%T2-jhR%%T2/m%%%%T21o;R%%T23qR%%%T25shR%%T27v%%%%T29x;R%%T2;zR%%%T2=|hR%% !T2@%%%%%T2B';R%%T2D)R%%%T2F+hR%%T2H.%%%%T2J0;R%%T2L2R%%%T2N4hR%%T2P7%%%%T2R9;R%% !T2T;R%%%T2V=hR%%T2X@%%%%T2ZB;R%%T2\DR%%%T2^FhR%%T2`I%%%%T2bK;R%%T2dMR%%%T2fOhR%% !T2hR%%%%T2jT;R%%T2lVR%%%T2nXhR%%T2p[%%%%T2r];R%%T2t_R%%%T2vahR%%T2xd%%%%T2zf;R%% !T2|hR%%%T2~jhR%%T4&m%%%%T4(o;R%%T4*qR%%%T4,shR%%T4.v%%%%T40x;R%%T42zR%%%T44|hR%% !T47%%%%%T49';R%%T4;)R%%%T4=+hR%%T4?.%%%%T4A0;R%%T4C2R%%%T4E4hR%%T4G7%%%%T4I9;Q~~ !T4K;R%%%T4M=hR%%T4O@%%%%T4QB;R%%T4SDQ~~~T4UFhR%%T4WI%%%%T4YK;R%%T4[MR%%%T4]OhQ~~ !T4_R%%%%T4aT;R%%T4cVR%%%T4eXhR%%T4g[%%%%T4i];R%%T4k_R%%%T4mahR%%T4od%%%%T4qf;Q~~ !T4shR%%%T4ujhR%%T4wm%%%%T4yo;R%%T4{qQ~~~T4}shR%%T6%v%%%%T6'x;R%%T6)zR%%%T6+|hQ~~ !T6.%%%%%T60';R%%T62)R%%%T64+hR%%T66.%%%%T680;R%%T6:2R%%%T6<4hR%%T6>7%%%%T6@9;Q~~ !T6B;R%%%T6D=hR%%T6F@%%%%T6HB;R%%T6JDQ~~~T6LFhR%%T6NI%%%%T6PK;R%%T6RMR%%%T6TOhQ~~ !T6VR%%%%T6XT;R%%T6ZVR%%%T6\XhR%%T6^[%%%%T6`];R%%T6b_R%%%T6dahR%%T6fd%%%%T6hf;R%% !T6jhR%%%T6ljhR%%T6nm%%%%T6po;R%%T6rqR%%%T6tshR%%T6vv%%%%T6xx;R%%T6zzR%%%T6||hR%% #% [ 400] init.chi !R\z.b8+oR\zR\%1HR\{e4qjBR\}hmeEaR^&a~O-YR^*X/6CVR^/W1h^2R^5sI:`RR^=y9\omR^HhN}^8 !R^Zd7H,eR]u&<>VPR]^>2DUNR],Ylk[0R[*qq'`7RW`+.TV&RStz]]/MRO`=VqUZRK)Pi|yURE9-iv-t !R?&r:l&QR7lFy6?~R1R5ETHgQgK].i9PP}q4HOTtQP/fuDz5Qx]jXElMYF&R4~_KwFDR2ot*)3TR.tIs=WxQV]ZnH/4OJSZ;fqH !QGqBs0QHQem~KHOEQ{~^81R>R/,3y'{>R/Nrj+zHR/J4[jUrR-|>UCdBQy0DcTI~Qe'Lw7~tQM/~4:uz !Q3dsK\NHPx3PWY}eQD@j}_;dQV'N15M:Q`P(W0j;QdZOXBfmQdIAwA0cQ\i'_hiNQP0Th`<^Q>Ukx{J] !Ph9,[(9@Q1A%8gxnQCD.4vuNQQrO[Q_yFe`y7QYQiy0ccQOyfWI+E !QG%R+V[WQ=>2k17+Q5449Qld^T8>AQx)J4.7UQ~21=/jDQ~8'vFC/QvuX8cnNQj@e&PNW !QVr(qaK{Q@C0.SyIP4aK(4^9Q;i[W;57QS4@@ap6QeX{xk5HQsCz&w9]Q{5}8|71Q}:|rU*{Qywiow[Q !Qsv[P)]TQk|fon6cQch~ZCEtQ[^`J-V|QSg.DF6SQKt){p]OQC_*jQyyQ9O`@'eQPq1i+t=PNt3`QR8`-__BQVQa:1HSQRg9z`hqQJ4vlcT2Q>L6QP;AQ47`KSUL !Pt]L3(3pPnxybEmpQ2fceB]tQ>ai\cm`OE[QlKPtkaMQt:uCYd9Qrr3q?%eQh_bi_\- !QTg^Y;j`Q8vZ3JbaNs0SwQTHlDhykQbK2~Sl*QhUb:2/:Qh.:xFQcQ`vp{.h-QX'J2Iy^ !QLY/bzI?QBUcrwzYQ:[S751*Q6+{sEN+Q2qxo55rQ2Qp_f|;Q2Dt^L/2Q0eD|3CYPtnA~(-\P6%0kW=m !PqR8\R8EQ7^8{C&lQCxC*F+\QOtOnhp;QY[ivgQ|Q_@*GpbeQ_HgCteKQYa}.tE[QO@}Z(EfQ?pMY.1. !Q/-^K'izPtK:[FO]Q>:P^q~HQJr{z'GWQT3cKKDyQVm|*@kGQTrjU.qmQNf;kMYlQF*L,xvKQ:bV;8fw !Q0Jn.emdP8h?(_VEPOcK.Ls~Pq0l9n-vPuSFYY=.PeCd98b4PIp1c@2DP/t4'0P]Oyv*hP;tzt}v4O5t9|?_K !PDM;W:^?Pl@j[fFpQ0Y.->YIQ4EJ*Lt>Q6W{xNjlQ6{Lw<^7Q6JgZac:Q2{(/eoiQ.emBgqoPLh|/2Zp !P7IVmv%.Pmd\arw]Q/u8M7BFQ3EUGJoKQ3{.JR6] !OE(:Z+NBP6\z6FlPP@sP}>F3PBU+vVhPPL7r0NP0SHFICDP+Q02+~O=lPxzEfMJFPZBOyl8rP23}]pzNPE2?YyL7 !PojeFIeOQ/Zy0C@~Q1oFV;{,Q3?3[D+wQ1y-V{qXQ/nLQNF]Pw%Xc2LUPMC,L\~XO8|/q_~TPN3y?RRA !Pjn|.HvKP|K=p+NcQ.V)/0vJPxImQ7hOPfeM,kgSPPH_CbJZP8e+i3&:NSIz@SxeP1ql1M=cP7A_pHo[ !P3a6`u7WO[S2aDquOtmxEs>@P:f@4rR;PDc{Aa[]PHP;MpYgPD=_sNZ(P8*V->?}Ns4VoDlmP;a]b`QE !PQ|_UB~mPeI=LP5cPqB+=4WYPs]m[Cn7PkzK9k.pP[ba;Q~*PC{YPiSXOU;Gx;|@O7k,e+*lOF{6D4;kOXJ&VIZmO>0lgHDoOOD[;ZEWP1tjfa?AP=,Giy<' !PE[im\2]PKKMR`HYPKeO)apIPG-0~jY_P;adpemIOux1mj9,P.]zV+I@P@;BQTz;PNPIlBS\PX>a.Y0_RDV:R'P;RJ}8^_{; !RRQ~l{m_RZ&j{e]6R`Mi/a'+RfeBU>AgRlf<^4ZkRrIt~qH|Rvd<3>|zRzV>kZJ9R|utyOu[R~f+1_1G !S.Q~~~~|S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.Q~~~~|R~f+1_1GR|utyOuZRzV>kZJ8Rvd<3>|yRrIt~qHzRlf<^4ZiRfeBU>AeR`Mi/a')RZ&j{e]3 !RRQ~l{m\RJ}8^_{9RDV:R'P9R>>a.Y0]R8=g(_&nR2Z.e_*5Qz|I*-KxQVT/C@W2Q<&.Fj0{P\d.b0<2 !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% #% [ 326] data.r !Q%%%%%%%Q@mT6zLPQ\\)HuszQxJXZqAKR0T%t54lR2vSAjK=P2uT !R@mT6zLPRD5jwg}KRFX'^UTFRHz>EC+ARLBU,0\=RNdklx38RR-(Sed3RTO?:S;.RVqU{@l*RZ9lb.C% !R\\)HuszR^~@/cJuRbFVpP{qRdhmW>RlRh1*>,)gRjS@~sZbRluWea1^Rp=nLNbYRr`+3<9TRv(At)jP !RxJXZqAKRzloA^rFR~5,(LIAS.W'|o-TS.cN;@;KS.otSkIAS.|@lc\^PS2+d|-lFS281:Xz=S2DWS*.3S2P}kU<*S2]J*&IzS2ipBQWq !S2vSAj%~`eKqS>2Jy6YgS>>q7ag^ !S>K=P2uTS>Wch^)KS>d0'/7AS>pV?ZE8S>||X+S.S@/HpVa%S@;o/'nuS@H;GR|lS@Ta_~0cS@a-xO>Y !S@mT6zLPS@yzOKZFSB,Fgvh=SB8m&Gv3SBE9>s**SBQ_WD7zSB^+ooEqSBjR.@SgSBvxFka^SD)D_1huSF&BV\vlSF2ho.*cSF?5-Y8YSFK[F*FP !SFX'^UTFSFdMw&b=SFpt5Qp3SF}@M|~*SH/ffN1zSH<2~y?qSHHY=JMgSHU%Uu[^SHaKnFiTSHmr,qwK !SHz>EC+ASJ,d]n98SJ90v?G.SJEW4jU%SJQ}M;buSJ^IefplSJjo~7~cSJw<:PSPn5|iHFSPz\;:V= !SR-(Sed3SR9Nl6r*SREu*b%zSRRAC33qSR^g[^AgSRk3t/O^SRwZ2Z]TST*&K+kKST6LcVyASTBr|(-8 !STO?:S;.ST[eR~I%STh1kOVuSTtX)zdlSV&~BKrcSV3JZw&YSV?psH4PSVL=1sBFSVXcJDP=SVe/bo^3 !SVqU{@l*SV}|9kyzSX0HR=-qSX')R3Sb-d?T`*Sb:0X%mz !SbFVpP{qSbR}.|/gSb_IGM=^Sbko_xKTSbx;xIYKSd*b6tgASd7.OEu8SdCTgq).SdO{&B7%Sd\G>mDu !SdhmW>RlSdu9oi`cSf'`.:nYSf4,Fe|PSf@R_70FSfLxwb>=SfYE63L3SfekN^Z*Sfr7g/gzSf~^%Zuq !Sh1*>,)gSh=PVW7^ShIvo(ETShVC-SSKShbiE~aASho5^Oo8Sh{[vz}.Sj.(5L1%Sj:NMw>uSjFtfHLl !SjS@~sZbSj_g=DhYSjl3UovPSjxYnA*FSl+&,l8=Sl7LE=F3SlCr]hT*SlP>v9azSl\e4doqSli1M5}g !SluWea1^Sn'}~2?TSn4J<]MKSn@pU.[ASnM2BF3T !SxJXZqAKSxV~sBOASxcK1m]8SxoqJ>k.Sx|=biy%Sz.c{;,uSz;09f:lSzGVR7HbSzS|jbVYSz`I)3dP !SzloA^rFSzy;Z0&=S|+ar[43S|8.1,B*S|DTIWOzS|Pzb(]qS|]FzSkgS|im8~y^S|v9QP-TS~(_i{;K !S~5,(LIAS~AR@wW8S~MxYHe.S~ZDqss%S~fk0E&uS~s7Hp4l #% [ 326] data.chir_mag !PZEAvDuHPT|DxcliPR{9?y3@PnV=p):bQ22*0jgkQ6uEjYomQ<6;vU->Q>H)y4[FQd%Qbu`V6n`QdINbswaQ`*Jd4pwQ^H7zXSTQj_MbpE'R.^=ZuXmR0nwiOg\R2YoaX5} !R2`^F3RoR0{lRCnuR.ag`WESQjzmgB?GQpX8vJ{]R0>)2_L[R2f,zT]=R4D]S]E^R2sF(~}>R0MB?9*w !Q|@>]%UXR0yY?,jzR8R'kF{VR@8sM]LaRF3);'O3RHik0i=|RHsQ:/3rRFnxyr(gRDc9eC~3RF3x032l !RL-dgwcDRTSJdpdgR\u:QYB3Rd,w96(=RfX|)wOKRf]f+KjRRf[TRur)Rjq&tEl6Rx37HkfUS0/|P+g( !S2B|X*swS4YlW2QWS6lw3(JJS:%K0\GcSq/iSZOt]jc[ !SbE?{U+DShguN6wISn=\Lxr4Spa8^Tr+Spi,[JiDSnP|)8IhShzIyRR8lf[rr`R@Luq::URF-yo.~cRFvFOZvgRF?V\RwkRF@}2r{g !RLq*Q]5)R\B\'/EWRn~XIU4AS.efJE\=S0b1dKbTS2R^R'0HS437MsbUS4[Q,oa6S4p,lHZBS4p5Z8UF !S4[dEmQ%S43jQ;8DS2U6nZHnS0j]@QKFS.z9kG:URxDl&W*.Rj=Mr25'Gb0R\W\_:e_R`eI;>.X !Rl'I~x:3Rz1D6*E*S.~;e-:mS0jl(mF[S2Wkhc*dS4JJ88W[H&xc !SB&|Wy&S@{xotweS>;B=QLcS:@F||2wS6B-g+he !S2S|x%m\S02=T7^IR~D4GX^-R~=(~U~]S.u|*Jb4S0]/X]\NS2Sr>V)VS4[e-ewNS6vS&4~tS:GdD2J} !S<{a7-DlS@SEuyxaSBvTck>:SF%Wmk5jSFdxg{_{SFz*gYBS83h5)*-S40DiWV)S0=@o^YbRrXOUVNJRf;nLUCqRj=`E.tS0\F?B?@S0c]'UjhS0c:9{E&S0\/U5-tS0NSa~VgS0:^FzKwS.{%mAq]S.\TA9D9RzE)Fm*7 !Rr8r._*LRhs,D\kwR`M7H<]@RX87\@JwRPWD,FrqRJyfCmTcRH^O9;w0RHQC7F/QRJ&=[tgXRJi@*S2U !RLRwC`R\RN5z?F.7RNaHb&3DRNc-/VanRLs(wtLgRHqRwI5mRBOLKoi8R8|[,>]-R2%\DJziR4ve53`y !RB%5F7eURNDJ0(k9RX]Vj14CR`-d@jcKRb>3t8w=R^zkH]B*RX2POMCQRL4_6P>bRTJ1@=S0`WA|T\S0pU\BS8S0o2edbOS0^:fkXO !S0@`1y'~S.t(eckjR|zi:HPhRt,)?5;kRj_F*-9~Rd/R,& !Rllt4y-)Rx0fKe>NS.f&T-1yS0Dj?6@1S0z&0bV]S2LIwZoXS2k=+sLoS2y&<`t>S2sWQ,iwS2ZQDU]: !S2/,l&fPS0N62}\?S.b(>p'9RrD=Q]^SRb)jN`TXRR{VdLbERJVT:5GlRH|?mpi.RNA9HNkkRTX\P3Wn !RZMrxKE,R^H.S0_tR`6F_%JIR^re5wv*R\RP{6,1RX>[T-G1RRIXhgBGRL.Zcu`fRD_6&0MPR>@rZy,H !R8H%Okt@R41m(;j+R0aJd^jHR.l|)]uDQzZR:kkpQxp2U(k;R04Rl;ybR4J,T3sCR:T}6KP{RB2;,,dS !RH{'kY]gCT1Rf%SbRuU !R`Y?C}FtRZcc5y5>RTo~kc_fRP[)L,emRNV9/[XERNo1>Q_QRR)?-pqvRTYPv@<_RVsaq}<8RXW]b&rE !RXOuS:4TRVZ1LEm@RR}p;tKKRNoUqF>nRJBJUADMRDe`@^\NR@9b0Yd9R<)>fU[MR8@-;t2yR6,-;FRs !R4P'bzl:R4[.-`7VR6L,Y;l(R8jIRw@7Re)M:a[R@i5ghXARB=Az5_-RB4q.G.gR@Q_WiPM !R>C3BUihR:r_l^W^R8?sPSD)R4wIsEoMR4*kMx.`R4.T;Vd_R62HRr_0R8{4X+0yR>6;oS2,RBV>9y8= !RFiOgGLaRJ[(+iQDRLs{,lxDRNNIJ>9qRN>lH9,DRLF:n?:+ #% [ 326] data.chir_pha !SB1D)d%oS@AF.FE;S@}C.tGbSBMNLeh3S@0zKa`.S<)P`4PSS6d/d%9xS2=QeujLRr`@.s>pRF;=v*;~T/]TM~g| !T/d7>X5kT/oFeaRCT/}oRWsIT13Y5ZMuT1Bz]/ZCT1PHM;uyT1Z`DTkkT1b8IkzaT1j2O{-FT1tzUA41 !T3(L,Sg)T37D]LrvT3FXD8f?T3UD0?,4T3cLro~-T3q<4zm+T5%]Kk^BT55>p4rnT5FR[SV1T5Y4.]W, !T5l~n5nxT7'egM,xT7=.0ddoT7R{sFFV6w%T;%Rj}9@ !T;;1__/0T;OYL60?T;a[^H,yT;nl\FQwT;tr5rB0T;y[jp.^T=+hb/KsT=>L.3C2T=TXg0mFT=l,2]z< !T?)<-)ZxT?=wv;9kT?KOGcM2T?Hn:7S2T?BYAtowT?Jp4U05T?Xj`u9&T?fN{;F|T?p0=VVhT?s;`3>5 !T?tNcmzmT?{I@&RpTA-xI}-}TA=T2/;]TAN``+l]TA`[i}FzTAs(WTF9TC+q=v1{TC?'m|m'TCR]v:9c !TCfc/Z7%TC{7svI^TE60c7M+TEK>=c~wTE`@hg3DTEtViT(xTG,y9v;dTG<7FffeTGHCC'WUTGS|LyfH !TGailda5TGql5:YETI(x-6'HTI:4(]i.TIJzqF,kTI[3e3*+TIk.7,}&TI{C3P[|TK2G@h=^TKDQk39R !TKWb1CWETKkjObbwTM&X6N3,TM;r8;(8TMQKk`VsTMg+J%7>TM|TPbvrTO7OJ(G7TOKK3xs8TO]^l.:/ !TOl|y4SzTOx)C*NpTO~pmo-lTQ*nBDSpTQ3UtJNLTQ??Z>D2TQM1{;O0TQ\YcDs0TQmV32]rwCvXTWVIRg~q !TWmBc6Q2TY)5GTHbTY=2oc6aTYMdNiySTYX:VO4nTY[w|jV]TY`7D*{&TYjz);m2TYzIzR'JT[2=g:w= !T[ED(Sc^T[Y1_`AqT[mV[Y<]T](^e_gnT]>TBfY)T]U>}@^qT]lyKol}T_+H)WF_T_DNI8L2T_]sNov] !T_wTiJTCsqSTi`,C1}LTivj[H7bTk4-u8,sTkK}oF\nTkdd6[L'Tm%8YG.ATmEVn0yLTo(iBG?B !Tok}P}k&Tq4(pQZRTqOH)e&. !T{W>Knf}T{o~3Ou5T}.^ifi{T}G?Aa5eT}_zMvBCT}xZG)XVU-Sncil-U-V=7oIU1'NfnM>U1)xF}+HU1,Z]r@V !U1/UlppHU12c/y&;U15o{LuUU18n^;:JU1;]Gn?sS}+U1@s}`g}U1CH[4h%U1EsqfSnU1HCdkO* !U1Jnd*A3U1MDs~[bU1P'*z}aU1RyN;/eU1V6Ti%&U1Ya}pLZU1](8lwwU1`+NH/8U1bpORd7U1eLvd^s !U1g{T2*HU1jL'AxfU1lt2p>TU1o@N%}fU1qdb/q^U1t+u,E. #% [ 326] data.chir_re !PYEAvDuHPSXNrEJyPQy~(N=.PmNDkq=WQ/~CJn:RQ1t=XxY|Pse|({fSPPn.@+opQ4m_0]_tQ6~;z{hH !Q0Yzg|%wPLkRW*02Pft*LMG]Q:5HoYkwQHHRQvN/QJ3VN8y9Q:}Ja-bMPNh(l82LOLh\xv0/Q4o;p\NG !QH3pQ0F`QF0tHj'DOF0n4Qe7ry?R3%o*^4|R/?{b_97Qe=VNpCz !Qa/%\:irR/(pLS8?R3*L;d>IR/wve-itQ-wd`q3RR4+qS{CmR@*WVkmlReBlwdH9S-ePajj] !S1AaEnnpS3;2ycfIS1rS*lVPS/)l,mhlRMSat-X;RNyB;EAsS4bFNu,fSBe7*ktSSPn`51x~SXrDVtVM !ST.=F.kiS3+eSSX9V\k1S1@WIWk:S6n:'\:*SFTYE[hV !SF7mJ0ovS<0*'/-YS0Z*t0A\RR;+{~L,R:K-}K+[R0WE>qhVQ{eaAZY|RIxNdy@gR_+g'HlvR[v'.o@c !RGC7DKrXR/g6E0MEP3:J^RqyQ/oG9I]/QOyHIVR@P_].fMx0R0-e]}=nR:F'[8*VR>h[U.xmR@Rl4TZ| !RFiRPGJXkpRXX)>oinQmci@Yg0RoRKkJYaS1V8{X>oS3lpH19= !S3&:a?d6R}>Ms*_GR7ho?UcxRP%u%wQFRrQEzY0PRvc0zv&|Rf}t.N^jRT>;zr.5RF%U`sw1R8cU,%hk !P]mz+=5PREWWh9dsRmfz;c>WS/Pec<_%S1U(gnPGS1Sjb(FVS/?an}=;3@?M,SD;,J}NbSB.'D(BtS6PfBz@UQJc1cm<&S3^KHCcbS=0s2'RwS=;B7`F8S7,Z;KZ+S-u~ER1z !RE5l}VthQ<[cc-}9R6G}@oy6RBa=T@3-RXh;,nL*Rz%P:E9HS2(nDd:_S4[dXnT2S62YK;7oS2b{UrHv !RVgB+b{{Rw^,gQw-S;>KO&=NSCoeCj@NSC6x*@P(S5z9jih,R0m/D(qhS8C../keS@jPjn-+S>h.BA`} !S4rDE__wRP^oxPlMRGzx6[RcReMeFY[NRaj8|2G,R[G}Rk5MRaqbqKLJRsTC-:?AS-U\I?;gRw'{RbwO !RU8PBuOEQBm;6OV=R^myV77rS.yZvI+jS0\%qsQvS.WJ4G6yRN[jUOcdR7o3,00JRge,o7@)Ry'Jp6d7 !RgR<`(f|RAoc}D,VQvXz}T.SRF,zkLl,RN*n&]QORJt1RAdYRDBl2)A6R8aYvR,dQ8@ZFAoVR7rLPs<] !RI>c|`.tz|R2?k|.&,QtaXbTBAR4<>'gK* !R, !R3`o1xJ0RO2owY3ERU !Ru}tO)}=S/=>3^PuR}r0Sb]gRY]2;]A.R7;[fIscQ6Lo<%EFQ~C(}.hXR2Zzi}LLR<[K-_k0RLLg95kZ !RZ0R:e^QExR@k(}C5jRL`lU(}DRHhH[q}pR:X/&F5TQP%_RcYhR-V'4DB*R3}SYZbQR5&o`E;{ !R-z=1|(^Px?r1T`~R29AY1DcR8jI*W[cR6e?x<.nQ\rVYnRzR/W2x=DhR=?%8*kmRA0pu^8VR9KK>+&? !Qg(=.Kj[Qph%f9;rR4uG_a(yR4m}/|ocZIJQJ~^_(CUR717ROo] #% [ 326] data.chir_im !Q%%%%%%%O|UgpK.fO4y^o)=XOWD[lwZIP@[6d7@KQ0^(+WJOQ:Nb()lMQ>6^L1%sQ8)`,l?\Phzmui@@@h !Q/QR9/-'QMb,6LF:Qau]17:7QSH@R51xP8u*Gg)gQX}jQIpD>0'}Q=9nTF+zQK;sP9z_QQ&U}63iQ1O>fTO[QR4D+p@-Q|fTp>?_Q|uG1xvP !Qd/pG66rT\Q2R2hB7g=SQ`Nk|a]TQ8\SdMCU !QM+a%fL2R5h>h37HRIiz\);KqlRYP%`oWMRWO7F-fXRK|KFtg( !QykeN_dLRROM_G~cS0RkrUP^S6^0Y0E@S<5mR}dwS>~tUEs>S@Z*5(HES<_@>YmmS0LnA6KHS/bMA|n7 !SKcZXu]VSc`JgF4mSkeuu:g/S]MpKc}MS;Ljm5_]S6u3}wMPSVL+Z+tlS`b2YR(=SVK@5+BZS@;QyKLG !RT.o&(q9Ry1)S2Ui[?m)S8<-~FJ'S:y:?hr4S:MM2:u} !S2oaNeDOQL:\jmUwS3efZM/lSA&t,qrISE0P'o(7S?<'47Q|S1w`'tZfPA%0fq{jS.rc1vi/S2fU+sfz !S2A\)ZkiS022w|gmR|V/6N\5RxiwxMh-Rxbh+{>DRpH(0=zTRVS-3xw.Pd>~gUE~Rkt6WHC@S3z*XJcD !S;dH{~DqS=r8(d@2S7gdE0`0RSb);?AYS2y|iYv]SBH2ndGISF`zY(c^S>tIA.3XS0-e-A3%R_IyMb'X !S3|w>al[S5vJE;J`S1u`Y|olRwT34'/@RS{:bR5f%`RM1RAXem0%wRG~.hv3,RC{;K7o6 !R1mAlO]5R2d6xNi'RHqvW03aRNIbj+jUR@EIeBGFQL?b^T>oR1I~R|o=R3g&KmT&R-Rx6+|cQcG:QPar !R53d<A3]3tR\Zu}.y'R^ZKwOLxRRz2z.2BRJ&1}E]7RFe>\cB{RFaTi|GNR@Bs'pD- !QxZ&,)=~R73,wMOQRO`t7kZCR]5yT2\pRY:kkJoVRG4rA09.R/35SCVOR01|}:paR:l7yj2.RZoR;LA5;z)RY&e:\]4R_xZM8]ZRKF_5>KMQ>[/xWiURPoI\>wERf\1rT`7R`z~s*:)RMnBDhcERKiMl.->a.Y0_RDV:R'P;RJ}8^_{; !RRQ~l{m_RZ&j{e]6R`Mi/a'+RfeBU>AgRlf<^4ZkRrIt~qH|Rvd<3>|zRzV>kZJ9R|utyOu[R~f+1_1G !S.Q~~~~|S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%%S.R%%%%% !S.Q~~~~|R~f+1_1GR|utyOuZRzV>kZJ8Rvd<3>|yRrIt~qHzRlf<^4ZiRfeBU>AeR`Mi/a')RZ&j{e]3 !RRQ~l{m\RJ}8^_{9RDV:R'P9R>>a.Y0]R8=g(_&nR2Z.e_*5Qz|I*-KxQVT/C@W2Q<&.Fj0{P\d.b0<2 !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% !Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%%Q%%%%%%% #% [ 326] init.r !Q%%%%%%%Q@mT6zLPQ\\)HuszQxJXZqAKR0T%t54lR2vSAjK=P2uT !R@mT6zLPRD5jwg}KRFX'^UTFRHz>EC+ARLBU,0\=RNdklx38RR-(Sed3RTO?:S;.RVqU{@l*RZ9lb.C% !R\\)HuszR^~@/cJuRbFVpP{qRdhmW>RlRh1*>,)gRjS@~sZbRluWea1^Rp=nLNbYRr`+3<9TRv(At)jP !RxJXZqAKRzloA^rFR~5,(LIAS.W'|o-TS.cN;@;KS.otSkIAS.|@lc\^PS2+d|-lFS281:Xz=S2DWS*.3S2P}kU<*S2]J*&IzS2ipBQWq !S2vSAj%~`eKqS>2Jy6YgS>>q7ag^ !S>K=P2uTS>Wch^)KS>d0'/7AS>pV?ZE8S>||X+S.S@/HpVa%S@;o/'nuS@H;GR|lS@Ta_~0cS@a-xO>Y !S@mT6zLPS@yzOKZFSB,Fgvh=SB8m&Gv3SBE9>s**SBQ_WD7zSB^+ooEqSBjR.@SgSBvxFka^SD)D_1huSF&BV\vlSF2ho.*cSF?5-Y8YSFK[F*FP !SFX'^UTFSFdMw&b=SFpt5Qp3SF}@M|~*SH/ffN1zSH<2~y?qSHHY=JMgSHU%Uu[^SHaKnFiTSHmr,qwK !SHz>EC+ASJ,d]n98SJ90v?G.SJEW4jU%SJQ}M;buSJ^IefplSJjo~7~cSJw<:PSPn5|iHFSPz\;:V= !SR-(Sed3SR9Nl6r*SREu*b%zSRRAC33qSR^g[^AgSRk3t/O^SRwZ2Z]TST*&K+kKST6LcVyASTBr|(-8 !STO?:S;.ST[eR~I%STh1kOVuSTtX)zdlSV&~BKrcSV3JZw&YSV?psH4PSVL=1sBFSVXcJDP=SVe/bo^3 !SVqU{@l*SV}|9kyzSX0HR=-qSX')R3Sb-d?T`*Sb:0X%mz !SbFVpP{qSbR}.|/gSb_IGM=^Sbko_xKTSbx;xIYKSd*b6tgASd7.OEu8SdCTgq).SdO{&B7%Sd\G>mDu !SdhmW>RlSdu9oi`cSf'`.:nYSf4,Fe|PSf@R_70FSfLxwb>=SfYE63L3SfekN^Z*Sfr7g/gzSf~^%Zuq !Sh1*>,)gSh=PVW7^ShIvo(ETShVC-SSKShbiE~aASho5^Oo8Sh{[vz}.Sj.(5L1%Sj:NMw>uSjFtfHLl !SjS@~sZbSj_g=DhYSjl3UovPSjxYnA*FSl+&,l8=Sl7LE=F3SlCr]hT*SlP>v9azSl\e4doqSli1M5}g !SluWea1^Sn'}~2?TSn4J<]MKSn@pU.[ASnM2BF3T !SxJXZqAKSxV~sBOASxcK1m]8SxoqJ>k.Sx|=biy%Sz.c{;,uSz;09f:lSzGVR7HbSzS|jbVYSz`I)3dP !SzloA^rFSzy;Z0&=S|+ar[43S|8.1,B*S|DTIWOzS|Pzb(]qS|]FzSkgS|im8~y^S|v9QP-TS~(_i{;K !S~5,(LIAS~AR@wW8S~MxYHe.S~ZDqss%S~fk0E&uS~s7Hp4l #% [ 326] init.chir_mag !QdwxxR2;QfoZP>veQj+oZ[+?Qh08/6TGQ`1eyQ-JQVsGsa^~QZUf>ZU>Qjo2Ks<]Q|?Sw4\xR.aN\/6X !QzI_*B|NQb=U6I6ZQD[ZG7MjQRb?'J^[Q|0_*SW@R0zu5H5=R2\~mrAUR2'{`5L8Qx^Mx9f2Q>sep,^J !QRL+u3kSR0Y-fgAUR60^WbW*R8>wU9GvR6bf;|Q*R2>yZd'vQXL|/^jAAR>t\O6nHRF?K`g1pRF|%%2@iRBZYAb4+ !R8c-'N[WR0@z-a0HR8\\Rv`.RFlUdcghRRHIr.;/RVucy['?RTa9hktkRL-I|*b1R@^`=ZUHRBAE/DuU !RR`WuESdRf>wNjNfRtfTsyt{R|>SbR5JRzEu,n,|Rpr/59hI36@S@'3~bF*SBKSU\j9SH5gi0skSPZ9%>viS\DbEyLoShrW>SOM !SvJy3bIrT.^)^:H}T0-wfa5cT0Gw[-(^T0O2tRT'4L]rARbz}lt85Rn0T8~hiRp+g&avGRjZ_]N_3 !R`??M~_[RPU^y?e=Ry?OS6h]RzA9S:F9SDgMS>l_RhwKl[j{RdLS^LzVRzCrj3mp !S0n\/UwIS4Ay/1rTS6N`]Me]S80}vjiXS8Ml.hh)S8t&xIpKS*S>001bXXS4Va=cGjRnN/2TTsRJjuy8Q,RlI4xGT^S01i{LYzS0}uq1=pRnKe.OGcRZscJ%*,RNC7'UCxRHAE)P|bRF,RRaIWRBuZe6%pR@a7/c):R@HKA{:gRBNDGL/0 !RDtEPRmKRFJnT>zkRDLN3?GaR@(pfFCvR:.spi=GR6Di_XZ`R8')D|w_R:i.0OwURhR2)fqTx)R.ts6TxQ !R0LN~Z)FR2[v1~J;R461RW|WR2jAku4^R0Q+}V.5Qv:NC%aGQns2Kbx>R.jAp33gR0y37,I.R2FiDNIE !R0tLwRl~R.^ZQ?-YQfh|d^T=QbAv*crQQvi*v')PR0/>l?y.R0OzM~IYR0%}?J'OQrn-I9j,QZ;(2md/ !QTffkg=DQf{'uFehQxlI3Ot1Q~T*T^f9Qt{/Pa+PQ`U_'E6xQJ'Il-b3QHG>'P1[Q\>bB93;QlS0`J&c !Qp|SZIH.Qj&\wl-HQX)ydYU@QD=N:1SqQBxE3o,kQTEr4>-]Qb>f-Q^aqTR(TQNbrhb;B !QXGDYU,Q6Jh9\,zPb]2;YPxPb6d%&6r !Q4c8+TfgQ:gXJx{aQ<];s^VmQ:Bx.P=YQ4=xh0O6Pf2p6m5kPBD,tKYgQ.u8wQX/Q46\bS}1Q4rB]M]y !Q2t1UoO{Q.\I1D-4PLhT&kTHPZR*gpcRQ04&dijMQ2w/`DjoQ4P+o3'*Q2tN=2{VQ0P;mo(;PH(Cs*mqPLtr~~K@PfK[hC&] !PzjivT&,Q.pUcn*LQ.v;3&:1Q.V0nx}7PtLM,-r2Pj'A+M~:Ph1pgmXLPpq.YwBsP~g`e@i>Q0%*zzHp !Q01/98e/Q.m5|3zmPvuu3eAoPfh[7RK2P^=xTRXUPb4PL_n)PjTdzA&|PnH=p*:DPhLWGCgvPXed%W>w !PDrnf~FfP>xr4R2VPP4aE9mvP`@P`c_&Pf[78A>kP`ihLDlfb:T1,CgryIT1Cp{dY3T1ZT}~~PT1oLxj}]T1ys4V/5T18c|smmT1D:joZ,T1XX6k5% !T1m}I|>IT3)0NnB?T3<_n,ijT3IkOx;*T32a9,xvT1{NAkHvT3/TeK&bT3Be6D-vT3Vh{d/bT3ic+&m3 !T3w6?e&ZT3hsjAnbT3SHNvm4T3^u/*NYT3q4^'gaT5*enNR*T5=I/rwWT5L=>QR'T5OHZ/ZyT5CHw&:r !T5EsBT9ZW:H?YT9g.CB1lT9sN7{b)T;'r|w*}T;9&K*%FT;LKai^H !T;aKhwo@T;wQ_,,9T=4>+6d(T=KVxz8CT=c5>V&qT={*YO-/T?90x.N6T?QCgI7oT?i^Wk+\TA'{>B-1 !TA@4UZkBTAW~aH?nTAnaP)2gTC'go~R;TC-]8I^RTAzFnPHXTC)2Uy4&TC?YjvjGTCZ@Fj5DTCvGAU~1 !TE8MFo~9TESc%rs[TEmC,WrHTExSKYM@TC}Gr5HDTE8LjM}5TEL8uY7rTE\}fA7ZTEhX%cD}TEl{l>P= !TEnK8B4^TEtx(0^tTG&|:A=ZTG6;e&aWTGGDg2|.TGY_sOK,TGlx\?0WTI'.XW%=TI<3\hOyTIR+hTtB !TIhmRI]*TK&>nDK{TK>H_6miTKVuYChMTKo?{yzjTM,XTCCrTM@C.E((TMK<9z)|TMK/qy~rTMQ*A9@H !TM`sAB})TMtTuBp0TO.nrlHBTOA~=8dUTORdwlW@TO`;p/VTOy%b/)&TQ/QDE4(TQC.dn5Q !TQXzj.2.TQp@S5%;TS.c{o_RTSGpp)AxTSaV&Lc)TS{aLs9/TUT{kC]E@,T}JGGu]6T}{{3vS/U-UU`MxxU-XzCZ?a !U-\@.)U&U-_z&YXYU-dV4LH,U-jKlN3RU-oCefQ'U-s,6=TkU-vHzMtTU-yaJ)@oU-}9dQ]?U/'lZtF{ !U/-taM9'U/2p~6B6U/6SO(o=U/9iKUGAU/U12%m0KgU15C>FerU18B\.uPU1;B}|E-U1>gVj.8U1D9S`8-U1K`67*;U1O_{Qlz !U1Rdl^.bU1UUIN8iU1XD[zbTU1[FKXQnU1_Y4k<&U1h8Q08hU1ll]eE6U1rJy6MtU1tw@aqh !U1w:rrT{U1x\/vf5U1pi*M2}U1r^Y92IU1tvi,W9U1w8zk0'U1yS.)(TU3%668D/U3&sQ{{:U3(`Egk9U3*AYXPMU3+XSWp[U3+u8Q_^ !U3+9|,8cU3+BzPXPU3,IIR?3U3-tU4MZU3/OB87&U30{UDX?U32%14Y(U31+ !U38'Y_?DU39DJcW~U3:Or6IdU3;/9hy^U3;+]*vzU3;(m=WVU3;f1@EJU3B}@wjU3?Z@^1e !U3?v5oduU3=f32U^U3=0q.\4U3>?bmt.U3?wcgwpU3A[KJijU3C&)lVEU3Bhn2OZU3??'=yLU3?`?ih8 !U3A4*V.[U3BrG_~:U3DMW0h'U3E\u?Y-U3Eiwhb]U3E(SEU3MLNDPz #% [ 326] init.chir_re !QcwxxR2;QEp+cI\XQB@Vs{zYQfK3luxsQNxM3sL{Q5M}@n0ZQYQ=IotCQA)S&}idQLJ54ogWQ~;oO<,h !QrX)x6*xQ8LtQ)VoQ?,M;G,cP}rhfHsYQb)S^sT:R0y6z8rvR0VQR&@RQP7;Q1f{Q;O7EK.iQ;?Wht%8 !QP6&'JxoR.g]mrgVPt9v2>(^Q{%P\*`=R/IK*/(0QUNDIKebQ8)5uBSyPVSeO4pFR/5H=sxq !R;Muc&3?R?S5SAe)R9(wpLy>R-vy?nHDQk;fj/T0R3QJ-XfFR=mvxec2R?\[Sv7CR5)z0,fDPs^gV2+^ !Q`8+qj1[PW-T`w2NR/;c:Zq[R-ri%UDeQl2eFZm0RBsZkxv:RP.y|P}.RJ~MfEqiR@^=m{\bR@YOV;;P !RPuxW1mcRf0*sQwh*JQlg[GlmhR9Fm[W={RAsPr[b.RG%zaT;[R_//XM<]S/So8>P> !S5I2zT.sS7_U?UiAS54,'^RtS-U=|D+PQQTSwO./RxZpr};sS8a4_2R`SH[C_]PLSZpNtb`ySfQGxH+m !S^)ZP>HAS:7u>jI1SG'+-:i8SydXMx^CT/Ms)H=~T-]sJ=~}SQ,%Y6C^S23=RswtSX[s|XUHS`|]83Pb !SPuOb:QJS8X=_)]7R0|Ycr]ZRST-ns%gRAqtLSehR/@A.U(7R?LTZWcORaNL6(&oRmw]z']uRUO*,1|O !Q[+Bs\.QRPDyL}}R5QZP=Q^RE(OPei0R/o,{s&oR8(pNi&tR>es0^U/QL[StB~t !R=0l]Y@nRE'2L3.]R1p4qgnKR0qI\-2sR:-::X)%Qb_v*s*5R3,3k@AuR7w6nBKyQ]n^@+odR2pDD(Hw !R8wAr[vMQtb]{>yzR-[y9a !Q=Fb+t\~R.m1X2'gR40(L^v~QncyjsVmQI];@6~5Qu)KY0C~Q7N'q:5kQt7R?2,YR0Y~J|^FQV%x>oB+ !QW2E{UxqR-S_[MI1QM5jVKuRQPSX'bwhQp(6YY,jQ<&@KNY/Qc(q0KkZR-z6LzNaQ_8x{iIgQ40&@R9t !QT8q2-@wQ.V{s+;UQ_(&R?:>Q}T)y;`yQ]8^0CL%PT4>kdTEQH0O'cn1Pl2Lmni7QQf;Qz&aQi8nSz\O !QK2tX=R9Q6/6Y_^1QR9VG)*iQi9CT`1QZ0}D5PRpU\5 !P@Yvbu%iQ5ww)~0~PIkBDS`bQBSc8tb(QT]&)HP:QFqP&+[yPDaO(Ic>Q1xYGLpGP1NlCJbhQ@f3VZ3( !QPvXVni0QD|;R|QbPBBA>:u=Q5fssyOwQ1^H[oJyPnx67/,qQ<2=6:S;Q6PknAQJP?h|m1QJQ78.ov*4 !Q5r]D|hIP[AS~Z3)PBG=*k89P?l.&fD2Q5kiC@vlQ?q2lBFMQ=1]&C{CQ/rs6)pNP=XQ\yn9PSGta0oh !Q3,v|+PJ[i|UY>PN9Wh_CDz.xOQ.UIPY._Uz=NPSK{lE(,P[h1{BapPobPH:eEQ-l/(&qp !Q/0rtC~4P}{`mlEiPesm)'h7PQz8nA-ePM%|\cgdPOSN%NV9PM8~2=nlP;dLiGjWO29UaL1'P6B(k.r< !P2t~Oh4penJIP6V,dC:x !PR{QjX.VPlS).\YzPp8Ne_b7P`Z@HiS8PR^m1<`)PVOV9KU(Pfy6^SF~Pp_uHt:bPbK%CU8?P@YPmh&R !OKnip[]SP3>*K]?8Omgt1=%HO9Mt`p10P3R\h_XbPM}|*=m' #% [ 326] init.chir_im !Q%%%%%%%Q^5X/'([QbxN?wfWQ2jsN.ZpQM>5[@kdQSH*YMT%PF7+MS7bQdrg0DT|QrcqN9rWQB|X@oIh !QG]~eR,5Q]iY~Q5)Q5Roze.cQR9{-%uoQbyFpq{>Q.fMB8R]Qm0Ln@J8R/_B<~DUQu'QX:_RQ15,``)g !Q4F@ffH[QIy~^1_MR1[Fl{)(R7>4H3|VR3V5CLK.Qe1ikDg]Q3%t`,n}Q[U>S=a@R3W=U`<0R98E?4ZZ !R3GV~(B3Q1o`;\^RF+ikN+ARR/K-*pIRL{w%bXvR:dFv9zzQLOE,C~R.Sf,NN' !R0o`L43GQe[0W:]yRO*hS*@uRo;3XS8RRy8?l~ikRmI_E-lAR_q2kT+vRcQ(~Ud.RqPeX)A&Rm]1L=9U !R=wS-afbRd4&)h|NS4wnvcmpSR3.\x2S0=j-y~}S7T_iCAk !S_.DTXl0T-Sm9sBxT-mZ1~kSSeqZ}eq/RsSw~B}CSZE(`aV&S~`4\VaPS~2.y}FdS^0V{6-SS4+_-N%0 !S5HP4{]|S?RU\^dLS9V\J;1;S/DH7V*=RSeKTH?/RQIMLam*R[tg%DWbRKKJ,@*lQj)Dat{BRVNA(]d2 !R`4&-8OwRJ&V(ky:Qx\*;k(PP2fS>}\n\*CS:lmrPO7S07\wQpRR1CI>(8IRs}^-'SLR{RH->1NRgNOQ0RyRa~{uky.RyC(kBF} !S/K;HUTmS-mD_.+GRI('>iAYRTE;d@bBS0t>&xVeS6ClySk*S:cdE~lFS@^[iTzKSDYVh}K|S>mehrTY !RVF]O'XWS?v{fVUPS_:ph}>KSifDsgo[SW`XcSH=S/MVc&ASSDoa|nD|S\]:r]X]SXS439O`S@L[>(;R !QF:6s4iBS30-H_YKS3,_+1~ZRmJL6iBgRESv99SrR]C*&8&?S/-V;3kbS/;2M}ITRQI4p,eYRLJ[d\6x !RzU>|BhVRhAv,c87R0/uV;sVRE)u-h[]RC,u:MRAQ<~rGw??R@dvle)KR:;Tf^J^Qww^v.5wRABBgu/] !R9;TDS8&Qlr7=POyR@pqk2j3R<`6-O|9Q2+)p1}GR3j@gI:@R/ZKx]K5Qxhd/+nQRwMQ:GcMI2d !PSDoSKsnQEZui[03QM'N(/|?Q9x6[(R&P8TiF-.LP|MaNa``Pa3l[HJMQ?9sD5KXQE]|h.F%Q9}8Pf\~k0zSQ2(]o(iIP\x5(c+.PK./97:I !PW@Tk>x?PNg52Ce&Q4uKAa?LQ8zS2f&,Q4(2|G[|PV~I\JqUP41W`?j&P`H6}?ukQ2T2j^n4Q4p0[Pfv !Q0jX`U,DPX=GD_.JPsXaqZ4nP_WH[qniyDryPNEPN2QmP`@EhcclP`uo9:m0PN3rUvK0P6gurQSbPTdY]a4y !PZXODS`Y<.]P3OKm.*aP1YeWPb[OW=nuz_\P/^t;4 load fit_xrd.iff # ifeffit> fit_file xrd.dat s2pi = sqrt(2*pi) read_data(file = xrd.dat, group=f, label='q, dat') guess (bxn0 = 400, bxn1 = -139, bxn2 = 20) guess (g1_amp = 1.0, g1_sig = 0.022, g1_cen = 1.28) guess (g2_amp = 0.8, g2_sig = 0.01, g2_cen = 2.00) guess (g3_amp = 1.6, g3_sig = 0.01, g3_cen = 2.10) guess (g4_amp = 3.0, g4_sig = 0.01, g4_cen = 2.45) guess (g5_amp = 0.4, g5_sig = 0.01, g5_cen = 2.57) guess (g6_amp = 1.6, g6_sig = 0.01, g6_cen = 2.95) guess (g7_amp = 0.8, g7_sig = 0.01, g7_cen = 3.25) guess (l4_amp = 0.02, l4_wid = 0.01, l4_cen = 2.45) guess (l6_amp = 0.02, l6_wid = 0.01, l6_cen = 2.95) f.bkg = bxn0 + f.q * (bxn1 + f.q * bxn2) f.g1 = (abs(g1_amp/(g1_sig * s2pi))) * exp(-((f.q-g1_cen)/g1_sig)^2/2) f.g2 = (abs(g2_amp/(g2_sig * s2pi))) * exp(-((f.q-g2_cen)/g2_sig)^2/2) f.g3 = (abs(g3_amp/(g3_sig * s2pi))) * exp(-((f.q-g3_cen)/g3_sig)^2/2) f.g4 = (abs(g4_amp/(g4_sig * s2pi))) * exp(-((f.q-g4_cen)/g4_sig)^2/2) f.g5 = (abs(g5_amp/(g5_sig * s2pi))) * exp(-((f.q-g5_cen)/g5_sig)^2/2) f.g6 = (abs(g6_amp/(g6_sig * s2pi))) * exp(-((f.q-g6_cen)/g6_sig)^2/2) f.g7 = (abs(g7_amp/(g7_sig * s2pi))) * exp(-((f.q-g7_cen)/g7_sig)^2/2) f.l4 = abs(l4_amp) / ( (f.q-l4_cen)^2 + l4_wid^2) f.l6 = abs(l6_amp) / ( (f.q-l6_cen)^2 + l6_wid^2) f.fit = f.bkg + f.g1 + f.g2 +f.g3 + f.g4 + f.g5 + f.g6 + f.g7 + f.l4 + f.l6 f.dif = f.dat - f.fit plot(f.q,f.dat, new) plot(f.q,f.fit, color=black) minimize(f.dif, ordinate = f.q,xmax=3.5, xmin=1) plot(f.q,f.fit, color=red) show @variables ifeffit-1.2.11d/examples/Minimize/line_fit.iff0000644000175000017500000000030610771740460020233 0ustar segresegredata.x = range(1,10,0.1) data.y = 4.5 + 32 * data.x + 2 * sin(data.x * pi/2) plot data.x, data.y guess a = 2, b =10 fit.line = a + b * data.x fit.diff = fit.line - data.y minimize(fit.diff) ifeffit-1.2.11d/examples/Minimize/t1.iff0000755000175000017500000000046310771740460016775 0ustar segresegreset dat.x = range(1,50,1) set dat.y = 3.2 * sin(0.2 + dat.x*pi/10) + cos(dat.x*pi/100)* 0.03 set dat.err = ones(50) * 0.2 guess ( m = 1 , b = 0.1,c =0.1) fit.y = m * sin( dat.x * pi*b + c) fit.resid = fit.y - dat.y minimize(fit.resid, uncertainty = dat.err) show @variables, chi_square ifeffit-1.2.11d/examples/Minimize/xrd_fit.iff0000755000175000017500000000301110771740460020100 0ustar segresegre# # example of using Ifeffit's minimize: # fit powder diffraction data # # usage: # ifeffit> load xrd_fit.iff # ifeffit> fit_file xrd.dat s2pi = sqrt(2*pi) macro show_fit # print ' show_fit ', g1_amp # plot(f.q,f.dat, new) # plot(f.q,f.fit, color=red) end macro read_data(file = xrd.dat, group=f, label='q, dat') guess (bxn0 = 400, bxn1 = -100, bxn2 = 0) guess (g1_amp = 1, g1_sig = 0.01, g1_cen = 1.25) guess (g2_amp = 1, g2_sig = 0.01, g2_cen = 2.00) guess (g3_amp = 1, g3_sig = 0.01, g3_cen = 2.10) guess (g4_amp = 1, g4_sig = 0.01, g4_cen = 2.42) guess (g5_amp = 1, g5_sig = 0.01, g5_cen = 2.57) guess (g6_amp = 1, g6_sig = 0.01, g6_cen = 2.95) guess (g7_amp = 1, g7_sig = 0.01, g7_cen = 3.25) f.bkg = bxn0 + f.q * (bxn1 + f.q * bxn2) f.g1 = (abs(g1_amp/(g1_sig * s2pi))) * exp(-((f.q-g1_cen)/g1_sig)^2/2) f.g2 = (abs(g2_amp/(g2_sig * s2pi))) * exp(-((f.q-g2_cen)/g2_sig)^2/2) f.g3 = (abs(g3_amp/(g3_sig * s2pi))) * exp(-((f.q-g3_cen)/g3_sig)^2/2) f.g4 = (abs(g4_amp/(g4_sig * s2pi))) * exp(-((f.q-g4_cen)/g4_sig)^2/2) f.g5 = (abs(g5_amp/(g5_sig * s2pi))) * exp(-((f.q-g5_cen)/g5_sig)^2/2) f.g6 = (abs(g6_amp/(g6_sig * s2pi))) * exp(-((f.q-g6_cen)/g6_sig)^2/2) f.g7 = (abs(g7_amp/(g7_sig * s2pi))) * exp(-((f.q-g7_cen)/g7_sig)^2/2) f.fit = f.bkg + f.g1 + f.g2 +f.g3 + f.g4 + f.g5 + f.g6 + f.g7 f.dif = f.dat - f.fit # show_fit minimize(f.dif, ordinate = f.q,xmax=3.45, macro=show_fit) plot(f.q,f.dat, new) plot(f.q,f.fit, color=red) show @variables ifeffit-1.2.11d/examples/README0000644000175000017500000000367110771740461015064 0ustar segresegreIFEFFIT Examples This directory contains some simple examples of using Ifeffit for general data analysis and especially XAFS analysis. The examples are organized by category and complexity, and broken into small ifeffit scripts (all with an extension '.iff') each of which can be run individually from the system command-line as ~> ifeffit help.iff or from within the Ifeffit environment as ~> ifeffit Ifeffit> load help.iff Each script contains some documentation of its own. A brief description of the scripts follows: help.iff Print information about these examples, test that Ifeffit loads, runs, and can print to the screen. Anomalous/calc_f1f2.iff calculate f' and f'' for Cu, using energy points from an external data file Lytle/Lytle.iff read datafile downloaded from Farrel Lytle database, convert motor steps to energy, and plot XAFS. Plotting/text-strings.iff use of text strings in plotting, especially commonly used greek-character constructs for XAFS spectra. Pre_Edge/pre.iff simple example of pre-edge subtraction of XAFS spectra Spline/autobk.iff simple example of autobk-like background subtraction of XAFS spectra Macros This directory contains several useful little macros Macros.iff collection of generally useful macros, most of them reasonably well annotated quit.iff simple little macro to allow 'q' to mean 'quit' DO.iff M1.if W.iff ave.xmu iff.out tmp.iff xafs.dat Data_Processing GG.xmu a.dat a.xmu b.chi cu.chi cu10k.dat ifeffit.sav interpolote.iff sro.chi tmp.dat write_exa.iff x.sav xmu.dat y.sav FF2CHI/ A-ff2chi.iff B-x.inp B-x.log B-x.prm B.iff Debye.iff F-fit.inp Feffit.iff G.iff H.iff a.inp cu_chi.dat feffcu03.dat my_feffit.log save_reff.iff test.iff test2.iff test_terp.iff tmp_out.log Minimize: Do_fits.pl amps.dat centers.dat fit_xrd.iff noise.dat sigmas.dat test.dat xrd.dat xrd.dat.fit ifeffit-1.2.11d/examples/Misc/0000755000175000017500000000000010771740460015067 5ustar segresegreifeffit-1.2.11d/reconf0000755000175000017500000000171010771740461013560 0ustar segresegre#!/bin/sh # # Copyright (C) 2001,2003 Matt Newville # # Purpose: rerun autoconf and automake after playing with # configure.in and other primitive build instruction # files. # This requires a full set of autotools to be installed, and only # needs to be run for development, not for building and installation. # # This file is free software; as a special exception the author gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY, to the extent permitted by law; without even the # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. # # rm -f config.cache acconfig.h config.h aclocal # don't run this, as it blows away the TERMCAP_LIB check autoconf autoheader # acconfig # automake -a echo " ready for configure" exit ifeffit-1.2.11d/KNOWN_BUGS0000644000175000017500000000003310771740461014012 0ustar segresegre See web pages for details.ifeffit-1.2.11d/Makefile.in0000644000175000017500000002504710771740461014434 0ustar segresegre# Makefile.in generated automatically by automake 1.4 from Makefile.am # Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. # Copyright (C) 2000 Matt Newville # # This file is free software; as a special exception the author gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY, to the extent permitted by law; without even the # implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. SHELL = @SHELL@ PERL = @PERL@ PYTHON= @YTHON@ srcdir = @srcdir@ top_srcdir = @top_srcdir@ VPATH = @srcdir@ prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ sbindir = @sbindir@ libexecdir = @libexecdir@ datadir = @datadir@ sysconfdir = @sysconfdir@ sharedstatedir = @sharedstatedir@ localstatedir = @localstatedir@ libdir = @libdir@ infodir = @infodir@ mandir = @mandir@ includedir = @includedir@ oldincludedir = /usr/include DESTDIR = pkgdatadir = $(datadir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ top_builddir = . AUTOCONF = @AUTOCONF@ INSTALL = @INSTALL@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ $(AM_INSTALL_PROGRAM_FLAGS) INSTALL_DATA = @INSTALL_DATA@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ transform = @program_transform_name@ NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : host_alias = @host_alias@ host_triplet = @host@ CC = @CC@ CPP = @CPP@ F77 = @F77@ FFLAGS = @FFLAGS@ FLIBS = @FLIBS@ PGPLOT_LIBS = @PGPLOT_LIBS@ MAKEINFO = @MAKEINFO@ NM = @NM@ PACKAGE = @PACKAGE@ RANLIB = @RANLIB@ VERSION = @VERSION@ canonical_host_type = @canonical_host_type@ EXTRA_DIST = reconf configure SUBDIRS = readline src ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs CONFIG_HEADER = config.h CONFIG_CLEAN_FILES = DIST_COMMON = README ./stamp-h.in AUTHORS COPYING ChangeLog INSTALL \ Makefile.in NEWS THANKS acconfig.h aclocal.m4 config.guess \ config.h.in config.sub configure configure.in install-sh \ missing mkinstalldirs DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST) TAR = gtar GZIP_ENV = --best all: all-redirect compiled-message .SUFFIXES: Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status $(BUILT_SOURCES) @echo 'ECHO 1' # cd $(top_builddir) \ # && CONFIG_FILES=$@ CONFIG_HEADERS= $(SHELL) ./config.status exit config.status: $(srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) $(SHELL) ./config.status --recheck # $(srcdir)/configure: $(srcdir)/configure.in $(CONFIGURE_DEPENDENCIES) # cd $(srcdir) && $(AUTOCONF) config.h: stamp-h @if test ! -f $@; then \ rm -f stamp-h; \ $(MAKE) stamp-h; \ else :; fi stamp-h: $(srcdir)/config.h.in $(top_builddir)/config.status @echo timestamp > stamp-h 2> /dev/null $(srcdir)/config.h.in: $(srcdir)/stamp-h.in @if test ! -f $@; then \ rm -f $(srcdir)/stamp-h.in; \ $(MAKE) $(srcdir)/stamp-h.in; \ else :; fi $(srcdir)/stamp-h.in: $(top_srcdir)/configure.in cd $(top_srcdir) @echo timestamp > $(srcdir)/stamp-h.in 2> /dev/null mostlyclean-hdr: clean-hdr: distclean-hdr: -rm -f config.h maintainer-clean-hdr: # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. @SET_MAKE@ all-recursive install-data-recursive install-exec-recursive \ installdirs-recursive install-recursive uninstall-recursive \ check-recursive installcheck-recursive info-recursive dvi-recursive: @set fnord $(MAKEFLAGS); amf=$$2; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || case "$$amf" in *=*) exit 1;; *k*) fail=yes;; *) exit 1;; esac; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" mostlyclean-recursive clean-recursive distclean-recursive \ maintainer-clean-recursive: @set fnord $(MAKEFLAGS); amf=$$2; \ dot_seen=no; \ rev=''; list='$(SUBDIRS)'; for subdir in $$list; do \ rev="$$subdir $$rev"; \ test "$$subdir" = "." && dot_seen=yes; \ done; \ test "$$dot_seen" = "no" && rev=". $$rev"; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || case "$$amf" in *=*) exit 1;; *k*) fail=yes;; *) exit 1;; esac; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done tags: TAGS ID: $(HEADERS) $(SOURCES) $(LISP) list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ here=`pwd` && cd $(srcdir) \ && mkid -f$$here/ID $$unique $(LISP) TAGS: tags-recursive $(HEADERS) $(SOURCES) config.h.in $(TAGS_DEPENDENCIES) $(LISP) tags=; \ here=`pwd`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test -f $$subdir/TAGS && tags="$$tags -i $$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS)'; \ unique=`for i in $$list; do echo $$i; done | \ awk ' { files[$$0] = 1; } \ END { for (i in files) print i; }'`; \ test -z "$(ETAGS_ARGS)config.h.in$$unique$(LISP)$$tags" \ || (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags config.h.in $$unique $(LISP) -o $$here/TAGS) mostlyclean-tags: clean-tags: distclean-tags: -rm -f TAGS ID maintainer-clean-tags: distdir = $(PACKAGE)-$(VERSION) top_distdir = $(distdir) # This target untars the dist file and tries a VPATH configuration. Then # it guarantees that the distribution is self-contained by making another # tarfile. distcheck: dist -rm -rf $(distdir) GZIP=$(GZIP_ENV) $(TAR) zxf $(distdir).tar.gz mkdir $(distdir)/=build mkdir $(distdir)/=inst dc_install_base=`cd $(distdir)/=inst && pwd`; \ && $(MAKE) $(AM_MAKEFLAGS) dvi \ && $(MAKE) $(AM_MAKEFLAGS) check \ && $(MAKE) $(AM_MAKEFLAGS) install \ && $(MAKE) $(AM_MAKEFLAGS) installcheck \ && $(MAKE) $(AM_MAKEFLAGS) dist -rm -rf $(distdir) @banner="$(distdir).tar.gz is ready for distribution"; \ dashes=`echo "$$banner" | sed s/./=/g`; \ echo "$$dashes"; \ echo "$$banner"; \ echo "$$dashes" dist: distdir -chmod -R a+r $(distdir) GZIP=$(GZIP_ENV) $(TAR) chozf $(distdir).tar.gz $(distdir) distdir: $(DISTFILES) -rm -rf $(distdir) mkdir $(distdir) -chmod 777 $(distdir) info-am: info: info-recursive dvi-am: dvi: dvi-recursive check-am: all-am check: check-recursive installcheck-am: installcheck: installcheck-recursive all-recursive-am: config.h $(MAKE) $(AM_MAKEFLAGS) all-recursive install-exec-am: install-exec: install-exec-recursive install-data-am: install-data: install-data-recursive final-message: @echo "=== " @echo "=== Ifeffit $(VERSION) installed." @echo "=== " @if test "x$(PERL)" = "x"; then :; else \ echo " to install or upgrade the Athena and Artemis, please do:"; \ echo " perl horae_update" ; \ fi; @if test "x$(PYTHON)" = "x"; then :; else \ echo " to use this version of Ifeffit with Python, please do:"; \ echo " cd wrappers/python";\ echo " python setup.py install" ; \ fi; compiled-message: @echo "" @echo " make done. If there were no errors, type 'make install'" install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am install: install-recursive final-message uninstall-am: uninstall: uninstall-recursive all-am: Makefile config.h all-redirect: all-recursive-am install-strip: $(MAKE) $(AM_MAKEFLAGS) AM_INSTALL_PROGRAM_FLAGS=-s install installdirs: installdirs-recursive installdirs-am: mostlyclean-generic: clean-generic: distclean-generic: -rm -f Makefile $(CONFIG_CLEAN_FILES) -rm -f config.cache config.log stamp-h stamp-h[0-9]* maintainer-clean-generic: mostlyclean-am: mostlyclean-hdr mostlyclean-tags mostlyclean-generic mostlyclean: mostlyclean-recursive clean-am: clean-hdr clean-tags clean-generic mostlyclean-am clean: clean-recursive distclean-am: distclean-hdr distclean-tags distclean-generic clean-am distclean: distclean-recursive -rm -f config.status -rm -f conftest.o maintainer-clean-am: maintainer-clean-hdr maintainer-clean-tags \ maintainer-clean-generic distclean-am @echo "This command is intended for maintainers to use;" @echo "it deletes files that may require special tools to rebuild." maintainer-clean: maintainer-clean-recursive -rm -f config.status .PHONY: mostlyclean-hdr distclean-hdr clean-hdr maintainer-clean-hdr \ install-data-recursive uninstall-data-recursive install-exec-recursive \ uninstall-exec-recursive installdirs-recursive uninstalldirs-recursive \ all-recursive check-recursive installcheck-recursive info-recursive \ dvi-recursive mostlyclean-recursive distclean-recursive clean-recursive \ maintainer-clean-recursive tags tags-recursive mostlyclean-tags \ distclean-tags clean-tags maintainer-clean-tags distdir info-am info \ dvi-am dvi check check-am installcheck-am installcheck all-recursive-am \ install-exec-am install-exec install-data-am install-data install-am \ install uninstall-am uninstall all-redirect all-am all installdirs-am \ installdirs mostlyclean-generic distclean-generic clean-generic \ maintainer-clean-generic clean mostlyclean distclean maintainer-clean # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: ifeffit-1.2.11d/iconf_term0000755000175000017500000000205111071432411014413 0ustar segresegre#!/bin/sh # # This file will test how to build readline support into ifeffit. # Essentially, this looks for libtermcap.a, and sets LIBTERMCAP_LIB # accordingly. # where to look for termcap libs dirnames="/usr/local/ /usr/ /sw/ /opt/ /usr/local/gnu/ /usr/gnu/ /gnu/ /" libnames='lib64 lib' termlibs='ncurses termcap curses' DIR='' LIB='' found='n' find_lib() { if [ -f $1/lib$2.dylib ] ; then DIR=$1 LIB=$2 fi if [ -f $1/lib$2.a ] ; then DIR=$1 LIB=$2 fi if [ -f $1/lib$2.so ] ; then DIR=$1 LIB=$2 fi } for base in $dirnames; do for xlib in $libnames; do tdir=$base$xlib if [ -d $dir ] ; then for tcap in $termlibs ; do find_lib $tdir $tcap if [ "x$DIR" != "x" ] ; then found='y'; break ; fi done if [ "$found" = "y" ] ; then break; fi find_lib $tdir/termcap termcap if [ "x$DIR" != "x" ] ; then found='y'; break ; fi fi done if [ "$found" = "y" ] ; then break; fi done echo -L$DIR -l$LIB ifeffit-1.2.11d/iconf_pgplot0000755000175000017500000000430510771740461014772 0ustar segresegre#!/bin/sh # # This file will test how to build pgplot. Essentially, # this looks for where libpgplot_iff is, where the X libs are, # and whether to use '-lpng -lz' for the PNG device. # # first, the PGPLOT directory and PGPLOT library are found # look for library file # where to look for pgplot directory: last one found will be used! pgdirs="/usr/local/share/ifeffit/pgplot /usr/share/ifeffit/pgplot /Applications/Ifeffit/pgplot $1" xdirs="/usr/X11/lib /usr/lib/X11 /usr/lib/X11R5 /usr/X11R5/lib /usr/lib/X11R6 /usr/X11R6/lib" xd="" # set default, in case we find nothing: cwd=`pwd` def="$cwd/src/pgstub/libnopgplot.a" basedir="NONE" for d in $pgdirs; do if [ -d $d ] ; then if [ -f $d/grfont.dat ] ; then basedir=$d ; fi if [ -f $d/libpgplot_iff.a ] ; then libdir=$d ; fi fi done # if we can't find the basedir, give up if test "$basedir" = NONE ; then echo $def ; exit ; fi # now we look for the files makefile and grexec.f # in the pgplot directory, and parse them to figure out how to # link to PGPLOT. The makefile is much more reliable, but we # can probably guess from grexec.f out="" mfile=$basedir/makefile ffile=$basedir/grexec.f if [ -f $mfile ] ; then out="$out -L$libdir" l1=`grep "^PGPLOT_LIB=" $mfile| sed 's/PGPLOT_LIB=-L\`pwd\`//' | sed 's/PGPLOT_LIB=//' ` l2=`grep "^LIBS=" $mfile | sed "s/LIBS=//"` lline="$l1 $l2" # echo 'L1: ', $l1 # echo 'L2: ', $l2 # echo 'out: ', $out for i in $lline ; do echo $i | grep -q '^-L' ; stat=$? if [ $stat == 0 ] ; then # this is a '-L' word, check that directory exists if [ -d `echo $i | sed "s/-L//"` ] ; then out="$out $i" ; fi else out="$out $i" fi done # echo 'out: ', $out else if [ -f $ffile ] ; then out="-L$libdir -lpgplot_iff" grep " CALL PNDRIV" $ffile >/dev/null 2>&1; if [ $? ] ; then out="$out -lpng -lz" ; fi grep " CALL XWDRIV" $ffile >/dev/null 2>&1; if [ $? ] ; then for d in $xdirs; do if [ -d $d ] ; then if [ -f $d/libX11.so ] ; then xd=$d ; fi if [ -f $d/libX11.a ] ; then xd=$d ; fi fi done out="$out -L$xd -lX11" fi else out=$def fi fi echo $out ifeffit-1.2.11d/reinstall0000755000175000017500000000072610771740461014307 0ustar segresegre#!/bin/sh # # this will do a full build and install of the # ifeffit library, perl and python extension # # it assumes root permissions, and that the # build procedure runs smoothly and correctly # # this is really intended for _remaking_ the # ifeffit installation after a change to the # source code of the libraries or extensions # ./configure make make install cd wrappers/python sh Build sh Install cd ../perl perl Makefile.PL make install make clean ifeffit-1.2.11d/README.PGPLOT0000644000175000017500000001340310771740461014244 0ustar segresegreInstalling PGPLOT for IFEFFIT ----------------------------- Starting with Ifeffit 1.2.10, PGPLOT must be installed BEFORE Ifeffit is built, and must be built with the PGPLOT_Install script. Specifically, pre-compiled binary packages from linux distributions (debian, ubuntu, etc) WILL NOT WORK. If you try to use of these, IFEFFIT will not find PGPLOT. To install PGPLOT, type ~> sh ./PGPLOT_install The shell script 'PGPLOT_install' will attempt to download, build and install PGPLOT for you. Running PGPLOT_install can be as simple as ./PGPLOT_install --system=linux This will install Ifeffit to /usr/local/share/ifeffit/pgplot. You can specifiy a different location for the 'share/ifeffit/pgpplot' tree, but it is recommended that you use the same prefix for PGPLOT_install and Ifeffit's configure script. Other options for PGPLOT_Install are: --prefix=/usr/local/ base name of install directory --system=linux name of system type --with-fortran=g77 force name of fortran compiler (default is to autoseek) --with-64bit for 64bit systems (not always needed) --no-clean do not clean up temporary files from install folder. --no-log do not write it PGPLOT_install.log --with-png use png driver --with-gif use gif driver (may fail on some systems) --no-png --no-gif --help show help I've not tried installing PGPLOT with this script on any non-linux system in many years. Note: You will need libpng and X Windows development tools. For some modern linux systems (notably Ubuntu), you may need to install libpng-devel and Xorg-devel packages. The PGPLOT_install script will will download the PGPLOT kit, configure, build, and install PGPLOT for you. The script has the following requirements: 1. If the file pgplot5.2.tar.gz isn't already here, it will try to download it for you. This may fail, in which case you'll have to download it yourself from http://www.astro.caltech.edu/~tjp/pgplot/ Only after the file pgplot5.2.tar.gz is in the same directory as PGPLOT_install can the installation proceed. 2. By default, PGPLOT_install will install the pgplot files in /usr/local/share/ifeffit/pgplot To do this successfully, you probably need to run PGPLOT_install with root access. If you don't have root access, or want to use some other location for the PGPLOT libraries, specify the directory prefix with the --prefix switch: ./PGPLOT_install --prefix=/home/matt/libs which will install to /home/matt/libs/share/ifeffit/pgplot. You will want configure Ifeffit to use the same prefix. 3. PGPLOT_install assumes it's building on a linux system with g77 and gcc. It will probably work on an IRIX or other Unix system, by using commands like: ./PGPLOT_install --system=irix --prefix=/home/matt/libs/ ./PGPLOT_install --system=sun4 the argument is passed on to PGPLOT to help compilation), but this is not tested. If the script fails, consult the PGPLOT instructions, or contact me when you've run out of ideas. The goal of the PGPLOT build is to create a library file 'libpgplot.a' against which Ifeffit will be linked. If this gets built and the demos run, PGPLOT should work with Ifeffit. Configuring Ifeffit: -------------------- Unless told otherwise (ie, with an explicit --with-pgpplot, --without-pgplot, or --with-pgplot-link), the configuration script will try to determine how to build Ifeffit using the iconf_pgplot script. You can run this yourself: ~>./iconf_pgplot which should write out a set of link options for how to successfully link with the PGPLOT library. Something like -L/usr/local/share/ifeffit/pgplot -lpgplot_iff -lpng -lz -L/usr/X11R6/lib -lX11 should get written out. If you get something like .../src/pgstub/libnopgplot.a then Ifeffit will be built without plotting capabilities. Note that the same fortran compiler must be used to compile PGPLOT and Ifeffit. Normally, the --with-fortran option can be ignored. PGPLOT Environmental Variables: ------------------------------- After installation, you may want to set some environmental variables associated with PGPLOT. You will not need to set PGPLOT_DIR or PGPLOT_DEV unless you want to change the defaults (PGPLOT_DIR being set to the originial installation directory and PGOLOT_DEV = /xserve For Postscript and / or GIF output from IFEFFIT, you may want to set the height and widths of the resulting output plots. For the Postscript devices, the size is specified in units of 0.001" (25 microns). An appropriate size might be: csh: setenv PGPLOT_PS_HEIGHT 9000 setenv PGPLOT_PS_WIDTH 6000 For GIFs, the units are pixels, so appropriate sizes might be: bash: export PGPLOT_GIF_HEIGHT=400 export PGPLOT_GIF_WIDTH=500 Finally, for the X windows devices, you may want to put a few setting into your .Xdefaults or .Xresources file. Typical setting might be these: pgxwin.server.visible: false pgxwin.Win.geometry: 610x377 The first of these will hide the annoying little extra PGPLOT window. The second configures the starting size of the PGPLOT plot window. You can always resize it, but why not have it be close to the right size to begin with? If you have an older video card and get 'color flashing' from the PGPLOT window, PGPLOT (or something else) is probably taking too much of the X windows 'color map'. Setting the maximum number of colors that PGPLOT can use might help. Start with pgxwin.Win.maxColors: 512 and work your way down until it works OK. Setting this number _too_ small will not give you enough colors. After changing your .Xdefaults file you'll have to restart your X session or issue a 'xrdb --merge .Xdefaults' command. ifeffit-1.2.11d/stamp-h.in0000644000175000017500000000001211110330613014227 0ustar segresegretimestamp ifeffit-1.2.11d/iconf_iff0000755000175000017500000000377611117271624014237 0ustar segresegre#!/bin/sh ## ## shell script to help configure ifeffit: ## 1. get version number from Changelog (and return to rest of configure script) ## 2. write maxpts.h and sys.h for ifeffit library ## prefix=$1 ARRSIZE=$2 PACKAGE=$3 def_prefix=$4 test "x$prefix" = "xNONE" && prefix=$def_prefix test "x$prefix" = "xNONE" && prefix='/usr/local' test "x$prefix" = "x" && prefix='/usr/local' test "x$ARRSIZE" = "x" && ARRSIZE='large' test "x$PACKAGE" = "x" && PACKAGE='ifeffit' # echo $prefix / $PACKAGE / $ARRSIZE VERSION=`grep '* Version' ChangeLog | head -1| sed 's/[ ]*\* Version[ ]*//g' | sed 's/:.*//g'` srcdir='src/lib' cright="Copyright (c) 2008 Matt Newville, Univ of Chicago" ## ## set arraysize to maxpts.h case $ARRSIZE in huge) size=16384 ;; medium) size=4096 ;; small) size=2048 ;; tiny) size=1024 ;; large) size=8192 ;; *) size=4096 ;; esac current=`cat $srcdir/arrsize.dat` maxpts_h="$srcdir/maxpts.h" if test "x$current" == "x$size" && [ -f $maxpts_h ] ; then \ x=1 else echo "c{maxpts.h -*-fortran-*- " > $maxpts_h echo " integer maxpts, maxsize_array" >> $maxpts_h echo " parameter(maxsize_array = $size)" >> $maxpts_h echo " parameter(maxpts = maxsize_array)" >> $maxpts_h echo "c}" >> $maxpts_h echo "$size" > $srcdir/arrsize.dat fi ## ## write sys.h sys_h="$srcdir/sys.h" echo "c{sys.h -*-fortran-*- " > $sys_h echo "c system and build specific stuff goes here" >> $sys_h echo "c to be included in iff_config.f" >> $sys_h echo " sysdir = '$prefix/share/$PACKAGE'" >> $sys_h echo " pgdev = '/xserve'" >> $sys_h echo " inifile= 'startup.iff .ifeffit'" >> $sys_h echo " build = '$VERSION'//" >> $sys_h echo " $ ' $cright'" >> $sys_h echo "c}" >> $sys_h ## ## finally, output the version number echo $VERSION ifeffit-1.2.11d/configure0000755000175000017500000052240611110330536014261 0ustar segresegre#! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated by GNU Autoconf 2.59 for ifeffit 1.2.10. # # Report bugs to . # # Copyright (C) 2003 Free Software Foundation, Inc. # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. ## --------------------- ## ## M4sh Initialization. ## ## --------------------- ## # Be Bourne compatible if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' elif test -n "${BASH_VERSION+set}" && (set -o posix) >/dev/null 2>&1; then set -o posix fi DUALCASE=1; export DUALCASE # for MKS sh # Support unset when possible. if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then as_unset=unset else as_unset=false fi # Work around bugs in pre-3.0 UWIN ksh. $as_unset ENV MAIL MAILPATH PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. for as_var in \ LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ LC_TELEPHONE LC_TIME do if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then eval $as_var=C; export $as_var else $as_unset $as_var fi done # Required to use basename. if expr a : '\(a\)' >/dev/null 2>&1; then as_expr=expr else as_expr=false fi if (basename /) >/dev/null 2>&1 && test "X`basename / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi # Name of the executable. as_me=`$as_basename "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)$' \| \ . : '\(.\)' 2>/dev/null || echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/; q; } /^X\/\(\/\/\)$/{ s//\1/; q; } /^X\/\(\/\).*/{ s//\1/; q; } s/.*/./; q'` # PATH needs CR, and LINENO needs CR and PATH. # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then echo "#! /bin/sh" >conf$$.sh echo "exit 0" >>conf$$.sh chmod +x conf$$.sh if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then PATH_SEPARATOR=';' else PATH_SEPARATOR=: fi rm -f conf$$.sh fi as_lineno_1=$LINENO as_lineno_2=$LINENO as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` test "x$as_lineno_1" != "x$as_lineno_2" && test "x$as_lineno_3" = "x$as_lineno_2" || { # Find who we are. Look in the path if we contain no path at all # relative or not. case $0 in *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then { echo "$as_me: error: cannot find myself; rerun with an absolute path" >&2 { (exit 1); exit 1; }; } fi case $CONFIG_SHELL in '') as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for as_base in sh bash ksh sh5; do case $as_dir in /*) if ("$as_dir/$as_base" -c ' as_lineno_1=$LINENO as_lineno_2=$LINENO as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` test "x$as_lineno_1" != "x$as_lineno_2" && test "x$as_lineno_3" = "x$as_lineno_2" ') 2>/dev/null; then $as_unset BASH_ENV || test "${BASH_ENV+set}" != set || { BASH_ENV=; export BASH_ENV; } $as_unset ENV || test "${ENV+set}" != set || { ENV=; export ENV; } CONFIG_SHELL=$as_dir/$as_base export CONFIG_SHELL exec "$CONFIG_SHELL" "$0" ${1+"$@"} fi;; esac done done ;; esac # Create $as_me.lineno as a copy of $as_myself, but with $LINENO # uniformly replaced by the line number. The first 'sed' inserts a # line-number line before each line; the second 'sed' does the real # work. The second script uses 'N' to pair each line-number line # with the numbered line, and appends trailing '-' during # substitution so that $LINENO is not a special case at line end. # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the # second 'sed' script. Blame Lee E. McMahon for sed's syntax. :-) sed '=' <$as_myself | sed ' N s,$,-, : loop s,^\(['$as_cr_digits']*\)\(.*\)[$]LINENO\([^'$as_cr_alnum'_]\),\1\2\1\3, t loop s,-$,, s,^['$as_cr_digits']*\n,, ' >$as_me.lineno && chmod +x $as_me.lineno || { echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2 { (exit 1); exit 1; }; } # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the # original and so on. Autoconf is especially sensible to this). . ./$as_me.lineno # Exit status is that of the last command. exit } case `echo "testing\c"; echo 1,2,3`,`echo -n testing; echo 1,2,3` in *c*,-n*) ECHO_N= ECHO_C=' ' ECHO_T=' ' ;; *c*,* ) ECHO_N=-n ECHO_C= ECHO_T= ;; *) ECHO_N= ECHO_C='\c' ECHO_T= ;; esac if expr a : '\(a\)' >/dev/null 2>&1; then as_expr=expr else as_expr=false fi rm -f conf$$ conf$$.exe conf$$.file echo >conf$$.file if ln -s conf$$.file conf$$ 2>/dev/null; then # We could just check for DJGPP; but this test a) works b) is more generic # and c) will remain valid once DJGPP supports symlinks (DJGPP 2.04). if test -f conf$$.exe; then # Don't use ln at all; we don't have any links as_ln_s='cp -p' else as_ln_s='ln -s' fi elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -p' fi rm -f conf$$ conf$$.exe conf$$.file if mkdir -p . 2>/dev/null; then as_mkdir_p=: else test -d ./-p && rmdir ./-p as_mkdir_p=false fi as_executable_p="test -f" # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" # IFS # We need space, tab and new line, in precisely that order. as_nl=' ' IFS=" $as_nl" # CDPATH. $as_unset CDPATH # Name of the host. # hostname on some systems (SVR3.2, Linux) returns a bogus exit status, # so uname gets run too. ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` exec 6>&1 # # Initializations. # ac_default_prefix=/usr/local ac_config_libobj_dir=. cross_compiling=no subdirs= MFLAGS= MAKEFLAGS= SHELL=${CONFIG_SHELL-/bin/sh} # Maximum number of lines to put in a shell here document. # This variable seems obsolete. It should probably be removed, and # only ac_max_sed_lines should be used. : ${ac_max_here_lines=38} # Identity of this package. PACKAGE_NAME='ifeffit' PACKAGE_TARNAME='ifeffit' PACKAGE_VERSION='1.2.10' PACKAGE_STRING='ifeffit 1.2.10' PACKAGE_BUGREPORT='newville@cars.uchicago.edu' # Factoring default headers for most tests. ac_includes_default="\ #include #if HAVE_SYS_TYPES_H # include #endif #if HAVE_SYS_STAT_H # include #endif #if STDC_HEADERS # include # include #else # if HAVE_STDLIB_H # include # endif #endif #if HAVE_STRING_H # if !STDC_HEADERS && HAVE_MEMORY_H # include # endif # include #endif #if HAVE_STRINGS_H # include #endif #if HAVE_INTTYPES_H # include #else # if HAVE_STDINT_H # include # endif #endif #if HAVE_UNISTD_H # include #endif" ac_subdirs_all="$ac_subdirs_all readline" ac_subst_vars='SHELL PATH_SEPARATOR PACKAGE_NAME PACKAGE_TARNAME PACKAGE_VERSION PACKAGE_STRING PACKAGE_BUGREPORT exec_prefix prefix program_transform_name bindir sbindir libexecdir datadir sysconfdir sharedstatedir localstatedir libdir includedir oldincludedir infodir mandir build_alias host_alias target_alias DEFS ECHO_C ECHO_N ECHO_T LIBS INSTALL_PROGRAM INSTALL_SCRIPT INSTALL_DATA CYGPATH_W PACKAGE VERSION ACLOCAL AUTOCONF AUTOMAKE AUTOHEADER MAKEINFO install_sh STRIP ac_ct_STRIP INSTALL_STRIP_PROGRAM mkdir_p AWK SET_MAKE am__leading_dot AMTAR am__tar am__untar CC CFLAGS LDFLAGS CPPFLAGS ac_ct_CC EXEEXT OBJEXT DEPDIR am__include am__quote AMDEP_TRUE AMDEP_FALSE AMDEPBACKSLASH CCDEPMODE am__fastdepCC_TRUE am__fastdepCC_FALSE CPP EGREP RANLIB ac_ct_RANLIB PERL PYTHON subdirs F77 FFLAGS ac_ct_F77 FLIBS TERMCAP_LIB ARRSIZE MN_FLIBS use_pgplot PGPLOT_LIBS pgdir LIBOBJS LTLIBOBJS' ac_subst_files='' # Initialize some variables set by options. ac_init_help= ac_init_version=false # The variables have the same names as the options, with # dashes changed to underlines. cache_file=/dev/null exec_prefix=NONE no_create= no_recursion= prefix=NONE program_prefix=NONE program_suffix=NONE program_transform_name=s,x,x, silent= site= srcdir= verbose= x_includes=NONE x_libraries=NONE # Installation directory options. # These are left unexpanded so users can "make install exec_prefix=/foo" # and all the variables that are supposed to be based on exec_prefix # by default will actually change. # Use braces instead of parens because sh, perl, etc. also accept them. bindir='${exec_prefix}/bin' sbindir='${exec_prefix}/sbin' libexecdir='${exec_prefix}/libexec' datadir='${prefix}/share' sysconfdir='${prefix}/etc' sharedstatedir='${prefix}/com' localstatedir='${prefix}/var' libdir='${exec_prefix}/lib' includedir='${prefix}/include' oldincludedir='/usr/include' infodir='${prefix}/info' mandir='${prefix}/man' ac_prev= for ac_option do # If the previous option needs an argument, assign it. if test -n "$ac_prev"; then eval "$ac_prev=\$ac_option" ac_prev= continue fi ac_optarg=`expr "x$ac_option" : 'x[^=]*=\(.*\)'` # Accept the important Cygnus configure options, so we can diagnose typos. case $ac_option in -bindir | --bindir | --bindi | --bind | --bin | --bi) ac_prev=bindir ;; -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) bindir=$ac_optarg ;; -build | --build | --buil | --bui | --bu) ac_prev=build_alias ;; -build=* | --build=* | --buil=* | --bui=* | --bu=*) build_alias=$ac_optarg ;; -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) cache_file=$ac_optarg ;; --config-cache | -C) cache_file=config.cache ;; -datadir | --datadir | --datadi | --datad | --data | --dat | --da) ac_prev=datadir ;; -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \ | --da=*) datadir=$ac_optarg ;; -disable-* | --disable-*) ac_feature=`expr "x$ac_option" : 'x-*disable-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_feature" : ".*[^-_$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid feature name: $ac_feature" >&2 { (exit 1); exit 1; }; } ac_feature=`echo $ac_feature | sed 's/-/_/g'` eval "enable_$ac_feature=no" ;; -enable-* | --enable-*) ac_feature=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_feature" : ".*[^-_$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid feature name: $ac_feature" >&2 { (exit 1); exit 1; }; } ac_feature=`echo $ac_feature | sed 's/-/_/g'` case $ac_option in *=*) ac_optarg=`echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"`;; *) ac_optarg=yes ;; esac eval "enable_$ac_feature='$ac_optarg'" ;; -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ | --exec | --exe | --ex) ac_prev=exec_prefix ;; -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ | --exec=* | --exe=* | --ex=*) exec_prefix=$ac_optarg ;; -gas | --gas | --ga | --g) # Obsolete; use --with-gas. with_gas=yes ;; -help | --help | --hel | --he | -h) ac_init_help=long ;; -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) ac_init_help=recursive ;; -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) ac_init_help=short ;; -host | --host | --hos | --ho) ac_prev=host_alias ;; -host=* | --host=* | --hos=* | --ho=*) host_alias=$ac_optarg ;; -includedir | --includedir | --includedi | --included | --include \ | --includ | --inclu | --incl | --inc) ac_prev=includedir ;; -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ | --includ=* | --inclu=* | --incl=* | --inc=*) includedir=$ac_optarg ;; -infodir | --infodir | --infodi | --infod | --info | --inf) ac_prev=infodir ;; -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) infodir=$ac_optarg ;; -libdir | --libdir | --libdi | --libd) ac_prev=libdir ;; -libdir=* | --libdir=* | --libdi=* | --libd=*) libdir=$ac_optarg ;; -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ | --libexe | --libex | --libe) ac_prev=libexecdir ;; -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ | --libexe=* | --libex=* | --libe=*) libexecdir=$ac_optarg ;; -localstatedir | --localstatedir | --localstatedi | --localstated \ | --localstate | --localstat | --localsta | --localst \ | --locals | --local | --loca | --loc | --lo) ac_prev=localstatedir ;; -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ | --localstate=* | --localstat=* | --localsta=* | --localst=* \ | --locals=* | --local=* | --loca=* | --loc=* | --lo=*) localstatedir=$ac_optarg ;; -mandir | --mandir | --mandi | --mand | --man | --ma | --m) ac_prev=mandir ;; -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) mandir=$ac_optarg ;; -nfp | --nfp | --nf) # Obsolete; use --without-fp. with_fp=no ;; -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c | -n) no_create=yes ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) no_recursion=yes ;; -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ | --oldin | --oldi | --old | --ol | --o) ac_prev=oldincludedir ;; -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) oldincludedir=$ac_optarg ;; -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) ac_prev=prefix ;; -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) prefix=$ac_optarg ;; -program-prefix | --program-prefix | --program-prefi | --program-pref \ | --program-pre | --program-pr | --program-p) ac_prev=program_prefix ;; -program-prefix=* | --program-prefix=* | --program-prefi=* \ | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) program_prefix=$ac_optarg ;; -program-suffix | --program-suffix | --program-suffi | --program-suff \ | --program-suf | --program-su | --program-s) ac_prev=program_suffix ;; -program-suffix=* | --program-suffix=* | --program-suffi=* \ | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) program_suffix=$ac_optarg ;; -program-transform-name | --program-transform-name \ | --program-transform-nam | --program-transform-na \ | --program-transform-n | --program-transform- \ | --program-transform | --program-transfor \ | --program-transfo | --program-transf \ | --program-trans | --program-tran \ | --progr-tra | --program-tr | --program-t) ac_prev=program_transform_name ;; -program-transform-name=* | --program-transform-name=* \ | --program-transform-nam=* | --program-transform-na=* \ | --program-transform-n=* | --program-transform-=* \ | --program-transform=* | --program-transfor=* \ | --program-transfo=* | --program-transf=* \ | --program-trans=* | --program-tran=* \ | --progr-tra=* | --program-tr=* | --program-t=*) program_transform_name=$ac_optarg ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) silent=yes ;; -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) ac_prev=sbindir ;; -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ | --sbi=* | --sb=*) sbindir=$ac_optarg ;; -sharedstatedir | --sharedstatedir | --sharedstatedi \ | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ | --sharedst | --shareds | --shared | --share | --shar \ | --sha | --sh) ac_prev=sharedstatedir ;; -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ | --sha=* | --sh=*) sharedstatedir=$ac_optarg ;; -site | --site | --sit) ac_prev=site ;; -site=* | --site=* | --sit=*) site=$ac_optarg ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) srcdir=$ac_optarg ;; -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ | --syscon | --sysco | --sysc | --sys | --sy) ac_prev=sysconfdir ;; -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) sysconfdir=$ac_optarg ;; -target | --target | --targe | --targ | --tar | --ta | --t) ac_prev=target_alias ;; -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) target_alias=$ac_optarg ;; -v | -verbose | --verbose | --verbos | --verbo | --verb) verbose=yes ;; -version | --version | --versio | --versi | --vers | -V) ac_init_version=: ;; -with-* | --with-*) ac_package=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_package" : ".*[^-_$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid package name: $ac_package" >&2 { (exit 1); exit 1; }; } ac_package=`echo $ac_package| sed 's/-/_/g'` case $ac_option in *=*) ac_optarg=`echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"`;; *) ac_optarg=yes ;; esac eval "with_$ac_package='$ac_optarg'" ;; -without-* | --without-*) ac_package=`expr "x$ac_option" : 'x-*without-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_package" : ".*[^-_$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid package name: $ac_package" >&2 { (exit 1); exit 1; }; } ac_package=`echo $ac_package | sed 's/-/_/g'` eval "with_$ac_package=no" ;; --x) # Obsolete; use --with-x. with_x=yes ;; -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ | --x-incl | --x-inc | --x-in | --x-i) ac_prev=x_includes ;; -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) x_includes=$ac_optarg ;; -x-libraries | --x-libraries | --x-librarie | --x-librari \ | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) ac_prev=x_libraries ;; -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) x_libraries=$ac_optarg ;; -*) { echo "$as_me: error: unrecognized option: $ac_option Try \`$0 --help' for more information." >&2 { (exit 1); exit 1; }; } ;; *=*) ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` # Reject names that are not valid shell variable names. expr "x$ac_envvar" : ".*[^_$as_cr_alnum]" >/dev/null && { echo "$as_me: error: invalid variable name: $ac_envvar" >&2 { (exit 1); exit 1; }; } ac_optarg=`echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` eval "$ac_envvar='$ac_optarg'" export $ac_envvar ;; *) # FIXME: should be removed in autoconf 3.0. echo "$as_me: WARNING: you should use --build, --host, --target" >&2 expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && echo "$as_me: WARNING: invalid host type: $ac_option" >&2 : ${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option} ;; esac done if test -n "$ac_prev"; then ac_option=--`echo $ac_prev | sed 's/_/-/g'` { echo "$as_me: error: missing argument to $ac_option" >&2 { (exit 1); exit 1; }; } fi # Be sure to have absolute paths. for ac_var in exec_prefix prefix do eval ac_val=$`echo $ac_var` case $ac_val in [\\/$]* | ?:[\\/]* | NONE | '' ) ;; *) { echo "$as_me: error: expected an absolute directory name for --$ac_var: $ac_val" >&2 { (exit 1); exit 1; }; };; esac done # Be sure to have absolute paths. for ac_var in bindir sbindir libexecdir datadir sysconfdir sharedstatedir \ localstatedir libdir includedir oldincludedir infodir mandir do eval ac_val=$`echo $ac_var` case $ac_val in [\\/$]* | ?:[\\/]* ) ;; *) { echo "$as_me: error: expected an absolute directory name for --$ac_var: $ac_val" >&2 { (exit 1); exit 1; }; };; esac done # There might be people who depend on the old broken behavior: `$host' # used to hold the argument of --host etc. # FIXME: To remove some day. build=$build_alias host=$host_alias target=$target_alias # FIXME: To remove some day. if test "x$host_alias" != x; then if test "x$build_alias" = x; then cross_compiling=maybe echo "$as_me: WARNING: If you wanted to set the --build type, don't use --host. If a cross compiler is detected then cross compile mode will be used." >&2 elif test "x$build_alias" != "x$host_alias"; then cross_compiling=yes fi fi ac_tool_prefix= test -n "$host_alias" && ac_tool_prefix=$host_alias- test "$silent" = yes && exec 6>/dev/null # Find the source files, if location was not specified. if test -z "$srcdir"; then ac_srcdir_defaulted=yes # Try the directory containing this script, then its parent. ac_confdir=`(dirname "$0") 2>/dev/null || $as_expr X"$0" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$0" : 'X\(//\)[^/]' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$0" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` srcdir=$ac_confdir if test ! -r $srcdir/$ac_unique_file; then srcdir=.. fi else ac_srcdir_defaulted=no fi if test ! -r $srcdir/$ac_unique_file; then if test "$ac_srcdir_defaulted" = yes; then { echo "$as_me: error: cannot find sources ($ac_unique_file) in $ac_confdir or .." >&2 { (exit 1); exit 1; }; } else { echo "$as_me: error: cannot find sources ($ac_unique_file) in $srcdir" >&2 { (exit 1); exit 1; }; } fi fi (cd $srcdir && test -r ./$ac_unique_file) 2>/dev/null || { echo "$as_me: error: sources are in $srcdir, but \`cd $srcdir' does not work" >&2 { (exit 1); exit 1; }; } srcdir=`echo "$srcdir" | sed 's%\([^\\/]\)[\\/]*$%\1%'` ac_env_build_alias_set=${build_alias+set} ac_env_build_alias_value=$build_alias ac_cv_env_build_alias_set=${build_alias+set} ac_cv_env_build_alias_value=$build_alias ac_env_host_alias_set=${host_alias+set} ac_env_host_alias_value=$host_alias ac_cv_env_host_alias_set=${host_alias+set} ac_cv_env_host_alias_value=$host_alias ac_env_target_alias_set=${target_alias+set} ac_env_target_alias_value=$target_alias ac_cv_env_target_alias_set=${target_alias+set} ac_cv_env_target_alias_value=$target_alias ac_env_CC_set=${CC+set} ac_env_CC_value=$CC ac_cv_env_CC_set=${CC+set} ac_cv_env_CC_value=$CC ac_env_CFLAGS_set=${CFLAGS+set} ac_env_CFLAGS_value=$CFLAGS ac_cv_env_CFLAGS_set=${CFLAGS+set} ac_cv_env_CFLAGS_value=$CFLAGS ac_env_LDFLAGS_set=${LDFLAGS+set} ac_env_LDFLAGS_value=$LDFLAGS ac_cv_env_LDFLAGS_set=${LDFLAGS+set} ac_cv_env_LDFLAGS_value=$LDFLAGS ac_env_CPPFLAGS_set=${CPPFLAGS+set} ac_env_CPPFLAGS_value=$CPPFLAGS ac_cv_env_CPPFLAGS_set=${CPPFLAGS+set} ac_cv_env_CPPFLAGS_value=$CPPFLAGS ac_env_CPP_set=${CPP+set} ac_env_CPP_value=$CPP ac_cv_env_CPP_set=${CPP+set} ac_cv_env_CPP_value=$CPP ac_env_F77_set=${F77+set} ac_env_F77_value=$F77 ac_cv_env_F77_set=${F77+set} ac_cv_env_F77_value=$F77 ac_env_FFLAGS_set=${FFLAGS+set} ac_env_FFLAGS_value=$FFLAGS ac_cv_env_FFLAGS_set=${FFLAGS+set} ac_cv_env_FFLAGS_value=$FFLAGS # # Report the --help message. # if test "$ac_init_help" = "long"; then # Omit some internal or obsolete options to make the list less imposing. # This message is too long to be a string in the A/UX 3.1 sh. cat <<_ACEOF \`configure' configures ifeffit 1.2.10 to adapt to many kinds of systems. Usage: $0 [OPTION]... [VAR=VALUE]... To assign environment variables (e.g., CC, CFLAGS...), specify them as VAR=VALUE. See below for descriptions of some of the useful variables. Defaults for the options are specified in brackets. Configuration: -h, --help display this help and exit --help=short display options specific to this package --help=recursive display the short help of all the included packages -V, --version display version information and exit -q, --quiet, --silent do not print \`checking...' messages --cache-file=FILE cache test results in FILE [disabled] -C, --config-cache alias for \`--cache-file=config.cache' -n, --no-create do not create output files --srcdir=DIR find the sources in DIR [configure dir or \`..'] _ACEOF cat <<_ACEOF Installation directories: --prefix=PREFIX install architecture-independent files in PREFIX [$ac_default_prefix] --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX [PREFIX] By default, \`make install' will install all the files in \`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify an installation prefix other than \`$ac_default_prefix' using \`--prefix', for instance \`--prefix=\$HOME'. For better control, use the options below. Fine tuning of the installation directories: --bindir=DIR user executables [EPREFIX/bin] --sbindir=DIR system admin executables [EPREFIX/sbin] --libexecdir=DIR program executables [EPREFIX/libexec] --datadir=DIR read-only architecture-independent data [PREFIX/share] --sysconfdir=DIR read-only single-machine data [PREFIX/etc] --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] --localstatedir=DIR modifiable single-machine data [PREFIX/var] --libdir=DIR object code libraries [EPREFIX/lib] --includedir=DIR C header files [PREFIX/include] --oldincludedir=DIR C header files for non-gcc [/usr/include] --infodir=DIR info documentation [PREFIX/info] --mandir=DIR man documentation [PREFIX/man] _ACEOF cat <<\_ACEOF Program names: --program-prefix=PREFIX prepend PREFIX to installed program names --program-suffix=SUFFIX append SUFFIX to installed program names --program-transform-name=PROGRAM run sed PROGRAM on installed program names _ACEOF fi if test -n "$ac_init_help"; then case $ac_init_help in short | recursive ) echo "Configuration of ifeffit 1.2.10:";; esac cat <<\_ACEOF Optional Features: --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) --enable-FEATURE[=ARG] include FEATURE [ARG=yes] --disable-dependency-tracking speeds up one-time build --enable-dependency-tracking do not reject slow dependency extractors Optional Packages: --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) --with-fortran=compiler specify fortran compiler g77 g95 gfortran --with-termcap-link=libraries to use for linking terminal capabilities --with-arraysize=size specify array size: tiny,small,medium,large,huge --with-pgplot=dir specify directory of libpgplot.a --with-pgplot-link=link specify all libraries for PGPLOT linking Some influential environment variables: CC C compiler command CFLAGS C compiler flags LDFLAGS linker flags, e.g. -L if you have libraries in a nonstandard directory CPPFLAGS C/C++ preprocessor flags, e.g. -I if you have headers in a nonstandard directory CPP C preprocessor F77 Fortran 77 compiler command FFLAGS Fortran 77 compiler flags Use these variables to override the choices made by `configure' or to help it to find libraries and programs with nonstandard names/locations. Report bugs to . _ACEOF fi if test "$ac_init_help" = "recursive"; then # If there are subdirs, report their specific --help. ac_popdir=`pwd` for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue test -d $ac_dir || continue ac_builddir=. if test "$ac_dir" != .; then ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` # A "../" for each directory in $ac_dir_suffix. ac_top_builddir=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,../,g'` else ac_dir_suffix= ac_top_builddir= fi case $srcdir in .) # No --srcdir option. We are building in place. ac_srcdir=. if test -z "$ac_top_builddir"; then ac_top_srcdir=. else ac_top_srcdir=`echo $ac_top_builddir | sed 's,/$,,'` fi ;; [\\/]* | ?:[\\/]* ) # Absolute path. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ;; *) # Relative path. ac_srcdir=$ac_top_builddir$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_builddir$srcdir ;; esac # Do not use `cd foo && pwd` to compute absolute paths, because # the directories may not exist. case `pwd` in .) ac_abs_builddir="$ac_dir";; *) case "$ac_dir" in .) ac_abs_builddir=`pwd`;; [\\/]* | ?:[\\/]* ) ac_abs_builddir="$ac_dir";; *) ac_abs_builddir=`pwd`/"$ac_dir";; esac;; esac case $ac_abs_builddir in .) ac_abs_top_builddir=${ac_top_builddir}.;; *) case ${ac_top_builddir}. in .) ac_abs_top_builddir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_top_builddir=${ac_top_builddir}.;; *) ac_abs_top_builddir=$ac_abs_builddir/${ac_top_builddir}.;; esac;; esac case $ac_abs_builddir in .) ac_abs_srcdir=$ac_srcdir;; *) case $ac_srcdir in .) ac_abs_srcdir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_srcdir=$ac_srcdir;; *) ac_abs_srcdir=$ac_abs_builddir/$ac_srcdir;; esac;; esac case $ac_abs_builddir in .) ac_abs_top_srcdir=$ac_top_srcdir;; *) case $ac_top_srcdir in .) ac_abs_top_srcdir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_top_srcdir=$ac_top_srcdir;; *) ac_abs_top_srcdir=$ac_abs_builddir/$ac_top_srcdir;; esac;; esac cd $ac_dir # Check for guested configure; otherwise get Cygnus style configure. if test -f $ac_srcdir/configure.gnu; then echo $SHELL $ac_srcdir/configure.gnu --help=recursive elif test -f $ac_srcdir/configure; then echo $SHELL $ac_srcdir/configure --help=recursive elif test -f $ac_srcdir/configure.ac || test -f $ac_srcdir/configure.in; then echo $ac_configure --help else echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 fi cd $ac_popdir done fi test -n "$ac_init_help" && exit 0 if $ac_init_version; then cat <<\_ACEOF ifeffit configure 1.2.10 generated by GNU Autoconf 2.59 Copyright (C) 2003 Free Software Foundation, Inc. This configure script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it. _ACEOF exit 0 fi exec 5>config.log cat >&5 <<_ACEOF This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. It was created by ifeffit $as_me 1.2.10, which was generated by GNU Autoconf 2.59. Invocation command line was $ $0 $@ _ACEOF { cat <<_ASUNAME ## --------- ## ## Platform. ## ## --------- ## hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` uname -m = `(uname -m) 2>/dev/null || echo unknown` uname -r = `(uname -r) 2>/dev/null || echo unknown` uname -s = `(uname -s) 2>/dev/null || echo unknown` uname -v = `(uname -v) 2>/dev/null || echo unknown` /usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` /bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` /bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` hostinfo = `(hostinfo) 2>/dev/null || echo unknown` /bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` /bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` _ASUNAME as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. echo "PATH: $as_dir" done } >&5 cat >&5 <<_ACEOF ## ----------- ## ## Core tests. ## ## ----------- ## _ACEOF # Keep a trace of the command line. # Strip out --no-create and --no-recursion so they do not pile up. # Strip out --silent because we don't want to record it for future runs. # Also quote any args containing shell meta-characters. # Make two passes to allow for proper duplicate-argument suppression. ac_configure_args= ac_configure_args0= ac_configure_args1= ac_sep= ac_must_keep_next=false for ac_pass in 1 2 do for ac_arg do case $ac_arg in -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) continue ;; *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?\"\']*) ac_arg=`echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; esac case $ac_pass in 1) ac_configure_args0="$ac_configure_args0 '$ac_arg'" ;; 2) ac_configure_args1="$ac_configure_args1 '$ac_arg'" if test $ac_must_keep_next = true; then ac_must_keep_next=false # Got value, back to normal. else case $ac_arg in *=* | --config-cache | -C | -disable-* | --disable-* \ | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ | -with-* | --with-* | -without-* | --without-* | --x) case "$ac_configure_args0 " in "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; esac ;; -* ) ac_must_keep_next=true ;; esac fi ac_configure_args="$ac_configure_args$ac_sep'$ac_arg'" # Get rid of the leading space. ac_sep=" " ;; esac done done $as_unset ac_configure_args0 || test "${ac_configure_args0+set}" != set || { ac_configure_args0=; export ac_configure_args0; } $as_unset ac_configure_args1 || test "${ac_configure_args1+set}" != set || { ac_configure_args1=; export ac_configure_args1; } # When interrupted or exit'd, cleanup temporary files, and complete # config.log. We remove comments because anyway the quotes in there # would cause problems or look ugly. # WARNING: Be sure not to use single quotes in there, as some shells, # such as our DU 5.0 friend, will then `close' the trap. trap 'exit_status=$? # Save into config.log some information that might help in debugging. { echo cat <<\_ASBOX ## ---------------- ## ## Cache variables. ## ## ---------------- ## _ASBOX echo # The following way of writing the cache mishandles newlines in values, { (set) 2>&1 | case `(ac_space='"'"' '"'"'; set | grep ac_space) 2>&1` in *ac_space=\ *) sed -n \ "s/'"'"'/'"'"'\\\\'"'"''"'"'/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='"'"'\\2'"'"'/p" ;; *) sed -n \ "s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1=\\2/p" ;; esac; } echo cat <<\_ASBOX ## ----------------- ## ## Output variables. ## ## ----------------- ## _ASBOX echo for ac_var in $ac_subst_vars do eval ac_val=$`echo $ac_var` echo "$ac_var='"'"'$ac_val'"'"'" done | sort echo if test -n "$ac_subst_files"; then cat <<\_ASBOX ## ------------- ## ## Output files. ## ## ------------- ## _ASBOX echo for ac_var in $ac_subst_files do eval ac_val=$`echo $ac_var` echo "$ac_var='"'"'$ac_val'"'"'" done | sort echo fi if test -s confdefs.h; then cat <<\_ASBOX ## ----------- ## ## confdefs.h. ## ## ----------- ## _ASBOX echo sed "/^$/d" confdefs.h | sort echo fi test "$ac_signal" != 0 && echo "$as_me: caught signal $ac_signal" echo "$as_me: exit $exit_status" } >&5 rm -f core *.core && rm -rf conftest* confdefs* conf$$* $ac_clean_files && exit $exit_status ' 0 for ac_signal in 1 2 13 15; do trap 'ac_signal='$ac_signal'; { (exit 1); exit 1; }' $ac_signal done ac_signal=0 # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -rf conftest* confdefs.h # AIX cpp loses on an empty file, so make sure it contains at least a newline. echo >confdefs.h # Predefined preprocessor variables. cat >>confdefs.h <<_ACEOF #define PACKAGE_NAME "$PACKAGE_NAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_TARNAME "$PACKAGE_TARNAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_VERSION "$PACKAGE_VERSION" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_STRING "$PACKAGE_STRING" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" _ACEOF # Let the site file select an alternate cache file if it wants to. # Prefer explicitly selected file to automatically selected ones. if test -z "$CONFIG_SITE"; then if test "x$prefix" != xNONE; then CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" else CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" fi fi for ac_site_file in $CONFIG_SITE; do if test -r "$ac_site_file"; then { echo "$as_me:$LINENO: loading site script $ac_site_file" >&5 echo "$as_me: loading site script $ac_site_file" >&6;} sed 's/^/| /' "$ac_site_file" >&5 . "$ac_site_file" fi done if test -r "$cache_file"; then # Some versions of bash will fail to source /dev/null (special # files actually), so we avoid doing that. if test -f "$cache_file"; then { echo "$as_me:$LINENO: loading cache $cache_file" >&5 echo "$as_me: loading cache $cache_file" >&6;} case $cache_file in [\\/]* | ?:[\\/]* ) . $cache_file;; *) . ./$cache_file;; esac fi else { echo "$as_me:$LINENO: creating cache $cache_file" >&5 echo "$as_me: creating cache $cache_file" >&6;} >$cache_file fi # Check that the precious variables saved in the cache have kept the same # value. ac_cache_corrupted=false for ac_var in `(set) 2>&1 | sed -n 's/^ac_env_\([a-zA-Z_0-9]*\)_set=.*/\1/p'`; do eval ac_old_set=\$ac_cv_env_${ac_var}_set eval ac_new_set=\$ac_env_${ac_var}_set eval ac_old_val="\$ac_cv_env_${ac_var}_value" eval ac_new_val="\$ac_env_${ac_var}_value" case $ac_old_set,$ac_new_set in set,) { echo "$as_me:$LINENO: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} ac_cache_corrupted=: ;; ,set) { echo "$as_me:$LINENO: error: \`$ac_var' was not set in the previous run" >&5 echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} ac_cache_corrupted=: ;; ,);; *) if test "x$ac_old_val" != "x$ac_new_val"; then { echo "$as_me:$LINENO: error: \`$ac_var' has changed since the previous run:" >&5 echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} { echo "$as_me:$LINENO: former value: $ac_old_val" >&5 echo "$as_me: former value: $ac_old_val" >&2;} { echo "$as_me:$LINENO: current value: $ac_new_val" >&5 echo "$as_me: current value: $ac_new_val" >&2;} ac_cache_corrupted=: fi;; esac # Pass precious variables to config.status. if test "$ac_new_set" = set; then case $ac_new_val in *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?\"\']*) ac_arg=$ac_var=`echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; *) ac_arg=$ac_var=$ac_new_val ;; esac case " $ac_configure_args " in *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. *) ac_configure_args="$ac_configure_args '$ac_arg'" ;; esac fi done if $ac_cache_corrupted; then { echo "$as_me:$LINENO: error: changes in the environment can compromise the build" >&5 echo "$as_me: error: changes in the environment can compromise the build" >&2;} { { echo "$as_me:$LINENO: error: run \`make distclean' and/or \`rm $cache_file' and start over" >&5 echo "$as_me: error: run \`make distclean' and/or \`rm $cache_file' and start over" >&2;} { (exit 1); exit 1; }; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu ac_config_headers="$ac_config_headers config.h" am__api_version="1.9" ac_aux_dir= for ac_dir in $srcdir $srcdir/.. $srcdir/../..; do if test -f $ac_dir/install-sh; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install-sh -c" break elif test -f $ac_dir/install.sh; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install.sh -c" break elif test -f $ac_dir/shtool; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/shtool install -c" break fi done if test -z "$ac_aux_dir"; then { { echo "$as_me:$LINENO: error: cannot find install-sh or install.sh in $srcdir $srcdir/.. $srcdir/../.." >&5 echo "$as_me: error: cannot find install-sh or install.sh in $srcdir $srcdir/.. $srcdir/../.." >&2;} { (exit 1); exit 1; }; } fi ac_config_guess="$SHELL $ac_aux_dir/config.guess" ac_config_sub="$SHELL $ac_aux_dir/config.sub" ac_configure="$SHELL $ac_aux_dir/configure" # This should be Cygnus configure. # Find a good install program. We prefer a C program (faster), # so one script is as good as another. But avoid the broken or # incompatible versions: # SysV /etc/install, /usr/sbin/install # SunOS /usr/etc/install # IRIX /sbin/install # AIX /bin/install # AmigaOS /C/install, which installs bootblocks on floppy discs # AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag # AFS /usr/afsws/bin/install, which mishandles nonexistent args # SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" # OS/2's system install, which has a completely different semantic # ./install, which can be erroneously created by make from ./install.sh. echo "$as_me:$LINENO: checking for a BSD-compatible install" >&5 echo $ECHO_N "checking for a BSD-compatible install... $ECHO_C" >&6 if test -z "$INSTALL"; then if test "${ac_cv_path_install+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. # Account for people who put trailing slashes in PATH elements. case $as_dir/ in ./ | .// | /cC/* | \ /etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \ ?:\\/os2\\/install\\/* | ?:\\/OS2\\/INSTALL\\/* | \ /usr/ucb/* ) ;; *) # OSF1 and SCO ODT 3.0 have their own names for install. # Don't use installbsd from OSF since it installs stuff as root # by default. for ac_prog in ginstall scoinst install; do for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_prog$ac_exec_ext"; then if test $ac_prog = install && grep dspmsg "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then # AIX install. It has an incompatible calling convention. : elif test $ac_prog = install && grep pwplus "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then # program-specific install script used by HP pwplus--don't use. : else ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c" break 3 fi fi done done ;; esac done fi if test "${ac_cv_path_install+set}" = set; then INSTALL=$ac_cv_path_install else # As a last resort, use the slow shell script. We don't cache a # path for INSTALL within a source directory, because that will # break other packages using the cache if that directory is # removed, or if the path is relative. INSTALL=$ac_install_sh fi fi echo "$as_me:$LINENO: result: $INSTALL" >&5 echo "${ECHO_T}$INSTALL" >&6 # Use test -z because SunOS4 sh mishandles braces in ${var-val}. # It thinks the first close brace ends the variable substitution. test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}' test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL}' test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' echo "$as_me:$LINENO: checking whether build environment is sane" >&5 echo $ECHO_N "checking whether build environment is sane... $ECHO_C" >&6 # Just in case sleep 1 echo timestamp > conftest.file # Do `set' in a subshell so we don't clobber the current shell's # arguments. Must try -L first in case configure is actually a # symlink; some systems play weird games with the mod time of symlinks # (eg FreeBSD returns the mod time of the symlink's containing # directory). if ( set X `ls -Lt $srcdir/configure conftest.file 2> /dev/null` if test "$*" = "X"; then # -L didn't work. set X `ls -t $srcdir/configure conftest.file` fi rm -f conftest.file if test "$*" != "X $srcdir/configure conftest.file" \ && test "$*" != "X conftest.file $srcdir/configure"; then # If neither matched, then we have a broken ls. This can happen # if, for instance, CONFIG_SHELL is bash and it inherits a # broken ls alias from the environment. This has actually # happened. Such a system could not be considered "sane". { { echo "$as_me:$LINENO: error: ls -t appears to fail. Make sure there is not a broken alias in your environment" >&5 echo "$as_me: error: ls -t appears to fail. Make sure there is not a broken alias in your environment" >&2;} { (exit 1); exit 1; }; } fi test "$2" = conftest.file ) then # Ok. : else { { echo "$as_me:$LINENO: error: newly created file is older than distributed files! Check your system clock" >&5 echo "$as_me: error: newly created file is older than distributed files! Check your system clock" >&2;} { (exit 1); exit 1; }; } fi echo "$as_me:$LINENO: result: yes" >&5 echo "${ECHO_T}yes" >&6 test "$program_prefix" != NONE && program_transform_name="s,^,$program_prefix,;$program_transform_name" # Use a double $ so make ignores it. test "$program_suffix" != NONE && program_transform_name="s,\$,$program_suffix,;$program_transform_name" # Double any \ or $. echo might interpret backslashes. # By default was `s,x,x', remove it if useless. cat <<\_ACEOF >conftest.sed s/[\\$]/&&/g;s/;s,x,x,$// _ACEOF program_transform_name=`echo $program_transform_name | sed -f conftest.sed` rm conftest.sed # expand $ac_aux_dir to an absolute path am_aux_dir=`cd $ac_aux_dir && pwd` test x"${MISSING+set}" = xset || MISSING="\${SHELL} $am_aux_dir/missing" # Use eval to expand $SHELL if eval "$MISSING --run true"; then am_missing_run="$MISSING --run " else am_missing_run= { echo "$as_me:$LINENO: WARNING: \`missing' script is too old or missing" >&5 echo "$as_me: WARNING: \`missing' script is too old or missing" >&2;} fi if mkdir -p --version . >/dev/null 2>&1 && test ! -d ./--version; then # We used to keeping the `.' as first argument, in order to # allow $(mkdir_p) to be used without argument. As in # $(mkdir_p) $(somedir) # where $(somedir) is conditionally defined. However this is wrong # for two reasons: # 1. if the package is installed by a user who cannot write `.' # make install will fail, # 2. the above comment should most certainly read # $(mkdir_p) $(DESTDIR)$(somedir) # so it does not work when $(somedir) is undefined and # $(DESTDIR) is not. # To support the latter case, we have to write # test -z "$(somedir)" || $(mkdir_p) $(DESTDIR)$(somedir), # so the `.' trick is pointless. mkdir_p='mkdir -p --' else # On NextStep and OpenStep, the `mkdir' command does not # recognize any option. It will interpret all options as # directories to create, and then abort because `.' already # exists. for d in ./-p ./--version; do test -d $d && rmdir $d done # $(mkinstalldirs) is defined by Automake if mkinstalldirs exists. if test -f "$ac_aux_dir/mkinstalldirs"; then mkdir_p='$(mkinstalldirs)' else mkdir_p='$(install_sh) -d' fi fi for ac_prog in gawk mawk nawk awk do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_AWK+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$AWK"; then ac_cv_prog_AWK="$AWK" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_AWK="$ac_prog" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi AWK=$ac_cv_prog_AWK if test -n "$AWK"; then echo "$as_me:$LINENO: result: $AWK" >&5 echo "${ECHO_T}$AWK" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi test -n "$AWK" && break done echo "$as_me:$LINENO: checking whether ${MAKE-make} sets \$(MAKE)" >&5 echo $ECHO_N "checking whether ${MAKE-make} sets \$(MAKE)... $ECHO_C" >&6 set dummy ${MAKE-make}; ac_make=`echo "$2" | sed 'y,:./+-,___p_,'` if eval "test \"\${ac_cv_prog_make_${ac_make}_set+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.make <<\_ACEOF all: @echo 'ac_maketemp="$(MAKE)"' _ACEOF # GNU make sometimes prints "make[1]: Entering...", which would confuse us. eval `${MAKE-make} -f conftest.make 2>/dev/null | grep temp=` if test -n "$ac_maketemp"; then eval ac_cv_prog_make_${ac_make}_set=yes else eval ac_cv_prog_make_${ac_make}_set=no fi rm -f conftest.make fi if eval "test \"`echo '$ac_cv_prog_make_'${ac_make}_set`\" = yes"; then echo "$as_me:$LINENO: result: yes" >&5 echo "${ECHO_T}yes" >&6 SET_MAKE= else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 SET_MAKE="MAKE=${MAKE-make}" fi rm -rf .tst 2>/dev/null mkdir .tst 2>/dev/null if test -d .tst; then am__leading_dot=. else am__leading_dot=_ fi rmdir .tst 2>/dev/null # test to see if srcdir already configured if test "`cd $srcdir && pwd`" != "`pwd`" && test -f $srcdir/config.status; then { { echo "$as_me:$LINENO: error: source directory already configured; run \"make distclean\" there first" >&5 echo "$as_me: error: source directory already configured; run \"make distclean\" there first" >&2;} { (exit 1); exit 1; }; } fi # test whether we have cygpath if test -z "$CYGPATH_W"; then if (cygpath --version) >/dev/null 2>/dev/null; then CYGPATH_W='cygpath -w' else CYGPATH_W=echo fi fi # Define the identity of the package. PACKAGE=ifeffit VERSION=1.2.10 cat >>confdefs.h <<_ACEOF #define PACKAGE "$PACKAGE" _ACEOF cat >>confdefs.h <<_ACEOF #define VERSION "$VERSION" _ACEOF # Some tools Automake needs. ACLOCAL=${ACLOCAL-"${am_missing_run}aclocal-${am__api_version}"} AUTOCONF=${AUTOCONF-"${am_missing_run}autoconf"} AUTOMAKE=${AUTOMAKE-"${am_missing_run}automake-${am__api_version}"} AUTOHEADER=${AUTOHEADER-"${am_missing_run}autoheader"} MAKEINFO=${MAKEINFO-"${am_missing_run}makeinfo"} install_sh=${install_sh-"$am_aux_dir/install-sh"} # Installed binaries are usually stripped using `strip' when the user # run `make install-strip'. However `strip' might not be the right # tool to use in cross-compilation environments, therefore Automake # will honor the `STRIP' environment variable to overrule this program. if test "$cross_compiling" != no; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. set dummy ${ac_tool_prefix}strip; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_STRIP+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$STRIP"; then ac_cv_prog_STRIP="$STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_STRIP="${ac_tool_prefix}strip" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi STRIP=$ac_cv_prog_STRIP if test -n "$STRIP"; then echo "$as_me:$LINENO: result: $STRIP" >&5 echo "${ECHO_T}$STRIP" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi fi if test -z "$ac_cv_prog_STRIP"; then ac_ct_STRIP=$STRIP # Extract the first word of "strip", so it can be a program name with args. set dummy strip; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_ac_ct_STRIP+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_STRIP"; then ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_STRIP="strip" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done test -z "$ac_cv_prog_ac_ct_STRIP" && ac_cv_prog_ac_ct_STRIP=":" fi fi ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP if test -n "$ac_ct_STRIP"; then echo "$as_me:$LINENO: result: $ac_ct_STRIP" >&5 echo "${ECHO_T}$ac_ct_STRIP" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi STRIP=$ac_ct_STRIP else STRIP="$ac_cv_prog_STRIP" fi fi INSTALL_STRIP_PROGRAM="\${SHELL} \$(install_sh) -c -s" # We need awk for the "check" target. The system "awk" is bad on # some platforms. # Always define AMTAR for backward compatibility. AMTAR=${AMTAR-"${am_missing_run}tar"} am__tar='${AMTAR} chof - "$$tardir"'; am__untar='${AMTAR} xf -' ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test -n "$ac_tool_prefix"; then for ac_prog in gcc cc do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="$ac_tool_prefix$ac_prog" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then echo "$as_me:$LINENO: result: $CC" >&5 echo "${ECHO_T}$CC" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi test -n "$CC" && break done fi if test -z "$CC"; then ac_ct_CC=$CC for ac_prog in gcc cc do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_ac_ct_CC+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="$ac_prog" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then echo "$as_me:$LINENO: result: $ac_ct_CC" >&5 echo "${ECHO_T}$ac_ct_CC" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi test -n "$ac_ct_CC" && break done CC=$ac_ct_CC fi test -z "$CC" && { { echo "$as_me:$LINENO: error: no acceptable C compiler found in \$PATH See \`config.log' for more details." >&5 echo "$as_me: error: no acceptable C compiler found in \$PATH See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } # Provide some information about the compiler. echo "$as_me:$LINENO:" \ "checking for C compiler version" >&5 ac_compiler=`set X $ac_compile; echo $2` { (eval echo "$as_me:$LINENO: \"$ac_compiler --version &5\"") >&5 (eval $ac_compiler --version &5) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } { (eval echo "$as_me:$LINENO: \"$ac_compiler -v &5\"") >&5 (eval $ac_compiler -v &5) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } { (eval echo "$as_me:$LINENO: \"$ac_compiler -V &5\"") >&5 (eval $ac_compiler -V &5) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files a.out a.exe b.out" # Try to create an executable without -o first, disregard a.out. # It will help us diagnose broken compilers, and finding out an intuition # of exeext. echo "$as_me:$LINENO: checking for C compiler default output file name" >&5 echo $ECHO_N "checking for C compiler default output file name... $ECHO_C" >&6 ac_link_default=`echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` if { (eval echo "$as_me:$LINENO: \"$ac_link_default\"") >&5 (eval $ac_link_default) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; then # Find the output, starting from the most likely. This scheme is # not robust to junk in `.', hence go to wildcards (a.*) only as a last # resort. # Be careful to initialize this variable, since it used to be cached. # Otherwise an old cache value of `no' led to `EXEEXT = no' in a Makefile. ac_cv_exeext= # b.out is created by i960 compilers. for ac_file in a_out.exe a.exe conftest.exe a.out conftest a.* conftest.* b.out do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.o | *.obj ) ;; conftest.$ac_ext ) # This is the source file. ;; [ab].out ) # We found the default executable, but exeext='' is most # certainly right. break;; *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` # FIXME: I believe we export ac_cv_exeext for Libtool, # but it would be cool to find out if it's true. Does anybody # maintain Libtool? --akim. export ac_cv_exeext break;; * ) break;; esac done else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { echo "$as_me:$LINENO: error: C compiler cannot create executables See \`config.log' for more details." >&5 echo "$as_me: error: C compiler cannot create executables See \`config.log' for more details." >&2;} { (exit 77); exit 77; }; } fi ac_exeext=$ac_cv_exeext echo "$as_me:$LINENO: result: $ac_file" >&5 echo "${ECHO_T}$ac_file" >&6 # Check the compiler produces executables we can run. If not, either # the compiler is broken, or we cross compile. echo "$as_me:$LINENO: checking whether the C compiler works" >&5 echo $ECHO_N "checking whether the C compiler works... $ECHO_C" >&6 # FIXME: These cross compiler hacks should be removed for Autoconf 3.0 # If not cross compiling, check that we can run a simple program. if test "$cross_compiling" != yes; then if { ac_try='./$ac_file' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then cross_compiling=no else if test "$cross_compiling" = maybe; then cross_compiling=yes else { { echo "$as_me:$LINENO: error: cannot run C compiled programs. If you meant to cross compile, use \`--host'. See \`config.log' for more details." >&5 echo "$as_me: error: cannot run C compiled programs. If you meant to cross compile, use \`--host'. See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } fi fi fi echo "$as_me:$LINENO: result: yes" >&5 echo "${ECHO_T}yes" >&6 rm -f a.out a.exe conftest$ac_cv_exeext b.out ac_clean_files=$ac_clean_files_save # Check the compiler produces executables we can run. If not, either # the compiler is broken, or we cross compile. echo "$as_me:$LINENO: checking whether we are cross compiling" >&5 echo $ECHO_N "checking whether we are cross compiling... $ECHO_C" >&6 echo "$as_me:$LINENO: result: $cross_compiling" >&5 echo "${ECHO_T}$cross_compiling" >&6 echo "$as_me:$LINENO: checking for suffix of executables" >&5 echo $ECHO_N "checking for suffix of executables... $ECHO_C" >&6 if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; then # If both `conftest.exe' and `conftest' are `present' (well, observable) # catch `conftest.exe'. For instance with Cygwin, `ls conftest' will # work properly (i.e., refer to `conftest.exe'), while it won't with # `rm'. for ac_file in conftest.exe conftest conftest.*; do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.o | *.obj ) ;; *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` export ac_cv_exeext break;; * ) break;; esac done else { { echo "$as_me:$LINENO: error: cannot compute suffix of executables: cannot compile and link See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute suffix of executables: cannot compile and link See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } fi rm -f conftest$ac_cv_exeext echo "$as_me:$LINENO: result: $ac_cv_exeext" >&5 echo "${ECHO_T}$ac_cv_exeext" >&6 rm -f conftest.$ac_ext EXEEXT=$ac_cv_exeext ac_exeext=$EXEEXT echo "$as_me:$LINENO: checking for suffix of object files" >&5 echo $ECHO_N "checking for suffix of object files... $ECHO_C" >&6 if test "${ac_cv_objext+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.o conftest.obj if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; then for ac_file in `(ls conftest.o conftest.obj; ls conftest.*) 2>/dev/null`; do case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg ) ;; *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` break;; esac done else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { echo "$as_me:$LINENO: error: cannot compute suffix of object files: cannot compile See \`config.log' for more details." >&5 echo "$as_me: error: cannot compute suffix of object files: cannot compile See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } fi rm -f conftest.$ac_cv_objext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_objext" >&5 echo "${ECHO_T}$ac_cv_objext" >&6 OBJEXT=$ac_cv_objext ac_objext=$OBJEXT echo "$as_me:$LINENO: checking whether we are using the GNU C compiler" >&5 echo $ECHO_N "checking whether we are using the GNU C compiler... $ECHO_C" >&6 if test "${ac_cv_c_compiler_gnu+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_compiler_gnu=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_compiler_gnu=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu fi echo "$as_me:$LINENO: result: $ac_cv_c_compiler_gnu" >&5 echo "${ECHO_T}$ac_cv_c_compiler_gnu" >&6 GCC=`test $ac_compiler_gnu = yes && echo yes` ac_test_CFLAGS=${CFLAGS+set} ac_save_CFLAGS=$CFLAGS CFLAGS="-g" echo "$as_me:$LINENO: checking whether $CC accepts -g" >&5 echo $ECHO_N "checking whether $CC accepts -g... $ECHO_C" >&6 if test "${ac_cv_prog_cc_g+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_prog_cc_g=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_prog_cc_g=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_prog_cc_g" >&5 echo "${ECHO_T}$ac_cv_prog_cc_g" >&6 if test "$ac_test_CFLAGS" = set; then CFLAGS=$ac_save_CFLAGS elif test $ac_cv_prog_cc_g = yes; then if test "$GCC" = yes; then CFLAGS="-g -O2" else CFLAGS="-g" fi else if test "$GCC" = yes; then CFLAGS="-O2" else CFLAGS= fi fi echo "$as_me:$LINENO: checking for $CC option to accept ANSI C" >&5 echo $ECHO_N "checking for $CC option to accept ANSI C... $ECHO_C" >&6 if test "${ac_cv_prog_cc_stdc+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_cv_prog_cc_stdc=no ac_save_CC=$CC cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include #include #include #include /* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ struct buf { int x; }; FILE * (*rcsopen) (struct buf *, struct stat *, int); static char *e (p, i) char **p; int i; { return p[i]; } static char *f (char * (*g) (char **, int), char **p, ...) { char *s; va_list v; va_start (v,p); s = g (p, va_arg (v,int)); va_end (v); return s; } /* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has function prototypes and stuff, but not '\xHH' hex character constants. These don't provoke an error unfortunately, instead are silently treated as 'x'. The following induces an error, until -std1 is added to get proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an array size at least. It's necessary to write '\x00'==0 to get something that's true only with -std1. */ int osf4_cc_array ['\x00' == 0 ? 1 : -1]; int test (int i, double x); struct s1 {int (*f) (int a);}; struct s2 {int (*f) (double a);}; int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); int argc; char **argv; int main () { return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; ; return 0; } _ACEOF # Don't try gcc -ansi; that turns off useful extensions and # breaks some systems' header files. # AIX -qlanglvl=ansi # Ultrix and OSF/1 -std1 # HP-UX 10.20 and later -Ae # HP-UX older versions -Aa -D_HPUX_SOURCE # SVR4 -Xc -D__EXTENSIONS__ for ac_arg in "" -qlanglvl=ansi -std1 -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" do CC="$ac_save_CC $ac_arg" rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_prog_cc_stdc=$ac_arg break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext done rm -f conftest.$ac_ext conftest.$ac_objext CC=$ac_save_CC fi case "x$ac_cv_prog_cc_stdc" in x|xno) echo "$as_me:$LINENO: result: none needed" >&5 echo "${ECHO_T}none needed" >&6 ;; *) echo "$as_me:$LINENO: result: $ac_cv_prog_cc_stdc" >&5 echo "${ECHO_T}$ac_cv_prog_cc_stdc" >&6 CC="$CC $ac_cv_prog_cc_stdc" ;; esac # Some people use a C++ compiler to compile C. Since we use `exit', # in C++ we need to declare it. In case someone uses the same compiler # for both compiling C and C++ we need to have the C++ compiler decide # the declaration of exit, since it's the most demanding environment. cat >conftest.$ac_ext <<_ACEOF #ifndef __cplusplus choke me #endif _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then for ac_declaration in \ '' \ 'extern "C" void std::exit (int) throw (); using std::exit;' \ 'extern "C" void std::exit (int); using std::exit;' \ 'extern "C" void exit (int) throw ();' \ 'extern "C" void exit (int);' \ 'void exit (int);' do cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_declaration #include int main () { exit (42); ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then : else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 continue fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_declaration int main () { exit (42); ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext done rm -f conftest* if test -n "$ac_declaration"; then echo '#ifdef __cplusplus' >>confdefs.h echo $ac_declaration >>confdefs.h echo '#endif' >>confdefs.h fi else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu DEPDIR="${am__leading_dot}deps" ac_config_commands="$ac_config_commands depfiles" am_make=${MAKE-make} cat > confinc << 'END' am__doit: @echo done .PHONY: am__doit END # If we don't find an include directive, just comment out the code. echo "$as_me:$LINENO: checking for style of include used by $am_make" >&5 echo $ECHO_N "checking for style of include used by $am_make... $ECHO_C" >&6 am__include="#" am__quote= _am_result=none # First try GNU make style include. echo "include confinc" > confmf # We grep out `Entering directory' and `Leaving directory' # messages which can occur if `w' ends up in MAKEFLAGS. # In particular we don't look at `^make:' because GNU make might # be invoked under some other name (usually "gmake"), in which # case it prints its new name instead of `make'. if test "`$am_make -s -f confmf 2> /dev/null | grep -v 'ing directory'`" = "done"; then am__include=include am__quote= _am_result=GNU fi # Now try BSD make style include. if test "$am__include" = "#"; then echo '.include "confinc"' > confmf if test "`$am_make -s -f confmf 2> /dev/null`" = "done"; then am__include=.include am__quote="\"" _am_result=BSD fi fi echo "$as_me:$LINENO: result: $_am_result" >&5 echo "${ECHO_T}$_am_result" >&6 rm -f confinc confmf # Check whether --enable-dependency-tracking or --disable-dependency-tracking was given. if test "${enable_dependency_tracking+set}" = set; then enableval="$enable_dependency_tracking" fi; if test "x$enable_dependency_tracking" != xno; then am_depcomp="$ac_aux_dir/depcomp" AMDEPBACKSLASH='\' fi if test "x$enable_dependency_tracking" != xno; then AMDEP_TRUE= AMDEP_FALSE='#' else AMDEP_TRUE='#' AMDEP_FALSE= fi depcc="$CC" am_compiler_list= echo "$as_me:$LINENO: checking dependency style of $depcc" >&5 echo $ECHO_N "checking dependency style of $depcc... $ECHO_C" >&6 if test "${am_cv_CC_dependencies_compiler_type+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named `D' -- because `-MD' means `put the output # in D'. mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_CC_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` fi for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with # Solaris 8's {/usr,}/bin/sh. touch sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf case $depmode in nosideeffect) # after this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; none) break ;; esac # We check with `-c' and `-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle `-M -o', and we need to detect this. if depmode=$depmode \ source=sub/conftest.c object=sub/conftest.${OBJEXT-o} \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c -o sub/conftest.${OBJEXT-o} sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftest.${OBJEXT-o} sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_CC_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_CC_dependencies_compiler_type=none fi fi echo "$as_me:$LINENO: result: $am_cv_CC_dependencies_compiler_type" >&5 echo "${ECHO_T}$am_cv_CC_dependencies_compiler_type" >&6 CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type if test "x$enable_dependency_tracking" != xno \ && test "$am_cv_CC_dependencies_compiler_type" = gcc3; then am__fastdepCC_TRUE= am__fastdepCC_FALSE='#' else am__fastdepCC_TRUE='#' am__fastdepCC_FALSE= fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu echo "$as_me:$LINENO: checking how to run the C preprocessor" >&5 echo $ECHO_N "checking how to run the C preprocessor... $ECHO_C" >&6 # On Suns, sometimes $CPP names a directory. if test -n "$CPP" && test -d "$CPP"; then CPP= fi if test -z "$CPP"; then if test "${ac_cv_prog_CPP+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else # Double quotes because CPP needs to be expanded for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" do ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then : else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 # Broken: fails on valid input. continue fi rm -f conftest.err conftest.$ac_ext # OK, works on sane cases. Now check whether non-existent headers # can be detected and how. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then # Broken: success on invalid input. continue else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.err conftest.$ac_ext if $ac_preproc_ok; then break fi done ac_cv_prog_CPP=$CPP fi CPP=$ac_cv_prog_CPP else ac_cv_prog_CPP=$CPP fi echo "$as_me:$LINENO: result: $CPP" >&5 echo "${ECHO_T}$CPP" >&6 ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then : else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 # Broken: fails on valid input. continue fi rm -f conftest.err conftest.$ac_ext # OK, works on sane cases. Now check whether non-existent headers # can be detected and how. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include _ACEOF if { (eval echo "$as_me:$LINENO: \"$ac_cpp conftest.$ac_ext\"") >&5 (eval $ac_cpp conftest.$ac_ext) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } >/dev/null; then if test -s conftest.err; then ac_cpp_err=$ac_c_preproc_warn_flag ac_cpp_err=$ac_cpp_err$ac_c_werror_flag else ac_cpp_err= fi else ac_cpp_err=yes fi if test -z "$ac_cpp_err"; then # Broken: success on invalid input. continue else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.err conftest.$ac_ext if $ac_preproc_ok; then : else { { echo "$as_me:$LINENO: error: C preprocessor \"$CPP\" fails sanity check See \`config.log' for more details." >&5 echo "$as_me: error: C preprocessor \"$CPP\" fails sanity check See \`config.log' for more details." >&2;} { (exit 1); exit 1; }; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu ## AC_PROG_F77(gfortran g77 g95 f77 f90) echo "$as_me:$LINENO: checking for library containing strerror" >&5 echo $ECHO_N "checking for library containing strerror... $ECHO_C" >&6 if test "${ac_cv_search_strerror+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else ac_func_search_save_LIBS=$LIBS ac_cv_search_strerror=no cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char strerror (); int main () { strerror (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_strerror="none required" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test "$ac_cv_search_strerror" = no; then for ac_lib in cposix; do LIBS="-l$ac_lib $ac_func_search_save_LIBS" cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ /* Override any gcc2 internal prototype to avoid an error. */ #ifdef __cplusplus extern "C" #endif /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char strerror (); int main () { strerror (); ; return 0; } _ACEOF rm -f conftest.$ac_objext conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_search_strerror="-l$ac_lib" break else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 fi rm -f conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext done fi LIBS=$ac_func_search_save_LIBS fi echo "$as_me:$LINENO: result: $ac_cv_search_strerror" >&5 echo "${ECHO_T}$ac_cv_search_strerror" >&6 if test "$ac_cv_search_strerror" != no; then test "$ac_cv_search_strerror" = "none required" || LIBS="$ac_cv_search_strerror $LIBS" fi echo "$as_me:$LINENO: checking for egrep" >&5 echo $ECHO_N "checking for egrep... $ECHO_C" >&6 if test "${ac_cv_prog_egrep+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if echo a | (grep -E '(a|b)') >/dev/null 2>&1 then ac_cv_prog_egrep='grep -E' else ac_cv_prog_egrep='egrep' fi fi echo "$as_me:$LINENO: result: $ac_cv_prog_egrep" >&5 echo "${ECHO_T}$ac_cv_prog_egrep" >&6 EGREP=$ac_cv_prog_egrep echo "$as_me:$LINENO: checking for ANSI C header files" >&5 echo $ECHO_N "checking for ANSI C header files... $ECHO_C" >&6 if test "${ac_cv_header_stdc+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include #include #include #include int main () { ; return 0; } _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_header_stdc=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_header_stdc=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "memchr" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "free" >/dev/null 2>&1; then : else ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. if test "$cross_compiling" = yes; then : else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ #include #if ((' ' & 0x0FF) == 0x020) # define ISLOWER(c) ('a' <= (c) && (c) <= 'z') # define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) #else # define ISLOWER(c) \ (('a' <= (c) && (c) <= 'i') \ || ('j' <= (c) && (c) <= 'r') \ || ('s' <= (c) && (c) <= 'z')) # define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) #endif #define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) int main () { int i; for (i = 0; i < 256; i++) if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2); exit (0); } _ACEOF rm -f conftest$ac_exeext if { (eval echo "$as_me:$LINENO: \"$ac_link\"") >&5 (eval $ac_link) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='./conftest$ac_exeext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then : else echo "$as_me: program exited with status $ac_status" >&5 echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ( exit $ac_status ) ac_cv_header_stdc=no fi rm -f core *.core gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext fi fi fi echo "$as_me:$LINENO: result: $ac_cv_header_stdc" >&5 echo "${ECHO_T}$ac_cv_header_stdc" >&6 if test $ac_cv_header_stdc = yes; then cat >>confdefs.h <<\_ACEOF #define STDC_HEADERS 1 _ACEOF fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. set dummy ${ac_tool_prefix}ranlib; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_RANLIB+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$RANLIB"; then ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi RANLIB=$ac_cv_prog_RANLIB if test -n "$RANLIB"; then echo "$as_me:$LINENO: result: $RANLIB" >&5 echo "${ECHO_T}$RANLIB" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi fi if test -z "$ac_cv_prog_RANLIB"; then ac_ct_RANLIB=$RANLIB # Extract the first word of "ranlib", so it can be a program name with args. set dummy ranlib; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_ac_ct_RANLIB+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_RANLIB"; then ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_RANLIB="ranlib" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done test -z "$ac_cv_prog_ac_ct_RANLIB" && ac_cv_prog_ac_ct_RANLIB=":" fi fi ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB if test -n "$ac_ct_RANLIB"; then echo "$as_me:$LINENO: result: $ac_ct_RANLIB" >&5 echo "${ECHO_T}$ac_ct_RANLIB" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi RANLIB=$ac_ct_RANLIB else RANLIB="$ac_cv_prog_RANLIB" fi # On IRIX 5.3, sys/types and inttypes.h are conflicting. for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \ inttypes.h stdint.h unistd.h do as_ac_Header=`echo "ac_cv_header_$ac_header" | $as_tr_sh` echo "$as_me:$LINENO: checking for $ac_header" >&5 echo $ECHO_N "checking for $ac_header... $ECHO_C" >&6 if eval "test \"\${$as_ac_Header+set}\" = set"; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF /* confdefs.h. */ _ACEOF cat confdefs.h >>conftest.$ac_ext cat >>conftest.$ac_ext <<_ACEOF /* end confdefs.h. */ $ac_includes_default #include <$ac_header> _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then eval "$as_ac_Header=yes" else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 eval "$as_ac_Header=no" fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext fi echo "$as_me:$LINENO: result: `eval echo '${'$as_ac_Header'}'`" >&5 echo "${ECHO_T}`eval echo '${'$as_ac_Header'}'`" >&6 if test `eval echo '${'$as_ac_Header'}'` = yes; then cat >>confdefs.h <<_ACEOF #define `echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done $ac_includes_default for ac_prog in perl perl5 perl5.8 perl5.6 perl5.005 do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_path_PERL+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else case $PERL in [\\/]* | ?:[\\/]*) ac_cv_path_PERL="$PERL" # Let the user override the test with a path. ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_path_PERL="$as_dir/$ac_word$ac_exec_ext" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done ;; esac fi PERL=$ac_cv_path_PERL if test -n "$PERL"; then echo "$as_me:$LINENO: result: $PERL" >&5 echo "${ECHO_T}$PERL" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi test -n "$PERL" && break done test -n "$PERL" || PERL="NO_PERL " for ac_prog in python python2 python2.5 python2.4 python2.3 python2.2 python2.1 do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_path_PYTHON+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else case $PYTHON in [\\/]* | ?:[\\/]*) ac_cv_path_PYTHON="$PYTHON" # Let the user override the test with a path. ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_path_PYTHON="$as_dir/$ac_word$ac_exec_ext" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done ;; esac fi PYTHON=$ac_cv_path_PYTHON if test -n "$PYTHON"; then echo "$as_me:$LINENO: result: $PYTHON" >&5 echo "${ECHO_T}$PYTHON" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi test -n "$PYTHON" && break done test -n "$PYTHON" || PYTHON="NO_PYTHON" subdirs="$subdirs readline" ################################ FCLIST='gfortran g77 g95 f77 f90 xlf' # Check whether --with-fortran or --without-fortran was given. if test "${with_fortran+set}" = set; then withval="$with_fortran" if test "$withval"; then FCLIST=$withval; fi fi; ac_ext=f ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5' ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_f77_compiler_gnu if test -n "$ac_tool_prefix"; then for ac_prog in $FCLIST do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_F77+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$F77"; then ac_cv_prog_F77="$F77" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_F77="$ac_tool_prefix$ac_prog" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi F77=$ac_cv_prog_F77 if test -n "$F77"; then echo "$as_me:$LINENO: result: $F77" >&5 echo "${ECHO_T}$F77" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi test -n "$F77" && break done fi if test -z "$F77"; then ac_ct_F77=$F77 for ac_prog in $FCLIST do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 echo "$as_me:$LINENO: checking for $ac_word" >&5 echo $ECHO_N "checking for $ac_word... $ECHO_C" >&6 if test "${ac_cv_prog_ac_ct_F77+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test -n "$ac_ct_F77"; then ac_cv_prog_ac_ct_F77="$ac_ct_F77" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_F77="$ac_prog" echo "$as_me:$LINENO: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done fi fi ac_ct_F77=$ac_cv_prog_ac_ct_F77 if test -n "$ac_ct_F77"; then echo "$as_me:$LINENO: result: $ac_ct_F77" >&5 echo "${ECHO_T}$ac_ct_F77" >&6 else echo "$as_me:$LINENO: result: no" >&5 echo "${ECHO_T}no" >&6 fi test -n "$ac_ct_F77" && break done F77=$ac_ct_F77 fi # Provide some information about the compiler. echo "$as_me:3554:" \ "checking for Fortran 77 compiler version" >&5 ac_compiler=`set X $ac_compile; echo $2` { (eval echo "$as_me:$LINENO: \"$ac_compiler --version &5\"") >&5 (eval $ac_compiler --version &5) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } { (eval echo "$as_me:$LINENO: \"$ac_compiler -v &5\"") >&5 (eval $ac_compiler -v &5) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } { (eval echo "$as_me:$LINENO: \"$ac_compiler -V &5\"") >&5 (eval $ac_compiler -V &5) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } rm -f a.out # If we don't use `.F' as extension, the preprocessor is not run on the # input file. (Note that this only needs to work for GNU compilers.) ac_save_ext=$ac_ext ac_ext=F echo "$as_me:$LINENO: checking whether we are using the GNU Fortran 77 compiler" >&5 echo $ECHO_N "checking whether we are using the GNU Fortran 77 compiler... $ECHO_C" >&6 if test "${ac_cv_f77_compiler_gnu+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF program main #ifndef __GNUC__ choke me #endif end _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_f77_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_compiler_gnu=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_compiler_gnu=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_f77_compiler_gnu=$ac_compiler_gnu fi echo "$as_me:$LINENO: result: $ac_cv_f77_compiler_gnu" >&5 echo "${ECHO_T}$ac_cv_f77_compiler_gnu" >&6 ac_ext=$ac_save_ext ac_test_FFLAGS=${FFLAGS+set} ac_save_FFLAGS=$FFLAGS FFLAGS= echo "$as_me:$LINENO: checking whether $F77 accepts -g" >&5 echo $ECHO_N "checking whether $F77 accepts -g... $ECHO_C" >&6 if test "${ac_cv_prog_f77_g+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else FFLAGS=-g cat >conftest.$ac_ext <<_ACEOF program main end _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_f77_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_prog_f77_g=yes else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_cv_prog_f77_g=no fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_prog_f77_g" >&5 echo "${ECHO_T}$ac_cv_prog_f77_g" >&6 if test "$ac_test_FFLAGS" = set; then FFLAGS=$ac_save_FFLAGS elif test $ac_cv_prog_f77_g = yes; then if test "x$ac_cv_f77_compiler_gnu" = xyes; then FFLAGS="-g -O2" else FFLAGS="-g" fi else if test "x$ac_cv_f77_compiler_gnu" = xyes; then FFLAGS="-O2" else FFLAGS= fi fi G77=`test $ac_compiler_gnu = yes && echo yes` ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu ac_ext=f ac_compile='$F77 -c $FFLAGS conftest.$ac_ext >&5' ac_link='$F77 -o conftest$ac_exeext $FFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_f77_compiler_gnu echo "$as_me:$LINENO: checking how to get verbose linking output from $F77" >&5 echo $ECHO_N "checking how to get verbose linking output from $F77... $ECHO_C" >&6 if test "${ac_cv_prog_f77_v+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else cat >conftest.$ac_ext <<_ACEOF program main end _ACEOF rm -f conftest.$ac_objext if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5 (eval $ac_compile) 2>conftest.er1 ac_status=$? grep -v '^ *+' conftest.er1 >conftest.err rm -f conftest.er1 cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } && { ac_try='test -z "$ac_f77_werror_flag" || test ! -s conftest.err' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; } && { ac_try='test -s conftest.$ac_objext' { (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5 (eval $ac_try) 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); }; }; then ac_cv_prog_f77_v= # Try some options frequently used verbose output for ac_verb in -v -verbose --verbose -V -\#\#\#; do cat >conftest.$ac_ext <<_ACEOF program main end _ACEOF # Compile and link our simple test program by passing a flag (argument # 1 to this macro) to the Fortran compiler in order to get # "verbose" output that we can then parse for the Fortran linker # flags. ac_save_FFLAGS=$FFLAGS FFLAGS="$FFLAGS $ac_verb" (eval echo $as_me:3750: \"$ac_link\") >&5 ac_f77_v_output=`eval $ac_link 5>&1 2>&1 | grep -v 'Driving:'` echo "$ac_f77_v_output" >&5 FFLAGS=$ac_save_FFLAGS rm -f conftest* # On HP/UX there is a line like: "LPATH is: /foo:/bar:/baz" where # /foo, /bar, and /baz are search directories for the Fortran linker. # Here, we change these into -L/foo -L/bar -L/baz (and put it first): ac_f77_v_output="`echo $ac_f77_v_output | grep 'LPATH is:' | sed 's,.*LPATH is\(: *[^ ]*\).*,\1,;s,: */, -L/,g'` $ac_f77_v_output" case $ac_f77_v_output in # If we are using xlf then replace all the commas with spaces. *xlfentry*) ac_f77_v_output=`echo $ac_f77_v_output | sed 's/,/ /g'` ;; # With Intel ifc, ignore the quoted -mGLOB_options_string stuff (quoted # $LIBS confuse us, and the libraries appear later in the output anyway). *mGLOB_options_string*) ac_f77_v_output=`echo $ac_f77_v_output | sed 's/\"-mGLOB[^\"]*\"/ /g'` ;; # If we are using Cray Fortran then delete quotes. # Use "\"" instead of '"' for font-lock-mode. # FIXME: a more general fix for quoted arguments with spaces? *cft90*) ac_f77_v_output=`echo $ac_f77_v_output | sed "s/\"//g"` ;; esac # look for -l* and *.a constructs in the output for ac_arg in $ac_f77_v_output; do case $ac_arg in [\\/]*.a | ?:[\\/]*.a | -[lLRu]*) ac_cv_prog_f77_v=$ac_verb break 2 ;; esac done done if test -z "$ac_cv_prog_f77_v"; then { echo "$as_me:$LINENO: WARNING: cannot determine how to obtain linking information from $F77" >&5 echo "$as_me: WARNING: cannot determine how to obtain linking information from $F77" >&2;} fi else echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { echo "$as_me:$LINENO: WARNING: compilation failed" >&5 echo "$as_me: WARNING: compilation failed" >&2;} fi rm -f conftest.err conftest.$ac_objext conftest.$ac_ext fi echo "$as_me:$LINENO: result: $ac_cv_prog_f77_v" >&5 echo "${ECHO_T}$ac_cv_prog_f77_v" >&6 echo "$as_me:$LINENO: checking for Fortran libraries of $F77" >&5 echo $ECHO_N "checking for Fortran libraries of $F77... $ECHO_C" >&6 if test "${ac_cv_f77_libs+set}" = set; then echo $ECHO_N "(cached) $ECHO_C" >&6 else if test "x$FLIBS" != "x"; then ac_cv_f77_libs="$FLIBS" # Let the user override the test. else cat >conftest.$ac_ext <<_ACEOF program main end _ACEOF # Compile and link our simple test program by passing a flag (argument # 1 to this macro) to the Fortran compiler in order to get # "verbose" output that we can then parse for the Fortran linker # flags. ac_save_FFLAGS=$FFLAGS FFLAGS="$FFLAGS $ac_cv_prog_f77_v" (eval echo $as_me:3828: \"$ac_link\") >&5 ac_f77_v_output=`eval $ac_link 5>&1 2>&1 | grep -v 'Driving:'` echo "$ac_f77_v_output" >&5 FFLAGS=$ac_save_FFLAGS rm -f conftest* # On HP/UX there is a line like: "LPATH is: /foo:/bar:/baz" where # /foo, /bar, and /baz are search directories for the Fortran linker. # Here, we change these into -L/foo -L/bar -L/baz (and put it first): ac_f77_v_output="`echo $ac_f77_v_output | grep 'LPATH is:' | sed 's,.*LPATH is\(: *[^ ]*\).*,\1,;s,: */, -L/,g'` $ac_f77_v_output" case $ac_f77_v_output in # If we are using xlf then replace all the commas with spaces. *xlfentry*) ac_f77_v_output=`echo $ac_f77_v_output | sed 's/,/ /g'` ;; # With Intel ifc, ignore the quoted -mGLOB_options_string stuff (quoted # $LIBS confuse us, and the libraries appear later in the output anyway). *mGLOB_options_string*) ac_f77_v_output=`echo $ac_f77_v_output | sed 's/\"-mGLOB[^\"]*\"/ /g'` ;; # If we are using Cray Fortran then delete quotes. # Use "\"" instead of '"' for font-lock-mode. # FIXME: a more general fix for quoted arguments with spaces? *cft90*) ac_f77_v_output=`echo $ac_f77_v_output | sed "s/\"//g"` ;; esac ac_cv_f77_libs= # Save positional arguments (if any) ac_save_positional="$@" set X $ac_f77_v_output while test $# != 1; do shift ac_arg=$1 case $ac_arg in [\\/]*.a | ?:[\\/]*.a) ac_exists=false for ac_i in $ac_cv_f77_libs; do if test x"$ac_arg" = x"$ac_i"; then ac_exists=true break fi done if test x"$ac_exists" = xtrue; then : else ac_cv_f77_libs="$ac_cv_f77_libs $ac_arg" fi ;; -bI:*) ac_exists=false for ac_i in $ac_cv_f77_libs; do if test x"$ac_arg" = x"$ac_i"; then ac_exists=true break fi done if test x"$ac_exists" = xtrue; then : else if test "$ac_compiler_gnu" = yes; then for ac_link_opt in $ac_arg; do ac_cv_f77_libs="$ac_cv_f77_libs -Xlinker $ac_link_opt" done else ac_cv_f77_libs="$ac_cv_f77_libs $ac_arg" fi fi ;; # Ignore these flags. -lang* | -lcrt[01].o | -lcrtbegin.o | -lc | -lgcc | -libmil | -LANG:=*) ;; -lkernel32) test x"$CYGWIN" != xyes && ac_cv_f77_libs="$ac_cv_f77_libs $ac_arg" ;; -[LRuY]) # These flags, when seen by themselves, take an argument. # We remove the space between option and argument and re-iterate # unless we find an empty arg or a new option (starting with -) case $2 in "" | -*);; *) ac_arg="$ac_arg$2" shift; shift set X $ac_arg "$@" ;; esac ;; -YP,*) for ac_j in `echo $ac_arg | sed -e 's/-YP,/-L/;s/:/ -L/g'`; do ac_exists=false for ac_i in $ac_cv_f77_libs; do if test x"$ac_j" = x"$ac_i"; then ac_exists=true break fi done if test x"$ac_exists" = xtrue; then : else ac_arg="$ac_arg $ac_j" ac_cv_f77_libs="$ac_cv_f77_libs $ac_j" fi done ;; -[lLR]*) ac_exists=false for ac_i in $ac_cv_f77_libs; do if test x"$ac_arg" = x"$ac_i"; then ac_exists=true break fi done if test x"$ac_exists" = xtrue; then : else ac_cv_f77_libs="$ac_cv_f77_libs $ac_arg" fi ;; # Ignore everything else. esac done # restore positional arguments set X $ac_save_positional; shift # We only consider "LD_RUN_PATH" on Solaris systems. If this is seen, # then we insist that the "run path" must be an absolute path (i.e. it # must begin with a "/"). case `(uname -sr) 2>/dev/null` in "SunOS 5"*) ac_ld_run_path=`echo $ac_f77_v_output | sed -n 's,^.*LD_RUN_PATH *= *\(/[^ ]*\).*$,-R\1,p'` test "x$ac_ld_run_path" != x && if test "$ac_compiler_gnu" = yes; then for ac_link_opt in $ac_ld_run_path; do ac_cv_f77_libs="$ac_cv_f77_libs -Xlinker $ac_link_opt" done else ac_cv_f77_libs="$ac_cv_f77_libs $ac_ld_run_path" fi ;; esac fi # test "x$[]_AC_LANG_PREFIX[]LIBS" = "x" fi echo "$as_me:$LINENO: result: $ac_cv_f77_libs" >&5 echo "${ECHO_T}$ac_cv_f77_libs" >&6 FLIBS="$ac_cv_f77_libs" ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu ################################ # get terminal capabilities library (typically -L/usr/lib -lncurses) TERMCAP_LIB=`$SHELL ./iconf_term` # Check whether --with-termcap-link or --without-termcap-link was given. if test "${with_termcap_link+set}" = set; then withval="$with_termcap_link" if test "$withval" ; then TERMCAP_LIB=$withval; fi fi; ################################ # test selected memory size ARRSIZE=large # Check whether --with-arraysize or --without-arraysize was given. if test "${with_arraysize+set}" = set; then withval="$with_arraysize" if test "$withval" = no; then ARRSIZE=large; else ARRSIZE=$withval; fi fi; ## ## VERSION=`$SHELL ./iconf_iff $prefix $ARRSIZE $PACKAGE $ac_default_prefix ` ## simple script to fix bad ordering of FLIBS with gcc MN_FLIBS=`$SHELL ./iconf_flib "$FLIBS"` echo "$as_me:$LINENO: result: === Fortran LIBS: $MN_FLIBS" >&5 echo "${ECHO_T}=== Fortran LIBS: $MN_FLIBS" >&6 # tests for PGPLOT pgdir='' use_pgplot=true pwd=`pwd` PGPLOT_LIBS="$pwd/src/pgstub/libnopgplot.a"; # Check whether --with-pgplot or --without-pgplot was given. if test "${with_pgplot+set}" = set; then withval="$with_pgplot" if test "$withval" = no; then use_pgplot=false ; pgdir=''; else use_pgplot=true ; pgdir=$withval ; fi else use_pgpglot=true fi; # use test_plot script to test PGPLOT install if $use_pgplot; then PGPLOT_LIBS=`$SHELL ./iconf_pgplot $pgdir`; fi # or specify full link argument!! # Check whether --with-pgplot-link or --without-pgplot-link was given. if test "${with_pgplot_link+set}" = set; then withval="$with_pgplot_link" if test "$withval" ; then use_pgplot=true; PGPLOT_LIBS=$withval; fi else use_pgpglot=true fi; echo "$as_me:$LINENO: result: will link to PGPLOT using $PGPLOT_LIBS" >&5 echo "${ECHO_T}will link to PGPLOT using $PGPLOT_LIBS" >&6 ################################ # AC_CONFIG_SUBDIRS(fortran/f2c fortran/libf2c readline) # fortran/Makefile f2c_comp # readline/Makefile ac_config_files="$ac_config_files src/Makefile src/pgstub/Makefile src/cldata/Makefile src/fefftab/Makefile src/lib/Makefile src/cmdline/Makefile src/autobk/Makefile src/feffit/Makefile src/diffkk/Makefile src/test/Makefile src/feff6/Makefile Makefile" cat >confcache <<\_ACEOF # This file is a shell script that caches the results of configure # tests run on this system so they can be shared between configure # scripts and configure runs, see configure's option --config-cache. # It is not useful on other systems. If it contains results you don't # want to keep, you may remove or edit it. # # config.status only pays attention to the cache file if you give it # the --recheck option to rerun configure. # # `ac_cv_env_foo' variables (set or unset) will be overridden when # loading this file, other *unset* `ac_cv_foo' will be assigned the # following values. _ACEOF # The following way of writing the cache mishandles newlines in values, # but we know of no workaround that is simple, portable, and efficient. # So, don't put newlines in cache variables' values. # Ultrix sh set writes to stderr and can't be redirected directly, # and sets the high bit in the cache file unless we assign to the vars. { (set) 2>&1 | case `(ac_space=' '; set | grep ac_space) 2>&1` in *ac_space=\ *) # `set' does not quote correctly, so add quotes (double-quote # substitution turns \\\\ into \\, and sed turns \\ into \). sed -n \ "s/'/'\\\\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" ;; *) # `set' quotes correctly as required by POSIX, so do not add quotes. sed -n \ "s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1=\\2/p" ;; esac; } | sed ' t clear : clear s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ t end /^ac_cv_env/!s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ : end' >>confcache if diff $cache_file confcache >/dev/null 2>&1; then :; else if test -w $cache_file; then test "x$cache_file" != "x/dev/null" && echo "updating cache $cache_file" cat confcache >$cache_file else echo "not updating unwritable cache $cache_file" fi fi rm -f confcache test "x$prefix" = xNONE && prefix=$ac_default_prefix # Let make expand exec_prefix. test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' # VPATH may cause trouble with some makes, so we remove $(srcdir), # ${srcdir} and @srcdir@ from VPATH if srcdir is ".", strip leading and # trailing colons and then remove the whole line if VPATH becomes empty # (actually we leave an empty line to preserve line numbers). if test "x$srcdir" = x.; then ac_vpsub='/^[ ]*VPATH[ ]*=/{ s/:*\$(srcdir):*/:/; s/:*\${srcdir}:*/:/; s/:*@srcdir@:*/:/; s/^\([^=]*=[ ]*\):*/\1/; s/:*$//; s/^[^=]*=[ ]*$//; }' fi DEFS=-DHAVE_CONFIG_H ac_libobjs= ac_ltlibobjs= for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue # 1. Remove the extension, and $U if already installed. ac_i=`echo "$ac_i" | sed 's/\$U\././;s/\.o$//;s/\.obj$//'` # 2. Add them. ac_libobjs="$ac_libobjs $ac_i\$U.$ac_objext" ac_ltlibobjs="$ac_ltlibobjs $ac_i"'$U.lo' done LIBOBJS=$ac_libobjs LTLIBOBJS=$ac_ltlibobjs if test -z "${AMDEP_TRUE}" && test -z "${AMDEP_FALSE}"; then { { echo "$as_me:$LINENO: error: conditional \"AMDEP\" was never defined. Usually this means the macro was only invoked conditionally." >&5 echo "$as_me: error: conditional \"AMDEP\" was never defined. Usually this means the macro was only invoked conditionally." >&2;} { (exit 1); exit 1; }; } fi if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then { { echo "$as_me:$LINENO: error: conditional \"am__fastdepCC\" was never defined. Usually this means the macro was only invoked conditionally." >&5 echo "$as_me: error: conditional \"am__fastdepCC\" was never defined. Usually this means the macro was only invoked conditionally." >&2;} { (exit 1); exit 1; }; } fi : ${CONFIG_STATUS=./config.status} ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files $CONFIG_STATUS" { echo "$as_me:$LINENO: creating $CONFIG_STATUS" >&5 echo "$as_me: creating $CONFIG_STATUS" >&6;} cat >$CONFIG_STATUS <<_ACEOF #! $SHELL # Generated by $as_me. # Run this file to recreate the current configuration. # Compiler output produced by configure, useful for debugging # configure, is in config.log if it exists. debug=false ac_cs_recheck=false ac_cs_silent=false SHELL=\${CONFIG_SHELL-$SHELL} _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF ## --------------------- ## ## M4sh Initialization. ## ## --------------------- ## # Be Bourne compatible if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' elif test -n "${BASH_VERSION+set}" && (set -o posix) >/dev/null 2>&1; then set -o posix fi DUALCASE=1; export DUALCASE # for MKS sh # Support unset when possible. if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then as_unset=unset else as_unset=false fi # Work around bugs in pre-3.0 UWIN ksh. $as_unset ENV MAIL MAILPATH PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. for as_var in \ LANG LANGUAGE LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION \ LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NAME LC_NUMERIC LC_PAPER \ LC_TELEPHONE LC_TIME do if (set +x; test -z "`(eval $as_var=C; export $as_var) 2>&1`"); then eval $as_var=C; export $as_var else $as_unset $as_var fi done # Required to use basename. if expr a : '\(a\)' >/dev/null 2>&1; then as_expr=expr else as_expr=false fi if (basename /) >/dev/null 2>&1 && test "X`basename / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi # Name of the executable. as_me=`$as_basename "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)$' \| \ . : '\(.\)' 2>/dev/null || echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/; q; } /^X\/\(\/\/\)$/{ s//\1/; q; } /^X\/\(\/\).*/{ s//\1/; q; } s/.*/./; q'` # PATH needs CR, and LINENO needs CR and PATH. # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then echo "#! /bin/sh" >conf$$.sh echo "exit 0" >>conf$$.sh chmod +x conf$$.sh if (PATH="/nonexistent;."; conf$$.sh) >/dev/null 2>&1; then PATH_SEPARATOR=';' else PATH_SEPARATOR=: fi rm -f conf$$.sh fi as_lineno_1=$LINENO as_lineno_2=$LINENO as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` test "x$as_lineno_1" != "x$as_lineno_2" && test "x$as_lineno_3" = "x$as_lineno_2" || { # Find who we are. Look in the path if we contain no path at all # relative or not. case $0 in *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then { { echo "$as_me:$LINENO: error: cannot find myself; rerun with an absolute path" >&5 echo "$as_me: error: cannot find myself; rerun with an absolute path" >&2;} { (exit 1); exit 1; }; } fi case $CONFIG_SHELL in '') as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for as_base in sh bash ksh sh5; do case $as_dir in /*) if ("$as_dir/$as_base" -c ' as_lineno_1=$LINENO as_lineno_2=$LINENO as_lineno_3=`(expr $as_lineno_1 + 1) 2>/dev/null` test "x$as_lineno_1" != "x$as_lineno_2" && test "x$as_lineno_3" = "x$as_lineno_2" ') 2>/dev/null; then $as_unset BASH_ENV || test "${BASH_ENV+set}" != set || { BASH_ENV=; export BASH_ENV; } $as_unset ENV || test "${ENV+set}" != set || { ENV=; export ENV; } CONFIG_SHELL=$as_dir/$as_base export CONFIG_SHELL exec "$CONFIG_SHELL" "$0" ${1+"$@"} fi;; esac done done ;; esac # Create $as_me.lineno as a copy of $as_myself, but with $LINENO # uniformly replaced by the line number. The first 'sed' inserts a # line-number line before each line; the second 'sed' does the real # work. The second script uses 'N' to pair each line-number line # with the numbered line, and appends trailing '-' during # substitution so that $LINENO is not a special case at line end. # (Raja R Harinath suggested sed '=', and Paul Eggert wrote the # second 'sed' script. Blame Lee E. McMahon for sed's syntax. :-) sed '=' <$as_myself | sed ' N s,$,-, : loop s,^\(['$as_cr_digits']*\)\(.*\)[$]LINENO\([^'$as_cr_alnum'_]\),\1\2\1\3, t loop s,-$,, s,^['$as_cr_digits']*\n,, ' >$as_me.lineno && chmod +x $as_me.lineno || { { echo "$as_me:$LINENO: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&5 echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2;} { (exit 1); exit 1; }; } # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the # original and so on. Autoconf is especially sensible to this). . ./$as_me.lineno # Exit status is that of the last command. exit } case `echo "testing\c"; echo 1,2,3`,`echo -n testing; echo 1,2,3` in *c*,-n*) ECHO_N= ECHO_C=' ' ECHO_T=' ' ;; *c*,* ) ECHO_N=-n ECHO_C= ECHO_T= ;; *) ECHO_N= ECHO_C='\c' ECHO_T= ;; esac if expr a : '\(a\)' >/dev/null 2>&1; then as_expr=expr else as_expr=false fi rm -f conf$$ conf$$.exe conf$$.file echo >conf$$.file if ln -s conf$$.file conf$$ 2>/dev/null; then # We could just check for DJGPP; but this test a) works b) is more generic # and c) will remain valid once DJGPP supports symlinks (DJGPP 2.04). if test -f conf$$.exe; then # Don't use ln at all; we don't have any links as_ln_s='cp -p' else as_ln_s='ln -s' fi elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -p' fi rm -f conf$$ conf$$.exe conf$$.file if mkdir -p . 2>/dev/null; then as_mkdir_p=: else test -d ./-p && rmdir ./-p as_mkdir_p=false fi as_executable_p="test -f" # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" # IFS # We need space, tab and new line, in precisely that order. as_nl=' ' IFS=" $as_nl" # CDPATH. $as_unset CDPATH exec 6>&1 # Open the log real soon, to keep \$[0] and so on meaningful, and to # report actual input values of CONFIG_FILES etc. instead of their # values after options handling. Logging --version etc. is OK. exec 5>>config.log { echo sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX ## Running $as_me. ## _ASBOX } >&5 cat >&5 <<_CSEOF This file was extended by ifeffit $as_me 1.2.10, which was generated by GNU Autoconf 2.59. Invocation command line was CONFIG_FILES = $CONFIG_FILES CONFIG_HEADERS = $CONFIG_HEADERS CONFIG_LINKS = $CONFIG_LINKS CONFIG_COMMANDS = $CONFIG_COMMANDS $ $0 $@ _CSEOF echo "on `(hostname || uname -n) 2>/dev/null | sed 1q`" >&5 echo >&5 _ACEOF # Files that config.status was made for. if test -n "$ac_config_files"; then echo "config_files=\"$ac_config_files\"" >>$CONFIG_STATUS fi if test -n "$ac_config_headers"; then echo "config_headers=\"$ac_config_headers\"" >>$CONFIG_STATUS fi if test -n "$ac_config_links"; then echo "config_links=\"$ac_config_links\"" >>$CONFIG_STATUS fi if test -n "$ac_config_commands"; then echo "config_commands=\"$ac_config_commands\"" >>$CONFIG_STATUS fi cat >>$CONFIG_STATUS <<\_ACEOF ac_cs_usage="\ \`$as_me' instantiates files from templates according to the current configuration. Usage: $0 [OPTIONS] [FILE]... -h, --help print this help, then exit -V, --version print version number, then exit -q, --quiet do not print progress messages -d, --debug don't remove temporary files --recheck update $as_me by reconfiguring in the same conditions --file=FILE[:TEMPLATE] instantiate the configuration file FILE --header=FILE[:TEMPLATE] instantiate the configuration header FILE Configuration files: $config_files Configuration headers: $config_headers Configuration commands: $config_commands Report bugs to ." _ACEOF cat >>$CONFIG_STATUS <<_ACEOF ac_cs_version="\\ ifeffit config.status 1.2.10 configured by $0, generated by GNU Autoconf 2.59, with options \\"`echo "$ac_configure_args" | sed 's/[\\""\`\$]/\\\\&/g'`\\" Copyright (C) 2003 Free Software Foundation, Inc. This config.status script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it." srcdir=$srcdir INSTALL="$INSTALL" _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF # If no file are specified by the user, then we need to provide default # value. By we need to know if files were specified by the user. ac_need_defaults=: while test $# != 0 do case $1 in --*=*) ac_option=`expr "x$1" : 'x\([^=]*\)='` ac_optarg=`expr "x$1" : 'x[^=]*=\(.*\)'` ac_shift=: ;; -*) ac_option=$1 ac_optarg=$2 ac_shift=shift ;; *) # This is not an option, so the user has probably given explicit # arguments. ac_option=$1 ac_need_defaults=false;; esac case $ac_option in # Handling of the options. _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) ac_cs_recheck=: ;; --version | --vers* | -V ) echo "$ac_cs_version"; exit 0 ;; --he | --h) # Conflict between --help and --header { { echo "$as_me:$LINENO: error: ambiguous option: $1 Try \`$0 --help' for more information." >&5 echo "$as_me: error: ambiguous option: $1 Try \`$0 --help' for more information." >&2;} { (exit 1); exit 1; }; };; --help | --hel | -h ) echo "$ac_cs_usage"; exit 0 ;; --debug | --d* | -d ) debug=: ;; --file | --fil | --fi | --f ) $ac_shift CONFIG_FILES="$CONFIG_FILES $ac_optarg" ac_need_defaults=false;; --header | --heade | --head | --hea ) $ac_shift CONFIG_HEADERS="$CONFIG_HEADERS $ac_optarg" ac_need_defaults=false;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil | --si | --s) ac_cs_silent=: ;; # This is an error. -*) { { echo "$as_me:$LINENO: error: unrecognized option: $1 Try \`$0 --help' for more information." >&5 echo "$as_me: error: unrecognized option: $1 Try \`$0 --help' for more information." >&2;} { (exit 1); exit 1; }; } ;; *) ac_config_targets="$ac_config_targets $1" ;; esac shift done ac_configure_extra_args= if $ac_cs_silent; then exec 6>/dev/null ac_configure_extra_args="$ac_configure_extra_args --silent" fi _ACEOF cat >>$CONFIG_STATUS <<_ACEOF if \$ac_cs_recheck; then echo "running $SHELL $0 " $ac_configure_args \$ac_configure_extra_args " --no-create --no-recursion" >&6 exec $SHELL $0 $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion fi _ACEOF cat >>$CONFIG_STATUS <<_ACEOF # # INIT-COMMANDS section. # AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir" _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF for ac_config_target in $ac_config_targets do case "$ac_config_target" in # Handling of arguments. "src/Makefile" ) CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; "src/pgstub/Makefile" ) CONFIG_FILES="$CONFIG_FILES src/pgstub/Makefile" ;; "src/cldata/Makefile" ) CONFIG_FILES="$CONFIG_FILES src/cldata/Makefile" ;; "src/fefftab/Makefile" ) CONFIG_FILES="$CONFIG_FILES src/fefftab/Makefile" ;; "src/lib/Makefile" ) CONFIG_FILES="$CONFIG_FILES src/lib/Makefile" ;; "src/cmdline/Makefile" ) CONFIG_FILES="$CONFIG_FILES src/cmdline/Makefile" ;; "src/autobk/Makefile" ) CONFIG_FILES="$CONFIG_FILES src/autobk/Makefile" ;; "src/feffit/Makefile" ) CONFIG_FILES="$CONFIG_FILES src/feffit/Makefile" ;; "src/diffkk/Makefile" ) CONFIG_FILES="$CONFIG_FILES src/diffkk/Makefile" ;; "src/test/Makefile" ) CONFIG_FILES="$CONFIG_FILES src/test/Makefile" ;; "src/feff6/Makefile" ) CONFIG_FILES="$CONFIG_FILES src/feff6/Makefile" ;; "Makefile" ) CONFIG_FILES="$CONFIG_FILES Makefile" ;; "depfiles" ) CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; "config.h" ) CONFIG_HEADERS="$CONFIG_HEADERS config.h" ;; *) { { echo "$as_me:$LINENO: error: invalid argument: $ac_config_target" >&5 echo "$as_me: error: invalid argument: $ac_config_target" >&2;} { (exit 1); exit 1; }; };; esac done # If the user did not use the arguments to specify the items to instantiate, # then the envvar interface is used. Set only those that are not. # We use the long form for the default assignment because of an extremely # bizarre bug on SunOS 4.1.3. if $ac_need_defaults; then test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands fi # Have a temporary directory for convenience. Make it in the build tree # simply because there is no reason to put it here, and in addition, # creating and moving files from /tmp can sometimes cause problems. # Create a temporary directory, and hook for its removal unless debugging. $debug || { trap 'exit_status=$?; rm -rf $tmp && exit $exit_status' 0 trap '{ (exit 1); exit 1; }' 1 2 13 15 } # Create a (secure) tmp directory for tmp files. { tmp=`(umask 077 && mktemp -d -q "./confstatXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" } || { tmp=./confstat$$-$RANDOM (umask 077 && mkdir $tmp) } || { echo "$me: cannot create a temporary directory in ." >&2 { (exit 1); exit 1; } } _ACEOF cat >>$CONFIG_STATUS <<_ACEOF # # CONFIG_FILES section. # # No need to generate the scripts if there are no CONFIG_FILES. # This happens for instance when ./config.status config.h if test -n "\$CONFIG_FILES"; then # Protect against being on the right side of a sed subst in config.status. sed 's/,@/@@/; s/@,/@@/; s/,;t t\$/@;t t/; /@;t t\$/s/[\\\\&,]/\\\\&/g; s/@@/,@/; s/@@/@,/; s/@;t t\$/,;t t/' >\$tmp/subs.sed <<\\CEOF s,@SHELL@,$SHELL,;t t s,@PATH_SEPARATOR@,$PATH_SEPARATOR,;t t s,@PACKAGE_NAME@,$PACKAGE_NAME,;t t s,@PACKAGE_TARNAME@,$PACKAGE_TARNAME,;t t s,@PACKAGE_VERSION@,$PACKAGE_VERSION,;t t s,@PACKAGE_STRING@,$PACKAGE_STRING,;t t s,@PACKAGE_BUGREPORT@,$PACKAGE_BUGREPORT,;t t s,@exec_prefix@,$exec_prefix,;t t s,@prefix@,$prefix,;t t s,@program_transform_name@,$program_transform_name,;t t s,@bindir@,$bindir,;t t s,@sbindir@,$sbindir,;t t s,@libexecdir@,$libexecdir,;t t s,@datadir@,$datadir,;t t s,@sysconfdir@,$sysconfdir,;t t s,@sharedstatedir@,$sharedstatedir,;t t s,@localstatedir@,$localstatedir,;t t s,@libdir@,$libdir,;t t s,@includedir@,$includedir,;t t s,@oldincludedir@,$oldincludedir,;t t s,@infodir@,$infodir,;t t s,@mandir@,$mandir,;t t s,@build_alias@,$build_alias,;t t s,@host_alias@,$host_alias,;t t s,@target_alias@,$target_alias,;t t s,@DEFS@,$DEFS,;t t s,@ECHO_C@,$ECHO_C,;t t s,@ECHO_N@,$ECHO_N,;t t s,@ECHO_T@,$ECHO_T,;t t s,@LIBS@,$LIBS,;t t s,@INSTALL_PROGRAM@,$INSTALL_PROGRAM,;t t s,@INSTALL_SCRIPT@,$INSTALL_SCRIPT,;t t s,@INSTALL_DATA@,$INSTALL_DATA,;t t s,@CYGPATH_W@,$CYGPATH_W,;t t s,@PACKAGE@,$PACKAGE,;t t s,@VERSION@,$VERSION,;t t s,@ACLOCAL@,$ACLOCAL,;t t s,@AUTOCONF@,$AUTOCONF,;t t s,@AUTOMAKE@,$AUTOMAKE,;t t s,@AUTOHEADER@,$AUTOHEADER,;t t s,@MAKEINFO@,$MAKEINFO,;t t s,@install_sh@,$install_sh,;t t s,@STRIP@,$STRIP,;t t s,@ac_ct_STRIP@,$ac_ct_STRIP,;t t s,@INSTALL_STRIP_PROGRAM@,$INSTALL_STRIP_PROGRAM,;t t s,@mkdir_p@,$mkdir_p,;t t s,@AWK@,$AWK,;t t s,@SET_MAKE@,$SET_MAKE,;t t s,@am__leading_dot@,$am__leading_dot,;t t s,@AMTAR@,$AMTAR,;t t s,@am__tar@,$am__tar,;t t s,@am__untar@,$am__untar,;t t s,@CC@,$CC,;t t s,@CFLAGS@,$CFLAGS,;t t s,@LDFLAGS@,$LDFLAGS,;t t s,@CPPFLAGS@,$CPPFLAGS,;t t s,@ac_ct_CC@,$ac_ct_CC,;t t s,@EXEEXT@,$EXEEXT,;t t s,@OBJEXT@,$OBJEXT,;t t s,@DEPDIR@,$DEPDIR,;t t s,@am__include@,$am__include,;t t s,@am__quote@,$am__quote,;t t s,@AMDEP_TRUE@,$AMDEP_TRUE,;t t s,@AMDEP_FALSE@,$AMDEP_FALSE,;t t s,@AMDEPBACKSLASH@,$AMDEPBACKSLASH,;t t s,@CCDEPMODE@,$CCDEPMODE,;t t s,@am__fastdepCC_TRUE@,$am__fastdepCC_TRUE,;t t s,@am__fastdepCC_FALSE@,$am__fastdepCC_FALSE,;t t s,@CPP@,$CPP,;t t s,@EGREP@,$EGREP,;t t s,@RANLIB@,$RANLIB,;t t s,@ac_ct_RANLIB@,$ac_ct_RANLIB,;t t s,@PERL@,$PERL,;t t s,@PYTHON@,$PYTHON,;t t s,@subdirs@,$subdirs,;t t s,@F77@,$F77,;t t s,@FFLAGS@,$FFLAGS,;t t s,@ac_ct_F77@,$ac_ct_F77,;t t s,@FLIBS@,$FLIBS,;t t s,@TERMCAP_LIB@,$TERMCAP_LIB,;t t s,@ARRSIZE@,$ARRSIZE,;t t s,@MN_FLIBS@,$MN_FLIBS,;t t s,@use_pgplot@,$use_pgplot,;t t s,@PGPLOT_LIBS@,$PGPLOT_LIBS,;t t s,@pgdir@,$pgdir,;t t s,@LIBOBJS@,$LIBOBJS,;t t s,@LTLIBOBJS@,$LTLIBOBJS,;t t CEOF _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF # Split the substitutions into bite-sized pieces for seds with # small command number limits, like on Digital OSF/1 and HP-UX. ac_max_sed_lines=48 ac_sed_frag=1 # Number of current file. ac_beg=1 # First line for current file. ac_end=$ac_max_sed_lines # Line after last line for current file. ac_more_lines=: ac_sed_cmds= while $ac_more_lines; do if test $ac_beg -gt 1; then sed "1,${ac_beg}d; ${ac_end}q" $tmp/subs.sed >$tmp/subs.frag else sed "${ac_end}q" $tmp/subs.sed >$tmp/subs.frag fi if test ! -s $tmp/subs.frag; then ac_more_lines=false else # The purpose of the label and of the branching condition is to # speed up the sed processing (if there are no `@' at all, there # is no need to browse any of the substitutions). # These are the two extra sed commands mentioned above. (echo ':t /@[a-zA-Z_][a-zA-Z_0-9]*@/!b' && cat $tmp/subs.frag) >$tmp/subs-$ac_sed_frag.sed if test -z "$ac_sed_cmds"; then ac_sed_cmds="sed -f $tmp/subs-$ac_sed_frag.sed" else ac_sed_cmds="$ac_sed_cmds | sed -f $tmp/subs-$ac_sed_frag.sed" fi ac_sed_frag=`expr $ac_sed_frag + 1` ac_beg=$ac_end ac_end=`expr $ac_end + $ac_max_sed_lines` fi done if test -z "$ac_sed_cmds"; then ac_sed_cmds=cat fi fi # test -n "$CONFIG_FILES" _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF for ac_file in : $CONFIG_FILES; do test "x$ac_file" = x: && continue # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". case $ac_file in - | *:- | *:-:* ) # input from stdin cat >$tmp/stdin ac_file_in=`echo "$ac_file" | sed 's,[^:]*:,,'` ac_file=`echo "$ac_file" | sed 's,:.*,,'` ;; *:* ) ac_file_in=`echo "$ac_file" | sed 's,[^:]*:,,'` ac_file=`echo "$ac_file" | sed 's,:.*,,'` ;; * ) ac_file_in=$ac_file.in ;; esac # Compute @srcdir@, @top_srcdir@, and @INSTALL@ for subdirectories. ac_dir=`(dirname "$ac_file") 2>/dev/null || $as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ac_file" : 'X\(//\)[^/]' \| \ X"$ac_file" : 'X\(//\)$' \| \ X"$ac_file" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$ac_file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` { if $as_mkdir_p; then mkdir -p "$ac_dir" else as_dir="$ac_dir" as_dirs= while test ! -d "$as_dir"; do as_dirs="$as_dir $as_dirs" as_dir=`(dirname "$as_dir") 2>/dev/null || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` done test ! -n "$as_dirs" || mkdir $as_dirs fi || { { echo "$as_me:$LINENO: error: cannot create directory \"$ac_dir\"" >&5 echo "$as_me: error: cannot create directory \"$ac_dir\"" >&2;} { (exit 1); exit 1; }; }; } ac_builddir=. if test "$ac_dir" != .; then ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` # A "../" for each directory in $ac_dir_suffix. ac_top_builddir=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,../,g'` else ac_dir_suffix= ac_top_builddir= fi case $srcdir in .) # No --srcdir option. We are building in place. ac_srcdir=. if test -z "$ac_top_builddir"; then ac_top_srcdir=. else ac_top_srcdir=`echo $ac_top_builddir | sed 's,/$,,'` fi ;; [\\/]* | ?:[\\/]* ) # Absolute path. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ;; *) # Relative path. ac_srcdir=$ac_top_builddir$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_builddir$srcdir ;; esac # Do not use `cd foo && pwd` to compute absolute paths, because # the directories may not exist. case `pwd` in .) ac_abs_builddir="$ac_dir";; *) case "$ac_dir" in .) ac_abs_builddir=`pwd`;; [\\/]* | ?:[\\/]* ) ac_abs_builddir="$ac_dir";; *) ac_abs_builddir=`pwd`/"$ac_dir";; esac;; esac case $ac_abs_builddir in .) ac_abs_top_builddir=${ac_top_builddir}.;; *) case ${ac_top_builddir}. in .) ac_abs_top_builddir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_top_builddir=${ac_top_builddir}.;; *) ac_abs_top_builddir=$ac_abs_builddir/${ac_top_builddir}.;; esac;; esac case $ac_abs_builddir in .) ac_abs_srcdir=$ac_srcdir;; *) case $ac_srcdir in .) ac_abs_srcdir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_srcdir=$ac_srcdir;; *) ac_abs_srcdir=$ac_abs_builddir/$ac_srcdir;; esac;; esac case $ac_abs_builddir in .) ac_abs_top_srcdir=$ac_top_srcdir;; *) case $ac_top_srcdir in .) ac_abs_top_srcdir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_top_srcdir=$ac_top_srcdir;; *) ac_abs_top_srcdir=$ac_abs_builddir/$ac_top_srcdir;; esac;; esac case $INSTALL in [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; *) ac_INSTALL=$ac_top_builddir$INSTALL ;; esac if test x"$ac_file" != x-; then { echo "$as_me:$LINENO: creating $ac_file" >&5 echo "$as_me: creating $ac_file" >&6;} rm -f "$ac_file" fi # Let's still pretend it is `configure' which instantiates (i.e., don't # use $as_me), people would be surprised to read: # /* config.h. Generated by config.status. */ if test x"$ac_file" = x-; then configure_input= else configure_input="$ac_file. " fi configure_input=$configure_input"Generated from `echo $ac_file_in | sed 's,.*/,,'` by configure." # First look for the input files in the build tree, otherwise in the # src tree. ac_file_inputs=`IFS=: for f in $ac_file_in; do case $f in -) echo $tmp/stdin ;; [\\/$]*) # Absolute (can't be DOS-style, as IFS=:) test -f "$f" || { { echo "$as_me:$LINENO: error: cannot find input file: $f" >&5 echo "$as_me: error: cannot find input file: $f" >&2;} { (exit 1); exit 1; }; } echo "$f";; *) # Relative if test -f "$f"; then # Build tree echo "$f" elif test -f "$srcdir/$f"; then # Source tree echo "$srcdir/$f" else # /dev/null tree { { echo "$as_me:$LINENO: error: cannot find input file: $f" >&5 echo "$as_me: error: cannot find input file: $f" >&2;} { (exit 1); exit 1; }; } fi;; esac done` || { (exit 1); exit 1; } _ACEOF cat >>$CONFIG_STATUS <<_ACEOF sed "$ac_vpsub $extrasub _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF :t /@[a-zA-Z_][a-zA-Z_0-9]*@/!b s,@configure_input@,$configure_input,;t t s,@srcdir@,$ac_srcdir,;t t s,@abs_srcdir@,$ac_abs_srcdir,;t t s,@top_srcdir@,$ac_top_srcdir,;t t s,@abs_top_srcdir@,$ac_abs_top_srcdir,;t t s,@builddir@,$ac_builddir,;t t s,@abs_builddir@,$ac_abs_builddir,;t t s,@top_builddir@,$ac_top_builddir,;t t s,@abs_top_builddir@,$ac_abs_top_builddir,;t t s,@INSTALL@,$ac_INSTALL,;t t " $ac_file_inputs | (eval "$ac_sed_cmds") >$tmp/out rm -f $tmp/stdin if test x"$ac_file" != x-; then mv $tmp/out $ac_file else cat $tmp/out rm -f $tmp/out fi done _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF # # CONFIG_HEADER section. # # These sed commands are passed to sed as "A NAME B NAME C VALUE D", where # NAME is the cpp macro being defined and VALUE is the value it is being given. # # ac_d sets the value in "#define NAME VALUE" lines. ac_dA='s,^\([ ]*\)#\([ ]*define[ ][ ]*\)' ac_dB='[ ].*$,\1#\2' ac_dC=' ' ac_dD=',;t' # ac_u turns "#undef NAME" without trailing blanks into "#define NAME VALUE". ac_uA='s,^\([ ]*\)#\([ ]*\)undef\([ ][ ]*\)' ac_uB='$,\1#\2define\3' ac_uC=' ' ac_uD=',;t' for ac_file in : $CONFIG_HEADERS; do test "x$ac_file" = x: && continue # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". case $ac_file in - | *:- | *:-:* ) # input from stdin cat >$tmp/stdin ac_file_in=`echo "$ac_file" | sed 's,[^:]*:,,'` ac_file=`echo "$ac_file" | sed 's,:.*,,'` ;; *:* ) ac_file_in=`echo "$ac_file" | sed 's,[^:]*:,,'` ac_file=`echo "$ac_file" | sed 's,:.*,,'` ;; * ) ac_file_in=$ac_file.in ;; esac test x"$ac_file" != x- && { echo "$as_me:$LINENO: creating $ac_file" >&5 echo "$as_me: creating $ac_file" >&6;} # First look for the input files in the build tree, otherwise in the # src tree. ac_file_inputs=`IFS=: for f in $ac_file_in; do case $f in -) echo $tmp/stdin ;; [\\/$]*) # Absolute (can't be DOS-style, as IFS=:) test -f "$f" || { { echo "$as_me:$LINENO: error: cannot find input file: $f" >&5 echo "$as_me: error: cannot find input file: $f" >&2;} { (exit 1); exit 1; }; } # Do quote $f, to prevent DOS paths from being IFS'd. echo "$f";; *) # Relative if test -f "$f"; then # Build tree echo "$f" elif test -f "$srcdir/$f"; then # Source tree echo "$srcdir/$f" else # /dev/null tree { { echo "$as_me:$LINENO: error: cannot find input file: $f" >&5 echo "$as_me: error: cannot find input file: $f" >&2;} { (exit 1); exit 1; }; } fi;; esac done` || { (exit 1); exit 1; } # Remove the trailing spaces. sed 's/[ ]*$//' $ac_file_inputs >$tmp/in _ACEOF # Transform confdefs.h into two sed scripts, `conftest.defines' and # `conftest.undefs', that substitutes the proper values into # config.h.in to produce config.h. The first handles `#define' # templates, and the second `#undef' templates. # And first: Protect against being on the right side of a sed subst in # config.status. Protect against being in an unquoted here document # in config.status. rm -f conftest.defines conftest.undefs # Using a here document instead of a string reduces the quoting nightmare. # Putting comments in sed scripts is not portable. # # `end' is used to avoid that the second main sed command (meant for # 0-ary CPP macros) applies to n-ary macro definitions. # See the Autoconf documentation for `clear'. cat >confdef2sed.sed <<\_ACEOF s/[\\&,]/\\&/g s,[\\$`],\\&,g t clear : clear s,^[ ]*#[ ]*define[ ][ ]*\([^ (][^ (]*\)\(([^)]*)\)[ ]*\(.*\)$,${ac_dA}\1${ac_dB}\1\2${ac_dC}\3${ac_dD},gp t end s,^[ ]*#[ ]*define[ ][ ]*\([^ ][^ ]*\)[ ]*\(.*\)$,${ac_dA}\1${ac_dB}\1${ac_dC}\2${ac_dD},gp : end _ACEOF # If some macros were called several times there might be several times # the same #defines, which is useless. Nevertheless, we may not want to # sort them, since we want the *last* AC-DEFINE to be honored. uniq confdefs.h | sed -n -f confdef2sed.sed >conftest.defines sed 's/ac_d/ac_u/g' conftest.defines >conftest.undefs rm -f confdef2sed.sed # This sed command replaces #undef with comments. This is necessary, for # example, in the case of _POSIX_SOURCE, which is predefined and required # on some systems where configure will not decide to define it. cat >>conftest.undefs <<\_ACEOF s,^[ ]*#[ ]*undef[ ][ ]*[a-zA-Z_][a-zA-Z_0-9]*,/* & */, _ACEOF # Break up conftest.defines because some shells have a limit on the size # of here documents, and old seds have small limits too (100 cmds). echo ' # Handle all the #define templates only if necessary.' >>$CONFIG_STATUS echo ' if grep "^[ ]*#[ ]*define" $tmp/in >/dev/null; then' >>$CONFIG_STATUS echo ' # If there are no defines, we may have an empty if/fi' >>$CONFIG_STATUS echo ' :' >>$CONFIG_STATUS rm -f conftest.tail while grep . conftest.defines >/dev/null do # Write a limited-size here document to $tmp/defines.sed. echo ' cat >$tmp/defines.sed <>$CONFIG_STATUS # Speed up: don't consider the non `#define' lines. echo '/^[ ]*#[ ]*define/!b' >>$CONFIG_STATUS # Work around the forget-to-reset-the-flag bug. echo 't clr' >>$CONFIG_STATUS echo ': clr' >>$CONFIG_STATUS sed ${ac_max_here_lines}q conftest.defines >>$CONFIG_STATUS echo 'CEOF sed -f $tmp/defines.sed $tmp/in >$tmp/out rm -f $tmp/in mv $tmp/out $tmp/in ' >>$CONFIG_STATUS sed 1,${ac_max_here_lines}d conftest.defines >conftest.tail rm -f conftest.defines mv conftest.tail conftest.defines done rm -f conftest.defines echo ' fi # grep' >>$CONFIG_STATUS echo >>$CONFIG_STATUS # Break up conftest.undefs because some shells have a limit on the size # of here documents, and old seds have small limits too (100 cmds). echo ' # Handle all the #undef templates' >>$CONFIG_STATUS rm -f conftest.tail while grep . conftest.undefs >/dev/null do # Write a limited-size here document to $tmp/undefs.sed. echo ' cat >$tmp/undefs.sed <>$CONFIG_STATUS # Speed up: don't consider the non `#undef' echo '/^[ ]*#[ ]*undef/!b' >>$CONFIG_STATUS # Work around the forget-to-reset-the-flag bug. echo 't clr' >>$CONFIG_STATUS echo ': clr' >>$CONFIG_STATUS sed ${ac_max_here_lines}q conftest.undefs >>$CONFIG_STATUS echo 'CEOF sed -f $tmp/undefs.sed $tmp/in >$tmp/out rm -f $tmp/in mv $tmp/out $tmp/in ' >>$CONFIG_STATUS sed 1,${ac_max_here_lines}d conftest.undefs >conftest.tail rm -f conftest.undefs mv conftest.tail conftest.undefs done rm -f conftest.undefs cat >>$CONFIG_STATUS <<\_ACEOF # Let's still pretend it is `configure' which instantiates (i.e., don't # use $as_me), people would be surprised to read: # /* config.h. Generated by config.status. */ if test x"$ac_file" = x-; then echo "/* Generated by configure. */" >$tmp/config.h else echo "/* $ac_file. Generated by configure. */" >$tmp/config.h fi cat $tmp/in >>$tmp/config.h rm -f $tmp/in if test x"$ac_file" != x-; then if diff $ac_file $tmp/config.h >/dev/null 2>&1; then { echo "$as_me:$LINENO: $ac_file is unchanged" >&5 echo "$as_me: $ac_file is unchanged" >&6;} else ac_dir=`(dirname "$ac_file") 2>/dev/null || $as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ac_file" : 'X\(//\)[^/]' \| \ X"$ac_file" : 'X\(//\)$' \| \ X"$ac_file" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$ac_file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` { if $as_mkdir_p; then mkdir -p "$ac_dir" else as_dir="$ac_dir" as_dirs= while test ! -d "$as_dir"; do as_dirs="$as_dir $as_dirs" as_dir=`(dirname "$as_dir") 2>/dev/null || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` done test ! -n "$as_dirs" || mkdir $as_dirs fi || { { echo "$as_me:$LINENO: error: cannot create directory \"$ac_dir\"" >&5 echo "$as_me: error: cannot create directory \"$ac_dir\"" >&2;} { (exit 1); exit 1; }; }; } rm -f $ac_file mv $tmp/config.h $ac_file fi else cat $tmp/config.h rm -f $tmp/config.h fi # Compute $ac_file's index in $config_headers. _am_stamp_count=1 for _am_header in $config_headers :; do case $_am_header in $ac_file | $ac_file:* ) break ;; * ) _am_stamp_count=`expr $_am_stamp_count + 1` ;; esac done echo "timestamp for $ac_file" >`(dirname $ac_file) 2>/dev/null || $as_expr X$ac_file : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X$ac_file : 'X\(//\)[^/]' \| \ X$ac_file : 'X\(//\)$' \| \ X$ac_file : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X$ac_file | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'`/stamp-h$_am_stamp_count done _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF # # CONFIG_COMMANDS section. # for ac_file in : $CONFIG_COMMANDS; do test "x$ac_file" = x: && continue ac_dest=`echo "$ac_file" | sed 's,:.*,,'` ac_source=`echo "$ac_file" | sed 's,[^:]*:,,'` ac_dir=`(dirname "$ac_dest") 2>/dev/null || $as_expr X"$ac_dest" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ac_dest" : 'X\(//\)[^/]' \| \ X"$ac_dest" : 'X\(//\)$' \| \ X"$ac_dest" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$ac_dest" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` { if $as_mkdir_p; then mkdir -p "$ac_dir" else as_dir="$ac_dir" as_dirs= while test ! -d "$as_dir"; do as_dirs="$as_dir $as_dirs" as_dir=`(dirname "$as_dir") 2>/dev/null || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` done test ! -n "$as_dirs" || mkdir $as_dirs fi || { { echo "$as_me:$LINENO: error: cannot create directory \"$ac_dir\"" >&5 echo "$as_me: error: cannot create directory \"$ac_dir\"" >&2;} { (exit 1); exit 1; }; }; } ac_builddir=. if test "$ac_dir" != .; then ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` # A "../" for each directory in $ac_dir_suffix. ac_top_builddir=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,../,g'` else ac_dir_suffix= ac_top_builddir= fi case $srcdir in .) # No --srcdir option. We are building in place. ac_srcdir=. if test -z "$ac_top_builddir"; then ac_top_srcdir=. else ac_top_srcdir=`echo $ac_top_builddir | sed 's,/$,,'` fi ;; [\\/]* | ?:[\\/]* ) # Absolute path. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ;; *) # Relative path. ac_srcdir=$ac_top_builddir$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_builddir$srcdir ;; esac # Do not use `cd foo && pwd` to compute absolute paths, because # the directories may not exist. case `pwd` in .) ac_abs_builddir="$ac_dir";; *) case "$ac_dir" in .) ac_abs_builddir=`pwd`;; [\\/]* | ?:[\\/]* ) ac_abs_builddir="$ac_dir";; *) ac_abs_builddir=`pwd`/"$ac_dir";; esac;; esac case $ac_abs_builddir in .) ac_abs_top_builddir=${ac_top_builddir}.;; *) case ${ac_top_builddir}. in .) ac_abs_top_builddir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_top_builddir=${ac_top_builddir}.;; *) ac_abs_top_builddir=$ac_abs_builddir/${ac_top_builddir}.;; esac;; esac case $ac_abs_builddir in .) ac_abs_srcdir=$ac_srcdir;; *) case $ac_srcdir in .) ac_abs_srcdir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_srcdir=$ac_srcdir;; *) ac_abs_srcdir=$ac_abs_builddir/$ac_srcdir;; esac;; esac case $ac_abs_builddir in .) ac_abs_top_srcdir=$ac_top_srcdir;; *) case $ac_top_srcdir in .) ac_abs_top_srcdir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_top_srcdir=$ac_top_srcdir;; *) ac_abs_top_srcdir=$ac_abs_builddir/$ac_top_srcdir;; esac;; esac { echo "$as_me:$LINENO: executing $ac_dest commands" >&5 echo "$as_me: executing $ac_dest commands" >&6;} case $ac_dest in depfiles ) test x"$AMDEP_TRUE" != x"" || for mf in $CONFIG_FILES; do # Strip MF so we end up with the name of the file. mf=`echo "$mf" | sed -e 's/:.*$//'` # Check whether this is an Automake generated Makefile or not. # We used to match only the files named `Makefile.in', but # some people rename them; so instead we look at the file content. # Grep'ing the first line is not enough: some people post-process # each Makefile.in and add a new line on top of each file to say so. # So let's grep whole file. if grep '^#.*generated by automake' $mf > /dev/null 2>&1; then dirpart=`(dirname "$mf") 2>/dev/null || $as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$mf" : 'X\(//\)[^/]' \| \ X"$mf" : 'X\(//\)$' \| \ X"$mf" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$mf" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` else continue fi # Extract the definition of DEPDIR, am__include, and am__quote # from the Makefile without running `make'. DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` test -z "$DEPDIR" && continue am__include=`sed -n 's/^am__include = //p' < "$mf"` test -z "am__include" && continue am__quote=`sed -n 's/^am__quote = //p' < "$mf"` # When using ansi2knr, U may be empty or an underscore; expand it U=`sed -n 's/^U = //p' < "$mf"` # Find all dependency output files, they are included files with # $(DEPDIR) in their names. We invoke sed twice because it is the # simplest approach to changing $(DEPDIR) to its actual value in the # expansion. for file in `sed -n " s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g' -e 's/\$U/'"$U"'/g'`; do # Make sure the directory exists. test -f "$dirpart/$file" && continue fdir=`(dirname "$file") 2>/dev/null || $as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$file" : 'X\(//\)[^/]' \| \ X"$file" : 'X\(//\)$' \| \ X"$file" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` { if $as_mkdir_p; then mkdir -p $dirpart/$fdir else as_dir=$dirpart/$fdir as_dirs= while test ! -d "$as_dir"; do as_dirs="$as_dir $as_dirs" as_dir=`(dirname "$as_dir") 2>/dev/null || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` done test ! -n "$as_dirs" || mkdir $as_dirs fi || { { echo "$as_me:$LINENO: error: cannot create directory $dirpart/$fdir" >&5 echo "$as_me: error: cannot create directory $dirpart/$fdir" >&2;} { (exit 1); exit 1; }; }; } # echo "creating $dirpart/$file" echo '# dummy' > "$dirpart/$file" done done ;; esac done _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF { (exit 0); exit 0; } _ACEOF chmod +x $CONFIG_STATUS ac_clean_files=$ac_clean_files_save # configure is writing to config.log, and then calls config.status. # config.status does its own redirection, appending to config.log. # Unfortunately, on DOS this fails, as config.log is still kept open # by configure, so config.status won't be able to write to it; its # output is simply discarded. So we exec the FD to /dev/null, # effectively closing config.log, so it can be properly (re)opened and # appended to by config.status. When coming back to configure, we # need to make the FD available again. if test "$no_create" != yes; then ac_cs_success=: ac_config_status_args= test "$silent" = yes && ac_config_status_args="$ac_config_status_args --quiet" exec 5>/dev/null $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false exec 5>>config.log # Use ||, not &&, to avoid exiting from the if with $? = 1, which # would make configure fail if this is the last instruction. $ac_cs_success || { (exit 1); exit 1; } fi # # CONFIG_SUBDIRS section. # if test "$no_recursion" != yes; then # Remove --cache-file and --srcdir arguments so they do not pile up. ac_sub_configure_args= ac_prev= for ac_arg in $ac_configure_args; do if test -n "$ac_prev"; then ac_prev= continue fi case $ac_arg in -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* \ | --c=*) ;; --config-cache | -C) ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) ;; -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) ac_prev=prefix ;; -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) ;; *) ac_sub_configure_args="$ac_sub_configure_args $ac_arg" ;; esac done # Always prepend --prefix to ensure using the same prefix # in subdir configurations. ac_sub_configure_args="--prefix=$prefix $ac_sub_configure_args" ac_popdir=`pwd` for ac_dir in : $subdirs; do test "x$ac_dir" = x: && continue # Do not complain, so a configure script can configure whichever # parts of a large source tree are present. test -d $srcdir/$ac_dir || continue { echo "$as_me:$LINENO: configuring in $ac_dir" >&5 echo "$as_me: configuring in $ac_dir" >&6;} { if $as_mkdir_p; then mkdir -p "$ac_dir" else as_dir="$ac_dir" as_dirs= while test ! -d "$as_dir"; do as_dirs="$as_dir $as_dirs" as_dir=`(dirname "$as_dir") 2>/dev/null || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| \ . : '\(.\)' 2>/dev/null || echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/; q; } /^X\(\/\/\)[^/].*/{ s//\1/; q; } /^X\(\/\/\)$/{ s//\1/; q; } /^X\(\/\).*/{ s//\1/; q; } s/.*/./; q'` done test ! -n "$as_dirs" || mkdir $as_dirs fi || { { echo "$as_me:$LINENO: error: cannot create directory \"$ac_dir\"" >&5 echo "$as_me: error: cannot create directory \"$ac_dir\"" >&2;} { (exit 1); exit 1; }; }; } ac_builddir=. if test "$ac_dir" != .; then ac_dir_suffix=/`echo "$ac_dir" | sed 's,^\.[\\/],,'` # A "../" for each directory in $ac_dir_suffix. ac_top_builddir=`echo "$ac_dir_suffix" | sed 's,/[^\\/]*,../,g'` else ac_dir_suffix= ac_top_builddir= fi case $srcdir in .) # No --srcdir option. We are building in place. ac_srcdir=. if test -z "$ac_top_builddir"; then ac_top_srcdir=. else ac_top_srcdir=`echo $ac_top_builddir | sed 's,/$,,'` fi ;; [\\/]* | ?:[\\/]* ) # Absolute path. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ;; *) # Relative path. ac_srcdir=$ac_top_builddir$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_builddir$srcdir ;; esac # Do not use `cd foo && pwd` to compute absolute paths, because # the directories may not exist. case `pwd` in .) ac_abs_builddir="$ac_dir";; *) case "$ac_dir" in .) ac_abs_builddir=`pwd`;; [\\/]* | ?:[\\/]* ) ac_abs_builddir="$ac_dir";; *) ac_abs_builddir=`pwd`/"$ac_dir";; esac;; esac case $ac_abs_builddir in .) ac_abs_top_builddir=${ac_top_builddir}.;; *) case ${ac_top_builddir}. in .) ac_abs_top_builddir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_top_builddir=${ac_top_builddir}.;; *) ac_abs_top_builddir=$ac_abs_builddir/${ac_top_builddir}.;; esac;; esac case $ac_abs_builddir in .) ac_abs_srcdir=$ac_srcdir;; *) case $ac_srcdir in .) ac_abs_srcdir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_srcdir=$ac_srcdir;; *) ac_abs_srcdir=$ac_abs_builddir/$ac_srcdir;; esac;; esac case $ac_abs_builddir in .) ac_abs_top_srcdir=$ac_top_srcdir;; *) case $ac_top_srcdir in .) ac_abs_top_srcdir=$ac_abs_builddir;; [\\/]* | ?:[\\/]* ) ac_abs_top_srcdir=$ac_top_srcdir;; *) ac_abs_top_srcdir=$ac_abs_builddir/$ac_top_srcdir;; esac;; esac cd $ac_dir # Check for guested configure; otherwise get Cygnus style configure. if test -f $ac_srcdir/configure.gnu; then ac_sub_configure="$SHELL '$ac_srcdir/configure.gnu'" elif test -f $ac_srcdir/configure; then ac_sub_configure="$SHELL '$ac_srcdir/configure'" elif test -f $ac_srcdir/configure.in; then ac_sub_configure=$ac_configure else { echo "$as_me:$LINENO: WARNING: no configuration information is in $ac_dir" >&5 echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2;} ac_sub_configure= fi # The recursion is here. if test -n "$ac_sub_configure"; then # Make the cache file name correct relative to the subdirectory. case $cache_file in [\\/]* | ?:[\\/]* ) ac_sub_cache_file=$cache_file ;; *) # Relative path. ac_sub_cache_file=$ac_top_builddir$cache_file ;; esac { echo "$as_me:$LINENO: running $ac_sub_configure $ac_sub_configure_args --cache-file=$ac_sub_cache_file --srcdir=$ac_srcdir" >&5 echo "$as_me: running $ac_sub_configure $ac_sub_configure_args --cache-file=$ac_sub_cache_file --srcdir=$ac_srcdir" >&6;} # The eval makes quoting arguments work. eval $ac_sub_configure $ac_sub_configure_args \ --cache-file=$ac_sub_cache_file --srcdir=$ac_srcdir || { { echo "$as_me:$LINENO: error: $ac_sub_configure failed for $ac_dir" >&5 echo "$as_me: error: $ac_sub_configure failed for $ac_dir" >&2;} { (exit 1); exit 1; }; } fi cd $ac_popdir done fi # $SHELL ./config.status echo "$as_me:$LINENO: result: ===" >&5 echo "${ECHO_T}===" >&6 echo "$as_me:$LINENO: result: === $PACKAGE $VERSION Configuration Results:" >&5 echo "${ECHO_T}=== $PACKAGE $VERSION Configuration Results:" >&6 if $use_pgplot ; then echo "$as_me:$LINENO: result: === linking to PGPLOT with: $PGPLOT_LIBS" >&5 echo "${ECHO_T}=== linking to PGPLOT with: $PGPLOT_LIBS" >&6 ; else echo "$as_me:$LINENO: result: === WARNING: Plotting will not work!" >&5 echo "${ECHO_T}=== WARNING: Plotting will not work!" >&6 ; fi if test "$TERMCAP_LIB" = "-L -l" ; then echo "$as_me:$LINENO: result: ===" >&5 echo "${ECHO_T}===" >&6 echo "$as_me:$LINENO: result: === could not find TERMCAP Libraries : 'make' will fail." >&5 echo "${ECHO_T}=== could not find TERMCAP Libraries : 'make' will fail." >&6 ; echo "$as_me:$LINENO: result: ===" >&5 echo "${ECHO_T}===" >&6 echo "$as_me:$LINENO: result: === Please set TERMCAP_LIB in src/cmdline/Makefile or use the" >&5 echo "${ECHO_T}=== Please set TERMCAP_LIB in src/cmdline/Makefile or use the" >&6 echo "$as_me:$LINENO: result: === --termcap-link argument before running make" >&5 echo "${ECHO_T}=== --termcap-link argument before running make" >&6 else echo "$as_me:$LINENO: result: === using TERMCAP_LIB $TERMCAP_LIB" >&5 echo "${ECHO_T}=== using TERMCAP_LIB $TERMCAP_LIB" >&6; echo "$as_me:$LINENO: result: ===" >&5 echo "${ECHO_T}===" >&6 echo "$as_me:$LINENO: result: === ready for next step: type 'make' then 'make install'" >&5 echo "${ECHO_T}=== ready for next step: type 'make' then 'make install'" >&6 fi ifeffit-1.2.11d/README0000644000175000017500000000555110771740461013245 0ustar segresegreWelcome to IFEFFIT: Interactive XAFS Analysis Library Copyright (c) 2000-2003 Matt Newville, The University of Chicago Ifeffit is free software. The majority of the software here is distributed under a BSD-like license. Some of the code in this distribution is distributed under the GNU Public License (GPL). See the file COPYING for details. Overview -------- Ifeffit provides a nearly-complete library of algorithms for XAFS Analysis, and a simple-to-use interface to that library. The library builds on the Autobk and Feffit programs from the UWXAFS Package, and adds considerable flexibility, graphics, and a command-based interface. The library is designed to work inside other programming and scripting languages, so that more complex programs (including GUIs) can be built with the library. More information about Ifeffit can be found at: http://cars9.uchicago.edu/ifeffit/ Installation ------------ Complete installation instructions are in the INSTALL file. Ifeffit requires a working Fortran77 compiler. If you're using a very old linux system, there is a chance that the fortran compiler supplied with your system is broken and needs to be re-installed. I recommend using gcc with the built-in g77 compiler or later. Documentation ------------- The documentation should be taken from the Ifeffit web site. The latex source for the Ifeffit reference manual and tutorial are included under the doc/ directory tree, but it is not expected that these source files can be converted into usable forms on all systems. If you're interested in contributing to the Ifeffit documentation, contact the authors. Contributing ------------ Ifeffit works well, but may have some bugs. There is still plenty of work to be done on improving the algorithms, fixing the documentation, and making the system as user-friendly as possible. Please keep these thoughts in mind when using Ifeffit, and let us know what you think should be added, what is broken, and what is unclear. Chances are if you can think of an improvement, it would help other people too. If you are interested in contributing, please let us know. There's a lot of work that can be done on the core algorithms, the documentation, wrappers, and examples. If you know Perl or Python (or are willing to learn), there is a wide range of work to do in implementing GUIs and other wrappers in these languages. If you know VisualBasic, AppleScript, or any other language and are interested in building extensions for these languages, please let us know how we can help you do this. If you prefer to contribute in some other way contact us. Additional Information ---------------------- More information can be found at the ifeffit web site http://cars9.uchicago.edu/ifeffit/ Thanks, Matt Newville Consortium for Advanced Radiation Sources University of Chicago Chicago, IL Last update Aug-25-2003