Home Research Papers Posters Manuals Talks Download People Help Internal

libs/ck-libs/ParFUM/ParFUMf.h

Go to the documentation of this file.

       include 'idxlf.h'
       
       integer, parameter :: FEM_BYTE=IDXL_BYTE
       integer, parameter :: FEM_INT=IDXL_INT
       integer, parameter :: FEM_REAL=IDXL_REAL
       integer, parameter :: FEM_DOUBLE=IDXL_DOUBLE

       integer, parameter :: FEM_SUM=IDXL_SUM
       integer, parameter :: FEM_PROD=IDXL_PROD
       integer, parameter :: FEM_MAX=IDXL_MAX
       integer, parameter :: FEM_MIN=IDXL_MIN

       integer, parameter :: FEM_MESH_OUTPUT=0
       integer, parameter :: FEM_MESH_UPDATE=1
       integer, parameter :: FEM_MESH_FINALIZE=2

       integer, parameter :: FEM_TRIANGULAR=3
       integer, parameter :: FEM_TETRAHEDRAL=4
       integer, parameter :: FEM_HEXAHEDRAL=8
       integer, parameter :: FEM_QUADRILATERAL=4
       
       integer, parameter :: FEM_ENTITY_FIRST=1610000000
       integer, parameter :: FEM_NODE=(FEM_ENTITY_FIRST+0)
       integer, parameter :: FEM_ELEM=(FEM_ENTITY_FIRST+1000)
       integer, parameter :: FEM_ELEMENT=FEM_ELEM
       integer, parameter :: FEM_SPARSE=(FEM_ENTITY_FIRST+2000)
       integer, parameter :: FEM_EDGE=FEM_SPARSE
       integer, parameter :: FEM_FACE=FEM_SPARSE
       integer, parameter :: FEM_GHOST=10000
       
       integer, parameter :: FEM_DATA=0
       integer, parameter :: FEM_ATTRIB_TAG_MAX=1000000000
       integer, parameter :: FEM_ATTRIB_FIRST=1620000000
       integer, parameter :: FEM_CONN=(FEM_ATTRIB_FIRST+1)
       integer, parameter :: FEM_CONNECTIVITY=FEM_CONN
       integer, parameter :: FEM_SPARSE_ELEM=(FEM_ATTRIB_FIRST+2)
       integer, parameter :: FEM_COOR=(FEM_ATTRIB_FIRST+3)
       integer, parameter :: FEM_COORD=FEM_COOR
       integer, parameter :: FEM_COORDINATES=FEM_COOR
       integer, parameter :: FEM_GLOBALNO=(FEM_ATTRIB_FIRST+4)
       integer, parameter :: FEM_PARTITION=(FEM_ATTRIB_FIRST+5)
       integer, parameter :: FEM_SYMMETRIES=(FEM_ATTRIB_FIRST+6)
       integer, parameter :: FEM_NODE_PRIMARY=(FEM_ATTRIB_FIRST+7)
       integer, parameter :: FEM_CHUNK=(FEM_ATTRIB_FIRST+8)
       integer, parameter :: FEM_BOUNDARY=(FEM_ATTRIB_FIRST+9)
       integer, parameter :: FEM_NODE_ELEM_ADJACENCY=(FEM_ATTRIB_FIRST+10)
       integer, parameter :: FEM_NODE_NODE_ADJACENCY=(FEM_ATTRIB_FIRST+11)
       integer, parameter :: FEM_ELEM_ELEM_ADJACENCY=(FEM_ATTRIB_FIRST+12)
       integer, parameter :: FEM_ELEM_ELEM_ADJ_TYPES=(FEM_ATTRIB_FIRST+13)
