*** Pgm does summation of daily pcp values o/p from selstn6 for CPC data.
***
         character*5 type,typprv
         character*6 stn,stnprv
         character*8 datex,blank
         character*19 name,namprv
         character*4 elev,elvprv
         character*16 latlon,llprv,county,ctyprv
         character*2 state,stprv
         real pcptot,pcp
         blank = '        '
         open (unit=11, file=' ',
     +   form='formatted', access='sequential', status='unknown')
 88      read (11,870,end=888) datex,stn,name,county,state,type,elev,
     +    latlon,pcp
 870     format (A8,2X,A6,1X,A19,T39,A16,2X,A2,T61,A5,2X,A4,2X,A16,2X,
     +    F5.2)
         icnt=icnt+1
         if (icnt .eq. 1) then
         write (21,890)
 890     format ('YEARMODA  ID     STATION              COUNTY       ',
     +    '     ST  TYPE   ELEV   LAT       LON     PRCP')
         write (21,860) blank
 860     format (A8)
         write (22,821)
 821     format ('NUMDAYS   ID     STATION              COUNTY       ',
     +    '     ST  TYPE   ELEV   LAT       LON     PRCP')
         else
         end if
***
         if (stn .ne. stnprv .and. icnt .ne. 1) then
         write (21,850) iday, pcptot
 850     format ('TOTAL',' (',I2,' DAYS OF DATA)',T92,F5.2)
         write (21,860) blank
         write (21,870) datex,stn,name,county,state,type,elev,latlon,pcp
         write (22,822) iday,stnprv,namprv,ctyprv,stprv,typprv,elvprv,
     +    llprv,pcptot
 822     format (1X,I2,7X,A6,1X,A19,T39,A16,2X,A2,T61,A5,2X,A4,2X,
     +    A16,2X,F5.2)
         iday=1
         pcptot = 0.0
         pcptot=pcptot+pcp
         stnprv=stn
         namprv=name
         typprv=type
         elvprv=elev
         llprv=latlon
         ctyprv=county
         stprv=state
         go to 88
***
         else
         write (21,870) datex,stn,name,county,state,type,elev,latlon,pcp
         stnprv=stn
         namprv=name
         typprv=type
         elvprv=elev
         llprv=latlon
         ctyprv=county
         stprv=state
         pcptot=pcptot+pcp
         iday=iday+1
         go to 88
         end if
888      write (21,850) iday, pcptot
         write (22,822) iday,stnprv,namprv,ctyprv,stprv,typprv,elvprv,
     +    llprv,pcptot
         stop
         end