#!../src/tops  -i -s ../sys  -u ../usr
/*

   if(missing("dircos")) source("mmath.v");
   library("SS1");
   file("SS1.op4", old, binary, "fSS1");
   SS1.M = get4(fSS1, "Mgg");
   SS1.K = get4(fSS1, "Kgg");
   SS1.CSTM = dircos([1; 0; 0], [0, 0, 1]');
*/
