PDF/spdf/strghr.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.4  2000/09/18 10:02:37  hristov
   6 * Makefile added to PDF8
   7 *
   8 * Revision 1.1.1.2  1996/10/30 08:31:02  cernlib
   9 * Version 7.04
  10 *
  11 * Revision 1.1.1.1  1996/04/12 15:29:50  plothow
  12 * Version 7.01
  13 *
  14 *
  15 #include "pdf/pilot.h"
  16 C-----------------------------------------------------------------------
  17       SUBROUTINE STRGHR(DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DGL)
  18 C ::::::::::::   GHR   ::::::::::::::::::::::::::::
  19 C
  20 #if defined(CERNLIB_DOUBLE)
  21       DOUBLE PRECISION
  22 #endif
  23 #if defined(CERNLIB_SINGLE)
  24       REAL
  25 #endif
  26      +       DX,DSCALE,DUPV,DDNV,DSEA,DSTR,DCHM,DGL
  27       DATA ALAM2/0.160/, Q02/4.0/
  28       Q = DSCALE
  29       X = DX
  30       QQ=Q*Q
  31       SQ= LOG( LOG( MAX(Q02,QQ)/ALAM2)/ LOG(Q02/ALAM2))
  32       UPV=GHRUV(X,SQ)
  33       DNV=GHRDV(X,SQ)
  34       SEA=GHRXI(X,SQ)
  35       STR=GHRXS(X,SQ)
  36       GL =GHRGL(X,SQ)
  37       DUPV=UPV
  38       DDNV=DNV
  39       DSEA=SEA
  40       DSTR=STR
  41       DCHM=0.0D0
  42       DGL =GL
  43       RETURN
  44       END