00001 integer, parameter :: NetFEM_POINTAT=1
00002 integer, parameter :: NetFEM_WRITE=2
00003 integer, parameter :: NetFEM_COPY=10
00004 external NetFEM_Nodes
00005 external NetFEM_Elements
00006 external NetFEM_Vector_field
00007 external NetFEM_Scalar_field
00008 external NetFEM_Vector
00009 external NetFEM_Scalar
00010 interface
00011 function NetFEM_Begin(source,timestep,dim,flavor)
00012 integer,intent (in) :: source,timestep,dim,flavor
00013 integer :: NetFEM_Begin
00014 end function
00015 subroutine NetFEM_End(netfem)
00016 integer, intent(in) :: netfem
00017 end subroutine
00018 end interface
00019