c** batchmplot.mac
c** for making multiple plots in batch mode
;
err label abort
;
get 'input matrix location' matpfx
;
mat 'crcc_ca_t_02' r
;
exr limits.mac 2
exr plotparameters.mac
;
def lolim1p &lolim1
def hilim1p &hilim1
def lolim2p &lolim2
def hilim2p &hilim2
;
def nlevelp &nlevel
def levelp &level
def conmodp &conmod
;
def pennump &pennum
def cyclep &cycle
def posnegp &posneg
;
cmx
;
ty
ty
ty ****************************
ty Start making multiple plots
ty ****************************
ty
ty
;
;open input file
opn .int /home/haitao/felix/text/crcc_plot.int 2
;
for loop 1 19
    esc out
    if &out ne 0 abort
    ;pur entry1 entry2 entry3 count
    rea
    str parse $str entry count
    if &count lt 2 then
       ty Error detected in line &loop of input file, program quitting ...
       go abort
    eif
    mat &entry1 r
    def lolim1 &lolim1p
    def hilim1 &hilim1p
    def lolim2 &lolim2p
    def hilim2 &hilim2p
;
    def nlevel &nlevelp
    eva level (&levelp*&entry2)
;    def level &levelp
    def conmod &conmodp
;
    def pennum &pennump
    def cycle &cyclep
    def posneg &posnegp
    clr
    cp
    wai 1
    def hardmo 21
    str parse &entry1 body ext .
    def harddv &body1.ps
    hcp
    cmx
nex
ty
ty
ty #####################################################
ty    multiplotting done!
ty #####################################################
ty
ty
;
abort:
cmx
ret
end