!      integer, parameter :: FEM_IS_VALID_ATTR=(FEM_ATTRIB_FIRST+14)         
       integer, parameter :: FEM_MESH_SIZING=(FEM_ATTRIB_FIRST+15)
       integer, parameter :: FEM_ADAPT_FACE_ADJ=(FEM_ATTRIB_FIRST+16)
       integer, parameter :: FEM_ADAPT_EDGE_ADJ=(FEM_ATTRIB_FIRST+17)

       integer, parameter :: FEM_INDEX_0=IDXL_INDEX_0
       integer, parameter :: FEM_INDEX_1=IDXL_INDEX_1


       external FEM_Print
       
       external FEM_Mesh_set_conn
       external FEM_Mesh_get_conn
       external FEM_Mesh_conn
       external FEM_Mesh_set_data
       external FEM_Mesh_get_data
       external FEM_Mesh_data
       external FEM_Mesh_data_layout
       external FEM_Mesh_data_offset
       external FEM_Mesh_pup
       
       external FEM_Set_mesh

       external FEM_Set_node
       external FEM_Get_node
       external FEM_Set_elem
       external FEM_Get_elem
       external FEM_Set_elem_conn_r
       external FEM_Get_elem_conn_r
       external FEM_Set_node_data_r
       external FEM_Get_node_data_r
       external FEM_Set_elem_data_r
       external FEM_Get_elem_data_r
       
       external FEM_Set_sparse
       external FEM_Set_sparse_elem
       external FEM_Get_sparse

       external FEM_Add_linear_periodicity
       external FEM_Sym_coordinates

       external FEM_Set_sym_nodes
       external FEM_Get_sym

       external FEM_Set_partition

       external FEM_Add_ghost_layer
       external FEM_Add_ghost_elem
       external FEM_Add_ghost_stencil
       external FEM_Add_ghost_stencil_type

       external FEM_Get_Comm_Nodes

       external FEM_Reduce_field
       external FEM_Reduce
       external FEM_Update_field
       external FEM_Update_ghost_field
       external FEM_Read_field
       integer, external :: foffsetof

       external FEM_Barrier
       external FEM_Get_ghost_list

       integer, external :: FEM_Register
       external FEM_Migrate 
       external FEM_Async_Migrate

       external FEM_Update_mesh

       external FEM_Add_elem2face_tuples

     external FEM_Mesh_Become_Setting
     external FEM_Mesh_Become_Getting

       interface
       
       subroutine FEM_Init(comm) 
           integer,intent(in) :: comm
       end subroutine
       integer function FEM_My_partition()
       end function
       integer function FEM_Num_partitions()
       end function 
       double precision function FEM_Timer()
       end function
       subroutine FEM_Done()
       end subroutine
       subroutine FEM_Print_partition()
       end subroutine
       subroutine FEM_Mesh_print(mesh)
          integer, intent(in) :: mesh
       end subroutine
       
       integer function FEM_Mesh_allocate()
       end function
       integer function FEM_Mesh_copy(mesh)
          integer, intent(in) :: mesh
       end function
       subroutine FEM_Mesh_deallocate(mesh) 
          integer, intent(in) :: mesh
       end subroutine
       
       integer function FEM_Mesh_read(prefix,partNo,nParts)
          integer, intent(in) :: partNo,nParts
          character (LEN=*), intent(in) :: prefix
       end function
       subroutine FEM_Mesh_write(mesh,prefix,partNo,nParts) 
          integer, intent(in) :: mesh
          integer, intent(in) :: partNo,nParts
          character (LEN=*), intent(in) :: prefix
       end subroutine
       
       integer function FEM_Mesh_assemble(nParts,parts)
          integer, intent(in) :: nParts
          integer, intent(in) :: parts(nParts)
       end function
       subroutine FEM_Mesh_partition(mesh,nParts,parts) 
          integer, intent(in) :: mesh
          integer, intent(in) :: nParts
          integer, intent(out) :: parts(nParts)
       end subroutine
       
       integer function FEM_Mesh_recv(source,tag,comm)
          integer, intent(in) :: source,tag,comm
       end function
       subroutine FEM_Mesh_send(mesh,source,tag,comm) 
          integer, intent(in) :: mesh
          integer, intent(in) :: source,tag,comm
       end subroutine
       
       integer function FEM_Mesh_reduce(mesh,master,comm)
          integer, intent(in) :: mesh
          integer, intent(in) :: master,comm
       end function
       integer function FEM_Mesh_broadcast(mesh,master,comm) 
          integer, intent(in) :: mesh
          integer, intent(in) :: master,comm
       end function
       

       integer function FEM_Mesh_default_read()
       end function
       integer function FEM_Mesh_default_write()
       end function
       subroutine FEM_Mesh_set_default_read(mesh)
         integer, intent(in) :: mesh
       end subroutine
       subroutine FEM_Mesh_set_default_write(mesh)
         integer, intent(in) :: mesh
       end subroutine
       
       function FEM_Mesh_get_length(mesh,ent)
         integer, intent(in) :: mesh,ent
         integer :: FEM_Mesh_get_length
       end function
       subroutine FEM_Mesh_set_length(mesh,ent,newLength)
         integer, intent(in) :: mesh,ent,newLength
       end subroutine
     function FEM_Mesh_get_width(mesh,ent,attr)
         integer, intent(in) :: mesh,ent,attr
         integer :: FEM_Mesh_get_width
       end function
       subroutine FEM_Mesh_set_width(mesh,ent,attr,newWidth)
         integer, intent(in) :: mesh,ent,attr,newWidth
       end subroutine
       function FEM_Mesh_get_datatype(mesh,ent,attr)
         integer, intent(in) :: mesh,ent,attr
         integer :: FEM_Mesh_get_datatype
       end function
       
       integer function FEM_Mesh_get_entities(mesh,entities)
         integer, intent(in) :: mesh
         integer, intent(out) :: entities(:)
       end function
       integer function FEM_Mesh_get_attributes(mesh,entity,attrs)
         integer, intent(in) :: mesh, entity
         integer, intent(out) :: attrs(:)
       end function
       
       
       function FEM_Create_simple_field(base_type, vec_len)
          integer, intent(in)  :: base_type, vec_len
          integer  :: FEM_Create_Simple_Field
       end function 
       
       function FEM_Create_field(base_type, vec_len, init_offset, distance)
          integer, intent(in)  :: base_type, vec_len, init_offset, distance
          integer  :: FEM_Create_Field
       end function 
       
       function FEM_Comm_shared(mesh,ent)
          integer, intent(in)  :: mesh,ent
          integer  :: FEM_Comm_shared
       end function 
       function FEM_Comm_ghost(mesh,ent)
          integer, intent(in)  :: mesh,ent
          integer  :: FEM_Comm_ghost
       end function 
       
       function FEM_Get_node_ghost()
         integer :: FEM_Get_node_ghost
       end function
       function FEM_Get_elem_ghost(elemType)
         integer, intent(in) :: elemType
         integer :: FEM_Get_elem_ghost
       end function    

       subroutine FEM_Exchange_ghost_lists(elemType,nIdx,localIdx)
         integer,intent (in) :: elemType,nIdx
         integer, intent(in) :: localIdx(nIdx)
       end subroutine

       function FEM_Get_ghost_list_length()
         integer :: FEM_Get_ghost_list_length
       end function

       function FEM_Get_sparse_length(sID)
         integer :: FEM_Get_sparse_length
         integer, intent(in) ::sID
       end function

       subroutine FEM_Serial_split(nChunk)
         integer,intent (in) :: nChunk
       end subroutine
       subroutine FEM_Serial_begin(chunk)
         integer,intent (in) :: chunk
       end subroutine
       subroutine FEM_Serial_read(chunk,nChunks)
         integer,intent (in) :: chunk,nChunks
       end subroutine
       subroutine FEM_Serial_assemble()
       end subroutine
       
       function FEM_Get_comm_partners()
         integer :: FEM_Get_comm_partners
       end function
       function FEM_Get_comm_partner(partnerNo)
         integer, intent(in) :: partnerNo
         integer :: FEM_Get_comm_partner
       end function
       function FEM_Get_comm_count(partnerNo)
         integer, intent(in) :: partnerNo
         integer :: FEM_Get_comm_count
       end function

       subroutine FEM_Get_roccom_pconn_size(mesh,total_len,ghost_len)
         integer, intent(in) :: mesh
         integer, intent(out) :: total_len,ghost_len
       end subroutine


       subroutine FEM_Mesh_create_node_elem_adjacency(fem_mesh)
         integer, intent(in) :: fem_mesh
       end subroutine
         
       subroutine FEM_Mesh_create_node_node_adjacency(fem_mesh)
         integer, intent(in) :: fem_mesh
       end subroutine
         
       subroutine FEM_Mesh_create_elem_elem_adjacency(fem_mesh)
         integer, intent(in) :: fem_mesh
       end subroutine
         
     subroutine   FEM_Mesh_get2ElementsOnEdge(fem_mesh,n1,n2,e1,e2)
         integer, intent(in)  :: fem_mesh, n1, n2
         integer, intent(out) :: e1, e2
     end subroutine      
     
     subroutine FEM_Mesh_get2ElementsOnEdgeSorted(fem_mesh,n1,n2,e1,e2)
         integer, intent(in)  :: fem_mesh, n1, n2
         integer, intent(out) :: e1, e2
     end subroutine
     
     
     subroutine  FEM_Mesh_allocate_valid_attr(fem_mesh, entity_type)
         integer, intent(in)  :: fem_mesh, entity_type
     end subroutine   
         
       integer function  FEM_is_valid(fem_mesh,entityType,entityIdx)
         integer, intent(in)  :: fem_mesh, entityType, entityIdx
       end function       

       integer function FEM_count_valid(fem_mesh,entityType,entityIdx)
         integer, intent(in)  :: fem_mesh, entityType, entityIdx
       end function   

     integer function FEM_is_node_shared(fem_mesh, idx)
         integer, intent(in) :: fem_mesh, idx
     end function

     integer function FEM_find_node_owner(fem_mesh, idx)
         integer, intent(in) :: fem_mesh, idx
     end function

     subroutine FEM_traceBegin()
     end subroutine

         subroutine FEM_traceEnd()
         end subroutine



       end interface

---