:       SUBROUTINE USERINP (INT1, REAL1, CHAR1, CHAR2, ...)EC_TITLE  USERINP is an example input routine using the TAE interface.;C_ARGS  All Parameters are passed through an argument list.KC_DESCRIPTION  The subroutine USERINP is an input routine for the variablesGC required in subroutine XGDATA.  This routine uses the TAE interface. IC none of the variables in this routine are needed by a user, rather theyIC are to be replace and/or deleted by a user.  This program is an exampleIC of how a user might pass variables to his own home-brew XGDATA routine.MC This routine togeather with USERINP.PDF illustrates how to add input to theJC already existing XGFUNC.FOR skeleton.  An alternative solution is to useMC FORTRAN read and writes in module XGUSER.  See the TAE user manual for moreC information.5C_CALLS  XRINTG  XRSTR  DECISTR  L2L  DECRSTR  CYPHER&C_COMMONS XXTAE, XXCOM, XXGCOM, PGMINCPC_HISTORY  Robert L. Gurule, 88-07-02 Original Version, USGS Flagstaff, AZ.86001C_END"      INCLUDE 'RAD$INC:TAEBAS.INC'!      CHARACTER*25 CHAR1,CHAR2(5)      INTEGER*4 INT1(2),IN2&      DATA ISTDOUT/6/,IMODE/0/,ICNT/0/ !-----Fetch character variables.9      CALL XRSTR(BLOCK,'INST',1,CHAR1,NCHARS,ICNT,STATUS)J      CALL XRSTR(BLOCK,'ACCESS',1,CHAR2,LEN(1),ICNT,ISTAT) !input Filename                    !-----Fetch 2 integer variables.1      CALL XRINTG(BLOCK,'INT1',2,IDUM,LENS,ISTAT)      INT = IDUM(1)       LUMPSQ = IDUM(2)!-----Fetch real variable.     -      CALL XRREAL(BLOCK,'XVAR',1,X,LEN,ISTAT)            RETURN	      END