begin # PutByOneNm.oms, whole file a block # Jim Worthey, 2001 Sept 29 function PutByOneNm(outfil, descrip, domain, vec) begin # domain must be correct [1st lambda, last lambda] # Now check something: VecSize = rowdim(vec) NumLams = domain(2) - domain(1) + 1 if VecSize <> NumLams then begin print "In PutByOneNm(), VecSize = ", VecSize, ... ", but NumLams = ", NumLams, ", not equal." close halt end # if VecSize etc # OK, must have passed the test. rmfilresult = rmfile(outfil) print "In PutByOneNm(), rmfile(outfil) = ", rmfilresult NumTextLines = rowdim( descrip ) write(outfil, NumTextLines) for j = 1 to NumTextLines begin write( outfil, clipstr( descrip.row(j) ) ) end format int "8" write(outfil, domain) format real "g" format double "g" write(outfil, vec) close(outfil) end # function PutByOneNm() end # whole file a block