Source

PetIGA / src / petiga3d.f90

Diff from to

File src/petiga3d.f90

      if (side==1) k=m(3)
      Xx => Cx(:,:,:,k); Xw => Cw(:,:,k)
   end select
-  detJ = 1.0
-  dS = 0.0
+  detJ = 1
+  dS = 0
   do jq=1,jnqp
      do iq=1,inqp
         do ja=1,jnen; do ia=1,inen