Lines Matching +full:- +full:s
1 !-----------------------------------------------------------------------
9 integer q,s,i variable
11 parameter(s=3)
12 real*8 uu(q*s)
13 real*8 vv(q*s)
20 call ceedqfunctioncreateidentity(ceed,s,ceed_eval_interp,&
23 do i=0,q*s-1
27 call ceedvectorcreate(ceed,q*s,u,err)
30 call ceedvectorcreate(ceed,q*s,v,err)
41 do i=1,q*s
42 if (abs(vv(i+voffset)-(i-1)*(i-1)) > 1.0D-12) then
44 write(*,*) 'v(i)=',vv(i+voffset),', u(i)=',(i-1)*(i-1)
55 !-----------------------------------------------------------------------