This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / gheisha / fctcos.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:21:00  cernlib
6 * Geant
7 *
8 *
9 #include "geant321/pilot.h"
10 *CMZ :  3.21/02 29/03/94  15.41.38  by  S.Giani
11 *-- Author :
12       REAL FUNCTION FCTCOS(T)
13 C
14 C *** NVE 01-MAR-1988 CERN GENEVA ***
15 C
16 C ORIGIN : H.FESEFELDT (27-OCT-1983)
17 C
18 #include "geant321/s_coscom.inc"
19 #include "geant321/limits.inc"
20 C
21       DOUBLE PRECISION TEST1,TEST2
22 C
23       TEST1=-BB*T*1.0D0
24       IF (TEST1 .GT. EXPXU) TEST1=EXPXU
25       IF (TEST1 .LT. EXPXL) TEST1=EXPXL
26       TEST2=-DD*T*1.0D0
27       IF (TEST2 .GT. EXPXU) TEST2=EXPXU
28       IF (TEST2 .LT. EXPXL) TEST2=EXPXL
29 C
30       FCTCOS=AA*EXP(TEST1)+CC*EXP(TEST2)-RR
31 C
32       RETURN
33       END