program cisnienie

      real p0, m, g, p, T, z, R
      Write(*,*) '-------------------------------------------------'
      Write(*,*) '         PROGRAM CIS1                            '
      Write(*,*) '  Autor Krzysztof Markowicz                      '
      Write(*,*) '  e-mail: kmark@igf.fuw.edu.pl                   '
      Write(*,*) '  www.igf.fuw.edu.pl/meteo/stacja                '
      Write(*,*)
      Write(*,*) ' Program oblicza cisnienie powietrza na pozniomie'
      Write(*,*) ' stacji na podstawie cisnienia zredukowanego     '
      Write(*,*) ' do poziomu morza                                '
      Write(*,*) '-------------------------------------------------'
      Write(*,*)
      m=0.02896
      g=9.81
      R=287.0
      write(*,*) 'Podaj wysokosc stacji nad pozom w metrach'
      read(*,*) z
      write(*,*) 'Podaj temperature powietrza w C'
      read(*,*) T
      T=T+273.16
      write(*,*) 'Podaj cisnienie na poziomie morza w [hpa]'
      read(*,*) p0
      p=p0*exp(-g*z/(R*T))
      write(*,*) '************************************************'
      write(*,*) 'Cisnienie na poziomie stacji wynosi:'
      write(6,'(f7.1)') p
        end