The following table provides available body load keys for the routines used to access
nodal body load information (ansNodeBodyLoadIqr,
ansNodeBodyLoadGet, ansNodeBodyLoadPut,
and ansNodeBodyLoadDel).
Table 3.1: Nodal Body Load Keys
| Key | Internal Label | BF Cmd Label | Meaning |
|---|---|---|---|
| 1 | BODYLOAD_TEMP | TEMP | Temperature |
| 2 | BODYLOAD_FLUE | FLUE | Fluence |
| 3 | BODYLOAD_HGEN | HGEN | Heat generation |
| 4 | BODYLOAD_DGEN | DGEN | Diffusing substance genereation rate |
| 5 | BODYLOAD_MVDI | MVDI | Magnetic virtual displacement flags |
| 6 | BODYLOAD_CHRG | CHRDG | Magnetic virtual displacement flags |
| 11 | BODYLOAD_PORT | PORT | Interior waveguide/transmission line port |
| 14 | BODYLOAD_VMEN | VMEN | Mean flow |
| 16 | BODYLOAD_IMPD | IMPD | Impedance sheet |
| 18 | BODYLOAD_FSOU | FSOU | Fluid flow source |
| 20 | BODYLOAD_VELO | VELO | Velocity |
| 21 | BODYLOAD_MASS | MASS | Mass source |
| 22 | BODYLOAD_SPRE | SPRE | Static pressure |
| 23 | BODYLOAD_FPBC | FPBC | Flouqet periodic phase |
| 25 | BODYLOAD_UFOR | UFOR | Force potential (same slot as EF) |
| 26 | BODYLOAD_HFLW | HFLW | Heat flow (same slot as EF) |
| 27 | BODYLOAD_SFOR | SFOR | Shear force (same slot as VELO) |
*deck,disiqr
function disiqr (node,key)
c *** primary function: get information about constraints
c *** Notice - This file contains ANSYS Confidential information ***
c input arguments:
c node (int,sc,in) - node number for inquire.
c key (int,sc,in) - key as to the information needed
c = 1 - return constraint mask
c = DB_MAXDEFINED,
c DB_NUMDEFINED - return number of nodal constraints
c NOTE: both DB_MAXDEFINED and
c DB_NUMDEFINED produce the same
c functionality
c output arguments:
c disiqr (int,func,out) - the returned value of disiqr is based on
c setting of key.
*deck,disget
function disget (inode,idf,value)
c *** primary function: get a constraint from the data base (in raw form)
c *** Notice - This file contains ANSYS Confidential information ***
c input arguments:
c variable (typ,siz,intent) description
c inode (int,sc,in) - node number (negative value for no
c partabeval)
c idf (int,sc,in) - reference number for the DOF: (1-32)
c UX = 1, UY = 2, UZ = 3, ROTX= 4, ROTY= 5, ROTZ= 6, AX = 7, AY = 8
c AZ = 9, VX =10, VY =11, VZ =12, GFV1=13, GFV2=14, GFV3=15, WARP=16
c CONC=17, HDSP=18, PRES=19, TEMP=20, VOLT=21, MAG =22, ENKE=23, ENDS=24
c EMF =25, CURR=26, SP01=27, SP02=28, SP03=29, SP04=30, SP05=31, SP06=32
c (missing entries are spares)
c output arguments:
c disget (int,func,out) - status of constraint.
c = 0 - no constraint on this node
c for this DOF
c = 4 - this node has a constraint
c defined for this DOF
c = -4 - this node has a pseudo-support
c defined for this DOF
c value (dp,ar(4),out) - constraint values
c value(1-2) - (real,imag) values of present settings
c value(3-4) - (real,imag) values of previous settings
*deck,disput
subroutine disput (node,idf,value)
c *** primary function: store a constraint at a node.
c *** Notice - This file contains ANSYS Confidential information ***
c input arguments:
c node (int,sc,in) - node number
c idf (int,sc,in) - reference number of DOF: (1-32)
c UX = 1, UY = 2, UZ = 3, ROTX= 4, ROTY= 5, ROTZ= 6, AX = 7, AY = 8
c AZ = 9, VX =10, VY =11, VZ =12, GFV1=13, GFV2=14, GFV3=15, WARP=16
c CONC=17, HDSP=18, PRES=19, TEMP=20, VOLT=21, MAG =22, ENKE=23, ENDS=24
c EMF =25, CURR=26, SP01=27, SP02=28, SP03=29, SP04=30, SP05=31, SP06=32
c value (dp,ar(2),in) - (real,imag) values for constraint
c output arguments: none.
*deck,disdel
subroutine disdel (node,idf)
c *** primary function: delete a constraint at a node
c *** Notice - This file contains ANSYS Confidential information ***
c input arguments:
c node (int,sc,in) - node number.
c idf (int,sc,in) - reference number of DOF: (1-32)
c UX = 1, UY = 2, UZ = 3, ROTX= 4, ROTY= 5, ROTZ= 6, AX = 7, AY = 8
c AZ = 9, VX =10, VY =11, VZ =12, GFV1=13, GFV2=14, GFV3=15, WARP=16
c CONC=17, HDSP=18, PRES=19, TEMP=20, VOLT=21, MAG =22, ENKE=23, ENDS=24
c EMF =25, CURR=26, SP01=27, SP02=28, SP03=29, SP04=30, SP05=31, SP06=32
c output arguments: none.
*deck,foriqr
function foriqr (node,key)
c *** primary function: get information about nodal loads.
c *** Notice - This file contains ANSYS Confidential information ***
c input arguments:
c node (int,sc,in) - number of node being inquired about.
c should be 0 for key=DB_MAXDEFINED or
c DB_NUMDEFINED
c key (dp,sc,in) - key as to information needed
c = 1 - return force mask for node
c = DB_MAXDEFINED,
c DB_NUMDEFINED - return number of nodal loadings
c in model
c NOTE: both DB_MAXDEFINED and DB_NUMDEFINED
c produce the same functionality
c output arguments:
c foriqr (int,func,out) - the returned value of foriqr is based on
c setting of key.
*deck,forget
function forget (inode,idf,value)
c *** primary function: get a force from the data base (in raw form)
c *** Notice - This file contains ANSYS Confidential information ***
c input arguments:
c inode (int,sc,in) - node number (negative value for no
c partabeval)
c idf (int,sc,in) - reference number for the DOF: (1-32)
c (see echprm.inc)
c output arguments:
c forget (int,func,out) - status of constraint.
c = 0 - no loading on this node for this DOF
c = 4 - this node has a loading for this DOF
c value (dp,ar(4),out)
c value(1-2) - (real,imag) values of present settings
c value(3-4) - (real,imag) values of previous settings
*deck,forput
subroutine forput (node,idf,value)
c *** primary function: store a nodal load at a node
c *** Notice - This file contains ANSYS Confidential information ***
c input arguments:
c node (int,sc,in) - node number
c idf (int,sc,in) - reference number for the DOF: (1-32)
c FX = 1, FY = 2, FZ = 3, MX = 4, MY = 5, MZ = 6, CSGX= 7, CSGY= 8
c CSGZ= 9, VFX =10, VFY =11, VFZ =12
c RATE=17 FLOW=19, HEAT=20, AMPS=21, FLUX=22, NPKE=23, NPDS=24
c CURT=25, VLTG=26 (missing entries are spares)
c value (dp,ar(2),in) - (real,imag) values of force
c output arguments: none.
*deck,fordel
subroutine fordel (node,idf)
c *** primary function: delete a nodal load at a node
c *** secondary functions: none.
c *** Notice - This file contains ANSYS Confidential information ***
c typ=int,dp,log,chr,dcp siz=sc,ar(n),func intent=in,out,inout
c input arguments:
c variable (typ,siz,intent) description
c node (int,sc,in) - node number
c idf (int,sc,in) - reference number for the DOF: (1-32)
c FX = 1, FY = 2, FZ = 3, MX = 4, MY = 5, MZ = 6, CSGX= 7, CSGY= 8
c CSGZ= 9, VFX =10, VFY =11, VFZ =12
c RATE=17, FLOW=19, HEAT=20, AMPS=21, FLUX=22, NPKE=23, NPDS=24
c CURT=25, VLTG=26 (missing entries are spares)
c output arguments:
c none.
*deck,ansNodeBodyLoadIqr
function ansNodeBodyLoadIqr (BODYLOAD_KEY,node,key)
c *** primary function: get information about a nodal body load
c *** Notice - This file contains ANSYS Confidential information ***
c typ=int,dp,log,chr,dcp siz=sc,ar(n),func intent=in,out,inout
c input arguments:
c variable (typ,siz,intent) description
c BODYLOAD_KEY (int,sc,in) - body load key (ansysdef.inc)
c node (int,sc,in) - node number
c should be zero for key=2
c key (int,sc,in) - key for operation
c = 1 - return nodal body load status
c ansNodeBodyLoadIqr
c = 0 - node has no body load defined
c = 1 - node has a body load defined
c = 2 - return total number of nodal body
c load with BODYLOAD_KEY defined in model
c output arguments:
c ansNodeBodyLoadIqr (int,func,out) - the returned value of ansNodeBodyLoadIqr
c z is based on setting of key.
*deck,ansNodeBodyLoadGet
function ansNodeBodyLoadGet (BODYLOAD_KEY,node,val)
c *** primary function: get specified nodal load
c *** Notice - This file contains ANSYS Confidential information ***
c input arguments:
c BODYLOAD_KEY (int,sc,in) - body load key (see ansysdef.inc)
c node (int,sc,in) - node number
c output arguments:
c ansNodeBodyLoadGet (int,func,out) - nodal load status of node.
c = 0 - nodal load undefined
c = 1 - nodal load is defined
c val (dp,ar(*),out) - the nodal load (new,old)
*deck,ansNodeBodyLoadPut
subroutine ansNodeBodyLoadPut (BODYLOAD_KEY,node,nval,val)
c *** primary function: store nodal body loads
c *** Notice - This file contains ANSYS Confidential information ***
c input arguments:
c BODYLOAD_KEY(int,sc,in) - body load key (see ansysdef.inc)
c node (int,sc,in) - node number
c nval (int,sc,in) - number of values to put
c val (dp ,ar(*),in) - nodal loads
c output arguments: none.
*deck,ansNodeBodyLoadDel
subroutine ansNodeBodyLoadDel (BODYLOAD_KEY,node)
c *** primary function: delete node body loads
c *** Notice - This file contains ANSYS Confidential information ***
c
c input arguments:
c variable (typ,siz,intent) description
c BODYLOAD_KEY (int,sc,in) - body load key (see ansysdef.inc)
c node (int,sc,in) - node number
c
c output arguments:
c none
c