! TITLE:  rctwrc_test.mac  (VERIFICATION)
!
!---------------------------------------------------------------------------
!   Rev -     03/13/2002    J. Judd
!---------------------------------------------------------------------------
! OBJECTIVE:
!   Test [rctwrc.mac] Rev E
!
! COMMAND SYNTAX:
!   Paste sections into command line
!
! ARGUMENTS:
!   none  
!    
! DESCRIPTION:
!   Provides tests for functions and error checking contained in [rctwrc.mac]
!   revision E.
!   
! WARNING:
!
! EXAMPLES:
!
! TO BE DONE:
!
!---------------------------------------------------------------------------
    mod_assemb_prep
     rctwrc,0,1,0,2,3,3,0.25,,3,1,2,3,4,5   !X-Y plane
     rctwrc,0.25,0.75,0.5,1.5,3,3,0.125,am,3,1,2,3,4,5   !cut from above  
     rctwrc,0,1,2,2,0,3,,,3,1,2,3,4         !X-Z plane
     rctwrc,1,1,0,2,0,3,0.25,,3,1,2,3,4,5   !Y-Z plane
     rctwrc,1,1,.5,1.5,1,2,0.15,am,3,1,2,3,4,5  !cut from above 

    mod_assemb_prep
     rctwrc,0,1,0,2,3,3,0.25,,3,1,2,3,4,5   !X-Y plane
     rctwrc,0.25,0.75,0.5,1.5,3,3,0.125,,3,1,2,3,4,5
     rctwrc,0.35,0.6,0.7,1.3,3,3,,-1      !subtract from currently selected = all

    mod_assemb_prep
     rctwrc,0,1,0,2,3,3,0.25,,3,1,2,3,4,5   !X-Y plane
     rctwrc,0.25,0.75,0.5,1.5,3,3,0.125,,3,1,2,3,4,5
     asel,u,area,,2
     rctwrc,0.35,0.6,0.7,1.3,3,3,,-1      !subtract from currently selected = area 1

    mod_assemb_prep,1
     rctwrc,-1,2,-1,3,3,3,0.25,,3,1,2,3,4,5
     finalize_model_data
    mod_assemb_prep
     rctwrc,0,1,0,2,3,3,0.25,,3,1,2,3,4,5   !X-Y plane
     rctwrc,0.25,0.75,0.5,1.5,3,3,0.125,,3,1,2,3,4,5
     asel,all
     rctwrc,0.35,0.6,0.7,1.3,3,3,,-2      !subtract from current part         

    mod_assemb_prep,1
     rctwrc,-1,2,-1,3,3,3,0.25,,3,1,2,3,4,5
     finalize_model_data
    mod_assemb_prep
     rctwrc,0,1,0,2,3,3,0.25,,3,1,2,3,4,5   !X-Y plane
     rctwrc,0.25,0.75,0.5,1.5,3,3,0.125,,3,1,2,3,4,5
     asel,all
     rctwrc,0.35,0.6,0.7,1.3,3,3,,-3      !subtract from all areas 
     !Note: component volume part1_ is deleted        

    mod_assemb_prep
    rctwrc,0,1,0,2,3,3,-0.25,,3,1,2,3,4,5   !Warning negative radius
     rctwrc,0,1,2,2,0,3,1,,3,1,2,3,4         !Warning radius too large
     csys,1
     rctwrc,1,1,0,2,0,3,0.25,,3,1,2,3,4,5   !Warning, Theta-Z radius TBD
     csys,0
     rctwrc,0,1,2,2,0,3,0,,2,1,2,3,4        !Warning, line division not 1, 3, blank, or zero