!   TITLE:  m_band.mac (AAAV)
!
!-----------------------------------------------------------------------
!       Rev -   02/5/2003       D. Edwards
!-----------------------------------------------------------------------
!
!   Find the natural frequecny of the band for multiple tensions and
!   band thicknesses.
!
!-----------------------------------------------------------------------

tstart

! Define range of screw torques to loop through
*dim,Torque_,array,11
Torque_(1)=0.0,0.005,0.01,0.05,0.10,0.5,1.0,1.5,2.0,3.0,4.0
parsav,all

*do,thick,.002,.008,.003        ! Range of band thicknesses
    *do,AR20,1,11,1
        band_modal,Torque_(AR20),thick
        parres,change
    *enddo
*enddo

tstop