// JOB VSB027,,10000,10000
// OPTION SYSDUMP
// OPR '*****VSB027A**-BEGIN-TO-COMPILE-VSFOR3'
// WORK1
// DVC 20  // LFD PRNTR
// EXEC FOR
// PARAM LST=W,OPT=X
/$
      PROGRAM  VSFOR3
C     FORTRAN 1V VSFOR3   ( A.S.A. 6.1 )                                00047100
C                       COMPLEX PRIMARY RAISED TO INTEGER PRIMARY POWER.00047200
C     THE RESULT IS COMPLEX. VSFOR3 USES THE FUNCTIONS SIN AND COS .    00047300
      COMPLEX C1,C2,C3, C(3), CA(7), C4                                 00047400
      DIMENSION  L(2)                                                   00047500
      INTEGER P                                                         00047600
      I= 2                                                              00047800
      J= 3                                                              00047900
      K= 4                                                              00048000
      C1= ( 4.0,3.0 )                                                   00048100
      C2= ( 2.0,1.0 )                                                   00048200
      C3= ( 2.0,2.0 )                                                   00048300
      C4= ( 8.0,6.0 )                                                   00048400
      C(1)= ( 6.0,5.0 )                                                 00048500
      C(2)= ( 4.0,-3.0 )                                                00048600
      C(3)= ( 2.0,2.0 )                                                 00048700
      L(1)= 2                                                           00048800
      L(2)= 1                                                           00048900
      CA(1)= ( 4.0,3.0 ) ** 2                                           00049000
      CA(2)= ( 4.0,3.0 ) ** I                                           00049100
      CA(3)= C1 ** L(1)                                                 00049200
      CA(4)= C1 ** 2                                                    00049300
      CA(5)=( C(3)+C2 )** (J-1)                                         00049400
      CA(6)=( C(1)-C(3)) ** ( L(2)+1 )                                  00049500
      CA(7)= ( C4/C1 + ( 2.0,3.0 )) ** ( K/2 )                          00049600
      DO 10 I=1,7                                                       00049700
      IF(CABS(CA(I)).NE.25.)PRINT11,I,CA(I)                             00049800
10    CONTINUE                                                          00049900
11    FORMAT(' ','CA(',I2,')=',2(Z8,1X))                                00050000
      I=1                                                               00050100
      CA(1)= ( C1 * C(2) ) ** ( 2*K-6 )                                 00050200
      IF(CABS(CA(I)).NE.625)PRINT11,I,CA(I)                             00050300
      CA(1)=( ( 2.0*C1)/(C2+C3)) ** ( ( 8*L(2)-4)/ 2 )                  00050400
      IF(CABS(CA(I)).NE.4.00) PRINT11,I,CA(I)                           00050500
      CONTINUE                                                          00050600
      STOP                                                              00050700
      END                                                               00050800
/*
// OPR '*****VSB027B**-BEGIN-TO-LINK-AND-LOAD-VSFOR3'
// WORK1
// DVC 50  // VOL SDIVSB  // LBL VSBLIB  // LFD LOAD
// EXEC LNKEDT
// PARAM OUT=LOAD
/$
 LOADM VSFOR3
 INCLUDE VSFOR3
/*
// OPR '*****VSB027C**-BEGIN-EXEC-VSFOR3'
// EXEC VSFOR3,LOAD
/&
