!   TITLE:  cs_file.mac (MANAGEMENT)
!
!
!   This sub-macro is used to file coordinate system character parameter
!   names and their cooresponding c.s. number values.  It is called by
!   MOD_COORD_SYSTEM.MAC and CREATE_CS.MAC macro commands.  It then
!   reinitializes these parameters for use in the next model sets.
!
!           mcs_enbl = model coordinate system enable.  This parameter
!                      enables the use of the line code below that
!                      accomodates the input of CT_NAME, CYL_NAME and
!                      SPH_NAME into the coordinate system array, CS_ARRY.MAC.
!
!
!
*get,prkey_,active,0,prkey
/nopr

mcs_enbl=arg1
!
!
*if,csn,le,14,then
    !
    *dim,cs_arry,char,csn-11
    *dim,cs_buff,char,(csn-11)+1
    !
    *dim,cs_arryv,array,csn-11
    *dim,cs_buffv,array,(csn-11)+1
    !
    cs_arry((csn-11)-2,1)=ct_name
    cs_arry((csn-11)-1,1)=cyl_name
    cs_arry((csn-11)-0,1)=sph_name
    !
    cs_arryv((csn-11)-2,1)=%ct_name%
    cs_arryv((csn-11)-1,1)=%cyl_name%
    cs_arryv((csn-11)-0,1)=%sph_name%
    !
*else
    !
    *if,mcs_enbl,eq,0,then
        *do,mnz,1,(csn-11)-1,1
            cs_buff(mnz,1)=cs_arry(mnz,1)
            cs_buffv(mnz,1)=cs_arryv(mnz,1)
        *enddo
        !
        cs_buff(csn-11,1)=cs_nam
        cs_buffv(csn-11,1)=%cs_nam%
        !
        *set,cs_arry(1),
        *set,cs_arryv(1),
        !
        *dim,cs_arry,char,csn-11
        *dim,cs_arryv,array,csn-11
        !
        *do,mnz,1,csn-11,1
            cs_arry(mnz,1)=cs_buff(mnz,1)
            cs_arryv(mnz,1)=cs_buffv(mnz,1)
        *enddo
        !
        *set,cs_buff(1),
        *set,cs_buffv(1),
        !
        *dim,cs_buff,char,(csn-11)+1
        *dim,cs_buffv,array,(csn-11)+1
    *else
        *set,cs_buff(1),
        *set,cs_buffv(1),
        !
        *dim,cs_buff,char,csn-11
        *dim,cs_buffv,array,csn-11
        !
        *do,mnz,1,(csn-11)-3,1
            cs_buff(mnz,1)=cs_arry(mnz,1)
            cs_buffv(mnz,1)=cs_arryv(mnz,1)
        *enddo
        !
        cs_buff((csn-11)-2,1)=ct_name
        cs_buff((csn-11)-1,1)=cyl_name
        cs_buff((csn-11)-0,1)=sph_name
        !
        cs_buffv((csn-11)-2,1)=%ct_name%
        cs_buffv((csn-11)-1,1)=%cyl_name%
        cs_buffv((csn-11)-0,1)=%sph_name%
        !
        *set,cs_arry(1),
        *set,cs_arryv(1),
        !
        *dim,cs_arry,char,csn-11
        *dim,cs_arryv,array,csn-11
        !
        *do,mnz,1,csn-11,1
            cs_arry(mnz,1)=cs_buff(mnz,1)
            cs_arryv(mnz,1)=cs_buffv(mnz,1)
        *enddo
        !
        *set,cs_buff(1),
        *set,cs_buffv(1),
        !
        *dim,cs_buff,char,(csn-11)+1
        *dim,cs_buffv,array,(csn-11)+1
    *endif
*endif
!
*set,mcs_enbl,
*set,mnz,

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