PRO WRDPRMSEL
;***
;##############################################################################
;#Procedure_name  : WRDPRMSEL                                                 #
;#                                                                            #
;#Author          : Jacqueline Platzer                                        #
;#Language        : IDL                                                       #
;#Purpose         : read a file including  descriptions of selected HK param. #
;#Creation date   : JAN 1994                                                  #
;#Update date     :                                                           #
;#Version         :                                                           #
;#External Modules: SUMER_IDL_LIB   :                                         #
;#                                                                            #
;#Call sequence   : WRDPRMSEL                                                 #
;#                                                                            #
;#common display_com,stinit,period,nbparam,nbcond,param,paramcond,op_compress,$
;#                   tim_index,nbrvaltot,val,tim,ier,factor,filename          #
;#Arguments       :                                                           #
;# (see wdisplay_tempor.pro)                                                  #
;#                                                                            #
;# External files reading :                                                   #
;#                                                                            # 
;#   CHOSENPRM.DAT: ASCII file including  number and characteritics of        #
;#                  selected parameters to be displayed.                      #
;#                                                                            # 
;# Description    : write the file including characteristics of HK param.     #
;#                  selected to be displayed                                  #
;#                  the beginning time and the ending time of selected period #
;#                  number of selected parameters  with name of combinaition  #
;#                  and a complete description of all selected parameters     #
;#                  allowing to display them and available in an array of     #
;#                  of structure PARAM :                                      #
;#                  numb_param=nbselprm+nbcond                                # 
;#                  param=replicate(a,nbselprm)                               #
;#                  paramcond=replicate(a,nbcond)                             #
;#                                                                            # 
;##############################################################################

;***
common display_com,stinit,period,nbparam,nbcond,param,paramcond,op_compress,$
                   tim_index,nbrvaltot,val,tim,ier,factor,filename
    period=intarr(12)
    combin_name=''        
    close,2
        if N_PARAMS() lt 6  then filename='chosenprm.dat'        
    openr,2,filename
        readf,2,format='(12i3)',period
        readf,2,format='(i3,a31)',nbparam,combin_name

    a={prm,prec:0,ppos:0,pf:'',pn:'',ps:'',pu:'',plmin:'',plmax:'',$
       pfb:0,plb:0,pln:'',pcond:strarr(2) }
    param=replicate(a,nbparam)

    space=''
    rpr=0 & rppos=0 & rpf='' & rpn=''  & rps='' & rpu='' 
    rplmax='' & rpfb=0 & rplb=0 & rpln='' & rplmin=''
    rpcond='' & rvcond=''

    n=0
        repeat begin 
        readf,2,format='(i3,i4,a5,a8,a5,a5,a9,a9,i3,i3,a31)',$
                rpr,rppos,rpf,rpn,rps,rpu,rplmin,rplmax,rpfb,rplb,rpln
        readf,2,format='(a1,a8,a1,a8)',space,rpcond,space,rvcond
                         param(n).prec=rpr
                         param(n).ppos=rppos
                         param(n).pf=rpf
                         param(n).pn=rpn
                         param(n).ps=rps
                         param(n).pu=rpu
                         param(n).plmin=rplmin 
                         param(n).plmax=rplmax
                         param(n).pfb=rpfb
                         param(n).plb=rplb
                         param(n).pln=rpln
                         param(n).pcond(0)=rpcond
                         param(n).pcond(1)=rvcond
        n=n+1
    endrep until n eq nbparam or eof(2)
        readf,2,format='(i3)',nbcond
    if nbcond ne 0 then begin
        paramcond=replicate(a,nbcond)
        n=0
        repeat begin 
        readf,2,format='(i3,i4,a5,a8,a5,a5,a9,a9,i3,i3,a31)',$
                rpr,rppos,rpf,rpn,rps,rpu,rplmin,rplmax,rpfb,rplb,rpln
        readf,2,format='(a1,a8,a1,a8)',space,rpcond,space,rvcond
                         paramcond(n).prec=rpr
                         paramcond(n).ppos=rppos
                         paramcond(n).pf=rpf
                         paramcond(n).pn=rpn
                         paramcond(n).ps=rps
                         paramcond(n).pu=rpu
                         paramcond(n).plmin=rplmin 
                         paramcond(n).plmax=rplmax
                         paramcond(n).pfb=rpfb
                         paramcond(n).plb=rplb
                         paramcond(n).pln=rpln
                         paramcond(n).pcond(0)=rpcond
                         paramcond(n).pcond(1)=rvcond
        n=n+1
    endrep until n eq nbcond or eof(2)
    endif
    close,2
return
end