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)
47       do i=0,nx-1
48         arrx(i+1)=i/(nx-1.d0)
50       do i=0,nelem-1
57       do i=0,nelem-1
58         do j=0,pcoarse-1
59           inducoarse(pcoarse*i+j+1)=i*(pcoarse-1)+j
66       do i=0,nelem-1
67         do j=0,pfine-1
68           indufine(pfine*i+j+1)=i*(pfine-1)+j
87     &//'t502-operator.h:setup'//char(0),qf_setup,err)
94     &//'t502-operator.h:mass'//char(0),qf_mass,err)
139 ! Check output
145       if (abs(total-2.)>1.0d-10) then
162 ! Check output
168       if (abs(total-2.)>1.0d-10) then
179 ! Check output
185       if (abs(total-2.)>1.0d-10) then
215 !-----------------------------------------------------------------------