H A D | idd_snorm.f | 85 real*8 snorm,enorm,p1t,p2t,p3t,p4t,p1,p2,p3,p4,u(m),v(n) local 102 call idd_enorm(n,v,enorm) 105 v(k) = v(k)/enorm 142 subroutine idd_enorm(n,v,enorm) argument 156 real*8 enorm,v(n) local 159 enorm = 0 162 enorm = enorm+v(k)**2 165 enorm = sqrt(enorm) 332 real*8 snorm,enorm,p1t,p2t,p3t,p4t,p1t2,p2t2,p3t2,p4t2, local 351 call idd_enorm(n,v,enorm) [all …]
|