*TRATEST *----------------------------------------------------------------------- *----------------------------------------------------------------------- INTERNAL *----------------------------------------------------------------------- tra trabns integer mnum, ier sol bnssol * real tra(12) init 1 3*0 1 3*0 1 3*0 * real tra(12) init 1 4*0 1 4*0 1 0 real tra(12) char*4 ident undeflm gprdel,cstdel,ditdel *integer gprdel,cstdel,ditdel *----------------------------------------------------------------------- EXTERNAL *----------------------------------------------------------------------- *----------------------------------------------------------------------- PROC *----------------------------------------------------------------------- * let mnum=1 *----------------------------------------------------------------------- ************ LABEL solid ************ *let tra(1) = 1.00000000000000000 *let tra(2) = 1.000000000000000000E+00 *let tra(3) = 1.000000000000000000E+00 *let tra(4) = 1.000000000000000000E+00 *let tra(5) = 1.00000000000000000 *let tra(6) = 1.000000000000000000E+00 *let tra(7) = 1.000000000000000000E+00 *let tra(8) = 1.000000000000000000E+00 *let tra(9) = 1.00000000000000000 *let tra(10) = 1.000000000000000000E+00 *let tra(11) = 1.000000000000000000E+00 *let tra(12) = 1.000000000000000000E+00 dump tra,trabns load giwtra mnum,6,'trabns',tra(12),trabns,ier dump tra,trabns label ende msgcntl 'Fertig' msg 'Aktion beendet//YES:Ende' YES if(kode eq YES) exit end