We provide a Fortran 77 version of the Applied Statistics Algorithm AS57 `Printing Multidimensional Tables'' originally appearing in the book `Applied Statistics Algorithms'' by P. Griffiths and I.D. Hill. We believe that the new code offers improvements both in readability and maintainability. [The file /pub/misc/statlib/apstat/as057.sh contains the Fortran 77 source code, example driver code, data and sample results as a Unix shar file. It is available via anonymous ftp from unix.hensa.ac.uk

Hopkins, Tim

Morse, David R.

English

Kent Academic Repository

Kent Academic RepositoryFull text document (pdf)Copyright & reuseContent in the Kent Academic Repository is made available for research purposes. Unless otherwise stated allcontent is protected by copyright and in the absence of an open licence (eg Creative Commons), permissions for further reuse of content should be sought from the publisher, author or other copyright holder. Versions of researchThe version in the Kent Academic Repository may differ from the final published version. Users are advised to check http://kar.kent.ac.uk for the status of the paper. Users should always cite the published version of record.EnquiriesFor any further enquiries regarding the licence status of this document, please contact: researchsupport@kent.ac.ukIf you believe this document infringes copyright then please contact the KAR admin team with the take-down information provided at http://kar.kent.ac.uk/contact.htmlCitation for published versionHopkins, Tim and Morse, David R.  (1994) Remark on Applied Statistics Algorithm AS057 PrintingMultidimensional Tables.   Technical report. University of Kent, Computing Laboratory, Universityof Kent, Canterbury, UKDOILink to record in KARhttps://kar.kent.ac.uk/21160/Document VersionUNSPECIFIEDA Remark on Algorithm AS  Printing Multidimensional TablesBy Tim Hopkins and David MorseComputing Laboratory University of KentCanterbury Kent CT NF UKKeywords Table Printing MultidimensionalLANGUAGEFortran DESCRIPTION AND PURPOSEThis routine is a Fortran  version of that appearing in Griths and Hill 	originally Haberman  It uses character variables rather than storingcharacter information in integers and reals which was the only way of implementing such an algorithm in standard Fortran  Where possible data statementshave been replaced by parameter statements The code has been restructuredand variable names have been altered to avoid clashes with Fortran ~~ intrinsicfunction names and the Fortran specier name UNIT The algorithm prints one or more NV ARdimensional parallel tables storedin an array TABLE of length NTAB For example TABLE might containa table of observations a table of tted values and a table of residuals To bespecic suppose that a threedimensional table fnijkg has been studied where  i     j     k   From this investigation a tted table fmijkgand a residual table frijkg have been derived For purposes of display it isdesired that the printed table have the format shown in Figure  In this caseTABLE is divided into three subtables as followsThe subtable corresponding to the observations fnijkg begins at TABLEthe subtable for the t fmijkg begins at TABLE        and thesubtable of residuals frijkg begins at TABLE Each subtable is arrangedin standard Fortran fashion that is TABLE  n    TABLE  n  TABLE  n   etc Note that standard Fortran ~~ would allow TABLEin the calling routine to be a fourdimensional array dimensioned  wherethe last dimension denotes the number of tablesTo permit proper printing of the table the algorithm requires descriptiveinformation concerning the structure of the table and information which indicates how the table should be displayed The basic structural information isprovided by an integer array DIM of length NV AR and an integer array LOCof length COL The array DIM gives the number of categories in each of theVar  Cat  Cat  Cat  Cat Var  Var Cat  Cat  Res n   n  n  n  Fit m   m  m  m  Obs r   r  r  r  Cat  Cat  Res n  n n n Fit m  m m m Obs r  r r r Cat  Cat  Res n  n n n Fit m  m m m Obs r  r r r Cat  Cat  Res n  n n n Fit m  m m m Obs r  r r r Cat  Cat  Res n nnnFit m mmmObs r rrrCat  Cat  Res n nnnFit m mmmObs r rrrFigure  Sample testtable variables Thus DIM    DIM    and DIM    in theexample The array LOC gives the location in TABLE of each of the COLparallel tables In the example COL   LOC   LOC   andLOC  Label information is required for the table variables the categories of eachvariable and the names of the parallel tables In addition the title for the complete display is needed The character arrays TITLE V ARNAM  CATNAMand COLLAB provide these data All label arrays are declared to be assumedsize character arrays the variables TITLEN and LABLEN control how muchof each label is actually printed as well as the eld width used for output of thelabels Thus the rst TITLEN characters of each of the NT lines of the titleare output and the maximum length of any label is LABLEN characters Theinteger constant GAP see Adjustable constants below controls the amount ofspace inserted between a label and the following data values Of the NV ARlabels of V ARNAM  the last V ERT of them are printed on the lefthand sideof the page while NV AR  V ERT labels are printed along the top In theexample V ERT  The body of the table is printed by use of F conversion The format foran entry from parallel table J is Fab where a is LABLEN  GAP and b isDECJ The integer array DEC has length COLWhen many tables are to be printed it is sometimes useful to print severalsmall tables on the same page To permit this practice the user may use thevalue of the line counter LINE as returned by a prior call to TABWRT alongwith the argument RESTOR If RESTOR is set FALSE the table will beprinted space permitting within the remainder of the page If RESTOR is setTRUE the new table will be printed at the top of a new pageSTRUCTURESUBROUTINE TABWRTTITLETITLENNTTABLENTABDIMNVAR LOCCOLDECVARNAMLABLENCATNAMMAXCATCOLLAB VERTRESTORLINESKIPPAGEWIDTHUNITIFAULT	Formal parametersTITLE Character array NT input the title of the tableTITLEN Integer input the number ofcharacters per line ofthe titleNT Integer input the number of lines inthe titleTABLE Real array NTAB input the tables to be printedNTAB Integer input the number of elementsin TABLEDIM Integer array NV AR input the number ofcategories in eachvariable of the tableNV AR Integer input the number of variablesdimensions in thetableLOC Integer array COL input the locations inTABLE of thesubtables to be printedCOL Integer input the number of subtablesto be printedDEC Integer array COL input the number of places tothe right of the decimalpoint for each subtableV ARNAM Character array NV AR input the variable namesLABLEN Integer input the maximum numberof characters of eachlabel to be printedCATNAM Character arrayMAXCAT input the names of thevariable categoriesMAXCAT Integer input the maximum numberof categories pervariableCOLLAB Character array COL input the table namesV ERT Integer input the number of labels tobe printed on the leftside of the pageRESTOR Logical input If TRUE the tablewill be printed on anew page if FALSEthen an attempt will bemade to print the tableon the same page seeDescription andPurpose for detailsLINE Integer inputandoutput the line counterSKIP Integer input the number of linesbetween tables on thesame pagePAGE Integer input the number of lines perpageWIDTH Integer input the number ofcharacters per lineexcluding carriagecontrol characterUNIT Integer input the number designatingthe output deviceIFAULT Integer output  if NV AR COL orDIM is incorrectlyspecied if table will not t onthe dened page ifTITLEN  WIDTHor LABLEN WIDTH GAP  if RESTORE isFALSE andLINE   otherwiseAdjustable constantsThe following values are dened in PARAMETER statementsMAXV AR Integer constant maximum number ofvariables permitted in atableGAP Integer constant number of charactersbetween label and startof data valuesRESTRICTIONSNonePRECISIONIt does not seem worth making this algorithm adjustable for double precision Ifdouble precision data are to be used values should rst be copied into a singleprecision arrayREFERENCESGriths P and Hill I D editors 	 Applied statistics algorithms Chichester Ellis HorwoodHaberman S J  Printing Multidimensional Tables Appl Statist   	

Remark on Applied Statistics Algorithm AS057 Printing Multidimensional Tables

https://kar.kent.ac.uk/21160/1/RemarkHop.pdf

Remark on Applied Statistics Algorithm AS057 Printing Multidimensional Tables

Abstract

Similar works

Full text

Available Versions

Kent Academic Repository