de
check-pw
PW
bpr006
_3
SQ
_3
_4
AR
_4
_5
p1*80.0E12
RO
_5
_6
LI D
_6
junk
R
1
ud n,x66
junk
do lb1 x21=1,x66
ud ic,x21,x51
junk
x55=(x21-1)/(2*(x66-1))
if(x21.gt.1) then
; PIXEL SIZE
x56=2.82/x55
else
x56=100
endif
sd x21,x55,x51,x56
check-pw
lb1
sd e
check-pw
en d