PDF/spdf/strghr.F

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