[net.sources] Smacros.a

aron (05/04/83)

echo x - m.Bexec
cat >m.Bexec <<'!Funky!Stuff!'
MACRO Bexec(fil/?PROMPT(Filename(in quotes)? )/,mat/?PROMPT(Matrix Name? )/,
  col/?PROMPT(Number of columns? )/,bmdpcom/?PROMPT(BMDP command(in quotes)? )/)
#transpose matrix and write it to bdata/file.dat
?T(1)_$1
?T(2)_t($2)
?T(3)_encode("bdata/",?T(1),".dat",sep="")
write(?T(2),?T(3),$3)
#execute BMDP command
?T(4)_encode("bdata/",?T(1),".ctl",sep="")
?T(5)_encode("bdata/",?T(1),".ou",sep="")
?T(6)_encode("/bmdp/bin/",$4,sep="")
sys(encode("cat",?T(4),?T(3),"|",?T(6),">",?T(5)))
rm(?T(1))
rm(?T(2))
rm(?T(3))
rm(?T(4))
rm(?T(5))
rm(?T(6))
END
!Funky!Stuff!
echo x - m.Bread
cat >m.Bread <<'!Funky!Stuff!'
MACRO Bread(fil/?PROMPT(Filename(in quotes)? )/,mat/?PROMPT(Matrix Name? )/,
  row/?PROMPT(Number of rows? )/,col/?PROMPT(Number of columns? )/)
#read in BMDP file from bdata/file.dat into matrix
?T(1)_encode("bdata/",$1,".dat",sep="")
$2_matrix(read(?T(1)),$3,$4,byrow=TRUE)
rm(?T(1))
END
!Funky!Stuff!