Create_field Example
! 3D Force for each node
! stored as 3*n real*8 array
REAL*8 ALLOCATABLE, DIMENTION(:) :: nodeForce
INTEGER :: fid
... allocate nodeForce as 3*n_nodes...
fid = FEM_Create_Field(FEM_DOUBLE,3,
           foffsetof(nodeForce(1),nodeForce(1)),
           foffsetof(nodeForce(1),nodeForce(4))