Coding conventions

[u/mrichter/AliRoot.git] / PDF / spdf / dflm5.F

*
* $Id$
*
* $Log$
* Revision 1.4  2000/09/18 10:02:35  hristov
* Makefile added to PDF8
*
* Revision 1.1.1.2  1996/10/30 08:27:57  cernlib
* Version 7.04
*
* Revision 1.1.1.1  1996/04/12 15:29:15  plothow
* Version 7.01
*
*
#include "pdf/pilot.h"
C-----------------------------------------------------------------------
      SUBROUTINE DFLM5(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL)
C
C   ********************************************************************
C   *                                                                  *
C   *        Interface to DFLM set of structure functions              *
C   *                                                                  *
C   *        Author:    H. Plothow-Besch (CERN-PPE)                    *
C   *                                                                  *
C   ********************************************************************
C
C :::::::::::: Diemoz, Ferroni, Longo, and Martinelli Lambda = 200 MeV :
C :::::::::::: Hard Valence Quark distribution
C
#if defined(CERNLIB_DOUBLE)
      DOUBLE PRECISION
#endif
#if defined(CERNLIB_SINGLE)
      REAL
#endif
     +       DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DBOT,DTOP,DGL
      REAL   X, Q2
#include "pdf/w50511.inc"
C
      X = DX
      Q2 = DSCALE**2
C
C     generate the individual structure fcn calls
C
      CALL FXVHAR(X,Q2,'UPVAL',VAL)
      DUPV = VAL
      CALL FXVHAR(X,Q2,'DOVAL',VAL)
      DDNV = VAL
      CALL FXVHAR(X,Q2,'UBAR ',VAL)
      DSEA = VAL
      CALL FXVHAR(X,Q2,'SBAR ',VAL)
      DSTR = VAL
      CALL FXVHAR(X,Q2,'CBAR ',VAL)
      DCHM = VAL
      CALL FXVHAR(X,Q2,'BBAR ',VAL)
      DBOT = VAL
      VAL = 0.
      IF (DSCALE.GT.TMAS) CALL FXVHAR(X,Q2,'TBAR ',VAL)
      DTOP = VAL
      CALL FXVHAR(X,Q2,'GLUON',VAL)
      DGL  = VAL
C
      RETURN
      END