!-------------------------------------- LICENCE BEGIN ------------------------------------
!Environment Canada - Atmospheric Science and Technology License/Disclaimer,
!                     version 3; Last Modified: May 7, 2008.
!This is free but copyrighted software; you can use/redistribute/modify it under the terms
!of the Environment Canada - Atmospheric Science and Technology License/Disclaimer
!version 3 or (at your option) any later version that should be found at:
!http://collaboration.cmc.ec.gc.ca/science/rpn.comm/license.html
!
!This software is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
!without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
!See the above mentioned License/Disclaimer for more details.
!You should have received a copy of the License/Disclaimer along with this software;
!if not, you can write to: EC-RPN COMM Group, 2121 TransCanada, suite 500, Dorval (Quebec),
!CANADA, H9P 1J3; or send e-mail to service.rpn@ec.gc.ca
!-------------------------------------- LICENCE END --------------------------------------
!

      SUBROUTINE GETPARAM(KULSTD) 2,1
*
#if defined (DOC)
*
***s/r GETPARAM- Obtain all the parameters from the input file
*
*
*Author  : P. Gauthier *ARMA/AES  March 31, 1998
*Revision:
*       . P. Koclas *CMC/AES June  1999:
*       .    - Y2K conversion
*       . S. Pellerin *ARMA/SMC May 2000
*            - Logical unit cleanup
*
*Arguments:  KULSTD  logical unit
*
#endif
      IMPLICIT NONE
*implicits
#include "comlun.cdk"
#include "comgdpar.cdk"
*
#include "rpnstd.cdk"
*
      INTEGER KULSTD
*
      INTEGER IPARAM, IDATEIN, IFSTRUN, IHH
*
      IP1 = -1
      IP2 = -1
      IP3 = -1
      CLNOMVAR = CFSTVAR(1)
*
      IERR = FSTINF (KULSTD,INI,INJ,INK
     S     ,-1,' ',IP1,IP2,IP3,' '
     S     ,CLNOMVAR)
*
      IF(IERR.LT.0) THEN
         WRITE(NULOUT,*)' GETPARAM- Check the selection criteria'
         CALL ABORT3D(NULOUT,'GETPARAM: problem with FSTINF')
      END IF
*
      IPARAM = FSTPRM(IERR,IDATE(1),IDEET,INPAS,INI,INJ,INK,INBITS
     S     ,IDATYP,IP1,IP2,IP3,CLTYPVAR,CLNOMVAR,CLETIKET,CLGRTYP
     S     ,IG1,IG2,IG3,IG4,ISWA,ILENGTH,IDLTF,IUBC
     S     ,IEXTR1,IEXTR2,IEXTR3)
      IDATEIN = IDATE(1)
*
      CALL NEWDATE(IDATE(1),IFSTRUN,IHH,-3)
      WRITE(NULOUT,*)'DATE = ',IFSTRUN
     S     ,' DEET =',IDEET
     S     ,' INBITS= ',INBITS
     S     ,' IPAK = ',IPAK
     S     ,' NPAS = ',INPAS
     S     ,' TYPVAR = ',CLTYPVAR
     S     ,' NOMVAR = ',CLNOMVAR
*
      IERR =  FSTFRM(KULSTD)
      IERR =  FCLOS(KULSTD)
*
      RETURN
      END