1
C @(#)gauss.for 19.1 (ES0-DMD) 02/25/03 13:17:38
2
C===========================================================================
3
C Copyright (C) 1995 European Southern Observatory (ESO)
5
C This program is free software; you can redistribute it and/or
6
C modify it under the terms of the GNU General Public License as
7
C published by the Free Software Foundation; either version 2 of
8
C the License, or (at your option) any later version.
10
C This program is distributed in the hope that it will be useful,
11
C but WITHOUT ANY WARRANTY; without even the implied warranty of
12
C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13
C GNU General Public License for more details.
15
C You should have received a copy of the GNU General Public
16
C License along with this program; if not, write to the Free
17
C Software Foundation, Inc., 675 Massachusetss Ave, Cambridge,
20
C Corresponding concerning ESO-MIDAS should be addressed as follows:
21
C Internet e-mail: midas@eso.org
22
C Postal address: European Southern Observatory
23
C Data Management Division
24
C Karl-Schwarzschild-Strasse 2
25
C D 85748 Garching bei Muenchen
27
C===========================================================================
29
SUBROUTINE GAUSS(INDEP,X,NP,PARAM,Y1,DERIV)
30
C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
31
C.COPYRIGHT: Copyright (c) 1987 European Southern Observatory,
34
C.VERSION: 1.0 ESO-FORTRAN Conversion, AA 18:01 - 21 DEC 1987
36
C.LANGUAGE: F77+ESOext
40
C--------------------------------------------------------------
41
C**************************************************
44
C INDEP-DIMENSIONAL GAUSSIAN
46
C**************************************************
48
C Authors: O.-G. Richter and D. Ponz, ESO Garching
52
DOUBLE PRECISION Y1,PARAM(NP),DERIV(NP)
54
IF (INDEP.GT.3) CALL NULLF(INDEP,X,NP,PARAM,Y1,DERIV)
55
GO TO (10,20,30),INDEP
57
10 CALL GAUSS1(X(1),NP,PARAM,Y1,DERIV)
60
20 CALL GAUSS2(X,NP,PARAM,Y1,DERIV)
63
30 CALL GAUSS3(X,NP,PARAM,Y1,DERIV)