]>
Commit | Line | Data |
---|---|---|
4e9e3152 | 1 | subroutine USERevolve(x,Q,f) |
2 | implicit none | |
3 | integer nset | |
4 | real*8 f(-6:6) | |
5 | real*8 x,Q | |
6 | real*8 alfas | |
7 | real*8 Eorder,Q2fit | |
8 | return | |
9 | * | |
10 | entry USERread(nset) | |
11 | return | |
12 | * | |
13 | entry USERalfa(alfas,Q) | |
14 | return | |
15 | * | |
16 | entry USERinit(nset,Eorder,Q2fit) | |
17 | return | |
18 | * | |
19 | entry USERpdf(nset) | |
20 | return | |
21 | * | |
22 | end | |
23 | * |