137 lines
3.8 KiB
FortranFixed
137 lines
3.8 KiB
FortranFixed
|
subroutine cmo_get_default_attparam(
|
||
|
|
* ctype,crank,clen,cinter,cpers,cio,
|
||
|
|
* ierror_return)
|
||
|
|
C
|
||
|
|
C
|
||
|
|
C#######################################################################
|
||
|
|
C
|
||
|
|
C PURPOSE -
|
||
|
|
C
|
||
|
|
C This routine returns Mesh Object definition.
|
||
|
|
C
|
||
|
|
C INPUT ARGUMENTS -
|
||
|
|
C
|
||
|
|
C
|
||
|
|
C OUTPUT ARGUMENTS -
|
||
|
|
C
|
||
|
|
C ctype - Attribute type.
|
||
|
|
C crank - Attribute rank.
|
||
|
|
C clen - Attribute length.
|
||
|
|
C cinter - Attribute interpolation
|
||
|
|
C cpers - Attribute persistence.
|
||
|
|
C cio - Attribute io file flags
|
||
|
|
C ierror_return - Error Return Code (==0 ==> OK, <>0 ==> Error).
|
||
|
|
C
|
||
|
|
C CHANGE HISTORY -
|
||
|
|
C
|
||
|
|
C $Log: cmo_get_default_attparam.f,v $
|
||
|
|
C Revision 2.00 2007/11/05 19:45:48 spchu
|
||
|
|
C Import to CVS
|
||
|
|
C
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.1 Thu Jan 20 14:50:54 2000 dcg
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.19 Tue Oct 06 16:48:40 1998 dcg
|
||
|
|
CPVCS make equivalent node attributes imt,imt1, itp,itp1,
|
||
|
|
CPVCS icr,icr1,...
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.18 Wed Dec 17 11:25:10 1997 dcg
|
||
|
|
CPVCS declare iout as a pointe
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.17 Mon Apr 14 16:41:12 1997 pvcs
|
||
|
|
CPVCS No change.
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.16 Wed Mar 06 16:44:04 1996 dcg
|
||
|
|
CPVCS print error messages if idebug=1
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.15 09/14/95 12:09:18 dcg
|
||
|
|
CPVCS replace character literals in call argument lists
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.14 09/13/95 14:32:16 het
|
||
|
|
CPVCS Correct an error
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.13 09/11/95 14:44:00 het
|
||
|
|
CPVCS Change to the storage block based CMO stuff.
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.12 08/30/95 21:08:46 het
|
||
|
|
CPVCS Put cmo table data into the cmoatt storage block
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.11 05/22/95 15:28:24 ejl
|
||
|
|
CPVCS Added nfaces and nedges.
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.10 03/15/95 15:22:58 ejl
|
||
|
|
CPVCS Finished installing the defaults.
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.9 02/16/95 09:56:14 ejl
|
||
|
|
CPVCS Fixed bugs, fixed hole in the Create command.
|
||
|
|
CPVCS Added commands MODATT, LENGTH, MEMORY, & COMPRESS.
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.8 02/10/95 14:07:24 ejl
|
||
|
|
CPVCS Fix bugs left from last update
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.6 01/30/95 06:22:12 het
|
||
|
|
CPVCS Fix several cmo errors
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.5 01/24/95 08:52:42 het
|
||
|
|
CPVCS Add error checking to the cmo routines.
|
||
|
|
CPVCS
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.4 01/04/95 22:01:34 llt
|
||
|
|
CPVCS unicos changes (made by het)
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.3 12/09/94 22:50:58 het
|
||
|
|
CPVCS Made changes to support the new cmo_ routines.
|
||
|
|
CPVCS
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.2 12/01/94 18:58:44 het
|
||
|
|
CPVCS Added a data variable type to the call.
|
||
|
|
CPVCS
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.1 11/28/94 14:14:44 het
|
||
|
|
CPVCS Add the "mbndry" option.
|
||
|
|
CPVCS
|
||
|
|
CPVCS Rev 1.0 11/14/94 12:04:50 het
|
||
|
|
CPVCS Original Version
|
||
|
|
C
|
||
|
|
C#######################################################################
|
||
|
|
C
|
||
|
|
implicit none
|
||
|
|
C
|
||
|
|
C#######################################################################
|
||
|
|
C
|
||
|
|
include 'cmo_lg.h'
|
||
|
|
C
|
||
|
|
C#######################################################################
|
||
|
|
C
|
||
|
|
character*32 partname,ctype,clen,crank,cinter,cpers,cio
|
||
|
|
C
|
||
|
|
integer ierror_return
|
||
|
|
C
|
||
|
|
C#######################################################################
|
||
|
|
C
|
||
|
|
C LOCAL VARIABLE DEFINITION
|
||
|
|
C
|
||
|
|
integer i, len, ierr, icscode,length,icmo_index, natts
|
||
|
|
C
|
||
|
|
character*132 logmess
|
||
|
|
|
||
|
|
C
|
||
|
|
C#######################################################################
|
||
|
|
C
|
||
|
|
partname='default_cmo_lg'
|
||
|
|
call mmfindbk('cmo_attlist',partname,ipcmo_attlist,
|
||
|
|
* len,icscode)
|
||
|
|
|
||
|
|
|
||
|
|
ctype =cmo_attlist(2)
|
||
|
|
crank =cmo_attlist(3)
|
||
|
|
clen =cmo_attlist(4)
|
||
|
|
cinter=cmo_attlist(5)
|
||
|
|
cpers =cmo_attlist(6)
|
||
|
|
cio =cmo_attlist(7)
|
||
|
|
|
||
|
|
|
||
|
|
C
|
||
|
|
9999 return
|
||
|
|
end
|