FEM_*_Node
subroutine FEM_Set_Node(nNode,doublePerNode)
integer, intent(in) :: nNode,doublePerNode
subroutine FEM_Get_Node(nNode,doublePerNode)
integer, intent(out) :: nNode,doublePerNode