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

1 !-----------------------------------------------------------------------
22       parameter(nucoarse=nelem*(pcoarse-1)+1)
23       parameter(nufine=nelem*(pfine-1)+1)
42       do i=0,nx-1
43         arrx(i+1)=i/(nx-1.d0)
45       do i=0,nelem-1
52       do i=0,nelem-1
53         do j=0,pcoarse-1
54           inducoarse(pcoarse*i+j+1)=i*(pcoarse-1)+j
60       do i=0,nelem-1
61         do j=0,pfine-1
62           indufine(pfine*i+j+1)=i*(pfine-1)+j
128 ! Check output
134       if (abs(total-1.)>1.0d-10) then
151 ! Check output
157       if (abs(total-1.)>1.0d-10) then
168 ! Check output
174       if (abs(total-1.)>1.0d-10) then
205 !-----------------------------------------------------------------------