Lines Matching refs:dxmax
23 real*8 dxmax,dxfi,ecg0,ecg1,ecg2,epcgw,epcgsw,epcgs
114 + dbl_mb(i_xs),dbl_mb(i_ys),int_mb(i_is),dxmax)
266 + dbl_mb(i_xs),dbl_mb(i_ys),int_mb(i_is),dxmax)
330 dxmax=zero
339 if(abs(dxstep).gt.dxmax) dxmax=abs(dxstep)
352 if(abs(dxstep).gt.dxmax) dxmax=abs(dxstep)
357 call ga_dgop(mrg_d12,dxmax,1,'max')
362 + dbl_mb(i_xs),dbl_mb(i_ys),int_mb(i_is),dxmax)
377 dxmax=zero
398 if(dxwmax.gt.dxmax) dxmax=dxwmax
411 if(dxsmax.gt.dxmax) dxmax=dxsmax
413 call ga_dgop(mrg_d12,dxmax,1,'max')
418 + dbl_mb(i_xs),dbl_mb(i_ys),int_mb(i_is),dxmax)
479 ldone=.not.(icgit.lt.mcgit.and.dxmax.gt.dxcgmx.and.ecgdif.lt.zero)
494 write(lfnout,600) icgit,cqrs,ecgdif,ecg1,epcgw,epcgsw,epcgs,dxmax