testdata/feappv-master/iga/include/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