Source

PetIGA / src / petiga2d.f90

Diff from to

File src/petiga2d.f90

      if (side==1) k=m(2)
      Xx => Cx(:,:,k); Xw => Cw(:,k)
   end select
-  detJ = 1.0
-  dS = 0.0
+  detJ = 1
+  dS = 0
   do q=1,nqp
      N0(  :) = N(0,:,q)
      N1(1,:) = N(1,:,q)