program az_ave


      real phi(121),s1,s2,s3,s4
      real ss1,ss2,ss3,ss4
      real ave,db_ave(121)
      real inco1,inco2,inco3,inco4
      real coho1,coho2,coho3,coho4
      real inco,coho

      read(5,*)inco1,inco2,inco3,inco4
      read(5,*)coho1,coho2,coho3,coho4
      

        inco1=10.0**(inco1/10.)
        inco2=10.0**(inco2/10.)
        inco3=10.0**(inco3/10.)
        inco4=10.0**(inco4/10.)

        coho1=10.0**(coho1/10.)
        coho2=10.0**(coho2/10.)
        coho3=10.0**(coho3/10.)
        coho4=10.0**(coho4/10.)

        inco=10*alog10((inco1+inco2+inco3+inco4)/4.)
        coho=10*alog10((coho1+coho2+coho3+coho4)/4.
     &       +(inco1+inco2+inco3+inco4)/4.)
      

      do i=1,61

        read(5,*) phi(i),s1,s2,s3,s4

        ss1=10.0**(s1/10.)
        ss2=10.0**(s2/10.)
        ss3=10.0**(s3/10.)
        ss4=10.0**(s4/10.)

        ave=(ss1+ss2+ss3+ss4)/4.

        db_ave(i)=10*alog10(ave)
        
      enddo

       do i=1,61

         j=62-i
      
        write(6,*) -phi(j),db_ave(j),inco,coho

        enddo

       do i=1,60

         j=i+1
      
        write(6,*) phi(j),db_ave(j),inco,coho

        enddo
        

        
      stop
      end