sPhenix code displayed by LXR |
|
|
|
|||
File indexing completed on 2025-08-05 08:21:11
0001 0002 C********************************************************************* 0003 0004 C...PYGRVV 0005 C...Auxiliary for the GRV 94 parton distribution functions 0006 C...for u and d valence and d-u sea. 0007 C...Authors: M. Glueck, E. Reya and A. Vogt. 0008 0009 FUNCTION PYGRVV (X, N, AK, BK, A, B, C, D) 0010 0011 C...Double precision declaration. 0012 IMPLICIT DOUBLE PRECISION (A - Z) 0013 0014 C...Evaluation. 0015 DX = SQRT (X) 0016 PYGRVV = N * X**AK * (1D0+ A*X**BK + X * (B + C*DX)) * 0017 & (1D0- X)**D 0018 0019 RETURN 0020 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|