Index: mttroot/mtt/bin/trans/sm2sr_m ================================================================== --- mttroot/mtt/bin/trans/sm2sr_m +++ mttroot/mtt/bin/trans/sm2sr_m @@ -14,10 +14,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.4 1996/08/11 19:48:04 peter +## Parameter passing added. +## ## Revision 1.3 1996/08/11 10:38:30 peter ## Minor debugging changes. ## ## Revision 1.2 1996/08/11 10:06:50 peter ## Now allows e format and NaN numbers. @@ -36,19 +39,20 @@ echo Using default parameter $PARAMS else PARAMS=$2; fi +PARAMS="$PARAMS ;" +echo $PARAMS $MATRIX << EOF | awk '$1 !~ /[A-MO-Zb-cf-z]/ && NF>0 {print} ' >$1_sr.dat - $PARAMS; + $PARAMS [n,m]=size(t); if m>n t=t'; end; - [A,B,C,D,E] = $1_dm($1_numpar); y = dm2sr(A,B,C,D,E,t); [Ny,Nu]=size(D);