Lines Matching refs:nfreqs
101 integer :: nfreqs = 0 component
276 tdf_nfreqs = f%nfreqs
496 f%nfreqs = int(bigt * omegamax / (M_TWO * M_PI) ) + 1
498 f%nfreqs = f%niter/2+1
509 SAFE_ALLOCATE(f%valww(1:2*(f%nfreqs-1)+1))
535 do i = 1, f%nfreqs
566 SAFE_ALLOCATE(f%valww(1:2*(f%nfreqs-1)+1))
568 do j = 2, f%nfreqs
571 do j = f%nfreqs+1, 2*f%nfreqs-1
572 f%valww(j) = - (sqrt(M_TWO)) * aimag(tmp(j-f%nfreqs+1))
594 do j = 2, f%nfreqs
595 tmp(j) = TOCMPLX((sqrt(M_TWO)/M_TWO)*f%valww(j), -(sqrt(M_TWO)/M_TWO)*f%valww(j+f%nfreqs-1))
619 s = sum(f%valww(2:f%nfreqs))
620 f%valww(2:f%nfreqs) = f%valww(2:f%nfreqs) - s/f%nfreqs
653 f%valww(1:2*f%nfreqs-1) = values(1:2*f%nfreqs-1)
656 f%valww(2:2*f%nfreqs-1) = values(1:2*f%nfreqs-2)
698 n = 2*f%nfreqs-1
700 n = 2*f%nfreqs-2
723 e(1:f%nfreqs-1) = e(1:f%nfreqs-1) - sum(e(1:f%nfreqs-1))/(f%nfreqs-1)
933 fout%nfreqs = fin%nfreqs
943 SAFE_ALLOCATE(fout%valww(1:2*fout%nfreqs-1))
1130 do i = 1, 2*(f%nfreqs-1)+1