SUBROUTINE CRELLW(LALO)
       DIMENSION lalo(344,2)
       DIMENSION nind(400),nstate(4),ndiv(7)

       open(9,form='formatted')

       DO 100 i=1,392
       READ(9,95,END=100)istate,idiv
       nind(i)=0
   95  FORMAT(I2,1X,I2)
       IF (idiv .EQ. 0) nind(i)=1
  100  CONTINUE
       REWIND 9
       icd=0
       DO 200 i=1,392
       IF (nind(i) .EQ. 0) GO TO 107
       READ (9,105,END=200)(nstate(j),j=1,4),iarea
  105  FORMAT(6X,4A4,24X,I6)
C*     WRITE(6,106)(nstate(j),j=1,4),iarea
C*106  FORMAT(1H ,/,27X,4A4,24X,I6,/)
       GO TO 200
  107  READ(9,108,END=200)istat,idiv,(nstate(j),j=1,4),(ndiv(l),l=1,7),
     2 wgt,lat,lon
  108  FORMAT(I2,1X,I2,1X,4A4,7A4,1X,F6.4,I5,I6)
       icd=icd+1
       lalo(icd,1)=lat
       lalo(icd,2)=lon
C*     WRITE(6,109) icd,istat,idiv,(nstate(j),j=1,4),
C*   2 (ndiv(l),l=1,7),wgt,lat,lon
  109  FORMAT(1H ,I3,2X,I2,1X,I2,1X,4A4,7A4,1X,F6.4,I5,I6)
  200  CONTINUE
C*     DO 300 icd=1,344
C*     WRITE(6,205)lalo(icd,1),lalo(icd,2),icd
C*205  FORMAT(1H ,3I10)
C*300  CONTINUE
       close(9)
       RETURN
       END