c -*- Fortran -*-
c ::::: cuser.i: user parameters for specific problem
c
parameter( lengrkw = 580, lenint = 21 )
parameter( logout = 10 )
c
common /grkArrays/ grkwork(lengrkw), igrkwork(lenint)
common /cdisc/ x0,y0,xl,alf,beta,r0,idisc
common /cdisc2/ z0,ra
common /init/ qin,qout
common /Refl/ pi,rd,angpl,rdi
double precision x0,y0,xl,alf,beta,r0,z0,ra
integer idisc
double precision qin(LeNsp+5),qout(LeNsp+5)
double precision pi,rd,angpl,rdi