blob: a16230dd1de080a1ab9ab74e355c9b011a349c9b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
diff -u Template/LO/SubProcesses/genps.f Template/LO/SubProcesses/genps.f
--- a/Template/LO/SubProcesses/genps.f
+++ b/Template/LO/SubProcesses/genps.f
@@ -41,7 +41,7 @@
integer mincfig,maxcfig !Range of configurations
integer invar
double precision wgt !(input and output)
- double precision x(maxdim),p(maxdim) !x,p (output) [p(0:3,nexternal)]
+ double precision x(maxdim),p(*) !x,p (output) [p(0:3,nexternal)]
c
c Local
c
Diff finished. Tue Jun 26 11:32:30 2018
|