CALL SEQUENCE... zxtrig ZXIN ZXOUT INPUT OUTPUT [-a VAL1 -kind "VAL2" -b VAL3] DESCRIPTION... ZXTRIG - CROSS-SECTION MULTIPLIED BY CONST*TRIG(LAT)**N AUTHOR - J.D.Henderson, MAY 25/81. LAST REVISION: $Header: /home/cvs/RMNLIB/utils/rdiag/lspgm/zxtrig.ptn,v 4.7 2014/09/25 20:20:57 dugas Exp $ PURPOSE - MULTIPLIES CROSS-SECTIONS IN ZXIN FILE BY CONST*TRIG(LAT)**N AND PUTS THE RESULT ON FILE ZXOUT, WHERE TRIG ABOVE CAN BE ANY OF SIN,COS OR TAN. 0**0 IS SET TO 1 NOTE - THE MAXIMUM NUMBER OF LATITUDES AND LEVELS IS 999 INPUT FILE... ZXIN = GLOBAL OR HEMISPHERIC CROSS-SECTIONS OUTPUT FILE... ZXOUT = CROSS-SECTIONS MULTIPLIED AS REQUESTED INPUT PARAMETERS... CONST (a) = MULTIPLYING CONSTANT. BLANK DEFAULT IS 1.0 KTR (kind) = 'SIN', 'COS', 'TAN'. BLANK DEFAULT IS 'COS' N (b) = INTEGER POWER TO WHICH TRIG FUNCTION IS RAISED. BLANK DEFAULT IS 1 READ( 5,5010 ) CONST,KTR,N 5010 FORMAT(10X,E10.0,2X,A3,I5) EXAMPLE OF INPUT CARD... ZXTRIG 1.E0 COS 2 0123456789012345678901234567890123456789012345678901234567890 1 2 3 4 5 6 7 EXIT CONDITIONS... 0 NO PROBLEMS 1 KTR IS NEITHER SIN,COS OR TAN 2 PROBLEMS READING ZXIN 3 FOUND DATA TYPE NOT ZONAL IN ZXIN 4 ABORT ERROR READING ZXIN 5 MORE THAN ONE SIZE IN ZXIN 6 ABORT ERROR READIND INPUT DIRECTIVES