1
subroutine desi00(ityp,om,norma,edeg,ndeg,adeg,
4
c transform tolerance scheme
7
implicit double precision (a-h,o-z)
10
if (ityp.ge.3) ndeg = (ndeg+1)/2
11
if (ndeg.ne.0) adeg = dble(real(ndeg))/(1.0d+0+edeg)
12
call transn (ityp,om,norma,vsn,vd,a)