Removed author names from source code

0080173d · Florian Wittkamp · f1241175 · 0080173d · 0080173d · 0080173d
Commit 0080173d authored Feb 02, 2016 by Florian Wittkamp
95 changed files
--- a/doc/latex/0_Title.tex
+++ b/doc/latex/0_Title.tex
@@ -6,21 +6,12 @@

 \noindent\includegraphics[width=1.0\textwidth]{IFOS2D_title1.png}

-\vspace{0.2 \textwidth}
+\vspace{0.3 \textwidth}

 \begin{center}
 \includegraphics[width=.7\textwidth]{figures/logo_SOFI_IFOS.png}

 \vspace{0.2\textwidth}

-\begin{tabular}{rl}
-\textbf{Daniel K\"ohn} & \textbf{Martin Sch\"afer}\\
-\textbf{Denise De Nil} & \textbf{Laura Ga\ss ner}\\
-\textbf{Andr\'{e} Kurzmann} & \textbf{Tilman Metz}\\
-\textbf{Thomas Bohlen} & \textbf{Niklas Thiel}\\
-\textbf{Lisa Groos} & \textbf{Florian Wittkamp}\\
-\textbf{Sven Heider} & \\
-\end{tabular}
-
 \end{center}
 \rmfamily
\ No newline at end of file
--- a/doc/latex/1_Introduction.tex
+++ b/doc/latex/1_Introduction.tex
+\chapter{License}\label{license}
+
+IFOS2D 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, version 2.0 of the License only.
+ 
+IFOS2D 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 IFOS2D. See file COPYING and/or \path{http://www.gnu.org/licenses/gpl-2.0.html}.
+
+The Authors of IFOS2D are listed in file \path{AUTHORS}.
+
+
 %------------------------------------------------------------------------------------------------%

 \chapter{Introduction}
@@ -27,4 +36,5 @@ The FD modeling/inversion program IFOS2D (\textbf{I}nversion of \textbf{F}ull \t
 \item applies Convolutional Perfectly Matched Layer boundary conditions at the edges of the numerical mesh (\cite{komatitsch:07}).
 \end{itemize}

-In the following sections, we give an extensive description of the theoretical background, the different input parameters and show a few benchmark modeling and inversion applications.
\ No newline at end of file
+In the following sections, we give an extensive description of the theoretical background, the different input parameters and show a few benchmark modeling and inversion applications.
+
--- a/src/IFOS2D.c
+++ b/src/IFOS2D.c
@@ -18,12 +18,7 @@

 /* ----------------------------------------------------------------------
 * This is program IFOS.
- * subwavelength DEtail resolving Nonlinear Iterative SEismic inversion
- *
- * If you use this code for your own research please cite at least one article
- * written by the developers of the package, e.g.
- * D. K�hn. Time domain 2D elastic full waveform tomography. PhD Thesis, Kiel
- * University, 2011.
+ * Inversion of Full Observerd Seismograms
 *
 *  ----------------------------------------------------------------------*/


--- a/src/LBFGS.c
+++ b/src/LBFGS.c
@@ -19,7 +19,6 @@

 /*-------------------------------------------------------------------------
 * Calculatipon of L-BFGS update
- * F. Wittkamp 2015
 --------------------------------------------------------------------------*/

 #include "fd.h"

--- a/src/PCG.c
+++ b/src/PCG.c
@@ -20,7 +20,6 @@
 * Module for the Preconditioned Conjugate Gradient Method (PCG)
 * for the material parameters vp, vs, rho and lambda, mu, rho respectively
 * 
- * Daniel Koehn
 * ----------------------------------------------------------------------*/

 #include "fd.h"

--- a/src/PCG_SH.c
+++ b/src/PCG_SH.c
@@ -20,7 +20,6 @@
 * Module for the Preconditioned Conjugate Gradient Method (PCG)
 * for the material parameters vp, vs, rho and lambda, mu, rho respectively
 *
- * Daniel Koehn
 * ----------------------------------------------------------------------*/

 #include "fd.h"

--- a/src/apply_workflow.c
+++ b/src/apply_workflow.c
@@ -19,7 +19,6 @@
 /*------------------------------------------------------------------------
 *  Apply workflow
 *
- *  Written by Wittkamp Oct 2015
 *  ----------------------------------------------------------------------*/

 #include "fd.h"

--- a/src/calc_energy.c
+++ b/src/calc_energy.c
@@ -18,7 +18,6 @@

 /*------------------------------------------------------------------------
 *   Calculate energy of measured data
- *   last update 22/03/11, L. Rehor
 *  ----------------------------------------------------------------------*/
 #include "fd.h"


--- a/src/calc_envelope.c
+++ b/src/calc_envelope.c
@@ -18,8 +18,6 @@

 /*------------------------------------------------------------------------
 *   Calculate the envelope of a seismogram via Hilbert transform                                  
- *   last update 27/1/10, L. Rehor
- *   update to FFTW3 01/07/2013 Martin Schaefer
 *  ----------------------------------------------------------------------*/
 #include "fd.h"
 #include <fftw3.h>

--- a/src/calc_hilbert.c
+++ b/src/calc_hilbert.c
@@ -18,8 +18,6 @@

 /*------------------------------------------------------------------------
 *   Calculate the Hilbert transform of a signal                                  
- *   last update 27/1/10, L. Rehor
- *   update to FFTW3 01/07/2013 Martin Schaefer
 *  ----------------------------------------------------------------------*/
 #include "fd.h"
 #include <fftw3.h>

--- a/src/calc_mat_change_test.c
+++ b/src/calc_mat_change_test.c
@@ -19,8 +19,6 @@
 /*------------------------------------------------------------------------
 *   calculate test step length for material parameter update
 *
- *   Daniel Koehn
- *   last update 9.11.2007
 *
 *  ---------------------------------------------------------------------*/


--- a/src/calc_misfit.c
+++ b/src/calc_misfit.c
@@ -18,7 +18,6 @@

 /*------------------------------------------------------------------------
 *   Calculate Misfit
- *   last update 18/04/11, L. Rehor
 *  ----------------------------------------------------------------------*/
 #include "fd.h"


--- a/src/calc_opt_step.c
+++ b/src/calc_opt_step.c
@@ -22,8 +22,6 @@
 *   waveconv = conjugated gradient direction
 *   gradp    = preconditionated gradient
 *   
- *   Daniel Koehn
- *   last update 9.11.2007
 *
 *  ---------------------------------------------------------------------*/


--- a/src/calc_res.c
+++ b/src/calc_res.c
@@ -18,7 +18,6 @@

 /*------------------------------------------------------------------------
 *   Calculate Data Residuals
- *   last update 29/03/08, D.Koehn
 *  ----------------------------------------------------------------------*/
 #include "fd.h"


--- a/src/catseis.c
+++ b/src/catseis.c
@@ -21,7 +21,6 @@
 *
 * Cat seismograms
 *  
- * Andre Kurzmann
 *
 *-------------------------------------------------------------
 */

--- a/src/comm_ini.c
+++ b/src/comm_ini.c
@@ -20,7 +20,6 @@
 *   initialisation of repeated comunications. This may reduce the
 *   network overhead. Communication is started later
 *   with MPI_START(request)
- *   last update 31/07/00, T. Bohlen
 *  ----------------------------------------------------------------------*/

 #include "fd.h"

--- a/src/conv_FD.c
+++ b/src/conv_FD.c
@@ -18,8 +18,6 @@

 /*------------------------------------------------------------------------
 *   Function for convolving           
- *   19/01/02, T. Bohlen
- *   last update 19.09.11 M. Schaefer => FFTW3 check http://fftw.org/
 *  ----------------------------------------------------------------------*/

 #include "fd.h"

--- a/src/count_killed_traces.c
+++ b/src/count_killed_traces.c
@@ -18,7 +18,6 @@

 /*------------------------------------------------------------------------
 *   Calculate number of killed traces
- *   last update 11/07/12, L. Groos
 *  ----------------------------------------------------------------------*/
 #include "fd.h"


--- a/src/exchange_p.c
+++ b/src/exchange_p.c
@@ -20,7 +20,6 @@
 *   write values of dynamic field variables at the edges of the
 *   local grid into buffer arrays and  exchanged between
 *   processes.
- *   last update 21/09/02, T. Bohlen
 *
 *  ----------------------------------------------------------------------*/


--- a/src/exchange_par.c
+++ b/src/exchange_par.c
@@ -21,7 +21,6 @@
 *   Exchange FD-Parameters between PEs
 *   last update 29/06/2002
 *
- *  T. Bohlen
 *  ----------------------------------------------------------------------*/

 #include "fd.h"

--- a/src/exchange_s.c
+++ b/src/exchange_s.c
@@ -20,7 +20,6 @@
 *   write values of dynamic field variables at the edges of the
 *   local grid into buffer arrays and  exchanged between
 *   processes.
- *   last update 21/09/02, T. Bohlen
 *
 *  ----------------------------------------------------------------------*/


--- a/src/exchange_v.c
+++ b/src/exchange_v.c
@@ -20,7 +20,6 @@
 *   write values of dynamic field variables at the edges of the
 *   local grid into buffer arrays and  exchanged between
 *   processes.
- *   last update 21/09/02, T. Bohlen
 *
 *  ----------------------------------------------------------------------*/


--- a/src/fd.h
+++ b/src/fd.h
 /*------------------------------------------------------------------------
 *  fd.h - include file for viscoelastic FD programs          
- *  last update  03/12/2000 
- *
- *  Copyright (c) 1998 T. Bohlen 
 *  See COPYING file for copying and redistribution conditions.
 *  ---------------------------------------------------------------------*/


--- a/src/filter_frequencies.c
+++ b/src/filter_frequencies.c
@@ -19,7 +19,6 @@
 /* 
   Reading filter frequencies for the time domain filter from FREQ_FILE.
   
-   T. Metz 02,2014 
 */

 #include "fd.h"

--- a/src/globvar.h
+++ b/src/globvar.h
 /*------------------------------------------------------------------------
- *   globvar.h - global variables of viscoelastic FD programs   
- *   last update 05/04/02 T. Bohlen
+ *   globvar.h - global variables of viscoelastic FD programs
 *
 *  ----------------------------------------------------------------------*/


--- a/src/info.c
+++ b/src/info.c
@@ -27,13 +27,9 @@
 void info(FILE *fp){

 	fprintf(fp," ***********************************************************\n");
-	fprintf(fp," This is program IFOS. Version 1.0                        \n");
+	fprintf(fp," This is program IFOS2D. Version 2.0                        \n");
 	fprintf(fp," Parallel 2-D elastic Finite Difference FWT code            \n");
 	fprintf(fp,"                                                            \n");
-	fprintf(fp," FWT code written by D. Koehn                               \n");
-	fprintf(fp," forward code written by  T. Bohlen                         \n");
-	fprintf(fp," Institute of Geosciences, Kiel University, Germany         \n\n");
-	fprintf(fp," See COPYING file for copying and redistribution conditions.\n");
 	fprintf(fp," ***********************************************************\n");
 	fprintf(fp,"\n");


--- a/src/initproc.c
+++ b/src/initproc.c
@@ -20,7 +20,6 @@
   Dividing the 3-D FD grid into domains and assigning the
   PEs to these domains,
   
-   written by T. Bohlen 
   last update: 20.04.2000
 */


--- a/src/inseis.c
+++ b/src/inseis.c
@@ -18,7 +18,6 @@

 /*------------------------------------------------------------------------
 *   Write seismograms to disk                                  
- *   last update 19/01/02, T. Bohlen
 *  ----------------------------------------------------------------------*/
 #include "fd.h"
 #include "segy.h"

--- a/src/inseis_source_wavelet.c
+++ b/src/inseis_source_wavelet.c
@@ -18,7 +18,6 @@

 /*------------------------------------------------------------------------
 *   Read source wavelet in su format                                  
- *   last update 03/08/12, L. Groos
 *  ----------------------------------------------------------------------*/
 #include "fd.h"
 #include "segy.h"

--- a/src/interpol.c
+++ b/src/interpol.c
@@ -18,7 +18,6 @@

 /*------------------------------------------------------------------------
 * Interpolation of unknown wavefield variables at the cfgt
- *   last update 10/01/05, D. Koehn
 *
 *  ----------------------------------------------------------------------*/


--- a/src/joint_inversion.c
+++ b/src/joint_inversion.c
@@ -21,7 +21,6 @@
 * Joint Inversion
 *
 *
- * Florian Wittkamp 13.10.2015
 *  ----------------------------------------------------------------------*/
 #include "fd.h"


--- a/src/json_parser.c
+++ b/src/json_parser.c
@@ -20,7 +20,6 @@
 * json_parser.c
 *
 *  Created on: Sep 9, 2011
- *      Author: sjetschny
 */

 #include "fd.h"

--- a/src/matcopy.c
+++ b/src/matcopy.c
@@ -21,7 +21,6 @@
 * at the indices 0 and NX+1 etc. These lie on the neighbouring processes.
 * Thus, they have to be copied which is done by this function.
 *
- *   last update 12/02/02, T. Bohlen
 *
 *  ----------------------------------------------------------------------*/


--- a/src/matcopy_acoustic.c
+++ b/src/matcopy_acoustic.c
@@ -21,7 +21,6 @@
 * at the indices 0 and NX+1 etc. These lie on the neighbouring processes.
 * Thus, they have to be copied which is done by this function.
 *
- *   last update 03/04/04, T. Bohlen
 *
 *  ----------------------------------------------------------------------*/


--- a/src/matcopy_elastic.c
+++ b/src/matcopy_elastic.c
@@ -21,7 +21,6 @@
 * at the indices 0 and NX+1 etc. These lie on the neighbouring processes.
 * Thus, they have to be copied which is done by this function.
 *
- *   last update 03/04/04, T. Bohlen
 *
 *  ----------------------------------------------------------------------*/


--- a/src/matrix_operations.c
+++ b/src/matrix_operations.c
@@ -17,7 +17,6 @@
 -----------------------------------------------------------------------------------------*/
 /*
 * This function provides several matrix operations
- * Florian Wittkamp
 */

 #include "fd.h"

--- a/src/max_grad.c
+++ b/src/max_grad.c
@@ -19,7 +19,6 @@
 /*------------------------------------------------------------------------
 *   calculate test step length for material parameter update
 *   
- *   Daniel Koehn
 *   last update 9.11.2007
 *
 *  ---------------------------------------------------------------------*/

--- a/src/merge.c
+++ b/src/merge.c
@@ -19,7 +19,6 @@
 /*------------------------------------------------------------------------
 *   merge snapshots files written by the different processes to
 *   a single file
- *   last update 25/05/02   T. Bohlen
 *
 *  ----------------------------------------------------------------------*/


--- a/src/mergemod.c
+++ b/src/mergemod.c
@@ -19,7 +19,6 @@
 /*------------------------------------------------------------------------
 *   merge model files written by the different processes to 
 *   a single file                                 
- *   last update Oct 2015 Florian Wittkamp
 *   - If VERBOSE==1, then this function will be silent
 *
 *  ----------------------------------------------------------------------*/

--- a/src/norm.c
+++ b/src/norm.c
@@ -19,7 +19,6 @@
 /*
 * Normalize Gradient
 *
- * Daniel Koehn
 */

 #include "fd.h"

--- a/src/output_source_signal.c
+++ b/src/output_source_signal.c
@@ -18,7 +18,6 @@

 /*------------------------------------------------------------------------
 *   output source signal e.g. for cross-correlation of comparison with analytical solutions                                  
- *   last update 08/06/05, T. Bohlen
 *  ----------------------------------------------------------------------*/
 #include "fd.h"
 #include "segy.h"

--- a/src/outseis_glob.c
+++ b/src/outseis_glob.c
@@ -18,7 +18,6 @@

 /*------------------------------------------------------------------------
 *   Write seismograms to disk                                  
- *   last update 19/01/02, T. Bohlen
 *  ----------------------------------------------------------------------*/
 #include "fd.h"
 #include "segy.h"

--- a/src/outseis_vector.c
+++ b/src/outseis_vector.c
@@ -18,8 +18,6 @@

 /*------------------------------------------------------------------------
 *   Write seismograms to disk                                  
- *   last update 19/01/02, T. Bohlen
- *   UPDATE: 1. September 2011 M. Schfer
 *   Function outseis_vector estimate a vector NOT a matrix
 *  ----------------------------------------------------------------------*/
 #include "fd.h"

--- a/src/prepare_update_p.c
+++ b/src/prepare_update_p.c
@@ -16,7 +16,6 @@
 * along with DENISE. See file COPYING and/or <http://www.gnu.org/licenses/gpl-2.0.html>.
 -----------------------------------------------------------------------------------------*/

-/* $Id: prepare_update_s.c,v 2.2 2007/08/21 13:16:19 tbohlen Exp $*/

 #include "fd.h"


--- a/src/psource.c
+++ b/src/psource.c
@@ -18,7 +18,6 @@

 /*------------------------------------------------------------------------
 *   generate P-wave source at source nodes
- *   last update 12/02/02, T. Bohlen
 *
 *  ----------------------------------------------------------------------*/


--- a/src/rd_sour.c
+++ b/src/rd_sour.c
@@ -19,7 +19,6 @@
 /*------------------------------------------------------------------------
 *   Read extern source wavelet                                26 Mar 1997
 *
- *  written by T. Bohlen
 *  ----------------------------------------------------------------------*/

 #include "fd.h"

--- a/src/read_workflow.c
+++ b/src/read_workflow.c
@@ -19,7 +19,6 @@
 /*------------------------------------------------------------------------
 *  Read extern workflow                          
 *
- *  written by Wittkamp Oct 2015
 *
 *  If you want to adjust the workflow, I think it is not necessary to
 *  modify this file. Have a look at apply_workflow.c and adjust

--- a/src/readbufs.c
+++ b/src/readbufs.c
@@ -20,7 +20,6 @@
 *   read values of components of stress tensor at the edges of the
 *   local grid from buffer arrays (which have been exchanged between
 *   processes)
- *   last update 12/02/02, T. Bohlen
 *
 *  ----------------------------------------------------------------------*/


--- a/src/readbufv.c
+++ b/src/readbufv.c
@@ -20,7 +20,6 @@
 *   read values of particle velocities (vx, vy) at the edges of the
 *   local grid from buffer arrays (which have been exchanged between
 *   processes)
- *   last update 12/02/02, T. Bohlen
 *
 *  ----------------------------------------------------------------------*/


--- a/src/readdsk.c
+++ b/src/readdsk.c
@@ -20,7 +20,6 @@
 *   Read one single amplitude from file                                   
 *   last update 05/12/00
 *
- *  T. Bohlen
 *  ----------------------------------------------------------------------*/

 #include "fd.h"

--- a/src/readmod.c
+++ b/src/readmod.c
@@ -19,7 +19,6 @@
 /*------------------------------------------------------------------------
 *   Read viscoelastic model properties (vp,vs,density,Qp,Qs) from files
 *
- *  Copyright (c)  T. Bohlen
 *  ----------------------------------------------------------------------*/



--- a/src/readmod_acoustic.c
+++ b/src/readmod_acoustic.c
@@ -19,7 +19,6 @@
 /*------------------------------------------------------------------------
 *   Read acoustic model properties (vp,density) from files  
 *
- *  Copyright (c)  T. Bohlen
 *  last update 29.06.2003
 *  ----------------------------------------------------------------------*/


--- a/src/readmod_elastic.c
+++ b/src/readmod_elastic.c
@@ -19,7 +19,6 @@
 /*------------------------------------------------------------------------
 *   Read elastic model properties (vp,vs,density) from files
 *
- *  Copyright (c)  T. Bohlen
 *  last update 29.06.2003
 *  ----------------------------------------------------------------------*/


--- a/src/readmod_viscac.c
+++ b/src/readmod_viscac.c
@@ -19,7 +19,6 @@
 /*------------------------------------------------------------------------
 *   Read viscoacoustic model properties (vp,density,Qp) from files  
 *
- *  Copyright (c)  T. Bohlen
 *  ----------------------------------------------------------------------*/



--- a/src/receiver.c
+++ b/src/receiver.c
@@ -20,7 +20,6 @@
 *  compute receiver positions or read them from external file        
 *  last update: 11.02.02
 *
- *  T. Bohlen
 *  See COPYING file for copying and redistribution conditions.
 *  ----------------------------------------------------------------------*/


--- a/src/saveseis_glob.c
+++ b/src/saveseis_glob.c
@@ -18,7 +18,6 @@

 /*------------------------------------------------------------------------
 *   write seismograms to files
- *   last update Oct 2015 F.Wittkamp
 *  ----------------------------------------------------------------------*/

 #include "fd.h"

--- a/src/seismo_ssg.c
+++ b/src/seismo_ssg.c
@@ -19,7 +19,6 @@
 /*------------------------------------------------------------------------
 *   store amplitudes (particle velocities or pressure or curl and div) 
 *    at receiver positions in arrays
- *   last update 27/12/01, T. Bohlen
 *  ----------------------------------------------------------------------*/

 #include "fd.h"

--- a/src/smooth.c
+++ b/src/smooth.c
@@ -18,7 +18,6 @@

 /*
 * Smoothing gradient / model with a median filter
- * M. Schaefer - May 2011
 * Update - August 2013
 */


--- a/src/snap_rsg.c
+++ b/src/snap_rsg.c
@@ -20,7 +20,6 @@
 *   Write 2D snapshot for current timestep  to file                                   
 *   last update 24/05/2002
 *
- *  T. Bohlen
 *  See COPYING file for copying and redistribution conditions.
 *  ----------------------------------------------------------------------*/


--- a/src/snap_ssg.c
+++ b/src/snap_ssg.c
@@ -20,7 +20,6 @@
 *   Write 2D snapshot for current timestep  to file                                   
 *   last update 24/05/2002
 *
- *  T. Bohlen
 *  See COPYING file for copying and redistribution conditions.
 *  ----------------------------------------------------------------------*/


--- a/src/snap_ssg_SH.c
+++ b/src/snap_ssg_SH.c
@@ -18,9 +18,7 @@

 /*------------------------------------------------------------------------
 *   Write 2D snapshot for current timestep  to file
- *   last update 2015 F.Wittkamp, SH Version
 *
- *  T. Bohlen
 *  See COPYING file for copying and redistribution conditions.
 *  ----------------------------------------------------------------------*/


--- a/src/snapmerge.c
+++ b/src/snapmerge.c
@@ -18,7 +18,6 @@

 /*------------------------------------------------------------------------
 *   loop over snapshotfiles which have to be merged.
- *   last update 25/05/02   T. Bohlen
 *
 *  ----------------------------------------------------------------------*/


--- a/src/sources.c
+++ b/src/sources.c
@@ -20,7 +20,6 @@
   Reading (distributed) source positions, timeshift, centre frequency 
   and amplitude from SOURCE_FILE.
   
-   written by T. Bohlen 
   last update: 12.02.2002
 */


--- a/src/splitrec.c
+++ b/src/splitrec.c
@@ -18,9 +18,6 @@

 /*  Computation of local receiver coordinates
 *  (within each subgrid)
- *
- *   update 11.02.02, T. Bohlen
- *   last update 02.09.11 M. Schfer
 */

 #include "fd.h"

--- a/src/splitsrc.c
+++ b/src/splitsrc.c
@@ -19,7 +19,6 @@
 /*  Computation of local source coordinates
 *
 *
- *   last update 12.02.02, T. Bohlen
 */

 #include "fd.h"

--- a/src/splitsrc_back.c
+++ b/src/splitsrc_back.c
@@ -19,7 +19,6 @@
 /*  Computation of local source coordinates
 * 
 *	 
- *   last update 12.02.02, T. Bohlen
 */
 
 #include "fd.h"

--- a/src/stf.c
+++ b/src/stf.c
@@ -18,7 +18,6 @@

 /*------------------------------------------------------------------------
 *   inversion for source time function 
- *   31. August 2011 L. Rehor, T. Forbriger, M. Schaefer
 *  ----------------------------------------------------------------------*/

 #include "fd.h"

--- a/src/surface_PML.c
+++ b/src/surface_PML.c
@@ -17,10 +17,7 @@
 -----------------------------------------------------------------------------------------*/

 /*------------------------------------------------------------------------
- *   stress free surface condition
- *   T. Bohlen
- *   last update 2011/10/06, L. Groos
- *
+ *   stress free surface condition *
 *  ----------------------------------------------------------------------*/

 #include "fd.h"

--- a/src/surface_acoustic_PML.c
+++ b/src/surface_acoustic_PML.c
@@ -18,7 +18,6 @@

 /*------------------------------------------------------------------------
 *   stress free surface condition
- *   last update 03/01/04, T. Bohlen