r13068 - /branches/inversion-recovery/maths_fns/inversion-recovery.c -- June 16, 2011 - 12:33

Author: semor
Date: Thu Jun 16 12:33:05 2011
New Revision: 13068

URL: http://svn.gna.org/viewcvs/relax?rev=13068&view=rev
Log:

Reverted r13063.

This follows a remark by Ed at:
https://mail.gna.org/public/relax-devel/2011-06/msg00150.html
Message-id: <BANLkTi=_Hw3VHk6aHzJU6e3d1inKtWOJRA@xxxxxxxxxxxxxx>

The command used was:
svn merge -r13063:13062 .


Removed:
    branches/inversion-recovery/maths_fns/inversion-recovery.c

Removed: branches/inversion-recovery/maths_fns/inversion-recovery.c
URL: 
http://svn.gna.org/viewcvs/relax/branches/inversion-recovery/maths_fns/inversion-recovery.c?rev=13067&view=auto
==============================================================================
--- branches/inversion-recovery/maths_fns/inversion-recovery.c (original)
+++ branches/inversion-recovery/maths_fns/inversion-recovery.c (removed)
@@ -1,51 +1,0 @@
-/*
- * Copyright (C) 2006 Edward d'Auvergne
- *
- * This file is part of the program relax.
- *
- * relax 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.
- *
- * relax 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 relax; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
- */
-
-
-/* This include must come first */
-#include <Python.h>
-
-/* The header for all functions which will be called */
-#include "relax_fit.h"
-
-
-
-void exponential(double *params, double *relax_times, double *back_calc, int 
num_times) {
-       /* Function to back calculate the peak intensities.
-       */
-
-    /* Declarations */
-    double Rx, I0;
-    int i;
-
-
-    /* Loop over the time points */
-    /* for (i = 0; i < num_times; i++) { */
-    for (i = 0; i < num_times; i++) {
-        /* Zero Rx value */
-        if (params[0] == 0.0)
-            back_calc[i] = 0.0;
-
-        /* Back calculate */
-        else
-            back_calc[i] = params[1] * exp(-relax_times[i] * params[0]);
-
-    }
-}