program ratio real hh,vv,hv,day real pol,depol,copol read(5,*) nmbr do i=1,nmbr read(5,*) day,vv,hh,hv pol= 10.*alog10(10.**(vv/10.)+10.**(hh/10.)) depol= 3.0+hv-pol copol=vv-hh print*, day,copol,depol enddo stop end