00001
00002 integer, parameter :: MBLK_BYTE=0
00003 integer, parameter :: MBLK_INT=1
00004 integer, parameter :: MBLK_REAL=2
00005 integer, parameter :: MBLK_DOUBLE=3
00006
00007 integer, parameter :: MBLK_SUM=0
00008 integer, parameter :: MBLK_MAX=1
00009 integer, parameter :: MBLK_MIN=2
00010
00011 integer, parameter :: MBLK_SUCCESS=1
00012 integer, parameter :: MBLK_FAILURE=2
00013
00014 integer, parameter :: MBLK_DONE=1
00015 integer, parameter :: MBLK_NOTDONE=0
00016
00017 integer, external :: foffsetof
00018
00019 external :: MBLK_Init
00020 external :: MBLK_Read
00021
00022 external :: MBLK_Get_nblocks
00023 external :: MBLK_Get_myblock
00024 external :: MBLK_Get_blocksize
00025 external :: MBLK_Get_nodelocs
00026 real*8, external :: MBLK_Timer
00027 external :: MBLK_Print
00028 external :: MBLK_Print_block
00029
00030 external :: MBLK_Create_field
00031 external :: MBLK_Update_field
00032 external :: MBLK_Iupdate_field
00033 external :: MBLK_Test_update
00034 external :: MBLK_Wait_update
00035
00036 external :: MBLK_Reduce_field
00037 external :: MBLK_Reduce
00038
00039 external :: MBLK_Register_bc
00040 external :: MBLK_Apply_bc
00041 external :: MBLK_Apply_bc_all
00042
00043 external :: MBLK_Register
00044 external :: MBLK_Migrate
1.5.5