! TITLE:  array_copy_test.mac (MANAGEMENT)
!
!---------------------------------------------------------------------------
!   Rev -   03/04/02    J. Judd
!---------------------------------------------------------------------------
!
! OBJECTIVE:  
!
!   tests [array_copy.mac] for various inputs
!
! COMMAND SYNTAX:
!
!   array_copy_test
!
! ARGUMENTS:
!
!   none
!   
! DESCRIPTION:
!
! WARNINGS:
!
!  - Error trapping will not work in ANSYS ED
!
!---------------------------------------------------------------------------
!
fini
/clear,start
!---
*ASK,stop,Need to look at output window for STAT outputs,0
*IF,stop,EQ,1,THEN
   *go,:stop
*ENDIF
!---
array_copy,X,'Y'
*ASK,stop,(array_copy,X,'Y') Abort. Array names not in single quotes?,0
*IF,stop,EQ,1,THEN
   *go,:stop
*ENDIF
!---
array_copy,'X','Y'
*stat,X
*ASK,stop,Abort. X not defined?,0
*IF,stop,EQ,1,THEN
   *go,:stop
*ENDIF
!---
E=1
array_copy,'E','F'
*stat,E
*ASK,stop,E=%E%. Abort because E is scalar?,0
*IF,stop,EQ,1,THEN
   *go,:stop
*ENDIF
!---
G='junk'
array_copy,'G','H'
*stat,G
*ASK,stop,G=%G%. Abort because G is character scalar?,0
*IF,stop,EQ,1,THEN
   *go,:stop
*ENDIF
!----
*DIM,A,array,3
A(1)=1,2,3
array_copy,'A','B'
*stat,A
*stat,B
*ASK,stop,A=B?,0
*IF,stop,EQ,1,THEN
   *go,:stop
*ENDIF
!----
*DIM,model,char,5
model(1)='nut','bolt','boltlock','hand','arm'
array_copy,'model','part'
*stat,model
*stat,part
*ASK,stop,model=part?,0
*IF,stop,EQ,1,THEN
   *go,:stop
*ENDIF
!-----
*DIM,C,array,5,5
C(1,1)=11,21,31,41,51
C(1,2)=12,22,32,42,52
C(1,3)=13,23,33,43,53
C(1,4)=14,24,34,44,54
C(1,5)=15,25,35,45,55
array_copy,'C','D'
*stat,C
*stat,D
*ASK,stop,C=D?,1
*IF,stop,EQ,1,THEN
   *go,:stop
*ENDIF
!-----
:stop
!-----