PROGRAM fbsel
USE obs_fbm
USE date_utils
IMPLICIT NONE
TYPE(obfbdata) :: fbdatain,fbdataout
CHARACTER(len=256) :: filenamein,filenameout,filenametmp,cnameout
#ifndef NOIARGCPROTO
INTEGER,EXTERNAL :: iargc
#endif
INTEGER,PARAMETER :: maxtyp=1023
INTEGER,PARAMETER :: maxdates=20
INTEGER :: nqc,ntyp,ndates,ninidate(maxdates),nenddate(maxdates)
LOGICAL :: lsplitqc,lsplittyp
INTEGER :: iqc,ityp,idate
REAL :: maxlat,minlat,maxlon,minlon
NAMELIST/namsel/nqc,ntyp,ndates,ninidate,nenddate,lsplitqc,lsplittyp, &
& maxlat,minlat,maxlon,minlon
IF (iargc()/=2) THEN
WRITE(*,*)'Usage:'
WRITE(*,*)'fbsel