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
c this is <inv_addtolist.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 <inv_ds.f>
c------------------------------------------------------------------------------
c $Id$
c
c 07/04/98 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c apply weights to partial derivatives
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/04/98 V1.0 Thomas Forbriger
c
......
c this is <inv_dss.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 <inv_dssd.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 <inv_dssdelta.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 <inv_linsynt.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 <inv_linx2.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 <inv_mat.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 <inv_min.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 find the minimum of X2(nu) beginning at startnu
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 set results to common block variables
c
c REVISIONS and CHANGES
......
c this is <inv_model.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 calculate model estimation for stabilization factor nu
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 08/04/98 V1.1 changed to use correct real system of linear equations
......
......@@ -2,8 +2,25 @@ c this is <inv_oldhead.f>
c this is <glq_inv.f>
c------------------------------------------------------------------------------
cS
c $Id$
c
c 28/11/97 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1997, 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 all to perform the least squares step
c
......
c this is <inv_part.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 <inv_repchange.f>
c------------------------------------------------------------------------------
cS
c $Id$
c
c 24/01/99 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c report parameter changes
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/01/99 V1.0 Thomas Forbriger
c
......
c this is <inv_x2.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 find model estimation for given nu and return error value
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 24/01/99 V1.1 introduced call to inv_repchanges
......
c this is <inv_x2hist.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 <mod_aclear.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 <mod_check.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 <mod_chop.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 build homogeneus layers from polynomial expansion
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 15/04/98 V1.1 introduced different master modes
......
......@@ -2,9 +2,25 @@ c this is <mod_chop1.f>
c this was <mod_chop.f>
c------------------------------------------------------------------------------
cS
c $Id$
c
c 24/03/98 by Thomas Forbriger (IfG Stuttgart)
c 14/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