! Loop through epoxy values

mkasc=1     ! Flag to tell rplot_nodal to make PSI-Plot output files
ar12=1

! Varying epoxy thickness
*do,ar10,.01,.05,.002

    ! Loop through Sleeve thickness
    !*do,ar11,.06,.14,.02
    *do,ar11,.15,.15,.02
        tc,ar11,ar10

        ! Make plots of radial defelection as a function of angular position
        csys,CS11
        nsel,s,loc,x,r_mal_i
        mkdat=1     ! Flag to tell rplot_nodal to make PSI-Plot output files
        rplot_nodal,CS11,'y','u','x'
        /rename,rplot_nodal,dat,,tc%ar12%,dat
        ar12=ar12+1
    *enddo

*enddo