STOP
AUTZER
REFPRB (XOF=0, YOF=0, ZOF=-170, DIA=5, PRB=PRB(1), PHA=0, PHB=0, DEL=Y, DFT=2 , CSY=CALR$CSY)
LISPRB
CPYPRB
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! BLDCSY
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
USEPRB (NAM=PRB(1))
MEPLA (NAM=MA_PLA, CSY=CMMA$CSY, MOD=NOE, DEL=Y)
MECIR (NAM=MA_CIR1, CSY=CMMA$CSY, PRO=MA_PLA, MOD=NOE, DEL=Y)
MECIR (NAM=MA_CIR2, CSY=CMMA$CSY, PRO=MA_PLA, MOD=NOE, DEL=Y)
COLPTS (NAM=MA_AXI_X, CSY=CMMA$CSY, ELE=(MA_CIR1,MA_CIR2), TYP=AXI)
BLDCSY (NAM=MA_CSY, SPA=MA_PLA, SDR=Z, PLA=MA_AXI_X, PDR=X, XZE=MA_CIR1, YZE=MA_CIR1, ZZE=MA_PLA)
GENCIR (NAM=PLA_Z, XCO=0, YCO=0, ZCO=1, DIA=140, NPT=8, INO=P, PDI=5, CSY=MA_CSY, ZVL=15)
MEPLA (NAM=PLA_Z, CSY=MA_CSY)
GENCIR (NAM=CIR1, XCO=0, YCO=0, ZCO=-5, DIA=100, NPT=20, CSY=MA_CSY, ZVL=20)
MECIR (NAM=CIR1, CSY=MA_CSY)
GENCIR (NAM=CIR2, XCO=50, YCO=0, ZCO=-5, DIA=8, NPT=20, CSY=MA_CSY, ZVL=20)
MECIR (NAM=CIR2, CSY=MA_CSY)
COLPTS (NAM=AXI_X, CSY=MA_CSY, ELE=(CIR1,CIR2), TYP=AXI)
BLDCSY (NAM=M_CSY, SPA=PLA_Z, SDR=Z, PLA=AXI_X, PDR=X, XZE=CIR, YZE=CIR, ZZE=PLA_Z)
ALROT (NEW=CSY, OLD=M_CSY, ANG=20, AXI=Z, DTY=CSY, USE=Y)
ME2DE (NAM=ACT, CSY=CSY, INO=O, DEL=N)
STOP
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! ACNO2D
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
RCOR2D (SRC=ACT, DST=ACT_A, OPN=Y, CLW=N, RAD=2.5-35/2)
ACNO2D (ACT=ACT_A, NOM=NOM, RES=RES)
CURVE_P (ELE=RES, FAC=500, FRM=N)
BFTS2D (ACT=ACT_A, NOM=NOM, RES=RES_R, TRA=TRA, FIX=(N,N,N), AOP=Y, NOP=Y, ACW=N, NCW=N)
ACNO2D (ACT=RES_R, NOM=NOM, RES=REA)
CURVE_P (ELE=REA, OPN=Y, FAC=500, PTO=0.01, NTO=-0.01, FRM=N)