با سلام.این کد خواص اتمسفر استاندارد را تا ارتفاع 90 کیلومتری از سطح زمین محاسبه میکند و آنرا در فایل هایی ذخیره میکند.این کد خواص را در هر متر حساب میکند و گام های آن یک متر است و در کل خواص 90001 نقطه را محاسبه میکند.چون تعداد اطلاعات بسیار زیاد است به همین علت امکان نمایش این اطلاعات در خود برنامه وجود ندارد و بخاطر همین این اطلاعات در فایل هایی در کنار فایل اجرایی این برنامه بوجود می آید و اطلاعات در آن فایل ها ذخیره میشود.بعد از کامپایل کردن این کد,یک فایل اجرایی از این کد توسط کامپایلر تولید میشود(با پسوند exe).وقتی که این فایل اجرایی را اجرا کنید در خود برنامه اتفاقی نمی افتد اما بلافاصله در کنار این فایل اجرایی,چند فایل متنی به وجود می آید که اطلاعات خواص اتمسفر را در آنها ذخیره میکند.این فایل ها شامل فشار و چگالی و دما و سرعت صوت بر حسب ارتفاع و یک فایل هم که همه ی  این اطلاعات را در کنار هم نمایش میدهد.
 

============================================================

program  atmosphere
implicit none
REAL::t(90001),p(90001),d(90001),t0,t1,t2,t3,t4,t5,d0,d1,d2,d3,d4,d5,p0,p1,p2,p3,p4,p5,r,g,l,c(90001)
INTEGER::h,h0,k,i,n(90001)
R=287