CALL SEQUENCE... zxprint INZX INPUT OUTPUT [ -name VAL1 -kind VAL2 -label VAL3 ] DESCRIPTION... zxprint - PRINTS VALUES OF A CROSS SECTION FILE AUTHOR - M.Lazare, JUN 13/84. LAST REVISION: $Header: /home/cvs/RMNLIB/utils/rdiag/lspgm/zxprint.ptn,v 4.9 2014/09/25 20:20:57 dugas Exp $ PURPOSE - PRINT ON LINE PRINTER THE VALUES IN A CROSS-SECTION FILE. THESE CAN BE ZONAL OR MERIDIONAL AS DETERMINED FROM THE INPUT DIRECTIVES(S). NOTE - MAXIMUM LEVELS IS 999 AND MAXIMUM LATITUDES IS 999. INPUT FILE... INZX = FILE OF TYPE 'ZONL' OR 'CMPL' CONTAINING THE DATA INPUT PARAMETERS... NAME (name) = NAME OF CROSS SECTION FOR WHICH VALUES ARE TO BE PRINTED ISW = OMIT THE NAME CHECK IF ISW.GT.0. THIS IS INCLUDED FOR COMPATIBILITY WITH A PREVIOUS VERSION. KZM (kind) = 0 FOR ZONAL CROSS SECTION 1 FOR MERIDIONAL CROSS-SECTION LABEL = 80 CHARACTER LABEL PRINTED IF WE ARE NOT IN SKIP MODE READ( 5,5010 ) NAME,ISW,KZM READ( 5,5012 ) LABEL 5010 FORMAT(10X,1X,A4,2I5) 5012 FORMAT(A80) EXAMPLE OF INPUT CARD(S)... ZXPRINT TEMP 0 0 TEMPERATURE ZONAL CROSS SECTION 0123456789012345678901234567890123456789012345678901234567890 1 2 3 4 5 6 7 EXIT CONDITIONS... 0 NO PROBLEMS/NO MORE DIRECTIVES NON-FATAL CONDITIONS... 101 EOF LOOKING FOR NAMED VARIABLE 102 READ LAST RECORD SET OR TOO MANY VERTICAL LEVELS 103 LAST DIRECTIVE SET INCOMPLETE