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!