c
c  determine number of types of missing data
c
      parameter (no=25)
      character*25 erv,prev,blnk
      integer nmis

      nmis=0
      prev='                      '
      blnk=prev
      nrv=0
      open(10,file='missingS.d',form='formatted',status='old')
      open(15,file='misscods.d',form='formatted',status='unknown')
c
c  read next combination
c
 10   read(10,1000,end=88)erv
 1000 format(1x,a25)
      if(erv.ne.prev)go to 14
        nrv=nrv+1
       go to 10
 14    if(nrv.gt.0)then
        nmis=nmis+1
        write(15,1501)nmis,prev,nrv
 1501   format(1x,i8,1x,a25,2x,i8)
        endif
 16     prev = erv
        nrv=1
        go to 10
 88   nmis = nmis + 1
      write(15,1501)nmis,prev,nrv
      close(10)
      close(15)
      print *,nmis
      stop
      end