cqueue.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\tomawac\cqueue.f
00002 !
00052                      SUBROUTINE CQUEUE
00053 !                    *****************
00054 !
00055      &( NF    , RAISF , TAILF , JFRE  , JBIS  , COEF1 )
00056 !
00057 !***********************************************************************
00058 ! TOMAWAC   V6P1                                   14/06/2011
00059 !***********************************************************************
00060 !
00061 !
00062 !
00063 !
00064 !
00065 !
00066 !
00067 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00068 !| COEF1          |---| MULTIPLYING COEF. F(JFRE)=COEF1*F(JBIS)
00069 !| JBIS           |---| ADJUSTED INDEX IN THE INTERVAL [1;NF]
00070 !| JFRE           |-->| FREQUENCY INDEX
00071 !| NF             |-->| NUMBER OF FREQUENCIES
00072 !| RAISF          |-->| FREQUENTIAL RATIO
00073 !| TAILF          |-->| SPECTRUM QUEUE FACTOR
00074 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00075 !
00076       IMPLICIT NONE
00077 !
00078 !.....VARIABLES IN ARGUMENT
00079 !     """""""""""""""""""""
00080       INTEGER  NF    , JFRE  , JBIS
00081       DOUBLE PRECISION RAISF , TAILF , COEF1
00082 !
00083 !
00084       IF (JFRE.GT.NF) THEN
00085         JBIS = NF
00086         COEF1= 1.D0/RAISF**(DBLE(JFRE-NF)*TAILF)
00087       ELSEIF (JFRE.LT.1) THEN
00088         JBIS = 1
00089         COEF1= 0.D0
00090       ELSE
00091         JBIS = JFRE
00092         COEF1= 1.D0
00093       ENDIF
00094 !
00095       RETURN
00096       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0