7 common/lujets/
n,
k(9000,5),
p(9000,5),
v(9000,5)
9 common/ludat1/mstu(200),paru(200),mstj(200),parj(200)
17 IF(mstu(25).EQ.1.AND.mstu(27).LE.mstu(26))
WRITE(mstu(11),1000)
18 & merr,mstu(31),chmess
21 ELSEIF(merr.LE.20)
THEN
24 IF(mstu(21).GE.1.AND.mstu(23).LE.mstu(22))
WRITE(mstu(11),1100)
25 & merr-10,mstu(31),chmess
26 IF(mstu(21).GE.2.AND.mstu(23).GT.mstu(22))
THEN
27 WRITE(mstu(11),1100) merr-10,mstu(31),chmess
29 IF(merr.NE.17) CALL
lulist(2)
35 WRITE(mstu(11),1300) merr-20,mstu(31),chmess
40 1000
FORMAT(/5
x,
'Advisory warning type',
i2,
' given after',i6,
41 &
' LUEXEC calls:'/5
x,a)
42 1100
FORMAT(/5
x,
'Error type',
i2,
' has occured after',i6,
43 &
' LUEXEC calls:'/5
x,a)
44 1200
FORMAT(5
x,
'Execution will be stopped after listing of last ',
46 1300
FORMAT(/5
x,
'Fatal error type',
i2,
' has occured after',i6,
47 &
' LUEXEC calls:'/5
x,a/5
x,
'Execution will now be stopped!')