Lines Matching refs:fval1

72      *  dinf,r1mach,epmach,fc,fsum,fval1,fval2,fvalt,fv1,  local
144       call f(tabsc1, ierr, fval1)
147          call f(-tabsc1, ierr, fval1)
149          fval1 = fval1 + fvalt
151       fc = (fval1/centr)/centr
165         call f(tabsc1, ierr, fval1)
172            fval1 = fval1 + fvalt
179         fval1 = (fval1/absc1)/absc1
181         fv1(j) = fval1
183         fsum = fval1+fval2
186         resabs = resabs+wgk(j)*(abs(fval1)+abs(fval2))