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