# foncro.f

Go to the documentation of this file.
```00001 C:\opentelemac\v7p0\sources\tomawac\foncro.f
00002 !
00048                      FUNCTION FONCRO
00049 !                    ***************
00050 !
00051      &( X     , B     , N     , A     , XM    )
00052 !
00053 !***********************************************************************
00054 ! TOMAWAC   V6P1                                   14/06/2011
00055 !***********************************************************************
00056 !
00057 !
00058 !
00059 !
00060 !
00061 !
00062 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00063 !| A              |-->| PARAMETER A OF THE FUNCTION TO BE INTEGRATED
00064 !| B              |-->| PARAMETER B OF THE FUNCTION TO BE INTEGRATED
00065 !| N              |-->| EXPONENT N OF THE FUNCTION TO BE INTEGRATED
00066 !| X              |-->| VALUE AT WHICH THE FUNCTION IS EVALUATED
00067 !| XM             |-->| PARAMETER M OF THE FUNCTION TO BE INTEGRATED
00068 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00069 !
00070       IMPLICIT NONE
00071 !
00072 !     VARIABLES IN ARGUMENT
00073 !     """""""""""""""""""""
00074       INTEGER  N
00075       DOUBLE PRECISION X      , B     , A     , XM    , FONCRO
00076 !
00077 !     LOCAL VARIABLES
00078 !     """"""""""""""""""
00079       DOUBLE PRECISION AUX
00080 !
00081 !
00082       AUX   = A*X**XM
00083       FONCRO= XM*AUX*DEXP(-AUX)*(1.D0-DEXP(-(B*X)**N))
00084 !
00085       RETURN
00086       END
```