*GUREFP * parameters * integer npad,nkik,ntref integer nlay,nmdc integer dim1,dim2,dim3,dim4,dim5 parameter(npad=10) parameter(nkik=6) parameter(ntref=50) parameter(nlay=6) parameter(nmdc=4) parameter (dim1=15) parameter (dim2=6) parameter (dim3=1) parameter (dim4=18) parameter (dim5=12)