Source

PetIGA / src / petigaftn.F90

Diff from to

File src/petigaftn.F90

      integer(kind=IGA_INTEGER_KIND) :: nsd
      integer(kind=IGA_INTEGER_KIND) :: npd
 
+     type(C_PTR) :: rational
      type(C_PTR) :: geometry
-     type(C_PTR) :: rational
      type(C_PTR) :: property
 
+     type(C_PTR) :: point
      type(C_PTR) :: weight
      type(C_PTR) :: detJac
-     type(C_PTR) :: point
      type(C_PTR) :: basis(0:3)
      type(C_PTR) :: detX
      type(C_PTR) :: gradX(0:1)
+     type(C_PTR) :: detS
+     type(C_PTR) :: normal
      type(C_PTR) :: shape(0:3)
-     type(C_PTR) :: normal
   end type IGAPoint
 
 
 
   contains
 
+    function IGA_Rational(p) result(W)
+      use ISO_C_BINDING, only: c2f => C_F_POINTER
+      use ISO_C_BINDING, only: nonnull => C_ASSOCIATED
+      implicit none
+      type(IGAPoint), intent(in) :: p
+      real(kind=IGA_REAL_KIND), pointer :: W(:)
+      nullify(W)
+      if (nonnull(p%rational)) &
+      call c2f(p%rational,W,(/p%nen/))
+    end function IGA_Rational
+
     function IGA_Geometry(p) result(X)
       use ISO_C_BINDING, only: c2f => C_F_POINTER
       use ISO_C_BINDING, only: nonnull => C_ASSOCIATED
       call c2f(p%geometry,X,(/p%nsd,p%nen/))
     end function IGA_Geometry
 
-    function IGA_Rational(p) result(W)
-      use ISO_C_BINDING, only: c2f => C_F_POINTER
-      use ISO_C_BINDING, only: nonnull => C_ASSOCIATED
-      implicit none
-      type(IGAPoint), intent(in) :: p
-      real(kind=IGA_REAL_KIND), pointer :: W(:)
-      nullify(W)
-      if (nonnull(p%rational)) &
-      call c2f(p%rational,W,(/p%nen/))
-    end function IGA_Rational
-
     function IGA_Property(p) result(A)
       use ISO_C_BINDING, only: c2f => C_F_POINTER
       use ISO_C_BINDING, only: nonnull => C_ASSOCIATED