;*************************************************************
;*************************************************************
;*********   Origin version from Starsmoon *******************
;*************************************************************
;*********        Adapted by Haitang       *******************
;*************************************************************
;*************************************************************
new
def para_set
 suferfile = 'Sufer_Data.dat'   ;File from Sufer which contains the layers' coords.
 Tablefile = 'Table_data.dat'   ;File which contains the table.
 AnsysFile = 'Ansys_Model.dat'  ;Ansys  Model
 D3DECFile = 'D3dec_Model.dat'  ;3dec   Model
 FlacFile  = 'Flac3D_Model.dat' ;Flac3D Model 
 Col_Num   = 36                 ;number of elements in x-direction
 Row_Num   = 26                 ;number of elements in y-direction
 dx_size   = 2
 dy_size   = 2
 z_base    = 0.0
 z_size    = 10
 xor       = 0.0
 yor       = 0.0
 n_zon_col = Col_Num - 1
 n_zon_row = Row_Num - 1
 xdiv      = 1
 ydiv      = 1
 zdiv      = 2
end
para_set
 
;==============================================================
cal 01_Surfer_To_Table.fis
read_data    ;------------ [ read sufer network information! ]

cal 02_creat_table.fis
creat_table  ;------------ [ creat table " MyTopoTab.dat " ! ]
cal Tablefile

cal 03_Gen_FlacModel.fis

cal 04_Gen_AnsysModel.fis

cal 05_Gen_3DECModel.fis
;===============================================================

new
pause
cal Flac3D_Model.dat