! TITLE:    parm_vals.mac (MANAGEMENT)
!
!
! OBJECTIVE:
!
!   Get multiple parameter values from part parameter storage array.
!
! COMMAND SYNTAX:
!
!                (1)        (2)      (3)      (4)             (19)
!   parm_vals, 'mod_name', 'parm1', 'parm2', 'parm3', .... , 'parm18'
!
!   Note: arguments in single quotes are strings and must be entered in ' '.
!
! ARGUMENTS:
!
!   (1) mod_name = model name refering to the part associated with array.  
!                  This is the name stored in the array 'MODEL'.  It is not
!                  the name of the storage array.
!
!   (2) parm1
!    ...parm18 = new parameter name which must be the same as the stored 
!                parameter name.  If not the same use parm_val. 
!   
!
! DESCRIPTION:
!
!   Gets multiple parameter values from part parameter storage array.
!
!   The storage array associated with a part is created via [mod_assemb_prep] 
!   and [finalize_model_data].
!
!   Tool is like parm_val except for the following:
!   - can retrieve up to 18 parameters from an array with one command.
!   - new and stored parameter name must be the same.
!   - no default value
!
! EXAMPLES:
!
!   See parm_vals_test.mac
!
! WARNING:
! 
!   - The number of arguments is limited by a maximum command line length which
!     is equal to __ characters.
!
!  TO BE DONE:
!
!
*get,ar70,CMD,0,nargs

*get,ar67,active,0,prkey
/nopr

*do,ar22,2,ar70-1
   *if,ar22,LT,10,THEN
       ar50='arg%ar22%'
       parm_val,arg1,%ar50%,%ar50%
   *elseif,ar22,GE,10,THEN
       ar50='ar%ar22%'
       parm_val,arg1,%ar50%,%ar50%
   *endif
*enddo

*if,ar67,eq,1,then
    /go
*endif
/eof