Commit bb60dca7 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

added GPL phrase to a lot of files

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 3599
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 3edd9b4f
......@@ -3,8 +3,23 @@ c this was <dat_dctt.f>
c------------------------------------------------------------------------------
cS
c
c 24/03/98 by Thomas Forbriger (IfG Stuttgart)
c 13/01/99 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program 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. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c calculate synthetic travel time data from my own discrete model
c the model information is taken from the remembered parent
......
......@@ -3,7 +3,23 @@ c------------------------------------------------------------------------------
c
c $Id$
c
c 24/03/98 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program 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. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c prepare data mode settings (data ranges, weights, green mode, etc.)
c
......
c this is <dat_famp.f>
c------------------------------------------------------------------------------
cS
c $Id$
c
c 24/03/98 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c fit amplitudes for reflectivity green to match real data (ignore phase)
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program 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. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c (simple linear least squares)
c
c REVISIONS and CHANGES
......
......@@ -2,10 +2,26 @@ c this is <dat_fcamp.f>
c------------------------------------------------------------------------------
c $Id$
c
c 24/03/98 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c fit complex response between delta-source and real greens function
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program 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. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 24/03/98 V1.0 Thomas Forbriger
c 25/03/98 V1.1 remember transfer function
......
......@@ -4,7 +4,23 @@ cS
c
c $Id$
c
c 24/03/98 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program 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. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c fit amplitudes for reflectivity green to match real data
c just make the mean amplitudes per frequency match
......
c this is <dat_fmaxamp.f>
c------------------------------------------------------------------------------
cS
c ($Source: /home/tforb/svnbuild/cvssource/CVS/thof/src/green/gremlin1/libs/dat_fmaxamp.f,v $)
c ($Id$)
c
c 07/04/2000 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program 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. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c prefit to maximum amplitude
c
......
c this is <dat_ftt.f>
c------------------------------------------------------------------------------
cS
c $Id$
c
c 24/03/98 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c do a prefit on travel times
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program 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. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c the mean travel time error will be removed form the synthetics
c this corresponds to an error in the shot (zero) time
c
......
......@@ -5,6 +5,22 @@ c ($Id$)
c
c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program 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. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c create data weights from misfit
c
c weights are calculated and written to rgweight and rtweights. subsequently
......
......@@ -6,6 +6,22 @@ c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c
c apply mseisfk offset correction
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program 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. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 04/07/2002 V1.0 Thomas Forbriger
c
......
......@@ -6,6 +6,22 @@ c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c
c prepare mseisfk offset correction
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program 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. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 04/07/2002 V1.0 Thomas Forbriger
c
......
c this is <dat_mtt.f>
c------------------------------------------------------------------------------
cS
c $Id$
c
c 04/03/99 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c merge travel time samples
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program 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. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 04/03/99 V1.0 Thomas Forbriger
c 16/06/99 V1.1 data_ttsplit must be set here
......
c this is <dat_oldhead.f>
c------------------------------------------------------------------------------
cS
c 04/12/97 by Thomas Forbriger (IfG Stuttgart)
c $Id$
c
c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c Greens inversion subroutines
c calculating synthetic data, linear inversion for complex source
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program 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. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c amplitudes, evaluating the objective function, etc.
c
c REVISIONS and CHANGES
......
c this is <dat_rgreen.f>
c------------------------------------------------------------------------------
c $Id$
c
c 24/03/98 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c PURPOSE
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program 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. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 24/03/98 V1.0 Thomas Forbriger
......
c this is <dat_rtt.f>
c------------------------------------------------------------------------------
cS
c $Id$
c
c 24/03/98 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c read picked travel times
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program 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. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 24/03/98 V1.0 Thomas Forbriger
c 04/03/99 V1.1 set merge index
......
c this is <dat_rweight.f>
c------------------------------------------------------------------------------
cS
c $Id$
c
c 24/03/98 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c read weight file for green data
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program 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. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 24/03/98 V1.0 Thomas Forbriger
c
......
......@@ -4,7 +4,24 @@ cS
c
c $Id$
c
c 24/03/98 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program 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. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c
c calculate new set of synthetic data from a discrete model
c the green and travel times will be calculated as well
......
......@@ -5,6 +5,22 @@ c ($Id$)
c
c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program 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. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c write green data weights to a file
c
c REVISIONS and CHANGES
......
c this is <dat_wresp.f>
c------------------------------------------------------------------------------
c $Id$
c
c 25/03/98 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c write complex response to disk file
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program 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. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 25/03/98 V1.0 Thomas Forbriger
c 29/06/99 V1.1 call dat_dmode
......
......@@ -6,6 +6,22 @@ c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c
c write traveltime weights to a file
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program 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. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 07/05/2002 V1.0 Thomas Forbriger
c
......
c this is <dat_x2.f>
c------------------------------------------------------------------------------
c $Id$
c
c 24/03/98 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c PURPOSE