!   TITLE:  msh_transition.mac (MESH)
!
!
!   OBJECTIVE:
!
!   This sub-macro is a (simplified) version of MESH_ALGORITHM.MAC for the
!   purpose of transition free-meshing volumes which are not able to be
!   map-meshed or sweep meshed.
!
!
!   COMMAND SYNTAX:
!
!                        (1)   (2)    (3)    (4)    (5)
!       MSH_TRANSITION, etpv, elmnl, elmxl, mtrl, mshdens
!
!
!   ARGUMENTS:
!
!       (1) etpv = element type for volume (transition) meshing
!
!       (2) elmnl = element minimum edge length
!
!       (3) elmxl = element maximum edge length
!
!       (4) mtrl = element material properties #.
!
!       (5) mshdens = mesh density. If the desired mesh density is coarse or
!                     fine, this parameter will create the desired mesh. This
!                     aids in keeping element aspect ratios to reasonable
!                     values.
!
!                     The line sizing algorithm sizes all lines in accordance
!                     with the following criteria:
!
!                       a.) lines < or = 2.5*ELMNL (minimum element edge
!                           length) are sized 2 divisions.
!
!                       b.) 0 (or blank) = fine mesh density
!
!                           1 = coarse mesh density
!
!                           N = user defined divisions for all lines less
!                               than or equal to 3*ELMNL.
!
!                           (e.g., for stress analysis, the desired mesh
!                               density is fine; and for dynamic analysis,
!                               the desired mesh density is coarse)
!
!                       If MSHDENS is assigned any numerical value (N) other
!                       than 0 or 1, then any line that is less than or equal
!                       to 3 times ELMNL is sized N line divisions.
!
!
!   DESCRIPTION:
!
!   This macro may be used to execute MSH_ALGORITHM for transition meshing volumes
!   that can not be mapped or sweep meshed.
!
!   Its use alleviates the cumbersome task of determining which arguments to
!   specify in MSH_ALGORITHM. In transition meshing, most arguments are not used.
!   Therefore, this macro simplifies volume transition mesh operations with a
!   simpler macro with only the necessary arguments.
!
!   See MSH_ALGORITHM documentation for an in-depth explanation of its use.
!
!
!
!
*get,prkey_,active,0,prkey
/nopr
!
etypv__=arg1
mnl__=arg2
mxl__=arg3
mat__=arg4
mdens__=arg5
!
*if,mat__,eq,0,then
    mat__=1
*endif
!
!                     (1)      (2)     (3)     (4)      (5)       (6)     (7)
!    MSH_ALGORITHM, perflsz, perfmsh, mstyp, mshdens, elmszovr, atargov, etpa,
!
!                   etpv, elmnl, elmxl, mtrl,  rl,  ecs, volsel, radrot,
!                   (8)    (9)    (10)  (11)  (12)  (13)  (14)    (15)
!
!                   varcang, ell
!                    (16)    (17)
!
!
msh_algorithm,1,5,,mdens__,,,,etypv__,mnl__,mxl__,mat__
!
!
*set,mdens__,
*set,etypv__,
*set,mnl__,
*set,mxl__,
*set,mat__,
!
*if,prkey_,eq,1,then
    /go
*endif