Create a Field
integer function FEM_Create_simple_field(
   datatype, len)
integer, intent(in) :: datatype, len