Source module last modified on Tue, 22 Jan 2002, 16:39;
HTML image of Fortran source automatically generated by
for2html on Mon, 23 May 2005, 21:29.
integer*4 mseg,nseg
parameter (mseg=50)
real*8 tseg(0:mseg),tseg0(0:mseg),alpha(0:mseg),grad(0:mseg),
* pseg(0:mseg),pseg0(0:mseg),path,tof
common /crborders/ tseg,tseg0,alpha,grad,pseg,pseg0,path,tof,nseg