Lines Matching +full:- +full:- +full:check

1 !-----------------------------------------------------------------------
5       include 't502-operator-f.h'
6 !-----------------------------------------------------------------------
28       parameter(nucoarse=nelem*(pcoarse-1)+1)
29       parameter(nufine=nelem*(pfine-1)+1)
50       do i=0,nx-1
51         arrx(i+1)=i/(nx-1.d0)
53       do i=0,nelem-1
60       do i=0,nelem-1
61         do j=0,pcoarse-1
62           inducoarse(pcoarse*i+j+1)=i*(pcoarse-1)+j
69       do i=0,nelem-1
70         do j=0,pfine-1
71           indufine(pfine*i+j+1)=i*(pfine-1)+j
88     &//'t502-operator.h:setup'//char(0),qf_setup,err)
95     &//'t502-operator.h:mass'//char(0),qf_mass,err)
149 ! Check output
155       if (abs(total-2.)>1.0d-10) then
172 ! Check output
178       if (abs(total-2.)>1.0d-10) then
189 ! Check output
195       if (abs(total-2.)>1.0d-10) then
224 !-----------------------------------------------------------------------