!   TITLE:  mod_info.mac (MANAGEMENT)
!
!
!   This sub-macro displays the current model information.  Options for
!   information on models are:
!
!           1 = the last eight model names in the current database, in order.
!
!           2 = the last eight parameter file arrays in the current database,
!               in order.
!
!           3 = the current model coordinate system names
!
!
*get,prkey_,active,0,prkey
/nopr

!
!*if,modl_num,lt,8,then
!diff_=modl_num-
!multipro,'start',1
    !*cset,1,3,_opt,'Enter Information Option',0
    !*cset,61,62,'Enter the type of model inform','ation desired - 1 = model names'
    !*cset,63,64,'2 = parameter array names - 3',' = model C.S. names'
!multipro,'end'
!
!*stat,cs_arry
*list,block,parm

*go,:skip

*if,_opt,eq,1,then
    *msg,ui,'KM',%km%,'LM',%lm%,'AM',%am%,'VM',%vm%
    %c = %i&
    %c = %i&
    %c = %i&
    %c = %i
*endif
!
*if,decision,eq,1,then
    *msg,ui,'NM',%nm%,'EM',%em%
    %c = %i&
    %c = %i
*endif


*if,prkey_,eq,1,then
    /go
*endif