7      SUBROUTINE BIN_INP (BTITLE,LPARM,ATITLE,NAMEF,ID)*C_TITLE  BIN_INP  Does prompting for  BIN.IC_ARGUMENTS  All Parameters passed through a common or the argument list.2	INTEGER*4 KBIN(5,2)	! [I] Variables to be binned.2	INTEGER*4 LPARM(10)     ! [O] Parameters for BIN.'	INTEGER*4 ID    	! [O] Identification.0	INTEGER*2 NAMEF(3)      ! [O] Output filename. )	REAL*4 BTITLE(5,2)      ! [O] Bin title.-	REAL*4 ATITLE(10)       ! [O] Title for Bin.C_VARIABLESB      INCLUDE 'RAD$INC:TAEBAS.INC'      !TAE commons and includes.				8	COMMON /XXGCOM/ IXXG1(11),NCOL,NVAR,NCON,NFUN,IXXG16(2)6     1 ,KSN(7),NSPI,INT,LUMPSQ,ICHANGE,IUNIT,IXXG25(6)H     2 ,LKOUT,LFMT,LPROJ,LSKIP,LBORDR,LBLANK,LEXCL,LZSCAL,LZCON,LZMOD	  9     3 ,MINX,MAXX,NX,LPERX,NULLX,MINY,MAXY,NY,LPERY,NULLY/     4 ,IXXG51(10),ICOL, ICON  ,IFUN  ,TITLE(5)!C					Uses: ICOL. Modifies: none.MC_DESCRIPTION  Does all prompting for BIN, using the TAE interface, transfersHC all user input parameters to BIN either through commons, or through anNC argument list.  This routine removes any user interface from the applicationC routines./C_CALLS  XRSTR  DECRSTR  DECISTR  L2L  XRINTG  C_COMMONS XXCOM,XXGCOMNC_HISTORY  HUGH_H._KIEFFER 86Apr07 Original Version, USGS Flagstaff, AZ. 86001WC    Modified 86-06-02, Robert L. Gurule, revised version, removed XG specific prompts.C_END      CHARACTER*7 FMT      CHARACTER*32 DESC      CHARACTER*25 KHON(10)&      CHARACTER*6 NAME,SPOTC,IUN,LABEL      CHARACTER*5 SYM      REAL*4 CON(4)      INTEGER *2 ISS,IPS      INTEGER*2 INCON(3,10).      INTEGER*2 ICOL(30),ICON(4,10),IFUN(12,5)$      INTEGER*4 LEN(10),IDUM(20),ICD      DIMENSION KP(4)            EQUIVALENCE (KBIN,MINX)      DATA ISTDOUT/6/,IMODE/0/      '!-----Fetch the XAXIS and YAXIS labels.=      CALL XRSTR(BLOCK, 'XAXIS',1,KHON(1),LEN(1),ICNT,ISTAT) <      CALL XRSTR(BLOCK, 'YAXIS',1,KHON(2),LEN(2),ICNT,ISTAT)         DO  IVAR = 1,29           CALL DECRSTR(KHON(IVAR)(1:LEN(IVAR)),CON,ICNT)	   ICS = ICOL(IVAR)<!-----Input code to xgvdef and fetch the scaling parameters.	 SYM(1:2)='LA'				3         CALL XGVDEF(1,SYM,ICD,ISS,IPS,%REF(LABEL),"     1   %REF(IUN),%REF(DESC),FMT)3         CALL XGVDEF(2,SYM,ICD,ISS,IPS,%REF(LABEL),"     1   %REF(IUN),%REF(DESC),FMT)         XR = FLOAT(IPS)	#!-- Scale the constraint parameter.&         IDUM(1) = IFIX( CON(1) * XR)	%         IDUM(2) = IFIX( CON(2) * XR)	 IDUM(3) = IFIX( CON(3))?!-- Extract the variable (now in disk units) to the kbin array.)         CALL L2L(IDUM(1),KBIN(1,IVAR),3)         IV  =  IVAR + 23         DECODE(LEN(IV),45,KHON(IV)) BTITLE(1,IVAR)  45     FORMAT(10A4)         END DO&!-----Fetch the rest of BIN parameters6      CALL XRINTG(BLOCK, 'FORM',4,LPARM(2),LENS,ISTAT)5      CALL XRINTG(BLOCK, 'REP',5,LPARM(6),LENS,ISTAT)7      CALL XRINTG(BLOCK, 'ARRAY',1,LPARM(1),LENS,ISTAT)<      CALL XRSTR(BLOCK, 'TITLE',1,KHON(1),LEN(1),ICNT,ISTAT)&      DECODE(LEN(1),47,KHON(1)) ATITLE  47  FORMAT(10A4)9      CALL XRSTR(BLOCK, 'ANAME',1,NAME,LEN(1),ICNT,ISTAT)      DECODE(6,5,NAME) NAMEF   5  FORMAT(3A2)2      CALL XRINTG(BLOCK, 'ANUM',1,ID,LEN(1),ISTAT)  50  RETURN	      END