zhangyiss/LaGriT
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
a09a73537fe441c6f6807af05692b8e090c084d4
LaGriT/src/sbinit.F

949 lines
32 KiB
FortranFixed
Raw Normal View History

initial upload
2025-12-17 11:00:57 +08:00
subroutine sbinit
C#############################################
C
C PURPOSE -
C
C INITIALIZE (AND READ) ALL STORAGE BLOCKS THAT ARE USED IN THE
C CODE. EACH STORAGE IS GIVEN A UNIQUE NAME THAT CORRESPONDS
C TO THE STORAGE BLOCK PATH AND THE MEMORY MANAGEMENT PATH.
C FOR STORAGE BLOCK THAT ARE LOADED FROM EXTERNAL
C DICTIONARIES A TWO PASS SCHEME IS USED. FIRST, THE
C DICTIONARY IS READ TO FIND HOW MUCH DATA (# OF WORDS)
C ARE IN THE DICTIONARY. THEN THE MEMORY IS SET UP
C SO THAT WE CAN READ THE DICTIONARY INTO THE STORAGE
C BLOCK ON THE SECOND PASS.
C
C
C INPUT ARGUMENTS -
C
C isbname - INTEGER ARRAY THAT CONTAINS THE NAMES OF STORAGE
C BLOCKS THAT WILL BE INITIALIZED.
C
C nsbname - NUMBER OF STORAGE BLOCKS THAT WILL INITIALIZED
C
C
C OUTPUT ARGUMENTS -
C
C THE OUTPUT PARAMETERS FROM THIS ROUTINE ARE IN THE DICTIONARY
C AND STORAGE BLOCK COMDECK. MAINLY FLAGS ARE SET FOR VARIOUS
C STORAGE BLOCKS TO INDICATE THAT THEY HAVE BEEN INITIALIZED.
C
C
C CHANGE HISTORY -
C
C $Log: sbinit.f,v $
C Revision 2.00 2007/11/09 20:04:02 spchu
C Import to CVS
C
CPVCS
CPVCS Rev 1.17 09 Nov 2005 09:25:06 dcg
CPVCS return mbndry value to 16000000
CPVCS
CPVCS Rev 1.16 09 Nov 2005 09:21:56 dcg
CPVCS add attributes to default mesh object for face sets
CPVCS
CPVCS Rev 1.15 10 Apr 2001 11:04:26 dcg
CPVCS shorten too long name
CPVCS
CPVCS Rev 1.14 22 Jan 2001 12:57:34 dcg
CPVCS set number of psetnames based on NBYTES_INT
CPVCS
CPVCS Rev 1.13 19 Apr 2000 10:10:16 dcg
CPVCS change names of some attributes
CPVCS
CPVCS Rev 1.12 16 Mar 2000 15:16:38 dcg
CPVCS use type=3 for cmo_names array
CPVCS
CPVCS Rev 1.11 Wed Mar 01 08:44:38 2000 dcg
CPVCS use 'vels' as default velocity name
CPVCS
CPVCS Rev 1.10 Mon Feb 07 11:13:32 2000 dcg
C
C#######################################################################
C
implicit none
include 'global_lg.h'
include 'cmo_lg.h'
include 'geom_lg.h'
include 'machine.h'
C
C#######################################################################
C
integer len,ierror,inc,length,i
character*32 isubname,partname
C
C#######################################################################
C begin
isubname='sbinit'
c
c initialize global common
c
partname='global_lg'
number_of_globals=7
call mmfindbk('global_name',partname,ipglobal_name,len,ierror)
if(ierror.ne.0) then
call mmgetblk('global_name',partname,ipglobal_name,10,3,ierror)
call mmgetblk('global_type',partname,ipglobal_type,10,1,ierror)
call mmgetblk('global_index',partname,ipglobal_index,10,1,
* ierror)
call mmgetblk('global_integer',partname,ipglobal_integer,20,1,
* ierror)
call mmgetblk('global_real',partname,ipglobal_real,20,2,
* ierror)
call mmgetblk('global_character',partname,ipglobal_character,20,
* 3,ierror)
endif
global_name(1)='ihcycle'
global_type(1)=1
global_index(1)=1
global_integer(1,1)=0
global_integer(2,1)=0
global_name(2)='time'
global_type(2)=2
global_index(2)=1
global_real(1,1)=0
global_real(2,1)=0
global_name(3)='monitor'
global_type(3)=1
global_index(3)=2
global_integer(1,2)=0
global_integer(2,2)=0
global_name(4)='hextotet_remove_volume'
global_type(4)=3
global_index(4)=1
global_character(1,1)='no'
global_character(2,1)='no'
global_name(5)='hextotet_check_imt'
global_type(5)=3
global_index(5)=2
global_character(1,2)='yes'
global_character(2,2)='yes'
global_name(6)='hextotet_radavg'
global_type(6)=3
global_index(6)=3
global_character(1,3)='no'
global_character(2,3)='no'
global_name(7)='hextotet_remove_duplicates'
global_type(7)=3
global_index(7)=4
global_character(1,4)='no'
global_character(2,4)='no'
c
c initialize geometry arrays
c
number_of_geometries=1
current_geom_name='-defaultgeom-'
partname='geom_lg'
call mmfindbk ('geom_names',partname,
* ipgeom_names,len,ierror)
if(ierror.ne.0)
* call mmgetblk('geom_names',partname,
* ipgeom_names,10,3,ierror)
call mmfindbk ('geom_info',partname,
* ipgeom_info,len,ierror)
if(ierror.ne.0)
* call mmgetblk('geom_info',partname,
* ipgeom_info,80,1,ierror)
geom_names(1)='-defaultgeom-'
do i=1,8
geom_info(i,1)=0
enddo
C
c initialize default mesh object
c
partname='define_cmo_lg'
call mmfindbk ('defcmo_attparam_names',partname,
* ipdefcmo_attparam_names,len,ierror)
if(ierror.ne.0)
* call mmgetblk('defcmo_attparam_names',partname,
* ipdefcmo_attparam_names,8,3,ierror)
number_of_default_attparam_name=8
defcmo_attparam_names(1)='name'
defcmo_attparam_names(2)='type'
defcmo_attparam_names(3)='rank'
defcmo_attparam_names(4)='length'
defcmo_attparam_names(5)='interpolation'
defcmo_attparam_names(6)='persistence'
defcmo_attparam_names(7)='ioflag'
defcmo_attparam_names(8)='default'
call mmfindbk ('cmo_names',partname,
* ipcmo_names,len,ierror)
if(ierror.ne.0)
* call mmgetblk('cmo_names',partname,
* ipcmo_names,10,3,ierror)
cmo_names(1)='-default-'
call mmfindbk ('cmo_natts',partname,
* ipcmo_natts,len,ierror)
if(ierror.ne.0)
* call mmgetblk('cmo_natts',partname,
* ipcmo_natts,10,1,ierror)
cmo_natts(1)=65
number_of_default_attributes=65
number_of_mesh_objects=1
number_of_params_per_att=7
partname='default_cmo_lg'
call mmfindbk ('cmo_attlist',partname,
* ipcmo_attlist,len,ierror)
if(ierror.ne.0) then
length=number_of_default_attributes*number_of_params_per_att
call mmgetblk('cmo_attlist',partname,
* ipcmo_attlist,length,3,ierror)
endif
call mmfindbk ('cmo_attparam_cdefault',partname,
* ipcmo_attparam_cdefault,len,ierror)
if(ierror.ne.0) then
length=number_of_default_attributes
call mmgetblk('cmo_attparam_cdefault',partname,
* ipcmo_attparam_cdefault,length,3,ierror)
endif
call mmfindbk ('cmo_attparam_idefault',partname,
* ipcmo_attparam_idefault,len,ierror)
if(ierror.ne.0) then
length=number_of_default_attributes
call mmgetblk('cmo_attparam_idefault',partname,
* ipcmo_attparam_idefault,length,1,ierror)
endif
call mmfindbk ('cmo_attparam_rdefault',partname,
* ipcmo_attparam_rdefault,len,ierror)
if(ierror.ne.0) then
length=number_of_default_attributes
call mmgetblk('cmo_attparam_rdefault',partname,
* ipcmo_attparam_rdefault,length,2,ierror)
endif
c fill in parameter values for default mesh object attribute
c for default attribute
cmo_attlist(1)='-def-'
cmo_attlist(2)='VDOUBLE'
cmo_attlist(3)='scalar'
cmo_attlist(4)='nnodes'
cmo_attlist(5)='linear'
cmo_attlist(6)='temporary'
cmo_attlist(7)='agltn'
cmo_attparam_cdefault(1)=' '
cmo_attparam_rdefault(1)=0.
cmo_attparam_idefault(1)=0
inc=number_of_params_per_att
cmo_attlist(1+inc)='scalar'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(2)=' '
cmo_attparam_rdefault(2)=1.
cmo_attparam_idefault(2)=1
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='vector'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(3)=' '
cmo_attparam_rdefault(3)=3.
cmo_attparam_idefault(3)=3
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='nnodes'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(4)=' '
cmo_attparam_rdefault(4)=0.
cmo_attparam_idefault(4)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='nedges'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(5)=' '
cmo_attparam_rdefault(5)=0.
cmo_attparam_idefault(5)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='nfaces'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(6)=' '
cmo_attparam_rdefault(6)=0.
cmo_attparam_idefault(6)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='nelements'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(7)=' '
cmo_attparam_rdefault(7)=0.
cmo_attparam_idefault(7)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='mbndry'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(8)=' '
cmo_attparam_rdefault(8)=16000000.
cmo_attparam_idefault(8)=16000000
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='ndimensions_topo'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(9)=' '
cmo_attparam_rdefault(9)=3.
cmo_attparam_idefault(9)=3
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='ndimensions_geom'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(10)=' '
cmo_attparam_rdefault(10)=3.
cmo_attparam_idefault(10)=3
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='nodes_per_element'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(11)=' '
cmo_attparam_rdefault(11)=4.
cmo_attparam_idefault(11)=4
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='edges_per_element'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(12)=' '
cmo_attparam_rdefault(12)=6.
cmo_attparam_idefault(12)=6
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='faces_per_element'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(13)=' '
cmo_attparam_rdefault(13)=4.
cmo_attparam_idefault(13)=4
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='isetwd'
cmo_attlist(2+inc)='VDOUBLE'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='nnodes'
cmo_attlist(5+inc)='or'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(14)=' '
cmo_attparam_rdefault(14)=0.
cmo_attparam_idefault(14)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='ialias'
cmo_attlist(2+inc)='VINT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='nnodes'
cmo_attlist(5+inc)='sequence'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(15)=' '
cmo_attparam_rdefault(15)=0.
cmo_attparam_idefault(15)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='imt1'
cmo_attlist(2+inc)='VINT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='nnodes'
cmo_attlist(5+inc)='max'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='gal'
cmo_attparam_cdefault(16)=' '
cmo_attparam_rdefault(16)=0.
cmo_attparam_idefault(16)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='itp1'
cmo_attlist(2+inc)='VINT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='nnodes'
cmo_attlist(5+inc)='min'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='gal'
cmo_attparam_cdefault(17)=' '
cmo_attparam_rdefault(17)=0.
cmo_attparam_idefault(17)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='icr1'
cmo_attlist(2+inc)='VINT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='nnodes'
cmo_attlist(5+inc)='min'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='gal'
cmo_attparam_cdefault(18)=' '
cmo_attparam_rdefault(18)=0.
cmo_attparam_idefault(18)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='isn1'
cmo_attlist(2+inc)='VINT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='nnodes'
cmo_attlist(5+inc)='user'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='gal'
cmo_attparam_cdefault(19)=' '
cmo_attparam_rdefault(19)=0.
cmo_attparam_idefault(19)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='xic'
cmo_attlist(2+inc)='VDOUBLE'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='nnodes'
cmo_attlist(5+inc)='linear'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(20)=' '
cmo_attparam_rdefault(20)=0.
cmo_attparam_idefault(20)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='yic'
cmo_attlist(2+inc)='VDOUBLE'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='nnodes'
cmo_attlist(5+inc)='linear'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(21)=' '
cmo_attparam_rdefault(21)=0.
cmo_attparam_idefault(21)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='zic'
cmo_attlist(2+inc)='VDOUBLE'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='nnodes'
cmo_attlist(5+inc)='linear'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(22)=' '
cmo_attparam_rdefault(22)=0.
cmo_attparam_idefault(22)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='xtetwd'
cmo_attlist(2+inc)='VDOUBLE'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='nelements'
cmo_attlist(5+inc)='or'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(23)=' '
cmo_attparam_rdefault(23)=0.
cmo_attparam_idefault(23)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='itetclr'
cmo_attlist(2+inc)='VINT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='nelements'
cmo_attlist(5+inc)='user'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(24)=' '
cmo_attparam_rdefault(24)=0.
cmo_attparam_idefault(24)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='itettyp'
cmo_attlist(2+inc)='VINT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='nelements'
cmo_attlist(5+inc)='user'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(25)=' '
cmo_attparam_rdefault(25)=0.
cmo_attparam_idefault(25)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='itetoff'
cmo_attlist(2+inc)='VINT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='nelements'
cmo_attlist(5+inc)='user'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(26)=' '
cmo_attparam_rdefault(26)=0.
cmo_attparam_idefault(26)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='jtetoff'
cmo_attlist(2+inc)='VINT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='nelements'
cmo_attlist(5+inc)='user'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(27)=' '
cmo_attparam_rdefault(27)=0.
cmo_attparam_idefault(27)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='itet'
cmo_attlist(2+inc)='VINT'
cmo_attlist(3+inc)='nodes_per_element'
cmo_attlist(4+inc)='nelements'
cmo_attlist(5+inc)='user'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(28)=' '
cmo_attparam_rdefault(28)=0.
cmo_attparam_idefault(28)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='jtet'
cmo_attlist(2+inc)='VINT'
cmo_attlist(3+inc)='faces_per_element'
cmo_attlist(4+inc)='nelements'
cmo_attlist(5+inc)='user'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(29)=' '
cmo_attparam_rdefault(29)=0.
cmo_attparam_idefault(29)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='ipolydat'
cmo_attlist(2+inc)='CHARACTER'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(30)='no '
cmo_attparam_rdefault(30)=0.
cmo_attparam_idefault(30)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='vor2d'
cmo_attlist(2+inc)='CHARACTER'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(31)='yes '
cmo_attparam_rdefault(31)=0.
cmo_attparam_idefault(31)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='vor3d'
cmo_attlist(2+inc)='CHARACTER'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(32)='no '
cmo_attparam_rdefault(32)=0.
cmo_attparam_idefault(32)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='epsilon'
cmo_attlist(2+inc)='REAL'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(33)=' '
cmo_attparam_rdefault(33)=1.e-15
cmo_attparam_idefault(33)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='epsilonl'
cmo_attlist(2+inc)='REAL'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(34)=' '
cmo_attparam_rdefault(34)=1.e-8
cmo_attparam_idefault(34)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='epsilona'
cmo_attlist(2+inc)='REAL'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(35)=' '
cmo_attparam_rdefault(35)=1.e-8
cmo_attparam_idefault(35)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='epsilonv'
cmo_attlist(2+inc)='REAL'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(36)=' '
cmo_attparam_rdefault(36)=1.e-8
cmo_attparam_idefault(36)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='ipointi'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(37)=' '
cmo_attparam_rdefault(37)=0.
cmo_attparam_idefault(37)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='ipointj'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(38)=' '
cmo_attparam_rdefault(38)=0.
cmo_attparam_idefault(38)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='idebug'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(39)=' '
cmo_attparam_rdefault(39)=0.
cmo_attparam_idefault(39)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='itypconv_sm'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(40)=' '
cmo_attparam_rdefault(40)=1.
cmo_attparam_idefault(40)=1
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='maxiter_sm'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(41)=' '
cmo_attparam_rdefault(41)=25.
cmo_attparam_idefault(41)=25
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='tolconv_sm'
cmo_attlist(2+inc)='REAL'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(42)=' '
cmo_attparam_rdefault(42)=1.
cmo_attparam_idefault(42)=1
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='nnfreq'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(43)=' '
cmo_attparam_rdefault(43)=1.
cmo_attparam_idefault(43)=1
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='ivoronoi'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(44)=' '
cmo_attparam_rdefault(44)=1.
cmo_attparam_idefault(44)=1
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='iopt2to2'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(45)=' '
cmo_attparam_rdefault(45)=2.
cmo_attparam_idefault(45)=2
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='dumptype'
cmo_attlist(2+inc)='CHARACTER'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(46)='binary '
cmo_attparam_rdefault(46)=0.
cmo_attparam_idefault(46)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='velname'
cmo_attlist(2+inc)='CHARACTER'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(47)='vels '
cmo_attparam_rdefault(47)=0.
cmo_attparam_idefault(47)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='densname'
cmo_attlist(2+inc)='CHARACTER'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(48)='ric'
cmo_attparam_rdefault(48)=0.
cmo_attparam_idefault(48)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='presname'
cmo_attlist(2+inc)='CHARACTER'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(49)='pic'
cmo_attparam_rdefault(49)=0.
cmo_attparam_idefault(49)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='enername'
cmo_attlist(2+inc)='CHARACTER'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(50)='eic'
cmo_attparam_rdefault(50)=0.
cmo_attparam_idefault(50)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='xmin'
cmo_attlist(2+inc)='REAL'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(51)=' '
cmo_attparam_rdefault(51)=-1.
cmo_attparam_idefault(51)=-1
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='ymin'
cmo_attlist(2+inc)='REAL'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(52)=' '
cmo_attparam_rdefault(52)=-1.
cmo_attparam_idefault(52)=-1
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='zmin'
cmo_attlist(2+inc)='REAL'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(53)=' '
cmo_attparam_rdefault(53)=-1.
cmo_attparam_idefault(53)=-1
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='xmax'
cmo_attlist(2+inc)='REAL'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(54)=' '
cmo_attparam_rdefault(54)=1.
cmo_attparam_idefault(54)=1
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='ymax'
cmo_attlist(2+inc)='REAL'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(55)=' '
cmo_attparam_rdefault(55)=1.
cmo_attparam_idefault(55)=1
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='zmax'
cmo_attlist(2+inc)='REAL'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(56)=' '
cmo_attparam_rdefault(56)=1.
cmo_attparam_idefault(56)=1
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='kdtree_level'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(57)=' '
cmo_attparam_rdefault(57)=0.
cmo_attparam_idefault(57)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='max_number_sets'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(58)=' '
cmo_attparam_rdefault(58)=dble(8*NBYTES_INT)
cmo_attparam_idefault(58)=8*NBYTES_INT
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='number_of_psets'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(59)=' '
cmo_attparam_rdefault(59)=0.
cmo_attparam_idefault(59)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='number_of_eltsets'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(60)=' '
cmo_attparam_rdefault(60)=0.
cmo_attparam_idefault(60)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='psetnames'
cmo_attlist(2+inc)='VCHAR'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='max_number_sets'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(61)=' '
cmo_attparam_rdefault(61)=0.
cmo_attparam_idefault(61)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='eltsetnames'
cmo_attlist(2+inc)='VCHAR'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='max_number_sets'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(62)=' '
cmo_attparam_rdefault(62)=0.
cmo_attparam_idefault(62)=0
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='geom_name'
cmo_attlist(2+inc)='CHARACTER'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='max_number_sets'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(63)='-defaultgeom-'
cmo_attparam_rdefault(63)=0.
cmo_attparam_idefault(63)=0
c
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='fsetnames'
cmo_attlist(2+inc)='VCHAR'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='max_number_sets'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(64)=' '
cmo_attparam_rdefault(64)=0.
cmo_attparam_idefault(64)=0
c
inc=inc+number_of_params_per_att
cmo_attlist(1+inc)='number_of_fsets'
cmo_attlist(2+inc)='INT'
cmo_attlist(3+inc)='scalar'
cmo_attlist(4+inc)='scalar'
cmo_attlist(5+inc)='constant'
cmo_attlist(6+inc)='permanent'
cmo_attlist(7+inc)='l'
cmo_attparam_cdefault(65)=' '
cmo_attparam_rdefault(65)=0.
cmo_attparam_idefault(65)=0
c
c inc=inc+number_of_params_per_att
c cmo_attlist(1+inc)='ftet'
c cmo_attlist(2+inc)='VINT'
c cmo_attlist(3+inc)='faces_per_element'
c cmo_attlist(4+inc)='nelements'
c cmo_attlist(5+inc)='copy'
c cmo_attlist(6+inc)='permanent'
c cmo_attlist(7+inc)='l'
c cmo_attparam_cdefault(66)=' '
c cmo_attparam_rdefault(66)=0.
c cmo_attparam_idefault(66)=0
c
return
end
Reference in New Issue Copy Permalink