c_nurb_rec.h

c-----[--.----+----.----+----.----------------------------------------]
 
c      Coded/Modified by: Rossana Dimitri
c      Date             : February, 2012
c      Release          : 1.0
 
 
c-----[--.----+----.----+----.----------------------------------------]
!     Integer values
 
      integer           ntype1,ntype2
      common /inurbrec/ ntype1,ntype2
 
      integer           nnurb1,nnurb2
      common /inurbrec/ nnurb1,nnurb2
 
      integer           nside1,nside2
      common /inurbrec/ nside1,nside2
 
      integer           nknot1,nknot2
      common /inurbrec/ nknot1,nknot2
 
      integer           lside1,lside2
      common /inurbrec/ lside1,lside2
 
      integer           ndir1,ndir2
      common /inurbrec/ ndir1,ndir2
 
      integer           k_order1,k_order2
      common /inurbrec/ k_order1,k_order2
 
      integer           knot_len1,knot_len2
      common /inurbrec/ knot_len1,knot_len2
 
      integer           ncp1,ncp2
      common /inurbrec/ ncp1,ncp2
 
      integer           ngauss
      common /inurbrec/ ngauss
 
      integer           setbc
      common /inurbrec/ setbc
 
!     Real values
 
      real*8            Npen, Tpen, muF
      common /rnurbrec/ Npen, Tpen, muF